diff --git a/.gitignore b/.gitignore
index 054190d..6f093d5 100644
--- a/.gitignore
+++ b/.gitignore
@@ -3,6 +3,7 @@
 /merlin
 /test_merlin
 /build/
+/bin/
 /CMakeCache.txt
 /CMakeFiles/
 /cmake_install.cmake
@@ -13,6 +14,11 @@
 *.obj
 *.exe
 *.pcode
+*.omf
+*.lib
 *.L
 .DS_Store
 /tmp/
+__pycache__/
+*.pyc
+__MACOSX/
diff --git a/CMakeLists.txt b/CMakeLists.txt
index 1648d69..d485d96 100644
--- a/CMakeLists.txt
+++ b/CMakeLists.txt
@@ -1,4 +1,10 @@
 cmake_minimum_required(VERSION 3.16)
+if(NOT CMAKE_BUILD_TYPE AND NOT CMAKE_CONFIGURATION_TYPES)
+  set(CMAKE_BUILD_TYPE Release CACHE STRING "Build type: Debug or Release" FORCE)
+endif()
+if(NOT CMAKE_BUILD_TYPE MATCHES "^(Debug|Release)$")
+  message(FATAL_ERROR "CMAKE_BUILD_TYPE must be Debug or Release")
+endif()
 project(qasm LANGUAGES CXX)
 
 set(CMAKE_CXX_STANDARD 17)
@@ -6,60 +12,214 @@ set(CMAKE_CXX_STANDARD_REQUIRED ON)
 set(CMAKE_CXX_EXTENSIONS OFF)
 
 if(CMAKE_CXX_COMPILER_ID MATCHES "GNU|Clang")
-  add_compile_options(-Wall -Wextra -O2 -g)
+  add_compile_options(-Wall -Wextra)
+  set(CMAKE_CXX_FLAGS_DEBUG "-O0 -g" CACHE STRING "Debug compile flags" FORCE)
+  set(CMAKE_CXX_FLAGS_RELEASE "-O2 -DNDEBUG" CACHE STRING "Release compile flags" FORCE)
 endif()
 
 set(THREADS_PREFER_PTHREAD_FLAG ON)
 find_package(Threads REQUIRED)
 
+# major.minor.patch for each program. The build number is not set here.
+# Debug and release each add one per build, stored in bin/.<name>.<config>.build.
+set(QASM_VERSION_MAJOR 0)
+set(QASM_VERSION_MINOR 1)
+set(QASM_VERSION_PATCH 0)
+set(QLINK_VERSION_MAJOR 0)
+set(QLINK_VERSION_MINOR 1)
+set(QLINK_VERSION_PATCH 0)
+set(MAKEBIN_VERSION_MAJOR 0)
+set(MAKEBIN_VERSION_MINOR 1)
+set(MAKEBIN_VERSION_PATCH 0)
+set(QOMF_VERSION_MAJOR 0)
+set(QOMF_VERSION_MINOR 1)
+set(QOMF_VERSION_PATCH 0)
+set(QPRO_VERSION_MAJOR 0)
+set(QPRO_VERSION_MINOR 1)
+set(QPRO_VERSION_PATCH 0)
+
+set(BIN_DIR ${CMAKE_SOURCE_DIR}/bin)
+if(CMAKE_BUILD_TYPE STREQUAL "Debug")
+  set(VERSION_CONFIG debug)
+  set(BIN_OUT ${BIN_DIR}/debug)
+else()
+  set(VERSION_CONFIG release)
+  set(BIN_OUT ${BIN_DIR})
+endif()
+
+# Write <name>_version.cpp and a trigger file. The trigger is removed after
+# the link, so the next build of this program and configuration increments.
+function(add_version_source target name major minor patch)
+  set(cpp ${CMAKE_BINARY_DIR}/generated/${name}_version.cpp)
+  set(trigger ${CMAKE_BINARY_DIR}/generated/${name}_version.trigger)
+  add_custom_command(
+    OUTPUT ${cpp} ${trigger}
+    COMMAND ${CMAKE_COMMAND}
+            -DNAME=${name}
+            -DMAJOR=${major}
+            -DMINOR=${minor}
+            -DPATCH=${patch}
+            -DCONFIG=${VERSION_CONFIG}
+            -DCOUNTER=${BIN_DIR}/.${name}.${VERSION_CONFIG}.build
+            -DOUT=${cpp}
+            -DTRIGGER=${trigger}
+            -P ${CMAKE_SOURCE_DIR}/cmake/bump_build.cmake
+    DEPENDS ${CMAKE_SOURCE_DIR}/cmake/bump_build.cmake
+    COMMENT "Increment ${name} ${VERSION_CONFIG} build number"
+    VERBATIM
+  )
+  target_sources(${target} PRIVATE ${cpp})
+  set_source_files_properties(${cpp} PROPERTIES GENERATED TRUE)
+  set(${name}_VERSION_TRIGGER ${trigger} PARENT_SCOPE)
+endfunction()
+
+# Copy the linked executable into the untracked bin/ directory.
+# Release lands in bin/. Debug lands in bin/debug/.
+function(copy_to_bin target)
+  cmake_parse_arguments(ARG "" "TRIGGER" "" ${ARGN})
+  add_custom_command(TARGET ${target} POST_BUILD
+    COMMAND ${CMAKE_COMMAND} -E make_directory ${BIN_OUT}
+    COMMAND ${CMAKE_COMMAND} -E copy $<TARGET_FILE:${target}> ${BIN_OUT}/$<TARGET_FILE_NAME:${target}>
+    VERBATIM
+  )
+  if(ARG_TRIGGER)
+    add_custom_command(TARGET ${target} POST_BUILD
+      COMMAND ${CMAKE_COMMAND} -E rm -f ${ARG_TRIGGER}
+      VERBATIM
+    )
+  endif()
+endfunction()
+
 set(QASM_LIB_SOURCES
-  src/util.cpp
-  src/parse.cpp
-  src/expr.cpp
-  src/opcode.cpp
-  src/assemble.cpp
-  src/compile.cpp
-  src/front_merlin.cpp
-  src/front_orca.cpp
-  src/front_lisa.cpp
-  src/front_ca65.cpp
+  src/qasm/util.cpp
+  src/qasm/parse.cpp
+  src/qasm/expr.cpp
+  src/qasm/opcode.cpp
+  src/qasm/assemble.cpp
+  src/qasm/compile.cpp
+  src/qasm/front_merlin.cpp
+  src/qasm/front_orca.cpp
+  src/qasm/front_lisa.cpp
+  src/qasm/front_ca65.cpp
+  src/omf/omf.cpp
 )
 
 add_library(qasm_lib STATIC ${QASM_LIB_SOURCES})
-target_include_directories(qasm_lib PUBLIC src)
+target_include_directories(qasm_lib PUBLIC src/qasm PRIVATE src/omf)
 target_link_libraries(qasm_lib PUBLIC Threads::Threads)
 
-add_executable(qasm src/main.cpp)
+add_executable(qasm src/qasm/main.cpp)
 target_link_libraries(qasm PRIVATE qasm_lib)
+add_version_source(qasm qasm ${QASM_VERSION_MAJOR} ${QASM_VERSION_MINOR} ${QASM_VERSION_PATCH})
+copy_to_bin(qasm TRIGGER ${qasm_VERSION_TRIGGER})
+
+add_executable(qlink src/qlink/qlink.cpp src/qlink/link.cpp src/omf/omf.cpp)
+target_include_directories(qlink PRIVATE src/qlink src/omf)
+add_version_source(qlink qlink ${QLINK_VERSION_MAJOR} ${QLINK_VERSION_MINOR} ${QLINK_VERSION_PATCH})
+copy_to_bin(qlink TRIGGER ${qlink_VERSION_TRIGGER})
 
 add_executable(test_qasm test/test_qasm.cpp)
 target_link_libraries(test_qasm PRIVATE qasm_lib)
+copy_to_bin(test_qasm)
+
+add_executable(test_qlink test/test_qlink.cpp src/qlink/link.cpp src/omf/omf.cpp)
+target_include_directories(test_qlink PRIVATE src/qlink src/omf)
+copy_to_bin(test_qlink)
+
+add_executable(makeBin src/makebin/main.cpp src/makebin/makebin.cpp src/omf/omf.cpp)
+target_include_directories(makeBin PRIVATE src/makebin src/omf)
+add_version_source(makeBin makeBin ${MAKEBIN_VERSION_MAJOR} ${MAKEBIN_VERSION_MINOR} ${MAKEBIN_VERSION_PATCH})
+copy_to_bin(makeBin TRIGGER ${makeBin_VERSION_TRIGGER})
+
+add_executable(test_makebin test/test_makebin.cpp src/makebin/makebin.cpp src/qlink/link.cpp src/omf/omf.cpp)
+target_include_directories(test_makebin PRIVATE src/makebin src/qlink src/omf)
+copy_to_bin(test_makebin)
+
+add_executable(qomf src/qomf/main.cpp src/qomf/qomf.cpp)
+target_include_directories(qomf PRIVATE src/qomf)
+add_version_source(qomf qomf ${QOMF_VERSION_MAJOR} ${QOMF_VERSION_MINOR} ${QOMF_VERSION_PATCH})
+copy_to_bin(qomf TRIGGER ${qomf_VERSION_TRIGGER})
+
+add_executable(test_qomf test/test_qomf.cpp src/qomf/qomf.cpp src/qlink/link.cpp src/omf/omf.cpp)
+target_include_directories(test_qomf PRIVATE src/qomf src/qlink src/omf)
+copy_to_bin(test_qomf)
+
+add_executable(qpro src/qpro/main.cpp src/qpro/qpro.cpp)
+target_include_directories(qpro PRIVATE src/qpro)
+add_version_source(qpro qpro ${QPRO_VERSION_MAJOR} ${QPRO_VERSION_MINOR} ${QPRO_VERSION_PATCH})
+copy_to_bin(qpro TRIGGER ${qpro_VERSION_TRIGGER})
+
+add_executable(test_qpro test/test_qpro.cpp src/qpro/qpro.cpp)
+target_include_directories(test_qpro PRIVATE src/qpro)
+copy_to_bin(test_qpro)
 
 # Unit tests and the assembler open PUT/USE paths from the repository root.
 set(QASM_ROOT ${CMAKE_SOURCE_DIR})
 
-# One program, five syntaxes. The objects are compared after assembly.
+# One program, six syntaxes. The objects are compared after assembly.
 set(COVERAGE_SOURCES
   test/fixtures/coverage-merlin.s
   test/fixtures/coverage-merlin32.s
   test/fixtures/coverage-orca.s
+  test/fixtures/coverage-apw.s
   test/fixtures/coverage-lisa.s
   test/fixtures/coverage-ca65.s
 )
 
+# Two relocatable sections. CODE calls and addresses DATA, and DATA calls
+# and addresses CODE. Each syntax assembles to the same bytes.
+set(REL_CODE_SOURCES
+  test/fixtures/rel-code-merlin.s
+  test/fixtures/rel-code-merlin32.s
+  test/fixtures/rel-code-orca.s
+  test/fixtures/rel-code-apw.s
+  test/fixtures/rel-code-lisa.s
+  test/fixtures/rel-code-ca65.s
+)
+set(REL_DATA_SOURCES
+  test/fixtures/rel-data-merlin.s
+  test/fixtures/rel-data-merlin32.s
+  test/fixtures/rel-data-orca.s
+  test/fixtures/rel-data-apw.s
+  test/fixtures/rel-data-lisa.s
+  test/fixtures/rel-data-ca65.s
+)
+
 set(COVERAGE_COMPARE
   COMMAND ${CMAKE_COMMAND} -E compare_files
           test/fixtures/coverage-merlin.bin test/fixtures/coverage-merlin32.bin
   COMMAND ${CMAKE_COMMAND} -E compare_files
           test/fixtures/coverage-merlin.bin test/fixtures/coverage-orca.bin
+  COMMAND ${CMAKE_COMMAND} -E compare_files
+          test/fixtures/coverage-merlin.bin test/fixtures/coverage-apw.bin
   COMMAND ${CMAKE_COMMAND} -E compare_files
           test/fixtures/coverage-merlin.bin test/fixtures/coverage-lisa.bin
   COMMAND ${CMAKE_COMMAND} -E compare_files
           test/fixtures/coverage-merlin.bin test/fixtures/coverage-ca65.bin
+  COMMAND ${CMAKE_COMMAND} -E compare_files
+          test/fixtures/rel-code-merlin.bin test/fixtures/rel-code-merlin32.bin
+  COMMAND ${CMAKE_COMMAND} -E compare_files
+          test/fixtures/rel-code-merlin.bin test/fixtures/rel-code-orca.bin
+  COMMAND ${CMAKE_COMMAND} -E compare_files
+          test/fixtures/rel-code-merlin.bin test/fixtures/rel-code-apw.bin
+  COMMAND ${CMAKE_COMMAND} -E compare_files
+          test/fixtures/rel-code-merlin.bin test/fixtures/rel-code-lisa.bin
+  COMMAND ${CMAKE_COMMAND} -E compare_files
+          test/fixtures/rel-code-merlin.bin test/fixtures/rel-code-ca65.bin
+  COMMAND ${CMAKE_COMMAND} -E compare_files
+          test/fixtures/rel-data-merlin.bin test/fixtures/rel-data-merlin32.bin
+  COMMAND ${CMAKE_COMMAND} -E compare_files
+          test/fixtures/rel-data-merlin.bin test/fixtures/rel-data-orca.bin
+  COMMAND ${CMAKE_COMMAND} -E compare_files
+          test/fixtures/rel-data-merlin.bin test/fixtures/rel-data-apw.bin
+  COMMAND ${CMAKE_COMMAND} -E compare_files
+          test/fixtures/rel-data-merlin.bin test/fixtures/rel-data-lisa.bin
+  COMMAND ${CMAKE_COMMAND} -E compare_files
+          test/fixtures/rel-data-merlin.bin test/fixtures/rel-data-ca65.bin
 )
 
 add_custom_target(fixtures
-  COMMAND $<TARGET_FILE:qasm> ${COVERAGE_SOURCES}
+  COMMAND $<TARGET_FILE:qasm> ${COVERAGE_SOURCES} ${REL_CODE_SOURCES} ${REL_DATA_SOURCES}
   ${COVERAGE_COMPARE}
   DEPENDS qasm
   WORKING_DIRECTORY ${QASM_ROOT}
@@ -70,12 +230,16 @@ add_custom_target(fixtures
 add_custom_target(test
   COMMAND $<TARGET_FILE:test_qasm>
   COMMAND $<TARGET_FILE:qasm> test/fixtures/hello.s test/test.s
-  COMMAND $<TARGET_FILE:qasm> ${COVERAGE_SOURCES}
+  COMMAND $<TARGET_FILE:qasm> ${COVERAGE_SOURCES} ${REL_CODE_SOURCES} ${REL_DATA_SOURCES}
   ${COVERAGE_COMPARE}
-  DEPENDS qasm test_qasm
+  COMMAND $<TARGET_FILE:test_qlink>
+  COMMAND ${CMAKE_COMMAND} -E env MAKEBIN=$<TARGET_FILE:makeBin> $<TARGET_FILE:test_makebin>
+  COMMAND ${CMAKE_COMMAND} -E env QOMF=$<TARGET_FILE:qomf> $<TARGET_FILE:test_qomf>
+  COMMAND ${CMAKE_COMMAND} -E env QPRO=$<TARGET_FILE:qpro> $<TARGET_FILE:test_qpro>
+  DEPENDS qasm test_qasm test_qlink test_makebin test_qomf test_qpro qlink makeBin qomf qpro
   WORKING_DIRECTORY ${QASM_ROOT}
   USES_TERMINAL
-  COMMENT "Run unit tests, sample assembly, and coverage fixtures"
+  COMMENT "Run unit tests, sample assembly, coverage fixtures, and the linker"
 )
 
 set(QASM_CLEAN_FILES
@@ -86,12 +250,142 @@ set(QASM_CLEAN_FILES
   ${QASM_ROOT}/test/test.lst
   ${QASM_ROOT}/test/test.pcode
 )
-foreach(src ${COVERAGE_SOURCES})
+foreach(src ${COVERAGE_SOURCES} ${REL_CODE_SOURCES} ${REL_DATA_SOURCES})
   string(REGEX REPLACE "\\.s$" "" stem "${src}")
   list(APPEND QASM_CLEAN_FILES
     ${QASM_ROOT}/${stem}.bin
     ${QASM_ROOT}/${stem}.lst
     ${QASM_ROOT}/${stem}.pcode
+    ${QASM_ROOT}/${stem}.o
   )
 endforeach()
+foreach(out apple.omf apple-orca.omf apple-ca65.omf apple-apw.omf prog.omf
+            proglib.omf gap.omf merged.omf runtime.lib bad.omf)
+  list(APPEND QASM_CLEAN_FILES ${QASM_ROOT}/test/fixtures/${out})
+endforeach()
+# ProDOS 8 disk that boots BASIC.SYSTEM. Not part of `all` or `test`.
+# Intermediates stay in build/boot. The image and the two SYS files land in bin/.
+# `make boot` deletes those and builds the boot.2mg target.
+set(BOOT_DIR ${QASM_ROOT}/build/boot)
+set(BOOT_BIN ${QASM_ROOT}/bin)
+set(P8_MLI ${QASM_ROOT}/IIGS.601.SRC/GS.OS/P8/MliSrc.aii)
+set(P8_RAM ${QASM_ROOT}/IIGS.601.SRC/GS.OS/P8/P8.Drivers/Ram.n)
+set(P8_CLOCK ${QASM_ROOT}/IIGS.601.SRC/GS.OS/P8/P8.Drivers/CClock.n)
+set(BS_DIR ${QASM_ROOT}/IIGS.601.SRC/BASIC.SYSTEM)
+set(BOOT_PACK ${QASM_ROOT}/boot/pack.py)
+
+add_custom_command(
+  OUTPUT ${BOOT_DIR}/mli.lst ${BOOT_DIR}/mli.bin
+  COMMAND ${CMAKE_COMMAND} -E make_directory ${BOOT_DIR}
+  COMMAND $<TARGET_FILE:qasm> --syntax apw -I ${QASM_ROOT}/boot/inc
+          -l ${BOOT_DIR}/mli.lst -o ${BOOT_DIR}/mli.bin ${P8_MLI}
+  DEPENDS qasm ${P8_MLI}
+          ${QASM_ROOT}/boot/inc/e16.memory ${QASM_ROOT}/boot/inc/M16.UTIL
+  WORKING_DIRECTORY ${QASM_ROOT}
+  COMMENT "Assemble the ProDOS 8 kernel"
+  VERBATIM
+)
+
+add_custom_command(
+  OUTPUT ${BOOT_DIR}/ram.lst ${BOOT_DIR}/ram.bin
+  COMMAND ${CMAKE_COMMAND} -E make_directory ${BOOT_DIR}
+  COMMAND $<TARGET_FILE:qasm> --syntax apw
+          -l ${BOOT_DIR}/ram.lst -o ${BOOT_DIR}/ram.bin ${P8_RAM}
+  DEPENDS qasm ${P8_RAM}
+  WORKING_DIRECTORY ${QASM_ROOT}
+  COMMENT "Assemble the ProDOS 8 RAM driver"
+  VERBATIM
+)
+
+add_custom_command(
+  OUTPUT ${BOOT_DIR}/clock.lst ${BOOT_DIR}/clock.bin
+  COMMAND ${CMAKE_COMMAND} -E make_directory ${BOOT_DIR}
+  COMMAND $<TARGET_FILE:qasm> --syntax apw
+          -l ${BOOT_DIR}/clock.lst -o ${BOOT_DIR}/clock.bin ${P8_CLOCK}
+  DEPENDS qasm ${P8_CLOCK}
+  WORKING_DIRECTORY ${QASM_ROOT}
+  COMMENT "Assemble the ProDOS 8 GS clock driver"
+  VERBATIM
+)
+
+add_custom_command(
+  OUTPUT ${BOOT_BIN}/PRODOS
+  COMMAND ${CMAKE_COMMAND} -E make_directory ${BOOT_BIN}
+  COMMAND python3 ${BOOT_PACK} prodos ${BOOT_BIN}/PRODOS
+          ${BOOT_DIR}/mli.lst ${BOOT_DIR}/ram.lst ${BOOT_DIR}/clock.lst
+  DEPENDS ${BOOT_PACK} ${BOOT_DIR}/mli.lst ${BOOT_DIR}/ram.lst ${BOOT_DIR}/clock.lst
+  WORKING_DIRECTORY ${QASM_ROOT}
+  COMMENT "Pack PRODOS"
+  VERBATIM
+)
+
+add_custom_command(
+  OUTPUT ${BOOT_DIR}/basic.s
+  COMMAND ${CMAKE_COMMAND} -E make_directory ${BOOT_DIR}
+  COMMAND python3 ${BOOT_PACK} join-basic -o ${BOOT_DIR}/basic.s
+          ${BS_DIR}/LOADER ${BS_DIR}/MAIN ${BS_DIR}/GLOBALS
+  DEPENDS ${BOOT_PACK} ${BS_DIR}/LOADER ${BS_DIR}/MAIN ${BS_DIR}/GLOBALS
+  WORKING_DIRECTORY ${QASM_ROOT}
+  COMMENT "Join BASIC.SYSTEM"
+  VERBATIM
+)
+
+add_custom_command(
+  OUTPUT ${BOOT_DIR}/basic.lst ${BOOT_DIR}/basic.bin
+  COMMAND $<TARGET_FILE:qasm> --syntax apw -I ${BS_DIR}
+          -l ${BOOT_DIR}/basic.lst -o ${BOOT_DIR}/basic.bin ${BOOT_DIR}/basic.s
+  DEPENDS qasm ${BOOT_DIR}/basic.s ${BS_DIR}/EQUATES
+  WORKING_DIRECTORY ${QASM_ROOT}
+  COMMENT "Assemble BASIC.SYSTEM"
+  VERBATIM
+)
+
+add_custom_command(
+  OUTPUT ${BOOT_BIN}/BASIC.SYSTEM
+  COMMAND ${CMAKE_COMMAND} -E make_directory ${BOOT_BIN}
+  COMMAND python3 ${BOOT_PACK} basic ${BOOT_BIN}/BASIC.SYSTEM ${BOOT_DIR}/basic.lst
+          --oracle ${BS_DIR}/BASIC.SYSTEM
+  DEPENDS ${BOOT_PACK} ${BOOT_DIR}/basic.lst ${BS_DIR}/BASIC.SYSTEM
+  WORKING_DIRECTORY ${QASM_ROOT}
+  COMMENT "Pack BASIC.SYSTEM"
+  VERBATIM
+)
+
+add_custom_command(
+  OUTPUT ${BOOT_DIR}/p8boot.lst ${BOOT_DIR}/p8boot.bin
+  COMMAND ${CMAKE_COMMAND} -E make_directory ${BOOT_DIR}
+  COMMAND $<TARGET_FILE:qasm> --syntax merlin
+          -l ${BOOT_DIR}/p8boot.lst -o ${BOOT_DIR}/p8boot.bin
+          ${QASM_ROOT}/boot/p8boot.s
+  DEPENDS qasm ${QASM_ROOT}/boot/p8boot.s
+  WORKING_DIRECTORY ${QASM_ROOT}
+  COMMENT "Assemble the ProDOS 8 boot block"
+  VERBATIM
+)
+
+add_custom_command(
+  OUTPUT ${BOOT_BIN}/boot.2mg
+  COMMAND ${CMAKE_COMMAND} -E rm -f ${BOOT_DIR}/image.2mg ${BOOT_BIN}/boot.2mg
+  COMMAND $<TARGET_FILE:qpro> create ${BOOT_DIR}/image.2mg -name BASIC -size 800k
+  COMMAND $<TARGET_FILE:qpro> boot ${BOOT_DIR}/image.2mg ${BOOT_DIR}/p8boot.bin
+  COMMAND $<TARGET_FILE:qpro> add ${BOOT_DIR}/image.2mg PRODOS ${BOOT_BIN}/PRODOS -t FF -a 0000
+  COMMAND $<TARGET_FILE:qpro> add ${BOOT_DIR}/image.2mg BASIC.SYSTEM ${BOOT_BIN}/BASIC.SYSTEM -t FF -a 2000
+  COMMAND python3 ${BOOT_PACK} check ${BOOT_DIR}/image.2mg
+          ${BOOT_BIN}/PRODOS ${BOOT_BIN}/BASIC.SYSTEM
+  COMMAND ${CMAKE_COMMAND} -E copy ${BOOT_DIR}/image.2mg ${BOOT_BIN}/boot.2mg
+  DEPENDS qpro ${BOOT_PACK} ${BOOT_BIN}/PRODOS ${BOOT_BIN}/BASIC.SYSTEM ${BOOT_DIR}/p8boot.bin
+  WORKING_DIRECTORY ${QASM_ROOT}
+  COMMENT "Build boot.2mg"
+  VERBATIM
+)
+
+add_custom_target(prodos DEPENDS ${BOOT_BIN}/PRODOS)
+add_custom_target(basic.system DEPENDS ${BOOT_BIN}/BASIC.SYSTEM)
+add_custom_target(boot.2mg DEPENDS ${BOOT_BIN}/boot.2mg)
+
+list(APPEND QASM_CLEAN_FILES
+  ${BOOT_BIN}/PRODOS
+  ${BOOT_BIN}/BASIC.SYSTEM
+  ${BOOT_BIN}/boot.2mg
+)
 set_property(DIRECTORY APPEND PROPERTY ADDITIONAL_CLEAN_FILES ${QASM_CLEAN_FILES})
diff --git a/IIGS.601.SRC/A.U.G/ADU/BuildADU b/IIGS.601.SRC/A.U.G/ADU/BuildADU
new file mode 100644
index 0000000..3abad8e
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/ADU/BuildADU
@@ -0,0 +1 @@
+tmlpascal initintfdata.pii
asmiigs   initintfdata.pii.aii
tmlpascal InitIntfProc.pii
asmiigs   InitIntfProc.pii.aii
tmlpascal InitIntfPDOS.pii
asmiigs   InitIntfPDOS.pii.aii
tmlpascal ListMgr.pii
asmiigs   ListMgr.pii.aii
tmlpascal Globals.pii
asmiigs   Globals.pii.aii
tmlpascal Utils.pii
asmiigs	  Utils.pii.aii
tmlpascal Guts.pii
asmiigs	  Guts.pii.aii
tmlpascal Dialog.pii
asmiigs   Dialog.pii.aii
tmlpascal Menu.pii
asmiigs   Menu.pii.aii
tmlpascal Event.pii
asmiigs   Event.pii.aii
tmlpascal Init.pii
asmiigs   Init.pii.aii
asmiigs   OS.aii
asmiigs   Data.aii


linkiigs -l -s >map ¶
		 -lseg Darryl:$1000 ¶
		 Init.pii.aii.obj ¶
		 Utils.pii.aii.obj ¶
		 Guts.pii.aii.obj ¶
		 Dialog.pii.aii.obj ¶
		 Menu.pii.aii.obj ¶
		 Event.pii.aii.obj ¶
		 OS.aii.obj ¶
		 Globals.pii.aii.obj ¶
		 Data.aii.obj ¶
		 "{PIIGSLibrary}PIIGSRuntime.obj" ¶
		 -lib "{PIIGSLibrary}PIIGSRuntime.obj" ¶
		 -at $db03 ¶
		 -o ADV.DISK.UTIL


### Copy file to a IIGS disk
DuplicateIIGS -y -mac ADV.DISK.UTIL :

\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/ADU/Changes & To Do b/IIGS.601.SRC/A.U.G/ADU/Changes & To Do
new file mode 100644
index 0000000..da91655
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/ADU/Changes & To Do	
@@ -0,0 +1 @@
+=========================== CHANGES FOR 1.1D2 ==========================

¥ Changed version # to 1.1d5
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/ADU/Data.aii b/IIGS.601.SRC/A.U.G/ADU/Data.aii
new file mode 100644
index 0000000..22dbc00
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/ADU/Data.aii
@@ -0,0 +1 @@
+;################################################################
;#								#
;#  File:	Data.Asm from IIGS Disk Initializer		#
;#								#
;#--------------------------------------------------------------#
;#								#
;#  Description:  This file has all the global data used by	#
;#		  the IIGS disk initializer			#
;#								#
;#--------------------------------------------------------------#
;#								#
;#  Author:	Darryl Lovato					#
;#								#
;#--------------------------------------------------------------#
;#								#
;#  Copyright:	1987,1988 by Apple Computer Inc.		#
;#		All rights reserved.				#
;#								#
;#--------------------------------------------------------------#
;#								#
;#  Modification History:					#
;#								#
;#	Who	When	The Change				#
;#	---	------	-------------------------------------	#
;#	SR	12/7/87	Created v.1 - erase & init only		#
;#	DGL	1/29/88 Rewrote everything - cut size in half!  #
;#	DGL	5/9/88	Finished Adding Partition Support	#
;#			and other features... far too many to	#
;#			list here...				#
;#	DGL	6/1/88  Alpha!					#
;#	DGL	6/13/88 Alpha 2					#
;#	DGL	6/24/88 Alpha 3					#
;#	DGL	7/1/88  Beta 1					#
;#	DGL	7/13/88 Beta 2					#
;#	DGL	7/20/88	Beta 3					#
;#	DGL	7/27/88	Beta 4					#
;#	DGL	8/1/88	Beta 5					#
;#	DGL	8/8/88	Beta 6					#
;#	DGL	8/15/88 Final!					#
;#								#
;################################################################

		STRING	ASIS
		;BLANKS	OFF
		BLANKS	ON
		MACHINE	M65816
		LONGA	on
		LONGI	on

;################################################################
;#   			Imported addresses			#
;################################################################

	IMPORT	AboutItem2,AboutItem3,AboutItem5,AboutItem6
	IMPORT	AboutItem7,AboutItem8,AboutItem9,DOS,DiskItem1
	IMPORT	DiskItem2,DiskItem3,InfoAvail,InfoDevName
	IMPORT	InfoFileSys,InfoItem1,InfoItem10,InfoItem11
	IMPORT	InfoItem12,InfoItem2,InfoItem3,InfoItem4
	IMPORT	InfoItem5,InfoItem6,InfoItem7,InfoItem8
	IMPORT	InfoItem9,InfoParts,InfoUsed,InfoVolume
	IMPORT	InitItem10,InitItem11,InitItem2,Item3Str
	IMPORT	L,PartDel,PartInit,PartItem2,PartItem3,PartItem4
	IMPORT	PartItem6,PartItem7,PartItem8,PartItem9,PartNew
	IMPORT	ScrollAction,ScrollCTbl,WarningCancel,WarningItem1
	IMPORT	WarningItem2,WarningOK,emptystr,miscstr,miscstr1

		EXPORT	Data	
Data	PROC

;################################################################
;#			string macro				#
;################################################################

 	MACRO
	str	&string
		lclc	&sset
&sset	SETC &SETTING('STRING')
		STRING PASCAL
		dc.B &string
		STRING &sset
	MEND

;################################################################
;#			version macro				#
;################################################################

 	MACRO
&lab	Version
	lclc	&sset
&sset	SETC &SETTING('STRING')
	STRING ASIS
&lab	DC.B	'1.2'	;maintain version string here and in "adu.rii"
	STRING &sset
	MEND

;################################################################
;#		Table for getting the File System ID String	#
;################################################################

		EXPORT	FileSysStrTbl
FileSysStrTbl	
	DC.L	FS1
	DC.L	FS2
	DC.L	FS3
	DC.L	FS4
	DC.L	FS5
	DC.L	FS6
	DC.L	FS7
	DC.L	FS8
	DC.L	FS9
	DC.L	FSA
	DC.L	FSB
	DC.L	FSC
		EXPORT	unknownptr
unknownptr
	DC.L	unknown
	
FS1	str	'ProDOS'
FS2	str	'DOS 3.3'
FS3	str	'DOS 3.1, 3.2'
FS4	str	'Apple II Pascal'
FS5	str	'Macintosh MFS'
FS6	str	'HFS'
FS7	str	'LISA'
FS8	str	'Apple CP/M'
FS9	str	'Character FST'
FSA	str	'MS/DOS'
FSB	str	'High Sierra'
FSC	str	'Apple File Server'
unknown	str	'Unknown File System'

		EXPORT drvrProcessor
drvrProcessor	;	Table of pointer to processor ID strings for
		;	drver partition entries in partition map

		dc.l drvrStr1
		dc.l drvrStr2
		dc.l drvrStr3
		dc.l drvrStr4

		STRING PASCAL

drvrStr1	dc.b '68000'
drvrStr2	dc.b '68XXX'
drvrStr3	dc.b '68XXX'
drvrStr4	dc.b '65XXX'

		STRING ASIS

		EXPORT OpenPBlk
OpenPBlk	; Param block to open files

		dc.w $000C	;pcount through eof
		ds.w 1		;ref num
		ds.l 1		;path pointer
		dc.w $0001	;req access = read-only
		dc.w $0000	;res num = data fork
		ds.w 1		;return access
		ds.w 1		;returned filetype
		ds.l 1		;returned auxtype
		ds.w 1		;returned storage type
		ds.b 8		;create time/date
		ds.b 8		;mod time/date
		dc.l $00000000	;option list ptr
		ds.l 1		;eof

		EXPORT drvrPath
drvrPath	;expected path of generic boot driver file
		dc.w @end-@start
@start
		dc.b '*:SYSTEM:DRIVERS:GenericMacSCSI'
@end

		EXPORT ReadPBlk
ReadPBlk	; Param block to read from file

		dc.w $0004	;pcount through transfer count
		ds.w 1		;ref num
		ds.l 1		;data buffer
		ds.l 1		;req count
		ds.l 1		;transfer count

		EXPORT ClosePBlk
ClosePBlk	; Param block to close file

		dc.w $0001	;pcount
		ds.w 1		;ref num


;################################################################
;#			INFO Dialog Template			#
;################################################################

		EXPORT	InfoDITL
InfoDITL
	DC.W	30,110,142,530	; rect
	DC.W	$FF		; visible
	DC.L	$1002		; ref con
	DC.L	InfoItem1	; ptr to the first item
	DC.L	InfoItem2	; ptr to the 2nd item
	DC.L	InfoItem3	; ptr to the 3rd item
	DC.L	InfoItem4	; ptr to the 4th item
	DC.L	InfoItem5	; ptr to the 5th item
	DC.L	InfoItem6	; ptr to the 6th item
	DC.L	InfoItem7	; ptr to the 7th item
	DC.L	InfoItem8	; ptr to the 8th item
	DC.L	InfoItem9	; ptr to the 9th item
	DC.L	InfoItem10	; ptr to the 10th item
	DC.L	InfoItem11	; ptr to the 11th item
	DC.L	InfoItem12	; ptr to the 12th item
	DC.L	0		; terminator
InfoItem1
	DC.W	1		; item 1
	DC.W	90,20,104,100	; rect
	DC.W	10		; button item constant
	DC.L	WarningOK	; address of our first global str
	DC.W	0		; item value
	DC.W	0		; item flag
	DC.L	0		; item color
InfoItem2
	DC.W	2		; item 2
	DC.W	5,125,15,220	; rect
	DC.W	15		; stat text item constant
	DC.L	InfoVolume	; re-use OK above
	DC.W	0		; item value
	DC.W	0		; item flag
	DC.L	0		; item color
InfoVolume
	str	'Disk:'
InfoItem3
	DC.W	3		; item 3
	DC.W	15,125,25,220	; rect
	DC.W	15		; stat text item constant
	DC.L	InfoUsed	; re-use OK above
	DC.W	0		; item value
	DC.W	0		; item flag
	DC.L	0		; item color
InfoUsed
	str	'Used:'
InfoItem4
	DC.W	4		; item 4
	DC.W	25,125,35,220	; rect
	DC.W	15		; stat text item constant
	DC.L	InfoAvail	; re-use OK above
	DC.W	0		; item value
	DC.W	0		; item flag
	DC.L	0		; item color
InfoAvail
	str	'Available:'
InfoItem5
	DC.W	5		; item 5
	DC.W	35,125,45,220	; rect
	DC.W	15		; stat text item constant
	DC.L	InfoFileSys	; re-use OK above
	DC.W	0		; item value
	DC.W	0		; item flag
	DC.L	0		; item color
InfoFileSys
	str	'File system:'
InfoItem6
	DC.W	6		; item 6
	DC.W	45,125,55,220	; rect
	DC.W	15		; stat text item constant
	DC.L	InfoDevName	; re-use OK above
	DC.W	0		; item value
	DC.W	0		; item flag
	DC.L	0		; item color
InfoDevName
	str	'Device name:'
InfoItem7
	DC.W	7		; item 7
	DC.W	55,125,65,220	; rect
	DC.W	15		; stat text item constant
	DC.L	InfoParts	; re-use OK above
	DC.W	0		; item value
	DC.W	0		; item flag
	DC.L	0		; item color
InfoParts
	str	'Partitions:'


;	these items get calculated

InfoItem8
	DC.W	8		; item 8
	DC.W	5,220,15,620	; rect
	DC.W	15		; stat text item constant
	DC.L	emptystr	; re-use OK above
	DC.W	0		; item value
	DC.W	0		; item flag
	DC.L	0		; item color
emptystr
	str	''
InfoItem9
	DC.W	9		; item 9
	DC.W	15,220,25,620	; rect
	DC.W	15		; stat text item constant
	DC.L	emptystr	; re-use OK above
	DC.W	0		; item value
	DC.W	0		; item flag
	DC.L	0		; item color

InfoItem10
	DC.W	10		; item 10
	DC.W	25,220,35,620	; rect
	DC.W	15		; stat text item constant
	DC.L	emptystr	; re-use OK above
	DC.W	0		; item value
	DC.W	0		; item flag
	DC.L	0		; item color

InfoItem11
	DC.W	11		; item 11
	DC.W	35,220,45,620	; rect
	DC.W	15		; stat text item constant
	DC.L	emptystr	; re-use OK above
	DC.W	0		; item value
	DC.W	0		; item flag
	DC.L	0		; item color

InfoItem12
	DC.W	12		; item 12
	DC.W	45,220,55,620	; rect
	DC.W	15		; stat text item constant
	DC.L	emptystr	; re-use OK above
	DC.W	0		; item value
	DC.W	0		; item flag
	DC.L	0		; item color
	
;################################################################
;#		Tool Table for load tools			#
;################################################################

		EXPORT	ToolRec
ToolRec
	dc.w	0		;flags
	dc.w	$C080		;QuickDraw SCB & flags
	dc.w	0		;return res file ID
	dc.l	0		;return handle to tools dp
	DC.W	12		;# of tool entries following
	DC.W	1,0		;Tool Locator
	DC.W	4,0		;QuickDraw
	DC.W	5,0		;Desk Manager
	DC.W	6,0		;Event Manager
	DC.W	14,0		;Window Manager
	DC.W	15,0		;Menu Manager
	DC.W	16,0		;Control Manager
	DC.W	18,0		;QD Aux
	DC.W	20,0		;LineEdit
	DC.W	21,0		;Dialog Manager
	DC.W	22,0		;Scrap Manager
	DC.W	28,0		;List Manager

;################################################################
;#			Apple Menu				#
;################################################################

		EXPORT	AppleMenuStr
AppleMenuStr
	DC.B	'>>@\N300X'
	DC.B	0
	DC.B	'==About Adv. Disk Util...\N301'
	DC.B	0
	DC.B	'==-\N408D'
	DC.B	0
	DC.B	'.'

;################################################################
;#			File Menu				#
;################################################################

		EXPORT	FileMenuStr
FileMenuStr
	DC.B	'>>  File  \N400'
	DC.B	0

	DC.B	'==Close\N255*Ww'
	DC.B	0

	DC.B	'==-\N401D'
	DC.B	0

	; Init/Erase item removed 3/6/91 by Monte Benaresh
	;DC.B	'==Initialize/Erase\N401*Ii'
	;DC.B	0
	;DC.B	'==-\N408D'
	;DC.B	0

	DC.B	'==Quit\N409*Qq'
	DC.B	0
	DC.B	'.'

;################################################################
;#			Edit Menu				#
;################################################################

		EXPORT	EditMenuStr
EditMenuStr
	DC.B	'>>  Edit  \N900D'
	DC.B	0
	DC.B	'==Undo\N950*Zz'
	DC.B	0
	DC.B	'==-\N901D'
	DC.B	0
	DC.B	'==Cut\N951*Xx'
	DC.B	0
	DC.B	'==Copy\N952*Cc'
	DC.B	0
	DC.B	'==Paste\N953*Vv'
	DC.B	0
	DC.B	'==Clear\N954'
	DC.B	0

;################################################################
;#		Partition Dialog Template			#
;################################################################

		EXPORT	PartDITL
PartDITL
	DC.W	28,56,186,584	; rect
	DC.W	$FF		; visible
	DC.L	$1006		; ref con
	DC.L	PartItem2	; Item 2
	DC.L	PartItem3	; Item 3
	DC.L	PartItem4	; Item 4
	DC.L	PartItem5	; Item 5
	DC.L	PartItem6	; Item 6
	DC.L	PartItem7	; Item 7
	DC.L	PartItem8	; Item 8
	DC.L	PartItem9	; Item 9
	DC.L	0		; nil terminator
PartItem9
	DC.W	9		; item #
	DC.W	136,20,149,130	; rect
	DC.W	$000A		; button item constant
	DC.L	PartInit	; address of our str
	DC.W	0		; item value
	DC.W	0		; item flag
	DC.L	0		; item color
PartInit
	str	'Partition' 	; Init string
PartItem2
	DC.W	2		; item 2
	DC.W	121,20,134,130	; rect
	DC.W	$000A		; statictext item constant
	DC.L	WarningCancel	; address of our first global str
	DC.W	0		; item value
	DC.W	0		; item flag
	DC.L	0		; item color
PartItem3
	DC.W	3		; item 3
	DC.W	67,20,80,226	; rect
	DC.W	$0011		; LineEdit item constant
	DC.L	Item3Str	; nil str
	DC.W	15		; item value
	DC.W	0		; item flag
	DC.L	0		; item color
item3Str
	str	'                         ' ; place holder
PartItem4 ; partitions size
	DC.W	4		; item 4
		EXPORT	InvRect
InvRect		;		
	DC.W	93,143,149,175	; rect
	DC.W	$000D		; scroll bar item constant
	DC.L	ScrollAction	; address of our scroll bar proc
	DC.W	0		; item value
	DC.W	3		; item flag
	DC.L	ScrollCTbl	; item color
ScrollCTbl
	DC.W	$0000		; bar outline = black
	DC.W	$00F0		; unhilited arrow = white back; black front
	DC.W	$00F0		; hilited arrow = black fore, white back
	DC.W	$00F0		; arrow background = white
		EXPORT	ScrollColor
ScrollColor
	DC.W	$00DD		; unhilited thumb = color of ctl
		EXPORT	ScrollColor1
ScrollColor1
	DC.W	$00DD		; hilited thumb = color of ctl
	DC.W	$01F0		; pageRgn = dithered blue
	DC.W	$00F0		; inactive control = white

		EXPORT	scrollArray

scrollArray
	DC.W	$0000,$DDDD,$EEEE,$BBBB,$7777,$1111,$2222
	DC.W	$3333,$4444,$5555,$6666,$8888,$9999,$AAAA

PartItem6
	DC.W	6		; item 6
	DC.W	85,20,98,130	; rect
	DC.W	$000A		; button item constant
	DC.L	PartNew		; address of our str
	DC.W	0		; item value
	DC.W	0		; item flag
	DC.L	0		; item color
PartNew
	str	'New' 		; Init string
PartItem7
	DC.W	7		; item 7
	DC.W	100,20,113,130	; rect
	DC.W	$000A		; button item constant
	DC.L	PartDel		; address of our str
	DC.W	0		; item value
	DC.W	0		; item flag
	DC.L	0		; item color
PartDel
	str	'Delete' 	; Init string
PartItem8
	DC.W	8		; item 4
	DC.W	83,143,93,220	; rect
	DC.W	$000F		; stat text item constant
	DC.L	Name8		; re-use OK above
	DC.W	0		; item value
	DC.W	0		; item flag
	DC.L	0		; item color
Name8	str	'- Size -'
PartItem5
	DC.W	5		; item 5
	DC.W	116,180,126,230	; rect
	DC.W	$000F		; stat text item constant
	DC.L	Item5Str	; null str
	DC.W	0		; item value
	DC.W	0		; item flag
	DC.L	0		; item color
item5Str str	'       ' ; make room for chars here

;################################################################
;#			Warning Dialog Template			#
;################################################################

		EXPORT	WarningAlert
WarningAlert
	DC.W	30,110,100,530	; rect
	DC.W	1500		; alert id
	DC.B	$80		; stage 1
	DC.B	$80		; stage 2
	DC.B	$80		; stage 3
	DC.B	$80		; stage 4
	DC.L	WarningItem1	; ptr to the first item
	DC.L	WarningItem2	; ptr to the 2nd item
	DC.L	WarningItem3	; ptr to the 3rd item
	DC.L	0		; nil terminator!
WarningItem1
	DC.W	1		; item 1
	DC.W	50,190,64,285	; rect
	DC.W	10		; button item constant
	DC.L	WarningCancel	; address of our first global str
	DC.W	0		; item value
	DC.W	0		; item flag
	DC.L	0		; item color
WarningCancel
	str	'Cancel'	; Cancel string
WarningItem2
	DC.W	2		; item 2
	DC.W	50,295,64,380	; rect
	DC.W	10		; button item constant
	DC.L	WarningOK	; address of our first global str
	DC.W	0		; item value
	DC.W	0		; item flag
	DC.L	0		; item color
WarningOK
	str	'OK'		; OK string
		EXPORT	WarningItem3
WarningItem3
	DC.W	3		; item 3 
	DC.W	11,72,50,410	; rect
	DC.W	22+$8000	; longstatictext item constant
	DC.L	0		; address of our first global str
	DC.W	0		; item value
	DC.W	0		; item flag
	DC.L	0		; item color
	
;################################################################
;#		Disk Name Dialog Template			#
;################################################################

		EXPORT	DiskNameDlog
DiskNameDlog
	DC.W	30,165,95,475	; rect
	DC.W	$FF		; visible
	DC.L	$1003		; ref con
	DC.L	DiskItem1	; Item 1
	DC.L	DiskItem2	; Item 1
	DC.L	DiskItem3	; Item 1
	DC.L	DiskItem4	; Item 1
	DC.L	0		; nil terminator
DiskItem1
	DC.W	1		; item 1
	DC.W	45,130,59,225	; rect
	DC.W	10		; button item constant
	DC.L	WarningOK	; re-use OK above
	DC.W	0		; item value
	DC.W	0		; item flag
	DC.L	0		; item color
DiskItem2
	DC.W	2		; item 2
	DC.W	45,25,59,120	; rect
	DC.W	10		; button item constant
	DC.L	WarningCancel	; re-use Cancel above
	DC.W	0		; item value
	DC.W	0		; item flag
	DC.L	0		; item color
DiskItem3
	DC.W	3		; item 3
	DC.W	23,10,37,290	; rect
	DC.W	17		; edit line constant
		EXPORT	DefName
DefName
	DC.L	0
	DC.W	15		; item value - only allow 15 chars
	DC.W	0		; item flag
	DC.L	0		; item color
NilStr	DC.B	0		; nil string!
DiskItem4
	DC.W	4		; item 4
	DC.W	5,10,20,275	; rect
	DC.W	15		; stat text item constant
	DC.L	GetName		; re-use OK above
	DC.W	0		; item value
	DC.W	0		; item flag
	DC.L	0		; item color
GetName	str	'Please name this disk.'


;################################################################
;#			About Dialog Template			#
;################################################################

		EXPORT	AboutDITL
AboutDITL
	DC.W	35,126,165,515	; rect
	DC.W	$FFFF		; visible
	DC.L	$1005		; ref con
	DC.L	AboutItem1	; Item 1
	DC.L	AboutItem2	; Item 2
	DC.L	0		; nil terminator
AboutItem1
	DC.W	2		; item 1
	DC.W	10,18,100,370	; rect
	DC.W	22+$8000	; long static text + item disable item constant
	DC.L	AppleIIGS	; IIGS str
	DC.W	EndAppleIIGS-AppleIIGS		; item value
	DC.W	0		; item flag
	DC.L	0		; item color
AboutItem2
	DC.W	1		; item 1
	DC.W	106,147,120,241	; rect
	DC.W	10		; button item constant
	DC.L	WarningOK	; re-use OK above
	DC.W	0		; item value
	DC.W	0		; item flag
	DC.L	0		; item color
AppleIIGS
	DC.B	1
	DC.B	'J'
	DC.B	1
	DC.B	' Advanced Disk Utility ',13
	DC.B	'Version '
	Version			;insert version text
	dc.b	13,13
	DC.B	'By Darryl Lovato',13,13
	dc.b	'Updated by Monte Benaresh',13,13
	DC.B	'Copyright (c) 1988-1992 Apple Computer, Inc.',13
	DC.B	'All rights reserved.',13
EndAppleIIGS


		EXPORT hardFmtAlrt
hardFmtAlrt			;AlertWindow string to ask user whether he wants
				;to hard-format a device

	dc.b '8'		;size of window
	dc.b '3'		;note icon
	dc.b '/'		;separator
	dc.b 'Do you wish to hard-format this disk?  '
	dc.b $0D, $0D
	dc.b 'Hard formatting assures optimal performance and reliability '
	dc.b 'of your hard disk, but may take up to 20 minutes.'
	dc.b '/'
	dc.b '#1'		;standard "Cancel" button
	dc.b '/'
	dc.b '^'		;default button next
	dc.b '#3'		;standard "No" button
	dc.b '/'
	dc.b '#2'		;standard "Yes" button
	dc.b 0


		EXPORT macConnectAlrt
macConnectAlrt			;AlertWindow string to ask user whether he ever
				;wants to connect hard disk to a Mac

	dc.b '8'		;size of window
	dc.b '3'		;note icon
	dc.b '/'		;separator
	dc.b 'Do you plan to connect this disk to a Macintosh computer?  '
	dc.b $0D, $0D
	dc.b 'Special formatting is required for Macintosh compatibility '
	dc.b 'and takes up about 128K on your hard disk.'
	dc.b '/'
	dc.b '#3'		;standard "No" button
	dc.b '/'
	dc.b '^'		;default button next
	dc.b '#2'		;standard "Yes" button
	dc.b 0


		EXPORT zeroAlrt
zeroAlrt			;AlertWindow string to comfirm Zero of a disk

	dc.b '4'		;size of window
	dc.b '4'		;caution icon
	dc.b '/'		;separator
	dc.b 'Zeroing will destroy all of the data on this disk '
	dc.b 'and may take a VERY LONG time.  Do you want to '
	dc.b 'zero this disk?'
	dc.b '/'
	dc.b '^'		;default button next
	dc.b '#3'		;standard "No" button
	dc.b '/'
	dc.b 'Zero'
	dc.b 0


		EXPORT partAlrt
partAlrt			;AlertWindow string to comfirm Partition of a disk

	dc.b '4'		;size of window
	dc.b '4'		;caution icon
	dc.b '/'		;separator
	dc.b 'Partitioning will destroy all data on this device.  '
	dc.b 'Do you really want to partition this device?'
	dc.b '/'
	dc.b '^'		;default button next
	dc.b '#1'		;standard "Cancel" button
	dc.b '/'
	dc.b '#0'		;standard "OK" button
	dc.b 0


		EXPORT partLockAlrt
partLockAlrt			;AlertWindow string to comfirm Partition of a disk
				;when a locked partition resides on the device

	dc.b '4'		;size of window
	dc.b '4'		;caution icon
	dc.b '/'		;separator
	dc.b 'Partitioning will destroy all data on this device, '
	dc.b 'including data on one or more locked partitions.  '
	dc.b 'Do you really want to partition this device?'
	dc.b '/'
	dc.b '^'		;default button next
	dc.b '#1'		;standard "Cancel" button
	dc.b '/'
	dc.b '#0'		;standard "OK" button
	dc.b 0


		EXPORT partOpenAlrt
partOpenAlrt			;AlertWindow string to tell user that a
				;partition volume has open files

	dc.b '4'		;size of window
	dc.b '2'		;stop icon
	dc.b '/'		;separator
	dc.b 'This device cannot be partitioned because it '
	dc.b 'contains one or more volumes with open files.'
	dc.b '/'
	dc.b '^'		;default button next
	dc.b '#0'		;standard "OK" button
	dc.b 0


		EXPORT formatErrAlrt
formatErrAlrt			;AlertWindow string to tell user a format
				;error occurred

	dc.b '3'		;size of window
	dc.b '2'		;stop icon
	dc.b '/'		;separator
	dc.b 'Sorry, disk initialization failed.'
	dc.b '/'
	dc.b '^'		;default button next
	dc.b '#0'		;standard "OK" button
	dc.b 0


;################################################################
;#			Misc Strings				#
;################################################################

		EXPORT	okStr
okStr
	str	'OK'
		EXPORT	warningStr
warningStr
	str	'Initializing will erase all of the data on this disk.  Do you want to intitialize this disk?'
		EXPORT	warning2Str
warning2Str
	str	'Erasing will remove all of the data on this disk.  Do you want to erase this disk?'
		;EXPORT	warning3Str
;warning3Str
	;str	'Zeroing will destroy all of the data on this disk and may take a VERY LONG time.  Do you want to zero this disk?'
		;EXPORT	warning4Str
;warning4Str
	;str	'Partitioning will destroy all data on this device.  Do you really want to partition this device?'
		EXPORT	volNameStr
volNameStr
	str	'The disk name is ^0                                ' ; we need the spaces!
		EXPORT	successStr
successStr
	str	'Disk initialization successfully completed.'
		EXPORT	cancelInitStr
cancelInitStr
	str	'Disk initialization was canceled.'
		EXPORT	ReadPartErrStr
ReadPartErrStr
	str	'Partitioning operation failed.  The SCSI Hard Disk could not be read.'
		EXPORT	AtLeastOneCanceled
AtLeastOneCanceled
	str	'Warning! Initialization of one or more disks was canceled.'
		EXPORT	blankStr
blankStr
	str	'  '
		EXPORT	unInitStr
unInitStr
	str	'Uninitialized or no disk in drive'
		;EXPORT	formatErrStr
;formatErrStr
	;str	'The disk could not be initialized.'
		EXPORT	PartErrStr
PartErrStr
	str	'The device could not be partitioned.'
		EXPORT	successpartStr
successpartStr
	str	'Partition operation completed. '
		EXPORT	eraseErrStr
eraseErrStr
	str	'The disk could not be erased.'
		EXPORT	eraseErrOpenStr
eraseErrOpenStr
	str	'That disk can''t be erased because it contains open files.'
		EXPORT	initErrOpenStr
initErrOpenStr
	str	'That disk can''t be initialized because it contains open files.'
		EXPORT	zeroErrOpenStr
zeroErrOpenStr
	str	'That disk can''t be zeroed because it contains open files.'
		EXPORT	zeroingVolFail
zeroingVolFail
	str	'An error occurred while zeroing.'
		EXPORT	startzerovolStr
startzerovolStr
	str	'Setting up buffers for zero operation.'
		EXPORT	eraseSuccStr
eraseSuccStr
	str	'Erase operation successfully completed.'
		EXPORT	noDevicesStr
noDevicesStr
    	str	'No disks on line.'
		EXPORT	cancelPartStr
cancelPartStr
	str	'Partition operation canceled. '
		EXPORT	cancelEraseStr
cancelEraseStr
	str	'Erase operation canceled.'
		EXPORT	cancelZeroStr
cancelZeroStr
	str	'Zero operation canceled.'
		EXPORT	zeroingvolStr
zeroingvolStr
	str	'Zeroing disk... This could take a while.'
		EXPORT	zeroingvolSuccess
zeroingvolSuccess
	str	'Zero operation successfully completed.'
		EXPORT	uninitialized
uninitialized
	str	'Uninitialized'

;################################################################
;#			Floppy Disk Icon Data			#
;################################################################

		EXPORT	FakeArray
FakeArray
		EXPORT	Floppy
Floppy		;		
	DC.B	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	DC.B	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	DC.B	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$FF
	DC.B	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$FF
	DC.B	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	DC.B	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	DC.B	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	DC.B	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	DC.B	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	DC.B	$00,$00,$00,$00,$00,$00,$0F,$FF,$F0,$00,$00,$00,$00,$00,$00
	DC.B	$00,$00,$00,$00,$00,$00,$FF,$FF,$FF,$00,$00,$00,$00,$00,$00
	DC.B	$00,$00,$00,$00,$00,$00,$FF,$FF,$FF,$00,$00,$00,$00,$00,$00
	DC.B	$00,$00,$00,$00,$00,$00,$0F,$FF,$F0,$00,$00,$00,$00,$00,$00
	DC.B	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	DC.B	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	DC.B	$00,$00,$00,$00,$00,$00,$00,$FF,$00,$00,$00,$00,$00,$00,$00
	DC.B	$00,$00,$00,$00,$00,$00,$0F,$FF,$F0,$00,$00,$00,$00,$00,$00
	DC.B	$00,$00,$00,$00,$00,$00,$0F,$FF,$F0,$00,$00,$00,$00,$00,$00
	DC.B	$00,$00,$00,$00,$00,$00,$0F,$FF,$F0,$00,$00,$00,$00,$00,$00
	DC.B	$00,$00,$00,$00,$00,$00,$0F,$FF,$F0,$00,$00,$00,$00,$00,$00
	DC.B	$00,$00,$00,$00,$00,$00,$00,$FF,$00,$00,$00,$00,$00,$00,$00
	DC.B	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00

;################################################################
;#			Ram/Rom Disk Icon Data			#
;################################################################

		EXPORT	RamDisk
RamDisk
	DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
	DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
	DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
	DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
	DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
	DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
	DC.B	$FF,$FF,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	DC.B	$FF,$F0,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$A0
	DC.B	$FF,$0A,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
	DC.B	$F0,$AA,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
	DC.B	$F0,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$A0
	DC.B	$F0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
	DC.B	$F0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
	DC.B	$F0,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$A0
	DC.B	$F0,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$BB,$BB,$BB,$BB,$0F
	DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$00,$00,$00,$00,$0F
	DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
	DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
	DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
	DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
	DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
	
;################################################################
;#			3.5 Floppy Disk Icon Data		#
;################################################################

		EXPORT	Three
Three
	DC.B	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	DC.B	$0F,$F0,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF,$F0
	DC.B	$0F,$F0,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$F0,$F0
	DC.B	$0F,$F0,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF,$F0
	DC.B	$0F,$F0,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF,$F0
	DC.B	$0F,$F0,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF,$F0
	DC.B	$0F,$F0,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF,$F0
	DC.B	$0F,$F0,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF,$F0
	DC.B	$0F,$F0,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF,$F0
	DC.B	$0F,$F0,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF,$F0
	DC.B	$0F,$F0,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF,$F0
	DC.B	$0F,$F0,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF,$F0
	DC.B	$0F,$F0,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$FF,$F0
	DC.B	$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0
	DC.B	$0F,$FF,$FF,$FC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$FF,$FF,$FF,$F0
	DC.B	$0F,$FF,$FF,$CC,$CC,$FF,$FF,$CC,$CC,$CC,$CC,$FF,$FF,$FF,$F0
	DC.B	$0F,$FF,$FF,$CC,$CC,$FF,$FF,$CC,$CC,$CC,$CC,$FF,$FF,$FF,$F0
	DC.B	$0F,$FF,$FF,$CC,$CC,$FF,$FF,$CC,$CC,$CC,$CC,$FF,$FF,$FF,$F0
	DC.B	$0F,$FF,$FF,$CC,$CC,$FF,$FF,$CC,$CC,$CC,$CC,$FF,$FF,$FF,$F0
	DC.B	$0F,$FF,$FF,$CC,$CC,$FF,$FF,$CC,$CC,$CC,$CC,$FF,$FF,$FF,$F0
	DC.B	$F0,$FF,$FF,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$FF,$FF,$FF,$F0
	DC.B	$FF,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00

;################################################################
;#		partitioned 'HD' Icon Data			#
;################################################################

		EXPORT	Partition
Partition
	DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
	DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
	DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
	DC.B	$FF,$FF,$FC,$FC,$FC,$FC,$FC,$FC,$FC,$FC,$FC,$FC,$FC,$FC,$FC
	DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
	DC.B	$FF,$FF,$FC,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F1,$1F,$FC
	DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
	DC.B	$FF,$FC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CF,$FC
	DC.B	$FF,$FC,$CF,$CF,$CF,$CF,$CF,$CF,$CF,$CF,$CF,$CF,$CF,$CF,$FF
	DC.B	$FF,$FC,$FC,$FC,$FC,$FC,$FC,$FC,$FC,$FC,$FC,$11,$FC,$CF,$FC
	DC.B	$FF,$FC,$CF,$CF,$CF,$CF,$CF,$CF,$CF,$CF,$CF,$CF,$CF,$CF,$FF
	DC.B	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$FC,$CC,$FC
	DC.B	$0C,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$C0,$CF,$CF,$FF
	DC.B	$0C,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$C1,$1C,$C0,$FC,$CF,$FF
	DC.B	$0C,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$C0,$CC,$CF,$FF
	DC.B	$0C,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$C0,$FF,$FF,$FF
	DC.B	$0C,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$C0,$FF,$FF,$FF
	DC.B	$0C,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$C0,$FF,$FF,$FF
	DC.B	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$FF,$FF,$FF
	DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
	DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
	DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF

;################################################################
;#		non-partitioned 'HD' Icon Data			#
;################################################################

		EXPORT	HardDisk
HardDisk
	DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
	DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
	DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
	DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
	DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
	DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
	DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
	DC.B	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	DC.B	$0C,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$C0
	DC.B	$0C,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$C1,$1C,$C0
	DC.B	$0C,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$C0
	DC.B	$0C,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$C0
	DC.B	$0C,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$C0
	DC.B	$0C,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$C0
	DC.B	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
	DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
	DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
	DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
	DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
	DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
	DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF

;################################################################
;#		Appletalk Icon Data				#
;################################################################

		EXPORT	AppleTalk
AppleTalk
	;DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF,$FF,$FF,$FF,$FF,$FF,$FF
	;DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$0F,$0F,$F0,$00,$00,$00,$0F,$FF
	;DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$F0,$EE,$F0,$F0,$BB,$BB,$B0,$B0,$FF
	;DC.B	$FF,$00,$00,$0F,$FF,$FF,$0E,$EE,$EE,$00,$BB,$BB,$B0,$00,$FF
	;DC.B	$F0,$DD,$DD,$D0,$00,$00,$0E,$EE,$EE,$E0,$BB,$BB,$BB,$B0,$FF
	;DC.B	$F0,$DD,$DD,$DD,$DD,$DD,$D0,$EE,$EE,$EE,$0B,$BB,$BB,$B0,$FF
	;DC.B	$F0,$DD,$DD,$DD,$DD,$DD,$D0,$EE,$EE,$E0,$BB,$BB,$BB,$B0,$FF
	;DC.B	$F0,$DD,$DD,$DD,$DD,$DD,$D0,$EE,$EE,$00,$BB,$BB,$BB,$B0,$FF
	;DC.B	$F0,$DD,$DD,$DD,$DD,$DD,$D0,$EE,$E0,$F0,$BB,$BB,$BB,$B0,$FF
	;DC.B	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	;DC.B	$F0,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$0F
	;DC.B	$FF,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$FF
	;DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$C0,$FF,$FF,$FF,$FF,$FF
	;DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$C0,$FF,$FF,$FF,$FF,$FF
	;DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$00,$00,$00,$FF,$FF,$FF,$FF
	;DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$BB,$BB,$E0,$FF,$FF,$FF,$FF
	;DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$00,$00,$00,$FF,$FF,$FF,$FF
	;DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$C0,$FF,$FF,$FF,$FF,$FF
	;DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$0C,$CC,$0F,$FF,$FF,$FF,$FF
	;DC.B	$00,$F0,$00,$00,$00,$00,$00,$00,$CC,$0C,$C0,$00,$00,$0F,$00
	;DC.B	$CC,$FC,$CC,$CC,$CC,$CC,$CC,$CC,$C0,$F0,$CC,$CC,$CC,$CF,$CC
	;DC.B	$00,$F0,$00,$00,$00,$00,$00,$00,$0F,$FF,$00,$00,$00,$0F,$00


	dc.b	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF,$FF,$FF,$FF,$FF,$FF,$FF
	dc.b	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$0E,$0F,$F0,$00,$00,$00,$0F,$FF
	dc.b	$FF,$FF,$FF,$FF,$FF,$FF,$F0,$EE,$E0,$F0,$FF,$FF,$F0,$F0,$FF
	dc.b	$FF,$00,$00,$0F,$FF,$FF,$0E,$EE,$EE,$00,$F7,$77,$F0,$00,$FF
	dc.b	$F0,$BB,$BB,$B0,$00,$00,$0E,$EE,$EE,$E0,$FF,$FF,$FF,$F0,$FF
	dc.b	$F0,$BB,$BB,$BB,$BB,$BB,$B0,$EE,$EE,$EE,$0F,$77,$77,$F0,$FF
	dc.b	$F0,$BB,$BB,$BB,$BB,$BB,$B0,$EE,$EE,$E0,$FF,$FF,$FF,$F0,$FF
	dc.b	$F0,$BB,$BB,$BB,$BB,$BB,$B0,$EE,$EE,$00,$F7,$77,$77,$F0,$FF
	dc.b	$F0,$BB,$BB,$BB,$BB,$BB,$B0,$EE,$E0,$F0,$FF,$FF,$FF,$F0,$FF
	dc.b	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	dc.b	$F0,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$0F
	dc.b	$FF,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$FF
	dc.b	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$C0,$FF,$FF,$FF,$FF,$FF
	dc.b	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$C0,$FF,$FF,$FF,$FF,$FF
	dc.b	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$00,$00,$00,$FF,$FF,$FF,$FF
	dc.b	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$BB,$BB,$E0,$FF,$FF,$FF,$FF
	dc.b	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$00,$00,$00,$FF,$FF,$FF,$FF
	dc.b	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$C0,$FF,$FF,$FF,$FF,$FF
	dc.b	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$0C,$CC,$0F,$FF,$FF,$FF,$FF
	dc.b	$00,$F0,$00,$00,$00,$00,$00,$00,$CC,$0C,$C0,$00,$00,$0F,$00
	dc.b	$CC,$FC,$CC,$CC,$CC,$CC,$CC,$CC,$C0,$F0,$CC,$CC,$CC,$CF,$CC
	dc.b	$00,$F0,$00,$00,$00,$00,$00,$00,$0F,$FF,$00,$00,$00,$0F,$00


;################################################################
;#		Unknown device Icon Data			#
;################################################################

		EXPORT	Other
Other
	DC.B	$FF,$FF,$FF,$F0,$00,$00,$00,$00,$00,$00,$00,$00,$FF,$FF,$FF
	DC.B	$FF,$F0,$00,$0D,$DD,$DD,$DD,$DD,$DD,$DD,$DD,$DD,$00,$00,$FF
	DC.B	$FF,$0D,$DD,$DD,$DD,$DD,$DD,$DD,$DD,$DD,$DD,$DD,$DD,$DD,$0F
	DC.B	$FF,$0D,$DD,$DD,$DD,$00,$00,$00,$00,$00,$DD,$DD,$DD,$DD,$0F
	DC.B	$F0,$DD,$DD,$DD,$00,$FF,$FF,$FF,$FF,$FF,$00,$DD,$DD,$DD,$D0
	DC.B	$F0,$DD,$DD,$D0,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$0D,$DD,$DD,$D0
	DC.B	$F0,$DD,$DD,$D0,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$0D,$DD,$DD,$D0
	DC.B	$FF,$00,$00,$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$0D,$DD,$DD,$D0
	DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$DD,$DD,$DD,$0F
	DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$0D,$DD,$DD,$D0,$FF
	DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$00,$0D,$DD,$DD,$DD,$00,$FF
	DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$00,$0D,$DD,$DD,$DD,$DD,$00,$FF,$FF
	DC.B	$FF,$FF,$FF,$FF,$FF,$F0,$DD,$DD,$DD,$DD,$00,$00,$FF,$FF,$FF
	DC.B	$FF,$FF,$FF,$FF,$FF,$0D,$DD,$DD,$DD,$00,$FF,$FF,$FF,$FF,$FF
	DC.B	$FF,$FF,$FF,$FF,$FF,$0D,$DD,$DD,$D0,$FF,$FF,$FF,$FF,$FF,$FF
	DC.B	$FF,$FF,$FF,$FF,$FF,$F0,$00,$00,$0F,$FF,$FF,$FF,$FF,$FF,$FF
	DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
	DC.B	$FF,$FF,$FF,$FF,$FF,$F0,$00,$00,$FF,$FF,$FF,$FF,$FF,$FF,$FF
	DC.B	$FF,$FF,$FF,$FF,$FF,$0D,$DD,$DD,$0F,$FF,$FF,$FF,$FF,$FF,$FF
	DC.B	$FF,$FF,$FF,$FF,$FF,$0D,$DD,$DD,$0F,$FF,$FF,$FF,$FF,$FF,$FF
	DC.B	$FF,$FF,$FF,$FF,$FF,$0D,$DD,$DD,$0F,$FF,$FF,$FF,$FF,$FF,$FF
	DC.B	$FF,$FF,$FF,$FF,$FF,$F0,$00,$00,$FF,$FF,$FF,$FF,$FF,$FF,$FF

;################################################################
;#		non-partitioned 'CD' Icon Data			#
;################################################################

		EXPORT	CD
CD
	DC.B	$F0,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$FF
	DC.B	$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$0F
	DC.B	$0F,$FF,$FF,$FF,$F0,$00,$00,$00,$00,$00,$FF,$FF,$FF,$FF,$0F
	DC.B	$0F,$FF,$FF,$F0,$0C,$CC,$CC,$CC,$CC,$CC,$00,$FF,$FF,$FF,$0F
	DC.B	$0F,$FF,$F0,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$C0,$FF,$FF,$0F
	DC.B	$0F,$FF,$0C,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$0F,$FF,$0F
	DC.B	$0F,$F0,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$C0,$FF,$0F
	DC.B	$0F,$F0,$CC,$CC,$CC,$CC,$C0,$00,$CC,$CC,$CC,$CC,$C0,$FF,$0F
	DC.B	$0F,$0C,$CC,$CC,$CC,$CC,$0F,$FF,$0C,$CC,$CC,$CC,$CC,$0F,$0F
	DC.B	$0F,$0C,$CC,$CC,$CC,$C0,$FF,$FF,$F0,$CC,$CC,$CC,$CC,$0F,$0F
	DC.B	$0F,$0C,$CC,$CC,$CC,$C0,$FF,$FF,$F0,$CC,$CC,$CC,$CC,$0F,$0F
	DC.B	$0F,$0C,$CC,$CC,$CC,$CC,$0F,$FF,$0C,$CC,$CC,$CC,$CC,$0F,$0F
	DC.B	$0F,$F0,$CC,$CC,$CC,$CC,$C0,$00,$CC,$CC,$CC,$CC,$C0,$FF,$0F
	DC.B	$0F,$F0,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$C0,$FF,$0F
	DC.B	$0F,$FF,$0C,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$0F,$FF,$0F
	DC.B	$0F,$FF,$F0,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$C0,$FF,$FF,$0F
	DC.B	$0F,$FF,$FF,$F0,$0C,$CC,$CC,$CC,$CC,$CC,$00,$FF,$FF,$FF,$0F
	DC.B	$0F,$FF,$FF,$FF,$F0,$00,$00,$00,$00,$00,$FF,$FF,$FF,$FF,$0F
	DC.B	$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$0F
	DC.B	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0F
	DC.B	$0F,$FF,$FF,$FF,$FF,$FF,$00,$00,$0F,$FF,$FF,$FF,$FF,$FF,$0F
	DC.B	$F0,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$FF

;################################################################
;#		partitioned 'CD' Icon Data			#
;################################################################

		EXPORT	CDPartition
CDPartition
	DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
	DC.B	$FF,$FF,$FF,$FF,$CF,$CF,$CF,$CF,$CF,$CF,$CF,$CF,$CF,$CF,$CF
	DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
	DC.B	$FF,$FF,$FF,$FF,$CF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$CF
	DC.B	$FF,$FF,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$FF,$FF
	DC.B	$FF,$FF,$CF,$CF,$CF,$CF,$CF,$CF,$CF,$CF,$CF,$CF,$CC,$FF,$CF
	DC.B	$FF,$FF,$CC,$FC,$FC,$FC,$FC,$FC,$FC,$FC,$FC,$FC,$FC,$FF,$FF
	DC.B	$F0,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0F,$CC,$FF,$CF
	DC.B	$F0,$FF,$FF,$00,$0C,$CC,$CC,$C0,$00,$FF,$FF,$0C,$FC,$FF,$FF
	DC.B	$F0,$FF,$00,$CC,$CC,$CC,$CC,$CC,$CC,$00,$FF,$0F,$CC,$FF,$CF
	DC.B	$F0,$F0,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$0F,$0C,$FC,$FF,$FF
	DC.B	$F0,$0C,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$C0,$0F,$CC,$FF,$CF
	DC.B	$F0,$0C,$CC,$CC,$CC,$CC,$0C,$CC,$CC,$CC,$C0,$0C,$FC,$FF,$FF
	DC.B	$F0,$CC,$CC,$CC,$CC,$C0,$C0,$CC,$CC,$CC,$CC,$0F,$CC,$FF,$CF
	DC.B	$F0,$0C,$CC,$CC,$CC,$CC,$0C,$CC,$CC,$CC,$C0,$0C,$FC,$FF,$FF
	DC.B	$F0,$0C,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$C0,$0F,$CC,$CF,$CF
	DC.B	$F0,$F0,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$CC,$0F,$0C,$FC,$FF,$FF
	DC.B	$F0,$FF,$00,$CC,$CC,$CC,$CC,$CC,$CC,$00,$FF,$0F,$CC,$FF,$FF
	DC.B	$F0,$FF,$FF,$00,$0C,$CC,$CC,$C0,$00,$FF,$FF,$0C,$CC,$FF,$FF
	DC.B	$F0,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0F,$FF,$FF,$FF
	DC.B	$F0,$FF,$FF,$FF,$FF,$F0,$0F,$FF,$FF,$FF,$FF,$0F,$FF,$FF,$FF
	DC.B	$F0,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0F,$FF,$FF,$FF

;################################################################
;#			lock Icon Data				#
;################################################################

		EXPORT	lockicon
lockicon
	DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
	DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
	DC.B	$FF,$FF,$F0,$00,$FF,$FF,$FF,$FF
	DC.B	$FF,$FF,$0F,$FF,$0F,$FF,$FF,$FF
	DC.B	$FF,$F0,$00,$00,$00,$FF,$FF,$FF
	DC.B	$FF,$F0,$00,$00,$00,$FF,$FF,$FF
	DC.B	$FF,$F0,$00,$00,$00,$FF,$FF,$FF
	DC.B	$FF,$F0,$00,$00,$00,$FF,$FF,$FF

;################################################################
;#			un-lock Icon Data			#
;################################################################

		EXPORT	unlockicon
unlockicon
	DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
	DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
	DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
	DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
	DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
	DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
	DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
	DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF

;################################################################
;#			Alert Dialog template			#
;################################################################

		EXPORT	AlertDITL
AlertDITL
	DC.W	50,105,103,530
	DC.W	1
	DC.L	0
	DC.L	AItem1
	DC.L	AItem2
	DC.L	AItem3
	DC.L	0
AItem1	DC.W	1
	;DC.W	35,165,48,230
	DC.W	35,180,48,244
	DC.W	$A
	DC.L	WarningOk
	DC.W	0
	DC.W	0
	DC.L	0
AItem2	DC.W	3
	DC.W	6,18,16,400
	DC.W	15
	DC.L	miscstr
	DC.W	0
	DC.W	0
	DC.L	0
AItem3	DC.W	4
	DC.W	18,18,28,400
	DC.W	15
	DC.L	miscstr1
	DC.W	0
	DC.W	0
	DC.L	0


;	Strings for text dialog we display if we don't find the right
;	versions for the System Software

		STRING ASIS

		EXPORT badStart1Str
badStart1Str
		dc.b @end - @start
@start
		dc.b 'You must start up from System 6.0'
@end

		EXPORT badStart2Str
badStart2Str
		dc.b @end - @start
@start
		dc.b 'or later to run this application.'
@end

		EXPORT badStart1But
badStart1But
		dc.b 0


; text QUIT button string for TLTextMountVolume
; spaces push Button2 (left button) to the right (to right-justify it)
;   (canÕt be Button1 because escape chars are counted in Button1Õs right justification!)
; $1B: ESC to enable mousetext in the firmware
; $0F: turns on Inverse
; ÔMÕ is mousetext for return char
; $0E: turns off inverse
; $18: Ctrl-X to disable mousetext in the firmware

		EXPORT badStart2But
badStart2But
		dc.b @end - @start
@start
		dc.b '                           Quit '
		dc.b $0f, $1b, 'M', $0E, $18
@end



		EXPORT mainIconRect
mainIconRect
		dc.w 26,275,50,342


		EXPORT formatCtlList
formatCtlList
		dc.w $0000		;SCSI version
		dc.b $04		;SCSI command = format
		dcb.b $B, $00		;rest of list = NULL

		EXPORT initMsgWindow
initMsgWindow		;Dialog Manager window to tell user that
			;hard-format is in progress

		dc.w	75,150,100,470	;rectangle
		dc.w	$ffff		;visisble
		dc.l	0		;refcon
		dc.l	hfText		;control
		dc.l	0

hfText
		dc.w	3		;item id
		dc.w	5,80,25,313	;rectangle
		dc.w	$800F		;type = stat text, diabled
		dc.l	hfString	;ptr
		dc.w	0		;value
		dc.w	0		;flag
		dc.l	0		;color table

hfString
		dc.b @end-@start
@start
		dc.b 'Hard-formatting diskÉ'
@end


	ENDP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/ADU/Dialog.pii b/IIGS.601.SRC/A.U.G/ADU/Dialog.pii
new file mode 100644
index 0000000..9a8b73b
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/ADU/Dialog.pii
@@ -0,0 +1 @@
+{################################################################}
{#								#}
{#  File:	Dialog.Pas from IIGS Disk Initializer		#}
{#								#}
{#--------------------------------------------------------------#}
{#								#}
{#  Description:  This file has all the routines that handle	#}
{#		  the creation, functionality and disposal of	#}
{#		  the dialogs used in the program.		#}
{#								#}
{#--------------------------------------------------------------#} 
{#								#}
{#  Author:	Darryl Lovato					#}
{#								#}
{#--------------------------------------------------------------#}
{#								#}
{#  Copyright:	1987,1988 by Apple Computer Inc.		#}
{#		All rights reserved.				#}
{#								#}
{#--------------------------------------------------------------#}
{#								#}
{#  Modification History:					#}
{#								#}
{#	Who	When	The Change				#}
{#	---	------	-------------------------------------	#}
{#	SR	12/7/87	Created v.1 - erase & init only		#}
{#	DGL	1/29/88 Rewrote everything - cut size in half!  #}
{#	DGL	5/9/88	Finished Adding Partition Support	#}
{#			and other features... far too many to	#}
{#			list here...				#}
{#	DGL	5/12/88 Added Zero and Info operations		#}
{#	DGL	5/20/88 Released pre-alpha version to testers	#}
{#	DGL	6/1/88  Alpha!					#}
{#	DGL	6/13/88 Alpha 2					#}
{#	DGL	6/24/88 Alpha 3					#}
{#	DGL	7/1/88  Beta 1					#}
{#	DGL	7/13/88 Beta 2					#}
{#	DGL	7/20/88	Beta 3					#}
{#	DGL	7/27/88	Beta 4					#}
{#	DGL	8/1/88	Beta 5					#}
{#	DGL	8/8/88	Beta 6					#}
{#	DGL	8/15/88 Final!					#}
{#								#}
{################################################################}

{ these options turn long addressing on, and turn error checking off}
{ in addition, they set the pascal comments in assembler on.}

{$LongGLobals-}
{$ToolErrorChk-}
{$ToolErrorChk+}
{$A+}

unit Dialog;

interface

uses
  InitIntfData,
  InitIntfProc,
  InitIntfPDOS,
  ListMgr,
  Globals,
  Utils,
  Guts;

procedure DoAboutItem;            {About item in apple menu}
procedure ShowInit;               {Init Dialog}
procedure SetActivePartition(thePart : integer);
procedure ProcessInit;		{ handle control hit in main Dlog }
procedure NextDrive;

implementation

procedure DrawAlloChart(totalRedraw : boolean);			FORWARD;
PROCEDURE MainWindUpdt;						FORWARD;


{################################################################}
{#	filter to be called for dlogs with 1 item lists		#}
{################################################################}

function myDlogFilter(theDlog : grafportptr; var someEvent : wmTaskRec;
			  var itemhit : integer) : integer;
  const
    isfalse = 0;
    istrue = $FFFF;
    
    EnterChar = 3;
    Tab = 9;
    CRChar = 13;
    Escape = 27;
    LArrow = 21;
    RArrow = 8;
    Rubout = 127;
  var
    temp : integer;
    theControl : ControlHandle;
  {  temp1,temp2 : Longint;	}
    test1 : boolean;
    ch : char;
  {  lowerflag : boolean;	}
    tempPt : Point;

  BEGIN
    PHB;	{ added 3/91 by Monte }
    phk; {make sure data bank is set correctly}
    plb;
    myDlogFilter := 0;
    with someEvent do
      begin
        if wmWhat = 1 then { mouse-down }
          begin
            temp := findcontrol(theControl,wmwhere.h,wmwhere.v,theDlog);
            GlobalToLocal(wmwhere);
	    test1 := PtInRect(wmwhere, listRect1);
            LocalToGlobal(wmwhere);
	    if test1 then
	      begin
	        myDlogFilter := $F;
	        itemhit := 100;
	      end;
	    if theControl <> SizeBar then {its not our scroll bar, not the lists!}
              if (temp in [5..8, 129]) or test1 then
                 begin
                   RestoreRefCons;
                   temp := TrackControl(wmwhere.h,wmwhere.v, Pointer(-1), theControl);
	           ZeroRefCons;
	           wmwhat := 0; {can you say kludge?}
                 end;
              {make cr's look like cr's!}
           end
        else if (wmWhat = 3) or (wmWhat = 5) then { keydown, autokey}

	{	Key filter stuff eliminated 3/31/91 by Monte Benaresh		}
	{	b/c we now have an init/erase dialog in the OS which enforced	}
	{	name syntax and this filter is used in situations where the	}
	{	ProDOS name restrictions do not apply.				}
          BEGIN
	    if char(loword(bitand(wmMessage,$FF))) = char($D) then { cr!}
              begin
                itemhit := 1; {default button}
                myDlogFilter := 1; {True}
                if theDlog = partDlog then
                  begin
                    temp := currPart;
                    SetActivePartition(-2);
                    currPart := temp;
                  end
		else
		  BlinkButton(GetControlItem(theDlog,1));
              end
	    else
	      begin
		ch := char(bitand(loword(wmMessage), $FF));

	(*	lowerflag := (ord(ch) >= ord('a')) and (ord(ch) <= ord('z'));
		if (bitand(wmModifiers,OptionKey+ControlKey) = 0) and
		   (lowerflag or
		   (ch = '.') or
		   (ch = char(EnterChar)) or
		   (ch = char(Tab)) or
		   (ch = char(Escape)) or
		   (ch = char(RArrow)) or
		   (ch = char(LArrow)) or
		   (ch = char(Rubout)) or
		   ((ord(ch) >= ord('0')) and (ord(ch) <= ord('9'))) or
		   ((ord(ch) >= ord('A')) and (ord(ch) <= ord('Z')))) then
		   begin
	*)

	       if (ch = char(Escape)) and (theDlog = partDlog) then
	         begin
		   itemhit := 2;
	  	   myDlogFilter := isTrue;
		   BlinkButton(GetControlItem(theDlog,2));
	         end;

	       if (ch = char(EnterChar)) and (theDlog <> partDlog) then
	         begin
		   itemhit := 1;
		   myDlogFilter := isTrue;
		   BlinkButton(GetControlItem(theDlog,1));
	         end;

	(*	     if lowerflag then { change it to upper case}
		       wmMessage := ord(ch) - $20;
		   end
	*)

	(*	 else
		   begin
		     wmMessage := 0; {so the dlog manager doesn't see it}
		     itemhit := 0;
		     myDlogFilter := istrue;
		   end;
	*)
	     end;
	END;
      IF wmWhat = 6 THEN { update }	{ added 3/7/91 by Monte for Video Kbd }
      BEGIN
      oldPort := GetPort;
      SetPort(GrafPortPtr(wmMessage));
        CASE LONGWORD(GetWRefCon(GrafPortPtr(wmMessage))).LoWord OF
        { do window-specific updating }
          InfoRef :
	    BEGIN
              BeginUpdate(GrafPortPtr(wmMessage));
	      DrawDialog(GrafPortPtr(wmMessage));
              tempPt.v := 6;	{ coordinates for vol icon }
	      tempPt.h := 35;
	      PlotIconola(iconPtr, tempPt, FALSE); { plot current info icon }
	      IF isLockedDev THEN { was it a locked device? }
	      BEGIN
	        tempPt.v := 6;
	        tempPt.h := 2;
	        PlotIconola(@lockIcon, tempPt, true); { draw lock icon }
	      END;
              EndUpdate(GrafPortPtr(wmMessage));
              myDlogFilter := 1; { return TRUE to say we handled the event }
	    END;

	  PartRef :
	    BEGIN
              BeginUpdate(GrafPortPtr(wmMessage));
	      DrawDialog(GrafPortPtr(wmMessage));
	      DrawAlloChart(TRUE);
              EndUpdate(GrafPortPtr(wmMessage));
              myDlogFilter := 1; { return TRUE to say we handled the event }
	    END;

        END; {case}
      SetPort(oldPort);
      END; {begin}
    end;
    PLB;	{ caller's DBR }
  END;


{################################################################}
{#	draw out custom list member.  It has a color coding box	#}
{################################################################}
     
procedure DrawList(r : Rect; memRec : ListMemP; listH : ControlHandle);
  var
    boxR : Rect;
    i : integer;
  begin
    PHB;	{ added 3/91 by Monte }
    phk; {make sure data bank is set correctly}
    plb;

    with memRec^ do
      begin
        eraseRect(r);
        boxR := r;
        r.h1 := r.h1 + 30;
        inc(boxR.v1);
        dec(boxR.v2);
        boxR.h2 := boxR.h1 + 28;
        boxR.h1 := boxR.h1 + 2;
        i := 0;
        repeat
          inc(i);
        until (memRec = @myList[i]);
	
	{SpecialRect(boxR,0,scrollarray[i]); *-DGL-*}
	SpecialRect(boxR,0,scrollarray[i mod 13]);
	
        moveto(r.h1 + 5, r.v1 + 8);
        drawstring(StringPtr(memPtr)^);
        if bitand($80,memFlag) <> 0 then { we need to select it}
          InvertRect(r);
      end;
    PLB;	{ caller's DBR }
  end;

{################################################################}
{#		rebuild the partition name list			#}
{################################################################}

procedure RebuildList(startSel : integer);
var
  miscWord : integer;
  myListRecPtr : ListRecP;
begin
  myListRecPtr := @myListRec;
  if listControl1 <> nil then
    begin
 (*     DrawMember(ResetMember(myListRecPtr),myListRecPtr); { remove any selections}
 removed 3/4/91 by Monte
 *)
      DisposeControl(listControl1); {remove the list, so we can create a new one}
      DisposeControl(listScroll1);  { also remove its scroll bar}
    end;
    
  with GlobalParts^^ do
    begin
      miscword := 0;
      while (miscword < partCount) do
        begin
          inc(miscword);
          listNameAry[miscWord] := PartsInfo[miscword].partName;
	  with myList[miscWord] do
	    begin
              memPtr := @listNameAry[miscWord];
              memFlag := 0;
	    end;
        end;
    end;

  with myListRec, listRec do {set up the list record}
    begin
      v1 := 10;
      h1 := 20;
      v2 := 62;
      h2 := 204;
      listsize := miscword; {number of items}
      listview := 5;
      listtype := 2;
      liststart := startSel;
      listctl := nil;
      listdraw := @DrawList;
      listmemheight := 10;
      listmemsize := sizeof(listmemrec);
      listpointer := @myList;
      listrefcon := 0;
      listscrollclr := nil;
    end;

  ListRect1 := myListRec.listRec;

  listControl1 := CreateList(PartDlog,myListRecPtr);
  listScroll1 := listControl1^^.CtlListBar;
{  SelectMember(@myList[1], myListRecPtr);	removed 3/4/91 by Monte	}

  SaveAndZeroRefCons;

{ force redraw on next time through event loop }
{  InvalRect(listRect1);		}{ added 3/4/91 by Monte }
{  InvalRect(listScroll1^^.ctrlRect);	}

  DrawOneCtl(listControl1);
  DrawOneCtl(listScroll1);

end;

{################################################################}
{#	check to make sure there are no duplicate partitions	#}
{################################################################}

function BadPartNames(var duperr : boolean) : boolean;
  var
    i,j : integer;
  label 1;
  begin
    BadPartNames := false; {assume the best}
    with GlobalParts^^ do
      for i := 1 to PartCount do
        if partsinfo[i].partName = '' then
	  begin
	    dupErr := false;
	    badPartNames := true;
	    goto 1;
	  end;
    with globalParts^^ do
      for i := 1 to PartCount do
        for j := i to PartCount do
	  if (j <> i) and (partsinfo[i].partName = partsinfo[j].partName) then
	    begin
	      BadPartNames := true;
	      duperr := true;
	      goto 1;
	    end;
1:end;

{################################################################}
{#	draw the lines that group the buttons in the main dlog	#}
{################################################################}

procedure DrawLines;
var
  thePt : Point;
  temp : ptr;
begin
  SetPort(InitDlogPtr);

{  moveto(0,20);	removed 3/8/91 by Monte Benaresh	}
{  lineto(380,20);	}
  moveto(0,78);		{ all vertical positions reduced by 21 for new window frame }
  lineto(380,78);	{ -- Monte Benaresh 3/8/91				}
  moveto(235,0);
  lineto(235,78);
  moveto(236,0);
  lineto(236,78);

  with thePt do
    begin
      v := 27;
      h := 276;
    end;
  PlotIconola(curVolIcon,thePt,false);
  with thePt do
    begin
      v := 27;
      h := 240;
    end;
   
  temp := @unlockicon;
  if islockeddev then
    temp := @lockIcon;
  PlotIconola(temp, thePt, true);
end;

{################################################################}
{#	get the sum of all current partition sizes		#}
{################################################################}

function SumPartSizes : integer;
  var
    sum : integer;
    i : integer;
  begin
    {find the total amount that this would make on a disk}
    sum := 0;
    with GlobalParts^^ do
      for i := 1 to partCount do
        with partsinfo[i] do
          if partsize = 0 then
            inc(sum)
          else
            sum := sum + partsize;
    SumPartSizes := sum;
  end;

{################################################################}
{#	draw partition allo chart, totalredraw draws everything	#}
{################################################################}

procedure DrawAlloChart(totalRedraw : boolean);

	{ NOTE: All GrafPort params must be preserved during this PROC	}
	{ because it gets called by ScrollAction which gets called by	}
	{ the Control Manager.						}

  var
    dumbRect, newRect : rect;
    i, newY : integer;
    tAllocated : integer;
    oldPenSize : point;
  begin
    GetPenSize(@oldPenSize);
    SetPenSize($0002, $0001);	{ standard pen for all our frames	}

    tAllocated := 0;
    with dumbRect do
      begin
        h1 := 240;
        h2 := 320;
        v2 := 148;
        v1 := 148;
      end;
    with GlobalParts^^ do
      for i := PartCount downto 1 do { do this for all partitions!}
        with PartsInfo[i], dumbRect do
          begin
            tAllocated := tAllocated + partSize;
            v2 := v1 + 1;
	    v1 := v1 - Real2Int((partSize * 138) / tMegs);
	    if v1 < 10 then
	      v1 := 10;
            if (i <= currPart) or totalRedraw then {draw it}
              begin
	        { this fixes any roundoff that occurs by making the last}
	      	{ partition pin to the top if the disk is full.  This can slightly}
		{ distort the size of the top partition though.. Testing liked it better}
		{ this way, so this is how I'm doing it!}
	        if (i = 1) and (SumPartSizes = tMegs) then
		  v1 := 10;
		{SpecialRect(dumbRect,0,ScrollArray[i]); *-DGL-*}
		SpecialRect(dumbRect,0,ScrollArray[i MOD 13]);

                newRect := dumbRect;{remove any old names}
                newRect.h1 := newRect.h2 - 2;
                newRect.h2 := newRect.h2 + 320;
                EraseRect(newRect); 
                newRect.h2 := newRect.h2 - 310; {draw the new ones!}
                FrameRect(newRect);
		newY := newRect.v1 + Real2Int((newRect.v2 - newRect.v1) / 2);
                moveto(newRect.h2,newY);
                lineto(newRect.h2 + 8,newY);
                if (dumbrect.v2 - dumbrect.v1) > 8 then
                  begin
                    move(5,4); {move to the right and down a bit}
                    drawstring(concat(partName,' (',
			IntToString(Real2Int((partsize * 100) / tMegs)),'%)'));
                  end;
             end;
          end;
    with dumbRect do
      if (tAllocated <= tMegs) then {draw empty space!}
        begin
          v2 := v1;
          v1 := 10;
          h2 := h2 + 320;
          EraseRect(dumbRect);
          inc(v2);
          h2 := h2 - 320;
          FrameRect(dumbRect);
          h2 := h2 + 10;
          FrameRect(dumbRect);
          if (dumbrect.v2 - dumbrect.v1) > 8 then { draw the available space!!!}
            begin
	      newY := dumbRect.v1 + Real2Int((dumbRect.v2 - dumbRect.v1) / 2);
              moveto(dumbRect.h2,newY); 
              lineto(dumbRect.h2 + 8,newY);
              move(5,4); {move to the right and down a bit}
              drawstring(concat('Available (',
              	    IntToString(Real2Int(-((tAllocated - Tmegs) * 100) / tMegs)),'%)'));
            end;
        end;
	SetPenSize(oldPenSize.h, oldPenSize.v);		{ restore pen size }
  end;

{################################################################}
{#		set the current partitions size			#}
{################################################################}

procedure SetPartSize(number : integer);
var
  megs : integer;
  fraction : str255;
begin
  if number < 1 then
    number := 1;
  GlobalParts^^.PartsInfo[CurrPart].partsize := number;
  fraction := '.0';
  if odd(number) then
    begin
      fraction := '.5';
      dec(number);
    end;
  megs := number div 2;
  TempStr1 := concat(IntToString(megs),fraction,' MB');
  SetIText(PartDlog,5,@TempStr1);
{  DrawAlloChart(false);		removed 3/4/91 by Monte	}

  FrameRect(invRect); { redraw the scroll bar frame - kludge!!!!}
     	    	      { this fizes a bug where the bottom of the}
     	    	      { scroll bar would be trashed}
end;

{################################################################}
{#		set the current partition			#}
{################################################################}

procedure SetActivePartition(thePart : integer);
  var
    tempRect : Rect;
    temp : integer;
    ctlhand : Handle;
    ctlVal : longint;
    tempName : str255;
  begin
    if (thePart <> CurrPart) or (thePart = -2) then { -2 = save current but don't set new}
      begin
        HLock(Handle(GlobalParts));
        if CurrPart <> -1 then {we need to get the old partition name}
          with GlobalParts^^.PartsInfo[CurrPart] do
            begin
              GetIText(partDlog,3,@tempName);
              if tempName <> partname then
                begin
     	          partName := tempName;			{ our global structure}
     	          listNameAry[currPart] := tempName;	{ the list structure}
     	          DrawMember(@myList[currPart], @myListRec); {draw new name}
     	          DrawAlloChart(true);			{ make sure graphic is totaly redrawn!}

                  WITH tempRect DO
		  BEGIN
                    v1 := 10;	{ set enclosing rect of allo chart }
		    h1 := 240;
		    v2 := 150;
		    h2 := 524;
		  END;
		  ValidRect(tempRect);	{ don't re-update allo chart }
     	        end;
            end;
        HUnLock(Handle(GlobalParts));
        if thePart <> -2 then { we can set a new one!}
          begin
	    ScrollColor := scrollArray[thePart MOD 13];
            ScrollColor1 := ScrollColor;
            with GlobalParts^^.partsinfo[thepart] do
              begin
                ctlVal := tMegs - partSize;
                SetIText(PartDlog,3,@partname);
              end;
            SelIText(PartDlog,3,0,255);
            InvalRect(invRect);		{ invalidate scroll bar }
    (*        BeginUpdate(PartDlog);
              EraseRect(PartDlog^.portRect);
              DrawControls(PartDlog);
            EndupDate(PartDlog);
	removed by Monte 3/11/91
    *)
            SetCtlValue(ctlVal, SizeBar);
     {	    FrameRect(invRect); }{ redraw the scroll bar frame - kludge!!!!}
     	    			{ this fixes a bug where the bottom of the}
     	    			{ scroll bar would be trashed} 
            CurrPart := thePart;
	    SetPartSize(tMegs - ctlVal);
          end
        else
          CurrPart := -1;
      end;
  end;
  
{################################################################}
{#	scan to find the next good device, skip empty drives	#}
{################################################################}

procedure NextDrive;

var
  firstDevice : integer;
  i : integer;
  theCtl : ControlHandle;
  thePt : Point;
  myname : str255;
  dummyResult : LONGINT;

LABEL 8352;

begin
  SetPort(InitDlogPtr);  { prepare for icon drawing }

  noDevices := false;
  firstDevice := 0;

  REPEAT
  inc(deviceNum);

  if D_Info(deviceNum,currDeviceStr) <> noError then {Loop back}
  (*  if not atLeastOneDev then
      begin
        { there are no drives, so kill everything }
	TurnOff(EraseButton);
	TurnOff(PartButton);
	TurnOff(InitButton);
	TurnOff(ZeroButton);
	TurnOff(InfoButton);

        deviceNum := 0;
        noDevices := true; {Prevent infinite loop if no drives available}
        exit(nextDrive);
      end  {if}
  *)
  {  else  }
      begin
        deviceNum := 1;
   (*     atLeastOneDev := false; {Reset since we have looped back}	*)
        toolErr := D_Info(deviceNum,currDeviceStr);	{ re-issue call }
      end;  {else}

  IF firstDevice = deviceNum THEN  { did we check same device twice? }
  	BEGIN
	noDevices := TRUE;

        deviceNum := 0;

	TurnOff(EraseButton);
	TurnOff(PartButton);
	TurnOff(InitButton);
	TurnOff(ZeroButton);
	TurnOff(InfoButton);

	dispVolumeStr := noDevicesStr;	{ set current string to say no dev found }
        SetLongText(@dispVolumeStr);
	EraseRect(mainIconRect);	{ erase device icon }
	thePt.v := 27;
        thePt.h := 240;
	PlotIconola(@unlockicon, thePt, true);	{ erase lock icon }

	{GOTO 8352; }
	EXIT(NextDrive);
	END;

  IF firstDevice = 0 THEN firstDevice := deviceNum;

{ get info on current device	}
  with infoblk do
    begin
      pCount := 11;  
      devNumber := deviceNum;
      devname := @myname;

      i := GSOSInfo;

      tMegs := totalBlocks div 1024;
      isRemovable := Bitand(characteristics, $4) <> 0;
    end;

{ now get status and decide whether we want this device }
  with statusBlk do
    begin
      pCount := 5;  
      devNumber := deviceNum;
      statCode := 0;
      StatList := @StatResult;
      RequestCount := 6;
    end;

  i := GSOSStatus;
  currState := StatResult.general;
8352:
  UNTIL ((BITAND(infoblk.characteristics, $0080) <> 0)	{ check block device }
  		AND (BITAND(currState, $0010) <> 0))	{ check online	}
  	OR noDevices;	{ get online block device or no device }


  { tell toolbox we have handled this device ourselves }
    dummyResult := HandleDiskInsert(hdiUpdate, deviceNum);

  { there is at least one (volume) device we can get info from}
  TurnOn(InfoButton);

  with infoblk do
    if devID <> 5 then { not HD, so it can't be partitioned!}
      TurnOff(PartButton)
    else
      if bitand(characteristics, $4000) <> 0 then { shit, its a generated device!}
        begin
          TurnOff(PartButton);
	  MakeCursor(arrow);
          DoAlert('You do not have the SCSI driver on your system disk...',
                  'Therefore, you can not partition this device.');
	  MakeCursor(watch);
	  setlongtext(@''); {nil string}
        end
      else
  (*      if (infoblk.headlink = 1) or (deviceNum = 1) then {it is on the boot drive}
	  TurnOff(partButton) {cant re-partition the boot drive!}
	else
  *)		{ now allow partitioning of boot device -- Monte 8/19/91 }
	  TurnOn(PartButton);
  
  {---------- check for write protection ---------}
  
  islockeddev := false; { assume the best}

  with infoblk do
    if bitand(characteristics, $40) = 0 then { write protected}
      islockeddev := true
    else if bitand(characteristics, $80) <> 0 then { block dev - see if write protected}
      begin
     (*   with statusBlk do
          begin
            pCount := 5;  
            devNumber := deviceNum;
            statCode := 0;
            StatList := @StatResult;
            RequestCount := 6;
	  end;
      *)

     {   i := GSOSStatus;		this is redundant -Monte 7/24/91 }
     {   if bitand(StatResult.general,$4) <> 0 then	}

     	IF BITAND(currState, $0004) <> 0 THEN islockedDev := true;
      end;

{ get volume info for this device }
  initializedDev := true;	{ assume a volume is in this device }
  toolErr := volume(currDeviceStr, currVolumeStr);

  case toolErr of
    IOError, OtherOS :
      begin
	dispVolumeStr := unInitStr;	{ set in case user clicks icon }
   {     SetLongText(@unInitStr);	}
        initializedDev := false;
      end;
    noError :
      begin
     {   dispVolumeStr := currVolumeStr;	}
     {   delete(dispVolumeStr,1,1);   }                {Get rid of '/'}
     {   dispVolumeStr := CONCAT('The disk name is ', dispVolumeStr);	}
    {    SetLongText(@dispVolumeStr);	}
        SetVolName(currVolumeStr);
      end;  {noError}
    otherwise { bad device, make it look like no disk in drive!}
      begin
        toolErr := noDiskInDrive;
	initializedDev := false;
	dispVolumeStr := unInitStr;	{ set in case user clicks icon }
      end;
  end; {case}

  SetLongText(@dispVolumeStr);


{  if not (toolErr in [noDevice,noDiskInDrive]) then	}
    begin
     { atLeastOneDev := true;	}
      curVolIcon := GetVolIcon; {global infoblk holds parameters!}
      with thePt do
        begin
    {      v := 48;	changed 3/91 by Monte}
          v := 27;
          h := 276;
        end;
      PlotIconola(curVolIcon,thePt,false);
      	
      with thePt do
        begin
    {      v := 48;	changed 3/91 by Monte}
          v := 27;
          h := 240;
        end;

      if islockeddev or {(devicenum = 1) or} (infoblk.devID = $1e) then {locked or AppleShare server }
        begin
	  if islockeddev then
	    PlotIconola(@lockIcon, thePt, true) {only show this if its locked}
	  else
	    PlotIconola(@unlockicon, thePt, true);
	  TurnOff(EraseButton);
	{  TurnOff(partButton);		now allow for locked HD - Monte 8/12/91 }
	  TurnOff(InitButton);
	  TurnOff(ZeroButton);
        end
      else
        begin
          PlotIconola(@unlockicon, thePt, true);
	  if initializedDev then
	    begin
	      TurnOn(EraseButton);
	    end
	  else
	    begin
	      TurnOff(EraseButton);
	    end;
	  TurnOn(InitButton);
	  TurnOn(ZeroButton);
	end;
    end;
end;

{################################################################}
{#	is this a valid size for the partition? too big?	#}
{################################################################}

procedure TestValid(var newValue : integer);
  var
    i : integer;
    sum : integer;
    dumbrect : rect;
    theCtl : ControlHandle;
  begin
    HLock(Handle(GlobalParts));
    with GlobalParts^^ do
      begin
        {first convert the new value into it's equivalent Mb value
         and put it in the global record}
        with PartsInfo[CurrPart] do
	  begin
	    partsize := (TMegs - newValue);
	    if partsize < 0 then
	      begin
	        partsize := 1;
		newvalue := newvalue - 1;
              end;
	  end;
        {next find the total amount that this would make}
        sum := SumPartSizes;

        if sum > tMegs then {we went over the total amount avail on disk!}
          begin
            TurnOff(NewButton);
    (*        DoAlert('Sorry... there is not enough room on the device.  The',
            	    'partition will be set to the maximum possible size.');
	removed 2/91 by Monte
    *)
            SysBeep;
            { calculate the new amount that we can make this partition}
            { we make the new amount fill the entire disk}
            with PartsInfo[CurrPart] do
              begin
                partSize := partSize - (sum - tMegs);
		newValue := (tMegs - partSize);
              end;
            setport(partDlog);
            with dumbrect do
              begin
                h1 := 240;
	        h2 := 640;
	        v1 := 0;
	        v2 := 200;
	      end;
            invalRect(dumbrect);
            beginupdate(partDlog);
              DrawDialog(partDlog);
              DrawAlloChart(true); {we need to do a total redraw on this one!}
            endupdate(partDlog);
          end;
      end;
    HUnLock(Handle(GlobalParts));
  end;

{################################################################}
{#	called by dlog mgr to do the scrolling size scroll bar	#}
{################################################################}

function ScrollAction(cmd : integer; Dlog : GrafPortPtr; itemID : integer) : integer;
  var
    temp : integer;
    save : integer;
    TempStr : str255;
  begin
    PHB;	{ added 3/91 by Monte }
    phk; {make sure data bank is set correctly}
    plb;
    case cmd of
      1 : { get initial view size}
        temp := 1;
      2 : { get initial total view size}
        temp := tMegs;
      3 : { get initial value}
        temp := 0;
      4 : { scroll line up}
        begin
          temp := GetDItemValue(Dlog,itemID) - 1;
          if temp < 0 then
             temp := 0;
        end;
      5 : { scroll line down}
        begin
          temp := GetDItemValue(Dlog,itemID) + 1;
          if temp > tMegs then
            temp := tMegs;
        end;
      6 : { scroll page up}
        begin
          temp := GetDItemValue(Dlog,itemID) - 4;
          if temp < 0 then
             temp := 0;
        end;
      7 : { scroll page down}
        begin
          temp := GetDItemValue(Dlog,itemID) + 4;
          if temp > tMegs then
            temp := tMegs;
        end;
      8 : { scroll thumb}
        temp := GetDItemValue(Dlog,itemID);
    end; { of case}
    if cmd > 3 then {item changed !}
      begin
        { test to see if the new value is valid, if not,
          inform user, and change it to a legal value}
        if cmd in [4,6,8] then {DGL}
          TestValid(temp);
        SetPartSize(TMegs - temp);
	DrawAlloChart(false);		{ added 3/4/91 by Monte	}
      end;
    ScrollAction := temp;
    PLB;	{ caller's DBR }
  end;

{################################################################}
{#	test to see if the name passed is already used		#}
{################################################################}

function NotDuplicate(theStr : str255) : boolean;
  var
    i : integer;
  begin
    NotDuplicate := true;
    i := 0;
    with globalparts^^ do
      repeat
        inc(i);
        if Upperstring(PartsInfo[i].PartName) = theStr then
          NotDuplicate := false;
      until (i = (partcount - 1));
  end;

{################################################################}
{#	make a new partition name, and make sure its unique	#}
{################################################################}

function MakeNewPartname : str255;
  var
    curStr : str255;
    count : integer;
  begin
    count := 1;
    repeat
      curStr := concat('UNTITLED', IntToString(count));
      inc(count);
    until NotDuplicate(curStr);
    MakeNewPartname := curStr;
  end;

{################################################################}
{#	create partition dialog, & partition if neccessary	#}
{################################################################}

procedure Initialize; {this one initializes SCSI HardDisks (and partitions)}
  VAR
    itemHit,i,j : integer;
    MBstring : string[12];
    sum : integer;
    temp : integer;
    p : stringptr;
    dumbrect : rect;
    thePt : Point;
    dupErr : Boolean;
  label 1,2;

  BEGIN
    MakeCursor(watch);

    { this pins the maximum number of partitions somewhere between 12 and 32}
    MaxNumParts := ord(((ord4(tMegs * 1024) * 512) div 32000000) + 1);
    if MaxNumParts > 32 then
      MaxNumParts := 32
    else if MaxNumParts < 8 then
      MaxNumParts := 8;
    
    itemHit := CallGetNumParts(deviceNum);
    if itemHit > {12 *-DGL-*} 32 then { we can only handle 32 partitions!}
      itemHit := {12 *-DGL-*} 32;
    GlobalParts^^.PartCount := itemHit; { set the number we can handle!}
    SetHandleSize((itemHit * sizeof(Part)) + 2, Handle(GlobalParts));
    HLock(Handle(globalparts));
    if GetParts(deviceNum,Pointer(GlobalParts^)) <> 0 then {error }
      begin
        SetLongtext(@ReadPartErrStr);
        HUnlock(Handle(globalparts));
        MakeCursor(arrow);
        goto 1;
      end;
    HUnlock(Handle(globalparts));

    oldPort := GetPort;

    partDlog := GetNewModalDialog(@PartDITL);

    SizeBar := GetControlItem(PartDlog,4);
    NewButton := GetControlItem(PartDlog,6);
    DeleteButton := GetControlItem(PartDlog,7);

    if (GlobalParts^^.partCount >= {13 *-DGL-*} MaxNumParts) or
    (SumPartSizes >= tMegs) then { disable new}
      TurnOff(NewButton)
    else
      TurnOn(NewButton);
    
    if GlobalParts^^.partCount = 1 then { disable delete}
      TurnOff(DeleteButton)
    else
      TurnOn(DeleteButton);

    SetPort(partDlog);
    CurrPart := -1; {initialize our partition global}
    SetActivePartition(1);
    RebuildList(1);
    SelectMember(@myList[1], @myListRec);
 {   DrawAlloChart(true);	this now happens @ update time -Monte 3/91 }

2:  MakeCursor(arrow);
    REPEAT { here we create the Partition dialog box - use a custom filter on it}
    	   { because we have list controls which clash with the dialog manager  }
      itemHit := ModalDialog(procPtr(Ord4(@myDlogFilter) + $C0000000));
      
      if (SumPartSizes >= tMegs)
      or (GlobalParts^^.partCount >= {13 *-DGL-*} MaxNumParts) then
        TurnOff(NewButton)
      else
        TurnOn(NewButton);

      if (itemHit = 100) or (itemHit = 6) or (itemHit = 7) then
        begin
          for selected := 1 to GlobalParts^^.partCount do
            if myList[selected].memFlag <> 0 then
              leave;
          SetActivePartition(selected);
        end;
      if (itemHit = 6) then { it was the new partition button...}
        begin
	  temp := currPart;
	  SetActivePartition(-2); {save old selection}
	  currPart := temp;

          if (GlobalParts^^.partCount = {12 *-DGL-*} MaxNumParts-1) then { disable new}
            TurnOff(NewButton);
          if (GlobalParts^^.partCount = 1) then { enable delete}
            TurnOn(DeleteButton);
          SetHandleSize(GetHandleSize(Handle(GlobalParts)) + SizeOf(part),
	  	Handle(GlobalParts));

	  HLock(Handle(GlobalParts));

	  with GlobalParts^^ do
            begin
              inc(partCount);

	      with partsinfo[partcount] do
	        begin
                  PartName := MakeNewPartName;
                  partSize := 1;
	        end;

              RebuildList(GlobalParts^^.partCount);
     	      currPart := -1;{reset the list correctly}

              SetActivePartition(GlobalParts^^.partCount);
     	      SelectMember(@myList[currPart], @myListRec); {select new name}
              SetCtlParams(GlobalParts^^.partCount,5,listScroll1);

    { 	      InvalRect(listRect1);			now done in RebuildList }
    {          InvalRect(listScroll1^^.ctrlRect);				}
     	      DrawAlloChart(true); {re-draw the chart}
            end;
	  
	  HUnLock(Handle(GlobalParts));

          if (SumPartSizes >= tMegs) then { disable new}
            TurnOff(NewButton);
         end

      else if (itemHit = 7) then { it was the delete partition button...}
        begin
          TurnOn(NewButton);
          if GlobalParts^^.partCount = 2 then { disable delete}
            TurnOff(DeleteButton);

          with GlobalParts^^ do
            begin
              dec(partcount);
              for i := selected to partCount do {move the list down}
                with partsinfo[i+1] do
                  begin
                    PartsInfo[i].PartSize := partSize;
                    PartsInfo[i].PartName := partName;
                  end;
              RebuildList(1);
	      SelectMember(@myList[1], @myListRec);
              currpart := -1;
              SetActivePartition(1);
     	      SetCtlParams(GlobalParts^^.partCount,5,listScroll1);

    { 	      InvalRect(listRect1);			now done in RebuildList }
    {          InvalRect(listScroll1^^.ctrlRect);				}
     	      DrawAlloChart(true); { redraw the chart}
            end;
        end;
            
    UNTIL (itemHit = 2) or (itemHit = 9);
    
    temp := currPart;
    SetActivePartition(-2); {save the selection}
    currPart := temp;

    if itemHit <> 9 then {partition and initialize the Hard Disk}
      p := @cancelPartStr
    else
      if BadPartNames(dupErr) then
	begin
	  if dupErr then
	    DoAlert('Sorry, you cannot have duplicate partition names.',
	          'Rename your partitions so that they are unique.')
	  else
	    DoAlert('Sorry, your partition names must have at least',
	          'one character to be valid for your file system.');
          with dumbrect do
            begin
              h1 := 240;
	      h2 := 640;
	      v1 := 0;
	      v2 := 200;
	    end;
	  setport(partDlog);
          invalRect(dumbrect);
          beginupdate(partDlog);
            DrawDialog(partDlog);
            DrawAlloChart(true); {we need to do a total redraw on this one!}
          endupdate(partDlog);
	  goto 2;
	end
      else
        begin
	  HLock(Handle(globalParts));
	  j := SetParts(deviceNum,Pointer(GlobalParts^));	{ do partitioning }
	  IF j = $4321 THEN GOTO 2;	{ user canceled }
          if j = $1234 then p := @PartErrStr
	  else
	    begin
	      p := @SuccessPartStr;
	      { parameters to getvolicon are passed in global infoblk}
	      { infoblk was set during setparts call... This makes the}
	      { current volume look correct when the "main" window is updated }
	      CurVolIcon := GetVolIcon;
	      isLockedDev := FALSE;	{ isn't locked any more }
	    end;
	  HUnLock(Handle(globalParts));
       end;
    
    SetLongText(p);

  { remove the list, so dialog manager doesn't choke!}
    DisposeControl(listControl1);
    listControl1 := nil;
    CloseDialog(partDlog);
    partDlog := nil; { for safety sake}
    SetPort(oldPort);
1: { DrawLines;		removed by Monte b/c this happens @ update time }
  END;

{################################################################}
{#	initialize a device, prompt user as neccessary		#}
{################################################################}

procedure InitializeVolume;
var
  nameDlogPtr : GrafPortPtr;
  itemHit     : integer;
  err : integer;
  p : stringptr;
  diskName    : STRING[34];
  rtnVolName : PACKED ARRAY[0..36] OF CHAR;
  theGPtr : GSResultPtr;
begin

  { do a format on the (floppy) drive}
  MakeCursor(watch);
      
  if toolerr <> noError then	{ error from volume call? }
    diskName := ':UNTITLED'
  else
    diskName := {CONCAT(':', dispVolumeStr);} currVolumeStr;

  MakeGSOSStr(currDeviceStr,s1);
  theGPtr := GSResultPtr(@rtnVolName);	{ need xtra step b/c compiler sucks }
  MakeGSOSStr(diskName, theGPtr^.gstring); { set default name for user to edit }
  theGPtr^.bufSize := 36;			{ set buf size }
  with formatBlk do
    begin
      pCount := 6;
      devName := @s1;
      volName := @theGPtr^.gstring;
      FSNumOut := 0;
      FSNumIn := 0;
      flags := $C000;	{ editable name, selectable FST }
      realVolName := @rtnVolName;
    end;
  err := GSOSFormat;

(*  if err <> noError then
    begin
  {    p := @formatErrStr;	}
       p := @'';
       MakeCursor(arrow);
       itemHit := AlertWindow($0020, NIL, @formatErrAlrt);	{ tell user }
    end
  else
    begin
      p := @cancelInitStr;
      if formatBlk.FSNumOut <> 0 then
        begin
{	  diskName := GSToP(@theGPtr^.gstring);		}
          p := @successStr;
          TurnOn(EraseButton); { we can erase it now}
   {       if (diskName[1] = '/') OR (diskName[1] = ':') then
            delete(diskname,1,1);	}
    {      dispVolumeStr := diskname;	}
  	   SetVolName(GSToP(@theGPtr^.gstring));
        end;
     end;
*)		{	*** removed 8/19/91 by Monte ***	}


  CASE err OF
    noError :
      BEGIN
      p := @cancelInitStr;	{ assume user cancelled }
      IF formatBlk.FSNumOut <> 0 THEN	{ if user didn't cancel }
        BEGIN
        SetVolName(GSToP(@theGPtr^.gstring));
        p := @successStr;
        TurnOn(EraseButton); { we can erase it now}
	END;
      END;

    $50 { open file on disk } : p := @initErrOpenStr;

    OTHERWISE
      BEGIN	{ some kind of hard error in formatting }
        p := @'';
        MakeCursor(arrow);
        itemHit := AlertWindow($0020, NIL, @formatErrAlrt);	{ tell user }
      END;
  END; {case}


  SetLongText(p);
  MakeCursor(arrow);
 {   end;	}
(*			removed 1/91 by Monte Benaresh
  else
    begin
      CloseDialog(nameDlogPtr);
      SetLongText(@cancelInitStr);
    end;				*)
  DrawLines;
end;

{################################################################}
{#	erase a device, prompt user as neccessary		#}
{################################################################}

procedure DoErase;
var
  p : stringptr;
  err : integer;
  rtnVolName : PACKED ARRAY[0..36] OF CHAR;
  theGPtr : GSResultPtr;
begin
  MakeCursor(watch);
  MakeGSOSStr(currDeviceStr,s1);
  theGPtr := GSResultPtr(@rtnVolName);	{ need xtra step b/c compiler sucks }
  MakeGSOSStr(currVolumeStr, theGPtr^.gstring);
  theGPtr^.bufSize := 36;			{ set buf size }
  with formatBlk do
    begin
      pCount := 6;
      devName := @s1;
      volName := @theGPtr^.gstring;
      FSNumOut := 0;
      FSNumIn := 0;
      flags := $C000;    { editable name, selectable FST }
      realVolName := @rtnVolName;
    end;
  err := GSOSErase;

  p := @cancelEraseStr;
  if formatBlk.FSNumOut <> 0 then
    p := @eraseSuccStr;

(*  if err <> noError then
    begin
*)
  CASE err OF
    noError : SetVolName(GSToP(@theGPtr^.gstring));
    $50 { open file on disk } : p := @eraseErrOpenStr;
    OTHERWISE p := @eraseErrStr;
  END; {case}

  SetLongText(p);
  MakeCursor(arrow);
end;

{################################################################}
{#  snag tab keys & make'm look like a mouse in the vol button	#}
{################################################################}

function CatchTabs(theDlog : grafportptr;
			var someEvent : wmTaskRec; var itemhit : integer) : integer;
  var
    i : integer;
    tempCh : char;
    myname : str255;
  begin
    PHB;	{ added 3/91 by Monte }
    phk; {make sure data bank is set correctly}
    plb;
    CatchTabs := 0; {false}
    { this routine is called periodically and every time there is an event}
    { we need to deturmine if our disk has changed, if so we fake a volume}
    { event so that the user cant do any actions on a ejected device.  We}
    { keep the current devices state in currState - note : we only need to}
    { check devices that have a removable media}
     
     with someEvent do
       if (wmWhat = 0) and ((tickcount - lastCheck) > 15) then { null event... do our scan}
         begin
           lastCheck := tickcount;
           if isRemovable then
             begin
               {now do a status, and compare it to the last one we had}
               with statusBlk do
                 begin
                   pCount := 5;  
                   devNumber := deviceNum;
                   statCode := 0;
                   StatList := @StatResult;
                   RequestCount := 6;
                 end;
                 
               i := GSOSStatus;
       
               if bitand(StatResult.general,$10) <> bitand(currState,$10) then {its changed, go to next device}
                 begin
                   itemhit := 5; {volume}
                   CatchTabs := 1; {True}
		   BlinkButton(GetControlItem(theDlog,5));
                 end;
            end;
        end
      else
        begin
          tempCh := char(loword(bitand(wmMessage,$000000FF)));
          if (wmWhat = 3) or (wmWhat = 5) then { keydown, autokey}
            if tempCh = char($9) then { tab!}
              begin
                itemhit := 5; {volume}
                CatchTabs := 1; {True}
                if bitand(wmModifiers,$800) <> 0 then { option key and tab}
                  begin
                    dec(deviceNum);
                    itemhit := 5; {volume}
                    CatchTabs := 1; {True}
                  end;
		BlinkButton(GetControlItem(theDlog,5));
              end
            else if tempCh = char($1B) then {escape key}
              begin
                itemhit := 10; {cancel}
                CatchTabs := 1; {True}
		BlinkButton(GetControlItem(theDlog,10));
              end;
          end;
    PLB;	{ caller's DBR }
  end;

{################################################################}
{# set the info dialogs info to match the passed device num	#}
{################################################################}

procedure SetDialogInfo(theDlog : GrafPortPtr; dNum : Integer);
  var
    thePt : Point;
    tempStrPtr : StringPtr;
    temp : ptr;
    i : integer;
    junkStr : str255;
  begin { set the appropriate info for the given device}
    i := D_Info(dNum, aStr);
    with infoBlk do
      begin
        pCount := 11;  
        devNumber := dNum;
        devname := @junkStr;
      end;
    i := GSOSInfo;
    
    SetIText(theDlog,12,@astr); {set the device name}
    
    if volume(astr, globalstr1) <> noError then { there was an error- uninitialized?}
      begin
        SetIText(theDlog,8,@Uninitialized); {set the volume name}
        SetIText(theDlog,11,ptr(unknownptr));
        SetIText(theDlog,9,@'0 K');   {set used}
        tempstr1 := concat(LongintToString(Real2Long(infoBlk.totalblocks DIV 2)),'K');
        SetIText(theDlog,10,@tempstr1); { set avail}
      end
    else
      begin
        SetIText(theDlog,8,@globalStr1); {set the volume name}
        if (file_system_id > $B) or (file_system_id < 1) then
	  if infoblk.devid = $1e then
	    file_system_id := $C
	  else
	    file_system_id := $D;
        SetIText(theDlog,11,Ptr(FileSysStrTbl[file_system_id]));
          
        globalStr2 := concat(LongintToString(Real2Long((total_blks - free_blks +1) DIV 2)),'K');
        SetIText(theDlog,9,@globalStr2);
        tempstr1 := concat(LongintToString(Real2Long(free_blks DIV 2)),'K');
        SetIText(theDlog,10,@tempstr1);
      end;

    isLockedDev := false; { assume the best}
    if bitand(infoblk.characteristics, $40) = 0 then { write protected}
      isLockedDev := true
    else if bitand(infoblk.characteristics, $80) <> 0 then { block device - see if it's write protected}
      begin
        with statusBlk do
          begin
            pCount := 5;  
            devNumber := dNum;
            statCode := 0;
            StatList := @StatResult;
            RequestCount := 6;
	  end;
	  
        i := GSOSStatus;
        if bitand(StatResult.general,$4) <> 0 then
          isLockedDev := true;
      end;

 (*   with thePt do	removed b/c this happens at update time -Monte 3/91
      begin
   {     v := 35;
        h := 48;	}
        v := 6;
        h := 2;
      end;
    
    temp := @unlockicon;
    if islockeddev then
      temp := @lockIcon;
    
    PlotIconola(temp, thePt, true);	*)
  end;

{################################################################}
{#	build a list that contains all partitions on a drive	#}
{################################################################}

function BuildDInfoList(dNum : integer; theDlog : GrafPortPtr) : integer;
VAR
  miscWord : integer;
  devindex, devType : integer;
  i : integer;
  startindex : integer;
  doneonce, partedFlag : boolean;
  localStr : str255;
  myName : str255;
  pmapTstHdl : Handle;

BEGIN
  devIndex := dNum;
  with infoblk do
    begin
      pCount := 11;  
      devNumber := devIndex;
      devname := @myname;
      devType := devID;
    end;
  {DINFO call}
  i := GSOSInfo;
  
  with infoBlk do
    if headLink <> 0 then
      begin { re - issue the call with the new head!!!}
        devIndex := headLink;
        pCount := 11;  
        devNumber := devIndex;
        devname := @myname;

        i := GSOSinfo;
      end;

  { check for partitions on this device }
  partedFlag := FALSE;	{ assume not partitioned }

  IF devType = $0005 THEN	{ SCSI hard disk?	}
  	BEGIN		{ special test for SCSI HD with 1 partition }
	  pmapTstHdl := NewHandle($200, MyMemoryID, attrFixed, nil);
	  IF toolerrornum = 0 THEN
	  BEGIN
	    IntPtr(pmapTstHdl^)^ := $0000;	{ clear out signature bytes }

	    WITH statusblk DO
	      BEGIN
		pCount := 5;  
		devNumber := devIndex;
		statCode := 4; {get partition map}
		statlist := pmapTstHdl^;
		requestcount := 512;
	      END;

	    IF (GSOSStatus = 0) AND (IntPtr(pmapTstHdl^)^ = $4D50) THEN
	      partedFlag := TRUE;

	    DisposeHandle(pmapTstHdl);
	  END;
	END;

  doneonce := false; {dont look at next link until after we've gone through once}

  { devIndex now points to the first device in the list}
  { fill the infolist and set devCount to the correct number}
  
  miscword := 0; {init counter}
  repeat
    if doneonce then
      begin
        devIndex := infoblk.forwardlink;
	with infoblk do
	  begin
	    pCount := 11;  
	    devNumber := devIndex;
	    devname := @myname;
	  end;
	  
	i := GSOSInfo;
      end;
      
    with statusBlk do
      begin
        pCount := 5;  
        devNumber := devIndex;
        statCode := 0;
        StatList := @StatResult;
        RequestCount := 6;
      end;
      
    i := GSOSStatus;
       
    if (bitand(StatResult.general,$0010) <> 0) then {if its online, or a cd proceed}
      begin
        inc(miscword);
        with infoList[miscWord], myList[miscword] do
          begin
            if D_Info(devIndex,myname) <> noError then
              devName := 'Bad Device'
            else
              if volume(myName, localStr) <> noError then
                devName := myName
              else
                devName := localStr;
            devNum := devIndex;
            memPtr := @devName;
            memFlag := 0;
          end;
        if devindex = dNum then
          startindex := miscword;
      end
    else { we hit an offline partition, that means we are at the end!!!!}
      if (infoblk.devID <> 7) then {if not CDROM, a we're at the end so BYE!}
	infoblk.forwardlink := 0; { so we will exit - we need this!}

    doneonce := true; {so we know we need to look at the next link}
      
  until (infoblk.forwardlink = 0) or (miscword = 32);

  { if we found linked devices, count this device as	}
  {  partitioned whether it's a SCSI HD or not		}
  IF miscword > 1 THEN partedFlag := TRUE;

  {kludge beause testing wanted it this way}
{  if miscword <= 1 then			changed 3/5/91 by Monte Benaresh }
  IF NOT partedFlag THEN
    begin
      miscword := 1;
      startindex := 1;
      InfoList[1].devName := 'No partitions on this disk.';
      InfoList[1].devNum := devIndex;
      myList[1].memPtr := @InfoList[1].devName;
      myList[1].memFlag := 0;
    end;
  
  BuildDInfoList := miscword; {return count}
  
  with myListRec, listRec do {set up the list record}
    begin
      v1 := 65;
      h1 := 125;
      v2 := 106;
      h2 := 375;
      listsize := miscword; {number of items}
      listview := 4;
      listtype := 2;
      liststart := startindex;
      listctl := nil;
      listdraw := nil;
      listmemheight := 10;
      listmemsize := sizeof(listmemrec);
      listpointer := @myList;
      listrefcon := 0;
      listscrollclr := nil;
    end;

  ListRect1 := myListRec.listRec;

  listControl1 := CreateList(theDlog,@myListRec);
  listScroll1 := listControl1^^.CtlListBar;
  SelectMember(@myList[startindex], @myListRec);

  SaveAndZeroRefCons;
END;

{################################################################}
{#	entry point for displaying a device's "info"		#}
{################################################################}

procedure DoDeviceInfo(dNum : Integer);
  var
    InfoDlog : GrafPortPtr;
    itemHit : integer;
    numberofParts : integer;
 {   iconPtr : Ptr;		moved to globals for update routine by Monte 3/91 }
    i : integer;
    thept : Point;
    myName : str255;
  begin { display a dialog with device (volume) information }
    MakeCursor(watch);
    {----- first create the dialog -----}
    oldPort := GetPort;

    InfoDlog := GetNewModalDialog(@InfoDITL);
    SetPort(InfoDlog);

    {----- set the general device info ----}
    with infoBlk do
      begin
        pCount := 11;  
        devNumber := dNum;
        devname := @myname;
      end;
      
    i := GSOSInfo;

    iconptr := GetVolIcon; {parameters are passed in global infoblk}

 (*   with thePt do	this will all get done at update time! -Monte
      begin
        v := 6;
   {     h := 29;	}
        h := 34;
      end;
    PlotIconola(iconPtr,thePt,false);	*)
    
    {----- add the list of partitions if any -----}
    numberofParts := BuildDInfoList(dNum, InfoDlog);

    {----- set the info for the current device -----}
    SetDialogInfo(infoDlog, dNum);
    
    {----- get & handle events, if a new partition is selected, display it ----}
    MakeCursor(arrow);
    repeat { here we create the Partition dialog box - use a custom filter on it}
    	   { because we have list controls which clash with the dialog manager  }
      itemHit := ModalDialog(procPtr(Ord4(@myDlogFilter) + $80000000));
      if (itemHit = 100) and (numberofparts > 1) then
        begin
          for selected := 1 to numberofparts do
            if myList[selected].memFlag <> 0 then
              leave;
          SetDialogInfo(infoDlog, infolist[selected].devNum); 
        end;
    until (itemHit = 1);
      
    DisposeControl(listControl1); {remove the list, so dialog manager doesn't choke!}
    listControl1 := nil; {so we dont die when trying to partition a device}
    CloseDialog(InfoDlog);

    SetPort(oldPort);

  { now re-scan this device to activate appropriate buttons in Main window }
    deviceNum := dNum - 1;
    NextDrive;			{ re-scan }

 {   DrawLines;		removed 3/91 by Monte b/c update takes care of this }
  end;


FUNCTION PartitionOK(partDev : INTEGER): BOOLEAN;
	{ check whether it's OK to partition given device }

  VAR
  devIndex, itemClicked, headDev : INTEGER;
  devUnlocked, fileOpen : BOOLEAN;
  alertPtr : Ptr;

  BEGIN

  { first get head device }

    WITH infoBlk DO
      BEGIN
      pCount := 11;
      devNumber := partDev;
      devname := NIL;
      END;

    toolErr := GSOSInfo;
    headDev := infoBlk.headlink;

    IF headDev = 0 THEN headDev := partDev;	{ if link was 0, we had head device }

  { check for open files on all volumes }

    fileOpen := FALSE;		{ assume no open files }

    devIndex := headDev;	{ start at top }

    REPEAT { scan this device forward }

      fileOpen := CheckOpenFiles(devIndex);	{ make VOLUME call }

    { set up D_INFO call}
      WITH infoBlk DO
        BEGIN
        devNumber := devIndex;
	END;

      toolErr := GSOSInfo;

      devIndex := infoBlk.forwardlink;	{ link to next device }

    UNTIL (devIndex = 0) OR fileOpen;

    IF fileOpen THEN
      BEGIN			{ tell user he can't partition }
      itemClicked := AlertWindow($0020, NIL, @partOpenAlrt);

      PartitionOK := FALSE;
      EXIT(PartitionOK);
      END;


  { get here only if no open files on any volume }

    devUnlocked := TRUE;		{ assume no locked partitions }

    devIndex := headDev;	{ start at top }

    REPEAT { scan this device forward }

    { set up D_INFO call}
      WITH infoBlk DO
        BEGIN
        devNumber := devIndex;
	END;

      toolErr := GSOSInfo;

      IF BITAND(infoBlk.characteristics, $0040) = 0	{ locked partition? }
      THEN devUnlocked := FALSE;		{ some locked partitions }

      devIndex := infoBlk.forwardlink;	{ link to next device }

    UNTIL (devIndex = 0) OR NOT devUnlocked;


  { now we have scanned through all partitions on this device }

  { choose alert box accordingly }
    IF devUnlocked { is it OK so far } THEN alertPtr := @partAlrt
      ELSE alertPtr := @partLockAlrt;

  { now warn user	}
    itemClicked := AlertWindow($0020, NIL, alertPtr);	{ warn user }
    IF itemClicked <> 1 THEN PartitionOK := FALSE	{ user declined }
      ELSE PartitionOK := TRUE;

  END;

{################################################################}
{#	take care of actions in the main dialog			#}
{################################################################}

procedure ProcessInit;
var
  itemHit : Integer;
  nameDlogPtr : GrafPortPtr;
  itemClicked : integer;
begin
 { repeat		removed 3/91 by Monte b/c main Dlog now real modeless window! }
 {  itemHit := ModalDialog(procPtr(Ord4(@CatchTabs) + $80000000));   removed by Monte }

    itemHit := event.wmTaskData4;	{ ID of ctl that took event }
    case itemHit of
      2  : begin { erase}
             if toolerr <> noError then	{ error from volume call? }
               begin
                 currVolumeStr := '/DISK';
                 Defname := @':UNTITLED';
               end;

	         DoErase;

           end;
      5  : begin {volume}
             MakeCursor(watch);
          (*   repeat	*)
               NextDrive; {Skip over nonexistent Disk II device and empty 3.5 drives}
          (*   until noDevices or (not (toolErr in [noDevice,noDiskInDrive]));	*)
             MakeCursor(arrow);
           end;
      9  : begin {partition button}
         (*    with WarningItem3 do { set the error text}
	       begin
		 ItemDescr := @warning4Str[1];
		 ItemValue := length(warning4Str);
	       end;
	     itemClicked := CautionAlert(@WarningAlert,nil);
	     if itemClicked = 2 then
	 *)	{ removed 8/9/91 to allow check and warning for locked partitions }

	     IF PartitionOK(deviceNum) THEN	{ check with user first }
	       Initialize	{really partition}
             else
	       BEGIN
	       SetLongText(@cancelPartStr);
	       END;
	   end;
      10 : Done := TRUE; { quit application }
      11 : InitializeVolume; { initialize button}
      12 : begin {zero}
         (*					changed 6/17/91 by Monte
	     with WarningItem3 do { set the error text}
	       begin
		 ItemDescr := @warning3Str[1];
		 ItemValue := length(warning3Str);
	       end;
	     itemClicked := CautionAlert(@WarningAlert,nil);
	 *)

	    IF CheckOpenFiles(deviceNum) THEN SetLongText(@zeroErrOpenStr)
	    ELSE
	     BEGIN
	     itemClicked := AlertWindow($0020, NIL, @zeroAlrt);	{ warn user }
	     if itemClicked = 1 then
	       begin
	         MakeCursor(watch);
	       { force update of main dlog }
	         BeginUpdate(InitDlogPtr);
		 MainWindUpdt;			{ redraw window }
		 EndUpdate(InitDlogPtr);

	         DoDeviceZero(deviceNum, false);
		 dispVolumeStr := unInitStr;	{ set in case user clicks icon }
	         MakeCursor(arrow);
	       end
             else
	       SetLongText(@cancelZeroStr);
	    END;
           end;
      13 : DoDeviceInfo(deviceNum); {info}

    end;  {case}
    if (itemHit <> 10) and noDevices then
      begin
     {   SetIText(InitDlogPtr,7,@blankStr);	}
        SetLongText(@noDevicesStr);
      end;
{  until itemHit = 10;	removed 3/91 by Monte b/c Dlog now real modeless window! }
end;
 
{################################################################}
{#	create the main dialog, find first drive, & loop	#}
{################################################################}

function GetInitCtlItem(item : integer) : ControlHandle;
  begin
{    GetInitCtlItem := GetControlItem(InitDlogPtr,item);	changed 3/91 by Monte }
    GetInitCtlItem := GetCtlHandleFromID(InitDlogPtr,item);
  end;

PROCEDURE MainWindUpdt;	{ called only for main window }

  BEGIN
    DrawControls(InitDlogPtr);
    DrawLines;	{ this draws decorative lines and current disk icons	}
  END;

procedure ShowInit;
begin
  deviceNum := 0;
 { atLeastOneDev := false;	}
  noDevices := false;
  islockeddev := false;
{  curVolIcon := @NoName;	changed 3/91 by Monte to eliminate NoName icon }
  curVolIcon := NIL;	{ PlotIconola now checks this }
  currDeviceStr := ' '; {initialize it!}
  subStrArray[0] := @currDeviceStr;
  lastCheck := tickcount;

{  InitDlogPtr := GetNewModalDialog(@InitDlog);		changed 3/91 by Monte }
  InitDlogPtr := NewWindow2(NIL, 0, @MainWindUpdt, NIL, 2,
  			mainDlog, rWindParam1);  { put up main window }

  EraseButton := GetInitCtlItem(2);
  PartButton := GetInitCtlItem(9);
  InitButton := GetInitCtlItem(11);
  ZeroButton := GetInitCtlItem(12);
  InfoButton := GetInitCtlItem(13);
  CancelButton := GetInitCtlItem(10);

{  SetPort(InitDlogPtr);	this is done in DrawLines -Monte 3/91 }
  DrawLines;
  makecursor(watch);

  { get 1st device }
 (*   repeat	*)
      NextDrive;
 (*   until (not (toolErr in [noDevice,noDiskInDrive])) or noDevices;
 *)
       {Find first device on line, skipping over nonexistent
	Disk II device and empty 3.5 drives}
    if noDevices then
      SetLongText(@noDevicesStr);
  MakeCursor(Arrow);
{  ProcessInit;		removed by Monte }
end;

{################################################################}
{#	a little razzle-dazzle in an about box			#}
{################################################################}

procedure DoAboutItem;
var
  aboutDlog  : GrafPortPtr;
  itemHit    : integer;
{  thePt : Point;
  one : integer;
  two : integer;
  three : integer;
  four : integer;	}
  myWmTaskRec : WmTaskRec;
begin
   { display the about box, wait for user to click ok, then close it!}
   aboutDlog := GetNewModalDialog(@AboutDITL);
 {  DrawDialog(aboutDlog);	}

   oldPort := GetPort;
   SetPort(aboutDlog);

 {  one := 0;
   two := 1;
   three := 2;
   four := 3;		removed 3/91 by Monte	}

   REPEAT
  (*   thePt.h := 9;
     thePt.v := 5;
  {   pauseit;		removed 1/91 by Monte	}
     PlotIconola(@FakeArray[one], thePt, false);
     thePt.h := 319;
     PlotIconola(@FakeArray[two], thePt, false);
     thePt.v := 73;
     PlotIconola(@FakeArray[three], thePt, false);
     thePt.h := 9;
     PlotIconola(@FakeArray[four], thePt, false);
     inc(one);
     inc(two);
     inc(three);
     inc(four);
     if one = 4 then
       one := 0
     else if two = 4 then
       two := 0
     else if three = 4 then
       three := 0
     else if four = 4 then
       four := 0;		removed 3/91 by Monte	*)

     itemHit := ModalDialog(procPtr(Ord4(@myDlogFilter) + $C0000000));
 (*  until eventavail(10,myWmTaskRec) {mouse down or keypressed};	*)
   UNTIL ItemHit = 1;
   CloseDialog(aboutDlog);

   SetPort(oldPort);
end;

end.
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/ADU/Event.pii b/IIGS.601.SRC/A.U.G/ADU/Event.pii
new file mode 100644
index 0000000..a5f9414
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/ADU/Event.pii
@@ -0,0 +1 @@
+{################################################################}
{#								#}
{#  File:	Event.Pas from IIGS Disk Initializer		#}
{#								#}
{#--------------------------------------------------------------#}
{#								#}
{#  Description:  This file has all the routines that handle	#}
{#		  the events in the IIGS Disk Initializer.	#}
{#								#}
{#--------------------------------------------------------------#}
{#								#}
{#  Author:	Darryl Lovato					#}
{#								#}
{#--------------------------------------------------------------#}
{#								#}
{#  Copyright:	1987,1988 by Apple Computer Inc.		#}
{#		All rights reserved.				#}
{#								#}
{#--------------------------------------------------------------#}
{#								#}
{#  Modification History:					#}
{#								#}
{#	Who	When	The Change				#}
{#	---	------	-------------------------------------	#}
{#	SR	12/7/87	Created v.1 - erase & init only		#}
{#	DGL	1/29/88 Rewrote everything - cut size in half!  #}
{#	DGL	5/9/88	Finished Adding Partition Support	#}
{#			and other features... far too many to	#}
{#			list here...				#}
{#	DGL	5/12/88 Added Zero and Info operations		#}
{#	DGL	5/20/88 Released pre-alpha version to testers	#}
{#	DGL	6/1/88  Alpha!					#}
{#	DGL	6/13/88 Alpha 2					#}
{#	DGL	6/24/88 Alpha 3					#}
{#	DGL	7/1/88  Beta 1					#}
{#	DGL	7/13/88 Beta 2					#}
{#	DGL	7/20/88	Beta 3					#}
{#	DGL	7/27/88	Beta 4					#}
{#	DGL	8/1/88	Beta 5					#}
{#	DGL	8/8/88	Beta 6					#}
{#	DGL	8/15/88 Final!					#}
{#								#}
{################################################################}

{$LongGLobals-}
{$ToolErrorChk-}
{$A+}
unit Event;

interface

uses
  InitIntfData,
  InitIntfProc,
  InitIntfPdos,
  ListMgr,
  Globals,
  Utils,
  Guts,
  Dialog,
  Menu;

procedure MainEvent;   {Main event handling loop which repeats until Quit}

implementation

{################################################################}
{#	main event loop, heres where the action is!		#}
{################################################################}

PROCEDURE MainEvent;
   VAR
     temp : boolean;
     lastDA : boolean;
     taskCode : INTEGER;
  {   nowTick : LONGINT; }
     hdiResult : LONGINT;
     hdiFlags, hdiDev : INTEGER;
     tempErr : INTEGER;
     clickPoint : Point;

   BEGIN
       Event.wmTaskMask := $1FFFFF;  {Allow TaskMaster to do everything}
       Done := false;  {Done flag will be set by Quit item}
       repeat
         taskCode := TaskMaster(-1,Event);
         if taskCode = winMenuBar then DoMenu;
	 IF taskCode = wInControl THEN ProcessInit;	{ handle ctl hitÉ }
	 						{Éin main Dlog    }

	 IF taskCode = wInContent THEN
	   BEGIN  { check for click in icon rectangle }
	   clickPoint := Event.wmWhere;
	   SetPort(InitDlogPtr);	{ just in case }
	   GlobalToLocal(clickPoint);
	   IF PtInRect(clickPoint, mainIconRect) THEN
	   	SetLongText(@dispVolumeStr);	{ show volume name }

	   END;

         temp := IsDa(FrontWindow); { dim the edit menu if its a DA on top!}
         if temp <> lastDA then
           begin
             lastDA := temp;
             if temp then
               SetmenuFlag($FF7F, 900)
             else
               SetmenuFlag($0080, 900);
             DrawmenuBar;
           end;

    { scan for disk inserts/ejects }

      hdiResult := HandleDiskInsert(hdiScan + hdiEjects, 0);
      hdiFlags := Longword(hdiResult).HiWord;
      hdiDev := Longword(hdiResult).LoWord;

      IF (hdiDev = deviceNum) AND (hdiDev <> 0) THEN  { is it our current device? }
      	BEGIN	{ must have been ejected, so move on to next online device }
	MakeCursor(watch);
	{repeat	}
	  NextDrive; {Skip over nonexistent Disk II device and empty 3.5 drives}
	{until noDevices or (not (toolErr in [noDevice,noDiskInDrive])); }
	MakeCursor(arrow);
	END
      ELSE
      	BEGIN	{ activity in some other device }
	IF (hdiDev <> 0) AND (BitAND(hdiFlags, $0001) = 0)
	{ was it an insert? } THEN
	  BEGIN
	  MakeCursor(watch);
	  deviceNum := hdiResult-1;	{ this will cause NextDrive toÉ	}
	  NextDrive;			{Émove to the inserted device	}
	  MakeCursor(arrow);
	  END;
	END;
(*
	nowTick := GetTick;
	IF nowTick - lastPoll > 40 THEN  { has it been this many ticksÉ }
					 {Ésince last device poll?	}
	  BEGIN
          lastPoll := nowTick;		{ reset time of last poll	}
	  IF deviceNum <> 0 THEN { if we have a device online, check for eject }
	    BEGIN
            with statusBlk do
              begin
              pCount := 5;  
              devNumber := deviceNum;
              statCode := 0;
              StatList := @StatResult;
              RequestCount := 6;
              end;

            tempErr := GSOSStatus;

            IF (tempErr = 0) AND 
	      (BitAND(StatResult.general, $0011) = $0001)
	      THEN { offline switched? }
	        BEGIN
                MakeCursor(watch);
             {   repeat		}
                  NextDrive; {Skip over nonexistent Disk II device and empty 3.5 drives}
              {  until noDevices or (not (toolErr in [noDevice,noDiskInDrive]));
	      }
                MakeCursor(arrow);
		END;
	    
	    END;
	  END;
*)

       until Done;
   END;

END.
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/ADU/Globals.pii b/IIGS.601.SRC/A.U.G/ADU/Globals.pii
new file mode 100644
index 0000000..a240e78
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/ADU/Globals.pii
@@ -0,0 +1 @@
+{################################################################}
{#								#}
{#  File:	Globals.Pas from IIGS Disk Initializer		#}
{#								#}
{#--------------------------------------------------------------#}
{#								#}
{#  Description:  This file has all the global vars and const's	#}
{#		  that is used by the IIGS Disk Initializer	#}
{#								#}
{#--------------------------------------------------------------#}
{#								#}
{#  Authors:	Darryl Lovato					#}
{#								#}
{#--------------------------------------------------------------#}
{#								#}
{#  Copyright:	1987,1988 by Apple Computer Inc.		#}
{#		All rights reserved.				#}
{#								#}
{#--------------------------------------------------------------#}
{#								#}
{#  Modification History:					#}
{#								#}
{#	Who	When	The Change				#}
{#	---	------	-------------------------------------	#}
{#	SR	12/7/87	Created v.1 - erase & init only		#}
{#	DGL	1/29/88 Rewrote everything - cut size in half!  #}
{#	DGL	5/9/88	Finished Adding Partition Support	#}
{#			and other features... far too many to	#}
{#			list here...				#}
{#	DGL	5/12/88 Added Zero and Info operations		#}
{#	DGL	5/20/88 Released pre-alpha version to testers	#}
{#	DGL	6/1/88  Alpha!					#}
{#	DGL	6/13/88 Alpha 2					#}
{#	DGL	6/24/88 Alpha 3					#}
{#	DGL	7/1/88  Beta 1					#}
{#	DGL	7/13/88 Beta 2					#}
{#	DGL	7/20/88	Beta 3					#}
{#	DGL	7/27/88	Beta 4					#}
{#	DGL	8/1/88	Beta 5					#}
{#	DGL	8/8/88	Beta 6					#}
{#	DGL	8/15/88 Final!					#}
{#								#}
{################################################################}

{$LongGLobals-}
{$ToolErrorChk-}
{$A+}
unit Globals;

interface

uses
  InitIntfData,         {HodgePodge Apple IIGS Toolbox Interface Units}
  InitIntfProc,
  InitIntfPDOS,
  ListMgr;

{################################################################}
{#		global constants follow				#}
{################################################################}

CONST
  arrow = 0; { cursor constants}
  watch = 1;

  ScreenMode        = $80;   {640 mode}
  MaxX              = 640;   {Max X clamp (should correspond to ScreenMode}
  MaxScan           = 160;   {Max size of scan line}

  AppleMenuID       = 300;
    AboutItem       = 301;
  FileMenuID        = 400;
    InitItem        = 401;
    QuitItem        = 409;

{Error Codes returned from VOLUME call}
  IOError           = 39;       {$27}
  NoDevice          = 40;
  OtherOS           = 82;       {$52}
  NoDiskInDrive     = 47;       {$2F}
  NoError           = 0;

{ constants added by Monte Benaresh for driver partition support  }

  pMapSizeBlks = 64;	{ # of blocks for partition map	}
  drvrSizeBlks = 32;	{ # of blocks for each driver partition }
  sysPartCount = 5;	{ 1 partition map and 4 driver partitions }
  rSCSIDrvr = $4D61;
  rSCSIDescDrvr = $5E72;

{ new constants to support real modeless main window }

  mainDlog = $1001;
  MEraseBut = $0002;
  MTitleTxt = $0003;
  MDiskBut = $0005;
  MStatTxt = $0008;
  MPartBut = $0009;
  MCancelBut = $000A;
  MInitBut = $000B;
  MZeroBut = $000C;
  MInfoBut = $000D;

  rWindParam1 = $800E;  { Parameters for NewWindow2 call }

{ dialog ref cons for easy ID in event filter routine for content update }
  InfoRef = $1002;
  DiskNameRef = $1003;
  InitRef = $1004;
  AboutRef = $1005;
  PartRef = $1006;

{################################################################}
{#		global types follow				#}
{################################################################}

TYPE
  Longword = RECORD
    LoWord : INTEGER;
    HiWord : INTEGER;
  END;

  Part = record
    partSize : longint; {size in 1024 of blocks (half-megs) }
    partName : string[31];
  end;
  
  PartitionRec = record
    PartCount : integer;
    PartsInfo : array[1..1] of Part;
  end;
  PartitionPtr = ^PartitionRec;
  PartitionHdl = ^PartitionPtr;

  myBlock = record
     pCount : integer;
     devNumber : integer;
     devname : StringPtr;
     characteristics : integer;
     totalBlocks : longint;
     slotNum : integer;
     unitNum : integer;
     version : integer;
     devID : integer;
   end;
 
 infoListRec = record
     devName : string[32];
     devNum : integer;
   end;
 
 NameArrayTbl = array[1..1] of stringPtr;
 
 BigIcons = packed array[0..329] of char;
 
 LongPtr = ^Longint;
 IntPtr = ^INTEGER;

    str32 = string[31];

    PartHdl = ^PartPtr;
    PartPtr = ^PartRec;
    PartRec = packed record
        pmSig : Integer;	 { signiature word - always $504D}
        pmSigPad : Integer;	 { reserved for future use}
        pmMapBlkCount : Longint; { number of blocks in map}
        pmPyPartStart : Longint; { first physical block of partition}
        pmPartBlkCount : Longint;{ number of blocks in partition}
        pmPartName : str32; 	 { partition name}
        pmPartType : str32; 	 { partition type}
        pmLgDataStart : Longint; { first logical block of boot code}
        pmDataCnt : Longint;	 { number of blocks in data area}
        pmPartStatus : Longint;	 { partition status information}
        pmLgBootStart : Longint; { first logical block of boot code}
        pmBootSize : Longint;	 { size in bytes of boot code}
        pmBootLoad : Longint;	 { boot code load address}
        pmBootLoad2 : Longint;	 { additional boot load information}
        pmBootEntry : Longint;	 { boot code entry point}
        pmBootEntry2 : Longint;	 { additional boot entry information}
        pmBootCkSum : Longint;	 { boot code checksum}
        pmProcessor : packed array[0..15] of char; { processor type}

	{ boot-specific argument fields copied from Mac HD SC Setup v3.0a2	}
	CASE INTEGER OF
	  1: (pmBootSpecific : PACKED ARRAY [0..375] OF BYTE); { placeholder label }
	  2: (
	      drvrSig     : LongInt;		{ boot specific argument 1}
	      has_tags    : LongInt;		{boot specific argument 2}
	      pollByte    : LongInt;		{ boot specific argument 3 }
	      {boot_arg4   : LongInt;}		{ boot specific argument 4}
	      blindtype   : INTEGER;		{ one of several }
	      shutdown    : INTEGER;		{ set if this drive wants head park }
	      { WARNING: Mac+ boot code doesn't load the last 256 bytes! }
              pmBootUnused : PACKED ARRAY [0..111] OF BYTE; { unused boot-specific args}
              pmUnused : packed array[0..247] of char; { other!}
	      );

      end;
   PartStructHdl = ^PartStructPtr;
   PartStructPtr = ^PartStructRec;
   PartStructRec = array[0..0] of partrec;

  { Driver Descriptor and Driver Descriptor Map (DDM) record added by Monte Benaresh	}

    drvrDesc = PACKED RECORD
        ddBlock : LONGINT;		{ first block of driver }
	ddSize : INTEGER;		{ driver size in blocks }
	ddType : INTEGER;		{ system type: 1 = MAC, $F = Apple IIGS }
      END;

    DDMRec = PACKED RECORD
        sbSig : INTEGER;		{ signiature word - always $4552 in MAC order }
        sbBlockSize : INTEGER;		{ block size of device }
        sbBlkCount : LONGINT;		{ number of blocks on device }
        sbDevType : INTEGER;		{ used internally }
        sbDevID : INTEGER;		{ used internally }
        sbData : LONGINT; 		{ used internally }
        sbDrvrCount : INTEGER; 		{ number of driver descriptors }
	sbDDs : PACKED ARRAY [1..61] OF drvrDesc;	{ driver descriptors }
        sbUnused : PACKED ARRAY [1..6] of char; { leftover }
      END;
    DDMPtr = ^DDMRec;

   myInfoBlock = record  { used for GSOS D_info calls}
       pCount : integer;
       devNumber : integer;
       devname : StringPtr;
       characteristics : integer;
       totalBlocks : longint;
       slotNum : integer;
       unitNum : integer;
       version : integer;
       devID : integer;
       headlink : integer;
       forwardlink : integer;
     end;
   
   myWriteBlock = record { used for GSOS D_write calls}
       pCount : integer;
       devNum : integer;
       buffer : Ptr;
       reqCount : Longint;
       startBlk : Longint;
       blkSize : Longint;
       transCount : Longint;
     end;

   myFormatBlock = record { used for GSOS format/erase calls}
       pCount : integer;
       devName : Ptr;
       volName : Ptr;
       FSNumOut : Integer; {0 = canceled}
       FSNumIn : Integer;
       flags : INTEGER;		{ fields added 2/91 by Monte Benaresh }
       realVolName : Ptr;
     end;

    myReadCapBlk = record
       xero : integer;    { must be zero}
       twofive : integer; { command and flags}
       unused1 : longint; { 10 unused bytes}
       unused2 : longint;
       unused3 : integer;
       result : ptr;  { return capacity here}
    end;

   myStatusBlock = record { used for GSOS D_status calls}
       pCount : integer;
       devNumber : integer;
       statCode : integer;
       StatList : Ptr;
       RequestCount : longint;
       TransferCount : longint;
     end;

   myControlBlock = record { used for GSOS D_control calls}
       pCount : integer;
       devNumber : integer;
       CtlCode : integer;
       CtlList : Ptr;
       RequestCount : longint;
       TransferCount : longint;
     end;
   
   myVolumeBlock = record
       pCount : integer;
       devName : Ptr;
       volName : Ptr;
       totalBlks : longint;
       freeBlks : longint;
       fileSysId : integer;
       blkSize : integer;
     { next fields added by Monte 8/17/91 }
       characteristics : INTEGER;
     end;
      
   myStatusResult = record { used for GSOS D_status results}
     general : Integer;
     blkCount : Longint;
   end;

   myVersionBlock = RECORD
     pcount : INTEGER;
     version : INTEGER;
   END;
   
   gsosstring = record
      size : integer;
      chars : str255;
   end;
   GSStrPtr = ^gsosstring;		{ added 2/91 by Monte }

    GSOSResultBuf = PACKED RECORD	{ added 2/91 by Monte }
      bufSize : INTEGER;
      CASE INTEGER OF
         1:  (rtnSize : INTEGER; data : PACKED ARRAY [0..0] OF BYTE);
         2:  (gstring : gsosstring);
    END;
    GSResultPtr = ^GSOSResultBuf;
   
   CapBlockRec = record
     numBlks : longint;
     blkSize : longint;
   end;

	{ next records added 2/91 by Monte	}

    ModeSenseRec = PACKED RECORD	{ SCSI mode sense status list	}
      version : INTEGER;
      cmd : Byte;
      pgFormat : Byte;
      pgCode : Byte;
      reserved : PACKED ARRAY [1..9] OF Byte;
      bufPtr : Ptr;
    END;

    SCSIString = PACKED RECORD		{ SCSI ID string returned by mode sense }
      garbage : PACKED ARRAY [1..13] OF Byte;
      IDStr : STRING[50];
    END;

(*    SetConfigRec = PACKED RECORD
      length : INTEGER;
      bitmap : INTEGER;
      DDMptr : Ptr;
      drvrInfoPtr : Ptr;
      drvrDataPtr : Ptr;
    END;
*)

    SetConfigRec = PACKED RECORD
      drvrNum	: INTEGER;
      DDMBufSize : INTEGER;
      DDMTransCount : INTEGER;
      DDMPtr	: Ptr;
      drvrInfoBufSize : INTEGER;
      drvrInfoTransCount : INTEGER;
      drvrInfoPtr : Ptr;
      drvrBufSize : INTEGER;
      drvrTransCount : INTEGER;
      drvrDataPtr : Ptr;
    END;

    GSOpenRec = PACKED RECORD
      pcount : INTEGER;
      refNum : INTEGER;
      path : Ptr;
      reqAccess : INTEGER;
      resNum : INTEGER;
      access : INTEGER;
      filetype : INTEGER;
      auxtype : INTEGER;
      storType : INTEGER;
      createTD : PACKED ARRAY [0..7] OF Byte;
      modTD : PACKED ARRAY [0..7] OF Byte;
      optList : Ptr;
      eof : LONGINT;
    END;

    GSReadRec = PACKED RECORD
      pcount : INTEGER;
      refNum : INTEGER;
      bufPtr : Ptr;
      reqCount : LONGINT;
      transCount : LONGINT;
    END;

    GSCloseRec = PACKED RECORD
      pcount : INTEGER;
      refNum : INTEGER;
    END;

    bootDrvrDescRec = PACKED RECORD	{ this is format of SCSIDescDrvr resource }
      pmLgBootStart : LONGINT;
      pmBootSize : LONGINT;
      pmBootLoad : LONGINT;
      pmBootLoad2 : LONGINT;
      pmBootEntry : LONGINT;
      pmBootEntry2 : LONGINT;
      bootArg : PACKED ARRAY [0..127] OF BYTE;
    END;
    bootDrvrDescPtr = ^bootDrvrDescRec;
    bootDrvrDescHdl = ^bootDrvrDescPtr;

(*
    GSGDERec = PACKED RECORD	{ for GET_DIR_ENTRY }
      pcount : INTEGER;
      refNum : INTEGER;
      reserved : INTEGER;
      base : INTEGER;
      disp : INTEGER;
      nameBuf : Ptr;
      entryNum : INTEGER;
      filetype : INTEGER;
      eof : LONGINT;
      blocksUsed : LONGINT;
      createTD : PACKED ARRAY [0..7] OF Byte;
      modTD : PACKED ARRAY [0..7] OF Byte;
      access : INTEGER;
      auxtype : LONGINT;
    END;
*)

{################################################################}
{#		global variables follow				#}
{################################################################}

VAR
  { variables used in the list manager }
  partDlog : GrafPortPtr;
  myListRec : ListRec;
  myList : array[1..32] of ListMemRec;
  myListCtrl : ControlHandle;
  listNameAry : array[1..32] of string[31];
  infoList : array[1..32] of infoListRec;
  selected : integer;
  astr : str255;
  s1,s2 : GSOSString;
  listControl1 : ControlHandle;
  listScroll1 : ControlHandle;
  listRect1 : Rect;
  listCtlRef1 : Longint;
  listScrollRef1 : Longint;
  realsize : CapBlockRec;
  toolErr : integer; {Should be _toolErr, but symbols can't start with _}
  
  EraseButton : ControlHandle;
  PartButton : ControlHandle;
  InitButton : ControlHandle;
  ZeroButton : ControlHandle;
  InfoButton : ControlHandle;
{  CheckButton : ControlHandle;		removed 1/91 by Monte Benaresh
  BackupButton : ControlHandle;
  RestoreButton : ControlHandle;
}
  CancelButton : ControlHandle;

  
  SizeBar : ControlHandle;
  NewButton : ControlHandle;
  DeleteButton : ControlHandle;

  initPtr : Ptr; { used for startup/shutdown tools}

  blk : myBlock;	      { prodos D_Info param block}
  MyMemoryID   : integer;     {Application ID assigned by Memory Mgr}
  Done         : boolean;     {True when quitting}
  ToolsZeroPage: Handle;      {Handle to Zero page memory for Tools}
  CurrPart     : integer;	{-1 = no current partition ; 1..4 = partition #}
  Event        : wmTaskRec;   {All events are returned here}
  deviceNum    : integer;
  lastCheck    : longint;
  CurrCursor   : integer;
  currState    : integer;
  isRemovable  : boolean;
  curVolIcon   : Ptr;
 { atLeastOneDev,	}
  noDevices    : boolean;
  isLockedDev  : boolean;
  initializedDev : boolean;
  IsFloppy	: boolean;
  tMegs		: longint;
  MaxNumParts   : integer;
  r,mesgBoxRect,
  initBtnRect  : rect;
  globalstr1   : str255;      {used to pass strings to dialog templates!}
  globalstr2   : str255;
  InitDlogPtr  : GrafPortPtr;
  GlobalParts  : PartitionHdl;
  currDeviceStr : str255;
  currVolumeStr : str255;
  dispVolumeStr : str255;
  tempstr1 : str255;
  tempstr2 : str255;
  miscStr : str255;
  miscStr1 : str255;
  dummy : str255;
  
  diskBlockSize : Longint;
  infoBlk : myInfoBlock;
  statusBlk : myStatusBlock;
  ctlBlk : myControlBlock;
  writeBlk : myWriteBlock;
  volBlk : myVolumeBlock;	{ added 8/17/91 by Monte }
  statResult : myStatusResult;
  dummyBlk : PartRec;
  ReadCapBlk : myReadCapBlk;
  FormatBlk : myFormatBlock;
  modeSenseBlk : ModeSenseRec;
  setConfigBlk : SetConfigRec;

  { next added by Monte Benaresh	}
  subStrArray : PACKED ARRAY[0..0] OF StringPtr;
  iconPtr : Ptr;
  oldPort : GrafPortPtr;
{  lastPoll : LONGINT;	}	{ for device polling }
  tempGLong : LONGINT;

{################################################################}
{#	externally defined global variables follow		#}
{################################################################}

  {$XRefVar+}  { this is all our structures defined in assembler!}
  AppleMenuStr: Str255;          {For creating menus}
  FileMenuStr : Str255;
  EditMenuStr : Str255;
  DiskErrorAlert : AlertTemplate; {alerts and dialogs}
  WarningAlert : AlertTemplate;
  WarningItem3 : ItemTemplate;
  DiskNameDlog : DialogTemplate;
  InitDlog : DialogTemplate;
  InitItem8 : ItemTemplate;
  AboutDITL : DialogTemplate;
  PartDITL : DialogTemplate;
  AlertDITL : DialogTemplate;
  InfoDITL : DialogTemplate;
  ToolRec : ToolTable;
  EditItem : ItemTemplate;
  EditRect : Rect;
  NilRect : Rect;
  
  {icons}
  FakeArray : array[0..3] of BigIcons;
  Floppy : integer;
  Three : integer;
  harddisk : integer;
  ramdisk : integer;
  cd : integer;
  tape : integer;
  appletalk : integer;
  partition : integer;
  cdPartition : integer;
  other : integer;
  {NoName : integer;	removed 3/91 by Monte }
  lockicon : integer;
  unlockicon : integer;

  total_blks : longint;
  free_blks : longint;
  file_system_id : integer;

  FileSysStrTbl : NameArrayTbl;

  okStr         : string;	{ strings}
{  PromptStr     : string;	removed 3/91 by Monte }
{  ShutDownStr   : string;	removed 3/91 by Monte }
  warningStr    : string;
  warning2Str   : string;
{  warning3Str	: string;	replaced with AlertWindow 6/17/91 by Monte }
{  badNameErr    : string;	removed 3/91 by Monte }
{  warning4Str	: string;	replaced with AlertWindow 8/9/91 by Monte }
{  otherOSStr    : string;	removed 3/91 by Monte }
  Uninitialized : string;
  volNameStr    : string;
  successStr    : string;
{  initializingStr:string;	removed 1/91 by Monte Benaresh	}
  ReadPartErrStr: string;
  cancelInitStr : string;
  AtLeastOneCanceled : string;
  blankStr      : string;
  unInitStr     : string;
  formatErrStr  : string;
  eraseErrStr   : string;
  eraseErrOpenStr   : string;	{ added 8/5/91 by Monte	}
  initErrOpenStr   : string;	{ added 8/19/91 by Monte }
  zeroErrOpenStr   : string;	{ added 8/19/91 by Monte }
  cancelPartStr : string;
  eraseSuccStr  : string;
  noDevicesStr  : string;
  cancelEraseStr: string;
  zeroingvolStr : string;
  zeroingvolSuccess : string;
  zeroingVolFail : string;
  startzerovolStr : string;
  cancelzeroStr : string;
  PartErrStr    : string;
{  formatPartErrStr : string;}
  successpartStr : string;

  DefName	: stringPtr;
  unknownptr	: stringptr;
  scrollArray	: array[0..14] of integer;
  ScrollColor   : integer;
  ScrollColor1   : integer;
  InvRect, mainIconRect : Rect;

  { next stuff added by Monte Benaresh }
  drvrProcessor	: PACKED ARRAY [1..4] OF StringPtr;
  OpenPBlk : GSOpenRec;
  drvrPath : GSOSString;
  ReadPBlk : GSReadRec;
  ClosePBlk : GSCloseRec;
  hardFmtAlrt, zeroAlrt, partAlrt : PACKED ARRAY [0..0] OF CHAR;
  partLockAlrt, formatErrAlrt : PACKED ARRAY [0..0] OF CHAR;
  partOpenAlrt, macConnectAlrt : PACKED ARRAY [0..0] OF CHAR;
  formatCtlList : PACKED ARRAY [0..0] OF CHAR;
  initMsgWindow : PACKED ARRAY [0..0] OF CHAR;

  { pointers to stuff for TLTextMountVolume call }
  badStart1Str : String;
  badStart2Str : String;
  badStart1But : String;
  badStart2But : String;
  
  {$XRefVar-}

implementation

end.
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/ADU/Guts.pii b/IIGS.601.SRC/A.U.G/ADU/Guts.pii
new file mode 100644
index 0000000..3dc26bc
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/ADU/Guts.pii
@@ -0,0 +1 @@
+{################################################################}
{#								#}
{#  File:	Guts.Pas from IIGS Disk Initializer		#}
{#								#}
{#--------------------------------------------------------------#}
{#								#}
{#  Description:  This file has all the routines make up	#}
{#		  the guts of the program, these routines	#}
{#		  do the partitioning and zeroing.		#}
{#								#}
{#--------------------------------------------------------------#} 
{#								#}
{#  Author:	Darryl Lovato					#}
{#								#}
{#--------------------------------------------------------------#}
{#								#}
{#  Copyright:	1987,1988 by Apple Computer Inc.		#}
{#		All rights reserved.				#}
{#								#}
{#--------------------------------------------------------------#}
{#								#}
{#  Modification History:					#}
{#								#}
{#	Who	When	The Change				#}
{#	---	------	-------------------------------------	#}
{#	SR	12/7/87	Created v.1 - erase & init only		#}
{#	DGL	1/29/88 Rewrote everything - cut size in half!  #}
{#	DGL	5/9/88	Finished Adding Partition Support	#}
{#			and other features... far too many to	#}
{#			list here...				#}
{#	DGL	5/12/88 Added Zero and Info operations		#}
{#	DGL	5/20/88 Released pre-alpha version to testers	#}
{#	DGL	6/1/88  Alpha!					#}
{#	DGL	6/13/88 Alpha 2					#}
{#	DGL	6/24/88 Alpha 3					#}
{#	DGL	7/1/88  Beta 1					#}
{#	DGL	7/13/88 Beta 2					#}
{#	DGL	7/20/88	Beta 3					#}
{#	DGL	7/27/88	Beta 4					#}
{#	DGL	8/1/88	Beta 5					#}
{#	DGL	8/8/88	Beta 6					#}
{#	DGL	8/15/88 Final!					#}
{#								#}
{################################################################}

{ these options turn long addressing on, and turn error checking off}
{ in addition, they set the pascal comments in assembler on.}

{$LongGLobals-}
{$ToolErrorChk-}
{$ToolErrorChk+}
{$A+}

unit Guts;

interface

uses
  InitIntfData,
  InitIntfProc,
  InitIntfPDOS,
  ListMgr,
  Globals,
  Utils;

function  CallGetNumParts(dNum : integer) : integer;
function  GetParts(dNum : integer; PartAddr : PartitionPtr) : integer;
procedure DoDeviceZero(dNum : Integer; only8Blocks : boolean);
function  SetParts(dNum : integer; partAddr : PartitionPtr) : integer;

PROCEDURE ClearBuf(addr : LONGINT; count : LONGINT; value : INTEGER);	EXTERNAL;
								{ added by Monte }

implementation

{################################################################}
{#	return the number of partitions on a scsi device!	#}
{################################################################}

{ we don't count the partition map itself}
FUNCTION CallGetNumParts(dNum : integer) : integer;

  VAR
    returnMe : integer;
    myName : str255;

  BEGIN
    with infoblk do
      begin
        pCount := 11;  
        devNumber := dNum;
        devname := @myname;
      end;
    {DINFO call}
    returnme := GSOSInfo;
    if infoblk.headLink <> 0 then
      dNum := infoblk.headLink;
    with statusblk do
      begin
        pCount := 5;  
        devNumber := dNum;
        statCode := 4; {get partition map}
        statlist := @dummyBlk;
        requestcount := 512;
      end;
    with dummyblk do
      begin
        pmSig := $1234;
        pmMapBlkCount := $1234;
      end;
    returnme := GSOSStatus;
    if dummyBlk.pmSig <> $4D50 then { note backward ordering of bytes}
      returnMe := 1
    else
      begin
        returnMe := LoWord(SwapLong(dummyBlk.pmMapBlkCount) - 1);
        if returnMe < 1 then
          returnMe := 1;
      end;
    CallGetNumParts := returnMe;
  END;

{########################################################}
{#	read the partition map on a SCSI device		#}
{########################################################}

FUNCTION GetParts(dNum : integer; PartAddr : PartitionPtr) : integer;
  VAR
    i, partInd : integer;
    thePMapHdl : partStructhdl;
    myname : string[32];
  label 1;

  BEGIN
    GetParts := noError;
    {dNum MUST BE THE HEAD OF THE LIST!!!!!}
    with infoBlk do
      begin
        pCount := 11;  
        devNumber := dNum;
        devname := @myname;
      end;
    {DINFO call}
    i := GSOSInfo;
    with infoblk do
      if headLink <> 0 then
        dNum := headLink;
    
    with ReadCapBlk do
      begin
        xero := 0;
        twofive := $0025;
        result := @realsize;
      end;
      
    with statusblk do
      begin
        pCount := 5;  
        devNumber := dNum;
        statCode := $8025; {read capacity}
        statlist := @ReadCapBlk;
        requestcount := 8;
      end;
    
    if GSOSStatus <> 0 then { we dont know how big this drive is, so return error}
      begin
        GetParts := -1; { error}
        goto 1;
      end;

    {swap the result in realsize because its returned in mac format!}
    { Matt G. said I should also add one}
    realsize.numBlks := swaplong(realsize.numBlks) + 1;
    realSize.blkSize := swaplong(realsize.blkSize);

    diskblocksize := realsize.numBlks;

    with statusblk do
      begin
        pCount := 5;  
        devNumber := dNum;
        statCode := 4; {get partition map}
        statlist := @dummyBlk;
        requestcount := 512;
      end;
    { status call}

    if GSOSStatus <> 0 then
      dummyBlk.pmSig := 0; { this will force a "fake" partition to be made}
    with partaddr^ do
      if (dummyBlk.pmSig <> $4D50) or { note backward ordering of bytes}
         (partcount = 1) or
         (Upperstring(AryToStr(@dummyBlk.pmPartType,32)) = 'APPLE_PRODOS') then 
          begin		{ reset existing partition structure	}
            partcount := 1;
	    with partsinfo[1] do
	      begin
                partSize := Real2Long((realsize.numBlks - $40) / 1024);
                partName := 'UNTITLED1';
	      end;
          end
      else
        begin
          thePMapHdl := PartStructHdl(NewHandle(sizeof(partrec) * (partcount + 1),
	  			MyMemoryID, attrBank+attrPage, nil));

          with statusblk do
            begin
              pCount := 5;  
              devNumber := dNum;
              statCode := 4; {get partition map}
              statlist := Ptr(thePMapHdl^);
              requestcount := 512 * (partcount + 1);
            end;

          i := GSOSStatus; {this should never happen, it succeeded above!}

          partInd := 1;		{ init index into our info record	}
          for i := 1 to PartCount+1 do
            with partsinfo[partInd], thePMapHdl^^[i-1] do
              begin
      (*          partSize := Real2Long(SwapLong(pmPartBlkCount) / 1024);
                partName := AryToStr(@pmPartName,32);
                if (Upperstring(AryToStr(@pmPartType,32)) = 'APPLE_FREE') or
		   (Upperstring(AryToStr(@pmPartType,32)) = 'APPLE_SCRATCH') { OR
		   (Upperstring(AryToStr(@pmPartType,32)) = 'APPLE_DRIVER') } then
                  PartCount := PartCount - 1; {we dont want to display this}
       *)

                IF (Upperstring(AryToStr(@pmPartType,32)) <> 'APPLE_FREE') AND
                   (Upperstring(AryToStr(@pmPartType,32)) <> 'APPLE_PARTITION_MAP') AND
		   (Upperstring(AryToStr(@pmPartType,32)) <> 'APPLE_SCRATCH') AND
		   (Upperstring(AryToStr(@pmPartType,32)) <> 'APPLE_DRIVER') THEN
		BEGIN
                  partSize := Real2Long(SwapLong(pmPartBlkCount) / 1024);
                  partName := AryToStr(@pmPartName,32);

                  partInd := SUCC(partInd);
		END;

              end;
	  PartCount := partInd - 1;		{ set accurate count	}
          Disposehandle(Handle(thePMapHdl));	{ get rid of partition map	}
        end;
     tMegs := Real2Long(realsize.numBlks / 1024);
1: END;

{################################################################}
{#	zero-out blocks on a device				#}
{################################################################}

procedure DoDeviceZero(dNum : Integer; only8Blocks : boolean);
  var
    i : integer;
    avail : longint;
    counter : longint;
    handleSize : longint;
  {  multiple : longint;	removed 3/91 by Monte	}
    blocksToZero, writeBlks : longint;
    H : Handle;
    l : longPtr;
    err : integer;
    j : longint;
    theCtl : ControlHandle;
    myname : str255;
  label 1;
  begin
    if not only8blocks then {we only want this message when the user said to zero..}
      SetLongText(@startzerovolStr);
    { find the size of the volume to erase}
    with infoBlk do
      begin
        pCount := 11;  
        devNumber := dNum;
        devname := @myname;
      end;
    {DINFO call}
    
    i := GSOSInfo;
    
    with infoBlk do
      if not only8Blocks then
        BlocksToZero := totalblocks
      else
        if (totalBlocks < 8) then
          BlocksToZero := totalBlocks
        else
          BlocksToZero := 8;

    { find the largest block of memory that we can allocate, even number of divisions}
    compactmem;
    avail := maxblock div 1024; { get total mem available/2 and convert to blocks}

    {first assume we will need multiple blocks}
    handleSize := avail;
 {   multiple := (BlocksToZero div avail);	removed 3/91 by Monte Benaresh }
    if avail > BlocksToZero then { we can do it with one block}
      begin
        handleSize := BlocksToZero {- 1} ;
  {      multiple := 1;		}
      end;
      
    {create the block}
    H := NewHandle(handlesize * 512, MyMemoryID,0,nil); {this has to work!}
        
    {zero this block out}
    l := LongPtr(H^);
 {   j := 1;				}	{ removed by Monte 11/90	}
 {   repeat				}
 {     l^ := $444C444C; }{DLDL}
 {     l := LongPtr(Ord4(l) + 4);	}
 {     j := j + 1;			}
 {   until (j = (handleSize * 128));	}

    ClearBuf(ORD4(l), handleSize * 512, $4842 { 'BH' } );	{ call assembly loop }

    if not only8blocks then {we only want this message when the user said to zero..}
      SetLongText(@zeroingvolStr);
        
    { write it once if its a floppy, to get the motor running!}
    with infoblk do
      if (devid = 0) or (devid = $14) then {floppy}
        begin
          with writeblk do
            begin
              pCount := 6;
              devNum := dNum;
              buffer := Ptr(H^);
              reqCount := handleSize * 512;
              startBlk := 0;
              blkSize := 512;
              transCount := 0;
            end;
          err := GSOSWrite;
          if not ((err = $2E) or (err = 0)) then
            begin
              DisposeHandle(h);
              SetLongText(@zeroingVolFail);
              {we dont need to dim erase because we didn't kill the formatting?}
	      goto 1; {get out!}
	    end;
        end;

    { for loop that writes & increments the start ptr}
    counter := 0;
  {  for i := 1 to multiple do		removed 3/91 by Monte	}
     REPEAT
      begin
        writeBlks := BlocksToZero - counter;
	IF writeBlks > handleSize THEN writeBlks := handleSize;
        { write it}
        with writeblk do
          begin
            pCount := 6;
            devNum := dNum;
            buffer := Ptr(H^);
            reqCount := writeBlks * 512;
            startBlk := counter;
            blkSize := 512;
            transCount := 0;
          end;
           
        if GSOSWrite <> 0 then
          begin
            DisposeHandle(h);
            if not only8blocks then
              begin
                SetLongText(@zeroingVolFail);
                {dim erase because we killed the formatting}
	        TurnOff(EraseButton);
	      end;
	    goto 1; {get out!}
          end;
        counter := counter + writeBlks;
      end;
     UNTIL (counter = BlocksToZero);
    
    {dispose the block}
    Disposehandle(h);
    if not only8blocks then {we only want this message when the user said to zero..}
      begin
        SetLongText(@ZeroingVolSuccess);
        {dim erase because we killed the formatting}
	Turnoff(EraseButton);
      end;
1:  end;

{################################################################}
{#	write new partition map & initialize the new volumes	#}
{################################################################}

function SetParts(dNum : integer; partAddr : PartitionPtr) : integer;
  var
    i, totPartCount, charInd : INTEGER;
    thePStructHdl : partStructhdl;
    blocksCounted, tempLong, drvrStartBlk : longint;
    err, drvrByteSize, drvrResID : integer;
    blocksLeft : longint;
    saveme, driverBufLen : integer;
    partStart : Longint;
    hdlSize : longint;
    temp : longint;
    nameDlogPtr, formatMsgWind, old2Port : GrafPortPtr;
    itemHit, genResFileID : integer;
    diskName    : str255;
    myName : str255;
    drvrHdl : Handle;
    theDrvrDescHdl : bootDrvrDescHdl;
    theDrvrDescPtr : bootDrvrDescPtr;
    theSCSIString : SCSIString;
    fileDrvr, hardFmtFlag, drvrErrF, macCompatF : BOOLEAN;
    DDMMyPtr : DDMPtr;
    
 LABEL 2999, 3111, 199, 99, 101;

  begin
    MakeCursor(watch);
    err := 0;
    SetParts := 0; { assume no error}

    {dNum MUST BE THE HEAD OF THE LIST!!!!!}
    with infoblk do
      begin
        pCount := 11;  
        devNumber := dNum;
        devname := @myname;
      end;
      
    i := GSOSInfo;
    with infoblk do
      if headLink <> 0 then
        dNum := headLink;
  {  deviceNum := dNum;		}

    { first find the total size of the partitions, along with the remainder }

  { account for DDM, partition map & driver partitions }
    blocksCounted := 1 + pMapSizeBlks + (4 * drvrSizeBlks);

  { scan our internal structure of user parts and do accounting on allocated blks }
  { for each partition, partSize is the # of half-megabytes }
    with partAddr^ do
      for i := 1 to partcount do 
        with Partsinfo[i] do
          begin
            if partsize < 1 then { make sure we don't have a half a part!}
              partsize := 1;
	    blocksCounted := (partSize * 1024) + blocksCounted;
          end;
    blocksLeft := diskblocksize - blocksCounted;

  { total partition count is # of user parts + system parts + possible FREE part }
    totPartCount := partAddr^.partcount + 1 + sysPartCount;
    IF blocksLeft < 1 THEN totPartCount := PRED(totPartCount); { no FREE partition }

  { allocate handle big enough for all our partitions }
    hdlSize := 512 * totPartCount;
    thePStructHdl := PartStructHdl(NewHandle(hdlSize, MyMemoryID,
    	attrBank+attrPage,nil));
    IF toolerrornum <> 0 THEN
    BEGIN
      ShowNoMem;	{ dialog }
      SetParts := $1234;	{ flag error }
      GOTO 2999;
    END;

    HLock(handle(thePStructHdl));

    {zero this block out}
(*					removed 2/7/91 by Monte Benaresh
    l := LongPtr(@thePStructHdl^^[0]);
    for i := 1 to (hdlSize div 4) do
      begin
        l^ := 0;
        l := LongPtr(Ord4(l) + 4);
      end;
*)
    ClearBuf(ORD4(@thePStructHdl^^[0]), hdlSize, $0000);	{ call assembly loop }
    
  { 		**** fill partition map image ****		}

  { start with generic default data for all partitions	}
    FOR i := 0 TO totPartCount-1 DO
    WITH thePStructHdl^^[i] DO	{ MUST use WITH to avoid compiler bugs!	}
    BEGIN
      pmSig := $4D50; {backwards $504D}
      pmMapBlkCount := SwapLong(totPartCount);
      pmPartStatus := SwapLong($37); { not bootable is default}
    END;

  { fill each set of partitions	}
    partStart := 1;	{ starting block of current partition }
  { partition map partition entry }
    WITH thePStructHdl^^[0] DO	{ MUST use WITH to avoid compiler bugs!	}
    BEGIN
      pmPyPartStart := SwapLong(partStart);
      pmPartname := StrToAry32('Apple');
      pmPartType := StrToAry32('Apple_partition_map');
      pmPartBlkCount := SwapLong(pMapSizeBlks);
    END;
    partStart := partStart + pMapSizeBlks;

  { driver partition entries	}
    drvrStartBlk := partStart;		{ save block # of 1st drvr for DDM }
    FOR i := 1 TO 4 DO
    WITH thePStructHdl^^[i] DO	{ MUST use WITH to avoid compiler bugs!	}
    BEGIN
      pmPyPartStart := SwapLong(partStart);
      pmPartname := StrToAry32(CONCAT('Driver', CHAR(i+ORD('0'))));
      pmPartType := StrToAry32('Apple_Driver');
      pmPartBlkCount := SwapLong(tempLong);
      pmPartBlkCount := SwapLong(drvrSizeBlks);
    { copy driver processor string from table of ptrs into array }
      charInd := 0;	{ init character index	}
      REPEAT
        charInd := SUCC(charInd);
        pmProcessor[charInd-1] := drvrProcessor[i]^[charInd];
      UNTIL charInd = ORD(drvrProcessor[i]^[0]);	{ compare to length byte }

      partStart := partStart+drvrSizeBlks;
    END;

  { user partition entries	}
    FOR i := 5 TO (4+partAddr^.partcount) DO
      BEGIN
      WITH partAddr^.partsInfo[i-4], thePStructHdl^^[i] DO { MUST use WITH to avoid compiler bugs!	}
        BEGIN
        pmPyPartStart := SwapLong(partStart);
        pmPartname := StrToAry32(partName);
        pmPartType := StrToAry32('Apple_PRODOS');

      { if we overran disk size, trim off the end of last user partition }
        IF (blocksLeft < 0) AND (i = partAddr^.partcount+4) THEN
          pmPartBlkCount := SwapLong((Longint(partSize) * 1024) + blocksLeft)
        ELSE
          pmPartBlkCount := SwapLong(Longint(partSize) * 1024);
        pmPartStatus := SwapLong($0000003F); { bootable}

        partStart := partStart+SwapLong(pmPartBlkCount);
        END;
      END;

  { possible FREE partition	}
    IF blocksLeft > 0 THEN
      WITH thePStructHdl^^[totPartCount-1] DO	{ MUST USE WITH to avoid compiler bugs!	}
      BEGIN
        pmPyPartStart := SwapLong(partStart);
        pmPartname := StrToAry32('Apple');
        pmPartType := StrToAry32('Apple_Free');
        pmPartBlkCount := SwapLong(blocksLeft)
      END;

  { copy redundant information between fields	}
    FOR i := 0 TO totPartCount-1 DO
    WITH thePStructHdl^^[i] DO	{ MUST use WITH to avoid compiler bugs!	}
      pmDataCnt := pmPartBlkCount;

  { if only 1 user partition, find out whether user wants hard format }
    hardFmtFlag := FALSE;	{ assume NO hard format }
    IF partAddr^.partcount = 1 THEN	{ 1 user partition? }
      BEGIN
      MakeCursor(arrow);
      i := AlertWindow($0020, NIL, @hardFmtAlrt);		{ prompt user }
      MakeCursor(watch);
      IF i = 0 THEN
        BEGIN			{ user canceled }
    	  SetParts := $4321;	{ indicate cancel }
	  GOTO 3111;		{ return to caller }
        END;

      IF i = 2 THEN hardFmtFlag := TRUE;
      END;


  { now we have to make sure all partitions are unlocked }
    i := dNum;		{ start at head }

    { set up param blocks }
    WITH ctlBlk DO
      BEGIN
      pCount := 5;
      ctlCode := $F001;		{ set partition status }
      ctlList := @tempLong;	{ keep list in small variable }
      requestCount := 2;
      END;

    tempLong := $00000130;	{ set bitmap for read-/write-enable }

    WITH infoBlk DO
      BEGIN
        pCount := 11;  
        devname := NIL;
      END;
      
    { set read/write status in a loop }
    REPEAT
      ctlBlk.devNumber := i;
      err := GSOSControl;	{ make control call }
      IF NOT (err IN [0, $0022, $002F]) { allow bad param for unpartitionedÉ	}
      	THEN GOTO 2999;			{Édisk, or offline			}

    { get next linked device }
      infoBlk.devNumber := i;
      IF GSOSInfo <> 0 THEN GOTO 2999;		{ make D_INFO call }

      i := infoBlk.forwardLink;

    UNTIL i = 0;	{ cycle for all linked devices }


  IF hardFmtFlag THEN
   BEGIN	{ do a SCSI-specific hard format }
 { put up alert window }
   old2Port := GetPort;
   formatMsgWind := GetNewModalDialog(@initMsgWindow);
   SetPort(formatMsgWind);
   BeginUpdate(formatMsgWind);
   DrawDialog(formatMsgWind);
   EndUpdate(formatMsgWind);
   
    WITH ctlBlk DO
      BEGIN
      pCount := 5;
      devNumber := dNum;
      CtlCode := $8004; { format device }
      ctllist := @formatCtlList;
      requestcount := 0;
      END;

    err := GSOSControl;	{ do hard format }

  { close alert window }
  CloseDialog(formatMsgWind);
  SetPort(old2Port);

  IF err <> 0 THEN GOTO 2999;	{ error in hard format }

  { now find out whether user wants Mac compatibility, i.e., a partition map }
  macCompatF := FALSE;	{ assume Mac compatibility }

  MakeCursor(arrow);
  i := AlertWindow($0020, NIL, @macConnectAlrt);	{ prompt user }
  MakeCursor(watch);

  IF i = 1 THEN macCompatF := TRUE;

 END;	{hard format}


  IF (NOT hardFmtFlag) OR (macCompatF) THEN

   BEGIN {partition}	{ do entire partition process	}
     { write out partition map }
       with ctlBlk do
          begin
            pCount := 5;
            devNumber := dNum;
            CtlCode := 9; {set partition map}
            ctllist := Ptr(thePStructHdl^);
	    requestcount := 512 * totPartCount;
          end;
        { control call }
       
        if GSOSControl <> 0 then
          begin  { error writing partition map }
            setparts := $1234; {so I can trap this later!}
            HUnLock(handle(thePStructHdl));
            DisposeHandle(handle(thePStructHdl));
            goto 2999;
          end;

  { prepare SCSI boot driver image }

    { use 2nd driver image buffer for DDM }
    DDMMyPtr := DDMPtr(@thePStructHdl^^[2]);

    fileDrvr := FALSE; { assume that driver will not be loaded from separate file }
    drvrErrF := FALSE;	{ assume driver will be installed successfully }

   { get SCSI ID string to determine whether this is an Apple drive }
     WITH statusBlk DO
       BEGIN
         pCount := 5;  
         devNumber := dNum;
         statCode := $801A;	{ SCSI mode sense }
         StatList := @modeSenseBlk;
         RequestCount := SizeOf(SCSIString);
       END;

    WITH modeSenseBlk DO
    BEGIN
      version := 0;
      cmd := $1A;	{ command # for Mode Sense }
      pgFormat := $00;
      pgCode := $30;	{ magic number	}
      bufPtr := @theSCSIString;
    END;

  { decide which driver to use based on MODE SENSE status call }
    err := GSOSStatus;
    IF (err = 0) AND (Copy(theSCSIString.IDStr,1,6) = 'APPLE ') THEN
      BEGIN { Apple hard disk }
        drvrResID := 1;		{ ID of Apple driver }
      END

    ELSE
      BEGIN { non-Apple HD, read generic driver from file }
        genResFileID := OpenResourceFile($0001, NIL, @drvrPath);
        IF toolerrornum <> 0 THEN GOTO 99;	{ skip driver if error }
        fileDrvr := TRUE;	{ indicate that we did open a resource file }
        drvrResID := 2;		{ ID of generic driver }
      END;

    drvrHdl := LoadResource(rSCSIDrvr, drvrResID);
    IF toolerrornum <> 0 THEN GOTO 99;

    theDrvrDescHdl := bootDrvrDescHdl(LoadResource(rSCSIDescDrvr, drvrResID));
    IF toolerrornum = 0 THEN GOTO 101;	{ skip error message }


99: { handle error getting driver resources }
      drvrErrF := TRUE;		{ set flag for later }
      MakeCursor(arrow);

   {   DoAlert('Unable to load Mac Generic driver.  HFS partitions',
              'will not be usable on Macintosh computers.');
   }
      DoAlert('Unable to load the Macintosh driver.  HFS partitions',
              'will not be usable on Macintosh computers.');
      GOTO 199;

101: { resume here if no error getting driver resources }
     driverBufLen := GetHandleSize(drvrHdl);

  { update driver partition map entry with info in descriptor resource }
    theDrvrDescPtr := theDrvrDescHdl^;
    WITH thePStructHdl^^[1] DO
    BEGIN
      pmPartname := StrToAry32('Macintosh');	{ this enables checksum verification }
      pmPartStatus := SwapLong($7F); 	{ bootable }
      pmLgBootStart := theDrvrDescPtr^.pmLgBootStart;
      pmBootSize := theDrvrDescPtr^.pmBootSize;
      pmBootLoad := theDrvrDescPtr^.pmBootLoad;
      pmBootLoad2 := theDrvrDescPtr^.pmBootLoad2;
      pmBootEntry := theDrvrDescPtr^.pmBootEntry;
      pmBootEntry2 := theDrvrDescPtr^.pmBootEntry2;
      pmBootCkSum := SwapLong(DrvrCksum((drvrHdl^),
      			{ take swapped hi wrd b/c mac order! }
      			RealSwapInt(Longword(theDrvrDescPtr^.pmBootSize).HiWord)));
    { copy boot-specific arguments }
      FOR i := 0 TO 127 DO
        pmBootSpecific[i] := theDrvrDescPtr^.bootArg[i];
    END;

199:	{ jump here to skip driver stuff due to error }

  { set up Driver Descriptor Map image	}
  { start with a clean buffer	}
    ClearBuf(ORD4(@thePStructHdl^^[2]), $200, $0000);	{ call assembly loop }

    WITH DDMMyPtr^ DO
    BEGIN  { NOTE MAC BYTE SEX IN ALL FIELDS!! }
      sbSig := $5245;		{ backwards $4552 }
      sbBlockSize := $0002;	{ backwards $0200 }
      sbBlkCount := SwapLong(diskblocksize);
      sbDevType := $0100;	{ backwards $0001 }
      sbDevID := $0100;		{ backwards $0001 }
      sbDrvrCount := $0100;	{ we only install 1 driver }
      WITH sbDDs[1] DO
      BEGIN
        ddBlock := SwapLong(drvrStartBlk);
        ddSize := RealSwapInt(driverBufLen DIV $200);
        ddType := $0100;	{ MAC system type = 1 }
      END;
    END;

  { write out DDM and driver image if preceeding went OK }
  { if any error with driver, we write a DDM with no driver entry }

    IF drvrErrF THEN
      BEGIN	{ nullify driver entry in DDM }
	WITH DDMMyPtr^ DO
	  BEGIN  { NOTE MAC BYTE SEX IN ALL FIELDS!! }
	  sbDrvrCount := $0000;	{ no driver installed }
	  WITH sbDDs[1] DO
	    BEGIN
	    ddBlock := $00000000;
	    ddSize := $0000;
	    ddType := $0000;
	    END;
	  END;

      END;

      WITH ctlBlk DO
      BEGIN
        pCount := 5;
        devNumber := dNum;
        CtlCode := $F000; { set hard disk params }
        ctllist := @setConfigBlk;
        requestcount := 26;	 { size of control list }
      END;

      WITH setConfigBlk DO
      BEGIN
        drvrNum := 1;	{ the Macintosh driver }
	DDMBufSize := $200;
        DDMPtr := Ptr(DDMMyPtr);
	IF NOT drvrErrF THEN
	  BEGIN		{ driver written OK }
	  drvrInfoBufSize := $200;
          drvrInfoPtr := @thePStructHdl^^[1];
	  drvrBufSize := driverBufLen;
          drvrDataPtr := drvrHdl^;
	  END
	ELSE		{ no driver, just write DDM }
	  BEGIN		{ driver written OK }
	  drvrInfoBufSize := 0;
          drvrInfoPtr := NIL;
	  drvrBufSize := 0;
          drvrDataPtr := NIL;
	  END;
      END;

      IF GSOSControl <> 0 THEN
      BEGIN  { error writing DDM, map entry, & driver }
        MakeCursor(arrow);

      	IF drvrErrF THEN  { give different message based on whether weÉ	}
		          {Éhave successfully acquired the Mac driver	}
	  DoAlert('This device appears unreliable.',
	  	  'The partition map may be incomplete.')
	ELSE

        { show alert telling user this failed }
	  DoAlert('Unable to install the HFS boot driver.  This device',
	         'appears unreliable.');
      END;

(* 199:	{ jump here to skip driver stuff due to error }
*)

    HUnLock(drvrHdl);
  { if we opened separate resource file for generic driver, close it }
    IF fileDrvr THEN CloseResourceFile(genResFileID);  { dump handle if we allocated it }

  END; {partition}	{ end of partition stuff if no hard format }




   {------- now we need to initialize all of the new partitions' device id's ------}
     i := 1;
     repeat
       {start at dNum (the head), initialize each volume until there are no more!}
       {dNum MUST BE THE HEAD OF THE LIST!!!!!}
       if i > 1 then
         dNum := saveme;

       with infoblk do
         begin
           pCount := 11;  
           devNumber := dNum;
           devname := @myname;
         end;

       if GSOSInfo <> 0 then ;
         saveme := infoblk.forwardLink;

       with statusBlk do
         begin
           pCount := 5;  
           devNumber := dNum;
           statCode := 0;
           StatList := @StatResult;
           RequestCount := 6;
	 end;

       if GSOSStatus <> 0 then; {this isn't important}

       if bitand(StatResult.general,$0010) <> 0 then {its online, proceed}
         begin
           diskname := partAddr^.Partsinfo[i].partName;
           if diskname[1] <> '/' then
             diskname := concat('/', diskName);

           DoDeviceZero(dNum, true); {wipe out the first 8 blocks!}
           if D_Info(dNum,myname) <> noError then
             begin
	       setparts := $1234;
	       goto 2999;
	     end
           else
             begin
               MakeGSOSStr(myName,s1);
	       MakeGSOSStr(diskName,s2);
	       with formatBlk do
		 begin
		   pCount := 5;
		   devName := @s1;
		   volName := @s2;
		   FSNumOut := 0;
		   FSNumIn := 0;
		   flags := $C000;	{ editable name, selectable FST }
		 end;
	       IF hardFmtFlag AND (NOT macCompatF) THEN
	         err := GSOSErase
	       ELSE
	         err := GSOSFormat;

               MakeCursor(arrow);
	       if (err = noError) and (formatBlk.FSNumOut = 0 ) then
	         DoAlert(concat('Initialization of the disk "',diskName,'" has been'),
		   		 'canceled.  It will not be displayed in the Finder.')
	       else if err = $40 then
	         DoAlert(concat('Initialization failed! "',diskName,'" was not'),
		   		  'a valid disk name.')
	       else if err <> noError then
	         DoAlert('Initialization failed! There was an error trying to ',
		   	 concat('initialize the partition named "',diskname,'".'));
	       MakeCursor(watch);
             end;
         end
       else { we hit an offline partition, that means we are at the end!!!!}
         saveme := 0; { so we will exit}

      inc(i);
    until (saveme = 0);
    GOTO 3111;		{ no error }
2999:	{ error exit }
    setparts := $1234;
3111:   { general exit  }
    HUnLock(handle(thePStructHdl));
    DisposeHandle(handle(thePStructHdl));

  { set some reasonable volume string in case user clicks icon }
  toolErr := volume(currDeviceStr, currVolumeStr);

  CASE toolErr OF
    IOError, OtherOS : dispVolumeStr := unInitStr;
    noError : SetVolName(currVolumeStr);
  end; {case}

    MakeCursor(arrow);
end;

end.
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/ADU/Init.pii b/IIGS.601.SRC/A.U.G/ADU/Init.pii
new file mode 100644
index 0000000..a256c90
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/ADU/Init.pii
@@ -0,0 +1 @@
+{################################################################}
{#								#}
{#  File:	Init.Pas from IIGS Disk Initializer		#}
{#								#}
{#--------------------------------------------------------------#}
{#								#}
{#  Description:  This file is the main file for the IIGS disk	#}
{#		  initializer.					#}
{#								#}
{#--------------------------------------------------------------#}
{#								#}
{#  Authors:	Darryl Lovato					#}
{#								#}
{#--------------------------------------------------------------#}
{#								#}
{#  Copyright:	1987,1988 by Apple Computer Inc.		#}
{#		All rights reserved.				#}
{#								#}
{#--------------------------------------------------------------#}
{#								#}
{#  Modification History:					#}
{#								#}
{#	Who	When	The Change				#}
{#	---	------	-------------------------------------	#}
{#	SR	12/7/87	Created v.1 - erase & init only		#}
{#	DGL	1/29/88 Rewrote everything - cut size in half!  #}
{#	DGL	5/9/88	Finished Adding Partition Support	#}
{#			and other features... far too many to	#}
{#			list here...				#}
{#	DGL	5/12/88 Added Zero and Info operations		#}
{#	DGL	5/20/88 Released pre-alpha version to testers	#}
{#	DGL	6/1/88  Alpha!					#}
{#	DGL	6/13/88 Alpha 2					#}
{#	DGL	6/24/88 Alpha 3					#}
{#	DGL	7/1/88  Beta 1					#}
{#	DGL	7/13/88 Beta 2					#}
{#	DGL	7/20/88	Beta 3					#}
{#	DGL	7/27/88	Beta 4					#}
{#	DGL	8/1/88	Beta 5					#}
{#	DGL	8/8/88	Beta 6					#}
{#	DGL	8/15/88 Final!					#}
{#								#}
{################################################################}

{$LongGLobals-}
{$ToolErrorChk-}
{$A+}
program Init;

uses
  InitIntfData,
  InitIntfProc,
  InitIntfPdos,
  ListMgr,
  Globals,
  Utils,
  Guts,
  Dialog,
  Menu,
  Event;


{################################################################}
{#	startup tools here, return false if we failed		#}
{################################################################}

function StartUpTools : boolean;

VAR
  theVerPBLK : myVersionBlock;

begin
{ first check OS version }
  theVerPBLK.pcount := 1;
  IF (CallGSOS(@theVerPBLK, $202A) <> 0) OR	{ if error, must be bad version }
    (BITAND(theVerPBLK.version, $7FFF) < $0400)	{ want GS/OS 4.0 (SD 6.0) or later }
    THEN BEGIN
    StartUpTools := FALSE;	{ can't run!!	}
    EXIT(StartUpTools);
    END;

  listControl1 := nil;
  partDlog := nil;
  TLStartUp;              {Init Tool Locator  }
  MyMemoryID := MMStartUp;{Init Memory Manager}
  
  GlobalParts := PartitionHdl(NewHandle(2 + sizeof(part),MyMemoryID,attrBank+attrPage,nil));

  InitPtr := StevesStartupTools(myMemoryID,0,@ToolRec);
  startuptools := (NOT istoolerror);
  CurrCursor := -1;			    {init global}
  SetCtlParamPtr(@subStrArray);	{ register runtime strings with Control Mgr }
  MakeCursor(arrow);                        {Init watch cursor}
end;    {of StartUpTools}


{################################################################}
{#		Here's the main event!				#}
{################################################################}

begin  {of MAIN program Init}
  if StartUpTools then
    begin      		{ Initialize IIGS Tools }
      SetUpMenus;       { Set up menus }
      MakeCursor(arrow);{ put this up for a while}
      ShowInit;		{ display main window	} { added 3/6/91 by Monte Benaresh }

    { suppress detection of initial device inserts }
      tempGLong := HandleDiskInsert(hdiUpdate, 0); { update all devices }
      MainEvent;        { Use application }
    end
  ELSE
    BEGIN		{ tell user we can't run	}
	tempGLong := TLTextMountVolume(@badStart1Str, @badStart2Str, @badStart1But,
				@badStart2But);
    END;

  SANEShutDown;		{ need this due to compiler bug	}
  StevesShutDownTools(0,initPtr); { Shut down IIGS Tools }
end.
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/ADU/InitIntfData.pii b/IIGS.601.SRC/A.U.G/ADU/InitIntfData.pii
new file mode 100644
index 0000000..3ebc661
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/ADU/InitIntfData.pii
@@ -0,0 +1 @@
+UNIT InitINTFDATA;

CONST

{ Modifier Flags }
Btn1State  = 64;
Btn0State  = 128;
AppleKey   = 256;
ShiftKey   = 512;
CapsLock   = 1024;
OptionKey  = 2048;
ControlKey = 4096;
KeyPad     = 8192;

attrBank           =   $0001;
attrAddr           =   $0002;
attrPage           =   $0004;
attrNoSpec         =   $0008;
attrNoCross        =   $0010;
attrFixed          =   $4000;
attrLocked         =   $8000;

Ok                 =   1;
Cancel             =   2;

ButtonItem         =   10;
StatText           =   15;
EditLine           =   17;
IconItem           =   18;
LongStatText       =   16;
longStatText2      =   22;
ItemDisable        =   $8000;

srcCopy            =   $0000;

ActiveFlag         =   1;
ActivateEvt        =   8;
wInGoAway          =   22;
wInMenuBar         =   17;
wInSpecial         =   25;
wInControl         =   $0021;
wInContent	= $0013;

atItemListLength   =   7;

{ constants for new HandleDiskInsert call }
hdiScan = $8000;	{ flag bits }
hdiPrompt = $4000;
hdiUpdate = $2000;
hdiEjects = $1000;
hdiNow = $0800;


TYPE

SignedByte     = -128..127;        {1 byte}
Byte           = 0..255;           {2 bytes}
Ptr            = ^SignedByte;      {4 bytes}
Handle         = ^Ptr;             {4 bytes}
ProcPtr        = Ptr;              {4 bytes}

Fixed          = longint;          {4 bytes}

Str255         = String [255];     {Pascal or C string}
StringPtr      = ^Str255;          {4 bytes}
StringHandle   = ^StringPtr;       {4 bytes}
CStringPtr     = Ptr;              {4 bytes}
CStringHandle  = Handle;           {4 bytes}

        SCB       = Integer;    { Bits  Meaning
                                  0-3   ColorTable
                                  4     Reserved
                                  5     Fill, 0=off, 1=on
                                  6     Interrupt, 0=off, 1=on
                                  7     ColorMode, 0=320, 1=640 }

ToolTable      = packed record
                   NumTools : integer;
                   Tools    : array [1..30] of record
                                   TSNum      : integer;
                                   MinVersion : integer;
                              end;
                 end;

VHSelect       = (v,h);

PointPtr       = ^Point;
Point          = packed record
                   case integer of
                       0: (v  : integer;
                           h  : integer);
                       1: (vh : array [VHSelect] of integer);
                 end;

RectPtr        = ^Rect;
Rect           = packed record
                   case integer of
                       0: (v1       : integer;
                           h1       : integer;
                           v2       : integer;
                           h2       : integer);
                       1: (vh1      : Point;
                           vh2      : Point);
                 end;

ColorValue     = integer;              {Bits: 0000RRRRGGGGBBBB}
ColorTablePtr  = ^ColorTable;
ColorTable     = array [0..15] of ColorValue;

AnSCBByte      = Byte;                 {Scanline control byte}

LocInfo        = packed record
                   portSCB         :   AnSCBByte;
                   liReserved      :   Byte;
                   ptrToPixImage   :   Ptr;
                   lwidth          :   integer;
                   boundsRect      :   Rect;
                 end;

RgnHndl        = ^RgnPtr;
RgnPtr         = ^Region;
Region         = packed record
                   rgnSize     :   integer;
                   rngBBox     :   Rect;
                   {Reserve storage for more data here if not rectangular}
                 end;

Pattern        = array [0..15] of integer;
Mask           = array [0..3]  of integer;

QDProcsPtr     = ^QDProcs;
QDProcs        = packed record
                   stdText     :   ProcPtr;
                   stdLine     :   ProcPtr;
                   stdRect     :   ProcPtr;
                   stdRRect    :   ProcPtr;
                   stdOval     :   ProcPtr;
                   stdArc      :   ProcPtr;
                   stdPoly     :   ProcPtr;
                   stdRgn      :   ProcPtr;
                   stdPixels   :   ProcPtr;
                   stdComment  :   ProcPtr;
                   stdTxMeas   :   ProcPtr;
                   stdTxBnds   :   ProcPtr;
                   stdGetPic   :   ProcPtr;
                   stdPutPic   :   ProcPtr;
                 end;

        LocInfoRec =
            packed record
                PortSCB:    SCB;
                PixelImage: Ptr;
                Width:      Integer;
                BoundsRect: Rect;
            end;

GrafPortPtr    = ^GrafPort;
GrafPort       = packed record
                   portInfo    :   LocInfo;
                   portRect    :   Rect;
                   clipRgn     :   RgnHndl;
                   visRgn      :   RgnHndl;
                   bkPat       :   Pattern;
                   pnLoc       :   Point;
                   pnSize      :   Point;
                   pnMode      :   integer;
                   pnPat       :   Pattern;
                   pnMask      :   Mask;
                   pnVis       :   integer;
                   fontName    :   Handle;    
                   fontID      :   longint;
                   fontFlags   :   integer;
                   txSize      :   integer;
                   txFace      :   integer;
                   txMode      :   integer;
                   spExtra     :   Fixed;
                   chExtra     :   Fixed;
                   fgColor     :   integer;
                   bgColor     :   integer;             
                   picSave     :   Handle;
                   rgnSave     :   Handle;
                   polySave    :   Handle;
                   grafProcs   :   QDProcsPtr;
                   arcRot      :   integer;
                   userField   :   longint;
                   sysField    :   longint;             
            end;

PicHndl        = ^PicPtr;
PicPtr         = ^Picture;
Picture        = packed record
                   picSize     :   integer;
                   picFrame    :   Rect;
                   {Picture bytes go here -- reserve storage}
                 end;

FontID         = packed record
                   famNum      : integer;
                   fontStyle   : Byte;
                   fontSize    : Byte;
                 end;

FontInfoRecord = packed record
                   ascent  : integer;
                   descent : integer;
                   widMax  : integer;
                   leading : integer;
                 end;

MenuRecPtr     = ^MenuRec;
MenuRecHndl    = ^MenuPtr;
MenuRec        = packed record
                   menuID     : integer;
                   menuWidth  : integer;
                   menuHeight : integer;
                   menuProc   : ProcPtr;
                   menuFlag   : Byte;
                   menuRes    : Byte;
                   firstItem  : Byte;
                   numOfItems : Byte;
                   titleWidth : integer;
                   titleName  : StringPtr;
                 end;

WindColorPtr      = ^WindColor;
WindColor         = packed record
                       frameColor      : integer;
                       titleColor      : integer;
                       tBarColor       : integer;
                       growColor       : integer;
                       infoColor       : integer;
                    end;

ParamList          = packed record
                       paramLength     : integer;
                       wFrameBits      : integer;
                       wTitle          : StringPtr;
                       wRefCon         : longint;
                       wZoom           : Rect;
                       wColor          : WindColorPtr;
                       wYOrigin        : integer;
                       wXOrigin        : integer;
                       wDataH          : integer;
                       wDataW          : integer;
                       wMaxH           : integer;
                       wMaxW           : integer;
                       wScrollVer      : integer;
                       wScrollHor      : integer;
                       wPageVer        : integer;
                       wPageHor        : integer;
                       wInfoRefCon     : longint;
                       wInfoHeight     : integer;
                       wFrameDefProc   : ProcPtr;
                       wInfoDefProc    : ProcPtr;
                       wContDefProc    : ProcPtr;
                       wPosition       : Rect;
                       wPlane          : longint;
                       wStorage        : Ptr;
                    end;

WmTaskRec          = packed record
                       wmWhat          : integer;
                       wmMessage       : longint;
                       wmWhen          : longint;
                       wmWhere         : Point;
                       wmModifiers     : integer;
                       wmTaskData      : longint;
                       wmTaskMask      : longint;
                       wmLastClickTick : Longint;
                       wmClickCount : Integer;
                       wmTaskData2 : Longint;
                       wmTaskData3 : Longint;
                       wmTaskData4 : Longint;
                       wmLastClickPt : Point;
                     end;

ItemTempPtr    = ^ItemTemplate;
ItemTemplate   = packed record
                   itemID      : integer;
                   itemRect    : Rect;
                   itemType    : integer;
                   itemDescr   : Ptr;
                   itemValue   : integer;
                   itemFlag    : integer;
                   itemColor   : Ptr;
                 end;

DialogTemplate = record
                   dtBoundsRect : Rect;
                   dtVisible    : boolean;
                   dtRefCon     : longint;
                   dtItemList   : array [0..atItemListLength] of ItemTempPtr;
                 end;

AlertTempPtr  = ^AlertTemplate;
AlertTemplate = record
                  atBoundsRect :   Rect;
                  atAlertID    :   integer;
                  atStage1     :   SignedByte;
                  atStage2     :   SignedByte;
                  atStage3     :   SignedByte;
                  atStage4     :   SignedByte;
                  atItem1      :   ItemTempPtr;
                  atItem2      :   ItemTempPtr;
                  atItem3      :   ItemTempPtr;
                  atItem4      :   ItemTempPtr;
                end;

PrInfoRecHndl  = ^PrInfoRecPtr;
PrInfoRecPtr   = ^PrInfoRec;
PrInfoRec      = packed record
                   iDev    :   integer;
                   iVRes   :   integer;
                   iHRes   :   integer;
                   rPage   :   Rect;
                 end;

PrStyleRecHndl = ^PrStyleRecPtr;
PrStyleRecPtr  = ^PrStyleRec;
PrStyleRec     = packed record
                   wDev        :   integer;
                   internA     :   array [0..2] of integer;
                   feed        :   integer;
                   paperType   :   integer;
                   crWidth     :   integer;
                   reduction   :   integer;
                   internB     :   integer;
                 end;

PrJobRecHndl   = ^PrJobRecPtr;
PrJobRecPtr    = ^PrJobRec;
PrJobRec       = packed record
                   iFstPage    :   integer;
                   iLstPage    :   integer;
                   iCopies     :   integer;
                   bJDocLoop   :   SignedByte;
                   fFromUser   :   boolean;
                   pIdleProc   :   ProcPtr;
                   pFileName   :   StringPtr;
                   iFileVol    :   integer;
                   bFileVers   :   SignedByte;
                   bJobX       :   SignedByte;
                 end;

PrRecHndl      = ^PrRecPtr;
PrRecPtr       = ^PrRec;
PrRec          = packed record
                   prVersion   :   integer;
                   prInfo      :   PrInfoRec;
                   rPaper      :   Rect;
                   prStl       :   PrStyleRec;
                   prInfoPT    :   array [0..13] of SignedByte;
                   prXInfo     :   array [0..23] of SignedByte;
                   prJob       :   PrJobRec;
                   printX      :   array [0..37] of SignedByte;
                   iReserved   :   integer;
                 end;

PrStatusRecHndl= ^PrStatusRecPtr;
PrStatusRecPtr = ^PrStatusRec;
PrStatusRec    = packed record
                   iTotPages   :   integer;
                   iCurPage    :   integer;
                   iTotCopes   :   integer;        {>!<  iTotCopies}
                   iCurCopy    :   integer;
                   iTotBands   :   integer;
                   iCurBand    :   integer;
                   fPgDirty    :   boolean;
                   fImaging    :   boolean;
                   hPrint      :   PrRecHndl;
                   pPrPort     :   GrafPortPtr;
                   hPic        :   PicHndl;
                 end;

TypeListPtr    = ^TypeListRec;
TypeList       = packed record
                   NumEntries  :   Byte;
                   FileType1   :   Byte;
                   FileType2   :   Byte;
                   FileType3   :   Byte;
                   FileType4   :   Byte;
                   FileType5   :   Byte;
                   FileType6   :   Byte;
                   FileType7   :   Byte;
                   FileType8   :   Byte;
                 end;

SFReplyRec     = record
                   good            :   boolean;
                   filler          :   boolean;
                   fileType        :   integer;
                   auxFileType     :   integer;
                   filename        :   String [15];
                   fullPathname    :   String [127];
                 end;

        ControlHandle = ^ControlPtr;
        ControlPtr    = ^ControlRec;

        ControlRec    =
            packed record
                CtrlNext:   ControlHandle;
                CtrlOwner:  GrafPortPtr;
                CtrlRect:   Rect;
                CtrlFlag:   Byte;
                CtrlHilite: Byte;
                CtrlValue:  Integer;
                CtrlProc:   ProcPtr;
                CtrlAction: ProcPtr;
                CtrlData:   LongInt;
                CtrlRefCon: LongInt;
                CtrlColor:  ColorTablePtr;

                case integer of
                   0: { special fields for scroll bar variation of control record }
                      (CtlThumbRect: Rect;
                       CtlPageRect:  Rect);
                   1: { special fields for list record variation of control record }
                      (CtlMemDraw:   ProcPtr;
                       CtlMemHeight: Integer;
                       CtlMemSize:   Integer;
                       CtlList:      Ptr;              { ListMemP }
                       CtlListBar:   ControlHandle)
            end;
END.
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/ADU/InitIntfPDOS.pii b/IIGS.601.SRC/A.U.G/ADU/InitIntfPDOS.pii
new file mode 100644
index 0000000..da08514
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/ADU/InitIntfPDOS.pii
@@ -0,0 +1 @@
+{$A+}

UNIT InitINTFPDOS;

INTERFACE {Def's below are public and represent the C-like ProDOS/16 interface}

USES InitINTFDATA;

TYPE

P16ParamBlk    = packed record
                   case integer of
                       {Used by Create, SetFileInfo and GetFileInfo:}
                       0: (pathname1   :   StringPtr;
                           access      :   integer;
                           fileType    :   integer;
                           auxType     :   longint;
                           storageType :   integer;
                           createDate  :   integer;
                           createTime  :   integer;
                           modDate     :   integer;
                           modTime     :   integer;
                           blocksUsed  :   longint);
                       {Used by Destroy:}
                       1: (deletepathname  :  StringPtr);
                       {For the following file access calls:}
                       2: (refNum      :   integer;
                           case integer of
                               {Used by Open:}
                               0: (pathname2   :   StringPtr;
                                   ioBuffer    :   Handle);
                               {Used by Read, Write:}
                               1: (dataBuffer    : Ptr;
                                   requestCount  : longint;
                                   transferCount : longint);
                               {Used by Close, Flush:}
                               2: ();  );
                       {Used by GetPathName, GetBootVol:}
                       3: (pathName    :   StringPtr);
                 end;

FileRec        =   packed record
                       pathname        :   Ptr;
                       fAccess         :   integer;
                       fileType        :   integer;
                       auxType         :   longint;
                       storageType     :   integer;
                       createDate      :   integer;
                       createTime      :   integer;
                       modDate         :   integer;
                       modTime         :   integer;
                       blocksUsed      :   longint;
                   end;

PathNameRec    =   packed record
                       pathname        :   Ptr;
                       newPathname     :   Ptr;
                   end;

FUNCTION D_INFO (deviceNum : integer;
                 var resultName : str255):integer;                     EXTERNAL;
FUNCTION VOLUME (var deviceName, VolumeName : Str255):integer;         EXTERNAL;

function GSOSStatus : integer;		external;
function GSOSControl : integer;		external;
function GSOSInfo : integer;		external;
function GSOSWrite : integer;		external;
function GSOSErase : integer;		external;
function GSOSFormat : integer;		external;

{ added 2/91 by Monte Benaresh:	}
FUNCTION CallGSOS(pblkPtr : Ptr; callNum : INTEGER) : INTEGER;			EXTERNAL;
FUNCTION DrvrCksum(drvrPtr : Ptr; drvrSize : INTEGER) : LONGINT;		EXTERNAL;

{Do this so we can access these routines in the TML Pascal library file:}
PROCEDURE P16GetFileInfo   (var p: P16ParamBlk);                   ProDOS 6;
PROCEDURE P16GetBootVol    (var p: P16ParamBlk);                   ProDOS 40;

IMPLEMENTATION {Everything below is private to this unit}

END.
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/ADU/InitIntfProc.pii b/IIGS.601.SRC/A.U.G/ADU/InitIntfProc.pii
new file mode 100644
index 0000000..534235f
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/ADU/InitIntfProc.pii
@@ -0,0 +1 @@
+UNIT InitINTFPROC;

USES InitINTFDATA;

PROCEDURE SpecialRect(theRect : Rect; frame, fill : integer); Tool 18,12;
FUNCTION  GetWKind
             (TheWindow: GrafPortPtr): Integer;           Tool 14,43;
PROCEDURE DrawCString
             (Str: CStringPtr);                         Tool 4,166;
PROCEDURE ReadAsciiTime
             (Buffer: Ptr);                             Tool 3,15;
FUNCTION  LongintToString(l : longint) : string;	External;
PROCEDURE CompactMem;                                   Tool 2,31;
FUNCTION  MaxBlock: LongInt;                            Tool 2,28;
FUNCTION  KeyPressed: Boolean;                          External;
FUNCTION  EventAvail
             (EventMask: Integer;
              VAR Event: WmTaskRec): Boolean;         Tool 6,11;
FUNCTION  TickCount: LongInt;                           Tool 6,16;
FUNCTION  Button
             (ButtonNum: Integer): Boolean;             Tool 6,13;
FUNCTION  OpenNDA
             (IDNum: Integer): Integer;                 Tool 5,21;
PROCEDURE FixAppleMenu
             (MenuNum: Integer);                        Tool 5,30;
PROCEDURE CloseAllNDAs;                                 Tool 5,29;
FUNCTION  SystemEdit
             (EditType: Integer): Boolean;              Tool 5,24;
PROCEDURE InvertRect
             (R: Rect);                                 Tool 4,86;
PROCEDURE SetCtlParams
             (Param2:     Integer;
              Param1:     Integer;
              TheControl: ControlHandle);               Tool 16,27;
FUNCTION  GetCtlParams
             (TheControl: ControlHandle): LongInt;      Tool 16,28;
FUNCTION  TrackControl
             (StartX:     Integer;
              StartY:     Integer;
              ActionProc: ProcPtr;
              TheControl: ControlHandle): Integer;      Tool 16,21;
PROCEDURE LocalToGlobal
             (VAR Pt: Point);                           Tool 4,132;
PROCEDURE GlobalToLocal
             (VAR Pt: Point);                           Tool 4,133;
FUNCTION  PtInRect
             (VAR Pt: Point;    { To force passing address }
              R:      Rect): Boolean;                   Tool 4,79;
FUNCTION  FindControl
             (VAR FoundCtrl: ControlHandle;
              XPoint:        Integer;
              YPoint:        Integer;
              TheWindow:     GrafPortPtr): Integer;       Tool 16,19;
PROCEDURE DisposeControl
             (TheControl: ControlHandle);               Tool 16,10;
PROCEDURE SetCtlRefCon
             (NewRefCon:  LongInt;
              TheControl: ControlHandle);               Tool 16,34;
FUNCTION  GetCtlRefCon
             (TheControl: ControlHandle): LongInt;      Tool 16,35;
PROCEDURE SetHandleSize
             (NewSize: LongInt;
              H:       Handle);                         Tool 2,25;
PROCEDURE InsetRect
             (VAR R: Rect;
              DH:    Integer;
              DV:    Integer);                          Tool 4,76;
PROCEDURE ClipRect
             (R: Rect);                                 Tool 4,38;
PROCEDURE DrawControls
             (TheWindow: GrafPortPtr);                    Tool 16,16;
PROCEDURE DrawOneCtl
             (TheControl: ControlHandle);               Tool 16,37;
PROCEDURE SetCtlValue
             (CurValue:   Integer;
              TheControl: ControlHandle);               Tool 16,25;
PROCEDURE FillRect
             (R: Rect;
              Pat: Pattern);                            Tool 4,87;
PROCEDURE EraseRect
             (R: Rect);                                 Tool 4,85;
PROCEDURE SetCtlTitle
             (Title:      Str255;
              TheControl: ControlHandle);               Tool 16,12;
PROCEDURE SelIText
             (TheDialog: GrafPortPtr;
              ItemID:    Integer;
              StartSel:  Integer;
              EndSel:    Integer);                      Tool 21,33;
PROCEDURE GetDItemBox
             (TheDialog:   GrafPortPtr;
              ItemID:      Integer
              VAR ItemBox: Rect);                       Tool 21,40;
PROCEDURE SetDItemBox
             (TheDialog:   GrafPortPtr;
              ItemID:      Integer
              ItemBox:     Rect);                       Tool 21,41;
PROCEDURE GetNewDItem
             (TheDialog:    GrafPortPtr;
              ItemTemplate: Ptr);                       Tool 21,51;
PROCEDURE Move
             (DH,DV: Integer);                          Tool 4,59;
PROCEDURE SetDItemValue
             (ItemValue: Integer;
              TheDialog: GrafPortPtr;
              ItemID:    Integer);                      Tool 21,47;
FUNCTION  GetControlItem
             (TheDialog: GrafPortPtr;
              ItemID:    Integer): ControlHandle;       Tool 21,30;
PROCEDURE SetPenSize
             (Width:  Integer;
              Height: Integer);                         	   Tool 4,44;
PROCEDURE GetPenSize
             (thePoint : PointPtr);                         	   Tool 4,45;
FUNCTION  GetDItemValue
             (TheDialog: GrafPortPtr;
              ItemID:    Integer): Integer;            		   Tool 21,46;
PROCEDURE HiliteControl
             (HiliteState: Integer;
              TheControl:  ControlHandle);              Tool 16,17;

FUNCTION AlertWindow (flags : INTEGER; subArray : Ptr;
			alertStrRef : Ptr): INTEGER;		TOOL 14,89;
PROCEDURE BeginUpdate      (theWindow:GrafPortPtr);                Tool 14,30;
PROCEDURE CalcMenuSize     (newWidth,newHeight,menuNum:integer);   Tool 15,28;
FUNCTION  CautionAlert     (Template:Ptr;Filter:ProcPtr):integer;  Tool 21,26;
FUNCTION  ChooseFont   (CurrentID:FontID;FamSpecs:integer):FontID; Tool 27,22;
PROCEDURE CloseDialog      (TheDialog:GrafPortPtr);                Tool 21,12;
PROCEDURE CloseNDAbyWinPtr (theWindow:GrafPortPtr);                Tool 5,28;
PROCEDURE ClosePort        (Port:GrafPortPtr);                     Tool 4,26;
PROCEDURE CloseWindow      (theWindow:GrafPortPtr);                Tool 14,11;
PROCEDURE CtlShutDown;                                             Tool 16,3;
PROCEDURE CtlStartUp       (userID,dpageAddr:integer);             Tool 16,2;
PROCEDURE DeleteMItem      (itemNum:integer);                      Tool 15,16;
PROCEDURE DeskShutDown;                                            Tool 5,3;
PROCEDURE DeskStartUp;                                             Tool 5,2;
PROCEDURE DialogShutDown;                                          Tool 21,3;
PROCEDURE DialogStartUp    (userID:integer);                       Tool 21,2;
PROCEDURE DisableDItem (theDialogPtr:GrafPortPtr; itemID:integer); Tool 21,57;
PROCEDURE DisableMItem     (itemmNum:integer);                     Tool 15,49;
PROCEDURE DisposeHandle    (theHandle:Handle);                     Tool 2,16;
PROCEDURE DisposeRgn  (theHandle:RgnHndl);                         Tool 4,104;
PROCEDURE DrawDialog       (theDialog:GrafPortPtr);                Tool 21,22;
PROCEDURE DrawMenuBar;                                             Tool 15,42;
PROCEDURE DrawString       (theStr:Str255);                        Tool 4,165;
PROCEDURE EMShutDown;                                              Tool 6,3;
PROCEDURE EMStartUp (Dp,Qs,Xmin,Xmax,Ymin,Ymax,userID:integer);    Tool 6,2;
PROCEDURE EnableMItem      (itemNum:integer);                      Tool 15,48;
PROCEDURE EndUpdate        (theWindow:GrafPortPtr);                Tool 14,31;
PROCEDURE FMShutDown;                                              Tool 27,3;
PROCEDURE FMStartUp        (userID,Dp:integer);                    Tool 27,2;
FUNCTION  FixMenuBar: Integer;                                     Tool 15,19;
FUNCTION  FrontWindow:GrafPortPtr;                                 Tool 14,21;
PROCEDURE FrameRect(r : Rect);					   Tool 4,83;
FUNCTION GetCtlHandleFromID(theWind : GrafPortPtr;
				ctlID : LONGINT): ControlHandle;   TOOL 16,48;
FUNCTION  GetFamInfo   (famNum:integer; famName:Str255):integer;   Tool 27,11;
FUNCTION  GetFontFlags: Integer;                                   Tool 4,153;
PROCEDURE GetFontInfo          (var fontInfo:FontInfoRecord);      Tool 4,150;
FUNCTION GetTick : LONGINT;					   TOOL 3, 37;
PROCEDURE GetIText (theDialogPtr: GrafPortPtr; itemID: integer;
                    resultPtr: Ptr);                               Tool 21,31;
FUNCTION  GetNewModalDialog    (theTemplate:Ptr):GrafPortPtr;      Tool 21,50;
PROCEDURE GetPen               (var thePt:Point);                  Tool 4,41;
FUNCTION  GetPort: GrafPortPtr;                                    Tool 4,28;
FUNCTION  GetSysWFlag          (theWindow:GrafPortPtr):boolean;    Tool 14,76;
PROCEDURE GetVisRgn (theHandle:RgnHndl);                           Tool 4,181;
FUNCTION  GetWRefCon           (theWindow:GrafPortPtr):longint;    Tool 14,41;
PROCEDURE GrafOff;                                                 Tool 4,11;
PROCEDURE HandToPtr (srcHdl:Handle; destPtr:Ptr; count:LONGINT);   TOOL 2,41;
PROCEDURE HLock                (h:Handle);                         Tool 2,32;
PROCEDURE HUnlock              (h:Handle);                         Tool 2,34;
PROCEDURE InvalRect (badRectPtr:Rect);                             Tool 14,58;
PROCEDURE CheckHandle          (h:Handle);                         Tool 2,30;
FUNCTION  GetSysFont: Handle;                                      Tool 4,179;
FUNCTION  GetFont: Handle;                                         Tool 4,149;
FUNCTION  GetPicSave: Handle;                                      Tool 4,63;
FUNCTION  GetRgnSave: Handle;                                      Tool 4,65;
FUNCTION  GetPolySave: Handle;                                     Tool 4,67;
FUNCTION  GetHandleSize        (H: Handle): longint;               Tool 2,24;      
FUNCTION  FindHandle           (Location: Ptr): Handle;            Tool 2,26;
FUNCTION  GetScrapPath: Handle;                                    Tool 22,16;
FUNCTION HandleDiskInsert( flags: INTEGER; devNum : INTEGER):
				LONGINT; { result is 2 word params! }
								   TOOL 14, 107;
FUNCTION  Hex2Int (StrPtr : StringPtr;StrLength:integer):integer;  Tool 11,36;
PROCEDURE HiliteMenu   (Hilite:boolean; menuNum:integer);          Tool 15,44;
PROCEDURE InitCursor;                                              Tool 4,202;
PROCEDURE InsertMItem  (addItem:CStringPtr;after,menuNum:integer); Tool 15,15;
PROCEDURE InsertMenu   (addMenu:MenuRecHndl;after:integer);        Tool 15,13;
PROCEDURE InstallFont  (theID:FontID;scale:integer);               Tool 27,14;
PROCEDURE Int2Hex (val:integer;StrPtr:StringPtr; StrLen:integer);  Tool 11,34;
FUNCTION  IntToString  (I: Integer): String;                       External;
PROCEDURE LEShutDown;                                              Tool 20,3;
PROCEDURE LEStartUp    (Dp,userID:integer);                        Tool 20,2;
PROCEDURE LineTo       (x,y:integer);                              Tool 4,60;
PROCEDURE LoadTools    (theTools:ToolTable);                       Tool 1,14;
PROCEDURE MMShutDown   (userID:integer);                           Tool 2,3;
FUNCTION  MMStartUp: integer;                                      Tool 2,2;
FUNCTION  MMStatus: integer;                                       Tool 2,6;
PROCEDURE MTShutDown;                                              Tool 3,3;
PROCEDURE MTStartUp;                                               Tool 3,2;
PROCEDURE MenuShutDown;                                            Tool 15,3;
PROCEDURE MenuStartUp  (userID,Dp:integer);                        Tool 15,2;
FUNCTION  ModalDialog  (filterProc:ProcPtr):integer;               Tool 21,15;
PROCEDURE MoveTo       (x,y:integer);                              Tool 4,58;
PROCEDURE HideDItem
             (TheDialog: GrafPortPtr;
              ItemID:    Integer);                      	Tool 21,34;
PROCEDURE ShowDItem
             (TheDialog: GrafPortPtr;
              ItemID:    Integer);                      	Tool 21,35;
PROCEDURE NewDItem (theDialog:GrafPortPtr; itemID:integer;
                    itemRect:Rect; itemType:integer;
                    itemDescr:UNIV Ptr; itemValue,
                    itemFlag:integer; itemColor:ColorTablePtr);    Tool 21,13;
FUNCTION  NewHandle (s:longint;ID,att:integer;loc:Ptr):Handle;     Tool 2,9;
FUNCTION  NewMenu   (menuStr:Ptr):MenuRecHndl;                     Tool 15,45;
FUNCTION  NewModalDialog(b:Rect;vis:boolean;r:longint):GrafPortPtr;Tool 21,10;
FUNCTION  NewRgn: RgnHndl;                                         Tool 4,103;
FUNCTION  NewWindow (p:ParamList):GrafPortPtr;                     Tool 14,9;
FUNCTION NewWindow2(titlePtr : Ptr; refCon : LONGINT;
			updtProcPtr : Ptr; wDefProcPtr : Ptr;
			paramTableDesc : INTEGER;
			windRef : LONGINT;
			resType : INTEGER): GrafPortPtr;           TOOL 14,97;
PROCEDURE OpenPort         (thePort:GrafPortPtr);                  Tool 4,24;
PROCEDURE ParamText (param0Ptr,param1Ptr,
                     param2Ptr,param3Ptr:StringPtr);               Tool 21,27;
PROCEDURE PMShutDown;                                              Tool 19,3;
PROCEDURE PMStartUp        (userID,Dp:integer);                    Tool 19,2;
PROCEDURE PPToPort (loc:LocInfoRec;r:Rect;x,y,mode:integer);          Tool 4,214;
PROCEDURE PtrToHand (srcPtr:Ptr; destHdl:Handle; count:LONGINT);   TOOL 2,40;
FUNCTION  PrChooser:  boolean;                                     Tool 19,22;
PROCEDURE PrCloseDoc   (pPrPort:GrafPortPtr);                      Tool 19,15;
PROCEDURE PrClosePage  (pPrPort:GrafPortPtr);                      Tool 19,17;
PROCEDURE PrDefault    (hPrint:PrRecHndl);                         Tool 19,9;
FUNCTION  PrJobDialog  (hPrint:PrRecHndl):boolean;                 Tool 19,12;
FUNCTION  PrOpenDoc    (h:PrRecHndl;p:GrafPortPtr):GrafPortPtr;    Tool 19,14;
PROCEDURE PrOpenPage   (p:GrafPortPtr;pPageFrame:RectPtr);         Tool 19,16;
PROCEDURE PrPicFile (h:PrRecHndl;p:GrafPortPtr;s:PrStatusRecPtr);  Tool 19,18;
FUNCTION  PrStlDialog  (hprint:PrRecHndl):boolean;                 Tool 19,11;
PROCEDURE WriteBRam(Buffer: Ptr);                                  Tool 3,9;
FUNCTION  GetGrafProcs: Ptr;                                       Tool 4,69;
PROCEDURE QDAuxShutDown;                                           Tool 18,3;
PROCEDURE QDAuxStartUp;                                            Tool 18,2;
PROCEDURE QDShutDown;                                              Tool 4,3;
PROCEDURE QDStartUp (Dp:integer;s:AnSCBByte;width,userID:integer); Tool 4,2;
FUNCTION  QDStatus: integer;                                       Tool 4,6;
PROCEDURE RemoveDItem (theDialogPtr:GrafPortPtr;itemID:integer);   Tool 21,14;
PROCEDURE RefreshDesktop   (r:RectPtr);                            Tool 14,57;
PROCEDURE SANEShutDown;                                            Tool 10,3;
PROCEDURE SFAllCaps        (allCaps:boolean);                      Tool 23,13;
PROCEDURE SFGetFile (x,y:integer; prompt:Str255; filter:ProcPtr;
                     typelist:TypeListPtr;reply:SFReplyRec);       Tool 23,9;
PROCEDURE SFPutFile (x,y:integer;p,n:Str255;maxLength:integer;
                     reply:SFReplyRec);                            Tool 23,10;
PROCEDURE SFShutDown;                                              Tool 23,3;
PROCEDURE SFStartUp    (userID,Dp:integer);                        Tool 23,2;
PROCEDURE ScrapShutDown;                                           Tool 22,3;
PROCEDURE ScrapStartUp;                                            Tool 22,2;
PROCEDURE SelectWindow (theWindow:GrafPortPtr);                    Tool 14,17;
PROCEDURE SetBackColor (backColor:integer);                        Tool 4,162;
PROCEDURE SetCtlParamPtr(arrayPtr : Ptr);                          TOOL 16,52;
PROCEDURE SetFontFlags (flags:integer);                            Tool 4,152;
PROCEDURE SetForeColor (foreColor:integer);                        Tool 4,160;
PROCEDURE SetIText (theDialogPtr: GrafPortPtr; itemID: integer;
                    theStringPtr: Ptr);                            Tool 21,32;
PROCEDURE SetMItem         (newStr:Str255;itemNum:integer);        Tool 15,36;
PROCEDURE SetMItemID       (newID,oldID:integer);                  Tool 15,56;
PROCEDURE SetMTitleStart   (xStart:integer);                       Tool 15,25;
PROCEDURE SetMenuFlag      (newValue,menuNum:integer);             Tool 15,31;
PROCEDURE SetOriginMask (originMask:integer;theWindow:GrafPortPtr);Tool 14,52;
PROCEDURE SetPort          (thePort:GrafPortPtr);                  Tool 4,27;
PROCEDURE SetRect      (var r:Rect; x1,y1,x2,y2:integer);          Tool 4,74;
PROCEDURE SetTextFace  (textFace:integer);                         Tool 4,154;
PROCEDURE SetWTitle    (title:Str255;theWindow:GrafPortPtr);       Tool 14,13;
PROCEDURE ShowCursor;                                              Tool 4,145;
PROCEDURE ShowWindow   (theWindow:GrafPortPtr);                    Tool 14,19;
FUNCTION  StopAlert    (template:Ptr; filter:ProcPtr):integer;     Tool 21,24;
PROCEDURE SysBeep;                                                 Tool 3,44;
PROCEDURE SysFailMgr       (errCode:integer;theStr:Str255);        Tool 3,21;
FUNCTION  TLMountVolume (x,y:integer;l1,l2,b1,b2:Str255):integer;  Tool 1,17;
FUNCTION TLTextMountVolume(line1Ptr : Ptr; line2Ptr : Ptr;
				but1Ptr : Ptr; but2Ptr : Ptr):
		INTEGER;					   TOOL 1,18;
PROCEDURE TLShutDown;                                              Tool 1,3;
PROCEDURE TLStartUp;                                               Tool 1,2;
FUNCTION  TaskMaster   (mask:integer;event:WmTaskRec):integer;     Tool 14,29;
PROCEDURE UpdateDialog (theDialogPtr:GrafPortPtr;
                        updateRgnHandle:RgnHndl);                  Tool 21,37;
PROCEDURE ValidRect(goodRect : Rect);                              TOOL 14,60;
PROCEDURE WaitCursor;                                              Tool 18,10;
PROCEDURE WindShutDown;                                            Tool 14,3;
PROCEDURE WindStartUp  (userID:integer);                           Tool 14,2;
FUNCTION  WindStatus:integer;                                      Tool 14,6;
FUNCTION  GetWMgrPort:GrafPortPtr;                                 Tool 14,32;
FUNCTION  GetMenuMgrPort:GrafPortPtr;                              Tool 15,27;

function  StevesStartupTools(userid, inputRef : integer; p : Ptr) : Ptr; tool 1,$18;
procedure StevesShutDownTools(inputref : integer; p : Ptr); tool 1, $19;

END.
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/ADU/ListMgr.pii b/IIGS.601.SRC/A.U.G/ADU/ListMgr.pii
new file mode 100644
index 0000000..dc667da
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/ADU/ListMgr.pii
@@ -0,0 +1 @@
+UNIT ListMgr;		{ Interfaces for Resource Manager added  }
			{ by Monte Benaresh -- February 16, 1991 }

USES  InitIntfData,         {Apple IIGS Toolbox Interface Units}
      InitIntfProc,
      InitIntfPDOS;

(*  ** Types for List Manager ** *)

TYPE    ListMemP   = ^ListMemRec;

        ListRecP = ^ListRec;
        ListRec =
            record
                ListRec:        Rect;
                ListSize:       Integer;
                ListView:       Integer;
                ListType:       Integer;
                ListStart:      Integer;
                ListCtl:        ControlHandle;
                ListDraw:       ProcPtr;
                ListMemHeight:  Integer;
                ListMemSize:    Integer;
                ListPointer:    ListMemP;
                ListRefCon:     LongInt;
                ListScrollClr:  ColorTablePtr;
            end;

        ListMemRec =
            record
                memPtr:  Ptr;
                memFlag: Integer;
            end;


(* ** Routines for List Manager ** *)

PROCEDURE ListStartUp;                                  Tool 28,2;
PROCEDURE ListShutDown;                                 Tool 28,3;
FUNCTION  ListVersion: Integer;                         Tool 28,4;
PROCEDURE ListReset;                                    Tool 28,5;
FUNCTION  ListStatus: Integer;                          Tool 28,6;
FUNCTION  CreateList
             (TheWindow: GrafPortPtr;
              TheList:   ListRecP): ControlHandle;      Tool 28,9;
FUNCTION  NextMember
             (TheMem:  ListMemP;
              TheList: ListRecP): ListMemP;             Tool 28,11;
FUNCTION  ResetMember
             (TheList: ListRecP): ListMemP;             Tool 28,15;
PROCEDURE DrawMember
             (TheMem:  ListMemP;
              TheList: ListRecP);                       Tool 28,12;
PROCEDURE SelectMember
             (TheMem:  ListMemP;
              TheList: ListRecP);                       Tool 28,13;
PROCEDURE SortList
             (SortProc: ProcPtr;
              TheList:  ListRecP);                      Tool 28,10;
FUNCTION  GetListDefProc: ProcPtr;                      Tool 28,14;
PROCEDURE NewList
             (TheMem:  ListMemP;
              TheList: ListRecP);                       Tool 28,16;

(* ** Routines for List Manager ** added 2/16/91 by Monte *)

PROCEDURE DetatchResource
		(ResType : INTEGER;
		 ResID : LONGINT);			TOOL 30,24;

FUNCTION GetResourceSize
		(ResType : INTEGER;
		 ResID : LONGINT): LONGINT;		TOOL 30,29;

FUNCTION LoadResource
		(ResType : INTEGER;
		 ResID : LONGINT): Handle;		TOOL 30,14;


FUNCTION OpenResourceFile
		(reqAccess : INTEGER; mapPtr : Ptr;
		 pathPtr : Ptr): INTEGER;		TOOL 30,10;

PROCEDURE CloseResourceFile
		(fileID : INTEGER);			TOOL 30,11;


end.
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/ADU/Menu.pii b/IIGS.601.SRC/A.U.G/ADU/Menu.pii
new file mode 100644
index 0000000..9993e14
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/ADU/Menu.pii
@@ -0,0 +1 @@
+{################################################################}
{#								#}
{#  File:	Menu.Pas from IIGS Disk Initializer		#}
{#								#}
{#--------------------------------------------------------------#}
{#								#}
{#  Description:  This file has all the routines that handle	#}
{#		  the creation, functionality and disposal of	#}
{#		  the menus used in the program.		#}
{#								#}
{#--------------------------------------------------------------#}
{#								#}
{#  Author:	Darryl Lovato					#}
{#								#}
{#--------------------------------------------------------------#}
{#								#}
{#  Copyright:	1987,1988 by Apple Computer Inc.		#}
{#		All rights reserved.				#}
{#								#}
{#--------------------------------------------------------------#}
{#								#}
{#  Modification History:					#}
{#								#}
{#	Who	When	The Change				#}
{#	---	------	-------------------------------------	#}
{#	SR	12/7/87	Created v.1 - erase & init only		#}
{#	DGL	1/29/88 Rewrote everything - cut size in half!  #}
{#	DGL	5/9/88	Finished Adding Partition Support	#}
{#			and other features... far too many to	#}
{#			list here...				#}
{#	DGL	5/12/88 Added Zero and Info operations		#}
{#	DGL	5/20/88 Released pre-alpha version to testers	#}
{#	DGL	6/1/88  Alpha!					#}
{#	DGL	6/13/88 Alpha 2					#}
{#	DGL	6/24/88 Alpha 3					#}
{#	DGL	7/1/88  Beta 1					#}
{#	DGL	7/13/88 Beta 2					#}
{#	DGL	7/20/88	Beta 3					#}
{#	DGL	7/27/88	Beta 4					#}
{#	DGL	8/1/88	Beta 5					#}
{#	DGL	8/8/88	Beta 6					#}
{#	DGL	8/15/88 Final!					#}
{#								#}
{################################################################}

{$LongGLobals-}
{$ToolErrorChk-}
{$A+}
unit Menu;

interface

uses
  InitIntfData,
  InitIntfProc,
  InitIntfPdos,
  ListMgr,
  Globals,
  Utils,
  Guts,
  Dialog;

procedure DoMenu;      {Execute a menu item}
procedure SetUpMenus;  {Install menus and redraw menu bar}

implementation

{################################################################}
{#	handle menu selections here				#}
{################################################################}

procedure DoMenu;
var
  item : integer;
  bool : boolean;
begin {of DoMenu}
  item := LoWord(Event.wmTaskData);
  case item of
    AboutItem : DoAboutItem;
    InitItem : ShowInit;
    QuitItem : Done := true;
    950,951,952,953,954 :
      bool := SystemEdit(item - 949);
  end;
  HiliteMenu(false,HiWord(Event.wmTaskData));
end; {of DoMenu}

{################################################################}
{#			create menu's here			#}
{################################################################}

procedure SetUpMenus;
var
  Height : integer;
begin			{of SetUpMenus}
  SetMTitleStart(10);   {Set Starting position of menu}
  AddMenu(@EditMenuStr);{Edit Menu}
  AddMenu(@FileMenuStr);{File Menu}
  AddMenu(@AppleMenuStr);{Apple Menu}
  FixAppleMenu(0);
  Height := FixMenuBar; {Set sizes of menus}
  DrawMenuBar;          {...and draw the menu bar!}
  HiliteMenu(false, FileMenuID);{Initially disabled}
end;    		{of SetUpMenus}

end.
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/ADU/OS.aii b/IIGS.601.SRC/A.U.G/ADU/OS.aii
new file mode 100644
index 0000000..2402ce3
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/ADU/OS.aii
@@ -0,0 +1 @@
+;################################################################
;#								#
;#  File:	OS.Asm from IIGS Disk Initializer		#
;#								#
;#--------------------------------------------------------------#
;#								#
;#  Description:  This file has all the glue which calls the	#
;#		  prodos routines that do the initializing	#
;#								#
;#--------------------------------------------------------------#
;#								#
;#  Author:	Darryl Lovato					#
;#								#
;#--------------------------------------------------------------#
;#								#
;#  Copyright:	1987,1988 by Apple Computer Inc.		#
;#		All rights reserved.				#
;#								#
;#--------------------------------------------------------------#
;#								#
;#  Modification History:					#
;#								#
;#	Who	When	The Change				#
;#	---	------	-------------------------------------	#
;#	SR	12/7/87	Created v.1 - erase & init only		#
;#	DGL	1/29/88 Rewrote everything - cut size in half!  #
;#	DGL	5/9/88	Finished Adding Partition Support	#
;#			and other features... far too many to	#
;#			list here...				#
;#	DGL	6/1/88  Alpha!					#
;#	DGL	6/13/88 Alpha 2					#
;#	DGL	6/24/88 Alpha 3					#
;#	DGL	7/1/88  Beta 1					#
;#	DGL	7/13/88 Beta 2					#
;#	DGL	7/20/88	Beta 3					#
;#	DGL	7/27/88	Beta 4					#
;#	DGL	8/1/88	Beta 5					#
;#	DGL	8/8/88	Beta 6					#
;#	DGL	8/15/88 Final!					#
;#								#
;################################################################

		STRING	ASIS
		BLANKS	OFF
		MACHINE	M65816
		LONGA	on
		LONGI	on

;------------------------------------------
;
; Equates from procedure 
;
;------------------------------------------
ProDOS          equ    $E100A8
D_Info_Call     equ    $202C             ;Call number for "D_Info"
Volume_Call     equ    $2008             ;Call number for "Volume"

;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

	IMPORT	ctlblk
	IMPORT	formatblk
	IMPORT	infoblk
	IMPORT	returnControl
	IMPORT	returnErase
	IMPORT	returnFormat
	IMPORT	returnInfo
	IMPORT	returnStatus
	IMPORT	returnWrite
	IMPORT	statusblk
	IMPORT	writeblk

;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

	ENTRY	d_info_list
	ENTRY	device_name
	ENTRY	volume_list
	ENTRY	volume_name

;################################################################
;#		misc data for the below calls			#
;################################################################

volume_list     PROC	EXPORT
		dc.w 5			;pcount through fileSysID
		DC.L	device_name	;pointer to the device name
		DC.L	volume_name	;pointer to the result volume name
		EXPORT	total_blks
total_blks
		DC.L	0000		;total blocks on the volume
		EXPORT	free_blks
free_blks
		DC.L	0000		;free blocks on the volume
		EXPORT	file_system_id
file_system_id
		DC.W	0000		;file system. $0001 = ProDOS

		EXPORT	d_info_list
d_info_list
		dc.w 2			;pcount through devName
		EXPORT	dev_num
dev_num
		DC.W	00		;device number. $0001 to -n-
		DC.L	dev_name_inbuf	;pointer to device name buffer

dev_name_inbuf
		dc.w 32+2+2		;size for result buffer
		EXPORT	device_name
device_name
		ds.w 1			;length word
		DS.B 32			;room for a large name

		EXPORT	volume_name
volume_name
		dc.w 36+2		;size for result buffer
		DS.B 36			;save room for a volume name

		EXPORT	error_code
error_code
		DC.W	00		;save error code from the call

		ENDP

;################################################################
;#		function GSOSFormat : integer;			#
;################################################################
	
GSOSFormat	PROC	EXPORT
	LONGA ON
	LONGI ON		; entry code
	phd
	tsc
	sec
	sbc	#$00F8
	tcd
	clc
	adc     #$00E4
	tcs
	
	jsl	$E100A8
	DC.W	$2024
	DC.L	formatblk

	bcs	returnFormat
	lda	#$0
	
returnFormat
	sta     $FE		; return error

	tdc			; exit code
	clc
	adc     #$00F8
	tcs
	pld
	rtl
		ENDP

;################################################################
;#		function GSOSErase : integer;			#
;################################################################
	
GSOSErase	PROC	EXPORT
	LONGA ON
	LONGI ON		; entry code
	phd
	tsc
	sec
	sbc	#$00F8
	tcd
	clc
	adc     #$00E4
	tcs
	
	jsl	$E100A8
	DC.W	$2025
	DC.L	formatblk
	
	bcs	returnErase
	lda	#$0
	
returnErase
	sta     $FE		; return error

	tdc			; exit code
	clc
	adc     #$00F8
	tcs
	pld
	rtl
		ENDP

;################################################################
;#		function GSOSStatus : integer;			#
;################################################################
	
GSOSStatus	PROC	EXPORT
	LONGA ON
	LONGI ON		; entry code
	phd
	tsc
	sec
	sbc	#$00F8
	tcd
	clc
	adc     #$00E4
	tcs
	
	jsl	$E100A8
	DC.W	$202D
	DC.L	statusblk

	bcs	returnStatus
	lda	#$0
	
returnStatus
	sta     $FE		; return error

	tdc			; exit code
	clc
	adc     #$00F8
	tcs
	pld
	rtl
		ENDP

;################################################################
;#		function GSOSInfo : integer;			#
;################################################################
	
GSOSInfo	PROC	EXPORT
	LONGA ON
	LONGI ON		; entry code
	phd
	tsc
	sec
	sbc	#$00F8
	tcd
	clc
	adc     #$00E4
	tcs
	
	jsl	$E100A8
	DC.W	$202C
	DC.L	infoblk

	bcs	returnInfo
	lda	#$0
	
returnInfo
	sta     $FE		; return error

	tdc			; exit code
	clc
	adc     #$00F8
	tcs
	pld
	rtl
		ENDP

;################################################################
;#		function GSOSWrite : integer;			#
;################################################################
	
GSOSWrite	PROC	EXPORT
	LONGA ON
	LONGI ON		; entry code
	phd
	tsc
	sec
	sbc	#$00F8
	tcd
	clc
	adc     #$00E4
	tcs

	jsl	$E100A8
	DC.W	$2030
	DC.L	writeblk

	bcs	returnWrite
	lda	#$0
	
returnWrite
	sta     $FE		; return error

	tdc			; exit code
	clc
	adc     #$00F8
	tcs
	pld
	rtl
		ENDP

;################################################################
;#		function GSOSControl : integer;			#
;################################################################
	
GSOSControl	PROC	EXPORT
	LONGA ON
	LONGI ON		; entry code
	phd
	tsc
	sec
	sbc	#$00F8
	tcd
	clc
	adc     #$00E4
	tcs
	
	jsl	$E100A8
	DC.W	$202E
	DC.L	ctlblk

	bcs	returnControl
	lda	#$0
	
returnControl
	sta     $FE		; return error

	tdc			; exit code
	clc
	adc     #$00F8
	tcs
	pld
	rtl
		ENDP
				
;################################################################
;#	function D_Info(device_number,result_name):integer;	#
;################################################################

D_Info	PROC	EXPORT

	; Changed 5/14/91 by Monte Benaresh to use Class 1 D_INFO

	LONGA ON
	LONGI ON
				; entry code
	phd			;save Direct Reg on stack
	tsc			;transfer Stack Ptr to Accumulator
	tcd			;transfer Accumulator to Direct Reg
	lda	$0A,s		;get device_number
	sta	dev_num		;store in local parameter list

	jsl	ProDOS		;call the operating system
	DC.W	D_Info_Call
	DC.L	D_Info_List	;pointer to the parameter block

	sta	$0C,s		;store error as function result
	bne	exit

	sep 	#$30		;to to 8 bit in m & x
	longa	off
	longi	off

	ldy	device_name	;get number of bytes in device_name
	tya
	sta [$06]		;set length of P-string
loop	lda	device_name+1,y	;now transfer name to variable
	sta	[$06],y		;store in caller's variable
	dey
	bne	loop

	rep	#$30		;back to 16 bit mode
	longa	on
	longi	on

exit	pld			;restore Direct Reg
	lda	$01,s		;move up our RTL
	sta	$07,s		;get rid of parameter inputs
	lda	$02,s
	sta	$08,s
	tsc			;put stack pointer into Accumulator
	clc
	adc	#6		;adjust stack to point to RTL
	tcs
	rtl			;return to Pascal

	ENDP

;################################################################
;#	function Volume(device_number,result_vol_name):integer;	#
;################################################################

Volume 	PROC	EXPORT

	; Changed 5/14/91 by Monte Benaresh to use Class 1 VOLUME
	; call to support long volume names.

	LONGA	ON
	LONGI	ON

	phd			;save Direct Reg on stack
	tsc			;transfer Stack Ptr to Accumulator
	tcd			;transfer Accumulator to Direct Reg

	sep	#$30		;to 8 bit m & x
	longa	off
	longi	off

	lda	[$0A]		;get # of bytes in caller's device name
	sta device_name		;set low byte of length word
	stz device_name+1	;clear high byte

	tay
inloop	lda	[$0A],y
	sta	device_name+1,y	;store in device_name
	dey
	bne	inloop

	rep	#$30		;back to 16 bit mode
	longa	on
	longi	on

	jsl 	ProDOS		;call the operating system
	DC.W	volume_call
	DC.L	volume_list	;pointer to the parameter block

	sta	$0E,s		;store error as function result
	bne	done

	sep	#$30		;to to 8 bit in m & x
	longa	off
	longi	off

	ldy	volume_name+2	;get number of bytes in volume_name
	tya
	sta [$06]		;set length of P-string

outloop	lda	volume_name+3,y	;now transfer name to variable
	sta	[$06],y		;store in caller's variable
	dey
	bne	outloop

	rep 	#$30		;back to 16 bit mode
	longa	on
	longi	on

done	pld			;restore Direct Reg
	lda	$01,s		;move up our RTL
	sta	$09,s		;get rid of parameter inputs
	lda	$02,s
	sta	$0A,s
	tsc			;put stack pointer into Accumulator
	clc
	adc	#8		;adjust stack to point to RTL
	tcs
	rtl			;return to Pascal
	ENDP


stack_cb	RECORD 1			;stack frame for ClearBuf

old_dp		ds.w 1
old_dbr		ds.b 1
rtn_addr	ds.b 3

value		ds.w 1				;value to store
buf_size	ds.l 1
buf_addr	ds.l 1				;address of buffer to clear

stack_end

		ENDR

*	Next stuff added by Monte Benaresh -- 1-2/91

		export ClearBuf
ClearBuf	PROC		;clear specified # of bytes of memory at specified address

		phb

		phk
		plb

		phd

		tsc
		tcd				;use stack as direct-page

		;brk $13

		WITH stack_cb

		lda <buf_addr
		sta operand_mod+1		;self-modify operand
		lda <buf_addr+1
		sta operand_mod+2		;self-modify operand

bank_loop
		;lda #'HB'			;constant to fill buffer, "BH"
		lda <value			;constant to fill buffer from caller

		ldy <buf_size+2			;at least a bank?
		beq @less
@bank
		ldx #$0000			;set index for a whole bank
		bra clear_loop
@less
		ldx <buf_size			;set index for low word of size
		beq done
clear_loop
		dex
		dex
operand_mod	sta >$000000,x			;*** SELF_MODIFIED ***
		;txy				;test index
		bne clear_loop
bank_done
		lda operand_mod+2
		clc
		adc #$100			;bump addr by a bank
		sta operand_mod+2

		dec <buf_size+2			;dec high word of counter
		bpl bank_loop			;go complete another bank or part therof

done
		lda rtn_addr,s
		sta stack_end-3,s
		lda rtn_addr+1,s
		sta stack_end-2,s

		pld
		plb

		tsc
		clc
		adc #stack_end-7
		tcs

		rtl

		ENDWITH

		ENDP


stack_cgs	RECORD 1			;stack frame for CallGSOS

old_dp		ds.w 1
old_dbr		ds.b 1
rtn_addr	ds.b 3

call_num	ds.w 1				;call number
pblk_ptr	ds.l 1				;addr of param block

stack_end

error		ds.w 1				;return error

		ENDR

		export CallGSOS
CallGSOS	PROC		;call GS/OS and return error

		phb

		phk
		plb

		phd

		tsc
		tcd				;use stack as direct-page

		;brk $18

		WITH stack_cgs

		pei pblk_ptr+2
		pei pblk_ptr
		pei call_num
		jsl $E100B0		;GS/OS stack entry point
		sta <error		;return error to caller


		lda rtn_addr,s
		sta stack_end-3,s
		lda rtn_addr+1,s
		sta stack_end-2,s

		pld
		plb

		tsc
		clc
		adc #stack_end-7
		tcs

		rtl

		ENDWITH

		ENDP

stack_dcs	RECORD 1			;stack frame for DrvrCksum

old_dp		ds.w 1
old_dbr		ds.b 1
rtn_addr	ds.b 3

drvr_size	ds.w 1				;byte size of driver image
drvr_ptr	ds.l 1				;addr of driver image

stack_end

Cksum		ds.l 1				;return computed checksum

		ENDR

		export DrvrCksum
DrvrCksum	PROC		;compute boot driver code checksum according to method
				;on page 580 of "Inside Macintosh Volume V"

		phb

		phk
		plb

		phd

		tsc
		tcd			;use stack as direct-page

		;brk $18

		WITH stack_dcs

	;(to get a valid checksum, we must zero the checksum field)
	;(in the driver itself and then fill it in with our result)

		;lda #$0000
		;ldy #$0012		;offset to checksum in driver image
		;sta [drvr_ptr],y	;clear before we calculate
		;iny
		;iny
		;sta [drvr_ptr],y	;clear low word (MAC order)

		ldy #$0000		;init index
DoCksum
		stz <Cksum		;initialize sum
		ldx <drvr_size		;loop counter
		beq CkDone		;handle 0 bytes
CkLoop
		lda [drvr_ptr],y	;get a word
		and #$00FF		;keep low byte
		clc
		adc <Cksum		;add to checksum

		asl a			;move 0 to low bit
		adc #$0000		;copy old high bit from carry to new low bit
		sta <Cksum		;update

		iny			;bump index
		dex			;loop counter
		bne CkLoop		;next byte
CkDone
		lda <Cksum		;test for 0 checksum
		bne exit

		dec <Cksum		;convert a checksum of 0 into $FFFF
exit
		stz <Cksum+2		;clear high word of long

		;lda <Cksum		;get result
		;xba			;put bytes in MAC order
		;ldy #$0014		;offset to low word of checksum
		;sta [drvr_ptr],y	;put result in driver image

		lda rtn_addr,s
		sta stack_end-3,s
		lda rtn_addr+1,s
		sta stack_end-2,s

		pld
		plb

		tsc
		clc
		adc #stack_end-7
		tcs

		rtl

		ENDWITH

		ENDP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/ADU/Utils.pii b/IIGS.601.SRC/A.U.G/ADU/Utils.pii
new file mode 100644
index 0000000..bc0349d
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/ADU/Utils.pii
@@ -0,0 +1 @@
+{################################################################}
{#								#}
{#  File:	Utils.Pas from IIGS Disk Initializer		#}
{#								#}
{#--------------------------------------------------------------#}
{#								#}
{#  Description:  This file has all the routines that are	#}
{#		  general purpose - utilities.			#}
{#								#}
{#--------------------------------------------------------------#} 
{#								#}
{#  Author:	Darryl Lovato					#}
{#								#}
{#--------------------------------------------------------------#}
{#								#}
{#  Copyright:	1987,1988 by Apple Computer Inc.		#}
{#		All rights reserved.				#}
{#								#}
{#--------------------------------------------------------------#}
{#								#}
{#  Modification History:					#}
{#								#}
{#	Who	When	The Change				#}
{#	---	------	-------------------------------------	#}
{#	SR	12/7/87	Created v.1 - erase & init only		#}
{#	DGL	1/29/88 Rewrote everything - cut size in half!  #}
{#	DGL	5/9/88	Finished Adding Partition Support	#}
{#			and other features... far too many to	#}
{#			list here...				#}
{#	DGL	5/12/88 Added Zero and Info operations		#}
{#	DGL	5/20/88 Released pre-alpha version to testers	#}
{#	DGL	6/1/88  Alpha!					#}
{#	DGL	6/13/88 Alpha 2					#}
{#	DGL	6/24/88 Alpha 3					#}
{#	DGL	7/1/88  Beta 1					#}
{#	DGL	7/13/88 Beta 2					#}
{#	DGL	7/20/88	Beta 3					#}
{#	DGL	7/27/88	Beta 4					#}
{#	DGL	8/1/88	Beta 5					#}
{#	DGL	8/8/88	Beta 6					#}
{#	DGL	8/15/88 Final!					#}
{#								#}
{################################################################}

{ these options turn long addressing off, and turn error checking off}
{ in addition, they set the pascal comments in assembler on.}

{$LongGlobals-}
{$ToolErrorChk-}
{$A+}

unit Utils;

interface

uses
  InitIntfData,
  InitIntfProc,
  InitIntfPDOS,
  ListMgr,
  Globals;

procedure DoAlert(static prompt, prompt2 : str255);
procedure MakeCursor(newCurs : integer);
procedure MakeGSOSStr(s : str255; var gs : GSOSString);
FUNCTION GSToP(GSString: GSStrPtr) : STR255;
function  UpperString(s : str255) : str255;
procedure SetLongText(theStringPtr:StringPtr);
FUNCTION RealSwapInt(aInt : INTEGER) : INTEGER;  { added 2/91 by Monte }
function  SwapLong(aLong : Longint) : longint;
function  AryToStr(data : Ptr; max : integer) : str255;
function  StrToAry32(theStr : str255) : str32;
procedure ZeroRefCons;
procedure RestoreRefCons;
procedure SaveAndZeroRefCons;
PROCEDURE ShowNoMem;
procedure PlotIconola(icon : Ptr; where : Point; smallicon : boolean);
function  GetVolIcon : ptr;
function  IsDA(theWind : GrafPortPtr) : boolean;
function  Real2Long(value : real) : longint;
function  Real2Int(value : real) : integer;
procedure TurnOn(ctl : ControlHandle);
procedure TurnOff(ctl : ControlHandle);
procedure BlinkButton(ctl : ControlHandle);
procedure AddMenu(s : Ptr);
PROCEDURE SetVolName(VolStr : STR255);		{ added 8/4/91 by Monte }
FUNCTION CheckOpenFiles(devNumber : INTEGER) : BOOLEAN;	{ added 8/17/91 by Monte }

procedure PHK; inline $4B;
procedure PLB; inline $AB;
PROCEDURE PHB; inline $8B;	{ added 3/91 by Monte }
PROCEDURE break; inline $00;
PROCEDURE brksig; inline $24;

implementation



FUNCTION CheckOpenFiles(devNumber : INTEGER) : BOOLEAN;	{ added 8/17/91 by Monte }

  VAR
  tempGS : GSOSResultBuf;

  BEGIN
    WITH infoBlk DO
      BEGIN
        pCount := 11;  
        devNumber := devNumber;
        devname := @tempGS;
      END;

    tempGS.bufsize := 35; { set size of result buf }

    toolErr := GSOSInfo;	{ get device name }

    WITH volBlk DO
      BEGIN
        pCount := 7;	{ include new characteristics word }
	devName := @tempGS.gstring;
	volName := NIL;
      END;

    toolErr := CallGSOS(@volBlk, $2008); { issue VOLUME call }

    IF (toolErr <> 0) OR (BITAND(volBlk.characteristics, $0010) = 0)
      THEN CheckOpenFiles := FALSE	{ if error or clear flag, no file open }
      ELSE CheckOpenFiles := TRUE;

  END;

PROCEDURE SetVolName(VolStr : STR255);		{ added 8/4/91 by Monte }

  BEGIN
     currVolumeStr := VolStr;			{ set global p-string }

     dispVolumeStr := currVolumeStr;
     IF (dispVolumeStr[1] = '/') OR (dispVolumeStr[1] = ':') THEN
            delete(dispVolumeStr,1,1);                   {Get rid of '/'}

     dispVolumeStr := CONCAT('The disk name is ', dispVolumeStr);

  END;


{################################################################}
{#	add a menu to the menu bar				#}
{################################################################}

procedure AddMenu(s : Ptr);
  begin
    InsertMenu(NewMenu(s),0);
  end;

{################################################################}
{#	Convert a real to a long				#}
{################################################################}

function  Real2Long(value : real) : longint;
  begin
    Real2Long := trunc(round(value));
  end;

{################################################################}
{#	Convert a real to a integer				#}
{################################################################}

function  Real2Int(value : real) : integer;
  begin
    Real2Int := Real2Long(value); {let pascal trunc it!}
  end;

{################################################################}
{#	blink a button one then off - used in filter routines	#}
{################################################################}

procedure BlinkButton(ctl : ControlHandle);
  begin
    HiliteControl(2,ctl);
    HiliteControl(0,ctl);
  end;

{################################################################}
{#	turn on a control (hilite)				#}
{################################################################}

procedure TurnOn(ctl : ControlHandle);
  begin
    HiliteControl(0,ctl);
  end;

{################################################################}
{#	turn off a control (dim)				#}
{################################################################}

procedure TurnOff(ctl : ControlHandle);
  begin
    HiliteControl(255,ctl);
  end;

{################################################################}
{#	Is this window a desk accessory?			#}
{################################################################}

function IsDA(theWind : GrafPortPtr) : boolean;
  begin
    IsDA := false;
    if theWind <> nil then
      IsDA := BitAnd(GetWKind(theWind),$8000) <> 0;
  end;


{################################################################}
{#	generic 1 button "ok" alert with 2 lines of text	#}
{################################################################}

procedure DoAlert(static prompt, prompt2 : str255);
  var
    AlertDLog : GrafPortPtr;
    itemHit : integer;
  begin
    oldPort := GetPort;

    miscStr := prompt;
    miscStr1 := prompt2;
    AlertDLog := GetNewModalDialog(@AlertDITL);
    SetPort(AlertDLog);
    itemHit := ModalDialog(nil);
    CloseDialog(AlertDLog);

    SetPort(oldPort);
  end;

{################################################################}
{#	Utility routine to make a given string GSOS compatable	#}
{################################################################}

procedure MakeGSOSStr(s : str255; var gs : GSOSString);
  var
    i : integer;
  begin
    with gs do
      begin
        size := length(s);
        for i := 1 to size do
          chars[i-1] := s[i];
      end;
  end;
  
{################################################################}
{#	Utility routine to convert GSOS string to P-string	#}
{################################################################}

FUNCTION GSToP(GSString: GSStrPtr) : STR255;  { given ptr to GS/OS string,É}
                                              {Éreturn Pascal string       }

  VAR
  tempString : gsosstring;
  tempPtr : StringPtr;

  BEGIN

    tempString := GSString^;    { make a copy }
    tempPtr := StringPtr(@tempString);
    tempPtr^[1] := tempPtr^[0];  { copy low byte to high }
    GSToP := StringPtr(ORD(tempPtr)+1)^;

  END;

{################################################################}
{#	Utility routine to make a given string uppercase	#}
{################################################################}

function UpperString(s : str255) : str255;
  var
    i : integer;
    val : integer;
  begin
    for i := 1 to ord(s[0]) do { this is faster than length(s) }
      begin
        val := ord(s[i]);
        if (val >= ord('a')) and
           (val <= ord('z')) then { its a lower case character}
	  s[i] := Char(val - $20);
      end;
    UpperString := s;
  end;

{################################################################}
{#  Set the cursor to the specified type, but only if needed	#}
{################################################################}

procedure MakeCursor(newCurs : integer);
begin
  case newCurs of
    arrow : if CurrCursor <> arrow then
	      InitCursor;
    watch : if CurrCursor <> watch then
              WaitCursor;
  end;
  CurrCursor := newCurs;
end;

{################################################################}
{#	performs the equivalent of SetIText on a LongStatText2	#}
{################################################################}

PROCEDURE SetLongText(theStringPtr : StringPtr);
  VAR
  tempRect : Rect;
  theCtlHdl : ControlHandle;

  BEGIN
    oldPort := GetPort;
    SetPort(InitDlogPtr);

  { set substitution string ptr to new string }
    subStrArray[0] := theStringPtr;
    theCtlHdl := GetCtlHandleFromID(InitDlogPtr, MStatTxt);
    DrawOneCtl(theCtlHdl);

  { validate this control's rect so the text won't get redrawn }
    tempRect := theCtlHdl^^.CtrlRect;
    ValidRect(tempRect);

    SetPort(oldPort);

  END;


{################################################################}
{#		swap the two bytes of an integer		#}
{################################################################}

type
  accesseverything = record
    case integer of
      1: (l : longint);
      2: (w1 : integer;
          w2 : integer);
      3: (b1 : signedbyte;
          b2 : signedbyte;
          b3 : signedbyte;
          b4 : signedbyte);
    end;

{ next function added 2/19/91 by Monte Benaresh }
FUNCTION RealSwapInt(aInt : accesseverything) : INTEGER;
  VAR
  temp : accesseverything;

  BEGIN
    temp.l := 0;
    temp.b2 := aint.b1;
    temp.b1 := aint.b2;
    RealSwapInt := temp.w1;
  END;

{################################################################}
{#		swap the two bytes of a longint			#}
{################################################################}

function SwapLong(aLong : accesseverything) : longint;
  var
    temp : accesseverything;
  begin
    temp.l := 0;
    temp.b4 := aLong.b1;
    temp.b3 := aLong.b2;
    temp.b2 := aLong.b3;
    temp.b1 := aLong.b4;
    SwapLong := temp.l;
  end;

{################################################################}
{#	convert a C str to a P string				#}
{################################################################}

function AryToStr(data : Ptr; max : integer) : str255;
  type
    charPtr = ^char;
  var
    count : integer;
  begin
    count := 1;
    while (charptr(data)^ <> char(0)) and (count <= max) do
      begin
        AryToStr[count] := charptr(data)^;
        data := pointer(ord4(data) + 1);
        inc(count)
      end;
    AryToStr[0] := char(count - 1);
  end;

{################################################################}
{#	convert a P str to a C string				#}
{################################################################}

function StrToAry32(theStr : str255) : str32;
  var
    i : integer;
  begin
    if length(thestr) > 31 then
      theStr[0] := char(31);
    for i := 0 to 31 do
      if i >= length(thestr) then
        StrToAry32[i] := char(0)
      else
        StrtoAry32[i] := theStr[i+1];
  end;
    
    
{################################################################}
{#	zero refcons, dlog mgr expects them to be 0		#}
{################################################################}

procedure ZeroRefCons;
  begin
    SetCtlRefCon(0,listControl1);
    SetCtlRefCon(0,listScroll1);
  end;

{################################################################}
{#	restore refcons we saved earlier	 		#}
{################################################################}

procedure RestoreRefCons;
  begin
    SetCtlRefCon(listCtlRef1,listControl1);
    SetCtlRefCon(listScrollRef1,listScroll1);
  end;

{################################################################}
{#	save refcons, then wipe-em out				#}
{################################################################}

procedure SaveAndZeroRefCons;
  begin
    listCtlRef1 := GetCtlRefCon(listControl1);
    listScrollRef1 := GetCtlRefCon(listControl1^^.CtlListBar);
    ZeroRefCons;
  end;

{################################################################}
{#	announce out-of memory					#}
{################################################################}

procedure ShowNoMem;
  begin
      MakeCursor(arrow);
      DoAlert('Sorry, not enough memory to perform the selected', 'operation.');
  end;

{################################################################}
{#	plot the icon at the point specified.			#}
{################################################################}
 
procedure PlotIconola(icon : Ptr; where : Point; smallicon : boolean);
  var
    AuxPLoc : LocInfoRec;
  begin
    with AuxPloc, boundsrect do
      begin
        PortSCB := ScreenMode;
        PixelImage := icon;
        v1 := 0;
        h1 := 0;
        if smallicon then
          begin
            Width := 8;
            v2 := 8;
            h2 := 32;
          end
        else
          begin
            Width := 15;
            v2 := 22;
            h2 := 60;
          end;
	IF icon <> NIL THEN PPToPort(AuxPLoc, BoundsRect,where.h,where.v,SrcCopy);
      end;
  end;

{################################################################}
{#	return vol icon for device passed in global "infoblk"	#}
{################################################################}

{this routine relies on infoblk to be correct, nothing is passed to
 us, we just look at the infoblk - we also wipe out the info blk!}
 
function GetVolIcon : ptr;
  var
    i : integer;
    myName : str255;
  begin
    GetVolIcon := @other; {default icon}
    with infoblk do
      case devID of
        $0,$14 : {floppy disk}
          GetVolIcon := @floppy;
        $3, $17 : { 3.5 inch disks, incl FDHD}
          GetVolIcon := @three;
        $1, $2, $5, $7, $13 : { hard disks, cd rom}
          if (headLink + forwardlink) <> 0 then {same as testing both for <> 0 and or'ing them}
            begin
              { do a dInfo on the head so we can get device # 2}
              pCount := 11;
              if headlink <> 0 then
                devNumber := headLink;
              devname := @myname;
                
              i := GSOSInfo;
            
              {now do a status on the head's forward link device,
	        if its there, then we are partitioned}
              with statusBlk do
                begin
                  pCount := 5;  
                  devNumber := forwardlink;
                  statCode := 0;
                  StatList := @StatResult;
                  RequestCount := 6;
                end;
              i := GSOSStatus;
       
       	      { this may seem to be an obscure way to do this but it 
	        saves tons of code no- else's}
	      GetVolIcon := @harddisk;
	      if devID = 7 then
		GetVolIcon := @CD;
	      if bitand(StatResult.general,$0010) <> 0 then {its a partition}
                begin
		  GetVolIcon := @Partition;
		  if devID = 7 then
		    GetVolIcon := @CDPartition
		end;
		
            end
	  else
	    begin
              GetVolIcon := @harddisk;
              if devID = 7 then
                GetVolIcon := @cd
            end;
        $E, $F : { ram and rom disks}
          GetVolIcon := @ramdisk;
        $1E : { appletalk network}
          GetVolIcon := @appletalk;
      end;
  end;
    
end.
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/ADU/adu.rii b/IIGS.601.SRC/A.U.G/ADU/adu.rii
new file mode 100644
index 0000000..4fa185e
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/ADU/adu.rii
@@ -0,0 +1 @@
+/*--------------------------------------------------------------*/
/*	resources for Advanced Disk Utility       by Monte Benaresh	*/
/*																*/
/*			created February 16, 1991							*/
/*--------------------------------------------------------------*/

#include "Typesiigs.r"


#define rSCSIDrvr		$4D61		/*	unusual value for uniqueness	*/
#define rSCSIDescDrvr	$5E72		/*	unusual value for uniqueness	*/

#define versionString "1.2"		/* maintain version here and in "Data.aii"	*/

resource rVersion(1, $0000) {
	{ 
	  $1,				/* major version in BCD */
	  $2,				/* minor version in BCD */
	  $0,				/* bug version		    */
	  release,
	  $00,				/* # */
	 },
	verUS,
	"Advanced Disk Utility",
	"Copyright 1988-92, Apple Computer, Inc."
};

resource rComment(1, $0000) {
	"Advanced Disk Utility by Darryl Lovato."
	"\$0d"
	"\$0d"
	"Updated by Monte Benaresh."
	"\$0d"
	"\$0d"
	"Quality assured by Brenda Knudson, Margarita Sang, "
	"Llew Roberts, Steve Wesolowski, and Anil Gursahani."
};


/*									*/
/*	Equates for window flags		*/
/*									*/

#define wtitleAsRes			$0200
#define wcolorAsRes			$0800
#define wctlAsRes			$0009


/*									*/
/*	Defines for windows/controls	*/
/*									*/

#define mainDlog			$1001
#define MEraseBut			$0002
#define MTitleTxt			$0003
#define MDiskBut			$0005
#define MStatTxt			$0008
#define MPartBut			$0009
#define MCancelBut			$000A
#define MInitBut			$000B
#define MZeroBut			$000C
#define MInfoBut			$000D


/*									*/
/*	Custom resource types			*/
/*									*/

type rSCSIDescDrvr	{	/*	Descriptors associated with rSCSIDrvr resource
							with same ID.  These are needed for the
							driver's partition map entry.				*/

					/* ### numbers get compiled into Mac byte order	###
					   ### because that's how they appear in the	###
					   ### partition map entry						### */

		reversebytes{longint;};		/* pmLgBootStart		*/
		reversebytes{longint;};		/* pmBootSize			*/
		reversebytes{longint;};		/* pmBootLoad			*/
		reversebytes{longint;};		/* pmBootLoad2			*/
		reversebytes{longint;};		/* pmBootEntry			*/
		reversebytes{longint;};		/* pmBootEntry2			*/
	/*	reversebytes{longint;};	*/	/* pmBootCksum			*/

	wide array[128] {
		byte;
		};						/* 128 bytes of boot-specific
								   arguments					*/
};

type rSCSIDrvr {			/* binary image of SCSI boot driver		*/
	wide array {
		byte;
		};
};


/*									*/
/*	Resource declarations			*/
/*									*/

/* The SCSI driver resource must be an even # of blocks in length!	*/
read rSCSIDrvr    (0x00000001,preload, nonpurgeable)  "mac.driver";

resource rSCSIDescDrvr (0x00000001,preload, nonpurgeable) {
	/* these values get compiled into Mac byte order	*/
	{	0x00000000},				/* pmLgBootStart		*/
	{	0x000017E2},				/* pmBootSize			*/
	{	0x00000000},				/* pmBootLoad			*/
	{	0x00000000},				/* pmBootLoad2			*/
	{	0x00000000},				/* pmBootEntry			*/
	{	0x00000000},				/* pmBootEntry2			*/
	/*{	0x000063EE}	*/				/* pmBootCksum			*/

	{		/* boot-specific arguments		*/
			/* These are set according to the values for any Apple-	*/
			/* provided drive, from the file "hardDrives.h" for		*/
			/* HDSC Partition.										*/

		0x00, 0x01, 0x06, 0x00,			/* drvr signature	*/
		0x00, 0x00, 0x00, 0x01,			/* pollbyte			*/
		0x00, 0x00, 0x00, 0x02,			/* TIB type			*/
		0x00, 0x07,						/* blind bits		*/
		0x00, 0x00,						/* shutdown stop	*/

		0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
		0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
		0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
		0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
		0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
		0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
		0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
		0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
		0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
		0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
		0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
		0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
		0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
		0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
	};
};

/*	New resources for main dialog	*/

resource rWindParam1 (mainDlog) {
	fTitle + fVis,							/* frame bits 			*/
	MTitleTxt,								/* title ID				*/
	0,										/* ref con	 			*/
	{0,0,0,0},								/* zoom rect			*/
	0,										/* color table ID		*/
	{0,0},									/* origin				*/
	{0,0},									/* data size			*/
	{0,0},									/* max height/width		*/
	{0,0},									/* scroll amount, hor/ver	*/
	{0,0},									/* page amount			*/
	0,										/* info ref con			*/
	0,										/* info height			*/
	{50,133,154,508},						/* window position		*/
	infront,								/* wPlane				*/
	mainDlog,								/* controls ref			*/
	wColorAsRes + wTitleAsRes + wCtlAsRes 	/* descriptor 			*/
};

/*	controls for main dialog		*/
resource rControlList (mainDlog) {
	{
	MEraseBut,
/*	MTitleTxt,	*/
	MDiskBut,
	MStatTxt,
	MPartBut,
	MCancelBut,
	MInitBut,
	MZeroBut,
	MInfoBut
	};
};

resource rControlTemplate (MEraseBut) {
	MEraseBut,								/* control ID			*/
	{31,125,44,220},						/* control rect			*/
	SimpleButtonControl{{					/* control type			*/
		0,									/* flags				*/
		fctlProcNotPtr + RefIsResource,		/* more flags			*/
		0,									/* ref con				*/
		MEraseBut							/* title ref			*/
	}};
};

resource rpString (MEraseBut) {
	"EraseÉ"
};

resource rControlTemplate (MTitleTxt) {
	MTitleTxt,								/* control ID			*/
	{5,18,15,380},							/* control rect			*/
	StatTextControl{{						/* control type			*/
		0xFF00,								/* flag					*/
		RefIsResource
		+ FctlProcNotPtr,					/* moreFlags			*/
		0,									/* ref con				*/
		MTitleTxt							/* title ref			*/
	}};
};

resource rTextForLETextBox2 (MTitleTxt) {
	"Apple IIGS Advanced Disk Utility         v"
	versionString
};

resource rpString (MTitleTxt) {
	"Apple IIGS Advanced Disk Utility         v"
	versionString
};


resource rControlTemplate (MDiskBut) {
	MDiskBut,								/* control ID			*/
	{6,262,20,353},							/* control rect			*/
	SimpleButtonControl{{					/* control type			*/
		0,									/* flags				*/
		fctlProcNotPtr + RefIsResource
			+ FctlWantsEvents,				/* more flags			*/
		0,									/* ref con				*/
		MDiskBut,							/* title ref			*/
		0,									/* color table ref		*/
		{"\0x09","\0x09",0,0}				/* key equiv			*/
	}};
};

resource rpString (MDiskBut) {
	"Disk"
};

resource rControlTemplate (MStatTxt) {
	MStatTxt,								/* control ID			*/
	{85,0,108,375},							/* control rect			*/
	StatTextControl{{						/* control type			*/
		0xFF03,								/* flag					*/
		RefIsResource
		+ FctlProcNotPtr,					/* moreFlags			*/
		0,									/* ref con				*/
		MStatTxt							/* title ref			*/
	}};
};

resource rTextForLETextBox2 (MStatTxt) {
	TBCenterJust
	"*0"									/* substitution string	*/
};

resource rControlTemplate (MPartBut) {
	MPartBut,								/* control ID			*/
	{57,75,71,170},							/* control rect			*/
	SimpleButtonControl{{					/* control type			*/
		0,									/* flags				*/
		fctlProcNotPtr + RefIsResource,		/* more flags			*/
		0,									/* ref con				*/
		MPartBut							/* title ref			*/
	}};
};

resource rpString (MPartBut) {
	"PartitionÉ"
};

resource rControlTemplate (MCancelBut) {
	MCancelBut,								/* control ID			*/
	{57,262,71,353},						/* control rect			*/
	SimpleButtonControl{{					/* control type			*/
		0,									/* flags				*/
		fctlProcNotPtr + RefIsResource,		/* more flags			*/
		0,									/* ref con				*/
		MCancelBut							/* title ref			*/
	}};
};

resource rpString (MCancelBut) {
	"Quit"
};

resource rControlTemplate (MInitBut) {
	MInitBut,								/* control ID			*/
	{6,125,20,220},							/* control rect			*/
	SimpleButtonControl{{					/* control type			*/
		0,									/* flags				*/
		fctlProcNotPtr + RefIsResource,		/* more flags			*/
		0,									/* ref con				*/
		MInitBut							/* title ref			*/
	}};
};

resource rpString (MInitBut) {
	"InitializeÉ"
};

resource rControlTemplate (MZeroBut) {
	MZeroBut,								/* control ID			*/
	{6,20,20,115},							/* control rect			*/
	SimpleButtonControl{{					/* control type			*/
		0,									/* flags				*/
		fctlProcNotPtr + RefIsResource,		/* more flags			*/
		0,									/* ref con				*/
		MZeroBut							/* title ref			*/
	}};
};

resource rpString (MZeroBut) {
	"ZeroÉ"
};

resource rControlTemplate (MInfoBut) {
	MInfoBut,								/* control ID			*/
	{31,20,44,115},							/* control rect			*/
	SimpleButtonControl{{					/* control type			*/
		0,									/* flags				*/
		fctlProcNotPtr + RefIsResource,		/* more flags			*/
		0,									/* ref con				*/
		MInfoBut							/* title ref			*/
	}};
};

resource rpString (MInfoBut) {
	"Info"
};

\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/ADU/mac.driver b/IIGS.601.SRC/A.U.G/ADU/mac.driver
new file mode 100644
index 0000000..37e4de2
Binary files /dev/null and b/IIGS.601.SRC/A.U.G/ADU/mac.driver differ
diff --git a/IIGS.601.SRC/A.U.G/ADU/makefile b/IIGS.601.SRC/A.U.G/ADU/makefile
new file mode 100644
index 0000000..788a281
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/ADU/makefile
@@ -0,0 +1 @@
+Objects =		¶
				Globals.pii.aii.obj 	¶
				Utils.pii.aii.obj 		¶
				Guts.pii.aii.obj 		¶
				Dialog.pii.aii.obj 		¶
				Menu.pii.aii.obj 		¶
				Event.pii.aii.obj 		¶
				Init.pii.aii.obj 		¶
				Data.aii.obj			¶
				OS.aii.obj

Interfaces = 	InitIntfData.usym	¶
				InitIntfProc.usym	¶
				InitIntfPDOS.usym	¶
				ListMgr.USym


ADV.DISK.UTIL			Ä	{Interfaces}  {Objects}	¶
							adu.o	adu.res
	duplicate -y adu.o ADV.DISK.UTIL	# don't use -d to preserve filetype
	duplicate adu.res -r -y ADV.DISK.UTIL
	if {dup}				# test whether we should duplicateiigs
		duplicateiigs -m -y ADV.DISK.UTIL Adv.Disk.Util
	end

#
# Resource fork added 2/17/91 by Monte
#

adu.res Ä	adu.rii					¶
			mac.driver				¶
			{riigsincludes}TypesIIGS.r
		reziigs adu.rii -o adu.res

adu.o	Ä		{Interfaces}  {Objects}
	linkiigs -l -s > map		¶
		 -lseg Mickey:$1000		¶
		 Init.pii.aii.obj		¶
		 Utils.pii.aii.obj		¶
		 Guts.pii.aii.obj		¶
		 Dialog.pii.aii.obj		¶
		 Menu.pii.aii.obj		¶
		 Event.pii.aii.obj		¶
		 OS.aii.obj				¶
		 Globals.pii.aii.obj	¶
		 Data.aii.obj			¶
		 "{PIIGSLibrary}PIIGSRuntime.obj" ¶
		 -lib "{PIIGSLibrary}PIIGSRuntime.obj" ¶
		-at $0000DB03			¶
		 -o adu.o

#
# Rules modified 2/8/91 by Monte Benaresh
#

.usym						Ä	.pii
	tmlpas {default}.pii

.aii.obj					Ä	.aii
	asmiigs {default}.aii

.pii.aii					Ä	.pii
	TMLPascal {default}.pii

# dependencies among interfaces

InitIntfProc.usym	Ä	InitIntfProc.pii		¶
						InitIntfData.usym
	tmlpas InitIntfProc.pii

InitIntfPDOS.usym	Ä	InitIntfPDOS.pii		¶
						InitIntfData.usym
	tmlpas InitIntfPDOS.pii

ListMgr.usym		Ä	ListMgr.pii				¶
						InitIntfData.usym		¶
						InitIntfProc.usym		¶
						InitIntfPDOS.usym
	tmlpas ListMgr.pii

Globals.pii.obj		Ä		Globals.pii		{Interfaces}
utils.pii.obj		Ä		utils.pii 		{Interfaces}
guts.pii.obj		Ä		guts.pii 		{Interfaces}
dialog.pii.obj		Ä		dialog.pii 		{Interfaces}
menu.pii.obj		Ä		menu.pii 		{Interfaces}
event.pii.obj		Ä		event.pii 		{Interfaces}
init.pii.obj		Ä		init.pii 		{Interfaces}

#
# Rules added 2/8/91 by Monte Benaresh
#
# These were always necessary for correctness.
#

Globals.pii.aii		Ä	Globals.pii		{Interfaces}

Utils.pii.aii		Ä	Utils.pii		{Interfaces}	¶
						Globals.pii.aii.obj

Guts.pii.aii		Ä	Guts.pii		{Interfaces}	¶
						Globals.pii.aii.obj				¶
						Utils.pii.aii.obj

Dialog.pii.aii		Ä	Dialog.pii		{Interfaces}	¶
						Globals.pii.aii.obj				¶
						Utils.pii.aii.obj				¶
						Guts.pii.aii.obj

Menu.pii.aii		Ä	Menu.pii		{Interfaces}	¶
						Globals.pii.aii.obj				¶
						Utils.pii.aii.obj				¶
						Guts.pii.aii.obj				¶
						Dialog.pii.aii.obj

Event.pii.aii		Ä	Event.pii		{Interfaces}	¶
						Globals.pii.aii.obj				¶
						Utils.pii.aii.obj				¶
						Guts.pii.aii.obj				¶
						Dialog.pii.aii.obj				¶
						Menu.pii.aii.obj

Init.pii.aii		Ä	Init.pii		{Interfaces}	¶
						Globals.pii.aii.obj				¶
						Utils.pii.aii.obj				¶
						Guts.pii.aii.obj				¶
						Dialog.pii.aii.obj				¶
						Menu.pii.aii.obj				¶
						Event.pii.aii.obj
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Apple.Bowl/Apple.Bowl b/IIGS.601.SRC/A.U.G/Apple.Bowl/Apple.Bowl
new file mode 100644
index 0000000..e69de29
diff --git a/IIGS.601.SRC/A.U.G/Apple.Bowl/AppleBowl.Icon b/IIGS.601.SRC/A.U.G/Apple.Bowl/AppleBowl.Icon
new file mode 100644
index 0000000..b91f733
Binary files /dev/null and b/IIGS.601.SRC/A.U.G/Apple.Bowl/AppleBowl.Icon differ
diff --git a/IIGS.601.SRC/A.U.G/Apple.Bowl/Bowl.bas b/IIGS.601.SRC/A.U.G/Apple.Bowl/Bowl.bas
new file mode 100644
index 0000000..4c7ea19
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Apple.Bowl/Bowl.bas
@@ -0,0 +1 @@
+REM DISK VERSION  1/21/79  CRK

REM Converted to IIGS July, 1991 by Greg Branche

REM  *************************
REM  *                       *
REM  *  A P P L E   B O W L  *
REM  *                       *
REM  *************************


REM  ****** WRITTEN  BY ******
REM  *                       *
REM  *    CHARLIE KELLNER    *
REM  *                       *
REM  *    AND ERIC LARSON    *
REM  *                       *
REM  ******* NOV. 1978 *******

REM
REM   THIS PROGRAM IS A HIGH
REM   RESOLUTION 3-D GRAPHIC
REM   SIMULATION OF BOWLING.

REM  *************************
REM  *                       *
REM  *         NOTES         *
REM  *                       *
REM  *************************

REM   <<< VARIABLE USAGE >>>

REM  A$    : ALPHA STRING INPUT
REM  COLR  : HIRES COLOR VALUE
REM  DX    : RELEASE POINT STEP
REM  E     : SCORE TAB VALUE
REM  F     : FRAME COUNTER
REM  G     : GUTTER FLAG
REM  H     : NUMBER OF PINS HIT
REM  H1    : FIRST BALL SCORE
REM  I     : FOR/NEXT COUNTER
REM  J     : FOR/NEXT COUNTER
REM  K     : PIN MATRIX INDEX
REM  L     : LANE NUMBER
REM  N     : GAME NUMBER
REM  N$    : PLAYER'S NAME
REM  OP0   : OLD PDL(0) VALUE
REM  OP1   : OLD PDL(1) VALUE
REM  PIN   : PIN MATRIX
REM  ROT   : HIRES ROTATION
REM  S     : BALL SPEED
REM  SCALE : HIRES SCALE FACTOR
REM  SET   : LANE CYCLE FLAG
REM  SHAPE : HIRES SHAPE NUMBER
REM  SP    : SPARE FLAG
REM  ST    : STRIKE FLAG
REM  SV    : STRIKE SAVE FLAG
REM  T     : TOTAL SCORE
REM  X     : PIN COLUMN COUNTER
REM  X0    : HIRES X-COORDINATE
REM  X1    : BALL  X-INCREMENT
REM  X2    : PIN   X-POSITION
REM  X3    : BALL  X-POSITION
REM  XP    : BALL RELEASE POINT
REM  Y     : PIN ROW COUNTER
REM  Y0    : HIRES Y-COORDINATE
REM  Z     : PIN TABLE ENTRY

REM THESE ARE THE NORMAL USAGES
REM OF THE INDICATED VARIABLES;
REM HOWEVER, SOME VARIABLES ARE
REM USED IN SEVERAL ROUTINES TO
REM CONSERVE MEMORY ALLOCATION.


REM ***************************
REM *                         *
REM * NOTE: FOR COMPLETE USER *
REM * INSTRUCTIONS IN PRINTED *
REM * FORMAT, SIMPLY RUN THIS *
REM * PROGRAM. (TEXT FOLLOWS) *
REM *                         *
REM ***************************

REM Shape table MUST be named ShapeTbl in assembly source.
REM Programmer's Aid library accesses it by name.

REM Programmer's Aid Library variables
X0 = 0
Y0 = 0
COLR = 0
SHAPE = 0
ROT = 0
SCALE = 1
COLLSN = 0

REM Program variables
I = 0
J = 0
X = 0
Y = 0
Z = 0
DIM PIN(38),SET(2),A$(255),N$(20)

TEXT
CALL Home
GOSUB "Title"

GOSUB "InitTextScreen"
CALL CursorOff
VTAB 2: TAB 31: PRINT "A P P L E   B O W L"
        TAB 31: PRINT "- - - - -   - - - -"
PRINT
TAB 21: PRINT "< By Charlie Kellner and Eric Larson >"
TAB 21: PRINT "< Apple IIGS Version by Greg Branche >"
PRINT
TAB 17: PRINT "Copyright (C) 1978, 1992   Apple Computer Inc."
TAB 15: PRINT "Portions Copyright (C) 1991   The Byte Works, Inc."
PRINT:PRINT
TAB 18: PRINT "Apple Bowl is a copyrighted software product"
TAB 15: PRINT "and as such may not be duplicated or transmitted."
PRINT:PRINT
TAB 19: PRINT "Copyright infringement may result in civil"
TAB 14: PRINT "damages whether or not a profit motive is involved."
VTAB 23: TAB 23
PRINT "Press the space bar to continue...";: CALL ClearStrobe
"WaitKey_2"
GOSUB "WaitForKey"
CALL Keyboard
IF Key # 32 THEN "WaitKey_2"

GOSUB "InitTextScreen"
REM   "          1         2         3         4         5         6         7
REM   "01234567890123456789012345678901234567890123456789012345678901234567890123456789
VTAB 2: TAB 31: PRINT "A P P L E   B O W L"
VTAB 9
PRINT " The Apple Bowl is a 3-D, Hi-Resolution graphic simulation of a bowling alley."
PRINT " The computed motion of the ball & pins is derived from the laws of physics."
PRINT " All conditions normally encountered in bowling, such as the direction, speed,"
PRINT " spin, and weight of the ball and pins are included with the ball's position"
PRINT " to realistically determine the correct fall of the pins, and resulting score."
PRINT " The ball can be thrown from any point across the width of the bowling alley."
PRINT " Its direction, speed and spin are set at the moment of release by the mouse"
PRINT " and two keys on the keyboard - the Apple and Option keys."
VTAB 23: TAB 21: PRINT "Need instructions? (Hit 'Y' or 'N')...";
"WaitKey_3"
GOSUB "WaitForKey"
CALL Keyboard
IF Key = ASC("N") OR  Key = ASC("n") THEN "Begin_Game"
IF Key # ASC("Y") AND Key # ASC("y") THEN "WaitKey_3"

GOSUB "InitTextScreen"
VTAB 1: TAB 29: PRINT "I N S T R U C T I O N S": PRINT
REM   "          1         2         3         4         5         6         7
REM   "01234567890123456789012345678901234567890123456789012345678901234567890123456789
PRINT " Three lanes are shown on your screen.  Notice that you are (appropriately) on"
PRINT " lane ][.  Occasionally you may notice activity on lanes I and ]I[: Don't let"
PRINT " this concern you; they're on different teams, and won't affect your score."
PRINT " When it's your turn to bowl, the Apple will display a small moving pointer at"
PRINT " the front of your lane.  This will be the point from which the ball will be "
PRINT " released when you press either the Apple or Option keys on the keyboard."
PRINT " Moving the mouse left and right controls the angle of release of the ball"
PRINT " (direction left to right), and moving the mouse backwards and forwards"
PRINT " controls its speed."
PRINT
PRINT " Your mouse positions will be shown by an indicator at each side of the lane."
PRINT " If you use the Option key to throw the ball, it will hook slightly to the"
PRINT " left.  If you press the Apple key, the ball will hook to the right (the "
PRINT " hook is more noticeable at slower speeds). "
PRINT
PRINT " The Apple keeps score automatically.  Strikes and spares (marks) are scored "
PRINT " by standard rules.  Extra ball(s) are awarded for marks in the tenth frame."
PRINT " To interrupt a game before the tenth frame, just hit the Escape (ESC) key."
PRINT " If you decide to quit, you will be shown the last four score sheets."
PRINT
VTAB 24: TAB 22: PRINT "Ready to begin?  (hit 'Y' or 'N')...";
"WaitKey_5"
GOSUB "WaitForKey"
CALL Keyboard
IF Key = ASC("Y") OR Key = ASC("y") THEN "Begin_Game"
IF Key # ASC("N") AND Key # ASC("n") THEN "WaitKey_5"
TEXT80
CALL Normal
CALL Home
END

REM ******************
REM * INITIALIZATION *
REM ******************

"Begin_Game"
CALL Normal : REM Clear 80 column screen
CALL Home
TEXT
CALL Home
CALL Normal

CALL GetSysSpeed : REM read current system speed
OldSysSpeed = SysSpeed : REM save for restoration later
SysSpeed = 0 : REM set 1 MHz speed
CALL SetSysSpeed
CALL SetMousePosition

REM  DRAW LANES
CALL Init
COLR = 127: X0 = 0: Y0 = 0: CALL HPlot
X0 = 278: CALL Line
Y0 = 70: CALL Line
X0 = 0: CALL HPlot
Y0 = 0: CALL Line
COLR = 85: Y0 = 44: CALL HPlot
X0 = 279: CALL Line
COLR = 127
FOR I = 1 TO 187 STEP 93
    X0 = I: Y0 = 0: CALL HPlot
    Y0 = 70: CALL Line
    X0 = I + 92: CALL HPlot
    Y0 = 0: CALL Line
NEXT I
X0 = 93: Y0 = 70: CALL HPlot
X0 = 0: Y0 = 159: CALL Line
X0 = 186: Y0 = 70: CALL HPlot
X0 = 279: Y0 = 159: CALL Line

REM  DRAW GUTTERS
COLR = 170: X0 = 80: Y0 = 70: CALL HPlot
X0 = 0: Y0 = 133: CALL Line
X0 = 198: Y0 = 70: CALL HPlot
X0 = 279: Y0 = 133: CALL Line
X0 = 11: Y0 = 70: CALL HPlot
X0 = 1: Y0 = 75: CALL Line
X0 = 279: Y0 = 75: CALL HPlot
X0 = 268: Y0 = 70: CALL Line
X0 = 105: Y0 = 70: CALL HPlot
X0 = 36: Y0 = 159: CALL Line
X0 = X0 - 2: CALL HPlot
X0 = 105: Y0 = 70: CALL Line
X0 = 174: Y0 = 70: CALL HPlot
X0 = 243: Y0 = 159: CALL Line
X0 = X0 + 2: CALL HPlot
X0 = 174: Y0 = 70: CALL Line

REM  DRAW FEATURES
COLR = 42
FOR I = 1 TO 187 STEP 93
    X0 = I + 84: Y0 = 2: CALL HPlot
    X0 = I + 6: CALL Line
    X0 = I + 45: Y0 = 42: CALL Line
    X0 = I + 84: Y0 = 2: CALL Line
NEXT I
COLR = 85
FOR I = 86 TO 192 STEP 26
    X0 = I: Y0 = 149: CALL HPlot
NEXT I
FOR L = 0 TO 2
    SET(L) = 1
    GOSUB "Lane_Cycle"
    SHAPE = 2
    X0 = L * 93 + 74: Y0 = 3: CALL XDraw
    SHAPE = 5
    X0 = X0 - 67: Y0 = 41: CALL XDraw
    X1 = X0 + 70
    FOR X0 = X1 - L * 3 TO X1 STEP 3
        SHAPE = 6
        CALL XDraw
    NEXT X0
NEXT L
"Get_Name"
CALL Home
CALL ClearText
VTAB 22: INPUT "Hi! What's your name? ",A$
IF A$="" THEN "Get_Name"
I = LEN(A$)
IF I > 20 THEN I = 20
N$ = A$(1,I) : REM Save player's name
"Got_Name"
CALL Home
GOSUB "Lane_Reset"

REM  ****************
REM  * MAIN CONTROL *
REM  ****************
"Main_Loop"
CALL SetSysSpeed : REM Make sure we're running slow
CALL Keyboard
IF Key = 155 OR F > 9 THEN "Game_End_2"
CALL ClearStrobe : REM clear any pending keystrokes
G = 0
IF L # 1 OR RND(SP + ST + SV + 2) THEN "Player_Input"
L = RND(2) * 2
IF OP0 <> PDL(0) / 10 OR OP1 <> PDL(1) / 10 THEN GOSUB "Draw_Settings"
X0 = 133 * L: Y0 = 100: S = -2: X1 = (RND(200) + 150) * (1 - L)
FOR I = 1 TO 1000
    REM nothing!
NEXT I
X3 = 0

REM  BALL MOTION
"Ball_Motion"
SHAPE = 7: ROT = 0: X2 = X0 * 100: CALL XDraw
FOR I = 158 - (58 * (L # 1)) TO 70 STEP S
    CALL XDraw
    IF ABS(X0 - 133) + 33 < I OR L # 1 THEN "L2130"
    G = 1
    X1 = SGN(133 - X0) * 100
    X2 = 13300 - (I - 33) * X1
    X0 = X2 / 100
"L2130"
    X1 = X1 + X3
    X2 = X2 + X1
    X0 = X2 / 100
    Y0 = I
    CALL XDraw
    FOR J = 1 TO 30
        REM delay
    NEXT J
NEXT I
CALL XDraw
GOSUB "Pinfall"
FOR I = 1 TO 600
    REM delay
NEXT I
IF L = 1 THEN GOSUB "Scoring"
GOSUB "Lane_Cycle"
GOTO "Main_Loop"

REM  PLAYER INPUT
"Player_Input"
Call ReadButtons
REM Ensure player releases buttons before continuing
IF Button0 > 127 OR Button1 > 127 THEN "Player_Input"
SHAPE = 2
ROT = 32
L = 1
Z = RND(200) + 200
X0 = XP: Y0 = 156: CALL XDraw
IF OP0 = PDL(0) / 10 AND OP1 = PDL(1) / 10 THEN GOSUB "Draw_Settings"
"No_Pdl_Change"
CALL Keyboard
IF Key = 155 THEN "Game_End"
CALL ClearStrobe : REM clear any pending keystrokes
X1 = 63 - PDL(0) / 2
X3 = 0
IF OP0 <> PDL(0) / 10 OR OP1 <> PDL(1) / 10 THEN GOSUB "Draw_Settings"
S = (255 - PDL(1)) / 86 - 4
X1 = X1 * S
Call ReadButtons
IF Button0 > 127 THEN X3 = -2 * S
IF Button1 > 127 THEN X3 = 2 * S
IF X3 THEN "L2250"
XP = XP + DX
IF XP > 210 THEN DX = -2
IF XP < 75 THEN DX = 2
Z = Z - 1
CALL XDraw
IF NOT Z THEN "Main_Loop"
X0 = XP: CALL XDraw
GOTO "No_Pdl_Change"
"L2250"
CALL XDraw
X0 = X0 - RND(5) - 7
Y0 = 170
GOTO "Ball_Motion"

"Draw_Settings"
S1 = Y0
S2 = X0
S3 = COLR
COLR = 255
Y0 = 159: X0 = 73: CALL HPlot
Y0 = 157: CALL Line
X0 = 231: CALL HPlot
Y0 = 159: CALL Line
X0 = 206: CALL HPlot
Y0 = 157: CALL Line
X0 = 48: CALL HPlot
Y0 = 159: CALL Line
Y0 = 158: COLR = 0: X0 = 49: CALL HPlot
X0 = 72: CALL Line
X0 = 230: CALL HPlot
X0 = 207: CALL Line
X0 = 206: CALL HPlot
COLR = 255
X0 = 206 + (PDL(1) / 10): CALL Line
X0 = 60: CALL HPlot
X0 = 60 + (PDL(0) - 127) / 10: CALL Line
OP0 = PDL(0) / 10
OP1 = PDL(1) / 10
COLR = S3
Y0 = S1
X0 = S2
RETURN

REM *******************
REM *   LANE RESET    *
REM *******************
"Lane_Reset"
Call ClearMixed
CALL Inverse
VTAB 21
FOR I = 1 TO 159
    PRINT " ";
NEXT I
CALL WriteLastSpace
N = N + 1
VTAB 21: TAB 1: PRINT "Game ";
IF N < 10 THEN PRINT "#";
PRINT N;"    Bowler: ";N$
FOR I = 1 TO 10
    PRINT "_";I;"_ ";
NEXT I
CALL SetMixed
FOR I = 1 TO 1000
    REM delay
NEXT I
FOR L = 0 TO 2
    IF SET(L) THEN GOSUB "Lane_Cycle"
NEXT L
XP = 100
DX = 2
RETURN

REM *******************
REM *   END OF GAME   *
REM *******************
"Game_End"
SHAPE = 2
ROT = 32
X0 = XP: Y0 = 156: CALL XDraw
"Game_End_2"
CALL ClearStrobe
CALL Normal
VTAB 24
PRINT
PRINT
"~Try_Again"
INPUT "Another game? ",A$
IF A$ # "" THEN IF A$(1,1)="N" OR A$(1,1)="n" THEN "All_Done"
IF A$(1,1) = "Y" OR A$(1,1) = "y" THEN "Nuther_Game"
Call Bell : VTAB 22 : Call ClearEOS : VTAB 23 : GOTO "~Try_Again"
"Nuther_Game"
PRINT
"~Try_Again_2"
VTAB 21
CALL ClearEOS
PRINT
INPUT "Same bowler? ",A$
IF A$ = "" THEN "~Try_Again_2"
IF A$(1,1) = "Y" OR A$(1,1) = "y" THEN "Same_Bowler"
IF A$(1,1) = "N" OR A$(1,1) = "n" THEN "New_Bowler"
Call Bell : Goto "~Try_Again_2"
"New_Bowler"
VTAB 22
CALL ClearEOS
INPUT "Hi! What's your name? ",A$
IF A$ = "" THEN "New_Bowler"
I = LEN(A$)
IF I > 20 THEN I = 20
N$ = A$(1,I) : REM Save player's name
"Same_Bowler"
E = 0
F = 0
SP = 0
ST = 0
SV = 0
T = 0
ROT = 0
GOSUB "Lane_Reset"
GOTO "Main_Loop"

"All_Done"
SysSpeed = OldSysSpeed : REM Reset the system speed
CALL SetSysSpeed
CALL SetText : REM turn graphics off
CALL ClearHiRes : REM and ensure hi-res switch is turned off
PRINT
VTAB 21
CALL Normal
CALL ClearEOS
VTAB 24: TAB 8: PRINT "Press any key to exit...";
GOSUB "WaitForKey"
CALL CursorOn
END

REM **************
REM * TITLE PAGE *
REM **************
"Title"
TEXT
CALL Home
CALL Inverse
TAB 19: PRINT      "   "
TAB 18: PRINT     "     "
TAB 18: PRINT     "     "
TAB 17: PRINT    "       "
TAB 17: PRINT    "       "
TAB 18: PRINT     "     "
TAB 18: PRINT     "     "
TAB 19: PRINT      "   "
TAB 19: PRINT      "   "
TAB 18: PRINT     "     "
TAB 17: PRINT    "       "
TAB 16: PRINT   "         "
TAB 15: PRINT  " -Welcome- "
TAB 14: PRINT "             "
TAB 14: PRINT " Apple  Bowl "
TAB 14: PRINT "             "
TAB 14: PRINT "$16,384 HiRes"
TAB 14: PRINT "             "
TAB 14: PRINT " Competition "
TAB 14: PRINT "             "
TAB 15: PRINT  " -No Pets- "
TAB 16: PRINT   "         "
TAB 17: PRINT    "       "
CALL Normal
For I = 1 to 35
    For J = 1 to 5000
    Next J
Next I
RETURN

"InitTextScreen"
TEXT80
CALL Normal
CALL Home
RETURN

REM *****************
REM * PINFALL LOGIC *
REM *****************
"Pinfall"
K = L * 13
H = 0
IF G THEN "In_Gutter_2"
X1 = X1 / 100
X3 = X0
Z = 0
FOR Y = 1 TO 4
    X = L * 93 + 4: X3 = X3 + X1
    IF X3 < X THEN X3 = X
    IF X3 > X + 72 THEN X3 = X + 72
    SHAPE = 7
    X0 = X3: Y0 = 70 -Y * 2: CALL XDraw
    G = 0
    FOR X = 1 TO Y
        X2 = (X3 - L * 93 + Y * (7 + L) - X * 16 - 32) / 3
        IF ABS(X2) > 3 THEN "Skip"
        S = 15 - Y * 4 + X
        IF PIN(K + S) # 1 THEN "Skip"
        Z = ((S - (S > 6) - 2 * (S > 9)) * 7 + X2) * 2 : REM calc array offset
        CALL TranslateZ : REM read pinfall table
        I = 0
        IF G THEN "In_Gutter_1"
        G = 1
        CALL XDraw
"In_Gutter_1"
        IF PIN(K + I) = 1 AND Z MOD 2 THEN PIN(K + I) = 0
        Z = Z / 2
        I = I + 1
        IF Z THEN "In_Gutter_1"
        GOSUB "Pin_Action"
        X1 = X1 + X2
        IF Y = 4 THEN Z = 1
"Skip"
    NEXT X
    IF NOT G THEN CALL XDraw
NEXT Y
SHAPE = 1
ROT = 16 + 32 * RND(2)
X0 = L * 93 + ROT + RND(40)
Y0 = 60 + RND(6)
COLR = 127
IF RND(Z+1) THEN CALL Draw
ROT = 0
RETURN
"In_Gutter_2"
FOR I = 1 TO 50
    CALL Click
NEXT I
RETURN

REM  **************
REM  * PIN ACTION *
REM  **************
"Pin_Action"
SHAPE = 1
FOR I = 4 TO 1 STEP -1
    FOR J = 4 TO I STEP -1
        X0 = L * 13 + I * 3 + J - 4
        IF PIN(X0) THEN "Missed_Pin"
        PIN(X0) = -1
        H = H + 1
        X0 = L * 93 - (L - 1) * (4 - I) * 3 - I * 8 + J * 16 + 14
        Y0 = 70 + I * 2 - 13
        COLR = 0
        CALL Draw
        COLR = 127
        Y0 = 60
        X0 = L * 83 + 25
        CALL HPlot
        X0 = X0 + 65
        CALL Line
        CALL Click: CALL Click: CALL Click: CALL Click
"Missed_Pin"
    NEXT J
NEXT I
FOR I = 1 TO 4
    FOR J = I TO 4
        IF PIN(L * 13 + I * 3 + J - 4) < 1 THEN "Missed_Pin_2"
        X0 = L * 93 - (L - 1) * (4 - I) * 3 - I * 8 + J * 16 + 14
        Y0 = 70 + I * 2 - 15
        COLR = 0
        IF I > 1 THEN CALL Draw
        Y0 = Y0 + 2
        COLR = 127
        CALL Draw
"Missed_Pin_2"
    NEXT J
NEXT I
RETURN

REM  **************
REM  * LANE CYCLE *
REM  **************
"Lane_Cycle"
SET(L) = NOT SET(L)
FOR I = 45 TO 69
    Z = L * 93 + 2
    X0 = Z
    Y0 = I
    CALL HPlot
    X0 = Z + 90 - (L = 2)
    COLR = 127
    CALL Line
    Y0 = Y0 - 4
    IF Y0 > 44 THEN CALL HPlot
    X0 = Z
    COLR = 213
    IF Y0 > 44 THEN CALL Line
NEXT I
SHAPE = 4
X0 = L * 93 + 46
Y0 = 12
IF SET(L) THEN CALL XDraw

REM  PIN SWEEPER
GOSUB "Pin_Spotter"
X = L * 93 + 2
Y = X + 90 - (L = 2)
J = 0
FOR I = 69 TO 45 STEP -1
    X0 = X: Y0 = I: CALL HPlot
    X0 = Y: COLR = 0: CALL Line
    Y0 = Y0 - 4
    IF Y0 > 44 THEN CALL HPlot
    X0 = X
    COLR = 127
    IF Y0 > 44 THEN CALL Line
    IF I > 59 THEN J = J+1
    X0 = X + (2 - L) * J - 2
    Y0 = I: CALL HPlot
    X0 = Y - L * J + 1
    IF I = 60 THEN CALL Line
    CALL HPlot
NEXT I

REM  PIN SETTER
SHAPE = 1
FOR I = 1 TO 4
    FOR J = I TO 4
        K = L * 13 + I * 3 + J - 4
        IF NOT SET(L) THEN PIN(K) = 1
        IF PIN(K) < 1 THEN "Skip_Setup"
        X0 = L * 93 - (L - 1) * (4 - I) * 3 - I * 8 + J * 16 + 14
        Y0 = 55 + I * 2
        IF I < 2 THEN "Skip_Draw"
        COLR = 0: CALL Draw
"Skip_Draw"
        Y0 = Y0 + 2
        COLR = 127
        CALL Draw
"Skip_Setup"
    NEXT J
NEXT I
SHAPE = 2
Y0 = 3
X0 = L * 93 + 10
CALL XDraw
X0 = X0 + 64: CALL XDraw
FOR I = 1 TO 500
    REM delay
NEXT I
IF H = 10 AND SET(L) THEN "Lane_Cycle"
RETURN

REM  ***************
REM  * PIN SPOTTER *
REM  ***************
"Pin_Spotter"
SHAPE = 3
H = 10
FOR I = 1 TO 4
    FOR J = I TO 4
        K = L * 13 + I * 3 + J - 4
        COLR = 127 * (SET(L) AND PIN(K) = 1)
        IF PIN(K) = 1 THEN H = H - 1
        X0 = L * 93 - I * 8 + J * 16 + 14
        Y0 = I * 8
        CALL Draw
    NEXT J
NEXT I
IF H < 10 AND SET(L) THEN "Short_Pause"
COLR = SET(L) * 127
X0 = X0 - 4: Y0 = 15: CALL HPlot
X0 = X0 + 8: Y0 = Y0 - 8: CALL Line
X0 = X0 - 8: Y0 = Y0 + 8: CALL Line
X0 = X0 + 8: CALL HPlot
X0 = X0 - 8: Y0 = Y0 - 8: CALL Line
X0 = X0 + 8: Y0 = Y0 + 8: CALL Line
"Short_Pause"
FOR I = 1 TO 200
    REM delay
NEXT I
SHAPE = 4
X0 = L * 93 + 46: Y0 = 12
IF NOT SET(L) THEN CALL XDraw
RETURN

REM  ***********
REM  * SCORING *
REM  ***********
"Scoring"
T = T + H
IF NOT ST AND NOT SP THEN "No_Extras"
GOSUB "L1780"
T = T + H
IF NOT SP THEN T = T + H1
"No_Extras"
SP = 0
ST = SV
SV = 0
IF NOT SET(L) THEN "L1750"
VTAB 23
TAB E-2
PRINT ":";
IF H + H1 < 10 THEN "No_Spare"
PRINT "/";
SP = 1
IF E = 40 THEN E = 42
GOTO "Score_Done"
"No_Spare"
IF H THEN PRINT H;
IF NOT H THEN PRINT "-";
GOSUB "L1780"
GOTO "Score_Done"
"L1750"
E = E + 1 + 3 * (E < 40)
VTAB 23
TAB E - 3
IF H < 10 THEN "L1760"
IF E < 40 THEN PRINT "<X>"
IF E > 39 THEN PRINT "X";
SV = 1
GOTO "Score_Done"
"L1760"
IF H THEN PRINT H;
IF NOT H THEN PRINT "-";
"Score_Done"
H1 = H
RETURN

"L1780"
F = F + 1
IF F > 10 THEN RETURN
VTAB 24
TAB F * 4 - 3 + (T < 10)
PRINT T;
RETURN

"WaitForKey"
Call ClearStrobe
"~loop"
Call Keyboard
IF Key < 128 then "~loop"
Call ClearStrobe
Return
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Apple.Bowl/Bowl.r b/IIGS.601.SRC/A.U.G/Apple.Bowl/Bowl.r
new file mode 100644
index 0000000..043a53a
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Apple.Bowl/Bowl.r
@@ -0,0 +1 @@
+#include "TypesIIGS.r"

resource rVersion (1) {
	{ 2,0,0,development,1 },
	verUS,
	"Apple Bowl IIGS",
	"Copyright (c) 1991, Apple Computer, Inc."
};

resource rIcon (1) {
	0,						// icon type = monochrome
	16,						// height of icon
	16,						// width of icon
	$"FFFFFFFFFFFFFFFF"
	$"FFC00FFFFFFC00FF"
	$"FF0FC0FFFFF0FC0F"
	$"FC0FF0FFFFC0FF0F"
	$"FF0FC0FFFFF0FC0F"
	$"FFC00FFFFFFC00FF"
	$"FFC00FFFFFFC00FF"
	$"FC0FC0C000C0FC0F"
	$"F0FFC000000FFFC0"
	$"C0FF00000000FFF0"
	$"C0FF00000000FFF0"
	$"C0FF00000000FFF0"
	$"F0FFC000000FFFC0"
	$"FC0FC0000000FC0F"
	$"FFC00FC000FC00FF"
	$"FFFFFFFFFFFFFFFF",
	
	$"00FFF000000FFF00"
	$"0FFFFF0000FFFFF0"
	$"0FFFFF0000FFFFFF"
	$"0FFFFF0000FFFFFF"
	$"00FFFF00000FFFF0"
	$"00FFF000000FFFF0"
	$"0FFFFFFFFFFFFF00"
	$"FFFFFFFFFFFFFFF0"
	$"FFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFF"
	$"0FFFFFFFFFFFFFFF"
	$"00FFFFFFFFFFFFF0"
	$"000FF0FFFF0FFF00"
};

resource rBundle(1) {
	1,			// rIcon id #
	1,			// rBundle id #
	{ }			// document array (no documents supported)
};
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Apple.Bowl/BowlBin.aii b/IIGS.601.SRC/A.U.G/Apple.Bowl/BowlBin.aii
new file mode 100644
index 0000000..203adfc
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Apple.Bowl/BowlBin.aii
@@ -0,0 +1 @@
+;
; ReadButtons -	Read game control buttons and place the	values into variables
;
ReadButtons	PROC	EXPORT
		IMPORT	Button0, Button1

		lda	>$E0C061		;read game control buttons ($C061 & $C062)
		sep	#$20
		sta	>Button0		;store so the values can be read by BASIC
		xba
		sta	>Button1
		rep	#$20
		rtl
		ENDP

;
; ClearHiRes - sets lores display mode
;
ClearHiRes	PROC	EXPORT
		sep	#$20
		sta	>$E0C056
		rep	#$20
		rtl
		ENDP

;
; SetHiRes - sets hires	display	mode (POKE -16297,0)
;
SetHiRes	PROC	EXPORT
		sep	#$20
		sta	>$E0C057
		rep	#$20
		rtl
		ENDP

;
; ClearText - turns off	text mode (graphics on)
;
ClearText	PROC	EXPORT
		sep	#$20
		sta	>$E0C050
		rep	#$20
		rtl
		ENDP

;
; SetText - accesses soft switch to turn text display on
;
SetText		PROC	EXPORT
		sep	#$20
		lda	>$E0C051
		rep	#$20
		rtl
		ENDP
;
; ClearMixed - turns off mixed mode
;
ClearMixed	PROC	EXPORT
		sep	#$20
		sta	>$E0C052
		rep	#$20
		rtl
		ENDP

;
; SetMixed - turns on mixed mode
;
SetMixed	PROC	EXPORT
		sep	#$20
		sta	>$E0C053
		rep	#$20
		rtl
		ENDP

;
; CursorOff - sends Ctrl-F to output device to turn cursor off
;
CursorOff	PROC	EXPORT
		IMPORT	~ChOut

		lda	#$0006
		bra	do_write

;
; CursorOn - Sends Ctrl-E to output device to turn cursor on
;
		EXPORT	CursorOn
CursorOn
		lda	#$0005
do_write
		jsr	~ChOut			; use library routine
		rtl
		ENDP

;
; WriteLastSpace - stores a space character in the lower right corner of the screen
;
WriteLastSpace	PROC	EXPORT
		sep	#$20
		longa	off
		lda	#' '
		sta	>$0007F7
		rep	#$20
		longa	on
		rtl
		ENDP

;
; GetSysSpeed -	retrieves current system speed and stores into BASIC variable
;
GetSysSpeed	PROC	EXPORT
		IMPORT	SysSpeed

		sep	#$20
		longa	off
		lda	>$E0C036		;read CYA register
		asl	a			;shift speed bit into carry
		rep	#$20			;back to 16-bit	mode
		longa	on
		lda	#0			;clear accumulator
		rol	a			;shift carry into bit 0	of accumulator
		sta	>SysSpeed		;store into BASIC variable
		rtl
		ENDP

;
; SetSysSpeed -	resets current system speed
;
SetSysSpeed	PROC	EXPORT
		Import	SysSpeed

		sep	#$20			;8-bit mode
		longa	off
		lda	>$E0C036		;read the CYA register
		asl	a			;shift speed bit off
		xba				;hide in high byte
		lda	>SysSpeed		;read the BASIC	variable
		lsr	a			;shift bit into	carry
		xba				;retrieve CYA settings
		ror	a			;rotate	speed bit in
		sta	>$E0C036		;store back into CYA register
		rep	#$20
		longa	on
		rtl
		ENDP

;
; SetMousePosition - initializes mouse values
; Note:	assumes	mouse max clamp	= 255
;
SetMousePosition PROC	EXPORT
		pea	128			;set to	midpoint of range
		pea	128
		ldx	#$1E03			;PosMouse
		jsl	$E10000
		rtl
		ENDP

TranslateZ	PROC	EXPORT
		IMPORT	Z, PinTable

		lda	Z			;get value of Basic's Z variable
		clc
		adc	#4			;calculate correct offset
		tax
		lda	PinTable,x		;get the value there
		sta	Z			;store back into Basic's variable
		rtl
		ENDP

ShapeTbl	RECORD	Export
		DC.W	$0007			;# of shapes in	table
		DC.W	PinImage-ShapeTbl	;Offset	to Shape_1
		DC.W	Arrow-ShapeTbl		;Offset	to Shape_2
		DC.W	Dot-ShapeTbl		;Offset	to Shape_3
		DC.W	Logo-ShapeTbl		;Offset	to Shape_4
		DC.W	Apple-ShapeTbl		;Offset	to Shape_5
		DC.W	I_Image-ShapeTbl	;Offset	to Shape_6
		DC.W	Ball-ShapeTbl		;Offset	to Shape_7

PinImage	DC.B	$92,$3A,$27,$27,$3C,$24,$24,$25	;shape 1
		DC.B	$2C,$24,$25,$24,$3C,$24,$25,$2D
		DC.B	$2E,$36,$37,$36,$2E,$36,$35,$2E
		DC.B	$36,$36,$37,$3E,$3E,$3C,$27,$27
		DC.B	$3C,$24,$25,$2C,$24,$25,$24,$24
		DC.B	$24,$17,$0D,$16,$92,$32,$2E,$36
		DC.B	$35,$3E,$36,$3F,$3C,$24,$67,$64
		DC.B	$B4,$35,$2E,$17,$E6,$24,$04,$00

Arrow		DC.B	$35,$35,$35,$35,$0C,$2C,$2C,$2C	;shape 2
		DC.B	$1F,$3F,$3F,$15,$35,$0C,$04,$00

Dot		DC.B	$27,$2D,$36,$3F,$27,$64,$2D,$15	;shape 3
		DC.B	$36,$1E,$3F,$04,$00

Logo		DC.B	$0C,$0D,$0D,$15,$F6,$17,$36,$0E	;shape 4
		DC.B	$15,$F6,$1E,$1F,$DC,$9F,$1F,$1C
		DC.B	$1C,$E4,$24,$24,$64,$0C,$0D,$0D
		DC.B	$0C,$64,$0C,$4C,$36,$1E,$17,$07
		DC.B	$00

Apple		DC.B	$E7,$1C,$64,$0C,$2D,$35,$36,$36	;shape 5
		DC.B	$4D,$12,$24,$24,$24,$2C,$2D,$15
		DC.B	$15,$F6,$1E,$6F,$49,$91,$24,$24
		DC.B	$24,$2C,$2D,$15,$15,$F6,$1E,$6F
		DC.B	$49,$21,$24,$24,$24,$96,$52,$49
		DC.B	$09,$0C,$0C,$3C,$3F,$17,$17,$76
		DC.B	$0E,$2D,$2D,$00

I_Image		DC.B	$6D,$FD,$24,$24,$24,$3C,$6F,$29	;shape 6
		DC.B	$05,$00

Ball		DC.B	$35,$35,$2D,$2E,$2D,$2D,$2C,$25	;shape 7
		DC.B	$25,$25,$3F,$3E,$3E,$37,$27,$37
		DC.B	$27,$3F,$3C,$3C,$27,$2D,$35,$35
		DC.B	$25,$35,$25,$35,$25,$25,$3F,$3F
		DC.B	$3F,$3C,$3F,$67,$2D,$2D,$2E,$24
		DC.B	$35,$2E,$24,$35,$2E,$35,$2D,$3C
		DC.B	$3C,$27,$E5,$3B,$3F,$37,$3F,$67
		DC.B	$31,$00
		ENDR

PinTable	Record
		DC.B	$0F,$00
		DC.B	$03,$00
		DC.B	$01,$00
z_base		DC.B	$01,$00
		DC.B	$01,$00
		DC.B	$01,$00
		DC.B	$01,$00
		DC.B	$0E,$00
		DC.B	$06,$00
		DC.B	$02,$00
		DC.B	$02,$00
		DC.B	$02,$00
		DC.B	$02,$00
		DC.B	$03,$00
		DC.B	$0C,$00
		DC.B	$04,$00
		DC.B	$04,$00
		DC.B	$04,$00
		DC.B	$04,$00
		DC.B	$06,$00
		DC.B	$07,$00
		DC.B	$08,$00
		DC.B	$08,$00
		DC.B	$08,$00
		DC.B	$08,$00
		DC.B	$08,$00
		DC.B	$0C,$00
		DC.B	$0F,$00
		DC.B	$38,$00
		DC.B	$16,$00
		DC.B	$12,$00
		DC.B	$10,$00
		DC.B	$11,$00
		DC.B	$11,$00
		DC.B	$10,$00
		DC.B	$60,$00
		DC.B	$2C,$00
		DC.B	$24,$00
		DC.B	$20,$00
		DC.B	$22,$00
		DC.B	$23,$00
		DC.B	$30,$00
		DC.B	$40,$00
		DC.B	$48,$00
		DC.B	$48,$00
		DC.B	$40,$00
		DC.B	$44,$00
		DC.B	$46,$00
		DC.B	$61,$00
		DC.B	$00,$03
		DC.B	$68,$01
		DC.B	$24,$01
		DC.B	$02,$01
		DC.B	$11,$01
		DC.B	$10,$01
		DC.B	$00,$01
		DC.B	$00,$02
		DC.B	$40,$02
		DC.B	$48,$02
		DC.B	$04,$02
		DC.B	$22,$02
		DC.B	$31,$02
		DC.B	$00,$03
		DC.B	$00,$10
		DC.B	$00,$12
		DC.B	$48,$12
		DC.B	$26,$10
		DC.B	$11,$11
		DC.B	$00,$11
		DC.B	$00,$10
		ENDR
		END


\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Apple.Bowl/Compiler/Basic.p b/IIGS.601.SRC/A.U.G/Apple.Bowl/Compiler/Basic.p
new file mode 100644
index 0000000..fa91c74
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Apple.Bowl/Compiler/Basic.p
@@ -0,0 +1 @@
+{---------------------------------------------------------------}
{																}
{  BASIC 1.0													}
{																}
{  A native code integer BASIC compiler for the Apple IIGS. 	}
{																}
{  By Mike Westerfield											}
{																}
{  Copyright 1991												}
{  By the Byte Works, Inc.										}
{																}
{---------------------------------------------------------------}

PROGRAM BASIC_Compiler(output);

USES Types, BASICCom, Scanner, Parser;

BEGIN {BASIC_Compiler}
	InitCommon;									{initialize the globals area}
	InitScanner;								{initialize the scanner}
	InitParser;									{initialize the parser}

	Compile;									{compile the program}

	ShutDownScanner;							{shut down the scanner}
END. {BASIC_Compiler}
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Apple.Bowl/Compiler/BasicCom.p b/IIGS.601.SRC/A.U.G/Apple.Bowl/Compiler/BasicCom.p
new file mode 100644
index 0000000..298a6d8
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Apple.Bowl/Compiler/BasicCom.p
@@ -0,0 +1 @@
+{---------------------------------------------------------------}
{																}
{  BASIC Common 												}
{																}
{  This module contains global variables, constants, types, 	}
{  and subroutines used throughout the compiler.				}
{																}
{  Copyright 1991												}
{  By the Byte Works, Inc.										}
{																}
{---------------------------------------------------------------}
{																}
{  Global subroutines:											}
{																}
{  InitCommon - Initialize the globals area 					}
{																}
{---------------------------------------------------------------}

UNIT BASICCom;

INTERFACE

	USES
		CursorCtl,
		Types;
	
	CONST
		nameLength		=	100;				{max length of a variable name}
		stringLength	=	255;				{max length of a string constant}
	
		m_adc_abs		=	$6D;				{machine code instructions}
		m_adc_imm		=	$69;
		m_adc_s			=	$63;
		m_and_imm		=	$29;
		m_and_s			=	$23;
		m_asl			=	$0A;
		m_beq			=	$F0;
		m_bge			=	$B0;
		m_bmi			=	$30;
		m_bne			=	$D0;
		m_bpl			=	$10;
		m_clc			=	$18;
		m_cop			=	$02;
		m_dec_a			=	$3A;
		m_dec_abs		=	$CE;
		m_eor_imm		=	$49;
		m_inc_a			=	$1A;
		m_inc_abs		=	$EE;
		m_lda_imm		=	$A9;
		m_ora_s			=	$03;
		m_jml			=	$5C;
		m_jmp			=	$4C;
		m_jsl			=	$22;
		m_jsr			=	$20;
		m_lda_abs		=	$AD;
		m_lda_absx		=	$BD;
		m_lda_indl		=	$A7;
		m_lda_dir		=	$A5;
		m_ldx_abs		=	$AE;
		m_ldx_dir		=	$A6;
		m_sbc_dir		=	$E5;
		m_sta_abs		=	$8D;
		m_sta_absx		=	$9D;
		m_sta_dir		=	$85;
		m_sta_longx		=	$9F;
		m_sta_s			=	$83;
		m_pea			=	$F4;
		m_pha			=	$48;
		m_pla			=	$68;
		m_plx			=	$FA;
		m_ply			=	$7A;
		m_rep			=	$C2;
		m_rts			=	$60;
		m_sec			=	$38;
		m_sep			=	$E2;
		m_tax			=	$AA;
	
		d_bgn			=	$0101;
		d_end			=	$0102;
		d_lab			=	$0103;
		d_str			=	$0104;
		d_lnm			=	$0105;
		d_brk			=	$0106;
		d_ago			=	$0107;
		d_sub			=	$0108;
		d_exi			=	$0109;
		d_fil			=	$010A;
	
	TYPE
		bytePtr = ^byte;							{pointer to a single byte}
		long = RECORD								{used to convert longint to integer}
				CASE boolean OF
					true:
						(l: longint);
					false:
						(lsw, msw: integer);
				END;
	
		{tokens}
		{------}
		nameType = string[nameLength];				{symbol name}
		namePtr = ^nameType;						{symbol name pointer}
		stringType = string[stringLength];			{string constant}
	
		tokens = (eofsy, eolnsy,					{special symbols}
		{constants and identifiers}
				  ident, intconst, stringconst,
		{operators}
				  colon, comma, semicolon, lparen, rparen, eq, lt, gt, le, ge, ne, plus, minus, mult, divd, exp,
		{reserved words}
				  abssy, andsy, ascsy, atsy, callsy, colorsy, dimsy, endsy, forsy, gosubsy, gotosy, grsy, hgrsy, hlinsy, ifsy,
				  inputsy, lensy, letsy, modsy, nextsy, notsy, orsy, pdlsy, plotsy, popsy, printsy, remsy, returnsy, rndsy, scrnsy,
				  sgnsy, stepsy, tabsy, textsy, text80sy, thensy, tosy, vlinsy, vtabsy);
		tokenset = SET OF tokens; {set of tokens}
	
		tokenType = RECORD							{information about a token}
					CASE kind: tokens OF
						ident:			(name: nameType);
						intconst:		(ival: integer);
						stringconst:	(str: stringType);
						eofsy, eolnsy, colon, comma, semicolon,
						lparen, rparen, eq, lt, gt, le, ge, ne,
						plus, minus, mult, divd, exp, abssy,
						andsy, ascsy, atsy, callsy, colorsy,
						dimsy, endsy, forsy, gosubsy, gotosy,
						grsy, hgrsy, hlinsy, ifsy, inputsy, lensy,
						letsy, modsy, nextsy, notsy, orsy, pdlsy,
						plotsy, popsy, printsy, remsy, returnsy,
						rndsy, scrnsy, sgnsy, stepsy, tabsy,
						textsy, text80sy, thensy, tosy,
						vlinsy, vtabsy:	()
					END;
	
		{symbols}
		{-------}
		expressionTypes = (int, str);				{types of expressions}
	
		symbolPtr = ^symbolType;					{pointer to a symbol table entry}
		symbolType = RECORD							{symbol table entry}
						 left, right: symbolPtr;	{tree links}
						 name: nameType;			{symbol name}
						 kind: expressionTypes;		{type of the symbol}
						 size: integer;				{array size (1 if not an array)}
						 newSymbol: boolean;		{was this symbol just created?}
					 END;
	
	VAR
		{command line flags}
		{------------------}
		keep: boolean;								{keep the output file?}
		listSource: boolean;						{create a source listing?}
		listSymbols: boolean;						{list symbols and code?}
		quiet: boolean;								{show progress info?}
		showOffsets: boolean;						{show object code offsets}
	
		{error tracking and reporting}
		{----------------------------}
		msg: string;								{terminal error message}
		maxErrorLevel: integer;						{max error level}
		numErrors: integer;							{number of errors found}
	
		{scanner}
		{-------}
		keepFile: stringType;						{output file name}
		lineNumber: integer;						{current line number}
		token: tokenType;							{current token}
		sourceFile: stringType;						{input file name}
		lineType: (step, breakpoint, autogo);		{debugger step type for the line}
	
		{symbols}
		{-------}
		symbolTable: symbolPtr;						{symbols in the program}

		{return codes}
		{------------}
		retCode: 	(RC_Normal, RC_ParmErrs, RC_DontMatch, RC_Abort); {Return codes}
		interrupted: Boolean; 						{ True ==> interrupted (Cmd "." pressed)}
		progName:	String;							{ Program's file name}
		
		{miscellaneous}
		{-------------}
		objBuf: Handle;								{object code buffer}
		segNum: integer;							{segment #}

	{---------------------------------------------------------------}
	
	PROCEDURE InitCommon;
	
	{ Initialize the globals area									}
	
	FUNCTION cnvis(num : integer) : StringPtr;
	
	{ Convert integer to string									}

{---------------------------------------------------------------}

IMPLEMENTATION

	var
		strbuf : String[6];

	PROCEDURE InitCommon;
	
	{ Initialize the globals area								}
	
	BEGIN {InitCommon}
		symbolTable := NIL;						{no entries in the symbol table}
		segNum := 0;							{gets incremented prior to use}
		InitCursorCtl(NIL);
	END; {InitCommon}

	FUNCTION cnvis {(num : integer) : StringPtr} ;
	
	VAR
		i : integer;
		temp : integer;
		neg : boolean;
		
	BEGIN
		FOR i := 1 TO 6 DO
			strbuf[i] := ' ';
		strbuf[0] := chr(6);
		if num < 0 then begin
			neg := true;
			num := -num;
		end
		else
			neg := false;
		
		i := 6;								{ character position }
		WHILE (num <> 0) AND (i <> 0) DO BEGIN
			temp := num MOD 10;
			num := num DIV 10;
			strbuf[i] := chr(ord('0') + temp);
			i := i - 1;
		END; {while}
		if neg then
			strbuf[i] := '-';
		cnvis := @strbuf;
	END; {cnvis}

END.
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Apple.Bowl/Compiler/BasicLib.aii b/IIGS.601.SRC/A.U.G/Apple.Bowl/Compiler/BasicLib.aii
new file mode 100644
index 0000000..e84586a
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Apple.Bowl/Compiler/BasicLib.aii
@@ -0,0 +1 @@
+****************************************************************
*
*  BASICLib - Run-time library for the integer BASIC compiler.
*
*  by Mike Westerfield
*  May 1990
*
*  Copyright 1990
*  Byte Works, Inc.
*
****************************************************************
*
*  Libraries 1.0.1, November 1991, Mike Westerfield
*
*  1.  ~InputStr now pushes the length of the string on the
*      stack, rather than 0.
*
****************************************************************
*
		INCLUDE	'basiclib.macros'

****************************************************************
*
*  BasicCommon - common data area
*
****************************************************************
*
BasicCommon	RECORD
;
;  Common variables for line input
;
cnt		DS.B	2			;chars left in line (see ~Input, ~EndInput)
disp		DS.B	2			;disp in line
inputLine	dc.b	255			;input line
		dc.b	0
		ds.b	255
		DC.W	0			;buffer for null terminating the line
;
;  Common variables for text output
;
ch		DS.B	2			;output column number
chMask		DS.B	2			;40 column screen mask (for inverse)
col80		DC.W	1			;1 -> 80 column output; 0 -> 40 column ouput
color		DS.B	2			;lowres graphics color
column		DS.B	2			;column number; tracked by output routines
cv		DS.B	2			;output line number
screenSize	DC.W	81			;screen width + 1
top		DS.B	2			;top line of text display

lineDisp	DC.W	$400,$480,$500,$580,$600,$680,$700,$780
		DC.W	$428,$4A8,$528,$5A8,$628,$6A8,$728,$7A8
		DC.W	$450,$4D0,$550,$5D0,$650,$6D0,$750,$7D0
;
;  Misc global variables
;
QDHandle	DS.B	4			;handle for QD memory
userID		DS.B	2			;memory manager user ID
		ENDR

****************************************************************
*
*  Clear - Clear the 40 column text screen
*
*  Inputs:
*	top - top line to clear
*	A - value to store in screen space
*
****************************************************************
*
~Clear		PROC
		with	BasicCommon

		phb				;use local addressing
		phk
		plb

		sta	screen			;save the screen value
		lda	top			;get the initial index into lineDisp
		asl	A
		sta	index
lb1		ldx	index			;branch if at end of screen
		cpx	#48
		bge	lb3
		lda	lineDisp,X		;get line address
		inx				;update index
		inx
		stx	index
		tax				;set initial line index
		ldy	#20			;we will store 20 words
		lda	screen			;get the value to store
lb2		sta	>0,X			;fill the line
		inx
		inx
		dey
		bne	lb2
		bra	lb1			;next line

lb3		plb
		rts

index		DS.B	2			;index into lineDisp
screen		DS.B	2			;screen value
		ENDP

****************************************************************
*
*  Write40 - write a character to the 40 column screen
*
*  Inputs:
*	A - character to write
*
****************************************************************
*
~Write40	PROC
		with	BasicCommon
;
;  Check for special characters
;
		and	#$007F
		cmp	#30
		jge	wr1

		cmp	#7			;Bell
		bne	sp1
		_SysBeep
		rts

sp1		cmp	#10			;linefeed
		bne	sp2
Newline		inc	cv
		lda	cv
		cmp	#24
		blt	sp1a
		lda	#23
		sta	cv
		jsr	Scroll
sp1a		rts

sp2		cmp	#11			;clear to end of screen
		bne	sp3
		jsr	ClearEOL
		ph2	top
		lda	cv
		inc	cv
		cmp	#24
		bge	sp2a
		sta	top
		lda	#$A0A0
		jsr	~Clear
sp2a		pla
		sta	top
		rts

sp3		cmp	#12			;home
		bne	sp4
		stz	ch
		lda	top
		sta	cv
		lda	#$A0A0
		jsr	~Clear
		rts

sp4		cmp	#13			;move to column 0
		bne	sp5
Return		stz	ch
		rts

sp5		cmp	#14			;normal
		bne	sp6
		lda	#$00FF
		sta	chMask
		rts

sp6		cmp	#15			;inverse
		bne	sp7
		lda	#$7F
		sta	chMask
		rts

sp7		cmp	#8			;move left
		bne	sp8
		dec	ch
		bpl	sp7a
		inc	ch
sp7a		rts

sp8		cmp	#29			;clear to end of line
		bne	sp9
ClearEOL	ldy	ch
		lda	cv
		asl	A
		tax
		lda	lineDisp,X
		adc	ch
		tax
		shortm
		lda	#$A0
sp8a		cpy	#40
		bge	sp8b
		sta	>0,X
		inx
		iny
		bra	sp8a
sp8b		longm
		rts

sp9		cmp	#28			;move forward
		bne	wr1
Forward		inc	ch			;update ch
		lda	ch			;if ch = 40 then
		cmp	#40
		blt	sp9a
		jsr	Return			;new line
		jsr	Newline
sp9a		rts
;
;  Do a normal character write
;
wr1		pha				;save the character
		lda	cv			;write to the 40 column screen
		asl	A			;get the character address
		tax
		lda	lineDisp,X
		adc	ch
		tax
		pla				;convert to screen character
		shortm
		ora	#$80
		and	chMask
		cmp	#'@'
		blt	wr2
		cmp	#'_'+1
		bge	wr2
		and	#$3F
wr2		sta	>0,X			;write the character
		longm
		jsr	Forward			;update ch
		rts
;
;  Scroll subroutine
;
Scroll		lda	top			;line = top
		sta	line
sc1		lda	line			;while line < 23 do
		cmp	#23
		bge	sc3
		asl	A			;get line disps
		tax
		lda	lineDisp+2,X
		tay
		lda	lineDisp,X
		tax
		lda	#20			;move one line of characters
		sta	loop
		phb
		pea	0
		plb
		plb
sc2		lda	|0,Y
		sta	|0,X
		inx
		inx
		iny
		iny
		lda	>loop
		dec	A
		sta	>loop
		bne	sc2
		plb
		inc	line			;++line
		bra	sc1			;endwhile
sc3		ldx	lineDisp+23*2		;clear the bottom line
		lda	#$A0A0
		ldy	#20
sc4		sta	>0,X
		inx
		inx
		dey
		bne	sc4
		rts

line		DS.B	2			;line number
loop		DS.B	2			;column loop counter
		ENDP

****************************************************************
*
*  BASICStartup - set up the run-time environment
*
****************************************************************
*
~BASICStartup	PROC	Export
		with	BasicCommon

		phk				;establish local bank addressing
		plb
		sta	userID			;save the user ID
		stz	cnt			;start with no input line
		pha				;if event manager not started then
		_EMStatus			;{indicates prizm is not active}
		pla
		bne	lb1
		pea	0			;initialize the mouse for ~Pdl
		_InitMouse
		pea	0			;min X mouse clamp
		pea	255			;max X mouse clamp
		pea	0			;min Y mouse clamp
		pea	255			;max Y mouse clamp
		_ClampMouse			;set the mouse clamping to emulate paddles
lb1		rtl
		ENDP

****************************************************************
*
*  BASICShutdown - shut down the run-time environment
*
****************************************************************
*
~BASICShutdown	PROC	Export
		EXPORT	~End
~End
		with	BasicCommon
		Import	~Text80

		jsl	~Text80			;make sure quickdraw, 40 col text is off
		lda	#0			;return to the launcher
		Quit	qtRec

qtRec		DC.L	qtFlags			;addr of next prog to launch
qtFlags		DC.W	0			;flags; doubles as null string
		ENDP

****************************************************************
*
*  AssignString - assign a string
*
*  Parameters:
*	from - address of the string to assign
*	num - number of characters to assign; 0 for all
*	to - address of the string to assign to
*
****************************************************************
*
~AssignString	PROC	Export
		with	BasicCommon

		subroutine (4:from,2:len,4:to),0

		sep	#$20
		longa	off
		ldy	#0
lb1		lda	[from],y		;while [addr]^ <> 0 do begin
		sta	[to],y			;[to]^ := [from]^
		beq	lb2
		iny				;advance to the next character
		dec	len			;loop
		bne	lb1
lb2		rep	#$20
		longa	on
		return
		ENDP

****************************************************************
*
*  ~ChOut - write a character
*
*  Inputs:
*	A - character to write
*
****************************************************************
*
~ChOut		PROC	Export
		with	BasicCommon

		phb				;use local addressing
		phk
		plb

		ldx	col80			;split based on screen type
		beq	lb1

		pha				;write using the text tools
		_WriteChar
		plb
		rts

lb1		jsr	~Write40		;write to the 40 column screen
		plb
		rts
		ENDP

****************************************************************
*
*  Bell - beep the bell
*
****************************************************************
*
Bell		PROC	Export

		lda	#7
		jsr	~ChOut
		rtl
		ENDP

****************************************************************
*
*  ClearEOL - Clear to the end of the line
*
****************************************************************
*
ClearEOL	PROC	Export

		lda	#29
		jsr	~ChOut
		rtl
		ENDP

****************************************************************
*
*  ClearEOS - Clear to the end of the screen
*
****************************************************************
*
ClearEOS	PROC	Export

		lda	#11
		jsr	~ChOut
		rtl
		ENDP

****************************************************************
*
*  ClearStrobe - clear the keyboard strobe
*
****************************************************************
*
ClearStrobe	PROC	Export

		shortm
		sta	>$C010
		longm
		rtl
		ENDP

****************************************************************
*
*  Click - click the speaker
*
****************************************************************
*
Click		PROC	Export

		shortm				;click the speaker
		lda	>$C030
		longm	
		ldx	#175			;simulate an integer BASIC delay
lb1		dex
		bne	lb1
		rtl
		ENDP

****************************************************************
*
*  CMP_EQ - compare two values for equality
*
*  Inputs:
*	stack - first operand
*	A - second operand
*
*  Outputs:
*	A - result
*
****************************************************************
*
~CMP_EQ		PROC	Export

		cmp	4,S
		beq	true
		lda	#0
		bra	lb1
true		lda	#1
lb1		phb
		plx
		ply
		plb
		plb
		phy
		phx
		plb
		rtl
		ENDP

****************************************************************
*
*  CMP_GE - see if the first value is greater than or equal to the second
*
*  Inputs:
*	stack - first operand
*	A - second operand
*
*  Outputs:
*	A - result
*
****************************************************************
*
~CMP_GE		PROC	Export

		ldx	#1
		sec
		sbc	4,S
		beq	true
		bvs	lb1
		eor	#$8000
lb1		bpl	true
		dex
true		phb
		pla
		ply
		plb
		plb
		phy
		pha
		plb
		txa
		rtl
		ENDP

****************************************************************
*
*  CMP_GT - see if the first value is greater than the second
*
*  Inputs:
*	stack - first operand
*	A - second operand
*
*  Outputs:
*	A - result
*
****************************************************************
*
~CMP_GT		PROC	Export

		ldx	#1
		sec
		sbc	4,S
		beq	false
		bvs	lb1
		eor	#$8000
lb1		bpl	true
false		dex
true		phb
		pla
		ply
		plb
		plb
		phy
		pha
		plb
		txa
		rtl
		ENDP

****************************************************************
*
*  CMP_LE - see if the first value is less than or equal to the second
*
*  Inputs:
*	stack - first operand
*	A - second operand
*
*  Outputs:
*	A - result
*
****************************************************************
*
~CMP_LE		PROC	Export

		ldx	#1
		sec
		sbc	4,S
		beq	true
		bvs	lb1
		eor	#$8000
lb1		bmi	true
		dex
true		phb
		pla
		ply
		plb
		plb
		phy
		pha
		plb
		txa
		rtl
		ENDP

****************************************************************
*
*  CMP_LT - see if the first value is less than the second
*
*  Inputs:
*	stack - first operand
*	A - second operand
*
*  Outputs:
*	A - result
*
****************************************************************
*
~CMP_LT		PROC	Export

		ldx	#1
		sec
		sbc	4,S
		beq	false
		bvs	lb1
		eor	#$8000
lb1		bmi	true
false		dex
true		phb
		pla
		ply
		plb
		plb
		phy
		pha
		plb
		txa
		rtl
		ENDP

****************************************************************
*
*  CMP_NE - compare two values for inequality
*
*  Inputs:
*	stack - first operand
*	A - second operand
*
*  Outputs:
*	A - result
*
****************************************************************
*
~CMP_NE		PROC	Export

		cmp	4,S
		bne	true
		lda	#0
		bra	lb1
true		lda	#1
lb1		phb
		plx
		ply
		plb
		plb
		phy
		phx
		plb
		rtl
		ENDP

****************************************************************
*
*  CMP_STR_EQ - compare two strings for equality
*
*  Inputs:
*	str1 - first string
*	len1 - length of first string
*	str2 - second string
*	len2 - length of second string
*
*  Outputs:
*	A - 1 if the strings are equal, else 0
*
****************************************************************
*
~CMP_STR_EQ	PROC	Export
result		equ	0			;result
ch		equ	2			;temp character

		subroutine (4:str1,2:len1,4:str2,2:len2),4

		stz	result			;assume we will fail
lb1		lda	[str1]			;check for a mismatch
		and	#$00FF
		sta	ch
		lda	[str2]
		and	#$00FF
		cmp	ch
		bne	lb4
		tax				;done if at end of the strings
		beq	lb3
		inc	str1			;next characters
		inc	str2
		dec	len1			;check for a forced end of string
		beq	lb2
		dec	len2
		bne	lb1

		lda	[str1]			;handle a zero length check for str2
		and	#$00FF
		beq	lb3
		bra	lb4

lb2		dec	len2			;handle a zero length check for str1
		beq	lb3
		lda	[str2]
		and	#$00FF
		bne	lb4

lb3		inc	result			;the strings are equal
lb4						; branch here if the strings are not equal

		return	2:result
		ENDP

****************************************************************
*
*  CMP_STR_NE - compare two strings for inequality
*
*  Inputs:
*	str1 - first string
*	len1 - length of first string
*	str2 - second string
*	len2 - length of second string
*
*  Outputs:
*	A - 1 if the strings are not equal, else 0
*
****************************************************************
*
~CMP_STR_NE	PROC	Export

		phb
		phk
		plb
		pla
		sta	Str
		pla
		sta	Str+2
		jsl	~CMP_STR_EQ
		ldx	Str+2
		phx
		ldx	Str
		phx
		plb
		eor	#1
		rtl

Str		DS.B	4
		ENDP

****************************************************************
*
*  Color - set the pen color
*
*  Inputs:
*	A - color
*
****************************************************************
*
~Color		PROC	Export
		with	BasicCommon

		phb
		phk
		plb
		and	#$000F
		sta	color
		ldx	col80
		beq	lb1
		pha
		_SetSolidPenPat
lb1		plb
		rtl
		ENDP

****************************************************************
*
*  CursorLeft - move the cursor left
*
****************************************************************
*
CursorLeft	PROC	Export

		lda	#8
		jsr	~ChOut
		rtl
		ENDP

****************************************************************
*
*  Divd - division
*
*  Inputs:
*	X - 1st operand
*	A - 2nd operand
*
*  Outputs:
*	A - result
*
****************************************************************
*
~Divd		PROC	Export

		pha
		pha
		phx
		pha
		_SDivide
		pla
		plx
		rtl
		ENDP

****************************************************************
*
*  ~EndInput - dump anything remaining in the input line
*
*  Outputs:
*	cnt - set to 0
*
****************************************************************
*
~EndInput	PROC	Export
		with	BasicCommon

		lda	#0
		sta	>cnt
		rtl
		ENDP

****************************************************************
*
*  Exp - exponentiation
*
*  Inputs:
*	X - 1st operand
*	A - 2nd operand
*
*  Outputs:
*	A - result
*
****************************************************************
*
~Exp		PROC	Export

		phb				;use local addressing
		phk
		plb
		stx	op			;save the argument
		sta	cnt			;save the exponent
		lda	#1			;initialize the result
		sta	val

		lda	cnt			;check for negative exponents
		bpl	lb1
		lda	op
		cmp	#1
		beq	lb3
		stz	val
		bra	lb3

lb1		beq	lb3			;allow for 0 exponent

lb2		pha				;do the operation
		pha
		lda	val
		pha
		lda	op
		pha
		_Multiply
		pla
		sta	val
		pla
		dec	cnt
		bne	lb2

lb3		lda	val			;return the result
		plb				;restore the caller's bank
		rtl

val		DS.B	2			;result
op		DS.B	2			;argument
cnt		DS.B	2			;exponent (also a loop counter)
		ENDP

****************************************************************
*
*  GR - start the low-res graphics screen
*
****************************************************************
*
~GR		PROC	Export
		with	BasicCommon

		phb				;use local addressing
		phk
		plb
		shortmx				;set screen to 40 column, mixed text
		stz	col80			;and graphics
		sta	>$C050
		sta	>$C053
		sta	>$C054
		sta	>$C056
		sta	>$C00C
		longmx
		stz	top			;clear the screen
		lda	#0
		jsr	~Clear
		lda	#20			;set the top text line to 20
		sta	top
		sta	cv			;home the cursor
		stz	ch
		lda	#$A0A0			;clear the text part of the screen
		jsr	~Clear
		lda	#15			;pen color starts as white
		sta	color
		lda	#$00FF			;set the screen mask
		sta	chMask
		plb
		rtl
		ENDP

****************************************************************
*
*  GROff - turn off 40 column text/graphics
*
****************************************************************
*
~GROff		PROC
		with	BasicCommon

		phb				;use local addressing
		phk
		plb
		lda	col80			;skip if not in use
		bne	lb1
		shortmx				;set screen to 80 column text
		lda	#1
		sta	col80
		sta	>$C051
		sta	>$C052
		sta	>$C00D
		longmx
		ph2	#12			;clear the 80 col screen
		_WriteChar
lb1		plb
		rts
		ENDP

****************************************************************
*
*  HGR - start the super high-res graphics screen
*
****************************************************************
*
~HGR		PROC	Export
		with	BasicCommon

		jsr	~GROff			;turn off 40 col text/graphics
		lda	QDHandle		;skip if already started
		ora	QDHandle+2
		bne	lb1
		pha				;get memory for QD
		pha
		ph4	#256*3
		ph2	userID
		ph2	#$C015
		ph4	#0
		_NewHandle
		pla
		plx
		sta	QDHandle
		stx	QDHandle+2
		sta	0
		stx	2
		lda	[0]			;start quickdraw
		pha
		ph2	#0
		ph2	#0
		ph2	userID
		_QDStartUp
lb1		rtl
		ENDP

****************************************************************
*
*  Plot - plot a point
*
*  Inputs:
*	X - x coordinate
*	A - y coordinate
*
****************************************************************
*
~Plot		PROC	Export
		with	BasicCommon

		phb				;use local addressing
		phk
		plb
		ldy	col80			;branch if using 40 column mode
		beq	lb1

		phx				;draw a point using QuickDraw
		pha
		phx
		pha
		_MoveTo
		_LineTo
		plb
		rtl

lb1		cpx	#40			;skip if off screen
		bge	lb3
		cmp	#40
		bge	lb3
		lsr	A			;convert to row + top/bottom flag
		php				;save top/bottom flag
		asl	A			;add column to row address
		tay
		txa
		clc
		adc	lineDisp,Y
		tax
		lda	color			;get the color nibble and mask
		ldy	#$F0
		plp
		shortm	
		bcc	lb2
		ldy	#$0F
		asl	A
		asl	A
		asl	A
		asl	A
lb2		pha				;paint the point
		tya
		and	>0,X
		ora	1,S
		sta	>0,X
		pla
		longm	
lb3		plb
		rtl
		ENDP

****************************************************************
*
*  HLin - draw a horizontal line
*
*  Inputs:
*	X - h1
*	Y - h2
*	A - v
*
****************************************************************
*
~HLin		PROC	Export
		with	BasicCommon

		phb				;use local addressing
		phk
		plb
		stx	h1			;save the coordinates
		sty	h2
		sta	v

		lda	col80			;split based on screen type
		beq	lb0

		lda	v			;call QuickDraw
		phx
		pha
		phy
		pha
		_MoveTo
		_LineTo
		plb
		rtl

lb0		cpy	h1			;make sure h1 <= h2
		bge	lb1
		sty	h1
		stx	h2
lb1		ldx	h1			;plot the line
lb2		lda	v
		jsl	~Plot
		inc	h1
		ldx	h1
		cpx	h2
		ble	lb2
		plb				;return
		rtl

h1		DS.B	2			;first horizontal point
h2		DS.B	2			;second horizontal point
v		DS.B	2			;vertical location
		ENDP

****************************************************************
*
*  Home - clear the screen and home the cursor
*
****************************************************************
*
Home		PROC	Export

		lda	#12
		jsr	~ChOut
		rtl
		ENDP

****************************************************************
*
*  IntAbs - absolute value
*
*  Inputs:
*	A - number
*
*  Outputs:
*	A - result
*
****************************************************************
*
~IntAbs		PROC	Export

		tax
		bpl	lb1
		eor	#$FFFF
		inc	A
lb1		rtl
		ENDP

****************************************************************
*
*  IntSgn - sgn function
*
*  Inputs:
*	A - number
*
*  Outputs:
*	A - result
*
****************************************************************
*
~IntSgn		PROC	Export

		tax
		beq	lb1
		bpl	lb2
		lda	#-1
		bra	lb1
lb2		lda	#1
lb1		rtl
		ENDP

****************************************************************
*
*  Mult - multiply
*
*  Inputs:
*	X - 1st operand
*	A - 2nd operand
*
*  Outputs:
*	A - result
*
****************************************************************
*
~Mult		PROC	Export

		pha
		pha
		phx
		pha
		_Multiply
		pla
		plx
		rtl
		ENDP

****************************************************************
*
*  PrintString - print a string
*
*  Parameters:
*	addr - address of the string
*	len - # chars to write; 0 for write to end of string
*
****************************************************************
*
~PrintString	PROC	Export
		with	BasicCommon

		subroutine (4:addr,2:len),0

		phb
		phk
		plb
lb1		lda	[addr]			;while [addr]^ <> 0 do begin
		and	#$00FF
		beq	lb2
		jsr	~ChOut			;write the char
		inc	column			;++column
		inc4	addr			;advance to the next character
		dec	len			;loop
		bne	lb1
lb2		plb
		return
		ENDP

****************************************************************
*
*  Prompt - print the input prompt
*
****************************************************************
*
~Prompt		PROC	Export

		lda	#'?'
		jsr	~ChOut
		rtl
		ENDP

****************************************************************
*
*  ReadKey - read a key using the cursor
*
*  Outputs:
*	A - key read
*
*  Uses:
*	X - contains screen address of cursor position
*	Y - timer loop variable for flashing cursor
*
****************************************************************
*
~ReadKey	PROC
		with	BasicCommon
time		equ	$5000			;changes flash rate

		lda	cv			;find the character address
		asl	A
		tax
		lda	lineDisp,X
		adc	ch
		tax				;get the initial character
		shortm
		lda	>0,X
		pha				;save on stack for restoration

lb1		ldy	#time			;set the timer
		lda	>0,X			;invert the character on screen
		cmp	#$20
		bge	lb3
		ora	#$40
lb3		eor	#$80
		cmp	#'@'
		blt	lb4
		cmp	#'_'+1
		bge	lb4
		and	#$3F
lb4		sta	>0,X

lb2		lda	>$C000			;check for a keystroke
		bmi	lb5			;got one!
		dey				;decrement timer
		bne	lb2			;loop until time
		bra	lb1			; to re-invert character

lb5		pla				;reset the screen character
		sta	>0,X
		lda	>$C000			;get the character
		sta	>$C010
		longm
		and	#$00FF
		rts

		ENDP

****************************************************************
*
*  ReadLine - read a line
*
*  Outputs:
*	inputLine - line read
*
*  Notes: Assumes local bank
*
****************************************************************
*
~ReadLine	PROC
		with	BasicCommon

		lda	col80			;if 40 column display then
		beq	lb1			; use private routine
		pha				;else use texttools
		ph4	#inputLine+2
		ph2	inputLine		;maximum line length
		pea	13			;EOL character (carriage return)
		pea	1			;echo characters
		ldx	#$240C			;ReadLine call
		jsl	$E10000
		pla				;retrieve actual count
		shortm
		sta	inputLine+1		;null terminate the line
		longm
		rts				;return
;
;  40 Column input routine
;
lb1		shortmx				;fill in the line with spaces
		ldx	inputLine
		lda	#' '
lb2		sta	inputLine+1,X
		dex
		bne	lb2
		stz	inputLine+1
		longmx
lb3		jsr	~ReadKey		;get a keypress
		and	#$007F
		cmp	#$007F			;delete?
		beq	@do_backspace		;yes
		cmp	#8			;if key is <-- then
		bne	lb4
@do_backspace
		lda	inputLine+1		;if no characters typed then
		and	#$00FF
		beq	lb3			;loop
		dec	inputLine+1		;erase the character
		jsl	CursorLeft		;back up on the screen
		bra	lb3			;loop
lb4		shortx				;if max characters typed then
		ldx	inputLine+1
		cpx	inputLine
		longx
		beq	lb3			;loop
		cmp	#$15			;Ctrl-U (right arrow)
		bne	lb5
		lda	inputLine+1		;write the buffer character
		and	#$00FF
		tax
		lda	inputLine+2,X
		and	#$00FF
		jsr	~ChOut
		inc	inputLine+1		;next spot
		bra	lb3			;loop
lb5		cmp	#13			;if key is RETURN then
		bne	lb6
		jsr	~ChOut			;write to screen
		lda	#10
		jsr	~ChOut
		rts				;we're done
lb6		shortmx				;place character in buffer
		ldx	inputLine+1
		sta	inputLine+2,X
		inc	inputLine+1
		longmx
		jsr	~ChOut			;write char to screen
		bra	lb3			;loop
		ENDP

****************************************************************
*
*  Input - read a number
*
*  Outputs:
*	A - number read
*
****************************************************************
*
~Input		PROC	Export
		with	BasicCommon

TAB		equ	$09			;tab key code

		phb				;use local bank addressing
		phk
		plb
lb1		lda	cnt			;while cnt = 0 do
		bne	lb2
		jsr	~ReadLine		;read a line
		lda	inputLine+1		;cnt = length(line)
		and	#$00FF
		sta	cnt
		lda	#2			;disp = 2
		sta	disp
		bra	lb1
lb2		ldx	disp			;skip whitespace and commas
		lda	inputLine,X
		and	#$00FF
		cmp	#' '
		beq	lb3
		cmp	#','
		beq	lb3
		cmp	#TAB
		bne	lb4
lb3		inc	disp
		dec	cnt
		bne	lb2
		jsl	~Prompt
		bra	lb1
lb4		stz	neg			;neg = false
		cmp	#'-'			;if char is '-' then
		bne	lb4a
		inc	neg			;neg = true
		inc	disp			;next char
		dec	cnt
		bra	lb5
lb4a		jsr	IsDigit			;else if char is not a digit then
		bcs	lb5
		pea	error>>16		;flag the error
		pea	error
		pea	0
		jsl	~PrintString
		jsl	~Prompt
		stz	cnt			;get a new line
		bra	lb1
lb5		stz	value			;convert digits to a value
lb6		ldx	disp
		lda	inputLine,X
		and	#$00FF
		jsr	IsDigit
		bcc	lb7
		and	#$000F
		pha
		lda	value
		ldx	#10
		jsl	~Mult
		clc
		adc	1,S
		plx
		sta	value
		inc	disp
		dec	cnt
		bne	lb6
lb7		lda	neg			;if neg then
		beq	lb8
		lda	#0			;value = -value
		sec
		sbc	value
		sta	value
lb8		lda	value			;return the result
		plb
		rtl
;
;  IsDigit - see if a character is a digit
;
IsDigit		cmp	#'0'
		blt	no
		cmp	#'9'+1
		bge	no
		sec
		rts

no		clc
		rts
;
;  Local data
;
error		DC.B	'Retype line.'		;error message
		DC.B	0
neg		DS.B	2			;was the value negative?
value		DS.B	2			;value read from line
		ENDP

****************************************************************
*
*  InputStr - read a string
*
*  Outputs:
*        address of string, len pushed on stack (for AssignString)
*
****************************************************************
*
~InputStr	PROC	Export
		with	BasicCommon

		phb				;use local bank addressing
		phk
		plb
lb1		lda	cnt			;if cnt = 0 then
		bne	lb2
		jsr	~ReadLine		;read a line
		lda	inputLine+1		;cnt = length(line)
		and	#$00FF
		sta	cnt
		lda	#2			;disp = 2
		sta	disp
lb2		lda	inputLine+1		;null terminate the line
		and	#$00FF
		tax
		stz	inputLine+2,X
		plx				;place string address on stack
		ply
		pea	inputLine>>16
		clc
		lda	#inputLine
		adc	disp
		pha
		lda	cnt			;place string len on stack
		pha
		stz	cnt			;set cnt to 0 (indicating no string left)
		phy
		phx
		plb
		rtl
		ENDP

****************************************************************
*
*  Inverse - write inverse characters
*
****************************************************************
*
Inverse		PROC	Export

		lda	#15
		jsr	~ChOut
		rtl
		ENDP

****************************************************************
*
*  KeyBoard - read the keyboard
*
*  Outputs:
*	Stores the rsult in KEY, which should be defined in
*	the Integer BASIC program.
*
****************************************************************
*
KeyBoard	PROC	Export
		IMPORT	Key

		shortm
		lda	>$C000
		longm
		and	#$00FF
		sta	>Key
		rtl
		ENDP

****************************************************************
*
*  Logical - convert an integer to a 0 or 1
*
*  Inputs:
*	A - integer to convert
*
*  Outputs:
*	A - 0 if the input was 0, 1 otherwise
*
****************************************************************
*
~Logical	PROC	Export

		tax
		beq	lb1
		lda	#1
lb1		rtl
		ENDP

****************************************************************
*
*  Mod - modulus
*
*  Inputs:
*	X - 1st operand
*	A - 2nd operand
*
*  Outputs:
*	A - result
*
****************************************************************
*
~Mod		PROC	Export

		pha
		pha
		phx
		pha
		_SDivide
		plx
		pla
		rtl
		ENDP

****************************************************************
*
*  Normal - write normal characters
*
****************************************************************
*
Normal		PROC	Export

		lda	#14
		jsr	~ChOut
		rtl
		ENDP

****************************************************************
*
*  PartialString - convert partial string indecies
*
*  Converts a string address and two indecies into the address
*  of the first indexed character and the number of chacters
*  refered to.
*
*  Inputs:
*	addr - string address
*	ind1 - 1st index
*	ind2 - 2nd index
*
*  Outputs:
*	addr - string address
*	ind1 - length of string elements
*
****************************************************************
*
~PartialString	PROC	Export
addr		equ	8			;string address
ind1		equ	6			;1st index
ind2		equ	4			;2nd index

		clc				;update the address
		lda	ind1,S
		adc	addr,S
		dec	A
		sta	addr,S
		sec				;set the length
		lda	ind2,S
		sbc	ind1,S
		inc	A
		sta	ind1,S
		lda	2,S			;return to caller
		sta	4,S
		pla
		sta	1,S
		rtl
		ENDP

****************************************************************
*
*  Pdl - read the mouse (replaces the old paddle)
*
*  Inputs:
*	A - read what:
*		0 - horizontal position
*		1 - vertical position
*		2 - button up?
*		otherwise - status/mode word (see ReadMouse)
*
*  Outputs:
*	Mouse position, button, or status
*
****************************************************************
*
~Pdl		PROC	Export

		pha				;save the input
		pha				;read the mouse
		pha
		pha
		_ReadMouse
		lda	7,S			;if input = 0 then
		bne	lb1
		pla				;return X
		pla
		pla
		plx
		rtl

lb1		dec	A			;if input = 1 then
		bne	lb2
		pla				;return Y
		pla
		plx
		plx
		rtl

lb2		dec	A			;if input = 2 then
		bne	lb3
		pla				;return mouse button state
		rol	A
		lda	#0
		rol	A
		plx
		plx
		plx
		rtl

lb3		pla				;return mouse status
		plx
		plx
		plx
		rtl
		ENDP

****************************************************************
*
*  PrintEOL - print an end of line
*
****************************************************************
*
~PrintEOL	PROC	Export
		with	BasicCommon

		lda	#10
		jsr	~ChOut
		lda	#13
		jsr	~ChOut
		lda	#0
		sta	>column
		rtl
		ENDP

****************************************************************
*
*  PrintInt - print an integer
*
****************************************************************
*
~PrintInt	PROC	Export
		with	BasicCommon

str_len		equ	6
		phb				;use local addressing
		phk
		plb
		pha				;convert the int to a string
		pea	str>>16
		pea	str
		ph2	#str_len
		pea	1
		_Int2Dec
		ldx	#-1			;skip leading spaces
lb1		inx
		lda	str,X
		and	#$00FF
		cmp	#' '
		beq	lb1
lb2		cpx	#str_len		;print the characters
		beq	lb3
		lda	str,X
		and	#$00FF
		phx
		jsr	~ChOut
		plx
		inx
		inc	column
		bra	lb2
lb3		plb
		rtl

str		DS.B	str_len			;string work area
		ENDP

****************************************************************
*
*  PrintTAB - print a tab
*
****************************************************************
*
~PrintTAB	PROC	Export
		with	BasicCommon
tabSize		equ	15			;size of a tab field

		phb				;use local addressing
		phk
		plb
		lda	column			;while column > 0 do
lb1		sec				;column -= tabSize
		sbc	#tabSize
		bpl	lb1
		clc
		sta	loop			;save the loop counter
lb2		lda	#' '			;repeat
		jsr	~ChOut			;print(' ')
		inc	column			;++column
		inc	loop			;++loop
		bne	lb2			;until loop=0
		plb				;restore the caller's bank
		rtl

loop		DS.B	2			;loop counter
		ENDP

****************************************************************
*
*  QDOff - turn off quickdraw (if it is on)
*
****************************************************************
*
~QDOff		PROC
		with	BasicCommon

		lda	QDHandle		;skip if not started
		ora	QDHandle+2
		beq	lb1
		_QDShutDown			;shut down QD
		stz	QDHandle
		stz	QDHandle+2
lb1		rts
		ENDP

****************************************************************
*
*  Rnd - return a random number
*
*  Inputs:
*	A - return a value below this one
*
*  Outputs:
*	A - random number
*
****************************************************************
*
~Rnd		PROC	Export

		phb				;use local addressing
		phk
		plb

		pha				;save the limit
		lda	seed			;if no seed has been obtained, get one
		ora	seed+2
		bne	lb1
		pha
		pha
		pha
		pha
		_ReadTimeHex
		pla
		sta	seed
		pla
		sta	seed+2
		pla
		pla
lb1		sec				;do the randomness thing, using the
		tsc				;formula
		sbc	#16			;seed = (seed*31415821+1) mod 100000000
		tcs
		lda	seed+2
		pha
		lda	seed
		pha
		pea	31415821>>16
		pea	31415821**$FFFF
		_LongMul
		clc
		pla
		adc	#1
		sta	3,S
		pla
		adc	#0
		sta	3,S
		pea	100000000>>16
		pea	100000000**$FFFF
		_LongDivide
		pla
		pla
		pla
		sta	seed
		pla
		sta	seed+2			;get a random value
		lda	seed+2
		and	#$7FFF			;make it positive
		tax				;restrict the range
		pla
		plb
		jml	~Mod

seed		DC.L	0
		ENDP

****************************************************************
*
*  Scrn - read a point
*
*  Inputs:
*	X - x coordinate
*	A - Y coordinate
*
****************************************************************
*
~Scrn		PROC	Export
		with	BasicCommon

		phb				;use local addressing
		phk
		plb
		ldy	col80			;branch if using 40 column mode
		beq	lb1

		pha				;read a point using QuickDraw
		phx
		pha
		_GetPixel
		pla
		plb
		rtl

lb1		cpx	#40			;skip if off screen
		bge	lb4
		cmp	#40
		bge	lb4
		lsr	A			;convert to row + top/bottom flag
		php				;save top/bottom flag
		asl	A			;add column to row address
		tay
		txa
		clc
		adc	lineDisp,Y
		tax
		lda	#$000F			;get the color mask
		plp
		php
		bcc	lb2
		lda	#$00F0
lb2		and	>0,X			;read the point
		plp				;if needed, shift the point
		bcc	lb3
		lsr	A
		lsr	A
		lsr	A
		lsr	A
lb3		and	#$000F
lb4		plb
		rtl
		ENDP

****************************************************************
*
*  StringLength - find the length of a string
*
*  Parameters:
*	addr - address of the string
*	len - max # of characters; 0 for the entire string
*
****************************************************************
*
~StringLength	PROC	Export
		with	BasicCommon
val		equ	0			;return value

		subroutine (4:addr,2:len),2

		stz	val			;val = 0
lb1		lda	[addr]			;while [addr]^ <> 0 do begin
		and	#$00FF
		beq	lb2
		inc	val			;++val
		inc	addr			;advance to the next character
		bne	@1
		inc	addr+2
@1
		dec	len			;loop
		bne	lb1
lb2		return	2:val			;return the string length
		ENDP

****************************************************************
*
*  Tab - Move to an absolute column number
*
*  Inputs:
*	A - column to move to
*
****************************************************************
*
~Tab		PROC	Export
		with	BasicCommon

		phb				;use local addressing
		phk
		plb
		tax				;quit if range exceeded
		beq	lb3
		cmp	screenSize
		bge	lb3
		sta	tabval			;save the tab value
		sta	column
		lda	#13			;start in column 1
		jsr	~ChOut
lb2		dec	tabval			;move right tabval-1 columns
		beq	lb3
		lda	#28
		jsr	~ChOut
		bra	lb2
lb3		plb				;return
		rtl

tabval		DS.B	2			;tab value
		ENDP

****************************************************************
*
*  Text - switch to 40 column text mode
*
****************************************************************
*
~Text		PROC	Export
		with	BasicCommon

		phb				;use local addressing
		phk
		plb
		shortmx				;set screen to 40 column text
		stz	col80
		sta	>$C051
		sta	>$C054
		sta	>$C00C
		longmx
		stz	top			;clear the screen
		lda	#$A0A0
		jsr	~Clear
		stz	cv			;home the cursor
		stz	ch
		stz	column
		lda	#$00FF			;set the screen mask
		sta	chMask
		lda	#41			;set the screen size
		sta	screenSize
		plb
		rtl
		ENDP

****************************************************************
*
*  Text80 - switch to 80 column text mode
*
****************************************************************
*
~Text80		PROC	Export
		with	BasicCommon

		jsr	~QDOff			;turn off quickdraw
		jsr	~GROff			;turn off 40 col text/graphics
		lda	#81			;set the screen size
		sta	screenSize
		rtl
		ENDP

****************************************************************
*
*  VLin - draw a vertical line
*
*  Inputs:
*	X - v1
*	Y - v2
*	A - h
*
****************************************************************
*
~VLin		PROC	Export
		with	BasicCommon

		phb				;use local addressing
		phk
		plb
		stx	v1			;save the coordinates
		sty	v2
		sta	h

		lda	col80			;split based on screen type
		beq	lb0

		lda	h			;call QuickDraw
		pha
		phx
		pha
		phy
		_MoveTo
		_LineTo
		plb
		rtl

lb0		cpy	v1			;make sure h1 <= h2
		bge	lb1
		sty	v1
		stx	v2
lb1		lda	v1			;plot the line
lb2		ldx	h
		jsl	~Plot
		inc	v1
		lda	v1
		cmp	v2
		ble	lb2
		plb				;return
		rtl

v1		DS.B	2			;first vertical point
v2		DS.B	2			;second vertical point
h		DS.B	2			;horizontal location
		ENDP

****************************************************************
*
*  VTab - Move to an absolute line number
*
*  Inputs:
*	A - line to move to
*
****************************************************************
*
~VTab		PROC	Export
		with	BasicCommon

		phb				;use local addressing
		phk
		plb
		tax				;quit if range exceeded
		beq	lb3
		cmp	#25
		bge	lb3

		ldx	col80			;if 40 column screen then
		bne	lb0
		dec	a			;convert 1-24 to 0-23
		sta	cv			;move to the line
		plb
		rtl

lb0		sta	tabval			;save the tab value
		lda	#24			;start on line 1
		sta	loop
lb1		pea	31
		_WriteChar
		dec	loop
		bne	lb1
lb2		dec	tabval			;move down tabval-1 lines
		beq	lb3
		pea	10
		_WriteChar
		bra	lb2
lb3		plb				;return
		rtl

tabval		DS.B	2			;tab value
loop		DS.B	2			;loop counter
		ENDP

		END


\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Apple.Bowl/Compiler/BasicLib.macros b/IIGS.601.SRC/A.U.G/Apple.Bowl/Compiler/BasicLib.macros
new file mode 100644
index 0000000..337f005
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Apple.Bowl/Compiler/BasicLib.macros
@@ -0,0 +1 @@
+****************************************************************************************************
		MACRO
		inc4  &a1
		inc		&a1
		bne		@a
		inc		&a1+2
@a 
		MEND
****************************************************************************************************
	MACRO
	PH2 &addr,&reg
	IF &addr[1:1]='#' AND &SETTING('LONGA')='ON' THEN
		pea		|&addr[2:255]
	ELSE
		IF &addr­'' THEN
			IF &reg­'' THEN 
				lda		&addr,&reg
			ELSE
				lda		&addr
			ENDIF
		ENDIF
		pha
	ENDIF
	MEND
****************************************************************************************************
	MACRO
	PH4 &addr,&offset
	IF &addr[1:1]='#' THEN
		pea		&addr[2:255]>>16
		pea		|&addr[2:255]
	ELSEIF &addr[1:1]='[' THEN
		ldy		#&offset+2
		ph2 &addr,y
		ldy		#&offset
		ph2 &addr,y
	ELSEIF &offset='s' THEN
		ph2 &addr+2,s
		ph2 &addr+2,s
	ELSEIF &offset='' THEN
		ph2  &addr+2
		ph2  &addr
	ELSE
		ph2 &addr+2,&offset
		ph2 &addr,&offset
	ENDIF
	MEND
****************************************************************************************************
	MACRO
	SUB2   &a1,&a2,&a3
	IF &a1­'' THEN
		lda		&a1
	ENDIF
		sec
		sbc		&a2
	IF &a3­'' THEN
		sta		&a3
	ENDIF
	MEND

****************************************************************************************************
	MACRO
	PL4 &addr1,&addr2
	IF &addr1='' THEN
	IF &addr2­'' THEN 
		AERROR 'Illegal 2nd parameter'
	ENDIF
		PL2
		PL2
	ELSEIF &addr2='' THEN
		PL2  &addr1
		PL2  &addr1+2
	ELSEIF &addr1[1:1]='[' THEN
		ldy   #&addr2
		PL2  &addr1,y
		ldy   #&addr2+2
		PL2  &addr1,y
	ELSE
		PL2  &addr1
		sta   &addr2
		PL2  &addr1+2
		sta   &addr2+2
	ENDIF
	MEND
****************************************************************************************************
		MACRO
		BLE	&BP
		BLT	&BP
		BEQ	&BP
		MEND

****************************************************************************************************
	MACRO
	longm
		rep		#%00100000
		longa	on
	MEND

	MACRO
	longx
		rep		#%00010000
		longi	on
	MEND

	MACRO
	longmx
		rep		#%00110000
		longa	on
		longi	on
	MEND

****************************************************************************************************
	MACRO
	shortmx
		sep		#%00110000
		longa	off
		longi	off
	MEND

	MACRO
	shortm
		sep		#%00100000
		longa	off
	MEND

	MACRO
	shortx
		sep		#%00010000
		longi	off
	MEND

****************************************************************************************************
		MACRO
		JGE	&BP
		BLT	@1
		BRL	&BP
@1
		MEND

****************************************************************************************************
	MACRO
	PL2 &addr,&reg
		pla
	IF &addr­'' THEN
		IF &reg­'' THEN
			sta		&addr,&reg
		ELSE
			sta		&addr
		ENDIF
	ELSEIF &reg­'' THEN 
		AERROR 'Illegal 2nd parameter'
	ENDIF
	MEND
****************************************************************************************************
		MACRO
		_SYSBEEP
		LDX	#$2C03
		JSL	$E10000
		MEND

		MACRO
		_ClampMouse
		ldx	#$1C03
		jsl	$E10000
		MEND

		MACRO
		_WRITECHAR
		LDX	#$180C
		JSL	$E10000
		MEND

		MACRO
		QUIT	&DCB
		JSL	$E100A8
		DC.w	$29
		DC.l	&DCB
		MEND

		MACRO
		_INT2DEC
		LDX	#$260B
		JSL	$E10000
		MEND

		MACRO
		_Multiply
		ldx	#$090B
		jsl	$E10000
		MEND

		MACRO
		_SDivide
		ldx	#$0A0B
		jsl	$E10000
		MEND

		MACRO
		_NewHandle
		ldx	#$0902
		jsl	$E10000
		MEND

		MACRO
		_QDStartUp
		ldx	#$0204
		jsl	$E10000
		MEND

		MACRO
		_QDShutDown
		ldx	#$0304
		jsl	$E10000
		MEND

		MACRO
		_LineTo
		ldx	#$3C04
		jsl	$E10000
		MEND

		MACRO
		_MoveTo
		ldx	#$3A04
		jsl	$E10000
		MEND

		MACRO
		_SetSolidPenPat
		ldx	#$3704
		jsl	$E10000
		MEND

		MACRO
		_ReadMouse
		ldx	#$1703
		jsl	$E10000
		MEND

		MACRO
		_GetPixel
		ldx	#$8804
		jsl	$E10000
		MEND

		MACRO
		_EMStatus
		ldx	#$0606
		jsl	$E10000
		MEND

		MACRO
		_InitMouse
		ldx	#$1803
		jsl	$E10000
		MEND

		MACRO
		_LONGDIVIDE
		LDX	#$0D0B
		JSL	$E10000
		MEND

		MACRO
		_LONGMUL
		LDX	#$0C0B
		JSL	$E10000
		MEND

		MACRO
		_READTIMEHEX
		LDX	#$0D03
		JSL	$E10000
		MEND

****************************************************************************************************
		macro
		subroutine &parms,&work

		lclc	&macWork
&macWork	setc	&work
		IF &work­'' GOTO .a
&macWork	setc	'0'
.a
		gbla	&totallen
		gbla	&worklen
&worklen	seta	&s2i(&macWork)
&totallen	seta	0
		IF	&parms='' GOTO .e
		lclc	&length
		lclc	&p
		lcla	&i
&i		seta	&NBR(&parms)
.b
&p		setc	&parms[&i]
&length		setc	&SubStr(&p,2,1)
		IF	&length=':' GOTO .c
&length		setc	&SubStr(&p,1,2)
&p		setc	&SubStr(&p,4,&len(&p)-3)
		GOTO .d

.c
&length		setc	&SubStr(&p,1,1)
&p		setc	&SubStr(&p,3,&len(&p)-2)
.d
&p		equ	&totallen+3+&macWork
&totallen	seta	&totallen+&s2i(&length)
&i		seta	&i-1
		IF	&i GOTO .b
.e
		tsc
		sec
		sbc	#&macWork
		tcs
		inc	a
		phd
		tcd
		mend

****************************************************************************************************
		macro
		return	&r
		gbla	&totallen
		gbla	&worklen

		lclc	&length
		lclc	&rr
&rr		setc	&r
		IF	&r­'' GOTO .a
&rr		setc	'0'
&length		setc	'0'
		GOTO .h

.a
&length		setc	&SubStr(&rr,2,1)
		IF	&length=':' GOTO .b
&length		setc	&SubStr(&rr,1,2)
&rr		setc	&SubStr(&rr,4,&len(&rr)-3)
		GOTO .c

.b
&length		setc	&SubStr(&rr,1,1)
&rr		setc	&SubStr(&rr,3,&len(&rr)-2)
.c
		IF	&s2i(&length)<>2 GOTO .d
		ldy	&rr
		GOTO .h

.d
		IF	&s2i(&length)<>4 GOTO .e
		ldx	&rr+2
		ldy	&rr
		GOTO .h

.e
		IF	&s2i(&length)<>10 GOTO .g
		ldy	#&rr
		ldx	#^&rr
		GOTO .h

.g
		aerror	'Not a valid return length'
		mexit
.h
		IF	&totallen=0 GOTO .i
		lda	&worklen+1
		sta	&worklen+&totallen+1
		lda	&worklen
		sta	&worklen+&totallen
.i
		pld
		tsc
		clc
		adc	#&worklen+&totallen
		tcs
		IF	&s2i(&length)=0 GOTO .j
		tya
.j
		rtl
		mend

****************************************************************************************************
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Apple.Bowl/Compiler/CodeGen.p b/IIGS.601.SRC/A.U.G/Apple.Bowl/Compiler/CodeGen.p
new file mode 100644
index 0000000..3c36dfc
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Apple.Bowl/Compiler/CodeGen.p
@@ -0,0 +1 @@
+{---------------------------------------------------------------}
{																}
{  Code Generator												}
{																}
{  The code generator creates the obj file, writing the 		}
{  approproate machine code instructions based on the			}
{  intermediate code calls from the parser. 					}
{																}
{  Copyright 1991												}
{  By the Byte Works, Inc.										}
{																}
{---------------------------------------------------------------}
{																}
{  Global subroutines:											}
{																}
{  Gen0 - Generate an implied operand instruction				}
{  Gen0Name - Generate an instruction with a named label		}
{  Gen0NameShift - Generate an instruction with a named label,	}
{		shifted by 16 bits										}
{  Gen0Label - Generate an instruction with a numbered label	}
{  Gen0Relative - Generate an instruction with an offset to a	}
{		numbered label											}
{  Gen0String - Generate an instruction with a string constant	}
{		operand 												}
{  Gen1 - Generate a two byte constant operand instruction		}
{  Gen1Byte - Generate a one byte constant operand instruction	}
{  Gen1Name - Generate an instruction with a named label and	}
{		offset													}
{  GetLabel - Allocale a new numbered label 					}
{  GenDebugSymbols - Generate the debugger symbol table 		}
{  GenStrings - Generate string constants						}
{  GenSymbols - Generate space for variables in the symbol		}
{		table													}
{																}
{---------------------------------------------------------------}

UNIT CodeGen;

INTERFACE

	USES Memory,					{ for NewHandle }
		Types,
		BASICCom,
		Scanner;

	{---------------------------------------------------------------}

	PROCEDURE Gen0(op: integer);

	{ Generate an implied operand instruction						}
	{																}
	{ Parameters:													}
	{	 op - instruction to generate								}

	PROCEDURE Gen0Name(op: integer; name: namePtr);

	{ Generate an instruction with a named label					}
	{																}
	{ Parameters:													}
	{	 op - instruction to generate								}
	{	 name - pointer to the named operand						}

	PROCEDURE Gen0NameShift(op: integer; name: namePtr);

	{ Generate an instruction with a named label shifted by 16 bits }
	{																}
	{ Parameters:													}
	{	 op - instruction to generate								}
	{	 name - pointer to the named operand						}

	PROCEDURE Gen0Label(op, lab: integer);

	{ Generate an instruction with a numbered label 				}
	{																}
	{ Parameters:													}
	{	 op - instruction to generate								}
	{	 label - label number										}

	PROCEDURE Gen0Relative(op, lab: integer);

	{ Generate an instruction with an offset to a numbered label	}
	{																}
	{ Parameters:													}
	{	 op - instruction to generate								}
	{	 label - label number										}

	PROCEDURE Gen0String(op: integer; str: stringPtr);

	{ Generate an instruction with a string constant operand		}
	{																}
	{ Parameters:													}
	{	 op - instruction to generate								}
	{	 str - pointer to the string constant						}

	PROCEDURE Gen1(op, opnd: integer);

	{ Generate a two byte constant operand instruction				}
	{																}
	{ Parameters:													}
	{	 op - instruction to generate								}
	{	 opnd - operand 											}
	{																}
	{ Note:  This procedure is declared as extern in Scanner.Pas.	}
	{		 If the name or parameter list changes, be sure and 	}
	{		 make a corresponding change there. 					}

	PROCEDURE Gen1Byte(op, opnd: integer);

	{ Generate a one byte constant operand instruction				}
	{																}
	{ Parameters:													}
	{	 op - instruction to generate								}
	{	 opnd - operand 											}

	PROCEDURE Gen1Name(op: integer; name: namePtr; opnd: integer);

	{ Generate an instruction with a named label and offset 		}
	{																}
	{ Parameters:													}
	{	 op - instruction to generate								}
	{	 name - pointer to the named operand						}
	{	 opnd - numeric offset										}

	FUNCTION GetLabel: integer;

	{ Allocale a new numbered label 								}

	PROCEDURE GenDebugSymbols;

	{ Generate the debugger symbol table							}

	PROCEDURE GenStrings;

	{ Generate string constants 									}

	PROCEDURE GenSymbols;

	{ Generate space for variables in the symbol table				}

{- Private declarations ----------------------------------------}

IMPLEMENTATION

	CONST
		{object segment info}
		{-------------------}
		csize = $BF;							{size of the constant buffer}
		segmentSize = maxint;					{max size of a segment}
		CODEkind = $0000;						{segment kind = CODE}
		DATAkind = $0001;						{segment kind = DATA}

		{labels}
		{------}
		labelSize = 1000;						{max # of local labels}

		{strings}
		{-------}
		ssize = 4000;							{length of the constant string buffer}

	TYPE
		{object segment info}
		{-------------------}
		segmentType = ARRAY [0..segmentSize] OF byte; {segment buffer type}
		segmentPtr = ^segmentType;				{pointer to a segment buffer}

		{labels}
		{------}
		labelRefPtr = ^labelRefRecord;			{ptr to a label reference}
		labelRefRecord = RECORD {label reference}
							 next: labelRefPtr;	{ next entry}
							 disp: longint;		{ disp to label reference in segment}
						 END;
		labelRecord = RECORD					{label entry}
						  defined: boolean;		{ is the label defined?}
						  disp: longint;		{ disp to label location}
						  refs: labelRefPtr;	{ unresolved label list}
					  END;

		hexString = string[4];

	VAR
		{object segment info}
		{-------------------}
		clen: 0..csize;							{index into the constant buffer}
		cbuff: ARRAY [1..csize] OF byte;		{constant buffer}
		codeLength: longint;					{bytes of code in the loaded segment}
		{  disp: longint;						{disp into the segment}
		segment: segmentPtr;					{pointer to the current segment}
		segmentHandle: handle;					{segment handle}
		segNextByte: StringPtr;					{pointer to next location}
		segSize: longint;						{amount of memory allocated for segment}

		{labels}
		{------}
		labels: ARRAY [1..labelSize] OF labelRecord; {label table}
		nextLabel: 0..labelSize;				{next label to allocate}

		{strings}
		{-------}
		sbuff: PACKED ARRAY [1..ssize] OF char;	{string buffer}
		slabel: 0..labelSize;					{string pool label}
		slen: 0..ssize;							{disp to next spot in sbuff}

	{- OMF Creation ------------------------------------------------}

	PROCEDURE Purge;
		FORWARD;

	PROCEDURE WriteHex(number: longint);

		VAR
			newString: hexString;
			temp: integer;
			i: integer;

		BEGIN
			FOR i := 1 TO 4 DO
				newString[i] := '0';
			newString[0] := chr(4);
			i := 4;								{ character position }
			WHILE (number <> 0) AND (i <> 0) DO BEGIN
				temp := integer(number MOD 16);
				number := number DIV 16;
				IF temp > 9 THEN
					newString[i] := chr(ord('A') + (temp - 10))
				ELSE
					newString[i] := chr(ord('0') + temp);
				i := i - 1;
			END; {while}
			write(newString, chr(9));
		END; {WriteHex}

	PROCEDURE GrowSegment;
	{ grow the memory block allocated for the current segment }

		VAR
			segLength: longint;

		BEGIN
			segLength := ord4(segNextByte) - ord4(segment); { calculate current length }
			segSize := segSize + $4000;			{ grow by 8K }
			HUnlock(segmentHandle);				{ unlock the handle }
			SetHandleSize(segmentHandle, segSize); { grow the handle }
			IF MemError <> 0 THEN
				TermError(5);					{ out of memory }
			HLock(segmentHandle);
			segment := segmentPtr(segmentHandle^);
			segNextByte := StringPtr(ord4(segment) + segLength); { update pointer }
		END; {GrowSegment}

	PROCEDURE Put1(val: integer);

	{ Write one byte to the object segment							}
	{																}
	{ Parameters:													}
	{	 val - value to write										}
	{																}
	{ Variables:													}
	{	 disp - disp in the object segment							}
	{	 segment - object segment pointer							}

		BEGIN {Put1}
			IF clen <> 0 THEN					{write any bytes in the constant buffer}
				Purge;
			segNextByte^[0] := chr(val);			{put the byte in the segment buffer}
			IF ord4(segNextByte) = (ord4(segment) + segSize) THEN {update the segment size}
				GrowSegment;
			segNextByte := StringPtr(ord4(segNextByte) + 1);
		END; {Put1}

	PROCEDURE Purge;

	{ write any bytes in the constant buffer						}
	{																}
	{ Variables:													}
	{	 clen - # of bytes in the constant buffer					}
	{	 cbuff - constant buffer									}

		VAR
			len: integer;						{local copy of clen}
			i: integer;							{loop variable}

		BEGIN {Purge}
			IF clen <> 0 THEN BEGIN
				len := clen;					{save the length}
				clen := 0;						{zero the length (prevents re-call by Put1)}
				Put1(len);						{write the number of bytes}
				FOR i := 1 TO len DO			{write the bytes}
					Put1(cbuff[i]);
			END; {if}
		END; {Purge}

	PROCEDURE Put2(val: integer);

	{ Write two bytes to the object segment 						}
	{																}
	{ Parameters:													}
	{	 val - value to write										}

		BEGIN {Put2}
			Put1(BAnd(val,$00FF));
			Put1(BSR(val, 8));
		END; {Put2}

	PROCEDURE Put4(val: longint);

	{ Write four bytes to the object segment						}
	{																}
	{ Parameters:													}
	{	 val - value to write										}

		BEGIN {Put4}
			Put1(integer(BAnd(val, $00FF)));
			Put1(integer(BAnd(BSR(val,8),$00FF)));
			Put1(integer(BAnd(BSR(val,16),$00FF)));
			Put1(integer(BAnd(BSR(val,24),$00FF)));
		END; {Put4}

	PROCEDURE PutName(name: namePtr; disp, len, shift: integer);

	{ write an expression with a name to the object file			}
	{																}
	{ Parameters:													}
	{	 name - pointer to the name 								}
	{	 disp - disp past the name									}
	{	 len - length of the code created by the expression 		}
	{	 shift - # of bits to shift value							}

		VAR
			i: integer;							{loop variable}

		BEGIN {PutName}
			Put1($EB);							{write the expression op-code}
			Put1(len);							{write the # of bytes to generate}
			Put1($83);							{write the name}
			Put1(length(name^));
			FOR i := 1 TO length(name^) DO
				Put1(ord(name^[i]));
			IF disp <> 0 THEN BEGIN				{write the displacement}
				Put1($81);
				Put4(disp);
				Put1(1);
			END; {if}
			IF shift <> 0 THEN BEGIN			{shift the value}
				Put1($81);
				Put4(shift);
				Put1(7);
			END; {if}
			Put1(0);							{mark the end of the expression}
		END; {PutName}

	PROCEDURE CPut1(val: integer);

	{ place one byte in the constant buffer 						}
	{																}
	{ Parameters:													}
	{	 val - value to write										}
	{																}
	{ Variables:													}
	{	 cbuff - constant buffer									}
	{	 clen - # of bytes in the constant buffer					}

		BEGIN {CPut1}
			IF clen = csize THEN				{if the buffer is full, purge it}
				Purge;
			clen := clen + 1;					{put the byte in the buffer}
			cbuff[clen] := val;
		END; {CPut1}

	PROCEDURE CPut2(val: integer);

	{ place two bytes to the constant buffer						}
	{																}
	{ Parameters:													}
	{	 val - value to write										}

		BEGIN {CPut2}
			CPut1(BAnd(val,$00FF));
			CPut1(BSR(val, 8));
		END; {CPut2}

	PROCEDURE StartSegment(name: namePtr; kind : integer);

	{ Start an object segment										}
	{																}
	{ Parameters:													}
	{	 name - pointer to the nane of the segment					}

		VAR
			i: integer;							{loop variable}
			disp: integer;						{displacement within segment}

		BEGIN {StartSegment}
			{allocate the memory for the segment}
			ResrvMem(size(segmentSize));
			segmentHandle := NewHandle(segmentSize);
			if segmentHandle = NIL then
				TermError(5);
			HLock(segmentHandle);
			segment := segmentPtr(segmentHandle^);
			segNextByte := StringPtr(segment);	{nothing in segment}
			segSize := segmentSize;
			disp := 0;							{nothing in the segment}
			codeLength := 0;
			clen := 0;
			slen := 0;
			segNum := segNum+1;					{use the next segment #}
			nextLabel := 0;						{no labels allocated}
			slabel := GetLabel;					{get a label for the string pool}
			Put4(0);							{byte count (not yet known)}
			Put4(0);							{reserved space (0 bytes)}
			Put4(0);							{segment code length (not yet known)}
			Put1(0);							{reserved field}
			Put1(0);							{label length (variable)}
			Put1(4);							{length of numbers}
			Put1(2);							{OMF version}
			Put4($010000);						{bank size}
			Put2(kind);							{segment kind}
			Put2(0);							{unused}
			Put4(0);							{org}
			Put4(0);							{alignment}
			Put1(0);							{number "sex" (least sig. byte first)}
			Put1(0);							{undefined}
			Put2(segNum);						{segment number}
			Put4(0);							{entry (enter at first byte)}
			disp := integer(ord4(segNextByte) - ord4(segment)); {calc displacement}
			Put2(disp + 4);						{disp to names}
			Put2(disp + 15 + length(name^));	{disp to opcodes}
			Put1(integer('m'));					{load segment name (' ')}
			Put1(integer('a'));
			Put1(integer('i'));
			Put1(integer('n'));
			Put4($20202020);
			Put2($2020);
			Put1(length(name^));				{code segment name}
			FOR i := 1 TO length(name^) DO
				Put1(ord(name^[i]));
		END; {StartSegment}

	PROCEDURE EndSegment;

		VAR
			tdisp: StringPtr;					{temp storage for segNextByte}
			disp: longint;						{calculated length of segment}

		PROCEDURE WriteFile;

		{ Write a file to disk										 }
		{															 }
		{ Variables:												 }
		{	 segment - pointer to the first char in the file		 }
		{	 disp - length of the file								 }

			VAR
				oldSize: longint;

			BEGIN {WriteFile}
				oldSize := GetHandleSize(objBuf);
				SetHandleSize(objBuf, oldSize + disp);	{grow the buffer}
				IF objBuf = NIL THEN
					TermError(5);
				HLock(objBuf);	{lock the object code buffer down}
				BlockMove(Ptr(segmentHandle^), ptr(ord4(objBuf^)+oldSize), disp);	{copy the new object code in}
				HUnlock(objBuf);	{unlock the object code block}
				HUnlock(segmentHandle);	{and the segment buffer}
				DisposHandle(segmentHandle);	{free the memory}
			END; {WriteFile}

		BEGIN {EndSegment}
			Put1(0);							{write the end opcode}
			disp := ord4(segNextByte) - ord4(segment);
			tdisp := segNextByte;				{save the segment length}
			segNextByte := StringPtr(segment);
			Put4(disp);							{store the byte count in the header}
			segNextByte := StringPtr(ord4(segment) + 8);
			Put4(codeLength);					{store the code length in the header}
			segNextByte := tdisp;				{restore the segment length}
			IF keep THEN						{write the file to disk}
				WriteFile;
		END; {EndSegment}

	{- Labels ------------------------------------------------------}

	FUNCTION GetLabel{: integer};

	{ Allocale a new numbered label 								}

		BEGIN {GetLabel}
			IF nextLabel = labelSize THEN		{find and fill in a label record}
				FlagError(29)
			ELSE BEGIN
				nextLabel := nextLabel + 1;
				WITH labels[nextLabel] DO BEGIN
					defined := false;
					refs := NIL;
				END; {with}
			END; {else}
			GetLabel := nextLabel;				{return the label number}
		END; {GetLabel}

	PROCEDURE MakeReference(pdisp, value: longint);

	{ place a label reference in the code file						}
	{																}
	{ Parameters:													}
	{	 pdisp - location of the reference in the OBJ file			}
	{	 value - label value										}

		VAR
			savePtr: StringPtr;					{local copy of segNextByte}

		BEGIN {MakeReference}
			Purge;								{write any constants}
			savePtr := segNextByte;				{save current position}
			{go back to the reference location}
			segNextByte := StringPtr(ord4(segment) + pdisp);
			Put4(value);						{place the value in the OMF file}
			segNextByte := savePtr;				{restore the OMF pointer}
		END; {MakeReference}

	PROCEDURE DefineLabel(lab: integer);

	{ Define a label												}
	{																}
	{ Parameters:													}
	{	 lab - label number to define								}
	{																}
	{ Variables:													}
	{	 codeLength - disp into the code segment					}

		VAR
			lptr: labelRefPtr;					{work pointer}

		BEGIN {DefineLabel}
			WITH labels[lab] DO BEGIN
				disp := codeLength;				{define the label}
				defined := true;
				WHILE refs <> NIL DO BEGIN		{resolve existing references}
					lptr := refs;
					refs := lptr^.next;
					WITH lptr^ DO MakeReference(disp, codeLength);
					dispose(lptr);
				END; {while}
			END; {with}
		END; {DefineLabel}

	PROCEDURE ReferenceLabel(lab, poffset: integer; prelative: boolean; psize: integer);

	{ Create a reference to a label 								}
	{																}
	{ Parameters:													}
	{	 lab - label number 										}
	{	 poffset - offset from the start of the label				}
	{	 prelative - is the reference to a relative label?			}
	{	 psize - size of the label field, in bytes					}
	{																}
	{ Variables:													}
	{	 disp - location of the label reference in the OBJ file 	}

		VAR
			i: integer;						{loop variable}
			ldisp: longint;					{local copy of disp}
			lptr: labelRefPtr;				{work pointer}

		BEGIN {ReferenceLabel}
			IF prelative THEN BEGIN
				Put1($EE);					{write the expression opcode}
				Put1(psize);				{write the expression size}
				Put4(psize);				{write the disp to the end of the exp}
			END {if}
			ELSE BEGIN
				Put1($EB);						{write the expression opcode}
				Put1(psize);					{write the expression size}
			END; {else}
			Put1($87);							{save space & loc of label value}
			ldisp := ord4(segNextByte) - ord4(segment);
			Put4(0);
			IF poffset <> 0 THEN BEGIN			{add in the offset}
				Put1($81);
				Put4(poffset);
				Put1(1);
			END; {if}
			Put1(0);							{end of expression}
			WITH labels[lab] DO					{create the label reference}
				IF defined THEN
					MakeReference(ldisp, disp)
				ELSE BEGIN
					new(lptr);
					WITH lptr^ DO BEGIN
						next := refs;
						disp := ldisp;
					END; {with}
					refs := lptr;
				END; {else}
		END; {ReferenceLabel}

	{- Code Generation Interface -----------------------------------}

	PROCEDURE ListOp(op: integer);

	{ List a label field and op code								}

		BEGIN {ListOp}
			IF NOT (op IN [d_lab, d_bgn]) THEN
				write(chr(9), chr(9));
			CASE op OF
				m_adc_abs,
				m_adc_imm,
				m_adc_s		:	write('adc');

				m_and_imm,
				m_and_s		:	write('and');
				
				m_asl		:	write('asl', chr(9), 'A');
				
				m_beq		:	write('beq');
				
				m_bge		:	write('bge');
				
				m_bmi		:	write('bmi');
				
				m_bne		:	write('bne');
				
				m_bpl		:	write('bpl');
				
				m_clc		:	write('clc');
				
				m_cop		:	write('cop');
				
				m_dec_a		:	write('dec', chr(9), 'A');
				
				m_dec_abs	:	write('dec');
				
				m_eor_imm	:	write('eor');
				
				m_inc_a		:	write('inc', chr(9), 'A');
				
				m_inc_abs	:	write('inc');
				
				m_jml		:	write('jml');
				
				m_jmp		:	write('jmp');
				
				m_jsl		:	write('jsl');
				
				m_jsr		:	write('jsr');
				
				m_ldx_abs,
				m_ldx_dir	:	write('ldx');
				
				m_lda_abs,
				m_lda_absx,
				m_lda_dir,
				m_lda_imm,
				m_lda_indl	:	write('lda');
				
				m_ora_s		:	write('ora');
				
				m_sta_abs,
				m_sta_absx,
				m_sta_dir,
				m_sta_longx,
				m_sta_s		:	write('sta');
				
				m_pea		:	write('pea');
				
				m_pha		:	write('pha');
				
				m_pla		:	write('pla');
				
				m_plx		:	write('plx');
				
				m_ply		:	write('ply');
				
				m_rep		:	write('rep');
				
				m_rts		:	write('rts');
				
				m_sbc_dir	:	write('sbc');
				
				m_sec		:	write('sec');
				
				m_sep		:	write('sep');
				
				m_tax		:	write('tax');
				

				d_bgn		:	write(chr(9),'Proc');
				d_end		:	write('EndP');
				d_lab		:	write(chr(9),'ANOP');
				d_str		:	write('STR');
				d_lnm		:	write('LNM');
				d_ago		:	write('AGO');
				d_brk		:	write('BRK');
				d_sub		:	write('SUB');
				d_exi		:	write('EXI');
				d_fil		:	write('FIL');
			END; {case}
			IF op IN [m_adc_abs, m_adc_imm, m_adc_s, m_and_imm,
						m_and_s, m_beq, m_bge, m_bmi, m_bne, m_bpl, m_cop,
						m_dec_abs,  m_eor_imm, m_inc_abs, m_jml, m_jmp,
						m_jsl, m_jsr, m_lda_abs, m_lda_absx, m_lda_imm,
						m_lda_indl, m_ldx_abs, m_ldx_dir, m_ora_s, m_pea,
						m_sep, m_sbc_dir, m_sta_abs, m_sta_absx, m_sta_dir,
						m_sta_longx, m_sta_s, m_rep, d_str, d_lnm, d_ago,
						d_brk, d_sub, d_exi, d_fil] THEN BEGIN
				write(chr(9));
				IF op IN [m_adc_imm, m_and_imm, m_eor_imm, m_lda_imm] THEN
					write('#')
				ELSE IF op = m_sta_longx THEN
					write('>')
				ELSE IF op = m_lda_indl THEN
					write('[');
			END; {if}
		END; {ListOp}

	PROCEDURE Gen0{op: integer};

	{ Generate an implied operand instruction						}
	{																}
	{ Parameters:													}
	{	 op - instruction to generate								}

		VAR
			name: nameType;						{segment name}

		BEGIN {Gen0}
			IF listSymbols THEN BEGIN			{list the instruction}
				IF showOffsets THEN
					WriteHex(codeLength);
				ListOp(op);
				writeln;
			END; {if}
			IF op = d_end THEN
				EndSegment
			ELSE IF op = d_exi THEN BEGIN		{generate the end cop instruction}
				CPut1(m_cop);
				CPut1(4);
				codeLength := codeLength + 2;
			END {else if}
			ELSE BEGIN
				CPut1(op);						{write the opcode}
				codeLength := codeLength + 1;	{update the length of the code}
			END; {else}
		END; {Gen0}

	PROCEDURE Gen0Label{op,lab: integer};

	{ Generate an instruction with a numbered label 				}
	{																}
	{ Parameters:													}
	{	 op - instruction to generate								}
	{	 label - label number										}

		BEGIN {Gen0Label}
			IF listSymbols THEN BEGIN			{list the instruction}
				IF op = d_lab THEN BEGIN
					IF showOffsets THEN
						WriteHex(codeLength);
					write('L', lab: 1, chr(9));
					ListOp(op);
					writeln;
				END {if}
				ELSE BEGIN
					IF showOffsets THEN
						WriteHex(codeLength);
					write(chr(9), chr(9));
					ListOp(op);
					writeln(chr(9),'L', lab: 1);
				END; {else}
			END; {if}
			IF op = d_lab THEN
				DefineLabel(lab)				{define a new label}
			ELSE BEGIN
				CPut1(op);						{write the opcode}
				ReferenceLabel(lab, 0, false, 2); {reference a label}
				codeLength := codeLength + 3;	{update the length of the code}
			END; {else}
		END; {Gen0Label}

	PROCEDURE Gen0Name{op: integer; name: namePtr};

	{ Generate an instruction with a named label					}
	{																}
	{ Parameters:													}
	{	 op - instruction to generate								}
	{	 name - pointer to the named operand						}

		VAR
			i: integer;							{loop variable}
			size: integer;						{size of the operand}

		BEGIN {Gen0Name}
			IF listSymbols THEN BEGIN			{list the instruction}
				IF showOffsets THEN
					WriteHex(codeLength);
				IF op IN [d_bgn, d_lab] THEN
					write(name^, chr(9));
				ListOp(op);
				IF NOT (op IN [d_bgn, d_lab]) THEN
					write(name^);
				IF op IN [m_lda_absx, m_sta_absx] THEN
					write(',X');
				writeln;
			END; {if}
			IF op = d_bgn THEN
				StartSegment(name, CODEkind)	{start a segment}
			ELSE IF op = d_lab THEN BEGIN
				Put1($E6);						{create a global label}
				Put1(length(name^));			{ leading length byte }
				FOR i := 1 TO length(name^) DO	{ label characters }
					Put1(ord(name^[i]));
				Put2(0);						{ # of bytes generated by line }
				Put1(ord('N'));					{ attribute }
				Put1(0);						{ private flag }
			END {else if}
			ELSE BEGIN
				CPut1(op);						{write the opcode}
				size := 2;						{write the name}
				IF op IN [m_jml, m_jsl, m_sta_longx] THEN
					size := 3;
				PutName(name, 0, size, 0);
				codeLength := codeLength + size + 1; {update the length of the code}
			END; {else}
		END; {Gen0Name}

	PROCEDURE Gen0NameShift{op: integer; name: namePtr};

	{ Generate an instruction with a named label shifted by 16 bits }
	{																}
	{ Parameters:													}
	{	 op - instruction to generate								}
	{	 name - pointer to the named operand						}

		VAR
			i: integer;							{loop variable}
			size: integer;						{size of the operand}

		BEGIN {Gen0NameShift}
			IF listSymbols THEN BEGIN			{list the instruction}
				IF showOffsets THEN
					WriteHex(codeLength);
				ListOp(op);
				writeln(name^, '>>16');
			END; {if}
			CPut1(op); {write the opcode}
			PutName(name, 0, 2, - 16);
			codeLength := codeLength + 3;		{update the length of the code}
		END; {Gen0NameShift}

	PROCEDURE Gen0Relative{op,lab: integer};

	{ Generate an instruction with an offset to a numbered label	}
	{																}
	{ Parameters:													}
	{	 op - instruction to generate								}
	{	 label - label number										}

		BEGIN {Gen0Relative}
			IF listSymbols THEN BEGIN			{list the instruction}
				IF showOffsets THEN
					WriteHex(codeLength);
				ListOp(op);
				writeln('L', lab: 1);
			END; {if}
			CPut1(op);							{write the opcode}
			ReferenceLabel(lab, 0, true, 1);	{reference a label}
			codeLength := codeLength + 2;		{update the length of the code}
		END; {Gen0Relative}

	PROCEDURE Gen0String{op: integer; str: stringPtr};

	{ Generate an instruction with a string constant operand		}
	{																}
	{ Parameters:													}
	{	 op - instruction to generate								}
	{	 str - pointer to the string constant						}

		VAR
			i: integer;							{loop variable}
			len: integer;						{length of str^}

		BEGIN {Gen0String}
			IF listSymbols THEN BEGIN			{list the instruction}
				IF showOffsets THEN
					WriteHex(codeLength);
				ListOp(op);
				writeln('"', str^, '"');
			END; {if}
			IF op IN [d_sub, d_fil] THEN BEGIN
				CPut1(m_cop);					{generate the cop instruction}
				IF op = d_sub THEN				{generate the cop type byte}
					CPut1(3)
				ELSE
					CPut1(6);
				ReferenceLabel(slabel, slen, false, 4); {generate the string addr}
				codeLength := codeLength + 6;	{update the code size}
				len := length(str^);			{get the length of the string}
				IF slen + len + 1 > ssize THEN BEGIN {save the string}
					FlagError(30);
					slen := 0;
				END; {if}
				sbuff[slen + 1] := chr(len);
				FOR i := 1 TO len DO
					sbuff[slen + i + 1] := str^[i];
				slen := slen + len + 1;
			END {if}
			ELSE BEGIN
				CPut1(m_pea);					{push the bank byte}
				Put1($EB);
				Put1(2);
				Put1($87);
				Put4(0);
				Put1($81);
				Put4( - 16);
				Put1(7);
				Put1(0);
				CPut1(m_pea);					{push the string buffer address}
				ReferenceLabel(slabel, slen, false, 2);
				CPut1(m_pea);					{push the string length}
				CPut2(0);
				codeLength := codeLength + 9;	{update the code size}
				len := length(str^);			{get the length of the string}
				IF slen + len + 1 > ssize THEN BEGIN {save the string}
					FlagError(30);
					slen := 0;
				END; {if}
				FOR i := 1 TO len DO
					sbuff[slen + i] := str^[i];
				sbuff[slen + len + 1] := chr(0);
				slen := slen + len + 1;
			END; {else}
		END; {Gen0String}

	PROCEDURE Gen1{op, opnd: integer};

	{ Generate a two byte constant operand instruction				}
	{																}
	{ Parameters:													}
	{	 op - instruction to generate								}
	{	 opnd - operand 											}
	{																}
	{ Note:  This procedure is declared as extern in Scanner.Pas.	}
	{		 If the name or parameter list changes, be sure and 	}
	{		 make a corresponding change there. 					}

		BEGIN {Gen1}
			IF listSymbols THEN BEGIN			{list the instruction}
				IF showOffsets THEN
					WriteHex(codeLength);
				ListOp(op);
				write(opnd: 1);
				IF op = m_sta_longx THEN
					write(',X');
				writeln;
			END; {if}
			IF op IN [d_lnm, d_ago, d_brk] THEN BEGIN
				CPut1(m_cop);					{write the opcode}
				CPut1(ord(op) - ord(d_lnm));	{write the cop code}
				CPut2(opnd);					{write the operand}
				codeLength := codeLength + 4;	{update the length of the code}
			END {if}
			ELSE BEGIN
				CPut1(op);						{write the opcode}
				CPut2(opnd);					{write the operand}
				codeLength := codeLength + 3;	{update the length of the code}
			END; {else}
		END; {Gen1}

	PROCEDURE Gen1Byte{op, opnd: integer};

	{ Generate a one byte constant operand instruction				}
	{																}
	{ Parameters:													}
	{	 op - instruction to generate								}
	{	 opnd - operand 											}

		BEGIN {Gen1Byte}
			IF listSymbols THEN BEGIN			{list the instruction}
				IF showOffsets THEN
					WriteHex(codeLength);
				ListOp(op);
				write(opnd: 1);
				IF op IN [m_adc_s, m_and_s, m_ora_s, m_sta_s] THEN
					write(',S')
				ELSE IF op = m_lda_indl THEN
					write(']');
				writeln;
			END; {if}
			CPut1(op);							{write the opcode}
			CPut1(opnd);						{write the operand}
			codeLength := codeLength + 2;		{update the length of the code}
		END; {Gen1Byte}

	PROCEDURE Gen1Name{op: integer; name: namePtr; opnd: integer};

	{ Generate an instruction with a named label and offset 		}
	{																}
	{ Parameters:													}
	{	 op - instruction to generate								}
	{	 name - pointer to the named operand						}
	{	 opn1 - numeric offset										}

		BEGIN {Gen1Name}
			IF listSymbols THEN BEGIN			{list the instruction}
				IF showOffsets THEN
					WriteHex(codeLength);
				ListOp(op);
				writeln(name^, '+', opnd: 1);
			END; {if}
			CPut1(op);							{write the opcode}
			PutName(name, opnd, 2, 0);			{write the name}
			codeLength := codeLength + 3;		{update the length of the code}
		END; {Gen1Name}

	PROCEDURE GenDebugSymbols;

	{ Generate the debugger symbol table							}

		VAR
			size: integer; {size of the symbol table}

		FUNCTION TableSize(sym: symbolPtr): integer;

		{ Find the size of the symbol table 						 }
		{															 }
		{ Parameters:												 }
		{	 sym - pointer to the top symbol						 }
		{															 }
		{ Returns the size of the debugger symbol table in bytes	 }

			VAR
				i: integer;						{loop variable}
				size: integer;					{# of bytes to generate}

			BEGIN {TableSize}
				IF sym <> NIL THEN BEGIN
					size := TableSize(sym^.left); {do the left part of the tree}

					IF sym^.kind = int THEN BEGIN {add in the size of this entry}
						IF sym^.size = 0 THEN
							size := size + 12
						ELSE
							size := size + 24;
					END {if}
					ELSE
						size := size + 12;

					size := size + TableSize(sym^.right); {do the right part of the tree}
				END {if}
				ELSE
					size := 0;
				TableSize := size;				{return the size}
			END; {TableSize}

		PROCEDURE GenSymbol(sym: symbolPtr);

		{ Generate the code for one symbol							 }
		{															 }
		{ Parameters:												 }
		{	 sym - pointer to the symbol to generate				 }

			VAR
				i: integer;						{loop variable}
				len: integer;					{length of the variable}

			BEGIN {GenSymbol}
				IF sym <> NIL THEN BEGIN
					GenSymbol(sym^.left);		{do the left part of the tree}

					IF listSymbols THEN BEGIN	{handle text output}
						IF showOffsets THEN
							WriteHex(codeLength);
						writeln(chr(9), chr(9), 'dc.l',chr(9), 'L', slabel: 1, '+', slen: 1);
						IF showOffsets THEN
							WriteHex(codeLength + 4);
						writeln(chr(9), chr(9), 'dc.l', chr(9), sym^.name);
						IF showOffsets THEN
							WriteHex(codeLength + 8);
						writeln(chr(9), chr(9), 'dc.b', chr(9), '1');
					END; {if}
					ReferenceLabel(slabel, slen, false, 4); {generate the string addr}
					len := length(sym^.name);	{get the length of the string}
					IF slen + len + 1 > ssize THEN BEGIN {save the string}
						FlagError(30);
						slen := 0;
					END; {if}
					sbuff[slen + 1] := chr(len);
					FOR i := 1 TO len DO
						sbuff[slen + i + 1] := sym^.name[i];
					slen := slen + len + 1;
					PutName(@sym^.name, 0, 4, 0); {generate the name}
					CPut1(1);					{absolute address flag}
					IF sym^.kind = int THEN BEGIN
						CPut1(1);				{int variable}
						IF listSymbols THEN
							IF showOffsets THEN
								WriteHex(codeLength + 9);
						writeln(chr(9),chr(9), 'dc.b',chr(9),'1');
						IF sym^.size = 0 THEN BEGIN
							CPut2(0);			{not an array}
							IF listSymbols THEN
								IF showOffsets THEN
									WriteHex(codeLength + 10);
							writeln(chr(9),chr(9), 'dc.w', chr(9), '0');
						END {if}
						ELSE BEGIN
							CPut2(1);			{singly subscripted array}
							CPut2(0);			{min subscript value}
							CPut2(0);
							CPut2(sym^.size + 1); {max subscript value}
							CPut2(0);
							CPut2(2);			{elements are 2 bytes long}
							CPut2(0);
							IF listSymbols THEN BEGIN
								IF showOffsets THEN
									WriteHex(codeLength + 10);
								writeln(chr(9), chr(9), 'dc.w',chr(9),'1');
								IF showOffsets THEN
									WriteHex(codeLength + 12);
								writeln(chr(9), chr(9), 'dc.l',chr(9),'0');
								IF showOffsets THEN
									WriteHex(codeLength + 16);
								writeln(chr(9), chr(9), 'dc.l', chr(9), sym^.size + 1:1);
								IF showOffsets THEN
									WriteHex(codeLength + 20);
								writeln(chr(9), chr(9), 'dc.l', chr(9), '2');
							END; {if}
							codeLength := codeLength + 12;
						END; {else}
					END {if}
					ELSE BEGIN
						CPut1(6);				{string variable}
						CPut2(0);				{not an array}
						IF listSymbols THEN BEGIN
							IF showOffsets THEN
								WriteHex(codeLength + 9);
							writeln(chr(9), chr(9), 'dc.b', chr(9), '6');
							IF showOffsets THEN
								WriteHex(codeLength + 10);
							writeln(chr(9), chr(9), 'dc.w', chr(9), '0');
						END; {if}
					END; {else}
					codeLength := codeLength + 12; {update the code size}

					GenSymbol(sym^.right);		{do the right part of the tree}
				END; {if}
			END; {GenSymbol}

		BEGIN {GenDebugSymbols}
			IF symbolTable <> NIL THEN BEGIN
				Gen1Byte(m_cop, 5);				{write the opcode}
				size := TableSize(symbolTable);	{find the size of the table}
				CPut2(size);
				IF listSymbols THEN
					IF showOffsets THEN
						WriteHex(codeLength);
				writeln(chr(9), chr(9), 'dc.w', chr(9), size: 1);
				codeLength := codeLength + 2;
				GenSymbol(symbolTable);			{generate the symbols}
			END; {if}
			Gen0(m_rts);						{return to caller}
		END; {GenDebugSymbols}

	PROCEDURE GenStrings;

	{ Generate string constants 									}

		VAR
			i: 1..ssize;						{loop variable}
			lastType: (none, ch, int);			{type of last variable}

		BEGIN {GenStrings}
			Gen0Label(d_lab, slabel);			{create the string label}
			IF listSymbols AND (slen <> 0) THEN	{list the instruction}
				BEGIN
				lastType := none;
				FOR i := 1 TO slen DO BEGIN
					IF sbuff[i] >= ' ' THEN BEGIN
						IF lastType <> ch THEN BEGIN
							IF lastType <> none THEN
								writeln;
							IF showOffsets THEN
								WriteHex(codeLength + i - 1);
							write(chr(9), chr(9), 'dc.b', chr(9), '''');
							lastType := ch;
						END; {if}
						write(sbuff[i]);
					END {if}
					ELSE BEGIN
						IF lastType = int THEN
							write(',')
						ELSE BEGIN
							IF lastType = ch THEN
								write(''',');
							lastType := int;
						END; {if}
						write(ord(sbuff[i]): 1);
					END; {else}
				END; {for}
				writeln;
			END; {if}
			FOR i := 1 TO slen DO				{write the string bytes}
				CPut1(ord(sbuff[i]));
			codeLength := codeLength + slen;	{update the code size}
		END; {GenStrings}

	PROCEDURE GenSymbols;

	{ Generate space for variables in the symbol table				}

		VAR
			name: nameType; {segment name}

		PROCEDURE GenSymbol(sym: symbolPtr);

		{ Generate the code for one symbol							 }
		{															 }
		{ Parameters:												 }
		{	 sym - pointer to the symbol to generate				 }

			VAR
				i: integer;						{loop variable}
				size: integer;					{# of bytes to generate}

			BEGIN {GenSymbol}
				IF sym <> NIL THEN BEGIN
					GenSymbol(sym^.left);		{do the left part of the tree}
					IF sym^.kind = int THEN		{find the size of the symbol}
						size := 2 * sym^.size + 2
					ELSE BEGIN
						size := sym^.size+1;
						if size = 1 then		{(strings default to 10 characters)}
							size := 11;
					END; {else}
					Put1($E6);					{create the label}
					Put1(length(sym^.name));
					FOR i := 1 TO length(sym^.name) DO
						Put1(ord(sym^.name[i]));
					Put2(0);
					Put1(ord('N'));
					Put1(0);
					Put1($F1);					{reserve the space}
					Put4(size);
					codeLength := codeLength + size; {update the code size}
					IF listSymbols THEN			{write the text version}
						writeln(sym^.name, chr(9), 'ds.b', chr(9), size: 1);
					GenSymbol(sym^.right);		{do the right part of the tree}
				END; {if}
			END; {GenSymbol}

		BEGIN {GenSymbols}
			IF symbolTable <> NIL THEN BEGIN
				name := 'VARIABLES';
				StartSegment(@name, DATAkind);	{start a segment}
				IF listSymbols THEN BEGIN
					writeln;
					writeln('VARIABLES', chr(9), 'Record');
				END; {if}
				GenSymbol(symbolTable);			{generate the symbols}
				EndSegment;
				IF listSymbols THEN
					writeln(chr(9), chr(9), 'endr');
			END; {if}
		END; {GenSymbols}

END.
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Apple.Bowl/Compiler/Makefile b/IIGS.601.SRC/A.U.G/Apple.Bowl/Compiler/Makefile
new file mode 100644
index 0000000..e24ba6a
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Apple.Bowl/Compiler/Makefile
@@ -0,0 +1 @@
+#   File:       IntBasic.make
#   Target:     IntBasic IntBasicLib
#   Sources:    Basic.p BasicCom.p CodeGen.p Parser.p Scanner.p BasicLib.aii


OBJECTS	=	:obj:Basic.p.o ¶
			:obj:Parser.p.o ¶
			:obj:Scanner.p.o ¶
			:obj:CodeGen.p.o ¶
			:obj:BasicCom.p.o

All			ÄÄ	IntBasicIIGS IntBasicLib

IntBasic	ÄÄ	IntBasicIIGS IntBasicLib

IntBasicIIGS ÄÄ	{OBJECTS}
	Link -d -c 'MPS ' -t MPST -sym on -mf ¶
		{OBJECTS} ¶
		"{Libraries}"Stubs.o ¶
		"{Libraries}"Runtime.o ¶
		"{Libraries}"Interface.o ¶
		"{PLibraries}"PasLib.o ¶
		"{Libraries}"ToolLibs.o ¶
		-o IntBasicIIGS

:Obj:	Ä	:

.p.o	Ä	.p
	Pascal -sym on {default}.p -o :obj:

:Obj:Basic.p.o		Ä	:Obj:Parser.p.o :Obj:Scanner.p.o :Obj:BasicCom.p.o
:Obj:CodeGen.p.o	Ä	:Obj:Scanner.p.o :Obj:BasicCom.p.o
:Obj:Parser.p.o		Ä	:Obj:CodeGen.p.o :Obj:Scanner.p.o :Obj:BasicCom.p.o
:Obj:Scanner.p.o	Ä	:Obj:BasicCom.p.o

IntBasicLib		ÄÄ	BasicLib.aii BasicLib.macros
	AsmIIGS BasicLib.aii -o :obj:BasicLib.obj
	Delete -i IntBasicLib
	MakeLibIIGS -l IntBasicLib -r :obj:BasicLib.obj
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Apple.Bowl/Compiler/Parser.p b/IIGS.601.SRC/A.U.G/Apple.Bowl/Compiler/Parser.p
new file mode 100644
index 0000000..d30ab43
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Apple.Bowl/Compiler/Parser.p
@@ -0,0 +1 @@
+{---------------------------------------------------------------}
{																}
{  Parser														}
{																}
{  The scanner is responsible for checking the syntax of the	}
{  program.  In the process, it calls the symbol table			}
{  subroutines.  The symmantics are built into the parser; the	}
{  symmantic subroutines call the code generator.				}
{																}
{  Copyright 1991												}
{  By the Byte Works, Inc.										}
{																}
{---------------------------------------------------------------}
{																}
{  Global subroutines:											}
{																}
{  Compile - Compile the program								}
{  InitParser - Initialize the parser							}
{																}
{---------------------------------------------------------------}

UNIT Parser;

INTERFACE

	USES Types, BASICCom, Scanner, CodeGen;

	PROCEDURE Compile;

	{ Compile the program											}

	PROCEDURE InitParser;

	{ Initialize the parser 										}

	{- Private declarations ----------------------------------------}

IMPLEMENTATION

	CONST
		maxFor = 16; {max # of nested for statements}

		{direct page map}
		{---------------}
		tempDP = 0; {temp work area}
		index = 2; {index for lvalue}
		wptr = 4; {work pointer}

	TYPE
		{labels}
		{------}
		labPtr = ^labRecord; {ptr to a label record}
		labRecord = RECORD {label record}
						next: labPtr; {next record}
						slineNumber: integer; {line number for this label}
						labelNumber: integer; {label number for this line}
						defined: boolean; {is the label defined?}
					END;

		{call statement permanent name list}
		{----------------------------------}
		callListPtr = ^callListRecord; {ptr to a call list record}
		callListRecord = RECORD {call list record}
							 next: callListPtr; {next record}
							 name: nameType; {subroutine name}
						 END;

		{private library label definitions}
		{---------------------------------}
		pvtSubID = (
			id_AssignString,
			id_Basic,
			id_BasicShutdown,
			id_BasicStartup,
			id_Cmp_EQ,
			id_Cmp_GE,
			id_Cmp_GT,
			id_Cmp_LE,
			id_Cmp_LT,
			id_Cmp_NE,
			id_Cmp_Str_EQ,
			id_Cmp_Str_NE,
			id_Color,
			id_DivD,
			id_End,
			id_EndInput,
			id_Exp,
			id_GR,
			id_HGR,
			id_HLin,
			id_Input,
			id_InputStr,
			id_IntAbs,
			id_IntSgn,
			id_Logical,
			id_Mod,
			id_Mult,
			id_PartialString,
			id_Pdl,
			id_Plot,
			id_PrintEOL,
			id_PrintInt,
			id_PrintString,
			id_PrintTab,
			id_Prompt,
			id_Rnd,
			id_Scrn,
			id_StringLength,
			id_Tab,
			id_Text80,
			id_Text,
			id_VLin,
			id_VTab
		);

	VAR
		callList: callListPtr; {call statement permanent name list}
		expressionKind: expressionTypes; {type of the last expression}
		endFound: boolean;					{has an END statement been seen?}
		forStuff: ARRAY [1..maxFor] OF
					  RECORD {for loop information}
						  symbol: symbolPtr; {loop variable}
						  termSymbol: symbolPtr; {terminating value variable}
						  stepSymbol: symbolPtr; {step value variable}
						  step: integer; {step size}
						  stepexpr: boolean; {TRUE = step defined as expression}
						  top: integer; {top of loop variable}
						  exit: integer; {exit loop variable}
					  END;
		termSymCount: integer; {used to generate unique FOR loop}
		stepSymCount: integer; {terminating and step variables }
		slineNumber: - 1..maxint; {current BASIC source line number}
		numFor: 0..maxFor; {number of active for statements}

		{lvalues}
		{-------}
		id: tokenType; {identifier}
		indexed: boolean; {is the value indexed?}
		lkind: expressionTypes; {lvalue expression kind}

		{labels}
		{------}
		labList: labPtr; {list of labels/line numbers}
		symlabel: integer; {symbol table subroutine label}
		pvtSubs: array[id_AssignString..id_VTab] of String[15];
	

		{- General Use Subroutines -------------------------------------}

	PROCEDURE InitParser;

	{ Initialize the parser 										}

		BEGIN {InitParser}
			slineNumber := - 1; {no line numbers found, yet}
			numFor := 0; {no active for loops}
			endFound := false;	{no END statement seen yet}
			termSymCount := 1; {start variable names at 1}
			stepSymCount := 1;
			labList := NIL; {no labels in the label list}
			callList := NIL; {no subroutine names called, yet}

			{ fill the array with the library names }
			pvtSubs[id_BasicShutdown] := '~BASICSHUTDOWN';
			pvtSubs[id_BasicStartup] := '~BASICSTARTUP';
			pvtSubs[id_Basic] := 'BASIC';
			pvtSubs[id_Text80] := '~TEXT80';
			pvtSubs[id_Text] := '~TEXT';
			pvtSubs[id_HGR] := '~HGR';
			pvtSubs[id_GR] := '~GR';
			pvtSubs[id_End] := '~END';
			pvtSubs[id_VTab] := '~VTAB';
			pvtSubs[id_VLin] := '~VLIN';
			pvtSubs[id_Tab] := '~TAB';
			pvtSubs[id_PrintEOL] := '~PRINTEOL';
			pvtSubs[id_PrintString] := '~PRINTSTRING';
			pvtSubs[id_PrintInt] := '~PRINTINT';
			pvtSubs[id_PrintTab] := '~PRINTTAB';
			pvtSubs[id_Plot] := '~PLOT';
			pvtSubs[id_Cmp_GE] := '~CMP_GE';
			pvtSubs[id_EndInput] := '~ENDINPUT';
			pvtSubs[id_InputStr] := '~INPUTSTR';
			pvtSubs[id_Input] := '~INPUT';
			pvtSubs[id_Prompt] := '~PROMPT';
			pvtSubs[id_HLin] := '~HLIN';
			pvtSubs[id_Color] := '~COLOR';
			pvtSubs[id_AssignString] := '~ASSIGNSTRING';
			pvtSubs[id_Logical] := '~LOGICAL';
			pvtSubs[id_Cmp_NE] := '~CMP_NE';
			pvtSubs[id_Cmp_LE] := '~CMP_LE';
			pvtSubs[id_Cmp_GT] := '~CMP_GT';
			pvtSubs[id_Cmp_LT] := '~CMP_LT';
			pvtSubs[id_Cmp_EQ] := '~CMP_EQ';
			pvtSubs[id_Cmp_Str_NE] := '~CMP_STR_NE';
			pvtSubs[id_Cmp_Str_EQ] := '~CMP_STR_EQ';
			pvtSubs[id_Mod] := '~MOD';
			pvtSubs[id_DivD] := '~DIVD';
			pvtSubs[id_Mult] := '~MULT';
			pvtSubs[id_Exp] := '~EXP';
			pvtSubs[id_Scrn] := '~SCRN';
			pvtSubs[id_Rnd] := '~RND';
			pvtSubs[id_Pdl] := '~PDL';
			pvtSubs[id_IntSgn] := '~INTSGN';
			pvtSubs[id_IntAbs] := '~INTABS';
			pvtSubs[id_StringLength] := '~STRINGLENGTH';
			pvtSubs[id_PartialString] := '~PARTIALSTRING';
		END; {InitParser}


	PROCEDURE GenLibraryCall(callnum : pvtSubID);
	
	BEGIN
		Gen0Name(m_jsl, @pvtSubs[callnum]);
	END; {MakeLibraryCall}

	PROCEDURE Match(sym: tokens; err: integer);

	{ Make sure the next token is sym								}
	{																}
	{ Parameters:													}
	{	 sym - expected symbol										}
	{	 err - error to flag if sym is not found					}

		BEGIN {Match}
			IF token.kind = sym THEN NextToken
			ELSE FlagError(err);
		END; {Match}

	{- Symbol Tables -----------------------------------------------}

	FUNCTION FindSymbol(VAR name: nameType): symbolPtr;

	{ Find a symbol in the symbol table, creating one if needed 	}
	{																}
	{ Parameters:													}
	{	 name - name of the symbol to find							}
	{																}
	{ Returns: Pointer to the symbol table entry					}

		FUNCTION CreateSymbol: symbolPtr;

		{ Create a new symbol table entry							 }
		{															 }
		{ Returns: Pointer to the symbol table entry				 }

			VAR
				sym: symbolPtr; {pointer to the new entry}

			BEGIN {CreateSymbol}
				new(sym); {get space for the entry}
				sym^.left := NIL; {initialize the tree links}
				sym^.right := NIL;
				sym^.name := name; {record the name}
				IF name[length(name)] = '$' THEN {find and record the type}
					sym^.kind := str
				ELSE sym^.kind := int;
				sym^.size := 0; {default size is 0}
				sym^.newSymbol := true; {this is a new symbol}
				CreateSymbol := sym;
			END; {CreateSymbol}

		FUNCTION Find(sym: symbolPtr): symbolPtr;

		{ Traverse the tree, looking for the symbol 				 }
		{															 }
		{ Parameters:												 }
		{	 sym - pointer to the symbol to check					 }
		{															 }
		{ Returns: Pointer to the symbol table entry				 }

			BEGIN {Find}
				IF sym^.name = name THEN BEGIN
					sym^.newSymbol := false;
					Find := sym;
				END {if}
				ELSE IF sym^.name < name THEN BEGIN
					IF sym^.left = NIL THEN BEGIN
						sym^.left := CreateSymbol;
						Find := sym^.left;
					END {if}
					ELSE Find := Find(sym^.left);
				END {else if}
				ELSE {if sym^.name > name then} BEGIN
					IF sym^.right = NIL THEN BEGIN
						sym^.right := CreateSymbol;
						Find := sym^.right;
					END {if}
					ELSE Find := Find(sym^.right);
				END; {else}
			END; {Find}

		BEGIN {FindSymbol}
			IF symbolTable = NIL THEN BEGIN
				symbolTable := CreateSymbol;
				FindSymbol := symbolTable;
			END {if}
			ELSE FindSymbol := Find(symbolTable);
		END; {FindSymbol}

	{- Line Number Labels ------------------------------------------}

	FUNCTION StatementLabel(lnum: integer; definition: boolean): integer;

	{ Find/create a label for a statement							}
	{																}
	{ Parameters:													}
	{	 lnum - line number 										}
	{	 definition - is this a definition? 						}
	{																}
	{ Variables:													}
	{	 labList - head of the label list							}
	{																}
	{ Returns: label number for the line number 					}

		LABEL 1;

		VAR
			p: labPtr; {work pointer}

		BEGIN {StatementLabel}
			p := labList; {find an existing label}
			WHILE p <> NIL DO
				IF p^.slineNumber = lnum THEN GOTO 1
				ELSE p := p^.next;
			new(p); {no label - create one}
			p^.next := labList;
			labList := p;
			p^.slineNumber := lnum;
			p^.labelNumber := GetLabel;
			p^.defined := false;
		1:
			IF definition THEN {set the defined flag}
				p^.defined := true;
			StatementLabel := p^.labelNumber; {return the label number}
		END; {StatementLabel}

	PROCEDURE CheckLabels;

	{ Check for line number labels used but not found				}
	{																}
	{ Variables:													}
	{	 labList - head of the label list							}

		VAR
			p: labPtr; {work pointer}
			strptr : StringPtr;

		BEGIN {CheckLabels}
			p := labList;
			WHILE p <> NIL DO BEGIN
				IF NOT p^.defined THEN BEGIN
					strptr := cnvis(p^.slineNumber);
					msg := concat('Line number ', strptr^, ' was used but not defined.');
					writeln('***  ', msg);
					numErrors := numErrors + 1;
				END; {if}
				p := p^.next;
			END; {while}
		END; {CheckLabels}

	{- Expressions -------------------------------------------------}

	PROCEDURE Expression(stop: tokenSet);

	{ Compile an expression 										}
	{																}
	{ Parameters:													}
	{	 stop - symbols other than eolnsy, eofsy and colon that 	}
	{		can end the expression									}
	{																}
	{ Variables:													}
	{	 expressionKind - type of the expression					}

		PROCEDURE CnvStrInt;

		{ Generate the code to convert a string to an integer		 }

			BEGIN {CnvStrInt}
				Gen0(m_pla);
				Gen0(m_pla);
				Gen1Byte(m_sta_dir, wptr);
				Gen0(m_pla);
				Gen1Byte(m_sta_dir, wptr + 2);
				Gen1Byte(m_lda_indl, wptr);
				Gen1(m_and_imm, $00FF);
			END; {CnvStrInt}

		PROCEDURE AndOp;

		{ Compile an and operation									 }

			PROCEDURE CmpOp;

			{ Compile a compare 									  }

				VAR
					ekind: expressionTypes; {temp expression kind}
					operation: tokens; {operation being performed}

				PROCEDURE PlusMinus;

				{ Compile a plus or minus							   }

					VAR
						operation: tokens; {operation being performed}

					PROCEDURE MulOp;

					{ Compile a *, / or mod 							}

						VAR
							operation: tokens; {operation being performed}

						PROCEDURE Exponent;

						{ Compile an exponent operation 				 }

							PROCEDURE Term;

							{ Compile a term							  }

								VAR
									id: tokenType; {identifier}
									symbol: symbolPtr; {symbol table entry}

								BEGIN {Term}
									CASE token.kind OF
										notsy: BEGIN {not}
											NextToken;
											Term;
											IF expressionKind = str THEN BEGIN
												FlagError(25);
												expressionKind := int;
											END; {if}
											GenLibraryCall(id_Logical);
											Gen1(m_eor_imm, 1);
										END;

										minus: BEGIN {-}
											NextToken;
											Term;
											IF expressionKind = str THEN BEGIN
												FlagError(25);
												expressionKind := int;
											END; {if}
											Gen1(m_eor_imm, $FFFF);
											Gen0(m_inc_A);
										END;

										plus: BEGIN {+}
											NextToken;
											Term;
											IF expressionKind = str THEN BEGIN
												FlagError(25);
												expressionKind := int;
											END; {if}
										END;

										lparen: BEGIN {(}
											NextToken;
											Expression(stop + [rparen]);
											Match(rparen, 24);
										END; {lparen}

										intconst: BEGIN {integer constant}
											Gen1(m_lda_imm, token.ival);
											NextToken;
											expressionKind := int;
										END;

										stringconst: BEGIN {string constant}
											Gen0String(d_str, @token.str);
											NextToken;
											expressionKind := str;
										END;

										ident: BEGIN {identifier}
											id := token; {find the identifier}
											symbol := FindSymbol(token.name);
											expressionKind := symbol^.kind;
											NextToken;
											IF token.kind = lparen THEN BEGIN
												{handle an array}
												IF symbol^.newSymbol THEN BEGIN
													symbol^.newSymbol := false;
													symbol^.size := 10;
												END; {if}
												NextToken;
												IF symbol^.kind = str THEN BEGIN
													{for strings, generate partial string}
													Gen0NameShift(m_pea, @id.name);
													Gen0Name(m_pea, @id.name);
													Expression(stop + [comma]);
													Gen0(m_pha);
													Match(comma, 13);
													Expression(stop + [rparen]);
													Gen0(m_pha);
													GenLibraryCall(id_PartialString);
												END {if}
												ELSE BEGIN
													IF symbol^.size = 0 THEN FlagError(31);
													Expression(stop + [rparen]);
													Gen0(m_asl);
													Gen0(m_tax);
													Gen0Name(m_lda_absx, @id.name);
												END; {else}
												Match(rparen, 24);
											END {if}
											ELSE IF expressionKind = str THEN BEGIN
												Gen0NameShift(m_pea, @id.name);
												Gen0Name(m_pea, @id.name);
												Gen1(m_pea, 0);
											END {else if}
											ELSE Gen0Name(m_lda_abs, @id.name);
											expressionKind := symbol^.kind;
										END;

										ascsy: BEGIN {asc function}
											NextToken;
											Match(lparen, 23);
											Expression(stop + [rparen]);
											IF expressionKind <> str THEN FlagError(33);
											CnvStrInt;
											Match(rparen, 24);
											expressionKind := int;
										END;

										lensy: BEGIN {len function}
											NextToken;
											Match(lparen, 23);
											Expression(stop + [rparen]);
											IF expressionKind <> str THEN FlagError(33);
											GenLibraryCall(id_StringLength);
											Match(rparen, 24);
											expressionKind := int;
										END;

										abssy: BEGIN {abs function}
											NextToken;
											Match(lparen, 23);
											Expression(stop + [rparen]);
											IF expressionKind <> int THEN FlagError(12);
											GenLibraryCall(id_IntAbs);
											Match(rparen, 24);
										END;

										sgnsy: BEGIN {sgn function}
											NextToken;
											Match(lparen, 23);
											Expression(stop + [rparen]);
											IF expressionKind <> int THEN FlagError(12);
											GenLibraryCall(id_IntSgn);
											Match(rparen, 24);
										END;

										pdlsy: BEGIN {pdl function}
											NextToken;
											Match(lparen, 23);
											Expression(stop + [rparen]);
											IF expressionKind <> int THEN FlagError(12);
											GenLibraryCall(id_Pdl);
											Match(rparen, 24);
										END;

										rndsy: BEGIN {rnd function}
											NextToken;
											Match(lparen, 23);
											Expression(stop + [rparen]);
											IF expressionKind <> int THEN FlagError(12);
											GenLibraryCall(id_Rnd);
											Match(rparen, 24);
										END;

										scrnsy: BEGIN {scrn function}
											NextToken;
											Match(lparen, 23);
											Expression(stop + [comma, rparen]);
											IF expressionKind <> int THEN FlagError(12);
											Match(comma, 13);
											Gen0(m_pha);
											Expression(stop + [rparen]);
											IF expressionKind <> int THEN FlagError(12);
											Gen0(m_plx);
											GenLibraryCall(id_Scrn);
											Match(rparen, 24);
										END;

										OTHERWISE FlagError(27);

									END; {case}
								END; {Term}

							BEGIN {Exponent}
								Term;
								WHILE token.kind = exp DO BEGIN
									IF expressionKind = str THEN BEGIN
										FlagError(25);
										expressionKind := int;
									END; {if}
									NextToken;
									Gen0(m_pha);
									Term;
									IF expressionKind = str THEN BEGIN
										FlagError(25);
										expressionKind := int;
									END; {if}
									Gen0(m_plx);
									GenLibraryCall(id_Exp);
								END; {while}
							END; {MulOp}

						BEGIN {MulOp}
							Exponent;
							WHILE token.kind IN [mult, divd, modsy] DO BEGIN
								operation := token.kind;
								IF expressionKind = str THEN BEGIN
									FlagError(25);
									expressionKind := int;
								END; {if}
								NextToken;
								Gen0(m_pha);
								Exponent;
								IF expressionKind = str THEN BEGIN
									FlagError(25);
									expressionKind := int;
								END; {if}
								Gen0(m_plx);
								IF operation = mult THEN
									GenLibraryCall(id_Mult)
								ELSE IF operation = divd THEN
									GenLibraryCall(id_DivD)
								ELSE
									GenLibraryCall(id_Mod);
							END; {while}
						END; {MulOp}

					BEGIN {PlusMinus}
						MulOp;
						WHILE token.kind IN [plus, minus] DO BEGIN
							operation := token.kind;
							IF expressionKind = str THEN BEGIN
								FlagError(25);
								expressionKind := int;
							END; {if}
							NextToken;
							Gen0(m_pha);
							MulOp;
							IF expressionKind = str THEN BEGIN
								FlagError(25);
								expressionKind := int;
							END; {if}
							IF operation = plus THEN BEGIN
								Gen0(m_clc);
								Gen1Byte(m_adc_s, 1);
								Gen0(m_plx);
							END {if}
							ELSE BEGIN
								Gen1Byte(m_sta_dir, tempDP);
								Gen0(m_pla);
								Gen0(m_sec);
								Gen1Byte(m_sbc_dir, tempDP);
							END; {else}
						END; {while}
					END; {PlusMinus}

				BEGIN {CmpOp}
					PlusMinus; {evaluate the term}
					WHILE token.kind IN [eq, lt, gt, le, ge, ne] DO BEGIN
						ekind := expressionKind; {save the expression kind}
						operation := token.kind; {record the operation}
						NextToken; {skip the operation}
						IF ekind = int THEN {save the value}
							Gen0(m_pha);
						PlusMinus; {get the other term}
						IF expressionKind <> ekind THEN {check for type conflict}
							FlagError(32);
						IF ekind = str THEN {do the compare}
							CASE operation OF
								eq: GenLibraryCall(id_Cmp_Str_EQ);
								ne: GenLibraryCall(id_Cmp_Str_NE);
								OTHERWISE FlagError(34);
							END {case}
						ELSE {if ekind = int then}
							CASE operation OF
								eq: GenLibraryCall(id_Cmp_EQ);
								lt: GenLibraryCall(id_Cmp_LT);
								gt: GenLibraryCall(id_Cmp_GT);
								le: GenLibraryCall(id_Cmp_LE);
								ge: GenLibraryCall(id_Cmp_GE);
								ne: GenLibraryCall(id_Cmp_NE);
							END; {case}
						expressionKind := int;
					END; {while}
				END; {CmpOp}

			BEGIN {AndOp}
				CmpOp;
				WHILE token.kind = andsy DO BEGIN
					IF expressionKind = str THEN BEGIN
						FlagError(25);
						expressionKind := int;
					END; {if}
					NextToken;
					GenLibraryCall(id_Logical);
					Gen0(m_pha);
					CmpOp;
					IF expressionKind = str THEN BEGIN
						FlagError(25);
						expressionKind := int;
					END; {if}
					GenLibraryCall(id_Logical);
					Gen1Byte(m_and_s, 1);
					Gen0(m_plx);
				END; {while}
			END; {AndOp}

		BEGIN {Expression}
			AndOp; {evaluate the term}
			WHILE token.kind = orsy DO BEGIN {handle or operations}
				IF expressionKind = str THEN BEGIN
					FlagError(25);
					expressionKind := int;
				END; {if}
				NextToken;
				GenLibraryCall(id_Logical);
				Gen0(m_pha);
				AndOp;
				IF expressionKind = str THEN BEGIN
					FlagError(25);
					expressionKind := int;
				END; {if}
				GenLibraryCall(id_Logical);
				Gen1Byte(m_ora_s, 1);
				Gen0(m_plx);
			END; {while}
			{skip any extraneous tokens}
			IF NOT (token.kind IN stop + [eolnsy, eofsy, colon]) THEN BEGIN
				FlagError(11);
				WHILE NOT (token.kind IN stop + [eolnsy, eofsy, colon]) DO NextToken;
			END; {if}
		END; {Expression}

	PROCEDURE LValue;

	{ Compile an l-value											}

		VAR
			symbol: symbolPtr; {symbol table entry}

		BEGIN {LValue}
			IF token.kind = ident THEN BEGIN
				id := token; {save the identifier}
				symbol := FindSymbol(token.name);
				lkind := symbol^.kind; {record the type}
				NextToken; {skip the identifier}
				IF token.kind = lparen THEN BEGIN
					IF symbol^.newSymbol THEN BEGIN {make sure the variable is declared}
						symbol^.newSymbol := false;
						symbol^.size := 10;
					END; {if}
					IF (symbol^.kind = int) AND (symbol^.size = 0) THEN FlagError(31);
					indexed := true; {find the index}
					NextToken;
					Expression([rparen]);
					Match(rparen, 24);
					IF symbol^.kind = int THEN Gen0(m_asl)
					ELSE Gen0(m_dec_a);
					Gen1Byte(m_sta_dir, index);
				END {if}
				ELSE indexed := false; {not indexed}
			END {if}
			ELSE FlagError(27);
		END; {LValue}

	PROCEDURE Store;

	{ Store a result												}

		BEGIN {Store}
			IF expressionKind <> lkind THEN {check for type conflict}
				FlagError(32);
			IF indexed THEN BEGIN
				IF lkind = str THEN BEGIN
					Gen0NameShift(m_pea, @id.name); {handle indexed string}
					Gen0Name(m_pea, @id.name);
					Gen1Byte(m_lda_dir, index);
					Gen0(m_clc);
					Gen1Byte(m_adc_s, 1);
					Gen1Byte(m_sta_s, 1);
					GenLibraryCall(id_AssignString);
				END {if}
				ELSE BEGIN
					Gen1Byte(m_ldx_dir, index); {handle int array assignment}
					Gen0Name(m_sta_absx, @id.name);
				END; {else}
			END {if}
			ELSE BEGIN
				IF lkind = str THEN BEGIN
					Gen0NameShift(m_pea, @id.name); {handle unindexed string}
					Gen0Name(m_pea, @id.name);
					GenLibraryCall(id_AssignString);
				END {if}
				ELSE Gen0Name(m_sta_abs, @id.name); {handle int assignment}
			END; {else}
		END; {Store}

	{- Statements --------------------------------------------------}

	PROCEDURE Statement;

	{ Compile a statement											}

		PROCEDURE CheckEol;

		{ Check for garbage at the end of the line					 }

			BEGIN {CheckEol}
				IF NOT (token.kind IN [colon, eolnsy]) THEN BEGIN
					FlagError(10);
					WHILE NOT (token.kind IN [colon, eolnsy, eofsy]) DO NextToken;
				END; {if}
			END; {CheckEol}

		PROCEDURE CallStatement;

		{ compile a call statement									 }

			VAR
				nPtr: callListPtr; {work pointer}
				i: integer; {loop variable}

			BEGIN {CallStatement}
				NextToken; {skip the call}
				IF token.kind = ident THEN BEGIN
					new(nPtr); {allocate a new name record}
					nPtr^.next := callList;
					callList := nPtr;
					FOR i := 1 TO length(token.name) DO {uppercase the name}
						IF token.name[i] IN ['a'..'z'] THEN token.name[i] := chr(ord(token.name[i]) - ord('a') + ord('A'));
					nPtr^.name := token.name; {make a permanent copy of the name}
					Gen0Name(m_jsl, @nPtr^.name);
					NextToken; {skip the subroutine name}
					CheckEol; {check for garbage on the line}
				END {if}
				ELSE FlagError(27);
			END; {CallStatement}

		PROCEDURE ColorStatement;

		{ compile a color statement 								 }

			BEGIN {ColorStatement}
				NextToken;
				Match(eq, 3);
				Expression([]);
				IF expressionKind <> int THEN
					FlagError(12);
				GenLibraryCall(id_Color);
			END; {ColorStatement}

		PROCEDURE DimStatement;

		{ compile a dim statement									 }

			VAR
				done: boolean; {loop termination variable}
				symbol: symbolPtr; {symbol table pointer}

			BEGIN {DimStatement}
				NextToken; {skip the dim}
				done := false; {loop until done}
				REPEAT
					IF token.kind = ident THEN BEGIN {declare the identifier}
						symbol := FindSymbol(token.name);
						IF NOT symbol^.newSymbol THEN {make sure it is unique}
							FlagError(22);
						symbol^.newSymbol := false;
						NextToken;
						Match(lparen, 23); {make suer the ( exists}
						IF token.kind = intconst THEN {find the array dimension}
							BEGIN
							IF token.ival > 0 THEN symbol^.size := token.ival
							ELSE FlagError(26);
							NextToken;
						END {if}
						ELSE FlagError(19);
						Match(rparen, 24); {make sure the ) exists}
						IF token.kind = comma THEN {check for another array}
							NextToken
						ELSE done := true;
					END {if}
					ELSE BEGIN
						FlagError(27); {handle a missing identifier}
						WHILE NOT (token.kind IN [colon, eolnsy, eofsy]) DO NextToken;
					END; {else}
				UNTIL done;
				CheckEol; {check for garbage on the line}
			END; {DimStatement}

		PROCEDURE ForStatement;

		{ compile a for statement									 }

			VAR
				forTemp: nameType; {fortemp label name space}
				stepTemp: nameType; {steptemp label name space}
				negative: boolean; {is the step negative?}
				symbol: symbolPtr; {pointer to the for loop symbol}

			PROCEDURE GenUniqueName(VAR name: nameType; num: integer);

				VAR
					digits: string[5];
					i, temp: integer;

				BEGIN
					digits := '00000'; { initialize digits string }
					i := 5; { character position }
					WHILE (num <> 0) AND (i <> 0) DO BEGIN
						temp := num MOD 10;
						num := num DIV 10;
						digits[i] := chr(ord('0') + temp);
						i := i - 1;
					END; {while}
					name := concat('~', name, '_', digits); {build string}
				END; {GenUniqueName}

			BEGIN {ForStatement}
				{		if firstFor then begin				 {if this is the first, create ~FORTEMPS}
{			firstFor := false;
		forTemp := '~FORTEMPS';
		symbol := FindSymbol(forTemp);
		symbol^.size := maxFor-1;
		stepTemp := '~STEPTEMPS';
		symbol := FindSymbol(stepTemp);
		symbol^.size := maxFor-1;
	end; {if}
				IF numFor = maxFor THEN BEGIN {handle too many nested for statements}
					FlagError(16);
					WHILE NOT (token.kind IN [colon, eolnsy, eofsy]) DO NextToken;
				END {if}
				ELSE BEGIN
					numFor := numFor + 1; {get a for array area}
					NextToken; {skip the for}
					forStuff[numFor].stepexpr := false; {init flag}
					IF token.kind = ident THEN BEGIN {do the initial assignment}
						symbol := FindSymbol(token.name);
						forStuff[numFor].symbol := symbol;
						IF (symbol^.kind <> int) OR (symbol^.size <> 0) THEN FlagError(17);
						NextToken;
					END {if}
					ELSE FlagError(17);
					Match(eq, 3);
					Expression([tosy]);
					Gen0Name(m_sta_abs, @symbol^.name);
					Match(tosy, 18); {check for the to}
					Expression([stepsy]); {evaluate and save the stop value}
					IF expressionKind = str THEN BEGIN
						FlagError(25);
						expressionKind := int;
					END; {if}
					forTemp := 'FORTEMP';
					GenUniqueName(forTemp, termSymCount);
					symbol := FindSymbol(forTemp);
					forStuff[numFor].termSymbol := symbol;
					termSymCount := termSymCount + 1;
					Gen0Name(m_sta_abs, @forTemp);
					IF token.kind = stepsy THEN BEGIN {evaluate the step size}
						NextToken;
						negative := false;
						IF token.kind = minus THEN BEGIN
							negative := true;
							NextToken;
						END; {if}
						IF token.kind = intconst THEN BEGIN
							IF negative THEN forStuff[numFor].step := - token.ival
							ELSE forStuff[numFor].step := token.ival;
							NextToken;
						END {if}
						ELSE BEGIN { get step expression }
							Expression([]); {evaluate and save the step value}
							IF expressionKind = str THEN BEGIN
								FlagError(25);
								expressionKind := int;
							END; {if}
							IF negative THEN BEGIN { negate result of expression }
								Gen1(m_eor_imm, $FFFF);
								Gen0(m_inc_A);
							END; {if}
							stepTemp := 'STEPTEMP';
							GenUniqueName(stepTemp, stepSymCount);
							symbol := FindSymbol(stepTemp);
							forStuff[numFor].stepSymbol := symbol;
							stepSymCount := stepSymCount + 1;
							Gen0Name(m_sta_abs, @stepTemp);
							forStuff[numFor].stepexpr := true;
						END {else}
					END {if}
					ELSE forStuff[numFor].step := 1;
					WITH forStuff[numFor] DO BEGIN {allocate loop variables}
						top := GetLabel;
						Gen0Label(d_lab, top);
					END; {with}
				END; {else}
				CheckEol; {check for junk at the end of the line}
			END; {ForStatement}

		PROCEDURE GosubStatement;

		{ compile a gosub statement 								 }

			BEGIN {GosubStatement}
				NextToken;
				IF token.kind = intconst THEN BEGIN
					Gen0Label(m_jsr, StatementLabel(token.ival, false));
					NextToken;
				END {if}
				ELSE IF token.kind = stringconst THEN BEGIN { line label }
					Gen0Name(m_jsr, @token.str);
					NextToken;
				END {else if}
				ELSE FlagError(9);
				CheckEol;
			END; {GosubStatement}

		PROCEDURE GotoStatement;

		{ compile a goto statement									 }

			BEGIN {GotoStatement}
				NextToken;
				IF token.kind = intconst THEN BEGIN
					Gen0Label(m_jmp, StatementLabel(token.ival, false));
					NextToken;
				END {if}
				ELSE IF token.kind = stringconst THEN BEGIN { line label }
					Gen0Name(m_jmp, @token.str);
					NextToken;
				END {else if}
				ELSE FlagError(9);
				CheckEol;
			END; {GotoStatement}

		PROCEDURE HlinStatement;

		{ compile an hlin statement 								 }

			BEGIN {HlinStatement}
				NextToken;
				Expression([comma]);
				Gen0(m_pha);
				Match(comma, 13);
				Expression([atsy]);
				Gen0(m_pha);
				Match(atsy, 14);
				Expression([]);
				Gen0(m_plx);
				Gen0(m_ply);
				GenLibraryCall(id_HLin);
			END; {HlinStatement}

		PROCEDURE IfStatement;

		{ compile an if statement									 }

			VAR
				lab, lab2: integer; {branch points}

			BEGIN {IfStatement}
				NextToken; {skip the if}
				Expression([thensy]); {evaluate the condition}
				IF expressionKind = str THEN BEGIN
					FlagError(25);
					expressionKind := int;
				END; {if}
				Gen0(m_tax);
				Match(thensy, 15); {make sure the then is there}
				lab := GetLabel; {get a true branch label}
				IF token.kind = intconst THEN BEGIN
					Gen0Relative(m_beq, lab); {branch if false}
					Gen0Label(m_jmp, {handle an "if exp then number"}
							  StatementLabel(token.ival, false));
					Gen0Label(d_lab, lab);
					NextToken;
					CheckEol;
				END {if}
				ELSE IF token.kind = stringconst THEN BEGIN {line label}
					Gen0Relative(m_beq, lab); {branch if false}
					Gen0Name(m_jmp, @token.str); {handle an 'if exp then "label"'}
					Gen0Label(d_lab, lab);
					NextToken;
					CheckEol;
				END {else if}
				ELSE BEGIN
					Gen0Relative(m_bne, lab); {branch if true}
					lab2 := GetLabel; {handle a statement after the then}
					Gen0Label(m_jmp, lab2);
					Gen0Label(d_lab, lab);
					Statement;
					Gen0Label(d_lab, lab2);
				END; {else}
			END; {IfStatement}

		PROCEDURE InputStatement;

		{ compile a input statement 								 }

			VAR
				done: boolean; {loop termination}

			BEGIN {InputStatement}
				NextToken; {skip INPUT}
				IF token.kind = stringconst THEN {print the prompt, if any}
					BEGIN
					Expression([comma]);
					GenLibraryCall(id_PrintString);
					Match(comma, 13);
				END {if}
				ELSE GenLibraryCall(id_Prompt); {print the input prompt}
				done := false; {read the values}
				REPEAT
					LValue;
					IF lkind = int THEN
						GenLibraryCall(id_Input)
					ELSE
						GenLibraryCall(id_InputStr);
					expressionKind := lkind;
					Store;
					IF token.kind = comma THEN NextToken
					ELSE done := true;
				UNTIL done;
				GenLibraryCall(id_EndInput); {dump the rest of the input line}
				CheckEol; {make sure we are at the end of line}
			END; {InputStatement}

		PROCEDURE LetStatement;

		{ compile an assingment statement							 }

			BEGIN {LetStatement}
				LValue;
				Match(eq, 3);
				Expression([]);
				Store;
				CheckEol;
			END; {LetStatement}

		PROCEDURE NextStatement;

		{ compile a next statement									 }

			LABEL 1;

			VAR
				exit: integer; {temp label; for long branch}
				do_cmp: integer; {temp label}
				symbol: symbolPtr; {for loop variable}

			BEGIN {NextStatement}
			1:
				IF numFor = 0 THEN BEGIN
					FlagError(20);
					WHILE NOT (token.kind IN [colon, eolnsy, eofsy]) DO NextToken;
				END {if}
				ELSE BEGIN
					NextToken; {skip the next or comma}
					IF token.kind = ident THEN BEGIN {check the loop variable}
						symbol := FindSymbol(token.name);
						IF symbol <> forStuff[numFor].symbol THEN FlagError(21);
						NextToken;
					END {if}
					ELSE FlagError(17);
					WITH forStuff[numFor] DO BEGIN
						{increment/decrement the loop variable}
						IF stepexpr = true THEN BEGIN
							Gen0(m_clc);
							Gen0Name(m_lda_abs, @symbol^.name);
							Gen0Name(m_adc_abs, @stepSymbol^.name);
							Gen0Name(m_sta_abs, @symbol^.name);
							{ test loop condition }
							Gen0Name(m_lda_abs, @termSymbol^.name);
							Gen0(m_pha);
							Gen0Name(m_lda_abs, @symbol^.name);
							Gen0Name(m_ldx_abs, @stepSymbol^.name); { get step value }
							do_cmp := GetLabel;
							Gen0Relative(m_bpl, do_cmp); { if positive, branch }
							Gen1Byte(m_sta_s, 1); { else store variable value in stack }
							Gen0Name(m_lda_abs, @termSymbol^.name);
							Gen0Label(d_lab, do_cmp);
						END {if}
						ELSE BEGIN
							IF step = 1 THEN Gen0Name(m_inc_abs, @symbol^.name)
							ELSE IF step = - 1 THEN Gen0Name(m_dec_abs, @symbol^.name)
							ELSE BEGIN
								Gen0(m_clc);
								Gen0Name(m_lda_abs, @symbol^.name);
								Gen1(m_adc_imm, step);
								Gen0Name(m_sta_abs, @symbol^.name);
							END; {else}
							IF step < 0 THEN BEGIN {test loop condition}
								Gen0Name(m_lda_abs, @symbol^.name);
								Gen0(m_pha);
								Gen0Name(m_lda_abs, @termSymbol^.name);
							END {if}
							ELSE BEGIN
								Gen0Name(m_lda_abs, @termSymbol^.name);
								Gen0(m_pha);
								Gen0Name(m_lda_abs, @symbol^.name);
							END; {else}
						END; {else}
						GenLibraryCall(id_Cmp_GE);
						Gen0(m_tax);
						exit := GetLabel;
						Gen0Relative(m_beq, exit);
						Gen0Label(m_jmp, top); {loop}
						Gen0Label(d_lab, exit); {exit loop label}
					END; {with}
					numFor := numFor - 1;
				END; {else}
				IF token.kind = comma THEN {allow for multiple next vars}
					GOTO 1;
				CheckEol; {check for junk at the end of the line}
			END; {NextStatement}

		PROCEDURE PlotStatement;

		{ compile a plot statement									 }

			BEGIN {PlotStatement}
				NextToken;
				Expression([comma]);
				Gen0(m_pha);
				Match(comma, 13);
				Expression([]);
				Gen0(m_plx);
				GenLibraryCall(id_Plot);
			END; {PlotStatement}

		PROCEDURE PrintStatement;

		{ compile a print statement 								 }

			VAR
				lastWasSemicolon: boolean; {was the last token a semicolon?}

			BEGIN {PrintStatement}
				NextToken;
				lastWasSemicolon := false;
				REPEAT
					IF token.kind = comma THEN BEGIN
						lastWasSemicolon := true;
						GenLibraryCall(id_PrintTab);
						NextToken;
					END {if}
					ELSE IF token.kind = semicolon THEN BEGIN
						lastWasSemicolon := true;
						NextToken;
					END {else if}
					ELSE IF NOT (token.kind IN [colon, eolnsy, eofsy]) THEN BEGIN
						lastWasSemicolon := false;
						Expression([comma, semicolon]);
						IF expressionKind = int THEN
							GenLibraryCall(id_PrintInt)
						ELSE
							GenLibraryCall(id_PrintString);
					END; {else}
				UNTIL token.kind IN [colon, eolnsy, eofsy];
				IF NOT lastWasSemicolon THEN
					GenLibraryCall(id_PrintEOL);
			END; {PrintStatement}

		PROCEDURE RemStatement;

		{ compile a rem statement									 }

			BEGIN {RemStatement}
				WHILE NOT (ch IN [chr(ch_eoln), chr(ch_eof)]) DO NextCh;
				NextToken;
			END; {RemStatement}

		PROCEDURE TabStatement;

		{ compile a tab statement									 }

			BEGIN {TabStatement}
				NextToken;
				Expression([]);
				GenLibraryCall(id_Tab);
			END; {TabStatement}

		PROCEDURE VlinStatement;

		{ compile an vlin statement 								 }

			BEGIN {VlinStatement}
				NextToken;
				Expression([comma]);
				Gen0(m_pha);
				Match(comma, 13);
				Expression([atsy]);
				Gen0(m_pha);
				Match(atsy, 14);
				Expression([]);
				Gen0(m_plx);
				Gen0(m_ply);
				GenLibraryCall(id_VLin);
			END; {VlinStatement}

		PROCEDURE VtabStatement;

		{ compile a vtab statement									 }

			BEGIN {VtabStatement}
				NextToken;
				Expression([]);
				GenLibraryCall(id_VTab);
			END; {VtabStatement}

		BEGIN {Statement}
			CASE token.kind OF
				dimsy: DimStatement;
				callsy: CallStatement;
				colorsy: ColorStatement;
				endsy: BEGIN
					NextToken;
					Gen0Name(m_jml, @pvtSubs[id_End]);
					endFound := true;	{yes, we've seen the END statement}
				END;
				forsy: ForStatement;
				gosubsy: GosubStatement;
				gotosy: GotoStatement;
				grsy: BEGIN
					NextToken; GenLibraryCall(id_GR);
				END;
				hgrsy: BEGIN
					NextToken; GenLibraryCall(id_HGR);
				END;
				hlinsy: HlinStatement;
				ifsy: IfStatement;
				inputsy: InputStatement;
				nextsy: NextStatement;
				plotsy: PlotStatement;
				popsy: BEGIN
					NextToken; Gen0(m_ply);
				END;
				printsy: PrintStatement;
				remsy: RemStatement;
				returnsy: BEGIN
					NextToken; Gen0(m_rts);
				END;
				tabsy: TabStatement;
				textsy: BEGIN
					NextToken; GenLibraryCall(id_Text);
				END;
				text80sy: BEGIN
					NextToken; GenLibraryCall(id_Text80);
				END;
				vlinsy: VlinStatement;
				vtabsy: VtabStatement;
				letsy: BEGIN
					NextToken; LetStatement;
				END;
				OTHERWISE LetStatement;
			END; {case}
		END; {Statement}

	{- Main Compiler -----------------------------------------------}

	PROCEDURE Compile;

	{ Compile the program											}

		BEGIN {Compile}
			Gen0Name(d_bgn, @pvtSubs[id_Basic]); {generate the start of the program}
			GenLibraryCall(id_BasicStartup); {set up the BASIC environment}
			WHILE token.kind <> eofsy DO BEGIN
				IF token.kind = intconst THEN BEGIN {handle a line number}
					IF token.ival <= slineNumber THEN FlagError(8);
					slineNumber := token.ival;
					Gen0Label(d_lab, StatementLabel(token.ival, true));
					NextToken;
				END {if}
				ELSE IF token.kind = stringconst THEN BEGIN { line label!}
					Gen0Name(d_lab, @token.str);
					NextToken; { skip the label }
				END; {else}

				IF (token.kind <> eolnsy) AND (token.kind <> eofsy) THEN BEGIN
					Statement; {compile a statement}
					WHILE token.kind = colon DO BEGIN {compile any other statements}
						NextToken;
						Statement;
					END; {while}
					IF (token.kind <> eolnsy) AND (token.kind <> eofsy) THEN BEGIN {check for garbage on the line}
						FlagError(10);
						WHILE NOT (token.kind IN [eolnsy, eofsy]) DO NextToken;
					END; {if}
				END; {if}
				IF token.kind <> eofsy THEN
					NextToken; {skip the eoln}
				while token.kind = eolnsy do
					NextToken;	{ allow blank lines }
			END; {while}
			IF NOT endFound THEN	{ if no END statement seen, include implied END }
				GenLibraryCall(id_BasicShutdown); {return to the launcher}
			GenStrings; {generate any string constants}
			Gen0(d_end); {flag the end of the program}
			GenSymbols; {create the symbol segment}
			CheckLabels; {check for undefined labels}
		END; {Compile}

END.
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Apple.Bowl/Compiler/Scanner.p b/IIGS.601.SRC/A.U.G/Apple.Bowl/Compiler/Scanner.p
new file mode 100644
index 0000000..5758bba
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Apple.Bowl/Compiler/Scanner.p
@@ -0,0 +1 @@
+{---------------------------------------------------------------}
{																}
{  Scanner														}
{																}
{  The scanner is responsible for reading and converting the	}
{  source file into a series of tokens the compiler 			}
{  understands.  This scanner is also the interface between 	}
{  the compiler and the ORCA shell. 							}
{																}
{  Copyright 1991												}
{  By the Byte Works, Inc.										}
{																}
{---------------------------------------------------------------}
{																}
{  Global subroutines:											}
{																}
{  FlagError - Flag an error									}
{  InitScanner - Initialize the scanner 						}
{  NextCh - Read the next character from the source file		}
{  NextToken - Read the next token from the source file 		}
{  ShutDownScanner - Shut down the scanner						}
{  TermError - Handle a terminal error							}
{																}
{---------------------------------------------------------------}

UNIT Scanner;

INTERFACE

	USES
		OSUtils,											{ for FInfo record }
		Files,												{ for HSetFileInfo }
		Memory,												{ for NewPtr, DisposPtr }
		CursorCtl,											{ for the spinning cursor }
		Signal,												{ to handle command-period }
		PasLibIntf,											{ for standard I/O, etc. }
		IntEnv,												{ for argV and argC }
		Types,
 		BASICCom;
		
		{---------------------------------------------------------------}

	CONST
		{special character codes}
		{-----------------------}
		ch_eoln = 13; {end of line}
		ch_eof = 0; {end of file}

	VAR
		ch: char; {current character}

		{---------------------------------------------------------------}

	PROCEDURE InitScanner;

	{ Initialize the file input module								}

	PROCEDURE FlagError(errNum: integer);

	{ Flag an error 												}
	{																}
	{ Parameters:													}
	{	 errNum - error number										}

	PROCEDURE NextCh;

	{ Read the next character from the source file					}
	{																}
	{ Variables:													}
	{	 ch - character read from the file							}
	{	 cp - pointer to the next character 						}
	{	 fileLength - number of characters left in the file 		}

	PROCEDURE NextToken;

	{ Read the next token from the source file						}
	{																}
	{ Variables:													}
	{	 ch - current character 									}
	{	 token - token read 										}

	PROCEDURE ShutDownScanner;

	{ Shut down the file input module								}

	PROCEDURE TermError(err: integer);

	{ Handle a terminal error										}
	{																}
	{ Parameters:													}
	{	 err - terminal error number								}

	{- Private declarations ----------------------------------------}

IMPLEMENTATION

	CONST
		minCh = 0; {range of characters}
		maxCh = 127;
		maxErrors = 6; {max errors on one source line}
		version = '1.1';

		{tokens}
		{------}
		tokenLength = 8; {length of a token string}

	TYPE
		{character types}
		chType = (chLetter, chNumber, chQuote, chIllegal, chcolon, chComma, chSemicolon, chLParen, chRParen, chEq, chLt, chGt,
				  chPound, chPlus, chMinus, chMult, chDivd, chExp, chSpace, chDollar, chEof, chEoln);
		tokenString = string[8]; {token string}

	VAR
		{error tracking and reporting}
		{----------------------------}
		numErr: integer; {number of errors found on this line}
		errors: ARRAY [1..maxErrors] OF {array of errors on the current line}
					RECORD
						err: integer; {error number}
						pos: integer; {position in source line}
						lineNumber: integer; {source line number}
					END;

		{lexical variables}
		{-----------------}
		chTypes: ARRAY [char] OF chType; {character types array}

		{source file variables}
		{---------------------}
		cp: StringPtr; {pointer to the next char in the file}
		srcBuf: bytePtr; {pointer to beginning of source file}
		cpos: integer; {column number for ch}
		tpos: integer; {cpos at start of last token}
		tlineNumber: integer; {lineNumber at start of last token}
		fileLength: longint; {number of characters left in the file}
		lineStart: bytePtr; {cp at start of current line}

		{tokens}
		{------}
		tokenNames: ARRAY [abssy..vtabsy] OF tokenString; {names of the tokens}
		tokenIndex: ARRAY ['A'..'['] OF tokens; {start index for each letter}

		{- Subroutines -------------------------------------------------}

 {*----------------------------------*
  | Stop - terminate execution  	 |
  *----------------------------------*}

	PROCEDURE Stop(msg: Str255);

		BEGIN 														 {Stop}
			IF Length(msg) > 0 THEN
				BEGIN
				PLFlush (Output);
				WriteLn(Diagnostic);
				WriteLn(Diagnostic, msg);
				END;

			IF interrupted THEN IEexit(-9);
	{ don't worry about closing the files we opened.  The Shell
		will do so if appropriate.}
			IEexit(Ord(retCode)); 					 {exit, returning the appropriate status code}
		END;															 {Stop}

 {*--------------------------------------*
  | Intr - Process external interrupt	 |
  | this routine is passed to IEsigset	 |
 *--------------------------------------*}

	PROCEDURE Intr;

		BEGIN 														 {Intr}
			interrupted := True;						 {we test this switch periodically}
		END;															 {Intr}

	{$S Init}

{*-------------------------------------------------------------*
 | SyntaxError - Report an error in parameters or options	   |
 *-------------------------------------------------------------*}

	PROCEDURE SyntaxError(suffix: Str255);

		BEGIN 														 {SyntaxError}
			PLFlush (Output);
			WriteLn(Diagnostic, '### ', progName, ' - ', suffix);
			Stop(Concat('# Usage: ', progName, ' sourcefile [-o objfile] [-l] [-s] [-p]'));
		END;															 {SyntaxError}

 {*-----------------------------------*
  | LetterOpt - Set a letter option	  |
  *-----------------------------------*}

	PROCEDURE LetterOpt(opt: Char; VAR argVIndex: integer);
 { note only one option is supported.  argVIndex is passed to
 this routine so options that have arguments can 'eat' them}

		BEGIN 														 {LetterOpt}
			CASE opt OF
				'p', 'P': quiet := False;
				's', 'S': listSymbols := True;
				'l', 'L': listSource := True;
				'h', 'H': showOffsets := True;
				'o', 'O': BEGIN
							keep := True;
							argVIndex := argVIndex + 1;
							IF Length(ArgV^[argVIndex]^) = 0 THEN
								SyntaxError('-o option requires a filename')
							ELSE
								keepFile := ArgV^[argVIndex]^;
						  END;
				OTHERWISE SyntaxError(Concat(ArgV^[argVIndex]^, ' <invalid option>'));
			END;														 {case}
		END;															 {LetterOpt}

	PROCEDURE FlagError{errNum: integer};

	{ Flag an error 												}
	{																}
	{ Parameters:													}
	{	 errNum - error number										}

		BEGIN {FlagError}
			IF numErr < maxErrors THEN BEGIN {prevent an array overflow}
				numErr := numErr + 1; {record the error}
				numErrors := numErrors + 1;
				IF numErr = maxErrors THEN errNum := 2;
				WITH errors[numErr] DO BEGIN
					err := errNum;
					pos := tpos;
					lineNumber := tlineNumber;
				END; {with}
			END; {if}
		END; {FlagError}

	PROCEDURE NextCh;

	{ Read the next character from the source file					}
	{																}
	{ Variables:													}
	{	 ch - character read from the file							}
	{	 cp - pointer to the next character 						}
	{	 fileLength - number of characters left in the file 		}

		PROCEDURE PrintLine;

		{ Print the current line (if necessary) 					 }
		{															 }
		{ Variables:												 }
		{	 lineStart - cp at the start of the last line			 }
		{	 listSource - list the source file? 					 }
		{	 numErr - number of errors on this line 				 }
		{	 lineNumber - current line number						 }

			VAR
				i: 1..maxErrors; {loop variable}
				ptr: StringPtr; {used to print the line}
				tmpstr : StringPtr;

			PROCEDURE ShowLine(VAR f : TEXT);
			
				BEGIN
					write(f, lineNumber: 4, ' '); {print the line number}
					ptr := StringPtr(lineStart); {print the line}
					WHILE (ptr^[0] <> chr(ch_eoln)) DO BEGIN
						write(f, ptr^[0]);
						ptr := StringPtr(ord4(ptr) + 1);
					END; {while}
					WriteLn(f);
				END;
			
			BEGIN {PrintLine}
				IF listSource THEN
					ShowLine(output);
				IF numErr <> 0 THEN BEGIN
					PLFlush(output);
					write(Diagnostic, '# ');
					ShowLine(Diagnostic);
					FOR i := 1 TO numErr DO BEGIN {print any errors}
						CASE errors[i].err OF
							1: msg := 'illegal character';
							2: msg := 'further errors supressed';
							3: msg := '''='' expected';
							4: BEGIN
								tmpstr := cnvis(nameLength);
								msg := concat('identifiers must be ', tmpstr^,' or fewer characters long');
							   END;
							5: BEGIN
								tmpstr := cnvis(maxint);
								msg := concat('integers cannot exceed ', tmpstr^);
							   END;
							6: BEGIN
								tmpstr := cnvis(stringLength);
								msg := concat('string constants must be ', tmpstr^, ' or fewer characters long');
							   END;
							7: msg := '''"'' expected';
							8: msg := 'illegal line number';
							9: msg := 'line number expected';
							10: msg := 'extra symbols ignored';
							11: msg := 'error in expression';
							12: msg := 'expression type must be integer';
							13: msg := ''','' expected';
							14: msg := '''at'' expected';
							15: msg := '''then'' expected';
							16: msg := 'too many nested for loops';
							17: msg := 'loop variable must be an integer';
							18: msg := '''to'' expected';
							19: msg := 'integer constant expected';
							20: msg := 'next without for';
							21: msg := 'next does not match for';
							22: msg := 'duplicate variable';
							23: msg := '''('' expected';
							24: msg := ''')'' expected';
							25: msg := 'operation cannot be performed on a string';
							26: msg := 'array size must be greater than 0';
							27: msg := 'identifier expected';
							28: msg := 'implementation restriction: program is too large';
							29: msg := 'implementation restriction: too many local labels';
							30: msg := 'implementation restriction: too many string constants';
							31: msg := 'variable is not an array';
							32: msg := 'type conflict';
							33: msg := 'expression type must be string';
							34: msg := 'string compares for =, # only';
						END; {case}
						IF lineNumber = errors[i].lineNumber THEN
							writeln(Diagnostic, '# ', '^ ': 6 + errors[i].pos, msg)
						ELSE
							writeln('# Error at character ', errors[i].pos: 1, ' of line ', errors[i].lineNumber: 1, ': ', msg);
					END; {for}
					Writeln(Diagnostic,chr(9), 'File ', sourceFile, '; Line ', lineNumber);
				END; {if}
				lineNumber := lineNumber + 1; {start a new line}
				lineStart := Byteptr(cp);
				cpos := 0;
				numErr := 0;
			END; {PrintLine}

		BEGIN {NextCh}
			IF ch = chr(ch_eoln) THEN BEGIN {if we finished a line then...}
				PrintLine; {print the line}
				lineType := step; {assume this is a normal line}
			END; {if}
			IF fileLength <> 0 THEN BEGIN {get the next character}
				ch := cp^[0];
				cp := StringPtr(ord4(cp) + 1);
				fileLength := fileLength - 1;
				cpos := cpos + 1;
				IF ch = chr($84) THEN BEGIN {check for auto-go, break point}
					lineType := breakpoint;
					lineStart := BytePtr(cp);
					NextCh;
				END {if}
				ELSE IF ch = chr($81) THEN BEGIN
					lineType := autogo;
					lineStart := BytePtr(cp);
					NextCh;
				END; {else if}
			END {if}
			ELSE
				ch := chr(ch_eof);
		END; {NextCh}

	PROCEDURE InitScanner;

	{ Initialize the file input module								}

		PROCEDURE InitArrays;

		{ Initialize the scanner arrays 							 }

			CONST
				TAB = 9; {tab key code}

			VAR
				ch: char; {loop variable}

			BEGIN {InitArrays}
				FOR ch := chr(minCh) TO chr(maxCh) DO {set up the char types array}
					chTypes[ch] := chIllegal;
				FOR ch := 'a' TO 'z' DO chTypes[ch] := chLetter;
				FOR ch := 'A' TO 'Z' DO chTypes[ch] := chLetter;
				FOR ch := '0' TO '9' DO chTypes[ch] := chNumber;
				chTypes['"'] := chQuote;
				chTypes[':'] := chcolon;
				chTypes[','] := chComma;
				chTypes[';'] := chSemicolon;
				chTypes['('] := chLParen;
				chTypes[')'] := chRParen;
				chTypes['='] := chEq;
				chTypes['<'] := chLt;
				chTypes['>'] := chGt;
				chTypes['#'] := chPound;
				chTypes['+'] := chPlus;
				chTypes['-'] := chMinus;
				chTypes['*'] := chMult;
				chTypes['/'] := chDivd;
				chTypes['^'] := chExp;
				chTypes[' '] := chSpace;
				chTypes['$'] := chDollar;
				chTypes[chr(TAB)] := chSpace;
				chTypes[chr(ch_eof)] := chEof;
				chTypes[chr(ch_eoln)] := chEoln;
				tokenNames[abssy] := 'ABS'; {initialize the token names array}
				tokenNames[andsy] := 'AND';
				tokenNames[ascsy] := 'ASC';
				tokenNames[atsy] := 'AT';
				tokenNames[callsy] := 'CALL';
				tokenNames[colorsy] := 'COLOR';
				tokenNames[dimsy] := 'DIM';
				tokenNames[endsy] := 'END';
				tokenNames[forsy] := 'FOR';
				tokenNames[gosubsy] := 'GOSUB';
				tokenNames[gotosy] := 'GOTO';
				tokenNames[grsy] := 'GR';
				tokenNames[hgrsy] := 'HGR';
				tokenNames[hlinsy] := 'HLIN';
				tokenNames[ifsy] := 'IF';
				tokenNames[inputsy] := 'INPUT';
				tokenNames[lensy] := 'LEN';
				tokenNames[letsy] := 'LET';
				tokenNames[modsy] := 'MOD';
				tokenNames[nextsy] := 'NEXT';
				tokenNames[notsy] := 'NOT';
				tokenNames[orsy] := 'OR';
				tokenNames[pdlsy] := 'PDL';
				tokenNames[plotsy] := 'PLOT';
				tokenNames[popsy] := 'POP';
				tokenNames[printsy] := 'PRINT';
				tokenNames[remsy] := 'REM';
				tokenNames[returnsy] := 'RETURN';
				tokenNames[rndsy] := 'RND';
				tokenNames[scrnsy] := 'SCRN';
				tokenNames[sgnsy] := 'SGN';
				tokenNames[stepsy] := 'STEP';
				tokenNames[tabsy] := 'TAB';
				tokenNames[textsy] := 'TEXT';
				tokenNames[text80sy] := 'TEXT80';
				tokenNames[thensy] := 'THEN';
				tokenNames[tosy] := 'TO';
				tokenNames[vlinsy] := 'VLIN';
				tokenNames[vtabsy] := 'VTAB';
				tokenIndex['A'] := abssy; {initialize the token index array}
				tokenIndex['B'] := callsy;
				tokenIndex['C'] := callsy;
				tokenIndex['D'] := dimsy;
				tokenIndex['E'] := endsy;
				tokenIndex['F'] := forsy;
				tokenIndex['G'] := gosubsy;
				tokenIndex['H'] := hgrsy;
				tokenIndex['I'] := ifsy;
				tokenIndex['J'] := lensy;
				tokenIndex['K'] := lensy;
				tokenIndex['L'] := lensy;
				tokenIndex['M'] := modsy;
				tokenIndex['N'] := nextsy;
				tokenIndex['O'] := orsy;
				tokenIndex['P'] := pdlsy;
				tokenIndex['Q'] := remsy;
				tokenIndex['R'] := remsy;
				tokenIndex['S'] := scrnsy;
				tokenIndex['T'] := tabsy;
				tokenIndex['U'] := vlinsy;
				tokenIndex['V'] := vlinsy;
				tokenIndex['W'] := succ(vtabsy);
				tokenIndex['X'] := succ(vtabsy);
				tokenIndex['Y'] := succ(vtabsy);
				tokenIndex['Z'] := succ(vtabsy);
				tokenIndex['['] := succ(vtabsy);
			END; {InitArrays}

		PROCEDURE InitScalars;

		{ Initialize the scanner's scalars                           }

			BEGIN {InitScalars}
				numErrors := 0; {no errors so far}
				numErr := 0;
				maxErrorLevel := 0; {max error level is 0}
				lineNumber := 1; {first line in the file}
				lineStart := BytePtr(cp); {record the start of the 1st line}
				cpos := 0; {initialize the column number}
				lineType := step; {normal debugger line type}
				objBuf := NewHandle(0);	{initialize the object code buffer}
				IF MemError <> 0 THEN
					TermError(5);
			END; {InitScalars}

		PROCEDURE InitShell;

		{ Handle the initial communication with the shell			 }

			VAR
				ioRslt, argVIndex, fileCount: integer;
				prevSig: SignalHandler;
				arg: Str255;
	

			BEGIN {InitShell}
				retCode := RC_Normal;
	
				interrupted := False; 					 {becomes True when interrupted}
				prevSig := IEsignal(SIGINT, @Intr);
	
				progName := ArgV^[0]^;
				retCode := RC_ParmErrs;

				quiet := true;
				listSymbols := false;
				listSource := false;
				showOffsets := false;
				keep := false;

				argVIndex := 1;
				fileCount := 0;
				WHILE argVIndex < ArgC DO BEGIN			{ArgC is the number of args plus one}
					arg := ArgV^[argVIndex]^;
					IF (Length(arg) <> 0) THEN BEGIN
						IF arg[1] = '-' THEN			 { we have an option }
							LetterOpt(arg[2], argVIndex)
						ELSE BEGIN						{ it must be a file to open}
							fileCount := fileCount + 1;
							IF fileCount = 1 THEN
								sourceFile := ArgV^[argVIndex]^
							ELSE
								SyntaxError('Too many source files specified');
						END; {else}
					END; {if}
					argVIndex := argVIndex + 1;
				END; {while}
				IF fileCount <> 1 THEN
					SyntaxError('No source file specified');
	
				IF NOT quiet THEN BEGIN
					WriteLn(Diagnostic);
					WriteLn(Diagnostic, progName, ', Version ', version);
					WriteLn(Diagnostic, 'Copyright 1991, Byte Works, Inc.');
					WriteLn(Diagnostic);
					WriteLn(Diagnostic);
				END;

				retCode := RC_Normal;
	
				IF interrupted THEN
					Stop('');
			END; {InitShell}

		PROCEDURE ReadFile;

		{ Read the source file											}
		{																}
		{ Variables:													}
		{	 sourceFile - source file name								}
		{	 cp - pointer to the first character in the file			}
		{	 fileLength - number of characters in the file				}

			VAR
				inFile : FILE;
				filePos: LongInt;

			BEGIN {ReadFile}
				IEOpen(inFile, sourceFile, O_RDONLY);	{open file}
				fileLength := IElseek(inFile, 0, 2);	{seek to end of file and get EOF}
				IF fileLength < 0 THEN
					TermError(2);	{ had an error on the lseek }
				filePos := IElseek(infile, 0, 0);		{reset to beginning of file}
				srcBuf := bytePtr(NewPtr(fileLength));	{allocate buffer for contents}
				if srcBuf = NIL then
					TermError(5);
				cp := StringPtr(srcBuf);
				filePos := ByteRead(inFile, srcBuf^, fileLength);	{read file into buffer}
				Close(inFile);							{close file}
			END; {ReadFile}

		BEGIN {InitScanner}
			InitShell; {read and process the command line info}
			ReadFile; {read the source file}
			InitScalars; {initialize the scalars}
			InitArrays; {initialize the constant arrays}
			NextCh; {get the first character}
			NextToken; {get the first token}
		END; {InitScanner}

	PROCEDURE NextToken;

	{ Read the next token from the source file						}
	{																}
	{ Variables:													}
	{	 ch - current character 									}
	{	 token - token read 										}

		LABEL 1;

		VAR
			digit: integer; {value of a numeric character}
			len: integer; {length of a stringConst or ident}
			s: tokens; {loop variable}

		BEGIN {NextToken}
			WHILE chTypes[ch] IN [chSpace, chDollar, chIllegal] DO BEGIN
				IF chTypes[ch] IN [chIllegal, chDollar] THEN BEGIN
					tpos := cpos;
					tlineNumber := lineNumber;
					FlagError(1);
				END; {if}
				NextCh;
			END; {while}
			tpos := cpos; {remember where this token starts}
			tlineNumber := lineNumber;
			CASE chTypes[ch] OF

				chLetter: BEGIN
					token.kind := ident; {assume it is an identifier}
					len := 0; {read the identifier}
					WHILE chTypes[ch] IN [chLetter, chDollar, chNumber] DO BEGIN
						IF len = nameLength THEN BEGIN
							FlagError(4);
							len := 0;
						END; {if}
						len := len + 1;
						IF ch IN ['a'..'z'] THEN ch := chr(ord(ch) - ord('a') + ord('A'));
						token.name[len] := ch;
						NextCh;
					END; {while}
					token.name[0] := chr(len);
					FOR s := tokenIndex[token.name[1]] TO {check for reserved words}
					  pred(tokenIndex[succ(token.name[1])]) DO
						IF token.name = tokenNames[s] THEN BEGIN
							token.kind := s;
							GOTO 1;
						END; {if}
				1:
				END;

				chNumber: BEGIN
					token.kind := intconst;
					token.ival := 0;
					WHILE chTypes[ch] = chNumber DO BEGIN
						digit := ord(ch) - ord('0');
						IF ((token.ival = (maxint DIV 10)) AND (digit > (maxint MOD 10))) OR (token.ival > (maxint DIV
							10)) THEN BEGIN
							FlagError(5);
							token.ival := 0;
						END;
						token.ival := token.ival * 10 + digit;
						NextCh;
					END; {while}
				END;

				chQuote: BEGIN
					token.kind := stringconst;
					len := 0;
					NextCh;
					WHILE NOT (chTypes[ch] IN [chQuote, chEoln, chEof]) DO BEGIN
						IF len = stringLength THEN BEGIN
							FlagError(6);
							len := 0;
						END; {if}
						len := len + 1;
						token.str[len] := ch;
						NextCh;
					END; {while}
					IF chTypes[ch] = chQuote THEN NextCh
					ELSE FlagError(7);
					token.str[0] := chr(len);
				END;

				chcolon: BEGIN
					token.kind := colon;
					NextCh;
				END;

				chComma: BEGIN
					token.kind := comma;
					NextCh;
				END;

				chSemicolon: BEGIN
					token.kind := semicolon;
					NextCh;
				END;

				chLParen: BEGIN
					token.kind := lParen;
					NextCh;
				END;

				chRParen: BEGIN
					token.kind := rParen;
					NextCh;
				END;

				chEq: BEGIN
					token.kind := eq;
					NextCh;
				END;

				chLt: BEGIN
					NextCh;
					IF ch = '=' THEN BEGIN
						token.kind := le;
						NextCh;
					END {if}
					ELSE IF ch = '>' THEN BEGIN
						token.kind := ne;
						NextCh;
					END {else if}
					ELSE token.kind := lt;
				END;

				chGt: BEGIN
					NextCh;
					IF ch = '=' THEN BEGIN
						token.kind := ge;
						NextCh;
					END {if}
					ELSE token.kind := gt;
				END;

				chPound: BEGIN
					NextCh;
					token.kind := ne;
				END;

				chPlus: BEGIN
					token.kind := plus;
					NextCh;
				END;

				chMinus: BEGIN
					token.kind := minus;
					NextCh;
				END;

				chMult: BEGIN
					token.kind := mult;
					NextCh;
				END;

				chDivd: BEGIN
					token.kind := divd;
					NextCh;
				END;

				chExp: BEGIN
					token.kind := exp;
					NextCh;
				END;

				chEoln: BEGIN
					token.kind := eolnsy;
					NextCh;
				END;

				chEof: token.kind := eofsy;

			END; {case}
			SpinCursor(1);
			IF interrupted THEN
				Stop('');
		END; {NextToken}

	PROCEDURE ShutDownScanner;

	{ Shut down the file input module								}

		VAR
			objFile : FILE;
			objSize: longint;
			temp: longint;
			fInfo: hParamBlockRec;
			result: OSErr;

		BEGIN {ShutDownScanner}
			Show_Cursor(Watch_Cursor);

			if listSymbols then
				WriteLn(chr(9), chr(9), 'End');

			if keep THEN BEGIN
				IEOpen(objFile, keepFile, O_WRONLY + O_CREAT);	{open file}
				temp := IEIOCtl(objFile, FIOSETEOF, 0);		{set EOF to 0}
				HLock(objBuf);
				objSize := GetHandleSize(objBuf);
				temp := ByteWrite(objFile, objBuf^^, objSize);
				IF temp <> objSize THEN
					TermError(3);
				Close(objFile);
				HUnlock(objBuf);
				DisposeHandle(objBuf);
				
				{set file info}
				with fInfo do begin
					ioCompletion := NIL;
					ioNamePtr := @keepFile;
					ioVRefNum := 0;
					ioFDirIndex := 0;
					ioDirID := 0;
				End; {with}
				result := PBHGetFInfo(@fInfo, False);	{ get existing info }
				if result <> noErr then
					TermError(3);
				fInfo.ioFlFndrInfo.fdType := 'B1  ';
				fInfo.ioFlFndrInfo.fdCreator := 'pdos';
				fInfo.ioDirID := 0;		{ reset this so the file can be found }
				result := PBHSetFInfo(@fInfo, False);	{ set the creator & type }
				if result <> noErr then
					TermError(3);
			END; {if}

			IF Not quiet THEN BEGIN
				PLFlush(output);
				WriteLn(Diagnostic);								{write the trailer}
				WriteLn(Diagnostic, '### ', numErrors: 1, ' errors found.');
				IF maxErrorLevel <> 0 THEN
					WriteLn(Diagnostic, '### ', maxErrorLevel: 1, ' was the highest error level.');
			END; {IF}
			DisposPtr(Ptr(srcBuf));		{deallocate the source file buffer}
			IF numErrors <> 0 THEN		{set the correct error codes}
				retCode := RC_Abort
			ELSE
				retCode := RC_Normal;
		END; {ShutDownScanner}

	PROCEDURE TermError{err: integer};

	{ Handle a terminal error										}
	{																}
	{ Parameters:													}
	{	 err - terminal error number								}

		BEGIN {TermError}
			CASE err OF {print the error}
				0: ; {used for +t errors}
				1: msg := concat('Error calling the shell.');
				2: msg := concat('Error reading ', sourceFile);
				3: msg := concat('Error writing ', keepFile);
				4: msg := concat('Compile aborted.');
				5: msg := concat('Out of memory.');
			END; {case}
			retCode := RC_Abort;
			stop(concat('### ', progname, ' - Terminal error: ', msg)); {write the error to stdout}
		END; {TermError}

END.
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Apple.Bowl/Compiler/makeout b/IIGS.601.SRC/A.U.G/Apple.Bowl/Compiler/makeout
new file mode 100644
index 0000000..51ab6e5
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Apple.Bowl/Compiler/makeout
@@ -0,0 +1 @@
+Pascal -sym on BasicCom.p -o :obj:
Pascal -sym on Scanner.p -o :obj:
Pascal -sym on CodeGen.p -o :obj:
Pascal -sym on Parser.p -o :obj:
Pascal -sym on Basic.p -o :obj:
Link -d -c 'MPS ' -t MPST -sym on -mf ¶
	:obj:Basic.p.o :obj:Parser.p.o :obj:Scanner.p.o :obj:CodeGen.p.o :obj:BasicCom.p.o ¶
	"{Libraries}"Stubs.o ¶
	"{Libraries}"Runtime.o ¶
	"{Libraries}"Interface.o ¶
	"{PLibraries}"PasLib.o ¶
	"{Libraries}"ToolLibs.o ¶
	-o IntBasicIIGS
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Apple.Bowl/Makefile b/IIGS.601.SRC/A.U.G/Apple.Bowl/Makefile
new file mode 100644
index 0000000..77fd25e
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Apple.Bowl/Makefile
@@ -0,0 +1 @@
+# define object files necessary to build the compiler
Sources	=	:compiler:Basic.p ¶
			:compiler:Parser.p ¶
			:compiler:Scanner.p ¶
			:compiler:CodeGen.p ¶
			:compiler:BasicCom.p

all			ÄÄ	Apple.Bowl Read.Me

Apple.Bowl	ÄÄ	Bowl.r
	RezIIGS Bowl.r -o Apple.Bowl

Apple.Bowl	ÄÄ	Bowl.obj BowlBin.obj ProgAid.lib :Compiler:IntBasicLib
	LinkIIGS -w2 -t S16 -l >Bowl.map ¶
		Bowl.obj ¶
		BowlBin.obj ¶
		-lib :compiler:IntBasicLib ¶
		-lib ProgAid.lib ¶
		-o Apple.Bowl

Read.Me		ÄÄ	Read.Me.txt Read.Me.r
	Duplicate -d -y Read.Me.txt Read.Me
	RezIIGS Read.Me.r -o Read.Me -t $70505445 -c pdos

BowlBin.obj	Ä	BowlBin.aii
	AsmIIGS BowlBin.aii -o BowlBin.obj

Bowl.obj	Ä	Bowl.bas :Compiler:IntBasicIIGS
	:Compiler:IntBasicIIGS Bowl.bas -o Bowl.obj

ProgAid.lib	Ä	ProgAid.obj
	Delete -i ProgAid.lib
	MakeLibIIGS -l ProgAid.lib -r ProgAid.obj

ProgAid.obj	Ä	ProgAid.aii
	AsmIIGS ProgAid.aii -o ProgAid.obj

:Compiler:IntBasicIIGS	Ä	{Sources}
	directory :Compiler:
	make IntBasicIIGS >makeout
	makeout
	delete makeout
	directory ::

:Compiler:IntBasicLib Ä	:Compiler:BasicLib.aii :Compiler:BasicLib.macros
	directory :Compiler:
	AsmIIGS BasicLib.aii -o :obj:BasicLib.obj
	Delete -i IntBasicLib
	MakeLibIIGS -l IntBasicLib -r :obj:BasicLib.obj
	directory ::
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Apple.Bowl/ProgAid.aii b/IIGS.601.SRC/A.U.G/Apple.Bowl/ProgAid.aii
new file mode 100644
index 0000000..f1ab37f
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Apple.Bowl/ProgAid.aii
@@ -0,0 +1 @@
+**************************
*			 *
* Apple-][ Hi-Resolution *
*  Graphics Subroutines	 *
*			 *
*    By	Woz   9/13/77	 *
*			 *
*  All Rights Reserved	 *
*			 *
*  Converted to	IIGS by	 *
*  Greg	Branche	7/25/91	 *
*			 *
**************************

;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

		IMPORT	COLR
		IMPORT	ROT
		IMPORT	SCALE
		IMPORT	SHAPE
		IMPORT	ShapeTbl
		IMPORT	X0
		IMPORT	Y0
		IMPORT	collsn

;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

		ENTRY	bdrawx
		ENTRY	cshft2
		ENTRY	getx0
		ENTRY	gety0
		ENTRY	hdraw
		ENTRY	hlin
		ENTRY	hplot1
		ENTRY	hposn
		ENTRY	hposn3
		ENTRY	hxdraw
		ENTRY	pcolr

*  Hi-Res Equates

; Direct page usage

sTblPtr		equ	$00			;pointer to shape table
hColor1		equ	$02			;running color mask
CountH		equ	$04
HBasL		equ	$06			;base address for current hi-res line
HBasH		equ	HBasl+1
HMask		equ	$0A
DXL		equ	$0C			;Delta-X for HLin, Shape
DXH		equ	$0D
ShapeX		equ	$0E			;shape temp
DY		equ	$10			;Delty-Y for HLin, Shape
QDRnt		equ	$12			;ROT Quandrant (Shape)
EL		equ	$14			;error for HLin
EH		equ	$15

; soft switch locations

HiRes		equ	$E0C057			;switch	to hi-res video
MixSet		equ	$E0C053			;select	text/graphics mix
TxtClr		equ	$E0C050			;select	graphics mode

*
*  Data	area
*

HPag		RECORD	Export
		DS.B	2
		ENDR

Vars		RECORD
X0L		DS.B	1
X0H		DS.B	1
My_Y0		DS.B	2
HColor		DS.B	2
Hndx		DS.B	2
my_scale	DS.B	2
my_dp		DS.B	2
UserID		DS.B	2

msktbl		DC.B	$81			;leftmost bit of byte
		DC.B	$82,$84,$88
		DC.B	$90,$a0
		DC.B	$c0			;rightmost bit of byte

eq1c		DC.B	$1c

cos		DC.B	$ff,$fe,$fa,$f4,$ec,$e1,$d4,$c5,$b4
		DC.B	$a1,$8d,$78,$61,$49,$31,$18,$ff

		ENDR

* basic_entry -	used to	set up environment when	called from Basic

basic_entry	PROC
		with	Vars

		plx				;retrieve return address
		phb				;save DBR
		phk				;set to	our bank
		plb
		phd				;save caller's direct page
		lda	my_dp			;set to	our direct page
		tcd
		phx				;put return address back on stack
		sep	#$30			;shift into 8-bit mode
		rts
		ENDP

* basic_exit - used to restore environment and return to Basic

basic_exit	PROC
		rep	#$30			;back to 16-bit	mode
		pld				;restore caller's direct page
		plb				;and DBR
		rtl				;then back to caller
		ENDP

*
*  High	Resolution Graphics Inits
*

* entry	points from Apple ][ basic

INIT		PROC	EXPORT
		with	Vars

		longa	on
		longi	on

		phb				;save caller's DBR
		phk				;set to	my variables
		plb

		pha				;space for returned UserID
		ldx	#$0202			;MMStartUp
		jsl	$E10000
		pla				;retrieve UserID
		sta	UserID

		pha				;space for handle
		pha
		pea	0
		pea	32			;need 32 bytes for direct page
		pha				;UserID	still in accumulator
		pea	%1100000000010001	;attributes
		pea	0			;bank 0
		pea	0
		ldx	#$0902			;NewHandle
		jsl	$E10000
		plx				;retrieve handle
		pla
		bcc	have_handle		;no errors
die
		brk	0			;else just die
have_handle
		phb				;save DBR
		pha				;put high word of handle on stack
		plb				;reset DBR
		lda	|0,x			;deref handle
		plb				;restore DBR
		plb
		sta	my_dp			;save for use later
		phd				;save caller's direct page
		tcd				;and use mine

		pha				;space for handle
		pha
		pea	0
		pea	$4000			;size of hi-res	pages
		lda	UserID
		pha				;UserID
		pea	%1100000000010111	;attributes
		pea	$E0			;bank $E0
		pea	$2000			;hires buffers at $2000-$5FFF
		ldx	#$0902			;NewHandle
		jsl	$E10000
		plx				;retrieve handle
		pla
		bcs	die			;die if	we can't get the memory

		lda	#$20			;Init for $2000-3fff
		sta	HPag			;hi-res	screen memory
		sep	#$20
		longa	off
		lda	>hires			;set hires display mode
		lda	>mixset			;with text at bottom
		lda	>txtclr			;set graphics display mode

		lda	#$E0			;set bank byte of base pointer
		sta	hbasl+2

		rep	#$20
		longa	on
		pld				;restore caller's direct page temporarily
		plb				;restore caller's DBR

		EXPORT	CLEAR
CLEAR
		jsr	basic_entry		;set up	environment
		longa	off
		longi	off

		lda	#$0
Bkgnd0
		sta	hcolor1			;set for black background
		lda	hpag			;init hi-res screen mem
		sta	sTblPtr+1		;for current page, normally
		ldy	#$0
		sty	sTblPtr			;$2000-3fff or $4000-5fff
		pea	$E0E0			;set DBR to graphics memory
		plb
		plb				;set to	video memory bank
bkgnd1		lda	hcolor1
		sta	(sTblPtr),y
		jsr	cshft2			;(sTblPtr) will	specify
		iny				;32 separate pages
		bne	bkgnd1			;throughout the	init
		inc	sTblPtr+1
		lda	sTblPtr+1
		and	#$1f			;test for done
		bne	bkgnd1
		jmp	basic_exit		;return	to caller

		EXPORT	BKGND
BKGND
		jsr	basic_entry		;set up	environment
		jsr	pcolr			;background call
		bra	bkgnd0
		ENDP

POSN		PROC	EXPORT
		with	Vars

		jsr	basic_entry		;set up	environment
		jsr	local_posn		;call the real routine
		jmp	basic_exit		;then return

		Entry	local_posn
local_posn
		jsr	pcolr			;posn call, colr from basic
		sta	hcolor
		jsr	gety0			;y0 from basic
		pha
		jsr	getx0			;x0 from basic
		pla
		jsr	hposn
		rts
		ENDP

HPLOT		PROC	EXPORT
		jsr	basic_entry		;set up	environment
		jsr	local_POSN		;plot call (basic)
		jsr	hplot1
		jmp	basic_exit
		ENDP

LINE		PROC	EXPORT
		with	Vars

		jsr	basic_entry		;set up	environment
		lda	hndx
		lsr	a			;set hcolor1 from
		jsr	pcolr			;basic var colr
		jsr	hposn3
		jsr	getx0			;line call. get	x0 from	basic
		txa
		pha
		tya
		tax
		jsr	gety0			;y0 from basic
		tay
		pla
		jsr	hlin
		jmp	basic_exit		;return	to caller
		ENDP

* draw routines

DRAW		PROC	EXPORT
		jsl	POSN
		EXPORT	DRAW1
DRAW1
		jsr	basic_entry		;set up	environment
		jsr	bdrawx			;draw call from	basic
		jsr	hdraw
		jmp	basic_exit		;return	to caller
		ENDP

XDRAW		PROC	EXPORT
		jsl	POSN
		EXPORT	XDRAW1
XDRAW1
		jsr	basic_entry		;set up	environment
		jsr	bdrawx			;ex-or draw
		jsr	hxdraw			;from basic
		jmp	basic_exit
		ENDP

* hi-res graphics coordinate restore subroutine

FIND		PROC	EXPORT
		with	Vars

		jsr	basic_entry		;set up	environment
		lda	hbasl
		asl	a			;converts base adr
		lda	hbash			;to y-coord
		and	#$3
		rol	a			;for hbasl = EABABOOO
		ora	hbasl			;    hbash = PPPFGHCD
		asl	a
		asl	a			;generate
		asl	a			;y-coord = ABCDEFGH
		sta	My_Y0
		lda	hbash			;(PPP=screen page,
		lsr	a			;normally 001 for
		lsr	a			;$2000-3fff
		and	#$7			;hi-res	screen
		ora	My_Y0
		sta	My_Y0			;converts hndx (index
		lda	hndx			;from base adr)
		asl	a			;and hmask (bit
		adc	hndx			;mask) to x-coord
		asl	a			;in (x0l, x0h)
		tax				;(range	$0-$133)
		dex
		lda	hmask
		and	#$7f
hfind1		inx
		lsr	a
		bne	hfind1
		sta	x0h
		txa
		clc				;calc hndx*7 +
		adc	hndx			;log(base2) hmask
		bcc	hfind2
		inc	x0h
hfind2		sta	x0l
		jmp	basic_exit		;return	to caller
		ENDP

* hi-res graphics position and plot subroutines

hposn		PROC
		with	vars

		sta	My_Y0			;enter with Y in A-reg.
		stx	x0l			;xl in x-reg
		sty	x0h			;and xh	in y-reg
		pha
		and	#$c0
		sta	hbasl			;for y-coord = 00abcdef
		lsr	a			;calculates base address
		lsr	a			;in hbasl, hbash for
		ora	hbasl			;accessing screen mem
		sta	hbasl			;via [hbasl],y addressing mode
		pla
		sta	hbash
		asl	a			;calculates
		asl	a			;hbash = pppfghcd,
		asl	a			;hbasl = eabab000
		rol	hbash
		asl	a			;where ppp=001 for $2000-3fff
		rol	hbash			;screen	mem range and
		asl	a			; ppp=010 for $4000-5fff
		ror	hbasl			;(given	y-coord=abcdefgh)
		lda	hbash
		and	#$1f
		ora	hpag
		sta	hbash
		txa				;divide	x0 by 7	for
		cpy	#$0			;index from base addr
		beq	hposn2			;(quotient) and	bit
		ldy	#$23			;within	screen mem byte
		adc	#$4			;(mask spec'd by remainder)
hposn1		iny
hposn2		sbc	#$7			;subtract out sevens
		bcs	hposn1
		sty	hndx			;works for x0 from
		tax				;0 to 279, low-order
		lda	msktbl-249,x		;byte in x-reg
		sta	hmask			;high in y-reg on entry
		tya
		lsr	a			; if on	odd byte (carry	set)
		lda	hcolor			;then rotate hcolor one
		ENTRY	hposn3
hposn3
		sta	hcolor1			;bit for 180 degree shift
		bcs	to_cshft2		;prior to copying to hcolor1
		rts
to_cshft2	jmp	cshft2
		ENDP

hplot1		PROC
		lda	hcolor1			;calc bit posn in hbasl,h
		eor	[hbasl],y		;hndx, and hmask from
		and	hmask			;y-coord in a-reg.
		eor	[hbasl],y		;x-coord in x,y-regs
		sta	[hbasl],y		;for any 'l' bits of hmask
		rts				;substitute corrpesponding bit of hcolor1
		ENDP

* hi-res graphics l,r,u,d subroutines

lftrt		PROC
		with	Vars

		bpl	right			;use sign for lft/rt select
left		lda	hmask
		lsr	a			;shift low-order
		bcs	left1			;7 bits	of hmask
		eor	#$c0			;one bit to lsb
lr1		sta	hmask
		rts
left1		dey				;decr horiz index
		bpl	left2
		ldy	#$27			;wrap around screen
left2		lda	#$c0			;new hmask, rightmost
newndx		sta	hmask			;dot of	byte
		sty	hndx			;update	horiz index
cshift		lda	hcolor1
		ENTRY	cshft2
cshft2
		asl	a			;rotate	low-order
		cmp	#$c0			;7 bits	of hcolor1
		bpl	rts1			;one bit posn
		lda	hcolor1
		eor	#$7f			;zxyxyxyx -> zyxyxyxy
		sta	hcolor1
rts1		rts

right		lda	hmask
		asl	a			;shift low-order
		eor	#$80			;7 bits	of mask
		bmi	lr1			;one bit to msb
		lda	#$81
		iny				;next byte
		cpy	#$28
		bcc	newndx
		ldy	#$0			;wrap around screen if >279
		bcs	newndx			;always	taken

* l,r,u,d, subroutines

		ENTRY	lrudx1
lrudx1
		clc				;no 90 deg rot (x-or)
		ENTRY	lrudx2
lrudx2
		lda	shapex
		and	#$4			;if b2=0 then no plot
		beq	lrud4
		lda	#$7f			;for ex-or into	screen mem
		and	hmask
		and	[hbasl],y		;screen	bit set?
		bne	lrud3
		inc	collsn
		lda	#$7f
		and	hmask
		bpl	lrud3			;always	taken
		ENTRY	lrud1
lrud1
		clc				;no 90-deg rot
		ENTRY	lrud2
lrud2
		lda	shapex
		and	#$4			;if b2=0 then no plot
		beq	lrud4
		lda	[hbasl],y
		eor	hcolor1			;set hi-res screen bit
		and	hmask			;to corresponding hcolor1
		bne	lrud3			;if bit	of screen changes
		inc	collsn			;then incr collsn detect
lrud3		eor	[hbasl],y
		sta	[hbasl],y
lrud4		lda	shapex			;add qdrnt to
		adc	qdrnt			;specified vector
		and	#$3			;and move lft, rt
eq3		equ	*-1			;up, down based
		cmp	#$2			;on sign and carry
		ror	a
lrud		bcs	lftrt
updwn		bmi	down4			;sign for up/dwn select
up		clc
		lda	hbash			;calc base address
		bit	eq1c			;(adr of leftmost byte)
		bne	up4			;for next line up
		asl	hbasl			;in (hbasl, hbash)
		bcs	up2			;with 192-line wraparound
		bit	eq3
		beq	up1
		adc	#$1F			;***** bit map *****
		sec
		bcs	up3			;for row = ABCDEFGH
up1		adc	#$23
		pha
		lda	hbasl			;hbasl = EABAB000
		adc	#$b0			;hbash = PPPFGHCD
		bcs	up5
		adc	#$f0			;where PPP=001 for primary
up5		sta	hbasl			;hi-res	page ($2000-3fff)
		pla
		bcs	up3
up2		adc	#$1f
up3		ror	hbasl
up4		adc	#$fc
updwn1		sta	hbash
		rts

down		clc
down4		lda	hbash
		adc	#$4			;calc base adr for next	line
eq4		equ	*-1			;down to (hbasl, hbash)
		bit	eq1c
		bne	updwn1
		asl	hbasl			;with 192-line wraparound
		bcc	down1
		adc	#$e0
		clc
		bit	eq4
		beq	down2
		lda	hbasl
		adc	#$50
		eor	#$f0
		beq	down3
		eor	#$f0
down3		sta	hbasl
		lda	hpag
		bcc	down2
down1		adc	#$e0
down2		ror	hbasl
		bcc	updwn1

* hi-res graphics line draw subroutines

hlinrl		stz	x0l			;set (x0l,x0h) and y0 to zero for
		stz	x0h			;rel line draw
		stz	My_Y0			;(dx, dy)
		ENTRY	hlin
hlin
		pha				;on entry
		sec				;xl: a-reg
		sbc	x0l			;xh: x-reg
		pha				; y: y-reg
		txa
		sbc	x0h
		sta	qdrnt			;calc abs(x-x0)
		bcs	hlin2			;in (dxl, dxh)
		pla
		eor	#$ff			;x dir to sign bit
		adc	#$1			;of qdrnt
		pha				;0=right (dx pos)
		lda	#$0			;1=left	(dx neg)
		sbc	qdrnt
hlin2		sta	dxh
		sta	eh			;init (el,eh) to
		pla				;abs(x-x0)
		sta	dxl
		sta	el
		pla
		sta	x0l
		stx	x0h
		tya
		clc
		sbc	My_Y0			;calc -abs(y-0)-1
		bcc	hlin3			;in dy
		eor	#$ff
		adc	#$fe
hlin3		sta	dy			;rotate	y dir into
		sty	My_Y0			;qdrnt sign bit
		ror	qdrnt			;(0=up,	1=down)
		sec
		sbc	dxl			;init (countl, counth)
		tax				;to -(deltx+delty+1)
		lda	#$ff
		sbc	dxh
		sta	counth
		ldy	hndx			;horiz index
		bcs	movex2			;always	taken
movex		asl	a			;move in x-dir use
		jsr	lftrt			;qdrnt b6 for lft/rt select
		sec
movex2		lda	el			;assume	carry set
		adc	dy			;(el,eh)-delty to (el,eh)
		sta	el			;note: dy is (-delty)-1
		lda	eh			;carry clr if (el,eh)
		sbc	#$0			;goes neg
hcount		sta	eh
		lda	[hbasl],y		;screen	byte
		eor	hcolor1			;plot dot of hcolor1
		and	hmask			;current bit mask
		eor	[hbasl],y
		sta	[hbasl],y
		inx				;done (deltx+delty)
		bne	hlin4			;dots?
		inc	counth
		bne	hlin4			;no, continue
		rts

hlin4		lda	qdrnt			;for direction test
		bcs	movex			;if car	set, (el,eh) pos
		jsr	updwn			;if clr, neg, move ydir
		clc
		lda	el			;(el,eh)+deltx
		adc	dxl			;to (el,eh)
		sta	el
		lda	eh			;car set if (el,eh) goes pos
		adc	dxh
		bvc	hcount			;always	taken
		ENDP

* hi-res graphics shap draw subr
*
* shape	draw
* r = 0	to 63
* scale	factor used (1=normal)
*
hdraw		PROC
		with	Vars

		stx	sTblPtr			;draw definition pointer
		sty	sTblPtr+1
hdraw1		tax
		lsr	a			;rot ($0-$3f)
		lsr	a
		lsr	a			;qdrnt 0=up, 1=rt
		lsr	a			;2=dwn,	3=lft
		sta	qdrnt
		txa
		and	#$f
		tax
		ldy	cos,x			;save cos and sin
		sty	dxl			;vals in dxl and dy
		eor	#$f
		tax
		ldy	cos+1,x
		iny
		sty	dy
hdraw2		ldy	hndx			;byte index from hi-res	base address
		stz	collsn			;clear collision count
		phb				;save DBR
		pea	ShapeTbl>>8		;set DBR to shape table	bank
		plb
		plb
		lda	(sTblPtr)		;1st shape def byte
hdraw3		plb
hdraw3_1	sta	shapex
		ldx	#$80
		stx	el			;el,eh for fractional
		stx	eh			;l,r,u,d vectors
		ldx	my_scale		;scale factor.
hdraw4		lda	el
		sec				;if frac cos ovfl
		adc	dxl			;then move in
		sta	el			;specified vector
		bcc	hdraw5			;direction
		jsr	lrud1
		clc
hdraw5		lda	eh			;if frac sin ovfl
		adc	dy			;then move in
		sta	eh			;specified vector
		bcc	hdraw6			;direction +90 deg
		jsr	lrud2
hdraw6		dex				;loop on scale
		bne	hdraw4			;factor
		lda	shapex
		lsr	a			;next 3-bit vector
		lsr	a			;of shape def.
		lsr	a
		bne	hdraw3_1		;not done this byte
		inc	sTblPtr			;next byte of shape definition
		bne	hdraw7
		inc	sTblPtr+1
hdraw7		phb				;save DBR
		pea	ShapeTbl>>8
		plb
		plb
		lda	(sTblPtr,x)
		bne	hdraw3			;done if zero
		plb
		rts
		ENDP

* hi-res graphics shape	ex-or subroutine
*
* ex-or	shape into screen
*
* rot =	0 to 3 (quandrant only)
* scale	is used
*
hxdraw		PROC
		with	Vars

		stx	sTblPtr			;shape definition pointer
		sty	sTblPtr+1
hxdraw1		tax
		lsr	a			;rot ($0-$3f)
		lsr	a
		lsr	a			;qdrnt 0=up, 1=rt
		lsr	a			;      2=dwn, 3=lft
		sta	qdrnt
		txa
		and	#$f
		tax
		ldy	cos,x			;save cos and sin
		sty	dxl			;vals in dxl and dy
		eor	#$f
		tax
		ldy	cos+1,x
		iny
		sty	dy
hxdraw2		ldy	hndx			;index from hi-res base	adr
		stz	collsn			;clear collision detect
		phb
		pea	ShapeTbl>>8
		plb
		plb
		lda	(sTblPtr)		;1st shape def byte
hxdraw3		plb
hxdraw3_1	sta	shapex
		ldx	#$80
		stx	el			;el,eh for fractional
		stx	eh			;l,r,u,d vectors
		ldx	my_scale		;scale factor.
hxdraw4		lda	el
		sec				;if frac cos ovfl
		adc	dxl			;then move in
		sta	el			;specified vector
		bcc	hxdraw5			;direction
		jsr	lrudx1
		clc
hxdraw5		lda	eh			;if frac sin ovfl
		adc	dy			;then move in
		sta	eh			;specified vector
		bcc	hxdraw6			;direction +90 deg
		jsr	lrudx2
hxdraw6		dex				;loop on scale
		bne	hxdraw4			;factor
		lda	shapex
		lsr	a			;next 3-bit vector
		lsr	a			;of shape def.
		lsr	a
		bne	hxdraw3_1		;not done this byte
		inc	sTblPtr			;move to next byte
		bne	hxdraw7
		inc	sTblPtr+1
hxdraw7
		phb
		pea	ShapeTbl>>8
		plb
		plb
		lda	(sTblPtr,x)
		bne	hxdraw3			;done if zero
		plb
		rts
		ENDP

bdrawx		PROC
		with	Vars

		lda	>SCALE			;SCALE from BASIC
		sta	my_scale
		lda	>ROT			;ROTation from BASIC
		pha				;save on stack
		lda	#<ShapeTbl
		sta	sTblPtr			;start of shape	table
		lda	#>ShapeTbl
		sta	sTblPtr+1
		phb				;save our DBR
		pea	ShapeTbl>>8		;put table's bank on stack
		plb
		plb				;and set DBR to	it
		lda	>SHAPE			;Shape from BASIC
		beq	skip_it
		cmp	(sTblPtr)		;>num of shapes?
		beq	bdrwx1
		bcs	skip_it			;yes, range error
bdrwx1		asl	a
		bcc	bdrwx2
		inc	sTblPtr+1
		clc
bdrwx2		tay				;shape no * 2
		lda	(sTblPtr),y		;add 2-byte index to shape table
		adc	sTblPtr			;start address
		tax
		iny
		lda	(sTblPtr),y
		adc	sTblPtr+1
		tay
skip_it		plb
		pla				;rot from stack
		rts
		ENDP

* basic	param fetch subroutines

pcolr		PROC
		lda	>COLR+1			;BASIC COLR variable
		bne	rerr1
		lda	>COLR
rtsb		rts

		ENTRY	getx0
getx0
		lda	>X0			;BASIC variable	low order byte
		tax
		lda	>X0+1			;hi order byte
		tay
		cpx	#$18
		sbc	#$1			;range err if >279
		bcc	rtsb

rerr1		brk	0

		ENTRY	gety0
gety0
		lda	>Y0			;BASIC variable
		cmp	#$c0			;(err if > 191)
		bcs	rerr1
		rts
		ENDP
		END


\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Apple.Bowl/Read.Me.r b/IIGS.601.SRC/A.U.G/Apple.Bowl/Read.Me.r
new file mode 100644
index 0000000..9ecfc91
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Apple.Bowl/Read.Me.r
@@ -0,0 +1 @@
+/*	Resource fork definition for Apple Bowl's Read.Me file
	This file is produced by DeRezzing the real Read.Me's resource fork.  This is
	done because Projector doesn't know how to deal with a IIGS resource fork on
	a file.  Therefore, the Read.Me file (produced on a IIGS) must be broken
	apart into separate data and resource forks so that the files can be checked
	into Projector.
	
	If this file ever needs to be rebuilt, you should delete the 'data' blocks
	below, and then execute the following line:
	
	DeRezIIGS Read.Me >>Read.Me.r
	
*/

#define rStyleBlock			$8012	// copied from TypesIIGS.r

data 0x7001 (0x1) {
	$"AD00 7C02 1A00 0200 0000 0000 0FFF 0FFF"            /* ­.|............. */
};

data rStyleBlock (0x1, purgeable3) {
	$"0000 1400 0000 0000 0000 5902 0000 0000"            /* ..........Y..... */
	$"0000 0000 0000 0100 4000 4800 0000 FEFF"            /* ........@.H..... */
	$"0008 0000 FFFF 0000 0000 FEFF 0408 0000"            /* ................ */
	$"FFFF 0000 0000 0300 0008 0000 FFFF 0000"            /* ................ */
	$"0000 0300 0408 0000 FFFF 0000 0000 1400"            /* ................ */
	$"0008 0000 FFFF 0000 0000 1400 0408 0000"            /* ................ */
	$"FFFF 0000 0000 0100 0000 010D 0000 0000"            /* ...........Â.... */
	$"0000"                                               /* .. */
};

\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Apple.Bowl/Read.Me.txt b/IIGS.601.SRC/A.U.G/Apple.Bowl/Read.Me.txt
new file mode 100644
index 0000000..530bbaf
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Apple.Bowl/Read.Me.txt
@@ -0,0 +1 @@
+"APPLE BOWL	Enjoy this realistic simulation of a bowling alley.  You have
		complete control of the ball; APPLE keeps the score.  (Order Nos.
		A2T0015 - tape, A2D0018 - disk)"

- from "Apple" magazine, volume 1, number 3, circa 1979.

Apple Bowl was originally written and released in 1979.  It was written using a language called Integer BASIC, which was written by Woz (Steve Wozniak, creator of the Apple ][) when he built the original Apple 1.  When the Apple ][ was created, Integer BASIC was included in every machine.

Integer BASIC is a version of the BASIC programming language that deals only with fixed-point numbers (hence the name "Integer").  It was built into every Apple ][ sold until the Apple ][+ came along (the ][+ had AppleSoft built-in, just like your IIGS).  Having a programming language built into your computer allows you to program the computer yourself, which means that you can tell the computer what YOU want it to do, instead of using off-the-shelf software which tells the computer what somebody ELSE thought that it should be doing.  Of course, when the Apple ][ was introduced, there wasn't very much off-the-shelf software.  This meant that many owners explored programming on their own, using the built-in language Integer BASIC.

One of the results of this "homebrew" programming was Apple Bowl.  It was a game that simulated a bowling alley, using the Apple's hi resolution graphics, and giving the user complete control over speed and "english" of the ball and the release point within the lane.  The program was written to compute the actual movement of the ball based on the physics of ball and pin movement.  The program also automatically kept score for the player.

Fast-forward to 1991.  The Byte Works (a company that produces software development tools) released a product called the Integer BASIC Compiler for the Apple IIGS.  This product allowed a programmer to write programs using Integer BASIC, and then translate those programs into applications that could be executed on an Apple IIGS.  One of the several Apple ][ fanatics within the Apple ][ software group at Apple Computer saw the possibilities of the compiler, and decided to update Apple Bowl.

The Apple Bowl that accompanies this Read.Me file is the result of about a month's worth of after-hours work.  It started with the original Apple Bowl program, which was modified slightly to get it working with the compiler.  The result is an Apple IIGS game that combines the best of the old with the best of the new.  Instructions are included within the game itself.

To install Apple Bowl to another disk, you can either use the Installer program, or you can simply drag the Apple.Bowl icon from this disk to your disk using the Finder.  You may also want to drag the AppleBowl.Icon file from the Icons folder to the Icons folder on your disk.  (Please note that the Installer does not do this.)  To run the program, simply Open the icon from within the Finder (just as you would for any other IIGS application).

This version of Apple Bowl was produced as a labor of love for the Apple ][.  It certainly doesn't meet the standards of today's games, but it can be a lot of fun and maintains a link with the Apple ]['s long history.  My only hope is that you receive some enjoyment from it.

Greg Branche
January, 1992
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Apple.Bowl/all.makeout b/IIGS.601.SRC/A.U.G/Apple.Bowl/all.makeout
new file mode 100644
index 0000000..55f8452
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Apple.Bowl/all.makeout
@@ -0,0 +1 @@
+Set Echo 1
RezIIGS Bowl.r -o Apple.Bowl
directory :Compiler:
make IntBasicIIGS >makeout
makeout
delete makeout
directory ::
:Compiler:IntBasicIIGS Bowl.bas -o Bowl.obj
AsmIIGS BowlBin.aii -o BowlBin.obj
AsmIIGS ProgAid.aii -o ProgAid.obj
Delete -i ProgAid.lib
MakeLibIIGS -l ProgAid.lib -r ProgAid.obj
directory :Compiler:
AsmIIGS BasicLib.aii -o :obj:BasicLib.obj
Delete -i IntBasicLib
MakeLibIIGS -l IntBasicLib -r :obj:BasicLib.obj
directory ::
LinkIIGS -w2 -t S16 -l >Bowl.map ¶
	Bowl.obj ¶
	BowlBin.obj ¶
	-lib :compiler:IntBasicLib ¶
	-lib ProgAid.lib ¶
	-o Apple.Bowl
Duplicate -d -y Read.Me.txt Read.Me
RezIIGS Read.Me.r -o Read.Me -t $70505445 -c pdos
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Build.All b/IIGS.601.SRC/A.U.G/Build.All
new file mode 100644
index 0000000..a5504ed
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Build.All
@@ -0,0 +1 @@
+#
# Build.All
# 15 May 89
#
# This Script builds all the AUG files for the 6.0 disk:
#
#     ADU
#     Installer
#     Finder
#     Control Panel and CDevs
#	  VideoMix stuff
#     CDRemote
#     GSCalcNDA
#     EasyAccess stuff
#
# 2/1/90	Mensch
#		Add Closeview stuff...
#
# 11/05/90	Branche
#		Add GSCalcNDA stuff...
#
##################################################################
directory ADU
BuildProgram {Parameters} ADV.DISK.UTIL
directory ::Finder
BuildProgram {Parameters} Finder
directory :EasyMount:
BuildProgram {Parameters} EasyMount
directory :::Installer
BuildProgram {Parameters} Installer
BuildProgram {Parameters} Installer.Dev
directory ::ctlpanel
BuildEverything {Parameters}
directory ::CDRemote
BuildProgram {Parameters} CDRemote
directory ::GSCalcNDA
BuildProgram {Parameters} GSCalc.NDA
directory ::VideoMix:VideoMix.NDA
BuildProgram {Parameters} VideoMix.NDA
directory ::VideoMix.INIT
BuildProgram {Parameters} AppleIIVOC.INIT
directory :::CloseView
BuildProgram {Parameters} CloseView
directory ::VideoKeyboard
BuildProgram {Parameters} VideoKeyboard
directory ::MediaCtl
BuildEverthing {parameters}
directory ::EasyAccess
BuildProgram {parameters} EasyAccess
directory ::Apple.Bowl
Echo "# `Date -t` --- This is actually building AppleBowl"
BuildProgram {parameters} all
directory ::
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CDRemote/CDRemote.aii b/IIGS.601.SRC/A.U.G/CDRemote/CDRemote.aii
new file mode 100644
index 0000000..57c1e3c
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CDRemote/CDRemote.aii
@@ -0,0 +1 @@
+	PRINT NOHDR
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* File:  CDRemote.aii			*
*				*
* Module for CD-Remote (A New Desk Accessory)		*
* 				*
* Author:  Don Brady			*
*				*
* Build File:	CDRemote.make			*
*				*
* Copyright © APPLE Computer, Inc. 1987,1988		*
* All Rights Reserved.			*
*				*
* Modification History:			*
* Version 1.0				*
* 01/18/88  Released A1 today			*
* 02/11/88  Released A2 today			*
* 02/17/88  Converted to MAX (from APW) today		*
* 03/21/88  Release A4 today			*
* 04/01/88  Release B1 today			*
* 04/13/88  Release B2 (informal) today		*
* 04/15/88  Release B3 today			*
* 04/17/88  Release B4 (informal) today		*
* 04/18/88  Final Release of 1.0 today		*
*				*
* Version 1.1				*
* 07/26/88  DJB - Added CDBusy flag 		*
* 09/01/88  DJB - Added call to _FlashMenuBar for key presses	*
*				*
* Version 1.2				*
* 12/02/88  DJB - Changes made for Matt's new CD Driver	*
* 04/13/89  DJB - Changed from HeartBeatTask to RunQueueTask	*
*				*
* Version 1.3 - Maintenance by Cary Farrier		*
* 11/01/90  CAF - Fixed Bug 60966 in DoAudioR,L.	*
*				*
* Version 1.3d2 - Maintenance by Dave Lyons		*
* 23-Jan-91 - Made window create invisible so I can set the	*
*             background pattern to black before it draws the	*
*             first time.			*
* 				*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 

	PRINT OFF
	INCLUDE  'Draw.equ'
	INCLUDE  'CDRemote.equ'
	INCLUDE  'all.macros'
	PRINT ON
	
*===============================================*
*           The standard NDA Header	*
*===============================================*
NDAHeader	PROC

	IMPORT  (NDAOpen,NDAClose,NDAAction,NDAInit):CODE
	
	STRING  ASIS
	DC.L  NDAOpen
	DC.L  NDAClose
	DC.L  NDAAction
	DC.L  NDAInit
	DC.W  60		;period (60 ticks = 1 sec)
	DC.W  $014E		;event mask
	DC.B  '--CD Remote\H**'	;menu text
	DC.B  13
	DC.B  'ver 1.3/'	;...for load file dumps
	DC.B  '© Copyright Apple Computer, Inc.1987-92'
	STRING  PASCAL
	
	ENDP

*===============================================*
*	Data for NDA		*
*===============================================*
CDData	RECORD

	ENTRY  ABMode:DATA
	EXPORT CDAFrame:DATA
	EXPORT CDAMin:DATA
	EXPORT CDASec:DATA
	EXPORT CDATime:DATA
	ENTRY  CDAudio:DATA
	ENTRY  CDButton:DATA
	EXPORT CDCurTrk:DATA
	EXPORT CDIndex:DATA
	ENTRY  DidAlert:DATA
	ENTRY  CDError:DATA
	EXPORT CDFrame:DATA
	ENTRY  CDFrameA:DATA
	EXPORT CDFrameB:DATA
	ENTRY  CDMaxTrk:DATA
	EXPORT CDMin:DATA
	ENTRY  CDMinA:DATA
	EXPORT  CDMinB:DATA
	EXPORT CDMinTrk:DATA
	ENTRY  CDMode:DATA
	ENTRY  CDPMode:DATA
	ENTRY  CDRepeat:DATA
	ENTRY  CDScan:DATA
	EXPORT CDSec:DATA
	ENTRY  CDSecA:DATA
	EXPORT  CDSecB:DATA
	EXPORT  CDTrack:DATA
	EXPORT CDTrkCnt:DATA
	ENTRY  CDWait:DATA
	ENTRY  CDWinPtr:DATA
	ENTRY  CDWinRec:DATA
	ENTRY  Modifier:DATA
	ENTRY  Point:DATA
	ENTRY  TimeMode:DATA
	ENTRY  WinPtr2:DATA
	ENTRY  EndRec:DATA 
	ENTRY  EndRec2:DATA
	ENTRY  WinRec2:DATA
	ENTRY  WaitCur:DATA
	ENTRY  ItemString:DATA
	ENTRY  ErrString1:DATA
	ENTRY  ErrString2:DATA
	ENTRY  ErrString3:DATA
	ENTRY  ErrString4:DATA
	ENTRY  EndString1:DATA
	ENTRY  EndString2:DATA
	ENTRY  EndString3:DATA
	ENTRY  EndString4:DATA
	ENTRY  ErrStrPtr:DATA
	ENTRY  ErrStrRect:DATA
	ENTRY  OldWinPtr:DATA
	ENTRY  AlertTemplate:DATA
	ENTRY  WindowRect:DATA	
	ENTRY  WindowRect2:DATA
* ENTRY  ErrorCode:DATA           
* ENTRY  SenseKey:DATA            
* ENTRY  SenseCode:DATA
* ENTRY  CDAlert:DATA
	ENTRY  MaxIndex:DATA
	ENTRY  CurIndex:DATA
	ENTRY  TrackMap:DATA
	ENTRY  CDTask:DATA
	ENTRY  CDDataDisc:DATA
	ENTRY  CDBusy:DATA
	ENTRY  TaskInQueue:DATA
;	ENTRY  NullTask:DATA
	ENTRY  AudioWait:DATA
	
;---------------  FLAGS  ----------------
CDError	DC.W  $8000	;0 = ok, else error
CDPMode	DC.W  0	;$01=shuffle, $02=AB-repeat
CDMode	DC.W  0	;0=stop,1=play,2=pause,3=no disc
CDRepeat	DC.W  0	;0 = off, 1 = on
DidAlert	DC.W  0	;­ 0: did error alert, 0 = not yet
CDAudio	DC.W  $C000	;bit 15=left, bit 14=right
CDWait	DC.W  0	;timer
CDScan	DC.W  0	;0 = off, 1 = on
ABMode	DC.W  0
TimeMode	DC.W  0	;0 = elapsed, 1 = remaining 
Modifier	DC.W  0	;Event record modifier flags
WaitCur	DC.W  0	;1 = wait cursor on, 0 = off
CDTask	DC.W  0	;0 = no task, ­ 0 is a task
CDDataDisc	DC.W  0	;0 = not data, ­ 0 is only data
CDBusy	DC.W  0	;­ 0: CD-Remote is busy
TaskInQueue	DC.W  0	;­ 0: my task is in the queue
;NullTask	DC.W  0	;­ 0: means don't do task anymore
AudioWait	DC.W  0	;­ 0: if we are waiting for play completion

;----------  Current settings  ----------
Point	DC.L  0	;mouse coordinates (y,x)
CDTrack	DC.W  0
CDIndex	DC.W  0
CDTrkCnt	DC.W  0	;integer number of tracks
CDMinTrk	DC.W  0
CDMaxTrk	DC.W  0
CDCurTrk	DC.W  0	;track from Q-sub channel
CDMin	DC.W  0	;time (track relative)
CDSec	DC.W  0
CDFrame	DC.W  0
CDAMin	DC.W  0	;time (absolute)
CDASec	DC.W  0
CDAFrame	DC.W  0
CDButton	DC.W  0	;button pushed
CDMinA	DC.W  0	;AB starting point
CDSecA	DC.W  0
CDFrameA	DC.W  0
CDMinB	DC.W  0	;AB ending point
CDSecB	DC.W  0
CDFrameB	DC.W  0
CDATime	DS.B  200	;(2*100) absolute time table
CurIndex	DC.W  0
MaxIndex	DC.W  0
TrackMap	DS.B  100

;---------  Window Data  ----------------
OldWinPtr	DC.L  0		;space for _GetPort
CDWinPtr	DC.L  0
CDTitle  	DC.B  'CD Remote'	;window title

CDWinRec	DC.W  EndRec-CDWinRec	;data length
	DC.W  $C089		;frame bits (was $C0A9 23-Jan-91 DAL; made it initially invisible)
	DC.L  CDTitle		;title ptr
	DC.L  0		;RefCon
	DC.W  0,0,0,0		;full size
	DC.L  0		;color table ptr
	DC.W  0		;vertical org
	DC.W  0		;horizontal org
	DC.W  0		;data area height
	DC.W  0		;data area width
	DC.W  0		;max cont height
	DC.W  0		;max cont width
	DC.W  0		;vert scroll pixels
	DC.W  0		;hort scroll pixels
	DC.W  0		;vert page pixels
	DC.W  0		;hort page pixels
	DC.L  0		;info bar text ptr
	DC.W  0		;info bar height
	DC.L  0		;DefProc
	DC.L  0		;draw info bar routine
	DC.L  0		;draw content routine
WindowRect	DC.W  w1Y,w1X,w1Y+dvW1,w1X+dhW1	;rect
	DC.L  $FFFFFFFF		;window plane
	DC.L  0		;0 = allocate win record
EndRec

WinPtr2	DC.L  0
WinRec2	DC.W  EndRec2-WinRec2	;data length
	DC.W  %0010000000100001	;frame bits
	DC.L  0		;title ptr
	DC.L  0		;RefCon
	DC.W  0,0,0,0		;full size
	DC.L  0		;color table ptr
	DC.W  0		;vertical org
	DC.W  0		;horizontal org
	DC.W  0		;data area height
	DC.W  0		;data area width
	DC.W  0		;max cont height
	DC.W  0		;max cont width
	DC.W  0		;vert scroll pixels
	DC.W  0		;hort scroll pixels
	DC.W  0		;vert page pixels
	DC.W  0		;hort page pixels
	DC.L  0		;info bar text ptr
	DC.W  0		;info bar height
	DC.L  0		;DefProc
	DC.L  0		;draw info bar routine
	DC.L  0		;draw content routine
WindowRect2	DC.W  w2Y,w2X,w2Y+dvW2,w2X+dhW2	;rect
	DC.L  $FFFFFFFF		;window plane
	DC.L  0		;0 = allocate win record
EndRec2

;---------  Alert Data  ----------------
	STRING  PASCAL
ItemString	DC.B  'OK'

	STRING  ASIS
ErrString1	DC.B  EndString1-ErrString1-1
	DC.B  'The AppleCD SCª drive can-'
	DC.B  $0D
	DC.B  'not be found. Please check'
	DC.B  $0D
	DC.B  'your SCSI cables and  SCSI'
	DC.B  $0D
	DC.B  'priority assignments.'
EndString1

ErrString2
*	DC.B  EndString2-ErrString2-1		;this string no longer used
*	DC.B  'The AppleII SCSI Card ROM'
*	DC.B  $0D
*	DC.B  'needs to be upgraded to be'
*	DC.B  $0D
*	DC.B  'compatible with the drive'
*	DC.B  $0D
*	DC.B  'AppleCD SCª.'
EndString2

ErrString3
*	DC.B  EndString3-ErrString3-1
*	DC.B  'The AppleII SCSI Card can-'	;this string no longer used
*	DC.B  $0D
*	DC.B  'not be found. Please check'
*	DC.B  $0D
*	DC.B  'your  I/O  expansion slots'
*	DC.B  $0D
*	DC.B  'and Control Panel settings.'
EndString3

ErrString4	DC.B  EndString4-ErrString4-1
	DC.B  'I am sorry,  but GS/OS is'
	DC.B  $0D
	DC.B  'needed to run this desk'
	DC.B  $0D
	DC.B  'accessory.'
EndString4

	STRING  PASCAL
Item1Template	DC.W  1		;item ID
	DC.W  aDY-17,(aDX-80)/2,aDy-6,(aDX+80)/2
	DC.W  $000A		;item type
	DC.L  ItemString	;item descriptor
	DC.W  0		;item value
	DC.W  0		;item flag
	DC.L  0		;item color table
	
Item2Template	DC.W  3		;item ID
ErrStrRect	DC.W  4,76,aDY,aDX	;item rect
	DC.W  $800F		;item type
ErrStrPtr	DC.L  ErrString3	;item descriptor
	DC.W  0		;item value
	DC.W  0		;item flag
	DC.L  0		;item color table
	
AlertTemplate   DC.W  aY,aX,aY+aDY,aX+aDX
	DC.W  1		;alert ID
	DC.B  $80,$80,$80,$80	;stage bytes
	DC.L  Item1Template	;button item
	DC.L  Item2Template	;string item
	DC.L  0
	
	ENDR
	
*===============================================*
* Open up the NDA window (required NDA routine) *
*			*
* INPUT:	none		*
*			*
* OUTPUT:	window pointer (stack)	*
*			*
*===============================================*
NDAOpen	PROC
	
	IMPORT  ReadTOC
	IMPORT  DoAlert
	IMPORT  DoStop
	IMPORT  SPRezero
	IMPORT  SPOnLine
	IMPORT  InitRnd
	IMPORT  InitAB
	IMPORT  AReadQ
	IMPORT  AStatus
	IMPORT  AStopTrack
	IMPORT  SPInit2
	IMPORT  NormalOrder
	IMPORT  BCD2Int
	IMPORT  SystemTask
	
	phb
	phk
	plb		;for absolute addressing
	
	lda  CDBusy
	beq  cont0
	brl  exit		;we are already running
	lda  #true
	sta  CDBusy
cont0
	lda  CDTask		;was there a task?
	beq  cont1
	PushLong #SystemTask
	_RemoveFromRunQ		;remove background task
cont1
	lda  CDWinPtr
	ora  CDWinPtr+2
	beq  cont2
	brl  exit		;ignore if already open		
cont2
	PushWord
	_GetMasterSCB		;check for 320 mode
	pla
	and  #$0080
	beq  mode320
	lda  #w1X+dhW1
	bra  open
mode320	lda  #w1X+dhW1/2
open	sta  WindowRect+6	;set window's width
	PushLong #0		;open the DA's window
	PushLong #CDWinRec
	_NewWindow
	pla
	sta  OldWinPtr
	pla
	sta  OldWinPtr+2
	ora  OldWinPtr
	bne  mark
	brl  exit		;some error occured!	
mark	PushLong OldWinPtr	;mark as system window
	_SetSysWindow

*** added 23-Jan-91 DAL
	pha
	pha
	_GetPort		;preserve port

	pushlong OldWinPtr
	_SetPort		;set port to our (still invisible) window
	pha
	pha		;space for Get640Colors result
	ldx #$da04
	jsl $e10000
;	_Get640Colors		;get pointer to Black pattern (first pattern in table)
	_SetBackPat

	_SetPort		;restore port
	PushLong OldWinPtr
	_ShowWindow
*** end of 23-Jan-91 DAL

	lda  CDTask		;was there a task?
	beq  setUp
	stz  CDTask		;turn off flag
;	lda  NullTask
;	bne  setUP		;must be a new disc
	jsr  AReadQ		;get the time
	brl  exit		;but do not init
setUP
	lda  CDError		;everything okay?
	beq  okay		;yes
	cmp  #errNotP16		;was it a GS/OS issue?
	bne  bad		;no
	shortm		;backdoor into DA !
	lda  >keyModReg		;check open-apple-key
	longm
	and  #openAppleKey
	beq  bad		;key not down
	jsr  SPInit2		;initialze SmartPort data
	sta  CDError
	bcs  bad		;init error occured
	bra  okay
bad	lda  #mdNoDrive
	sta  CDMode
	bra  exit
okay	jsr  SPOnLine		;disc on line?
	bcc  disc		;yes
	lda  #mdNoDisc
	sta  CDMode
	bra  exit
disc	jsr  ReadTOC		;set min & max track
	jsr  NormalOrder
	lda  CDDataDisc
	bne  exit		;not an audio disc
	jsr  AStatus		;check if CD playing
	cmp  #audioPlay		;in play ?
	beq  play		;yes
	cmp  #audioPause	;in pause ?
	beq  pause		;yes
	jsr  DoStop
	bra  exit
pause	lda  #mdPause
	bra  play2
play	lda  #mdPlay
play2	sta  CDMode
	jsr  AReadQ		;get current track
	lda  CDCurTrk
	sta  CDTrack		;set to current track
	jsr  BCD2Int
	dec  a		;zero relative index
	sta  CurIndex		;set to current index
	lda  CDTrack
	jsr  AStopTrack		;set stop address
exit
	lda  OldWinPtr+2	;pass back window ptr
	sta  CDWinPtr+2
	sta  7,s
	lda  OldWinPtr
	sta  CDWinPtr
	sta  5,s
	stz  CDBusy
	plb
	rtl
		
	ENDP

*===============================================*
* Close the NDA window (required NDA routine)	*
*			*
* INPUT:	none		*
*			*
* OUTPUT:	none		*
*			*
*===============================================*
NDAClose	PROC

	IMPORT  AStopTrack
	IMPORT  SPOnLine
	IMPORT  SystemTask
	IMPORT  AStatus

	phb
	phk
	plb
	
	lda  CDBusy
	bne  exit		;we are already running
	lda  #true
	sta  CDBusy
	
	lda  CDWinPtr
	ora  CDWinPtr+2
	beq  exit		;ignore if inactive

	PushLong CDWinPtr
	_CloseWindow
	stz  CDWinPtr+2
	stz  CDWinPtr

	lda  CDError
	bne  exit		;no CD device found!
	lda  CDDataDisc
	bne  exit		;not an Audio Disc!
	jsr  SPOnLine
	bcs  exit		;no disc in drive!
	jsr  AStatus
	cmp  #audioPlay		;currently playing?
	beq  task
	cmp  #audioComplete	;completed play ?
	beq  task
	cmp  #audioVoid		;completed play ?
	bne  exit
	lda  AudioWait
	bne  exit

task	PushLong #SystemTask	;start task to keep DA alive
	_AddToRunQ		;while it is closed.
	lda  #true
	sta  CDTask
	
exit	stz  CDBusy
	plb
	rtl

	ENDP

*===============================================*
* Init the NDA (required NDA routine)	*
*			*
* INPUT:	A-Reg (0=shutdown, 1=startup)	*
*			*
* OUTPUT:	none		*
*			*
*===============================================*
NDAInit	PROC

SystemType	equ  $E100BC		;system type byte (0 = P8, 1 = P16)

	IMPORT  SPInit
	IMPORT  SPOnLine
	IMPORT  AStopTrack
	IMPORT  SetRndL
	IMPORT  SetABL
	IMPORT  SystemTask
	IMPORT  AStatus
	IMPORT  NormalOrder

	phb
	phk
	plb
	tax
	lda  >SystemType	;check which operating system
	and  #$00FF
	cmp  #1		;is it GS/OS ?
	bne  exit		;no
	
	cpx  #0
	beq  gameOver		;shutdown call
	jsr  SPInit		;initialze SmartPort data
	sta  CDError
	bcs  exit		;init error occured

	PushLong #0
	_GetTick
	_SetRandSeed		;set up start seed
	bra  exit
gameOver	
	lda  CDTask		;was there a task?
	beq  cont
	PushLong #SystemTask
	_RemoveFromRunQ		;remove background task
	stz  CDTask
cont	stz  DidAlert
	lda  CDError
	bne  exit		;no CD device found
	lda  #0
	sta  CDPMode		;turn off Shuffle/AB
	jsr  SetRndL		;tell DrawButton
	lda  #abOff
	sta  ABMode		;turn off AB
	jsr  SetABL		;tell DrawButton	
	jsr  SPOnLine
	bcs  exit		;no disc
	
	jsr  AStatus
	cmp  #audioPlay
	bne  exit		;not playing
	
	jsr  NormalOrder
	ldy  MaxIndex
	lda  TrackMap,y		;get the last audio track
	and  #$00FF
	beq  exit
	jsr  AStopTrack		;set stop address to last track
exit
	plb
	rtl

	ENDP

*===============================================*
* Process NDA action (required NDA routine)	*
*			*
* INPUT:	A-Reg = type of action	*
*	X & Y-Reg = event pointer	*
*			*
* OUTPUT:	A-Reg (return flag)	*
*			*
*===============================================*
NDAAction	PROC

evtptr	equ  5

	IMPORT  (DoActivate,DoUpdate,DoMouse,DoAbout,DoStop):CODE
	IMPORT  (DoAction,ButtonDown,ButtonUp,NewTime,NewDisc):CODE
	IMPORT  (NextTrack,AStatus,AReadQ,SPOnLine):CODE
	IMPORT  DrawTrack
	IMPORT  DrawMode
	IMPORT  DoKey
	IMPORT  TestAudioTrack
	
	phb
	phk
	plb

	phy
	phx		;save event ptr
	asl  A
	pha		;action offset
	
	PushLong #0
	_GetPort
	PullLong OldWinPtr
	PushLong CDWinPtr	;set port to NDA window
	_SetPort
	
	plx
	
	lda  CDBusy
	bne  didAction		;CD-Remote is busy

	lda  #$FFFF
	sta  CDBusy		;we are busy
	jsr  (Actions,x)	;process the action
	stz  CDBusy		;we are not busy
didAction	
	PushLong OldWinPtr
	_SetPort		;restore port
	pla
	pla
	plb
	lda  #0		;return flag
	rtl

Actions	DC.W  DoIgnore
	DC.W  DoEvent
	DC.W  DoRun
	DC.W  DoCursor
	DC.W  DoMenu
	DC.W  DoUndo
	DC.W  DoCut
	DC.W  DoCopy
	DC.W  DoPaste
	DC.W  DoClear

DoIgnore			;do nothing for these actions
DoCursor
DoMenu
DoUndo
DoCut
DoCopy
DoPaste
DoClear
	rts
	
*-----------------------------------------------
DoRun
	lda  CDError
	bne  endRun
	jsr  SPOnLine		;disc in drive ?
	bcs  endRun		;no
	lda  CDDataDisc
	bne  endRun		;not an audio disc
	jsr  AStatus
	cmp  #audioPlay		;in play state ?
	beq  draw		;yes
	cmp  #audioComplete	;completed play ?
	beq  next		;yes
	cmp  #audioVoid		;if void and we were waiting then it
	bne  cont		;counts as "audioComplete"
	lda  AudioWait
	bne  next
cont	cmp  #audioPause	;in pause state ?
	beq  endRun		;yes
	lda  #mdStop
	sta  CDMode
	jsr  DrawMode		;force a STOP mode
	bra  endRun
next	jsr  NextTrack		;get next selection to play
	bra  endRun
draw	
	jsr  AReadQ		;read Q Subcode
	jsr  NewTime		;update time display	

*	lda  CDCurTrk		;did we cross a track ?
*	cmp  CDTrack
*	beq  endRun		;same so exit
*	jsr  DrawTrack		;update track display

endRun	rts

*-----------------------------------------------
DoEvent
	phd
	tsc
	tcd
	ldy  #10
	lda  [evtptr],y		;Event.where.y
	sta  Point
	iny
	iny
	lda  [evtptr],y		;Event.where.x
	sta  Point+2
	iny
	iny
	lda  [evtptr],y		;Event.modifier
	sta  Modifier
	lda  [evtptr]		;Event.what
	pld
	cmp  #10
	bcs  endEvent		;undefined event!
	asl  A
	tax
	jsr  (Events,x)		;process event
endEvent	rts


Events	DC.W  DoIgnore		;null
	DC.W  DoMouse		;mouse down
	DC.W  DoIgnore		;mouse up
	DC.W  DoKey		;key down
	DC.W  DoIgnore		;undefined
	DC.W  DoIgnore		;auto key down
	DC.W  DoUpdate		;update event
	DC.W  DoIgnore		;undefined
	DC.W  DoActivate	;activate
	DC.W  DoIgnore		;switch

	ENDP

*===============================================*
*           Process An Activate Event	*
*			*
* INPUT:	none		*
*			*
* OUTPUT:	none		*
*			*
*===============================================*
DoActivate	PROC

	IMPORT  DoAlert
	
	lda  Modifier		;check flag
	and  #$0001
	beq  exit
	
	lda  DidAlert
	bne  exit		;already told user
	lda  CDError
	beq  exit
	jsr  DoAlert		;tell user about error
	lda  #true
	sta  DidAlert
exit	rts

	ENDP

*===============================================*
*              Update The NDA Window	*
*			*
* INPUT:	none		*
*			*
* OUTPUT:	none		*
*			*
*===============================================*
DoUpdate	PROC
	
	IMPORT  NewTime
	IMPORT  DrawTrack
	IMPORT  DrawText
	IMPORT  DrawWin
	IMPORT  DrawMode
	
	PushLong CDWinPtr
	_BeginUpdate

	jsr  DrawWin		;draw window's contents
	lda  CDTrack
	jsr  DrawTrack		;draw track display
	jsr  NewTime		;draw time display
	lda  CDMode
	jsr  DrawMode		;draw mode display
	lda  TimeMode
	clc
	adc  #11		;text offset
	jsr  DrawText		;draw time mode

	PushLong CDWinPtr
	_EndUpdate
	rts

	ENDP
	
*===============================================*
*      Process a Key event in NDA Window	*
*			*
* INPUT:	none		*
*			*
* OUTPUT:	none		*
*			*
*===============================================*
DoKey	PROC

	; _FlashMenuBar		;tell user I eat keys
	rts

	ENDP
	
*===============================================*
*      Process a mouse event in NDA Window	*
*			*
* INPUT:	none		*
*			*
* OUTPUT:	none		*
*			*
*===============================================*
DoMouse	PROC

bRectPtr	equ  1

	IMPORT  DoAction
	IMPORT  ButtonDown
	IMPORT  ButtonUp
	IMPORT  DoAbout
	IMPORT  DoAlert
	IMPORT  DrawButton
	IMPORT  IconRectPtr
	IMPORT  RectTblPtr
	
	PushLong RectTblPtr	;direct page pointer
	tsc
	phd
	tcd
	
	PushLong #Point
	_GlobalToLocal

	lda  #0
@loop	pha		;find which button
	asl  a
	asl  a
	inc  a
	inc  a
	tay
	PushWord
	PushLong #Point		;mouse position
	lda [bRectPtr],y	;button coordinates
	pha
	dey
	dey
	lda [bRectPtr],y
	pha
	_PtInRect		;was mouse in button ?
	pla
	bne  found		;yes
	pla
	inc  A
	cmp  #14		;valid data ?
	bcs  next
	bra  @loop
found
	pla		;button number
	sta  CDButton
	bra  down
next	
	PushWord
	PushLong #Point		;mouse position
	PushLong IconRectPtr	;icon's coordinates
	_PtInRect		;was mouse in icon ?
	pla
	bne  about		;yes
	brl  exit
about	
	jsr  DoAbout		;open about window
	brl  exit
down	
	lda  CDError
	beq  okay
	jsr  DoAlert		;tell user about error
	brl  exit
okay	
	jsr  ButtonDown		;process button
track1
	PushWord #0		;wait until button up
	PushWord #0
	_StillDown		;is button still down ?
	pla
	bne  action		;yes
	brl  up
action	jsr  DoAction
	PushLong #Point		;track button
	_GetMouse
	PushWord #0
	PushLong #Point
	lda  CDButton
	asl  a
	asl  a
	inc  a
	inc  a
	tay
	lda [bRectPtr],y	;button coordinates
	pha
	dey
	dey
	lda [bRectPtr],y
	pha
	_PtInRect		;is mouse still in button ?
	pla
	bne  track1		;yes
	lda  CDButton
	jsr  DrawButton		;draw button up
track2	PushWord #0
	PushWord #0
	_StillDown		;is button still down ?
	pla
	beq  up		;no
	
;	jsr  DoAction

	PushLong #Point
	_GetMouse
	PushWord #0
	PushLong #Point
	lda  CDButton
	asl  a
	asl  a
	inc  a
	inc  a
	tay
	lda [bRectPtr],y	;button coordinates
	pha
	dey
	dey
	lda [bRectPtr],y
	pha
	_PtInRect		;is mouse back in button ?
	pla
	beq  track2		;no
	lda  CDButton
	ora  #$8000
	jsr  DrawButton		;draw button down
	brl  track1
up
	jsr  ButtonUp
exit
	pld		;clean-up
	pla
	pla
	rts

	ENDP
	
*===============================================*
*          Process a Button Down Event	*
*			*
* INPUT:	none		*
*			*
* OUTPUT:	none		*
*			*
*===============================================*
ButtonDown	PROC

	IMPORT  NewTime
	IMPORT  InitRnd
	IMPORT  RndOff
	IMPORT  InitAB
	IMPORT  SPOnLine
	IMPORT  SPRezero
	IMPORT  DrawMode
	IMPORT  DrawText
	IMPORT  DrawButton
	IMPORT  DrawTrack
	IMPORT  AStatus
	IMPORT  AReadQ
	IMPORT  AScanF
	IMPORT  AScanR
	IMPORT  AEject
	IMPORT  APause
	IMPORT  ASeekTrack
	IMPORT  AStopTime
	IMPORT  AStopTrack
	IMPORT  APlayTrack
	IMPORT  APlayTime
	IMPORT  APlayModeTime
	IMPORT  APlayMode
	IMPORT  SetLAudL
	IMPORT  SetRAudL
	IMPORT  SetRepL
	IMPORT  SetRndL
	IMPORT  SetABL
	IMPORT  NextTrack
	IMPORT  NormalOrder
	IMPORT  RandomOrder
	IMPORT  DrawTime
	

	lda  CDButton
	cmp  #14		;valid data ?
	bcs  exit
	ora  #$8000
	jsr  DrawButton
	lda  CDButton
	cmp  #bTime		;always allow time
	beq  okay
	cmp  #bRepeat		;always allow repeat
	beq  okay
	jsr  SPOnLine		;is a disc online ?
	bcs  exit		;no, so do nothing
	lda  CDButton
	cmp  #bEject		;allow eject for Data Disc
	beq  okay
	lda  CDDataDisc
	bne  exit		;not an audio disc (ie data)
okay	lda  #actWait
	sta  CDWait
	lda  CDButton
	asl  A
	tax
	jmp  (Funct,x)		;process button
exit	rts

Funct	DC.W  DoStop		;Stop
	DC.W  DoPlay		;Play
	DC.W  DoPause		;Pause
	DC.W  DoEject		;Eject
	DC.W  DoSkipR		;Skip Reverse
	DC.W  DoSkipF		;Skip Forward
	DC.W  DoScanR		;Scan Reverse
	DC.W  DoScanF		;Scan Forward
	DC.W  DoAudioL		;Audio Left
	DC.W  DoAudioR		;Audio Right
	DC.W  DoRepeat		;Loop Repeat
	DC.W  DoAB		;AB Repeat
	DC.W  DoRandom		;Shuffle Play
	DC.W  DoTime		;Change Time

*------------------------------------------------
	EXPORT DoStop
	ENTRY  DoStop
DoStop
	stz  AudioWait		;no longer waiting for completion
	lda  #mdStop
	sta  CDMode
	jsr  InitAB		;reset AB stuff
	ldy  #0
	sty  CurIndex
	lda  TrackMap,y
	and  #$00FF
	sta  CDTrack	
	stz  CDMin
	stz  CDSec
	stz  CDFrame
	stz  CDIndex		;these are zero for future displays
	lda  #0
	jsr  AStopTrack		;force an audio stop
	lda  CDWinPtr
	ora  CDWinPtr+2
	beq  stEnd		;don't draw
	ldx  #0
	lda  #0
	jsr  DrawTime		;draw 00:00
	lda  CDTrack
	jsr  DrawTrack		;update track display
	lda  #mdStop
	jsr  DrawMode		;update display
stEnd	rts

*------------------------------------------------
DoPlay
	lda  CDPMode
	cmp  #mABRept
	beq  dpEnd		;ignore play during AB repeat
	jsr  AStatus
	cmp  #audioPlay		;in play state ?
	beq  dpEnd		;yes
	cmp  #audioPause	;in pause state ?
	bne  dpPlay
	lda  CDMode
	cmp  #mdPause
	beq  dpRelease
dpPlay	lda  CDTrack
	jsr  AStopTrack		;set stop address
	bcs  dpEnd		;error
	lda  CDTrack
	jsr  APlayTrack		;start playing
	bcs  dpEnd		;error
	lda  #true
	sta  AudioWait
	lda  #mdPlay
	sta  CDMode
	jsr  DrawMode		;update display
	bra  dpEnd	
DoPause
	jsr  AStatus
	cmp  #audioComplete	;completed play ?
	bne  dpCont
	jsr  NextTrack		;get next selection to play
	bra  dpEnd
dpCont	cmp  #audioPlay		;in play state ?
	beq  dpPause		;yes	
	cmp  #audioPause	;in pause state ?
	bne  dpEnd		;no
	lda  CDMode
	cmp  #mdPause
	beq  dpRelease
	bra  dpEnd	
dpPause	lda  #mdPause
	sta  CDMode
	jsr  DrawMode		;update display
	lda  #1		; fliped polarity DJB 12/2/88 
	bra  dpDoIt
dpRelease	lda  #mdPlay
	sta  CDMode
	jsr  DrawMode		;update display
	lda  #0
dpDoIt	jsr  APause		;set/release pause
dpEnd	rts

*------------------------------------------------
DoEject
	stz  AudioWait		;no longer waiting for completion
	jsr  AEject
	rts

*------------------------------------------------
	ENTRY  DoSkipR
DoSkipR
	jsr  InitAB		;abort any AB stuff
	ldy  CurIndex
	bne  dsDec
	ldy  MaxIndex
	bra  dsCont
dsDec	dey
	bra  dsCont

	ENTRY  DoSkipF
DoSkipF
	jsr  InitAB		;abort any AB stuff
	ldy  CurIndex
	cpy  MaxIndex
	bcc  dsInc
	ldy  #0
	bra  dsCont
dsInc	iny
dsCont	sty  CurIndex
	lda  TrackMap,y
	and  #$00FF
	sta  CDTrack
	jsr  DrawTrack		;update track display
dsEnd	rts

*------------------------------------------------
DoScanF
	lda  ABMode
	cmp  #abOn		;don't scan during AB-repeat
	beq  dsEnd
	jsr  AStatus
	cmp  #audioPlay		;in play state ?
	bne  dsEnd
	lda  #1
	sta  CDScan
	lda  CDAFrame
	ldx  CDASec
	ldy  CDAMin
	jsr  AScanF		;start forward scan
	rts

DoScanR
	lda  ABMode
	cmp  #abOn		;don't scan during AB-repeat
	beq  dsEnd
	jsr  AStatus
	cmp  #audioPlay		;in play state ?
	bne  dsEnd
	lda  #1
	sta  CDScan
	lda  CDAFrame
	ldx  CDASec
	ldy  CDAMin
	jsr  AScanR		;start reverse scan
	rts

*------------------------------------------------
DoRepeat
	lda  CDRepeat
	eor  #$01		;flip flag
	sta  CDRepeat
	jsr  SetRepL		;tell DrawButton
	rts

*-----------------------------------------------
DoAudioL
	lda  CDAudio
	eor  #$8000		;flip it
	sta  CDAudio
	jsr  SetLAudL		;tell DrawButton
	
	lda  CDAudio
	bne  daFind
	lda  #$4000		;force right back on
	sta  CDAudio
	jsr  SetRAudL		;tell DrawButton
	lda  #bAudioR
	jsr  DrawButton		;redraw Button	
	bra  daFind
DoAudioR
	lda  CDAudio
	eor  #$4000		;flip it
	sta  CDAudio
	jsr  SetRAudL		;tell DrawButton
	
	lda  CDAudio
	bne  daFind
	lda  #$8000		;force left back on
	sta  CDAudio
	jsr  SetLAudL		;tell DrawButton
	lda  #bAudioL
	jsr  DrawButton		;redraw Button		
dafind	lda  CDAudio
	cmp  #$c000		;stereo ?
	bne  daCont1
	ldx  #$09
	bra  daSet
daCont1	cmp  #$8000		;left only ?
	bne  daCont2
	ldx  #$0A
	bra  daSet
daCont2	cmp  #$4000		;right only ?
	bne  daEnd
	ldx  #$05
daSet	lda  CDPMode
	cmp  #mABRept
	beq  daAB

	lda  CDMode		; CAF 11/01/90
	cmp  #mdPlay		; are we playing something ?
	bne  daEnd		; no ->
	
	txa
	jsr  APlayMode
	lda  #true
	sta  AudioWait
	bra  daEnd
daAB	txa
	jsr  APlayModeTime
daEnd	rts

*------------------------------------------------
DoRandom
	lda  CDPMode
	cmp  #mShuffle
	bne  drSet
	jsr  NormalOrder	;set TrackMap
	ldy  #0
@invMap	lda  TrackMap,y		;find index from track
	and  #$00FF
	cmp  CDTrack
	beq  drTrk
	iny
	bra  @invMap
drTrk	sty  CurIndex
	lda  #0
	bra  drEnd
drSet	jsr  InitAB		;turn off AB
	jsr  RandomOrder	;set TrackMap
	ldy  #0
	sty  CurIndex
	lda  TrackMap,y		;get "first" track
	and  #$00FF
	sta  CDTrack
	jsr  DrawTrack
	lda  CDTrack
	jsr  AStopTrack
	lda  CDMode
	cmp  #mdStop
	beq  drStop
	lda  CDTrack
	jsr  APlayTrack		;and play it
	lda  #true
	sta  AudioWait
	lda  #mdPlay
	sta  CDMode
	jsr  DrawMode		;update display
	lda  #mShuffle
	bra  drEnd
drStop	lda  CDTrack
	jsr  ASeekTrack		;and seek there
	lda  #mShuffle
drEnd	sta  CDPMode
	jsr  SetRndL		;tell DrawButton
	rts

*------------------------------------------------
DoTime
	lda  TimeMode
	eor  #$0001		;flip it
	sta  TimeMode
	clc
	adc  #11		;text offset
	jsr  DrawText		;update mode display
	jsr  NewTime		;update time display
	rts

*------------------------------------------------
DoAB
	lda  ABMode
	cmp  #abOn
	bne  abCont2
	lda  CDTrack
	jsr  AStopTrack		;reset stop address
	lda  #0		;turn off AB mode
	sta  CDPMode
	jsr  AStatus		;check for play
	cmp  #audioComplete	;end of play?
	beq  abPlay
	cmp  #audioVoid		;end of play?
	bne  abCont1
abPlay	lda  CDFrameB
	ldx  CDSecB
	ldy  CDMinB
	jsr  APlayTime		;start playing at B
	lda  #true
	sta  AudioWait
abCont1	lda  #abOff
	brl  abDraw
abCont2	lda  CDMode
	cmp  #mdStop		;in stop mode ?
	bne  abCont3		;no
	brl  abEnd
abCont3	lda  ABMode
	cmp  #abSetA
	beq  setA
	cmp  #abSetB
	beq  setB
	jsr  RndOff		;turn off shuffle !
	lda  #abSetA
	brl  abDraw
setA	jsr  AReadQ		;read current time
	lda  CDAMin		;A <-- current
	sta  CDMinA
	lda  CDASec
	sta  CDSecA
	lda  CDAFrame
	sta  CDFrameA
	lda  #abSetB
	brl  abDraw
setB	jsr  AReadQ		;read current time
	lda  CDMinA
	cmp  CDAMin		;A < B ?
	bcc  abOK		;yes
	bne  abSwitch		;no
	lda  CDSecA
	cmp  CDASec
	bcc  abOK		;yes
	bne  abSwitch		;no
	lda  CDFrameA
	cmp  CDAFrame
	bcc  abOK		;yes
	bne  abSwitch		;no
	lda  #0		;A = B, so reset!
	sta  CDPMode
	lda  #abOff
	bra  abDraw
abSwitch	lda  CDMinA		;B <-- A
	sta  CDMinB
	lda  CDSecA
	sta  CDSecB
	lda  CDFrameA
	sta  CDFrameB
	lda  CDAMin		;A <-- current
	sta  CDMinA
	lda  CDASec
	sta  CDSecA
	lda  CDAFrame
	sta  CDFrameA
	bra  abGo
abOK	lda  CDAMin		;B <-- current
	sta  CDMinB
	lda  CDASec
	sta  CDSecB
	lda  CDAFrame
	sta  CDFrameB
abGo	ldy  CDMinB		;phrase ending time
	ldx  CDSecB
	lda  CDFrameB
	jsr  AStopTime		;set phrase stop address
	lda  CDFrameA
	ldx  CDSecA
	ldy  CDMinA
	jsr  APlayTime		;start playing phrase
	lda  #true
	sta  AudioWait
	lda  #mdPlay
	sta  CDMode
	jsr  DrawMode		;update display (in case of pause)
	lda  #mABRept
	sta  CDPMode
	lda  #abOn
abDraw	sta  ABMode
	jsr  SetABL		;tell DrawButton
abEnd	rts

	ENDP
	
*===============================================*
*          Process a Button Up Event	*
*			*
* INPUT:	none		*
*			*
* OUTPUT:	none		*
*			*
*===============================================*
ButtonUp	PROC

	IMPORT  BCD2Int
	IMPORT  NewTime
	IMPORT  NextTrack
	IMPORT  DrawButton
	IMPORT  DrawMode
	IMPORT  APause
	IMPORT  AStopTrack
	IMPORT  APlayTrack
	IMPORT  SPOnLine
	IMPORT  DrawTime
	
	lda  CDButton
	jsr  DrawButton		;redraw button up

	jsr  SPOnLine		;disc online?
	bcs  exit		;no
	lda  CDDataDisc
	bne  exit		;not an audio disc
	lda  CDScan
	beq  cont
	lda  ABMode
	cmp  #abOn		;don't scan during AB-repeat
	beq  exit	
	lda  #0		;release pause (changed from 1 DJB 12/2/88)
	jsr  APause
	lda  #0		;clear scan flag
	sta  CDScan
	bra  exit
cont	lda  CDButton
	cmp  #bSkipR
	beq  skip
	cmp  #bSkipF
	bne  exit
skip	lda  CDMode
	cmp  #mdStop		;in stop mode ?
	beq  pretend		;yes
play	lda  CDTrack
	jsr  AStopTrack
	lda  CDTrack
	jsr  APlayTrack		;play new track
	lda  #true
	sta  AudioWait
	lda  #mdPlay
	sta  CDMode
	jsr  DrawMode		;update display
exit	rts

pretend
	stz  CDMin
	stz  CDSec
	stz  CDFrame
	stz  CDIndex		;these are zero for future displays
	ldx  #0
	lda  #0
	jsr  DrawTime		;draw 00:00
	bra  exit

	ENDP
	
*===============================================*
*       Do Action While Button Is Down	*
*			*
* INPUT:	none		*
*			*
* OUTPUT:	none		*
*			*
*===============================================*
DoAction	PROC

	IMPORT  NewTime
	IMPORT  DoSkipR
	IMPORT  DoSkipF
	IMPORT  AReadQ
	IMPORT  DrawTrack
	IMPORT  DrawTime
	IMPORT  AStopTrack
	IMPORT  SPOnLine
	IMPORT  AScanF
	IMPORT  AScanTrack
	
	phb
	phk
	plb
	jsr  SPOnLine		;disc online ?
	bcc  cont1
	brl  exit		;no
cont1	lda  CDDataDisc
	beq  cont2
	brl  exit		;not an audio disc
cont2	lda  CDButton
	cmp  #bScanR		;scan buttons ?
	beq  scan
	cmp  #bScanF
	beq  scan
	cmp  #bSkipR		;skip buttons ?
	bne  cont4
	dec  CDWait		;don't do every time
	bne  exit
	jsr  DoSkipR
	lda  #actWait
	sta  CDWait
	bra  exit
cont4	cmp  #bSkipF
	bne  exit
	dec  CDWait		;don't do every time
	bne  exit
	jsr  DoSkipF
	lda  #actWait
	sta  CDWait
	bra  exit
scan
	lda  ABMode
	cmp  #abOn		;don't scan during AB-repeat
	beq  exit
	lda  CDMode
	cmp  #mdPlay		;only scanning from play
	bne  exit
	jsr  AReadQ
	lda  CDMin		;start of disc?
	ora  CDSec
	ora  CDAMin
	beq  restart		;yes
	lda  CDCurTrk		;end of disc?
	beq  restart		;yes
	cmp  CDTrack		;did we cross a track ?
	beq  cont6		;no (same), so exit
restart	ldx  #0
	lda  #0
	jsr  DrawTime		;draw 00:00
	lda  CDButton
	cmp  #bScanF
	beq  forward
reverse	jsr  DoSkipR
	lda  CDTrack
	jsr  AStopTrack
	ldx  #1		;X <-- reverse
	bra  cont5
forward	jsr  DoSkipF
	lda  CDTrack
	jsr  AStopTrack
	ldx  #0		;X <-- forward
cont5	lda  CDTrack
	jsr  AScanTrack		;X-Reg has direction
	bra  exit
cont6	jsr  NewTime		;update time display
exit
	plb
	rts
		
	ENDP
	
*===============================================*
*       Calculate New Time for Display	*
*			*
* INPUT:	none		*
*			*
* OUTPUT:	none		*
*			*
*===============================================*
	EXPORT  NewTime  
NewTime	PROC

	IMPORT  BCD2Int
	IMPORT  DrawTime
	
	lda  CDIndex		;in between tracks?
	beq  limbo		;yes
	lda  TimeMode
	beq  elapsed
	lda  CDTrack
	beq  elapsed		;just draw 00:00
	jsr  BCD2Int		;get integer value
	dec  A
	asl  A
	tay		;zero relative offset
	sed		;for BCD math
	lda  CDATime,y
	and  #$007F
	sec
	sbc  CDASec
	and  #$00FF
	php		;save carry flag
	pha		;save seconds
	lda  CDATime,y
	xba
	and  #$007F
	sbc  CDAMin
	and  #$00FF
	tax		;x has minutes
	pla
	plp		;was there a borrow?
	bcs  okay		;no
	sec
	sbc  #$40		;adjust seconds
okay	cld		;back to normal
	jsr  DrawTime
	bra  exit
elapsed	ldx  CDMin
	lda  CDSec
	jsr  DrawTime
	bra  exit
limbo	ldx  #0
	lda  #0
	jsr  DrawTime		;draw 00:00
exit	rts

	ENDP
	
*===============================================*
*       	Test Audio Track	*
* - make sure track is an audio track	*
* - set mode if it is not		*
*			*
* INPUT:	track (A-Reg) in BCD	*
*			*
* OUTPUT:	track (A-Reg) in BCD	*
*	carryFlag (1 = data, 0 = audio)	*
*			*
*===============================================*
	EXPORT  TestAudioTrack
TestAudioTrack	PROC

	IMPORT  BCD2Int
	IMPORT  DrawMode

	pha
	jsr  BCD2Int
	dec  a
	asl  a
	tay
	lda  CDATime,y		;high bit set if data track
	bpl  audio
	sec
	bra  exit
audio	clc
exit	pla
	rts
	
	ENDP
	
*===============================================*
*       Read a CD Disc's Table of Contents	*
*			*
* INPUT:	none		*
*			*
* OUTPUT:	none		*
*			*
*===============================================*
ReadTOC	PROC

	IMPORT  BCD2Int
	IMPORT  ATOCTime
	IMPORT  ATOCTrack
	
	jsr  ATOCTrack		;get min & max tracks
	stx  CDMinTrk
	sty  CDMaxTrk
	tya  	
	jsr  BCD2Int		;get integer value
	sta  CDTrkCnt
	jsr  ATOCTime		;get absolute time table
	rts
	
	ENDP
	
*===============================================*
*           Process a New-Disc Event	*
*			*
* INPUT:	none		*
*			*
* OUTPUT:	none		*
*			*
*===============================================*
	EXPORT  NewDisc 
NewDisc	PROC

	IMPORT  NormalOrder
	IMPORT  ReadTOC
	IMPORT  DoStop
	IMPORT  DrawMode

	jsr  ReadTOC
	jsr  NormalOrder
	lda  CDDataDisc
	bne  notAudio
	jsr  DoStop
	bra  exit
notAudio	lda  #mdNoAudio
	sta  CDMode
	lda  CDWinPtr
	ora  CDWinPtr+2
	beq  exit		;don't draw
	lda  #mdNoAudio
	jsr  DrawMode
exit
	rts

	ENDP
	
*===============================================*
*           Process a No-Disc Event	*
*			*
* INPUT:	none		*
*			*
* OUTPUT:	none		*
*			*
*===============================================*
	EXPORT  NoDisc 
NoDisc	PROC

	IMPORT  DrawTime
	IMPORT  DrawMode
	IMPORT  DrawTrack
	IMPORT  InitAB
	IMPORT  RndOff
	
	stz  CDTrack
	stz  CDCurTrk
	stz  CDMin
	stz  CDSec
	stz  CDFrame
	stz  CDMinTrk
	stz  CDMaxTrk
	stz  CDTrkCnt
	stz  CurIndex
	stz  CDDataDisc
	
	lda  #mdNoDisc
	sta  CDMode
	jsr  InitAB		;turn off AB
	jsr  RndOff		;turn off shuffle
	lda  CDWinPtr
	ora  CDWinPtr+2
	beq  exit		;don't draw
	lda  #mdNoDisc
	jsr  DrawMode		;display No Disc
	lda  #0
	ldx  #0
	jsr  DrawTime		;display 00:00
	lda  #0
	jsr  DrawTrack		;display 00
exit	
	rts

	ENDP
	
*===============================================*
*          Handle Next Play Selection	*
*			*
* INPUT:	none		*
*			*
* OUTPUT:	none		*
*			*
*===============================================*
NextTrack	PROC

	IMPORT  DrawTrack
	IMPORT  AStopTrack
	IMPORT  APlayTrack
	IMPORT  APlayTime
	IMPORT  DoStop
	IMPORT  RandomOrder
	IMPORT  InitAB
	
	lda  CDPMode
	cmp  #mABRept
	beq  repeatAB
default
	ldy  CurIndex		;increment by default
	cpy  MaxIndex
	bcc  bump
	lda  CDRepeat
	beq  reset		;all done
	lda  CDPMode
	cmp  #mShuffle
	bne  cont
	jsr  RandomOrder	;reshuffle the order
cont	ldy  #0
	bra  play
bump	iny
play	sty  CurIndex
	lda  TrackMap,y
	and  #$00FF
	sta  CDTrack
	jsr  AStopTrack
	lda  CDTrack
	jsr  APlayTrack		;play new track
	lda  #true
	sta  AudioWait
	lda  CDWinPtr
	ora  CDWinPtr+2
	beq  exit		;don't draw	
	lda  CDTrack
	jsr  DrawTrack		;update track display
	jsr  InitAB		;force A?,B? off across tracks
	bra  exit
repeatAB
	lda  CDFrameA
	ldx  CDSecA
	ldy  CDMinA
	jsr  APlayTime
	lda  #true
	sta  AudioWait
	bra  exit
reset
	jsr  DoStop		;reset to first track
exit
	rts

	ENDP
	
*===============================================*
*	Random Track		*
* - generates a random sequence of n unique 	*
*   numbers.			*
* - after n numbers, it starts over again	*
* - n is the total number of tracks on the	*
*   current CD Disc.		*
*			*
* INPUT:	A-Reg (0: restart, ­0: continue)*
*			*
* OUTPUT:	RandomTrack (A-Reg) {1,2,3,É,n}	*
*	(a 0 means end of sequence)	*
*			*
*===============================================*
RandomTrack	PROC

	cmp  #0
	bne  continue
	jsr  doInit		;restart sequence
continue	lda  Count
	dec  a
	beq  okay		;last one!
	bmi  doInit		;reset for next phase
	PushWord #0
	_Random		;get a random integer
	pla
	and  #$007F		;normalize to 0..127
@modLoop	
	cmp  Count		;small enough ?
	bcc  okay		;yes
	sec 
	sbc  Count		;else, do MOD count
	bra  @modLoop
okay
	tax
	shortm
	lda  RndMap,x		;get track number
	pha
	ldy  Count
	dey		;zero relative
	lda  RndMap,y		;get "left-over" track
	sta  RndMap,x		;fill in "hole"
	pla
	longm
	and  #$00ff
	dec  Count		;reduce range
exit	rts
	
	ENTRY  doInit
doInit
	shortm
	lda  #$99		;max track (BCD)
	ldx  #98
	sta  RndMap,x
	dex
	sed
bcdLoop	lda  RndMap+1,x		;init table with BCD tracks
	sec
	sbc  #1
	sta  RndMap,x
	dex
	bpl  bcdLoop
	cld
	longm
	lda  CDTrkCnt
	sta  Count

	lda  #0		;signals end-of-list
	bra  exit

Count	DC.W  0
RndMap	DS.B  100

	ENDP
	
*===============================================*
*	Normal Order		*
* - fill TrackMap with sequential tracks (BCD)	*
* - data tracks are not put in table	*
* - set MaxIndex		*
*			*
* INPUT:	none		*
*			*
* OUTPUT:	none		*
*			*
*===============================================*
NormalOrder	PROC

	IMPORT  TestAudioTrack
	IMPORT  DrawMode

	stz  CDDataDisc
	ldx  #0
	phx
	lda  CDMinTrk		;starting track (BCD)
test	
	cmp  CDMaxTrk		;out of tracks?
	bcc  cont
	beq  cont
	bra  done		;yes
cont	jsr  TestAudioTrack	;an Audio track?
	bcc  okay		;yes
	sed
	clc
	adc  #1		;increment in BCD
	cld
	bra  test
okay	plx
	shortm
	sta  TrackMap,x
	longm
	sed
	clc
	adc  #1		;increment in BCD
	cld	
	inx
	phx
	cpx  CDTrkCnt		;last track?
	bcc  test		;no
done
	plx
	beq  bad
	dex
	stx  MaxIndex
	bra  exit
bad	lda  #true
	sta  CDDataDisc
	lda  #mdNoAudio
	sta  CDMode
exit	rts

	ENDP
	
*===============================================*
*	Random Order		*
* - fill TrackMap with random tracks (BCD)	*
* - data tracks are not put in table	*
* - set MaxIndex		*
*			*
* INPUT:	none		*
*			*
* OUTPUT:	none		*
*			*
*===============================================*
RandomOrder	PROC

	IMPORT  RandomTrack
	IMPORT  TestAudioTrack

	ldx  #0
	phx
test
	lda  1,s		;A <-- X
	jsr  RandomTrack	;A <-- random track (BCD)
	cmp  #$0000
	beq  done		;out of tracks!
	jsr  TestAudioTrack	;an Audio track?
	bcc  okay		;yes
	bra  test
okay	plx
	shortm
	sta  TrackMap,x
	longm
	inx
	phx
	cpx  CDTrkCnt		;last track?
	bcc  test		;no
done
	plx
	dex
	stx  MaxIndex
	rts

	ENDP
	
*===============================================*
*           Convert BCD to Integer Value	*
*			*
* INPUT:	BCDValue (A-Reg)	*
*			*
* OUTPUT:	IntValue (A-Reg)	*
*			*
*===============================================*
BCD2Int	PROC

	pha		;save low nibble
	lsr  A
	lsr  A
	lsr  A
	lsr  A		;tens digit

	asl  A		;2x
	pha
	asl  A
	asl  A		;8x
	clc
	adc  1,s		;multiply by 10 (2x + 8x)
	sta  1,s
	lda  3,s		;ones digit
	and  #$000F
	clc
	adc  1,s		;integer result
	plx		;cleanup stack
	plx
	rts

	ENDP
	
*===============================================*
*           Turn Off Shuffle mode	*
*			*
* INPUT:	none		*
*			*
* OUTPUT:	none		*
*			*
*===============================================*
RndOff	PROC

	IMPORT  DrawButton
	IMPORT  SetRndL
	IMPORT  NormalOrder

	lda  CDPMode
	cmp  #mShuffle
	bne  exit		;was not on
	lda  #0
	sta  CDPMode		;turn off Shuffle
	jsr  SetRndL		;tell DrawButton
	jsr  NormalOrder
	ldy  #0
@invMap	lda  TrackMap,y		;find index from track
	and  #$00FF
	cmp  CDTrack
	beq  found
	iny
	bra  @invMap
found	sty  CurIndex
	lda  CDWinPtr
	ora  CDWinPtr+2
	beq  exit
	lda  #bShuffle
	jsr  DrawButton		;redraw button
exit	rts

	ENDP
	
*===============================================*
*         Initialize AB-Repeat Variables	*
*			*
* INPUT:	none		*
*			*
* OUTPUT:	none		*
*			*
*===============================================*
InitAB	PROC

	IMPORT  DrawButton
	IMPORT  SetABL
	IMPORT  AStopTrack

	lda  ABMode
	cmp  #abOff
	beq  exit		;already set up
	lda  #abOff
	sta  ABMode		;reset AB status
	lda  #0
	sta  CDPMode		;turn off AB mode
	jsr  SetABL		;tell DrawButton
	lda  CDWinPtr
	ora  CDWinPtr+2
	beq  exit
	lda  #bAB
	jsr  DrawButton		;redraw button
exit	rts

	ENDP
	
*===============================================*
*             Open NDA About Box	*
*			*
* INPUT:	none		*
*			*
* OUTPUT:	none		*
*			*
*===============================================*
DoAbout	PROC

	IMPORT  DrawAbout
	IMPORT  DrawDisc
	IMPORT  DrawIcon
	
	lda  #$8000
	jsr  DrawIcon		;invert icon
	PushLong #0		;save current port
	_GetPort
	PushWord
	_GetMasterSCB		;check for 320 mode
	pla
	and  #$0080
	beq  mode320
	lda  #w2X
	ldx  #w2X+dhW2
	bra  open
mode320	lda  #w2X_320
	ldx  #w2X_320+dhW2_320
open	sta  WindowRect2+2	;window's hort. position
	stx  WindowRect2+6

*** 23-Jan-91 DAL -- call WindowGlobal(1) so the NDA window doesn't have
*** to unhilite when our About window comes up.
	pha
	pea $0001
	_WindowGlobal
	pla
***
	PushLong #0		;open About window
	PushLong #WinRec2
	_NewWindow
*** 23-Jan-91 DAL -- call WindowGlobal again to restore normal hiliting
	pha
	pea $fffe
	_WindowGlobal
	pla
***
	lda  1,s
	sta  WinPtr2		;should do error check!...
	lda  3,s
	sta  WinPtr2+2
	_SetPort
	jsr  DrawAbout

	
wait	pha		;wait for key/mouse event
	PushWord #$000E		;event mask: mouse or key
	PushLong #temp
	_GetOSEvent
	pla
	beq  wait
	lda  temp
	cmp  #$0001		;mouse down ?
	beq  close
	cmp  #$0003		;key down ?
	bne  wait

close	PushLong WinPtr2
	_CloseWindow
	_SetPort		;back to DA window's port
	lda  #0
	jsr  DrawIcon		;un-invert icon
	rts

temp	DS.B  16		;place to dump event record

	ENDP
	
*===============================================*
*             Alert User of DA Error	*
*			*
* INPUT:	errorCode (A-Reg)	*
*	strPtrLow (X-Reg) SP error only	*
*	strPtrHi (Y-Reg) sp error only	*
*			*
* OUTPUT:	none		*
*			*
*===============================================*
	EXPORT  DoAlert
DoAlert	PROC
	
	cmp  #errNoRuby
	beq  noRUBY
	cmp  #errNoRevC
	beq  noRevC
	cmp  #errNoSCSI
	beq  noSCSI
	cmp  #errNotP16
	beq  notP16
	cmp  #1		;smartport error box
	bne  exit		;unknown error code
	txa
	tyx
	bra  alert
noRUBY	lda  #ErrString1
	ldx  #^ErrString1
	bra  alert
noRevC	lda  #ErrString2
	ldx  #^ErrString2
	bra  alert
noSCSI	lda  #ErrString3
	ldx  #^ErrString3
	bra  alert
notP16	lda  #ErrString4
	ldx  #^ErrString4
alert	
	sta  ErrStrPtr
	stx  ErrStrPtr+2
	PushWord
	_GetMasterSCB		;check for 320 mode
	pla
	and  #$0080
	beq  mode320
	lda  #aX
	ldx  #aX+aDX
	ldy  #aStrX
	bra  alert2
mode320	lda  #aX_320
	ldx  #aX_320+aDX_320
	ldy  #aStrX_320
alert2	sta  AlertTemplate+2	;hort. offsets
	stx  AlertTemplate+6
	sty  ErrStrRect+2
	PushWord #0		;space for ID
	PushLong #AlertTemplate
	PushLong #0
	_StopAlert
	pla
exit	rts

	ENDP
	
*===============================================*
*	Add System Task		*
* - Keeps the DA running in the background. 	*
*			*
* INPUT:	none		*
*			*
* OUTPUT:	none		*
*			*
*===============================================*
SystemTask	PROC

	IMPORT  SPOnLine
	IMPORT  AStatus
	IMPORT  NextTrack

taskTicks	equ  90		; 60 ticks = 1 second

*-----------------------------------------------
TaskHeader
	DC.L  0		; task pointer
TaskCount	DC.W  taskTicks		; tick count
	DC.W  $A55A		; signature
	DC.L  0		; reserved
*-----------------------------------------------

	phb
	phk
	plb

	jsr  AStatus
	cmp  #audioError
	bne  okay
	jsr  SPOnLine		; disc in drive ?
	bcc  done
	bra  exit		; no disc, so stop future tasks

okay	cmp  #audioComplete	; completed play ?
	beq  next		; yes
	cmp  #audioVoid		; if void and we were waiting then it
	bne  done		; counts as "audioComplete"
	lda  AudioWait
	beq  done
next	jsr  NextTrack		; get next selection to play		

done	lda  #taskTicks
	sta  TaskCount		; reset counter

exit	plb		; restore environment
	rtl

	ENDP
	
*===============================================*
	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CDRemote/CDRemote.equ b/IIGS.601.SRC/A.U.G/CDRemote/CDRemote.equ
new file mode 100644
index 0000000..e30f2c9
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CDRemote/CDRemote.equ
@@ -0,0 +1 @@
+* * * * * * * * * * * * * * * * * * * * * * * * *
* File:  CDRemote.equ		*
*			*
* Equates for CD-Remote (A New Desk Accessory)	*
* 			*
* Author:  Don Brady		*
*			*
* Build File:	CDRemote.make		*
*			*
* Copyright © APPLE Computer, Inc. 1987,1988	*
* All Rights Reserved.		*
*			*
* * * * * * * * * * * * * * * * * * * * * * * * *


bStop	equ  0		;button IDs (CDButton)
bPLay	equ  1
bPause	equ  2
bEject	equ  3
bSkipR	equ  4
bSkipF	equ  5
bScanR	equ  6
bScanF	equ  7
bAudioL	equ  8
bAudioR	equ  9
bRepeat	equ  10
bAB	equ  11
bShuffle	equ  12
bTime	equ  13

mdStop	equ  0		;current modes (CDMode)
mdPLay	equ  1
mdPause	equ  2
mdNoDisc	equ  3
mdNoDrive	equ  4
mdNoAudio	equ  5

actWait	equ  9		;for control action timer
mShuffle	equ  $01		;CD mode constants (CDPMode)
mABRept	equ  $02

abOff	equ  0		;AB repeat modes (ABMode)
abSetA	equ  1
abSetB	equ  2
abOn	equ  4

w1Y	equ  187-dvW1		;window offsets
w1X	equ  50
w2Y	equ  50
w2X	equ  (640-dhW2)/2
w2X_320	equ  (320-dhW2_320)/2
aDY	equ  64
aDX	equ  300
aDX_320	equ  270
aY	equ  50
aX	equ  (640-aDX)/2
aX_320	equ  (320-aDX_320)/2
aStrX	equ  80
aStrX_320	equ  65

errNoRUBY	equ  $8000		;init error codes
errNoRevC	equ  $4000
errNoSCSI	equ  $2000
errNotP16	equ  $1000

keyModReg	equ  $E0C025
openAppleKey	equ  $80

audioPLay	equ  $00		;Audio status results
audioPause	equ  $01
audioMute	equ  $02
audioComplete	equ  $03
audioError	equ  $04
audioVoid	equ  $05

true	equ  $FFFF
false	equ  $0000
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CDRemote/GSOSDriver.aii b/IIGS.601.SRC/A.U.G/CDRemote/GSOSDriver.aii
new file mode 100644
index 0000000..5b6e226
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CDRemote/GSOSDriver.aii
@@ -0,0 +1 @@
+* * * * * * * * * * * * * * * * * * * * * * * * *
* File:  GSOSDRIVER.aii		*
*			*
* GSOS Driver to AppleCD SCª (RUBY) drive	*
* Module for CD-Remote (A New Desk Accessory)	*
* 			*
* Author:	Don Brady		*
*			*
* Build File:	CDRemote.make		*
*			*
* Copyright © APPLE Computer, Inc. 1987-89	*
* All rights reserved.		*
*			*
* Modification History:		*
* Version 1.1			*
* 07/26/88 DJB - Created today		*
* * * * * * * * * * * * * * * * * * * * * * * * * 

;...............................................................
;
;        Set Memory & registers to 16 bits
;...............................................................
	MACRO
	SetLong
	rep   #%00110000
	longa on
	longi on
	MEND
;...............................................................
;
;        Set Memory & registers to 8 bits
;...............................................................
	MACRO
	SetShort
	sep   #%00110000
	longa off
	longi off
	MEND
	
;-----------------------------------------------
;
;   Imported data address (from CDRemote.aii)
;
;-----------------------------------------------

	IMPORT  CDAFrame		
	IMPORT  CDAMin
	IMPORT  CDASec
	IMPORT  CDATime
	IMPORT  CDCurTrk
	IMPORT  CDData
	IMPORT  CDFrame
	IMPORT  CDMaxTrk
	IMPORT  CDMin
	IMPORT  CDMinTrk
	IMPORT  CDSec
	IMPORT  CDTrkCnt
	
	include  'all.macros'
	
*===============================================*
*	GS/OS Constants		*
*===============================================*
GSOSEntry	equ  $E100A8
D_INFO	equ  $202C
D_STATUS	equ  $202D
D_CONTROL	equ  $202E

dcRemove	equ  $0004
dsOnline	equ  $0010
devCDROM	equ  $0007

pauseBit	equ  $10		; changed to $10 DJB 12/02/88
stopBit	equ  $10
scanForward	equ  $00
;scanReverse	equ  $40
scanReverse	equ  $10		; changed to $10 CAF 12/07/90

tocType0	equ  $00
tocType1	equ  $40
tocType2	equ  $80

addrBlock	equ  $00
addrTime	equ  $40
addrTrack	equ  $80

dataTrack	equ  $8000
*===============================================*
*         Device Driver Control Codes	*
*===============================================*
ccEject	equ  $0002
ccRezeroUnit	equ  $8001
ccAudioSearch	equ  $80C8
ccAudioPlay	equ  $80C9
ccAudioPause	equ  $80CA
ccAudioStop	equ  $80CB
ccAudioStatus	equ  $80CC
ccAudioScan	equ  $80CD
ccReadTOC	equ  $80C1
ccReadQSub	equ  $80C2
ccReadHeader	equ  $80C3

	
*===============================================*
*            Data for SmartPort Driver	*
*===============================================*

SPData	PROC


	ENTRY  DeviceNumber
DeviceNumber	DC.W  0

	ENTRY  IsOnLine
IsOnLine	DC.W  0		;boolean flag
	ENTRY  Params
Params	DC.W  0		;parameter block for Version

	ENTRY  AudioBuffer
AudioBuffer	DS.B  4*99		;Audio I/O buffer

	ENTRY  PlayMode
PlayMode	DC.W  9		;default = stereo
	ENTRY  AControl
AControl	DC.W  0
	ENTRY  ATrack
ATrack	DC.W  0
	ENTRY  AIndex
AIndex	DC.W  0
	ENTRY  AMin
AMin	DC.W  0		;not used ????
	ENTRY  ASec
ASec	DC.W  0
	ENTRY  AFrame
AFrame	DC.W  0


	ENTRY  dstat_params
dstat_params	DC.W  5		;pcount
	ENTRY  dstat_devnum
dstat_devnum	DC.W  0		;device number
	ENTRY  dstat_code
dstat_code	DC.W  0		;control code
	ENTRY  dstat_list
dstat_list	DC.L  dstat_data	;status list
	ENTRY  dstat_rcount
dstat_rcount	DC.L  6		;request count
	ENTRY  dstat_tcount
dstat_tcount	DC.L  0		;transfer count


	ENTRY  dstat_data
dstat_data	DS.B  8



	ENTRY  dctrl_params
dctrl_params	DC.W  5		;pcount
	ENTRY  dctrl_devnum
dctrl_devnum	DC.W  0		;device number
	ENTRY  dctrl_code
dctrl_code	DC.W  0		;control code
	ENTRY  dctrl_list
dctrl_list	DC.L  ControlList	;control list ptr.
	ENTRY  dctrl_rcount
dctrl_rcount	DC.L  0		;request count
	ENTRY  dctrl_tcount
dctrl_tcount	DC.L  0		;transfer count

	ENTRY  ControlList
ControlList	DC.W  0		;this is always zero!
	ENTRY  CommandData
CommandData	DS.B  12		;command data
	ENTRY  AudioBufPtr
AudioBufPtr	DC.L  AudioBuffer	;data buffer ptr.

	ENTRY  part2_rcount
part2_rcount	DC.L  0		;transfer count for part 2

	ENTRY dinfo_params
dinfo_params	DC.W  8		;pcount
	ENTRY dinfo_devnum
dinfo_devnum	DC.W  0		;device number
	ENTRY dinfo_devname
dinfo_devname	DC.L  DevNameBuf	;device name ptr
	ENTRY  dinfo_devchar
dinfo_devchar	DC.W  0		;device characteristics
	DC.L  0		;total blocks
	DC.W  0		;slot number
	DC.W  0		;unit number
	DC.W  0		;version
	ENTRY dinfo_devid
dinfo_devid	DC.W  0		;device id

DevNameBuf	DC.W  36		;class 1 output string
DevName	DS.B  34

	ENDP
	
*===============================================*
*	Initialize Driver	*
* - make sure GS/OS is active		*
* - look for SCSI Card Rev C		*
* - look for a AppleCD SC (RUBY) drive	*
* - check if device is online		*
*			*
* INPUT:	none		*
*			*
* OUTPUT:	ErrorCode (A-Reg)	*
*	$0000 = okay		*
*	$8000 = no RUBY drive	*
*	$4000 = no SCSI Rev C	*
*	$2000 = no SCSI card	*
*	$1000 = not GS/OS	*
*===============================================*
	EXPORT  SPInit
	EXPORT  SPInit2
SPInit	PROC

	
	_GET_VERSION Params
	lda  Params
	and  #$7F00
	cmp  #$0200		;is it GS/OS (2.0 or greater)?
	bcs  SPInit2
	lda  #$1000
	bra  exit
	
	ENTRY  SPInit2		;for the "backdoor"
SPInit2	
	ldx  #1		;start with first device
loop
	stx  dinfo_devnum
	stx  dstat_devnum
	

	phx		;save device number	
	jsl  GSOSEntry
	DC.W  D_INFO
	DC.L  dinfo_params
	plx
	bcs  none		;no more devices

	lda  dinfo_devchar
	and  #dcRemove		;a removable device?
	beq  next		;no
	
	lda  dinfo_devid
	cmp  #devCDROM		;a CD-ROM device?
	bne  next		;no
	
	phx		;save device number
	jsl  GSOSEntry
	DC.W  D_STATUS
	DC.L  dstat_params
	plx
	bcs  done

	stz  IsOnLine
	lda  dstat_data
	and  #dsOnline		;device online?
	beq  done
	lda  #1
	sta  IsOnLine
	bra  done
next
	inx
	bra  loop
done
	stx  DeviceNumber
	stx  dctrl_devnum
	lda  #$0000		;no error
exit	cmp  #1
	rts
none	
	lda  #$8000		;no RUBY drive
	bra  exit

	ENDP
		
*===============================================*
* Test RUBY for disc on line		*
*			*
* INPUT:	none		*
*			*
* OUTPUT:	A-Reg  1 = OnLine; 0 = OffLine	*
*	C-Flag 1 = not on line	*
*			*
*===============================================*

SPOnLine	PROC  EXPORT

	IMPORT  NoDisc
	IMPORT  NewDisc
	
	lda  DeviceNumber
	sta  dstat_devnum
	lda  #6		;request 6 bytes
	sta  dstat_rcount
	
	jsl  GSOSEntry
	DC.W  D_STATUS
	DC.L  dstat_params
	bcc  cont

	jsl  GSOSEntry		;try again
	DC.W  D_STATUS
	DC.L  dstat_params
	bcs  offline
cont
	lda  dstat_data
	and  #dsOnline		;device online?
	bne  online
	lda  IsOnline
	beq  offline		;already knew it
	jsr  NoDisc		;reset variables
	stz  IsOnLine
offline	lda  #0
	sec
	bra  exit
online	lda  IsOnLine
	bne  okay		;no disc switch
	inc  IsOnLine
	jsr  NewDisc		;read TOC stuff for DA
okay	lda  #1
	clc
exit	rts
	
	ENDP
	
*===============================================*
*	SCSI Busy		*
* - check to see if SCSI Card is "busy".	*
*			*
* INPUT:	none		*
*			*
* OUTPUT:	busyflag (carry bit) 1=yes, 0=no*
*			*
*===============================================*

SCSIBusy	PROC  EXPORT

	clc		;C <-- "not busy"
	rts

	ENDP
	
*===============================================*
*	SmartPort Rezero Unit	*
*			*
* INPUT:	none		*
*			*
* OUTPUT:	none		*
*			*
*===============================================*

SPRezero	PROC  EXPORT

	lda  #ccRezeroUnit	;control Code
	sta  dctrl_code
	and  #$00FF
	sta  CommandData	;set SCSI command
	
	stz  CommandData+2
	stz  CommandData+4
	stz  CommandData+6
	stz  CommandData+8
	stz  CommandData+10

	
	jsl  GSOSEntry
	DC.W  D_CONTROL
	DC.L  dctrl_params
	rts

 	ENDP
	
*===============================================*
*            Initialize Control data	*
*			*
* INPUT:	none		*
*			*
* OUTPUT:	none		*
*	A, X, & Y reg preserved	*
*===============================================*

InitCmndData	Proc

	stz  dctrl_rcount
	
	phx
	ldx  #10
loop	stz  CommandData,x
	dex
	dex
	bpl  loop
	plx
	rts
	
	ENDP
	
*===============================================*
*	CD-ROM Audio Call	*
*			*
* INPUT:	ctrlCode (A-Reg)	*
*			*
* OUTPUT:	errorCode (A-Reg)	*
*	carryFlag (1=error, 0=okay)	*
*			*
*===============================================*

AudioCall	Proc  EXPORT
	
	sta  dctrl_code		;control code
	and  #$00FF
	sta  CommandData	;set SCSI command

	jsl  GSOSEntry
	DC.W  D_CONTROL
	DC.L  dctrl_params
	rts
	
	ENDP
	
*===============================================*
*	CD-ROM Status Call	*
*			*
* INPUT:	ctrlCode (A-Reg)	*
*			*
* OUTPUT:	errorCode (A-Reg)	*
*	carryFlag (1=error, 0=okay)	*
*			*
*===============================================*

StatusCall	Proc  EXPORT

	
	sta  dctrl_code		;status code
	and  #$00FF
	sta  CommandData	;set SCSI command

	jsl  GSOSEntry
	DC.W  D_STATUS
	DC.L  dctrl_params	;use contol parameter list
	rts
	
	ENDP
	
*===============================================*
*	 Audio Seek Track	*
* - seek to track and hold		*
*			*
* INPUT:	track (A-Reg)		*
*			*
* OUTPUT:	carryFlag (0 = okay, 1 = error)	*
*			*
*===============================================*

ASeekTrack	PROC  EXPORT
	
	IMPORT  AStopTrack
	
	pha
	jsr  AStopTrack		;reset to this track
	pla

	jsr  InitCmndData	;zero out command data
	sta  CommandData+7	;set search track
*	lda  PlayMode
*	and  #$000F		;only bits 0-15 are valid
*	xba
*	sta  CommandData+2	;set play bit/play mode
	lda  #addrTrack		;use track
	sta  CommandData+8	;set address type

	lda  #ccAudioSearch	;control code
	jsr  AudioCall
	bcc  exit
	lda  #ccAudioSearch
	jsr  AudioCall		;try again
exit	rts
	
	ENDP
	
*===============================================*
*	  Audio Play Time	*
*			*
* INPUT:	frame (A-Reg)		*
*	sec (X-Reg)		*
*	min (Y-Reg)		*
*			*
* OUTPUT:	carryFlag (0 = okay, 1 = error)	*
*			*
*===============================================*

APlayTime	PROC  EXPORT
	
	jsr  InitCmndData	;zero out command data
	
	SetShort
	sty  CommandData+5	;set playback MIN
	stx  CommandData+6	;set playback SEC
	sta  CommandData+7	;set playback FRAME
	stz  CommandData+2	;set stop bit
	lda  PlayMode
	sta  CommandData+3	;set play mode
	lda  #addrTime		;use time
	sta  CommandData+8	;set address type
	SetLong
	
	lda   #ccAudioPlay	;control code
	jsr   AudioCall
	bcc   exit
	lda   #ccAudioPlay
	jsr   AudioCall		;try again	
exit	rts
	
	ENDP
	
*===============================================*
*	  Audio Play Track	*
*			*
* INPUT:	track (A-Reg)		*
*			*
* OUTPUT:	carryFlag (0 = okay, 1 = error)	*
*			*
*===============================================*

APlayTrack	PROC  EXPORT		;A-reg has TRACK
	
	jsr  InitCmndData	;zero out command data
	
	stz  CommandData+2	;set stop bit
	ldx  PlayMode
	stx  CommandData+3	;set play mode
	sta  CommandData+7	;set playback track
	sta  ATrack
	lda  #addrTrack		;use track
	sta  CommandData+8	;set address type

	lda  #ccAudioPlay	;control code
	jsr  AudioCall
	bcc  exit
	lda  #ccAudioPlay
	jsr  AudioCall		;try again
exit	rts
	
	ENDP
	
*===============================================*
*	  Audio Pause		*
*			*
* INPUT:	flag (A-Reg) 0=set,1=release	*
*			*
* OUTPUT:	carryFlag (0 = okay, 1 = error)	*
*			*
*===============================================*

APause	PROC  EXPORT
	
	jsr  InitCmndData	;zero out command data
	
	tax
	beq  cont
	lda  #pauseBit
cont	sta  CommandData+2	;set pause bit

	lda  #ccAudioPause	;control code
	jsr  AudioCall
	rts
	
	ENDP
	
*===============================================*
*	Audio Stop Time		*
* - set time stoping address		*
*			*
* INPUT:	frame (A-Reg)		*
*	sec (X-Reg)		*
*	min (Y-Reg)		*
*			*
* OUTPUT:	carryFlag (0 = okay, 1 = error)	*
*			*
*===============================================*

AStopTime	PROC  EXPORT
	
	jsr  InitCmndData	;zero out command data
	
	SetShort
	sty  CommandData+3	;playback MIN
	stx  CommandData+4	;playback SEC
	sta  CommandData+5	;playback FRAME
	lda  #addrTime		;use TIME
	sta  CommandData+6	;address type
	SetLong
	
	lda  #ccAudioStop	;control code
	jsr  AudioCall
	bcc  exit
	lda  #ccAudioStop
	jsr  AudioCall		;try again
exit	rts
	
	ENDP
	
*===============================================*
*	Audio Stop Track	*
* - set track stoping address		*
*			*
* INPUT:	track (A-Reg)		*
*			*
* OUTPUT:	carryFlag (0 = okay, 1 = error)	*
*			*
*===============================================*

AStopTrack	PROC  EXPORT
	
	jsr  InitCmndData	;zero out command data
	
	sta  CommandData+5	;stoping track

;--- Added DJB 7 Jun 89 ------------------------

	tax
	bne  @normal

	lda  #addrBlock		; if track = 0 we want to do a
	bra  setType		; rezero unit so type must be block

;--- End Addition ------------------------------

@normal	lda  #addrTrack
setType	sta  CommandData+6	;addr type = track
	
	lda  #ccAudioStop	;control code
	jsr  AudioCall
	bcc  exit
	lda  #ccAudioStop
	jsr  AudioCall		;try again
exit	rts
	
	ENDP
	
*===============================================*
*	  Audio Status		*
*			*
* INPUT:	none		*
*			*
* OUTPUT:	AudioStatus (A-Reg)	*
*	($04 = error/undefined)	*
*			*
*===============================================*

AStatus	PROC  EXPORT
	
	jsr  InitCmndData	;zero out command data
	
	lda  #6		;request 6 bytes
	sta  dctrl_rcount
	lda  #ccAudioStatus	;status code
	jsr  StatusCall
	bcs  again
	lda  dctrl_tcount	;was our data transfered?
	cmp  #6
	beq  okay
again	lda  #ccAudioStatus
	jsr  StatusCall		;try again
	bcs  err
	lda  dctrl_tcount	;was our data transfered?
	cmp  #6
	beq  okay
err	lda  #$0004		;simulate an error
	bra  exit
okay	lda  AudioBuffer
	and  #$00ff		;return audio status
exit	rts
	
	ENDP
	
*===============================================*
*           Audio Scan Forward/Reverse	*
*			*
* INPUT:	frame (A-Reg)		*
*	sec (X-Reg)		*
*	min (Y-Reg)		*
*			*
* OUTPUT:	carryFlag (0 = okay, 1 = error)	*
*			*
*===============================================*

AScanF	PROC  EXPORT		;A = FRAME, X = SEC, Y = MIN

	jsr  InitCmndData	;zero out command data
	
	SetShort
	sty  CommandData+5	;scan MIN
	stx  CommandData+6	;scan SEC
	sta  CommandData+7	;scan FRAME
	lda  #addrTime		;use time
	sta  CommandData+8	;address type
	lda  #scanForward
	sta  CommandData+2	;direction bit
	SetLong

	bra  continue	

	EXPORT AScanR
AScanR
	jsr  InitCmndData	;zero out command data
	
	SetShort
	sty  CommandData+5	;scan MIN
	stx  CommandData+6	;scan SEC
	sta  CommandData+7	;scan FRAME
	lda  #addrTime		;use time
	sta  CommandData+8	;address type
	lda  #scanReverse
	sta  CommandData+2	;direction bit
	SetLong
continue	
	lda  #ccAudioScan	;control code
	jsr  AudioCall
	bcc  exit
	lda  #ccAudioScan
	jsr  AudioCall		;try again
exit	rts
	
	ENDP
	
*===============================================*
*	Audio Scan Track	*
*			*
* INPUT:	track (A-Reg)		*
*	direction (X-Reg) 0=FWD, 1=REV	*
*			*
* OUTPUT:	carryFlag (0 = okay, 1 = error)	*
*			*
*===============================================*

AScanTrack	PROC  EXPORT
	
	jsr  InitCmndData	;zero out command data
	
	cpx  #scanForward
	beq  cont
	ldx  #scanReverse
cont	stx  CommandData+2	;direction bit
	
	sta  CommandData+7	;scan track
	lda  #addrTrack		;use track
	sta  CommandData+8	;address type
	
	lda  #ccAudioScan	;control code
	jsr  AudioCall
	bcc  exit
	lda  #ccAudioScan
	jsr  AudioCall		;try again
exit	rts
	
	ENDP
	
*===============================================*
*	   Audio Eject		*
*			*
* INPUT:	none		*
*			*
* OUTPUT:	carryFlag (0 = okay, 1 = error)	*
*			*
*===============================================*

AEject	PROC  EXPORT
	
	jsr  InitCmndData	;zero out command data
	
	lda  #ccEject		;control code
	sta  dctrl_code
	stz  CommandData

	jsl  GSOSEntry
	DC.W  D_CONTROL
	DC.L  dctrl_params
	rts
	
	ENDP
	
*===============================================*
*	Audio Play Mode		*
*			*
* INPUT:	mode (A-Reg)		*
*			*
* OUTPUT:	carryFlag (0 = okay, 1 = error)	*
*			*
*===============================================*

APlayMode	PROC  EXPORT
	
	IMPORT  CDCurTrk:DATA
	IMPORT  CDMinB:DATA
	IMPORT  CDSecB:DATA
	IMPORT  CDFrameB:DATA
	
	jsr  InitCmndData	;zero out command data
	
	sta  PlayMode		;save mode for other calls
	ldx  #stopBit
	stx  CommandData+2	;stop bit
	sta  CommandData+3	;play mode
	lda  CDCurTrk
	xba
	sta  CommandData+6	;playback track
	lda  #addrTrack		;use track
	sta  CommandData+8	;address type
	bra  doIT
	
	EXPORT APlayModeTime
APlayModeTime
	jsr  InitCmndData	;zero out command data
	
	sta  PlayMode		;save mode for other calls
	ldx  #stopBit
	stx  CommandData+2	;stop bit
	sta  CommandData+3	;play mode
	lda  CDMinB		;playback time
	sta  CommandData+5
	lda  CDSecB
	sta  CommandData+6
	lda  CDFrameB
	sta  CommandData+7
	lda  #addrTime		;use time
	sta  CommandData+8	;address type
doIt
	lda  #ccAudioPlay	;control code
	jsr  AudioCall
	bcc  exit
	lda  #ccAudioPlay
	jsr  AudioCall		;try again
exit	rts
	
	ENDP
	
*===============================================*
*	Audio TOC Track		*
* - get first and last track numbers	*
*			*
* INPUT:	none		*
*			*
* OUTPUT:	firstTrk (X-Reg)	*
*	lastTrk (Y-Reg)		*
*			*
*===============================================*

ATOCTrack	PROC  EXPORT
	
	jsr  InitCmndData	;zero out command data
	
	stz  CommandData+2	;track number
	stz  CommandData+3	;reserved
	lda  #tocType0
	sta  CommandData+5	;TOC type 0
	lda  #$04
	sta  dctrl_rcount	;allocation length

	lda  #ccReadTOC		;status code
	jsr  StatusCall
	bcc  okay
	lda  #ccReadTOC
	jsr  StatusCall		;try again
	bcc  okay
	ldx  #0
	ldy  #0
	bra  exit	
okay	lda  AudioBuffer	;first track
	and  #$00FF
	tax
	lda  AudioBuffer+1	;last track
	and  #$00FF
	tay
exit	rts
	
	ENDP
	
*===============================================*
*	 Audio TOC Time		*
* - get absolute track time values	*
* - get control field (data/audio track)	*
*			*
* NOTE:  This routined was patched to work	*
* around a SCSI Driver bug. The driver can only	*
* return 255 bytes of data for a status call. 	*
* Since each track has 4 bytes of data, a track	*
* count greater than 63 will exceed this limit.	*
* To get around this limitation I split the call*
* into 2 parts so that I can read all of the	*
* TOC data without getting an error back from   *
* the driver.			*
*			*
* INPUT:	none		*
*			*
* OUTPUT:	carryFlag (1 = error)	*
*			*
*===============================================*

ATOCTime	PROC  EXPORT		;get absolute track times
	
	IMPORT  (CDMinTrk,CDTrkCnt,CDATime):DATA
	
	stz  part2_rcount	;no part 2 yet
	
	jsr  InitCmndData	;zero out command data

	lda  #tocType2
	sta  CommandData+5	;TOC type 2 call
	
	lda  CDTrkCnt		;track count
	asl  A		;tracks * 4
	asl  A
	sta  dctrl_rcount	;allocation length
	cmp  #$0100		;is it too big for driver?
	bcc  normal
	sec
	sbc  #252
	sta  part2_rcount	;part 2 allocation length
	lda  #252
	sta  dctrl_rcount	;part 1 allocation length
normal
	lda  CDMinTrk		;starting track number
	sta  CommandData+2
	lda  #ccReadTOC		;status code
	jsr  StatusCall
	bcc  okay
	lda  #ccReadTOC
	jsr  StatusCall		;try again
	bcc  okay
	brl  exit		;error occured
okay
	lda  part2_rcount	;is there a part 2 ?
	beq  makeTable		;no
	sta  dctrl_rcount
	lda  #$0064		;starting track number
	sta  CommandData+2
	
	clc
	lda  AudioBufPtr	;point to part2
	adc  #252
	sta  AudioBufPtr
	bcc  part2
	inc  AudioBufPtr
part2	
	lda  #ccReadTOC		;status code
	jsr  StatusCall
	bcc  makeTable
	lda  #ccReadTOC
	jsr  StatusCall		;try again
	bcs  exit		;error occured
makeTable
	lda  #AudioBuffer	;restore buffer pointer
	sta  AudioBufPtr
	lda  #^AudioBuffer
	sta  AudioBufPtr+2

	lda  CDTrkCnt
	dec  A
	asl  A
	asl  A
	tay
	lda  CDTrkCnt
	dec  A
	dec  A
	asl  A
	tax
	phy
	
loop	lda  AudioBuffer+1,y	;AMin, ASec
	xba		;lsb <-- sec, msb <-- min
	sta  CDATime,x		;CDATime(x) <-- ATime(x+1)
	lda  AudioBuffer-4,y	;control field
	and  #$000D
	cmp  #$0004		;is it a data track?
	bne  cont1		;no
	lda  CDATime,x
	ora  #dataTrack		;mark entry as data
	sta  CDATime,x
cont1	dey
	dey
	dey
	dey
	dex
	dex
	bpl  loop

	ply		;check last track
	stz  AControl
	lda  AudioBuffer,y
	and  #$000D
	cmp  #$0004		;is it a data track?
	bne  cont2		;no
	lda  #dataTrack
	sta  AControl
cont2
	stz  CommandData+2	;track number
	lda  #$0004
	sta  dctrl_rcount	;allocation length
	lda  #tocType1
	sta  CommandData+5	;TOC type 1
	lda  #ccReadTOC		;status code
	jsr  StatusCall
	bcs  exit		;error occured
	lda  CDTrkCnt
	dec  A
	asl  A
	tax
	lda  AudioBuffer	;lead-out time
	xba		;lsb <-- sec, msb <-- min
	ora  AControl
	sta  CDATime,x		;CDATime(n) <-- Time
	clc
exit	rts
	
	ENDP
	
*===============================================*
*	Audio Read Q-Data	*
*			*
* INPUT:	none		*
*			*
* OUTPUT:	carryFlag (0 = okay, 1 = error)	*
*			*
*===============================================*

AReadQ	PROC  EXPORT

	IMPORT  (CDAMin,CDASec,CDMin,CDSec,CDIndex):DATA
	IMPORT  (CDAFrame,CDFrame,CDCurTrk):DATA

	jsr  InitCmndData	;zero out command data
	
	lda  #9		;request 9 bytes
	sta  dctrl_rcount

	lda  #ccReadQSub	;status code
	jsr  StatusCall
	bcc  cont
	lda  #ccReadQSub
	jsr  StatusCall		;try again
	bcs  exit		;error
cont	
	shortm
	lda  AudioBuffer	;control field
	sta  AControl
	lda  AudioBuffer+1
	cmp  #$AA		;into lead-out area ?
	bne  okay		;no
	lda  #0
okay	sta  CDCurTrk
	lda  AudioBuffer+2
	sta  CDIndex
	lda  AudioBuffer+3	;save track TIME
	sta  CDMin
	lda  AudioBuffer+4
	sta  CDSec
	lda  AudioBuffer+5
	sta  CDFrame
	lda  AudioBuffer+6	;save absolute TIME
	sta  CDAMin
	lda  AudioBuffer+7
	sta  CDASec
	lda  AudioBuffer+8
	sta  CDAFrame
	longm
exit	
	rts
	
	ENDP
	
*===============================================*
	END

\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CDRemote/cdremote.make b/IIGS.601.SRC/A.U.G/CDRemote/cdremote.make
new file mode 100644
index 0000000..8758610
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CDRemote/cdremote.make
@@ -0,0 +1 @@
+#   File:       CDRemote.make
#   Target:     CD.Remote
#   Sources:    cdplay.aii draw.aii gsosdriver.aii
#   Created:    Thursday, February 18, 1988 8:08:42 AM
#
#	This will build the CDRemote project
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # 

cdremote.obj	Ä cdremote.equ draw.equ cdremote.aii
	AsmIIGS cdremote.aii -o cdremote.obj

draw.obj		Ä draw.equ draw.aii
	AsmIIGS draw.aii -o draw.obj

gsosdriver.obj	Ä gsosdriver.aii
	AsmIIGS gsosdriver.aii -o gsosdriver.obj

CDRemote		Ä cdremote.obj draw.obj gsosdriver.obj
	LinkIIGS cdremote.obj draw.obj gsosdriver.obj -o CDRemote
	SetFile -t 'B8  ' CDRemote
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CDRemote/draw.aii b/IIGS.601.SRC/A.U.G/CDRemote/draw.aii
new file mode 100644
index 0000000..0ab9524
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CDRemote/draw.aii
@@ -0,0 +1 @@
+* * * * * * * * * * * * * * * * * * * * * * * * *
* File:  Draw.aii		*
*			*
* A Module for CD-Remote (A New Desk Accessory)	*
* 			*
* Date:	8/27/87 (created)	*
* Author:	Don Brady		*
*			*
* Build File:	CDRemote.make		*
*			*
* Copyright APPLE Computer, Inc. 1987,1988	*
*			*
* Modification History:		*
* Version 1.0			*
* 01/18/88  Released A1 today		*
* 02/11/88  Released A2 today		*
* 02/17/88  Converted to MAX (from APW) today	*
* 03/21/88  Release A4 today		*
* 04/01/88  Release B1 today		*
* 04/13/88  Release B2 (informal) today	*
* 04/15/88  Release B3 today		*
* 04/17/88  Release B4 (informal) today	*
* 04/18/88  Final Release today		*
* 23-Jan-91 Dave Lyons		*
*           Changed version to 1.3d2, copyright *
*           to include 91.		*
*			*
* * * * * * * * * * * * * * * * * * * * * * * * * 

	include  'Draw.equ'
	include  'all.macros'

	
*===============================================*
* 	Data for Draw Routines	*
*===============================================*
DrawData	PROC

	ENTRY  DisplayMode
	ENTRY  RectTbl1
	ENTRY  RectTbl2
	ENTRY  RectTbl3
	ENTRY  Rect320Tbl1
	ENTRY  Rect320Tbl2
	ENTRY  Rect320Tbl3
	ENTRY  WinRect
	ENTRY  DispRect
	ENTRY  DSRect
	ENTRY  WinRect320
	ENTRY  DispRect320
	ENTRY  DSRect320
	ENTRY  IconRect
	ENTRY  IconRect320
	ENTRY  AStrPtr
	ENTRY  StrPoint
	ENTRY  GrayPattern
	ENTRY  GrayPattern320
	ENTRY  Pattern2
	
	ENTRY  PictC
	ENTRY  PictB0
	ENTRY  PictB1
	ENTRY  PictB2
	ENTRY  PictB3
	ENTRY  PictB4
	ENTRY  PictB5
	ENTRY  PictB6
	ENTRY  PictB7
	ENTRY  PictB8a
	ENTRY  PictB8b
	ENTRY  PictB9a
	ENTRY  PictB9b
	ENTRY  PictB10a
	ENTRY  PictB10b
	ENTRY  PictB11a
	ENTRY  PictB11b
	ENTRY  PictB11c
	ENTRY  PictB11d
	ENTRY  PictB12a
	ENTRY  PictB12b
	ENTRY  PictB13
	ENTRY  PictApple
	ENTRY  PictApple_320
	ENTRY  PictAbout
	ENTRY  PictIcon
	ENTRY  PictMapL
	ENTRY  PictMapS
	ENTRY  PictMapT
	ENTRY  PictMapT_320
	ENTRY  PictMapB
	ENTRY  AudLPtr
	ENTRY  AudRPtr
	ENTRY  RepPtr
	ENTRY  ABPtr
	ENTRY  RndPtr
	
	ENTRY  LocInfoL
	ENTRY  PictPtrL
	ENTRY  PictRectL
	ENTRY  LocInfoS
	ENTRY  PictPtrS
	ENTRY  PictRectS
	ENTRY  LocInfoB
	ENTRY  PictPtrB
	ENTRY  PictRectB
	ENTRY  LocInfoT
	ENTRY  PictByteT
	ENTRY  PictPtrT
	ENTRY  PictRectT
	ENTRY  LocInfoC
	ENTRY  PictRectC
	ENTRY  LocInfoI
	ENTRY  PictRectI
	ENTRY  LocInfoA
	ENTRY  PictPtrA
	ENTRY  PictRectA
	ENTRY  PictPoint
	ENTRY  PictMode
	
	EXPORT  RectTblPtr
	EXPORT  IconRectPtr
	
DisplayMode	DC.W  $0080		;$80 = 640, $00 = 320
	
BRect0	DC.W  v1,h1,v1+dvB,h1+dhB	;Stop
BRect1	DC.W  v1,h2,v1+dvB,h2+dhB	;Play
BRect2	DC.W  v1,h3,v1+dvB,h3+dhB	;Pause
BRect3	DC.W  v1,h4,v1+dvB,h4+dhB	;Eject
BRect4	DC.W  v3,h1,v3+dvB,h1+dhB	;Skip Rev
BRect5	DC.W  v3,h2,v3+dvB,h2+dhB	;Skip Fwd
BRect6	DC.W  v3,h3,v3+dvB,h3+dhB	;Scan Rev
BRect7	DC.W  v3,h4,v3+dvB,h4+dhB	;Scan Fwd
BRect8	DC.W  v4,h1,v4+dvB,h1+dhB	;Audio Right
BRect9	DC.W  v4,h2,v4+dvB,h2+dhB	;Audio Left
BRect10	DC.W  v4,h3,v4+dvB,h3+dhB	;Repeat
BRect11	DC.W  v4,h4,v4+dvB,h4+dhB	;AB Repeat
BRect12	DC.W  v5,h1,v5+dvB,h1+dhB	;Shuffle
BRect13	DC.W  v5,h2,v5+dvB,h2+dhB	;Time

IRect0	DC.W  v1+1,h1+2,v1+1+dvB,h1+2+dhB  ;Stop
IRect1	DC.W  v1+1,h2+2,v1+1+dvB,h2+2+dhB  ;Play
IRect2	DC.W  v1+1,h3+2,v1+1+dvB,h3+2+dhB  ;Pause
IRect3	DC.W  v1+1,h4+2,v1+1+dvB,h4+2+dhB  ;Eject
IRect4	DC.W  v3+1,h1+2,v3+1+dvB,h1+2+dhB  ;Skip Rev
IRect5	DC.W  v3+1,h2+2,v3+1+dvB,h2+2+dhB  ;Skip Fwd
IRect6	DC.W  v3+1,h3+2,v3+1+dvB,h3+2+dhB  ;Scan Rev
IRect7	DC.W  v3+1,h4+2,v3+1+dvB,h4+2+dhB  ;Scan Fwd
IRect8	DC.W  v4+1,h1+2,v4+1+dvB,h1+2+dhB  ;Audio Right
IRect9	DC.W  v4+1,h2+2,v4+1+dvB,h2+2+dhB  ;Audio Left
IRect10	DC.W  v4+1,h3+2,v4+1+dvB,h3+2+dhB  ;Repeat
IRect11	DC.W  v4+1,h4+2,v4+1+dvB,h4+2+dhB  ;AB Repeat
IRect12	DC.W  v5+1,h1+2,v5+1+dvB,h1+2+dhB  ;Shuffle
IRect13	DC.W  v5+1,h2+2,v5+1+dvB,h2+2+dhB  ;Time

SRect0	DC.W  v1A,h1A,v1A+dvB,h1A+dhB	;Stop
SRect1	DC.W  v1A,h2A,v1A+dvB,h2A+dhB	;Play
SRect2	DC.W  v1A,h3A,v1A+dvB,h3A+dhB	;Pause
SRect3	DC.W  v1A,h4A,v1A+dvB,h4A+dhB	;Eject
SRect4	DC.W  v3A,h1A,v3A+dvB,h1A+dhB	;Skip Rev
SRect5	DC.W  v3A,h2A,v3A+dvB,h2A+dhB	;Skip Fwd
SRect6	DC.W  v3A,h3A,v3A+dvB,h3A+dhB	;Scan Rev
SRect7	DC.W  v3A,h4A,v3A+dvB,h4A+dhB	;Scan Fwd
SRect8	DC.W  v4A,h1A,v4A+dvB,h1A+dhB	;Audio Right
SRect9	DC.W  v4A,h2A,v4A+dvB,h2A+dhB	;Audio Left
SRect10	DC.W  v4A,h3A,v4A+dvB,h3A+dhB	;Repeat
SRect11	DC.W  v4A,h4A,v4A+dvB,h4A+dhB	;AB Repeat
SRect12	DC.W  v5A,h1A,v5A+dvB,h1A+dhB	;Shuffle
SRect13	DC.W  v5A,h2A,v5A+dvB,h2A+dhB	;Time

RectTbl1	DC.L  BRect0		;stop
	DC.L  BRect1		;play
	DC.L  BRect2		;pause
	DC.L  BRect3		;eject
	DC.L  BRect4		;skip L
	DC.L  BRect5		;skip R
	DC.L  BRect6		;scan L
	DC.L  BRect7		;scan R
	DC.L  BRect8		;audio L
	DC.L  BRect9		;audio R
	DC.L  BRect10		;repeat
	DC.L  BRect11		;AB
	DC.L  BRect12		;shuffle
	DC.L  BRect13		;time
	
RectTbl2	DC.L  SRect0		;stop
	DC.L  SRect1		;play
	DC.L  SRect2		;pause
	DC.L  SRect3		;eject
	DC.L  SRect4		;skip L
	DC.L  SRect5		;skip R
	DC.L  SRect6		;scan L
	DC.L  SRect7		;scan R
	DC.L  SRect8		;audio L
	DC.L  SRect9		;audio R
	DC.L  SRect10		;repeat
	DC.L  SRect11		;AB
	DC.L  SRect12		;shuffle
	DC.L  SRect13		;time
	
RectTbl3	DC.L  IRect0		;stop
	DC.L  IRect1		;play
	DC.L  IRect2		;pause
	DC.L  IRect3		;eject
	DC.L  IRect4		;skip L
	DC.L  IRect5		;skip R
	DC.L  IRect6		;scan L
	DC.L  IRect7		;scan R
	DC.L  IRect8		;audio L
	DC.L  IRect9		;audio R
	DC.L  IRect10		;repeat
	DC.L  IRect11		;AB
	DC.L  IRect12		;shuffle
	DC.L  IRect13		;time
	
*-------- 320 mode button rectangles ------------

B320Rect0	DC.W  v1,h1/2,v1+dvB,(h1+dhB)/2  ;Stop
B320Rect1	DC.W  v1,h2/2,v1+dvB,(h2+dhB)/2  ;Play
B320Rect2	DC.W  v1,h3/2,v1+dvB,(h3+dhB)/2  ;Pause
B320Rect3	DC.W  v1,h4/2,v1+dvB,(h4+dhB)/2  ;Eject
B320Rect4	DC.W  v3,h1/2,v3+dvB,(h1+dhB)/2  ;Skip Rev
B320Rect5	DC.W  v3,h2/2,v3+dvB,(h2+dhB)/2  ;Skip Fwd
B320Rect6	DC.W  v3,h3/2,v3+dvB,(h3+dhB)/2  ;Scan Rev
B320Rect7	DC.W  v3,h4/2,v3+dvB,(h4+dhB)/2  ;Scan Fwd
B320Rect8	DC.W  v4,h1/2,v4+dvB,(h1+dhB)/2  ;Audio Right
B320Rect9	DC.W  v4,h2/2,v4+dvB,(h2+dhB)/2  ;Audio Left
B320Rect10	DC.W  v4,h3/2,v4+dvB,(h3+dhB)/2  ;Repeat
B320Rect11	DC.W  v4,h4/2,v4+dvB,(h4+dhB)/2  ;AB Repeat
B320Rect12	DC.W  v5,h1/2,v5+dvB,(h1+dhB)/2  ;Shuffle
B320Rect13	DC.W  v5,h2/2,v5+dvB,(h2+dhB)/2  ;Time

I320Rect0	DC.W  v1+1,(h1+2)/2,v1+1+dvB,(h1+2+dhB)/2  ;Stop
I320Rect1	DC.W  v1+1,(h2+2)/2,v1+1+dvB,(h2+2+dhB)/2  ;Play
I320Rect2	DC.W  v1+1,(h3+2)/2,v1+1+dvB,(h3+2+dhB)/2  ;Pause
I320Rect3	DC.W  v1+1,(h4+2)/2,v1+1+dvB,(h4+2+dhB)/2  ;Eject
I320Rect4	DC.W  v3+1,(h1+2)/2,v3+1+dvB,(h1+2+dhB)/2  ;Skip Rev
I320Rect5	DC.W  v3+1,(h2+2)/2,v3+1+dvB,(h2+2+dhB)/2  ;Skip Fwd
I320Rect6	DC.W  v3+1,(h3+2)/2,v3+1+dvB,(h3+2+dhB)/2  ;Scan Rev
I320Rect7	DC.W  v3+1,(h4+2)/2,v3+1+dvB,(h4+2+dhB)/2  ;Scan Fwd
I320Rect8	DC.W  v4+1,(h1+2)/2,v4+1+dvB,(h1+2+dhB)/2  ;Audio Right
I320Rect9	DC.W  v4+1,(h2+2)/2,v4+1+dvB,(h2+2+dhB)/2  ;Audio Left
I320Rect10	DC.W  v4+1,(h3+2)/2,v4+1+dvB,(h3+2+dhB)/2  ;Repeat
I320Rect11	DC.W  v4+1,(h4+2)/2,v4+1+dvB,(h4+2+dhB)/2  ;AB Repeat
I320Rect12	DC.W  v5+1,(h1+2)/2,v5+1+dvB,(h1+2+dhB)/2  ;Shuffle
I320Rect13	DC.W  v5+1,(h2+2)/2,v5+1+dvB,(h2+2+dhB)/2  ;Time

S320Rect0	DC.W  v1A,h1A/2,v1A+dvB,(h1A+dhB)/2  ;Stop
S320Rect1	DC.W  v1A,h2A/2,v1A+dvB,(h2A+dhB)/2  ;Play
S320Rect2	DC.W  v1A,h3A/2,v1A+dvB,(h3A+dhB)/2  ;Pause
S320Rect3	DC.W  v1A,h4A/2,v1A+dvB,(h4A+dhB)/2  ;Eject
S320Rect4	DC.W  v3A,h1A/2,v3A+dvB,(h1A+dhB)/2  ;Skip Rev
S320Rect5	DC.W  v3A,h2A/2,v3A+dvB,(h2A+dhB)/2  ;Skip Fwd
S320Rect6	DC.W  v3A,h3A/2,v3A+dvB,(h3A+dhB)/2  ;Scan Rev
S320Rect7	DC.W  v3A,h4A/2,v3A+dvB,(h4A+dhB)/2  ;Scan Fwd
S320Rect8	DC.W  v4A,h1A/2,v4A+dvB,(h1A+dhB)/2  ;Audio Right
S320Rect9	DC.W  v4A,h2A/2,v4A+dvB,(h2A+dhB)/2  ;Audio Left
S320Rect10	DC.W  v4A,h3A/2,v4A+dvB,(h3A+dhB)/2  ;Repeat
S320Rect11	DC.W  v4A,h4A/2,v4A+dvB,(h4A+dhB)/2  ;AB Repeat
S320Rect12	DC.W  v5A,h1A/2,v5A+dvB,(h1A+dhB)/2  ;Shuffle
S320Rect13	DC.W  v5A,h2A/2,v5A+dvB,(h2A+dhB)/2  ;Time

Rect320Tbl1	DC.L  B320Rect0		;stop
	DC.L  B320Rect1		;play
	DC.L  B320Rect2		;pause
	DC.L  B320Rect3		;eject
	DC.L  B320Rect4		;skip L
	DC.L  B320Rect5		;skip R
	DC.L  B320Rect6		;scan L
	DC.L  B320Rect7		;scan R
	DC.L  B320Rect8		;audio L
	DC.L  B320Rect9		;audio R
	DC.L  B320Rect10	;repeat
	DC.L  B320Rect11	;AB
	DC.L  B320Rect12	;shuffle
	DC.L  B320Rect13	;time
	
Rect320Tbl2	DC.L  S320Rect0		;stop
	DC.L  S320Rect1		;play
	DC.L  S320Rect2		;pause
	DC.L  S320Rect3		;eject
	DC.L  S320Rect4		;skip L
	DC.L  S320Rect5		;skip R
	DC.L  S320Rect6		;scan L
	DC.L  S320Rect7		;scan R
	DC.L  S320Rect8		;audio L
	DC.L  S320Rect9		;audio R
	DC.L  S320Rect10	;repeat
	DC.L  S320Rect11	;AB
	DC.L  S320Rect12	;shuffle
	DC.L  S320Rect13	;time
	
Rect320Tbl3	DC.L  I320Rect0		;stop
	DC.L  I320Rect1		;play
	DC.L  I320Rect2		;pause
	DC.L  I320Rect3		;eject
	DC.L  I320Rect4		;skip L
	DC.L  I320Rect5		;skip R
	DC.L  I320Rect6		;scan L
	DC.L  I320Rect7		;scan R
	DC.L  I320Rect8		;audio L
	DC.L  I320Rect9		;audio R
	DC.L  I320Rect10	;repeat
	DC.L  I320Rect11	;AB
	DC.L  I320Rect12	;shuffle
	DC.L  I320Rect13	;time
	
	
WinRect	DC.W  0,0,dvW1,dhW1	;window's rect
DispRect	DC.W  v2,h1,v2+dvD,h1+dhD-2	;display's rect
DSRect	DC.W  v2+1,h1+2,v2+dvD+1,h1+dhD	;display's shadow rect
IconRect	DC.W  v6,h6,v6+dvI,h6+dhI	;icon's rect

WinRect320	DC.W  0,0,dvW1,dhW1/2	         ;window's rect
DispRect320	DC.W  v2,h1/2,v2+dvD,(h1+dhD-2)/2        ;display's rect
DSRect320	DC.W  v2+1,(h1+2)/2,v2+dvD+1,(h1+dhD)/2  ;display's shadow rect
IconRect320	DC.W  v6,h6/2,v6+dvI,(h6+dhI)/2	         ;icon's rect
RectTblPtr	DC.L  RectTbl1
IconRectPtr	DC.L  IconRect
	
PictPoint	DC.L  0		;generic point
PictMode	DC.W  0		;$8000=inverse, $0000=normal

LocInfoL	DC.W  $80		;port SCB
PictPtrL	DC.L  $0000		;Picture ptr
	DC.W  5		;Picture width (bytes)
PictRectL	DC.W  0,0,dvPL,dhPL	;bounds rect


LocInfoS	DC.W  $80		;port SCB
PictPtrS	DC.L  $0000		;Picture ptr
	DC.W  3		;Picture width (bytes)
PictRectS	DC.W  0,0,dvPS,dhPS	;bounds rect


LocInfoC	DC.W  $80		;port SCB
	DC.L  PictC		;Picture ptr
	DC.W  1		;Picture width (bytes)
PictRectC	DC.W  0,0,dvC,dhC	;bounds rect


LocInfoB	DC.W  $0080		;port SCB
PictPtrB	DC.L  $00000000		;picture ptr
	DC.W  5		;picture width (bytes)
PictRectB	DC.W  0,0,dvL,dhL	;bounds rect


LocInfoT	DC.W  $0080		;port SCB
PictPtrT	DC.L  0		;picture ptr
PictByteT	DC.W  0		;picture width (bytes)
PictRectT	DC.W  0,0,dvT,dhT	;bounds rect


LocInfoI	DC.W  $0080		;port SCB
	DC.L  PictIcon		;picture ptr
	DC.W  21		;picture width (bytes)
PictRectI	DC.W  0,0,dvI,dhI	;bounds rect


LocInfoA	DC.W  $0080		;port SCB
PictPtrA	DC.L  PictApple		;picture ptr
	DC.W  4		;picture width (bytes)
PictRectA	DC.W  0,0,dvA,dhA	;bounds rect


	STRING  PASCAL
AString0	DC.B  'CD-REMOTE'
AString1	DC.B  'by Don Brady'
AString2	DC.B  'Version 1.3'
AString3	DC.B  'Copyright Apple Computer, Inc. 1988-92'
AString4	DC.B  'All rights reserved.'
	STRING  ASIS
	
AStrPtr	DC.L  Astring0
	DC.L  Astring1
	DC.L  Astring2
	DC.L  Astring3
	DC.L  Astring4
	
StrPoint	DC.W  18,0		;Title
	DC.W  28,0		;Author
	DC.W  46,0		;Version
	DC.W  65,0		;SQA
	DC.W  77,0		;Copyright
	
GrayPattern	DC.B  $33,$33,$33,$33	;pattern for gray
	DC.B  $33,$33,$33,$33
	DC.B  $33,$33,$33,$33
	DC.B  $33,$33,$33,$33
	DC.B  $33,$33,$33,$33
	DC.B  $33,$33,$33,$33
	DC.B  $33,$33,$33,$33
	DC.B  $33,$33,$33,$33
	
GrayPattern320	DC.B  $11,$11,$11,$11	;pattern for gray (320)
	DC.B  $11,$11,$11,$11
	DC.B  $11,$11,$11,$11
	DC.B  $11,$11,$11,$11
	DC.B  $11,$11,$11,$11
	DC.B  $11,$11,$11,$11
	DC.B  $11,$11,$11,$11
	DC.B  $11,$11,$11,$11

Pattern2	DC.B  $00,$00,$00,$00	;pattern for black
	DC.B  $00,$00,$00,$00
	DC.B  $00,$00,$00,$00
	DC.B  $00,$00,$00,$00
	DC.B  $00,$00,$00,$00
	DC.B  $00,$00,$00,$00
	DC.B  $00,$00,$00,$00
	DC.B  $00,$00,$00,$00

;-------------------------------------------------------
; foreground color = 0 (00 binary --> 0000 --> 0 hex)
; background color = 3 (11 binary --> 1111 --> f hex)
;-------------------------------------------------------

Pict0L	DC.B  $0f,$ff,$ff,$ff,$00	;large 0
	DC.B  $f0,$ff,$ff,$f0,$f0
	DC.B  $ff,$00,$00,$0f,$f0
	DC.B  $ff,$00,$00,$0f,$f0
	DC.B  $ff,$00,$00,$0f,$f0
	DC.B  $ff,$00,$00,$0f,$f0
	DC.B  $ff,$00,$00,$0f,$f0
	DC.B  $f0,$00,$00,$00,$f0
	DC.B  $00,$00,$00,$00,$00
	DC.B  $f0,$00,$00,$00,$f0
	DC.B  $ff,$00,$00,$0f,$f0
	DC.B  $ff,$00,$00,$0f,$f0
	DC.B  $ff,$00,$00,$0f,$f0
	DC.B  $ff,$00,$00,$0f,$f0
	DC.B  $ff,$00,$00,$0f,$f0
	DC.B  $f0,$ff,$ff,$f0,$f0
	DC.B  $0f,$ff,$ff,$ff,$00

Pict1L	DC.B  $00,$00,$00,$00,$00	;large 1
	DC.B  $00,$00,$00,$00,$f0
	DC.B  $00,$00,$00,$0f,$f0
	DC.B  $00,$00,$00,$0f,$f0
	DC.B  $00,$00,$00,$0f,$f0
	DC.B  $00,$00,$00,$0f,$f0
	DC.B  $00,$00,$00,$0f,$f0
	DC.B  $00,$00,$00,$00,$f0
	DC.B  $00,$00,$00,$00,$00
	DC.B  $00,$00,$00,$00,$f0
	DC.B  $00,$00,$00,$0f,$f0
	DC.B  $00,$00,$00,$0f,$f0
	DC.B  $00,$00,$00,$0f,$f0
	DC.B  $00,$00,$00,$0f,$f0
	DC.B  $00,$00,$00,$0f,$f0
	DC.B  $00,$00,$00,$00,$f0
	DC.B  $00,$00,$00,$00,$00

Pict2L	DC.B  $0f,$ff,$ff,$ff,$00	;large 2
	DC.B  $00,$ff,$ff,$f0,$f0
	DC.B  $00,$00,$00,$0f,$f0
	DC.B  $00,$00,$00,$0f,$f0
	DC.B  $00,$00,$00,$0f,$f0
	DC.B  $00,$00,$00,$0f,$f0
	DC.B  $00,$00,$00,$0f,$f0
	DC.B  $00,$00,$00,$00,$f0
	DC.B  $0f,$ff,$ff,$ff,$00
	DC.B  $f0,$ff,$ff,$f0,$00
	DC.B  $ff,$00,$00,$00,$00
	DC.B  $ff,$00,$00,$00,$00
	DC.B  $ff,$00,$00,$00,$00
	DC.B  $ff,$00,$00,$00,$00
	DC.B  $ff,$00,$00,$00,$00
	DC.B  $f0,$ff,$ff,$f0,$00
	DC.B  $0f,$ff,$ff,$ff,$00

Pict3L	DC.B  $0f,$ff,$ff,$ff,$00	;large 3
	DC.B  $00,$ff,$ff,$f0,$f0
	DC.B  $00,$00,$00,$0f,$f0
	DC.B  $00,$00,$00,$0f,$f0
	DC.B  $00,$00,$00,$0f,$f0
	DC.B  $00,$00,$00,$0f,$f0
	DC.B  $00,$00,$00,$0f,$f0
	DC.B  $00,$00,$00,$00,$f0
	DC.B  $0f,$ff,$ff,$ff,$00
	DC.B  $00,$ff,$ff,$f0,$f0
	DC.B  $00,$00,$00,$0f,$f0
	DC.B  $00,$00,$00,$0f,$f0
	DC.B  $00,$00,$00,$0f,$f0
	DC.B  $00,$00,$00,$0f,$f0
	DC.B  $00,$00,$00,$0f,$f0
	DC.B  $00,$ff,$ff,$f0,$f0
	DC.B  $0f,$ff,$ff,$ff,$00

Pict4L	DC.B  $00,$00,$00,$00,$00	;large 4
	DC.B  $f0,$00,$00,$00,$f0
	DC.B  $ff,$00,$00,$0f,$f0
	DC.B  $ff,$00,$00,$0f,$f0
	DC.B  $ff,$00,$00,$0f,$f0
	DC.B  $ff,$00,$00,$0f,$f0
	DC.B  $ff,$00,$00,$0f,$f0
	DC.B  $f0,$00,$00,$00,$f0
	DC.B  $0f,$ff,$ff,$ff,$00
	DC.B  $00,$ff,$ff,$f0,$f0
	DC.B  $00,$00,$00,$0f,$f0
	DC.B  $00,$00,$00,$0f,$f0
	DC.B  $00,$00,$00,$0f,$f0
	DC.B  $00,$00,$00,$0f,$f0
	DC.B  $00,$00,$00,$0f,$f0
	DC.B  $00,$00,$00,$00,$f0
	DC.B  $00,$00,$00,$00,$00

Pict5L	DC.B  $0f,$ff,$ff,$ff,$00	;large 5
	DC.B  $f0,$ff,$ff,$f0,$00
	DC.B  $ff,$00,$00,$00,$00
	DC.B  $ff,$00,$00,$00,$00
	DC.B  $ff,$00,$00,$00,$00
	DC.B  $ff,$00,$00,$00,$00
	DC.B  $ff,$00,$00,$00,$00
	DC.B  $f0,$00,$00,$00,$00
	DC.B  $0f,$ff,$ff,$ff,$00
	DC.B  $00,$ff,$ff,$f0,$f0
	DC.B  $00,$00,$00,$0f,$f0
	DC.B  $00,$00,$00,$0f,$f0
	DC.B  $00,$00,$00,$0f,$f0
	DC.B  $00,$00,$00,$0f,$f0
	DC.B  $00,$00,$00,$0f,$f0
	DC.B  $00,$ff,$ff,$f0,$f0
	DC.B  $0f,$ff,$ff,$ff,$00

Pict6L	DC.B  $0f,$ff,$ff,$ff,$00	;large 6
	DC.B  $f0,$ff,$ff,$f0,$00
	DC.B  $ff,$00,$00,$00,$00
	DC.B  $ff,$00,$00,$00,$00
	DC.B  $ff,$00,$00,$00,$00
	DC.B  $ff,$00,$00,$00,$00
	DC.B  $ff,$00,$00,$00,$00
	DC.B  $f0,$00,$00,$00,$00
	DC.B  $0f,$ff,$ff,$ff,$00
	DC.B  $f0,$ff,$ff,$f0,$f0
	DC.B  $ff,$00,$00,$0f,$f0
	DC.B  $ff,$00,$00,$0f,$f0
	DC.B  $ff,$00,$00,$0f,$f0
	DC.B  $ff,$00,$00,$0f,$f0
	DC.B  $ff,$00,$00,$0f,$f0
	DC.B  $f0,$ff,$ff,$f0,$f0
	DC.B  $0f,$ff,$ff,$ff,$00

Pict7L	DC.B  $0f,$ff,$ff,$ff,$00	;large 7
	DC.B  $00,$ff,$ff,$f0,$f0
	DC.B  $00,$00,$00,$0f,$f0
	DC.B  $00,$00,$00,$0f,$f0
	DC.B  $00,$00,$00,$0f,$f0
	DC.B  $00,$00,$00,$0f,$f0
	DC.B  $00,$00,$00,$0f,$f0
	DC.B  $00,$00,$00,$00,$f0
	DC.B  $00,$00,$00,$00,$00
	DC.B  $00,$00,$00,$00,$f0
	DC.B  $00,$00,$00,$0f,$f0
	DC.B  $00,$00,$00,$0f,$f0
	DC.B  $00,$00,$00,$0f,$f0
	DC.B  $00,$00,$00,$0f,$f0
	DC.B  $00,$00,$00,$0f,$f0
	DC.B  $00,$00,$00,$00,$f0
	DC.B  $00,$00,$00,$00,$00

Pict8L	DC.B  $0f,$ff,$ff,$ff,$00	;large 8
	DC.B  $f0,$ff,$ff,$f0,$f0
	DC.B  $ff,$00,$00,$0f,$f0
	DC.B  $ff,$00,$00,$0f,$f0
	DC.B  $ff,$00,$00,$0f,$f0
	DC.B  $ff,$00,$00,$0f,$f0
	DC.B  $ff,$00,$00,$0f,$f0
	DC.B  $f0,$00,$00,$00,$f0
	DC.B  $0f,$ff,$ff,$ff,$00
	DC.B  $f0,$ff,$ff,$f0,$f0
	DC.B  $ff,$00,$00,$0f,$f0
	DC.B  $ff,$00,$00,$0f,$f0
	DC.B  $ff,$00,$00,$0f,$f0
	DC.B  $ff,$00,$00,$0f,$f0
	DC.B  $ff,$00,$00,$0f,$f0
	DC.B  $f0,$ff,$ff,$f0,$f0
	DC.B  $0f,$ff,$ff,$ff,$00

Pict9L	DC.B  $0f,$ff,$ff,$ff,$00	;large 9
	DC.B  $f0,$ff,$ff,$f0,$f0
	DC.B  $ff,$00,$00,$0f,$f0
	DC.B  $ff,$00,$00,$0f,$f0
	DC.B  $ff,$00,$00,$0f,$f0
	DC.B  $ff,$00,$00,$0f,$f0
	DC.B  $ff,$00,$00,$0f,$f0
	DC.B  $f0,$00,$00,$00,$f0
	DC.B  $0f,$ff,$ff,$ff,$00
	DC.B  $00,$ff,$ff,$f0,$f0
	DC.B  $00,$00,$00,$0f,$f0
	DC.B  $00,$00,$00,$0f,$f0
	DC.B  $00,$00,$00,$0f,$f0
	DC.B  $00,$00,$00,$0f,$f0
	DC.B  $00,$00,$00,$0f,$f0
	DC.B  $00,$ff,$ff,$f0,$f0
	DC.B  $0f,$ff,$ff,$ff,$00
 
Pict0S	DC.B  $0f,$ff,$f0	;small 0
	DC.B  $f0,$00,$0f
	DC.B  $f0,$00,$0f
	DC.B  $f0,$00,$0f
	DC.B  $f0,$00,$0f
	DC.B  $00,$00,$00
	DC.B  $f0,$00,$0f
	DC.B  $f0,$00,$0f
	DC.B  $f0,$00,$0f
	DC.B  $f0,$00,$0f
	DC.B  $0f,$ff,$f0

Pict1S	DC.B  $00,$00,$00	;small 1
	DC.B  $00,$00,$0f
	DC.B  $00,$00,$0f
	DC.B  $00,$00,$0f
	DC.B  $00,$00,$0f
	DC.B  $00,$00,$00
	DC.B  $00,$00,$0f
	DC.B  $00,$00,$0f
	DC.B  $00,$00,$0f
	DC.B  $00,$00,$0f
	DC.B  $00,$00,$00

Pict2S	DC.B  $0f,$ff,$f0	;small 2
	DC.B  $00,$00,$0f
	DC.B  $00,$00,$0f
	DC.B  $00,$00,$0f
	DC.B  $00,$00,$0f
	DC.B  $0f,$ff,$f0
	DC.B  $f0,$00,$00
	DC.B  $f0,$00,$00
	DC.B  $f0,$00,$00
	DC.B  $f0,$00,$00
	DC.B  $0f,$ff,$f0

Pict3S	DC.B  $0f,$ff,$f0	;small 3
	DC.B  $00,$00,$0f
	DC.B  $00,$00,$0f
	DC.B  $00,$00,$0f
	DC.B  $00,$00,$0f
	DC.B  $0f,$ff,$f0
	DC.B  $00,$00,$0f
	DC.B  $00,$00,$0f
	DC.B  $00,$00,$0f
	DC.B  $00,$00,$0f
	DC.B  $0f,$ff,$f0

Pict4S	DC.B  $00,$00,$00	;small 4
	DC.B  $f0,$00,$0f
	DC.B  $f0,$00,$0f
	DC.B  $f0,$00,$0f
	DC.B  $f0,$00,$0f
	DC.B  $0f,$ff,$f0
	DC.B  $00,$00,$0f
	DC.B  $00,$00,$0f
	DC.B  $00,$00,$0f
	DC.B  $00,$00,$0f
	DC.B  $00,$00,$00

Pict5S	DC.B  $0f,$ff,$f0	;small 5
	DC.B  $f0,$00,$00
	DC.B  $f0,$00,$00
	DC.B  $f0,$00,$00
	DC.B  $f0,$00,$00
	DC.B  $0f,$ff,$f0
	DC.B  $00,$00,$0f
	DC.B  $00,$00,$0f
	DC.B  $00,$00,$0f
	DC.B  $00,$00,$0f
	DC.B  $0f,$ff,$f0

Pict6S	DC.B  $0f,$ff,$f0	;small 6
	DC.B  $f0,$00,$00
	DC.B  $f0,$00,$00
	DC.B  $f0,$00,$00
	DC.B  $f0,$00,$00
	DC.B  $0f,$ff,$f0
	DC.B  $f0,$00,$0f
	DC.B  $f0,$00,$0f
	DC.B  $f0,$00,$0f
	DC.B  $f0,$00,$0f
	DC.B  $0f,$ff,$f0

Pict7S	DC.B  $0f,$ff,$f0	;small 7
	DC.B  $00,$00,$0f
	DC.B  $00,$00,$0f
	DC.B  $00,$00,$0f
	DC.B  $00,$00,$0f
	DC.B  $00,$00,$00
	DC.B  $00,$00,$0f
	DC.B  $00,$00,$0f
	DC.B  $00,$00,$0f
	DC.B  $00,$00,$0f
	DC.B  $00,$00,$00

Pict8S	DC.B  $0f,$ff,$f0	;small 8
	DC.B  $f0,$00,$0f
	DC.B  $f0,$00,$0f
	DC.B  $f0,$00,$0f
	DC.B  $f0,$00,$0f
	DC.B  $0f,$ff,$f0
	DC.B  $f0,$00,$0f
	DC.B  $f0,$00,$0f
	DC.B  $f0,$00,$0f
	DC.B  $f0,$00,$0f
	DC.B  $0f,$ff,$f0

Pict9S	DC.B  $0f,$ff,$f0	;small 9
	DC.B  $f0,$00,$0f
	DC.B  $f0,$00,$0f
	DC.B  $f0,$00,$0f
	DC.B  $f0,$00,$0f
	DC.B  $0f,$ff,$f0
	DC.B  $00,$00,$0f
	DC.B  $00,$00,$0f
	DC.B  $00,$00,$0f
	DC.B  $00,$00,$0f
	DC.B  $0f,$ff,$f0

PictC	DC.B  $00		;small ":"
	DC.B  $00
	DC.B  $00
	DC.B  $f0
	DC.B  $00
	DC.B  $00
	DC.B  $00
	DC.B  $f0
	DC.B  $00
	DC.B  $00
	DC.B  $00


PictB0	DC.B  $0f,$ff,$ff,$ff,$00	;stop
	DC.B  $0f,$ff,$ff,$ff,$00
	DC.B  $0f,$ff,$ff,$ff,$00
	DC.B  $0f,$ff,$ff,$ff,$00
	DC.B  $0f,$ff,$ff,$ff,$00
	DC.B  $0f,$ff,$ff,$ff,$00
	DC.B  $0f,$ff,$ff,$ff,$00

PictB1	DC.B  $00,$0f,$00,$00,$00	;play
	DC.B  $00,$0f,$f0,$00,$00
	DC.B  $00,$0f,$ff,$00,$00
	DC.B  $00,$0f,$ff,$f0,$00
	DC.B  $00,$0f,$ff,$00,$00
	DC.B  $00,$0f,$f0,$00,$00
	DC.B  $00,$0f,$00,$00,$00

PictB2	DC.B  $ff,$f0,$00,$ff,$f0	;pause
	DC.B  $ff,$f0,$00,$ff,$f0
	DC.B  $ff,$f0,$00,$ff,$f0
	DC.B  $ff,$f0,$00,$ff,$f0
	DC.B  $ff,$f0,$00,$ff,$f0
	DC.B  $ff,$f0,$00,$ff,$f0
	DC.B  $ff,$f0,$00,$ff,$f0

PictB3	DC.B  $00,$00,$00,$00,$00	;eject
	DC.B  $00,$00,$f0,$00,$00
	DC.B  $00,$0f,$ff,$00,$00
	DC.B  $00,$ff,$ff,$f0,$00
	DC.B  $0f,$ff,$ff,$ff,$00
	DC.B  $00,$00,$00,$00,$00
	DC.B  $0f,$ff,$ff,$ff,$00

PictB4	DC.B  $f0,$00,$f0,$00,$f0	;skip reverse
	DC.B  $f0,$0f,$f0,$0f,$f0
	DC.B  $f0,$ff,$f0,$ff,$f0
	DC.B  $ff,$ff,$ff,$ff,$f0
	DC.B  $f0,$ff,$f0,$ff,$f0
	DC.B  $f0,$0f,$f0,$0f,$f0
	DC.B  $f0,$00,$f0,$00,$f0

PictB5	DC.B  $f0,$00,$f0,$00,$f0	;skip forward
	DC.B  $ff,$00,$ff,$00,$f0
	DC.B  $ff,$f0,$ff,$f0,$f0
	DC.B  $ff,$ff,$ff,$ff,$f0
	DC.B  $ff,$f0,$ff,$f0,$f0
	DC.B  $ff,$00,$ff,$00,$f0
	DC.B  $f0,$00,$f0,$00,$f0

PictB6	DC.B  $00,$0f,$f0,$00,$f0	;scan reverse
	DC.B  $00,$ff,$f0,$0f,$f0
	DC.B  $0f,$ff,$f0,$ff,$f0
	DC.B  $ff,$ff,$ff,$ff,$f0
	DC.B  $0f,$ff,$f0,$ff,$f0
	DC.B  $00,$ff,$f0,$0f,$f0
	DC.B  $00,$0f,$f0,$00,$f0

PictB7	DC.B  $f0,$00,$ff,$00,$00	;scan forward
	DC.B  $ff,$00,$ff,$f0,$00
	DC.B  $ff,$f0,$ff,$ff,$00
	DC.B  $ff,$ff,$ff,$ff,$f0
	DC.B  $ff,$f0,$ff,$ff,$00
	DC.B  $ff,$00,$ff,$f0,$00
	DC.B  $f0,$00,$ff,$00,$00

PictB8a	DC.B  $0f,$00,$0f,$00,$00	;audio left
	DC.B  $f0,$0f,$0f,$f0,$00
	DC.B  $f0,$f0,$0f,$ff,$f0
	DC.B  $f0,$f0,$0f,$ff,$f0
	DC.B  $f0,$f0,$0f,$ff,$f0
	DC.B  $f0,$0f,$0f,$f0,$00
	DC.B  $0f,$00,$0f,$00,$00

PictB8b	DC.B  $00,$00,$0f,$00,$00	;audio left #2
	DC.B  $00,$00,$0f,$f0,$00
	DC.B  $00,$00,$0f,$ff,$f0
	DC.B  $00,$00,$0f,$ff,$f0
	DC.B  $00,$00,$0f,$ff,$f0
	DC.B  $00,$00,$0f,$f0,$00
	DC.B  $00,$00,$0f,$00,$00

PictB9a	DC.B  $00,$0f,$00,$0f,$00	;audio right
	DC.B  $00,$ff,$0f,$00,$f0
	DC.B  $ff,$ff,$00,$f0,$f0
	DC.B  $ff,$ff,$00,$f0,$f0
	DC.B  $ff,$ff,$00,$f0,$f0
	DC.B  $00,$ff,$0f,$00,$f0
	DC.B  $00,$0f,$00,$0f,$00

PictB9b	DC.B  $00,$0f,$00,$00,$00	;audio right #2
	DC.B  $00,$ff,$00,$00,$00
	DC.B  $ff,$ff,$00,$00,$00
	DC.B  $ff,$ff,$00,$00,$00
	DC.B  $ff,$ff,$00,$00,$00
	DC.B  $00,$ff,$00,$00,$00
	DC.B  $00,$0f,$00,$00,$00

PictB10a	DC.B  $00,$00,$00,$00,$00	;repeat
	DC.B  $00,$00,$00,$f0,$00
	DC.B  $00,$00,$00,$ff,$00
	DC.B  $ff,$ff,$ff,$ff,$f0
	DC.B  $00,$00,$00,$ff,$00
	DC.B  $00,$00,$00,$f0,$00
	DC.B  $00,$00,$00,$00,$00

PictB10b	DC.B  $ff,$ff,$ff,$ff,$00	;repeat #2
	DC.B  $00,$00,$00,$00,$f0
	DC.B  $00,$00,$0f,$00,$f0
	DC.B  $00,$00,$ff,$00,$f0
	DC.B  $00,$0f,$ff,$ff,$00
	DC.B  $00,$00,$ff,$00,$00
	DC.B  $00,$00,$0f,$00,$00

PictB11a	DC.B  $0f,$f0,$00,$ff,$f0	;AB
	DC.B  $f0,$0f,$00,$f0,$0f
	DC.B  $f0,$0f,$00,$f0,$0f
	DC.B  $ff,$ff,$00,$ff,$f0
	DC.B  $f0,$0f,$00,$f0,$0f
	DC.B  $f0,$0f,$00,$f0,$0f
	DC.B  $f0,$0f,$00,$ff,$f0
	
PictB11b	DC.B  $0f,$f0,$00,$0f,$f0	;A ?
	DC.B  $f0,$0f,$00,$f0,$0f
	DC.B  $f0,$0f,$00,$f0,$0f
	DC.B  $ff,$ff,$00,$00,$f0
	DC.B  $f0,$0f,$00,$0f,$00
	DC.B  $f0,$0f,$00,$00,$00
	DC.B  $f0,$0f,$00,$0f,$00

PictB11c	DC.B  $ff,$f0,$00,$0f,$f0	;B ?
	DC.B  $f0,$0f,$00,$f0,$0f
	DC.B  $f0,$0f,$00,$f0,$0f
	DC.B  $ff,$f0,$00,$00,$f0
	DC.B  $f0,$0f,$00,$0f,$00
	DC.B  $f0,$0f,$00,$00,$00
	DC.B  $ff,$f0,$00,$0f,$00

PictB11d	DC.B  $ff,$ff,$ff,$ff,$ff	;A->B
	DC.B  $f0,$00,$00,$00,$0f
	DC.B  $f0,$00,$00,$f0,$0f
	DC.B  $f0,$00,$0f,$f0,$0f
	DC.B  $ff,$f0,$ff,$ff,$ff
	DC.B  $00,$00,$0f,$f0,$00
	DC.B  $00,$00,$00,$f0,$00
		
PictB12a	DC.B  $0f,$00,$ff,$f0,$ff	;shuffle OFF
	DC.B  $f0,$f0,$f0,$00,$f0
	DC.B  $f0,$f0,$f0,$00,$f0
	DC.B  $f0,$f0,$ff,$00,$ff
	DC.B  $f0,$f0,$f0,$00,$f0
	DC.B  $f0,$f0,$f0,$00,$f0
	DC.B  $0f,$00,$f0,$00,$f0

PictB12b	DC.B  $0f,$f0,$0f,$00,$f0	;shuffle ON
	DC.B  $f0,$0f,$0f,$00,$f0
	DC.B  $f0,$0f,$0f,$f0,$f0
	DC.B  $f0,$0f,$0f,$ff,$f0
	DC.B  $f0,$0f,$0f,$0f,$f0
	DC.B  $f0,$0f,$0f,$00,$f0
	DC.B  $0f,$f0,$0f,$00,$f0

PictB13	DC.B  $00,$ff,$ff,$00,$00	;time
	DC.B  $0f,$00,$f0,$f0,$00
	DC.B  $f0,$00,$f0,$0f,$00
	DC.B  $f0,$ff,$f0,$0f,$f0
	DC.B  $f0,$00,$00,$0f,$00
	DC.B  $0f,$00,$00,$f0,$00
	DC.B  $00,$ff,$ff,$00,$00

;-------------------------------------------------------
;	Text Pictures
;-------------------------------------------------------

PictT0			;STOP text
	DC.B  $3F,$F0,$FF,$F0,$3F,$C0,$FF,$C0,$00,$00,$00,$00,$00
	DC.B  $F0,$00,$0F,$00,$F0,$F0,$F0,$F0,$00,$00,$00,$00,$00
	DC.B  $3F,$C0,$0F,$00,$F0,$F0,$FF,$C0,$00,$00,$00,$00,$00
	DC.B  $00,$F0,$0F,$00,$F0,$F0,$F0,$00,$00,$00,$00,$00,$00
	DC.B  $FF,$C0,$0F,$00,$3F,$C0,$F0,$00,$00,$00,$00,$00,$00

PictT1			;PLAY text
	DC.B  $FF,$C0,$F0,$00,$3F,$C0,$F0,$F0,$00,$00,$00,$00,$00
	DC.B  $F0,$F0,$F0,$00,$F0,$F0,$F0,$F0,$00,$00,$00,$00,$00
	DC.B  $FF,$C0,$F0,$00,$FF,$F0,$3F,$C0,$00,$00,$00,$00,$00
	DC.B  $F0,$00,$F0,$00,$F0,$F0,$0F,$00,$00,$00,$00,$00,$00
	DC.B  $F0,$00,$FF,$F0,$F0,$F0,$0F,$00,$00,$00,$00,$00,$00

PictT2			;PAUSE text
	DC.B  $FF,$C0,$3F,$C0,$F0,$F0,$3F,$F0,$FF,$C0,$00,$00,$00
	DC.B  $F0,$F0,$F0,$F0,$F0,$F0,$F0,$00,$F0,$00,$00,$00,$00
	DC.B  $FF,$C0,$FF,$F0,$F0,$F0,$3F,$C0,$FF,$00,$00,$00,$00
	DC.B  $F0,$00,$F0,$F0,$F0,$F0,$00,$F0,$F0,$00,$00,$00,$00
	DC.B  $F0,$00,$F0,$F0,$3F,$C0,$FF,$C0,$FF,$C0,$00,$00,$00

PictT3			;EJECT text
	DC.B  $FF,$C0,$03,$C3,$FF,$03,$FC,$0F,$FF,$00
	DC.B  $F0,$00,$03,$C3,$C0,$0F,$0F,$00,$F0,$00
	DC.B  $FF,$00,$03,$C3,$FC,$0F,$00,$00,$F0,$00
	DC.B  $F0,$03,$C3,$C3,$C0,$0F,$0F,$00,$F0,$00
	DC.B  $FF,$C0,$FF,$03,$FF,$03,$FC,$00,$F0,$00

PictT4			;TRACK text
	DC.B  $FF,$F0,$FF,$C0,$3F,$C0,$3F,$C0,$F0,$F0
	DC.B  $0F,$00,$F0,$F0,$F0,$F0,$F0,$F0,$F3,$C0
	DC.B  $0F,$00,$FF,$C0,$FF,$F0,$F0,$00,$FF,$00
	DC.B  $0F,$00,$F3,$C0,$F0,$F0,$F0,$F0,$F3,$C0
	DC.B  $0F,$00,$F0,$F0,$F0,$F0,$3F,$C0,$F0,$F0

PictT5			;SCAN text
	DC.B  $3F,$F0,$3F,$C0,$3F,$C0,$F0,$F0
	DC.B  $F0,$00,$F0,$F0,$F0,$F0,$FC,$F0
	DC.B  $3F,$C0,$F0,$00,$FF,$F0,$FF,$F0
	DC.B  $00,$F0,$F0,$F0,$F0,$F0,$F3,$F0
	DC.B  $FF,$C0,$3F,$C0,$F0,$F0,$F0,$F0

PictT6			;AUDIO text
	DC.B  $3F,$C0,$F0,$F0,$FF,$C0,$F0,$3F,$C0
	DC.B  $F0,$F0,$F0,$F0,$F0,$F0,$F0,$F0,$F0
	DC.B  $FF,$F0,$F0,$F0,$F0,$F0,$F0,$F0,$F0
	DC.B  $F0,$F0,$F0,$F0,$F0,$F0,$F0,$F0,$F0
	DC.B  $F0,$F0,$3F,$C0,$FF,$C0,$F0,$3F,$C0

PictT7			;REPEAT text
	DC.B  $FF,$C0,$FF,$C3,$FF,$03,$FF,$03,$FC,$0F,$FF,$00
	DC.B  $F0,$F0,$F0,$03,$C3,$C3,$C0,$0F,$0F,$00,$F0,$00
	DC.B  $FF,$C0,$FF,$03,$FF,$03,$FC,$0F,$FF,$00,$F0,$00
	DC.B  $F3,$C0,$F0,$03,$C0,$03,$C0,$0F,$0F,$00,$F0,$00
	DC.B  $F0,$F0,$FF,$C3,$C0,$03,$FF,$0F,$0F,$00,$F0,$00

PictT8			;SHUFFLE text
	DC.B  $3F,$F0,$F0,$F0,$F0,$F0,$FF,$C3,$FF,$0F,$00,$0F,$FC
	DC.B  $F0,$00,$F0,$F0,$F0,$F0,$F0,$03,$C0,$0F,$00,$0F,$00
	DC.B  $3F,$C0,$FF,$F0,$F0,$F0,$FF,$03,$FC,$0F,$00,$0F,$F0
	DC.B  $00,$F0,$F0,$F0,$F0,$F0,$F0,$03,$C0,$0F,$00,$0F,$00
	DC.B  $FF,$C0,$F0,$F0,$3F,$C0,$F0,$03,$C0,$0F,$FF,$0F,$FC

PictT9			;TIME text
	DC.B  $FF,$F0,$F0,$F0,$00,$F0,$FF,$F0
	DC.B  $0F,$00,$F0,$FF,$0F,$F0,$F0,$00
	DC.B  $0F,$00,$F0,$F3,$FC,$F0,$FF,$00
	DC.B  $0F,$00,$F0,$F0,$F0,$F0,$F0,$00
	DC.B  $0F,$00,$F0,$F0,$00,$F0,$FF,$F0

PictT10			;ELAPSED text (display)
	DC.B  $00,$00,$00,$FF,$F0,$F0,$00,$3F,$C0,$FF,$C0,$3F,$F0,$FF,$F0,$FF,$C0
	DC.B  $00,$00,$00,$F0,$00,$F0,$00,$F0,$F0,$F0,$F0,$F0,$00,$F0,$00,$F0,$F0
	DC.B  $00,$00,$00,$FF,$C0,$F0,$00,$FF,$F0,$FF,$C0,$3F,$C0,$FF,$C0,$F0,$F0
	DC.B  $00,$00,$00,$F0,$00,$F0,$00,$F0,$F0,$F0,$00,$00,$F0,$F0,$00,$F0,$F0
	DC.B  $00,$00,$00,$FF,$F0,$FF,$F0,$F0,$F0,$F0,$00,$FF,$C0,$FF,$F0,$FF,$C0

PictT11			;REMAIN text (display)
	DC.B  $FF,$C0,$FF,$F0,$F0,$00,$F0,$3F,$C0,$F0,$F0,$F0,$F0,$F0,$F0,$3F,$C0
	DC.B  $F0,$F0,$F0,$00,$FF,$0F,$F0,$F0,$F0,$F0,$FC,$F0,$F0,$FC,$F0,$F0,$F0
	DC.B  $FF,$C0,$FF,$00,$F3,$FC,$F0,$FF,$F0,$F0,$FF,$F0,$F0,$FF,$F0,$F0,$00
	DC.B  $F3,$C0,$F0,$00,$F0,$F0,$F0,$F0,$F0,$F0,$F3,$F0,$F0,$F3,$F0,$F0,$FC
	DC.B  $F0,$F0,$FF,$F0,$F0,$00,$F0,$F0,$F0,$F0,$F0,$F0,$F0,$F0,$F0,$3F,$C0

PictT12			;NO DISC text (display)
	DC.B  $F0,$F0,$3F,$C0,$0F,$FC,$0F,$03,$FF,$03,$FC,$00,$00
	DC.B  $FC,$F0,$F0,$F0,$0F,$0F,$0F,$0F,$00,$0F,$0F,$00,$00
	DC.B  $FF,$F0,$F0,$F0,$0F,$0F,$0F,$03,$FC,$0F,$00,$00,$00
	DC.B  $F3,$F0,$F0,$F0,$0F,$0F,$0F,$00,$0F,$0F,$0F,$00,$00
	DC.B  $F0,$F0,$3F,$C0,$0F,$FC,$0F,$0F,$FC,$03,$FC,$00,$00

PictT13			;NO DRIVE text (display)
	DC.B  $F0,$F0,$3F,$C0,$0F,$FC,$0F,$FC,$0F,$0F,$0F,$0F,$FF
	DC.B  $FC,$F0,$F0,$F0,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$00
	DC.B  $FF,$F0,$F0,$F0,$0F,$0F,$0F,$FC,$0F,$0F,$0F,$0F,$F0
	DC.B  $F3,$F0,$F0,$F0,$0F,$0F,$0F,$3C,$0F,$0F,$0F,$0F,$00
	DC.B  $F0,$F0,$3F,$C0,$0F,$FC,$0F,$0F,$0F,$00,$F0,$0F,$FF

PictT14			;NO Audio text (display)
	DC.B  $F0,$F0,$3F,$C0,$03,$FC,$0F,$0F,$0F,$FC,$0F,$03,$FC
	DC.B  $FC,$F0,$F0,$F0,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F
	DC.B  $FF,$F0,$F0,$F0,$0F,$FF,$0F,$0F,$0F,$0F,$0F,$0F,$0F
	DC.B  $F3,$F0,$F0,$F0,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F
	DC.B  $F0,$F0,$3F,$C0,$0F,$0F,$03,$FC,$0F,$FC,$0F,$03,$FC


;-------------------------------------------------------
;	Text Pictures for 320 mode
;-------------------------------------------------------

PictT0_320			;STOP text
	DC.B  $FF,$F0,$FF,$F0,$0F,$00,$FF,$F0,$00,$00,$00,$00,$00
	DC.B  $F0,$00,$0F,$00,$F0,$F0,$F0,$F0,$00,$00,$00,$00,$00
	DC.B  $FF,$F0,$0F,$00,$F0,$F0,$FF,$F0,$00,$00,$00,$00,$00
	DC.B  $00,$F0,$0F,$00,$F0,$F0,$F0,$00,$00,$00,$00,$00,$00
	DC.B  $FF,$F0,$0F,$00,$0F,$00,$F0,$00,$00,$00,$00,$00,$00

PictT1_320			;PLAY text
	DC.B  $FF,$F0,$F0,$00,$0F,$00,$F0,$F0,$00,$00,$00,$00,$00
	DC.B  $F0,$F0,$F0,$00,$F0,$F0,$F0,$F0,$00,$00,$00,$00,$00
	DC.B  $FF,$F0,$F0,$00,$FF,$F0,$FF,$F0,$00,$00,$00,$00,$00
	DC.B  $F0,$00,$F0,$00,$F0,$F0,$0F,$00,$00,$00,$00,$00,$00
	DC.B  $F0,$00,$FF,$F0,$F0,$F0,$0F,$00,$00,$00,$00,$00,$00

PictT2_320			;PAUSE text
	DC.B  $FF,$F0,$0F,$00,$F0,$F0,$FF,$F0,$FF,$F0,$00,$00,$00
	DC.B  $F0,$F0,$F0,$F0,$F0,$F0,$F0,$00,$F0,$00,$00,$00,$00
	DC.B  $FF,$F0,$FF,$F0,$F0,$F0,$FF,$F0,$FF,$00,$00,$00,$00
	DC.B  $F0,$00,$F0,$F0,$F0,$F0,$00,$F0,$F0,$00,$00,$00,$00
	DC.B  $F0,$00,$F0,$F0,$FF,$F0,$FF,$F0,$FF,$C0,$00,$00,$00
	
PictT3_320			;EJECT text
	DC.B  $FF,$F0,$00,$F0,$FF,$F0,$FF,$F0,$FF,$F0
	DC.B  $F0,$00,$00,$F0,$F0,$00,$F0,$00,$0F,$00
	DC.B  $FF,$00,$00,$F0,$FF,$00,$F0,$00,$0F,$00
	DC.B  $F0,$00,$F0,$F0,$F0,$00,$F0,$00,$0F,$00
	DC.B  $FF,$F0,$FF,$F0,$FF,$F0,$FF,$F0,$0F,$00

PictT4_320			;TRACK text
	DC.B  $FF,$F0,$FF,$F0,$0F,$00,$FF,$F0,$F0,$F0
	DC.B  $0F,$00,$F0,$F0,$F0,$F0,$F0,$00,$F0,$F0
	DC.B  $0F,$00,$FF,$00,$FF,$F0,$F0,$00,$FF,$00
	DC.B  $0F,$00,$F0,$F0,$F0,$F0,$F0,$00,$F0,$F0
	DC.B  $0F,$00,$F0,$F0,$F0,$F0,$FF,$F0,$F0,$F0

PictT5_320			;SCAN text
	DC.B  $FF,$F0,$FF,$F0,$0F,$00,$F0,$0F
	DC.B  $F0,$00,$F0,$00,$F0,$F0,$FF,$0F
	DC.B  $FF,$F0,$F0,$00,$FF,$F0,$FF,$FF
	DC.B  $00,$F0,$F0,$00,$F0,$F0,$F0,$FF
	DC.B  $FF,$F0,$FF,$F0,$F0,$F0,$F0,$0F

PictT6_320			;AUDIO text
	DC.B  $0F,$00,$F0,$F0,$FF,$00,$F0,$0F,$00
	DC.B  $F0,$F0,$F0,$F0,$F0,$F0,$F0,$F0,$F0
	DC.B  $FF,$F0,$F0,$F0,$F0,$F0,$F0,$F0,$F0
	DC.B  $F0,$F0,$F0,$F0,$F0,$F0,$F0,$F0,$F0
	DC.B  $F0,$F0,$FF,$F0,$FF,$00,$F0,$0F,$00

PictT7_320			;REPEAT text
	DC.B  $FF,$F0,$FF,$F0,$FF,$F0,$FF,$F0,$0F,$00,$FF,$F0
	DC.B  $F0,$F0,$F0,$00,$F0,$F0,$F0,$00,$F0,$F0,$0F,$00
	DC.B  $FF,$00,$FF,$00,$FF,$F0,$FF,$00,$FF,$F0,$0F,$00
	DC.B  $F0,$F0,$F0,$00,$F0,$00,$F0,$00,$F0,$F0,$0F,$00
	DC.B  $F0,$F0,$FF,$F0,$F0,$00,$FF,$F0,$F0,$F0,$0F,$00

PictT8_320			;SHUFFLE text
	DC.B  $FF,$F0,$F0,$F0,$F0,$F0,$FF,$0F,$F0,$F0,$00,$FF,$F0
	DC.B  $F0,$00,$F0,$F0,$F0,$F0,$F0,$0F,$00,$F0,$00,$F0,$00
	DC.B  $FF,$F0,$FF,$F0,$F0,$F0,$FF,$0F,$F0,$F0,$00,$FF,$00
	DC.B  $00,$F0,$F0,$F0,$F0,$F0,$F0,$0F,$00,$F0,$00,$F0,$00
	DC.B  $FF,$C0,$F0,$F0,$FF,$F0,$F0,$0F,$00,$FF,$F0,$FF,$F0

PictT9_320			;TIME text
	DC.B  $FF,$F0,$F0,$F0,$00,$F0,$FF,$F0
	DC.B  $0F,$00,$F0,$FF,$0F,$F0,$F0,$00
	DC.B  $0F,$00,$F0,$F0,$F0,$F0,$FF,$00
	DC.B  $0F,$00,$F0,$F0,$F0,$F0,$F0,$00
	DC.B  $0F,$00,$F0,$F0,$00,$F0,$FF,$F0

PictT10_320			;ELAPSED text (display)
	DC.B  $00,$00,$00,$FF,$F0,$F0,$00,$0F,$00,$FF,$F0,$FF,$F0,$FF,$F0,$FF,$00
	DC.B  $00,$00,$00,$F0,$00,$F0,$00,$F0,$F0,$F0,$F0,$F0,$00,$F0,$00,$F0,$F0
	DC.B  $00,$00,$00,$FF,$C0,$F0,$00,$FF,$F0,$FF,$F0,$FF,$F0,$FF,$C0,$F0,$F0
	DC.B  $00,$00,$00,$F0,$00,$F0,$00,$F0,$F0,$F0,$00,$00,$F0,$F0,$00,$F0,$F0
	DC.B  $00,$00,$00,$FF,$F0,$FF,$F0,$F0,$F0,$F0,$00,$FF,$F0,$FF,$F0,$FF,$00

PictT11_320			;REMAIN text (display)
	DC.B  $FF,$F0,$FF,$F0,$F0,$00,$F0,$0F,$00,$F0,$F0,$F0,$F0,$F0,$F0,$FF,$F0
	DC.B  $F0,$F0,$F0,$00,$FF,$0F,$F0,$F0,$F0,$F0,$FF,$F0,$F0,$FF,$F0,$F0,$00
	DC.B  $FF,$00,$FF,$00,$F0,$F0,$F0,$FF,$F0,$F0,$FF,$F0,$F0,$FF,$F0,$F0,$F0
	DC.B  $F0,$F0,$F0,$00,$F0,$F0,$F0,$F0,$F0,$F0,$F0,$F0,$F0,$F0,$F0,$F0,$F0
	DC.B  $F0,$F0,$FF,$F0,$F0,$00,$F0,$F0,$F0,$F0,$F0,$F0,$F0,$F0,$F0,$FF,$F0

PictT12_320			;NO DISC text (display)
	DC.B  $F0,$F0,$0F,$00,$0F,$F0,$0F,$0F,$FF,$0F,$FF,$00,$00
	DC.B  $FF,$F0,$F0,$F0,$0F,$0F,$0F,$0F,$00,$0F,$00,$00,$00
	DC.B  $FF,$F0,$F0,$F0,$0F,$0F,$0F,$0F,$FF,$0F,$00,$00,$00
	DC.B  $F0,$F0,$F0,$F0,$0F,$0F,$0F,$00,$0F,$0F,$00,$00,$00
	DC.B  $F0,$F0,$0F,$00,$0F,$F0,$0F,$0F,$FF,$0F,$FF,$00,$00

PictT13_320			;NO DRIVE text (display)
	DC.B  $F0,$F0,$0F,$00,$0F,$F0,$0F,$FF,$0F,$0F,$0F,$0F,$FF
	DC.B  $FF,$F0,$F0,$F0,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$00
	DC.B  $FF,$F0,$F0,$F0,$0F,$0F,$0F,$F0,$0F,$0F,$0F,$0F,$F0
	DC.B  $F0,$F0,$F0,$F0,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$00
	DC.B  $F0,$F0,$0F,$00,$0F,$F0,$0F,$0F,$0F,$00,$F0,$0F,$FF

PictT14_320			;NO Audio text (display)
	DC.B  $F0,$F0,$0F,$00,$00,$F0,$0F,$0F,$0F,$F0,$0F,$00,$F0
	DC.B  $FF,$F0,$F0,$F0,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F
	DC.B  $FF,$F0,$F0,$F0,$0F,$FF,$0F,$0F,$0F,$0F,$0F,$0F,$0F
	DC.B  $F0,$F0,$F0,$F0,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F
	DC.B  $F0,$F0,$0F,$00,$0F,$0F,$0F,$FF,$0F,$F0,$0F,$00,$F0

PictIcon 
	DC.B  $00,$00,$00,$0f,$ff,$f0,$0f,$ff,$0f,$ff,$0f,$00,$f0,$ff,$f0,$ff,$f0,$ff,$f0,$ff,$f0
	DC.B  $00,$00,$00,$0f,$00,$f0,$0f,$00,$0f,$0f,$0f,$ff,$f0,$f0,$f0,$f0,$f0,$f0,$00,$0f,$00
	DC.B  $00,$00,$00,$0f,$00,$f0,$0f,$00,$0f,$0f,$0f,$ff,$f0,$ff,$f0,$ff,$f0,$f0,$00,$0f,$00
	DC.B  $00,$00,$00,$0f,$00,$f0,$0f,$ff,$0f,$ff,$0f,$00,$f0,$f0,$00,$f0,$f0,$ff,$f0,$0f,$00
	DC.B  $00,$00,$00,$0f,$00,$f0,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	DC.B  $00,$ff,$ff,$ff,$00,$f0,$0f,$ff,$f0,$00,$ff,$ff,$ff,$ff,$f0,$00,$ff,$ff,$ff,$ff,$00
	DC.B  $0f,$00,$00,$00,$00,$f0,$0f,$00,$f0,$0f,$00,$00,$00,$00,$f0,$0f,$00,$00,$00,$00,$f0
	DC.B  $0f,$00,$00,$00,$00,$f0,$0f,$00,$f0,$0f,$00,$00,$00,$00,$f0,$0f,$00,$00,$00,$00,$f0
	DC.B  $0f,$00,$ff,$ff,$00,$f0,$0f,$00,$f0,$0f,$00,$ff,$ff,$ff,$f0,$0f,$00,$ff,$ff,$00,$f0
	DC.B  $0f,$00,$f0,$0f,$00,$f0,$0f,$00,$f0,$0f,$00,$f0,$00,$00,$00,$0f,$00,$f0,$0f,$00,$f0
	DC.B  $0f,$00,$f0,$0f,$00,$f0,$0f,$00,$f0,$0f,$00,$ff,$ff,$ff,$00,$0f,$00,$f0,$0f,$ff,$f0
	DC.B  $0f,$00,$f0,$0f,$00,$f0,$0f,$00,$f0,$0f,$00,$00,$00,$00,$f0,$0f,$00,$f0,$00,$00,$00
	DC.B  $0f,$00,$f0,$0f,$00,$f0,$0f,$00,$f0,$0f,$00,$00,$00,$00,$f0,$0f,$00,$f0,$00,$00,$00
	DC.B  $0f,$00,$f0,$0f,$00,$f0,$0f,$00,$f0,$00,$ff,$ff,$ff,$00,$f0,$0f,$00,$f0,$0f,$ff,$f0
	DC.B  $0f,$00,$f0,$0f,$00,$f0,$0f,$00,$f0,$00,$00,$00,$0f,$00,$f0,$0f,$00,$f0,$0f,$00,$f0
	DC.B  $0f,$00,$ff,$ff,$00,$f0,$0f,$00,$f0,$0f,$ff,$ff,$ff,$00,$f0,$0f,$00,$ff,$ff,$00,$f0
	DC.B  $0f,$00,$00,$00,$00,$f0,$0f,$00,$f0,$0f,$00,$00,$00,$00,$f0,$0f,$00,$00,$00,$00,$f0
	DC.B  $0f,$00,$00,$00,$00,$f0,$0f,$00,$f0,$0f,$00,$00,$00,$00,$f0,$0f,$00,$00,$00,$00,$f0
	DC.B  $00,$ff,$ff,$ff,$ff,$f0,$0f,$ff,$f0,$0f,$ff,$ff,$ff,$ff,$00,$00,$ff,$ff,$ff,$ff,$00
	DC.B  $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	DC.B  $ff,$00,$f0,$ff,$f0,$f0,$ff,$f0,$ff,$f0,$f0,$00,$0f,$ff,$0f,$0f,$0f,$f0,$0f,$0f,$ff
	DC.B  $f0,$f0,$f0,$f0,$00,$f0,$0f,$00,$f0,$f0,$f0,$00,$0f,$0f,$0f,$0f,$0f,$0f,$0f,$0f,$0f
	DC.B  $f0,$f0,$f0,$f0,$f0,$f0,$0f,$00,$ff,$f0,$f0,$00,$0f,$ff,$0f,$0f,$0f,$0f,$0f,$0f,$0f
	DC.B  $ff,$00,$f0,$ff,$f0,$f0,$0f,$00,$f0,$f0,$ff,$f0,$0f,$0f,$0f,$ff,$0f,$f0,$0f,$0f,$ff

PictApple
	DC.B  $00,$00,$fc,$00
	DC.B  $00,$03,$f0,$00
	DC.B  $0f,$fc,$3f,$fc
	DC.B  $ff,$ff,$ff,$c0
	DC.B  $ff,$ff,$ff,$c0
	DC.B  $ff,$ff,$ff,$ff
	DC.B  $3f,$ff,$ff,$fc
	DC.B  $03,$fc,$3f,$c0
PictApple_320
	DC.B  $00,$00,$f0,$00
	DC.B  $00,$00,$f0,$00
	DC.B  $0f,$f0,$0f,$f0
	DC.B  $ff,$ff,$ff,$00
	DC.B  $ff,$ff,$ff,$00
	DC.B  $ff,$ff,$ff,$ff
	DC.B  $0f,$ff,$ff,$f0
	DC.B  $00,$f0,$0f,$00


PictAbout 
	DC.B  $00,$00,$00,$00,$00,$00,$0f
	DC.B  $00,$00,$00,$00,$00,$00,$0f
	DC.B  $0f,$f0,$ff,$0f,$f0,$ff,$0f
	DC.B  $00,$00,$00,$00,$00,$00,$0f
	DC.B  $00,$00,$00,$00,$00,$00,$0f
	DC.B  $0f,$ff,$ff,$ff,$ff,$ff,$0f
	DC.B  $0f,$ff,$ff,$ff,$ff,$ff,$0f
	DC.B  $00,$00,$00,$00,$00,$00,$0f
	DC.B  $00,$00,$00,$00,$00,$00,$0f
	DC.B  $0f,$f0,$ff,$0f,$f0,$ff,$0f
	DC.B  $00,$00,$00,$00,$00,$00,$0f
	DC.B  $00,$00,$00,$00,$00,$00,$0f
	DC.B  $0f,$f0,$ff,$0f,$f0,$ff,$0f
	DC.B  $00,$00,$00,$00,$00,$00,$0f
	DC.B  $00,$00,$00,$00,$00,$00,$0f
	DC.B  $0f,$f0,$ff,$00,$00,$00,$0f
	DC.B  $00,$00,$00,$00,$00,$00,$0f
	DC.B  $00,$00,$00,$00,$00,$00,$0f
	DC.B  $00,$00,$00,$00,$00,$00,$0f
	DC.B  $00,$00,$00,$00,$00,$00,$0f

 
PictMapL	DC.L  Pict0L
	DC.L  Pict1L
	DC.L  Pict2L
	DC.L  Pict3L
	DC.L  Pict4L
	DC.L  Pict5L
	DC.L  Pict6L
	DC.L  Pict7L
	DC.L  Pict8L
	DC.L  Pict9L

PictMapS	DC.L  Pict0S
	DC.L  Pict1S
	DC.L  Pict2S
	DC.L  Pict3S
	DC.L  Pict4S
	DC.L  Pict5S
	DC.L  Pict6S
	DC.L  Pict7S
	DC.L  Pict8S
	DC.L  Pict9S

PictMapB	DC.L  PictB0
	DC.L  PictB1
	DC.L  PictB2
	DC.L  PictB3
	DC.L  PictB4
	DC.L  PictB5
	DC.L  PictB6
	DC.L  PictB7
AudLPtr	DC.L  PictB8a
AudRPtr	DC.L  PictB9a
RepPtr	DC.L  PictB10a
ABPtr	DC.L  PictB11a
RndPtr	DC.L  PictB12a
	DC.L  PictB13
	
PictMapT	DC.L  PictT0		;stop
	DC.L  PictT1		;play
	DC.L  PictT2		;pause
	DC.L  PictT3		;eject
	DC.L  PictT4		;track
	DC.L  PictT5		;scan
	DC.L  PictT6		;audio
	DC.L  PictT7		;repeat
	DC.L  PictT8		;shuffle
	DC.L  PictT9		;time
	DC.L  PictT9		;time
	DC.L  PictT10		;elapsed
	DC.L  PictT11		;remaining
	DC.L  PictT0		;stop (display)
	DC.L  PictT1		;play (display)
	DC.L  PictT2		;pause (display)
	DC.L  PictT12		;no disc (display)
	DC.L  PictT13		;no drive (display)
	DC.L  PictT14		;no audio (display)

PictMapT_320	DC.L  PictT0_320	;stop
	DC.L  PictT1_320	;play
	DC.L  PictT2_320	;pause
	DC.L  PictT3_320	;eject
	DC.L  PictT4_320	;track
	DC.L  PictT5_320	;scan
	DC.L  PictT6_320	;audio
	DC.L  PictT7_320	;repeat
	DC.L  PictT8_320	;shuffle
	DC.L  PictT9_320	;time
	DC.L  PictT9_320	;time
	DC.L  PictT10_320	;elapsed
	DC.L  PictT11_320	;remaining
	DC.L  PictT0_320	;stop (display)
	DC.L  PictT1_320	;play (display)
	DC.L  PictT2_320	;pause (display)
	DC.L  PictT12_320	;no disc (display)
	DC.L  PictT13_320	;no drive (display)
	DC.L  PictT14_320	;no audio (display)

	ENDP


*===============================================*
*             Draw the NDA Window	*
*			*
* INPUT:	none		*
*			*
* OUTPUT:	none		*
*			*
*===============================================*
	EXPORT  DrawWin  
DrawWin	PROC

	IMPORT  DrawText
	IMPORT  DrawButtons
	IMPORT  DrawIcon
	IMPORT  DrawApple
	IMPORT  DrawColon
	IMPORT  DrawText
	
	PushWord
	_GetMasterSCB		;check for 320 mode
	pla
	and  #$0080
	sta  DisplayMode
	beq  mode320
mode640			;set 640 mode values
	lda  #RectTbl1
	sta  RectTblPtr
	lda  #^RectTbl1
	sta  RectTblPtr+2
	lda  #IconRect
	sta  IconRectPtr
	lda  #^IconRect
	sta  IconRectPtr+2
	PushLong #DispRect	;display's frame rect
	PushWord #28		;oval width
	PushWord #11		;oval height
	PushLong #DispRect	;erase part of it
	PushWord #28
	PushWord #11
	PushLong #DSRect	;drop-shadow rect
	PushWord #28		;oval width
	PushWord #11		;oval height
	PushLong #WinRect
	PushWord #2		;pen width
	PushWord #1		;pen height
	PushLong #Pattern2
	PushWord #colorWin
	PushWord #colorOut
	PushWord #colorTxt
	bra  set
mode320			;set 320 mode values
	lda  #Rect320Tbl1
	sta  RectTblPtr
	lda  #^Rect320Tbl1
	sta  RectTblPtr+2
	lda  #IconRect320
	sta  IconRectPtr
	lda  #^IconRect320
	sta  IconRectPtr+2
	PushLong #DispRect320	;display's frame rect
	PushWord #28/2		;oval width
	PushWord #11		;oval height
	PushLong #DispRect320	;erase part of it
	PushWord #28/2
	PushWord #11
	PushLong #DSRect320	;drop-shadow rect
	PushWord #28/2		;oval width
	PushWord #11		;oval height
	PushLong #WinRect320
	PushWord #1		;pen width
	PushWord #1		;pen height
	PushLong #Pattern2
	PushWord #colorWin
	PushWord #colorOut320
	PushWord #colorTxt320
set
	_SetForeColor
	_SetSolidPenPat
	_SetBackColor
	_SetBackPat
	_SetPenSize
	_EraseRect		;make content region black
	
	_PaintRRect		;display's drop-shadow
	_EraseRRect
	_FrameRRect		;display's frame

	lda  #0		;draw button strings
@loop	pha
	jsr  DrawText
	pla
	inc  A
	cmp  #10
	bcc  @loop

	jsr  DrawButtons	;draw the buttons
	lda  #0
	jsr  DrawIcon		;draw disc icon
	jsr  DrawApple		;Apple picture
	jsr  DrawColon		;draw time colon
	lda  #10
	jsr  DrawText		;draw time display text

	rts

	ENDP
	
*===============================================*
*             Draw the About Window	*
*			*
* INPUT:	none		*
*			*
* OUTPUT:	none		*
*			*
*===============================================*
	EXPORT  DrawAbout 
DrawAbout	PROC

	lda  #4		;draw 5 strings
loop	pha
	bne  cont		;(title is  bold)
	PushWord #1		;bold
	_SetTextFace
	lda  1,s
cont	asl  A
	asl  A		;(4 byte pointers)
	tax
	phx
	PushWord #0		;space for width value
	PushLong AStrPtr,x
	_StringWidth
	PullWord Width
	lda  DisplayMode
	beq  do320
	lda  #dhW2
	bra  cont2
do320	lda  #dhW2_320
cont2	sec
	sbc  Width
	lsr  A
	plx
	sta  StrPoint+2,x	;center string in window
	PushLong AStrPtr,x
	PushLong StrPoint,x
	_MoveTo
	_DrawString
	pla
	dec  A
	bpl  loop

	PushLong #PictInfo	;draw About picture
	PushLong #PictRect
	PushLong PictYX
	PushWord #$0000
	_PPToPort

	PushWord #2		;pen width
	PushWord #1		;pen height
	_SetPenSize
	rts

PictInfo	DC.W  $0080		;port SCB
	DC.L  PictAbout		;picture ptr
	DC.W  7		;picture width (bytes)
PictRect	DC.W  0,0,dvR,dhR	;bounds rect

PictYX	DC.W  10,40		;coordinates
Width	DS.B  2

DiscRect	DC.W  10,228,10+20,228+50	;bounds rect

	ENDP
		
*===============================================*
*             Draw Time Display (00:00)	*
*			*
* INPUT:	min (X-Reg), sec (A-Reg)	*
*			*
* OUTPUT:	none		*
*			*
*===============================================*
	EXPORT  DrawTime 
DrawTime	PROC

	PushLong #0		;working space
	PushLong #0
	phx		;X-reg has MIN
	pha		;A-reg has SEC

	and  #$000F		;get 1st SEC digit
	cmp  #$000A
	bcc  ok1
	lda  #$0000
ok1	asl  A
	asl  A		;A*4
	sta  5,s		;save offset
	pla
	and  #$00F0		;get 2nd SEC digit
	cmp  #$00A0
	bcc  ok2
	lda  #$0000
ok2	lsr  A
	lsr  A		;(A/16)*4
	sta  5,s		;save offset
	lda  1,s
	and  #$000F		;get 1st MIN digit
	cmp  #$000A
	bcc  ok3
	lda  #$0000
ok3	asl  A
	asl  A		;A*4
	sta  7,s		;save offset
	pla
	and  #$00F0		;get 2nd MIN digit
	cmp  #$00A0
	bcc  ok4
	lda  #$0000
ok4	lsr  A
	lsr  A		;(A/16)*4
	sta  7,s		;save offset

	lda  DisplayMode
	beq  do320a
	lda  #$0080
	sta  LocInfoS		;port SCB
	lda  #dhPS
	sta  PictRectS+6	;horizontal width
	bra  drawIt
do320a	lda  #$0000
	sta  LocInfoS		;port SCB
	lda  #dhPS/2
	sta  PictRectS+6	;horizontal width
drawIt
	ldy  #6
loop	plx		;get offset
	phy		;save for next pass
	lda  PictMapS+2,x	;get ptr to image
	sta  PictPtrS+2
	lda  PictMapS,x
	sta  PictPtrS
	PushLong #LocInfoS
	PushLong #PictRectS
	lda  DisplayMode
	beq  do320b
	lda  PictX,y
	bra  cont
do320b	lda  PictX320,y
cont	pha
	PushWord PictY,y
	PushWord #penMode
	_PPToPort		;draw digit
	ply
	dey
	dey
	bpl  loop
	rts

PictX	DC.W  h5		;picture coordinates
	DC.W  h5+dhN
	DC.W  h5+5+2*dhN
	DC.W  h5+5+3*dhN
PictX320	DC.W  h5/2
	DC.W  (h5+dhN)/2
	DC.W  (h5+5+2*dhN)/2
	DC.W  (h5+5+3*dhN)/2
PictY	DC.W  v2+9
	DC.W  v2+9
	DC.W  v2+9
	DC.W  v2+9

	ENDP
	
*===============================================*
*             Draw Time Display Colon (:)	*
*			*
* INPUT:	none		*
*			*
* OUTPUT:	none		*
*			*
*===============================================*
	EXPORT  DrawColon 
DrawColon	PROC

	lda  DisplayMode
	beq  do320
	lda  #$0080
	sta  LocInfoC		;port SCB
	lda  #dhC
	sta  PictRectC+6	;horizontal width
	lda  #pictCX
	sta  PictPoint+2
	bra  drawIt
do320	lda  #$0000
	sta  LocInfoC		;port SCB
	lda  #dhC/2
	sta  PictRectC+6	;horizontal width
	lda  #pictCX/2+1
	sta  PictPoint+2
drawIt	lda  #pictCY
	sta  PictPoint
	PushLong #LocInfoC
	PushLong #PictRectC
	PushLong PictPoint
	PushWord #penMode
	_PPToPort
	rts

	ENDP
	
*===============================================*
*              Draw Track Display	*
*			*
* INPUT:	track (A-Reg)		*
*			*
* OUTPUT:	none		*
*			*
*===============================================*
	EXPORT  DrawTrack  
DrawTrack	PROC

	pha
	and  #$000F		;get 1st digit
	cmp  #$000A
	bcs  digit2		;bad digit!
	asl  A
	asl  A		;A*4
	tax
	lda  DisplayMode
	beq  do320a
	lda  #$0080
	sta  LocInfoL		;port SCB
	lda  #dhPL
	sta  PictRectL+6	;horizontal width
	lda  #pictX2L
	sta  PictPoint+2
	bra  pp1
do320a	lda  #$0000
	sta  LocInfoL		;port SCB
	lda  #dhPL/2
	sta  PictRectL+6	;horizontal width
	lda  #pictX2L/2
	sta  PictPoint+2
pp1	lda  #pictY2L
	sta  PictPoint
	lda  PictMapL+2,x
	sta  PictPtrL+2
	lda  PictMapL,x
	sta  PictPtrL
	PushLong #LocInfoL
	PushLong #PictRectL
	PushLong PictPoint
	PushWord #penMode
	_PPToPort		;draw digit 1
digit2
	pla
	and  #$00F0		;get 2nd digit
	cmp  #$00A0
	bcs  exit		;bad digit!
	lsr  A
	lsr  A		;(A/16)*4
	tax
	lda  DisplayMode
	beq  do320b
	lda  #pictX1L
	sta  PictPoint+2
	bra  pp2
do320b	lda  #pictX1L/2
	sta  PictPoint+2
pp2	lda  #pictY1L
	sta  PictPoint
	lda  PictMapL+2,x
	sta  PictPtrL+2
	lda  PictMapL,x
	sta  PictPtrL
	PushLong #LocInfoL
	PushLong #PictRectL
	PushLong PictPoint
	PushWord #penMode
	_PPToPort		;draw digit 2
exit
	rts

	ENDP
	
*===============================================*
*          Draw Buttons/Draw Button	*
*			*
* INPUT:	buttonNum (A-Reg)	*
*			*
* OUTPUT:	none		*
*			*
*===============================================*
	EXPORT  DrawButtons 
DrawButtons	PROC		;draw buttons

	ldy  #nButton-1		;number of labels
@loop	phy
	tya
	jsr  DrawButton
	ply
	dey
	bpl  @loop
	rts

	EXPORT DrawButton
	ENTRY  DrawButton
DrawButton
	pha
	and  #$8000
	sta  PictMode		;$8000=inverse, $0000=normal
	pla
	and  #$00FF
	cmp  #nButton
	bcc  okay
	brl  exit		;out of range
okay	asl  A
	asl  A
	tax
	phx		;save for paint
	lda  PictMode
	bmi  invert
	lda  DisplayMode
	beq  draw320
draw640
	PushLong RectTbl1,x	;button frame parameters
	PushWord #dhO
	PushWord #dvO	
	PushLong RectTbl1,x	;erase parameters
	PushWord #dhO
	PushWord #dvO
	PushLong RectTbl2,x	;drop shadow parameters
	PushWord #dhO
	PushWord #dvO
	PushLong #GrayPattern
	bra  drawIt
draw320
	PushLong Rect320Tbl1,x	;button frame parameters
	PushWord #dhO/2
	PushWord #dvO
	PushLong Rect320Tbl1,x	;erase parameters
	PushWord #dhO/2
	PushWord #dvO
	PushLong Rect320Tbl2,x	;drop shadow parameters
	PushWord #dhO/2
	PushWord #dvO
	PushLong #GrayPattern320
drawIt	
	_FillRRect		;draw drop-shadow
	_EraseRRect		;erase part of it
	_FrameRRect		;draw frame
	bra  paint
invert	
	lda  DisplayMode
	beq  invert320
	PushLong RectTbl3,x	;draw parameters
	PushWord #dhO
	PushWord #dvO
	PushLong RectTbl1,x	;erase parameters
	PushWord #dhO
	PushWord #dvO
	bra  invertIt
invert320
	PushLong Rect320Tbl3,x	;draw parameters
	PushWord #dhO/2
	PushWord #dvO
	PushLong Rect320Tbl1,x	;erase parameters
	PushWord #dhO/2
	PushWord #dvO
invertIt
	_EraseRRect		;erase button & shadow
	_PaintRRect		;draw inverted button
paint	
	plx
	lda  PictMapB+2,x	;get ptr to image
	sta  PictPtrB+2
	lda  PictMapB,x
	sta  PictPtrB
	txa
	lsr  a		;word table
	tax
	lda  PictY,x		;get position
	tay
	lda  PictX,x
	tax
	lda  PictMode
	bpl  paint2
	inx		;shift it down
	inx
	iny
paint2	lda  DisplayMode
	beq  paint320
	lda  #$0080
	sta  LocInfoB		;port SCB
	lda  #dhL
	sta  PictRectB+6	;horizontal width
	bra  paint3
paint320	lda  #$0000
	sta  LocInfoB		;port SCB
	lda  #dhL/2
	sta  PictRectB+6	;horizontal width
	txa
	lsr  a		;half
	tax
paint3	PushLong #LocInfoB
	PushLong #PictRectB
	phx
	phy
	PushWord PictMode
	_PPToPort		;draw image on button
exit	rts

	EXPORT SetRepL
	ENTRY  SetRepL
SetRepL
	cmp  #1
	beq  repeat
	lda  #PictB10a		;repeat off
	ldx  #^PictB10a
	bra  endFlip
repeat	lda  #PictB10b	;repeat on
	ldx  #^PictB10b
endFlip	sta  RepPtr
	stx  RepPtr+2
	rts

	EXPORT SetRndL
	ENTRY  SetRndL
SetRndL
	cmp  #1
	beq  random
	lda  #PictB12a		;random off
	ldx  #^PictB12a
	bra  endRnd
random	lda  #PictB12b		;random on
	ldx  #^PictB12b
endRnd	sta  RndPtr
	stx  RndPtr+2
	rts

	EXPORT SetLAudL
	ENTRY  SetLAudL
SetLAudL
	and  #$8000
	beq  leftOff
	lda  #PictB8a		;left on
	ldx  #^PictB8a
	bra  endLeft
leftOff	lda  #PictB8b		;left off
	ldx  #^PictB8b
endLeft	sta  AudLPtr
	stx  AudLPtr+2
	rts

	EXPORT SetRAudL
	ENTRY  SetRAudL
SetRAudL
	and  #$4000
	beq  rightOff
	lda  #PictB9a		;right on
	ldx  #^PictB9a
	bra  endRight
rightOff	lda  #PictB9b		;right off
	ldx  #^PictB9b
endRight	sta  AudRPtr
	stx  AudRPtr+2
	rts

	EXPORT SetABL
	ENTRY  SetABL
SetABL
	cmp  #1
	beq  setA
	cmp  #2
	beq  setB
	cmp  #4
	beq  setOn
	lda  #PictB11a		;AB
	ldx  #^PictB11a
	bra  endAB
setA	lda  #PictB11b		;A ?
	ldx  #^PictB11b
	bra  endAB
setB	lda  #PictB11c		;B ?
	ldx  #^PictB11c
	bra  endAB
setOn	lda  #PictB11d		;A->B
	ldx  #^PictB11d
endAB	sta  ABPtr
	stx  ABPtr+2
	rts


PictX	DC.W  h1+11		;stop
	DC.W  h2+11		;play
	DC.W  h3+11		;pause
	DC.W  h4+11		;eject
	DC.W  h1+11		;track
	DC.W  h2+11
	DC.W  h3+11		;scan
	DC.W  h4+11
	DC.W  h1+11		;audio
	DC.W  h2+11
	DC.W  h3+11		;repeat
	DC.W  h4+10		;AB
	DC.W  h1+10		;shuffle
	DC.W  h2+11		;time

PictY	DC.W  v1+2		;stop
	DC.W  v1+2		;play
	DC.W  v1+2		;pause
	DC.W  v1+2		;eject
	DC.W  v3+2		;track
	DC.W  v3+2
	DC.W  v3+2		;scan
	DC.W  v3+2
	DC.W  v4+2		;audio
	DC.W  v4+2
	DC.W  v4+2		;repeat
	DC.W  v4+2		;AB
	DC.W  v5+2		;shuffle
	DC.W  v5+2		;time

PictMode	DS.B  2

	ENDP
	
*===============================================*
*            Draw Text (bit image)	*
*			*
* INPUT:	textNum (A-Reg)		*
*			*
* OUTPUT:	none		*
*			*
*===============================================*
	EXPORT  DrawText 
DrawText	PROC

	cmp  #nText+1
	bcs  exit		;out of range
	asl  a
	tax		;(word table)
	lda  PictWdth,x
	sta  PictByteT		;width in bytes
	asl  A
	asl  A
	sta  PictRectT+6	;width in pixels
	lda  PictY,x		;window position
	sta  PictPoint
	lda  PictX,x
	sta  PictPoint+2
	txa
	asl  a
	tax		;(long table)
	lda  DisplayMode
	beq  do320
	lda  #$0080
	sta  LocInfoT		;port SCB
	lda  PictMapT,x
	sta  PictPtrT		;pointer to image
	lda  PictMapT+2,x
	sta  PictPtrT+2
	bra  cont
do320	lda  #$0000
	sta  LocInfoT		;port SCB
	lsr  PictRectT+6	;half hort. width
	lsr  PictPoint+2	;half hort. position
	lda  PictMapT_320,x
	sta  PictPtrT		;pointer to image
	lda  PictMapT_320+2,x
	sta  PictPtrT+2
cont	PushLong #LocInfoT
	PushLong #PictRectT
	PushLong PictPoint
	PushWord #$0000		;copy to dest
	_PPToPort		;draw text image
exit	rts

	EXPORT DrawMode
	ENTRY  DrawMode
DrawMode
	clc
	adc  #13		;mapping
	jmp  DrawText



PictWdth	DC.W  13,13,13,10	;bytes per line
	DC.W  10,8,9,12
	DC.W  13,8,8,17
	DC.W  17,13,13,13
	DC.W  13,13,13

PictX	DC.W  h1+dhB/2-tw0	;stop
	DC.W  h2+dhB/2-tw1	;play
	DC.W  h3+dhB/2-tw2	;pause
	DC.W  h4+dhB/2-tw3	;eject
	DC.W  h1+dhB+dhS/2-tw4	;track
	DC.W  h3+dhB+dhS/2-tw5	;scan
	DC.W  h1+dhB+dhS/2-tw6	;audio
	DC.W  h3+dhB+dhS/2-tw7	;repeat
	DC.W  h1+dhB/2-tw8	;shuffle
	DC.W  h2+dhB/2-tw9	;time
	DC.W  h5-4-32		;time (display)
	DC.W  h5-4-68		;elapsed (display)
	DC.W  h5-4-68		;remaining (display)
	DC.W  h5		;stop (display)
	DC.W  h5		;play (display)
	DC.W  h5		;pause (display)
	DC.W  h5		;no disc (display)
	DC.W  h5		;no drive (display)
	DC.W  h5		;no audio (display)

PictY	DC.W  v1-7		;stop
	DC.W  v1-7		;play
	DC.W  v1-7		;pause
	DC.W  v1-7		;eject
	DC.W  v3-7		;track
	DC.W  v3-7		;scan
	DC.W  v4-7		;audio
	DC.W  v4-7		;repeat
	DC.W  v5-7		;shuffle
	DC.W  v5-7		;time
	DC.W  v2+9		;time (display)
	DC.W  v2+15		;elapsed (display)
	DC.W  v2+15		;remaining (display)
	DC.W  v2+2		;stop (display)
	DC.W  v2+2		;play (display)
	DC.W  v2+2		;pause (display)
	DC.W  v2+2		;no disc (display)
	DC.W  v2+2		;no drive (display)
	DC.W  v2+2		;no audio (display)

	ENDP
	
*===============================================*
*               Draw disc Icon		*
*			*
* INPUT:	mode (A-Reg) $8000 = inverse	*
*	             $0000 = normal	*
*			*
* OUTPUT:	none		*
*			*
*===============================================*
	EXPORT  DrawIcon 
DrawIcon	PROC

	sta  PictMode		;$8000=inverse, $0000=normal
	lda  DisplayMode
	beq  do320
	lda  #$0080
	sta  LocInfoI		;port SCB
	lda  #dhI
	sta  PictRectI+6	;horizontal width
	lda  #h6
	sta  PictPoint+2
	bra  cont
do320	lda  #$0000
	sta  LocInfoI		;port SCB
	lda  #dhI/2
	sta  PictRectI+6	;horizontal width
	lda  #h6/2
	sta  PictPoint+2
cont	lda  #v6
	sta  PictPoint
	PushLong #LocInfoI
	PushLong #PictRectI
	PushLong PictPoint
	PushWord PictMode
	_PPToPort		;draw image
	rts

	ENDP
	
*===============================================*
*               Draw Apple Picture	*
*			*
* INPUT:	none		*
*			*
* OUTPUT:	none		*
*			*
*===============================================*
DrawApple	PROC

	lda  DisplayMode
	beq  do320
	lda  #$0080
	sta  LocInfoA		;port SCB
	lda  #dhA
	sta  PictRectA+6	;horizontal width
	lda  #h1
	sta  PictPoint+2
	lda  #^PictApple	;get ptr to image
	sta  PictPtrA+2
	lda  #PictApple
	sta  PictPtrA
	bra  cont
do320	lda  #$0000
	sta  LocInfoA		;port SCB
	lda  #dhA/2
	sta  PictRectA+6	;horizontal width
	lda  #h1/2
	sta  PictPoint+2
	lda  #^PictApple_320	;get ptr to image
	sta  PictPtrA+2
	lda  #PictApple_320
	sta  PictPtrA
cont	lda  #dvW1-4-dvA
	sta  PictPoint
	PushLong #LocInfoA
	PushLong #PictRectA
	PushLong PictPoint
	PushWord #$0000
	_PPToPort
	rts

	ENDP
	
;---------------------------------------
	END
	

\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CDRemote/draw.equ b/IIGS.601.SRC/A.U.G/CDRemote/draw.equ
new file mode 100644
index 0000000..c4457aa
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CDRemote/draw.equ
@@ -0,0 +1 @@
+* * * * * * * * * * * * * * * * * * * * * * * * *
* File:  Draw.equ (equates for Draw.aii)	*
*			*
* For CD-Remote (A New Desk Accessory)	*
* 			*
* Author:  Don Brady		*
*			*
* Build File:	CDRemote.make		*
*			*
* Copyright © APPLE Computer, Inc. 1987,1988	*
* All Rights Reserved.		*
*			*
* * * * * * * * * * * * * * * * * * * * * * * * *


nButton	equ  14		;number of buttons
nText	equ  19		;number of text images
nStrings	equ  4		;number of strings
colorWin	equ  0		;window color (black)
colorTxt	equ  3		;text color (white)
colorOut	equ  3		;outline color (white)
colorTxt320	equ  15		;text color (white 320)
colorOut320	equ  15		;outline color (white 320)
dhB	equ  40		;width of buttons
dvB	equ  11		;height of butons
dhS	equ  14		;hort space
dvS	equ  12		;vert space
dhD	equ  4*dhB+3*dhS+4	;width of display
dvD	equ  23		;height of display
h1	equ  10		;horizontal offsets
h2	equ  h1+dhB+dhS
h3	equ  h2+dhB+dhS
h4	equ  h3+dhB+dhS
h1A	equ  h1+4
h2A	equ  h2+4
h3A	equ  h3+4
h4A	equ  h4+4
v1	equ  10		;vertical offsets
v2	equ  v1+dvB+5
v3	equ  v2+dvD+dvS-2
v4	equ  v3+dvB+dvS
v5	equ  v4+dvB+dvS
v6	equ  v5+dvB+2
v1A	equ  v1+2
v2A	equ  v2+2
v3A	equ  v3+2
v4A	equ  v4+2
v5A	equ  v5+2
dhO	equ  13		;width of button oval
dvO	equ  5		;height  of button oval
dhPL	equ  18		;width of large picture
dvPL	equ  17		;height of large picture
dhPS	equ  12		;width of small picture
dvPS	equ  11		;height of small picture
dhL	equ  20		;width of label
dvL	equ  7		;height of label
dhI	equ  84		;width of disc icon
dvI	equ  24		;height of disc icon
dhR	equ  26		;width of Remote picture
dvR	equ  20		;height of Remote picture
dhA	equ  16		;width of Apple picture
dvA	equ  8		;height of Apple picture
dhN	equ  15		;width of number
dvN	equ  11		;height of number
dhC	equ  2		;width of colon
dvC	equ  11		;height of colon
dhT	equ  56		;width of text picture
dvT	equ  5		;height of text picture
dhW1	equ  h1*2+dhD		;width of NDA window
dvW1	equ  v6+dvI+4		;height of NDA window
dhW2	equ  300		;width of About window
dhW2_320	equ  265		;width of About window
dvW2	equ  80		;height of About window
h5	equ  dhW1-2*h1-4*dhN-3
h6	equ  dhW1-h1-dhI+2
pictX1L	equ  2*h1		;picture coordinates
pictX2L	equ  pictX1L+6+dhPL
pictY1L	equ  v2+3
pictY2L	equ  v2+3
pictCX	equ  h5+2*dhN		;picture coordinates
pictCY	equ  v2+9
tw0	equ  30/2		;text string widths
tw1	equ  30/2
tw2	equ  37/2
tw3	equ  36/2
tw4	equ  38/2
tw5	equ  30/2
tw6	equ  34/2
tw7	equ  42/2
tw8	equ  49/2
tw9	equ  27/2
penMode	equ  0
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CDRemote/spdriver.aii b/IIGS.601.SRC/A.U.G/CDRemote/spdriver.aii
new file mode 100644
index 0000000..ce66c98
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CDRemote/spdriver.aii
@@ -0,0 +1 @@
+
**************************************************************
* NOTE--This file is no longer used.  See the makefile.  --DAL
**************************************************************

* * * * * * * * * * * * * * * * * * * * * * * * *
* File:  SPDRIVER.aii		*
*			*
* SmartPort Driver to AppleCD SCª (RUBY) drive	*
* Module for CD-Remote (A New Desk Accessory)	*
* 			*
* Date:	8/27/87 (created)	*
* Author:	Don Brady		*
*			*
* Build File:	CDRemote.make		*
*			*
* Copyright © APPLE Computer, Inc. 1987,1988	*
*			*
* Modification History:		*
* Version 1.0			*
* 01/18/88  Released A1 today		*
* 02/11/88  Released A2 today		*
* 02/17/88  Converted to MAX (from APW) today	*
* 03/21/88  Release A4 today		*
* 04/01/88  Release B1 today		*
* 04/13/88  Release B2 (informal) today	*
* 04/15/88  Release B3 today		*
* 04/17/88  Release B4 (informal) today	*
* 04/18/88  Final Release today		*
* * * * * * * * * * * * * * * * * * * * * * * * * 

;...............................................................
;
;        Set Memory & A register to 8 bits
;...............................................................
	MACRO
	shortm
	sep  #%00100000
	longa off
	MEND
;...............................................................
;
;        Set Memory & A register to 16 bits
;...............................................................
	MACRO
	longm
	rep  #%00100000
	longa on
	MEND

;...............................................................
;
;        Set Memory & registers to 16 bits
;...............................................................
	MACRO
	SetLong
	rep   #%00110000
	longa on
	longi on
	MEND
;...............................................................
;
;        Set Memory & registers to 8 bits
;...............................................................
	MACRO
	SetShort
	sep   #%00110000
	longa off
	longi off
	MEND
	
;-----------------------------------------------
;
;   Imported data address (from CDRemote.aii)
;
;-----------------------------------------------

	IMPORT  CDAFrame		
	IMPORT  CDAMin
	IMPORT  CDASec
	IMPORT  CDATime
	IMPORT  CDCurTrk
	IMPORT  CDData
	IMPORT  CDFrame
	IMPORT  CDMaxTrk
	IMPORT  CDMin
	IMPORT  CDMinTrk
	IMPORT  CDSec
	IMPORT  CDTrkCnt
	
	include  'all.macros'
	
*===============================================*
*            Data for SmartPort Driver	*
*===============================================*
SPData	PROC

	ENTRY  SPBuffer
	ENTRY  SPCode
	ENTRY  SPCount
	ENTRY  AudioBuffer
	ENTRY  InitError
	ENTRY  SPList
	ENTRY  Units
	ENTRY  Slot
	ENTRY  IsOnLine
	ENTRY  SPUnit
	ENTRY  Params
	ENTRY  SPBuffPtr

	ENTRY  PlayMode
	ENTRY  AControl
	ENTRY  ATrack
	ENTRY  AIndex
	ENTRY  AMin
	ENTRY  ASec
	ENTRY  AFrame
	ENTRY  SPErrStr
	ENTRY  EndStr
	ENTRY  SenseKey
	ENTRY  SenseCode
	ENTRY  ErrorCode
	ENTRY  ControlCode
	ENTRY  EntryAddr
	
IsOnLine	DC.W  0		;boolean flag
InitError	DC.W  0		;0 = okay, else error
Slot	DC.W  0		;SCSI card slot
Units	DC.W  0		;how many units
Params	DC.W  0		;parameter block for Version

SPBuffer	DS.B  32		;SP I/O buffer
AudioBuffer	DS.B  4*99		;Audio I/O buffer

SPList			;SP parameter list
SPCount	DS.B  1		;parameter count
SPUnit	DS.B  1		;unit number
SPBuffPtr	DC.L  SPBuffer		;buffer ptr
SPCode	DS.B  10		;other stuff

PlayMode	dc.w  9		;default = stereo

AControl	dc.w  0
ATrack	dc.w  0
AIndex	dc.w  0
AMin	dc.w  0		;not used ????
ASec	dc.w  0
AFrame	dc.w  0

	STRING  ASIS
SPErrStr	DC.B  EndStr-SPErrStr-1
	DC.B  'SmartPort error - $'
ErrorCode	DC.B  'XX'
	DC.B  $0D
	DC.B  'Control Code - $'
ControlCode	DC.B  'XX'
	DC.B  $0D
	DC.B  'Sense key/code - $'
SenseKey	DC.B  'XX, $'
SenseCode	DC.B  'XX'
	DC.B  $0D
	DC.B  'SP Dispatch - $'
EntryAddr	DC.B  'XXXXXX'
EndStr

	ENDP
	
*===============================================*
*	Initialize SmartPort	*
* - make sure Prodos is ver. 1.0 (ie not 2.0)	*
* - look for SCSI Card Rev C		*
* - look for a AppleCD SC (RUBY) drive	*
* - set dispatch address		*
* - check if device is online		*
*			*
* INPUT:	none		*
*			*
* OUTPUT:	ErrorCode (A-Reg)	*
*	$0000 = okay		*
*	$8000 = no RUBY drive	*
*	$4000 = no SCSI Rev C	*
*	$2000 = no SCSI card	*
*	$1000 = not ProDos16 1.0	*
*===============================================*
	EXPORT  SPInit
	EXPORT  SPInit2
SPInit	PROC

	IMPORT  GetSCSI
	IMPORT  GetCDROM
	IMPORT  SPCall
	
;	_GET_VERSION Params
;	lda  Params
;	and  #$7F00
;	cmp  #$0100		;is it ProDos 16 1.0 ?
;	beq  SPInit2
;	lda  #$1000
;	sta  InitError
;	bra  exit
	
	ENTRY  SPInit2		;for the "backdoor"
SPInit2	
	lda  #$2000		;no SCSI card yet
	sta  InitError

	ldx  #7		;start in slot 7
loop	jsr  GetSCSI
	bcc  next
	jsr  GetCDROM
	bcs  found
next	dex
	bne  loop
	
	lda  InitError
	bne  exit
	lda  #$8000		;no RUBY drive
	bra  exit
found
	stx  Slot		;SCSI slot
	lda  #$00		;Status Code
	sta  SPCode
	lda  #^SPBuffer
	sta  SPBuffPtr+2
	lda  #SPBuffer
	sta  SPBuffPtr
	lda  #$40		;command
	ldx  #$03		;param count
	jsr  SPCall		;do status call
	cmp  #0
	bne  offline
	lda  SPBuffer
	and  #$0010		;look at online bit
	bne  online
offline	stz  IsOnLine
	bra  done
online	lda  #1
	sta  IsOnLine
done	lda  #$0000		;no error
exit	cmp  #1
	rts

	ENDP
	
*===============================================*
*	Get SCSI Card		*
* - look for a SCSI card in current slot	*
*			*
* INPUT:	none		*
*			*
* OUTPUT:	found (carry bit) 1=yes, 0=no	*
*			*
*===============================================*
GetSCSI	PROC

	IMPORT  SPEntry

	phx
	txa
	and  #$000F
	ora  #$C0
	xba
	tax
	lda  $E00001,x		;check SP signatures
	and  #$00FF
	cmp  #$20
	bne  noSCSI
	lda  $E00003,x
	and  #$00FF
	cmp  #$00
	bne  noSCSI
	lda  $E00005,x
	and  #$00FF
	cmp  #$03
	bne  noSCSI
	lda  $E00007,x
	and  #$00FF
	cmp  #$00
	bne  noSCSI
	lda  $E000FB,x		;check for SCSI card ID
	and  #$00FF
	cmp  #$82
	bne  noSCSI

	phx		;slot
	lda  $E000FF,x		;get SP offset value
	and  #$00FF
	clc
	adc  1,s		;slot ($Cn00)
	clc
	adc  #$0003		;sp offset
	sta  >SPEntry+1		;set SP dispatch addr
	pla
	
	stz  InitError		;found a scsi card
	sec
exit	plx
	rts

noSCSI	clc
	bra  exit

	ENDP
	
*===============================================*
*	Get CD-ROM Device	*
* - look for a Ruby drive in current slot	*
*			*
* INPUT:	none		*
*			*
* OUTPUT:	found (carry bit) 1=yes, 0=no	*
*			*
*===============================================*
GetCDROM	PROC

	IMPORT  SPUnits
	IMPORT  ChkType
	
	phx
	jsr  SPUnits		;how many devices ?
	sta  Units
	beq  noRUBY		;none
	lda  #1
@loop			;look for RUBY
	shortm
	sta  SPUnit		;set SP unit number
	longm
	jsr  ChkType		;is it a RUBY ?
	bcs  found
	cmp  Units
	bcs  noRuby
	inc  a
	bra  @loop
found
	sec
exit	
	plx
	rts

noRUBY	clc
	bra  exit

	ENDP
	
*===============================================*
*	Check Device Type	*
* - check for a Ruby drive		*
*			*
* INPUT:	none		*
*			*
* OUTPUT:	isRUBY (carry bit) 1=yes, 0=no	*
*			*
*===============================================*
ChkType	PROC

	IMPORT  SPCall


	pha		;preserve A-reg

	ldx  bFlag
	bne  doIt
	inc  bFlag
	bra  exit
doIt
	lda  #$03		;get DIB
	sta  SPCode		;status code
	lda  #^SPBuffer
	sta  SPBuffPtr+2
	lda  #SPBuffer
	sta  SPBuffPtr
	lda  #$40		;command code
	ldx  #$03		;number of parameters
	jsr  SPCall
	cmp  #0		;check for SP error
	bne  notCD
	
	lda  SPBuffer+24	;check SCSI version
	cmp  #$0200		;is it Rev C ?
	bne  notRevC
	
	lda  SPBuffer		;check status byte
	and  #$EF
	cmp  #$A4
	bne  notCD
	
	lda  SPBuffer+22	;device type & subtype
	and  #$E0FF
	cmp  #$C005		;CD-ROM type/subtype ?
	bne  notCD

	lda  SPBuffer+6		;check vendor name
	cmp  #'OS'		;'SONY'
	bne  notCD
	lda  SPBuffer+8
	cmp  #'YN'
	bne  notCD
		
	lda  #$0000		;ok now	
	sta  InitError
	sec
exit	pla
	rts
	
notCD	clc
	bra  exit
	
notRevC	lda  #$4000
	sta  InitError
	clc
	bra  exit

bFlag	DC.W  0

	ENDP
	
*===============================================*
*	SmartPort Units		*
* - tells how many units (volumes) there are	*
*			*
* INPUT:	none		*
*			*
* OUTPUT:	unitCount (A-Reg)	*
*			*
*===============================================*
SPUnits	PROC

	IMPORT  SPCall

	shortm
	lda  #$00
	sta  SPUnit		;SP unit number
	sta  SPCode		;status code
	longm
	lda  #^SPBuffer
	sta  SPBuffPtr+2
	lda  #SPBuffer
	sta  SPBuffPtr
	lda  #$40		;command code
	ldx  #$03		;number of parameters
	jsr  SPCall
	cmp  #0		;check for SP error
	bne  spErr
	lda  SPBuffer		;# of devices
	bra  exit
spErr	lda  #0

exit	rts

	ENDP
	
*===============================================*
*	Do SmartPort Call	*
*			*
* INPUT:	CallNum (A-Reg)		*
*	NumParams (X-Reg)	*
*			*
* OUTPUT:	SP Error (A-Reg)	*
*			*
*===============================================*
	EXPORT  SPCall  
SPCall	PROC

	IMPORT  SPEntry

	shortm
	ora  #$40		;use extended calls
	sta  SPEntry+3		;SP command number
	txa
	sta  SPCount		;number of parameters
	longm

	ldx  #8		;copy SP code to bank 0
@loop	lda  SPEntry,x
	pha
	dex
	dex
	bpl  @loop
	tsx
	inx		;points to SP code start

	pushlong #00		;result
	pushlong #00		;result
	pushlong #00		;a, x reg
	pushword #00		;y reg
	phx		;address of call
	_FWEntry		;call to our code in bank zero
	ply		;get Y-reg after the call ($00yy)
	plx		;get X-reg after the call ($00xx)
	pla		;get A-reg after the call ($00aa)
	sta  atmp		;save it temporarily
	pla		;pull 8-bit garbage & status reg
	pla		;clean up stack (SP code)
	pla
	pla
	pla
	pla
	lda  atmp		;reload the A-reg
	cmp  #1
	rts

atmp	DS.B  2

	ENDP

*===============================================*
*        Entry Point for SmartPort calls	*
*===============================================*
SPEntry	PROC

	jsr  $0000		;SP dispatch
	DS.B  1		;SP command
	DC.L  SPList		;param list ptr
	rts

	ENDP
	
*===============================================*
* 	SmartPort Error		*
* - handle a SmartPort Error		*
*			*
* INPUT:	errorCode (A-Reg)	*
*			*
* OUTPUT:	errorCode (A-Reg)	*
*			*
*===============================================*
;SPError	PROC
;
;	IMPORT  DoAlert
;	IMPORT  SPEntry
;	
;	and  #$00FF
;	cmp  #$0027		;I/O error
;	beq  ioError
;	brl  exit
;ioError	
;	pha		;save it
;	stz  SPBuffer+2
;	stz  SPBuffer+12
;	
;	PushLong #SPEntry	;SP entry address
;	PushLong #EntryAddr
;	PushWord #6
;	_Long2Hex
;	lda  SPCode		;control code
;	PushLong #0
;	pha
;	_HexIt
;	pla
;	PullWord ControlCode
;	
;	lda  #$05		;Status Code = Get Sense
;	sta  SPCode
;	lda  #^SPBuffer
;	sta  SPBuffPtr+2
;	lda  #SPBuffer
;	sta  SPBuffPtr
;	lda  #$40		;command
;	ldx  #$03		;param count
;	jsr  SPCall		;do status call
;	
;	lda  1,s		;smartport error
;	PushLong #0
;	pha
;	_HexIt
;	pla
;	PullWord ErrorCode
;	lda  SPBuffer+2		;sense key
;	and  #$000F
;	PushLong #0
;	pha
;	_HexIt
;	pla
;	PullWord SenseKey
;	lda  SPBuffer+12	;sense code
;	and  #$00FF
;	PushLong #0
;	pha
;	_HexIt
;	pla
;	PullWord SenseCode
;	
;	lda  SPBuffer+12	;sense code
;	and  #$00FF
;	cmp  #$0084
;	beq  skip
;	lda  #$0001
;	ldx  #SPErrStr
;	ldy  #^SPErrStr
;	jsr  DoAlert
;skip	
;	pla		;restore error code
;exit	cmp  #1
;	rts
;
;	ENDP
;	
*===============================================*
* Test RUBY for disc on line		*
*			*
* INPUT:	none		*
*			*
* OUTPUT:	A-Reg  1 = OnLine; 0 = OffLine	*
*	C-Flag 1 = not on line	*
*			*
* This could hang if Status keeps returning $27 *
*===============================================*
	EXPORT  SPOnLine 
SPOnLine	PROC

	IMPORT  (NoDisc,NewDisc):CODE
	
	lda  #$00		;Status Code
	sta  SPCode
	lda  #^SPBuffer
	sta  SPBuffPtr+2
	lda  #SPBuffer
	sta  SPBuffPtr
	lda  #$40		;command
	ldx  #$03		;param count
	jsr  SPCall		;do status call
	bcc  cont
	
	lda  #$40		;command
	ldx  #$03		;param count
	jsr  SPCall		;try again
	bcs  offline
cont	
	lda  SPBuffer
	and  #$0010		;look at online bit
	bne  online
	lda  IsOnline
	beq  offline		;already knew it
	jsr  NoDisc		;reset variables
	stz  IsOnLine
offline	lda  #0
	sec
	bra  exit
online	lda  IsOnLine
	bne  okay		;no disc switch
	inc  IsOnLine
	jsr  NewDisc		;read TOC stuff for DA
okay	lda  #1
	clc
exit	rts
	
	ENDP
	
*===============================================*
*	SCSI Busy		*
* - check to see if SCSI Card is "busy".	*
*			*
* INPUT:	none		*
*			*
* OUTPUT:	busyflag (carry bit) 1=yes, 0=no*
*			*
*===============================================*
	EXPORT  SCSIBusy
SCSIBusy	PROC

	lda  Slot		;get NCR register locations
	and  #$0007
	clc
	adc  #$0008
	asl  a
	asl  a
	asl  a
	asl  a
	ora  #$C000
	tax		;X <-- $C0n0 (n = slot + 8)
	lda  $E00000,x		;check NCR registers
	cmp  #$0000
	bne  busy
	lda  $E00002,x
	cmp  #$0000
	bne  busy
	lda  $E00004,x
	cmp  #$0800
	bne  busy
	
	sep  #$20
	lda  >$E0C015		;RDCXROM
	rep  #$20
	and  #$00FF
	beq  okay		;internal ROM active
		
	lda  Slot		;check MSLOT ($07F8)
	and  #$0007
	ora  #$00C0		;$00Cn (n = slot)
	cmp  >$0007F8		;was the card "active"
	beq  busy		;yes!
okay	clc		;C <-- "not busy"
	bra  exit	
busy	sec		;C <-- "busy"
exit	rts

	ENDP
	
*===============================================*
*	SmartPort Rezero Unit	*
*			*
* INPUT:	none		*
*			*
* OUTPUT:	none		*
*			*
*===============================================*
	EXPORT  SPRezero 
SPRezero	PROC

	lda  #$1d		;Control Code
	sta  SPCode
	lda  #^SPBuffer
	sta  SPBuffPtr+2
	lda  #SPBuffer
	sta  SPBuffPtr
	lda  #$44		;control command
	ldx  #$03		;param count
	jsr  SPCall
	rts

 	ENDP
	
*===============================================*
*	Audio SmartPort Call	*
*			*
* INPUT:	ctrlCode (A-Reg)	*
*			*
* OUTPUT:	errorCode (A-Reg)	*
*	carryFlag (1=error, 0=okay)	*
*			*
*===============================================*
	EXPORT  ASPCall
ASPCall	Proc
	IMPORT  (SPError,SPCall):CODE
	
	sta  SPCode		;control code
	lda  #^AudioBuffer
	sta  SPBuffPtr+2
	lda  #AudioBuffer
	sta  SPBuffPtr
	lda  #$44		;command code
	ldx  #$03		;number of parameters
	jsr  SPCall
	cmp  #1
;	bcc  exit
;	jsr  SPError		;handle error (debug)
exit	rts
	
	ENDP
	
*===============================================*
*	 Audio Seek Track	*
* - seek to track and hold		*
*			*
* INPUT:	track (A-Reg)		*
*			*
* OUTPUT:	carryFlag (0 = okay, 1 = error)	*
*			*
*===============================================*
	EXPORT  ASeekTrack
ASeekTrack	PROC
	
	IMPORT  AStopTrack
	
	pha
	jsr  AStopTrack		;reset to this track
	pla
	sta  AudioBuffer+2	;set search track
	lda  PlayMode
	and  #$000F
	xba
	sta  AudioBuffer	;set play bit/play mode
	stz  AudioBuffer+4
	lda  #2		;use track
	sta  AudioBuffer+6	;set address type
	lda  #$20		;AUDIOSRCH Command
	jsr  ASPCall
	bcc  exit
	lda  #$20
	jsr  ASPCall		;try again
exit	rts
	
	ENDP
	
*===============================================*
*	  Audio Play Time	*
*			*
* INPUT:	frame (A-Reg)		*
*	sec (X-Reg)		*
*	min (Y-Reg)		*
*			*
* OUTPUT:	carryFlag (0 = okay, 1 = error)	*
*			*
*===============================================*
	EXPORT  APlayTime
APlayTime	PROC
	
	SetShort
	sta  AudioBuffer+2	;set playback FRAME
	stx  AudioBuffer+3	;set playback SEC
	sty  AudioBuffer+4	;set playback MIN
	stz  AudioBuffer+5	;reserved
	stz  AudioBuffer+0	;set stop bit
	lda  PlayMode
	sta  AudioBuffer+1	;set play mode
	lda  #$01		;use time
	sta  AudioBuffer+6	;set address type
	SetLong
	
	lda   #$21		;AUDIOPLAY Command
	jsr   ASPCall
	bcc   exit
	lda   #$21
	jsr   ASPCall		;try again	
exit	rts
	
	ENDP
	
*===============================================*
*	  Audio Play Track	*
*			*
* INPUT:	track (A-Reg)		*
*			*
* OUTPUT:	carryFlag (0 = okay, 1 = error)	*
*			*
*===============================================*
	EXPORT  APlayTrack
APlayTrack	PROC		;A-reg has TRACK
	
	IMPORT  TestAudioTrack
	
;	pha
;	jsr  TestAudioTrack
;	pla
;	bcs  exit		;data track encountered!

	stz  AudioBuffer+0	;set stop bit
	ldx  PlayMode
	stx  AudioBuffer+1	;set play mode
	sta  AudioBuffer+2	;set playback track
	sta  ATrack
	stz  AudioBuffer+4	;reserved
	lda  #$02		;use track
	sta  AudioBuffer+6	;set address type
	lda  #$21		;AUDIOPLAY Command
	jsr  ASPCall
	bcc  exit
	lda  #$21
	jsr  ASPCall		;try again
exit	rts
	
	ENDP
	
*===============================================*
*	  Audio Pause		*
*			*
* INPUT:	flag (A-Reg) 0=set,1=release	*
*			*
* OUTPUT:	carryFlag (0 = okay, 1 = error)	*
*			*
*===============================================*
	EXPORT  APause
APause	PROC
	
	sta  AudioBuffer	;set pause bit
	lda  #$22		;PAUSE Command
	jsr  ASPCall
	rts
	
	ENDP
	
*===============================================*
*	Audio Stop Time		*
* - set time stoping address		*
*			*
* INPUT:	frame (A-Reg)		*
*	sec (X-Reg)		*
*	min (Y-Reg)		*
*			*
* OUTPUT:	carryFlag (0 = okay, 1 = error)	*
*			*
*===============================================*
	EXPORT  AStopTime
AStopTime	PROC
	
	SetShort
	sta  AudioBuffer+0	;playback FRAME
	stx  AudioBuffer+1	;playback SEC
	sty  AudioBuffer+2	;playback MIN
	stz  AudioBuffer+3	;reserved
	lda  #$01		;use TIME
	sta  AudioBuffer+4	;address type
	SetLong
	
	lda  #$23		;AUDIOSTOP Command
	jsr  ASPCall
	bcc  exit
	lda  #$23
	jsr  ASPCall		;try again
exit	rts
	
	ENDP
	
*===============================================*
*	Audio Stop Track	*
* - set track stoping address		*
*			*
* INPUT:	track (A-Reg)		*
*			*
* OUTPUT:	carryFlag (0 = okay, 1 = error)	*
*			*
*===============================================*
	EXPORT  AStopTrack
AStopTrack	PROC
	
	IMPORT  TestAudioTrack
	
;	pha
;	jsr  TestAudioTrack
;	pla
;	bcs  exit		;data track encountered!

	sta  AudioBuffer	;stoping track
	stz  AudioBuffer+2
	lda  #$02
	sta  AudioBuffer+4	;addr type = track
	
	lda  #$23		;AUDIOSTOP Command
	jsr  ASPCall
	bcc  exit
	lda  #$23
	jsr  ASPCall		;try again
exit	rts
	
	ENDP
	
*===============================================*
*	  Audio Status		*
*			*
* INPUT:	none		*
*			*
* OUTPUT:	AudioStatus (A-Reg)	*
*	($ff = error/undefined	*
*			*
*===============================================*
	EXPORT  AStatus
AStatus	PROC
	
	lda  #$24		;AUDIOSTAT Command
	jsr  ASPCall
	bcc  okay
	lda  #$24
	jsr  ASPCall		;try again
	bcc  okay
	lda  #$0004
	bra  exit
okay	lda  AudioBuffer
	and  #$00ff		;return audio Status
exit	rts
	
	ENDP
	
*===============================================*
*           Audio Scan Forward/Reverse	*
*			*
* INPUT:	frame (A-Reg)		*
*	sec (X-Reg)		*
*	min (Y-Reg)		*
*			*
* OUTPUT:	carryFlag (0 = okay, 1 = error)	*
*			*
*===============================================*
	EXPORT  AScanF
AScanF	PROC		;A = FRAME,X = SEC,Y = MIN
	
	lda  #0
	bra  cont
	
	EXPORT AScanR
	ENTRY  AScanR
AScanR
	lda  #1
cont	sta  AudioBuffer+0	;direction bit
	
	shortm
	sta  AudioBuffer+2	;scan FRAME
	stx  AudioBuffer+3	;scan SEC
	sty  AudioBuffer+4	;scan MIN
	lda  #0
	sta  AudioBuffer+5
	lda  #$01		;use time
	sta  AudioBuffer+6	;address type
	longm
	
	lda  #$25		;AUDIOSCAN Command
	jsr  ASPCall
	bcc  exit
	lda  #$25
	jsr  ASPCall		;try again
exit	rts
	
	ENDP
	
*===============================================*
*	Audio Scan Track	*
*			*
* INPUT:	track (A-Reg)		*
*	direction (X-Reg) 0=FWD, 1=REV	*
*			*
* OUTPUT:	carryFlag (0 = okay, 1 = error)	*
*			*
*===============================================*
	EXPORT  AScanTrack
AScanTrack	PROC
	
	stx  AudioBuffer+0	;direction bit
	
	sta  AudioBuffer+2	;scan track
	stz  AudioBuffer+4
	lda  #$0002		;use track
	sta  AudioBuffer+6	;address type
	
	lda  #$25		;AUDIOSCAN Command
	jsr  ASPCall
	bcc  exit
	lda  #$25
	jsr  ASPCall		;try again
exit	rts
	
	ENDP
	
*===============================================*
*	   Audio Eject		*
*			*
* INPUT:	none		*
*			*
* OUTPUT:	carryFlag (0 = okay, 1 = error)	*
*			*
*===============================================*
	EXPORT  AEject
AEject	PROC
	
	lda  #$26		;EJECT Command
	jmp  ASPCall
	
	ENDP
	
*===============================================*
*	Audio Play Mode		*
*			*
* INPUT:	mode (A-Reg)		*
*			*
* OUTPUT:	carryFlag (0 = okay, 1 = error)	*
*			*
*===============================================*
	EXPORT  APlayMode
APlayMode	PROC
	
	IMPORT  CDCurTrk:DATA
	IMPORT  CDMinB:DATA
	IMPORT  CDSecB:DATA
	IMPORT  CDFrameB:DATA
	
	sta  PlayMode		;save mode for other calls
	ldx  #1
	stx  AudioBuffer+0	;stop bit
	sta  AudioBuffer+1	;play mode
	lda  CDCurTrk
	sta  AudioBuffer+2	;playback track
	stz  AudioBuffer+4
	lda  #$02		;use track
	sta  AudioBuffer+6	;address type
	bra  doIT
	
	EXPORT APlayModeTime
	ENTRY  APlayModeTime
APlayModeTime
	sta  PlayMode		;save mode for other calls
	ldx  #1
	stx  AudioBuffer+0	;stop bit
	sta  AudioBuffer+1	;play mode
	lda  CDFrameB
	sta  AudioBuffer+2	;playback time
	lda  CDSecB
	sta  AudioBuffer+3
	lda  CDMinB
	sta  AudioBuffer+4
	lda  #$01		;use time
	sta  AudioBuffer+6	;address type
doIt
	lda  #$21		;AUDIOPLAY Command
	jsr  ASPCall
	bcc  exit
	lda  #$21
	jsr  ASPCall		;try again
exit	rts
	
	ENDP
	
*===============================================*
*	Audio TOC Track		*
* - get first and last track numbers	*
*			*
* INPUT:	none		*
*			*
* OUTPUT:	firstTrk (X-Reg)	*
*	lastTrk (Y-Reg)		*
*			*
*===============================================*
	EXPORT  ATOCTrack
ATOCTrack	PROC
	
	stz  AudioBuffer	;track number
	lda  #$04
	sta  AudioBuffer+1	;allocation length
	lda  #$00
	sta  AudioBuffer+3	;TOC type
	lda  #$27		;READTOC Command
	jsr  ASPCall
	bcc  okay
	lda  #$27
	jsr  ASPCall		;try again
	bcc  okay
	ldx  #0
	ldy  #0
	bra  exit	
okay	lda  AudioBuffer	;first track
	and  #$00FF
	tax
	lda  AudioBuffer+1	;last track
	and  #$00FF
	tay
exit	rts
	
	ENDP
	
*===============================================*
*	 Audio TOC Time		*
* - get absolute track time values	*
* - get control field (data/audio track)	*
*			*
* INPUT:	none		*
*			*
* OUTPUT:	carryFlag (1 = error)	*
*			*
*===============================================*
	EXPORT  ATOCTime
ATOCTime	PROC		;get absolute track times
	
	IMPORT  (CDMinTrk,CDTrkCnt,CDATime):DATA
	
	lda  CDMinTrk		;PROCing track number
	sta  AudioBuffer
	lda  CDTrkCnt		;track count
	asl  A		;tracks * 4
	asl  A
	sta  AudioBuffer+1	;allocation length
	lda  #$02
	sta  AudioBuffer+3	;TOC type
	lda  #$27		;READTOC Command
	jsr  ASPCall
	bcc  okay
	lda  #$27
	jsr  ASPCall		;try again
	bcs  exit		;error occured
okay	
	lda  CDTrkCnt
	dec  A
	asl  A
	asl  A
	tay
	lda  CDTrkCnt
	dec  A
	dec  A
	asl  A
	tax
	phy
	
loop	lda  AudioBuffer+1,y	;AMin, ASec
	xba		;lsb <-- sec, msb <-- min
	sta  CDATime,x		;CDATime(x) <-- ATime(x+1)
	lda  AudioBuffer-4,y	;control field
	and  #$000D
	cmp  #$0004		;is it a data track?
	bne  cont1		;no
	lda  CDATime,x
	ora  #$8000		;mark entry as data
	sta  CDATime,x
cont1	dey
	dey
	dey
	dey
	dex
	dex
	bpl  loop

	ply		;check last track
	stz  AControl
	lda  AudioBuffer,y
	and  #$000D
	cmp  #$0004		;is it a data track?
	bne  cont2		;no
	lda  #$8000
	sta  AControl
cont2
	stz  AudioBuffer	;track number
	lda  #$04
	sta  AudioBuffer+1	;allocation length
	lda  #$01
	sta  AudioBuffer+3	;TOC type
	lda  #$27		;READTOC Command
	jsr  ASPCall
	cmp  #1
	bcs  exit		;error occured
	lda  CDTrkCnt
	dec  A
	asl  A
	tax
	lda  AudioBuffer	;lead-out time
	xba		;lsb <-- sec, msb <-- min
	ora  AControl
	sta  CDATime,x		;CDATime(n) <-- Time
	clc
exit	rts
	
	ENDP
	
*===============================================*
*	Audio Read Q-Data	*
*			*
* INPUT:	none		*
*			*
* OUTPUT:	carryFlag (0 = okay, 1 = error)	*
*			*
*===============================================*
	EXPORT  AReadQ
AReadQ	PROC

	IMPORT  (CDAMin,CDASec,CDMin,CDSec,CDIndex):DATA
	IMPORT  (CDAFrame,CDFrame,CDCurTrk):DATA

	lda  #$28		;READQ Command
	jsr  ASPCall
	bcc  cont
	lda  #$28		;READQ Command
	jsr  ASPCall
	bcs  exit		;SP error
cont	
	shortm
	lda  AudioBuffer	;control field
	sta  AControl
	lda  AudioBuffer+1
	cmp  #$AA		;into lead-out area ?
	bne  okay		;no
	lda  #0
okay	sta  CDCurTrk
	lda  AudioBuffer+2
	sta  CDIndex
	lda  AudioBuffer+3	;save track TIME
	sta  CDMin
	lda  AudioBuffer+4
	sta  CDSec
	lda  AudioBuffer+5
	sta  CDFrame
	lda  AudioBuffer+6	;save absolute TIME
	sta  CDAMin
	lda  AudioBuffer+7
	sta  CDASec
	lda  AudioBuffer+8
	sta  CDAFrame
	longm
exit	
	rts
	
	ENDP
	
*===============================================*
	END

\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CloseView/CloseView.equ b/IIGS.601.SRC/A.U.G/CloseView/CloseView.equ
new file mode 100644
index 0000000..8242db3
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CloseView/CloseView.equ
@@ -0,0 +1 @@
+*===============================================*
*						*	
* File:		CloseViewII.equ			*
* Project:	Close View GS			*
* Author:	Don J. Brady			*
*						*
* Copyright © Apple Computer, Inc. 1989,1990	*
* All rights reserved.				*
*-----------------------------------------------*
*	Modification History:			*
*						*
* 12/05/89	DJB	File created today	*
*						*
*===============================================*

;--- change flag bits:

cfOnOff		equ	$80			; change on/off state
cfMagnify	equ	$40			; change magnification state
cfPowerUp	equ	$20			; change power - up
cfPowerDown	equ	$10			; change power - down
cfInvert	equ	$08			; change invert state


;--- Hardware equates:

VirtualScreen	equ	$012000
RealScreen	equ	$E12000
SCBData		equ	$E19D00
ColorTableData	equ	$E19E00

EMXPos		equ	$E100E9			; global X position
EMYPos		equ	$E100EB			; global Y position
TickCnt		equ	$E100DC			; global tick count

SHADOW		equ	$E1C035			; hardware shadow register (byte)
NEWVIDEO	equ	$E1C029			; hardware video register (byte)
VGCINT		equ	$E1C023			; hardware VGC interrupt register (byte)
KBD		equ	$E1C000
KBDSTRB		equ	$E1C010
KEYMODREG	equ	$E1C025
SPEAKER		equ	$E1C030			; hardware speaker


;--- BRAM Equates:

cvBRAM		equ	$5B

cvPowerMask	equ	%00001111		; bits 0-3 (power)
cvUseKeys	equ	%00010000		; bit 4
cvMagnify	equ	%00100000		; bit 6
cvInvert	equ	%01000000		; bit 6
cvEnabled	equ	%10000000		; bit 7

cvBRAMDefaults	equ	cvUseKeys+2		; 2x, disabled, magnify off, use keys, invert off

;--- Records:

Rect		RECORD	0			; QuickDrawII rectangle record
;-----------------------------------------------
top		ds.W	1
left		ds.W	1 
bottom		ds.W	1
right		ds.W	1
;-----------------------------------------------
		ENDR 

Point		RECORD	0			; QuickDrawII point record
;-----------------------------------------------
v		ds.W	1
h		ds.W	1 
;-----------------------------------------------
		ENDR 

LocInfo		RECORD	0			; QuickDrawII LocInfo record
;-----------------------------------------------
portSCB		ds.W	1
ptrToPiximage	ds.L	1
width		ds.W	1
boundsRect	ds	Rect
;-----------------------------------------------
		ENDR 

Event		RECORD	0			; Event Manager Event
;-----------------------------------------------
what		ds.W	1
message		ds.L	1
when		ds.L	1
where		ds	Point
modifiers	ds.W	1
;-----------------------------------------------
		ENDR

WMTask		RECORD	0			; Task Master Record
;-----------------------------------------------
wmEvent		ds	Event
wmTaskData	ds.L	1
wmTaskMask	ds.L	1
wmLastClickTick	ds.L	1
wmClickCount	ds.W	1
wmTaskData2	ds.L	1
wmTaskData3	ds.L	1 
wmTaskData4	ds.L	1
wmLastClickPt	ds	Point
;-----------------------------------------------
		ENDR

WindParamList	RECORD	0			; Window Manager ParamList
;-----------------------------------------------
paramLength	ds.W	1
wFrameBits	ds.W	1
wTitle		ds.L	1
wRefCon		ds.L	1
wZoom		ds	Rect
wColor		ds.L	1
wYOrigin	ds.W	1
wXOrigin	ds.W	1 
wDataH		ds.W	1
wDataW		ds.W	1
wMaxH		ds.W	1
wMaxW		ds.W	1
wScrollVer	ds.W	1
wScrollHor	ds.W	1
wPageVer	ds.W	1
wPageHor	ds.W	1
wInfoRefCon	ds.L	1
wInfoHeight	ds.W	1
wFrameDefProc	ds.L	1
wInfoDefProc	ds.L	1
wContDefProc	ds.L	1
wPosition	ds	Rect
wPlane		ds.L	1
wStorage	ds.L	1
;-----------------------------------------------
		ENDR

CVStatusRec	RECORD	0			; CloseView status record
;-----------------------------------------------
enabled		ds.W	1			; boolean
invert		ds.W	1			; boolean
magnify		ds.W	1			; boolean
usekeys		ds.W	1			; boolean
power		ds.W	1			; word {2,3,4,6,8,12}
noScreen	ds.W	1			; boolean
wasOn		ds.W	1			; boolean
;-----------------------------------------------
		ENDR 

CursorInfo	RECORD	0			; Cursor information record
;-----------------------------------------------
location	ds	Point			; cursor's current location
height		ds.W	1			; cursor's height (in lines)
width		ds.W	1			; cursor's width (in bytes)
hotSpot		ds	Point			; cursor's hotspot
;-----------------------------------------------
		ENDR 


;--- GS/OS system equates:

neReserved	equ	$0001			; notification queue events
neGSOStoP8	equ	$0002
neP8toGSOS	equ	$0004
neDiskInsert	equ	$0008
neDiskEject	equ	$0010
neShutDown	equ	$0020
neVolChange	equ	$0040

		MACRO
&lab		_AddNotifyProc
&lab		pea	$2034
		jsl	$E100B0
		MEND


true		equ	$FFFF
false		equ	0
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CloseView/CloseView.make b/IIGS.601.SRC/A.U.G/CloseView/CloseView.make
new file mode 100644
index 0000000..ba54991
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CloseView/CloseView.make
@@ -0,0 +1 @@
+#===============================================#
#	File:		CloseView.make					#
#   Project:    CloseView GS					#
#   Author:		Don J. Brady					#
#												#
#	Copyright © Apple Computer, Inc. 1989-1991	#
#	All rights reserved.						#
#												#
#===============================================#

PROJECT		=	CloseView

INIT_CODE	= 	Core.obj		¶
				Patches.obj		¶
				Data.obj

NDA_CODE	= 	NDA.obj

AOPTIONS	=
LOPTIONS	= -t $B6


{PROJECT}	ÄÄ	{PROJECT}.make {INIT_CODE} {NDA_CODE}
			LinkIIGS {LOPTIONS}					¶
				-lseg INIT	{INIT_CODE}			¶
				-lseg NDA	{NDA_CODE}			¶
				-o {PROJECT}


#	generic rule to build object files from source files.	

.obj	Ä	.aii 
			AsmIIGS {AOPTIONS} -o {Default}.obj {Default}.aii
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CloseView/CloseViewII.equ b/IIGS.601.SRC/A.U.G/CloseView/CloseViewII.equ
new file mode 100644
index 0000000..9c089ae
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CloseView/CloseViewII.equ
@@ -0,0 +1 @@
+*===============================================*
*						*	
* File:		CloseViewII.equ			*
* Project:	Close View GS			*
* Author:	Don J. Brady			*
*						*
* Copyright © Apple Computer, Inc. 1989,1990	*
* All rights reserved.				*
*-----------------------------------------------*
*	Modification History:			*
*						*
* 12/05/89	DJB	File created today	*
*						*
*===============================================*

;--- change flag bits:

cfOnOff		equ	$80			; change on/off state
cfMagnify	equ	$40			; change magnification state
cfPowerUp	equ	$20			; change power - up
cfPowerDown	equ	$10			; change power - down
cfInvert	equ	$08			; change invert state

VirtualScreen	equ	$012000
RealScreen	equ	$E12000
SCBData		equ	$E19D00

EMXPos		equ	$E100E9			; global X position
EMYPos		equ	$E100EB			; global Y position
TickCnt		equ	$E100DC			; global tick count

SHADOW		equ	$E1C035			; hardware shadow register (byte)
NEWVIDEO	equ	$E1C029			; hardware video register (byte)
VGCINT		equ	$E1C023			; hardware VGC interrupt register (byte)

;--- Records:

Rect		RECORD	0			; QuickDrawII rectangle record
;-----------------------------------------------
top		ds.W	1
left		ds.W	1 
bottom		ds.W	1
right		ds.W	1
;-----------------------------------------------
		ENDR 

Point		RECORD	0			; QuickDrawII point record
;-----------------------------------------------
v		ds.W	1
h		ds.W	1 
;-----------------------------------------------
		ENDR 

\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CloseView/Core.aii b/IIGS.601.SRC/A.U.G/CloseView/Core.aii
new file mode 100644
index 0000000..9742eb3
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CloseView/Core.aii
@@ -0,0 +1 @@
+*===============================================*
*						*
* File:		Core.aii			*
* Project:	Close view for the IIGS		*
* Author:	Don J. Brady			*
* Build file:	CloseViewII.Make		*
*						*
* Copyright © Apple Computer, Inc. 1989-1991	*
* All rights reserved.				*
*-----------------------------------------------*
* Modification History:				*
* 11/29/89 DJB	- File created today		*
*						*
*===============================================*
* Major Routines:				*
*						*
*	StartInit				*
*	CoreStartUp				*
*	CoreShutDown				*
*	Refresh					*
*	CoreRefresh				*
*===============================================*
		
  		IF	(&TYPE('DEBUG') = 'UNDEFINED') THEN 
DEBUG 		EQU	0
  		ENDIF

		PRINT	NOPAGE
		PRINT	NOGEN
		PRINT	OFF		

		INCLUDE	'M16.Memory'		; toolbox macros
		INCLUDE	'M16.Quickdraw'
		INCLUDE	'M16.Desk'
		INCLUDE	'M16.MiscTool'
		INCLUDE	'M16.IntMath'
		
		INCLUDE	'CloseView.equ'

		PRINT	ON

		STRING	ASIS

sizeOfTable	equ	256*16
maxPower	equ	12
minPower	equ	2

maxScreenY	equ	199
maxScreenX	equ	639	
maxScreenX_320	equ	319

framePixels	equ	5

maxWidth	equ	32


*===============================================*
*						*
* Install our patches				*
*						*
*===============================================*

StartInit	PROC
		
		LONGA	ON
		LONGI	ON

		IMPORT	InstallPatches
		IMPORT	GetROMVersion
		IMPORT	AddShutdownTask
		IMPORT	MyUserID
		IMPORT	ROMVersion
		IMPORT	NDAHeader		; in NDA segment
		
		phb				; use local addressing
		phk
		plb
		
		sep	#$20			; go into 8-bit mode
		lda	>KEYMODREG
		rep	#$20			; go into 16-bit mode
		and	#$0040			; if option key down
		bne	@exit			; don't install this init	

;--- get a userID for memory allocations:

		pha				; space for userID (word)
		_MMStartUp
		pla
		sta	MyUserID		; used for memory allocations
		
;--- find out what system we're on:

		jsr	GetROMVersion
		sta	ROMVersion

;--- install permanent system patches:

		jsr	InstallPatches		

;--- install NDA header:

		pha				; space for handle
		pha
		pea	NDAHeader>>16
		pea	NDAHeader
		_FindHandle
		_InstallNDA		

;--- install a GS/OS shutdown task:

		jsr	AddShutdownTask

@exit
		plb
		rtl

		ENDP
		

*===============================================*
*	Initialize our Core data		*
* This routine is called at QD Startup time.	*
*						*
* IN:	none					*
*						*
* OUT:	none					*
*===============================================*

CoreStartUp	PROC	EXPORT

		LONGA	ON
		LONGI	ON

		IMPORT	CVStat:CVStatusRec	; global data
		IMPORT	NextMouse:Point
		IMPORT	NewCursor:CursorInfo
		IMPORT	OldCursor:CursorInfo
		
		IMPORT	NewPower		; external routines
		IMPORT	EnableCV
		IMPORT	DisableCV
		IMPORT	SetShadowing
		IMPORT	GetCVDefaults
		IMPORT	GetScreenWidth
		
		
		IMPORT	BoxVBLTask
		pea	BoxVBLTask>>16
		pea	BoxVBLTask
		_SetHeartBeat			; install our vbl task


		jsr	GetCVDefaults		; get defaults from BRAM
		
		stz	NextMouse.v		; cursor starts at 0,0
		stz	NextMouse.h
		stz	NewCursor.location.v
		stz	NewCursor.location.h
		stz	OldCursor.location.v
		stz	OldCursor.location.h
		lda	#0
		sta	>EMYPos
		sta	>EMXPos

		jsr	GetScreenWidth
		jsr	NewPower		; create default tables, etc

		lda	CVStat.wasOn		; was it on before?
		bne	turnOn			; yes, so start with it on
		lda	#1
		jsr	SetShadowing		; turn screen shadowing on
		bra	done
turnOn		
		jsl	EnableCV
done		
		rts
		
		ENDP

*===============================================*
* This routine is called at QD Shutdown time.	*
*						*
* IN:	none					*
*						*
* OUT:	none					*
*===============================================*

CoreShutDown	PROC	EXPORT

		LONGA	ON
		LONGI	ON

		IMPORT	CVStat:CVStatusRec	; global data
		
		IMPORT	RestoreSCBs		; external routines
		IMPORT	SetShadowing
		IMPORT	SetCVDefaults
		IMPORT	BoxVBLTask
		IMPORT	EraseFrameBox2
		IMPORT	UpdateScreen
		
		_HideCursor

		pea	BoxVBLTask>>16
		pea	BoxVBLTask
		_DelHeartBeat			; remove our vbl task

		lda	CVStat.enabled		; if enabled AND magnify then...
		beq	else
		lda	CVStat.magnify
		beq	eraseBox

		jsr	UpdateScreen		; redraw one last time (without cursor)

		jsr	RestoreSCBs
		bra	done
eraseBox
		jsr	EraseFrameBox2		; get rid of box
else
		lda	#0
		jsr	SetShadowing		; else turn screen shadowing off
done		
		jsr	SetCVDefaults		; save user settings to BRAM
		stz	CVStat.enabled

		rts
		
		ENDP

*===============================================*
*	Refresh CloseView (screen & data)	*
*						*
* This is the heart of CloseView.  This routine *
* is constantly called at event time (through	*
* our event manager patches).			*
*						*
* IN:	none					*
*						*
* OUT:	none					*
*						*
*===============================================*

Refresh		PROC	EXPORT

		LONGA	ON
		LONGI	ON
		
		IMPORT	CoreRefresh

		IMPORT	LastTicks
		IMPORT	DirtyMouse
		IMPORT	DirtyScreen
		IMPORT	CVStat:CVStatusRec
		IMPORT	Refreshing

		phb
		phk
		plb
		
		tsc				; check if we have enough stack space
		cmp	#$0200
		bcc	exit

		php				; check if interrupts are off
		php
		pla
		and	#%00000100
		bne	exit			; exit if interrupts are off!

		sep	#$20
		lda	>NEWVIDEO		; check video register	
		rep	#$30
		and	#$0080
		beq	exit			; exit if screen not active!
		
		lda	>CVStat.noScreen
		bne	exit			; exit if we don't have a virtual screen!

;--- Check if enough time elasped since last refresh:		

		sei
		sec
		lda	>TickCnt
		sbc	LastTicks
		tax
		lda	>TickCnt+2
		sbc	LastTicks+2
		cli
		bne	doIt
		bcc	doIt
		cpx	#2			; ³ 2 ticks since last refresh?
		bcs	doIt			; yes

; if (NOT magnify) then...

		lda	CVStat.magnify		; ignore tick count if magnification off
		beq	doIt

; if (NOT DirtyScreen) AND DirtyMouse then...
		
		lda	DirtyScreen		
		bne	exit
		lda	DirtyMouse
		beq	exit
doIt
		lda	Refreshing
		bne	exit			; sorry, we are busy!

		inc	Refreshing

		jsr	CoreRefresh

		sei
		lda	>TickCnt
		sta	LastTicks
		lda	>TickCnt+2
		sta	LastTicks+2
		cli

		stz	Refreshing
exit
		plb
		rts

		ENDP

*===============================================*
*	Refresh the Core			*
*						*
* IN:	none					*
*						*
* OUT:	none					*
*						*
*===============================================*

CoreRefresh	PROC

		LONGA	ON
		LONGI	ON
		
		IMPORT	UpdateScreen		; external routines
		IMPORT	SetFrameRect
		IMPORT	CheckForChanges
		IMPORT	CheckForSwitch
		IMPORT	CheckQD
		IMPORT	PtInBigRect
		IMPORT	UpdateCursor
		IMPORT	RememberLast
		
		IMPORT	Change			; global data
		IMPORT	DirtyMouse
		IMPORT	DirtyScreen
		IMPORT	CVStat:CVStatusRec
		IMPORT	NewCursor:CursorInfo
		IMPORT	OldCursor:CursorInfo
		
		jsr	CheckForChanges		; monitor user params

		lda	CVStat.enabled
		beq	exit

		jsr	CheckForSwitch		; monitor screen resolution
		jsr	SetFrameRect

		lda	DirtyMouse
		ora	DirtyScreen
		beq	exit			; no need to draw if clean

		jsr	CheckQD			; monitor QD changes

		lda	CVStat.magnify
		beq	exit
		
		lda	DirtyScreen
		bne	screen
		
		ldy	OldCursor.location.v
		ldx	OldCursor.location.h
		jsr	PtInBigRect
		bcc	@skip
		
		ldy	#OldCursor-NewCursor
		jsr	UpdateCursor		; "erase" old cursor
@skip
		ldy	OldCursor.location.v
		ldx	OldCursor.location.h
		jsr	PtInBigRect
		bcc	@skip2

		ldy	#0
		jsr	UpdateCursor		; "draw" new cursor
@skip2
		bra	bump
screen
		jsr	UpdateScreen		; update the real screen
		stz	DirtyScreen
bump
		stz	DirtyMouse	
		jsr	RememberLast
exit
		rts

		ENDP

*===============================================*
* Update the Real Screen using data from our	*
* Virtual Screen. Pixels are expanded a byte at *
* a time using a table.				*
* 						*
*===============================================*

UpdateScreen2x	PROC

		LONGA	ON
		LONGI	ON

		IMPORT	GetScreenOffset
		IMPORT	Table
		IMPORT	TableSwitch
		IMPORT	BigRect:Rect
		
		lda	#0
		sta	TableSwitch

		ldx	BigRect.left
		ldy	BigRect.top
		jsr	GetScreenOffset		; a = virtual screen offset
		tay

		phd				; save d & b
		phb
		pea	$E1E1			; data bank = bank of real screen
		plb
		plb
		
		tya				; a = virtual screen offset
		ldy	#0			; y = real screen offset
		ldx	#0			; x = line counter		
@loop
		jsr	UpdateLine2x		; uses a & y

		clc
		adc	#160			; a <-- a + 160

		pha
		tya
		clc
		adc	#160*2			; y <-- y + 160*2
		tay
		pla

		inx
		cpx	#100
		bcc	@loop
					
		plb				; restore d & b
		pld
		rts

;-----------------------------------------------
; Macro to give us "unwound" loops for speed
;
; It takes 32 cycles per real screen word
; which is 2560 cycles/line since there are
; 80 words in a line.
;
; In:	b set to $E1 (data Bank) 
;	a set to virtual screen offset
;	y set to real screen offset
;
; Out:	b, y, & d unchanged
;	x trashed
;
;-----------------------------------------------
		MACRO
		_UpdateLine2X

		LCLA	&counter
&counter	SETA	0
		WHILE	&counter < 80 DO

		tdc
		tax
		lda	>VirtualScreen+&counter,x
		and	#$00FF
		asl	a
		adc	>TableSwitch
		tax
		lda	>Table,x			; expand it
		sta	|RealScreen+(&counter*2),y
		sta	|RealScreen+(&counter*2)+160,y	; update 2 lines at a time

&counter	SETA	&counter+1
		ENDWHILE

		MEND
;-----------------------------------------------

;-----------------------------------------------
; Update a line by copying a byte from the
; virtual screen expanding it to a word and
; then coping it to the real screen.
; 
; In:	a = virtual screen offset
; 	y = real screen offset
;
; Out:	a, x, & y unchanged
;	(d gets trashed)
;-----------------------------------------------

UpdateLine2x

		phx				; save line counter
		tcd
		cmp	#12*160
		bcs	@ok
		lda	SCBData+100
		bpl	@ok
		lda	#sizeOfTable
		sta	>TableSwitch
@ok
		_UpdateLine2X			; macro uses d & y, trashes a & x
		lda	#0
		sta	>TableSwitch
		tdc
		plx				; restore line counter
		
		rts
		
		ENDP

*===============================================*
* Update the Real Screen using data from our	*
* Virtual Screen. Pixels are expanded a byte at *
* a time using a table.				*
* 						*
*						*
*===============================================*

UpdateScreen	PROC

		LONGA	ON
		LONGI	ON

		IMPORT	Table
		IMPORT	TableSwitch
		IMPORT	Temp
		IMPORT	CVStat:CVStatusRec
		IMPORT	GetScreenOffset
		IMPORT	UpdateScreen2x
		IMPORT	DirtyScreen
		IMPORT	BigRect:Rect
		IMPORT	ScreenWidth

power		set	1			; direct page offsets
lines		set	power+2
realBytes	set	lines+2
extra		set	realBytes+2
switch		set	extra+2
is640		set	switch+2
powerIndex	set	is640+2
edgeFlag	set	powerIndex+2
lineBuff	set	edgeFlag+2


		lda	CVStat.power		; check magnification level
		cmp	#2
		bne	cont
		brl	UpdateScreen2x		; 2x is special case
cont
		phd				; save d & b
		phb

		tsc				; allocate 1 page of direct page
		sec
		sbc	#256
		tcs		
		tcd

		lda	>SCBData+100
		and	#$8080
		sta	<is640
		
		stz	<edgeFlag
		lda	ScreenWidth
		dec	a
		cmp	BigRect.right
		bne	@ok
		inc	<edgeFlag
@ok
		lda	CVStat.power		; set magnification level
		sta	<power
		dec	a
		dec	a
		asl	a
		sta	<powerIndex
		tax
		lda	LineBytes,x
		sta	<realBytes		; realBytes = bytesPerLine * power
		lda	LineCounts,x
		sta	<lines			; lines = virtualLines / power
		lda	ExtraLines,x
		sta	<extra			; account for round-off errors
		stz	<switch
	
		ldx	BigRect.left		; use upper top left of BigRect
		ldy	BigRect.top
		jsr	GetScreenOffset		; a = virtual screen offset
		ldy	#0			; y = real screen offset
		ldx	#0			; x = line counter
@loop
		jsr	UpdateLine		; uses a, y, & x registers

		clc
		adc	#160			; a <-- a + 160

		pha
		tya
		clc
		adc	<realBytes		; y <-- y + (160 * power)
		tay
		pla

		inx
		cpx	<lines
		bcc	@loop			; loop until x ³ lines

		ldx	<extra
		beq	@done
		jsr	UpdateExtraLine
@done					
		tsc				; deallocate our direct page
		clc
		adc	#256
		tcs		

		plb				; restore d & b registers
		pld
		rts

LineBytes					; bytesPerLine * power
		dc.W	160*2
		dc.W	160*3
		dc.W	160*4
		dc.W	160*5
		dc.W	160*6
		dc.W	160*7			
		dc.W	160*8
		dc.W	160*9
		dc.W	160*10
		dc.W	160*11
		dc.W	160*12
LineCounts					; virtualLines / power
		dc.W	200/2
		dc.W	200/3
		dc.W	200/4
		dc.W	200/5
		dc.W	200/6
		dc.W	200/7
		dc.W	200/8
		dc.W	200/9
		dc.W	200/10
		dc.W	200/11
		dc.W	200/12

ExtraLines					; 200 - ((200 / power) * power)
		dc.W	200-(200/2)*2
		dc.W	200-(200/3)*3
		dc.W	200-(200/4)*4
		dc.W	200-(200/5)*5
		dc.W	200-(200/6)*6
		dc.W	200-(200/7)*7
		dc.W	200-(200/8)*8
		dc.W	200-(200/9)*9
		dc.W	200-(200/10)*10
		dc.W	200-(200/11)*11
		dc.W	200-(200/12)*12

;-----------------------------------------------
; Macros to give us "unwound" loops for speed
;
; In:	b set to $01 (data Bank) 
;	y set to virtual screen offset
;
; Out:	b & y unchanged
;	a, x trashed
;
;-----------------------------------------------

		MACRO
		_ExpandLine3x &buff

		LCLA	&cnt
&cnt		SETA	0
		WHILE	&cnt < 160/3 DO

		lda	|VirtualScreen+&cnt,y
		and	#$00FF
		asl	a
		asl	a
		asl	a
		asl	a
		adc	<switch
		tax
		lda	>Table,x
		sta	&buff+(&cnt*3)
		lda	>Table+1,x
		sta	&buff+(&cnt*3)+1

&cnt		SETA	&cnt+1
		ENDWHILE

		lda	|VirtualScreen+&cnt,y		; remainder (1 byte)
		and	#$00FF
		asl	a
		asl	a
		asl	a
		asl	a
		adc	<switch
		tax
		sep	#$20
		lda	>Table,x
		sta	&buff+(&cnt*3)
		rep	#$20

		MEND


		MACRO
		_ExpandLine4x &buff

		LCLA	&cnt
&cnt		SETA	0
		WHILE	&cnt < 160/4 DO

		lda	|VirtualScreen+&cnt,y
		and	#$00FF
		asl	a
		asl	a
		asl	a
		asl	a
		adc	<switch
		tax
		lda	>Table,x
		sta	&buff+(&cnt*4)
		lda	>Table+2,x
		sta	&buff+(&cnt*4)+2

&cnt		SETA	&cnt+1
		ENDWHILE
		MEND


		MACRO
		_ExpandLine5x &buff
		LCLA	&cnt
&cnt		SETA	0
		WHILE	&cnt < 160/5 DO

		lda	|VirtualScreen+&cnt,y
		and	#$00FF
		asl	a
		asl	a
		asl	a
		asl	a
		adc	<switch
		tax
		lda	>Table,x
		sta	&buff+(&cnt*5)
		lda	>Table+2,x
		sta	&buff+(&cnt*5)+2
		lda	>Table+3,x
		sta	&buff+(&cnt*5)+3

&cnt		SETA	&cnt+1
		ENDWHILE
		MEND


		MACRO
		_ExpandLine6x &buff
		LCLA	&cnt
&cnt		SETA	0
		WHILE	&cnt < 160/6 DO

		lda	|VirtualScreen+&cnt,y
		and	#$00FF
		asl	a
		asl	a
		asl	a
		asl	a
		adc	<switch
		tax
		lda	>Table,x
		sta	&buff+(&cnt*6)
		lda	>Table+2,x
		sta	&buff+(&cnt*6)+2
		lda	>Table+4,x
		sta	&buff+(&cnt*6)+4

&cnt		SETA	&cnt+1
		ENDWHILE

		lda	|VirtualScreen+&cnt,y		; remainder (4 bytes)
		and	#$00FF
		asl	a
		asl	a
		asl	a
		asl	a
		adc	<switch
		tax
		lda	>Table,x
		sta	&buff+(&cnt*6)
		lda	>Table+2,x
		sta	&buff+(&cnt*6)+2
		MEND


		MACRO
		_ExpandLine7x &buff
		LCLA	&cnt
&cnt		SETA	0
		WHILE	&cnt < 160/7 DO

		lda	|VirtualScreen+&cnt,y
		and	#$00FF
		asl	a
		asl	a
		asl	a
		asl	a
		adc	<switch
		tax
		lda	>Table,x
		sta	&buff+(&cnt*7)
		lda	>Table+2,x
		sta	&buff+(&cnt*7)+2
		lda	>Table+4,x
		sta	&buff+(&cnt*7)+4
		lda	>Table+5,x
		sta	&buff+(&cnt*7)+5

&cnt		SETA	&cnt+1
		ENDWHILE

		lda	|VirtualScreen+&cnt,y		; remainder (6 bytes)
		and	#$00FF
		asl	a
		asl	a
		asl	a
		asl	a
		adc	<switch
		tax
		lda	>Table,x
		sta	&buff+(&cnt*7)
		lda	>Table+2,x
		sta	&buff+(&cnt*7)+2
		lda	>Table+4,x
		sta	&buff+(&cnt*7)+4
		MEND


		MACRO
		_ExpandLine8x &buff
		LCLA	&cnt
&cnt		SETA	0
		WHILE	&cnt < 160/8 DO

		lda	|VirtualScreen+&cnt,y
		and	#$00FF
		asl	a
		asl	a
		asl	a
		asl	a
		adc	<switch
		tax
		lda	>Table,x
		sta	&buff+(&cnt*8)
		lda	>Table+2,x
		sta	&buff+(&cnt*8)+2
		lda	>Table+4,x
		sta	&buff+(&cnt*8)+4
		lda	>Table+6,x
		sta	&buff+(&cnt*8)+6

&cnt		SETA	&cnt+1
		ENDWHILE
		MEND


		MACRO
		_ExpandLine10x &buff
		LCLA	&cnt
&cnt		SETA	0
		WHILE	&cnt < 160/10 DO

		lda	|VirtualScreen+&cnt,y
		and	#$00FF
		asl	a
		asl	a
		asl	a
		asl	a
		adc	<switch
		tax
		lda	>Table,x
		sta	&buff+(&cnt*10)
		lda	>Table+2,x
		sta	&buff+(&cnt*10)+2
		lda	>Table+4,x
		sta	&buff+(&cnt*10)+4
		lda	>Table+6,x
		sta	&buff+(&cnt*10)+6
		lda	>Table+8,x
		sta	&buff+(&cnt*10)+8

&cnt		SETA	&cnt+1
		ENDWHILE
		MEND


		MACRO
		_ExpandLine12x &buff
		LCLA	&cnt
&cnt		SETA	0
		WHILE	&cnt < 160/12 DO

		lda	|VirtualScreen+&cnt,y
		and	#$00FF
		asl	a
		asl	a
		asl	a
		asl	a
		adc	<switch
		tax
		lda	>Table,x
		sta	&buff+(&cnt*12)
		lda	>Table+2,x
		sta	&buff+(&cnt*12)+2
		lda	>Table+4,x
		sta	&buff+(&cnt*12)+4
		lda	>Table+6,x
		sta	&buff+(&cnt*12)+6
		lda	>Table+8,x
		sta	&buff+(&cnt*12)+8
		lda	>Table+10,x
		sta	&buff+(&cnt*12)+10

&cnt		SETA	&cnt+1
		ENDWHILE

		lda	|VirtualScreen+&cnt,y	; remainder (4 bytes)
		and	#$00FF
		asl	a
		asl	a
		asl	a
		asl	a
		adc	<switch
		tax
		lda	>Table,x
		sta	&buff+(&cnt*12)
		lda	>Table+2,x
		sta	&buff+(&cnt*12)+2

		MEND


;-----------------------------------------------
; In:	y set to real screen offset
;	b set to $E1 (data bank)
;-----------------------------------------------
		MACRO
		_CopyLine &buff,&mag

		LCLA	&cnt
		LCLA	&byt
&cnt		SETA	0
&byt		SETA	160

		ldx	&mag

		WHILE	&cnt < &byt DO

		lda	&buff+&cnt
		sta	|RealScreen+&cnt+&byt*0,y
		sta	|RealScreen+&cnt+&byt*1,y
		cpx	#2
		beq	&CONCAT('@',&I2S(&cnt))		
		sta	|RealScreen+&cnt+&byt*2,y
		cpx	#3
		beq	&CONCAT('@',&I2S(&cnt))		
		sta	|RealScreen+&cnt+&byt*3,y
		cpx	#4
		beq	&CONCAT('@',&I2S(&cnt))		
		sta	|RealScreen+&cnt+&byt*4,y
		sta	|RealScreen+&cnt+&byt*5,y
		cpx	#6
		beq	&CONCAT('@',&I2S(&cnt))		
		sta	|RealScreen+&cnt+&byt*6,y
		sta	|RealScreen+&cnt+&byt*7,y
		cpx	#8
		beq	&CONCAT('@',&I2S(&cnt))		
		sta	|RealScreen+&cnt+&byt*8,y
		sta	|RealScreen+&cnt+&byt*9,y
		sta	|RealScreen+&cnt+&byt*10,y
		sta	|RealScreen+&cnt+&byt*11,y

&CONCAT('@',&I2S(&cnt))

&cnt		SETA	&cnt+2
		ENDWHILE

		MEND


;-----------------------------------------------
; Update a line by copying a byte from the
; virtual screen expanding it to words and
; then coping them to the real screen.
; 
; In:	a = virtual screen offset
; 	y = real screen offset
;	x = line number
;
; Out:	a, x, & y unchanged
;
;-----------------------------------------------
UpdateLine

		phx
		pha
		
		cmp	#12*160
		bcs	@ok
		lda	<is640
		beq	@no
		lda	#sizeOfTable
		sta	<switch
@no
		lda	1,s
@ok		
		phy
		tay

		pea	$0101
		plb
		plb

		ldx	<powerIndex
		jsr	(ExpandRoutines,x)
same
		pea	$E1E1
		plb
		plb

		ply
		_Copyline  <lineBuff, <power
		stz	<switch
		pla
		plx
		
		rts

UpdateExtraLine
		phx
		pha
		phy
		tay

		pea	$0101
		plb
		plb

		ldx	<powerIndex
		jsr	(ExpandRoutines,x)
		ldx	<extra
		stx	<power
		brl	same

ExpandRoutines
		dc.W	0			; 2x (special case)
		dc.W	Expand3x		; 3x
		dc.W	Expand4x		; 4x
		dc.W	0			; 5x (not used)
		dc.W	Expand6x		; 6x
		dc.W	0			; 7x (not used)
		dc.W	Expand8x		; 8x
		dc.W	0			; 9x (not used)
		dc.W	0			; 10x (not used)
		dc.W	0			; 11x (not used)
		dc.W	Expand12x		; 12x

Expand3x
		_ExpandLine3x	<lineBuff
		lda	<edgeFlag
		beq	@done
		stz	<lineBuff+159		; black out right edge (1 byte)
@done
		rts
Expand4x
		_ExpandLine4x	<lineBuff
		rts
Expand6x
		_ExpandLine6x	<lineBuff
		lda	<edgeFlag
		beq	@done
		stz	<lineBuff+156		; black out right edge (4 bytes)
		stz	<lineBuff+158
@done
		rts
Expand8x
		_ExpandLine8x	<lineBuff
		rts
Expand12x
		_ExpandLine12x	<lineBuff
		lda	<edgeFlag
		beq	@done
		stz	<lineBuff+156		; black out right edge (4 bytes)
		stz	<lineBuff+158
@done
		rts

		ENDP
		

*===============================================*
* Update the cursor on the real screen		*
*						*
* In:	y-reg = offset to cursor info		*
*						*
* Out:	none					*
*===============================================*

UpdateCursor	PROC

		LONGA	ON
		LONGI	ON

		IMPORT	Table
		IMPORT	TableSwitch
		IMPORT	Temp
		IMPORT	CVStat:CVStatusRec
		IMPORT	GetScreenOffset
		IMPORT	BigRect:Rect
		IMPORT	NewCursor:CursorInfo
		IMPORT	OldCursor:CursorInfo
		IMPORT	ScreenHeight
		
		IMPORT	FastMultiply
		IMPORT	ByteToPixel
		IMPORT	PixelToByte
		IMPORT	PixelToByte2
		IMPORT	AlignPixel

power		set	1			; direct page offsets
lines		set	power+2
realBytes	set	lines+2
extra		set	realBytes+2
switch		set	extra+2
is640		set	switch+2
vsos		set	is640+2
bytes		set	vsos+2
h		set	bytes+2
v		set	h+2
width		set	v+2
expandAddr	set	width+2
clip		set	expandAddr+4
sizeOf		set	clip+2

		phd				; save d & b
		phb

		tsc				; allocate direct page space
		sec
		sbc	#sizeOf
		tcs		
		tcd

		stz	<h
		stz	<v
		stz	<switch
		stz	<clip
		
		lda	>SCBData+100
		and	#$8080
		sta	<is640

;--- calculate location of cursor:		

		lda	NewCursor.location.v,y
		sec
		sbc	NewCursor.hotSpot.v,y
		bmi	@h
		sta	<v
@h
		lda	NewCursor.location.h,y
		sec
		sbc	NewCursor.hotSpot.h,y
		bmi	@skip
		jsr	AlignPixel		; align to nearest byte
		sta	<h
@skip

;--- calculate width of cursor (in bytes):		

		lda	NewCursor.width,y
		sta	<width
		jsr	ByteToPixel		; a <-- # of pixels
		clc
		adc	<h
		cmp	BigRect.right
		bcc	@lines
		beq	@lines
		
		lda	BigRect.right		; too many, so clip
		sec
		sbc	<h
		jsr	PixelToByte2		; a <-- # of bytes (rounded up)
		tax
		beq	@width
@width
		sta	<width			; width = (BigRect.right - h)/pixelsPerByte

@lines
		dec	<width			; make it zero relative

;--- calculate number of lines:

		lda	NewCursor.height,y
		sta	<lines			; lines = height of cursor		
		clc
		adc	<v
		cmp	BigRect.bottom
		bcc	@power
		beq	@power
		
		inc	<clip

		lda	BigRect.bottom		; too many, so clip
		sec
		sbc	<v
		bpl	@clip
		lda	#0
@clip
		ldx	CVStat.power		; if power = 3 or 6 use one less
		cpx	#3
		beq	@set
		cpx	#6
		beq	@set
		cpx	#12
		beq	@set
		inc	a
@set
		sta	<lines			; x = BigRect.bottom - v

@power
		lda	CVStat.power		; set magnification level
		sta	<power
		dec	a
		dec	a
		asl	a
		tax
		lda	LineBytes,x
		sta	<realBytes		; realBytes = bytesPerLine * power

;--- calculate expand address:		

		lda	ExpandProcs,x
		dec	a
		sta	<expandAddr

;--- calculate virtual screen offset:		

		ldx	<h			; use cursor point as start
		ldy	<v
		jsr	GetScreenOffset		; a = virtual screen offset
		sta	Temp

;--- calculate real screen offset:		

		lda	<v
		sec
		sbc	BigRect.top
		tay
		lda	#0
		clc
		bra	@next
@multiply
		adc	<realBytes
@next
		dey
		bpl	@multiply

		sta	Temp+2		

		lda	<h
		sec
		sbc	BigRect.left
		jsr	PixelToByte		; a = byte offset
		ldx	<power			; x = {2,3,4,5,6,7,8,9,10,11,12}
		jsr	FastMultiply		; a <-- a * x
		clc
		adc	Temp+2
		tay				; y = realBytes*(v - BigRect.top) + h/4
@update
		lda	Temp			; a = virtual screen offset

		pea	$E1E1			; set data bank to $E1 (real screen's bank)
		plb
		plb

		ldx	<lines			; do we have any full lines to draw?
		beq	@extra			; no
		ldx	#0			; x = line counter
@loop
		jsr	UpdateLine		; uses a, y, & x registers

		clc
		adc	#160			; a <-- a + 160

		pha
		tya
		clc
		adc	<realBytes		; y <-- y + (160 * power)
		tay
		pla

		inx
		cpx	<lines
		bcc	@loop			; loop until x ³ lines
@extra
		jsr	Extra2Lines

		tsc				; deallocate our direct page
		clc
		adc	#sizeOf
		tcs		

		plb				; restore d & b registers
		pld
		rts

		
LineBytes					; bytesPerLine * power
		dc.W	160*2
		dc.W	160*3
		dc.W	160*4
		dc.W	160*5
		dc.W	160*6
		dc.W	160*7
		dc.W	160*8
		dc.W	160*9
		dc.W	160*10
		dc.W	160*11
		dc.W	160*12

ExpandProcs
		dc.W	_expand2x
		dc.W	_expand3x
		dc.W	_expand4x
		dc.W	0			; 5x not used
		dc.W	_expand6x
		dc.W	0			; 7x not used
		dc.W	_expand8x
		dc.W	0			; 9x not used
		dc.W	0			; 10x not used
		dc.W	0			; 11x not used
		dc.W	_expand12x

;-----------------------------------------------
; Update a line by copying a byte from the
; virtual screen expanding it to words and
; then coping them to the real screen.
; 
; In:	a = virtual screen offset
; 	y = real screen offset
;	x = line
;
; Out:	a, x, & y unchanged
;
;-----------------------------------------------
UpdateLine

		phy
		phx
		pha
		sta	<vsos
		
		cmp	#12*160			; are we in the menu bar?
		bcs	@ok
		lda	<is640			; only need switch if 640 mode
		beq	@ok
		lda	#sizeOfTable		; yes, so use table with 2-bit pixel's
		sta	<switch
@ok		
		lda	<width
		sta	<bytes

; loop to expand bytes onto the real screen:

@loop		
		ldx	<vsos
		lda	>VirtualScreen,x
		and	#$00FF
		inx
		stx	<vsos

		jsr	ExpandByte

		dec	<bytes
		bpl	@loop

		stz	<switch
		pla
		plx
		ply		
		rts

LB0		set	160*0
LB1		set	160*1
LB2		set	160*2
LB3		set	160*3
LB4		set	160*4
LB5		set	160*5
LB6		set	160*6
LB7		set	160*7
LB8		set	160*8
LB9		set	160*9
LB10		set	160*10
LB11		set	160*11

;-----------------------------------------------
; In:	a has byte to expand
;	y has real screen offset
;
; Out:	y is updated
;	a,x trashed
;-----------------------------------------------

ExpandByte
		pei	<expandAddr
		rts				; jump to expand routine

_expand2x		
		asl	a			; 2x table has 2 byte entries
		adc	<switch
		tax
		lda	>Table,x
		sta	|RealScreen+LB0,y
		sta	|RealScreen+LB1,y
		iny
		iny		
		rts

_expand3x
		asl	a			; nx table has 16 byte entries
		asl	a
		asl	a
		asl	a
		adc	<switch
		tax
		lda	>Table,x
		sta	|RealScreen+LB0,y
		sta	|RealScreen+LB1,y
		sta	|RealScreen+LB2,y
		lda	>Table+1,x		; just one byte
		sta	|RealScreen+LB0+1,y
		sta	|RealScreen+LB1+1,y
		sta	|RealScreen+LB2+1,y
_common
		tya
		clc
		adc	<power
		tay
		rts

_expand4x
		asl	a			; nx table has 16 byte entries
		asl	a
		asl	a
		asl	a
		adc	<switch
		tax
		lda	>Table,x
		sta	|RealScreen+LB0,y
		sta	|RealScreen+LB1,y
		sta	|RealScreen+LB2,y
		sta	|RealScreen+LB3,y
		lda	>Table+2,x
		sta	|RealScreen+LB0+2,y
		sta	|RealScreen+LB1+2,y
		sta	|RealScreen+LB2+2,y
		sta	|RealScreen+LB3+2,y
		bra	_common

_expand6x

;--- debug code ---
		IF	DEBUG THEN

		cpy	#$79E0
		bcc	@ok
		brk	$db
		bra	_common
@ok
		ENDIF
;--- end debug ---

		asl	a			; nx table has 16 byte entries
		asl	a
		asl	a
		asl	a
		adc	<switch
		tax
		lda	>Table,x
		sta	|RealScreen+LB0,y
		sta	|RealScreen+LB1,y
		sta	|RealScreen+LB2,y
		sta	|RealScreen+LB3,y
		sta	|RealScreen+LB4,y
		sta	|RealScreen+LB5,y
		lda	>Table+2,x
		sta	|RealScreen+LB0+2,y
		sta	|RealScreen+LB1+2,y
		sta	|RealScreen+LB2+2,y
		sta	|RealScreen+LB3+2,y
		sta	|RealScreen+LB4+2,y
		sta	|RealScreen+LB5+2,y
		lda	>Table+4,x
		sta	|RealScreen+LB0+4,y
		sta	|RealScreen+LB1+4,y
		sta	|RealScreen+LB2+4,y
		sta	|RealScreen+LB3+4,y
		sta	|RealScreen+LB4+4,y
		sta	|RealScreen+LB5+4,y
		brl	_common

_expand8x
		asl	a			; nx table has 16 byte entries
		asl	a
		asl	a
		asl	a
		adc	<switch
		tax
		lda	>Table,x
		sta	|RealScreen+LB0,y
		sta	|RealScreen+LB1,y
		sta	|RealScreen+LB2,y
		sta	|RealScreen+LB3,y
		sta	|RealScreen+LB4,y
		sta	|RealScreen+LB5,y		
		sta	|RealScreen+LB6,y
		sta	|RealScreen+LB7,y		
		lda	>Table+2,x
		sta	|RealScreen+LB0+2,y
		sta	|RealScreen+LB1+2,y
		sta	|RealScreen+LB2+2,y
		sta	|RealScreen+LB3+2,y
		sta	|RealScreen+LB4+2,y
		sta	|RealScreen+LB5+2,y
		sta	|RealScreen+LB6+2,y
		sta	|RealScreen+LB7+2,y
		lda	>Table+4,x
		sta	|RealScreen+LB0+4,y
		sta	|RealScreen+LB1+4,y
		sta	|RealScreen+LB2+4,y
		sta	|RealScreen+LB3+4,y
		sta	|RealScreen+LB4+4,y
		sta	|RealScreen+LB5+4,y
		sta	|RealScreen+LB6+4,y
		sta	|RealScreen+LB7+4,y
		lda	>Table+6,x
		sta	|RealScreen+LB0+6,y
		sta	|RealScreen+LB1+6,y
		sta	|RealScreen+LB2+6,y
		sta	|RealScreen+LB3+6,y
		sta	|RealScreen+LB4+6,y
		sta	|RealScreen+LB5+6,y
		sta	|RealScreen+LB6+6,y
		sta	|RealScreen+LB7+6,y
		brl	_common


_expand12x
		asl	a			; nx table has 16 byte entries
		asl	a
		asl	a
		asl	a
		adc	<switch
		tax
		lda	>Table,x
		sta	|RealScreen+LB0,y
		sta	|RealScreen+LB1,y
		sta	|RealScreen+LB2,y
		sta	|RealScreen+LB3,y
		sta	|RealScreen+LB4,y
		sta	|RealScreen+LB5,y		
		sta	|RealScreen+LB6,y
		sta	|RealScreen+LB7,y		
		sta	|RealScreen+LB8,y
		sta	|RealScreen+LB9,y		
		sta	|RealScreen+LB10,y		
		sta	|RealScreen+LB11,y		
		lda	>Table+2,x
		sta	|RealScreen+LB0+2,y
		sta	|RealScreen+LB1+2,y
		sta	|RealScreen+LB2+2,y
		sta	|RealScreen+LB3+2,y
		sta	|RealScreen+LB4+2,y
		sta	|RealScreen+LB5+2,y
		sta	|RealScreen+LB6+2,y
		sta	|RealScreen+LB7+2,y
		sta	|RealScreen+LB8+2,y
		sta	|RealScreen+LB9+2,y
		sta	|RealScreen+LB10+2,y
		sta	|RealScreen+LB11+2,y
		lda	>Table+4,x
		sta	|RealScreen+LB0+4,y
		sta	|RealScreen+LB1+4,y
		sta	|RealScreen+LB2+4,y
		sta	|RealScreen+LB3+4,y
		sta	|RealScreen+LB4+4,y
		sta	|RealScreen+LB5+4,y
		sta	|RealScreen+LB6+4,y
		sta	|RealScreen+LB7+4,y
		sta	|RealScreen+LB8+4,y
		sta	|RealScreen+LB9+4,y
		sta	|RealScreen+LB10+4,y
		sta	|RealScreen+LB11+4,y
		lda	>Table+6,x
		sta	|RealScreen+LB0+6,y
		sta	|RealScreen+LB1+6,y
		sta	|RealScreen+LB2+6,y
		sta	|RealScreen+LB3+6,y
		sta	|RealScreen+LB4+6,y
		sta	|RealScreen+LB5+6,y
		sta	|RealScreen+LB6+6,y
		sta	|RealScreen+LB7+6,y
		sta	|RealScreen+LB8+6,y
		sta	|RealScreen+LB9+6,y
		sta	|RealScreen+LB10+6,y
		sta	|RealScreen+LB11+6,y
		lda	>Table+8,x
		sta	|RealScreen+LB0+8,y
		sta	|RealScreen+LB1+8,y
		sta	|RealScreen+LB2+8,y
		sta	|RealScreen+LB3+8,y
		sta	|RealScreen+LB4+8,y
		sta	|RealScreen+LB5+8,y
		sta	|RealScreen+LB6+8,y
		sta	|RealScreen+LB7+8,y
		sta	|RealScreen+LB8+8,y
		sta	|RealScreen+LB9+8,y
		sta	|RealScreen+LB10+8,y
		sta	|RealScreen+LB11+8,y
		lda	>Table+10,x
		sta	|RealScreen+LB0+10,y
		sta	|RealScreen+LB1+10,y
		sta	|RealScreen+LB2+10,y
		sta	|RealScreen+LB3+10,y
		sta	|RealScreen+LB4+10,y
		sta	|RealScreen+LB5+10,y
		sta	|RealScreen+LB6+10,y
		sta	|RealScreen+LB7+10,y
		sta	|RealScreen+LB8+10,y
		sta	|RealScreen+LB9+10,y
		sta	|RealScreen+LB10+10,y
		sta	|RealScreen+LB11+10,y
		brl	_common

;-----------------------------------------------
; Update extra lines for 3x and 6x since they
; don't divide the screen's 200 lines evenly.
; 
; In:	a = virtual screen offset
; 	y = real screen offset
;	x = line
;
; Out:	a, x, & y unchanged
;
;-----------------------------------------------
Extra2Lines
		ldx	<clip
		beq	@exit
		sta	<vsos

		ldx	<power
		cpx	#12
		beq	loop12x
		ldx	<power
		cpx	#6
		beq	@loop6x
		cpx	#3
		beq	@loop3x
@exit
		rts

;--- only draw 2 lines (not 3)

@loop3x		
		ldx	<vsos
		lda	>VirtualScreen,x
		and	#$00FF
		inx
		stx	<vsos

		asl	a			; nx table has 16 byte entries
		asl	a
		asl	a
		asl	a
		tax
		lda	>Table,x
		sta	|RealScreen+LB0,y
		sta	|RealScreen+LB1,y
		lda	>Table+1,x		; just one byte
		sta	|RealScreen+LB0+1,y
		sta	|RealScreen+LB1+1,y
		tya
		clc
		adc	<power
		tay
		dec	<width
		bpl	@loop3x
		bra	skip

;--- only draw 2 lines (not 6)

@loop6x	

;--- debug code ---
		IF	DEBUG THEN

		cpy	#$9D00-$20A0
		bcc	@ok

		brk	$AB			; y too big
@ok
		ENDIF
;--- end debug ---

		ldx	<vsos
		lda	>VirtualScreen,x
		and	#$00FF
		inx
		stx	<vsos

		asl	a			; nx table has 16 byte entries
		asl	a
		asl	a
		asl	a
		tax
		lda	>Table,x
		sta	|RealScreen+LB0,y
		sta	|RealScreen+LB1,y
		lda	>Table+2,x
		sta	|RealScreen+LB0+2,y
		sta	|RealScreen+LB1+2,y
		lda	>Table+4,x
		sta	|RealScreen+LB0+4,y
		sta	|RealScreen+LB1+4,y
		tya
		clc
		adc	<power
		tay
		dec	<width
		bpl	@loop6x
skip
		rts

;--- only draw 8 lines (not 12)

loop12x		
		ldx	<vsos
		lda	>VirtualScreen,x
		and	#$00FF
		inx
		stx	<vsos

		asl	a			; nx table has 16 byte entries
		asl	a
		asl	a
		asl	a
		tax
		lda	>Table,x
		sta	|RealScreen+LB0,y
		sta	|RealScreen+LB1,y
		sta	|RealScreen+LB2,y
		sta	|RealScreen+LB3,y
		sta	|RealScreen+LB4,y
		sta	|RealScreen+LB5,y		
		sta	|RealScreen+LB6,y
		sta	|RealScreen+LB7,y		
		lda	>Table+2,x
		sta	|RealScreen+LB0+2,y
		sta	|RealScreen+LB1+2,y
		sta	|RealScreen+LB2+2,y
		sta	|RealScreen+LB3+2,y
		sta	|RealScreen+LB4+2,y
		sta	|RealScreen+LB5+2,y
		sta	|RealScreen+LB6+2,y
		sta	|RealScreen+LB7+2,y
		lda	>Table+4,x
		sta	|RealScreen+LB0+4,y
		sta	|RealScreen+LB1+4,y
		sta	|RealScreen+LB2+4,y
		sta	|RealScreen+LB3+4,y
		sta	|RealScreen+LB4+4,y
		sta	|RealScreen+LB5+4,y
		sta	|RealScreen+LB6+4,y
		sta	|RealScreen+LB7+4,y
		lda	>Table+6,x
		sta	|RealScreen+LB0+6,y
		sta	|RealScreen+LB1+6,y
		sta	|RealScreen+LB2+6,y
		sta	|RealScreen+LB3+6,y
		sta	|RealScreen+LB4+6,y
		sta	|RealScreen+LB5+6,y
		sta	|RealScreen+LB6+6,y
		sta	|RealScreen+LB7+6,y
		lda	>Table+8,x
		sta	|RealScreen+LB0+8,y
		sta	|RealScreen+LB1+8,y
		sta	|RealScreen+LB2+8,y
		sta	|RealScreen+LB3+8,y
		sta	|RealScreen+LB4+8,y
		sta	|RealScreen+LB5+8,y
		sta	|RealScreen+LB6+8,y
		sta	|RealScreen+LB7+8,y
		lda	>Table+10,x
		sta	|RealScreen+LB0+10,y
		sta	|RealScreen+LB1+10,y
		sta	|RealScreen+LB2+10,y
		sta	|RealScreen+LB3+10,y
		sta	|RealScreen+LB4+10,y
		sta	|RealScreen+LB5+10,y
		sta	|RealScreen+LB6+10,y
		sta	|RealScreen+LB7+10,y
		tya
		clc
		adc	<power
		tay
		dec	<width
		bmi	@done
		brl	loop12x
@done
		rts

		ENDP

*===============================================*
* Calculate offset for virtual screen		*
*						*
* In:	x-reg set to left start			*
*	y-reg set to top start			*
*						*
* Out:	a-reg has offset to start of screen	*
*						*
*===============================================*

GetScreenOffset	PROC

		LONGA	ON
		LONGI	ON

sum		set	1			; stack offset

		IMPORT	PixelToByte

;--- debug code ---
		IF	DEBUG THEN

		IMPORT	ScreenWidth
		IMPORT	ScreenHeight

		cpx	ScreenWidth
		bcs	@bad
		cpy	ScreenHeight
		bcc	@good
@bad
		brk	$db
@good
		ENDIF
;--- end debug ---

		pha				; scratch space

		tya
		xba
		and	#$FF00
		lsr	a
		sta	sum,s			; sum <-- y * 128
		tya
		asl	a
		asl	a
		asl	a
		asl	a
		asl	a			; a <-- y * 32
		adc	sum,s
		sta	sum,s			; sum <-- 128y + 32y = 160y

		txa
		jsr	PixelToByte		; a <-- a/pixelsPerByte
		clc
		adc	sum,s			; sum <-- x/4 + y*160

		plx				; remove scratch space
		rts

		ENDP

*===============================================*
*						*
*===============================================*

Make2BitTable	PROC
		
		LONGA	ON
		LONGI	ON
		
		IMPORT	Table2b
		IMPORT	Temp
		IMPORT	CVStat:CVStatusRec

;--- first zero out the table:

		ldx	#sizeOfTable-2
		lda	#0
@zero
		sta	Table2b,x
		dex
		dex
		bpl	@zero
		

;--- now fill it with expanded pixels:

		ldx	#0			; 0 ² x < sizeOfTable
		lda	#0			; 0 ² a < 256
@loop
		stz	Temp+4			; odd/even flag

		pha
		phx
		and	#$00C0			; pixel 0
		lsr	a
		lsr	a
		lsr	a
		lsr	a
		lsr	a
		lsr	a
		jsr	Expand

		lda	3,s
		and	#$0030			; pixel 1
		lsr	a
		lsr	a
		lsr	a
		lsr	a
		jsr	Expand

		lda	3,s
		and	#$000C			; pixel 2
		lsr	a
		lsr	a
		jsr	Expand

		lda	3,s
		and	#$0003			; pixel 3
		jsr	Expand

		pla
		ldy	CVStat.power
		cpy	#2
		beq	@next			; 2x is just table of words
		clc
		adc	#16
		tax
@next
		pla
		inc	a
		cmp	#256
		bcc	@loop

		rts

;-----------------------------------------------
; Expand a 2-bit pixel into bytes
;
; In:	a has color pixel (2 bits)
;	x has current table offset
;
; Out:	x is updated
;	a & y are trashed
;-----------------------------------------------
Expand

		tay
		lda	Map,y
		sta	Temp			; temp has pixel pattern

		ldy	#0			; y is pixel counter
@loop
		phy
		ldy	Temp+4			; which pixel flag
		lda	Temp

		sep	#$20
		and	Mask,y
		ora	Table2b,x
		sta	Table2b,x
		rep	#$20

		iny
		cpy	#4			; have we filled a byte?
		bcc	@set
		ldy	#0
		inx				; move to next byte
@set
		sty	Temp+4
		ply
		iny
		cpy	CVStat.power
		bcc	@loop

		rts


Mask		dc.B	%11000000,%00110000,%00001100,%00000011

Map		dc.B	%00000000
		dc.B	%01010101
		dc.B	%10101010
		dc.B	%11111111

		ENDP

		
*===============================================*
*						*
*===============================================*

Make4BitTable	PROC
		
		LONGA	ON
		LONGI	ON
		
		IMPORT	Table
		IMPORT	Temp
		IMPORT	Counter
		IMPORT	Flag
		IMPORT	MasterSCB
		IMPORT	CVStat:CVStatusRec
		
		lda	>SCBData+100		; check SCB
		sta	MasterSCB
		bpl	@320

		ldy	#$440F			; $33 - gray is special case in 640	
		ldx	#$DDF0			; $CC - gray is special case in 640
		bra	@setMap
@320
		ldy	#$4433
		ldx	#$DDCC
		bra	@setMap
@setMap
		sty	ColorMap+3
		stx	ColorMap+12

;--- first zero out the table:

		ldx	#sizeOfTable-2
		lda	#0
@zero
		sta	Table,x
		dex
		dex
		bpl	@zero


		ldx	#0			; 0 ² x < sizeOfTable
		lda	#0			; 0 ² a < 256
@loop
		stz	Flag			; odd/even flag

		pha
		phx
		and	#$00F0			; pixels 0 & 1
		lsr	a
		lsr	a
		lsr	a
		lsr	a
		jsr	Expand
		lda	3,s
		and	#$000F			; pixels 2 & 3
		jsr	Expand
		ply
		lda	CVStat.power
		cmp	#2
		beq	@next

		tya
		clc
		adc	#16
		tax
		lda	#0			; clr hi byte
@next
		pla
		inc	a
		cmp	#256
		bcc	@loop

		rts

;-----------------------------------------------
; Expand a nibble into bytes
;
; In:	a has color nibble (4 bits)
;	x has current table offset
;
; Out:	x is updated
;	a & y are trashed
;-----------------------------------------------
Expand
		
		ldy	CVStat.power
		cpy	#2
		beq	expand2x		; treat 2x special
		dey
		sty	Counter			; nibble count

		ldy	MasterSCB		; check SCB, is it 320?
		bpl	@skip			; skip special mapping if 320 mode

		cmp	#$0003
		beq	gray3			; treat gray special
		cmp	#$000C
		beq	grayC		
@skip
		stz	Temp
		sta	Temp+1			; Temp+1 <-- odd nibble
		asl	a
		asl	a
		asl	a
		asl	a
		tsb	Temp			; Temp <-- even nibble
@loop
		ldy	Flag			; odd/even flag

		sep	#$20
		lda	Temp,y
		ora	Table,x
		sta	Table,x
		rep	#$20
		
		tya				; crossing byte boundry?
		beq	@flip			; no
		inx				; yes
@flip
		eor	#1			; flip odd/even flag
		sta	Flag
		
		dec	Counter			; check nibble counter
		bpl	@loop		
done
		rts


;--- 2x is special case:

expand2x
		tay
		lda	ColorMap,y
		sta	Table,x
		inx
		bra	done
		
;--- gray is special case:

gray3
		stz	Temp+2
		bra	grayStart
grayC
		lda	#$8000
		sta	Temp+2
grayStart
		lda	CVStat.power
		lsr	a
		sta	Temp			; first half will be $00
@loop1
		lda	#$0000
		jsr	StoreNibble
		dec	Temp			; are we half way through?
		bne	@loop1			; no
		
		lda	CVStat.power
		and	#%00000001		; odd powers must split middle nibble
		beq	@loop2
@odd
		lda	#$0033
		bra	@skip
@loop2
		lda	#$00FF
@skip
		jsr	StoreNibble
		bit	Counter
		bpl	@loop2
		bra	done

;-----------------------------------------------
StoreNibble
		bit	Temp+2
		bpl	@store
		eor	#$FFFF
@store
		ldy	Flag			; odd/even flag	

		sep	#$20
		and	Mask,y
		ora	Table,x
		sta	Table,x
		rep	#$20

		tya
		beq	@flip			
		inx				; crossing byte boundry
@flip
		eor	#1			; flip odd/even flag
		sta	Flag

		dec	Counter		
		rts

;-----------------------------------------------


Mask		dc.B	%11110000,%00001111

ColorMap
		dc.B	$00			; black
		dc.B	$11			; blue
		dc.B	$22			; gold
		dc.B	%00001111		; gray (special case)
		dc.B	$44			; red
		dc.B	$55			; purple
		dc.B	$66			; orange
		dc.B	$77			; pink
		dc.B	$88			; green
		dc.B	$99			; teal
		dc.B	$AA			; lilic green
		dc.B	$BB			; lime green
		dc.B	%11110000		; gray (special case)
		dc.B	$DD			; light blue
		dc.B	$EE			; yellow
		dc.B	$FF			; white

		ENDP
		
*===============================================*
*						*
*===============================================*

SetFrameRect	PROC

		LONGA	ON
		LONGI	ON

		IMPORT	OldCursor:CursorInfo	; global data
		IMPORT	NewCursor:CursorInfo
		IMPORT	CursorRect:Rect
		IMPORT	CenterPt:Point
		IMPORT	NextMouse:Point
		IMPORT	IBarPt:Point
		IMPORT	DirtyMouse
		IMPORT	DirtyScreen
		IMPORT	IBarOn
		IMPORT	IBarFound
		IMPORT	TrackingIBar
		IMPORT	ScreenWidth
		IMPORT	ScreenHeight
		IMPORT	ChangeSCBs
		IMPORT	MinPt:Point
		IMPORT	Temp
		IMPORT	CVStat:CVStatusRec


		
		IMPORT	InitBigRect		; global routines
		IMPORT	SetBigRect
		IMPORT	ByteToPixel


		ldx	#0			; x is dirty flag

		lda	NextMouse.v
		cmp	OldCursor.location.v	; check for movement
		beq	@getX
		sta	NewCursor.location.v
		inx
@getX
		lda	NextMouse.h
		cmp	OldCursor.location.h	; check for movement
		beq	@next
		sta	NewCursor.location.h
		inx
@next
		txa				; did cursor move?
		beq	@ibar			; no

		stz	IBarOn
;		stx	DirtyMouse
		bra	useCursor
@ibar
		lda	IBarOn			; if IBarOn then
		beq	useCursor
		lda	IBarFound		;    if IBarFound thenÉ
		bne	useIBar
		brl	exit			; else, skip

useIBar
;		lda	IBarPt.h
;		sta	CenterPt.h
;		lda	IBarPt.v
;		sta	CenterPt.v

		stz	IBarFound
		
		lda	MinPt.v			; calculate vertical slop
		lsr	a
		sta	Temp
		
		lda	IBarPt.v
		sec
		sbc	Temp
		sta	CursorRect.top
		clc
		adc	Temp
		adc	Temp
		sta	CursorRect.bottom

		lda	MinPt.h			; calculate horizontal slop
		lsr	a
		sta	Temp

		lda	IBarPt.h
		sec
		sbc	Temp
		sta	CursorRect.left
		clc
		adc	Temp
		adc	Temp
		sta	CursorRect.right

		inc	DirtyScreen
		bra	clip

useCursor
;		lda	NextMouse.v
;		sta	CenterPt.v
;		lda	NextMouse.h
;		sta	CenterPt.h
		
		lda	NewCursor.location.v
		sec
		sbc	NewCursor.hotspot.v
		sta	CursorRect.top
		clc
		adc	NewCursor.height
		sta	CursorRect.bottom

		lda	NewCursor.location.h
		sec
		sbc	NewCursor.hotspot.h
		sta	CursorRect.left
		lda	NewCursor.width		; (in bytes)
		dec	a
		dec	a
		dec	a
		jsr	ByteToPixel		; a = a/pixelsPerByte
		adc	CursorRect.left
		sta	CursorRect.right

;--- clip CursorRect to screen:

clip		
		lda	CursorRect.top
		bpl	@okTop
		stz	CursorRect.top
@okTop
		lda	CursorRect.left
		bpl	@okLeft
		stz	CursorRect.left
@okLeft
		lda	CursorRect.right
		cmp	ScreenWidth
		bcc	@okRight
		lda	ScreenWidth
		dec	a
		dec	a
		sta	CursorRect.right
@okRight
		lda	CursorRect.bottom
		cmp	ScreenHeight
		bcc	@center
		lda	ScreenHeight
		dec	a
		dec	a
		sta	CursorRect.bottom
@center		
;		lda	CursorRect.Bottom
		clc
		adc	CursorRect.Top
		lsr	a
		sta	CenterPt.v

		lda	CursorRect.right
		clc
		adc	CursorRect.left
		lsr	a
		sta	CenterPt.h

; special case 12x to fix a centering bug

		lda	CVStat.power		; are we at 12x power?
		cmp	#12
		bne	@skip

		lda	CursorRect.right	; calculate width of cursor rect
		sec
		sbc	CursorRect.left
		cmp	#maxWidth		; is it bigger than max possible?
		bcc	@skip
		
		lda	CursorRect.left		; yes, so set it to the maximum width
		clc
		adc	#maxWidth/2
		sta	CenterPt.h		; and reset the center
		adc	#maxWidth/2
		sta	CursorRect.right
@skip

;--- Check for switch in user input:

		lda	IBarOn		
		cmp	TrackingIBar
		beq	@set
		sta	TrackingIBar
		inc	DirtyScreen		; force box erase
		jsr	InitBigRect		; switching states, so re-center
		inc	ChangeSCBs		; force SCBs to update
		bra	exit
@set		
		jsr	SetBigRect

exit
		rts
		
		ENDP

*===============================================*
*	Initialize our Big Rect			*
*						*
* IN:	CenterPt, CursorRect			*
*						*
* OUT:	BigRect					*
*						*
*===============================================*

InitBigRect	PROC

		LONGA	ON
		LONGI	ON

		IMPORT	BigRect:Rect
		IMPORT	CursorRect:Rect
		IMPORT	CenterPt:Point
		IMPORT	MaxPt:Point
		IMPORT	MinPt:Point
		IMPORT	ScreenHeight
		IMPORT	ScreenWidth
		IMPORT	AlignPixel


		lda	CursorRect.bottom
		cmp	MinPt.v			; if Y < minY then clip to top
		bcc	useTop
		
		lda	ScreenHeight
		sec
		sbc	MinPt.v
		cmp	CursorRect.top
		bcc	useBottom

		lda	CenterPt.v		; else center it
		sec
		sbc	MinPt.v
		bpl	@ok
		lda	#0
@ok
		sta	BigRect.top
		clc
		adc	MaxPt.v
		dec	a
		cmp	ScreenHeight		; did it overflow?
		bcs	useBottom		; yes, so clip to bottom
		sta	BigRect.bottom
		bra	findX
useTop
		stz	BigRect.top
		lda	MaxPt.v
		dec	a
		sta	BigRect.bottom
		bra	findX
useBottom
		lda	ScreenHeight
		sec
		sbc	MaxPt.v
		sta	BigRect.top
		lda	ScreenHeight
		dec	a
		sta	BigRect.bottom

findX
		lda	CursorRect.left
		cmp	MinPt.h			; if X < minX then clip to left
		bcc	useLeft	

		lda	ScreenWidth		; if maxX < X then clip to right
		sec
		sbc	MinPt.h
		cmp	CursorRect.right
		bcc	useRight

		lda	CenterPt.h		; else center it
		sec
		sbc	MinPt.h
		jsr	AlignPixel		; align to nearest byte
		sta	BigRect.left
		clc
		adc	MaxPt.h
		dec	a
		cmp	ScreenWidth		; did it overflow ?
		bcs	useRight		; yes, so clip to right
		sta	BigRect.right
		bra	done
useLeft		stz	BigRect.left
		lda 	MaxPt.h
		dec	a
		sta	BigRect.right
		bra	done
useRight
		lda	ScreenWidth
		sec
		sbc	MaxPt.h
		jsr	AlignPixel		; align to nearest byte
		sta	BigRect.left
		lda	ScreenWidth
		dec	a
		sta	BigRect.right
	
done		rts

		ENDP

*===============================================*
*   Set our Big Rect based on current position	*
*						*
* IN:	CenterPt, CursorRect			*
*						*
* OUT:	BigRect					*
*===============================================*

SetBigRect	PROC

		LONGA	ON
		LONGI	ON

		IMPORT  BigRect:Rect
		IMPORT  CursorRect:Rect
		IMPORT	Overlap:Rect
		IMPORT	MaxPt:Point
		IMPORT	CenterPt:Point
		IMPORT	ChangeSCBs
		IMPORT	DirtyScreen
		IMPORT	ScreenHeight
		IMPORT	ScreenWidth
		IMPORT	AlignPixel

;		lda	CenterPt.v
		lda	CursorRect.top
		cmp	BigRect.top
		bcc	minusY
		
		lda	CursorRect.bottom
		cmp	BigRect.bottom
		beq	checkX
		bcs	plusY
		bra	checkX			
minusY			
		cmp	Overlap.top		; if Y < minY then clip to top
		bcc	useTop
		sec
		sbc	Overlap.top
		sta	BigRect.top
		clc
		adc	MaxPt.v
		dec	a
		sta	BigRect.bottom
		bra	checkX_Ywasdirty
useTop
		stz	BigRect.top
		lda	MaxPt.v
		dec	a
		sta	BigRect.bottom
		bra	checkX_Ywasdirty
plusY
		cmp	Overlap.bottom		; if Y > maxY then clip to bottom
		bcs	useBottom
		clc
		adc	Overlap.top
		sta	BigRect.bottom
		sec
		sbc	MaxPt.v
		sta	BigRect.top
		dec	BigRect.bottom
		bra	checkX_Ywasdirty
useBottom
		lda	ScreenHeight
		sec
		sbc	MaxPt.v
		sta	BigRect.top
		lda	ScreenHeight
		dec	a
		sta	BigRect.bottom
checkX_Ywasdirty
		inc	DirtyScreen		; force update of screen
		inc	ChangeSCBs		; top changed, so update SCBs
checkX
;		lda	CenterPt.h
		lda	CursorRect.left
		cmp	BigRect.left
		bcc	minusX
		
		lda	CursorRect.right
		cmp	BigRect.right
		beq	done
		bcs	plusX
		bra	done							
minusX
		cmp	Overlap.left		; if X < minX then clip to left
		bcc	useLeft
		sec
		sbc	Overlap.left
		jsr	AlignPixel		; align to nearest byte
		sta	BigRect.left
		clc
		adc	MaxPt.h
		dec	a
		sta	BigRect.right
		bra	done_Xwasdirty
useLeft
		stz	BigRect.left
		lda	MaxPt.h
		dec	a
		sta	BigRect.right
		bra	done_Xwasdirty
plusX
		cmp	Overlap.right		; if X > maxX then clip to right
		bcs	useRight
		clc
		adc	Overlap.left
		sta	BigRect.right
		sec
		sbc	MaxPt.h
		jsr	AlignPixel		; align to nearest byte
		sta	BigRect.left
		dec	BigRect.right
		bra	done_Xwasdirty
useRight
		lda	ScreenWidth
		sec
		sbc	MaxPt.h
		jsr	AlignPixel		; align to nearest byte
		sta	BigRect.left
		lda	ScreenWidth
		dec	a
		sta	BigRect.right
done_Xwasdirty
		inc	DirtyScreen		; force update of screen
done
		rts

		ENDP

*===============================================*
*						*
* IN:	a-reg has byte count			*
*						*
* OUT:	a-reg has number of pixels		*
*						*
*===============================================*

ByteToPixel	PROC

		LONGA	ON
		LONGI	ON

		asl	a			; *2 pixels per byte
		pha

		lda	>SCBData+100		; check SCB
		bpl	@320
		pla
		asl	a			; *4 pixels per byte
		rts
@320
		pla
		rts

		ENDP

*===============================================*
*						*
* IN:	a-reg has number of pixels		*
*						*
* OUT:	a-reg has byte count			*
*						*
*===============================================*

PixelToByte2	PROC				; round up

		LONGA	ON
		LONGI	ON

		inc	a			; +1 for 320 mode
		pha

		lda	>SCBData+100		; check SCB
		bpl	@skip
		pla
		inc	a			; + 3 for 640 mode
		inc	a
		bra	PixelToByte
@skip
		pla

		Entry	PixelToByte
PixelToByte

		lsr	a			; /2 pixels per byte
		pha

		lda	>SCBData+100		; check SCB
		bpl	@320
		pla
		lsr	a			; /4 pixels
		rts
@320
		pla
		rts

		ENDP

*===============================================*
*						*
* IN:	a-reg has pixel				*
*						*
* OUT:	a-reg has pixel aligned to nearest byte	*
*	trashes x-reg				*
*						*
*===============================================*

AlignPixel	PROC

		LONGA	ON
		LONGI	ON

		tax

		lda	>SCBData+100		; check SCB
		bmi	@640
@320
		txa
		and	#$FFFE			; 2 pixels per byte
		bra	done
@640
		txa
		and	#$FFFC			; 4 pixels per byte
done
		rts

		ENDP

*===============================================*
*						*
* IN:	x-reg = {0,1,2,3,4,5,6,7,8,9,10,11,12}	*
*	a-reg = mult				*
*						*
* OUT:	a-reg has the result			*
*						*
* This will blow up if x not valid!		*
*===============================================*

FastMultiply	PROC

		LONGA	ON
		LONGI	ON

		tay				; save a in y

		txa
		asl	a
		tax
		
		tya
		asl	a			; 2x
		jmp	(routine,x)

routine
		dc.W	_0x
		dc.W	_1x
		dc.W	_2x
		dc.W	_3x
		dc.W	_4x
		dc.W	_5x
		dc.W	_6x
		dc.W	_7x
		dc.W	_8x
		dc.W	_9x
		dc.W	_10x
		dc.W	_2x
		dc.W	_12x

_0x
		lda	#0
		rts
_1x
		tya
		rts
_16x		
		asl	a
_8x		
		asl	a
_4x
		asl	a
_2x
		rts
_3x
		pha				; 3x = 1x + 2x
		tya
		clc
		adc	1,s			
		plx
		rts
_5x
		asl	a			; 5x = 1x + 4x
		pha
		tya
		clc
		adc	1,s			
		plx
		rts
_6x
		pha				; 6x = 2x + 4x
		asl	a
		adc	1,s			
		plx
		rts
_7x
		pha				; 7x = 1x + 2x + 4x
		asl	a
		adc	1,s
		sta	1,s
		tya
		adc	1,s
		plx
		rts
_9x
		asl	a			; 9x = 1x + 8x
		asl	a
		pha
		tya
		clc
		adc	1,s			
		plx
		rts
_10x
		pha				; 10x = 2x + 8x
		asl	a
		asl	a
		adc	1,s
		plx
		rts	
_12x
		asl	a
		pha				; 12x = 4x + 8x
		asl	a
		adc	1,s
		plx
		rts

		ENDP

*===============================================*
*						*
*===============================================*

CheckQD		PROC

		IMPORT	ChangeSCBs
		IMPORT	ChangeCursor
		IMPORT	CVStat:CVStatusRec
		
		IMPORT	UpdateSCBs
		IMPORT	GetCursorData


		lda	CVStat.magnify
		beq	@cursorCheck

		lda	ChangeSCBs		; has the SCB data changed?
		beq	@cursorCheck
		jsr	UpdateSCBs		; yes, so update the real SCBs

@cursorCheck
		lda	ChangeCursor		; has the cursor data changed?
		beq	@exit
		jsr	GetCursorData		; yes, so update our data
@exit
		rts
		
		ENDP
		
*===============================================*
*						*
*===============================================*

CheckForSwitch	PROC

		IMPORT	ModeSwitch
		IMPORT	TrackingIBar
		IMPORT	OldCursor:CursorInfo
		IMPORT	NewCursor:CursorInfo
		IMPORT	NextMouse:Point
		IMPORT	CVStat:CVStatusRec

		IMPORT	GetScreenWidth
		IMPORT	NewPower
		IMPORT	SetFrameRect
		IMPORT	UpdateSCBs
		
		lda	ModeSwitch
		beq	exit
		stz	ModeSwitch		; reset flag
		
		lda	CVStat.magnify
		beq	@skip
		jsr	UpdateSCBs		; copy over new SCBs
@skip
		jsr	GetScreenWidth		; update variables
		jsr	NewPower		; update tables, etc

		stz	OldCursor.location.v
		stz	OldCursor.location.h

		lda	#1
		sta	TrackingIBar

		lda	>EMYPos
		sta	NextMouse.v
		sta	NewCursor.location.v
		lda	>EMXPos
		sta	NextMouse.h
		sta	NewCursor.location.h

		jsr	SetFrameRect
exit
		rts

		ENDP

*===============================================*
*						*
*===============================================*

CheckForChanges	PROC

		LONGA	ON
		LONGI	ON

		IMPORT	Change			; global variables
		IMPORT	CVStat:CVStatusRec
		IMPORT	DirtyScreen

		IMPORT	SetShadowing		; external routines
		IMPORT	InvertTable
		IMPORT	CopyScreen
		IMPORT	NewPower
		IMPORT	SaveSCBs
		IMPORT	RestoreSCBs
		IMPORT	ChangeSCBs
		IMPORT	EnableCV
		IMPORT	DisableCV
		IMPORT	SetBigScreen
		IMPORT	SetNormalScreen
		IMPORT	FlipColorTables

		
		lda	Change			; did anything change?
		bne	ok			; yes
		brl	exit			; no so exit
ok
		and	#cfOnOff
		beq	magnify

		lda	CVStat.enabled
		bne	turnOff		

		jsl	EnableCV		
		bra	magnify
turnOff
		jsl	DisableCV
		brl	done

magnify
		lda	Change
		and	#cfMagnify
		beq	invert
		lda	CVStat.magnify		; flip it
		eor	#1
		sta	CVStat.magnify

		lda	CVStat.enabled
		beq	invert	
		lda	CVStat.invert
		beq	@skip
		jsr	FlipColorTables
@skip
		lda	CVStat.magnify
		beq	@off
@on
		jsr	SetBigScreen
		bra	done		
@off
		_HideCursor
		jsr	SetNormalScreen
		_ShowCursor
		bra	done

invert
		lda	Change
		and	#cfInvert
		beq	up
		lda	CVStat.invert		; flip it
		eor	#1
		sta	CVStat.invert
		jsr	InvertTable

		lda	CVStat.enabled
		beq	up	
		lda	CVStat.magnify
		bne	up
		jsr	FlipColorTables
		
up
		lda	Change
		and	#cfPowerUp
		beq	down
		lda	CVStat.power
		cmp	#maxPower
		bcs	exit			; at max, so exit
		dec	a
		dec	a
		asl	a
		tax
		lda	UpMap,x			; get next power up
		sta	CVStat.power
		jsr	NewPower
down	
		lda	Change
		and	#cfPowerDown
		beq	done
		lda	CVStat.power
		cmp	#minPower
		beq	exit			; at min, so exit
		dec	a
		dec	a
		asl	a
		tax
		lda	DownMap,x		; get next power down
		sta	CVStat.power
		jsr	NewPower		
done
		inc	DirtyScreen
exit
		stz	Change
		rts

;-----------------------------------------------

UpMap
		dc.W	3			; 2x -> 3x
		dc.W	4			; 3x -> 4x
		dc.W	6			; 4x -> 6x
		dc.W	0			;  not used
		dc.W	8			; 6x -> 8x
		dc.W	0			;  not used
		dc.W	12			; 8x -> 12x
DownMap
		dc.W	2			; 2x -> 2x
		dc.W	2			; 3x -> 2x
		dc.W	3			; 4x -> 3x
		dc.W	0			;  not used
		dc.W	4			; 6x -> 4x
		dc.W	0			;  not used
		dc.W	6			; 8x -> 6x
		dc.W	0			;  not used
		dc.W	0			;  not used
		dc.W	0			;  not used
		dc.W	8			; 12x -> 8x
		
		ENDP

*===============================================*
* In:	none					*
* Out:	none					*
*===============================================*

EnableCV	PROC	EXPORT

		LONGA	ON
		LONGI	ON
		
		IMPORT	SetBigScreen
		IMPORT	SetShadowing
		IMPORT	SetFrameRect
		IMPORT	FlipColorTables
		IMPORT	GetScreenWidth
		IMPORT	NewPower
		
		IMPORT	CVStat:CVStatusRec	; global data
		IMPORT	DirtyScreen
		IMPORT	IBarOn
		IMPORT	IBarFound
		IMPORT	TrackingIBar
		IMPORT	OldCursor:CursorInfo
		IMPORT	NewCursor:CursorInfo
		IMPORT	NextMouse:Point

		phb
		phk
		plb
		
		lda	CVStat.noScreen
		bne	done			; no screen, so skip
		
		lda	CVStat.enabled
		bne	done			; already on

		lda	CVStat.magnify		; was magnification on?
		bne	magnify
		lda	#1
		jsr	SetShadowing		; turn screen shadowing on
		
		lda	CVStat.invert		; was invert on?
		beq	common			; no
		jsr	FlipColorTables		; yes, so invert colors		
		bra	common

magnify		
		jsr	SetBigScreen
common
		jsr	GetScreenWidth
		jsr	NewPower		; update tables, etc

		stz	IBarOn
		stz	IBarFound
		stz	OldCursor.location.v
		stz	OldCursor.location.h

		lda	#1
		sta	TrackingIBar

		lda	>EMYPos
		sta	NextMouse.v
		sta	NewCursor.location.v
		lda	>EMXPos
		sta	NextMouse.h
		sta	NewCursor.location.h

		jsr	SetFrameRect

		lda	#1
		sta	CVStat.enabled
		sta	DirtyScreen
done		
		plb
		rtl
		
		ENDP

*===============================================*
* In:	none					*
* Out:	none					*
*===============================================*

DisableCV	PROC	EXPORT

		LONGA	ON
		LONGI	ON
		
		IMPORT	SetNormalScreen
		IMPORT	CopyScreen
		IMPORT	FlipColorTables
		
		IMPORT	CVStat:CVSTatusRec

		phb
		phk
		plb

		lda	CVStat.noScreen
		bne	done			; no screen, so skip

		lda	CVStat.enabled
		beq	done			; already off
		stz	CVStat.enabled

		
		_HideCursor

		lda	CVStat.magnify		; was magnification on?
		bne	magnify
		jsr	CopyScreen
		
		lda	CVStat.invert		; was invert on?
		beq	common			; no
		jsr	FlipColorTables		; yes, so invert colors		
		bra	common

magnify
		jsr	SetNormalScreen		
common
		_ShowCursor

done		
		plb
		rtl
		
		ENDP
		
*===============================================*
*						*
*===============================================*

SetBigScreen	PROC

		LONGA	ON
		LONGI	ON

		IMPORT	SetShadowing
		IMPORT	SaveSCBs
		IMPORT	ChangeSCBs
	
		lda	#0
		jsr	SetShadowing		; turn screen shadowing off
		jsr	SaveSCBs
		inc	ChangeSCBs		; force update of SCBs
		
		rts
		
		ENDP

*===============================================*
*						*
*===============================================*

SetNormalScreen	PROC

		LONGA	ON
		LONGI	ON

		IMPORT	RestoreSCBs
		IMPORT	CopyScreen
		IMPORT	SetShadowing
	
		jsr	RestoreSCBs
		jsr	CopyScreen
		lda	#1
		jsr	SetShadowing		; turn screen shadowing on
		
		rts
		
		ENDP

*===============================================*
* In:	a-reg, 1 = invert, 0 = plain		*
* Out:	none					*
*===============================================*

SetInvert	PROC	EXPORT
		
		LONGA	ON
		LONGI	ON

		IMPORT	InvertTable
		IMPORT	FlipColorTables
		IMPORT	DirtyScreen
		IMPORT	CVStat:CVSTatusRec

		phb
		phk
		plb
		
		cmp	CVStat.invert		; no change
		beq	done
		sta	CVStat.invert

		inc	DirtyScreen		; force a redraw

;		lda	CVStat.enabled		; don't bother if we're off
;		beq	done	

		jsr	InvertTable		; changed, so flip table

		lda	CVStat.enabled
		beq	done
		lda	CVStat.magnify
		bne	done
		jsr	FlipColorTables
done		
		plb
		rtl
		
		ENDP

*===============================================*
* In:	a-reg, 1 = on, 0 = off			*
* Out:	none					*
*===============================================*

SetMagnify	PROC	EXPORT
		
		LONGA	ON
		LONGI	ON

		IMPORT	DirtyScreen
		IMPORT	CVStat:CVSTatusRec
		
		IMPORT	SetBigScreen
		IMPORT	SetNormalScreen
		IMPORT	FlipColorTables

		phb
		phk
		plb
		
		cmp	CVStat.magnify		; no change
		beq	skip
		sta	CVStat.magnify

		lda	CVStat.enabled		; is Close View enabled?
		beq	skip			; no, so skip

		inc	DirtyScreen		; force a redraw

		lda	CVStat.invert
		beq	@skip
		jsr	FlipColorTables

@skip
		lda	CVStat.magnify
		beq	@off
@on
		jsr	SetBigScreen
		bra	skip		
@off
		_HideCursor
		jsr	SetNormalScreen
		_ShowCursor

skip		
		plb
		rtl
		
		ENDP

*===============================================*
* In:	a-reg, 1 = on, 0 = off			*
* Out:	none					*
*===============================================*

SetKeyEquiv	PROC	EXPORT
		
		LONGA	ON
		LONGI	ON

		IMPORT	CVStat:CVSTatusRec

		sta	>CVStat.useKeys
		rtl
		
		ENDP

*===============================================*
* In:	a-reg = power				*
* Out:	none					*
*===============================================*

SetPower	PROC	EXPORT
		
		LONGA	ON
		LONGI	ON

		IMPORT	NewPower
		IMPORT	DirtyScreen
		IMPORT	CVStat:CVStatusRec

		phb
		phk
		plb
		
		cmp	CVStat.power		; did it change?
		beq	done			; no
		sta	CVStat.power

		inc	DirtyScreen		; force a redraw

;		lda	CVStat.enabled		; don't bother if we're off
;		beq	done	

		jsr	NewPower
done		
		plb
		rtl
		
		ENDP

*===============================================*
* In:	x,y have point				*
*						*
* Out:	carry set if point is inside BigRect	*
*						*
*===============================================*

PtInBigRect	PROC

		LONGA	ON
		LONGI	ON
		
		IMPORT	BigRect:Rect

		
		cpy	BigRect.top
		bcc	out
		cpy	BigRect.bottom
		beq	next
		bcs	out
next
		cpx	BigRect.left
		bcc	out
		cpx	BigRect.right
		beq	in
		bcs	out
in
		sec
		rts
out
		clc
		rts

		ENDP

*===============================================*
*	Turn screen shadowing on/off		*
*						*
* In:	a-reg (0 = off, 1 = on)			*
* Out:	none					*
*===============================================*

SetShadowing	PROC

		LONGA	ON
		LONGI	ON

		sep	#$20			; use 8-bit register when accesing I/O
		LONGA	OFF

		tax
		beq	turnOff

		lda	>SHADOW			; load the shadow register
		and	#$F7			; clr bit 3 (turn screen shadow on)
		sta	>SHADOW
		bra	ssExit
turnOff
		lda	>SHADOW			; load the shadow register
		ora	#$08			; set bit 3 (turn screen shadow off)
		sta	>SHADOW
ssExit
		rep	#$20
		LONGA	On

		rts
		
		ENDP

*===============================================*
*						*
*===============================================*

InvertTable	PROC

		LONGA	ON
		LONGI	ON
		
		IMPORT	Table
		IMPORT	MasterSCB
		
		lda	>SCBData
		sta	MasterSCB

		sep	#$20
		LONGA	OFF
		
		ldy	#0
@loop
		ldx	MasterSCB
		bpl	@320
		jsr	Invert640
		bra	@next
@320		
		jsr	Invert320
@next
		iny
		cpy	#256*16*2
		bcc	@loop
		
		rep	#$20
		LONGA	ON
		
		rts

;-----------------------------------------------
		LONGA	OFF
		LONGI	ON

Invert640
		lda	Table,y
		and	#$03
		beq	@flip1
		cmp	#$03
		bne	@next1
@flip1						; if pixel is %00 or %11 flip it
		eor	#$03
		pha
		lda	Table,y
		and	#$FC
		ora	1,s
		sta	Table,y
		pla
@next1
		lda	Table,y
		and	#$0C
		beq	@flip2
		cmp	#$0C
		bne	@next2
@flip2						; if pixel is %00 or %11 flip it
		eor	#$0C
		pha
		lda	Table,y
		and	#$F3
		ora	1,s
		sta	Table,y
		pla
@next2
		lda	Table,y
		and	#$30
		beq	@flip3
		cmp	#$30
		bne	@next3
@flip3						; if pixel is %00 or %11 flip it
		eor	#$30
		pha
		lda	Table,y
		and	#$CF
		ora	1,s
		sta	Table,y
		pla
@next3
		lda	Table,y
		and	#$C0
		beq	@flip4
		cmp	#$C0
		bne	@next4
@flip4						; if pixel is %00 or %11 flip it
		eor	#$C0
		pha
		lda	Table,y
		and	#$3F
		ora	1,s
		sta	Table,y
		pla
@next4
		rts

;-----------------------------------------------
Invert320
		lda	Table,y
		and	#$0F
		beq	@flip1
		cmp	#$0F
		bne	@next1
@flip1						; if nibble is 0 or F flip it
		eor	#$0F
		pha
		lda	Table,y
		and	#$F0
		ora	1,s
		sta	Table,y
		pla
@next1
		lda	Table,y
		and	#$F0
		beq	@flip2
		cmp	#$F0
		bne	@next2
@flip2
		eor	#$F0
		pha
		lda	Table,y
		and	#$0F
		ora	1,s
		sta	Table,y
		pla
@next2
		rts


		ENDP

*===============================================*
* Copy data from virtual screen to real screen	*
* without magnification. 			*
*						*
*===============================================*

CopyScreen	PROC

		LONGA	ON
		LONGI	ON

line		set	160

		ldx	#0
@loop		
		jsr	CopySlice		; copy from right edge
		phx
		lda	#line-2
		sec
		sbc	1,s
		tax
		jsr	CopySlice		; copy from left edge
		plx
		inx
		inx
		cpx	#line/2
		bcc	@loop
		rts

;-----------------------------------------------
; Copy a vertical slice at a time
;
; In:	x has starting offset of slice
;
; Out:	x is preserved
;
;-----------------------------------------------
CopySlice
		phx

		ldy	#0
@loop
		lda	>VirtualScreen,x
		sta	>RealScreen,x
		lda	>VirtualScreen+line*1,x
		sta	>RealScreen+line*1,x
		lda	>VirtualScreen+line*2,x
		sta	>RealScreen+line*2,x
		lda	>VirtualScreen+line*3,x
		sta	>RealScreen+line*3,x
		lda	>VirtualScreen+line*4,x
		sta	>RealScreen+line*4,x
		lda	>VirtualScreen+line*5,x
		sta	>RealScreen+line*5,x
		lda	>VirtualScreen+line*6,x
		sta	>RealScreen+line*6,x
		lda	>VirtualScreen+line*7,x
		sta	>RealScreen+line*7,x
		lda	>VirtualScreen+line*8,x
		sta	>RealScreen+line*8,x
		lda	>VirtualScreen+line*9,x
		sta	>RealScreen+line*9,x
		txa
		clc
		adc	#line*10
		tax
		iny
		cpy	#20
		bcc	@loop

		plx
		rts

		ENDP

*===============================================*
*						*
*===============================================*

NewPower	PROC

		LONGA	ON
		LONGI	ON

		IMPORT	Make2BitTable		; external routines
		IMPORT	Make4BitTable
		IMPORT	InvertTable
		IMPORT	InitBigRect
		IMPORT	ChangeSCBs
		
		IMPORT	CVStat:CVStatusRec	; global data
		IMPORT	ScreenHeight
		IMPORT	ScreenWidth
		IMPORT	MaxPt:Point
		IMPORT	MinPt:Point
		IMPORT	Overlap:Rect
		
		lda	CVStat.power
		dec	a
		dec	a
		asl	a
		tax				; x <-- index into tables
		
		lda	YDeltas,x
		sta	MaxPt.v
		lsr	a
		sta	MinPt.v
		
		lda	YOverlaps,x
		sta	Overlap.top
		lda	ScreenHeight
		sec
		sbc	Overlap.top
		sta	Overlap.bottom

		lda	ScreenWidth
		cmp	#320
		beq	@320
		lda	XDeltas,x
		bra	@set
@320
		lda	XDeltas_320,x
@set
		sta	MaxPt.h
		lsr	a
		sta	MinPt.h
		
		pha				; space for remainder
		pha				; space for quotient
		lda	MaxPt.h
		pha
		pea	5
		_UDivide			; MaxPt.h / 5
		pla
		plx				; discard remainder
		sta	Overlap.left
		lda	ScreenWidth
		sec
		sbc	Overlap.left
		sta	Overlap.right

		inc	ChangeSCBs

		jsr	InitBigRect
		jsr	Make2BitTable
		jsr	Make4BitTable
		lda	CVStat.invert
		beq	done
		jsr	InvertTable		
done
		rts

YDeltas
		dc.W	200/2			; 2x
		dc.W	200/3+1			; 3x
		dc.W	200/4			; 4x
		dc.W	200/5			; 5x
		dc.W	200/6+1			; 6x
		dc.W	200/7			; 7x
		dc.W	200/8			; 8x
		dc.W	200/9			; 9x
		dc.W	200/10			; 10x
		dc.W	200/11			; 11x
		dc.W	200/12+1		; 12x
XDeltas
		dc.W	640/2			; 2x
		dc.W	640/3-1			; 3x
		dc.W	640/4			; 4x
		dc.W	640/5			; 5x
		dc.W	640/6-2			; 6x
		dc.W	640/7			; 7x
		dc.W	640/8			; 8x
		dc.W	640/9			; 9x
		dc.W	640/10			; 10x
		dc.W	640/11			; 11x
		dc.W	640/12-2		; 12x
XDeltas_320
		dc.W	320/2			; 2x
		dc.W	320/3-1			; 3x
		dc.W	320/4			; 4x
		dc.W	320/5			; 5x
		dc.W	320/6-1			; 6x
		dc.W	320/7			; 7x
		dc.W	320/8			; 8x
		dc.W	320/9			; 9x
		dc.W	320/10			; 10x
		dc.W	320/11			; 11x
		dc.W	320/12			; 12x
YOverlaps
		dc.W	200/2/5			; 2x
		dc.W	200/3/5			; 3x
		dc.W	200/4/5			; 4x
		dc.W	200/4/5			; 5x
		dc.W	200/6/5			; 6x
		dc.W	200/7/5			; 7x
		dc.W	200/8/5			; 8x
		dc.W	200/9/5			; 9x
		dc.W	200/10/5		; 10x
		dc.W	200/11/5		; 11x
		dc.W	200/12/5		; 12x

		ENDP

*===============================================*
*						*
*===============================================*

DrawFrameBox	PROC

		LONGA	ON
		LONGI	ON

		IMPORT	BigRect:Rect
		IMPORT	LastBigRect:Rect
		IMPORT	Temp:Rect
		IMPORT	DirtyScreen
		IMPORT	DirtyMouse
		IMPORT	GetScreenOffset
		IMPORT	HClip
		IMPORT	BoxLineWidth
		IMPORT	ScreenWidth
		

		lda	BigRect.top
		sta	LastBigRect.top
		sec
		sbc	#5
		bpl	@set1
		lda	#0
@set1		sta	Temp.top

		lda	BigRect.bottom
		sta	LastBigRect.bottom
		clc
		adc	#5
		cmp	#maxScreenY
		bcc	@set2
		lda	#maxScreenY
@set2		inc	a
		sta	Temp.bottom
		
		lda	BigRect.left
		sta	LastBigRect.left
		sec
		sbc	BoxLineWidth
		bpl	@set3
		lda	#0		
@set3		sta	Temp.left

		lda	BigRect.right
		sta	LastBigRect.right
		clc
		adc	BoxLineWidth
		cmp	ScreenWidth
		bcc	@set4
		lda	ScreenWidth
@set4		inc	a
		sta	Temp.right


topLine
		ldy	Temp.top
		ldx	Temp.left
		jsr	GetScreenOffset
		pha				; save it

		lda	BigRect.top
		sec
		sbc	Temp.top
		tay				; y = height

		lda	Temp.right
		clc				; -1
		sbc	Temp.left		; a = width
		
		ldx	BigRect.right		; is right line visible?
		cpx	HClip
		bcc	@ok			; yes
		inc	a
@ok		plx				; x = virtual screen offset
		jsr	BlackOutLineH

bottomLine
		ldy	BigRect.bottom
		iny
		ldx	Temp.left
		jsr	GetScreenOffset
		pha				; save it

		lda	Temp.bottom
		clc				; -1
		sbc	BigRect.bottom
		tay				; y = height

		lda	Temp.right
		clc				; -1
		sbc	Temp.left		; a = width
		
		ldx	BigRect.right		; is right line visible?
		cpx	HClip
		bcc	@ok			; yes
		inc	a
@ok		plx				; x = virtual screen offset
		jsr	BlackOutLineH

leftLine
		ldx	Temp.left
		ldy	Temp.top
		jsr	GetScreenOffset
		tax				; x = screen offset

		lda	Temp.bottom
		clc				; -1
		sbc	Temp.top
		tay				; y = height

		lda	BigRect.left
		sec
		sbc	Temp.left		; a = width

		jsr	BlackOutLineV

rightLine
		ldx	BigRect.right
		inx
		ldy	Temp.top
		jsr	GetScreenOffset
		tax				; x = screen offset

		lda	Temp.bottom
		clc				; -1
		sbc	Temp.top
		tay				; y = height
		
		lda	Temp.right
		clc				; -1
		sbc	BigRect.right		; a = width

		jsr	BlackOutLineV

done
		rts


;----------------------------------------------
; Black out horizontal slice
;
; In:	a-reg = number of horizontal pixels
;	y-reg = number of vertical pixels (0-5)
;	x-reg = real screen offset
;
;----------------------------------------------
BlackOutLineH
		IMPORT	PixelToByte
		IMPORT	Flag
		IMPORT	Counter
		
		cpy	#0
		beq	@exit
		sty	Temp+8			; save line count

		stz	Flag			; odd byte flag
		jsr	PixelToByte
		lsr	a			; a/2
		sta	Counter			; horizontal words
		lda	#$0000
		bcc	@loop
		inc	Flag			; remember odd byte
@loop
		ldy	Temp+8			; get line count
		
		sta	>RealScreen+160*0,x
		dey
		beq	@next
		sta	>RealScreen+160*1,x
		dey
		beq	@next
		sta	>RealScreen+160*2,x
		dey
		beq	@next
		sta	>RealScreen+160*3,x
		dey
		beq	@next
		sta	>RealScreen+160*4,x
@next
		inx
		inx
		dec	Counter
		bne	@loop
		
		lda	Flag
		beq	@exit
		
		ldy	Temp+8			; get line count
		dex				; back up one byte

		sta	>RealScreen+160*0,x
		dey
		beq	@exit
		sta	>RealScreen+160*1,x
		dey
		beq	@exit
		sta	>RealScreen+160*2,x
		dey
		beq	@exit
		sta	>RealScreen+160*3,x
		dey
		beq	@exit
		sta	>RealScreen+160*4,x
@exit
		rts


;----------------------------------------------
; Black out vertical slice
;
; In:	y = height of line
;	a = width of line (0-12)
;	x = real screen offset
;
;----------------------------------------------
BlackOutLineV

		jsr	PixelToByte
		cmp	#3
		beq	@loop3
		cmp	#2
		beq	@loop2
		cmp	#1
		beq	@loop1
		bra	@exit

@loop3
		lda	#0
		sta	>RealScreen,x		; 3 bytes (6 nibbles)
		sta	>RealScreen+1,x
		txa
		clc
		adc	#160
		tax
		dey
		bpl	@loop3
		bra	@exit

@loop2
		lda	#0
		sta	>RealScreen,x		; 2 bytes (4 nibbles)
		txa
		clc
		adc	#160
		tax
		dey
		bpl	@loop2
		bra	@exit

@loop1
		lda	#0
		sep	#$20
		sta	>RealScreen,x		; 1 byte (2 nibbles)
		rep	#$20
		txa
		clc
		adc	#160
		tax
		dey
		bpl	@loop1
		
@exit
		rts

		ENDP

*===============================================*
*						*
*===============================================*

EraseFrameBox	PROC

		LONGA	ON
		LONGI	ON

		IMPORT	LastBigRect:Rect
		IMPORT	BigRect:Rect
		IMPORT	Temp:Rect
		IMPORT	GetScreenOffset
		IMPORT	DirtyScreen
		IMPORT	HClip
		IMPORT	BoxLineWidth
		IMPORT	ScreenWidth
		

		lda	LastBigRect.bottom	; has BigRect moved?
		beq	@skip			; not initialized, so skip
		cmp	BigRect.bottom
		bne	EraseFrameBox2
		lda	LastBigRect.top
		cmp	BigRect.top
		bne	EraseFrameBox2
		lda	LastBigRect.left
		cmp	BigRect.left
		bne	EraseFrameBox2
		lda	LastBigRect.right
		cmp	BigRect.right
		bne	EraseFrameBox2
@skip
		brl	done			; same, so skip erase
		
		ENTRY	EraseFrameBox2
EraseFrameBox2
		lda	LastBigRect.top
		sec
		sbc	#framePixels
		bpl	@set1
		lda	#0
@set1		sta	Temp.top

		lda	LastBigRect.bottom
		clc
		adc	#framePixels
		cmp	#maxScreenY
		bcc	@set2
		lda	#maxScreenY
@set2		inc	a
		sta	Temp.bottom
		
		lda	LastBigRect.left
		sec
		sbc	BoxLineWidth
		bpl	@set3
		lda	#0
@set3		sta	Temp.left

		lda	LastBigRect.right
		clc
		adc	BoxLineWidth
		cmp	ScreenWidth
		bcc	@set4
		lda	ScreenWidth
@set4		inc	a
		sta	Temp.right

topLine
		ldy	Temp.top
		ldx	Temp.left
		jsr	GetScreenOffset
		pha				; save it

		lda	LastBigRect.top
		sec
		sbc	Temp.top
		tay				; y = height

		lda	Temp.right
		clc				; -1
		sbc	Temp.left		; a = width

		ldx	LastBigRect.right	; is right line visible?
		cpx	HClip
		bcc	@ok			; yes
		inc	a
@ok		plx				; x = virtual screen offset	
		jsr	RestoreLineH

bottomLine	
		ldy	LastBigRect.Bottom
		iny
		ldx	Temp.left
		jsr	GetScreenOffset
		pha				; save it

		lda	Temp.bottom
		clc				; -1
		sbc	LastBigRect.Bottom
		tay				; y = height

		lda	Temp.right
		clc				; -1
		sbc	Temp.left		; a = width
		
		ldx	LastBigRect.right	; is right line visible?
		cpx	HClip
		bcc	@ok			; yes
		inc	a
@ok		plx				; x = virtual screen offset
		jsr	RestoreLineH

leftLine
		ldx	Temp.left
		ldy	Temp.top
		jsr	GetScreenOffset
		tax				; x = screen offset

		lda	Temp.bottom
		clc				; -1
		sbc	Temp.top
		tay				; y = height

		lda	LastBigRect.left
		sec
		sbc	Temp.left		; a = width

		jsr	RestoreLineV

rightLine
		ldx	LastBigRect.right
		inx
		ldy	Temp.top
		jsr	GetScreenOffset
		tax				; x = screen offset

		lda	Temp.bottom
		clc				; -1
		sbc	Temp.top
		tay				; y = height

		lda	Temp.right
		clc				; -1
		sbc	LastBigRect.right	; a = width

		jsr	RestoreLineV

done
		rts


;----------------------------------------------
; Restore horizontal slice
;
; In:	a-reg = number of horizontal pixels
;	y-reg = number of vertical pixels (0-5)
;	x-reg = real screen offset
;
;----------------------------------------------
RestoreLineH

		IMPORT	PixelToByte
		IMPORT	Counter
		IMPORT	Flag
		
		cpy	#0
		beq	@exitA
		sty	Temp+8

		stz	Flag			; odd byte flag
		jsr	PixelToByte
		lsr	a
		sta	Counter			; horizontal words
		bcc	@loop
		inc	Flag			; remember odd byte

@loop
		ldy	Temp+8			; get line count

		lda	>VirtualScreen+160*0,x		; 1st line
		sta	>RealScreen+160*0,x
		dey
		beq	@next
		lda	>VirtualScreen+160*1,x		; 2nd line
		sta	>RealScreen+160*1,x
		dey
		beq	@next
		lda	>VirtualScreen+160*2,x		; 3rd line
		sta	>RealScreen+160*2,x
		dey
		beq	@next
		lda	>VirtualScreen+160*3,x		; 4th line
		sta	>RealScreen+160*3,x
		dey
		beq	@next
		lda	>VirtualScreen+160*4,x		; 5th line
		sta	>RealScreen+160*4,x
@next
		inx
		inx
		dec	Counter			; any more words?
		bne	@loop			; yes
		
		lda	Flag			; is there an odd byte?
@exitA		beq	@exit			; nope, all done

		ldy	Temp+8			; get line count
		dex				; back up one byte

		lda	>VirtualScreen+160*0,x
		sta	>RealScreen+160*0,x
		dey
		beq	@exit
		lda	>VirtualScreen+160*1,x
		sta	>RealScreen+160*1,x
		dey
		beq	@exit
		lda	>VirtualScreen+160*2,x
		sta	>RealScreen+160*2,x
		dey
		beq	@exit
		lda	>VirtualScreen+160*3,x
		sta	>RealScreen+160*3,x
		dey
		beq	@exit
		lda	>VirtualScreen+160*4,x
		sta	>RealScreen+160*4,x
@exit
		rts

;----------------------------------------------
; Restore vertical slice
;
; In:	y-reg = height of line
;	a-reg = width of line (0-12)
;	x-reg = real screen offset
;
;----------------------------------------------
RestoreLineV

		jsr	PixelToByte
		cmp	#3
		beq	@loop3
		cmp	#2
		beq	@loop2
		cmp	#1
		beq	@loop1
		bra	@exit

@loop3
		lda	>VirtualScreen,x	; 3 bytes (6 nibbles)
		sta	>RealScreen,x
		lda	>VirtualScreen+1,x
		sta	>RealScreen+1,x
		txa
		clc
		adc	#160
		tax
		dey
		bpl	@loop3
		bra	@exit

@loop2
		lda	>VirtualScreen,x	; 2 bytes (4 nibbles)
		sta	>RealScreen,x
		txa
		clc
		adc	#160
		tax
		dey
		bpl	@loop2
		bra	@exit

@loop1
		sep	#$20
		lda	>VirtualScreen,x	; 1 byte (2 nibbles)
		sta	>RealScreen,x
		rep	#$20
		txa
		clc
		adc	#160
		tax
		dey
		bpl	@loop1

@exit
		rts

		ENDP

*===============================================*
*						*
*===============================================*

GetCursorData	PROC

MouseY		equ	$56
MouseX		equ	$58
CurHeight	equ	$5E
CurWidth	equ	$60
HotSpot		equ	$C2

		LONGA	ON
		LONGI	ON

		IMPORT	NewCursor:CursorInfo
		IMPORT	ChangeCursor
		IMPORT	QDGlobals
		
		phd

		lda	QDGlobals
		clc
		adc	#$0100			; use 2nd page
		tcd
		
		lda	<MouseX
		sta	NewCursor.location.h
		lda	<MouseY
		sta	NewCursor.location.v

		lda	<CurHeight
		sta	NewCursor.height
		lda	<CurWidth
		asl	a
		sta	NewCursor.width
		lda	<HotSpot
		sta	NewCursor.hotSpot.v
		lda	<HotSpot+2
		sta	NewCursor.hotSpot.h

		stz	ChangeCursor
		pld
		rts
		
		ENDP

		
*===============================================*
*	OldCursor <-- NewCursor			*
*===============================================*

RememberLast	PROC

		IMPORT	NewCursor:CursorInfo
		IMPORT	OldCursor:CursorInfo


		lda	NewCursor.location.v	; remember last cursor drawn
		sta	OldCursor.location.v
		lda	NewCursor.location.h
		sta	OldCursor.location.h
		lda	NewCursor.height
		sta	OldCursor.height
		lda	NewCursor.width
		sta	OldCursor.width
		lda	NewCursor.hotspot.v
		sta	OldCursor.hotspot.v
		lda	NewCursor.hotspot.h
		sta	OldCursor.hotspot.h
		rts

		ENDP

*===============================================*
* Clear the Real Screen (hardware) by filling	*
* it with zeros (black).			*
*						*
*===============================================*

ClearRealScreen	PROC	EXPORT
		
		LONGA	ON
		LONGI	ON

		phb
		pea	$E1E1			; push on the bank of real screen
		plb				; set bank twice to
		plb				; clear stack

		lda	#0
		ldx	#160*200-2
@loop
		sta	|RealScreen,x
		dex
		dex
		bpl	@loop
		
		plb
		rts

*===============================================*
* Save Real SCB data as virtual SCBs so we can	*
* "magnify" the real SCBs along with the pixel	*
* data (screen).				*
*						*
*===============================================*

SaveSCBs	PROC	EXPORT

		LONGA	ON
		LONGI	ON

		IMPORT	VirtualSCBs

		ldx	#200-2
@loop
		lda	>SCBData,x
		sta	VirtualSCBs,x
		dex
		dex
		bpl	@loop

		rts

		ENDP

*===============================================*
* Restore the Real SCB data to its default.	*
*						*
*===============================================*

RestoreSCBs	PROC	EXPORT

		LONGA	ON
		LONGI	ON

		IMPORT	VirtualSCBs

		ldx	#200-2
@loop
		lda	VirtualSCBs,x
		sta	>SCBData,x
		dex
		dex
		bpl	@loop

		rts

		ENDP
		
*===============================================*
* Update SCB data for Real Screen based on the	*
* the current power and the Virtual SCB data.	*
*						*
*===============================================*

UpdateSCBs	PROC

		LONGA	ON
		LONGI	ON

		IMPORT	CVStat:CVStatusRec
		IMPORT	BigRect:Rect
		IMPORT	VirtualSCBs
		IMPORT	ChangeSCBs

		sep	#$20
		LONGA	OFF

		ldy	BigRect.top		; offset of virtual SCBs
		ldx	#0			; offset of real SCBs
@mainLoop
		phy
		lda	VirtualSCBs,y		; get a virtual SCB
		
		ldy	CVStat.power
		dey
@expandLoop
		sta	>SCBData,x		; expand as real SCBs
		inx
		cpx	#200
		bcs	@done
		dey
		bpl	@expandLoop
		
		ply
		iny
		bra	@mainLoop
@done
		ply
		rep	#$20
		LONGA	ON
		
		stz	ChangeSCBs
		rts

		ENDP
		
*===============================================*
* Flip QD Color tables for 1x invert		*
*						*
*===============================================*

FlipColorTables	PROC

		LONGA	ON
		LONGI	ON

		ldx	#(16*32)-2
@loop
		lda	>ColorTableData,x	; if color is black or white then flip it
		and	#$0FFF
		beq	@flip			; $000 is black
		cmp	#$0FFF			; $FFF is white
		bne	@ok			; ignore everything else
@flip		eor	#$0FFF
@ok		sta	>ColorTableData,x
		dex
		dex
		bpl	@loop

		rts

		ENDP
		
*===============================================*
*	Get screen width, etc			*
*===============================================*

GetScreenWidth	PROC

		LONGA	ON
		LONGI	ON

lineBytes	set	3
		
		IMPORT	ScreenWidth
		IMPORT	HClip
		IMPORT	BoxLineWidth
		IMPORT	LastBigRect:Rect
		
		lda	>SCBData+100
		and	#$8080
		beq	@320
@640
		lda	#640
		ldx	#lineBytes*4
		bra	set
@320
		lda	#320
		ldx	#lineBytes*2
set
		stx	BoxLineWidth
		sta	ScreenWidth
		clc
		sbc	BoxLineWidth
		sta	HClip
		
		stz	LastBigRect.top
		stz	LastBigRect.bottom
		stz	LastBigRect.left
		stz	LastBigRect.right

		rts
		
		ENDP

*===============================================*
*	Get default settings from BRAM		*
*===============================================*

GetCVDefaults	PROC	EXPORT

		LONGA	ON
		LONGI	ON
		
		IMPORT	CVStat:CVStatusRec	; global data
		
		stz	CVStat.enabled		; start with boolean flags off
		stz	CVStat.wasOn
		stz	CVStat.magnify
		stz	CVStat.invert
		stz	CVStat.usekeys

		pha				; get cv parameters from BRAM
		pea	cvBRAM
		_ReadBParam
		pla
		bcs	default
		and	#$00FF
		cmp	#$00FF			; BRAM is initialized to $FF
		bne	ok
default
		lda	#cvBRAMDefaults
ok
		tax
		and	#cvPowerMask		; get Power setting
		cmp	#minPower
		bcc	default
		cmp	#maxPower+1		; is 2 ² power ² 12 ?
		bcs	default
		cmp	#3
		beq	@set
		cmp	#10
		beq	default
		tay
		and	#%00000001
		bne	default			; must be even (except 3x)
		tya
@set
		sta	CVStat.power
		txa
		and	#cvEnabled		; get On/Off setting
		beq	@magnify
		lda	#1
		sta	CVStat.wasOn
@magnify
		txa
		and	#cvMagnify		; get magnification On/Off setting
		beq	@useKeys
		lda	#1
		sta	CVStat.magnify
@useKeys
		txa
		and	#cvUseKeys		; get "Key Equivalents" setting
		beq	@invert
		lda	#1
		sta	CVStat.usekeys
@invert
		txa
		and	#cvInvert		; get Invert setting
		beq	done
		lda	#1
		sta	CVStat.invert
done		
		rts
		
		ENDP

*===============================================*
*	Set default settings into BRAM		*
*===============================================*

SetCVDefaults	PROC	EXPORT

		LONGA	ON
		LONGI	ON
		
		IMPORT	CVStat:CVStatusRec	; global data
		IMPORT	Temp
		
		lda	CVStat.power
		and	#$000F
		sta	Temp
@enabled
		lda	CVStat.enabled
		beq	@magnify
		lda	#cvEnabled
		tsb	Temp
@magnify
		lda	CVStat.magnify
		beq	@useKeys
		lda	#cvMagnify
		tsb	Temp
@useKeys
		lda	CVStat.usekeys
		beq	@invert
		lda	#cvUseKeys
		tsb	Temp
@invert
		lda	CVStat.invert
		beq	@send
		lda	#cvInvert
		tsb	Temp
@send		
		lda	Temp
		pha
		pea	cvBRAM
		_WriteBParam
		rts
		
		ENDP

*===============================================*
*						*
*===============================================*

BoxVBLTask	PROC

		LONGA	OFF
		LONGI	OFF
		
		IMPORT	CheckMouse

taskTicks	set	1			; 60 ticks = 1 second

*-----------------------------------------------
TaskHeader
		dc.L	0			; task pointer
TaskCount	dc.W	taskTicks		; tick count
		dc.W	$A55A			; signature
*-----------------------------------------------

		IMPORT	CVStat:CVStatusRec	; global data
		
		IMPORT	Refreshing
		IMPORT	Change
		IMPORT	ModeSwitch
		IMPORT	DirtyMouse
		IMPORT	DirtyScreen
		IMPORT	NewCursor:CursorInfo
		IMPORT	OldCursor:CursorInfo

		phk
		plb

		lda	>NEWVIDEO		; check video register	
		and	#$80
		beq	exit			; exit if SHR screen not active!

		lda	Refreshing
		bne	exit			; exit if we are refreshing (busy)

		lda	CVStat.enabled
		beq	exit			; exit if CloseView is off

		lda	CVStat.magnify
		bne	exit			; exit if magnification is on

		lda	Change
		bne	exit			; exit if user changes are pending
		
		lda	ModeSwitch
		bne	exit			; exit if switching modes (320/640)

		rep	#$30
		LONGA	ON
		LONGI	ON
		
		jsr	JustDoIt

		sep	#$30
		LONGA	OFF
		LONGI	OFF

exit
		lda	#taskTicks
		sta	TaskCount		; reset our task counter
		rtl
		

		LONGA	ON
		LONGI	ON
JustDoIt
		jsr	SetFrameRect

		lda	DirtyMouse
		ora	DirtyScreen
		beq	done			; no need to draw if clean

		jsr	EraseFrameBox
		jsr	DrawFrameBox

		stz	DirtyScreen
		stz	DirtyMouse

		lda	NewCursor.location.v	; remember last cursor drawn
		sta	OldCursor.location.v
		lda	NewCursor.location.h
		sta	OldCursor.location.h
		lda	NewCursor.height
		sta	OldCursor.height
		lda	NewCursor.width
		sta	OldCursor.width
		lda	NewCursor.hotspot.v
		sta	OldCursor.hotspot.v
		lda	NewCursor.hotspot.h
		sta	OldCursor.hotspot.h
done
		rts

		ENDP

		
*===============================================*
		END                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CloseView/Data.aii b/IIGS.601.SRC/A.U.G/CloseView/Data.aii
new file mode 100644
index 0000000..5d258e4
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CloseView/Data.aii
@@ -0,0 +1 @@
+*===============================================*
*						*
* File:		Data.aii			*
* Project:	Close view for the IIGS		*
* Author:	Don J. Brady			*
* Build file:	CloseViewII.Make		*
*						*
* Copyright © Apple Computer, Inc. 1989-1991	*
* All rights reserved.				*
*-----------------------------------------------*
* Modification History:				*
* 12/06/89 DJB	- File created today		*
*						*
*===============================================*
		
		PRINT	NOPAGE
		PRINT	NOGEN
		PRINT	OFF		

		STRING	ASIS
		
		INCLUDE	'CloseView.equ'

		PRINT	ON

*===============================================*
*	Global data used by CloseViewII		*
*===============================================*

GlobalData	PROC


		EXPORT  Overlap
Overlap		dc.W	200/2/5,640/2/5,200-(200/2/5),640-(640/2/5)

		EXPORT	DirtyScreen
DirtyScreen	dc.W	0

		EXPORT	DirtyMouse
DirtyMouse	dc.W	0

		EXPORT	CursorOff
CursorOff	dc.W	0

		EXPORT	NextMouse
NextMouse	dc.W	0,0

		EXPORT  BigRect
BigRect		dc.W	0,0,99,319

		EXPORT  LastBigRect
LastBigRect	dc.W	0,0,99,319

		EXPORT	MaxPt
MaxPt		dc.W	200/2,640/2

		EXPORT	MinPt
MinPt		dc.W	200/2/2,640/2/2

		EXPORT	MyUserID
MyUserID	dc.W	0

		EXPORT	ScreenHandle
ScreenHandle	dc.L	0

		EXPORT	Temp
Temp		ds.B	10

		EXPORT	Counter			; generic counter
Counter		ds.W	1

		EXPORT	Flag			; generic flag
Flag		ds.W	1

		EXPORT	Change
Change		dc.W	0

		EXPORT	ScreenHeight
ScreenHeight	dc.W	200

		EXPORT	ScreenWidth	
ScreenWidth	dc.W	640

		EXPORT	HClip	
HClip		dc.W	0

		EXPORT	LastTicks
LastTicks	dc.L	0

		EXPORT	IBarHeight
IBarHeight	dc.W	0,0

		EXPORT	IBarPt
IBarPt		dc.W	0,0

		EXPORT	myWinList
myWinList
		dc.W	endWinList-myWinList	; record size
		dc.W	0			; frame bits
		dc.L	@fake			; ptr to title
@fake		dc.L	0			; refCon
		dc.W	0,0,0,0			; zoomed rect
		dc.L	0			; color table ptr
		dc.W	0,0			; origin vert, horz
		dc.W	0,0			; data area hight,width
		dc.W	0,0			; max content height, width
		dc.W	0,0			; pixels to scroll vert, horz
		dc.W	0,0			; pixels to page vert, horz
		dc.L	0			; info bar string
		dc.W	0			; info bar height
		dc.L	0			; def proc ptr
		dc.L	0			; draw info bar routine
		dc.L	0			; draw content routine
		dc.W	0,0,0,0			; window position
		dc.L	-1			; window plane
		dc.L	0			; memory pointer
endWinList

;--- boolean flags:

		EXPORT	NeedToPost
NeedToPost	dc.W	0

		EXPORT	Refreshing
Refreshing	dc.W	0

		EXPORT	TaskInQueue
TaskInQueue	dc.W	0

		EXPORT	KeyBoardPatched
KeyBoardPatched	dc.W	0

		EXPORT	CloseViewWasOn
CloseViewWasOn	dc.W	0			; false is the default

		EXPORT	TableSwitch
TableSwitch	dc.W	0

		EXPORT	ChangeSCBs
ChangeSCBs	dc.W	0

		EXPORT	ChangeCursor
ChangeCursor	dc.W	0

		EXPORT	IBarOn
IBarOn		dc.W	0

		EXPORT	IBarFound
IBarFound	dc.W	0

		EXPORT	TrackingIBar
TrackingIBar	dc.W	0

		EXPORT	HadToLoadFM	
HadToLoadFM	dc.W	0

		EXPORT	ModeSwitch	
ModeSwitch	dc.W	0


;--- vectors to real routines:

		EXPORT	RealUnDrawCursor
RealUnDrawCursor dc.L	0

		EXPORT	RealDrawCursor
RealDrawCursor	dc.L	0

		EXPORT	RealShieldCursor
RealShieldCursor dc.L	0

		EXPORT	QDStartUpVec
		EXPORT	QDStartUpAddr
QDStartUpVec	dc.B	$5C			; jml  $bbAAAA
QDStartUpAddr	dc.L	0

		EXPORT	QDShutDownVec
		EXPORT	QDShutDownAddr
QDShutDownVec	dc.B	$5C			; jml  $bbAAAA
QDShutDownAddr	dc.L	0

		EXPORT	ClearScreenVec
		EXPORT	ClearScreenAddr
ClearScreenVec	dc.B	$5C			; jml  $bbAAAA
ClearScreenAddr	dc.L	0

		EXPORT	SetSCBVec
		EXPORT	SetSCBAddr
SetSCBVec	dc.B	$5C			; jml  $bbAAAA
SetSCBAddr	dc.L	0

		EXPORT	GetSCBVec
		EXPORT	GetSCBAddr
GetSCBVec	dc.B	$5C			; jml  $bbAAAA
GetSCBAddr	dc.L	0

		EXPORT	SetAllSCBsVec
		EXPORT	SetAllSCBsAddr
SetAllSCBsVec	dc.B	$5C			; jml  $bbAAAA
SetAllSCBsAddr	dc.L	0

		EXPORT	SetColorEntryVec
		EXPORT	SetColorEntryAddr
SetColorEntryVec  dc.B	$5C			; jml  $bbAAAA
SetColorEntryAddr dc.L	0

		EXPORT	GetColorEntryVec
		EXPORT	GetColorEntryAddr
GetColorEntryVec  dc.B	$5C			; jml  $bbAAAA
GetColorEntryAddr dc.L	0

		EXPORT	SetColorTableVec
		EXPORT	SetColorTableAddr
SetColorTableVec  dc.B	$5C			; jml  $bbAAAA
SetColorTableAddr dc.L	0

		EXPORT	GetColorTableVec
		EXPORT	GetColorTableAddr
GetColorTableVec  dc.B	$5C			; jml  $bbAAAA
GetColorTableAddr dc.L	0

		EXPORT	InitPortVec
		EXPORT	InitPortAddr
InitPortVec	dc.B	$5C			; jml  $bbAAAA
InitPortAddr	dc.L	0

		EXPORT	OpenPortVec
		EXPORT	OpenPortAddr
OpenPortVec	dc.B	$5C			; jml  $bbAAAA
OpenPortAddr	dc.L	0

		EXPORT	InvertRectVec
		EXPORT	InvertRectAddr
InvertRectVec	dc.B	$5C			; jml  $bbAAAA
InvertRectAddr	dc.L	0

		EXPORT	SetCursorVec
		EXPORT	SetCursorAddr
SetCursorVec	dc.B	$5C			; jml  $bbAAAA
SetCursorAddr	dc.L	0

		EXPORT	EMStartUpVec
		EXPORT	EMStartUpAddr
EMStartUpVec	dc.B	$5C			; jml  $bbAAAA
EMStartUpAddr 	dc.L	0

		EXPORT	GetNextEventVec
		EXPORT	GetNextEventAddr
GetNextEventVec	 dc.B	$5C			; jml  $bbAAAA
GetNextEventAddr dc.L	0

		EXPORT	EventAvailVec
		EXPORT	EventAvailAddr
EventAvailVec	dc.B	$5C			; jml  $bbAAAA
EventAvailAddr	dc.L	0

		EXPORT	GetOSEventVec
		EXPORT	GetOSEventAddr
GetOSEventVec	dc.B	$5C			; jml  $bbAAAA
GetOSEventAddr	dc.L	0

		EXPORT	OSEventAvailVec
		EXPORT	OSEventAvailAddr
OSEventAvailVec	dc.B	$5C			; jml  $bbAAAA
OSEventAvailAddr dc.L	0

		EXPORT	GetMouseVec
		EXPORT	GetMouseAddr
GetMouseVec	dc.B	$5C			; jml  $bbAAAA
GetMouseAddr 	dc.L	0

		EXPORT	ButtonVec
		EXPORT	ButtonAddr
ButtonVec	dc.B	$5C			; jml  $bbAAAA
ButtonAddr 	dc.L	0

		EXPORT	StillDownVec
		EXPORT	StillDownAddr
StillDownVec	dc.B	$5C			; jml  $bbAAAA
StillDownAddr 	dc.L	0

		EXPORT	WaitMouseUpVec
		EXPORT	WaitMouseUpAddr
WaitMouseUpVec	dc.B	$5C			; jml  $bbAAAA
WaitMouseUpAddr dc.L	0

		EXPORT	HideCursorVec
		EXPORT	HideCursorAddr
HideCursorVec	dc.B	$5C			; jml  $bbAAAA
HideCursorAddr 	dc.L	0

		EXPORT	CursorUpdateVec
		EXPORT	CursorUpdateAddr
CursorUpdateVec	dc.B	$5C			; jml  $bbAAAA
CursorUpdateAddr dc.L	0


		EXPORT	KeyboardVec
		EXPORT	KeyboardAddr
KeyboardVec	dc.B	$5C			; jml  $bbAAAA
KeyboardAddr	dc.L	0



; data that doesn't need to be initialized:

		EXPORT	MyEvent
MyEvent		ds.B	16

		EXPORT	BoxLineWidth
BoxLineWidth	ds.W	1

		EXPORT	ROMVersion
ROMVersion	ds.W	1

		EXPORT	QDGlobals
QDGlobals	ds.W	1

		EXPORT	MasterSCB
MasterSCB	ds.W	1

		EXPORT	CursorRect
CursorRect	ds	Rect

		EXPORT	CenterPt
CenterPt	ds	Point	

		EXPORT	CVStat
CVStat		ds	CVStatusRec

		EXPORT	NewCursor
		EXPORT	OldCursor
NewCursor	ds	CursorInfo
OldCursor	ds	CursorInfo		; must directly follow NewCursor

		EXPORT	Table
Table		ds.B	256*16

		EXPORT	Table2b
Table2b		ds.B	256*16

		EXPORT	VirtualSCBs
VirtualSCBs	ds.B	200

		EXPORT	StdLineVec
StdLineVec	ds.L	1

		EXPORT	LastMinRect
LastMinRect	ds.W	4

		EXPORT	TempColorTable
TempColorTable	ds.W	16


		ENDP

		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CloseView/NDA.aii b/IIGS.601.SRC/A.U.G/CloseView/NDA.aii
new file mode 100644
index 0000000..109de40
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CloseView/NDA.aii
@@ -0,0 +1 @@
+*===============================================*
*						*
* File:		NDA.aii				*
* Project:	Close view for the IIGS		*
* Author:	Don J. Brady			*
* Build file:	CloseViewII.Make		*
*						*
* Copyright © Apple Computer, Inc. 1990-1991	*
* All rights reserved.				*
*-----------------------------------------------*
* Modification History:				*
* 01/02/90 DJB	- File created today		*
* 9-Feb-92 DAL  - fixed copyright date		*
*						*
*===============================================*
		
		PRINT	NOPAGE
		PRINT	NOGEN
		PRINT	OFF		

		INCLUDE	'M16.QuickDraw'		; toolbox macros
		INCLUDE	'M16.Window'
		INCLUDE	'M16.Control'
		INCLUDE	'M16.Event'
		INCLUDE	'M16.LineEdit'
		INCLUDE	'M16.MiscTool'
		
		INCLUDE	'E16.Window'		; toolbox equates
		INCLUDE	'E16.Control'
		INCLUDE	'E16.Event'

		INCLUDE	'CloseView.equ'

		PRINT	ON

;--- window offsets:

wHeight		equ	71
wWidth		equ	316

wTop		equ	31
wRight		equ	16
wRight320	equ	2
wBottom		equ	wTop+wHeight
wLeft		equ	wRight+wWidth

hHeight		equ	114
hWidth		equ	310

hTop		equ	(200-hHeight)/3
hLeft		equ	(640-hWidth)/2
hBottom		equ	hTop+hHeight
hRight		equ	hLeft+hWidth

hWidth320	equ	hWidth-8
hLeft320	equ	(320-hWidth320)/2
hRight320	equ	hLeft320+hWidth320

mx		equ	10			; horizontal margin
cx		equ	wWidth/2-2		; center line

iHeight		equ	25
iWidth		equ	56

iconWidth	equ	14			; byte width of icon
PicWidth	equ	4			; byte width of pictures

magY1		equ	10
magX1		equ	cx+32

iconY1		equ	1
iconX1		equ	60

onY1		equ	4
onX1		equ	mx
offY1		equ	onY1+11
offX1		equ	mx

blackY1		equ	offY1+15
blackX1		equ	mx
whiteY1		equ	blackY1+11
whiteX1		equ	mx

pOnY1		equ	magY1+4
pOnX1		equ	cx+mx
pOffY1		equ	pOnY1+11
pOffX1		equ	cx+mx

powerY1		equ	offY1+2
powerX1		equ	wWidth-80

keyY1		equ	pOffY1+15
keyX1		equ	cx+mx

helpY1		equ	wHeight-16
helpX1		equ	wWidth-72

;--- control id numbers:

idOnRadio	equ	1
idOffRadio	equ	2
idBlackRadio	equ	3
idWhiteRadio	equ	4
idKeyCheckBox	equ	5
idPowerPopUp	equ	6
idMagOnRadio	equ	7
idMagOffRadio	equ	8
idHelpButton	equ	9


*===============================================*
*						*
* 	Standard NDA Header			*
*						*
*===============================================*

NDAHeader	PROC	EXPORT
		
		LONGA	ON
		LONGI	ON

		STRING	ASIS

		IMPORT	NDAOpen
		IMPORT	NDAClose
		IMPORT	NDAAction
		IMPORT	NDAInit
		
		EXPORT	menuID
		EXPORT	menuStr

		dc.L	NDAOpen
		dc.L	NDAClose
		dc.L	NDAAction
		dc.L	NDAInit
		dc.W	1			; period (60 ticks = 1 sec)
		dc.W	$016E			; event mask
menuStr		dc.B	'--CLOSE VIEW\BH'	; menu text
menuID		dc.B	'**'			; menu id
		dc.B	13,13

		ENDP
		
*===============================================*
*						*
*===============================================*

NDAData		PROC

		STRING	PASCAL

;--- string data ---

		ENTRY	strCopyright
strCopyright	dc.B	'Apple Computer, Inc. 1990-92'		; note: © symbol is a pict
		ENTRY	strVersion
strVersion	dc.B	'v1.0 '
		ENTRY	strMagnify
strMagnify	dc.B	'Magnification:'

strNDATitle	dc.B	'   CloseViewª   '

strNull		dc.B	0
strOn		dc.B	'On'
strOff		dc.B	'Off'
strBlackOnWhite	dc.B	'Black On White'
strWhiteOnBlack	dc.B	'White On Black'
strUseKey	dc.B	'Key Equivalents'
strHelp		dc.B	'Help'

		STRING	ASIS

		ENTRY	strHelpText1
		ENTRY	EndHelpText1
strHelpText1
		dc.B	'CloseView allows you to magnify the',13
		dc.B	'contents of the desktop screen.  It can',13
		dc.B	'be controlled using this Desk Accessory',13
		dc.B	'or just by using the following keyboard',13
		dc.B	'equivalents.'
EndHelpText1

		ENTRY	strHelpText2
		ENTRY	EndHelpText2
strHelpText2
		dc.B	17,'-option-O',13
		dc.B	17,'-option-X',13
		dc.B	17,'-option-',13
		dc.B	17,'-option-',13
		dc.B	17,'-option-I',13
EndHelpText2

		ENTRY	strHelpText3
		ENTRY	EndHelpText3
strHelpText3
		dc.B	'Turn CloseView On/Off',13
		dc.B	'Turn Magnification On/Off',13
		dc.B	'Increase Magnification',13
		dc.B	'Decrease Magnification',13
		dc.B	'Invert the Display',13
EndHelpText3


;--- window data ---

		ENTRY  NDAWinPtr
NDAWinPtr	dc.L	0

		ENTRY	HelpWinPtr
HelpWinPtr	dc.L	0

stripes		dc.W	$0000,$0F00,$020F,$F0F0,$00F0

		ENTRY  WinParams
WinParams
		dc.W	@endParams-WinParams	; data length
		dc.W	0			; frame bits
		dc.L	strNDATitle		; title ptr
		dc.L	0			; RefCon
		dc.W	0,0,0,0			; full size
		dc.L	stripes			; color table ptr
		dc.W	0			; vertical org
		dc.W	0			; horizontal org
		dc.W	0			; data area height
		dc.W	0			; data area width
		dc.W	0			; max cont height
		dc.W	0			; max cont width
		dc.W	0			; vert scroll pixels
		dc.W	0			; hort scroll pixels
		dc.W	0			; vert page pixels
		dc.W	0			; hort page pixels
		dc.L	0			; info bar text ptr
		dc.W	0			; info bar height
		dc.L	0			; DefProc
		dc.L	0			; draw info bar routine
		dc.L	0			; draw content routine
		dc.W	0,0,0,0			; window position
		dc.L	$FFFFFFFF		; window plane
		dc.L	0			; 0 = allocate win record
@endParams


;--- data for controls ---

ret		equ	13

		
		ENTRY	cOn			; current control settings
cOn		dc.W	0
		ENTRY	cOff
cOff		dc.W	1
		ENTRY	cBlack
cBlack		dc.W	1
		ENTRY	cWhite
cWhite		dc.W	0
		ENTRY	cPower
cPower		dc.W	2
		ENTRY	cMagOn
cMagOn		dc.W	0
		ENTRY	cMagOff
cMagOff		dc.W	1
		ENTRY	cKey
cKey		dc.W	1


OnRadioButton	dc.W	8			; PCount
		dc.L	idOnRadio		; Control ID
		dc.W	onY1,onX1,0,0		; rect
		dc.L	radioControl		; defproc
		dc.W	1			; flag
		dc.W	fCtlProcRefNotPtr	; more flags
		dc.L	0			; RefCon
		dc.L	strOn			; title ptr
		dc.W	0			; initial value

OffRadioButton	dc.W	8			; PCount
		dc.L	idOffRadio		; Control ID
		dc.W	offY1,offX1,0,0		; rect
		dc.L	radioControl		; defproc
		dc.W	1			; flag
		dc.W	fCtlProcRefNotPtr	; more flags
		dc.L	0			; RefCon
		dc.L	strOff			; title ptr
		dc.W	1			; initial value

BlackOnWhiteRB	dc.W	8			; PCount
		dc.L	idBlackRadio		; Control ID
		dc.W	blackY1,blackX1,0,0	; rect
		dc.L	radioControl		; defproc
		dc.W	2			; flag
		dc.W	fCtlProcRefNotPtr	; more flags
		dc.L	0			; RefCon
		dc.L	strBlackOnWhite		; title ptr
		dc.W	1			; initial value

WhiteOnBlackRB	dc.W	8			; PCount
		dc.L	idWhiteRadio		; Control ID
		dc.W	whiteY1,whiteX1,0,0	; rect
		dc.L	radioControl		; defproc
		dc.W	2			; flag
		dc.W	fCtlProcRefNotPtr	; more flags
		dc.L	0			; RefCon
		dc.L	strWhiteOnBlack		; title ptr
		dc.W	0			; initial value

KeyCheckBox	dc.W	8			; PCount
		dc.L	idKeyCheckBox		; Control ID
		dc.W	keyY1,keyX1,0,0		; rect
		dc.L	checkControl		; defproc
		dc.W	0			; flag
		dc.W	fCtlProcRefNotPtr	; more flags
		dc.L	0			; RefCon
		dc.L	strUseKey		; title ptr
		dc.W	1			; initial value

		STRING  ASIS
PowerMenu	dc.B	'>>Magnification:  \H'
		dc.W	500
		dc.B	ret
		dc.B	'==  2x  \H'
		dc.W	2			; id = power
		dc.B	ret
		dc.B	'==  3x  \H'
		dc.W	3			; id = power
		dc.B	ret
		dc.B	'==  4x  \H'
		dc.W	4			; id = power
		dc.B	ret
		dc.B	'==  6x  \H'
		dc.W	6			; id = power
		dc.B 	ret
		dc.B	'==  8x  \H'
		dc.W	8			; id = power
		dc.B	ret
		dc.B	'==12x  \H'
		dc.W	12			; id = power
		dc.B	ret
		dc.B	'.'			; '.' = end of menu

PowerPopUp	dc.W	9			; parameter count
		dc.L	idPowerPopUp		; control ID
		dc.W	powerY1,powerX1,0,0	; control boundry rect
		dc.L	popUpControl		; def proc ref
		dc.W	$10			; flag = don't draw title & right justify
		dc.W	fCtlProcRefNotPtr+4	; more flags
		dc.L	0			; reference constant
		dc.W	0			; title width
		dc.L	PowerMenu		; menu reference
		dc.W 	2			; initial value (2x)

POnRadioButton	dc.W	8			; PCount
		dc.L	idMagOnRadio		; Control ID
		dc.W	pOnY1,pOnX1,0,0		; rect
		dc.L	radioControl		; defproc
		dc.W	3			; flag
		dc.W	fCtlProcRefNotPtr	; more flags
		dc.L	0			; RefCon
		dc.L	strOn			; title ptr
		dc.W	0			; initial value

POffRadioButton	dc.W	8			; PCount
		dc.L	idMagOffRadio		; Control ID
		dc.W	pOffY1,pOffX1,0,0	; rect
		dc.L	radioControl		; defproc
		dc.W	3			; flag
		dc.W	fCtlProcRefNotPtr	; more flags
		dc.L	0			; RefCon
		dc.L	strOff			; title ptr
		dc.W	1			; initial value

HelpButton	dc.W	7			; PCount
		dc.L	idHelpButton		; Control ID
		dc.W	helpY1,helpX1,0,0	; rect
		dc.L	simpleButtonControl	; defproc
		dc.W	0			; flag
		dc.W	fCtlProcRefNotPtr	; more flags
		dc.L	0			; RefCon
		dc.L	strHelp			; title ptr

		ENTRY	ControlTable		; controls used in window
ControlTable	dc.L	OnRadioButton
		dc.L	OffRadioButton
		dc.L	BlackOnWhiteRB
		dc.L	WhiteOnBlackRB
		dc.L	KeyCheckBox
		dc.L	PowerPopUp
		dc.L	POnRadioButton
		dc.L	POffRadioButton
		dc.L	HelpButton
		dc.L	0


;--- picture data ----

		EXPORT  IconLocInfo
IconLocInfo	dc.W 	$0080			; port SCB
		dc.L	CVIconPic		; picture ptr
		dc.W	iconWidth		; picture width (bytes)
		dc.W	0,0,25,iconWidth*4	; bounds rect

CVIconPic	dc.B  $FF,$FF,$F0,$00,$00,$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
		dc.B  $FF,$FF,$00,$00,$00,$00,$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF
		dc.B  $FF,$00,$00,$FF,$FF,$F0,$00,$0F,$FF,$FF,$FF,$FF,$FF,$FF
		dc.B  $FF,$00,$FF,$FF,$FF,$FF,$F0,$0F,$FF,$FF,$FF,$FF,$FF,$FF
		dc.B  $F0,$0F,$FF,$FF,$F0,$FF,$FF,$00,$FF,$FF,$FF,$FF,$FF,$FF
		dc.B  $F0,$0F,$FF,$FF,$0F,$FF,$FF,$00,$FF,$FF,$FF,$FF,$FF,$FF
		dc.B  $00,$FF,$FF,$F0,$FF,$0F,$FF,$F0,$0F,$FF,$FF,$FF,$FF,$FF
		dc.B  $00,$FF,$FF,$FF,$F0,$FF,$FF,$F0,$0F,$FF,$FF,$FF,$FF,$FF
		dc.B  $00,$FF,$FF,$FF,$0F,$FF,$FF,$F0,$0F,$FF,$FF,$FF,$FF,$FF
		dc.B  $00,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$0F,$FF,$FF,$FF,$FF,$FF
		dc.B  $00,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$0F,$FF,$FF,$FF,$FF,$FF
		dc.B  $F0,$0F,$FF,$FF,$FF,$FF,$FF,$00,$0F,$FF,$FF,$FF,$FF,$FF
		dc.B  $F0,$0F,$FF,$FF,$FF,$FF,$FF,$00,$FF,$FF,$FF,$FF,$FF,$FF
		dc.B  $FF,$00,$FF,$FF,$FF,$FF,$F0,$00,$FF,$FF,$FF,$FF,$FF,$FF
		dc.B  $FF,$00,$00,$FF,$FF,$F0,$00,$00,$00,$00,$0F,$FF,$FF,$FF
		dc.B  $FF,$FF,$00,$00,$00,$00,$00,$00,$00,$FF,$F0,$FF,$FF,$FF
		dc.B  $FF,$FF,$FF,$00,$00,$00,$FF,$00,$00,$0F,$FF,$0F,$FF,$FF
		dc.B  $FF,$FF,$FF,$FF,$FF,$FF,$FF,$0F,$00,$00,$FF,$F0,$FF,$FF
		dc.B  $FF,$FF,$FF,$FF,$FF,$FF,$FF,$0F,$F0,$00,$0F,$FF,$00,$0F
		dc.B  $FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF,$FF,$FF,$FF,$F0,$0F
		dc.B  $FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$00,$FF,$FF,$FF,$F0,$0F
		dc.B  $FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF,$0F,$FF,$FF,$F0,$0F
		dc.B  $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$00,$F0,$0F,$FF,$F0,$0F
		dc.B  $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$00,$00,$0F,$F0,$0F
		dc.B  $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$00,$0F


		ENTRY	PicLocInfo
PicLocInfo	dc.W	$0080			; port SCB
		dc.L	0			; ptr to image
		dc.W	PicWidth		; width (in bytes)
		dc.W	0,0,7,PicWidth*4	; bounds rect

		ENTRY	UpArrowPic
UpArrowPic	dc.B	$FF,$F0,$FF,$FF
		dc.B	$FF,$00,$0F,$FF
		dc.B	$F0,$F0,$F0,$FF
		dc.B	$FF,$F0,$FF,$FF
		dc.B	$FF,$F0,$FF,$FF
		dc.B	$FF,$F0,$FF,$FF
		dc.B	$FF,$F0,$FF,$FF

		ENTRY	DownArrowPic
DownArrowPic	dc.B	$FF,$F0,$FF,$FF
		dc.B	$FF,$F0,$FF,$FF
		dc.B	$FF,$F0,$FF,$FF
		dc.B	$FF,$F0,$FF,$FF
		dc.B	$F0,$F0,$F0,$FF
		dc.B	$FF,$00,$0F,$FF
		dc.B	$FF,$F0,$FF,$FF

		ENTRY	CopyrightPic
CopyrightPic	dc.B	$FF,$00,$00,$FF
		dc.B	$F0,$FF,$FF,$0F
		dc.B	$0F,$F0,$0F,$F0
		dc.B	$0F,$0F,$FF,$F0
		dc.B	$0F,$F0,$0F,$F0
		dc.B	$F0,$FF,$FF,$0F
		dc.B	$FF,$00,$00,$FF

;--- other data:

		ENTRY 	TaskRecord
TaskRecord	ds	WMTask

		ENTRY	NDABusy
NDABusy		dc.W	0			; ­ 0 if NDA is currently busy

		ENDP

*===============================================*
*	Open the NDA's Window			*
*						*
* In:						*
*						*
* Out:	window pointer on stack			*
*						*
*===============================================*

NDAOpen		PROC

		LONGA	ON
		LONGI	ON

		IMPORT	NDAWinPtr
		IMPORT	WinParams:WindParamList
		IMPORT	ControlTable
		IMPORT	CVStat:CVStatusRec
		IMPORT	GetSettings
		
		IMPORT	DrawWindow

ndaFrameBits	equ	fTitle+fClose+fMove+fVis+fCtlTie+fHilited

		phb
		phk
		plb
		
		lda	>CVStat.noScreen
		beq	ok
		_SysBeep
skip
		brl	exit
ok		
		lda	NDAWinPtr
		ora	NDAWinPtr+2
		bne	skip			; ignore if already open		
		
		lda	#ndaFrameBits
		sta	WinParams.wFrameBits

		lda	#DrawWindow
		sta	WinParams.wContDefProc
		lda	#DrawWindow>>16
		sta	WinParams.wContDefProc+2

		lda	#wTop
		sta	WinParams.wPosition.top
		lda	#wBottom
		sta	WinParams.wPosition.bottom

		pha
		_GetMasterSCB
		pla
		and	#$0080
		tax

		lda	#wRight
		cpx	#$0080			; is it 640 ?
		beq	set			; yes
		lda	#wRight320
set
		sta	WinParams.wPosition.left
		clc
		adc	#wWidth
		sta	WinParams.wPosition.right
		
		pha				; space for result (long)
		pha
		pea	WinParams>>16		; pointer to window params
		pea	WinParams
		_NewWindow
		pla
		plx
		bcs	exit			; couldn't get window!
		sta	NDAWinPtr
		stx	NDAWinPtr+2
		
		phx
		pha
		_SetSysWindow			; mark as system window

		lda	NDAWinPtr+2		; pointer to window
		pha
		lda	NDAWinPtr
		pha
		_SetPort			; set to known port (bug in NewControl2)

		pha				; space for handle
		pha
		lda	NDAWinPtr+2		; pointer to window
		pha
		lda	NDAWinPtr
		pha
		pea	ptrToPtr		; verb
		pea	ControlTable>>16
		pea	ControlTable
		_NewControl2			; add controls
		pla				; ignore handle
		pla
		
		stz	cOn			; set defaults
		stz	cWhite
		stz	cMagOn
		lda	#1
		sta	cOff
		sta	cBlack
		sta	cKey
		sta	cMagOff
		lda	#2
		sta	cPower
		
		jsr	GetSettings		; get real settings
exit
		lda	NDAWinPtr+2		; pass back window ptr
		sta	7,s
		lda	NDAWinPtr
		sta	5,s
		plb
		rtl

		ENDP

*===============================================*
*	Close the NDA's Window			*
*						*
* In:	none					*
*						*
* Out:	none					*
*						*
*===============================================*

NDAClose	PROC

		LONGA	ON
		LONGI	ON

		IMPORT	NDAWinPtr

		phb
		phk
		plb
		
		lda	NDAWinPtr
		ora	NDAWinPtr+2
		beq	exit			; ignore if closed

		lda	NDAWinPtr+2
		pha
		lda	NDAWinPtr
		pha
		_CloseWindow
		stz	NDAWinPtr+2
		stz	NDAWinPtr
exit	
		plb
		rtl

		ENDP

*===============================================*
*	Startup/Shutdown the NDA		*
*						*
* In:	a-reg (a = 0: Shutdown, a ­ 0: Startup)	*
*						*
* Out:						*
*						*
*===============================================*

NDAInit		PROC

		LONGA	ON
		LONGI	ON

		rtl

		ENDP

*===============================================*
*	Handle an NDA Action			*
*						*
* In:	a-reg has type of action		*
*	x & y reg have event pointer		*
*						*
* Out:	a-reg has return flag			*
*						*
*===============================================*

NDAAction	PROC

		LONGA	ON
		LONGI	ON
		
		IMPORT	NDABusy
		IMPORT	GetSettings

evtptr		set	5			; stack offset

		phb
		phk
		plb
		
		phy				; save event ptr for _Event
		phx
		
		ldx	NDABusy
		bne	exit			; NDA is busy
		inc	NDABusy			; we are busy

		asl  a
		tax				; action offset
		jsr  (Actions,x)		; process the action	
		stz  NDABusy			; we are not busy anymore
exit
		pla				; remove event ptr
		pla
		plb

		lda  #0				; return flag
		rtl

Actions		dc.W	_Ignore
		dc.W	_Event
		dc.W	_Run
		dc.W	_Cursor
		dc.W	_Menu
		dc.W	_Undo
		dc.W	_Cut
		dc.W	_Copy
		dc.W	_Paste
		dc.W	_Clear

;--- do nothing for these actions:

_Ignore
_Cursor
_Menu
_Undo
_Cut
_Copy
_Paste
_Clear
		rts
*-----------------------------------------------
_Run

		jsr	GetSettings
		rts

*-----------------------------------------------
_Event

		IMPORT	TaskRecord:WMTask
		IMPORT	EnableCV
		IMPORT	DisableCV
		IMPORT	SetInvert
		IMPORT	SetPower
		IMPORT	SetMagnify
		IMPORT	SetKeyEquiv
		IMPORT	CVStat:CVStatusRec
		IMPORT	HelpWindow

		phd
		tsc
		tcd
	
		ldy	#18
@loop		lda	[evtPtr],y
		sta	TaskRecord,y
		dey
		dey
		bpl	@loop
	
		pld
	
		lda	#$FFFF
		sta	TaskRecord.wmTaskMask
		lda	#$001F
		sta	TaskRecord.wmTaskMask+2

		pha					; space for result (word)
		pea	$FFFF				; mask
		pea	TaskRecord>>16			; event record pointer
		pea	TaskRecord
		_TaskMasterDA
		pla
		and	#$00FF
		cmp	#wInControl
		beq	controlHit
		cmp	#keyDownEvt
		bne	endDoEvent
		lda	TaskRecord.wmEvent.message	; look at character
		and	#$00FF
		cmp	#'?'				; is it a '?' char ?
		beq	helpHit
		cmp	#'/'				; is it a '/' char ?
		bne	endDoEvent
helpHit
		brl	_HelpButton		
controlHit	
		lda	TaskRecord.wmTaskData4		; check control's id
		beq	endDoEvent

		pha					; space for control's value
		lda	TaskRecord.wmTaskData2+2	; pass contol's handle
		pha
		lda	TaskRecord.wmTaskData2
		pha
		_GetCtlValue
		ply

		lda	TaskRecord.wmTaskData4		; switch on control's id
		dec	a
		asl	a
		tax
		jsr	(CaseTable,x)
endDoEvent
		rts

CaseTable	dc.W	_OnRadio		; id = 1
		dc.W	_OffRadio		; id = 2
		dc.W	_BlackRadio		; id = 3
		dc.W	_WhiteRadio		; id = 4
		dc.W	_KeyCheckBox		; id = 5
		dc.W	_PowerPopup		; id = 6
		dc.W	_MagOnRadio		; id = 7
		dc.W	_MagOffRadio		; id = 8
		dc.W	_HelpButton		; id = 9

;-----------------------------------------------
_OnRadio
		tya
		beq	@done

		lda	#1
		sta	cOn
		stz	cOff
		jsl	EnableCV
@done
		rts

;-----------------------------------------------
_OffRadio
		tya
		beq	@done

		lda	#1
		sta	cOff
		stz	cOn
		jsl	DisableCV
@done
		rts

;-----------------------------------------------
_BlackRadio
		tya
		beq	@done

		lda	#1
		sta	cBlack
		stz	cWhite

		lda	#0
		jsl	SetInvert
@done
		rts

;-----------------------------------------------
_WhiteRadio
		tya
		beq	@done

		lda	#1
		sta	cWhite
		stz	cBlack

		lda	#1
		jsl	SetInvert
@done
		rts

;-----------------------------------------------
_KeyCheckBox
		tya				; y = 0 or 1
		jsl	SetKeyEquiv
		rts
		
;-----------------------------------------------
_PowerPopup
		tya
		beq	@done
		
		sta	cPower

		jsl	SetPower
@done
		rts

;-----------------------------------------------
_MagOnRadio
		tya
		beq	@done

		lda	#1
		sta	cMagOn
		stz	cMagOff

		lda	#1
		jsl	SetMagnify
@done
		rts

;-----------------------------------------------
_MagOffRadio
		tya
		beq	@done

		lda	#1
		sta	cMagOff
		stz	cMagOn

		lda	#0
		jsl	SetMagnify
@done
		rts

;-----------------------------------------------
_HelpButton
		jsr	HelpWindow
		rts


		ENDP

*===============================================*
*	Get real Close View Settings		*
*						*
* In:	none					*
*						*
* Out:	none					*
*						*
*===============================================*

GetSettings	PROC

		LONGA	ON
		LONGI	ON

		IMPORT	CVStat:CVStatusRec

		
		lda	>CVStat.enabled
		beq	@cmp
		lda	#1
@cmp		cmp	cOn			; do they match?
		beq	invert
		
		ldx	#idOnRadio
		lda	cOn
		eor	#$0001
		sta	cOn
		jsr	UpdateControl

		ldx	#idOffRadio
		lda	cOff
		eor	#$0001
		sta	cOff
		jsr	UpdateControl


invert		
		lda	>CVStat.invert
		beq	@cmp
		lda	#1
@cmp		cmp	cWhite			; do they match?
		beq	power
		
		ldx	#idWhiteRadio
		lda	cWhite
		eor	#$0001
		sta	cWhite
		jsr	UpdateControl

		ldx	#idBlackRadio
		lda	cBlack
		eor	#$0001
		sta	cBlack
		jsr	UpdateControl	


power		
		lda	>CVStat.power
		beq	useKeys
		cmp	cPower			; do they match?
		beq	useKeys
		
		sta	cPower
		ldx	#idPowerPopup
		jsr	UpdateControl


useKeys		
		lda	>CVStat.useKeys
		cmp	cKey			; do they match?
		beq	magnify
		sta	cKey
		ldx	#idKeyCheckBox
		jsr	UpdateControl


magnify		
		lda	>CVStat.magnify
		beq	@cmp
		lda	#1
@cmp		cmp	cMagOn			; do they match?
		beq	done
		
		ldx	#idMagOffRadio
		lda	cMagOff
		eor	#$0001
		sta	cMagOff
		jsr	UpdateControl

		ldx	#idMagOnRadio
		lda	cMagOn
		eor	#$0001
		sta	cMagOn
		jsr	UpdateControl	
done
		rts
		
;-----------------------------------------------
; In:	x = id of control
;	a = new value
;-----------------------------------------------

UpdateControl
		pha				; new value
		pha				; space for handle
		pha
		lda	NDAWinPtr+2
		pha
		lda	NDAWinPtr
		pha
		pea	0			; contol's ID
		phx
		_GetCtlHandleFromID		; handle is on stack
		_SetCtlValue			; update the control
		rts

		ENDP

*===============================================*
*	Draw the Contents of the NDA's Window	*
*						*
* In:	none					*
*						*
* Out:	none					*
*						*
*===============================================*

DrawWindow	PROC

		LONGA	ON
		LONGI	ON
		
		IMPORT	PicLocInfo:LocInfo
		IMPORT	IconLocInfo:LocInfo

		phb
		phk
		plb
		
; draw magnifying glass picture:

		pha
		_GetMasterSCB
		pla
		sta	PicLocInfo.portSCB
		sta	IconLocInfo.portSCB
		ldx	#iconWidth*4
		and	#$0080				; is it 640?
		bne	@set				; yes
		ldx	#iconWidth*2			; no, so adjust
@set
		stx	IconLocInfo.boundsRect.right

		pea	IconLocInfo>>16
		pea	IconLocInfo
		pea	IconLocInfo.boundsRect>>16
		pea	IconLocInfo.boundsRect
		pea	iconX1
		pea	iconY1
		pea	0
		_PPToPort
		
; draw version string:

		ldx	#iconX1+iWidth
		lda	IconLocInfo.portSCB
		and	#$0080			; is it 640?
		bne	@ok			; yes
		ldx	#iconX1+iWidth/2	; no, so adjust
@ok
		phx
		pea	iconY1+iHeight-1
		_MoveTo

		pea	strVersion>>16
		pea	strVersion
		_DrawString

; draw magnification string:

		pea	magX1
		pea	magY1
		_MoveTo

		pea	strMagnify>>16
		pea	strMagnify
		_DrawString

; draw copyright picture:

		ldx	#picWidth*4
		lda	PicLocInfo.portSCB
		and	#$0080				; is it 640?
		bne	@set2				; yes
		ldx	#picWidth*2			; no, so adjust
@set2
		stx	PicLocInfo.boundsRect.right

		lda	#CopyrightPic
		sta	PicLocInfo.ptrToPixImage
		lda	#CopyrightPic>>16
		sta	PicLocInfo.ptrToPixImage+2

		pea	PicLocInfo>>16
		pea	PicLocInfo
		pea	PicLocInfo.boundsRect>>16
		pea	PicLocInfo.boundsRect
		pea	mx			; point.h
		pea	wHeight-13		; point.v
		pea	0
		_PPToPort

; draw copyright string:

		ldx	#mx+20
		lda	IconLocInfo.portSCB
		and	#$0080			; is it 640?
		bne	@ok2			; yes
		ldx	#mx+10			; no, so adjust
@ok2
		phx
		pea	wHeight-6
		_MoveTo

		pea	strCopyright>>16
		pea	strCopyright
		_DrawString
		
; draw separator lines:

		ldx	#3
		lda	IconLocInfo.portSCB
		and	#$0080			; is it 640?
		bne	@ok3			; yes
		ldx	#1			; no, so adjust
@ok3
		phx
		pea	1
		_SetPenSize

		pea	0			; left line #1
		pea	offY1+12
		_MoveTo
		pea	cx
		pea	offY1+12
		_LineTo

		pea	0			; left line #2
		pea	whiteY1+11
		_MoveTo
		pea	wWidth
		pea	whiteY1+11
		_LineTo

		pea	cx			; center line
		pea	0
		_MoveTo
		pea	cx
		pea	whiteY1+11
		_LineTo

		pea	cx			; right line
		pea	pOffY1+11
		_MoveTo
		pea	wWidth
		pea	pOffY1+11
		_LineTo

; draw the controls last:

		pha
		pha
		_GetPort			; leave pointer on stack
		_DrawControls

		plb
		rtl

		ENDP

*===============================================*
*	Draw the Contents of the Help Window	*
*						*
* In:	none					*
*						*
* Out:	none					*
*						*
*===============================================*

DrawHelpWindow	PROC

		LONGA	ON
		LONGI	ON
		
		IMPORT	PicLocInfo:LocInfo

keyTextY	equ	hHeight-50		
keyTextX	equ	108		
arrowX		equ	71+10
tabX		equ	12

		phb
		phk
		plb
		
		pea	strHelpText1>>16
		pea	strHelpText1
		pea	EndHelpText1-strHelpText1
		pea	HelpRect1>>16
		pea	HelpRect1
		pea	0			; left justified
		_LETextBox

		pea	strHelpText2>>16
		pea	strHelpText2
		pea	EndHelpText2-strHelpText2
		pea	HelpRect2>>16
		pea	HelpRect2
		pea	0			; left justified
		_LETextBox

		pea	strHelpText3>>16
		pea	strHelpText3
		pea	EndHelpText3-strHelpText3
		pea	HelpRect3>>16
		pea	HelpRect3
		pea	0			; left justified
		_LETextBox
		
		pha
		_GetMasterSCB
		pla
		sta	PicLocInfo.portSCB
		ldx	#picWidth*4
		and	#$0080				; is it 640?
		bne	@set				; yes
		ldx	#picWidth*2			; no, so adjust
@set
		stx	PicLocInfo.boundsRect.right

; draw up arrow picture:

		lda	#UpArrowPic
		sta	PicLocInfo.ptrToPixImage
		lda	#UpArrowPic>>16
		sta	PicLocInfo.ptrToPixImage+2

		pea	PicLocInfo>>16
		pea	PicLocInfo
		pea	PicLocInfo.boundsRect>>16
		pea	PicLocInfo.boundsRect
		pea	arrowX			; point.h
		pea	keyTextY+19		; point.v
		pea	0
		_PPToPort

; draw down arrow picture:

		lda	#DownArrowPic
		sta	PicLocInfo.ptrToPixImage
		lda	#DownArrowPic>>16
		sta	PicLocInfo.ptrToPixImage+2

		pea	PicLocInfo>>16
		pea	PicLocInfo
		pea	PicLocInfo.boundsRect>>16
		pea	PicLocInfo.boundsRect
		pea	arrowX			; point.h
		pea	keyTextY+28		; point.v
		pea	0
		_PPToPort


		plb
		rtl

HelpRect1	dc.W	4,tabX,hHeight/2,hWidth
HelpRect2	dc.W	keyTextY,tabX,hHeight-2,keyTextX-10
HelpRect3	dc.W	keyTextY,keyTextX,hHeight-2,hWidth

		ENDP

*===============================================*
*	Open the Help Window			*
*						*
* In:	none					*
*						*
* Out:	none					*
*						*
*===============================================*

HelpWindow	PROC

		LONGA	ON
		LONGI	ON
		
		IMPORT	DrawHelpWindow
		IMPORT	WinParams:WindParamList
		IMPORT	TaskRecord:WMTask

helpFrameBits	EQU	fAlert+fVis+fCtlTie+fHilited
eventMask	EQU	mDownMask+mUpMask+keyDownMask


		pha				; space for result
		pea	eventMask		; event mask
		pea	0			; stop mask
		_FlushEvents			; remove any key/mouse events
		pla
		
		pha
		pha
		_GetPort			; save current port

		lda	#helpFrameBits
		sta	WinParams.wFrameBits

		lda	#hTop
		sta	WinParams.wPosition.top
		lda	#hBottom
		sta	WinParams.wPosition.bottom

		pha
		_GetMasterSCB
		ldy	#hLeft
		ldx	#hRight
		pla
		and	#$0080			; is it 640 ?
		bne	@set			; yes

		ldy	#hLeft320
		ldx	#hRight320
@set
		sty	WinParams.wPosition.left
		stx	WinParams.wPosition.right

		pha				; space for result (long)
		pha
		pea	WinParams>>16		; pointer to window params
		pea	WinParams
		_NewWindow
		pla
		plx
		bcs	@exit			; couldn't get window!
		sta	HelpWinPtr
		stx	HelpWinPtr+2

;		phx
;		pha
;		_SetPort
;
;		jsl	DrawHelpWindow

;--- wait for mouse click or key press:

@wait
		pha				; space for result
		pea	eventMask+updateMask	; mask
		pea	TaskRecord>>16		; event record pointer
		pea	TaskRecord
		_GetNextEvent
		pla
		beq	@wait

		lda	TaskRecord.wmEvent.what
		cmp	#updateEvt
		bne	@close
		
		lda	TaskRecord.wmEvent.message
		cmp	HelpWinPtr
		bne	@wait
		ldx	TaskRecord.wmEvent.message+2
		cpx	HelpWinPtr+2
		bne	@wait

		phx
		pha
		phx
		pha
		_BeginUpdate
		jsl	DrawHelpWindow
		_EndUpdate

		bra	@wait

@close
		lda	HelpWinPtr
		ldx	HelpWinPtr+2
		phx
		pha
		_CloseWindow
@exit
		_SetPort
		rts

		ENDP

		END                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            

		

\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CloseView/Patches.aii b/IIGS.601.SRC/A.U.G/CloseView/Patches.aii
new file mode 100644
index 0000000..7dc8fb0
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CloseView/Patches.aii
@@ -0,0 +1 @@
+************************************************************************************
*
* File:		Patches.aii
* Project:	Close View GS
* Author:	Don J. Brady
*
* Copyright © Apple Computer, Inc. 1989-1992
* All rights reserved.
*
************************************************************************************
*
* Modification History:
*
* 12/05/89	DJB	File created today
* 26-Aug-91	DAL	Support smooth-launch (fiddled with patches for QDStartUp
*			and ClearScreen)
* 3-Feb-92	DAL	ClearScreen patch checks whether QD is active, and becomes
*			transparent if not.
* 4-Feb-92	DAL	QDStartUp patch checks if we are being called from AWGS
*			1.1v2; if so, we disable ourselves.  Not compatible.
* 9-Feb-92	DAL	QDShutDown removes Run Queue; search for date for others.
*
************************************************************************************

  	IF	(&TYPE('DEBUG') = 'UNDEFINED') THEN 
DEBUG 	EQU	0
  	ENDIF

		PRINT	NOPAGE
		PRINT	NOGEN
		PRINT	OFF		

		INCLUDE	'M16.Memory'		; toolbox macros
		INCLUDE	'M16.Locator'
		INCLUDE	'M16.MiscTool'
		INCLUDE	'M16.Quickdraw'
		INCLUDE	'M16.Event'
		INCLUDE	'M16.Control'
		INCLUDE	'M16.Window'
		INCLUDE	'M16.Menu'
		INCLUDE	'M16.LineEdit'
		INCLUDE	'M16.Scheduler'
		INCLUDE	'M16.TextEdit'
		INCLUDE	'M16.Font'
		INCLUDE	'M16.Desk'

		INCLUDE	'E16.QuickDraw'		; toolbox equates
		INCLUDE	'E16.Event'
		INCLUDE	'E16.Window'
		INCLUDE	'CloseView.equ'

		PRINT	ON

;--- toolbox references:

QDToolSet	equ	$04
QDStartUp	equ	$0204			; QD routines that we patch
QDShutDown	equ	$0304
ClearScreen	equ	$1504
SetSCB		equ	$1204
GetSCB		equ	$1304
SetAllSCBs	equ	$1404
InitPort	equ	$1904
OpenPort	equ	$1804
HideCursor	equ	$9004
InvertRect	equ	$5604
SetCursor	equ	$8E04
SetColorEntry	equ	$1004
GetColorEntry	equ	$1104
SetColorTable	equ	$0E04
GetColorTable	equ	$0F04

ShieldCursor	equ	$E01E98			; QD vectors that we patch
DrawCursor	equ	$E01FCC
UnDrawCursor	equ	$E01FD0

ROM1DrawCursor	equ	$FE40C3			; ROM offsets (ick)
ROM3DrawCursor	equ	$FE53A7
ROM1UnDrawCursor equ	$FE41D8
ROM3UnDrawCursor equ	$FE54CA


EMToolSet	equ	$06
EMStartUp	equ	$0206			; EM routines that we patch
GetNextEvent	equ	$0A06
EventAvail	equ	$0B06
GetOSEvent	equ	$1606
OSEventAvail	equ	$1706
GetMouse	equ	$0C06
Button		equ	$0D06
StillDown	equ	$0E06
WaitMouseUp	equ	$0F06


;---  standard bottleneck procedures:

StdText		equ	$E01E04
StdLine		equ	$E01E08
StdRect		equ	$E01E0C
StdRRect	equ	$E01E10
StdOval		equ	$E01E14
StdArc		equ	$E01E18
StdPoly		equ	$E01E1C
StdRgn		equ	$E01E20
StdPixels	equ	$E01E24
StdComment	equ	$E01E28
StdTxMeas	equ	$E01E2C
StdTxBnds	equ	$E01E30
StdGetPic	equ	$E01E34
StdPutPic	equ	$E01E38

scLnIntHnd	equ	$0A
kybdIntHnd	equ	$0F
crsrUpdtHnd	equ	$18

IDROUTINE	equ	$FE1F			; firmware id routine


*===============================================*
*						*
* _QDStartUp Patch Routine			*
*						*
*===============================================*

MyQDStartUp	PROC

		LONGA	ON
		LONGI	ON

		IMPORT	CoreStartUp		; external routines
		IMPORT	ClearRealScreen
		IMPORT	PatchCursor
		IMPORT	Beep
		IMPORT	PatchFinder
		IMPORT	MySystemTask
		IMPORT	GetCVDefaults

		IMPORT	CVStat:CVStatusRec	; global data
		IMPORT	ScreenHandle
		IMPORT	QDStartUpVec
		IMPORT	MyUserID
		IMPORT	NeedToPost
		IMPORT	QDGlobals

aSave		SET	1			; my stack offsets
dSave		SET	aSave+2
bSave		SET	dSave+2

rtlAddr2	SET	bSave+1			; input parameter stack offsets
rtlAddr1	SET	rtlAddr2+3
userID		SET	rtlAddr1+3
maxWidth	SET	userID+2
masterSCB	SET	maxWidth+2
dPageAddr	SET	masterSCB+2

paramSize	SET	4*2
						

		phb				; save registers
		phd
		pha
		
		phk				; allow access to globals
		plb
		
		tsc				; make a stack frame
		tcd
		
		stz	CVStat.noScreen		; assume we'll get screen

*** added 4-Feb-92 DAL -- check for incompatible applications!
		lda 4+5,s
		tax
		lda 6+5,s
		and #$00ff
		jsr CheckAppCompatibility	;in: AX=caller's address, out=clc/sec
		bcs @notCompatible
*** end 4-Feb-92

		pha				; space for handle (long)
		pha		
		pea	0			; size of screen: $8000 (long)
		pea	$8000
		lda	MyUserID
		pha				; user id (word)
		pea	%0100000000000011	; attributes: fixed, fixed address and bank
		pea	VirtualScreen>>16	; screen address (long)
		pea	|VirtualScreen
		_NewHandle
		pla				; save the handle
		plx
		sta	ScreenHandle
		stx	ScreenHandle+2
		bcc	ok

;--- add task to alert user and disable menu:

@notCompatible

		inc	CVStat.noScreen		; no CloseView under current application!

		jsr	GetCVDefaults		; get defaults from BRAM

		lda	CVStat.wasOn
		sta	NeedToPost

		pea	MySystemTask>>16
		pea	MySystemTask
		_AddToRunQ

ok
		lda	<dPageAddr
		sta	QDGlobals
		
;;;		lda	<masterSCB
;;;		and	#$7FFF			; clr UseShadowing bit
;;;		sta	<masterSCB
*** optimized 4-Feb-92 DAL
		lda #$8000
		trb <masterSCB
*** end 4-Feb-92

;--- call QDStartUp:
		
		pei	<dPageAddr
		pei	<masterSCB
		pei	<maxWidth
		pei	<userID		
		sep	#$20			; pass callers rtl addr (3 bytes)
		lda	<rtlAddr1+2
		pha
		rep	#$20
		pei	<rtlAddr1
		lda	<aSave			; restore a-reg (WAP)
		jsl	QDStartUpVec
		sta	<aSave			; save error code
		
		tsc				; clean up stack
		clc
		adc	#3			; remove caller's rtl addr
		tcs
		
;--- do some post proccessing:

		lda	CVStat.noScreen
		bne	skip			; skip if we don't have a virtual screen

*** added 26-Aug-91 DAL -- if MasterSCB $0100 is set, don't clear screen
		lda <MasterSCB
		and #$0100
		bne @1
		jsr	ClearRealScreen
*** added 3-Dec-91 DAL -- if not clearing screen, copy it
		bra @done
@1
		pea $00e1
		pea $2000	;source = $00e12000
		pea $0001
		pea $2000	;dest = $00012000
		pea $0000
		pea $7d00	;length = $00007d00
		_BlockMove
@done
*** end 3-Dec-91
*** end 26-Aug-91
		jsr	PatchCursor
		jsr	CoreStartUp

*** Removed 9-Feb-92 DAL	
;		phd
;		lda	<dSave			; set DP to caller's DP (appl or _StartUpTools)
;		tcd
;		jsr	PatchFinder		; fix bug in Finder 1.3
;		pld
		
;--- clean up stack and return:

skip		
		lda	<rtlAddr1+1		; move up original rtl addrs
		sta	<rtlAddr1+paramSize+1
		lda	<rtlAddr1
		sta	<rtlAddr1+paramSize

		lda	<rtlAddr2+1
		sta	<rtlAddr2+paramSize+1
		lda	<rtlAddr2
		sta	<rtlAddr2+paramSize
		
		ldx	<aSave			; save a copy of error code in x

		pla				; unlink	
		pld
		plb
		tsc
		clc
		adc	#paramSize
		tcs

		txa				; get error code
		cmp	#1			; adjust carry flag
		rtl				; return to tool dispatcher

*** added 4-Feb-92 DAL

************************************************************************************
*
* CheckAppCompatibility
*
* Input: AX = return address from QDStartUp call
*
* Output: 
*
* Method:  Check the size of the calling block and the position of the
*          QDStartUp call within that block.
*
* The Bank register is already set to the program bank.
*
************************************************************************************
CheckAppCompatibility
		stx qdStartOffset

		pha
		pha	;space for FindHandle result
		pha
		phx
		_FindHandle
		plx
		pla
		beq @noHandle

		pha
		pha	;space for GetHandleSize result
		pha
		phx	;calling block's handle
***
		phd
		tsc
		tcd
		sec
		lda qdStartOffset
		sbc [3]
		sta qdStartOffset
		pld
***
		_GetHandleSize
		pla
		sta qdBlockSize
		pla

		ldx #badAppTableEnd-badAppTable-4
@search		lda qdBlockSize
		cmp badAppTable,x
		bne @next
		lda qdStartOffset
		cmp badAppTable+2,x
		bne @next
;		sec		;return SEC = bad
		rts

@next		dex
		dex
		dex
		dex
		bpl @search

@noHandle	clc
		rts

qdBlockSize	dc.w 0
qdStartOffset	dc.w 0

badAppTable	dc.w $8000,$0118
badAppTableEnd

*** end 4-Feb-92

		ENDP
		
*===============================================*
* _QDShutDown Patch Routine			*
*						*
*===============================================*

MyQDShutDown	PROC
		
		LONGA	ON
		LONGI	ON

		IMPORT	UnPatchCursor		; external routines
		IMPORT	RestoreSCBs
		IMPORT	UnPatchKeys
		IMPORT	CoreShutDown

		IMPORT	CVStat:CVStatusRec	; global data
		IMPORT	ScreenHandle
		IMPORT	QDShutDownVec
		import	MySystemTask
						
		phb				; save registers
		pha
		phx
		phy
		
		phk				; allow access to globals
		plb

*** added 9-Feb-92 DAL -- No point in notifying the user that the application
***   they used to be in was not compatible with CloseView.
		pea	MySystemTask>>16
		pea	MySystemTask
		_RemoveFromRunQ			; remove ourself from the queue
*** end 9-Feb-92

		lda	CVStat.noScreen		; did we have a virtual screen?
		bne	skip			; no, so skip

		jsr	UnPatchCursor
		jsr	CoreShutDown

		lda	ScreenHandle+2
		pha
		lda	ScreenHandle
		pha
		_DisposeHandle			; get rid of virtual screen
		stz	ScreenHandle
		stz	ScreenHandle+2
		lda	#1
		sta	CVStat.noScreen		; we gave it awayÉ
skip
		ply				; restore registers
		plx
		pla
		plb
		jmp	QDShutDownVec		; go to REAL QDShutDown
		
		ENDP

*===============================================*
* _EMStartUp Patch Routine			*
*						*
*===============================================*

MyEMStartUp	PROC

		LONGA	ON
		LONGI	ON

		IMPORT	PatchKeys		; external routines
		IMPORT	Refresh

		IMPORT	EMStartUpVec		; global data
		IMPORT	CVStat:CVStatusRec

aSave		SET	1			; my stack offsets
dSave		SET	aSave+2
bSave		SET	dSave+2

rtlAddr2	SET	bSave+1			; input parameter stack offsets
rtlAddr1	SET	rtlAddr2+3
userID		SET	rtlAddr1+3
yMaxClamp	SET	userID+2
yMinClamp	SET	yMaxClamp+2
xMaxClamp	SET	yMinClamp+2
xMinClamp	SET	xMaxClamp+2
queueSize	SET	xMinClamp+2
dPageAddr	SET	queueSize+2

paramSize	SET	7*2
						
						
		phb				; save registers
		phd
		pha
		
		phk				; allow short addressing (globals)
		plb
		
		tsc				; make a stack frame
		tcd
		
;--- call EMStartUp:
		
		pei	<dPageAddr
		pei	<queueSize
		pei	<xMinClamp
		pei	<xMaxClamp
		pei	<yMinClamp
		pei	<yMaxClamp
		pei	<userID		
		sep	#$20			; pass callers rtl addr (3 bytes)
		lda	<rtlAddr1+2
		pha
		rep	#$20
		pei	<rtlAddr1
		lda	<aSave			; restore a-reg (WAP)
		jsl	EMStartUpVec
		sta	<aSave
		
		tsc				; clean up stack
		clc
		adc	#3			; remove caller's rtl addr
		tcs
		
;--- do some post proccessing:

		lda	CVStat.noScreen		; did we get a screen?
		bne	skip			; no, so skip

		jsr	PatchKeys
		jsr	Refresh
skip		
		lda	<rtlAddr1+1		; move up original rtl addrs
		sta	<rtlAddr1+paramSize+1
		lda	<rtlAddr1
		sta	<rtlAddr1+paramSize

		lda	<rtlAddr2+1
		sta	<rtlAddr2+paramSize+1
		lda	<rtlAddr2
		sta	<rtlAddr2+paramSize
		
		ldx	<aSave			; save a copy of error code in x

		pla				; unlink	
		pld
		plb
		tsc
		clc
		adc	#paramSize
		tcs

		txa				; get error code
		cmp	#1			; adjust carry flag
		rtl				; return to tool dispatcher
		
		ENDP
		
*===============================================*
* _ClearScreen Patch Routine			*
*						*
*===============================================*

MyClearScreen	PROC
		
		LONGA	ON
		LONGI	ON

		IMPORT	CVStat:CVStatusRec	; global data
		IMPORT	ClearScreenVec

bSave		set	1			; stack offsets
aSave		set	bSave+1

rtlAddr2	set	aSave+2
rtlAddr1	set	rtlAddr2+3
colorWord	set	rtlAddr1+3


		phb				; save registers
		pha		

*** added 3-Feb-92 DAL -- if QD isn't active yet, pass ClearScreen straight through
		tax
		beq real
*** end 3-Feb-92

		lda	>CVStat.noScreen	; do we have a virtual screen?
		bne	real			; no

*** added 26-Aug-91 DAL -- if MasterSCB bit $0100 is on, a smooth launch is
*** in progress, so we should not do much of anything
		pha
		_GetMasterSCB
		pla
		and #$0100
		bne real
*** end 26-Aug-91 DAL

		_HideCursor

		pea	$0101			; push on the bank of virtual screen
		plb				; set bank twice to
		plb				; clear stack

		lda	colorWord,s
		ldx	#160*200-2
@loop
		sta	|VirtualScreen,x
		dex
		dex
		bpl	@loop
		
		_ShowCursor

		lda	rtlAddr1+1,s		; move up rtl addresses
		sta	rtlAddr1+1+2,s
		lda	rtlAddr1,s
		sta	rtlAddr1+2,s
		lda	rtlAddr2+1,s
		sta	rtlAddr2+1+2,s
		lda	rtlAddr2,s
		sta	rtlAddr2+2,s
		
		pla				; restore registers
		plb

		pla				; remove input param
		lda	#0			; no errors
		clc
		rtl

;--- call real routine instead:
real
		pla				; restore registers
		plb
		jmp	ClearScreenVec		; go to REAL ClearScreen
		
		ENDP

*===============================================*
* _SetSCB Patch Routine				*
*						*
*===============================================*

MySetSCB	PROC
		
		LONGA	ON
		LONGI	ON

		IMPORT	CVStat:CVStatusRec	; global data
		IMPORT	ChangeSCBs
		IMPORT	VirtualSCBs
		IMPORT	SetSCBVec

rtlAddr2	set	1			; stack offsets
rtlAddr1	set	rtlAddr2+3
newSCB		set	rtlAddr1+3
scanLine	set	newSCB+2


		pha				; save a-reg
		lda	>CVStat.magnify
		beq	skip			; skip patch when NOT (magnify AND enabled)
		lda	>CVStat.enabled
		beq	skip
		pla				; discard saved a-reg

		lda	scanLine,s
		cmp	#200
		bcc	ok
		ldx	#$0452
		bra	done			; bad scan line error
ok
		tax
		lda	newSCB,s
		
		sep	#$20			; only store one byte
		sta	>VirtualSCBs,x
		rep	#$20
		
		lda	#1
		sta	>ChangeSCBs		; force update later
		
		ldx	#0			; no errors
done		
		lda	rtlAddr1+1,s		; move up rtl addresses
		sta	rtlAddr1+1+4,s
		lda	rtlAddr1,s
		sta	rtlAddr1+4,s
		lda	rtlAddr2+1,s
		sta	rtlAddr2+1+4,s
		lda	rtlAddr2,s
		sta	rtlAddr2+4,s
		
		pla				; remove input params
		pla

		txa				; pass back error code
		cmp	#1
		rtl

;--- call real routine instead:
skip
		pla				; restore a-reg
		jmp	SetSCBVec		; go to REAL SetSCB
		
		ENDP

*===============================================*
* _SetAllSCBs Patch Routine			*
*						*
*===============================================*

MySetAllSCBs	PROC
		
		LONGA	ON
		LONGI	ON

		IMPORT	CVStat:CVStatusRec	; global data
		IMPORT	ChangeSCBs
		IMPORT	VirtualSCBs
		IMPORT	SetAllSCBsVec
		IMPORT	ModeSwitch

rtlAddr2	set	1			; stack offsets
rtlAddr1	set	rtlAddr2+3
newSCB		set	rtlAddr1+3


		pha				; save a-reg

		lda	>CVStat.enabled 	; skip patch when NOT enabled
		beq	skip
			
		lda	newSCB+2,s
		and	#$0080			; mask out 640 bit
		pha				; save result on stack

		lda	>CVStat.magnify
		bne	@mag
		lda	>SCBData		; check it against a real SCB
		bra	@mask
@mag
		lda	>VirtualSCBs		; check it against a virtual SCB
@mask
		and	#$0080			; mask out 640 bit
		cmp	1,s			; are they the same?
		beq	same			; yes, so skip	

		lda	#1
		sta	>ModeSwitch		; tell core that we're switching modes
same
		pla				; remove scratch space
		
		lda	>CVStat.magnify
		beq	skip			; skip rest of patch when NOT magnify

		pla				; discard saved a-reg

		lda	newSCB,s

		sep	#$20
		LONGA	OFF

		ldx	#200-2
@loop
		sta	>VirtualSCBs,x		; save as virtual SCBs
		dex
		bpl	@loop

		rep	#$20
		LONGA	ON		

		lda	#1
		sta	>ChangeSCBs		; force update later
		
		ldx	#0			; no errors
done		
		lda	rtlAddr1+1,s		; move up rtl addresses
		sta	rtlAddr1+1+2,s
		lda	rtlAddr1,s
		sta	rtlAddr1+2,s
		lda	rtlAddr2+1,s
		sta	rtlAddr2+1+2,s
		lda	rtlAddr2,s
		sta	rtlAddr2+2,s
		
		pla				; remove input param

		txa				; pass back error code
		cmp	#1
		rtl

;--- call real routine instead:
skip
		pla				; restore a-reg
		jmp	SetAllSCBsVec		; go to REAL SetAllSCBs
		
		ENDP

*===============================================*
* _GetSCB Patch Routine				*
*						*
*===============================================*

MyGetSCB	PROC
		
		LONGA	ON
		LONGI	ON

		IMPORT	CVStat:CVStatusRec	; global data
		IMPORT	VirtualSCBs
		IMPORT	GetSCBVec

rtlAddr2	set	1			; stack offsets
rtlAddr1	set	rtlAddr2+3
scanLine	set	rtlAddr1+3
scbData		set	scanLine+2

paramSize	set	2


		pha				; save a-reg
		lda	>CVStat.magnify
		beq	skip			; skip patch when NOT (magnify AND enabled)
		lda	>CVStat.enabled
		beq	skip
		pla				; discard saved a-reg

		lda	scanLine,s
		cmp	#200
		bcc	ok
		ldx	#$0452
		bra	done			; bad scan line error
ok
		tax
		lda	>VirtualSCBs,x
		and	#$00FF
		sta	scbData,s		
		ldx	#0			; no errors
done		
		lda	rtlAddr1+1,s		; move up rtl addresses
		sta	rtlAddr1+1+paramSize,s
		lda	rtlAddr1,s
		sta	rtlAddr1+paramSize,s
		lda	rtlAddr2+1,s
		sta	rtlAddr2+1+paramSize,s
		lda	rtlAddr2,s
		sta	rtlAddr2+paramSize,s
		
		pla				; remove input param

		txa				; pass back error code
		cmp	#1
		rtl

;--- call real routine instead:
skip
		pla				; restore a-reg
		jmp	GetSCBVec		; go to REAL GetSCB
		
		ENDP

*===============================================*
* _OpenPort & _InitPort Patch Routines		*
*						*
*===============================================*

MyOpenPort	PROC

		LONGA	ON
		LONGI	ON

		IMPORT	Temp			; global data
		IMPORT	OpenPortVec
		IMPORT	InitPortVec
		IMPORT	CVStat:CVStatusRec

rtlAddrB	SET	1
rtlAddrA	SET	rtlAddrB+3
portPtrCopy	SET	rtlAddrA+3
aSave		SET	portPtrCopy+4
frameSize	SET	aSave+2-rtlAddrB

rtlAddr2	SET	aSave+2			; input parameter stack offsets
rtlAddr1	SET	rtlAddr2+3
portPtr		SET	rtlAddr1+3
						
		pha				; save a-reg register
		lda	#$0000
		sta	>Temp
		bra	start

;-----------------------------------------------		
		ENTRY	MyInitPort
MyInitPort		
		pha				; save a-reg register
		lda	#$FFFF
		sta	>Temp

;-----------------------------------------------		
start		
		tsc				; space for new stack frame
		sec
		sbc	#frameSize-2
		tcs
						
		lda	portPtr,s		; copy the port pointer
		sta	portPtrCopy,s
		lda	portPtr+2,s
		sta	portPtrCopy+2,s
		
		lda	rtlAddr1+1,s		; copy the caller's addr
		sta	rtlAddrA+1,s
		lda	rtlAddr1,s
		sta	rtlAddrA,s
		
		lda	#(Continue-1)>>8	; set rtl address to us
		sta	rtlAddrB+1,s
		lda	#(Continue-1)
		sta	rtlAddrB,s
		
		lda	aSave,s			; restore a register

		lda	>Temp
		bne	@init

		lda	aSave,s			; restore a register
		jmp	OpenPortVec		; go to REAL OpenPort

@init		lda	aSave,s			; restore a register
		jmp	InitPortVec		; go to REAL InitPort

;-----------------------------------------------	
Continue

dpSave		SET	1			; my new stack offsets
aSave		SET	dpSave+2
rtlAddrB	SET	aSave+2
aSaveOld	SET	rtlAddrB+3

rtlAddr2	SET	aSaveOld+2		; original input parameter stack offsets
rtlAddr1	SET	rtlAddr2+3
portPtr		SET	rtlAddr1+3

		pha				; save error code
		phd				; save dp-reg	
		tsc
		tcd				; make a frame
		

;--- change the port's LocInfo -----------------

		lda	>CVStat.noScreen	; is there a virtual screen
		bne	skip			; no, so skip

		ldy	#3
		lda	#$0120			; move port image to bank $01 (was at $E1)
		sta	[<portPtr],y

;--- done with changes -------------------------

skip
		lda	rtlAddr1+1,s		; move up original rtl addrs (by 4)
		sta	rtlAddr1+1+4,s
		lda	rtlAddr1,s
		sta	rtlAddr1+4,s

		lda	rtlAddr2+1,s
		sta	rtlAddr2+1+4,s
		lda	rtlAddr2,s
		sta	rtlAddr2+4,s
		
		lda	aSave,s			; save a copy of error code
		sta	aSaveOld+4,s

		pld				; restore dp-reg

		tsc				; remove garbage from stack
		clc
		adc	#4+3+2
		tcs

		pla				; restore a-reg		
		cmp	#1			; restore carry flag
		rtl				; return to caller
		
		ENDP
		
*===============================================*
* _SetColorEntry Patch Routine			*
*						*
*===============================================*

MySetColorEntry	PROC
		
		LONGA	ON
		LONGI	ON
		
aSave		set	1
rtlAddr2	set	aSave+2			; stack offsets
rtlAddr1	set	rtlAddr2+3
newColor	set	rtlAddr1+3
entryNumber	set	newColor+2
tableNumber	set	entryNumber+2

		IMPORT	CVStat:CVStatusRec	; global data
		IMPORT	SetColorEntryVec

		
		pha				; save a

;--- IF enabled AND (NOT magnify) AND invert THEN flip color

		lda	>CVStat.enabled
		beq	skip
		lda	>CVStat.magnify
		bne	skip
		lda	>CVStat.invert
		beq	skip
		
		lda	newColor,s		; if color is black or white then flip it
		and	#$0FFF
		beq	flip			; $000 is black
		cmp	#$0FFF			; $FFF is white
		bne	skip			; ignore everything else
flip
		eor	#$0FFF
		sta	newColor,s
skip
		pla				; restore a
		jmp	SetColorEntryVec	; go to REAL SetColorEntry
		
		ENDP

*===============================================*
* _GetColorEntry Patch Routine			*
*						*
*===============================================*

MyGetColorEntry	PROC
		
		LONGA	ON
		LONGI	ON
		
dSave		SET	1			; my stack offsets
bSave		SET	dSave+2
aSave		SET	bSave+1

rtlAddr2	SET	aSave+2			; input parameter stack offsets
rtlAddr1	SET	rtlAddr2+3
entryNumber	set	rtlAddr1+3
tableNumber	set	entryNumber+2
result		set	tableNumber+2

paramSize	SET	2*2

		IMPORT	CVStat:CVStatusRec	; global data
		IMPORT	GetColorEntryVec


		
		pha

;--- IF enabled AND (NOT magnify) AND invert THEN flip color

		lda	>CVStat.enabled
		beq	skip
		lda	>CVStat.magnify
		bne	skip
		lda	>CVStat.invert
		beq	skip

		phb				; save registers
		phd
		
		phk				; allow access to globals
		plb
		
		tsc				; make a stack frame
		tcd

		pha				; space for result
		pei	<tableNumber
		pei	<entryNumber
		sep	#$20
		lda	<rtlAddr1+2
		pha
		rep	#$20
		pei	<rtlAddr1
		lda	<aSave			; restore a-reg (WAP)
		jsl	GetColorEntryVec
		sta	<aSave			; save error code
		
		tsc
		clc
		adc	#5			; remove result and callers rtl address
		tcs
		
; now do some post processing:

		lda	<result			; if color is black or white then flip it
		and	#$0FFF
		beq	flip			; $000 is black
		cmp	#$0FFF			; $FFF is white
		bne	done			; ignore everything else
flip
		eor	#$0FFF
		sta	<result

; --- clean up and return:
done		
		lda	<rtlAddr1+1		; move up original rtl addrs
		sta	<rtlAddr1+paramSize+1
		lda	<rtlAddr1
		sta	<rtlAddr1+paramSize

		lda	<rtlAddr2+1
		sta	<rtlAddr2+paramSize+1
		lda	<rtlAddr2
		sta	<rtlAddr2+paramSize
		
		ldx	<aSave			; save a copy of error code in x

		pld				; unlink	
		plb
		pla
		tsc
		clc
		adc	#paramSize
		tcs

		txa				; get error code
		cmp	#1			; adjust carry flag
		rtl				; return to tool dispatcher

;--- don't do any patching:
skip
		pla				; restore a
		jmp	GetColorEntryVec	; go to REAL GetColorEntry
		
		ENDP


*===============================================*
* _SetColorTable Patch Routine			*
*						*
*===============================================*

MySetColorTable	PROC
		
		LONGA	ON
		LONGI	ON
		
ySave		set	1			; stack offsets
aSave		set	ySave+2
dSave		set	aSave+2
bSave		set	dSave+2
rtlAddr2	set	bSave+1
rtlAddr1	set	rtlAddr2+3
srcTablePtr	set	rtlAddr1+3
tableNumber	set	srcTablePtr+4

		IMPORT	CVStat:CVStatusRec	; global data
		IMPORT	TempColorTable
		IMPORT	SetColorTableVec


		phb
		phd
		pha
		phy
		
		phk
		plb
		
;--- IF enabled AND (NOT magnify) AND invert THEN flip colors

		lda	CVStat.enabled
		beq	skip
		lda	CVStat.magnify
		bne	skip
		lda	CVStat.invert
		beq	skip

		tsc				; make a stack frame
		tcd
		
		ldy	#32-2
@loop		
		lda	[<srcTablePtr],y	; if color is black or white then flip it
		and	#$0FFF
		beq	@flip			; $000 is black
		cmp	#$0FFF			; $FFF is white
		bne	@ok			; ignore everything else
@flip		eor	#$0FFF
@ok		sta	TempColorTable,y
		dey
		dey
		bpl	@loop
		
		lda	#TempColorTable		; change pointer to our table
		sta	<srcTablePtr
		lda	#TempColorTable>>16
		sta	<srcTablePtr+2

skip		
		ply
		pla
		pld
		plb
		jmp	SetColorTableVec	; go to REAL SetColorTable
		
		ENDP

*===============================================*
* _GetColorTable Patch Routine			*
*						*
*===============================================*

MyGetColorTable	PROC
		
		LONGA	ON
		LONGI	ON

dSave		set	1			; stack offsets
rtlAddr2	set	dSave+2
rtlAddr1	set	rtlAddr2+3
destTablePtr	set	rtlAddr1+3
tableNumber	set	destTablePtr+4

paramSize	set	6

		IMPORT	CVStat:CVStatusRec	; global data
		IMPORT	GetColorTableVec

		pha

;--- IF enabled AND (NOT magnify) AND invert THEN flip colors

		lda	>CVStat.enabled
		beq	skip
		lda	>CVStat.magnify
		bne	skip
		lda	>CVStat.invert
		beq	skip

		pla
		phd
		
		tsc				; make a stack frame
		tcd
		
		lda	<tableNumber
		inc	a
		asl	a			; ((a + 1) * 32) - 2
		asl	a
		asl	a
		asl	a
		asl	a
		dec	a
		dec	a
		tax

		ldy	#32-2
@loop
		lda	>ColorTableData,x	; if color is black or white then flip it
		and	#$0FFF
		beq	@flip			; $000 is black
		cmp	#$0FFF			; $FFF is white
		bne	@ok			; ignore everything else
@flip
		eor	#$0FFF
@ok
		sta	[<destTablePtr],y
		dex
		dex
		dey
		dey
		bpl	@loop

		lda	<rtlAddr1+1		; move up original rtl addrs
		sta	<rtlAddr1+paramSize+1
		lda	<rtlAddr1
		sta	<rtlAddr1+paramSize

		lda	<rtlAddr2+1
		sta	<rtlAddr2+paramSize+1
		lda	<rtlAddr2
		sta	<rtlAddr2+paramSize

		pld				; clean up stack
		pla
		pla
		pla

		lda	#0			; return no error
		clc
		rtl

; don't patch:
skip
		pla
		jmp	GetColorTableVec	; just go to REAL GetColorTable

		ENDP

*===============================================*
* _InvertRect Patch Routine			*
*						*
*===============================================*

MyInvertRect	PROC

		LONGA	ON
		LONGI	ON

ySave		SET	1			; stack offsets
xSave		SET	ySave+2	
aSave		SET	xSave+2
dSave		SET	aSave+2
bSave		SET	dSave+2

rtlAddr2	SET	bSave+1			; input parameter stack offsets
rtlAddr1	SET	rtlAddr2+3
rectPtr		SET	rtlAddr1+3


		IMPORT	InvertRectVec
		IMPORT	RecordIBar
		IMPORT	Temp:Rect
		IMPORT	CVStat:CVStatusRec


		phb				; save registers
		phd
		pha
		phx
		phy

		phk				; use local addresses
		plb
		
		lda	CVStat.enabled
		beq	skip

		tsc				; make a stack frame
		tcd


		ldy	#6
@loop
		lda	[<rectPtr],y		; get a copy of the rect
		sta	Temp,y
		dey
		dey
		bpl	@loop
		
		lda	Temp.right		; could this be an insertion bar?
		sec
		sbc	Temp.left
		cmp	#1
		bne	skip			; nope, too fat
		
		jsr	RecordIBar
skip		
		ply				; restore registers
		plx
		pla
		pld
		plb

		jmp	InvertRectVec		; go to REAL InvertRect
	
		ENDP

*===============================================*
* _SetCursor Patch Routine			*
*						*
*===============================================*

MySetCursor	PROC

		LONGA	ON
		LONGI	ON
		
		IMPORT	SetCursorVec
		IMPORT	ChangeCursor
		IMPORT	DirtyScreen

		pha				; save a-reg
		
		lda	#1
		sta	>ChangeCursor		; remember to update later
		sta	>DirtyScreen		

		pla				; restore a-reg
		jmp	SetCursorVec		; go to REAL SetCursor
	
		ENDP


*===============================================*
*						*
* In:	Temp has IBar rect			*
* Out:	IBarFound, IBarHeight, IBarPt		*
*						*
*===============================================*

RecordIBar	PROC

		LONGA	ON
		LONGI	ON

minHeight	SET	3
maxHeight	SET	40

		IMPORT	IBarFound		; global data
		IMPORT	IBarHeight
		IMPORT	IBarPt:Point
		IMPORT	Temp:Rect

		lda	Temp.top
		cmp	Temp.bottom
		bcc	ok
		ldx	Temp.bottom		; switch them
		stx	Temp.top
		sta	Temp.bottom
ok
		lda	Temp.bottom
		sec
		sbc	Temp.top		; a <-- height of  insertion bar
		cmp	#minHeight
		bcc	exit			; too short
		cmp	#maxHeight+1
		bcs	exit			; too tall
		sta	IBarHeight
		lsr	a
		
		clc
		adc	Temp.top
		sta	IBarPt.v		; mid point

		lda	Temp.left
		sta	IBarPt.h
		
		pea	IBarPt>>16
		pea	IBarPt
		_LocalToGlobal

		lda	#1
		sta	IBarFound	
exit
		rts
		
		ENDP
		
*===============================================*
* _GetNextEvent Patch Routine			*
*						*
*===============================================*

MyGetNextEvent	PROC

		LONGA	ON
		LONGI	ON

		IMPORT	Refresh
		IMPORT	GetNextEventVec
		
		pha				; save registers
		phx
		phy
		
		jsr	Refresh
		
		ply				; restore registers
		plx
		pla

		jmp	GetNextEventVec		; go to REAL GetNextEvent

		ENDP

*===============================================*
* _GetOSEvent Patch Routine			*
*						*
*===============================================*

MyGetOSEvent	PROC

		LONGA	ON
		LONGI	ON

		IMPORT	Refresh
		IMPORT	GetOSEventVec

		pha				; save registers
		phx
		phy
		
		jsr	Refresh
		
		ply				; restore registers
		plx
		pla

		jmp	GetOSEventVec		; go to REAL GetOSEvent
		
		
		ENDP

*===============================================*
* _EventAvail Patch Routine			*
*						*
*===============================================*

MyEventAvail	PROC

		LONGA	ON
		LONGI	ON

		IMPORT	Refresh
		IMPORT	EventAvailVec

		pha				; save registers
		phx
		phy
		
		jsr	Refresh
		
		ply				; restore registers
		plx
		pla

		jmp	EventAvailVec		; go to REAL EventAvail
		
		
		ENDP

*===============================================*
* _OSEventAvail Patch Routine			*
*						*
*===============================================*

MyOSEventAvail	PROC

		LONGA	ON
		LONGI	ON

		IMPORT	Refresh
		IMPORT	OSEventAvailVec

		pha				; save registers
		phx
		phy
		
		jsr	Refresh
		
		ply				; restore registers
		plx
		pla

		jmp	OSEventAvailVec		; go to REAL OSEventAvail
		
		
		ENDP

*===============================================*
* _GetMouse Patch Routine			*
*===============================================*

MyGetMouse	PROC

		LONGA	ON
		LONGI	ON

		IMPORT	Refresh
		IMPORT	GetMouseVec
		
		pha				; save registers
		phx
		phy
		
		jsr	Refresh		

		ply				; restore registers
		plx
		pla

		jmp	GetMouseVec		; go to REAL GetMouse
		
		ENDP
		
*===============================================*
* _Button Patch Routine				*
*===============================================*

MyButton	PROC

		LONGA	ON
		LONGI	ON

		IMPORT	Refresh
		IMPORT	ButtonVec
		
		pha				; save registers
		phx
		phy
		
		jsr	Refresh		

		ply				; restore registers
		plx
		pla

		jmp	ButtonVec		; go to REAL Button
		
		ENDP

*===============================================*
* _StillDown Patch Routine			*
*===============================================*

MyStillDown	PROC

		LONGA	ON
		LONGI	ON

		IMPORT	Refresh
		IMPORT	StillDownVec
		
		pha				; save registers
		phx
		phy
		
		jsr	Refresh		

		ply				; restore registers
		plx
		pla

		jmp	StillDownVec		; go to REAL StillDown
		
		ENDP
		
*===============================================*
* _WaitMouseUp Patch Routine			*
*===============================================*

MyWaitMouseUp	PROC

		LONGA	ON
		LONGI	ON

		IMPORT	Refresh
		IMPORT	WaitMouseUpVec
		
		pha				; save registers
		phx
		phy
		
		jsr	Refresh		

		ply				; restore registers
		plx
		pla

		jmp	WaitMouseUpVec		; go to REAL WaitMouseUp
		
		ENDP

*===============================================*
* _*BootInit Patch Routine			*
*						*
*===============================================*

MyBootInit	PROC

		LONGA	ON
		LONGI	ON

		rtl				; just return
		
		ENDP

*===============================================*
* Patch for QD's ShieldCursor routine		*
*===============================================*

MyShieldCursor	PROC
	
		LONGA	ON
		LONGI	ON

minRect		SET	0
top		SET	0
left		SET	top+2
bottom		SET	left+2
right		SET	bottom+2

		IMPORT	RealShieldCursor	; global data
		IMPORT	DirtyScreen
		IMPORT	CVStat:CVStatusRec
		IMPORT	IBarOn
		IMPORT	IBarFound
		IMPORT	LastMinRect:Rect
		IMPORT	Temp:Rect

		IMPORT	Refresh			; external routines
		IMPORT	RecordIBar
		IMPORT	AddRefreshTask


		phb				; save registers
		pha
		phx
		phy
		
		phk
		plb

; IF enabled THEN...		

		lda	CVStat.enabled		
		bne	ok
		brl	done
ok
		lda	#1
		sta	DirtyScreen		; virtual screen has new data
		
		lda	IBarOn			; are we looking for an insertion bar?
		beq	task
		lda	IBarFound
		bne	task
		
		lda	<minRect+right
		sec
		sbc	<minRect+left
		cmp	#1
		bne	task
		
		lda	<minRect+top
		cmp	LastMinRect.top
		bne	skip
		sta	Temp.top
		lda	<minRect+left
		cmp	LastMinRect.left
		bne	skip
		sta	Temp.left
		lda	<minRect+bottom
		cmp	LastMinRect.bottom
		sta	Temp.bottom
		bne	skip
		lda	<minRect+right
		cmp	LastMinRect.right
		bne	skip
		sta	Temp.right
		
		pea	0
		_TEStatus			; only do this awlful kludge if TextEdit active
		pla
		beq	skip

		jsr	RecordIBar
skip
		lda	<minRect+top
		sta	LastMinRect.top
		lda	<minRect+left
		sta	LastMinRect.left
		lda	<minRect+bottom
		sta	LastMinRect.bottom
		lda	<minRect+right
		sta	LastMinRect.right
task
		jsr	AddRefreshTask		; add post QD drawing task

; ...ENDIF		
done
		ply				; restore registers
		plx
		pla
		plb
		jmp	RealShieldCursor

		ENDP

*===============================================*
*	Add a task to refresh us again		*
*===============================================*

AddRefreshTask	PROC	EXPORT

		LONGA	ON
		LONGI	ON

		IMPORT	TaskInQueue		; global data

		IMPORT	Refresh			; external routines

		lda	>TaskInQueue
		bne	done			; already in queue		

		pha
		pea	RefreshTask>>16
		pea	RefreshTask
		_SchAddTask			; add a task to refresh later
		pla
		bcs	done
		sta	>TaskInQueue
done
		rts
		
;-----------------------------------------------
RefreshTask


		php
		cli				; bug in scheduler turns interrrupts off

		lda	#0
		sta	>TaskInQueue

		jsr	Refresh
	
		plp
		rtl

		ENDP

*===============================================*
* Patch for QD's DrawCursor routine		*
*===============================================*

MyDrawCursor	PROC

		LONGA	ON
		LONGI	ON		


		IMPORT	DirtyMouse
		IMPORT	CursorOff
		IMPORT	NextMouse:Point
		IMPORT	CVStat:CVStatusRec
		IMPORT	ROMVersion
		
		lda	>CVStat.enabled		; IF enabled THEN ...
		beq	skip

		lda	>CursorOff
		bne	abort

		lda	#1
		sta	>DirtyMouse

; remember this cursor position:

		lda	>EMYPos			; current mouse Y
		sta	>NextMouse.v
		lda	>EMXPos			; current mouse X
		sta	>NextMouse.h
skip
		phb
		pea	$0101			; virtual screen is in bank $01
		plb
		plb
		
		lda	>ROMVersion
		cmp	#3
		beq	@rom3
		cmp	#1
		beq	@rom1
		plb
		bra	abort
@rom1
		jml	ROM1DrawCursor
@rom3
		jml	ROM3DrawCursor

abort						; don't draw a cursor yet
		clc
		rtl

		ENDP

*===============================================*
* Patch for QD's UnDrawCursor routine		*
*===============================================*

MyUnDrawCursor	PROC

		LONGA	ON
		LONGI	ON

		IMPORT	DirtyMouse
		IMPORT	CursorOff
		IMPORT	CVStat:CVStatusRec
		IMPORT	ROMVersion

		lda	>CVStat.enabled		; IF enabled THEN ...
		beq	skip

		lda	>CursorOff		; if CursorOff then don't undraw
		bne	abort

		lda	#1
		sta	>DirtyMouse
skip
		phb
		pea	$0101			; virtual screen is in bank $01
		plb
		plb

		lda	>ROMVersion
		cmp	#3
		beq	@rom3
		cmp	#1
		beq	@rom1
		plb
		bra	abort
@rom1
		jml	ROM1UnDrawCursor
@rom3
		jml	ROM3UnDrawCursor

abort						; don't undraw cursor yet
		clc
		rtl
		
		ENDP
		
*===============================================*
* _HideCursor Patch Routine			*
*===============================================*

MyHideCursor	PROC

		LONGA	ON
		LONGI	ON
		
		IMPORT	DirtyScreen
		IMPORT	HideCursorVec

		pha				; save a-reg
		
		lda	#1
		sta	>DirtyScreen		

		pla				; restore a-reg

		jmp	HideCursorVec		; go to REAL HideCursor
		
		ENDP

*===============================================*
* Patch for cursor update handler		*
*						*
* IN:	none					*
* OUT:	carry clr if we handled key		*
*===============================================*

MyCursorUpdate	PROC

		LONGA	OFF			; called in 8-bit mode!
		LONGI	OFF

		IMPORT	CursorUpdateVec
		IMPORT	CVStat:CVStatusRec
		IMPORT	CursorOff
		IMPORT	DirtyMouse
		IMPORT	NextMouse:Point
		
		lda	>CVStat.enabled		; IF enabled AND magnify THEN ...
		beq	skip
		lda	>CVStat.magnify
		beq	skip

		lda	>DirtyMouse
		beq	skip

		lda	#1
		sta	>CursorOff

		jsl	CursorUpdateVec	 	; visit real routine						

		lda	#0
		sta	>CursorOff
		rtl

skip

		jmp	CursorUpdateVec	 	; jump to real routine						


		ENDP

*===============================================*
* Patch for keyboard interupt handler		*
*						*
* IN:	none					*
* OUT:	carry clr if we handled key		*
*===============================================*

KeyFilter	PROC

		LONGA	OFF			; called in 8-bit mode!
		LONGI	OFF

		IMPORT	Change			; global variables used
		IMPORT	CVStat:CVStatusRec	
		IMPORT	KeyboardVec
		IMPORT	IBarOn
		IMPORT	IBarFound
			

mApple		equ	$80
mOption		equ	$40
mControl	equ	$20
mShift		equ	$10

upArrow		equ	$0B
downArrow	equ	$0A


; first check modifiers
			
		lda	>KEYMODREG
		and	#mApple+mOption+mShift+mControl
		cmp	#mApple+mOption
		beq	@check

; should we track insertion bar?

		and	#mApple+mControl
		bne	@skip			; if Apple or Control then skip
		lda	>KBD
		bpl	@skip			; no key if hi bit not set

		lda	#1
		sta	>IBarOn
		lda	#0
		sta	>IBarFound
		bra	@skip

; now check for a key
@check
		lda	>CVStat.usekeys		; do we use key equivalents?
		beq	@skip			; no, so skip

		lda	>KBD
		bpl	@skip			; key is only valid if hi bit set
		and	#$7F
		cmp	#'o'
		beq	@o
		cmp	#'O'
		beq	@o
		cmp	#'x'
		beq	@x
		cmp	#'X'
		beq	@x
		cmp	#'i'
		beq	@i
		cmp	#'I'
		beq	@i
		cmp	#upArrow
		beq	@up
		cmp	#downArrow
		beq	@down		
@skip
		jmp	KeyboardVec	 	; jump to real routine						

@o
		lda	#cfOnOff
		bra	@change
@x
		lda	#cfMagnify
		bra	@change
@up
		lda	#cfPowerUp
		bra	@change
@down
		lda	#cfPowerDown
		bra	@change
@i		
		lda	#cfInvert
@change			
		ora	>Change
		sta	>Change			; just set the bits here, handle it later
@exit			
		sta	>KBDSTRB		; clear key strobe
		clc				; carry clear = we handled this interrupt
		rtl

		ENDP

*===============================================*
* Patch for StdLine bottleneck procedure	*
*===============================================*

MyStdLine	PROC

		LONGA	ON
		LONGI	ON

portRef		SET	$24

pnSizeX		SET	opnSize+2

lineY1		SET	$A6
lineX1		SET	lineY1+2
lineY2		SET	lineX1+2
lineX2		SET	lineY2+2

		IMPORT	StdLineVec
		IMPORT	RecordIBar
		IMPORT	CVStat:CVStatusRec
		IMPORT	TEMP:Rect
		
		
		phb				; save registers
		pha
		phx
		phy
		
		phk				; allow local addressing
		plb

		lda	CVStat.enabled
		beq	skip

; IF (pnSizeX = 1) AND (pnMode = modeXOR) AND (lineX1 = lineX2) THEN

		ldy	#pnSizeX		; pen size
		lda	[<portRef],y
		cmp	#1
		bne	skip

		ldy	#opnMode		; pen mode
		lda	[<portRef],y
		and	#$7FFF			; ignore 'NOT' bit
		cmp	#modeXOR
		bne	skip

		lda	<lineX1
		cmp	<lineX2
		bne	skip
		
		lda	<lineY1
		sta	Temp.top
		lda	<lineX1
		sta	Temp.left
		lda	<lineY2
		sta	Temp.bottom
		lda	<lineX2
		sta	Temp.right
		jsr	RecordIBar
; ENDIF

skip		
		ply				; restore registers
		plx
		pla
		plb
		jmp	StdLineVec		; jump to real routine
						
		ENDP

*===============================================*
*						*
*===============================================*

PatchCursor	PROC

		LONGA	ON
		LONGI	ON

		IMPORT	MyDrawCursor
		IMPORT	MyUnDrawCursor
		IMPORT	MyCursorUpdate
		
		IMPORT	RealDrawCursor
		IMPORT	RealUnDrawCursor
		IMPORT	CursorUpdateAddr

;--- patch CursorUpdate:

		pha				; space for vector (long)
		pha
		pea	scLnIntHnd
		_GetVector
		pla
		plx
		cmp	#MyCursorUpdate
		bne	@set
		cpx	#MyCursorUpdate>>16
		beq	@skip			; we're already patched
			
@set		sta	>CursorUpdateAddr
		txa
		sta	>CursorUpdateAddr+2
			
		pea	scLnIntHnd
		pea	MyCursorUpdate>>16
		pea	MyCursorUpdate
		_SetVector
@skip

;--- patch DrawCursor:
		
		php
		sei

		lda	>DrawCursor		; patch DrawCursor
		sta	>RealDrawCursor
		lda	>DrawCursor+2
		sta	>RealDrawCursor+2

		lda	#MyDrawCursor
		sta	>DrawCursor+1
		lda	#MyDrawCursor>>8
		sta	>DrawCursor+2

;--- patch UnDrawCursor:

		lda	>UnDrawCursor
		sta	>RealUnDrawCursor
		lda	>UnDrawCursor+2
		sta	>RealUnDrawCursor+2

		lda	#MyUnDrawCursor
		sta	>UnDrawCursor+1
		lda	#MyUnDrawCursor>>8
		sta	>UnDrawCursor+2
		
		plp
		rts

*===============================================*
*						*
*===============================================*

UnPatchCursor	PROC
		
		LONGA	ON
		LONGI	ON

		IMPORT	RealDrawCursor
		IMPORT	RealUnDrawCursor
		IMPORT	CursorUpdateAddr
		
;--- unpatch CursorUpdate vector:
		
		pea	scLnIntHnd
		lda	>CursorUpdateAddr+2
		pha
		lda	>CursorUpdateAddr
		pha
		_SetVector
@skip
;--- unpatch Draw/UnDraw Cursor:

		php
		sei

		lda	>RealDrawCursor
		sta	>DrawCursor		; unpatch DrawCursor
		lda	>RealDrawCursor+2
		sta	>DrawCursor+2

		lda	>RealUnDrawCursor
		sta	>UnDrawCursor		; unpatch UnDrawCursor
		lda	>RealUnDrawCursor+2
		sta	>UnDrawCursor+2

		plp
		rts
		
		ENDP
				
*===============================================*
*						*
* IN:	none					*
* OUT:	none					*
*===============================================*

PatchKeys	PROC	EXPORT

		LONGA	ON
		LONGI	ON

		Import	KeyBoardPatched
		Import	KeyboardAddr


		pha
		pha
		pea	kybdIntHnd
		_GetVector
		pla
		plx
		cmp	#KeyFilter
		bne	@set
		cpx	#KeyFilter>>16
		beq	@exit			; we're already patched
			
@set		sta	>KeyboardAddr
		txa
		sta	>KeyboardAddr+2
			
		pea	kybdIntHnd
		pea	KeyFilter>>16
		pea	KeyFilter
		_SetVector
			
		lda	#1
		sta	>KeyBoardPatched
			
@exit		rts

		ENDP
			
*===============================================*
*						*
* IN:	none					*
* OUT:	none					*
*===============================================*

UnPatchKeys	PROC	EXPORT

		LONGA	ON
		LONGI	ON

		IMPORT	KeyBoardPatched
		IMPORT	KeyboardAddr
			
		pea	kybdIntHnd
		lda	>KeyboardAddr+2
		pha
		lda	>KeyboardAddr
		pha
		_SetVector
			
		lda	#0
		sta	>KeyBoardPatched

		rts

		ENDP

*** Removed 9-Feb-92 DAL
	if 0 then	
*===============================================*
*		Patch the Finder!		*
* This will fix a bug in Finder 1.3 that makes	*
* CloseView look bad. The Finder's custom drag	*
* rect routine has a hardcoded "pea  $E1E1".	*
* This patch changes it to a "pea  $0101". This *
* patch routine should only be called if we get	*
* a virtual screen (in bank 1).			*
*						*
* This patch knows that Finder 1.3 uses the	*
* _StartUpTools call, and that it has a main	*
* segment size of $F346 bytes.
*						*
* In future Finders (> 1.3), the bug will be	*
* fixed.  So this patch can be omited if/when	*
* the new Finder comes out.			*
*						*
* IN:	DP register is set to the Caller's	*
*	(of _QDStartUp)	DP.			*
*						*
* OUT:	none					*
*						*
*===============================================*

PatchFinder	PROC

		LONGA	ON
		LONGI	ON

mainSegSize	set	$F346			; size of Finder's main segment
mainSegOffset	set	$256F			; offset to offending code


retAddr2	set	36			; StartUpTools DP offsets
retAddr1	set	retAddr2+3
startRec	set	retAddr1+3
startRecFlag	set	startRec+4
userID		set	startRecFlag+2
result		set	userID+2


; check if user ID is valid:

		lda	<userID
		and	#$FF00			; mask out id type
		cmp	#$1000			; is it an application ?
		bne	exit
		
; check if address is valid:

		lda	<retAddr1+2
		and	#$00FF			; mask out bank
		cmp	#$0002
		bcc	exit			; not bank 0 or 1
		cmp	#$80
		bcs	exit			; not in ROM		

		pha				; space	for result handle
		pha
		pha				; address of application segment
		pei	<retAddr1
		_FindHandle			; find handle of calling application
		pla
		plx
		bcs	exit			; error, so skip

		phx				; save a copy of the handle
		pha

; check if segment is the right size:

		pha				; space for result (long)
		pha
		phx				; handle
		pha
		_GetHandleSize
		pla
		plx
		bne	skip			; too big, so skip
		bcs	skip			; error, so skip
		cmp	#mainSegSize
		bne	skip			; wrong size, so skip

; now check for offending Finder code:

		tsc
		tcd				; make a frame
		
		ldy	#2			; dereference handle
		lda	[<1],y
		tax
		lda	[<1]
		sta	<1
		stx	<3
		
		ldy	#mainSegOffset
		lda	[<1],y			; code:  "pea $E1E1; plb; plb; rts"
		cmp	#$E1F4
		bne	skip
		iny
		iny
		lda	[<1],y
		cmp	#$ABE1
		bne	skip
		iny
		iny
		lda	[<1],y
		cmp	#$60AB
		bne	skip

; code was found, so patch it!

		ldy	#mainSegOffset+1
		lda	#$0101			; change to 'pea  $0101'
		sta	[<1],y		
skip
		pla				; remove copy of handle
		plx
exit
		rts


		ENDP

	endif

*===============================================*
*	Install permanent Toolbox patches	*
*						*
* Input:	*** Stack ***			*
*		rtlAddr - 3 BYTES		*
*	sp --->					*
*						*
* Output:	*** Stack ***			*
*		result - LONG			*
*		rtlAddr - 3 BYTES		*
*	sp --->					*
*===============================================*

InstallPatches	PROC	EXPORT

		LONGA	ON
		LONGI	ON

		IMPORT	MyBootInit
		IMPORT	MyQDStartUp
		IMPORT	MyQDShutDown
		IMPORT	MyClearScreen
		IMPORT	MySetSCB
		IMPORT	MyGetSCB
		IMPORT	MySetAllSCBs
		IMPORT	MySetColorEntry
		IMPORT	MyGetColorEntry
		IMPORT	MySetColorTable
		IMPORT	MyGetColorTable
		IMPORT	MyOpenPort
		IMPORT	MyInitPort
		IMPORT	MyInvertRect
		IMPORT	MySetCursor
		IMPORT	MyHideCursor
		IMPORT	MyEMStartUp
		IMPORT	MyGetNextEvent
		IMPORT	MyEventAvail
		IMPORT	MyGetOSEvent
		IMPORT	MyOSEventAvail
		IMPORT	MyGetMouse
		IMPORT	MyButton
		IMPORT	MyStillDown
		IMPORT	MyWaitMouseUp

		IMPORT	QDStartUpAddr
		IMPORT	QDShutDownAddr
		IMPORT	ClearScreenAddr
		IMPORT	SetSCBAddr
		IMPORT	GetSCBAddr
		IMPORT	SetAllSCBsAddr
		IMPORT	SetColorEntryAddr
		IMPORT	GetColorEntryAddr
		IMPORT	SetColorTableAddr
		IMPORT	GetColorTableAddr
		IMPORT	InitPortAddr
		IMPORT	OpenPortAddr
		IMPORT	InvertRectAddr
		IMPORT	SetCursorAddr
		IMPORT	HideCursorAddr
		IMPORT	EMStartUpAddr
		IMPORT	GetNextEventAddr
		IMPORT	EventAvailAddr
		IMPORT	GetOSEventAddr
		IMPORT	OSEventAvailAddr
		IMPORT	GetMouseAddr
		IMPORT	ButtonAddr
		IMPORT	StillDownAddr
		IMPORT	WaitMouseUpAddr
		IMPORT	MyUserID
		IMPORT	StdLineVec
		IMPORT	RealShieldCursor
		
firstLocal	set	1			; local variables
tsPtr		set	firstLocal
fptPtr		set	tsPtr+4	
tblSize		set	fptPtr+4
handle		set	tblSize+4
lastLocal	set	handle+4

localSize	set	lastLocal-firstLocal


		tsc				; make a stack frame
		sec
		sbc	#localSize
		tcs
		phd				; save current dp
		tcd
begin
		ldx	#QDStartUp
		lda	#QDStartUpAddr
		jsr	GetFunctionAddr
		
		ldx	#QDShutDown
		lda	#QDShutDownAddr
		jsr	GetFunctionAddr
		
		ldx	#ClearScreen
		lda	#ClearScreenAddr
		jsr	GetFunctionAddr
		
		ldx	#SetSCB
		lda	#SetSCBAddr
		jsr	GetFunctionAddr
		
		ldx	#GetSCB
		lda	#GetSCBAddr
		jsr	GetFunctionAddr
		
		ldx	#SetAllSCBs
		lda	#SetAllSCBsAddr
		jsr	GetFunctionAddr
		
		ldx	#SetColorEntry
		lda	#SetColorEntryAddr
		jsr	GetFunctionAddr
		
		ldx	#GetColorEntry
		lda	#GetColorEntryAddr
		jsr	GetFunctionAddr
		
		ldx	#SetColorTable
		lda	#SetColorTableAddr
		jsr	GetFunctionAddr
		
		ldx	#GetColorTable
		lda	#GetColorTableAddr
		jsr	GetFunctionAddr
		
		ldx	#InitPort
		lda	#InitPortAddr
		jsr	GetFunctionAddr
		
		ldx	#OpenPort
		lda	#OpenPortAddr
		jsr	GetFunctionAddr

		ldx	#InvertRect
		lda	#InvertRectAddr
		jsr	GetFunctionAddr

		ldx	#SetCursor
		lda	#SetCursorAddr
		jsr	GetFunctionAddr

		ldx	#HideCursor
		lda	#HideCursorAddr
		jsr	GetFunctionAddr

		ldx	#EMStartUp
		lda	#EMStartUpAddr
		jsr	GetFunctionAddr

		ldx	#GetNextEvent
		lda	#GetNextEventAddr
		jsr	GetFunctionAddr

		ldx	#EventAvail
		lda	#EventAvailAddr
		jsr	GetFunctionAddr

		ldx	#GetOSEvent
		lda	#GetOSEventAddr
		jsr	GetFunctionAddr

		ldx	#OSEventAvail
		lda	#OSEventAvailAddr
		jsr	GetFunctionAddr

		ldx	#GetMouse
		lda	#GetMouseAddr
		jsr	GetFunctionAddr

		ldx	#Button
		lda	#ButtonAddr
		jsr	GetFunctionAddr

		ldx	#StillDown
		lda	#StillDownAddr
		jsr	GetFunctionAddr

		ldx	#WaitMouseUp
		lda	#WaitMouseUpAddr
		jsr	GetFunctionAddr
		
; patch out QD functions:

		ldx	#QDToolSet
		jsr	GetToolSetAddr

		ldy	#(QDStartUp>>8)<<2
		lda	#MyQDStartUp-1
		jsr	SetFunctionAddr
				
		ldy	#(QDShutDown>>8)<<2
		lda	#MyQDShutDown-1
		jsr	SetFunctionAddr
				
		ldy	#(ClearScreen>>8)<<2
		lda	#MyClearScreen-1
		jsr	SetFunctionAddr
				
		ldy	#(SetSCB>>8)<<2
		lda	#MySetSCB-1
		jsr	SetFunctionAddr
				
		ldy	#(GetSCB>>8)<<2
		lda	#MyGetSCB-1
		jsr	SetFunctionAddr
				
		ldy	#(SetAllSCBs>>8)<<2
		lda	#MySetAllSCBs-1
		jsr	SetFunctionAddr
				
		ldy	#(SetColorEntry>>8)<<2
		lda	#MySetColorEntry-1
		jsr	SetFunctionAddr
				
		ldy	#(GetColorEntry>>8)<<2
		lda	#MyGetColorEntry-1
		jsr	SetFunctionAddr
				
		ldy	#(SetColorTable>>8)<<2
		lda	#MySetColorTable-1
		jsr	SetFunctionAddr
				
		ldy	#(GetColorTable>>8)<<2
		lda	#MyGetColorTable-1
		jsr	SetFunctionAddr
				
		ldy	#(InitPort>>8)<<2
		lda	#MyInitPort-1
		jsr	SetFunctionAddr
				
		ldy	#(OpenPort>>8)<<2
		lda	#MyOpenPort-1
		jsr	SetFunctionAddr

		ldy	#(InvertRect>>8)<<2
		lda	#MyInvertRect-1
		jsr	SetFunctionAddr
				
		ldy	#(SetCursor>>8)<<2
		lda	#MySetCursor-1
		jsr	SetFunctionAddr
				
		ldy	#(HideCursor>>8)<<2
		lda	#MyHideCursor-1
		jsr	SetFunctionAddr
		
		ldx	#QDToolSet
		jsr	SetToolSetAddr

; patch out stdLine bottleneck procedure:

		php
		sei
		
		lda	>StdLine+2		; first save original vector
		sta	StdLineVec+2
		lda	>StdLine
		sta	StdLineVec

		lda	#MyStdLine>>8		; now add our vector
		sta	>StdLine+2
		lda	#MyStdLine<<8
		ora	#$005C			; 'jml' instruction
		sta	>StdLine

;--- patch shield cursor:

		lda	>ShieldCursor
		sta	>RealShieldCursor
		lda	>ShieldCursor+2
		sta	>RealShieldCursor+2

		lda	#MyShieldCursor
		sta	>ShieldCursor+1
		lda	#MyShieldCursor>>8
		sta	>ShieldCursor+2

		plp

; patch out EM functions:

		ldx	#EMToolSet
		jsr	GetToolSetAddr

		ldy	#(EMStartUp>>8)<<2
		lda	#MyEMStartUp-1
		jsr	SetFunctionAddr

		ldy	#(GetNextEvent>>8)<<2
		lda	#MyGetNextEvent-1
		jsr	SetFunctionAddr
				
		ldy	#(EventAvail>>8)<<2
		lda	#MyEventAvail-1
		jsr	SetFunctionAddr
				
		ldy	#(GetOSEvent>>8)<<2
		lda	#MyGetOSEvent-1
		jsr	SetFunctionAddr
				
		ldy	#(OSEventAvail>>8)<<2
		lda	#MyOSEventAvail-1
		jsr	SetFunctionAddr
				
		ldy	#(GetMouse>>8)<<2
		lda	#MyGetMouse-1
		jsr	SetFunctionAddr
				
		ldy	#(Button>>8)<<2
		lda	#MyButton-1
		jsr	SetFunctionAddr

		ldy	#(StillDown>>8)<<2
		lda	#MyStillDown-1
		jsr	SetFunctionAddr
				
		ldy	#(WaitMouseUp>>8)<<2
		lda	#MyWaitMouseUp-1
		jsr	SetFunctionAddr

		ldx	#EMToolSet
		jsr	SetToolSetAddr


		_SetDefaultTPT			; permanently install these patches!
end
		pld				; restore dp

		tsc
		clc
		adc	#localsize
		tcs
		
		rts

;-----------------------------------------------
; In:	x-reg set to toolset number
;
; Out:	fptPtr
;
;-----------------------------------------------

GetToolSetAddr
		pha				; space for pointer (long)
		pha
		pea	0			; 0 = system tool set
		phx				; tool set number
		_GetTSPtr
		pla
		plx
		sta	<tsPtr
		stx	<tsPtr+2

		lda	[<tsPtr]		; calculate the size of the table
		asl	a
		asl	a			; size is count * 4
		sta	<tblSize
		stz	<tblSize+2

		pha				; space for handle (long)
		pha		
		pei	<tblSize+2		; size
		pei	<tblSize
		lda	MyUserID
		pha				; user id
		pea	%0100000000011000	; fixed, no bank cross, no special
		pea	0			; address (long), not used
		pea	0
		_NewHandle
		pla
		plx
		sta	<handle
		stx	<handle+2
		bcc	good
		brl	end
		
good		ldy	#2
		lda	[<handle],y
		tax
		lda	[<handle]
		sta	<fptPtr
		stx	<fptPtr+2
		
		lda	#0			; zero out new table
		ldy	<tblSize
		dey
		dey
@loop		sta	[<fptPtr],y
		dey
		dey
		bpl	@loop
		
		lda	<tblSize
		lsr	a
		lsr	a
		sta	[<fptPtr]		; set function table count
		
		rts

;-----------------------------------------------
; In:	x-reg set to toolset number
;	fptPtr
;
; Out:	none
;
;-----------------------------------------------
SetToolSetAddr

; always patch bootinit:

		ldy	#4
		lda	#MyBootInit-1
		sta	[<fptPtr],y		; set new BootInit function pointer
		iny
		iny
		lda	#MyBootInit>>16
		sta	[<fptPtr],y

		pea	0			; 0 = system tool set
		phx				; tool set number
		pei	<fptPtr+2		; pointer to new function pointer table
		pei	<fptPtr
		_SetTSPtr
		rts

;-----------------------------------------------
; In:	x-reg set to function/toolset number
;	a-reg set to destination addr
;
; Out:	none
;
; assumes code & data are in the same bank!
;-----------------------------------------------
GetFunctionAddr
		pha				; save destination addr
		
		pha				; space for addr (long)
		pha
		pea	0			; 0 = system tool set
		phx				; function/toolset number
		_GetFuncPtr
		pla
		plx
		inc	a			; adjust addr (was addr-1)
		bne	@store
		inx
@store
		ply				; get destination addr
		sta	|$0000,y
		txa
		sta	|$0002,y
		
		rts
		
;-----------------------------------------------
; In:	y-reg set to function number*4
;	a-reg set to new function addr-1
;	fptPtr points to function table
;
; Out:	none
;
;-----------------------------------------------
SetFunctionAddr
		sta	[<fptPtr],y		; set new function pointer
		iny
		iny
		lda	#InstallPatches>>16	; bank of our new functions
		sta	[<fptPtr],y

		rts
				
		ENDP


*===============================================*
* Add a shutdown task to the GS/OS notification	*
* queue.					*
*						*
* In:	none					*
* Out:	none					*
*===============================================*

AddShutdownTask	PROC	EXPORT

		LONGA	ON
		LONGI	ON
		
		IMPORT	SetCVDefaults

		pea	NotifyParams>>16
		pea	NotifyParams
		_AddNotifyProc

		rts

NotifyParams	dc.W	1			; pcount
		dc.L	ShutdownTask		; task pointer


;------------------------------------------------
;	This task is called when the system
;	is being shutdown (or restarted).
;
; In:	none
; Out:	none
;------------------------------------------------

ShutdownTask


;--- Standard Notify Queue Header ---------------

Header		dc.L	0			; next task link
		dc.W	0			; reserved
		dc.W	$A55A			; signature
		dc.L	neShutDown		; event mask
EventCode	dc.L	0			; event code
;------------------------------------------------

		phk
		plb
		
		lda	EventCode
		cmp	#neShutDown
		bne	exit
		
		jsr	SetCVDefaults		; write default values to BRAM
exit
		rtl

		ENDP

*===============================================*
* Get the version number of the ROM		*
*						*
* In:	none					*
* Out:	a-reg has ROM version	{0,1,2,É}	*
*===============================================*

GetROMVersion	PROC	EXPORT

		LONGA	ON
		LONGI	ON

		pha				; space for result (4 words)
		pha
		pha
		pha
		pea	0			; a-reg on entry
		pea	0			; x-reg on entry
		pea	0			; y-reg on entry
		pea	IDROUTINE		; firmware routine
		_FWEntry
		pla				; version number

		plx				; ignore the rest
		plx
		plx
		rts

		ENDP

*===============================================*
* In:	a, x point to text			*
*	y has lenght of text			*
*						*
* Out:	none					*
*						*
*===============================================*

PostAlert	PROC

		LONGA	ON
		LONGI	ON

aboutDY		equ	83+22
aboutDX		equ	302

aboutY1		equ	((200-aboutDY)/2)-10
aboutY2		equ	aboutY1+aboutDY
aboutX1		equ	(640-aboutDX)/2
aboutX1_320	equ	(320-aboutDX)/2

iconY1		equ	3
iconX1		equ	6
iconWidth	equ	14			; byte width of icon

		IMPORT	Temp
		IMPORT	MyWinList:WindParamList
		IMPORT	MyEvent:Event
		IMPORT	IconLocInfo:LocInfo	; found in NDA segment

		
		sta	StringPtr		; save text pointer
		stx	StringPtr+2
		sty	StringLength		; save lenght of text
		
		pha
		pha
		_GetPort			; save the current port
		
		lda	#fAlert+fVis
		sta	myWinList.wFrameBits
		lda	#aboutY1
		sta	myWinList.wPosition.top
		lda	#aboutY2
		sta	myWinList.wPosition.bottom

		pha
		_GetMasterSCB
		pla
		sta	>IconLocInfo.portSCB
		and	#mode640
		beq	@320
@640
		lda	#aboutX1
		bra	@set
@320
		lda	#aboutX1_320;
@set
		sta	myWinList.wPosition.left
		clc
		adc	#aboutDX
		sta	myWinList.wPosition.right

		pha
		pha
		pea	myWinList>>16
		pea	myWinList
		_NewWindow			; create the window
		pla
		plx
		sta	aboutWinPtr
		stx	aboutWinPtr+2
		bcc	@good
		brl	exit			; couldn't get window
@good		
		phx
		pha
		_SetPort
		
		pha				; space for handle
		pha
		lda	aboutWinPtr+2
		pha				; window ptr (long)
		lda	aboutWinPtr
		pha
		pea	controlRect>>16		; bounds Rect ptr
		pea	controlRect
		pea	StrOK>>16
		pea	StrOK
		pea	$01			; flag = bold button
		pea	0			; initial value
		pea	0			; param1
		pea	0			; param2
		pea	0			; defProcPtr = simple button (long)
		pea	0
		pea	0			; refcon (long)
		pea	0
		pea	0			; color table ptr
		pea	0
		_NewControl
		pla
		plx
		sta	myHandle
		stx	myHandle+2

; draw Alert contents:		

		ldx	#iconWidth*4
		lda	>IconLocInfo.portSCB
		and	#$0080				; is it 640?
		bne	@setRight			; yes
		ldx	#iconWidth*2			; no, so adjust
@setRight
		txa
		sta	>IconLocInfo.boundsRect.right

		pea	IconLocInfo>>16
		pea	IconLocInfo
		pea	IconLocInfo.boundsRect>>16
		pea	IconLocInfo.boundsRect
		pea	iconX1
		pea	iconY1
		pea	0
		_PPToPort

		lda	StringPtr+2		; ptr to text
		pha
		lda	StringPtr
		pha
		lda	StringLength		; text length
		pha
		pea	textRect>>16		; bounds rect
		pea	textRect
		pea	0			; left justified
		_LETextBox2
		
		lda	aboutWinPtr+2
		pha				; window ptr (long)
		lda	aboutWinPtr
		pha
		_DrawControls

; wait for user:

@while
		pha
		pea	mDownMask+keyDownMask
		pea	myEvent>>16
		pea	myEvent
		_GetNextEvent
		pla
		beq	@while
		
		lda	myEvent.what
		cmp	#keyDownEvt
		bne	@mouse
@key
		lda	myEvent.message
		and	#$00FF
		cmp	#$000D
		bne	@while
		
		pea	2
		lda	myHandle+2
		pha
		lda	myHandle
		pha
		_HiLiteControl			; hilite the button
		bra	close
@mouse
		cmp	#mouseDownEvt
		bne	@while
		
		pha				; space for result
		pea	Temp>>16
		pea	Temp
		lda	myEvent.where.h
		pha
		lda	myEvent.where.v
		pha
		lda	aboutWinPtr+2
		pha
		lda	aboutWinPtr
		pha
		_FindControl
		pla
		beq	@while
		
		pha				; space for result
		lda	myEvent.where.h
		pha
		lda	myEvent.where.v
		pha
		pea	0			; actionProc = nil
		pea	0
		lda	myHandle+2
		pha
		lda	myHandle
		pha
		_TrackControl
		pla
		bne	close
		brl	@while

close
		ldx	aboutWinPtr+2
		lda	aboutWinPtr
		phx
		pha
		_CloseWindow
exit
		_SetPort			; restore the current port
		rts


StringPtr	ds.L	1
StringLength	ds.W	1
aboutWinPtr	ds.L	1
myHandle	ds.L	1

		STRING	PASCAL
StrOK		dc.B	'OK'
textRect	dc.W	4,80,aboutDY-8,aboutDX-10
controlRect	dc.W	aboutDY-20,aboutDX/2-40,aboutDY-5,aboutDX/2+40

		ENDP

*===============================================*
*      System task				*
*						*
* IN:	none					*
* OUT:	none					*
*===============================================*

MySystemTask	PROC

		LONGA	ON
		LONGI	ON
		
		IMPORT	menuID
		IMPORT	MyUserID
		IMPORT	NeedToPost
		IMPORT	HadToLoadFM

		IMPORT	PostAlert
		IMPORT	Beep

taskTicks	set	1			; 60 ticks = 1 second
fontManager	equ	$001B

*-----------------------------------------------
TaskHeader
		dc.L	0			; link (used by desk mgr)
TaskCount	dc.W	taskTicks		; tick count
		dc.W	$A55A			; signature
		dc.L	0			; reserved
*-----------------------------------------------

		phb
		phk
		plb

		pea	MySystemTask>>16
		pea	MySystemTask
		_RemoveFromRunQ			; remove ourself from the queue

*** added 9-Feb-92 DAL -- make sure Menu Mgr is here before we call it
		pea 0
		_MenuStatus
		pla
		bne @ok
		stz NeedToPost
		bra exit
@ok
*** end 9-Feb-92

		lda	>menuID
		pha
		_DisableMItem			; disable "CloseView" from Apple menu
		
		lda	NeedToPost		; was CloseView on before?
		beq	exit			; no, so don't alert user
		stz	NeedToPost

;--- see if FontManager is active:

		stz	HadToLoadFM

		pea	0
		_FMStatus
		pla
		bne	post			; yes, so ok to post alert		
		
		pea	fontManager
		pea	0
		_LoadOneTool
		bcs	exit

		inc	HadToLoadFM

		tsc
		sec
		sbc	#256			; allocate dp space
		tcs
		inc	a
		tax

		lda	MyUserID
		pha
		phx				; dp space
		_FMStartUp
		bcs	skip
post		
		
		jsr	Beep			; get user's attention

		ldy	#endStr-StrNoMemory
		lda	#StrNoMemory
		ldx	#StrNoMemory>>16
		jsr	PostAlert		; tell the user we didn't get screen

		lda	HadToLoadFM
		beq	exit

		_FMShutDown
skip
		tsc
		clc
		adc	#256			; deallocate dp space
		tcs

		pea	fontManager
		_UnloadOneTool
exit
		lda	#taskTicks
		sta	TaskCount		; reset the period for next time
		plb
		rtl

		STRING	ASIS

StrNoMemory	dc.B	1,'F'			; change the font
		dc.W	$FFFE			; family = shaston
		dc.B	0			; style = plain
		dc.B	16			; size = 16pt
		dc.B	'CloseView is not available under this application.'
endStr
		ENDP

*===============================================*
* Beep at the user				*
*===============================================*

Beep		PROC	EXPORT

		LONGA	ON
		LONGI	ON
		
		php
		sei

		lda	#$8000
@loop
		ldx	#200
@wait
		dec	a
		beq	@done
		dex
		bne	@wait
		sep	#$20
		sta	>$E1C030		; click
		rep	#$20
		bra	@loop
@done
		plp
		rts

		ENDP


		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CloseView/ReleaseNotes b/IIGS.601.SRC/A.U.G/CloseView/ReleaseNotes
new file mode 100644
index 0000000..03119ef
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CloseView/ReleaseNotes
@@ -0,0 +1 @@
+CloseView GS 1.0

Please ship this program so people can use it!

Release 1.0f2 Ñ April 29, 1991
-------------------------------------------------------------

Bug Fixes:
  ¥ BRC# 68609:	Fixed a bug in the auto centering code so that CloseView
  	won't overflow the screen.
  ¥ BRC# 65723:	Special cased the cursor width for 12x so bigger cursors
  	don't cause the view to move back and forth.

Other Changes:
  ¥ When CloseView shutsdown it will erase the cursor and framebox in case
  	the QuickDraw screen is left up by the Finder. 
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/AppleShareCDEV/AppleShare b/IIGS.601.SRC/A.U.G/CtlPanel/AppleShareCDEV/AppleShare
new file mode 100644
index 0000000..e69de29
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/AppleShareCDEV/AppleShare.aii b/IIGS.601.SRC/A.U.G/CtlPanel/AppleShareCDEV/AppleShare.aii
new file mode 100644
index 0000000..b724c74
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/AppleShareCDEV/AppleShare.aii
@@ -0,0 +1 @@
+;======================================================================
;
; AppleShare CDEV 2.0 -- The Real Thing
;		by Mark Day
;
;
; This Control Panel allows the user to log on to a file server and
; mount volumes from the server.
;
; This version REQUIRES system 6.0 and AppleTalk Phase 2 drivers
; because it uses new calls (such as 6.0's case-insensitive compare
; and the GetZoneList2 call).
;
; Modification History:
;
; == Version 0.01 ==
; 23-Jul-91	MSD	Written from scratch in assembly language!
;
; == Version 2.0d2 ==
; 26-Aug-91	MSD	Fixed to use FILogin2 so that the server and
;			zone names will be set correctly.  Fixed the
;			main window and volume list so that a double-
;			click in a list will make the OK button blink.
;
; == Version 2.0d3 ==
; 27-Aug-91	MSD	Started removing all BRK instructions and make
;			the code do something intelligent (like try
;			to put up an error message).  Testing for
;			AppleTalk and allocating memory now happen
;			at RectCDEV time so I can use a smaller
;			rectangle if there was an error.  CreateCDEV
;			message added; it creates a different list
;			of controls if there was an error.
; 28-Aug-91	MSD	Removed RectCDEV and CreateCDEV messages.  Re-
;			activated MachineCDEV and moved checking there.
;			Added code to SelectVol to handle errors from
;			mounting a volume.
; == Version 2.0d4 ==
; 06-Sep-91	MSD	Starting to add auto-logon functionality.
; 14-Sep-91	MSD	It now successfully reads the AppleShare.Prep
;			file, logs on to the servers, and mounts the
;			volumes.  It puts up dialogs for passwords as
;			needed (if it wasn't saved, or if the saved one
;			was incorrect).
; 15-Sep-91	MSD	Clicking on the "Quit" button from the volume
;			list dialog no longer saves your password and
;			will not update the AppleShare.Prep file.  BTW,
;			the button title has been changed to "Cancel".
;
; == Version 2.0d5 ==
; 20-Sep-91	MSD	Turned off debugging symbols by default.  Made
;			AddVolPass and GetVolPass functional.
; 26-Sep-91	MSD	¥ StartLookup now displays an error if it gets
;			an NBP busy error.
;			¥ Passwords in the message center are now
;			stored scrambled (not plain text).
;			¥ RunCDEV now checks to see if there are no
;			zones.  If so, it checks again (in case they
;			become available).
;
; == Version 2.0d7 ==
; 16-Oct-91	MSD	¥ In CloseCDEV, the user name is written before
;			disposing my memory (so if a dialog comes up, the
;			list controls will continue to draw properly).
;			¥ If you hit the zone control (including TAB),
;			it only updates the server list if the zone
;			actually changed.
;			¥ The user name is written to the ATINIT file
;			only if it has actually changed.
;
; == Version 2.0d10 ==
;  8-Nov-91 MSD		¥ After volumes are mounted, call GetUserPath
;			to force FIUserPrefix to be set.
; 11-Nov-91 MSD		¥ Fix bug with no volumes returned.  It was
;			returning an error when it should just display
;			an empty list.
;
;======================================================================
;
; Begin 6.0.1
;
;  4-Mar-93 DAL		¥ For 6.0.1d14, adding AFP 2.1 support (we use
;			AFP 2.1 instead of 2.0 if it's available).
;
; 25-Mar-93 DAL		¥ For 6.0.1d15, added range check on tracking
;			checkboxes next to items in the volume list.
;			If there were fewer than 4 volumes listed, we
;			we tracking phantom checkboxes before.
;			¥ Removed the "inc hasAFP21" with "if 0 then".
;			Support is needed elsewhere in the system before
;			we enable this, so it's turned off for 6.0.1.
;
;======================================================================


		print	push,off
		
		include 'E16.Types'
		include 'E16.Resources'
		include 'M16.Util'
		include	'M16.MiscTool'
		include 'E16.Memory'
		include 'M16.Memory'
		include 'M16.QuickDraw'
		include 'E16.Window'
		include 'M16.Window'
		include	'E16.Control'
		include 'M16.Control'
		include	'E16.List'
		include 'M16.List'
		include	'M16.LineEdit'
		include	'E16.Event'
		include 'M16.Event'
		include 'M16.IntMath'
		include	'M16.Debug'
		include 'E16.Locator'
		include 'M16.Locator'
		include	'M16.GSOS'
		
		print	pop
		
		include	'AppleShareEqu.aii'


;======================================================================
;
;			EnterCDEV
;
; This is the main entry point for the CDEV.  It receives the various
; messages passed by the Control Panel itself.
;
; I will allocate a small stack frame for local variables and set up
; the direct page register to get to them.  Each routine is called with
; a JSR and the result will be pre-set to 0.  On return, the stack will
; be cleaned up and control will return to the caller.
;
; On entry, the stack contains:
;	Long	Result space
;	Word	Message		(call number)
;	Long	Data1		(generally the cdev's grafport)
;	Long	Data2		(unused)
;	3 byte	Return address
;
;======================================================================

;
; This is what our direct page will look like to called routines
;

dp		record	1
locals		ds.b	localSize	; just for now
savedD		ds.w	1		; old D is pushed here
savedB		ds.b	1		; old B is pushed here
retCP		ds.b	3		; return address to Control Panel
data2		ds.l	1		; passed by CP
data1		ds.l	1		; passed by CP
message		ds.w	1		; passed by CP
result		ds.l	1		; will pre-set to 0
		endr


EnterCDEV	procname
		import	EventsCDEV,HitCDEV,InitCDEV,CloseCDEV,RunCDEV
		import	MachineCDEV,BootCDEV,EditCDEV,RectCDEV,CreateCDEV
		
		
;
; Save bank and direct registers
;
		phb			; save old bank just in case
		phk
		plb			; lets us use absolute addressing
		phd			; save old direct page

;
; Make a stack frame with some room for local vars
;
		tsc
		sec
		sbc	#localSize	; size of locals
		tcs			; push down stack
		tcd			; point D to it, too

;
; Pre-set the result to 0
;
		stz	dp.result
		stz	dp.result+2

;
; Call the appropriate message handler
;
		lda	dp.message
		cmp	#MaxMessage+1	; beyond defined messages?
		bge	bye		; yes, so just exit now
		
		asl	a		; times 2 as index to jump table
		tax
		
		jsr	(calls,x)	; go to appropriate message handler

;
; Now I squeeze the locals and the input parameters out of the stack
; by copying the saved direct and bank registers and the return address
; up just under the result and then adjusting the stack pointer.  I'm
; depending on the fact that I only need to copy 6 bytes (D, B, RTL)
; and that all I have to squeeze is the locals plus 10 bytes of input.
;
bye
		lda	dp.savedD
		sta	dp.result-6
		lda	dp.savedD+2
		sta	dp.result-4
		lda	dp.savedD+4
		sta	dp.result-2
		
		tsc
		clc
		adc	#localSize+10	; squeeze input and locals out
		tcs
		
		pld
		plb
		rtl

;
; addresses of message handlers
;
calls
		dc.w	@rts		;  0 = undefined
		dc.w	MachineCDEV	;  1 = MachineCDEV
		dc.w	BootCDEV	;  2 = BootCDEV
		dc.w	@rts		;  3 = reserved for ShutDownCDEV
		dc.w	InitCDEV	;  4 = InitCDEV
		dc.w	CloseCDEV	;  5 = CloseCDEV
		dc.w	EventsCDEV	;  6 = EventsCDEV
		dc.w	@rts		;  7 = CreateCDEV
		dc.w	@rts		;  8 = AboutCDEV
		dc.w	@rts		;  9 = RectCDEV
		dc.w	HitCDEV		; 10 = HitCDEV
		dc.w	RunCDEV		; 11 = RunCDEV
		dc.w	EditCDEV	; 12 = EditCDEV
		
@rts
		rts
		
		endp



;======================================================================
;
;			BootCDEV
;
; This routine is called by the control panel during boot.  This gives
; me a chance to mount volumes from the AppleShare.Prep file.
;
; If I want an X drawn through my icon, I have to set bit 0 of the
; word pointed to by data1.
;
;======================================================================

BootCDEV	procname
		import	TestATalk,AutoLogon
		
		jsr	TestATalk	; see if AppleTalk is active
		lda	#0
		rol	a		; A=1 if there was an error
		sta	[dp.data1]	; tell CP to "X" me out or not
		bne	exit		; if error, don't auto logon
		jsr	AutoLogon	
exit
		rts
		
		endp
		


;======================================================================
;
;			MachineCDEV
;
; This routine is called by the control panel to see whether the CDEV
; should run under the current machine state.  I use it to check for
; the presence of the AppleShare FST.
;
; Return non-zero to display, zero not to display.  Since result was
; already set to zero before we got called, we have to set it to 1
; if everything is OK.
;
;======================================================================

MachineCDEV	procname
		import	TestATalk,AllocMem,AlertByID
		
		jsr	TestATalk
		bcc	getmem
		
		_InitCursor
		lda	#rNoAppleTalk
		jmp	AlertByID	; put up alert and exit
getmem
		jsr	AllocMem
		bcc	exit
		
		_InitCursor
		lda	#rOutOfMemory
		jmp	AlertByID
exit
		inc	dp.result	; everything is OK for running
		rts
		
		endp
		


;======================================================================
;
;			TestATalk
;
; This routine returns with carry clear if AppleTalk is active (i.e.,
; the AppleShare FST is present) or carry set otherwise.
;
;======================================================================

TestAtalk	procname
		import	FSTInfo:GetFSTInfoRec
		
		lda	#1
		sta	FSTInfo.fstNum	; start scanning with 1
loop
		jsl	$E100A8		; GS/OS inline entry
		dc.w	$202B		; GetFSTInfo
		dc.l	FSTInfo
		bcs	exit		; return carry set if error
		
		inc	FSTInfo.fstNum	; prepare for next FST
		lda	FSTInfo.fileSysID
		cmp	#$D		; is it AppleShare?
		bne	loop		; no, try others
		
		clc			; AppleShare is active
exit
		rts

		endp
		




;======================================================================
;
;			EventsCDEV
;
; This routine is called by the Control Panel before calling TaskMaster
; so that the CDEV can change the event record.
;
; The AppleShare CDEV uses this to detect double-clicks in the server
; list, which it translates into a Return key press (which will cause
; a hit on the OK button).
;
;======================================================================

EventsCDEV	procname
		import	TestDoubleClick		

;
; TestDoubleClick expects a pointer to the event record at offset
; 1 and 4 bytes of workspace at offset 5 on direct page.  Luckily,
; this is the start of our local variables.  So, just copy the
; event pointer and call it.
;
event		equ	1

		lda	dp.data1	; data1 was pointer to event
		sta	event
		lda	dp.data1+2
		sta	event+2
		
		jsr	TestDoubleClick
		
		rts

		endp
		

;======================================================================
;
;			HitCDEV
;
; This routine is called to tell the CDEV that there has been a hit
; on a control.
;
; If there is a hit on the zone list, we cancel the old NBPLookup,
; clear the server list, get the new zone name, start a Lookup in the
; new zone.
;
; On Entry:
;	Data1 = handle to control
;	Data2 = control's ID
;
;======================================================================

HitCDEV		procname
		with	dp

		import	myWindow,userName,wereHosed
		import	dblClick,subText,Deref
		import	NBPKill,StartLookup,lastZone
		import	DoConnectAs,SelectVols
		import	srvrListH,srvrMembers
		import	HiliteByID,serverAddress
		import	volsMounted,BlinkByID
		import	FILogin:FILogin2Rec
		import	FILogout:FILogoutRec
		import	BootButton
		import	prepHandle,ReadPrepFile,WritePrepFile
		import	SetDefName
		
		
local		record	locals
h		ds.l	1		; space for deref of handles
activeOK	ds.w	1		; has OK button's active state
		endr
		

		lda	wereHosed	; any fatal errors?
		bne	DoNothing	; if so, ignore all events
		
		lda	data2
		cmp	#12		; was it the server list?
		beq	ServerHit
		cmp	#13		; was it the OK button?
		beq	OKHit
		cmp	#15		; zone list?
		beq	ZoneHit
DoNothing
		rts
		
ServerHit

		pha			; result space
		pea	0		; start at item zero
		PushLong data1		; push the control handle
		_NextMember2		; get first selected member if any
		
		ldx	#$FF		; assume inactive for control
		pla			; anything selected?
		beq	@hilite
		ldx	#0		; activate the control
@hilite
		stx	local.activeOK
		lda	#ServerOKButton ; button's ID
		jsr	HiliteByID
		
		lda	dblClick	; was it a double-click?
		beq	@exit		; no, so just leave
		stz	dblClick	; don't let us see it for other lists
		lda	local.activeOK	; is OK button highlighted?
		beq	BlinkOK		; yes, so blink and hit OK button
@exit
		rts
		
;
; The user has selected something in the zone list.  Stop the lookup in
; the old zone and start one in the new zone.  Make the OK button inactive
; since there are no zones selected.
;
ZoneHit
		pha			; result space
		pea	0		; start at item zero
		PushLong data1		; control handle
		_NextMember2
		pla			; get currently selected zone
		cmp	lastZone	; was it the same as last selected zone?
		sta	lastZone	; update lastZone just in case it changed
		beq	@nochange
		
		ATCall	NBPKill
		
		jsr	StartLookup
@nochange
		rts
		
BlinkOK
		lda	#ServerOKButton
		jsr	BlinkByID	; blink the OK button as feedback

OKHit
		ATCall	NBPKill		; stop new lookups

;
; Read in the AppleShare.Prep file so I can update it if the user makes
; any changes.
;
		jsr	ReadPrepFile

;
; Save old port and substitution array
;
		pha			; room for result
		pha
		_GetPort
		pha			; room for result
		pha
		_GetCtlParamPtr		; get old substitution pointer
		
		PushLong #subText
		_SetCtlParamPtr		; set new substitutions

;
; For each server selected in the list...
;
@loop
		pha			; room for result
		PushLong srvrListH
		_ResetMember2		; find next selected member
		pla
		beq	@done		; 0 means no more selected
		
		dea			; adjust to 0 offset
		pha			; push space
		pha
		pha			; push 0-based index
		PushWord #5		; size of member record
		_Multiply

;
; Deref member array handle and add (n-1)*5 to point to
; nth item's member record.
;
		lda	srvrMembers	; deref member list handle
		sta	local.h
		lda	srvrMembers+2
		sta	local.h+2
		ldy	#2
		pla			; get offset low word
		clc
		adc	[local.h]	; add low word of base
		tax			; save low word
		pla			; get offset high word
		adc	[local.h],y	; add high word of base
		sta	local.h+2
		stx	local.h		; h points to nth member record

;
; Copy pointer to PString from member record to substitution array
;
		lda	[local.h]
		sta	subText
		lda	[local.h],y
		sta	subText+2

;
; Get server's internet address from NBP Lookup buffer (it is 5
; bytes before the server's name).
;
		sec
		lda	subText		; get pointer to server name
		sbc	#5		; back up to server's address
		pha			; save low word
		lda	subText+2
		sbc	#0
		tax			; put high word in X
		pla			; get low word in A
		
		jsr	Deref		; grab the 4 bytes
		
		sta	serverAddress	; save net (first two bytes)
		stx	serverAddress+2	; save node and socket

;
; Set up a default user name and password
;
		jsr	SetDefName
		
;
; Do the "Connect As..." dialog and pick volumes
;

		jsr	DoConnectAs	; ask how they want to log on
		bcs	@loop		; cancelled, so try next server
		jsr	SelectVols	; select and mount volumes
		lda	volsMounted	; were volumes already mounted?
		bne	@loop		; yes, so don't log out
@logout
		lda	FILogin.sessRefNum
		sta	FILogout.sessRefNum
		ATCall	FILogout
		brl	@loop		; try next one
		
@done
		_SetCtlParamPtr		; restore old sub array
		_SetPort		; restore old port

;
; Write out the new AppleShare.Prep file if it has changed.
;
		jsr	WritePrepFile

		jsr	StartLookup	; go back to looking again
		
		rts

		endwith
		endp
		
		
		
		
;======================================================================
;
;			Deref
;
; This routine takes a pointer in A,X (A low word, X high word)
; and returns the first four bytes at that address in A,X (A low).
; Useful for dereferencing handles.
;
;======================================================================

Deref		procname

		phd			; save D
		phy			; save Y
		
		phx			; put pointer on stack
		pha
		
		tsc
		tcd			; make stack frame
		
		ldy	#2
		lda	[1],y		; get high word
		tax
		lda	[1]		; get low word
		
		ply			; remove pointer from stack
		ply
		
		ply			; restore Y
		pld			; restore D

		rts
		
		endp
		




;======================================================================
;
;			NewPointer
;
; This is a simplified form of the NewHandle tool call.  It allocates
; a locked, fixed handle with my ID and returns a pointer to it.
;
; On entry:
;	A = size of memory block
;
; On exit:
;	X = high word of pointer
;	Y = low word of pointer
;	A = error code (if any)
;	carry set on error
;
;======================================================================

NewPointer	procname
		import	myID

		pha			; room for result
		pha
		pea	0		; high word of length
		pha			; low word of length
		PushWord myID
		PushWord #attrLocked+attrFixed
		pha			; location pointer is ignored
		pha
		_NewHandle
		ply			; get handle
		plx
		bcs	err		; don't deref if error
		
		tya			; put low word of handle in A
		jsr	Deref		; deref the handle
		tay			; put low word back in Y
		clc			; no error
		lda	#0
err
		rts

		endp




;======================================================================
;
;			NewHandle
;
; This is a simplified for of the _NewHandle tool call that allocates
; a movable handle with my ID and returns the handle to it.
;
; On entry:
;	A = size of memory block
;
; On exit:
;	X = high word of handle
;	Y = low word of handle
;	A = error code (if any)
;	carry set on error
;
;======================================================================

NewHandle	procname export
		import	myID

		pha			; room for result
		pha
		pea	0		; high word of size
		pha			; low word of size
		PushWord myID
		PushWord #attrNoPurge
		pha			; locationPtr is ignored
		pha
		_NewHandle
		ply			; get low word of handle
		plx			; get high word of handle
		rts			; return with error if any
		
		endp
		
		


;======================================================================
;
;			AllocMem
;
; This routine allocates all the handles I need for buffers and
; arrays of member records.  It sets up and uses myID which is my
; memory manager ID with the aux field set to 1.  If there is any
; error, I dispose of evrything I allocated and return with the carry
; set.
;
;======================================================================

AllocMem	procname
		import	myID,messageHandle
		import	LookupName:LookupNameRec
		import	GZL2:GetZoneList2Rec
		import	GetSrvrParms:SPCommandRec
		import	srvrMembers,zoneMembers,volMembers


;
; Get my Memory Manager user ID
;
		pha			; space for result
		_MMStartup
		pla
		ora	#$0100		; use auxID of 1 for my memory
		sta	myID

;
; Allocate room for the member records and lookup buffer for the
; server list.
;

; First, the lookup buffer
		lda	#SrvrBufSize
		jsr	NewPointer
		bcs	NoMem
		sty	LookupName.bufPtr
		stx	LookupName.bufPtr+2

; Now, the member record array
		lda	#SrvrMemSize
		jsr	NewHandle
		bcs	NoMem
		sty	srvrMembers
		stx	srvrMembers+2

;
; Allocate a buffer for GetZoneList to store the zone list
;
		lda	#ZoneBufSize
		jsr	NewPointer
		bcs	NoMem
		sty	GZL2.bufferPtr
		stx	GZL2.bufferPtr+2

;
; Allocate a buffer for zone list's member records
;
		lda	#ZoneMemSize
		jsr	NewHandle
		bcs	NoMem
		sty	zoneMembers
		stx	zoneMembers+2

;
; Volume list buffer
;
		lda	#VolBufSize
		jsr	NewPointer
		bcs	NoMem
		sty	GetSrvrParms.replyBufPtr
		stx	GetSrvrParms.replyBufPtr+2

;
; Volume list member records
;
		lda	#VolMemSize
		jsr	NewHandle
		bcs	NoMem
		sty	volMembers
		stx	volMembers+2

;
; Message center data
;
		lda	#8		; just enough for count word
		jsr	NewHandle
		bcs	NoMem
		sty	messageHandle
		stx	messageHandle+2

		clc			; no errors
		rts

;
; If I get here, I couldn't get the memory I need.  Free up anything
; I did get and try to put up an alert.  
;
NoMem
		PushWord myID
		_DisposeAll

		sec			; got an error
		rts


		endp
		



;======================================================================
;
;			InitCDEV
;
; This routine is responsible for setting up the value of controls.
;
; At this point, it only intializes the zone list.  I will keep the
; zone buffer as a locked handle for now so that I can use pointers
; in the member records (rather than allocate a whole bunch of extra
; handles and copying the zone list).
;
; On entry, data1 = window pointer
;
;======================================================================

InitCDEV	procname
		with	dp
		
		import	myID,myWindow,wereHosed
		import	srvrMembers,srvrListH
		import	BuildZoneList,StartLookup,zoneListH
		import	GetUserName,userName



local		record	dp.locals
h		ds.l	1		; to deref handles
		endr

		
		lda	wereHosed
		bne	Exit		; don't do init if error
;
; Save off my window pointer (for HitCDEV which doesn't get it)
;
		lda	dp.data1
		sta	myWindow
		lda	dp.data1+2
		sta	myWindow+2
		
;
; Find the server list control
;
		pha			; space for result
		pha
		pushldp	dp.data1	; my window
		PushLong #ServerList	; server list control's ID
		_GetCtlHandleFromID
		PullLong srvrListH

;
; Get and save handle to zone list control
;
		pha			; space for control handle
		pha
		pushldp	dp.data1	; search in our window
		PushLong #ZoneList	; ID of zone list
		_GetCtlHandleFromID	; find control handle
		PullLong zoneListH	; pull handle to zone list

;
; Build the zone list
;
		jsr	BuildZoneList

;
; Start the lookups in my zone
;
		jsr	StartLookup

;
; Get and set the default value for the user name.
;
		jsr	GetUserName
		
		PushLong myWindow
		PushLong #UserLE
		PushLong #userName
		_SetLETextByID
Exit
		rts

		endwith
		endp


		
;======================================================================
;
;			CloseCDEV
;
; Stop any pending async lookups and release allocated memory.
;
;======================================================================

CloseCDEV	procname
		import	myID,wereHosed
		import	NBPKill,WriteUserName
		
		lda	wereHosed
		bne	Exit		; fatal error, nothing to clean up
		
		ATCall	NBPKill		; stop any async lookups
		
		jsr	WriteUserName
		
		PushWord myID
		_DisposeAll
Exit
		rts
		
		endp



;======================================================================
;
;			RunCDEV
;
; I use this to see if any new servers have shown up in the LookupName
; buffer and add them to the displayed list.
;
;======================================================================

RunCDEV		procname
		import	LookupName:LookupNameRec
		import	srvrListSize,wereHosed
		import	srvrMembers,srvrListH
		import	GZL2:GetZoneList2Rec,BuildZoneList
		
local		record	dp.locals
h		ds.l	1		; used to deref handles
memPtr		ds.l	1		; points into member array
entPtr		ds.l	1		; points into entity name
		endr

		with	local
		
		lda	wereHosed
		bne	@exit
;
; If there were no zones, see if there are some now.
;
		lda	GZL2.zonesReturned	; any zones found?
		bne	@zones		; yes, so leave 'em
		jsr	BuildZoneList
@zones

;
; See if any new servers have shown up in the buffer.
;
		lda	srvrListSize
		cmp	LookupName.actMatch
		bne	New
@exit		brl	NoNew
New
;----------
; We have new servers.  Append them to the member array.  First,
; skip over the first (srvrListSize) entity names in the buffer
; and the same number of member records.
;----------
		pha			; save current size for loop count
;
; First, set up pointers to start of buffer and member array
;
		lda	LookupName.bufPtr
		sta	entPtr
		lda	LookupName.bufPtr+2
		sta	entPtr+2
		
		lda	srvrMembers	; deref member handle
		ldx	srvrMembers+2
		jsr	Deref
		sta	memPtr
		stx	memPtr+2
		
;
; Now skip over the first (srvrListSize) items which are already in the list.
; I have to use a loop like this for the lookup buffer because the entities
; have variable lengths.
;
		plx			; get current list size
		cpx	#0		; originally no items?
		beq	append		; correct, don't update pointers
@loop
		lda	#4		; add 5 for net/node/socket/enumerator
		jsr	bumpent		; note: bumpent adds an extra 1!
		lda	[entPtr]
		jsr	bumpent		; skip past object string
		lda	[entPtr]
		jsr	bumpent		; skip past type string
		lda	[entPtr]
		jsr	bumpent		; skip past zone string
		dex
		bne	@loop

;
; Skip over first (srvrListSize) items in the member array by simply
; adding srvrListSize * (size of member record).
;
		pha			; room for product
		pha
		PushWord srvrListSize
		PushWord #5
		_Multiply
		
		clc
		pla			; low word of offset
		adc	memPtr
		sta	memPtr
		pla			; high word of offset
		adc	memPtr+2
		sta	memPtr+2

;
; Now add the new items to the list
;
append
		ldx	srvrListSize	; X will be loop index
		lda	LookupName.actMatch
		sta	srvrListSize	; update new list size
		ldy	#0		; offset into member array
@loop
		lda	#4		; past net/node/socket/enum
		jsr	bumpent
		
		lda	entPtr		; copy pointer to object string
		sta	[memPtr],y	; into member record
		iny
		iny
		lda	entPtr+2	; high word of pointer
		sta	[memPtr],y
		iny			; point to memSelect - 1
		lda	#0		; will clear high byte of pointer
		sta	[memPtr],y	; and de-select the new member
		iny
		iny			; point to next member record
		
		lda	[entPtr]
		jsr	bumpent		; point past object string
		lda	[entPtr]
		jsr	bumpent		; point past type string
		lda	[entPtr]
		jsr	bumpent		; point past zone string
		
		inx			; X = number of items now in list
		cpx	srvrListSize	; is that all of 'em?
		bne	@loop

;
; Rebuild and sort the list
;
		PushLong #0		; use default draw routine
		lda	#$FFFF		; value for defaults
		pha			; don't change list start
		pha			; don't change list reference
		pha
		pha			; don't change listRefDesc
		phx			; push new listSize
		PushLong srvrListH	; do it to the server list control
		_NewList2
		
		PushLong #1		; use case-insensitive sort
		PushLong srvrListH
		_SortList2

;
; We're all done updating the list, so just return
;
NoNew
		rts


;
; A local subroutine to add (low byte of A) + 1 to entPtr.  It is used
; to bump the pointer past a pascal string or internet address.
;
bumpent
		and	#$00FF		; make sure to add only a byte
		sec
		adc	entPtr
		sta	entPtr
		bcc	@nohi
		inc	entPtr+2
@nohi
		rts
		
		endwith			; local
		endp
		



;======================================================================
;
;			EditCDEV
;
; This message passes edit codes the same as SystemEdit passes to
; NDA's.  I use them to allow editing of the user name line edit.
;
; On entry:
;	data1 = edit code (low word)
;			5 = Undo
;			6 = Cut
;			7 = Copy
;			8 = Paste
;			9 = Clear
;	data2 = window pointer
;
;======================================================================

EditCDEV	procname
		import	wereHosed
		
		
		lda	wereHosed
		beq	doit
		
		rts			; was error, ignore edit calls
doit
;
; Leave handle to the edit record on stack for the calls
;
		pha			; room for edit record handle
		pha
		pha			; room for control's handle
		pha
		pei	dp.data2+2	; push window
		pei	dp.data2
		PushLong #UserLE	; control ID
		_GetCtlHandleFromID
		_GetCtlTitle
					; edit record handle is on the stack
;
; Dispatch to the appropriate handler
;
		lda	dp.data1	; get edit code
		sec
		sbc	#5		; get 0-based offset
		asl	a		; get index into table
		tax
		jmp	(editcalls,x)
		
editcalls
		dc.w	undo
		dc.w	cut
		dc.w	copy
		dc.w	paste
		dc.w	clear

undo
		pla			; remove edit record handle
		pla
		rts			; do nothing for Undo

cut
		_LECut
		_LEToScrap
		rts
		
copy
		_LECopy
		_LEToScrap
		rts
		
paste
		_LEFromScrap
		_LEPaste
		rts
		
clear
		_LEDelete
		rts
		
		endp
		
		


;======================================================================
;
;			BuildZoneList
;
; This routine builds the zone list by doing a GetZoneList2, selecting
; my zone (as returned by GetMyZone), and sorting the list.  The list
; control is updated with a NewList2 call.
;
;======================================================================

BuildZoneList	procname

		import	myID,lastZone
		import	zoneMembers,zoneListH
		import	GZL2:GetZoneList2Rec
		import	GMZBuffer
		import	GetMyZone:GetMyZoneRec
		import	ATGetInfo:ATGetInfoRec
		

local		record	dp.locals
h		ds.l	1		; for deref of handle
memPtr		ds.l	1		; points into member array
zonePtr		ds.l	1		; points into zone buffer
		endr

		stz	GZL2.zonesReturned	; assume no zones

;
; Test ARouter before trying to get zones
;
		ATCall	ATGetInfo
		lda	ATGetInfo.aBridge
		and	#$00FF		; it's just a byte
		bne	Router
		rts			; no router, so leave list empty

Router
;
; Do a GetMyZone so I know which item in the list to select.
;
		ATCall	GetMyZone
		bcc	@noerr
@errexit	rts			; error, assume no zones
@noerr

;
; Now do the GetZoneList2 call
;
		stz	GZL2.zipWork	; init work for whole list
		stz	GZL2.zipWork+2
		ATCall	GZL2		; make the call
		bcs	@errexit	; didn't work, assume no zones

;
; Construct the array of member records to point to the zone
; names in the zone buffer.  The member handle can remain unlocked
; because I don't make any tool calls inside the loop.
;
		with	local
		
		lda	GZL2.bufferPtr
		sta	zonePtr	; point to start of zone list
		lda	GZL2.bufferPtr+2
		sta	zonePtr+2
		
		lda	zoneMembers	; deref member array handle
		ldx	zoneMembers+2
		jsr	Deref
		sta	memPtr
		stx	memPtr+2
		
		ldx	GZL2.zonesReturned
		ldy	#0
@loop
		lda	zonePtr
		sta	[memPtr],y	; copy low word of string pointer
		iny
		iny			; point to high word of pointer
		lda	zonePtr+2
		sta	[memPtr],y	; copy high word of string pointer
		iny			; point to memFlag-1
;
; Here, we see if the zone matches GetMyZone.  If so, select this item.
;
		lda	#0
		sta	[memPtr],y	; clear high byte of pointer and memFlag
					; this defaults the item to not selected

		phx			; toolbox will munge X,Y!
		phy
		
		pha			; space for result
		PushWord #0		; flags (reserved)
		PushLong #GMZBuffer	; my zone
		pushldp	zonePtr		; the current zone
		_CompareStrings
		pla			; will be 0 if they equal

		ply			; restore X,Y
		plx
		cmp	#0		; did strings match?
		bne	@notmyzone	; no, so don't select
		lda	#$8000		; set selected in memFlag
		sta	[memPtr],y
@notmyzone
		iny
		iny			; point past memFlag
		
		lda	[zonePtr]	; get string length
		and	#$00FF		; want just length byte
		sec			; plus 1 for length byte
		adc	zonePtr		; get addr of next string
		sta	zonePtr
		bcc	@nohigh		; branch if no bank cross
		inc	zonePtr+2	; add carry to bank
@nohigh
		dex			; more zones?
		bne	@loop
		
		endwith			; local

;
; Create the new list with all of the new members
;
		PushLong #0		; no special member draw routine
		PushWord #1		; start with first member (will change)
		PushLong zoneMembers	; reference to member array
		PushWord #refIsHandle	; it's a handle
		PushWord GZL2.zonesReturned	; list size
		PushLong zoneListH	; handle to list control
		_NewList2

;
; Sort the list
;
		PushLong #1		; do case-insensitive sort
		PushLong zoneListH
		_SortList2

;
; Now, select my zone by finding the first (and only) selected
; item and re-selecting it.
;

; find the first selected member
		pha			; room for result
		PushWord #0		; start at beginning of list
		PushLong zoneListH	; push handle to control
		_NextMember2		; find first selected

; save currently selected zone
		lda	1,s
		sta	lastZone
		
; using that item number, select it
		PushLong zoneListH
		_SelectMember2

		rts

		endp


;======================================================================
;
;			StartLookup
;
; Resets the server list to empty, then gets the zone from the zone
; list (or "*") and begins the async LookupName.  Servers are actually
; added to the list during RunCDEV messages.
;
;======================================================================

StartLookup	procname

		import	LookupName:LookupNameRec
		import	myWindow,srvrListSize
		import	zoneMembers,zoneListH,LookupZone
		import	srvrListH,srvrMembers
		import	HiliteByID,AlertByID
		

local		record	dp.locals
h		ds.l	1		; used to deref handles
		endr
		
		stz	SrvrListSize	; server list will be empty

;
; Rebuild a new, empty, server list
;
		PushLong #0		; use default draw routine
		PushWord #1		; first displayed item
		PushLong srvrMembers	; reference to member array
		PushWord #refIsHandle
		PushWord #0		; zero items in list
		PushLong srvrListH	; handle to list control
		_NewList2

;
; Disable the OK button since no servers are selected
;
		ldx	#255		; disable control
		lda	#ServerOKButton ; OK button's ID
		jsr	HiliteByID
		
;
; Copy the zone name from the zone list to the entity name used
; by the lookup call (this makes us look in the selected zone).
;
		lda	#$2A01		; "*" as a two-byte string
		sta	LookupZone	; use "*" as default zone name
		
		pha			; room for member number
		PushWord #0		; start at beginning of list
		PushLong zoneListH	; look in zone list
		_NextMember2

		pla			; get item number
		beq	NoZones		; no zones, just use "*"
		
		dea			; make it 0-based
		pha			; push room for product
		pha
		pha			; push item number - 1
		PushWord #5		; push size of zone member
		_Multiply		; now have offset to item
		
		lda	zoneMembers	; deref handle to zone members
		sta	local.h
		lda	zoneMembers+2
		sta	local.h+2
		ldy	#2
		clc
		pla			; add offset to start of member array
		adc	[local.h]	; to pointer to member array
		tax
		pla
		adc	[local.h],y
		stx	local.h		; put back in h to use as pointer
		sta	local.h+2	; local.h points to nth member record
		
		lda	[local.h]	; get pointer to member's string
		tax
		lda	[local.h],y
		stx	local.h
		sta	local.h+2	; now local.h points to zone's string
		
		ldy	#32		; always copy 34 bytes of zone string
@loop
		lda	[local.h],y	; copy from zone list
		sta	LookupZone,y	; and into lookup's entity
		dey
		dey
		bpl	@loop
NoZones
;
; Now, start the async LookupName
;
		ATCall	LookupName
		lda	LookupName.result
		cmp	#NBPBusy
		bne	@done
		_InitCursor
		lda	#rNBPBusy
		jsr	AlertByID
@done
		rts
		
		endp



;======================================================================
;
;			CtlHandleByID
;
; This is basically a simplified version of the GetCtlHandleFromID
; toolbox call.  Put the low word of the control ID in A (the high word
; is assumed to be zero) and the handle will be returned in A,X (with
; the high word in A, low word in X).  The current port must be set
; to the window containing the control.
;
;======================================================================

CtlHandleByID	procname

		pha		; room for handle (and save A)
		pha
		pha		; room for port
		pha
		_GetPort
		lda	7,s	; recover control ID
		PushWord #0	; high word of control ID
		pha		; low word of control ID
		_GetCtlHandleFromID
		plx		; low word of control handle
		pla		; high word of control handle
		rts
		
		endp
		



;======================================================================
;
;			HiliteByID
;
; Given a part code (in X) and a control ID (in A), this routine finds
; the control and then calls HiliteControl.  It assumes the window
; is the current GrafPort.  It also assumes that the upper word of
; the control ID is zero.
;
;======================================================================

HiliteByID	procname

		phx			; push part code
		jsr	CtlHandleByID
		pha			; push control handle
		phx
		_HiliteControl
		rts
		
		endp
		


;======================================================================
;
;			HideByID
;
; Given a control ID in A, this routine will hide that control by
; finding its handle and using HideControl.  It assumes that the high
; word of the control ID is zero.
;
;======================================================================

HideByID	procname

		jsr	CtlHandleByID
		
		pha			; push control handle
		phx
		_HideControl

		rts
		
		endp
		


;======================================================================
;
;			ShowByID
;
; Given a control ID in A, this routine will show that control by
; finding its handle and using ShowControl.  It assumes that the upper
; word of the control ID is zero.
;
;======================================================================

ShowByID	procname

		jsr	CtlHandleByID
		
		pha			; push control handle
		phx
		_ShowControl

		rts
		
		endp
		


;======================================================================
;
;			SelectLEByID
;
; This routine takes the low word of a control ID of a line edit
; control in A, makes it the target, and selects all of its text.
; The high word of the control is assumed to be zero.
;
;======================================================================

SelectLEById	procname

		PushWord #0		; select from start of text
		PushWord #256		; select to end of text

		pha			; room for LineEdit record handle
		pha

		jsr	CtlHandleByID	; find the control
		
		pha			; one copy for MakeThisCtlTarget
		phx
		
		pha			; one copy for GetCtlTitle
		phx
		
		_MakeThisCtlTarget	; make it the target control

		_GetCtlTitle		; get LineEdit record handle

		_LESetSelect		; select the text

		rts
		


;======================================================================
;
;			SetCtlValByID
;
; A simplified _SetCtlValue.  The new value is passed in X and the
; control ID is in A (low word, the high word is zero).
;
;======================================================================

SetCtlValByID	procname

		phx			; push new value
		jsr	CtlHandleByID	; get control handle
		pha			; push control handle
		phx
		_SetCtlValue
		rts
		
		endp
		



;======================================================================
;
;			BlinkByID
;
; This routine takes the low word of a control ID in A (the high word
; must be zero) and hilites then unhilites the control.  It is used
; to make the OK button "blink" in the main window and the volume list
; dialog when the user double-clicks in a list.
;
;======================================================================

BlinkById	procname

		pha			; save control ID
		ldx	#1		; hilite it
		jsr	HiliteByID
		
		pla			; get control ID back
		ldx	#0
		jmp	HiliteByID
		
		endp
		



;======================================================================
;
;			RetryCommand
;
; Given a pointer to an AppleTalk parameter block in X and Y, this
; routine will keep making the command until it gets an error other
; than too many ASP commands.
;
;======================================================================

RetryCommand	procname

		phy			; save X,Y in case we have to
		phx			; try the call again
again
		jsl	$E11014		; try to dispatch the call
		bcc	Exit		; no error, so return now

		lda	1,s		; get X (low word)
		tax
		lda	3,s		; get Y (high word)
		tay
		phd			; create a stack frame so I can
		tsc			; look at the parameter block
		tcd
		ldy	#2		; offset to result field
		lda	[3],y		; get result from pb
		pld			; clean up stack frame
		cmp	#SPTooManyCalls
		beq	again
Exit
		ply			; clean up stack
		plx
		rts
		
		endp
		



;======================================================================
;
;			SetupHadConn
;
; This routine is called to change the "Connect As..." dialog if the
; user was already logged in.  It will show how they are logged in,
; what their user name is, etc.  It also sets up selectedUAM to
; either rScrambled (randnum exchange) or 0 (guest).  The userName
; variable is set to their user name.
;
;======================================================================

SetupHadConn	procname
		import	SPCommand:SPCommandRec
		import	FILogin:FILogin2Rec
		import	cmdBuf,replyBuf,selectedUAM
		import	connWindow,userName
		import	HideNameAndPass,ShowNameAndPass
		
;
; Put up "Already connected" instead of "Connect as"
;
		lda	#rAlreadyConn
		jsr	ShowByID

;
; Figure out what their user name is (empty string if they logged
; on as a guest).
;
		lda	FILogin.sessRefNum
		sta	SPCommand.sessRefNum
		
		lda	#FPGetUserInfo
		sta	cmdBuf
		lda	#$100		; bitmap = user ID
		sta	cmdBuf+6
		lda	#8		; command length
		sta	SPCommand.bufLen
		
		ldx	#<SPCommand
		ldy	#^SPCommand
		jsr	RetryCommand
		
		lda	#FPMapUserID
		sta	cmdBuf
		lda	replyBuf+2	; copy user ID
		sta	cmdBuf+2
		lda	replyBuf+4
		sta	cmdBuf+4
		lda	#6		; command length
		sta	SPCommand.bufLen
		
		ldx	#<SPCommand
		ldy	#^SPCommand
		jsr	RetryCommand
		
;
; User name is now in replyBuf (empty string if Guest)
;
		lda	replyBuf
		and	#$FF		; get length byte
		beq	Guest

;
; Here, they are logged on as a registered user so dim the Guest
; button, hide the "(Scrambled)" string, fill in and deactivate
; the user name, hide the password, set selectedUAM to rScrambled.
;
		lda	#rScrambled	; pretend logon by randnum exchange
		sta	selectedUAM
		
		ldx	#$FF		; dim guest button
		lda	#rGuest
		jsr	HiliteByID
;
; Copy user name from replyBuf to userName and show the user name
; static text control.
;
		ldx	#30
@loop
		lda	replyBuf,x
		sta	userName,x
		dex
		dex
		bpl	@loop
		
		lda	#rNameLE
		jsr	HideByID
		lda	#rPassStr
		jsr	HideByID
		lda	#rPassLE
		jsr	HideByID
		lda	#rNameStatText
		jsr	ShowByID

;
; Now to do something kind of ugly.  I'm going to change the control ID
; of the Registered User button so that my modal dialog code won't
; react if the user clicks on it (this way I won't go showing the
; password field, etc.).
;
		PushLong #$0000FFFF	; new control ID
		lda	#rRegistered
		jsr	CtlHandleByID	; get control handle
		pha			; push control handle
		phx
		_SetCtlID
		
		rts
;
; Here, they are logged on as a guest so select the guest button,
; hide all the registered user stuff (dim the Registerd User button
; itself), set selectedUAM to 0.
;
Guest
		stz	selectedUAM
		
		ldx	#1
		lda	#rGuest
		jsr	SetCtlValByID

		ldx	#$FF		; dim registered user button
		lda	#rRegistered
		jsr	HiliteByID
		
		jsr	HideNameAndPass	; do dimming/hiding for guest
		
		rts
		
		endp
		
		


;======================================================================
;
;			SetupNewConn
;
; This routine is called to change the "Connect As..." dialog if the
; user is not yet logged in.  It checks the UAMs to determine what
; options to give the user, etc.
;
;======================================================================

SetupNewConn	procname
		import	hasGuest,hasScrambled,hasClearText
		import	selectedUAM,userName,serverPassword
		import	connWindow,HideNameAndPass
		
;
; Put up the "Connect as..." string
;
		lda	#rConnString
		jsr	ShowByID

;
; See if the guest UAM is present.  If not, dim the Guest button.
;
		lda	hasGuest
		bne	GuestOK
		ldx	#$FF		; inactive control
		lda	#rGuest	; dim the Guest radio button
		jsr	HiliteByID
GuestOK

;
; See if it supports registered users (Randnum Exchange or Clear Text).
; If it does, leave selectedUAM set to the most secure method.
;
		lda	#rScrambled	; assume Randnum Exchange
		sta	selectedUAM

		lda	hasScrambled
		bne	GotRegistered	; Randnum exchange supported!
		
		inc	selectedUAM	; change to Clear Text
		
		lda	hasClearText
		bne	GotRegistered
; Neither ClearText nor Randnum Exchange supported, so dim out
; Registered user button and hide user name and password fields.
		stz	selectedUAM	; best we can do is guest
		ldx	#$FF		; inactive control
		lda	#rRegistered	; dim the Registered User button
		jsr	HiliteByID
		ldx	#1		; set Guest button to on
		lda	#rGuest		; button's ID
		jsr	SetCtlValByID
		jsr	HideNameAndPass	; do other dimmming/hiding
		bra	GotUAM
GotRegistered
		lda	selectedUAM
		jsr	ShowByID	; show the registered user UAM

;
; Set the user name in the dialog.  This is set up by the caller of
; DoConnectAs to be either the name from AppleShare.Prep or the name
; from the main window.
;
		PushLong connWindow
		PushLong #rNameLE
		PushLong #userName
		_SetLETextByID

;
; Set the default password from the serverPassword variable.
;
		PushLong connWindow
		PushLong #rPassLE
		PushLong #serverPassword
		_SetLETextByID

;
; If the user name is the empty string, select it (make it the
; target control).  Otherwise, select the password.
;
		ldx	#rPassLE	; assume select password
		lda	userName	; get name length
		and	#$00FF		; only want a byte
		bne	@id		; non-zero, so use password field
		ldx	#rNameLE	; empty name, select it
@id
		txa			; need control ID in A
		jsr	SelectLEByID	; select the right line edit control

GotUAM
		rts
		
		endp
		
		


;======================================================================
;
;			DoConnectAs
;
; Given a file server, determine the UAM's it supports and ask how
; the user wants to connect to it (i.e. as a Guest or a Registered
; User).  If the user presses OK, we will actually log in (so that
; we can display an error and as for the name/password again).
;
; On entry, SetCtlParamPtr must have been called, setting *0 to the
; name of the file server.
;
; On exit, the selected UAM will be in the global selectedUAM (zero if
; Guest was selected).  The carry flag will be set if the user cancelled.
;
; 13-Sep-91 MSD	If the global variable "interactive" is zero, then we
;		will try to log on first.  If we get an error, we will
;		put up the dialog.  On exit, interactive will be negative
;		if we actually did put up the dialog.  Inputs are the
;		same as for TryLogin.
;
;======================================================================

DoConnectAs	procname
		import	connWindow,userName
		import	NewWindByID,selectedUAM,serverPassword
		import	taskRecord:ExtTaskRec
		import	FindString,AlertByID,serverAddress
		import	hasGuest,hasClearText,hasScrambled,hasChgPwd
		import	TryLogin,alreadyConn,hasAFP20,SetPassword
		import	FILogin:FILogin2Rec
		import	FILogout:FILogoutRec
		import	ShowPFIErr,GetStatus
		import	HideNameAndPass,ShowNameAndPass


;
; Go see which features/versions/UAMs the server supports
;
		jsr	GetStatus
		bcc	@noerr
		
		lda	#rNoResponse
		jsr	AlertByID
		sec			; pretend it was cancelled
		rts			; return with A=0
@noerr

;
; See if we're already connected to this file server by doing an
; FILogin with a command buffer length of zero.  If we're connected,
; the sessRefNum will be set and we'll get an error.
;
		stz	alreadyConn	; assume not connected yet
		
		lda	serverAddress
		sta	FILogin.srvrAddr
		lda	serverAddress+2
		sta	FILogin.srvrAddr+2
		
		stz	FILogin.bufLen
		
		ATCall	FILogin
		bcc	NewLogin	; no error => not logged in
		inc	alreadyConn	; yep, already connected

NewLogin
		lda	hasAFP20
		bne	@okVers
; They don't support AFP 2.0 so put up an error message
		lda	#rBadAFPVers
		jsr	AlertByID
		sec			; pretend cancel hit
		rts			; return with A=0
@okVers
		lda	hasGuest
		ora	hasClearText
		ora	hasScrambled	; aything I support?
		bne	@okUAM
; They don't support any UAM I know about, so put up an alert
		lda	#rBadUAM
		jsr	AlertByID	; A = 0 because only one button
		sec			; pretend cancel hit
		rts			; A = 0 means cancelled
@okUAM

		export	BootConnectAs
BootConnectAs	name
;
; Save the current port
;
		pha			; room for cancel flag
		pha
		pha
		_GetPort

;
; Create the "Connect as..." window
;
		lda	#rConnDlg
		jsr	NewWindByID
		stx	connWindow
		sta	connWindow+2
		
;
; If the server doesn't support changing passwords, dim the button
;
		lda	hasChgPwd
		bne	@SetPassOK
		ldx	#$FF		; inactive control
		lda	#rCSetPass	; dim the Set Password button
		jsr	HiliteByID
@SetPassOK

;
; Set up the dialog appropriately depending on whether they were already
; logged on or not.
;
		lda	alreadyConn
		bne	@HadConn
		jsr	SetupNewConn	; set up for new connection
		bra	@IsSetup
@HadConn
		jsr	SetupHadConn	; set up for existing connection
@IsSetup

;
; Now, wait for the user to hit one of the buttons
;
@loop
		pha			; room for result
		pha
		PushLong #taskRecord	; pointer to my extended task record
		lda	#0		; value for defaults
		pha			; use standard update routine
		pha
		pea	$8000		; Event hook = $80000000
		pha			; to do Cmd-. => Esc translation
		pha			; use default beep routine
		pha
		PushWord #mwIBeam	; DoModalWindow flags
		_DoModalWindow
		pla			; get control ID
		plx			; ignore high word of ID

		cmp	#0		; null event?
		beq	@loop		; yes, keep going
		cmp	#rDlg1Last+1	; beyond what I care about?
		bge	@loop		; yes, so keep doing dialog
		sec
		sbc	#rDlg1First	; get 0 offset for IDs
		asl	a
		tax
		jsr	(hitTable,x)	; do the right thing
		bcc	@loop
		
;
; Whatever it was, we're done.
;
		sta	5,s		; save cancel flag
		PushLong connWindow
		_CloseWindow
		_SetPort		; restore old port

		_InitCursor		; force arrow cursor (2-Apr-92 DAL)

		pla			; get cancel flag back
		
		lsr	a		; set carry if cancel
		rts

hitTable
		dc.w	DoGuest
		dc.w	DoRegistered
		dc.w	DoCancel
		dc.w	DoOK
		dc.w	DoSetPass

;
; DoGuest -- Called when Guest button clicked.
;
DoGuest
		jsr	HideNameAndPass
		clc			; continue dialog
		rts

;
; DoRegistered -- Called when Registered User button clicked.
;
DoRegistered
		jsr	ShowNameAndPass
		clc			; continue dialog
		rts

;
; DoSetPass -- The Set Password button was clicked.  We end up
; logging on, then doing an FPChangePassword call.  We will remain
; logged on just as if they hit the OK button (as long as they
; don't cancel from the set password dialog).
;
DoSetPass
		jsr	SetPassword	; carry set if OK
		rts

;
; The cancel button was hit.
;
DoCancel
		lda	#1
		sec
		rts

;
; The OK button was hit.  Extract the selected UAM, user name,
; and password.
;
DoOK
		lda	alreadyConn	; already connected?
		bnel	@exit		; yes, so just exit now
		
		pha			; room for value
		lda	#rGuest
		jsr	CtlHandleByID
		pha			; push control handle
		phx
		_GetCtlValue
		pla
		beq	@registered

		stz	selectedUAM
		stz	userName	; set userName to empty
		bra	@guest
		
@registered
;
; They picked Registered User so copy out the user name and password.
;
		PushLong connWindow
		PushLong #rNameLE
		PushLong #userName
		_GetLETextByID

;
; Fill password buffer with nulls, then get password.  This will
; have the effect of leaving an 8 byte, null padded password at
; serverPassword+1.
;
		ldx	#8
@padloop
		stz	serverPassword,x
		dex
		dex
		bpl	@padloop

		PushLong connWindow
		PushLong #rPassLE
		PushLong #serverPassword
		_GetLETextByID
@guest
;
; Now, try to log in
;
		jsr	TryLogin
		bcc	@exit
		pha			; save error code
		jsr	ShowPFIErr	; put up a dialog explaining error
		plx			; get error code back
;
; If error was unknown user or bad password, select the corresponding
; line edit field and give user another chance to log on.
;
		lda	#1		; pretend cancel pressed
		cpx	#FIUserNotAuth	; bad password?
		beq	@password
		cpx	#FIParamErr	; bad user name?
		bne	@exit2		; no, other errors just exit
;
; Here, the user name was bad (or password expired in HHG).  Let them
; re-enter the name and try again.
;
		lda	#rNameLE
		jsr	SelectLEByID
		
		clc			; not done yet
		rts
@password
;
; Here, the password was bad.  Let them re-enter it.
;
		lda	#rPassLE
		jsr	SelectLEByID
		
		clc			; not done yet
		rts
		
@exit
		lda	#0		; no cancel
@exit2
		sec			; done with dialog
		rts
		
		endp
		


;======================================================================
;
;			HideNameAndPass
;
; This routine hides the name, password, and UAM fields in the "Connect
; as..." dialog.  It also makes the Set Password button inactive.
; This routine is appropriate when the Guest radio button has been
; selected (by the user or by the connect code).
;
;======================================================================

HideNameAndPass	procname
		import	selectedUAM
		
		lda	#rNameStr
		jsr	HideByID
		lda	#rNameLE
		jsr	HideByID
		
		lda	#rPassStr
		jsr	HideByID
		lda	#rPassLE
		jsr	HideByID
		
		lda	selectedUAM	; this is control ID of
		jsr	HideByID	; the UAM string

		ldx	#$FF		; inactive control
		lda	#rCSetPass	; dim the Set Password button
		jsr	HiliteByID

		rts
		
		endp




;======================================================================
;
;			HideNameAndPass
;
; This routine hides the name, password, and UAM fields in the "Connect
; as..." dialog.  It also makes the Set Password button inactive.
; This routine is appropriate when the Guest radio button has been
; selected (by the user or by the connect code).
;
;======================================================================

ShowNameAndPass	procname
		import	selectedUAM,hasChgPwd
		
		lda	#rNameStr
		jsr	ShowByID
		lda	#rNameLE
		jsr	ShowByID
		
		lda	#rPassStr
		jsr	ShowByID
		lda	#rPassLE
		jsr	ShowByID
		
		lda	selectedUAM	; this is control ID of
		jsr	ShowByID	; the UAM string

; Now check to see if I should enable the Set Password button based
; on the the hasChgPwd flag.
		lda	hasChgPwd	; did server support set password?
		beq	noSetPass	; no, so leave dimmed
		ldx	#0		; active control
		lda	#rCSetPass	; activate the Set Password button
		jsr	HiliteByID
noSetPass
		rts
		
		endp




;======================================================================
;
;			TryLogin
;
; This routine is called at boot time and from the Connect As dialog
; to attempt to connect to a given file server.  This does not put
; up any dialogs (so boot mount can put up Connect As and Connect As
; can put up a dialog).
;
; On entry:
;	serverAddress	4-byte internet address of file server
;	selectedUAM	0 = Guest, or rClearText, rScrambled
;	userName	set if UAM <> Guest
;	serverPassword	set if UAM <> Guest
;
; On exit:
;	A = error code (zero if no error)
;	carry set on error, clear otherwise
;	session refnum in FILogin.sessRefNum (if no error)
;
;======================================================================

TryLogin	procname export
		import	FILogin:FILogin2Rec
		import	FILoginCont:FILoginContRec
		import	serverAddress,selectedUAM
		import	userName,serverPassword
		import	cmdBuf,replyBuf,AFPVersion20,AFPVersion21,hasAFP21
		import	GuestUAM,ClearTextUAM,ScrambledUAM
		import	PutString,DES,subText
		
;
; Set up server's address
;
		lda	serverAddress
		sta	FILogin.srvrAddr
		lda	serverAddress+2
		sta	FILogin.srvrAddr+2

;
; Set up pointer to server's name (zone name is at a constant
; location, so it is set up in globals.aii).
;
		lda	subText		; server name is "*0"
		sta	FILogin.serverName
		lda	subText+2
		sta	FILogin.serverName+2

;
; Set up FPLogin command packet in cmdBuf
;
		lda	#FPLogin
		sta	cmdBuf
		
		ldx	#1		; offset for AFPVersion
*** changed 4-Mar-93 DAL
		lda	#$0200		;anticipate AFP2.0
		sta	FILogin.afpVersion
		PushLong #AFPVersion20	; string to add
		lda	hasAFP21
		beq	@no21
		lda	#AFPVersion21
		sta	1,s
		lda	#$0201
		sta	FILogin.afpVersion
@no21
*** end 4-Mar-93
		jsr	PutString	; put PString in cmdBuf
		
		ldy	selectedUAM
		beq	Guest
		cpy	#rClearText
		beq	ClearText
		bra	Randnum
;
; UAM is guest
;
Guest
		PushLong #GuestUAM
		jsr	PutString
		bra	SendIt
		
;
; UAM is Clear text
;
ClearText
		PushLong #ClearTextUAM
		jsr	PutString
		PushLong #userName
		jsr	PutString
		txa			; if X is odd, put a pad byte
		lsr	a
		bcc	@nopad
		stz	cmdBuf,x	; put pad byte in
		inx
@nopad
		ldy	#0
@loop
		lda	serverPassword+1,y ; don't copy length byte!
		sta	cmdBuf,x
		inx
		inx
		iny
		iny
		cpy	#8		; copy 4 words of password
		bne	@loop
		bra	SendIt
		
;
; UAM is Randnum exchange
;
Randnum
		PushLong #ScrambledUAM
		jsr	PutString
		PushLong #userName
		jsr	PutString

;
; The packet is built and the length is in X.  Now send it out.
;
SendIt
		stx	FILogin.bufLen
		ATCall	FILogin
		lda	FILogin.result
		cmp	#FILogContErr	; login continue?
		bne	Exit

;
; Got a LoginContinue error so extract the random number, encrypt
; it, and do an FILoginCont call.
;
Continue
		ldx	#<DESParamBlock
		ldy	#^DESParamBlock
		jsl	DES
		
		lda	#FPLoginCont
		sta	cmdBuf
		lda	replyBuf	; copy (transaction) ID
		sta	cmdBuf+2

		sep	#$20
		longa	off
		lda	FILogin.sessRefNum
		sta	FILoginCont.sessRefNum
		rep	#$20
		longa	on
		
		ATCall	FILoginCont
		lda	FILoginCont.result

Exit
		cmp	#1		; set carry if A<>0
		pha
		pla			; set N,Z according to A
		rts

DESParamBlock
		dc.l	serverPassword+1
		dc.l	replyBuf+2	; get straight from reply
		dc.l	cmdBuf+4	; put in place for login continue

		endp
		



;======================================================================
;
;			PutString
;
; Copies a Pascal string (address passed on the stack) into cmdBuf
; at the offset given in the X register.  On exit, X is the offset
; in cmdBuf of the byte after the last byte of the string.
;
;======================================================================

PutString	procname
		import	cmdBuf
		
dp		record	1
savedD		ds.w	1
rts		ds.w	1
str		ds.b	3
count		ds.b	1		; really high byte of str
		endr

		phd
		tsc
		tcd			; create a stack frame
		
		sep	#$20
		longa	off
		
		ldy	#0
		lda	[dp.str]	; get string length
		ina			; plus 1 for length byte
		sta	dp.count

loop
		lda	[dp.str],y
		sta	cmdBuf,x
		iny
		inx
		dec	dp.count
		bne	loop
		
		rep	#$20
		longa	on
		
		pld
		pla			; get return address
		sta	3,s		; overwrite pointer high word
		pla			; pop string pointer low word
		rts

		endp
		



;======================================================================
;
;			HideVolButtons
;
; This routine hides the Save My Name and Save My Name and Password
; buttons in the volume list dialog.
;
;======================================================================

HideVolButtons	procname

		lda	#idNameOnly
		jsr	HideByID
		lda	#idNameAndPass
		jsr	HideByID

		rts
		
		endp
		



;======================================================================
;
;			ShowVolButtons
;
; This routine shows the Save My Name and Save My Name and Password
; buttons in the volume list dialog.  It only shows the buttons
; if you logged on as a registered user.
;
;======================================================================

ShowVolButtons	procname
		import	selectedUAM
		
		lda	selectedUAM
		beq	done
		
		lda	#idNameOnly
		jsr	ShowByID
		lda	#idNameAndPass
		jsr	ShowByID
done
		rts
		
		endp
		



;======================================================================
;
;			SetupVolPath
;
; This routine sets up the volPath buffer to be a volume name turned
; into a path by prepending a "/" to the front of the volume name.
;
; On entry:
;	A =	high word of volume name pointer
;	X = 	low word of volume name pointer
;
; On exit:
;	volPath is set up
;
;======================================================================

SetupVolPath	procname
		import	volPath
		
dp		record	1
volPtr		ds.l	1
savedD		ds.w	1
		endr

;
; Set up a local stack frame
;
		phd
		pha			; high word of volume pointer
		phx			; low word of volume pointer
		tsc
		tcd

		sep	#$30
		longa	off
		longi	off
		
;
; Do the string copy
;
		lda	[dp.volPtr]	; copy length byte
		tay
		ina			; add 1 for "/"
		sta	volPath
loop
		lda	[dp.volPtr],y
		sta	volPath+1,y	; +1 is room for "/"
		dey
		bne	loop

		lda	#'/'
		sta	volPath+1
		
		rep	#$30
		longa	on
		longi	on

;
; Clean up stack and exit
;
		pla			; remove volPtr
		pla
		pld
		rts

		endp
		



;======================================================================
;
;			MountAVol
;
; This routine is called at boot time or from the volume list dialog
; to attempt to mount a volume.  It doesn't put up any dialogs (the
; boot mount code or SelectVols should do that).
;
; On entry:
;	FILogin.sessRefNum	sessRefnum to use (set up by TryLogin)
;	A (low byte)		mount flags set up for FIMountVol
;	X (low), Y (high)	pointer to volume name (no leading slash)
;	volPassword		(used if password bit set in flags)
; (Note: the high byte of A is ignored)
;
; On exit:
;	A = error code (zero if no error)
;	carry set on error, clear otherwise
;
;======================================================================

MountAVol	procname export
		import	FILogin:FILogin2Rec
		import	FIMountVol:FIMountVolRec
		
		stx	FIMountVol.volName
		sty	FIMountVol.volName+2
		
		sep	#$20
		longa	off
		
		sta	FIMountVol.flags
		
		lda	FILogin.sessRefNum
		sta	FIMountVol.sessRefNum
		
		rep	#$20
		longa	on
		
		ATCall	FIMountVol
		
		lda	FIMountVol.result
		cmp	#1		; set carry if error
		pha
		pla			; set N,Z according to A
		
		rts
		
		endp
		



;======================================================================
;
;			BuildVolList
;
; This routine gets the list of volumes from a server and builds
; up the member array.  It sets the memFlag field to tell me if
; the volume should be dimmed (either because it is already mounted
; or because I don't have enough access privileges) and whether
; to check the box.  Volumes with passwords are assumed to have enough
; access privileges to mount.
;
; The memFlag field is a word so it can contain these extra flags:
;	bit 15	set if volume is checked (mount at boot time)
;	bit 14	set if volume has a password
;	bit 13	set if volume is a user's volume
;
;======================================================================

BuildVolList	procname
		import	GetSrvrParms:SPCommandRec
		import	FIMountVol:FIMountVolRec
		import	FIAccess:FIAccessRec
		import	FILogin:FILogin2Rec
		import	volMembers,volPath,numVols
		import	myID,checkCount,volsMounted
		import	AlertByID
		
		
local		record	dp.locals
h		ds.l	1
bufPtr		ds.l	1		; point to GetSrvrParms buffer
memPtr		ds.l	1		; points to member records
numVols		ds.w	1		; loop counter
bufIndex	ds.w	1		; index into GetSrvrParms buffer
		endr

		stz	volsMounted	; assume no volumes already mounted
		stz	numVols		; assume error from server

		sep	#$20
		longa	off
		lda	FILogin.sessRefNum
		sta	FIMountVol.sessRefNum
		sta	GetSrvrParms.sessRefNum
		rep	#$20
		longa	on

;
; Deref handle to member records
;
		lda	volMembers
		ldx	volMembers+2
		jsr	Deref
		sta	local.memPtr
		stx	local.memPtr+2
		
;
; Do an FPGetSrvrParms to get a list of all the volumes.
;
		lda	GetSrvrParms.replyBufPtr
		sta	local.bufPtr	; make local copy
		lda	GetSrvrParms.replyBufPtr+2
		sta	local.bufPtr+2
		
		ldx	#<GetSrvrParms
		ldy	#^GetSrvrParms
		jsr	RetryCommand
		bcc	@noerr3
		lda	#rNoResponse
		bne	@alert		; always taken
@noerr3
		lda	GetSrvrParms.cmdResult+2
		beq	@noerr4
; got an error, probably ParamErr because user must change password
		stz	numVols		; no volumes returned
		lda	#rUnknownErr
@alert		jsr	AlertByID	
		sec			; indicate an error
@toExit
		brl	Exit
@noerr4
		ldy	#4		; offset to number of volumes
		lda	[local.bufPtr],y
		and	#$00FF		; get just NumVols byte
		sta	numVols
		sta	local.numVols
		clc			; assume no error
		beq	@toExit		; no volumes????

;----------
; For each volume in the list, attempt to mount it and get access
; information from it.  If I get an FIWasMounted error, dim the
; volume.  If the volume has a password, don't try to get access.
; Any volume successfully mounted in this way will get unmounted.
;----------
		iny			; point to first volume's flags
		stz	checkCount	; nothing checked yet

VolLoop
		sty	local.bufIndex	; save index to reply

;
; Build a member record.  Set up pointer to volume name string
; and default memFlag of selectable.
;
		ldy	#0
		lda	local.bufIndex
		sec			; add 1 to get past flags
		adc	local.bufPtr
		sta	[local.memPtr],y
		sta	local.h		; make another copy locally
		iny
		iny
		lda	local.bufPtr+2
		adc	#0
		sta	[local.memPtr],y
		sta	local.h+2
;
; See if the given server and volume are stored in AppleShare.Prep.
; If so, mark the server as checked.
;
		jsr	FindVolPrep	; see if volume is checked
		pha			; save checked flag
		ldy	local.bufIndex
		lda	[local.bufPtr],y ; get volume flags
		and	#$0081		; password and user bits only
		lsr	a		; password to bit 6, user in carry
		bcc	@nouser
		ora	#$20		; set bit 5 for user volume
@nouser
		xba			; put flags in high byte
		ora	1,s		; add volume checked flag
		ply			; pull volume checked flag
		bpl	@nocheck
		inc	checkCount
@nocheck
		ldy	#4		; offset to memFlag
		ora	#memSelected	; selected, not checked
		sta	[local.memPtr],y

;
; Make a copy of the name with a slash in front of it so I can do
; an FIAccess call.
;
		ldx	local.h
		lda	local.h+2
		jsr	SetupVolPath

;
; Now try mounting the volume to see if it's already mounted and so I
; can do an FIAccess to see if I have enough privileges to use it.
;
		lda	#$0080		; mount, no password, no user volume
		ldx	local.h
		ldy	local.h+2
		jsr	MountAVol	; try to mount it
		bcs	MountErr	; error, so no FIAccess

		ATCall	FIAccess
		lda	FIAccess.rights
		and	#$0083		; am I owner or have some access?
		bne	Unmount		; yes, leave item selectable

		ldy	#omemFlag
		lda	[local.memPtr],y
		and	#$FF00		; turn off selected bit
		ora	#memDisabled+memNever	; can't select this one
		sta	[local.memPtr],y
Unmount
		lda	#0		; just unmount
		ldx	local.h
		ldy	local.h+2
		jsr	MountAVol
		bra	NextVol
		
MountErr
		lda	FIMountVol.result
		cmp	#FIWasMounted	; was volume already mounted?
		bne	NextVol		; other error, leave selectable
		ldy	#omemFlag
		lda	[local.memPtr],y
		and	#$FF00		; turn off selected bit
		ora	#memDisabled+memNever
		sta	[local.memPtr],y
		inc	volsMounted	; say that volumes were mounted

NextVol
		clc
		lda	local.memPtr
		adc	#6		; point to next member record
		sta	local.memPtr
		bcc	@nohi
		inc	local.memPtr+2
@nohi
		
		inc	local.bufIndex	; point past flags
		ldy	local.bufIndex
		lda	[local.bufPtr],y
		and	#$00FF		; get length byte only
		sec			; plus 1 for length byte itself
		adc	local.bufIndex
		tay			; put back in Y
		dec	local.numVols
		bnel	VolLoop

		clc			; no errors
Exit
		rts


FindVolPrep
		import	prepHandle,LookupZone,subText
; On entry, local.h points to volume name.  Server name pointer is at
; subText.  Zone name is at LookupZone.  Return $0000 in A if not in list
; or return $8000 in A if volume is in list
vName		equ	1
pPrep		equ	5
sCount		equ	9
vCount		equ	11

		ldx	local.h
		ldy	local.h+2

		phd
		tsc
		sec
		sbc	#12
		tcs
		tcd
		
		stx	vName
		sty	vName+2
		
		lda	prepHandle
		ora	prepHandle+2
		beql	@exit		; no handle, return not found
		
		lda	prepHandle+2
		pha
		lda	prepHandle
		pha
		_HLock
		
		lda	prepHandle
		ldx	prepHandle+2
		jsr	Deref
		sta	pPrep
		stx	pPrep+2
		
		lda	[pPrep]		; get server count
		sta	sCount
		beql	@unlock		; none, return not found

		clc
		lda	pPrep
		adc	#2		; point past server count
		sta	pPrep
		lda	pPrep+2
		adc	#0
		sta	pPrep+2
@sloop
; See if server name matches
		pha			; room for result
		pea	0		; flags, reserved
		PushLong subText
		clc
		lda	pPrep
		adc	#<ServerInfoRec.serverName
		tax
		lda	pPrep+2
		adc	#^ServerInfoRec.serverName
		pha			; pointer to server name in prep data
		phx
		_CompareStrings
		pla
		bne	@snext

; compare zone names
		pha			; room for result
		pea	0		; flags, reserved
		PushLong #LookupZone
		clc
		lda	pPrep
		adc	#<ServerInfoRec.serverZone
		tax
		lda	pPrep+2
		adc	#^ServerInfoRec.serverZone
		pha			; point to zone in prep data
		phx
		_CompareStrings
		pla
		beq	@vfind
@snext
; Compute size of ServerInfoRec and associated VolumeInfoRec's.  Then
; add this to pPrep to point to the next ServerInfoRec.
		pha			; room for product
		pha
		ldy	#ServerInfoRec.volCount
		lda	[pPrep],y	; get volume count
		pha
		pea	VolumeInfoRec.sizeof
		_Multiply
		clc
		pla
		adc	#ServerInfoRec.sizeof
		plx			; remove high word of product
		clc
		adc	pPrep
		sta	pPrep
		lda	pPrep+2
		adc	#0
		sta	pPrep+2
		dec	sCount
		bne	@sloop
		bra	@notfound

@vfind
; Here, server and zone match.  Now try to match the volume.
		ldy	#ServerInfoRec.volCount
		lda	[pPrep],y
		sta	vCount
		beq	@notfound
		
		clc
		lda	pPrep
		adc	#<ServerInfoRec.sizeof
		sta	pPrep
		lda	pPrep+2
		adc	#^ServerInfoRec.sizeof
		sta	pPrep+2
@vloop
; compare volume name
		pha
		pea	0
		pei	vName+2
		pei	vName
		clc
		lda	pPrep
		adc	#<VolumeInfoRec.volName
		tax
		lda	pPrep+2
		adc	#^VolumeInfoRec.volName
		pha
		phx
		_CompareStrings
		pla
		beq	@found
		
		clc
		lda	pPrep
		adc	#<VolumeInfoRec.sizeof
		sta	pPrep
		lda	pPrep+2
		adc	#^VolumeInfoRec.sizeof
		sta	pPrep+2
		dec	vCount
		bne	@vloop
@notfound
		lda	#0		; return not found
		beq	@unlock
@found
		lda	#$8000		; return found
@unlock
		pha			; save found flag
		lda	prepHandle+2
		pha
		lda	prepHandle
		pha
		_HUnlock
		
		pla			; recover found flag
@exit
		tax			; save in X
		tsc
		clc
		adc	#12
		tcs
		pld
		txa			; put flag in A

		rts
		
		endp
		



;======================================================================
;
;			SelectVols
;
; Allow the user to select and mount volumes from server.  If the user
; made any changes that need to be saved to the AppleShare.Prep file,
; we delete that server's information (if any) from the file.  Then
; we open the file, set the mark to the end (to append) and write a
; ServerInfoRec.  In the volume loop, if the volume was checked we
; write out a VolumeInfoRec.  After the volume loop, we close the file.
;
;======================================================================

SelectVols	procname
		import	volListH,CheckListDraw,checkCount
		import	windOrigin,volWindow,numVols
		import	taskRecord:ExtTaskRec
		import	VolListHook,checkRect,checkBoxTempl
		import	dblClick,AskForVolPass,NewWindByID
		import	volMembers,subText,volsMounted
		import	mountFlag,ShowPFIErr,AddSrvrPass,AddVolPass
		import	prepChange,DelSrvrPrep,WriteSrvrInfo,WriteVolInfo
		import	serverInfo:ServerInfoRec
		import	volInfo:VolumeInfoRec
		import	GetSrvrPass,GetVolPass,saveNameOnly
		
		
local		record	dp.locals
vCount
h		ds.l	1
p		ds.l	1
activeOK	ds.w	1
		endr


		stz	prepChange	; no changes needed yet

;
; Save old port
;
		pha
		pha
		_GetPort

;
; Create the volume list window
;
		lda	#rVolDlg
		jsr	NewWindByID
		stx	volWindow
		sta	volWindow+2

;
; If the user saved name and password, make sure that radio button
; is selected.
;
		bit	saveNameOnly
		bmi	NameOnly
		ldx	#1
		lda	#idNameAndPass
		jsr	SetCtlValByID		; turn on name and password
NameOnly

;
; Get the handle to the volume list
;
		lda	#idVolList
		jsr	CtlHandleByID
		stx	volListH
		sta	volListH+2

;
; Compute the rectangle where the check boxes live
;
		stx	local.h		; deref handle to volume list control
		sta	local.h+2
		ldy	#2
		lda	[local.h],y
		tax
		lda	[local.h]
		sta	local.h
		stx	local.h+2
		
		ldy	#octlRect+ov1
		lda	[local.h],y	; get top of control
		sta	checkRect+ov1	; save as top of rect
		ldy	#octlRect+ov2
		lda	[local.h],y	; get bottom
		sta	checkRect+ov2
		iny
		iny			; Y = octlRect+oh2
		lda	[local.h],y	; get right
		sta	checkRect+oh2	; save as right
		sec
		sbc	#checkWidth+1	; left is based on right edge
		sta	checkRect+oh1
		
;
; Fix up the left and right edges in check box template
;
		clc
		adc	#4
		sta	checkBoxTempl+8 ; fix up left
		clc
		adc	#25		; width of check box itself
		sta	checkBoxTempl+12 ; fix up right
		
;
; Build the volume list member records
;
		jsr	BuildVolList
		bcsl	ExitVols	; close window if error

;
; Update the contents of the list
;		
		PushLong #CheckListDraw
		PushWord #1		; listStart
		PushLong volMembers	; listRef
		PushWord #refIsHandle
		PushWord numVols	; listSize
		PushLong volListH
		_NewList2

;
; Sort the list
;
		PushLong #1		; case-insensitive compare proc
		PushLong volListH
		_SortList2

;
; To make life easier, all enabled items were marked as selected.
; This way, I can find the first selected item and select it.  I
; end up with the first enabled item being selected.
;
		pha			; room for result
		PushWord #0		; start from beginning of list
		PushLong volListH
		_NextMember2
		pla			; get first selected, if any
		beq	NoneSelected
		
		pha			; select that member
		PushLong volListH
		_SelectMember2
;		
; Make the OK button active since something is selected
;
		ldx	#0		; make active
		lda	#idVOK		; control ID
		jsr	HiliteByID
NoneSelected

;
; Make the buttons visible if at least one box checked
;
		lda	checkCount	; are any checked?
		beq	NoneChecked
		jsr	ShowVolButtons
NoneChecked

;
; Now, wait for the user to hit one of the buttons
;
@loop
		pha			; room for result
		pha
		PushLong #taskRecord	; pointer to my extended task record
		lda	#0		; value for defaults
		pha			; use standard update routine
		pha
		PushLong #VolListHook	; use custom event hook for checkboxes
		pha			; use default beep routine
		pha
		PushWord #mwIBeam	; DoModalWindow flags
		_DoModalWindow
		pla			; get control ID
		plx			; ignore high word of ID

		cmp	#idVolMax+1	; beyond what I care about?
		bge	@loop		; yes, so keep doing dialog
		asl	a
		tax
		jsr	(hitTable,x)	; do the right thing
		bcc	@loop
		
;
; Whatever it was, we're done
;
ExitVols
		PushLong volWindow
		_CloseWindow
		_SetPort
		
		rts

hitTable
		dc.w	IgnoreEvent
		dc.w	DoList		; in the volume list
		dc.w	DoNameOnly
		dc.w	DoNamePass
		dc.w	DoQuit
		dc.w	DoOK

IgnoreEvent
		lda	prepChange
		beq	@nochange
		
		ldx	#0		; make OK button active
		lda	#idVOK
		jsr	HiliteByID
@nochange
		clc			; null event, keep going
		rts

DoList
;
; If nothing in the list is selected, disable the OK button
; and don't bother looking for a double click.
;
; Leave OK enabled if the check boxes were changed
;
		pha			; room for result
		pea	0		; start at item 0
		pushlong volListH	; handle to list control
		_NextMember2
		
		ldx	#$FF		; assume inactive for button
		pla			; see if anything selected
		ora	prepChange	; or checkboxes changed
		beq	@hilite		; nothing, so make inactive
		ldx	#0		; something selected, make active
@hilite
		stx	local.activeOK	; remember button state
		lda	#idVOK		; control ID
		jsr	HiliteByID
		
		lda	dblClick	; was it a double-click?
		beq	@exit		; no, so return
		stz	dblClick	; don't let us see it for other lists
		lda	local.activeOK	; is OK button enabled?
		beq	BlinkOK		; yes, so blink and hit OK button
@exit
		clc			; keep going
		rts
		
DoNameOnly
DoNamePass
		lda	#1
		sta	prepChange	; AppleShare.Prep needs to be updated
		
		clc			; keep going
		rts

DoQuit
		sec			; stop the dialog
		rts

BlinkOK
		lda	#idVOK
		jsr	BlinkByID
		
DoOK
;
; Save the server password in the Message Center in case they want to
; save volumes to mount at boot time (they might log on later and the
; only way I can get the password to save is from the Message Center).
; Only save it if we're logging on for the first time (volsMounted=0)
; since otherwise we don't know the password
;
		lda	volsMounted
		bne	@loop		; was already connected
		jsr	AddSrvrPass

;
; For each volume selected in the list, go and mount it.
;
@loop
		pha			; room for result
		PushLong volListH
		_ResetMember2		; find next selected member
		pla
		beql	@done

;
; Make a pointer to the item's member record
;
		dea			; adjust to 0 offset
		pha			; push space
		pha
		pha			; puhs 0-based index
		PushWord #6		; size of member record
		_Multiply

		lda	volMembers
		sta	local.h
		lda	volMembers+2
		sta	local.h+2
		ldy	#2
		pla			; get offset low word
		clc
		adc	[local.h]
		tax
		pla			; get offset high word
		adc	[local.h],y
		sta	local.h+2	; h points to nth member record
		stx	local.h

;
; Set up volPath so we'll be ready to mount the volume.  While we've
; got a pointer to the volume name, set it up as *2 for dialogs.
;
		lda	[local.h]	; get pointer to volume name
		tax
		lda	[local.h],y
		stx	subText+8	; substitute for *2
		sta	subText+10
		jsr	SetupVolPath	; build the path

;
; Figure out what the mount flags should be
;
		ldy	#4
		lda	[local.h],y	; get my memFlags
		xba			; put in low byte
		bit	#$0020		; see if user volume set
		php			; save user volume flag
		and	#$0040		; keep password bit only
		plp
		beq	@nouser
		ora	#$0001		; set user volume bit
@nouser
		ora	#$0080		; set mount bit
;
; If the volume has a password, ask for it.  Otherwise, just mount it.
;
		sta	mountFlag
		and	#$0040		; volume password bit set?
		beq	@noPass		; no, so just mount the volume
@askPass		
		jsr	AskForVolPass	; got to get a password to mount it
		bcs	@loop		; Cancel?  Try next volume.
		jsr	AddVolPass	; save password in message center
		bra	@success
@noPass
		lda	mountFlag
		ldx	subText+8	; get pointer to volume name
		ldy	subText+10
		jsr	MountAVol
		bcc	@success
;
; Handle a volume mount error.  Put up an alert and continue mounting
; volumes if possible.
;
		pha
		jsr	ShowPFIErr	; put up an alert
		pla
		cmp	#FITooManyVols	; was it too many volumes?
		beq	@done		; yes, so don't try any more
		brl	@loop		; no, so try other volumes
@success
		inc	volsMounted	; one more volume is mounted
		brl	@loop		; mount more volumes
@done

;
; If we need to update the AppleShare.Prep data, do it now by scanning
; the whole volume list again.
;
		lda	prepChange	; any changes made?
		beq	@nodel
		jsr	DelSrvrPrep	; delete this server from file
		lda	checkCount	; any volumes to save?
		beq	@nodel		; no, so skip it
		pha			; room for control value
		lda	#idNameOnly
		jsr	CtlHandleByID
		pha
		phx
		_GetCtlValue		; see if Save My Name Only set
		pla
		lsr	a		; put flag in carry
		ror	a		; put it in bit 15
		sta	serverInfo.serverFlags	; save Save My Name Only flag
		jsr	GetSrvrPass	; get password from Message Center
		jsr	WriteSrvrInfo	; write this server's record

; Scan through member records looking for checked volumes
		lda	volMembers+2
		pha
		lda	volMembers
		pha
		_HLock			; need it locked!
		lda	volMembers
		ldx	volMembers+2
		jsr	Deref
		sta	local.p
		stx	local.p+2	; save member pointer
		lda	numVols
		sta	local.vCount	; save volume count
@vloop
		ldy	#2
		lda	[local.p]	; get pointer to name
		sta	subText+8	; save as *2
		lda	[local.p],y
		sta	subText+10
		iny
		iny			; Y = 4
		lda	[local.p],y	; checked flag in bit 15
		bpl	@vnext		; not checked
		and	#$7F00		; get rid of other flags
		asl	a		; password flag now in bit 15
		sta	volInfo.volFlags ; save password and user volume bits
		bpl	@novpass
		jsr	GetVolPass	; get password from Message Center
@novpass
		jsr	WriteVolInfo	; append to AppleShare.Prep data
@vnext
		clc
		lda	local.p
		adc	#6		; size of a member record
		sta	local.p
		lda	local.p+2
		adc	#0
		sta	local.p+2
		dec	local.vCount
		bne	@vloop
@nodel

; Added 8-Nov-91 MSD
		jsl	$E100A8		; call GS/OS
		dc.w	$2033		; FST specific
		dc.l	GetUserPath
; End 8-Nov-91 MSD

		sec			; exit dialog
		rts

; Added 8-Nov-91 MSD
GetUserPath
		dc.w	3		; pcount
		dc.w	$D		; AppleShare FST ID
		dc.w	8		; Get_User_Path
		dc.l	0		; prefix pointer returned here
; End 8-Nov-91 MSD

		endp
		


;======================================================================
;
;			CheckListDraw
;
; This is my custom draw routine for the volume list.  The basic method
; is the following:
;   1.	Move the right edge of the rectangle left by 35 pixels to make
;	room for the check box.
;   2.	Set the clip region to this smaller rectangle.
;   3.	Use StringWidth to see if string will fit.  If not, do a
;	SetCharExtra(-1.0) to squeeze the string.
;   4.	Restore the clip region.
;   5.	Move to near right edge and draw one of the chars from the Control
;	Manager's font (empty checkbox or checked checkbox).
;
;======================================================================

CheckListDraw	procname
		import	norMask,dimMask
		
dp		record	1
savedD		ds.w	1
retaddr		ds.b	3	; return address
listHandle	ds.l	1
memRecPtr	ds.l	1
rectPtr		ds.l	1
		endr

inputSize	equ	12	; number of bytes of input to squeeze

		with	dp
;
; Create a stack frame
;
		phd
		tsc
		tcd
		
;
; Save old clip region and charExtra
;
		pha		; room for region handle
		pha
		_NewRgn
		lda	3,s	; make a copy of region handle
		pha		; on the stack
		lda	3,s
		pha
		_GetClip	; save old clip region
		pha		; room for saved charExtra
		pha
		_GetCharExtra
		
;
; Shrink the rectangle and clip to it
;
		ldy	#oh2		; right side of rect
		lda	[rectPtr],y
		sec
		sbc	#checkWidth
		sta	[rectPtr],y
		
		pei	rectPtr+2
		pei	rectPtr
		_ClipRect
		
;
; Draw the member (do disabled, selected, or too wide items)
;
		pei	rectPtr+2
		pei	rectPtr
		_EraseRect
		
		ldy	#oh1
		lda	[rectPtr],y
		clc
		adc	#textOffset
		pha
		ldy	#ov2
		lda	[rectPtr],y
		sec
		sbc	#2
		pha
		_MoveTo			; MoveTo(rect.h1+10,rect.v2-2)

; If room in rectangle < StringWidth, crunch text
		pha			; room for string width
		ldy	#2
		lda	[memRecPtr],y	; get pointer to member string
		pha
		lda	[memRecPtr]
		pha
		_StringWidth
		
		ldy	#oh2
		lda	[rectPtr],y
		ldy	#oh1
		sec
		sbc	[rectPtr],y	; width of rectangle (not including check box)
		sec
		sbc	#textOffset	; now have width of text part
		cmp	1,s		; compare to string width
		bge	NoScrunch	; text is narrow enough, so draw it
		PushLong #$FFFF0000	; -1.0 (as a fixed point number)
		_SetCharExtra
NoScrunch
		pla			; remove string width from stack
		
; Finally, draw the string
		ldy	#2
		lda	[memRecPtr],y	; get pointer to member string
		pha
		lda	[memRecPtr]
		pha
		_DrawString

; If it is selected, invert the text rectangle		
		ldy	#omemFlag
		lda	[memRecPtr],y
		and	#memSelected+memDisabled
		cmp	#memSelected	; must be selected but not disabled
		bne	NotSelected
		pei	rectPtr+2
		pei	rectPtr
		_InvertRect
NotSelected

; If it is disabled (selected or not), dim it out
		ldy	#omemFlag
		lda	[memRecPtr],y
		and	#memDisabled
		beq	NotDisabled
; Dim by erasing a checkerboard pattern
		PushLong #dimMask
		_SetPenMask
		pei	rectPtr+2
		pei	rectPtr
		_EraseRect
		PushLong #norMask
		_SetPenMask
NotDisabled

;
; Restore charExtra, clip region, and fix the rectangle
;
		ldy	#oh2
		lda	[rectPtr],y
		clc
		adc	#checkWidth
		sta	[rectPtr],y
		
		_SetCharExtra
		
		lda	3,s		; make a copy of region handle
		pha
		lda	3,s
		pha
		_SetClip
		_DisposeRgn
		
;
; Draw the appropriate form of the checkbox
;
		ldy	#oh2
		lda	[rectPtr],y
		sec
		sbc	#checkWidth-checkOffset
		pha			; push horizontal
		ldy	#ov1
		lda	[rectPtr],y
		ina			; draw it down a pixel
		pha
		_MoveTo
		
		pha			; room for current font
		pha
		_GetFont
		pha
		pha			; room for Control Manager's font
		PushLong #$FFFFFFFF	; return old font
		_SetCtlIcons
		_SetFont		; change to Control Manager's font
		
		ldx	#0		; assume unchecked character
		ldy	#4		; offset to memFlag and checked flag
		lda	[memRecPtr],y	; checked flag in high bit
		bpl	NotChecked
		inx
		inx			; 2 = checked box
NotChecked				; X=0 => unchecked, 2 = checked
		phx
		_DrawChar
		
		_SetFont		; restore old font

;
; Fix up the stack and return
;
		lda	retaddr
		sta	retaddr+inputSize
		lda	retaddr+1
		sta	retaddr+1+inputSize
		
		pld
		
		tsc
		clc
		adc	#inputSize
		tcs
		
		rtl
		
		endwith			; dp
		endp
		
		
;======================================================================
;
;			VolListHook
;
; This routine intercepts events to the volume list window.  Its
; biggest goal in life is to detect when the user is clicking in one of
; the checkboxes in the list, track it, change its value in the member
; record, and return a null event.
;
; I will swallow the mousedown event if it was within checkRect (a
; rectangle covering the right side of the list where the check boxes
; are all placed).  If it was actually within one of the check boxes,
; I create a check box control over the member, track it, and update
; the member's record.
;
; Checking the horizontal position of the point is pretty easy (just
; a certain range from the right edge).  Testing the vertical position
; is a little harder.  I find the vertical offset of the point from
; the top of the list; the offset MOD the member height tells me how
; far down in the member's rectangle it was (now it becomes a simple
; range test); the offset DIV the member height tells me which member
; was hit, relative to the top one displayed.
;
; 26-Aug-91 MSD	Added translation from Command-period to Esc.
;
;======================================================================

VolListHook	procname
		import	whichWindow,whichControl,whichPt
		import	volWindow,volListH,volMembers
		import	vOffset,itemNum,checkBoxTempl
		import	checkBoxH,checkRect,checkCount
		import	TestDoubleClick,prepChange
		
		
dp		record	1
vOffset		ds.w	1		; offset from top of list
itemNum		ds.w	1		; 0-based item number hit
memPtr		ds.l	1		; points to list control record
savedD		ds.w	1
savedB		ds.b	1
rtl		ds.b	3
event		ds.l	1		; pointer to task record
parmSize	equ	*-rtl
		endr

;
; Set up stack frame
;
		phb
		phk
		plb			; set bank to my data
		phd
		
		pha			; make room for locals
		pha
		pha
		pha
		
		tsc
		tcd			; point to stack frame
		
;
; See if the event type is something I want
;
		lda	[dp.event]	; get event.what
		cmp	#keyDownEvt
		bne	TryMouse
;
; If key was command-period, change to ESC.
;
		ldy	#omodifiers
		lda	[dp.event],y
		and	#appleKey+shiftKey+optionKey+controlKey
		cmp	#appleKey	; command key down?
		bne	@exit		; no, don't translate
		
		ldy	#omessage
		lda	[dp.event],y
		and	#$00FF		; get key byte only
		cmp	#'.'		; period down?
		bne	@exit		; no, don't do it

; Was command-period.  Change to Esc.
		ldy	#omodifiers
		lda	[dp.event],y
		and	#ÅappleKey	; turn off Apple key bit
		sta	[dp.event],y
		
		ldy	#omessage
		lda	#$1B		; ESC
		sta	[dp.event],y
@exit
		brl	exit

TryMouse
		cmp	#mouseDownEvt
		bne	neExit		; pass through other events

;
; Check for double click.
;
; TestDoubleClick wants a pointer to the event record at offset 1 on
; direct page and 4 bytes of workspace at offset 5.  This just happens
; to fit in our locals, so copy the event pointer and call it.
;
		lda	dp.event
		sta	1
		lda	dp.event+2
		sta	3
		jsr	TestDoubleClick
		
;
; Where did the event happen?
;
		pha			; room for result
		PushLong #whichWindow	; where to store window pointer
		ldy	#owhere+2	; offset to where.x
		lda	[dp.event],y
		sta	whichPt+2	; save point, just in case
		pha
		dey
		dey			; offset to where.y
		lda	[dp.event],y
		sta	whichPt
		pha
		_FindWindow
		pla
		cmp	#wInContent	; inside some window?
		bne	neExit

; If not in volume list window, just exit
		lda	whichWindow
		cmp	volWindow
		bne	neExit
		lda	whichWindow+2
		cmp	volWindow+2
neExit		bnel	exit		; bne exit

;
; Get the local coordinates of the point
;
		pha			; room for current port
		pha
		_GetPort		; leave port on stack
		PushLong volWindow
		_SetPort
		PushLong #whichPt
		_GlobalToLocal

;
; I will claim the event if the point was within checkRect
;
		pha			; room for result
		PushLong #whichPt
		PushLong #checkRect
		_PtInRect
		pla
		beq	toPortExit

;
; It was near the check boxes, so claim the event
;
		lda	#0
		sta	[dp.event]		; change the event to a null event

;
; Find out which check box it was in (if any)
;

; check horizontal position
		lda	whichPt+2	; get X of point
		sec
		sbc	checkRect+oh1	; rect.left
		cmp	#5
		blt	toPortExit	; to right of check boxes
		cmp	#30
		bge	toPortExit	; to left, so try in item

; Check vertical (and find which item it was in)
		pha			; room for remainder
		pha			; room for quotient
		lda	whichPt		; get point's Y
		sec
		sbc	checkRect+ov1	; get offset inside rect
		pha
		PushWord #11		; member height
		_UDivide
		
		pha			; room for result
		PushLong volListH
		_GetCtlValue		; get first displayed item
		
		pla			; get first displayed
		clc
		adc	1,s		; plus offset from top of list
		dea			; minus 1 to make 0-based
		sta	itemNum
		pla			; pop quotient
		
		pla			; get remainder
		sta	vOffset		; offset from top of member
		cmp	#2
		blt	toPortExit	; above box
		cmp	#11
		blt	InCheckBox
toPortExit	brl	PortExit

InCheckBox

*** added 25-Mar-93 DAL -- range-check the itemNum against the total number
***   of items, so we don't track a "phantom" checkbox below the last item,
***   if fewer than 4 items are being displayed
		pha
		pha			;space for GetCtlTitle
		pushlong volListH	;list control
		_GetCtlTitle
		pla			;ignore low word (# items visible at once)
		pla			;high word = total items in list
* itemNum is zero-based, and total items is an absolute number
* To proceed, itemNum must be strictly less than total items,
* which is toay total items must be strictly greater than itemNum.
* So we should bail if total items is less than or equal to itemNum.
		cmp	itemNum		;itemNum (0-based) must be < total items
		bcc	toPortExit	;less than --> outta here
		beq	toPortExit	;equal --> outta here
@continue
*** end 25-Mar-93

;
; Here, click was in a checkbox.  vOffset holds the offset in pixels from
; top of the item.  itemNum holds the 0-based member number.  Create a
; checkbox and track it, changing the member's record when done.
;

; Set up a pointer to the member's record and lock it
		lda	volMembers+2
		sta	dp.memPtr+2
		pha			; push for HLock
		lda	volMembers
		sta	dp.memPtr
		pha			; push for HLock
		_HLock
		ldy	#2
		lda	[dp.memPtr],y
		tax
		lda	[dp.memPtr]
		sta	dp.memPtr
		stx	dp.memPtr+2
		
		pha			; room for result
		pha
		PushWord itemNum
		PushWord #6		; member record size
		_Multiply
		clc
		pla
		adc	dp.memPtr
		sta	dp.memPtr
		pla
		adc	dp.memPtr+2
		sta	dp.memPtr+2

; Fix up bounding rectangle and initial value in template
		lda	whichPt		; get mousedown vertical
		sec
		sbc	vOffset		; find top of item
		ina			; leave one pixel white space
		sta	checkBoxTempl+6	; fix up top
		clc
		adc	#11
		sta	checkBoxTempl+10 ; fix up bottom
		
		ldy	#omemFlag
		lda	[dp.memPtr],y	; get checked flag in high bit
		and	#$8000		; only checked bit
		asl	a
		rol	a		; now have 0/1 in A
		sta	checkBoxTempl+$1E ; fix up initial value
		
; Create the check box
		pha			; room for control handle
		pha
		PushLong volWindow	; window pointer
		PushWord #singlePtr
		PushLong #checkBoxTempl
		_NewControl2
		PullLong checkBoxH	; get control handle back

; Track the control
		pha			; room for result
		ldy	#owhere+2
		lda	[dp.event],y
		pha			; push event.where.x
		dey
		dey
		lda	[dp.event],y
		pha			; push event.where.y
		lda	#0
		pha			; push NIL actionProc
		pha
		PushLong checkBoxH
		_TrackControl
		pla
		beq	NoChange	; no part, no change
; They changed checkbox, so change value in control and in member record
		pha			; room for control's value
		PushLong checkBoxH
		_GetCtlValue
		pla
		eor	#1		; flip between on and off
		pha			; push new value

; Keep track of how many boxes are checked so I can hide/show the
; Save My Name/Save My Name and Password buttons.
		beq	@off		; branch if now off
		
; Box just turned on.  Make sure buttons are visible
		lda	checkCount	; were any checked before?
		bne	@noshow		; yes, so buttons already visible
		jsr	ShowVolButtons
@noshow
		inc	checkCount	; one more box checked
		bra	SetCheckVal
		
; Box just turned off.  If all off, hide buttons.
@off
		dec	checkCount	; one less box checked
		bne	@nohide		; more still on, don't hide buttons
		jsr	HideVolButtons
@nohide
		
; Update the checkbox's state on screen (new value is still on stack)
SetCheckVal
		PushLong checkBoxH
		_SetCtlValue
		
		lda	#1
		sta	prepChange	; need to update AppleShare.Prep
		
		ldy	#omemFlag
		lda	[dp.memPtr],y
		eor	#$8000		; invert checked flag
		sta	[dp.memPtr],y

NoChange		
; Terminate the check box
		PushLong checkBoxH
		_DisposeControl

;
; Unlock the member records
;
		PushLong volMembers
		_HUnlock
		
;
; Restore the port and exit
;
PortExit
		_SetPort

;
; Clean up stack and return
;
exit
		lda	dp.rtl
		sta	dp.rtl+4
		lda	dp.rtl+1
		sta	dp.rtl+5
		
		pla			; pull locals off
		pla
		pla
		pla
		
		pld
		plb
		
		pla			; remove space for task record pointer
		pla
		
		rtl
		
		endp



;======================================================================
;
;			ReadPrepFile
;
; This routine creates a handle to hold a copy of the AppleShare.Prep
; data.  It then reads the contents of the file into the handle.  If
; there is an error (out of memory, file read error), prepHandle will
; be set to zero and the handle deallocated.  If the file does not
; exist, I will create a handle with a zero word in it.
;
;======================================================================

ReadPrepFile	procname
		import	OpenGS:OpenGSRec
		import	GetEOFGS:GetEOFGSRec
		import	ReadGS:ReadGSRec
		import	CloseGS:CloseGSRec
		import	BuildPrepPath,prepHandle
		
		
		stz	prepHandle	; assume none created
		stz	prepHandle+2

		jsr	BuildPrepPath	; build pathname
		
		lda	#1		; want read-only access
		sta	OpenGS.reqAccess
		_OpenGS	OpenGS
		bcc	opened
		cmp	#$46		; file not found?
		bne	toexit		; other error, just exit

		lda	#2		; handle with just a word in it
		jsr	NewHandle
		bcs	toexit
		
		sty	prepHandle
		stx	prepHandle+2
		tya			; ready for Deref
		jsr	Deref

		phd			; create stack frame
		phx			; push high word of pointer
		pha			; low word
		tsc
		tcd
		lda	#0		; zero servers
		sta	[1]
		pla
		plx
		pld
		
toexit		brl	exit
opened
		lda	OpenGS.refnum
		sta	GetEOFGS.refnum
		sta	ReadGS.refnum
		sta	CloseGS.refnum
		
		_GetEOFGS GetEOFGS
		bcs	closeexit

		lda	GetEOFGS.eof+2	; bigger than 64K?
		bne	closeexit	; can't deal with that!
		
		lda	GetEOFGS.eof	; get file/handle size
		sta	ReadGS.reqCount
		stz	ReadGS.reqCount+2
		jsr	NewHandle	; allocate a moveable handle
		bcs	closeexit
		
		sty	prepHandle	; save handle
		stx	prepHandle+2
		
		phx
		phy
		_HLock			; lock the handle
		
		lda	prepHandle
		ldx	prepHandle+2
		jsr	Deref		; deref handle to get pointer
		sta	ReadGS.buffer	; where data should be read
		stx	ReadGS.buffer+2

		_ReadGS	ReadGS		; read the data
		php			; save error status
		
		lda	prepHandle+2
		pha
		lda	prepHandle
		pha
		_HUnlock		; always unlock handle
		
		plp			; get error from read
		bcc	closeexit	; no error, keep handle
		
		lda	prepHandle+2
		pha
		lda	prepHandle
		pha
		_DisposeHandle		; read bad, throw away handle
		stz	prepHandle
		stz	prepHandle+2
closeexit
		_CloseGS CloseGS
		
exit
		rts
		
		endp




;======================================================================
;
;			WritePrepFile
;
; This routine writes out the contents of prepHandle to the
; AppleShare.Prep file, creating it if needed.  The handle is
; always disposed before leaving.
;
;======================================================================

WritePrepFile	procname
		import	CreateGS:CreateGSRec
		import	OpenGS:OpenGSRec
		import	SetMarkGS:SetMarkGSRec	; used for SetEOFGS
		import	ReadGS:ReadGSRec	; used for WriteGS
		import	CloseGS:CloseGSRec
		import	BuildPrepPath,prepHandle,prepDirty
		
		
		lda	prepHandle
		ora	prepHandle+2
		beql	exit

		lda	prepDirty
		beql	dispose		; data didn't change, don't write

		jsr	BuildPrepPath

		_CreateGS CreateGS

		lda	#3		; want read/write
		sta	OpenGS.reqAccess
		_OpenGS	OpenGS
		bcs	dispose
		
		lda	OpenGS.refnum
		sta	SetMarkGS.refnum
		sta	ReadGS.refnum
		sta	CloseGS.refnum
		
		stz	SetMarkGS.base	; EOF := displacement

		pha			; room for handle size
		pha
		lda	prepHandle+2
		pha
		lda	prepHandle
		pha
		_GetHandleSize
		pla
		sta	SetMarkGS.displacement
		sta	ReadGS.reqCount
		pla
		sta	SetMarkGS.displacement+2
		sta	ReadGS.reqCount+2
		
		_SetEOFGS SetMarkGS
		bcs	closeexit

		lda	prepHandle+2
		pha
		lda	prepHandle
		pha
		_HLock			; lock the data before I write
		
		lda	prepHandle
		ldx	prepHandle+2
		jsr	Deref		; get pointer to data
		sta	ReadGS.buffer
		stx	ReadGS.buffer+2
		
		_WriteGS ReadGS		; write data out

		lda	prepHandle+2
		pha
		lda	prepHandle
		pha
		_HUnlock		; always unlock
		

closeexit
		_CloseGS CloseGS	; always close file
dispose
		lda	prepHandle+2
		pha
		lda	prepHandle
		pha
		_DisposeHandle
exit
		rts
		
		endp
		



;======================================================================
;
;			DelSrvrPrep
;
; This routine scans the contents of prepHandle and squeezes out any
; ServerInfoRec's that have the same server and zone name as the
; current server; the corresponding VolumeInfoRec's are also squeezed.
;
; A pointer to the server's name (a PString) is at subText.  The zone
; name PString is at LookupZone.
;
;======================================================================

DelSrvrPrep	procname
		import	subText,LookupZone,prepHandle,prepDirty


local		record	dp.locals
count		ds.w	1		; count of servers
recsize		ds.w	1		; size of server's records
p		ds.l	1		; points to ServerInfoRec
prepEnd		ds.l	1		; original end of prepHandle data
prepStart	ds.l	1		; start of prepHandle data
		endr


		lda	prepHandle
		ora	prepHandle+2
		beql	done		; no data to check!

		lda	prepHandle+2
		pha
		lda	prepHandle
		pha
		_HLock			; lock handle while during scan

		lda	prepHandle
		ldx	prepHandle+2
		jsr	Deref		; get pointer to data
		sta	local.p
		sta	local.prepStart
		stx	local.p+2
		stx	local.prepStart+2

		pha			; room for size
		pha
		lda	prepHandle+2
		pha
		lda	prepHandle
		pha
		_GetHandleSize
		clc
		pla
		adc	local.p
		sta	local.prepEnd	; compute end of prep data
		pla
		adc	local.p+2
		sta	local.prepEnd+2
		
		lda	[local.p]	; get count of servers
		sta	local.count
		beql	unlock		; no servers, we're done

		clc
		lda	local.p		; point to first ServerInfoRec
		adc	#2		; two bytes into data
		sta	local.p
		lda	local.p+2
		adc	#0
		sta	local.p+2

;
; For each server in the list, check it against the current server.
; If it matches, squeeze it out of the data.
;
loop
; Find size of this ServerInfoRec and its associated VolumeInfoRec's
		pha			; room for product
		pha
		ldy	#ServerInfoRec.volCount
		lda	[local.p],y	; get volume count
		pha
		pea	VolumeInfoRec.sizeof
		_Multiply		; get size of VolumeInfoRec's
		clc
		pla			; volume(s) size
		adc	#ServerInfoRec.sizeof
		sta	local.recsize
		pla			; ignore high word of product
		
; Compare server names
		pha			; room for result
		pea	0		; flags, reserved
		PushLong subText
		clc
		lda	local.p		; get pointer to serverName
		adc	#<ServerInfoRec.serverName
		tax			; save low word
		lda	local.p+2
		adc	#^ServerInfoRec.serverName
		pha			; push pointer to serverName
		phx
		_CompareStrings
		pla			; zero => strings match
		bne	next		; different, try next record

; Compare zone names
		pha
		pea	0
		PushLong #LookupZone
		clc
		lda	local.p
		adc	#<ServerInfoRec.serverZone
		tax
		lda	local.p+2
		adc	#^ServerInfoRec.serverZone
		pha
		phx
		_CompareStrings
		pla
		bne	next		; different, try next

;
; Here the server and zone strings match.  Move the data after the
; current record through prepEnd down over the start of the current
; record.
;
		lda	#1
		sta	prepDirty	; data was modified
		
		lda	[local.prepStart]
		dea			; adjust server count
		sta	[local.prepStart]
		
; source is this record + size of this record
		clc
		lda	local.p
		adc	local.recsize
		tax
		lda	local.p+2
		adc	#0
		pha
		phx

; destination is this record
		lda	local.p+2
		pha
		lda	local.p
		pha
; count is prepEnd - source
		sec
		lda	local.prepEnd
		sbc	5,s
		tax
		lda	local.prepEnd+2
		sbc	7,s
		pha
		phx

		_BlockMove
		
		bra	next2		; p already points to next record
next
		clc
		lda	local.p
		adc	local.recsize	; point to next ServerInfoRec
		sta	local.p
		lda	local.p+2
		adc	#0
		sta	local.p+2
next2
		dec	local.count
		bnel	loop

; Here, local.p points to end of the real data.  Subtract the start
; of the real data to get the new handle size.
		sec
		lda	local.p
		sbc	local.prepStart
		tax
		lda	local.p+2
		sbc	local.prepStart+2
		pha			; push new size
		phx
		lda	prepHandle+2
		pha			; push handle
		lda	prepHandle
		pha
		_SetHandleSize

unlock
		lda	prepHandle+2
		pha
		lda	prepHandle
		pha
		_HUnlock
done
		rts
		
		endp




;======================================================================
;
;			WriteSrvrInfo
;
; This routine appends a ServerInfoRec to prepHandle.
; On entry, the serverInfo.serverFlags field must be correctly set.
; The volume count is obtained from checkCount.  The server count is
; incremented.
;
;======================================================================

WriteSrvrInfo	procname
		import	serverInfo:ServerInfoRec
		import	subText,LookupZone,prepHandle
		import	userName,serverPassword,cryptKey
		import	checkCount,prepDirty
		
		
local		record	dp.locals
oldSize		ds.l	1
prepStart	ds.l	1
		endr


		lda	prepHandle
		ora	prepHandle+2
		beql	done		; no handle to append to

; get the old handle size and add the size of a ServerInfoRec
		pha			; room for size
		pha
		lda	prepHandle+2
		pha
		lda	prepHandle
		pha
		_GetHandleSize
		clc
		lda	1,s
		sta	local.oldSize
		adc	#<ServerInfoRec.sizeof
		sta	1,s
		lda	3,s
		sta	local.oldSize+2
		adc	#^ServerInfoRec.sizeof
		sta	3,s
		lda	prepHandle+2
		pha
		lda	prepHandle
		pha
		_SetHandleSize
		bcsl	done		; couldn't expand

; set the server name
		PushLong subText	; push handle to server name (*0)
		PushLong #serverInfo.serverName
		PushLong #32
		_BlockMove

; set the zone name
		PushLong #LookupZone
		PushLong #serverInfo.serverZone
		PushLong #34
		_BlockMove

; zero out user name and password in case we're saving a guest or
; name only
		ldx	#38		; size(name) + size(password) - 2
loop1
		stz	serverInfo.userName,x
		dex
		dex
		bpl	loop1

; set the user name
		lda	userName
		and	#$00FF
		beq	guest		; don't save name or password
		PushLong #userName
		PushLong #serverInfo.userName
		PushLong #32
		_BlockMove

; set the password
		bit	serverInfo.serverFlags
		bmi	guest		; don't save password
		ldx	#6
loop2
		lda	serverPassword+1,x
		eor	cryptKey,x
		sta	serverInfo.srvrPassword,x
		dex
		dex
		bpl	loop2
guest
		lda	checkCount
		sta	serverInfo.volCount

; Lock handle and copy our data into it
		lda	prepHandle+2
		pha
		lda	prepHandle
		pha
		_HLock
		PushLong #serverInfo	; source
		lda	prepHandle
		ldx	prepHandle+2
		jsr	Deref
		sta	local.prepStart
		stx	local.prepStart+2
		clc
		adc	local.oldSize	; start + oldSize  = dest
		tay			; save low word in Y
		txa
		adc	local.oldSize+2
		pha
		phy			; push dest
		PushLong #ServerInfoRec.sizeof
		_BlockMove

		lda	[local.prepStart]
		ina			; one more ServerInfoRec
		sta	[local.prepStart]
		
		lda	#1
		sta	prepDirty
		
; Unlock handle and exit
		lda	prepHandle+2
		pha
		lda	prepHandle
		pha
		_HUnlock
done
		rts
		
		endp




;======================================================================
;
;			WriteVolInfo
;
; This routine appends a VolumeInfoRec to prepHandle.  Caller must
; set volInfo.volFlags.  The volume name is pointed to by subText+8.
;
;======================================================================

WriteVolInfo	procname
		import	serverInfo:ServerInfoRec
		import	volInfo:VolumeInfoRec
		import	cryptKey,volPassword,subText,prepHandle
		

local		record	dp.locals+8
oldSize		ds.l	1
prepStart	ds.l	1
		endr


		lda	prepHandle
		ora	prepHandle+2
		beql	done		; no handle to append to

; get the old handle size and add the size of a ServerInfoRec
		pha			; room for size
		pha
		lda	prepHandle+2
		pha
		lda	prepHandle
		pha
		_GetHandleSize
		clc
		lda	1,s
		sta	local.oldSize
		adc	#<VolumeInfoRec.sizeof
		sta	1,s
		lda	3,s
		sta	local.oldSize+2
		adc	#^VolumeInfoRec.sizeof
		sta	3,s
		lda	prepHandle+2
		pha
		lda	prepHandle
		pha
		_SetHandleSize
		bcs	done		; couldn't expand

; set the volume name
		PushLong subText+8	; volume name source
		PushLong #volInfo.volName
		PushLong #28
		_BlockMove

; set the password (to null if no password or not saved)
		ldx	#6
loop
		stz	volInfo.volPassword,x
		bit	serverInfo.serverFlags
		bmi	next		; not saving passwords
		bit	volInfo.volFlags
		bpl	next		; no password to save
		lda	volPassword+1,x
		eor	cryptKey,x
		sta	volInfo.volPassword,x
next
		dex
		dex
		bpl	loop

; Lock handle and copy our data into it
		lda	prepHandle+2
		pha
		lda	prepHandle
		pha
		_HLock
		PushLong #volInfo	; source
		lda	prepHandle
		ldx	prepHandle+2
		jsr	Deref
		sta	local.prepStart
		stx	local.prepStart+2
		clc
		adc	local.oldSize	; start + oldSize  = dest
		tay			; save low word in Y
		txa
		adc	local.oldSize+2
		pha
		phy			; push dest
		PushLong #VolumeInfoRec.sizeof
		_BlockMove

; Unlock handle and exit
		lda	prepHandle+2
		pha
		lda	prepHandle
		pha
		_HUnlock
done
		rts
		
		endp




;======================================================================
;
;			SetDefName
;
; This routine sets up default values for userName and serverPassword.
; It also sets up a default value for saveNameOnly (used in the
; volume list window).
;
;======================================================================

SetDefName	procname
		import	myWindow,userName,serverPassword
		import	saveNameOnly,subText,LookupZone
		import	cryptKey,prepHandle


local		record	1
p		ds.l	1		; pointer to prep data
count		ds.w	1		; server count
sizeof
		endr


		phd
		tsc
		sec
		sbc	#local.sizeof-1
		tcs
		tcd

;
; The default values are the user name from the "Connect as"
; window, an empty password, and Save My Name Only.  If the
; AppleShare.Prep file has an entry for the same server and
; zone, then these values will be replaced.
;
		PushLong myWindow
		PushLong #UserLE
		PushLong #userName
		_GetLETextByID

		stz	serverPassword	; no default password

		lda	#$8000
		sta	saveNameOnly	; default to name only

;
; Scan the contents of prepHandle looking for a matching
; server and zone name.
;
		PushLong prepHandle
		_HLock
		
		lda	prepHandle
		ldx	prepHandle+2
		jsr	Deref
		sta	local.p
		stx	local.p+2
		
		lda	[local.p]	; get server count
		sta	local.count
		beql	notfound
		
		clc
		lda	local.p
		adc	#2		; point to first server entry
		sta	local.p
		lda	local.p+2
		adc	#0
		sta	local.p+2

loop
; Compare server names
		pha			; room for result
		pea	0		; flags, reserved
		PushLong subText	; pointer to server name
		clc
		lda	local.p
		adc	#<ServerInfoRec.serverName
		tax
		lda	local.p+2
		adc	#^ServerInfoRec.serverName
		pha
		phx			; point to server name in prep data
		_CompareStrings
		pla
		bne	next

; Compare zone names
		pha
		pea	0
		PushLong #LookupZone
		clc
		lda	local.p
		adc	#<ServerInfoRec.serverZone
		tax
		lda	local.p+2
		adc	#^ServerInfoRec.serverZone
		pha
		phx
		_CompareStrings
		pla
		beq	found
next
		pha			; room for result
		pha
		ldy	#ServerInfoRec.volCount
		lda	[local.p],y	; get volume count
		pha
		PushWord #VolumeInfoRec.sizeof
		_Multiply
		clc
		pla			; get size of volume records
		adc	#ServerInfoRec.sizeof
		adc	local.p
		sta	local.p
		pla
		adc	local.p+2
		sta	local.p+2
		
		dec	local.count
		bne	loop
		bra	notfound

found
; Here the server and zone names match.  Pick up the user name,
; password, and Save My Name Only flag.
		clc
		lda	local.p
		adc	#<ServerInfoRec.userName
		tax
		lda	local.p+2
		adc	#^ServerInfoRec.userName
		pha			; source is userName field
		phx
		PushLong #userName	; dest is userName global
		PushLong #32		; always do 32 bytes
		_BlockMove
		
		lda	[local.p]
		and	#$8000		; get Save My Name Only flag
		sta	saveNameOnly
		bmi	notfound	; no password to copy
		
		clc
		lda	local.p
		adc	#<ServerInfoRec.srvrPassword
		sta	local.p
		lda	local.p+2
		adc	#^ServerInfoRec.srvrPassword
		sta	local.p+2
		
		sep	#$30
		longa	off
		longi	off
		
		ldy	#0		; index into string
		ldx	#$FF		; assume string length of zero
ploop
		lda	[local.p],y
		eor	cryptKey,y
		sta	serverPassword+1,y
		beq	@nosize
		tyx			; save index of last non-zero char
@nosize
		iny
		cpy	#8
		blt	ploop
		inx			; get string length
		stx	serverPassword
		
		rep	#$30
		longa	on
		longi	on

notfound
		PushLong prepHandle
		_HUnlock
		
		tsc
		clc
		adc	#local.sizeof-1
		tcs
		pld
		
		rts
		
		endp
		
		
		
		
;======================================================================
;
;			AskForVolPass
;
; Put up a simple dialog asking the user for a volume's password.
; Note: it preserves the current port so that SelectVols can get
; its controls.
;
; On exit:
;	carry set if they pressed "Cancel"
;	volPassword set and null padded if they hit "OK"
;
;======================================================================

AskForVolPass	procname export
		import	vpWindow,windOrigin,taskRecord
		import	NewWindByID,volPassword,mountFlag
		import	subText,ShowPFIErr


		pha			; room for cancel flag
		pha			; room for current port
		pha
		_GetPort

;
; Create the "Enter a password..." window
;
		lda	#rVPDialog
		jsr	NewWindByID
		stx	vpWindow
		sta	vpWindow+2
		
;
; Now handle the dialog until a button is clicked
;
loop
		pha			; room for result
		pha
		PushLong #taskRecord
		lda	#0		; value for defaults
		pha			; use standard update routine
		pha
		pea	$8000		; Event hook = $80000000
		pha			; to do Cmd-. => Esc translation
		pha			; use default beep routine
		pha
		PushWord #mwIBeam	; DoModalWindow flags
		_DoModalWindow
		pla			; get control ID
		plx			; ignore high word
		
		cmp	#3		; beyond one of the buttons?
		bge	loop
		asl	a
		tax
		jsr	(hitTable,x)	; do appropriate handler
		bcc	loop
		
		sta	5,s		; save cancel flag
		PushLong vpWindow
		_CloseWindow
		_SetPort		; restore old port
		pla			; get cancel flag
		lsr	a		; put it in carry
		
		rts

hitTable
		dc.w	nullEvent
		dc.w	ok
		dc.w	cancel

nullEvent
		clc			; keep going
		rts
ok
;
; Fill password buffer with nulls, then get password.  This will
; have the effect of leaving an 8 byte, null padded password at
; volPassword+1.
;
		ldx	#8
@padloop
		stz	volPassword,x
		dex
		dex
		bpl	@padloop

		PushLong vpWindow
		PushLong #idVPLE
		PushLong #volPassword
		_GetLETextByID

;
; Now, try to mount the volume (if there is an error, put up a
; dialog and let them change the password).
;
		lda	mountFlag
		ldx	subText+8	; point to volume name
		ldy	subText+10
		jsr	MountAVol
		bcc	@done		; it worked, exit dialog

;
; Put up an error message and let them try again
;
		pha			; save error code
		jsr	ShowPFIErr	; tell user what went wrong
		pla			; get error code back
		cmp	#FIAccessErr	; access denied (bad password)?
		bne	cancel		; no, so quit trying

;
; Error was bad volume password.  Select it and let them try again.
;
		lda	#idVPLE
		jsr	SelectLEByID
		clc			; don't exit dialog
		rts
		
@done
		lda	#0		; they pressed OK
		sec			; exit dialog
		rts
cancel
		lda	#1		; they pressed cancel
		sec			; exit dialog
		rts
		
		endp
		
		
		
		
;======================================================================
;
;			TestDoubleClick
;
; This is a common routine used by the event hooks to test for double
; clicks.  It keeps track of the last mousedown and compares the
; current mousedown with the previous one.  If the time between clicks
; is greater than GetDblTime() or the distance between clicks is more
; than 5 pixels, then it is not considered a double click.  The
; distance formula I use is the sum of the absolute values of the
; differences in X and Y position (i.e. |x1-x2| + |y1-y2|).
;
; The caller must set up a direct page and place a pointer to the event
; record at location 1 and provide 4 bytes of temporary space at
; location 5.
;
; On exit, the global dblClick will be modified.  It will be non-zero
; if the last click was a double click, or zero otherwise.
;
;======================================================================

TestDoubleClick	procname
		import	dblClick,lastWhere,lastWhen
		
event		equ	1		; pointer on caller's direct page
work		equ	5		; 4 bytes space on caller's dp

		lda	[event]		; get event code
		cmp	#mouseDownEvt
		bne	ignore		; not mousedown, so ignore it

;
; Now see if the last mousedown time and place are close enough
; to the current one to be considered a double-click.  The test is:
;	event.when-lastWhen < GetDblTime
;		AND
;	abs(event.where.v-lastWhere.v)+abs(event.where.h-lastWhere.h) < 5
;
		stz	dblClick	; assume it isn't a double-click

;
; First, compute the difference in times as deltaT
;
		ldy	#owhen
		lda	[event],y	; get event's when
		sec
		sbc	lastWhen	; compute delta time
		sta	work		; save low word of time difference
		iny
		iny
		lda	[event],y
		sbc	lastWhen+2	; get high word of difference
		sta	work+2
		
;
; If GetDblTime() < deltaT then it's not a double-click
;
		pha
		pha			; space for result
		_GetDblTime
		pla
		cmp	work		; compare low word
		pla
		sbc	work+2		; continue compare to high word
		
		blt	update		; not a double-click

;
; Now compute the difference in mouse position in pixels
;
		ldy	#owhere
		lda	[event],y	; get V from event
		sec
		sbc	lastWhere	; get difference in V
		bcs	@absV		; branch in difference is positive
		eor	#$FFFF		; get one's complement
		ina			; now have abs(delta V)
@absV
		sta	work
		iny
		iny			; offset to H in event
		lda	[event],y
		sec
		sbc	lastWhere+2
		bcs	@absH
		eor	#$FFFF
		ina
@absH
		clc
		adc	work		; get sum of deltas
		bcs	update		; carry?  sum is way too large
		cmp	#6		; 6 or more pixels off?
		bge	update		; yes, so not a double-click

;
; Finally, we have a double-click.  Set the flag and fall into updating
; the last mousedown info.
;
		inc	dblClick	; yes, it was a double-click

;
; Here, copy the when and where from the event record to our globals
;
update
		ldy	#owhen
		lda	[event],y
		sta	lastWhen
		iny
		iny
		lda	[event],y
		sta	lastWhen+2
		
		iny
		iny			; offset to where.v
		lda	[event],y
		sta	lastWhere
		iny
		iny			; offset to where.h
		lda	[event],y
		sta	lastWhere+2
		
ignore
		rts

		endp




;======================================================================
;
;			NewWindByID
;
; This routine creates and shows a new window by simply supplying a
; resource ID of an rWindParam1 resource.  The window is created,
; the port is set to it, the window is moved right 160 pixels if we're
; in 640 mode (so the resource's rectangle should be set up for 320
; mode), and finally the window is shown.  It assumes that the high
; word of the rWindParam1 resource ID is zero.
;
; On entry:
;	A = low word of rWindParam1 resource ID
;
; On exit:
;	A = high word of window pointer
;	X = low word of window pointer
;
; Uses:
;	windOrigin			a Point in the globals
;
;======================================================================

NewWindByID	procname
		import	windOrigin
		
;
; Create the window
;
		pha			; space for result
		pha
		ldx	#0		; value for using defaults
		phx			; don't replace title
		phx
		phx			; don't replace refcon
		phx
		phx			; don't replace content draw
		phx
		phx			; don't replace defproc
		phx
		PushWord #refIsResource
		pea	0		; high word of resource ID is zero
		pha			; push low word of resource ID
		PushWord #rWindParam1
		_NewWindow2

;
; Set the current port to the window I just created
;
		lda	3,s
		pha			; make a copy of window pointer
		lda	3,s
		pha
		_SetPort		; set port to new window

;
; Here, I check to see if we're in 640 mode.  If so, I
; want to move the window right by 160 pixels.
;
		pha			; room for result
		_GetMasterSCB
		pla
		and	#$0080		; are we in 640 mode?
		beq	was320		; no, so leave window alone
		stz	windOrigin
		stz	windOrigin+2
		PushLong #windOrigin
		_LocalToGlobal		; find out where window is now
		lda	3,s		; get high word of window pointer
		tax
		lda	1,s		; get low word of window pointer
		tay
		lda	windOrigin+2
		clc
		adc	#160		; move right by 160 pixels
		pha
		lda	windOrigin
		pha			; use old Y
		phx			; push window pointer
		phy
		_MoveWindow
was320

;
; Make the window visible
;
		lda	3,s
		pha			; make a copy of window pointer
		lda	3,s
		pha
		_ShowWindow

;
; Clean up stack and exit
;
		plx			; get window pointer in A,X
		pla
		
		rts
		
		endp



;======================================================================
;
;			FindString
;
; This is a special-purpose routine for comparing a given string with
; a list of strings in ReplyBuf.  It is used to find AFP versions and
; UAM's that are returned in an SPGetStatus call.
;
; On entry,
;	Long pointer to target string on stack below RTS
;	A = offset in ReplyBuf of count of strings (in 68000 order)
;
; On exit,
;	target string pointer removed from stack
;	Z = 1 iff target string was found in list
;
;======================================================================

FindString	procname
		import	ReplyBuf
		
dp		record	1
savedD		ds.w	1
str		ds.l	1		; pointer into ReplyBuf
rts		ds.w	1
target		ds.l	1		; pointer to target string
		endr

;
; Create stack frame and build pointer to first string
;
		xba			; put offset in 65xxx order
		
		pha			; room for high word of dp.str
		
		tax			; save ReplyBuf offset in X
		
		sec			; add 1 to skip over string count
		adc	#<ReplyBuf	; create pointer to first string
		pha			; create/set low word of dp.str
		phd			; save old direct register
		lda	#^ReplyBuf
		adc	#0
		sta	dp.str+2,s	; set high word of dp.str
		
		tsc
		tcd			; point D to top of stack

		sep	#$30		; go to short A,X,Y for chars
		longa	off
		longi	off
		
		lda	ReplyBuf,x	; get string count
		tax
		
;
; Compare one string
;
loop_string	lda	[dp.target]	; get length of string to compare
		tay			; use Y as string index
loop
		lda	[dp.target],y
		cmp	[dp.str],y
		bne	next		; no match, try next string
		dey
		bpl	loop
		bne	exit		; always taken!
next
		rep	#$30
		longa	on
		longi	on

		lda	[dp.str]	; get length of string
		and	#$00FF		; length byte only
		ina			; plus 1 for length byte itself
		clc
		adc	dp.str
		sta	dp.str		; point to next string in list
		bcc	nohi
		inc	dp.str+2
nohi
		sep	#$30
		longa	off
		longi	off
		dex			; more strings to check?
		bne	loop_string	;fixed branch (was loop, 4-Mar-93 DAL)

exit
;
; Note: When we get here, Z=1 if strings DIDN'T match.  This is opposite
; of the return condition we want, so we'll just invert the Z bit since
; we have to save it off anyway.
;
		rep	#$30
		longa	on
		longi	on
		
		php			; save Z,m,x status
		php			; save 16 bits worth
		pla
		eor	#$0202		; invert Z bit in both copies
		sta	dp.target	; save where I can get it later
		
		pld			; restore stack
		pla			; pop dp.str
		pla
		pla			; get RTS
		sta	3,s		; put at dp.target+2
		plp			; pop byte at dp.target
		plp			; get stored P from above
		rts
		
		endp
		
		

;======================================================================
;
;			AlertByID
;
; This is a simplified version of AlertWindow.  It takes the low word
; of a resource ID for an rAlertString resource in A (the high word is
; assumed to be zero).  It passes subText as the substitution array
; and tells it to use PStrings.  It returns the button hit in A (this
; is AlertWindow's result).
;
;======================================================================

AlertByID	procname
		import	subText
		
		pha			; space for result
		PushWord #RefIsResource*2+1+$20	; alert is by resource,
					; Pascal substitution strings
					; do buttons in the new way
		PushLong #subText	; my usual substitution array
		PushWord #0		; high word of resource ID is zero
		pha			; push low word of resource ID
		
		_AlertWindow
		
		pla			; return result in A
		rts
		
		endp



;======================================================================
;
;			GetStatus
;
; Do an SPGetStatus to find out whether the server supports changing
; passwords, the AFP versions supported, and the supported UAM's.
;
;======================================================================

GetStatus	procname export
		import	replyBuf,FindString
		import	hasChgPwd,hasAFP20,hasAFP21
		import	hasGuest,hasClearText,hasScrambled
		import	SPGetStatus:SPGetStatusRec
		import	AFPVersion20,AFPVersion21,GuestUAM,ClearTextUAM
		import	ScrambledUAM,serverAddress

		
		lda	serverAddress
		sta	SPGetStatus.srvrAddr
		lda	serverAddress+2
		sta	SPGetStatus.srvrAddr+2
		
		ATCall	SPGetStatus
		bcs	Exit		; return if error

;
; See if it supports changing passwords
;
		lda	replyBuf+8	; flags bit 1 = SupportsChgPwd
		and	#$0200		; get just SupportsChgPwd flag
		sta	hasChgPwd
		
;
; See if it supports AFP version 2.0
;
		stz	hasAFP20
		PushLong #AFPVersion20
		lda	replyBuf+2	; offset to count of versions
		jsr	FindString
		bne	noAFP20
		inc	hasAFP20
noAFP20

*** added 4-Mar-93 DAL
;
; See if it supports AFP version 2.1
;
		stz	hasAFP21
		PushLong #AFPVersion21
		lda	replyBuf+2	; offset to count of versions
		jsr	FindString
		bne	noAFP21
;########################################################################
; FOR AFP 2.1 SUPPORT, ENABLE THIS! --25-Mar-93 DAL
	if 0 then
		inc	hasAFP21
	endif
;########################################################################

noAFP21
*** end 4-Mar-93

;
; See which UAMs it supports
;
		stz	hasGuest	; assume no guest access
		PushLong #GuestUAM
		lda	replyBuf+4	; offset to count of UAM's
		jsr	FindString
		bne	noguest
		inc	hasGuest
noguest

		stz	hasClearText	; assume no Clear Text
		PushLong #ClearTextUAM
		lda	replyBuf+4	; offset to count of UAM's
		jsr	FindString
		bne	nocleartext
		inc	hasClearText
nocleartext

		stz	hasScrambled	; assume no Randnum Exchange
		PushLong #ScrambledUAM
		lda	replyBuf+4	; offset to count of UAM's
		jsr	FindString
		bne	noscrambled
		inc	hasScrambled
noscrambled
		clc			; return no error
Exit
		rts
		
		endp
		
		
		
		
;======================================================================
;
;			ShowPFIErr
;
; This routine puts up an AlertWindow corresponding to the error code
; passed in the A register.
;
;======================================================================

ShowPFIErr	procname

		ldy	#ErrCount
		ldx	#0		; offset to error tables
loop
		cmp	ErrTable,x	; compare against PFI error
		beq	found
		inx
		inx
		inx
		inx
		dey
		bne	loop

found
		lda	ErrTable+2,x	; get corresponding alert ID
		jsr	AlertByID
		
		rts

;
; This table is an array of word pairs.  The first word in a pair is
; the PFI error; the second is the corresponding Alert ID.  There are
; ErrTable+1 pairs.  The last entry is a catch-all unknown error (the
; PFI error is zero).
;
ErrTable
		dc.w	$0A01,rTooManySess
		dc.w	$0A02,rServerBusy
		dc.w	$0A03,rNoResponse
		dc.w	$0A04,rBadUAM		; login continue???
		dc.w	$0A07,rBadPassword	; access denied, bad volume password
		dc.w	$0A08,rTooManyVols
		dc.w	$0A15,rBadPassword
		dc.w	$0A16,rBadUserName
		dc.w	$0A17,rShuttingDown
		dc.w	$0A18,rBadUAM
		dc.w	$0A19,rBadAFPVers
ErrCount	equ	(*-ErrTable)/4
		dc.w	0,rUnknownErr

		endp




;======================================================================
;
;			AppendToPath
;
; Appends a given GString to the GString stored at "Path".  It is used
; in building up path names to the ATInit and AppleShare.Prep files.
;
; On entry:
;	A = path pointer (high)
;	X = path pointer (low)
;
;======================================================================

AppendToPath	procname
		import	Path

str		equ	1

		phd			; save before stack frame
		
		pha			; save path pointer
		phx
		
		tsc
		tcd			; create a stack frame

; Get length of string to append
		lda	[str]		; get length of string
		tax			; save in X for count

; Adjust string pointer for common string index
		lda	str
		sec
		sbc	Path		; length of existing path
		sta	str
		lda	str+2
		sbc	#0
		sta	str+2

; Point to first char to copy
		ldy	Path		; length of existing path
		iny			; plus two for length word
		iny

		sep	#$20
		longa	off

loop
		lda	[str],y
		sta	Path,y
		iny
		dex
		bne	loop

		rep	#$20
		longa	on
		
; Save new path length
		dey			; adjust for length word
		dey
		sty	Path		; save new length
		
		plx
		pla
		pld
		
		rts
		
		endp




;======================================================================
;
;			BuildSetupPath
;
; This routine builds the pathname of the folder where ATInit and
; AppleShare.Prep are stored and puts the name in Path (with a trailing
; colon).  The path will either be "*:System:System.Setup:" or
; (":" BootVolName ":Users:" UserName ":Setup:") depending on whether
; we booted from a file server.
;
;======================================================================

BuildSetupPath	procname
		import	FSTInfo:GetFSTInfoRec
		import	GetUserPath:GetUserPathRec
		import	SetupFolder,SystemSetup,Path
		
		
		stz	Path		; make it empty string first
		
;
; See if the boot FST (the first FST) was AppleShare
;
		lda	#1
		sta	FSTInfo.fstNum

		jsl	$E100A8		; GS/OS inline entry
		dc.w	$202B		; GetFSTInfo
		dc.l	FSTInfo

		lda	FSTInfo.fileSysID
		cmp	#$D		; AppleShare?
		bne	Local

;
; They booted from a server, so we have to actually construct
; the path by getting the UserPath and appending ":Setup:".
;
		jsl	$E100A8
		dc.w	$2033		; FST specific
		dc.l	GetUserPath
		bcs	Local		; error, so use local name

		ldx	GetUserPath.prefixPtr
		lda	GetUserPath.prefixPtr+2
		jsr	AppendToPath	; start with user path
		
		ldx	#<SetupFolder
		lda	#^SetupFolder
		jmp	AppendToPath	; append ":Setup:" to path
Local
;
; They booted locally, so use a hard-coded constant pathname
;
		ldx	#<SystemSetup
		lda	#^SystemSetup
		jmp	AppendToPath	; set it and exit

		endp
		
		


;======================================================================
;
;			BuildATInitPath
;
; Build a pathname to the ATInit file.
;
;======================================================================

BuildATInitPath	procname
		import	ATInit
		
		jsr	BuildSetupPath
		
		ldx	#<ATInit
		lda	#^ATInit
		jmp	AppendToPath

		endp




;======================================================================
;
;			BuildPrepPath
;
; Build a pathname to the AppleShare.Prep file.
;
;======================================================================

BuildPrepPath	procname export
		import	ASharePrep
		
		jsr	BuildSetupPath
		
		ldx	#<ASharePrep
		lda	#^ASharePrep
		jmp	AppendToPath
		
		endp
		



;======================================================================
;
;			GetUserName
;
; This routine looks in the ATInit file for the user's name.  If found,
; it will set the userName variable; otherwise, userName will be set
; to the empty string.  The oldUserName will also be set.
;
; Note: the user's name is at offset -133 from EOF and is a maximum of
; 33 bytes (including the length byte).
;
;======================================================================

GetUserName	procname
		import	userName,oldUserName
		import	OpenGS:OpenGSRec
		import	SetMarkGS:SetMarkGSRec
		import	ReadGS:ReadGSRec
		import	CloseGS:CloseGSRec
		
		
		stz	userName	; leave empty on error

;
; Figure out where to get ATInit file from
;
		jsr	BuildATInitPath

;
; Open, get end of file, set mark, and read user name
;
		lda	#1		; want read-only access
		sta	OpenGS.reqAccess
		_OpenGS	OpenGS
		bcs	Exit

		lda	OpenGS.refnum
		sta	SetMarkGS.refnum
		sta	ReadGS.refnum
		sta	CloseGS.refnum
		
		lda	#1		; base = EOF - displacement
		sta	SetMarkGS.base
		lda	#133		; offset from EOF
		sta	SetMarkGS.displacement
		stz	SetMarkGS.displacement+2
		_SetMarkGS SetMarkGS
		bcs	CloseExit
		
		lda	#<userName
		sta	ReadGS.buffer
		lda	#^userName
		sta	ReadGS.buffer+2
		lda	#33		; read all of reserved space
		sta	ReadGS.reqCount
		_ReadGS	ReadGS
		
CloseExit
		_CloseGS CloseGS

Exit
;
; Copy userName to oldUserName so we can test whether it gets changed.
;
		ldx	#32		; index of last word
@loop
		lda	userName,x
		sta	oldUserName,x
		dex
		dex
		bpl	@loop
		
		rts
		
		endp




;======================================================================
;
;			WriteUserName
;
; This routine takes the user name in the main window's line edit
; box and writes it out to the ATInit file.  It assumes BuildATInitPath
; has already been called (from the InitCDEV message).
;
;======================================================================

WriteUserName	procname
		import	myWindow,userName,oldUserName
		import	CreateGS:CreateGSRec
		import	OpenGS:OpenGSRec
		import	GetEOFGS:GetEOFGSRec
		import	SetMarkGS:SetMarkGSRec
		import	ReadGS:ReadGSRec
		import	CloseGS:CloseGSRec

;
; Get the current name from the line edit box
;
		PushLong myWindow
		PushLong #UserLE
		PushLong #userName
		_GetLETextByID

;
; See if current name matches previous name.  If so,
; don't bother updating it.
;
		sep	#$30		; short mode for chars
		ldx	userName
		cpx	oldUserName	; compare lengths first
		bne	@done
@loop
		lda	userName,x
		cmp	oldUserName,x
		bne	@done
		dex
		bne	@loop
; If we get here, names match and Z is set (i.e. BEQ is taken)
@done
		rep	#$30		; back to 16-bit mode
		bne	TryIt		; changed, write it
		brl	Exit		; no change, don't write
TryIt
		jsr	BuildATInitPath
		
;
; Create the file if it isn't there (if it is, ignore the error).
;
		_CreateGS CreateGS

;
; Open the file for writing
;
		lda	#2		; want write-only access
		sta	OpenGS.reqAccess
		_OpenGS	OpenGS
		bcsl	Error

		lda	OpenGS.refnum
		sta	GetEOFGS.refnum
		sta	SetMarkGS.refnum
		sta	ReadGS.refnum
		sta	CloseGS.refnum

;
; Make sure the file is long enough.  If the EOF is less than 133, set
; it to 133.
;
		_GetEOFGS GetEOFGS
		bcs	CloseError

		lda	GetEOFGS.eof
		cmp	#133
		lda	GetEOFGS.eof+2
		sbc	#0
		bcs	DoSetMark	; long enough, so do it

;
; Here, the file isn't long enough, so extend it.  I use the SetMarkGS
; parameter block because it has the same format as SetEOFGS.
;
		stz	SetMarkGS.base	; base = displacement
		lda	#133		; size I need
		sta	SetMarkGS.displacement
		stz	SetMarkGS.displacement+2
		_SetEOFGS SetMarkGS
		bcs	CloseError

DoSetMark
;
; Back up in the file to where the user name goes
;
		lda	#1
		sta	SetMarkGS.base	; base = EOF-displacement
		lda	#133		; size I need
		sta	SetMarkGS.displacement
		stz	SetMarkGS.displacement+2
		_SetMarkGS SetMarkGS
		bcs	CloseError

;
; I use the ReadGS parameter block because it is formatted the same
; as the WriteGS parameter block, and it has all the right values.
;
		lda	#<userName
		sta	ReadGS.buffer
		lda	#^userName
		sta	ReadGS.buffer+2
		lda	#33
		sta	ReadGS.reqCount
		_WriteGS ReadGS
		bcs	CloseError

;
; Close the file!
;
		_CloseGS CloseGS
		bcs	Error

		rts

CloseError
		_CloseGS CloseGS

Error
		lda	#rATInitWriteErr
		jsr	AlertByID
		beql	TryIt		; button 0 = try again

Exit		
		rts			; else, just exit
		
		endp




;======================================================================
;
;			SetPassword
;
; This routine allows the user to change their password.  It does all
; the work of bringing up the dialog, logging on, etc.  On exit, the
; carry will be set if the change password was successful (carry clear
; means they cancelled).
;
;======================================================================

SetPassword	procname
		import	connWindow,setPassWind,taskRecord
		import	serverPassword,volPassword,emptyStr
		import	userName,cmdBuf,selectedUAM,DES
		import	ScrambledUAM,ClearTextUAM
		import	SPCommand:SPCommandRec
		import	FILogin:FILogin2Rec
		import	FILogout:FILogoutRec
		import	alreadyConn


local		record	dp.locals
confirm		ds.w	1		; non-zero if confirming new password
		endr


;
; Save old port
;
		pha			; room for cancel flag
		pha			; room for old port
		pha
		_GetPort

;
; Create the set password window
;
		lda	#rSetPassDlg
		jsr	NewWindByID
		stx	setPassWind
		sta	setPassWind+2

		stz	local.confirm	; not confirming yet

;
; Now, wait for the user to hit one of the buttons
;
loop
		pha			; room for result
		pha
		PushLong #taskRecord	; pointer to my extended task record
		lda	#0		; value for defaults
		pha			; use standard update routine
		pha
		pea	$8000		; Event hook = $80000000
		pha			; to do Cmd-. => Esc translation
		pha			; use default beep routine
		pha
		PushWord #mwIBeam	; DoModalWindow flags
		_DoModalWindow
		pla			; get control ID
		plx			; ignore high word of ID

		cmp	#idSetPassOK+1	; beyond what I care about?
		bge	loop		; yes, so keep doing dialog
		asl	a
		tax
		jsr	(hitTable,x)	; do the right thing
		bcc	loop
		
;
; Whatever it was, we're done.
;
		sta	5,s		; save cancel flag
		PushLong setPassWind
		_CloseWindow
		_SetPort		; restore caller's port
		pla			; get cancel flag back
		
		lsr	a		; set carry if cancel
		rts

hitTable
		dc.w	nullEvent
		dc.w	Cancel
		dc.w	OK

nullEvent
		clc
		rts

Cancel
		lda	#0		; indicate Cancel pressed
		sec			; end the dialog
		rts

OK
;
; If we're not yet confirming the new password, then hide the old password
; line edit, show the old password static text, get the text out of the new
; password into serverPassword, set the new password to empty, and continue
; the dialog.
;
		lda	local.confirm
		bne	PassCompare	; go confirm/compare password
		
		lda	#idSetPassOld
		jsr	HideByID
		lda	#idSPOldStat
		jsr	ShowByID
		
		PushLong setPassWind
		PushLong #idSetPassNew
		PushLong #serverPassword
		_GetLETextByID

		PushLong setPassWind
		PushLong #idSetPassNew
		PushLong #emptyStr
		_SetLETextByID

		inc	local.confirm	; now need to confirm new password
		
		lda	#rConfirmPass	; tell user we need to confirm
		jsr	AlertByID
		
		clc			; not done with dialog yet
		rts

;
; If we're currently confirming the new password, get it's text into
; volumePassword (as a temporary place) and compare it to serverPassword
; (where the first copy was placed).  If they don't match, put up an alert
; and let them try again.  If they do match, try to do the change password.
;
PassCompare
		ldx	#8
padloop
		stz	volPassword,x	; pad password with nulls
		dex
		dex
		bpl	padloop

		PushLong setPassWind
		PushLong #idSetPassNew
		PushLong #volPassword
		_GetLETextByID

;
; See if both copies of new password match
;
		sep	#$30		; compare is easier in 8 bits
		longa	off
		longi	off
		
		ldx	volPassword
cmploop
		lda	volPassword,x
		cmp	serverPassword,x
		bne	NoMatch
		dex
		bpl	cmploop
		
		rep	#$30		; back to 16 bits
		longa	on
		longi	on

		brl	TryChange

;
; Passwords didn't match.  Tell the user and let them try again.
;
NoMatch
		rep	#$30
		longa	on
		longi	on

		lda	#rPassNoMatch
		jsr	AlertByID

TryAgain
		PushLong setPassWind
		PushLong #idSetPassOld
		PushLong #emptyStr
		_SetLETextByID		; empty the old password field
		
		PushLong setPassWind
		PushLong #idSetPassNew
		PushLong #emptyStr
		_SetLETextByID		; empty the new password field
		
		lda	#idSPOldStat
		jsr	HideByID
		lda	#idSetPassOld
		jsr	ShowByID
		
		lda	#idSetPassOld
		jsr	SelectLEByID	; just to make it the target
		
		stz	local.confirm	; not confirming any more
		
		clc			; not done yet
		rts


;----------
;
; Try to log on and change the password
;
;----------

TryChange

;
; Get old password
;
		ldx	#8
@pad
		stz	serverPassword,x	; pad password with nulls
		dex
		dex
		bpl	@pad
		
		PushLong setPassWind
		PushLong #idSetPassOld
		PushLong #serverPassword
		_GetLETextByID

;
; If we're already connected, then userName is already set and
; we don't need to log on.
;
		lda	alreadyConn	; already connected?
		bne	ChangeIt	; yes, so just change it
;
; Get user name from the Connect As window
;
		PushLong connWindow
		PushLong #rNameLE
		PushLong #userName
		_GetLETextByID
		
		jsr	TryLogin	; have to log on first
		bcc	ChangeIt	; login worked, change password

;
; Login didn't work.  Show them an error and let them try again
;
		cmp	#$0A15		; bad password
		bne	@PFI
		lda	#rOldPassBad	; old password bad
		jsr	AlertByID
		brl	TryAgain
@PFI
		jsr	ShowPFIErr
		brl	TryAgain

;
; Now build up a change password packet and try it out.  If it fails, we
; log off (if we weren't logged on before) and let them try again.
;
ChangeIt
		lda	FILogin.sessRefNum
		sta	SPCommand.sessRefNum
		sta	FILogout.sessRefNum
		
		lda	#FPChangePass
		sta	cmdBuf
		
		ldx	#2		; offset for UAM string
		lda	selectedUAM
		cmp	#rClearText
		beq	@clear
		
		PushLong #ScrambledUAM
		jsr	PutString
		bra	AddName
@clear
		PushLong #ClearTextUAM
		jsr	PutString
AddName
		txa
		lsr	a
		bcc	@nopad
		stz	cmdBuf,x
		inx
@nopad
		PushLong #userName
		jsr	PutString
		txa
		lsr	a
		bcc	@nopad2
		stz	cmdBuf,x
		inx
@nopad2
		lda	selectedUAM
		cmp	#rClearText
		beq	Clear

;
; Point to where passwords go
;
		txa
		clc
		adc	#<cmdBuf
		sta	DESOldByNew+8
		clc
		adc	#8
		sta	DESNewByOld+8

		txa
		clc
		adc	#16		; get length of packet
		pha
		
; Encrypt old password with new password and put in packet
		ldx	#<DESOldByNew
		ldy	#^DESOldByNew
		jsl	DES

; Encrypt new password with old password and put in packet
		ldx	#<DESNewByOld
		ldy	#^DESNewByOld
		jsl	DES
		
		pla			; put packet length back in A
		bra	SendChange

Clear
; Put old and new passwords (clear text) in packet
		ldy	#0
@loop
		lda	serverPassword+1,y
		sta	cmdBuf,x
		lda	volPassword+1,y
		sta	cmdBuf+8,x
		inx
		inx
		iny
		iny
		cpy	#8
		bne	@loop
		
		txa
		clc
		adc	#8		; adjust for second password

SendChange
		sta	SPCommand.bufLen ; save command packet length
		ldx	#<SPCommand
		ldy	#^SPCommand
		jsr	RetryCommand
		bcs	@err
		lda	SPCommand.cmdResult+2	; any AFP error?
		bne	@err

; Copy the new password into serverPassword
		ldx	#8		; index of last word
@loop
		lda	volPassword,x
		sta	ServerPassword,x
		dex
		dex
		bpl	@loop
		
		lda	#1		; indicate all went well
		sec			; end the dialog
		rts

@err
		lda	alreadyConn	; were we already connected?
		bne	@show		; yes, so don't log off!

		ATCall	FILogout
@show
		lda	#rCantChangePass
		jsr	AlertByID
		brl	TryAgain



DESOldByNew
		dc.l	volPassword+1	; new password is key
		dc.l	serverPassword+1 ; old password is data
		dc.l	cmdBuf		; where to put result

DESNewByOld
		dc.l	serverPassword+1 ; old password is key
		dc.l	volPassword+1	; new password is data
		dc.l	cmdBuf		; where to put result
		
		endp




;======================================================================
;			FindMessage
;
; Find a server or volume's entry in the message center.  If there is
; no message, one is created with zero entries.  It then updates or
; retrieves the associated password.
;
; On entry:
;	serverAddress		internet address of server for compare
;	subText+8		points to volume name
;	A = flags
;		bit 15 set if message should be added/updated
;		bit 14 set if do volume
; On exit:
;	carry set if entry not found
;
;======================================================================

FindMessage	procname
		import	messageHandle,msgOffset
		import	serverAddress,subText,cryptKey
		import	serverPassword,volPassword
		

local		record	1
p		ds.l	1
passPtr
offset		ds.w	1		; offset into handle
count		ds.w	1		; number of entries in message
msgKind		ds.w	1		; message type
entrySize	ds.w	1		; size of one entry
flags		ds.w	1
sizeof
		endr

		phd
		
		pha			; save flags
		
		tsc
		sec
		sbc	#local.flags-1	; allocate rest of locals
		tcs
		tcd			; set up local stack frame

;
; Set up message type and entry size
;
		ldx	#SrvrPassMsg	; assume server message
		ldy	#12		; size of server entry
		bit	local.flags	; was volume bit (overflow) set?
		bvc	@kind		; no, so use server numbers
		ldx	#VolPassMsg
		ldy	#40		; size of volume entry
@kind
		stx	local.msgKind
		sty	local.entrySize

;
; Get the old message if there is one.
;
		PushWord #getMessage
		pei	local.msgKind	; message type
		PushLong messageHandle
		_MessageCenter
		bcc	found

;
; There was no message.  If we're just getting (not updating/adding),
; return entry not found.  If upating, resize handle and set count
; to zero entries and fall through.
;
		bit	local.flags
		bpll	errexit		; return with carry set

		PushLong #8
		PushLong messageHandle
		_SetHandleSize
		
		jsr	DerefMH
		
		ldy	#6		; offset to count word
		lda	#0
		sta	[local.p],y
		
found
;
; Here, we have a message.  Start looking for an entry with a matching
; address (and volume name).  We keep the handle locked since we may
; call _CompareStrings.
;
		PushLong messageHandle
		_HLock
		jsr	DerefMH
		
		ldy	#6
		lda	[local.p],y	; get count of entries
		sta	local.count
		iny
		iny
		sty	local.offset
		tax			; see if count was zero
		beq	append		; yes, so just add to the end
loop
		ldy	local.offset
		lda	[local.p],y	; get net number
		cmp	serverAddress
		bne	next
		iny
		iny
		lda	[local.p],y	; get node/socket
		cmp	serverAddress+2
		bne	next

; If doing volumes, compare the volume name here
		bit	local.flags
		bvcl	match		; address is all we needed!
		
		pha			; room for result
		pea	0		; flags (reserved)
		PushLong subText+8	; pointer to real volume name
		clc
		lda	local.offset
		adc	#4		; offset to volume name string
		clc
		adc	local.p		; point to volume name in message
		tax
		lda	local.p+2
		adc	#0
		pha			; push volume pointer
		phx
		_CompareStrings
		pla			; get result
		beql	match		; found it!
next
		clc
		lda	local.offset
		adc	local.entrySize	; point to next entry
		sta	local.offset
		dec	local.count
		bne	loop

;
; Here, no matching entry was found.  If only getting, return an error.
; If updating, need to add a new entry to the handle, set its address
; and volume name, and fall into match.
;
		bit	local.flags
		bmi	append
errexit		
		sec			; not found!
		brl	unlink		; unlock handle and exit

append
		PushLong messageHandle
		_HUnlock		; unlock before resize
		
		pea	0		; high word of new length
		clc
		lda	local.offset	; current length
		adc	local.entrySize	; add size of one entry
		pha			; low word of new size
		PushLong messageHandle
		_SetHandleSize
		
		PushLong messageHandle
		_HLock			; lock handle again
		jsr	DerefMH
		
		ldy	#6
		lda	[local.p],y
		ina			; increment entry count
		sta	[local.p],y
		
		ldy	local.offset
		lda	serverAddress
		sta	[local.p],y	; update network number
		iny
		iny
		lda	serverAddress+2
		sta	[local.p],y	; update node/socket
		iny
		iny			; offset to volume name
		
		bit	local.flags	; need to do volume name?
vcmatch		bvc	match		; no, so fall into update
		
		PushLong subText+8	; source is volume name
		clc
		tya			; offset to our volume in entry
		adc	local.p		; pointer to volume in entry
		tax
		lda	local.p+2
		adc	#0
		pha			; push destination
		phx
		PushLong #28		; length of volume name
		_BlockMove
		
match
;
; Here, we've got (or created) a matching entry.  Return or set
; the password as appropriate.  Build offset to the password in
; the message, and pointer to password global.  Local.p will point
; to password within the entry and local.passPtr will point to the
; password global.
;
		clc
		lda	local.offset	; start of this entry
		adc	local.entrySize	; end of this entry
		sec
		sbc	#8		; start of password in entry
		clc
		adc	local.p
		sta	local.p		; point directly to password
		lda	local.p+2
		adc	#0
		sta	local.p+2
		
		lda	#^serverPassword ; our bank
		sta	local.passPtr+2
		lda	#<serverPassword
		bit	local.flags
		bvc	@novol
		lda	#<volPassword
@novol
		sta	local.passPtr
		
		bit	local.flags
		bmi	update		; go write to message

; Copy password out of message.  Don't forget to set length byte!
		sep	#$30
		longa	off
		longi	off
		
		ldy	#0
		tyx			; assume length of zero
@loop
		lda	[local.p],y	; get from message
		eor	cryptKey,y	; make it plain text
		iny
		sta	[local.passPtr],y ; store to password
		cmp	#0
		beq	@next		; don't update length
		tyx			; remember offset of non-zero char
@next
		cpy	#8
		bne	@loop
		txa			; get length in A
		sta	[local.passPtr]	; update length byte
		
		rep	#$30
		longa	on
		longi	on
		
		clc			; no error
		bra	unlink		; unlock and exit
		
update
		inc	local.passPtr	; point past length byte
		ldy	#6		; offset of last word
@loop
		lda	[local.passPtr],y
		eor	cryptKey,y	; scramble it
		sta	[local.p],y
		dey
		dey
		bpl	@loop
		
		PushWord #addMessage
		pei	local.msgKind
		PushLong messageHandle
		_MessageCenter

unlink
		php
		php			; save carry in two bytes
		plx			; leave P in X (A gets destroyed)
		
		tsc
		clc
		adc	#local.sizeof-1	; remove local vars
		tcs
		pld

		phx			; put P on stack again
		
		PushLong messageHandle
		_HUnlock		; make sure handle stays unlocked
		
		plp
		plp			; recover carry flag
		
		rts


DerefMH
		lda	messageHandle
		ldx	messageHandle+2
		jsr	Deref
		sta	local.p
		stx	local.p+2
		rts
		
		endp
		
		
		
		
;======================================================================
;
;			AddSrvrPass
;
; Add the current server's password to the Message Center data so it
; will be available in case the user wants to save their name and
; password.
;
; On entry:
;	serverAddress		contains server's internet address
;	serverPassword+1	contains server's password (null padded)
;
; If there is an existing entry with the given serverAddress, its
; password will be replaced; otherwise a new entry will be appended
; to the message.
;
;======================================================================

AddSrvrPass	procname export
		
		lda	#$8000	; update, no volume
		jsr	FindMessage
		rts
		
		endp





;======================================================================
;
;			GetSrvrPass
;
; Get the current server's password from the Message Center data
; (so I can save it in AppleShare.Prep).
;
; On entry:
;	serverAddress		contains server's internet address
;
; On exit:
;	serverPassword+1	contains server's password (null padded)
;
;%%%
;%%%	If I can't determine the password, it would be nice to ask
;%%%	the user for it.  If they cancel, then it shouldn't be saved.
;%%%
;======================================================================

GetSrvrPass	procname
		import	serverPassword
rAutoNoPass	equ	600		; server password unknown

		lda	#$0000	; get password, no volume
		jsr	FindMessage
		bcc	exit
		
		ldx	#8
loop
		stz	serverPassword,x ; set password to empty
		dex
		dex
		bpl	loop
		
		lda	#rAutoNoPass
		jsr	AlertByID
		sec
exit
		rts
		
		endp
		



;======================================================================
;
;			AddVolPass
;
; Add the current volumes's name and password to the Message Center
; data so it will be available in case the user wants to save their
; name and password.
;
; On entry:
;	serverAddress	contains server's internet address
;	subText+8	points to volume name PString
;	volPassword+1	contains volume's password (null padded)
;
; If there is an existing entry with the given serverAddress and
; volume name, its password will be replaced; otherwise, a new entry
; will be appended to the message.
;
;======================================================================

AddVolPass	procname export

		lda	#$C000	; add, with volume
		jsr	FindMessage
		rts
		
		endp

		

;======================================================================
;
;			GetVolPass
;
; Get the current volume's password from the Message Center so it can
; be saved in the AppleShare.Prep file.
;
; On entry:
;	serverAddress	contains server's internet address
;	subText+8	points to volume name PString
;
; On exit:
;	volPassword+1	contains volume's password (null padded)
;
;%%%
;%%%	If I can't determine the password, it would be nice to ask
;%%%	the user for it.  If they cancel, then it shouldn't be saved.
;%%%
;======================================================================

GetVolPass	procname
		import	volPassword
rAutoNoVPass	equ	601		; volume password unknown error

		lda	#$4000	; get, with volume
		jsr	FindMessage
		bcc	exit
		
		ldx	#8
loop
		stz	volPassword,x	; set password to empty
		dex
		dex
		bpl	loop
		
		lda	#rAutoNoVPass
		jsr	AlertByID
		sec			; return an error
exit
		rts
		
		endp



		end
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/AppleShareCDEV/AppleShare.r b/IIGS.601.SRC/A.U.G/CtlPanel/AppleShareCDEV/AppleShare.r
new file mode 100644
index 0000000..71c449e
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/AppleShareCDEV/AppleShare.r
@@ -0,0 +1 @@
+/**********************************************************************
/*
/* AppleShare.r
/*
/* This is the RezIIGS source for the AppleShare Control Panel
/* (the assembly language version).
/*
/* 26-Aug-91 MSD	Version 2.0d2.  Changed the "Connect as..."
/*			string so there is a newline before the server
/*			name (like the old CDEV).  Key equivalents for
/*			Cancel/Quit buttons are now Esc (the event hooks
/*			translate Command-period to Esc).
/*
/* 26-Aug-91 MSD	Version 2.0d3.  Turn off fCtlCanBeTarget bit for
/*			the volume list since there are no other
/*			targettable controls, so why draw a focus frame?
/*			Turn off wantMachine so I can display my own
/*			error message.  Turn on wantRect and wantCreate.
/* 27-Aug-91 MSD	Turned off wantRect and wantCreate.  Turned on
/*			wantMachine.  Removed extra control lists.
/*
/* 06-Sep-91 MSD	Version 2.0d4.  Added a new alert for servers
/*			or volumes whose passwords haven't been stored
/*			in the message center (i.e. not mounted by
/*			the AppleShare Control Panel).
/* 15-Sep-91 MSD	In the volume list dialog, changed the "Quit"
/*			button to "Cancel".
/* 20-Sep-91 MSD	Version 2.0d5.  Changed to the yellow-folder
/*			icon used by Finder and EasyMount.
/* 27-Sep-91 MSD	Added an error message for when NBP is busy.
/* 10-Oct-91 MSD	Version 2.0d6.  Fixed the "webbed hand" appear-
/*			ance of the icon where there is a white space
/*			between the thumb and fingers (noticeable when
/*			booting and icon is displayed on desktop).
/*  3-Nov-91 DAL	Fixed spelling of "unkown" in unknown-error msg.
/*  7-Nov-91 MSD	Version 2.0d10.  Made the main window wider since
/*			it now has its own window (as of System 6).  Fixed
/*			coordinates for OK button to be width-independent.
/*  2-Dec-91 MSD	Version 2.0d11.  Changed the user name line edit
/*			to 31 characters.
/*  7-Feb-92 MSD	Changed version to 2.0 final for 6.0d70 (GM).
/*
/**********************************************************************/
/*
/*  Begin 6.0.1
/*
/*  2-Apr-92 DAL	2.1d1 for 6.0.1. Forces arrow cursor when closing
/*			Connect As window.
/*
/*  4-Mar-93 DAL	2.1d14 for 6.0.1d14.  Added AFP2.1 stuff.
/*
/* 25-Mar-93 DAL	2.1d15 for 6.0.1d15.  Removed AFP2.1, fix checkboxes.
/*
/* 1-Apr-93 SS		2.1 (release) for 6.0.1d16.
/*
/**********************************************************************/

#include "TypesIIGS.r"

#define wantEdit	$0800


/**********************************************************************
	Definitions for flags used in keyboard equivalents
/**********************************************************************/
#define keyPad		$2000
#define controlKey	$1000
#define optionKey	$0800
#define capsLock	$0400
#define shiftKey	$0200
#define appleKey	$0100
#define	escChar		"\$1B"



/**********************************************************************
		The CDEV code and flags
/**********************************************************************/


read rCDEVCode (1,Convert) "AppleShare.code";

resource rCDEVFlags (1) {
	wantBoot+wantMachine+wantInit+wantClose+wantEvents
		+wantHit+wantRun+wantEdit,
	1,					/* enabled */
	2,					/* version 2 */
	1,					/* ROM 1 or later */
	0,					/* reserved */
	{0,0,172,280},				/* display rectangle */
	"AppleShare",				/* CDEV name (title) */
	"Mark Day",				/* Author's name */
	"v2.1";				/* version number */
};



/**********************************************************************
		Control List for about box
/**********************************************************************/

#define aboutText	1

resource rControlList (2) {
	{aboutText};
};

resource rControlTemplate (aboutText) {
	aboutText,
	{38,5,138,280},				/* from DirectConnect */
	statTextControl { {
		ctlVisible,
		fCtlProcNotPtr+refIsResource,
		0,				/* refcon */
		aboutText			/* ID of text */
	} };
};

resource rTextForLETextBox2 (aboutText) {
	"The AppleShare Control Panel allows you to connect "
	"to an AppleShare File Server that supports AFP 2.0, "
	"and mount volumes from that server.  In addition, volumes "
	"can be mounted automatically at system startup.";
};



/**********************************************************************
		The controls from the main CDEV window
/**********************************************************************/

#define ServerString	11
#define ServerList	12
#define ServerOKButton	13
#define ZoneString	14
#define ZoneList	15
#define UserString	16
#define UserLE		17

#define LeftEdge	10
#define RightEdge	270
#define CenterHoriz	((LeftEdge+RightEdge)/2)

#define fInsideScroll	4
#define fSingleSelect	2
#define fCStrings	1

resource rControlList (1) { {
	UserString,UserLE,
	ZoneString,ZoneList,
	ServerString,ServerList,ServerOKButton
} };

resource rControlTemplate (ServerString) {
	ServerString,
	{6,LeftEdge,16,RightEdge},
	statTextControl { {
		CtlInactive+fBlastText,
		fCtlProcNotPtr+refIsResource,
		0,			/* refcon */
		ServerString		/* text ID */
	} };
};

resource rTextForLETextBox2 (ServerString) {
	"Select a file server:";
};

resource rControlTemplate (ServerList) {
	ServerList,
	{17,LeftEdge,59,RightEdge},
	listControl { {
		ctlVisible,
		fCtlCanBeTarget+fCtlWantsEvents+fCtlIsMultiPart+
			fCtlProcNotPtr+refIsResource,
		0,		/* refcon */
		0,		/* listSize = empty */
		4,		/* listView */
		fInsideScroll,	/* listType = scroll bar inside */
		1,		/* listStart */
		10,		/* listMemHeight (normal for text) */
		5,		/* listMemSize (default) */
		0		/* listRef (no list yet) */
	} };
};

resource rControlTemplate (ServerOKButton) {
	ServerOKButton,
	{65,CenterHoriz-45,78,CenterHoriz+45},
	simpleButtonControl { {
		DefaultButton+ctlInactive,
		fCtlWantsEvents+fCtlProcNotPtr+refIsResource,
		0,			/* refcon */
		ServerOKButton,		/* titleRef */
		0,			/* color table ref */
		{"\n","\n",0,0}		/* Return/Enter are equivalents */
	} };
};

resource rPString (ServerOKButton) {
	"OK"
};

resource rControlTemplate (ZoneString) {
	ZoneString,
	{87,LeftEdge,97,RightEdge},
	statTextControl {{
		CtlInactive+fBlastText,
		fCtlProcNotPtr+refIsResource,
		0,			/* refcon */
		ZoneString		/* text ID */
	}}
};

resource rTextForLETextBox2 (ZoneString) {
	"AppleTalk Zones:";
};

resource rControlTemplate (ZoneList) {
	ZoneList,
	{98,LeftEdge,140,RightEdge},
	listControl { {
		ctlVisible,
		fCtlCanBeTarget+fCtlWantsEvents+fCtlIsMultiPart+
			fCtlProcNotPtr+refIsPtr,
		0,		/* refcon */
		0,		/* listSize = empty */
		4,		/* listView */
		fInsideScroll+fSingleSelect,
		1,		/* listStart */
		10,		/* listMemHeight (normal for text) */
		5,		/* listMemSize (default) */
		0		/* listRef (empty list) */
	} };
};

resource rListRef (ZoneList) { {
} };

resource rControlTemplate (UserString) {
	UserString,
	{146,LeftEdge,156,RightEdge},
	statTextControl {{
		CtlInactive+fBlastText,
		fCtlProcNotPtr+refIsResource,
		0,			/* refcon */
		UserString		/* text ID */
	}}
};

resource rTextForLETextBox2 (UserString) {
	"User Name:";
};

resource rControlTemplate (UserLE) {
	UserLE,
	{156,LeftEdge,170,RightEdge},
	editLineControl { {
		ctlVisible,
		fCtlCanBeTarget+fCtlWantsEvents+fCtlProcNotPtr,
		0,		/* refcon */
		31,		/* max length */
		0		/* ref to default value */
	} };
};



/**********************************************************************
		Resources for the "Connect as..." dialog
/**********************************************************************/

#define rConnDlg	20
#define rGuest		21
#define rRegistered	22
#define rCCancel	23
#define rCOK		24
#define rCSetPass	25
#define rConnString	26
#define rNameStr	27
#define rNameLE		28
#define rPassStr	29
#define rPassLE		30
#define rScrambled	31		/* says "(Scrambled)" */
#define rClearText	32		/* says "(Clear text)" */
#define rAlreadyConn	33		/* "Already connected..." */
#define rNameStatText	34		/* user name as static text */


#define	fLEPassword	$8000		/* add to max size for password field */


resource rWindParam1 (rConnDlg) {
	fAlert+fCtlTie,			/* note: invisible! */
	rConnDlg,			/* no title */
	0,				/* refcon */
	{0,0,0,0},			/* zoom rect */
	0,				/* no color table */
	{0,0},				/* window origin */
	{0,0},				/* data size */
	{0,0},				/* maximum size */
	{0,0},				/* scroll size for arrows */
	{0,0},				/* scroll size for page up/down */
	0,				/* wInfoRefCon */
	0,				/* wInfoHeight */
	{18,6,195,312},			/* window's rect for 320 mode */
	inFront,
	rConnDlg,			/* reference to control list */
	ResourceToResource+RefIsResource*$100
};

resource rPString (rConnDlg) {
	"Connect As"
};

resource rControlList (rConnDlg) {{
	rConnString, rGuest, rRegistered, rNameStr, rNameLE, rPassStr,
	rPassLE, rScrambled, rClearText, rCCancel, rCOK, rCSetPass,
	rAlreadyConn,rNameStatText
}};

resource rControlTemplate (rConnString) {
	rConnString,
	{15,15,36,305},
	statTextControl {{
		CtlInactive+ctlInvis+fSubstituteText+fSubTextIsPascal,
		fCtlProcNotPtr+refIsResource,
		0,			/* refcon */
		rConnString
	}}
};

resource rTextForLETextBox2 (rConnString) {
	"Connect to the file server\nÒ*0Ó as:"
};

resource rControlTemplate (rAlreadyConn) {
	rAlreadyConn,
	{15,15,36,305},
	statTextControl {{
		CtlInactive+ctlInvis+fSubstituteText+fSubTextIsPascal,
		fCtlProcNotPtr+refIsResource,
		0,			/* refcon */
		rAlreadyConn
	}}
};

resource rTextForLETextBox2 (rAlreadyConn) {
	"Already connected to the file server Ò*0Ó as:"
};

resource rControlTemplate (rGuest) {
	rGuest,
	{53,45,63,200},
	radioControl {{
		ctlVisible+1,		/* 1 = family number */
		fCtlWantsEvents+fCtlProcNotPtr+refIsResource,
		0,			/* refcon */
		rGuest,			/* title reference */
		0,			/* initial value */
		0,			/* color table reference */
		{
			"g","G",	/* Command-G is equivalent */
			appleKey,
			controlKey+optionKey+appleKey
		}
	}}
};

resource rPString (rGuest) {
	"Guest"
};

resource rControlTemplate (rRegistered) {
	rRegistered,
	{68,45,78,200},
	radioControl {{
		ctlVisible+1,		/* 1 = family number */
		fCtlWantsEvents+fCtlProcNotPtr+refIsResource,
		0,			/* refcon */
		rRegistered,		/* title reference */
		1,			/* initial value */
		0,			/* color table reference */
		{
			"r","R",	/* Command-R is equivalent */
			appleKey,
			controlKey+optionKey+appleKey
		}
	}}
};

resource rPString (rRegistered) {
	"Registered User"
};

resource rControlTemplate (rNameStr) {
	rNameStr,
	{92,15,102,65},
	statTextControl {{
		CtlInactive+fBlastText,
		fCtlProcNotPtr+refIsResource,
		0,			/* refcon */
		rNameStr
	}}
};

resource rTextForLETextBox2 (rNameStr) {
	"Name:"
};

resource rControlTemplate (rNameLE) {
	rNameLE,
	{90,70,104,300},
	editLineControl { {
		ctlVisible,
		fCtlCanBeTarget+fCtlWantsEvents+
			fCtlProcNotPtr,
		0,		/* refcon */
		32,		/* max length */
		0		/* ref to default value */
	} };
};

resource rControlTemplate (rNameStatText) {
	rNameStatText,
	{92,70,102,300},
	statTextControl {{
		CtlInactive+ctlInvis+fSubstituteText+fSubTextIsPascal,
		fCtlProcNotPtr+refIsResource,
		0,			/* refcon */
		rNameStatText
	}}
};

resource rTextForLETextBox2 (rNameStatText) {
	"*1"
};

resource rControlTemplate (rPassStr) {
	rPassStr,
	{110,15,120,85},
	statTextControl {{
		CtlInactive+fBlastText,
		fCtlProcNotPtr+refIsResource,
		0,			/* refcon */
		rPassStr
	}}
};

resource rTextForLETextBox2 (rPassStr) {
	"Password:"
};

resource rControlTemplate (rPassLE) {
	rPassLE,
	{108,103,122,180},
	editLineControl { {
		ctlVisible,
		fCtlCanBeTarget+fCtlWantsEvents+
			fCtlProcNotPtr,
		0,		/* refcon */
		8+fLEPassword,	/* max length */
		0		/* ref to default value */
	} };
};

resource rControlTemplate (rScrambled) {
	rScrambled,
	{110,205,120,295},
	statTextControl {{
		ctlInactive+ctlInvis+fBlastText,
		fCtlProcNotPtr+refIsResource,
		0,			/* refcon */
		rScrambled
	}}
};

resource rTextForLETextBox2 (rScrambled) {
	"(Scrambled)"
};

resource rControlTemplate (rClearText) {
	rClearText,
	{110,205,120,295},
	statTextControl {{
		ctlInactive+ctlInvis+fBlastText,
		fCtlProcNotPtr+refIsResource,
		0,			/* refcon */
		rClearText
	}}
};

resource rTextForLETextBox2 (rClearText) {
	"(Clear text)"
};

resource rControlTemplate (rCCancel) {
	rCCancel,
	{137,40,150,140},
	simpleButtonControl { {
		ctlVisible,
		fCtlWantsEvents+fCtlProcNotPtr+refIsResource,
		0,			/* refcon */
		rCCancel,		/* titleRef */
		0,			/* color table ref */
		{
			escChar,escChar, /* Esc is equivalent */
			0,
			controlKey+optionKey+appleKey
		}
	} };
};

resource rPString (rCCancel) {
	"Cancel"
};

resource rControlTemplate (rCOK) {
	rCOK,
	{137,160,150,260},
	simpleButtonControl { {
		DefaultButton+ctlVisible,
		fCtlWantsEvents+fCtlProcNotPtr+refIsResource,
		0,			/* refcon */
		rCOK,			/* titleRef */
		0,			/* color table ref */
		{"\n","\n",0,0}		/* Return/Enter are equivalents */
	} };
};

resource rPString (rCOK) {
	"OK"
};

resource rControlTemplate (rCSetPass) {
	rCSetPass,
	{155,40,168,155},
	simpleButtonControl { {
		ctlVisible,
		fCtlProcNotPtr+refIsResource,
		0,			/* refcon */
		rCSetPass		/* titleRef */
	} };
};

resource rPString (rCSetPass) {
	"Set Password"
};


/**********************************************************************
		Resources for the volume list dialog
/**********************************************************************/
#define rVolDlg		40
#define rSelStr		41		/* "Select volumes to mount..." */
#define rVolList	42
#define	rCheckedStr	43		/* "Checked volumes will..." */
#define rNameOnly	44		/* Save My Name Only button */
#define rNameAndPass	45		/* Save My Name And Password */
#define rVQuit		46		/* Quit button */
#define rVOK		47		/* OK button */
#define rVolIcon	48		/* AppleShare icon */
#define	rVSrvrName	49		/* Server name */
#define rSampleCheck	50		/* example checked box */

#define idVolList	1
#define idNameOnly	2
#define idNameAndPass	3
#define	idVQuit		4
#define	idVOK		5

#define testMemNever	$0040

resource rWindParam1 (rVolDlg) {
	fAlert+fCtlTie,			/* note: invisible! */
	rVolDlg,			/* no title */
	0,				/* refcon */
	{0,0,0,0},			/* zoom rect */
	0,				/* no color table */
	{0,0},				/* window origin */
	{0,0},				/* data size */
	{0,0},				/* maximum size */
	{0,0},				/* scroll size for arrows */
	{0,0},				/* scroll size for page up/down */
	0,				/* wInfoRefCon */
	0,				/* wInfoHeight */
	{18,6,195,312},			/* window's rect for 320 mode */
	inFront,
	rVolDlg,			/* reference to control list */
	ResourceToResource+RefIsResource*$100
};

resource rPString (rVolDlg) {
	"Select Volumes"
};

resource rControlList (rVolDlg) {{
	rSampleCheck,
	rSelStr,rVolList,rCheckedStr,rNameOnly,rNameAndPass,
	rVQuit,rVOK,rVolIcon,rVSrvrName
}};

resource rControlTemplate (rSelStr) {
	rSelStr,
	{41,22,51,285},
	statTextControl {{
		CtlInactive+fBlastText,
		fCtlProcNotPtr+refIsResource,
		0,			/* refcon */
		rSelStr
	}}
};

resource rTextForLETextBox2 (rSelStr) {
	"Select the items you want:"
};

resource rControlTemplate (rVolList) {
	idVolList,
	{53,22,99,285},
	listControl {{
		ctlVisible+testMemNever,
		fCtlWantsEvents+fCtlIsMultiPart+fCtlProcNotPtr+refIsResource,
		0,		/* refcon */
		0,		/* listSize (for now) */
		4,		/* listView */
		fInsideScroll,	/* listType = scroll bar inside */
		1,		/* listStart */
		11,		/* listMemHeight (10 is default) */
		6,		/* listMemSize (extra byte for checked flag) */
		0		/* listRef (no list yet) */
	}}
};

resource rControlTemplate (rCheckedStr) {
	rCheckedStr,
	{102,37,122,302},
	statTextControl {{
		CtlInactive,
		fCtlProcNotPtr+refIsResource,
		0,			/* refcon */
		rCheckedStr
	}}
};

resource rTextForLETextBox2 (rCheckedStr) {
	"Checked volumes (         ) will be\n"
	"opened at system startup time."
};

/*
	Note: The check box is inactive.  It also has a non-zero
	height (its normal height of 10 pixels), but a zero width.
	This combination causes the checkbox to still be drawn,
	but not to be dimmed, and not to track.  This is probably
	a bug (it shouldn't draw since the rectangle is empty),
	but it is doing exactly what I need!
*/
resource rControlTemplate (rSampleCheck) {
	rSampleCheck,
	{102,173,112,173},
	checkControl {{
		ctlInactive,
		fCtlProcNotPtr+refIsResource,
		0,
		rSampleCheck,		/* no title */
		1			/* checked */
	}}
};

resource rPString (rSampleCheck) {
	""
};

resource rControlTemplate (rNameOnly) {
	idNameOnly,
	{126,60,136,320},
	radioControl {{
		ctlInvis+1,		/* 1 = family number */
		fCtlProcNotPtr+refIsResource,
		0,			/* refcon */
		rNameOnly,		/* title reference */
		1			/* initial value */
	}}
};

resource rPString (rNameOnly) {
	"Save My Name Only"
};

resource rControlTemplate (rNameAndPass) {
	idNameAndPass,
	{139,60,149,320},
	radioControl {{
		ctlInvis+1,		/* 1 = family number */
		fCtlProcNotPtr+refIsResource,
		0,			/* refcon */
		rNameAndPass,		/* title reference */
		0			/* initial value */
	}}
};

resource rPString (rNameAndPass) {
	"Save My Name and Password"
};

resource rControlTemplate (rVQuit) {
	idVQuit,
	{156,45,170,145},
	simpleButtonControl {{
		ctlVisible,
		fCtlWantsEvents+fCtlProcNotPtr+refIsResource,
		0,			/* refcon */
		rVQuit,			/* titleRef */
		0,			/* color table ref */
		{
			escChar,escChar, /* Esc is equivalent */
			0,
			controlKey+optionKey+appleKey
		}
	}}
};

resource rPString (rVQuit) {
	"Cancel"
};

resource rControlTemplate (rVOK) {
	idVOK,
	{156,160,169,260},
	simpleButtonControl {{
		DefaultButton+ctlVisible+ctlInactive,
		fCtlWantsEvents+fCtlProcNotPtr+refIsResource,
		0,			/* refcon */
		rVOK,			/* titleRef */
		0,			/* color table ref */
		{"\n","\n",0,0}		/* Return/Enter are equivalents */
	}}
};

resource rPString (rVOK) {
	"OK"
};

resource rControlTemplate (rVolIcon) {
	rVolIcon,
	{9,20,33,80},
	iconButtonControl {{
		8+4,			/* 8 = inactive, 4 = no border */
		fCtlProcNotPtr+refIsResource*16,
		0,
		1			/* iconRef = CDEV's icon */
	}}
};

resource rControlTemplate (rVSrvrName) {
	rVSrvrName,
	{16,85,26,285},
	statTextControl {{
		ctlInactive+fSubstituteText+fSubTextIsPascal,
		fCtlProcNotPtr+refIsResource,
		0,
		rVSrvrName
	}}
};

resource rTextForLETextBox2 (rVSrvrName) {
	"Ò*0Ó"
};


/**********************************************************************
		Resources for the volume password dialog
/**********************************************************************/
#define rVPDialog	60
#define rVPText1	61		/* volume name */
#define rVPText2	62		/* "Enter a password..." */
#define	rVPLE		63		/* line edit box */
#define rVPCancel	64		/* Cancel button */
#define rVPOK		65		/* OK button */
#define rVPIcon		66
#define rVPText3	67		/* "Password:"

#define idVPOK		1
#define idVPCancel	2
#define idVPText1	3
#define	idVPText2	4
#define	idVPLE		5
#define idVPIcon	6
#define idVPText3	7


resource rWindParam1 (rVPDialog) {
	fAlert+fCtlTie,			/* note: invisible! */
	rVPDialog,			/* no title */
	0,				/* refcon */
	{0,0,0,0},			/* zoom rect */
	0,				/* no color table */
	{0,0},				/* window origin */
	{0,0},				/* data size */
	{0,0},				/* maximum size */
	{0,0},				/* scroll size for arrows */
	{0,0},				/* scroll size for page up/down */
	0,				/* wInfoRefCon */
	0,				/* wInfoHeight */
	{40,8,150,312},			/* window's rect for 320 mode */
	inFront,
	rVPDialog,			/* reference to control list */
	ResourceToResource+RefIsResource*$100
};

resource rPString (rVPDialog) {
	"Volume Password"
};

resource rControlList (rVPDialog) {{
	rVPIcon,rVPText1,rVPText2,rVPText3,rVPLE,rVPCancel,rVPOK
}};

resource rControlTemplate (rVPText1) {
	idVPText1,
	{14,85,34,300},
	statTextControl {{
		ctlInactive+fSubstituteText+fSubTextIsPascal,
		fCtlProcNotPtr+refIsResource,
		0,			/* refcon */
		rVPText1
	}}
};

resource rTextForLETextBox2 (rVPText1) {
	"Ò*2Ó"
};

resource rControlTemplate (rVPText2) {
	idVPText2,
	{50,20,60,290},
	statTextControl {{
		CtlInactive+fBlastText,
		fCtlProcNotPtr+refIsResource,
		0,			/* refcon */
		rVPText2
	}}
};

resource rTextForLETextBox2 (rVPText2) {
	"Enter the password for this volume:"
};

resource rControlTemplate (rVPText3) {
	idVPText3,
	{63,20,75,100},
	statTextControl {{
		CtlInactive+fBlastText,
		fCtlProcNotPtr+refIsResource,
		0,			/* refcon */
		rVPText3
	}}
};

resource rTextForLETextBox2 (rVPText3) {
	"Password:"
};

resource rControlTemplate (rVPLE) {
	idVPLE,
	{62,105,76,190},
	editLineControl { {
		ctlVisible,
		fCtlCanBeTarget+fCtlWantsEvents+
			fCtlProcNotPtr,
		0,		/* refcon */
		8+fLEPassword,	/* max length */
		0		/* ref to default value */
	} };
};

resource rControlTemplate (rVPCancel) {
	idVPCancel,
	{85,50,100,130},
	simpleButtonControl {{
		ctlVisible,
		fCtlWantsEvents+fCtlProcNotPtr+refIsResource,
		0,			/* refcon */
		rVPCancel,		/* titleRef */
		0,			/* color table ref */
		{
			escChar,escChar, /* Esc is equivalent */
			0,
			controlKey+optionKey+appleKey
		}
	}}
};

resource rPString (rVPCancel) {
	"Cancel"
};

resource rControlTemplate (rVPOK) {
	idVPOK,
	{85,180,100,260},
	simpleButtonControl {{
		DefaultButton+ctlVisible,
		fCtlWantsEvents+fCtlProcNotPtr+refIsResource,
		0,			/* refcon */
		rVPOK,			/* titleRef */
		0,			/* color table ref */
		{"\n","\n",0,0}		/* Return/Enter are equivalents */
	}}
};

resource rPString (rVPOK) {
	"OK"
};

resource rControlTemplate (rVPIcon) {
	idVPIcon,
	{9,20,33,80},
	iconButtonControl {{
		8+4,			/* 8 = inactive, 4 = no border */
		fCtlProcNotPtr+refIsResource*16,
		0,
		1			/* iconRef = CDEV's icon */
	}}
};


/**********************************************************************
		Resources for the change password dialog
/**********************************************************************/
#define rSetPassDlg	80
#define rSPOldLE	81
#define rSPNewLE	82
#define rSPCancel	83
#define rSPOK		84
#define rSPOldStat	85
#define rSPOldStr	86
#define rSPNewStr	87
#define idSetPassCancel	1
#define idSetPassOK	2
#define idSetPassOld	3
#define idSetPassNew	4
#define idSPOldStat	5

resource rWindParam1 (rSetPassDlg) {
	fAlert+fCtlTie,			/* note: invisible! */
	rSetPassDlg,			/* title */
	0,				/* refcon */
	{0,0,0,0},			/* zoom rect */
	0,				/* no color table */
	{0,0},				/* window origin */
	{0,0},				/* data size */
	{0,0},				/* maximum size */
	{0,0},				/* scroll size for arrows */
	{0,0},				/* scroll size for page up/down */
	0,				/* wInfoRefCon */
	0,				/* wInfoHeight */
	{50,48,140,272},		/* window's rect for 320 mode */
	inFront,
	rSetPassDlg,			/* reference to control list */
	ResourceToResource+RefIsResource*$100
};

resource rPString (rSetPassDlg) {
	"Set Password"
};

resource rControlList (rSetPassDlg) {{
	rSPNewStr,rSPNewLE,rSPOldStr,rSPOldLE,rSPCancel,rSPOK,rSPOldStat
}};

resource rControlTemplate (rSPOldStr) {
	rSPOldStr,
	{11,20,23,120},
	statTextControl {{
		CtlInactive+fBlastText,
		fCtlProcNotPtr+refIsResource,
		0,			/* refcon */
		rSPOldStr
	}}
};

resource rTextForLETextBox2 (rSPOldStr) {
	"Old password:"
};

resource rControlTemplate (rSPOldLE) {
	idSetPassOld,
	{10,130,24,210},
	editLineControl { {
		ctlVisible,
		fCtlCanBeTarget+fCtlWantsEvents+fCtlProcNotPtr,
		0,		/* refcon */
		8+fLEPassword,	/* max length */
		0		/* ref to default value */
	} };
};

resource rControlTemplate (rSPNewStr) {
	rSPNewStr,
	{28,20,40,120},
	statTextControl {{
		CtlInactive+fBlastText,
		fCtlProcNotPtr+refIsResource,
		0,			/* refcon */
		rSPNewStr
	}}
};

resource rTextForLETextBox2 (rSPNewStr) {
	"New password:"
};

resource rControlTemplate (rSPNewLE) {
	idSetPassNew,
	{27,130,41,210},
	editLineControl { {
		ctlVisible,
		fCtlCanBeTarget+fCtlWantsEvents+fCtlProcNotPtr,
		0,		/* refcon */
		8+fLEPassword,	/* max length */
		0		/* ref to default value */
	} };
};

resource rControlTemplate (rSPCancel) {
	idSetPassCancel,
	{55,20,70,100},
	simpleButtonControl {{
		ctlVisible,
		fCtlWantsEvents+fCtlProcNotPtr+refIsResource,
		0,			/* refcon */
		rSPCancel,		/* titleRef */
		0,			/* color table ref */
		{
			escChar,escChar, /* Esc is equivalent */
			0,
			controlKey+optionKey+appleKey
		}
	}}
};

resource rPString (rSPCancel) {
	"Cancel"
};

resource rControlTemplate (rSPOK) {
	idSetPassOK,
	{55,130,70,210},
	simpleButtonControl {{
		DefaultButton+ctlVisible,
		fCtlWantsEvents+fCtlProcNotPtr+refIsResource,
		0,			/* refcon */
		rSPOK,			/* titleRef */
		0,			/* color table ref */
		{"\n","\n",0,0}		/* Return/Enter are equivalents */
	}}
};

resource rPString (rSPOK) {
	"OK"
};

resource rControlTemplate (rSPOldStat) {
	idSPOldStat,
	{11,130,23,210},
	statTextControl {{
		CtlInactive+ctlInvis+fBlastText,
		fCtlProcNotPtr+refIsResource,
		0,			/* refcon */
		rSPOldStat
	}}
};

resource rTextForLETextBox2 (rSPOldStat) {
	"××××××××"
};




/**********************************************************************
				Alerts
/**********************************************************************/
#define	rBadAFPVers	100	/* unsupported AFP version */
#define rBadUAM		101	/* unsupported UAM */
#define rTooManySess	102	/* PFI's tables are full */
#define rServerBusy	103	/* too many people logged on */
#define rNoResponse	104
#define rBadPassword	105
#define rBadUserName	106
#define rShuttingDown	107
#define rNBPBusy	108	/* Lookup returned NBP busy error */
#define rUnknownErr	199
#define rATInitWriteErr	200
#define rConfirmPass	300
#define rPassNoMatch	301
#define rOldPassBad	302
#define rCantChangePass	303
#define rNoAppleTalk	400
#define rOutOfMemory	401
#define rTooManyVols	500
#define rVolMiscErr	501
#define rAutoNoPass	600	/* can't automount -- don't know password */
#define rAutoNoVPass	601



resource rAlertString (rBadAFPVers) {
	"62/The file server Ò*0Ó uses an incompatible version of the "
	"AFP protocol.  You cannot connect to it./^#0"
	$"00"
};

resource rAlertString (rBadUAM) {
	"62/The file server Ò*0Ó does not use a recognizable log on "
	"sequence.  You cannot connect to it./^#0"
	$"00"
};

resource rAlertString (rTooManySess) {
	"52/You have reached the limit of the number of file "
	"servers you can connect to at one time./^#0"
	$"00"
};

resource rAlertString (rServerBusy) {
	"52/This file server will not allow any additional "
	"users to log on.  Try again later./^#0"
	$"00"
};

resource rAlertString (rNoResponse) {
	"52/No response from the server.  Please try again./^#0"
	$"00"
};

resource rAlertString (rBadPassword) {
	"52/Sorry, your password is incorrect.  Please reenter it./^#0"
	$"00"
};

resource rAlertString (rBadUserName) {
	"52/Unknown user or log on is disabled.  Please retype the "
	"name or contact the serverÕs administrator./^#0"
	$"00"
};

resource rAlertString (rShuttingDown) {
	"52/Access to the server has been denied because the server "
	"is closing down.  Try again later./^#0"
	$"00"
};

resource rAlertString (rNBPBusy) {
	"62/A list of servers cannot be displayed because another "
	"network search is already in progress on this machine.  "
	"Try again later./^#0"
	$"00"
};

resource rAlertString (rUnknownErr) {
	"52/An unknown error has occurred./^#0"
	$"00"
};

resource rAlertString (rATInitWriteErr) {
	"62/An error was encountered while trying to write the "
	"ATInit file.  The disk may be locked or full, or the "
	"access privileges of your user folder may not be set "
	"correctly./#4/^#0"
	$"00"
};

resource rAlertString (rConfirmPass) {
	"32/Please reenter your new password for confirmation./^#0"
	$"00"
};

resource rAlertString (rPassNoMatch) {
	"52/The confirmation password was not the same as the first.  "
	"Please start over./^#0"
	$"00"
};

resource rAlertString (rOldPassBad) {
	"52/Sorry, your old password is incorrect.  Please start again./^#0"
	$"00"
};

resource rAlertString (rCantChangePass) {
	"52/Your password could not be changed.  Please try again "
	"or see your server administrator./^#0"
	$"00"
};

resource rAlertString (rNoAppleTalk) {
	"62/The AppleShare control panel requires AppleShare.  "
	"Please make sure it is installed and the slots are "
	"set up properly./^#0"
	$"00"
};

resource rAlertString (rOutOfMemory) {
	"52/The AppleShare control panel could not allocate "
	"enough memory to run./^#0"
	$"00"
};

resource rAlertString (rTooManyVols) {
	"52/You have reached the limit of the number of "
	"volumes you can mount at one time./^#0"
	$"00"
};

resource rAlertString (rVolMiscErr) {
	"52/An unknown error occurred while trying to mount "
	"the volume Ò*2Ó./^#0"
	$"00"
};

resource rAlertString (rAutoNoPass) {
	"63/The serverÕs password cannot be saved because you did "
	"not connect to the server using the AppleShare Control "
	"Panel./^#0"
	$"00"
};

resource rAlertString (rAutoNoVPass) {
	"63/The password for the volume Ò*2Ó cannot be saved because "
	"the volume was not mounted by the AppleShare Control Panel./^#0"
	$"00"
};


/**********************************************************************
			The AppleShare icon
/**********************************************************************/
resource rIcon (1) {
	0x8000,				/* Kind */
	20,				/* Height */
	28,				/* Width */
	
	$"FFFFFFFFFFFF0FFF000000FFFFFF"
	$"FFFFFFFFFFF0a0FF0FFFF00FFFFF"
	$"FFFF000FFF0aaa0F0FDDD000FFFF"
	$"FFF0eee000000aa00FDDFFF0FFFF"
	$"FFF0eeeeeeee0aaa0FDDDDF0FFFF"
	$"FFF0eeeeeeee0aaaa0FFFFF0FFFF"
	$"FFF0eeeeeeee0aaa0FDDDFF0FFFF"
	$"FFF0eeeeeeee00a00FFFFFF0FFFF"
	$"FFF0000000000F0F00000000FFFF"
	$"FCCCCCCCCCCCCCCCCCCCCCCCCCFF"
	$"FFCCCCCCCCCCCCCCCCCCCCCCCFFF"
	$"FFFFFFF0F0F0F0FF0F0FFFFFFFFF"
	$"FFFFFFFF0F0F0F0F0F0FFFFFFFFF"
	$"FFFFFFFFF0F0FFF00F0FFFFFFFFF"
	$"FFFFFFFFFF00FFFFFF0FFFFFFFFF"
	$"FFFFFFFFFFFF0FFFFF0FFFFFFFFF"
	$"FFFFFFFFFFF000000000FFFFFFFF"
	$"FFFFFFFFFFF0DDDDDDD0FFFFFFFF"
	$"FFFFFFFFFFF0D0DDDDD0FFFFFFFF"
	$"FFFFFFFFFFF0DDDDDDD0FFFFFFFF",

	$"000000000000F000FFFFFF000000"
	$"00000000000FFF00FFFFFFF00000"
	$"0000FFF000FFFFF0FFFFFFFF0000"
	$"000FFFFFFFFFFFFFFFFFFFFF0000"
	$"000FFFFFFFFFFFFFFFFFFFFF0000"
	$"000FFFFFFFFFFFFFFFFFFFFF0000"
	$"000FFFFFFFFFFFFFFFFFFFFF0000"
	$"000FFFFFFFFFFFFFFFFFFFFF0000"
	$"000FFFFFFFFFF0F0FFFFFFFF0000"
	$"0FFFFFFFFFFFFFFFFFFFFFFFFF00"
	$"00FFFFFFFFFFFFFFFFFFFFFFF000"
	$"0000000FFFFFFF00FFF000000000"
	$"00000000FFFFFFF0FFF000000000"
	$"000000000FFFFFFFFFF000000000"
	$"0000000000FFFFFFFFF000000000"
	$"000000000000FFFFFFF000000000"
	$"00000000000FFFFFFFFF00000000"
	$"00000000000FFFFFFFFF00000000"
	$"00000000000FFFFFFFFF00000000"
	$"00000000000FFFFFFFFF00000000";
};
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/AppleShareCDEV/AppleShareEqu.aii b/IIGS.601.SRC/A.U.G/CtlPanel/AppleShareCDEV/AppleShareEqu.aii
new file mode 100644
index 0000000..89a8441
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/AppleShareCDEV/AppleShareEqu.aii
@@ -0,0 +1 @@
+checkWidth	equ	35		; number of pixels to leave for checkbox
checkSize	equ	25		; actual size of check box
checkOffset	equ	5		; move checkbox right this many pixels
textOffset	equ	10		; move text right this many pixels

localSize	equ	16		; size of local vars inside all messages

MaxZones	equ	255
ZoneBufSize	equ	MaxZones*33	; zone list buffer
ZoneMemSize	equ	MaxZones*5	; zone member records

MaxServers	equ	255
ReplyEntSize	equ	33+10+33	; object + "AFPServer" + zone
SrvrBufSize	equ	MaxServers*ReplyEntSize	; server lookup buffer
SrvrMemSize	equ	MaxServers*5	; server member records

MaxVols		equ	50
VolBufSize	equ	MaxVols*33+5	; room for FPGetSrvrParms reply
VolMemSize	equ	MaxVols*6
memChecked	equ	$8000		; in second byte of memFlag for volume lists
memNever	equ	$0020		; never select this item

MaxMessage	equ	12		; highest CDEV message number


;
; Control IDs for the main CDEV window
;
ServerString	equ	11
ServerList	equ	12
ServerOKButton	equ	13
ZoneString	equ	14
ZoneList	equ	15
UserString	equ	16
UserLE		equ	17


;
; IDs for the "Connect as..." window
;
; Note: all buttons have IDs greater or equal to rConnButtons
; and all other controls have IDs that are less.
;
rConnDlg	equ	20
rDlg1First	equ	21		; first ID of dialog 1
rGuest		equ	21
rRegistered	equ	22
rConnButtons	equ	23		; first button ID
rCCancel	equ	23
rCOK		equ	24
rCSetPass	equ	25
rDlg1Last	equ	25		; last ID I care about
rConnString	equ	26		; "Connect to _server_ as:"
rNameStr	equ	27
rNameLE		equ	28
rPassStr	equ	29
rPassLE		equ	30
rScrambled	equ	31		; the "(Scrambled)" string
rClearText	equ	32		; the "(Clear text)" string
rAlreadyConn	equ	33		; "Already connected to..."
rNameStatText	equ	34		; user name as static text (*1)


;
; Resource and control IDs for the volume list window
;
idVolList	equ	1		; control ID
idNameOnly	equ	2
idNameAndPass	equ	3
idVQuit		equ	4
idVOK		equ	5
idVolMax	equ	5		; max control ID I care about
rVolDlg		equ	40		; resource ID
rSelStr		equ	41
rVolList	equ	42
rCheckedStr	equ	43
rNameOnly	equ	44
rNameAndPass	equ	45
rVQuit		equ	46
rVOK		equ	47

;
; Resource and control IDs for the volume password window
;
idVPOK		equ	1		; the OK button
idVPCancel	equ	2		; the Cancel button
idVPText1	equ	3		; "Enter a volume name..."
idVPText2	equ	4		; "Password:"
idVPLE		equ	5		; the line edit box
rVPDialog	equ	60


;
; Resource and control IDs for the set password window
;
rSetPassDlg	equ	80
idSetPassCancel	equ	1		; Cancel button
idSetPassOK	equ	2		; OK button
idSetPassOld	equ	3		; old password line edit
idSetPassNew	equ	4		; new password line edit
idSPOldStat	equ	5		; old password as static text


;
; Resource IDs for AlertWindow messages
;
rBadAFPVers	equ	100
rBadUAM		equ	101
rTooManySess	equ	102		; PFI's tables are full
rServerBusy	equ	103		; too many people logged on
rNoResponse	equ	104
rBadPassword	equ	105
rBadUserName	equ	106
rShuttingDown	equ	107
rNBPBusy	equ	108		; NBP busy error
rUnknownErr	equ	199
rATInitWriteErr	equ	200
rConfirmPass	equ	300		; please confirm new password
rPassNoMatch	equ	301		; confirmation password didn't match
rOldPassBad	equ	302		; old password didn't work
rCantChangePass	equ	303		; couldn't change password (AccessDenied)
rNoAppleTalk	equ	400
rOutOfMemory	equ	401
rTooManyVols	equ	500
rVolMiscErr	equ	501


;
; AFP command numbers, etc.
;
FPLogin		equ	18
FPLoginCont	equ	19
FPGetUserInfo	equ	37+$100		; has ThisUser bit set
FPMapUserID	equ	$15+$100
FPGetSrvrParms	equ	16
FPChangePass	equ	36


FILogContErr	equ	$0A04		; PFI's login continue error
FIAccessErr	equ	$0A07		; PFI's access denied
FITooManyVols	equ	$0A08
FIUserNotAuth	equ	$0A15		; bad password
FIParamErr	equ	$0A16		; bad user name or password expired
FIWasMounted	equ	$0A11		; volume was already mounted
SPTooManyCalls	equ	$0702
NBPBusy		equ	$0408		; NBP too many processes


;
; Constants for using the Message Center
;
SrvrPassMsg	equ	$0044		; message number for server passwords
VolPassMsg	equ	$0046		; message number for volume passwords



;======================================================================
;
; Parameter block definitions
;
;======================================================================

GetFSTInfoRec	record	0
pCount		ds.w	1
fstNum		ds.w	1
fileSysID	ds.w	1
fstName		ds.l	1	; result buffer for FST name
version		ds.w	1
attributes	ds.w	1
blockSize	ds.w	1
maxVolSize	ds.l	1
maxFileSize	ds.l	1
		endr

GetUserPathRec	record	0
pCount		ds.w	1
fstID		ds.w	1
cmd		ds.w	1
prefixPtr	ds.l	1
		endr

CreateGSRec	record	0
pcount		ds.w	1
path		ds.l	1
access		ds.w	1
type		ds.w	1
auxtype		ds.l	1
		endr

OpenGSRec	record	0
pcount		ds.w	1
refnum		ds.w	1
path		ds.l	1
reqAccess	ds.w	1
		endr

GetEOFGSRec	record	0
pcount		ds.w	1
refnum		ds.w	1
eof		ds.l	1
		endr

SetMarkGSRec	record	0
pcount		ds.w	1
refnum		ds.w	1
base		ds.w	1
displacement	ds.l	1
		endr

ReadGSRec	record	0
pcount		ds.w	1
refnum		ds.w	1
buffer		ds.l	1
reqCount	ds.l	1
transCount	ds.l	1
		endr

CloseGSRec	record	0
pcount		ds.w	1
refnum		ds.w	1
		endr

ATGetInfoRec	record	0
async		ds.b	1
command		ds.b	1
result		ds.w	1
compReturn	ds.l	1
thisNet		ds.w	1
aBridge		ds.b	1
hardwareID	ds.b	1
romVers		ds.w	1
nodeNumber	ds.b	1
		endr

GetZoneList2Rec	record	0
async		ds.b	1
command		ds.b	1
result		ds.w	1
completion	ds.l	1
bufferLen	ds.w	1
bufferPtr	ds.l	1
startIndex	ds.w	1
retryInterval	ds.b	1
retryCount	ds.b	1
zonesReturned	ds.w	1
zipWork		ds.l	1
reserved	ds.l	1
		endr

GetMyZoneRec	record	0
async		ds.b	1
command		ds.b	1
result		ds.w	1
completion	ds.l	1
bufPtr		ds.l	1
retryInterval	ds.b	1
retryCount	ds.b	1
reserved	ds.l	1
		endr

LookupNameRec	record	0
async		ds.b	1
command		ds.b	1
result		ds.w	1
completion	ds.l	1
entity		ds.l	1
retryInterval	ds.b	1
retryCount	ds.b	1
reserved	ds.w	1
bufLen		ds.w	1
bufPtr		ds.l	1
maxMatch	ds.b	1
actMatch	ds.b	1
		endr

NBPKillRec	record	0
async		ds.b	1
command		ds.b	1
result		ds.w	1
parmPtr		ds.l	1
		endr

FILogin2Rec	record	0
async		ds.b	1
command		ds.b	1
result		ds.w	1
srvrAddr	ds.l	1		; net, node, socket
bufLen		ds.w	1
bufPtr		ds.l	1
replyBufLen	ds.w	1
replyBufPtr	ds.l	1
sessRefNum	ds.b	1
attnRoutine	ds.l	1
serverName	ds.l	1		; pointer to server name (PString)
zoneName	ds.l	1		; pointer to zone name (PString)
afpVersion	ds.w	1
		endr

FILoginContRec	record	0
async		ds.b	1
command		ds.b	1
result		ds.w	1
sessRefNum	ds.b	1
bufLen		ds.w	1
bufPtr		ds.l	1
replyBufLen	ds.w	1
replyBufPtr	ds.l	1
		endr
		
FIMountVolRec	record	0
async		ds.b	1
command		ds.b	1
result		ds.w	1
sessRefNum	ds.b	1
flags		ds.b	1
volName		ds.l	1		; pointer to volume name
volID		ds.w	1
unitNum		ds.b	1
passwordPtr	ds.l	1
		endr

FIAccessRec	record	0
async		ds.b	1
command		ds.b	1
result		ds.w	1
flags		ds.b	1
rights		ds.l	1		; the access rights themselves
path		ds.l	1		; points to pathname
creator		ds.l	1		; points to creator name
group		ds.l	1		; points to group name
		endr

FILogoutRec	record	0
async		ds.b	1
command		ds.b	1
result		ds.w	1
sessRefNum	ds.b	1
		endr

SPGetStatusRec	record	0
async		ds.b	1
command		ds.b	1
result		ds.w	1
completion	ds.l	1
srvrAddr	ds.l	1		; net, node socket
bufLen		ds.w	1
bufPtr		ds.l	1
actLen		ds.w	1		; actual length returned
		endr

SPCommandRec	record	0
async		ds.b	1
command		ds.b	1
result		ds.w	1
completion	ds.l	1
sessRefNum	ds.b	1
bufLen		ds.w	1
bufPtr		ds.l	1
replyBufLen	ds.w	1
replyBufPtr	ds.l	1
cmdResult	ds.l	1		; ASP client's (AFP's) result
replyLen	ds.w	1		; actual reply length
		endr

ExtTaskRec	record	0
wmWhat		ds.w	1
wmMessage	ds.l	1
wmWhen		ds.l	1
wmWhere		ds.l	1
wmModifiers	ds.w	1
wmTaskData	ds.l	1
wmTaskMask	ds.l	1
wmLastClickTick	ds.l	1
wmClickCount	ds.w	1
wmTaskData2	ds.l	1
wmTaskData3	ds.l	1
wmTaskData4	ds.l	1
wmLastClickPt	ds.l	1
		endr
		

;======================================================================
;
; Data types used by the auto-logon code (and in AppleShare.Prep)
;
; The format of the AppleShare.Prep file is a word, srvrCount, followed
; by srvrCount instances of a ServerInfoRec.  After each ServerInfoRec
; are volCount VolInfoRec structures (volCount is the last field of
; a ServerInfoRec).
;
; For the serverFlags field:
;	$8000 = save my name only (i.e. ask for server and volume passwords)
;
; For the volFlags field:
;	$8000 = volume has a password
;	$4000 = volume is a user volume
;
;======================================================================

ServerInfoRec	record	0
serverFlags	ds.w	1
serverName	ds.b	32
serverZone	ds.b	34
userName	ds.b	32		; empty string means guest
srvrPassword	ds.b	8
volCount	ds.w	1
sizeof
		endr

VolumeInfoRec	record	0
volFlags	ds.w	1
volName		ds.b	28
volPassword	ds.b	8
sizeof
		endr


;======================================================================
;
; Macro definitions
;
;======================================================================

		macro
&lbl		ATCall	&parm
&lbl		ldx	#<&parm
		ldy	#^&parm
		jsl	$E11014
		endm


;
; PushLDP (Push Long Direct Page) -- Pushes 4 bytes onto the stack
; from direct page using PEI instructions.  Like PushLong, but more
; efficient.
;
		macro
&lbl		pushldp	&parm
&lbl		pei	&parm+2		; push high word first
		pei	&parm		; push low word
		endm

;
; PStr -- Defines a Pascal string (i.e. with a leading length byte)
; independent of the current mode of the STRING directive.
;
		macro
&lbl		pstr	&parm
		lclc	&ss
&ss		setc	&setting('STRING')
		string	pascal
&lbl		dc.b	&parm
		string	&ss
		endm

;
; GStr -- Defines a GS/OS string (i.e. with a leading length word)
; independent of the current mode of the STRING directive.
;
; Note: The &len() operator counts the quotes around the string, too
; so I have to subtract 2 to account for them.
;
		macro
&lbl		gstr	&parm
		lclc	&ss
&ss		setc	&setting('STRING')
		string	asis
&lbl		dc.b	&len(&parm)-2,(&len(&parm)-2)/256,&parm
		string	&ss
		endm

;----------
; The following are "long" branch instructions.  They invert the
; meaning of the original branch to branch around a BRL that goes
; to the real address.  This way I don't have to make up funny
; labels all the time.
;----------

		macro
&lbl		beql	&parm
&lbl		bne	*+5
		brl	&parm
		endm

		macro
&lbl		bnel	&parm
&lbl		beq	*+5
		brl	&parm
		endm

		macro
&lbl		bvcl	&parm
&lbl		bvs	*+5
		brl	&parm
		endm

		macro
&lbl		bccl	&parm
&lbl		bcs	*+5
		brl	&parm
		endm

		macro
&lbl		bcsl	&parm
&lbl		bcc	*+5
		brl	&parm
		endm

		macro
&lbl		bpll	&parm
&lbl		bmi	*+5
		brl	&parm
		endm

		macro
&lbl		bmil	&parm
&lbl		bpl	*+5
		brl	&parm
		endm
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/AppleShareCDEV/AutoLogon.aii b/IIGS.601.SRC/A.U.G/CtlPanel/AppleShareCDEV/AutoLogon.aii
new file mode 100644
index 0000000..8f4c051
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/AppleShareCDEV/AutoLogon.aii
@@ -0,0 +1 @@
+;======================================================================
;
;			AutoLogon.aii
;
; This file contains the routines used when mounting volumes at boot
; time.  It does call some common routines in the main CDEV code, but
; the routines here are only needed at boot time.
;
; 20-Sep-91 MSD	No longer starts up Font Manager or List Manager at
;		boot time since these tools are never used.  Does a
;		HideMenuBar after initializing the tools so we don't
;		have to stare at an empty menu bar.  Changed NBP lookup
;		to retry 12 times, every 1/4 second; this means you
;		wait only 3 seconds instead of 11 for each server that
;		can't be found.  Removed definition of DebugSymbols.
;
;  4-Oct-91 MSD	Must set up the MyID variable at boot time because the
;		routines that use the Message Center use it.  Also make
;		sure to allocate messageHandle.
;
; 29-Oct-91 MSD	Now starts up the List Manager at boot time so that it
;		can use _CompareStrings.
;
; 07-Jan-92 MSD	When setting up the entity name for the lookup, it now
;		copies the zone name into LookupZone so TryLogin will
;		set the zone properly (the zone field was showing as
;		empty as returned by FIListSessions2 and in the Finder's
;		GetInfo Where card).
;
;======================================================================



		print	push,off
		include	'M16.GSOS'
		include	'M16.Debug'
		include	'M16.IntMath'
		include	'E16.Types'
		include	'M16.Memory'
		include	'M16.Util'
		include	'E16.Locator'
		include	'M16.Locator'
		include	'M16.Control'
		include	'M16.QuickDraw'
		include 'M16.Menu'
		
		include	'AppleShareEQU.aii'
		print	pop



;======================================================================
;
;			AutoLogon
;
; This is the main routine called by the BootCDEV message to make
; volumes get mounted at system startup time.  It reads in the data
; from the AppleShare.Prep file and then loops through the server and
; volume lists, mounting as it goes.
;
;======================================================================

AutoLogon	procname export
		import	OpenGS:OpenGSRec
		import	ReadGS:ReadGSRec
		import	CloseGS:CloseGSRec
		import	SetMarkGS:SetMarkGSRec
		import	serverInfo:ServerInfoRec
		import	volInfo:VolumeInfoRec
		import	FILogin:FILogin2Rec
		import	FILogout:FILogoutRec
		import	BuildPrepPath,BootConnectAs,subText
		import	FindTheServer,CopyUserName,CopyPassword
		import	GetStatus,hasAFP20,hasGuest,hasClearText,hasScrambled
		import	TryLogin,selectedUAM,userName,volsMounted
		import	StartTools,StopTools,CopyVolPassword,MountAVol
		import	mountFlag,AskForVolPass,serverCount
		import	AddSrvrPass,AddVolPass
		import	messageHandle,myID,NewHandle
		
		
;
; Get my Memory Manager user ID
;
		pha			; space for result
		_MMStartup
		pla
		ora	#$0100		; use auxID of 1 for my memory
		sta	myID

;
; Allocate handle for Message Center data
;
		lda	#8		; just enough for count word
		jsr	NewHandle
		bcs	@err		; don't bother trying
		sty	messageHandle
		stx	messageHandle+2

;
; Set up pointers to server and volume names
;
		lda	#<serverInfo.serverName
		sta	subText		; point *0 to server name
		lda	#^serverInfo.serverName
		sta	subText+2
		lda	#<volInfo.volName
		sta	subText+8	; point *2 to volume name
		lda	#^volInfo.volName
		sta	subText+10
		
		jsr	BuildPrepPath	; make the pathname to the file

		lda	#1		; want read-only access
		sta	OpenGS.reqAccess
		_OpenGS	OpenGS
		bcc	isopen
		
		jsr	StopTools	; used only for _DisposeAll

@err		rts			; error, so just exit
		
isopen
		lda	OpenGS.refnum	; copy file's refnum
		sta	ReadGS.refnum
		sta	CloseGS.refnum
		sta	SetMarkGS.refnum

;
; First, read count of servers
;
		lda	#<serverCount
		sta	ReadGS.buffer
		lda	#^serverCount
		sta	ReadGS.buffer+2
		lda	#2		; just a word
		sta	ReadGS.reqCount
		_ReadGS	ReadGS
		bcs	ToCloseExit	; error, just close the file
		lda	serverCount	; any servers in the list?
		bne	ServerLoop	; yes, so loop through them
ToCloseExit	brl	CloseExit	; just close and exit now

;
; For each server in the list, read its info record
;
ServerLoop
		stz	volsMounted	; no volumes mounted yet
		
		lda	#<serverInfo
		sta	ReadGS.buffer
		lda	#^serverInfo
		sta	ReadGS.buffer+2
		lda	#ServerInfoRec.sizeof
		sta	ReadGS.reqCount
		_ReadGS	ReadGS
		bcs	ToCloseExit
;		lda	serverInfo.volCount
;		beq	NextServer	; no volumes, so do next server

;----------
; Now log on to the file server.  If we get a bad name or password,
; then we put up the "Connect as..." dialog.
;----------
		jsr	FindTheServer	; try to find the server
		bcs	ToSkipVolumes	; not found, go to next server
		
		jsr	GetStatus	; see what server supports
		bcs	ToSkipVolumes	; no response, go to next server

		lda	hasAFP20	; does it support AFP 2.0?
		beq	ToSkipVolumes	; no, so next server
		
;
; If saved to log on as guest, and server doesn't support guest,
; then skip it.  Otherwise, set selectedUAM and go log on.
;
		jsr	CopyUserName	; set up userName variable
		jsr	CopyPassword	; set up serverPassword variable
		
		lda	userName
		and	#$00FF		; get length of name
		bne	@registered

; Here, they want to log on as a guest
		lda	hasGuest	; guest logins allowed?
		beq	ToSkipVolumes	; no, so forget this server
		stz	selectedUAM	; select NoUserAuthent
		bra	@log		; go try the login

@registered
;
; See which UAM is best to use.  If none, then skip this server
;
		lda	hasScrambled	; I prefer scrambled
		beq	@clear		; no go, try cleartext
		lda	#rScrambled
		bra	@uam		; got the uam
@clear
		lda	hasClearText
		beq	ToSkipVolumes	; don't bother trying guest
		lda	#rClearText
@uam
		sta	selectedUAM
		bit	serverInfo.serverFlags
		bmi	@interact	; save name only, put up dialog
@log
		jsr	TryLogin	; go try and log in
		bcc	LoggedOn	; no error, so mount the volumes
		cmp	#FIUserNotAuth	; bad password?
		beq	@interact
		cmp	#FIParamErr	; bad user name?
		bne	ToSkipVolumes
@interact
		jsr	StartTools	; tools: start your engines
		bcs	ToSkipVolumes	; couldn't, try other servers
		jsr	BootConnectAs	; try the "Connect as..." dialog
		bcc	LoggedOn	; worked, mount volumes
ToSkipVolumes	brl	SkipVolumes	; no dice, try next server
;
; For each volume in the list, read its info record
;
LoggedOn
		jsr	AddSrvrPass	; save the server's password
VolumeLoop
		lda	#<volInfo
		sta	ReadGS.buffer
		lda	#^volInfo
		sta	ReadGS.buffer+2
		lda	#VolumeInfoRec.sizeof
		sta	ReadGS.reqCount
		_ReadGS	ReadGS
		bcs	CloseExit
;
; Here is where we mount the volume.  If it has a password, and one
; wasn't saved, we should ask for it.
;
		jsr	CopyVolPassword
		
		lda	#$0080		; set mount flag
		bit	volInfo.volFlags
		bvc	@notuser	; bit 14 = user volume
		ora	#$0001		; set user volume bit
@notuser
		bit	volInfo.volFlags
		bpl	@mount		; no volume password, just mount it
		ora	#$0040		; set volume password bit
		bit	serverInfo.serverFlags
		bpl	@mount		; password saved, try to mount
		sta	mountFlag	; save mountFlag for AskForVolPass
@interact
		jsr	StartTools
		bcs	NextVolume
		jsr	AskForVolPass
		bcc	GotVolume
		bcs	NextVolume
@mount
		sta	mountFlag	; save for AskForVolPass
		ldx	#<volInfo.volName
		ldy	#^volInfo.volName
		jsr	MountAVol
		bcc	GotVolume	; no error, volume was mounted
		cmp	#FIAccessErr	; was it a bad password?
		beq	@interact	; yes, so ask for right one
		bne	NextVolume	; no, so couldn't mount this one
GotVolume
		lda	mountFlag
		and	#$0040		; was there a password?
		beq	@nopass		; no, so don't save it
		jsr	AddVolPass
@nopass
		inc	volsMounted	; the volume did get mounted
NextVolume
		dec	serverInfo.volCount
		bne	VolumeLoop
		lda	volsMounted	; were any volumes mounted
		bne	NextServer	; yes, so do next server
; No volumes mounted on this server, so log off
		lda	FILogin.sessRefNum
		sta	FILogout.sessRefNum
		ATCall	FILogout

NextServer
		dec	serverCount
		beq	CloseExit
		brl	ServerLoop

CloseExit
		jsr	StopTools
		_CloseGS CloseGS
		
		rts

SkipVolumes
;
; Here, we couldn't find the server, so skip forward to next server
; by setting the mark past the records for this server's volumes.
;
		lda	#2		; mark := mark + displacement
		sta	SetMarkGS.base
		pha			; room for product
		pha
		lda	serverInfo.volCount	; number of volumes
		pha
		pea	VolumeInfoRec.sizeof	; times size of volume record
		_Multiply
		pla
		sta	SetMarkGS.displacement
		pla
		sta	SetMarkGS.displacement+2
		_SetMarkGS SetMarkGS
		bra	NextServer

		endp




;======================================================================
;
;			BootButton
;
; This is a temporary function so I can call the autologon code from
; the main CDEV window (and I won't have to reboot all the time).
;
;======================================================================

BootButton	procname export
		import	tStarted:data
		import	StopTools,subText
		
		lda	#1
		sta	tStarted	; tools are already started
		
		lda	StopTools
		pha
		lda	#$EA60		; put an RTS at StopTools
		sta	StopTools
		
		pha			; room for result
		pha
		_GetCtlParamPtr		; get old sub. array
		PushLong #subText
		_SetCtlParamPtr
		
		jsr	AutoLogon
		
		_SetCtlParamPtr
		
		pla
		sta	StopTools
		
		stz	tStarted
		
		rts




;======================================================================
;
;			CopyUserName
;
; Copy the user's name from the ServerInfoRec to our global.
;
;======================================================================

CopyUserName	procname
		import	serverInfo:ServerInfoRec
		import	userName

		ldx	#30		; offset of last word
loop
		lda	serverInfo.userName,x
		sta	userName,x
		dex
		dex
		bpl	loop
		
		rts
		
		endp




;======================================================================
;
;			CopyPassword
;
; Copy the server password from the ServerInfoRec to our global.  Note
; that we also set the length by finding the last non-null character.
; If the Save My Name Only flag is set, set the password to empty.
;
;======================================================================

CopyPassword	procname
		import	serverInfo:ServerInfoRec
		import	serverPassword,cryptKey

		stz	serverPassword	; assume password length is zero
		bit	serverInfo.serverFlags
		bmi	exit		; name only => leave null password
		
		sep	#$30
		longa	off
		longi	off
		
		ldx	#1		; start with first character
loop
		lda	serverInfo.srvrPassword-1,x
		eor	cryptKey-1,x
		sta	serverPassword,x
		beq	null
		stx	serverPassword	; save last non-null character offset	
null
		inx
		cpx	#9
		blt	loop
		
		rep	#$30
		longa	on
		longi	on
exit
		rts
		
		endp




;======================================================================
;
;			CopyVolPassword
;
; Copy the volume password from the VolumeInfoRec to our global.  Note
; that we also set the length by finding the last non-null character.
; If the Save My Name Only flag is set, set the password to empty.
;
;======================================================================

CopyVolPassword	procname
		import	serverInfo:ServerInfoRec
		import	volInfo:VolumeInfoRec
		import	volPassword,cryptKey

		stz	volPassword	; assume password length is zero
		bit	serverInfo.serverFlags
		bmi	exit		; name only => leave null password
		
		sep	#$30
		longa	off
		longi	off
		
		ldx	#1		; start with first character
loop
		lda	volInfo.volPassword-1,x
		eor	cryptKey-1,x
		sta	volPassword,x
		beq	null
		stx	volPassword	; save last non-null character offset	
null
		inx
		cpx	#9
		blt	loop
		
		rep	#$30
		longa	on
		longi	on
exit
		rts
		
		endp




;======================================================================
;
;			FindTheServer
;
; Given a ServerInfoRec, build up an NBP entity for use by LookupName
; and then do a lookup to find the server.
;
;======================================================================

FindTheServer	procname
		import	serverInfo:ServerInfoRec
		import	lookup:LookupNameRec
		import	LookupType,LookupZone,entity
		import	lbuf,serverAddress

		sep	#$30
		longa	off
		longi	off
		
;
; Copy server name
;
		ldx	#0		; offset to destination
loop1
		lda	serverInfo.serverName,x
		sta	entity,x
		inx
		cpx	serverInfo.serverName
		blt	loop1
		beq	loop1

;
; Copy type
;
		ldy	#0		; offset to source
loop2
		lda	LookupType,y
		sta	entity,x
		inx
		iny
		cpy	LookupType
		blt	loop2
		beq	loop2

;
; Copy zone
;
		ldy	#0
loop3
		lda	serverInfo.serverZone,y
		sta	LookupZone,y	; copy for use by TryLogin (7-Jan-92 MSD)
		sta	entity,x
		inx
		iny
		cpy	serverInfo.serverZone
		blt	loop3
		beq	loop3
		
		rep	#$30
		longa	on
		longi	on

lookloop	
		ATCall	lookup		; try to find server's address
		bcc	found		; found a match!
		lda	lookup.result
		cmp	#NBPBusy
		beq	lookloop	; NBP was busy, keep trying
		bra	exit		; return the error
found
		lda	lbuf
		sta	serverAddress
		lda	lbuf+2
		sta	serverAddress+2
		lda	#0		; no error
exit
		cmp	#1		; set carry if non-zero result

		rts
		
		endp




tStarted	dc.w	0		; I haven't started them yet
oldCtlParamPtr	dc.l	0		; saved text substitution pointer
;
; Note: Tool versions listed here are those present in 6.0
;
startStopRec	record
		dc.w	0		; flags, always zero
		dc.w	$0080		; use 640 mode
		dc.w	0		; resource file ID saved here
		dc.l	0		; zero page handle saved here
		dc.w	(end-start)/4	; number of tool sets in table
start
		dc.w	$0003,$0302	; misc. tools
		dc.w	$0004,$0307	; QuickDraw II
		dc.w	$0006,$0301	; Event manager
		dc.w	$000B,$0300	; int math
		dc.w	$000E,$0303	; window manager
		dc.w	$000F,$0303	; menu manager
		dc.w	$0010,$0303	; control manager
		dc.w	$0012,$0304	; QuickDraw II Aux
		dc.w	$0014,$0303	; Line Edit
		dc.w	$0016,$0301	; scrap manager
		dc.w	$001C,$0303	; List Manager (for _CompareStrings)
end
		endr
		
		
;======================================================================
;
;			StartTools
;
; This routine starts up the tools used by the "Connect as..." and
; volume password dialogs.  It can be called as many times as you want
; since it checks a flag to see if it has started the tools yet.
;
;======================================================================

StartTools	procname
		import	tStarted,startStopRec,oldCtlParamPtr
		import	subText
		
		clc			; assume no error
		lda	tStarted
		bne	done
		
		pha			; room for result
		pha
		pha			; room for Memory Manager ID
		_MMStartup		; get memory manager ID
		PushWord #refIsPointer+noResourceMgr
		PushLong #startStopRec
		_StartUpTools

; Ignore result of StartUpTools.  Leave the four bytes on the stack
; for GetCtlParamPtr to return its result.
		_GetCtlParamPtr		; get old substitution array
		pla
		sta	oldCtlParamPtr
		pla
		sta	oldCtlParamPtr+2
		PushLong #subText
		_SetCtlParamPtr

;
; Hide the menu bar so we don't have to stare at an empty one
;
		_HideMenuBar

;
; Make the cursor an arrow instead of a watch.
;
		_InitCursor
		
		inc	tStarted	; set started flag
done
		rts
		
		endp
		



;======================================================================
;
;			StopTools
;
; This routine is called to shutdown any tools I started up with
; StartTools above.  It also checks tStarted so it can always be
; called.
;
;======================================================================

StopTools	procname
		import	tStarted,startStopRec,oldCtlParamPtr,myID
		
		PushWord myID
		_DisposeAll		; make sure all memory is disposed of

		lda	tStarted
		beq	done

		PushLong oldCtlParamPtr
		_SetCtlParamPtr		; restore sub. array
		
		PushWord #refIsPointer+leaveScreenClean+noResourceMgr
		PushLong #startStopRec
		_ShutDownTools
		
		dec	tStarted
done
		rts
		endp
		
		
		

;----------------------------------------------------------------------
;
;			Private data areas
;
;----------------------------------------------------------------------

lbufsize	equ	110		; more than enough for 1 entity
lbuf		ds.b	lbufsize
entity		ds.b	99		; room for entity name to find
lookup		record
		dc.b	$00,$10		; sync LookupName
		dc.w	0		; result
		dc.l	0		; completion routine
		dc.l	entity		; entity name
		dc.b	1,12		; retry 12 times, every 1/4 second
		dc.w	0		; reserved
		dc.w	lbufsize	; buffer length
		dc.l	lbuf		; buffer pointer
		dc.b	1		; max of 1 match
		dc.b	0		; actual matches
		endr

		end
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/AppleShareCDEV/DES.aii b/IIGS.601.SRC/A.U.G/CtlPanel/AppleShareCDEV/DES.aii
new file mode 100644
index 0000000..2f11b30
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/AppleShareCDEV/DES.aii
@@ -0,0 +1 @@
+**************************************************
*
*
* des -	data encryption	standard.
*
*
* written by	07-03-86
*	david su
*
* modified : 01-27-87 06:00 (tde)
*  5-29-87: Converted source to	MacToGS	(rbh)   
*
* (c) 1987 paramis corporation
* (c) 1987 Apple Computer Inc
* all rights reserved
*
* Rick Hoiberg 5/29/87
*
* modified : 08-23-88 (srk)
*			converted to MPW IIGS (MAX) assembler
*
* 10-Aug-91 MSD: Changed to make it easier to call from full native
* mode on a 65816.  Improved documentation of calling convention.
* The calling convention is described below:
*
* On entry,
*	Called by JSL
*	Full native mode (16 bit A,X,Y)
*	X = low word of parameter block pointer
*	Y = high word of parameter block pointer
*
* Parameter list:
*	$00	Pointer to 8 byte password (key)
*	$04	Pointer to 8 byte data to encrypt
*	$08	Pointer to 8 byte result
*
* The routine creates room on the stack for its own zero
* page use.
*
**********************************************************
		MACHINE	M65816

		EXPORT	DES
DES		PROC

DirectPage	record	1
savedD		ds.w	1
Zp0		ds.l	1
Zp1		ds.l	1
savedB		ds.b	1
		endr

*
* create a stack frame
*
		phb			;save current data bank
		phk
		plb			;data bank = program bank
		
		pha			; make room for locals
		pha
		pha
		pha
		
		phd
		tsc
		tcd

		with	DirectPage
		
*
* save parameter list location
*
		stx	Zp0		;save parameter	list pointer
		sty	Zp0+2
*
* save key in our work area
*
		lda	(Zp0)		;save key
		sta	Zp1
		ldy	#$02
		lda	(Zp0),y
		sta	Zp1+2
;
		ldy	#$06		;move all eight	bytes of key
des1		lda	(Zp1),y
		sta	key,y
		dey
		dey
		bpl	des1

*
* save password	in our work area
*
		ldy	#$04
		lda	(Zp0),y
		sta	Zp1
		iny
		iny
		lda	(Zp0),y
		sta	Zp1+2
;
		ldy	#$06		;move all eight	bytes of key
des2		lda	(Zp1),y
		sta	random,y
		dey
		dey
		bpl	des2

;
;
;
*
* initialize the count
*
		ldx	#0
des4					;
		stz	des_count,x
		inx
		inx
		cpx	#32
		bne	des4
;
;	save our zero page values here - for some reason they are getting trashed
;	when we	do the encoding	routines.....
;
		lda	Zp0
		sta	saveZp0
		lda	Zp0+2
		sta	saveZp0+2
;
		sep	#$30
		LONGA	OFF
		LONGI	OFF
;
		jsr	keysched
		jsr	encode
*
* save result
*

		Rep	#$30
		LONGA	ON
		LONGI	ON
;
;	restore	Zp0 here - why is it getting trashed in	our encoding routines above?
;
		lda	saveZp0
		sta	Zp0
		lda	saveZp0+2
		sta	Zp0+2
;	        
		ldy	#$08
		lda	(Zp0),y
		sta	Zp1
		iny
		iny
		lda	(Zp0),y
		sta	Zp1+2
;
		ldy	#$06		;move all eight	bytes of key
des3		lda	des_work1,y
		sta	(Zp1),y
		dey
		dey
		bpl	des3
*
* Restore stack and exit
*
		pld
		
		pla			; remove locals
		pla
		pla
		pla

		plb			;restore data bank
		rtl
;
;
**************************************************
*
* keysched : key schedule
*
* this module takes 64 bits key	and generates
* the sixteen 48-bit keys k(1),k(2),...,k(16)
*
* entry	: none
*
* exit	: none
*
*
**************************************************
keysched				;
		sep	#$30
		LONGA	OFF
		LONGI	OFF

		ldx	#0
key1					;
		stx	des_x		;
		lda	pc1tbl,x
		sta	remainder
		lda	#8
		sta	des_count
key2					;
		dec	des_count
		sec
		lda	remainder
		sbc	#08
		sta	remainder
		beq	key22		;= 0 ?
		bcs	key2		;> 0 ?
;
key22					;
		clc
		lda	remainder
		adc	#8
		sta	remainder
;
		ldx	remainder
		bne	key24		;x = 0 ?
		ldx	#8		;set to	8, if yes
key24					;
		dex
		lda	des_msk,x
		ldy	des_count
		clc
		and	key,y
		beq	key3
		sec
key3					;
		ldx	#$07
key4					;
		rol	des_work1,x
		php
		dex
		bmi	key5
		plp
		bra	key4
;
key5					;
		plp
		ldx	des_x
		inx
		cpx	#56
		bne	key1
;
*
* divide pc1 result into c0/d0
*
		ldx	#0
key6					;
		lda	des_work2,x
		sta	des_cd,x
		inx
		cpx	#7
		bne	key6
;
*
* rotate c and d left by rotate(n) times
*
key9					;
		ldx	#0
keya					;
		stx	des_x		;save #	of times
;
		ldy	#0
keyb					;
		clc
		lda	des_cd		;save left most	bit(cn)
		rol	a
		php
;
		lda	des_msk+3	;save left most	bit(dn)
		clc
		and	des_cd+3
		beq	keyb0
		sec
keyb0					;
		ldx	#6
keyc					;
		rol	des_cd,x
		dex
		bpl	keyc
;
		lda	des_cd+3
		and	#%11101111	;clear right most bit(cn)
		sta	des_cd+3
;
		lda	#0
		plp			;restore left most bit(cn)
		ror	a		;move left most	bit(cn)
		ror	a		;to right most bit(cn)
		ror	a
		ror	a
		ora	des_cd+3
		sta	des_cd+3
;
		ldx	des_x
		iny
		lda	rotat_left,x
		sta	des_temp
		cpy	des_temp
		bne	keyb
;
*
* permutation 2
*
		ldy	#0
keye					;
		sty	des_y		;
		lda	pc2tbl,y
		sta	remainder
		lda	#7		;7 bytes toal for cn+dn
		sta	des_count
keyf					;
		dec	des_count
		sec
		lda	remainder
		sbc	#08
		sta	remainder
		beq	keyf0		;= 0 ?
		bcs	keyf		;> 0 ?
;
keyf0					;
		clc
		lda	remainder
		adc	#8
		sta	remainder
;
		ldx	remainder
		bne	keyf2		;x = 0 ?
		ldx	#8		;set to	8, if yes
keyf2					;
		dex
		lda	des_msk,x
		ldy	des_count
		clc
		and	des_cd,y
		beq	key0
		sec
key0					;
		ldx	#7
key01					;
		rol	des_work1,x
		php
		dex
		bmi	key02
		plp
		bra	key01
;
key02					;
		plp
		ldy	des_y
		iny
		cpy	#48
		bne	keye
;
*
* move result of perm 2	to k(n)
*
		ldx	#0
key03					;
		lda	des_work3,x
		ldy	des_k
		sta	k1,y
		inc	des_k
		inx
		cpx	#6
		bne	key03
;
		ldx	des_x
		inx
		cpx	#16
		beq	key04
		jmp	keya
;
key04		rts
;
;
**************************************************
*
* encode - encryption module
*
* entry	: random1,...,random8
*
* exit	: des_work1,...,des_work8
*
*
**************************************************
encode					;
		sep	#$30
		LONGA	OFF
		LONGI	OFF

		stZ	des_y		;init des_y
;
		ldx	#0
ecd1					;
		stx	des_x		;
		lda	iniptbl,x
		sta	remainder
		lda	#8
		sta	des_count
ecd2					;
		dec	des_count
		sec
		lda	remainder
		sbc	#08
		sta	remainder
		beq	ecd22		;= 0 ?
		bcs	ecd2		;> 0 ?
;
ecd22					;
		clc
		lda	remainder
		adc	#8
		sta	remainder
;
		ldx	remainder
		bne	ecd24		;x = 0 ?
		ldx	#8		;set x to 8, if	yes
ecd24					;
		dex
		lda	des_msk,x
		ldy	des_count
		clc
		and	random,y
		beq	ecd3
		sec
ecd3					;
		ldx	#7
ecd4					;
		rol	des_work1,x
		php
		dex
		bmi	ecd5
		plp
		bra	ecd4
;
ecd5					;
		plp
		ldx	des_x
		inx
		cpx	#64
		bne	ecd1
;
*
* move result of init perm to left/right block
* move 8 times - first 4 bytes = des_l1
*	- second 4 bytes = des_r1
*
		ldx	#0
ecd6					;
		lda	des_work1,x
		sta	des_l1,x
		inx
		cpx	#08
		bne	ecd6
;
*
* perform rn = ln eor f(rn,kn)
* transform right 32 bits into 48 bits
*
		stz	key_x		;initiaiZe k(n)	pointer
		ldx	#0
ecd60					;
		stx	des_x1		;save counter
;
		ldx	#0
ecd65					;
		lda	des_r1,x	;save rn origin	to temp
		sta	des_temp1,x
		inx
		cpx	#4
		bne	ecd65
;
		ldx	#0
ecd7					;
		stx	des_x		;
;
		lda	etbl,x		;perform e function
		sta	remainder
		lda	#4		;4 bytes only
		sta	des_count
ecd8					;
		dec	des_count
		sec
		lda	remainder
		sbc	#08
		sta	remainder
		beq	ecd82		;= 0 ?
		bcs	ecd8		;> 0 ?
;
ecd82					;
		clc
		lda	remainder
		adc	#8
		sta	remainder
;
		ldx	remainder
		bne	ecd84		;x = 0 ?
		ldx	#8		;set x to 8, if	yes
ecd84					;
		dex
		lda	des_msk,x
		ldy	des_count
		clc
		and	des_r1,y
		beq	ecd9
		sec
ecd9					;
		ldx	#5
ecda					;
		rol	des_work3,x
		php
		dex
		bmi	ecdb0
		plp
		bra	ecda
;
ecdb0					;
		plp
		ldx	des_x
		inx
		cpx	#48
		beq	ecdb1
		jmp	ecd7
;
*
* eor with k(48	bits)
*
ecdb1					;
		ldy	#0
ecdb					;
		ldx	key_x		;get current k(n) pointer
		lda	k1,x
		eor	des_work3,y
		sta	des_work3,y
		inx
		stx	key_x		;save pointer for k(n) blocks
		iny
		cpy	#6
		bne	ecdb
;
*
* transform 48 bits into 32 bits s(b1),...,s(bn)
*
		ldx	#0
ecdc					;
		jsr	saddr
		stx	des_temp
		lda	des_work3	;des_work will shift 6 times
		and	#%10000100	;bit 7/2 are row #'s
		bpl	ecdd
		and	#%01111111	;strip out high	bit
		ora	#%00001000	;save high bit to bit 3
ecdd					;
		lsr	a
		lsr	a
		tax			;save row #
					;
		lda	des_work3
		and	#%01111000	;bit 6-3 are column #'s
		lsr	a
		lsr	a
		lsr	a		;column	# in acc now
					;
ecde					;
		cpx	#0
		beq	ecdf
		clc
		adc	#16		;find s	tbl pointer
		dex			;decrement row #
		bra	ecde
;
ecdf					;
		tay
		lda	s1,y
		asl	a		;shift result to high byte
		asl	a
		asl	a
		asl	a
;
*
* move result to des_r1
*
		ldy	#4
ecd10					;
		rol	a
		ldx	#3
ecd11					;
		rol	des_temp2,x
		php
		dex
		bmi	ecd110
		plp
		bra	ecd11
;
ecd110					;
		plp
		dey
		bne	ecd10
;
*
* shift	des_work left 6	more times
*
		ldy	#6
ecd12					;
		ldx	#5
ecd13					;
		rol	des_work3,x
		dex
		bpl	ecd13
		dey
		bne	ecd12
;
*
* 8 times already?
*
		ldx	des_temp
		inx
		cpx	#8
		beq	ptbl0
		jmp	ecdc		;do next s tbl
;
*
* perform 32 bits permutation
* use ptbl
*
ptbl0					;
		ldx	#0
ptbl1					;
		stx	des_x2
		lda	ptbl,x
		sta	remainder
		lda	#4
		sta	des_count
ptbl2					;
		dec	des_count
		sec
		lda	remainder
		sbc	#08
		sta	remainder
		beq	ptbl22		;= 0 ?
		bcs	ptbl2		;> 0 ?
;
ptbl22					;
		clc
		lda	remainder
		adc	#8
		sta	remainder
;
		ldx	remainder
		bne	ptbl24		;x = 0 ?
		ldx	#8		;set to	8, if yes
ptbl24					;
		dex
		lda	des_msk,x
		ldy	des_count
		clc
		and	des_temp2,y
		beq	ptbl3
		sec
ptbl3					;
		ldx	#3
ptbl4					;
		rol	des_r1,x
		php
		dex
		bmi	ptbl5
		plp
		bra	ptbl4
;
ptbl5					;
		plp
		ldx	des_x2
		inx
		cpx	#32
		bne	ptbl1
;
;
*
* exclusive or with left block
* perform function = ln	eor f(rn,kn)
*
		ldx	#0
ecd112					;
		lda	des_r1,x	;load rn
		eor	des_l1,x	;eor with ln
		sta	des_r1,x	;save result to	rn
		inx
		cpx	#4
		bne	ecd112
;
		ldx	#0
ecd115					;
		lda	des_temp1,x	;move rn origin	to ln
		sta	des_l1,x
		inx
		cpx	#4
		bne	ecd115
;
*
* 16 times already?
*
		ldx	des_x1
		inx
		cpx	#16
		beq	ecd140
		jmp	ecd60		;yes, go back
;
*
* perform inverse permutation
*
ecd140					;

		jsr	swap		;swap left and right halves

		ldx	#0
ecd14					;
		stx	des_x		;
		lda	invptbl,x
		sta	remainder
		lda	#8
		sta	des_count
ecd15					;
		dec	des_count
		sec
		lda	remainder
		sbc	#08
		sta	remainder
		beq	ecd152		;= 0 ?
		bcs	ecd15		;> 0 ?
;
ecd152					;
		clc
		lda	remainder
		adc	#8
		sta	remainder
;
		ldx	remainder
		bne	ecd154		;x = 0 ?
		ldx	#8		;set x to 8, if	yes
ecd154					;
		dex
		lda	des_msk,x
		ldy	des_count
		clc
		and	des_l1,y
		beq	ecd16
		sec
ecd16					;
		ldx	#7
ecd17					;
		rol	des_work1,x
		php
		dex
		bmi	ecd18
		plp
		bra	ecd17
;
ecd18					;
		plp
		ldx	des_x
		inx
		cpx	#64
		bne	ecd14
;
		rts			;end of	des modules
;

swap					;					;switch	des_l1 and des_r1

		ldx	#3
swap1		lda	des_l1,x
		pha
		lda	des_r1,x
		sta	des_l1,x
		pla
		sta	des_r1,x
		dex
		bpl	swap1
		rts
					;
*
* increment s table pointer
*
*	x = s# (0-7)
*
saddr
		clc
		lda	#s1
		adc	tab64l,x
		sta	ecdf+2
		lda	#>s1
		adc	tab64h,x
		sta	ecdf+3
		rts

saveZp0		dc.b	0,0,0,0,0,0,0,0
;
tab64l		dc.b	0,64,128,192,0,64,128,192
tab64h		dc.b	0,0,0,0,1,1,1,1
;
;
**************************************************
*
* des data area
*
**************************************************
;
;
iniptbl		dc.b	7,15,23,31,39,47,55,63
		dc.b	5,13,21,29,37,45,53,61
		dc.b	3,11,19,27,35,43,51,59
		dc.b	1,9,17,25,33,41,49,57
		dc.b	8,16,24,32,40,48,56,64
		dc.b	6,14,22,30,38,46,54,62
		dc.b	4,12,20,28,36,44,52,60
		dc.b	2,10,18,26,34,42,50,58
;
invptbl		dc.b	25,57,17,49,9,41,1,33
		dc.b	26,58,18,50,10,42,2,34
		dc.b	27,59,19,51,11,43,3,35
		dc.b	28,60,20,52,12,44,4,36
		dc.b	29,61,21,53,13,45,5,37
		dc.b	30,62,22,54,14,46,6,38
		dc.b	31,63,23,55,15,47,7,39
		dc.b	32,64,24,56,16,48,8,40
;
etbl		dc.b	1,32,31,30,29,28
		dc.b	29,28,27,26,25,24
		dc.b	25,24,23,22,21,20
		dc.b	21,20,19,18,17,16
		dc.b	17,16,15,14,13,12
		dc.b	13,12,11,10,9,8
		dc.b	9,8,7,6,5,4
		dc.b	5,4,3,2,1,32
;
pc1tbl		dc.b	8,16,24,32,40,48,56
		dc.b	64,7,15,23,31,39,47
		dc.b	55,63,6,14,22,30,38
		dc.b	46,54,62,5,13,21,29
		dc.b	2,10,18,26,34,42,50
		dc.b	58,3,11,19,27,35,43
		dc.b	51,59,4,12,20,28,36
		dc.b	44,52,60,37,45,53,61
;
;convert from des algorithm
;base 56
pc2tbl		dc.b	43,40,46,33,56,52,54,29
		dc.b	42,51,36,47,34,38,45,53
		dc.b	31,49,41,50,30,37,44,55
		dc.b	16,5,26,20,10,2,27,17
		dc.b	6,12,24,9,13,8,18,1
		dc.b	23,4,11,15,7,21,28,25
;
ptbl		dc.b	17,26,13,12,4,21,5,16
		dc.b	32,18,10,7,28,15,2,23
		dc.b	31,25,9,19,1,6,30,24
		dc.b	14,20,3,27,11,22,29,8
;
s1		dc.b	14,4,13,1,2,15,11,8
		dc.b	3,10,6,12,5,9,0,7
		dc.b	0,15,7,4,14,2,13,1
		dc.b	10,6,12,11,9,5,3,8
		dc.b	4,1,14,8,13,6,2,11
		dc.b	15,12,9,7,3,10,5,0
		dc.b	15,12,8,2,4,9,1,7
		dc.b	5,11,3,14,10,0,6,13
;
s2		dc.b	15,1,8,14,6,11,3,4
		dc.b	9,7,2,13,12,0,5,10
		dc.b	3,13,4,7,15,2,8,14
		dc.b	12,0,1,10,6,9,11,5
		dc.b	0,14,7,11,10,4,13,1
		dc.b	5,8,12,6,9,3,2,15
		dc.b	13,8,10,1,3,15,4,2
		dc.b	11,6,7,12,0,5,14,9
;
s3		dc.b	10,0,9,14,6,3,15,5
		dc.b	1,13,12,7,11,4,2,8
		dc.b	13,7,0,9,3,4,6,10
		dc.b	2,8,5,14,12,11,15,1
		dc.b	13,6,4,9,8,15,3,0
		dc.b	11,1,2,12,5,10,14,7
		dc.b	1,10,13,0,6,9,8,7
		dc.b	4,15,14,3,11,5,2,12
					;
s4		dc.b	7,13,14,3,0,6,9,10
		dc.b	1,2,8,5,11,12,4,15
		dc.b	13,8,11,5,6,15,0,3
		dc.b	4,7,2,12,1,10,14,9
		dc.b	10,6,9,0,12,11,7,13
		dc.b	15,1,3,14,5,2,8,4
		dc.b	3,15,0,6,10,1,13,8
		dc.b	9,4,5,11,12,7,2,14
					;
s5		dc.b	2,12,4,1,7,10,11,6
		dc.b	8,5,3,15,13,0,14,9
		dc.b	14,11,2,12,4,7,13,1
		dc.b	5,0,15,10,3,9,8,6
		dc.b	4,2,1,11,10,13,7,8
		dc.b	15,9,12,5,6,3,0,14
		dc.b	11,8,12,7,1,14,2,13
		dc.b	6,15,0,9,10,4,5,3
					;
s6		dc.b	12,1,10,15,9,2,6,8
		dc.b	0,13,3,4,14,7,5,11
		dc.b	10,15,4,2,7,12,9,5
		dc.b	6,1,13,14,0,11,3,8
		dc.b	9,14,15,5,2,8,12,3
		dc.b	7,0,4,10,1,13,11,6
		dc.b	4,3,2,12,9,5,15,10
		dc.b	11,14,1,7,6,0,8,13
;
s7		dc.b	4,11,2,14,15,0,8,13
		dc.b	3,12,9,7,5,10,6,1
		dc.b	13,0,11,7,4,9,1,10
		dc.b	14,3,5,12,2,15,8,6
		dc.b	1,4,11,13,12,3,7,14
		dc.b	10,15,6,8,0,5,9,2
		dc.b	6,11,13,8,1,4,10,7
		dc.b	9,5,0,15,14,2,3,12
;
s8		dc.b	13,2,8,4,6,15,11,1
		dc.b	10,9,3,14,5,0,12,7
		dc.b	1,15,13,8,10,3,7,4
		dc.b	12,5,6,11,0,14,9,2
		dc.b	7,11,4,1,9,12,14,2
		dc.b	0,6,10,13,15,3,5,8
		dc.b	2,1,14,7,4,10,8,13
		dc.b	15,12,9,0,3,5,6,11
;
des_msk		dc.b	1
		dc.b	2
		dc.b	4
		dc.b	8
		dc.b	16
		dc.b	32
		dc.b	64
		dc.b	128
;
key		ds.b	8
;
random		ds.b	8
;
des_work1	dc.b	0
des_work2	dc.b	0
des_work3	dc.b	0
des_work4	dc.b	0
des_work5	dc.b	0
des_work6	dc.b	0
des_work7	dc.b	0
des_work8	dc.b	0
;
des_count	dc.b	0
remainder	dc.b	0
key_x		dc.b	0
des_x		dc.b	0
des_x1		dc.b	0
des_x2		dc.b	0
des_y		dc.b	0
des_k		dc.b	0
des_temp	dc.b	0
des_temp1	ds.b	4
des_temp2	ds.b	4
;
des_l1		ds.b	4
des_r1		ds.b	4
;
des_cd		ds.b	7
;
k1		ds.b	6
k2		ds.b	6
k3		ds.b	6
k4		ds.b	6
k5		ds.b	6
k6		ds.b	6
k7		ds.b	6
k8		ds.b	6
k9		ds.b	6
k10		ds.b	6
k11		ds.b	6
k12		ds.b	6
k13		ds.b	6
k14		ds.b	6
k15		ds.b	6
k16		ds.b	6
;
rotat_left	dc.b	1,1,2,2,2,2,2,2
		dc.b	1,2,2,2,2,2,2,1
;
;
;
;
		endwith
		ENDP
		END

\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/AppleShareCDEV/MakeFile b/IIGS.601.SRC/A.U.G/CtlPanel/AppleShareCDEV/MakeFile
new file mode 100644
index 0000000..eb3f262
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/AppleShareCDEV/MakeFile
@@ -0,0 +1 @@
+######################################################################
#
# This MakeFile contains the build rules for the new and improved
# Assembly AppleShare CDEV.
#
#
# by Mark Day
#
# Modification History:
# 23-Jul-91	MSD	First try
# 10-Sep-91	MSD	Added a new source file: AutoLogon.aii
# 20-Sep-91	MSD	Added new shell variables to control listings
#			and debugging code/symbols.
#
######################################################################




######################################################################
#
#	You can set the values of the following variables to
#	control the generation of listings and whether symbols
#	will be imbedded in the code.  You can either set a shell
#	variable and export it, or define them on the command line.
#
#  ASCDEVListFlag	"-l" to generate listings, empty otherwise
#  ASCDEVSymFlag	1 to generate debugging symbols and code
#
######################################################################





######################################################################
#
#	The AppleShare file itself
#
######################################################################

AppleShare		Ä	AppleShare.code AppleShare.r
	RezIIGS AppleShare.r -o AppleShare -t "C7  " -c "pdos"


######################################################################
#
#	The AppleShare code resource
#
######################################################################

AppleShare.code		Ä	AppleShare.aii.obj AutoLogon.aii.obj globals.aii.obj DES.aii.obj
	linkiigs -x -lseg:$1000 AppleShare ¶
		AppleShare.aii.obj ¶
		AutoLogon.aii.obj ¶
		globals.aii.obj ¶
		DES.aii.obj ¶
		-o AppleShare.code ¶
		{ASCDEVListFlag} > AppleShare.map




######################################################################
#
#	The individual source/object files
#
######################################################################

AppleShare.aii.obj	Ä	AppleShare.aii AppleShareEqu.aii
	AsmIIGS -d DebugSymbols=0{ASCDEVSymFlag} {ASCDEVListFlag} AppleShare.aii

AutoLogon.aii.obj	Ä	AutoLogon.aii AppleShareEqu.aii
	AsmIIGS -d DebugSymbols=0{ASCDEVSymFlag} {ASCDEVListFlag} AutoLogon.aii

globals.aii.obj		Ä	globals.aii AppleShareEqu.aii
	AsmIIGS -d DebugSymbols=0{ASCDEVSymFlag} {ASCDEVListFlag} globals.aii

DES.aii.obj		Ä	DES.aii
	AsmIIGS -d DebugSymbols=0{ASCDEVSymFlag} {ASCDEVListFlag} DES.aii
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/AppleShareCDEV/globals.aii b/IIGS.601.SRC/A.U.G/CtlPanel/AppleShareCDEV/globals.aii
new file mode 100644
index 0000000..2cfb0b6
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/AppleShareCDEV/globals.aii
@@ -0,0 +1 @@
+;======================================================================
;
;			Globals.aii
;
; This file contains the global data used by the CDEV that must be
; imbedded in the CDEV itself.
;
; 26-Aug-91 MSD	Changed the FILogin record to be an FILogin2 call.
; 23-Sep-91 MSD	Added new variable, saveNameOnly.  If the high bit is
;		set, then SelectVols should default to Save My Name Only.
; 4-Mar-93 DAL	Added AFPVersion21 and hasAFP21.
;======================================================================

		print	push,off
		include	'E16.Control'
		include	'AppleShareEqu.aii'
		print	pop
		
		export	(myID,myWindow,connWindow,setPassWind):data
		export	(lastWhen,lastWhere,dblClick,lastZone):data
		export	(zoneMembers,zoneListH):data
		export	(GMZBuffer):data
		export	(srvrListSize,srvrMembers,srvrListH):data
		export	(taskRecord,userName,oldUserName):data
		export	(windOrigin,volWindow,cryptKey):data
		export	(volListH,volMembers):data
		export	(norMask,dimMask,serverAddress):data
		export	(whichWindow,whichControl):data
		export	(whichPt,vOffset,itemNum):data
		export	(checkBoxH,checkRect):data
		export	(vpWindow,checkCount):data
		export	(selectedUAM,serverPassword):data
		export	(wereHosed,messageHandle):data
		
		
		
myID		dc.w	0		; my Memory Manager user ID
myWindow	dc.l	0		; will put my GrafPort here
wereHosed	dc.w	0		; non-zero if fatal error

messageHandle	dc.l	0		; handle to message center data

lastWhen	dc.l	0		; time of last mousedown
lastWhere	dc.l	0		; last mousedown point (v,h)
		
dblClick	dc.w	0		; non-zero if we detected a double-click
lastZone	dc.w	0		; item number of last zone selected

zoneMembers	dc.l	0		; handle to member array of zone list
zoneListH	dc.l	0		; handle to zone list control
srvrMembers	dc.l	0		; handle to server list member array
srvrListH	dc.l	0		; handle to server list control
srvrListSize	dc.w	0		; number of items in server list
volListH	dc.l	0		; handle to volume list control
volMembers	dc.l	0		; handle to volume list member array


ATGetInfo	record	export
		dc.b	0,2
		dc.w	0
		dc.l	0		; completion routine return address
		dc.w	0		; thisNet
		dc.b	0		; aBridge
		dc.b	0		; hardwareID
		dc.w	0		; romVers
		dc.b	0		; node number
		endr

GZL2		record	export
		dc.b	0,$3C		; sync GetZoneList2
		dc.w	0		; result
		dc.l	0		; completion routine
		dc.w	ZoneBufSize	; buffer size
		dc.l	0		; buffer pointer
		dc.w	1		; start index
		dc.b	4,2		; retry count,interval
		dc.w	0		; number of zones returned
		dc.l	0		; zipWork (set to 0 on first call)
		dc.l	0		; reserved
		endr

GMZBuffer	dcb.b	33,0		; my zone will be returned here
GetMyZone	record	export
		dc.b	0,$1A		; sync GetMyZone
		dc.w	0		; result
		dc.l	0		; completion routine
		dc.l	GMZBuffer	; buffer pointer
		dc.b	2,4		; retry interval,count
		dc.l	0		; reserved
		endr

LookupEntity	record	export
		export	(LookupType,LookupZone):data
		pstr	'='		; any object
LookupType	pstr	'AFPServer'	; type server
LookupZone	dcb.b	34,0		; room for zone name plus 1 extra
					; byte to make it even length
		endr
		
LookupName	record	export
		dc.b	$80,$10		; async LookupName
		dc.w	0		; result
		dc.l	0		; completion routine
		dc.l	LookupEntity	; entity
		dc.b	4,$FF		; retry 255 seconds, every second
		dc.w	0		; reserved
		dc.w	SrvrBufSize	; buffer length
		dc.l	0		; buffer pointer
		dc.b	$FF		; max of 255 matches
		dc.b	0		; actual matches
		endr

NBPKill		record	export
		dc.b	0,$46		; sync NBPKill
		dc.w	0		; result
		dc.l	LookupName	; param block pointer
		endr

		
windOrigin	dc.l	0
connWindow	dc.l	0		; Connect as... window pointer
volWindow	dc.l	0		; volume list window pointer
vpWindow	dc.l	0		; volume password dialog
setPassWind	dc.l	0		; set password dialog


taskRecord	ds	ExtTaskRec
whichWindow	dc.l	0		; result from FindWindow
whichControl	dc.l	0		; result from FindControl
whichPt		dc.l	0		; point during event hook
vOffset		dc.w	0		; offset from top of list in pixels
itemNum		dc.w	0		; item number in list
checkBoxH	dc.l	0		; handle to check box control
checkRect	dc.w	0,0,0,0		; rectangle where check boxes live
checkCount	dc.w	0		; number of checkboxes checked

serverAddress	dc.l	0		; address of server we're connecting to
selectedUAM	dc.w	0		; 0 = cancelled, 1 = Guest,
					; 2 = ClearText, 3 = RandNumExchange
userName	ds.b	34		; Str32 and terminating zero byte
oldUserName	ds.b	34
serverPassword	ds.b	10		; 8 bytes plus length and zero byte

subText		record	export
		dc.l	0		; point to "*0" (server name)
		dc.l	userName	; for *1
		dc.l	0		; fill in with pointer to volume name
		endr

cryptKey	dc.b	$5A,$2F,$42,$2B,$E2,$34,$BA,$5D

dimMask		DC.B	$55,$AA,$55,$AA,$55,$AA,$55,$AA
norMask		DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF

checkBoxTempl	record	export
		dc.w	8		; pCount
		dc.l	100		; control ID
		dc.w	0,0,0,0		; bounding rectangle
		dc.l	$82000000	; procRef
		dc.w	0		; flags, control visible
		dc.w	fCtlProcRefNotPtr ; more flags, fCtlProcRefNotPtr
		dc.l	0		; refcon
		dc.l	emptyPStr	; title reference
		dc.w	0		; initial value
emptyPStr	dc.b	0		; empty Pascal string
		endr

FSTInfo		record	export
		dc.w	2		; only fstNum and fileSysID
		dc.w	0		; fstNum
		dc.w	0		; fileSysID
		endr

GetUserPath	record	export
		dc.w	3
		dc.w	$D		; AppleShare FST ID
		dc.w	8		; get user path command
		dc.l	0		; prefix pointer returned here
		endr

CreateGS	record	export
		import	Path
		dc.w	4
		dc.l	Path
		dc.w	$00C3		; access: everything
		dc.w	$00E2		; file type = AppleTalk data file
		dc.l	0		; auxtype
		endr

OpenGS		record	export
		import	Path
		dc.w	3		; through requestAccess
		dc.w	0		; refnum returned here
		dc.l	Path
		dc.w	1		; only want to read
		endr

GetEOFGS	record	export
		dc.w	2
		dc.w	0		; refnum
		dc.l	0		; EOF returned here
		endr

SetMarkGS	record	export
		dc.w	3
		dc.w	0		; refnum
		dc.w	1		; base = EOF - displacement
		dc.l	133		; offset for ATInit name
		endr

ReadGS		record	export
		dc.w	4
		dc.w	0		; refnum
		dc.l	userName	; buffer
		dc.l	33		; request count
		dc.l	0		; actual transfer count returned here
		endr

CloseGS		record	export
		dc.w	1
		dc.w	0		; refnum
		endr

;======================================================================
;
; Data structures used to actually log on and mount volumes.
;
;======================================================================

cmdBufSize	equ	512
replyBufSize	equ	512

		export	(cmdBuf,replyBuf):data
cmdBuf		ds.b	cmdBufSize
replyBuf	ds.b	replyBufSize

; This is actually an FILogin2 parameter block... (26-Aug-91 MSD)
FILogin		record	export
		dc.b	0,$38		; sync FILogin2
		dc.w	0
		dc.l	0		; put internet address here
		dc.w	cmdBufSize
		dc.l	cmdBuf
		dc.w	replyBufSize
		dc.l	replyBuf
		dc.b	0		; sessRefNum returned here
		dc.l	0		; use default attention routine
		dc.l	0		; pointer to server name
		dc.l	LookupZone	; pointer to zone name
		dc.w	$0200		; AFP version 2.0 or 2.1 (modified)
		endr

FILoginCont	record	export
		dc.b	0,$2C
		dc.w	0
		dc.b	0		; put sessRefNum here
		dc.w	12		; FPLoginCont command size
		dc.l	cmdBuf
		dc.w	replyBufSize
		dc.l	replyBuf
		endr

FIMountVol	record	export
		import	(volPath,volPassword):data
		dc.b	0,$2E
		dc.w	0
		dc.b	0		; put sessRefNum here
		dc.b	0		; put mount flag here
		dc.l	volPath		; put pointer to volume pathname here
		dc.w	0		; volID returned here
		dc.b	0		; unitNum returned here
		dc.l	volPassword+1	; put pointer to volume password here
		endr

FIAccess	record	export
		import	volPath:data
		dc.b	0,$32
		dc.w	0
		dc.b	0		; put flags here (0=get rights only)
		dc.l	0		; access rights set or returned here
		dc.l	volPath		; path pointer
		dc.l	0		; creator pointer
		dc.l	0		; group pointer
		endr
		
FILogout	record	export
		dc.b	0,$2D
		dc.w	0
		dc.b	0		; put sessRefNum here
		dc.b	0		; extra byte so I can store a word
		endr

SPGetStatus	record	export
		dc.b	0,$1D
		dc.w	0
		dc.l	0
		dc.l	0		; put server internet address here
		dc.w	replyBufSize
		dc.l	replyBuf
		dc.w	0		; actual length returned here
		endr

SPCommand	record	export
		dc.b	0,$20
		dc.w	0
		dc.l	0
		dc.b	0		; put sessRefNum here
		dc.w	0		; put command length here
		dc.l	cmdBuf
		dc.w	replyBufSize
		dc.l	replyBuf
		dc.l	0		; AFP result returned here
		dc.w	0		; actual reply length returned here
		endr
		
GetSrvrParms	record	export
		dc.b	0,$20		; really an SPCommand
		dc.w	0
		dc.l	0
		dc.b	0		; put sessRefNum here
		dc.w	1		; FPGetSrvrParms is only 1 byte
		dc.l	getSrvrParmsCmd	; point to this command only
		dc.w	VolBufSize
		dc.l	0		; put volume buffer pointer here
		dc.l	0		; AFP result returned here
		dc.w	0		; actual reply length returned here
		
getSrvrParmsCmd	dc.b	FPGetSrvrParms	; command packet
		endr
		
		export	(GuestUAM,ClearTextUAM,ScrambledUAM,AFPVersion20,AFPVersion21):data
GuestUAM	pstr	'No User Authent'
ClearTextUAM	pstr	'Cleartxt passwrd'
ScrambledUAM	pstr	'Randnum exchange'
AFPVersion20	pstr	'AFPVersion 2.0'
AFPVersion21	pstr	'AFPVersion 2.1'	;added 4-Mar-93 DAL

		export	(hasGuest,hasClearText,hasScrambled,hasChgPwd):data
hasGuest	dc.w	0		; non-zero if Guest supported
hasClearText	dc.w	0		; non-zero if ClearText supported
hasScrambled	dc.w	0		; non-zero if Randnum Exchange supported
hasChgPwd	dc.w	0		; non-zero if Set Password supported

		export	(hasAFP20,hasAFP21,alreadyConn,mountFlag):data
hasAFP20	dc.w	0		; non-zero if AFP 2.0 supported
hasAFP21	dc.w	0		; non-zero if AFP 2.1 supported (added 4-Mar-93 DAL)
alreadyConn	dc.w	0		; non-zero if already connected
mountFlag	dc.w	0		; mount flag for FIMountVol

		export	(numVols,volPassword,volPath,volsMounted):data
numVols		dc.w	0		; number of volumes in list
volPassword	ds.b	10		; zero-terminated PString
volPath		ds.b	34		; 31 chars+slash+length byte
volsMounted	dc.w	0		; non-zero if volumes already mounted

		export	(SystemSetup,SetupFolder,ATInit,ASharePrep,Path):data
SystemSetup	gstr	'*:System:System.Setup:'
SetupFolder	gstr	':Setup:'
ATInit		gstr	'ATInit'
ASharePrep	gstr	'AppleShare.Prep'
Path		ds.b	80		; maximum length should be 74 bytes


		export	emptyStr:data
emptyStr	dc.b	0		; empty Pascal string

		export	(prepHandle,serverInfo,volInfo,prepChange,prepDirty,serverCount):data
prepHandle	dc.l	0		; handle to AppleShare.Prep data
serverInfo	ds	ServerInfoRec
volInfo		ds	VolumeInfoRec
prepChange	dc.w	0		; non-zero if AppleShare.Prep info changed for this server
prepDirty	dc.w	0		; non-zero if AppleShare.Prep needs to be written
serverCount	dc.w	0		; number of servers in AppleShare.Prep

		export	saveNameOnly:data
saveNameOnly	dc.w	0

		end
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/BuildEverything b/IIGS.601.SRC/A.U.G/CtlPanel/BuildEverything
new file mode 100644
index 0000000..ed7d4fa
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/BuildEverything
@@ -0,0 +1 @@
+#
# BuildAll {Parmeters}
#
# This builds the 10 cDevs that Darryl builds, the control panel
# NDA and and CDEVINIT.
#
# All options are passed on the BuildProgram script.
#
##################################################################


# The following code permits this script to be executed from
#   anywhere, and for subsidiary scripts to do anything they
#   want to the directory prefixes without messing up the
#   overall build.
# CRUCIAL ASSUMPTION: All subdirectories containing control panel
#   source are in the directory containing this script file.
# Jim Merritt thanks Jim Mensch for digging up the regular expression
#   in the evaluate command below, and John Dance for supplying
#   a foolproof way for a shellscript to come up with its own full
#   pathname.  Wotta great bunch of guys!

set myparent `files -f {Command}`
(evaluate "{myparent}" =~ /(([Â:]*:)+)¨1[Â:]*/ ) > Dev:Null
set myparent "{¨1}"
IF "{myparent}" == ""
  echo "*** ERROR:  Cannot determine script home directory."
  exit
END


#
# Copy our special files into PiigsInclude
#

directory {myparent}CtlPanelIntfs:
duplicate  -y CDEVMgr.pii ¶
		  CDEVMgrData.aii ¶
		  NewInterface.pii ¶
		  ResMgr.pii ¶
		  {PIIGSInclude}

directory {myparent}CtlPanelNDA:
BuildProgram {Parameters} CtlPanel.NDA
#directory {myparent}CDEV.INIT:
#BuildProgram {Parameters} CDEV.Init
directory {myparent}MonitorCDEV:
BuildProgram {Parameters} Monitor
directory {myparent}RamDiskCDEV:
BuildProgram {Parameters} RAMDisk
directory {myparent}KeyboardCDEV:
BuildProgram {Parameters} Keyboard
directory {myparent}GeneralCDEV:
BuildProgram {Parameters} General
directory {myparent}SoundCDEV:
BuildProgram {Parameters} Sound
directory {myparent}PrinterCDEV:
BuildProgram {Parameters} Printer
directory {myparent}TimeCDEV:
BuildProgram {Parameters} Time
directory {myparent}ModemCDEV:
BuildProgram {Parameters} Modem
directory {myparent}SlotsCDEV:
BuildProgram {Parameters} Slots
directory {myparent}DirectConnectCDEV
BuildProgram {Parameters} DirectConnect
directory {myparent}AppleShareCDEV
BuildProgram {Parameters} AppleShare

directory {myparent}NetPrinterCDEV
BuildProgram {Parameters} NetPrinter
directory {myparent}NamerCDEV
BuildProgram {Parameters} Namer
directory {myparent}MIDICDEV
BuildProgram {Parameters} Midi
directory {myparent}SetStartCDev
Echo "# `Date -t` --- This is actually building SetStart!"
BuildProgram All
directory {myparent}FolderPrivCDEV
BuildProgram {Parameters} FolderPriv
Directory {MyParent}NetWorkCDev
BuildProgram {Parameters} NetWork
Directory {MyParent}SoundCDev:Sounds
BuildProgram {Parameters} Sounds

directory {myparent}
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/CtlPanelIntfs/CDEVMgr.pii b/IIGS.601.SRC/A.U.G/CtlPanel/CtlPanelIntfs/CDEVMgr.pii
new file mode 100644
index 0000000..858cdb5
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/CtlPanelIntfs/CDEVMgr.pii
@@ -0,0 +1 @@
+{$toolErrorchk-}
{$a+}
{$longGlobals+}

unit CDEVMGR;

interface

uses
  QDIntf, GSIntf, MiscTools, Prodos16, RESMgr;

const
  machineCDEV = 	1; { called when rebuilding cdev.data to see if cdev should be included }
  BootCDEV = 		2; { boot time init call or install call - no params}
  ShutDownCDEV = 	3; { reserved for future use}
  InitCDEV = 		4; { called when being shown - data1 = windowPtr}
  CloseCDEV = 		5; { called when being removed - data1 = windowPtr}
  EventsCDEV = 		6; { called when an event - data1 = ptr to event record}
  CreateCDEV = 		7; { called so that CDEV can create its controls inline - data1 = window}
  AboutCDEV =		8; { called so that CDEV can create its about text inline - no params}
  RectCDEV =	 	9; { called so that CDEV can dynamically compute its rectangle}
  HitCDEV =			10;{ called when ctl is "hit" - data1 = Hdl to Ctl hit, data2 = Ctl Id}
  RunCDEV =			11;{ caled when da run is called}
  reserved1 =		12;{ reserved for future use}
  reserved2 =		13;{ reserved for future use}
  reserved3 =		14;{ reserved for future use}
  NeverUsed1 =		15;{ this will never be used}
  NeverUsed2 =		16;{ this will never be used}
  
  { wantReserved0 =	1; }
  wantMachine =		1;
  wantBoot =		2;
  wantShutDown =	4;
  wantInit =		8;
  wantClose =		16;
  wantEvents =		32;
  wantCreate =		64;
  wantAbout =		128;
  wantRect =		256;
  wantHit =			512;
  wantRun =			1024;
  wantReserved1 =	2048;
  wantReserved2 =	4096;
  wantReserved3 =	8192;
  updateSSfromBRAM= 16384;
  CanBeUnActive =	32768;
  
  CDEV_ResType = $8018;
  FLAG_ResType = $8019;
  TwoRect_ResType = $801A;
  rCodeResource = $8017;
  
  CDEV_FileType = $C7;
  CDEV_AuxType = 0;
  
  CDEVDATA_FileType = $00;
  CDEVDATA_AuxType = $00;
  
  fCtlActive = $8000;
  fCtlCanBeActive = $4000;
  fCtlWantEvents = $2000;
  fCtlProcRefNotPtr = $1000;
  
  type
    str32 = string[32];
  	str15 = string[15];
	str8 = string[8];

    FlagsHdl = ^FlagsPtr; 
	FlagsPtr = ^FlagsRec;
	FlagsRec = packed record
	  CDEVFlags : Integer;		{ messages we respond to & Flags}
	  Enabled : boolean;		{ are we enabled?}
	  Version : byte; 			{ version # of the control panel it works with 1 = 1.0}
	  Machine : byte;			{ what machine do we need to be run  0,1 = old GS; 2 = tenspeed}
	  Reserved : byte;			{ reserved byte}
	  DataRect : Rect;			{ really the width & height; top, left = 0}
	  name : str15;				{ name of the CDEV, upper/lower case}
	  author : str32;			{ name of the author}
	  versStr : str8;			{ version of the CDEV}
	end;
	
	IconHdl = ^IconPtr;
	IconPtr = ^IconRec;
	IconRec = packed record
	  kind : Integer;  { always -1 = color}
	  size : Integer;  { always 280}
	  height : Integer;{ always 20}
	  width : Integer; { always 28}
	  image : packed array[0..19,0..13] of byte;
	  mask : packed array[0..19,0..13] of byte;
	end;
		
	CDEVFake = ^CDEV;
    CDEV = record
	  path : str255;	{ full path, including file name of the CDEV}
	  flags : FlagsRec;	{ flags from above}
	  icon : IconRec;	{ icon from above}
	  reserved : array[1..4] of integer;
	end;
	
	CDEVHeader = record
	  identifier : Integer; { identifier, 'DL'}
	  version : Integer;	{ should be 1}
	  lastMachine : Integer;{ last machine this was run on}
	  Count : integer;		{ # of CDEV's below}
	  reserved : array[1..4] of longint; { reserved for future use}
	end;
	
	CDEVArray = array[1..1] of CDEV;
	
	CDEVHdl = ^CDEVPtr;
	CDEVPtr = ^CDEVRec;
	CDEVRec = record
	  header : CDEVHeader; { header from above}
	  CDEVS : CDEVArray;   { the CDEV's}
	end;

	DITLHdl = ^DITLPtr;
	DITLPtr = ^DITLRec;
	DITLRec = record
	  theRefs : array[1..1] of longint;
	end;

	SavePosHdl = ^SavePosPtr;
	SavePosPtr = ^SavePosRec;
	SavePosRec = record
	  rect320 : Rect;
	  rect640 : Rect;
	end;

function GetAndUpdateCDEVS : CDEVHdl;
function UpperString(s : str255) : str255;
procedure QuickSort(i,j : Integer; var A : CDEVArray);

implementation
function  GetCodeResConverter : Ptr; tool $3, $34;
function  Disp(message : Integer; data1, data2 : Longint; thecode : ptr) : Longint; external;

procedure die; inline $00;
 
function GetAndUpdateCDEVS : CDEVHdl;
  type
    weirdness = record
	  buffsize : integer;
	  resultsize : integer;
	  result : packed array[1..128] of char;
	end;
  var
    p: P16ParamBlk;
	dirDate, dirTime : Integer;
	index, i  : integer;
	fileID : Integer;
	DataHandle : CDEVHdl;
	newSize : Longint;
	flagH : FlagsHdl;
	IconH : IconHdl;
    CDEVDataPtr : StringPtr;
    CDEVDirPtr : StringPtr;
	pascalName : string[128];
	savePrefix : string[128];
	CDEVDataPath : string[32];
    CDEVDirPath : string[32];
	currentName : weirdness;
	dummy : Ptr;
	Atemp,XTemp,YTemp,PTemp : integer;
	scr : longint;
	currCDEVCode : Ptr;
	tempHdl : Handle;

  label 1,2;
  
  begin
	FWEntry(Atemp,XTemp,YTemp,PTemp,$FE1F); {ytemp holds the machine rom #}
    CDEVDataPath := '*/SYSTEM/CDEVS/CDEV.DATA';
    CDEVDirPath := '*/SYSTEM/CDEVS';
    CDEVDataPtr := @CDEVDataPath;
    CDEVDirPtr := @CDEVDirPath;
    GetAndUpdateCDEVS := nil;
    currentName.buffSize := 128;
    { first, try to find the CDEV's folder, it if is not there, exit}
	p.pathname1 := CDEVDirPtr;
	
	P16GetFileInfo(p);
	if isToolError then
	  begin
	    DataHandle := nil; { the directory didn't exist - return nil handle!}
		goto 2;
	  end
	else
	  begin
	    dirDate := p.modDate;
		dirTime := p.modTime;
	    { second, try to find the CDEV.DATA file, if it is not there or it
	      has a older mod date than the directory, rebuild it.  If the directory
	      is write protected ???? SHIT, WHAT DO I DO ????}
	    p.pathname1 := CDEVDataPtr;
		
	    P16GetFileInfo(p);

		if (not isToolError) and ((dirDate + dirTime) = (p.ModDate + p.ModTime)) then
		  begin {we dont need to re-build the file - just read it!}
		    p.pathname2 := CDEVDataPtr;
  			P16Open(p);
  			P16GetEOF(p);
  			p.requestCount := p.eof;
  			Datahandle := CDEVHdl(NewHandle(p.requestCount, MMStartup, NoBankCross + locked, ptr(0)));
  			p.dataBuffer := Ptr(Datahandle^);
						
  			P16Read(p);
			
			if istoolerror or
			     (Datahandle^^.header.identifier <> $444C) or {<-- trashed file}
			     (Datahandle^^.header.version <> 1) then { bad version #}
			  begin { trashed file, try to build it below}
				DisposeHandle(Handle(DataHandle));
				DataHandle := nil;
				P16Close(p);
			  end
			else
			  begin
				P16Close(p);
				goto 2;
			  end;
		  end;
		
		P16Destroy(p); { remove it if it's there}
		
		{save the old prefix}
		p.prefixNum := 7;
		p.prefix := @savePrefix;
		p16GetPrefix(p);
		{set the new prefix}
		p.prefixNum := 7;
		p.prefix := CDEVDirPtr;
		p16SetPrefix(p);

		p.pathname2 := CDEVDirPtr;
		P16Open(p);
		p.reserved := 0;
		p.base := 0;
		p.displacement := 0;
		p.nameBuffer := @currentname;
		P16GetDirEntry(p);
		
		DataHandle := CDEVHdl(NewHandle(sizeof(cdevheader) + (p.entrynum * sizeof(CDEV)),
					MMStartup, NoBankCross + Locked, ptr(0)));

		if istoolerror then { not enough memory!}
		  begin
		    DataHandle := nil;

			P16Close(p); {this closes the directory}
			
			{restore the old prefix}
			p.prefixNum := 7;
			p.prefix := @savePrefix;
			p16SetPrefix(p);
		
			goto 2;
		  end;
		{ fill the header!}
		with DataHandle^^, header do
		  begin
			identifier := $444C; {'DL'}
			lastMachine := YTemp;
			version := 1;
			count := 0;
		    reserved[1] := 0;
		    reserved[2] := 0;
		    reserved[3] := 0;
		    reserved[4] := 0;
		  end;
		for index := 1 to p.entrynum do
		  with DataHandle^^ do
			begin				
			  p.displacement := index;
			  P16GetDirEntry(p);
				
			  {build the pascal file name}
			  pascalName[0] := char(currentName.resultSize);
			  for i := 1 to currentName.resultsize do
				pascalName[i] := currentName.result[i];
				
			  {build the path name to the file for opening its resources}
			  for i := currentName.resultsize+2 downto 2 do
				currentName.result[i] := currentName.result[i-2];
			  currentName.result[1] := '7'; { we use prefix 7 as our directory!}
			  currentName.result[2] := '/';
			  currentName.resultSize := currentName.resultsize + 2;
			  
			  if ((p.fileFiltyp = CDEV_FileType) and
			     (BitAnd(p.fileAuxType,$8000) = 0)) then
				begin
				  fileID := OpenResFile(1,nil,@currentName.resultsize);
				  inc(header.count);
				  with CDEVS[header.count] do
					begin
					  reserved[1] := 0;
					  reserved[2] := 0;
					  reserved[3] := 0;
					  reserved[4] := 0;
					  path := concat(CDEVDirPath,'/',pascalName);
					  
					  IconH := IconHdl(LoadRes(rIcon,1));   { add its icon to our struct }
					  
					  if istoolerror then
						begin
						  dec(header.count);
						  goto 1;
						end;
					  icon := IconH^^;
					  ReleaseRes(3,rIcon,1);   { then trash it! }
					  
					  FlagH := FlagsHdl(LoadRes(FLAG_ResType,1)); { add its flags to our stuct}
					  
					  if istoolerror then
						begin
						  dec(header.count);
						  goto 1;
						end;
					  
		              if YTemp < FlagH^^.machine then
					    begin
					      ReleaseRes(3,FLAG_ResType,1); { wrong machine, get lost.}
						  dec(header.count);
						  goto 1;
						end;
					
					 if (BitAnd(flagH^^.CDEVFlags, wantmachine) <> 0 ) then
					 	begin
							scr := 1;
							
							ResConverter(GetCodeResConverter, CDEV_ResType, login);

							tempHdl := LoadRes(CDEV_ResType,1); { load the code!}
					
							if not isToolerror then {in case the resource is not there, dont crash}
					  		begin
								HLock(tempHdl);
								CurrCDEVCode := tempHdl^;
								scr := Disp(machineCDEV, 0, 0, currCDEVCode); 
								ReleaseRes(3,CDEV_ResType,1); {zombie the code}
								{log out of the resource converter}
								ResConverter(GetCodeResConverter, CDEV_ResType, logout);
					  		end;

						if scr = 0 then
							dec(header.count);
							
						end;	

					  flags := FlagH^^;
					  ReleaseRes(3,FLAG_ResType,1); { then trash it!}
					end;
					
1:				  CloseResFile(fileid);
				end;
			end;
		
		newSize := sizeof(cdevheader) + (DataHandle^^.header.count * sizeof(CDEV));
		SetHandleSize(newSize, Handle(DataHandle));
		P16Close(p); {this closes the directory}
		
		{restore the old prefix}
		p.prefixNum := 7;
		p.prefix := @savePrefix;
		p16SetPrefix(p);
		
		{Do a sort by name !!!!}
		
		HLock(Handle(dataHandle));
		with datahandle^^ do
		  Quicksort(1,header.count, CDEVS);
		HLock(Handle(dataHandle));

		{create a new cdev.data file & write the new info to it!}
		
		p.pathname1 := CDEVDataPtr;
		p.access := $83;
		p.fileType := CDEVDATA_FileType;
		p.auxType := CDEVDATA_AuxType;
		p.storageType := 5;
		p.createDate := 0;
		p.createTime := 0;
	
		p16create(p);

		if istoolerror then
		  goto 2; { we couldn't create it, so leave!}
		p.pathname2 := CDEVDataPtr;
		p16open(p);
		p.requestcount := newSize;
		p.databuffer := Ptr(DataHandle^);
		
		p16Write(p);

		if istoolerror then
		  begin { must not be enough room, kill it & leave}
			p16Close(p);
			p.deletepathname := CDEVDataPtr;
			p16destroy(p);
			goto 2; 
		  end;
		p16Close(p);
		
		p.pathname1 := CDEVDataPtr;
		p16GetFileInfo(p);
		p.access := $C1; {destroy enable, rename enable, backup needed, READ ONLY}
		p16SetFileInfo(p);

2:		GetAndUpdateCDEVS := DataHandle;
	  end;
  end;

function UpperString(s : str255) : str255;
  var
    i : integer;
    val : integer;
  begin
    for i := 1 to ord(s[0]) do { this is faster than length(s) }
      begin
        val := ord(s[i]);
        if (val >= ord('a')) and
           (val <= ord('z')) then { its a lower case character}
	  			s[i] := Char(val - $20);
      end;
    UpperString := s;
  end;

procedure QuickSort(i,j : Integer; var A : CDEVArray);
  var
    pivot : str15;
	pivotIndex : Integer;
	k : Integer;
	
  function FindPivot(i, j : Integer) : Integer;
    var
      firstKey : str15;
	  k : Integer;
    begin
      firstKey := upperstring(A[i].flags.name);
	  FindPivot := 0;
	  for k := (i+1) to j do
	    if upperstring(A[k].flags.name) > firstKey then
	      FindPivot := k
        else if upperstring(A[k].flags.name) < firstKey then
	      FindPivot := i;
    end;

procedure SwapCDEV(var cdev1, cdev2 : CDEV);
  var
    temp : CDEV;
  begin
	temp := cdev1;
	cdev1 := cdev2;
	cdev2 := temp; 
  end;

  function Partition(i, j : integer; var pivot : str15) : Integer;
    var
      l, r : integer;
    begin
      l := i;
	  r := j;
	  repeat
	    SwapCDEV(A[l], A[r]);
	    while upperstring(A[l].flags.name) < upperstring(pivot) do
	      inc(l);
	    while upperstring(A[r].flags.name) >= upperstring(pivot) do
	      dec(r);
	  until l > r;
	  Partition := l;
    end;

  begin
    pivotindex := findpivot(i,j);
	if pivotindex <> 0 then
	  begin
	    pivot := A[pivotindex].flags.name;
		k := partition(i,j,pivot);
		quicksort(i,k-1,A);
		quicksort(k,j,A);
	  end;
  end;

end.
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/CtlPanelIntfs/CDEVMgrData.aii b/IIGS.601.SRC/A.U.G/CtlPanel/CtlPanelIntfs/CDEVMgrData.aii
new file mode 100644
index 0000000..060e7b9
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/CtlPanelIntfs/CDEVMgrData.aii
@@ -0,0 +1 @@
+;;;	CDEVMgrData - data for the code resource that builds the cdev.data files.
;
;	Michael V. Stein	05/10/90.
;
;	© Copyright Apple Computer, 1990.


	blanks	off
	

;;	equates.




;;	include files.

* no longer needed {gab}
*	include 'm16.util'



;;	macros.




;;	main program.




file	proc



;;	exported addresses.

	export	disp
disp
; rewritten by Greg Branche
 	lda	6,s			;get high 16-bits of 32-bit destination pointer
	tay				;save in Y for a second
	lda	4,s			;get low 16-bits
	dec	a			;prepare for eventual RTL
	tax				;save in X
	pla				;retrieve low 16-bits of return address
	sta	3,s			;put back on stack, overwriting destination pointer
	sep	#$20			;8-bit accumulator
	pla				;retrieve high 8-bits of return address
	sta	4,s			;put back on stack
	tya				;get high 8-bits of destination pointer
	sta	1,s			;put on stack
	rep	#$20			;back to 16-bit accumulator
	phx				;put low 16-bits of destination pointer on stack
	rtl				;and 'return' to destination

	endp

	end
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/CtlPanelIntfs/NewControls.h b/IIGS.601.SRC/A.U.G/CtlPanel/CtlPanelIntfs/NewControls.h
new file mode 100644
index 0000000..666d994
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/CtlPanelIntfs/NewControls.h
@@ -0,0 +1 @@
+/*





*/


#ifndef __types__
#include <types.h>
#endif

#ifndef __quickdraw__
#include <quickdraw.h>
#endif

#ifndef __misctool__
#include <misctool.h>
#endif

#ifndef __resmgr__
#include <resmgr.h>
#endif

#ifndef __newcontrols__
#define __newcontrols__



#define  MachineCDEV  		1
#define  BootCDEV			2
#define  ShutDownCDEV	 	3
#define  InitCDEV 			4
#define  CloseCDEV 			5
#define  EventsCDEV 		6
#define  HitCDEV 			7
#define  CreateCDEV			8
#define  AboutCDEV			9
#define  RectCDEV			10
#define  reserved4			11
#define  reserved5			12
#define  reserved6			13
#define  reserved7			14
#define  reserved8			15
#define  reserved9			16
  
#define  wantMachine		1
#define  wantBoot			2
#define  wantShutDown		4
#define  wantInit			8
#define  wantClose			16
#define  wantEvents			32
#define  wantHit			64
#define  wantCreate			128
#define  wantAbout			256
#define  wantRect			512
#define  wantReserved2		1024
#define  wantReserved3		2048
#define  wantReserved4		4096
#define  wantReserved5		8192
#define  wantReserved6		16384
#define  CanBeUnActive		32768
  
#define  CDEV_ResType 		0x8018
#define  FLAG_ResType 		0x8019
#define  TwoRect_ResType	0x801a
  
#define  CDEV_FileType 		0xc7
#define  CDEV_AuxType 		0
  
#define  CDEVDATA_FileType 	0x00
#define  CDEVDATA_AuxType 	0x00
  
#define  fCtlActive 		0x8000
#define  fCtlCanBeActive 	0x4000
#define  fCtlWantEvents 	0x2000
#define  fCtlProcRefNotPtr 	0x1000


#define  simpleButtonControl	0x80000000
#define  checkControl			0x82000000
#define  radioControl			0x84000000
#define  scrollBarControl		0x88000000
#define  growControl			0x8a000000
#define  statTextControl		0x81000000
#define  editLineControl		0x83000000
#define  editTextControl		0x85000000
#define  popUpControl			0x87000000
#define  listControl			0x89000000
#define  iconButtonControl		0x8b000000
#define  pictureControl			0x8d000000



typedef String(8) Str8;
typedef String(15) Str15;
typedef	String(32) Str32;

typedef struct NewCtlRec  {
      struct NewCtlRec  **ctlNext;     /* CtlRec - Handle of next control. */
      GrafPortPtr     ctlOwner;     /* CtlRec - Pointer to control's window. */
      Rect     ctlRect;     /* CtlRec - Enclosing rectangle. */
      Byte     ctlFlag;     /* CtlRec - Bit flags. */
      Byte     ctlHilite;     /* CtlRec - Highlighted part. */
      Integer     ctlValue;     /* CtlRec - Control's value. */
      LongProcPtr     ctlProc;     /* CtlRec - Control's definition procedure. */
      LongProcPtr     ctlAction;     /* CtlRec - Control's action procedure. */
      Longint     ctlData;     /* CtlRec - Reserved for CtrlProc's use. */
      Longint     ctlRefCon;     /* CtlRec - Reserved for application's use. */
      Pointer     ctlColor;     /* CtlRec - Pointer to appropriate color table. */
	  char		ctlReserved[0x10];
	  Longint	ctlID;
	  integer	ctlMoreFlags;
	  integer	ctlVersion;
      } NewCtlRec,  *NewCtlRecPtr,  **NewCtlRecHndl ;

typedef struct FlagsRec {
  Integer	CDEVFlags;	/* messages we need to respond to*/
  byte		Enabled;		/* are we enabled?*/
  byte		Version; 		/* version # of the control panel it works with*/
  byte		Machine;		/* what machine do we need to be run*/
  byte		System;			/* what system do we need to be run*/
  Rect		DataRect;		/* really the width & height; top, left = 0*/
  Str15		name;			/* name of the CDEV, upper/lower case*/
  Str32		author;			/* name of the author */
  Str8		versStr;		/* version of the CDEV */
} FlagsRec,*FlagsPtr,**FlagsHdl;


typedef struct IconRec {
  Integer	kind;  /* always -1 = color*/
  Integer	size;  /* always 280*/
  Integer	height;/* always 20*/
  Integer	width; /* always 28*/
  char	image[20][14];
  char	mask[20][14];
} IconRec, *IconPtr, **IconHdl;
	

typedef struct CDEV {
  Str255	path;	/* full path, including file name of the CDEV*/
  FlagsRec	flags;	/* flags from above*/
  IconRec	icon;	/* icon from above*/
  integer	reserved[5];
} CDEV, *CDEVFake;


typedef struct CDEVHeader {
  Integer	identifier; /* identifier, 'DL'*/
  Integer	version;	/* should be 1*/
  integer	Count;		/* # of CDEV's below*/
  longint	reserved[5]; /* reserved for future use*/
} CDEVHeader;



typedef struct CDEVRec {
  CDEVHeader	header; /* header from above*/
  CDEV		CDEVS[1];   /* the CDEV's*/
} CDEVRec,*CDEVPtr,**CDEVHdl;


typedef struct DITLRec {
  longint	theRefs[2];
} DITLRec, *DITLPtr, **DITLHdl;


typedef struct editLineCtl {
	integer	pCount; /* in this case - 7*/
	longint	ctlID;  /* 1,2,3...*/
	Rect	ctlRect;	  /* the rect*/
	longint	ctlProcRef; /* $80000000*/
	integer	ctlFlag;/* 2*/
	integer	ctlMoreFlags;/* 2*/
	longint	ctlRefCon; /* 0 */
	integer	ctlMaxSize;
	longint	ctlDefaultRef;
	integer	ctlTextSize;
} editLineCtl, *editLinePtr, **editLineHndl;


typedef struct listCtlRec {
	integer pCount;
	longint	ID;
	Rect	ctlRect;
	longint	ctlProcRef;
	integer	ctlFlag;
	integer	ctlMoreFlags;
	longint	ctlRefCon;
	integer	ctlListSize;
	integer	ctlListView;
	integer	ctlListType;
	integer	ctlListStart;
	longint	ctlListDraw;
	integer	ctlListMemHeight;
	integer	ctlListMemSize;
	longint	ctlListRef;
	longint	ctlColorRef;
} listCtlRec, *listCtlPtr, **listCtlHndl;


typedef struct statTextCtl {
	integer pCount;
	longint	ID;
	Rect	ctlRect;
	longint	ctlProcRef;
	integer	ctlFlag;
	integer	ctlMoreFlags;
	longint	ctlRefCon;
	longint ctlTextRef;
	integer	ctlTextSize;
} statTextCtl, *statTextCtlPtr, **statTextCtlHndl;

#endif
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/CtlPanelIntfs/NewInterface.h b/IIGS.601.SRC/A.U.G/CtlPanel/CtlPanelIntfs/NewInterface.h
new file mode 100644
index 0000000..db879cb
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/CtlPanelIntfs/NewInterface.h
@@ -0,0 +1 @@
+/*





*/



#ifndef __quickdraw__
#include <quickdraw.h>
#endif

#ifndef __event__
#include <event.h>
#endif

#ifndef __newinterface__
#define __newinterface__




#define	  wInControl  0x21

typedef struct NEWEventRecord {
    EventRecord	oldRec;
	longint	wmLastClick;
	integer	wmclickcount;
	longint	wmtaskData2;
	longint	wmtaskData3;
	longint	wmtaskData4;
} NEWEventRecord;
  
typedef struct simpleButtonRec {
	integer	pCount; /* in this case - 7*/
	longint	ctlID;  /* 1,2,3...*/
	Rect	ctlRect;	  /* the rect*/
	longint	ctlProcRef; /* $80000000*/
	integer	ctlFlag;/* 2*/
	integer	ctlMoreFlags;/* 2*/
	longint	ctlRefCon; /* 0 */
	longint	TitleRef; /* resource id of string*/
	longint colorRef;
} simpleButtonRec, *simpleButtonPtr, **simpleButtonHdl;

typedef struct RadioButtonRec {
    integer pCount; /* in this case - 7*/
	longint ctlID;  /* 1,2,3...*/
	Rect ctlRect;	  /* the rect*/
	longint ctlProcRef; /* $80000000*/
	integer ctlFlag;/* 2*/
	integer ctlMoreFlags;/* 2*/
	longint ctlRefCon; /* 0 */
	longint TitleRef; /* resource id of string*/
	Integer InitialValue; /* inital value*/
	longint colorRef;
  } RadioButtonRec, *RadioButtonPtr, **RadioButtonHdl;

typedef struct CheckButtonRec {
    integer pCount; /* in this case - 7*/
	longint ctlID;  /* 1,2,3...*/
	Rect ctlRect;	  /* the rect*/
	longint ctlProcRef; /* $80000000*/
	integer ctlFlag;/* 2*/
	integer ctlMoreFlags;/* 2*/
	longint ctlRefCon; /* 0 */
	longint TitleRef; /* resource id of string*/
	Integer InitialValue; /* inital value*/
	longint colorRef;
  } CheckButtonRec, *CheckButtonPtr, **CheckButtonHdl;

extern pascal void ResBootInit() inline(0x011e,dispatcher);
extern pascal Ptr LGetPathName2() inline(0x2211,dispatcher);
extern pascal integer TaskMasterDA() inline(0x5f0e,dispatcher);
extern pascal NewCtlRecHndl NewControl2() inline(0x3110,dispatcher);
extern pascal NewCtlRecHndl GetCtlHandleFromID() inline(0x3010,dispatcher);
extern pascal longint GetCtlID() inline(0x2a10,dispatcher);
extern pascal Ptr GetCodeResConverter() inline(0x3610,dispatcher);


#endif
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/CtlPanelIntfs/NewInterface.pii b/IIGS.601.SRC/A.U.G/CtlPanel/CtlPanelIntfs/NewInterface.pii
new file mode 100644
index 0000000..84647ef
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/CtlPanelIntfs/NewInterface.pii
@@ -0,0 +1 @@
+unit newinterface;

uses qdintf, gsintf;

const
  simpleButton = $80000000;
  checkBox =     $82000000;
  radio = 		 $84000000;
  srollBar =	 $88000000;
  grow = 		 $8A000000;
  statText = 	 $81000000;
  editline = 	 $83000000;
  editText = 	 $85000000;
  popUp =		 $87000000;
  list = 		 $89000000;
  iconButton = 	 $8B000000;
  pictCtl = 	 $8D000000;
  
  wInControl = $21;

type
  NEWEventRecord = record
    oldRec : eventrecord;
	wmLastClick : longint;
	wmclickcount : integer;
	wmtaskData2 : longint;
	wmtaskData3 : longint;
	wmtaskData4 : longint;
    wmLastClickPt : Point;
  end;
  
  simpleButtonHdl = ^simpleButtonPtr;
  simpleButtonPtr = ^simpleButtonRec;
  simpleButtonRec = record
    pCount : integer; { in this case - 7}
	ctlID : longint;  { 1,2,3...}
	ctlRect : rect;	  { the rect}
	ctlProcRef : longint; { $80000000}
	ctlFlag : integer;{ 2}
	ctlMoreFlags : integer;{ 2}
	ctlRefCon : longint; { 0 }
	TitleRef : longint; { resource id of string}
	colorRef : longint;
  end;

  RadioButtonHdl = ^RadioButtonPtr;
  RadioButtonPtr = ^RadioButtonRec;
  RadioButtonRec = record
    pCount : integer; { in this case - 7}
	ctlID : longint;  { 1,2,3...}
	ctlRect : rect;	  { the rect}
	ctlProcRef : longint; { $80000000}
	ctlFlag : integer;{ 2}
	ctlMoreFlags : integer;{ 2}
	ctlRefCon : longint; { 0 }
	TitleRef : longint; { resource id of string}
	InitialValue : Integer; { inital value}
	colorRef : longint;
  end;

  CheckButtonHdl = ^CheckButtonPtr;
  CheckButtonPtr = ^CheckButtonRec;
  CheckButtonRec = record
    pCount : integer; { in this case - 7}
	ctlID : longint;  { 1,2,3...}
	ctlRect : rect;	  { the rect}
	ctlProcRef : longint; { $80000000}
	ctlFlag : integer;{ 2}
	ctlMoreFlags : integer;{ 2}
	ctlRefCon : longint; { 0 }
	TitleRef : longint; { resource id of string}
	InitialValue : Integer; { inital value}
	colorRef : longint;
  end;
  
MenuItemHdl = ^MenuItemPtr;
MenuItemPtr = ^MenuItemRec;
MenuItemRec = packed record
  version : Integer;
  ItemID : Integer;
  ItemChar : Char;
  ItemAltChar : Char;
  ItemCheck : Integer;
  ItemFlag : Integer;
  ItemTitleRef : Longint; {top 2 bits set for title is resource id}
end;

MenuH = ^MenuP;
MenuP = ^MenuR;
MenuR = record
  version : integer;
  menuID : integer;
  menuFlag : integer; {top 4 bits are set = menu title & item are resources}
  menuTitleRef : longint;
  Items : array[1..1] of Longint;
end;

PopUpHdl = ^PopUpPtr;
PopUpPtr = ^PopUpRec;
PopUpRec = record
  pCount : integer; { in this case - 9}
  ctlID : longint;  { 1,2,3...}
  ctlRect : rect;	  { the rect}
  ctlProcRef : longint; { $87000000}
  ctlFlag : integer;{ 0}
  ctlMoreFlags : integer;{ fCtlProcRefNotPtr + 2}
  ctlRefCon : longint; { 0 }
  TitleWidth : Integer; { stringwidth(title) }
  MenuRefRef : longint; { resource id of menu}
  InitialValue : Integer; { inital value (item id)}
end;

function  LGetPathName2(memID, fileNum : integer) : Ptr; tool $11, $22;
function  TaskMasterDA(mask : integer; event : NEWeventrecord) : integer; tool 14, $5F;
function  NewControl2(wind : windowPtr; inputType : Integer;
						reference : longint) : ControlHandle; tool 16,$31;
function  GetCtlHandleFromID(theWind : WindowPtr; id : longint) : ControlHandle; tool 16, $30;
function  GetCtlID(ctlHdl : Controlhandle) : longint; tool 16, $2A;

procedure AddToRunQ(addr : procPtr); tool $05, $1f;
procedure RemoveFromRunQ(addr : procPtr); tool $05, $20;

function  GetCodeResConverter : Ptr; tool $3, $34;
function  GetCtlParamPtr : Ptr; tool $10, 35;
procedure SetCtlParamPtr(p : Ptr); tool $10,34;
FUNCTION  TaskMaster2(EventMask : Integer; Event: NewEventRecord):Integer;Tool 14,29;

procedure SetKeyTranslation(trans : integer); tool 6, $1C;
function  GetKeyTranslation : integer; tool 6, $1B;

procedure PHB; inline $8B;
procedure PHK; inline $4B;
procedure PLB; inline $AB;

end.
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/CtlPanelIntfs/RESMGR.H b/IIGS.601.SRC/A.U.G/CtlPanel/CtlPanelIntfs/RESMGR.H
new file mode 100644
index 0000000..a35ced0
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/CtlPanelIntfs/RESMGR.H
@@ -0,0 +1 @@
+/*

	My implementation of Darryl Lovato's pascal implementation of the resource manager interface


*/

#ifndef __quickdraw__
#include <quickdraw.h>
#endif



#ifndef __resmgr__
#define __resmgr__



#define  rIcon 				0x8001
#define  rPicture 			0x8002
#define  rControlList 		0x8003
#define  rControlTemplate 	0x8004
#define  rWindow 			0x8005
#define  rString 			0x8006
#define  rStringList 		0x8007
#define  rMenuBar 			0x8008
#define  rMenu 				0x8009
#define  rMenuItem 			0x800A
#define  rTextForLETextbox2 0x800B
#define  rCtlDefProc 		0x800C
#define  rCtlColorTbl 		0x800D
#define  rCDEVCode			0x8018
#define  rCDEVFlags			0x8019
#define  rTwoRects			0x801a

#define  login				1
#define  logout				2

typedef struct ResourceRec {
	int		resType;
	Longint	resID;
} ResourceRec;

extern pascal void ResBootInit() inline(0x011e,dispatcher);
extern pascal void ResStartup() inline(0x021e,dispatcher);
extern pascal void ResShutdown() inline(0x031e,dispatcher);
extern pascal Integer ResVersion() inline(0x041e,dispatcher);
extern pascal void ResReset() inline(0x051e,dispatcher);
extern pascal boolean ResStatus() inline(0x061e,dispatcher);
extern pascal void CreateResFile() inline(0x091e,dispatcher);
extern pascal Integer OpenResFile() inline(0x0a1e,dispatcher);
extern pascal void CloseResFile() inline(0x0b1e,dispatcher);
extern pascal void AddRes() inline(0x0c1e,dispatcher);
extern pascal void UpdateResFile() inline(0x0d1e,dispatcher);
extern pascal Handle LoadRes() inline(0x0e1e,dispatcher);
extern pascal void RemoveRes() inline(0x0f1e,dispatcher);
extern pascal void MarkResChange() inline(0x101e,dispatcher);
extern pascal void SetCurResFile() inline(0x111e,dispatcher);
extern pascal Integer GetCurResFile() inline(0x121e,dispatcher);
extern pascal void SetCurResApp() inline(0x131e,dispatcher);
extern pascal Integer GetCurResApp() inline(0x141e,dispatcher);
extern pascal Integer HomeResFile() inline(0x151e,dispatcher);
extern pascal void WriteRes() inline(0x161e,dispatcher);
extern pascal void ReleaseRes() inline(0x171e,dispatcher);
extern pascal void DetatchRes() inline(0x181e,dispatcher);
extern pascal Longint UniqueResID() inline(0x191e,dispatcher);
extern pascal void SetResID() inline(0x1a1e,dispatcher);
extern pascal Integer GetResAttr() inline(0x1b1e,dispatcher);
extern pascal void SetResAttr() inline(0x1c1e,dispatcher);
extern pascal Longint GetResSize() inline(0x1d1e,dispatcher);
extern pascal void MatchResHandle() inline(0x1e1e,dispatcher);
extern pascal Integer GetOpenFileRefNum() inline(0x1f1e,dispatcher);
extern pascal Integer CountTypes() inline(0x201e,dispatcher);
extern pascal integer GetIndType() inline(0x211e,dispatcher);
extern pascal Longint CountRes() inline(0x221e,dispatcher);
extern pascal Handle GetIndRes() inline(0x231e,dispatcher);
extern pascal void SetResLoad() inline(0x241e,dispatcher);
extern pascal void SetResFileDepth() inline(0x251e,dispatcher);
extern pascal Handle GetMapHandle() inline(0x261e,dispatcher);
extern pascal void ResConverter() inline(0x281e,dispatcher);

#endif
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/CtlPanelIntfs/ResMgr.pii b/IIGS.601.SRC/A.U.G/CtlPanel/CtlPanelIntfs/ResMgr.pii
new file mode 100644
index 0000000..976ad52
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/CtlPanelIntfs/ResMgr.pii
@@ -0,0 +1 @@
+{ resource manager pascal interface}
unit ResMgr;

interface

uses
  QDIntf, GSIntf;
  
const
  rIcon = $8001;
  rPicture = $8002;
  rControlList = $8003;
  rControlTemplate = $8004;
  rWindow = $8005;
  rString = $8006;
  rStringList = $8007;
  rMenuBar = $8008;
  rMenu = $8009;
  rMenuItem = $800A;
  rTextForLETextbox2 = $800B;
  rCtlDefProc = $800C;
  rCtlColorTbl = $800D;
  
  login = 1; {for resource converter}
  logout = 2;
  
type
  ResourceRec = record
    resType : Integer;
	resID : Longint;
  end;

procedure ResBootInit;												tool 30,  1;
procedure ResStartup(memoryID : integer);							tool 30,  2;
procedure ResShutdown;												tool 30,  3;
function  ResVersion : Integer;										tool 30,  4;
procedure ResReset;													tool 30,  5;
function  ResStatus : integer;										tool 30,  6;
procedure CreateResFile(auxType : Longint; 
						fileType, access : Integer;	fileName : Ptr);tool 30,  9;
function  OpenResFile(access : integer;
						mapAddr : Ptr; fileName : Ptr) : Integer;	tool 30, 10;
procedure CloseResFile(id : Integer);								tool 30, 11;
procedure AddRes(theHandle : handle;
						attr, resType : Integer; resId : Longint);	tool 30, 12;
procedure UpdateResFile(memoryID : Integer);						tool 30, 13;
function  LoadRes(resType : Integer; resID : Longint) : Handle;		tool 30, 14;
procedure RemoveRes(resType : Integer; resID : Longint);			tool 30, 15;
procedure MarkResChange(changed : boolean; resType : Integer;
						resID : Longint);							tool 30, 16;
procedure SetCurResFile(memoryID : Integer);						tool 30, 17;
function  GetCurResFile : Integer;									tool 30, 18;
procedure SetCurResApp(memoryID : Integer);							tool 30, 19;
function  GetCurResApp : Integer;									tool 30, 20;
function  HomeResFile(theType:Integer; resID : Longint) : Integer;	tool 30, 21;
procedure WriteRes(resType : Integer; resID : Longint);				tool 30, 22;
procedure ReleaseRes(purgeLevel : integer;
					  resType : Integer; resID : Longint);			tool 30, 23;
procedure DetatchRes(resType : integer; resID : Longint);			tool 30, 24;
function  UniqueResID(IDRange, resType : Integer) : Longint;		tool 30, 25;
procedure SetResID(newID : Longint; 
						resType : Integer; resID : Integer);		tool 30, 26;
function  GetResAttr(resType : Integer; resID : Longint) : Integer;	tool 30, 27;
procedure SetResAttr(theAttr, resType : integer; resID : Longint);	tool 30, 28;
function  GetResSize(resType : Integer; resID : Longint) : Longint;	tool 30, 29;
procedure MatchResHandle(var foundRec : ResourceRec;
						theHand : Handle);							tool 30, 30;

function  GetOpenFileRefNum(fileId : Integer) : Integer;			tool 30, 31;
function  CountTypes : Integer;										tool 30, 32;
function  GetIndType(index : integer) : integer;					tool 30, 33;
function  CountRes(resType : Integer) : Longint;					tool 30, 34;
function  GetIndRes(resType: integer; index: longint) : Handle;		tool 30, 35;
procedure SetResLoad(load : boolean);								tool 30, 36;
procedure SetResFileDepth(numToSearch : Integer);					tool 30, 37;
function  GetMapHandle(fileId : Integer) : Handle;					tool 30, 38;

procedure ResConverter(converter : Ptr; theType : Integer; flags : integer); tool 30,40;
procedure ResDebug(on : integer); tool 30, $29;

implementation
end.
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/CtlPanelNDA/ControlPanel.NDA.res b/IIGS.601.SRC/A.U.G/CtlPanel/CtlPanelNDA/ControlPanel.NDA.res
new file mode 100644
index 0000000..e69de29
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/CtlPanelNDA/CtlPanel.NDA b/IIGS.601.SRC/A.U.G/CtlPanel/CtlPanelNDA/CtlPanel.NDA
new file mode 100644
index 0000000..10d952f
Binary files /dev/null and b/IIGS.601.SRC/A.U.G/CtlPanel/CtlPanelNDA/CtlPanel.NDA differ
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/CtlPanelNDA/CtlPanel.aii b/IIGS.601.SRC/A.U.G/CtlPanel/CtlPanelNDA/CtlPanel.aii
new file mode 100644
index 0000000..157e48e
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/CtlPanelNDA/CtlPanel.aii
@@ -0,0 +1 @@
+*******************************************************************************
*
* Control Panel NDA 2.1
*
* Copyright Apple Computer, Inc. 1991-1993
* All Rights Reserved
*
* by David A. Lyons, started 20-Jan-91
*
*******************************************************************************
*
* REVISION HISTORY
*
* Version 2.0 for System 6.0
*
* 20-Jan-91 Dave Lyons
*   Initial coding.  Took about 2.5 hours to get the shell working.
*   The list of CDevs is hard-coded, and it cycles through to the
*   next one each time you open the DA.  The battery-RAM updating
*   is working, even!
*
* 13..14-Feb-91 DAL
*   Making this into a for-real alpha-quality thing so I can check it
*   in soon.
*
* 18-Feb-91 DAL
*   Can I code on adrenaline?  Yes, I Think SO!  Not really alpha yet,
*   but let's see what I can do in the next five hours...
*
* 19-Feb-91 DAL
*   Still Going (thud, thud, thud, thud).  Kinda works, in a minimal
*   sort of way.
*
* 20-Feb-91 DAL
*   Successfully builds all its data structures in memory and displays
*   the scrolling list of icons!
*
* 21-Feb-91am DAL
*   Really starting to cook now.  Might even work right with multiple
*   CDevs open, even!  (Later...working good.)
*
* 25-Feb-91am DAL
*   Looks like this is going on the 6.0d26 build.  So let's fix it up
*   some more, put in the About box and Help & stuff. 
*
*   Finished WhatAccessRequest routine, so we'll open things up read-only
*   if we booted off of AppleShare.
*
*   Kludged Run events for one window only, and got the data file stuff
*   working.
*
* === released on 6.0d26 ===
*
* 26-Feb-91 DAL
*   Dim out the About and Help buttons when there are no CDevs selected.
*   Make the first CDev be selected by default.
*
*   Uses VersionString to build version text from the rVersion resource.
*
* 27-Feb-91 DAL
*   Fixed Run events so they won't dispatch to a NIL or invalid window.
*   Fixed GlobalToLocal and LocalToGlobal calls on rectangles!
*   Now I use ResetMember2 instead of NextMember2 to scan for CDevs to
*     open.  This way they are no longer selected when the open is done.
*   Now puts up a watch cursor around opening CDevs.
*
* 28-Feb-91 DAL (2.0d3)
*   When calling HitCDEV for a nonextended control, I now pass $FFFFFFFF
*   for the control ID.  Some existing CDevs were counting on getting a
*   large value here, and I was passing zero before.
*
*   Adding some better error handling.  Instead of crashing if there isn't
*   enough memory, it just does nothing.
*
* 2-Mar-91 DAL (2.0d4)
*   Stripping leading blanks from CDev names in the list.
*
* 3-Mar-91 DAL (2.0d4)
*   We accept SendRequest($0F01) from MenuKey to implement Apple-ESC
*     as our hotkey to open up the Control Panels window (will make
*     this configurable later).  Hilites the first menu title around
*     opening self.
*   Centers CDev rectangles better vertically than before.
*   Now sets the port to the CDev window during Create and Init messages.
*
* 13-Mar-91 DAL (2.0d5)
*   Was neglecting to invalidate an icon that was deselected, in the case
*   that I got an error trying to open it.
*
* 14-Mar-91 DAL
*   Take a whack at the palette manager!
*
* === released on 6.0d29 ===
*
* 22-Mar-91 DAL (2.0d6)
*   Control Panel's own resource fork is now opened read-only on
*     AppleShare, so multiple users can use it.
*   Tweaked the little palette manager so that UseStandardPalette
*     doesn't do anything if we're already using our standard palette.
*   In 320 mode now we use a color table with the same colors as the
*     standard 640-mode colors.
*
* 30-Mar-91 DAL (2.0d7)
*   Now we draw the boot icons by calling ShowBootInfo (Misc Tools).
*
* 1-Apr-91 DAL (2.0d8)
*   Took out X coordinate fudging for drawing an icon in the list;
*     they were drawing too far to the right.  Just force it even
*     instead.
*   We now validate the CDev.Data.2.0 header fields.
*   New routine ClosingCDevWindow cleans up while we're closing.
*   Added new field owbCDevItemPtr to the window block structure.
*   Ack!  Twilight was not preserving the current resource file
*     when I gave it an EventsCDEV message.  Fixed so that it doesn't
*     matter.
*   Now sets current resource file when handling an Action or Close.
*   Double-clicking a CDev that is already open just brings it to the
*     front.
*   Help button is enabled only if exactly one icon is selected.
*   Changed data file name to "CDev.Data" (not "CDev.Data.2.0").
*   CDev.Data file is now created as invisible.
*
* === released on 6.0d30 ===
*
* 7-Apr-91 DAL (2.0d9)
*   Change hotkey from Apple-ESC to Apple-Shift-ESC to avoid conflicting
*     with the Installer and Platinum Paint.
*   Added WaitCursor and InitCursor in doAboutBox, InitCursor on open.
*   Finished code to zoom CDevs closed and mark their icons closed.
*
* === released on 6.0d31 ===
*
* 16-Apr-91 DAL (2.0d10)
*   Fix opening/closing of CDevs so that if the CDev puts up a modal
*     dialog of some sort, which calls GetNextEvent, that it doesn't
*     get really confused if another CDev was already open and gets
*     to process its activate or deactivate event during that time.
*
* === released on 6.0d32 ===
*
* 17-Apr-91 DAL (2.0d11)
*   Invalid signature word on data file was being propogated to new file.
*   Disk full on writing data file was not forcing file to be destroyed.
*
* === released on 6.0d33 and 34 ===
*
* 30-Apr-91 DAL (2.0d12)
*   Show watch cursor on CDev help but not CP help.  Was backwards.
*   Fix double-clicking in the air so it doesn't blink the OK button.
*
* === missed 6.0d35 by 30 seconds ===
*
* 13-May-91 DAL (2.0d13)
*   Made the data file get created Visible again, since sometimes it's
*   convenient to throw it out manually.
*   Removed some dead cursor-preservation stuff from NDAOpen.
*   Added Option key check at NDAOpen for opening Finder window.
*
* 14-May-91 DAL
*   Fixed NDAInit so it doesn't crash if you boot under pre-6.0.
*
* 3-Jun-91 DAL (2.0d14)
*   Fixed modifiers on Help button key equivalents.
*   Added error check on boot-time init of a CDev.  Doesn't crash
*     if the resource can't be loaded.  Instead, it X-es out the
*     icon and calls SysBeep2($000C).
*
* 11-Jun-91 DAL (still 2.0d14)
*   Now passes CDev window pointer to the EventsCDEV message (data2).
*   This didn't used to be documented to the world, but now it is,
*     and AppleShare was depending on it.
*
* 13-Jun-91 DAL (2.0d15)
*   You can double-click on an -inactive- CDev now.  (Why not?)
*
* 24-Jun-91 DAL (2.0d16)
*   Now we grab a copy of the rWindColor(07ff0001) for a CDev window,
*     instead of hard-coding a lined color table.
*   Made the About... button invisible.
*   Clicking on the version is the same as clicking on About.
*
* 25-Jun-91 DAL (2.0d17)
*   BootCDEV now passes buffer pointer in data1.  Setting bit 0 of
*     the first word of the buffer makes the CP X out the CDev icon.
*
* 8-Jul-91 DAL (to be 2.0d19 on 6.0d43)
*   No longer trashes memory when closing an "orphaned" Control Panel.
*
* 10-Jul-91 DAL (still 2.0d19)
*   Fixed tellFinderOpenWindow buffer (was too short).
*   Accepts request $9001 to open the main Control Panels window.
*
* 11-Jul-91 DAL (still 2.0d19)
*   No longer accesses SCBs directly!  (For CloseView compatibility.)
*   Now forces a valid port around CtlNewRes call (for Prizm compatibilty).
*   Edit actions are now passed along to CDevs if wantEdit bit is set.
*
* 23-Jul-91 DAL (2.0d20)
*   Better handling of long Control Panel names when drawing icons.  If
*   name won't fit, we draw with SetCharExtra(-1).  If it still won't fit,
*   we let it stick off the ends.
*
* 20-Aug-91 DAL (2.0d21 on 6.0d46+)
*   Always use the correct CDev Flags word when deciding to call
*   MachineCDEV!  (Problem made evident by AppleShare CDev 2.0, which
*   has WantMachine set.)  Added missing "jsr UpdateFlagsBuffer".
*
* 3-Sep-91 DAL (2.0d22 on 6.0d47)
*   Now handles MachineCDEV returning 0--previously did not bother
*     to close the unwanted CDev's resource fork or check if we should
*     shut down the Resource Manager.
*   Does not display an error (like $0120) after MachineCDEV returns 0.
*   MainContentDraw and CDevContentDraw now set the CurResourceFile
*     around DrawControls.
*   Translates Command-Z/X/C/V into SystemEdit, if wantEdit is set.
*   Main window position is saved in a rTwoRects(1) resource (first
*     rect is 320, second is 640).
*   Accepts finderSaysOpenFailed if MachineCDEV failed.
*
* 9-Sep-91 DAL (2.0d23)
*   Made option-open or option-double-click close the main window after
*     opening a control panel.  (The Close is scheduled to happen later
*     at a safe time.)
*
* 15-Sep-91 DAL (2.0d24)
*   Opening the main CP window now grabs resources from the correct
*     resource file, never from CDevs' resource files by accident.
*
* 16-Sep-91 DAL (2.0d24 for 6.0d49)
*   Saves window positions of individual Control Panels, using named
*     rTwoRect resources in the $0077xxxx range in the main control
*     panels file.  First rect is 320, second is 640.  Only the top-
*     left point of each rectangle is used.
*
* 17-Sep-91 DAL
*   Make CDev.Data invisible again.
*
* 29-Sep-91 DAL
*   The RunQueue task was not calling Push/PopGlobalStuff--was causing
*     problems when a CDev displayed an alert during MachineCDEV or
*     OpenCDEV, etc.
*   Was not preserving the old SCBs correctly when activating one of
*     my windows (added plx phx in loop).
*
* 2-Oct-91 DAL (2.0d26)
*   Load and start QD Aux if necessary.
*
* 13-Oct-91 DAL (2.0d27)
*   Force an Update event right after opening a control panel.
*   Ackeret wants Command-O to work like Return for the Open button...okay.
*
* 14-Oct-91 DAL
*   Changed handleMenuKey mask from $1B00 to $1300 so that Option-Command-
*     Shift-Esc will work (opens the CDevs folder).
*
* 25-Oct-91 DAL (2.0d28 for 6.0d55)
*   Added an InvalZoomRect call on open so it redraws as grayed-out even if
*     the CDev puts up an AlertWindow during open.
*
* 28-Oct-91 DAL (still 2.0d28)
*   Command-? now works for credits as advertised (like clicking on the
*     version number).
*
* 29-Oct-91 DAL
*   Moved the rIcon "X" resource to Sys.Resources.
*
* 30-Oct-91 DAL (2.0d29 for 6.0d56)
*   Run-event handler now preserves and sets the CurResourceApp and
*   CurResourceFile.
*
* 11-Oct-91 DAL (2.0d30 for 6.0d57).
*   When opening the main window, we make it update right away to avoid
*   ugly partly-drawn window if you start typing before it draws.
*
* 19-Nov-91 DAL (2.0d31 for 6.0d59)
*   Fixed Run events to work for all windows.
*
* 3-Dec-91 DAL (2.0d32 for 6.0d60)
*   When opening a resource file, we now always set the system preferences
*     to prompt for the disk, and to *not* allow a Cancel button.
*
* 4-Dec-91 DAL (still for d60)
*   Force main window updates on CDev open/close, since they could scroll the
*     list before a natural update gets processed.
*   Added a missing +2 in the Run event handling from 19-Nov.
*
* 9-Dec-91 DAL (2.0d33 for 6.0d61)
*   Added check to avoid doing a Close(0) if we try to read CDev.Data but
*     it does not exist.
*
* 10-Dec-91 DAL (still for d61)
*   Command-? is now Help, just like Command-H.  (Human Interface guidelines
*     say Command-? is not for About.)
*
* 27-Jan-92 DAL (for 6.0d66)
*   Around the call to ToBramSetup, we no longer force the bank register to
*     $00.  The firmware now does this (Tool.Setup/Misc.Tools).
*
* 5..6-Feb-92 DAL (for 6.0d70)
*   Turned off debug symbols (there was only one).
*   Since SetPfx was not disposing of the handle passed to it, each time you
*     opened and closed the main window, you orphaned a pair of handles
*     (which stored the old values of prefixes 0 and 8).
*   Optimizations (pCount is always 2 in getPfx and SetPfx; changed a few
*     and #$7fff to ASL A, LSR A).
*   Cleaned up some old comments.
*   Fixed copyright date in the Credits window (click on version number).
*   No longer responds to Printing a CDev from the Finder (only Open
*     works now); we weren't checking the printFlag in finderSaysBeforeOpen.
*   Now keeps the CDev pathname in the window refcon structure.
*   Keeps the CDevItemsHandle, CDevPathsHandle, and CDevIconsHandle data
*     around when *any* of our windows are open, not just the main window.
*   Fixed several bugs where things were confused if you opened CDevs using
*     a combination of the main window and the Finder.
*
* 7-Feb-92 DAL (for 6.0d70)
*   When showing a CDev's Help window, we need to provide Text Edit and
*     Font Manager, so that the Help routine does not try to start them
*     up (some do, and they get left started because the CDev never has
*     a chance to close them, if the CDev itself is not open).
*   Fixed a QDAuxStartUp which was supposed to be a QDAuxStatus.  No actual
*     effect, since QD Aux is already available (Window Mgr starts it up),
*     redundant QDAuxStartUp calls have no effect, and QDAuxStartUp was
*     not changing the $0000 result space from the intended status call.
*   Added missing STA/Y ZoomRectPtr, so that zooming down to a closing
*     CDev icon always remembers to invalidate the icon in the main window.
*   Fixed bone-head design error from yesterday--it makes no sense to try
*     calling RebuildTheMemRec (I can't preserve fields, because the thing
*     gets built out of order and then sorted).  Now I use FindListIndex to
*     find things when I need to mark them open.
*
*******************************************************************************
*
* Version 2.1 for System 6.0.1
*
* 16-Mar-92 DAL, v2.1d1 (for 6.1d2)
*   When overwriting an existing CDev.Data file, make sure to unlock
*     it first!  The old Control Panel created the file with no Write
*     access, so we were failing to overwrite it (added one SetFileInfoGS).
*   When trying to open CDev.Data for writing, if we got an error we were
*     doing a Close with a stale reference number.  Fixed.
*
* 2-Jul-92 DAL (2.1d6 on 6.0.1d6)
*   Action routine accepts reOpenAction ($000C) by calling the Open routine
*     to let it decide whether to do a SelectWindow or a tellFinderOpenWindow.
*
* 15-Jul-92 DAL (2.1d7 for 6.0.1d7)
*   Use new calls OpenResourceFileByID and InvalOneCtlByID.
*   Added SpecialEventHandling so Command-Ctrl-Esc works when my windows
*     are in front (with and without Option).
*
* 29-Jul-92 DAL (2.1d9 for 6.0.1d9)
*   Changed cpOpenCDev handler so the finderSaysBeforeOpen handler handles
*     it (only difference is a smaller pcount is allowed).
*
* 3-Sep-92 DAL (2.0d10 for 6.0.1d10)
*   Created new internalOpenCDev request handler to work how cpOpenCDev
*     used to work.  Fixed bug introduced in d9 where opening a control
*     panel did not correctly mark it open & gray the icon, so you had
*     problems getting Help on it or opening it again (which should just
*     bring it to the front).
*
* 28-Oct-92 DAL (2.0d12 for 6.0.1d12)
*   On closing a control panel, call cbp to update daylight savings time
*     stuff.
*
* 2-Nov-92 DAL (still d12)
*   When calling FixMenuBar, sets System menu bar.
*
* 23-Nov-92 DAL (d12)
*   When calling HiliteMenu to hilite or unhilite the Apple menu, passes
*     flag values of $8001 and $8000 instead of 1 and 0.  This makes the
*     hiliting work right even for a text-based Apple character with a
*     weird color table.
*
* 3-Mar-93 SS (for 6.0.1d14)
*   Added WhooshRect to the main window opening and closing.
*
* 16-Mar-93 SS (for 6.0.1d15)
*   Fixed a random memory trashing bug when there are no active CDEVs.
*   Removed QDAux load/startup code as not needed.
*
* 16-Mar-93 DAL (6.0.1d15)
*   Yanked out the muck-with-color-tables code and put it into QD Aux,
*   as UseColorTable and RestoreColorTable.
*
*   Get rid of the extra color table swapping that happens when switching
*   between two windows that both need my color table.  See nasty-looking
*   routines DeactivateIfNotMyWindowNext and IgnoreOneDeactivate.
*
* 22-Apr-93 DAL (6.0.1d17)
*   Change coypright to include 1993.
*
* 6-May-93 DAL (still 6.0.1d17)
*   Removed a couple of JSL UseStandardColorTable calls.
*
*******************************************************************************
;
; VARIOUS NOTES for the future
;
; Criteria for accepting a finderSaysOpenFailed is not ideal.  Should
; always accept based on filetype, display some kind of failure message?
;
; avoid palette flicker when switching between different CP windows
;
;
; Limitations to remove
;
; Data file path is local and hard-coded (*:System:CDevs:CDev.Data)
;
; NOTE: Some CDevs (like AppleShare 1.x) expect the CP to dispose of some memory
;       for them.  This could be tricky, since I have a lot of CDevs sharing the
;       same memory IDs right now, or at least sharing the same Res Mgr ID.
;       But I can allocate a separate ID and use SetHandleID when I load their
;       rCDEVCode resource.  Then they will call MMStartUp and allocate memory
;       with that ID.  I can either allocate new handles, or limit it to 15 open
;       Control Panels & use the aux IDs.
;
; --------------
; Options dialog
; --------------
; "Geek options" dialog, set key equivalent?
; Set the initially-selected CDev (record by name)
; Set the key equivalent & modifiers to open up Control Panels (at MenuKey time)
;
; ------
; issues
; ------
; reduce memory fragmentation
; Make sure resources are always released appropriately
; Make the error handling bulletproof
; The "owbCDevNum" field seems to have turned out to be useless.  Oops, take it out.
;
; --------------------
; UNRESOLVED QUESTIONS
; --------------------
; Need a wantCursor flag bit?  How should this work?
; How can CDevs cleanly use extra tools?
; Can a CDev close itself cleanly?
; How can a CDev specify that it requires Control Panel 2.0? (can't; 1.0 doesn't check)
; Should CDevs be allowed to specify features of their window frame?
;   Grow/zoom/scroll bars/grow box.
;
; Control Panel memory use--need some dynamic segments/etc.


*******************************************************************************
*
* In Control Panel 2.0, CDevs are opened in their own separate windows.  You
* can have more than one CDev open at a time, and they have more space available
* because they don't have to share with the CDev list.
*
* What goes away?
*
* CDev.Init goes away, because CP 2.0 does that work at DeskShutDown time (the
* system calls DeskShutDown at boot time, before launching the application).
*
* The old and BIG CDev.Data file goes away, and it's replaced by a smaller
* version.
*
* How it works:
*
* ...
*
* The CP keeps the Resource Manager started up with the CP's memory ID whenever
* the main window *or* any CDev windows are open.
*
* Whenever the Main window is open, the CP has data structures about all the
* CDevs in the *:System:CDevs folder.
*
* NumCDevsOpen is the number of CDev windows open.  MainWindPtr is non-NIL when
* the main window is open.
*
*******************************************************************************
*******************************************************************************

DebugSymbols	equ 0

	include 'all.macros'
	include 'e16.event'
	include 'e16.window'
	include 'e16.resources'

ExpandPathLength	equ 300	;6-Feb-92 DAL

*******************************************************************************
*
* Constants for main window
*
*******************************************************************************
TheListWidth	equ 95	;max width for icon name

*******************************************************************************
*
* Vectors
*
*******************************************************************************
ToBRAMSetup	equ $e10094

*******************************************************************************
*
* Filetype equates
*
*******************************************************************************
CDevFileType	equ $00C7
CDevDataFileType	equ $00F9

*******************************************************************************
*
* System Version numbers
*
*******************************************************************************
MinQDVersion	equ $0307	;minimum QD version required (6.0)

*******************************************************************************
*
* rCDevFlags equates
*
*******************************************************************************
CanMakeInactive	equ $8000	;CP 2.0 does not use this
updateSSFromBRAM	equ $4000	;call ToBRAMSetup after every HitCDEV
wantAvailable1	equ $2000	;future expansion
wantAvailable2	equ $1000	;future expansion
wantEdit	equ $0800	;CDev wants Edit codes (Undo..Clear)
wantRun	equ $0400
wantHit	equ $0200
wantRect	equ $0100
wantAbout	equ $0080
wantCreate	equ $0040
wantEvents	equ $0020
wantClose	equ $0010
wantInit	equ $0008
wantShutDown	equ $0004
wantBoot	equ $0002
wantMachine	equ $0001

*******************************************************************************
*
* CDev message codes
*
*******************************************************************************
MachineCDEV	equ 1
BootCDEV	equ 2	;called at boot, no parameters
ShutDownCDEV	equ 3	;not used
InitCDEV	equ 4	;call after CreateCDEV (init controls)
CloseCDEV	equ 5	;dispose of extra stuff
EventsCDEV	equ 6	;give data1=event record before TaskMasterDA
CreateCDEV	equ 7	;create controls, window=data1
AboutCDEV	equ 8	;data1=help window pointer
RectCDEV	equ 9	;data1=pointer to rectangle to modify
HitCDEV	equ 10	;data1=control handle, data2=control ID
RunCDEV	equ 11	;no parameters
EditCDEV	equ 12	;New for 2.0: CDev wants Edit events

*******************************************************************************
*
* Member Record structure for the List in the main window
*
*******************************************************************************
oMemName	equ 0
oMemFlags	equ 4
oMemIcon	equ 6
oMemState	equ 10
oMemCDevNumber	equ 12
oMemItemPtr	equ 14
LISTMEMSIZE	equ 18

*******************************************************************************
*
* The CDev data file on disk is a concatenation of:
*   CDevItemList (header + array of CDev items)
*   CDevPathsHandle (concatenation of wString pathnames)
*   CDevIconsHandle (contcatenation of icons)
*
* These are three separate handles in memory.
*
* CDevList offsets:
*
*******************************************************************************
oCDevListSignature	equ 0	;must be 'DV' ($5644)
oCDevListVersion	equ 2	;must be $0001
oCDevListCount	equ 4	;number of CDev items following
CDEVLISTHEADERSIZE	equ 6
oCDevListItems	equ 6	;array of CDev items starts here

*******************************************************************************
*
* CDev Item structure
*
* WARNING: Be sure to update CDevItemTemplate if you change fields here!
*
*******************************************************************************
oCDevItemSize	equ 0	          ;number of bytes in this structure
oCDevItemCreateDate	equ oCDevItemSize+2	          ;CDev file creation date
oCDevItemPathOffset	equ oCDevItemCreateDate+8     ;offset into CDevPathsHandle
oCDevItemIconOffset	equ oCDevItemPathOffset+4     ;offset into CDevIconsHandle
oCDevItemState	equ oCDevItemIconOffset+4     ;WORD: $0002 = open (like Icon mode) *** NOT USED ***
oCDevItemWindow	equ oCDevItemState+2          ;LONG: window pointer to CDev window
oCDevItemFlags	equ oCDevItemWindow+4         ;copy of rCDevFlags resource
oCDevItemEnabled	equ oCDevItemFlags+2
oCDevItemVersion	equ oCDevItemEnabled+1
oCDevItemMachine	equ oCDevItemVersion+1
oCDevItemReserved	equ oCDevItemMachine+1
oCDevItemRect	equ oCDevItemReserved+1
oCDevItemName	equ oCDevItemRect+8
oCDevItemAuthor	equ oCDevItemName+16
oCDevItemVerStr	equ oCDevItemAuthor+33
CDEVITEMSIZE	equ oCDevItemVerStr+9
FLAGSSIZE	equ CDEVITEMSIZE-oCDevItemFlags

*******************************************************************************
*
* WindBlock structure offsets
* (each CDev window's refcon points to one of these)
*
*******************************************************************************
owbTheCDevItem	equ 0	;first we have a whole CDev Item structure
owbResFileNum	equ CDEVITEMSIZE
owbRawCDevNumber	equ owbResFileNum+2
owbCDevCodePtr	equ owbRawCDevNumber+2
owbCDevItemPtr	equ owbCDevCodePtr+4
owbWindTitle	equ owbCDevItemPtr+4
owbCDevPath	equ owbWindTitle+20	;class-1 string
* CDEV PATH MUST BE LAST!  It has a variable size.
*******************************************************************************


*******************************************************************************
*
* Main Window control IDs
*
*******************************************************************************
ListControlID	equ 1	;the list
OpenControlID	equ 2	;"Open" button
CDevHelpControlID	equ 3	;"Help" button
CPHelpControlID	equ 4	;"About" button
VersionControlID	equ 5	;the CP version (stat text)

*******************************************************************************
*
* SendRequest codes that we accept
*
*******************************************************************************
internalOpenCDev	equ $9900	;3-Sep-92 DAL for 6.0.1d10
cpOpenCDev	equ $9000
cpOpenControlPanels	equ $9001
finderSaysHello	equ $0100
finderSaysGoodbye	equ $0101
finderSaysBeforeOpen equ $0104
finderSaysOpenFailed equ $0105
systemSaysMenuKey	equ $0f01
tellFinderOpenWindow equ $8002

*******************************************************************************
*
* Structure of the cpOpenCDev / finderSaysBeforeOpen parm block
*
*******************************************************************************
opCount	equ 0
oPathname	equ opCount+2
oSmallRect	equ oPathname+4
oFiletype	equ oSmallRect+4
oAuxtype	equ oFiletype+2
oFinderModifiers	equ oAuxtype+4
oFinderIconHandle	equ oFinderModifiers+2
oPrintFlag	equ oFinderIconHandle+4

*******************************************************************************
*******************************************************************************
*
* NDA header
*
*******************************************************************************
CtlPanelNDA	proc export
	dc.l NDAOpen	; Pointer to the open routine
	dc.l NDAClose	; Pointer to the close routine
	dc.l NDAAction	; Pointer to the action routine glue
	dc.l NDAInit	; Pointer to the init routine glue
NDAPeriod	dc.w $FFFF	; How often the NDA gets 
NDAEventMask	dc.w $A16E	; Describes what events the NDA wants
	dc.b '**'	; two place-holding characters
NDAMenuLine	dc.b 'Control Panels'
	dc.b '\H'
myMenuID	dc.b '**'	; \H and two place-holding characters
	dc.b 0	; The menu item string terminator
*******************************************************************************
MyMemID	dc.w 0
	export MainWindPtr
MainWindPtr	dc.l 0
	export MainResFile
MainResFile	dc.w 0	;this is 0 if our resource fork isn't open
NumCDevsOpen	dc.w 0	;number of CDev windows open
*******************************************************************************

	import HandleActivate
	import WhatAccessRequest

*******************************************************************************
*
* GetMyMainMenuID
*
* Output: A = my NDA menu item's ID, to pass to OpenNDA to open me
*
*******************************************************************************
	export GetMyMainMenuID
GetMyMainMenuID	lda >myMenuID
	rtl

*******************************************************************************
*
* AdjustNumCDevsOpen
*
* Input: -1, 0, or 1 in A to decrement, retrieve, or increment the number
*        of CDev windows open
*
* Output: A = new number of CDev windows open
*
*******************************************************************************
	export AdjustNumCDevsOpen
AdjustNumCDevsOpen	clc
	adc >NumCDevsOpen
	sta >NumCDevsOpen
	rtl

*******************************************************************************
*
* NDAInit
*
* A=0  for shutdown
* A<>0 for startup
*
*******************************************************************************
	import cbp

NDAInit	phb
	phk
	plb
	pha	;save code on stack

	jsr CheckMinQDVersion
	pla	;added 14-May-91 DAL
	bcc @exit
	pha	;added 14-May-91 DAL

	pha
	_MMStartUp
	pla
	ora #$0100
	sta MyMemID

* Adjust for daylight savings time!
	jsl cbp	;check BRAM parameters (Stein's code)

	pla
	bne @startup
	jsr ndaInitShutdown
	bra @exit
@startup	jsr ndaInitStartup

@exit	plb
	rtl


*******************************************************************************
*
* ndaInitStartup -- our Init routine got called with A<>0
*
*******************************************************************************
ndaInitStartup	jsr InstallRequestProc
	rts


*******************************************************************************
*
* ndaInitShutDown--our Init routine got called with A=0
*
* Do CDev.Init tasks here--we need to call the BootCDEV routine
* of every CDev that wants it.
*
*******************************************************************************
ndaInitShutdown	jsr RemoveRequestProc

	lda bootedFlag
	bne @booted
	jsr DoWantBoot
	sec
	ror bootedFlag
@booted
	rts

bootedFlag	dc.w 0	;nonzero if we already did boot messages

*******************************************************************************
*
* DoWantBoot
*
* Send the BootCDEV message to every CDev that has its wantBoot flag bit set.
*
*******************************************************************************
DoWantBoot	jsl StartResourceManager
	jsl GetCDevList

	phd
	pea 0	;index = 0..CDevListCount-1
	pushlong CDevItemsHandle
	pha
	pha	;space for path pointer
	tsc
	tcd
@pathptr	equ 1
@itemPtr	equ @pathptr+4
@counter	equ @itemPtr+4
	ldy #2
	lda [@itemPtr],y
	tax
	lda [@itemPtr]
	sta @itemPtr
	stx @itemPtr+2	;dereffed CDevItemsHandle into pointer

@walk	lda @counter
	cmp CDevListCount
	bcs @done

	ldy #oCDevItemFlags
	lda [@itemPtr],y
	and #wantBoot
	beq @skipThis

	jsr @BootThisCDev

@skipThis	clc
	lda @itemPtr
	adc #CDEVITEMSIZE
	sta @itemPtr
	bcc @1
	inc @itemPtr+2
@1	inc @counter
	bra @walk

@done	pla
	pla	;pulled pathname pointer
	pla
	pla	;pulled CDev item pointer
	pla	;pulled counter
	pld

	jsl DisposeCDevList
	jsl StopResourceManager
	rts

*******************************************************************************
*
* @BootThisCDev
*
* @itemPtr points to the CDev's item record
* @pathPtr is available for us to use
*
* We need to draw the CDev's icon on the boot screen,
* open its resource fork, load its code, and then
* call the boot message.
*
* Output: none
*
*******************************************************************************
@BootThisCDev

*** draw the boot-time icon
	ldy #oCDevItemIconOffset+2
	lda [@itemPtr],y
	pha
	dey
	dey
	lda [@itemPtr],y
	pha

	phd
	pushlong CDevIconsHandle
	tsc
	tcd
	ldy #2
	lda [1],y
	tax
	lda [1]
	clc
	adc 7,s
	sta 1
	txa
	adc 7+2,s
	sta 3

	pla
	plx
	pld	;icon pointer in XA

	ply
	ply	;throw away icon offset

	pea 0
	pea 0	;no string for ShowBootInfo
	phx
	pha	
	_ShowBootInfo
*** done drawing icon

	lda CDevPathsHandle+2
	ldy CDevPathsHandle
	sta @pathPtr+2
	sty @pathPtr
	ldy #2
	lda [@pathPtr],y
	tax
	lda [@pathPtr]
	sta @pathPtr
	stx @pathPtr+2

	ldy #oCDevItemPathOffset
	clc
	lda @pathPtr
	adc [@itemPtr],y
	sta @pathPtr
	lda @pathPtr+2
	iny
	iny
	adc [@itemPtr],y
	sta @pathPtr+2

	pha	;space for OpenResourceFile result
	pea 1	;access = read-only
	pea 0
	pea 0	;map address
	pei <@pathPtr+2
	pei <@pathPtr
	jsr GetAndFixPrefs	;3-Dec-91 DAL
	_OpenResourceFile
	jsr RestorePrefs	;3-Dec-91 DAL
	plx
	bcs @outtahere

	phx	;keep for CloseResourceFile

	pha
	pha	;space for LoadResource
	pea rCDevCode
	pushlong #1	;ID=1
	_LoadResource
	plx
	pla
	bcs @couldNotLoadCode
	pha
	phx

	phd
	tsc
	tcd
	ldy #1	;deref code handle into JSL operand
	lda [3],y
	sta @toTheCDev+2
	lda [3]
	sta @toTheCDev+1
	pld
;;;	;pla
;;;	;pla	;pull pointer

;;;	;pha
;;;	;pha	;push CDev result space
	pea BootCDEV
	pushlong #bootResultBuffer  ;data1 = buffer pointer
	stz bootResultBuffer
	lda #0
	pha
	pha	;data2 = reserved
@toTheCDev	jsl >$777777	;self-modified
	pla
	pla	;(ignore CDev result)

	lsr bootResultBuffer
	bcc @noXout
	jsr drawXicon
@noXout

@closeAndExit	_CloseResourceFile

@outtahere	rts


*** If we couldn't init the CDev, "X" out its icon
@couldNotLoadCode	_CloseResourceFile

	jsr drawXicon

	pea $000c	;operation failed
	_SysBeep2

	rts

*
* bootResultBuffer
*
* +000: bit 0 = draw an X through me
*
* Other bytes are reserved for future definition
*
bootResultBuffer	dc.w 0,0,0,0,0,0,0,0

*******************************************************************************
*
* drawXicon -- draw our rIcon("X") resource over the previous icon
*
*******************************************************************************
drawXicon	pha
	pha	;space for LoadResource
	pea rIcon
	pushlong #$07FF0058	;Sys.Resources "X" icon
	_LoadResource
	pla
	plx
	bcs @ohDang
	
	phd	;XA = icon handle
	phx
	pha
	tsc
	tcd
	ldy #4	;offset to attributes
	lda [1],y
	ora #$8000
	sta [1],y	;locked handle
	dey
	dey	;Y=2 for dereference
	lda [1],y
	ora #$8000	;set bit 31 of icon pointer (overwrite icon)
	tax
	lda [1]	;XA now = icon pointer, with bit 31 set

	pea 0
	pea 0	;no string for ShowBootInfo
	phx
	pha	;icon pointer (bit 31 set = overwrite)
	_ShowBootInfo

	ldy #4	;offset to attributes
	lda [1],y
	asl a
	lsr a
	sta [1],y	;unlocked handle

	ply
	ply
	pld

	pea 2	;purge level
	pea rIcon
	pushlong #$07FF0058
	_ReleaseResource
@ohDang	rts

*******************************************************************************
*
* NDAOpen--returns window pointer on stack
*
*******************************************************************************
result	equ  5	;RTL address and B on the stack already

NDAOpen	phb
	phk
	plb
	lda #0
	sta result,s
	sta result+2,s	;anticipate no window

	jsr CheckMinQDVersion
	bcs @systemOK

*** Use an old call to beep if the System version is too old!
@badSystem	_SysBeep	;don't use SysBeep2, it isn't available!
	_SysBeep
	brl @outtaHere

@systemOK

*** Start up the List Manager, we'll need it!
	pea 0
	_ListStatus
	pla
	bne @gotListMgr

	pea $001C	;List Manager
	pea $0303	;version 3.3
	_LoadOneTool
	bcs @badSystem
	_ListStartUp
@gotListMgr

*** removed, QDAux is loaded/started by WindStartup. 16-Mar-93 SS
;*** Start up QD Aux, we'll need it!
;	pea 0
;;;;	_QDAuxStartUp
;*** fixed 7-Feb-92 DAL -- typo!
;	_QDAuxStatus
;*** end 7-Feb-92
;	pla
;	bne @gotQDAux
;
;	pea $0012	;QDAux
;	pea $0304	;version 3.4
;	_LoadOneTool
;	bcs @badSystem
;	_QDAuxStartUp
;@gotQDAux

*
* If the Option key is down, try to open the *:System:CDevs folder
* instead of opening the NDA window
*
	lda >$e0c025
	and #$0040	;check option key
	beq @dontTryFinder

	jsr TryFinderWindow
	bcs @dontTryFinder
	brl @outtaHere

@dontTryFinder	pha
	pha
	_GetPort
	pla
	sta oldPort
	pla
	sta oldPort+2

	_WaitCursor

	pha
	_GetCurResourceApp
	pla
	sta oldResApp
	bcs @error	;possible if Resource Mgr not here!

	jsl StartResourceManager
	bcs @error

	jsr MakeMainWindow
	bcs @error
	stx MainWindPtr+2
	sta MainWindPtr

	jsr MakeVersionNumber

	jsr PushMainWindPtr
	_SetSysWindow

	jsr PushMainWindPtr
	_SetPort

	jsl GetCDevList

	jsr FixUpListControl

	lda MainWindPtr+2
	sta result+2,s
	lda MainWindPtr
	sta result,s

	jsr WhooshOpen	;*** 3-Mar-93 SS
	
	jsr PushMainWindPtr
	_ShowWindow

*** force main window to update right away
	jsr PushMainWindPtr
	_BeginUpdate
	jsl MainContentDraw
	jsr PushMainWindPtr
	_EndUpdate

@error	lda oldResApp
	pha
	_SetCurResourceApp	;restore ResourceApp

	pushlong oldPort
	_SetPort

	_InitCursor

@outtaHere	plb
	rtl

oldResApp	dc.w 0
oldPort	dc.l 0

*******************************************************************************
*
* TryFinderWindow -- if the Finder is around, let it open up
* *:System:CDevs for us
*
*******************************************************************************
TryFinderWindow	pea tellFinderOpenWindow
	pea 1	;by String
	pushlong #FinderString
	pushlong #thePathname
	pushlong #FndrBuff	;output
	_SendRequest
	rts

FinderString	str 'Apple~Finder~'
thePathname	dc.b 14,0,'*:System:CDevs'

FndrBuff	dc.w 0	;recvCount (result)
	dc.w 0	;finderResult (result)
	dc.l 0	;window pointer (result)

*******************************************************************************
*
* CheckMinQDVersion
*
* Returns SEC if the QuickDraw version is high enough
*
*******************************************************************************
CheckMinQDVersion	pea 0
	_QDVersion
	pla
	and #$0fff
	cmp #MinQDVersion
	rts


*******************************************************************************
*
* MakeVersionNumber
*
* Set the text for the VersionControl (static text), by loading our
* rVersion(1) resource and calling VersionString.
*
*******************************************************************************
MakeVersionNumber	lda MainResFile
	jsr UseOnlyThisFile
	pha
	phx
	jsr @MakeVerNum
	plx
	pla
	jsr RestoreOldFile
	rts

@MakeVerNum	pha
	pha
	pea $8029	;rVersion
	pushlong #1
	_LoadResource
	bcs @ouch

	phd
	tsc
	tcd
	ldy #4
	lda [3],y
	ora #$8000
	sta [3],y	;lock the handle
	dey
	dey
	lda [3],y	;dereference it
	tax
	lda [3]
	sta 3
	stx 5

	pea 0	;flags for VersionString
	lda [3],y	;Y is still 2 from above
	pha
	lda [3]
	pha	;version number to convert
	pushlong #versionBuffer
	_VersionString

	pld
	pla
	pla	;throw out pointer

	pea $ffff	;dispose flag
	pea $8029	;rVersion
	pushlong #1
	_ReleaseResource

	pushlong #versionBuffer+1
	jsr PushVersionHandle
	_SetCtlTitle

	lda versionBuffer
	and #$00ff
	pha
	jsr PushVersionHandle
	_SetCtlValue	;value is the length of the text

	rts

@ouch	pla
	pla
	rts

versionBuffer	ds.b 10

PushVersionHandle	lda #VersionControlID
	brl PushCtlHandle


*******************************************************************************
*
* StartResourceManager
*
* If we don't already have the Resource Manager started, then:
*   Start up the resource manager
*   Log in the CodeResConverter for rCDEVCode
*   Open the NDA's resource fork with as-allowed permissions
*
* Returns CLC if successful.
*
*******************************************************************************
	export StartResourceManager
StartResourceManager
	clc
	lda MainResfile
	bne @done

;	pha
;	_MMStartUp
;	_ResourceStartUp
;
;*** Log in the CodeResConverter for rCDEVCode
;	pha
;	pha
;	_GetCodeResConverter
;	pea rCDEVCode
;	pea 1	;log in as Application converter
;	_ResourceConverter
;
;* for OpenResourceFile, push requested access, map handle (0), and pathname
;	pha	;space for OpenResourceFile result
;
;	jsl WhatAccessRequest ;read-only for AppleShare!
;	pha
;
;	lda #0
;	pha
;	pha	;pushed 0 for resource map
;	jsr GetMyPathname
;	phy
;	pha
;	jsr GetAndFixPrefs
;	_OpenResourceFile
;	jsr RestorePrefs	;preserves Carry from OpenResourceFile
;	plx
;	bcs @error
;	stx MainResFile
;@error
;@done	rtl

*** 15-Jul-92 DAL -- use OpenResourceFileByID, mainly to exercise it
	pha	;space for OpenResourceFileByID
	jsl WhatAccessRequest ;read-only for AppleShare
	pha	;reqAccess for OpenResourceFileByID
	pha	;space for MMStartUp
	_MMStartUp	;pass ID to OpenResourceFileByID
	jsr GetAndFixPrefs
	ldx #$2E1E
	jsl $e10000
;	_OpenResourceFileByID
	jsr RestorePrefs	;preserves Carry from OpenResourceFile
	pla	;discard result

	bcs @done

*** Log in the CodeResConverter for rCDEVCode
	pha
	pha
	_GetCodeResConverter
	pea rCDEVCode
	pea 1	;log in as Application converter
	_ResourceConverter

	pha
	_GetCurResourceFile
	pla
	sta MainResFile
*** end 15-Jul-92

@done	rtl


*******************************************************************************
*
* StopResourceManager
*
* If there are no CDev windows open and the main window isn't open either,
* shut down the resource manager.
*
*******************************************************************************
	export StopResourceManager
StopResourceManager	phb
	phk
	plb

	ldx MainResFile
	beq @dontStop	;we don't seem to have started it!

	lda NumCDevsOpen
	bne @dontStop
	lda MainWindPtr+1
	bne @dontStop

	lda MainResFile
	ora #$8000	;force it closed!
	pha
	_CloseResourceFile
	stz MainResFile

	_ResourceShutDown

@dontStop	plb
	rtl


*******************************************************************************
*
* UseOnlyThisFile
*
* Input:  Resource file number in A
*
* Output:  Current resource file is set, depth is 1
*          Previous file in A, previous depth in X
*
*******************************************************************************
UseOnlyThisFile	pha

	pha	;space for cur resource file
	_GetCurResourceFile

	pha	;space for old depth
	pea 1
	_SetResourceFileDepth

	lda 5,s	;retrieve input
	pha
	_SetCurResourceFile

	plx	;get old depth
	pla	;get old file
	ply	;throw away copy of input

	rts

*******************************************************************************
*
* RestoreOldFile
*
* Input:  Resource file in A, depth in X
*
*******************************************************************************
RestoreOldFile	pha	;resource file number
	phx	;space for old depth
	phx	;new depth
	_SetResourceFileDepth
	plx	;throw away
	_SetCurResourceFile
	rts


;;; Not needed with OpenResourceFileByID
;*******************************************************************************
;*
;* GetMyPathname
;*
;* Input: none
;*
;* Output: pointer to class-one pathname in YA
;*
;*******************************************************************************
;GetMyPathname	pha
;	pha	;space for LGetPathname2
;	pha	;space for MMStartUp
;	_MMStartUp
;	pea 1	;file number 1
;	_LGetPathname2
;	pla
;	ply
;	rts


*******************************************************************************
*
* MakeMainWindow--return pointer in XA
*
*******************************************************************************
MakeMainWindow
	import UseStandardPalette
*** Removed 6-May-93 DAL
;;;	jsl UseStandardPalette	;22-Mar-91 DAL

	pha		;15-Sep-91 DAL
	_GetCurResourceFile		;
	lda MainResFile		;
	pha		;
	_SetCurResourceFile		;

	jsr SetUpMainWindowLocation	;4-Sep-91 DAL

	pha
	pha
	pushlong #0	;title
	pushlong #0	;refcon
	pushlong #MainContentDraw
	pushlong #0	;custom defproc
	pea 2	;by Resource
	pushlong #1	;resource ID
	pea rWindParam1	
	_NewWindow2

	lda 5,s
	pha
	_SetCurResourceFile

	pla
	plx	;XA = window pointer
	ply	;discard old Resource File setting

	rts

*******************************************************************************
*
* SetUpMainWindowLocation
*
* From rTwoRects(1), get the 320 or 640 rectangle and cram it into the
* rWindParam(1) resource.
*
*******************************************************************************
SetUpMainWindowLocation
	pha
	pha
	pea rTwoRects
	pushlong #1
	_LoadResource
	plx
	ply
	bcc @noDang
	brl @dang
@noDang	phy
	phx	;re-push rTwoRects(1) handle
	phd
	tsc
	tcd
	ldy #4
	lda [<3],y
	ora #$8000
	sta [<3],y	;locked rTwoRects
	dey
	dey
	lda [<3],y
	tax
	lda [<3]
	sta <3
	stx <5	;derefed rTwoRects

	jsr Bump3by8for640
	pei <5
	pei <3	;push source pointer for BlockMove

	pha
	pha
	pea rWindParam1
	pushlong #1
	_LoadResource
	phd
	tsc
	tcd
	ldy #2
	clc
	lda [3]
	adc #$3e	;offset to wPosition
	tax
	lda [3],y
	adc #0
	sta <5
	stx <3
	pld	;left dest pointer for BlockMove
	
	pushlong #8	;size of a rect
	_BlockMove	;move into rWindParam1 template
	pld
	plx
	plx	;discard long

	pha
	pha
	pea rTwoRects
	pushlong #1
	_LoadResource
	_HUnlock

@dang	rts


Bump3by8for640	pha
	_GetMasterSCB
	pla
	and #$0080
	beq @ok
	lda #8	;offset to 640 rectangle
	clc
	adc <3
	sta <3
	bcc @ok
	inc <5
@ok	rts

*******************************************************************************
*
* RecordMainWindPosition -- if window moved, write its new position to the
*                           rTwoRects(1) resource
*
*******************************************************************************
RecordMainWindPosition
; check if resource fork is writeable??
	pha
	pha
	pea rTwoRects
	pushlong #1
	_LoadResource
	plx
	ply
	bcc @noDang
	brl @dang
@noDang	phy
	phx

	phd
	tsc
	tcd
	ldy #4
	lda [<3],y
	ora #$8000
	sta [<3],y	;locked rTwoRects
	dey
	dey
	lda [<3],y
	tax
	lda [<3]
	sta <3
	stx <5	;derefed rTwoRects

	jsr Bump3by8for640
	pha
	pha
	_GetPort
	jsr PushMainWindPtr
	_SetPort
	stz theWindPos
	stz theWindPos+2
	pushlong #theWindPos
	_LocalToGlobal
	_SetPort

	lda theWindPos
	cmp [3]
	bne @dirty
	lda theWindPos+2
	ldy #2
	cmp [3],y
	beq @notDirty

@dirty	pei 5
	pei 3
	ldy #2
	lda [3],y
	eor #$ffff
	inc a	;-left
	pha
	lda [3]	;-top
	eor #$ffff
	inc a
	pha
	_OffsetRect
	pei 5
	pei 3
	lda theWindPos+2
	pha
	lda theWindPos
	pha
	_OffsetRect

	pea $ffff	;true
	pea rTwoRects
	pushlong #1
	_MarkResourceChange

@notDirty	pld
	plx
	plx	;discard long

@dang	rts

theWindPos	dc.w 0,0

*******************************************************************************
*
* FixUpListControl
*
* Inputs:
*   CDevListCount -- number of CDevs
*   CDevItemsHandle
*   CDevPathsHandle
*   CDevIconsHandle
*
* Outputs:
*   The main window's list control is up to date
*
*******************************************************************************
FixUpListControl	lda CDevListCount	;make sure there are some! *** 16-Mar-93 SS
	bne @some
	stz ListMemHandle	;otherwise, obliterate the handle,
	stz ListMemHandle+2 ; skip the devastating SelectMember2,
	brl @none	; and just dim the buttons.
	
@some	pha
	pha	;space for NewHandle result
	pha
	pha	;space for Multiply result
	pea LISTMEMSIZE
	pha	;(CDevListCount)
	_Multiply	;leave result on stack for NewHandle
	jsr PushDataID	
	pea $C000	;locked and fixed
	pha
	pha	;location (ignored)
	_NewHandle
	pla
	sta ListMemHandle
	pla
	sta ListMemHandle+2

;;;	lda #0	;a=0 to build list for the first time (7-Feb-92 DAL)
;;;	jsr CallBuildMemRec
	pushlong ListMemHandle
	pushlong CDevItemsHandle
	pushlong CDevIconsHandle
	pushlong CDevPathsHandle
	jsr BuildTheMemRec

	pushlong #MainListDraw
	pea 1	;start
	pushlong ListMemHandle
	pea 1	;ListMemHandle is a handle
	lda CDevListCount
	pha
	jsr PushListControl
	_NewList2

	pushlong #1	;case-insensitive
	jsr PushListControl
	_SortList2

	pea 1
	jsr PushListControl
	_SelectMember2

@none	jsr SetButtonStates
	rts

;	export RebuildMemRec
;RebuildMemRec	lda #$ffff	;A=$FFFF to rebuilt list (preserve selection) (7-Feb-92 DAL)
;	jsr CallBuildMemRec
;	pushlong #1	;case-insensitive
;	jsr PushListControl
;	_SortList2
;	jsr SetButtonStates
;	rts

;CallBuildMemRec
;;;;	tax	;save build/rebuild flag
;	pushlong ListMemHandle
;	pushlong CDevItemsHandle
;	pushlong CDevIconsHandle
;	pushlong CDevPathsHandle
;;;;	txa	;build/rebuild flag
;	jsr BuildTheMemRec
;	rts

*******************************************************************************
*
* PushListControl -- push the handle to the main window's list control
*
*******************************************************************************
PushListControl	lda #ListControlID
	brl PushCtlHandle


*******************************************************************************
*
* BuildTheMemRec
*
* Stack Inputs:
*   HANDLE  ListMemHandle
*   HANDLE  CDevItemsHandle
*   HANDLE  CDevIconsHandle
*   HANDLE  CDevPathsHandle
*
* Other inputs:
*   CDevListCount
*
* Outputs:
*   The member record handle is done!  It contains pointers into the other
*   handles, which had better be locked at this point.
*
*******************************************************************************
BuildTheMemRec	phd
	tsc
	tcd

@oldD	equ 1
@rts	equ @oldD+2
@paths	equ @rts+2
@icons	equ @paths+4
@items	equ @icons+4
@memrec	equ @items+4

	ldy #2
	lda [@paths],y
	tax
	lda [@paths]
	sta @paths
	stx @paths+2

	lda [@icons],y
	tax
	lda [@icons]
	sta @icons
	stx @icons+2

	lda [@items],y
	tax
	lda [@items]
	sta @items
	stx @items+2

	lda [@memrec],y
	tax
	lda [@memrec]
	sta @memrec
	stx @memrec+2

	stz CDevIndex	;count from 0 up, numbering the CDevs
	lda CDevListCount
	beq @done
@next	pha

	ldy #oMemName
	clc
	lda @items
	adc #oCDevItemName
	sta [@memrec],y
	iny
	iny
	lda @items+2
	adc #0
	sta [@memrec],y

	ldy #oCDevItemIconOffset+2
	lda [@items],y
	tax
	dey
	dey
	lda [@items],y
	clc
	adc @icons
	ldy #oMemIcon
	sta [@memrec],y
	txa
	adc @icons+2
	iny
	iny
	sta [@memrec],y

	ldy #oMemCDevNumber
	lda CDevIndex
	sta [@memrec],y

	lda #0
	ldy #oMemFlags
	sta [@memrec],y

*** added 6-Feb-92 DAL -- If the CDev is known to be open, set the Open flag
	ldy #oCDevItemWindow+1
	lda [@items],y
	beq @storeState
	lda #2	;open
@storeState
*** end 6-Feb-92
	ldy #oMemState
	sta [@memrec],y

*** added 6-Feb-92 DAL -- store the item pointer in the member record
	ldy #oMemItemPtr
	lda <@items
	sta [<@memrec],y
	iny
	iny
	lda <@items+2
	sta [<@memrec],y
*** end 6-Feb-92

	clc
	lda @memrec
	adc #LISTMEMSIZE
	sta @memrec
	bcc @1
	inc @memrec+2
@1

	clc
	lda @items
	adc #CDEVITEMSIZE
	sta @items
	bcc @2
	inc @items+2
@2
	inc CDevIndex
	pla
	dec a
	bne @next

@done	pld
	plx
	tsc
	clc
	adc #16
	tcs
	phx
	rts

cdevIndex	dc.w 0

*******************************************************************************
*
* MainListDraw
*
* Stack on entry:
*
* | previous contents |
* |-------------------|
* |      rectPtr      |  LONG
* |-------------------|
* |  memberRecordPtr  |  LONG
* |-------------------|
* |   ListCtlHandle   |  LONG
* |-------------------|
* |    RTL Address    |  3 BYTES
* |-------------------|
*                        <-- stack pointer
*
*******************************************************************************
*
* Member Record format:
*
*   +000: oMemName       Name pointer (Pascal string)
*   +004: oMemFlags      member flags
*   +006: oMemIcon       Icon Pointer
*   +010: oMemState      State to draw icon in (the Open bit is valid)
*   +012  LISTMEMSIZE
*
*******************************************************************************
MainListDraw	phd
	tsc
	tcd

@oldD	equ 1
@RTL	equ @oldD+2
@ListCtlHndl	equ @RTL+3
@memRecPtr	equ @ListCtlHndl+4
@rectPtr	equ @memRecPtr+4
@InputSize	equ 12	;number of bytes to strip

* Make a copy of the rect so we can fiddle with it

	ldy #6
	tyx
@copyR	lda [<@rectPtr],y
	sta >@LocalRect,x
	dey
	dey
	dex
	dex
	bpl @copyR
	lda #^@LocalRect
	ldx #@LocalRect
	sta <@rectPtr+2
	stx <@rectPtr

* Erase the rectangle

	pei <@rectPtr+2
	pei <@rectPtr
	_EraseRect

* Draw the CDev's icon

	ldy #oMemIcon+2
	lda [<@memRecPtr],y
	pha
	dey
	dey
	lda [<@memRecPtr],y
	pha	;pushed icon	
	jsr @ComputeIconModeWord
	phx	;pushed mode
	jsr @ComputeIconXCoord
	pha	;pushed X coordinate
	lda [<@rectPtr]	;top
	inc a
	inc a
	pha	;pushed Y coordinate (rect.top+2)
	_DrawIcon	;icon, mode, x, y

* Now draw the CDev's name

*** Preserve CharExtra
	pha
	pha
	_GetCharExtra

	pha	;space for StringWidth result
	ldy #oMemName+2
	lda [<@memRecPtr],y
	pha
	lda [<@memRecPtr]
	pha
	_StringWidth	;width at 1,s

*** Of the string is too wide, use SetCharExtra(-1)
	lda 1,s
	cmp #TheListWidth
	bcc @widthOK

	pea $ffff
	pea 0
	_SetCharExtra

	ldy #oMemName+2
	lda [<@memRecPtr],y
	pha
	lda [<@memRecPtr]
	pha
	_StringWidth	;width at 1,s
@widthOK

	ldy #6	;right
	lda [<@rectPtr],y
	sec
	ldy #2	;left
	sbc [<@rectPtr],y
	sec
	sbc 1,s
*** Do a sign-friendly divide-by-2
	cmp #$8000
	ror a

	clc
	ldy #2	;left
	adc [<@rectPtr],y
	sta [<@rectPtr],y	;stored new Left value

	pha	;MoveTo(left,bottom-2)
	ldy #4	;bottom
	lda [<@rectPtr],y
	dec a
	dec a
	pha	;pushed bottom-2
	_MoveTo
	ldy #oMemName+2
	lda [<@memRecPtr],y
	pha
	lda [<@memRecPtr]
	pha
	_DrawString

	ldy #oMemFlags
	lda [<@memRecPtr],y
	and #$0080
	beq @noInvertName
* bottom -= 1; top = bottom-9; left--; right=left+width+1
	ldy #4
	lda [<@rectPtr],y
	dec a
	sta [<@rectPtr],y
	sec
	sbc #9
	sta [<@rectPtr]	;store new top (offset 0)
	ldy #2	;left
	lda [<@rectPtr],y
	dec a
	sta [<@rectPtr],y
	clc
	adc 1,s
	inc a
	ldy #6	;right
	sta [<@rectPtr],y

	pei <@rectPtr+2
	pei <@rectPtr
	_InvertRect

@noInvertName	pla	;discard StringWidth result

	_SetCharExtra	;23-Jul-91 DAL -- restore CharExtra

* Remove the 12 bytes of input parameters and return
	pld
	lda 2,s
	sta 2+@InputSize,s
	lda 1,s
	sta 1+@InputSize,s
	tsc
	clc
	adc #@InputSize
	tcs
	rtl

@LocalRect	ds.b 8

*******************************************************************************
*
* ComputeIconXCoord
*
* Inputs: @rectPtr and Master SCB
*
* Output: Return value in A
*
*******************************************************************************
@ComputeIconXCoord	ldy #6	;right
	lda [<@rectPtr],y
	sec
	ldy #2	;left
	sbc [<@rectPtr],y
	lsr a
	sec
	sbc #28
	clc
	ldy #2	;left
	adc [<@rectPtr],y
	pha

*
* If 320 mode then IconX += 14
*
	pha
	_GetMasterSCB
	pla
	and #$0080
	bne @not320
	pla
	clc
	adc #14
	pha
@not320	
	lda 1,s	;just force it even!
	and #1
	clc
	adc 1,s

	plx	;discard
	rts

*******************************************************************************
*
* ComputeIconModeWord
*
* Start with the mode word in the member record.  If list member
* is selected, turn on the Selected bit.
*
* (Return value in X.)
*
*******************************************************************************
@ComputeIconModeWord
	ldy #oMemState
	lda [<@memRecPtr],y
	and #$fffe	;ignore the Selected bit
	tax
	ldy #oMemFlags
	lda [<@memRecPtr],y
	and #$0080
	beq @notSelected
	inx	;turn on the Selected bit
@notSelected	rts

*******************************************************************************
*
* MainContentDraw -- Bank register not set!
*
*******************************************************************************
MainContentDraw	pha
	_GetCurResourceFile
	lda >MainResFile
	pha
	_SetCurResourceFile

	pha
	pha
	_GetPort
	_DrawControls

	_SetCurResourceFile
	rtl

*******************************************************************************
*
* PushMainWindPtr -- put window pointer on stack above RTS address
*
*******************************************************************************
	export PushMainWindPtr
PushMainWindPtr	plx
	lda MainWindPtr+2
	pha
	lda MainWindPtr
	pha
	phx
	rts

*******************************************************************************
*
* NDAClose -- close the main window
*
*******************************************************************************
	import DeactivateIfNotMyWindowNext
NDAClose	phb
	phk
	plb
	lda MainWindPtr+1
	beq @notOpen

	pha
	_GetCurResourceFile
	lda MainResFile
	pha
	_SetCurResourceFile

;	pha
;	pha
;	_GetPort
;	jsr PushMainWindPtr
;	_SetPort
;; Don't need to do anything here....
;	_SetPort	;restore old port


	jsr RecordMainWindPosition

	jsr PushMainWindPtr	;*** 3-Mar-93 SS
	_HideWindow	;*** 3-Mar-93 SS
	jsr WhooshClosed	;*** 3-Mar-93 SS
	
	jsr PushMainWindPtr
	_CloseWindow
	stz MainWindPtr
	stz MainWindPtr+2

;;;	lda #0
;;;	jsl HandleActivate
	jsl DeactivateIfNotMyWindowNext	;17-Mar-93 DAL

	_SetCurResourceFile

	jsl StopResourceManager

	jsl DisposeListMemHndl   ;6-Feb-92 DAL
	jsl CondDisposeCDevList  ;get rid of it if we're done!

@notOpen	plb
	rtl


******************************************************************* 3-Mar-93 SS
*
* Whoosh Open & Closed
*
* input: none
*
* output: none
*
*******************************************************************************

WhooshOpen	lda #$8000
	bra dirSet
WhooshClosed	lda #0
dirSet	pha		
	pea 0
	pushlong #smallRect
	
	pha	; setup the bigRect
	pha
	jsr PushMainWindPtr
	_GetStructRgn
	phd
	tsc
	tcd
	
	lda [3]	;deref the handle to the region
	tax
	ldy #2
	lda [3],y
	sta 3+2
	stx 3
	
	ldy #6+2
@loop	lda [3],y
	sta bigRect-2,y
	dey
	dey
	bne @loop
	
	pld
	pla
	pla
	
	pushlong #bigRect
	_WhooshRect
	rts

smallRect	dc.w 14,14,15,15
bigRect	dc.w 00,00,00,00


*******************************************************************************
*******************************************************************************
*
* NDAAction for the main window
*
* A=action
* YX=pointer
*
*******************************************************************************
NDAAction	phd
	phb
	phk
	plb
	pha	;action = <5
	phy	;ptr high = <3
	phx	;ptr low = <1
	tsc
	tcd

	pha
	_GetCurResourceFile
	lda MainResFile
	pha
	_SetCurResourceFile

	pha
	pha
	_GetPort	;leave old port on stack
	jsr PushMainWindPtr
	_SetPort

	lda <5
	asl a
	tax
	cmp #actionEnd-actionTable
	bcs @tooBig
	jsr (actionTable,x)
@tooBig	_SetPort	;restore old port

	_SetCurResourceFile	;added 1-Apr-91 DAL

	plx	;pull ptr low
	plx	;pull ptr high
	plx	;pull action
	plb
	pld
	lda #0	;return value
	rtl

actionTable	dc.w null	;0 = unused
	dc.w doEvent	;1 = eventAction
	dc.w doRun	;2 = runAction
	dc.w doCursor	;3 = cursorAction
	dc.w null	;4 = unused
	dc.w doUndo	;5 = undoAction
	dc.w doCut	;6 = cutAction
	dc.w doCopy	;7 = copyAction
	dc.w doPaste	;8 = pasteAction
	dc.w doClear	;9 = clearAction
*** added 2-Jul-92 DAL
	dc.w doSysClick	;10 = sysClickAction
	dc.w doOptionalClose ;11 = optionalCloseAction
	dc.w doReOpen	;12 = reOpenAction
*** end 2-Jul-92
actionEnd

*******************************************************************************
*
* Boring actions received by the Main window
*
*******************************************************************************
doSysClick
doOptionalClose
doCursor
doUndo
doCut
doCopy
doPaste
doClear
null	rts

*******************************************************************************
*
* doReOpen (new routine 2-Jul-92 DAL)
*
* We are already open, and they chose use again from the Apple menu (or
* NDAOpen happened some other way, like thru our key equivalent).
*
* If the Option key is down, do the Finder window thang.  Otherwise
* let the system bring us to the front as usual.
*
* If we already took care of everything, stuff a $0001 at [<1] to tell
* the system so.
*
*******************************************************************************
doReOpen	lda >$e0c025
	and #$0040	;check option key
	beq @normal

	jsr TryFinderWindow
	bcs @normal

	lda #1
	sta [<1]

@normal	rts


*******************************************************************************
*
* doRun -- run event received by the main window
*
*******************************************************************************
doRun	rts

*******************************************************************************
*
* doEvent -- Event Manager event received by the Main window
*
*******************************************************************************
	import DeactivateIfNotMyWindowNext

doEvent	jsl SpecialEventHandling	;added 15-Jul-92 DAL
	pei 3
	pei 1
	pushlong #myTaskRec
	pushlong #16
	_BlockMove

*** make Command-O like Return
	lda myTaskWhat
	cmp #3	;keyDown event
	bne @notCommandKey
	lda myTaskMods
	and #$0100
	beq @notCommandKey
	lda myTaskMsg
*** do Command-? or Command-/
	cmp #'?'
	beq @isQuestion
	cmp #'/'
	bne @notQuestion
@isQuestion
*** blink the Help button & do Help
	lda #'H'
	sta myTaskMsg
	bra @cmdKeyDone
@notQuestion
	and #$00df
	cmp #'O'	;allow "o" or "O"
	bne @notCommandO
	lda #13	;Return
	sta myTaskMsg
	bra @cmdKeyDone
@notCommandO
@notCommandKey
@cmdKeyDone

	pha	;result space
	pha	;input mask (ignored)
	pushlong #myTaskRec
	_TaskMasterDA
	pla

	cmp #activateEvt
	bne @notActivate

	lda myTaskMods
*** added 17-Mar-93 DAL
	and #1
	bne @normal
	jsl DeactivateIfNotMyWindowNext
	rts
@normal
*** end 17-Mar-93
	jsl HandleActivate
	rts

@notActivate	cmp #wInControl
	bne @notControlHit

*
* Now myTaskData2 = control handle, myTaskData4 = control ID
*

	lda myTaskData4
@hitControlA	asl a
	tax
	cmp #@ctlTableEnd-@ctlTable
	bcs @bogus
	jsr (@ctlTable,x)
@bogus

@notControlHit	rts

@ctlTable	dc.w @null	;0
	dc.w hitList	;1
	dc.w hitOpen	;2
	dc.w hitHelp	;3
	dc.w hitAbout	;4
	dc.w hitVersion	;5
@ctlTableEnd

@null	rts

*******************************************************************************
*
* hitOpen -- they want to open all the selected CDevs
*
*******************************************************************************
hitOpen	pha
	pha
	_GetCursorAdr
	_WaitCursor

@loop	pha	;space for ResetMember2 result
	jsr PushListControl
	_ResetMember2
	pla
	beq @done
	jsr OpenCDevNumberA
	bra @loop

@done	jsr SetButtonStates
	_SetCursor
	rts

*******************************************************************************
*
* OpenCDevNumberA
*
* Input:  A = item number from the main list (1=first)
*
* WARNING: Stack frame shared between OpenCDevNumberA, LocateCDevNumberA,
*          DerefAYToPtr, and AboutCDevNumberA
*
*******************************************************************************
	import globalErrorCode:data
OpenCDevNumberA	phd
	pha
	pha	;space for pointer
	dec a	;make cdev number 0-based
	sta TheRawCDevNumber
	pha	;raw cdev number
	pha	;translated cdev number
	tsc
	tcd

@cdevnum	equ 1	;position in the CDevItem list
@rawcdevnum	equ @cdevnum+2	;position in MemRec (sorted list)
@ptr	equ @rawcdevnum+2

	jsr LocateCDevNumberA  ;returns path ptr in @ptr

	lda <@ptr+2
	ldy <@ptr
	sta srqPath+2
	sty srqPath

	lda @rawcdevnum
	jsr CalcZoomRect
	sta zoomRectPtr+2
	sty zoomRectPtr

	jsr InvalZoomRect

*** If already open, just bring it to the front
	lda TheItemPtr+2
	ldy TheItemPtr
	sta <@ptr+2
	sty <@ptr
	ldy #oCDevItemWindow+1
	lda [<@ptr],y
	beq @notAlreadyOpen

	iny
	lda [<@ptr],y
	pha
	dey
	dey
	lda [<@ptr],y
	pha
	_SelectWindow
	brl @exit
@notAlreadyOpen

;;;	pea cpOpenCDev
	pea internalOpenCDev  ;3-Sep-92 DAL
	pea $8002	;how = by user ID, stop after acceptance
	pea 0
	pha
	_MMStartUp	;target = my own memory ID
	pla
	ora #$0100
	pha
	pushlong #srqParmBlock
	pushlong #0	;output buffer
	_SendRequest
	bcc @1

	tax
	lda >globalErrorCode
	cmp #$ffff	;flag = MachineCDEV returned 0
	beq @quietExit
	txa

	jsr ErrorWindowA
@quietExit	brl @exit
@1

*** Redraw the source icon as Open
	jsr InvalZoomAndRedraw

*** If Option is down, schedule closing the main window
	lda MyTaskMods
	and #$0800	;option key
	beq @noOption

	pha	;space for result
	pushlong #CloseMainWindTask
	_SchAddTask
	pla
@noOption

@exit	pla	;throw away CDev number
	pla	;throw away the raw cdev number
	pla
	pla	;throw away pointer
	pld
	rts

	entry globalErrorCode
globalErrorCode	dc.w 0

*******************************************************************************
*
* CloseMainWindTask -- if the main window is open, close it!
*
*******************************************************************************
CloseMainWindTask	php
	rep #$30
	phb
	phk
	plb

	lda MainWindPtr+1
	beq @exit

	lda MainWindPtr+2
	pha
	lda MainWindPtr
	pha
	_CloseNDAByWinPtr

@exit	plb
	plp
	rtl


*******************************************************************************
*
* ClosingCDevWindow
*
* Inputs:
*   LONG  window pointer being closed
*
* Action taken:
*   Hide the window and zoom it closed to the right place, if its icon is
*     visible.
*   Mark the icon closed and invalidate the icon rectangle.
*   Zero out the window pointer field of the CDev Item.
*
*******************************************************************************
	export ClosingCDevWindow
	entry FindListIndex
ClosingCDevWindow	phd
	pha
	pha	;space for @refcon
	pha
	pha	;space for @ItemPtr
	tsc
	tcd

@itemPtr	equ 1
@refcon	equ @itemPtr+4
@oldD	equ @refcon+4
@rtl	equ @oldD+2
@window	equ @rtl+3

	pei <@window+2
	pei <@window
	_HideWindow

	pha
	pha
	pei <@window+2
	pei <@window
	_GetWRefCon
	pla
	sta <@refcon
	pla
	sta <@refcon+2

	ldy #owbCDevItemPtr+1
	lda [<@refcon],y
	bne @1
	brl @noItemStruct
@1
	ldy #owbCDevItemPtr
	lda [<@refcon],y
	sta <@itemPtr
	iny
	iny
	lda [<@refcon],y
	sta <@itemPtr+2

;;;	ldy #owbRawCDevNumber
;;;	lda [<@refcon],y
*** added 6-Feb-92 DAL -- find the real position of this CDev in the list
	lda <@itemPtr+2
	ldy <@itemPtr
	jsr FindListIndex
	ldy #owbRawCDevNumber
	sta [<@refcon],y
*** end 6-Feb-92
	sta TheRawCDevNumber

;
; zoom closed if possible
;
; Rect1 = LocalToGlobal on the portrect of @window
; Rect2 = the icon's rectangle (calczoomrect)
;

	lda MainWindPtr+1
	bne @isOpen
	brl @mainWindowClosed
@isOpen

	pha
	pha
	_GetPort
	pei <@window+2
	pei <@window
	_SetPort
	pushlong #theWindRect
	_GetPortRect
	pushlong #theWindRect
	_LocalToGlobal
	pushlong #theWindRect+4
	_LocalToGlobal

	jsr PushMainWindPtr
	_SetPort

	pea 0	;flags (zoom closed)
	pea 0	;flags (low word)
	ldy #owbRawCDevNumber
	lda [<@refcon],y
	jsr CalcZoomRect	;port must be main window
*** added 7-Feb-92 DAL
	sta zoomRectPtr+2
	sty zoomRectPtr
*** end 7-Feb-92
	pha
	phy
	pushlong #theWindRect
	_WhooshRect

	_SetPort

@mainWindowClosed

; mark the icon closed
@ptr	equ 1

	lda ListMemHandle+1	;8-Jul-91 DAL
	beq @noListExists	;8-Jul-91 DAL

	phd
	pushlong ListMemHandle
	tsc
	tcd
	ldy #2
	lda [@ptr],y
	tax
	lda [@ptr]
	sta @ptr
	stx @ptr+2

	pha
	pha	;space for _Multiply
	lda TheRawCDevNumber
	pha
	pea LISTMEMSIZE
	_Multiply
	clc
	pla
	adc <@ptr
	sta <@ptr
	pla
	adc <@ptr+2
	sta <@ptr+2

	ldy #oMemState
	lda [<@ptr],y
	and #$ffff-$0002	;draw the icon as Closed
	sta [<@ptr],y

	pla
	pla
	pld

@noListExists

; invalidate the icon
	lda MainWindPtr+1
	beq @cantInval
	jsr InvalZoomAndRedraw
@cantInval

	lda #0
	ldy #oCDevItemWindow
	sta [<@itemPtr],y
	iny
	iny
	sta [<@itemPtr],y

@noItemStruct	pla
	pla
	pla
	pla
	pld

	lda 1,s
	sta 1+4,s
	lda 2,s
	sta 2+4,s
	pla
	pla
	rtl

theWindRect	dc.w 0,0,0,0


InvalZoomAndRedraw	pha
	pha
	_GetPort
	jsr PushMainWindPtr
	_SetPort
	jsr InvalZoomRect
	jsr ForceMainUpdate	;4-Dec-91 DAL
	_SetPort
	rts

*
* FindListIndex
*
* Input: AY = CDev item pointer to find
*        ListMemHandle
*        CDevListCount
*
* Output: A = position of this CDev in the sorted MemRec list (zero based)
*
FindListIndex	sta @targetItem+2
	sty @targetItem

	lda #0
@loop	pha
	jsr @FetchItemPtr	;into AY
	cmp @targetItem+2
	bne @next
	cpy @targetItem
	beq @found
@next	pla
	inc a
	cmp CDevListCount
	bcc @loop
	lda #0	;should never get here!!
	rts

@found	pla
	rts

@targetItem	dc.l 0

*
* FetchItemPtr
*
* In: A = index into ListMemHandle
*
* Out: AY = oMemItemPtr for this item
*
@FetchItemPtr	phd
	pha	;index into list
	pushlong ListMemHandle
	tsc
	tcd

@list	equ 1
@index	equ @list+4

	ldy #2
	lda [<@list],y
	tax
	lda [<@list]
	sta <@list
	stx <@list+2

	pha
	pha
	pea LISTMEMSIZE
	pei <@index
	_Multiply
	clc
	pla
	adc <@list
	sta <@list
	pla
	adc <@list+2
	sta <@list+2

	ldy #oMemItemPtr
	lda [<@list],y
	tax
	iny
	iny
	lda [<@list],y
	txy

	plx
	plx	;pulled list pointer
	plx	;pulled index
	pld
	rts

*******************************************************************************
*
* InvalZoomRect
*
*******************************************************************************
InvalZoomRect	lda zoomRectPtr+1
	beq @noInval

	pushlong zoomRectPtr
	pushlong #localZoomRect
	pushlong #8
	_BlockMove

	stz zeropoint
	stz zeropoint+2
	pushlong #zeropoint
	_GlobalToLocal	;convert (0,0) to local coordinates

	pushlong #localZoomRect
	lda zeropoint+2
	pha
	lda zeropoint
	pha
	_OffsetRect	;offset entire rect by same amount

	pushlong #localZoomRect
	_InvalRect	;invalidate the local rectangle
@noInval	rts

zeropoint	dc.w 0,0
localZoomRect	dc.w 0,0,0,0

*******************************************************************************
*
* ForceMainUpdate
*
* Update the main window right now, before the user has a chance to scroll
* one of their icons out from underneath the invalidated area!
*
*******************************************************************************
ForceMainUpdate	jsr PushMainWindPtr
	_BeginUpdate
	jsl MainContentDraw
	jsr PushMainWindPtr
	_EndUpdate
	rts

*******************************************************************************
*
* LocateCDevNumberA
*
* Inputs: A = CDev number (1=first)
*
* Output: @ptr points to CDev's pathname
*         AY points to the CDev's item record
*
* WARNING: Stack frame shared between OpenCDevNumberA, LocateCDevNumberA,
*          DerefAYToPtr, and AboutCDevNumberA
*
*******************************************************************************
LocateCDevNumberA

@cdevnum	equ 1	;position in the CDevItem list
@rawcdevnum	equ @cdevnum+2	;position in MemRec (sorted list)
@ptr	equ @rawcdevnum+2

*** get the real CDev number (the one we have now is based on the SORTED list)

	lda ListMemHandle+2
	ldy ListMemHandle
	jsr DerefAYtoPtr

	pha
	pha	;space for _Multiply
	pei @rawcdevnum	;0-based
	pea LISTMEMSIZE
	_Multiply
	clc
	pla
	adc <@ptr
	sta <@ptr
	pla
	adc <@ptr+2
	sta <@ptr+2

	ldy #oMemCDevNumber
	lda [<@ptr],y	;zero-based
	sta <@cdevnum

	lda CDevItemsHandle+2
	ldy CDevItemsHandle
	jsr DerefAYtoPtr

	pha
	pha	;space for _Multiply result
	pei @cdevnum	;CDev number (0-based)
	pea CDEVITEMSIZE
	_Multiply
	clc
	pla
	adc <@ptr
	sta <@ptr
	sta TheItemPtr
	pla
	adc <@ptr+2
	sta <@ptr+2
	sta TheItemPtr+2
	ldy #oCDevItemPathOffset+2
	lda [<@ptr],y
	pha
	dey
	dey
	lda [<@ptr],y
	pha

	lda CDevPathsHandle+2
	ldy CDevPathsHandle
	jsr DerefAYtoPtr
	clc
	pla
	adc <@ptr
	sta <@ptr
	pla
	adc <@ptr+2
	sta <@ptr+2

	lda TheItemPtr+2
	ldy TheItemPtr
	rts

	export TheItemPtr
TheItemPtr	dc.l 0
	export TheRawCDevNumber
TheRawCDevNumber	dc.w 0

*******************************************************************************
*
* DerefAYtoPtr -- private to OpenCDevNumberA
*
* @ptr must be 5!
*
* WARNING: Stack frame shared between OpenCDevNumberA, LocateCDevNumberA,
*          DerefAYToPtr, and AboutCDevNumberA
*
*******************************************************************************
DerefAYtoPtr
@ptr	equ 5
	sta <@ptr+2
	sty <@ptr
	ldy #2
	lda [<@ptr],y
	tay
	lda [<@ptr]
	sta <@ptr
	sty <@ptr+2
	rts

*******************************************************************************
*
* Parameter block for the cpOpenCDev request
*
*******************************************************************************
srqParmBlock	dc.w 4	;parameter count
srqPath	dc.l 0	;pointer to pathname
zoomRectPtr	dc.l 0	;rectangle to zoom from
	dc.w CDevFileType	;filetype
	dc.l 0	;auxiliary type

smallZoomRect	ds.b 8

*******************************************************************************
*
* CalcZoomRect
*
* Input:
*   CDev number in A (zero based)
*
* Output:
*   AY = NIL or pointer to icon rectangle
*
*******************************************************************************
CalcZoomRect	inc a
	sta @num	;1-based number

	pha
	jsr PushListControl
	_GetCtlValue
	pla
	eor #$ffff
	sec
	adc @num
	bmi @nil
	cmp #3	;listView--3 items visible at once
	bcs @nil
	pha

	lda #3	;top
	sta smallZoomRect
	lda #33+3	;bottom
	sta smallZoomRect+4
	lda #12	;left
	sta smallZoomRect+2
	lda #104	;right
	sta smallZoomRect+6
	pushlong #smallZoomRect	;offset the top left
	_LocalToGlobal
	pushlong #smallZoomRect+4	;offset the bottom right
	_LocalToGlobal

	pla
	pha
	pha	;space for Multiply result
	pha	;number of positions down we are
	pea 33	;height of CDev item
	_Multiply
	ply	;amount to offset
	plx

	pushlong #smallZoomRect
	pea 0	;horizontal offset
	phy	;vertical offset
	_OffsetRect

	lda #^smallZoomRect
	ldy #smallZoomRect
	rts

@nil	lda #0
	tay
	rts

@num	dc.w 0


*******************************************************************************
*
* ErrorWindowA
*
*******************************************************************************
ErrorWindowA	pha	;space for button
	pea 0	;sub type
	pea 0
	pea 0	;substitution array
	pha	;error number
	jsr @saveCursor
	_ErrorWindow
	jsr @restoreCursor
	pla
	rts

@saveCursor	pha
	pha
	_GetCursorAdr
	pla
	sta @localCursor
	pla
	sta @localCursor+2
	_InitCursor
	rts

@restoreCursor	pushlong @localCursor
	_SetCursor
	rts

@localCursor	dc.l 0

*******************************************************************************
*
* hitHelp -- they want the Help for the selected CDevs
*
*******************************************************************************
hitHelp	lda #0
@loop	pha	;space for NextMember2 result
	pha	;item num input
	jsr PushListControl
	_NextMember2
	pla
	beq @done
	pha
	jsr AboutCDevNumberA
	pla
	bra @loop
@done	rts


*******************************************************************************
*
* AboutCDevNumberA
*
* The CDev they want help with may or may not already be open.
*
* WARNING: Stack frame shared between OpenCDevNumberA, LocateCDevNumberA,
*          DerefAYToPtr, and AboutCDevNumberA
*
*******************************************************************************
AboutCDevNumberA	phd
	pha
	pha	;space for pointer
	dec a	;make cdev number 0-based
	pha	;raw cdev number
	pha	;translated cdev number
	tsc
	tcd

@cdevnum	equ 1	;position in the CDevItem list
@rawcdevnum	equ @cdevnum+2	;position in MemRec (sorted list)
@ptr	equ @rawcdevnum+2

	lda <@rawcdevnum
	jsr LocateCDevNumberA  ;returns path ptr in @ptr, item rec in AY
	pei @ptr+2
	pei @ptr	;keep path in case we need it
	sta @ptr+2
	sty @ptr
	ldy #oCDevItemWindow+1
	lda [@ptr],y
	beq @notOpen
* it's already open--get reference number from window block
	plx
	plx	;threw out the pathname pointer
	pha
	pha	;space for GetWRefCon result
	ldy #oCdevItemWindow+2
	lda [@ptr],y
	pha
	dey
	dey
	lda [@ptr],y
	pha
	_GetWRefCon
	phd
	tsc
	tcd
	ldy #owbResfileNum
	lda [3],y
	tax
	pld
	pla
	pla
	lda #0	;flag = CDev's about box, not ours
	jsr DoAboutBox
@exit	pla	;throw away CDev number
	pla	;throw away the raw cdev number
	pla
	pla	;throw away pointer
	pld
	rts

*
* notopen -- pathname pointer already on the stack
*
@notopen	plx
	ply
	pha	;space for OpenResourceFile result
	pea 1	;read-only access
	pushlong #0	;map address
	phy
	phx	;pathname pointer
	jsr GetAndFixPrefs	;3-Dec-91 DAL
	_OpenResourceFile
	jsr RestorePrefs	;3-Dec-91 DAL
	plx
	bcs @err

	phx	;copy of refnum for CloseResourceFile later

	lda #0	;flag = a CDev's about box, not ours
	jsr DoAboutBox	;X reg = resource file number

	_CloseResourceFile
	bra @exit

@err	jsr ErrorWindowA
	bra @exit

*******************************************************************************
*
* hitVersion  -- fall into hitAbout
*
*******************************************************************************
hitVersion
*******************************************************************************
*
* hitAbout -- they need help with the Control Panel itself
*
*******************************************************************************
hitAbout	lda #1	;flag = our own About window, not a CDev's
	jsr DoAboutBox
	rts

*******************************************************************************
*
* DoAboutBox
*
* Inputs: A = 0 if we should do a CDev's about box
*             1 for the main Control Panel about box
*
*         X = resource file reference number if we're doing a CDev about
*             (undefined for the CP's about box)
*
*******************************************************************************
	import IgnoreOneDeactivate
DoAboutBox	sta ourAboutFlag
	stx aboutCDevResNum

	tay
	bne @noWaitCur
	_WaitCursor
@noWaitCur

	jsl IgnoreOneDeactivate   ;use the cool color table (17-Mar-93 DAL)

	jsr GetExtraTools

	stz TheAboutIcon+1

*** fix up the window rectangle
	lda #25
	sta aboutRect+0	;y1
	lda #190
	sta aboutRect+4	;y2
	lda #172
	sta aboutRect+2	;x1
	lda #464
	sta aboutRect+6	;x2
	pha
	_GetMasterSCB
	pla
	and #$0080
	bne @is640
	lda #12
	sta aboutRect+2	;x1
	lda #306
	sta aboutRect+6	;x2
@is640
	pha
	pha
	_GetPort	;leave port on stack for @exit

*** create our about window
	pha
	pha	;space for NewWindow result
	pushlong #aboutRec
	_NewWindow

	pla
	sta aboutWindow
	pla
	sta aboutWindow+2
	bcc @1
	brl @exit
@1

*** create the OK button
	pha
	pha	;space for NewControl2 result
	jsr pushAboutWindow
	pea 3	;pointer to template pointers
	pushlong #aboutItems
	_NewControl2
	pla
	pla	;(ignore result)

	pha	;preserve resource file & use the CDev
	_GetCurResourceFile

*** Is it the Control Panel help window?
	lda ourAboutFlag
	beq @notOurs

*** create our help text control
	pha
	pha	;space for NewControl2 result
	jsr pushAboutWindow
	pea 0
	pushlong #myabout
	_NewControl2
	pla
	pla	;(ignore result)
	brl @doneAddingCtls

*** let the CDev create its controls
@notOurs	lda aboutCDevResNum
	pha
	_SetCurResourceFile

	lda #$ffff	;so we don't do a NewControl2 on it!
	sta TheAboutFlags	;(anticipate trouble)

	pha
	pha
	pea rCDevFlags
	pushlong #1
	_LoadResource
	pla
	ply
	bcs @flagsErr
	phy
	pha
	pushlong #TheAboutFlags
	pushlong #aboutFlagsEnd-TheAboutFlags
	_HandToPtr

	pha
	pha	;space for LoadResource result
	pea rIcon
	pushlong #1
	_LoadResource
	lda 3,s
	pha
	lda 3,s
	pha
	_HLock
	phd
	tsc
	tcd
	ldy #2
	lda [3],y
	sta TheAboutIcon+2
	lda [3]
	sta TheAboutIcon
	pld
	pla
	pla

@flagsErr
	lda TheAboutFlags
	and #wantAbout
	beq @noWantAbout

	lda #0
	pha
	pha
	pea AboutCDev
	jsr pushAboutWindow
	pha
	pha
	jsl CallTheTopCDev
	pla
	ply
	bra @doneAddingCtls

*** the CDev doesn't want to, so we'll use the CDev's rControlList ID=2 resource
@noWantAbout	pha
	pha	;space for NewControl2 result
	jsr pushAboutWindow
	pea 9	;resourceToResource
	pushlong #2	;rControlList ID=2
	_NewControl2
	pla
	pla	;(ignore result)

@doneAddingCtls	pha
	pea 1
	_WindowGlobal	;make the main window not unhilite when we open the new one
	pla

	jsr pushAboutWindow
	_ShowWindow

	_InitCursor

	pha
	pea $fffe	;re-enable normal window hiliting
	_WindowGlobal
	pla

@modal	pha
	pha	;space for DoModalWindow result
	pushlong #myTaskRec
	pushlong #DrawAbout	;update
	pushlong #0	;event hook
	pushlong #0	;beep proc
	pea 0	;flags
	_DoModalWindow
	pla
	plx
	cmp #1000	;OK button hit?
	bne @modal

	jsr pushAboutWindow
	_CloseWindow

	_SetCurResourceFile

@exit	_SetPort

*** added 7-Feb-92 DAL
	jsr ReleaseExtraTools
*** end 7-Feb-92

	_InitCursor
	rts

pushAboutWindow	plx
	pushlong aboutWindow
	phx
	rts

aboutWindow	dc.l 0
ourAboutFlag	dc.w 0
aboutCDevResNum	dc.w 0

*******************************************************************************
*
* GetExtraTools
*
* If Text Edit and Font Manager aren't started, let's start them up so
* CDev Help windows can use them cleanly.
*
*******************************************************************************
GetExtraTools	stz WeLoadedFM
	stz WeStartedFM

	pea 0
	_FMStatus
	pla
	bcc @present

	pea $001b	;Font Mgr
	pea $0303	;3.3
	_LoadOneTool
	bcs @fmDone
	inc WeLoadedFM

	pea 0
	_FMStatus
	pla
@present	bne @fmDone

	pha
	_MMStartUp	;id for FMStartUp
	jsr GetDirPage
	pha	;dp for FMStartUp
	stx fmHandle+2
	sty fmHandle
	_FMStartUp
	inc WeStartedFM
@fmDone

*** Now do the same for Text Edit
	stz WeLoadedTE
	stz WeStartedTE

	pea 0
	_TEStatus
	pla
	bcc @tePresent

	pea $0022	;Text Edit
	pea $0103	;1.3
	_LoadOneTool
	bcs @teDone
	inc WeLoadedTE

	pea 0
	_TEStatus
	pla
@tePresent	bne @teDone

	pha
	_MMStartUp	;id for TEStartUp
	jsr GetDirPage
	pha	;dp for TEStartUp
	stx teHandle+2
	sty teHandle
	_TEStartUp
	inc WeStartedTE

@teDone	rts

*
* GetDirPage -- return handle in XY, pointer in A
*
GetDirPage	pha
	pha
	pea 0
	pea $0100	;one page
	pha
	_MMStartUp	;mem id
	pea $c015	;attr
	pea 0
	pea 0	;bank zero
	_NewHandle
	phd
	tsc
	tcd
	lda [3]	;deref
	pld
	ply
	plx
	rts

*******************************************************************************
*
* ReleaseExtraTools
*
* If we started up Text Edit or Font Manager in GetExtraTools, free them.
*
*******************************************************************************
ReleaseExtraTools	lda WeStartedTE
	beq @noStopTE

	_TEShutDown
	pushlong teHandle
	_DisposeHandle
	stz teHandle+1

@noStopTE	lda WeLoadedTE
	beq @noUnloadTE

	pea $0022	;text edit
	_UnloadOneTool

@noUnloadTE	lda WeStartedFM
	beq @noStopFM

	_FMShutDown
	pushlong fmHandle
	_DisposeHandle
	stz fmHandle+1

@noStopFM	lda WeLoadedFM
	beq @noUnloadFM

	pea $001b	;font manager
	_UnloadOneTool

@noUnloadFM	rts

WeLoadedFM	dc.w 0
WeStartedFM	dc.w 0

WeLoadedTE	dc.w 0
WeStartedTE	dc.w 0

fmHandle	dc.l 0
teHandle	dc.l 0

*******************************************************************************
*
* CallTheTopCDev -- transfer control to the CDev whose code is in the
*                   current resource file
*
* If there's a problem, then strip the 10 bytes of inputs to the CDev
* routine and just return.
*
*******************************************************************************
CallTheTopCDev	pha
	pha
	pea rCDevCode
	pushlong #1
	_LoadResource
	bcs @strip
	phd
	tsc
	tcd
	lda [3]
	sta @toTheCDev+1
	ldy #1
	lda [3],y
	sta @toTheCDev+2
	pld
	pla
	pla
@toTheCDev	jml >$777777

@strip	pla
	pla	;pulled LoadResource result
	lda 2,s
	sta 2+10,s
	lda 1,s
	sta 1+10,s
	pla
	pla
	pla
	pla
	pla
	rtl

*******************************************************************************
aboutRec	dc.w aboutEnd-aboutRec  ; param length
	dc.w $2000	; wFrame
	dc.l 0	; wTitle
	dc.l 0	; wRefCon
	dc.w 0,0,0,0	; wZoom top,left,bottom,right
	dc.l 0	; wColor
	dc.w 0	; wYOrigin
	dc.w 0	; wXOrigin
	dc.w 0	; wDataH
	dc.w 0	; wDataW
	dc.w 0	; wMaxH
	dc.w 0	; wMaxW
	dc.w 0	; wScrollVer
	dc.w 0	; wScrollHor
	dc.w 0	; wPageVer
	dc.w 0	; wPageHor
	dc.l 0	; wInfoRefCon
	dc.w 0	; wInfoHeight
	dc.l 0	; wFrameDefProc
	dc.l 0	; wInfoDefProc
	dc.l 0	; wContDefProc (DrawAbout will be used)
aboutRect	dc.w 25,0,190,320	; wPosition top,left,right,bottom
	dc.l -1	; wPlane
	dc.l 0	; wStorage
aboutEnd

*
* Control list for the About window
*
aboutItems	dc.l Okay
	dc.l 0
*
* Simple button: OK
*
Okay	dc.w 9
	dc.L 1000
	dc.w 146,20+84,160,100+84
	dc.L $80000000
	dc.w 1
	dc.w $3000
	dc.L 0
	dc.L TheTitle
	dc.L 0
	dc.b 13,13	;key equivalents
	dc.w 0
	dc.w 0
TheTitle	dc.b 2,'OK'

*
* stat text control for the main CP about text
*
myabout	dc.w 9	;pcount
	dc.l 5	
	dc.w 10,0,135,290
	dc.l $81000000	;stat text
	dc.w 0
	dc.w $1000
	dc.l 0 
	dc.l abt
	dc.w abtL
	dc.w 1

abt	dc.b 1,'S',16,0
	dc.b 'Control Panel 2.1',13
	dc.b 1,'S',0,0
	dc.b 'by',13
	dc.b 'Dave ÒMr TangentÓ Lyons',13
	dc.b 13
	dc.b 'Some portions by',13
	dc.b 'Michael Stein',13
	dc.b 'and',13
	dc.b 'Darryl Lovato',13
	dc.b 13
	dc.b 'Copyright (C) 1990-1993',13
	dc.b 'Apple Computer, Inc.',13
	dc.b 'All Rights Reserved',13
abtL	equ *-abt

*******************************************************************************
*
* DrawAbout
*
*******************************************************************************
DrawAbout	phb
	phk
	plb

	lda #2
	pha
	pha
	_SetPenSize
	pea 0
	pea 139
	_MoveTo
	pea 500
	pea 139
	_LineTo
	lda #1
	pha
	pha
	_SetPenSize

	lda TheAboutIcon+1
	beq @noIcon
	pushlong TheAboutIcon
	pea 0	;mode
	pea 6	;X position (was 4 in CP 1.x)
	pea 3	;Y position
	_DrawIcon
@noIcon
	lda aboutRect+6	;right edge
	sec
	sbc aboutRect+2	;left edge
	lsr a
	sta aboutCenter

	lda ourAboutFlag
	beq @1
	brl @skipStrings
@1
	pha
	pushlong #aflagName
	_StringWidth
	pla
	jsr Center
	pha
	pea 11
	_MoveTo
	pushlong #aflagName
	_DrawString

	pha
	pushlong #byStr
	_StringWidth
	pla
	jsr Center
	pha
	pea 21
	_MoveTo
	pushlong #byStr
	_DrawString

	pha
	pushlong #aflagAuthor
	_StringWidth
	pla
	jsr Center
	pha
	pea 31
	_MoveTo
	pushlong #aflagAuthor
	_DrawString

	pha
	pushlong #aflagVersionStr
	_StringWidth
	pla
	eor #$ffff
	sec
	adc aboutRect+6
	sec
	sbc aboutRect+2
	sec
	sbc #5
	pha
	pea 10
	_MoveTo
	pushlong #aflagVersionStr
	_DrawString
@skipStrings

	pha
	pha
	_GetPort
	_DrawControls

	plb
	rtl

Center	lsr a
	eor #$ffff
	sec
	adc aboutCenter
	rts

aboutCenter	dc.w 0

TheAboutIcon	dc.l 0

TheAboutFlags
aTheFlags	dc.w 0
aflagEnabled	dc.b 0
aflagVersion	dc.b 0
aflagMachine	dc.b 0
aflagReserved	dc.b 0
aflagDataRect	dc.w 0,0,0,0
aflagName	ds.b 16
aflagAuthor	ds.b 33
aflagVersionStr	ds.b 9
AboutFlagsEnd

byStr	dc.b 2,'by'


*******************************************************************************
*
* hitList
*
*******************************************************************************
hitList	jsr SetButtonStates

	lda myTaskWhat
	cmp #1	;mouse down?
	bne @ignoreHit
	lda myClickCount
	cmp #2
	bcc @ignoreHit


	lda theOpenButtonState
	cmp #$00ff
	beq @ignoreHit
	lda #2
	jsr HiliteOpen	;blink Open button on
	lda #0
	jsr HiliteOpen	;blink Open button off
	jsr hitOpen

@ignoreHit	rts

*******************************************************************************
*
* SetButtonStates
*
* See if there are any CDevs selected in the list.  If so, enable the Open
* and CDev-help buttons.  If not, disable them.
*
*******************************************************************************
SetButtonStates	lda #0
	pha	;space for NextMember2 result
	pha	;item num input
	jsr PushListControl
	_NextMember2
	pla
	beq @disable

*** Enable Help only if exactly 1 icon selected
	pha
	pha	;item num input
	jsr PushListControl
	_NextMember2
	pla
	beq @enable	;enable them both (no more selected icons)

	pea $00ff	;hilite state for Help button
	pea $0000	;hilite state for Open button
	bra @EnableJustOne

@disable	lda #$00ff
	bra @enableOrDisable

@enable	lda #0
@enableOrDisable	pha	;0 to enable, $FF to disable
	pha
@EnableJustOne	lda 1,s
	sta theOpenButtonState
	lda #OpenControlID
	jsr PushCtlHandle
	_HiliteControl
	lda #CDevHelpControlID
	jsr PushCtlHandle
	_HiliteControl
	rts

*******************************************************************************
*
* PushCtlHandle
*
* Input: control ID in A (for some control in the main window)
*
*******************************************************************************
PushCtlHandle	pha
	pha	;space for result (and temporary storage!)
	jsr PushMainWindPtr
	lda 5,s
	pea 0
	pha
	_GetCtlHandleFromID
	pla	;move result under return address
	ply
	plx
	phy
	pha
	phx
	rts

*******************************************************************************
*
* HiliteOpen
*
* Input:  part code in A (2 to hilite the Open button, 0 to unhilite it)
*
*******************************************************************************
HiliteOpen	pha	;hilite value
	sta theOpenButtonState
	lda #OpenControlID
	jsr PushCtlHandle
	_HiliteControl
	rts

theOpenButtonState	dc.w 0


*******************************************************************************
*
* Task record
*
*******************************************************************************
myTaskRec
myTaskWhat	dc.w 0
myTaskMsg	dc.l 0
	dc.l 0	;when
myTaskWhere	dc.w 0,0
myTaskMods	dc.w 0
myTaskData	dc.l 0
myTaskMask	dc.l $001fffff	;everything (5.0.3)
	dc.l 0	;lastClickTick
myClickCount	dc.w 0	;click count
myTaskData2	dc.l 0	;task data 2
myTaskData3	dc.l 0	;task data 3
myTaskData4	dc.l 0	;task data 4
	dc.w 0,0	;last click point


*******************************************************************************
*
* SpecialEventHandling
*
* Input:  event record pointer at <1
*
* If this is a Command-Control-Esc event, handle it and make the event
* into a null event.
*
*******************************************************************************
	export SpecialEventHandling
SpecialEventHandling

@event	equ 1

	lda [<@event]
	cmp #3	;is it a keyDown?
	bne @failed

	ldy #2	;offset to event Message
	lda [<@event],y
	and #$00ff
	cmp #$001b	;Escape?
	bne @failed

*** Require the Shift key & not the Control or Option keys
	ldy #14	;offset to event modifiers
	lda [<@event],y
	and #$1300	;ctrl+option+shift+apple
	cmp #$0300	;apple+shift
	bne @failed

	jsr OpenMyself

	lda #0
	sta [<@event]

@failed	rtl


*******************************************************************************
*******************************************************************************
*
* InstallRequestProc
*
*******************************************************************************
InstallRequestProc
*
* First, let's stuff our memory ID into our AcceptRequests string to
* make it unique (in case there is more than one copy of the Control
* panel in the machine).
*
	pha
	pha
	pha	;space for MMStartUp result
	_MMStartUp
	_HexIt
	pla
	sta ReqProcHexID
	pla
	sta ReqProcHexID+2

	ldx #^CtlPanelRequestProc
	ldy #CtlPanelRequestProc
	bra instOrRemoveRQ

*******************************************************************************
*
* RemoveRequestProc
*
*******************************************************************************
RemoveRequestProc	ldx #0
	txy
instOrRemoveRQ	pushlong #ReqProcName
	lda MyMemID
	pha
	phx
	phy	;nil or ReqProc ptr
	_AcceptRequests
	rts

ReqProcName	dc.b 25,'Apple~Control Panel~'
ReqProcHexID	dc.b 'xxxx~'

*******************************************************************************
*
* CtlPanelRequestProc
*
* This is called by the Tool Locator SendRequest call.
* For example, the Finder calls SendRequest when the user
* tries to open documents and the Finder doesn't know how.
*
*******************************************************************************
CtlPanelRequestProc	name

@oldDPage	equ 1
@RTL1	equ 3
@DataOut	equ 6
@DataIn	equ 10
@Request	equ 14
@Result	equ 16
@InputSize	equ 10	;request procs must clean 10 bytes from the stack

	phd
	tsc
	tcd
	phb
	phk
	plb
	lda <@Request
	sta @requestTable
	ldx #@requestTableEnd-@requestTable
@loop	dex
	dex
	dex
	dex
	cmp @requestTable,x
	bne @loop	
	jsr (@requestTable+2,x)
	ror <@Result	;rotate accept flag into bit 15
	plb
	pld
	lda 2,s	;clean InputSize bytes off the stack
	sta 2+@InputSize,s
	lda 1,s
	sta 1+@InputSize,s
	ply
	ply
	ply
	ply
	ply
	rtl

*******************************************************************************
*
* Request Table has one entry per request code that we handle.
* The first entry catches anything we don't match, so it has
* the "null" handler that never claims the request.
*
* Each request handler returns CLC if it didn't handle the
* request, SEC if it did.
*
*******************************************************************************
@requestTable	dc.w $7777
	dc.w    @handleOther
	dc.w finderSaysBeforeOpen
	dc.w    @handleBeforeOpen
*** added 3-Sep-92 DAL to fix bug introduced in 6.0.1d9
	dc.w internalOpenCDev
	dc.w    @handleOpenCDev
*** end 3-Sep-92
	dc.w cpOpenCDev
	dc.w    @handleBeforeOpen	;29-Jul-92 DAL (was @handleOpenCDev in 6.0)
	dc.w systemSaysMenuKey
	dc.w    @handleMenuKey
	dc.w cpOpenControlPanels
	dc.w    @handleOpenControlPanels
@requestTableEnd

@handleOther	clc
	rts

*******************************************************************************
*
* handleBeforeOpen
*
* The Finder wants us to open some documents.
*
* If these are CDev documents, let's try to open them.
*
* DataIn points to the following structure:
*   +000 WORD  parameter count (in 6.0, 6 means 7)
*   +002 LONG  pointer to class-one pathname
*   +006 LONG  pointer to rectangle to zoom from (NIL if none appropriate) 
*   +010 WORD  filetype
*   +012 LONG  auxtype
*   +016 WORD  modifiers
*   +018 LONG  Finder icon handle
*   +022 WORD  printFlag (0=open)
*
*******************************************************************************
@handleBeforeOpen	ldy #oFiletype
	lda [<@dataIn],y	;check filetype = CDEV
	cmp #CDevFileType
	bne @notCDev

*** 29-Jul-92 DAL -- see if there's a printFlag to check
	lda [<@dataIn]
	cmp #7
	bcc @noPrintFlag
*** end 29-Jul-92

*** make sure this is an Open, not a Print
	ldy #oPrintFlag
	lda [<@dataIn],y
	bne @notCDev

@noPrintFlag	lda #0
	sta >TheItemPtr
	sta >TheItemPtr+2
	sta >TheRawCDevNumber  ;6-Feb-92 DAL

	jsr @handleOpenCDev
	bcs @success
	lda >globalErrorCode
	cmp #$ffff	;sets carry if MachineCDev failed
@success
*** invalidate the list in the main window if we opened anything
	php
	pha

	lda MainWindPtr+1
	beq @noMainWindow

*** 15-Jul-92 DAL -- use new InvalOneCtlByID call
	jsr PushMainWindPtr
	pushlong #ListControlID
	ldx #$3E10
	jsl $e10000
;	_InvalOneCtlByID
*** end 15-Jul-92

@noMainWindow	pla
	plp
	rts

@notCDev	clc
	rts

*******************************************************************************
*
* handleOpenCDev
*
* DataIn points to the following structure:
*   +000 WORD  parameter count (at least 4)
*   +002 LONG  pointer to class-one pathname
*   +006 LONG  pointer to rectangle to zoom from (NIL if none appropriate) 
*   +010 WORD  filetype
*   +012 LONG  auxtype
*
* >TheItemPtr points to the CDevItem structure for this CDev, if any.
*
*******************************************************************************
	import OpenNewCDevAY
@handleOpenCDev	lda #0
	sta >globalErrorCode
	pha
	pha
	_GetCursorAdr
	pla
	sta @openOldCursor
	pla
	sta @openOldCursor+2

	ldy #oSmallRect+2
	lda [<@dataIn],y
	pha
	dey
	dey
	lda [<@dataIn],y
	pha

	ldy #oPathname+2
	lda [<@dataIn],y
	pha
	dey
	dey
	lda [<@dataIn],y
	tay
	pla
	jsl OpenNewCDevAY	;takes rectangle pointer on stack, returns TheCDevWindow in AY
	pha
	phy

	pushlong @openOldCursor
	_SetCursor

	pla	;see if result (LONG on stack) is NIL
	ora 1,s
	plx
	tax
	beq @failed
	sec
	rts

@failed	clc
	rts

@openOldCursor	dc.l 0

*******************************************************************************
*
* handleMenuKey
*
* DataIn points to the Task Record for the keyDown event
*
*******************************************************************************
@handleMenuKey	ldy #2	;offset to event Message
	lda [<@dataIn],y
	and #$00ff
	cmp #$001b	;Escape?
	bne @failed

*** Require the Shift key & not the Control or Option keys
	ldy #14	;offset to event modifiers
	lda [<@dataIn],y
	and #$1300	;ctrl+option+shift+apple
	cmp #$0300	;apple+shift
	bne @failed

	jsr OpenMyself

	sec	;claim the request
	rts

*******************************************************************************
*
* handleOpenControlPanels
*
* Open the main Control Panels window
*
*******************************************************************************
@handleOpenControlPanels
	jsr OpenMyself
	sec	;claim the request
	rts

*******************************************************************************
*
* OpenMyself -- call OpenNDA on myself, hiliting the first menu in
*               the current menu bar (I hope that's the Apple menu!)
*
*******************************************************************************
OpenMyself	pea $8000	;for HiliteMenu($8000,x) later (23-Nov-92 DAL)

	jsr GetFirstMenuID
	pha	;menu id for HiliteMenu(0,x) later

	pea $8001	;for HiliteMenu($8001,x) (23-Nov-92 DAL)
	pha	;menu ID
	_HiliteMenu

	pha	;space for OpenNDA result
	jsl GetMyMainMenuID
	pha
	_OpenNDA
	pla

	_HiliteMenu	;HiliteMenu($8000,x)
	rts

*
* GetFirstMenuID--return ID of first menu in A
*
GetFirstMenuID	pha
	pha	;space for GetMHandle result
	pea 0	;get first menu handle
	_GetMHandle
	phd
	tsc
	tcd
	ldy #2
	lda [3],y
	tax
	lda [3]
	sta 3
	stx 5
	lda [3]
	pld
	plx
	plx
	rts

*******************************************************************************
*******************************************************************************
*
* Miscellaneous subroutines
*
*******************************************************************************
GetAndFixPrefs	_GetSysPrefsGS oldPrefs
	lda oldPrefs+2
	and #$1fff	;keep the reserved bits
	ora #$C000	;turn on Use Volume Mount Dialog
		;no Cancel button! 3-Dec-91 DAL
	sta myPrefs+2
	_SetSysPrefsGS myPrefs
	rts

RestorePrefs	php
	pha
	_SetSysPrefsGS oldPrefs
	pla
	plp
	rts

oldPrefs	dc.w 1	;1 parameter
	dc.w 0	;the old SysPrefs

myPrefs	dc.w 1
	dc.w 0	;my modified preferences


*******************************************************************************
*******************************************************************************
*
* GetCDevList
*
* Inputs:
*   none
*
* Outputs:
*   Sets up CDevItemsHandle, CDevPathsHandle, CDevIconsHandle if they
*   are not already set up.
*
*******************************************************************************
	export GetCDevList
GetCDevList
*** added 6-Feb-92 DAL
	lda CDevItemsHandle+1
	bne @gotIt
*** end 6-Feb-92
	jsr ReadExistingDataFile
	bcs @rebuildList

* validate the list against the actual CDevs directory
	jsl DoValidationScan
	bcc @gotIt

@rebuildList	jsl ScanForCDevs
	jsr WriteDataFile
@gotIt	rtl

*******************************************************************************
*
* ReadExistingDatafile
*
* Returns CLC if we read a valid (up-to-date) file into the handles
*
*******************************************************************************
ReadExistingDataFile
	stz dataFileRef3
	lda #1	;read only
	sta dataFileReqAcc
	_OpenGS dataFileOpen
	bcs @nope
	lda dataFileRef
	sta dataFileRef2
	sta dataFileRef3

	lda #^CDevListSigBuffer
	ldy #CDevListSigBuffer
	sta dataReadWhere+2
	sty dataReadWhere
	lda #0
	ldy #6
	sta dataReadAmount+2
	sty dataReadAmount
	_ReadGS dataFileRead
	bcs @nope

* need to validate the signature stuff!

	lda CDevListSigBuffer
	cmp #$5644	;'DV'
	bne @nope
	lda CDevListSigBuffer+2
	cmp #1
	bne @nope

	jsr ReadNewHandle
	sta CDevItemsHandle+2
	sty CDevItemsHandle
	bcs @nope

	jsr ReadNewHandle
	sta CDevPathsHandle+2
	sty CDevPathsHandle
	bcs @nope

	jsr ReadNewHandle
	sta CDevIconsHandle+2
	sty CDevIconsHandle
	bcc @otay

@nope	sec
@otay	php
	pha
*** Don't Close(0) if we failed to open
	lda dataFileRef3
	beq @noClose
	_CloseGS dataFileClose
@noClose	pla
	plp
	bcc @keepIt
	pha
	jsl DisposeCDevList	;dispose of any handles we allocated
	pla
	sec
	rts

@keepIt	lda CDevListSigBuffer
	sta CDevListSignature
	lda CDevListSigBuffer+2
	sta CDevListSignature+2
	lda CDevListSigBuffer+4
	sta CDevListSignature+4
	clc
	rts

CDevListSigBuffer	ds.b CDEVLISTHEADERSIZE

ReadNewHandle	lda #^howMuch
	ldy #howMuch
	sta dataReadWhere+2
	sty dataReadWhere
	lda #0
	ldy #4
	sta dataReadAmount+2
	sty dataReadAmount
	_ReadGS dataFileRead

	lda howMuch+2
	ldy howMuch
	sta dataReadAmount+2
	sty dataReadAmount	;leave size needed in AY

	pha
	pha	;space for NewHandle result
	pha
	phy	;size needed
	jsr PushDataID
	pea $C000	;locked and fixed	
	pha
	pha	;location (ignored)
	_NewHandle
	bcs @error
	phd
	tsc
	tcd
	ldy #2	;dereference into Read parmblock
	lda [3],y
	sta dataReadWhere+2
	lda [3]
	sta dataReadWhere
	pld
	_ReadGS dataFileRead
@error	ply
	pla	;return handle in AY
	rts

howMuch	dc.l 0

*******************************************************************************
*
* WriteDataFile
*
* Try to Create, Open, and Write the data file
*
*******************************************************************************
WriteDataFile	_CreateGS dataFileCreate
	bcc @okay
	cmp #$47	;duplicate filename
	beq @exists
	sec
	rts

*** 16-Mar-92 DAL -- the old file may be locked--must unlock it
@exists	_SetFileInfoGS dataFileCreate
*** end 16-Mar-92

@okay	stz dataFileRef3	;anticipate failure to open (16-Mar-92 DAL)

	lda #3	;read/write
	sta dataFileReqAcc
	_OpenGS dataFileOpen
	bcs @nope
	lda dataFileRef
	sta dataFileRef2
	sta dataFileRef3

	lda #^CDevListSignature
	ldy #CDevListSignature
	sta dataReadWhere+2
	sty dataReadWhere
	lda #0
	ldy #6
	sta dataReadAmount+2
	sty dataReadAmount
	_WriteGS dataFileRead

	lda CDevItemsHandle+2
	ldy CDevItemsHandle
	jsr WriteAHandle
	bcs @closeAndKill

	lda CDevPathsHandle+2
	ldy CDevPathsHandle
	jsr WriteAHandle
	bcs @closeAndKill

	lda CDevIconsHandle+2
	ldy CDevIconsHandle
	jsr WriteAHandle
	bcs @closeAndKill

@nope	php
	lda dataFileRef3
	beq @noClose
	_CloseGS dataFileClose
@noClose	plp
	rts

@closeAndKill	pha
	_CloseGS dataFileClose
	_DestroyGS dataFileDestroy
	pla
	sec
	rts

WriteAHandle	pha
	phy	;push copy of handle

	pha
	pha	;space for GetHandleSize
	pha
	phy	;handle
	_GetHandleSize
	pla
	sta howMuch
	pla
	sta HowMuch+2

	lda #^howMuch
	ldy #howMuch
	sta dataReadWhere+2
	sty dataReadWhere
	lda #0
	ldy #4
	sta dataReadAmount+2
	sty dataReadAmount
	_WriteGS dataFileRead
	bcs @fail

	lda howMuch+2
	ldy howMuch
	sta dataReadAmount+2
	sty dataReadAmount	;leave size needed in AY

	phd
	tsc
	tcd
	ldy #2	;dereference into Read parmblock
	lda [3],y
	sta dataReadWhere+2
	lda [3]
	sta dataReadWhere
	pld
	_WriteGS dataFileRead
;;;	bcc @cleanExit
@fail
@cleanExit	ply
	pla	;pull copy of handle
	rts

*******************************************************************************
dataFileOpen	dc.w 3
dataFileRef	dc.w 0
	dc.l dataFilePath
dataFileReqAcc	dc.w $7777	;requested access

dataFilePath	dc.w 24
	dc.b '*:System:CDevs:CDev.Data'

dataFileRead	dc.w 4	;4 parameters
dataFileRef2	dc.w 0
dataReadWhere	dc.l 0
dataReadAmount	dc.l 0
	dc.l 0	;amount actually read

dataFileClose	dc.w 1	;1 parameter
datafileRef3	dc.w 0

dataFileDestroy	dc.w 1
	dc.l dataFilePath

*** Note: dataFileCreate is used for CreateGS *and* SetFileInfoGS
dataFileCreate	dc.w 3
	dc.l dataFilePath
	dc.w $00E7	;access (invisible = $0004 bit)
	dc.w CDevDataFileType

*******************************************************************************
*******************************************************************************
CDevListSignature	dc.w $5644	;'DV'
CDevListVersion	dc.w $0001
	export CDevListCount
CDevListCount	dc.w 0	;number of CDevs in list

	export CDevItemsHandle
CDevItemsHandle	dc.l 0
	export CDevPathsHandle
CDevPathsHandle	dc.l 0
	export CDevIconsHandle
CDevIconsHandle	dc.l 0

	export ListMemHandle
ListMemHandle	dc.l 0
*******************************************************************************

*******************************************************************************
*
* DisposeListMemHndl
*
*******************************************************************************
DisposeListMemHndl	lda ListMemHandle+1
	beq @4
	pushlong ListMemHandle
	_DisposeHandle
	stz ListMemHandle+1
@4	rtl

*******************************************************************************
*
* DisposeCDevList
*
*******************************************************************************

*** added 6-Feb-92 DAL -- Don't get rid of stuff we still need!
	export CondDisposeCDevList
CondDisposeCDevList	lda NumCDevsOpen
	bne dontKill
	lda MainWindPtr+1
	bne dontKill
*** end 6-Feb-92

DisposeCDevList	stz CDevListCount

	lda CDevIconsHandle+1
	beq @1
	pushlong CDevIconsHandle
	_DisposeHandle
	stz CDevIconsHandle+1

@1	lda CDevPathsHandle+1
	beq @2
	pushlong CDevPathsHandle
	_DisposeHandle
	stz CDevPathsHandle+1

@2	lda CDevItemsHandle+1
	beq @3
	pushlong CDevItemsHandle
	_DisposeHandle
	stz CDevItemsHandle+1
@3
dontKill	rtl


*******************************************************************************
*
* DoValidationScan
*
* Return CLC if the data file we already read in matches the current set
* of CDevs in the *:System:CDevs folder
*
* Comparision data is in CDevItemsHandle; there should be the same number
* as in CDevListSigBuffer+oCDevListCount
*
*
*******************************************************************************
DoValidationScan	lda #8
	jsr getPfx
	phy
	phx
	lda #0
	jsr getPfx
	phy
	phx

	_SetPrefixGS setZeroNull
	_SetPrefixGS setEightCdevDir

	stz ValidCount	;how many have we found so far?
	stz ItemArrayOffset	;which one are we looking at?

	jsr OpenDirectory
	php
	bcs @fail	;@fail requires carry status on stack
	plp

@next	jsr GetNextCDev
	bcs @done
	inc ValidCount
	jsr ValidateCDevEntry
	bcc @next
	sec
	bra @closeAndExit

*
* Ran out of CDevs--see if the counts match!
*
@done	lda validCount
	cmp CDevListSigBuffer+oCDevListCount
	sec
	bne @closeAndExit
	clc

@closeAndExit	php
	jsr CloseDirectory

@fail	plp
	plx	;restore prefix 0
	ply
	php
	lda #0
	jsr setPfx

	plp
	plx	;restore prefix 8
	ply
	php
	lda #8
	jsr setPfx

	plp	;clc if successful
	rtl

validCount	dc.w 0
ItemArrayOffset	dc.w 0	;offset into CDevItemsHandle

*
* ValidateCDevEntry
*
* Inputs:
*   entCreateDate (8 bytes)
*   CDev Item record at [CDevItemsHandle],ItemArrayOffset+oCDevItemCreateDate
*
* Returns SEC if the dates do not match.
* Otherwise increments ItemArrayOffset and returns CLC.
*
ValidateCDevEntry	phd
	pushlong CDevItemsHandle
	tsc
	tcd
	ldy #2
	lda [1],y
	tax
	lda [1]
	clc
	adc ItemArrayOffset
	bcc @1
	inx
@1	clc
	adc #oCDevItemCreateDate
	bcc @2
	inx
@2	sta 1
	stx 3

	

	ldy #8	;compare 8 bytes
@compare	dey
	dey
	bmi @equal
	lda entCreateDate,y
	cmp [1],y
	beq @compare
	sec
	bra @compared
@equal	clc
@compared	pla
	pla
	pld
	bcs @fail

;	clc
	lda ItemArrayOffset
	adc #CDEVITEMSIZE
	sta ItemArrayOffset

	clc
@fail	rts

*******************************************************************************
*
* ScanForCDevs
*
*******************************************************************************
ScanForCDevs	jsl DisposeCDevList	;added 1-Apr-91 DAL

	lda #8
	jsr getPfx
	phy
	phx
	lda #0
	jsr getPfx
	phy
	phx

	jsr NewEmptyHandle
	sta CDevItemsHandle+2
	sty CDevItemsHandle

	jsr NewEmptyHandle
	sta CDevPathsHandle+2
	sty CDevPathsHandle

	jsr NewEmptyHandle
	sta CDevIconsHandle+2
	sty CDevIconsHandle

	_SetPrefixGS setZeroNull
	_SetPrefixGS setEightCdevDir

	stz CDevListCount

	jsr OpenDirectory
	bcs @fail
@next	jsr GetNextCDev
	bcs @done
	jsr AppendCDev
	bra @next
@done	jsr CloseDirectory
@fail
*** lock down the handles
;	_CompactMem
	pushlong CDevIconsHandle
	_HLock
	pushlong CDevItemsHandle
	_HLock
	pushlong CDevPathsHandle
	_HLock

*** restore prefix 0
	plx
	ply
	lda #0
	jsr setPfx
*** restore prefix 8
	plx
	ply
	lda #8
	jsr setPfx
	rtl

*******************************************************************************
*
* NewEmptyHandle: output handle in AY
*
*******************************************************************************
NewEmptyHandle	pha
	pha	;space for NewHandle result
	lda #0
	pha
	pha
	jsr PushDataID
	pea 0	;attributes
	pha
	pha	;location (ignored)
	_NewHandle
	ply
	pla
	rts

PushDataID	pha	;space for MMStartUp result
	_MMStartUp
	pla
	ora #$0700
	plx
	pha
	phx
	rts

*******************************************************************************
*
* OpenDirectory
*
*******************************************************************************
OpenDirectory	_OpenGS OpenCDevDir
	bcs @done
	lda dirRef
	sta dirRef2
	sta dirRef3
@done	rts

*******************************************************************************
*
* GetNextCDev
*
*******************************************************************************
GetNextCDev	_GetDirEntryGS GetDirEnt
	bcs @err
	lda entType
	cmp #CDevFileType
	bne GetNextCDev
	lda entAuxType
	bmi GetNextCDev	;CDev is inactive
	clc
@err	rts

*******************************************************************************
*
* CloseDirectory
*
*******************************************************************************
CloseDirectory	_CloseGS CloseCDevDir
	rts

*******************************************************************************
*
* AppendCDev
*
*******************************************************************************
AppendCDev	pha	;space for OpenResourceFile result
	pea 1	;read-only
	pushlong #0	;map address = NIL
	pushlong #theFileName
	jsr GetAndFixPrefs
	_OpenResourceFile
	jsr RestorePrefs
	pla
	bcs @exit
	pha

	pha
	pea 1
	_SetResourceFileDepth ;leave old depth on stack

	jsr AppendGuts

	pla	;previous depth
	pha	;space for SetResourceFileDepth result
	pha	;new depth
	_SetResourceFileDepth
	pla	;throw away old depth (1)
	_CloseResourceFile	;refnum still on stack
@exit	rts


AppendGuts	pha
	pha
	pea rCDevFlags
	pushlong #1
	_LoadResource
	plx
	ply

	phy
	phx
	pushlong #itemFlags
	pushlong #FLAGSSIZE
	_HandToPtr

*** Put the CDev's create date in the data file
	ldy #6
@copyCreateDate	lda entCreateDate,y
	sta CDevItemTemplate+oCDevItemCreateDate,y
	dey
	dey
	bpl @copyCreateDate

*** If there are blanks on the beginning of the CDev name, kill them

@stripBlanks	lda CDevItemTemplate+oCDevItemName
	and #$00ff
	beq @noBlank
	lda CDevItemTemplate+oCDevItemName+1
	and #$00ff
	cmp #$0020
	bne @noBlank
	pushlong #CDevItemTemplate+oCDevItemName+2 ;source
	pushlong #CDevItemTemplate+oCDevItemName+1 ;dest
	pushlong #14
	_BlockMove
	dec CDevItemTemplate+oCDevItemName	;decrement length
	bra @stripBlanks
@noBlank

	pha
	pha
	pea rIcon
	pushlong #1
	_LoadResource
	pla
	sta @iconHandle
	pla
	sta @iconHandle+2

	pha
	pha
	pushlong CDevIconsHandle
	_GetHandleSize
	pla
	sta iconOffset
	pla
	sta iconOffset+2
	
	pha
	pha
	pushlong CDevPathsHandle
	_GetHandleSize
	pla
	sta pathOffset
	pla
	sta pathOffset+2

	pushlong @iconHandle
	pushlong CDevIconsHandle
	jsr AppendHandle

	clc
	lda CDevDirectory
	adc theFilename
	sta theLengthWord
	pea 2
	pushlong #theLengthWord
	pushlong CDevPathsHandle
	jsr AppendSomeData
	pushword CDevDirectory
	pushlong #CDevDirectory+2
	pushlong CDevPathsHandle
	jsr AppendSomeData
	pushword theFilename
	pushlong #theFilename+2
	pushlong CDevPathsHandle
	jsr AppendSomeData

	pushword itemSize
	pushlong #CDevItemTemplate
	pushlong CDevItemsHandle
	jsr AppendSomeData

	inc CDevListCount
	rts

@iconHandle	dc.l 0

CDevItemTemplate
itemSize	dc.w endOfItem-CDevItemTemplate
itemDate	ds.b 8
pathOffset	dc.l 0
iconOffset	dc.l 0
itemState	dc.w 0
itemWindow	dc.l 0
itemFlags	ds.b FLAGSSIZE
endOfItem

theLengthWord	dc.w 0	;total length of CDev path
CDevDirectory	dc.w 15
	dc.b '*:System:CDevs:'

*
* AppendHandle
*
* Input:
*   HANDLE  data to append
*   HANDLE  theHandle
*
AppendHandle	phd
	tsc
	tcd
@oldD	equ 1
@rts	equ @oldD+2
@theHandle	equ @rts+2
@data	equ @theHandle+4

	pha
	pha
	pei @theHandle+2
	pei @theHandle
	_GetHandleSize
	lda 3,s
	pha
	lda 3,s
	pha

	pha
	pha
	pei @data+2
	pei @data
	_GetHandleSize
	clc
	pla
	adc 3,s
	tax
	pla
	adc 3,s
	ply
	ply
	pha
	phx
	pei @theHandle+2
	pei @theHandle
	_SetHandleSize

	ldy #2
	clc
	pla
	adc [@theHandle]
	tax
	pla
	adc [@theHandle],y

	pei @data+2
	pei @data	;source handle
	pha
	phx	;dest pointer
	pha
	pha
	pei @data+2
	pei @data
	_GetHandleSize	;length
	_HandToPtr

	pld
	plx
	ply
	ply
	ply
	ply
	phx
	rts

*
* AppendSomeData
*
* Input:
*   WORD     size of data to append
*   POINTER  data to append
*   HANDLE   theHandle
*
AppendSomeData	phd
	tsc
	tcd
@oldD	equ 1
@rts	equ @oldD+2
@theHandle	equ @rts+2
@data	equ @theHandle+4
@size	equ @data+4

	pha
	pha
	pei @theHandle+2
	pei @theHandle
	_GetHandleSize
	lda 3,s
	pha
	lda 3,s
	pha

	clc
	lda @size
	adc 1,s
	sta 1,s
	lda 3,s
	adc #0
	sta 3,s
	pei @theHandle+2
	pei @theHandle
	_SetHandleSize

	ldy #2
	lda [@theHandle],y
	tax
	lda [@theHandle]
	clc
	adc 1,s
	tay
	txa
	adc 3,s
	plx
	plx	;discard

	pei @data+2
	pei @data	;source
	pha
	phy	;destination
	pea 0
	pei @size	;size
	_BlockMove

	pld
	plx
	ply
	ply
	ply
	ply
	ply
	phx
	rts


*******************************************************************************
*
* muck with prefixes 0 and 8
*
*******************************************************************************

setZeroNull	dc.w 2
	dc.w 0
	dc.l nullPath

nullPath	dc.w 0

setEightCDevDir	dc.w 2
	dc.w 8
	dc.l CDevDirPath

CDevDirPath	dc.w 14
	dc.b '*:System:CDevs'



OpenCDevDir	dc.w 3
dirRef	dc.w 0
	dc.l CDevDirPath
	dc.w $0001	;read only

CloseCDevDir	dc.w 1
dirRef3	dc.w 0

GetDirEnt	dc.w 13
dirRef2	dc.w 0
	dc.w 0,1,1	;flags, base, displacement
	dc.l fileNameBuff
	dc.w 0	;entry num
entType	dc.w 0	;filetype
	dc.l 0	;eof
	dc.l 0	;blocks
entCreateDate	dc.l 0,0	;create date/time
entModDate	dc.l 0,0	;mod date/time
	dc.w 0	;access
entAuxType	dc.l 0	;auxtype

fileNameBuff	dc.w 34
theFileName	ds.b 32


;############################################################
;#
;# getPfx - retrieves current prefix for the supplied
;# prefix number.  The handle to the stored prefix is
;# returned to the caller.
;#
;# on entry:
;#     Acc = prefix number
;#
;# on exit:
;#     X, Y = handle of stored prefix (low,high)
;#
;############################################################

getPfx

@tmpPtr	equ $01
@pfxHndl	equ $05 	;handle to stored prefix

	sta prefixNum	;put prefix number in parmblock (for later)
	pha	;make space for temp pointer
	pha
	pha	;and prefix handle
	pha
	tsc	;make stack frame
	phd
	tcd
	
	pha	;make space for NewHandle call
	pha
	pea 0	;size of block to create
	pea 256	;we'll try 256 bytes at first
	pha
	_MMStartUp
	pea $8010	;attributes
	pha	;location pointer
	pha	;(not used)
	_NewHandle	;go get some memory
	pla	;retreive handle
	plx
	bcc @got_mem
@memerr
	lda #0
	pha	;oops!  put up an ErrorWindow
	pha	;subString type (not used)
	pha	;subStringPtr (not used)
	pha
	pea $8D	;"Memory is full"
	bra @showErr

@got_mem
	sta @pfxHndl	;save for return to caller
	stx @pfxHndl+2

	ldy #2	;dereference handle
	lda [@pfxHndl]
	sta @tmpPtr
	sta bufPtr
	lda [@pfxHndl],y
	sta @tmpPtr+2
	sta bufPtr+2
	lda #256	;initialize length of buffer
	sta [@tmpPtr]

;;;	lda #2	;set up parm block
;;;	sta pCount	;prefixNum set up above

@try_again
	_GetPrefixGS parmBlock	;get the current prefix
	bcc @got_prefix	;no error, continue
	cmp #$4f	;buffer too small?
	beq @grow_buf	;yes, grow the buffer and try again
	pha	;else just puke!
	pea 0	;subString type (not used)
	pea 0	;subStringPtr (not used)
	pea 0
	pha	;put error code on stack
@showErr
	_ErrorWindow
	pla	;;retrieve button number
	sec	;we had a problem
	bra @exit	;just exit

@grow_buf
	ldy #2
	lda [@tmpPtr],y	;get returned length word
	clc
	adc #4	;allow for length words
	pha	;save new length on stack
	pea 0	;high word of new size allocation
	pha	;low word of length
	pei @pfxHndl+2	;put handle on stack
	pei @pfxHndl
	ldy #4	;unlock the handle first
	lda [@pfxHndl],y
	asl a
	lsr a	;cleared bit 15
	sta [@pfxHndl],y
	_SetHandleSize	;make the block bigger
	bcs @memerr	;abort on error

	ldy #4	;lock it down again
	lda [@pfxHndl],y
	ora #$8000
	sta [@pfxHndl],y

	ldy #2	;dereference handle again
	lda [@pfxHndl]
	sta @tmpPtr
	sta bufPtr
	lda [@pfxHndl],y
	sta @tmpPtr+2
	sta bufPtr+2
	pla	;retrieve new length of buffer
	sta [@tmpPtr]	;store in buffer
	bra @try_again	;go try again

@got_prefix
	ldy #4	;unlock the handle
	lda [@pfxHndl],y
	asl a
	lsr a
	sta [@pfxHndl],y
	
	pea 0	;high word of new size allocation
	ldy #2
	lda [@tmpPtr],y	;get the length of the returned string
	clc
	adc #4	;include length words
	pha	;put on stack for call
	pei @pfxHndl+2
	pei @pfxHndl
	_SetHandleSize	;resize the handle so it's just the right size

	ldy @pfxHndl+2	;return handle to caller
	ldx @pfxHndl
	clc	;no error
@exit
	pld	;clean up stack frame
	pla
	pla
	pla
	pla
	rts


;############################################################
;#
;# setPfx - restore prefix to it's original value
;#
;# on entry:
;#    Acc = prefix number
;#    X,Y = handle to stored prefix
;#
;############################################################

setPfx
@tmpPtr	equ $01

	sta prefixNum	;save prefix number in parm block
	pha	;make space on stack for temp pointer
	pha
	tsc	;make stack frame
	phd
	tcd
	
;;;	lda #2	;2 parms for SetPrefix call
;;;	sta pCount

	stx @tmpPtr
	sty @tmpPtr+2
	ldy #2	;dereference handle to prefix string
	lda [@tmpPtr]	;but set pointer to length
	clc	;word within buffer
	adc #2
	sta bufPtr
	lda [@tmpPtr],y
	adc #0
	sta bufPtr+2

	_SetPrefixGS parmBlock

*** added 5-Feb-92 DAL -- Dispose of the input handle; we're done with it
	pei <@tmpPtr+2
	pei <@tmpPtr
	_DisposeHandle
*** end 5-Feb-92

	pld	;clean up stack
	pla
	pla

	rts

parmBlock
pCount	dc.w 2	;always 2 (GetPrefix and SetPrefix)
prefixNum	dc.w 0
bufPtr	dc.l 0

	EndP

*******************************************************************************
*******************************************************************************
*******************************************************************************
*******************************************************************************
*******************************************************************************
*******************************************************************************

CDevStuff	proc

	import HandleActivate
	import TheItemPtr

*******************************************************************************
*
* OpenNewCDevAY
*
* Input:  Pathname in AY
*         Pointer to small rectangle on stack
*
* TheItemPtr points to the CDevItem structure, if any (and TheRawCDevNumber
* indicates the icon's position in the main list).
*
* Output: TheCDevWindow in AY (NIL if failed to open)
*
*******************************************************************************
	export OpenNewCDevAY
	import StartResourceManager
	import StopResourceManager
	import AdjustNumCDevsOpen
	import GetMyMainMenuID
	import GetCDevList

OpenNewCDevAY	phb
	phk
	plb

	sta CDevPathname+2
	sty CDevPathname

	stz TheCDevWindow+2
	stz TheCDevWindow

	lda 5,s
	sta smallRectPtr
	lda 7,s
	sta smallRectPtr+2

	pha
	pha
	_GetPort

	pha
	_GetCurResourceApp
	pha
	_MMStartUp
	_SetCurResourceApp

	jsl StartResourceManager

*** added 6-Feb-92 DAL -- Build the CDev list if we don't already have it
	jsl GetCDevList
	jsr FindTheItemPtr

	lda >TheItemPtr+1
	beq @notAlreadyOpen

	phd
	lda >TheItemPtr+2
	pha
	lda >TheItemPtr
	pha
	tsc
	tcd
	ldy #oCDevItemWindow+2
	lda [1],y
	tax
	dey
	dey
	lda [1],y
	ply
	ply
	pld
	tay
	bne @isOpen
	txy
	beq @notAlreadyOpen

@isOpen	sta >TheCDevWindow
	tay
	txa
	sta >TheCDevWindow+2
	pha
	phy
	_SelectWindow
	brl @exit

@notAlreadyOpen
*** end 6-Feb-92

	lda CDevPathname+2
	ldy CDevPathname
	jsr OpenCDevResourceFork
	bcc @fine
	brl @exit
@fine	sta CDEVResNum

; A is already	lda CDEVResNum
	jsr LoadTheCDev	;resource file number in A
	bcs @exit

	jsr UpdateFlagsBuffer  ;added 20-Aug-91 DAL

	jsr CheckMachine
	bcc @machineOk

*** Close the CDev file
	lda CDevResNum
	pha
	_CloseResourceFile
	jsl StopResourceManager
	lda #$ffff
	sta >globalErrorCode
	bra @exit


@machineOK	jsr MakeCDevWindow	;invisible window, sets up refcon
	bcs @exit

	jsr PushCDevWindPtr
	_SetPort	;added 3-Mar-91 DAL

	jsr MakeCDevControls
	bcs @exit

	lda nwContentRect
	pha
	sec
	sbc #13
	sta nwContentRect
	lda smallRectPtr+1
	beq @noWhoosh
	pea $8000
	pea $0000	;flag: zoom out
	pushlong smallRectPtr
	pushlong #nwContentRect
	_WhooshRect
@noWhoosh	pla
	sta nwContentRect

	jsr PushCDevWindPtr
	_ShowWindow

	lda #1
	jsl AdjustNumCDevsOpen

	jsr InstallRunTask

	jsr ForceUpdateEvent   ;added 13-Oct-91 DAL

@exit	_SetCurResourceApp
	_SetPort

	pla
	plx

	ply
	ply	;throw away rect ptr

	phx
	pha
	plb

	lda >TheCDevWindow
	tay
	lda >TheCDevWindow+2

	rtl

CDevPathname	dc.l 0
TheCDevWindow	dc.l 0
TheRefcon	dc.l 0
CDevResNum	dc.w 0

smallRectPtr	dc.l 0

*******************************************************************************
*
* FindTheItemPtr
*
* Inputs:   CDevPathname (pointer to class-one string)
*
*  CDevListCount
*  CDevItemsHandle
*  CDevPathsHandle
*
* Outputs:  sets >TheItemPtr if we find a CDev item matching this path
*
*******************************************************************************
	import CDevItemsHandle,CDevPathsHandle,CDevListCount
FindTheItemPtr	lda TheItemPtr+1
	beq @dontHave
	rts

@dontHave	phd
	pushlong CDevItemsHandle
	pushlong CDevPathsHandle
	lda CDevListCount
	pha
	pea 0
	tsc
	tcd

@rawNumber	equ 1
@count	equ @rawNumber+2
@paths	equ @count+2
@items	equ @paths+4

	ldy #4
	lda [<@paths],y
	pha
	ora #$8000
	sta [<@paths],y	;locked handle
	lda [<@items],y
	pha
	ora #$8000
	sta [<@items],y	;locked handle

	ldy #2
	lda [<@paths],y
	tax
	lda [<@paths]
	sta <@paths
	stx <@paths+2

	lda [<@items],y
	tax
	lda [<@items]
	sta <@items
	stx <@items+2

	lda <@count
	beq @done

@loop	pushlong CDevPathname
	ldy #oCDevItemPathOffset
	clc
	lda [<@items],y
	adc <@paths
	tax
	iny
	iny
	lda [<@items],y
	adc <@paths+2
	pha
	phx	;pushed this item's pathname
	jsr ExpandThisPath
	jsr ComparePathnames
	bcs @tryNext

	lda <@items+2
	sta >TheItemPtr+2
	lda <@items
	sta >TheItemPtr
;;;	lda <@rawNumber
;;;	jsr FindInSortedList
;;;	sta >TheRawCDevNumber
	bra @done

@tryNext	clc
	lda [<@items]
	adc <@items
	sta <@items
	bcc @1
	inc <@items+2
@1	inc <@rawNumber
	dec <@count
	bne @loop

@done	ldy #4
	lda CDevItemsHandle+2
	sta <@items+2
	lda CDevItemsHandle
	sta <@items
	pla
	sta [<@items],y	;restored lock state

	lda CDevPathsHandle+2
	sta <@paths+2
	lda CDevPathsHandle
	sta <@paths
	pla
	sta [<@paths],y	;restored lock state

	pla	;discard raw-number count
	pla	;discard count
	pla
	pla	;discard path ptr
	pla
	pla	;discard item ptr

	pld
	rts
*
* ComparePathnames
*
* Input:  two pointers to class-one pathnames, on the stack
*
* Output: BCC if the pathnames match
*
ComparePathnames	phd
	tsc
	tcd

@one	equ 5
@two	equ @one+4

	lda [<@one]
	cmp [<@two]
	sec
	bne @done

	inc a
	tay
@compare	lda [<@one],y
	jsr @upcase
	sta >@cheat+1
	lda [<@two],y
	jsr @upcase
@cheat	cmp #$7777
	sec
	bne @done
	dey
	cpy #2
	bcs @compare
;;;	clc

@done	pld
	plx
	pla
	pla
	pla
	pla	;discard input pointers
	phx
	rts

@upcase	and #$00ff
	cmp #$0061
	bcc @up
	cmp #$007b
	bcs @up
	and #$00df
@up	rts

*
* ExpandThisPath -- input pointer on stack
*
	import ExpandPathBuffer
ExpandThisPath	lda 3,s
	sta epath1
	lda 5,s
	sta epath1+2
	pushlong #ExpandPathParms
	pea $200e	;ExpandPathGS
	jsl $e100b0
	lda #ExpandPathBuffer+2
	sta 3,s
	lda #^ExpandPathBuffer
	sta 5,s
	rts

ExpandPathParms	dc.w 2	;pcount
epath1	dc.l 0
	dc.l ExpandPathBuffer

	export ExpandPathBuffer
ExpandPathBuffer	dc.w ExpandPathLength+4
	ds.b ExpandPathLength+2


*******************************************************************************
*
* OpenCDevResourceFork
*
* Inputs: AY = pointer to class-one pathname
*
* Output: CLC, A=resource file number
*         SEC, A=error code
*
*******************************************************************************
OpenCDevResourceFork
	pha	;space for OpenResourceFile result
	pea $7777	;requested access (place-holder)
	pushlong #0	;map address
	pha
	phy
	jsl WhatAccessRequest
	sta 1+4+4,s	;store over
	jsr GetAndFixPrefs	;3-Dec-91 DAL
	_OpenResourceFile
	jsr RestorePrefs	;3-Dec-91 DAL
	plx
	bcs @out	;if there's an error, don't kill A
	txa
@out	rts

*******************************************************************************
*
* Miscellaneous subroutines
*
*******************************************************************************
GetAndFixPrefs	_GetSysPrefsGS oldPrefs
	lda oldPrefs+2
	and #$1fff	;keep the reserved bits
	ora #$C000	;turn on Use Volume Mount Dialog
		;no Cancel button! 3-Dec-91 DAL
	sta myPrefs+2
	_SetSysPrefsGS myPrefs
	rts

RestorePrefs	php	;3-Dec-91 DAL
	pha	;3-Dec-91 DAL
	_SetSysPrefsGS oldPrefs
	pla	;3-Dec-91 DAL
	plp	;3-Dec-91 DAL
	rts

oldPrefs	dc.w 1	;1 parameter
	dc.w 0	;the old SysPrefs

myPrefs	dc.w 1
	dc.w 0	;my modified preferences

*******************************************************************************
*
* WhatAccessRequest
*
* If the boot file system is AppleShare, return $0001 (read-only).
* Otherwise, return $0000 (as-allowed).
*
* This result is used for opening the resource forks.
*
*******************************************************************************
	export WhatAccessRequest
WhatAccessRequest
	_DInfoGS infoParms	;get the device name for the boot device
	bcs oops
	_VolumeGS volParms	;now do a Volume call to get the ID of the boot FST
	bcs oops
	lda fst_id	;get the ID number of the boot FST
	cmp #$000D	;is it AppleShare?
	bne local_boot	;no, must have been a local boot

	lda #1	;return read-only access
	rtl

local_boot
oops	lda #0	;as-allowed
	rtl

infoParms	dc.w 2	;pCount
	dc.w 1	;device number (boot device is ALWAYS device 1)
	dc.l devName	;pointer to result buffer for device name

devName	dc.w 36	;buffer length
devName2	dc.w 0	;string length
	ds.b 32	;buffer for device name

volParms	dc.w 5	;pCount
	dc.l devName2	;pointer to device name
	dc.l volname	;pointer to volume name buffer
	dc.l 0	;total blocks
	dc.l 0	;free blocks
fst_id	dc.w 0	;FST ID number

volname	dc.w 36	;buffer length
volname2	dc.w 0	;string length
	ds.b 32	;string buffer


*******************************************************************************
*
* LoadTheCDev:
*
* Input: Resource file number in A
*
* LoadResource(rCDevCode,1)
*
* Output: SEC if failure
*         CLC if JumpToCDev vector set up
*
*******************************************************************************
LoadTheCDev	jsr UseOnlyThisFile
	pha	;save old file
	phx	;and depth

	pha
	pha
	pea rCDevCode
	pushlong #1
	_LoadResource
	sta @error
	phd
	tsc
	tcd
	lda [3]
	sta JumpToCDev+1
	ldy #1
	lda [3],y
	sta JumpToCDev+2
	pld
	pla
	pla

	plx
	pla
	jsr RestoreOldFile
	lda @error
	cmp #1
	rts

@error	dc.w 0

*******************************************************************************
*
* CallTheCDev
*
* Stack must be set up for transferring control to the CDev:
*
*  LONG  Space for result
*  WORD  Message
*  LONG  Data1
*  LONG  Data2
*
*******************************************************************************
CallTheCDev
JumpToCDev	jml >$777777
*******************************************************************************


*******************************************************************************
*
* UseOnlyThisFile
*
* Input:  Resource file number in A
*
* Output:  Current resource file is set, depth is 1
*          Previous file in A, previous depth in X
*
*******************************************************************************
UseOnlyThisFile	pha

	pha	;space for cur resource file
	_GetCurResourceFile

	pha	;space for old depth
	pea 1
	_SetResourceFileDepth

	lda 5,s	;retrieve input
	pha
	_SetCurResourceFile

	plx	;get old depth
	pla	;get old file
	ply	;throw away copy of input

	rts

*******************************************************************************
*
* RestoreOldFile
*
* Input:  Resource file in A, depth in X
*
*******************************************************************************
RestoreOldFile	pha	;resource file number
	phx	;space for old depth
	phx	;new depth
	_SetResourceFileDepth
	plx	;throw away
	_SetCurResourceFile
	rts


*******************************************************************************
*
* LoadTheFlags
*
* LoadResource(rCDevFlags,1), return handle
*
* Input: A = resource file number
*
* Output: handle in AX
*
*******************************************************************************
LoadTheFlags	jsr UseOnlyThisFile
	phx
	pha

	pha
	pha
	pea rCDevFlags
	pushlong #1
	_LoadResource
	pla
	sta @temp
	pla
	sta @temp+2

	pla
	plx
	jsr RestoreOldFile

	lda @temp+2
	ldx @temp
	rts

@temp	dc.l 0

*******************************************************************************
*
* CheckMachine--return SEC if the ROM version is bad
*
*******************************************************************************
IDRoutine	equ $FE1F	;returns ROM version in Y

CheckMachine	pha
	pha
	pha
	pha	;space for FWEntry results
	pha	;a
	pha	;x
	pha	;y
	pea IDRoutine	
	_FWEntry
	ply
	plx
	pla
	pla
	sty @ROMVersion
	sep #$20
	lda flagMachine
	cmp @ROMVersion
	rep #$20
	bcc @ok
	beq @ok
	rts
@ok
*** The ROM version is okay--now try calling MachineCDEV to see if
*** we should really display this sucker

	lda theFlags
	and #wantMachine
	beq @didMachine

	lda #0
	pha
	pha
	pea MachineCDev
	pha
	pha
	pha
	pha
	jsl CallTheCDev
	pla
	ply
	bne @didMachine
	tay
	bne @didMachine
	sec
	rts	;returned zero--don't display

@didMachine	clc
	rts

@ROMVersion	dc.w 0


*******************************************************************************
*
* MakeCDevWindow--return pointer in TheCDevWindow, SEC if failure
*
* Input: TheItemPtr points to the CDEVItem structure (or NIL if none!)
*
*******************************************************************************
	import UseStandardPalette,PushMainWindPtr
	import ListMemHandle,MainWindPtr,RebuildMemRec
MakeCDevWindow	phd
	pha
	pha	;space for refcon pointer
	pushlong CDevPathname
	tsc
	tcd

thePathname	equ 1
myRefcon	equ thePathname+4

*** Allocate the Refcon storage space

	lda [<thePathname]
	clc
	adc #owbCDevPath
	inc a
	inc a	;size needed = owbCDevPath + room for pathname

	pha
	pha	;space for NewHandle result
	pea 0	;high word of size
	pha	;low word of size
	pha
	_MMStartUp	;memory id
	pea $C000	;attributes
	pha
	pha	;ignored
	_NewHandle
	pla
	sta myRefcon
	pla
	sta myRefcon+2

	ldy #2	;dereference refcon handle into pointer
	lda [<myRefcon],y
	tax
	lda [<myRefcon]
	sta <myRefcon
	stx <myRefcon+2

*** Zero out the fixed-length part of the Refcon structure
	ldy #owbCDevPath
	lda #0
@zero	sta [<myRefcon],y
	dey
	dey
	bpl @zero

*** added 6-Feb-92 DAL -- copy the CDev pathname into the refcon structure
	pei <thePathname+2
	pei <thePathname	;source
	clc
	lda <myRefcon
	adc #owbCDevPath
	tax
	lda <myRefcon+2
	adc #0
	pha
	phx	;destination
	pea 0
	lda [<thePathname]
	inc a
	inc a
	pha	;length
	_BlockMove
*** end 6-Feb-92

*** read the CDev Flags resource into the refcon structure
	lda CDevResNum
	jsr LoadTheFlags	;takes resource file in A, returns handle in AX
	pha
	phx	;source for HandToPtr
	lda #oCDevItemFlags
	jsr PushRefconOffset
	pushlong #CDEVITEMSIZE-oCDevItemFlags
	_HandToPtr

	jsr UpdateFlagsBuffer

*** Stuff CDev code resource pointer into the refcon structure
	ldy #owbCDevCodePtr
	lda JumpToCDev+1
	sta [<myRefCon],y
	iny
	lda JumpToCDev+2
	sta [<myRefCon],y

*** Stuff the CDev resource file number into the refcon structure
	ldy #owbResFileNum
	lda CDevResNum
	sta [<myRefCon],y

*** Stuff the CDEVItem pointer into the refcon structure (this will be NIL if
*** the CDev was not in *:System:CDevs when we built the list)
	ldy #owbCDevItemPtr
	lda >TheItemPtr
	sta [<myRefCon],y
	iny
	iny
	lda >TheItemPtr+2
	sta [<myRefCon],y

	ldy #owbRawCDevNumber
	lda >TheRawCDevNumber
	sta [<myRefCon],y

	jsr BuildWindowTitle
	clc
	lda <myRefcon
	adc #owbWindTitle
	sta nwTitle
	lda <myRefcon+2
	adc #0
	sta nwTitle+2

*** Removed 6-May-93 DAL
;;;	jsl UseStandardPalette

	jsr GrabSystemColorTable

	jsr GetCDevRectangle
	pha
	pha	;space for result
	pushlong #nwParms
	_NewWindow
	plx
	stx TheCDevWindow
	plx
	stx TheCDevWindow+2
	bcc @noExit
	brl @exit
@noExit
	jsr CreateAuxWindInfo

	jsr PushCDevWindPtr
	_SetSysWindow

*** Set the refcon to point to the window block structure
	pei <myRefCon+2
	pei <myRefCon
	jsr PushCDevWindPtr
	_SetWRefCon

*** added 6-Feb-92 DAL -- put the window pointer into the CDev item
	lda >TheItemPtr+1
	bne @haveItem
	brl @noItem
@haveItem	phd
	lda >TheItemPtr+2
	pha
	lda >TheItemPtr
	pha
	tsc
	tcd
	ldy #oCDevItemWindow+2
	lda TheCDevWindow+2
	sta [1],y
	dey
	dey
	lda TheCDevWindow
	sta [1],y

*** If the main window exists, update the icon state in the list & inval window
	lda MainWindPtr+1
	beq @noMainWind

*** 7-Feb-92 DAL -- If we just opened something that we have a list entry for, mark it open
	lda ListMemHandle+2
	ldy ListMemHandle
	sta 3
	sty 1
	ldy #2
	lda [1],y
	tax
	lda [1]
	sta 1
	stx 3

	lda >TheItemPtr
	tay
	lda >TheItemPtr+2
	jsr FindListIndex

	pha
	pha	;space for _Multiply
	pha	;item index
	pea LISTMEMSIZE
	_Multiply
	clc
	pla
	adc <1
	sta <1
	pla
	adc <3
	sta <3

	ldy #oMemState
	lda [1],y
	ora #$0002	;open
	sta [1],y
*** end 7-Feb-92

@noMainWind

	pla
	pla
	pld
@noItem
*** end 6-Feb-92

	clc
@exit	pla
	pla
	pla
	pla
	pld
	rts


nwParms	dc.w nwEnd-nwParms	;length
	dc.w $C0C8	;frame (title, close, invisible, qContent)
nwTitle	dc.l 0	;title (none yet)
	dc.l 0	;refcon
	dc.w 0,0,0,0	;zoom rect
	dc.l windColorTbl	;color table
	dc.w 0,0	;origin
	dc.w 0,0	;data height & width
	dc.w 1000,1000	;max height & width
	dc.w 0,0	;scroll ver & scroll hor
	dc.w 0,0	;page ver, page hor
	dc.l 0	;info refcon
	dc.w 0	;info height
	dc.l 0	;defproc
	dc.l 0	;no info defproc
	dc.l CDevContentDraw ;content defproc
nwContentRect	dc.w 40,30,120,590	;position rectangle
	dc.l $ffffffff	;plane (front)
	dc.l 0	;storage
nwEnd

windColorTbl	dc.w $0000,$0f00,$020f,$f0f0,$00f0

GrabSystemColorTable
	pha
	pha	;space for LoadResource
	pea $8010	;rWindColor
	pea $07ff
	pea $0001
	_LoadResource
	plx
	ply
	bcs @oops
	phy
	phx
	pushlong #windColorTbl
	pushlong #10
	_HandToPtr
@oops	rts

*******************************************************************************
*
* BuildWindowTitle
*
*******************************************************************************
BuildWindowTitle	lda #oCDevItemName
	jsr PushRefconOffset
	lda #owbWindTitle+1
	jsr PushRefconOffset
	pushlong #16
	_BlockMove

	ldy #owbWindTitle+1
	lda [<myRefcon],y
	and #$00ff
	inc a
	inc a
	ora #$2000
	dey
	sta [<myRefcon],y
	clc
	and #$00ff
	adc #owbWindTitle
	tay
	lda #$0020
	sta [<myRefCon],y
	rts
	
*******************************************************************************
*
* PushRefconOffset--push <myRefcon+A under the RTS address
*
*******************************************************************************
PushRefconOffset	plx
	clc
	adc <myRefcon
	tay
	lda <myRefcon+2
	adc #0
	pha
	phy
	phx
	rts

*******************************************************************************
*
* CreateAuxWindInfo -- installs the AuxWindInfo data to make the CDev window
*                      receive events just like an NDA does.
*
*******************************************************************************
oNDAStructure	equ 24	;offset into auxWindInfo record

CreateAuxWindInfo	pha
	_MMStartUp
	pla
	sta ndaMemoryID

	pha
	pha
	jsr PushCDevWindPtr
	_GetAuxWindInfo
	phd
	tsc
	tcd
	ldy #oNDAStructure+2
	lda #^TheNDAStructure
	sta [3],y
	dey
	dey
	lda #TheNDAStructure
	sta [3],y
	pld
	pla
	pla
	rts

	export TheNDAStructure
TheNDAStructure	dc.w 0	;status--not open
	dc.l 0	;open proc
	dc.l CDevCloseProc	;close
	dc.l CDevActionProc	;action
	dc.l 0	;init
	dc.w 0	;period (reserved)
	dc.w $ffff	;mask
	dc.l 0	;serviced (reserved)
	dc.l 0	;window (reserved)
	dc.l 0	;handle (reserved)
ndaMemoryID	dc.w 0	;mem id (Desk Manager sets resource app to this!)


*******************************************************************************
*
* InstallRunTask--install myRunTask in the Run Queue
*
* (If it's already installed, that's okay.)
*
*******************************************************************************
InstallRunTask	pushlong #myRunTask
	_AddToRunQ
	rts

*******************************************************************************
*
* RemoveRunTask--if there are no CDev windows open, remove
*                myRunTask from the Run Queue
*
*******************************************************************************
RemoveRunTask	lda #0
	jsl AdjustNumCDevsOpen
	tax
	bne @someOpen

	pushlong #myRunTask
	_RemoveFromRunQ

@someOpen	rts

*******************************************************************************
*
* myRunTask -- entered in the Run Queue whenever there are any CDev windows
*              open
*
* This calls the CDev run routines
*
*******************************************************************************
myRunTask	dc.l 0	;link (used by system)
	dc.w 60	;period (60 ticks)
	dc.w $A55A	;signature
	dc.l 0	;reserved for system
myRunTaskCode	phb
	phk
	plb

*** call doCDevRun for each open CDev window

	pha
	_GetCurResourceApp
	pha
	_MMStartUp	;not MyMemID!
	_SetCurResourceApp

	pha
	pha
	_GetFirstWindow
@tryThisWindow	pha	;space for GetWKind
	lda 5,s
	pha
	lda 5,s
	pha
	_GetWKind
	pla
	beq @tryNext	;app window

	pha
	pha	;space for GetAuxWindInfo
	lda 7,s
	pha
	lda 7,s
	pha
	_GetAuxWindInfo
	phd
	tsc
	tcd
	ldy #24
	lda [3],y
	tax
	iny
	iny
	lda [3],y
	pld
	ply
	ply
	cmp #^TheNDAStructure
	bne @tryNext
	cpx #TheNDAStructure
	bne @tryNext

	pushlong TheCDevWindow
	lda 3+4,s
	sta TheCDevWindow+2
	lda 1+4,s
	sta TheCDevWindow
	jsr RunOneCDev
	pulllong TheCDevWindow

@tryNext	lda 3,s
	pha
	lda 3,s
	pha
	_GetNextWindow
	lda 2,s
	bne @tryThisWindow
	pla
	pla	;discard window pointer (now nil)

	_SetCurResourceApp
@noRunWindow	plb
	rtl

*******************************************************************************
*
* RunOneCDev
*
* Input:  TheCDevWindow
*
*******************************************************************************
RunOneCDev	jsr PushGlobalStuff

	jsr SetupCDevGlobals
	jsr GetFlagsFromWindow

	lda theFlags
	and #wantRun
	beq @noRun

*** set resource file to this CDev
	pha
	_GetCurResourceFile
	lda CDevResNum
	pha
	_SetCurResourceFile

	pha
	pha
	_GetPort
	jsr PushCDevWindPtr
	_SetPort

	pha
	pha
	pea RunCDEV
	jsr PushCDevWindPtr
	pea 0
	pea 0
	jsl CallTheCDev
	pla
	pla

	_SetPort

	_SetCurResourceFile

@noRun	jsr PopGlobalStuff
	rts

*******************************************************************************
*
* PushCDevWindPtr -- push TheCDevWindow under the RTS address
*
*******************************************************************************
PushCDevWindPtr	plx
	pushlong TheCDevWindow
	phx
	rts


*******************************************************************************
*
* CDevCloseProc -- close a CDev window
*
*******************************************************************************
CDevCloseProc
	import StopResourceManager,CondDisposeCDevList
	import AdjustNumCDevsOpen,cbp
	import DeactivateIfNotMyWindowNext

	phb
	phk
	plb

*** 28-Oct-92 DAL -- update dalight savings time stuff now (don't wait for DeskShutDown)
	jsl cbp
*** end 28-Oct-92

	jsr GetDeskWindowPtr
	jsr SetupCDevGlobals
	jsr GetFlagsFromWindow

	pha
	_GetCurResourceFile
	lda CDevResNum
	pha
	_SetCurResourceFile

	lda theFlags
	and #wantClose
	beq @didClose

	pha
	pha
	_GetPort
	jsr PushCDevWindPtr
	_SetPort	;preserve port & set the CDev port

	pha
	pha
	pea CloseCDEV
	jsr PushCDevWindPtr	;data1=window pointer
	pea 0
	pea 0	;data2=undefined
	jsl CallTheCDEV
	pla
	pla

	_SetPort	;restore old port setting
@didClose

	jsr SaveWindowLocation

	import ClosingCDevWindow
	jsr PushCDevWindPtr
	jsl ClosingCDevWindow ;fix up data & zoom closed

	pha
	pha	;space for FindHandle result
	pha
	pha	;space for GetWRefCon result
	jsr PushCDevWindPtr
	_GetWRefCon
	_FindHandle
	_DisposeHandle	;dispose the Window Block

	jsr PushCDevWindPtr
	_CloseWindow

;;;	lda #0
;;;	jsl HandleActivate
	jsl DeactivateIfNotMyWindowNext	;17-Mar-93 DAL

	_SetCurResourceFile

	lda CDevResNum
	pha
	_CloseResourceFile

	lda #$ffff
	jsl AdjustNumCDevsOpen	;decrement by 1

	jsl StopResourceManager	;stop if we're the last one
	jsl CondDisposeCDevList	;dispose if we're last (6-Feb-92 DAL)
	jsr RemoveRunTask		;remove if we're the last one

	plb
	rtl


*******************************************************************************
*
* SaveWindowLocation
*
* Inputs:  PushCDevWindPtr tells us which window we're closing
*          CDev's name is at oCDevItemName in the refcon of that window
*
*******************************************************************************
SaveWindowLocation	lda MainResFile
	jsr UseOnlyThisFile
	pha
	phx

	pha
	pha
	jsr PushCDevWindPtr
	_GetWRefCon
	clc
	pla
	adc #oCDevItemName
	sta cdevNamePtr
	tax
	pla
	adc #0
	sta cdevNamePtr+2

*** AX = pointer to CDev name

	pha
	pha	;space for RMFindNamedResource result
	pea rTwoRects
	pha
	phx	;pushed pointer to name
	pushlong #theFileID
	_RMFindNamedResource
	plx
	ply
	bcc @gotResourceIDyx
	brl @noRectResource

@gotResourceIDyx	sty rectResID+2
	stx rectResID

	pha
	pha	;space for LoadResource
	pea rTwoRects
	phy
	phx
	_LoadResource
	plx
	ply
	bcc @noProblemo
	brl @exit

@noProblemo	phy
	phx	;re-push rTwoRects handle
	phd
	tsc
	tcd
	ldy #2
	lda [<3],y
	tax
	lda [<3]
	sta <3
	stx <5	;derefed rTwoRects

	jsr Bump3by8for640

	pha
	pha
	_GetPort
	jsr PushCDevWindPtr
	_SetPort
	stz theWindPos
	stz theWindPos+2
	pushlong #theWindPos
	_LocalToGlobal

	_SetPort

	lda theWindPos
	cmp [3]
	bne @changed
	lda theWindPos+2
	ldy #2
	cmp [3],y
	beq @noChange

@changed	lda theWindPos
	sta [3]
	lda theWindPos+2
	ldy #2
	sta [3],y

	pea $ffff	;true (changed)
	pea rTwoRects
	pushlong rectResID
	_MarkResourceChange

@noChange	pld
	plx
	plx
	brl @exit

*** There was no rTwoRects resource for this CDev, so try creating one

@noRectResource
	pha
	pha	;space for new handle
	pushlong #16	;size of rTwoRects
	pha
	_MMStartUp	;memory ID
	pea 0	;attributes
	pha
	pha	;ignored
	_NewHandle
	plx
	stx rectResHndl
	ply
	sty rectResHndl+2

	phy
	phx	;re-push rTwoRects handle
	phd
	tsc
	tcd
	ldy #2
	lda [<3],y
	tax
	lda [<3]
	sta <3
	stx <5	;derefed rTwoRects

	ldy #14
	lda #0
@zeroIt	sta [3],y
	dey
	dey
	bpl @zeroIt

	jsr Bump3by8for640

	pha
	pha
	_GetPort
	jsr PushCDevWindPtr
	_SetPort
	ldy #2
	lda #0
	sta [3],y
	sta [3]
	pei 5
	pei 3
	_LocalToGlobal
	_SetPort


	pushlong rectResHndl ;handle for AddResource
	pea 0	;attributes for AddResource
	pea rTwoRects	;resource type for AddResource
	pha
	pha	;space for UniqueResourceID result
	pea $0077	;get a rTwoRects($0077xxxx) ID
	pea rTwoRects
	_UniqueResourceID
	lda 3,s
	sta rectResID+2
	lda 1,s
	sta rectResID
	_AddResource
	bcs @exit0

	pea rTwoRects
	pushlong rectResID
	pushlong cdevNamePtr
	_RMSetResourceName

@exit0	pld
	plx
	plx

@exit	plx
	pla
	jsr RestoreOldFile
	rts

theFileID	dc.w 0	;result from RMFindNamedResource (who cares?)
cdevNamePtr	dc.l 0
rectResID	dc.l 0
rectResHndl	dc.l 0

theWindPos	dc.w 0,0

*******************************************************************************
*
* CDevActionProc -- action for a CDev window
*
*******************************************************************************
CDevActionProc	phd
	phb
	phk
	plb
	pha	;action = <5
	phy	;ptr high = <3
	phx	;ptr low = <1
	tsc
	tcd

	jsr PushGlobalStuff

*** Fetch window pointer from desk globals
	jsr GetDeskWindowPtr

	jsr SetupCDevGlobals
	jsr GetFlagsFromWindow

	pha
	_GetCurResourceFile
	lda CDevResNum
	pha
	_SetCurResourceFile

	pha
	pha
	_GetPort	;leave old port on stack
	jsr PushCDevWindPtr
	_SetPort
	lda 5
	asl a
	tax
	cmp #actionEnd-actionTable
	bcs @tooBig
	lda 5
	jsr (actionTable,x)
@tooBig	_SetPort	;restore old port

	_SetCurResourceFile	;added 1-Apr-91 DAL

	jsr PopGlobalStuff

	plx	;pull ptr low
	plx	;pull ptr high
	plx	;pull action
	plb
	pld
	lda #0	;return value
	rtl

actionTable	dc.w null	;0 = unused
	dc.w doCDevEvent	;1 = eventAction
	dc.w doCDevRun	;2 = runAction
	dc.w doCDevCursor	;3 = cursorAction
	dc.w null	;4 = unused
	dc.w doCDevUndo	;5 = undoAction
	dc.w doCDevCut	;6 = cutAction
	dc.w doCDevCopy	;7 = copyAction
	dc.w doCDevPaste	;8 = pasteAction
	dc.w doCDevClear	;9 = clearAction
actionEnd

*******************************************************************************
*
* PushGlobalStuff
*
* Save important globals on the stack in case we're handling a reentrant
* action-routine call.
*
* Stuff we need to save:
*   TheCDevWindow
*   CDevResNum
*   JumpToCDev
*   FlagsBuffer..FlagsBufferEnd-1
*
*******************************************************************************
PushGlobalStuff	ply
	lda TheCDevWindow+2
	pha
	lda TheCDevWindow
	pha
	lda CDevResNum
	pha
	lda JumpToCDev+2
	pha
	lda JumpToCDev+1
	pha
	ldx #FlagsBufferEnd-FlagsBuffer-2
@push	lda FlagsBuffer,x
	pha
	dex
	dex
	bpl @push
	phy
	rts

*******************************************************************************
*
* PopGlobalStuff (see PushGlobalStuff)
*
*******************************************************************************
PopGlobalStuff	ply
	ldx #0
@pop	pla
	sta FlagsBuffer,x
	inx
	inx
	cpx #FlagsBufferEnd-FlagsBuffer
	bcc @pop
	pla
	sta JumpToCDev+1
	pla
	sta JumpToCDev+2
	pla
	sta CDevResNum
	pla
	sta TheCDevWindow
	pla
	sta TheCDevWindow+2
	phy
	rts

*******************************************************************************
*
* GetDeskWindPtr
*
*******************************************************************************
GetDeskWindowPtr	pha
	pha	;space for result
	pea 0	;0 = get NDA window pointer
	_GetDeskGlobal
	pla
	sta TheCDevWindow
	pla
	sta TheCDevWindow+2
	rts

SetupCDevGlobals	pha
	pha
	jsr PushCDevWindPtr
	_GetWRefCon
	phd
	tsc
	tcd
	ldy #owbResFileNum
	lda [3],y
	sta CDevResNum
	ldy #owbCDevCodePtr
	lda [3],y
	sta JumpToCDev+1
	iny
	lda [3],y
	sta JumpToCDev+2
	pld
	pla
	pla
	rts

*******************************************************************************
*
* Boring actions
*
*******************************************************************************
doCDevCursor
	rts

*******************************************************************************
*
* Edit actions actions
*
*******************************************************************************
doCDevUndo
doCDevCut
doCDevCopy
doCDevPaste
doCDevClear
	tay	;keep action code in Y
	lda theFlags
	and #wantEdit
	beq @didEdit
	pha
	pha	;space for result (ignored)
	pea EditCDev
	pea 0
	phy	;data1 = edit action code
	jsr PushCDevWindPtr	;data2 = window pointer
	jsl CallTheCDev
	pla
	pla
@didEdit	rts

doCDevRun
null	rts

*******************************************************************************
*
* ForceUpdateEvent
*
*******************************************************************************
ForceUpdateEvent	phd
	pushlong #myTaskRec
	tsc
	tcd

	lda #updateEvt
	sta myTaskWhat
	lda TheCDevWindow
	sta myTaskMsg
	lda TheCDevWindow+2
	sta myTaskMsg+2

	jsr doCDevEvent

@cleanup	pla
	pla
	pld
	rts

*******************************************************************************
*
* doEvent -- call EventsCDEV, TaskMasterDA, HitCDev
*
*******************************************************************************
	import SpecialEventHandling,DeactivateIfNotMyWindowNext

doCDevEvent	jsl SpecialEventHandling	;added 15-Jul-92 DAL
	jsr SimulateEditEvents
	bcs @cont
	brl @allThrough
@cont

*** Feed the event to the CDev if it wants it
	lda theFlags
	and #wantEvents
	beq @didEvent
	pha
	pha
	pea EventsCDev
	pei 3
	pei 1	;data1 = event record pointer
	jsr PushCDevWindPtr	;data2 = window pointer! 11-Jun-91 DAL
	jsl CallTheCDev
	pla
	pla

	lda CDevResNum	;1-Apr-91 DAL (Twlight screws up!)
	pha	;1-Apr-91 DAL
	_SetCurResourceFile	;1-Apr-91 DAL

@didEvent

	pha
	pea $fffe	;disable Menu Help
	_MenuGlobal
	pla
	sta >saveMenuGlobals

	pei 3
	pei 1
	pushlong #myTaskRec
	pushlong #16
	_BlockMove
	pha	;result space
	pha	;input mask (ignored)
	pushlong #myTaskRec
	_TaskMasterDA

	pha
	lda >saveMenuGlobals
;;;	and #$7fff	;restore old menu help setting
	asl a
	lsr a	;cleared bit 15
	pha
	_MenuGlobal
	pla	;throw away MenuGlobal result

	pla	;pull TaskMasterDA result

	cmp #activateEvt
	bne @notActivate

	lda myTaskMods
*** added 17-Mar-93 DAL
	and #1
	bne @normal
	jsl DeactivateIfNotMyWindowNext
	rts
@normal
*** end 17-Mar-93
	jsl HandleActivate
	rts

@notActivate	cmp #wInControl
	bne @notHit

	lda theFlags
	and #wantHit
	beq @didHit

	pha
	pha	;space for HitCDEV result
	pea HitCDev
	pushlong myTaskData2  ;data1=control handle
*** push data2 = the control ID, or $FFFFFFFF if this is not an extended control
	lda #$ffff
	pha
	pha
	pushlong myTaskData2
	_GetCtlID	;data2 = control ID
	jsl CallTheCDev
	pla
	pla
	jsr SetupFromBRAM
@didHit

@notHit
@allThrough	rts

*******************************************************************************
*
* SimulateEditEvents -- use event record at <1, theFlags
*
* If the event is a keypress for an Edit item, call SystemEdit and
* return CLC to say we handled it.
*
*******************************************************************************
SimulateEditEvents	lda theFlags
	and #wantEdit
	beq @notMe

	lda [<1]	;event.what
	cmp #3	;keyDownEvt
	beq @key
	cmp #5	;autoKeyEvt
	beq @key
@notMe	sec
	rts

@key	ldy #14	;offset to modifiers
	lda [<1],y
	and #$0100	;command key?
	beq @notMe

	ldy #2	;offset to message
	lda [<1],y
	and #$00ff
	cmp #'a'
	bcc @notLC
	and #$df	;uppercase
@notLC	ldx #1	;1 = code for Undo
	cmp #'Z'
	beq @gotIt
	inx	;2 = code for Cut
	cmp #'X'
	beq @gotIt
	inx	;3 = code for Copy
	cmp #'C'
	beq @gotIt
	inx	;4 = code for Paste
	cmp #'V'
	bne @notMe
@gotIt	pha	;space for result
	phx	;edit code
	_SystemEdit
	pla	;discard result
	clc
	rts

*******************************************************************************

myTaskRec
myTaskWhat	dc.w 0
myTaskMsg	dc.l 0
	dc.l 0	;when
myTaskWhere	dc.w 0,0
myTaskMods	dc.w 0
myTaskData	dc.l 0
myTaskMask	dc.l $001fffff	;everything (5.0.3)
	dc.l 0	;lastClickTick
	dc.w 0	;click count
myTaskData2	dc.l 0	;task data 2
myTaskData3	dc.l 0	;task data 3
myTaskData4	dc.l 0	;task data 4
	dc.w 0,0	;last click point

saveMenuGlobals	dc.w 0

*******************************************************************************
*
* GetCDevRectangle
*
*******************************************************************************
;;;	import MainResFile
GetCDevRectangle	lda flagDataRect+6
	sta nwContentRect+6
	lda flagDataRect+4
	sta nwContentRect+4
	lda flagDataRect+2
	sta nwContentRect+2
	lda flagDataRect
	sta nwContentRect

	lda theFlags
	and #wantRect
	beq @didRect
	pha
	pha
	pea RectCDEV
	pushlong #nwContentRect
	lda #0
	pha
	pha
	jsl CallTheCDev
	pla
	pla
@didRect
	jsr CenterTheRect

*** if there's a rectangle saved, use it!
	pha
	_GetCurResourceFile
	lda >MainResFile
	pha
	_SetCurResourceFile

	pha
	pha	;space for result
	pea rTwoRects
	lda #oCDevItemName
	jsr PushRefconOffset
	_RMLoadNamedResource
	plx
	ply
	bcs @exit

	phy
	phx	;re-push rTwoRects(1) handle
	phd
	tsc
	tcd
	ldy #2
	lda [<3],y
	tax
	lda [<3]
	sta <3
	stx <5	;derefed rTwoRects

	jsr Bump3by8for640

	ldy #2
	lda [3]
	ora [3],y
	beq @rectIsZero

	pushlong #nwContentRect
	lda nwContentRect+2
	eor #$ffff
	inc a
	pha
	lda nwContentRect
	eor #$ffff
	inc a
	pha
	_OffsetRect

	pushlong #nwContentRect
	ldy #2
	lda [3],y
	pha
	lda [3]
	pha
	_OffsetRect

@rectIsZero	pld
	plx
	plx	;discard long

@exit	_SetCurResourceFile
	rts


Bump3by8for640	pha
	_GetMasterSCB
	pla
	and #$0080
	beq @ok
	lda #8	;offset to 640 rectangle
	clc
	adc <3
	sta <3
	bcc @ok
	inc <5
@ok	rts

******************************************************************************
*
* CenterTheRect -- if the rectangle is at (0,0) still,
*                  move it somewhere near center-screen
*
*******************************************************************************
CenterTheRect	lda nwContentRect
	ora nwContentRect+2
	bne @TopLeftNotZero
	pushlong #nwContentRect
	jsr PushXOffset
	jsr PushYOffset
	_OffsetRect
	
@TopLeftNotZero	rts


PushXOffset	pha
	_GetMasterSCB
	pla
	ldx #640
	and #$0080
	bne @gotRes
	ldx #320
@gotRes	sec
	lda nwContentRect+6
	sbc nwContentRect+2
	sta @temp
	txa
	sec
	sbc @temp
	lsr a
	plx
	pha
	phx
	rts

@temp	dc.w 0

PushYOffset	sec
	lda nwContentRect+4
	sbc nwContentRect
	cmp #200-23
	bcc @ok
	lda #200-23
@ok	eor #$ffff
	inc a
	clc
	adc #200-23
	lsr a
	clc
	adc #23
	plx
	pha
	phx
	rts


*******************************************************************************
*
* CDevContentDraw -- bank register not set!
*
*******************************************************************************
CDevContentDraw	pha
	_GetCurResourceFile

*** Get resource file number from owbResFileNum in refcon structure
	pha
	pha	;space for GetWRefCon
	pha
	pha	;space for GetPort
	_GetPort
	_GetWRefCon
	phd
	tsc
	tcd
	ldy #owbResFileNum
	lda [3],y
	pld
	plx
	plx	;discard refcon pointer

	pha
	_SetCurResourceFile

	pha
	pha
	_GetPort
	_DrawControls

	_SetCurResourceFile
	rtl


*******************************************************************************
*
* MakeCDevControls
*
* Let the CDev create all its controls
*
*******************************************************************************
MakeCDevControls	lda theFlags
	and #wantCreate
	beq @createByResource
	pha
	pha
	pea CreateCDEV
	jsr PushCDevWindPtr	;data1=window pointer
	lda #0
	pha
	pha	;data2=undefined
	jsl CallTheCDev
	pla
	pla
	bra @didCreate
*
* wantCreate is off, so we will create controls from the CDev's
* rControlList ID = 1 resource.
*
@createByResource	pha
	pha	;space for result
	jsr PushCDevWindPtr
	pea 9	;resourceToResource
	pushlong #1	;ID=1
	_NewControl2
	pla
	pla	;(ignore result)

@didCreate	jsr HideAllControls

	lda theFlags
	and #wantInit
	beq @didInit
	pha
	pha
	pea InitCDev
	jsr PushCDevWindPtr	;data1=window pointer
	lda #0
	pha
	pha	;data2=undefined
	jsl CallTheCDev
	pla
	pla
@didInit
	jsr ShowAllControls

	clc
	rts

*******************************************************************************
*
* HideAllControls
*
*******************************************************************************
HideAllControls	sec
	bra ShowHideAll

*******************************************************************************
*
* ShowAllControls
*
*******************************************************************************
ShowAllControls	clc
ShowHideAll	ror HideFlag

	pha
	pha	;space for oneCtlHandle
	jsr PushCDevWindPtr
	_GetWControls
	phd
	tsc
	tcd

oneCtl	equ 3

@while	lda <oneCtl+1	;is this a NIL handle?
	beq @done

	jsr FollowPointer	;now it's a pointer

	ldy #$10	;offset to ctlFlag
	lda [<oneCtl],y
	and #$ff7f	;make it visible	
	bit HideFlag
	bpl @noHide
	ora #$0080	;whoops, make it invisible
@noHide	sta [<oneCtl],y

	jsr FollowPointer	;now it's the next handle
	bra @while

@done	pld
	pla
	pla
	rts

*******************************************************************************
*
* FollowPointer
*
* This routine is used for 2 things:
*   1. To deref a control handle into a control pointer
*   2. To "deref" a control pointer into the next control handle.
*      (Since the ctlNext field is first in the record, this is
*       the same thing.)
*
*******************************************************************************
FollowPointer	ldy #2
	lda [<oneCtl],y
	tax
	lda [<oneCtl]
	sta <oneCtl
	stx <oneCtl+2
	rts

HideFlag	dc.w 0


*******************************************************************************
*
* SetupFromBRAM
*
* If the updateSSFromBRAM flag bit is set, call ToBRAMSetup with SEC.
*
* 27-Jan-92 DAL: No longer need to force Bank to $00 (patched ToBramSetup
*                vector in 6.0d66).
*
*******************************************************************************
SetupFromBRAM	lda theFlags
	and #updateSSFromBRAM
	beq @didBRAM
;;;	phb
;;;	pea 0
;;;	plb
;;;	plb
	php
	sep #$30
	sec
	jsl ToBRAMSetup
	plp
;;;	plb
@didBRAM	rts

*******************************************************************************
*
* UpdateFlagsBuffer
*
*******************************************************************************
UpdateFlagsBuffer	lda CDevResNum
	jsr LoadTheFlags
	pha
	phx
	pushlong #FlagsBuffer
	pushlong #FlagsBufferEnd-FlagsBuffer
	_HandToPtr
	rts

*******************************************************************************
*
* GetFlagsFromWindow
*
*******************************************************************************
GetFlagsFromWindow	pha
	pha
	jsr PushCDevWindPtr
	_GetWRefCon
	pla
	plx
	clc
	adc #oCDevItemFlags
	bcc @1
	inx
@1	phx
	pha
	pushlong #FlagsBuffer
	pushlong #FlagsBufferEnd-FlagsBuffer
	_BlockMove
	rts

*******************************************************************************
*
* FlagsBuffer holds a copy of the current rCDevFlags(1) resource
*
*******************************************************************************
FlagsBuffer
theFlags	dc.w 0
flagEnabled	dc.b 0
flagVersion	dc.b 0
flagMachine	dc.b 0
flagReserved	dc.b 0
flagDataRect	dc.w 0,0,0,0
flagName	ds.b 16
flagAuthor	ds.b 33
flagVersionStr	ds.b 9
FlagsBufferEnd
*******************************************************************************


	EndP

*******************************************************************************
*
* Crude Palette Manager
*
* Entry points:
*   HandleActivate--calls UseStandardPalette or RestorePalette
*                   (Input: A = modifiers field from activate)
*   UseStandardPalette
*   RestorePalette
*
* Call these on Activate and Deactivate of a window that needs to use the
* standard colors for the current mode.
*
*******************************************************************************
HandleActivate	proc export

	lsr a
	bcc RestorePalette

	export UseStandardPalette
UseStandardPalette	lda >MyPaletteActive
	bne @alreadyActive

	lda #1
	sta >MyPaletteActive

	pha
	pha	;space for result
	pea $000f	;table number to use
	lda #0
	pha
	pha	;table pointer = NIL
	pea $8000	;use 640 colors even in 320 mode
;	_UseColorTable
	ldx #$1612
	jsl $e10000
	pla
	sta >ColorInfoHandle
	pla
	sta >ColorInfoHandle+2
@alreadyActive	rtl



RestorePalette	phb
	phk
	plb

	lda MyPaletteActive
	beq @notActive

	lda IgnoreTheDeactivate
	stz IgnoreTheDeactivate
	bne @ignore
	
	stz MyPaletteActive

	pushlong ColorInfoHandle
	pea $0000	;flags
;	_RestoreColorTable
	ldx #$1712
	jsl $e10000

@ignore
@notActive	plb
	rtl

*******************************************************************************
*
* DeactivateIfNotMyWindowNext
*
* Calls HandleActivate(A=deactivate) *if* the front window is NOT mine,
* because if the front window *is* mine then we can just keep the cool
* color table instead of reverting to the application colors, and then
* re-instating my cool colors again, which is really icky to watch.
*
*******************************************************************************
	export DeactivateIfNotMyWindowNext
DeactivateIfNotMyWindowNext
	import TheNDAStructure

	pha
	pha
	_FrontWindow
	plx
	ply
	bne @notNIL
	txa
	beq @isNIL

@notNIL	tya
	cmp >MainWindPtr+2
	bne @notMain
	txa
	cmp >MainWindPtr
	beq @isMine
@notMain

	pha
	pha	;space for GetAuxWindInfo
	phy
	phx	;window pointer for GetAuxWindInfo
	_GetAuxWindInfo
	phd
	tsc
	tcd
	ldy #24
	lda [3],y
	tax
	iny
	iny
	lda [3],y
	pld
	ply
	ply
	cmp #^TheNDAStructure
	bne @notMine
	cpx #TheNDAStructure
	beq @isMine

@isNIL
@notMine	lda #0
	jsl HandleActivate

@isMine	rtl


	export IgnoreOneDeactivate
IgnoreOneDeactivate	lda >IgnoreTheDeactivate
	inc a
	sta >IgnoreTheDeactivate
	rtl

MyPaletteActive	dc.w 0
ColorInfoHandle	dc.l 0

IgnoreTheDeactivate	dc.w 0

	EndP

	end
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/CtlPanelNDA/CtlPanel.makeout b/IIGS.601.SRC/A.U.G/CtlPanel/CtlPanelNDA/CtlPanel.makeout
new file mode 100644
index 0000000..e005ddc
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/CtlPanelNDA/CtlPanel.makeout
@@ -0,0 +1 @@
+Set Echo 1
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/CtlPanelNDA/CtlPanel.rez b/IIGS.601.SRC/A.U.G/CtlPanel/CtlPanelNDA/CtlPanel.rez
new file mode 100644
index 0000000..6959b40
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/CtlPanelNDA/CtlPanel.rez
@@ -0,0 +1 @@
+/*************************************************************
 *
 * Control Panel 2.0 resources
 *
 * Copyright 1991-1993 Apple Computer, Inc.
 * All Rights Reserved
 *
 *************************************************************
 *
 * REVISION HISTORY
 *
 * 13-Feb-91 Dave Lyons
 *   Here it is.
 *
 * 19-Feb-91 DAL
 *   Commented the control templates a little.
 *   Took out extra stuff in version-string LETextBox2 resource.
 *
 * 25-Feb-91 DAL
 *   Added rVersion(1) and rComment(2) resources.
 *
 * 22-Mar-91 DAL
 *   Version 2.0d6.
 *
 * 30-Mar-91 DAL
 *   Version 2.0d7.
 *
 * 1-Apr-91 DAL
 *   Version 2.0d8.
 *
 * 7-Apr-91 DAL
 *   Version 2.0d9.
 *
 * 16-Apr-91 DAL
 *   Version 2.0d10.
 *
 * 17-Apr-91 DAL
 *   Version 2.0d11.
 *
 * 19-Apr-91 DAL
 *   Version 2.0d11.  Added Apple-H key equiv for Help button.
 *
 * 30-Apr-91 DAL
 *   Version 2.0d12.
 *
 * 13-May-91 DAL
 *   Version 2.0d13.
 *
 * 3-Jun-91 DAL
 *   Version 2.0d14.  Uses new rVersion template; fixed the
 *     Apple-H key equivalent (modifiers were wrong).
 *   Added rIcon($58) for X-ing out a CDev we couldn't load.
 *
 * 4-Jun-91 DAL
 *   Changed keyCareBits from $3B00 to $3900 so that Apple-shift-H
 *     and Apple-shift-? will work.
 *
 * 13-Jun-91 DAL
 *   Added ellipsis to About button.  Version 2.0d15.
 *
 * 24-Jun-91 DAL
 *   Version 2.0d16.
 *   Made the About... button invisible.
 *
 * 25-Jun-91 DAL
 *   Version 2.0d17.
 *
 * 27-Jun-91 DAL
 *   Version 2.0d18.
 *   Removed dead stuff (About... button).
 *
 * 8-Jul-91 DAL
 *   Version 2.0d19.
 *
 * 23-Jul-91 DAL
 *   Version 2.0d20.
 *
 * 20-Aug-91 DAL
 *   Version 2.0d21 for 6.0d46+.
 *
 * 3..4-Sep-91 DAL
 *   Version 2.0d22 for 6.0d47.
 *   Added rTwoRects(1) to record main window position.
 *
 * 9-Sep-91 DAL
 *   Version 2.0d23 for 6.0d48.
 *
 * 12-Sep-91 DAL
 *   Version 2.0d24 for 6.0d49.
 *
 * 24-Sep-91 DAL
 *   Version 2.0d25 for 6.0d51.
 *
 * 2-Oct-91 DAL
 *   Version 2.0d26 for 6.0d52.
 *
 * 12-Oct-91 DAL
 *   Version 2.0d27 for 6.0d53.
 *
 * 25-Oct-91 DAL
 *   Version 2.0d28 for 6.0d55.
 *
 * 29-Oct-91 DAL
 *   Removed the "X" resource (moved it to Sys.Resources).
 *
 * 30-Oct-91 DAL
 *   Version 2.0d29 for 6.0d56.
 *
 * 11-Nov-91 DAL
 *   Version 2.0d30 for 6.0d57.
 *
 * 19-Nov-91 DAL
 *   Version 2.0d31 for 6.0d59.
 *
 * 3-Dec-91 DAL
 *   Version 2.0d32 for 6.0d60.
 *
 * 9-Dec-91 DAL
 *   Version 2.0d33 for 6.0d61.
 *
 * 27-Jan-92 DAL
 *   Version 2.0d34 for 6.0d66.
 *
 * 5-Feb-92 DAL
 *   Version 2.0d35 for 6.0d70 (GM1?).
 *
 * 7-Feb-92 DAL (for d70)
 *   Version 2.0 final.
 *   Adjusted horizontal position of the version string control.
 *
 *************************************************************
 *
 * 16-Mar-92 DAL (for 6.0.1d2)
 *   Version 2.1d1.
 *
 * 2-Jul-92 DAL
 *   Version 2.1d6.
 *
 * 15-Jul-92 DAL (for 6.0.1d7)
 *   Version 2.1d7.
 *
 * 12-Aug-92 DAL (for 6.0.1d9)
 *   Version 2.1d9.
 *
 * 3-Sep-92 DAL (for 6.0.1d10)
 *   Version 2.1d10.
 *
 * 28-Oct-92 DAL (for 6.0.1d12)
 *   Version 2.1d12.
 *
 * 3-Mar-93 SS (for 6.0.1d14)
 *   Version 2.1d14.
 *
 * 16-Mar-93 SS (for 6.0.1d15)
 *   Version 2.1d15.
 *
 * 1-Apr-93 SS (for 6.0.1d16)
 *   Version 2.1 (release)
 *
 * 22-Apr-93 DAL (for 6.0.1d17)
 *   Moved version number to make it pretty.
 *
*************************************************************/

#include "typesiigs.r"

#define CTLLST_00001003 $1003
#define CTLTMP_00000001 1
#define CTLTMP_00000002 2
#define CTLTMP_00000003 3
// #define CTLTMP_00000004 4
#define CTLTMP_00000005 5
/* #define PSTR_00010002 $10002 */
#define PSTR_00010003 $10003
#define PSTR_00010004 $10004
#define PSTR_00010005 $10005
#define WPARAM1_00000FFA 1
#define WCOLOR_00000001 $07ff0001

resource rVersion(1) {
	{ 2, 1, 0, release, $00 },
	verUS,
	"Control Panel",
	"Copyright 1990-93 Apple Computer, Inc."
};


resource rComment(2) {
	"To use this Desk Accessory, put it in the Desk.Accs folder "
	"inside your System folder.  The next time you start your system, "
	"ÒControl PanelsÓ will appear under the Apple menu."
};


// --- Control List Definitions

resource rControlList (CTLLST_00001003, $0000) {
       {
       CTLTMP_00000001,        // control 1
       CTLTMP_00000002,        // control 2
       CTLTMP_00000003,        // control 3
//       CTLTMP_00000004,        // control 4
       CTLTMP_00000005,        // control 5
       };
};


/* List control, ID=1 */

resource rControlTemplate (CTLTMP_00000001, $0000) {
       $00000001,              // ID
       {  2, 10,105,106},      // rect
       listControl {{
               $0000,          // flag
               $3400,          // moreFlags
               $00000000,      // refCon
               $0000,          // listSize
               $0003,          // listView
               $0000,          // listType
               $0001,          // listStart
//             $00000000,      // listDraw (pointer to draw routine)
               $0021,          // listMemHeight
               $0012,          // listMemSize
               $00000000,      // listRef
	      $00000000	    // color ref
       }};
};

/* Open button, ID=2 */

resource rControlTemplate (CTLTMP_00000002, $0000) {
       $00000002,              // ID
       { 18,142, 31,232},      // rect
       simpleButtonControl {{
               $0001,          // flag
               $3002,          // moreFlags
               $00000000,      // refCon
               PSTR_00010004,  // titleRef
               0,              // colorTableRef
               {"\$0D", "\$0D",$0000,$0000}  // key equivalents
       }};
};

/* Help button (help on a CDev), ID=3 */

resource rControlTemplate (CTLTMP_00000003, $0000) {
       $00000003,              // ID
       { 41,142, 54,232},      // rect
       simpleButtonControl {{
               $0000,          // flag
               $3002,          // moreFlags
               $00000000,      // refCon
               PSTR_00010003,  // titleRef
               0,              // colorTableRef
               {"H", "h",$0100,$3900}  // key equivalents
       }};
};

/* About the Control Panel button, ID=4 */

// resource rControlTemplate (CTLTMP_00000004, $0000) {
//        $00000004,              // ID
//        { 75,144, 88,234},      // rect
//        simpleButtonControl {{
//                $0080,          // flag (invisible)
//                $3002,          // moreFlags
//                $00000000,      // refCon
//                PSTR_00010002,  // titleRef
//                0,              // colorTableRef
//                {"?","/",$0100,$3900}  // key equivalents
//        }};
// };

/* version string, ID=5 */

resource rControlTemplate (CTLTMP_00000005, $0000) {
       $00000005,              // ID
       { 96,194+22,106,241},      // rect
       statTextControl {{
               $0000,          // flag
               $1000,          // moreFlags (text by pointer)
               $00000000,      // refCon
               0,              // textRef
               $00000000, 	    // textSize
               $0000           // just
       }};
};



/* resource rPString (PSTR_00010002, $0000) { "About..." }; */
resource rPString (PSTR_00010003, $0000) { "Help" };
resource rPString (PSTR_00010004, $0000) { "Open" };
resource rPString (PSTR_00010005, $0000) { " Control Panels " };


// --- rTwoRects

resource rTwoRects(1) {
	{ 29, 40, 136, 286 },	// 320
	{ 29, 40, 136, 286 }	// 640
};

// --- Window Templates

resource rWindParam1 (WPARAM1_00000FFA, $0000) {
       $C0C8,                  // plFrame (frame bits--invisible)
       PSTR_00010005,          // plTitle (title ID)
       $00000000,              // plRefCon
       {  0,  0,  0,  0},      // plZoomRect
       WCOLOR_00000001,        // plColorTable
       {$0000, $0000},         // plYOrigin, plXOrigin
       {$0000, $0000},         // plDataHeight, plDataWidth
       {$0000, $0000},         // plMaxHeight, plMaxWidth
       {$0000, $0000},         // plVerScroll, plHorScroll
       {$0000, $0000},         // plVerPage, plHorPage
       $00000000,              // plInfoText (info RefCon)
       $0000,                  // plInfoHeight
       { 29, 40,136,286},      // plPosition
       infront,                // plPlane
       CTLLST_00001003,        // plControlList
       $0A09                   // plInDesc
};
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/CtlPanelNDA/cbp.aii b/IIGS.601.SRC/A.U.G/CtlPanel/CtlPanelNDA/cbp.aii
new file mode 100644
index 0000000..8ee0dfb
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/CtlPanelNDA/cbp.aii
@@ -0,0 +1 @@
+;;;	cbp - check battery parameters.
;
;	Michael V. Stein	05/01/90.
;
;	© Copyright Apple Computer, 1990.


	blanks	off

;;	equates.


aug_param  equ	$5e		 bit 0 set means no closed captioning
				;bit 1 set means standard time
				;      clear if daylight savings time
				;bit 2 set means not to have auto daylight savings
				;      clear means to have auto daylight savings
				;bit 3 and 4 are the amount of menublink to have

;;	include files.
	include	'::commonmacros.h'
	include	'm16.menu'
	include	'm16.misctool'


;;	main program.


file	proc


;;	exported addresses.

	export	cbp
cbp	phb

	phk
	plb
	
	jsr	cad		check auto daylight savings
***	jsr	cmb		check menublink

	plb
	rtl


;;	ats - adjust the time by seconds.
;
;	entry	[a, x] = amount of seconds to adjust clock.
;
;	exit	clock is adjusted.


ats	sta	atsa		save change for now
	stx	atsa+2

	pha			space for result
	pha			space for result
	pushw	#6		get current time based on seconds
	pushl	#0
	pushl	#buff		buffer to use
	ldx	#$3703
	jsl	$e10000		convert seconds

;	adjust the seconds.
	
	lda	1,s
	clc
	adc	atsa
	sta	1,s
	lda	1+2,s
	adc	atsa+2
	sta	1+2,s		
	plx			lo word of seconds
	ply			hi word of seconds

	pha			space for result
	pha			space for result
	pushw	#7		set current time based on seconds
	phy			hi word of seconds
	phx			lo word of seconds
	pushl	#buff		buffer to use
	
	pushw	#$e1e1		kludge to get around bug in misc tools
	plb			kludge to get around bug in misc tools
	plb			kludge to get around bug in misc tools
		
	ldx	#$3703
	jsl	$e10000		convert seconds
	pla
	plx
	
	phk			kludge to get around bug in misc tools
	plb			kludge to get around bug in misc tools
	
	rts
	
	
atsa	ds.b	2

buff	ds.b	10



;;	cad - check auto daylight savings.
;
;	entry	battery RAM is as defined above.
;
;	exit	If the machine thinks it is not synched with the
;		real status of daylight savings, the clock is either
;		advanced or decreased by an hour.


cad	ldx	#aug_param		
	jsr	rbp		read battey parameter
	sta	cada
	tax
	and	#$4
	bne	cad3		if no auto daylight savings check
	phx
	jsr	gds		get daylight savings flag
	pla
	and	#2
	bne	cad1		if machine thinks this is standard time
	
;	machine thinks this is daylight savings time.

	bcc	cad3		if it actually is daylight savings

;	fall back one hour.

	lda	cada
	ora	#$2		set bit 1 - it is standard time
	pha			save new value for now

	lda	#-3600
	ldx	#^-3600
	bra	cad2
	
;	machine thinks that this is standard time.

cad1	bcs	cad3		if actually is standard time

;	spring ahead one hour.
	
	lda	cada
	and	#$fd
	pha
	
	lda	#3600
	ldx	#^3600
	
cad2	jsr	ats		adjust time in seconds 
	pla
	ldx	#aug_param
	jmp	wbp		write battery parameter and return

cad3	rts


cada	dc.w	0



;;	cmb - check menu blink.
;
;	entry	none.
;
;	exit	menu blink is set as battery params dictate.
;
;
;cmb	ldx	#aug_param
;	jsr	rbp		read battery parameter
;	lsr	a
;	lsr	a
;	lsr	a		
;	and	#$3		amt of menublink to use
;	pha
;	_SetMItemBlink
;	rts
;


;;	gds - get daylight status.
;
;	entry	none.
;
;	exit	(c) set if standard time, clear if daylight savings.


gds	pha			space for result
	pha			space for result
	pha			space for result
	pha			space for result
	_ReadTimeHex
	lda	6,s		get month and filler
	and	#$ff		remove filler
	cmp	#3
	bcc	gds1a		if not at least april, standard time
	
	cmp	#3
	bne	gds3		if not april
	
;	see if past the first sunday in april.

	lda	5,s
	and	#$ff		get day of month
	cmp	#6+1
	bcs	gds9		if definetly past the first sunday of the month
	
	tax
	stx	gdsa		save for now
	
	lda	8,s		get day of week
	and	#$ff		remove extra garbage

gds1	cmp	#1
	beq	gds2		if found the first sunday of the month
	dea
	dex
	bpl	gds1		if more to check in the month
gds1a	bra	gds8		if definetly standard time
	
gds2	cpx	gdsa
	bne	gds9		if past the first sunday of april
	
;	today is the first sunday of april.

	lda	3,s		get hour and year
	and	#$ff		remove year
	cmp	#2
	bcs	gds9		if in daylight savings
	bra	gds8		if standard time
	
gds3	cmp	#9
	bcc	gds9		if defintely daylight savings
	bne	gds8		if defintely standard time
	
	lda	5,s
	and	#$ff		get day of month in low bye
	cmp	#30-6
	bcc	gds9		if definetly in daylight savings
	tax
	stx	gdsa
	lda	8,s		get day of week
	and	#$ff		remove extra garbage
	
gds4	cmp	#1
	beq	gds7		if found the last sunday of the month
	ina
	cmp	#8
	bcc	gds5		if haven't wrapped
	lda	#1		reset to sunday
gds5	inx
	cpx	#30+1
	bcc	gds4		if more to check in the month
	bra	gds8		if defintely standard time
	
gds7	cpx	gdsa
	bne	gds9		if before the last sunday of the month
	
;	today is the last sunday of october.

	lda	3,s		get hour and year
	and	#$ff		remove year
	cmp	#2
	bra	gds10		(c) set if standard time
	
gds8	sec			flag standard time
	bra	gds10

gds9	clc			flag daylight savings time

gds10	plx			clear off stack
	plx
	plx
	plx
	rts


gdsa	dc.w	0		scratch value



;;	rbp - read battery parameter.
;
;	entry	(x) = parameter to read.
;
;	exit	(a) = value of parameter.


rbp	pha			space for result
	phx			parameter to read
	_ReadBparam
	pla			get value
	rts



;;	wbp - write battery parameter.
;
;	entry	(a) = value of parameter to set.
;		(x) = battery parameter to set.
;
;	exit	battery parameter is set.


wbp	pha			new value
	phx			parameter to set
	_WriteBparam
	rts
	

	endp

	end
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/CtlPanelNDA/makefile b/IIGS.601.SRC/A.U.G/CtlPanel/CtlPanelNDA/makefile
new file mode 100644
index 0000000..beed5c4
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/CtlPanelNDA/makefile
@@ -0,0 +1 @@
+#   File:       makefile
#   Target:     CtlPanel.NDA
#   Created:    Wednesday, February 13, 1991 DAL

CtlPanel.NDA ÄÄ ControlPanel.NDA.Load ControlPanel.NDA.Res
	delete -i CtlPanel.NDA
	duplicate -y -d 	ControlPanel.NDA.load 	CtlPanel.NDA
	duplicate -y -r 	ControlPanel.NDA.res 	CtlPanel.NDA
	if {AutoDuplicate} == 1
		DuplicateIIGS -y -mac CtlPanel.NDA ControlPanel
	End

ControlPanel.NDA.res ÄÄ CtlPanel.rez
	reziigs CtlPanel.rez -o ControlPanel.NDA.res

ControlPanel.NDA.Load Ä CtlPanel.aii.obj cbp.aii.obj makefile
	linkiigs ¶
##		-l -s >ControlPanel.map ¶
		-lseg:$1000 main ¶
			CtlPanel.aii.obj cbp.aii.obj ¶
		-o ControlPanel.NDA.Load -t NDA

cbp.aii.obj Ä cbp.aii Makefile ::commonmacros.h
	asmiigs cbp.aii 

.aii.obj Ä .aii
	asmiigs {default}.aii
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/DirectConnectCDEV/ASPCalls.c b/IIGS.601.SRC/A.U.G/CtlPanel/DirectConnectCDEV/ASPCalls.c
new file mode 100644
index 0000000..7d60785
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/DirectConnectCDEV/ASPCalls.c
@@ -0,0 +1 @@
+This source file is no longer in use.

Replaced by the DC.AII and DIRECTCONNECT.R files

Tim Harrington 3/29/89
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/DirectConnectCDEV/ASPDefs.h b/IIGS.601.SRC/A.U.G/CtlPanel/DirectConnectCDEV/ASPDefs.h
new file mode 100644
index 0000000..7d60785
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/DirectConnectCDEV/ASPDefs.h
@@ -0,0 +1 @@
+This source file is no longer in use.

Replaced by the DC.AII and DIRECTCONNECT.R files

Tim Harrington 3/29/89
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/DirectConnectCDEV/DIRECTCONNECT.R b/IIGS.601.SRC/A.U.G/CtlPanel/DirectConnectCDEV/DIRECTCONNECT.R
new file mode 100644
index 0000000..caea518
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/DirectConnectCDEV/DIRECTCONNECT.R
@@ -0,0 +1 @@
+/*******************************************************************/
/*
/* DIRECTCONNECT.r
/*
/* Copyright (C) 1988-1992
/* Apple Computer, Inc.
/* All Rights Reserved
/*
/* This file contains the source of the resources needed to build the 
/* Direct Connect CDEV.
/*
/*******************************************************************/


#include "typesiigs.r" 

resource rIcon (1) {
	  0x8000,							/* Kind */
	  20,								/* Height */
	  28,								/* Width */

	  $"00000000000FFFFFFFFFFFFFFFFF"
	  $"FFFFFFFFFFF0FFFFFFF000000000"
	  $"0000000000F0FFFFFFF0FFFFFFFF"
	  $"FFFFFFFFF0F0FFFFFFF0FCCCCCCC"
	  $"DDDDDDDDD0F0FFFFFFF0FFFFFFFF"
	  $"DDDDDDDDD0F0FFFFFFF0FCCCCCCF"
	  $"DDDDDDDDD0F0FFFFFFF0FFFFFFFF"
	  $"DDDDDDDDD0F0FFFFFFF0FCCCCCCC"
	  $"DDDDDDDDD0F0FFFFFFF0FFFFFFFF"
	  $"DDDDDDDDD0F0FFFFFFF0FFFCCCCC"
	  $"DDDDDDDDD0F0FFFFFFF0FFFFFFFF"
	  $"0000000000F0FFFFFFF0FCCCCCFC"
	  $"FFFFFFFFFFF0FFFF0000FFFFFFFF"
	  $"00000000000FFFFF0FF0FCCCCCCF"
	  $"FFFFFFFFFF0FFFFF0FF000000000"
	  $"FFFFFFFFFF0000000FFFFFFFFFFF"
	  $"FFFFFFFFFF0FFFFF0FF8FFFFFFFF"
	  $"33333333330000000FF4FCCCFFFF"
	  $"FFFFFFFFFF0FFFFF0FFFFFFFFFFF"
	  $"00000000000FFFFF000000000000",

		
	  $"fffffffffff00000000000000000"
	  $"ffffffffffff0000000fffffffff"
	  $"ffffffffffff0000000fffffffff"
	  $"ffffffffffff0000000fffffffff"
	  $"ffffffffffff0000000fffffffff"
	  $"ffffffffffff0000000fffffffff"
	  $"ffffffffffff0000000fffffffff"
	  $"ffffffffffff0000000fffffffff"
	  $"ffffffffffff0000000fffffffff"
	  $"ffffffffffff0000000fffffffff"
	  $"ffffffffffff0000000fffffffff"
	  $"ffffffffffff0000000fffffffff"
	  $"ffffffffffff0000ffffffffffff"
	  $"fffffffffff00000ffffffffffff"
	  $"fffffffffff00000ffffffffffff"
	  $"ffffffffffffffffffffffffffff"
	  $"ffffffffffffffffffffffffffff"
	  $"ffffffffffffffffffffffffffff"
	  $"fffffffffff00000ffffffffffff"
	  $"fffffffffff00000ffffffffffff";
};

read rCDEVCode (1,Convert) "DIRECTCONNECT.Load";


resource rCDEVFlags (1) {
	wantInit+wantClose+wantCreate+wantAbout,	/* CDEV Flags */
	1,											/* Enabled */
	1,											/* Version */
	1,											/* Machine */
	4,											/* System */
	{0,0,131,200},								/* DataRect {0,0,160,200} */
	"DC Printer",								/* Name */
	"Scott Kuechle & Tim Harrington",			/* Author */
	"v1.1";										/* VersStr */
};
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/DirectConnectCDEV/DirectConnect.c b/IIGS.601.SRC/A.U.G/CtlPanel/DirectConnectCDEV/DirectConnect.c
new file mode 100644
index 0000000..7d60785
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/DirectConnectCDEV/DirectConnect.c
@@ -0,0 +1 @@
+This source file is no longer in use.

Replaced by the DC.AII and DIRECTCONNECT.R files

Tim Harrington 3/29/89
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/DirectConnectCDEV/DirectConnectDefs.h b/IIGS.601.SRC/A.U.G/CtlPanel/DirectConnectCDEV/DirectConnectDefs.h
new file mode 100644
index 0000000..7d60785
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/DirectConnectCDEV/DirectConnectDefs.h
@@ -0,0 +1 @@
+This source file is no longer in use.

Replaced by the DC.AII and DIRECTCONNECT.R files

Tim Harrington 3/29/89
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/DirectConnectCDEV/ErrorHandling.c b/IIGS.601.SRC/A.U.G/CtlPanel/DirectConnectCDEV/ErrorHandling.c
new file mode 100644
index 0000000..7d60785
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/DirectConnectCDEV/ErrorHandling.c
@@ -0,0 +1 @@
+This source file is no longer in use.

Replaced by the DC.AII and DIRECTCONNECT.R files

Tim Harrington 3/29/89
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/DirectConnectCDEV/GSOS.c b/IIGS.601.SRC/A.U.G/CtlPanel/DirectConnectCDEV/GSOS.c
new file mode 100644
index 0000000..7d60785
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/DirectConnectCDEV/GSOS.c
@@ -0,0 +1 @@
+This source file is no longer in use.

Replaced by the DC.AII and DIRECTCONNECT.R files

Tim Harrington 3/29/89
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/DirectConnectCDEV/GSOS.h b/IIGS.601.SRC/A.U.G/CtlPanel/DirectConnectCDEV/GSOS.h
new file mode 100644
index 0000000..7d60785
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/DirectConnectCDEV/GSOS.h
@@ -0,0 +1 @@
+This source file is no longer in use.

Replaced by the DC.AII and DIRECTCONNECT.R files

Tim Harrington 3/29/89
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/DirectConnectCDEV/LIST.H b/IIGS.601.SRC/A.U.G/CtlPanel/DirectConnectCDEV/LIST.H
new file mode 100644
index 0000000..7d60785
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/DirectConnectCDEV/LIST.H
@@ -0,0 +1 @@
+This source file is no longer in use.

Replaced by the DC.AII and DIRECTCONNECT.R files

Tim Harrington 3/29/89
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/DirectConnectCDEV/MakeFile b/IIGS.601.SRC/A.U.G/CtlPanel/DirectConnectCDEV/MakeFile
new file mode 100644
index 0000000..0d4afd9
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/DirectConnectCDEV/MakeFile
@@ -0,0 +1 @@
+
CDEV = DirectConnect



{CDEV}			 	Ä				{CDEV}.Load 	¶
									{CDEV}.r
	reziigs {CDEV}.r -o {CDEV} -t "C7  " -c "pdos"
	if {dup}	# test whether we should duplicateiigs
		duplicateiigs -m -y {CDEV} {CDEV}
	end


{CDEV}.Load		Ä	¶
			dc.aii.obj ¶
			sul.aii.obj
	LinkIIGS -x -lseg scott ¶
			dc.aii.obj ¶
			sul.aii.obj ¶
			 -o {CDEV}.Load
		
		
dc.aii.obj	Ä	dc.aii
	asmiigs dc.aii

sul.aii.obj	Ä	sul.aii
	asmiigs sul.aii
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/DirectConnectCDEV/NewControls.h b/IIGS.601.SRC/A.U.G/CtlPanel/DirectConnectCDEV/NewControls.h
new file mode 100644
index 0000000..7d60785
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/DirectConnectCDEV/NewControls.h
@@ -0,0 +1 @@
+This source file is no longer in use.

Replaced by the DC.AII and DIRECTCONNECT.R files

Tim Harrington 3/29/89
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/DirectConnectCDEV/NewInterface.h b/IIGS.601.SRC/A.U.G/CtlPanel/DirectConnectCDEV/NewInterface.h
new file mode 100644
index 0000000..7d60785
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/DirectConnectCDEV/NewInterface.h
@@ -0,0 +1 @@
+This source file is no longer in use.

Replaced by the DC.AII and DIRECTCONNECT.R files

Tim Harrington 3/29/89
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/DirectConnectCDEV/RESMGR.H b/IIGS.601.SRC/A.U.G/CtlPanel/DirectConnectCDEV/RESMGR.H
new file mode 100644
index 0000000..7d60785
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/DirectConnectCDEV/RESMGR.H
@@ -0,0 +1 @@
+This source file is no longer in use.

Replaced by the DC.AII and DIRECTCONNECT.R files

Tim Harrington 3/29/89
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/DirectConnectCDEV/TYPES.H b/IIGS.601.SRC/A.U.G/CtlPanel/DirectConnectCDEV/TYPES.H
new file mode 100644
index 0000000..7d60785
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/DirectConnectCDEV/TYPES.H
@@ -0,0 +1 @@
+This source file is no longer in use.

Replaced by the DC.AII and DIRECTCONNECT.R files

Tim Harrington 3/29/89
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/DirectConnectCDEV/dc.aii b/IIGS.601.SRC/A.U.G/CtlPanel/DirectConnectCDEV/dc.aii
new file mode 100644
index 0000000..60bde40
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/DirectConnectCDEV/dc.aii
@@ -0,0 +1 @@
+*******************************************************************************
*
*			DirectConnect CDEV
*
*
*		Copyright 1988,1989 Apple Computer, Inc.
*			All rights reserved
*
*
*		Written by : 	Tim Harrington
*				     and
*				Scott Kuechle
*
*
*******************************************************************************
*
* Revision History
*
* 1.0e14    3/21/89   TGH	-First try at this thing.
* 1.0d16    3/29/89   TGH	-First public release.
* 1.1d1	    3/20/90   MVS	Version 1.1
*				User can now select LaserWriter so postscript files
*				can be generated.  Lists are now sorted.  Makes sure
*				that starting selection is always visible.
*                               A whole bunch of changes by Monte.
*           8/15/91   BAK	Added dialog if error on read or write PRINTER.SETUP.
*           8/16/91   BAK	If AppleShare FST is the boot FST (ie, we booted from
*				the network), then the path to PRINTER.SETUP is as
*				follows: "{GetUserPath FST specific call}:Printer.Setup".
*
*******************************************************************************

		msb	off
		string	asis

		INCLUDE	'M16.UTIL'
		INCLUDE	'M16.GSOS'
		INCLUDE	'M16.CONTROL'
		INCLUDE	'M16.MISCTOOL'
		INCLUDE 'M16.LIST'
		INCLUDE	'M16.MEMORY'
		INCLUDE	'M16.INTMATH'
		INCLUDE	'M16.PRINT'
		include 'M16.QUICKDRAW'
		include 'M16.WINDOW'
		include 'M16.DIALOG'
		include	'e16.dialog'
		INCLUDE	'E16.CONTROL'

		ENTRY	bogusCDEV,\
			InitCDEV,\
			CloseCDEV,\
			CreateCDEV,\
			AboutCDEV

		ENTRY	C2Printer,CPort
		ENTRY	WriteData
		ENTRY	screenF :data

		import	sul

zp0		equ	0		;Zero page use
zp1		equ	zp0+4
zpsize		equ	zp1+4		;Length of zero page.

MemRecSize	equ	5		;Size of each member record.


*##############################################################################
*
* Below is the main entry point for this CDEV.  All messages (commands)
* passed to the CDEV by the Control Panel go through this point.  This CDEV
* handles only 4 of the standard CDEV calls.  These are listed below:
*
*	Call Name	Call Number
*	---------	-----------
*	INIT		4
*	CLOSE		5
*	CREATE		7
*	ABOUT		8
*
* ON ENTRY:	C,X,Y =	Unknown
*		Stack =	Result Space (Long)
*			Message (Word)
*			Data1 (Long)
*			Data2 (Long)
*			Return Address (3 Bytes)
*
*			Message = Call Number
*			Data1 = Window Grafport
*			Data2 = Unused
*
* ON EXIT	C,X,Y =	Changed
*		Stack =	Result (Long)
*
*			Result = 0 (always)
*
*##############################################################################

main		PROC

		ENTRY	Data1,Data2
		ENTRY	ControlList
		ENTRY	AboutList
		ENTRY	MErrorList
		ENTRY	Mem1RecH,Mem2RecH
		ENTRY	MyID
		ENTRY	List1Count,List2Count
		ENTRY	List1ID,List2ID
		ENTRY	CreateError

		phb			;Save old data reg
		phk			;Set data reg = prog reg
		plb

		lda	5,s		;Load DATA2 off the stack
		sta	Data2		;and store it locally.
		lda	7,s
		sta	Data2+2
		lda	9,s		;Load DATA1 off the stack
		sta	Data1		;and store it locally.
		lda	11,s
		sta	Data1+2
		lda	13,s		;Load MESSAGE off the
		sta	Message		;stack and store it locally.

		lda	1,s		;Bump the stack up to prepare
		sta	11,s		;to take off the 3 parameters
		lda	3,s		;that we stored about.
		sta	13,s

		PullWord		;Get rid of MESSAGE space
		PullLong		;Get rid of DATA1 space
		PullLong		;Get rid of DATA2 space

		lda	Message		;Load the call number
		cmp	#12		;Compare againts max+1
		bcs	ret_addr	;If >= max+1, just leave.

		pea	ret_addr-1	;Push our return address
		asl	a		;Times 2 into word table
		tax			;Move into index reg
		lda	cdev_calls,x	;Load the address of call handler
		pha			;Push the address of routine on the stack
		rts			;Jump to the call handler

ret_addr	lda	#0		;Make sure we return zeros.
		sta	5,s
		sta	7,s

		plb			;Restore NDAs data bank register
		rtl			;Return to Control Panel NDA.

Message		dc.w	0		;Local storage for MESSAGE
Data1		dc.l	0		;Local storage for DATA1
Data2		dc.l	0		;Local storage for DATA2

MyID		dc.w	0

CreateError	dc.w	0		;0 = no error, 1 = error

cdev_calls	dc.w	bogusCDEV-1	;0	;Null
		dc.w	bogusCDEV-1	;1	;MachineCDEV
		dc.w	bogusCDEV-1	;2	;BootCDEV
		dc.w	bogusCDEV-1	;3	;ShutdownCDEV
		dc.w	InitCDEV-1	;4
		dc.w	CloseCDEV-1	;5
		dc.w	bogusCDEV-1	;6	;EventsCDEV
		dc.w	CreateCDEV-1	;7
		dc.w	AboutCDEV-1	;8
		dc.w	bogusCDEV-1	;9	;RectCDEV
		dc.w	bogusCDEV-1	;10	;HitCDEV
		dc.w	bogusCDEV-1	;11	;RunCDEV

ControlList
		dc.l	List2Control
		dc.l	List1Control
		dc.l	SText1Control	;Port:
		dc.l	SText2Control	;Printer:
		dc.l	0

LeftEdge	equ	10
RightEdge	equ	190
TL1Vert		equ	18
BR1Vert		equ	60
TL2Vert		equ	79
BR2Vert		equ	121
TL3Vert		equ	8
BR3Vert		equ	18
TL4Vert		equ	69
BR4Vert		equ	79

List1Control	dc.w	14		;PCount
List1ID		dc.l	1		;ID number
		dc.w	TL1Vert
		dc.w	LeftEdge
		dc.w	BR1Vert
		dc.w	RightEdge
		dc.l	$89000000	;listcontrol ID
		dc.w	0		;Flag
		dc.w	$1401+fCtlCanBeTarget+fCtlWantEvents	;More Flags
		dc.l	0		;Ref con
List1Count	dc.w	0
		dc.w	0		;Number seen
		dc.w	6		;Single selection Pascal strings
List1Start	dc.w	1		;1st member seen
		dc.l	0		;Draw routine
		dc.w	10		;Height
		dc.w	5		;List record size
Mem1RecH	dc.l	0

List2Control	dc.w	14		;PCount
List2ID		dc.l	2		;ID number
		dc.w	TL2Vert
		dc.w	LeftEdge
		dc.w	BR2Vert
		dc.w	RightEdge
		dc.l	$89000000	;listcontrol ID
		dc.w	0		;Flag
		dc.w	$1401+fCtlCanBeTarget+fCtlWantEvents	;More Flags
		dc.l	0		;Ref con
List2Count	dc.w	0
		dc.w	0		;Number seen
		dc.w	6		;Single selection Pascal strings
List2Start	dc.w	1		;1st member seen
		dc.l	0		;Draw routine
		dc.w	10		;Height
		dc.w	5		;List record size
Mem2RecH	dc.l	0

SText1Control	dc.w	8		;PCount
		dc.l	3		;ID number
		dc.w	TL3Vert
		dc.w	LeftEdge
		dc.w	BR3Vert
		dc.w	RightEdge
		dc.l	$81000000	;Static text
		dc.w	1		;Flag
		dc.w	$1000		;More flag
		dc.l	0
		dc.l	SText1
		dc.w	SText1Len

SText2Control	dc.w	8		;PCount
		dc.l	4		;ID number
		dc.w	TL4Vert
		dc.w	LeftEdge
		dc.w	BR4Vert
		dc.w	RightEdge
		dc.l	$81000000	;Static text
		dc.w	1		;Flag
		dc.w	$1000		;More flag
		dc.l	0
		dc.l	SText2
		dc.w	SText2Len

SText1		dc.b	'Select a Port:'
SText1Len	equ	*-SText1
SText2		dc.b	'Select a Printer Type:'
SText2Len	equ	*-SText2

AboutList	dc.w	8		;Pcount
		dc.l	1		;ID
		dc.w	38,5,138,280
		dc.l	$81000000
		dc.w	1
		dc.w	$1000
		dc.l	0
		dc.l	AboutText
		dc.w	AboutTextLen
AboutText	dc.b	'The Direct Connect Printer Control Panel allows you to '
		dc.b	'select a printer port and type for '
		dc.b	'directing your printer output.  '
		dc.b	'Only the printer and port drivers '
		dc.b	'present in your system are listed.'
AboutTextLen	equ	*-AboutText

MErrorList	dc.w	8		;Pcount
		dc.l	1		;ID
		dc.w	TL1Vert
		dc.w	LeftEdge
		dc.w	BR2Vert
		dc.w	RightEdge
		dc.l	$81000000
		dc.w	1
		dc.w	$1000
		dc.l	0
		dc.l	MErrorText
		dc.w	MErrorTextLen
MErrorText	dc.b	'An error occured while trying to allocate '
		dc.b	'memory.  This CDEV requires some free '
		dc.b	'memory in order to operate.'
MErrorTextLen	equ	*-MErrorText

		ENDP

*##############################################################################
*			Below are the CDEV handler routines		      *
*##############################################################################

bogusCDEV	PROC
		rts
		ENDP


InitCDEV	PROC

init		ldx	#1		;ctl ID
		jsr	initE		;start the port list from the selected member
		ldx	#2		;ctl ID

		; fall through to start the driver list from the selected member

InitE		stx	inita
		PushLong #0		;Result space
		PushLong Data1		;Window pointer
		PushWord #0		;Push high word of list #
		Phx			;Push low word of list #
		_GetCtlHandleFromID
		pla
		plx
		
		pha			;space for result
		pushword #0		;start from top
		phx			;hi word of list control
		pha			;lo word of list control
		_NextMember2		;find the selected item
		lda	#$34
		sta	>$ff0001	;**********************
		lda	1,s
		sta	>$ff0001
		
		PushLong #0		;Result space
		PushLong Data1		;Window pointer
		PushWord #0		;Push high word of list #
		pushword inita		;Push low word of list #
		_GetCtlHandleFromID
		_SelectMember2		;make sure it is visible
		rts
		
inita		dc.w	0		

		ENDP

*##############################################################################

*******************************************************************************
* Times5
*
* This routine will multiply the number in X with 5 and return the result
* in the variable AddIndex.
*
* Inputs: X = Number to mulitiply
*
* Outputs: AddIndex = Result (long)
*******************************************************************************

Times5		PROC

		ENTRY	AddIndex

		PushLong #0		;Result space
		phx			;Item number
		PushWord #5		;Item length
		_Multiply
		PullLong AddIndex	;Offset into member list
		rts

AddIndex	dc.l	0

		ENDP


;;	dam - display alert message.
;
;	entry	[a,y] = ptr to message.
;
;	exit	centered caution alert displayed.

dam		PROC	; ported from NetPrinter CDEV by Monte Benaresh 4/3/91

	sec

	EXPORT damE
damE
	clc
	ror	damF		;save type wanted for now
	sta	dammsg		;save message ptr
	sty	dammsg+2
	_InitCursor		;make sure cursor is reset
	ldx	#(320-damw)/2
	lda	screenF
	bpl	dam1		;if 320 mode
	ldx	#(640-damw)/2
dam1	stx	damtemp+2	;left edge
	txa
	clc
	adc	#damw
	sta	damtemp+6	;right edge

	pha
	pea damtemp >>16
	pea damtemp		;template
	lda #$0000
	pha
	pha			;no filter	

	;jsr	dwh		;disable window highlighting
dwh	pha
	pea $0001		;flag for disabling window highlighting
	_WindowGlobal
	pla
	
	lda	damF
	bpl	dam2		;if user wants a stop alert
	
	_CautionAlert
	bra	dam3

dam2	_StopAlert	
	
dam3	;jsr	ewh		;enable window highlighting
ewh	pha
	pea $FFFE		;flag for enabling window highlighting
	_WindowGlobal
	pla

	pla			;ignore item hit but get it off the stack
	rts
		

damt	equ	60
damb	equ	140
damh	equ	damb-damt
daml	equ	170
damr	equ	470
damw	equ	damr-daml
damtemp dc.w	damt,daml,damb,damr
	dc.w	2376			;id
	dc.b	$80
	dc.b	$80
	dc.b	$80
	dc.b	$80
	dc.l	okitem
	dc.l	damstr
	dc.l	0

okitem	dc.w	ok			;okay button
	dc.w	damh-17,190,damh-4,260
	dc.w	buttonItem
	dc.l	oktext,0,0

damstr	dc.w	1348			;text item
	dc.w	5,75,5+6*9,280
	dc.w	StatText+ItemDisable
dammsg	dc.l	0,0,0
	
damF	dc.w	0	

oktext	dc.b 2				;length byte
	dc.b	'OK'

		ENDP


CloseCDEV	PROC

		phd				;Save the old D reg.
		tsc				;*Stack -> C reg.
		sec				;Add 4 bytes
		sbc	#4			; (actually minus)
		tcs				;C reg. -> *Stack
		ina
		tcd				;C reg. -> *DPage

		lda	CreateError
		beq	@CloseIt
		jmp	Exit

@CloseIt	ldx	List1ID		;Look at list #1
		jsr	FindSelected	;Find selected member
		bne	@FoundOne	;Branch if we found one!
		jmp	Exit		;No member selected! (just leave)

@FoundOne	dex			;Minus 1 for multiply
		jsr	Times5		;Times 5 for each record.

;------------------------------------------------------------------------------
; Below we add the offset for this record number (# times 5) to the
; base location to the member pointer list.
;------------------------------------------------------------------------------

		PushLong Mem2RecH
		_HLock

		lda	Mem1RecH
		sta	zp0
		lda	Mem1RecH+2
		sta	zp0+2
		ldy	#2
		lda	[zp0]
		tax
		lda	[zp0],y
		sta	zp0+2
		stx	zp0

		clc
		lda	AddIndex	;Load low word of offset
		adc	zp0		;Add it to low word of base
		sta	zp0		;Store on zero page.
		lda	AddIndex+2	;Now do the same for the
		adc	zp0+2		;high word.
		sta	zp0+2

		ldy	#2		;Zero page location 00-03 now
		lda	[zp0]		;points to a value that is a
		tax			;pointer to the string to move.
		lda	[zp0],y		;Get this pointer and hold it
		pha			;in the X and Y registers.
					;Pushlong pointer to string.
		phx			;Must go onto the stack high-low!

;------------------------------------------------------------------------------
; Below we move the name of the file from our member list into the
; PRINTER.SETUP file buffer for writting out.  We're falling through here
; with the source address pointer on the stack.
;------------------------------------------------------------------------------

		PushLong #CPort
		PushLong #33
		_BlockMove

		PushLong Mem1RecH
		_HUnlock

;------------------------------------------------------------------------------
; Now we do the same thing to list #2 that we did for list #1
;------------------------------------------------------------------------------

		ldx	List2ID
		jsr	FindSelected
		bne	notExit
		brl	Exit
notExit

		dex
		jsr	Times5

;------------------------------------------------------------------------------
; Below we add the offset for this record number (# times 5) to the
; base location to the member pointer list.
;------------------------------------------------------------------------------

		PushLong Mem2RecH
		_HLock

		lda	Mem2RecH
		sta	zp0
		lda	Mem2RecH+2
		sta	zp0+2
		ldy	#2
		lda	[zp0]
		tax
		lda	[zp0],y
		sta	zp0+2
		stx	zp0

		clc
		lda	AddIndex	;Load low word of offset
		adc	zp0		;Add it to low word of base
		sta	zp0		;Store on zero page.
		lda	AddIndex+2	;Now do the same for the
		adc	zp0+2		;high word.
		sta	zp0+2

		ldy	#2		;Zero page location 00-03 now
		lda	[zp0]		;points to a value that is a
		tax			;pointer to the string to move.
		lda	[zp0],y		;Get this pointer and hold it
		pha			;in the X and Y registers.
					;Pushlong pointer to string.
		phx			;Must go onto the stack high-low!

;------------------------------------------------------------------------------
; Below we move the name of the file from our member list into the
; PRINTER.SETUP file buffer for writting out.  We're falling through here
; with the source address pointer on the stack.
;------------------------------------------------------------------------------

		PushLong #C2Printer
		PushLong #33
		_BlockMove

		PushLong Mem2RecH
		_HUnlock
	
		jsr	WriteData
		bcc	NoWriteError		;BAK 8/15/91
		import	no_iosuccess_msg
		lda	#no_iosuccess_msg
		ldy	#^no_iosuccess_msg
		jsr	damE
NoWriteError

		PushWord #0		;Result space
		_PMStatus		;Is the PM running?
		pla			;0 = no
		beq	Exit		;Branch if not running

		PushWord #0		;Unload both drivers
		_PMUnloadDriver		;Unload printer and port drivers

Exit		tsc				;*Stack -> C reg.
		clc				;Subtract 4 bytes.
		adc	#4			; (actually plus)
		tcs				;C reg. -> *Stack
		pld				;Restore old D reg.

		lda	MyID
		beq	@NoID

		PushWord MyID			;Dispose of all our membory
		_DisposeAll

		PushWord MyID			;Dispose of our
		_DeleteID			;memory ID.

@NoID		rts



		export no_iosuccess_msg		;BAK 8/15/91

no_iosuccess_msg
		dc.b @end-@start
@start
		dc.b 'Unable to read or write'
		dc.b $0D
		dc.b 'the printer selection'
		dc.b $0D
		dc.b 'from or to boot disk.'
@end



*******************************************************************************
* FindSelected
*
* This routine will call the list manager tool to find the selected member
* of the specified list and return it in X.
*
* Inputs: X = List number
*
* Outputs: X = Item number ( 0 = no item selected)
*******************************************************************************

FindSelected	PushWord #0		;Result space (for _ResetMember2)

;------------------------------------------------------------------------------
; Below we get the control handle for list #n and put it on the stack
; for the _ResetMember2 call.
;------------------------------------------------------------------------------

		PushLong #0		;Result space
		PushLong Data1		;Window pointer
		PushWord #0		;Push high word of list #
		phx			;Push low word of list #
		_GetCtlHandleFromID
		bcs	@BadExit

;------------------------------------------------------------------------------
; After the above code, the control handle is on the stack for use in the
; next call.
;------------------------------------------------------------------------------

		ldx	#$131C
		jsl	>$E10000	;_ResetMember2
		plx			;Pull item number
		bcs	@BadExit
		rts

@BadExit	lda	#0
		rts

		ENDP

*##############################################################################

AboutCDEV	PROC
		PushLong #0			;Space for result
		PushLong Data1			;Grafport
		PushWord #0			;Ptr to single
		PushLong #AboutList
		_NewControl2
		PullLong

		rts
		ENDP

*##############################################################################

CreateCDEV	PROC

		import damE

						;SCB stuff added 4/3/91 by Monte
		pha				;space for result
		_GetMasterSCB
		pla
		xba
		and	#$8000
		sta	screenF			; != 0 if 640 mode

		PushWord #0			;Result space
		PushWord #$5000			;DA type
		_GetNewID
		PullWord MyID
		bcc	@GotID
		jmp	@MemoryError1

@GotID		PushLong #0			;Result space
		PushLong #1			;Size of block
		PushWord MyID			;User ID
		PushWord #$8018			;Attributes
		PushLong #0			;Pointer to mem
		_NewHandle
		PullLong Mem1RecH
		bcc @mem1_ok
		brl	@MemoryError2
@mem1_ok
		PushLong #0			;Result space
		PushLong #1			;Size of block
		PushWord MyID			;User ID
		PushWord #$8018			;Attributes
		PushLong #0			;Pointer to mem
		_NewHandle
		PullLong Mem2RecH
		bcs	@MemoryError2

		stz	List1Count
		stz	List2Count

		stz	PrePickFlag		;0 = don't pre-pick
		jsr	ReadPSetup
		
		bcc	@NoReadError		;BAK 8/15/91
		import	no_iosuccess_msg
		lda	#no_iosuccess_msg
		ldy	#^no_iosuccess_msg
		jsr	damE
		sec
@NoReadError
		
		bcs	@L1
		lda	CFlag			;If AppleTalk printer is old
		bne	@L1			;pick, don't search.
		inc	PrePickFlag		;Try to pre-pick selections.

;------------------------------------------------------------------------------
; Below we add zpsize bytes to the stack and point the direct page register
; there.  We need zpsize bytes of zero page in SCAN4DRIVERS.
;------------------------------------------------------------------------------

@L1		phd				;Save the old D reg.
		tsc				;*Stack -> C reg.
		sec				;Add 12 bytes
		sbc	#zpsize			; (actually minus)
		tcs				;C reg. -> *Stack
		ina
		tcd				;C reg. -> *DPage

		jsr	Scan4Drivers

		tsc				;*Stack -> C reg.
		clc				;Subtract 12 bytes.
		adc	#zpsize			; (actually plus)
		tcs				;C reg. -> *Stack
		pld				;Restore old D reg.


		; check for missing printer/port drivers added 4/3/91
		; by Monte Benaresh

		lda List1Count			;check for 0 port drivers
		bne @maybe_none
@none						;display alert
		lda #no_print_msg		;tell user to install print SW
		ldy #^no_print_msg
		jsr damE			;display stop alert
		bra @continue
@maybe_none
		lda List2Count			;how about printer drivers?
		beq @none

@continue
		PushLong #0			;Space for result
		PushLong Data1			;WindPort
		PushWord #3			;Ptr to Ptrs
		PushLong #ControlList		;Ptr to control list
		_NewControl2
		PullLong			;Discard zeros

		stz	CreateError		;Flag no error!

		jsr	stl			;sort the lists
		
		rts

@MemoryError1	stz	MyID		;Flag no ID
@MemoryError2	lda	#0001		;Flag error!
		sta	CreateError

		PushLong #0		;Space for result
		PushLong Data1		;WindPort
		PushWord #0		;Ptr to single
		PushLong #MErrorList	;Ptr to control
		_NewControl2
		PullLong		;Discard

		rts

no_print_msg
		dc.b @end-@start
@start
		dc.b 'Can''t find printer drivers.'
		dc.b $0D
		dc.b $0D
		dc.b 'Please install printer'
		dc.b $0D
		dc.b 'software to your startup'
		dc.b $0D
		dc.b 'disk.'
@end

;		maybe put this in a better spot....


;;		stl - sort the lists.
;	
;		entry	scrolling lists have been initialized with id of 1 and 2.
;
;		exit	lists will be sorted as if they were uppercase only.
;


;;		alternate entry point:  stlE
;
;		stlE can be used to sort a given list.
;	
;		entry	(x) = of list to sort.


stl		ldx	#1
		jsr	stlE		;sort the list (ports)
		ldx	#2		;fall into stlE for printer drivers
	

stlE		PushLong #0		;Result space
		PushLong Data1		;Window pointer
		PushWord #0		;Push high word of list #
		phx			;Push low word of list #
		_GetCtlHandleFromID
		pla			;lo word of control handle
		ply			;hi word of control handle
		jmp	sul		;sort uppercase list and return
		



;------------------------------------------------------------------------------
; READPSETUP / WRITEDATA
;
; This routine reads in the PRINTER.SETUP file in the system folder.  If it
; doesn't exist, it will create one.
;
; Inputs: NONE
; Outputs: NONE - Global data only
;
; Entry point WRITEDATA: Writes the PRINTER.SETUP file out.
;
; Errors: Both routines return with carry set if error.
;------------------------------------------------------------------------------

		ENTRY	WriteData

ReadPSetup	jsr	dco		;Build and set path to printer.setup file
		_OpenGS OpenPBlock	;Open the file.
		bcs	@L2		;Branch if error.

		lda	OPRef		;Transfer reference number
		sta	RPRef		;to the read and close call
		sta	CRef		;blocks.

		_ReadGS ReadPBlock	;Read the file.
@L00		php			;Save the read/write error if any

		_CloseGS CloseBlock	;Close the file

		plp			;Restore read error flag
@L1		rts

@L2		cmp	#$0046		;File not found error?
		sec			;Assume branch condition
		bne	@L1		;Branch if not

		_CreateGS CreatePBlock	;Try to create the file
		bcs	@L1		;Branch on error

		sep	#$30
		longa	off
		longi	off

		ldy	DefC2Printer	;Move the default printer driver
@L10		lda	DefC2Printer,y	;name into write buffer.
		sta	C2Printer,y
		dey
		bpl	@L10

		ldy	DefCPort	;Move the default port driver
@L20		lda	DefCPort,y	;name into write buffer.
		sta	CPort,y
		dey
		bpl	@L20

		ldy	DefCUser	;Move the default user name
@L30		lda	DefCUser,y	;into write buffer.
		sta	CUser,y
		dey
		bpl	@L30

		rep	#$30
		longa	on
		longi	on

		jsr	WriteData
		rts

WriteData	jsr	dco		;Build and set path to printer.setup file
		_OpenGS OpenPBlock	;Open the file.
		bcs	@L1		;Branch on error

		lda	OPRef		;Transfer reference number
		sta	RPRef		;to the write and close call
		sta	CRef		;blocks.

		stz	CFlag		;Zero DC/ATALK flag in write buffer

		_WriteGS ReadPBlock	;Write the file.
		php			;Save the read/write error if any

		_CloseGS CloseBlock	;Close the file

		plp			;Restore write error flag
@L1		rts



;
;dco: build and store-ptr networked or local pathname for printer.setup file:
;
dco		phd			;getting direct page...
		tsc
		sec
		sbc #4
		tcs
		ina
		tcd
dco_dpA		equ 0
		
		_DInfoGS dco_DInfoB	;get boot device name
		bcs dco_islocal
		
		_VolumeGS dco_VolumeB	;get boot FST id
		bcs dco_islocal
		
		lda dco_FSTid		;is it appleshare FST?
		cmp #$000D		;find out by comparing FST id from the
		beq dco_isnetwork	;Volume call; branch to local or
		bra dco_islocal		;network case handling code
		
dco_isnetwork	_FSTSpecific dco_GupB	;here if network: get path string address
		bcs dco_islocal
		
		lda dco_GupBPPtr+0	;build our path string and set string ptrs
		sta dco_dpA+0		;access pathname pointer and put in dp variable
		lda dco_GupBPPtr+2
		sta dco_dpA+2
		ora dco_GupBPPtr+0
		beq dco_islocal
		
		lda [dco_dpA]		;copying pathname...
		sta dco_PPathNet+0	;copy initial len word first
		shortm
		ldy #2			;y starts beyond len words and will be running dest str idx
		ldx #0			;x is count of len
dco_copyloop1	lda [dco_dpA],y
		sta dco_PPathNet,y
		iny			;bump address
		inx			;bump string count
		cpx dco_PPathNet+0	;go until length
		bne dco_copyloop1
		longm			;y now points to next index
				
		ldx #0			;adding ":Setup:Printer.Setup"...
		shortm
dco_copyloop2	lda dco_PSStr+2,x
		sta dco_PPathNet,y
		iny			;bump destination string running index
		inx			;bump "Printer.Setup" string length count
		cpx #dco_PSStrE-dco_PSStrB
		bne dco_copyloop2
		longm
		
		lda dco_PPathNet+0	;now adjust string length of destination string
		clc
		adc #dco_PSStrE-dco_PSStrB
		sta dco_PPathNet+0
		
		ldx #dco_PPathNet	;network pathname to printer.setup file
		ldy #^dco_PPathNet
		bra dco_setpathptrs

dco_islocal	ldx #PPathLocal		;here if local: set string ptrs
		ldy #^PPathLocal	;local pathname to printer.setup file and drop thru

dco_setpathptrs	stx CPPathPtr+0		;set the pathname pointers now
		stx OPPathPtr+0
		sty CPPathPtr+2
		sty OPPathPtr+2
		
		tsc			;deallocating direct page...
		clc
		adc #4
		tcs
		pld
		
		rts
		


dco_DInfoB	dc.w 2			;pcount				;_DInfo parameter block
		dc.w 1			;dev_num: input: 1=boot
		dc.l dco_DevName	;dev_nmae outbuff: input
		
dco_DevName	dc.w 36			;buffer length			;Device name string buffer
dco_DevName2	dc.w 0			;string length
		ds.b 36			;buffer for device name

dco_VolumeB	dc.w 5			;pcount				;_Volume parameter block
		dc.l dco_DevName2	;dev_name: input
		dc.l dco_VolName	;vol_name outbuff: input
		dc.l 0			;total_blocks: result
		dc.l 0			;free_blocks: result
dco_FSTid	dc.w 0			;fst_id: result

dco_VolName	dc.w 36			;buffer length			;Volume name string buffer
dco_VolName2	dc.w 0			;string length
		ds.b 36			;buffer for volume name

dco_GupB	dc.w 3			;pcount				;FST-spec GetUserPath block
		dc.w $000D		;fst_id: input: appleshare
		dc.w 8			;command:input: GetUserPath
dco_GupBPPtr	dc.l 0			;prefix_ptr: result

dco_PPathNet	dc.w 0			;string length			;Built-up network path
		ds.b 36+16						;ie, .../Printer.Setup
		
dco_PSStr	dc.w dco_PSStrE-dco_PSStrB
dco_PSStrB	
		dc.b ':Setup:Printer.Setup'
dco_PSStrE



;------------------------------------------------------------------------------
; SCAN4DRIVERS
;
; This routine will scan the DRIVERS directory on the system disk in order
; to find all the Printer and Port drivers.  It will include the file names
; into the appropriate list.  The AppleTalk driver will be
; excluded.
;
; Inputs: NONE - Global data only
; Outputs: NONT - Global data only
;------------------------------------------------------------------------------

Scan4Drivers	_OpenGS OpenDBlock
		bcc	@L1
		rts

@L1		lda	ODRef
		sta	GDERef
		sta	CRef

ScanLoop	_GetDirEntryGS GetDirEntryBlock
		bcc	@L00

		cmp	#$004F		;Is the name just too big?
		beq	ScanLoop	;Branch if yes.
		jmp	ScanExit	;Else, error out.

@L00		lda	FPath+2		;Load length of string
		cmp	#0033		;Is the file name too large?
		bcs	ScanLoop	;Branch if file name too large
		xba			;Turn string into Pascal type
		sta	FPath+2		;string.

		lda	GDEFileType	;Is the file a driver?
		cmp	#$00BB		;$BB = driver
		bne	ScanLoop	;Branch if not.

		ldx	GDEAUXType	;Is it a Printer driver?
		cpx	#$0001		;1 = Printer driver
		bne	TryPortType	;Branch if not.


		jsr	MovePrinter	

		inc	List2Count	;Bump our valid Printer driver counter.

Back2Scan	jmp	ScanLoop	;Go back for more!

TryPortType	ldx	GDEAUXType	;Is it a Port driver?
		cpx	#$0002		;2 = Port driver
		bne	Back2Scan	;Branch if not.

;------------------------------------------------------------------------------
; We fall through to the CHECKSTR routine with X containing 2.  This will
; cause the CHECKSTR routine to only check for the string APPLETALK
;------------------------------------------------------------------------------

		jsr	MovePort	;Check for "APPLETALK"
		bcs	Back2Scan	;Branch if found.

		inc	List1Count	;Bump our Port driver counter.

		bra	Back2Scan	;Go back for more!

ScanExit	_CloseGS CloseBlock

		rts

*******************************************************************************
* MovePrinter
*
* This routine will add the name to the list record and copy
* into a new memory segment.
*
* Inputs:	None
*
* Outputs:	None	
*******************************************************************************

PrinterBExit	plp
		sec
		rts


MovePrinter	php
		rep	#$30
		longa	on
		longi	on

		lda	List2Count
		ldx	Mem2RecH
		ldy	Mem2RecH+2
		jsr	BumpMemRec
		bcs	PrinterBExit

		longa	off
		longi	off

		lda	PrePickFlag
		beq	PrinterGExit

		ldy	FPath+3
@L1		lda	FPath+3,y
		cmp	C2Printer,y
		bne	PrinterGExit
		dey
		bpl	@L1

		ldy	#4
		lda	#$80
		sta	[zp1],y

PrinterGExit	plp
		clc
		rts

		longa	on
		longi	on




*******************************************************************************
* MovePort
*
* This routine will first check the name at FPATH+3 againts the string
* 'APPLETALK' and if it's equal, returns with the carry set.  If not
* it adds the name to the list record and copies into a new memory segment
* and returns with the carry clear.
*
* Inputs:	None
*
* Outputs:	Carry:	Clear = String copied and valid
*	  		Set   = String copied but not valid (matched)
*
*******************************************************************************

MovePort	php
		sep	#$30
		longa	off
		longi	off

		ldy	FPath+3
@L1		jsr	GetUCase
		cmp	ATalkName,y
		bne	CheckPort
		dey
		bpl	@L1

PortBExit	plp
		sec
		rts

CheckPort	rep	#$30
		longa	on
		longi	on

		lda	List1Count
		ldx	Mem1RecH
		ldy	Mem1RecH+2
		jsr	BumpMemRec
		bcs	PortBExit	;Branch on error

		longa	off
		longi	off

		lda	PrePickFlag
		beq	PortGExit

		ldy	FPath+3
@L1		lda	FPath+3,y
		cmp	CPort,y
		bne	PortGExit
		dey
		bpl	@L1

		ldy	#4
		lda	#$80
		sta	[zp1],y

PortGExit	plp
		clc
		rts


;-----------------------------------------------------------------------------
; The routine below will fetch a character from FPATH+3,Y and force it to
; upper case.
;-----------------------------------------------------------------------------

GetUCase	lda	FPath+3,y	;Load the character
		cmp	#$61		;If < "a" don't bother
		bcc	@L1
		cmp	#$7B		;If > "z"+1 don't bother
		bcs	@L1
		and	#$DF		;Else force it to upper case.
@L1		rts

		longa	on
		longi	on

*******************************************************************************
* BumbMemRec
*
* This routine will bump the member record list, move the file name pointed
* to by FPATH+3 into a new memory handle, update the new member record to
* point to the new memory handle containing the file name and zero the
* selection byte for the new member record..
*
* Inputs:	A:	ListCount for this record
*		X:	Low word of MemberList handle
*		Y:	High word of MemberList handle
*
* Outputs:	Carry:	Clear = String copied
*	  		Set   = Memory allocation error
*		Long C,X,Y if error
*		Short C,X,Y if no error
*
*******************************************************************************

BumpMemRec	sta	zp0		;Store the ListCount
		stx	zp1		;Store the handle (low word)
		sty	zp1+2		;Store the handle (high word)

;-----------------------------------------------------------------------------
; Below we first try to unlock the handle of the member record list.  Then
; get the old size, add the length of a new record, and the re-size the
; handle.  After that, we just lock it down.  If we get any errors, we leave
; the BUMPMEMREC routine with the carry set.
;-----------------------------------------------------------------------------

		PushLong zp1		;Push handle
		_HUnlock		;Unlock the handle
		bcc	@OKUnlock	;Branch if no error
@ShortExit	jmp	@Exit		;Else we exit with carry set.

@OKUnlock	PushLong #0		;Result space
		PushLong zp1		;Push handle
		_GetHandleSize		;Get the current handle size
		tay			;Save the error state for now

					;We fall through with the current
					;size of the handle on the stack.

		clc			;Add in the length of the new
		pla			;member record item so we can
		adc	#MemRecSize	;re-size the member record list.
		tax
		pla
		adc	#0

		phy			;Save the error state on the stack.

		pha			;Push the new length of the
		phx			;handle onto the stack.
		PushLong zp1		;Push the handle
		_SetHandleSize		;Set the new size
		pha			;Save the error state on the stack.

		PushLong zp1		;Push the handle
		_HLock			;Lock the sucker.

		plx			;Pull error on SetHandleSize
		ply			;Pull error on GetHandleSize
		bcs	@ShortExit	;Branch if error on _HLock
		sec			;Assume error
		bne	@ShortExit	;Branch if error on GetHandleSize
		cpx	#0		;Error on SetHandleSize?
		bne	@ShortExit	;Branch if yes.

;-----------------------------------------------------------------------------
; Below we ask for a segment of memory that will hold the file name in
; FPATH+3.
;-----------------------------------------------------------------------------

		PushLong #0		;Result space
		PushWord #0		;High word of size of block
		lda	FPath+3
		and	#$00FF
		ina
		pha			;Low word of size of block
		PushWord MyID		;User ID
		PushWord #$C018		;Attributes
		PushLong #0		;Pointer to mem
		_NewHandle
		plx			;Pull the result off the stack
		ply			;and hold it in X and Y regs.
		bcs	@Exit		;Branch if we didn't get the memory.

		pei	zp0		;Push the ListCount for later use.

		stx	zp0		;Store handle to file name
		sty	zp0+2		;buffer on zero page.
		ldy	#2		;De-reference the handle
		lda	[zp0]		;and store it back on to
		tax			;the zero page at ZP0.
		lda	[zp0],y
		sta	zp0+2
		stx	zp0

		ldy	#2		;Dereference handle that
		lda	[zp1]		;points to the beginning of
		tax			;the member record list and
		lda	[zp1],y		;put the result back into the
		sta	zp1+2		;zero page location ZP1.
		stx	zp1

		plx			;Pull the ListCount back off
		jsr	Times5		;and multiply it by 5.

		clc			;Add the offset to the address
		lda	AddIndex	;of the beginning of the buffer
		adc	zp1		;to get new pointer to member
		sta	zp1		;record and put it back into
		lda	AddIndex+2	;the zero page location ZP1.
		adc	zp1+2
		sta	zp1+2

		ldy	#2		;Dereference handle that points
		lda	zp0		;to the location to put the
		sta	[zp1]		;file name into and put it back
		lda	zp0+2		;into the zero page location ZP0.
		sta	[zp1],y

		sep	#$30		;Short everything
		longa	off
		longi	off

		ldy	#4		;Force the selection byte to
		lda	#00		;zero (not selected).
		sta	[zp1],y

		ldy	FPath+3		;Load the length byte
@CopyLoop	lda	FPath+3,y	;Move the entire string including
		sta	[zp0],y		;the length byte into buffer pointed
		dey			;to by ZPO
		bpl	@CopyLoop

		clc			;No error!
@Exit		rts			;RETURN

		longa	on
		longi	on

		ENTRY	C2Printer
		ENTRY	CPort

PrePickFlag	dc.w	0

ATalkName	str	'APPLETALK'

OpenDBlock	dc.w	3		;PCount
ODRef		dc.w	0
		dc.l	DPath		;Pathname pointer
		dc.w	0001		;Request access
DPath		dc.w	DPathLen
		dc.b	'*/SYSTEM/DRIVERS/'
DPathLen	equ	*-DPath-2

GetDirEntryBlock dc.w	13		;PCount
GDERef		dc.w	0
		dc.w	0		;Flags
		dc.w	1		;Base
		dc.w	1		;Displacement
		dc.l	FPath
		dc.w	0		;Entry number
GDEFileType	dc.w	0		;FileType
		dc.l	0		;EOF
		dc.l	0		;Block count
		dc.l	0,0		;Create date/time
		dc.l	0,0		;Mod date/time
		dc.w	0		;Access
GDEAUXType	dc.l	0		;AUX type

FPath		dc.w	FPathLen
		dc.w	0
		ds.b	32
FPathLen	equ	*-FPath

CreatePBlock	dc.w	4		;PCount
CPPathPtr	dc.l	0		;Pathname pointer
		dc.w	$C3		;Access byte
		dc.w	6		;File type
		dc.l	0		;AUX type

OpenPBlock	dc.w	3		;PCount
OPRef		dc.w	0
OPPathPtr	dc.l	0		;Pathname pointer
		dc.w	0003		;Request access (R/W)
PPathLocal	dc.w	PPathLocalLen
		dc.b	'*/SYSTEM/DRIVERS/Printer.Setup'
PPathLocalLen	equ	*-PPathLocal-2

ReadPBlock	dc.w	4		;PCount
RPRef		dc.w	0
		dc.l	ReadPBuffer
		dc.l	RBufferLength	;Request count
		dc.l	0		;Transfer count

CloseBlock	dc.w	1		;PCount
CRef		dc.w	0

ReadPBuffer

C1Printer	ds.b	33
C2Printer	ds.b	33
CPort		ds.b	33
CUser		ds.b	16
CNet		ds.b	33
CZone		ds.b	33
CFlag		ds.b	2
RBufferLength	equ	*-ReadPBuffer

DefC2Printer	str	'IMAGEWRITER'
DefCPort	str	'PRINTER'
DefCUser	str	'John Q. Public'

		ENDP

screenF		ds.b	2		; = $8000 if this is a 640 mode screen


		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/DirectConnectCDEV/myConstants.h b/IIGS.601.SRC/A.U.G/CtlPanel/DirectConnectCDEV/myConstants.h
new file mode 100644
index 0000000..7d60785
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/DirectConnectCDEV/myConstants.h
@@ -0,0 +1 @@
+This source file is no longer in use.

Replaced by the DC.AII and DIRECTCONNECT.R files

Tim Harrington 3/29/89
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/DirectConnectCDEV/myglobals.c b/IIGS.601.SRC/A.U.G/CtlPanel/DirectConnectCDEV/myglobals.c
new file mode 100644
index 0000000..7d60785
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/DirectConnectCDEV/myglobals.c
@@ -0,0 +1 @@
+This source file is no longer in use.

Replaced by the DC.AII and DIRECTCONNECT.R files

Tim Harrington 3/29/89
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/DirectConnectCDEV/sul.aii b/IIGS.601.SRC/A.U.G/CtlPanel/DirectConnectCDEV/sul.aii
new file mode 100644
index 0000000..4178bbe
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/DirectConnectCDEV/sul.aii
@@ -0,0 +1 @@
+;;;	sul - sort uppercase list.
;
;	Michael V. Stein	02/21/90.
;
;	© Apple, 1990.


	blanks	off
	

;;	equates.




;;	imported addresses.




;;	include files.


	include	'm16.list'
	include	'm16.util2'
	
		

;;	main program.


	

main	proc

	export	sul

sul	pushlong #cue		;compare uppercase elements
	phy			;hi word to list handle
	pha			;lo word to list handle
	_SortList2
	rts


;;	cue - compare uppercase elements.
;
;	entry	none.
;
;	exit	none.



memberA	equ	4+2
memberB	equ	memberA+4


cue	phd
	tsc
	tcd			use stack as a direct page
		
	phb			save data bank
	phk
	plb
	
	ldy	#$02
	lda	[memberA]	dereference first handle
	tax
	lda	[memberA],y
	sta	memberA+2
	stx	memberA		
	
	lda	[memberB]	dereference second handle
	tax
	lda	[memberB],y
	sta	memberB+2
	stx	memberB

	shortmx
	
	lda	[memberA]		
	cmp	[memberB]	compare it to memberB	
	bcc	cue1		if length(memberB) >= length(memberA)
	lda	[memberB]	
cue1	sta	min		shortest length of either string
	ldy	#$00
	
cue2	iny
	lda	[memberB],y
	jsr	cal		capitalize a letter
	sta	temp
	lda	[memberA],y
	jsr	cal		capitalize a letter
	cmp	temp
	bne	cue5		we have a difference
	cpy	min		chars are the same so check if more bytes to check
	bcc	cue2		no more bytes to check
	
cue4	lda	[memberA]	the shortest string is less than the longer
	cmp	[memberB]	set carry if a >= b
	
cue5	longmx			carry set if a >= b
		
	lda	0+2		
	sta	8+2
	lda	2+2
	sta	10+2
	plb			restore data bank
	
	pld			restore direct page
	pla
	pla
	pla
	pla

	rtl


min	ds.b	1
temp	ds.b	1



;;	cal - capitalize a letter.
;
;	entry	none.
;
;	exit	none.


	longa	off
	longi	off
	
cal	cmp	#'a'
	bcc	cal1		if not lowercase
	cmp	#'z'+1
	bcs	cal1		if not lowercase
	sbc	#$20-1		(c) clear
	
cal1	rts	



	endp

	end
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/FolderPrivCDEV/CDev.h b/IIGS.601.SRC/A.U.G/CtlPanel/FolderPrivCDEV/CDev.h
new file mode 100644
index 0000000..b4b4f14
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/FolderPrivCDEV/CDev.h
@@ -0,0 +1 @@
+/* Max C interface to the CDEV Manager by Greg Branche
 * (based on the MAX Pascal interface file by Darryl Lovato)
 * Copyright (c) 1989 by Apple Computer, Inc.
 */

#ifndef __CDev__
#define __CDev__

#define	MachineCDEV		1		/* machine test, return 0 if NOT ok to run on this machine */
#define	BootCDEV		2		/* boot time init call or Install call - no parms */
#define	ShutDownCDEV	3		/* shut down or de-install the CDEV - no parms */
#define	InitCDEV		4		/* called when being shown - data1 = windowPtr */
#define	CloseCDEV		5		/* called when being removed - data1 = windowPtr */
#define	EventsCDEV		6		/* called when an event - data1 = ptr to event record */
#define	CreateCDEV		7		/* called so that a CDEV can create its controls inline - data1 = window */
#define	AboutCDEV		8		/* called so that a CDEV can create its about text inline - no parms */
#define	RectCDEV		9		/* called so that a CDEV can dynamically compute its rectangle data1 = rectprr */
#define	HitCDEV			10		/* called when ctl is "hit" - data1 = Hdl to ctl hit, data2 = Ctl Id */
#define	RunCDEV			11		/* called when daRun is called */
#define	reserved1		12		/* reserved for Apple Computer's future use */
#define	reserved2		13		/* reserved for Apple Computer's future use */
#define	reserved3		14		/* reserved for Apple Computer's future use */
#define	NeverUsed1		15
#define	NeverUsed2		16

#define	wantMachine		1		/* these flags are set in the CDEV flags resource to tell the Control */
#define	wantBoot		2		/* panel which of the above messages the CDEV actually needs */
#define	wantShutDown	4
#define	wantInit		8
#define	wantClose		16
#define	wantEvents		32
#define	wantCreate		64
#define	wantAbout		128
#define	wantRect		256
#define	wantHit			512
#define	wantRun			1024
#define	wantReserved1	2048
#define	wantReserved2	4096
#define	wantReserved3	8192
#define	updateSSfromBRAM 16384	/* this is for use by Apple Computer, Inc ONLY! <- I mean it! */
#define	canBeInactive	32768	/* set this bit if the cdev can be made inactive by the user */

#endif
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/FolderPrivCDEV/FolderPriv.c b/IIGS.601.SRC/A.U.G/CtlPanel/FolderPrivCDEV/FolderPriv.c
new file mode 100644
index 0000000..15ce63e
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/FolderPrivCDEV/FolderPriv.c
@@ -0,0 +1 @@
+/*###########################################################*/
/*#															#*/
/*#	File:			FolderPriv.c							#*/
/*#	Version:		1.0										#*/
/*#	Author:													#*/
/*#	Copyright:		(c) 1992 by Apple Computer, Inc.		#*/
/*#															#*/
/*#	Description:	This file contains the cdev C			#*/
/*#					routine used by the FolderPriv CDEV.	#*/
/*#															#*/
/*###########################################################*/

#include <Types.h>
#include <GSOS.h>
#include <Quickdraw.h>
#include <Font.h>
#include <Memory.h>
#include <IntMath.h>
#include <Event.h>
#include <ProDOS.h>
#include <Locator.h>
#include <Control.h>
#include <Window.h>
#include <List.h>
#include <Scrap.h>
#include <Dialog.h>
#include <Menu.h>
#include <Desk.h>
#include <StdFile.h>
#include <QDAUX.h>
#include <Print.h>
#include <MiscTool.h>
#include <LineEdit.h>
#include <Resources.h>

#include "CDEV.h"
#include "rDefs.h"			/* resource ID definitions */

extern unsigned SaveDB();
extern void		RestoreDB();
GSString255		*getPath();

#define free(ptr)	DisposeHandle(FindHandle(ptr))

/*###########################################################*/
/*#		Actual CDEV, this is called by the control panel	#*/
/*###########################################################*/

#define getUserPath			0x0008
#define getDefPrivileges	0x000e
#define setDefPrivileges	0x000f

#define setAccessRights		0x0001
#define setOwnerName		0x0002
#define setGroupName		0x0004

typedef struct {
	char	reserved;
	char	world;
	char	group;
	char	owner;
} AccessRec;
	
struct {
	unsigned	pCount;
	unsigned	fileSysID;
	unsigned	commandNum;
	unsigned	flags;
	unsigned	unused;	/* actually, the high word of flags */
	AccessRec	access;
	union {
		ResultBuf255	*out;
		GSString255		*in;
	} ownerName;
	union {
		ResultBuf255 	*out;
		GSString255		*in;
	} groupName;
} privParms;

struct {
	unsigned	buflen;
	unsigned	namelen;
} namebuf;					/* used as a GS/OS result buffer */

IORecGS ioParms = {
	4,							/* pCount */
	0,							/* refNum */
	(Pointer) &privParms,		/* dataBuffer */
	sizeof(privParms)			/* transferCount */
};

struct {
	unsigned	pCount;
	GSString255	*pathname;
	unsigned	access;
	unsigned	fileType;
} createParms = { 3, NULL, 0xE7, 0x5A};

NameRecGS destroyParms = { 1, NULL};

unsigned long	masterValues[] = {
	0,				/* custom */
	0x07000000,		/* private */
	0x07070700,		/* public */
	0x07040400,		/* drop box */
	0x07030300		/* bulletin board */
};

boolean	fstActive = FALSE;

/* This routine is eventually linked and then placed into a cdev code resource.
  The only requirements are that this routine is at the beginning of the resource
  so if the CDEV has any other routines they must follow this one.  The cdev's resource
  fork is always opened when a call to the cdev is made.  The cdev can also assume
  that the current port is set to the ctl panel window except in the boot message,
  where quickdraw isn't even started, and in the about message, where it is the port
  of the help window.  All normal managers will be stared up for all calls except
  the boot call, which will only have miscTools & Resource Manager started. */

pascal long CDEV(message,data1, data2)
int		message;
long	data1;
long	data2;
{
	CtlRecHndl	tempCtl;
	WindowPtr	window;
	GSString255	*pathname;
	int			retCode;
	int			refNum;
	unsigned	i;
	unsigned	oldDBR;
	unsigned	ctlValue;
	
	oldDBR = SaveDB();	/* set up DBR correctly */

	retCode = 0;	/* initialize the function result to zero, so that we will work in
						future versions of the Control Panel! */

	switch(message) {
		case BootCDEV:
			/* If the wantBoot flag is set, this routine will be called during the
			  startup sequence.  The control panel takes care of drawing the "boot"
			  icon.  When this call is made, the machine state is bad at best.
			  QuickDraw is not even started up.  The parameters to this call are
			  undefined. */

			privParms.pCount = 3;	/* set up parameter block */
			privParms.fileSysID = appleShareFSID;
			privParms.commandNum = getUserPath;	/* GetUserPath call */
			FSTSpecific(&privParms);	/* make the call to see if AppleShare is available */
			if(_toolErr == invalidFSTID)	/* if AppleShare isn't around... */
				* (int *) data1 = 1;	/* ... draw X through icon */
			else if((refNum = /* assignment */ OpenFile()) >= 0) {
				ioParms.refNum = refNum;
				ioParms.pCount = 4;
				ReadGS(&ioParms);
				i = _toolErr;	/* save any error from the Read call */
				ioParms.pCount = 1;
				CloseGS(&ioParms);
				if(i)			/* did we have a problem reading? */
					break;		/* yes, just forget it */
				
				privParms.pCount = !(privParms.flags & setAccessRights)
					? 3 : (privParms.flags & setOwnerName ? 5 : 4);
				privParms.fileSysID = appleShareFSID;
				privParms.commandNum = setDefPrivileges;
				privParms.ownerName.in = NULL;
				FSTSpecific(&privParms);
				if(_toolErr)			/* was there an error? */
					* (int *) data1 = 1;	/* yes, draw X through icon */
			}
			break;

		case MachineCDEV:
			/* This is called if the wantMachine bit is set in the CDEV flags.
			  It enables the CDEV to do further checking to see if it makes
			  sense for the CDEV to be visible to the user or not.  For instance,
			  if the CDEV controls a setting for some hardware, we could check to
			  see if the hardware is really connected.  The parameters are undefined
			  for this call and the result is passed back as the function result.  0 =
			  don't show this CDEV, <>0 = show this CDEV.  The control panel will do
			  some machine checking even before calling this routine by checking the
			  ROM version number against the machine field of the cdev flags resource */

			/* here we make an FSTSpecific call to the AppleShare FST to see if it
			   even exists.  If it's not currently loaded, there's no sense in
			   displaying the CDev. */

			privParms.pCount = 4;
			privParms.fileSysID = appleShareFSID;
			privParms.commandNum = getDefPrivileges;
			
			FSTSpecific(&privParms);
			fstActive = _toolErr == 0;

			if(!fstActive) {
				InitCursor();
				retCode = AlertWindow((refIsResource<<1)+1+0x20, NULL, (long) noFSTtext);
			} else
				retCode = 1;	/* so we'll be displayed */

			break;

		case CreateCDEV:
			/* If the wantCreate bit is set, this message is called with the control
			  panel's window ptr passed in data1.  The cdev must create any controls
			  it has during this call.  The CDEV's resource fork is open during this
			  call so resource manager calls can be made.  All controls rectangles
			  MUST be relative to 0,0.  The control panel handles offsetting controls
			  to the proper place in the window.  Initialization of the controls
			  needs to be done in the InitCDEV call.  Just create the controls in this
			  call. */
			
			tempCtl = NewControl2(data1,9,(long) myCtrlList);
			break;

		case InitCDEV:
			/* If the wantInit flag is set, then this message is passed with data1 =
			  the control panel's window ptr.  By  this time the CreateCDEV call
			  will have been made and thus the controls used by the CDEV created.
			  This call enables the CDEV to initialize the controls before they are
			  displayed. */
			
			if(fstActive) {
				privParms.pCount = 5;
				privParms.fileSysID = appleShareFSID;
				privParms.commandNum = getDefPrivileges;
				privParms.ownerName.out = (ResultBuf255 *) &namebuf;
				namebuf.buflen = 4;
				
				FSTSpecific(&privParms);
			} else {	/* read the existing data file */
				if((refNum = /* assignment */ OpenFile()) >= 0) {
					ioParms.refNum = refNum;
					ioParms.pCount = 4;
					ReadGS(&ioParms);
					i = _toolErr;	/* save any error from the Read call */
					ioParms.pCount = 1;
					CloseGS(&ioParms);
					if(i)			/* did we have a problem reading? */
						goto _fake_it;		/* yes, just fake it */
					
				} else {	/* no data file exists, init parameters to defaults */
_fake_it:
					privParms.flags = 0;
					* (long *) (&privParms.access) = 0;
					_toolErr = 0;	/* clear this so controls are initialized */
				}
				privParms.pCount = !(privParms.flags & setAccessRights)
					? 3 : (privParms.flags & setOwnerName ? 5 : 4);
				privParms.fileSysID = appleShareFSID;
				privParms.commandNum = setDefPrivileges;
				privParms.ownerName.in = NULL;
			}
			if(!_toolErr || _toolErr == buffTooSmall) {
				if(!(privParms.flags & setAccessRights)) {	/* set up initial defaults */
					privParms.access.world =
					privParms.access.group = 0;
					privParms.access.owner = 7;
				}
				setup_controls(data1);
			}
			break;

		case AboutCDEV:
			/* If the wantAbout bit is set in the CDEV flags, this call is made when
			  the user selects help.  Data1 = window ptr to the help window.  The
			  control panel automatically handles the icon, author, and version #
			  display.*/
			
			tempCtl = NewControl2(data1,2, (long) AboutID);
			break;

		case HitCDEV:
			/* If the CDEV wants to know when a control has been "hit", it can set the
			  wantHit bit in the CDEV flags.  When called, data1 = Hdl to Ctl Hit &
			  data2 = Ctl ID of hit control.  This message allows the CDEV to perform
			  actions based on the control that was selected by the user.*/

			/* get the current value of whichever control was hit */
			ctlValue = GetCtlValue(data1);
			/* get the current window pointer */
			window = (*(CtlRecHndl) data1)->ctlOwner;
			
			switch((int) data2) {
				case masterPopup:
					switch(ctlValue) {
						case masterItem2:	/* user selected "Private" */
							privParms.access.world =	/* set up access bits */
							privParms.access.group = 0;
							privParms.access.owner = 7;
							break;

						case masterItem3:	/* user selected "Public" */
							privParms.access.world =
							privParms.access.group =
							privParms.access.owner = 7;
							break;
							
						case masterItem4:	/* user selected "Drop Folder" */
							privParms.access.world =
							privParms.access.group = 4;
							privParms.access.owner = 7;
							break;

						case masterItem5:	/* user selected "Bulletin Board" */
							privParms.access.world =
							privParms.access.group = 3;
							privParms.access.owner = 7;
							break;
					}
					privParms.flags |= setAccessRights;
					setup_controls(window);					/* refresh the other controls */
					break;

				case foldersPopup:
					privParms.access.world &= 0xfe;	/* clear the seeFolders bits */
					privParms.access.group &= 0xfe;
					privParms.access.owner &= 0xfe;
					
					privParms.access.world |= (--ctlValue >> 2) & 0x01;	/* then set the appropriate bits */
					privParms.access.group |= (ctlValue >> 1) & 0x01;
					privParms.access.owner |= ctlValue & 0x01;
					
					synchronize(window);	/* resync the master menu with the others */
					break;

				case filesPopup:
					privParms.access.world &= 0xfd;	/* clear the seeFiles bits */
					privParms.access.group &= 0xfd;
					privParms.access.owner &= 0xfd;
					
					privParms.access.world |= (--ctlValue >> 1) & 0x02;	/* then set the appropriate bits */
					privParms.access.group |= ctlValue & 0x02;
					privParms.access.owner |= (ctlValue << 1) & 0x02;
					
					synchronize(window);
					break;

				case changesPopup:
					privParms.access.world &= 0xfb;	/* clear the makeChanges bits */
					privParms.access.group &= 0xfb;
					privParms.access.owner &= 0xfb;
					
					privParms.access.world |= (--ctlValue) & 0x04;	/* then set the appropriate bits */
					privParms.access.group |= (ctlValue << 1) & 0x04;
					privParms.access.owner |= (ctlValue << 2) & 0x04;
					
					synchronize(window);
					break;

				case serverDefsBox:
					privParms.flags ^= setAccessRights;
					setup_controls(window);
					break;

				case ownerCheckBox:	
					privParms.flags ^= setOwnerName;
					break;
			}
			break;
			
		case CloseCDEV:
			/* The CloseCDEV message is passed if the wantClose bit is set in the CDEV
			  flags and the control panel is closing or when the user selects another
			  CDEV.  During  this call data1 = windowPtr.  In general, CDEVs can do any
			  memory disposal and saving of settings during this call.  The disposal
			  of the CDEV's controls is handled automatically by the Control Panel. */
			
			privParms.pCount = !(privParms.flags & setAccessRights)
				? 3 : (privParms.flags & setOwnerName ? 5 : 4);
			privParms.fileSysID = appleShareFSID;
			privParms.commandNum = setDefPrivileges;
			privParms.ownerName.in = NULL;

			if(fstActive)
				FSTSpecific(&privParms);

			if(!(pathname = /* assignment */ getPath()))
				break;
			
			if(privParms.flags & (setAccessRights | setOwnerName)) {	/* do we need to save anything? */
				createParms.pathname = pathname;
				CreateGS(&createParms);
				if((refNum = OpenFile()) >= 0) {
					ioParms.pCount = 4;
					ioParms.refNum = refNum;
					WriteGS(&ioParms);
					ioParms.pCount = 1;
					CloseGS(&ioParms);
				}
			} else {	/* no, just delete the file */
				destroyParms.pathname = pathname;
				DestroyGS(&destroyParms);
			}
			free(pathname);
			break;

	}	/* end of switch */
	
	RestoreDB(oldDBR);
	
	return(retCode);

}	/* end of CDEV function */


/****************************************************************************************
	my own malloc() and free() functions, so the library versions aren't used
****************************************************************************************/

char *malloc(size)
unsigned	size;
{
	char	*ptr = NULL;
	Handle	hndl;
	
	hndl = NewHandle((long) size, MMStartUp() | 0x0F00, 0x8000, NULL);
	if(!_toolErr)
		ptr = *hndl;
	return(ptr);
}

//	#define free(ptr)	DisposeHandle(FindHandle(ptr))
//	actually defined at beginning of file

/****************************************************************************************
	this function sets up the various control values and highlighting depending on
	the current setting of the FST access parameters.
****************************************************************************************/

setup_controls(window)
WindowPtr	window;
{
	unsigned	seeFolders, seeFiles, makeChanges;

	if(privParms.flags & setAccessRights) {	/* using server defaults? */
		/* no, using user defaults */
	
		/* uncheck the Server Defaults check box */
		SetCtlValue(0, GetCtlHandleFromID(window, (long) serverDefsBox));

		/* condition the Owner Name check box */
		if(privParms.flags & setOwnerName &&
		   privParms.ownerName.out->bufString.length == 0) {	/* is the owner name being set to <Any User>? */
			SetCtlValue(1, GetCtlHandleFromID(window, (long) ownerCheckBox));
		} else {
			SetCtlValue(0, GetCtlHandleFromID(window, (long) ownerCheckBox));
		}
	
		/* make the controls active */
		HiliteControl(0, GetCtlHandleFromID(window, (long) masterPopup));
		HiliteControl(0, GetCtlHandleFromID(window, (long) foldersPopup));
		HiliteControl(0, GetCtlHandleFromID(window, (long) filesPopup));
		HiliteControl(0, GetCtlHandleFromID(window, (long) changesPopup));
		HiliteControl(0, GetCtlHandleFromID(window, (long) ownerCheckBox));
	
		synchronize(window);
		
		seeFolders = ((privParms.access.world & 0x01) << 2) | 
						((privParms.access.group & 0x01) << 1) |
						(privParms.access.owner & 0x01);
		if(seeFolders > 3) {
			seeFolders = 7;
			privParms.access.group |= 0x01;
			privParms.access.owner |= 0x01;
		}
		seeFiles = ((privParms.access.world & 0x02) << 1) |
						(privParms.access.group & 0x02) |
						((privParms.access.owner & 0x02) >> 1);
		if(seeFiles > 3) {
			seeFiles = 7;
			privParms.access.group |= 0x02;
			privParms.access.owner |= 0x02;
		}
		makeChanges = (privParms.access.world & 0x04) |
						((privParms.access.group & 0x04) >> 1) |
						((privParms.access.owner & 0x04) >> 2);
		if(makeChanges > 3) {
			makeChanges = 7;
			privParms.access.group |= 0x04;
			privParms.access.owner |= 0x04;
		}
		SetCtlValue(foldersItem1 + seeFolders, GetCtlHandleFromID(window, (long) foldersPopup));
		SetCtlValue(filesItem1 + seeFiles,   GetCtlHandleFromID(window, (long) filesPopup));
		SetCtlValue(changesItem1 + makeChanges, GetCtlHandleFromID(window, (long) changesPopup));
	} else {
		/* yes, mark the check box */
		SetCtlValue(1, GetCtlHandleFromID(window, (long) serverDefsBox));
		/* and dim the other controls */
		HiliteControl(255, GetCtlHandleFromID(window, (long) masterPopup));
		HiliteControl(255, GetCtlHandleFromID(window, (long) foldersPopup));
		HiliteControl(255, GetCtlHandleFromID(window, (long) filesPopup));
		HiliteControl(255, GetCtlHandleFromID(window, (long) changesPopup));
		HiliteControl(255, GetCtlHandleFromID(window, (long) ownerCheckBox));
	}
}


/****************************************************************************************
	this function is used to synchronize the Master popup with the other three popups.
****************************************************************************************/

synchronize(window)
WindowPtr window;
{
	MenuBarRecHndl	oldMenu;
	unsigned		i;
	long 			tempAccess;

	oldMenu = GetMenuBar();		/* save the handle to the current menu */
	SetMenuBar(GetCtlHandleFromID(window, (long) masterPopup));	/* set to popup */

	/* set the master control menu item */
	tempAccess = (*(long *) &privParms.access) & 0xffffff00;
	for(i = 4; i != 0; --i) {	/* search for a matching value */
		if(masterValues[i] == tempAccess)
			break;
	}
	
	if(!i)	/* is the current setting "Custom" ? */
		EnableMItem(masterItem1);	/* yes, enable it so it's selectable */
	else
		DisableMItem(masterItem1);	/* else disable it (gray it out) */
	
	SetCtlValue(masterItem1+i,  GetCtlHandleFromID(window, (long) masterPopup));
	SetMenuBar(oldMenu);		/* restore the original menu bar */
}


/****************************************************************************************
	getPath - builds GSString pathname to data file
****************************************************************************************/
GSString255 *getPath()
{
	static ResultBuf32	devName = {
		36,			/* bufLen */
		0			/* string length */
	};
	static DInfoRecGS	infoParms = {
		2,			/* pCount */
		1,			/* devNum (always 1 for boot device) */
		&devName	/* pointer to result buffer */
	};
	
	static ResultBuf32 volName = {
		36,			/* bufLen */
		0			/* string length */
	};
	static VolumeRecGS	volParms = {
		5,			/* pCount */
		&devName.bufString,	/* device name pointer */
		&volName,			/* volume name result buffer pointer */
		0,					/* total blocks */
		0,					/* free blocks */
		0					/* FST ID number */
	};
	
	static struct {
		unsigned	pCount;
		unsigned	fileSysID;
		unsigned	commandNum;
		GSString255	*userPfx;
	} fstParms = { 3, appleShareFSID, 8 /* GetUserPath */, NULL};

	static GSString32 localPfx = {8, "*:System"};
	
	GSString255	*dataPfx = (GSString255 *) &localPfx;
	GSString255 *pathname;
	extern int	_ownerid;

	DInfoGS(&infoParms);	/* make the DInfo call to get the device name */
	if(_toolErr)
		return(NULL);

	VolumeGS(&volParms);	/* make a Volume call to get the boot FST ID */
	if(_toolErr)
		return(NULL);

	if(volParms.fileSysID == appleShareFSID) {	/* booted from AppleShare? */
		FSTSpecific(&fstParms);		/* yes, do a GetUserPath call */
		if(_toolErr)
			return(NULL);
		dataPfx = fstParms.userPfx;	/* set the variable to the network path */
	}
	
	/* allocate memory for the pathname */
	if(!(pathname = (GSString255 *) malloc(dataPfx->length + 16 + 2))) {
		_toolErr = outOfMem;
		return(NULL);
	}
	
	memcpy(pathname, dataPfx, dataPfx->length + 2);	/* copy in the prefix */
	memcpy(&(pathname->text[dataPfx->length]), ":FolderPriv.data", 16);
	pathname->length += 16;
	return(pathname);
}

/****************************************************************************************
	OpenFile - opens the CDev's data file
****************************************************************************************/
OpenFile()
{
	static SysPrefsRecGS oldPrefs = {1, 0}, myPrefs = {1, 0xc000};
	
	static struct {
		unsigned	pCount;
		unsigned	refNum;
		GSString255	*pathname;
		unsigned	requestAccess;
	} openParms = { 3, 0, NULL, 3};
	
	int		saveErr;

	if(!(openParms.pathname = /* assignment */ getPath()))
		return(-_toolErr);
	
	GetSysPrefsGS(&oldPrefs);
	SetSysPrefsGS(&myPrefs);
	
	OpenGS(&openParms);
	saveErr = _toolErr;
	
	SetSysPrefsGS(&oldPrefs);

	free(openParms.pathname);
	
	return(saveErr ? -saveErr : openParms.refNum);
}
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/FolderPrivCDEV/FolderPriv.r b/IIGS.601.SRC/A.U.G/CtlPanel/FolderPrivCDEV/FolderPriv.r
new file mode 100644
index 0000000..a6a8486
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/FolderPrivCDEV/FolderPriv.r
@@ -0,0 +1 @@
+//###########################################################
//#															#
//#	File:			FolderPriv.r							#
//#	Version:		1.0										#
//#	Author:													#
//#	Copyright:		(c) 1992 by Apple Computer, Inc.		#
//#															#
//#	Description:	This file contains the resource			#
//#					definitions used by the FolderPriv		#
//#					CDEV									#
//#															#
//#---------------------------------------------------------#
//#															#
//#	Development History:									#
//#															#
//#	Who		Date		The Modification					#
//#	---		--------	----------------					#
//# GAB		01/21/91	Initial release						#
//#															#
//###########################################################

//###########################################################
//#		Read any standard includes & define our own			#
//###########################################################

#include "typesiigs.r"	//	include the type definitions

#include "rDefs.h"		//	include defines

//###########################################################
//#		Read the resources built elsewhere					#
//###########################################################

read rCDEVCode (1, Convert) "FP.Code";	// this is the code resource

//###########################################################
//#		Define our resources								#
//###########################################################

resource rVersion (1) {
	{
		1,0,0,				// major, minor, bug fix version numbers
		release, 0			// non-final release #
	},
	verUS,					// country code
	"FolderPriv",
	"Copyright © 1992, Apple Computer, Inc., All Rights Reserved"
};

resource rCDEVFlags (1) {
	wantBoot +
		wantHit +
		wantInit +
		wantMachine +
		wantCreate +
		wantAbout +
		wantClose,					// CDEV flags
	1,								//	enabled = True
	1,								//	Version = 1
	1,								//	Machine = v1 ROMs or higher
	6,								//	System = v6.0 or higher
	{0,0,125,261},					//	DataRect - top left MUST be 0,0
	"FolderPriv",					//	Name
	"Greg Branche",					//	Author
	"v1.0";							//	Version String
};

//###########################################################
//#		Define About Box resources							#
//###########################################################

resource rControlTemplate (AboutID) {
	AboutID,						//	control ID
	{38,5,128,280},					//	rect
	statTextControl {{
		0,							//	flags
		0b0001000000000010,			//	more flags
		0,							//	refCon
		AboutID
	}},
};

resource rTextForLETextBox2 (AboutID) {
	"This Control Panel allows you to set the default privilege level that "
	"will be assigned to new folders created on AppleShare¨ file servers."
};

//###########################################################
//#		Define Warning Message resources					#
//###########################################################

resource rAlertString (noFSTtext) {
	"73/AppleShare is currently not active.  If you continue, any changes "
	"that you make will not take effect until the next time the machine "
	"is restarted with AppleShare enabled./#1/^#6"
	$"00"
};

//###########################################################
//#		Define menu resources								#
//###########################################################

/* Source code created by DesignMaster */
resource rControlList (myCtrlList) {{
	serverDefsBox,	/* control resource id for Use Server Defaults check box */
	separator1,		/* control resource id for separator statText */
	masterPopup,	/* control resource id for Master PopUp */
	separator2,		/* control resource id for separator statText */
	foldersPopup,	/* control resource id for See Folders PopUp*/
	filesPopup,		/* control resource id for See Files PopUp */
	changesPopup,	/* control resource id for Make Changes PopUp */
	ownerCheckBox,	/* control resource id for Owner is... check box */
};};

//----------------------------------------------------------------------------------
// Common strings used by multiple menus

#define nobodyString	0x00000010
#define ownerString		0x00000011
#define groupString		0x00000012
#define oAndGString		0x00000013
#define everyoneString	0x00000014

resource rPString (nobodyString) { 
	"Nobody"
};

resource rPString (ownerString) { 
	"Owner"
};

resource rPString (groupString) { 
	"Group"
};

resource rPString (oAndGString) { 
	"Owner & Group"
};

resource rPString (everyoneString) { 
	"Everyone"
};


//----------------------------------------------------------------------------------
// Use Server Defaults check box control

resource rControlTemplate (serverDefsBox) {
	serverDefsBox,							/* control id */ 
	{3,14,15,247},							/* control rectangle */
	CheckControl{{							/* control type */
		0x0001,								/* flags */
		0x1002,								/* more flags */
		0,									/* ref con */
		serverDefsBox,						/* title reference */
		0x0001								/* inital value */
	}};
};

resource rPString (serverDefsBox) { 
	"Use Server Defaults"
};

//----------------------------------------------------------------------------------
// separator bar frame control

resource rControlTemplate (separator1) {
	separator1,  							/* control id */ 
	{21,14,22,247},  						/* control rectangle */
	rectangleControl{{  					/* control type */
		0x0002,  							/* flags */
		0x1000,  							/* more flags */
		0        							/* ref con */
	}};
};

//----------------------------------------------------------------------------------
// Master PopUp control

resource rControlTemplate (masterPopup) {
	masterPopup,  							/* control id */ 
	{28,10,40,247},  						/* control rectangle */
	PopUpControl{{   						/* control type */
		0x0000,  							/* flags */
		0x1002,  							/* more flags */
		0,        							/* ref con */
		100, 								/* title width */
		masterPopup, 						/* menu reference */
		masterItem2  						/* inital value */
	}};
};

resource rMenu (masterPopup) {
	masterPopup,  							/* id of menu */
	RefIsResource*MenuTitleRefShift+RefIsResource*ItemRefShift+fAllowCache,
	masterPopup,  							/* id of title string */
	{
		masterItem1,    					/* item reference */
		masterItem2,    					/* item reference */
		masterItem3,    					/* item reference */
		masterItem4,    					/* item reference */
		masterItem5,    					/* item reference */
	};
};

resource rPString (masterPopup) {
	" Master:"
};

resource rMenuItem (masterItem1) {
	masterItem1, 							/* item id number */
	"","",       							/* hot key*/
	0,       								/* check character */
	RefIsResource*ItemTitleRefShift+fXOR,
	masterItem1,    						/* title reference */
};

resource rPString (masterItem1) { 
	"Custom"
};

resource rMenuItem (masterItem2) {
	masterItem2, 							/* item id number */
	"","",       							/* hot key*/
	0,       								/* check character */
	RefIsResource*ItemTitleRefShift+fXOR,
	masterItem2,    						/* title reference */
};

resource rPString (masterItem2) { 
	"Private"
};

resource rMenuItem (masterItem3) {
	masterItem3, 							/* item id number */
	"","",       							/* hot key*/
	0,       								/* check character */
	RefIsResource*ItemTitleRefShift+fXOR,
	masterItem3,    						/* title reference */
};

resource rPString (masterItem3) { 
	"Public"
};

resource rMenuItem (masterItem4) {
	masterItem4, 							/* item id number */
	"","",       							/* hot key*/
	0,       								/* check character */
	RefIsResource*ItemTitleRefShift+fXOR,
	masterItem4,    						/* title reference */
};

resource rPString (masterItem4) { 
	"Drop Folder"
};

resource rMenuItem (masterItem5) {
	masterItem5, 							/* item id number */
	"","",       							/* hot key*/
	0,       								/* check character */
	RefIsResource*ItemTitleRefShift+fXOR,
	masterItem5,    						/* title reference */
};

resource rPString (masterItem5) { 
	"Bulletin Board"
};

//----------------------------------------------------------------------------------
// separator bar frame control

resource rControlTemplate (separator2) {
	separator2,  							/* control id */ 
	{46,14,47,247},  						/* control rectangle */
	rectangleControl{{  					/* control type */
		0x0002,  							/* flags */
		0x1000,  							/* more flags */
		0        							/* ref con */
	}};
};

//----------------------------------------------------------------------------------
// See Folders PopUp control

resource rControlTemplate (foldersPopup) {
	foldersPopup,  							/* control id */ 
	{53,10,65,247}, 				 		/* control rectangle */
	PopUpControl{{   						/* control type */
		0x0000,  							/* flags */
		0x1002,  							/* more flags */
		0,        							/* ref con */
		100, 								/* title width */
		foldersPopup, 						/* menu reference */
		foldersItem2  						/* inital value */
	}};
};

resource rMenu (foldersPopup) {
	foldersPopup,  							/* id of menu */
	RefIsResource*MenuTitleRefShift+RefIsResource*ItemRefShift+fAllowCache,
	foldersPopup,  							/* id of title string */
	{
		foldersItem1,    					/* item reference */
		foldersItem2,    					/* item reference */
		foldersItem3,    					/* item reference */
		foldersItem4,    					/* item reference */
		foldersItem5,    					/* item reference */
	};
};

resource rPString (foldersPopup) {
	" See Folders:"
};

resource rMenuItem (foldersItem1) {
	foldersItem1, 							/* item id number */
	"","",       							/* hot key*/
	0,       								/* check character */
	RefIsResource*ItemTitleRefShift+fXOR,
	nobodyString,  							/* title reference */
};

resource rMenuItem (foldersItem2) {
	foldersItem2, 							/* item id number */
	"","",       							/* hot key*/
	0,       								/* check character */
	RefIsResource*ItemTitleRefShift+fXOR,
	ownerString,   							/* title reference */
};

resource rMenuItem (foldersItem3) {
	foldersItem3, 							/* item id number */
	"","",       							/* hot key*/
	0,       								/* check character */
	RefIsResource*ItemTitleRefShift+fXOR,
	groupString,   							/* title reference */
};

resource rMenuItem (foldersItem4) {
	foldersItem4, 							/* item id number */
	"","",       							/* hot key*/
	0,       								/* check character */
	RefIsResource*ItemTitleRefShift+fXOR,
	oAndGString,   							/* title reference */
};

resource rMenuItem (foldersItem5) {
	foldersItem5, 							/* item id number */
	"","",       							/* hot key*/
	0,       								/* check character */
	RefIsResource*ItemTitleRefShift+fXOR,
	everyoneString,    						/* title reference */
};

//----------------------------------------------------------------------------------
// See Files PopUp control

resource rControlTemplate (filesPopup) {
	filesPopup,  							/* control id */ 
	{71,10,83,247},  						/* control rectangle */
	PopUpControl{{   						/* control type */
		0x0000,  							/* flags */
		0x1002,  							/* more flags */
		0,        							/* ref con */
		100, 								/* title width */
		filesPopup, 						/* menu reference */
		filesItem2  						/* inital value */
	}};
};

resource rMenu (filesPopup) {
	filesPopup,  							/* id of menu */
	RefIsResource*MenuTitleRefShift+RefIsResource*ItemRefShift+fAllowCache,
	filesPopup,  							/* id of title string */
	{
		filesItem1,    						/* item reference */
		filesItem2,    						/* item reference */
		filesItem3,    						/* item reference */
		filesItem4,    						/* item reference */
		filesItem5,    						/* item reference */
	};
};

resource rPString (filesPopup) {
	" See Files:"
};

resource rMenuItem (filesItem1) {
	filesItem1, 							/* item id number */
	"","",       							/* hot key*/
	0,       								/* check character */
	RefIsResource*ItemTitleRefShift+fXOR,
	nobodyString,  							/* title reference */
};

resource rMenuItem (filesItem2) {
	filesItem2,								/* item id number */
	"","",       							/* hot key*/
	0,       								/* check character */
	RefIsResource*ItemTitleRefShift+fXOR,
	ownerString,   							/* title reference */
};

resource rMenuItem (filesItem3) {
	filesItem3, 							/* item id number */
	"","",       							/* hot key*/
	0,       								/* check character */
	RefIsResource*ItemTitleRefShift+fXOR,
	groupString,   							/* title reference */
};

resource rMenuItem (filesItem4) {
	filesItem4, 							/* item id number */
	"","",       							/* hot key*/
	0,       								/* check character */
	RefIsResource*ItemTitleRefShift+fXOR,
	oAndGString,   							/* title reference */
};

resource rMenuItem (filesItem5) {
	filesItem5, 							/* item id number */
	"","",       							/* hot key*/
	0,       								/* check character */
	RefIsResource*ItemTitleRefShift+fXOR,
	everyoneString,							/* title reference */
};

//----------------------------------------------------------------------------------
// Make Changes PopUp control

resource rControlTemplate (changesPopup) {
	changesPopup,  							/* control id */ 
	{89,10,101,247},  						/* control rectangle */
	PopUpControl{{   						/* control type */
		0x0040,  							/* flags */
		0x1002,  							/* more flags */
		0,        							/* ref con */
		100, 								/* title width */
		changesPopup, 						/* menu reference */
		changesItem2  						/* inital value */
	}};
};

resource rMenu (changesPopup) {
	changesPopup,  							/* id of menu */
	RefIsResource*MenuTitleRefShift+RefIsResource*ItemRefShift+fAllowCache,
	changesPopup,  							/* id of title string */
	{
		changesItem1,    					/* item reference */
		changesItem2,    					/* item reference */
		changesItem3,    					/* item reference */
		changesItem4,    					/* item reference */
		changesItem5,    					/* item reference */
	};
};

resource rPString (changesPopup) {
	" Make Changes:"
};

resource rMenuItem (changesItem1) {
	changesItem1, 							/* item id number */
	"","",       							/* hot key*/
	0,       								/* check character */
	RefIsResource*ItemTitleRefShift+fXOR,
	nobodyString,							/* title reference */
};

resource rMenuItem (changesItem2) {
	changesItem2, 							/* item id number */
	"","",       							/* hot key*/
	0,       								/* check character */
	RefIsResource*ItemTitleRefShift+fXOR,
	ownerString,							/* title reference */
};

resource rMenuItem (changesItem3) {
	changesItem3, 							/* item id number */
	"","",       							/* hot key*/
	0,       								/* check character */
	RefIsResource*ItemTitleRefShift+fXOR,
	groupString,							/* title reference */
};

resource rMenuItem (changesItem4) {
	changesItem4, 							/* item id number */
	"","",       							/* hot key*/
	0,       								/* check character */
	RefIsResource*ItemTitleRefShift+fXOR,
	oAndGString,							/* title reference */
};

resource rMenuItem (changesItem5) {
	changesItem5, 							/* item id number */
	"","",       							/* hot key*/
	0,       								/* check character */
	RefIsResource*ItemTitleRefShift+fXOR,
	everyoneString,							/* title reference */
};

//----------------------------------------------------------------------------------
// Owner is <Any User> check box control

resource rControlTemplate (ownerCheckBox) {
	ownerCheckBox,  						/* control id */ 
	{107,14,119,247},						/* control rectangle */
	CheckControl{{  						/* control type */
		0x0001,  							/* flags */
		0x1002,  							/* more flags */
		0,        							/* ref con */
		ownerCheckBox,   					/* title reference */
		0x0000	     						/* inital value */
	}};
};

resource rPString (ownerCheckBox) { 
	"Owner is <Any User>"
};

//###########################################################
//#		Define icon resources								#
//###########################################################

resource rIcon (1) {				//	the "CDEV" icon
	0x8000,							//	kind
	20,								//	height
	28,								//	width
    $"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
    $"FFFFFF000000FFFFFFFFFFFFFFFF"
    $"FFFFF00000000FFFFFFFFFFFFFFF"
    $"FFFFF000000000000000000FFFFF"
    $"FFFFF0eeeeeee00eeeeeee0FFFFF"
    $"FFFFF0eeeeee0ee0eeeeee0FFFFF"
    $"FFFFF0eeeee000000eeeee0FFFFF"
    $"FFFFF0eeeee030030eeeee0FFFFF"
    $"FFFFF0eeeee030030eeeee0FFFFF"
    $"FFFFF0eeeee000000eeeee0FFFFF"
    $"cccccccccccccccccccccccccccc"
    $"FccccccccccccccccccccccccccF"
    $"FFFFFFF0f0f0f0ff0f0FFFFFFFFF"
    $"FFFFFFFF0f0f0f0f0f0FFFFFFFFF"
    $"FFFFFFFFF0f0fff00f0FFFFFFFFF"
    $"FFFFFFFFFF00ffffff0FFFFFFFFF"
    $"FFFFFFFFFFFF0fffff0FFFFFFFFF"
    $"FFFFFFFFFFF000000000FFFFFFFF"
    $"FFFFFFFFFFF0fffffff0FFFFFFFF"
    $"FFFFFFFFFFF0f0fffff0FFFFFFFF",

    $"000000FFFFFF0000000000000000"
    $"00000FFFFFFFF000000000000000"
    $"0000FFFFFFFFFFFFFFFFFFFF0000"
    $"0000FFFFFFFFFFFFFFFFFFFF0000"
    $"0000FFFFFFFFFFFFFFFFFFFF0000"
    $"0000FFFFFFFFFFFFFFFFFFFF0000"
    $"0000FFFFFFFFFFFFFFFFFFFF0000"
    $"0000FFFFFFFFFFFFFFFFFFFF0000"
    $"0000FFFFFFFFFFFFFFFFFFFF0000"
    $"0000FFFFFFFFFFFFFFFFFFFF0000"
    $"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
    $"0FFFFFFFFFFFFFFFFFFFFFFFFFF0"
    $"0000000FFFFFFF00FFF000000000"
    $"00000000FFFFFFF0FFF000000000"
    $"000000000FFFFFFFFFF000000000"
    $"0000000000FFFFFFFFF000000000"
    $"000000000000FFFFFFF000000000"
    $"00000000000FFFFFFFFF00000000"
    $"00000000000FFFFFFFFF00000000"
    $"00000000000FFFFFFFFF00000000"
};
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/FolderPrivCDEV/makefile b/IIGS.601.SRC/A.U.G/CtlPanel/FolderPrivCDEV/makefile
new file mode 100644
index 0000000..d563fcb
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/FolderPrivCDEV/makefile
@@ -0,0 +1 @@
+#############################################################
#															#
#	File:			MakeFile								#
#	Version:		1.0										#
#	Author:													#
#	Copyright:		(c) 1991 by Apple Computer, Inc.		#
#															#
#	Description:	This file contains the commands needed	#
#					to build the FolderPriv CDEV for the	#
#                   IIgs									#
#															#
#-----------------------------------------------------------#
#															#
#	Development History:									#
#															#
#	Who		Date		The Modification					#
#	---		--------	----------------					#
#   GAB		01/21/91	Initial release						#
#															#
#############################################################

FolderPriv		ÄÄ	FP.Code FolderPriv.r rDefs.h
	RezIIgs FolderPriv.r -o FolderPriv -t "C7  " -c "pdos"

FolderPriv.obj		Ä	FolderPriv.c rDefs.h CDev.h
	CIIgs FolderPriv.c -o FolderPriv.obj

FP.Code		Ä	FolderPriv.obj
	LinkIIgs -w -x ¶
		-l >FP.map ¶
		-lib "{CIIGSLibrary}CLib" ¶
		-lseg $1000:CDev ¶
			FolderPriv.obj ¶
			"{CIIGSLibrary}Clib"(@main,@~globals,@~arrays) ¶
		-o FP.Code
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/FolderPrivCDEV/rDefs.h b/IIGS.601.SRC/A.U.G/CtlPanel/FolderPrivCDEV/rDefs.h
new file mode 100644
index 0000000..5c27ddc
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/FolderPrivCDEV/rDefs.h
@@ -0,0 +1 @@
+#define	AboutID			0x0100
#define noFSTtext		0x0200

#define myCtrlList		'GB'

#define masterPopup		0x1000
#define foldersPopup	0x2000
#define filesPopup		0x3000
#define changesPopup	0x4000
#define serverDefsBox	0x5000
#define ownerCheckBox	0x6000
#define separator1		0x7000
#define separator2		0x8000

#define masterItem1		masterPopup+1
#define masterItem2		masterPopup+2
#define masterItem3		masterPopup+3
#define masterItem4		masterPopup+4
#define masterItem5		masterPopup+5

#define foldersItem1	foldersPopup+1
#define foldersItem2	foldersPopup+2
#define foldersItem3	foldersPopup+3
#define foldersItem4	foldersPopup+4
#define foldersItem5	foldersPopup+8

#define filesItem1		filesPopup+1
#define filesItem2		filesPopup+2
#define filesItem3		filesPopup+3
#define filesItem4		filesPopup+4
#define filesItem5		filesPopup+8

#define changesItem1	changesPopup+1
#define changesItem2	changesPopup+2
#define changesItem3	changesPopup+3
#define changesItem4	changesPopup+4
#define changesItem5	changesPopup+8

\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/GeneralCDEV/General.pii b/IIGS.601.SRC/A.U.G/CtlPanel/GeneralCDEV/General.pii
new file mode 100644
index 0000000..29d7326
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/GeneralCDEV/General.pii
@@ -0,0 +1 @@
+This sourcefile is no longer used.
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/GeneralCDEV/General.r b/IIGS.601.SRC/A.U.G/CtlPanel/GeneralCDEV/General.r
new file mode 100644
index 0000000..988461f
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/GeneralCDEV/General.r
@@ -0,0 +1 @@
+/*******************************************************************/
/*
/* General.r
/*
/* Copyright (C) 1988-1992
/* Apple Computer, Inc.
/* All Rights Reserved
/*
/* This file contains the source of the resources needed to build the 
/* General CDEV.
/*
/*******************************************************************/


/*  work:busybox:busybox.r   */
/* "hd:mpw:riigsincludes:typesiigs.r"   */

#include "typesiigs.r" 

resource rIcon (1) {
	  0x8000,							/* Kind */
	  20,								/* Height */
	  28,								/* Width */
	  
	  $"FFFF00000000000000000000FFFF"
	  $"FFF0FFFFFFFFFFFFFFFFFFFF0FFF"
	  $"FFF0F000000000000000000F0FFF"
	  $"FFF0F0F4FFFFFFFFFFFFFF0F0FFF"
	  $"FFF0F0DDDDDDDDDDDDDDDD0F0FFF"
	  $"FFF0F0DDDDDDDDDDDDDDDD0F0FFF"
	  $"FFF0F0DDDDDDDDDDDDDDDD0F0FFF"
	  $"FFF0F0DDDDDDDDDDDDDDDD0F0FFF"
	  $"FFF0F0DDDDDDDDDDDDDDDD0F0FFF"
	  $"FFF0F0DDDDDDDDDDDDDDDD0F0FFF"
	  $"FFF0F0DDDDDDDDDDDDDDDD0F0FFF"
	  $"FFF0F000000000000000000F0FFF"
	  $"FFF0FFFFFFFFFFFFFFFFFFFF0FFF"
	  $"FFFF00000000000000000000FFFF"
	  $"FFFF0FFFFFFFFFFFFFFFFFF0FFFF"
	  $"FFFF0FF8F3333FFFFFFFFFF0FFFF"
	  $"FFFF0FF4FFFFFFFFFFFFFFF0FFFF"
	  $"FFFF03333333333333333330FFFF"
	  $"FFFF0FFFFFFFFFFFFFFFFFF0FFFF"
	  $"FFFF00000000000000000000FFFF",
		
	  $"0000FFFFFFFFFFFFFFFFFFFF0000"
	  $"000FFFFFFFFFFFFFFFFFFFFFF000"
	  $"000FFFFFFFFFFFFFFFFFFFFFF000"
	  $"000FFFFFFFFFFFFFFFFFFFFFF000"
	  $"000FFFFFFFFFFFFFFFFFFFFFF000"
	  $"000FFFFFFFFFFFFFFFFFFFFFF000"
	  $"000FFFFFFFFFFFFFFFFFFFFFF000"
	  $"000FFFFFFFFFFFFFFFFFFFFFF000"
	  $"000FFFFFFFFFFFFFFFFFFFFFF000"
	  $"000FFFFFFFFFFFFFFFFFFFFFF000"
	  $"000FFFFFFFFFFFFFFFFFFFFFF000"
	  $"000FFFFFFFFFFFFFFFFFFFFFF000"
	  $"000FFFFFFFFFFFFFFFFFFFFFF000"
	  $"0000FFFFFFFFFFFFFFFFFFFF0000"
	  $"0000FFFFFFFFFFFFFFFFFFFF0000"
	  $"0000FFFFFFFFFFFFFFFFFFFF0000"
	  $"0000FFFFFFFFFFFFFFFFFFFF0000"
	  $"0000FFFFFFFFFFFFFFFFFFFF0000"
	  $"0000FFFFFFFFFFFFFFFFFFFF0000"
	  $"0000FFFFFFFFFFFFFFFFFFFF0000";



};

read rCDEVCode (1,Convert) "General.Load";


resource rCDEVFlags (1) {
	wantHit+wantInit+wantCreate+wantAbout+wantClose+wantEvents+updateSSfromBRAM,		/* CDEV Flags */
	1,											/* Enabled */
	1,											/* Version */
	1,											/* Machine */
	4,											/* System */
	{0,0,160,200},								/* DataRect  was 47 */
	"General",									/* Name */
	"Michael Stein",							/* Author */
	"v2.0";										/* VersStr */
};
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/GeneralCDEV/GeneralData.aii b/IIGS.601.SRC/A.U.G/CtlPanel/GeneralCDEV/GeneralData.aii
new file mode 100644
index 0000000..819f91b
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/GeneralCDEV/GeneralData.aii
@@ -0,0 +1 @@
+;;;	generaldata - initialized data for general CDEV.
;
;	Michael V. Stein	03/01/90.
;
;	© Apple, 1990.

	include 'E16.Control'

	BLANKS ON

	string ASIS


;;	equates.

left	equ	5
right	equ	195
top	equ	2
hgt	equ	12
tothgt	equ	hgt+3
space	equ	8


;	control for menublink popup.


general1 PROC EXPORT
	dc.w	9
	dc.l	1
	dc.w	top,left,top+hgt,right
	dc.l	popUpControl
	dc.w	$0040
	dc.w	$1004
	dc.l	0
	dc.w	105
	dc.l	general1Menu
	dc.w	1
	
general1menu
	dc.b	'>> Menu Blinking:\H'
	dc.w	1
	dc.b	$0D
	dc.b	'== Off\H'
	dc.w	1
	dc.b	$0D
	dc.b	'== 1 Time\H'
	dc.w	2
	dc.b	$0D
	dc.b	'== 2 Times\H'
	dc.w	3
	dc.b	$0D
	dc.b	'== 3 Times\IH'
	dc.w	4
	dc.b	$0D
	dc.b	'.'
	ENDP


;	control for cursor flash popup.
	
general2 PROC EXPORT

top2	equ	top+tothgt

	dc.w	9
	dc.l	2
	dc.w	top2,left,top2+hgt,right
	dc.l	popUpControl
	dc.w	$0040
	dc.w	$1004
	dc.l	0
	dc.w	105
	dc.l	general2Menu
	dc.w	1
	
general2menu
	dc.b	'>> Cursor Flash:\H'
	dc.w	2
	dc.b	$0D
	dc.b	'== Slowest\H'
	dc.w	1
	dc.b	$0D
	dc.b	'== Slow\H'
	dc.w	2
	dc.b	$0D
	dc.b	'== Medium\IH'
	dc.W	3
	dc.b	$0D
	dc.b	'== Fast\H'
	dc.w	4
	dc.b	$0D
	dc.b	'== Fastest\H'
	dc.w	5
	dc.b	$0D
	dc.b	'.'
	ENDP
	

;	control for system speed popup.

general3 PROC EXPORT

top3	equ	top+tothgt*2

	dc.w	9
	dc.l	3
	dc.w	top3,left,top3+hgt,right
	dc.l	popUpControl
	dc.w	$0040
	dc.w	$1004
	dc.l	0
	dc.w	105
	dc.l	general3Menu
	dc.w	1
	
general3menu
	dc.b	'>> System Speed:\H'
	dc.w	3
	dc.b	$0D
	dc.b	'== Normal\H'
	dc.w	1
	dc.b	$0D
	dc.b	'== Fast\IH'
	dc.w	2
	dc.b	$0D
	dc.b	'.'

	ENDP
	
	

	string ASIS

;	control for mousespeed popup.

mouse1 PROC EXPORT
top4	equ	top+tothgt*3+space

	dc.w	9
	dc.l	4
	dc.w	top4,left,top4+hgt,right
	dc.l	popUpControl
	dc.w	$0040
	dc.w	$1004
	dc.l	0
	dc.w	110
	export mouseptr
mouseptr
	import mouse1menu
	dc.l	mouse1Menu
	dc.w	1
	ENDP

;	menu for ROM 1.

GSmouse1menu proc export
	dc.b	'>> Mouse Speed:\H'
	dc.w	1
	dc.b	$0D
	dc.b	'== Slow\IH'
	dc.w	1
	dc.b	$0D
	dc.b	'== Fast\H'
	dc.w	2
	dc.b	$0D
	dc.b	'.'
	ENDP

;	menu for ROM 3.	

mouse1menu proc export
	dc.b	'>> Mouse Speed:\H'
	dc.w	1
	dc.b	$0D
	dc.b	'== Slowest\IH'
	dc.w	1
	dc.b	$0D
	dc.b	'== Slow\H'
	dc.w	2
	dc.b	$0D
	dc.b	'== Medium\H'
	dc.w	3
	dc.b	$0D
	dc.b	'== Fast\H'
	dc.w	4
	dc.b	$0D
	dc.b	'== Fastest\H'
	dc.w	5
	dc.b	$0D
	dc.b	'.'
	ENDP


;	control for double click speed.

mouse2 PROC EXPORT
top5	equ	top+tothgt*4+space
	
	dc.w	9
	dc.l	5
	dc.w	top5,left,top5+hgt,right
	dc.l	popUpControl
	dc.w	$0040
	dc.w	$1004
	dc.l	0
	dc.w	110
	dc.l	mouse2Menu
	dc.w	1
	
mouse2menu
	dc.b	'>> Double Click:\H'
	dc.w	2
	dc.b	$0D
	dc.b	'== Slowest\H'
	dc.w	1
	dc.b	$0D
	dc.b	'== Slow\H'
	dc.w	2
	dc.b	$0D
	dc.b	'== Medium\IH'
	dc.w	3
	dc.b	$0D
	dc.b	'== Fast\H'
	dc.w	4
	dc.b	$0D
	dc.b	'== Fastest\H'
	dc.w	5
	dc.b	$0D
	dc.b	'.'
	ENDP
	
	
	
;	alphabet stuff.


inter1 PROC EXPORT
top6	equ	top+tothgt*5+space*2

	dc.w	9
	dc.l	6
	dc.w	top6,left,top6+hgt,right
	dc.l	popUpControl
	dc.w	$0040
	dc.w	$1004
	dc.l	0
	dc.w	80
	dc.l	inter1Menu
	dc.w	1

	export trick1
Trick1
	dc.w	zero
	dc.w	one
	dc.w	two
	dc.w	three
	dc.w	four
	dc.w	five
	dc.w	six
	dc.w	seven
	dc.w	eight
	dc.w	nine
	dc.w	ten
	dc.w	eleven
	dc.w	twelve
	dc.w	thirteen
	dc.w	fourteen
	dc.w	fifteen
	dc.w	sixteen
	dc.w	seventeen
	dc.w	eighteen
	dc.w	nineteen
	dc.w	twenty
	
inter1menu
	dc.b	'>> Monitor:\H'
	dc.w	6
	dc.b	$0D
zero
	dc.b	'== U.S.A.\IH'
	dc.w	1
	dc.b	$0D
one
	dc.b	'== U.K.\H'
	dc.w	2
	dc.b	$0D
two
	dc.b	'== French\H'
	dc.w	3
	dc.b	$0D
three
	dc.b	'== Danish\H'
	dc.w	4
	dc.b	$0D
four
	dc.b	'== Spanish\H'
	dc.w	5
	dc.b	$0D
five
	dc.b	'== Italian\H'
	dc.w	6
	dc.b	$0D
six
	dc.b	'== German\H'
	dc.w	7
	dc.b	$0D
seven
	dc.b	'== Swedish\H'
	dc.w	8
	dc.b	$0D
eight
	dc.b	'== Dvorak\H'
	dc.w	9
	dc.b	$0D
nine
	dc.b	'== Canadian\H'
	dc.w	10
	dc.b	$0D
ten
	dc.b	'== Flemish\H'
	dc.w	11
	dc.b	$0D
eleven
	dc.b	'== Hebrew\H'
	dc.w	12
	dc.b	$0D
twelve
	dc.b	'== Japanese\H'
	dc.w	13
	dc.b	$0D
thirteen
	dc.b	'== Arabic\H'
	dc.w	14
	dc.b	$0D
fourteen
	dc.b	'== Greek\H'
	dc.w	15
	dc.b	$0D
fifteen
	dc.b	'== Turkish\H'
	dc.w	16
	dc.b	$0D
sixteen
	dc.b	'== Finnish\H'
	dc.w	17
	dc.b	$0D
seventeen
	dc.b	'== Portuguese\H'
	dc.w	18
	dc.b	$0D
eighteen
	dc.b	'== Tamil\H'
	dc.w	19
	dc.b	$0D
nineteen
	dc.b	'== Hindi\H'
	dc.w	20
	dc.b	$0D
twenty
	dc.b	'.'
	ENDP



keyboard1 PROC EXPORT

;	control for keyboard language.

top7	equ	top+tothgt*6+space*2

	dc.w	9
	dc.l	7
	dc.w	top7,left,top7+hgt,right
	dc.l	popUpControl
	dc.w	$0040
	dc.w	$1004
	dc.l	0
	dc.w	80
	dc.l	keyboard4Menu
	dc.w	1

	export trick
Trick
	dc.w	zero
	dc.w	one
	dc.w	two
	dc.w	three
	dc.w	four
	dc.w	five
	dc.w	six
	dc.w	seven
	dc.w	eight
	dc.w	nine
	dc.w	ten
	dc.w	eleven
	dc.w	twelve
	dc.w	thirteen
	dc.w	fourteen
	dc.w	fifteen
	dc.w	sixteen
	dc.w	seventeen
	dc.w	eighteen
	dc.w	nineteen
	dc.w	twenty

keyboard4menu
	dc.b	'>> Keyboard:\H'
	dc.w	4
	dc.b	$0D
zero
	dc.b	'== U.S.A.\IH'
	dc.w	1
	dc.b	$0D
one
	dc.b	'== U.K.\H'
	dc.w	2
	dc.b	$0D
two
	dc.b	'== French\H'
	dc.w	3
	dc.b	$0D
three
	dc.b	'== Danish\H'
	dc.w	4
	dc.b	$0D
four
	dc.b	'== Spanish\H'
	dc.w	5
	dc.b	$0D
five
	dc.b	'== Italian\H'
	dc.w	6
	dc.b	$0D
six
	dc.b	'== German\H'
	dc.w	7
	dc.b	$0D
seven
	dc.b	'== Swedish\H'
	dc.w	8
	dc.b	$0D
eight
	dc.b	'== Dvorak\H'
	dc.w	9
	dc.b	$0D
nine
	dc.b	'== Canadian\H'
	dc.w	10
	dc.b	$0D
ten
	dc.b	'== Flemish\H'
	dc.w	11
	dc.b	$0D
eleven
	dc.b	'== Hebrew\H'
	dc.w	12
	dc.b	$0D
twelve
	dc.b	'== Japanese\H'
	dc.w	13
	dc.b	$0D
thirteen
	dc.b	'== Arabic\H'
	dc.w	14
	dc.b	$0D
fourteen
	dc.b	'== Greek\H'
	dc.w	15
	dc.b	$0D
fifteen
	dc.b	'== Turkish\H'
	dc.w	16
	dc.b	$0D
sixteen
	dc.b	'== Finnish\H'
	dc.w	17
	dc.b	$0D
seventeen
	dc.b	'== Portuguese\H'
	dc.w	18
	dc.b	$0D
eighteen
	dc.b	'== Tamil\H'
	dc.w	19
	dc.b	$0D
nineteen
	dc.b	'== Hindi\H'
	dc.w	20
	dc.b	$0D
twenty
	dc.b	'.'
	ENDP
	
	
other1	PROC EXPORT
top8	equ	top+tothgt*7+space*2

	dc.w	9			;pcount
	dc.l	8			;ctl ID
	dc.w	top8,left,top8+hgt,right	;rect
	dc.l	popUpControl		;procRef
	dc.w	$0040			;ctlFlag
	dc.w	$1002			;moreFlags
	dc.l	0			;refCon
	dc.w	105			;title width
	dc.l	$07ff1000		;menuRef, from the System resourceÉ
					;Éfile, so that it will followÉ
					;Élocalization
	dc.w	1			;initial item
	
top9		equ	top+tothgt*8+20

		export sortCheck
sortCheck
		dc.w	8			;pcount
		dc.l	9			;ctl ID
		dc.w	top9,left+22,top9+hgt,right	;rect
		dc.l	checkControl		;procRef
		dc.w	$0000			;ctlFlag
		dc.w	$1000			;moreFlags
		dc.l	0			;refCon
		dc.l checkTitle
		dc.w	0			;initial value

checkTitle
		dc.b @end - @start
@start
		dc.b ' Alphabetize DAs '
@end

;	list of controls.	
	
generalList	PROC EXPORT
		dc.l	general1
		dc.l	general2
		dc.l	general3
		dc.l	mouse1
		dc.l	mouse2
		dc.l	inter1
		dc.l	keyboard1
		dc.l	other1
		dc.l sortCheck
		dc.l	0
		ENDP

generalabout2	PROC EXPORT
	dc.w	8
	dc.l	1
	dc.w	38,5,138,280
	dc.l	$81000000
	dc.w	$0000
	dc.w	$1000
	dc.l	0
	dc.l	ab2
	dc.w	ab2L

ab2	dc.b	'Not enough memory.'
ab2L	equ	*-ab2
	endp

;	text edit control for about box.

generalabout	proc	export
	dc.w 16			; pCount - Just until the text length.
	dc.l $00000021		; ID.
	dc.w	38,5,138,280	; rect
	dc.l $85000000		; procRef - TextEdit control is $85000000.
	dc.w	$0
	dc.w $7400		; moreFlags - references are for pointers.
	dc.l $00000000		; refCon - not needed.
	dc.l $45900000		; textFlags - no selecting, draws border, etc.
	dc.w $ffff,$ffff	; indentRect - use the default amounts.
	dc.w $ffff,$ffff
	dc.l $ffffffff		; vertBar - let TextEdit create the scroll bar.
	dc.w $0000		; vertAmount - use the default amount for scrolling.
	dc.l $00000000		; horzBar - not used.
	dc.w $0000		; horzAmount - not used.
	dc.l $00000000		; styleRef - there are no initial styles.
	dc.w $0004		; textDescriptor - text is pointer to LETextBox2.
	dc.l thetext		; textRef - to be supplied by the program.
_aboutFullProgramTitleLength_
	dc.l endtext-thetext	; textSize - to be supplied by the program.

	string asis
	
TheText
	dc.b	'The General Control Panel allows you to change miscellaneous '
	dc.b	'system settings.  Menu Blinking is the number of times '
	dc.b	'that menu items will blink when they are chosen.  '
	dc.b	'Cursor Flash is how fast the insertion point '
	dc.b	'will blink when you are editing text.  System Speed allows '
	dc.b	'you to slow down the processor for compatibility with older '
	dc.b	'Apple II programs.  '
	dc.b 	'Mouse '
	dc.b 	'Speed controls the speed of the mouse across the screen.  Double '
	dc.b 	'Click is the interval of time between two mouse clicks for them to '
	dc.b 	'be considered a double click.  '
	dc.b	'The Monitor item lets you select a foreign character set for ' 
	dc.b	'the text screen.  '  
	dc.b 	'The Keyboard item allows you to set the keyboard type.  Setting '
	dc.b	'the Translation item to ÒStandardÓ will allow you to type foreign '
	dc.b	'characters.  '
	dc.b	'Alphabetize DAs causes NDAs and CDAs to be listed in '
	dc.b	'alphabetical order after the system is restarted.'
EndText
	ENDP


	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/GeneralCDEV/general.aii b/IIGS.601.SRC/A.U.G/CtlPanel/GeneralCDEV/general.aii
new file mode 100644
index 0000000..3bb1186
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/GeneralCDEV/general.aii
@@ -0,0 +1 @@
+;;;	general - General CDEV.
;
;	Michael V. Stein	03/01/90.
;
;	© Apple, 1990.


	blanks	off
	


;;	equates.


aug_param  equ	$5e		 bit 0 set means no closed captioning
				;bit 1 set means standard time
				;      clear if daylight savings time
				;bit 2 set means not to have auto daylight savings
				;      clear means to have auto daylight savings
				;bit 3 and 4 are the amount of menublink to have




;;	include files.


	include	'::cdev.h'
	include	'::commonmacros.h'
	include	'::dp.h'
	include	'e16.control'
	include	'e16.event'
	include	'm16.control'
	include	'm16.event'
	include	'm16.font'
	include	'm16.locator'
	include	'm16.memory'
	include	'm16.menu'
	include	'm16.misctool'
	include	'm16.quickdraw'
	include	'm16.textedit'
	include	'm16.util2'
	include	'm16.window'
	



;;	main program.




main	proc



;;	imported addresses.


	import	generalabout
	import	generalabout2
	import	generallist
	import	gsmouse1menu
	import	mouse1menu
	import	mouseptr
	import	trick
	import	trick1
	
	
	

general	phb			save calling data bank
	phk
	plb			set our data bank		

;	make room on stack for direct page.

	tsc			
	sec			
	sbc	#dpsize		make room on stack for new direct page
	tcs			
	phd			save the current direct page
	tcd			new direct page

	lda	message	
	cmp	#11		
	bcs	general1	if message defintely not handled
		
	asl	a		times 2 into word table
	tax			move into index reg
	jsr	(t_cdev-2,x)	call the handler of this message

general1  pld			restore direct page
	tsc
	clc
	adc	#dpsize		
	tcs			reset the stack
	lda	1,s		Bump the stack up to prepare
	sta	11,s		to take off the 3 parameters
	lda	3,s		
	sta	13,s

	pla			get rid of message space
	
	pla			get rid of data1 space
	pla			
	
	pla			get rid of data2 space
	pla			
	
	lda	#0		return 0 to caller
	sta	5,s
	sta	7,s		
	plb
	
	rtl
		

t_cdev	dc.w	cccE		handle machine message - ignored
	dc.w	cccE		handle boot message - ignored
	dc.w	cccE		unused
	dc.w	icc		init cdev controls
	dc.w	ctc		close the cdev
	dc.w	hem		handle event message
	dc.w	ccc		create cdev controls
	dc.w	ham		handle about message
	dc.w	cccE		handle rectangle message
	dc.w	hhm		handle hit message
	


;;	ccc - create cdev controls.
;
;	entry	[data1] = window pointer.
;		(generallist..) = table of pointers to control templates to create.
;		(mouse1menu..) = mouse menu to use when not on a ten speed.
;		(trick..) = table of bank offsets for keyboard language menu.
;		(trick1..) = table of bank offsets for display language menu.
;
;	exit	controls are created.


ccc	lda	#0		
	pha			space
	pha			space
	pha			space
	pha			space
	pha			(a)
	pha			(x)
	pha			(y)
	pushw	#$fe1f		entrypoint to call
	_FWEntry		call the firmware
	ply			(y)
	plx			(a) - unused
	plx			(x) - unused
	plx			(p) - unused
	cpy	#2
	bcs	ccc1		if a new machine

;	if not a ten speed, then reset the mouse menu to have fewer options.

	lda	#GSmouse1menu
	sta	mouseptr
	lda	#^GSmouse1menu
	sta	mouseptr+2		

;	reset the keyboard and display language menus to what is available.

ccc1	ldx	#$41		battery parameter to get # of keyboard languages
	jsr	rbp		read battery parameter
	asl	a
	tax
	lda	trick,x
	sta	l1		low word of loc to mark as end
	
	ldx	#$38		battery parameter to get # of display languages
	jsr	rbp		read battery parameter
	asl	a
	tax
	lda	trick1,x
	sta	l2		low word of loc to mark as end
	
	lda	#^trick
	sta	l1+2		set hi words
	sta	l2+2		
	
	shortm
	lda	#'.'
	sta	[l1]		shorten the menu as appropriate
	sta	[l2]		shorten the menu as appropriate
	longm
	
	pha			space for result
	pha
	pushl	data1		window pointer
	pushw	#3		next item is a ptr to a list of template pointers
	pushl	#GeneralList
	_NewControl2
	pla
	pla			don't care about result
	
cccE
	rts



;;	ctc - close the cdev.
;
;	entry	none.
;
;	exit	tools are shutdown, and any memory we allocated is released.


ctc	jsr	stt		shutdown the tools
	jmp	dom		dispose of memory and return
	



;;	ham - handle about message.
;
;	entry	[data1] = window pointer.
;		(GeneralAbout..) = template for about screen.
;
;	exit	The About control is created.


ham	pushw	#0
	_FMStatus
	pla
	beq	ham1		if not active	
	jmp	ham8

ham1	bcc	ham3		if font manager is loaded
	inc	font2F		flag that this has to be unloaded
	
ham2	pushw	#$1b
	pushw	#0
	_LoadOneTool
	bcc	ham3		if no error loading the tool
	jsr	daw		display alert window
	tax
	beq	ham7		if user gave up
	bra	ham2		if user wants to try again

ham3  	inc	fontF		flag that this has to be shutdown
	pha			space for handle
	pha
	pushl	#$100		1 page
	pha
	_MMStartup		get mem id
	pushw	#$C005		locked, fixed, fixed bank, pg algned
	pushl	#0
	_NewHandle
	bcs	ham6		if unable to get memory

	pla
	sta	l1
	sta	fmhdl
	pla
	sta	l1+2
	sta	fmhdl+2
	
ham5	pha			space for result
	_MMStartup		id to use
	lda	[l1]
	pha			address of direct page
	_FMStartup
	bcc	ham8		if ok
	cmp	#$200
	bcs	ham6		if memory manager error
	jsr	daw		display alert window
	tax
	beq	ham7		if user wants to quit
	bra	ham5		try to load it again
	
ham6	jmp	ham14		show the out of memory box


ham7	rts	

	
ham8	pushw	#0
	_TEStatus
	pla
	bne	ham13		if text edit is already active
	bcc	ham11		if tool is already loaded

ham9	pushw	#$22
	pushw	#0		
	_LoadOneTool	
	bcc	ham10
	jsr	daw
	bra	ham9

ham10	inc	text2F		flag that tool should be unloaded

ham11	pha			space for handle
	pha
	pushl	#$100		1 page
	pha
	_MMStartup		get mem id
	pushw	#$C005		locked, fixed, fixed bank, pg algned
	pushl	#0
	_NewHandle
	bcs	ham6		if unable to get memory
	
	pla
	sta	l1
	sta	tehdl
	
	pla
	sta	l1+2
	sta	tehdl+2

	pha			space for result
	_MMStartup		id to use
	lda	[l1]
	pha			address of direct page
	_TEStartup
	inc	textF		flag that this has to be shut down	
		
ham13	pha			space for result
	pha
	pushl	data1		window pointer
	pushw	#0		next item is a ptr to a template
	pushl	#GeneralAbout
	_NewControl2
	pla
	pla			don't care about result	
	
	rts


;	if unable to show big about - tell user the bad news.

ham14	pha			space for result
	pha
	pushl	data1		window pointer
	pushw	#0		next item is a ptr to a template
	pushl	#GeneralAbout2
	_NewControl2
	pla
	pla			don't care about result
	rts



;;	hem - handle event message.
;
;	entry	[data1] = event.
;
;	exit	If it detects an activate event, it will shutdown any tools
;		we started up and dispose of any memory we allocated.


hem	ldy	#owhat
	lda	[data1],y	get what type of event occurred
	cmp	#ActivateEvt
	bne	hem1		if not activate event
	
	ldy	#omodifiers
	lda	[data1],y	
	lsr	a
	bcc	hem1		if window is being deactivated
	jsr	stt		shutdown the tools
	jmp	dom		dispose of memory and return
	
hem1	rts	
	



;;	hhm - handle hit message.
;
;	entry	[data1] = handle to control that was hit.
;		[data2] = id of control that was hit.
;
;	exit	battery parameter locations are updated.


hhm	pha			space for result
	pushl	data1
	_GetCtlValue	
	pla
	dea			this is what most things want
	
	ldx	data2		get id of control
	dex
	bne	hhm1		if not setting menu blink
	
	pha			save for later recall
	pha
	_SetMItemBlink		set the menu blink
	pla
	asl	a		-----XX-
	asl	a		----XX--
	asl	a		---XX---
	sta	w1		save for now
	ldx	#aug_param
	jsr	rbp		read battery parameter
	and	#%11100111	remove the menuitem blink
	ora	w1		set as appropriate
	ldx	#aug_param
	bra	hhm10		write battery parameter and return
	
hhm1	dex
	bne	hhm2		if not setting cursor flash
	ldx	#$2f
	bra	hhm10		write battery parameter and return
	
hhm2	dex
	bne	hhm3		if not setting the system speed
	pha			save for now
	ldx	#$20		battery parameter loc for speed
	jsr	wbp		write battery parameter
	pla
	shortm
	lsr	a
	ror	a
	ora	>$e1c036
	sta	>$e1c036	set or reset the speed
	longm			
	rts
	
hhm3	dex
	bne	hhm4		if not setting the mouse speed
	ldx	#$33
	bra	hhm10		write battery parameter and return
	
hhm4	dex
	bne	hhm5		if not setting the double click speed
	ldx	#$2e
	bra	hhm10		write battery parameter and return
	
hhm5	dex
	bne	hhm6		if not setting monitor display
	ldx	#$29
	bra	hhm10		write battery parameter and return
	
hhm6	dex
	bne	hhm7		if not setting the keyboard language
	ldx	#$2a
	bra	hhm10		write battery parameter and return
	
hhm7
	dex
	bne hhm7a		if not setting translation
	tax			(a) = value of control -1
	beq	hhm9		if setting translation none
	
	cmp	#2-1
	bne	hhm8		if not 'standard' macintosh translation
	lda	#$ff-1
hhm8	ina			adjust for initial decrement	
hhm9	pha
	_SetKeyTranslation
	rts

hhm7a	;			handle "sort DA's" checkbox
	pha			save value-1
	ldx #$005F		Dave Lyons' BRAM byte
	jsr rbp			get current value

	ldx #$005F		preset X with param # for store
	ply			restore control value
	beq @on			was 1, turn on bit
@off
	and #$FFFE		turn off bit 0
	bra hhm10		set new value
@on
	ora #$0001		turn on bit 0
	;			fall through to write new BRAM value

hhm10	jmp	wbp		write battery parameter and return



;;	icc - init cdev controls.
;
;	entry	[data1] = window pointer.
;		(iccbat..) = table of battery parameters to check.
;
;	exit	controls are intialized to the battery settings.


icc	ldx	#aug_param
	jsr	rbp		read battery parameter
	lsr	a		----XX--
	lsr	a		-----XX-
	lsr	a		------XX
	and	#3
	ldx	#1
	jsr	scv		set control value
	
;	init cursor flash, sys speed, mouse speed, double click, monitor display and keybaord display.

	ldx	#2		control id of cursor flash
icc1	stx	w1		init counter
	lda	iccbat-2,x
	and	#$ff
	tax
	jsr	rbp		read battery parameter
	ldx	w1
	jsr	scv		set control value
	ldx	w1
	inx
	cpx	#7+1		compare against highest control to set this way
	bcc	icc1		if more to set
	
;	set keybaord translation.

	pha
	_GetKeyTranslation
	pla
	cmp	#$ff
	bne	icc2		if not 'normal' iigs translation
	lda	#2
	bra	icc3
icc2	tax
	bne	icc3		if not 'standard' macintosh like translation
	ina
icc3	dea			scv will increment it
	ldx	#8		id of translation
	jsr	scv		set control value

;	check "sort DAs" bit

	;brk $04

	ldx #$5F		Dave Lyons' BRAM byte
	jsr rbp			read BRAM
	and #$0001		keep bit 0, so now we have a checkbox ctl value!

	ldx #9			ID of "sort DA's" check box
	jmp scv2		set ctl value & return

;	battery parameter locations.
	

iccbat	dc.b	$2f		cursor flash
	dc.b	$20		system speed
	dc.b	$33		mouse speed
	dc.b	$2e		double click time
	dc.b	$29		monitor language translation
	dc.b	$2a		keyboard language translation
	
	
	
;	teriary routines used in this program.



;;	daw - display alert window.
;
;	entry	(dawa..) = alert string.
;		daww = width of window.
;
;	exit	none.


daw	ldx	#(320-daww)/2
	pha			space for result
	_GetMasterSCB
	pla
	xba
	rol	a	
	bcc	daw1		if 320 mode
	ldx	#(640-daww)/2
daw1	stx	dawa+1+2	left x
	txa
	clc
	adc	#daww
	sta	daw+1+6		right x

	pha			space for result
	pushw	#0		flags
	pha
	pha			subsitution array - not used
	pushl	#dawa		reference to string
	_AlertWindow
	pla
	rts
	
	
daww	equ	300		width of window

dawa	dc.b	'0'
	dc.w	60,0,100,0
	dc.b	'6'
	dc.b	'/Please insert your startup disk./#1/^#4',0
	



;;	dom - dispose of memory.
;
;	entry	[fmhdl] = 0 or the handle to the space needed for the font manager.
;		[tehdl] = 0 or the handle to the space for textedit.
;
;	exit	Handles are disposed.
;		[fmhdl] = 0.
;		[tehdl] = 0.


dom	lda	tehdl
	ora	tehdl+2
	beq	dom1		if no handle for textedit
	
	pushl	tehdl
	_DisposeHandle
	stz	tehdl
	stz	tehdl+2
	
dom1	lda	fmhdl
	ora	fmhdl+2
	beq	dom2		if no handle for font manager
	
	pushl	fmhdl
	_DisposeHandle
	stz	fmhdl
	stz	fmhdl+2
	
dom2	rts




;;	rbp - read battery parameter.
;
;	entry	(x) = parameter to read.
;
;	exit	(a) = value of parameter.


rbp	pha			space for result
	phx			parameter to read
	_ReadBparam
	pla			get value
	rts



;;	scv - set control value.
;
;	entry	(a) = value of control to set -1.
;		(x) = id of control.
;		[data1] = window pointer.
;
;	exit	control is set to the value desired.


scv	ina
scv2	pha			value to set

	pha			space for result
	pha			
	
	pushl	data1		window pointer
	pushw	#0
	phx			id of control
	_GetCtlHandleFromID
	_SetCtlValue		value to set was already on stack
	rts



;;	stt - shutdown tools.
;
;	entry	(fontF) !=0 if we started up the font manager.
;		(font2F) != 0 if we loaded the font manager.
;		(textF) != 0 if we started up textedit.
;		(text2F) != 0 if we loaded textedit.
;
;	exit	everything is set back to the way it was.
;		(fontF) = (font2F) = (textF) = (text2F) = 0.



stt	lda	fontF
	beq	stt1		if we didn't start up the font manager
	_FMShutDown
	
stt1	lda	font2F
	beq	stt2		if we didn't load the font manager

	pushw	#$1b
	_UnloadOneTool		unload the font manager since we loaded it	

stt2	lda	textF
	beq	stt3		if we didn't start up textedit
	_TEShutdown
	
stt3	lda	text2F
	beq	stt4		if we didn't load textedit

	pushw	#$22
	_UnloadOneTool		unload textedit since we loaded it

stt4	stz	fontF
	stz	font2F
	stz	textF
	stz	text2F
	rts




;;	wbp - write battery parameter.
;
;	entry	(a) = value of parameter to set.
;		(x) = battery parameter to set.
;
;	exit	battery parameter is set.


wbp	pha			new value
	phx			parameter to set
	_WriteBparam
	rts
	


;	global data.


fmhdl	ds.b	4		handle to direct page needed by font manager

fontF	ds.b	2		!= 0 if font manager needs to be shut down

font2F	ds.b	2		!= 0 if font manager needs to be unloaded

tehdl	ds.b	4		handle to direct page needed by text edit

textF	ds.b	2		!= 0 if text edit needs to be shut down

text2F	ds.b	2		!= 0 if textedit needs to be unloaded

	
	
	endp

	end
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/GeneralCDEV/makefile b/IIGS.601.SRC/A.U.G/CtlPanel/GeneralCDEV/makefile
new file mode 100644
index 0000000..dfa815c
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/GeneralCDEV/makefile
@@ -0,0 +1 @@
+
CDEV = GENERAL


{CDEV}	Ä	{CDEV}.Load 	¶
			{CDEV}.r
	reziigs {CDEV}.r -o {CDEV} -t "C7  " -c "pdos"
	if {dup}				# test whether we should duplicateiigs
		duplicateiigs -m -y {CDEV} {CDEV}
	end

{CDEV}.Load	Ä	¶
			{CDEV}.aii.obj ¶
			{CDEV}Data.aii.obj
	linkiigs  					¶
		-x -l -s > {CDEV}.map	¶
		-lseg gen				¶
			{CDEV}.aii.obj		¶
			{CDEV}Data.aii.obj	¶
		-o {CDEV}.Load


{CDEV}.aii.obj 		Ä 	{CDEV}.aii
	asmiigs {CDEV}.aii 


{CDEV}Data.aii.obj 	Ä 	{CDEV}Data.aii
	asmiigs {CDEV}Data.aii
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/KeyboardCDEV/Keyboard.pii b/IIGS.601.SRC/A.U.G/CtlPanel/KeyboardCDEV/Keyboard.pii
new file mode 100644
index 0000000..29d7326
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/KeyboardCDEV/Keyboard.pii
@@ -0,0 +1 @@
+This sourcefile is no longer used.
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/KeyboardCDEV/Keyboard.r b/IIGS.601.SRC/A.U.G/CtlPanel/KeyboardCDEV/Keyboard.r
new file mode 100644
index 0000000..c7a0394
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/KeyboardCDEV/Keyboard.r
@@ -0,0 +1 @@
+/*******************************************************************/
/*
/* Keyboard.r
/*
/* Copyright (C) 1988-1992
/* Apple Computer, Inc.
/* All Rights Reserved
/*
/* This file contains the source of the resources needed to build the 
/* Keyboard CDEV.
/*
/*******************************************************************/


/*  work:busybox:busybox.r   */
/* "hd:mpw:riigsincludes:typesiigs.r"   */

#include "typesiigs.r" 

resource rIcon (1) {
	  0x8000,							/* Kind */
	  20,								/* Height */
	  28,								/* Width */
	  
	  $"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	  $"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	  $"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	  $"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	  $"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	  $"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	  $"FFFF00000000000000000000FFFF"
	  $"FFF00FF4FF0FF0FFFFFFFFF00FFF"
	  $"F00000000000000000000000000F"
	  $"0FFFFFFFFFFFFFFFFFFFFFFFFFF0"
	  $"0F0F0F0F0F0F0F0F0F0FF0F0F0F0"
	  $"0FF0F0F0F0F0F0F0F0F0FF0F0FF0"
	  $"0F0F0F0F0F0F0F0F0F0FF0F0F0F0"
	  $"0FF0F0F000000000F0F0FF0F0FF0"
	  $"0FFFFFFFFFFFFFFFFFFFFFFFFFF0"
	  $"F00000000000000000000000000F"
	  $"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	  $"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	  $"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	  $"FFFFFFFFFFFFFFFFFFFFFFFFFFFF",
		
	  $"0000000000000000000000000000"
	  $"0000000000000000000000000000"
	  $"0000000000000000000000000000"
	  $"0000000000000000000000000000"
	  $"0000000000000000000000000000"
	  $"0000000000000000000000000000"
	  $"0000FFFFFFFFFFFFFFFFFFFF0000"
	  $"000FFFFFFFFFFFFFFFFFFFFFF000"
	  $"0FFFFFFFFFFFFFFFFFFFFFFFFFF0"
	  $"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	  $"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	  $"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	  $"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	  $"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	  $"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	  $"0FFFFFFFFFFFFFFFFFFFFFFFFFF0"
	  $"0000000000000000000000000000"
	  $"0000000000000000000000000000"
	  $"0000000000000000000000000000"
	  $"0000000000000000000000000000";



};

read rCDEVCode (1,Convert) "Keyboard.Load";


resource rCDEVFlags (1) {
	wantHit+wantInit+wantCreate+wantAbout+updateSSfromBRAM,		/* CDEV Flags */
	1,											/* Enabled */
	1,											/* Version */
	1,											/* Machine */
	4,											/* System */
	{0,0,150,200},								/* DataRect */
	"Keyboard",									/* Name */
	"Darryl Lovato",							/* Author */
	"v1.1";										/* VersStr */
};


\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/KeyboardCDEV/KeyboardData.aii b/IIGS.601.SRC/A.U.G/CtlPanel/KeyboardCDEV/KeyboardData.aii
new file mode 100644
index 0000000..60ba226
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/KeyboardCDEV/KeyboardData.aii
@@ -0,0 +1 @@
+;;;	keyboarddata - initialized data for keyboard CDEV.
;
;	Michael V. Stein	03/01/90.
;
;	© Apple, 1990.


	blanks off


	include	'e16.control'



	string ASIS
	

dataseg	proc


;	exported addresses.


	export	keyabout
	export	keyboardlist
	export	keyboardr3menu
	export	keyptr



keyboard1  
	dc.w	9
	dc.l	1
	dc.w	2,5,14,195
	dc.l	$87000000
	dc.w	$0040
	dc.w	$1004
	dc.l	0
	dc.w	70
keyptr	dc.l	keyboardr1Menu
	dc.w	1
	
	
;	menu to use for revision 1 roms.


keyboardr1menu
	dc.B '>> Speed:\H'
	dc.W 1
	dc.B $0D
	dc.B '== 1 Char/Sec\H'
	dc.W 1
	dc.B $0D
	dc.B '== 2 Chars/Sec\H'
	dc.W 2
	dc.B $0D
	dc.B '== 4 Chars/Sec\H'
	dc.W 3
	dc.B $0D
	dc.B '== 8 Chars/Sec\IH'
	dc.W 4
	dc.B $0D
	dc.B '== 11 Chars/Sec\H'
	dc.W 5
	dc.B $0D
	dc.B '== 15 Chars/Sec\H'
	dc.W 6
	dc.B $0D
	dc.B '== 20 Chars/Sec\H'
	dc.W 7
	dc.B $0D
	dc.B '== 24 Chars/Sec\H'
	dc.W 8
	dc.B $0D
	dc.B '.'
	
	
;	menu to use if rom is at least rev 3.

keyboardr3menu
	dc.B '>> Speed:\H'
	dc.W 1
	dc.B $0D
	dc.B '== 1 Char/Sec\H'
	dc.W 1
	dc.B $0D
	dc.B '== 2 Chars/Sec\H'
	dc.W 2
	dc.B $0D
	dc.B '== 4 Chars/Sec\H'
	dc.W 3
	dc.B $0D
	dc.B '== 8 Chars/Sec\H'
	dc.W 4
	dc.B $0D
	dc.B '== 11 Chars/Sec\H'
	dc.W 5
	dc.B $0D
	dc.B '== 15 Chars/Sec\IH'
	dc.W 6
	dc.B $0D
	dc.B '== 20 Chars/Sec\H'
	dc.W 7
	dc.B $0D
	dc.B '== 24 Chars/Sec\H'
	dc.W 8
	dc.B $0D
	dc.B '== 30 Chars/Sec\H'
	dc.W 9
	dc.B $0D
	dc.B '== 40 Chars/Sec\H'
	dc.W 10
	dc.B $0D
	dc.B '.'

	
keyboard2  
	dc.w	9
	dc.l	2
	dc.w	17,5,29,195
	dc.l	$87000000
	dc.w	$0040
	dc.w	$1004
	dc.l	0
	dc.w	70
	dc.l	keyboard2Menu
	dc.w	1
	

keyboard2menu
	dc.B '>> Delay:\H'
	dc.W 2
	dc.B $0D
	dc.B '== .25 Sec\H'
	dc.W 1
	dc.B $0D
	dc.B '== .50 Sec\H'
	dc.W 2
	dc.B $0D
	dc.B '== .75 Sec\IH'
	dc.W 3
	dc.B $0D
	dc.B '== 1.0 Sec\H'
	dc.W 4
	dc.B $0D
	dc.B '== No repeat\H'
	dc.W 5
	dc.B $0D
	dc.B '.'
	

keyboard3  
	dc.w	9
	dc.l	3
	dc.w	32,5,44,195
	dc.l	$87000000
	dc.w	$0040
	dc.w	$1004
	dc.l	0
	dc.w	85
	dc.l	keyboard3Menu
	dc.w	1
	
keyboard3menu
	dc.B 	'>> Dual Speed:\H'
	dc.W 	3
	dc.B 	$0D
	dc.B 	'== Normal\IH'
	dc.W 	1
	dc.B 	$0D
	dc.B 	'== Fast\H'
	dc.W 	2
	dc.B 	$0D
	dc.B 	'.'
	

	string pascal

keyboard5  
	dc.w 8
	dc.L 5-1
	dc.w 49+5,5,0,0
	dc.L $82000000
	dc.w 0
	dc.w $1000
	dc.L 0
	dc.L keyboard5Title
	dc.w 0
keyboard5Title	dc.b 'Keyboard Buffering'
	

keyboard6  
	dc.w 8
	dc.L 6-1
	dc.w 59+5,5,0,0
	dc.L $82000000
	dc.w 0
	dc.w $1000
	dc.L 0
	dc.L keyboard6Title
	dc.w 0
keyboard6Title	dc.b 'Shift Caps/Lowercase'
	

keyboard7  
	dc.w 8
	dc.L 7-1
	dc.w 69+5,5,0,0
	dc.L $82000000
	dc.w 0
	dc.w $1000
	dc.L 0
	dc.L keyboard7Title
	dc.w 0
keyboard7Title	dc.b 'Fast Space/Delete'
	

keyboardList	 
	dc.l	keyboard1
	dc.l	keyboard2
	dc.l	keyboard3
	dc.l	keyboard5
	dc.l	keyboard6
	dc.l	keyboard7
	dc.L	SpeedPopup
	dc.L	DelayPopup
	dc.L	AccelPopup
	dc.L	MouseKeyText
	dc.l	0
	
	
	
rWidth		equ	200
rX1		equ		5
rX2		equ		rWidth-8

textY1		equ	90
textY2		equ	textY1+10

delayY1		equ	textY2+2
delayY2		equ	delayY1+12

accelY1		equ	delayY2+3
accelY2		equ	accelY1+12

speedY1		equ	accelY2+3
speedY2		equ	speedY1+12

idDelay		equ	10
idAccel		equ	11
idSpeed		equ	12


		STRING	ASIS

MouseKeyText	
	dc.W	8			pcount
	dc.L	$8001
	dc.W	textY1,rX1,textY2,rX2	boundry rect
	dc.L	statTextControl		procRef
	dc.W	inactiveHilite<<8	flag
	dc.W	$1000			moreFlags	
	dc.L	0			refCon
	dc.L	MouseKeyStr		textRef
	dc.W	endStr-MouseKeyStr	text length

MouseKeyStr
		dc.B	'Keyboard Mouse:'
endStr


SpeedPopup
	dc.W	9			pcount
	dc.L	idSpeed			id
	dc.W	speedY1,rX1,speedY2,rX2	  boundary rect
	dc.L	$87000000		procRef
	dc.W	$0042			flag
	dc.W	$1004			moreFlags
	dc.L	0			refCon
	dc.W	0			title width
	dc.L	SpeedPopupMenu		menuRef
	dc.W	1			initial value
	
SpeedPopupMenu
	dc.B	'>> Speed: \H'
	dc.W	1
	dc.B	$0D
	dc.B	'== 8 Pixels/Sec\H'
	dc.W	1
	dc.B	$0D
	dc.B	'== 11 Pixels/Sec\H'
	dc.W	2
	dc.B	$0D
	dc.B	'== 15 Pixels/Sec\H'
	dc.W	3
	dc.B	$0D
	dc.B	'== 20 Pixels/Sec\H'
	dc.W	4
	dc.B	$0D
	dc.B	'== 24 Pixels/Sec\H'
	dc.W	5
	dc.B	$0D
	dc.B	'== 30 Pixels/Sec\H'
	dc.W	6
	dc.B	$0D
	dc.B	'== 40 Pixels/Sec\IH'
	dc.W	7
	dc.B	$0D
	dc.B	'== 60 Pixels/Sec\H'
	dc.W	8
	dc.B	$0D
	dc.B	'== 120 Pixels/Sec\H'
	dc.W	9
	dc.B	$0D
	dc.B	'== 180 Pixels/Sec\H'
	dc.W	10
	dc.B	$0D
	dc.B	'.'
	
DelayPopup
	dc.W	9			pcount
	dc.L	idDelay			id
	dc.W	delayY1,rX1,delayY2,rX2	  boundry rect
	dc.L	$87000000		procRef
	dc.W	$0042			flag
	dc.W	$1004			moreFlags
	dc.L	0			refCon
	dc.W	0			title width
	dc.L	DelayPopupMenu		menuRef
	dc.W	1			initial value
	
DelayPopupMenu
	dc.B	'>> Initial Delay: \H'
	dc.W	2
	dc.B	$0D
	dc.B	'== 0.25 Sec\H'
	dc.W	1
	dc.B	$0D
	dc.B	'== 0.50 Sec\H'
	dc.W	2
	dc.B	$0D
	dc.B	'== 0.75 Sec\IH'
	dc.W	3
	dc.B	$0D
	dc.B	'== 1.0 Sec\H'
	dc.W	4
	dc.B	$0D
	dc.B	'== 1.25 Sec\H'
	dc.W	5
	dc.B	$0D
	dc.B	'.'


AccelPopup
	dc.W	9			pcount
	dc.L	idAccel			id
	dc.W	accelY1,rX1,accelY2,rX2	  boundry rect
	dc.L	$87000000		procRef
	dc.W	$0042			flag
	dc.W	$1004			moreFlags
	dc.L	0			refCon
	dc.W	0			title width
	dc.L	AccelPopupMenu		menuRef
	dc.W	1			initial value
	
AccelPopupMenu
	dc.B	'>> Acceleration: \H'
	dc.W	3
	dc.B	$0D
	dc.B	'== 6.0 Sec\H'
	dc.W	1
	dc.B	$0D
	dc.B	'== 4.5 Sec\H'
	dc.W	2
	dc.B	$0D
	dc.B	'== 3.0 Sec\IH'
	dc.W	3
	dc.B	$0D
	dc.B	'== 1.5 Sec\H'
	dc.W	4
	dc.B	$0D
	dc.B	'== 0.0 Sec\H'
	dc.W	5
	dc.B	$0D
	dc.B	'.'


	string pascal


keyAbout	 
	dc.w 	8
	dc.L 	1
	dc.w 	38,5,138,280
	dc.L 	$81000000
	dc.w 	$0000
	dc.w 	$1000
	dc.L 	0
	dc.L 	TheText
	dc.w 	EndText-TheText
	string asis
TheText

	dc.b 	'The Keyboard Control Panel allows you to change system settings that '
	dc.b 	'affect the keyboard.  The Keyboard Mouse allows you to '
	dc.b	'simulate the mouse by using the keypad.'
EndText

	
	endp

	end
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/KeyboardCDEV/keyboard.aii b/IIGS.601.SRC/A.U.G/CtlPanel/KeyboardCDEV/keyboard.aii
new file mode 100644
index 0000000..0076f50
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/KeyboardCDEV/keyboard.aii
@@ -0,0 +1 @@
+;;;	keyboard - cdev to control keyboard.
;
;	Michael V. Stein	01/08/90.
;
;	Copyright Apple Computer, 1990.


	blanks	off

	
	
;;	equates.


bpMKeysDelay	equ	$55	battery parameter for mouse key delay
bpMKeysAccel	equ	$56	battery parameter for mouse key acceleration
bpMKeysSpeed	equ	$57	battery parameter for mouse key speed

idDelay		equ	10
idAccel		equ	11
idSpeed		equ	12



;;	imported addresses.


	import	keyabout
	import	keyboardlist
	import	keyboardr3menu
	import	keyptr



;;	include files.

	include	'::cdev.h'
	include	'::commonmacros.h'
	include	'::dp.h'
	include	'm16.control'
	include	'm16.misctool'
	include	'm16.util'
	
	
	
;;	main program.



main	proc


	export	key

key	phb			save calling data bank
	phk
	plb			set our data bank		

;	make room on stack for direct page.

	tsc			
	sec			
	sbc	#dpsize		make room on stack for new direct page
	tcs			
	phd			save the current direct page
	tcd			new direct page

	lda	message	
	cmp	#11		
	bcs	key1		if message defintely not handled
		
	asl	a		times 2 into word table
	tax			move into index reg
	jsr	(t_cdev-2,x)	call the handler of this message

key1	pld			restore direct page
	tsc
	clc
	adc	#dpsize		
	tcs			reset the stack
	lda	1,s		Bump the stack up to prepare
	sta	11,s		to take off the 3 parameters
	lda	3,s		
	sta	13,s

	pla			get rid of message space
	
	pla			get rid of data1 space
	pla			
	
	pla			get rid of data2 space
	pla			
	
	lda	#0		return 0 to caller
	sta	5,s
	sta	7,s		
	plb
	
	rtl
		

t_cdev	dc.w	cccE		Null
	dc.w	cccE		handle machine message
	dc.w	cccE		handle boot message
	dc.w	icc		init cdev controls
	dc.w	cccE		close the cdev
	dc.w	cccE		handle event message
	dc.w	ccc		create cdev controls
	dc.w	ham		handle about message
	dc.w	cccE		handle rectangle message
	dc.w	hhm		handle hit message
	
	

;;	ccc - create cdev controls.
;
;	entry	[data1] = window pointer.
;		(keybaordlist..) = table of pointers to control templates to create.
;		(keyboard3menu..) = different popup menu to use when not on a rom 1 machine.
;		[keyptr] = ptr to popup for repeat speed.
;	
;	exit	controls are created.


ccc	lda	#0		is this necessary?
	pha			space
	pha			space
	pha			space
	pha			space
	pha			(a)
	pha			(x)
	pha			(y)
	pushw	#$fe1f		entrypoint to call
	_FWEntry		call the firmware
	ply			(y)
	plx			(a) - unused
	plx			(x) - unused
	plx			(p) - unused
	cpy	#2
	bcc	ccc1		if not a new machine

;	use other menu.

	lda	#keyboardr3menu
	sta	keyptr
	lda	#^keyboardr3menu
	sta	keyptr+2	
	
ccc1	pha			space for result
	pha
	pushl	data1		window pointer
	pushw	#3		next item is a ptr to a list of template pointers
	pushl	#KeyboardList
	_NewControl2
	pla
	pla			don't care about result

cccE
	rts


;;	ham - handle about message.
;
;	entry	[data1] = window pointer.
;		(KeyAbout..) = template for about screen.
;
;	exit	The About control is created.


ham	pha			space for result
	pha
	pushl	data1		window pointer
	pushw	#0		next item is a ptr to a template
	pushl	#KeyAbout
	_NewControl2
	pla
	pla			don't care about result
	rts


	
;;	hhm - handle hit message.
;
;	entry	[data1] = handle to control that was hit.
;		[data2] = id of control that was hit.
;
;	exit	battery parameter locations are updated.


hhm	pha			space for result
	pushl	data1
	_GetCtlValue
	lda	data2		control that was hit
	cmp	#10
	bcs	hhm5		if keybaord mouse controls
	cmp	#4
	bcs	hhm1		if in checkboxes
	pla
	dea
	bra	hhm2
	
hhm1	pla
	beq	hhm2
	lda	#1		if non-zero, make it one
	
hhm2	pha			replace back on stack for now

hhm3	ldx	data2		id of control that was hit
	lda	params-1,x
	tax			battery parameter to set
	pla			get back value
	bra	hhm8		set battery parameter and return

hhm5	cmp	#10
	bne	hhm6		if not delay
	
	pla			get value of control
	dea			value to set
	ldx	#bpMKeysDelay
	bra	hhm8		set battery parameter and return
			
hhm6	cmp	#11
	bne	hhm7		if not acceleration time
	pla
	dea
	ldx	#bpMKeysAccel
	bra	hhm8		set battery parameter and return	
			
hhm7	cmp	#12
	bne	hhm9
	pla
	dea
	ldx	#bpMKeysSpeed

hhm8	jmp	wbp		write battery parameter and return
	
hhm9	rts
	
	

;;	icc - init cdev controls.
;
;	entry	[data1] = window pointer.
;		(params..) = table of battery parameters to check.
;		bpMKeysDelay = battery parameter for keyboard mouse delay
;		bpMKeysAccel = battery parameter for keyboard mouse accelleration.
;		bpMKeysSpeed = battery paramter for keyboard mouse max speed.
;		idAccel = id of control for keyboard mouse acceleration.
;		idDelay = id of control for keyboard mouse delay.
;		idSpeed = id of control for keyboard mouse max speeed.
;		
;	exit	controls are intialized to the battery settings.


icc	ldx	#6		highest control
	
icc1	stx	icca		save for now
	lda	params-1,x	
	and	#$ff
	tax			parameter to check
	jsr	rbp		read battery parameter
	ldx	icca
	cpx	#4
	bcc	icc3		if not in checkboxes
	
	tay
	beq	icc3a		if checkbox shouldn't be set
	lda	#1-1
	
icc3	ina

icc3a	pha			put control value on stack

icc4	pha			space for result
	pha			
	
	pushl	data1		window pointer
	pushw 	#0
	pushw  	icca		id of control
	_GetCtlHandleFromID
	_SetCtlValue		value to set was already on stack
	
	ldx	icca
	dex
	bne	icc1		if more controls to set

;	init the keyboard mouse stuff.
	
	ldx	#bpMKeysDelay	BRAM offset
	jsr	rbp		read battery parameter
	cmp	#255
	bne	icc5		if already intialized
	lda	#2		default
icc5	ina
	pha			new value
	pha			space for handle
	pha
	Pushl 	data1		window ptr
	pea	0
	pea	idDelay		control's ID
	_GetCtlHandleFromID
	_SetCtlValue		set contol's value

	ldx	#bpMKeysAccel
	jsr	rbp		read battery parameter
	cmp	#255
	bne	icc6		if already initialed
	lda	#2		default
icc6	ina
	pha			new value
	pha			space for handle
	pha
	Pushl 	data1		window ptr
	pea	0
	pea	idAccel		control's ID
	_GetCtlHandleFromID
	_SetCtlValue		set contol's value
	
	ldx	#bpMKeysSpeed
	jsr	rbp		read battery parameter
	cmp	#255
	bne	icc7		if already initialized
	lda	#6		default
icc7	ina
	pha			new value
	pha			space for handle
	pha
	Pushl	 data1		window ptr
	pea	0
	pea	idSpeed		control's ID
	_GetCtlHandleFromID
	_SetCtlValue		set contol's value

	rts
	
icca	dc.w	0		hold loop index	



;;	rbp - read battery parameter.
;
;	entry	(x) = parameter to read.
;
;	exit	(a) = value of parameter.


rbp	pha			space for result
	phx			parameter to read
	_ReadBparam
	pla			get value
	rts



;;	wbp - write battery parameter.
;
;	entry	(a) = value of parameter to set.
;		(x) = battery parameter to set.
;
;	exit	battery parameter is set.


wbp	pha			new value
	phx			parameter to set
	_WriteBparam
	rts
	


;	global data.


;	battery parameters to check/set.

params	dc.b	$2c
	dc.b	$2d
	dc.b	$32
	dc.b	$2b
	dc.b	$30
	dc.b	$31
	
	

	endp

	end
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/KeyboardCDEV/makefile b/IIGS.601.SRC/A.U.G/CtlPanel/KeyboardCDEV/makefile
new file mode 100644
index 0000000..072e0d2
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/KeyboardCDEV/makefile
@@ -0,0 +1 @@
+
CDEV = KEYBOARD


{CDEV}			 	Ä				{CDEV}.Load 	¶
									{CDEV}.r
	reziigs {CDEV}.r -o {CDEV} -t "C7  "  -c "pdos"

{CDEV}.Load		Ä	¶
									{CDEV}.aii.obj ¶
									{CDEV}Data.aii.obj
	linkiigs  		¶
		-x -l -s >{CDEV}.map ¶
		-lseg keyb ¶
			{CDEV}.aii.obj ¶
			{CDEV}Data.aii.obj ¶
		-o {CDEV}.Load 


{CDEV}.aii.obj 		Ä 								¶
							{CDEV}.aii					
	asmiigs {CDEV}.aii 


{CDEV}Data.aii.obj 		Ä 								¶
							{CDEV}Data.aii
	asmiigs {CDEV}Data.aii 
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/ASPCalls.c b/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/ASPCalls.c
new file mode 100644
index 0000000..ab0f771
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/ASPCalls.c
@@ -0,0 +1 @@
+/*


	File: ASPCalls.c
	
	By	: Scott Kuechle
	
	Copyright:	©1988-1989 by Apple Computer Inc.
	All rights reserved.																			#}


*/


#include <types.h>
#include <list.h>
#include <string.h>
#include <strings.h>
#include <locator.h>


#include "ASPDefs.h"

extern LoginInput LogCmd;
extern LoginOutput LogReply;
extern FPGetSrvrInfoOutput SrvrInfoOutput;
extern LoginCont LogContCmd;
extern LoginContReply LogContReply;
extern FPGetUserInfoOutput UserInfoOutput;
extern FPMapIDOutput MapIDOutput;
extern char NewPasswordBuf[9],OldPasswordBuf[9];
extern Word NetNum;
extern char NodeID,ScktNum;
extern MySRefNum SrvrSRefNum;
extern VolList LSBuf[MaxVols];
extern char volbuf[MaxVolLength+1];
extern myMemRecPtr SelectedMember,SelectedZone;

extern char RandEx[];





int cSPCommand(CBufLen,CBufAddr,RBufLen,RBufAddr,flag)
int CBufLen,*CBufAddr,RBufLen,*RBufAddr;
int	flag;		/* flag for debugging */
{
struct SPCommand *P;
int PDosError;
Word *errbuf;

	static struct SPCommand SPCmd=
		{
		 synchronous,
		 SP_Cmd,
		 0,
		 0,
		 0,
		 0,
		 0,
		 0,
		 0,
		 0,
		 0
		 };

	SPCmd.SRefNum=SrvrSRefNum.SRefNum;
	SPCmd.CmdBlkLen=CBufLen;
	SPCmd.CmdBlkAddr=(long)CBufAddr;
	SPCmd.ReplyBufLen=RBufLen;
	SPCmd.ReplyBufAddr=(long)RBufAddr;
	SPCmd.CmdResult = 0;


		/* make the call and if we get the 'Too many ASP calls' error try again
			until either the call is successfull or we get a different error */
	do
	{
		asm
		{
			ldy	#^SPCmd		;get high word pointer to parameter list
			ldx	#SPCmd		;get low word pointer to parameter list
			jsl	0xe11014
		}
	}
	while (SPCmd.CmdResult == TooManyASPCalls);

#if 0
	if (flag || SPCmd.CmdResult || SPCmd.ResultCode)	/* set break point for debugging purposes */
	{
		P=&SPCmd;
			asm
			{
				ldx	#SPCmd
				ldy	#^SPCmd
			dcb	0x00
			dcb	0x54
			}
	}
#endif
	
		/* return the high word of the error (low is always 0xffff) */
	errbuf = (Word *)&(SPCmd.CmdResult);
	errbuf = errbuf+1;

	return (*errbuf);
}



int cSPGetStatus()
{
	struct SPStatus *P;
	static struct SPStatus parms=
		{
		 asynchronous,
		 SP_Stat,
		 0x07ff,
		 0L,
		 0,
		 0,
		 0,
		 0,
		 (Long)&SrvrInfoOutput,
		 0
		 };

	parms.NetNum = NetNum;
	parms.Node = NodeID;
	parms.Socket = ScktNum;
	parms.ReplyBufLen=SwapInt(sizeof(struct FPGetSrvrInfoOutput));
		
	asm
	{
		ldy	#^parms		;get high word pointer to parameter list
		ldx	#parms		;get low word pointer to parameter list
		jsl	0xe11014
	}

	while ( (parms.ResultCode)==0x07ff)
		/*	wait here for response */;

	
	return (parms.ResultCode);
}




int cFILogin2(CBufLen,RBufLen,flag)
int CBufLen,RBufLen;
int flag;
{


	static struct FILogin2 zparms = { 
	 synchronous,
	 FILogin2Cmd,
	 0,
	 0,
	 0,
	 0,
	 0,
	 (Long)&LogCmd,
	 0,
	 (Long)&LogReply,
	 0,
	 0L,
	 0L,
	 0L,
	 0x0200		/* AFP version 2.0 */
	};


	zparms.NetworkNumber = NetNum;
	zparms.NodeNumber = NodeID;
	zparms.SocketNumber = ScktNum;
	zparms.CmdLen = (CBufLen);
	zparms.ReplyLen = (RBufLen);
	zparms.ZoneName = (Long)SelectedZone->memPtr;
	zparms.ServerName = (Long)SelectedMember->memPtr;
	


	
	asm
	{
		ldy	#^zparms	;get high word pointer to parameter list
		ldx	#zparms		;get low word pointer to parameter list
		jsl	0xe11014
	}


	SrvrSRefNum.SRefNum = zparms.SessRefNum;
	
	#if 0
	if (zparms.ResultCode != 0x0a04 && zparms.ResultCode && zparms.ResultCode != 0x0a13)
	{
		asm
		{
			ldx	#zparms
			ldy	#^zparms
		dcb	0x00
		dcb	0x88
		}
	}
	#endif
	
	
	return zparms.ResultCode;
}


char cFIListSessions()
{


	static struct FIListSessions parms = { 
	 synchronous,
	 FIListSessionsCmd,
	 0,
	 (sizeof(struct VolList) * MaxVols),
	 (long)LSBuf,
	 0
	};


	asm
	{
		ldy	#^parms	;get high word pointer to parameter list
		ldx	#parms		;get low word pointer to parameter list
		jsl	0xe11014
	}
	

		/* return number of entries found, 0 if an error occurred */
	if (parms.ResultCode)
		return 0;
	else
		return parms.NEntries;
}




int cFILoginCont(CBufLen)
int CBufLen;
{

	static struct FILoginCont parms=
	{
	 synchronous,
	 FILoginContCmd,
	 0,
	 0,
	 0,
	 (Long)&LogContCmd,
	 2,
	 (Long)&LogContReply
	};

	parms.CmdLen = CBufLen;
	parms.SessRefNum = SrvrSRefNum.SRefNum;
	
	asm
	{
		ldy	#^parms		;get high word pointer to parameter list
		ldx	#parms		;get low word pointer to parameter list
		jsl	0xe11014
	}

	
	return parms.ResultCode;
}


int cFIMountVol(MountFlag,VolName,Password,VolID,SlotDrive,flag)
char MountFlag;
char *VolName,*Password;
int *VolID;
char *SlotDrive;
int flag;
{
	static struct FIMountVol parms = {
		synchronous,
		FIMountVolCmd,
		0,
		0,
		0,
		0,
		0,
		0,
		0
	};
	
	parms.SessRefNum = SrvrSRefNum.SRefNum;
	parms.MountFlag = MountFlag;
	parms.VolNamePtr = (long)VolName;
	parms.PassPtr = (long)Password;
	
	asm
	{
		ldy	#^parms		;get high word pointer to parameter list
		ldx	#parms		;get low word pointer to parameter list
		jsl	0xe11014
	}
	
	*VolID = parms.VolID;
	*SlotDrive = parms.SlotDrive;

		
	return parms.ResultCode;
}


int cFPGetUserInfo()
{
int err;

	static struct FPGetUserInfoInput Input = {
		FPGetUserInfoCmd,
		ThisUserBit,
		0L,
		0
	};
	
	Input.Bitmap = SwapInt(UserIDBit);
	
	err = cSPCommand(sizeof(struct FPGetUserInfoInput),(int *)&Input,
					sizeof(struct FPGetUserInfoOutput),(int *)&UserInfoOutput,0);
					
	return err;
}


int cFPMapID()
{
int err;


	static struct FPMapIDInput Input = {
		FPMapIDCmd,
		UserIDBit,
		0
	};
	
	Input.id = UserInfoOutput.id1;
	
	err = cSPCommand(sizeof(struct FPMapIDInput),(int *)&Input,
					sizeof(struct FPMapIDOutput),(int *)&MapIDOutput,0);
	
	return (err);
}



int cFILogout()
{

	static struct FILogout parms = {
		synchronous,
		FILogoutCmd,
		0,
		0
	};
	
	parms.SRefNum = SrvrSRefNum.SRefNum;
	
	asm
	{
		ldy	#^parms		;get high word pointer to parameter list
		ldx	#parms		;get low word pointer to parameter list
		jsl	0xe11014
	}
	
	
	return parms.ResultCode;
}



int cFPChangePassword(UAMStr,UserName,OldEncrypt,NewEncrypt)
char *UAMStr,*UserName;
char *OldEncrypt,*NewEncrypt;		/* used in Random number exchange method */
{
int err;
long result;
int cmdlen;
int ptr;


	static struct FPChangePassword ChngPass = {
		FPChangePasswordCmd,
		0,
		0
	};


	cmdlen = 1 + 1 + (*UAMStr + 1) + (*UserName + 1) + 8 + 8;


		/* stuff UAM string into packet */
	Pstrcpy(&ChngPass.data[0],UAMStr);
	ptr = ChngPass.data[0] + 1;	/* point to space for user name */

		/* check if user name is being put into an odd address in the packet,
			if so we must pad with a zero */
	if (ptr & 1)	/* is it odd ? */
	{
			/* pad with a zero */
		ChngPass.data[ptr] = 0;
		ptr = ptr + 1;
		cmdlen = cmdlen + 1;
	}

	Pstrcpy(&ChngPass.data[ptr],UserName);
	ptr = ptr + ChngPass.data[ptr] + 1;	/* point to space for old password */
	
		/* check for odd address here also, and pad with zero if it is odd */
	if (ptr & 1)
	{
		ChngPass.data[ptr] = 0;
		ptr = ptr + 1;
		cmdlen = cmdlen + 1;
	}
	
	if (upstrcmp(RandEx,UAMStr) == 0)		/* are we using Randnum exchange method ? */
	{
			/* place encrypted passwords into packet */
			
		CopyPassword(&ChngPass.data[ptr],OldEncrypt,8);
		ptr = ptr + 8;		/* point to space for new password */		
		CopyPassword(&ChngPass.data[ptr],NewEncrypt,8);
	
	}
	else	/* Cleartxt password method */
	{
			
			/* no encryption, copy passwords directly into packet */
			
		strcpy(&ChngPass.data[ptr],OldPasswordBuf);		/* put old password into packet */
		Pad_With_Nulls(&ChngPass.data[ptr],8);
		ptr = ptr + 8;		/* point to space for new password */
		strcpy(&ChngPass.data[ptr],NewPasswordBuf);		/* put new password into packet */
		Pad_With_Nulls(&ChngPass.data[ptr],8);

	}


	err = cSPCommand(cmdlen,&ChngPass,0,&result,0);
					
	return err;
}


int cFIAccess(AccRights)
long *AccRights;
{
	static struct FIAccessType parms=
	{
	 synchronous,
	 FIAccess,
	 0,
	 0,
	 0,
	 (long)volbuf,
	 nil,
	 nil
	 };

	parms.DirFlag=0;
	
	asm
	{
		ldy	#^parms		;get high word pointer to parameter list
		ldx	#parms		;get low word pointer to parameter list
		jsl	0xe11014
	}

	*AccRights=parms.AccessRights;		/* return access rights */


	return	parms.ResultCode;
}


int cFIInstallTimer()
{
	static struct FIInstallTimer parms=
	{
	synchronous,
	FIInstallTimerCmd,
	0,
	nil,
	0,
	8,
	nil
	};

	parms.TicksToComp = 8;		/* MSD: reset timeout to 2 seconds */
	
	asm
	{
		ldy	#^parms		;get high word pointer to parameter list
		ldx	#parms		;get low word pointer to parameter list
		jsl	0xe11014
	}

	return	parms.ResultCode;

}


int cFIUserPrefix(pathptr)
char *pathptr;
{
	static struct FIUserPrefix parms =
	{
	synchronous,
	FIUserPrefixCmd,
	0,
	0xaa,	/* we are setting the prefix */
	0L
	};

	parms.path = pathptr;

	asm
	{
		ldy	#^parms		;get high word pointer to parameter list
		ldx	#parms		;get low word pointer to parameter list
		jsl	0xe11014
	}


	return	parms.ResultCode;

}
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/ASPDefs.h b/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/ASPDefs.h
new file mode 100644
index 0000000..ca69fa1
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/ASPDefs.h
@@ -0,0 +1 @@
+/*


	File: ASPDefs.h
	
	By	: Scott Kuechle
	
	Copyright:	©1988-1989 by Apple Computer Inc.
	All rights reserved.																			#}


*/


#include "myConstants.h"

#define		NBPLookup			0x10
#define		KillNBP				0x46
#define		FIUserPrefixCmd		0x2a
#define		FILogin2Cmd			0x38
#define		FILoginContCmd		0x2c
#define		FILogoutCmd			0x2d
#define		FIMountVolCmd		0x2e
#define		FIAccess			0x32
#define		FPGetSrvrInfoCmd	0x0f
#define		FPGetUserInfoCmd	0x25
#define		FPGetSrvrParmsCmd	0x10
#define		FIListSessionsCmd	0x2f
#define		FPChangePasswordCmd 0x24
#define		FPMapIDCmd			0x15
#define		FIInstallTimerCmd	0x04
#define		SP_Cmd				0x20
#define		SP_Stat				0x1d
#define		GetMyZone			0x1A
#define		GetZoneList			0x1B
#define		GetInfoCmd			0x02
#define		GetSrvrInfoCmd		0x0f
#define		GetSrvrParmsCmd		0x10
#define		LoginCmd			18
#define		LoginContCmd		19


#define		asynchronous		0x80
#define		synchronous			0x00
#define		busy				0xff


#define		AlreadyLoggedIn		0x0a13
#define		VolAlreadyMounted	0x0a11
#define		TooManyProcesses	0x0408
#define		TooManyASPCalls		0x0702

#define		CreatorBit			0x40
#define		GroupBit			0x20


typedef struct myMemRec  {
      Pointer     memPtr;     /* MemRec - Pointer to string, or custom */
      Byte     memFlag;     /* MemRec - Bit Flag */
	  int		NetNum;		/* network number */
	  char		NodeID;		/* node id */
	  char		ScktNum;		/* socket number */
	  char		Enumerator;		/* enumerator */
	  char		privflag;
	  Word		ckboxId;
      } myMemRec,  *myMemRecPtr,  **myMemRecHndl ;


typedef String(31) str31;
typedef String(33) str33;
typedef String(27) str27;

typedef struct ServerInfo
{
	Word	Server_Flags;
	str31	Server_Name;
	str33	Server_Zone;
	str31	User_Name;
	char	Server_Password[8];
	Word	Volume_Count;
}	ServerInfo, *ServerInfoPtr, **ServerInfoHndl;

#define	ServerRecSize		sizeof(struct ServerInfo)

typedef struct VolumeInfo
{
	Word	Volume_Flags;
	str27	Volume_Name;
	char	Volume_Password[8];
}	VolumeInfo, *VolumeInfoPtr, **VolumeInfoHndl;

#define	VolRecSize		sizeof(struct VolumeInfo)

#define	MaxFileSize		MaxVols*VolRecSize + MaxVols*ServerRecSize


typedef struct MyVolData
{
	Word 	NetNum;
	char	NodeID;
	char	Socket;
	char	VolName[MaxVolLength];
	char	Password[8];
} MyVolData, *MyVolDataPtr;


typedef struct MySrvrData
{
	Word 	NetNum;
	char	NodeID;
	char	Socket;
	char	Password[8];
} MySrvrData, *MySrvrDataPtr;


#if 0
#define		MessDataSize	(sizeof(struct MySrvrData))


typedef struct MessageData
{
	Long	MessNext;
	Word	MessType;
	char	MessData[MessDataSize];
} MessageData, *MessageDataPtr;
#endif


typedef struct MessageData
{
	Long	MessNext;
	Word	MessType;
	Word	MessCount;		/* how many 'records' are currently saved? */
} MessageData, *MessageDataPtr;


typedef struct	SPCommand
{
	char	Async;
	char	Command;
	int		ResultCode;
	long	CompRoutinePtr;
	char	SRefNum;
	int		CmdBlkLen;
	long	CmdBlkAddr;
	int		ReplyBufLen;
	long	ReplyBufAddr;
	long	CmdResult;
	int		ReplyLen;
} SPCommand;

typedef struct	SPStatus
{
	char	async;
	char	command;
	int		ResultCode;
	long	CompRoutinePtr;
	int		NetNum;
	char	Node;
	char	Socket;
	int		ReplyBufLen;
	long	ReplyBufAddr;
	int		DataLen;
} SPStatus;


typedef struct EntityType
{
	int NetNum;
	char Node;
	char Socket;
	char Enumerator;
	char ObjName[NameLength]
} EntityType, *EntityPtr;


typedef struct 	NBPLType
{
	Byte	mode;
	Byte 	command;
	Word	result;
	Long	iocomp;		/* since this doesn't know about 4 byte pointers */
	char	*entity;		/* name of what we want to find */
	Byte	retryper;	/* retry period in 1/4 secs */
	Byte	retrycnt;	/* number of times to retry */
	Word	internal;
	Word	rsbsiz;		/* size of following buffer */
	Long  	rsbadr;		/* responses will be stored here */
	Byte	maxrsp;		/* maximum number of responses allowed */
	Byte	rgotten;	/* actual number of responses returned */
} NBPLType ;


typedef struct 	KillNBPLType
{
	Byte	Async;
	Byte	command;
	Word	ResultCode;
	Long	ParamPointer;
} KillNBPLType ;


typedef struct GetSrvrParmsInput
{
	char command;
} GetSrvrParmsInput;


typedef struct VolRec
{
	char	PassFlag;
	char	Name[27];
} VolRec;


typedef struct GetSrvrParmsOutput
{
	Long	ServerTime;
	char	VolNameStrings;
	char	VolInfo[(sizeof(struct VolRec)) * MaxVols];
} GetSrvrParmsOutput;



typedef struct FPGetSrvrInfoOutput
{
	int		MachTypeOffset;
	int		VerOffset;
	int		UAMOffset;
	int		IconOffset;
	int		Flags;
	char	data[350];
} FPGetSrvrInfoOutput, *FPGetSrvrInfoOutputPtr;

typedef struct DES_Pckt
{
	char *password;
	char *randnum;
	char *result;
} DES_Pckt;


typedef struct Login
{
	char	command;
	char	data[15+20+32+9];		/* Version Str. + UAM string + User Name + Password(for ClearTxt only) */
} LoginInput;


typedef struct LoginOutput
{
	int		ID;
	char	RandNum[8];		/* RandExch only */
} LoginOutput;


typedef struct LoginCont
{
	char	command;
	char	null;
	int		ID;
	char	EncryptedValue[8];
} LoginCont;


typedef struct LoginContReply
{
	int ID;
} LoginContReply;


typedef struct FPLoginPckt
{
	char	command;
	char	data[100];
} FPLoginPckt;


typedef struct FILogin2
{
	char	async;
	char	command;
	int		ResultCode;
	int		NetworkNumber;
	char	NodeNumber;
	char	SocketNumber;
	int		CmdLen;
	Long	CmdBufPtr;
	int		ReplyLen;
	Long	ReplyBufPtr;
	char	SessRefNum;
	Long	AttnRoutine;
	Long	ServerName;
	Long	ZoneName;
	Word	AFPVersion;
} FILogin;


typedef struct FILoginCont
{
	char	async;
	char	command;
	int		ResultCode;
	char	SessRefNum;
	int		CmdLen;
	Long	CmdBufPtr;
	int		ReplyLen;
	Long	ReplyBufPtr;	
} FILoginCont;


typedef struct FIMountVol
{
	char	async;
	char	command;
	int		ResultCode;
	char	SessRefNum;
	char	MountFlag;
	Long	VolNamePtr;
	int		VolID;
	char	SlotDrive;
	Long	PassPtr;
} FIMountVol;



typedef struct FIListSessions
{
	char	async;
	char	command;
	int		ResultCode;
	int		ReplyLen;
	long	ReplyBufPtr;
	char	NEntries;
} FIListSessions;


typedef struct VolList
{
	char	SRefNum;
	char	SlotDrive;
	char	VolName[28];
	int		VolID;
} VolList;

typedef struct GMyZonetype
{
	byte	async;
	byte	command;
	word	result;
	long	iocomp;
	Pointer	bufptr;
    byte	retryinterval;
    byte	retrycount;
    word	resrvd;
} GMyZonetype;

typedef struct GZoneListtype
{
	byte	async;
	byte	command;
	word	result;
	long	iocomp;
	word	buflen;
	Pointer	bufptr;
	byte	brnode;
	word	strtindex;
    byte	retryinterval;
    byte	retrycount;
    word	numberzones;
    word	resrvd;
} GZoneListtype;

typedef struct GetInfo
{
	char	async;
	char	command;
	int		ResultCode;
	Long	CompRtnRet;
	int		ThisNet;
	char	ABridge;
	char	HardwareID;
	int		RomVersion;
	char	NodeNumber;
} GetInfo;


typedef struct FPGetUserInfoInput
{
	char	command;
	char	ThisUser;
	long	UserID;
	int		Bitmap;
} FPGetUserInfoInput;


typedef struct FPGetUserInfoOutput
{
	int		Bitmap;
	long	id1;
	long	id2;
} FPGetUserInfoOutput;


typedef struct FPMapIDInput
{
	char	command;
	char	function;
	long	id;
} FPMapIDInput;


typedef struct FPMapIDOutput
{
	char	name[34];
} FPMapIDOutput;


typedef struct FILogout
{
	char	async;
	char	command;
	int		ResultCode;
	char	SRefNum;
} FILogout;


typedef struct FPChangePassword
{
	char	command;
	char	zero;
	char	data[80];
} FPChangePswrdInput;


typedef struct FIAccessType
{
	char	async;
	char	command;
	int		ResultCode;
	char	DirFlag;
	long	AccessRights;
	long	PathPtr;
	long	CNamePtr;
	long	GNamePtr;
} FIAccessType;


typedef struct FIInstallTimer
{
	char	async;
	char	command;
	int		ResultCode;
	long	CompRoutine;
	int		RunTickCount;
	int		TicksToComp;
	long	reserved;
} FIInstallTimer;


typedef struct FIUserPrefix
{
	char	async;
	char	command;
	int		ResultCode;
	char	reserved;
	char	*path;
} FIUserPrefix;
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/AlphaSort.aii b/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/AlphaSort.aii
new file mode 100644
index 0000000..770fbfc
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/AlphaSort.aii
@@ -0,0 +1 @@
+				INCLUDE		'all.macros'
				CASE		ON
				EXPORT		SortLst
				IMPORT		ZoneList
;___________________________
;SortLst
;___________________________
SortLst			PROC		EXPORT

				PushLong	#myCompare
				PushLong	ZoneList
				_SortList2
				
				rtl

memberA			equ			6
memberB			equ			memberA+4
min				ds.b		1
temptest		ds.b		1

myCompare
				phd
				tsc
				tcd
				ldy			#$02
				lda			[memberA]
				tax
				lda			[memberA],y
				sta			memberA+2
				stx			memberA
				lda			[memberB]
				tax
				lda			[memberB],y
				sta			memberB+2
				stx			memberB

				sep			#$30

				LONGA		OFF
				LONGI		OFF

				lda			[memberA]		;
				cmp			[memberB]		;compare it to memberB	
				blt			cont1			;if memberB >= memberA then branch around	
				lda			[memberB]		;else
cont1			sta			min				;store memberB as the shortest string
				ldy			#$00
loop			iny
				lda			[memberB],y
				jsr			makecap
				sta			temptest
				lda			[memberA],y
				jsr			makecap
				cmp			temptest
				bne			stopcmp			;we have a difference
				cpy			min				;chars are the same so check if more bytes to check
				beq			short			;no more bytes to check, shortest string completed scan
				bra			loop			;more chars to go...	
stopcmp			bge			AgeB			;A>=B
				bra			AlB				;if A !> B then must be A<B
short			lda			[memberA]		;the shortest string is less than the longer
				cmp			[memberB]		;
				blt			AlB				;
AgeB			sec							;A>=B then sec
				bra			bye				;
AlB				clc							;A<B then clc			

bye				rep			#$30			;
				LONGA		ON
				LONGI		ON

				lda			0+2				;remove input params and return
				sta			8+2
				lda			2+2
				sta			10+2
				pld
				pla
				pla
				pla
				pla

				rtl

				LONGA		off
				LONGI		off

makecap			cmp			#'a'
				blt			quit
				cmp			#'z'+1
				bge			quit
				sec
				sbc			#$20
quit			rts

				LONGA		ON
				LONGI		ON

				END
				ENDPROC
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/AppleShare.r b/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/AppleShare.r
new file mode 100644
index 0000000..bc1c316
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/AppleShare.r
@@ -0,0 +1 @@
+/*******************************************************************/
/*
/* Appleshare.r
/*
/* Copyright (C) 1988-1991
/* Apple Computer, Inc.
/* All Rights Reserved
/*
/* This file contains the source of the resources needed to build the 
/* AppleShare CDEV.
/*
/*******************************************************************/


/*  work:busybox:busybox.r   */
/* "hd:mpw:riigsincludes:typesiigs.r"   */

#include "typesiigs.r"

resource rIcon (1) {
		0x8000,							/* Kind */
		20,								/* Height */
		28,								/* Width */

		$"FFFFFFFFFFFF0FFF000000FFFFFF"
		$"FFFFFFFFFFF0a0FF0FFFF00FFFFF"
		$"FFFF000FFF0aaa0F0FDDD000FFFF"
		$"FFF0eee000000aa00FDDFFF0FFFF"
		$"FFF0eeeeeeee0aaa0FDDDDF0FFFF"
		$"FFF0eeeeeeee0aaaa0FFFFF0FFFF"
		$"FFF0eeeeeeee0aaa0FDDDFF0FFFF"
		$"FFF0eeeeeeee00a00FFFFFF0FFFF"
		$"FFF0000000000F0F00000000FFFF"
		$"FCCCCCCCCCCCCCCCCCCCCCCCCCFF"
		$"FFCCCCCCCCCCCCCCCCCCCCCCCFFF"
		$"FFFFFFF0F0F0F0FF0F0FFFFFFFFF"
		$"FFFFFFFF0F0F0F0F0F0FFFFFFFFF"
		$"FFFFFFFFF0F0FFF00F0FFFFFFFFF"
		$"FFFFFFFFFF00FFFFFF0FFFFFFFFF"
		$"FFFFFFFFFFFF0FFFFF0FFFFFFFFF"
		$"FFFFFFFFFFF000000000FFFFFFFF"
		$"FFFFFFFFFFF0DDDDDDD0FFFFFFFF"
		$"FFFFFFFFFFF0D0DDDDD0FFFFFFFF"
		$"FFFFFFFFFFF0DDDDDDD0FFFFFFFF",

		$"000000000000F000FFFFFF000000"
		$"00000000000FFF00FFFFFFF00000"
		$"0000FFF000FFFFF0FFFFFFFF0000"
		$"000FFFFFFFFFFFFFFFFFFFFF0000"
		$"000FFFFFFFFFFFFFFFFFFFFF0000"
		$"000FFFFFFFFFFFFFFFFFFFFF0000"
		$"000FFFFFFFFFFFFFFFFFFFFF0000"
		$"000FFFFFFFFFFFFFFFFFFFFF0000"
		$"000FFFFFFFFFFFFFFFFFFFFF0000"
		$"0FFFFFFFFFFFFFFFFFFFFFFFFF00"
		$"00FFFFFFFFFFFFFFFFFFFFFFF000"
		$"0000000FFFFFFFFFFFF000000000"
		$"00000000FFFFFFFFFFF000000000"
		$"000000000FFFFFFFFFF000000000"
		$"0000000000FFFFFFFFF000000000"
		$"000000000000FFFFFFF000000000"
		$"00000000000FFFFFFFFF00000000"
		$"00000000000FFFFFFFFF00000000"
		$"00000000000FFFFFFFFF00000000"
		$"00000000000FFFFFFFFF00000000";
};


read rCDEVCode (1,Convert) "AppleShare.Load";


resource rCDEVFlags (1) {
	wantHit+wantInit+wantCreate+wantAbout+wantBoot+wantClose+wantEvents+wantRun,		/* CDEV Flags */
	1,											/* Enabled */
	1,											/* Version */
	1,											/* Machine */
	4,											/* System */
	{0,0,175,200},								/* DataRect */
	"AppleShare",								/* Name */
	"Scott Kuechle",							/* Author */
	"v1.1d20";									/* VersStr */
};
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/Appleshare.c b/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/Appleshare.c
new file mode 100644
index 0000000..1968dca
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/Appleshare.c
@@ -0,0 +1 @@
+/*

	File: AppleShare.c
	
	By	: Scott Kuechle
	
	Copyright:	©1988-1989 by Apple Computer Inc.
	All rights reserved.


	 4-Dec-90	MSD		Added a function called walkDevList() that scans the device list
	 					and does Volume calls on all AppleShare drivers to force the FST
						to build a VCR for them.  walkDevList() is called at the end of
						the Boot and Close messages so it will be called just once after
						either boot mounting or normal, interactive, mounting of volumes.

	4-Dec-90	DAL		Create the list/line edit controls in the right order so we can
						Tab from top to bottom with the new Targetable list controls.

	21-Dec-90	DAL		Changed the test for "/" and ":" so it filters them out only if
						you're at the User Name edit-line item.  (Version 1.1d5)

	 8-Jan-91	DAL		Now puts up a Watch cursor around the CreateCDEV message (1.1d6).
	 
	18-Jan-91	DAL		v1.1d7: The Cancel button now blinks when you cancel the Password
						dialog with ESC or Apple-period.
						ESC, Apple-period, Return, up and down arrows, and typing the first
						N letters of a name all now work from the Choose Volumes dialog.
						The buttons blink and everything.

	18-Feb-91	DAL		Added two SortList2 calls to make the server list be alphabetical.
						Added Apple-G and Apple-R key equivs to Dialog1.  Added repeating
						key handling to Dialog2.
	
	28-May-91	DAL		Added "if( (QDVersion() & 0x0fff) >= 0x0307)" before two SortList2
						calls using the new 1L sort proc.  Should be 5.0.4-compatible now.
	
	8-Jun-91	DAL		Changed about 10 occurances "\r\" into "\r" in messages.
	
	10-Jun-91	MSD		Changed the retry interval passed to DoLookup (in two places).  It
						was 15 seconds (15*4 quarter seconds); it is now two seconds.
						This should make the control panel more responsive to servers coming
						up, and make it build a complete list faster.
						
						Also changed the listStart parameter of NewList2 to 0xFFFF (i.e. don't
						change the number of the first item displayed).  This prevents the list
						from bouncing back to the first item every time a server is added to
						the list.

	07/01/91	GAB		Added logic to BootCDev message handler so that if AppleTalk is
						not active, the CDev asks the Control Panel NDA to draw an X
						through the displayed icon.
*/


#include <types.h>
#include <gsos.h>
#include <control.h>
#include <window.h>
#include <dialog.h>
#include <list.h>
#include <memory.h>
#include <locator.h>
#include <qdaux.h>
#include <string.h>
#include <strings.h>


int ple();

#include "newcontrols.h"
#include "newinterface.h"
#include "ASPDefs.h"
#include "AppleshareDefs.h"

#include <locator.h>

extern pascal void mySysBeep2() inline(0x3803,0xE10000);

extern struct FileInfoRecGS myInfoRec;


MySRefNum SrvrSRefNum;

myMemRecPtr LastSelectedZone,SelectedZone;
myMemRecPtr SelectedMember;

Word NetNum;
char NodeID,ScktNum;

Handle DataHndl;
char User_Name[NameLength],ATINIT_UserName[NameLength];
char entity[100];		/* build entity here */

char ATINIT_Path[]= "*/SYSTEM/SYSTEM.SETUP/ATINIT\000";
char AUTOLOGON_Path[] = "*/SYSTEM/SYSTEM.SETUP/APPLESHARE.PREP\000";
char pathbuf[255];

char colon[] = "\p:";
char slash[] = "\p/";
char *separator;

GSString32 bootvol;
ResultBuf32 buf,buf2;
ResultBuf32 theBootVol;
GSString255 syspath;
Word BootVoldevNum;

Word NetworkBoot;

NewCtlRecHndl EditBoxCtl,TextCtl1,TextCtl2,TextCtl3,TextCtl4,myButtonHndl;
NewCtlRecHndl ServerList,ZoneList;

int DoingAutoLogon,AppleTalkActive;

int setTargetListFlag;  /* 19-Apr-91 DAL */


Handle MySrvrMessData;
Handle MyVolMessData;

Handle myHandle;

Word DoubleClick;
LongWord PrevTickCount;
Word OnePending;
Word StopTheLookup=false,CallCompleted=false;

Word MyUserID;

	/* key for pseudo-encryption of passwords in the APPLESHARE.PREP file */
char key[] = {0x5a,0x2f,0x42,0x2b,0xe2,0x34,0xba,0x5d};


Handle ZoneNames;

Word PwrdWasChanged;
Word ServerListSize,LocalZoneIndex;
Word what;

Word WritProtAlreadyShowed;




extern pascal Word NextMember2() inline(0x121C,dispatcher);
extern pascal void SelectMember2() inline(0x141C,dispatcher);
extern pascal void NewList2() inline(0x161C,dispatcher);
extern pascal void SortList2() inline(0x151C,dispatcher); /* DAL */


static ResultBuf32	devName, volName;
static DInfoRecGS	devInfo;
static VolumeRecGS	volInfo;

void walkDevList();



pascal Longint AppleShare_DEFPROC(message,data1,data2)
Integer message;
Longint data1,data2;
{
Longint returnThis;
integer i,j,dbr;
ListCtlRecHndl hndl;
int err;
WmTaskRecPtr myTaskRecPtr;
CtlRecHndl myfoundCtlPtr;
LongWord DblClickTime;
Word partCode;
int anySelected;
Word itemNum;
Pointer ptr;
char keyHit;
Pointer p;


	dbr=SaveDB();

		/* if we execute our boot code (BootCDEV below) this flag will get set */
	DoingAutoLogon = false;
	
    returnThis = 0;


	switch (message) 
	{
		case InitCDEV:
		
					if (AppleTalkActive)
					{

						DoubleClick = false;
						PrevTickCount = 0;
						OnePending = false;


							/* set path to current user's folder here so that any time
								this CDEV is selected it gets updated */
						SetUserPath();

							/* the 'OK' button starts out as inactive since no
								selections have been made. */
						HiliteControl(inactiveHilite,myButtonHndl);
						
							/* scroll the list so that the current zone is shown */
						SelectMember2(LocalZoneIndex,ZoneList);

							/* now get handles that we can use with the message center 
								to store passwords for servers we have sessions with */
						MySrvrMessData = NewHandle((Long)(sizeof(struct MessageData)), MyUserID, attrNoCross, nil);
						MyVolMessData = NewHandle((Long)(sizeof(struct MessageData)), MyUserID, attrNoCross, nil);

					}
										
				break;
		case CreateCDEV:
		
					MyUserID = MMStartUp();
					StopTheLookup = true;

					/* allocate ZoneBuffer on the fly.  18-Jan-91 DAL */
					ZoneBuffer = (myMemRec *)
						*NewHandle( (long) (sizeof(myMemRec)*MaxZoneNames),MyUserID|0x0F00,0xC000,0L);
					/* Note: I feel safe assuming this memory allocation will succeed, because we have
						just loaded the CDev, and the LoadResource through CodeResConverter succeeded
						only if there was enough room for our OMF *and* loaded code at the same time.
						The OMF then got freed up. */
					/* end of 18-Jan-91 addition */

					AppleTalkActive = IsAppleTalkActive();
					if (AppleTalkActive)
					{
						CursorPtr oldCursor = GetCursorAdr(); /* DAL */
						WaitCursor(); /* DAL */

						StopTheLookup = false;
					
							/* this flag keeps track of how many times write protected disk
								error message comes up */
						WritProtAlreadyShowed = false;

						FindBootVolume();	/* was it a local or network boot? */
						
							/* get user name from ATINIT file */
						DoUserName(ATINIT_UserName,Get);
						
						DoZoneInit();
						DoServerInit();
						
						CreateNewStyleControls(data1);
						setTargetListFlag = 1; /* 19-Apr-91 DAL */


						SelectedZone = LastSelectedZone = nil;
						LocalZoneIndex = 0;

						if (!_toolErr)
						{
						
							SortLst();		/* sort the zone names first */
							
								/* since SortList() does not sort the entire memRec (name only) we must now
									go through the list to find our zone and show it as selected */
							
							for (i=0; i<ZoneListRec.ctlListSize && !LocalZoneIndex; ++i)
							{
								if (upstrcmp(ZoneBuffer[i].memPtr,ZoneName) == 0)
								{
									SelectedZone = LastSelectedZone = &ZoneBuffer[i];		/* save current zone selection */		
									ZoneBuffer[i].memFlag = memSelected;		/* must highlight the current zone */
									LocalZoneIndex = i + 1;
								}
							}
						}
						SetCursor(oldCursor); /* DAL */
					}
					else	/* create warning string */
					{
						WarningText.ctlTextSize = strlen(WarningMsg);
						EditBoxCtl=NewControl2(data1,0,&WarningText);
					}

				break;
		case MachineCDEV :
					returnThis = 0L;
				break;
		case BootCDEV :

					MyUserID = MMStartUp();
					StopTheLookup = true;
					
					if (IsAppleTalkActive())
					{
							/* now get handles that we can use with the message center 
								to store passwords for servers and volumes we have 
								sessions with */
						MySrvrMessData = NewHandle((Long)(sizeof(struct MessageData)), MyUserID, attrNoCross, nil);
						MyVolMessData = NewHandle((Long)(sizeof(struct MessageData)), MyUserID, attrNoCross, nil);
	
						InitOurMessageData();
					
						DoingAutoLogon = true;
						FindBootVolume();	/* was it a local or network boot? */
						Do_Auto_Logon();
					
						walkDevList();
					} else
						* (int *) data1 = 1;	/* tell CP to draw X through icon */

				break;
		case CloseCDEV :
					StopTheLookup = true;
					err = DoNBPKill();
					
					if (AppleTalkActive) {
						walkDevList();
						DoCleanUpStuff();
						if(ZoneBuffer!=(myMemRec *)0L) {
							DisposeHandle(FindHandle(ZoneBuffer));
							ZoneBuffer=(myMemRec *)0L;
						}
					}
					else
						/* dispose of text handle? */;
						
				break;
		case RunCDEV:
						/* this gets called on null events or DA events that dont have
							anything to do with my controls - I need this so I can
							update the server names list if a new server comes on line */
					
					if (!StopTheLookup)
						CheckForNewServers();	
				break;
		case EventsCDEV :
		
					if (AppleTalkActive)
					{
						if(setTargetListFlag)
							{
								setTargetListFlag=0;
								MakeThisCtlTarget(ServerList);
							}
						myTaskRecPtr = (WmTaskRecPtr)data1;
						p = (char *)&myTaskRecPtr->message;		/* do this to find ASCII code of key hit */
						keyHit = p[0];
						
							/* check for double clicks only if we have a mouse down event here..*/
						if (myTaskRecPtr->what == inButtDwn)
						{
								/* was it a mouse down in our server list? */
							partCode = FindControl(&myfoundCtlPtr,myTaskRecPtr->where.h,myTaskRecPtr->where.v,(GrafPortPtr)data2);
							
							if ( myfoundCtlPtr == (CtlRecHndl)ServerList)
							{
							
									/* was there previously a mouse down saved? */
								if (OnePending)
								{
										/* get current double-click time */
									DblClickTime = GetDblTime();
										/* was it a double-click? */
									if ( (myTaskRecPtr->when - PrevTickCount) <= DblClickTime )
									{
										DoubleClick = true;
										OnePending = false;
									}
									else
									{
										DoubleClick = false;
										PrevTickCount = myTaskRecPtr->when;
									}
								}
								else	/* no previous mouse down saved */
								{
									PrevTickCount = myTaskRecPtr->when;
									OnePending = true;
								}
							}
						}
						else if ( (myTaskRecPtr->what == inKey) || (myTaskRecPtr->what == autoKeyEvt) )
						{
								/* we must check here if the ':' or '/' keys were pressed - if so, we
									want to mask out the event so the user is unable to use these chars.
									in the user name edit box. */

							unsigned long targetCtlID = GetCtlID(FindTargetCtl());	/* 21-Dec-90 DAL */
							if ( (targetCtlID==4L) && ((keyHit == 0x3a) || (keyHit == 0x2f) || (keyHit==0x0A) || (keyHit==0x0B)) )
							{
								if ((QDVersion()&0x0FFF) >= 0x0307) mySysBeep2(8);	/* bad keypress */
								myTaskRecPtr->what = nullEvt;	/* make this a null event */
							}
							else
							{
									/* get current length of user name text */
								itemNum = LEGetTextLen((LERecHndl)(**EditBoxCtl).ctlData);
									
								/* put up error message only if user is not pressing
									the following keys...*/
								if (itemNum == (UserNameLen - 1))
								{
										/* put up error message.... */
									switch(keyHit)
									{
										case 0x7f:	/* delete key */
										case 0x18:	/* clear key */
										case 0x09:	/* tab key */
										case 0x08:	/* backspace key */
										case 0x15:	/* arrow ahead */
											/* do not put up message if the above keys are pressed */
											break;
										default:
												/* yes, so mask out this event */
											Show_Alert_Message(Caution_Alert,"\pThe User Name can only be 31\rcharacters long.");
											myTaskRecPtr->what = nullEvt;	 /* make this a null event */
											break;
									}
								}

							}

						}
					}

				break;
		case AboutCDEV:
		
					AboutText.ctlTextSize = strlen(myAboutText);
					TextCtl4=NewControl2(data1,0,&AboutText);

				break;
		case HitCDEV :

					hndl = (CtlRecHndl)data1;

					if (hndl == ServerList)	/* file server names list */
					{
					
							/* check here if there are any members left selected - if not
								we must make the 'OK' button inactive */
						anySelected = false;
						for (i=0; i<ServerListSize; ++i)
							if (NamesBuffer[i].memFlag == memSelected)
							{
								anySelected = true;
									/* make 'OK' button active since an item has now been selected */
								HiliteControl(noHilite,myButtonHndl);
							}
						
						if (!anySelected)	/* no selected members found ? */
						{
								/* make 'OK' button inactive since all items have been 
									de-selected */
							HiliteControl(inactiveHilite,myButtonHndl);
								
								/* clear double-click flag since no members are selected */		
							DoubleClick = false;
						}
						else
						{
								/* re-enable the 'OK' button since an item has been
									selected */
							HiliteControl(noHilite,myButtonHndl);
							
							if (DoubleClick)
							{
								DoOpen();
								DoubleClick = false;
							}
						}
						
					}
					else if (hndl == ZoneList)
					{
							/* get currently selected zone */
						itemNum = NextMember2(0,ZoneList);
						SelectedZone = (itemNum > 0) ? &ZoneBuffer[itemNum - 1] : nil;

							/* has a new zone been selected? */
						if (SelectedZone != LastSelectedZone)
						{
								/* kill current lookup for previous zone */
							err = DoNBPKill();
								
								/* build a new list of server names */
							ReSetServerList();
							
							LastSelectedZone = SelectedZone;	/* save current selection */
						
						}
					}
					else if ( hndl == myButtonHndl )
					{						
						DoOpen();
					}
			break;

	}

	RestoreDB(dbr);
	
	return returnThis;
}
 


ReSetServerList()
{
		/* blank out server names list here until our lookup gets
			all the server names for this zone */
	ServerListSize = 0;
	NewList2(ple,1,0xffffffff,0xffff,0,ServerList);

		/* must make 'OK' button inactive since a new zone
			list is being drawn */
	HiliteControl(inactiveHilite,myButtonHndl);
	
	CheckForNewServers();

		/* draw the new server list */
	NewList2(ple,1,0xffffffff,0xffff,ServerListSize,ServerList);
	if( (QDVersion() & 0x0fff) >= 0x0307)
		SortList2(1L,ServerList);	/* added 18-Feb-91 DAL */

}


void walkDevList()
{
	devInfo.pCount = 8;	/* we need the device ID */
	devInfo.devNum = 1;	/* start at the first device */
	devInfo.devName = &devName;
	devName.bufSize = 36;

	volInfo.pCount = 2;	/* set up for eventual Volume call */
	volInfo.devName = &(devName.bufString);
	volInfo.volName = &volName;
	volName.bufSize = 36;
	
	DInfoGS(&devInfo);	/* make the call */
	while(_toolErr != 0x11) {	/* continue until we run out of devices */
		if(devInfo.deviceID == 0x001e) {	/* is this an AppleShare driver? */
			VolumeGS(&volInfo);				/* yes, build a VCR */
		}
		++devInfo.devNum;					/* check the next device */
		DInfoGS(&devInfo);
	}
}


DoOpen()
{
int i;
int CancelButtonHit;


	StopTheLookup = true;
	
		/* kill current lookup for previous zone */
	err = DoNBPKill();

		/* if there are no zones, set selected zone to local zone */
	if (SelectedZone == nil)
	{
		SelectedZone->memPtr = ZoneName;
		LastSelectedZone->memPtr = ZoneName;
	}
	
	
		/* go through entire list of names */
	for (i=0; i<ServerListSize ;++i)
	{
			/* check to see which names were selected */
		if (NamesBuffer[i].memFlag == memSelected)
		{
				/* set file server name to display */
			ParamText(NamesBuffer[i].memPtr,nil,nil,nil);

				/* set up globals used throughout the program to identify the server */
			SelectedMember = &NamesBuffer[i];
			NodeID = NamesBuffer[i].NodeID;
			NetNum = NamesBuffer[i].NetNum;
			ScktNum = NamesBuffer[i].ScktNum;

				/* bring up the Name/Password dialog for the selected server */
			CancelButtonHit = CreateFirstDialog();
		}
	}


	StopTheLookup = false;
	ReSetServerList();
	
	
}



InitOurMessageData()
{
MessageDataPtr myptr;

		/* delete whatever server password message currently exists */
	MessageCenter(deleteMessage,MySrvrMessID,nil);
	
		/* initialize header and data */
	myptr = (MessageDataPtr)(*MySrvrMessData);
	myptr->MessNext = nil;
	myptr->MessType = MySrvrMessID;
	myptr->MessCount = 0;		/* no passwords saved initially */
	
		/* now add our new server password message */
	MessageCenter(addMessage,MySrvrMessID,MySrvrMessData);


		/* delete whatever volume password message currently exists */
	MessageCenter(deleteMessage,MyVolMessID,nil);
	
		/* initialize header and data */
	myptr = (MessageDataPtr)(*MyVolMessData);
	myptr->MessNext = nil;
	myptr->MessType = MyVolMessID;
	myptr->MessCount = 0;		/* no passwords saved initially */
	
		/* now add our new volume password message */
	MessageCenter(addMessage,MyVolMessID,MyVolMessData);


}




DoCleanUpStuff()
{
int err;
char mode;
Word len;
Pointer p;


	myHandle = LEGetTextHand((LERecHndl)(**EditBoxCtl).ctlData);
	len = LEGetTextLen((LERecHndl)(**EditBoxCtl).ctlData);
		
		/* store user name in Atinit file here */
	HLock(myHandle);
	p = strncpy(User_Name,(*myHandle),len);
	*(p+len)=0;	/* null terminate so we can convert to a Pascal String */
	c2pstr(p);	/* convert to pascal string for ATINIT file */
	
		/* user name can be at most 31 characters */
	if (p[0] == UserNameLen)
		p[0] = (UserNameLen-1);	/* re-set length to 31 */

	DoUserName(p,Set);	/* save it */
	HUnlock(myHandle);

		/* dispose of handles to memory we allocated */
	HUnlock(ZoneNames);
	DisposeHandle((Handle)ZoneNames);

}


myGSOS_StringAppend(gsString,pstring)
GSString32Ptr gsString;
char *pstring;
{
int i;
int len;

		/* append a GSOS string to a Pascal string */
		
		len = *pstring;
		for (i=0; i < gsString->length; ++i)
		{
			*(pstring + 1 + len + i) = gsString->text[i];		/* copy the character */
			*pstring = *pstring + 1;	/* increment length byte */
		}

}

myGSOS_StringCopy(gsString,pstring)
GSString32Ptr gsString;
char *pstring;
{
int i;

		/* copy a GSOS string to a Pascal string */
		
		*pstring = 0;	/* set length to zero initially */
		for (i=0; i < gsString->length; ++i)
		{
			*(pstring + 1 + i) = gsString->text[i];		/* copy the character */
			*pstring = *pstring + 1;	/* increment length byte */
		}

}

DoUserName(thebuf,operation)
char *thebuf;
Word operation;
{
int i;
Word saveErr;


	if (NetworkBoot)
	{
				/* we must build the path: /Boot Vol/USERS/User Name/Setup/ATINIT
					to get at the ATINIT file on the server for this user */
					
			buf.bufSize = 32+2;
			AShareFST_UserInfo(&buf,BootVoldevNum);
			
			pathbuf[0]=0;
			myGSOS_StringCopy(&theBootVol.bufString,pathbuf);
			
			Pappend(pathbuf,separator);
			Pappend(pathbuf,"\pUSERS");
			Pappend(pathbuf,separator);
			myGSOS_StringAppend(&buf.bufString,pathbuf);
			Pappend(pathbuf,separator);
			Pappend(pathbuf,"\pSETUP");
			Pappend(pathbuf,separator);
			Pappend(pathbuf,"\pATINIT");
			
			p2cstr(pathbuf);
			CreateGSOSString(pathbuf);
	
	}
	else
		CreateGSOSString(ATINIT_Path);
		
	GSOS_GetFileInfo();
	if (_toolErr)
	{
		switch(_toolErr)
		{
			case volNotFound:
					do
					{
						Show_Alert_Message(Caution_Alert,"\p Please re-insert your startup\r disk.");
						GSOS_GetFileInfo();
					} while (_toolErr == volNotFound);
				break;
			case invalidAccess:
				Show_Alert_Message(Caution_Alert,"\p Access Denied error. Any\r changes you make will not\r be saved. Check with your\r network administrator.");
				break;
			case fileNotFound:
					Show_Alert_Message(Caution_Alert,"\p There are AppleTalk data\r files missing from your\r startup disk. Please re-\r install AppleShare.");
				break;
		}
			/* force an update of entire window so all controls are redrawn
				correctly */
		InvalRect(&ControlPanelRect);
	}
	else if (myInfoRec.fileType == AppleTalkFile)
	{
		if (operation == Get)
			GSOS_Open((Word)(readEnable));
		else
			GSOS_Open((Word)(writeEnable + readEnable));

		if (_toolErr)
		{
			saveErr = _toolErr;
			ReportError(Get);
			
				/* if we got an access privileges error, try to open the file for
					read only */
			if (saveErr == invalidAccess)
			{
				GSOS_Open((Word)readEnable);
			}
		}

		GSOS_SetMark(eofMinus,(LongWord)133);
		
		if (operation == Get)
			GSOS_Read(thebuf,(LongWord)33);
		else	/* Set it */
		{
			GSOS_Write(thebuf,(LongWord)33);
				/* report any errors saving data */
			
			if (_toolErr)  
				ReportError(Set);
				
		}
			
		GSOS_Close();
	}
	else
	{
		Show_Alert_Message(Caution_Alert,"\p There are AppleTalk data\r files missing from your\r startup disk. Please re-\r install AppleShare.");
	}
}



char DoLookup(Object,Tynm,Zonenm,buffer,count,retryper,retrycnt,iocomp,syncflag)		/* gets all names of the given type */
char *Object,*Tynm,*Zonenm;
char *buffer;
char count;
char retryper,retrycnt;
long iocomp;
int syncflag;
{
	int  i;
	int ptr;
	int retrycount;


	retrycount=0;

	Pstrcpy(entity,Object);			/* copy Entity name into place */
	ptr = entity[0]+1;				/* point to space for Entity Type */
	Pstrcpy(&entity[ptr],Tynm);		/* copy Entity Type into place */
	ptr = ptr + entity[ptr] + 1;	/* point to space for Entity Zone */
	Pstrcpy(&entity[ptr],Zonenm);	/* copy zone into place */

	
	NBPLParms.command=NBPLookup;
	NBPLParms.mode=syncflag;
	NBPLParms.iocomp=iocomp;
	NBPLParms.entity=entity;
	NBPLParms.retryper=retryper;			/* every 1/4 second */
	NBPLParms.retrycnt=retrycnt;
	NBPLParms.rsbadr=(long)buffer;
	NBPLParms.rsbsiz=BlockSize/*sizeof(buffer)*/;
	NBPLParms.maxrsp=count;
	NBPLParms.result=busy;


	asm
	{
		ldx	#NBPLParms		;get low word pointer to parameter list
		ldy	#^NBPLParms		;get high word pointer to parameter list
		jsl	0xe11014
	}


	return NBPLParms.rgotten;		/* tell caller how many responses */
}




integer cGetZoneList()
{


	GZoneListParms.bufptr = *ZoneNames;
	GZoneListParms.brnode = GInfoParms.ABridge;

	asm
	{
		ldx	#GZoneListParms		;get low word pointer to parameter list
		ldy	#^GZoneListParms		;get high word pointer to parameter list
		jsl	0xe11014
	}

	return GZoneListParms.numberzones;
}


cGetMyZone()
{


	GMyZoneParms.result = busy;

	asm
	{
		ldx	#GMyZoneParms		;get low word pointer to parameter list
		ldy	#^GMyZoneParms		;get high word pointer to parameter list
		jsl	0xe11014
	}
	
	while ( ((char)GMyZoneParms.result) == busy)
		/*	wait here for response */;
		
		/* if there is an error (no zones?) set zone name to null */
	if (GMyZoneParms.result)
		ZoneName[0] = 0;

}


char cGetInfo()
{

	asm
	{
		ldx	#GInfoParms		;get low word pointer to parameter list
		ldy	#^GInfoParms	;get high word pointer to parameter list
		jsl	0xe11014
	}
	
	return GInfoParms.ABridge;
}



CreateNewStyleControls(data1)
GrafPortPtr data1;
{
char *p;

	FSText.ctlTextSize = strlen(myFSText);
	TextCtl1=NewControl2(data1,0,&FSText);

	ZoneText.ctlTextSize = strlen(myZoneText);
	TextCtl2=NewControl2(data1,0,&ZoneText);

		/* set up <return> key as the key equivalent for this button */
	p = (char *)&myOKBtn.keyEquivalent;
	p[0] = 0x0d;	/* ASCII code for <return> key */
	p[1] = 0x0d;
	p[2] = 0;		/* no modifiers */
	p[3] = 0;

	myButtonHndl=NewControl2(data1,0,&myOKBtn);

	/* added 18-Jan-91 DAL--ZoneBuffer is now allocated dynamically */
	ZoneListRec.ctlListRef = (longint)ZoneBuffer;
	/* end of 18-Jan-91 DAL addition */
	ZoneList = NewControl2(data1,0,&ZoneListRec);

	ServerList = NewControl2(data1,0,&ServerListRec);  /* was above the ZoneList NewControl2 call, 4-Dec-90 DAL */

	EDIT1.ctlDefaultRef = (longint)ATINIT_UserName;		/* these 3 lines were at the beginning of the func, 4-Dec-90 DAL */
	EDIT1.ctlTextSize = ATINIT_UserName[0];
	EditBoxCtl=NewControl2(data1,0,&EDIT1);

	UserText.ctlTextSize = strlen(myUserNameText);	    /* moved from above 4-Dec-90 DAL; needs to be after &EDIT1 */
	TextCtl3=NewControl2(data1,0,&UserText);
}



DoZoneInit()
{
int i,TotalZones;
integer index;
char bridge;
Word *p;
char *namePtr;


	bridge = cGetInfo();
	
		/* get list of all zones on the internet */
	TotalZones = 0;
	ZoneName[0] = 0;

	ZoneNames = NewHandle((Long)(MaxZoneNames*(NameLength+4)), MyUserID, attrNoCross, nil);
	HLock(ZoneNames);

	if (!_toolErr)
	{
			/* dont try to get zone list if no bridge exists */
		if (bridge != 0)
		{
			cGetMyZone();	/* get local zone */

			for (i=0; i<3 && TotalZones == 0; ++i)
				TotalZones = cGetZoneList();
		}
			
		TotalZones = (TotalZones <= MaxZoneNames) ? TotalZones: MaxZoneNames;
		
		index = 0;		/* index starts out at first string */
		for (i=0; i<TotalZones; ++i)
		{
			ZoneBuffer[i].memPtr = *ZoneNames + index;		/* set up pointer to zone name for list control */
			ZoneBuffer[i].memFlag = 0;		/* name starts out as non-selected */
			
		
			index = index + *(ZoneBuffer[i].memPtr) + 1;	/* move index to next name */
		}
	}

	ZoneListRec.ctlListSize = TotalZones;
	ZoneListRec.ctlListStart = 1;

}





DoServerInit()
{
int i;

		/* zero out list record selected bit */
	for (i=0; i<MaxSrvrNames; ++i)
		NamesBuffer[i].memFlag = 0;	
	
	GetServerNames(ZoneName);

}



int DoNBPKill()
{
	asm
	{
		ldx	#KillNBPparms
		ldy	#^KillNBPparms
		jsl	0xe11014
	}

	return KillNBPparms.ResultCode;
}



MyCompRoutine()
{
	CallCompleted = true;
}




AddNamesToList()
{
int i;
EntityPtr nameaddr;
char *base;
myMemRecPtr memberPtr;



		/* set pointer to the first name in the block that we want to add */
	base = OpenBlock;
	for (i=0; i<ServerListSize; ++i)
	{
		base = base + 5;	/* point to object field */
		base = base+base[0]+1;		/* skip ahead to type field */
		base = base+base[0]+1;		/* skip ahead to zone field */
		base = base+base[0]+1;		/* skip ahead to next entity address */
	}
	
	nameaddr = (EntityPtr)base;
	
	for (/* use i value from above */; i<NBPLParms.rgotten; ++i)
	{

			/* add the new server record */
		NamesBuffer[i].NetNum = nameaddr->NetNum;
		NamesBuffer[i].NodeID = nameaddr->Node;
		NamesBuffer[i].ScktNum = nameaddr->Socket;
		NamesBuffer[i].Enumerator = nameaddr->Enumerator;
		NamesBuffer[i].memPtr = nameaddr->ObjName; /* move name string into Namelist */		
		
		NamesBuffer[i].memFlag = 0;		/* name should show as non-selected */
	
		base = base + 5;	/* point to object field */
		base = base+base[0]+1;		/* skip ahead to type field */
		base = base+base[0]+1;		/* skip ahead to zone field */
		base = base+base[0]+1;		/* skip ahead to next entity address */

		nameaddr = (EntityPtr)base;
	
	}
	
		/* update size of our list */
		/* 10-Jun-91 MSD: I think this is the same but simpler... */
		/* ServerListSize = ServerListSize + (NBPLParms.rgotten - ServerListSize); */
	ServerListSize = NBPLParms.rgotten;

		/* draw new updated list */
		/* 10-Jun-91 MSD: Changed listStart to 0xFFFF so list doesn't keep going back to the top */
	NewList2(ple,0xFFFF,0xffffffff,0xffff,ServerListSize,ServerList);
	if( (QDVersion() & 0x0fff) >= 0x0307)
		SortList2(1L,ServerList);	/* added 18-Feb-91 DAL */

}



CheckForNewServers()
{
myMemRecPtr SelectedZone;
char *pzone;
int itemNum;


	if (StopTheLookup)	/* was the 'OK' button selected or is the CDEV being closed? */
	{		/* yes, so kill the current lookup */
		err = DoNBPKill();
	}
	else
	{
			/* did our asynchronous lookup complete yet? */
		if (CallCompleted)
		{

				/* get currently selected zone */
			itemNum = NextMember2(0,ZoneList);
			SelectedZone = (itemNum > 0) ? &ZoneBuffer[itemNum - 1] : nil;

				/* does zone name = our own zone? */
			if (upstrcmp(SelectedZone->memPtr,ZoneName) == 0 || SelectedZone == nil)
				pzone = currentzone;	/* yes, so substitute an '*' for name */
			else
				pzone = SelectedZone->memPtr;	/* otherwise use zone that is selected */

				/* yes, so fire off another one */
			/* 10-Jun-91 MSD: Changed retry interval to 2 seconds (was 15 seconds) */
			count = DoLookup(wildcard,TypeName,pzone,OpenBlock,(char)MaxSrvrNames,(char)(2*4),(char)0xff,(Long)MyCompRoutine,asynchronous);
				
				/* reset server list size */
			ServerListSize = 0;

			CallCompleted = false;
		}
		else if (NBPLParms.rgotten > ServerListSize)
		{
			AddNamesToList();
		}
	}

}



GetServerNames(zone)
char *zone;
{
char count;
char *pzone;

	count = 0;
	
	if (upstrcmp(zone,ZoneName) == 0)		/* does zone name = our own zone? */
		pzone = currentzone;	/* yes, so substitute an '*' for name */
	else
		pzone = zone;	/* otherwise use zone that was passed */

	/* 10-Jun-91 MSD: Changed retry interval to 2 seconds (was 15 seconds) */
	count = DoLookup(wildcard,TypeName,pzone,OpenBlock,(char)MaxSrvrNames,(char)(2*4),(char)0xff,(Long)MyCompRoutine,asynchronous);

	ServerListSize = 0;
}




int IsAppleTalkActive()
{
int found;
Word fstId,i;
ResultBuf255Ptr bufptr;


		/* check for the presence of the AppleShare FST - if it is
			active then we can assume that all the AppleTalk protocols
			are present also */
			
	found = false;
	_toolErr = 0;
	for (i=1; (_toolErr == 0 && !found) ; ++i)
	{
			/* set up size of result buffer */
		bufptr = (ResultBuf255Ptr)&syspath;
		bufptr->bufSize = 255;

		fstId = GSOS_GetFSTInfo(i,bufptr);
		if (fstId == AShareFST)
			found = true;
	}
	
	return found;
}





FindBootVolume()
{
Word fileSysID;

	
	NetworkBoot=false;
	
	buf2.bufSize = 32+2;
	GSOS_GetBootVol();

	BootVoldevNum = GSOS_GetDevNumber(&buf2.bufString);

	buf.bufSize=32+2;	/* output buffer length = actual space + length word */
	GSOS_DInfo(BootVoldevNum);

	theBootVol.bufSize = 32+2;
	fileSysID = GSOS_Volume();

	if (theBootVol.bufString.text[0] == ':')
		separator = colon;
	else
		separator = slash;
		
		/* check volume file system to see if we booted over the network */
	if (fileSysID == AShareFST)
	{
		NetworkBoot = true;		/* yes, we booted over the network */
	}
	else
	{	
		NetworkBoot = false;	/* no, local boot */
	}

}




main()
{
}



Pstrcpy(dest, srsc)
char *dest, *srsc;

{
  int i,len;
  
  len=srsc[0];		
  for (i=0; i<=len; i++)
    dest[i]=srsc[i];
}


int upstrcmp(s,t)
char *s;
char *t;

{  /* pascal string compare, ignore case */
  char cs;
  char ct;
  char lens,lent;

  lens=*s++;
  lent=*t++;
  while (lens && lent)
  {
    cs=toupper(*s++);
    ct=toupper(*t++);
    if (cs!=ct)			/* they don't match */
      return cs-ct;
    lens--;
    lent--;
  }
  return lens-lent;
}


Pappend(pstr1, pstr2)
char *pstr1, *pstr2;
{
  int i,len1, len2;
  
  len1=pstr1[0];
  len2=pstr2[0];
  pstr1[0]=len1+len2; /* new length */
  for (i=1; i<=len2; i++)
    pstr1[len1+i]=pstr2[i];
}

int SwapInt(num)
unsigned int num;
{
	unsigned int temp;
	
	temp=num;
	temp=temp << 8;
	num=num >> 8;
	return(num | temp);
}


Pad_With_Nulls(str,maxlen)		/* pads a C-string with zeros up to 'maxlen' */
char *str;
int maxlen;
{
int i;

	
	i=0;
	while ((*str!=0) && (i<maxlen))
	{
		i = i+1;
		str = str+1;
	};
	
	for (; i<maxlen; i++,str++)			/* begin padding after end */
		*str = 0;		/* pad with zero */

}


Scramble(pwrd)
char *pwrd;
{
int i;

	/* "pseudo" encryption/de-encryption of passwords for storing them in files */
	
	for (i=0; i<8; ++i)
		pwrd[i] = pwrd[i] ^ key[i];

}
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/AppleshareDefs.h b/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/AppleshareDefs.h
new file mode 100644
index 0000000..fb2b19d
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/AppleshareDefs.h
@@ -0,0 +1 @@
+/*

	File: AppleShareDefs.h
	
	By	: Scott Kuechle
	
	Copyright:	©1988-1989 by Apple Computer Inc.
	All rights reserved.																			#}

*/

/*
   4-Dec-90 Dave Lyons

   Turned on the fCtlWantEvents and fCtlCanBeTarget bits on the Zone and Server lists.
   Rearranged the order in which the line edit & list controls are created, so that
   tabbing between them goes in top-to-bottom order.
   
   11-Mar-91 DAL
   
   Fixed parameter count on EDIT1 template.  It was 9, but it should have been 8.
   This screwed things up when I implemented parameter 9 for Edit Line controls!
   (Version 1.1d10)
*/

extern int _toolErr;
/*extern int _ownerid;*/



Handle myHndl;
Handle User_Name_Hndl;
Word User_Name_Len;
char Name[] = "\pAppleShare";

Byte count;
int err;



CtlRecHndl ButtonControl;
Rect GlobalRect;


myMemRec NamesBuffer[MaxSrvrNames];   /* Note: could allocate dynamically to free up space in the OMF */

	listCtlRec ServerListRec = {
		15,	/* integer pCount */
		9,	/* longint	ID */
		18,LeftEdge,60,RightEdge,	/* Rect	ctlRect */
		listControl,	/* longint	ctlProcRef */
		0x0080,	/* integer	ctlFlag */
		fCtlProcRefNotPtr+fCtlWantEvents+fCtlCanBeActive+fCtlActive,	/* integer	ctlMoreFlags */
		0L,	/* longint	ctlRefCon */
		0,	/* integer	ctlListSize */
		MaxSrvrView,	/* integer	ctlListView */
		ListBugFixBit,	/* integer	ctlListType */
		1,	/* integer	ctlListStart */
		(long) ple,	/* longint	ctlListDraw */
		10,	/* integer	ctlListMemHeight */
		sizeof(myMemRec),	/* integer	ctlListMemSize */
		(longint)NamesBuffer,	/* longint	ctlListRef */
		nil	/* longint	ctlColorRef */
	};



/* myMemRec ZoneBuffer[MaxZoneNames]; */
myMemRec *ZoneBuffer; /* allocate dynamically to free up some room in the OMF; 18-Jan-91 DAL */


	listCtlRec ZoneListRec = {
		15,	/* integer pCount */
		10,	/* longint	ID */
		100,LeftEdge,142,RightEdge,	/* Rect	ctlRect */	/* was 99,...,141,... 4-Dec-90 DAL */
		listControl,	/* longint	ctlProcRef */
		0x0080,	/* integer	ctlFlag */
		fCtlProcRefNotPtr+fCtlWantEvents+fCtlCanBeActive,	/* integer	ctlMoreFlags */
		0L,	/* longint	ctlRefCon */
		0,	/* integer	ctlListSize */
		MaxZoneView,	/* integer	ctlListView */
		ListBugFixBit + selectOnlyOne,	/* integer	ctlListType */
		1,	/* integer	ctlListStart */
		(long)ple,	/* longint	ctlListDraw */
		10,	/* integer	ctlListMemHeight */
		sizeof(myMemRec),	/* integer	ctlListMemSize */
/*		(longint)ZoneBuffer,	/* longint	ctlListRef */
		(longint)0,				/* 18-Jan-91 DAL: need to stuff this field after allocating ZoneBuffer */
		nil	/* longint	ctlColorRef */
	};



char BtTitle[] = "\pOK";
char ScTitle[] = "\pOK";
char myFSText[] = "Select a file server:\000";
char myZoneText[] = "AppleTalk Zones:\000";
char myUserNameText[] = "User Name:\000";
char TypeName[NameLength] = "\pAFPServer";
char ZoneName[NameLength] = "\pNets-R-Us";
/* char WarningMsg[] = "AppleTalk must be installed and enabled in the Slots Control Panel to use the AppleShare Control Panel."; */
char WarningMsg[] = "AppleTalk must be installed and enabled to run this Control Panel.";

char myAboutText[] = "The AppleShare Control Panel allows you to log \
on to an AppleShare 2.0 File Server and \
mount volumes from that server.  In \
addition, there is the option of having \
volumes automatically mounted at boot time.";
char wildcard[] = "\p=";
char currentzone[] = "\p*";
GSString32 ATalkDriver = {
	10,
	".APPLETALK"
};

char OpenBlock[BlockSize];

struct NBPLType NBPLParms;

LERecHndl EditTextHndl;
Rect EditBoxRect = {142,LeftEdge,162,RightEdge-20};
Rect ControlPanelRect = {0,0,200,320};



struct editLineCtl EDIT1 ={
	8, /* this used to be 9, which was bad when I implemented the 9th parameter--11-Mar-91 DAL */
	UserNameBoxID,  /* 1,2,3...*/
	158,LeftEdge,173,RightEdge,	  /* the rect*/
	editLineControl, /* $80000000*/
	0,	/* 2*/
	fCtlProcRefNotPtr + fCtlWantEvents + fCtlCanBeActive,	/* 2 */
	0, /* 0 */
	UserNameLen,
	0,
	0
};


struct statTextCtl FSText = {
	8,
	2,
	7,LeftEdge,17,RightEdge,	/* was 8,...,18,...  4-Dec-90 DAL */
	statTextControl,
	0,
	fCtlProcRefNotPtr,
	0,
	(longint)myFSText,
	0
};


struct statTextCtl ZoneText = {
	8,
	3,
	89,LeftEdge,99,RightEdge,
	statTextControl,
	0,
	fCtlProcRefNotPtr,
	0,
	(longint)myZoneText,
	0
};


struct statTextCtl UserText = {
	8,
	4,
	149,LeftEdge,159,RightEdge,
	statTextControl,
	0,
	fCtlProcRefNotPtr,
	0,
	(longint)myUserNameText,
	0
};


struct statTextCtl WarningText = {
	8,
	5,
	8,LeftEdge,78, /* RightEdge+20, */ 196,
	statTextControl,
	0,
	fCtlProcRefNotPtr,
	0,
	(longint)WarningMsg,
	0
};


struct statTextCtl AboutText = {
	8,
	6,
	38,5,138,280,
	statTextControl,
	0,
	fCtlProcRefNotPtr,
	0,
	(longint)myAboutText,
	0
};

typedef struct NewSimpleButtonRec {
	integer	pCount; /* in this case - 7*/
	longint	ctlID;  /* 1,2,3...*/
	Rect	ctlRect;	  /* the rect*/
	longint	ctlProcRef; /* $80000000*/
	integer	ctlFlag;/* 2*/
	integer	ctlMoreFlags;/* 2*/
	longint	ctlRefCon; /* 0 */
	longint	TitleRef; /* resource id of string*/
	longint colorRef;
	longint keyEquivalent;
} NewSimpleButtonRec, *NewSimpleButtonPtr, **NewSimpleButtonHdl;


struct NewSimpleButtonRec myOKBtn = {
	9, /* in this case - 7*/
	7,  /* 1,2,3...*/
	66,LeftEdge+50,79,RightEdge-40,	  /* the rect*/
	simpleButtonControl, /* $80000000*/
	boldButton,	/* 2*/
	fCtlWantEvents + fCtlProcRefNotPtr,	/* 2*/
	0, /* 0 */
	(longint)BtTitle, /* resource id of string*/
	0,
	0
};


/* --------------------------------------------------------------------------- */


struct GZoneListtype GZoneListParms = {
	synchronous,
	GetZoneList,
	busy,
	nil,
	MaxZoneNames*(NameLength+4),
	0,
	0,
	1,
    1,
    2,
    0,
    0
};


struct GMyZonetype GMyZoneParms = {
	asynchronous,
	GetMyZone,
	busy,
	nil,
	ZoneName,
    2,
    8,
    0
};


struct GetInfo GInfoParms = {
	synchronous,
	GetInfoCmd,
	0,
	nil,
	0,
	0,
	0,
	0,
	0
};


struct KillNBPLType KillNBPparms = {
	synchronous,
	KillNBP,
	0,
	(Long)&NBPLParms
};
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/AutoLogon.c b/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/AutoLogon.c
new file mode 100644
index 0000000..b8e15f7
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/AutoLogon.c
@@ -0,0 +1 @@
+/*

	File: AutoLogon.c
	
	By	: Scott Kuechle
	
	Copyright:	©1988-1989,1991 by Apple Computer Inc.
	All rights reserved.																			#

    13-Mar-91 DAL v1.1d11:  Removed calls to DeskStartUp and DeskShutDown.
	          With Control Panel 2.0, these were causing a crash because
			  BootCDEV time happens within DeskShutDown, so we were
			  accidentally re-entrant in a big way.

*/

#include <types.h>     
#include <prodos.h>                             
#include <misctool.h>                            
#include <quickdraw.h>                         
#include <window.h>
#include <memory.h>
#include <dialog.h>
#include <menu.h>
#include <control.h>
#include <desk.h>
#include <event.h>
#include <lineedit.h>
#include <list.h>
#include <misctool.h>
#include <locator.h>
#include <Stdfile.h>
#include <qdaux.h>
#include <print.h>
#include <font.h>
#include <intmath.h>

#include "ASPDefs.h"
#include "AutoLogonDefs.h"
#include "resmgr.h"


extern char Password[NameLength];
extern char User_Name[NameLength];
extern char DoLookup();
extern Word MyUserID;
extern char volbuf[MaxVolLength+1];
extern myMemRecPtr SelectedMember,SelectedZone;
extern myMemRec NamesBuffer[MaxSrvrNames];
extern Word NetNum;
extern char NodeID,ScktNum;
extern Word LogInAsGuest;
extern int _toolErr;





str31	Server;
str33	Zone;

integer Num_of_Servers;
int StartUpWasDone;

boolean ToolsFound = FALSE,                    /* Do we have tools ? */
        AllOk = FALSE;
        PManagerFound = TRUE;             /* assume the PM is there */

int ThisMode = 0x80;                           /* init mode = 640 */

int myToolTable[] = {11,
                4, 0x100,          /* QuickDraw II */
                5, 0x100,          /* Desk Manager */
                6, 0x100,          /* Event Manager */
                14, 0x100,         /* Window Manager */
                15, 0x100,         /* Menu Manager */
                16, 0x100,         /* Control Mnager */
                20, 0x100,         /* Line Edit */
                21, 0x100,         /* Dialog Manager */
                23, 0x100,         /* Standard File  */
                27, 0x100,         /* Font Manager */
                28, 0};            /* List Manager */


char DeathMsg[] = "\034Could not handle error 0000 ";

char **y,*z;



char FindTheServer()
{
int retrycount,err;
char count;

	retrycount=0;
	
			/* do a lookup to see if the server is still there and if it is get the node,
			network number and socket number */
	count = DoLookup(&SrvrPtr->Server_Name.textLength,TypeName,&SrvrPtr->Server_Zone.textLength,
					OpenBlock,(char)1,(char)2,(char)8,0L,synchronous);

	if (NBPLParms.result == TooManyProcesses)
	{
		while ( (retrycount < 6) )
		{
				/* add a 2-second delay */
			err = cFIInstallTimer();

				/* do a lookup to see if the server is still there and if it is get the node,
					network number and socket number */
			count = DoLookup(&SrvrPtr->Server_Name.textLength,TypeName,&SrvrPtr->Server_Zone.textLength,
							OpenBlock,(char)1,(char)2,(char)8,0L,synchronous);
			
				/* if server was found force exit from this loop */
			if (NBPLParms.result == 0)
				retrycount = 6;
			else	/* otherwise keep trying */
				retrycount = retrycount + 1;
		}

	}
	
	return count;
}




Logon_And_MountVols()
{
integer i,j,k,err;
Pointer ptr;
char count;
EntityPtr nameaddr;
int CancelButtonHit;
int AnyChangesMade;
int MyEvent;
Word SCB;
long AccessRights;
char *volrights;


	
	ptr = (char *)(*DataHndl);		/* de-reference the handle */
	
	Num_of_Servers = (*ptr);		/* get count of number of servers in the file */
	SrvrPtr = (ServerInfoPtr)(ptr + 2);		/* point to first server record */

	AnyChangesMade = false;		/* set flag for user name/password changes */

	for (i=0; i<Num_of_Servers; ++i)
	{

		count = FindTheServer();

		if (count)		/* was it found? */
		{
			nameaddr=(EntityType *)OpenBlock;			/* build name->address mapping */

				/* set up globals used throughout the program to identify the server */
			NamesBuffer[0].NetNum = NetNum = nameaddr->NetNum;
			NamesBuffer[0].NodeID = NodeID = nameaddr->Node;
			NamesBuffer[0].ScktNum = ScktNum = nameaddr->Socket;
			SelectedMember = &NamesBuffer[0];
			
			Pstrcpy(&Server.textLength,&SrvrPtr->Server_Name.textLength);
			Pstrcpy(&Zone.textLength,&SrvrPtr->Server_Zone.textLength);
			
			SelectedMember->memPtr = &Server.textLength;
			SelectedZone->memPtr = &Zone.textLength;
			
				/* get session reference number for this server (set CmdLen=0) */
			err = cFILogin2(0,0,0);
			
				/* do we need to ask for the password? */
			if ( (*SrvrPtr).Server_Flags & AutoLogonPwrdFlag )
			{
				if (err != AlreadyLoggedIn)
				{
						/* if we need to put up a dialog then we must first start up all
							the tools - but do the start up only once! */
					if (!StartUpWasDone)
					{
						StartUpAllTools();
						StartUpWasDone=true;	/* set flag so we do it only once */
	
	
							/* set coordinates of the window for 320 or 640 mode */
						SCB = GetMasterSCB();
						if (SCB & 0x0080)
						{	/* 640 mode */
							myParamList.wPosition.v1 = 18;
							myParamList.wPosition.h1 = 165;
							myParamList.wPosition.v2 = 195;
							myParamList.wPosition.h2 = 475;
						}
						else
						{	/* 320 mode */
							myParamList.wPosition.v1 = 18;
							myParamList.wPosition.h1 = 10;
							myParamList.wPosition.v2 = 195;
							myParamList.wPosition.h2 = 320;	
						}
					
					}
		
					err = 0;
					
					myWind = NewWindow(&myParamList);
					SetSysWindow(myWind);
					SetPort(myWind);
					ShowWindow(myWind);
	
						/* set up list member record, since the code uses it to get
							info for the desired server. */
					NamesBuffer[0].memPtr = &SrvrPtr->Server_Name.textLength;
	
					TheEvent.wmTaskMask = 0x00000fff;  /* initialize mask */
	
					MyEvent = TaskMaster(0xFFFF, &TheEvent);
	
						/* set file server name to display */
					ParamText(&SrvrPtr->Server_Name.textLength,nil,nil,nil);
					
						/* display the arrow cursor */
					InitCursor();
					
						/* put up dialog to get password */
					CancelButtonHit = CreateFirstDialog();
					
						
						/* hide the cursor */
					HideCursor();
	
					CloseWindow(myWind);
					
						/* now check if password that is stored is different than
							what the user has entered */
					if (!CancelButtonHit)
					{		/* is user name still the same? */
						if (upstrcmp(User_Name,&SrvrPtr->User_Name.textLength) == 0)
						{
							Scramble(Password);		/* scramble for comparison below */
								/* is the password they entered different than what is
									currently stored in the APPLESHARE.PREP file? */
							if (strcmp(Password,&SrvrPtr->Server_Password[0]) !=  0)
							{
								CopyPassword(&SrvrPtr->Server_Password[0],Password,8);
								AnyChangesMade = true;
							}
						}
					}
				}
			}
			else	/* get name and password from APPLESHARE.PREP file */
			{
				err = Get_Server_Info();
				
				LogInAsGuest = false;
					/* if user name is null, log in as a guest */
				if (SrvrPtr->User_Name.textLength == 0)
					LogInAsGuest = true;


				CopyPassword(Password,&SrvrPtr->Server_Password[0],8);
					/* first we must un-scramble the password */
				Scramble(Password);
				Pstrcpy(User_Name,&SrvrPtr->User_Name.textLength);

					/* logon to this server so we can mount the specified volumes */
				err = Do_Login(User_Name,Password);
				
				CancelButtonHit = false;

			}
			
							
				VolPtr = (VolumeInfoPtr)(SrvrPtr + 1);		/* point to first volume record */
				
					/* now go through the volume list and mount each one */
				for (j=0; j<(*SrvrPtr).Volume_Count ; ++j)
				{
						/* dont attempt to login if the cancel button was selected from the
							dialog (provided the dialog was displayed at all) */
					if (!CancelButtonHit && (err == 0) )
					{
				
							/* mount volumes here....... */
						MountFlag = MountBit;

							/* is this a user volume ? */
						if ((*VolPtr).Volume_Flags & myUserVolBitFlag)
						{
							MountFlag = MountFlag | UserVolBit;	/* yes, so specify this in the mount call */
						}
						
							/* now check if there is a password for this volume */
						if ( (*VolPtr).Volume_Flags & AutoLogonPwrdFlag )
						{
								/* if we put up dialog to get server password we
									do the same to get the volume password */
							if ( (*SrvrPtr).Server_Flags & AutoLogonPwrdFlag )
							{
									/* go ask the user to enter the volume password */
								err = Do_Vol_Pwrd_Dialog(MountFlag,
														&VolPtr->Volume_Name.textLength,&VolID,
														&SlotDrive);
							}
							else
							{
								/* get the volume password from the APPLESHARE.PREP file */
									
									/* set bit indicating volume password pointer is valid */
								MountFlag = MountFlag | VolPwrdBit;
									/* first un-scramble password from the APPLESHARE.PREP file */
								Scramble(&VolPtr->Volume_Password[0]);
								err = cFIMountVol(MountFlag,&VolPtr->Volume_Name.textLength,
													&VolPtr->Volume_Password[0],
													&VolID,&SlotDrive,0);
							
							}
						}
						else
							err = cFIMountVol(MountFlag,&VolPtr->Volume_Name.textLength,0L,
												&VolID,&SlotDrive,0);


							/* now we must check the user's access rights for this server - if
								they have no rights, we must un-mount the volume */
		
						Pstrcpy(volbuf,"\001/");
						Pappend(volbuf,&VolPtr->Volume_Name.textLength);		/* build volume pathname */		
						err = cFIAccess(&AccessRights);
						volrights = (char *)&AccessRights;		/* get user access rights */
							/* does the user have access rights to this volume? */
						if (volrights[0] == 0)
						{
								/* now un-mount it */
							MountFlag = 0;
							err = cFIMountVol(MountFlag,&VolPtr->Volume_Name.textLength,
												0L,&VolID,&SlotDrive,0);				
						}
	
			
					}
					
					VolPtr = VolPtr + 1;	/* move to next volume record */
				}
			
		}
		
			/* advance to the next server record */
		if (count)		/* no error finding this server */
			SrvrPtr = (ServerInfoPtr)VolPtr;	/* move to the next server record */
		else
		{
			/* there was an error finding this server, so we must advance our pointers
				manually to the next server record */
			
			VolPtr = (VolumeInfoPtr)(SrvrPtr + 1);		/* point to first volume record */
				/* now skip over all volume records for this server */
			for (k=0; k<SrvrPtr->Volume_Count; ++k)
				VolPtr = VolPtr + 1;
			SrvrPtr = (ServerInfoPtr)VolPtr;	/* move to the next server record */
		}
	}
		/* were there any password/user name changes that need to be saved? */
	if (AnyChangesMade)
		Do_AUTOLOGON_data(true);		/* update APPLESHARE.PREP file */
	else
		DisposeHandle(DataHndl);	/* no longer need our handle so free it up */

}



Do_Auto_Logon()
{
int err;
Word i;


	StartUpWasDone = false;		/* set flag for starting up tools */

	Do_AUTOLOGON_data(Get);	/* read the APPLESHARE.PREP file into internal memory */
		/* now go and check if any volumes were selected for auto-mount - but only
			if we have a valid APPLESHARE.PREP file */
	if (DataHndl != nil)	/* is APPLESHARE.PREP file valid? */
	{
		Logon_And_MountVols();	/* yes! so go mount... */
		
			/* set the path to the user's folder on the first user vol. mounted */
		SetUserPath();

	}

		/* shut down all the tools only if they were started up */
	if (StartUpWasDone)
	{
		ShutDownAllTools();
	}

}



void ToolLoadError()
{

	TLTextMountVolume("\pError loading tools","\p ","\p ","\pok");
}


void ErrorCheck(where)
int where;
{
     if (_toolErr)
     {
       Int2Hex(_toolErr,DeathMsg + 24 ,4);
       SysFailMgr(where|0xff00,DeathMsg);
     }
}



StartUpAllTools()
{
   int MaxX;


   IMStartUp();
   ErrorCheck(16);

   y = NewHandle(0xa00L,                       /* Ten pages            */
                 MyUserID,                         /* put it to my name    */
                 0xc005,          /*  locked, fixed, fixed bank, page algn'd */
                 0L);                          /* don't care           */
   ErrorCheck(3);

   z = *y;                                     /* deref handle     */

   QDStartUp((int) z,ThisMode,MAXSCAN,MyUserID);
   ErrorCheck(4);


   MaxX = 640;                                 /* prepare for 640 mode */
   if (ThisMode != 0x80)
     MaxX = 320;                               /* in case I am wrong */

   EMStartUp((int) z + 0x300,20,0,MaxX,0,200,MyUserID);  /* Event Manager */
   ErrorCheck(5);


   do                                          /* Now we try to load */
    {                                         /* the tools    */
       LoadTools(myToolTable);
       if (_toolErr)
         {
TLTextMountVolume("\perror loading tool","\p ","\p ","\pok");		 
		 #if 0
           if (_toolErr=VolNotFound)
             if (MountBootDisk() != 1)
               {
                 ShutDownStuff();
                 exit(0);
               }
		#endif
         }                                     /* must be careful with elses*/
       else
         ToolsFound = TRUE;
     }
   while (!ToolsFound);

   WindStartUp(MyUserID);                          /* keep initializing    */
   ErrorCheck(7);

   RefreshDesktop(0L);

   CtlStartUp(MyUserID,(int) z + 0x400);
   ErrorCheck(8);

   LEStartUp(MyUserID, (int) z + 0x500);
   ErrorCheck(9);

   DialogStartUp(MyUserID);
   ErrorCheck(10);

   MenuStartUp(MyUserID, (int) z + 0x600);
   ErrorCheck(11);

/*   DeskStartUp();   */                          /* All we need is init'ed now */
/*   ErrorCheck(12);  REMOVED 13-Mar-91 DAL! */


   SFStartUp(MyUserID, (int) z + 0x700);
   ErrorCheck(13);


/* At this point we try to init AuxQuickDraw and the Printer Manager
   if something goes wrong printing is disabled
*/
   LoadOneTool(QDAuxTool,MinVer);
   if (_toolErr)
     ToolLoadError();
   else
     {
       LoadOneTool(PManager,MinVer);
         if (_toolErr)
           ToolLoadError();
         else
           {
             QDAuxStartUp();
             WaitCursor();

             PMStartUp(MyUserID, (int) z + 0x900 );
             ErrorCheck(15);
           }
     }

   FMStartUp(MyUserID, (int) z + 0x800);           /* the watch cursor is up */
   ErrorCheck(14);                             /* while we count the fonts */

   AllOk = TRUE;

}



ShutDownAllTools()
{
/*   DeskShutDown();   Removed 13-Mar-91 DAL! */

   FMShutDown();
   PMShutDown();
   SFShutDown();
   CtlShutDown();
   DialogShutDown();
   EMShutDown();
   LEShutDown();
   MenuShutDown();
   WindShutDown();

   QDAuxShutDown();
   QDShutDown();

   IMShutDown();

   DisposeHandle( y );
}
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/AutoLogonDefs.h b/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/AutoLogonDefs.h
new file mode 100644
index 0000000..4424bac
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/AutoLogonDefs.h
@@ -0,0 +1 @@
+/*

	File: AutoLogonDefs.h
	
	By	: Scott Kuechle
	
	Copyright:	©1988-1989 by Apple Computer Inc.
	All rights reserved.																			#}

*/


#define	Num_Tools	17
#define MAXSCAN    160
#define VolNotFound 0x45
#define QDAuxTool 18                           /* Auxiliary Quickdraw  */
#define PManager  19                           /* Print Manager Tool Number */
#define MinVer     0                           /* Minimun Version for them */


GrafPortPtr	myWind;


extern Handle DataHndl;
extern char OpenBlock[BlockSize];
extern NBPLType NBPLParms;
extern MySRefNum SrvrSRefNum;
extern char TypeName[NameLength];

ServerInfoPtr SrvrPtr;
VolumeInfoPtr VolPtr;
char SlotDrive,MountFlag;
int VolID;
char mode;

WmTaskRec TheEvent;

WindColor myWindColor = { 
      0, /* WindColor - Color of window frame. */
      0, /* WindColor - Color of title and bar. */
      0, /* WindColor - Color/pattern of title bar. */
      0, /* WindColor - Color of grow box. */
      0 /* WindColor - Color of information bar. */
}; 

ParamList myParamList = { 
   78, /* paramLength  */
   0, /* wFrameBits */
   nil, /* wTitle */
   nil, /* wRefCon */
   0,0,0,0, /* wZoom */
   &myWindColor, /* wColor */
   0, /* wYOrigin */
   0, /* wXOrigin */
   0, /* wDataH */
   0, /* wDataW */
   0, /* wMaxH */
   0, /* wMaxW */
   0, /* wScrollVer */
   0, /* wScrollHor */
   0, /* wPageVer */
   0, /* wPageHor */
   nil, /* wInfoRefCon */
   0, /* wInfoHeight */
   nil, /* wFrameDefProc */
   nil, /* wInfoDefProc */
   nil, /* wContDefProc */
   0,0,195,320, /* wPosition */
   (GrafPortPtr)0xffffffff, /* wPlane */
   nil /* wStorage */
};
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/DES.aii b/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/DES.aii
new file mode 100644
index 0000000..c911a3a
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/DES.aii
@@ -0,0 +1 @@
+**************************************************
*
*
* des - data encryption standard. This routine is called with
* low byte of the parameter list in the X reg and the high
* byte of the parameter list in the Y reg.
*
*
* written by	07-03-86
*	david su
*
* modified : 01-27-87 06:00 (tde)
*  5-29-87: Converted source to MacToGS (rbh)	
*
* (c) 1987 paramis corporation
* (c) 1987 Apple Computer Inc
* all rights reserved
*
*	Parameter List: 
*	Pointer		pointer	<--		;
*	Encription Key	pointer	<--		;This is an eight byte padded password
*	Result		pointer	-->		;Eight Bytes
*
* Rick Hoiberg 5/29/87
*
* modified : 08-23-88 (srk)
*			converted to MPW IIGS (MAX) assembler
*
**********************************************************
		MACHINE		M65816

		EXPORT	DES
DES		PROC

Zp0		equ		$c0
Zp1		equ		$c4

*
*
* save four bytes of Zero page
*
		phb					;save current data bank
		phk
		plb					;data bank = program bank
		
		lda		Zp0			;save on stack
		pha
		lda		Zp0+2
		pha
		lda		Zp1
		pha
		lda		Zp1+2
		pha
*
* save parameter list location
*
		stx		Zp0			;save parameter list pointer
		sty		Zp0+2
*
* save key in our work area
*
		lda		(Zp0)		;save key
		sta		Zp1
		ldy		#$02
		lda		(Zp0),y
		sta		Zp1+2
;
		ldx		#3
		ldy		#$06		;move all eight bytes of key
des1	lda		(Zp1),y
		sta		key,y
		dey
		dey
		dex
		bpl		des1
		
*
* save password in our work area
*
		ldy		#$04
		lda		(Zp0),y
		sta		Zp1
		iny
		iny
		lda		(Zp0),y
		sta		Zp1+2
;
		ldx		#3
		ldy		#$06		;move all eight bytes of key
des2	lda		(Zp1),y
		sta		random,y
		dey
		dey
		dex
		bpl		des2
		
;
;
;
*
* initialize the count
*
		ldx		#0
des4	;
		stz		des_count,x
		inx
		inx
		cpx		#32
		bne		des4
;
;	save our zero page values here - for some reason they are getting trashed
;	when we do the encoding routines.....
;
		lda		Zp0
		sta		saveZp0
		lda		Zp0+2
		sta		saveZp0+2
;
		sep		#$30
		LONGA	OFF
		LONGI	OFF
;
		jsr		keysched
		jsr		encode
*
* save result
*
		
		Rep		#$30
		LONGA	ON
		LONGI	ON
;
;	restore Zp0 here - why is it getting trashed in our encoding routines above?
;
		lda		saveZp0
		sta		Zp0
		lda		saveZp0+2
		sta		Zp0+2
;		
		ldy		#$08
		lda		(Zp0),y
		sta		Zp1
		iny
		iny
		lda		(Zp0),y
		sta		Zp1+2
;
		ldx		#3
		ldy		#$06		;move all eight bytes of key
des3	lda		des_work1,y
		sta		(Zp1),y
		dey
		dey
		dex
		bpl		des3
*
* restore Zero page
*
		
		pla
		sta		Zp1+2
		pla
		sta		Zp1
		pla
		sta		Zp0+2
		pla
		sta		Zp0
		
		plb				;restore data bank
		rtl
;
;
**************************************************
*
* keysched : key schedule
*
* this module takes 64 bits key and generates
* the sixteen 48-bit keys k(1),k(2),...,k(16)
*
* entry : none
*
* exit	: none
*
*
**************************************************
keysched	;
		sep		#$30
		LONGA	OFF
		LONGI	OFF

		ldx		#0
key1		;
		stx		des_x		;
		lda		pc1tbl,x
		sta		remainder
		lda		#8
		sta		des_count
key2		;
		dec		des_count
		sec
		lda		remainder
		sbc		#08
		sta		remainder
		beq		key22		;= 0 ?
		bcs		key2		;> 0 ?
;
key22		;
		clc
		lda		remainder
		adc		#8
		sta		remainder
;
		ldx		remainder
		bne		key24		;x = 0 ?
		ldx		#8			;set to 8, if yes
key24		;
		dex
		lda		des_msk,x
		ldy		des_count
		clc
		and		key,y
		beq		key3
		sec
key3		;
		ldx		#$07
key4		;
		rol		des_work1,x
		php
		dex
		bmi		key5
		plp
		bra		key4
;
key5		;
		plp
		ldx		des_x
		inx
		cpx		#56
		bne		key1
;
*
* divide pc1 result into c0/d0
*
		ldx		#0
key6		;
		lda		des_work2,x
		sta		des_cd,x
		inx
		cpx		#7
		bne		key6
;
*
* rotate c and d left by rotate(n) times
*
key9		;
		ldx		#0
keya		;
		stx		des_x		;save # of times
;
		ldy		#0
keyb		;
		clc
		lda		des_cd		;save left most bit(cn)
		rol		a
		php
;
		lda		des_msk+3	;save left most bit(dn)
		clc
		and		des_cd+3
		beq		keyb0
		sec
keyb0		;
		ldx		#6
keyc		;
		rol		des_cd,x
		dex
		bpl		keyc
;
		lda		des_cd+3
		and		#%11101111	;clear right most bit(cn)
		sta		des_cd+3
;
		lda		#0
		plp					;restore left most bit(cn)
		ror		a				;move left most bit(cn)
		ror		a			;to right most bit(cn)
		ror		a
		ror		a
		ora		des_cd+3
		sta		des_cd+3
;
		ldx		des_x
		iny
		lda		rotat_left,x
		sta		des_temp
		cpy		des_temp
		bne		keyb
;
*
* permutation 2
*
		ldy		#0
keye		;
		sty		des_y		;
		lda		pc2tbl,y
		sta		remainder
		lda		#7			;7 bytes toal for cn+dn
		sta		des_count
keyf		;
		dec		des_count
		sec
		lda		remainder
		sbc		#08
		sta		remainder
		beq		keyf0		;= 0 ?
		bcs		keyf		;> 0 ?
;
keyf0		;
		clc
		lda		remainder
		adc		#8
		sta		remainder
;
		ldx		remainder
		bne		keyf2		;x = 0 ?
		ldx		#8			;set to 8, if yes
keyf2		;
		dex
		lda		des_msk,x
		ldy		des_count
		clc
		and		des_cd,y
		beq		key0
		sec
key0		;
		ldx		#7
key01		;
		rol		des_work1,x
		php
		dex
		bmi		key02
		plp
		bra		key01
;
key02		;
		plp
		ldy		des_y
		iny
		cpy		#48
		bne		keye
;
*
* move result of perm 2 to k(n)
*
		ldx		#0
key03		;
		lda		des_work3,x
		ldy		des_k
		sta		k1,y
		inc		des_k
		inx
		cpx		#6
		bne		key03
;
		ldx		des_x
		inx
		cpx		#16
		beq		key04
		jmp		keya
;
key04		rts
;
;
**************************************************
*
* encode - encryption module
*
* entry : random1,...,random8
*
* exit	: des_work1,...,des_work8
*
*
**************************************************
encode		;
		sep		#$30
		LONGA	OFF
		LONGI	OFF

		stZ		des_y		;init des_y
;
		ldx		#0
ecd1		;
		stx		des_x		;
		lda		iniptbl,x
		sta		remainder
		lda		#8
		sta		des_count
ecd2		;
		dec		des_count
		sec
		lda		remainder
		sbc		#08
		sta		remainder
		beq		ecd22		;= 0 ?
		bcs		ecd2		;> 0 ?
;
ecd22		;
		clc
		lda		remainder
		adc		#8
		sta		remainder
;
		ldx		remainder
		bne		ecd24		;x = 0 ?
		ldx		#8			;set x to 8, if yes
ecd24		;
		dex
		lda		des_msk,x
		ldy		des_count
		clc
		and		random,y
		beq		ecd3
		sec
ecd3		;
		ldx		#7
ecd4		;
		rol		des_work1,x
		php
		dex
		bmi		ecd5
		plp
		bra		ecd4
;
ecd5		;
		plp
		ldx		des_x
		inx
		cpx		#64
		bne		ecd1
;
*
* move result of init perm to left/right block
* move 8 times - first 4 bytes = des_l1
*	- second 4 bytes = des_r1
*
		ldx		#0
ecd6		;
		lda		des_work1,x
		sta		des_l1,x
		inx
		cpx		#08
		bne		ecd6
;
*
* perform rn = ln eor f(rn,kn)
* transform right 32 bits into 48 bits
*
		stz		key_x		;initiaiZe k(n) pointer
		ldx		#0
ecd60		;
		stx		des_x1		;save counter
;
		ldx		#0
ecd65		;
		lda		des_r1,x	;save rn origin to temp
		sta		des_temp1,x
		inx
		cpx		#4
		bne		ecd65
;
		ldx		#0
ecd7		;
		stx		des_x		;
;
		lda		etbl,x		;perform e function
		sta		remainder
		lda		#4			;4 bytes only
		sta		des_count
ecd8		;
		dec		des_count
		sec
		lda		remainder
		sbc		#08
		sta		remainder
		beq		ecd82		;= 0 ?
		bcs		ecd8		;> 0 ?
;
ecd82		;
		clc
		lda		remainder
		adc		#8
		sta		remainder
;
		ldx		remainder
		bne		ecd84		;x = 0 ?
		ldx		#8			;set x to 8, if yes
ecd84		;
		dex
		lda		des_msk,x
		ldy		des_count
		clc
		and		des_r1,y
		beq		ecd9
		sec
ecd9		;
		ldx		#5
ecda		;
		rol		des_work3,x
		php
		dex
		bmi		ecdb0
		plp
		bra		ecda
;
ecdb0		;
		plp
		ldx		des_x
		inx
		cpx		#48
		beq		ecdb1
		jmp		ecd7
;
*
* eor with k(48 bits)
*
ecdb1		;
		ldy		#0
ecdb		;
		ldx		key_x		;get current k(n) pointer
		lda		k1,x
		eor		des_work3,y
		sta		des_work3,y
		inx
		stx		key_x		;save pointer for k(n) blocks
		iny
		cpy		#6
		bne		ecdb
;
*
* transform 48 bits into 32 bits s(b1),...,s(bn)
*
		ldx		#0
ecdc		;
		jsr		saddr
		stx		des_temp
		lda		des_work3	;des_work will shift 6 times
		and		#%10000100	;bit 7/2 are row #'s
		bpl		ecdd
		and		#%01111111	;strip out high bit
		ora		#%00001000	;save high bit to bit 3
ecdd		;
		lsr		a
		lsr		a
		tax				;save row #
						;
		lda		des_work3
		and		#%01111000	;bit 6-3 are column #'s
		lsr		a
		lsr		a
		lsr		a			;column # in acc now
							;
ecde		;
		cpx		#0
		beq		ecdf
		clc
		adc		#16			;find s tbl pointer
		dex					;decrement row #
		bra		ecde
;
ecdf		;
		tay
		lda		s1,y
		asl		a			;shift result to high byte
		asl		a
		asl		a
		asl		a
;
*
* move result to des_r1
*
		ldy		#4
ecd10		;
		rol		a
		ldx		#3
ecd11		;
		rol		des_temp2,x
		php
		dex
		bmi		ecd110
		plp
		bra		ecd11
;
ecd110		;
		plp
		dey
		bne		ecd10
;
*
* shift des_work left 6 more times
*
		ldy		#6
ecd12		;
		ldx		#5
ecd13		;
		rol		des_work3,x
		dex
		bpl		ecd13
		dey
		bne		ecd12
;
*
* 8 times already?
*
		ldx		des_temp
		inx
		cpx		#8
		beq		ptbl0
		jmp		ecdc		;do next s tbl
;
*
* perform 32 bits permutation
* use ptbl
*
ptbl0		;
		ldx		#0
ptbl1		;
		stx		des_x2
		lda		ptbl,x
		sta		remainder
		lda		#4
		sta		des_count
ptbl2		;
		dec		des_count
		sec
		lda		remainder
		sbc		#08
		sta		remainder
		beq		ptbl22		;= 0 ?
		bcs		ptbl2		;> 0 ?
;
ptbl22		;
		clc
		lda		remainder
		adc		#8
		sta		remainder
;
		ldx		remainder
		bne		ptbl24		;x = 0 ?
		ldx		#8			;set to 8, if yes
ptbl24		;
		dex
		lda		des_msk,x
		ldy		des_count
		clc
		and		des_temp2,y
		beq		ptbl3
		sec
ptbl3		;
		ldx		#3
ptbl4		;
		rol		des_r1,x
		php
		dex
		bmi		ptbl5
		plp
		bra		ptbl4
;
ptbl5		;
		plp
		ldx		des_x2
		inx
		cpx		#32
		bne		ptbl1
;
;
*
* exclusive or with left block
* perform function = ln eor f(rn,kn)
*
		ldx		#0
ecd112		;
		lda		des_r1,x	;load rn
		eor		des_l1,x	;eor with ln
		sta		des_r1,x	;save result to rn
		inx
		cpx		#4
		bne		ecd112
;
		ldx		#0
ecd115		;
		lda		des_temp1,x	;move rn origin to ln
		sta		des_l1,x
		inx
		cpx		#4
		bne		ecd115
;
*
* 16 times already?
*
		ldx		des_x1
		inx
		cpx		#16
		beq		ecd140
		jmp		ecd60		;yes, go back
;
*
* perform inverse permutation
*
ecd140		;

		jsr		swap	 	;swap left and right halves

		ldx		#0
ecd14		;
		stx		des_x		;
		lda		invptbl,x
		sta		remainder
		lda		#8
		sta		des_count
ecd15		;
		dec		des_count
		sec
		lda		remainder
		sbc		#08
		sta		remainder
		beq		ecd152		;= 0 ?
		bcs		ecd15		;> 0 ?
;
ecd152		;
		clc
		lda		remainder
		adc		#8
		sta		remainder
;
		ldx		remainder
		bne		ecd154		;x = 0 ?
		ldx		#8		;set x to 8, if yes
ecd154		;
		dex
		lda		des_msk,x
		ldy		des_count
		clc
		and		des_l1,y
		beq		ecd16
		sec
ecd16		;
		ldx		#7
ecd17		;
		rol		des_work1,x
		php
		dex
		bmi		ecd18
		plp
		bra		ecd17
;
ecd18		;
		plp
		ldx		des_x
		inx
		cpx		#64
		bne		ecd14
;
		rts					;end of des modules
;

swap		;					;switch des_l1 and des_r1

		ldx		#3
swap1		lda		des_l1,x
		pha
		lda		des_r1,x
		sta		des_l1,x
		pla
		sta		des_r1,x
		dex
		bpl		swap1
		rts
							;
*
* increment s table pointer
*
*	x = s# (0-7)
*
saddr
		clc
		lda		#s1
		adc		tab64l,x
		sta		ecdf+2
		lda		#>s1
		adc		tab64h,x
		sta		ecdf+3
		rts
		
saveZp0		dc.b		0,0,0,0,0,0,0,0
;
tab64l		dc.b		0,64,128,192,0,64,128,192
tab64h		dc.b		0,0,0,0,1,1,1,1
;
;
**************************************************
*
* des data area
*
**************************************************
;
;
iniptbl		dc.b		7,15,23,31,39,47,55,63
		dc.b		5,13,21,29,37,45,53,61 
		dc.b		3,11,19,27,35,43,51,59
		dc.b		1,9,17,25,33,41,49,57
		dc.b		8,16,24,32,40,48,56,64
		dc.b		6,14,22,30,38,46,54,62
		dc.b		4,12,20,28,36,44,52,60
		dc.b		2,10,18,26,34,42,50,58
;
invptbl		dc.b		25,57,17,49,9,41,1,33
		dc.b		26,58,18,50,10,42,2,34
		dc.b		27,59,19,51,11,43,3,35
		dc.b		28,60,20,52,12,44,4,36
		dc.b		29,61,21,53,13,45,5,37
		dc.b		30,62,22,54,14,46,6,38
		dc.b		31,63,23,55,15,47,7,39
		dc.b		32,64,24,56,16,48,8,40
;
etbl		dc.b		1,32,31,30,29,28
		dc.b		29,28,27,26,25,24
		dc.b		25,24,23,22,21,20
		dc.b		21,20,19,18,17,16
		dc.b		17,16,15,14,13,12
		dc.b		13,12,11,10,9,8
		dc.b		9,8,7,6,5,4
		dc.b		5,4,3,2,1,32
;
pc1tbl		dc.b		8,16,24,32,40,48,56
		dc.b		64,7,15,23,31,39,47
		dc.b		55,63,6,14,22,30,38
		dc.b		46,54,62,5,13,21,29
		dc.b		2,10,18,26,34,42,50
		dc.b		58,3,11,19,27,35,43
		dc.b		51,59,4,12,20,28,36
		dc.b		44,52,60,37,45,53,61
;
;convert from des algorithm
;base 56
pc2tbl		dc.b		43,40,46,33,56,52,54,29
		dc.b		42,51,36,47,34,38,45,53
		dc.b		31,49,41,50,30,37,44,55
		dc.b		16,5,26,20,10,2,27,17
		dc.b		6,12,24,9,13,8,18,1
		dc.b		23,4,11,15,7,21,28,25
;
ptbl		dc.b		17,26,13,12,4,21,5,16
		dc.b		32,18,10,7,28,15,2,23
		dc.b		31,25,9,19,1,6,30,24
		dc.b		14,20,3,27,11,22,29,8
;
s1		dc.b		14,4,13,1,2,15,11,8
		dc.b		3,10,6,12,5,9,0,7
		dc.b		0,15,7,4,14,2,13,1
		dc.b		10,6,12,11,9,5,3,8
		dc.b		4,1,14,8,13,6,2,11
		dc.b		15,12,9,7,3,10,5,0
		dc.b		15,12,8,2,4,9,1,7
		dc.b		5,11,3,14,10,0,6,13
;
s2		dc.b		15,1,8,14,6,11,3,4
		dc.b		9,7,2,13,12,0,5,10
		dc.b		3,13,4,7,15,2,8,14
		dc.b		12,0,1,10,6,9,11,5
		dc.b		0,14,7,11,10,4,13,1
		dc.b		5,8,12,6,9,3,2,15
		dc.b		13,8,10,1,3,15,4,2
		dc.b		11,6,7,12,0,5,14,9
;
s3		dc.b		10,0,9,14,6,3,15,5
		dc.b		1,13,12,7,11,4,2,8
		dc.b		13,7,0,9,3,4,6,10
		dc.b		2,8,5,14,12,11,15,1
		dc.b		13,6,4,9,8,15,3,0
		dc.b		11,1,2,12,5,10,14,7
		dc.b		1,10,13,0,6,9,8,7
		dc.b		4,15,14,3,11,5,2,12
						;
s4		dc.b		7,13,14,3,0,6,9,10
		dc.b		1,2,8,5,11,12,4,15
		dc.b		13,8,11,5,6,15,0,3
		dc.b		4,7,2,12,1,10,14,9
		dc.b		10,6,9,0,12,11,7,13
		dc.b		15,1,3,14,5,2,8,4
		dc.b		3,15,0,6,10,1,13,8
		dc.b		9,4,5,11,12,7,2,14
						;
s5		dc.b		2,12,4,1,7,10,11,6
		dc.b		8,5,3,15,13,0,14,9
		dc.b		14,11,2,12,4,7,13,1
		dc.b		5,0,15,10,3,9,8,6
		dc.b		4,2,1,11,10,13,7,8
		dc.b		15,9,12,5,6,3,0,14
		dc.b		11,8,12,7,1,14,2,13
		dc.b		6,15,0,9,10,4,5,3
						;
s6		dc.b		12,1,10,15,9,2,6,8
		dc.b		0,13,3,4,14,7,5,11
		dc.b		10,15,4,2,7,12,9,5
		dc.b		6,1,13,14,0,11,3,8
		dc.b		9,14,15,5,2,8,12,3
		dc.b		7,0,4,10,1,13,11,6
		dc.b		4,3,2,12,9,5,15,10
		dc.b		11,14,1,7,6,0,8,13
;
s7		dc.b		4,11,2,14,15,0,8,13
		dc.b		3,12,9,7,5,10,6,1
		dc.b		13,0,11,7,4,9,1,10
		dc.b		14,3,5,12,2,15,8,6
		dc.b		1,4,11,13,12,3,7,14
		dc.b		10,15,6,8,0,5,9,2
		dc.b		6,11,13,8,1,4,10,7
		dc.b		9,5,0,15,14,2,3,12
;
s8		dc.b		13,2,8,4,6,15,11,1
		dc.b		10,9,3,14,5,0,12,7
		dc.b		1,15,13,8,10,3,7,4
		dc.b		12,5,6,11,0,14,9,2
		dc.b		7,11,4,1,9,12,14,2
		dc.b		0,6,10,13,15,3,5,8
		dc.b		2,1,14,7,4,10,8,13
		dc.b		15,12,9,0,3,5,6,11
;
des_msk		dc.b		1
		dc.b		2
		dc.b		4
		dc.b		8
		dc.b		16
		dc.b		32
		dc.b		64
		dc.b		128
;
key		ds.b		8
;
random		ds.b		8
;
des_work1	dc.b		0
des_work2	dc.b		0
des_work3	dc.b		0
des_work4	dc.b		0
des_work5	dc.b		0
des_work6	dc.b		0
des_work7	dc.b		0
des_work8	dc.b		0
;
des_count	dc.b		0
remainder	dc.b		0
key_x		dc.b		0
des_x		dc.b		0
des_x1		dc.b		0
des_x2		dc.b		0
des_y		dc.b		0
des_k		dc.b		0
des_temp	dc.b		0
des_temp1	ds.b		4
des_temp2	ds.b		4
;
des_l1		ds.b		4
des_r1		ds.b		4
;
des_cd		ds.b		7
;
k1		ds.b		6
k2		ds.b		6
k3		ds.b		6
k4		ds.b		6
k5		ds.b		6
k6		ds.b		6
k7		ds.b		6
k8		ds.b		6
k9		ds.b		6
k10		ds.b		6
k11		ds.b		6
k12		ds.b		6
k13		ds.b		6
k14		ds.b		6
k15		ds.b		6
k16		ds.b		6
;
rotat_left	dc.b		1,1,2,2,2,2,2,2
		dc.b		1,2,2,2,2,2,2,1
;
;
;
;
		ENDP
		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/Dialog1.c b/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/Dialog1.c
new file mode 100644
index 0000000..a5caf56
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/Dialog1.c
@@ -0,0 +1 @@
+/*

	File: Dialog1.c
	
	By	: Scott Kuechle
	
	Copyright:	©1988-1989 by Apple Computer Inc.
	All rights reserved.																			#}


	18-Feb-91 Dave Lyons
		Added Apple-G and Apple-R key equivalents for the Guest and Registered User
		radio buttons (My_FilterProc).

*/



#include <types.h>
#include <misctool.h>
#include <window.h>
#include <memory.h>
#include <dialog.h>
#include <control.h>
#include <desk.h>
#include <event.h>
#include <lineedit.h>
#include <misctool.h>
#include <list.h>
#include <locator.h>
#include <string.h>
#include <strings.h>


#include "NewControls.h"
#include "NewInterface.h"
#include "ASPDefs.h"


DES_Pckt DESPckt;


/*extern char SRefNum;*/
extern struct MySRefNum SrvrSRefNum;
extern Handle User_Name_Hndl;
extern Word User_Name_Len;
extern int DoingAutoLogon;
extern editLineHndl EDIT1;
extern ServerInfoPtr SrvrPtr;
extern char User_Name[NameLength];
extern NewCtlRecHndl EditBoxCtl;
extern Handle myHandle;
extern Word PwrdWasChanged;


char AFP_Version2[] = "\pAFPVersion 2.0";
char ClearTxt[] = "\pCleartxt passwrd";
char Guest[] = "\pNo User Authent";
char RandEx[] = "\pRandnum exchange";

Byte WrongVersion,GuestLoginOK,ClearTxtOK,RandExOK,Already_Logged_In;
Word LogInAsGuest;

GrafPortPtr Dialog1;
FPGetSrvrInfoOutput SrvrInfoOutput;
/*byte*/Word done;
FPMapIDOutput MapIDOutput;

char DES_Result[8];
char Password[NameLength],buf3[NameLength];

LoginInput LogCmd;
LoginOutput LogReply;
LoginCont LogContCmd;
LoginContReply LogContReply;

FPGetUserInfoOutput UserInfoOutput;

int CancelButtonHit;
Word currEvent;
char keyHit;
Word AlreadyAt31;



#include "Dialog1Defs.h"



int Do_Login(namebuf,passbuf)
char *namebuf,*passbuf;
{
int err,i,pos;
int CmdLen,RepLen;


	Pstrcpy(&LogCmd.data[0],AFP_Version2);
		
	pos = LogCmd.data[0] + 1;
	CmdLen = 1 + (AFP_Version2[0] + 1);
	if (LogInAsGuest)
	{
		Pstrcpy(&LogCmd.data[pos],Guest);
		CmdLen = CmdLen + Guest[0] + 1;
		RepLen = sizeof(struct LoginOutput);	/* id number + 8 byte random number */
	}
	else	/* log in as registered user */
	{

		if (RandExOK)
		{
			
			Pstrcpy(&LogCmd.data[pos],RandEx);
			CmdLen = CmdLen + RandEx[0] + 1 + (namebuf[0] + 1);
			RepLen = 2 + 8;	/* id number plus 8 byte random number */
			
			pos = pos + LogCmd.data[pos] + 1;
			Pstrcpy(&LogCmd.data[pos],namebuf);

		}
		else	/* use Clear Text Password Transmission */
		{
			Pstrcpy(&LogCmd.data[pos],ClearTxt);
			CmdLen = CmdLen + ClearTxt[0] + 1 + (namebuf[0] + 1) + 8;
			RepLen = 2;	/* id number only? */
			
			pos = pos + LogCmd.data[pos] + 1;
			Pstrcpy(&LogCmd.data[pos],namebuf);
			pos = pos + LogCmd.data[pos] + 1;

			if ( (pos-1) & 1)	/* is password going to be put at an odd address ? */
			{
					/* yes, so we must pad with a zero */
				LogCmd.data[pos] = 0;
				pos = pos + 1;
				CmdLen = CmdLen + 1;
			}

			strcpy(&LogCmd.data[pos],passbuf);
			Pad_With_Nulls(&LogCmd.data[pos],8);
		}

	
	}
		
	LogCmd.command = LoginCmd;
	err = cFILogin2(CmdLen,RepLen,0);

	if (err == LoginContinue)
	{
		Pad_With_Nulls(passbuf,8);
		
		DESPckt.password = passbuf;
		DESPckt.randnum = LogReply.RandNum;	
		DESPckt.result = DES_Result;
		
		asm
		{
			ldx	#DESPckt
			ldy	#^DESPckt
			jsl	DES
		}

		LogContCmd.command = LoginContCmd;
		LogContCmd.ID = LogReply.ID;
		for ( i=0 ; i<8 ; ++i )
			LogContCmd.EncryptedValue[i] = DES_Result[i];
		if (RandExOK)
		{
			CmdLen = 1 + 1 + 2 + 8;
		}
		
		LogContCmd.command = LoginContCmd;
		err = cFILoginCont(CmdLen);
	
	}
		
	return err;

}




int Set_Up_For_Login()
{
int err;

		/* is the 'guest' radio button selected? */
	LogInAsGuest = GetDItemValue(Dialog1,Id5);

	if (LogInAsGuest)
	{
		User_Name[0] = 0;
		Password[0] = 0;
		Pad_With_Nulls(Password,8);	/* pad it with null characters */
	}
	else	/* log in as a registered user */
	{
		GetIText(Dialog1,Id7,User_Name);		/* get user name from edit box */
		GetIText(Dialog1,Id8,Password);		/* get password from edit box */
	
		p2cstr(Password);	/* need password to be a C-string for login */
		Pad_With_Nulls(Password,8);	/* pad it with null characters */
	}
	
	err = Do_Login(User_Name,Password);

	if (err)
	{
		Show_PFI_Error(err);
			/* now move the cursor to the offending field */
		switch(err)
		{
				/* bad user name, so put cursor there */
			case 0x0a16:
					SelectIText(Dialog1,Id7,0,NameLength);
				break;
				/* bad password, so put cursor there */
			case 0x0a15:
			case 0x0a17:
					SelectIText(Dialog1,Id8,0,8);
				break;
		}
	}
	
	return (err);
}


int Get_Server_Info()
{
char UAMCount,VerCount;
int Pos,Pos2;
int err,i;


		
		err = cSPGetStatus();

		if (err == 0)
		{
			WrongVersion = true;	GuestLoginOK = false;	ClearTxtOK = false;		RandExOK = false;
	
				/* use offset to get version count value but subtract 10 since offset is from 
					start of reply buffer */
			Pos = SwapInt(SrvrInfoOutput.VerOffset) - 10;
			
					/* get count of number of version strings returned */
			VerCount = SrvrInfoOutput.data[ Pos ];
					/* position of first string is right after count value in buffer */
			Pos = Pos + 1;
			
				/* now examine each version string returned */
			for (i=0 ; (i<VerCount) && WrongVersion ; ++i)
			{
					/* look for AFPVersion 2.0 string */
				if ( upstrcmp(&SrvrInfoOutput.data[ Pos ], AFP_Version2 ) == 0)
				{
			
					WrongVersion = false;
					
						/* get offset to UAMCount value */
					Pos2 = SwapInt(SrvrInfoOutput.UAMOffset) - 10;
					
							/* get count of UAM strings returned */
					UAMCount = SrvrInfoOutput.data[ Pos2 ];
					
							/* move to first string */
					Pos2 = Pos2 + 1;
						/* see which UAM strings were returned */
					for (i=0 ; i<UAMCount ; ++i)
					{
						if ( upstrcmp(&SrvrInfoOutput.data[ Pos2 ], Guest) == 0)
							GuestLoginOK = true;
						else if ( upstrcmp(&SrvrInfoOutput.data[ Pos2 ], ClearTxt) == 0)
							ClearTxtOK = true;
						else if ( upstrcmp(&SrvrInfoOutput.data[ Pos2 ], RandEx) == 0)
							RandExOK = true;
							
								/* move to next UAM string in buffer */
						Pos2 = Pos2 + SrvrInfoOutput.data[ Pos2 ] + 1;
		
					}
				}
				
					/* move to next version string in buffer */
				Pos = Pos + SrvrInfoOutput.data[ Pos ] + 1;
		
			}
		}

	return err;
}


Set_Up_For_AlreadyLoggedIn()
{
int err;
CtlRecHndl ControlHndl,ControlHndl2;



		err = cFPGetUserInfo();
		err = cFPMapID();

			/* bug in Rocky server gives us an error on FPGetUserInfo call, so set name here */
		if (err)
			Pstrcpy(&MapIDOutput.name[0],"\pUnknown");

		GetNewDItem(Dialog1,&GuestButton);
		GetNewDItem(Dialog1,&RegUserButton);

		ShowDItem(Dialog1,Id5);		/* guest button */
		ShowDItem(Dialog1,Id6);		/* registered user button */

		ControlHndl = GetControlDItem(Dialog1,Id5);		/* guest button */
		ControlHndl2 = GetControlDItem(Dialog1,Id6);	/* registered user button */
	
		if (MapIDOutput.name[0] == 0)	/* logged in as a guest? */
		{
			SetDItemValue(0,Dialog1,Id6);	/* registered user button is off */
			SetDItemValue(1,Dialog1,Id5);	/* guest button should be set */
			
			LogInAsGuest = true;
			
			HiliteControl(noHilite,ControlHndl);	/* make guest button active */
			HiliteControl(inactiveHilite,ControlHndl2);	/* registered user button inactive */
			HiliteControl(inactiveHilite,GetControlDItem(Dialog1,Id3));	/* cannot set password if we are a guest */

		}
		else	/* logged in as a registered user */
		{
			Pstrcpy(User_Name,&MapIDOutput.name[0]);		/* copy user name into buffer for display */
			GetNewDItem(Dialog1,&ActualUserName);	/* add user name text to dialog */
			ShowDItem(Dialog1,Id15);	/* print actual user name next to "Name:" text */

			SetDItemValue(1,Dialog1,Id6);	/* registered user button should be set */
			SetDItemValue(0,Dialog1,Id5);	/* guest button should be off */
			
			LogInAsGuest = false;
			
			GetNewDItem(Dialog1,&NameText);

			HiliteControl(inactiveHilite,ControlHndl);	/* make guest button inactive */
			HiliteControl(noHilite,ControlHndl2);	/* registered user button goes active */
				/* set password option is valid for registered users */
			HiliteControl(noHilite,GetControlDItem(Dialog1,Id3));

		}

}


Set_Up_For_Normal_Login()
{

		PasswordEditBoxText[0] = 0;		/* dont display any chars. in password box */
		GetNewDItem(Dialog1,&PasswordEditBox);
		GetNewDItem(Dialog1,&NameEditBox);		
		GetNewDItem(Dialog1,&PasswordText);
		GetNewDItem(Dialog1,&ScrambledText);
		GetNewDItem(Dialog1,&GuestButton);
		GetNewDItem(Dialog1,&RegUserButton);
		GetNewDItem(Dialog1,&NameText);
		
		SetDItemValue(1,Dialog1,Id6);	/* registered user button should be set initially */
		SetDItemValue(0,Dialog1,Id5);	/* guest button should be off */
		
		ShowDItem(Dialog1,Id5);		/* guest button */
		ShowDItem(Dialog1,Id6);		/* registered user button */
		ShowDItem(Dialog1,Id7);		/* name edit box */
		ShowDItem(Dialog1,Id8);		/* password edit box */
		ShowDItem(Dialog1,Id11);	/* "Password" text */
		ShowDItem(Dialog1,Id12);	/* "Scrambled" text */

		if (GuestLoginOK)		/* if guest login is allowed... */
			HiliteControl(noHilite,GetControlDItem(Dialog1,Id5));
		else					/* guest login is allowed */
			HiliteControl(inactiveHilite,GetControlDItem(Dialog1,Id5));

}


Handle_Item_Hit(itemHit)
Word itemHit;
{
char *UAM_str;
Word currentVal;
int err;
CtlRecHndl ControlHndl,ControlHndl2;
int Pwrd_Change_Successful;
char buf[32];



		switch (itemHit)
		{
			case Id1:	/* OK button */

				if (!Already_Logged_In)
					err = Set_Up_For_Login();

				if (DoingAutoLogon && err == 0)		/* close this dialog if we are doing auto logon */
				{  
						CloseDialog(Dialog1);	
						done = true;
				}
				else if ( ((err == 0) || Already_Logged_In) && !DoingAutoLogon)
				{
					CloseDialog(Dialog1);
					CreateSecondDialog();
					done = true;
				}
					

				break;
				
			case Id2:	/* Cancel button */

				CancelButtonHit = true;
				CloseDialog(Dialog1);
				done = true;
				
				break;
				
			case Id3:	/* Set Password button */

					/* first set-up correct UAM string for the set password call */
				if (RandExOK)
					UAM_str = RandEx;
				else
					UAM_str = ClearTxt;
					
				if (!Already_Logged_In)
					GetIText(Dialog1,Id7,User_Name);	/* otherwise get what was typed in user name edit box */
				
				Pwrd_Change_Successful = Do_Pwrd_Dialog(UAM_str,User_Name,
														RandExOK,Already_Logged_In);
				if (Pwrd_Change_Successful)
				{
					CloseDialog(Dialog1);
					CreateSecondDialog();
					done = true;
				}
				
				break;
				
			case Id5:	/* Guest Radio button */
				
				currentVal = GetDItemValue(Dialog1,itemHit);	/* find out what current value is */
				if (currentVal == 0)
				{
					SetDItemValue(1,Dialog1,Id5);		/* select current button */
					SetDItemValue(0,Dialog1,Id6);		/* de-select the other button */

					HideDItem(Dialog1,Id10);	/* hide name text */
					HideDItem(Dialog1,Id11);	/* hide password text */
					HideDItem(Dialog1,Id12);	/* hide scrambled text */
					
						/* get control handle to 'set password' button */
					ControlHndl = GetControlDItem(Dialog1,Id3);					
						/* make 'set password' button inactive since we are a guest */
					HiliteControl(inactiveHilite,ControlHndl);
					
						/* now remove both edit boxes because we are a guest */
					RemoveDItem(Dialog1,Id7);
					RemoveDItem(Dialog1,Id8);
				}
				
				break;

			case Id6:	/* Registered User Radio button */
				
				currentVal = GetDItemValue(Dialog1,itemHit);	/* find out what current value is */
				if (currentVal == 0)	/* if item is not currently selected */
				{
					SetDItemValue(1,Dialog1,Id6);		/* select current button */
					SetDItemValue(0,Dialog1,Id5);		/* de-select the other button */

					ShowDItem(Dialog1,Id10);	/* show name text */
					ShowDItem(Dialog1,Id11);	/* show password text */
					ShowDItem(Dialog1,Id12);	/* show scrambled text */
					
						/* get control handle to 'set password' button */
					ControlHndl = GetControlDItem(Dialog1,Id3);
						/* restore 'set password' button to active status since we are a registered user */
					HiliteControl(noHilite,ControlHndl);
					
						/* restore both edit boxes because we are a registered user */
					GetNewDItem(Dialog1,&NameEditBox);
					GetNewDItem(Dialog1,&PasswordEditBox);
					
						/* re-draw edit boxes since we are a registered user */
					ShowDItem(Dialog1,Id7);		
					ShowDItem(Dialog1,Id8);
					
					DrawDialog(Dialog1);
				}
				

				break;
			case Id7:
					if ( (currEvent == keyDownEvt) || (currEvent == autoKeyEvt) )
					{
							/* get current length of user name text */
						GetIText(Dialog1,Id7,buf);
							
							/* has the maximum user name length been exceeded? */
						if (buf[0] == 31)
						{
								/* put up error message only if user is not pressing
									the following keys...*/
							switch(keyHit)
							{
								case 0x7f:	/* delete key */
								case 0x18:	/* clear key */
								case 0x09:	/* tab key */
								case 0x08:	/* backspace key */
								case 0x15:	/* arrow ahead */
									/* do not put up message if the above keys are pressed */
									break;
								default:
											/* have we just hit length of 31? (were
												we just previously at 30 or is the length
												already 31 and the user is trying to go
												past?) */
										if (!AlreadyAt31)
											AlreadyAt31 = true;		/* flag says we have hit 31 at least once */
										else
										{
												/* user trying to go past 31 */
											Show_Alert_Message(Caution_Alert,"\pThe User Name can only be 31\rcharacters long.");
										}
									break;
							}
						}
						else
							AlreadyAt31 = false;	/* no, have not yet reached length of 31 chars */
					}
			
				break;
		}

}



SetDialogPosition(dialog)
DlgTempPtr dialog;
{
Word SCB;

		/* find out whether we are in 320 or 640 mode */
	SCB = GetMasterSCB();
	if (SCB & 0x0080)
	{	/* 640 mode */
		dialog->dtBoundsRect.v1 = 18;
		dialog->dtBoundsRect.h1 = 165;
		dialog->dtBoundsRect.v2 = 195;
		dialog->dtBoundsRect.h2 = 475;
	}
	else
	{	/* 320 mode */
		dialog->dtBoundsRect.v1 = 18;
		dialog->dtBoundsRect.h1 = 7;
		dialog->dtBoundsRect.v2 = 195;
		dialog->dtBoundsRect.h2 = 313;	
	}

}


unsigned RadButtonEnabled(theID)
	unsigned theID;
{
	CtlRecHndl ctl = GetControlDItem(FrontWindow(),theID);
	return( (**ctl).ctlHilite != 0xFF );
}


pascal Word my_FilterProc(theDialog,theEvent,theItem)
GrafPortPtr	theDialog;
EventRecord	*theEvent;
word	*theItem;	/* was long *theItem, 18-Feb-91 DAL */
{
CtlRecHndl	tHandle,EditBoxHndl;
Word PartCode;
int i;
int dbr;
int flag;
Pointer p;
extern void BlinkControl(); /* added 18-Jan-91 DAL */

	dbr = SaveDB();

		/* set up event type */
	currEvent = (*theEvent).what;
	
		/* set up which key was hit */
	p = (char *)&theEvent->message;		/* do this to find ASCII code of key hit */
	keyHit = p[0];

		/* check if <open apple><.> keys or <esc> were hit - if so, perform same
			action as cancel button.  Also provide Apple-G/Apple-R = radio buttons */
	if (currEvent == keyDownEvt) 
	{
		if((*theEvent).modifiers & appleKey)
		{
			if( (keyHit=='g') || (keyHit=='G') )
			{
				if(RadButtonEnabled(Id5))
					*theItem = Id5;	/* change it to a Guest button hit */
				RestoreDB(dbr);		
				return ((Word)true);
			}
			if( (keyHit=='r') || (keyHit=='R') )
			{
				if(RadButtonEnabled(Id6))
					*theItem = Id6;	/* change it to a Registered User button hit */
				RestoreDB(dbr);		
				return ((Word)true);
			}
		}
		if (( ((*theEvent).modifiers & appleKey) && (keyHit == '.') ) || (keyHit == 0x1b))
		{
			/* tell autologon code that cancel button was hit */
			
			CancelButtonHit = false;
			BlinkControl(GetControlDItem(Dialog1,2)); /* added 18-Jan-91 DAL */
			
			/* close this dialog window and go back to control panel window */
			
			CloseDialog(Dialog1);  
			done = true;
				
			RestoreDB(dbr);		
			return ((Word)true);
		}
		
	}

	RestoreDB(dbr);
	return ((Word)false);
}



int CreateFirstDialog()
{
Word itemHit,length;
CtlRecHndl ControlHndl,ControlHndl2;
LongWord itemHitInfo;
int i,err;
char mode;
CtlRecHndl hndl;


	#undef	dtItemListLength
	#define	dtItemListLength	7

		/* position dialog on the screen for 640/320 mode */
	SetDialogPosition(&MyDialog);


		/* first check if we already have a session with this server (CmdLen=0) */
	err = cFILogin2(0,0,0);

	if (err == AlreadyLoggedIn)
	{
		Already_Logged_In = true;
		MainText.itemDescr = MainTextBuf2;		/* switch text to "Already logged in as..." */
	}
	else
	{
		MainText.itemDescr = MainTextBuf;		/* switch text to "Connect to file server as..." */
		Already_Logged_In = false;	
	}


	err = Get_Server_Info();
	if (err)
		Show_PFI_Error(err);


	if ( (err == 0) || (err == AlreadyLoggedIn) )
	{
	
		if (WrongVersion)	/* did we not find an AFP 2.0 server? */
			Show_Alert_Message(Stop_Alert,"\pThe Server you want uses an\rincompatible version of AFP.\rYou cannot connect to it.");
		else	/* we are using AFP 2.0 */
		{
				
			if (DoingAutoLogon)
			{
					/* when doing auto-logon get user name from APPLESHARE.PREP file
						and put it in the edit box. */
				Pstrcpy(NameEditBoxText,&SrvrPtr->User_Name.textLength);
			}
			else
			{
		
	
					/* get the text that is currently in the user name edit box 
						so we can display it in the login screen */
				HLock((Handle)EditBoxCtl);
				myHandle = LEGetTextHand((LERecHndl)(**EditBoxCtl).ctlData);
				length = LEGetTextLen((LERecHndl)(**EditBoxCtl).ctlData);
					/* if length is already at maximum, set our flag telling us so */
				if (length == 31)
					AlreadyAt31 = true;
				else
					AlreadyAt31 = false;
		
				strncpy(NameEditBoxText,(*myHandle),length);
				if (length <= MaxNameLen)
					NameEditBoxText[length] = 0;	/* null terminate the text */
				c2pstr(NameEditBoxText);
				HUnlock((Handle)EditBoxCtl);
				
			}

			Dialog1 = GetNewModalDialog(&MyDialog);
			
			if (Already_Logged_In)
				Set_Up_For_AlreadyLoggedIn();
			else
				Set_Up_For_Normal_Login();


				/* now check and see if server supports the user changing passwords 
					(set password should also be disabled if this dialog is brought
					up during boot time ) */
			if (DoingAutoLogon || !(SwapInt(SrvrInfoOutput.Flags) & ChangePasswordBit))
			{
					/* make set password button inactive during auto-logon since this
						operation cannot be done */
				ControlHndl = GetControlDItem(Dialog1,Id3);	
				HiliteControl(inactiveHilite,ControlHndl);
			}	

				/* set flag we use with the message center - need to
					know if the password has been changed on us */
			PwrdWasChanged = false;
			
				/* autologon code needs to know if cancel button hit */
			CancelButtonHit = false;
			
			done = false;
			do
			{

				itemHit = ModalDialog((WordProcPtr)((long)my_FilterProc | 0xC0000000));
		
				Handle_Item_Hit(itemHit);
				
			} while (!done);
		}
	}

	if (CancelButtonHit)		/* was the cancel button selected? */
		return true;	/* yes, so inform autologon code that it was */
	else
		return false;	/* no */
}



CopyPassword(dest,source,maxlen)
char *source,*dest;
int maxlen;
{
int i;
char *src,*dst;

		/* do this so original pointers aren't changed when the copy
			is complete */
	src = source;
	dst = dest;
	
	for (i=0; i<maxlen; ++i)
	{
		*dst = *src;
		++dst;	++src;
	}
}
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/Dialog1Defs.h b/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/Dialog1Defs.h
new file mode 100644
index 0000000..818257b
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/Dialog1Defs.h
@@ -0,0 +1 @@
+/*

	File: Dialog1Defs.h
	
	By	: Scott Kuechle
	
	Copyright:	©1988-1989 by Apple Computer Inc.
	All rights reserved.																			#}

*/



char OKButtonText[] = "\pOK";
char CancelButtonText[] = "\pCancel";
char SetPasswordButtonText[] = "\pSet Password";
char GuestButtonText[] = "\pGuest";
char RegUserButtonText[] = "\pRegistered User";
char NameEditBoxText[MaxNameLen];
char PasswordEditBoxText[MaxNameLen];
char MainTextBuf[] = "\pConnect to the file server";
char MainTextBuf2[] = "\pAlready connected to the file server";
char ServerNameTextBuf[] = "\pÒ^0Ó as:";
char NameTextBuf[] = "\pName:      ";
char PasswordTextBuf[] = "\pPassword: ";
char ScrambledTextBuf[] = "\p(Scrambled)";
extern char User_Name[NameLength];

Rect NameEditBoxRect = {80,142,94,380};
Rect PasswordEditBoxRect = {100,142,114,220};


ItemTemplate  OKButton = {
      ok,     /* ItemTemplate -  itemID */
      137,160,150,260,     /* ItemTemplate -  itemRect */
      buttonItem,     /* ItemTemplate - itemType */
      OKButtonText,     /* ItemTemplate - itemDescr */
      0,     /* ItemTemplate - itemValue */
      boldButton,     /* ItemTemplate - itemFlag */
      nil     /* pointer to appropreate ctl color table */
      };


ItemTemplate  CancelButton = {
      cancel,     /* ItemTemplate -  itemID */
      137,40,150,140,     /* ItemTemplate -  itemRect */
      buttonItem,     /* ItemTemplate - itemType */
      CancelButtonText,     /* ItemTemplate - itemDescr */
      0,     /* ItemTemplate - itemValue */
      simpRound,     /* ItemTemplate - itemFlag */
      nil     /* pointer to appropreate ctl color table */
      };

ItemTemplate  SetPasswordButton = {
      Id3,     /* ItemTemplate -  itemID */
      155,40,168,155,     /* ItemTemplate -  itemRect */
      buttonItem,     /* ItemTemplate - itemType */
      SetPasswordButtonText,     /* ItemTemplate - itemDescr */
      0,     /* ItemTemplate - itemValue */
      simpRound,     /* ItemTemplate - itemFlag */
      nil     /* pointer to appropreate ctl color table */
      };


ItemTemplate  GuestButton = {
      Id5,     /* ItemTemplate -  itemID */
      53,45,63,200,     /* ItemTemplate -  itemRect */
      radioItem,     /* ItemTemplate - itemType */
      GuestButtonText,     /* ItemTemplate - itemDescr */
      0,     /* ItemTemplate - itemValue */
      ctlVisible,     /* ItemTemplate - itemFlag */
      nil     /* pointer to appropriate ctl color table */
      };

ItemTemplate  RegUserButton = {
      Id6,     /* ItemTemplate -  itemID */
      68,45,78,200,     /* ItemTemplate -  itemRect */
      radioItem,     /* ItemTemplate - itemType */
      RegUserButtonText,     /* ItemTemplate - itemDescr */
      1,     /* ItemTemplate - itemValue */
      ctlVisible,     /* ItemTemplate - itemFlag */
      nil     /* pointer to appropriate ctl color table */
      };


ItemTemplate  NameEditBox = {
      Id7,     /* ItemTemplate -  itemID */
      90,70,104,300,     /* ItemTemplate -  itemRect */
      editLine,     /* ItemTemplate - itemType */
      NameEditBoxText,     /* ItemTemplate - itemDescr */
      31,     /* ItemTemplate - itemValue */
      0,     /* ItemTemplate - itemFlag */
      nil     /* pointer to appropreate ctl color table */
      };


ItemTemplate  PasswordEditBox = {
      Id8,     /* ItemTemplate -  itemID */
      108,103,122,180,     /* ItemTemplate -  itemRect */
      editLine,     /* ItemTemplate - itemType */
      PasswordEditBoxText,     /* ItemTemplate - itemDescr */
      8+EditBoxPwrdFlag,     /* ItemTemplate - itemValue */
      0,     /* ItemTemplate - itemFlag */
      nil     /* pointer to appropreate ctl color table */
      };

ItemTemplate  MainText = {
      Id9,     /* ItemTemplate -  itemID */
      15,15,25,305,     /* ItemTemplate -  itemRect */
      statText,     /* ItemTemplate - itemType */
      MainTextBuf,     /* ItemTemplate - itemDescr */
      0,     /* ItemTemplate - itemValue */
      0,     /* ItemTemplate - itemFlag */
      nil     /* pointer to appropreate ctl color table */
      };

ItemTemplate  NameText = {
      Id10,     /* ItemTemplate -  itemID */
      92,15,102,65,     /* ItemTemplate -  itemRect */
      statText,     /* ItemTemplate - itemType */
      NameTextBuf,     /* ItemTemplate - itemDescr */
      0,     /* ItemTemplate - itemValue */
      0,     /* ItemTemplate - itemFlag */
      nil     /* pointer to appropreate ctl color table */
      };


ItemTemplate  PasswordText = {
      Id11,     /* ItemTemplate -  itemID */
      110,15,120,85,     /* ItemTemplate -  itemRect */
      statText,     /* ItemTemplate - itemType */
      PasswordTextBuf,     /* ItemTemplate - itemDescr */
      0,     /* ItemTemplate - itemValue */
      0,     /* ItemTemplate - itemFlag */
      nil     /* pointer to appropreate ctl color table */
      };


ItemTemplate  ScrambledText = {
      Id12,     /* ItemTemplate -  itemID */
      110,205,120,290,     /* ItemTemplate -  itemRect */
      statText,     /* ItemTemplate - itemType */
      ScrambledTextBuf,     /* ItemTemplate - itemDescr */
      0,     /* ItemTemplate - itemValue */
      0,     /* ItemTemplate - itemFlag */
      nil     /* pointer to appropreate ctl color table */
      };

ItemTemplate  FSvrNameText = {
      Id14,     /* ItemTemplate -  itemID */
      26,15,36,305,     /* ItemTemplate -  itemRect */
      statText,     /* ItemTemplate - itemType */
      ServerNameTextBuf,     /* ItemTemplate - itemDescr */
      0,     /* ItemTemplate - itemValue */
      0,     /* ItemTemplate - itemFlag */
      nil     /* pointer to appropreate ctl color table */
      };

ItemTemplate  ActualUserName = {
      Id15,     /* ItemTemplate -  itemID */
      92,72,102,300,     /* ItemTemplate -  itemRect */
      statText,     /* ItemTemplate - itemType */
      User_Name,     /* ItemTemplate - itemDescr */
      0,     /* ItemTemplate - itemValue */
      0,     /* ItemTemplate - itemFlag */
      nil     /* pointer to appropreate ctl color table */
      };

DialogTemplate MyDialog = {
      18,10,195,320,     /* DialogTemplate -  dtBoundsRect */
      TRUE,     /* DialogTemplate -  dtVisible */
      nil,     /* DialogTemplate -  dtRefCon */
      &OKButton, &CancelButton,
      &SetPasswordButton, &FSvrNameText,
      &MainText, nil     /* DialogTemplate - Null terminated array */
      };

\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/Dialog2.c b/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/Dialog2.c
new file mode 100644
index 0000000..c56ae2c
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/Dialog2.c
@@ -0,0 +1 @@
+/*


	File: Dialog2.c
	
	By	: Scott Kuechle
	
	Copyright:	©1988-1989 by Apple Computer Inc.
	All rights reserved.

	17-Jan-91 David A. Lyons
		Added code to MyFilterProc for Return, ESC, Apple-Period, and bopping around in the
		list (ListKey).
	18-Feb-91 DAL
		Revved MyFilterProc to accept autoKeyEvt's in addition to keyDownEvt's.
	 1-Jul-91 MSD
	 	Added an error message to the volume list dialog in case there are more volumes
		returned than can be displayed in the list.  In this case, the list is truncated.
		Added check to make sure at least one volume is selected before turning a Return
		key or double-click into a hit on the OK button.  Fixed routine FixOkayStatus to
		actually return the status of the OK button.

*/

#include <types.h>
#include <window.h>
#include <dialog.h>
#include <control.h>
#include <desk.h>
#include <event.h>
#include <misctool.h>
#include <locator.h>
#include <list.h>
#include <QuickDraw.h>
#include <gsos.h>
#include <memory.h>
#include <string.h>
#include <strings.h>

#include "ASPDefs.h"
#include "Dialog2Defs.h"


extern int _toolErr;
extern struct MySRefNum SrvrSRefNum;
extern myMemRecPtr LastSelectedZone,SelectedMember;
extern Handle DataHndl;
extern char SlotDrive;
extern char MountFlag;
extern int VolID;
extern Word NetworkBoot;
extern char User_Name[NameLength],Password[NameLength];
extern struct OpenRecGS myOpen;
extern struct FileInfoRecGS myInfoRec;
extern char AUTOLOGON_Path[];
extern Word LogInAsGuest;
extern Byte Already_Logged_In;
extern Handle MyMessData;
extern ResultBuf32 buf;
extern char *separator;
extern ResultBuf32 theBootVol;
extern Word BootVoldevNum;
extern char pathbuf[255];

extern Word DoubleClick;
extern LongWord PrevTickCount;
extern Word OnePending;
extern Word MyUserID;

extern char VolPassBuf[9];

extern Handle MySrvrMessData;
extern Handle MyVolMessData;
extern Word PwrdWasChanged;
extern char NewPasswordBuf[9];

extern Word NetNum;
extern char NodeID,ScktNum;

extern int DoingAutoLogon;
extern Word LogInAsGuest;

extern Rect ControlPanelRect;

extern Word WritProtAlreadyShowed;
extern pascal Word  AlertWindow() inline(0x590e,dispatcher);   /* List */

extern pascal int cmail();
extern GSString255 syspath;


Word nothing;

GrafPortPtr Dialog2;

GetSrvrParmsInput CmdBuf;
GetSrvrParmsOutput ReplyBuf;

ListCtlRecHndl	VolListHndl;
CtlRecHndl	listScrollHandle;
LongWord	listRefCons,scrollRefCons;
CtlRecHndl OKButtonHndl, QuitButtonHndl;

VolList LSBuf[MaxVols];

Word NumBoxesChecked;

#define		CheckBoxSpace	35
#define		checked			true
#define		unchecked		false

myMemRecPtr currRec;
ServerInfo Srvr_Info;
VolumeInfo Vol_Info;
int Current_File_Pos;
ServerInfoPtr curr_Server_record;
VolumeInfoPtr curr_Volume_record;
longword curr_AUTOLOGON_size;
Word AnyChangesMade;
int ServerSaved;
char volbuf[MaxVolLength+1];
int SaveNameOnlyOriginalStatus = true;
int OneVolumeInitiallySelected;
Word PreviousFirstItem;
Word UserNameChanged;





char *CheckForVolPwrdMatch(data,volname)
char *data;
char *volname;
{
MyVolDataPtr p;

	p = (MyVolDataPtr)data;
	if ( (p->NetNum == NetNum) &&
			(p->NodeID == NodeID) &&
				(p->Socket == ScktNum) &&
					upstrcmp(&p->VolName[0],volname) == 0)
		return &p->Password[0];
	else
		return nil;

}


char *CheckForSrvrPwrdMatch(data)
char *data;
{
MySrvrDataPtr p;

	p = (MySrvrDataPtr)data;
	if ( (p->NetNum == NetNum) &&
			(p->NodeID == NodeID) &&
				(p->Socket == ScktNum) )
		return &p->Password[0];
	else
		return nil;

}


char *GetPwrdFromMessCenter(GetSrvrPwrd,volname)
Word GetSrvrPwrd;
char *volname;
{
int i,found;
char *DataPtr;
MessageDataPtr HeaderPtr;
Word count;
char *ThisIsIt;

			/* get current data from message center */
		if (GetSrvrPwrd)
		{		/* get server data */
			MessageCenter(getMessage,MySrvrMessID,MySrvrMessData);
			HeaderPtr = (MessageDataPtr)(*MySrvrMessData);
		}
		else	/* get volume data */
		{
			MessageCenter(getMessage,MyVolMessID,MyVolMessData);
			HeaderPtr = (MessageDataPtr)(*MyVolMessData);
			
		}
			/* how many passwords are currently saved? */
		count = HeaderPtr->MessCount;

			/* set up pointer to first record */
		DataPtr = (char *)(HeaderPtr) + sizeof(struct MessageData);

		if (count == 0)
		{
			return nil;
		}
		else
		{
			found = false;
			
				/* now check if server password is already saved */
			for (i=0; i<count && (found==false); ++i)
			{
					/* now check if current message center record matches the 
						server/volume we are looking at */

				if (GetSrvrPwrd)	/* are we looking for a server password? */
					ThisIsIt = CheckForSrvrPwrdMatch(DataPtr);
				else		/* no, looking for volume password */
					ThisIsIt = CheckForVolPwrdMatch(DataPtr,volname);
				
				if (ThisIsIt)
					found = true;
					
					/* move to next record */
				if (GetSrvrPwrd)	/* are we getting a server password? */
					DataPtr = DataPtr + sizeof(struct MySrvrData);
				else	/* no, getting a volume password */
					DataPtr = DataPtr + sizeof(struct MyVolData);
				
			}
			
			if (!found)
			{
				return nil;
			}
			else
			{
				return ThisIsIt;
			}
		}

}


	/* save password of all servers we log in to since later the user may want to
		auto-mount volumes from this server - there is no way for us to get the password
		from a server we are currently logged in to, thus we must save it somewhere
		so we can access it later */
		
StorePwrdInMessCenter(GetSrvrPwrd,volname)
Word GetSrvrPwrd;
char *volname;
{
int i,found;
char *DataPtr;
MessageDataPtr HeaderPtr;
Word count;
char *pwrd;


			/* get current data from message center */
		if (GetSrvrPwrd)
		{		/* get server data */
			MessageCenter(getMessage,MySrvrMessID,MySrvrMessData);
			HeaderPtr = (MessageDataPtr)(*MySrvrMessData);
		}
		else	/* get volume data */
		{
			MessageCenter(getMessage,MyVolMessID,MyVolMessData);
			HeaderPtr = (MessageDataPtr)(*MyVolMessData);
		}
		
			/* how many passwords are currently saved? */
		count = HeaderPtr->MessCount;

			/* set up pointer to first record */
		DataPtr = (char *)(HeaderPtr) + sizeof(struct MessageData);
		
		if (count == 0)
		{
			if (GetSrvrPwrd)
				AddSrvrPwrd();
			else
				AddVolPwrd(volname);			
		}
		else
		{
			found = false;
			
				/* now check if server password is already saved */
			for (i=0; i<count && (found==false); ++i)
			{
					/* now check if current message center record matches the 
						server/volume we are looking at */

				if (GetSrvrPwrd)	/* are we looking for a server password? */
					pwrd = CheckForSrvrPwrdMatch(DataPtr);
				else		/* no, looking for volume password */
					pwrd = CheckForVolPwrdMatch(DataPtr,volname);
				
				if (pwrd)
					found = true;
					
					/* move to next record */
				if (GetSrvrPwrd)	/* are we getting a server password? */
					DataPtr = DataPtr + sizeof(struct MySrvrData);
				else	/* no, getting a volume password */
					DataPtr = DataPtr + sizeof(struct MyVolData);
				
			}
			
			if (!found)		/* add this password if it was not found */
			{
				if (GetSrvrPwrd)
					AddSrvrPwrd();
				else
					AddVolPwrd(volname);
			}
		}

}



AddSrvrPwrd()
{
MessageDataPtr HeaderPtr;
char *DataPtr;
LongWord hdlsize;
int i;
MySrvrDataPtr SrvrData;


			/* since we are adding a password, we must resize the handle to
				accomodate the new data */
		hdlsize = GetHandleSize(MySrvrMessData);
		hdlsize = hdlsize + sizeof(struct MySrvrData);	/* add another record's worth */
		SetHandleSize(hdlsize,MySrvrMessData);

			/* set up pointers to data */
		HeaderPtr = (MessageDataPtr)(*MySrvrMessData);
		DataPtr = (char *)(HeaderPtr) + sizeof(struct MessageData);
		
			/* point to new space for data */
		for (i=0; i<HeaderPtr->MessCount; ++i)
		{
			DataPtr = DataPtr + sizeof(struct MySrvrData);
		}

			/* increment count of number of passwords stored */
		HeaderPtr->MessCount = HeaderPtr->MessCount + 1;
		
		SrvrData = (MySrvrDataPtr)DataPtr;
		
			/* store the new data */
		SrvrData->NetNum = NetNum;
		SrvrData->NodeID = NodeID;
		SrvrData->Socket = ScktNum;
		CopyPassword(&SrvrData->Password[0],Password,8);
	
			/* save the new password data */
		MessageCenter(addMessage,MySrvrMessID,MySrvrMessData);
	
}



AddVolPwrd(volname)
char *volname;
{
MessageDataPtr HeaderPtr;
char *DataPtr;
LongWord hdlsize;
int i;
MyVolDataPtr VolData;



			/* since we are adding a password, we must resize the handle to
				accomodate the new data */		
		hdlsize = GetHandleSize(MyVolMessData);
		
		hdlsize = hdlsize + sizeof(struct MyVolData);	/* add another record's worth */
		SetHandleSize(hdlsize,MyVolMessData);

			/* set up pointers to data */
		HeaderPtr = (MessageDataPtr)(*MyVolMessData);
		DataPtr = (char *)(HeaderPtr) + sizeof(struct MessageData);
	
				/* point to new space for data */
		for (i=0; i<HeaderPtr->MessCount; ++i)
		{
			DataPtr = DataPtr + sizeof(struct MyVolData);
		}

			/* increment count of number of passwords stored */
		HeaderPtr->MessCount = HeaderPtr->MessCount + 1;
		
		VolData = (MyVolDataPtr)DataPtr;
		
			/* store the new data */
		VolData->NetNum = NetNum;
		VolData->NodeID = NodeID;
		VolData->Socket = ScktNum;
		Pstrcpy(&VolData->VolName[0],volname);
		CopyPassword(&VolData->Password[0],VolPassBuf,8);
	
			/* save the new password data */
		MessageCenter(addMessage,MyVolMessID,MyVolMessData);
	
}


HideRadioButtons()
{
		/* hide radio buttons since box is now unchecked */
	HideDItem(Dialog2,Id8);
	HideDItem(Dialog2,Id9);
}


ShowRadioButtons()
{	
		/* re-draw radio buttons */
	ShowDItem(Dialog2,Id8);		
	ShowDItem(Dialog2,Id9);
	
}


char dimmedMask[] = {0x55,0xAA,0x55,0xAA,0x55,0xAA,0x55,0xAA};
char NORmask[] = {0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF};




pascal void Draw_One_Line(theRect,theMem,theList)
RectPtr theRect;
myMemRecPtr theMem;
ListCtlRecHndl theList;
{
int dbr,i;
Rect temp;
Word ActualFirstItem;
Word difference;


	dbr=SaveDB();


		/* this could be a scroll or a mouse down in the record itself, so
			we will draw the text for this record and then draw the check
			box associated with this record */
				
		/* chop-off rectangle so we dont draw over check box */
	(*theRect).h2 = (*theRect).h2 - CheckBoxSpace;

	MoveTo((*theRect).h1 + 10,(*theRect).v2 - 2);
	
	SetTextFace(0x0000);
	SetBackColor(white);
	SetForeColor(black);
	EraseRect(theRect);
	
	DrawString((*theMem).memPtr);		/* draw the actual text */
 

		/* we must show as dimmed those volumes that are already mounted
			or those volumes the user doesn't have privileges to mount */
	if (((*theMem).memFlag == memDisabled) || (*theMem).memFlag == (memDisabled + memSelected))
	{
		SetPenMask(dimmedMask);
		EraseRect(theRect);
		SetPenMask(NORmask);
	}


		/* highlight the text if selected */
	if ( (*theMem).memFlag == memSelected)
		InvertRect(theRect);

		/* restore rect. to original size */
	(*theRect).h2 = (*theRect).h2 + CheckBoxSpace;

		/* set up item that is the current first view-able item in the list */
	ActualFirstItem = (**VolListHndl).ctlValue;
	
		/* did the user scroll the list? */
	if (PreviousFirstItem != ActualFirstItem)
	{
			/* compute how many items (offset) were scrolled */
		difference = (PreviousFirstItem > ActualFirstItem) ? (PreviousFirstItem - ActualFirstItem) : (ActualFirstItem - PreviousFirstItem);
		
			/* did they scroll up? */
		if (PreviousFirstItem < ActualFirstItem)
			HideDItem(Dialog2,(*theMem).ckboxId - difference);	/* hide previous check box */
		else	/* no, scroll down */
			HideDItem(Dialog2,(*theMem).ckboxId + difference);	/* hide previous check box */
			
			/* if this item is the last view-able item we need to draw, then we
				can reset our flag - we cant reset this flag until all view-able
				items have been redrawn */
		if (theMem == &VolNamesBuf[ (ActualFirstItem - 1) + (VolListRec.listView - 1) ])
			PreviousFirstItem = ActualFirstItem;
	}
	
		/* now draw the actual check box */
	GetDItemBox(Dialog2,(*theMem).ckboxId,&temp);
	temp.v1 = (*theRect).v1 + 1;
	temp.h1 = (*theRect).h2 - CheckBoxSpace + 6;
	temp.v2 = (*theRect).v2 -1/*+ 1*/;
	temp.h2 = (*theRect).h2;	
	SetDItemBox(Dialog2,(*theMem).ckboxId,&temp);
	ShowDItem(Dialog2,(*theMem).ckboxId);

	RestoreDB(dbr);

}



ZeroRefCons()
{
   SetCtlRefCon(0L,VolListHndl);
   SetCtlRefCon(0L,listScrollHandle);
}

RestoreRefCons()
{
   SetCtlRefCon(listRefCons,VolListHndl);
   SetCtlRefCon(scrollRefCons,listScrollHandle);
}


void BlinkControl(handle)	/* added 19-Jan-91 DAL */
CtlRecHndl handle;
{
	HiliteControl(2,handle);
	HiliteControl(0,handle);
}


/* broke this out into a subroutine so I can call it after ListKey--18-Jan-91 DAL */
unsigned FixOkayStatus()
{
	unsigned anySelected = false, i;
	for (i=0; i<ReplyBuf.VolNameStrings; ++i)
		if (VolNamesBuf[i].memFlag == memSelected)
		{
			anySelected = true;
				/* make 'OK' button active since an item has now been selected */
			HiliteControl(noHilite,OKButtonHndl);
		}
	
	if (!anySelected)	/* no selected members found ? */
	{
			/* make 'OK' button inactive since all items have been de-selected */
		HiliteControl(inactiveHilite,OKButtonHndl);
	}
	
	return(anySelected);		/* added 1-Jul-91 MSD */
}


pascal Word myFilterProc(theDialog,theEvent,theItem)
GrafPortPtr	theDialog;
EventRecord	*theEvent;
unsigned *theItem;	/* was long *theItem; -- 17-Jan-91 DAL */
{
CtlRecHndl	tHandle;
Word PartCode;
int i;
int anySelected;
int dbr;
int flag;
LongWord DblClickTime;
unsigned tookEvent=0; /* added 18-Jan-91 DAL */

	dbr = SaveDB();
	
	if ((theEvent->what==keyDownEvt || theEvent->what==autoKeyEvt) && theDialog==Dialog2)  /* added 17-Jan-91 DAL, revved for autokey 18-Feb-91 DAL */
	{
		char key = (char) theEvent->message;
		if (key==0x0D) {
			if (FixOkayStatus()) {				/* only do OK if something selected 1-Jul-91 MSD */
				BlinkControl(OKButtonHndl);
				*theItem=1;  /* Return = OK button */
			}
			tookEvent++;
		}
		if ( (key==0x1B) || ((key=='.')&&(theEvent->modifiers&appleKey)) ) {
			BlinkControl(QuitButtonHndl);
			*theItem=2;  /* Apple-period or Escape = Quit button */
			tookEvent++;
		}
		if(!tookEvent)
		{
			if( (QDVersion() & 0x0fff) >= 0x0307)
			{
				ListKey(0,theEvent,VolListHndl);	/* let ListKey use arrows and other keys to jump around */
				FixOkayStatus();
			}
		}
	}

	if ((*theEvent).what == mouseDownEvt && theDialog==Dialog2)
	{
	
		PartCode = FindControl(&tHandle,(*theEvent).where,theDialog);
		if ((tHandle == VolListHndl) || (tHandle == listScrollHandle))
		{
			RestoreRefCons();
			PartCode = TrackControl((*theEvent).where,(LongProcPtr) -1, tHandle);
			ZeroRefCons();
			
			if (PartCode == 0x88)	/* mouse down in content of list control ? */
			{
					/* go through the list of volume names and see if one was selected
						since some of the names could be disabled (vols already mounted)
						and therefore are not selectable */

				anySelected = FixOkayStatus();			
				if(anySelected)
				{
					/* check for double-clicks here.... */

							/* was there previously a mouse down saved? */
					if (OnePending)
					{
							/* get current double-click time */
						DblClickTime = GetDblTime();
							/* was it a double-click? */
						if ( ((*theEvent).when - PrevTickCount) <= DblClickTime )
						{
							DoubleClick = true;
							OnePending = false;
						}
						else
						{
							DoubleClick = false;
							PrevTickCount = (*theEvent).when;
						}
					}
					else	/* no previous mouse down saved */
					{
						PrevTickCount = (*theEvent).when;
						OnePending = true;
					}

				}

				
			}

			RestoreDB(dbr);

			return (true);
		}
	}
	else
	{
	}

	RestoreDB(dbr);
	
	return (tookEvent);
}



int SetUpVolumeData(volrec)
myMemRecPtr volrec;
{
integer i;
Pointer pwrd;
int err;


	err = 0;
	Vol_Info.Volume_Flags = 0;
	if ((*volrec).NodeID & PwrdFlag)	/* is this a password protected volume? */
	{
		Vol_Info.Volume_Flags = AutoLogonPwrdFlag;	/* yes, so set password flag */
		
			/* is the item dimmed? (meaning it is currently mounted) */
		if ((*volrec).memFlag == memDisabled)
		{
				/* yes, so get password from message center */
			pwrd = GetPwrdFromMessCenter((Word)false,(*volrec).memPtr);
			if (pwrd == nil)
			{

				/* what do we do here? password was not found in message center! */
			}
			else
				CopyPassword(&Vol_Info.Volume_Password[0],pwrd,8);

		}
		else	/* not in message center?, we'll probably have to ask user to enter it */
		{
				/* try and see if it is in message center */
			pwrd = GetPwrdFromMessCenter((Word)false,(*volrec).memPtr);
			if (pwrd == nil)	/* not found in the message center? */
			{
					/* well have to ask the user to enter it */
				MountFlag = MountBit;
				if ((*volrec).NodeID & UserVolBit)	/* is this a user volume ? */
					MountFlag = MountFlag | UserVolBit;	/* yes, so specify this in the mount call */
			
					/* put up password dialog - we must mount the volume to ensure
						that the password they type is a valid one */
				err = Do_Vol_Pwrd_Dialog(MountFlag,(*volrec).memPtr,&VolID,&SlotDrive);
				if (!err)	/* no error getting password? */
				{
						/* now un-mount the volume */
					MountFlag = 0;
					err = cFIMountVol(MountFlag,(*volrec).memPtr,0L,&VolID,&SlotDrive,0);
					
						/* save password the user typed in */
					CopyPassword(&Vol_Info.Volume_Password[0],VolPassBuf,8);
				}
			}
			else	/* save what we got from message center */
			{
				CopyPassword(&Vol_Info.Volume_Password[0],pwrd,8);
			}
			
		}
			/* passwords in the APPLESHARE.PREP file must be scrambled */
		Scramble(&Vol_Info.Volume_Password[0]);
	}

	if ((*volrec).NodeID & UserVolBit)	/* is this a user volume ? */
		Vol_Info.Volume_Flags = Vol_Info.Volume_Flags | myUserVolBitFlag;	/* yes, so set flag for boot-time logon code */

		/* now save volume name */
	Pstrcpy(&Vol_Info.Volume_Name.textLength,(*volrec).memPtr);

	/*  return 0		= add this volume to the list.
		return non-zero = couldn't mount volume or it was password protected and
							couldn't mount it or user hit cancel button when prompted
							to enter the password.
	*/
	
	return err;
}





SetUpServerData()
{
integer i,value;
char *Pwrd;
char temp[9];
Pointer p;

		
		/* must keep track of changes to the user name */
	UserNameChanged = false;
	
		/* first check radio button settings, but only if one of the check
			boxes is set and only if we are logged in as a registered user
			since guest login means we dont draw the save name and password
			radio buttons */
	if (NumBoxesChecked && User_Name[0] != 0)
	{
		value = GetDItemValue(Dialog2,Id8);		/* get status of "save name only" button */
		if (value == 0)							/* is it currently off? */
			Srvr_Info.Server_Flags = 0;			/* dont need to ask for password */
		else
			Srvr_Info.Server_Flags = AutoLogonPwrdFlag;		/* must ask for password */
	}
	else
		Srvr_Info.Server_Flags = 0;		/* dont need to ask for password */


	Pstrcpy(&Srvr_Info.Server_Name.textLength,SelectedMember->memPtr);	/* save server name */

	p = LastSelectedZone->memPtr;
	if (*p == 0)
	{
		Srvr_Info.Server_Zone.textLength = 0;	/* save null zone name */
			/* if match was found in APPLESHARE.PREP file, we must update zone name
				because it could have been non-null (i.e. a valid zone name) and we
				now need to save a null zone name */
		if (ServerSaved)
			curr_Server_record->Server_Zone.textLength = 0;
	}
	else
	{
		Pstrcpy(&Srvr_Info.Server_Zone.textLength,LastSelectedZone->memPtr);	/* save zone */
			/* if match was found in APPLESHARE.PREP file, we must update zone name
				because it could have been null (no zones) */
		if (ServerSaved)
			Pstrcpy(&curr_Server_record->Server_Zone.textLength,LastSelectedZone->memPtr);		
	}


	for (i=0 ; i<8 ; ++i)
		Srvr_Info.Server_Password[i] = 0;	/* pad with nulls first */
		
		/* if we are already logged in to the given server, then we must get the password
			from the message center (we stored it there earlier). If we didn't store it there,
			we would have no way of getting it at this point. */
	if (Already_Logged_In)
	{
		Pwrd = GetPwrdFromMessCenter((Word)true,nil);
		 if (Pwrd == nil)  
		{
				/* if the password was not found in the message center and yet the
					volume is currently mounted, the the user must have mounted the volume
					using some other logon program (probably the ProDos8 Logon program). In
					this case the volume cannot be set for mounting at boot time since
					we do not have the password at this point. */
			if (!ServerSaved)  
			{
					/* put up error dialog only if the user has designated the volume to
						be mounted at boot time */
				if (NumBoxesChecked)
				{
					Show_Alert_Message(Caution_Alert,"\pThe selected volumes werenÕt\rmounted with the Control Panel.\rYour name and password can\ronly be saved if you log on to\ra server from the Control\rPanel.");
						/* we must de-select all auto-logon boxes that were selected */
					NumBoxesChecked = 0;
					for (i=0 ; i<VolListRec.listSize ; ++i)
						VolNamesBuf[i].ScktNum = false;		/* un-check the box */

				}
			}
			else
			{
				/* if the password wasn't found in the message center, it must be a server that
					was logged in to at boot time (auto-logon) so we can get the password from the
					APPLESHARE.PREP file */
				CopyPassword(&Srvr_Info.Server_Password[0],&curr_Server_record->Server_Password[0],8);
					
					/* must de-scramble the password before we use it */
				Scramble(&Srvr_Info.Server_Password[0]);
			}

		}
		else	/* found it in the message center */
		{
			CopyPassword(&Srvr_Info.Server_Password[0],Pwrd,8);
		}
		
		CopyPassword(Password,&Srvr_Info.Server_Password[0],8);

	}
	else
	{
		CopyPassword(&Srvr_Info.Server_Password[0],Password,8);
	}

		/* get current user name */
	Pstrcpy(&Srvr_Info.User_Name.textLength,User_Name);
	
		/* now check if the user name/password has changed on us */
	if (ServerSaved)	/* is this server currently saved in APPLESHARE.PREP ? */
	{
			/* is new user name different than what is currently saved? */
		if (upstrcmp(&curr_Server_record->User_Name.textLength,User_Name) != 0)
		{
			UserNameChanged = true;
			
				/* copy in new name */
			Pstrcpy(&curr_Server_record->User_Name.textLength,User_Name);
				/* copy in new password also */
			CopyPassword(&curr_Server_record->Server_Password[0],&Srvr_Info.Server_Password[0],8);
				/* passwords stored in the APPLESHARE.PREP file must be scrambled */
			Scramble(&curr_Server_record->Server_Password[0]);
			
			AnyChangesMade = true;	/* 'force' an update of the APPLESHARE.PREP file */
		}

			/* get currently saved password */
		CopyPassword(temp,&curr_Server_record->Server_Password[0],8);
			/* de-scramble it so we can do a compare */
		Scramble(temp);
		
			/* did the user change the password on us? (using the 'Set Password' option) */
		if (PwrdWasChanged)
		{
				/* is the new one different than what is currently saved? */
			if (strcmp(temp,NewPasswordBuf) != 0)
			{
				CopyPassword(&curr_Server_record->Server_Password[0],NewPasswordBuf,8);
					/* passwords stored in the APPLESHARE.PREP file must be scrambled */
				Scramble(&curr_Server_record->Server_Password[0]);

				CopyPassword(Password,NewPasswordBuf,8);
				
				AnyChangesMade = true;	/* 'force' an update of the APPLESHARE.PREP file */
			}
		}	/* was the password changed using the Admin. program on the server? */
		else if (strcmp(temp,Password) != 0 && !Already_Logged_In)
		{
				/* copy in the new password */
			CopyPassword(&curr_Server_record->Server_Password[0],Password,8);
				/* passwords stored in the APPLESHARE.PREP file must be scrambled */
			Scramble(&curr_Server_record->Server_Password[0]);
			AnyChangesMade = true;	/* 'force' an update of the APPLESHARE.PREP file */
		}
	}
	else	/* server is not currently saved in the APPLESHARE.PREP file */
	{
			/* was password changed using the 'Set Password' option? */
		if (PwrdWasChanged)
		{		/* update our buffers */
			CopyPassword(&Srvr_Info.Server_Password[0],NewPasswordBuf,8);
			CopyPassword(Password,NewPasswordBuf,8);
		}
	}

		/* passwords stored in the APPLESHARE.PREP file must be scrambled */
	Scramble(&Srvr_Info.Server_Password[0]);

		

	Srvr_Info.Volume_Count = 0;
}





ToggleRadioButtons(itemHit)
Word itemHit;
{
integer value;


	value = GetDItemValue(Dialog2,itemHit);		/* get status of button that was hit */
	if (value == 0)							/* is it currently off? */
	{
		SetDItemValue(1,Dialog2,itemHit);	/* turn it on */
		if (itemHit == NameButton.itemID)
			SetDItemValue(0,Dialog2,NamePwrdButton.itemID);	/* turn off "save name only" button */
		else
			SetDItemValue(0,Dialog2,NameButton.itemID);	/* turn off "save name and password" button */
		
	}

}



GetCheckBoxValues()
{
int i;
Word value;

	for (i=0 ; i<VolListRec.listSize ; ++i)
	{
			/* get the value of the check box control for this volume name */
		value = GetDItemValue(Dialog2,VolNamesBuf[i].ckboxId);
			/* set my internal flag if the check box is set */
		if (value)
			VolNamesBuf[i].ScktNum = true;
		else
			VolNamesBuf[i].ScktNum = false;
	}
}



SetUserPath()
{
int err,i,len;
char *p;


		/* get the path: "/User Vol/USERS/User Name" here from the AppleShare FST */
	AShareFST_GetUserPath((Long)&p);
	if (_toolErr)
		pathbuf[0] = 0;		/* set string to null if we got an error */
	else
	{
			
			/* now convert the GS/OS string we got to a pascal string */	
		len = p[0];
		for (i=2; i<len+2; ++i)
		{
			pathbuf[i-1] = p[i];	/* shift chars over */
				/* change all ':' to '/' */
			if (pathbuf[i-1] == ':')
				pathbuf[i-1] = '/';
		}
		pathbuf[0] = len;
			
			/* append '/' directory onto path for PFIUserPrefix call below */
		Pappend(pathbuf,"\p/");
	}

		/* now set the prefix used by PFI */
	err = cFIUserPrefix(pathbuf);

}


Go_Mount_Vols()
{
int i,err;
int PwrdAlreadySaved;
int OneWasMounted;


	PwrdAlreadySaved = OneWasMounted = false;
	for (i=0 ; i<VolListRec.listSize ; ++i)
	{
		if ( (VolNamesBuf[i].memFlag & UserVolBitMask) == memSelected)
		{
		
			if (!PwrdAlreadySaved && !Already_Logged_In)
			{
				PwrdAlreadySaved = true;

				/* save the password using the message center here - but only do it once
					and only do it if we are not currently logged in to this server (in that
					case it is null which is the whole reason we are saving it!) */
				StorePwrdInMessCenter((Word)true,nil);
			}
			MountFlag = MountBit;
			if (VolNamesBuf[i].NodeID & UserVolBit)	/* is this a user volume ? */
				MountFlag = MountFlag | UserVolBit;	/* yes, so specify this in the mount call */
			
				/* now check if volume is password protected... */
			if (VolNamesBuf[i].NodeID & PwrdFlag)
			{		/* yes, so ask user to enter it... */
				err = Do_Vol_Pwrd_Dialog(MountFlag,VolNamesBuf[i].memPtr,&VolID,&SlotDrive);
					
					/* if the volume was successfully mounted, then we must save the volume 
						password in the message center */
						
				if (!err)
				{
					StorePwrdInMessCenter((Word)false,VolNamesBuf[i].memPtr);
					
					
				}

			}
			else	/* volume not password protected */
			{
				err = cFIMountVol(MountFlag,VolNamesBuf[i].memPtr,0L,&VolID,&SlotDrive,0);
				if (err)
					Show_PFI_Error(err);

			}
		
				/* set flag if any volumes were successfully mounted */
			if (err==0)  
			{
				OneWasMounted = true;
				if (VolNamesBuf[i].NodeID & UserVolBit)  
				{
				mailpath(VolNamesBuf[i].memPtr);  /* create the pathname to the mail folder  */
		
				 /*  cmail(&syspath); */		/* check for mail */
				}
			}
		
		}
		
		
	}
	
		/* logout from the server if no volumes were successfully mounted (provided
			we were not previously logged in) */
	if (err && !Already_Logged_In && !OneWasMounted)
		err = cFILogout();
cmail(&syspath);	
}




HandleItemsHit()
{
int i,err;
byte done;
Word itemHit,ctlvalue;
CtlRecHndl CtlHndl;
int denied;

	done = false;
	
	do
	{
					/* set bit 31 in mask so that standard filter proc. is called after ours */
		itemHit = ModalDialog((WordProcPtr)((long)myFilterProc | 0xC0000000));
		
			/* if there was a double-click, we must treat it just like the 'OK'
				button being selected */
		if (DoubleClick)
		{
			itemHit = ok;	/* fake the event to be a hit in the 'OK' button */
			BlinkControl(OKButtonHndl); /* added 18-Jan-91 DAL */
		}
			
		switch (itemHit)
		{
			case Id1:	/* OK button */

					GetCheckBoxValues();
	
					Go_Mount_Vols();

						/* set up path to user's folder */
					SetUserPath();
					
					UpdateAUTOLOGONfile();
					done = true;
				break;
				
			case Id2:	/* Quit button */

					GetCheckBoxValues();
					
					UpdateAUTOLOGONfile();
						
						/* user has selected 'quit' so terminate the session only if
							the user is not already logged on to this server and only
							if there is currently a user volume mounted */
					if (!Already_Logged_In)
						err = cFILogout();

						/* set up path to user's folder */
					SetUserPath();
					
					done = true;
				break;
				
			case Id8:	/* 'save my name' radio button */
			case Id9:	/* 'save my name and password' radio button */
					ToggleRadioButtons(itemHit);
				break;
				
			default:
			
				denied = false;
				
					/* check if a check box was selected */
					
				if (itemHit>=Id10 && itemHit<=(Id10+MaxVols))	/* was this one of our check boxes? */
				{
					CtlHndl = GetControlDItem(Dialog2,itemHit);
					ctlvalue = GetCtlValue(CtlHndl);	/* get value to see if it is checked or not */
					if (ctlvalue)	/* was the box checked? */
					{
						SetCtlValue(0,CtlHndl);		/* un-check the box */
							/* keep track of how many boxes are checked */
						NumBoxesChecked = NumBoxesChecked - 1;
							/* hide radio buttons only if no boxes are checked */
						if (NumBoxesChecked == 0)
							HideRadioButtons();
					}
					else	/* box was not currently checked */
					{
						for (i=0; i<VolListRec.listSize; ++i)
						{
							if (VolNamesBuf[i].ckboxId == itemHit)	/* find vol record associated with this check box */
								if (VolNamesBuf[i].privflag == true)		/* are privileges denied on this volume for this user? */
									denied = true;	/* yes! */
						}
						
						if (!denied)	/* check the box only if we have privileges */
						{
							SetCtlValue(1,CtlHndl);		/* check the box */
							
								/* keep track of how many boxes are checked */
							NumBoxesChecked = NumBoxesChecked + 1;
							
								/* only need to draw radio buttons the first time a box
									is checked - but only draw them if we are a registered
									user since for guest login we dont draw them. */
							if (NumBoxesChecked == 1 && !LogInAsGuest)
								ShowRadioButtons();
						}
						else
							Show_Alert_Message(Stop_Alert,"\pAccess denied.");

					}
					DrawOneCtl(CtlHndl);
				}

				break;
		}
	} while (!done);

}


	/* this returns true if the server stored in the APPLESHARE.PREP file matches
		the server currently under consideration */
Word ServerMatch(pos)
ServerInfoPtr pos;
{
Pointer p;

	p = LastSelectedZone->memPtr;
	
		/* do server names match? */
	if (upstrcmp(&pos->Server_Name.textLength,SelectedMember->memPtr) == 0)
	{

			/* do zone names match? */
		if (upstrcmp(&pos->Server_Zone.textLength,LastSelectedZone->memPtr) == 0)
			return true;
		else if (pos->Server_Zone.textLength == 0 || *p == 0)
		{		/* one of the zone names is null, so count that as a match */
			AnyChangesMade = true;
			return true;
		}
		else
			return false;	/* no match found */
	}
	else
		return false;	/* no match found */
}


	/* this procedure checks to see if the current server has already been saved
		in the users APPLESHARE.PREP file */

int IsServerAlreadySaved()
{
ServerInfoPtr pos;
VolumeInfoPtr pos2;
Word ServerCount;
Pointer p;
Integer i,j,count,found;
char *x,*y;

	found = false;		/* server starts out as not found */

		/* check only if we were able to open the APPLESHARE.PREP file successfully */
	if (DataHndl != nil)
	{
		p = (*DataHndl);		/* de-reference handle */
		ServerCount = *p;		/* get number of servers stored in the file */
		p = p + 2;				/* point to first server info record */
		pos = (ServerInfoPtr)p;		/* point to first server info record */
		
	
		for (i=0; i<ServerCount && !found; ++i)
		{
				/* loop through all servers to see if we find a match */
			/*if (upstrcmp(&pos->Server_Name.textLength,SelectedMember->memPtr) == 0 && upstrcmp(&pos->Server_Zone.textLength,LastSelectedZone->memPtr) == 0)*/
			if (ServerMatch(pos))
			{
				found = true;	/* yes, we found it */
				curr_Server_record = (ServerInfoPtr)pos;	/* save position in file of server info rec */
			}
			else	/* move ahead to next server info record */
			{
				count = (*pos).Volume_Count;	/* get number of volumes */
				pos = pos + 1;		/* move over server record to first volume info record */
				pos2 = (VolumeInfoPtr)pos;	/* point at first volume record for this server */
				for (j=0; j<count; ++j)
					pos2 = pos2 + 1;		/* skip over all volume info rec's for the current server */
				pos = (ServerInfoPtr)pos2;		/* point to next server info record for compare above */
			}
		}
	}
	
	return found;
}



	/* the current server was not found in the file, so we will append it onto
		the end-of-file */
		
AddServer()
{
Pointer dest,p;

		/* first check if we can add any more entries */
	if ( (curr_AUTOLOGON_size + ServerRecSize) >= MaxFileSize)
	{
			/* error - cant add any more entries!!!! */
		Show_Alert_Message(Stop_Alert,"\pSorry. No more volumes may\r be set for mounting at\r system startup time.");
	}
	else
	{
			/* yes, need to update APPLESHARE.PREP file upon close of this dialog
				because we are adding a server. */
		AnyChangesMade = true;

		
		dest = (*DataHndl) + curr_AUTOLOGON_size;	/* destination points to end-of-file */
		curr_Server_record = (ServerInfoPtr)dest;		/* save pointer to current server info record */
		BlockMove((Pointer)&Srvr_Info,dest,(longword)ServerRecSize);	/* copy server info */
		
		curr_AUTOLOGON_size = curr_AUTOLOGON_size + ServerRecSize;	/* update current size of file */
		p = (*DataHndl);	/* get pointer to Number_of_Servers field */
		*p = *p + 1;	/* we added a server so we must increment this count */
		
	}
}


DeleteServer()
{
LongWord SizeToBeMoved;
Pointer eof,p;


		AnyChangesMade = true;		/* yes, need to update APPLESHARE.PREP file upon close of this dialog */

		
		eof = (*DataHndl) + curr_AUTOLOGON_size;
		SizeToBeMoved = (LongWord)(eof - (Pointer)(curr_Server_record + 1));

			/* shift data over the record we want to delete */
		BlockMove((Pointer)(curr_Server_record + 1),(Pointer)curr_Server_record,SizeToBeMoved);
			
			/* adjust size of file */
		curr_AUTOLOGON_size = curr_AUTOLOGON_size - ServerRecSize;
		
		p = (*DataHndl);	/* get pointer to Number_of_Servers field */
		*p = *p - 1;	/* we deleted a server so we must decrement this count */

}


integer IsVolAlreadySaved(volname)
char *volname;
{
integer i,found;


	found = false;
	
			/* point to first volume record for the current server */
	curr_Volume_record = (VolumeInfoPtr)(curr_Server_record + 1);
	
			/* now loop through each volume looking for a match */
	for (i=0; i < (*curr_Server_record).Volume_Count && !found; ++i)
	{
		if (upstrcmp(volname,&curr_Volume_record->Volume_Name.textLength) == 0)	/* do volume names match? */
			found = true;
		else
			curr_Volume_record = curr_Volume_record + 1;	/* move to next volume record */
	}
	
	return found;
}


	/* to delete a volume we simply shift any data beyond the volume record on top of
		the volume record itself */
		
DeleteVolume()
{
LongWord SizeToMove;
Pointer eof;


		AnyChangesMade = true;		/* yes, need to update APPLESHARE.PREP file upon close of this dialog */

		
		eof = (*DataHndl) + curr_AUTOLOGON_size;
		SizeToMove = (LongWord)(eof - (Pointer)(curr_Volume_record + 1));

			/* shift data over the record we want to delete */
		BlockMove((Pointer)(curr_Volume_record + 1),(Pointer)curr_Volume_record,SizeToMove);
		
			/* adjust size of file */
		curr_AUTOLOGON_size = curr_AUTOLOGON_size - VolRecSize;
		
			/* adjust volume count for the server */
		(*curr_Server_record).Volume_Count = (*curr_Server_record).Volume_Count - 1;
		
}


AddVolume()
{
LongWord SizeToBeMoved;
Pointer source,dest;
Word value;
integer i;


	AnyChangesMade = true;		/* yes, need to update APPLESHARE.PREP file upon close of this dialog */

		/* first check if we can add any more volumes */
	if ( (curr_AUTOLOGON_size + VolRecSize) >= MaxFileSize)
	{
		/* error - volume limit reached!!!! */
		Show_Alert_Message(Stop_Alert,"\pSorry. No more volumes may\r be set for mounting at\r system startup time.");
	}
	else
	{
		
	/* next we must provide a space to insert our new volume, so we shift all
		data down by one volume record's worth of space */
		
			/* source points to data after the current server record and its volumes */
		source = (Pointer)curr_Server_record + ServerRecSize + ((*curr_Server_record).Volume_Count * VolRecSize);
			
			/* destination is one volume record offset from current location since
				we are inserting a volume record's worth of data */
		dest = source + VolRecSize;
		
			/* shift data only if we arent appending to end-of-file */		
		if (dest <= ( (*DataHndl) + curr_AUTOLOGON_size)	)
		{
				/* (# bytes to be moved) = eof - (ptr to insertion point) */
			SizeToBeMoved = ( (*DataHndl) + curr_AUTOLOGON_size) - source;
			
				/* shift data down to clear space for volume info */
			BlockMove(source,dest,(LongWord)SizeToBeMoved);
		}
		
			/* add the volume info */
		BlockMove((Pointer)&Vol_Info,source,(LongWord)VolRecSize);

		curr_AUTOLOGON_size = curr_AUTOLOGON_size + VolRecSize;	/* update current size of file */
		
			/* must increment the volume count for the current server */
		Srvr_Info.Volume_Count = Srvr_Info.Volume_Count + 1;
		(*curr_Server_record).Volume_Count = (*curr_Server_record).Volume_Count + 1;

		CopyPassword(&curr_Server_record->Server_Password[0],Password,8);

			/* passwords stored in the APPLESHARE.PREP file must be scrambled */
		Scramble(&curr_Server_record->Server_Password[0]);
		
		value = GetDItemValue(Dialog2,NameButton.itemID);		/* is "save name only" button set? */
		if (!value)
		{		/* save both name and password */
			(*curr_Server_record).Server_Flags = 0;	/* dont need to ask for password */
		}
		else	/* save name only so we must ask for password */
			(*curr_Server_record).Server_Flags = AutoLogonPwrdFlag;	/* must ask user for password */

	}
}



UpdateAUTOLOGONfile()
{
integer i,VolumeSaved,err;


		Do_AUTOLOGON_data(Get);		/* open current APPLESHARE.PREP file */

			/* do updates only if we have a valid APPLESHARE.PREP file */
		if (DataHndl != nil)	/* is file valid? */
		{
			VolumeSaved = false;
			ServerSaved = IsServerAlreadySaved();		/* is the server already saved in the file? */

	
			SetUpServerData();

				/* now loop through all volumes in the list to see which ones were checked */
			for (i=0 ; i<VolListRec.listSize ; ++i)
			{
				if (ServerSaved)	/* check if volume is already saved only if current server is */
				{
					VolumeSaved = IsVolAlreadySaved(VolNamesBuf[i].memPtr);		/* is volume in the file already? */			
				}
				
				if (VolNamesBuf[i].ScktNum)		/* was the autologon box checked? */
				{
					if(!VolumeSaved)	/* dont save again if it is already saved */
					{
						if (!ServerSaved)	/* dont save server again if it is already saved */
						{
							AddServer();
							ServerSaved = true;
						}
						err = SetUpVolumeData(&VolNamesBuf[i]);
						
							/* add volume only if no error condition */
						if (!err)
							AddVolume();
					}
				}
				else	/* delete volume from file if it is currently stored since check box was unchecked */
				{		/* (but only delete if they have logged in with the same user name) */
					if (VolumeSaved && !UserNameChanged)
						DeleteVolume();

				}
			}

						/* have we deleted all volumes for the current server? */
			if ( ((*curr_Server_record).Volume_Count < 1) && ServerSaved)
			{
				DeleteServer();		/* no more volumes, so we must delete the server */
			}

				/* if there is a check box active....this means that the "Save Name Only"
					and "Save Name and Password" radio buttons are active */
			if (NumBoxesChecked)
			{

					/* now check if the current settings of the "Save Name Only"
						and "Save Name and Password" buttons differ from what they
						were originally set to - if so we must update the APPLESHARE.PREP
						file. */
				if ( (Srvr_Info.Server_Flags == AutoLogonPwrdFlag) &&
						(SaveNameOnlyOriginalStatus == false) )
						{
								/* update to new password flag */
							curr_Server_record->Server_Flags = Srvr_Info.Server_Flags;
							AnyChangesMade = true;
						}
				else if ( (Srvr_Info.Server_Flags == 0) &&
							(SaveNameOnlyOriginalStatus == true) )
						{
								/* update to new password flag */
							curr_Server_record->Server_Flags = Srvr_Info.Server_Flags;
							AnyChangesMade = true;
						}
			}
			
				/* only update APPLESHARE.PREP file if changes were made - and
					only if they have logged in with the same user name */
			if (AnyChangesMade && !(UserNameChanged && NumBoxesChecked == 0) )
				Do_AUTOLOGON_data(Set);		/* save changes to APPLESHARE.PREP file */
			else
				DisposeHandle(DataHndl);	/* get rid of our memory handle */
		}
}





Set_Up_Controls()
{
Word flag;


		/* create radio buttons (invisible to start) for autologon stuff */
	flag = ctlInVis;	/* radio buttons start out as invisible */
		/* are any boxes checked? - if so we must draw the save name and password
			radio buttons but only if we are logged in as a registered user. */
	if (NumBoxesChecked && !LogInAsGuest)
		flag = 0;	/* yes, so display radio buttons initially */
	
	NameButton.itemFlag = flag;		/* make it invisible/visible */
	NameButton.itemValue = SaveNameOnlyOriginalStatus;		/* will be selected to start if password flag was set in vol record */

	NamePwrdButton.itemFlag = flag;		/* make it invisible/visible */	
	NamePwrdButton.itemValue = SaveNameOnlyOriginalStatus ^ 1;		/* set to opposite of 'save name only' button */	
	
	GetNewDItem(Dialog2,&NameButton);
	GetNewDItem(Dialog2,&NamePwrdButton);
	
	VolListRec.listDraw = Draw_One_Line;
	VolListHndl = CreateList(Dialog2,&VolListRec);

	SortList(1L,&VolListRec);	/* added 17-Jan-91 DAL--compareProc=1L does a case-insensitive sort */

	SelectMember2(1,VolListHndl);  /* added 25-Mar-91 DAL */

	listScrollHandle = (**VolListHndl).ctlListBar;

	listRefCons = GetCtlRefCon(VolListHndl);
	scrollRefCons = GetCtlRefCon(listScrollHandle);
	ZeroRefCons();
	
			/* get control handle to 'OK' button */
	OKButtonHndl = GetControlDItem(Dialog2,Id1);
	QuitButtonHndl = GetControlDItem(Dialog2,Id2); /* added 19-Jan-91 DAL */
	
		/* the 'OK' button must be enabled if there was a mount-able volume shown as
			initially selected in the list */
	if (OneVolumeInitiallySelected)
		HiliteControl(noHilite,OKButtonHndl);	/* enable the button */
	else
	{
			/* make 'OK' button inactive since no volume was selected */
		HiliteControl(inactiveHilite,OKButtonHndl);
	}

}




CreateSecondDialog()
{
Word itemHit;
LongWord itemHitInfo;
int err,i,j;
int ptr,val;
integer VolSaved;
long AccessRights;
char *rights;
char parmflag;
char EntriesReturned;



	#undef	dtItemListLength
	#define	dtItemListLength	0x07
	
		/* position dialog on the screen for 640/320 mode */
	SetDialogPosition(&MyDialog2);
	
	DoubleClick = false;
	PrevTickCount = 0;
	OnePending = false;
	
		/* this flag gets set if there is one (any) mount-able volume in the list that
			can be highlighted when the list is first put up. */
	OneVolumeInitiallySelected = false;

		/* make the FPGetSrvrParms call to get a list of volumes */
	CmdBuf.command = FPGetSrvrParmsCmd;
	err = cSPCommand(sizeof(struct GetSrvrParmsInput),&CmdBuf,
					sizeof(struct GetSrvrParmsOutput),&ReplyBuf,0);

		/* set size of volume names list */
	VolListRec.listSize = ReplyBuf.VolNameStrings;
	if (VolListRec.listSize > MaxVols) {
		Show_Alert_Message(Stop_Alert,"\pThere are too many volumes\r"
										"to display.  As many as pos-\r"
										"sible will appear in the list.");
		VolListRec.listSize = MaxVols;
	}
	
		/* initialize this value used in drawing check boxes (see Draw_One_Line() ) */
	PreviousFirstItem = 1;

		/* find out which volumes are currently on-line */
	EntriesReturned = cFIListSessions();

	AnyChangesMade = false;		/* no changes made to APPLESHARE.PREP file initially */
	Do_AUTOLOGON_data(Get);		/* open APPLESHARE.PREP file */
	ServerSaved = IsServerAlreadySaved();		/* is this server currently saved in the file? */
	
		/* copy our volume name strings into our list record member record for display */
		
	ptr = 1;	/* skip password flag, set pointer to first name initially */
	for (i=0; i<VolListRec.listSize; ++i)
	{
		VolNamesBuf[i].NodeID = ReplyBuf.VolInfo[ptr-1];	/* save password flag, config flag here */
		VolNamesBuf[i].memPtr = &ReplyBuf.VolInfo[ptr];	/* place pointer to name into my list record */
		
		if (ServerSaved)	/* is server saved in APPLESHARE.PREP file? */
		{
			VolSaved = IsVolAlreadySaved(VolNamesBuf[i].memPtr);
				/* display check boxes on/off depending on whether or not the volume is saved
					and only display them if the current user name is the same as the user name
					saved in the APPLESHARE.PREP file. */
			if (VolSaved && upstrcmp(&curr_Server_record->User_Name.textLength,User_Name) == 0)
			{
					/* check if password flag is set - if so, then we must show the
						'save name only' radio button as set initially */
				if ( (*curr_Server_record).Server_Flags & AutoLogonPwrdFlag)
					SaveNameOnlyOriginalStatus = true;
				VolNamesBuf[i].ScktNum = true;	/* check box for auto-logon starts out as checked */
			}
			else
				VolNamesBuf[i].ScktNum = false;	/* check box for auto-logon starts out as unchecked */

		}
		else
			VolNamesBuf[i].ScktNum = false;	/* check box for auto-logon starts out as unchecked */
		
		VolNamesBuf[i].privflag = false;	/* denied privileges flag starts out as false */		
		VolNamesBuf[i].memFlag = 0;		/* volume starts out as un-selected */


		for (j=0 ;j<EntriesReturned; ++j)
		{
				/* Compare this volume with those in the the on-line list. 
					If we find it then it is already mounted as thus should be made
					non-selectable. */
				
			if ( (upstrcmp(&ReplyBuf.VolInfo[ptr],&LSBuf[j].VolName[0]) == 0) && (SrvrSRefNum.SRefNum == LSBuf[j].SRefNum) )
				VolNamesBuf[i].memFlag = memDisabled;
		
		}


			/* next we must mount the volume and check the privileges - but
				if the volume is password protected we cant do this (user must
				type in a password before the vol is mounted) */
				
				/* skip mount if vol is password protected */
		if ( !(VolNamesBuf[i].NodeID & PwrdFlag))
		{
				
				/* first mount the volume so we can find the privileges for this user */
			MountFlag = MountBit;


			err = cFIMountVol(MountFlag,VolNamesBuf[i].memPtr,0L,&VolID,&SlotDrive,0);
			
			if (err != VolAlreadyMounted)
			{
							/* do we have access rights to logon to this server? */
				Pstrcpy(volbuf,"\001/");
				Pappend(volbuf,&ReplyBuf.VolInfo[ptr]);		/* build volume pathname */
				err = cFIAccess(&AccessRights);
				rights = (char *)&AccessRights;		/* get user access rights */
				
					/* if there was an error mounting the volume or getting the access
						rights, set the rights here to 'no rights' */
				if (err)
					rights[0] = 0;
		
				if (rights[0] == 0)	/* do we have access rights to mount this volume? */
				{
						/* no rights to this volume! */
					VolNamesBuf[i].memFlag = memDisabled;
					if (VolNamesBuf[i].ScktNum)		/* was the box checked? */
					{
						VolNamesBuf[i].ScktNum = false;		/* uncheck it */
						AnyChangesMade = true;		/* need to delete this volume from APPLESHARE.PREP */
					}
					VolNamesBuf[i].privflag = true;		/* set denied privileges flag */
				}
				else	/* yes, we have access rights! */
				{
						/* we must highlight one (any) mount-able volume in the list and 
							enable the 'OK' button (but only if we are not currently 
							logged in to this server */
					if (!OneVolumeInitiallySelected && !Already_Logged_In)	/* is there one already selected? */
						if (VolNamesBuf[i].memFlag != memDisabled)	/* is it already mounted? */
						{
							VolNamesBuf[i].memFlag = memSelected;	/* no, so show it as selected */
							OneVolumeInitiallySelected = true;
						}
					
				}
				
				
					/* now un-mount it */
				MountFlag = 0;
				err = cFIMountVol(MountFlag,VolNamesBuf[i].memPtr,0L,&VolID,&SlotDrive,0);
	
			}
		
		}
		ptr = ptr + ReplyBuf.VolInfo[ptr] + 1;		/* move ptr to next password flag */
		ptr = ptr + 1;		/* move to next volume string */
		
	}


		/* get rid of APPLESHARE.PREP memory handle we used above */
	DisposeHandle(DataHndl);

	
	Dialog2 = GetNewModalDialog(&MyDialog2);	/* create the dialog */
	SetPort(Dialog2);							/* make it the current drawing port */


	NumBoxesChecked = 0;	/* no check boxes are selected initially */
	
		/* create one check box for each volume name, and store id's for each
			check box in the member record for that volume name */
	j = Id10;	
	for (i=0; i<VolListRec.listSize; ++i)
	{
		if (VolNamesBuf[i].ScktNum)		/* was volume name found in the APPLESHARE.PREP file? */
		{
			val = 1;	/* yes, so check the box */
			NumBoxesChecked = NumBoxesChecked + 1;	/* keep track of how many are checked */
		}
		else
			val = 0;	/* no, so dont check the box */
			/* create the check box (they will get drawn later in their correct position in
				my custom drawing routine) */
		NewDItem(Dialog2,j,&dummyRect,checkItem,notitle,val,0,nil);			
		VolNamesBuf[i].ckboxId = j;		/* save item id */
		j = j + 1;
	}

	
	Set_Up_Controls();

	
	HandleItemsHit();
	
	CloseDialog(Dialog2);
	
		/* re-initialize these variables so double clicking will work again in
			the first window */
	DoubleClick = false;
	PrevTickCount = 0;
	OnePending = false;

}



	/* report errors accessing the APPLESHARE.PREP file */
ReportError(operation)
Word operation;
{
word button;
word  err;
	
	err = _toolErr;  /* save error code */
	
	InitCursor();
	if (operation == Set || (operation == Get && !DoingAutoLogon) )
	{
		/*  switch(_toolErr)   */
		switch(err)
		{
			case drvrWrtProt:	/* write protected disk */
				
				if (!WritProtAlreadyShowed)
				{
					/*  button = AlertWindow(0,0L,"34/The startup disk is write protected.  Any changes you make will not be saved./^#0");  */
					Show_Alert_Message(Caution_Alert,"\pThe startup disk is write\rprotected.  No changes can be\rsaved.");
					WritProtAlreadyShowed = true;
				}

				break;
			case volumeFull:	/* volume full */
			case volDirFull:	/* volume directory full */
				Show_Alert_Message(Caution_Alert,"\pThe startup disk is full.\rAny changes you make\rwill not be saved.");
				break;
			case invalidAccess:
				Show_Alert_Message(Caution_Alert,"\p Access Denied error. Any\r changes you make will not\r be saved. Check with your\r network administrator.");
				break;
		}
			/* force an update of entire window so all controls are redrawn
				correctly */
		InvalRect(&ControlPanelRect);
	}
}



GoGetFile(operation)
integer operation;
{
Word saveErr;


		saveErr = 0;
		if (operation == Get)
			GSOS_Open((Word)(readEnable));
		else
			GSOS_Open((Word)(writeEnable + readEnable));
		if (_toolErr)
		{
			saveErr = _toolErr;
			ReportError(Get);
			
				/* if we got an access privileges error, try to open the file for
					read only */
			if (saveErr == invalidAccess)
			{
				GSOS_Open((Word)readEnable);
				saveErr = _toolErr;
			}
		}

		if (saveErr)
		{
			DataHndl = nil;
		}
		else
		{
			GSOS_SetMark(startPlus,(LongWord)0);
			if (operation == Get)	/* are we getting the data or updating it? */
			{
				DataHndl = (NewHandle((Long)MaxFileSize, MyUserID, attrNoCross , nil));
		
				if (_toolErr)
				{
					/* couldnt get handle, so put up error dialog????? */
					DataHndl = nil;
				}
				else
				{
					HLock(DataHndl);
					GSOS_Read((*DataHndl),(LongWord)myOpen.eof);
				}
			}
			else	/* update the file with our changes */
			{
				
				GSOS_Write((*DataHndl),(LongWord)curr_AUTOLOGON_size);	/* write out the data */
				if (_toolErr)
					ReportError(operation);
				GSOS_SetMark(markPlus,(LongWord)0);		/* set mark to 0 */
				GSOS_SetEOF(startPlus,(LongWord)curr_AUTOLOGON_size);		/* update size of file */
				
				DisposeHandle(DataHndl);	/* no longer need our handle so free it up */
			}
			
			GSOS_Close();
			
		}

}



mailpath(vol)
char *vol;

{
char pathbuf2[255];

			pathbuf2[0]=0;
			Pappend(pathbuf2,separator);
			Pappend(pathbuf2,vol);
			
			Pappend(pathbuf2,separator);
			Pappend(pathbuf2,"\pUSERS");
			Pappend(pathbuf2,separator);
			Pappend(pathbuf2,User_Name);
			
			Pappend(pathbuf2,separator);
			Pappend(pathbuf2,"\pMail");
			
			p2cstr(pathbuf2);
			CreateGSOSString(pathbuf2);

}



	/* this routine opens the APPLESHARE.PREP file and reads the entire
		thing into local storage so it can be added/deleted to. */
		
		
Do_AUTOLOGON_data(operation)
integer operation;	/* read/write */
{

	if (NetworkBoot)
	{
	
				/* we must build the path: /Boot Vol/USERS/User Name/Setup/APPLESHARE.PREP
					to get at the APPLESHARE.PREP file on the server for this user */
					
			buf.bufSize = 32+2;
			AShareFST_UserInfo(&buf,BootVoldevNum);
			
			pathbuf[0]=0;
			myGSOS_StringCopy(&theBootVol.bufString,pathbuf);
			
			Pappend(pathbuf,separator);
			Pappend(pathbuf,"\pUSERS");
			Pappend(pathbuf,separator);
			myGSOS_StringAppend(&buf.bufString,pathbuf);
			Pappend(pathbuf,separator);
			Pappend(pathbuf,"\pSETUP");
			Pappend(pathbuf,separator);
			Pappend(pathbuf,"\pAPPLESHARE.PREP");
			
			p2cstr(pathbuf);
			CreateGSOSString(pathbuf);
	}
	else
	{
		CreateGSOSString(AUTOLOGON_Path);	/* set up the path */
	}

	GSOS_GetFileInfo();		/* make sure it is an appletalk data file */
	if (_toolErr == fileNotFound)
	{
		GSOS_Create();		/* file not found so we must create it */
		if (_toolErr)
		{
			DataHndl = nil;
			ReportError(operation);
		}
		else
		{
			GSOS_Open((Word)(writeEnable));
			nothing = 0;
				/* write two null bytes to the Number_of_Servers field (since
				there are none to start with) */
			GSOS_Write((Pointer)&nothing,(LongWord)2);
			GSOS_Close();
	
			GoGetFile(operation);	/* go read/write the file */
			
			curr_AUTOLOGON_size = myOpen.eof;
		}
	}
	else	/* file was found */
	{
		if (myInfoRec.fileType != AppleTalkFile)
		{		
			DataHndl = nil;
		}
		else
		{
			GoGetFile(operation);	/* go read/write the file */
			curr_AUTOLOGON_size = myOpen.eof;
		}
	}
}
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/Dialog2Defs.h b/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/Dialog2Defs.h
new file mode 100644
index 0000000..6dae731
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/Dialog2Defs.h
@@ -0,0 +1 @@
+/*

	File: Dialog2Defs.h
	
	By	: Scott Kuechle
	
	Copyright:	©1988-1989 by Apple Computer Inc.
	All rights reserved.																			#}

*/

char OKText[] = "\pOK"; /* had 2 leading blanks, 18-Jan-91 DAL */
char QuitButtonText[] = "\pQuit"; /* had a leading blank, 18-Jan-91 DAL */
char FServerNameTextBuf[35] = "\pÒ^0Ó";
char TopTextBuf[] = "\pSelect the server volumes you want:";
char TopTextBuf2[] = "\pAlready connected to the file server";
char BottomTextBuf1[] = "\pChecked volumes (         ) will be\ropened at system startup time.";		/* not implemented yet */
char NameOnly[] = "\pSave My Name Only";
char NameAndPass[] = "\pSave My Name and Password";
char notitle[] = "\p";


#define	MaxVolView	4		/* ? */

Rect dummyRect = {195,475,195+20,475+20};
myMemRec VolNamesBuf[MaxVols];



ListRec VolListRec = {
      53,22,99,262,     /* ListRec - Enclosing Rectangle */
      0,     /* ListRec - Number of List Members */
      MaxVolView,     /* ListRec - Max Viewable members */
      0,     /* ListRec - Bit Flag */
      1,     /* ListRec - First member in view */
      nil,     /* ListRec - List control's handle */
      nil,     /* ListRec - Address of Custom drawing routine */
      11,     /* ListRec - Height of list members */
      sizeof(myMemRec),     /* ListRec - Size of Member Records */
      (myMemRecPtr)VolNamesBuf,     /* ListRec - Pointer to first element in MemRec[] */
      nil,     /* ListRec - becomes Control's refCon */
      nil     /* ListRec - Color table for list's scroll bar */
      };


ItemTemplate  OKBtn = {
      ok,     /* ItemTemplate -  itemID */
      156,160,169,260,     /* ItemTemplate -  itemRect */
      buttonItem,     /* ItemTemplate - itemType */
      OKText,     /* ItemTemplate - itemDescr */
      0,     /* ItemTemplate - itemValue */
      boldButton,     /* ItemTemplate - itemFlag */
      nil     /* pointer to appropreate ctl color table */
      };



ItemTemplate  QuitButton = {
      cancel,     /* ItemTemplate -  itemID */
      156,45,170,145,     /* ItemTemplate -  itemRect */
      buttonItem,     /* ItemTemplate - itemType */
      QuitButtonText,     /* ItemTemplate - itemDescr */
      0,     /* ItemTemplate - itemValue */
      simpRound,     /* ItemTemplate - itemFlag */
      nil     /* pointer to appropreate ctl color table */
      };


ItemTemplate  FServerNameText = {
      Id4,     /* ItemTemplate -  itemID */
      23,22,33,315,     /* ItemTemplate -  itemRect */
      statText,     /* ItemTemplate - itemType */
      FServerNameTextBuf,     /* ItemTemplate - itemDescr */
      0,     /* ItemTemplate - itemValue */
      0,     /* ItemTemplate - itemFlag */
      nil     /* pointer to appropreate ctl color table */
      };


ItemTemplate  TopText = {
      Id5,     /* ItemTemplate -  itemID */
      41,22,51,285,     /* ItemTemplate -  itemRect */
      statText,     /* ItemTemplate - itemType */
      TopTextBuf,     /* ItemTemplate - itemDescr */
      0,     /* ItemTemplate - itemValue */
      0,     /* ItemTemplate - itemFlag */
      nil     /* pointer to appropreate ctl color table */
      };


ItemTemplate  BottomText = {
      Id6,     /* ItemTemplate -  itemID */
      102,37,122,302,     /* ItemTemplate -  itemRect */
      statText,     /* ItemTemplate - itemType */
      BottomTextBuf1,     /* ItemTemplate - itemDescr */
      0,     /* ItemTemplate - itemValue */
      0,     /* ItemTemplate - itemFlag */
      nil     /* pointer to appropreate ctl color table */
      };


ItemTemplate  DummyChkBox = {
      Id7,     /* ItemTemplate -  itemID */
      102,173,112,185,     /* ItemTemplate -  itemRect */
      checkItem + itemDisable,     /* ItemTemplate - itemType */
      notitle,     /* ItemTemplate - itemDescr */
      true,     /* ItemTemplate - itemValue */
      0,     /* ItemTemplate - itemFlag */
      nil     /* pointer to appropreate ctl color table */
      };

DialogTemplate MyDialog2 = {
      18,10,195,320,     /* DialogTemplate -  dtBoundsRect */
      TRUE,     /* DialogTemplate -  dtVisible */
      nil,     /* DialogTemplate -  dtRefCon */
      &OKBtn, &QuitButton, &DummyChkBox,
      &FServerNameText, &TopText, &BottomText,
      nil     /* DialogTemplate - Null terminated array */
      };


ItemTemplate  NameButton = {
      Id8,     /* ItemTemplate -  itemID */
      126,60,136,320,     /* ItemTemplate -  itemRect */
      radioItem,     /* ItemTemplate - itemType */
      NameOnly,     /* ItemTemplate - itemDescr */
      0,     /* ItemTemplate - itemValue */
      0,     /* ItemTemplate - itemFlag */
      nil     /* pointer to appropriate ctl color table */
      };


ItemTemplate  NamePwrdButton = {
      Id9,     /* ItemTemplate -  itemID */
      139,60,149,320,     /* ItemTemplate -  itemRect */
      radioItem,     /* ItemTemplate - itemType */
      NameAndPass,     /* ItemTemplate - itemDescr */
      0,     /* ItemTemplate - itemValue */
      0,     /* ItemTemplate - itemFlag */
      nil     /* pointer to appropriate ctl color table */
      };

\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/ErrorHandling.c b/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/ErrorHandling.c
new file mode 100644
index 0000000..2f04e4c
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/ErrorHandling.c
@@ -0,0 +1 @@
+/*


	File: ErrorHandling.c
	
	By	: Scott Kuechle
	
	Copyright:	©1988-1989 by Apple Computer Inc.
	All rights reserved.																			#}


*/

#include <types.h>
#include <dialog.h>
#include <memory.h>
#include <Quickdraw.h>

#include "myConstants.h"



char O_K_Txt[] = "\pOK"; /* had 2 leading blanks, 18-Jan-91 DAL */
char UnknownUser[] = "\pUnknown user or log on is\r\
disabled. Please retype the\r\
name or contact the serverÕs\r\
administrator.";
char NoResponse[] = "\pNo response from server.";
char ShutDown[] = "\pServer going down.";
char Generic[] = "\pNetwork Error.";
char NotAuth[] = "\pSorry, your password is not\r\
correct. Please reenter it.";
char Limit[] = "\pYou have reached the limit\rof the number of file\rservers you can log on to\rat one time.";
char TooManyVols[] = "\pYou have reached the limit\rof the number of file\rserver volumes you can\rmount at one time.";
char ServerBusy[] = "\p No more users may log on to\r this server. Please try\r again later.";
char AlreadyMounted[] = "\p There canÕt be two disks\r with the same name on the\r desktop.";



ItemTemplate  Message = {
      Id2,     /* ItemTemplate -  itemID */
      30,50,70+20,300,     /* ItemTemplate -  itemRect */
      statText + itemDisable,     /* ItemTemplate - itemType */
      Generic,     /* ItemTemplate - itemDescr */
      0,     /* ItemTemplate - itemValue */
      0,     /* ItemTemplate - itemFlag */
      nil     /* pointer to appropriate ctl color table */
      };


ItemTemplate  the_OK_Btn = {
      ok,     /* ItemTemplate -  itemID */
      75+20,165,88+20,245,     /* ItemTemplate -  itemRect */
      buttonItem,     /* ItemTemplate - itemType */
      O_K_Txt,     /* ItemTemplate - itemDescr */
      0,     /* ItemTemplate - itemValue */
      boldButton,     /* ItemTemplate - itemFlag */
      nil     /* pointer to appropreate ctl color table */
      };


struct AlertTemplate myAlert = {
      30,30,145,310,     /* AlertTemplate -  rect */
      Id1,     /* AlertTemplate -  id */
      0x81,     /* AlertTemplate -  stage 1 byte */
      0x81,     /* AlertTemplate -  stage 2 byte */
      0x81,     /* AlertTemplate -  stage 3 byte */
      0x81,     /* AlertTemplate -  stage 4 byte */
      &the_OK_Btn, &Message, 0     /* AlertTemplate - Null terminated array */
      };



Show_Alert_Message(which_type,msg)
int which_type;
char *msg;
{
Word itemHit;
Word  screen;

		/* re-display the arrow cursor */
	InitCursor();

	Message.itemDescr = msg;	/* set up message to print */

	screen = (GetMasterSCB() & 0x80);
	if (screen) myAlert.atBoundsRect.h1 = 180;
		else myAlert.atBoundsRect.h1 = 20;
	myAlert.atBoundsRect.h2 = myAlert.atBoundsRect.h1 + 280;
	
	switch(which_type)
	{
		case Stop_Alert:
				itemHit = StopAlert(&myAlert,nil);
			break;
			
		case Note_Alert:
				itemHit = NoteAlert(&myAlert,nil);
			break;

		case Caution_Alert:
				itemHit = CautionAlert(&myAlert,nil);
			break;

	}
}




Show_PFI_Error(err)
int err;
{
	switch (err)
	{
		case 0x0a01:		/* file server limit */
			Show_Alert_Message(Stop_Alert,Limit);
			break;

		case 0x0a02:		/* file server limit */
			Show_Alert_Message(Stop_Alert,ServerBusy);
			break;
			
		case 0x0a03:		/* no response from server */
		case 0x0706:
			Show_Alert_Message(Note_Alert,NoResponse);
			break;

		case 0x0a08:		/* volume limit */
			Show_Alert_Message(Stop_Alert,TooManyVols);
			break;

		case 0x0a11:		/* volume already mounted */
			Show_Alert_Message(Stop_Alert,AlreadyMounted);
			break;

		case 0x0a15:		/* user not authorized */
		case 0x0a07:
			Show_Alert_Message(Stop_Alert,NotAuth);
			break;
	
		case 0x0a16:		/* unknown user */
			Show_Alert_Message(Stop_Alert,UnknownUser);
			break;

		case 0x0a17:		/* server going down */
			Show_Alert_Message(Caution_Alert,ShutDown);
			break;
		
		default:		/* network error */
			Show_Alert_Message(Caution_Alert,Generic);
			break;
	}
}
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/GSOS.c b/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/GSOS.c
new file mode 100644
index 0000000..1f44cc5
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/GSOS.c
@@ -0,0 +1 @@
+/*


	File: GSOS.c
	
	By	: Scott Kuechle
	
	Copyright:	©1988-1989 by Apple Computer Inc.
	All rights reserved.																			#}


*/

#include "types.h"
#include "gsos.h"
#include "myConstants.h"

extern ResultBuf32 buf,buf2;
extern ResultBuf32 theBootVol;
extern GSString255 syspath;



typedef struct GetBootVolRec {
	Word pCount;
	ResultBuf255Ptr dataBuffer;
} GetBootVolRec;

typedef struct GetDevNumberRec {
	Word pCount;
	GSString32Ptr devName;
	Word devNum;
} GetDevNumberRec;

#define		outsize		200
typedef struct OutputBuf 
{
	integer	len;
	integer	outlen;
	char	buf[outsize];
} OutputBuf;

typedef struct UserInfoParmList
{
	Word	pCount;
	Word	FSTnum;
	Word	Cmd;
	Word	DevNum;
	ResultBuf32Ptr nameBuffer;
	ResultBuf32Ptr groupBuffer;
} UserInfoParmList;


typedef struct GetUserPathParmList
{
	Word	pCount;
	Word	FSTnum;
	Word	Cmd;
	Long	path;
} GetUserPathParmList;


FileInfoRecGS myInfoRec;
OpenRecGS myOpen;
IORecGS myIORec;
OutputBuf myBuf;
SetPositionRecGS mySetPosRec;


CreateGSOSString(path)
char *path;
{
	strcpy(&syspath.text[0],path);
	syspath.length = strlen(path);
}


GSOS_GetFileInfo()
{
	myInfoRec.pCount = 10;
	myInfoRec.pathname = &syspath;
	myBuf.len = outsize + 2;
	myInfoRec.optionList = (LongWord)&myBuf;

	GetFileInfoGS(&myInfoRec);
}



GSOS_Open(accessByte)
Word accessByte;
{
	myOpen.pathname = &syspath;
	myOpen.pCount = 0x0d;
	myOpen.requestAccess = accessByte;
	myOpen.resourceNumber = datafork;
	OpenGS(&myOpen);
}


GSOS_SetMark(relativeTo,displacement)
Word relativeTo;
LongWord displacement;
{
	mySetPosRec.pCount = 3;
	mySetPosRec.refNum = myOpen.refNum;
	mySetPosRec.base = relativeTo;
	mySetPosRec.displacement = displacement;
	SetMarkGS(&mySetPosRec);
}


GSOS_SetEOF(relativeTo,displacement)
Word relativeTo;
LongWord displacement;
{
	GSOS_SetMark(relativeTo,displacement);
	SetEOFGS(&mySetPosRec);

}


GSOS_Write(buffer,requestCount)
char *buffer;
LongWord requestCount;
{
	myIORec.pCount = 5;
	myIORec.refNum = myOpen.refNum;
	myIORec.requestCount = requestCount;
	myIORec.dataBuffer = buffer;
	WriteGS(&myIORec);
}


GSOS_Read(buffer,requestCount)
char *buffer;
LongWord requestCount;
{
	myIORec.pCount = 5;
	myIORec.refNum = myOpen.refNum;
	myIORec.requestCount = requestCount;
	myIORec.dataBuffer = buffer;
	ReadGS(&myIORec);
}


GSOS_Close()
{
	myOpen.pCount = 1;
	CloseGS(&myOpen);
}

GSOS_Create()
{

	static struct CreateRecGS myCreateRec = { 
	   7, /*  */
	   &syspath, /*  */
	   readEnable + writeEnable + renameEnable + destroyEnable, /*  */
	   AppleTalkFile, /*  */
	   0L, /*  */
	   0, /*  */
	   2, /*  */
	   0L /*  */
   }; 

	CreateGS(&myCreateRec);
}


GSOS_GetBootVol()
{

	static struct GetBootVolRec myBootVolRec = {
		1,
		&buf2
	};

	GetBootVolGS(&myBootVolRec);
	
}


Word GSOS_GetDevNumber(devName)
GSString32Ptr devName;
{

	static struct GetDevNumberRec myGetDevNumRec = {
		2,
		0L,
		0
	};

	myGetDevNumRec.devName = devName;
	GetDevNumberGS(&myGetDevNumRec);
	
	return myGetDevNumRec.devNum;
}


Word GSOS_Volume()
{
	static struct VolumeRecGS myVolRec = { 
	   6, /*  */
	   &buf.bufString, /*  */
	   &theBootVol, /*  */
	   0L, /*  */
	   0L, /*  */
	   0, /*  */
	   0 /*  */
   }; 

	VolumeGS(&myVolRec);
	
	return myVolRec.fileSysID;
}



GSOS_DInfo(devNum)
Word devNum;
{

	static struct DInfoRecGS myDInfoRec = { 
	   2, /*  */
	   0, /*  */
	   &buf, /*  */
	   0, /*  */
	   0L, /*  */
	   0, /*  */
	   0, /*  */
	   0, /*  */
	   0, /*  */
	   0,
	   0
   }; 

	myDInfoRec.devNum = devNum;
	DInfoGS(&myDInfoRec);

}


Word GSOS_GetFSTInfo(fstNum,buf)
Word fstNum;
ResultBuf255Ptr buf;
{

	
	static struct FSTInfoRecGS myInfoRec = { 
	   3, /*  */
	   0, /*  */
	   0, /*  */
	   0L, /*  */
	   0, /*  */
	   0, /*  */
	   0, /*  */
	   0L, /*  */
	   0L /*  */
   }; 

	myInfoRec.fstName = buf;
	myInfoRec.fstNum = fstNum;
	
	GetFSTInfoGS(&myInfoRec);
	
	return myInfoRec.fileSysId;
}


#define FSTSpecific(pBlockPtr)  SysCall(pBlockPtr,0x2033)

AShareFST_UserInfo(namebuf,devNum)
ResultBuf32Ptr namebuf;
Word devNum;
{

	static struct UserInfoParmList myUserInfoParm = {
		4,
		AShareFST,
		0x0006,
		0,
		0L,
		0L
	};

	myUserInfoParm.DevNum = devNum;
	myUserInfoParm.nameBuffer = namebuf;

	FSTSpecific(&myUserInfoParm);

}



AShareFST_GetUserPath(path)
Long *path;
{

	static struct GetUserPathParmList myGetUserPathParm = {
		3,
		AShareFST,
		0x0008,
		0L
	};

	FSTSpecific(&myGetUserPathParm);

	*path = myGetUserPathParm.path;
}
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/GSOS.h b/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/GSOS.h
new file mode 100644
index 0000000..0f9d507
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/GSOS.h
@@ -0,0 +1 @@
+/******************************************** 
; File: GSOS.h 
; 
; 
; Copyright Apple Computer, Inc.  1988 
; All Rights Reserved 
; 
********************************************/ 

#ifndef __types__ 
#include <types.h> 
#endif 
 
#ifndef __GSOS__ 
#define __GSOS__ 

#define readEnable 0x0001 /*access - read enable bit: CreateRec, OpenRec access and requestAccess fields */
#define writeEnable 0x0002 /*access - write enable bit: CreateRec, OpenRec access and requestAccess fields */
#define backupNeeded 0x0020 /*access - backup needed bit: CreateRec, OpenRec access  field. (Must be 0 in requestAccess field ) */
#define renameEnable 0x0040 /*access - rename enable bit: CreateRec, OpenRec access and requestAccess fields */
#define destroyEnable 0x0080 /*access - read enable  bit: CreateRec, OpenRec access and requestAccess fields */

#define startPlus 0x0000 /*base - setMark = displacement */
#define eofMinus 0x0001 /*base - setMark = eof - displacement */
#define markPlus 0x0002 /*base - setMark = mark + displacement */
#define markMinus 0x0003 /*base - setMark = mark - displacement */

#define noCache 0x0000 /*cachePriority - do not cache blocks invloved in this read */
#define cache 0x0001 /*cachePriority -  cache blocks invloved in this read if possible */

#define badSystemCall 0x0001 /*error - bad system call number */
#define invalidPcount 0x0004 /*error - invalid parameter count */
#define gsosActive 0x07 /*error - GS/OS already active */
#ifndef devNotFound /*error - device not found */
#define devNotFound 0x10 
#endif 
#define invalidDevNum 0x11 /*error - invalid device number */
#define drvrBadReq 0x20 /*error - bad request or command */
#define drvrBadCode 0x0021 /*error - bad control or status code */
#define drvrBadParm 0x0022 /*error - bad call parameter */
#define drvrNotOpen 0x0023 /*error - character device not open */
#define drvrPriorOpen 0x0024 /*error - character device already open */
#define irqTableFull 0x0025 /*error - interrupt table full */
#define drvrNoResrc 0x0026 /*error - resources not available */
#define drvrIOError 0x0027 /*error - I/O error */
#define drvrNoDevice 0x0028 /*error - device not connected */
#define drvrBusy 0x0029 /*error - call aborted, driver is busy */
#define drvrWrtProt 0x002B /*error - device is write protected */
#define drvrBadCount 0x002C /*error - invalid byte count */
#define drvrBadBlock 0x002D /*error - invalid block address */
#define drvrDiskSwitch 0x002E /*error - disk has been switched */
#define drvrOffLine 0x002F /*error - device off line/ no media present */
#define badPathSyntax 0x0040 /*error - invalid pathname syntax */
#define invalidRefNum 0x0043 /*error - invalid reference number */
#ifndef pathNotFound /*error - subdirectory does not exist */
#define pathNotFound 0x44 
#endif 
#define volNotFound 0x0045 /*error - volume not found */
#ifndef fileNotFound /*error - file not found */
#define fileNotFound 0x0046 
#endif 
#define dupPathname 0x0047 /*error - create or rename with existing name */
#define volumeFull 0x0048 /*error - volume full error */
#define volDirFull 0x0049 /*error - volume directory full */
#define badFileFormat 0x004A /*error - version error (incompatible file format) */
#ifndef badStoreType /*error - unsupported (or incorrect) storage type */
#define badStoreType 0x004B 
#endif 
#ifndef eofEncountered /*error - end-of-file encountered */
#define eofEncountered 0x004C 
#endif 
#define outOfRange 0x004D /*error - position out of range */
#define invalidAccess 0x004E /*error - access not allowed */
#define buffTooSmall 0x004F /*error - buffer too small */
#define fileBusy 0x0050 /*error - file is already open */
#define dirError 0x0051 /*error - directory error */
#define unknownVol 0x0052 /*error - unknown volume type */
#ifndef paramRangeErr /*error - parameter out of range */
#define paramRangeErr 0x0053 
#endif 
#define outOfMem 0x0054 /*error - out of memory */
#define dupVolume 0x0057 /*error - duplicate volume name */
#define notBlockDev 0x0058 /*error - not a block device */
#ifndef invalidLevel /*error - specifield level outside legal range */
#define invalidLevel 0x0059 
#endif 
#define damagedBitMap 0x005A /*error - block number too large */
#define badPathNames 0x005B /*error - invalid pathnames for ChangePath */
#define notSystemFile 0x005C /*error - not an executable file */
#define osUnsupported 0x005D /*error - Operating System not supported */
#ifndef stackOverflow /*error - too many applications on stack */
#define stackOverflow 0x005F 
#endif 
#define dataUnavail 0x0060 /*error - Data unavailable */
#define endOfDir 0x0061 /*error - end of directory has been reached */
#define invalidClass 0x0062 /*error - invalid FST call class */
#define resNotFound 0x0063 /*error - file does not contain required resource */

#define proDOS 0x0001 /*fileSysID - ProDOS/SOS  */
#define dos33 0x0002 /*fileSysID - DOS 3.3 */
#define dos32 0x0003 /*fileSysID - DOS 3.2 */
#define dos31 0x0003 /*fileSysID - DOS 3.1 */
#define appleIIPascal 0x0004 /*fileSysID - Apple II Pascal */
#define mfs 0x0005 /*fileSysID - Macintosh (flat file system) */
#define hfs 0x0006 /*fileSysID - Macintosh (hierarchical file system) */
#define lisa 0x0007 /*fileSysID - Lisa file system */
#define appleCPM 0x0008 /*fileSysID - Apple CP/M */
#define charFST 0x0009 /*fileSysID - Character FST */
#define msDOS 0x000A /*fileSysID - MS/DOS */
#define highSierra 0x000B /*fileSysID - High Sierra */

#define characterFST 0x4000 /*FSTInfo.attributes - character FST */
#define ucFST 0x8000 /*FSTInfo.attributes - SCM should upper case pathnames before passing them to the FST */

#define onStack 0x8000 /*QuitRec.flags - place state information about quitting program on the quit return stack */
#define restartable 0x4000 /*QuitRec.flags - the quitting program is capable of being restarted from its dormant memory */

#define seedling 0x0001 /*storageType - standard file with seedling structure */
#define sapling 0x0002 /*storageType - standard file with sapling structure */
#define tree 0x0003 /*storageType - standard file with tree structure */
#define pascalRegion 0x0004 /*storageType - UCSD Pascal region on a partitioned disk */
#define extendedFile 0x0005 /*storageType - extended file type (with resource fork) */
#define directoryFile 0x000D /*storageType - volume directory or subdirectory file */

#define minorRelNum 0x00FF /*version - minor release number */
#define majorRelNum 0x7F00 /*version - major release number */
#define finalRel 0x8000 /*version - final release */

typedef struct GSString255 { 
   Word length; /* Number of Chars in text field  */
   unsigned char text[255]; /*  */
   } GSString255, *GSString255Ptr; 

typedef struct GSString32 { 
   Word length; /* Number of characters in text field */
   unsigned char text[32]; /*  */
   } GSString32, *GSString32Ptr; 

typedef struct ResultBuf255 { 
   Word bufSize; /*  */
   GSString255 bufString; /*  */
   } ResultBuf255, *ResultBuf255Ptr; 

typedef struct ResultBuf32 { 
   Word bufSize; /*  */
   GSString32 bufString; /*  */
   } ResultBuf32, *ResultBuf32Ptr; 

typedef struct ChangePathRecGS { 
   Word pCount; /*  */
   GSString255Ptr pathname; /*  */
   GSString255Ptr newPathname; /*  */
   } ChangePathRecGS, *ChangePathRecPtrGS; 

typedef struct CreateRecGS { 
   Word pCount; /*  */
   GSString255Ptr pathname; /*  */
   Word access; /*  */
   Word fileType; /*  */
   LongWord auxType; /*  */
   Word storageType; /*  */
   LongWord eof; /*  */
   LongWord resourceEOF; /*  */
   } CreateRecGS, *CreateRecPtrGS; 

typedef struct DAccessRecGS { 
   Word pCount; /*  */
   Word devNum; /*  */
   Word code; /*  */
   Pointer list; /*  */
   LongWord requestCount; /*  */
   LongWord transferCount; /*  */
   } DAccessRecGS, *DAccessRecPtrGS; 

typedef struct DevNumRecGS { 
   Word pCount; /*  */
   GSString32Ptr devName; /*  */
   Word devNum; /*  */
   } DevNumRecGS, *DevNumRecPtrGS; 

typedef struct DInfoRecGS { 
   Word pCount; /*  */
   Word devNum; /*  */
   GSString32Ptr devName; /*  */
   Word characteristics; /*  */
   LongWord totalBlocks; /*  */
   Word slotNum; /*  */
   Word unitNum; /*  */
   Word version; /*  */
   Word deviceID; /*  */
   Word headLink;
   Word forwardLink;
   } DInfoRecGS, *DInfoRecPtrGS; 

typedef struct DIORecGS { 
   Word pCount; /*  */
   Word devNum; /*  */
   Pointer buffer; /*  */
   LongWord requestCount; /*  */
   LongWord startingBlock; /*  */
   Word blockSize; /*  */
   LongWord transferCount; /*  */
   } DIORecGS, *DIORecPtrGS; 

typedef struct DirEntryRecGS { 
   Word pCount; /*  */
   Word refNum; /*  */
   Word flags; /*  */
   Word base; /*  */
   Word displacement; /*  */
   Pointer name; /*  */
   Word entryNum; /*  */
   Word fileType; /*  */
   Longint eof; /*  */
   LongWord blockCount; /*  */
   TimeRec createDateTime; /*  */
   TimeRec modDateTime; /*  */
   Word access; /*  */
   LongWord auxType; /*  */
   Word fileSysID; /*  */
   ResultBuf255Ptr optionList; /*  */
   } DirEntryRecGS, *DirEntryRecPtrGS; 

typedef struct ExpandPathRecGS { 
   Word pCount; /*  */
   GSString255Ptr inputPath; /*  */
   ResultBuf255Ptr outputPath; /*  */
   Word flags; /*  */
   } ExpandPathRecGS, *ExpandPathRecPtrGS; 

typedef struct FileInfoRecGS { 
   Word pCount; /*  */
   GSString255Ptr pathname; /*  */
   Word access; /*  */
   Word fileType; /*  */
   Longint auxType; /*  */
   Word storageType; /* must be 0 for SetFileInfo */
   TimeRec createDateTime; /*  */
   TimeRec modDateTime; /*  */
   LongWord optionList; /*  */
   LongWord eof; /*  */
   LongWord blocksUsed; /* must be 0 for SetFileInfo */
   LongWord resourceEOF; /* must be 0 for SetFileInfo */
   LongWord resourceBlocks; /* must be 0 for SetFileInfo */
   } FileInfoRecGS, *FileInfoRecPtrGS; 

typedef struct FormatRecGS { 
   Word pCount; /*  */
   GSString32Ptr devName; /* device name pointer */
   GSString32Ptr volName; /* volume name pointer */
   Word fileSysID; /* file system ID */
   } FormatRecGS, *FormatRecPtrGS; 

typedef struct FSTInfoRecGS { 
   Word pCount; /*  */
   Word fstNum; /*  */
   Word fileSysId; /*  */
   ResultBuf255Ptr fstName; /*  */
   Word version; /*  */
   Word attributes; /*  */
   Word blockSize; /*  */
   LongWord maxVolSize; /*  */
   LongWord maxFileSize; /*  */
   } FSTInfoRecGS, *FSTInfoRecPtrGS; 

typedef struct InterruptRecGS { 
   Word pCount; /*  */
   Word intNum; /*  */
   Word vrn; /* used only by BindInt */
   LongWord intCode; /* used only by BindInt */
   } InterruptRecGS, *InterruptRecPtrGS; 

typedef struct IORecGS { 
   Word pCount; /*  */
   Word refNum; /*  */
   Pointer dataBuffer; /*  */
   LongWord requestCount; /*  */
   LongWord transferCount; /*  */
   Word cachePriority; /*  */
   } IORecGS, *IORecPtrGS; 

typedef struct LevelRecGS { 
   Word pCount; /*  */
   Word level; /*  */
   } LevelRecGS, *LevelRecPtrGS; 

typedef struct NameRecGS { 
   Word pCount; /*  */
   GSString255Ptr name; /* full pathname or a filename depending on call */
   } NameRecGS, *NameRecPtrGS; 

typedef struct NewlineRecGS { 
   Word pCount; /*  */
   Word refNum; /*  */
   Word enableMask; /*  */
   Word numChars; /*  */
   Pointer newlineTable; /*  */
   } NewlineRecGS, *NewlineRecPtrGS; 

#if 0
typedef struct OpenRecGS { 
   Word pCount; /*  */
   Word refNum; /*  */
   GSString255Ptr pathname; /*  */
   Word requestAccess; /*  */
   Word resourceNumber; /* For extended files: dataFork/resourceFork */
   Word access; /* Value of file's access attribute */
   Word fileType; /* Value of file's fileType attribute */
   Word auxType; /*  */
   Word storageType; /*  */
   TimeRec createDateTime; /*  */
   TimeRec modDateTime; /*  */
   Word  *optionList; /*  */
   LongWord eof; /*  */
   LongWord blocksUsed; /*  */
   LongWord resourceEOF; /*  */
   LongWord resourceBlocks; /*  */
   } OpenRecGS, *OpenRecPtrGS; 
#endif

typedef struct OpenRecGS { 
   Word pCount; /*  */
   Word refNum; /*  */
   GSString255Ptr pathname; /*  */
   Word requestAccess; /*  */
   Word resourceNumber; /* For extended files: dataFork/resourceFork */
   Word access; /* Value of file's access attribute */
   Word fileType; /* Value of file's fileType attribute */
   Long auxType; /*  */
   Word storageType; /*  */
   TimeRec createDateTime; /*  */
   TimeRec modDateTime; /*  */
   Pointer  optionList; /*  */
   LongWord eof; /*  */
   LongWord blocksUsed; /*  */
   LongWord resourceEOF; /*  */
   LongWord resourceBlocks; /*  */
   } OpenRecGS, *OpenRecPtrGS; 

typedef struct PositionRecGS { 
   Word pCount; /*  */
   Word refNum; /*  */
   LongWord position; /*  */
   } PositionRecGS, *PositionRecPtrGS; 

typedef struct PrefixRecGS { 
   Word pCount; /*  */
   Word prefixNum; /*  */
   GSString255Ptr prefix; /*  */
   } PrefixRecGS, *PrefixRecPtrGS; 

typedef struct QuitRecGS { 
   Word pCount; /*  */
   GSString255Ptr pathname; /* pathname of next app to run */
   Word flags; /*  */
   } QuitRecGS, *QuitRecPtrGS; 

typedef struct RefNumRecGS { 
   Word pCount; /*  */
   Word refNum; /*  */
   } RefNumRecGS, *RefnumRecPtrGS; 

typedef struct SetPositionRecGS { 
   Word pCount; /*  */
   Word refNum; /*  */
   Word base; /*  */
   LongWord displacement; /*  */
   } SetPositionRecGS, *SetPositionRecPtrGS; 

typedef struct SysPrefRecGS { 
   Word pCount; /*  */
   Word preferences; /*  */
   } SysPrefRecGS, *SysPrefRecPtrGS; 

typedef struct VersionRecGS { 
   Word pCount; /*  */
   Word version; /*  */
   } VersionRecGS, *VersionRecPtrGS; 

typedef struct VolumeRecGS { 
   Word pCount; /*  */
   GSString32Ptr devName; /*  */
   ResultBuf255Ptr volName; /*  */
   LongWord totalBlocks; /*  */
   LongWord freeBlocks; /*  */
   Word fileSysID; /*  */
   Word blockSize; /*  */
   } VolumeRecGS, *VolumeRecPtrGS; 

 /* make the old prodos calls use the new call method */
#define PDosInt(callnum,pBlockPtr) sysCall(pBlockPtr,callnum) 
 
#define stackEntry 0xE100B0 
extern pascal void SysCall() inline(0x0000,stackEntry); 

#define GetSysPrefsGS(pBlockPtr)  SysCall(pBlockPtr,0x200F) 
#define BeginSessionGS(pBlockPtr)  SysCall(pBlockPtr,0x201D) 
#define EndSessionGS(pBlockPtr)  SysCall(pBlockPtr,0x201E) 
#define SessionStatusGS(pBlockPtr)  SysCall(pBlockPtr,0x201F) 
#define ResetCacheGS(pBlockPtr)  SysCall(pBlockPtr,0x2026) 
#define ChangePathGS(pBlockPtr)  SysCall(pBlockPtr,0x2004) 
#define ClearBackupBitGS(pBlockPtr)  SysCall(pBlockPtr,0x200B) 
#define CloseGS(pBlockPtr)  SysCall(pBlockPtr,0x2014) 
#define CreateGS(pBlockPtr)  SysCall(pBlockPtr,0x2001) 
#define DControlGS(pBlockPtr)  SysCall(pBlockPtr,0x202E) 
#define DestroyGS(pBlockPtr)  SysCall(pBlockPtr,0x2002) 
#define DInfoGS(pBlockPtr)  SysCall(pBlockPtr,0x202C) 
#define DReadGS(pBlockPtr)  SysCall(pBlockPtr,0x202F) 
#define DStatusGS(pBlockPtr)  SysCall(pBlockPtr,0x202D) 
#define DWriteGS(pBlockPtr)  SysCall(pBlockPtr,0x2030) 
#define EraseDiskGS(pBlockPtr)  SysCall(pBlockPtr,0x2025) 
#define ExpandPathGS(pBlockPtr)  SysCall(pBlockPtr,0x200E) 
#define FlushGS(pBlockPtr)  SysCall(pBlockPtr,0x2015) 
#define FormatGS(pBlockPtr)  SysCall(pBlockPtr,0x2024) 
#define GetBootVolGS(pBlockPtr)  SysCall(pBlockPtr,0x2028) 
#define GetDevNumberGS(pBlockPtr)  SysCall(pBlockPtr,0x2020) 
#define GetDirEntryGS(pBlockPtr)  SysCall(pBlockPtr,0x201C) 
#define GetEOFGS(pBlockPtr)  SysCall(pBlockPtr,0x2019) 
#define GetFileInfoGS(pBlockPtr)  SysCall(pBlockPtr,0x2006) 
#define GetFSTInfoGS(pBlockPtr)  SysCall(pBlockPtr,0x202B) 
#define GetLevelGS(pBlockPtr)  SysCall(pBlockPtr,0x201B) 
#define GetMarkGS(pBlockPtr)  SysCall(pBlockPtr,0x2017) 
#define GetNameGS(pBlockPtr)  SysCall(pBlockPtr,0x2027) 
#define GetPrefixGS(pBlockPtr)  SysCall(pBlockPtr,0x200A) 
#define GetVersionGS(pBlockPtr)  SysCall(pBlockPtr,0x202A) 
#define NewlineGS(pBlockPtr)  SysCall(pBlockPtr,0x2011) 
#define NullGS(pBlockPtr)  SysCall(pBlockPtr,0x200D) 
#define OpenGS(pBlockPtr)  SysCall(pBlockPtr,0x2010) 
#define QuitGS(pBlockPtr)  SysCall(pBlockPtr,0x2029) 
#define ReadGS(pBlockPtr)  SysCall(pBlockPtr,0x2012) 
#define SetEOFGS(pBlockPtr)  SysCall(pBlockPtr,0x2018) 
#define SetFileInfoGS(pBlockPtr)  SysCall(pBlockPtr,0x2005) 
#define SetLevelGS(pBlockPtr)  SysCall(pBlockPtr,0x201A) 
#define SetMarkGS(pBlockPtr)  SysCall(pBlockPtr,0x2016) 
#define SetPrefixGS(pBlockPtr)  SysCall(pBlockPtr,0x2009) 
#define UnbindIntGS(pBlockPtr)  SysCall(pBlockPtr,0x2032) 
#define VolumeGS(pBlockPtr)  SysCall(pBlockPtr,0x2008) 
#define WriteGS(pBlockPtr)  SysCall(pBlockPtr,0x2013) 
#define BindIntGS(pBlockPtr)  SysCall(pBlockPtr,0x2031) 

#ifndef __prodos__ 
#if 0
#define GetSysPrefs      GetSysPrefsGS 
#define BeginSession     BeginSessionGS 
#define EndSession       EndSessionGS 
#define SessionStatus    SessionStatusGS 
#define ResetCache       ResetCacheGS 
#define ChangePath       ChangePathGS 
#define ClearBackupBit   ClearBackupBitGS 
#define Close            CloseGS 
#define Create           CreateGS 
#define DControl         DControlGS 
#define Destroy          DestroyGS 
#define DInfo            DInfoGS 
#define DRead            DReadGS 
#define DStatus          DStatusGS 
#define DWrite           DWriteGS 
#define EraseDisk        EraseDiskGS 
#define ExpandPath       ExpandPathGS 
#define Flush            FlushGS 
#define Format           FormatGS 
#define GetBootVol       GetBootVolGS 
#define GetDevNumber     GetDevNumberGS 
#define GetDirEntry      GetDirEntryGS 
#define GetEOF           GetEOFGS 
#define GetFileInfo      GetFileInfoGS 
#define GetFSTInfo       GetFSTInfoGS 
#define GetLevel         GetLevelGS 
#define GetMark          GetMarkGS 
#define GetName          GetNameGS 
#define GetPrefix        GetPrefixGS 
#define GetVersion       GetVersionGS 
#define Newline          NewlineGS 
#define Null             NullGS 
#define Open             OpenGS 
#define Quit             QuitGS 
#define Read             ReadGS 
#define SetEOF           SetEOFGS 
#define SetFileInfo      SetFileInfoGS 
#define SetLevel         SetLevelGS 
#define SetMark          SetMarkGS 
#define SetPrefix        SetPrefixGS 
#define UnbindInt        UnbindIntGS 
#define Volume           VolumeGS 
#define Write            WriteGS 
#define BindInt          BindIntGS 
#define ChangePath       ChangePathGS 
#define ClearBackupBit   ClearBackupBitGS 
#define Close            CloseGS 
#define Create           CreateGS 
#define DControl         DControlGS 
#define Destroy          DestroyGS 
#define DInfo            DInfoGS 
#define DRead            DReadGS 
#define DStatus          DStatusGS 
#define DWrite           DWriteGS 
#define EraseDisk        EraseDiskGS 
#define ExpandPath       ExpandPathGS 
#define Flush            FlushGS 
#define Format           FormatGS 
#define GetBootVol       GetBootVolGS 
#define GetDevNumber     GetDevNumberGS 
#define GetDirEntry      GetDirEntryGS 
#define GetEOF           GetEOFGS 
#define GetFileInfo      GetFileInfoGS 
#define GetFSTInfo       GetFSTInfoGS 
#define GetLevel         GetLevelGS 
#define GetMark          GetMarkGS 
#define GetName          GetNameGS 
#define GetPrefix        GetPrefixGS 
#define GetVersion       GetVersionGS 
#define Newline          NewlineGS 
#define Null             NullGS 
#define Open             OpenGS 
#define Quit             QuitGS 
#define Read             ReadGS 
#define SetEOF           SetEOFGS 
#define SetFileInfo      SetFileInfoGS 
#define SetLevel         SetLevelGS 
#define SetMark          SetMarkGS 
#define SetPrefix        SetPrefixGS 
#define UnbindInt        UnbindIntGS 
#define Volume           VolumeGS 
#define Write            WriteGS 
 
#define ChangePathRec ChangePathRecGS 
#define CreateRec CreateRecGS 
#define DAccessRec DAccessRecGS 
#define DevNumRec DevNumRecGS 
#define DInfoRec DInfoRecGS 
#define DIORec DIORecGS 
#define DirEntryRec DirEntryRecGS 
#define ExpandPathRec ExpandPathRecGS 
#define FileInfoRec FileInfoRecGS 
#define FormatRec FormatRecGS 
#define FSTInfoRec FSTInfoRecGS 
#define InterruptRec InterruptRecGS 
#define IORec IORecGS 
#define LevelRec LevelRecGS 
#define NameRec NameRecGS 
#define NewlineRec NewlineRecGS 
#define OpenRec OpenRecGS 
#define PositionRec PositionRecGS 
#define PrefixRec PrefixRecGS 
#define QuitRec QuitRecGS 
#define RefNumRec RefNumRecGS 
#define SetPositionRec SetPositionRecGS 
#define SysPrefRec SysPrefRecGS 
#define VersionRec VersionRecGS 
#define VolumeRec VolumeRecGS 
#define DInfoRec DInfoRecGS 
#define FSTInfoRec FSTInfoRecGS 
#define OpenRec OpenRecGS 
#define VersionRec VersionRecGS 
#endif

#endif 

#endif 

\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/LIST.H b/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/LIST.H
new file mode 100644
index 0000000..98166d4
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/LIST.H
@@ -0,0 +1 @@
+/********************************************
; File: List.h
;
;
; Copyright Apple Computer, Inc. 1986, 1987
; All Rights Reserved
;
********************************************/

#ifndef __types__
#include <types.h>
#endif

#ifndef __quickdraw__
#include <quickdraw.h>
#endif

#ifndef __event__
#include <event.h>
#endif

#ifndef __control__
#include <control.h>
#endif

#ifndef __list__
#define __list__

#define  cString  0x0001   /*ListType bit mask - null terminated string type */
#define  LIST_STRG   0x0001   /*ListType bit mask - null terminated string type */
#define  selectOnlyOne  0x0002   /*ListType bit mask - only one selection allowed */
#define  LIST_SELECT 0x0002   /*ListType bit mask - single selection only */

#define  memDisabled 0x40  /*memFlag - Sets member flag to disabled */
#define  memSelected 0x80  /*memFlag - Sets member flag to selected */

#if 0
typedef struct MemRec  {
      Pointer     memPtr;     /* MemRec - Pointer to string, or custom */
      Byte     memFlag;     /* MemRec - Bit Flag */
      } MemRec,  *MemRecPtr,  **MemRecHndl ;
#endif

typedef struct MemRec  {
      Pointer     memPtr;     /* MemRec - Pointer to string, or custom */
      Byte     memFlag;     /* MemRec - Bit Flag */
	  int		NetNum;		/* network number */
	  char		NodeID;		/* node id */
	  char		ScktNum;		/* socket number */
	  char		Enumerator;		/* enumerator */
	  char		privflag;
	  Word		ckboxId;
      } MemRec,  *MemRecPtr,  **MemRecHndl ;

typedef struct LColorTable  {
      Word     listFrameClr;     /* LColorTable - Frame color */
      Word     listNorTextClr;     /* LColorTable - Unhighlighted text color */
      Word     listSelTextClr;     /* LColorTable - Highlighted text color */
      Word     listNorBackClr;     /* LColorTable - Unhighlighted background color */
      Word     listSelBackClr;     /* LColorTable - Highlighted backgraound color */
      } LColorTable,  *LColorTablePtr,  **LColorTableHndl ;

typedef struct ListCtlRec  {
      CtlRecHndl     ctlNext;     /* ListCtlRec - Handle of Next Control */
      GrafPortPtr     ctlOwner;     /* ListCtlRec - Window owner */
      Rect     ctlRect;     /* ListCtlRec - Enclosing Rect */
      Byte     ctlFlag;     /* ListCtlRec - Bit 7 visible, Bit 0 string type, Bit 1 multiple */
      Byte     ctlHilite;     /* ListCtlRec - (not used) */
      Word     ctlValue;     /* ListCtlRec - First member in display */
      LongProcPtr     ctlProc;     /* ListCtlRec - Address of list definition procedure */
      LongProcPtr     ctlAction;     /* ListCtlRec - Address of list action procedure */
      LongWord     ctlData;     /* ListCtlRec - Low = view size, High = total members */
      LongWord     ctlRefCon;     /* ListCtlRec - Not used */
      LColorTablePtr     ctlColor;     /* ListCtlRec - Null for default colors */
      VoidProcPtr     ctlMemDraw;     /* ListCtlRec - Address of routine to draw members */
      Word     ctlMemHeight;     /* ListCtlRec - Member's Height in Pixels */
      Word     ctlMemSize;     /* ListCtlRec - Bytes in member record */
      MemRecPtr     ctlList;     /* ListCtlRec - Adress of first member record in array */
      CtlRecHndl     ctlListBar;     /* ListCtlRec - Handle of list contrlo's scroll bar control */
      } ListCtlRec,  *ListCtlRecPtr,  **ListCtlRecHndl ;

typedef struct ListRec  {
      Rect     listRect;     /* ListRec - Enclosing Rectangle */
      Word     listSize;     /* ListRec - Number of List Members */
      Word     listView;     /* ListRec - Max Viewable members */
      Word     listType;     /* ListRec - Bit Flag */
      Word     listStart;     /* ListRec - First member in view */
      CtlRecHndl     listCtl;     /* ListRec - List control's handle */
      VoidProcPtr     listDraw;     /* ListRec - Adress of Custum drawing routine */
      Word     listMemHeight;     /* ListRec - Height of list members */
      Word     listMemSize;     /* ListRec - Size of Member Records */
      MemRecPtr     listPointer;     /* ListRec - Pointer to first element in MemRec[] */
      LongWord     listRefCon;     /* ListRec - becomes Control's refCon */
      BarColorsPtr listScrollClr;     /* ListRec - Color table for list's scroll bar */
      } ListRec,  *ListRecPtr,  **ListRecHndl ;

extern pascal void  ListBootInit() inline(0x011C,dispatcher);   /* List */
extern pascal void  ListStartup() inline(0x021C,dispatcher);   /* List */
extern pascal void  ListShutDown() inline(0x031C,dispatcher);   /* List */
extern pascal Word  ListVersion() inline(0x041C,dispatcher);   /* List */
extern pascal void  ListReset() inline(0x051C,dispatcher);   /* List */
extern pascal Boolean  ListStatus() inline(0x061C,dispatcher);   /* List */
extern pascal ListCtlRecHndl  CreateList() inline(0x091C,dispatcher);   /* List */
extern pascal void  DrawMember() inline(0x0C1C,dispatcher);   /* List */
extern pascal LongProcPtr  GetListDefProc() inline(0x0E1C,dispatcher);   /* List */
extern pascal void  NewList() inline(0x101C,dispatcher);   /* List */
extern pascal MemRecPtr  NextMember() inline(0x0B1C,dispatcher);   /* List */
extern pascal MemRecPtr ResetMember() inline(0x0F1C,dispatcher);   /* List */
extern pascal void  SelectMember() inline(0x0D1C,dispatcher);   /* List */
extern pascal void  SortList() inline(0x0A1C,dispatcher);   /* List */

extern pascal void  ListKey() inline(0x171c,dispatcher);  /* added 17-Jan-91 DAL */

#endif
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/MakeFile b/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/MakeFile
new file mode 100644
index 0000000..665492d
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/MakeFile
@@ -0,0 +1 @@
+#
# This is the makefile for the AppleShare (logon) CDEV.
#
# The CDEV file itself is called "AppleShare".  Its code is put
# in the file AppleShare.Load and then RezIIGS'd with the rest
# of the resources into the CDEV.
#
# 31-May-90	MSD	Fixed dependencies to accurately reflect
#			how files depend on each other (particularly
#			due to including ".h" files.
#


#
# The CDEV file depends on the code segment, and on the resource
# definitions.
#
AppleShare	Ä	AppleShare.Load AppleShare.r
	reziigs AppleShare.r -o AppleShare -t "C7  " -c "pdos"
	if {AutoDuplicate} == 1
		DuplicateIIGS -y -mac AppleShare :
	End


#
# AppleShare.Load contains the single code segment used by
# the CDEV.  It depends on all of the object files.
#
AppleShare.Load	Ä	¶
		Appleshare.c.obj 	¶
		AutoLogon.c.obj 	¶
		Dialog1.c.obj 		¶
		Dialog2.c.obj 		¶
		ASPCalls.c.obj 		¶
		PasswordDialog.c.obj 	¶
		ErrorHandling.c.obj 	¶
		myglobals.c.obj 	¶
		GSOS.c.obj		¶
		VolumePassword.c.obj	¶
		DES.aii.obj 		¶
		AlphaSort.aii.obj	¶
		ple.aii.obj		¶
		cmail.aii.obj
# used to say linkiigs -w -x..., but -w masks out missing-symbol errors!  --DAL
	linkiigs -w -x -lseg:$1000 scott	¶
		Appleshare.c.obj 	¶
		AutoLogon.c.obj 	¶
		Dialog1.c.obj 		¶
		Dialog2.c.obj 		¶
		ASPCalls.c.obj 		¶
		PasswordDialog.c.obj 	¶
		ErrorHandling.c.obj 	¶
		myglobals.c.obj 	¶
		GSOS.c.obj 		¶
		VolumePassword.c.obj	¶
		DES.aii.obj 		¶
		AlphaSort.aii.obj	¶
		ple.aii.obj		¶
		cmail.aii.obj		¶
		"{CIIGSLibrary}"CLib(@main) ¶
		"{CIIGSLibrary}"CLib(@~globals) ¶
		-lib "{CIIGSLibrary}"CLib ¶
		 -o AppleShare.Load

#
# Here are the specific dependencies for individual object files.
# Each file depends on its source, and any local ".h" file it
# includes.  No build rules are included.  These are only dependencies.
#
# Note: If the system-supplied include files (i.e. the ones in
# MPW's Interface folder) change, the file should be completely
# rebuilt.
#
Appleshare.c.obj 	Ä	¶
		Appleshare.c	¶
		TYPES.h		¶
		GSOS.h		¶
		LIST.h		¶
		resmgr.h	¶
		newcontrols.h	¶
		newinterface.h	¶
		ASPDefs.h	¶
		myConstants.h	¶
		AppleshareDefs.h

ASPCalls.c.obj		Ä	¶
		ASPCalls.c	¶
		TYPES.h		¶
		LIST.h		¶
		myConstants.h	¶
		ASPDefs.h

AutoLogon.c.obj		Ä	¶
		AutoLogon.c	¶
		TYPES.h     	¶
		LIST.h		¶
		myConstants.h	¶
		ASPDefs.h	¶
		AutoLogonDefs.h	¶
		resmgr.h

Dialog1.c.obj		Ä	¶
		Dialog1.c	¶
		TYPES.h		¶
		LIST.h		¶
		resmgr.h	¶
		NewControls.h	¶
		NewInterface.h	¶
		myConstants.h	¶
		ASPDefs.h	¶
		Dialog1Defs.h

Dialog2.c.obj		Ä	¶
		Dialog2.c	¶
		TYPES.h		¶
		LIST.h		¶
		GSOS.h		¶
		myConstants.h	¶
		ASPDefs.h	¶
		Dialog2Defs.h

ErrorHandling.c.obj 	Ä	¶
		ErrorHandling.c	¶
		TYPES.h		¶
		myConstants.h

GSOS.c.obj		Ä	¶
		GSOS.c		¶
		types.h		¶
		gsos.h		¶
		myConstants.h

myglobals.c.obj		Ä	¶
		myglobals.c	¶
		TYPES.h

PasswordDialog.c.obj 	Ä	¶
		PasswordDialog.c ¶
		TYPES.h		¶
		LIST.h		¶
		myConstants.h	¶
		ASPDefs.h	¶
		PasswordDefs.h

VolumePassword.c.obj 	Ä	¶
		VolumePassword.c ¶
		TYPES.h		¶
		LIST.h		¶
		myConstants.h	¶
		VolumePasswordDefs.h


#
# Default rules for building object files from sources
#
.c.obj		Ä	.c
	CIIGS {default}.c

.aii.obj	Ä	.aii
	AsmIIGS {default}.aii
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/NewControls.h b/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/NewControls.h
new file mode 100644
index 0000000..54d7f0b
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/NewControls.h
@@ -0,0 +1 @@
+/*





*/


#ifndef __types__
#include <types.h>
#endif

#ifndef __quickdraw__
#include <quickdraw.h>
#endif

#ifndef __misctool__
#include <misctool.h>
#endif

#ifndef __resmgr__
#include <resmgr.h>
#endif

#ifndef __newcontrols__
#define __newcontrols__



#define  MachineCDEV  		1
#define  BootCDEV			2
#define  ShutDownCDEV	 	3
#define  InitCDEV 			4
#define  CloseCDEV 			5
#define  EventsCDEV 		6
#define  CreateCDEV			7
#define  AboutCDEV			8
#define  RectCDEV			9
#define  HitCDEV 			10
#define  RunCDEV			11
#define  reserved1			12
#define  reserved2			13
#define  reserved3			14
#define  NeverUsed1			15
#define  NeverUsed2			16
  
#define  wantMachine		1
#define  wantBoot			2
#define  wantShutDown		4
#define  wantInit			8
#define  wantClose			16
#define  wantEvents			32
#define  wantCreate			64
#define  wantAbout			128
#define  wantRect			256
#define  wantHit			512
#define  wantRun			1024
#define  wantReserved1		2048
#define  wantReserved2		4096
#define  wantReserved3		8192
#define  updateSSfromBRAM	16384
#define  CanBeUnActive		32768
  
#define  CDEV_ResType 		0x8018
#define  FLAG_ResType 		0x8019
#define  TwoRect_ResType	0x801a
  
#define  CDEV_FileType 		0xc7
#define  CDEV_AuxType 		0
  
#define  CDEVDATA_FileType 	0x00
#define  CDEVDATA_AuxType 	0x00
  
#define  fCtlActive 		0x8000
#define  fCtlCanBeActive 	0x4000


typedef String(8) Str8;
typedef String(15) Str15;

typedef struct NewCtlRec  {
      struct NewCtlRec  **ctlNext;     /* CtlRec - Handle of next control. */
      GrafPortPtr     ctlOwner;     /* CtlRec - Pointer to control's window. */
      Rect     ctlRect;     /* CtlRec - Enclosing rectangle. */
      Byte     ctlFlag;     /* CtlRec - Bit flags. */
      Byte     ctlHilite;     /* CtlRec - Highlighted part. */
      Integer     ctlValue;     /* CtlRec - Control's value. */
      LongProcPtr     ctlProc;     /* CtlRec - Control's definition procedure. */
      LongProcPtr     ctlAction;     /* CtlRec - Control's action procedure. */
      Longint     ctlData;     /* CtlRec - Reserved for CtrlProc's use. */
      Longint     ctlRefCon;     /* CtlRec - Reserved for application's use. */
      Pointer     ctlColor;     /* CtlRec - Pointer to appropriate color table. */
	  char		ctlReserved[0x10];
	  Longint	ctlID;
	  integer	ctlMoreFlags;
	  integer	ctlVersion;
      } NewCtlRec,  *NewCtlRecPtr,  **NewCtlRecHndl ;

typedef struct FlagsRec {
  Integer	CDEVFlags;	/* messages we need to respond to*/
  byte		Enabled;		/* are we enabled?*/
  byte		Version; 		/* version # of the control panel it works with*/
  byte		Machine;		/* what machine do we need to be run*/
  byte		System;			/* what system do we need to be run*/
  Rect		DataRect;		/* really the width & height; top, left = 0*/
  Str15		name;			/* name of the CDEV, upper/lower case*/
  Str32		author;			/* name of the author */
  Str8		versStr;		/* version of the CDEV */
} FlagsRec,*FlagsPtr,**FlagsHdl;


typedef struct IconRec {
  Integer	kind;  /* always -1 = color*/
  Integer	size;  /* always 280*/
  Integer	height;/* always 20*/
  Integer	width; /* always 28*/
  char	image[20][14];
  char	mask[20][14];
} IconRec, *IconPtr, **IconHdl;
	

typedef struct CDEV {
  Str255	path;	/* full path, including file name of the CDEV*/
  FlagsRec	flags;	/* flags from above*/
  IconRec	icon;	/* icon from above*/
  integer	reserved[5];
} CDEV, *CDEVFake;


typedef struct CDEVHeader {
  Integer	identifier; /* identifier, 'DL'*/
  Integer	version;	/* should be 1*/
  integer	Count;		/* # of CDEV's below*/
  longint	reserved[5]; /* reserved for future use*/
} CDEVHeader;



typedef struct CDEVRec {
  CDEVHeader	header; /* header from above*/
  CDEV		CDEVS[1];   /* the CDEV's*/
} CDEVRec,*CDEVPtr,**CDEVHdl;


typedef struct DITLRec {
  longint	theRefs[2];
} DITLRec, *DITLPtr, **DITLHdl;


typedef struct editLineCtl {
	integer	pCount; /* in this case - 7*/
	longint	ctlID;  /* 1,2,3...*/
	Rect	ctlRect;	  /* the rect*/
	longint	ctlProcRef; /* $80000000*/
	integer	ctlFlag;/* 2*/
	integer	ctlMoreFlags;/* 2*/
	longint	ctlRefCon; /* 0 */
	integer	ctlMaxSize;
	longint	ctlDefaultRef;
	integer	ctlTextSize;
} editLineCtl, *editLinePtr, **editLineHndl;


typedef struct listCtlRec {
	integer pCount;
	longint	ID;
	Rect	ctlRect;
	longint	ctlProcRef;
	integer	ctlFlag;
	integer	ctlMoreFlags;
	longint	ctlRefCon;
	integer	ctlListSize;
	integer	ctlListView;
	integer	ctlListType;
	integer	ctlListStart;
	longint	ctlListDraw;
	integer	ctlListMemHeight;
	integer	ctlListMemSize;
	longint	ctlListRef;
	longint	ctlColorRef;
} listCtlRec, *listCtlPtr, **listCtlHndl;


typedef struct statTextCtl {
	integer pCount;
	longint	ID;
	Rect	ctlRect;
	longint	ctlProcRef;
	integer	ctlFlag;
	integer	ctlMoreFlags;
	longint	ctlRefCon;
	longint ctlTextRef;
	integer	ctlTextSize;
} statTextCtl, *statTextCtlPtr, **statTextCtlHndl;

#endif
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/NewInterface.h b/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/NewInterface.h
new file mode 100644
index 0000000..0dfda5a
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/NewInterface.h
@@ -0,0 +1 @@
+/*





*/



#ifndef __quickdraw__
#include <quickdraw.h>
#endif

#ifndef __event__
#include <event.h>
#endif

#ifndef __newinterface__
#define __newinterface__




typedef struct NEWEventRecord {
    EventRecord	oldRec;
	longint	wmLastClick;
	integer	wmclickcount;
	longint	wmtaskData2;
	longint	wmtaskData3;
	longint	wmtaskData4;
} NEWEventRecord;
  
typedef struct simpleButtonRec {
	integer	pCount; /* in this case - 7*/
	longint	ctlID;  /* 1,2,3...*/
	Rect	ctlRect;	  /* the rect*/
	longint	ctlProcRef; /* $80000000*/
	integer	ctlFlag;/* 2*/
	integer	ctlMoreFlags;/* 2*/
	longint	ctlRefCon; /* 0 */
	longint	TitleRef; /* resource id of string*/
	longint colorRef;
} simpleButtonRec, *simpleButtonPtr, **simpleButtonHdl;

typedef struct RadioButtonRec {
    integer pCount; /* in this case - 7*/
	longint ctlID;  /* 1,2,3...*/
	Rect ctlRect;	  /* the rect*/
	longint ctlProcRef; /* $80000000*/
	integer ctlFlag;/* 2*/
	integer ctlMoreFlags;/* 2*/
	longint ctlRefCon; /* 0 */
	longint TitleRef; /* resource id of string*/
	Integer InitialValue; /* inital value*/
	longint colorRef;
  } RadioButtonRec, *RadioButtonPtr, **RadioButtonHdl;

typedef struct CheckButtonRec {
    integer pCount; /* in this case - 7*/
	longint ctlID;  /* 1,2,3...*/
	Rect ctlRect;	  /* the rect*/
	longint ctlProcRef; /* $80000000*/
	integer ctlFlag;/* 2*/
	integer ctlMoreFlags;/* 2*/
	longint ctlRefCon; /* 0 */
	longint TitleRef; /* resource id of string*/
	Integer InitialValue; /* inital value*/
	longint colorRef;
  } CheckButtonRec, *CheckButtonPtr, **CheckButtonHdl;

extern pascal void ResBootInit() inline(0x011e,dispatcher);
extern pascal Ptr LGetPathName2() inline(0x2211,dispatcher);
#endif
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/PasswordDefs.h b/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/PasswordDefs.h
new file mode 100644
index 0000000..e405816
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/PasswordDefs.h
@@ -0,0 +1 @@
+/*


*/

char OKTxt[] = "\pOK"; /* had 2 leading blanks, 18-Jan-91 DAL */
char CancelTxt[] = "\pCancel"; /* had a leading blank, 18-Jan-91 DAL */
char OldPasswordTxt[] = "\pOld Password:";
char NewPasswordTxt[] = "\pNew Password:";
char OldPassText[9];
char OldPassBuf[9];
char NewPassBuf[9];
char ConfirmMsg[] = "\pPlease reenter your\r\
new password for\r\
confirmation.";
char NotTheSame[] = "\pThe confirmation password was\r\
not the same as the first.\r\
Please start over.";

GrafPortPtr Dialog3;										



ItemTemplate  OK_Btn = {
      ok,     /* ItemTemplate -  itemID */
      50,155,63,235,     /* ItemTemplate -  itemRect */
      buttonItem,     /* ItemTemplate - itemType */
      OKTxt,     /* ItemTemplate - itemDescr */
      0,     /* ItemTemplate - itemValue */
      boldButton,     /* ItemTemplate - itemFlag */
      nil     /* pointer to appropreate ctl color table */
      };


ItemTemplate  CnclBtn = {
      cancel,     /* ItemTemplate -  itemID */
      50,35,63,115,     /* ItemTemplate -  itemRect */
      buttonItem,     /* ItemTemplate - itemType */
      CancelTxt,     /* ItemTemplate - itemDescr */
      0,     /* ItemTemplate - itemValue */
      simpRound,     /* ItemTemplate - itemFlag */
      nil     /* pointer to appropreate ctl color table */
      };



ItemTemplate  OldPassEditBox = {
      Id3,     /* ItemTemplate -  itemID */
      7,140,21,220,     /* ItemTemplate -  itemRect */
      editLine,     /* ItemTemplate - itemType */
      OldPassBuf,     /* ItemTemplate - itemDescr */
      8+EditBoxPwrdFlag,     /* ItemTemplate - itemValue */
      0,     /* ItemTemplate - itemFlag */
      nil     /* pointer to appropreate ctl color table */
      };


ItemTemplate  NewPassEditBox = {
      Id4,     /* ItemTemplate -  itemID */
      27,140,41,220,     /* ItemTemplate -  itemRect */
      editLine,     /* ItemTemplate - itemType */
      NewPassBuf,     /* ItemTemplate - itemDescr */
      8+EditBoxPwrdFlag,     /* ItemTemplate - itemValue */
      0,     /* ItemTemplate - itemFlag */
      nil     /* pointer to appropreate ctl color table */
      };

ItemTemplate  OldText = {
      Id5,     /* ItemTemplate -  itemID */
      10,20,20,135,     /* ItemTemplate -  itemRect */
      statText,     /* ItemTemplate - itemType */
      OldPasswordTxt,     /* ItemTemplate - itemDescr */
      0,     /* ItemTemplate - itemValue */
      0,     /* ItemTemplate - itemFlag */
      nil     /* pointer to appropreate ctl color table */
      };

ItemTemplate  NewText = {
      Id6,     /* ItemTemplate -  itemID */
      30,20,40,135,     /* ItemTemplate -  itemRect */
      statText,     /* ItemTemplate - itemType */
      NewPasswordTxt,     /* ItemTemplate - itemDescr */
      0,     /* ItemTemplate - itemValue */
      0,     /* ItemTemplate - itemFlag */
      nil     /* pointer to appropreate ctl color table */
      };

ItemTemplate  Old_PassText = {
      Id7,     /* ItemTemplate -  itemID */
      10,140,24,220,     /* ItemTemplate -  itemRect */
      statText,     /* ItemTemplate - itemType */
      OldPassText,     /* ItemTemplate - itemDescr */
      0,     /* ItemTemplate - itemValue */
      0,     /* ItemTemplate - itemFlag */
      nil     /* pointer to appropreate ctl color table */
      };

DialogTemplate MyDialog3 = {
      30,30,100,300,     /* DialogTemplate -  dtBoundsRect */
      TRUE,     /* DialogTemplate -  dtVisible */
      nil,     /* DialogTemplate -  dtRefCon */
      &OK_Btn, &CnclBtn, &OldPassEditBox, &NewPassEditBox,
      &OldText, &NewText, nil     /* DialogTemplate - Null terminated array */
      };
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/PasswordDialog.c b/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/PasswordDialog.c
new file mode 100644
index 0000000..8d50384
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/PasswordDialog.c
@@ -0,0 +1 @@
+/*

	File: PasswordDialog.c
	
	By	: Scott Kuechle
	
	Copyright:	©1988-1989 by Apple Computer Inc.
	All rights reserved.																			#}


*/

#include <types.h>
#include <prodos.h>
#include <misctool.h>
#include <quickdraw.h>
#include <window.h>
#include <dialog.h>
#include <control.h>
#include <desk.h>
#include <event.h>
#include <lineedit.h>
#include <misctool.h>
#include <locator.h>
#include <Stdfile.h>
#include <qdaux.h>
#include <list.h>
#include <string.h>
#include <strings.h>


#include "ASPDefs.h"
#include "PasswordDefs.h"

extern DES_Pckt DESPckt;
extern char DES_Result[8];
extern Word PwrdWasChanged;
extern myMemRecPtr SelectedMember;
extern Word LogInAsGuest;

pascal Word my_FilterProc(); 

/*byte*/Word done2;



char NewPasswordBuf[9],OldPasswordBuf[9],ConfirmNewPwrd[9];
char work1[9],work2[9];


pascal Word my_FilterProc3(theDialog,theEvent,theItem)
GrafPortPtr	theDialog;
EventRecord	*theEvent;
long	*theItem;
{
CtlRecHndl	tHandle,EditBoxHndl;
Word PartCode;
int i;
int dbr;
int flag;
Pointer p;


	dbr = SaveDB();

		/* set up event type */
	/*	currEvent = (*theEvent).what;  */
	
		/* set up which key was hit */
	p = (char *)&theEvent->message;		/* do this to find ASCII code of key hit */
	/*  keyHit = p[0];  */
	

		/* check if <open apple><.> keys or <esc> were hit - if so, perform same
			action as cancel button */
	if ((*theEvent).what == keyDownEvt) 
	{
		if (( ((*theEvent).modifiers & appleKey) && (p[0] == '.') ) || (p[0] == 0x1b))
		
		{

				/* tell autologon code that cancel button was hit */
			
			/*  CancelButtonHit = false;  */
			
			
				/* close this dialog window and go back to control panel window */
			
			/*	CloseDialog(Dialog1);  */
			CloseDialog(Dialog3);
			done2 = true;
				
			RestoreDB(dbr);		
			return ((Word)true);
		}
		
	}

	RestoreDB(dbr);
	return ((Word)false);
}



DoPwrdEncryption()
{

			/* encrypt old password with new password as the key */
			
		DESPckt.password = OldPasswordBuf;
		DESPckt.randnum = NewPasswordBuf;	
		DESPckt.result = DES_Result;
		asm
		{
			ldx	#DESPckt
			ldy	#^DESPckt
			jsl	DES
		}
		CopyPassword(work2,DES_Result,8);

			/* encrypt new password with old password as the key */
			
		DESPckt.password = NewPasswordBuf;
		DESPckt.randnum = OldPasswordBuf;	
		DESPckt.result = DES_Result;
		
		asm
		{
			ldx	#DESPckt
			ldy	#^DESPckt
			jsl	DES
		}
		CopyPassword(work1,DES_Result,8);		

}



ReDisplayBothEditBoxes()
{

	OldPassBuf[0] = 0;
		/* remove text display of 'old password' */
	RemoveDItem(Dialog3,Id7);
		/* re-create 'old password' edit box */
	GetNewDItem(Dialog3,&OldPassEditBox);
	ShowDItem(Dialog3,Id3);		/* show 'old password' edit box */
	SetIText(Dialog3,Id4,"\0");		/* show 'new password' edit box */
}



int Do_Pwrd_Dialog(UAM_Str,UserName,RandExOK,Already_Logged_In)
char *UAM_Str;
char *UserName;
Byte RandExOK,Already_Logged_In;
{
Word itemHit;
byte  /*  done2,*/    Ask_For_Confirmation;
int err,err2,i,successful;
Word  screen;




	#undef	dtItemListLength
	#define	dtItemListLength	7


	done2 = false;	Ask_For_Confirmation = false;	successful = false;
		
		/* re-display the arrow cursor */
	InitCursor();


	screen = (GetMasterSCB() & 0x80);
	if (screen) MyDialog3.dtBoundsRect.h1 = 185;
		else MyDialog3.dtBoundsRect.h1 = 25;
	MyDialog3.dtBoundsRect.h2 = MyDialog3.dtBoundsRect.h1 + 270;

	
	Dialog3 = GetNewModalDialog(&MyDialog3);
		
	do
	{
		itemHit = ModalDialog((WordProcPtr)((long)my_FilterProc3 | 0xC0000000));
		
		if (!done2) 
		 
		switch (itemHit)
		{
			case Id1:	/* OK button */
			
				if (Ask_For_Confirmation)
				{
				
					GetIText(Dialog3,Id4,ConfirmNewPwrd);	/* get confirmation of new password */
					
					Pstrcpy(work1,NewPasswordBuf);	Pstrcpy(work2,ConfirmNewPwrd);
					p2cstr(work1);		p2cstr(work2);
					
						/* did user correctly re-type the new password ? */
					if (strcmp(work1,work2)==0)
					{
						p2cstr(NewPasswordBuf);		p2cstr(OldPasswordBuf);
	
						if (!Already_Logged_In)	/* must log in before we can change the password */
						{
							LogInAsGuest = false;	/* must log in as a registered user */
							err = Do_Login(UserName,OldPasswordBuf);
						}
						
						if (!err || Already_Logged_In)
						{
							Pad_With_Nulls(OldPasswordBuf,8);
							Pad_With_Nulls(NewPasswordBuf,8);
							
							if (RandExOK)
							{
	
								/* passwords for the FPChangePassword() call below must be encrypted
									before they are placed in the parameter list for RandEx method. */
								DoPwrdEncryption();		/* encrypt both old and new passwords */
							
								err = cFPChangePassword(UAM_Str,UserName,work1,work2);
							}
							else	/* using Clear Text method */
							{
								
								err = cFPChangePassword(UAM_Str,UserName,nil,nil);
							}
							
							if (err)
							{
								switch(err)
								{
									case 0x61ec:
										Show_Alert_Message(Stop_Alert,"\pSorry, your old password\ris incorrect. Please try\ragain.");
										break;
									case 0x78ec:
									default:
										Show_Alert_Message(Note_Alert,"\pYour password could not be\rchanged. Please try again\ror see your administrator.");
										break;
								}
									/* if we were not previously logged on to this server, then
										we had to logon before making the password change - but
										since the password change failed we must now logout. */
								if (!Already_Logged_In)
								{
									err2 = cFILogout();
								}
							}


						}
						else
						{
								/* check for 'User not authorized' error - means old password was bad */
							if (err == 0x0a15)
								Show_Alert_Message(Stop_Alert,"\pSorry, your old password\ris incorrect. Please try\ragain.");
							else
								Show_PFI_Error(err);
						}
							
						if (!err)	/* successfull change? */
						{
								/* set flag we use with the message center - need to
									know if the password has been changed on us */
							PwrdWasChanged = true;
							
							done2 = true;	/* quit the dialog */
							successful = true;	/* set appropriate return flag */

							CloseDialog(Dialog3);
						
						}
						else	/* something happened, so let them try again */
						{
							Ask_For_Confirmation = false;
								/* re-create 'old password' edit box */
							ReDisplayBothEditBoxes();

						}
						
					}
					else	/* didn't re-enter new password correctly */
					{
						Show_Alert_Message(Stop_Alert,NotTheSame);
						Ask_For_Confirmation = false;
							/* re-create 'old password' edit box */
						ReDisplayBothEditBoxes();
					}
				}
				else
				{
					
					Ask_For_Confirmation = true;
					
					GetIText(Dialog3,Id4,NewPasswordBuf);	/* save new password here */
					GetIText(Dialog3,Id3,OldPasswordBuf);	/* save old password here */

					Show_Alert_Message(Note_Alert,ConfirmMsg);
					
					RemoveDItem(Dialog3,Id3);	/* remove old password edit box from dialog */
					
						/* copy password for display--but this needs to be encrpypted */
					Pstrcpy(OldPassText,OldPasswordBuf);
					
						/* print old password as encrypted (asterisks) */
					for (i=1; i<=OldPassText[0]; ++i)
						OldPassText[i] = /* '*' */  '×';
						
					GetNewDItem(Dialog3,&Old_PassText);
					ShowDItem(Dialog3,Id7);
					SetIText(Dialog3,Id4,"\0");

				}
				break;
				
			case Id2:	/* Cancel button */
				CloseDialog(Dialog3);
				done2 = true;
				break;
				
		}
	} while (!done2);
	
	return (successful);
}
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/RESMGR.H b/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/RESMGR.H
new file mode 100644
index 0000000..a35ced0
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/RESMGR.H
@@ -0,0 +1 @@
+/*

	My implementation of Darryl Lovato's pascal implementation of the resource manager interface


*/

#ifndef __quickdraw__
#include <quickdraw.h>
#endif



#ifndef __resmgr__
#define __resmgr__



#define  rIcon 				0x8001
#define  rPicture 			0x8002
#define  rControlList 		0x8003
#define  rControlTemplate 	0x8004
#define  rWindow 			0x8005
#define  rString 			0x8006
#define  rStringList 		0x8007
#define  rMenuBar 			0x8008
#define  rMenu 				0x8009
#define  rMenuItem 			0x800A
#define  rTextForLETextbox2 0x800B
#define  rCtlDefProc 		0x800C
#define  rCtlColorTbl 		0x800D
#define  rCDEVCode			0x8018
#define  rCDEVFlags			0x8019
#define  rTwoRects			0x801a

#define  login				1
#define  logout				2

typedef struct ResourceRec {
	int		resType;
	Longint	resID;
} ResourceRec;

extern pascal void ResBootInit() inline(0x011e,dispatcher);
extern pascal void ResStartup() inline(0x021e,dispatcher);
extern pascal void ResShutdown() inline(0x031e,dispatcher);
extern pascal Integer ResVersion() inline(0x041e,dispatcher);
extern pascal void ResReset() inline(0x051e,dispatcher);
extern pascal boolean ResStatus() inline(0x061e,dispatcher);
extern pascal void CreateResFile() inline(0x091e,dispatcher);
extern pascal Integer OpenResFile() inline(0x0a1e,dispatcher);
extern pascal void CloseResFile() inline(0x0b1e,dispatcher);
extern pascal void AddRes() inline(0x0c1e,dispatcher);
extern pascal void UpdateResFile() inline(0x0d1e,dispatcher);
extern pascal Handle LoadRes() inline(0x0e1e,dispatcher);
extern pascal void RemoveRes() inline(0x0f1e,dispatcher);
extern pascal void MarkResChange() inline(0x101e,dispatcher);
extern pascal void SetCurResFile() inline(0x111e,dispatcher);
extern pascal Integer GetCurResFile() inline(0x121e,dispatcher);
extern pascal void SetCurResApp() inline(0x131e,dispatcher);
extern pascal Integer GetCurResApp() inline(0x141e,dispatcher);
extern pascal Integer HomeResFile() inline(0x151e,dispatcher);
extern pascal void WriteRes() inline(0x161e,dispatcher);
extern pascal void ReleaseRes() inline(0x171e,dispatcher);
extern pascal void DetatchRes() inline(0x181e,dispatcher);
extern pascal Longint UniqueResID() inline(0x191e,dispatcher);
extern pascal void SetResID() inline(0x1a1e,dispatcher);
extern pascal Integer GetResAttr() inline(0x1b1e,dispatcher);
extern pascal void SetResAttr() inline(0x1c1e,dispatcher);
extern pascal Longint GetResSize() inline(0x1d1e,dispatcher);
extern pascal void MatchResHandle() inline(0x1e1e,dispatcher);
extern pascal Integer GetOpenFileRefNum() inline(0x1f1e,dispatcher);
extern pascal Integer CountTypes() inline(0x201e,dispatcher);
extern pascal integer GetIndType() inline(0x211e,dispatcher);
extern pascal Longint CountRes() inline(0x221e,dispatcher);
extern pascal Handle GetIndRes() inline(0x231e,dispatcher);
extern pascal void SetResLoad() inline(0x241e,dispatcher);
extern pascal void SetResFileDepth() inline(0x251e,dispatcher);
extern pascal Handle GetMapHandle() inline(0x261e,dispatcher);
extern pascal void ResConverter() inline(0x281e,dispatcher);

#endif
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/TYPES.H b/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/TYPES.H
new file mode 100644
index 0000000..bf6a168
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/TYPES.H
@@ -0,0 +1 @@
+/********************************************
; File: Types.h
;
;
; Copyright Apple Computer, Inc. 1986, 1987, 1988
; All Rights Reserved
;
********************************************/

#ifndef __types__
#define __types__


extern int _ownerid;
extern  int _toolErr;

#ifndef noError
#define noError 0x0000
#endif

#ifndef nil
#define nil  0L
#endif

#ifndef NULL
#define NULL  0L
#endif

#ifndef NIL
#define NIL  0L
#endif


/* the tool locator dispatch location */

#define dispatcher 0xE10000

/* return type definitions */

typedef unsigned int Boolean, boolean, BOOLEAN ;
#define FALSE 0
#define TRUE  1
#define true TRUE
#define false FALSE

typedef unsigned char Byte;
typedef unsigned char byte;
typedef unsigned int word;
typedef unsigned int Word;
typedef int integer;
typedef int Integer;
typedef long longint;
typedef long Longint;
typedef long Long;
typedef unsigned long longword;
typedef unsigned long Longword;
typedef unsigned long LongWord;
typedef unsigned long Dblword;  /* retained for back compatibility  */
typedef unsigned long DblWord;  /* retained for back compatibility  */
typedef char *ptr;
typedef char *Ptr;
typedef char *pointer;
typedef char *Pointer;
typedef ptr *handle;
typedef ptr *Handle;
typedef long Fixed;
typedef long Frac;
typedef short OSErr;
typedef extended *ExtendPtr;

typedef long (*ProcPtr)();  /* retained for back compatibility */
typedef pascal void (*VoidProcPtr)();
typedef pascal Word (*WordProcPtr)();
typedef pascal LongWord (*LongProcPtr)();

typedef struct Rect {
     Integer     v1;     /* Rect -   */
     Integer     h1;     /* Rect -   */
     Integer     v2;     /* Rect -   */
     Integer     h2;     /* Rect -   */
    } Rect, *RectPtr, **RectHndl;

typedef struct Point {
     Integer   v;     /* Point -   */
     Integer   h;     /* Point -   */
    } Point, *PointPtr, **PointHndl;

typedef struct TimeRec  {
      Byte     second;     /* TimeRec -  */
      Byte     minute;     /* TimeRec -  */
      Byte     hour;     /* TimeRec -  */
      Byte     year;     /* TimeRec -  */
      Byte     day;     /* TimeRec -  */
      Byte     month;     /* TimeRec -  */
      Byte     extra;     /* TimeRec -  */
      Byte     weekDay;     /* TimeRec -  */
      } TimeRec,  *TimeRecPtr,  **TimeRecHndl ;
   
#define String(size) struct { unsigned char length; unsigned char text[size]; }

typedef String(255) Str255 , *StringPtr, **StringHandle;

#endif
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/VolumePassword.c b/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/VolumePassword.c
new file mode 100644
index 0000000..ac5b147
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/VolumePassword.c
@@ -0,0 +1 @@
+/*


	File: VolumePassword.c
	
	By	: Scott Kuechle
	
	Copyright:	©1988-1989 by Apple Computer Inc.
	All rights reserved.																			#}


*/

#include <types.h>
#include <prodos.h>
#include <misctool.h>
#include <quickdraw.h>
#include <window.h>

#include <dialog.h>
#include <control.h>
#include <desk.h>
#include <event.h>
#include <lineedit.h>

#include <misctool.h>
#include <locator.h>
#include <Stdfile.h>
#include <qdaux.h>

#include <list.h>

#include "myConstants.h"
#include "VolumePasswordDefs.h"


char VolPassBuf[9];



int Do_Vol_Pwrd_Dialog(MountFlag,VolName,VolID,SlotDrive)
char MountFlag;
char *VolName;
int *VolID;
char *SlotDrive;
{
Word itemHit;
byte done;
int err,i;
Word  screen;



	done = false;
	
	ParamText(nil,VolName,nil,nil);

	
		/* re-display the arrow cursor */
	InitCursor();


	screen = (GetMasterSCB() & 0x80);
	if (screen) MyDialog4.dtBoundsRect.h1 = 210;
		else MyDialog4.dtBoundsRect.h1 = 50;
	MyDialog4.dtBoundsRect.h2 = MyDialog4.dtBoundsRect.h1 + 220;

	Dialog4 = GetNewModalDialog(&MyDialog4);

	do
	{
		itemHit = ModalDialog(0x40000000);
		
		switch (itemHit)
		{
			case ok:	/* OK button */
			
				GetIText(Dialog4,3,VolPassBuf);	/* get password user has typed */
				p2cstr(VolPassBuf);	/* need password to be a C-string for login */
				Pad_With_Nulls(VolPassBuf,8);	/* pad it with null characters */
				
					/* set bit indicating volume password pointer is valid */
				MountFlag = MountFlag | VolPwrdBit;
				err = cFIMountVol(MountFlag,VolName,VolPassBuf,VolID,SlotDrive,0);
				if (err)
					Show_PFI_Error(err);
				else
					done = true;
				
				break;
				
			case cancel:	/* Cancel button */
				err = true;
				done = true;
				break;
				
		}
	} while (!done);
	
	CloseDialog(Dialog4);

	return (err);
}
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/VolumePasswordDefs.h b/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/VolumePasswordDefs.h
new file mode 100644
index 0000000..d3177da
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/VolumePasswordDefs.h
@@ -0,0 +1 @@
+/*

	File: VolumePasswordDefs.h
	
	By	: Scott Kuechle
	
	Copyright:	©1988-1989 by Apple Computer Inc.
	All rights reserved.																			#}

*/

char vpOKTxt[] = "\pOK"; /* had 2 leading blanks, 18-Jan-91 DAL */
char vpCancelTxt[] = "\pCancel"; /* had a leading blank, 18-Jan-91 DAL */
char HelpTxt[] = "\pEnter the Password for this volume:";
char PwrdTxt[] = "\pPassword:";
char VolTxt[] = "\pÒ^1Ó";
char PassBuf[9];

GrafPortPtr Dialog4;										


ItemTemplate  vpOK_Btn = {
      ok,     /* ItemTemplate -  itemID */
      75,165,88,245,     /* ItemTemplate -  itemRect */
      buttonItem,     /* ItemTemplate - itemType */
      vpOKTxt,     /* ItemTemplate - itemDescr */
      0,     /* ItemTemplate - itemValue */
      boldButton,     /* ItemTemplate - itemFlag */
      nil     /* pointer to appropreate ctl color table */
      };


ItemTemplate  vpCnclBtn = {
      cancel,     /* ItemTemplate -  itemID */
      75,45,88,125,     /* ItemTemplate -  itemRect */
      buttonItem,     /* ItemTemplate - itemType */
      vpCancelTxt,     /* ItemTemplate - itemDescr */
      0,     /* ItemTemplate - itemValue */
      simpRound,     /* ItemTemplate - itemFlag */
      nil     /* pointer to appropreate ctl color table */
      };



ItemTemplate  vpPassEditBox = {
      3,     /* ItemTemplate -  itemID */
      42,140,56,220,     /* ItemTemplate -  itemRect */
      editLine,     /* ItemTemplate - itemType */
      PassBuf,     /* ItemTemplate - itemDescr */
      8+EditBoxPwrdFlag,     /* ItemTemplate - itemValue */
      0,     /* ItemTemplate - itemFlag */
      nil     /* pointer to appropreate ctl color table */
      };


ItemTemplate  vpVolText = {
      4,     /* ItemTemplate -  itemID */
      15,45,25,400,     /* ItemTemplate -  itemRect */
      statText,     /* ItemTemplate - itemType */
      VolTxt,     /* ItemTemplate - itemDescr */
      0,     /* ItemTemplate - itemValue */
      0,     /* ItemTemplate - itemFlag */
      nil     /* pointer to appropreate ctl color table */
      };

ItemTemplate  vpHelpText = {
      5,     /* ItemTemplate -  itemID */
      27,45,37,400,     /* ItemTemplate -  itemRect */
      statText,     /* ItemTemplate - itemType */
      HelpTxt,     /* ItemTemplate - itemDescr */
      0,     /* ItemTemplate - itemValue */
      0,     /* ItemTemplate - itemFlag */
      nil     /* pointer to appropreate ctl color table */
      };

ItemTemplate  vpPwrdText = {
      6,     /* ItemTemplate -  itemID */
      44,62,58,128,     /* ItemTemplate -  itemRect */
      statText,     /* ItemTemplate - itemType */
      PwrdTxt,     /* ItemTemplate - itemDescr */
      0,     /* ItemTemplate - itemValue */
      0,     /* ItemTemplate - itemFlag */
      nil     /* pointer to appropreate ctl color table */
      };

DialogTemplate MyDialog4 = {
      30,30,130,350,     /* DialogTemplate -  dtBoundsRect */
      TRUE,     /* DialogTemplate -  dtVisible */
      nil,     /* DialogTemplate -  dtRefCon */
      &vpOK_Btn, &vpCnclBtn, &vpPassEditBox,
      &vpVolText, &vpHelpText, &vpPwrdText, nil     /* DialogTemplate - Null terminated array */
      };
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/cmail.aii b/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/cmail.aii
new file mode 100644
index 0000000..ada4d2c
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/cmail.aii
@@ -0,0 +1 @@
+;;;	cmail - check for mail folder on AppleShare.
;
;	Michael V. Stein	03/21/90.
;
;	© Apple, 1990.


	blanks	off
	case	on

;;	equates.




;;	imported addresses.




;;	include files.


	include	'::commonmacros.h'
	include	'e16.dialog'
	include	'm16.dialog'
	include	'm16.gsos'
	include	'm16.misctool'
	include	'm16.qdaux'
	include	'm16.quickdraw'
	include	'm16.window'



;;	macros.




;;	main program.




main	proc


	
	
;;	cmail - check for mail folder on AppleShare.
;
;	entry	user has logged into their AppleShare account
;		stack contains a ptr to the pathname of the mail directory.
;
;	exit	If there are files in the mail folder, a note alert will come 
;		up and tell them this information.



;;	exported addresses.

	export	cmail



cmail	phb
	phk
	plb
	
	tsc
	lda	1+3+1,s		get low word of ptr
	sta	open_pblk+4	lo ptr to pathname to check
	lda	1+3+1+2,s	get hi word of ptr
	sta	open_pblk+4+2	hi ptr to pathname to check
	_OpenGS	open_pblk
	bcs	cmail1		if can't open file
	lda	open_pblk+2
	sta	dir_pblk+2	refnum of open file
	_GetDirEntryGS  dir_pblk
	php			save error code
	_CloseGS  close_pblk	close the file
	plp
	bcs	cmail1		if error occurred
	lda	dir_pblk+$e	get # of entries
	beq	cmail1		if nothing in folder
	
	jsr	daw		display alert window	
	
cmail1	plb
	tsc
	lda	1,s
	sta	1+4,s		move low 16 bits up
	lda	1+1,s
	sta	1+4+1,s		move high 16 bits up
	pla
	pla			remove parameter
	rtl		
		
	
	
;	data used here.

	

;	parameter block to get the number of entries in the directory.


close_pblk  dc.w 1		PCount
	dc.w	0		refnum

dir_pblk  dc.w	6		PCount
	dc.w	0		refnum
	dc.w	0		flags
	dc.w	0		base
	dc.w	0		displacement
	dc.l	dirbuff		ptr to buffer to hold name
	dc.w	0		entrynum
	
dirbuff	ds.b	35		hold name returned by call

aaf1	sta	open_pblk+4	lo ptr to pathname
	stx	open_pblk+6	hi ptr to pathname


open_pblk  dc.w	2		PCount
	dc.w	0		refnum
	dc.l	0		pathname



;;	daw - display alert window.
;
;	entry	none.
;
;	exit	alert is displayed.


daw	ldx	#(320-daww)/2
	pha			space for result
	_GetMasterSCB
	pla
	xba
	rol	a	
	bcc	daw1		if 320 mode
	ldx	#(640-daww)/2
daw1	stx	dawa+1+2	left x
	txa
	clc
	adc	#daww
	sta	dawa+1+6	right x

*** added 28-May-91 DAL
	pha
	_QDVersion
	pla
	and #$0fff
	cmp #$0307
	bcc @skipbeep
*** end of 28-May-91 DAL

*** added 9-Mar-91 DAL
	pea $C100	;"You have mail" SysBeep2 code = $0100; defer to GetNextEvent, silent
	ldx #$3803
	jsl $e10000
;	_SysBeep2
*** end of 9-Mar-91 DAL
@skipbeep

	pha			space for result
	pushw	#0		flags
	pha
	pha			subsitution array - not used
	pushl	#dawa		reference to string
	_AlertWindow
	pla			get item hit off of the stack
	rts
	
	
daww	equ	300		width of window

dawa	dc.b	'0'
	dc.w	60,0,120,0
	dc.b	'3'
	dc.b	'/You have mail waiting./^#0',0

	endp

	end
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/myConstants.h b/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/myConstants.h
new file mode 100644
index 0000000..5a2ac90
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/myConstants.h
@@ -0,0 +1 @@
+/*

	File: myConstants.h
	
	By	: Scott Kuechle
	
	Copyright:	©1988-1989 by Apple Computer Inc.
	All rights reserved.																			#}

*/

/*
	22-May-91 DAL   Changed MaxSrvrNames from 30 to 100.
*/


#define		MyItemID		0x0001		/* default item (first in list) is set to this value */
#define		Id1				MyItemID
#define		Id2				MyItemID + 1
#define		Id3				MyItemID + 2
#define		Id4				MyItemID + 3
#define		Id5				MyItemID + 4
#define		Id6				MyItemID + 5
#define		Id7				MyItemID + 6
#define		Id8				MyItemID + 7
#define		Id9				MyItemID + 8
#define		Id10			MyItemID + 9
#define		Id11			MyItemID + 10
#define		Id12			MyItemID + 11
#define		Id13			MyItemID + 12
#define		Id14			MyItemID + 13
#define		Id15			MyItemID + 14


#define		MaxVols				15		/* maximum number of volumes per server? */
#define		MaxVolLength		27+1	/* volume name can be 27 characters long + 1 length char for pascal strings */

/* #define		MaxSrvrNames		30		/* maximum number of file server names we can hold */
#define		MaxSrvrNames		100		/* maximum number of file server names we can hold -- changed to 100 22-May-91 DAL */
#define		MaxSrvrView			4		/* how many names in our list can be seen at once */
#define		MaxZoneNames		255		/* max number of zones we can store */
#define		MaxZoneView			4		/* max number of zones that can be displayed at once */
#define		MaxZoneLength		33		

#define		NameLength			33
#define		MaxOnline			15
#define		BlockSize			MaxZoneNames*(NameLength+1)
#define		MaxNameLen			31

#define		Stop_Alert			1
#define		Note_Alert			2
#define		Caution_Alert		3

#define		LeftEdge			10
#define		RightEdge			190

#define		FSListID			1
#define		ZoneListID			2
#define		ButtonID			3
#define		UserNameBoxID		4

#define		MySrvrMessID		0x44
#define		MyVolMessID			0x46

#define		ListSize			6
#define		ListBugFixBit		4
#define		EditBoxPwrdFlag		0x8000

#define		AppleTalkFile		0xe2
#define		AShareFST			0x0d

#define		datafork			0
#define		UserNameLen			32

#define		UserVolBitMask		0xfe
#define		UserVolBit			0x01
#define		MountBit			0x80

#define		PwrdFlag			0x80
#define		AutoLogonPwrdFlag	0x8000
#define		VolPwrdBit			0x40	/* for use with the PFI MountVol call */
#define		myUserVolBitFlag	0x4000	/* used with boot time logon code to identify user volumes */

#define		Set					0x80	/* for use with PFI & AFP calls */
#define		Get					0x00

#define		ctlVisible			0			/* make the control visible */

#define		LoginContinue		0x0a04
#define		ThisUserBit			0x01
#define		UserIDBit			0x01
#define		ChangePasswordBit	0x02

typedef struct MySRefNum
{
	char SRefNum;
} MySRefNum,*MySRefNumPtr;

\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/myglobals.c b/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/myglobals.c
new file mode 100644
index 0000000..039375e
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/myglobals.c
@@ -0,0 +1 @@
+/*




*/

#include <types.h>




integer 	qFlag = 0;
integer 	_toolErr;
integer 	_argc;
long 		_argv;
integer 	_retCode;
long 		qPath;
long 		_cmdLine;
long 		_1p;
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/ple.aii b/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/ple.aii
new file mode 100644
index 0000000..06ddd6c
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/LogonCDEV/ple.aii
@@ -0,0 +1 @@
+;;;	ple - print line with ellipses.
;
;	Michael V. Stein	03/11/90.
;
;	© Apple, 1990.


	blanks	off
	case	on

;;	equates.



recty0	equ	0		rectangle offsets
rectx0	equ	2
recty1	equ	4
rectx1	equ	6



;;	imported addresses.





;;	include files.


	include	'::commonmacros.h'
	include	'::dp.h'
	include	'e16.quickdraw'
	include	'm16.quickdraw'
	include	'm16.util2'
;	include	'netprinter.h'



;;	macros.






;;	main program.




main	proc	


;;	exported addresses.



	export	ple



memrectptr  equ	dpsize+1+3+4	pointer to member's record that needs to be displayed

rectptr	equ	dpsize+1+3+4+4	pointer to rect enclosing member



ple	tsc
	sec			
	sbc	#dpsize		make room on stack for new direct page
	tcs			
	phd			save the current direct page
	tcd			new direct page

	phb			save callers data bank
	phk
	plb			make sure our bank is set
	
	pushl	#plec		record to hold pen state
	_GetPenState
	
	pha
	_GetTexTMode		save for later
	
	pushw	#modeCopy	
	_SetTextMode

	pushl	rectptr
	_EraseRect		clear the rectangle enclosing text
	
	pha
	pushl	#pleb		'...'
	_StringWidth
	pla
	lsr	a
	sta	w1		1/2 the length of the three dots
	
	ldy	#rectx0
	lda	[rectptr],y
	clc
	adc	#10
	pha			x loc of line
	
	ldy	#recty1
	lda	[rectptr],y
	dea			
	dea
	pha			y loc of line	
	_MoveTo

	ldy	#rectx1
	lda	[rectptr],y
	ldy	#rectx0
	sec
	sbc	[rectptr],y
	sbc	#10		(c) set, left and right margin of 10
	sta	l3		save total width allowed
	lsr	a
	sec
	sbc	w1		1/2 the width of the three dots
	sta	l3+2		save breaking point in line

	ldy	#2
	lda	[memrectptr],y
	sta	l2+2
	lda	[memrectptr]	[a,x] = handle to string
	sta	l2
	lda	[l2]
	sta	l1
	lda	[l2],y
	sta	l1+2

	pha			space for result
	pushl	l2		ptr to string
	_StringWidth
	pla
	
	cmp	l3
	bcc	ple1		if fits
	bne	ple2		if doesn't fit
ple1	jmp	ple10		it fits, so just go draw it

ple2	ldy	#1
	stz	w2		current width
ple3	sty	w1		current character offset
	lda	[l2],y		get next char
	and	#$ff
	pha
	pha			char to check
	_CharWidth
	pla
	clc
	adc	w2
	sta	w2
	cmp	l3+2		
	bcs	ple4		if past the middle	
	
	ldy	w1
	iny
	bra	ple3		check next character
	
;	Now start from right edge and see what can fit in string.

ple4	lda	[l2]
	and	#$ff
	sta	w6		length of string
	tay			char to start looking at
	stz	w3		width from right edge
	
ple5	sty	w4
	lda	[l2],y
	and	#$ff
	pha			space for result
	pha			char to check
	_CharWidth
	pla
	clc
	adc	w3
	sta	w3		width so far on the right
	ldy	w4
	cmp	l3+2
	beq	ple7		if just fits
	bcs	ple6		if past the middle
	dey
	bra	ple5		check if next char to the left can fit

ple6	inc	w4		starting char after seperator

;	create a string to print 'aaaaa...bbbbb'.

ple7	ldy	#0
ple8	lda	[l2],y
	sta	plea,y		move these characters over
	iny
	iny
	cpy	w1
	bcc	ple8		if more to copy from left edge
	
	ldx	w1
	lda	pleb+1
	sta	plea,x		put in the first space and the ellipses
	inx
	inx
	lda	pleb+1+2
	sta	plea,x		add in last part of seperator		
	
	inx			offset to store right edge
	ldy	w4		place to start moving
ple9	lda	[l2],y		get next character
	sta	plea,x		place into new string
	inx
	inx
	iny
	iny
	;cpx	w6
	cpy	w6		changed 2/21/91 by Monte Benaresh
	bcc	ple9		if more to copy
	beq	ple9		if more to copy
	
	shortmx
	lda	w6
	sec
	sbc	w4		# of chars from right side -1
	adc	#3-1		(c) set , length( middle seperator) -1 
	adc	w1		(c) clear, amt from left side +1
	sta	plea		actual length of new string
	longmx
	
	pushl	#plea	
	bra	ple11
	
ple10	pushl	l2

ple11	_DrawString		draw the string

	ldy	#4
	lda	[memrectptr],y
	and	#$80
	beq	ple12		if not selected
	
	pushl	rectptr
	_InvertRect		mark it as selected

ple12	pushl	#plec		
	_SetPenState		restore orginal penstate
	
	_SetTextMode		restore original text mode

	plb			restore orginal data bank
	
	pld			restore original direct page
	
	lda	dpsize+2,s
	sta	dpsize+15-1,s	move upper 16 bits to top of stack

	lda	dpsize+1,s

	sta	dpsize+15-2,s	move lower 16 bits to top of stack
	
	tsc
	clc
	adc	#dpsize+15-3	
	tcs			return address is now on top of stack	
	rtl			

	
;	data used here.


;plea	ds.b	namelen+5	leave some slop space	

plea	ds.b	33+5		

pleb	dc.b	3,'...'

plec	ds.b	pnStateSize	hold pen state









	endp

	end
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/MIDICDEV/MakeFile b/IIGS.601.SRC/A.U.G/CtlPanel/MIDICDEV/MakeFile
new file mode 100644
index 0000000..0b42094
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/MIDICDEV/MakeFile
@@ -0,0 +1 @@
+
CDEV = Midi



{CDEV}	Ä	{CDEV}.Load 	¶
		{CDEV}.r
	reziigs {CDEV}.r -o {CDEV} -t "C7  " -c "pdos"
	if {dup}	# test whether we should duplicateiigs
		duplicateiigs -m -y {CDEV} {CDEV}
	end


{CDEV}.Load	Ä			¶
			midi.aii.obj 	¶
			sul.aii.obj
	LinkIIGS -x -lseg midi 		¶
			midi.aii.obj 	¶
			sul.aii.obj 	¶
			 -o {CDEV}.Load


midi.aii.obj	Ä	midi.aii
	asmiigs midi.aii

sul.aii.obj	Ä	sul.aii
	asmiigs sul.aii
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/MIDICDEV/commonmacros.h b/IIGS.601.SRC/A.U.G/CtlPanel/MIDICDEV/commonmacros.h
new file mode 100644
index 0000000..48625c7
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/MIDICDEV/commonmacros.h
@@ -0,0 +1 @@
+;...............................................................
;
;        Push 2 bytes onto stack
;
;    pushw loc     -- pushes bytes onto stack from 'loc'
;    pushw loc,x   -- pushes bytes onto stack from 'loc,x'
;    pushw #n      -- pushes constant #n onto stack
;    pushw         -- pushes bytes onto stack (from A)
;...............................................................
	MACRO
	pushw &addr,&reg
	IF &addr[1:1]='#' AND &SETTING('LONGA')='ON' THEN
		pea		|&addr[2:255]
	ELSE
		IF &addr­'' THEN
			IF &reg­'' THEN 
				lda		&addr,&reg
			ELSE
				lda		&addr
			ENDIF
		ENDIF
		pha
	ENDIF
	MEND


;............................................................
;
;        Pull long (4 bytes) from stack
;
;    pulllong address             - pull off stack to address
;    pulllong addr1,addr2         - pull off stack into 2 places
;    pulllong [zeropage],offset   - pull off stack and store indirectly             
;    pulllong                     - pull off stack and leave in A
;...............................................................
	MACRO
	pulll &addr1,&addr2
	IF &addr1='' THEN
	IF &addr2­'' THEN 
		AERROR 'Illegal 2nd parameter'
	ENDIF
		pullw
		pullw
	ELSEIF &addr2='' THEN
		pullw  &addr1
		pullw  &addr1+2
	ELSEIF &addr1[1:1]='[' THEN
		ldy   #&addr2
		pullw  &addr1,y
		ldy   #&addr2+2
		pullw  &addr1,y
	ELSE
		pullw  &addr1
		sta   &addr2
		pullw  &addr1+2
		sta   &addr2+2
	ENDIF
	MEND

;...............................................................
;
;        Pull 2 bytes from stack
;
;    pullw loc     -- pulls bytes off stack and stores in 'loc'
;    pullw loc,x   -- pulls bytes off stack and stores in 'loc,x'
;    pullw         -- pulls bytes off stack and leaves in A
;...............................................................
	MACRO
	pullw &addr,&reg
		pla
	IF &addr­'' THEN
		IF &reg­'' THEN
			sta		&addr,&reg
		ELSE
			sta		&addr
		ENDIF
	ELSEIF &reg­'' THEN 
		AERROR 'Illegal 2nd parameter'
	ENDIF
	MEND

;............................................................
;
;        Push long (4 bytes) onto stack
;
;    pushl address             - push contents of address
;    pushl address,x           - push contents of address,x
;    pushl const,s             - push contents of stack+const    
;    pushl #address/const      - push address or constant
;    pushl [zeropage],offset   - push using indirect address
;...............................................................
	MACRO
	pushl &addr,&offset
	IF &addr[1:1]='#' THEN
		pea		&addr[2:255]>>16
		pea		|&addr[2:255]
	ELSEIF &addr[1:1]='[' THEN
		ldy		#&offset+2
		pushw &addr,y
		ldy		#&offset
		pushw &addr,y
	ELSEIF &offset='s' THEN
		pushw &addr,s
		pushw &addr,s
	ELSEIF &offset='' THEN
		pushw  &addr+2
		pushw  &addr
	ELSE
		pushw &addr+2,&offset
		pushw &addr,&offset
	ENDIF
	MEND



;	skip1 - skip the next byte


	MACRO
	skip1
	dc.b	$24
	ENDM


;	skip2 - skip the next 2 bytes.


	MACRO
	skip2
	dc.b	$2c
	ENDM
	
	
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/MIDICDEV/midi.aii b/IIGS.601.SRC/A.U.G/CtlPanel/MIDICDEV/midi.aii
new file mode 100644
index 0000000..5cf2568
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/MIDICDEV/midi.aii
@@ -0,0 +1 @@
+;;		midi - cdev to choose midi driver.
;
;		Michael Stein		6/20/90
;
;		(c) Copyright Apple Computer 1990.


		msb	off
		string	asis
		blanks	off

		INCLUDE	'E16.CONTROL'
		INCLUDE	'M16.UTIL'
		INCLUDE	'M16.GSOS'
		INCLUDE	'M16.CONTROL'
		INCLUDE	'M16.MISCTOOL'
		INCLUDE 'M16.LIST'
		INCLUDE	'M16.MEMORY'
		INCLUDE	'M16.INTMATH'
		INCLUDE	'M16.PRINT'

		ENTRY	bogusCDEV,\
			InitCDEV,\
			hitCDEV, \
			CloseCDEV,\
			CreateCDEV,\
			AboutCDEV

		
		ENTRY	WriteData

		import	sul

zp0		equ	0		;Zero page use
zp1		equ	zp0+4
zpsize		equ	zp1+4		;Length of zero page.

MemRecSize	equ	5		;Size of each member record.

AShareFST	equ	$0d


*##############################################################################
*
* Below is the main entry point for this CDEV.  All messages (commands)
* passed to the CDEV by the Control Panel go through this point.  This CDEV
* handles only 4 of the standard CDEV calls.  These are listed below:
*
*	Call Name	Call Number
*	---------	-----------
*	INIT		4
*	CLOSE		5
*	CREATE		7
*	ABOUT		8
*
* ON ENTRY:	C,X,Y =	Unknown
*		Stack =	Result Space (Long)
*			Message (Word)
*			Data1 (Long)
*			Data2 (Long)
*			Return Address (3 Bytes)
*
*			Message = Call Number
*			Data1 = Window Grafport
*			Data2 = Unused
*
* ON EXIT	C,X,Y =	Changed
*		Stack =	Result (Long)
*
*			Result = 0 (always)
*
*##############################################################################

main		PROC

		ENTRY	Data1,Data2
		ENTRY	ControlList
		ENTRY	AboutList
		ENTRY	MErrorList
		ENTRY	Mem1RecH
		ENTRY	MyID
		ENTRY	List1Count
		ENTRY	List1ID
		ENTRY	CreateError

		phb			;Save old data reg
		phk			;Set data reg = prog reg
		plb

		lda	5,s		;Load DATA2 off the stack
		sta	Data2		;and store it locally.
		lda	7,s
		sta	Data2+2
		lda	9,s		;Load DATA1 off the stack
		sta	Data1		;and store it locally.
		lda	11,s
		sta	Data1+2
		lda	13,s		;Load MESSAGE off the
		sta	Message		;stack and store it locally.

		lda	1,s		;Bump the stack up to prepare
		sta	11,s		;to take off the 3 parameters
		lda	3,s		;that we stored about.
		sta	13,s

		PullWord		;Get rid of MESSAGE space
		PullLong		;Get rid of DATA1 space
		PullLong		;Get rid of DATA2 space

		lda	Message		;Load the call number
		cmp	#12		;Compare againts max+1
		bcs	ret_addr	;If >= max+1, just leave.

		pea	ret_addr-1	;Push our return address
		asl	a		;Times 2 into word table
		tax			;Move into index reg
		lda	cdev_calls,x	;Load the address of call handler
		pha			;Push the address of routine on the stack
		rts			;Jump to the call handler

ret_addr	lda	#0		;Make sure we return zeros.
		sta	5,s
		sta	7,s

		plb			;Restore NDAs data bank register
		rtl			;Return to Control Panel NDA.

Message		dc.w	0		;Local storage for MESSAGE
Data1		dc.l	0		;Local storage for DATA1
Data2		dc.l	0		;Local storage for DATA2

MyID		dc.w	0

CreateError	dc.w	0		;0 = no error, 1 = error

cdev_calls	dc.w	bogusCDEV-1	;0	;Null
		dc.w	bogusCDEV-1	;1	;MachineCDEV
		dc.w	bogusCDEV-1	;2	;BootCDEV
		dc.w	bogusCDEV-1	;3	;ShutdownCDEV
		dc.w	InitCDEV-1	;4
		dc.w	CloseCDEV-1	;5
		dc.w	bogusCDEV-1	;6	;EventsCDEV
		dc.w	CreateCDEV-1	;7
		dc.w	AboutCDEV-1	;8
		dc.w	bogusCDEV-1	;9	;RectCDEV
		dc.w	hitCDEV-1	;10	;HitCDEV
		dc.w	bogusCDEV-1	;11	;RunCDEV


ControlList	dc.l	List1Control
		dc.l	SText1Control	;Port:
		dc.l	SText2Control
		dc.l	radio1
		dc.l	radio2
		dc.l	radio3
		dc.l	radio4
		dc.l	radio5
		dc.l	radio6
		dc.l	radio7
		dc.l	radio8
		dc.l	radio9
		dc.l	radio10
		dc.l	0

LeftEdge	equ	10
RightEdge	equ	190
TL1Vert		equ	90
BR1Vert		equ	TL1Vert+42
TL2Vert		equ	79
BR2Vert		equ	121
TL3Vert		equ	TL1Vert-10
BR3Vert		equ	TL1Vert

TL4Vert		equ	69
BR4Vert		equ	79

List1Control	dc.w	14		;PCount
List1ID		dc.l	1		;ID number
		dc.w	TL1Vert
		dc.w	LeftEdge
		dc.w	BR1Vert
		dc.w	RightEdge
		dc.l	$89000000	;listcontrol ID
		dc.w	0		;Flag
		dc.w	$1401+fCtlCanBeTarget+fCtlWantEvents	;More Flags
		dc.l	0		;Ref con
List1Count	dc.w	0
		dc.w	0		;Number seen
		dc.w	6		;Single selection Pascal strings
List1Start	dc.w	1		;1st member seen
		dc.l	0		;Draw routine
		dc.w	10		;Height
		dc.w	5		;List record size
Mem1RecH	dc.l	0


SText1Control	dc.w	8		;PCount
		dc.l	3		;ID number
		dc.w	3
		dc.w	LeftEdge
		dc.w	3+10
		dc.w	RightEdge
		dc.l	$81000000	;Static text
		dc.w	1		;Flag
		dc.w	$1000		;More flag
		dc.l	0
		dc.l	SText1
		dc.w	SText1Len

SText1		dc.b	'MIDI connection:'
SText1Len	equ	*-SText1



SText2Control	dc.w	8		;PCount
		dc.l	3		;ID number
		dc.w	TL3Vert
		dc.w	LeftEdge
		dc.w	BR3Vert
		dc.w	RightEdge
		dc.l	$81000000	;Static text
		dc.w	1		;Flag
		dc.w	$1000		;More flag
		dc.l	0
		dc.l	SText2
		dc.w	SText2Len

SText2		dc.b	'MIDI driver:'
SText2Len	equ	*-SText2



AboutList	dc.w	8		;Pcount
		dc.l	1		;ID
		dc.w	38,5,138,280
		dc.l	$81000000
		dc.w	1
		dc.w	$1000
		dc.l	0
		dc.l	AboutText
		dc.w	AboutTextLen
AboutText	dc.b	'The MIDI Control Panel lets you specify how you are using '
		dc.b	'a MIDI device.  Select the port or slot that the MIDI '
		dc.b	'device is connected to and then specify the MIDI driver.'
		DC.B	$0D,'Example:',$0D
		DC.B	'     An APPLE MIDI interface connects to either the '
		DC.B	'printer or modem port, and the driver file is '
		DC.B	'ÒApple.MidiÓ.', $0D
		DC.B	'     MIDI driver files are read from the ÒDriversÓ folder. '
AboutTextLen	equ	*-AboutText

MErrorList	dc.w	8		;Pcount
		dc.l	1		;ID
		dc.w	TL1Vert
		dc.w	LeftEdge
		dc.w	BR2Vert
		dc.w	RightEdge
		dc.l	$81000000
		dc.w	1
		dc.w	$1000
		dc.l	0
		dc.l	MErrorText
		dc.w	MErrorTextLen
MErrorText	dc.b	'An error occured while trying to allocate '
		dc.b	'memory.  This CDEV requires some free '
		dc.b	'memory in order to operate.'
MErrorTextLen	equ	*-MErrorText


;leftedge2	equ	35
leftedge2	equ	10

radio1ID	equ	10
radiotop	equ	14
rhspace		equ	40
rvspace		equ	12		vertical spacing between radio buttons


;	radio buttons.


radio1	dc.w	8		Pcount
	dc.l	radio1ID	ID
	dc.w	radiotop
	dc.w	leftedge
	dc.w	0		bottom y - let system figure it out
	dc.w	0		right x  - let system figure it out
	dc.l	radiocontrol
	dc.w	1		family 1
	dc.w	FctlProcRefNotPtr
	dc.l	0		ref con
	dc.l	radio1T		ptr to title
	dc.w	0		initial value
radio1t	str	'Printer Port'

radio2	dc.w	8		Pcount
	dc.l	radio1ID+1	ID
	dc.w	radiotop+rvspace
	dc.w	leftedge
	dc.w	0		bottom y - let system figure it out
	dc.w	0		right x  - let system figure it out
	dc.l	radiocontrol
	dc.w	1		family 1
	dc.w	FctlProcRefNotPtr
	dc.l	0		ref con
	dc.l	radio2T		ptr to title
	dc.w	0		initial value
radio2t	str	'Modem Port'

radio3	dc.w	8		Pcount
	dc.l	radio1ID+2	ID
	dc.w	radiotop+rvspace*2
;	dc.w	leftedge+25
	dc.w	leftedge
	dc.w	radiotop+rvspace*2+10
;	dc.w	leftedge+25+100
	dc.w	leftedge+100
	dc.l	$81000000	;Static text
	dc.w	1		;Flag
	dc.w	$1000		;More flag
	dc.l	0
	dc.l	radio3t
	dc.w	radio3len

radio3t	 dc.b	'Card Slot:'
radio3len  equ	*-radio3t




radio4	dc.w	8		Pcount
	dc.l	radio1ID+3	ID
	dc.w	radiotop+rvspace*3
	dc.w	leftedge2
	dc.w	0		bottom y - let system figure it out
	dc.w	0		right x  - let system figure it out
	dc.l	radiocontrol
	dc.w	1		family 1
	dc.w	FctlProcRefNotPtr
	dc.l	0		ref con
	dc.l	radio4T		ptr to title
	dc.w	0		initial value
radio4t	str	'1'

radio5	dc.w	8		Pcount
	dc.l	radio1ID+4	ID
	dc.w	radiotop+rvspace*3
	dc.w	leftedge2+rhspace
	dc.w	0		bottom y - let system figure it out
	dc.w	0		right x  - let system figure it out
	dc.l	radiocontrol
	dc.w	1		family 1
	dc.w	FctlProcRefNotPtr
	dc.l	0		ref con
	dc.l	radio5T		ptr to title
	dc.w	0		initial value
radio5t	str	'2'

radio6	dc.w	8		Pcount
	dc.l	radio1ID+5	ID
	dc.w	radiotop+rvspace*3
	dc.w	leftedge2+rhspace*2
	dc.w	0		bottom y - let system figure it out
	dc.w	0		right x  - let system figure it out
	dc.l	radiocontrol
	dc.w	1		family 1
	dc.w	FctlProcRefNotPtr
	dc.l	0		ref con
	dc.l	radio6T		ptr to title
	dc.w	0		initial value
radio6t	str	'3'


radio7	dc.w	8		Pcount
	dc.l	radio1ID+6	ID
	dc.w	radiotop+rvspace*3
	dc.w	leftedge2+rhspace*3
	dc.w	0		bottom y - let system figure it out
	dc.w	0		right x  - let system figure it out
	dc.l	radiocontrol
	dc.w	1		family 1
	dc.w	FctlProcRefNotPtr
	dc.l	0		ref con
	dc.l	radio7T		ptr to title
	dc.w	0		initial value
radio7t	str	'4'

radio8	dc.w	8		Pcount
	dc.l	radio1ID+7	ID
	dc.w	radiotop+rvspace*4
	dc.w	leftedge2
	dc.w	0		bottom y - let system figure it out
	dc.w	0		right x  - let system figure it out
	dc.l	radiocontrol
	dc.w	1		family 1
	dc.w	FctlProcRefNotPtr
	dc.l	0		ref con
	dc.l	radio8T		ptr to title
	dc.w	0		initial value
radio8t	str	'5'

radio9	dc.w	8		Pcount
	dc.l	radio1ID+8	ID
	dc.w	radiotop+rvspace*4
	dc.w	leftedge2+rhspace
	dc.w	0		bottom y - let system figure it out
	dc.w	0		right x  - let system figure it out
	dc.l	radiocontrol
	dc.w	1		family 1
	dc.w	FctlProcRefNotPtr
	dc.l	0		ref con
	dc.l	radio9T		ptr to title
	dc.w	0		initial value
radio9t	str	'6'


radio10	dc.w	8		Pcount
	dc.l	radio1ID+9	ID
	dc.w	radiotop+rvspace*4
	dc.w	leftedge2+rhspace*2
	dc.w	0		bottom y - let system figure it out
	dc.w	0		right x  - let system figure it out
	dc.l	radiocontrol
	dc.w	1		family 1
	dc.w	FctlProcRefNotPtr
	dc.l	0		ref con
	dc.l	radio10T	ptr to title
	dc.w	0		initial value
radio10t  str	'7'



		ENDP

*##############################################################################
*			Below are the CDEV handler routines		      *
*##############################################################################

bogusCDEV	PROC
		rts
		ENDP




HitCDEV		PROC

		IMPORT	scv,slot,intext

		
hit		lda	data2		id of control
		cmp	#10
		bcc	hit2		if not radio control
		cmp	#12
		beq	hit2		if slot button
		bcs	hit1		if external slot selection
		
		pha			save for now
		lda	slot
		clc
		adc	#10+2
		tax
		lda	#0
		jsr	scv		set control value
		pla
		
		sec
		sbc	#10-1		(c) clear, convert to slot 1 or 2
		sta	slot		save
		stz	intext
		rts

hit1		sbc	#10+2		(c) set, convert to external slot 1-7
		sta	slot
		lda	#1
		sta	intext


hit2		rts		

		ENDP
		
		
				
		

InitCDEV	PROC


		IMPORT	slot,intext,scv,wptr


init		lda	data1
		sta	wptr
		lda	data1+2
		sta	wptr+2
				
		PushLong #0		;Result space
		PushLong Data1		;Window pointer
		Pushlong #1		;Push list #
		_GetCtlHandleFromID
		pla
		plx
		
		pha			;space for result
		pushword #0		;start from top
		phx			;hi word of list control
		pha			;lo word of list control
		_NextMember2		;find the selected item

		PushLong #0		;Result space
		PushLong Data1		;Window pointer
		pushLong #1		;Push list #
		_GetCtlHandleFromID
		_SelectMember2		;make sure it is visible
				
;		init the radio buttons.

		lda	#1
		ldx	intext
		bne	init2		if external slot
		
		ldy	slot
		cpy	#2+1
		bcs	init3		if some sort of error occurred
		ldx	#10
		dey
		beq	init1		if printer port
		inx
init1		jmp	scv		set control value and return

init2		lda	slot
		clc
		adc	#10+2
		tax
		lda	#1
		jmp	scv		set control value and return
			
init3		rts
		
		ENDP

*##############################################################################

*******************************************************************************
* Times5
*
* This routine will multiply the number in X with 5 and return the result
* in the variable AddIndex.
*
* Inputs: X = Number to mulitiply
*
* Outputs: AddIndex = Result (long)
*******************************************************************************

Times5		PROC

		IMPORT	drvr
		EXPORT AddIndex

		PushLong #0		;Result space
		phx			;Item number
		PushWord #5		;Item length
		_Multiply
		PullLong AddIndex	;Offset into member list
		rts

AddIndex	dc.l	0

		ENDP

CloseCDEV	PROC

		IMPORT	drvr

		phd			;Save the old D reg.
		tsc			;*Stack -> C reg.
		sec			;Add 4 bytes
		sbc	#4		; (actually minus)
		tcs			;C reg. -> *Stack
		ina
		tcd			;C reg. -> *DPage

		lda	CreateError
		beq	@CloseIt
		jmp	Exit

@CloseIt	ldx	List1ID		;Look at list #1
		jsr	FindSelected	;Find selected member
		bne	@FoundOne	;Branch if we found one!
		jmp	Exit		;No member selected! (just leave)

@FoundOne	dex			;Minus 1 for multiply
		jsr	Times5		;Times 5 for each record.

;------------------------------------------------------------------------------
; Below we add the offset for this record number (# times 5) to the
; base location to the member pointer list.
;------------------------------------------------------------------------------

		PushLong Mem1RecH
		_HLock

		lda	Mem1RecH
		sta	zp0
		lda	Mem1RecH+2
		sta	zp0+2
		ldy	#2
		lda	[zp0]
		tax
		lda	[zp0],y
		sta	zp0+2
		stx	zp0

		clc
		lda	AddIndex	;Load low word of offset
		adc	zp0		;Add it to low word of base
		sta	zp0		;Store on zero page.
		lda	AddIndex+2	;Now do the same for the
		adc	zp0+2		;high word.
		sta	zp0+2

		ldy	#2		;Zero page location 00-03 now
		lda	[zp0]		;points to a value that is a
		tax			;pointer to the string to move.
		lda	[zp0],y		;Get this pointer and hold it
		pha			;in the X and Y registers.
					;Pushlong pointer to string.
		phx			;Must go onto the stack high-low!

;------------------------------------------------------------------------------
; Below we move the name of the file from our member list into the
; MIDI.SETUP file buffer for writting out.  We're falling through here
; with the source address pointer on the stack.
;------------------------------------------------------------------------------

		PushLong #drvr
		PushLong #33
		_BlockMove

		PushLong Mem1RecH
		_HUnlock

		jsr	WriteData

Exit		tsc			;*Stack -> C reg.
		clc			;Subtract 4 bytes.
		adc	#4		; (actually plus)
		tcs			;C reg. -> *Stack
		pld			;Restore old D reg.

		lda	MyID
		beq	@NoID

		PushWord MyID		;Dispose of all our membory
		_DisposeAll

		PushWord MyID		;Dispose of our
		_DeleteID		;memory ID.

@NoID		rts

*******************************************************************************
* FindSelected
*
* This routine will call the list manager tool to find the selected member
* of the specified list and return it in X.
*
* Inputs: X = List number
*
* Outputs: X = Item number ( 0 = no item selected)
*******************************************************************************

FindSelected	PushWord #0		;Result space (for _ResetMember2)

;------------------------------------------------------------------------------
; Below we get the control handle for list #n and put it on the stack
; for the _ResetMember2 call.
;------------------------------------------------------------------------------

		PushLong #0		;Result space
		PushLong Data1		;Window pointer
		PushWord #0		;Push high word of list #
		phx			;Push low word of list #
		_GetCtlHandleFromID
		bcs	@BadExit

;------------------------------------------------------------------------------
; After the above code, the control handle is on the stack for use in the
; next call.
;------------------------------------------------------------------------------

		ldx	#$131C
		jsl	>$E10000	;_ResetMember2
		plx			;Pull item number
		bcs	@BadExit
		rts

@BadExit	lda	#0
		rts

		ENDP

*##############################################################################

AboutCDEV	PROC
		PushLong #0			;Space for result
		PushLong Data1			;Grafport
		PushWord #0			;Ptr to single
		PushLong #AboutList
		_NewControl2
		PullLong

		rts
		ENDP

*##############################################################################

CreateCDEV	PROC

		PushWord #0			;Result space
		PushWord #$5000			;DA type
		_GetNewID
		PullWord MyID
		bcc	@GotID
		jmp	@MemoryError1

@GotID		PushLong #0			;Result space
		PushLong #1			;Size of block
		PushWord MyID			;User ID
		PushWord #$8018			;Attributes
		PushLong #0			;Pointer to mem
		_NewHandle
		PullLong Mem1RecH
		bcs	@MemoryError2


		stz	List1Count

		stz	PrePickFlag		;0 = don't pre-pick
		jsr	ReadPSetup
		bcs	@L1
		inc	PrePickFlag		;Try to pre-pick midi driver filename.
		

;------------------------------------------------------------------------------
; Below we add zpsize bytes to the stack and point the direct page register
; there.  We need zpsize bytes of zero page in SCAN4DRIVERS.
;------------------------------------------------------------------------------

@L1		phd				;Save the old D reg.
		tsc				;*Stack -> C reg.
		sec				;Add 12 bytes
		sbc	#zpsize			; (actually minus)
		tcs				;C reg. -> *Stack
		ina
		tcd				;C reg. -> *DPage

		jsr	Scan4Drivers

		tsc				;*Stack -> C reg.
		clc				;Subtract 12 bytes.
		adc	#zpsize			; (actually plus)
		tcs				;C reg. -> *Stack
		pld				;Restore old D reg.

		PushLong #0			;Space for result
		PushLong Data1			;WindPort
		PushWord #3			;Ptr to Ptrs
		PushLong #ControlList		;Ptr to control list
		_NewControl2
		PullLong			;Discard zeros

		stz	CreateError		;Flag no error!

		jsr	stl			;sort the lists
		
		rts

@MemoryError1	stz	MyID			;Flag no ID
@MemoryError2	lda	#0001			;Flag error!
		sta	CreateError

		PushLong #0			;Space for result
		PushLong Data1			;WindPort
		PushWord #0			;Ptr to single
		PushLong #MErrorList		;Ptr to control
		_NewControl2
		PullLong			;Discard

		rts



;;	gnp - generate network path.
;

gnp		phd			;Save the old D reg.
		tsc			;*Stack -> C reg.
		sec			;Add 12 bytes
		sbc	#zpsize		; (actually minus)
		tcs			;C reg. -> *Stack
		ina
		tcd			;C reg. -> *DPage

		_FSTSpecific  gup_pblk	  get user path
		lda	gup_pblk+8
		sta	zp0
		lda	gup_pblk+8+2
		sta	zp0+2

;	copy over path to user's folder.

		sep	#$30
		longa	off
		longi	off

		lda	[zp0]
		sta	w1		# to copy
		ldy	#2
		ldx	#0
gnp1		cpx	w1
		bcs	gnp2		if done
		lda	[zp0],y
		sta	netobj,x	save here for now
		iny
		inx
		bra	gnp1		move next char
	
;	add over the final ':Setup:MIDI.SETUP'

gnp2		ldy	#0

gnp3		cpy	#aafaL
		bcs	gnp4		if done
		lda	aafa,y		get next char of ending string
		sta	netobj,x
		iny
		inx
		bra	gnp3		process next char
	
gnp4		lda	w1
		clc
		adc	#aafaL
		
		rep	#$30
		longa	on
		longi	on

		and	#$ff
		sta	netobj		length of gs/os string
		ldx	#netobj
		ldy	#^netobj

		tsc			;*Stack -> C reg.
		clc			;Subtract 12 bytes.
		adc	#zpsize		; (actually plus)
		tcs			;C reg. -> *Stack
		pld			;Restore old D reg.

		rts
		


;	parameter block to get user path from appleshare.


aafa		dc.b	':Setup:MIDI.SETUP'
aafaL		equ	*-aafa		length of this portion of path


gup_pblk  	dc.w	3		3 parameters
		dc.w	AShareFST	id of the appleshare fst
		dc.w	8		command for get user path
		ds.b	4		ptr to pathname

netobj		ds.b	100

w1		ds.b	2



;;	inb - is network boot.
;
;	entry	(inba..) = gs/os parameter block to get info on boot device.
;
;	exit	(x) != 0 if this was a network boot.


inb		_DinfoGS  inba		get device info on boot device
		ldx	#0		assume not network boot
		lda	inba+$14	get device id
		cmp	#$1e		
		bne	inb1		if not appleshare fst
		inx			flag that this is a network boot
inb1		rts
	
	
inba		dc.w	8		8 parameters needed
		dc.w	1		want info on the boot device
		dc.l	bootdev		buffer to name of boot device
		ds.b	14		hold results


bootdev		ds.b	35		hold name of boot device




;;		stl - sort the lists.
;	
;		entry	scrolling list has been initialized.
;
;		exit	lists will be sorted as if they were uppercase only.



stl		ldx	#1
	
		PushLong #0		;Result space
		PushLong Data1		;Window pointer
		PushWord #0		;Push high word of list #
		phx			;Push low word of list #
		_GetCtlHandleFromID
		pla			;lo word of control handle
		ply			;hi word of control handle
		jmp	sul		;sort uppercase list and return
		



;------------------------------------------------------------------------------
; READPSETUP
;
; This routine reads in the MIDI.SETUP file in the system folder.  If it
; doesn't exist, it will create one.
;
; Inputs: NONE
; Outputs: NONT - Global data only
;------------------------------------------------------------------------------

		ENTRY	optr,WriteData

ReadPSetup	jsr	inb		is network boot
		txa
		beq	read1		if not network boot
		jsr	gnp		get network path
		stx	optr		lo ptr to pathname
		stx	optr+2		hi ptr to pathname
		
		
read1		_OpenGS OpenPBlock	;Open the file.
		bcs	@L2		;Branch if error.

		lda	OPRef		;Transfer reference number
		sta	RPRef		;to the read and close call
		sta	CRef		;blocks.

		_ReadGS ReadPBlock	;Read the file.
@L00		php			;Save the read/write error if any


		_CloseGS CloseBlock	;Close the file

		plp			;Restore read error flag
@L1		rts

@L2		cmp	#$0046		;File not found error?
		sec			;Assume branch condition
		bne	@L1		;Branch if not

		_CreateGS CreatePBlock	;Try to create the file
		bcs	@L1		;Branch on error

		sep	#$30
		longa	off
		longi	off

		ldy	Defdrvr		;Move the default MIDI driver
@L10		lda	Defdrvr,y	;name into write buffer.
		sta	drvr,y
		dey
		bpl	@L10		if more to copy

		rep	#$30
		longa	on
		longi	on

		lda	#defintext
		sta	intext		internal/external flag
		
		lda	#defslot	
		sta	slot		default slot
		

WriteData	_OpenGS OpenPBlock	;Open the file.
		bcs	@L1		;Branch on error

		lda	OPRef		;Transfer reference number
		sta	RPRef		;to the write and close call
		sta	CRef		;blocks.

		_WriteGS ReadPBlock	;Write the file.
		
		php			;Save the read/write error if any

		_CloseGS CloseBlock	;Close the file

		plp			;Restore write error flag
@L1		rts

;------------------------------------------------------------------------------
; SCAN4DRIVERS
;
; This routine will scan the DRIVERS directory on the system disk in order
; to find all the MIDI and Port drivers.  It will include the file names
; into the appropriate list.  The AppleTalk driver will be
; excluded.
;
; Inputs: NONE - Global data only
; Outputs: NONT - Global data only
;------------------------------------------------------------------------------

Scan4Drivers	_OpenGS OpenDBlock
		bcc	@L1
		rts

@L1		lda	ODRef
		sta	GDERef
		sta	CRef

ScanLoop	_GetDirEntryGS GetDirEntryBlock
		bcc	@L00

		cmp	#$004F		;Is the name just too big?
		beq	ScanLoop	;Branch if yes.
		jmp	ScanExit	;Else, error out.

@L00		lda	FPath+2		;Load length of string
		cmp	#0033		;Is the file name too large?
		bcs	ScanLoop	;Branch if file name too large
		xba			;Turn string into Pascal type
		sta	FPath+2		;string.

		lda	GDEFileType	;Is the file a driver?
		cmp	#$00BB		;$BB = driver
		bne	ScanLoop	;Branch if not.

		ldx	GDEAUXType	;Is it a MIDI driver?
;		cpx	#$0001		;1 = MIDI driver
		cpx	#$300		; $300 = MIDI driver
		bne	Back2scan
		jsr	movemidi
		bcs	ScanLoop	if error occurred
		inc	List1Count	;bump the midi driver counter


Back2Scan	jmp	ScanLoop	;Go back for more!


ScanExit	_CloseGS CloseBlock

		rts


		longa	on
		longi	on

*******************************************************************************
* movemidi
*
* This routine will add the name to the list record and copies 
* into a new memory segment.
*
* Inputs:	None
*
* Outputs:	Carry:	Clear = String copied and valid
*	  		Set   = if memory error
*
*******************************************************************************

movemidi	php

		rep	#$30
		longa	on
		longi	on

		lda	List1Count
		ldx	Mem1RecH
		ldy	Mem1RecH+2
		jsr	BumpMemRec
		bcs	PortBExit	;Branch on error

		longa	off
		longi	off

		lda	PrePickFlag
		beq	PortGExit

		ldy	FPath+3
@L1		lda	FPath+3,y
		cmp	drvr,y
		bne	PortGExit	if not the selected one
		dey
		bpl	@L1

		ldy	#4
		lda	#$80
		sta	[zp1],y

PortGExit	plp
		clc
		rts

PortBExit	plp
		sec
		rts

;-----------------------------------------------------------------------------
; The routine below will fetch a character from FPATH+3,Y and force it to
; upper case.
;-----------------------------------------------------------------------------

GetUCase	lda	FPath+3,y	;Load the character
		cmp	#$61		;If < "a" don't bother
		bcc	@L1
		cmp	#$7B		;If > "z"+1 don't bother
		bcs	@L1
		and	#$DF		;Else force it to upper case.
@L1		rts

		longa	on
		longi	on




;;	scv - set control value.
;
;	entry	(a) = value to set.
;		(x) = id of control.
;
;	exit	none.


		export	scv


scv		pha			value to set

		pha			space for result
		pha			
	
		pushlong  wptr		window pointer
		pushword  #0
		phx			id of control
		_GetCtlHandleFromID
		_SetCtlValue		value to set was already on stack
		rts



*******************************************************************************
* BumbMemRec
*
* This routine will bump the member record list, move the file name pointed
* to by FPATH+3 into a new memory handle, update the new member record to
* point to the new memory handle containing the file name and zero the
* selection byte for the new member record..
*
* Inputs:	A:	ListCount for this record
*		X:	Low word of MemberList handle
*		Y:	High word of MemberList handle
*
* Outputs:	Carry:	Clear = String copied
*	  		Set   = Memory allocation error
*		Long C,X,Y if error
*		Short C,X,Y if no error
*
*******************************************************************************

BumpMemRec	sta	zp0		;Store the ListCount
		stx	zp1		;Store the handle (low word)
		sty	zp1+2		;Store the handle (high word)

;-----------------------------------------------------------------------------
; Below we first try to unlock the handle of the member record list.  Then
; get the old size, add the length of a new record, and the re-size the
; handle.  After that, we just lock it down.  If we get any errors, we leave
; the BUMPMEMREC routine with the carry set.
;-----------------------------------------------------------------------------

		PushLong zp1		;Push handle
		_HUnlock		;Unlock the handle
		bcc	@OKUnlock	;Branch if no error
@ShortExit	jmp	@Exit		;Else we exit with carry set.

@OKUnlock	PushLong #0		;Result space
		PushLong zp1		;Push handle
		_GetHandleSize		;Get the current handle size
		tay			;Save the error state for now

					;We fall through with the current
					;size of the handle on the stack.

		clc			;Add in the length of the new
		pla			;member record item so we can
		adc	#MemRecSize	;re-size the member record list.
		tax
		pla
		adc	#0

		phy			;Save the error state on the stack.

		pha			;Push the new length of the
		phx			;handle onto the stack.
		PushLong zp1		;Push the handle
		_SetHandleSize		;Set the new size
		pha			;Save the error state on the stack.

		PushLong zp1		;Push the handle
		_HLock			;Lock the sucker.

		plx			;Pull error on SetHandleSize
		ply			;Pull error on GetHandleSize
		bcs	@ShortExit	;Branch if error on _HLock
		sec			;Assume error
		bne	@ShortExit	;Branch if error on GetHandleSize
		cpx	#0		;Error on SetHandleSize?
		bne	@ShortExit	;Branch if yes.

;-----------------------------------------------------------------------------
; Below we ask for a segment of memory that will hold the file name in
; FPATH+3.
;-----------------------------------------------------------------------------

		PushLong #0		;Result space
		PushWord #0		;High word of size of block
		lda	FPath+3
		and	#$00FF
		ina
		pha			;Low word of size of block
		PushWord MyID		;User ID
		PushWord #$C018		;Attributes
		PushLong #0		;Pointer to mem
		_NewHandle
		plx			;Pull the result off the stack
		ply			;and hold it in X and Y regs.
		bcs	@Exit		;Branch if we didn't get the memory.

		pei	zp0		;Push the ListCount for later use.

		stx	zp0		;Store handle to file name
		sty	zp0+2		;buffer on zero page.
		ldy	#2		;De-reference the handle
		lda	[zp0]		;and store it back on to
		tax			;the zero page at ZP0.
		lda	[zp0],y
		sta	zp0+2
		stx	zp0

		ldy	#2		;Dereference handle that
		lda	[zp1]		;points to the beginning of
		tax			;the member record list and
		lda	[zp1],y		;put the result back into the
		sta	zp1+2		;zero page location ZP1.
		stx	zp1

		plx			;Pull the ListCount back off
		jsr	Times5		;and multiply it by 5.

		clc			;Add the offset to the address
		lda	AddIndex	;of the beginning of the buffer
		adc	zp1		;to get new pointer to member
		sta	zp1		;record and put it back into
		lda	AddIndex+2	;the zero page location ZP1.
		adc	zp1+2
		sta	zp1+2

		ldy	#2		;Dereference handle that points
		lda	zp0		;to the location to put the
		sta	[zp1]		;file name into and put it back
		lda	zp0+2		;into the zero page location ZP0.
		sta	[zp1],y

		sep	#$30		;Short everything
		longa	off
		longi	off

		ldy	#4		;Force the selection byte to
		lda	#00		;zero (not selected).
		sta	[zp1],y

		ldy	FPath+3		;Load the length byte
@CopyLoop	lda	FPath+3,y	;Move the entire string including
		sta	[zp0],y		;the length byte into buffer pointed
		dey			;to by ZPO
		bpl	@CopyLoop

		clc			;No error!
@Exit		rts			;RETURN

		longa	on
		longi	on

		
		

PrePickFlag	dc.w	0

ATalkName	str	'APPLETALK'

OpenDBlock	dc.w	3		;PCount
ODRef		dc.w	0
		dc.l	DPath		;Pathname pointer
		dc.w	0001		;Request access
DPath		dc.w	DPathLen
		dc.b	'*/SYSTEM/DRIVERS/'
DPathLen	equ	*-DPath-2

GetDirEntryBlock dc.w	13		;PCount
GDERef		dc.w	0
		dc.w	0		;Flags
		dc.w	1		;Base
		dc.w	1		;Displacement
		dc.l	FPath
		dc.w	0		;Entry number
GDEFileType	dc.w	0		;FileType
		dc.l	0		;EOF
		dc.l	0		;Block count
		dc.l	0,0		;Create date/time
		dc.l	0,0		;Mod date/time
		dc.w	0		;Access
GDEAUXType	dc.l	0		;AUX type

FPath		dc.w	FPathLen
		dc.w	0
		ds.b	32
FPathLen	equ	*-FPath

CreatePBlock	dc.w	4		;PCount
		dc.l	PPath		;Pathname pointer
		dc.w	$C3		;Access byte
		dc.w	6		;File type
		dc.l	0		;AUX type

OpenPBlock	dc.w	3		;PCount
OPRef		dc.w	0
optr		dc.l	PPath		;Pathname pointer
		dc.w	0003		;Request access (R/W)
		
PPath		dc.w	PPathLen
		dc.b	'*/SYSTEM/DRIVERS/MIDI.SETUP'
PPathLen	equ	*-PPath-2

ReadPBlock	dc.w	4		;PCount
RPRef		dc.w	0
		dc.l	ReadPBuffer
		dc.l	filelen		;Request count
		dc.l	0		;Transfer count

CloseBlock	dc.w	1		;PCount
CRef		dc.w	0

		
		export	wptr,intext,slot,drvr
	
wptr		ds.b	4		window pointer


ReadPBuffer
intext		ds.b	2		;0 = internal, 1 = external
slot		ds.b	2		;slot 1 - 7
drvr		ds.b	32		;pascal string containing name of midi driver
filelen		equ	*-intext	;length of file

;		default values.

defintext	equ	0		;internal
defslot		equ	1		;printer port
defdrvr		str	'Apple.Midi'


		ENDP

		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/MIDICDEV/midi.r b/IIGS.601.SRC/A.U.G/CtlPanel/MIDICDEV/midi.r
new file mode 100644
index 0000000..c10ff7c
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/MIDICDEV/midi.r
@@ -0,0 +1 @@
+/*******************************************************************/
/*
/* MIDI.r
/*
/* Copyright (C) 1988-1992
/* Apple Computer, Inc.
/* All Rights Reserved
/*
/* This file contains the source of the resources needed to build the 
/* MIDI CDEV.
/*
/*******************************************************************/

#include "typesiigs.r" 

resource rIcon (1) {
	  0x8000,							/* Kind */
	  20,								/* Height */
	  28,								/* Width */


         $"CCC0000FFFFFFFFF"
         $"FFFFFFFFFFFFFFFFFCCC000FFFFFFFFF"
         $"FFFFFFFFCCCCCFFFCCC00F000FFFFFFF"
         $"FFFF00000CCCFFFC00C0C00FFFFFFFFF"
         $"FFFFF000CCC0FCFCC0C0FFFFFFFFFFFF"
         $"FFFF0003FFFCCCC00FFFFFFFFFFFFFFF"
         $"FF0C3FFCFCC0C0FFFFFFFFFFFFFFFF03"
         $"CFFFFCCCC00FFFFFFFFDDDDDDD00CF3F"
         $"FCFCC0C0DDDFFFDDDDDDDDD003CFFFFC"
         $"00000DDDFFDDDDDDDDD00CCFFF000000"
         $"00DDFFDDDDDDDDDD0003C0000F0000DD"
         $"FFDDDDDDDDDDD00CC0000000000DFFDD"
         $"DDDDDDDDD00C00F00000F00DFFDDDDDD"
         $"DDDDDD0000000000000DFFDDDDDDDDDD"
         $"DDD000F00000F00DFFDDDDDDDDDDDDDD"
         $"0000000000DDFFDDDDDDDDDDDDDDD000"
         $"000000DDFFDDDDDDDDDDDDDDDD000000"
         $"0DDDFFFDDDDDDDDDDDDDDDDD000DDDDF",

         $"FFFFFFF000000000000000000000"		/* new mask added 1/22/91 by Monte Benaresh	*/
         $"FFFFFFFFFFF00000000000000000"
         $"FFFFFFFFFFFFFFFFF00000000000"
         $"FFFFFFFFFFFFFFFFFFF000000000"
         $"00000FFFFFFFFFFFFFFF00000000"
         $"00000000FFFFFFFFFFFFF0000000"
         $"0000000000FFFFFFFFFFFF000000"
         $"0000000000FFFFFFFFFFFFF00000"
         $"000FFFFFFFFFFFFFFFFFFFFFFFF0"
         $"00FFFFFFFFFFFFFFFFFFFFFFFFFF"
         $"00FFFFFFFFFFFFFFFFFFFFFFFFFF"
         $"00FFFFFFFFFFFFFFFFFFFFFFFFFF"
         $"00FFFFFFFFFFFFFFFFFFFFFFFFFF"
         $"00FFFFFFFFFFFFFFFFFFFFFFFFFF"
         $"00FFFFFFFFFFFFFFFFFFFFFFFFFF"
         $"00FFFFFFFFFFFFFFFFFFFFFFFFFF"
         $"00FFFFFFFFFFFFFFFFFFFFFFFFFF"
         $"00FFFFFFFFFFFFFFFFFFFFFFFFFF"
         $"00FFFFFFFFFFFFFFFFFFFFFFFFFF"
         $"000FFFFFFFFFFFFFFFFFFFFFFFF0";
};

read rCDEVCode (1,Convert) "MIDI.Load";


resource rCDEVFlags (1) {
	wantInit+wantClose+wantCreate+wanthit+wantAbout,		/* CDEV Flags */
	1,									/* Enabled */
	1,									/* Version */
	1,									/* Machine */
	4,									/* System */
	{0,0,140,200},						/* DataRect {0,0,160,200} */
	"MIDI",								/* Name */
	"Michael Stein",					/* Author */
	"v1.0";								/* VersStr */
};
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/MIDICDEV/sul.aii b/IIGS.601.SRC/A.U.G/CtlPanel/MIDICDEV/sul.aii
new file mode 100644
index 0000000..39ebeef
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/MIDICDEV/sul.aii
@@ -0,0 +1 @@
+;;;	sul - sort uppercase list.
;
;	Michael V. Stein	02/21/90.
;
;	© Apple, 1990.


	blanks	off
	

;;	equates.




;;	imported addresses.




;;	include files.


	include	'commonmacros.h'
	include	'm16.list'
	include	'm16.util2'
	
		

;;	main program.


	

main	proc

	export	sul

sul	Pushl	#cue		compare uppercase elements
	phy			hi word to list handle
	pha			lo word to list handle
	_SortList2
	rts


;;	cue - compare uppercase elements.
;
;	entry	none.
;
;	exit	none.



memberA	equ	4+2
memberB	equ	memberA+4


cue	phd
	tsc
	tcd			use stack as a direct page
		
	phb			save data bank
	phk
	plb
	
	ldy	#$02
	lda	[memberA]	dereference first handle
	tax
	lda	[memberA],y
	sta	memberA+2
	stx	memberA		
	
	lda	[memberB]	dereference second handle
	tax
	lda	[memberB],y
	sta	memberB+2
	stx	memberB

	shortmx
	
	lda	[memberA]		
	cmp	[memberB]	compare it to memberB	
	bcc	cue1		if length(memberB) >= length(memberA)
	lda	[memberB]	
cue1	sta	min		shortest length of either string
	ldy	#$00
	
cue2	iny
	lda	[memberB],y
	jsr	cal		capitalize a letter
	sta	temp
	lda	[memberA],y
	jsr	cal		capitalize a letter
	cmp	temp
	bne	cue5		we have a difference
	cpy	min		chars are the same so check if more bytes to check
	bcc	cue2		no more bytes to check
	
cue4	lda	[memberA]	the shortest string is less than the longer
	cmp	[memberB]	set carry if a >= b
	
cue5	longmx			carry set if a >= b
		
	lda	0+2		
	sta	8+2
	lda	2+2
	sta	10+2
	plb			restore data bank
	
	pld			restore direct page
	pla
	pla
	pla
	pla

	rtl


min	ds.b	1
temp	ds.b	1



;;	cal - capitalize a letter.
;
;	entry	none.
;
;	exit	none.


	longa	off
	longi	off
	
cal	cmp	#'a'
	bcc	cal1		if not lowercase
	cmp	#'z'+1
	bcs	cal1		if not lowercase
	sbc	#$20-1		(c) clear
	
cal1	rts	



	endp

	end
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/ModemCDEV/Modem.pii b/IIGS.601.SRC/A.U.G/CtlPanel/ModemCDEV/Modem.pii
new file mode 100644
index 0000000..29d7326
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/ModemCDEV/Modem.pii
@@ -0,0 +1 @@
+This sourcefile is no longer used.
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/ModemCDEV/Modem.r b/IIGS.601.SRC/A.U.G/CtlPanel/ModemCDEV/Modem.r
new file mode 100644
index 0000000..d9b6782
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/ModemCDEV/Modem.r
@@ -0,0 +1 @@
+/*******************************************************************/
/*
/* Modem.r
/*
/* Copyright (C) 1988-1992
/* Apple Computer, Inc.
/* All Rights Reserved
/*
/* This file contains the source of the resources needed to build the 
/* Modem CDEV.
/*
/*******************************************************************/


#include "typesiigs.r" 

resource rIcon (1) {
	  0x8000,							/* Kind */
	  20,								/* Height */
	  28,								/* Width */
	  $"FF000000FFFFFFFFF0FFFFFFFFFF"
	  $"F0FFFFFF0FFFFFFFFF0FFFFFFFFF"
	  $"F0FFFFFF0FFFFFF00FF0FFFFFFFF"
	  $"0FFFFFFF0FFFFFF0F0FF0FFFFFFF"
	  $"0FFFFFFF0FFFF0FF0F0FFFFFFFFF"
	  $"0FFFFF00FFFFFF0FF00FFFFFFFFF"
	  $"F0FFF0FFFFF00FF0FFFFFFFFFFFF"
	  $"F0FFF0FFFFF0F0FF0FFFFFFFFFFF"
	  $"FF0FF0FFF0FF0F0FFFFFFFFFFFFF"
	  $"FF0FFF0FFF0FF00FFFFFFFFFFFFF"
	  $"FFF0FF0FFFF0FFFFFFFFFFFFFFFF"
	  $"FFF0FFF0FFFF0FFFFFFFFFFFFFFF"
	  $"FFFF0FFF0FFFFFFFFFFFFFFFFFFF"
	  $"FFFFF0FFF0FFFF00000FFFFFFFFF"
	  $"FFFFFF0FFF0000FFFFF0FFFFFFFF"
	  $"FFFFFFF0FFFFFFFFFFF0FFFFFFFF"
	  $"FFFFFFFF0FFFFFFFFFF0FFFFFFFF"
	  $"FFFFFFFFF00FFFFFFFF0FFFFFFFF"
	  $"FFFFFFFFFFF00FFFF00FFFFFFFFF"
	  $"FFFFFFFFFFFFF0000FFFFFFFFFFF",

	  $"00FFFFFF000000000B0000000000"
	  $"0FFFFFFFF000000000B000000000"
	  $"0FFFFFFFF000000BB00B00000000"
	  $"FFFFFFFFF000000B0B00B0000000"
	  $"FFFFFFFFF0000B00B0B000000000"
	  $"FFFFFFFF000000B00BB000000000"
	  $"0FFFFF00000BB00B000000000000"
	  $"0FFFFF00000B0B00B00000000000"
	  $"00FFFF000B00B0B0000000000000"
	  $"00FFFFF000B00BB0000000000000"
	  $"000FFFF0000B0000000000000000"
	  $"000FFFFF0000B000000000000000"
	  $"0000FFFFF0000000000000000000"
	  $"00000FFFFF0000FFFFF000000000"
	  $"000000FFFFFFFFFFFFFF00000000"
	  $"0000000FFFFFFFFFFFFF00000000"
	  $"00000000FFFFFFFFFFFF00000000"
	  $"000000000FFFFFFFFFFF00000000"
	  $"00000000000FFFFFFFF000000000"
	  $"0000000000000FFFF00000000000" ;

};

read rCDEVCode (1,Convert) "Modem.Load";

resource rCDEVFlags (1) {
	wantHit+wantInit+wantCreate+wantAbout
	+wantRect+updateSSfromBRAM+wantRun,			/* CDEV Flags	*/
	1,											/* Enabled		*/
	1,											/* Version		*/
	1,											/* Machine		*/
	4,											/* System		*/
	{0,0,125,200},								/* DataRect		*/
	"Modem Port",								/* Name			*/
	"Darryl Lovato",							/* Author		*/
	"v1.1";										/* VersStr		*/
};
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/ModemCDEV/ModemData.aii b/IIGS.601.SRC/A.U.G/CtlPanel/ModemCDEV/ModemData.aii
new file mode 100644
index 0000000..d7cc442
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/ModemCDEV/ModemData.aii
@@ -0,0 +1 @@
+;;;	ModemData - Data for Modem CDEV.
;
;	Michael V. Stein	04/01/90.
;
;	© Copyright Apple Computer, 1990.


	blanks off


;;	include files.


	include	'e16.control'



;;	equates.


y1	equ	2
y2	equ	y1+9
;y3	equ	y2+10
y3	equ	y1+15
y4	equ	y3+15
y5	equ	y4+15
y6	equ	y5+15
y7	equ	y6+15
y8	equ	y7+10
y9	equ	y8+10
y10	equ	y9+10
y11	equ	y10+10
y12	equ	y11+10
y13	equ	y12+10


ya3	equ	y3
ya4	equ	ya3+15
ya5	equ	ya4+10
ya6	equ	ya5+10




data	proc



;;	exported address.


	export	devptr
	export	devlen
	export	nbut
	export	modemabout
	export	modemalist
	export	modemlist
	export	slotlen
	export	slotptr
		

	

slotptr	dc.w	sname0
	dc.w	sname1
	dc.w	sname2
	dc.w	sname3

slotlen	dc.w	sname1-sname0
	dc.w	sname2-sname1
	dc.w	sname3-sname2
	dc.w	send-sname3
	
sname0	dc.b	'Modem'
sname1	dc.b	'Your Card'
sname2	dc.b	'AppleTalk'
sname3	dc.b	'Printer'
send	equ	*

	
	
	
devc	dc.W	8			; pcount
	dc.L	$8001			;static text item
	dc.W	y1,5,y1+10,100		; boundry rect
	dc.L	statTextControl		; procRef
	dc.W	inactiveHilite<<8	; flag
	dc.W	$1000			; moreFlags	
	dc.L	0			; refCon
	dc.L	devstr			; textRef
	dc.W	devstrL			; text length


devstr	dc.b	'Device Type:'
devstrL	equ	*-devstr	


devslt	dc.W	8			; pcount
	dc.L	$8001			;static text item
	dc.W	y1,104,y1+10,195	; boundry rect
	dc.L	statTextControl		; procRef
	dc.W	inactiveHilite<<8	; flag
	dc.W	$1000			; moreFlags	
	dc.L	0			; refCon
devptr	dc.l	devslt			; textRef (hi word is valid)
devlen	dc.W	0			; text length


	string ASIS

modem1 dc.w	9
	dc.l	1
	dc.w	y3,5,y3+12,195
	dc.l	$87000000
	dc.w	$0040
	dc.w	$1004
	dc.l	0
	dc.w	95
	dc.l	modem1Menu
	dc.w	1
	
modem1menu
	dc.B '>> Parity:\H'
	dc.W 1
	dc.B $0D
	dc.B '== Odd\H'
	dc.W 1
	dc.B $0D
	dc.B '== Even\H'
	dc.W 2
	dc.B $0D
	dc.B '== None\IH'
	dc.W 3
	dc.B $0D
	dc.B '.'
	
	
modem2 dc.w	9
	dc.l	2
	dc.w	y4,5,y4+12,195
	dc.l	$87000000
	dc.w	$0040
	dc.w	$1004
	dc.l	0
	dc.w	95
	dc.l	modem2Menu
	dc.w	1
	
modem2menu
	dc.B '>> Baud:\H'
	dc.W 2
	dc.B $0D
	dc.B '== 50\H'
	dc.W 1
	dc.B $0D
	dc.B '== 75\H'
	dc.W 2
	dc.B $0D
	dc.B '== 110\H'
	dc.W 3
	dc.B $0D
	dc.B '== 134.5\H'
	dc.W 4
	dc.B $0D
	dc.B '== 150\H'
	dc.W 5
	dc.B $0D
	dc.B '== 300\H'
	dc.W 6
	dc.B $0D
	dc.B '== 600\H'
	dc.W 7
	dc.B $0D
	dc.B '== 1200\IH'
	dc.W 8
	dc.B $0D
	dc.B '== 1800\H'
	dc.W 9
	dc.B $0D
	dc.B '== 2400\H'
	dc.W 10
	dc.B $0D
	dc.B '== 3600\H'
	dc.W 11
	dc.B $0D
	dc.B '== 4800\H'
	dc.W 12
	dc.B $0D
	dc.B '== 7200\H'
	dc.W 13
	dc.B $0D
	dc.B '== 9600\H'
	dc.W 14
	dc.B $0D
	dc.B '== 19200\H'
	dc.W 15
	dc.B $0D
	dc.B '.'
	

modem3  dc.w	9
	dc.l	3
	dc.w	y5,5,y5+12,195
	dc.l	$87000000
	dc.w	$0040
	dc.w	$1004
	dc.l	0
	dc.w	95
	dc.l	modem3Menu
	dc.w	1
	
modem3menu
	dc.B '>> Line Length:\H'
	dc.W 3
	dc.B $0D
	dc.B '== Unlimited\IH'
	dc.W 1
	dc.B $0D
	dc.B '== 40\H'
	dc.W 2
	dc.B $0D
	dc.B '== 72\H'
	dc.W 3
	dc.B $0D
	dc.B '== 80\H'
	dc.W 4
	dc.B $0D
	dc.B '== 132\H'
	dc.W 5
	dc.B $0D
	dc.B '.'
	
	
modem4  dc.w	9
	dc.l	4
	dc.w	y6,5,y6+12,195
	dc.l	$87000000
	dc.w	$0040
	dc.w	$1004
	dc.l	0
	dc.w	95
	dc.l	modem4Menu
	dc.w	1
	
modem4menu
	dc.B '>> Data/Stop:\H'
	dc.W 4
	dc.B $0D
	dc.B '== 5-1\H'
	dc.W 1
	dc.B $0D
	dc.B '== 5-2\H'
	dc.W 2
	dc.B $0D
	dc.B '== 6-1\H'
	dc.W 3
	dc.B $0D
	dc.B '== 6-2\H'
	dc.W 4
	dc.B $0D
	dc.B '== 7-1\H'
	dc.W 5
	dc.B $0D
	dc.B '== 7-2\H'
	dc.W 6
	dc.B $0D
	dc.B '== 8-1\IH'
	dc.W 7
	dc.B $0D
	dc.B '== 8-2\H'
	dc.W 8
	dc.B $0D
	dc.B '.'
	

	string PASCAL	; from here on, we need pascal strings

modem5 dc.w 8
	dc.L 5
	dc.w y7,5,0,0
	dc.L $82000000
	dc.w 0
	dc.w $1000
	dc.L 0
	dc.L modem5Title
	dc.w 0
modem5Title	dc.b 'Delete LF after CR'
	

modem6  dc.w 8
	dc.L 6
	dc.w y8,5,0,0
	dc.L $82000000
	dc.w 0
	dc.w $1000
	dc.L 0
	dc.L modem6Title
	dc.w 0
modem6Title	dc.b 'Add LF after CR'

	
modem7  dc.w 8
	dc.L 7
	dc.w y10,5,0,0
	dc.L $82000000
	dc.w 0
	dc.w $1000
	dc.L 0
	dc.L modem8Title
	dc.w 0
modem7Title	dc.b 'Echo'
	

modem8 dc.w 8
	dc.L 8
	dc.w y9,5,0,0
	dc.L $82000000
	dc.w 0
	dc.w $1000
	dc.L 0
	dc.L modem7Title
	dc.w 0
modem8Title	dc.b 'Buffering'
	


modem9  dc.w 8
	dc.L 9
	dc.w y11,5,0,0
	dc.L $82000000
	dc.w 0
	dc.w $1000
	dc.L 0
	dc.L modem9Title
	dc.w 0
modem9Title	dc.b 'DCD Handshake'
	

modem10  dc.w 8
	dc.L 10
	dc.w y12,5,0,0
	dc.L $82000000
	dc.w 0
	dc.w $1000
	dc.L 0
	dc.L modem10Title
	dc.w 0
modem10Title	dc.b 'DSR/DTR Handshake'
	

modem11  dc.w 8
	dc.L 11
	dc.w y13,5,0,0
	dc.L $82000000
	dc.w 0
	dc.w $1000
	dc.L 0
	dc.L modem11Title
	dc.w 0
modem11Title	dc.b 'XON/XOFF Handshake'
	

modemList	
	dc.l	devc
	dc.l	devslt
	dc.l	modem1
	dc.l	modem2
	dc.l	modem3
	dc.l	modem4
	dc.l	modem5
	dc.l	modem6
	dc.l	modem7
	dc.l	modem8
	dc.l	modem9
	dc.l	modem10
	dc.l	modem11
	dc.l	nbut
	dc.l	0
	
	
	string asis
	
modemA1  dc.w	9
	dc.l	3
	dc.w	ya3,5,ya3+12,195
	dc.l	$87000000
	dc.w	$0040
	dc.w	$1004
	dc.l	0
	dc.w	95
	dc.l	modemA1Menu
	dc.w	1
	
modemA1menu
	dc.B '>> Line Length:\H'
	dc.W 3
	dc.B $0D
	dc.B '== Unlimited\IH'
	dc.W 1
	dc.B $0D
	dc.B '== 40\H'
	dc.W 2
	dc.B $0D
	dc.B '== 72\H'
	dc.W 3
	dc.B $0D
	dc.B '== 80\H'
	dc.W 4
	dc.B $0D
	dc.B '== 132\H'
	dc.W 5
	dc.B $0D
	dc.B '.'
	

	string PASCAL	; from here on, we need pascal strings

modemA2   dc.w 8
	dc.L 5
	dc.w ya4,5,0,0
	dc.L $82000000
	dc.w 0
	dc.w $1000
	dc.L 0
	dc.L modemA2Title
	dc.w 0
modemA2Title	dc.b 'Delete LF after CR'
	

modemA3 dc.w 8
	dc.L 6
	dc.w ya5,5,0,0
	dc.L $82000000
	dc.w 0
	dc.w $1000
	dc.L 0
	dc.L modemA3Title
	dc.w 0
modemA3Title	dc.b 'Add LF after CR'
	

modemA4   dc.w 8
	dc.L 8
	dc.w ya6,5,0,0
	dc.L $82000000
	dc.w 0
	dc.w $1000
	dc.L 0
	dc.L modemA4Title
	dc.w 0
modemA4Title	dc.b 'Echo'
	

modemaList	
	dc.l	devc
	dc.l	devslt	
	dc.l	modemA1
	dc.l	modemA2
	dc.l	modemA3
	dc.l	modemA4
	dc.l	nbut
	dc.l	0
	

modemAbout	dc.w 8
	dc.L 1
	dc.w 38,5,138,280
	dc.L $81000000
	dc.w $0000
	dc.w $1000
	dc.L 0
	dc.L TheText
	dc.w EndText-TheText
	string asis
TheText
	dc.b 'The Modem Port Control Panel allows you to change the Modem Port '
	dc.b 'settings.  These include the Parity, Baud, Line Length, Data/Stop '
	dc.b 'bits, and a host of others.  If you are using a modem or printer, you should consult '
	dc.b 'your UserÕs Guide for that peripheral.  If the Modem Port (slot 2) is '
	dc.b 'set up for AppleTalk, only a subset of the normal settings will be available '
	dc.b 'for modification.'
EndText
	string pascal


nbut	dc.w	9		Pcount
	dc.l	30		ID number
	dc.w	132-7
	dc.w	5+10
	dc.w	132+13-7
	dc.w	195-10
	dc.l	simpleButtoncontrol
	dc.w	simpRound
	dc.w	fCtlWantEvents+fctlProcRefNotPtr
	dc.l	0
	dc.l	nbutit
	dc.w	0		length?
	dc.w	0		key equivalent

	string	pascal
nbutit	dc.b	'Standard Settings'
	

	endp
	
	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/ModemCDEV/makefile b/IIGS.601.SRC/A.U.G/CtlPanel/ModemCDEV/makefile
new file mode 100644
index 0000000..9343944
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/ModemCDEV/makefile
@@ -0,0 +1 @@
+
CDEV = MODEM



{CDEV}			 	Ä				{CDEV}.Load 	¶
									{CDEV}.r
	reziigs {CDEV}.r -o {CDEV} -t "C7  " -c "pdos"
	if {dup}				# test whether we should duplicateiigs
		duplicateiigs -m -y {CDEV} {CDEV}
	end

{CDEV}.Load		Ä	¶
									{CDEV}.aii.obj ¶
									{CDEV}Data.aii.obj
	linkiigs  		¶
		-x -l -s >{CDEV}.map ¶
		-lseg modem ¶
			{CDEV}.aii.obj ¶
			{CDEV}Data.aii.obj ¶
		-o {CDEV}.Load 


{CDEV}.aii.obj 		Ä 								¶
							{CDEV}.aii					
	asmiigs {CDEV}.aii 


{CDEV}Data.aii.obj 		Ä 								¶
							{CDEV}Data.aii
	asmiigs {CDEV}Data.aii 


\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/ModemCDEV/modem.aii b/IIGS.601.SRC/A.U.G/CtlPanel/ModemCDEV/modem.aii
new file mode 100644
index 0000000..42eac27
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/ModemCDEV/modem.aii
@@ -0,0 +1 @@
+;;;	modem - modem CDEV.
;
;	Michael V. Stein	04/04/90.
;
;	© Apple, 1990.


	blanks	off



;;	equates.


recty0	equ	0		rectangle offsets
rectx0	equ	2
recty1	equ	4
rectx1	equ	6

Slot2ID equ	$22		battery parameter telling the value of the slot2

wind_atalk_h	equ 47+15+22	;window height for AppleTalk device
wind_modem_h	equ 131+15+22	;window height for modem or printer device
wind_w		equ 200		;window width


;;	imported addresses.


	import	devlen
	import	devptr
	import	nbut
	import	modemabout
	import	modemalist
	import	modemlist
	import	slotlen
	import	slotptr
	
	

;;	include files.


	include	'::cdev.h'
	include	'::commonmacros.h'
	include	'::dp.h'
	include	'e16.control'
	include	'm16.control'
	include	'm16.event'
	include	'm16.menu'
	include	'm16.misctool'
	include	'm16.util2'
	



;;	main program.




main	proc



modem	phb			save calling data bank
	phk
	plb			set our data bank		

;	make room on stack for direct page.

	tsc			
	sec			
	sbc	#dpsize		make room on stack for new direct page
	tcs			
	phd			save the current direct page
	tcd			new direct page

	lda	message	
	cmp	#12		
	bcs	modem1		if message defintely not handled
		
	asl	a		times 2 into word table
	tax			move into index reg
	jsr	(t_cdev-2,x)	call the handler of this message

modem1  pld			restore direct page
	tsc
	clc
	adc	#dpsize		
	tcs			reset the stack
	lda	1,s		Bump the stack up to prepare
	sta	11,s		to take off the 3 parameters
	lda	3,s		
	sta	13,s

	pla			get rid of message space
	
	pla			get rid of data1 space
	pla			
	
	pla			get rid of data2 space
	pla			
	
	lda	#0		return 0 to caller
	sta	5,s
	sta	7,s		
	plb
	
	rtl
		

t_cdev	dc.w	cccE		Null - not used
	dc.w	cccE		handle machine message
	dc.w	cccE		handle boot message
	dc.w	icc		init cdev controls
	dc.w	cccE		close the cdev
	dc.w	cccE		handle event message
	dc.w	ccc		create cdev controls
	dc.w	ham		handle about message
	dc.w	hrm		handle rectangle message
	dc.w	hhm		handle hit message
	dc.w handle_run		;RunCDEV
	



;;	ccc - create cdev controls.
;
;	entry	[data1] = window ptr.
;		(modemlist..) = table of ptrs to controls if not appletalk selected.
;		(modemalist..) = table of ptrs to controls if appletalk selected.
;		slot2ID = battery parameter for slot 2 identification.
;		(slotlen..) = table of string lengths of slot 2 possibilities.
;		(slotptr..) = table of ptrs to slot 2 names.
.
;
;	exit	(devlen) = length of slot 2 name.
;		(devptr) = offset of name in bank.
;		[wptr] = window pointer.



ccc	ldx	#slot2ID
	jsr	rbp		read battery parameter
	sta old_dev		;save for comparisons
	asl	a
	tax
	lda	slotptr,x	get lo ptr to string
	sta	devptr
	lda	slotlen,x	get length of string
	sta	devlen
	pha			space for result
	pha
	lda	data1+2
	pha			hi word of window ptr
	sta	wptr+2
	lda	data1
	pha			lo word of window ptr
	sta	wptr
	pushw	#3		next item is a ptr to a list of template pointers
		
	ldx	#slot2ID
	jsr	rbp		read battery parameter
	cmp	#2
	beq	ccc1		if appletalk is set in slot 2
	pushl	#modemlist	controls if not appletalk in port
	bra	ccc2
	
ccc1	pushl	#modemalist	controls if appletalk is set in port

ccc2	_NewControl2
	pla
	pla			don't care about result
	
cccE
	rts



;;	ham - handle about message.
;
;	entry	[data1] = ptr to window.
;		(modemabout..) = template of about box control.
;
;	exit	About box control is created.


ham	pha			space for result
	pha
	pushl	data1		window pointer
	pushw	#0		next item is a ptr to a template
	pushl	#modemAbout
	_NewControl2
	pla
	pla			don't care about result
	rts


	goto .no_he		;don't assemble this routine!

handle_event		;handle EventsCDEV message and poll for change
			;in the type of device connected to our port

	lda [data1]		;get event code
	bne @no_action		;if not null, don't check BRAM
@null
;	check BRAM to see whether our device type has changed, and
;	re-create the CDEV window if it has

	lda old_dev		;check whether inited
	bmi @no_action

	ldx #slot2ID
	jsr rbp			;check BRAM
	cmp old_dev		;did it change?
	beq @no_action
@changed
	sta old_dev		;update for next time

	pei data2+2		;push window ptr
	pei data2
	_KillControls		;get rid of current controls

	pea wind_w
	lda old_dev		;get device type again
	cmp #2			;AppleTalk?
	beq @atalk
@modem
	pea wind_modem_h
	bra @resize
@atalk
	pea wind_atalk_h
@resize
	pei data2+2		;push window ptr
	pei data2
	ldx #$1C0E		;SizeWindow
	jsl $E10000		;resize the window

;	now we call our own CreateCDEV and InitCDEV
;	routines to set up the new window

	lda data2
	ldx data2+2

	sta data1		;put window ptr in data1 for CreateCDEV
	stx data1+2

	stz data2		;clear data2 (not used)
	stz data2+2

	jsr ccc			;create new controls

;	InitCDEV takes same params as CreateCDEV, so we'll
;	just assume they're still in place

	jsr icc

@no_action

	rts

.no_he			;assembly skips to here



handle_run		;handle RunCDEV message and poll for change
			;in the type of device connected to our port

;	check BRAM to see whether our device type has changed, and
;	re-create the CDEV window if it has

	lda old_dev		;check whether inited
	bmi @no_action

	ldx #slot2ID
	jsr rbp			;check BRAM
	cmp old_dev		;did it change?
	beq @no_action
@changed
	sta old_dev		;update for next time

	lda wptr+2		;push window ptr
	pha
	lda wptr
	pha
	_KillControls		;get rid of current controls

	pea wind_w
	lda old_dev		;get device type again
	cmp #2			;AppleTalk?
	beq @atalk
@modem
	pea wind_modem_h
	bra @resize
@atalk
	pea wind_atalk_h
@resize
	lda wptr+2		;push window ptr
	pha
	lda wptr
	pha
	ldx #$1C0E		;SizeWindow
	jsl $E10000		;resize the window

;	now we call our own RectCDEV, CreateCDEV, and InitCDEV
;	routines to set up the new window

	stz hr_dummy_rect	;set up dummy rectangle
	stz hr_dummy_rect+2
	lda #125
	sta hr_dummy_rect+4
	lda #200
	sta hr_dummy_rect+6

	lda #<hr_dummy_rect
	sta data1		;set up ptr to rectangle
	lda #^hr_dummy_rect
	sta data1+2

	stz data2		;clear data2 (not used)
	stz data2+2

	jsr hrm			;handle rectangle, adjust button position

	lda wptr
	ldx wptr+2

	sta data1		;put window ptr in data1 for CreateCDEV
	stx data1+2

	jsr ccc			;create new controls

;	InitCDEV takes same params as CreateCDEV, so we'll
;	just assume they're still in place

	jsr icc

@no_action

	rts

hr_dummy_rect			;dummy rectangle for when we call our
				;rectangle routine
	ds.w 4


;;	hhm - handle hit message.
;
;	entry	(bat..) = table of battery parameter values.
;		batL1 = # of popups.
;		batL2 = total # of controls to set.
;		[data1] = handle to control that was hit.
;		[data2] = id of control that was hit.
;		(default..) = table of default values for controls.
;		[wptr] = ptr to window.
;
;	exit	hit is processed.


hhm	ldx	data2
	cpx	#30
	beq	hhm3		if user hit normal settings button
	
	pha			space for result
	pushl	data1
	_GetCtlValue	
	ply			get value of control
	ldx	data2
	cpx	#batL1+1
	bcs	hhm1		if a checkbox
	dey			chooseing from a popup
	bra	hhm2

hhm1	tya
	beq	hhm2		if checkbox isn't set
	ldy	#1		
	
hhm2	lda	bat-1,x		get battery parameter to set
	and	#$ff
	tax
	tya
	jmp	wbp		write battery parameter and return

hhm3	ldx	#0
hhm4	stx	w1
	lda	default,x
	and	#$ff		default value for this battery parameter
	tay			save for now
	lda	bat,x
	and	#$ff		battery parameter to set
	tax
	tya			
	jsr	wbp		write battery parameter	
	ldx	w1
	inx
	cpx	#batl2
	bcc	hhm4		if more to set
	lda	wptr
	sta	data1
	lda	wptr+2
	sta	data1+2
	jmp	icc		init cdev controls and return
	
	
	
;;	hrm - handle rectangle message.
;
;	entry	[data1] = ptr to rectangle.
;		slot2ID = battery param to check for slot 2 id.
;
;	exit	rectangle is set.  If Appletalk is enabled for slot 2
;		then the rectangle is smaller.


hrm	ldx	#slot2ID
	jsr	rbp		read battery parameter
	ldx	#wind_atalk_h	assume appletalk
	cmp	#2
	beq	hrm1		if appletalk is selected
	ldx	#wind_modem_h
hrm1	txa
	ldy	#recty1
	sta	[data1],y	set lower part of rectangle
	sec
	sbc	#15
	ldy	#6+recty0
	sta	nbut+6+recty0	upper y of button
	clc
	adc	#13
	sta	nbut+6+recty1	lower y of button
	rts
	
	

;;	icc - init cdev controls.
;
;	entry	(bat..) = table of battery parameter values.
;		batL1 = # of popups.
;		batL2 = total # of controls to set.
;
;	exit	controls are initialized to the values in battery param.


;	first set the popups.

icc	ldx	#1		control id of parity
icc1	stx	w1		init counter
	lda	bat-1,x
	and	#$ff
	tax
	jsr	rbp		read battery parameter
	ldx	w1
	
	jsr	scv		set control value
	ldx	w1
	inx
	cpx	#batL1+1	# of popups
	bcc	icc1		if more to set
	
;	set checkboxes.

icc2	stx	w1		init counter
	lda	bat-1,x
	and	#$ff
	tax
	jsr	rbp		read battery parameter
	ldx	w1		id of control
	jsr	scvE		set control value
	ldx	w1
	inx
	cpx	#batL2+1		
	bcc	icc2		if more to set
	rts
	
	

;;	rbp - read battery parameter.
;
;	entry	(x) = parameter to read.
;
;	exit	(a) = value of parameter.


rbp	pha			space for result
	phx			parameter to read
	_ReadBparam
	pla			get value
	rts



;;	scv - set control value.
;
;	entry	(a) = value to set -1.
;		(x) = id of control.
;		[data1] = window pointer.
;
;	exit	control value is set.


;;	alternate entrypoint: scvE.
;
;	scvE is called to set a checkbox.  makes sure value is 0 or 1.



scv	ina
	bra	scv1		
	
scvE	tay
	beq	scv1		if checkbox not set
	lda	#1
	
scv1	pha			value to set

	pha			space for result
	pha			
	
	pushl	data1		window pointer
	pushw	#0		hi word of id
	phx			id of control
	_GetCtlHandleFromID
	lda	1,s
	ora	1+2,s
	beq	scv2		if not an actual control because of appletalk
	
	_SetCtlValue		value to set was already on stack
	rts

scv2	pla			get stuff off of stack
	pla
	pla
	rts
	


;;	wbp - write battery parameter.
;
;	entry	(a) = value of parameter to set.
;		(x) = battery parameter to set.
;
;	exit	battery parameter is set.


wbp	pha			new value
	phx			parameter to set
	_WriteBparam
	rts
	


;	data used by this program.


;	battery parameter locations used.

bat	dc.b	$14		
	dc.b	$12		
	dc.b	$0d		
	dc.b	$13		
batL1	equ	*-bat		# of popups

	dc.b	$0e		
	dc.b	$0f		
	dc.b	$11
	dc.b	$10
	dc.b	$15
	dc.b	$16
	dc.b	$17
batL2	equ	*-bat		total number of parameters


;	default values for battery parameter settings.

default	dc.b	2
	dc.b	7		1200 baud
	dc.b	0
	dc.b	6
	dc.b	0
	dc.b	0
	dc.b	0
	dc.b	0
	dc.b	1
	dc.b	1
	dc.b	0


wptr	ds.b	4		hold window ptr
old_dev	dc.w $FFFF		;last device type seen in BRAM, initedÉ
				;Éto special value

	endp

	end
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/MonitorCDEV/Monitor.aii b/IIGS.601.SRC/A.U.G/CtlPanel/MonitorCDEV/Monitor.aii
new file mode 100644
index 0000000..caff1d4
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/MonitorCDEV/Monitor.aii
@@ -0,0 +1 @@
+;************************************************************************
;
; Monitor control panel for System 6.0.1
; by David A. Lyons, September 1992
;
; Rewritten from the 6.0 Monitor control panel in 6.0,
; which was by Michael V. Stein 02/24/90 (TMLPascal).
;
; © Copyright Apple Computer, 1990-1992
; All Rights Reserved
;
;************************************************************************
;
;  8-Sep-92 DAL
;   Initial coding.
;
; 18-Sep-92 DAL
;   Widened window, realigned pop-up menus, added checkbox.
;
;************************************************************************
debugSymbols	equ 0

	include 'all.macros'
	include 'e16.resources'
	include 'e16.locator'
	include 'e16.desk'
	include 'e16.event'

	import MonitorsList

MachineCDEV	equ 1	;called when rebuilding cdev.data to see if cdev should be included
BootCDEV	equ 2	;boot time init call or install call - no params
ShutDownCDEV	equ 3	;reserved for future use
InitCDEV 	equ 4	;called when being shown - data1 equ windowPtr
CloseCDEV 	equ 5	;called when being removed - data1 equ windowPtr
EventsCDEV	equ 6	;called when an event - data1 equ ptr to event record
CreateCDEV	equ 7	;called so that CDEV can create its controls inline - data1 equ window
AboutCDEV 	equ 8	;called so that CDEV can create its about text inline - no params
RectCDEV	equ 9	;called so that CDEV can dynamically compute its rectangle
HitCDEV	equ 10	;called when ctl is "hit" - data1 equ Hdl to Ctl hit, data2 equ Ctl Id
RunCDEV	equ 11	;caled when da run is called
EditCDEV 	equ 12	;called when SystemEdit is called

wantMachine 	equ 1
wantBoot 	equ 2
wantShutDown	equ 4
wantInit	equ 8
wantClose 	equ 16
wantEvents 	equ 32
wantCreate 	equ 64
wantAbout 	equ 128
wantRect 	equ 256
wantHit 	equ 512
wantRun 	equ 1024
wantEdit	equ 2048
updateSSfromBRAM	equ 16384

;
; Control IDs
;
ColorTypeID	equ 1	;Color/Monochrome pop-up
ColumnsID	equ 2	;80/40 pop-up
TextColorID	equ 3	;Text color pop-up
BackColorID	equ 4	;background color pop-up
BorderColorID	equ 5	;border color pop-up
CursorFlickerID	equ 6	;cursor flicker checkbox

;
; battery parameter values.
;
toolbox_param	equ $5f

*************************************************************************
*
* Monitor control panel -- MAIN ENTRY POINT
*
* At this point, the stack contains:
*
* 14..17,s  LONG  Result Space
* 12..13,s  WORD  Message
* 08..11,s  LONG  Data1
* 04..07,s  LONG  Data2
* 01..03,s     RTL
*
*************************************************************************
MonitorCP	procname export
	phb	;save calling data bank
	phk
	plb

	phd
	tsc
	tcd

oldD	equ 1
oldB	equ oldD+2
rtlAddr	equ oldB+1
data2	equ rtlAddr+3
data1	equ data2+4
message	equ data1+4
result	equ message+2

	stz <result
	stz <result+2

	lda <message
	asl a
	tax
	cmp #DispatchEnd-Dispatch
	bcs @ignore
	jsr (Dispatch,x)
@ignore

	pld
	plb

	lda 1,s
	sta 1+10,s	;move low word of return address
	lda 2,s
	sta 2+10,s	;move high word of return address (overlaps)
	ply
	ply
	ply
	ply
	ply	;pull ten bytes of input parameters

	rtl

Dispatch	dc.w ignore 	; 0 = reserved
	dc.w ignore	; 1 = MachineCDEV
	dc.w ignore	; 2 = BootCDEV
	dc.w ignore	; 3 = reserved
	dc.w doInit	; 4 = InitCDEV
	dc.w ignore	; 5 = CloseCDEV
	dc.w ignore	; 6 = EventsCDEV
	dc.w doCreate	; 7 = CreateCDEV
	dc.w doAbout	; 8 = AboutCDEV
	dc.w ignore	; 9 = RectCDEV
	dc.w doHit	;10 = HitCDEV
;	dc.w ignore	;11 = RunCDEV
;	dc.w ignore	;12 = EditCDEV
DispatchEnd


*************************************************************************
*
* ignore -- don't do anything with a CDEV message
*
*************************************************************************
ignore	rts


*************************************************************************
*************************************************************************
*
* handle CreateCDEV message
*
*************************************************************************
doCreate	name

	pha
	pha	;space for NewControl2 result
	pei <data1+2
	pei <data1	;window pointer
	pea 3	;control list pointer
	pushlong #MonitorsList
	_NewControl2
	pla
	pla	;ignore result

*** Keep a global copy of the window pointer
	lda <data1+2
	sta wind+2
	lda <data1
	sta wind
	rts

*************************************************************************
*************************************************************************
*
* handle AboutCDEV message
*
*************************************************************************
doAbout	name
	import MonitorAbout

	pha
	pha
	pei <data1+2
	pei <data1
	pea 3	;pointer to control list
	pushlong #MonitorAbout
	_NewControl2
	pla
	pla
	rts


*************************************************************************
*************************************************************************
;
; doInit - init controls
;
; data1 = ptr to window.
;
;
; Set all five pop-up menus from Battery RAM.
;
; ID  BRAM  What
; --  ----  ----
;  1  $18   Color/Monochrome
;  2  $19   80/40 Columns
;  3  $1A   Text color
;  4  $1B   Background color
;  5  $1C   Border color
;
; Location $5F bit 2 is the "smooth mouse cursor" bit (no scanline ints).
;
*************************************************************************
doInit	name

counter	equ data2

*** set up the "Smoother Mouse Cursor" checkbox
	ldx #$5f
	jsr ReadBatteryParam
	and #4
	lsr a
	lsr a
	pha	;value for checkbox = bit 2 of BRAM $5F
	pei <data1+2
	pei <data1	;window pointer
	pea 0
	pea 6	;checkbox ID = 6
	ldx #$3c10
	jsl $e10000
;	_SetCtlValueByID

*** set up the pop-up menus
	lda #5	;control ID/loop counter
	sta <counter
@next	lda <counter
	clc
	adc #$17
	tax
	jsr ReadBatteryParam
	inc a
	pha	;value for SetCtlValueByID
	pei <data1+2
	pei <data1	;window pointer
	pea 0	;high word of control ID
	pei <counter	;low word control ID
;	_SetCtlValueByID
	ldx #$3c10
	jsl $e10000
	dec counter
	bne @next
	brl DisableSomeColors
;	rts


*************************************************************************
*************************************************************************
;
; doHit - hit control
;
; entry
;	data1 = handle of control that was hit.
;	data2 = id of control that was hit.
;
; exit	Took appropriate action for the control that was
;	hit.
;
*************************************************************************
doHit	name
	lda <data2	;get id of control
	asl a
	cmp #HitDispatchEnd-HitDispatch
	bcs @done
	tax
	jmp (HitDispatch,x)
@done	rts

HitDispatch	dc.w ignore	;0
	dc.w StuffBRAM	;1 = Color/Monochrome pop-up
	dc.w StuffBRAM	;2 = 80/40 pop-up
	dc.w CarefulColors	;3 = Text color pop-up
	dc.w CarefulColors	;4 = Background color pop-up
	dc.w StuffBRAM	;5 = Border color pop-up
	dc.w hitCheckbox	;6 = cursor flicker checkbox
HitDispatchEnd


*************************************************************************
;
; StuffBRAM
;
; For any pop-up menu, we write the new pop-up value (minus one) into
; Battery RAM location $17 plus the control's ID.
;
*************************************************************************
StuffBRAM	name

	pha	;space for control value
	pei <data1+2
	pei <data1
	_GetCtlValue
	pla
	dec a	;value minus one for Battery RAM
	pha
	clc
	lda <data2	;control ID + $17 = BRAM parameter
	adc #$17
	tax
	pla
;;;	brl WriteBatteryParam  ;A=value, X=parm
*************************************************************************
;
; WriteBatteryParam
;
; entry	(a) = value of parameter to set.
;	(x) = battery parameter to set.
;
; exit	battery parameter is set.
;
*************************************************************************
WriteBatteryParam	name
	pha	;new value
	phx	;parameter to set
	_WriteBparam
	rts

*************************************************************************
;
; CarefulColors
;
; For any the Text color or Background color pop-up menus, we write
; the new value just like in StuffBRAM, but we have to be careful to
; disallow the text and background colors ever being the same.
;
*************************************************************************
CarefulColors	name
	jsr EnableSomeColors
	jsr StuffBRAM
*************************************************************************
;
; DisableSomeColors
;
; Make sure they can't choose the same Text color and Background color.
;
*************************************************************************
DisableSomeColors	pha
	pha
	_GetMenuBar

	ldx #4	;background pop-up
	jsr SetMenuToPopUp
	ldx #$17+3	;text color
	jsr ReadBatteryParam
	inc a
	sta dimmedBackItem
	jsr DisableItemA

	ldx #3	;text color pop-up
	jsr SetMenuToPopUp
	ldx #$17+4	;background color
	jsr ReadBatteryParam
	inc a
	sta dimmedTextItem
	jsr DisableItemA

	bra restoreMenuBar

;
; SetMenuToPopUp--pop-up control ID in X
;
SetMenuToPopUp	pha
	pha	;space for GetCtlHandleFromID
	pushlong wind
	pea 0
	phx
	_GetCtlHandleFromID
	_SetMenuBar
	rts

DisableItemA	pha
	_DisableMItem
	rts

*************************************************************************
;
; EnableSomeColors
;
; Enable the menu items we disabled.
;
*************************************************************************
EnableSomeColors	name
	pha
	pha
	_GetMenuBar

	ldx #3	;text color pop-up
	jsr SetMenuToPopUp
	lda dimmedTextItem
	pha
	_EnableMItem

	ldx #4	;background color pop-up
	jsr SetMenuToPopUp
	lda dimmedBackItem
	pha
	_EnableMItem

restoreMenuBar	_SetMenuBar
	rts

*************************************************************************
*
* hitCheckBox -- toggle the Cursor Flicker checkbox
*
* Set bit 2 of BRAM $5F according to the value of our checkbox (ID=6).
*
*************************************************************************
hitCheckBox	name

	ldx #$5f
	jsr ReadBatteryParam
	and #$ff-$04	;clear out our bit
	pha

	pha	;space for GetCtlValue
	pei <data1+2
	pei <data1	;control handle
	_GetCtlValue
	pla
	beq @1	;if not set

	lda #4	;mask to OR into BRAM value

@1	ora 1,s
	ply	;discard old value

	ldx #$5f
	brl WriteBatteryParam


*************************************************************************
;
; ReadBatteryParam
;
; entry	(x) = parameter to read.
;
; exit	(a) = value of parameter.
;
*************************************************************************
ReadBatteryParam	name
	pha	;space for result
	phx	;parameter to read
	_ReadBparam
	pla	;get value
	rts

*************************************************************************
;
; GLOBALS
;
*************************************************************************
CursorFlickerFlag	dc.w 0
wind	dc.l 0

dimmedTextItem	dc.w 0	;this text color is not available
dimmedBackItem	dc.w 0	;this background color is not available

	EndP

	end
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/MonitorCDEV/Monitor.map b/IIGS.601.SRC/A.U.G/CtlPanel/MonitorCDEV/Monitor.map
new file mode 100644
index 0000000..0d9f3a2
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/MonitorCDEV/Monitor.map
@@ -0,0 +1 @@
+-------------------------------------------------------------------------------
0001 Load Segment "Main:$1000" relocatable LENGTH=$749 KIND=$0000 
-------------------------------------------------------------------------------
0001 00000000 000001C4 MONITORCP 
0002 000001C4 0000004F MONITOR1 
0003 00000213 00000048 MONITOR2 
0004 0000025B 0000012E MONITOR3 
0005 00000389 0000012E MONITOR4 
0006 000004B7 00000130 MONITOR5 
0007 000005E7 00000040 CHECKBOX6 
0008 00000627 0000001C MONITORSLIST 
0009 00000643 000000FE ABOUT1 
000A 00000741 00000008 MONITORABOUT 

Output Load File "Monitor.Load" contains 1 Load Segments with a total length of $749 bytes.

-----------------------
Symbol Table
-----------------------
                      |Object----------------------|Load--------------|
Name              Type|File      Seg       Offset  |File Seg  Offset  |Value
                      |                            |                  |
ABOUT1              GD|0002      0008:0009 00000000|0001 0001 00000643|
CHECKBOX6           GD|0002      0006:0007 00000000|0001 0001 000005E7|
MONITOR1            GD|0002      0001:0002 00000000|0001 0001 000001C4|
MONITOR2            GD|0002      0002:0003 00000000|0001 0001 00000213|
MONITOR3            GD|0002      0003:0004 00000000|0001 0001 0000025B|
MONITOR4            GD|0002      0004:0005 00000000|0001 0001 00000389|
MONITOR5            GD|0002      0005:0006 00000000|0001 0001 000004B7|
MONITORABOUT        GD|0002      0009:000A 00000000|0001 0001 00000741|
MONITORCP           GD|0001      0001:0001 00000000|0001 0001 00000000|
MONITORSLIST        GD|0002      0007:0008 00000000|0001 0001 00000627|

10 symbols are in Symbol Table and require 360 bytes of memory
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/MonitorCDEV/Monitor.pii b/IIGS.601.SRC/A.U.G/CtlPanel/MonitorCDEV/Monitor.pii
new file mode 100644
index 0000000..10c072a
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/MonitorCDEV/Monitor.pii
@@ -0,0 +1 @@
+
¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥
NOTE:  This file is no longer used!  Monitor.aii replaces it.  9-Sep-92 DAL
¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥

{$LongGlobals+}
{$toolerrorchk-}
{$A+}

unit monitor;

interface

uses
  QDIntf, GSIntf, misctools, Prodos16, ResMgr, CDEVMgr, NewInterface;
 
function MONITOR_DEFPROC(message : Integer; data1, data2 : Longint) : Longint;
procedure DisablePopupItem(ctlID : integer; item : integer);
procedure EnablePopupItem(ctlID : integer; item : integer);

implementation

type
  wordPtr = ^integer;

var
  wind : windowPtr;
  {$XRefVar+}
  MonitorsList : integer;
  MonitorAbout : integer;
  {$XRefVar-}

function MONITOR_DEFPROC(message : Integer; data1, data2 : Longint) : Longint;
  var
    tempCtl : ControlHandle;
  begin { this will only get called when a ctl is hit}
    MONITOR_DEFPROC := 0;
	case message of
	  CreateCDEV :
	    begin
		  tempCtl := NewControl2(WindowPtr(data1),3,ord4(@MonitorsList));
		  wind := windowptr(data1);
		end;
	  InitCDEV :
	    begin
		  SetCtlValue(ReadBParam($18)+1,GetCtlHandleFromID(WindowPtr(data1),1)); 
		  SetCtlValue(ReadBParam($19)+1,GetCtlHandleFromID(WindowPtr(data1),2));
		  SetCtlValue(ReadBParam($1A)+1,GetCtlHandleFromID(WindowPtr(data1),3));
		  SetCtlValue(ReadBParam($1B)+1,GetCtlHandleFromID(WindowPtr(data1),4));
		  SetCtlValue(ReadBParam($1C)+1,GetCtlHandleFromID(WindowPtr(data1),5)); 
		  DisablePopupItem(3, ReadBParam($1B)+1); {disable text item that is back item}
		  DisablePopupItem(4, ReadBParam($1A)+1); {disable back item that is text item}
		end;
	  HitCDEV :
	    case loword(data2) of
		  1 : WriteBParam(GetCtlValue(ControlHandle(data1))-1, $18);
		  2 : WriteBParam(GetCtlValue(ControlHandle(data1))-1, $19);
		  3 : 
		    begin
			  EnablePopupItem(4, ReadBParam($1A)+1); {enable whatever was there}
			  WriteBParam(GetCtlValue(ControlHandle(data1))-1, $1A);
		  	  DisablePopupItem(4, ReadBParam($1A)+1); {disable back item that is text item}
			end;
		  4 :
		    begin
		  	  EnablePopupItem(3, ReadBParam($1B)+1); {enable what was there}
			  WriteBParam(GetCtlValue(ControlHandle(data1))-1, $1B);
		  	  DisablePopupItem(3, ReadBParam($1B)+1); {disable text item that is back item}
			end;
		  5 : WriteBParam(GetCtlValue(ControlHandle(data1))-1, $1C);
		end;
	  AboutCDEV :
	    tempCtl := NewControl2(WindowPtr(data1),3,ord4(@MonitorAbout));
	end;
  end;

procedure EnablePopupItem(ctlID : integer; item : integer);
  var
    mymenuBar : MenuBarHandle;
  begin
    mymenuBar := GetMenuBar;
	SetMenuBar(MenuBarHandle(GetCtlHandleFromID(wind,ctlID)));
	EnableMItem(item);
	SetMenuBar(mymenuBar);
  end;
  
procedure DisablePopupItem(ctlID : integer; item : integer);
  var
    mymenuBar : MenuBarHandle;
  begin
    mymenuBar := GetMenuBar;
	SetMenuBar(MenuBarHandle(GetCtlHandleFromID(wind,ctlID)));
	DisableMItem(item);
	SetMenuBar(mymenuBar);
  end;

end.

\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/MonitorCDEV/Monitor.r b/IIGS.601.SRC/A.U.G/CtlPanel/MonitorCDEV/Monitor.r
new file mode 100644
index 0000000..88e18d9
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/MonitorCDEV/Monitor.r
@@ -0,0 +1 @@
+/*******************************************************************/
/*
/* Monitor.r
/*
/* Copyright (C) 1988-1992
/* Apple Computer, Inc.
/* All Rights Reserved
/*
/* This file contains the source of the resources needed to build the 
/* Monitor CDEV.
/*
/*******************************************************************/


/*  work:busybox:busybox.r   */
/* "hd:mpw:riigsincludes:typesiigs.r"   */

#include "typesiigs.r" 

resource rIcon (1) {
	  0x8000,							/* Kind */
	  20,								/* Height */
	  28,								/* Width */
	  
	  $"FF000000000000000000000000FF"
	  $"F0FFFFFFFFFFFFFFFFFFFFFFFF0F"
	  $"0FFFFFFFFFFFFFFFFFFFFFFFFFF0"
	  $"0FFF00000000000000000000FFF0"
	  $"0FF0F4FFFFFFFFFFFFFFFFFF0FF0"
	  $"0FF0000000000000000000000FF0"
	  $"0FF0DDDDDDDDDDDDDDDDDDDD0FF0"
	  $"0FF0DDDDDDDDDDDDDDDDDDDD0FF0"
	  $"0FF0DDDDDDDDDDDDDDDDDDDD0FF0"
	  $"0FF0DDDDDDDDDDDDDDDDDDDD0FF0"
	  $"0FF0DDDDDDDDDDDDDDDDDDDD0FF0"
	  $"0FF0DDDDDDDDDDDDDDDDDDDD0FF0"
	  $"0FF0DDDDDDDDDDDDDDDDDDDD0FF0"
	  $"0FF0DDDDDDDDDDDDDDDDDDDD0FF0"
	  $"0FF0DDDDDDDDDDDDDDDDDDDD0FF0"
	  $"0FF0DDDDDDDDDDDDDDDDDDDD0FF0"
	  $"0FFF00000000000000000000FFF0"
	  $"0FFFFF8FFFFFFFFFFFFFFF8FFFF0"
	  $"F0FFFF4FFFFFFFFFFFFFF8FFFF0F"
	  $"FF000000000000000000000000FF",
		
	  $"00FFFFFFFFFFFFFFFFFFFFFFFF00"
	  $"0FFFFFFFFFFFFFFFFFFFFFFFFFF0"
	  $"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	  $"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	  $"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	  $"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	  $"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	  $"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	  $"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	  $"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	  $"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	  $"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	  $"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	  $"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	  $"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	  $"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	  $"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	  $"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	  $"0FFFFFFFFFFFFFFFFFFFFFFFFFF0"
	  $"00FFFFFFFFFFFFFFFFFFFFFFFF00";


};

read rCDEVCode (1,Convert) "MONITOR.Load";


resource rCDEVFlags (1) {
	wantHit+wantInit+wantCreate+wantAbout+updateSSfromBRAM,	/* CDEV Flags */
	1,											/* Enabled */
	1,											/* Version */
	1,											/* Machine */
	4,											/* System */
	{0,0,77+15,200+22},							/* DataRect */
	"Monitor",									/* Name */
	"Dave Lyons",								/* Author */
	"v1.2";									/* VersStr */
};
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/MonitorCDEV/MonitorData.aii b/IIGS.601.SRC/A.U.G/CtlPanel/MonitorCDEV/MonitorData.aii
new file mode 100644
index 0000000..a772b59
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/MonitorCDEV/MonitorData.aii
@@ -0,0 +1 @@
+*********************************************************
*
* Copyright Apple Computer, Inc 1991-92
* All Rights Reserved
*
*
*********************************************************
*
* REVISION HISTORY
*
* 21-Jan-91 Dave Lyons
*   Turned on fDrawArrowIcon (bit 7) of the ctlMoreFlags in
*   all five pop-up menus.
*
* 24-Jan-92 Monte Benaresh
*   Removed the above at the request of Margarita Sang.
*
* 8-Sep-92 Dave Lyons
*   Put the pop-down arrows back in for 6.0.1.
*
* 18-Sep-92 DAL
*   Made the window wider & re-aligned the pop-up.
*   Added a checkbox for "Smoother Mouse Cursor".
*
*********************************************************
	blanks off
	string ASIS

	include 'm16.util2'

monitor1 PROC EXPORT
	dc.w	9
	dc.l	1
	dc.w	2,5,14,195+20
	dc.l	$87000000
	dc.w	$0040
*	dc.w	$1004
	dc.w	$1084	;turn on bit 7 = fDrawArrowIcon, 21-Jan-91 DAL
	dc.l	0
	dc.w	80
	dc.l	monitor1Menu
	dc.w	1
	
monitor1menu
	dc.B '>> Type:\H'
	dc.W 1
	dc.B $0D
	dc.B '== Color\IH'
	dc.W 1
	dc.B $0D
	dc.B '== Monochrome\H'
	dc.W 2
	dc.B '.'
	ENDP
	
monitor2 PROC EXPORT
	dc.w	9
	dc.l	2
	dc.w	17,5,29,195+20
	dc.l	$87000000
	dc.w	$0040
*	dc.w	$1004
	dc.w	$1084	;turn on bit 7 = fDrawArrowIcon, 21-Jan-91 DAL
	dc.l	0
	dc.w	80
	dc.l	monitor2Menu
	dc.w	1
	
monitor2menu
	dc.B '>> Columns:\H'
	dc.W 2
	dc.B $0D
	dc.B '== 40\IH'
	dc.W 1
	dc.B $0D
	dc.B '== 80\H'
	dc.W 2
	dc.B $0D
	dc.B '.'
	ENDP


monitor3 PROC EXPORT
	dc.w	9
	dc.l	3
	dc.w	32,5,44,195+20
	dc.l	$87000000
	dc.w	$0040
*	dc.w	$1004
	dc.w	$1084	;turn on bit 7 = fDrawArrowIcon, 21-Jan-91 DAL
	dc.l	0
	dc.w	80
	dc.l	monitor3Menu
	dc.w	1
	
monitor3menu
	dc.B '>> Text:\H'
	dc.W 3
	dc.B $0D
	dc.B '== Black\H'
	dc.W 1
	dc.B $0D
	dc.B '== Deep Red\H'
	dc.W 2
	dc.B $0D
	dc.B '== Dark Blue\H'
	dc.W 3
	dc.B $0D
	dc.B '== Purple\H'
	dc.W 4
	dc.B $0D
	dc.B '== Dark Green\H'
	dc.W 5
	dc.B $0D
	dc.B '== Dark Gray\H'
	dc.W 6
	dc.B $0D
	dc.B '== Medium Blue\H'
	dc.W 7
	dc.B $0D
	dc.B '== Light Blue\H'
	dc.W 8
	dc.B $0D
	dc.B '== Brown\H'
	dc.W 9
	dc.B $0D
	dc.B '== Orange\H'
	dc.W 10
	dc.B $0D
	dc.B '== Light Gray\H'
	dc.W 11
	dc.B $0D
	dc.B '== Pink\H'
	dc.W 12
	dc.B $0D
	dc.B '== Light Green\H'
	dc.W 13
	dc.B $0D
	dc.B '== Yellow\H'
	dc.W 14
	dc.B $0D
	dc.B '== Aquamarine\H'
	dc.W 15
	dc.B $0D
	dc.B '== White\IH'
	dc.W 16
	dc.B $0D
	dc.B '.'

	ENDP
	
monitor4 PROC EXPORT
	dc.w	9
	dc.l	4
	dc.w	47,5,59,195+20
	dc.l	$87000000
	dc.w	$0040
*	dc.w	$1004
	dc.w	$1084	;turn on bit 7 = fDrawArrowIcon, 21-Jan-91 DAL
	dc.l	0
	dc.w	80
	dc.l	monitor4Menu
	dc.w	1
	
monitor4menu
	dc.B '>> Back:\H'
	dc.W 4
	dc.B $0D
	dc.B '== Black\H'
	dc.W 1
	dc.B $0D
	dc.B '== Deep Red\H'
	dc.W 2
	dc.B $0D
	dc.B '== Dark Blue\H'
	dc.W 3
	dc.B $0D
	dc.B '== Purple\H'
	dc.W 4
	dc.B $0D
	dc.B '== Dark Green\H'
	dc.W 5
	dc.B $0D
	dc.B '== Dark Gray\H'
	dc.W 6
	dc.B $0D
	dc.B '== Medium Blue\IH'
	dc.W 7
	dc.B $0D
	dc.B '== Light Blue\H'
	dc.W 8
	dc.B $0D
	dc.B '== Brown\H'
	dc.W 9
	dc.B $0D
	dc.B '== Orange\H'
	dc.W 10
	dc.B $0D
	dc.B '== Light Gray\H'
	dc.W 11
	dc.B $0D
	dc.B '== Pink\H'
	dc.W 12
	dc.B $0D
	dc.B '== Light Green\H'
	dc.W 13
	dc.B $0D
	dc.B '== Yellow\H'
	dc.W 14
	dc.B $0D
	dc.B '== Aquamarine\H'
	dc.W 15
	dc.B $0D
	dc.B '== White\H'
	dc.W 16
	dc.B $0D
	dc.B '.'
	ENDP

monitor5 PROC EXPORT
	dc.w	9
	dc.l	5
	dc.w	62,5,74,195+20
	dc.l	$87000000
	dc.w	$0040
*	dc.w	$1004
	dc.w	$1084	;turn on bit 7 = fDrawArrowIcon, 21-Jan-91 DAL
	dc.l	0
	dc.w	80
	dc.l	monitor5Menu
	dc.w	1
	
monitor5menu
	dc.B '>> Border:\H'
	dc.W 5
	dc.B $0D
	dc.B '== Black\H'
	dc.W 1
	dc.B $0D
	dc.B '== Deep Red\H'
	dc.W 2
	dc.B $0D
	dc.B '== Dark Blue\H'
	dc.W 3
	dc.B $0D
	dc.B '== Purple\H'
	dc.W 4
	dc.B $0D
	dc.B '== Dark Green\H'
	dc.W 5
	dc.B $0D
	dc.B '== Dark Gray\H'
	dc.W 6
	dc.B $0D
	dc.B '== Medium Blue\IH'
	dc.W 7
	dc.B $0D
	dc.B '== Light Blue\H'
	dc.W 8
	dc.B $0D
	dc.B '== Brown\H'
	dc.W 9
	dc.B $0D
	dc.B '== Orange\H'
	dc.W 10
	dc.B $0D
	dc.B '== Light Gray\H'
	dc.W 11
	dc.B $0D
	dc.B '== Pink\H'
	dc.W 12
	dc.B $0D
	dc.B '== Light Green\H'
	dc.W 13
	dc.B $0D
	dc.B '== Yellow\H'
	dc.W 14
	dc.B $0D
	dc.B '== Aquamarine\H'
	dc.W 15
	dc.B $0D
	dc.B '== White\H'
	dc.W 16
	dc.B $0D
	dc.B '.'
	ENDP

checkbox6 PROC EXPORT
	dc.w	10
	dc.l	6
	dc.w	77,5+8,89,195+8
	dc.l	$82000000	;checkbox
	dc.w	0			;flag
	dc.w	$3000		;moreFlags
	dc.l	0			;refcon
	dc.l	checkTitle
	dc.w	0			;initial value
	dc.l	0			;color table
	dc.b	$53,$73,0,0,0,0	;key equiv = "S"

checkTitle	str 'Smoother Mouse Cursor'

	EndP

	string PASCAL	; from here on, we need pascal strings

monitorsList	PROC EXPORT
	dc.l	monitor1
	dc.l	monitor2
	dc.l	monitor3
	dc.l	monitor4
	dc.l	monitor5
	dc.l	checkbox6
	dc.l	0
	ENDP

About1	PROC EXPORT
	dc.w 8
	dc.L 1
	dc.w 38,5,138,280
	dc.L $81000000
	dc.w $0000
	dc.w $1000
	dc.L 0
	dc.L TheText
	dc.w EndText-TheText
	string asis
TheText
;	dc.b 'The Monitor control panel allows you to change settings that affect '
;	dc.b 'the monitor.  These include Color/Monochrome, the number of characters '
;	dc.b 'to display on each line, the text, background, and border colors.  '
;	dc.b 'The text and background colors only affect the '
;	dc.b 'text screen in "classic" Apple II programs.'

	dc.b 'The Monitor control panel lets you change your monitor settings.  '
	dc.b 'The text and background colors affect only the text screen, not the '
	dc.b 'desktop.'
	dc.b 13,13
	dc.b 'ÒSmoother Mouse CursorÓ is useful with a Video Overlay Card '
	dc.b 'or an accelerator.'

EndText
	string pascal
	ENDP

monitorAbout PROC EXPORT
	dc.l	about1
	dc.l	0
	ENDP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/MonitorCDEV/makefile b/IIGS.601.SRC/A.U.G/CtlPanel/MonitorCDEV/makefile
new file mode 100644
index 0000000..61d3b39
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/MonitorCDEV/makefile
@@ -0,0 +1 @@
+#
# Monitor control panel makefile
#
# Rewritten 8-Sep-92 DAL for all-assembly version (in System 6.0.1)
#

Monitor Ä Monitor.Load Monitor.r
	reziigs Monitor.r -o Monitor -t "C7  " -c "pdos"
	if {AutoDuplicate}==1
		duplicateiigs -m -y Monitor :
	end

Monitor.Load Ä Monitor.aii.obj MonitorData.aii.obj
	linkiigs -x -l -s >Monitor.map 				¶
		-lseg Main:$1000						¶
			Monitor.aii.obj						¶
			MonitorData.aii.obj					¶
		-o Monitor.Load 

Monitor.aii.obj Ä Monitor.aii
	asmiigs Monitor.aii

MonitorData.aii.obj Ä MonitorData.aii
	asmiigs MonitorData.aii 
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/NamerCDEV/MakeFile b/IIGS.601.SRC/A.U.G/CtlPanel/NamerCDEV/MakeFile
new file mode 100644
index 0000000..790d5c2
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/NamerCDEV/MakeFile
@@ -0,0 +1 @@
+CDEV = namer


{CDEV}			 	Ä				{CDEV}.Load 	¶
									{CDEV}.r
	reziigs {CDEV}.r -o {CDEV} -t "C7  " -c "pdos"
	if {dup}				# test whether we should duplicateiigs
		duplicateiigs -m -y {CDEV} {CDEV}
	end

{CDEV}.Load		Ä	¶
			namer.aii.obj  ¶
			rename.aii.obj ¶
			namerdata.aii.obj  ¶
			sul.aii.obj	
		linkiigs -x -lseg:$1000 namer ¶
			namer.aii.obj  ¶
			rename.aii.obj ¶
			namerdata.aii.obj  ¶
			sul.aii.obj ¶
			 -o {CDEV}.Load
			 


{CDEV}.aii.obj 		Ä 		{CDEV}.aii	Makefile			¶
							::cdev.h  ::commonmacros.h ::dp.h
	asmiigs {CDEV}.aii 

rename.aii.obj 		Ä 		rename.aii	Makefile			¶
							::cdev.h  ::commonmacros.h ::dp.h
	asmiigs rename.aii 

namerdata.aii.obj 		Ä 		namerdata.aii	Makefile			¶
							::cdev.h  ::commonmacros.h ::dp.h
	asmiigs namerdata.aii 

sul.aii.obj 		Ä 		sul.aii	Makefile			¶
							::cdev.h  ::commonmacros.h ::dp.h
	asmiigs sul.aii 


\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/NamerCDEV/namer b/IIGS.601.SRC/A.U.G/CtlPanel/NamerCDEV/namer
new file mode 100644
index 0000000..e69de29
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/NamerCDEV/namer.aii b/IIGS.601.SRC/A.U.G/CtlPanel/NamerCDEV/namer.aii
new file mode 100644
index 0000000..ed518bf
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/NamerCDEV/namer.aii
@@ -0,0 +1 @@
+;;;	namer - AppleTalk Network Printer CDEV.
;
;	Michael V. Stein	01/25/90.
;
;	© Copyright Apple Computer, 1990.



;;;	routines included in this source file.
;
;	ccc - create cdev controls.
;	ctc - close the cdev.
;	ham - handle about messsage.
;	hhm - handle hit message.
;	icc - init cdev controls.
;	rtc - run the cdev.
;	acr - appletalk completion routine.
;	ane - add next element.
;	anl - add names to list.
;	cac - create actual controls.
;	cbs - change button status.
;	cmd - close modal dialog.
;	cnd - check for new devices.
;	cps - copy pascal string.
;	cst - create static text.
;	ctp - close the printer.
;	cus - compare uppercase strings.
;	dah - dereference a handle.
;	dam - display alert message.
;	dwh - disable window highlighting.
;	dzl - draw zone list.
;	ewh - enable window highlighting.
;	fsz - find starting zone in list.
;	gap - get actual pointer.
;	gdt - get device type.
;	gpn - get printer names.
;	gsz - get starting zone.
;	ghp - get highlighted printer.
;	ghz - get highlighted zone.
;	gip - get index into printers.
;	giz - get index into zones.
;	gmz - get my zone.
;	goa - get offset into array.
;	gzl - get zone list.
;	hom - handle out of memory.
;	hpe - handle pap error.
;	hpl - hit printer list.
;	hpu - hit pop up.
;	hzl - hit zone list.
;	iai - is appletalk active.
;	ipl - initialize printer list.
;	knl - kill name lookup.
;	mne - move to next element.
;	omd - open modal dialog.
;	otp - open the printer.
;	rfp - read from printer.
;	snl - start name lookup.
;	stp - status the printer.
;	wtp - write to printer.



	blanks	off
	

;;	equates.


recty0	equ	0		rectangle offsets
rectx0	equ	2
recty1	equ	4
rectx1	equ	6

stack_entry  equ  $e100b0	gs/os stack entry point


;;	include files.

	include	'::commonmacros.h'
	include	'::cdev.h'
	include	'::dp.h'
	include	'e16.control'
	include	'e16.dialog'
	include	'e16.event'
	include	'e16.gsos'
	include	'e16.lineedit'
	include	'e16.list'
	include	'e16.memory'
	include	'e16.quickdraw'
	include	'm16.control'
	include	'm16.dialog'
	include	'm16.gsos'
	include	'm16.intmath'
	include	'm16.lineedit'
	include	'm16.list'
	include	'm16.memory'
	include	'm16.misctool'
	include	'm16.quickdraw'
	include	'm16.print'
	include	'm16.QDAux'
	include	'm16.util2'
	include	'm16.window'
	include	'netprinter.h'


;;	main program.

main  	proc
	

;;	exported addreses.

	export	acr
	export	cmd	
	export	cps
	export	ctp
	export	dah
	export	dam
	export	damE
	export	devices
	export	dptr
	export	gdt
	export	ghp
	export	gip
	export	hpe
	export	hzl
	export	knl
	export	lookupF
	export	lszone
	export	mneE
	export	myzonename
	export	namesbuffer
	export	netobj
	export	omd
	export	openblock
	export	openblock2
	export	otp
	export	plisthdl
	export	rfp
	export	rfpE
	export	screenF
	export	stp
	export	stpE
	export	wtp
	export	zonebuffer
	export	zlisthdl


;;	imported addresses.

	import	about
	import	appletalk
	import	asterisk
	;import	atalkerr
	import atalkerrm
	import	atalkF
	import	atinit:atinitrec
	import	atinitlpath
	import	cfe
	import	choosepr
	import	close_pblk
	import	cprect
	import	ctllist
	import	emess1
	import	emess2
	import	emess3
	import	emess4
	import	emess5
	import	emess6
	import	emess7
	import	emess8
	import	emess10
	import	emess11
	import	emess12
	import	emess13
	import NBPbusyMsg
	import	entity:entityrec
	import	GinfoParams
	import	gmyp_pblk:NBPLType
	import	gmyz_pblk
	import	gup_pblk
	import	iwebut
	import	kill_pblk
	import	newname
	import	oktext
	import	open_pblk
	import	plist
	import	popen_pblk:open_printer
	import	pread_pblk:read_printer
	import	prec:printersetup
	import	psetpr_pblk:PMSetPrinterType
	import	psetuppath
	import	pstat_pblk:status_printer
	import	ptext
	import	ptypes
	import	punload_pblk
	import	pwrite_pblk:write_printer
	import	rw_pblk
	import	sm_pblk
	import	tryagain
	import	quit
	import	rtp
	import	rtpbut
	import	sul
	import	tryagain
	import	typeptr
	import	wtext
	import	zlist
	import	zonelist_pblk:gzonelist


namer	phb			save calling data bank
	phk
	plb			set our data bank		

;	make room on stack for direct page.

	tsc			
	sec			
	sbc	#dpsize		make room on stack for new direct page
	tcs			
	phd			save the current direct page
	tcd			new direct page

	stz cdev_result		;init result for Control Panel
	stz cdev_result+2

	lda	message	
	cmp	#11+1		
	bcs	namer1		if message defintely not handled

	ldx	atalkf
	beq	namer1		if appletalk isn't present
		
	asl	a		times 2 into word table
	tax			move into index reg
	jsr	(t_cdev-2,x)	call the handler of this message

namer1	pld			restore direct page
	tsc
	clc
	adc	#dpsize		
	tcs			reset the stack
	lda	1,s		Bump the stack up to prepare
	sta	11,s		to take off the 3 parameters
	lda	3,s		
	sta	13,s

	pla			get rid of message space
	
	pla			get rid of data1 space
	pla			
	
	pla			get rid of data2 space
	pla			
	
	lda cdev_result		;result for Control Panel
	sta	5,s
	lda cdev_result+2
	sta	7,s		

	plb
	
	rtl
		

t_cdev	dc.w	Machine_CDEV	handle machine message
	dc.w	ctcE		handle boot message - ignored
	dc.w	ctcE		handle shutdown message - ignored
	dc.w	icc		init cdev controls
	dc.w	ctc		close the cdev
	dc.w	ctcE		handle event message - ignored
	dc.w	ccc		create cdev controls
	dc.w	ham		handle about message
	dc.w	ctcE		handle rectangle message - ignored
	dc.w	hhm		handle hit message
	dc.w	rtc		run the cdev
	

;	secondary routines.


Machine_CDEV		;check for AppleTalk active and show alert if not

;	check screen resolution in case we have to show alert box

	pha			space for result
	_GetMasterSCB
	pla
	xba
	and	#$8000
	sta	screenF		!= 0 if 640 mode

	jsr iai			;check for AppleTalk active
	bcs @no_atalk
@active
	inc cdev_result		;return success
	rts

@no_atalk
	lda #atalkerrm
	ldy #^atalkerrm
	brl dam			;display alert box

	rts			;return (default) 0 result --> failed



;;	ccc - create cdev controls.
;
;	entry	(atalkerr..) = appletalk error message control.
;		[data1] = window ptr.
;		read = gs/os command to read from a file.
;
;	exit	if appletalk isn't installed, the appletalk error
;		text control is created.
;
;		if appletalk is active then:
;		controls are created.
;		the zonelist is created and sorted.
;		(selF) = 0.
;		[wptr] = window pointer.

ccc	;jsr	iai		is appletalk active
	;bcc	ccc1		if  active
	
	;ldx	#atalkerr	'AppleTalk must be installed to run É'
	;ldy	#^atalkerr
	;brl	cst		create static text control and return

ccc1	_Waitcursor
	stz	selF		no selection was made yet
	stz	pmatch
	stz	pmatch+2	
	stz	pindex		init printer index
	stz zonenamehdl
	stz zonenamehdl+2	;no name handle yet

;	next code moved to MachineCDEV by Monte Benaresh -- 12/4/91
	;pha			space for result
	;_GetMasterSCB
	;pla
	;xba
	;and	#$8000
	;sta	screenF		!= 0 if 640 mode

	lda	data1
	sta	wptr		save window pointer for later
	lda	data1+2
	sta	wptr+2

	jsr	gzl		get zone list

	stz NBPBusyF		assume NBP not busy
	jsr	gpn		get printer names
	cmp #$0408		too many NBP lookups active?
	bne @lookup_ok		no, continue
@cant_lookup
	dec NBPBusyF		set flag to display message at init time
@lookup_ok
	jsr	ipl		initialize printer list
	jsr	cac		create actual controls
	lda	zlisthdl	lo word of list handle
	ldy	zlisthdl+2	hi word of list handle
	jsr	sul		sort uppercase list
	stz	zindex		zone index of 0
		
;	since szl will only sort the names, now go through list, find the local
;	zone and show it as selected.

	jsr	fsz		find starting zone	
	jsr	dzl		draw zone list
	_InitCursor
	rts
	

	
;;	ctc - close the cdev.
;
;	entry	called when to close the cdev and appletalk is active.
;
;	exit	name lookup is stopped.
;		memory is disposed.


;;	alternate entrypoint:  ctcE.
;
;	ctcE is used as a convenient rts instruction.


ctc	lda	#$ffff
	sta	lookupF		flag to not start any more lookups
	jsr	knl		kill name lookup
	pushl	zonenamehdl
	_DisposeHandle		get rid of memory we allocated
	
ctcE	
ctc1	rts
	


;;	ham - handle about messsage.
;
;	entry	(about..) = static text control containg the about text.
;
;	exit	The 'about' control is created.


ham	ldx	#about
	ldy	#^about
	brl	cst		create static text control and return
	
	

;;	hhm - handle hit message.
;
;	entry	[data1] = handle to control.
;		[data2] = id of control that was hit.
;
;	exit	control hit is processed.


hhm	lda	data2		get id of control that was hit
	cmp	#5+1
	bcs	hhm1		if not important control
	asl	a
	tax
	jmp	(hhmtab-2,x)	jump to the proper handler and return
	
hhm1	rts	
	
	
hhmtab	dc.w	hpu		hit pop-up
	dc.w	hpl		hit printer list
	dc.w	hzl		hit zone list
	dc.w	0
	dc.w	rtp		rename the printer

	

;;	icc - init cdev controls.
;
;	entry	(atalkF) = 0 if appletalk isn't active.
;
;	exit	zone list is drawn if appletalk is active.


icc	lda	atalkF
	beq	icc1		if appletalk is not active

	brl	dzl		draw zone list and return

icc1	rts



;;	rtc - run the cdev.
;
;	entry	(lookupF) != 0 if not to do any more lookups.
;
;	exit	if lookups are allowed and out window is the frontmost, it starts a 
;		lookup if the last one has stopped.


rtc
	lda NBPBusyF		check flag for NBP busy
	beq @NBP_ok

	stz NBPBusyF		clear flag
	lda	#NBPbusyMsg	'A network search is already activeÉ'
	ldy	#^NBPbusyMsg
	jsr	dam		display alert message
@NBP_ok

;	next code to check for zones appearing after none could
;	be found adapted from AppleShare CDEV v2.0 by Mark Day
;
;	added 11/16/91 by Monte Benaresh

	lda zonelist_pblk.numberzones
	and #$00FF		;keep byte only
	bne @have_zones		;we found zones, all OK

	jsr gzl			;no zones, try to find them now

	pushl	#0		;standard listDraw
	pushw	#1		
	pushl	#$ffffffff	use current listref
	pushw	#$ffff		use current listrefdesc
	pushw	zlist+$1a	size of list
	pushl	zlisthdl	handle of list control record
	_NewList2

	lda	zlisthdl	lo word of list handle
	ldy	zlisthdl+2	hi word of list handle
	jsr	sul		sort uppercase list
	stz	zindex		zone index of 0
		
;	since szl will only sort the names, now go through list, find the local
;	zone and show it as selected.

	jsr	fsz		find starting zone	
	jsr	dzl		draw zone list

@have_zones
	lda	lookupF
	bne	rtc1		if not to look for new devices
	pha
	pha
	_FrontWindow
	pla			lo ptr to window
	plx			hi ptr to window
	cmp	wptr
	bne	rtc1		if no longer the front window
	cpx	wptr+2
	bne	rtc1		if no longer the front window
	brl	cnd		check for new devices and return
	
rtc1	rts



;	teriary routines called by the message handling routines.


;;	acr - appletalk completion routine.
;
;	entry	called by the appletalk routines with a jsl when an asynch call 
;		has completed.
;
;	exit	(calcompF) = $ffff


acr	lda	#$ffff
	sta	>callcompF	flag that the call completed
	rtl

	
	
;;	ane - add next element.
;
;	entry	[l1] =  ptr to current spot in the namelist.
;		[l4] =  ptr to current record in list manager list.
;
;	exit	entry is added to list.
;		[l1] = ptr to next spot in the namelist.
;		[l4] = ptr to next element in the list manager list.

;	copy new element into our list.


ane	ldy	#entityrec.netnum
	lda	[l1],y		
	ldy	#memrec.netnum
	sta	[l4],y
	
	lda	l1
	clc
	adc	#entityrec.objname
	ldy	#memrec.memptr
	sta	[l4],y
	
	lda	l1+2
	adc	#0
	ldy	#memrec.memptr+2
	sta	[l4],y
	
	shortmx
	ldy	#entityrec.nodeid
	lda	[l1],y
	ldy	#memrec.nodeid
	sta	[l4],y
	
	ldy	#entityrec.scktnum
	lda	[l1],y
	ldy	#memrec.scktnum
	sta	[l4],y
	
	ldy	#entityrec.enumerator
	lda	[l1],y
	ldy	#memrec.enumerator
	sta	[l4],y

	ldy	#memrec.memflag
	lda	#0
	sta	[l4],y		mark it as not selected
	longmx
	
ane3	jsr	mne		move to next element
	lda	l4
	clc
	adc	#memrec.sizeof
	sta	l4
	bcc	ane4		if didn't cross bank
	inc	l4+2
ane4	rts	

	
		
;;	anl - add names to list.
;
;	entry	(gymp_pblk..) = parameter block for getting printer list.
;		MaxSrvrs = max number of printers per zone to worry about.
;		(openblock..) = current printer name list.
;		(openblock2..) = new printer name list.
;		[plisthdl] = handle to printer list.
;		(plistsize) = current size of printer list.
;
;	exit	if the number of printers has changed then this routine will 
;		recreate the printer list with the info from the new call.


anl	lda	gmyp_pblk.rgotten
	and	#$ff
	cmp	plistsize
	beq	anl3		if same size  (branch doesn't reach bottom)

;	different # of objects, so copy openblock2 to openblock

	shortm
	ldx	#MaxSrvrs*(99+5)-1
anl1	lda	openblock2,x
	sta	openblock,x
	dex
	bne	anl1
	longm

	lda	#openblock
	sta	l1
	lda	#^openblock
	sta	l1+2
	
	lda	#0
	sta	w5
	jsr	gip		get index into printers [l4]
	lda	gmyp_pblk.rgotten
	and	#$ff
	sta	w6		responses received
	
anl2	lda	w5		current index
	cmp	w6		compare against total
	bcs	anl4		if done
	jsr	ane		add next element	
	inc	w5		bump the counter
	bra	anl2		process next element	

anl3	rts

anl4	lda	w6
	sta	plistsize	new size of list
	jsr	ghp		get highlighted printer

anl6	pushl	#0		;standard listDraw
	pushw	#1		
	pushl	#$ffffffff	use current listref
	pushw	#$ffff		use current listrefdesc
	pushw	plistsize	size of list
	pushl	plisthdl	handle of list control record
	_NewList2
				
	lda	plisthdl	lo word of list handle
	ldy	plisthdl+2	hi word of list handle
	jsr	sul		sort uppercase list
	
	stz	pindex		
	
	pushw	pindex		index of zone, might be zero
	pushl	plisthdl
	_SelectMember2		scroll list so current zone is shown

	lda	#noHilite	assume laserwriter
	ldx	pindex
	bne	anl7		if a match was found
	
	lda	#inactiveHilite
anl7	brl	cbs		chnage button status and return


		
;;	cac - create actual controls.
;
;	entry	(ctllist..) = table of long ptrs to control templates.
;		[data1] = ptr to window.
;		(devices) = index of current printer type.
;		(choosepr..) = template for the popup menu.
;		(plist..) = template for printer list.
;		(rtpbut..) = template for rename button.
;		(zlist..) = template for zone list.
;
;	exit	controls and created and program control falls into
;		cbs to set the buttons appropriately.
;		popup is set correctly.
;		[plisthdl] = handle to printer list control
;		[rtpbuthdl] = handle to rename button control.
;		[zlisthdl] = handle to zone list control.


cac	lda	devices
	ina
	sta	choosepr+$20	set initial item in popup
	
	pha			space for result
	pha
	pushl	data1		window pointer
	pushw	#3		next item is a ptr to a list of template pointers
	pushl	#ctllist
	_NewControl2
	pla
	pla			don't care about result

	pha
	pha			space for result
	pushl	data1		window pointer
	pushw	#0		next item is a control
	pushl	#zlist
	_NewControl2
	pulll	zlisthdl	handle to control

	pha
	pha			space for result
	pushl	data1		window pointer
	pushw	#0		next item is a control
	pushl	#plist
	_NewControl2
	pulll	plisthdl	handle to control

	pha
	pha			space for result
	pushl	data1		window pointer
	pushw	#0		next item is a control
	pushl	#rtpbut
	_NewControl2
	pulll	rtpbuthdl	handle to control

	lda	#inactiveHilite
	
;	routine falls into cbs and returns.  Obviously things will work better
;	if cbs is the next routine.
	

	
;;	cbs - change button status.
;
;	entry	(a) = new status for rename button (inactive or nohilite).
;		(devices) = type of device.
;		[iwebuthdl] = handle to emulator button control.
;		[rtpbuthdl] = handle to rename control.
;
;	exit	Rename button is set as specified.  


cbs	pha			
	pushl	rtpbuthdl
	_HiLiteControl
	rts

	

;;	cmd - close modal dialog.
;
;	entry	[l5] = dialog pointer.
;
;	exit	dialog is closed.
;		window highlighting enabled.


cmd	_InitCursor		;25-Aug-92 DAL
	pushl	l5		close the dialog
	_CloseDialog
	brl	ewh		enable window highlighting and return


	
;;	cnd - check for new devices.
;
;	entry	(calcompF0 = 0 if last asynch call didn't complete.
;		(gymp_pblk..) = paramater block to get printers in selected zone.
;		(lookupF) = 0 if ok to do lookup.
;
;
;	exit	If (lookupF) is true then the current name lookup is killed and the
;		routine exits.  Else if the current call hasn't completed then
;		the routine simply exits.  If the call has completed, the retry counts
;		are updated and the list is updated if the size has changed.  If it finds
;		no printers it will retry once else will assume that is correct.  Then
;		a new lookup is started.


;;	alternate entrypoint:  cndE.
;
;	cndE will start a new lookup.



cnd	lda	lookupF
	beq	cnd1		if ok to do lookup
	brl	knl		kill name lookup and return
	
cnd1	lda	callcompF
	beq	cnd8		if previous call didn't complete
	
	lda	gmyp_pblk.retryper
	and	#$ff
	cmp	#5
	bcs	cnd2		if at maximum
	ina
	shortm
	sta	gmyp_pblk.retryper	increment retry period
	sta	gmyp_pblk.retrycnt	increment retry count
	longm
	
cnd2	lda	gmyp_pblk.rgotten  # found so far
	and	#$ff		255 max
	cmp	plistsize
	bcs	cnd3		if found something

	dec	cnda		
	bpl	cnd4		if should try again
	
cnd3	lda	#1
	sta	cnda		reset retry counter
		
	jsr	anl		add names to list
	
;	start another lookup up	

cndE
	
cnd4	jsr	ghz		get highlighted zone
	beq	cnd5		if no other zones	
	dea
	jsr	giz		get index into zones [l4]
	
	lda	#myzonename
	sta	l2
	lda	#^myzonename
	sta	l2+2
	
	ldy	#memrec.memptr
	lda	[l4],y
	sta	l1
	iny
	iny
	lda	[l4],y
	sta	l1+2
		
	jsr	cus		comapre uppercase strings
	bcc	cnd6		if didn't select the current zone
	
cnd5	lda	#asterisk	the asterisk represents the current zone in search
	sta	l3
	lda	#^asterisk
	sta	l3+2
	bra	cnd7
	
cnd6	lda	l1		save ptr to zone name to search
	sta	l3
	lda	l1+2
	sta	l3+2
	
cnd7	stz	callcompF 	call not completed
	brl	snl		start name lookup and return
	
cnd8	rts			

		
cnda	dc.w	1
	


;;	cps - copy pascal string.
;
;	entry	[l1] = ptr to destination string
;		[l2] = ptr to source string.
;
;	exit	string is copied.


cps	ldx	#$ff

cpsE	stx	w1		save max # of chars to copy
	shortmx
	lda	[l2]
	sta	w2		length of source string
	ldy	#0
	
cps1	sty	w3		current index
	cpy	w1
	bcc	cps2		if not past max count
	bne	cps4		if past max count
	
cps2	cpy	w2
	bcc	cps3		if not past source string length
	bne	cps5		if done
	
cps3	lda	[l2],y		get char from source string
	sta	[l1],y		place into destination string
	iny
	bne	cps1		if didn't wrap, process next char
	bra	cps5		finish things up
	
cps4	dey
	tya
	sta	[l1]		replace new length

cps5	longmx
	rts



;;	cst - create static text.
;
;	entry	[x,y] = ptr to control.
;		[data1] = window ptr.
;
;	exit	control is created.


cst	pha			space for result
	pha
	pushl	data1		window pointer
	pushw	#0		next item is a ptr to a control
	phy			hi word of control
	phx			lo word of control
	_NewControl2		create the control
	pla
	pla			don't care about result
	rts
	
	
	
;;	ctp - close the printer.
;
;	entry	(popen_pblk.refnum) = refnum of open connection.
;
;	exit	printer connection is closed.


ctp	ldx	#punload_pblk
	ldy	#^punload_pblk
	jsl	$e11014		close all printer connections
	rts

	
	
;;	cus - compare uppercase strings.
;
;	entry	[l1] = ptr to first pascal string.
;		[l2] = ptr to second pascal string.
;
;	exit	strings are compared case insensitive.
;		(c) set if strings are equal.


cus	shortmx
	lda	[l1]
	sta	w1		length of first string
	cmp	[l2]
	bne	cus4		if string lengths are different	
	
	ldy	#0
cus1	iny
	sty	w3
	lda	[l1],y
	cmp	#'a'
	bcc	cus2		if not lowercase
	cmp	#'z'+1
	bcs	cus2		if not lowercase
	sbc	#$20-1		(c) clear
	
cus2	sta	w2		save
	lda	[l2],y
	cmp	#'a'
	bcc	cus3		if not lowercase
	cmp	#'z'+1
	bcs	cus3		if not lowercase
	sbc	#$20-1		(c) clear
	
cus3	cmp	w2
	bne	cus4		if strings don't match
	cpy	w1
	bcc	cus1		if more to check
	longmx
	rts			(c) set, strings match
	
cus4	longmx
	clc
	rts			strings don't match
	
	
	
;;	dah - dereference a handle.
;
;	entry	[a,x] = handle to dereference.
;
;	exits	(a) = upper word of dereferenced handle.
;		[l1] = dereferenced handle


dah	sta	l2
	stx	l2+2
	lda	[l2]
	sta	l1		lo ptr
	ldy	#2
	lda	[l2],y
	sta	l1+2		hi ptr
	rts

		
	
;;	dam - display alert message.
;
;	entry	[a,y] = ptr to message.
;
;	exit	centered caution alert displayed.


;;	alternate entry point:  damE.
;
;	entry	[a,y] = ptr to message.
;
;	exit	centered stop alert is displayed.


dam	sec

	skip1			

damE	clc
	ror	damF		save type wanted for now
	sta	dammsg		save message ptr
	sty	dammsg+2
	_InitCursor		make sure cursor is reset
	ldx	#(320-damw)/2
	lda	screenF
	bpl	dam1		if 320 mode
	ldx	#(640-damw)/2
dam1	stx	damtemp+2	left edge
	txa
	clc
	adc	#damw
	sta	damtemp+6	right edge
	pha
	pushl	#damtemp	template
	pushl	#0		no filter
	jsr	dwh		disable window highlighting
	lda	damF
	bpl	dam2		if user wants a stop alert
	
	_CautionAlert
	bra	dam3

dam2	_StopAlert	
	
dam3	jsr	ewh		enable window highlighting
	pla			ignore item hit but get it off the stack
	rts
		

damt	equ	60
damb	equ	140
damh	equ	damb-damt
daml	equ	170
damr	equ	470
damw	equ	damr-daml
damtemp dc.w	damt,daml,damb,damr
	dc.w	2376		id
	dc.b	$80
	dc.b	$80
	dc.b	$80
	dc.b	$80
	dc.l	okitem
	dc.l	damstr
	dc.l	0

okitem	dc.w	ok		okay button
	dc.w	damh-17,190,damh-4,260
	dc.w	buttonItem
	dc.l	oktext,0,0

damstr	dc.w	1348		text item
	dc.w	5,75,5+6*9,280
	dc.w	StatText+ItemDisable
dammsg	dc.l	0,0,0
	
damF	dc.w	0	



;;	dwh - disable window highlighting.
;
;	entry	none.
;
;	exit	window highlighting is disabled.


dwh	pha
	pushw	#$0001		flag for disabling window highlighting
	_WindowGlobal
	pla
	rts



;;	dzl - draw zone list.
;
;	entry	(zindex) = item # of selected zone.
;		[zlisthdl] = handle to zone list.
;
;	exit	list is redrawn so current item is displayed.


dzl	pushw	zindex		index of zone
	pushl	zlisthdl
	_SelectMember2		scroll list so current zone is shown
	rts
	
	

;;	ewh - enable window highlighting.
;
;	entry	none.
;
;	exit	window highlighting enabled.


ewh	pha
	pushw	#$FFFE		flag for enabling window highlighting
	_WindowGlobal
	pla
	rts



;;	fsz - find starting zone in list.
;
;	This routine is called to see if a specified zone is in our zone list.
;	If the zone is in the list, it is selected.
;
;	entry	(zonebuffer..) = list manager list containing zone list.
;		(zonename..) = name of zone to look for.
;		(zlist..) = zone list control template.
;
;	exit	If the zone is found:
;		zone is selected.
;		[cszone] = ptr to zone in list.
;		[lszone] = ptr to zone in list.
;		(zindex) = index of zone that was selected.


fsz	stz	w4		init counter
	lda	zlist+$1a	get list size
	sta	w5		# to check
	lda	#zonebuffer
	sta	l3
	lda	#^zonebuffer
	sta	l3+2
	lda	#zonename
	sta	l2		lo ptr to name of zone to look for
	lda	#^zonename
	sta	l2+2		hi ptr to name of zone to look for
	
fsz1	lda	w4		get index
	cmp	w5		compare against total
	bcs	fsz3		if not found
	inc	w4
	
	ldy	#memrec.memPtr
	lda	[l3],y
	sta	l1
	iny
	iny
	lda	[l3],y
	sta	l1+2
		
	jsr	cus		compare uppercase string
	bcs	fsz2		if found a match

;	move to next element.

	lda	l3
	adc	#memrec.sizeof	(c) clear
	sta	l3
	bcc	fsz1		if didn't cross bank
	inc	l3+2
	bra	fsz1		process next entry
	
;	found a match.

fsz2	lda	l3
	sta	cszone		save current zone selection
	sta	lszone
	lda	l3+2
	sta	cszone+2
	sta	lszone+2
	
	shortmx
	ldy	#memrec.memflag
	lda	#memselected
	sta	[l3],y		select the current printer
	longmx
	
	lda	w4
	sta	zindex		index of zone in list	
	
fsz3	rts


	
;;	gap - get actual pointer.
;
;	gap will retrieve the pointer to a string in an entry in a 
;	list manager list.
;
;	entry	[l4] = ptr to this entry in list manager list.
;
;	exit	[l2] = ptr to string for this item.


gap	ldy	#memrec.memptr
	lda	[l4],y
	sta	l2		low ptr
	iny
	iny
	lda	[l4],y		hi ptr
	sta	l2+2
	rts
	


;;	gdt - get device type.
;
;	entry	(devices) = index of printer type in table.
;		(typeptr..) = ptrs to printer type names.
;
;	exit	[l2] = name of current printer type.


gdt	lda	devices		type of printer
	asl	a
	tax
	lda	typeptr,x
	sta	l2
	lda	#^typeptr	bank
	sta	l2+2
	rts
	

	
;;	gpn - get printer names.
;
;	entry	(zonename..) = pascal string containing zone name to look in.
;
;	exit	name lookup is started.


gpn	lda	#zonename
	sta	l3
	lda	#^zonename
	sta	l3+2
	brl	snl		start name lookup and return


	
;;	gsz - get starting zone.
;
;	Unlike the netprinter CDEV, the current zone is always the starting zone.
;
;	entry	(myzonename..) = pascal string of current zone.
;
;	exit	(zonename..) = (myzonename..).
;		if the length of (myzonename) > 0 then (lzwpns..) = (myzonename..).
;		else  (lzwpns) = 0.


gsz	lda	#myzonename
	sta	l2
	lda	#^myzonename
	sta	l2+2
	
gsz2	lda	#zonename
	sta	l1
	lda	#^zonename
	sta	l1+2
	jsr	cps		copy pascal string

	lda	#lzwpns
	sta	l1		dest loc for eventual copy
	lda	#^lzwpns
	sta	l1+2
	
	lda	zonename
	and	#$ff
	beq	gsz3		if don't have a zone name
			
	lda	#zonename	source loc
	ldx	#^zonename
	bra	gsz6		copy zonename to lzwpns
	
gsz3	stz	lzwpns		no zone name
	rts	
	
gsz6	sta	l2		lo source ptr
	stx	l2+2		hi source ptr
	brl	cps		copy pascal string and return
	
gsz7	rts
	
	

;;	ghp - get highlighted printer.
;
;	entry	[plisthdl] = handle to printer list control.
;
;	exit	(a) = item # of highlighted printer.


ghp	pha			space for call
	pushw	#0		start from top of list
	pushl	plisthdl	use printer list
	_NextMember2
	pla
	rts



;;	ghz - get highlighted zone.
;
;	entry	[zlisthdl] = handle to zone list control.
;
;	exit	(a) = item # of highlighted zone.

	
ghz	pha			space for result
	pushw	#0		start from top of list
	pushl	zlisthdl
	_NextMember2
	pla			selected zone, or 0 if none selected
	rts
	
	
	
;;	gip - get index into printers.
;
;	entry	(a) = index of desired printer.
;		(namesbuffer..) = printer list definition.
;
;	exit	[l4] = ptr to entry in namesbuffer list.


gip	jsr	goa		get offset into array
	clc
	adc	#namesbuffer
	sta	l4
	tya
	adc	#^namesbuffer
	sta	l4+2
	rts
	
	
	
;;	giz - get index into zones.
;
;	entry	(a) = index of desired zone.
;		(zonebuffer..) = zone list definition.
;
;	exit	[l4] = ptr to entry in zonebuffer list.


giz	jsr	goa		get offset into array	
	clc
	adc	#zonebuffer
	sta	l4
	tya
	adc	#^zonebuffer
	sta	l4+2
	rts



;;	gmz - get my zone.
;
;	entry	(gmyz_pblk..) = parameter block to get current zone.
;
;	exit	(myzonename..) = pascal string containing user's zone.


gmz	ldx	#gmyz_pblk
	ldy	#^gmyz_pblk
	jsl	$e11014	
	
gmz1	lda	gmyz_pblk+2	get status
	cmp	#busy
	beq	gmz1		if request not finished yet
	tay
	beq	gmz2		if no error	
	stz	myzonename	assume no name for zone
gmz2	rts	
	


;;	goa - get offset into array.
;
;	entry	(a) = offset desired.
;		memrec.sizeof = size of each element
;
;	exit	[l4] = offset of entry


goa	pha
	pha			space for call
	pha			element wanted
	pushw	#memrec.sizeof
	_Multiply
	pla
	sta	l4
	ply
	sty	l4+2
	rts


	
;;	gzl - get zone list.
;
;	entry	(ginfoprarams..) = parameter block to get appletalk info.
;		maxzones = max # of zones to worry about.
;		namelen = max length of object names.
;		(zlist..) = zone list control template.
;		(zonelist_pblk..) = parameter block to get zone list.
;
;	exit	[cszone] = 0.
;		(devices) = starting device.
;		(ldwpns) = starting device.
;		[lszone] = 0.
;		[zonenamehdl] = handle to memory for zone list.
;		(zonebuffer..) = list mamanger list containing zones.
;
;		if there is for memory for zonenamehdl, routine exits to hom.


gzl	ldx	#GinfoParams	get low word pointer to parameter list
	ldy	#^GinfoParams	get high word pointer to parameter list
	jsl	$e11014
	
	shortm
	lda	GinfoParams+getinfo.ABridge
	sta	bridge		
	sta	zonelist_pblk.brnode
	longm
		
	lda zonenamehdl
	ora zonenamehdl+2	;do we have this handle yet?
	bne gzl_haveHndl	;yes, don't allocate again

	lda	#maxzones*(namelen+1+5)  	
gzl1	pha			space for result
	pha			space for result
	pushw	#0		hi word of size to create
	pha			lo word of size to create
	pha			space for memory id
	_MMStartup		put control panel mem ID on stack
	pushw	#attrLocked		 
	pha
	pha
	_NewHandle
	pla
	sta	zonenamehdl
	pla
	sta	zonenamehdl+2
	bcc	gzl3		if no memory problems
	
gzl2	brl	hom		handle out of memory and return

gzl_haveHndl
gzl3	lda	bridge
	beq	gzl6		if no bridge

	jsr	gmz		get my zone
	lda	#3
	sta	w1

gzl4	lda	zonenamehdl
	ldx	zonenamehdl+2
	jsr	dah		derefence a handle
	sta	zonelist_pblk.bufptr+2    hi word
	lda	l1
	sta	zonelist_pblk.bufptr	  lo word
	
gzl5	ldx	#zonelist_pblk
	ldy	#^zonelist_pblk
	jsl	$e11014
		
	lda	zonelist_pblk.numberzones  
	
	and	#$ff		only 255 possible
	bne	gzl6		if got some zones
	dec	w1
	bne	gzl5		if should try again

gzl6	sta	zlist+$1a	size of list - total # of zones that were found
	lda	devices
	sta	ldwpns		last device with printer name selected
	
	jsr	gsz		get starting zone
	
;	now create all of the pointers to the pascal strings in zonenames.

	lda	zonenamehdl
	ldx	zonenamehdl+2
	jsr	dah		dereference a handle
		
	lda	#zonebuffer
	sta	l2
	lda	#^zonebuffer
	sta	l2+2
	stz	w2		current index into list
	
gzl9	ldy	#memrec.memptr
	lda	l1
	sta	[l2],y		low ptr to this string
	iny
	iny
	lda	l1+2
	sta	[l2],y		high ptr to this string
	
	shortmx
	ldy	#memrec.memflag
	lda	#0
	sta	[l2],y		entry is not selected
	longmx
	
	lda	l2
	clc
	adc	#memrec.sizeof
	sta	l2
	bcc	gzl10
	inc	l2+2
gzl10	jsr	mneE		move to next element
	lda	w2		current index into zone list
	ina
	sta	w2
	cmp	zlist+$1a	compare against total zones
	bcc	gzl9		if more zones to do
		
	lda	#1
	sta	zlist+$20	start at top of list
	
	stz	cszone
	stz	cszone+2	nothing is currently selected
	
	stz	lszone
	stz	lszone+2	nothing was selected	
	rts
	

	
;;	hom - handle out of memory.
;
;	entry	program wasn't able to get memory wanted.
;
;	exit	memory dialog displayed and removed.
;		(atalkF) = 0.


hom	stz	atalkF		pretend there is no appletalk
	lda	#emess7		'There is not memory to continue'
	ldy	#^emess7
	brl	damE		display stop alert and return



;;	hpe - handle pap error.
;
;	entry	(a) = error.
;		(emess10..) = error message for when printer is not responding.
;		(emess11..) = error message for when network error.
;		(emess13..) = error message for when printer can't be found.
;
;	exit	error message is displayed in a centered stop alert.
	

hpe	cmp	#$805
	bne	hpe1		if not a name not found error
	cmp	#$807
	bne	hpe1		if not a network error
	lda	#emess13	'The selected printer could not be found'
	bra	hpe3

hpe1	cmp	#$808
	bne	hpe2		if not a server not responding error
	lda	#emess10	'The selected printer is not responding...'
	bra	hpe3

hpe2	lda	#emess11	'A network error has occurred...'

hpe3	ldy	#^emess11	bank is the same for all messages
	brl	damE		display alert message and return



;;	hpl - hit printer list.
;
;	entry	user clicked in an entry in the printer list.
;		Atalkon = flag to indicate that appletalk is on.
;		(devices) = index of device type.
;		[plisthdl] = handle to printer list control.
;		[zlisthdl] = handle to zone list control.
;
;	exit	emulator button is highlighted if laserwriter.
;		(ldwpns) = (devices).
;		(lzwpns..) = last zone with printer name selected.
;		(prec.appletlk) =  Atalkon.
;		(prec.netname..) = pascal string containing printer name.


hpl	jsr	ghp		get highlighted printer
	beq	hpl2		if nothing selected, exits
	
	ldx	#1
	stx	selF		flag that a selection was made
	dea
	jsr	gip		get index into printers  [l4]	
	lda	#noHilite
	jsr	cbs
	jsr	gap		get actual pointer	
	stz	lzwpns	
	jsr	ghz		get highlighted zone
	
hpl2	beq	hpl3		if no zone is selected
	
	dea
	jsr	giz		get index into zones  [l4]	
	jsr	gap		get actual pointer
	
	lda	#lzwpns		last zone with printer name selected
	sta	l1
	lda	#^lzwpns
	sta	l1+2
	jsr	cps		copy pascal string
	
hpl3	lda	devices
	sta	ldwpns		last device with printer name selected
	rts

	
	
;;	hpu - hit pop up.
;
;	entry	user has selected an item from the popup.
;		[data1] = handle to popup control.
;		(devices) = current device type.
;		(ldwpns) = last device with printer name selected.
;		(lzwpns..) = last zone with printer name selected.
;		(selF) != 0 if selection was made.
;
;	exit	if the user chose the same as current nothing is done. Else a new printer
;		list is generated for this zone.


hpu	pha			space for result
	pushl	data1		ptr to control
	_GetCtlValue
	pla
	dea
	cmp	devices
	beq	hpu9		if the same as previous printer type
	
	sta	devices		new device type to use
	
	lda	ldwpns		last device with printer name selected
	cmp	devices
	bne	hpu1		if not the same as selected device
	
	lda	SelF
	beq	hpu1		if no selection

	pha			space for result
	pushl	zlisthdl	handle to list control
	_ResetMember2		unselect the current zone

	pushl	zlisthdl	
	_DrawMember2		redraw the zone unselected
	
	lda	#lzwpns
	sta	l2
	lda	#^lzwpns
	sta	l2+2
	lda	#zonename
	sta	l1
	lda	#^zonename
	sta	l1+2
	jsr	cps		copy pascal string
		
	jsr	fsz		find starting zone
	jsr	dzl		draw zone list

hpu1	jsr	ghz		get highlighted zone
	beq	hpu8		if no zones
	
	stz	lszone
	stz	lszone+2	force it to recalculate
	brl	hzlE		handle zone list  (will get new list of printers) and return

hpu8	brl	hzlEE		handle zone list and return

hpu9	rts



;;	hzl - hit zone list.
;
;	entry	user clicked in the zone list to select a zone.
;		[lszone] = ptr to last selected zone.
;
;	exit	if the selected zone hasn't changed, routine just returns, else
;		the current name lookup is stopped.
;		a new name lookup is started with the selected zone.
;		buttons are inactivated.
;		[lszone] = ptr to zone the user clicked on.
;		(pindex) = 0.
;		[pmatch] = 0.
;		(plistsize) = 0.


;;	alternate entry point:  hzlE.
;
;	(a) = item # of zone.


;;	alternate entry point:  hzlEE.
;
;	force routine to kill current lookup and restart a name lookup.


hzl	jsr	ghz		get highlighted zone


hzlE	dea
	jsr	giz		get index into zones [l4]
	ldx	l4
	stx	cszone		lo ptr to record of selected zone
	lda	l4+2
	sta	cszone+2	hi ptr to record of selected zone
	cmp	lszone+2
	bne	hzl1		if not the same zone
		
	cpx	lszone
	beq	hzl2		if selected the same zone as before	

hzl1	stx	lszone
	sta	lszone+2	save for next comparison

hzlEE	jsr	knl		kill name lookup
	stz	pmatch
	stz	pmatch+2	
	stz	pindex		nothing selected
	stz	plistsize	flag nothing valid
		
	pushl	#0		;use standard drawing routine
	pushw	#1		item # of first displayed member
	pushl	#$ffffffff	use current value for listref
	pushw	#$ffff		no change to listref descriptor
	pushw	#0		size of list
	pushl	plisthdl	handle to list
	_NewList2		

	lda	#inactiveHilite
	jsr	cbs		change button status
	brl	cndE		check for new devices and return
	
hzl2	rts	
	


;;	iai - is appletalk active.
;
;	entry	(iaia..) = gs/os parameter block to get the device # of appletalk driver.
;
;	exit	(c) set if appletalk driver isn't active.
;		(atalkF) = 0 if no appletalk, else = 1.


iai	_GetDevNumberGS  iaia
	lda	#1		asssume found
	bcc	iai1		if no error - appletalk active
	dea
iai1	sta	atalkF		set flag
	rts


iaia	dc.w	2		two parameters
	dc.l	iaib		ptr to device name
	ds.b	2		result - not used
	
iaib	dc.w	iaiblen		
	dc.b	'.APPLETALK'
iaiblen	equ	*-iaib-2	
	
	
	
;;	ipl - initialize printer list.
;
;	ipl is used to go through the printer list and mark all of the
;	items as unselected.
;
;	entry	maxsrvrs = max # of printers to worry about per zone.
;		(namesbuffer..) = printer list.
;
;	exits	every element is unselected.
;		(plistsize) = 0.


ipl	stz	w1		init counter
	lda	#namesbuffer
	sta	l1
	lda	#^namesbuffer
	sta	l1+2
	stz	plistsize	nothing in the list
	
ipl1	shortmx
	ldy	#memrec.memflag	
	lda	#0
	sta	[l1],y
	longmx
	
	lda	w1
	ina
	sta	w1		bump up counter
	cmp	#maxsrvrs
	bcs	ipl2		if done
	
	lda	l1
	adc	#memrec.sizeof	(c) clear
	sta	l1
	bcc	ipl1		if didn't cross bank
	inc	l1+2
	bra	ipl1		process next entry
	
ipl2	rts	



;;	knl - kill name lookup.
;
;	entry	(kill_pblk..) = parameter block to stop name lookup.
;
;	exit	lookup is stopped.
;		(gmyp_pblk.retryper) = 1 for next name lookup call.
;		(gymp_pblk.retrycnt) = 1 for next name lookup call.


knl	ldx	#kill_pblk
	ldy	#^kill_pblk
	jsl	$e11014
	shortm
	lda	#1
	sta	gmyp_pblk.retryper	reset retry period for intial look
	sta	gmyp_pblk.retrycnt	reset retry count for initial look
	longm
	rts



;;	mne - move to next element.
;
;	mne is used to move past an entry in the buffer that is created
;	by a name lookup call.
;
;	entry	[l1] = ptr to current entry in buffer.
;
;	exit	[l1] = ptr to next entry in buffer.



;;	alternate entrypoint:  mneE.
;
;	mneE will move past a pascal string.
;
;	entry	[l1] = ptr to start of pascal string.
;
;	exit	[l1] = ptr is moved past the string


mne	lda	l1
	clc
	adc	#5
	sta	l1
	bcc	mne1		if no carry into hi word
	inc	l1+2
mne1	jsr	mneE		get past type field
	jsr	mneE		get past zone field twice

;	routine jsr's to here from above since that is the most efficient
;	way of doing this.

mneE

mne2	lda	[l1]		
	and	#$ff		get length of field
	sec
	adc	l1		add in length of string + length byte
	sta	l1
	bcc	mne3		if no carry into hi word
	inc	l1+2
mne3	rts



;;	omd - open modal dialog.
;
;	entry	[a,y] = fwa of dialog template.
;
;	exit	modal dialog is opened.
;		window highlighting is turned off.
;		[l5] = dialog pointer.


omd	pha			space for result
	pha
	phy			fwa of dialog template
	pha
	jsr	dwh		disable window highlighting
	_GetNewModalDialog
	pla			get dialog pointer
	sta	l5		low word of pointer
	sta	dptr		
	pla
	sta	l5+2		high word of pointer
	sta	dptr+2
	rts



;;	otp - open the printer.
;
;	entry	(popen_pblk..) = parameter block to open a printer connection.
;		[pstat_pblk.prname] = ptr to printer name.
;
;	exit	(a) = result code.


otp	lda	pstat_pblk.prname	move ptr to name over
	sta	popen_pblk.prname
	lda	pstat_pblk.prname+2
	sta	popen_pblk.prname+2  
	
	ldx	#popen_pblk	get low word pointer to parameter list
	ldy	#^popen_pblk	get high word pointer to parameter list
	jsl	$e11014
	rts
	
	
otp1	lda	popen_pblk.result
	cmp	#papbusy
	beq	otp1		if busy

otp2	rts



;;	rfp - read from printer.
;
;	rfp is used to keep a constant read coming from the printer so
;	there is never a time when the printer is waiting to send status.
;	The data read from the printer is ignored.
;
;	entry	(popen_pblk.refnum..) = refnum of open connection.
;		(pread_pblk..) = parameter block to read from printer connection.
;
;	exit	read request is started if the last one has stopped.


rfp	lda	pread_pblk.result
	cmp	#PapBusy
	beq	rfp1		if last call hasn't finished yet	

rfpE	shortm
	lda	popen_pblk.refnum
	sta	pread_pblk.refnum  set refnum of the connection
	longm
	
	lda	#512
	sta	pread_pblk.buflen
	
	ldx	#pread_pblk	get low word pointer to parameter list
	ldy	#^pread_pblk	get high word pointer to parameter list
	jsl	$e11014
	
rfp1	rts
	
		
	export	readbuff
	
readbuff	ds.b	512			
	
	

;;	snl - start name lookup.
;
;	entry	(gmyp_pblk..) = parameter block for getting namelist.
;
;	exit	namelookup is started.
;		(lookupF) = 0.


snl	lda	#('='<<8)+1	one char string of '='
	sta	netobj		any object
	lda	#netobj+2
	sta	l1
	lda	#^netobj+2
	sta	l1+2

	jsr	gdt		get device type [l2]
	jsr	cps		copy pascal string
	jsr	mneE		move to next element

snl1	lda	l3		lo ptr to zonename to check
	sta	l2
	lda	l3+2		hi ptr to zonemname to check
	sta	l2+2
	jsr	cps		copy pascal string
	stz	lookupF		don't stop the lookup
	ldx	#gmyp_pblk
	ldy	#^gmyp_pblk
	jsl	$e11014
	lda gmyp_pblk.result	get result in case caller cares
	rts



;;	stp - status the printer.
;
;	entry	a printer is selected.
;		(pstat_pblk..) = parameter block to status a printer.
;
;	exit	(a) = result code.
;		(netobj2..) = printer tuple.


;;	alternate entry point:  stpE.
;
;	entry	[pstat_pblk.prname] = ptr to printer tuple.


stp	jsr	ghp		get highlighted printer
	dea			offset into list (always is 1 selected)
	jsr	gip		get index into printers
	ldy	#memrec.memptr
	lda	[l4],y
	sta	l2		lo word of ptr to name
	iny
	iny
	lda	[l4],y
	sta	l2+2		hi word of ptr to name

	lda	#netobj2
	sta	pstat_pblk.prname
	sta	l1
	lda	#^netobj2
	sta	pstat_pblk.prname+2
	sta	l1+2
	jsr	cps		copy pascal string	
	jsr	mneE		move to next element
	jsr	gdt		get device type
	jsr	cps		copy pascal string
	jsr	mneE		move to next element

	lda	cszone
	ora	cszone+2
	bne	stp1		if have selected a zone
	
	lda	#asterisk	current zone
	bra	stp2
	
stp1	lda	#lzwpns		last zone with printer name selected
stp2	sta	l2
	lda	#^lzwpns
	sta	l2+2
	jsr	cps		copy pascal string

	
stpE	jsr	knl		kill name lookup
	ldx	#pstat_pblk
	ldy	#^pstat_pblk
	jsl	$e11014
	
stp3	lda	pstat_pblk.result
	cmp	#papbusy
	beq	stp3		if not done yet
	rts
			
	
;;	wtp - write to printer.
;
;	entry	(popen_pblk.refnum) = connection refnum.
;		(pwrite_pblk..) = parameter block for write command.
;
;	exit	data is written to printer
;		(a) = result code.


wtp	shortm
	lda	popen_pblk.refnum
	sta	pwrite_pblk.refnum
	longm
	ldx	#pwrite_pblk
	ldy	#^pwrite_pblk
	jsl	$e11014
	
wtp1	lda	pwrite_pblk.result
	cmp	#PapBusy
	beq	wtp1			if still busy 
	rts




;	uninitialized data.



bridge	ds.b	2		bridge # 

callcompF  ds.b	2		!= 0 if call completed

cszone	ds.b	4		ptr tp currently selected zone

devices	ds.b	2		offset of type of device

dptr	ds.b	4		dialog pointer

ldwpns	ds.b	2		last device with printer name selected

lookupF	ds.b	2		!= 0 if to look for new devices

lszone	ds.b	4		ptr to last selected zone

lzwpns	ds.b	namelen+1	last zone with printer name selected

myzonename  ds.b	namelen+1	name of user's home zone

namesbuffer ds.b	memrec.sizeof*MaxSrvrs

netobj	ds.b	100		build network entity here

netobj2  ds.b	100		hold name

openblock  ds.b	MaxSrvrs*(99+5)	 holds memory for call to get printer names

openblock2  ds.b  MaxSrvrs*(99+5)	 holds memory for call to get printer names
	
pindex	ds.b	2		offset of printer in list

plisthdl  ds.b	4		handle to printer list control record

plistsize  ds.b	2		size of printer list

pmatch	ds.b	4		ptr to printer name in list

rtpbuthdl  ds.b	4		handle to rename button control

screenF	ds.b	2		high bit set if this is a 640 mode screen

selF	ds.b	2		!= 0 if a selection was made

wptr	ds.b	4		window pointer
	
zindex	ds.b	2		index to zones

zlisthdl  ds.b	4		handle to zone list control
	
zonebuffer  ds.b  memrec.sizeof*maxzones  list of zones for list manager
		
zonename  ds.b	33		name of zone

zonenamehdl  ds.b	4	handle to zonename list from nbp call

NBPBusyF	ds.w 1		flag to say we couldn't lookup b/c NBP was busy

cdev_result	ds.l 1		;result for Control Panel

	endp

	end
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/NamerCDEV/namer.r b/IIGS.601.SRC/A.U.G/CtlPanel/NamerCDEV/namer.r
new file mode 100644
index 0000000..7a1f231
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/NamerCDEV/namer.r
@@ -0,0 +1 @@
+/*******************************************************************/
/*
/* namer.r
/*
/* Copyright (C) 1988-1992
/* Apple Computer, Inc.
/* All Rights Reserved
/*
/* This file contains the source of the resources needed to build the 
/* AppleTalk Namer CDEV.
/*
/*******************************************************************/


#include "typesiigs.r" 

resource rIcon (1) {
	  0x8000,							/* Kind */
	  20,								/* Height */
	  28,								/* Width */

		$"FFF000000000000000000000000F"
		$"FF0F99FFF99FF99FFFFFF00FFF0F"
		$"F0FF9F9F9FF9F9F9FFFF07700F0F"
		$"F0FF99FF9FF9F99FFFF07077700F"
		$"F0FF9F9F9FF9F9F0000704077700"
		$"FF0F99FFF99FF99FFF0000077733"
		$"FFF0000000000000000700777733"
		$"FFF0FFFFFFFFFFFFFFF077777733"
		$"FFF0000000000000000000000000"
		$"FFF0F4FFFFFFFFFFFFFFFFFFFFF0"
		$"FFF0000000000000000000000000"
		$"FFF0F0F0F0F0F0F0F0F0F0F0F0F0"
		$"FFF0000000000000000000000000"
		$"FFFFFFFFFFFFFFF0F0FFFFFFFFFF"
		$"FFFFFFFFFFFFFF00000FFFFFFFFF"
		$"FFFFFFFFFFFFFF0FFF0FFFFFFFFF"
		$"FFFFFFFFFFFFFF00000FFFFFFFFF"
		$"00F00000000000FF0FF000000F00"
		$"FFFFFFFFFFFFFFF0F0FFFFFFFFFF"
		$"00F000000000000FFF0000000F00",

		$"000FFFFFFFFFFFFFFFFFFFFFFFF0"
		$"00FFFFFFFFFFFFFFFFFFFFFFFFF0"
		$"0FFFFFFFFFFFFFFFFFFFFFFFFFF0"
		$"0FFFFFFFFFFFFFFFFFFFFFFFFFF0"
		$"0FFFFFFFFFFFFFFFFFFFFFFFFFFF"
		$"00FFFFFFFFFFFFFFFFFFFFFFFFFF"
		$"000FFFFFFFFFFFFFFFFFFFFFFFFF"
		$"000FFFFFFFFFFFFFFFFFFFFFFFFF"
		$"000FFFFFFFFFFFFFFFFFFFFFFFFF"
		$"000FFFFFFFFFFFFFFFFFFFFFFFFF"
		$"000FFFFFFFFFFFFFFFFFFFFFFFFF"
		$"000FFFFFFFFFFFFFFFFFFFFFFFFF"
		$"000FFFFFFFFFFFFFFFFFFFFFFFFF"
		$"000000000000000FFF0000000000"
		$"00000000000000FFFFF000000000"
		$"00000000000000FFFFF000000000"
		$"00000000000000FFFFF000000000"
		$"FF0FFFFFFFFFFFFFFFFFFFFFF0FF"
		$"FF0FFFFFFFFFFFFF0FFFFFFFF0FF"
		$"FF0FFFFFFFFFFFF000FFFFFFF0FF";

};

read rCDEVCode (1,Convert) "namer.Load";


resource rCDEVFlags (1) {
	wantInit+wantClose+wantHit+wantCreate
	+wantAbout+wantRun+wantMachine,				/* CDEV Flags */
	1,											/* Enabled */
	1,											/* Version */
	1,											/* Machine */
	4,											/* System */
	{0,0,145,280},								/* DataRect */
	"Namer",									/* Name */
	"Michael Stein",							/* Author */
	"v1.1";									/* VersStr */
};
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/NamerCDEV/namerdata.aii b/IIGS.601.SRC/A.U.G/CtlPanel/NamerCDEV/namerdata.aii
new file mode 100644
index 0000000..1337747
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/NamerCDEV/namerdata.aii
@@ -0,0 +1 @@
+;;;	namerdata - data records and strings used by namer CDEV.
;
;	Michael V. Stein	04/21/90.
;
;	© Copyright Apple Computer, 1990.


	blanks	off
	

;;	equates.


fCtlCanBeActive equ 	$4000

InsideScrollBar	equ	4



;;	include files.


	include	'e16.control'
	include	'e16.gsos'
	include	'e16.list'
	include	'netprinter.h'



;;	main program.



netdata	proc



;;	exported addresses.


	
	export	about
	export	appletalk
	export	asterisk
	;export	atalkerr
	export atalkerrm
	export	atalkF
	export	choosepr
	export	cprect
	export	ctllist
	export	emess7
	export	emess10
	export	emess11
	export	emess13
	export NBPbusyMsg
	export	ginfoparams
	export	gmyp_pblk
	export	gmyz_pblk
	export	kill_pblk
	export	oktext
	export	popen_pblk
	export	plist
	export	pread_pblk
	export	psetpr_pblk
	export	pstat_pblk
	export	ptypes
	export	punload_pblk
	export	pwrite_pblk
	export	quit
	export	rtpbut
	export	rtpstat
	export	tryagain
	export	typeptr
	export	zlist
	export	zonelist_pblk




;;	imported addresses.


	import	acr
	import	myzonename
	import	namesbuffer
	import	netobj
	import	openblock
	import	openblock2
	import	readbuff
	import	username
	import	zonebuffer

	
		
atalkF	dc.w	1			!= 0 if appletalk is active, defaults to active


;	error strings.

	string	asis
	
emess7	dc.b	emess7L
	dc.b	'There is not enough memory'
	dc.b	$0d
	dc.b	'to continue.'
emess7L	equ	*-emess7-1


;	error messages used by the rename and emulator routines.

emess10	dc.b	emess10L
	dc.b	'The selected printer'
	dc.b	$0d
	dc.b	'is not responding.'
	dc.b	$0d
	dc.b	'Please try again.'
emess10L  equ	*-emess10-1


emess11	dc.b	emess11L
	dc.b	'A network error has'
	dc.b	$0d
	dc.b	'occurred.  Please try'
	dc.b	$0d
	dc.b	'again.'
emess11L  equ	*-emess11-1


emess13	dc.b	emess13L
	dc.b	'The selected printer'
	dc.b	$0d
	dc.b	'could not be found.'
emess13L  equ	*-emess13-1


NBPbusyMsg
	dc.b @end-@start
@start
	dc.b 'A list of printers cannot', $0D
	dc.b 'be displayed because a', $0D
	dc.b 'network search is already', $0D
	dc.b 'in progress on this computer.'
@end

	string	pascal

appletalk  dc.b	'APPLETALK'

asterisk  dc.b	'*'

oktext	dc.b	'OK'

quit	dc.b	'Quit'			used in disk error alerts

rtptitle  dc.b	'Rename PrinterÉ'	title of rtp button

tryagain  dc.b	'Try Again'		used in disk error alerts


ptypes	
laser	dc.b	'LaserWriter'
im	dc.b	'ImageWriter'
imlq	dc.b	'LQ'

typeptr  dc.w	laser,im,imlq


	string	asis


rtpstat  dc.b	rtpstatL
	dc.b	'    Renaming the printer...'
rtpstatL  equ	*-rtpstat-1


zonetext  dc.b	'AppleTalk Zones:',0
zonetextL  equ	*-zonetext-1



;	appletalk parameter blocks.


;	parameter block to get appletalk info.

GinfoParams  dc.b  synchronous	type
	dc.b	GetInfoCmd	command
	dc.w	0		result
	dc.l	0		completion routine
	dc.w	0		ThisNet
	dc.b	0		Abridge
	dc.b	0		HardWareID
	dc.w	0		Rom version
	dc.b	0		node number
	
	
;	parameter block to find printers.	

gmyp_pblk  dc.b	asynchronous		mode
	dc.b	NBPLookup		command
	dc.w	busy			result
	dc.l	acr			completion routine
	dc.l	netobj			ptr to name of what we want to find
	dc.b	1			retry period in 1/4 secs	
	dc.b	1			# of times to retry
	dc.w	0			somehting internal
	dc.w	pblocksize		receive buffer size
	dc.l	openblock2		store responses here
	dc.b	maxsrvrs		maximum # of responses allowed
	dc.b	0			actual number of responces received


;	parameter block to get my zone.

gmyz_pblk  dc.b	asynchronous		mode
	dc.b	GetMyZone		command
	dc.w	busy			result
	dc.l	0			no completion routine
	dc.l	myzonename		bufptr
	dc.b	2			retry period
	dc.b	8			# of retrys
	dc.w	2			reserved


;	parameter block to kill the current name lookup.

kill_pblk  dc.b  synchronous		mode
	dc.b	KillNBP			kill name binding protocol
	dc.w	0			result code
	dc.l	gmyp_pblk		starting parameter block
		
		
	
;	parameter block to get the zone list.
	
zonelist_pblk  dc.b  synchronous
	dc.b	GetZoneList
	dc.w	busy
	dc.l	0			iocomp
	dc.w	MaxZones*(NameLen+4)   	buflen
	dc.l	0			bufptr (filled in dynamically)
	dc.b	0			brnode
	dc.w	1			strtindex
	dc.b	1			retryinterval
	dc.b    2			retrycount
	dc.w    0			# of zones??
    	dc.w	0			reserved	

	

;	pap parameter blocks.


punload_pblk  dc.b	synchronous
	dc.b	$27			pap unload command
	dc.w	0			result
	dc.l	0			completion ptr
	
	
popen_pblk  dc.b	asynchronous
	dc.b	Popen			command
	dc.w	0			result
	dc.l	0			iocomp
	dc.b	0			refnum
	dc.l	0			ptr to name
	dc.b	1			flowq
	dc.l	readbuff		statbuf

	
psetpr_pblk  dc.b	synchronous
	dc.b	PMSetPrinterCmd	  	command
	dc.w	0			result
	dc.l	0			iocomp
	dc.l	atinitrec+34		ptr to printer tuple
	dc.b	0			flags
	dc.w	2			flush interval
	dc.w	30*4			timeout interval
	dc.w	20			# of buffers

	
pstat_pblk  dc.b	asynchronous	
	dc.b	Pstatus			command
	dc.w	0			result
	dc.l	0			iocomp
	dc.l	0			ptr to entity
	dc.l	readbuff		stat buffer
	

pread_pblk  dc.b	asynchronous
	dc.b	Pread			command
	dc.w	0			result
	dc.l	0			iocomp
	dc.b	0			refnum
	dc.w	0			buflen
	dc.l	readbuff		bufptr
	dc.b	0			eofbyte
	dc.w	0			reserved
	
	
pwrite_pblk  dc.b	asynchronous
	dc.w	PWrite			command
	dc.w	0			result
	dc.l	0			iocomp
	dc.b	0			refnum
	dc.w	0			buflen
	dc.l	0			bufptr
	dc.b	0			eofbyte
	
	
;	ctllist contains a list of controls whose handles we don't need very often.

ctllist dc.l	choosepr
	dc.l	ztext
	dc.l	0


choosepr  dc.w	9			PCount
	dc.l	1			control ID
	dc.w	5,leftedge,17,rightedge  rectangle
	dc.l	$87000000		procRef
	dc.w	$0040			flag
	dc.w	$1084			moreflags (added $0080 popDownTriangle 25-Aug-92 DAL)
	dc.l	0			refcon
	dc.w	64			titleWidth
	dc.l	chooseprmenu		menuref
	dc.w	0			initialvalue
	
chooseprmenu
	dc.b 	'>>Printer:\H'
	dc.w 	1
	dc.b 	$0D
	dc.b 	'==LaserWriter\H'
	dc.w 	1
	dc.b 	$0D
	dc.b 	'==ImageWriter\H'
	dc.w 	2
	dc.b	$0d
	dc.b 	'==ImageWriter LQ\H'
	dc.w	3
	dc.b	$0d
	dc.b	'.'


about	dc.w	8			Pcount
	dc.l	10			ID
	dc.w	38,5,138,280
	dc.l	statTextControl
	dc.w	0
	dc.w	fCtlProcRefNotPtr
	dc.l	0
	dc.l	atext
	dc.w	AtextL
atext	dc.b	'The Namer Control Panel lets you rename '
	dc.b	'any AppleTalk printer.  Select the '
	dc.b	'type of printer with the pop-up menu.  '
	dc.b	'Once you have chosen a printer, click '
	dc.b	'on the "Rename PrinterÉ" button.'	
atextL	equ	*-atext


;atalkerr  dc.w	8		PCount
	;dc.l	11		id
	;dc.w	8,leftedge,38,Rightedge+20
	;dc.l	statTextControl
	;dc.w	0
	;dc.w	fCtlProcRefNotPtr
	;dc.l	0
	;dc.l	atalkerrm	ptr to text
	;dc.w	atalkerrmL	length
	
	
atalkerrm
	dc.b atalkerrmL-1
	dc.b	'AppleTalk must be'
	dc.b	13
	dc.b	'installed and enabled to'
	dc.b	13
	dc.b	'run this Control Panel.'
	dc.b	13
	;dc.b	' '
atalkerrmL  equ	*-atalkerrm
	

plist	dc.w	15		PCount
	dc.l	2		ID
	dc.w	20		rectangle
	dc.w	LeftEdge
	dc.w	62
	dc.w	Rightedge
	dc.l	listControl	ctrldefproc
	dc.w	$80		ctlFlag
	dc.w	fCtlTarget+fCtlProcRefNotPtr+fCtlCanBeTarget+fCtlWantEvents	moreFlags
	dc.l	0		ref con
	dc.w	0		ctlListSize
	dc.w	MaxSrvrView	ctlListView
	dc.w	selectOnlyOne+InsideScrollBar
	dc.w	1		ctlListstart
	dc.l	0		ctlListDraw
	dc.w	10		ctlListMemHeight
	dc.w	memrec.sizeof	ctlListMemSize
	dc.l	namesbuffer	ctlListRef
	dc.l	0		ctlColorRef

	
zlist	dc.w	15		PCount
	dc.l	3		ID
	dc.w	100-3		rectangle
	dc.w	LeftEdge
	dc.w	142-3
	dc.w	RightEdge
	dc.l	listControl	ctrldefproc
	dc.w	$80		ctlflag
	dc.w	fctlProcRefNotPtr+fCtlCanBeTarget+fCtlWantEvents	moreFlags
	dc.l	0		ref con
	dc.w	0		ctlListSize
	dc.w	MaxZoneView	ctlListView
	dc.w	selectOnlyOne+InsideScrollBar
	dc.w	1		ctlListstart
	dc.l	0		ctlListDraw
	dc.w	10		ctlListMemHeight
	dc.w	memrec.sizeof	ctlListMemSize
	dc.l	zonebuffer	ctlListRef
	dc.l	0		ctlColorRef
	
		
cprect	dc.w	0,0,200,300	control panel rectangle
	
ztext	dc.w	8		Pcount
	dc.l	9		ID number
	dc.w	94-4-3
	dc.w	leftedge
	dc.w	103-4-3
	dc.w	rightedge
	dc.l	statTextcontrol
	dc.w	0		flag, c string
	dc.w	fctlProcRefNotPtr
	dc.l	0		ref con
	dc.l	zonetext	text ref
	dc.w	zonetextL	length of string


;	buttons.
	
rtpbut	dc.w	9		Pcount
	dc.l	5		ID number
	dc.w	69
	dc.w	leftedge+5+40
	dc.w	69+13
	dc.w	rightedge-5-40
	dc.l	simpleButtoncontrol
	dc.w	simpRound+ctlInvis
	dc.w	fCtlWantEvents+fctlProcRefNotPtr
	dc.l	0
	dc.l	rtptitle
	dc.l	0		;color table
	dc.b	'R','r'		;key equivalents R and r with
	dc.w	$0100,$0100	;the Command key

	EndP

	end
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/NamerCDEV/netprinter.h b/IIGS.601.SRC/A.U.G/CtlPanel/NamerCDEV/netprinter.h
new file mode 100644
index 0000000..b9f631c
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/NamerCDEV/netprinter.h
@@ -0,0 +1 @@
+

atinitrec  	record  0
name		ds.b	33
pflags		ds.b	1
tuple		ds.b	99
sizeof					;size of this record
		endr



printersetup	record  0
printer		ds.b	33
printer2  	ds.b	33
port		ds.b	33
name		ds.b	16
netname		ds.b	33
zone		ds.b	33
Appletlk  	ds.b	2
sizeof					;size of this record
		endr
		
		
MaxVols		equ	16		 maximum number of volumes per server? 
MaxVolLength	equ	27+1		 volume name can be 27 characters long + 1 length char for pascal strings 

MaxSrvrs	equ	40		 maximum number of file server names we can hold 
MaxSrvrView	equ	4		 how many names in our list can be seen at once 
MaxZones	equ	255		 max number of zones we can store 
MaxZoneView	equ	4		 max number of zones that can be displayed at once 
MaxZoneLength	equ	33		

namelen		equ	32		 entity name length for NBP Lookups 
unamelen	equ	31		length of user name
MaxOnline	equ	15
BlockSize	equ	MaxZones*(namelen+1)
pblocksize	equ	MaxSrvrs*(namelen+1)


LeftEdge	equ	10
RightEdge	equ	190+80		;25-Aug-92 DAL

FSListID	equ	1
ZoneListID	equ	2
UserNameBoxID	equ	1

AppleTalkFile	equ	$e2
Binary		equ	$06
ASCIIText	equ	$04
ATalkOn		equ	1
BothDrivers	equ	0
NetworkPrinter	equ	$80
LocalMask  	equ	$bf
EmulatorBit	equ	$20
AShareFST	equ	$0d

read		equ	$2012		gs/os call number to read a file	
write		equ	$2013		gs/os call number to write a file

;	asp defines.

NBPLookup	equ	$10
KillNBP		equ	$46
PMSetPrinterCmd	equ	$28
FIAccess	equ	$32
FPGetUserInfoCmd equ	$25
FPGetSrvrParmsCmd equ	$10
FPMapIDCmd	equ	$15
SP_Cmd		equ	$20
SP_Stat		equ	$1d
GetMyZone	equ	$1A
GetZoneList	equ	$1B
GetInfoCmd	equ	$02
GetSrvrInfoCmd	equ	$0f
GetSrvrParmsCmd	equ	$10

asynchronous	equ	$80
synchronous	equ	$00
busy		equ	$ff

TooManyProcesses  equ	$0408

CreatorBit	equ	$40
GroupBit	equ	$20



;	pap defines.


TimerBusy	equ	$01ff
PapBusy		equ	$08ff

InstTimer	equ	$04
PStatus		equ	$22
POpen		equ	$23
PClose		equ	$24
PRead		equ	$25
PWrite		equ	$26
RPMSet		equ	$28

;blocksize	equ	512



MemRec  	record	0
memPtr		ds.b	4	MemRec - Pointer to string, or custom 
memFlag		ds.b	1	MemRec - Bit Flag 
NetNum		ds.b	2	network number 
NodeID		ds.b	1	node id 
ScktNum		ds.b	1	socket number 
Enumerator	ds.b	1	enumerator 
privflag	ds.b	1	
ckboxId		ds.b	2	
sizeof				;size of memrec record	
		endr
		
 
entityrec	record	0
netnum		ds.b	2	
nodeID		ds.b	1		
scktNum		ds.b	1
enumerator	ds.b	1
objname		ds.b	namelen+1	?  verify this all
		endr
		


NBPLType	record	0
mode		ds.b	1	
command		ds.b	1	
result		ds.b	2	
iocomp		ds.b	4	since this doesn't know about 4 byte pointers 
entity		ds.b	4	ptr to	 name of what we want to find 
retryper	ds.b	1	retry period in 1/4 secs 
retrycnt	ds.b	1	number of times to retry 
internal	ds.b	2	
rsbsiz		ds.b	2	size of following buffer 
rsbadr		ds.b	4	responses will be stored here 
maxrsp		ds.b	1	maximum number of responses allowed 
rgotten		ds.b	1	actual number of responses returned 
		endr


KillNBPLtype	record	0
Async		ds.b	1
command		ds.b	1
ResultCode	ds.b	2
ParamPointer	ds.b	4
		endr


GMyZone		record	0
async		ds.b	1
command		ds.b	1
result		ds.b	2
iocomp		ds.b	4
bufptr		ds.b	4
retryinterval	ds.b	1
retrycount	ds.b	1
resrvd		ds.b	2
		endr
		
		
;	parameter block to get a zone list.

gzonelist	record	0
async		ds.b	1
command		ds.b	1
result		ds.b	2
iocomp		ds.b	4
buflen		ds.b	2
bufptr		ds.b	4
brnode		ds.b	1
strtindex	ds.b	2
retryinterval	ds.b	1
retrycount	ds.b	1
numberzones	ds.b	2
resrvd		ds.b	2
		endr


GetInfo		record	0
async		ds.b	1
command		ds.b	1
ResultCode	ds.b	2
CompRtnRet	ds.b	4
ThisNet		ds.b	2
ABridge		ds.b	1
HardwareID	ds.b	1
Romversion	ds.b	2
NodeNumber	ds.b	1
		endr

		
PMSetPrinterType  record	0
async		ds.b	1
command		ds.b	1
Result		ds.b	2
Entity		ds.b	4
flags		ds.b	1
FlushInterval	ds.b	2
TimeoutInterval  ds.b	2
NumOfBuffers	ds.b	2
		endr
		
		
		
		
		

;	pap definitions.


open_printer	record	0
async		ds.b	1
command		ds.b	1
Result		ds.b	2
iocomp		ds.b	4
refnum		ds.b	1
prname		ds.b	4
flowq		ds.b	1
statbuf		ds.b	4
		endr
		
		
write_printer	record	0
async		ds.b	1
command		ds.b	1
Result		ds.b	2
iocomp		ds.b	4
refnum		ds.b	1
buflen		ds.b	2
bufptr		ds.b	4
eofbyte		ds.b	1
		endr
		
		
read_printer	record	0
async		ds.b	1
command		ds.b	1
Result		ds.b	2
iocomp		ds.b	4
refnum		ds.b	1
buflen		ds.b	2
bufptr		ds.b	4
eofbyte		ds.b	1
reserved	ds.b	2		needed for bug in pap
		endr
		
		
status_printer	record	0
async		ds.b	1
command		ds.b	1
Result		ds.b	2
iocomp		ds.b	4
prname		ds.b	4
statbuf		ds.b	4
		endr
		
		
close_printer	record	0
async		ds.b	1
command		ds.b	1
Result		ds.b	2
iocomp		ds.b	4
refnum		ds.b	1
		endr
		
		
timer		record	0
async		ds.b	1
command		ds.b	1
Result		ds.b	2
iocomp		ds.b	4
ticCount	ds.b	2		running tick count
howlong		ds.b	2		how many 1/4th to wait
reserved	ds.b	4
		endr
		
		
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/NamerCDEV/ple.aii b/IIGS.601.SRC/A.U.G/CtlPanel/NamerCDEV/ple.aii
new file mode 100644
index 0000000..1dbe7e8
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/NamerCDEV/ple.aii
@@ -0,0 +1 @@
+;;;	ple - print line with ellipses.
;
;	Michael V. Stein	03/11/90.
;
; 25-Aug-92 DAL:
;   This file is no longer used.  The List Manager now uses
;   DrawStringWidth, so we don't need a custom drawProc.
;
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/NamerCDEV/rename.aii b/IIGS.601.SRC/A.U.G/CtlPanel/NamerCDEV/rename.aii
new file mode 100644
index 0000000..8eb1847
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/NamerCDEV/rename.aii
@@ -0,0 +1 @@
+;;;	rename - rename an AppleTalk printer.
;
;	Michael V. Stein	02/26/90.
;
;	© Copyright Apple Computer, 1990.



;;;	routines included in this source file.
;
;	rtp - rename this printer.
;	cls - check for laserwriter spooler.
;	cnn - check new name.
;	fek - filter escape key.
;	riw - rename imagewriter.
;	rlw - rename LaserWriter.
;	wfp - wait for printer.


	blanks	off
	

;;	equates.




;;	include files.


	include	'::commonmacros.h'
	include	'::dp.h'
	include	'e16.event'
	include	'e16.control'
	include	'e16.dialog'
	include	'm16.control'
	include	'm16.dialog'
	include	'm16.list'
	include	'm16.qdaux'
	include	'm16.quickdraw'
	include	'm16.util2'
	include	'netprinter.h'




;;	main program.



rename	proc



;;	imported addresses.


	import	cmd
	import	cps
	import	ctp
	import	damE
	import	devices
	import	dptr
	import	gdt
	import	ghp
	import	gip
	import	hpe
	import	hzl
	import	knl
	import	lookupF
	import	lszone
	import	mneE
	import	omd
	import	osd
	import	osdE
	import	otp
	import	plisthdl
	import	popen_pblk:open_printer
	import	pread_pblk:read_printer
	import	prec:printersetup
	import	pstat_pblk:status_printer
	import	pwrite_pblk:write_printer
	import	readbuff
	import	rfp
	import	rfpE
	import	rtpstat
	import	screenF
	import	stp
	import	stpE
	import	wtp



;;	exported addresses.


	export	newname
	export	rtp




;;	rtp - rename this printer.
;
;	entry	printer is selected.
;		(screenF) = $8000 if 640 mode.
;
;	exit	if no error, printer is renamed.
;		if error, user is told of the problem in an alert.


rtp	jsr	ghp			get highlighted printer
	dea				offset into list
	jsr	gip			get index into printers
	ldy	#memrec.memptr
	lda	[l4],y
	sta	rtpeptr			lo word of ptr to name in pascal format
	sta	l2
	iny
	iny
	lda	[l4],y
	sta	rtpeptr+2		hi word of ptr to name in pascal format
	sta	l2+2
	
;	adjust dialog for screen resolution.

	lda	#(320-rtpw)/2
	ldx	screenF
	bpl	rtp1			if 320 mode
	lda	#(640-rtpw)/2
rtp1	sta	rtpdlg+2		left x
	clc
	adc	#rtpw
	sta	rtpdlg+6		right x

;	handle dialog.

	lda	#rtpdlg
	ldy	#^rtpdlg
	jsr	omd			open modal dialog
	
	stz	newname			make sure no name
	brl	rtp14			inactivate the rename button
	
rtp2	pha				space for result
	lda	#^fek
;;;	ora	#$8000			set high bit
	ora	#$c000			;also set bit 30 for I-beam (25-Aug-92 DAL)
	pha
	lda	#fek
	pha
	stz	eflag			reset flag	
	_ModalDialog
	ply				get item hit
	bne @gotSomething
	lda	eflag
	bmi	rtp2a			if user hit escape
	bne	rtp2			if just a null event
@gotSomething
	cpy	#rtpcanID
	bne	rtp3			if not cancel button

rtp2a	brl	cmd			close modal dialog and return

rtp3	cpy	#rtpokID
	beq	rtp4			if hit ok
	brl	rtp13			check other dialog items
	
rtp4	jsr	cnn			check new name
	bcc	rtp6			if user selected different name	
	brl	cmd			close modal dialog and return
	
rtp6	lda	#$ffff
	sta	lookupF			flag to not start any more lookups
	jsr	knl			kill name lookup
	
	pushl	l5			ptr to grapfport
	pushw	#1
	_RemoveDItem			remove the ok button

	pushl	l5			ptr to grapfport
	pushw	#2
	_RemoveDItem			remove the cancel button
	
	pushl	l5			ptr to grapfport
	pushw	#rtpm3ID
	_RemoveDItem			remove the cancel button

	pushl	l5			ptr to grapfport
	pushw	#rtpe1ID
	_RemoveDItem			

	pushl	l5			ptr to grapfport
	pushw	#rtptitleID
	_RemoveDItem			
		
	pushl	l5			grafport
	pushl	#rtpstatbut		button
	_GetNewDItem

	pushl	l5			grafport
	pushl	#dlg2item		button
	_GetNewDItem

	pushl	l5
	_DrawDialog
	
	_WaitCursor
	lda	#status
	sta	pstat_pblk.statbuf
	lda	#^status
	sta	pstat_pblk.statbuf+2
	stz	status+4		length of responce
	jsr	stp			status the printer
	tax
	bne	rtp10			if error stating the printer
	
	jsr	otp			open the printer
	jsr	wfp			wait for printer
	bcs	rtp11			if user gave up
	tay
	bne	rtp10			if error occurred
		
	pushl	l5			ptr to grapfport
	pushw	#2
	_RemoveDItem			remove the cancel button
	
	pushl	l5
	pushw	#3
	pushl	#rtpstat
	_SetIText
		
	lda	devices
	beq	rtp8			if laserwriter is selected

	jsr	riw			rename imagewriter
	bra	rtp8b

rtp8	jsr	cls			check for laserwriter spooler
	cpx	#1+1
	bcs	rtp10			if error occured
	txa
	beq	rtp8a			if normal printer	
	brl	rtp20			is a spooler
	
rtp8a	jsr	rlw			rename laser writer

rtp8b	bcs	rtp10			if error occurred
	lda	#100			enough to wait for a while
	sta	w3
	
;	make sure it eventually gives up.

rtp9	jsr	stpE			status the printer
	dec	w3
	beq	rtp11			if time to give up
	tax
	beq	rtp9			if no error
	cmp	#$805
	beq	rtp11			if the correct error
	cmp	#$808
	beq	rtp11			if the correct error

rtp10	pha
	jsr	cmd			close modal dialog
	pla
	jsr	hpe			handle pap error
	jsr	ctp			close the printer
	bra	rtp12		

rtp11	jsr	ctp			close the printer connection
	jsr	cmd			close modal dialog

rtp12	_InitCursor
	stz	lookupF
	stz	lszone			force recalc of printers
	stz	lszone+2
	brl	hzl			handle zone list and return
	
rtp13	cpy	#rtpe1ID		
	bne	rtp16			if not edit box, must be cancel

rtp14	pushl	l5
	pushw	#rtpe1ID
	pushl	#newname
	_GetIText	
	ldx	#inactiveHilite
	lda	newname
	and	#$ff
	beq	rtp15			if to inactivate the rename button
	cmp	#1
	ldx	#nohilite		activate the rename button	
rtp15	phx				state of button

	pha
	pha				space for result
	
	pushl	l5			ptr to grafport
	pushw	#rtpokID
	_GetControlDItem
	_HiliteControl			hilite the rename button appropriately
	brl	rtp2
		
rtp16	rts


;	handle case of trying to rename a spooler.

rtp20	jsr	cmd			close modal dialog
	jsr	ctp			close the printer connection
	lda	#rtpspool
	ldy	#^rtpspool
	jsr	damE			display stop alert message
	bra	rtp12			finish things up
	
	
rtpspool  dc.b	rtpspoolL
	dc.b	'That printer is a spooler'
	dc.b	13
	dc.b	'and cannot be renamed.'
rtpspoolL  equ	*-rtpspool-1


;	data used here.

	string	pascal
	
rtpl	equ	170
rtpr	equ	470
rtpw	equ	rtpr-rtpl
rtpmid	equ	rtpw/2

rtpt	equ	55
rtpb	equ	130
rtph	equ	rtpb-rtpt

rtpdlg	dc.w	rtpt,rtpl,rtpb,rtpr

	dc.w	$FFFF			visible
	dc.l	0			refcon
	
	dc.l	rtptit
	dc.l	rtpm3
	dc.l	rtpe1
	dc.l	rtpok,rtpcan
	dc.l	0


rtptitleID  equ	3
rtptit	dc.w	rtptitleID		id
	dc.w	3,rtpmid-55,3+9,rtpmid+60
	dc.w	statText+ItemDisable
	dc.l	rtptittxt,0,0
rtptittxt  dc.b	'Rename Printer'

rtpm1ID	equ	rtptitleID+1

rtpm2ID	equ	rtpm1ID+1
	

rtpm3ID	equ	rtpm2ID+1
rtpm3	dc.w	rtpm3ID
	dc.w	20,5,29,100
	dc.w	statText+ItemDisable
	dc.l	rtpm3txt
	dc.l	0,0
rtpm3txt  dc.b	'New Name:'

	
rtpe1ID	equ	rtpm3ID+1


rtpe1	dc.w	rtpe1ID
	dc.w	30,5,30+13,rtpw-5  	5 pixels indented on either end
	dc.w	EditLine
rtpeptr	dc.l	0
	dc.w	namelen-1		max chars for printer name
	dc.w	0
	dc.l	0

rtpokID  equ	1
rtpok	dc.w	rtpokID		
	dc.w	rtph-17,165,rtph-4,165+100
	dc.w	ButtonItem
	dc.l	rtpoktxt,0,0
rtpoktxt  dc.b	'Rename'


rtpcanID equ	rtpokID+1
rtpcan	dc.w	rtpcanID		cancel button
	dc.w	rtph-17,35,rtph-4,35+100
	dc.w	ButtonItem
	dc.l	rtpcantxt,0,0
rtpcantxt  dc.b	'Cancel'


rtpstatbut  dc.w  2
	dc.w	50,100,63,100+84
	dc.w	ButtonItem
	dc.l	rtpcantxt,0,0

dlg2item  dc.w	3			item id
	dc.w	20,46,20+13,290		rectangle
	dc.w	statText+ItemDisable	type
	dc.l	osdmess			descr
	dc.w	0			value
	dc.w	0			flag
	dc.l	0			color table
	
osdmess	dc.b	'   Looking for the printer...'




;;	cls - check for laserwriter spooler.
;
;	entry	(pwrite_pblk..)  = parameter block for writing to printer.
;		(spquery..) = query to have spooler identify itself.
;
;	exit	(x) = 0 if real printer.
;		(x) = 1 if spooler.


cls	lda	#spqueryL
	sta	pwrite_pblk.buflen
	lda	#spquery
	sta	pwrite_pblk.bufptr
	lda	#^spquery
	sta	pwrite_pblk.bufptr+2
	shortm
	lda	#1
	sta	pwrite_pblk.eofbyte	this is all we want to send
	longm	
	jsr	rfpE			read from printer
	jsr	wtp			write to printer
	tax
	bne	cls2			if some sort of error occurred
	jsr	rfp			read from printer
	
cls1	lda	pread_pblk.result
	cmp	#PapBusy
	beq	cls1			if call hasn't completed
	
	tax
	bne	cls2			if error of some sort
			
	ldx	#0			assume it is a real printer
	lda	readbuff
	cmp	#'af'			compare against first two lettters of 'false'
	beq	cls2			if not a spooler
	inx				flag as spooler
cls2	rts

	
	string 	asis	
	
spquery	dc.b	'%%?BeginQuery:  rUaSpooler'
	dc.b	13
	dc.b	'false = flush'
	dc.b	13
	dc.b	'%%?EndQuery true'
	dc.b	13
spqueryL  equ	*-spquery



;;	cnn - check new name.
;
;	entry	(newname..) = pascal string containing new name of printer.
;		[l2] = ptr to original name
;
;	exit	(c) set if new name is equivalent to old name.


cnn	shortmx
	
cnn2	lda	[l2]			get length of original name
	cmp	newname			compare against the new name length
	bne	cnn4			if not equal lengths
	
	ldy	#1	
cnn3	lda	[l2],y
	cmp	newname,y
	bne	cnn4			if not equal
	cpy	newname
	bcs	cnn5			if done checking and strings are equal
	iny
	bra	cnn3			check next character
	
cnn4	clc				flag that strings are different
cnn5	longmx
	rts			
	

	
;;	fek - filter escape key.
;
;	entry	from dialog manager after it gets an event.
;
;	exit	(eflag) = 1 if null event.
;		(eflag) = $ffff if escape is hit.
;		else (eflag) is unchanged.


;	stack frame

result	equ	16
dlgptr	equ	12
eventptr  equ	8
itemptr	equ	4


fek_waiting
	lda #$ffff
	bra common

fek	lda #0
common	sta >handle_nulls
	tsc
	phd				save direct page
	pha
	pld				set new direct page
	
	ldx	#0			assume we don't want to handle
	lda	[eventptr]		get the type of event
	bne	fek1			if not a null event
	
	lda	#1
	sta	>eflag			flag a null event
;;;	dex				set x to $ffff - we want to handle it
	lda	>handle_nulls
	tax
	bra	fek4			finish things up
	
fek1	cmp	#keyDownEvt
	beq	fek2			if key down
	cmp	#autoKeyEvt
	bne	fek4			if not auto key event
	
fek2	ldy	#2
	lda	[eventptr],y		get message
	and	#$ff
	cmp	#$1b
	bne	fek4			if user didn't type escape
	
;	user wants out.

fek3	pha				space for result
	pha
	
	lda	>dptr+2
	pha				hi ptr to grafport
	lda	>dptr
	pha				lo ptr to grafport
	
	pushw	#2			id of cancel button
	_GetControlDItem

	pla				low word of handle
	plx				hi word of handle
	
	pushw #0
	phx				hi word of control pointer
	pha				lo word of control pointer

	pushw #2
	phx				hi word of control pointer
	pha				lo word of control pointer
	_HiliteControl			highlight the cancel button
	_HiliteControl			make it look normal

	ldx	#$ffff	
	txa
	sta	>eflag			flag that user wants to escape

;	clear garbage off of stack.

fek4	pld				restore direct page

	lda	1,s
	tay
	lda	1+2,s
	sta	1+3+4+4+3,s		store high word
	tya
	sta	1+3+4+4+1,s		store low word
	
	txa
	sta	1+3+4+4+4,s		store result
	
	tsc
	clc
	adc	#3+4+4+4-3
	tcs	
	rtl	

handle_nulls dc.w 0	;25-Aug-92 DAL

;;	riw - rename imagewriter.
;
;	entry	(newname..) = pascal string containing new name of printer.
;
;	exit	imagewriter is renamed.
;		(c) set if error occurred.


riw	lda	#('b'<<8)+$1b		first two chars are escape followed by 'b'
	sta	riwa			

;	copy new name to command string.

	lda	#riwa+2
	sta	l1
	lda	#^riwa+2
	sta	l1+2
	lda	#newname
	sta	l2
	lda	#^newname
	sta	l2+2
	jsr	cps			copy pascal string

;	copy new type to command string.

	lda	[l2]
	pha				save length for now
	jsr	mneE			move to next element
	jsr	gdt			get device type [l2]
	jsr	cps			copy pascal string
	jsr	mneE			move to next element
	lda	#0
	sta	[l1]			add in trailing zero byte
	
;	send the command to the imagewriter.

	jsr	rfpE			read from printer
	lda	#riwa
	sta	pwrite_pblk.bufptr	lo ptr to buffer to send
	lda	#^riwa
	sta	pwrite_pblk.bufptr+2	hi ptr to buffer to send		
	pla				retrieve length of new name
	shortm
	clc
	adc	[l2]			length of typename
	adc	#2+1+1+1		2 for command, 2 for length bytes and 1 for 0 byte
	sta	pwrite_pblk.buflen	length of buffer to send
	stz	pwrite_pblk.buflen+1
	lda	#1
	sta	pwrite_pblk.eofbyte	not done yet
	longm	
	jsr	wtp			write to printer
	tax
	bne	riw1			if error occurred
	
	jsr	ctp			close the printer
	clc				flag no error
	rts
	
riw1	pha
	jsr	ctp			close the printer
	pla
	sec				flag error occurred
	rts
	
	
;	data used here.

riwa	ds.b	100			hold command for printer

riwb	ds.b	2			



;;	rlw - rename LaserWriter.
;
;	entry	(newname..) = pascal string containing new name of printer.
;
;	exit	LaserWriter is renamed.
;		(c) set if error occurred.


rlw	lda	#rlwa
	sta	pwrite_pblk.bufptr	lo ptr to buffer to send
	lda	#^rlwa
	sta	pwrite_pblk.bufptr+2	hi ptr to buffer to send
	lda	#rlwaL
	sta	pwrite_pblk.buflen	length of buffer to send
	shortm
	stz	pwrite_pblk.eofbyte	not done yet
	longm
	jsr	rfpE			read from printer
	
rlw0	jsr	wtp			write to the printer	
	tax
	bne	rlw4			if error occurred

	shortmx	
	ldx	newname			length of new name
	txy				save for later
rlw1	lda	newname,x		get char from name
	sta	rlwc-1,x		write new name
	dex
	bne	rlw1			if more to copy
	
rlw2	lda	rlwd,x			get last part of command
	sta	rlwc,y			copy it down
	iny
	inx
	cpx	#rlwdl
	bcc	rlw2			if more to copy
	
	longmx	
	lda	#rlwb
	sta	pwrite_pblk.bufptr	lo ptr to buffer to send
	lda	#^rlwb
	sta	pwrite_pblk.bufptr+2	hi ptr to buffer to send
	lda	newname
	and	#$ff
	clc
	adc	#rlwbL+20		rlwbL+rlwdL	
	sta	pwrite_pblk.buflen	length of buffer to send
	shortm
	lda	#1
	sta	pwrite_pblk.eofbyte	last bit of data
	longm
	jsr	rfp			read from printer	
	jsr	wtp			write to printer	
	tax
	bne	rlw4
	
rlw3	jsr	ctp			close the printer
	clc				flag no error
	rts

rlw4	pha
	jsr	ctp			close the printer
	pla
	sec				flag the error
	rts		
	

;	data used here.

	string	asis

rlwa	dc.b	'serverdict begin 0 exitserver'
	dc.b	13
rlwaL	equ	*-rlwa	


rlwb	dc.b	'statusdict begin('
rlwbL	equ	*-rlwb

rlwc	ds.b	35+20			holds new name of printer and rest of command

rlwd	dc.b	')setprintername end'
	dc.b	13
rlwdL	equ	*-rlwd	



;;	wfp - wait for printer.
;
;	entry	modal dialog is created.
;		open call has been made to printer.
;
;	exit	either the connection will be established or
;		the user will cancel out.  
;		(c) set if user cancelled out.


wfp	pha				space for result
	lda	#^fek_waiting
	ora	#$8000			set high bit
	pha
	lda	#fek_waiting
	pha

	stz	eflag			reset flag
	_ModalDialog
	ply				get item hit
	lda	eflag			get flag from filter proc	
	bmi	wfp2			if user hit escape
	bne	wfp1			if null event
	
	cpy	#2			
	beq	wfp2			if user clicked in escape button

wfp1	lda	popen_pblk.result	get status
	cmp	#papbusy
	beq	wfp			if printer is still busy

	clc				flag that printer connection is now open
	rts

wfp2	jsr	ctp			close the printer
	sec
	rts				



;	global data.


eflag	dc.w	0			escape flag		

newname	ds.b	40			hold the new name for the printer

status	ds.b	256			hold status buffer  


	endp

	end
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/NamerCDEV/sul.aii b/IIGS.601.SRC/A.U.G/CtlPanel/NamerCDEV/sul.aii
new file mode 100644
index 0000000..00c02de
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/NamerCDEV/sul.aii
@@ -0,0 +1 @@
+;;;	sul - sort uppercase list.
;
;	Michael V. Stein	02/21/90.
;
;	© Apple, 1990.


	blanks	off
	

;;	equates.




;;	imported addresses.




;;	include files.


	include	'::commonmacros.h'
	include	'm16.list'
	include	'm16.util2'
	
		

;;	main program.


	

main	proc

	export	sul

sul	Pushl	#cue		compare uppercase elements
	phy			hi word to list handle
	pha			lo word to list handle
	_SortList2
	rts


;;	cue - compare uppercase elements.
;
;	entry	from list manager.
;
;	exit	(c) set if first entry > second entry



memberA	equ	4+2
memberB	equ	memberA+4


cue	phd
	tsc
	tcd			use stack as a direct page
		
	ldy	#$02
	lda	[memberA]	dereference first handle
	tax
	lda	[memberA],y
	sta	memberA+2
	stx	memberA		
	
	lda	[memberB]	dereference second handle
	tax
	lda	[memberB],y
	sta	memberB+2
	stx	memberB


	shortmx
	
	lda	[memberA]		
	cmp	[memberB]	compare it to memberB	
	bcc	cue1		if length(memberB) >= length(memberA)
	lda	[memberB]	
cue1	sta	min		shortest length of either string
	ldy	#$00
	
cue2	iny
	lda	[memberB],y
	jsr	cal		capitalize a letter
	sta	temp
	lda	[memberA],y
	jsr	cal		capitalize a letter
	cmp	temp
	bne	cue5		we have a difference
	cpy	min		chars are the same so check if more bytes to check
	bcc	cue2		no more bytes to check
	
cue4	lda	[memberA]	the shortest string is less than the longer
	cmp	[memberB]	set carry if a >= b
	
cue5	longmx
	
	lda	0+2		carry set if a >= b
	sta	8+2
	lda	2+2
	sta	10+2
	pld
	
	
	pla
	pla
	pla
	pla

	rtl


min	ds.b	1
temp	ds.b	1



;;	cal - capitalize a letter.
;
;	entry	(a) = letter to convert
;
;	exit	(a) = uppercase version of letter.


	longa	off
	longi	off
	
cal	cmp	#'a'
	bcc	cal1		if not lowercase
	cmp	#'z'+1
	bcs	cal1		if not lowercase
	sbc	#$20-1		(c) clear
	
cal1	rts	



	endp

	end
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/NetPrinterCDEV/MakeFile b/IIGS.601.SRC/A.U.G/CtlPanel/NetPrinterCDEV/MakeFile
new file mode 100644
index 0000000..5979b08
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/NetPrinterCDEV/MakeFile
@@ -0,0 +1 @@
+

CDEV = NetPrinter


{CDEV}			Ä				{CDEV}.Load 	¶
									{CDEV}.r
	reziigs {CDEV}.r -o {CDEV} -t "C7  " -c "pdos"
	if {dup}				# test whether we should duplicateiigs
		duplicateiigs -m -y {CDEV} {CDEV}
	end

{CDEV}.Load		Ä	¶
			netprinter.aii.obj  ¶
			emulator.aii.obj ¶
			netdata.aii.obj  ¶
			sul.aii.obj	
		linkiigs -x -lseg:$1000 netpr ¶
			netprinter.aii.obj  ¶
			emulator.aii.obj ¶
			netdata.aii.obj  ¶
			sul.aii.obj ¶
			 -o {CDEV}.Load
			 


{CDEV}.aii.obj 		Ä 		{CDEV}.aii	Makefile			¶
							::cdev.h  ::commonmacros.h ::dp.h
	asmiigs {CDEV}.aii 



emulator.aii.obj 	Ä 		emulator.aii	Makefile			¶
							::cdev.h  ::commonmacros.h ::dp.h
	asmiigs emulator.aii 

netdata.aii.obj 	Ä 		netdata.aii	Makefile			¶
							::cdev.h  ::commonmacros.h ::dp.h
	asmiigs netdata.aii 


sul.aii.obj 		Ä 		sul.aii	Makefile			¶
							::cdev.h  ::commonmacros.h ::dp.h
	asmiigs sul.aii 


\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/NetPrinterCDEV/NetPrinter b/IIGS.601.SRC/A.U.G/CtlPanel/NetPrinterCDEV/NetPrinter
new file mode 100644
index 0000000..e69de29
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/NetPrinterCDEV/emulator.aii b/IIGS.601.SRC/A.U.G/CtlPanel/NetPrinterCDEV/emulator.aii
new file mode 100644
index 0000000..d8d44f9
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/NetPrinterCDEV/emulator.aii
@@ -0,0 +1 @@
+;;;	emulator - download the Imagewriter emulator to an AppleTalk printer.
;
;	Michael V. Stein	03/20/90.
;
;	© Apple, 1990.
;
; 10-Jan-92 MSD	There is a problem with downloading the IWEM to the Personal
;		Laserwriter NT: after we send a packet, we read in the next block
;		and the Laserwriter is sending its PAP SendData packet.  If we had
;		interrupts off while doing the read (reading from a floppy, for
;		example), we'd miss the SendData and have to wait for the printer
;		to retry and send it again approximately 15 seconds later.  This
;		means we average 512 bytes every 15 seconds -- very slow!
;
;		The solution is to try to pre-load the IWEM file into memory before
;		downloading it.  We'll try to get a handle large enough for the whole
;		file.  If that fails, we resort to the old method of reading 512 bytes
;		at a time.
;
;		Note: So the version checking code wouldn't need to change, the first
;		block still gets read into the internal buffer.  If we get the handle,
;		then we set the mark back to the start of the file and read the whole
;		thing in.
;
;		Procs affected:	dte (Download The Emulator)
;

	blanks	off

;;	equates.

;;	include files.

	include	'::commonmacros.h'
	include	'::dp.h'
	include	'e16.control'
	include	'e16.dialog'
	include	'e16.gsos'
	include	'm16.memory'
	include	'm16.control'
	include	'm16.dialog'
	include	'm16.gsos'
	include	'm16.list'
	include	'm16.qdaux'
	include	'm16.quickdraw'
	include	'm16.util2'
	include	'netprinter.h'


;;	main program.


emulator	proc

;;	imported addresses.

	import	cfemes
	import	close_pblk
	import	cmd
	import	ctp
	import	damE
	import	dtemes
	import	emess4
	import	emess12
	import	gip
	import	hfo
	import	hpe
	import	hzl
	import	iwempath
	import	lookupF
	import	lszone
	import	omd
	import	open_pblk
	import	osd
	import	otp
	import	pclose_pblk:close_printer
	import	plisthdl
	import	popen_pblk:open_printer
	import	pread_pblk:read_printer
	import	pstat_pblk:status_printer
	import	pwrite_pblk:write_printer
	import	readbuff
	import	rfp
	import	rfpE
	import	rtpstat
	import	rw_pblk
	import	screenF
	import	stp
	import	stpE
	import	wtp

; used by dte:
	import	geteof
	import	rewind
	import	iwemHandle

;;	exported addresses

	export	cfe


;;	cfe - check for emulator.
;
;	entry	controls have been set up and a printer selected.
;		(cfemes..) = status dialog to display.
;		(emess12..) = message to give when emulator is present.
;		(emquery..) = postscript string to query for emulator presence.
;		emqueryL = length of query message.
;		PapBusy = status meaning that the pap call hasn't finished.
;		(pread_pblk..) = parameter block for reading from a printer.
;		(pwrite_pblk..) = parameter block for writing to a printer.
;		(readbuff..512) = buffer to use when reading from a printer.
;
;	exit	The routine checks for the presence of the emulator.  If the emulator
;		is already present, it puts up an alert and exits.  If the emulator isn't
;		there it is downloaded to the printer.  In any case, the routine exits to 
;		hzl to rebuild the zone list.

cfe
	jsr oef			open emulator file now
	txa			test error
	beq @open_ok

;	a file error has occurred when opening the iwem file and trying to read the first block.  
;	The routine hfo makes sure the file is closed so we remove the dialog 
;	and exit through hzl.

	;jsr	cmd		close modal dialog 
	brl cfe7		init cursor & return

@open_ok	; At this point the 1st 512 bytes of the emulator image
		; is in the buffer. We now search for a version string
		; in the buffer.

	;brk $8B

	ldy #$0000		index into buffer
@search_string
	ldx #$0000		index to our copy
@str_loop
	lda em_ver,x		get 2 bytes of our string
	cmp writebuff,y		check in buffer
	bne @next_buf		no match, move on in buffer
@maybe
	inx
	inx
	cpx #$0008		whole string?
	beq @match		we're done

	iny
	iny			move ahead in buffer
	bra @str_loop		continue compare
@next_buf
	phx
	plx			test x
	bne @no_ybump		only bump Y if X is 0

	iny			move ahead in buffer
@no_ybump
	cpy #512-8+1		still room for our string?
	bcc @search_string	start string loop again
@not_found
	bra try_dnload		no version, use default
@match
	iny
	iny			point to version numeral text in buf
	lda writebuff,y
	sta em_ver+8
	iny
	lda writebuff,y		copy 3 characters
	sta em_ver+9

try_dnload			;issue query and see if printer wants our emulator
	lda	#cfemes
	ldy	#^cfemes
	jsr	osd		open status dialog
	_WaitCursor
	
	jsr	stp		status the printer
	tax
	bne	cfe4		if some sort of error occured
	
	jsr	otp		open the printer
	tax
	bne	cfe4		if some sort of error occurred
	
	lda	#emqueryL
	sta	pwrite_pblk.buflen
	lda	#emquery
	sta	pwrite_pblk.bufptr
	lda	#^emquery
	sta	pwrite_pblk.bufptr+2
	
	shortm
	lda	#1
	sta	pwrite_pblk.eofbyte
	longm
	jsr	rfpE		read from printer
	jsr	wtp		write to printer
	tax
	bne	cfe4		if some sort of error occurred
	jsr	rfp		read from printer
	
cfe1	lda	pread_pblk.result
	cmp	#PapBusy
	beq	cfe1		if call hasn't completed
	lda	readbuff
	and	#$ff
	cmp	#'0'
	bne	cfe2		if emulator is present
	jsr	dte		download the emulator
	bra	cfe3		finish things up
	
;	The emulator is already present.

cfe2	jsr	cmd		close modal dialog
	jsr	ctp		close the printer

	lda	#emess12	'The ImageWriter emulator is alreadyÉ'
	ldy	#^emess12
	jsr	damE		display alert message
	bra	cfe6		close IWEM file & return
			
cfe3	bcc	cfe5		if no error occurred

cfe4	pha
	jsr	cmd		close modal dialog
	pla
	jsr	hpe		handle pap error	
	
cfe5
	jsr	ctp		close the printer
cfe6
	_CloseGS  close_pblk	close IWEm file
cfe7
	_InitCursor

;	Since the GS has been occupied for a dozen seconds, better start a new name lookup.

	stz	lookupF		flag that it is ok to start name lookup
	stz	lszone		force recalc of printers
	stz	lszone+2
	brl	hzl		handle zone list and return - regets the printer list


;;	oef - open emulator file.
;
;	entry	ASCIIText = file type for ASCII files.
;		(iwempath..) = path to the emulator file.
;		read = GS/OS call # for reading a file.
;		(writebuff..512) = buffer to use when writing.
;
;	exit	(a) = return code.
;		file is opened and the first block is read in.

oef	lda	#read
	sta	w1		save disk op
	lda	#iwempath	path to printer.setup file
	sta	open_pblk+4
	lda	#^iwempath		
	sta	open_pblk+6
	lda	#writebuff
	sta	rw_pblk+4	lo ptr to buffer
	lda	#^writebuff
	sta	rw_pblk+6	hi ptr to buffer
	lda	#512
	sta	rw_pblk+8	lo word of request count
	stz	rw_pblk+10	hi word of request count
	sta	w3		flag that file should be kept open	
	lda	#ASCIIText	type of file wanted
	brl	hfo		handle file operation
	
	
;;	dte - download the emulator.
;
;	entry	[l5] = dialog pointer.
;		oef must have been called successfully
;
;	exit	(c) set if error, (a) = error code.
;
; Note: On entry, the read parameter block (rw_pblk) points at a 512 byte buffer
; inside the CDEV's code space, and the request count is already set t0 512.
;

dte	pushl	l5
	pushw	#3
	pushl	#dtemes
	_SetIText

;
; 10-Jan-92 MSD	Get the file's EOF and try to allocate a handle of the same
;		size.  If we get it, change the buffer pointer, rewind, and
;		read the file in.  The general algorithm is:
;
;		repeat
;			read from file
;			if (no read error)
;				write buffer := read buffer
;				while transfer count > 0
;					write Min(transfer count,512) bytes to printer
;					transfer count := transfer count - 512
;					write buffer := write buffer + 512
;		until read error
;

	jsr	rfp		; make sure we have an outstanding read to printer
	
	lda	open_pblk+2	; get file's refnum
	sta	geteof+2	; put in GetEOF block
	sta	rewind+2	; put in SetMark block
	_GetEOFGS geteof
	
	stz	iwemHandle	; in case we don't get the handle
	stz	iwemHandle+2
	
	pha			; room for handle
	pha
	lda	geteof+6
	pha			; push size of handle (EOF of file)
	lda	geteof+4
	pha			; size low
	pha			; room for memory manager ID
	_MMStartup		; get our user ID
	pea	$C000		; locked/fixed attributes
	pha			; starting address (ignored)
	pha
	_NewHandle
	plx			; clean handle from stack
	ply
	bcs	@write		; didn't get it - start writing 512 bytes at a time
	
	stx	iwemHandle	; save handle so we can dispose of it later
	sty	iwemHandle+2
	
	phd			; save D so we can deref pointer
	phy			; put handle back on stack
	phx
	tsc
	tcd			; point D at stack
	lda	[1]		; get low word of pointer
	sta	rw_pblk+4
	ldy	#2
	lda	[1],y		; get high word of pointer
	sta	rw_pblk+6
	pla			; remove handle
	pla
	pld			; restore D
	
	lda	geteof+4	; copy EOF to request count
	sta	rw_pblk+8
	lda	geteof+6
	sta	rw_pblk+10

	_SetMarkGS rewind	; set mark to start of file

;
; Read the next "chunk" from the file.
;
@read
	_ReadGS	rw_pblk		; try to read some
	bcs	@readerr	; done reading

;
; Point PAPWrite buffer to our read buffer
;
@write
	lda	rw_pblk+4
	sta	pwrite_pblk.bufPtr
	lda	rw_pblk+6
	sta	pwrite_pblk.bufPtr+2

;
; Keep looping as long as there is more to write to the printer
;
@writeloop
	lda	rw_pblk+14	; did we get more than 64K?
	bne	@big		; yes, so do 512 bytes
	lda	rw_pblk+12	; how much left?
	cmp	#512		; less than a block?
	blt	@gotlen		; yes, so do just what's left
@big
	lda	#512		; was 512 or more, so use 512
@gotlen
	sta	pwrite_pblk.buflen
	stz	pwrite_pblk.eofbyte	; don't set the EOF flag
	sep	#$20
	longa	off
	lda	popen_pblk.refnum
	sta	pwrite_pblk.refnum	; make sure refnum is set
	rep	#$20
	longa	on

;
; Write the next 512 bytes (or less)
;
	jsr	@pwrite			; do the PAPWrite
	tax				; did we get a PAP error?
	bne	@paperr			; yes, so close file an return error

;
; Adjust transfer count (i.e. amount left in buffer) and buffer pointer
;
	clc
	lda	pwrite_pblk.bufPtr
	adc	pwrite_pblk.buflen
	sta	pwrite_pblk.bufPtr	; update buffer pointer
	bcc	@nohi
	inc	pwrite_pblk.bufPtr+2
@nohi

	sec
	lda	rw_pblk+12
	sbc	pwrite_pblk.buflen
	sta	rw_pblk+12		; update transfer count
	lda	rw_pblk+14
	sbc	#0
	sta	rw_pblk+14
	ora	rw_pblk+12		; anything left in buffer?
	bne	@writeloop		; yes, so write some more

	bra	@read			; time to read some more from file

@readerr
	pha				; save error code

;
; We got an error on read (possibly EOF error).  Write zero bytes and EOF.
;
	stz	pwrite_pblk.buflen
	inc	pwrite_pblk.eofbyte	; set EOF byte
	jsr	@pwrite
	tax				; was there an error?
	beq	@ok			; no
	plx				; remove read error code from stack
	bra	@paperr			; return the pap error
@ok

;
; Dispose of our handle, close dialog, and if error was not EOF error, then
; display a message.
;
	jsr	@dispose		; dispose of our handle
	jsr	cmd			; close modal dialog
	
	pla				; get read error back
	cmp	#eofEncountered		; was it EOF?
	bne	@showerr		; no, so show the error
	
	clc				; no error
	rts

@showerr
	lda	#emess4
	ldy	#^emess4
	jmp	damE		display alert message (stop alert) and return

@paperr
	pha			; save error
	_CloseGS  close_pblk	; close the file
	jsr	@dispose	; dispose of our handle
	pla			; restore error
	sec
	rts
	
@pwrite
	jsr	rfp			; make sure there is an outstanding read
	
	ldx	#<pwrite_pblk
	ldy	#^pwrite_pblk
	jsl	$E11014			; call AppleTalk
	
@pwrite1
	lda	pwrite_pblk.result
	cmp	#PapBusy		; still busy?
	bne	@pwrite2		; no, so return
	
	jsr	rfp			; keep reading just in case
	
	bra	@pwrite1

@pwrite2
	rts

@dispose
	lda	iwemHandle+2		; push handle
	pha
	lda	iwemHandle
	pha
	_DisposeHandle
	
	rts

******************************************************************
	IF 0 THEN
	; emulator file now gets opened and closed in main routine

	;jsr	oef		open emulator file
	;txa
	;beq	dte1		if no error occurred

;	a file error has occurred when opening the iwem file and trying to read the first block.  
;	The routine hfo makes sure the file is closed so we call dte12 to remove the dialog 
;	and clear the carry so we don't display a pap error.

	;brl	dte12		make sure		

dte0	brl	dte10		handle file error and close file
	
dte1	jsr	rfp		read from printer	
	lda	#0
	bra	dte4		

dte3	_ReadGS  rw_pblk
	bcs	dte0		if read error occurred with file
	
dte4	sta	w1		save result
	ldx	#0		assume we haven't reached the end
	ldy	rw_pblk+$c	transfer count
	cpy	#512
	beq	dte5		if still more to read
	ldx	#1		this is the last block
dte5	cmp	#eofEncountered
	bne	dte6		if didn't hit the end
	ldx	#1		reached the end
dte6	sty	pwrite_pblk.buflen     amt to send

	shortmx
	stx	pwrite_pblk.eofbyte    =1 if this is the last packet
	longmx

	lda	#writebuff
	sta	pwrite_pblk.bufptr
	lda	#^writebuff
	sta	pwrite_pblk.bufptr+2
	jsr	rfp		read from printer
	shortm
	lda	popen_pblk.refnum
	sta	pwrite_pblk.refnum
	longm
	ldx	#pwrite_pblk
	ldy	#^pwrite_pblk
	jsl	$e11014
	
dte7	lda	pwrite_pblk.result
	cmp	#PapBusy
	bne	dte8		if no longer busy 
	jsr	rfp		read from printer (make sure always reading)
	bra	dte7		check again
	
dte8	tax
	bne	dte13
	jsr	rfp		read from printer
	lda	pwrite_pblk.eofbyte
	and	#$ff
	beq	dte3		if more to do
	
dte9	;_CloseGS  close_pblk	
	bra	dte12		finish things up	


;	if file error occurred.

dte10	;_CloseGS  close_pblk
dte11	jsr	cmd		close modal dialog
	lda	#emess4
	ldy	#^emess4
	jmp	damE		display alert message (stop alert) and return

dte12	jsr	cmd		close modal dialog 
	clc
	rts


;	if pap error occurred.

dte13	pha			save error
	_CloseGS  close_pblk
	pla			restore error
	sec
	rts

	ENDIF
******************************************************************

;	data used by this program.

emquery
	;dc.b	'%!PS-Adobe-2.0 Query'
	;dc.b	13
	;dc.b	'%%?BeginProcSetQuery IWEm 1 1'
	;dc.b	13
	;dc.b	'/IWEmDict where {1} {0} ifelse =='
	;dc.b	13
	;dc.b	'flush\n%%?EndProcSetQuery'
	;dc.b	13
	;dc.b	'%%EOF'
	;dc.b	13

	; New query 6/20/91 by Wes Johnson to have printer determine whether
	; currently installed IWEm is newer than ours

	dc.b	'%!PS-Adobe-2.0 Query'
	dc.b	13
	dc.b	'%%?BeginProcSetQuery IWEm 1 1'
	dc.b	13
	dc.b	'/Ver (ImageWriter Emulator '
em_ver	dc.b	'Version 1.3) def'			;break string for label
	dc.b	13
	dc.b	'/IWEmDict where{pop IWEmDict '
	dc.b	'/Version known{Ver IWEmDict begin Version end gt}{true} ifelse}'
	dc.b	'{true}ifelse {0}{1} ifelse == flush'
	dc.b	13
	dc.b	'% 0 = download new code, 1 = skip download'
	dc.b	13
	dc.b	'%%?EndProcSetQuery'
	dc.b	13
	dc.b	'%%EOF'
	dc.b	13
emqueryL  equ	*-emquery


writebuff  ds.b	512		hold blocks from the emulator file

	endp

	end
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/NetPrinterCDEV/netdata.aii b/IIGS.601.SRC/A.U.G/CtlPanel/NetPrinterCDEV/netdata.aii
new file mode 100644
index 0000000..420b388
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/NetPrinterCDEV/netdata.aii
@@ -0,0 +1 @@
+;;;	netdata - data records and strings used by netprinter CDEV.
;
;	Michael V. Stein	01/21/90.
;
;	© Copyright Apple Computer, 1990.


	blanks	off
	

;;	equates.


fCtlCanBeActive equ 	$4000

InsideScrollBar	equ	4



;;	include files.


	include	'e16.control'
	include	'e16.gsos'
	include	'e16.list'
	include	'netprinter.h'


;;	main program.

netdata	proc

;;	exported addresses.

	export	about
	export	appletalk
	export	asterisk
	;export	atalkerr
	export atalkerrm
	export	atalkF
	export	atinit
	export	atinitlpath
	export	btitle
	export	cfemes
	export	choosepr
	export	close_pblk
	export create_pblk		;added 2/4/91 by Monte Benaresh
	export	cprect
	export	ctllist
	export	dtemes
	export	edctl
	export	emess1
	export	emess2
	export	emess3
	export	emess4
	export	emess5
	export	emess6
	export	emess7
	export	emess10
	export	emess11
	export	emess12
	export	emess13
	export NBPbusyMsg
	export fileLockedMsg
	export	entity
	export	ginfoparams
	export	gmyp_pblk
	export	gmyz_pblk
	export	gup_pblk
	export	open_pblk
	export	iwebut
	export	iwempath
	export	kill_pblk
	export	oktext
	export	popen_pblk
	export	plist
	export	pread_pblk
	export	prec
	export	psetpr_pblk
	export	psetuppath
	export psetupname		;added 2/3/91 by Monte Benaresh toÉ
	export psetupnmL:equ		;Ésupport access of printer.setup on network boot
	export	pstat_pblk
	export	ptypes
	export	punload_pblk
	export	pwrite_pblk
	export	quit
	export	rw_pblk
	export	sm_pblk
	export	tryagain
	export	typeptr
	export	zlist
	export	zonelist_pblk

; used by dte:
	export	geteof
	export	rewind
	export	iwemHandle


;;	imported addresses.

	import	acr
	import	myzonename
	import	namesbuffer
	import	netobj
	import	openblock
	import	openblock2
	import	readbuff
	import	username
	import	zonebuffer


atinit	ds	atinitrec	hold data from atinit file

entity	ds	entityrec	hold printer entity

prec	ds	printersetup	printer.setup internal record
	
atalkF	dc.w	1		!= 0 if appletalk is active, defaults to active

iwemHandle dc.l	0		; handle to IWEM buffer

;	error strings.

	string	asis

emess1	dc.b	emess1L
	dc.b	'The user name can only be 31'
	dc.b	13
	dc.b	'characters long.'
emess1L	equ	*-emess1-1	


emess2	dc.b	emess2L
	dc.b	'Please reinsert your startup'
	dc.b	13
	dc.b	'disk.'
emess2L	equ	*-emess2-1

	
emess3	dc.b	emess3L
	dc.b	'Access Denied error.  No'
	dc.b	13
	dc.b	'changes can be saved.'
	dc.b	13
	dc.b	'Check with your'
	dc.b	13
	dc.b	'network administrator.'
emess3L	equ	*-emess3-1	


emess4	dc.b	emess4L
	dc.b	'Having trouble accessing'
	dc.b	13
	dc.b	'printer data files from'
	dc.b	13
	dc.b	'your startup disk.  Please'
	dc.b	13
	dc.b	're-install the printer'
	dc.b	13
	dc.b	'software on your startup'
	dc.b	13
	dc.b	'disk.'
emess4L	equ	*-emess4-1	


emess5	dc.b	emess5L
	dc.b	'The startup disk is write'
	dc.b	13
	dc.b	'protected.'
emess5L	equ	*-emess5-1


emess6	dc.b	emess6L
	dc.b	'The disk is full.'
	dc.b	13
	dc.b	'No changes can be'
	dc.b	13
	dc.b	'saved.'
emess6L	equ	*-emess6-1

	
emess7	dc.b	emess7L
	dc.b	'There is not enough memory'
	dc.b	$0d
	dc.b	'to continue.'
emess7L	equ	*-emess7-1


;	error messages used by the rename and emulator routines.


emess10	dc.b	emess10L
	dc.b	'The selected printer'
	dc.b	$0d
	dc.b	'is not responding.'
	dc.b	$0d
	dc.b	'Please try again.'
emess10L  equ	*-emess10-1


emess11	dc.b	emess11L
	dc.b	'A network error has'
	dc.b	$0d
	dc.b	'occurred.  Please try'
	dc.b	$0d
	dc.b	'again.'
emess11L  equ	*-emess11-1

emess12	dc.b	emess12L
	dc.b	'The ImageWriter Emulator'
	dc.b	$0d
	dc.b	'is already installed in'
	dc.b	$0d
	dc.b	'the selected printer.'
emess12L  equ	*-emess12-1

emess13	dc.b	emess13L
	dc.b	'The selected printer'
	dc.b	$0d
	dc.b	'could not be found.'
emess13L  equ	*-emess13-1

NBPbusyMsg
	dc.b @end-@start
@start
	dc.b 'A list of printers cannot', $0D
	dc.b 'be displayed because a', $0D
	dc.b 'network search is already', $0D
	dc.b 'in progress on this computer.'
@end

fileLockedMsg
	dc.b @end-@start
@start
	dc.b 'The new settings cannot be ', $0D
	dc.b 'saved because the ÒATInitÓ ', $0D
	dc.b 'or ÒPrinter.SetupÓ files are ', $0D
	dc.b 'locked.'
@end


	string	pascal

appletalk  dc.b	'APPLETALK'

asterisk  dc.b	'*'

btitle	dc.b	'ImageWriter Emulator'	title of iwebut

oktext	dc.b	'OK'

quit	dc.b	'Quit'			used in disk error alerts

;;;rtptitle  dc.b	'Rename PrinterÉ'	title of rtp button

tryagain  dc.b	'Try Again'		used in disk error alerts


;	this data is somewhat odd since the LaserWriter and ImageWriter
;	both have the same name that is used in the printer.setup file
;	to identify the printer and the type name for name lookups.  The
;	ImageWriterLQ on the other hand uses 'LQ' when doing name lookups
;	and is stored as 'ImageWriter.LQ' in the printer.setup file.

ptypes	
laser	dc.b	'LaserWriter'		name used for both
im	dc.b	'ImageWriter'		name used for both
imlq	dc.b	'LQ'			name used for lookups
imlqfile  dc.b	'ImageWriter.LQ'	name needed for printer.setup

typeptr  dc.w	laser,im,imlq,imlqfile


	string	asis

cfemes	dc.b	cfemesL
	dc.b	'Checking for presence of'
	dc.b	$0d
	dc.b	'the ImageWriter Emulator...'
cfemesL  equ	*-cfemes-1


dtemes	dc.b	dtemesL
	dc.b	'Downloading the emulator...'
dtemesL	 equ	*-dtemes-1	



usertitle  dc.b	'User Name:',0
usertitleL  equ  *-usertitle-1

zonetext  dc.b	'AppleTalk Zones:',0
zonetextL  equ	*-zonetext-1


;	appletalk parameter blocks.

;	parameter block to get appletalk info.

GinfoParams
	dc.b synchronous	;type
	dc.b GetInfoCmd		;command
	dc.w 0			;result
	dc.l 0			;completion routine
	dc.w 0			;ThisNet
	dc.b 0			;Abridge
	dc.b 0			;HardWareID
	dc.w 0			;Rom version
	dc.b 0			;node number


;	parameter block to find printers.	

gmyp_pblk  dc.b	asynchronous		mode
	dc.b	NBPLookup		command
	dc.w	busy			result
	dc.l	acr			completion routine
	dc.l	netobj			ptr to name of what we want to find
	dc.b	1			retry period in 1/4 secs	
	dc.b	1			# of times to retry
	dc.w	0			somehting internal
	dc.w	pblocksize		receive buffer size
	dc.l	openblock2		store responses here
	dc.b	maxsrvrs		maximum # of responses allowed
	dc.b	0			actual number of responces received


;	parameter block to get my zone.

gmyz_pblk  dc.b	asynchronous		mode
	dc.b	GetMyZone		command
	dc.w	busy			result
	dc.l	0			no completion routine
	dc.l	myzonename		bufptr
	dc.b	2			retry period
	dc.b	8			# of retrys
	dc.w	2			reserved


;	parameter block to kill the current name lookup.

kill_pblk  dc.b  synchronous		mode
	dc.b	KillNBP			kill name binding protocol
	dc.w	0			result code
	dc.l	gmyp_pblk		starting parameter block
		

;	parameter block to get the zone list.
	
zonelist_pblk
	dc.b	synchronous
	dc.b	GetZoneList
	dc.w	busy
	dc.l	0		iocomp
	dc.w	MaxZones*(NameLen+4)   buflen
	dc.l	0		bufptr (filled in dynamically)
	dc.b	0		brnode
	dc.w	1		strtindex
	dc.b	1		retryinterval
	dc.b    2		retrycount
	dc.w    0		;# of zones returned
    	dc.w	0		reserved	


;	pap parameter blocks.
	
popen_pblk  dc.b  asynchronous
	dc.b	Popen		command
	dc.w	0		result
	dc.l	0		iocomp
	dc.b	0		refnum
	dc.l	0		ptr to name
	dc.b	1		flowq
	dc.l	readbuff	statbuf

	
psetpr_pblk  dc.b  synchronous
	dc.b	PMSetPrinterCmd	  command
	dc.w	0		result
	dc.l	0		iocomp
	dc.l	atinitrec+34	ptr to printer tuple
	dc.b	0		flags
	dc.w	2		flush interval
	dc.w	30*4		timeout interval
	dc.w	20		# of buffers

	
pstat_pblk  dc.b  asynchronous	
	dc.b	Pstatus		command
	dc.w	0		result
	dc.l	0		iocomp
	dc.l	0		ptr to entity
	dc.l	readbuff	stat buffer
	

pread_pblk  dc.b  asynchronous
	dc.b	Pread		command
	dc.w	0		result
	dc.l	0		iocomp
	dc.b	0		refnum
	dc.w	0		buflen
	dc.l	readbuff	bufptr
	dc.b	0		eofbyte
	dc.w	0		reserved


punload_pblk  dc.b  synchronous
	dc.b	$27		pap unload command
	dc.w	0		result
	dc.l	0		completion ptr
	
	
pwrite_pblk  dc.b	asynchronous
	dc.w	PWrite		command
	dc.w	0		result
	dc.l	0		iocomp
	dc.b	0		refnum
	dc.w	0		buflen
	dc.l	0		bufptr
	dc.b	0		eofbyte
	dc.b	0		; extra, so we can use a word store to eofbyte
	
;	gs/os parameter blocks.

;	parameter block for creating printer.setup

create_pblk
	dc.w	5		pcount through storage type
	ds.l 1			pathname
	dc.w $00C3		access
	dc.w $0006		filetype = binary
	dc.l $00000000		auxtype
	dc.w $0000		storage type


close_pblk  dc.w  1		only one parameter
	ds.b	2		refnum


;	parameter block to get user path from appleshare.

gup_pblk  dc.w	3		3 parameters
	dc.w	AShareFST	id of the appleshare fst
	dc.w	8		command for get user path
	ds.b	4		ptr to pathname

;	parameter block to open a file.

open_pblk  dc.w	6		only care about 6 parameters
	ds.b	$e		hold rest of parameter block

;	parameter block for read/write operations on a file.
	
rw_pblk	dc.w	4		only care about 4 parameters
	ds.b	$e		hold rest of parameter block

;	parameter block to set the mark on a file.

sm_pblk	dc.w	3		3 parameters
	dc.w	0		ref num
	dc.w	eofMinus	displacement from end
	dc.l	atinitrec.sizeof

rewind				; added 10-Jan-92 MSD
	dc.w	3		; SetMark - pcount = 3
	dc.w	0		; refnum
	dc.w	startPlus	; absolute offset from start of file
	dc.l	0		; seek to start of file

geteof	dc.w	2		; GetEOF - pcount = 2
	dc.w	0		; refnum
	dc.l	0		; returned EOF

;	ctllist contains a list of controls whose handles we don't need very often.

ctllist dc.l	choosepr
	dc.l	utext
	dc.l	ztext
	dc.l	0


choosepr  dc.w	9		PCount
	dc.l	1		control ID
	dc.w	5,leftedge,17,rightedge  rectangle
	dc.l	$87000000	procRef
	dc.w	$0040		flag
	dc.w	$1084		moreflags (added $0080 pop-down triangle 25-Aug-92 DAL)
	dc.l	0		refcon
	dc.w	64		titleWidth
	dc.l	chooseprmenu	menuref
	dc.w	0		initialvalue
	
chooseprmenu
	dc.b 	'>>Printer:\H'
	dc.w 	1
	dc.b 	$0D
	dc.b 	'==LaserWriter\H'
	dc.w 	1
	dc.b 	$0D
	dc.b 	'==ImageWriter\H'
	dc.w 	2
	dc.b	$0d
	dc.b 	'==ImageWriter LQ\H'
	dc.w	3
	dc.b	$0d
	dc.b	'.'



about	dc.w	8		;Pcount
	dc.l	10		;ID
	dc.w	38,5,138,280
	dc.l	statTextControl
	dc.w	0
	dc.w	fCtlProcRefNotPtr
	dc.l	0
	dc.l	atext
	dc.w	AtextL
atext	dc.b	'The Net Printer Control Panel allows you '
	dc.b	'to direct your printer output to '
	dc.b	'any printer on the AppleTalk network.  '
	dc.b	'Select the type of printer with the '
	dc.b	'pop-up menu.  The ImageWriter Emulator '
	dc.b	'can be downloaded to any LaserWriter '
	dc.b	'for those applications that normally print '
	dc.b	'to an ImageWriter.'
	
atextL	equ	*-atext

;	static text control removed 12/3/91 by Monte Benaresh
;	because an alert box is now used

;atalkerr  dc.w	8		PCount
	;dc.l	11		id
	;dc.w	8,leftedge,38,Rightedge+20
	;dc.l	statTextControl
	;dc.w	0
	;dc.w	fCtlProcRefNotPtr
	;dc.l	0
	;dc.l	atalkerrm	ptr to text
	;dc.w	atalkerrmL	length
	
	
atalkerrm
	dc.b atalkerrmL-1
	dc.b	'AppleTalk must be'
	dc.b	13
	dc.b	'installed and enabled to'
	dc.b	13
	dc.b	'run this Control Panel.'
	dc.b	13
	;dc.b	' '
atalkerrmL  equ	*-atalkerrm
	

plist	dc.w	15		PCount
	dc.l	2		ID
	dc.w	20		rectangle
	dc.w	LeftEdge
	dc.w	62
	dc.w	Rightedge
	dc.l	listControl	ctrldefproc
	dc.w	$80		ctlFlag
	dc.w	fCtlProcRefNotPtr+fCtlCanBeTarget+fCtlWantEvents	moreFlags
	dc.l	0		ref con
	dc.w	0		ctlListSize
	dc.w	MaxSrvrView	ctlListView
	dc.w	selectOnlyOne+InsideScrollBar
	dc.w	1		ctlListstart
	dc.l	0		ctlListDraw
	dc.w	10		ctlListMemHeight
	dc.w	memrec.sizeof	ctlListMemSize
	dc.l	namesbuffer	ctlListRef
	dc.l	0		ctlColorRef

	
zlist	dc.w	15		PCount
	dc.l	3		ID
	dc.w	100-3		rectangle
	dc.w	LeftEdge
	dc.w	142-3
	dc.w	RightEdge
	dc.l	listControl	ctrldefproc
	dc.w	$80		ctlflag
	dc.w	fctlProcRefNotPtr+fCtlCanBeTarget+fCtlWantEvents	moreFlags
	dc.l	0		ref con
	dc.w	0		ctlListSize
	dc.w	MaxZoneView	ctlListView
	dc.w	selectOnlyOne+InsideScrollBar
	dc.w	1		ctlListstart
	dc.l	0		ctlListDraw
	dc.w	10		ctlListMemHeight
	dc.w	memrec.sizeof	ctlListMemSize
	dc.l	zonebuffer	ctlListRef
	dc.l	0		ctlColorRef
	
	
	
editrect  dc.w	142,LeftEdge,162,RightEdge+20   edit box rectangle

cprect	dc.w	0,0,200,320	control panel rectangle


edctl	dc.w	8		PCount
	dc.l	20		ID number
	dc.w	155		rectangle
	dc.w	LeftEdge
	dc.w	169
	dc.w	RightEdge
	dc.l	editLineControl
	dc.w	0		flag
	dc.w	fctlProcRefNotPtr+fctlWantEvents+fCtlCanBeActive
	dc.l	0		ref con
	dc.w	NameLen		length
	dc.l	username	ptr to name
	
	
utext	dc.w	8		Pcount
	dc.l	7		ID number
	dc.w	149-4		rectange
	dc.w	leftedge
	dc.w	159-4
	dc.w	rightedge
	dc.l	statTextcontrol	 procref
	dc.w	0		flag c strings
	dc.w	fctlProcRefNotPtr
	dc.l	0		refcon
	dc.l	usertitle	text ref
	dc.w	usertitleL	length of string

	
ztext	dc.w	8		Pcount
	dc.l	9		ID number
	dc.w	94-4-3
	dc.w	leftedge
	dc.w	103-4-3
	dc.w	rightedge
	dc.l	statTextcontrol
	dc.w	0		flag, c string
	dc.w	fctlProcRefNotPtr
	dc.l	0		ref con
	dc.l	zonetext	text ref
	dc.w	zonetextL	length of string


;	buttons.

iwebut	dc.w	9		Pcount
	dc.l	4		ID number
	dc.w	69
	dc.w	leftedge+5+40
	dc.w	69+13
	dc.w	rightedge-5-40
	dc.l	simpleButtoncontrol
	dc.w	simpRound+ctlInvis
	dc.w	fCtlWantEvents+fctlProcRefNotPtr
	dc.l	0
	dc.l	btitle
	dc.w	0		length?
	dc.w	0		key equivalent
	

;	gs/os paths used. 


atinitlpath  dc.w	atinitlpathL
	dc.b	'*/SYSTEM/SYSTEM.SETUP/ATINIT'
atinitlpathL	equ	*-atinitlpath-2


iwempath  dc.w  iwempathL
	dc.b	'*/SYSTEM/DRIVERS/IWEM'
iwempathL  equ	*-iwempath-2


psetuppath  dc.w	psetuppathL
	;dc.b	'*/SYSTEM/DRIVERS/PRINTER.SETUP'
	dc.b	'*:SYSTEM:DRIVERS'
	dc.b ':PRINTER.SETUP'
psetuppathL	equ	*-psetuppath-2

psetupname				;added 2/3/91 by Monte to support network boot
	dc.b ':SETUP:PRINTER.SETUP'
psetupnmL	equ	*-psetupname


	endp

	end
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/NetPrinterCDEV/netprinter.aii b/IIGS.601.SRC/A.U.G/CtlPanel/NetPrinterCDEV/netprinter.aii
new file mode 100644
index 0000000..08a823c
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/NetPrinterCDEV/netprinter.aii
@@ -0,0 +1 @@
+;;;	netpr - AppleTalk Network Printer CDEV.
;
;	Michael V. Stein	01/25/90.
;
;	© Copyright Apple Computer, 1990.



;;;	routines included in this source file.
;
;	ccc - create cdev controls.
;	ctc - close the cdev.
;	alternate entrypoint:  ctcE.
;	ham - handle about messsage.
;	hem - handle event message
;	hhm - handle hit message.
;	icc - init cdev controls.
;	rtc - run the cdev.
;	aaf - access atinit file.
;	acr - appletalk completion routine.
;	ane - add next element.
;	anl - add names to list.
;	asf - access setup file.
;	cac - create actual controls.
;	cbs - change button status.
;	cmd - close modal dialog.
;	cnd - check for new devices.
;	alternate entrypoint:  cndE.
;	cps - copy pascal string.
;	cst - create static text.
;	ctp - close the printer.
;	cus - compare uppercase strings.
;	dah - dereference a handle.
;	dam - display alert message.
;	alternate entry point:  damE.
;	dwh - disable window highlighting.
;	dzl - draw zone list.
;	ewh - enable window highlighting.
;	fsp - find selected printer.
;	fsz - find starting zone in list.
;	gap - get actual pointer.
;	gcp - get and compare printer type.
;	gdt - get device type.
;	gpn - get printer names.
;	gsd - get starting device.
;	gsz - get starting zone.
;	ghl - get handle and length of text.
;	ghp - get highlighted printer.
;	ghz - get highlighted zone.
;	gip - get index into printers.
;	giz - get index into zones.
;	gmz - get my zone.
;	goa - get offset into array.
;	gzl - get zone list.
;	heb - handle emulator button.
;	hfo - handle file operation.
;	hom - handle out of memory.
;	hpe - handle pap error.
;	hpl - hit printer list.
;	hpu - hit pop up.
;	hre - handle recoverable disk error.
;	hzl - hit zone list.
;	alternate entry point:  hzlE.
;	alternate entry point:  hzlEE.
;	iai - is appletalk active.
;	inb - is network boot.
;	ipl - initialize printer list.
;	knl - kill name lookup.
;	mne - move to next element.
;	alternate entrypoint:  mneE.
;	omd - open modal dialog.
;	osd - open status dialog.
;	otp - open the printer.
;	rfp - read from printer.
;	snl - start name lookup.
;	stp - status the printer.
;	alternate entry point:  stpE.
;	ubd - unload both drivers.
;	udf - update data files.
;	wtp - write to printer.



	blanks	off
	

;;	equates.

recty0	equ	0		rectangle offsets
rectx0	equ	2
recty1	equ	4
rectx1	equ	6

stack_entry  equ  $e100b0	gs/os stack entry point


;;	include files.

	include	'::commonmacros.h'
	include	'::cdev.h'
	include	'::dp.h'
	include	'e16.control'
	include	'e16.dialog'
	include	'e16.event'
	include	'e16.gsos'
	include	'e16.lineedit'
	include	'e16.list'
	include	'e16.memory'
	include	'e16.quickdraw'
	include	'm16.control'
	include	'm16.dialog'
	include	'm16.gsos'
	include	'm16.intmath'
	include	'm16.lineedit'
	include	'm16.list'
	include	'm16.memory'
	include	'm16.misctool'
	include	'm16.QDAux'
	include	'm16.quickdraw'
	include	'm16.print'
	include	'm16.util2'
	include	'm16.window'
	include	'netprinter.h'

	
;;	main program

main	proc


;;	exported addreses.

	export	acr
	export	cmd	
	export	cps
	export	ctp
	export	dah
	export	dam
	export	damE
	export	devices
	export	gdt
	export	ghp
	export	gip
	export	hfo
	export	hpe
	export	hzl
	export	knl
	export	lookupF
	export	lszone
	export	mneE
	export	myzonename
	export	namesbuffer
	export	netobj
	export	omd
	export	openblock
	export	openblock2
	export	osd
	export	otp
	export	plisthdl
	export	rfp
	export	rfpE
	export	screenF
	export	stp
	export	stpE
	export	username
	export	wtp
	export	zonebuffer
	export	zlisthdl


;;	imported addresses.

	import	about
	import	appletalk
	import	asterisk
	;import	atalkerr
	import atalkerrm
	import	atalkF
	import	atinit:atinitrec
	import	atinitlpath
	import	cfe
	import	choosepr
	import	close_pblk
	import create_pblk		;added 2/4/91 by Monte Benaresh
	import	cprect
	import	ctllist
	import	edctl
	import	edctllen
	import	emess1
	import	emess2
	import	emess3
	import	emess4
	import	emess5
	import	emess6
	import	emess7
	import	emess8
	import	emess10
	import	emess11
	import	emess12
	import	emess13
	import NBPbusyMsg
	import fileLockedMsg
	import	entity:entityrec
	import	GinfoParams
	import	gmyp_pblk:NBPLType
	import	gmyz_pblk
	import	gup_pblk
	import	iwebut
	import	kill_pblk
	import	oktext
	import	open_pblk
	import	plist
	import	popen_pblk:open_printer
	import	pread_pblk:read_printer
	import	prec:printersetup
	import	psetpr_pblk:PMSetPrinterType
	import	psetuppath
	import psetupname	;added 2/3/91 by Monte Benaresh toÉ
	import psetupnmL	;Ésupport access of printer.setup on network boot
	import	pstat_pblk:status_printer
	import	ptext
	import	ptypes
	import	punload_pblk
	import	pwrite_pblk:write_printer
	import	rw_pblk
	import	sm_pblk
	import	tryagain
	import	quit
	import	rtp
	import	rtpbut
	import	sul
	import	tryagain
	import	typeptr
	import	wtext
	import	zlist
	import	zonelist_pblk:gzonelist




netpr	phb			save calling data bank
	phk
	plb			set our data bank		

;	make room on stack for direct page.

	tsc			
	sec			
	sbc	#dpsize		make room on stack for new direct page
	tcs			
	phd			save the current direct page
	tcd			new direct page

	stz cdev_result		;init result for Control Panel
	stz cdev_result+2

	lda	message	
	cmp	#11+1		
	bcs	netpr1		if message defintely not handled

	ldx	atalkF
	beq	netpr1		if appletalk isn't present
		
	asl	a		times 2 into word table
	tax			move into index reg
	jsr	(t_cdev-2,x)	call the handler of this message

netpr1	pld			restore direct page
	tsc
	clc
	adc	#dpsize		
	tcs			reset the stack
	lda	1,s		Bump the stack up to prepare
	sta	11,s		to take off the 3 parameters
	lda	3,s		
	sta	13,s

	pla			get rid of message space
	
	pla			get rid of data1 space
	pla			
	
	pla			get rid of data2 space
	pla			
	
	lda cdev_result		;result for Control Panel
	sta	5,s
	lda cdev_result+2
	sta	7,s		
	plb
	
	rtl
		

t_cdev	dc.w	Machine_CDEV	handle machine message
	dc.w	ctcE		handle boot message - ignored
	dc.w	ctcE		handle shutdown message - ignored
	dc.w	icc		init cdev controls
	dc.w	ctc		close the cdev
	dc.w	hem		handle event message
	dc.w	ccc		create cdev controls
	dc.w	ham		handle about message
	dc.w	ctcE		handle rectangle message - ignored
	dc.w	hhm		handle hit message
	dc.w	rtc		run the cdev
	



;	secondary routines.


Machine_CDEV		;check for AppleTalk active and show alert if not

;	check screen resolution in case we have to show alert box

	pha			space for result
	_GetMasterSCB
	pla
	xba
	and	#$8000
	sta	screenF		!= 0 if 640 mode

	jsr iai			;check for AppleTalk active
	bcs @no_atalk
@active
	inc cdev_result		;return success
	rts

@no_atalk
	lda #atalkerrm
	ldy #^atalkerrm
	brl dam			;display alert box

	rts			;return (default) 0 result --> failed


;;	ccc - create cdev controls.
;
;	entry	(atalkerr..) = appletalk error message control.
;		[data1] = window ptr.
;		read = gs/os command to read from a file.
;
;	exit	if appletalk isn't installed, the appletalk error
;		text control is created.
;
;		if appletalk is active:
;		controls are created.
;		the zonelist is created and sorted.
;		current printer setup is read from files into prec.
;		(prec..) = printer setup.
;		(username..) = pascal string of the user's name.
;		(selF) = 0.
;		(screenF) != 0 if 640 mode
;		[wptr] = window pointer.


ccc	;jsr	iai		is appletalk active
	;bcc	ccc1		if  active
	;ldx	#atalkerr	'AppleTalk must be installed to run É'
	;ldy	#^atalkerr
	;brl	cst		create static text control and return
	;lda #atalkerrm
	;ldy #^atalkerrm
	;brl dam			;display alert box

ccc1	_Waitcursor
	stz	selF		no selection was made yet
	stz	pmatch
	stz	pmatch+2	
	stz	pindex		init printer index
	stz zonenamehdl
	stz zonenamehdl+2	;no name handle yet

;	next code moved to MachineCDEV by Monte Benaresh -- 12/3/91
	;pha			space for result
	;_GetMasterSCB
	;pla
	;xba
	;and	#$8000
	;sta	screenF		!= 0 if 640 mode

	ldx	#<GInfoParams
	ldy	#^GInfoParams
	jsl	$E11014		; get completion routine return address
	lda	GInfoParams+GetInfo.CompRtnRet
	sta	compret+1	; modify the JML instruction
	lda	GInfoParams+GetInfo.CompRtnRet+1
	sta	compret+2
	
	lda	data1
	sta	wptr		save window pointer for later
	lda	data1+2
	sta	wptr+2
	jsr	inb		is network boot
	lda	#read
	jsr	asf		access printer setup file	
	
;	The printer name stored at prec.printer is not very useful for the
;	imagewriter LQ.  It stores 'ImageWriter.LQ' when what I really need
;	is the typename to use for lookups, etc.  So If the name stored at
;	prec.printer is 'ImageWriter.LQ' I change it to be a pascal string
;	of 'LQ'.  This way I change it here at the start and don't have to special
;	case the LQ printer all over the place in the code.

	lda	#2+1
	sta	devices
	jsr	gcp		get and compare printer
	bne	ccc2		if not imagewriter LQ
	lda	#2|('L'<<8)
	sta	prec.printer
	lda	#'Q'
	sta	prec.printer+2
	
ccc2
	;brk $81

	lda	#read
	jsr	aaf		access atinit file
	lda	#atinit.name
	sta	l2		source loc
	lda	#^atinit.name
	sta	l2+2
	lda	#prec.name
	sta	l1		dest loc
	lda	#^prec.name
	sta	l1+2
	ldx	#15		max of 15 chars
	jsr	cpsE		copy pascal string
	lda	#username
	sta	l1
	lda	#^username
	sta	l1+2
	jsr	cps		copy pascal string

;	next 3 lines moved out of gzl for better generality

	jsr	gsd		get starting device
	lda	devices
	sta	ldwpns		last device with printer name selected

	jsr	gzl		get zone list

	stz NBPBusyF		assume NBP not busy
	jsr	gpn		get printer names
	cmp #$0408		too many NBP lookups active?
	bne @lookup_ok		no, continue
@cant_lookup
	dec NBPBusyF		set flag to display message at init time
@lookup_ok
	jsr	ipl		initialize printer list
	jsr	cac		create actual controls
	lda	zlisthdl	lo word of list handle
	ldy	zlisthdl+2	hi word of list handle
	jsr	sul		sort uppercase list
	stz	zindex		zone index of 0
		
;	since szl will only sort the names, now go through list, find the local
;	zone and show it as selected.

	jsr	fsz		find starting zone	
	jsr	dzl		draw zone list
	_InitCursor
	rts
	
	
	
;;	ctc - close the cdev.
;
;	entry	called when to close the cdev and appletalk is active.
;
;	exit	name lookup is stopped.
;		files are updated and memory is disposed.


;;	alternate entrypoint:  ctcE.
;
;	ctcE is used as a convenient rts instruction.


ctc	lda	#$ffff
	sta	lookupF		flag to not start any more lookups
	jsr	knl		kill name lookup
	jsr	udf		update data files
	pushl	zonenamehdl
	_DisposeHandle		get rid of memory we allocated
ctcE	
ctc1	rts
	


;;	ham - handle about messsage.
;
;	entry	(about..) = static text control containg the about text.
;
;	exit	The 'about' control is created.


ham	ldx	#about
	ldy	#^about
	brl	cst		create static text control and return
	
	

;;	hem - handle event message
;
;	entry	[data1] = ptr to event record.
;		(emess1..) = text for the alert box.
;
;	exit	if user tries typing an illegal char then a sysbeep is
;		generated and the event is changed to a null event.
;		if the user tries to type too many characters then an alert box
;		is displayed and the event is changed to a null event.


hem	ldy	#owhat
	lda	[data1],y	get what type of event occurred
	cmp	#keyDownEvt
	beq	hem1		if user typed something
	cmp	#autoKeyEvt
	bne	hem5		if not an auto key event then return

hem1	ldy	#omessage
	lda	[data1],y
	and	#$ff
	cmp	#':'
	beq	hem2		if user tried to type a colon
	cmp	#'/'
	bne	hem3		if user didn't try to type a slash
	
hem2
*** 25-Aug-92 DAL -- use SysBeep2
	pea $0008		;sbBadKeypress
	_SysBeep2
*** end 25-Aug-92
;;;	_SysBeep
	bra	hem4		remove event and return
	
;	check if typing in too many characters.

hem3	jsr	ghl		get handle and length of text
	cmp	#unamelen
	bcc	hem5		if ok
	ldy	#omessage
	lda	[data1],y	get char
	and	#$ff
	cmp	#$7f		
	beq	hem5		if typed in a delete
	cmp	#$18		
	beq	hem5		if typed in a clear key
	cmp	#$9
	beq	hem5		if typed in a tab key
	cmp	#$8	
	beq	hem5		if typed in a left arrow
	cmp	#$15
	beq	hem5		if typed in a right arrow
	
	lda	#emess1		'user name can only be 31 characters'
	ldy	#^emess1
	jsr	dam		display alert message

hem4	lda	#nullEvt
	ldy	#owhat
	sta	[data1],y	remove the event
hem5	rts
	


;;	hhm - handle hit message.
;
;	entry	[data1] = handle to control.
;		[data2] = id of control that was hit.
;
;	exit	control hit is processed.


hhm	lda	data2		get id of control that was hit
	cmp	#4+1
	bcs	hhm1		if not important control
	asl	a
	tax
	jmp	(hhmtab-2,x)	jump to the proper handler and return
	
hhm1	rts	
	
	
hhmtab	dc.w	hpu		hit pop-up
	dc.w	hpl		hit printer list
	dc.w	hzl		hit zone list
	dc.w	heb		hit emulator button

	

;;	icc - init cdev controls.
;
;	entry	(atalkF) = 0 if appletalk isn't active.
;
;	exit	zone list is drawn if appletalk is active.


icc	lda	atalkF
	beq	icc1		if appletalk is not active
	;brl	dzl		draw zone list and return
	jsr	dzl		draw zone list

icc1	rts



;;	rtc - run the cdev.
;
;	entry	(lookupF) != 0 if not to do any more lookups.
;
;	exit	if lookups are allowed and out window is the frontmost, it starts a 
;		lookup if the last one has stopped.


rtc
	lda NBPBusyF		check flag for NBP busy
	beq @NBP_ok

	stz NBPBusyF		clear flag
	lda	#NBPbusyMsg	'A network search is already activeÉ'
	ldy	#^NBPbusyMsg
	jsr	dam		display alert message
@NBP_ok

;	next code to check for zones appearing after none could
;	be found adapted from AppleShare CDEV v2.0 by Mark Day
;
;	added 11/16/91 by Monte Benaresh

	lda zonelist_pblk.numberzones
	and #$00FF		;keep byte only
	bne @have_zones		;we found zones, all OK

	jsr gzl			;no zones, try to find them now

	pushl	#0		standard draw routine
	pushw	#1		
	pushl	#$ffffffff	use current listref
	pushw	#$ffff		use current listrefdesc
	pushw	zlist+$1a	size of list
	pushl	zlisthdl	handle of list control record
	_NewList2

	lda	zlisthdl	lo word of list handle
	ldy	zlisthdl+2	hi word of list handle
	jsr	sul		sort uppercase list
	stz	zindex		zone index of 0
		
;	since szl will only sort the names, now go through list, find the local
;	zone and show it as selected.

	jsr	fsz		find starting zone	
	jsr	dzl		draw zone list


@have_zones
	lda	lookupF
	bne	rtc1		if not to look for new devices
	pha
	pha
	_FrontWindow
	pla
	plx
	cmp	wptr
	bne	rtc1		if no longer the front window
	cpx	wptr+2
	bne	rtc1		if no longer the front window
	brl	cnd		check for new devices and return
	
rtc1	rts



;	teriary routines called by the message handling routines.


;;	aaf - access atinit file.
;
;	entry	(a) = disk operation $2012 = read, $2013 = write.
;		(netbootF) != 0 if booted over network.
;		(atinitlpath..) = path to use when local boot.
;		(atinitnpath..) = path to use when on network.
;		atalkfile = file type for appletalk files.
;
;	exit	file is read or written.
;		(c) set if error.


aaf	sta	w1		save disk op (read or write)
	lda	#atinitlpath
	ldx	#^atinitlpath	assume local boot
	
	ldy	netbootF
	beq	aaf5		if local boot
	
	_FSTSpecific  gup_pblk	get user path
	lda	gup_pblk+6
	sta	l1
	lda	gup_pblk+6+2
	sta	l1+2

;	copy over path to user's folder.

	shortmx
	lda	[l1]
	sta	w5		# to copy
	ldy	#2
	ldx	#0
aaf1	cpx	w5
	bcs	aaf2		if done
	lda	[l1],y
	sta	netobj+2,x	save here for now
	iny
	inx
	bra	aaf1		move next char
	
;	add over the final ':Setup:ATINIT'

aaf2	ldy	#0

aaf3	cpy	#aafaL
	bcs	aaf4		if done
	lda	aafa,y		get next char of ending string
	sta	netobj+2,x
	iny
	inx
	bra	aaf3		process next char
	
aaf4	lda	w5
	clc
	adc	#aafaL
	longmx
	and	#$ff
	sta	netobj		length of gs/os string
	lda	#netobj
	ldx	#^netobj
		
aaf5	sta	open_pblk+4	lo ptr to pathname
	stx	open_pblk+6	hi ptr to pathname
	lda	#atinit		ptr to buffer
	sta	rw_pblk+4
	lda	#^atinit
	sta	rw_pblk+6
	
	lda	#atinitrec.sizeof
	sta	rw_pblk+8	request count
	stz	rw_pblk+10
		
	stz	w3		close file when done		
	lda	#appletalkfile	type of file wanted
	brl	hfo		handle file operation and return


;	data used here.

aafa	dc.b	':Setup:ATINIT'
aafaL	equ	*-aafa		length of this portion of path


	
;;	acr - appletalk completion routine.
;
;	entry	called by the appletalk routines with a jsl when an asynch call 
;		has completed.
;
;	exit	(calcompF) = $ffff


acr	lda	#$ffff
	sta	>callcompF	flag that the call completed
compret	jml	0		; jump back to AppleTalk

	
	
;;	ane - add next element.
;
;	entry	[l1] =  ptr to current spot in the namelist.
;		[l4] =  ptr to current record in list manager list.
;
;	exit	entry is added to list.
;		[l1] = ptr to next spot in the namelist.
;		[l4] = ptr to next element in the list manager list.

;	copy new element into our list.


ane	ldy	#entityrec.netnum
	lda	[l1],y		
	ldy	#memrec.netnum
	sta	[l4],y
	
	lda	l1
	clc
	adc	#entityrec.objname
	ldy	#memrec.memptr
	sta	[l4],y
	
	lda	l1+2
	adc	#0
	ldy	#memrec.memptr+2
	sta	[l4],y
	
	shortmx
	ldy	#entityrec.nodeid
	lda	[l1],y
	ldy	#memrec.nodeid
	sta	[l4],y
	
	ldy	#entityrec.scktnum
	lda	[l1],y
	ldy	#memrec.scktnum
	sta	[l4],y
	
	ldy	#entityrec.enumerator
	lda	[l1],y
	ldy	#memrec.enumerator
	sta	[l4],y

	ldy	#memrec.memflag
	lda	#0
	sta	[l4],y		mark it as not selected
	longmx
	
ane3	jsr	mne		move to next element
	lda	l4
	clc
	adc	#memrec.sizeof
	sta	l4
	bcc	ane4		if didn't cross bank
	inc	l4+2
ane4	rts	

	
		
;;	anl - add names to list.
;
;	entry	(gymp_pblk..) = parameter block for getting printer list.
;		MaxSrvrs = max number of printers per zone to worry about.
;		(openblock..) = current printer name list.
;		(openblock2..) = new printer name list.
;		[plisthdl] = handle to printer list.
;		(plistsize) = current size of printer list.
;
;	exit	if the number of printers has changed then this routine will 
;		recreate the printer list with the info from the new call.


anl	lda	gmyp_pblk.rgotten
	and	#$ff
	cmp	plistsize
	beq	anl3		if same size  (branch doesn't reach bottom)

;	different # of objects, so copy openblock2 to openblock.

	shortm
	ldx	#MaxSrvrs*(99+5)-1
anl1	lda	openblock2,x
	sta	openblock,x
	dex
	bne	anl1
	longm

	lda	#openblock
	sta	l1
	lda	#^openblock
	sta	l1+2
	
	lda	#0
	sta	w5
	jsr	gip		get index into printers [l4]
	lda	gmyp_pblk.rgotten
	and	#$ff
	sta	w6		responses received
	
anl2	lda	w5		current index
	cmp	w6		compare against total
	bcs	anl4		if done
	jsr	ane		add next element	
	inc	w5		bump the counter
	bra	anl2		process next element	

anl3	rts

anl4	lda	w6
	sta	plistsize	new size of list
	jsr	ghp		get highlighted printer

anl6	pushl	#0		standard draw routine
	pushw	#1		
	pushl	#$ffffffff	use current listref
	pushw	#$ffff		use current listrefdesc
	pushw	plistsize	size of list
	pushl	plisthdl	handle of list control record
	_NewList2
				
	lda	plisthdl	lo word of list handle
	ldy	plisthdl+2	hi word of list handle
	jsr	sul		sort uppercase list
	
	stz	pindex		
	
	jsr	fsp		find starting printer

	pushw	pindex		index of printer, might be zero
	pushl	plisthdl
	_SelectMember2		scroll list so current zone is shown

	lda	#noHilite	assume laserwriter
	ldx	pindex
	bne	anl7		if a match was found
	
	lda	#inactiveHilite
anl7	brl	cbs		chnage button status and return
	
		

;;	asf - access setup file.
;
;	entry	(a) = operation to perform $2012 = read, $2013 = write.
;		(psetuppath..) = path to printer.setup file if local boot.
;		(prec..+printersetup.sizeof) = buffer to use.
;		Binary = filetype for binary files.
;		printersetup = record describing format of printer.setup file
;		sel2F = flag whether printer.setup dirty
;
;	exit	file is read or written.


asf	sta	w1		save disk op

	; network boot support added 2/3/91 by Monte Benaresh

	;brk $93

	cmp #$2013		do we intend to write the file?
	bne @read

	lda sel2F		did user select a printer?
	bne @cont		yes, update the file
@untouched
	clc
	rts			return without writing b/c no change
@cont
@read
	ldy	netbootF
	beq	asf_loc		if local boot
	
	_FSTSpecific  gup_pblk	get user path
	lda	gup_pblk+6
	sta	l1
	lda	gup_pblk+6+2
	sta	l1+2

;	copy over path to user's folder.

	shortmx
	lda	[l1]
	sta	w5		# to copy
	ldy	#2		source index
	ldx	#0		dest index
@cpy_loop
	cpx	w5
	bcs	up_done		if done
	lda	[l1],y
	sta	netobj+2,x	save here for now
	iny
	inx
	bra	@cpy_loop	move next char
	
;	add over the final ':Setup:ATINIT'

up_done	ldy	#0

@cpy2_loop
	cpy	#psetupnmL
	bcs	fn_done		if done
	lda	psetupname,y	get next char of ending string
	sta	netobj+2,x
	iny
	inx
	bra	@cpy2_loop		process next char
	
fn_done	lda	w5
	clc
	adc	#psetupnmL
	longmx
	and	#$ff
	sta	netobj		length of gs/os string
	lda	#netobj
	ldx	#^netobj
	bra asf_set_path
		
asf_loc
	;sta	open_pblk+4	lo ptr to pathname
	;stx	open_pblk+6	hi ptr to pathname




	lda	#psetuppath	path to printer.setup file
	ldx	#^psetuppath
asf_set_path	
	sta	open_pblk+4	lo ptr to pathname
	stx	open_pblk+6	hi ptr to pathname

	lda	#prec
	sta	rw_pblk+4	lo ptr to buffer
	lda	#^prec
	sta	rw_pblk+6	hi ptr to buffer
	
	lda	#printersetup.sizeof
	sta	rw_pblk+8	request count
	stz	rw_pblk+10
	
	stz	w3		close file when done
	lda	#Binary		type of file wanted
	brl	hfo		handle file operation and return


		
;;	cac - create actual controls.
;
;	entry	(ctllist..) = table of long ptrs to control templates.
;		[data1] = ptr to window.
;		(devices) = index of current printer type.
;		(edctl..) = template for line edit control.
;		(choosepr..) = template for the popup menu.
;		(iwebut..) = template for emulator button.
;		(plist..) = template for printer list.
;		(rtpbut..) = template for rename button.
;		(zlist..) = template for zone list.
;
;	exit	controls and created and program control falls into
;		cbs to set the buttons appropriately.
;		[edctl] = handle to lineedit control.
;		[iwebuthdl] = handle to emulator button control.
;		[plisthdl] = handle to printer list control
;		[rtpbuthdl] = handle to rename button control.
;		[zlisthdl] = handle to zone list control.


cac	lda	devices
	ina
	sta	choosepr+$20	set initial item in popup
	
	pha			space for result
	pha
	pushl	data1		window pointer
	pushw	#3		next item is a ptr to a list of template pointers
	pushl	#ctllist
	_NewControl2
	pla
	pla			don't care about result

	pha
	pha			space for result
	pushl	data1		window pointer
	pushw	#0		next item is a control
	pushl	#zlist
	_NewControl2
	pulll	zlisthdl	handle to control

	pha
	pha			space for result
	pushl	data1		window pointer
	pushw	#0		next item is a control
	pushl	#plist
	_NewControl2
	pulll	plisthdl	handle to control

	pha
	pha			space for result
	pushl	data1		window pointer
	pushw	#0		next item is a control
	pushl	#edctl		
	_NewControl2
	pulll	edithdl		handle to control

	pha
	pha			space for result
	pushl	data1		window pointer
	pushw	#0		next item is a control
	pushl	#iwebut
	_NewControl2
	pulll	iwebuthdl	handle to control
	
	lda	#inactiveHilite
	
;	routine falls into cbs and returns.  Obviously things will work better
;	if cbs is the next routine.
	

	
;;	cbs - change button status.
;
;	entry	(a) = new status for emulator button (inactive or nohilite).
;		(devices) = type of device.
;		[iwebuthdl] = handle to emulator button control.
;
;	exit	If the button is set to inactive then the emulator button is set 
;		to inactive.  If the button is set to nohilite then if the current 
;		device is a laserwriter then the emualtor is set to nohilite, else it is 
;		set to inactive.


cbs	pha			save on stack for emulator button
	cmp	#noHilite
	bne	cbs1		if making inactive
	lda	devices
	beq	cbs1		if laserwriter
	lda	#inactiveHilite
	sta	1,s		only laserwriter can use imagewriter emulator
	
cbs1	pushl	iwebuthdl
	_HiliteControl

;	to eliminate annoying flicker due to a possibly pending update
;	event, let's validate the button's control rect

	pei l1+2		;save old values just in case
	pei l1

	lda iwebuthdl
	sta l1
	lda iwebuthdl+2
	sta l1+2
	lda [l1]		;deref control handle
	clc
	adc #octlRect		;make ptr to rect
	tax
	ldy #2
	lda [l1],y
	bcc @no1_carry

	inc a
@no1_carry
	sta l1+2
	stx l1

	ldy #6			;init offset to last word
@rect_loop
	lda [l1],y
	sta tempRect,y
	dey
	dey
	bpl @rect_loop

	pla
	sta l1			;restore ptr
	pla
	sta l1+2

	pea tempRect>>16
	pea tempRect
	_ValidRect

	rts

tempRect
	ds.w 4			;space for copy of control rect
	

;;	cmd - close modal dialog.
;
;	entry	[l5] = dialog pointer.
;
;	exit	dialog is closed.
;		window highlighting enabled.


cmd	pushl	l5		close the dialog
	_CloseDialog
	brl	ewh		enable window highlighting and return


	
;;	cnd - check for new devices.
;
;	entry	(calcompF0 = 0 if last asynch call didn't complete.
;		(gymp_pblk..) = paramater block to get printers in selected zone.
;		(lookupF) = 0 if ok to do lookup.
;
;
;	exit	If (lookupF) is true then the current name lookup is killed and the
;		routine exits.  Else if the current call hasn't completed then
;		the routine simply exits.  If the call has completed, the retry counts
;		are updated and the list is updated if the size has changed.  If it finds
;		no printers it will retry once else will assume that is correct.  Then
;		a new lookup is started.


;;	alternate entrypoint:  cndE.
;
;	cndE will start a new lookup.



cnd	lda	lookupF
	beq	cnd1		if ok to do lookup
	brl	knl		kill name lookup and return
	
cnd1	lda	callcompF
	beq	cnd8		if previous call didn't complete
	
	lda	gmyp_pblk.retryper
	and	#$ff
	cmp	#5
	bcs	cnd2		if at maximum
	ina
	shortm
	sta	gmyp_pblk.retryper	increment retry period
	sta	gmyp_pblk.retrycnt	increment retry count
	longm
	
cnd2	lda	gmyp_pblk.rgotten  # found so far
	and	#$ff		255 max
	cmp	plistsize
	bcs	cnd3		if found something

	dec	cnda		
	bpl	cnd4		if should try again
	
cnd3	lda	#1
	sta	cnda		reset retry counter
		
	jsr	anl		add names to list
	
;	start another lookup.	

cndE
	
cnd4	jsr	ghz		get highlighted zone
	beq	cnd5		if no other zones	
	dea
	jsr	giz		get index into zones [l4]
	
	lda	#myzonename
	sta	l2
	lda	#^myzonename
	sta	l2+2
	
	ldy	#memrec.memptr
	lda	[l4],y
	sta	l1
	iny
	iny
	lda	[l4],y
	sta	l1+2
		
	jsr	cus		comapre uppercase strings
	bcc	cnd6		if didn't select the current zone
	
cnd5	lda	#asterisk	the asterisk represents the current zone in search
	sta	l3
	lda	#^asterisk
	sta	l3+2
	bra	cnd7
	
cnd6	lda	l1		save ptr to zone name to search
	sta	l3
	lda	l1+2
	sta	l3+2
	
cnd7	stz	callcompF 	call not completed
	brl	snl		start name lookup and return
	
cnd8	rts			

		
cnda	dc.w	1
	


;;	cps - copy pascal string.
;
;	entry	[l1] = ptr to destination string
;		[l2] = ptr to source string.
;
;	exit	string is copied.


cps	ldx	#$ff

cpsE	stx	w1		save max # of chars to copy
	shortmx
	lda	[l2]
	sta	w2		length of source string
	ldy	#0
	
cps1	sty	w3		current index
	cpy	w1
	bcc	cps2		if not past max count
	bne	cps4		if past max count
	
cps2	cpy	w2
	bcc	cps3		if not past source string length
	bne	cps5		if done
	
cps3	lda	[l2],y		get char from source string
	sta	[l1],y		place into destination string
	iny
	bne	cps1		if didn't wrap, process next char
	bra	cps5		finish things up
	
cps4	dey
	tya
	sta	[l1]		replace new length

cps5	longmx
	rts



;;	cst - create static text.
;
;	entry	[x,y] = ptr to control.
;		[data1] = window ptr.
;
;	exit	control is created.


cst	pha			space for result
	pha
	pushl	data1		window pointer
	pushw	#0		next item is a ptr to a control
	phy			hi word of control
	phx			lo word of control
	_NewControl2		create the control
	pla
	pla			don't care about result
	rts
	
	
	
;;	ctp - close the printer.
;
;	entry	(popen_pblk.refnum) = refnum of open connection.
;
;	exit	printer connection is closed.


ctp	ldx	#punload_pblk
	ldy	#^punload_pblk
	jsl	$e11014		close all printer connections
	rts

	
;;	cus - compare uppercase strings.
;
;	entry	[l1] = ptr to first pascal string.
;		[l2] = ptr to second pascal string.
;
;	exit	strings are compared case insensitive.
;		(c) set if strings are equal.


cus	shortmx
	lda	[l1]
	sta	w1
	cmp	[l2]
	bne	cus4		if string lengths are different	
	
	ldy	#0
cus1	iny
	sty	w3
	lda	[l1],y
	cmp	#'a'
	bcc	cus2		if not lowercase
	cmp	#'z'+1
	bcs	cus2		if not lowercase
	sbc	#$20-1		(c) clear
	
cus2	sta	w2		save
	lda	[l2],y
	cmp	#'a'
	bcc	cus3		if not lowercase
	cmp	#'z'+1
	bcs	cus3		if not lowercase
	sbc	#$20-1		(c) clear
	
cus3	cmp	w2
	bne	cus4		if strings don't match
	cpy	w1
	bcc	cus1		if more to check
	longmx
	rts			(c) set, strings match
	
cus4	longmx
	clc
	rts			strings don't match
	
	
	
;;	dah - dereference a handle.
;
;	entry	[a,x] = handle to dereference.
;
;	exits	(a) = upper word of dereferenced handle.
;		[l1] = dereferenced handle


dah	sta	l2
	stx	l2+2
	lda	[l2]
	sta	l1		lo ptr
	ldy	#2
	lda	[l2],y
	sta	l1+2		hi ptr
	rts

		
	
;;	dam - display alert message.
;
;	entry	[a,y] = ptr to message.
;
;	exit	centered caution alert displayed.


;;	alternate entry point:  damE.
;
;	entry	[a,y] = ptr to message.
;
;	exit	centered stop alert is displayed.


dam	sec

	skip1			

damE	clc
	ror	damF		save type wanted for now
	sta	dammsg		save message ptr
	sty	dammsg+2
	_InitCursor		make sure cursor is reset
	ldx	#(320-damw)/2
	lda	screenF
	bpl	dam1		if 320 mode
	ldx	#(640-damw)/2
dam1	stx	damtemp+2	left edge
	txa
	clc
	adc	#damw
	sta	damtemp+6	right edge

	pha
	pushl	#damtemp	template
	pushl	#0		no filter
	
	jsr	dwh		disable window highlighting
	
	lda	damF
	bpl	dam2		if user wants a stop alert
	
	_CautionAlert
	bra	dam3

dam2	_StopAlert	
	
dam3	jsr	ewh		enable window highlighting
	
	pla			ignore item hit but get it off the stack
	rts
		

damt	equ	60
damb	equ	140
damh	equ	damb-damt
daml	equ	170
damr	equ	470
damw	equ	damr-daml
damtemp dc.w	damt,daml,damb,damr
	dc.w	2376		id
	dc.b	$80
	dc.b	$80
	dc.b	$80
	dc.b	$80
	dc.l	okitem
	dc.l	damstr
	dc.l	0

okitem	dc.w	ok		okay button
	dc.w	damh-17,190,damh-4,260
	dc.w	buttonItem
	dc.l	oktext,0,0

damstr	dc.w	1348		text item
	dc.w	5,75,5+6*9,280
	dc.w	StatText+ItemDisable
dammsg	dc.l	0,0,0
	
damF	dc.w	0	



;;	dwh - disable window highlighting.
;
;	entry	none.
;
;	exit	window highlighting disabled.


dwh	pha
	pushw	#$0001		flag for disabling window highlighting
	_WindowGlobal
	pla
	rts



;;	dzl - draw zone list.
;
;	entry	(zindex) = item # of selected zone.
;		[zlisthdl] = handle to zone list.
;
;	exit	list is redrawn so current item is displayed.


dzl	pushw	zindex		index of zone
	pushl	zlisthdl
	_SelectMember2		scroll list so current zone is shown
	rts
	
	

;;	ewh - enable window highlighting.
;
;	entry	none.
;
;	exit	window highlighting enabled.


ewh	pha
	pushw	#$FFFE		flag for enabling window highlighting
	_WindowGlobal
	pla
	rts



;;	fsp - find selected printer.
;
;	fsp is called when we have a new printer list.  It goes through the list
;	to see if the default printer specified in the printer.setup file is 
;	in this list.  If it is, then the routine selects the printer.
;
;
;	entry	(namesbuffer..) = list manager list for printer list.
;		(plistsize) = size of printer list for zone.
;		(prec..) = info from printer.setup file.
;
;	exit	If the specified printer in the printer.setup file is found then
;		printer drivers are unloaded.
;		entry is selected.
;		[cszone] = ptr to zone that is selected.
;		(pindex) = index of selected printer.
;		[pmatch] = ptr to entry that is selected.
;		(selF) = 1.


fsp0	rts


fsp	stz	w4			init counter	
	lda	plistsize		get size of list
	sta	w5			# to check
	lda	#namesbuffer
	sta	l3
	lda	#^namesbuffer
	sta	l3+2
	
fsp1	lda	w4			get index
	cmp	w5			compare against total
	bcs	fsp0			if not found
	inc	w4			bump up ctr
	
	ldy	#memrec.memptr
	lda	[l3],y
	sta	l1			lo ptr to name
	
	iny
	iny
	lda	[l3],y
	sta	l1+2			hi ptr to name
		
	lda	#prec.netname		name of printer specified in printer.setup
	sta	l2
	lda	#^prec.netname
	sta	l2+2
	
	jsr	cus			compare uppercase strings
	bcs	fsp2			if matched
	brl	fsp6

fsp2	lda	prec.zone
	and	#$ff
	beq	fsp3			if no zone named in file
	
	lda	cszone
	clc
	adc	#memrec.memptr
	sta	l1			lo word of ptr to selected zone record
	lda	cszone+2
	adc	#0
	sta	l1+2			hi word of ptr to selected zone record

	ldy	#memrec.memptr
	lda	[l1],y
	tax
	iny
	iny
	lda	[l1],y
	sta	l1+2
	stx	l1			[l1] = ptr to currently selected zone
	
	lda	#prec.zone
	sta	l2			
	lda	#^prec.zone
	sta	l2+2
	jsr	cus			compare uppercase strings
	bcc	fsp6			if zones don't match	

fsp3
	jsr	gcp			get and compare printer type
	bcc	fsp6			if device types don't match
	
	lda	prec.appletlk
	beq	fsp6			if not appletalk printer

	shortmx
	lda	#memselected
	ldy	#memrec.memflag
	sta	[l3],y			mark it as selected
	longmx
	
	lda	#1
	sta	selF			flag that something is selected
	
	lda	l3
	sta	pmatch			lo word of ptr
	lda	l3+2
	sta	pmatch+2		hi word of ptr
	
	lda	w4			current index in list (has been incremented)
	sta	pindex			item that is selected in list
	jsr	ubd			unload both drivers
	bra	fsp7			
	
fsp6	shortmx
	ldy	#memrec.memflag
	lda	#0
	sta	[l3],y			mark it as not selected
	longmx
	
fsp7	lda	l3
	clc
	adc	#memrec.sizeof
	sta	l3
	bcc	fsp8			if didn't cross bank
	inc	l3+2
fsp8	brl	fsp1



;;	fsz - find starting zone in list.
;
;	This routine is called to see if a specified zone is in our zone list.
;	If the zone is in the list, it is selected.
;
;
;	entry	(zonebuffer..) = list manager list containing zone list.
;		(zonename..) = name of zone to look for.
;		(zlist..) = zone list control template.
;
;	exit	If the zone is found:
;		zone is selected.
;		[cszone] = ptr to zone in list.
;		[lszone] = ptr to zone in list.
;		(zindex) = index of zone that was selected.


fsz	stz	w4		init counter
	lda	zlist+$1a	get list size
	sta	w5		# to check
	lda	#zonebuffer
	sta	l3
	lda	#^zonebuffer
	sta	l3+2
	lda	#zonename
	sta	l2
	lda	#^zonename
	sta	l2+2
	
fsz1	lda	w4		get index
	cmp	w5		compare against total
	bcs	fsz3		if not found
	inc	w4
	
	ldy	#memrec.memPtr
	lda	[l3],y
	sta	l1
	iny
	iny
	lda	[l3],y
	sta	l1+2
		
	jsr	cus		compare uppercase string
	bcs	fsz2		if found a match

;	move to next element.

	lda	l3
	adc	#memrec.sizeof	(c) clear
	sta	l3
	bcc	fsz1		if didn't cross bank
	inc	l3+2
	bra	fsz1		process next entry
	
;	found a match.

fsz2	lda	l3
	sta	cszone		save current zone selection
	sta	lszone
	lda	l3+2
	sta	cszone+2
	sta	lszone+2
	
	shortmx
	ldy	#memrec.memflag
	lda	#memselected
	sta	[l3],y		select the current printer
	longmx
	
	lda	w4
	sta	zindex		index of zone in list	
	
fsz3	rts


	
;;	gap - get actual pointer.
;
;	gap will retrieve the pointer to a string in an entry in a 
;	list manager list.
;
;
;	entry	[l4] = ptr to this entry in list manager list.
;
;	exit	[l2] = ptr to string for this item.


gap	ldy	#memrec.memptr
	lda	[l4],y
	sta	l2		low owrd of ptr
	iny
	iny
	lda	[l4],y
	sta	l2+2		high word of ptr
	rts


;;	gcp - get and compare printer type.
;
;	entry	(prec.printer..) = name of last selected printer type.
;
;	exit	(c) set if the name of the last selected printer type is same as current.


gcp	jsr	gdt		get device type [l2]	
	lda	#prec.printer
	sta	l1
	lda	#^prec.printer
	sta	l1+2
	brl	cus		compare uppercase strings and return


;;	gdt - get device type.
;
;	entry	(devices) = index of printer type in table.
;		(typeptr..) = ptrs to printer type names.
;
;	exit	[l2] = name of current printer type.


gdt	lda	devices		type of printer
	asl	a
	tax
	lda	typeptr,x
	sta	l2
	lda	#^typeptr	bank
	sta	l2+2
	rts


;;	gpn - get printer names.
;
;	entry	(zonename..) = pascal string containing zone name to look in.
;
;	exit	name lookup is started.


gpn	lda	#zonename
	sta	l3
	lda	#^zonename
	sta	l3+2
	brl	snl		start name lookup and return

	
;;	gsd - get starting device.
;
;	entry	none.
;
;	exit	(devices) = 2 if printer is imagewriter LQ.
;		(devices) = 1 if printer is an imagewriter.
;		(devices) = 0 if printer is laserwriter, or if
;			      none of the others are found.
;		(c) set if found device in printer.setup file.


gsd	ldx	#0

gsd1	stx	devices		index
	jsr	gcp		get and compare printer type
	bcs	gsd2		if found starting type
	ldx	devices
	inx
	cpx	#2+1
	bcc	gsd1		if more to check
	stz	devices		couldn't find it so default to laserwriter
	clc
	
gsd2	rts	
	
	
	
;;	gsz - get starting zone.
;
;	entry	(appletalk..) = pascal string of "Appletalk".
;		(myzonename..) = pascal string of user's zone.
;		(prec.appletlk) = 0 if not an appletalk printer.
;		(prec.port..) = pascal string describing connection.
;		(prec.zone..) = pascal string of printer's zone in file.
;
;	exit	
;
;	if the printer.setup file shows appletalk on, the current printer,
;	the port is correct, a zone is specified and the user has more than one
;	zone, then set 'zonename' equal to the zone in the printer.setup file.  
;
;	else, set 'zonename' equal to myzonename.
;
;
;	if no zone in the printer.setup file and there is a current zone, copy the zone
;	name into lzwpns.  Else if there is no current zone and there is a zone
;	specified in the printer.setup file, remove the name from prec and lzwnps, else
;	set lzwpns to the zone specified in the printer.setup file.


gsz	lda	prec.appletlk
	beq	gsz1		if not appletalk printer selected
	
	jsr	gcp		get and compare printer type
	bcc	gsz1		if not same type of printer
	
	lda	#prec.port
	sta	l1
	lda	#^prec.port
	sta	l1+2
	lda	#appletalk	string 'Appletalk'
	sta	l2
	lda	#^appletalk
	sta	l2+2
	jsr	cus		compare uppercase strings
	bcc	gsz1		if not appletalk printer
	
	lda	myzonename
	and	#$ff
	beq	gsz1		if there is no other zones
	
	lda	prec.zone
	and	#$ff
	beq	gsz1		if no zone specified in file

;	use the zone in the printer.setup file as the starting zone.

	lda	#prec.zone
	sta	l2
	lda	#^prec.zone
	sta	l2+2
	bra	gsz2
		
;	use my current zone as the starting zone.

gsz1	lda	#myzonename
	sta	l2
	lda	#^myzonename
	sta	l2+2
	
gsz2	lda	#zonename
	sta	l1
	lda	#^zonename
	sta	l1+2
	jsr	cps		copy pascal string

	lda	#lzwpns
	sta	l1		dest loc for eventual copy
	lda	#^lzwpns
	sta	l1+2
	
	lda	zonename
	and	#$ff
	beq	gsz3		if don't have a zone name
	
	lda	prec.zone
	and	#$ff
	bne	gsz4		if a zone is specified in printer.setup
		
	lda	#zonename	source loc
	ldx	#^zonename
	bra	gsz6		copy zonename to lzwpns
	
gsz3	lda	prec.zone
	and	#$ff
	beq	gsz5		if no name in setup file
	
gsz4	lda	zonename
	and	#$ff
	bne	gsz5		if a zonename is present
	
	stz	prec.zone	no zone name
	stz	lzwpns		no zone name
	bra	gsz7
	
gsz5	lda	#prec.zone
	ldx	#^prec.zone

gsz6	sta	l2		lo source ptr
	stx	l2+2		hi source ptr
	brl	cps		copy pascal string and return
	
gsz7	rts
	
	

;;	ghl - get handle and length of text.
;
;	entry	[edithdl] = handle to linedit control.
;
;	exit	(a) = length of text.
;		[l1] = ptr to text.


ghl	lda	edithdl		
	ldx	edithdl+2
	jsr	dah		derefence a handle
	pha			space on stack
	ldy	#octlData+2
	lda	[l1],y
	pha			hi word
	tax			save for later
	dey
	dey
	lda	[l1],y
	pha			lo word
	
	pha			space on stack
	pha			space on stack
	phx			hi word
	pha			lo word
	_LEGetTextHand
	pla			lo byte of handle to text
	plx			hi word of handle to text
	jsr	dah		derefence a handle
	_LEGetTextLen		data is already on stack
	pla			length of field
	rts



;;	ghp - get highlighted printer.
;
;	entry	[plisthdl] = handle to printer list control.
;
;	exit	(a) = item # of highlighted printer.


ghp	pha			space for call
	pushw	#0		start from top of list
	pushl	plisthdl	use printer list
	_NextMember2
	pla
	rts



;;	ghz - get highlighted zone.
;
;	entry	[zlisthdl] = handle to zone list control.
;
;	exit	(a) = item # of highlighted zone.

	
ghz	pha			space for result
	pushw	#0		start from top of list
	pushl	zlisthdl
	_NextMember2
	pla			selected zone, or 0 if none selected
	rts
	
	
	
;;	gip - get index into printers.
;
;	entry	(a) = index of desired printer.
;		(namesbuffer..) = printer list definition.
;
;	exit	[l4] = ptr to entry in namesbuffer list.


gip	jsr	goa		get offset into array
	clc
	adc	#namesbuffer
	sta	l4		low word of ptr
	tya
	adc	#^namesbuffer
	sta	l4+2		high word of ptr
	rts
	
	
	
;;	giz - get index into zones.
;
;	entry	(a) = index of desired zone.
;		(zonebuffer..) = zone list definition.
;
;	exit	[l4] = ptr to entry in zonebuffer list.


giz	jsr	goa		get offset into array	
	clc
	adc	#zonebuffer
	sta	l4		low word of ptr
	tya
	adc	#^zonebuffer
	sta	l4+2		hi word of ptr
	rts



;;	gmz - get my zone.
;
;	entry	(gmyz_pblk..) = parameter block to get current zone.
;
;	exit	(myzonename..) = pascal string containing user's zone.


gmz	ldx	#gmyz_pblk
	ldy	#^gmyz_pblk
	jsl	$e11014	
	
gmz1	lda	gmyz_pblk+2
	cmp	#busy
	beq	gmz1		if request not finished yet
	tay
	beq	gmz2		if no error	
	stz	myzonename	assume no name for zone
gmz2	rts	
	


;;	goa - get offset into array.
;
;	entry	(a) = offset desired.
;		memrec.sizeof = size of each element
;
;	exit	[l4] = offset of entry


goa	pha
	pha			space for call
	pha			element wanted
	pushw	#memrec.sizeof
	_Multiply
	pla
	sta	l4		low word of ptr
	ply
	sty	l4+2		high word of ptr
	rts


	
;;	gzl - get zone list.
;
;	entry	(ginfoprarams..) = parameter block to get appletalk info.
;		maxzones = max # of zones to worry about.
;		namelen = max length of object names.
;		(zlist..) = zone list control template.
;		(zonelist_pblk..) = parameter block to get zone list.
;
;	exit	[cszone] = 0.
;		(devices) = starting device.
;		(ldwpns) = starting device.
;		[lszone] = 0.
;		[zonenamehdl] = handle to memory for zone list.
;		(zonebuffer..) = list mamanger list containing zones.
;
;		if there is for memory for zonenamehdl, routine exits to hom.


gzl	
	shortm
	lda	GinfoParams+getinfo.ABridge
	sta	bridge		
	sta	zonelist_pblk.brnode
	longm

	lda zonenamehdl
	ora zonenamehdl+2	;do we have this handle yet?
	bne gzl_haveHndl	;yes, don't allocate again

	lda	#maxzones*(namelen+1+5)  	
gzl1	pha			space for result
	pha			space for result
	pushw	#0		hi word of size to create
	pha			lo word of size to create
	pha			space for memory id
	_MMStartup		put control panel mem ID on stack
	pushw	#attrLocked		 
	pha
	pha
	_NewHandle
	pla
	sta	zonenamehdl
	pla
	sta	zonenamehdl+2
	bcc	gzl3		if no memory problems
	
gzl2	brl	hom		handle out of memory and return

gzl_haveHndl
gzl3	lda	bridge
	beq	gzl6		if no bridge

	jsr	gmz		get my zone
	lda	#3
	sta	w1

gzl4	lda	zonenamehdl
	ldx	zonenamehdl+2
	jsr	dah		derefence a handle
	sta	zonelist_pblk.bufptr+2    hi word
	lda	l1
	sta	zonelist_pblk.bufptr	  lo word
	
gzl5	ldx	#zonelist_pblk
	ldy	#^zonelist_pblk
	jsl	$e11014
		
	lda	zonelist_pblk.numberzones  
	and	#$ff		only 255 possible
	bne	gzl6		if got some zones
	dec	w1
	bne	gzl5		if should try again

gzl6	sta	zlist+$1a	size of list - total # of zones that were found


;	next 3 lines moved to ccc so this routine could be used by rtc

	;jsr	gsd		get starting device
	;lda	devices
	;sta	ldwpns		last device with printer name selected
	
	jsr	gsz		get starting zone
	
;	now create all of the pointers to the pascal strings in zonenames.

	lda	zonenamehdl
	ldx	zonenamehdl+2
	jsr	dah		dereference a handle

	lda	#zonebuffer
	sta	l2
	lda	#^zonebuffer
	sta	l2+2
	stz	w2		current index into list
	
gzl9	ldy	#memrec.memptr
	lda	l1
	sta	[l2],y		low ptr to this string
	iny
	iny
	lda	l1+2
	sta	[l2],y		high ptr to this string
	
	shortmx
	ldy	#memrec.memflag
	lda	#0
	sta	[l2],y		entry is not selected
	longmx
	
	lda	l2
	clc
	adc	#memrec.sizeof
	sta	l2
	bcc	gzl10
	inc	l2+2
gzl10	jsr	mneE		move to next element
	lda	w2		current index into zone list
	ina
	sta	w2
	cmp	zlist+$1a	compare against total zones
	bcc	gzl9		if more zones to do
		
	lda	#1
	sta	zlist+$20	start at top of list
	
	stz	cszone
	stz	cszone+2	nothing is currently selected
	
	stz	lszone
	stz	lszone+2	nothing was selected	
	rts
	

	
;;	heb - handle emulator button.
;
;	entry	user has clicked on the imagewriter emulator button.
;
;	exit	the current name lookup is killed then the program 
;		attempts to download the emulator.


heb	lda	#$ffff
	sta	lookupF
	jsr	knl		kill name lookup
	brl	cfe		check for emulator and return



;;	hfo - handle file operation.
;
;	entry	(a) = type of file wanted.
;		appletalkfile = file type for appletalk files.
;		(close_pblk..) = parameter block for closing gs/os file.
;		(diskerror) != 0 if get error previously.
;		(emess2..) = volume not found error message.
;		(emess3..) = access denied error message.
;		(emess4..) = i/o error message.
;		(emess5..) = write protect error message
;		(emess6) = disk full error message.
;		(open_pblk..) = parameter block for gs/os open call.
;		(rw_pblk..) = parameter block for gs/os read/write calls.
;		(sm_pblk..) = parameter block for setting a file mark.
;		(w1) = gs/os command, read = $2011, write = $2012
;		(w3) != 0 if file is to be kept open after operation.
;
;	exit	(c) set if file operation couldn't be performed.
;		(close_pblk..) has refnum set so the file can be closed.
;		(diskerror) = error #,  =1 if user quit.
	
	
hfo	sta	w2		save type of file wanted for now
	lda	#1
	sta	w4		assume no error
	stz diskerr		clear error word
	
hfo1	_OpenGS  open_pblk
	ldx	open_pblk+2	file reference number
	stx	close_pblk+2
	stx	sm_pblk+2
	stx	rw_pblk+2
	bcc	hfo3		if no problems
hfo_open_err
	stz	w4		flag that an error occurred
	stz	close_pblk+2	clear ref num so we won't close
	cmp #fileNotFound
	bne @err2
@not_there
	ldx w2			get type of file
	cpx #Binary		is it printer.setup?
	bne @err2		no, continue error handling
@psetup_missing
	lda w1			check caller command
	cmp #$2013		do we intend to write?
	beq @create		if writing, create it
@clear	;			no printer.setup to read, so clear rec in mem
	ldx #printersetup.sizeof-2	point to last word
@clr_loop
	stz prec,x
	dex
	dex
	bpl @clr_loop

	stz prec		clear 1st byte in case size was odd number
	bra hfo1a		return error if anyone cares
@create
	lda	open_pblk+4	lo ptr to pathname
	ldx	open_pblk+6	hi ptr to pathname
	sta create_pblk+2	copy to create params
	stx create_pblk+2+2
	_CreateGS create_pblk
	bcc hfo1		try again to open it
	bra hfo_open_err	handle error
@err2
	cmp	#volnotfound
	bne	hfo2		if not a volume not found problem

	lda	#emess2
	ldy	#^emess2

	jsr	hre		handle recoverable disk error
	tax
	bmi	hfo1a		if user wants to quit
	bra	hfo1		try again

hfo1a	sec
	ldx	#1
	stx	diskerr
	rts

hfo2	cmp	#invalidAccess
	bne	hfo4		if not an invalid access problem, give generic message
	lda	#emess3		'Access Denied error.  É'
	bra	hfo5		uses same bank as emess4
	
hfo3	lda	open_pblk+$e	get filetype of file
	cmp	w2
	beq	hfo6		if found the correct file
	_CloseGS  close_pblk	make sure it gets closed

hfo4	lda	#emess4		'Havng trouble accessing printer data files É'
hfo5	ldy	#^emess4
	jsr	dam		display alert message
	bra	hfo10a		finish things up

hfo6	lda	w2
	cmp	#appletalkfile
	bne	hfo7		if not atint file, no need to set mark
	_SetMarkGS  sm_pblk
	bcs	hfo4		if an error occured of some sort - should never happen	
	
hfo7	pushl	#rw_pblk	parameter block
	;lda	w1
	pushw	w1		either $2012 or $2013
	jsl	stack_entry	make the call
	bcc	hfo11		if no error	
	stz	w4		flag an error
	cmp	#$2b
	bne	hfo7a		if not a write-protect error
	
	lda	#emess5
	ldy	#^emess5	
	jsr	hre		handle recoverable error
	tax
	bmi	hfo10a		if user wants to quit
	bra	hfo7		try again

hfo7a	cmp	#invalidAccess
	bne	hfo8		if not an invalid access problem

	lda open_pblk+$C	;get access word
	and #$0002		;check write enable
	bne @vol_access_err	;not locked file, must be access denial
@file_locked
	lda #fileLockedMsg
	ldy #^fileLockedMsg	;tell user file is locked
	bra hfo_show
@vol_access_err

	lda	#emess3		'Access Denied' error
	bra	hfo10		
	
hfo8	cmp	#volumeFull
	bne	hfo9		if volume full error
	lda	#emess6		'The disk is full.  É'
	bra	hfo10		uses same bank as emess4
	
hfo9	lda	#emess4
hfo10	ldy	#^emess4
hfo_show
	jsr	dam		display alert message
	_CloseGS  close_pblk	make sure it gets closed
	
hfo10a	lda	#1
	sta	diskerr		flag error for next file
	
hfo11	ldx	w4
	bne	hfo13		if no error ever occurred
	pushl	#cprect
	_InvalRect		invalidate the control panel rectangle
hfo13	lda	w3
	bne	hfo14		if user wants file left open
	lda	close_pblk+2	check if we ever opened
	beq hfo14		invalid ref num, don't close
	_CloseGS  close_pblk
hfo14	ldx	diskerr		error flag
	rts

	
	
;;	hom - handle out of memory.
;
;	entry	program wasn't able to get memory wanted.
;
;	exit	memory dialog displayed and removed.
;		(atalkF) = 0.


hom	stz	atalkF		pretend there is no appletalk
	lda	#emess7		'There is not memory to continue'
	ldy	#^emess7
	brl	damE		display stop alert and return



;;	hpe - handle pap error.
;
;	entry	(a) = error.
;		(emess10..) = error message for when printer is not responding.
;		(emess11..) = error message for when network error.
;		(emess13..) = error message for when printer can't be found.
;
;	exit	error message is displayed in a centered stop alert.
	

hpe	cmp	#$805
	bne	hpe1		if not a name not found error
	cmp	#$807
	bne	hpe1		if not a network error
	lda	#emess13	'The selected printer could not be found'
	bra	hpe3

hpe1	cmp	#$808
	bne	hpe2		if not a server not responding error
	lda	#emess10	'The selected printer is not responding...'
	bra	hpe3

hpe2	lda	#emess11	'A network error has occurred...'

hpe3	ldy	#^emess11	bank is the same for all messages
	brl	damE		display alert message and return



;;	hpl - hit printer list.
;
;	entry	user clicked in an entry in the printer list.
;		Atalkon = flag to indicate that appletalk is on.
;		(devices) = index of device type.
;		[plisthdl] = handle to printer list control.
;		[zlisthdl] = handle to zone list control.
;
;	exit	emulator button is highlighted if laserwriter.
;		(ldwpns) = (devices).
;		(lzwpns..) = last zone with printer name selected.
;		(prec.appletlk) =  Atalkon.
;		(prec.netname..) = pascal string containing printer name.
;		(sel2F) = 1.


hpl	jsr	ghp		get highlighted printer
	beq	hpl2		if nothing selected, exits
	
	ldx	#1
	stx	selF		flag that a selection was made
	stx	sel2F		flag that printersetup might have changed
	
	dea
	jsr	gip		get index into printers  [l4]
	
	lda	#noHilite
	jsr	cbs

	jsr	gap		get actual pointer
	
	lda	#prec.netname
	sta	l1
	lda	#^prec.netname
	sta	l1+2
	jsr	cps		copy pascal string
	
	stz	prec.zone
	stz	lzwpns
	
	jsr	ghz		get highlighted zone
hpl2	beq	hpl3		if no zone is selected
	
	dea
	jsr	giz		get index into zones  [l4]
	
	jsr	gap		get actual pointer
	
	lda	#lzwpns		last zone with printer name selected
	sta	l1
	lda	#^lzwpns
	sta	l1+2
	jsr	cps		copy pascal string
	
	lda	#prec.zone
	sta	l1
	lda	#^prec.zone
	sta	l1+2
	jsr	cps		copy pascal string

hpl3	lda	devices
	sta	ldwpns		last device with printer name selected

	; next code added 9/16/91 by Monte Benaresh
	cmp #2			ImageWriterLQ?
	bne @not_LQ

;	For ImageWriterLQ we leave our "internal" version of the printer
;	name in the printer.setup image, which is "LQ".

	lda #$0002
	sta prec.printer	set length byte & next byte as garbage
	lda #'QL'		'LQ'
	sta prec.printer+1
	bra @name_done
@not_LQ
	jsr gdt			get device type in [l2]
	lda	#prec.printer
	sta	l1
	lda	#^prec.printer
	sta	l1+2
	jsr	cps		copy pascal string
@name_done
	lda	#ATalkOn
	sta	prec.Appletlk
	rts

	
	
;;	hpu - hit pop up.
;
;	entry	user has selected an item from the popup.
;		[data1] = handle to popup control.
;		(devices) = current device type.
;		(ldwpns) = last device with printer name selected.
;		(lzwpns..) = last zone with printer name selected.
;		(selF) != 0 if selection was made.
;
;	exit	if the user chose the same as current nothing is done. Else a new printer
;		list is generated for this zone.


hpu	pha			space for result
	pushl	data1		ptr to control
	_GetCtlValue
	pla
	dea
	cmp	devices
	beq	hpu9		if the same as previous printer type
	
	sta	devices		new device type to use
	
	lda	ldwpns		last device with printer name selected
	cmp	devices
	bne	hpu1		if not the same as selected device
	
	lda	SelF
	beq	hpu1		if no selection

	pha			space for result
	pushl	zlisthdl	handle to list control
	_ResetMember2		unselect the current zone

	pushl	zlisthdl	
	_DrawMember2		redraw the zone unselected
	
	lda	#lzwpns
	sta	l2
	lda	#^lzwpns
	sta	l2+2
	lda	#zonename
	sta	l1
	lda	#^zonename
	sta	l1+2
	jsr	cps		copy pascal string
		
	jsr	fsz		find starting zone
	jsr	dzl		draw zone list

hpu1	jsr	ghz		get highlighted zone
	beq	hpu8		if no zones
	
	stz	lszone
	stz	lszone+2	force it to recalculate
	brl	hzlE		handle zone list  (will get new list of printers) and return

hpu8	brl	hzlEE		handle zone list and return

hpu9	rts



;;	hre - handle recoverable disk error.
;
;	entry	[a,y] = ptr to message.
;
;	exit	centered stop alert displayed.
;		(a) = 0 if user wants to try again.
;		(a) = $ffff if user wants to quit.


hre	sta	hremsg		lo ptr to text
	sty	hremsg+2	hi ptr to text
	jsr	dwh		disable window highlighting
	_InitCursor	
	ldx	#(320-hrew)/2
	lda	screenF
	bpl	hre1		if 320 mode
	ldx	#(640-hrew)/2
hre1	stx	hredlg+2
	txa
	clc
	adc	#hrew
	sta	hredlg+6

	pha
	pushl	#hredlg		alert template
	pushl	#0		no filter
	_StopAlert
	pla			get item hit
	cmp	#ok
	bne	hre2		if user wants to quit
	lda	#0
	rts

hre2	lda	#$ffff
	rts


hrel	equ	10
hrer	equ	310
hrew	equ	hrer-hrel
hret	equ	60
hreb	equ	130
hreh	equ	hreb-hret
hredlg	dc.w	hret,hrel,hreb,hrer
	dc.b	$b1,$82
	dc.b	$80,$80,$80,$80
	dc.l	hretext,hrecanc,hreok,0

hreok	dc.w	ok		ok button
	dc.w	hreh-17,165,hreh-4,165+100
	dc.w	ButtonItem
	dc.l	tryagain,0,0

hrecanc dc.w	cancel		quit button
	dc.w	hreh-17,35,hreh-4,35+100
	dc.w	ButtonItem
	dc.l	quit,0,0

hretext dc.w	3		text item
	dc.w	5,75,5+4*9,hrew
	dc.w	StatText+ItemDisable
hremsg	dc.l	0		ptr to text message
	dc.l	0,0

	

;;	hzl - hit zone list.
;
;	entry	user clicked in the zone list to select a zone.
;		[lszone] = ptr to last selected zone.
;
;	exit	if the selected zone hasn't changed, routine just returns, else
;		the current name lookup is stopped.
;		a new name lookup is started with the selected zone.
;		buttons are inactivated.
;		[lszone] = ptr to zone the user clicked on.
;		(pindex) = 0.
;		[pmatch] = 0.
;		(plistsize) = 0.


;;	alternate entry point:  hzlE.
;
;	(a) = item # of zone.


;;	alternate entry point:  hzlEE.
;
;	force routine to kill current lookup and restart a name lookup.


hzl	jsr	ghz		get highlighted zone


hzlE	dea
	jsr	giz		get index into zones [l4]
	ldx	l4
	stx	cszone		lo ptr to record of selected zone
	lda	l4+2
	sta	cszone+2	hi ptr to record of selected zone
	cmp	lszone+2
	bne	hzl1		if not the same zone
		
	cpx	lszone
	beq	hzl2		if selected the same zone as before	

hzl1	stx	lszone
	sta	lszone+2	save for next comparison

hzlEE	jsr	knl		kill name lookup
	stz	pmatch
	stz	pmatch+2	
	stz	pindex		nothing selected
	stz	plistsize	flag nothing valid
		
	pushl	#0		use standard
	pushw	#1		item # of first displayed member
	pushl	#$ffffffff	use current value for listref
	pushw	#$ffff		no change to listref descriptor
	pushw	#0		size of list
	pushl	plisthdl	handle to list
	_NewList2		

	lda	#inactiveHilite
	jsr	cbs		change button status
	brl	cndE		check for new devices and return
	
hzl2	rts	


;;	iai - is appletalk active.
;
;	entry	(iaia..) = gs/os parameter block to get the device # of appletalk driver.
;
;	exit	(c) set if appletalk driver isn't active.
;		(atalkF) = 0 if no appletalk, else = 1.

iai	_GetDevNumberGS  iaia
	lda	#1		asssume found
	bcc	iai1		if no error - appletalk active
	dea
iai1	sta	atalkF		set flag
	rts


iaia	dc.w	2		two parameters
	dc.l	iaib		ptr to device name
	ds.b	2		result - not used
	
iaib	dc.w	iaiblen		
	dc.b	'.APPLETALK'
iaiblen	equ	*-iaib-2	


;;	inb - is network boot.
;
;	entry	(inba..) = gs/os parameter block to get info on boot device.
;
;	exit	(c) set if network boot.
;		(netbootF) != 0 if this was a network boot.

inb	_DinfoGS  inba		get device info on boot device
	stz	netbootF	assume not network boot
	lda	inba+$14	get device id
	cmp	#$1e		
	bne	inb1		if not appleshare fst
	sta	netbootF	flag that this is a network boot
inb1	rts
	
	
inba	dc.w	8		8 parameters needed
	dc.w	1		want info on the boot device
	dc.l	bootdev		buffer to name of boot device
	ds.b	14		hold results


;;	ipl - initialize printer list.
;
;	ipl is used to go through the printer list and mark all of the
;	items as unselected.
;
;	entry	maxsrvrs = max # of printers to worry about per zone.
;		(namesbuffer..) = printer list.
;
;	exits	every element is unselected.
;		(plistsize) = 0.


ipl	stz	w1		init counter
	lda	#namesbuffer
	sta	l1
	lda	#^namesbuffer
	sta	l1+2
	stz	plistsize	nothing in the list

ipl1	shortmx
	ldy	#memrec.memflag	
	lda	#0
	sta	[l1],y
	longmx

	lda	w1
	ina
	sta	w1		bump up counter
	cmp	#maxsrvrs
	bcs	ipl2		if done
	
	lda	l1
	adc	#memrec.sizeof	(c) clear
	sta	l1
	bcc	ipl1		if didn't cross bank
	inc	l1+2
	bra	ipl1		process next entry
	
ipl2	rts	



;;	knl - kill name lookup.
;
;	entry	(kill_pblk..) = parameter block to stop name lookup.
;
;	exit	lookup is stopped.
;		(gmyp_pblk.retryper) = 1 for next name lookup call.
;		(gymp_pblk.retrycnt) = 1 for next name lookup call.


knl	ldx	#kill_pblk
	ldy	#^kill_pblk
	jsl	$e11014
	shortm
	lda	#1
	sta	gmyp_pblk.retryper	reset retry period for intial look
	sta	gmyp_pblk.retrycnt	reset retry count for initial look
	longm
	rts



;;	mne - move to next element.
;
;	mne is used to move past an entry in the buffer that is created
;	by a name lookup call.
;
;	entry	[l1] = ptr to current entry in buffer.
;
;	exit	[l1] = ptr to next entry in buffer.



;;	alternate entrypoint:  mneE.
;
;	mneE will move past a pascal string.
;
;	entry	[l1] = ptr to start of pascal string.
;
;	exit	[l1] = ptr is moved past the string


mne	lda	l1
	clc
	adc	#5
	sta	l1
	bcc	mne1		if no carry into hi word
	inc	l1+2
mne1	jsr	mneE		get past type field
	jsr	mneE		get past zone field twice

;	routine jsr's to here from above since that is the most efficient
;	way of doing this.

mneE

mne2	lda	[l1]		
	and	#$ff		get length of field
	sec
	adc	l1		add in length of string + length byte
	sta	l1
	bcc	mne3		if no carry into hi word
	inc	l1+2
mne3	rts



;;	omd - open modal dialog.
;
;	entry	[a,y] = fwa of dialog template.
;
;	exit	modal dialog is opened.
;		window highlighting is turned off.
;		[l5] = dialog pointer.


omd	pha			space for result
	pha
	
	phy			hi ptr to dialog template
	pha			lo ptr to dialog template
	jsr	dwh		disable window highlighting
	_GetNewModalDialog
	pla			get dialog pointer
	sta	l5
	pla
	sta	l5+2
	rts



;;	osd - open status dialog.
;
;	osd is used to create a dialog containg just a status message.
;
;	entry	[a,y] = ptr to text to display in dialog.
;		dlgw = width of dialog.
;		(osdlg..) = dialog template.
;		(screenF) = $8000 if 640 mode.
;
;	exit	dialog is created and displayed.


osd	sta	osdptr
	sty	osdptr+2		save ptr to text

;	adjust the location

	ldx	#(320-dlgw)/2
	lda	screenF
	bpl	osd1		if 320 mode
	ldx	#(640-dlgw)/2
osd1	stx	osddlg+2	left edge
	txa
	clc
	adc	#dlgw
	sta	osddlg+6	right edge

	lda	#osddlg
	ldy	#^osddlg
	jsr	omd		open modal dialog 
	
	pushl	l5
	_DrawDialog
	rts


;	data used here.

dlgt	equ	60
dlgb	equ	122
dlgh	equ	dlgb-dlgt
dlgl	equ	170
dlgr	equ	470
dlgw	equ	dlgr-dlgl


osddlg	dc.w	dlgt,dlgl,dlgb,dlgr	rectangle
	dc.w	$ffff		visisble
	dc.l	0		refcon
	dc.l	osditem
	dc.l	0
	

osditem  dc.w	3		item id
	dc.w	20,46,60,300	rectangle
	dc.w	statText+ItemDisable	type
osdptr	dc.l	0		ptr
	dc.w	0		value
	dc.w	0		flag
	dc.l	0		color table
	



;;	otp - open the printer.
;
;	entry	(popen_pblk..) = parameter block to open a printer connection.
;		[pstat_pblk.prname] = ptr to printer name.
;
;	exit	(a) = result code.


otp	lda	pstat_pblk.prname	move ptr to name over
	sta	popen_pblk.prname
	lda	pstat_pblk.prname+2
	sta	popen_pblk.prname+2  
	
	ldx	#popen_pblk	get low word pointer to parameter list
	ldy	#^popen_pblk	get high word pointer to parameter list
	jsl	$e11014

otp1	lda	popen_pblk.result
	cmp	#papbusy
	bne	otp2		if no longer busy
	bra	otp1
	
otp2	rts



;;	rfp - read from printer.
;
;	rfp is used to keep a constant read coming from the printer so
;	there is never a time when the printer is waiting to send status.
;	The data read from the printer is ignored.
;
;	entry	(popen_pblk.refnum..) = refnum of open connection.
;		(pread_pblk..) = parameter block to read from printer connection.
;
;	exit	read request is started if the last one has stopped.


rfp	lda	pread_pblk.result
	cmp	#PapBusy
	beq	rfp1		if last call hasn't finished yet	

rfpE	shortm
	lda	popen_pblk.refnum
	sta	pread_pblk.refnum
	longm
	
	lda	#512
	sta	pread_pblk.buflen
	
	ldx	#pread_pblk	get low word pointer to parameter list
	ldy	#^pread_pblk	get high word pointer to parameter list
	jsl	$e11014
	
rfp1	rts
	
		
	export	readbuff
	
readbuff	ds.b	512			
	
	

;;	snl - start name lookup.
;
;	entry	none.
;
;	exit	namelookup is started.
;		(lookupF) = 0.


snl	lda	#('='<<8)+1	one char string of '='
	sta	netobj		any object
	lda	#netobj+2
	sta	l1
	lda	#^netobj+2
	sta	l1+2

	jsr	gdt		get device type [l2]
	jsr	cps		copy pascal string
	jsr	mneE		move to next element

snl1	lda	l3		lo ptr to zonename to check
	sta	l2
	lda	l3+2		hi ptr to zonemname to check
	sta	l2+2
	jsr	cps		copy pascal string
	stz	lookupF		don't stop the lookup
	ldx	#gmyp_pblk
	ldy	#^gmyp_pblk
	jsl	$e11014
	lda gmyp_pblk.result	get result in case caller cares
	rts



;;	stp - status the printer.
;
;	entry	a printer is selected.
;		(pstat_pblk..) = parameter block to status a printer.
;
;	exit	(a) = result code.
;		(netobj2..) = printer tuple.


;;	alternate entry point:  stpE.
;
;	entry	[pstat_pblk.prname] = ptr to printer tuple.


stp	jsr	ghp		get highlighted printer
	dea			offset into list (always is 1 selected)
	jsr	gip		get index into printers
	ldy	#memrec.memptr
	lda	[l4],y
	sta	l2		lo word of ptr to name
	iny
	iny
	lda	[l4],y
	sta	l2+2		hi word of ptr to name

	lda	#netobj2
	sta	pstat_pblk.prname
	sta	l1
	lda	#^netobj2
	sta	pstat_pblk.prname+2
	sta	l1+2
	jsr	cps		copy pascal string
	
	jsr	mneE		move to next element
	jsr	gdt		get device type

	jsr	cps		copy pascal string
	jsr	mneE		move to next element

	lda	cszone
	ora	cszone+2
	bne	stp1		if have selected a zone
	
	lda	#asterisk	current zone
	bra	stp2
	
stp1	lda	#lzwpns		last zone with printer name selected
stp2	sta	l2
	lda	#^lzwpns
	sta	l2+2
	jsr	cps		copy pascal string

	
stpE	jsr	knl		kill name lookup
	
	ldx	#pstat_pblk
	ldy	#^pstat_pblk
	jsl	$e11014
	
stp3	lda	pstat_pblk.result
	cmp	#papbusy
	beq	stp3		if not done yet
	rts
		



;;	ubd - unload both drivers.
;
;	entry	none.
;
;	exit	printer drivers are unloaded if necessary.


ubd	pha			space for result
	_PMStatus		
	pla
	bcs	ubd1		if error occured
	beq	ubd1		if print manager isn't active
	pushw	#0		want to unload both drivers
	_PMUnloadDriver
ubd1	rts
	

	
;;	udf - update data files.
;
;	entry	none.
;
;	exit	atinit and printer.setup are created.


udf	jsr	ghl		get LineEdit handle and length
	sta	udfa		length of text
	
	shortx
	ldy	#0
udf1	lda	[l1],y		move the name over
	sta	udfa+1,y	
	iny
	iny
	cpy	udfa
	bcc	udf1		if more to copy
	longx

;	copy the user's name into the printer setup record.

	lda	#udfa
	sta	l2
	lda	#^udfa
	sta	l2+2		source loc
	
	lda	#prec.name
	sta	l1
	lda	#^prec.name
	sta	l1+2		dest
	ldx	#15		# of chars to copy 
	jsr	cpsE		copy pascal string
	
;	copy the user's name into the ATINIT record.

	lda	#atinit.name
	sta	l1
	lda	#^atinit.name
	sta	l1+2
	jsr	cps		copy pascal string
	
;	copy the zone over into the printer setup record.

	lda	bridge
	bne	udf1a		if there is a bridge
	lda	#asterisk	use asterisk for current zone
	sta	l2		source ptr
	lda	#^asterisk
	bra	udf1b		
	
udf1a	lda	#lzwpns		last zone with printer name selected
	sta	l2
	lda	#^lzwpns
udf1b	sta	l2+2

	lda	#prec.zone
	sta	l1		dest ptr
	lda	#^prec.zone
	sta	l1+2
	jsr	cps		copy pascal string

	lda	sel2F
	beq	udf2		if no selection was made
	
	lda	#1
	sta	prec.AppleTlk	flag that appletalk is on
	
	lda	#appletalk
	sta	l2		source ptr
	lda	#^appletalk
	sta	l2+2		ptr to the string "appletalk"
	lda	#prec.port
	sta	l1		dest ptr
	lda	#^prec.port
	sta	l1+2
	jsr	cps		copy pascal string
	
	lda	ldwpns		last device with printer name selected
	cmp	#2
	bne	udf1c		if not imagewriterLQ
	ina			increase so it returns the correct name
udf1c	sta	devices
	jsr	gdt		get device type
	
	lda	#prec.printer
	sta	l1		dest ptr
	lda	#^prec.printer
	sta	l1+2
	jsr	cps		copy pascal string
	
	lda	ATINIT.pflags
	and	#$9f		mask off local printer (bit 6) and emulator bit (bit 5)
	ora	#networkprinter	  flag as network printer
	
	ldx	devices
	bne	udf1d		if not laserwriter
	ora	#emulatorBit	flag that this printer has a postscript emulator
	
udf1d	sta	ATINIT.pflags	replace the flag byte

	jsr	ubd		unload both drivers
	
udf2	stz	diskerr		assume no error has occurred so far
	lda	#write
	jsr	asf		access setup file
		
;	copy over the printer tuple: net, printer, zone.

	lda	ldwpns
	sta	devices
	jsr	gdt		get device type
	
	shortmx
	ldx	#-1
udf3	inx
	lda	prec.netname,x	 copy over netname
	sta	atinit.tuple,x
	cpx	prec.netname
	bcc	udf3		if more to copy
	
	lda	[l2]
	sta	w1		save length of typename for now
	
	ldy	#-1
udf4	inx
	iny
	lda	[l2],y		get next char of typename
	sta	atinit.tuple,x
	cpy	w1
	bcc	udf4		if more to copy
	
	ldy	#-1
udf5	inx
	iny
	lda	lzwpns,y	last zone with printer name selected
	sta	atinit.tuple,x
	cpy	lzwpns
	bcc	udf5		if more to copy
	
	longmx
	
	lda	#write
	jsr	aaf		access atinit file
	
	lda	prec.appletlk
	beq	udf6		if not appletalk printer  

	lda	#prec.port
	sta	l2
	lda	#^prec.port
	sta	l2+2
	lda	#appletalk
	sta	l1
	lda	#^appletalk
	sta	l1+2
	jsr	cus		    compare uppercase strings
	bcc	udf6		    if not appletalk printer	
	
	shortm
	lda	#1
	sta	psetpr_pblk.flags    want to retrieve current settings
	longm
	
	lda	#openblock2	    lo ptr to dummy buffer to use
	sta	psetpr_pblk.entity
	lda	#^openblock2	    hi ptr to dummy buffer to use
	sta	psetpr_pblk.entity+2

	ldx	#psetpr_pblk
	ldy	#^psetpr_pblk
	jsl	$e11014

	shortm
	lda	ATINIT.pflags	    get flag byte to use
	sta	psetpr_pblk.flags
	longm

	lda	#ATInit.tuple		low ptr to entity name
	sta	psetpr_pblk.entity
	lda	#^ATInit.tuple		hi ptr to entity name
	sta	psetpr_pblk.entity+2

	ldx	#psetpr_pblk
	ldy	#^psetpr_pblk
	jsl	$e11014

udf6	rts	

	
;	data used here.

udfa	ds	namelen+5	
	
	
	
;;	wtp - write to printer.
;
;	entry	(popen_pblk.refnum) = connection refnum.
;		(pwrit_pblk..) = parameter block for write command.
;
;	exit	data is written to printer
;		(a) = result code.


wtp	shortm
	lda	popen_pblk.refnum
	sta	pwrite_pblk.refnum
	longm
	ldx	#pwrite_pblk
	ldy	#^pwrite_pblk
	jsl	$e11014
	
wtp1	lda	pwrite_pblk.result
	cmp	#PapBusy
	beq	wtp1			if still busy 
	rts




;	uninitialized data.



bootdev	ds.b	35		holds name of boot device - not used

bridge	ds.b	2		bridge # 

callcompF  ds.b	2		!= 0 if call completed

cszone	ds.b	4		ptr tp currently selected zone

devices	ds.b	2		offset of type of device

diskerr	ds.b	2		!= 0 if got a disk error

edithdl	ds.b	4		handle to edit box control

iwebuthdl  ds.b	4		handle to emulator button control

ldwpns	ds.b	2		last device with printer name selected

lookupF	ds.b	2		!= 0 if to look for new devices

lszone	ds.b	4		ptr to last selected zone

lzwpns	ds.b	namelen+1	last zone with printer name selected

myzonename  ds.b	namelen+1	name of user's home zone

namesbuffer ds.b	memrec.sizeof*MaxSrvrs

netbootF  ds.b	2		!= 0 if network boot

netobj	ds.b	100		build network entity here

netobj2  ds.b	100		hold name

openblock  ds.b	MaxSrvrs*(99+5)	 holds memory for call to get printer names

openblock2  ds.b  MaxSrvrs*(99+5)	 holds memory for call to get printer names
	
pindex	ds.b	2		offset of printer in list

plisthdl  ds.b	4		handle to printer list control record

plistsize  ds.b	2		size of printer list

pmatch	ds.b	4		ptr to printer name in list

screenF	ds.b	2		= $8000 if this is a 640 mode screen

selF	ds.b	2		!= 0 if a selection was made

sel2F	ds.b	2		!= 0 if printersetup might have changed

username  ds.b	33		user name

wptr	ds.b	4		window pointer

zindex	ds.b	2		index to zones

zlisthdl  ds.b	4		handle to zone list control
	
zonebuffer  ds.b	memrec.sizeof*maxzones  list of zones for list manager
		
zonename  ds.b	33		name of zone

zonenamehdl  ds.b	4	handle to zonename list from nbp call

NBPBusyF	ds.w 1		flag to say we couldn't lookup b/c NBP was busy

cdev_result	ds.l 1		;result for Control Panel

	endp

	end
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/NetPrinterCDEV/netprinter.h b/IIGS.601.SRC/A.U.G/CtlPanel/NetPrinterCDEV/netprinter.h
new file mode 100644
index 0000000..b9f631c
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/NetPrinterCDEV/netprinter.h
@@ -0,0 +1 @@
+

atinitrec  	record  0
name		ds.b	33
pflags		ds.b	1
tuple		ds.b	99
sizeof					;size of this record
		endr



printersetup	record  0
printer		ds.b	33
printer2  	ds.b	33
port		ds.b	33
name		ds.b	16
netname		ds.b	33
zone		ds.b	33
Appletlk  	ds.b	2
sizeof					;size of this record
		endr
		
		
MaxVols		equ	16		 maximum number of volumes per server? 
MaxVolLength	equ	27+1		 volume name can be 27 characters long + 1 length char for pascal strings 

MaxSrvrs	equ	40		 maximum number of file server names we can hold 
MaxSrvrView	equ	4		 how many names in our list can be seen at once 
MaxZones	equ	255		 max number of zones we can store 
MaxZoneView	equ	4		 max number of zones that can be displayed at once 
MaxZoneLength	equ	33		

namelen		equ	32		 entity name length for NBP Lookups 
unamelen	equ	31		length of user name
MaxOnline	equ	15
BlockSize	equ	MaxZones*(namelen+1)
pblocksize	equ	MaxSrvrs*(namelen+1)


LeftEdge	equ	10
RightEdge	equ	190+80		;25-Aug-92 DAL

FSListID	equ	1
ZoneListID	equ	2
UserNameBoxID	equ	1

AppleTalkFile	equ	$e2
Binary		equ	$06
ASCIIText	equ	$04
ATalkOn		equ	1
BothDrivers	equ	0
NetworkPrinter	equ	$80
LocalMask  	equ	$bf
EmulatorBit	equ	$20
AShareFST	equ	$0d

read		equ	$2012		gs/os call number to read a file	
write		equ	$2013		gs/os call number to write a file

;	asp defines.

NBPLookup	equ	$10
KillNBP		equ	$46
PMSetPrinterCmd	equ	$28
FIAccess	equ	$32
FPGetUserInfoCmd equ	$25
FPGetSrvrParmsCmd equ	$10
FPMapIDCmd	equ	$15
SP_Cmd		equ	$20
SP_Stat		equ	$1d
GetMyZone	equ	$1A
GetZoneList	equ	$1B
GetInfoCmd	equ	$02
GetSrvrInfoCmd	equ	$0f
GetSrvrParmsCmd	equ	$10

asynchronous	equ	$80
synchronous	equ	$00
busy		equ	$ff

TooManyProcesses  equ	$0408

CreatorBit	equ	$40
GroupBit	equ	$20



;	pap defines.


TimerBusy	equ	$01ff
PapBusy		equ	$08ff

InstTimer	equ	$04
PStatus		equ	$22
POpen		equ	$23
PClose		equ	$24
PRead		equ	$25
PWrite		equ	$26
RPMSet		equ	$28

;blocksize	equ	512



MemRec  	record	0
memPtr		ds.b	4	MemRec - Pointer to string, or custom 
memFlag		ds.b	1	MemRec - Bit Flag 
NetNum		ds.b	2	network number 
NodeID		ds.b	1	node id 
ScktNum		ds.b	1	socket number 
Enumerator	ds.b	1	enumerator 
privflag	ds.b	1	
ckboxId		ds.b	2	
sizeof				;size of memrec record	
		endr
		
 
entityrec	record	0
netnum		ds.b	2	
nodeID		ds.b	1		
scktNum		ds.b	1
enumerator	ds.b	1
objname		ds.b	namelen+1	?  verify this all
		endr
		


NBPLType	record	0
mode		ds.b	1	
command		ds.b	1	
result		ds.b	2	
iocomp		ds.b	4	since this doesn't know about 4 byte pointers 
entity		ds.b	4	ptr to	 name of what we want to find 
retryper	ds.b	1	retry period in 1/4 secs 
retrycnt	ds.b	1	number of times to retry 
internal	ds.b	2	
rsbsiz		ds.b	2	size of following buffer 
rsbadr		ds.b	4	responses will be stored here 
maxrsp		ds.b	1	maximum number of responses allowed 
rgotten		ds.b	1	actual number of responses returned 
		endr


KillNBPLtype	record	0
Async		ds.b	1
command		ds.b	1
ResultCode	ds.b	2
ParamPointer	ds.b	4
		endr


GMyZone		record	0
async		ds.b	1
command		ds.b	1
result		ds.b	2
iocomp		ds.b	4
bufptr		ds.b	4
retryinterval	ds.b	1
retrycount	ds.b	1
resrvd		ds.b	2
		endr
		
		
;	parameter block to get a zone list.

gzonelist	record	0
async		ds.b	1
command		ds.b	1
result		ds.b	2
iocomp		ds.b	4
buflen		ds.b	2
bufptr		ds.b	4
brnode		ds.b	1
strtindex	ds.b	2
retryinterval	ds.b	1
retrycount	ds.b	1
numberzones	ds.b	2
resrvd		ds.b	2
		endr


GetInfo		record	0
async		ds.b	1
command		ds.b	1
ResultCode	ds.b	2
CompRtnRet	ds.b	4
ThisNet		ds.b	2
ABridge		ds.b	1
HardwareID	ds.b	1
Romversion	ds.b	2
NodeNumber	ds.b	1
		endr

		
PMSetPrinterType  record	0
async		ds.b	1
command		ds.b	1
Result		ds.b	2
Entity		ds.b	4
flags		ds.b	1
FlushInterval	ds.b	2
TimeoutInterval  ds.b	2
NumOfBuffers	ds.b	2
		endr
		
		
		
		
		

;	pap definitions.


open_printer	record	0
async		ds.b	1
command		ds.b	1
Result		ds.b	2
iocomp		ds.b	4
refnum		ds.b	1
prname		ds.b	4
flowq		ds.b	1
statbuf		ds.b	4
		endr
		
		
write_printer	record	0
async		ds.b	1
command		ds.b	1
Result		ds.b	2
iocomp		ds.b	4
refnum		ds.b	1
buflen		ds.b	2
bufptr		ds.b	4
eofbyte		ds.b	1
		endr
		
		
read_printer	record	0
async		ds.b	1
command		ds.b	1
Result		ds.b	2
iocomp		ds.b	4
refnum		ds.b	1
buflen		ds.b	2
bufptr		ds.b	4
eofbyte		ds.b	1
reserved	ds.b	2		needed for bug in pap
		endr
		
		
status_printer	record	0
async		ds.b	1
command		ds.b	1
Result		ds.b	2
iocomp		ds.b	4
prname		ds.b	4
statbuf		ds.b	4
		endr
		
		
close_printer	record	0
async		ds.b	1
command		ds.b	1
Result		ds.b	2
iocomp		ds.b	4
refnum		ds.b	1
		endr
		
		
timer		record	0
async		ds.b	1
command		ds.b	1
Result		ds.b	2
iocomp		ds.b	4
ticCount	ds.b	2		running tick count
howlong		ds.b	2		how many 1/4th to wait
reserved	ds.b	4
		endr
		
		
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/NetPrinterCDEV/netprinter.r b/IIGS.601.SRC/A.U.G/CtlPanel/NetPrinterCDEV/netprinter.r
new file mode 100644
index 0000000..a6a2a4c
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/NetPrinterCDEV/netprinter.r
@@ -0,0 +1 @@
+/*******************************************************************/
/*
/* netprinter.r
/*
/* Copyright (C) 1988-1992
/* Apple Computer, Inc.
/* All Rights Reserved
/*
/* This file contains the source of the resources needed to build the 
/* Netprinter CDEV.
/*
/*******************************************************************/


#include "typesiigs.r" 

resource rIcon (1) {
	  0x8000,							/* Kind */
	  20,								/* Height */
	  28,								/* Width */

						$"FFF000000000000000000000000F"
						$"FF0FFFFFFFFFFFFFFFF0FFFFFF0F"
						$"F0FFFFFFFFFFFFFFFFF0FFFFFF0F"
						$"F0FFFFFFFFFFFFFFFFF0FFFFFF0F"
						$"F0FFFFFFFFFFFFFFFFF000000000"
						$"FF0FFFFFFFFFFFFFFFF0FFFFFFF0"
						$"FFF00000000000000000FFFFFFF0"
						$"FFF0FFFFFFFFFFFFFFFFFFFFFFF0"
						$"FFF00000000000000000F0F0F0F0"
						$"FFF0F4FFFFFFFFFFFFFFFFFFFFF0"
						$"FFF0000000000000000000000000"
						$"FFF0F0F0F0F0F0F0F0F0F0F0F0F0"
						$"FFF0000000000000000000000000"
						$"FFFFFFFFFFFFFFF0F0FFFFFFFFFF"
						$"FFFFFFFFFFFFFF00000FFFFFFFFF"
						$"FFFFFFFFFFFFFF0FFF0FFFFFFFFF"
						$"FFFFFFFFFFFFFF00000FFFFFFFFF"
						$"00F00000000000FF0FF000000F00"
						$"FFFFFFFFFFFFFFF0F0FFFFFFFFFF"
						$"00F000000000000FFF0000000F00",
					  
						$"000FFFFFFFFFFFFFFFFFFFFFFFF0"
						$"00FFFFFFFFFFFFFFFFFFFFFFFFF0"
						$"0FFFFFFFFFFFFFFFFFFFFFFFFFF0"
						$"0FFFFFFFFFFFFFFFFFFFFFFFFFF0"
						$"0FFFFFFFFFFFFFFFFFFFFFFFFFFF"
						$"00FFFFFFFFFFFFFFFFFFFFFFFFFF"
						$"000FFFFFFFFFFFFFFFFFFFFFFFFF"
						$"000FFFFFFFFFFFFFFFFFFFFFFFFF"
						$"000FFFFFFFFFFFFFFFFFFFFFFFFF"
						$"000FFFFFFFFFFFFFFFFFFFFFFFFF"
						$"000FFFFFFFFFFFFFFFFFFFFFFFFF"
						$"000FFFFFFFFFFFFFFFFFFFFFFFFF"
						$"000FFFFFFFFFFFFFFFFFFFFFFFFF"
						$"000000000000000FFF0000000000"
						$"00000000000000FFFFF000000000"
						$"00000000000000FFFFF000000000"
						$"00000000000000FFFFF000000000"
						$"FF0FFFFFFFFFFFFFFFFFFFFFF0FF"
						$"FF0FFFFFFFFFFFFF0FFFFFFFF0FF"
						$"FF0FFFFFFFFFFFF000FFFFFFF0FF";

};

read rCDEVCode (1,Convert) "netprinter.Load";


resource rCDEVFlags (1) {
	wantInit+wantClose+wantEvents+wantHit
	+wantCreate+wantAbout+wantRun+wantMachine,	/* CDEV Flags */
	1,											/* Enabled */
	1,											/* Version */
	1,											/* Machine */
	4,											/* System */
	{0,0,175,280},								/* DataRect */
	"Net Printer",								/* Name */
	"Michael Stein",							/* Author */
	"v1.1";									/* VersStr */
};

\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/NetPrinterCDEV/ple.aii b/IIGS.601.SRC/A.U.G/CtlPanel/NetPrinterCDEV/ple.aii
new file mode 100644
index 0000000..fc6d7b6
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/NetPrinterCDEV/ple.aii
@@ -0,0 +1 @@
+;;;	ple - print line with ellipses.
;
; 25-Aug-92 DAL:
;   This file is no longer used--the List Manager can
;   print strings with ellipses all by its own-self now.
;
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/NetPrinterCDEV/sul.aii b/IIGS.601.SRC/A.U.G/CtlPanel/NetPrinterCDEV/sul.aii
new file mode 100644
index 0000000..00c02de
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/NetPrinterCDEV/sul.aii
@@ -0,0 +1 @@
+;;;	sul - sort uppercase list.
;
;	Michael V. Stein	02/21/90.
;
;	© Apple, 1990.


	blanks	off
	

;;	equates.




;;	imported addresses.




;;	include files.


	include	'::commonmacros.h'
	include	'm16.list'
	include	'm16.util2'
	
		

;;	main program.


	

main	proc

	export	sul

sul	Pushl	#cue		compare uppercase elements
	phy			hi word to list handle
	pha			lo word to list handle
	_SortList2
	rts


;;	cue - compare uppercase elements.
;
;	entry	from list manager.
;
;	exit	(c) set if first entry > second entry



memberA	equ	4+2
memberB	equ	memberA+4


cue	phd
	tsc
	tcd			use stack as a direct page
		
	ldy	#$02
	lda	[memberA]	dereference first handle
	tax
	lda	[memberA],y
	sta	memberA+2
	stx	memberA		
	
	lda	[memberB]	dereference second handle
	tax
	lda	[memberB],y
	sta	memberB+2
	stx	memberB


	shortmx
	
	lda	[memberA]		
	cmp	[memberB]	compare it to memberB	
	bcc	cue1		if length(memberB) >= length(memberA)
	lda	[memberB]	
cue1	sta	min		shortest length of either string
	ldy	#$00
	
cue2	iny
	lda	[memberB],y
	jsr	cal		capitalize a letter
	sta	temp
	lda	[memberA],y
	jsr	cal		capitalize a letter
	cmp	temp
	bne	cue5		we have a difference
	cpy	min		chars are the same so check if more bytes to check
	bcc	cue2		no more bytes to check
	
cue4	lda	[memberA]	the shortest string is less than the longer
	cmp	[memberB]	set carry if a >= b
	
cue5	longmx
	
	lda	0+2		carry set if a >= b
	sta	8+2
	lda	2+2
	sta	10+2
	pld
	
	
	pla
	pla
	pla
	pla

	rtl


min	ds.b	1
temp	ds.b	1



;;	cal - capitalize a letter.
;
;	entry	(a) = letter to convert
;
;	exit	(a) = uppercase version of letter.


	longa	off
	longi	off
	
cal	cmp	#'a'
	bcc	cal1		if not lowercase
	cmp	#'z'+1
	bcs	cal1		if not lowercase
	sbc	#$20-1		(c) clear
	
cal1	rts	



	endp

	end
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/NetworkCDEV/makefile b/IIGS.601.SRC/A.U.G/CtlPanel/NetworkCDEV/makefile
new file mode 100644
index 0000000..c39d8c4
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/NetworkCDEV/makefile
@@ -0,0 +1 @@
+
CDEV = network

OPTIONS = -d Ethernet=0

{CDEV}			 	Ä				{CDEV}.Load 	¶
									{CDEV}.r
	reziigs {OPTIONS} {CDEV}.r -o {CDEV} -t "C7  " -c "pdos"
	if {dup}				# test whether we should duplicateiigs
		duplicateiigs -m -y {CDEV} {CDEV}
	end

{CDEV}.Load		Ä	¶
			network.aii.obj  ¶
			networkdata.aii.obj 
		linkiigs -x -lseg:$1000 network ¶
			network.aii.obj  ¶
			networkdata.aii.obj  ¶
			 -o {CDEV}.Load
			 


{CDEV}.aii.obj 		Ä 		{CDEV}.aii	Makefile			¶
							::cdev.h  ::commonmacros.h ::dp.h
	asmiigs {OPTIONS} {CDEV}.aii 

networkdata.aii.obj 		Ä 		networkdata.aii	Makefile			¶
							::cdev.h  ::commonmacros.h ::dp.h
	asmiigs {OPTIONS} networkdata.aii 

\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/NetworkCDEV/network b/IIGS.601.SRC/A.U.G/CtlPanel/NetworkCDEV/network
new file mode 100644
index 0000000..e69de29
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/NetworkCDEV/network.Load b/IIGS.601.SRC/A.U.G/CtlPanel/NetworkCDEV/network.Load
new file mode 100644
index 0000000..d9b88b0
Binary files /dev/null and b/IIGS.601.SRC/A.U.G/CtlPanel/NetworkCDEV/network.Load differ
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/NetworkCDEV/network.aii b/IIGS.601.SRC/A.U.G/CtlPanel/NetworkCDEV/network.aii
new file mode 100644
index 0000000..4a8e16c
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/NetworkCDEV/network.aii
@@ -0,0 +1 @@
+
;;;	network - AppleTalk Network CDEV.
;
;	From original code by Michael V. Stein	01/25/90.
;
;	Adapted 4/30/91 by Monte Benaresh
;
;	© Copyright Apple Computer, 1991
;


	;blanks	off


;;	equates.


recty0	equ	0		;rectangle offsets
rectx0	equ	2
recty1	equ	4
rectx1	equ	6

stack_entry  equ  $e100b0	;gs/os stack entry point


;;	include files.

	include	'::commonmacros.h'
	include	'::cdev.h'
	include	'::dp.h'
	include	'e16.control'
	include	'e16.dialog'
	include	'e16.event'
	include	'e16.gsos'
	include	'e16.lineedit'
	include	'e16.list'
	include	'e16.memory'
	include	'e16.quickdraw'
	include	'm16.control'
	include	'm16.dialog'
	include	'm16.gsos'
	include	'm16.intmath'
	include	'm16.lineedit'
	include	'm16.list'
	include	'm16.memory'
	include	'm16.misctool'
	include	'm16.quickdraw'
	include	'm16.print'
	include	'm16.QDAux'
	include	'm16.util2'
	include	'm16.window'
	include 'network.h'


;;	main program.


main  	proc

;;	exported addreses.

	;export	acr
	;export	cmd	
	;export	cps
	;export	ctp
	;export	dah
	;export	dam
	;export	damE
	;export	dptr
	;export	gdt
	;export	ghp
	;export	gip
	;export	hpe
	;export	hzl
	;export	knl
	;export	lookupF
	;export	mneE
	;export	netobj
	;export	omd
	;export	openblock
	;export	openblock2
	;export	otp
	;export	rfp
	;export	rfpE
	;export	screenF
	;export	stp
	;export	stpE
	;export	wtp



;;	imported addresses.

	import	about
	;import	appletalk
	;import	asterisk
	;import	atalkerr
	import	atalkF
	;import	atinit:atinitrec
	;import	atinitlpath
	;import	cfe
	;import	cprect
	import	ctllist
	;import	emess1
	;import	emess2
	;import	emess3
	;import	emess4
	;import	emess5
	;import	emess6
	;import	emess7
	;import	emess8
	;import	emess10
	;import	emess11
	;import	emess12
	;import	emess13
	;import	GinfoParams
	import GSRad
	;import	oktext
	import P8Rad
	;import	tryagain
	;import	quit
	;import	rtp
	;import	sul
	;import	tryagain
	;import	wtext
	import local_icbut
	import ether_icbut


net_cdev
	phb			;save calling data bank
	phk
	plb			;set our data bank		

;	make room on stack for direct page.

	tsc			
	sec			
	sbc	#dpsize		;make room on stack for new direct page
	tcs			
	phd			;save the current direct page
	tcd			;new direct page

	lda	message	
	cmp	#11+1		
	bcs	net_cdev1	;if message defintely not handled

	;ldx	atalkf
	;beq	net_cdev1	;if appletalk isn't present
		
	asl	a		;times 2 into word table
	tax			;move into index reg
	jsr	(t_cdev-2,x)	;call the handler of this message

net_cdev1
	pld			;restore direct page
	tsc
	clc
	adc	#dpsize		
	tcs			;reset the stack
	lda	1,s		;Bump the stack up to prepare
	sta	11,s		;to take off the 3 parameters
	lda	3,s		
	sta	13,s

	pla			;get rid of message space
	
	pla			;get rid of data1 space
	pla			
	
	pla			;get rid of data2 space
	pla			
	
	lda	#0		;return 0 to caller
	sta	5,s
	sta	7,s		
	plb
	
	rtl
		

t_cdev
	dc.w	ctcE		;handle machine message - ignored
	dc.w	ctcE		;handle boot message - ignored
	dc.w	ctcE		;handle shutdown message - ignored
	dc.w	icc		;init cdev controls
	dc.w	ctc		;close the cdev
	dc.w	ctcE		;phandle event message - ignored
	dc.w	ccc		;create cdev controls
	dc.w	ham		;handle about message
	dc.w	ctcE		;handle rectangle message - ignored
	dc.w	hhm		;handle hit message
	dc.w	rtc		;run the cdev


;	secondary routines

;;	ccc - create cdev controls.
;
;	entry	(atalkerr..) = appletalk error message control.
;		[data1] = window ptr.
;		read = gs/os command to read from a file.
;
;	exit	if appletalk isn't installed, the appletalk error
;		text control is created.
;
;		if appletalk is active then:
;		controls are created.
;		[wptr] = window pointer.


ccc	;jsr	iai		;is appletalk active
	;bcc	ccc1		;if  active
	
	;ldx	#atalkerr	;'AppleTalk must be installed to run É'
	;ldy	#^atalkerr
	;brl	cst		;create static text control and return

  if Ethernet then
	jsr check_ether		;set flag for presence of ethertalk
  endif

ccc1	_Waitcursor

	pha			;space for result
	_GetMasterSCB
	pla
	xba
	and	#$8000
	sta	screenF		;!= 0 if 640 mode
	lda	data1
	sta	wptr		;save window pointer for later
	lda	data1+2
	sta	wptr+2

	jsr	cac		;create actual controls
		
	_InitCursor
	rts

	
;;	ctc - close the cdev.
;
;	entry	called when to close the cdev and appletalk is active.
;
;	exit	name lookup is stopped.
;		memory is disposed.


;;	alternate entrypoint:  ctcE.
;
;	ctcE is used as a convenient rts instruction.


ctc	;lda	#$ffff
	;sta	lookupF		;flag to not start any more lookups
	;jsr	knl		;kill name lookup
	
ctcE	
ctc1	rts
	


;;	ham - handle about messsage.
;
;	entry	(about..) = static text control containg the about text.
;
;	exit	The 'about' control is created.


ham	ldx	#about
	ldy	#^about
	brl	cst		;create static text control and return
	
	

;;	hhm - handle hit message.
;
;	entry	[data1] = handle to control.
;		[data2] = id of control that was hit.
;
;	exit	control hit is processed.


hhm	lda	data2		;get id of control that was hit
	cmp #P8_id		;P8 radio button?
	bne @next1
@p8
	lda #$0002		;BRAM value for P8
	bra @set_bram
@next1
	cmp #GS_id		;GS/OS radio button?
	bne @next2
@gs
	lda #$0001		;BRAM value for GS/OS
@set_bram
	ldx #$0062		;BRAM location for net boot os
	jsr wbp			;new value in A
	bra hhm1
@next2

**********
   if Ethernet then
	cmp #localIcID		;LocalTalk icon?
	bne @next3

	lda current_media	;what is currently selected?
	beq hhm1		;already LocalTalk
@set_local
	stz current_media	;set to localtalk

	ldx etherIcHdl
	ldy etherIcHdl+2
	bra @clear_icon		;reset the ethertalk icon
@next3
	cmp #etherIcID		;Ethertalk icon?
	bne @next4

	lda current_media	;what is currently selected?
	bne hhm1		;already ether
@set_ether
	inc a			;A=1
	sta current_media	;set to ether

	ldx localIcHdl
	ldy localIcHdl+2	;reset localtalk icon

@clear_icon		;get here with icon control handle in X, Y
	phy
	phx			;leave handle on stack for DrawOneCtl

	pea $0000		;new control value
	phy
	phx
	_SetCtlValue

	_DrawOneCtl		;handle is on stack

; now set BRAM accordingly

	lda current_media
	inc a			;this converts to correct BRAM value
	ldx #$0061		;BRAM location for network media
	jsr wbp			;write to BRAM

	bra hhm1		;all done

@next4
    endif	;if Ethernet
**********

hhm1	rts
	

;;	icc - init cdev controls.
;
;	entry	(atalkF) = 0 if appletalk isn't active.


icc	;lda	atalkF
	;beq	icc1		;if appletalk is not active

	ldx #$0062		;battery parameter loc for startup OS
	jsr rbp			;read from BRAM
	cmp #$0002		;is P8 selected?
	beq @p8			;go set P8 button
@gs
	ldx #$0062
	lda #$0001		;make sure standard value is there
	jsr wbp

	lda GSHdl		;get handle
	ldx GSHdl+2
	bra @set_button
@p8
	lda P8Hdl
	ldx P8Hdl+2
@set_button
	pea $0001		;set value to 1
	phx			;high word of hdl
	pha			;low   "   "   "
	_SetCtlValue		;hilight button

**********
    if Ethernet then

	ldx #$0061		;battery parameter loc for net media type
	jsr rbp			;read from BRAM
	cmp #$0002		;is EtherTalk selected?
	beq @ether		;go select EtherTalk icon
@local
	ldx #$0061
	lda #$0001		;make sure standard value is there
	jsr wbp

	stz current_media	;set to LocalTalk

	lda localIcHdl		;get handle
	ldx localIcHdl+2
	bra @set_icon
@ether
	lda #$0001
	sta current_media	;set to EtherTalk

	lda etherIcHdl
	ldx etherIcHdl+2
@set_icon
	pea $0001		;set value to 1
	phx			;high word of hdl
	pha			;low   "   "   "
	_SetCtlValue		;hilight icon
    endif
**********

icc1	rts



;;	rtc - run the cdev.
;
;	entry	(lookupF) != 0 if not to do any more lookups.
;
;	exit	if lookups are allowed and out window is the frontmost, it starts a 
;		lookup if the last one has stopped.


rtc	;lda	lookupF
	;bne	rtc1		;if not to look for new devices
	;pha
	;pha
	;_FrontWindow
	;pla			;lo ptr to window
	;plx			;hi ptr to window
	;cmp	wptr
	;bne	rtc1		;if no longer the front window
	;cpx	wptr+2
	;bne	rtc1		;if no longer the front window
	;brl	cnd		;check for new devices and return
	
rtc1	rts



;;	cst - create static text.
;
;	entry	[x,y] = ptr to control.
;		[data1] = window ptr.
;
;	exit	control is created.


cst	pha			;space for result
	pha
	pushl	data1		;window pointer
	pushw	#0		;next item is a ptr to a control
	phy			;hi word of control
	phx			;lo word of control
	_NewControl2		;create the control
	pla
	pla			;don't care about result
	rts



;;	cac - create actual controls.
;
;	entry	(ctllist..) = table of long ptrs to control templates.
;		[data1] = ptr to window.
;
;	exit	controls are created

cac
	pha			;space for result
	pha
	pushl	data1		;window pointer
	pushw	#3		;next item is a ptr to a list of template pointers
	pushl	#ctllist
	_NewControl2
	pla
	pla			;don't care about result

	pha
	pha			;space for result
	pushl	data1		;window pointer
	pushw	#0		;next item is a control
	pushl	#P8Rad
	_NewControl2
	pulll	P8Hdl		;handle to control

	pha
	pha			;space for result
	pushl	data1		;window pointer
	pushw	#0		;next item is a control
	pushl	#GSRad
	_NewControl2
	pulll	GSHdl		;handle to control

    if Ethernet then
	pha
	pha			;space for result
	pushl	data1		;window pointer
	pushw	#0		;next item is a control
	pushl	#local_icbut
	_NewControl2
	pulll	localIcHdl	;handle to control

	pha
	pha			;space for result
	pushl	data1		;window pointer
	pushw	#0		;next item is a control
	pushl	#ether_icbut
	_NewControl2
	pulll	etherIcHdl	;handle to control
    endif

	rts	


    if Ethernet then
check_ether	;routine to check for presence of EtherTalk
		;card and set haveEtherF accordingly

	lda #$0001		;for now, pretend it's there
	sta haveEtherF
	rts
    endif


	; next routines from General CDEV


;;	rbp - read battery parameter.
;
;	entry	(x) = parameter to read.
;
;	exit	(a) = value of parameter.


rbp	pha			space for result
	phx			parameter to read
	_ReadBparam
	pla			get value
	rts


;;	wbp - write battery parameter.
;
;	entry	(a) = value of parameter to set.
;		(x) = battery parameter to set.
;
;	exit	battery parameter is set.


wbp	pha			new value
	phx			parameter to set
	_WriteBparam
	rts



wptr		ds.b	4	;window pointer
screenF		ds.b	2	;high bit set if this is a 640 mode screen
P8Hdl		ds.l 1		;P8 radio button handle
GSHdl		ds.l 1		;GS/OS radio button handle

	if Ethernet then
localIcHdl	ds.l 1		;LocalTalk icon control handle
etherIcHdl	ds.l 1		;EtherTalk icon control handle
haveEtherF	ds.w 1		;flag for presence of EtherTalk card
				; 0 --> no EtherTalk card
				; 1 --> have EtherTalk card
current_media	ds.w 1		;currently selected network media
				; 0 --> LocalTalk
				; 1 --> EtherTalk
	endif

	STRING ASIS


	ENDP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/NetworkCDEV/network.h b/IIGS.601.SRC/A.U.G/CtlPanel/NetworkCDEV/network.h
new file mode 100644
index 0000000..283ee2b
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/NetworkCDEV/network.h
@@ -0,0 +1 @@
+
***********************************************************
*
*	Equates for network CDEV
*
*	From original code by Mike Stein
*
*	Adapted 5/1/91 by Monte Benaresh
*
***********************************************************



atinitrec  	record  0
name		ds.b	33
pflags		ds.b	1
tuple		ds.b	99
sizeof					;size of this record
		endr

MaxVols		equ	16		 ;maximum number of volumes per server? 
MaxVolLength	equ	27+1		 ;volume name can be 27 characters long + 1 length char for pascal strings 

MaxSrvrs	equ	40		 ;maximum number of file server names we can hold 
MaxSrvrView	equ	4		 ;how many names in our list can be seen at once 
MaxZones	equ	255		 ;max number of zones we can store 
MaxZoneView	equ	4		 ;max number of zones that can be displayed at once 
MaxZoneLength	equ	33		

namelen		equ	32		 ;entity name length for NBP Lookups 
unamelen	equ	31		;length of user name
MaxOnline	equ	15
BlockSize	equ	MaxZones*(namelen+1)
pblocksize	equ	MaxSrvrs*(namelen+1)

FSListID	equ	1
ZoneListID	equ	2
UserNameBoxID	equ	1

AppleTalkFile	equ	$e2
Binary		equ	$06
ASCIIText	equ	$04
ATalkOn		equ	1
BothDrivers	equ	0
NetworkPrinter	equ	$80
LocalMask  	equ	$bf
EmulatorBit	equ	$20
AShareFST	equ	$0d

read		equ	$2012		;gs/os call number to read a file	
write		equ	$2013		;gs/os call number to write a file

;	asp defines.

NBPLookup	equ	$10
KillNBP		equ	$46
PMSetPrinterCmd	equ	$28
FIAccess	equ	$32
FPGetUserInfoCmd equ	$25
FPGetSrvrParmsCmd equ	$10
FPMapIDCmd	equ	$15
SP_Cmd		equ	$20
SP_Stat		equ	$1d
GetMyZone	equ	$1A
GetZoneList	equ	$1B
GetInfoCmd	equ	$02
GetSrvrInfoCmd	equ	$0f
GetSrvrParmsCmd	equ	$10

asynchronous	equ	$80
synchronous	equ	$00
busy		equ	$ff

TooManyProcesses  equ	$0408

CreatorBit	equ	$40
GroupBit	equ	$20

; control ID's

P8_id		equ $3301
GS_id		equ $3302
localIcID	equ $3303
etherIcID	equ $3304

MemRec  	record	0
memPtr		ds.b	4	;MemRec - Pointer to string, or custom 
memFlag		ds.b	1	;MemRec - Bit Flag 
NetNum		ds.b	2	;network number 
NodeID		ds.b	1	;node id 
ScktNum		ds.b	1	;socket number 
Enumerator	ds.b	1	;enumerator 
privflag	ds.b	1	
ckboxId		ds.b	2	
sizeof				;size of memrec record	
		endr
		
 
entityrec	record	0
netnum		ds.b	2	
nodeID		ds.b	1		
scktNum		ds.b	1
enumerator	ds.b	1
objname		ds.b	namelen+1	;?  verify this all
		endr
		


GMyZone		record	0
async		ds.b	1
command		ds.b	1
result		ds.b	2
iocomp		ds.b	4
bufptr		ds.b	4
retryinterval	ds.b	1
retrycount	ds.b	1
resrvd		ds.b	2
		endr
		
		
;	parameter block to get a zone list.

gzonelist	record	0
async		ds.b	1
command		ds.b	1
result		ds.b	2
iocomp		ds.b	4
buflen		ds.b	2
bufptr		ds.b	4
brnode		ds.b	1
strtindex	ds.b	2
retryinterval	ds.b	1
retrycount	ds.b	1
numberzones	ds.b	2
resrvd		ds.b	2
		endr


GetInfo		record	0
async		ds.b	1
command		ds.b	1
ResultCode	ds.b	2
CompRtnRet	ds.b	4
ThisNet		ds.b	2
ABridge		ds.b	1
HardwareID	ds.b	1
Romversion	ds.b	2
NodeNumber	ds.b	1
		endr

\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/NetworkCDEV/network.r b/IIGS.601.SRC/A.U.G/CtlPanel/NetworkCDEV/network.r
new file mode 100644
index 0000000..4f8d7d7
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/NetworkCDEV/network.r
@@ -0,0 +1 @@
+/*******************************************************************/
/*
/* Network.r
/*
/* Copyright (C) 1991-1993
/* Apple Computer, Inc.
/* All Rights Reserved
/*
/* This file contains the source of the resources needed to build the 
/* Network CDEV.
/*
/*******************************************************************/


#include "typesiigs.r" 

resource rIcon (1) {
	  0x8000,							/* Kind */
	  20,								/* Height */
	  28,								/* Width */

	$"F000000000FFFFFFFF00000000FF"
	$"F0CCCCCCC0FFFFFFFF0FFFFFC00F"
	$"F0CDDDDDC0FFFFFFFF0FFFFFFC0F"
	$"F0CDDDDDC0FFFFFFFF0FFFFFFF0F"
	$"F0CDDDDDC0FFFFFFFF0FFFFFFF0F"
	$"00000000000FFFFFF00000000000"
	$"0FFFFFFFFF0FFFFFF0FFFFFFFFF0"
	$"0F4FFFFFFF0FFFFFF0F4FFFFFFF0"
	$"00000000000FFFFFF00000000000"
	$"FFFFF0FFFFFFFFFFFFFFFF0FFFFF"
	$"FFFFF0FFFFFFFFFFFFFFFF0FFFFF"
	$"FFFFF0FFFFFFFFFFFFF000000000"
	$"FFFFF0FFFFFFFFFFFFF0CCCCCCC0"
	$"00000000000FFFFFFFF0CDDDDDD0"
	$"0FFFFFFFFF0FFFFFFFF0CDDDDDD0"
	$"0F48FFFFF00FFFFFFFF000000000"
	$"0FFFFFFFF0FFFFFFFFF0FFFFFFF0"
	$"0000000000FFFFFFFFF0F4F111F0"
	$"0FFFFFFFF00000000000FFFFFFF0"
	$"0000000000FFFFFFFFF000000000"
	,
	$"0FFFFFFFFF00000000FFFFFFFF00"
	$"0FFFFFFFFF00000000FFFFFFFFF0"
	$"0FFFFFFFFF00000000FFFFFFFFF0"
	$"0FFFFFFFFF00000000FFFFFFFFF0"
	$"0FFFFFFFFF00000000FFFFFFFFF0"
	$"FFFFFFFFFFF000000FFFFFFFFFFF"
	$"FFFFFFFFFFF000000FFFFFFFFFFF"
	$"FFFFFFFFFFF000000FFFFFFFFFFF"
	$"FFFFFFFFFFF000000FFFFFFFFFFF"
	$"00000F0000000000000000F00000"
	$"00000F0000000000000000F00000"
	$"00000F0000000000000FFFFFFFFF"
	$"00000F0000000000000FFFFFFFFF"
	$"FFFFFFFFFFF00000000FFFFFFFFF"
	$"FFFFFFFFFFF00000000FFFFFFFFF"
	$"FFFFFFFFFFF00000000FFFFFFFFF"
	$"FFFFFFFFFF000000000FFFFFFFFF"
	$"FFFFFFFFFF000000000FFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFF000000000FFFFFFFFF";

};

read rCDEVCode (1,Convert) "network.Load";


resource rCDEVFlags (1) {
	wantInit+wantClose+wantHit+wantCreate
	+wantAbout+wantRun,							/* CDEV Flags */
	1,											/* Enabled	*/
	1,											/* Version	*/
	1,											/* Machine	*/
	4,											/* System	*/
	//{0,0,145,200},							/* DataRect */
#if Ethernet
	{0,0,120,200},								/* DataRect */
#else
	{0,0,50,200},								/* DataRect */
#endif
	"Network",									/* Name		*/
	"Monte & Mark",								/* Author	*/
#if Ethernet
	"v1.1e";									/* VersStr	*/
#else
	"v1.1";										/* VersStr	*/
#endif
};
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/NetworkCDEV/networkdata.aii b/IIGS.601.SRC/A.U.G/CtlPanel/NetworkCDEV/networkdata.aii
new file mode 100644
index 0000000..6f3c5f2
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/NetworkCDEV/networkdata.aii
@@ -0,0 +1 @@
+************************************************************************
;
;;;	networkdata - data records and strings used by Network CDEV.
;
;	From Namer CDEV code originally by Michael V. Stein 04/21/90.
;
;	Adapted 4/30/91 by Monte Benaresh
;
;	© Copyright Apple Computer, 1991-92
;
************************************************************************
*
* REVISION HISTORY
*
* 18-Jun-92 DAL for 6.0.1d6
*   Added keyboard equivalents to the two radio buttons and the two
*   icon buttons.
*
* 9-Sep-92 DAL for 6.0.1d10
*   Changed EtherTalk button to read Ethernet.  Fixed capitalization
*   in help to be "Network control panel".
*
************************************************************************


	;blanks	off
	BLANKS ON

;;	equates.


fCtlCanBeActive equ 	$4000

ListBugFixBit	equ	4



;;	include files.

	include	'e16.control'
	include	'e16.gsos'
	include	'e16.list'
	include 'network.h'


netdata	proc

;;	exported addresses.

	export	about
	;export	appletalk
	;export	asterisk
	export	atalkerr
	export	atalkF
	;export	cprect
	export	ctllist
	;export	emess7
	;export	emess10
	;export	emess11
	;export	emess13
	export	ginfoparams
	export GSRad
	;export	oktext
	export P8Rad
	;export	quit
	;export	tryagain
	;export local_icbut
	;export ether_icbut

;;	imported addresses.

	import	acr
	import	netobj
	import	openblock
	import	openblock2
	import	readbuff

		
atalkF	dc.w	1			;!= 0 if appletalk is active, defaults to active


;	error strings.
;
;	string	asis
;;	
;emess7	dc.b	emess7L
;	dc.b	'There is not enough memory'
;	dc.b	$0d
;	dc.b	'to continue.'
;emess7L	equ	*-emess7-1
;
;
;	error messages used by the rename and emulator routines.
;
;emess11 dc.b	emess11L
;	dc.b	'A network error has'
;	dc.b	$0d
;	dc.b	'occurred.  Please try'
;	dc.b	$0d
;	dc.b	'again.'
;emess11L  equ	*-emess11-1
;
;
;	string	pascal
;
;appletalk  dc.b	'APPLETALK'
;
;asterisk  dc.b	'*'
;
;oktext	dc.b	'OK'
;
;quit	dc.b	'Quit'			;used in disk error alerts
;
;tryagain  dc.b	'Try Again'		;used in disk error alerts
;

	string	asis

;	appletalk parameter blocks.

;	parameter block to get appletalk info.

GinfoParams	dc.b  synchronous	;type
		dc.b	GetInfoCmd	;command
		dc.w	0		;result
		dc.l	0		;completion routine
		dc.w	0		;ThisNet
		dc.b	0		;Abridge
		dc.b	0		;HardWareID
		dc.w	0		;Rom version
		dc.b	0		;node number
	
	
	
;	ctllist contains a list of controls whose handles we don't need very often.

ctllist
	;dc.l local_icbut	* these are created 	*
	;dc.l ether_icbut	* with NewControl2	*
  if Ethernet then
	dc.l netText
  endif
	dc.l startText
  if Ethernet then
	dc.l rectCtl
  endif
	;dc.l P8Rad	* these are created 	*
	;dc.l GSRad	* with NewControl2	*
	dc.l 0


about	dc.w	8			;Pcount
	dc.l	10			;ID
	dc.w	38,5,138,280
	dc.l	statTextControl
	dc.w	0
	dc.w	fCtlProcRefNotPtr
	dc.l	0
	dc.l	atext
	dc.w	AtextL
atext	dc.b	'The Network control panel lets you choose '
    if Ethernet then
	dc.b	'the type of network connection to use and '
	;dc.b	*'the network zone you want to connect to.'
    endif
	dc.b	'which operating system will be loaded when you '
	dc.b	'start up over the network.'
atextL	equ	*-atext


atalkerr  dc.w	8			;PCount
	dc.l	11			;id
	dc.w	8,leftedge,38,Rightedge+20
	dc.l	statTextControl
	dc.w	0
	dc.w	fCtlProcRefNotPtr
	dc.l	0
	dc.l	atalkerrm		;ptr to text
	dc.w	atalkerrmL		;length
	
	
atalkerrm  dc.b	'AppleTalk must be'
	dc.b	13
	dc.b	'installed and enabled'
	dc.b	13
	dc.b	'to run this Control'
	dc.b	13
	dc.b	'Panel.'
atalkerrmL  equ	*-atalkerrm


		BLANKS ON

	if Ethernet then

netText
		dc.w	8		;Pcount
		dc.l	2		;ID number
		dc.w	5		;rect -	top
		dc.w	15		;	left
		dc.w	5+10		;	bottom
		dc.w	190		;	right
		dc.l	statTextcontrol
		dc.w	0		;flag, c string
		dc.w	fctlProcRefNotPtr
		dc.l	0		;ref con
		dc.l	netStr		;text ref
		dc.w	netLen		;length of string

netStr
		dc.b 'Network type:'
netLen		equ * - netStr


		;coordinate position constants for icons
;icY		equ 3
icY		equ 20
ic1X		equ 7
ic2X		equ 100
icHeight	equ 40
icWidth		equ 93

local_icbut				;icon button for LocalTalk
		dc.w 11			;pcount
		dc.l localIcID		;ctl ID
		dc.w icY, ic1X, icY+icHeight, ic1X+icWidth	;rect
		dc.l iconButtonControl	;procRef
		dc.w $0012		;flags
		dc.w $3000		;more flags
		dc.l 0			;ref con
		dc.l local_icon		;icon ref
		dc.l local_title	;title ref
		dc.l 0			;color table
		dc.w 0			;display mode
		dc.b 'B','b'		;key equivs
		dc.w 0,0		;modifier masks


ether_icbut			;icon button for Ethernet
		dc.w 11			;pcount
		dc.l etherIcID		;ctl ID
		dc.w icY, ic2X, icY+icHeight, ic2X+icWidth	;rect
		dc.l iconButtonControl	;procRef
		dc.w $0012		;flags
		dc.w $3000		;more flags
		dc.l 0			;ref con
		dc.l ether_icon		;icon ref
		dc.l ether_title	;title ref
		dc.l 0			;color table
		dc.w 0			;display mode
		dc.b 'E','e'		;key equivs
		dc.w 0,0		;modifier masks

local_icon
	dc.w $0000, $00E4, $0013, $0018

	dc.b $FF, $FF, $FF, $FF, $FF, $C0, $00, $3F, $FF, $FF, $FF, $FF
	dc.b $FF, $FF, $FF, $FF, $00, $FC, $03, $F0, $0F, $FF, $FF, $FF
	dc.b $FF, $FF, $FF, $F0, $FF, $FF, $FF, $FF, $F0, $FF, $FF, $FF
	dc.b $FF, $FF, $FF, $C3, $F0, $FF, $0F, $F0, $FC, $3F, $FF, $FF
	dc.b $FF, $FF, $FF, $0F, $FF, $FF, $FF, $FF, $FF, $0F, $FF, $FF
	dc.b $FF, $FF, $FF, $0F, $03, $FF, $03, $F0, $3F, $0F, $FF, $FF
	dc.b $FF, $FF, $FF, $C3, $FF, $FF, $FF, $FF, $FC, $3F, $FF, $FF
	dc.b $FF, $FF, $FF, $F0, $0F, $C0, $FC, $0F, $00, $FF, $FF, $FF
	dc.b $FF, $FF, $FF, $FF, $03, $FF, $FF, $FC, $0F, $FF, $FF, $FF
	dc.b $FF, $FF, $FF, $FF, $FF, $00, $00, $0F, $FF, $FF, $FF, $FF
	dc.b $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
	dc.b $FF, $FF, $FF, $FF, $FF, $FF, $FF, $F0, $3F, $FF, $FF, $FF
	dc.b $FF, $FF, $FF, $FF, $FC, $0F, $FC, $00, $00, $FF, $FF, $FF
	dc.b $FF, $FF, $FF, $FF, $FC, $0F, $C0, $F0, $3C, $0F, $FF, $FF
	dc.b $FF, $FF, $FF, $FF, $FC, $0F, $FF, $F0, $3F, $FF, $FF, $FF
	dc.b $FF, $FF, $FF, $F0, $3C, $0F, $03, $F0, $3F, $FF, $FF, $FF
	dc.b $FF, $FF, $FF, $FF, $00, $00, $3F, $F0, $3F, $FF, $FF, $FF
	dc.b $FF, $FF, $FF, $FF, $FC, $0F, $FF, $FF, $FF, $FF, $FF, $FF
	dc.b $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF

	dc.b $00, $00, $00, $00, $00, $FF, $FF, $F0, $00, $00, $00, $00
	dc.b $00, $00, $00, $00, $FF, $0F, $FF, $0F, $F0, $00, $00, $00
	dc.b $00, $00, $00, $0F, $00, $00, $00, $00, $0F, $00, $00, $00
	dc.b $00, $00, $00, $FF, $0F, $00, $F0, $0F, $0F, $F0, $00, $00
	dc.b $00, $00, $00, $F0, $00, $00, $00, $00, $00, $F0, $00, $00
	dc.b $00, $00, $00, $F0, $FF, $00, $FF, $0F, $F0, $F0, $00, $00
	dc.b $00, $00, $00, $FF, $00, $00, $00, $00, $0F, $F0, $00, $00
	dc.b $00, $00, $00, $0F, $F0, $FF, $0F, $F0, $FF, $00, $00, $00
	dc.b $00, $00, $00, $00, $FF, $00, $00, $0F, $F0, $00, $00, $00
	dc.b $00, $00, $00, $00, $00, $FF, $FF, $F0, $00, $00, $00, $00
	dc.b $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00
	dc.b $00, $00, $00, $00, $00, $00, $00, $0F, $F0, $00, $00, $00
	dc.b $00, $00, $00, $00, $0F, $F0, $0F, $FF, $FF, $00, $00, $00
	dc.b $00, $00, $00, $00, $0F, $F0, $FF, $0F, $FF, $F0, $00, $00
	dc.b $00, $00, $00, $00, $0F, $F0, $00, $0F, $F0, $00, $00, $00
	dc.b $00, $00, $00, $0F, $FF, $F0, $FF, $0F, $F0, $00, $00, $00
	dc.b $00, $00, $00, $00, $FF, $FF, $F0, $0F, $F0, $00, $00, $00
	dc.b $00, $00, $00, $00, $0F, $F0, $00, $00, $00, $00, $00, $00
	dc.b $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00

ether_icon
	dc.w $0000, $00E4, $0013, $0018

	dc.b $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FC, $3F, $0F, $FF, $FF
	dc.b $FF, $FF, $FF, $FF, $FF, $FF, $FF, $C3, $C0, $F0, $FF, $FF
	dc.b $FF, $FF, $FF, $FF, $FF, $FF, $FC, $3F, $FC, $3F, $0F, $FF
	dc.b $FF, $FF, $FF, $FF, $FF, $FF, $FF, $C3, $FF, $C3, $F0, $FF
	dc.b $F0, $0F, $00, $0F, $00, $00, $00, $00, $3F, $FC, $3F, $0F
	dc.b $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $C3, $F0
	dc.b $0F, $00, $0F, $00, $00, $00, $00, $00, $3F, $FC, $3F, $0F
	dc.b $FF, $FF, $FF, $FF, $FF, $FF, $FF, $C3, $FF, $C3, $F0, $FF
	dc.b $FF, $FF, $F0, $FC, $3F, $FF, $FC, $3F, $FC, $3F, $0F, $FF
	dc.b $FF, $FF, $0F, $03, $C3, $FF, $FF, $C3, $C0, $F0, $FF, $FF
	dc.b $FF, $F0, $FC, $3F, $FC, $3F, $FF, $FC, $3F, $0F, $FF, $FF
	dc.b $FF, $0F, $C3, $FF, $C3, $FF, $FF, $FF, $FF, $FF, $FF, $FF
	dc.b $F0, $FC, $3F, $FC, $00, $00, $00, $00, $00, $F0, $00, $F0
	dc.b $0F, $C3, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
	dc.b $F0, $FC, $3F, $FC, $00, $00, $00, $00, $F0, $00, $F0, $0F
	dc.b $FF, $0F, $C3, $FF, $C3, $FF, $FF, $FF, $FF, $FF, $FF, $FF
	dc.b $FF, $F0, $FC, $3F, $FC, $3F, $FF, $FF, $FF, $FF, $FF, $FF
	dc.b $FF, $FF, $0F, $03, $C3, $FF, $FF, $FF, $FF, $FF, $FF, $FF
	dc.b $FF, $FF, $F0, $FC, $3F, $FF, $FF, $FF, $FF, $FF, $FF, $FF

	dc.b $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
	dc.b $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
	dc.b $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
	dc.b $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
	dc.b $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
	dc.b $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
	dc.b $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
	dc.b $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
	dc.b $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
	dc.b $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
	dc.b $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
	dc.b $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
	dc.b $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
	dc.b $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
	dc.b $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
	dc.b $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
	dc.b $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
	dc.b $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
	dc.b $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF

	STRING ASIS

local_title
		dc.b @end-@start	;length byte
@start
		dc.b 'Built-In'
@end


ether_title
		dc.b @end-@start	;length byte
@start
		dc.b 'Ethernet'		;was EtherTalk, 9-Sep-92 DAL
@end


rectCtl		;rectangle control used to draw a line

		dc.w	6		;Pcount
		dc.l	1		;ID number
		dc.w	startYBase-8	;rect -	top
		dc.w	LeftEdge-7	;	left
		dc.w	startYBase-7	;	bottom
		dc.w	RightEdge+1	;	right
		dc.l	rectangleControl
		dc.w	$FF02		;flag, disabled, black pattern
		dc.w	fctlProcRefNotPtr
		dc.l	0		;ref con


zoneYbase	equ 45
	
		
cprect	dc.w	0,0,200,300		;control panel rectangle
	

******************************************************************

	endif		;if Ethernet


LeftEdge	equ	15
RightEdge	equ	190
;startYBase	equ 105			;for Dudley version

	if Ethernet then
startYBase	equ 75			;for DoRight version
	else
startYBase	equ 6			;for 6.0 version
	endif

startText
		dc.w	8		;Pcount
		dc.l	1		;ID number
		dc.w	startYBase	;rect
		dc.w	leftedge
		dc.w	startYBase+10
		dc.w	rightedge
		dc.l	statTextcontrol
		dc.w	0		;flag, c string
		dc.w	fctlProcRefNotPtr
		dc.l	0		;ref con
		dc.l	startStr	;text ref
		dc.w	startLen	;length of string

startStr
		dc.b 'Start up with:'
startLen	equ * - startStr


P8Rad		dc.w 10			;pcount through init val
		dc.l P8_id		;ctl ID
		dc.w startYBase+13	;top	** rect
		dc.w leftedge+15	;left
		dc.w startYBase+13+10	;bottom
		dc.w leftedge+15+100	;right
		dc.l radioProc		;procref
		dc.w $0001		;flags & family
		dc.w $3000		;more flags
		dc.l 0			;ref con
		dc.l P8String		;title ref
		dc.w 0			;initial value
		dc.l 0			;color table
		dc.b 'P','p'		;key equivs
		dc.w 0,0		;modifier masks

P8String
		dc.b @end-@start	;length byte
@start
		dc.b 'ProDOS 8'
@end


GSRad		dc.w 10			;pcount through init val
		dc.l GS_id		;ctl ID
		dc.w startYBase+25	;top	** rect
		dc.w leftedge+15	;left
		dc.w startYBase+25+10	;bottom
		dc.w leftedge+15+100	;right
		dc.l radioProc		;procref
		dc.w $0001		;flags & family
		dc.w $3000		;more flags
		dc.l 0			;ref con
		dc.l GSString		;title ref
		dc.w 0			;initial value
		dc.l 0			;color table
		dc.b 'G','g'		;key equivs
		dc.w 0,0		;modifier masks

GSString
		dc.b @end-@start	;length byte
@start
		dc.b 'GS/OS'
@end

	endp

	end
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/NetworkCDEV/ple.aii b/IIGS.601.SRC/A.U.G/CtlPanel/NetworkCDEV/ple.aii
new file mode 100644
index 0000000..b0af24d
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/NetworkCDEV/ple.aii
@@ -0,0 +1 @@
+;;;	ple - print line with ellipses.
;
;	Michael V. Stein	03/11/90.
;
;	© Apple, 1990.


	blanks	off
	

;;	equates.



recty0	equ	0		rectangle offsets
rectx0	equ	2
recty1	equ	4
rectx1	equ	6



;;	imported addresses.





;;	include files.


	include	'::commonmacros.h'
	include	'::dp.h'
	include	'e16.quickdraw'
	include	'm16.quickdraw'
	include	'm16.util2'
;	include	'netprinter.h'

;;	macros.




;;	main program.




main	proc


;;	exported addresses.


	export	ple


memrectptr  equ	dpsize+1+3+4	pointer to member's record that needs to be displayed

rectptr	equ	dpsize+1+3+4+4	pointer to rect enclosing member



ple	tsc
	sec			
	sbc	#dpsize		make room on stack for new direct page
	tcs			
	phd			save the current direct page
	tcd			new direct page

	phb			save callers data bank
	phk
	plb			make sure our bank is set
	
	pushl	#plec		record to hold pen state
	_GetPenState
	
	pha
	_GetTexTMode		save for later
	
	pushw	#modeCopy	
	_SetTextMode

	pushl	rectptr
	_EraseRect		clear the rectangle enclosing text
	
	pha
	pushl	#pleb		'...'
	_StringWidth
	pla
	lsr	a
	sta	w1		1/2 the length of the three dots
	
	ldy	#rectx0
	lda	[rectptr],y
	clc
	adc	#10
	pha			x loc of line
	
	ldy	#recty1
	lda	[rectptr],y
	dea			
	dea
	pha			y loc of line	
	_MoveTo

	ldy	#rectx1
	lda	[rectptr],y
	ldy	#rectx0
	sec
	sbc	[rectptr],y
	sbc	#10		(c) set, left and right margin of 10
	sta	l3		save total width allowed
	lsr	a
	sec
	sbc	w1		1/2 the width of the three dots
	sta	l3+2		save breaking point in line

	ldy	#2
	lda	[memrectptr],y
	sta	l2+2
	lda	[memrectptr]	[a,x] = handle to string
	sta	l2
	lda	[l2]
	sta	l1
	lda	[l2],y
	sta	l1+2

	pha			space for result
	pushl	l2		ptr to string
	_StringWidth
	pla
	
	cmp	l3
	bcc	ple1		if fits
	bne	ple2		if doesn't fit
ple1	jmp	ple10		it fits, so just go draw it

ple2	ldy	#1
	stz	w2		current width
ple3	sty	w1		current character offset
	lda	[l2],y		get next char
	and	#$ff
	pha
	pha			char to check
	_CharWidth
	pla
	clc
	adc	w2
	sta	w2
	cmp	l3+2		
	bcs	ple4		if past the middle	
	
	ldy	w1
	iny
	bra	ple3		check next character
	
;	Now start from right edge and see what can fit in string.

ple4	lda	[l2]
	and	#$ff
	sta	w6		length of string
	tay			char to start looking at
	stz	w3		width from right edge
	
ple5	sty	w4
	lda	[l2],y
	and	#$ff
	pha			space for result
	pha			char to check
	_CharWidth
	pla
	clc
	adc	w3
	sta	w3		width so far on the right
	ldy	w4
	cmp	l3+2
	beq	ple7		if just fits
	bcs	ple6		if past the middle
	dey
	bra	ple5		check if next char to the left can fit

ple6	inc	w4		starting char after seperator

;	create a string to print 'aaaaa...bbbbb'.

ple7	ldy	#0
ple8	lda	[l2],y
	sta	plea,y		move these characters over
	iny
	iny
	cpy	w1
	bcc	ple8		if more to copy from left edge
	
	ldx	w1
	lda	pleb+1
	sta	plea,x		put in the first space and the ellipses
	inx
	inx
	lda	pleb+1+2
	sta	plea,x		add in last part of seperator		

	inx			offset to store right edge
	ldy	w4		place to start moving
ple9	lda	[l2],y		get next character
	sta	plea,x		place into new string
	inx
	inx
	iny
	iny
	;cpx	w6
	cpy	w6		changed 2/21/91 by Monte Benaresh
	bcc	ple9		if more to copy
	beq	ple9		if more to copy
	
	shortmx
	lda	w6
	sec
	sbc	w4		# of chars from right side -1
	adc	#3-1		(c) set , length( middle seperator) -1 
	adc	w1		(c) clear, amt from left side +1
	sta	plea		actual length of new string
	longmx
	
	pushl	#plea	
	bra	ple11
	
ple10	pushl	l2

ple11	_DrawString		draw the string

	ldy	#4
	lda	[memrectptr],y
	and	#$80
	beq	ple12		if not selected
	
	pushl	rectptr
	_InvertRect		mark it as selected

ple12	pushl	#plec		
	_SetPenState		restore orginal penstate
	
	_SetTextMode		restore original text mode

	plb			restore orginal data bank
	
	pld			restore original direct page
	
	lda	dpsize+2,s
	sta	dpsize+15-1,s	move upper 16 bits to top of stack

	lda	dpsize+1,s

	sta	dpsize+15-2,s	move lower 16 bits to top of stack
	
	tsc
	clc
	adc	#dpsize+15-3	
	tcs			return address is now on top of stack	
	rtl			

	
;	data used here.


;plea	ds.b	namelen+5	leave some slop space	

plea	ds.b	33+5		

pleb	dc.b	3,'...'

plec	ds.b	pnStateSize	hold pen state


	endp

	end
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/PrinterCDEV/Printer.pii b/IIGS.601.SRC/A.U.G/CtlPanel/PrinterCDEV/Printer.pii
new file mode 100644
index 0000000..29d7326
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/PrinterCDEV/Printer.pii
@@ -0,0 +1 @@
+This sourcefile is no longer used.
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/PrinterCDEV/Printer.r b/IIGS.601.SRC/A.U.G/CtlPanel/PrinterCDEV/Printer.r
new file mode 100644
index 0000000..35b1573
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/PrinterCDEV/Printer.r
@@ -0,0 +1 @@
+/*******************************************************************/
/*
/* Printer.r
/*
/* Copyright (C) 1988-1992
/* Apple Computer, Inc.
/* All Rights Reserved
/*
/* This file contains the source of the resources needed to build the 
/* Printer CDEV.
/*
/*******************************************************************/


#include "typesiigs.r" 

resource rIcon (1) {
	  0x8000,							/* Kind */
	  20,								/* Height */
	  28,								/* Width */
	  
	  $"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	  $"FFFF00000000000000FFFFFFFFFF"
	  $"FFFF0FFFFFFFFFFFF00FFFFFFFFF"
	  $"FFFF0FFFFFFFFFFFF0F0FFFFFFFF"
	  $"FFFF0FFFFFFFFFFFF0000FFFFFFF"
	  $"FFFF0FFFFFFFFFFFFFFF0FFFFFFF"
	  $"FFFF0FFFFFFFFFFFFFFF0FFFFFFF"
	  $"FFFF0FFFFFFFFFFFFFFF0FFFFFFF"
	  $"FFFF0FFFFFFFFFFFFFFF0FFFFFFF"
	  $"FFFF0FFFFFFFFFFFFFFF0FFFFFFF"
	  $"FFFF0FFFFFFFFFFFFFFF0FFFFFFF"
	  $"FFFF0FFFFFFFFFFFFFFF0FFFFFFF"
	  $"F0000FFFFFFFFFFFFFFF0000FFFF"
	  $"F0FF0FFFFFFFFFFFFFFF0FF000FF"
	  $"F0FF00000000000000000FF0F0FF"
	  $"F0FFFFFFFFFFFFFFFFFFFFF0F0FF"
	  $"F0FF8FFFFFFFFFFFFFFFFFF000FF"
	  $"F0FF4FCCCFFFFFFFFFFFFFF0FFFF"
	  $"F0FFFFFFFFFFFFFFFFFFFFF0FFFF"
	  $"F00000000000000000000000FFFF",
		
	  $"0000000000000000000000000000"
	  $"0000FFFFFFFFFFFFFF0000000000"
	  $"0000FFFFFFFFFFFFFFF000000000"
	  $"0000FFFFFFFFFFFFFFFF00000000"
	  $"0000FFFFFFFFFFFFFFFFF0000000"
	  $"0000FFFFFFFFFFFFFFFFF0000000"
	  $"0000FFFFFFFFFFFFFFFFF0000000"
	  $"0000FFFFFFFFFFFFFFFFF0000000"
	  $"0000FFFFFFFFFFFFFFFFF0000000"
	  $"0000FFFFFFFFFFFFFFFFF0000000"
	  $"0000FFFFFFFFFFFFFFFFF0000000"
	  $"0000FFFFFFFFFFFFFFFFF0000000"
	  $"0FFFFFFFFFFFFFFFFFFFFFFF0000"
	  $"0FFFFFFFFFFFFFFFFFFFFFFFFF00"
	  $"0FFFFFFFFFFFFFFFFFFFFFFFFF00"
	  $"0FFFFFFFFFFFFFFFFFFFFFFFFF00"
	  $"0FFFFFFFFFFFFFFFFFFFFFFFFF00"
	  $"0FFFFFFFFFFFFFFFFFFFFFFF0000"
	  $"0FFFFFFFFFFFFFFFFFFFFFFF0000"
	  $"0FFFFFFFFFFFFFFFFFFFFFFF0000";

};

read rCDEVCode (1,Convert) "Printer.Load";


resource rCDEVFlags (1) {
	wantHit+wantInit+wantCreate+wantAbout
	+wantRect+updateSSfromBRAM+wantRun,			/* CDEV Flags	*/
	1,											/* Enabled		*/
	1,											/* Version		*/
	1,											/* Machine		*/
	4,											/* System		*/
	{0,0,125,200},								/* DataRect		*/
	"Printer Port",								/* Name			*/
	"Darryl Lovato",							/* Author		*/
	"v1.1";										/* VersStr		*/
};
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/PrinterCDEV/PrinterData.aii b/IIGS.601.SRC/A.U.G/CtlPanel/PrinterCDEV/PrinterData.aii
new file mode 100644
index 0000000..a01b53c
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/PrinterCDEV/PrinterData.aii
@@ -0,0 +1 @@
+;;;	printerdata - initialized data for the printer cdev.
;
;	Michael V. Stein	04/01/90.
;
;	© Copyright Apple Computer, 1990.


	blanks off


;;	include files.


	include	'e16.control'



;;	equates.


y1	equ	2
y2	equ	y1+9
y3	equ	y1+15
y4	equ	y3+15
y5	equ	y4+15
y6	equ	y5+15
y7	equ	y6+15
y8	equ	y7+10
y9	equ	y8+10
y10	equ	y9+10
y11	equ	y10+10
y12	equ	y11+10
y13	equ	y12+10


ya3	equ	y3
ya4	equ	ya3+15
ya5	equ	ya4+10
ya6	equ	ya5+10




data	proc



;;	exported addresses.


	export	devptr
	export	devlen
	export	nbut
	export	printerabout
	export	printeralist
	export	printerlist
	export	slotlen
	export	slotptr
		

	

slotptr	dc.w	sname0
	dc.w	sname1
	dc.w	sname2
	dc.w	sname3

slotlen	dc.w	sname1-sname0
	dc.w	sname2-sname1
	dc.w	sname3-sname2
	dc.w	send-sname3
	
sname0	dc.b	'Printer'
sname1	dc.b	'Your Card'
sname2	dc.b	'AppleTalk'
sname3	dc.b	'Modem'
send	equ	*
	
	
devc	dc.W	8			; pcount
	dc.L	$8001			;static text item
	dc.W	y1,5,y1+10,100		; boundry rect
	dc.L	statTextControl		; procRef
	dc.W	inactiveHilite<<8	; flag
	dc.W	$1000			; moreFlags	
	dc.L	0			; refCon
	dc.L	devstr			; textRef
	dc.W	devstrL			; text length


devstr	dc.b	'Device Type:'
devstrL	equ	*-devstr	


devslt	dc.W	8			; pcount
	dc.L	$8001			;static text item
	dc.W	y1,104,y1+10,195	; boundry rect
	dc.L	statTextControl		; procRef
	dc.W	inactiveHilite<<8	; flag
	dc.W	$1000			; moreFlags	
	dc.L	0			; refCon
devptr	dc.l	devslt			; textRef (hi word is valid)
devlen	dc.W	0			; text length



	string ASIS

Printer1 dc.w	9
	dc.l	1
	dc.w	y3,5,y3+12,195
	dc.l	$87000000
	dc.w	$0040
	dc.w	$1004
	dc.l	0
	dc.w	95
	dc.l	Printer1Menu
	dc.w	1
	
Printer1menu
	dc.B '>> Parity:\H'
	dc.W 1
	dc.B $0D
	dc.B '== Odd\H'
	dc.W 1
	dc.B $0D
	dc.B '== Even\H'
	dc.W 2
	dc.B $0D
	dc.B '== None\IH'
	dc.W 3
	dc.B $0D
	dc.B '.'
	
	
Printer2 dc.w	9
	dc.l	2
	dc.w	y4,5,y4+12,195
	dc.l	$87000000
	dc.w	$0040
	dc.w	$1004
	dc.l	0
	dc.w	95
	dc.l	Printer2Menu
	dc.w	1
	
Printer2menu
	dc.B '>> Baud:\H'
	dc.W 2
	dc.B $0D
	dc.B '== 50\H'
	dc.W 1
	dc.B $0D
	dc.B '== 75\H'
	dc.W 2
	dc.B $0D
	dc.B '== 110\H'
	dc.W 3
	dc.B $0D
	dc.B '== 134.5\H'
	dc.W 4
	dc.B $0D
	dc.B '== 150\H'
	dc.W 5
	dc.B $0D
	dc.B '== 300\H'
	dc.W 6
	dc.B $0D
	dc.B '== 600\H'
	dc.W 7
	dc.B $0D
	dc.B '== 1200\H'
	dc.W 8
	dc.B $0D
	dc.B '== 1800\H'
	dc.W 9
	dc.B $0D
	dc.B '== 2400\H'
	dc.W 10
	dc.B $0D
	dc.B '== 3600\H'
	dc.W 11
	dc.B $0D
	dc.B '== 4800\H'
	dc.W 12
	dc.B $0D
	dc.B '== 7200\H'
	dc.W 13
	dc.B $0D
	dc.B '== 9600\IH'
	dc.W 14
	dc.B $0D
	dc.B '== 19200\H'
	dc.W 15
	dc.B $0D
	dc.B '.'
	

Printer3  dc.w	9
	dc.l	3
	dc.w	y5,5,y5+12,195
	dc.l	$87000000
	dc.w	$0040
	dc.w	$1004
	dc.l	0
	dc.w	95
	dc.l	Printer3Menu
	dc.w	1
	
Printer3menu
	dc.B '>> Line Length:\H'
	dc.W 3
	dc.B $0D
	dc.B '== Unlimited\IH'
	dc.W 1
	dc.B $0D
	dc.B '== 40\H'
	dc.W 2
	dc.B $0D
	dc.B '== 72\H'
	dc.W 3
	dc.B $0D
	dc.B '== 80\H'
	dc.W 4
	dc.B $0D
	dc.B '== 132\H'
	dc.W 5
	dc.B $0D
	dc.B '.'
	
	
Printer4  dc.w	9
	dc.l	4
	dc.w	y6,5,y6+12,195
	dc.l	$87000000
	dc.w	$0040
	dc.w	$1004
	dc.l	0
	dc.w	95
	dc.l	Printer4Menu
	dc.w	1
	
Printer4menu
	dc.B '>> Data/Stop:\H'
	dc.W 4
	dc.B $0D
	dc.B '== 5-1\H'
	dc.W 1
	dc.B $0D
	dc.B '== 5-2\H'
	dc.W 2
	dc.B $0D
	dc.B '== 6-1\H'
	dc.W 3
	dc.B $0D
	dc.B '== 6-2\H'
	dc.W 4
	dc.B $0D
	dc.B '== 7-1\H'
	dc.W 5
	dc.B $0D
	dc.B '== 7-2\H'
	dc.W 6
	dc.B $0D
	dc.B '== 8-1\IH'
	dc.W 7
	dc.B $0D
	dc.B '== 8-2\H'
	dc.W 8
	dc.B $0D
	dc.B '.'
	

	string PASCAL	; from here on, we need pascal strings

Printer5 dc.w 8
	dc.L 5
	dc.w y7,5,0,0
	dc.L $82000000
	dc.w 0
	dc.w $1000
	dc.L 0
	dc.L Printer5Title
	dc.w 0
Printer5Title	dc.b 'Delete LF after CR'
	

Printer6  dc.w 8
	dc.L 6
	dc.w y8,5,0,0
	dc.L $82000000
	dc.w 0
	dc.w $1000
	dc.L 0
	dc.L Printer6Title
	dc.w 0
Printer6Title	dc.b 'Add LF after CR'

	
Printer7  dc.w 8
	dc.L 7
	dc.w y10,5,0,0
	dc.L $82000000
	dc.w 0
	dc.w $1000
	dc.L 0
	dc.L Printer8Title
	dc.w 0
Printer7Title	dc.b 'Echo'
	

Printer8 dc.w 8
	dc.L 8
	dc.w y9,5,0,0
	dc.L $82000000
	dc.w 0
	dc.w $1000
	dc.L 0
	dc.L Printer7Title
	dc.w 0
Printer8Title	dc.b 'Buffering'
	


Printer9  dc.w 8
	dc.L 9
	dc.w y11,5,0,0
	dc.L $82000000
	dc.w 0
	dc.w $1000
	dc.L 0
	dc.L Printer9Title
	dc.w 0
Printer9Title	dc.b 'DCD Handshake'
	

Printer10  dc.w 8
	dc.L 10
	dc.w y12,5,0,0
	dc.L $82000000
	dc.w 0
	dc.w $1000
	dc.L 0
	dc.L Printer10Title
	dc.w 0
Printer10Title	dc.b 'DSR/DTR Handshake'
	

Printer11  dc.w 8
	dc.L 11
	dc.w y13,5,0,0
	dc.L $82000000
	dc.w 0
	dc.w $1000
	dc.L 0
	dc.L Printer11Title
	dc.w 0
Printer11Title	dc.b 'XON/XOFF Handshake'
	

PrinterList	
	dc.l	devc
	dc.l	devslt
	dc.l	Printer1
	dc.l	Printer2
	dc.l	Printer3
	dc.l	Printer4
	dc.l	Printer5
	dc.l	Printer6
	dc.l	Printer7
	dc.l	Printer8
	dc.l	Printer9
	dc.l	Printer10
	dc.l	Printer11
	dc.l	nbut
	dc.l	0
	
	
	string asis
	
PrinterA1  dc.w	9
	dc.l	3
	dc.w	ya3,5,ya3+12,195
	dc.l	$87000000
	dc.w	$0040
	dc.w	$1004
	dc.l	0
	dc.w	95
	dc.l	PrinterA1Menu
	dc.w	1
	
PrinterA1menu
	dc.B '>> Line Length:\H'
	dc.W 3
	dc.B $0D
	dc.B '== Unlimited\IH'
	dc.W 1
	dc.B $0D
	dc.B '== 40\H'
	dc.W 2
	dc.B $0D
	dc.B '== 72\H'
	dc.W 3
	dc.B $0D
	dc.B '== 80\H'
	dc.W 4
	dc.B $0D
	dc.B '== 132\H'
	dc.W 5
	dc.B $0D
	dc.B '.'
	

	string PASCAL	; from here on, we need pascal strings

PrinterA2   dc.w 8
	dc.L 5
	dc.w ya4,5,0,0
	dc.L $82000000
	dc.w 0
	dc.w $1000
	dc.L 0
	dc.L PrinterA2Title
	dc.w 0
PrinterA2Title	dc.b 'Delete LF after CR'
	

PrinterA3 dc.w 8
	dc.L 6
	dc.w ya5,5,0,0
	dc.L $82000000
	dc.w 0
	dc.w $1000
	dc.L 0
	dc.L PrinterA3Title
	dc.w 0
PrinterA3Title	dc.b 'Add LF after CR'
	

PrinterA4   dc.w 8
	dc.L 8
	dc.w ya6,5,0,0
	dc.L $82000000
	dc.w 0
	dc.w $1000
	dc.L 0
	dc.L PrinterA4Title
	dc.w 0
PrinterA4Title	dc.b 'Echo'
	

PrinteraList	
	dc.l	devc
	dc.l	devslt	
	dc.l	PrinterA1
	dc.l	PrinterA2
	dc.l	PrinterA3
	dc.l	PrinterA4
	dc.l	nbut
	dc.l	0
	

PrinterAbout	dc.w 8
	dc.L 1
	dc.w 38,5,138,280
	dc.L $81000000
	dc.w $0000
	dc.w $1000
	dc.L 0
	dc.L TheText
	dc.w EndText-TheText
	string asis
TheText
	dc.b 'The Printer Port Control Panel allows you to change the Printer Port '
	dc.b 'settings.  These include the Parity, Baud, Line Length, Data/Stop '
	dc.b 'bits, and a host of others.  If you are using a modem or printer, you should consult '
	dc.b 'your UserÕs Guide for that peripheral. If the Printer Port (slot 1) is '
	dc.b 'set up for AppleTalk, only a subset of the normal settings will be available '
	dc.b 'for modification.'
EndText
	string pascal


nbut	dc.w	9		Pcount
	dc.l	30		ID number
	dc.w	132-7
	dc.w	5+10
	dc.w	132+13-7
	dc.w	195-10
	dc.l	simpleButtoncontrol
	dc.w	simpRound
	dc.w	fCtlWantEvents+fctlProcRefNotPtr
	dc.l	0
	dc.l	nbutit
	dc.w	0		length?
	dc.w	0		key equivalent

	string	pascal
nbutit	dc.b	'Standard Settings'
	

	endp
	
	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/PrinterCDEV/makefile b/IIGS.601.SRC/A.U.G/CtlPanel/PrinterCDEV/makefile
new file mode 100644
index 0000000..c192b74
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/PrinterCDEV/makefile
@@ -0,0 +1 @@
+
CDEV = PRINTER




{CDEV}			 	Ä				{CDEV}.Load 	¶
									{CDEV}.r
	reziigs {CDEV}.r -o {CDEV} -t "C7  " -c "pdos"
	if {dup}				# test whether we should duplicateiigs
		duplicateiigs -m -y {CDEV} {CDEV}
	end

{CDEV}.Load		Ä	¶
									{CDEV}.aii.obj ¶
									{CDEV}Data.aii.obj
	linkiigs  		¶
		-x -l -s >{CDEV}.map ¶
		-lseg printer ¶
			{CDEV}.aii.obj ¶
			{CDEV}Data.aii.obj ¶
		-o {CDEV}.Load 


{CDEV}.aii.obj 		Ä 								¶
							{CDEV}.aii					
	asmiigs {CDEV}.aii 


{CDEV}Data.aii.obj 		Ä 								¶
							{CDEV}Data.aii
	asmiigs {CDEV}Data.aii 

\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/PrinterCDEV/printer.aii b/IIGS.601.SRC/A.U.G/CtlPanel/PrinterCDEV/printer.aii
new file mode 100644
index 0000000..dc5960e
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/PrinterCDEV/printer.aii
@@ -0,0 +1 @@
+;;;	printer - printer CDEV.
;
;	Michael V. Stein	04/01/90.
;
;	© Apple, 1990.


	blanks	off



;;	equates.


recty0	equ	0		rectangle offsets
rectx0	equ	2
recty1	equ	4
rectx1	equ	6

slot1ID	equ	$21		battery parameter telling the value of the slot1

wind_atalk_h	equ 47+15+22	;window height for AppleTalk device
wind_printer_h	equ 131+15+22	;window height for printer or modem device
wind_w		equ 200		;window width



;;	imported addresses.


	import	devlen
	import	devptr
	import	nbut
	import	printerabout
	import	printeralist
	import	printerlist
	import	slotlen
	import	slotptr
	
	

;;	include files.


	include	'::cdev.h'
	include	'::commonmacros.h'
	include	'::dp.h'
	include	'e16.control'
	include	'm16.control'
	include	'm16.event'
	include	'm16.menu'
	include	'm16.misctool'
	include	'm16.util2'
	



;;	main program.




main	proc



printer	phb			save calling data bank
	phk
	plb			set our data bank		

;	make room on stack for direct page.

	tsc			
	sec			
	sbc	#dpsize		make room on stack for new direct page
	tcs			
	phd			save the current direct page
	tcd			new direct page

	lda	message	
	cmp	#12		
	bcs	printer1	if message defintely not handled
		
	asl	a		times 2 into word table
	tax			move into index reg
	jsr	(t_cdev-2,x)	call the handler of this message

printer1  pld			restore direct page
	tsc
	clc
	adc	#dpsize		
	tcs			reset the stack
	lda	1,s		Bump the stack up to prepare
	sta	11,s		to take off the 3 parameters
	lda	3,s		
	sta	13,s

	pla			get rid of message space
	
	pla			get rid of data1 space
	pla			
	
	pla			get rid of data2 space
	pla			
	
	lda	#0		return 0 to caller
	sta	5,s
	sta	7,s		
	plb
	
	rtl
		

t_cdev	dc.w	cccE		Null
	dc.w	cccE		handle machine message
	dc.w	cccE		handle boot message
	dc.w	icc		init cdev controls
	dc.w	cccE		close the cdev
	dc.w	cccE		handle event message
	dc.w	ccc		create cdev controls
	dc.w	ham		handle about message
	dc.w	hrm		handle rectangle message
	dc.w	hhm		handle hit message
	dc.w handle_run		;RunCDEV



;;	ccc - create cdev controls.
;
;	entry	[data1] = window ptr.
;		(printerlist..) = table of ptrs to controls if not appletalk selected.
;		(printeralist..) = table of ptrs to controls if appletalk selected.
;		slot1ID = battery parameter for slot 1 identification.
;		(slotlen..) = table of string lengths of slot 1 possibilities.
;		(slotptr..) = table of ptrs to slot 1 names.
.
;
;	exit	(devlen) = length of slot 1 name.
;		(devptr) = offset of name in bank.
;		[wptr] = window pointer.



ccc	ldx	#slot1ID
	jsr	rbp		read battery parameter
	sta old_dev		;save for comparisons
	asl	a
	tax
	lda	slotptr,x	get lo ptr to string
	sta	devptr
	lda	slotlen,x	get length of string
	sta	devlen
	pha			space for result
	pha
	lda	data1+2
	pha			hi word of window ptr
	sta	wptr+2
	lda	data1
	pha			lo word of window ptr
	sta	wptr
	pushw	#3		next item is a ptr to a list of template pointers
		
	ldx	#$21
	jsr	rbp		read battery parameter
	cmp	#2
	beq	ccc1		if appletalk is set in slot 2
	pushl	#printerlist	controls if not appletalk in port
	bra	ccc2
	
ccc1	pushl	#printeralist	controls if appletalk is set in port

ccc2	_NewControl2
	pla
	pla			don't care about result
	
cccE
	rts



;;	ham - handle about message.
;
;	entry	[data1] = ptr to window.
;		(printerabout..) = template of about box control.
;
;	exit	About box control is created.


ham	pha			space for result
	pha
	pushl	data1		window pointer
	pushw	#0		next item is a ptr to a template
	pushl	#printerAbout
	_NewControl2
	pla
	pla			don't care about result
	rts



handle_run		;handle RunCDEV message and poll for change
			;in the type of device connected to our port

;	check BRAM to see whether our device type has changed, and
;	re-create the CDEV window if it has

	lda old_dev		;check whether inited
	bmi @no_action

	ldx #slot1ID
	jsr rbp			;check BRAM
	cmp old_dev		;did it change?
	beq @no_action
@changed
	sta old_dev		;update for next time

	lda wptr+2		;push window ptr
	pha
	lda wptr
	pha
	_KillControls		;get rid of current controls

	pea wind_w
	lda old_dev		;get device type again
	cmp #2			;AppleTalk?
	beq @atalk
@modem
	pea wind_printer_h
	bra @resize
@atalk
	pea wind_atalk_h
@resize
	lda wptr+2		;push window ptr
	pha
	lda wptr
	pha
	ldx #$1C0E		;SizeWindow
	jsl $E10000		;resize the window

;	now we call our own RectCDEV, CreateCDEV, and InitCDEV
;	routines to set up the new window

	stz hr_dummy_rect	;set up dummy rectangle
	stz hr_dummy_rect+2
	lda #125
	sta hr_dummy_rect+4
	lda #200
	sta hr_dummy_rect+6

	lda #<hr_dummy_rect
	sta data1		;set up ptr to rectangle
	lda #^hr_dummy_rect
	sta data1+2

	stz data2		;clear data2 (not used)
	stz data2+2

	jsr hrm			;handle rectangle, adjust button position

	lda wptr
	ldx wptr+2

	sta data1		;put window ptr in data1 for CreateCDEV
	stx data1+2

	jsr ccc			;create new controls

;	InitCDEV takes same params as CreateCDEV, so we'll
;	just assume they're still in place

	jsr icc

@no_action

	rts

hr_dummy_rect			;dummy rectangle for when we call our
				;rectangle routine
	ds.w 4



;;	hhm - handle hit message.
;
;	entry	(bat..) = table of battery parameter values.
;		batL1 = # of popups.
;		batL2 = total # of controls to set.
;		[data1] = handle to control that was hit.
;		[data2] = id of control that was hit.
;		(default..) = table of default values for controls.
;		[wptr] = ptr to window.
;
;	exit	hit is processed.


hhm	ldx	data2
	cpx	#30
	beq	hhm3		if user hit normal settings button
	
	pha			space for result
	pushl	data1
	_GetCtlValue	
	ply			get value of control
	ldx	data2
	cpx	#batL1+1
	bcs	hhm1		if a checkbox
	dey			chooseing from a popup
	bra	hhm2

hhm1	tya
	beq	hhm2		if checkbox isn't set
	ldy	#1		
	
hhm2	lda	bat-1,x		get battery parameter to set
	and	#$ff
	tax
	tya
	jmp	wbp		write battery parameter and return

hhm3	ldx	#0
hhm4	stx	w1
	lda	default,x
	and	#$ff		default value for this battery parameter
	tay			save for now
	lda	bat,x
	and	#$ff		battery parameter to set
	tax
	tya			
	jsr	wbp		write battery parameter	
	ldx	w1
	inx
	cpx	#batl2
	bcc	hhm4		if more to set
	lda	wptr
	sta	data1
	lda	wptr+2
	sta	data1+2
	jmp	icc		init cdev controls and return
	
	
	
;;	hrm - handle rectangle message.
;
;	entry	[data1] = ptr to rectangle.
;		slot1ID = battery param to check for slot 1 id.
;
;	exit	rectangle is set.  If Appletalk is enabled for slot 1
;		then the rectangle is smaller.


hrm	ldx	#$21
	jsr	rbp		read battery parameter
	ldx	#wind_atalk_h	assume appletalk
	cmp	#2
	beq	hrm1		if appletalk is selected
	ldx	#wind_printer_h
hrm1	txa
	ldy	#recty1
	sta	[data1],y	set lower part of rectangle
	sec
	sbc	#15
	ldy	#6+recty0
	sta	nbut+6+recty0	upper y of button
	clc
	adc	#13
	sta	nbut+6+recty1	lower y of button
	rts
	
	

;;	icc - init cdev controls.
;
;	entry	(bat..) = table of battery parameter values.
;		batL1 = # of popups.
;		batL2 = total # of controls to set.
;
;	exit	controls are initialized to the values in battery param.


;	first set the popups.

icc	ldx	#1		control id of parity
icc1	stx	w1		init counter
	lda	bat-1,x
	and	#$ff
	tax
	jsr	rbp		read battery parameter
	ldx	w1
	
	jsr	scv		set control value
	ldx	w1
	inx
	cpx	#batL1+1	# of popups
	bcc	icc1		if more to set
	
;	set checkboxes.

icc2	stx	w1		init counter
	lda	bat-1,x
	and	#$ff
	tax
	jsr	rbp		read battery parameter
	ldx	w1		id of control
	jsr	scvE		set control value
	ldx	w1
	inx
	cpx	#batL2+1		
	bcc	icc2		if more to set
	rts
	
	

;;	rbp - read battery parameter.
;
;	entry	(x) = parameter to read.
;
;	exit	(a) = value of parameter.


rbp	pha			space for result
	phx			parameter to read
	_ReadBparam
	pla			get value
	rts



;;	scv - set control value.
;
;	entry	(a) = value to set -1.
;		(x) = id of control.
;		[data1] = window pointer.
;
;	exit	control value is set.


;;	alternate entrypoint: scvE.
;
;	scvE is called to set a checkbox.  makes sure value is 0 or 1.


scv	ina
	bra	scv1		
	
scvE	tay
	beq	scv1		if checkbox not set
	lda	#1
	
scv1	pha			value to set

	pha			space for result
	pha			
	
	pushl	data1		window pointer
	pushw	#0		hi word of id
	phx			id of control
	_GetCtlHandleFromID
	lda	1,s
	ora	1+2,s
	beq	scv2		if not an actual control because of appletalk
	
	_SetCtlValue		value to set was already on stack
	rts

scv2	pla			get stuff off of stack
	pla
	pla
	rts
	


;;	wbp - write battery parameter.
;
;	entry	(a) = value of parameter to set.
;		(x) = battery parameter to set.
;
;	exit	battery parameter is set.


wbp	pha			new value
	phx			parameter to set
	_WriteBparam
	rts
	


;	data used by this program.


;	battery parameter locations used.

bat	dc.b	$08		
	dc.b	$06		
	dc.b	$01		
	dc.b	$07		
batL1	equ	*-bat		# of popups

	dc.b	$02		
	dc.b	$03		
	dc.b	$05
	dc.b	$04
	dc.b	$09
	dc.b	$0a
	dc.b	$0b
batL2	equ	*-bat		total number of parameters


;	default values for battery parameter settings.

default  dc.b	2
	dc.b	13
	dc.b	0
	dc.b	6
	dc.b	0
	dc.b	1
	dc.b	0
	dc.b	0
	dc.b	1
	dc.b	1
	dc.b	0
	
	
wptr	ds.b	4		hold window ptr
old_dev	dc.w $FFFF		;last device type seen in BRAM, initedÉ
				;Éto special value

	endp

	end
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/RamDiskCDEV/RAMDisk.r b/IIGS.601.SRC/A.U.G/CtlPanel/RamDiskCDEV/RAMDisk.r
new file mode 100644
index 0000000..59f19e5
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/RamDiskCDEV/RAMDisk.r
@@ -0,0 +1 @@
+/*******************************************************************/
/*
/* RAMDisk.r
/*
/* Copyright (C) 1988-1992
/* Apple Computer, Inc.
/* All Rights Reserved
/*
/* This file contains the source of the resources needed to build the 
/* RAM CDEV.
/*
/*******************************************************************/


#include "typesiigs.r"


resource rIcon (1) {
	  0x8000,							/* Kind */
	  20,								/* Height */
	  28,								/* Width */

	  $"FF00000000000000000000000000"
	  $"FF0BBBBBBBBBBBBBBBBBBBBBBBB0"
	  $"F0B0B0B0B0B0B0B0B0B0B0B0B0B0"
	  $"0BB0B0B0B0B0B0B0B0B0B0B0B0B0"
	  $"0BBBBBBBBBBBBBBBBBBBBBBBBBB0"
	  $"0BB0B0B0B0B0B0B0B0B0B0B0B0B0"
	  $"0BB0B0B0B0B0B0B0B0B0B0B0B0B0"
	  $"0BBBBBBBBBBBBBBBBBBBBBBBBBB0"
	  $"0000000000000000000000000000"
	  $"FF00C0C00B0B0B0B06E6E6E6E60F"
	  $"FF0C0C0C0BBBBBBB00000000000F"
	  $"FF00C0C00B00B0BBBBBBBB4B0FFF"
	  $"FF0C0C0C0B00B0BB000BBB4B0FFF"
	  $"FF00C0C00BBB0B0B000B0B4B0FFF"
	  $"FF0C0C0C0B0B0B0B000B0B4B0FFF"
	  $"FF00C0C00BBBBBBBBBBBBBBB0FFF"
	  $"FF00000000000000000000000FFF"
	  $"FF0FFFFFFFFFFFFFFFFFFFBF0FFF"
	  $"FF0FFFFFFFFFFFFFFFFFFFBF0FFF"
	  $"FF00000000000000000000000FFF",
		
	  $"00FFFFFFFFFFFFFFFFFFFFFFFFFF"
	  $"00FFFFFFFFFFFFFFFFFFFFFFFFFF"
	  $"0FFFFFFFFFFFFFFFFFFFFFFFFFFF"
	  $"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	  $"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	  $"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	  $"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	  $"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	  $"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	  $"00FFFFFFFFFFFFFFFFFFFFFFFFF0"
	  $"00FFFFFFFFFFFFFFFFFFFFFFFFF0"
	  $"00FFFFFFFFFFFFFFFFFFFFFFF000"
	  $"00FFFFFFFFFFFFFFFFFFFFFFF000"
	  $"00FFFFFFFFFFFFFFFFFFFFFFF000"
	  $"00FFFFFFFFFFFFFFFFFFFFFFF000"
	  $"00FFFFFFFFFFFFFFFFFFFFFFF000"
	  $"00FFFFFFFFFFFFFFFFFFFFFFF000"
	  $"00FFFFFFFFFFFFFFFFFFFFFFF000"
	  $"00FFFFFFFFFFFFFFFFFFFFFFF000"
	  $"00FFFFFFFFFFFFFFFFFFFFFFF000";
};

read rCDEVCode (1,Convert) "RAMDISK.Load";


resource rCDEVFlags (1) {
	wantHit+wantInit+wantCreate+wantAbout
	+updateSSfromBRAM+wantRect+wantRun,			/* CDEV Flags	*/
	1,											/* Enabled		*/
	1,											/* Version		*/
	1,											/* Machine		*/
	4,											/* System		*/
	{0,0,106,200},								/* DataRect		*/
	"RAM",										/* Name			*/
	"Darryl Lovato",							/* Author		*/
	"v1.2";									/* VersStr		*/
};
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/RamDiskCDEV/RamDisk.aii b/IIGS.601.SRC/A.U.G/CtlPanel/RamDiskCDEV/RamDisk.aii
new file mode 100644
index 0000000..89e7114
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/RamDiskCDEV/RamDisk.aii
@@ -0,0 +1 @@
+;;;	ramdisk - ram CDEV.
;
;	Michael V. Stein	04/01/90.
;
;	© Apple, 1990.


	blanks	off


;;	equates.


;	stack equates for special action procedures:

handleid  equ	4+1		offset of handleid on stack

part	equ	handleid+4	offset to part on stack


;	rectangle offsets

recty0	equ	0		
rectx0	equ	2
recty1	equ	4
rectx1	equ	6

scroll320Width	equ 18		;added 10/29/91 by Monte	
	

;;	include files.

	include	'::cdev.h'
	include	'::commonmacros.h'
	include	'::dp.h'
	include	'e16.control'
	include	'm16.control'
	include	'm16.event'
	include	'm16.intmath'
	include	'm16.memory'
	include	'm16.misctool'
	include 'm16.quickdraw'	;added 9-Dec-91 DAL
	include	'm16.util2'
	

;;	main program.

main	proc


;;	exported addresses

	export	cstr
	export	rstr
	export	str1
	export	str2
	export	str3


;;	imported addresses

	import	killresize
	import	ramabout
	import	ramlist
	import ram1
	import ram2


ram	phb			save calling data bank
	phk
	plb			set our data bank		

;	make room on stack for direct page.

	tsc			
	sec			
	sbc	#dpsize		make room on stack for new direct page
	tcs			
	phd			save the current direct page
	tcd			new direct page

	lda	message	
	cmp	#12		
	bcs	ram_1	if message defintely not handled
		
	asl	a		times 2 into word table
	tax			move into index reg
	jsr	(t_cdev-2,x)	call the handler of this message

ram_1 	pld			restore direct page
	tsc
	clc
	adc	#dpsize		
	tcs			reset the stack
	lda	1,s		Bump the stack up to prepare
	sta	11,s		to take off the 3 parameters
	lda	3,s		
	sta	13,s

	pla			get rid of message space
	
	pla			get rid of data1 space
	pla			
	
	pla			get rid of data2 space
	pla			
	
	lda	#0		return 0 to caller
	sta	5,s
	sta	7,s		
	plb
	
	rtl
		

t_cdev	dc.w	cccE		Null
	dc.w	cccE		handle machine message
	dc.w	cccE		handle boot message
	dc.w	icc		init cdev controls
	dc.w	cccE		close the cdev
	dc.w	cccE		handle event message
	dc.w	ccc		create cdev controls
	dc.w	ham		handle about message
	dc.w	cccE		handle rectangle message
	dc.w	hhm		handle hit message
	dc.w handle_run		;RunCDEV
	

;;	ccc - create cdev controls.
;
;	entry	[data1] = window pointer.
;		(ramlist..) = table of pointers to control templates to create.
;
;	exit	controls are created.


ccc
	lda data1
	sta my_wind_ptr		;keep copy of window ptr for later
	lda data1+2
	sta my_wind_ptr+2

	pha
	pha			space for result
	_TotalMem		
	pulll	l1		total memory available
	lda l1
	sta my_total_mem	;save for later
	lda l1+2
	sta my_total_mem+2
	
	lda	l1+1
	jsr	cms		compute max size
	
	jsr get_mem_state	;made subroutine 10/29/91 -- Monte Benaresh
	
	jsr	dmt		determine machine type	
	bcs @not_01		if a new machine

;	if not a ten speed, then remove the resize checkbox.

;;;	lda	#0
;;;	sta	killresize
;;;	sta	killresize+2
*** optimized 9-Dec-91 DAL
	stz killresize
	stz killresize+2
*** end 9-Dec-91

@not_01
;	check video mode and resize scroll bars for 320 mode

	pha			;space for result
	_GetMasterSCB
	pla
	xba
	xba			;test bit 7
	bmi @640		;all set for 640 mode
@320
	lda ram1+6+2		;get x1 for ctl rect
	clc
	adc #scroll320Width
	sta ram1+6+6		;store in x2

	lda ram2+6+2		;get x1 for ctl rect
	clc
	adc #scroll320Width
	sta ram2+6+6		;store in x2
@640
ccc1	pha			space for result
	pha
	pushl	data1		window pointer
	pushw	#3		next item is a ptr to a list of template pointers
	pushl	#ramList
	_NewControl2
	pla
	pla			don't care about result
	
	pha
	pha			space for result
	pushl	data1		window ptr
	pushl	#7		if of ram disk scroll bar
	_GetCtlHandleFromID
	pulll	ramhdl
		
	pha
	pha			space for result
	pushl	data1		window ptr
	pushl	#8		if of cache scroll bar
	_GetCtlHandleFromID
	pulll	cachehdl
	
cccE	rts



;;	ham - handle about message.
;
;	entry	[data1] = window pointer.
;		(ramAbout..) = template for about screen.
;
;	exit	The About control is created.


ham	pha			space for result
	pha
	pushl	data1		window pointer
	pushw	#0		next item is a ptr to a template
	pushl	#ramAbout
	_NewControl2
	pla
	pla			don't care about result
	rts



handle_run	;handle RunCDEV message

;	check low word of tick count to decide whether it's
;	time to update our RAM use statistics

	pha
	pha			;space for result
	_GetTick
	pla
	plx
	sta w1			;save low word
	sec
	sbc last_redraw		;get elapsed time
	cmp #180+1		;this many ticks since last update?
	bcc @no_redraw

	lda w1			;low word of current tick
	sta last_redraw		;update our redraw time

	jsr get_mem_state	;get free mem, etc

	lda #10			;ID of mem in use ctl
	jsr @draw_ctl

	lda #11			;ID of free mem ctl
	jsr @draw_ctl

	lda #13			;ID of max block ctl
	jsr @draw_ctl

@no_redraw
	rts

@draw_ctl	;private subroutine for this routine

	pha
	pha			;space for result
	ldx my_wind_ptr+2
	phx
	ldx my_wind_ptr
	phx
	pea $0000
	pha			;low word of ctl ID
	_GetCtlHandleFromID

	_DrawOneCtl		;pass handle left on stack
	rts



;;	hhm - handle hit message.
;
;	entry	[data1] = handle to control that was hit.
;		[data2] = id of control that was hit.
;
;	exit	battery parameter locations are updated.


hhm	lda	data2
	cmp	#9
	bne	hhm2		if not the resize checkbox
	
	pha			space for result
	pushl	data1		handle to control
	_GetCtlvalue		get control value
	pla
	beq	hhm1		if not set
	lda	#1
hhm1	pha
	ldx	#$54		battery parameter for resizing ram disk
	jsr	wbp		write battery parameter
	pla
	shortm
	sta	>$e115ff	set ram disk power up byte in memory
	longm
	rts
	
hhm2	cmp	#1
	bne	hhm3		if not ram disk scroll bar
	
	pha			space for result
	pushl	data1
	_GetCtlValue
	lda	max
	sec
	sbc	1,s
	jsr	grsE		set the ramdisk battery params
	pla
	;jmp	drs		display ramdisk setting and return
	rts

hhm3	cmp	#2
	bne	hhm5		if not cache scroll bar
	
	pha
	pushl	data1
	_GetCtlValue
	lda	max
	sec
	sbc	1,s
	jsr	gcsE		set the ramdisk battery params
	pla
	;jmp	dcs		display cache size and return
	rts
	
hhm5	rts



;;	hrm - handle rectangle message.
;
;	entry	[data1] = ptr to rectangle.
;
;	exit	rectangle is adjusted if the resize checkbox isn't there.


hrm	jsr	dmt		determine machine type
	bcs	hrm1		if tenspeed or greater machine
	lda	#96
	ldy	#recty1
	sta	[data1],y	set lower part of rectangle
hrm1	rts	
	


;;	icc - init cdev controls.
;
;	entry	[data1] = window pointer.
;		(iccbat..) = table of battery parameters to check.
;
;	exit	controls are intialized to the battery settings.


icc
	pha
	pha			;space for result
	_GetTick
	pla
	plx
	sta last_redraw		;save low word only, keep track of lastÉ
				;Étime we redrew ram usage statistics
	jsr	gcs		get cache size
	jsr	grs		get ram disk size

	lda	max
	sec	
	sbc	ramdisk
	ldx	#1
	jsr	scv		set control value
	
	lda	max
	sec
	sbc	cache
	ldx	#2
	jsr	scv		set control value

	jsr	dmt		determine machine type
	bcc	icc1		if not resize control
	
	ldx	#$54
	jsr	rbp		read battery parameter
	ldx	#9		id of resize box
	jsr	scvE		set control value
	
icc1	ldx	#1		if of control
	jsr	scp		set control params
	ldx	#2		id of control to set
	jsr	scp		set control params

	lda	#hrc		handle ram control
	ldx	#1		id of control
	jsr	sca		set control action
	
	lda	#hcc		handle cache control
	ldx	#2		id of control
	jsr	sca		set control action
	
	jsr	dcs		display cache size
	
	jmp	drs		display ram size and return
	
	
	

;	teriary routines called by the above routines.


	
	
;;	cms - calculate max size.
;
;	entry	(a) = total memory / 256.
;
;	exit	(max) = max size of ramdisk or cache in 32K chunks.


cms	lsr	a
	lsr	a		divide by 1024
	sec
	sbc	#256
	lsr	a
	lsr	a
	lsr	a
	lsr	a		
	lsr	a		divide by 32
	cmp	#$fe
	bcc	cms1		if ok value
	lda	#$fe		maximum value can be 254*32
cms1	sta	max
	rts
	
	

;;	dcs - display cache size.
;
;	entry	(cache) = current size of cache in 32K chunks.
;
;	exit	cache size is displayed.
;		(cstr..) = ascii representation of size of cache in kilobytes.


dcs	lda	cache
	asl	a
	asl	a
	asl	a
	asl	a
	asl	a		*32
	pha			int to convert
	pushl	#cstr		cache string
	pushw	#5		5 chars long
	pushw	#0		unsigned
	_Int2Dec
	pushl	cachehdl
	_DrawOneCtl	
	rts
	
	

;;	dmt - determine machine type.
;
;	entry	none.
;
;	exit	(c) set if not a rom 1 machine


dmt	lda	#0		
	pha			space
	pha			space
	pha			space
	pha			space
	pha			(a)
	pha			(x)
	pha			(y)
	pushw	#$fe1f		entrypoint to call
	_FWEntry		call the firmware
	ply			(y)
	plx			(a) - unused
	plx			(x) - unused
	plx			(p) - unused
	cpy	#2
	rts


	
;;	drs - display ram size.
;
;	entry	(ramdisk) = size of ram disk in 32K chunks.
;
;	exit	cache size is displayed.
;		(cstr..) = ascii representation of size of cache in kilobytes..


drs	lda	ramdisk
	asl	a
	asl	a
	asl	a
	asl	a
	asl	a		*32
	pha			int to convert
	pushl	#rstr		cache string
	pushw	#5		5 chars long
	pushw	#0		unsigned
	_Int2Dec	
	pushl	ramhdl
	_DrawOneCtl		
	rts



;;	gcs - get cache size.
;
;	entry	battery parameter $81 = cache size or $ff if unitialized.
;
;	exit	battery parameter is updated if out of range.
;		(cache) = size of cache.


;;	alternate entry point:  gcsE.
;
;	entry	(a) = new size of cache.
;	
;	exit	battery parameters are updated.
;		(cache) = new size of cache.


gcs	ldx	#$81		battery parameter for cache size
	jsr	rbp		read battery parameter
	and	#$ff		
	sta	cache		save size of cache
	cmp	#$ff
	bne	gcs1		if has been initialized allready
	lda	#1
	bra	gcs2		reset to smallest size
	
gcs1	cmp	max
	bcc	gcs3		if ok
	beq	gcs3		if ok
	lda	max

gcsE
	
gcs2	sta	cache		save
	ldx	#$81		battery parameter for cache size
	jmp	wbp		write battery parameter and return

gcs3	rts	
	


;;	grs - get ram disk size.
;
;	entry	battery parameter $36 = ramdisk size or $ff if unitialized.
;
;	exit	both battery parameters are updated if out of range.
;		(ramdisk) = size of ramdisk.


;;	alternate entry point:  grsE.
;
;	entry	(a) = new size of ramdisk.
;	
;	exit	both battery parameters are updated.
;		(ramdisk) = new size of ramdisk.


grs	ldx	#$36		battery parameter for minimum ram disk size
	jsr	rbp		read battery parameter
	and	#$ff
	sta	ramdisk		save size of ramdisk
	cmp	#$ff
	bne	grs1		if has been initialized allready
	lda	#1		
	bra	grs2		reset to smallest size
	
grs1	cmp	max
	bcc	grs3		if ok
	beq	grs3		if ok
	lda	max

grsE	
grs2	sta	ramdisk		save
	pha			save for now
	ldx	#$36
	jsr	wbp		write battery parameter
	pla
	ldx	#$37
	jmp	wbp		write battery parameter and return
	
grs3	rts	
	

;;	hcc - handle cache control.
;
;	entry	[handleid,s] = handle of control that was hit.
;		maxpitch = maximum pitch used on the GS.
;		(part,s) = part of control that was hit.
;		
;		called by control manager.
;
;	exit	(cache) = new size of the cache.
;		control value is set and new value displayed if different.


hcc	phb
	phk
	plb
	
	lda	part,s
	cmp	#5
	bne	hcc1		if not hit in scroll bar up arrow
	lda	cache
	cmp	max
	bcs	hcc7		if already the highest possible
	ina	
	bra	hcc4		set the new value

hcc1	cmp	#6
	bne	hcc2		if not in scroll bar down arrow
	lda	cache
	beq	hcc7		if alredy the lowest possible
	dea
	bra	hcc4		set the new value

hcc2	cmp	#7
	bne	hcc3		if not page up
	lda	cache
	clc
	adc	#4
	cmp	max
	bcc	hcc4		if ok
	lda	max
	bra	hcc4		set to the max possible
	
hcc3	cmp	#8		page down
	;bne	hcc7		if dragging the thumb
	bne @thumb		if dragging the thumb  *** changed 10/28/91 by Monte
	lda	cache
	sec
	sbc	#4
	bcs	hcc4		if ok, set the new value
	lda	#0		reset to min possible
	;*** next code added 10/28/91 by Monte Benaresh
	bra @set_val
@thumb
	pha			;space for result
	lda	handleid+2+2,s	hi word of handleid
	pha
	lda	handleid+4,s	lo word of handleid
	pha	
	_GetCtlValue
	lda max
	sec
	sbc 1,s			;subtract new value
	plx			;fix stack
	; fall through and set new value
@set_val
	;*** end 10/28/91
hcc4	cmp	cache
	beq	hcc7		if nothing changes
	sta	cache		save new value
	lda	max
	sec
	sbc	cache
	pha			new ram disk
	lda	handleid+2+2,s	hi word of handleid
	pha
	lda	handleid+4,s	lo word of handleid
	pha	
	_SetCtlValue
	
hcc6	jsr	dcs		display cache size	

hcc7	jmp	hrcE		clean up stack and exit
	


;;	hrc - handle ram control.
;
;	entry	[handleid,s] = handle of control that was hit.
;		(part,s) = part of control that was hit.
;		
;		called by control manager.
;
;	exit	(ramdisk) = new size of ramdisk.
;		display is updated if out of range.


;;	alternate entry point: hrcE.
;
;	hrcE is used to get the stuff off the stack from this sort of call.


hrc	phb
	phk
	plb
	
	lda	part,s
	cmp	#5
	bne	hrc1		if not hit in scroll bar up arrow
	lda	ramdisk
	cmp	max
	bcs	hrc7		if already the highest possible
	ina	
	bra	hrc4		set the new value

hrc1	cmp	#6
	bne	hrc2		if not in scroll bar down arrow
	lda	ramdisk
	beq	hrc7		if alredy the lowest possible
	dea
	bra	hrc4		set the new value

hrc2	cmp	#7
	bne	hrc3		if not page up
	lda	ramdisk
	clc
	adc	#4
	cmp	max
	bcc	hrc4		if ok
	beq	hrc4		if ok (max possible)
	lda	max
	bra	hrc4		set to the max possible
	
hrc3	cmp	#8		page down
	;bne	hrc6		if dragging the thumb
	bne @thumb		if dragging the thumb  *** changed 10/28/91 by Monte
	lda	ramdisk
	sec
	sbc	#4
	bcs	hrc4		if ok, set the new value
	lda	#0		reset to min possible
	;*** next code added 10/28/91 by Monte Benaresh
	bra @set_val
@thumb
	pha			;space for result
	lda	handleid+2+2,s	hi word of handleid
	pha
	lda	handleid+4,s	lo word of handleid
	pha	
	_GetCtlValue
	lda max
	sec
	sbc 1,s			;subtract new value
	plx			;fix stack
	; fall through and set new value
@set_val
	;*** end 10/28/91
hrc4	cmp	ramdisk
	beq	hrc7		if hasn't changed
;	jsr	grsE		set the ramdisk battery params
	sta	ramdisk
	lda	max
	sec
	sbc	ramdisk
	pha			new ram disk
	lda	handleid+2+2,s	hi word of handleid
	pha
	lda	handleid+4,s	lo word of handleid
	pha	
	_SetCtlValue

hrc6	jsr	drs		display ram size
	

hrc7

hrcE	plb			restore data bank
	lda	1,s
	sta	7,s
	lda	2,s
	sta	8,s
	tsc
	clc
	adc	#6		move stack up
	tcs
	rtl			
	


;;	rbp - read battery parameter.
;
;	entry	(x) = parameter to read.
;
;	exit	(a) = value of parameter.


rbp	pha			space for result
	phx			parameter to read
	_ReadBparam
	pla			get value
	rts



;;	sca - set control action.
;
;	entry	(a) = address of action proc.
;		(x) = lo word of control id.
;		[data1] = window ptr.
;
;	exit	action proc is set.


sca	ldy	#^sca
	phy			bank of action procedure
	pha			address of action proc

	pha
	pha			space for result
	pushl	data1		window ptr
	pushw	#0		hi word of control id
	phx			lo word of control id
	_GetCtlHandleFromID
	_SetCtlAction		set action proc
	rts
	


;;	scp - set control params.
;
;	entry	(x) = lo word of control id.
;		[data1] = windwo ptr.
;		(max) = data size of scroll bar.
;
;	exit	control parameters are set for scroll bar.



scp	lda	max		
	ina
*** added 9-Dec-91 DAL
*** Since we're passing 4 for the View size, we need to pass
*** max+4, not max+1, as the data size.
	inc a
	inc a
	inc a
*** end 9-Dec-91
	pha			data size of scroll bar
	pushw	#4		view of scroll bar
	
	pha
	pha			space for result
	pushl	data1		window pointer	
	pushw	#0		hi word of id
	phx			lo word of id
	_GetCtlHandleFromID
	_SetCtlParams		handle to control is on the stack
	rts
	


;;	scv - set control value.
;
;	entry	(a) = value of control to set -1.
;		(x) = id of control.
;		[data1] = window pointer.
;
;	exit	control is set to the value desired.


;;	alternate entry point: scvE.
;
;	scvE is called when setting the contol value of a checkbox.

	
scvE	tay
	beq	scv1		if checkbox not set
	lda	#1

scv
	
scv1	pha			value to set

	pha			space for result
	pha			
	
	pushl	data1		window pointer
	pushw	#0		hi word of id
	phx			lo word of id
	_GetCtlHandleFromID
	_SetCtlValue		handle to control is on the stack
	rts


get_mem_state		;get state of memory use and update strings

	;made subroutine 10/29/91 by Monte Benaresh

	pha
	pha			;space for result
	_RealFreeMem		changed 1/24/91 by Monte Benaresh --
	;			Note that this changes the value shown for
	;			"Memory in use" to NOT include purgeable
	;			memory

	pulll	l2		free memory available

	lda my_total_mem
	sec
	sbc	l2
	sta	l3
	lda my_total_mem+2
	sbc	l2+2
	sta	l3+2		memory in use
	lda	l3+1
	lsr	a		
	lsr	a		/ (256 * 4)
	
	pha			int to convert
	pushl	#str1		dest string
	pushw	#5		5 chars long
	pushw	#0		unsigned
	_Int2Dec
	
	lda	l2+1
	lsr	a
	lsr	a		/ 256 * 4
	
	pha			int to convert
	pushl	#str2		dest string
	pushw	#5		5 chars long
	pushw	#0		unsigned
	_Int2Dec
		
	pha
	pha
	_MaxBlock
	pulll	l1
	
	lda	l1+1
	lsr	a
	lsr	a		/ (256 * 4)
	
	pha			int to convert
	pushl	#str3		dest string
	pushw	#5		5 chars long
	pushw	#0		unsigned
	_Int2Dec
	
	rts


	
;;	wbp - write battery parameter.
;
;	entry	(a) = value of parameter to set.
;		(x) = battery parameter to set.
;
;	exit	battery parameter is set.


wbp	pha			new value
	phx			parameter to set
	_WriteBparam
	rts
	
	
	
;	data used here.


cache	ds.b	2		size of cache
cachehdl  ds.b	4		handle to cache control
ramdisk	ds.b	2		size of ram
ramhdl	ds.b	4		handle to ramdisk control
max	ds.b	2		max size of cache or ram disk

		;next storage added by Monte Benaresh -- Oct 1991
my_wind_ptr	ds.l 1		;CDEV's window pointer
my_total_mem	ds.l 1		;total machine memory
last_redraw	ds.w 1		;low word of tick count at last redraw


;	define storage for total memory amount.

str1	ds.b	5		5 chars for string
	dc.b	'K'		


;	define storage for free memory amount.

str2	ds.b	5		5 chars for string
	dc.b	'K'		


;	define storage for max block amount.

str3	ds.b	5		5 chars for string
	dc.b	'K'		


;	define storage for cache amount.

cstr	ds.b	5		5 chars for string
	dc.b	'K'		append the K


;	define storage for ramdisk amount.

rstr	ds.b	5		5 chars for the string
	dc.b	'K'		append the K
	
	
	
	endp

	end
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/RamDiskCDEV/RamDisk.pii b/IIGS.601.SRC/A.U.G/CtlPanel/RamDiskCDEV/RamDisk.pii
new file mode 100644
index 0000000..29d7326
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/RamDiskCDEV/RamDisk.pii
@@ -0,0 +1 @@
+This sourcefile is no longer used.
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/RamDiskCDEV/RamDiskData.aii b/IIGS.601.SRC/A.U.G/CtlPanel/RamDiskCDEV/RamDiskData.aii
new file mode 100644
index 0000000..4cb3527
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/RamDiskCDEV/RamDiskData.aii
@@ -0,0 +1 @@
+
;;;	ramdiskdata - data for the ram CDEV..
;
;	Michael V. Stein	04/01/90.
;
;	© Apple, 1990.

	blanks off
	string ASIS


	include	'e16.control'


data	proc


;;	imported address.
;

	import	cstr
	import	rstr
	import	str1
	import	str2
	import	str3


;;	exported addresses.
;

	export	killresize
	export	ramabout
	export	ramlist
	export ram1
	export ram2

;scrW	equ 38			;width for scroll bars
scrW	equ 36			;width for scroll bars in 640 mode, changedÉ
				;Éin ccc for 320 mode

ram1 	dc.w	9			;pcount
	dc.l	1			;ctl ID
	dc.w	11,55,60,55+scrW	;rect
	dc.l	scrollBarControl
	dc.w	3			;flag
	dc.w	$1000			;more flag
	dc.l	0			;ref con
	dc.w	14			;max size
	dc.w	1			;view size
	dc.w	0			;init value
	
	
ram2 	dc.w	9
	dc.l	2
	dc.w	11,152,60,152+scrW
	dc.l	scrollBarControl
	dc.w	3
	dc.w	$1000
	dc.l	0
	dc.w	14
	dc.w	1
	dc.w	0
	

ram3 	dc.w	8
	dc.l	3	
	dc.w	1,20,11,100
	dc.l	statTextControl
	dc.w	0
	dc.w	$1000
	dc.l	0
	dc.l	ram3t
	dc.w	ram3tL
ram3t	dc.b	'RAM Disk:'
ram3tL	equ	*-ram3t
	

ram4 	dc.w	8
	dc.l	4	
	dc.w	1,110,11,200
	dc.l	statTextControl
	dc.w	0
	dc.w	$1000
	dc.l	0
	dc.l	ram4t
	dc.w	ram4tL
ram4t	dc.b	'RAM Cache:'
ram4tL	equ	*-ram4t
	

ram5 	dc.w	8
	dc.l	5	
	dc.w	64,10,74,120
	dc.l	statTextControl
	dc.w	0
	dc.w	$1000
	dc.l	0 
	dc.l	ram5t
	dc.w	ram5tL
ram5t	dc.b	'Memory in use:'
ram5tL	equ	*-ram5t
	

ram6 	dc.w	8
	dc.l	6	
	dc.w	74,10,84,145
	dc.l	statTextControl
	dc.w	0
	dc.w	$1000
	dc.l	0
	dc.l	ram6t
	dc.w	ram6tL
;ram6t	dc.b	'Free memory:'
ram6t	dc.b	'Available memory:'	changed 1/24/91 by Monte Benaresh
ram6tL	equ	*-ram6t
	
	
;	ramdisk K size	

ram7 	dc.w	9			
	dc.l	7	
	dc.w	30,10,40,55-4
	dc.l	statTextControl
	dc.w	0
	dc.w	$1000
	dc.l	0
	dc.l	rstr
	dc.w	6
	dc.w	-1
	

;	cache K size.

ram8 	dc.w	9
	dc.l	8	
	dc.w	30,105,40,150-4
	dc.l	statTextControl
	dc.w	0
	dc.w	$1000
	dc.l	0
	dc.l	cstr
	dc.w	6
	dc.w	-1
	
	
	string PASCAL	; from here on, we need pascal strings

Ram9 	dc.w	8
	dc.l	9
	dc.w	85+10,10,0,0
	dc.l	checkControl
	dc.w	0
	dc.w	$1000
	dc.l	0
	dc.l	Ram9Title
	dc.w	0
Ram9Title	dc.b	'Resize after reset'
	
	
;	value string for memory in use.

ram10 	dc.w	9
	dc.l	10	
	dc.w	64,195-70,74,190
	dc.l	statTextControl
	dc.w	0
	dc.w	$1000
	dc.l	0
	dc.l	str1
	dc.w	6
	dc.w	-1		right justified

;	value string for available memory.

ram11 	dc.w	9
	dc.l	11
	dc.w	74,140,84,190
	dc.l	statTextControl
	dc.w	0
	dc.w	$1000
	dc.l	0
	dc.l	str2
	dc.w	6
	dc.w	-1		right justified

	string	asis

ram12	dc.w	8
	dc.l	6	
	dc.w	84,10,94,120
	dc.l	statTextControl
	dc.w	0
	dc.w	$1000
	dc.l	0
	dc.l	ram12t
	dc.w	ram12tL
ram12t	dc.b	'Max block size:'
ram12tL	equ	*-ram12t


;	value string for max block

ram13 	dc.w	9
	dc.l	13
	dc.w	84,195-70,94,190
	dc.l	statTextControl
	dc.w	0
	dc.w	$1000
	dc.l	0
	dc.l	str3
	dc.w	6
	dc.w	-1		right justified

	
ramList	
	dc.l	ram1
	dc.l	ram2
	dc.l	ram3
	dc.l	ram4
	dc.l	ram5
	dc.l	ram6
	dc.l	ram7
	dc.l	ram8
	dc.l	ram10
	dc.l	ram11
	dc.l	ram12
	dc.l	ram13
KillResize
	dc.l	ram9
	dc.l	0
	

RamAbout	
	dc.w	8
	dc.l	1
	dc.w	38,5,138,280
	dc.l	statTextControl
	dc.w	$0000
	dc.w	$1000
	dc.l	0
	dc.l	TheText
	dc.w	EndText-TheText
	string asis
TheText
	dc.b	'The RAM control panel lets you change the sizes of the RAM cache and '
	dc.b	'RAM disk.  If you set '
	dc.b	'the RAM disk to zero K, no RAM disk is created.  If resize '
	dc.b	'after next reset is enabled (ROM 3 only), '
	dc.b	'the RAM disk will be resized the next time you boot.  The RAM cache '
	dc.b	'is the amount of memory set aside for GS/OS '
	dc.b	'to speed up disk access.'
EndText
	string pascal
	ENDP


	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/RamDiskCDEV/makefile b/IIGS.601.SRC/A.U.G/CtlPanel/RamDiskCDEV/makefile
new file mode 100644
index 0000000..17d3232
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/RamDiskCDEV/makefile
@@ -0,0 +1 @@
+
CDEV = ramdisk


{CDEV}	Ä	{CDEV}.Load 	¶
			{CDEV}.r
	reziigs {CDEV}.r -o {CDev} -t "C7  " -c "pdos"
	if {dup}				# test whether we should duplicateiigs
		duplicateiigs -m -y {CDEV} {CDEV}
	end

{CDEV}.Load		Ä	{CDEV}.aii.obj		¶
					{CDEV}Data.aii.obj
	linkiigs -x -lseg gen		¶
			{CDEV}.aii.obj		¶
			{CDEV}Data.aii.obj	¶
		-o {CDEV}.Load


{CDEV}.aii.obj 	Ä 	{CDEV}.aii	Makefile				¶
					::cdev.h  ::commonmacros.h ::dp.h
	asmiigs {CDEV}.aii


{CDEV}Data.aii.obj 	Ä 	{CDEV}Data.aii	Makefile			¶
						::cdev.h  ::commonmacros.h ::dp.h
	asmiigs {CDEV}Data.aii
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/RamDiskCDEV/ramdisk b/IIGS.601.SRC/A.U.G/CtlPanel/RamDiskCDEV/ramdisk
new file mode 100644
index 0000000..e69de29
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/Release Notes.CtlPanel b/IIGS.601.SRC/A.U.G/CtlPanel/Release Notes.CtlPanel
new file mode 100644
index 0000000..f044e71
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/Release Notes.CtlPanel	
@@ -0,0 +1 @@
+GS Graphic Control Panel  6.0d18  Release Notes  
Michael Stein




Netprinter CDEV  1.0a2

BRC #74300  (machine hangs after renaming a printer and starting a new app without closing 
control panel first.)

Eventually traced it down to the fact that an AppleTalk parameter block had a bad pointer and so it was
trashing some memory when you downloaded the emulator




Namer CDEV 1.0a2

BRC #74300  (machine hangs after renaming a printer and starting a new app without closing 
control panel first.)

Eventually traced it down to the fact that an AppleTalk parameter block had a bad pointer and so it was
trashing some memory when you renamed a printer.




MIDI CDEV 1.0b2

Enhanced user interface.

\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/SetStartCDEV/CDevIntf.p b/IIGS.601.SRC/A.U.G/CtlPanel/SetStartCDEV/CDevIntf.p
new file mode 100644
index 0000000..f0408ac
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/SetStartCDEV/CDevIntf.p
@@ -0,0 +1 @@
+{ Max Pascal interface to the CDEV Manager by Darryl Lovato
  Copyright (c) 1989 by Apple Computer, Inc. }

unit CDEVIntF;

interface

const
	MachineCDEV =		1;	{ machine test, return 0 if NOT ok to run on this machine }
	BootCDEV =			2;	{ boot time init call or Install call - no parms }
	ShutDownCDEV =		3;	{ shut down or de-install the CDEV - no parms }
	InitCDEV =			4;	{ called when being shown - data1 = windowPtr }
	CloseCDEV =			5;	{ called when being removed - data1 = windowPtr }
	EventsCDEV =		6;	{ call3ed when an event - data1 = ptr to event record }
	CreateCDEV =		7;	{ called so that a CDEV can create its controls inline - data1 = window }
	AboutCDEV =			8;	{ called so that a CDEV can create its about text inline - no parms }
	RectCDEV =			9;	{ called so that a CDEV can dynamically compute its rectangle data1 = rectprr }
	HitCDEV =			10;	{ called when ctl is "hit" - data1 = Hdl to ctl hit, data2 = Ctl Id }
	RunCDEV =			11;	{ called when daRun is called }
	reserved1 =			12;	{ reserved for Apple Computer's future use }
	reserved2 =			13;	{ reserved for Apple Computer's future use }
	reserved3 =			14;	{ reserved for Apple Computer's future use }
	NeverUsed1 =		15;
	NeverUsed2 =		16;

	wantMachine =		1;	{ these flags are set in the CDEV flags resource to tell the Control }
	wantBoot =			2;	{ panel which of the above messages the CDEV actually needs }
	wantShutDown =		4;
	wantInit =			8;
	wantClose =			16;
	wantEvents =		32;
	wantCreate =		64;
	wantAbout =			128;
	wantRect =			256;
	wantHit =			512;
	wantRun =			1024;
	wantReserved1 =		2048;
	wantReserved2 =		4096;
	wantReserved3 =		8192;
	updateSSfromBRAM =	16384;	{ this is for use by Apple Computer, Inc ONLY! <- I mean it! }
	CanBeUnActive =		32768;	{ set this bit if the cdev can be made inactive by the user }

implementation

end.
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/SetStartCDEV/OpenFile.aii b/IIGS.601.SRC/A.U.G/CtlPanel/SetStartCDEV/OpenFile.aii
new file mode 100644
index 0000000..631ba69
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/SetStartCDEV/OpenFile.aii
@@ -0,0 +1 @@
+			include 'SetStart.mac'

****************************************************************************************************
*
* OpenFile - opens the SetStart CDev's data file (resource file, actually).  It has to determine
* the correct location of the file first, depending on whether the machine has been booted up
* from a local device or over a network.
*
* This routine modifies prefix 8, without restoring it when done.
*
****************************************************************************************************
OpenFile	Proc	Export
			Import	fileID

			stz		fileID			;init variable (file's not open yet)

			_DInfoGS infoParms		;get the device name for the boot device
			bcs		oops
			_VolumeGS volParms		;now do a Volume call to get the ID of the boot FST
			bcs		oops
			lda		fst_id			;get the ID number of the boot FST
			cmp		#$000D			;is it AppleShare?
			bne		local_boot		;no, must have been a local boot

aShare_boot
			_FSTSpecificGS fstParms	;do an FSTSpecific GetUserPath call
			bcs		oops			;punt if we can't determine the pathname of the user's folder
			ldx		userPfx			;get the pointer to the prefix
			ldy		userPfx+2
			bra		do_setPfx		;go set the prefix

local_boot
			ldx		#localPfx		;get the pointer to the local prefix
			ldy		#localPfx>>16

do_setPfx
			stx		prefix			;store the pointer to the prefix to use
			sty		prefix+2
			_SetPrefixGS pfxParms	;set the prefix to the correct location
			bcs		oops

			jsl		$E100A8			;call GS/OS
			dc.w	$2010			;to open the file
			dc.l	openParms
			bcc		good			;if error, set fileID to 0
			stz		fileID
oops
good
			rts						;return to caller, carry set if an error occurred

infoParms	dc.w	2				;pCount
			dc.w	1				;device number (boot device is ALWAYS device 1)
			dc.l	devName			;pointer to result buffer for device name

devName		dc.w	36				;buffer length
devName2	dc.w	0				;string length
			ds.b	32				;buffer for device name

volParms	dc.w	5				;pCount
			dc.l	devName2		;pointer to device name
			dc.l	volname			;pointer to volume name buffer
			dc.l	0				;total blocks
			dc.l	0				;free blocks
fst_id		dc.w	0				;FST ID number

volname		dc.w	36				;buffer length
volname2	dc.w	0				;string length
			ds.b	32				;string buffer

fstParms	dc.w	3				;pCount
			dc.w	$000d			;FST ID number (AppleShare)
			dc.w	8				;command number (GetUserPath)
userPfx		ds.l	1				;space for the prefix pointer

pfxParms	dc.w	2				;pCount
			dc.w	8				;prefix number
prefix		ds.l	1				;space for the prefix pointer

localPfx	wstr	'*:System:'

			Export	fileName
fileName	wstr	'8:SetStart.data'

			Export	fileID
openParms	dc.w	3				;pCount
fileID		ds.w	1				;refNum
pathname	dc.l	fileName		;pathname pointer
requestAccess dc.w	3				;open file for reading & writing

			EndP
			End
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/SetStartCDEV/SetStart b/IIGS.601.SRC/A.U.G/CtlPanel/SetStartCDEV/SetStart
new file mode 100644
index 0000000..e69de29
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/SetStartCDEV/SetStart.aii b/IIGS.601.SRC/A.U.G/CtlPanel/SetStartCDEV/SetStart.aii
new file mode 100644
index 0000000..24712fe
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/SetStartCDEV/SetStart.aii
@@ -0,0 +1 @@
+*******************************************************************************************
;#								#
;#	File:			SetStart.aii			#
;#	Version:		1.0				#
;#	Author:			Greg Branche			#
;#	Copyright:		(c) 1989-1993			#
;#				Apple Computer,	Inc.		#
;#				All Rights Reserved		#
;#								#
;#	Description:	This file contains the assembler needed	#
;#			by the SetStart	CDEV on	the IIGS.	#
;#								#
;#	Based upon the example shell CDEV by Darryl Lovato	#
;#								#
*******************************************************************************************
*
* Revision History
*
* 6.0
*
*	Who		Date		The Modification
*	---		--------	----------------
*	GAB		05/12/89	Created	the file
*
*******************************************************************************************
*
* Begin 6.0.1
*
* 29-Oct-92 DAL
*   Added checkboxes (programmer CDAs; show boot icons)
*
* 15-Jan-93 DAL
*   Added code in doBoot to initialize location $59 (programmer CDAs) to $00 if there
*   is a $FF there.
*
*******************************************************************************************

		blanks	off
		string	asis

maxNameLen	equ	20		;maximum length	of name	in menu, must be even

bootname	Proc
		dc.b	'=='
		dcb.b	maxNameLen,$20
		dc.b	'\H'
		dc.w	2
		dc.b	$0d
		dc.b	'.'
		endp

;################################################################
;#								#
;# Variables used by the CDev					#
;#								#
;################################################################

myVars		Record

fileSelected
		ds.w	1

CtlHndl		ds.l	1

		export	goodInit
goodInit	ds.w	1

ownerID		ds.w	1

dPageHndl	ds.l	1

pfx0		ds.l	1

pfx8		ds.l	1

SFActive	ds.w	1

nullPfx		dc.w	0		;looks like a null prefix

parmBlock
pCount		dc.w	0
prefixNum	dc.w	0
bufPtr		dc.l	0

eofParms	dc.w	2		;pCount
eof_refnum	dc.w	0
file_length	dc.l	0

readParms	dc.w	4		;pCount
read_refNum	dc.w	0
read_buff	dc.l	0
read_count	dc.l	0
read_xfer	dc.l	0

closeParms	dc.w	1		;pCount
close_refNum	dc.w	0

createParms	dc.w	5		;pCount
cr_path		dc.l	0		;pathname
cr_access	dc.w	%0000000011100111 ;access (invisible)
cr_filetype	dc.w	$5A		;filetype
cr_auxtype	dc.l	4		;auxtype
cr_storage	dc.w	0		;storage type (standard	file)

set_eof_parms
		dc.w	3		;pCount
set_eof_refnum
		dc.w	0
		dc.w	0		;base
		dc.l	0		;displacement
		endr

;################################################################
;#								#
;#	Various	procedures for the Pascal CDEV shell		#
;#		(done in assembly since	I don't like Pascal!)	#
;#								#
;################################################################

		include	'SetStart.mac'
		seg	'main'

;################################################################
;#								#
;#	getMenuName procedure					#
;#								#
;#	This procedure accepts a pointer to a word-length	#
;#	pathname string	and builds a string suitable for	#
;#	insertion into a menu.	The pointer to the string is	#
;#	passed as a parameter on the stack, and	the menu string	#
;#	is built in the	buffer named bootname.			#
;#	The string pointer is removed from the stack prior	#
;#	to returning to	the caller (Pascal protocol)		#
;#								#
;################################################################

getMenuName	proc

strPtr		equ	$03

		tsc			;make local direct page
		phd
		tcd

		lda	#'='+('='<<8)	;initialize menu string
		sta	bootname

		ldy	#maxNameLen	;clear new menu	item string to blanks
		lda	#' '+(' '<<8)
@clear
		sta	bootname,y
		dey
		dey
		bne	@clear

		lda	[strPtr]	;get length of complete	pathname
		tay			;put into Y register
		iny			;adjust	for length word
		iny
		sep	#$20		;8-bit accumulator
		longa	off
		lda	#':'		;look for pathname separator
@loop
		dey
		cmp	[strPtr],y	;look at character
		bne	@loop		;(there's got to be at least 1 separator)

		rep	#$20		;back to 16-bit	accumulator
		longa	on
		tya			;get offset to filename	separator
		sec
		sbc	[strPtr]	;calculate length of filename
		eor	#-1		;(two's compliment math)
		inc	a
		inc	a		;bump past separator
		tax			;save length of	filename in X for a bit

		tya			;get offset to filename	separator again
		clc
		adc	strPtr		;adjust	pointer
		sta	strPtr		;to separator character
		lda	strPtr+2
		adc	#0
		sta	strPtr+2

		sep	#$20		;8-bit accumulator again
		longa	off

		cpx	#maxNameLen+1	;filename too long?
		bcc	good_len	;no...
		ldy	#maxNameLen/2	;else must shrink the name to fit
@loop2
		lda	[strPtr],y	;copy the first	6 characters
		sta	bootname+1,y
		dey
		bne	@loop2
		lda	#'É'		;then pop in an	elipsis
		sta	bootname+(maxNameLen/2+2)
		txy			;set pointer to	end of name
		ldx	#maxNameLen/2-1	;copy 5	characters from	end of name
@loop3
		lda	[strPtr],y
		sta	bootname+(maxNameLen/2+2),x
		dey
		dex
		bne	@loop3
		bra	menu_set_up	;menu string's all set up now, go insert it

good_len
		txy			;put count into	Y
@loop
		lda	[strPtr],y	;copy filename to menu string
		sta	bootname+1,y
		dey
		bne	@loop
menu_set_up
		rep	#$20		;back to long accumulator
		longa	on

		pld			;restore original direct page
		pla			;remove	parameter by moving return address up
		sta	3,s		;over it (only a 2 byte	return address here)
		pla
		rts
		endp

;################################################################
;#								#
;#	openStdFile procedure					#
;#	used to	start up the Standard File toolset		#
;#								#
;#	returns	carry set if the operation fails		#
;#								#
;################################################################

openStdFile	proc

		with	myVars

tmpPtr		equ	1

		pha			;make space for	temp pointer
		pha
		tsc
		phd
		tcd

		stz	SFActive	;initialize variable
		pha			;space for returned result
		_SFStatus		;check for StdFile active
		pla
		bcs	must_load	;must load the toolset
		sta	SFActive	;save status for shutdown later
		bne	is_active	;function returned TRUE, StdFile already active
must_load
		pea	23		;load tool023 (StdFile)
		pea	$0300		;must be at least version 3.0
		_LoadOneTool		;load the tool
		bcc	load_ok		;so far, so good

		pha			;space for result
		pea	%0000000000000110 ;alertFlags (alertStrRef is a resource ID)
		lda	#0
		pha			;subStrPtr (not	used)
		pha
		pha			;resource ID for AlertWindow
		pea	3
		_AlertWindow		;make the alert	window
		bra	errExit

load_ok
		pha			;make space for	newhandle call
		pha
		pea	0		;size of block to create
		pea	256		;(one page)
		lda	ownerID
		pha
		pea	%1100000000010101 ;attributes (locked, noMove, noCross,pageAligned,fixedBank
		pea	0		;put in	bank 0 (direct page)
		pea	0
		_NewHandle
		pla			;retrieve handle
		sta	dPageHndl
		sta	tmpPtr
		pla
		sta	dPageHndl+2
		sta	tmpPtr+2
		bcc	start_it

		lda	#0
		pha			;oops!	put up an ErrorWindow
		pha			;subString type	(not used)
		pha			;subStringPtr (not used)
		pha
		pea	$8D		;"Memory is full"
		_ErrorWindow
errExit
		pla			;retrieve button number
		sec
		bra	exit		;then just exit

start_it
		lda	ownerID		;set up	for SFStartup call
		pha
		lda	[tmpPtr]	;dereference handle to get address of DPage
		pha
		_SFStartUp

is_active
		clc
exit
		pld
		pla
		pla
		rts
		endp

;################################################################
;#								#
;#	closeStdFile procedure					#
;#	used to	shutdown the Standard File toolset IF we	#
;#	started	it up						#
;#								#
;################################################################

closeStdFile	proc

		with	myVars

		lda	SFActive	;was StdFile active before we took control?
		bne	leave_active	;yes, so leave it active
		_SFShutDown		;shut down Standard File
		lda	dPageHndl+2	;deallocate StdFile direct page
		pha
		lda	dPageHndl
		pha
		_DisposeHandle
		pea	23		;then unload the tool
		_UnloadOneTool

leave_active
		rts
		endp

;################################################################
;#								#
;#	loadResource procedure					#
;#	loads the start	pathname and returns a handle		#
;#	in X and Y						#
;#								#
;################################################################

loadResource	proc
		Import	fileID

		with	myVars

rHndl		equ	1

		pha			;make space for local handle
		pha
		tsc
		phd			;save caller's direct page
		tcd			;make local direct page

; GetEOF to determine size of pathname

		lda	fileID
		sta	eof_refnum
		sta	read_refnum
		jsl	$E100A8		;call GS/OS
		dc.w	$2019		;to get	the file's length
		dc.l	eofParms
		bcs	no_data

; calculate size of memory block required

		lda	file_length
		sta	read_count
		tax			;save in X too
		lda	file_length+2
		sta	read_count+2
		tay
		ora	file_length	;is there anything in the file?
		beq	no_data		;no...

; NewHandle a memory block

		pha			;result	space
		pha
		phy			;blocksize
		phx
		pha			;get our userID
		ldx	#$0202		;MMStartup
		jsl	$E10000		;(leave	result on stack)
		pea	%0000000000010000 ;attributes(locked, nocross)
		lda	#0
		pha			;location pointer
		pha
		_NewHandle
		plx			;retrieve handle
		ply
		bcs	no_data		;exit on error
		stx	rHndl
		sty	rHndl+2

; Read the string into Handle

		ldy	#2		;deref
		lda	[rHndl],y
		tax
		lda	[rHndl]

		sta	read_buff
		stx	read_buff+2

		jsl	$E100A8		;call GS/OS
		dc.w	$2012		;to read the file
		dc.l	readParms
		bcc	all_done

no_data		sec			;signify error
all_done	pld			;restore caller's direct page
		plx			;return	handle
		ply
		rts

		EndP

;################################################################
;#
;#	doRect(rectPtr) procedure
;#
;# Replaces Pascal code:
;#
;#	if Not doInit then	{ save the current default prefix & check for STDFile }
;#	  RectPtr(data1)^.bottom := 32;
;#
;# and then also adjusts the rectangle height to include one
;# or two new checkboxes:
;#
;#     Start up with: [Finder     v]
;#     [x] Show startup icons
;#     [x] Enable programmer CDAs
;#
;################################################################
doRect		proc export
		import doInit

		phd
		tsc
		tcd
@rect		equ	 6	;1-2=DP, 3-5=RTL, 6-9=rect ptr

		pha		;space for function result
		jsl	doInit
		pla
		bne	@initOkay

		lda	#32
		bra	@setHeight

@initOkay	
; Check for ROM 3 w/ Control Panel jumper set--only show top checkbox
		pha
		pha
		pha
		pha		;space for results
		pha
		pha
		pha		;A, X, Y (who cares)
		pea	$FE1F
		_FWEntry
		ply		;Y value
		plx		;X value
		pla		;A value
		pla		;P value
		cpy	#3	;Is this ROM 3?
		bne	@FullSize

		pushlong #IsPanelActive
		pushlong #ReadLocation
		pea $0009	;read location and store result at IsPanelActive
		_ReadKeyMicroMemory
	
		lda	>IsPanelActive
		and	#$0040	;save bit 6 (jumper active)
		beq	@FullSize

		lda	#34	;height with one checkbox
		bra	@setHeight

@fullSize	lda	#47	;height with both checkboxes

@setHeight	ldy	#4	;bottom of rect
		sta	[<@rect],y

		pld
		lda 2,s		;pull rect ptr from stack
		sta 2+4,s
		lda 1,s
		sta 1+4,s
		pla
		pla
		rtl

ReadLocation	dc.l $00E8	;key micro $E8 bit 6 has control panel jumper
IsPanelActive	dc.w 0

		endp

;################################################################
;#								#
;#	doInit function						#
;#	called during init to save the current GSOS prefix	#
;#	and load Standard File if it's not already loaded	#
;#								#
;#	Returns	'True' if all goes well, 'False' if something	#
;#	wierd happens.						#
;#								#
;################################################################

doInit		proc	export
		Import getPfx

		with	myVars

retValue	equ	$9
tmpPtr		equ	$1

		phb			;save current DBR
		phk
		plb

		pha			;make space for	temp pointer
		pha
		tsc
		phd
		tcd

		stz	retValue	;init return value (assume the worst)

		pha			;space for ID
		pea	$5000		;ID type = DA
		_GetNewID
		pla			;get the ID
		sta	ownerID

		lda	#0		;go get	prefix 0
		jsr	getPfx
		bcs	exit		;error occurred
		stx	pfx0
		sty	pfx0+2
		lda	#8		;and prefix 8
		jsr	getPfx
		bcs	exit		;error occurred
		stx	pfx8
		sty	pfx8+2

		inc	retValue	;the world is fine, return TRUE
exit
		lda	retValue	;copy return value to global variable
		sta	goodInit
		pld			;restore original direct page
		pla			;remove	extra space from stack
		pla
		plb			;restore DBR
		rtl
		endp

;################################################################
;#								#
;#	getPfx - retrieves current prefix for the supplied	#
;#	prefix number.	The handle to the stored prefix	is	#
;#	returned to the	caller.					#
;#								#
;#	on entry:						#
;#		Acc = prefix number				#
;#								#
;#	on exit:						#
;#		X, Y = handle of stored	prefix (low,high)	#
;#								#
;################################################################

getPfx		Proc

		with	myVars

tmpPtr		equ	$01
pfxHndl		equ	$05		;handle	to stored prefix

		sta	prefixNum	;put prefix number in parmblock	(for later)
		pha			;make space for	temp pointer
		pha
		pha			;and prefix handle
		pha
		tsc			;make stack frame
		phd
		tcd

		pha			;make space for	NewHandle call
		pha
		pea	0		;size of block to create
		pea	256		;we'll try 256 bytes at first
		lda	ownerid		;put our ID on the stack
		pha
		pea	%1000000000010000 ;attributes
		pea	0		;location pointer
		pea	0		;(not used)
		_NewHandle		;go get	some memory
		pla			;retreive handle
		plx
		bcc	got_mem
memerr
		lda	#0
		pha			;oops!	put up an ErrorWindow
		pha			;subString type	(not used)
		pha			;subStringPtr (not used)
		pha
		pea	$8D		;"Memory is full"
		bra	showErr

got_mem
		sta	pfxHndl		;save for return to caller
		stx	pfxHndl+2

		ldy	#2		;dereference handle
		lda	[pfxHndl]
		sta	tmpPtr
		sta	bufPtr
		lda	[pfxHndl],y
		sta	tmpPtr+2
		sta	bufPtr+2
		lda	#256		;initialize length of buffer
		sta	[tmpPtr]

		lda	#2		;set up	parm block
		sta	pCount		;prefixNum set up above

try_again
		_GetPrefixGS parmBlock	;get the current prefix
		bcc	got_prefix	;no error, continue
		cmp	#$4f		;buffer	too small?
		beq	grow_buf	;yes, grow the buffer and try again
		pha			;else just puke!
		pea	0		;subString type	(not used)
		pea	0		;subStringPtr (not used)
		pea	0
		pha			;put error code	on stack
showErr
		_ErrorWindow
		pla			;retrieve button number
		sec			;we had	a problem
		bra	exit		;just exit

grow_buf
		ldy	#2
		lda	[tmpPtr],y	;get returned length word
		clc
		adc	#4		;allow for length words
		pha			;save new length on stack
		pea	0		;high word of new size allocation
		pha			;low word of length
		pei	pfxHndl+2	;put handle on stack
		pei	pfxHndl
		ldy	#4		;unlock	the handle first
		lda	[pfxHndl],y
		and	#$7FFF
		sta	[pfxHndl],y
		_SetHandleSize		;make the block	bigger
		bcs	memerr		;abort on error

		ldy	#4		;lock it down again
		lda	[pfxHndl],y
		ora	#$8000
		sta	[pfxHndl],y

		ldy	#2		;dereference handle again
		lda	[pfxHndl]
		sta	tmpPtr
		sta	bufPtr
		lda	[pfxHndl],y
		sta	tmpPtr+2
		sta	bufPtr+2
		pla			;retrieve new length of	buffer
		sta	[tmpPtr]	;store in buffer
		bra	try_again	;go try	again

got_prefix
		ldy	#4		;unlock	the handle
		lda	[pfxHndl],y
		and	#$7FFF
		sta	[pfxHndl],y

		pea	0		;high word of new size allocation
		ldy	#2
		lda	[tmpPtr],y	;get the length	of the returned	string
		clc
		adc	#4		;include length	words
		pha			;put on	stack for call
		pei	pfxHndl+2
		pei	pfxHndl
		_SetHandleSize		;resize	the handle so it's just the right size

		ldy	pfxHndl+2	;return	handle to caller
		ldx	pfxHndl
		clc			;no error
exit
		pld			;clean up stack	frame
		pla
		pla
		pla
		pla
		rts
		endp

;################################################################
;#								#
;#	doClose	procedure					#
;#	restores default prefix	to it's original setting	#
;#	This is	called from the	close portion of the		#
;#	Pascal CASE statement					#
;#								#
;################################################################

doClose		proc	export
		Import setPfx

		with	myVars

		phb			;save current DBR
		phk
		plb

		tsc			;make stack frame
		phd
		tcd

		lda	#8		;restore prefix	8
		ldx	pfx8
		ldy	pfx8+2
		phy			;save on stack for DisposeHandle call
		phx
		jsr	setPfx
		_DisposeHandle		;now dispose of	the memory


		lda	#0		;restore prefix	0
		ldx	pfx0
		ldy	pfx0+2
		phy			;save on stack for DisposeHandle call
		phx
		jsr	setPfx
		_DisposeHandle		;now dispose of	the memory

		lda	ownerID		;and our local ID
		pha
		_DeleteID

		pld			;restore original direct page
		plb			;restore DBR
		rtl
		endp

;################################################################
;#								#
;#	setPfx - restore prefix	to it's original value		#
;#								#
;#	on entry:						#
;#		Acc = prefix number				#
;#		X,Y = handle to	stored prefix			#
;#								#
;################################################################

setPfx		Proc
tmpPtr		equ	$01

		with	myVars

		sta	prefixNum	;save prefix number in parm block
		pha			;make space on stack for temp pointer
		pha
		tsc			;make stack frame
		phd
		tcd

		lda	#2		;2 parms for SetPrefix call
		sta	pCount

		stx	tmpPtr
		sty	tmpPtr+2
		ldy	#2		;dereference handle to prefix string
		lda	[tmpPtr]	;but set pointer to length
		clc			;word within buffer
		adc	#2
		sta	bufPtr
		lda	[tmpPtr],y
		adc	#0
		sta	bufPtr+2

		_SetPrefixGS parmBlock

		pld			;clean up stack
		pla
		pla
		rts
		endp

;################################################################
;#								#
;#	doBoot procedure					#
;#		copies filename	resource within	data file	#
;#		returns 0: operation proceeded			#
;#			1: operation skipped at user's request	#
;#								#
;################################################################

doBoot		func	export
		Import	OpenFile,fileID

		with	myVars

rHndl		equ	$01
tmpPtr		equ	$05
rtlAddr		equ	$09
flag		equ	$0c

		pha			;make room for local variables
		pha
		pha
		pha
		tsc			;make stack frame
		phd
		tcd

*** added 15-Jan-93 DAL -- if BRAM location $59 is set to $FF, that's annoying; set it to zero
		pha
		pea $59
		_ReadBParam
		pla
		cmp #$00ff
		bne @iLike
		pea 0
		pea $59
		_WriteBParam
@iLike
*** end 15-Jan-93

		phb			;set DBR to our	memory
		phk
		plb

		lda	#1		;assume we're gonna see the Apple key pressed
		sta	[flag]

		sep	#$20		;8-bit accumulator
		lda	>$E0C025	;get keyboard modifiers	state
		rep	#$20		;16-bit	accumulator
		and	#%0000000010000000 ;open-apple key pressed?
		bne	skip_it		;yup, just skip	the startup app

		sta	[flag]		;don't draw an X through the icon

		jsr	OpenFile	;go open the resource file
		bcs	skip_it		;just skip it if an error occurs

		jsr	loadResource	;go get	the pathname from the data file
		bcs	skip_it2	;just forget it	then!
		stx	rHndl		;store the returned handle
		sty	rHndl+2

		lda	[rHndl]		;deref
		sta	tmpPtr
		ldy	#2
		lda	[rHndl],y
		sta	tmpPtr+2

		lda	[tmpPtr]	;get length of pathname
		pha			;save on stack for a minute
		clc
		adc	#8		;+2 (length word) + 6 (header length)
		pea	0		;always	<64K
		pha			;new length
		pei	rHndl+2
		pei	rHndl
		_SetHandleSize		;grow the handle
		plx			;retrieve pathname length
		bcs	skip_it2	;punt if there's no memory

		pei	rHndl+2		;source	handle
		pei	rHndl
		ldy	#2
		lda	[rHndl],y	;destination pointer
		pha
		lda	[rHndl]
		clc
		adc	#6
		pha
		pea	0		;always	<64K
		inx			;+2 for	length word
		inx
		phx
		_HandToPtr		;move pathname up in the handle

		pea	1		;place the pathname in the message
		pea	messageID	;my reserved message type
		pei	rHndl+2		;handle	to message
		pei	rHndl
		_MessageCenter

skip_it2
		lda	fileID		;close the file
		sta	close_refnum
		jsl	$E100A8		;call GS/OS
		dc.w	$2014
		dc.l	closeParms

skip_it
		lda	#2		;null out prefix 8
		sta	pCount
		lda	#8
		sta	prefixNum
		lda	#nullPfx>>16
		sta	bufPtr+2
		lda	#nullPfx
		sta	bufPtr
		_SetPrefixGS parmBlock	;set the prefix

		lda	rtlAddr+1	;clean up stack frame
		sta	flag+2
		lda	rtlAddr
		sta	flag+1
		plb			;restore DBR
		pld			;restore original direct page
		tsc			;remove stuff from stack
		clc
		adc	#12
		tcs
		rtl

		endf

;################################################################
;#								#
;#	initMenu function					#
;#	Inserts	filename in popup menu if a filename is		#
;#	available.  This function returns the menu item		#
;#	ID of the initial item to display.  1 if there		#
;#	no filename currently selected,	or 2 if	there is.	#
;#								#
;################################################################

initMenu	proc	export
		Import	OpenFile,fileID

		with	myVars

rHndl		equ	$01		;resource handle
rPtr		equ	$05		;resource pointer (dereferenced	handle)
controlH	equ	$0d		;control handle	passed from Pascal
retValue	equ	$11		;space for return value

		phb			;put DBR on stack
		tsc			;get stack pointer
		sec
		sbc	#8		;make room for temporary variables
		tcs
		phd			;save original direct page
		tcd			;make local direct page

		phk			;set to	our memory
		plb

		lda	#1
		sta	fileSelected	;initialize our	flag to	initial	menu item

		jsr	OpenFile	;open the data file
		bcc	get_resource	;file opened, so go get	the resource
		brl	no_file		;else just exit

get_resource
		jsr	loadResource	;get the pathname
		bcc	got_resource
		brl	skip_it		;if no resource, leave things as is

got_resource
		stx	rHndl		;store the handle
		sty	rHndl+2

		ldy	#2		;dereference handle
		lda	[rHndl]
		tax
		lda	[rHndl],y

		pha			;put pointer to	string on stack
		phx
		jsr	getMenuName	;go build the menu string

		lda	#2		;return	item number of selected	filename
		sta	fileSelected

		pha			;space for result
		pha
		_GetMenuBar		;get handle to current menu bar	and leave on stack

		pei	controlH+2	;get handle to popup control
		pei	controlH
		_SetMenuBar		;make it the current menu bar

		pea	bootname>>16	;insert	filename into menu
		pea	bootname
		pea	1		;insert	after first item
		pea	1		;insert	into menu #1 (only one we have!)
		_InsertMItem

		pea	0		;remove	the checkmark from Finder
		pea	1
		_SetMItemMark

		pea	18		;and put it with the selected filename
		pea	2
		_SetMItemMark

		pea	0		;recalculate menu size
		pea	0
		pea	1
		_CalcMenuSize

		_SetMenuBar		;reset to original menu	bar

skip_it
		lda	fileID		;must close the	file before exiting
		sta	close_refnum
		jsl	$E100A8		;call GS/OS
		dc.w	$2014
		dc.l	closeParms

no_file
		lda	fileSelected	;return	the current setting
		sta	retValue
		pld			;restore original direct page
		tsc			;remove	temporary variables from stack
		clc
		adc	#8
		tcs
		pla			;move return address up	over parameter
		sta	3,s
		pla
		sta	3,s
		plb
		rtl

		endp

;
; InitCheckBoxes
;
InitCheckBoxes	proc	export
		import	CheckLocation,CheckBitMask,CheckNegateMask,CheckBoxIndex

		phd
		tsc
		tcd

		phb
		phk
		plb

windPtr		equ 6

		ldx #0
@nextOne	stx CheckBoxIndex

		pha			;space for result
		lda CheckLocation,x
		pha
		_ReadBParam
		pla
		ldx CheckBoxIndex
		and CheckBitMask,x
		eor CheckNegateMask,x
		beq @zero
		lda #1
@zero		pha			;push new checkbox value

		pei <windPtr+2
		pei <windPtr
		pea 0			;high word of ctlID
		lda CheckBoxIndex
		lsr a
		adc #$00C1		;build $00C1 or $00C2
		pha
;		_SetCtlValueByID
		ldx #$3c10
		jsl $e10000

		ldx CheckBoxIndex
		inx
		inx
		cpx #4
		bcc @nextOne

		plb

		pld
		lda 2,s			;remove input ptr from stack
		sta 2+4,s
		lda 1,s
		sta 1+4,s
		pla
		pla

		rtl

		EndP

;################################################################
;#								#
;#	doSelect procedure					#
;#	handles	a control hit by calling SFGetFile2 (if		#
;#	an application should be selected), or by deleting	#
;#	the pathname resource if the Finder is selected.	#
;#								#
;################################################################

*** 29-Oct-92 DAL -- Added ctrlID parameter & checkbox support

doSelect	proc	export
		Import	OpenFile,fileID,fileName

		with	myVars

ctrlHndl	equ	$0f+4		;control handle	passed from Pascal
ctrlID		equ	$0f		;control ID (added 29-Oct-92 DAL)
retAddr		equ	$0b		;location of return address and	DBR
memHandle	equ	$07
tmpVal		equ	$05
tmpPtr		equ	$01

		phb			;save DBR
		tsc			;make stack frame
		sec
		sbc	#10		;make room for temp variables
		tcs
		phd
		tcd

		phk
		plb			;set to	code bank

*** 29-Oct-92 DAL -- check for checkboxes
		lda	<ctrlID
		and	#$FFF0
		cmp	#$00c0		;checkboxes are ID=$00Cx
		bne	open_it
		jsr	HandleCheckbox
		brl	exit
*** end 29-Oct-92

open_it
		jsr	OpenFile	;go open the data file containing the resource
		bcc	file_opened	;file opened just fine,	thank you

		cmp	#$0046		;file not found	error?
		bne	oops		;no, just punt

		lda	#fileName	;else create the file
		sta	cr_path
		lda	#fileName>>16
		sta	cr_path+2
		jsl	$E100A8		;call GS/OS
		dc.w	$2001		;to create the file
		dc.l	createParms
		bcc	open_it		;now that it's created, go open it
					; else fall through and	report the error
oops
		pha			;space for result
		pea	%0000000000000110 ;alertFlags (alertStrRef is a resource ID)
		pea	0		;subStrPtr (not	used)
		pea	0
		pea	0		;resource ID for AlertWindow
		pea	1
		_AlertWindow		;make the alert	window
		pla			;remove	returned parameter
		brl	show_filename	;then just exit

file_opened
		lda	#8		;restore prefix	8 for Standard File
		ldx	pfx8
		ldy	pfx8+2
		jsr	setPfx

		pha			;space for result
		pei	ctrlHndl+2
		pei	ctrlHndl
		_GetCtlValue		;get the control value
		pla
		dec	a		;make 0-3
		asl	a		;make offset into jump table
		tax
		jsr	(itemTable,x)	;go to the necessary subroutine

show_filename
		lda	fileSelected	;set the value to display the current setting
		pha
		pei	ctrlHndl+2
		pei	ctrlHndl
		_SetCtlValue

close_file
		lda	fileID		;get the resource file ID
		beq	exit		;if not	open, don't try to close it
		sta	close_refnum
		jsl	$E100A8		;close the data	file
		dc.w	$2014
		dc.l	closeParms

exit
		lda	retAddr		;move return address up	in stack frame
		sta	ctrlHndl
		lda	retAddr+2
		sta	ctrlHndl+2
		pld			;restore original direct page
		tsc			;clean up stack	frame
		clc
		adc	#18
		tcs
		plb			;remove	extra byte from	stack
		rtl

*** 29-Oct-92 DAL -- handle a checkbox (control ID in A; box already toggled)
HandleCheckbox	lda	ctrlID
		sec
		sbc	#$00c1		;0=startup icons, 1=enable prog CDAs
		asl	a
		sta	checkBoxIndex

		pha			;space for result
		pei	<ctrlHndl+2
		pei	<ctrlHndl
		_GetCtlValue
		pla
		sta	checkValue

		ldx	checkBoxIndex
		lda	CheckLocation,x
		pha			;space for result
		pha			;location to read
		_ReadBParam
		pla
		ldx	checkBoxIndex
		and	CheckStripMask,x
		ldy	checkValue
		beq	@noOR
		ora	CheckBitMask,x
@noOR		eor	CheckNegateMask,x
		pha			;value to write
		lda	CheckLocation,x
		pha			;Battery RAM location to write
		_WriteBParam

		rts

checkValue	dc.w 0			;nonzero if box is presently checked
		export checkBoxIndex
checkBoxIndex	dc.w 0

		export CheckLocation,CheckBitMask,CheckNegateMask

*                    icons  CDAs
*                    -----  ----
CheckLocation	dc.w $005F,$0059
CheckStripMask	dc.w $FFFD,$FF7F
CheckBitMask	dc.w $0002,$0080
CheckNegateMask	dc.w $0002,$0000	;reverse sense of the bit

*** end 29-Oct-92

itemTable	dc.w	finderItem	;used when 'Finder' menu item is selected
		dc.w	do_nothing	;do nothing when application name is reselected
		dc.w	current_app	;used when 'Current App' is selected
		dc.w	selectItem	;used when 'Select AppÉ' is selected

finderItem
		lda	fileSelected	;was there an existing selection?
		cmp	#1
		beq	do_nothing	;no, just exit

		lda	fileID
		sta	set_eof_refnum
		jsl	$E100A8		;call GS/OS
		dc.w	$2018
		dc.l	set_eof_Parms
		bcs	to_error_window

		pha			;space for result
		pha
		_GetMenuBar		;get current menu bar and leave	handle on stack

		pei	ctrlHndl+2	;set current menu to our popup
		pei	ctrlHndl
		_SetMenuBar

		pea	2
		_DeleteMItem		;delete	the filename from the menu

		pea	18		;put a checkmark on 'Finder'
		pea	1
		_SetMItemMark

		pea	0		;recalculate menu size
		pea	0
		pea	1
		_CalcMenuSize

		_SetMenuBar		;reset to original menu	bar

		lda	#1		;set internal variable
		sta	fileSelected

do_nothing
		rts			;back to main block

to_error_window
		brl	do_error_window

current_app
; This is where	we make	a GetName call,	and a GetPrefix	call on	prefix 9, concatenate the
; two strings that we receive from the OS, and then perform a GetFileInfo call with the
; resulting pathname to	make sure we can determine what	the currently executing	application
; is.  If this fails, we put up	an AlertWindow letting the user	know that we can't figure
; out what the current application is, and leave it set	to whatever it was set to before.
; If the GetFileInfo call succeeds, we merge into the selectItem routine as if the user
; had selected a file with StandardFile.

		_GetNameGS nameParms	;do a GetName call

		pha			;space for return value
		pha
		lda	appID		;application's ID returned from
		pha			;  GetName
		pea	1		;always	file #1
		ldx	#$2211		;LGetPathname2
		jsl	$E10000		;call the system loader
		pla			;retrieve pointer
		sta	tmpPtr
		sta	infoName
		pla
		sta	tmpPtr+2
		sta	infoName+2
		bcs	no_can_do	;oops, can't get the app's pathname

		_GetFileInfoGS infoParms ;make sure we can find	the file
		bcc	found_app	;call succeeded, we've found the application!

no_can_do
		pha			;space for result
		pea	%0000000000000110 ;alertFlags (alertStrRef is a resource ID)
		pea	0		;subStrPtr (not	used)
		pea	0
		pea	0		;resource ID for AlertWindow
		pea	2
		_AlertWindow		;make the alert	window
		pla			;remove	returned parameter
		rts

found_app

		pha			;make space for	newhandle call
		pha
		pea	0		;size of block to create
		lda	[tmpPtr]	;get length of pathname
		inc	a		;allow for length word
		inc	a
		pha			;put on	stack
		sta	tmpVal		;and save for a	bit
		lda	ownerID
		pha
		pea	%1000000000011000 ;attributes (locked, noCross, noSpecialMemory)
		pea	0
		pea	0
		_NewHandle
		pla			;retrieve handle
		sta	memHandle
		pla
		sta	memHandle+2
		bcs	no_can_do	;if we can't get the memory

		pei	tmpPtr+2	;put parms on stack
		pei	tmpPtr
		pei	memHandle+2
		pei	memHandle
		pea	0		;always	<64K
		pei	tmpVal
		_PtrToHand		;move the string into the handle

		brl	_common_	;then go to common code	to save	everything

do_nothing2
		rts

		Import sfFilterProc
selectItem
		jsr	openStdFile	;get standard file up and running
		bcs	do_nothing2	;oops, just skip it

		lda	#3
		sta	nameVerb	;initalize verbs in reply record
		sta	pathVerb

		pha			;get the current screen	resolution
		_GetMasterSCB
		pla			;get the value
		ldx	#120		;assume	640 mode
		and	#%0000000010000000 ;check the resolution bit
		bne	@640		;it's 640
		ldx	#30		;else set up for 320 mode
@640
		phx			;then put X coordinate on stack
		pea	30		;Y coordinate
		pea	2		;verb -	resource ID of Pascal string
		pea	0		;resource ID of	Pascal string
		pea	75
		pea	sfFilterProc>>16 ;pointer to filter proc
		pea	sfFilterProc
		pea	typelist>>16	;pointer to type list
		pea	typelist
		pea	replylist>>16	;pointer to reply list
		pea	replylist
		_SFGetFile2		;go get	the filename of	the application

		jsr	closeStdFile	;now we	can shut it down again

		lda	isGood		;did the user press cancel?
		beq	do_nothing2	;yes, just show	the existing filename

		lda	pathRef+2	;put handle into direct	page
		sta	memHandle+2
		lda	pathRef
		sta	memHandle

		ldy	#4		;lock the handle
		lda	[memHandle],y
		ora	#$8000
		sta	[memHandle],y

		ldy	#2		;dereference handle
		lda	[memHandle],y
		tax
		lda	[memHandle]
		clc
		adc	#2		;set pointer to	length word of string
		sta	tmpPtr
		txa
		adc	#0
		sta	tmpPtr+2

		pha			;put pointer on	stack
		pei	tmpPtr
		pei	memHandle+2	;put handle on stack
		pei	memHandle
		pea	0		;has to	be < 64K bytes
		lda	[tmpPtr]	;get length of pathname
		inc	a		;allow for length word
		inc	a
		sta	tmpVal		;save for a bit
		pha			;put length of move on stack
		_PtrToHand		;copy pathname down over buffer	length word

		ldy	#4		;unlock	the block
		lda	[memHandle],y
		and	#$7FFF
		sta	[memHandle],y

		pea	0		;set to	new size
		pei	tmpVal
		pei	memHandle+2
		pei	memHandle
		_SetHandleSize		;shrink	the handle

		lda	nameRef+2	;now delete the	filename handle
		pha
		lda	nameRef
		pha
		_DisposeHandle

_common_
		lda	fileID
		sta	set_eof_refnum
		jsl	$E100A8		;call GS/OS
		dc.w	$2018		;SetEOF
		dc.l	set_eof_parms
		bcs	do_error_window

		jsr	$E100A8		;then reset the	mark
		dc.w	$2016
		dc.l	set_eof_parms
		bcs	do_error_window

		lda	[memHandle]	;deref the handle
		sta	read_buff	;set I/O buffer
		ldy	#2
		lda	[memHandle],y
		sta	read_buff+2

		pha			;result	space
		pha
		pei	memHandle+2
		pei	memHandle
		ldx	#$1802		;GetHandleSize
		jsl	$E10000
		pla
		plx
		bcs	skip
		sta	read_count
		stx	read_count+2
		lda	fileID
		sta	read_refNum
		jsl	$E100A8		;call GS/OS
		dc.w	$2013		;to write the pathname to the file
		dc.l	readParms
		bcc	all_ok

do_error_window
		ldx	#0
		phx			;space for result
		phx			;type of substitution string
		phx			;pointer to substitution string	(none)
		phx
		pha			;error number
		ldx	#$620e		;ErrorWindow
		jsl	$E10000
		pla			;remove	result from stack
		sec
skip
		bra	oops2

all_ok
		ldy	#2		;deref the pathname handle
		lda	[memHandle],y
		pha
		lda	[memHandle]
		pha
		jsr	getMenuName	;go make a menu	string

		pha			;space for result
		pha
		_GetMenuBar		;get current menu bar and leave	handle on stack

		pei	ctrlHndl+2	;set current menu to our popup
		pei	ctrlHndl
		_SetMenuBar

		pea	2
		_DeleteMItem		;delete	the filename from the menu

		pea	bootname>>16	;insert	filename into menu
		pea	bootname
		pea	1		;insert	after first item
		pea	1		;insert	into menu #1 (only one we have!)
		_InsertMItem

		pea	0		;remove	the checkmark from Finder
		pea	1
		_SetMItemMark

		pea	18		;and put it with the selected filename
		pea	2
		_SetMItemMark

		pea	0		;recalculate menu size
		pea	0
		pea	1
		_CalcMenuSize

		_SetMenuBar		;reset to original menu	bar

		lda	#2		;set our flag
		sta	fileSelected
oops2
		pei	memHandle+2
		pei	memHandle
		_DisposeHandle		;dispose of the	memory block

		rts			;back to main block of code

typelist
		dc.w	2		;allow only two	filetypes (SYS and S16)
		dc.w	%1000000000000000 ;display SYS with any auxtype
		dc.w	$ff		;SYS file
		dc.l	0
		dc.w	%1000000000000000 ;display S16 with any auxtype
		dc.w	$b3		;S16 file
		dc.l	0

replylist
isGood		dc.w	0
		dc.w	0		;space for filetype
		dc.l	0		;space for auxtype
nameVerb	dc.w	3		;name verb
nameRef		dc.l	0		;space for returned handle
pathVerb	dc.w	3		;path verb
pathRef		dc.l	0		;space for returned handle

nameParms	dc.w	2		;parameter block for GetName call
		dc.l	nameBuf
appID		ds.w	1		;space for application's user ID

nameBuf		dc.w	36		;application name buffer for GetName call
appName		dc.w	0
		ds.b	32

infoParms	dc.w	2		;parameter block for GetFileInfo call
infoName	dc.l	0		;space for name	pointer
access		dc.w	0		;we don't really care, but this has to be here

		endp

;################################################################
;#								#
;#	sfFilterProc procedure					#
;#	used by	SFGetFile2 call	to filter out certain files	#
;#	(namely	ProDOS,	Start, and Finder)			#
;#								#
;################################################################

sfFilterProc	Proc

tmpPtr		equ	1
namePtr		equ	tmpPtr+2
OrigDirect	equ	namePtr+4
RTLAdr		equ	OrigDirect+2
EntryPtr	equ	RTLAdr+3
Result		equ	EntryPtr+4

o_name		equ	$0a		; offset to filename

		phd			; save caller's direct page
		pha			; make space for name pointer
		pha
		pha			; make space for temp pointer
		tsc
		tcd
		phb
		phk
		plb

		lda	#2		; assume selectable
		sta	Result

		ldy	#o_name+2	;get pointer to	name buffer
		lda	[EntryPtr],y
		tax
		dey
		dey
		lda	[EntryPtr],y
		clc
		adc	#2		;bump past buffer length word
		bcc	@1		;to get	to string length word
		inx
@1
		sta	namePtr
		stx	namePtr+2
		ldx	#-2		; index	into name table

compare
		rep	#$20		; make sure we've got 16-bit Acc
		longa	on
		inx			; move to next table entry
		inx
		lda	nameTable,x
		beq	AllsOK		; end of table reached with no matches
		sta	tmpPtr

		lda	[namePtr]	; get the length of the	name
		cmp	(tmpPtr)	; same length?
		bne	compare		; no, can't match
		inc	a		; account for high byte	of length word
		tay			; into Y as index

		sep	#$20
		longa	off
nameLoop
		lda	[namePtr],y
		and	#%11011111	; shift	to upper case
		cmp	(tmpPtr),y
		bne	compare		; no match, move to next name
		dey
		bne	nameLoop

DimThisOne	rep	#$20		; we have a match
		longa	on
		stz	result		; don't even display this file
		longa	off
AllsOK
		lda	RTLAdr+1
		sta	RTLAdr+4+1
		lda	RTLAdr
		sta	RTLAdr+4

		plb			; restore caller's DBR
		pla			; remove name pointer
		pla
		pla			; remove temp pointer
		pld			; restore direct register
		pla			; remove passed	pointer
		pla

		rtl			; return

nameTable	dc.w	ProDOSName
		dc.w	StartName
		dc.w	FinderName
		dc.w	0		; terminator

ProDOSName	wstr	'PRODOS'
StartName	wstr	'START'
FinderName	wstr	'FINDER'

		longa	on
		ENDP

		end

\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/SetStartCDEV/SetStart.mac b/IIGS.601.SRC/A.U.G/CtlPanel/SetStartCDEV/SetStart.mac
new file mode 100644
index 0000000..d4d4299
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/SetStartCDEV/SetStart.mac
@@ -0,0 +1 @@
+
 MACRO
&lab _ReadBParam
&lab ldx #$0C03
     jsl $E10000
 MEND

 MACRO
&lab _WriteBParam
&lab ldx #$0B03
     jsl $E10000
 MEND

 MACRO
&lab _FWEntry
&lab ldx #$2403
     jsl $E10000
 MEND

 MACRO
&lab _ReadKeyMicroMemory
&lab ldx #$0B09
     jsl $E10000
 MEND

;............................................................
;
;        Push long (4 bytes) onto stack
;
;    pushlong address             - push contents of address
;    pushlong address,x           - push contents of address,x
;    pushlong const,s             - push contents of stack+const    
;    pushlong #address/const      - push address or constant
;    pushlong [zeropage],offset   - push using indirect address
;...............................................................
	MACRO
	pushlong &addr,&offset
	IF &addr[1:1]='#' THEN
		pea		&addr[2:255]>>16
		pea		|&addr[2:255]
	ELSEIF &addr[1:1]='[' THEN
		ldy		#&offset+2
		pushword &addr,y
		ldy		#&offset
		pushword &addr,y
	ELSEIF &offset='s' THEN
		pushword &addr+2,s
		pushword &addr+2,s
	ELSEIF &offset='' THEN
		pushword  &addr+2
		pushword  &addr
	ELSE
		pushword &addr+2,&offset
		pushword &addr,&offset
	ENDIF
	MEND

		MACRO
		wstr	&string
		lclc	&sset
&sset	SETC &SETTING('STRING')
		STRING ASIS
		dc.w	(&len(&string)-2)			;must allow for string delimiters
		dc.B	&string
		STRING	&sset
		MEND

		MACRO
&lab	_ResourceStartup
&lab	ldx		#$021E
		jsl		$E10000
		MEND

		MACRO
&lab	_ResourceShutdown
&lab	ldx		#$031E
		jsl		$E10000
		MEND

		MACRO
&lab	_DetachResource
&lab	ldx		#$181E
		jsl		$E10000
		MEND

		MACRO
&lab	_LoadResource
&lab	ldx		#$0E1E
		jsl		$E10000
		MEND

		MACRO
&lab	_OpenResourceFile
&lab	ldx		#$0A1E
		jsl		$E10000
		MEND

		MACRO
&lab	_RemoveResource
&lab	ldx		#$0F1E
		jsl		$E10000
		MEND

		MACRO
&lab	_CloseResourceFile
&lab	ldx		#$0B1E
		jsl		$E10000
		MEND

		MACRO
&lab	_AddResource
&lab	ldx		#$0C1E
		jsl		$E10000
		MEND

		MACRO
&lab	_QuitGS	&params
&lab	jsl		$E100A8
		DC.W	$2029
		DC.L	&params
		MEND

		MACRO
&lab	_GetNameGS &params
&lab	jsl		$E100A8
		DC.W	$2027
		DC.L	&params
		MEND

		MACRO
&lab	_GetFileInfoGS &params
&lab	jsl		$E100A8
		DC.W	$2006
		DC.L	&params
		MEND

		MACRO
&lab	_SetSysPrefsGS &params
&lab	jsl		$E100A8
		DC.W	$200C
		DC.L	&params
		MEND

		MACRO
&lab	_DInfoGS &params
&lab	jsl		$E100A8
		DC.W	$202C
		DC.L	&params
		MEND

		MACRO
&lab	_VolumeGS &params
&lab	jsl		$E100A8
		DC.W	$2008
		DC.L	&params
		MEND

		MACRO
&lab	_FSTSpecificGS &params
&lab	jsl		$E100A8
		DC.W	$2033
		DC.L	&params
		MEND

		MACRO 
&lab	_SetPrefixGS &params 
&lab	jsl		$E100A8 
		DC.W	$2009 
		DC.L	&params 
		MEND 

		MACRO
&lab	_DeleteMItem
&lab	ldx		#$100F
		jsl		$E10000
		MEND

		MACRO
&lab	_CalcMenuSize
&lab	ldx		#$1C0F
		jsl		$E10000
		MEND

		MACRO
&lab	_InsertMItem
&lab	ldx		#$0F0F
		jsl		$E10000
		MEND

		MACRO
&lab	_GetCtlValue
&lab	ldx		#$1A10
		jsl		$E10000
		MEND

		MACRO
&lab	_GetMenuBar
&lab	ldx		#$0A0F
		jsl		$E10000
		MEND

		MACRO
&lab	_SetMenuBar
&lab	ldx		#$390F
		jsl		$E10000
		MEND

		MACRO
&lab	_SFGetFile2
&lab	ldx		#$0E17
		jsl		$E10000
		MEND

		MACRO 
&lab	_PtrToHand 
&lab	ldx		#$2802 
		jsl		$E10000 
		MEND 

		MACRO
		_HandToPtr
		ldx		#$2902
		jsl		$E10000
		MEND

		MACRO 
&lab	_DisposeHandle 
&lab	ldx		#$1002 
		jsl		$E10000 
		MEND 

		MACRO
&lab	_SetCtlValue
&lab	ldx		#$1910
		jsl		$E10000
		MEND

		MACRO
&lab	jeq		&target
&lab	bne		*+5
		brl		&target
		MEND

		MACRO
&lab	jne		&target
&lab	beq		*+5
		brl		&target
		MEND

		MACRO
&lab	_GetNewID
&lab	ldx		#$2003
		jsl		$E10000
		MEND

		MACRO 
&lab	_NewHandle 
&lab	ldx		#$0902 
		jsl		$E10000 
		MEND 

		MACRO
&lab	_SysFailMgr
&lab	ldx		#$1503
		jsl		$E10000
		MEND

		MACRO 
&lab	_GetPrefixGS &params 
&lab	jsl		$E100A8 
		DC.W	$200A 
		DC.L	&params 
		MEND 

		MACRO 
&lab	_SetHandleSize 
&lab	ldx		#$1902 
		jsl		$E10000 
		MEND 

		MACRO
&lab	_DeleteID
&lab	ldx		#$2103
		jsl		$E10000
		MEND

		MACRO
&lab	_SetMItemMark
&lab	ldx		#$330F
		jsl		$E10000
		MEND

		MACRO
&lab	_SFStatus
&lab	ldx		#$0617
		jsl		$E10000
		MEND

		MACRO 
&lab	_LoadOneTool 
&lab	ldx		#$0F01 
		jsl		$E10000 
		MEND 

		MACRO
&lab	_SFStartUp
&lab	ldx		#$0217
		jsl		$E10000
		MEND

		MACRO
&lab	_SFShutDown
&lab	ldx		#$0317
		jsl		$E10000
		MEND

		MACRO 
&lab	_UnloadOneTool
&lab	ldx		#$1001 
		jsl		$E10000 
		MEND 

		MACRO
&lab	_SysBeep
&lab	ldx		#$2C03
		jsl		$E10000
		MEND
	
		MACRO
&lab	_GetMasterSCB
&lab	ldx		#$1704
		jsl		$E10000
		MEND

		MACRO
&lab	_AlertWindow
&lab	ldx		#$590E
		jsl		$E10000
		MEND

		MACRO
&lab	_ErrorWindow
&lab	ldx		#$620E
		jsl		$E10000
		MEND

		MACRO
&lab	_CreateResourceFile
&lab	ldx		#$091E
		jsl		$E10000
		MEND

		MACRO
&lab	_HLock
&lab	ldx		#$2002
		jsl		$E10000
		MEND

		MACRO
&lab	_HUnlock
&lab	ldx		#$2202
		jsl		$E10000
		MEND

messageID equ	$0007		;private message type (cleared with Dave Lyons)

		MACRO
		_MessageCenter
		ldx		#$1501
		jsl		$E10000
		MEND

\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/SetStartCDEV/SetStart.p b/IIGS.601.SRC/A.U.G/CtlPanel/SetStartCDEV/SetStart.p
new file mode 100644
index 0000000..5d1416f
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/SetStartCDEV/SetStart.p
@@ -0,0 +1 @@
+{############################################################}
{#															#}
{#	File:			SetStart.p								#}
{#	Version:		1.1										#}
{#	Author:			Greg Branche							#}
{#	Copyright:		(c) 1989 by Apple Computer, Inc.		#}
{#															#}
{#	Description:	This file contains the cdev pascal		#}
{#					routine used by the SetStart CDEV.		#}
{#															#}
{#	Based on the example shell CDEV by Darryl Lovato		#}
{#															#}
{#----------------------------------------------------------#}
{#															#}
{#	Development History:									#}
{#															#}
{#	Who		Date		The Modification					#}
{#	---		--------	----------------					#}
{#	GAB		05/12/89	Created the file					#}
{#	DAL		10/28/92	RectCDEV calls doRect				#}
{#															#}
{############################################################}

{$R-}

unit SetStart;

interface

uses
	Types,
	GSOS,
	Quickdraw,
	Fonts,
	Memory,
	IntMath,
	Events,
	ProDOS,
	Locator,
	Controls,
	Windows,
	Lists,
	Scrap,
	Dialogs,
	Menus,
	Desk,
	StdFile,
	QDAUX,
	Print,
	MiscTool,
	LineEdit,
	Resources,
	CDEVIntF;

{############################################################}
{#		Define the CDEV constants/types,vars				#}
{############################################################}

function SetStartCDEV(message : integer; data1, data2 : LongInt) : LongInt;

implementation

{############################################################}
{#		Actual CDEV, this is called by the control panel	#}
{############################################################}

var
	{$J+}
	GOODINIT:		Boolean;	{ this is really defined in assembler }

procedure doBoot(flag : UNIV IntPtr);
	External;

procedure doRect(data1: univ longint);
	External;

procedure doClose;
	External;

function initMenu(ctlHndl : UNIV CtlRecHndl) : integer;
	External;

procedure doSelect(ctlHndl : UNIV CtlRecHndl; theID: longint);
	External;

procedure InitCheckBoxes(windPtr: UNIV ptr);
	External;

{ This routine is eventually linked and then placed into a cdev code resource.
  The only requirements are that this routine is at the beginning of the resource
  so if the CDEV has any other routines they must follow this one.  The cdev's resource
  fork is always opened when a call to the cdev is made.  The cdev can also assume
  that the current port is set to the ctl panel window except in the boot message,
  where quickdraw isn't even started, and in the about message, where it is the port
  of the help window.  All normal managers will be stared up for all calls except
  the boot call, which will only have miscTools & Resource Manager started. }

function SetStartCDEV(message : integer; data1, data2 : longint) : longint;

	var
		tempCtl : CtlRecHndl;
	
	begin	{ this will only get called when a ctl is hit }
		SetStartCDEV := 0;	{ initialize the function result to zero, so that we will work in
								future versions of the Control Panel! }

		case message of
			BootCDEV:
				begin
					{ If the wantBoot flag is set, this routine will be called during the
					  startup sequence.  The control panel takes care of drawing the "boot"
					  icon.  When this call is made, the machine state is bad at best.
					  QuickDraw is not even started up.  The parameters to this call are
					  undefined. }

					doBoot(data1);
				end;

(*			MachineCDEV:
				begin
					{ This is called if the wantMachine bit is set in the CDEV flags.
					  It enables the CDEV to do further checking to see if it makes
					  sense for the CDEV to be visible to the user or not.  For instance,
					  if the CDEV controls a setting for some hardware, we could check to
					  see if the hardware is really connected.  The parameters are undefined
					  for this call and the result is passed back as the function result.  0 =
					  don't show this CDEV, <>0 = show this CDEV.  The control panel will do
					  some machine checking even before calling this routine by checking the
					  ROM version number against the machine field of the cdev flags resource }
				end;
*)

			CreateCDEV:
				begin
					{ If the wantCreate bit is set, this message is called with the control
					  panel's window ptr passed in data1.  The cdev must create any controls
					  it has during this call.  The CDEV's resource fork is open during this
					  call so resource manager calls can be made.  All controls rectangles
					  MUST be relative to 0,0.  The control panel handles offsetting controls
					  to the proper place in the window.  Initialization of the controls
					  needs to be done in the InitCDEV call.  Just create the controls in this
					  call. }
					
					if goodInit then
						tempCtl := NewControl2(WindowPtr(data1),resourceToResource,Ref(1))
					else
						tempCtl := NewControl2(WindowPtr(data1),singleResource,Ref(2));
				end;

			InitCDEV:
				begin
					{ If the wantInit flag is set, then this message is passed with data1 =
					  the control panel's window ptr.  By  this time the CreateCDEV call
					  will have been made and thus the controls used by the CDEV created.
					  This call enables the CDEV to initialize the controls before they are
					  displayed. }
					
					if goodInit then Begin
						tempCtl := GetCtlHandleFromID(WindowPtr(data1),1);
						SetCtlValue(initMenu(tempCtl), tempCtl);
						InitCheckBoxes(data1);
					end;
				end;

			AboutCDEV:
				begin
					{ If the wantAbout bit is set in the CDEV flags, this call is made when
					  the user selects help.  Data1 = window ptr to the help window.  The
					  control panel automatically handles the icon, author, and version #
					  display.}
					
					tempCtl := NewControl2(WindowPtr(data1),singleResource,Ref(100));
				end;

			RectCDEV:
				begin
					{ If a CDEV has a different size data rectangle depending on some state,
					  like the printer & modem port cdev's, then you can get a chance to tell the
					  control panel this by setting the wantRect bit in the CDEV flags.  In
					  this call, data1 is a ptr to the rect and can be directly modified by
					  the CDEV. }
(*
					  if Not doInit then	{ save the current default prefix & check for STDFile }
						RectPtr(data1)^.bottom := 32;	{ reset the vertical size of the CDev rect }
*)
					  doRect(data1);
				end;

(*			EventsCDEV:
				begin
					{ If the wantEvents bit is set, the control panel will call this routine
					  with data1 = ptr to the event record.  This allows the cdev to intercept
					  and even *gasp* change the event record before it is handled by the
					  control panel. }
				end;
*)

			HitCDEV:
				begin
					{ If the CDEV wants to know when a control has been "hit", it can set the
					  wantHit bit in the CDEV flags.  When called, data1 = Hdl to Ctl Hit &
					  data2 = Ctl ID of hit control.  This message allows the CDEV to perform
					  actions based on the control that was selected by the user.}

					doSelect(data1,data2);
				end;
				
(*			RunCDEV:
				begin
					{ This message is called if the "wantRun" bit is set in the CDEV flags.  It
					  enables CDEVs like time to update the display.  It is called every 60th of
					  a second - every time the DARun call is issued to the control panel. -no
					  parameters are passed to this routine. }
				end;
*)

			CloseCDEV:
				begin
					{ The CloseCDEV message is passed if the wantClose bit is set in the CDEV
					  flags and the control panel is closing or when the user selects another
					  CDEV.  During  this call data1 = windowPtr.  In general, CDEVs can do any
					  memory disposal and saving of settings during this call.  The disposal
					  of the CDEV's controls is handled automatically by the Control Panel. }
					
					if goodInit then
						doClose;		{ restore the default prefix (saved during init message) }
				end;

(*			ShutDownCDEV:
				begin
					{ If the wantShutDown bit is set in the CDEV flags resource then
					  this routine is called when the user either disables the CDEV or
					  *someday* when the machine is being turned off.  It gives the CDEV
					  a chance to turn itself off (or any hardware or software it controls).
					  The parameters are undefined in this call. }
				end;
*)
		end;
	end;

end. { SetStart CDEV unit }
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/SetStartCDEV/SetStart.r b/IIGS.601.SRC/A.U.G/CtlPanel/SetStartCDEV/SetStart.r
new file mode 100644
index 0000000..88aa6c1
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/SetStartCDEV/SetStart.r
@@ -0,0 +1 @@
+//###########################################################
//#															#
//#	File:			SetStart.r								#
//#	Version:		1.1										#
//#	Author:			Greg Branche							#
//#	Copyright:		(c) 1991-93 by Apple Computer, Inc.		#
//#															#
//#	Description:	This file contains the resource			#
//#					definitions used by the SetStart CDEV	#
//#															#
//#	Based on the example shell CDEV by Darryl Lovato		#
//#															#
//#---------------------------------------------------------#
//#															#
//#	Development History:									#
//#															#
//#	Who		Date		The Modification					#
//#	---		--------	----------------					#
//#	GAB		05/12/89	Created the file					#
//# DAL		10/28/92	Added a pop-down triangle to the    #
//#						menu; use typographical quotes;		#
//#						rewrote help text; added two		#
//#						checkboxes							#
//# DAL		01/18/93	Fixed version & copyright stuff		#
//# DAL		03/24/93	Version d15; modified Help			#
//#	SS		04/01/93	Version 1.1 (release)				#
//###########################################################


//###########################################################
//#		Read any standard includes & define our own			#
//###########################################################

#include "typesiigs.r"	//	include the type definitions

//###########################################################
//#		Read the resources built elsewhere					#
//###########################################################

read rCDEVCode (1, Convert) "SetStartcode";	// this is the code resource

//###########################################################
//#		Define our resources								#
//###########################################################

#define	 VERSION	"v1.1"	// change this when necessary

resource rVersion (1) {
	{
		1,1,0,				// major, minor, bug fix version numbers
		release, $00			// non-final release #
	},
	verUS,					// country code
	"SetStart",
	"Copyright © 1992-93, Apple Computer, Inc., All Rights Reserved"
};

resource rCDEVFlags (1) {
	wantBoot+wantHit+wantInit+
		wantCreate+wantAbout+
		wantRect+wantClose,			// CDEV flags
	1,								//	enabled = True
	1,								//	Version = 1
	1,								//	Machine = v1 ROMs or higher
	5,								//	System = v5.0 or higher
	{0,0,20,290},					//	DataRect - top left MUST be 0,0
	"SetStart",						//	Name
	"Greg Branche",					//	Author
	VERSION;						//	Version String
};

resource rAlertString (1) {
	"2"								//	60-character display window
	"3"								//	use the NOTE icon
	"/"								//	separator character
	"I canÕt open my data file!"	//	the error message
	"/"
	"^Bummer!"						//	button title
	"\$00"							//	terminator
};

resource rAlertString (2) {
	"3"								//	110-character display window
	"3"								//	use the NOTE icon
	"/"								//	separator character
	"I canÕt find the current application! "	//	the error message
	"Try using the ÒSelect ApplicationÉÓ option."
	"/"
	"^Uncool!"						//	button title
	"\$00"							//	terminator
};

resource rAlertString (3) {
	"2"								//	60-character display window
	"3"								//	use the NOTE icon
	"/"								//	separator character
	"CanÕt load the Standard File tool set."	//	the error message
	"/"
	"^Bummer!"						//	button title
	"\$00"							//	terminator
};

resource rPString (75, noCrossBank) {
	"Please select start application:"
};


resource rControlList(1) {{
	1,		// pop-up menu
	$C1,	// first checkbox = Show startup icons
	$C2		// second checkbox = Enable programmer CDAs
}};

resource rControlTemplate (1) {		//	Popup menu
		1,							// ID
		{3,5,16,285},				// rect
		PopUpControl {{				// ProcRef
			fType2PopUp,			// flags
			fCtlProcNotPtr+RefIsResource+$0080,	// moreFlags ($80 is pop-down triangle)
			0,						// refcon
			0, /* 76 */				// titleWidth
			1,						// menuRef
			1						// initialValue
		}}
};


resource rControlTemplate ($C1) {
       $000000C1,				// ID
       { 21, 54, 30, 285 },		// rect
       checkControl {{
               $0000,			// flag
               $3002,			// moreFlags
               $00000000,		// refCon
               $C1,				// titleRef
               $0000			// initialValue
       }};
};

resource rControlTemplate ($C2) {
       $000000C2,				// ID
       { 34, 54, 43, 285 },		// rect
       checkControl {{
               $0000,			// flag
               $3002,			// moreFlags
               $00000000,		// refCon
               $C2,				// titleRef
               $0000			// initialValue
       }};
};

resource rPString($C1) { "Show startup icons" };
resource rPString($C2) { "Enable programmer CDAs" };



resource rControlTemplate (2) {	//	"Out of order" control
		1,							// ID
		{3,1,32,195},				// rect
		StatTextControl { {			// procRef
			0,						// flag
			FctlProcNotPtr+RefIsResource, // moreFlags
			0,						// refCon
			2						// textRef
		}}
};

resource rTextForLETextBox2 (2) {	//	Out of order static text
	"We are experiencing technical difficulties. "
	"Please stand by..."
};



resource rMenu (1) {
	1,								// menu ID
	RefIsResource*menuTitleRefShift+RefIsResource*ItemRefShift+fAllowCache,
	50,								// ID of title string
	{
		1,3,4						// IDs of items
	};
};

resource rPString (50, noCrossBank) {
	" Start up with: "
};

resource rMenuItem (1) {
	1,
	"", "",
	18,
	RefIsResource*ItemTitleRefShift+rMIItalic,
	1
};

resource rPString (1, noCrossBank) {
	"Finder"
};

resource rMenuItem (3) {
	3,
	"", "",
	0,
	RefIsResource*ItemTitleRefShift,
	3
};

resource rPString (3) {
	"Current Application"
};

resource rMenuItem (4) {
	4,
	"", "",
	0,
	RefIsResource*ItemTitleRefShift,
	4
};

resource rPString (4, noCrossBank) {
	"Select ApplicationÉ"
};

resource rControlTemplate (100) {	//	About box control
		1,							// ID
		{38,5,138,280},				// rect
		StatTextControl { {			// procRef
			0,						// flag
			FctlProcNotPtr+RefIsResource, // moreFlags
			0,						// refCon
			100						// textRef
		}}
};

resource rTextForLETextBox2 (100) {	//	About box text
	"This control panel lets you choose what application will "
	"start up automatically when you start (boot) your "
	"Apple IIgs."
	"\$0D\$0D"
	"The checkboxes let you control whether icons appear while "
	"the computer is starting up, and whether Classic Desk "
	"Accessories such as Visit Monitor and Memory Peeker appear."
};

resource rIcon (1) {				//	the "CDEV" icon
	0x8000,							//	kind
	20,								//	height
	28,								//	width
	$"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFF22222222FF"
	$"FFFFFFFFFFFFFFFFF2222222222F"
	$"FFFFFFFFFFFFFFFFF0002222222F"
	$"FFFFFFFFFFFFFFFF22222222222F"
	$"FFFFFFFFFFFFFFF200222222222F"
	$"FFFFFFFFFFFFFF0222022222222F"
	$"FFFFFFFFFFFF022022222222222F"
	$"FFFF22220202022202222222222F"
	$"FFF222220202202222222222222F"
	$"FF2222222222222222222222222F"
	$"F22222222222222222222222222F"
	$"F00000000000000000000000000F"
	$"FF0000000000000FFFF00000000F"
	$"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFFFFFF",

	$"0000000000000000000000000000"
	$"0000000000000000000000000000"
	$"0000000000000000000000000000"
	$"0000000000000000000000000000"
	$"000000000000000000FFFFFFFF00"
	$"00000000000000000FFFFFFFFFF0"
	$"00000000000000000FFFFFFFFFF0"
	$"0000000000000000FFFFFFFFFFF0"
	$"000000000000000FFFFFFFFFFFF0"
	$"00000000000000FFFFFFFFFFFFF0"
	$"000000000000FFFFFFFFFFFFFFF0"
	$"0000FFFFFFFFFFFFFFFFFFFFFFF0"
	$"000FFFFFFFFFFFFFFFFFFFFFFFF0"
	$"00FFFFFFFFFFFFFFFFFFFFFFFFF0"
	$"0FFFFFFFFFFFFFFFFFFFFFFFFFF0"
	$"0FFFFFFFFFFFFFFFFFFFFFFFFFF0"
	$"00FFFFFFFFFFFFF0000FFFFFFFF0"
	$"0000000000000000000000000000"
	$"0000000000000000000000000000"
	$"0000000000000000000000000000"
};

\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/SetStartCDEV/Startup.Aii b/IIGS.601.SRC/A.U.G/CtlPanel/SetStartCDEV/Startup.Aii
new file mode 100644
index 0000000..d849278
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/SetStartCDEV/Startup.Aii
@@ -0,0 +1 @@
+;------------------------------------------
;
; Equates from procedure
;
;------------------------------------------
rHndl		equ	0
strptr		equ	rHndl+4
real_length	equ	strptr+4

		INCLUDE	'SetStart.mac'


startup		PROC	Export

		phk
		plb

		ldx	#2				;reset infoParms pCount
		stx	infoParms

		pha					;make space for NewHandle call
		pha
		pea	0				;size of block to create
		pea	256				;this ought to be enough
		ora	#$0100				;alter auxID field
		pha					;put our ID on the stack
		pea	%0000000000010000		;attributes (noCross)
		lda	#0
		pha					;location pointer
		pha					;(not used)
		_NewHandle				;go get some memory
		pla					;retrieve handle
		plx
		bcs	@skip_to_finder			;just skip it if there's not enough memory
		stx	rHndl+2
		sta	rHndl

		pea	2				;action = getMessage
		pea	messageID			;private message type
		phx					;handle for retrieved message
		pha
		_MessageCenter				;go get the message
		bcs	@skip_to_finder			;skip it if the message doesn't exist

		ldy	#4				;lock the handle
		lda	[rHndl],y
		ora	#$8000
		sta	[rHndl],y
		
		ldy	#2
		lda	[rHndl]				;dereference message handle
		clc
		adc	#6				;skip message header
		sta	quitPath			;store into parmlist
		sta	infoPath
		sta	strptr
		lda	[rHndl],y
		sta	quitPath+2
		sta	infoPath+2
		sta	strptr+2
		
		lda	#%1100000000000000		;initialize the quit flags
		sta	quitFlags			; to place us on the quit stack

		lda	#$8000				;set system preferences
		sta	prefFlag			;(display Mount dialog)
		_SetSysPrefsGS prefparms
		
		_GetFileInfoGS infoparms		;ensure the file is there
		php					;save status
	
		stz	prefFlag			;reset system preferences
		_SetSysPrefsGS prefparms

		plp					;restore status from GetFileInfo call
@skip_to_finder
		bcs	do_finder			;had a problem, punt to the Finder

		lda	[strptr]			;get length of pathname
		sta	real_length			;save for a bit
		tax					;into X temporarily
		inx					;adjust for leading length word
		sep	#$20				;8-bit accumulator
		longa	off
		ldy	#2				;get leading separator character
		lda	[strptr],y
		txy					;get indexor
@loop
		cmp	[strptr],y			;parse backwards looking for last
		beq	@found				;  separator
		dey
		bne	@loop
		bra	@skip_prefix			;impossible!
@found
		rep	#$20				;found end of pathname portion
		longa	on
		dey					;adjust final length
		tya
		sta	[strptr]			;store as length of prefix
		stz	infoparms			;prefix # = 0
		_SetPrefixGS pfxParms			;set the prefix
		lda	real_length			;reset the original pathname length
		sta	[strptr]
@skip_prefix
		rep	#$20				;make sure we're in 16-bit mode
		longa	on
		bra	do_quit				;now we can launch it
		
do_finder
		stz	quitFlags			;fix flags for quitting to finder

		lda	#fndr				;store pointer to pathname
		sta	quitPath
		sta	infoPath
		lda	#fndr>>16
		sta	quitPath+2
		sta	infoPath+2
		_GetFileInfoGS infoparms		;is the Finder available?
		bcc	do_quit				;yes, we can 'quit' to it

		stz	quitPath			;else null out the pathname pointer
		stz	quitPath+2			; so GQuit will use the Program Launcher

do_quit
		pea	3				;action = deleteMessage
		pea	messageID			;private message type
		phx					;handle (not used for delete)
		pha
		_MessageCenter
		; ignore errors (doesn't matter if message didn't exist)

		_quitGS	quitparms
		brk
			
quitparms	DC.W	2
quitPath	DC.L	fndr
quitFlags	DC.W	%1100000000000000
		
pfxParms	dc.w	2				;pCount for SetPrefix call
infoparms	DC.W	2				;pCount for GetFileInfo call, prefix num for SetPrefix
infoPath	DC.L	0				;pathname pointer
		DC.W	0				;access
			
prefparms	DC.W	1				;pCount
prefFlag	DC.W	0				;preferences

fndr		wstr	'*:System:Finder'

		ENDP

		end
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/SetStartCDEV/makefile b/IIGS.601.SRC/A.U.G/CtlPanel/SetStartCDEV/makefile
new file mode 100644
index 0000000..387d249
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/SetStartCDEV/makefile
@@ -0,0 +1 @@
+#############################################################
#															#
#	File:			SetStart.make							#
#	Version:		1.0										#
#	Author:			Greg Branche							#
#	Copyright:		(c) 1989 by Apple Computer, Inc.		#
#															#
#	Description:	This file contains the commands needed	#
#					to build the SetStart CDEV for the IIgs	#
#															#
#	Based on the example shell CDEV by Darryl Lovato		#
#															#
#-----------------------------------------------------------#
#															#
#	Development History:									#
#															#
#	Who		Date		The Modification					#
#	---		--------	----------------					#
#	GAB		05/12/89	Created the file					#
#	GAB		06/07/89	Added dependencies for START		#
#															#
#############################################################

all				ÄÄ	SetStart Start

SetStart		ÄÄ	SetStartcode SetStart.r
	RezIIgs SetStart.r -o SetStart -t "C7  " -c "pdos"

SetStart.p.obj		Ä	SetStart.p
	PascalIIgs SetStart.p -o SetStart.p.obj

SetStart.aii.obj	Ä	SetStart.aii SetStart.mac
	AsmIIgs SetStart.aii -o SetStart.aii.obj

OpenFile.obj		Ä	OpenFile.aii
	AsmIIGS OpenFile.aii -o OpenFile.obj

SetStartcode		Ä	SetStart.p.obj SetStart.aii.obj OpenFile.obj
	LinkIIgs -w2 -x ¶
		-lib "{PIIGSLibraries}PLib" ¶
		-lseg SetStart:$1000 ¶
			SetStart.p.obj ¶
			SetStart.aii.obj ¶
			OpenFile.obj ¶
			"{PIIGSLibraries}PLib"(@main,@PLib,@~globals) ¶
		-o SetStartcode ¶
		-l >setstart.map

#########################################################################

Start			ÄÄ	Startup.aii.obj
	LinkIIGS -o Start -t S16 -at $DB03 Startup.aii.obj

Startup.aii.obj	Ä	Startup.aii SetStart.mac
	AsmIIGS Startup.aii -o Startup.aii.obj
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/SetStartCDEV/setstart.map b/IIGS.601.SRC/A.U.G/CtlPanel/SetStartCDEV/setstart.map
new file mode 100644
index 0000000..4f9c7e4
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/SetStartCDEV/setstart.map
@@ -0,0 +1 @@
+-------------------------------------------------------------------------------
0001 Load Segment "SetStart:$1000" relocatable LENGTH=$C92 KIND=$0000 
-------------------------------------------------------------------------------
0001 00000000 00000108 SETSTARTCDEV 
0002 00000108 0000001C BOOTNAME 
0003 00000124 00000058 MYVARS 
0004 0000017C 00000074 GETMENUNAME 
0005 000001F0 0000008F OPENSTDFILE 
0006 0000027F 00000026 CLOSESTDFILE 
0007 000002A5 0000006F LOADRESOURCE 
0008 00000314 00000068 DORECT 
0009 0000037C 00000041 DOINIT 
000A 000003BD 000000EF GETPFX 
000B 000004AC 0000003E DOCLOSE 
000C 000004EA 00000034 SETPFX 
000D 0000051E 000000E0 DOBOOT 
000E 000005FE 000000B4 INITMENU 
000F 000006B2 00000055 INITCHECKBOXES 
0010 00000707 000003FA DOSELECT 
0011 00000B01 00000079 SFFILTERPROC 
0012 00000B7A 000000FB OPENFILE 
0013 00000C75 00000006 SETCTLVALUE 
0014 00000C7B 00000006 GETCTLHANDLEFROMID 
0015 00000C81 00000006 NEWCONTROL2 
0016 00000C87 00000009 TOOLGLUE 
0017 00000C90 00000002 _toolErr 

Output Load File "SetStartcode" contains 1 Load Segments with a total length of $C92 bytes.
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/SlotsCDEV/Slots.pii b/IIGS.601.SRC/A.U.G/CtlPanel/SlotsCDEV/Slots.pii
new file mode 100644
index 0000000..1defb88
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/SlotsCDEV/Slots.pii
@@ -0,0 +1 @@
+{*****************************************************************}
{
{ Slots CDEV
{
{ Copyright (C)   1988-1991
{ Apple Computer, Inc.
{ All Rights Reserved
{
{ By Darryl Lovato
{
{ This is the pascal code to implement the SLOTS CDEV
{
{
{ Change History
{
{ 24 Mar 89		Steven Glass
{
{ Added check for what machine we are on so can treat GS 
{ different from Tenspeed.
{
{ Create different controls if running on GS vs TenSpeed.
{
{ Changed CheckPopUpItems to see what machine.
{
{ 3-Jun-91 Dave Lyons (and a couple weeks ago, too)
{
{ Changed slot 5 to be dimmed on Mark Twain.  Changed slot 7
{ to say "SCSI" instead of "Your Card" (you can also still set
{ 7 to AppleTalk).
{
{ 1-Jul-91 DAL
{
{ Commented out Mark Twain stuff.
{
{*****************************************************************}


{$LongGlobals+}
{$toolerrorchk-}
{$a+}

unit Slots;

interface

uses
  QDIntf, GSIntf, misctools, Prodos16, ResMgr, CDEVMgr, newinterface;
 
function Slots_DEFPROC(message : Integer; data1, data2 : Longint) : Longint;
procedure EnablePopupItem(ctlID : integer; item : integer);
procedure DisablePopupItem(ctlID : integer; item : integer);
procedure CheckPopupItems;

implementation

const
	{ BParam ID Values }
	Slot1ID = $21;
	Slot2ID = $22;
	Slot3ID = $23;
	Slot4ID = $24;
	Slot5ID = $25;
	Slot6ID = $26;
	Slot7ID = $27;
	BootID = $28;
	
	{ BParam Setting Values }
	Slot1Printer = 0;
	Slot1YourCard = 1;
	Slot1ATalk = 2;
	Slot1modem = 3;
	
	Slot2Modem = 0;
	Slot2YourCard = 1;
	Slot2ATalk = 2;
	Slot2Printer = 3;
	
	Slot7Appletalk = 0;
	Slot7YourCard = 1;
	
	{ Control IDs are equal to setting values plus 1 }
	
var
  OrigGS : boolean;
  wind : windowPtr;
  {$XRefVar+}
  GSSlotsList : integer;
  TenSpeedSlotsList : integer;
{  MarkTwainSlotsList : integer; }
  SlotsAbout : integer;
  {$XRefVar-}

function Slots_DEFPROC(message : Integer; data1, data2 : Longint) : Longint;
  var
    tempCtl : ControlHandle;
	Atemp, XTemp, YTemp, PTemp : integer;
	slot1Item, slot2Item, popVal, slotSet : INTEGER; { added 10/23/91 by Monte Benaresh	}
	
  procedure debug; inline $00;
	
  begin { this will only get called when a ctl is hit, and before its displayed }
	Slots_DEFPROC := 0;
	case message of

	  CreateCDEV :
	    begin
		  FWEntry(Atemp,XTemp,YTemp,PTemp,$FE1F);
		  OrigGS :=  YTemp < 2 ;
		  wind := WindowPtr(data1);
		  if OrigGS then
		    tempCtl := NewControl2(wind,3,ord4(@GSSlotsList))
		  else
{		    if YTemp=3 then }
  		      tempCtl := NewControl2(wind,3,ord4(@TenSpeedSlotsList))
{			else
			  tempCtl := NewControl2(wind,3,ord4(@MarkTwainSlotsList)) } ;
		end;

	  InitCDEV :
	    begin
		{ for slots 1 & 2, on ROM 01 we set the popup item based on the actualÉ	}
		{Éslot setting AND the device type of the corresponding port			}
			IF OrigGS THEN
				BEGIN
					IF ReadBParam(Slot1ID) = Slot1YourCard THEN
						slot1Item := 2	{ set to "your card" }
					ELSE	{ check port setting }
						IF ReadBParam($0) = 0 THEN { port 1 set to printer?	}
							slot1Item := 1
						ELSE
							slot1Item := 3;	{ set to modem	}

					IF ReadBParam(Slot2ID) = Slot2YourCard THEN
						slot2Item := 2	{ set to "your card" }
					ELSE	{ check port setting }
						IF ReadBParam($C) = 1 THEN { port 2 set to modem?	}
							slot2Item := 1
						ELSE
							slot2Item := 3;	{ set to printer	}
				END
			ELSE
				BEGIN	{ set Tenspeed the easy way	}
					slot1Item := ReadBParam(Slot1ID)+1;
					slot2Item := ReadBParam(Slot2ID)+1;
				END;

			SetCtlValue(slot1Item,GetCtlHandleFromID(WindowPtr(data1),1));
			SetCtlValue(slot2Item,GetCtlHandleFromID(WindowPtr(data1),2));

	{		SetCtlValue(ReadBParam(Slot1ID)+1,
						GetCtlHandleFromID(WindowPtr(data1),1));	}
	{		SetCtlValue(ReadBParam(Slot2ID)+1,
						GetCtlHandleFromID(WindowPtr(data1),2));	}
			SetCtlValue(ReadBParam(Slot3ID)+1,GetCtlHandleFromID(WindowPtr(data1),3));
			SetCtlValue(ReadBParam(Slot4ID)+1,GetCtlHandleFromID(WindowPtr(data1),4));
			SetCtlValue(ReadBParam(Slot5ID)+1,GetCtlHandleFromID(WindowPtr(data1),5));
			SetCtlValue(ReadBParam(Slot6ID)+1,GetCtlHandleFromID(WindowPtr(data1),6));
			SetCtlValue(ReadBParam(Slot7ID)+1,GetCtlHandleFromID(WindowPtr(data1),7));
			SetCtlValue(ReadBParam(BootID)+1,GetCtlHandleFromID(WindowPtr(data1),8));
			CheckpopupItems;
		end;

	  HitCDEV :
	    begin
		{ for slots 1 & 2, on ROM 01 we must set the serial port device typeÉ	}
		{Ébased on the popup menu item											}

			IF OrigGS AND ((data2 = 1) OR (data2 = 2))	{ check ctl ID	} THEN
				BEGIN
				popVal := GetCtlValue(ControlHandle(data1));
				CASE popVal OF
					2: slotSet := 1;	{ set to "Your Card }
					1,3:
						BEGIN
						slotSet := 0;	{ set to internal	}
						IF data2 = 1 THEN	{ printer port? }
							BEGIN
							IF popVal = 1 THEN
								WriteBParam(0,0)	{ set to printer }
							ELSE
								WriteBParam(1,0);	{ set to modem	}
							END
						ELSE
							BEGIN
							IF popVal = 3 THEN
								WriteBParam(0,$C)	{ set to printer }
							ELSE
								WriteBParam(1,$C);	{ set to modem	}
							END;
						END;
				END; {case}
				WriteBParam(slotSet, $20 + loword(data2));	{ set slot int/ext	}
				END {begin}
			ELSE
				WriteBParam(GetCtlValue(ControlHandle(data1))-1, $20 + loword(data2));

			CheckpopupItems;
		end;

	  AboutCDEV :
	    tempCtl := NewControl2(WindowPtr(data1),3,ord4(@SlotsAbout));
	end; {case}
  end;

procedure EnablePopupItem(ctlID : integer; item : integer);
  var
    mymenuBar : MenuBarHandle;
  begin
    mymenuBar := GetMenuBar;
	SetMenuBar(MenuBarHandle(GetCtlHandleFromID(wind,ctlID)));
	EnableMItem(item);
	SetMenuBar(mymenuBar);
  end;
  
procedure DisablePopupItem(ctlID : integer; item : integer);
  var
    mymenuBar : MenuBarHandle;
  begin
    mymenuBar := GetMenuBar;
	SetMenuBar(MenuBarHandle(GetCtlHandleFromID(wind,ctlID)));
	DisableMItem(item);
	SetMenuBar(mymenuBar);
  end;
  
procedure CheckPopupItems;
  var
    bytePtr : StringPtr;
{	saveit : integer;	}
    tempHndl : ControlHandle;

  begin

  	if OrigGS then
		begin
			{ Assume every thing is ok by enabling appletalk in slot 7 pop up}
			EnablePopupItem(7,Slot7AppleTalk+1);
			
			{ Now check if we have the case that AppleTalk is not allowed }
			if (ReadBParam(Slot1ID) = Slot1Printer) and (ReadBParam(Slot2ID) = Slot2Modem) then
				begin
					{ Both slot 1 and 2 are set to internal so must disable appletalk in 7 }
					{ and force the pop up to have your card. }
					DisablePopupItem(7,1);
					SetCtlValue(Slot7YourCard+1, GetCtlHandleFromID(wind,7));
					WriteBParam(Slot7YourCard,slot7Id);
				end;
		end
	else
		begin
			EnablePopupItem(1,3);
			EnablePopupItem(2,3);
			EnablePopupItem(7,1);
			if ReadBParam($21) = 2 then
			  DisablePopupItem(2,3)
			else if ReadBParam($22) = 2 then
			  DisablePopupItem(1,3)
			else
			  begin
				WriteBParam(1, $27);
				SetCtlValue(2, GetCtlHandleFromID(wind,7));
				DisablePopupItem(7,1);
			  end;
		end;

	if origGS then
	{	case ReadBParam(slot1ID) of			*** removed 10/24/91 by Monte
		  Slot1Printer : writeBParam(0,0);
		  (* start JAM 07/26/89:  Fixing BRC #51944 *)
		  Slot1YourCard : BEGIN (* writeBParam(1,0) *) END (* null statement *);
		  (* In fixing BRC #51944, we leave slot 1 firmware alone when switching to
		  	 Your Card.  This helps those such as Remote Print Manager, who want to treat
			 AppleTalk as a printer, but cannot unless the proper firmware is in place.
			 
			 Real solution to this problem is to rewrite printer port and modem port
			 CDEVs to allow the user to change the type of device connected, and avoid
			 switching the firmware in the slots CDEV at all.
		  *)
		  (* end   JAM 07/26/89:  Fixing BRC #51944 *)
		end
	}
	else
		case ReadBParam(slot1ID) of
		  Slot1Printer : writeBParam(0,0);
		  Slot1YourCard : writeBParam(3,0);
		  Slot1ATalk : writeBParam(2,0);
		  Slot1Modem : writeBParam(1,0);
		end;
	
	bytePtr := StringPtr($E102E1);	{ BRAM buffer starts at $E102C0	}
	if (ReadBParam(slot7ID) = Slot7Appletalk) and (ReadBParam(slot1ID) = slot1Atalk) then
	  bytePtr^[0] := char(1)
	else
	  bytePtr^[0] := char(0);
	  
	if origGS then
	(*	case ReadBParam(slot2ID) of			*** removed 10/24/91 by Monte
		  Slot2Modem : writeBParam(1,$C);
		  Slot2YourCard : { writeBParam(0,$C)	removed 10/21/91 by Monte	} ;
		end
	*)
	else	{ TenSpeed	}
	  BEGIN
		case ReadBParam(Slot2ID) of
		  Slot2Printer : writeBParam(0,$C);
		  Slot2YourCard : writeBParam(3,$C);
		  Slot2ATalk : writeBParam(2,$C);
		  Slot2Modem : writeBParam(1,$C);

		end;

	{ on TenSpeed check whether boot slot can be AppleTalk	}

		IF (ReadBParam(slot1ID) <> Slot1ATalk)
				AND (ReadBParam(slot2ID) <> Slot2ATalk) THEN
			BEGIN	{ don't allow boot from AppleTalk	}
				tempHndl := GetCtlHandleFromID(WindowPtr(wind),8);

				IF GetCtlValue(tempHndl) = 11 THEN
					BEGIN	{ must change setting	}
						SetCtlValue(1, tempHndl);	{ set to "Scan" }
						WriteBParam(0, BootID);
					END;
				DisablePopupItem(8,11);	{ disable AppleTalk startup	}
			END
		ELSE
			BEGIN	{ allow boot from AppleTalk	}
				EnablePopupItem(8,11);	{ enable AppleTalk startup	}
			END;
	  END;
  end;
  
end.
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/SlotsCDEV/Slots.r b/IIGS.601.SRC/A.U.G/CtlPanel/SlotsCDEV/Slots.r
new file mode 100644
index 0000000..cdfc64b
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/SlotsCDEV/Slots.r
@@ -0,0 +1 @@
+/*******************************************************************/
/*
/* Slots.r
/*
/* Copyright (C) 1988-1992
/* Apple Computer, Inc.
/* All Rights Reserved
/*
/* This file contains the source of the resources needed to build the 
/* Slots CDEV.
/*
/*******************************************************************/


#include "typesiigs.r" 

resource rIcon (1) {
	  0x8000,							/* Kind */
	  20,								/* Height */
	  28,								/* Width */
	  
	  $"FF00000000000000000000000FFF"
	  $"FF0CCCCC0BBBBBBBBBBBBBBB0FFF"
	  $"FF0CCCCC0B4B4B4B4B4B4B4B0FFF"
	  $"FF0CCCCC0B4B4B4B4B4B4B4B0FFF"
	  $"FF0CCCCC0B4B4B4B4B4B4B4B0FFF"
	  $"FF0CCCCC0B4B4B4B4B4B4B4B0FFF"
	  $"FF0CCCCC0BBBBBBBBBBBBBBB0FFF"
	  $"FF0CCCCC0B0B00B00B0BB0BB0FFF"
	  $"FF0000000B0B00B00B0BB0BB0FFF"
	  $"FF0C0C0C0BBBBBBBBBB00BBB0FFF"
	  $"FF00C0C00B00B0BB00B00BBB0FFF"
	  $"FF0C0C0C0B00B0BB00B00B0B0FFF"
	  $"FF00C0C00BBBBBBBBBB00B0B0FFF"
	  $"FF0C0C0C0B0B0B0B00BBBB0B0FFF"
	  $"FF00C0C00B0B0B0B00B0BB0B0FFF"
	  $"FF0C0C0C0BBBBBBBBBBBBBBB0FFF"
	  $"FF00000000000000000000000FFF"
	  $"FF0FFFFFFFFFFFFFFFFFFFBF0FFF"
	  $"FF0FFFFFFFFFFFFFFFFFFFBF0FFF"
	  $"FF00000000000000000000000FFF",
		
	  $"00FFFFFFFFFFFFFFFFFFFFFFF000"
	  $"00FFFFFFFFFFFFFFFFFFFFFFF000"
	  $"00FFFFFFFFFFFFFFFFFFFFFFF000"
	  $"00FFFFFFFFFFFFFFFFFFFFFFF000"
	  $"00FFFFFFFFFFFFFFFFFFFFFFF000"
	  $"00FFFFFFFFFFFFFFFFFFFFFFF000"
	  $"00FFFFFFFFFFFFFFFFFFFFFFF000"
	  $"00FFFFFFFFFFFFFFFFFFFFFFF000"
	  $"00FFFFFFFFFFFFFFFFFFFFFFF000"
	  $"00FFFFFFFFFFFFFFFFFFFFFFF000"
	  $"00FFFFFFFFFFFFFFFFFFFFFFF000"
	  $"00FFFFFFFFFFFFFFFFFFFFFFF000"
	  $"00FFFFFFFFFFFFFFFFFFFFFFF000"
	  $"00FFFFFFFFFFFFFFFFFFFFFFF000"
	  $"00FFFFFFFFFFFFFFFFFFFFFFF000"
	  $"00FFFFFFFFFFFFFFFFFFFFFFF000"
	  $"00FFFFFFFFFFFFFFFFFFFFFFF000"
	  $"00FFFFFFFFFFFFFFFFFFFFFFF000"
	  $"00FFFFFFFFFFFFFFFFFFFFFFF000"
	  $"00FFFFFFFFFFFFFFFFFFFFFFF000";



};

read rCDEVCode (1,Convert) "Slots.Load";


resource rCDEVFlags (1) {
	wantHit+wantInit+wantCreate
	+wantAbout+updateSSfromBRAM,				/* CDEV Flags */
	1,											/* Enabled */
	1,											/* Version */
	1,											/* Machine */
	4,											/* System */
	{0,0,122,200},								/* DataRect */
	"Slots",									/* Name */
	"Darryl Lovato",							/* Author */
	"v1.2";										/* VersStr */
};
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/SlotsCDEV/SlotsData.aii b/IIGS.601.SRC/A.U.G/CtlPanel/SlotsCDEV/SlotsData.aii
new file mode 100644
index 0000000..3742af2
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/SlotsCDEV/SlotsData.aii
@@ -0,0 +1 @@
+
MarkTwain equ 0

	blanks off

	string ASIS

Slot1TenSpeed PROC EXPORT
	dc.w	9
	dc.l	1
	dc.w	2,5,14,195
	dc.l	$87000000
	dc.w	$0040
	dc.w	$1004
	dc.l	0
	dc.w	70
	dc.l	Slot1MenuTenSpeed
	dc.w	1
	
Slot1menuTenSpeed
	dc.B '>> Slot #1:\H'
	dc.W 1
	dc.B $0D
	dc.B '== Printer\IH'
	dc.W 1
	dc.B $0D
	dc.B '== Your Card\H'
	dc.W 2
	dc.B $0D
	dc.B '== AppleTalk\H'
	dc.W 3
	dc.B $0D
	dc.B '== Modem\H'
	dc.W 4
	dc.B $0D
	dc.B '.'
	ENDP
	
Slot1GS PROC EXPORT
	dc.w	9
	dc.l	1
	dc.w	2,5,14,195
	dc.l	$87000000
	dc.w	$0040
	dc.w	$1004
	dc.l	0
	dc.w	70
	dc.l	Slot1MenuGS
	dc.w	1
	
Slot1menuGS
	dc.B '>> Slot #1:\H'
	dc.W 1
	dc.B $0D
	dc.B '== Printer\IH'
	dc.W 1
	dc.B $0D
	dc.B '== Your Card\H'
	dc.W 2
	dc.B $0D
	dc.B '== Modem\H'
	dc.W 3
	dc.B $0D
	dc.B '.'
	ENDP
	
Slot2TenSpeed PROC EXPORT
	dc.w	9
	dc.l	2
	dc.w	17,5,29,195
	dc.l	$87000000
	dc.w	$0040
	dc.w	$1004
	dc.l	0
	dc.w	70
	dc.l	Slot2MenuTenSpeed
	dc.w	1
	
Slot2menuTenSpeed
	dc.B '>> Slot #2:\H'
	dc.W 2
	dc.B $0D
	dc.B '== Modem\IH'
	dc.W 1
	dc.B $0D
	dc.B '== Your Card\H'
	dc.W 2
	dc.B $0D
	dc.B '== AppleTalk\H'
	dc.W 3
	dc.B $0D
	dc.B '== Printer\H'
	dc.W 4
	dc.B $0D
	dc.B '.'
	ENDP

Slot2GS PROC EXPORT
	dc.w	9
	dc.l	2
	dc.w	17,5,29,195
	dc.l	$87000000
	dc.w	$0040
	dc.w	$1004
	dc.l	0
	dc.w	70
	dc.l	Slot2MenuGS
	dc.w	1
	
Slot2menuGS
	dc.B '>> Slot #2:\H'
	dc.W 2
	dc.B $0D
	dc.B '== Modem\IH'
	dc.W 1
	dc.B $0D
	dc.B '== Your Card\H'
	dc.W 2
	dc.B $0D
	dc.B '== Printer\H'
	dc.W 3
	dc.B $0D
	dc.B '.'
	ENDP

Slot3 PROC EXPORT
	dc.w	9
	dc.l	3
	dc.w	32,5,44,195
	dc.l	$87000000
	dc.w	$0040
	dc.w	$1004
	dc.l	0
	dc.w	70
	dc.l	Slot3Menu
	dc.w	1
	
Slot3menu
	dc.B '>> Slot #3:\H'
	dc.W 3
	dc.B $0D
	dc.B '== Text Display\IH'
	dc.W 1
	dc.B $0D
	dc.B '== Your Card\H'
	dc.W 2
	dc.B $0D
	dc.B '.'
	ENDP
	
Slot4 PROC EXPORT
	dc.w	9
	dc.l	4
	dc.w	47,5,59,195
	dc.l	$87000000
	dc.w	$0040
	dc.w	$1004
	dc.l	0
	dc.w	70
	dc.l	Slot4Menu
	dc.w	1
	
Slot4menu
	dc.B '>> Slot #4:\H'
	dc.W 4
	dc.B $0D
	dc.B '== Mouse Port\IH'
	dc.W 1
	dc.B $0D
	dc.B '== Your Card\H'
	dc.W 2
	dc.B $0D
	dc.B '.'
	ENDP
	
Slot5 PROC EXPORT
	dc.w	9
	dc.l	5
	dc.w	62,5,74,195
	dc.l	$87000000
	dc.w	$0040
	dc.w	$1004
	dc.l	0
	dc.w	70
	dc.l	Slot5Menu
	dc.w	1


	IF MarkTwain THEN

	export Slot5Dimmed
Slot5Dimmed
	dc.w	9
	dc.l	5
	dc.w	62,5,74,195
	dc.l	$87000000
	dc.w	$FF40
	dc.w	$1004
	dc.l	0
	dc.w	70
	dc.l	Slot5Menu
	dc.w	1

	ENDIF
	
Slot5menu
	dc.B '>> Slot #5:\H'
	dc.W 5
	dc.B $0D
	dc.B '== Smart Port\IH'
	dc.W 1
	dc.B $0D
	dc.B '== Your Card\H'
	dc.W 2
	dc.B $0D
	dc.B '.'
	ENDP

	
Slot6 PROC EXPORT
	dc.w	9
	dc.l	6
	dc.w	77,5,89,195
	dc.l	$87000000
	dc.w	$0040
	dc.w	$1004
	dc.l	0
	dc.w	70
	dc.l	Slot6Menu
	dc.w	1
	
Slot6menu
	dc.B '>> Slot #6:\H'
	dc.W 6
	dc.B $0D
	dc.B '== Disk Port\IH'
	dc.W 1
	dc.B $0D
	dc.B '== Your Card\H'
	dc.W 2
	dc.B $0D
	dc.B '.'
	ENDP

Slot7 PROC EXPORT
	dc.w	9
	dc.l	7
	dc.w	92,5,104,195
	dc.l	$87000000
	dc.w	$0040
	dc.w	$1004
	dc.l	0
	dc.w	70
	dc.l	Slot7Menu
	dc.w	1
	
Slot7menu
	dc.B '>> Slot #7:\H'
	dc.W 7
	dc.B $0D
	dc.B '== AppleTalk\H'
	dc.W 1
	dc.B $0D
	dc.B '== Your Card\IH'
	dc.W 2
	dc.B $0D
	dc.B '.'
	ENDP

	IF MarkTwain THEN

Slot7SCSI PROC EXPORT	;for Mark Twain
	dc.w	9
	dc.l	7
	dc.w	92,5,104,195
	dc.l	$87000000
	dc.w	$0040
	dc.w	$1004
	dc.l	0
	dc.w	70
	dc.l	Slot7Menu
	dc.w	1

Slot7menu
	dc.B '>> Slot #7:\H'
	dc.W 7
	dc.B $0D
	dc.B '== AppleTalk\H'
	dc.W 1
	dc.B $0D
	dc.B '== SCSI Port\IH'
	dc.W 2
	dc.B $0D
	dc.B '.'
	ENDP

	ENDIF


Startup PROC EXPORT
	dc.w	9
	dc.l	8
	dc.w	107,5,119,195
	dc.l	$87000000
	dc.w	$0040
	dc.w	$1004
	dc.l	0
	dc.w	70
	dc.l	StartupMenu
	dc.w	1
	
Startupmenu
	dc.B '>> Startup:\H'
	dc.W 8
	dc.B $0D
	dc.B '== Scan\IH'
	dc.W 1
	dc.B $0D
	dc.B '== Slot #1\H'
	dc.W 2
	dc.B $0D
	dc.B '== Slot #2\H'
	dc.W 3
	dc.B $0D
	dc.B '== Slot #3\H'
	dc.W 4
	dc.B $0D
	dc.B '== Slot #4\H'
	dc.W 5
	dc.B $0D
	dc.B '== Slot #5\H'
	dc.W 6
	dc.B $0D
	dc.B '== Slot #6\H'
	dc.W 7
	dc.B $0D
	dc.B '== Slot #7\H'
	dc.W 8
	dc.B $0D
	dc.B '== RAM Disk\H'
	dc.W 9
	dc.B $0D
	dc.B '== ROM Disk\H'
	dc.W 10
	dc.B $0D
	dc.B '.'
	ENDP

StartupTenSpeed PROC EXPORT
	dc.w	9
	dc.l	8
	dc.w	107,5,119,195
	dc.l	$87000000
	dc.w	$0040
	dc.w	$1004
	dc.l	0
	dc.w	70
	dc.l	StartupMenuTenSpeed
	dc.w	1
	
Startupmenutenspeed
	dc.B '>> Startup:\H'
	dc.W 8
	dc.B $0D
	dc.B '== Scan\IH'
	dc.W 1
	dc.B $0D
	dc.B '== Slot #1\H'
	dc.W 2
	dc.B $0D
	dc.B '== Slot #2\H'
	dc.W 3
	dc.B $0D
	dc.B '== Slot #3\H'
	dc.W 4
	dc.B $0D
	dc.B '== Slot #4\H'
	dc.W 5
	dc.B $0D
	dc.B '== Slot #5\H'
	dc.W 6
	dc.B $0D
	dc.B '== Slot #6\H'
	dc.W 7
	dc.B $0D
	dc.B '== Slot #7\H'
	dc.W 8
	dc.B $0D
	dc.B '== RAM Disk\H'
	dc.W 9
	dc.B $0D
	dc.B '== ROM Disk\H'
	dc.W 10
	dc.B $0D
	dc.B '== AppleTalk\H'
	dc.W 11
	dc.B $0D
	dc.B '.'
	ENDP
	
GSSlotsList	PROC EXPORT
	dc.l	Slot1GS
	dc.l	Slot2GS
	dc.l	Slot3
	dc.l	Slot4
	dc.l	Slot5
	dc.l	Slot6
	dc.l	Slot7
	dc.l	Startup
	dc.l	0
	ENDP

TenSpeedSlotsList	PROC EXPORT
	dc.l	Slot1TenSpeed
	dc.l	Slot2TenSpeed
	dc.l	Slot3
	dc.l	Slot4
	dc.l	Slot5
	dc.l	Slot6
	dc.l	Slot7
	dc.l	StartupTenSpeed
	dc.l	0
	ENDP


	if MarkTwain then
MarkTwainSlotsList	PROC EXPORT
	dc.l	Slot1TenSpeed
	dc.l	Slot2TenSpeed
	dc.l	Slot3
	dc.l	Slot4
	dc.l	Slot5Dimmed
	dc.l	Slot6
	dc.l	Slot7SCSI
	dc.l	StartupTenSpeed
	dc.l	0
	ENDP
	EndIf

About1	PROC EXPORT
	dc.w 8
	dc.L 1
	dc.w 38,5,138,280
	dc.L $81000000
	dc.w $0000
	dc.w $1000
	dc.L 0
	dc.L TheText
	dc.w EndText-TheText
	string asis
TheText
	dc.b 'The Slots Control Panel allows you to configure your slots.  '
	dc.b 'Each of the slots can be set to any of the devices that are '
	dc.b 'compatible with it.  The ÒstartupÓ item allows you to choose the slot '
	dc.b 'in which your system will first expect to find the boot device.'
EndText
	string pascal
	ENDP

slotsAbout PROC EXPORT
	dc.l	about1
	dc.l	0
	ENDP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/SlotsCDEV/makefile b/IIGS.601.SRC/A.U.G/CtlPanel/SlotsCDEV/makefile
new file mode 100644
index 0000000..548cd9e
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/SlotsCDEV/makefile
@@ -0,0 +1 @@
+
CDEV = SLOTS

SpecialInterfaces =  {PiigsInclude}ResMgr.USym			¶
					 {PiigsInclude}NewInterface.USym



{CDEV}			 	Ä				{CDEV}.Load 	¶
									{CDEV}.r
	reziigs {CDEV}.r -o {CDEV} -t "C7  " -c "pdos"

{CDEV}.Load		Ä	¶
									{CDEV}.pii.aii.obj ¶
									{CDEV}Data.aii.obj
	linkiigs  		¶
		-x -l -s >{CDEV}.map ¶
		-lseg Darryl:$1000 ¶
			{CDEV}.pii.aii.obj ¶
			{CDEV}Data.aii.obj ¶
			"{PIIGSLibrary}PIIGSRuntime.obj" ¶
			-lib "{PIIGSLibrary}PIIGSRuntime.obj" ¶
		-o {CDEV}.Load 


{CDEV}.pii.aii.obj 		Ä 								¶
							{CDEV}.pii					¶
							{SpecialInterfaces}
	TMLPascal {CDEV}.pii 
	asmiigs {CDEV}.pii.aii 


{CDEV}Data.aii.obj 		Ä 								¶
							{CDEV}Data.aii
	asmiigs {CDEV}Data.aii 



.USym				Ä	.pii
	set ThisDir `Directory`
	Directory {PiigsInclude}
	TMLPascal {default}.pii
	Directory {ThisDir}
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/ReqProc.Load b/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/ReqProc.Load
new file mode 100644
index 0000000..71c693a
Binary files /dev/null and b/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/ReqProc.Load differ
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/ReqProc.aii b/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/ReqProc.aii
new file mode 100644
index 0000000..8fa41c7
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/ReqProc.aii
@@ -0,0 +1 @@
+***************************************************************
**************************************************************
*
* ReqProc.aii -- AcceptRequests procedure for Sound CDev
* by David A. Lyons
*
* Copyright 1991-92, Apple Computer, Inc.
* All Rights Reserved
*
**************************************************************
**************************************************************
*
* REVISION HISTORY
*
* 24-Jun-91 DAL
*   Borrowed skeleton from Noises init (by DAL).
*
* 21-Oct-91 DAL
*   Start putting some real guts in here.  To set the sound
*   configuration handle, we now accept srqConfigSounds.
*
* 28..29-Oct-91 DAL
*   Got this thing working for real.
*
* 30-Oct-91 DAL (version 2.0b10)
*   In the SoundCPStdBeep routine (chained into BELLVECTOR),
*   if I can't handle the request I now chain to the old routine,
*   rather than RTLing with the carry set.
*
* 4-Nov-91 DAL
*   Accepts new request $8003, srqMakeStdBeep, which tries to
*   make the standard beep even if the system beep is remapped.
*
* 6-Nov-91 DAL
*   Add support for asynchronous sounds.
*   Accept srqHelloWorld for patching Sound tools, etc.
*
* 7-Nov-91 DAL
*   Calls SetDefaultTPT after patching Sound tools.
*
* 9-Nov-91 DAL
*   Make direct-page space high in bank 0, not low (just
*   for kicks).
*
* 19-Nov-91 DAL
*   FindSoundHandle returns SEC if handle is NIL.
*   Implemented srqGetrSoundSample (loads sounds from disk
*     as needed, when possible).
*   Forces sounds to be unlocked and not-purgeable when loaded.
*
* 21-Nov-91 DAL (2.0b14 for 6.0d59)
*   Loading a sound on the fly is now case-insensitive like it
*     was supposed to be (was mistakenly passing original name
*     through to RMFindNamedResource instead of using the one we
*     carefully stored in soundsHandle).
*
* 24-Jan-92 DAL (2.0b15 for 6.0d65)
*   When we play a sound handle, we now call SendRequest with
*     code srqPlayrSoundSample.  This way if we can't play the
*     sound (because the Sound Tools are in use, for example),
*     then maybe somebody else can play it for us.
*   Visual indication of sounds now applies to certain SysBeep2
*     codes as well as System Beep.  It applies to codes 0..$F,
*     $30, $33, $50..$59, $0Exx, and $0Fxx (reserved).
*
* 25-Jan-92 DAL (2.0b16 for 6.0d66)
*   No visual indication of sounds assigned to silence.
*   Visual indication of SysBeep even if it's reassigned to a
*     sampled sound.
*   Visual indication comes after sound is started, not before,
*     and it's done locally (not through volume=0, SysBeep).
*
* 27-Jan-92 DAL (still for d66)
*   If a SysBeep or SysBeep2 happens while the stack is in the
*     $01xx page, we are running out of space & going ka-boom.
*     So now I preserve the stack while handling request $0006,
*     srqPlayrSoundSample.
*
**************************************************************
*
* 2-Apr-92 DAL for 6.1d3
*
* Fixed chopped-off Restart sound (WaitForSoundToFinish was
* assuming the bank register was set).
*
* 7-Jul-92 DAL (2.1d6 for 6.0.1d6)
*
* Added srqConvertRelPitch ($8200).  dataIn low = relPitch,
* dataOut +002 = frequency value for FFStartSound.
*
* Made srqHelloWorld not do any damage on a redundant call.
*
**************************************************************
**************************************************************
DebugSymbols	equ 0

	include 'all.macros'
	include 'e16.locator'
	include 'e16.resources'

srqSetSoundGlobals	equ $8000	;set data from dataIn
srqGetSoundGlobals	equ $8001	;return info at dataIn
srqMakeStdBeep	equ $8003	;play a standard beep
srqHelloWorld	equ $8100	;initialize self
srqConvertRelPitch	equ $8200	;convert relPitch to FFStartSound freq (6.0.1)

;---------------------------------------------------------------------
;
; configHandle
;
; configHandle records mappings for all the sounds in the
;   user's active set
;
; The format is exactly like an rTaggedStrings resource, mapping
; from events into strings.
;
; +000: Count
; +002: TagWord1
; +004: PString1
; +xxx: TagWord2
; +yyy: PString2
; +zzz: ...
;
; The strings are the names of Sound resources.
; There are a few special strings:
;   "0" = silence
;   "*" = standard beep
;
;---------------------------------------------------------------------
;
; data structure for soundsHandle
;
; soundHandle records mappings for all the sounds appearing
;   in the Sound pop-up
;
; IMPORTANT!  The soundsHandle is locked while the Sound pop-up menu
;             exists.  The menu items are pointers into this handle.
;
;---------------------------------------------------------------------
oVersion	equ 0	;zero
oEntryOffset	equ 2	;offset to the entry list
oEntryCount	equ 4	;number of entries following
HEADERSIZE	equ 6
;
; Each entry:
;
oNextEntry	equ 0	;offset to next entry (from here)
oNameHash	equ 2	;quick check against name
oMenuItem	equ 4	;menu item number in Sounds pop-up
oPathOffset	equ 6	;offset from entry to pathname (WString) (or zero)
oNameOffset	equ 8	;offset from entry to resname (PString) (or zero)
oSoundData	equ 10	;long sound data (for ex, handle to sound sample)
ENTRYSIZE	equ 14	;(not including strings!)

;
; Values for Binding field (these match the menu item
; numbers for the first 3 items in the Sound pop-up).
;
itemNotAssigned	equ 1
itemSilence	equ 2
itemStandardBeep	equ 3


CLOCKCTL	equ $C034	; DFB 0 ;Clock control register
VERTCNT	EQU $C02E	; DFB 0 ;Addr for read of video cntr bits V5-VB


**************************************************************
**************************************************************
*
* SoundCPReqProc
*
* Plays user-selected sounds in reponse to systemSaysSound,
* and responds to a few other request codes.
*
**************************************************************
SoundCPPermCode	proc export	;DON'T NAME THIS PROC!
	brl SoundCPReqProc	;+0
	brl SoundCPStdBeep	;+3

SoundCPReqProc	name

oldDPage	equ 1
RTL1	equ 3
DataOut	equ 6
DataIn	equ 10
Request	equ 14
Result	equ 16

	phd
	tsc
	tcd

	phb
	phk
	plb

	lda @requestTable
	pha	;preserve for interrupt

	lda <Request
	sta @requestTable
	ldx #@procTable-@requestTable
@search	dex
	dex
	cmp @requestTable,x
	bne @search

	lda <dataIn+2
	ldy <dataIn
	jsr (@procTable,x)	;return with SEC to handle

	pla
	sta @requestTable	;restore (in case we were an interrupt)

@done	ror <Result
	plb
	pld
	lda 2,s
	sta 12,s
	lda 1,s
	sta 11,s
	ply
	ply
	ply
	ply
	ply
	rtl

@requestTable	dc.w $0000
	dc.w srqHelloWorld
	dc.w srqMakeStdBeep
	dc.w srqPlayrSoundSample
	dc.w srqSetSoundGlobals
	dc.w srqGetSoundGlobals
	dc.w srqSynchronize
	dc.w srqConvertRelPitch	;added 7-Jul-92 DAL
	dc.w srqGetrSoundSample
	dc.w systemSaysBeep
*
* Procedures receive dataIn in AY, return SEC to accept a request.
*
@procTable	dc.w @ignore
	dc.w helloWorld
	dc.w makeStdBeep
	dc.w doSrqPlayrSoundSample
	dc.w setGlobals
	dc.w getGlobals
	dc.w WaitForSoundToFinish
	dc.w convertRelPitch	;added 7-Jul-92 DAL
	dc.w getSoundHandle
	dc.w handleSound

@ignore	clc
	rts

**************************************************************
*
* helloWorld -- gets called right after we are installed
*
**************************************************************
helloWorld	name
*** added 7-Jul-92 DAL in case some bozo calls us again
	lda oops
	bne @doNothing
	inc oops
*** end 7-Jul-92
	jsr InstallSoundNP
	jsr PatchSoundTools
@doNothing	sec	;accept request
	rts

oops	dc.w 0	;added 7-Jul-92

**************************************************************
*
* makeStdBeep -- do our best to play the standard beep, the
*                one we control the pitch of.
*
**************************************************************
makeStdBeep	name
	lda #1
	sta StandardBeepKludge  ;prevent remapping
	_SysBeep
	stz StandardBeepKludge
	sec	;accept request
	rts

**************************************************************
*
* SoundCPStdBeep
*
* The $E1006C system beep vector (BELLVECTOR) comes here.
*
* Input:
*   8-bit native mode
*
* Output:
*   8-bit native mode
*   X preserved
*   Y=0
*   carry clear if we handled the beep
*
**************************************************************
SoundCPStdBeep	name
	rep #$30
	phb
	phk
	plb
	phx
	jsr doStdBeep	;returns CLC = handled
	plx
	plb
	ldy #0
	sep #$30
	bcc @handled
	brl ChainBellVector
@handled	rtl

doStdBeep	name
	lda StandardBeepKludge
	bne @reject

	phd

	ldx #0
	phx	;space for result
	pea $0001	;systemSaysBeep
	phx	;high word of dataIn (zero)
	pea $FFFE	;low word of dataIn
	phx
	phx	;dataOut
	jsl SoundCPReqProc
	pla
	pld

	eor #$8000
	asl a	;clc if accepted
	rts

@reject	sec
	rts

StandardBeepKludge	dc.w 0	;avoid beeping for a remapped event!

**************************************************************
*
* handleSound
*
* Try playing a sound for the sound in <dataIn.
*   Bit 31 = don't actually play anything.
*
* Return with SEC to accept the request.
*
* Input:  AY = dataIn
*
**************************************************************
handleSound	name
;;;	tya
;;;	sta localDataIn

	sta localDataIn+2
	sty localDataIn

	jsr PreserveTheStack

	lda localDataIn	;sound number
	jsr FindSoundHandle	;get sound handle in AY (returns $FFFFFFFF if SEC!)
	sta handleToPlay+2
	sty handleToPlay
	bcs @noSoundToPlay

;;;	bcs @unableToPlay

*** Note:  AY= 1 for silence, 2 for SysBeep

;;;	ldx <dataIn+2
	ldx localDataIn+2
	bmi @dontPlay	;bit 31 = just testing!

;	jsr PlaySoundHandle	;sound handle still in AY
;	bcs @unableToPlay
*** added 24-Jan-92 DAL -- use SendRequest to play the sound handle
	ldx #0
	pea srqPlayrSoundSample
	pea $8000	;stop after one, send to all
	phx
	phx	;target = nil
	pha
	phy	;dataIn = handle
	phx
	phx	;dataOut = nil
	_SendRequest
;;;	bcs @playFailed
*** end 24-Jan-92

@noSoundToPlay	php	;sec = reject event, clc=accept

*** Blinking the border and then rejecting the event leads to weirdness
	bcs @noVisIndication
***

*** added 24-Jan-92 DAL -- give visual indication of certain sounds
*** If bit 0 of BRAM $5E = 0, user wants visual indication of sounds
	lda >$e102c0+$5e	;peek at BRAM location $5E
	lsr a
	bcs @noVisIndication

*** Blink border for sounds 0..$F, $30, $33, $50..59, $0Exx, $0Fxx, maybe $FFFE
;;;	lda <dataIn
	lda localDataIn
	cmp #$fffe	;SysBeep!
	beq @doVisibleSysBeep
	cmp #$F+1
	bcc @doVisible
	cmp #$30
	beq @doVisible
	cmp #$33
	beq @doVisible
	cmp #$50
	bcc @noVisIndication
	cmp #$59+1
	bcc @doVisible
	and #$ff00
	cmp #$0e00
	beq @doVisible
	cmp #$0f00
	beq @doVisible
	bra @noVisIndication

@doVisibleSysBeep
@doVisible
*** skip visual indication if we're mapping to silence or SysBeep
*** (If sound was not assigned through us, handleToPlay will be $ffffffff & we'll blink the border)
	lda handleToPlay+2	;saved sound handle $0000xxxx = special
	beq @noVisIndication
	jsr BlinkTheBorder

@noVisIndication	plp
	bcs @unableToPlay


@dontPlay	sec	;accept request
	bra @exit

;;;@playFailed
@unableToPlay	clc	;reject request
@exit	jsr RestoreTheStack	;preserves carry
	rts

localDataIn	dc.l 0
handleToPlay	dc.l 0

*************************************************************************
*
* BlinkTheBorder -- give visual indication of a sound
*
* (Stolen from Patch2:Misc.tools.asm, VolumeIsZero)
*
*************************************************************************
BlinkTheBorder	name
	sep #$30
	longa off
	longi off
	phb	; save dbr

	pea $E0E0
	plb
	plb

	lda |ClockCtl
	and #$0F
	pha	; save original border

	jsr WaitForVBL
	lda #$0F	; force white
	tsb |ClockCtl
	jsr Wait

	jsr WaitForVBL
	lda #$0F	; force black
	trb |ClockCtl
	jsr Wait

	jsr WaitForVBL
	lda #$0F	; force white
	tsb |ClockCtl
	jsr Wait

	jsr WaitForVBL
	lda #$0F	; force black
	trb |ClockCtl
	jsr Wait

	plx	; get restore color	in x
	php	; save interrupt status
	sei	; ints off
	lda #$0F	; force black
	trb |ClockCtl
	txa
	tsb |ClockCtl	; restore orig
	plp	; restore ints

	plb	; restore dbr
	rep #$30
	rts

	longa on
	longi on


;-------------------------------------------------
;
; WaitForVBL
;
; Called in 8-bit mode with data bank set to $E0
; Trashes a-reg
;
;
; The counter assumes 18 cycles per loop
; 2.8 million cycles per second
; 60 vbls a second
;
; 2800000/60/18 Å 2600
;
; (Add 200 more for good luck)
;
WaitForVBL	rep #%00010000
	longi on
	longa off
	ldx #2800	; no more than 2800 times through loop
@wait	lda |VERTCNT
	and #$7F
	asl a
	cmp #220
	bcs @done
	dex
	bne @wait
@done	sep #%00010000
	longi off
	rts

;-------------------------------------------------
;
; Wait
;
; Little routine called in mixed native	mode to
; call the wait routine.
;
; Inputs:  none
; Outputs: none
; All registers trashed.
;
; Can be called with m or x in any state.  m & x are
; preserved.
;

*** Does not to use FWEntry (I'm paranoid about stack space)
Wait	php
	rep #$30
	longa on
	longi on
	phb
	pea $e0e0
	plb
	plb
	ldy $c036	;preserve old speed value in Y
	lda #$80
	trb $c036	;slow speed

	lda #$c0	;delay factor

	sec
@2	pha
@1	sbc #1
	bne @1
	pla
	sbc #1
	bne @2

	sty $c036
	plb
	plp
	rts


*************************************************************************
*
* FindSoundHandle
*
* Input:  A = sound number
*
* Output: SEC: did not find sound, AY = $FFFFFFFF
*         CLC: AY = sound handle
*
*************************************************************************
FindSoundHandle	name
	ldx configHandle+1
	beq @nope

; use configHandle to map from event (in A) to name in resNameBuffer
	jsr MapEventToName

	lda resNameBuffer
	and #$00ff
	beq @notAssigned

	lda resNameBuffer
	cmp #$3001	;"0" = silence
	bne @notSilence
	lda #0
	ldy #1	;$00000001 = silence
	clc
	rts

@notSilence	cmp #$2a01	;"*" = standard beep
	bne @notStdBeep
	lda #0
	ldy #2	;$00000002 = standard beep
	clc
	rts

@notStdBeep
; search through configHandle for an appropriate sound handle

	jsr FindNamedEntry	;out=AX pointing to entry
	phd
	pha
	phx
	tsc
	tcd
*** 19-Nov-91 DAL
	ldy #oSoundData+1
	lda [1],y
	sec
	beq @noHandle
*** end 19-Nov-91
	ldy #oSoundData
	lda [1],y
	tax
	iny
	iny
	lda [1],y
	clc
@noHandle	ply
	ply
	pld
	txy
;;;	clc
	rts

; sound handle in AY

@notAssigned
@nope	sec
*** added 27-Jan-92 DAL
	lda #-1
	tay
*** end 27-Jan-92
	rts

*************************************************************************
*
* srqPlayrSoundSample -- play sound handle from dataIn
*
* Input: AY = dataIn (sound handle, or $0000xxxx for special things)
*
* Output: SEC if we handled the request
*
*************************************************************************
doSrqPlayrSoundSample name
	jsr PlaySoundHandle	;AY already have dataIn
	bcs @fail
	sec	;accept request
	rts

@fail	clc	;reject request
	rts

;;; Damn, the stack is *already* overflown when we get here!
;*** 27-Jan-92 DAL -- rewritten to preserve page-one stack if needed
;doSrqPlayrSoundSample name
;	sta handleToPlay+2
;	sty handleToPlay
;
;	jsr PreserveTheStack  ;does not preserve registers!
;	lda handleToPlay+2
;	ldy handleToPlay
;	jsr PlaySoundHandle	;AY contain dataIn
;	jsr RestoreTheStack
;	bcs @reject
;
;@accept	sec	;accept request
;	rts
;
;@reject	clc	;reject request
;	rts
;
;handleToPlay	dc.l 0

*
* PreserveTheStack
*
PreserveTheStack	stz theOldStackPtr	;anticipate no stack fiddling
	tsc
	and #$ff00
	xba
	dec a
	bne @notPageOne

	ldx #$fe
@keepStack	lda >$000100,x
	sta stackImage,x
	dex
	dex
	bpl @keepStack

	tsc
	inc a
	inc a
	sta theOldStackPtr

	plx
	lda #$01ff
	tcs
	phx

@notPageOne	rts

*
* RestoreTheStack -- preserves the Carry!
*
RestoreTheStack	lda theOldStackPtr
	beq @noFutzing

	ply	;rts address

	php
	php
	pla
	sta pRegister
	sei	;preserve and disable interrupts & Carry flag

	ldx #$fe
@restoreStack	lda stackImage,x
	sta >$000100,x
	dex
	dex
	bpl @restoreStack

	lda theOldStackPtr
	tcs

	lda pRegister
	pha
	plp
	plp	;restore interrupt status and Carry flag

	phy	;rts address

@noFutzing	rts

theOldStackPtr	dc.w 0	;zero means we didn't preserve the stack
stackImage	ds.b 256
pRegister	dc.w 0
*** end 27-Jan-92

*************************************************************************
*
* PlaySoundHandle
*
* Input:  Handle to rSoundSample in AY
* Special cases:
*    $00000001 = silence
*    $00000002 = standard beep
*
* Output:  CLC if we played it
*
*************************************************************************
;
; Format of an rSoundSample resource (handle)
;
oFormat	equ 0
oWaveSize	equ 2
oRelPitch	equ 4
oStereo	equ 6
oSampleRate	equ 8
oSound	equ 10

PlaySoundHandle	name
	import RelPitchAtoFreq

	tax
	bne @notSpecial

;
; Special case $00000001 = silence
;

	cpy #1
	bne @notSilence
	clc
	rts
;
; Special case $00000002 = standard beep
;
@notSilence	cpy #2
	bne @notSpecial
	inc StandardBeepKludge
	_SysBeep
	stz StandardBeepKludge
	clc
	rts

@notSpecial	phd
	pha
	phy
	pha
	phy
	tsc
	tcd

@handle	equ 1
@ptr	equ 5

	jsr StealSoundTools
	bcc @ok
	brl @exit	;return sec = fail
@ok

*** lock & dereference handle and set
	lda <@handle+2
	ldy <@handle
	sta activeSoundHandle+2
	sty activeSoundHandle

	ldy #4
	lda [<@handle],y
	sta oldAttributes
	ora #$8000
	sta [<@handle],y
	dey
	dey
	lda [<@handle],y
	sta <@ptr+2
	tax
	lda [<@handle]
	sta <@ptr

	clc
	adc #oSound	;offset to sound data
	bcc @1
	inx
@1	stx ffSoundPtr+2
	sta ffSoundPtr

*** resource Format must be zero
	sec
	lda [<@ptr]	;sound Format must be 0
	bne @stopAndExit

*** set up wave size
	ldy #oWaveSize
	lda [<@ptr],y
	sta ffWaveSize

*** set up the pitch
	ldy #oRelPitch
	lda [<@ptr],y
;;;	bmi @relSubtract
;;;
;;;	clc
;;;	adc #$3C00	;middle C (semitone 60)
;;;	bra @getPitch
;;;
;;;@relSubtract	and #$7FFF
;;;	eor #$FFFF
;;;	inc a	;negate
;;;	adc #$3C00	;middle C minus relPitch
;;;
;;;@getPitch	jsr PitchToFreq
*** 7-Jul-92 DAL -- Made into subroutine for new request handler
	jsr RelPitchAtoFreq
*** end 7-Jul-92
	sta ffFreq

*** start the sound
	ldy #oStereo	;low nibble = channel number
	lda [<@ptr],y
	and #$000f
	xba
	asl a
	asl a
	asl a
	asl a
	ora #$0201	;Generator 2, FFSynth
	pha
	pushlong #ffSoundBlock
	_FFStartSound
	bcs @stopAndExit

;;;*** wait until the sound is done playing
;;;@wait	pha
;;;	pea $0002	;generator 2
;;;	_FFSoundDoneStatus
;;;	pla
;;;	beq @wait
;;;
;;;*** free up the generator
;;;	pea $0004
;;;	_FFStopSound
	clc
	bra @exit

@stopAndExit	php

	jsr RelinquishSoundTools
*** restore handle state
	ldy #4
	lda oldAttributes
	sta [<@handle],y
	plp
	bra @exit

@exit	ply	;clc = played soiund
	ply
	ply
	ply
	pld
	rts

activeSoundHandle	dc.l 0	;handle to the sound we're playing
oldAttributes	dc.w 0	;old state of sound-sample handle

ffSoundBlock
ffSoundPtr	dc.l 0
ffWaveSize	dc.w 0	;in pages
ffFreq	dc.w 0	;frequency
	dc.w $8000	;address in sound RAM
	dc.w $0006	;use 16K DOC buffer
	dc.l 0	;next wave (none)
	dc.w $00FF	;maximum volume


**************************************************************
*
* StealSoundTools
*
**************************************************************
StealSoundTools	name
	lda StoleSoundTools
	beq @continue

	jsr RelinquishSoundTools

@continue	pea 0
	_SoundToolStatus
	pla
	bne @fail	;somebody else using Sound tools

	pha
	pha
	pushlong #$0100	;size = 1 page
	pha
	_MMStartUp	;my id
	pea $8015	;dp attributes
	ldx #0
	phx
	phx	;zero (bank)
	_NewHandle
	plx
	ply
	bcs @fail
	sty dpSoundHandle+2
	stx dpSoundHandle
	phy
	phx
	phd
	tsc
	tcd
	lda [3]
	pha
	_SoundStartUp
	pld
	plx
	ply
	inc StoleSoundTools
	clc
	rts
@fail	sec
	rts

;StopSoundTools	name
;	_SoundShutDown
;	pushlong dpSoundHandle
;	_DisposeHandle
;	stz dpSoundHandle+1
;	rts

dpSoundHandle	dc.l 0

stoleSoundTools	dc.w 0

**************************************************************
*
* WaitForSoundToFinish
*
* If interrupts are enabled, just wait until our sound
* is done playing.
*
* BANK REGISTER IS NOT NECESSARILY SET!  --  2-Apr-92 DAL
*
**************************************************************
WaitForSoundToFinish name
	php
	php
	pla
	and #$0004	;I bit
	bne @dontWait

@busyWaiting	lda >StoleSoundTools   ;long addressing! (2-Apr-92 DAL)
	beq @dontWait

	pha
	pea $0002	;generator 2
	_FFSoundDoneStatus
	pla
	beq @busyWaiting

@dontWait	sec	;accept request
	rts

**************************************************************
*
* RelinquishSoundTools
*
* Stop playing my sound, shut down sound tools, dispose of
* direct-page space, and clear the StoleSoundTools flag.
*
**************************************************************
RelinquishSoundTools name
	lda >StoleSoundTools
	beq @done
	phb
	phk
	plb

	pea $0004	;generator 2
	_FFStopSound

; unlock the previously-playing sound
	lda activeSoundHandle+1
	beq @noSound
	phd
	pushlong activeSoundHandle
	tsc
	tcd
	ldy #4
	lda [1],y
	asl a
	lsr a
	sta [1],y
	ply
	ply
	pld
	stz activeSoundHandle+1
@noSound

	_SoundShutDown
	pushlong dpSoundHandle
	_DisposeHandle
	stz dpSoundHandle+1
	stz StoleSoundTools
	plb
@done	rts



**************************************************************
**************************************************************
*
* PatchSoundTools
*
**************************************************************
PatchSoundTools	name
	pha
	pha
	pea 0
	pea 8
	_GetTSPtr
	phd
	tsc
	tcd
	lda [3]
	sta mySoundPatch
	pld
	ply
	ply

	pha
	pha
	pea 0	;system tool
	pea $0608	;SoundToolStatus
	_GetFuncPtr
	pla
	inc a
	sta oldSoundStatus+1
	pla
	sep #$20
	sta oldSoundStatus+3
	rep #$20

	pha
	pha
	pea 0	;system tool
	pea $0208	;SoundStartUp
	_GetFuncPtr
	pla
	inc a
	sta oldSoundStartUp+1
	pla
	sep #$20
	sta oldSoundStartUp+3
	rep #$20

	pea $0000	;system tool
	pea $0008	;Sound
	pushlong #mySoundPatch
	_SetTSPtr
	_SetDefaultTPT	;added 7-Nov-91 DAL
	rts

mySoundPatch	dc.l 0	;function count (filled in)
	dc.l sBootInit-1	;$0108 SoundBootInit
	dc.l sStartUp-1	;$0208 SoundStartUp
	dc.l 0	;$0308 SoundShutDown
	dc.l 0	;$0408 SoundVersion
	dc.l 0	;$0508 SoundReset
	dc.l sStatus-1	;$0608 SoundToolStatus
	dc.l 0	;$0708
	dc.l 0	;$0808
	dc.l 0	;$0908 WriteRamBlock
	dc.l 0	;$0A08 ReadRamBlock
	dc.l 0	;$0B08 GetTableAddress
	dc.l 0	;$0C08 GetSoundVolume
	dc.l 0	;$0D08 SetSoundVolume
	dc.l 0	;$0E08 FFStartSound
	dc.l 0	;$0F08 FFStopSound
	dc.l 0	;$1008 FFSoundStatus
	dc.l 0	;$1108 FFGeneratorStatus
	dc.l 0	;$1208 SetSoundMIRQV
	dc.l 0	;$1308 SetUserSoundIRQV
	dc.l 0	;$1408 FFSoundDoneStatus
	dc.l 0	;$1508 FFSetUpSound
	dc.l 0	;$1608 FFStartPlaying
	dc.l 0	;$1708 SetDocReg
	dc.l 0	;$1808 ReadDocReg
	dc.l 0	;$1908 expansion
	dc.l 0	;$1A08 expansion
	dc.l 0	;$1B08 expansion
	dc.l 0	;$1C08 expansion
	dc.l 0	;$1D08 expansion
	dc.l 0	;$1E08 expansion
	dc.l 0	;$1F08 expansion
	dc.l 0	;$2008 expansion
	dc.l 0	;$2108 expansion
	dc.l 0	;$2208 expansion

**************************************************************
*
* SoundToolStatus patch -- If I have stolen the sound tools,
*                          return FALSE.
*
**************************************************************
sStatus	pha
	lda >StoleSoundTools
	beq @old
	pla
	lda #0
	sta 7,s	;return status = false
	clc
	rtl
@old	pla
oldSoundStatus	jml >$777777

**************************************************************
*
* SoundBootInit patch -- do nothing
*
**************************************************************
sBootInit	lda #0
	clc
	rtl

**************************************************************
*
* SoundStartUp patch -- give up the sound tools and pass
*                       control to the real startup function.
*
**************************************************************
sStartUp	pha
	phx
	phy
	jsr RelinquishSoundTools
	ply
	plx
	pla
oldSoundStartUp	jml >$777777


**************************************************************
**************************************************************
*
* Install notify proc -- give up sound tools on switch to P8
*
**************************************************************
InstallSoundNP	name
	pushlong #notifyParms
	pea $2034	;AddNotifyProc
	jsl $e100b0
	rts

notifyParms	dc.w 1
	dc.l myNotifyProc

myNotifyProc	dc.l 0	;link (reserved)
	dc.w 0	;reserved
	dc.w $a55a	;signature
	dc.l $00000022	;event flags (shutdown, switch to P8)
	dc.l 0	;event code
SoundCPNotifyProc	name
	jsr WaitForSoundToFinish
	jsr RelinquishSoundTools
	rtl


*************************************************************************
*************************************************************************
*
* convertRelPitch -- handle an srqConvertRelPitch request (new for 6.0.1)
*
*
* Input: AY = dataIn value (Y = relPitch value)
*
* Output:  sec to accept the request
*          dataOut:
*            +000: recvCount
*            +002: frequency for FFStartSound
*
*************************************************************************
convertRelPitch	name
	import RelPitchAtoFreq

	tya
	jsr RelPitchAtoFreq
	ldy #2
	sta [<dataOut],y
	sec
	rts


*************************************************************************
*************************************************************************
*
* getSoundHandle -- handle an srqGetrSoundSample request
*
* Input:  AY = dataIn (pointer to PString sound name, case insensitive)
*
* Output:  clc to reject request
*          sec to accept (must fill in dataOut handle and flags)
*
* dataOut:
*   +000: recvCount
*   +002: sound handle
*   +006: flags (bit 15 = caller should dispose handle)
*
*************************************************************************
getSoundHandle	name

	pei <dataIn+2
	pei <dataIn
	pushlong #resNameBuffer
	lda [<dataIn]
	and #$00ff
	inc a
	pea 0
	pha
	_BlockMove

	jsr FindNamedEntry	;out=AX pointing to entry
	bcs @reject

	phd
	pha
	phx
	tsc
	tcd
	ldy #oSoundData
	lda [1],y
	tax
	iny
	iny
	lda [1],y
	ply
	ply
	pld	;handle in AX

	tay
	bne @ok
	txy
	bne @ok
*** Try to load the sound from disk
	jsr LoadSoundFromDisk  ;return AX = sound handle, Y=result flags
	bcs @reject

	phy
	jsr StuffHandleAX
	pla	;result flags
	ldy #6
	sta [<dataOut],y
	sec	;accept request
	rts

@ok	jsr StuffHandleAX
	lda #0
	ldy #6
	sta [<dataOut],y	;caller should not dispose
	sec	;accept request
	rts

@reject	clc	;reject request
	rts

StuffHandleAX	ldy #4
	sta [<dataOut],y
	dey
	dey
	txa
	sta [<dataOut],y
	rts

*************************************************************************
*
* LoadSoundFromDisk
*
* Input:  Pascal string sound name in resNameBuffer
*
* Output: SEC = failed to load sound
*         CLC = loaded sound from disk
*               AX = rSoundSample handle
*               Y = result flags
*                   $0000=we're keeping the sound (we needed it)
*                   $8000=caller should eventually dispose of handle
*
*************************************************************************
LoadSoundFromDisk	name
	stz @sHandle+1

	phd
	jsr FindNamedEntry  ;this will succeed
	pha
	phx
	pushlong soundsHandle
	tsc
	tcd
@soundsHandleCopy	equ 1
@entry	equ @soundsHandleCopy+4

	ldy #4	;force soundsHandle locked
	lda [<@soundsHandleCopy],y
	pha
	ora #$8000
	sta [<@soundsHandleCopy],y

	pha
	_GetCurResourceApp
	pha
	_MMStartUp
	_ResourceStartUp

	pha	;space for result
	pea $0001	;request access = read
	pea 0
	pea 0	;map address = NIL
	ldy #oPathOffset
	lda [<@entry],y
	clc
	adc @entry
	tax
	lda <@entry+2
	adc #0
	pha
	phx
	_OpenResourceFile
	pla
	bcs @failOpen
	pha	;keep ref num on stack

	pha
	pha	;space for result
	pea rSoundSample
;;;	pushlong #resNameBuffer
*** added 21-Nov-91 DAL -- use recorded name (with correct case!)
	ldy #oNameOffset
	lda [<@entry],y
	clc
	adc @entry
	tax
	lda <@entry+2
	adc #0
	pha
	phx
*** end 21-Nov-91
	pushlong #theFileNumber
	_RMFindNamedResource
	plx
	pla
	bcs @failFind
	sta @id+2
	stx @id

	pha
	pha	;space for LoadResource
	pea rSoundSample
	pha
	phx	;resource ID
	_LoadResource
	plx
	pla
	bcs @failLoad
	sta @sHandle+2	;this flags it as successful!
	stx @sHandle

	pea 0	;purge level
	pha
	phx	;handle for SetPurge
	pha
	phx	;handle for HUnlock
	_HUnlock
	_SetPurge

	pea rSoundSample
	lda @id+2
	pha
	lda @id
	pha
	_DetachResource

@failFind
@failLoad	_CloseResourceFile

@failOpen	_ResourceShutDown
	_SetCurResourceApp

*** set up sFlags, and store the handle in soundsHandle if needed
	jsr DoWeNeedThisSound  ;SEC=not needed, caller should dispose
	lda #0
	ror a
	sta @sFlags
	bmi @noStore
	ldy #oSoundData
	lda @sHandle
	sta [<@entry],y
	iny
	iny
	lda @sHandle+2
	sta [<@entry],y
@noStore
	pla	;restore locked state of soundsHandle
	ldy #4
	sta [<@soundsHandleCopy],y

	ply
	ply	;pulled soundsHandleCopy
	ply
	ply	;pulled entry
	pld

	sec
	lda @sHandle+1
	beq @bye
	ldy @sFlags
	lda @sHandle+2
	ldx @sHandle
	clc
@bye	rts

@sHandle	dc.l 0
@sFlags	dc.w 0
@id	dc.l 0
theFileNumber	dc.w 0	;ignored

*************************************************************************
*
* MapEventToName
*
* Input:  A = event
*
* Output: resNameBuffer
*
*************************************************************************
MapEventToName	name
	sta @target
	stz resNameBuffer	;null string (not assigned)
	phd
	pushlong configHandle
	tsc
	tcd

@temp	equ 1

	ldy #2
	lda [<@temp]
	tax
	lda [<@temp],y
	sta <@temp+2
	stx <@temp

	lda [<@temp]	;number of mappings
	beq @done
	tax
	lda #2
	jsr @bumpTemp

@tryOneMapping	lda [<@temp]
	cmp @target
	bne @next

	lda #2
	jsr @bumpTemp
	pei <@temp+2
	pei <@temp
	pushlong #resNameBuffer
	pea 0
	lda [<@temp]
	and #$00ff
	inc a
	pha
	_BlockMove
	bra @done

@next	ldy #2
	lda [@temp],y
	and #$00ff
	inc a
	inc a
	inc a
	jsr @bumpTemp
	dex
	bne @tryOneMapping

@done	ply
	ply
	pld
	rts

@bumpTemp	clc
	adc <@temp
	sta <@temp
	bcc @ok
	inc <@temp+2
@ok	rts

@target	dc.w 0


*************************************************************************
*
* FindNamedEntry
*
* Input: resNameBuffer (pstring), soundsHandle
*
* Output: CLC, AX = pointer to entry
*         SEC = not found
*
* Need to simulate entries for Silence, Standard Beep, Not Assigned.
*
*************************************************************************
FindNamedEntry	name

	jsr ComputeNameHash

	lda resNameBuffer
	cmp #$2A01	;"*"
	bne @notStdBeep
	lda #^fakeStdBeep
	ldx #fakeStdBeep
	clc
	rts

@notStdBeep	cmp #$3001	;"0"
	bne @notSilence
	lda #^fakeSilence
	ldx #fakeSilence
	clc
	rts

@notSilence
	phd
	pushlong soundsHandle
	tsc
	tcd

@ptr	equ 1

	ldy #2
	lda [<@ptr]
	tax
	lda [<@ptr],y
	sta <@ptr+2
	stx <@ptr

	ldy #oEntryCount
	lda [<@ptr],y
	sta @count
	beq @fail

	ldy #oEntryOffset
	lda [<@ptr],y
	jsr @bumpPtr

@checkOneEntry	jsr @CompareName	;returns CLC if equal
	lda <@ptr+2
	ldx <@ptr
	bcc @found

	lda [<@ptr]
	jsr @bumpPtr

	dec @count
	bne @checkOneEntry

	lda #^fakeNotAssigned
	ldx #fakeNotAssigned

@fail	sec
@found	ply
	ply
	pld
	rts

@count	dc.w 0

@bumpPtr	clc
	adc <@ptr
	sta <@ptr
	bcc @nr
	inc <@ptr+2
@nr	rts

*
* CompareName -- return CLC if resNameBuffer matches @ptr entry
*
@CompareName	ldy #oNameHash
	lda [<@ptr],y
	cmp resNameHash
	sec	;no match
	bne @exit

	pushlong #resNameBuffer
	clc
	ldy #oNameOffset
	lda [<@ptr],y
	adc <@ptr
	tax
	lda <@ptr+2
	adc #0
	pha
	phx
	jsr ComparePStrings
@exit	rts	;return clc=match, sec=not

ComparePStrings	phd
	tsc
	tcd

@one	equ 5
@two	equ @one+4

	sep #$30
	longa off
	longi off

	lda [@one]
	tay
	cmp [@two]
	bne @noMatch

@nextChar	lda [@one],y
	jsr upcase
	sta @cheat+1
	lda [@two],y
	jsr upcase
@cheat	cmp #$77	;self-modified
	bne @noMatch
	dey
	bne @nextChar

	clc
	bra @exit

@noMatch	sec
@exit	rep #$30
	longa on
	longi on
	pld
	plx	;rts addr
	ply
	ply
	ply
	ply
	phx	;rts addr
	rts

	longa off
upcase	cmp #'a'
	bcc @up
	cmp #'z'+1
	bcs @up
	and #$df
@up	rts
	longa on

fakeNotAssigned	dc.w 0,0,itemNotAssigned,0,0,0,0
fakeSilence	dc.w 0,0,itemSilence,0,0,0,0
fakeStdBeep	dc.w 0,0,itemStandardBeep,0,0,0,0

*************************************************************************
*
* ComputeNameHash
*
* Input:  pstring in resNameBuffer
*
* Output: A, resNameHash
*
*************************************************************************
ComputeNameHash	name
;@@@ (later)
	lda #$BEEF
	sta resNameHash
	rts

*************************************************************************
*
* DoWeNeedThisSound
*
* Input:  resNameBuffer (sound name, PString)
*
* Output: SEC if we don't need this sound
*         CLC if we need this sound
*
* The sounds we need are the ones in configHandle (any sound currently
* bound to any event).
*
;---------------------------------------------------------------------
;
; configHandle
;
; configHandle records mappings for all the sounds in the
;   user's active set
;
; The format is exactly like an rTaggedStrings resource, mapping
; from events into strings.
;
; +000: Count
; +002: TagWord1
; +004: PString1
; +xxx: TagWord2
; +yyy: PString2
; +zzz: ...
;
*************************************************************************
DoWeNeedThisSound	name
	phd
	pushlong configHandle
	tsc
	tcd

@temp	equ 1

	ldy #2
	lda [<@temp]
	tax
	lda [<@temp],y
	sta <@temp+2
	stx <@temp

	lda [<@temp]
	sta @count
	beq @notNeeded
	lda #4
	jsr @bumpTemp

@check1	pushlong #resNameBuffer
	pei <@temp+2
	pei <@temp
	jsr ComparePStrings
	bcc @exit	;equal!

	lda [<@temp]
	and #$00ff
	inc a
	inc a
	inc a
	jsr @bumpTemp
	dec @count
	bne @check1

@notNeeded	sec
@exit	ply
	ply
	pld
	rts

@bumpTemp	clc
	adc <@temp
	sta <@temp
	bcc @1
	inc <@temp+2
@1	rts

@count	dc.w 0

*************************************************************************
*************************************************************************
*
* setGlobals
*
* Set the global sound configuration handle from dataIn.
* Always accept the request.
*
* Input:  AY = dataIn.
*
*************************************************************************
setGlobals	name
	pha
	phy
	pushlong #GLOBALS
	bra commonGlobals
*************************************************************************
*************************************************************************
*
* getGlobals
*
* Set the global sound configuration handle from dataIn.
* Always accept the request.
*
* Input:  AY = dataIn.
*
*************************************************************************
getGlobals	name
	pushlong #GLOBALS
	pha
	phy
commonGlobals	pushlong #ENDGLOBALS-GLOBALS
	_BlockMove
	sec	;accept request
	rts

*************************************************************************
*
* Globals
*
*************************************************************************
GLOBALS
configHandle	dc.l 0
soundsHandle	dc.l 0
myProcMemID	dc.w 0
ChainBellVector	jml >$777777	;JML to old BELLVECTOR
ENDGLOBALS
*************************************************************************
resNameBuffer	ds.b 256
resNameHash	dc.w 0

	EndP


****************************************************************
*
* RelPitchAtoFreq
*
* Input:
*   relPitch value in A
*
* Output:
*   FFStartSound frequenty value in A
*
****************************************************************
RelPitchAtoFreq	procname export
	tay
	bmi @relSubtract

	clc
	adc #$3C00	;middle C (semitone 60)
	bra @getPitch

@relSubtract	and #$7FFF
	eor #$FFFF
	inc a	;negate
	adc #$3C00	;middle C minus relPitch

@getPitch	;;; fall into PitchToFreq

****************************************************************
*
* PitchToFreq
*
* Inputs:	Pitch word in A, full native mode
*
* Outputs:	Freq word in A
*
* Uses:	x and y
*
*
* (Stolen from HyperCard IIgs 1.1, 23-Oct-91 DAL)
*
****************************************************************
	export PitchToFreq
PitchToFreq	name

octave	equ 12*256
Adjust	equ  $07C8	; 3 half steps, 41/128th step (Mark 341)

	clc
	adc #Adjust

	ldy #11	; maximum octave count
	sec
	sbc #octave
	bmi hitbottom

ploop	dey 	; keep subtracting octaves to
	sbc #octave	; find out how many
	bpl ploop


hitbottom	adc #octave	; went too far; back up. (carry was ok)

* now the octave count is in y and the remainder is in a

	phy
	and #$FFFE
	tay
	lda freqtable,y	; lookup in top octave table

* now we have the right pitch, but the wrong octave, in a

	ply
	dey
	bmi Pdone
shift	lsr A	; divide by two for each octave down
	dey
	bpl shift

Pdone	rts


* the frequency table
* for a doc clock of 892337.5
* middle c is 261.625565 Hz

freqtable	DC.W 20905,20914,20924,20933,20943,20952,20962,20971	;0
	DC.W 20981,20990,21000,21009,21018,21028,21037,21047
	DC.W 21056,21066,21075,21085,21094,21104,21114,21123
	DC.W 21133,21142,21152,21161,21171,21180,21190,21199
	DC.W 21209,21219,21228,21238,21247,21257,21267,21276
	DC.W 21286,21295,21305,21315,21324,21334,21343,21353
	DC.W 21363,21372,21382,21392,21401,21411,21421,21430
	DC.W 21440,21450,21459,21469,21479,21488,21498,21508
	DC.W 21518,21527,21537,21547,21556,21566,21576,21586
	DC.W 21595,21605,21615,21625,21634,21644,21654,21664
	DC.W 21673,21683,21693,21703,21713,21722,21732,21742
	DC.W 21752,21762,21772,21781,21791,21801,21811,21821
	DC.W 21831,21840,21850,21860,21870,21880,21890,21900
	DC.W 21909,21919,21929,21939,21949,21959,21969,21979
	DC.W 21989,21999,22009,22019,22028,22038,22048,22058
	DC.W 22068,22078,22088,22098,22108,22118,22128,22138

	DC.W 22148,22158,22168,22178,22188,22198,22208,22218	;1
	DC.W 22228,22238,22248,22258,22268,22278,22288,22299
	DC.W 22309,22319,22329,22339,22349,22359,22369,22379
	DC.W 22389,22399,22409,22420,22430,22440,22450,22460
	DC.W 22470,22480,22491,22501,22511,22521,22531,22541
	DC.W 22551,22562,22572,22582,22592,22602,22613,22623
	DC.W 22633,22643,22653,22664,22674,22684,22694,22705
	DC.W 22715,22725,22735,22746,22756,22766,22777,22787
	DC.W 22797,22807,22818,22828,22838,22849,22859,22869
	DC.W 22880,22890,22900,22911,22921,22931,22942,22952
	DC.W 22962,22973,22983,22993,23004,23014,23025,23035
	DC.W 23045,23056,23066,23077,23087,23097,23108,23118
	DC.W 23129,23139,23150,23160,23170,23181,23191,23202
	DC.W 23212,23223,23233,23244,23254,23265,23275,23286
	DC.W 23296,23307,23317,23328,23338,23349,23359,23370
	DC.W 23381,23391,23402,23412,23423,23433,23444,23455

	DC.W 23465,23476,23486,23497,23507,23518,23529,23539	;2
	DC.W 23550,23561,23571,23582,23593,23603,23614,23624
	DC.W 23635,23646,23656,23667,23678,23689,23699,23710
	DC.W 23721,23731,23742,23753,23763,23774,23785,23796
	DC.W 23806,23817,23828,23839,23849,23860,23871,23882
	DC.W 23893,23903,23914,23925,23936,23946,23957,23968
	DC.W 23979,23990,24001,24011,24022,24033,24044,24055
	DC.W 24066,24077,24087,24098,24109,24120,24131,24142
	DC.W 24153,24164,24174,24185,24196,24207,24218,24229
	DC.W 24240,24251,24262,24273,24284,24295,24306,24317
	DC.W 24328,24339,24350,24361,24372,24383,24394,24405
	DC.W 24416,24427,24438,24449,24460,24471,24482,24493
	DC.W 24504,24515,24526,24537,24548,24559,24570,24582
	DC.W 24593,24604,24615,24626,24637,24648,24659,24670
	DC.W 24682,24693,24704,24715,24726,24737,24748,24760
	DC.W 24771,24782,24793,24804,24816,24827,24838,24849

	DC.W 24860,24872,24883,24894,24905,24917,24928,24939	;3
	DC.W 24950,24962,24973,24984,24995,25007,25018,25029
	DC.W 25041,25052,25063,25075,25086,25097,25108,25120	;1
	DC.W 25131,25142,25154,25165,25177,25188,25199,25211
	DC.W 25222,25233,25245,25256,25268,25279,25290,25302	;2
	DC.W 25313,25325,25336,25348,25359,25370,25382,25393
	DC.W 25405,25416,25428,25439,25451,25462,25474,25485	;3
	DC.W 25497,25508,25520,25531,25543,25554,25566,25577
	DC.W 25589,25600,25612,25624,25635,25647,25658,25670	;4
	DC.W 25681,25693,25705,25716,25728,25739,25751,25763
	DC.W 25774,25786,25798,25809,25821,25833,25844,25856
	DC.W 25868,25879,25891,25903,25914,25926,25938,25949
	DC.W 25961,25973,25985,25996,26008,26020,26032,26043
	DC.W 26055,26067,26079,26090,26102,26114,26126,26137
	DC.W 26149,26161,26173,26185,26196,26208,26220,26232
	DC.W 26244,26256,26268,26279,26291,26303,26315,26327

	DC.W 26339,26351,26363,26374,26386,26398,26410,26422	;4
	DC.W 26434,26446,26458,26470,26482,26494,26506,26518
	DC.W 26530,26542,26554,26566,26578,26590,26602,26614
	DC.W 26626,26638,26650,26662,26674,26686,26698,26710
	DC.W 26722,26734,26746,26758,26770,26782,26794,26806
	DC.W 26818,26831,26843,26855,26867,26879,26891,26903
	DC.W 26915,26928,26940,26952,26964,26976,26988,27001
	DC.W 27013,27025,27037,27049,27062,27074,27086,27098
	DC.W 27111,27123,27135,27147,27160,27172,27184,27196
	DC.W 27209,27221,27233,27245,27258,27270,27282,27295
	DC.W 27307,27319,27332,27344,27356,27369,27381,27393
	DC.W 27406,27418,27431,27443,27455,27468,27480,27492
	DC.W 27505,27517,27530,27542,27555,27567,27579,27592
	DC.W 27604,27617,27629,27642,27654,27667,27679,27692
	DC.W 27704,27717,27729,27742,27754,27767,27779,27792
	DC.W 27804,27817,27829,27842,27855,27867,27880,27892

	DC.W 27905,27918,27930,27943,27955,27968,27981,27993	;5
	DC.W 28006,28019,28031,28044,28056,28069,28082,28094
	DC.W 28107,28120,28133,28145,28158,28171,28183,28196
	DC.W 28209,28222,28234,28247,28260,28273,28285,28298
	DC.W 28311,28324,28336,28349,28362,28375,28388,28400
	DC.W 28413,28426,28439,28452,28465,28477,28490,28503
	DC.W 28516,28529,28542,28555,28568,28580,28593,28606
	DC.W 28619,28632,28645,28658,28671,28684,28697,28710
	DC.W 28723,28736,28749,28762,28775,28788,28801,28814
	DC.W 28827,28840,28853,28866,28879,28892,28905,28918
	DC.W 28931,28944,28957,28970,28983,28996,29009,29022
	DC.W 29035,29049,29062,29075,29088,29101,29114,29127
	DC.W 29140,29154,29167,29180,29193,29206,29219,29233
	DC.W 29246,29259,29272,29285,29299,29312,29325,29338
	DC.W 29352,29365,29378,29391,29405,29418,29431,29444
	DC.W 29458,29471,29484,29498,29511,29524,29538,29551

	DC.W 29564,29578,29591,29604,29618,29631,29644,29658	;6
	DC.W 29671,29685,29698,29711,29725,29738,29752,29765
	DC.W 29779,29792,29805,29819,29832,29846,29859,29873
	DC.W 29886,29900,29913,29927,29940,29954,29967,29981
	DC.W 29994,30008,30021,30035,30049,30062,30076,30089
	DC.W 30103,30116,30130,30144,30157,30171,30184,30198
	DC.W 30212,30225,30239,30253,30266,30280,30294,30307
	DC.W 30321,30335,30348,30362,30376,30389,30403,30417
	DC.W 30431,30444,30458,30472,30486,30499,30513,30527
	DC.W 30541,30554,30568,30582,30596,30610,30623,30637
	DC.W 30651,30665,30679,30693,30707,30720,30734,30748
	DC.W 30762,30776,30790,30804,30818,30831,30845,30859
	DC.W 30873,30887,30901,30915,30929,30943,30957,30971
	DC.W 30985,30999,31013,31027,31041,31055,31069,31083
	DC.W 31097,31111,31125,31139,31153,31167,31181,31195
	DC.W 31209,31224,31238,31252,31266,31280,31294,31308

	DC.W 31322,31336,31351,31365,31379,31393,31407,31421	;7
	DC.W 31436,31450,31464,31478,31492,31507,31521,31535
	DC.W 31549,31564,31578,31592,31606,31621,31635,31649
	DC.W 31663,31678,31692,31706,31721,31735,31749,31764
	DC.W 31778,31792,31807,31821,31835,31850,31864,31878
	DC.W 31893,31907,31922,31936,31950,31965,31979,31994
	DC.W 32008,32023,32037,32052,32066,32080,32095,32109
	DC.W 32124,32138,32153,32167,32182,32197,32211,32226
	DC.W 32240,32255,32269,32284,32298,32313,32328,32342
	DC.W 32357,32371,32386,32401,32415,32430,32444,32459
	DC.W 32474,32488,32503,32518,32532,32547,32562,32577
	DC.W 32591,32606,32621,32635,32650,32665,32680,32694
	DC.W 32709,32724,32739,32753,32768,32783,32798,32813
	DC.W 32827,32842,32857,32872,32887,32902,32916,32931
	DC.W 32946,32961,32976,32991,33006,33021,33035,33050
	DC.W 33065,33080,33095,33110,33125,33140,33155,33170

	DC.W 33185,33200,33215,33230,33245,33260,33275,33290	;8
	DC.W 33305,33320,33335,33350,33365,33380,33395,33410
	DC.W 33425,33440,33456,33471,33486,33501,33516,33531
	DC.W 33546,33561,33577,33592,33607,33622,33637,33652
	DC.W 33668,33683,33698,33713,33728,33744,33759,33774
	DC.W 33789,33805,33820,33835,33850,33866,33881,33896
	DC.W 33912,33927,33942,33957,33973,33988,34003,34019
	DC.W 34034,34050,34065,34080,34096,34111,34126,34142
	DC.W 34157,34173,34188,34204,34219,34234,34250,34265
	DC.W 34281,34296,34312,34327,34343,34358,34374,34389
	DC.W 34405,34420,34436,34451,34467,34483,34498,34514
	DC.W 34529,34545,34560,34576,34592,34607,34623,34638
	DC.W 34654,34670,34685,34701,34717,34732,34748,34764
	DC.W 34779,34795,34811,34827,34842,34858,34874,34889
	DC.W 34905,34921,34937,34953,34968,34984,35000,35016
	DC.W 35031,35047,35063,35079,35095,35111,35126,35142

	DC.W 35158,35174,35190,35206,35222,35238,35253,35269	;9
	DC.W 35285,35301,35317,35333,35349,35365,35381,35397
	DC.W 35413,35429,35445,35461,35477,35493,35509,35525
	DC.W 35541,35557,35573,35589,35605,35621,35637,35653
	DC.W 35670,35686,35702,35718,35734,35750,35766,35782
	DC.W 35799,35815,35831,35847,35863,35879,35896,35912
	DC.W 35928,35944,35960,35977,35993,36009,36025,36042
	DC.W 36058,36074,36091,36107,36123,36139,36156,36172
	DC.W 36188,36205,36221,36237,36254,36270,36287,36303
	DC.W 36319,36336,36352,36368,36385,36401,36418,36434
	DC.W 36451,36467,36484,36500,36516,36533,36549,36566
	DC.W 36582,36599,36615,36632,36649,36665,36682,36698
	DC.W 36715,36731,36748,36765,36781,36798,36814,36831
	DC.W 36848,36864,36881,36897,36914,36931,36947,36964
	DC.W 36981,36998,37014,37031,37048,37064,37081,37098
	DC.W 37115,37131,37148,37165,37182,37198,37215,37232

	DC.W 37249,37266,37282,37299,37316,37333,37350,37367	;10
	DC.W 37384,37400,37417,37434,37451,37468,37485,37502
	DC.W 37519,37536,37553,37570,37587,37603,37620,37637
	DC.W 37654,37671,37688,37705,37722,37739,37757,37774
	DC.W 37791,37808,37825,37842,37859,37876,37893,37910
	DC.W 37927,37944,37962,37979,37996,38013,38030,38047
	DC.W 38064,38082,38099,38116,38133,38150,38168,38185
	DC.W 38202,38219,38237,38254,38271,38288,38306,38323
	DC.W 38340,38358,38375,38392,38410,38427,38444,38462
	DC.W 38479,38496,38514,38531,38548,38566,38583,38601
	DC.W 38618,38636,38653,38670,38688,38705,38723,38740
	DC.W 38758,38775,38793,38810,38828,38845,38863,38880
	DC.W 38898,38916,38933,38951,38968,38986,39003,39021
	DC.W 39039,39056,39074,39092,39109,39127,39145,39162
	DC.W 39180,39198,39215,39233,39251,39268,39286,39304
	DC.W 39322,39339,39357,39375,39393,39410,39428,39446

	DC.W 39464,39482,39499,39517,39535,39553,39571,39589	;11
	DC.W 39606,39624,39642,39660,39678,39696,39714,39732
	DC.W 39750,39768,39786,39804,39822,39840,39858,39876
	DC.W 39894,39912,39930,39948,39966,39984,40002,40020
	DC.W 40038,40056,40074,40092,40110,40128,40146,40164
	DC.W 40183,40201,40219,40237,40255,40273,40292,40310
	DC.W 40328,40346,40364,40383,40401,40419,40437,40456
	DC.W 40474,40492,40510,40529,40547,40565,40584,40602
	DC.W 40620,40638,40657,40675,40694,40712,40730,40749
	DC.W 40767,40785,40804,40822,40841,40859,40878,40896
	DC.W 40915,40933,40951,40970,40988,41007,41025,41044
	DC.W 41062,41081,41100,41118,41137,41155,41174,41192
	DC.W 41211,41230,41248,41267,41285,41304,41323,41341
	DC.W 41360,41379,41397,41416,41435,41453,41472,41491
	DC.W 41510,41528,41547,41566,41585,41603,41622,41641
	DC.W 41660,41679,41697,41716,41735,41754,41773,41792

	ENDP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/SOUND b/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/SOUND
new file mode 100644
index 0000000..e69de29
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/Sound.pii b/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/Sound.pii
new file mode 100644
index 0000000..5bb2e52
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/Sound.pii
@@ -0,0 +1 @@
+
This file has been replaced by sound.aii
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/Sound.r b/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/Sound.r
new file mode 100644
index 0000000..acfb246
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/Sound.r
@@ -0,0 +1 @@
+/*******************************************************************
 *
 * Sound.r
 *
 * Copyright (C) 1988-1992
 * Apple Computer, Inc.
 * All Rights Reserved
 *
 * This file contains the source of the resources needed to build the
 * Sound Control Panel.
 *
 *******************************************************************/

#include "typesiigs.r"

// --- type $8003 defines

#define CTLLST_00000001 $00000001

#define CTLTMP_00000001 $00000001
#define CTLTMP_00000002 $00000002
#define CTLTMP_00000003 $00000003
#define CTLTMP_00000004 $00000004
#define CTLTMP_00000005 $00000005
#define CTLTMP_00000006 $00000006
#define CTLTMP_00000007 $00000007
#define CTLTMP_00000009 $00000009
#define CTLTMP_0000000A $0000000A

// --- type $8006 defines

#define PSTR_00000001 $00000001
#define PSTR_00000007 $00000007
#define PSTR_00000009 $00000009
#define PSTR_0000000A $0000000A
#define PSTR_00000120 $00000120
#define PSTR_00000122 $00000122
#define PSTR_00000123 $00000123
#define PSTR_00000127 $00000127

// --- type $8009 defines

#define MENU_00000001 $00000001
#define MENU_00000003 $00000003
#define MENU_00000004 $00000004

// --- type $800A defines

#define MENUITEM_00000004 $00000004
#define MENUITEM_00000120 $00000120
#define MENUITEM_0000F001 $0000F001
#define MENUITEM_00000122 $00000122
#define MENUITEM_00000123 $00000123
#define MENUITEM_00000127 $00000127

// --- type $800B defines

#define LETXTBOX_00000001 $00000001
#define LETXTBOX_00000002 $00000002

resource rIcon (1) {
	  0x8000,							/* Kind */
	  20,								/* Height */
	  28,								/* Width */

	  $"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	  $"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	  $"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	  $"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	  $"FFFFFFFFFF0FFFFFFFFFDFFFFFFF"
	  $"FFFFFFFFF00FFFFFFFEFFDFFFFFF"
	  $"FFFFFFFF0F0FFFFFAFFEFFDFFFFF"
	  $"FFFFFFF0FF0FF7FFAFFEFFDFFFFF"
	  $"FF00000FFF0FFF7FFAFFEFFDFFFF"
	  $"F0FFFF0FFF0FFF7FFAFFEFFDFFFF"
	  $"F0FFFF0FFF0FFF7FFAFFEFFDFFFF"
	  $"F0FFFF0FFF0FFF7FFAFFEFFDFFFF"
	  $"FF00000FFF0FFF7FFAFFEFFDFFFF"
	  $"FFFFFFF0FF0FF7FFAFFEFFDFFFFF"
	  $"FFFFFFFF0F0FFFFFAFFEFFDFFFFF"
	  $"FFFFFFFFF00FFFFFFFEFFDFFFFFF"
	  $"FFFFFFFFFF0FFFFFFFFFDFFFFFFF"
	  $"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	  $"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	  $"FFFFFFFFFFFFFFFFFFFFFFFFFFFF",

	  $"0000000000000000000000000000"
	  $"0000000000000000000000000000"
	  $"0000000000000000000000000000"
	  $"0000000000000000000000000000"
	  $"0000000000F000000000F0000000"
	  $"000000000FF0000000F00F000000"
	  $"00000000FFF00000F00F00F00000"
	  $"0000000FFFF00F00F00F00F00000"
	  $"00FFFFFFFFF000F00F00F00F0000"
	  $"0FFFFFFFFFF000F00F00F00F0000"
	  $"0FFFFFFFFFF000F00F00F00F0000"
	  $"0FFFFFFFFFF000F00F00F00F0000"
	  $"00FFFFFFFFF000F00F00F00F0000"
	  $"0000000FFFF00F00F00F00F00000"
	  $"00000000FFF00000F00F00F00000"
	  $"000000000FF0000000F00F000000"
	  $"0000000000F000000000F0000000"
	  $"0000000000000000000000000000"
	  $"0000000000000000000000000000"
	  $"0000000000000000000000000000";
};

read rCDEVCode (1,Convert) "Sound.Load";

read rCodeResource(1,Convert) "ReqProc.Load";

resource rCDEVFlags (1) {
	wantHit+wantInit+wantCreate+wantAbout+
	updateSSfromBRAM+wantBoot+wantClose+
	wantRun+wantEvents+wantEdit,				/* CDEV Flags */
	1,											/* Enabled */
	1,											/* Version */
	1,											/* Machine */
	4,											/* System */
	{0,0,142-5-40,300},							/* DataRect */
	"Sound",									/* Name */
	"Dave Lyons",								/* Author */
	"v2.1";									/* VersStr */
};


// --- Control List Definitions

resource rControlList (CTLLST_00000001, preload) {
       {
       CTLTMP_00000001,        // control 1
       CTLTMP_00000002,        // control 2
       CTLTMP_00000003,        // control 3
       CTLTMP_00000004,        // control 4
       CTLTMP_00000005,        // control 5
       CTLTMP_00000009,        // control 9
       CTLTMP_0000000A,        // control 10
       };
};

// --- Control Templates

// Volume scroller
resource rControlTemplate (CTLTMP_00000002, preload) {
       $00000001,              // ID
       {  6, 20, 19,196+20},      // rect
       ScrollControl {{
               $001C,          // flag
               $1002,          // moreFlags
               $00000000,      // refCon
               $0010,          // maxSize
               $0002,          // viewSize
               $0000,          // initialValue
               0               // colorTableRef
       }};
};

// Pitch scroller
resource rControlTemplate (CTLTMP_00000001, preload) {
       $00000002,              // ID
       { 23, 20, 36,196+20},      // rect
       ScrollControl {{
               $001C,          // flag
               $1002,          // moreFlags
               $00000000,      // refCon
               $0010,          // maxSize
               $0002,          // viewSize
               $0000,          // initialValue
               0               // colorTableRef
       }};
};


// Pitch label
resource rControlTemplate (CTLTMP_00000003, preload) {
       $00000003,              // ID
       { 25,206+20,34,253+20},      // rect
       statTextControl {{
               $0004,          // flag
               $1002,          // moreFlags
               $00000000,      // refCon
               LETXTBOX_00000001,     // textRef
               0,              // textSize
               $0000           // just
       }};
};

resource rTextForLETextBox2 (LETXTBOX_00000001, preload) { "Pitch" };


// Volume label
resource rControlTemplate (CTLTMP_00000004, preload) {
       $00000004,              // ID
       {  8,206+20,18,271+20},      // rect
       statTextControl {{
               $0004,          // flag
               $1002,          // moreFlags
               $00000000,      // refCon
               LETXTBOX_00000002,     // textRef
               0,              // textSize
               $0000           // just
       }};
};

resource rTextForLETextBox2 (LETXTBOX_00000002, preload) { "Volume" };


// Check box "Visual Indication of Sounds"
resource rControlTemplate (CTLTMP_00000005, preload) {
       $00000005,              // ID
       { 43, 20, 53,282},      // rect
       checkControl {{
               $0000,          // flag
               $3002,          // moreFlags
               $00000000,      // refCon
               PSTR_00000001,  // titleRef
               $0000,          // initialValue
               0,              // colorTableRef
               {"G","g",$0000,$0000}  // key equivalents
       }};
};

resource rPString (PSTR_00000001, preload) { "Give visual indication of sounds" };


// *******************************************************************
//
// Event pop-up
//
// *******************************************************************
resource rControlTemplate (CTLTMP_00000009, preload) {
       $00000009,              // ID
       { 61, 36, 73, 265},      // rect
       popUpControl {{
               $0042,          // flag
               $1082,          // moreFlags
               $00000000,      // refCon
               $0000,          // titleWidth
               MENU_00000003,  // menuRef
               $FFFE,          // initialValue
               0               // colorTableRef
       }};
};


resource rMenu (MENU_00000003, preload) {
       $0001,                  // menuID
       $A000,                  // menuFlag
       PSTR_00000007, {        // menuTitleRef
               MENUITEM_00000127,
               MENUITEM_00000120  /* divider */
       };
};

resource rPString (PSTR_00000007, preload) { " Event " };

// System Beep
resource rMenuItem (MENUITEM_00000127, preload) {
       $FFFE,                  // itemID
       "","",                  // itemChar, itemAltChar
       NIL,                    // itemCheck
       $8000,                  // itemFlag
       PSTR_00000127           // itemTitleRef
};

resource rPString (PSTR_00000127, preload) { "System Beep" };


/*
  rTaggedStrings(1) lists the event names for the Event pop-up,
  in order of appearance, with their corresponding SysBeep2
  codes.
*/
resource rTaggedStrings(1,preload,locked,fixed) {{
	$0050, "Attention",
	$0033, "Bad disk",
	$0008, "Bad keypress",
	$0009, "Bad input value",
	$0004, "CanÕt click there",
	$0054, "Caution alert",
	$0014, "Disk ejected",
	$0013, "Disk inserted",
	$0030, "Disk request",
	$0043, "Empty trash",
	$0042, "Fill trash",
	$000A, "Input field full",
	$0053, "Note alert",
	$0052, "Stop alert",
	$0031, "System startup",
	$0015, "System shutdown",
	$0005, "Task completed",
	$000C, "Task failed",
	$000B, "Task impossible",
	$0041, "Whoosh closed",
	$0040, "Whoosh open",
	$0100, "You Have Mail"
}};



// *******************************************************************
//
// Sound pop-up
//
// *******************************************************************
resource rControlTemplate (CTLTMP_0000000A, preload) {
       $0000000A,              // ID
       { 77, 36, 89, 265},      // rect
       popUpControl {{
               $0042,          // flag
               $1082,          // moreFlags
               $00000000,      // refCon
               $0000,          // titleWidth
               MENU_00000004,  // menuRef
               $0001,          // initialValue
               0               // colorTableRef
       }};
};

resource rMenu (MENU_00000004, preload) {
       $0001,                  // menuID
       $A000,                  // menuFlag
       PSTR_00000009, {        // menuTitleRef
               MENUITEM_00000123, /* "Not assigned" */
               MENUITEM_00000120, /* ------- */
               MENUITEM_00000122, /* Silence */
               MENUITEM_00000004, /* Standard Beep */
               MENUITEM_0000F001  /* ------- */
       };
};

resource rPString (PSTR_00000009, preload) { " Sound " };

resource rMenuItem (MENUITEM_00000120, preload) {
       $F000,                  // itemID
       "","",                  // itemChar, itemAltChar
       NIL,                    // itemCheck
       $8080,                  // itemFlag
       PSTR_00000120           // itemTitleRef
};

// Item F001--dividing line that I kill if there are no sounds

resource rMenuItem (MENUITEM_0000F001, preload) {
       $F001,                  // itemID
       "","",                  // itemChar, itemAltChar
       NIL,                    // itemCheck
       $8080,                  // itemFlag
       PSTR_00000120           // itemTitleRef
};

resource rPString (PSTR_00000120, preload) { "-" };

// Not Assigned (1)
resource rMenuItem (MENUITEM_00000123, preload) {
       $0001,                  // itemID
       "","",                  // itemChar, itemAltChar
       NIL,                    // itemCheck
       $8000,                  // itemFlag
       PSTR_00000123           // itemTitleRef
};

resource rPString (PSTR_00000123, preload) { "Not assigned" };

// Silence (2)
resource rMenuItem (MENUITEM_00000122, preload) {
       $0002,                  // itemID
       "","",                  // itemChar, itemAltChar
       NIL,                    // itemCheck
       $8000,                  // itemFlag
       PSTR_00000122           // itemTitleRef
};

resource rPString (PSTR_00000122, preload) { "Silence" };

// Standard Beep (3)
resource rMenuItem (MENUITEM_00000004, preload) {
       $0003,                  // itemID
       "","",                  // itemChar, itemAltChar
       NIL,                    // itemCheck
       $8000,                  // itemFlag
       PSTR_0000000A           // itemTitleRef
};

resource rPString (PSTR_0000000A, preload) { "Standard Beep" };


//
// --- obsolete stuff
//

// resource rPString (PSTR_00000003, preload) { " Sound In " };
//   resource rPString (PSTR_00000004, preload) { "Apple Mic. Jack" };
//   resource rPString (PSTR_00000107, preload) { "Sound Exp. Pins" };
//
// Record... button
// resource rControlTemplate (CTLTMP_00000006, preload) {
//        $00000006,              // ID
//        {121-4, 80,135-4,218},      // rect
//        simpleButtonControl {{
//                $0000,          // flag
//                $3002,          // moreFlags
//                $00000000,      // refCon
//                PSTR_00000002,  // titleRef
//                0,              // colorTableRef
//                {"R","r",$0000,$0000}  // key equivalents
//        }};
// };
//
// resource rPString (PSTR_00000002, preload) { "Record Sound..." };
//
//
// Sound Input pop-up
// resource rControlTemplate (CTLTMP_00000007, preload) {
//        $00000007,              // ID
//        { 62-1, 16,  0,  0},      // rect
//        popUpControl {{
//                $0002,          // flag
//                $1082,          // moreFlags
//                $00000000,      // refCon
//                $0000,          // titleWidth
//                MENU_00000001,  // menuRef
//                $0107,          // initialValue
//                0               // colorTableRef
//        }};
// };
//
// resource rMenu (MENU_00000001, preload) {
//        $0001,                  // menuID
//        $A000,                  // menuFlag
//        PSTR_00000003, {        // menuTitleRef
//                MENUITEM_00000001,
//                MENUITEM_00000107
//        };
// };
//
// resource rMenuItem (MENUITEM_00000001, preload) {
//        $0001,                  // itemID
//        "","",                  // itemChar, itemAltChar
//        NIL,                    // itemCheck
//        $8000,                  // itemFlag
//        PSTR_00000004           // itemTitleRef
// };
//
// resource rMenuItem (MENUITEM_00000107, preload) {
//        $0107,                  // itemID
//        "","",                  // itemChar, itemAltChar
//        NIL,                    // itemCheck
//        $8002,                  // itemFlag
//        PSTR_00000107           // itemTitleRef
// };

\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/SoundData.aii b/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/SoundData.aii
new file mode 100644
index 0000000..db2727e
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/SoundData.aii
@@ -0,0 +1 @@
+*******************************************************************
;
; SoundData - data for the Sound CDEV.
;
; Michael V. Stein	03/21/90.
;
; © Copyright Apple Computer, 1990.
;
; 9-Mar-91 DAL--added 'g' and 'G' key equivs to check box
;
; DAL--moved most of this stuff to the .r file (control templates)
;
; 30-Oct-91 DAL
;   Edited the help text to for sound-remapping features.
;
*******************************************************************
	blanks off

	string ASIS

soundAbout	PROC EXPORT
	dc.w 8
	dc.l 1
	dc.w 38,5,138,280
	dc.l $81000000
	dc.w $0000
	dc.w $1000
	dc.l 0
	dc.l TheText
	dc.w EndText-TheText
	string asis
TheText
	dc.b 'The Sound Control Panel lets you change the pitch of the '
	dc.b 'standard beep and the volume of all sounds.',13,13

;	dc.b 'The check box is for use with software applications that can '
;	dc.b 'provide visual cues to substitute for sound.'

	dc.b 'To assign a sound to an event, first choose the event from '
	dc.b 'the Event menu, and then choose a sound from the Sound '
	dc.b 'menu.  Sounds are stored in the Sounds folder inside the '
	dc.b 'System folder.'

EndText

	string pascal
	ENDP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/Sounds/Ahh.r b/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/Sounds/Ahh.r
new file mode 100644
index 0000000..0d6387e
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/Sounds/Ahh.r
@@ -0,0 +1 @@
+data $8014 (0x18024) {
	$"0100 0100 0000 0F00 0000 0341 6868"                 /* ...........Ahh */
};

data $8024 (0xF) {
	$"0000 3D00 E88E 0000 772B 8080 8080 8080"            /* ..=..Ž..w+€€€€€€ */
	$"8080 8080 8080 8080 8080 8080 8080 8080"            /* €€€€€€€€€€€€€€€€ */
	$"8080 8080 8080 8080 8080 8080 8080 8080"            /* €€€€€€€€€€€€€€€€ */
	$"7F7F 7F7F 7F7F 7F7F 7F7F 7F7F 7F7F 7F7F"            /* ................ */
	$"7F7F 7F7F 7F7F 7F7F 7F7F 7F7F 7F7F 7F7F"            /* ................ */
	$"7F7F 7F7F 7F7F 7F7F 7F7F 7F7F 7F7F 7F7F"            /* ................ */
	$"7F7F 7F7F 7F7F 7F7F 7F7F 7F7F 7F7F 7F7F"            /* ................ */
	$"7F7F 7F7F 7F7F 7F7F 7F7F 7F7F 7F7F 7F7F"            /* ................ */
	$"7F7F 7F7F 7F7F 7F7F 7F7F 7F7F 7F7F 7F7F"            /* ................ */
	$"7F7F 7F7F 7F7F 7F7F 7E7E 7E7E 7E7E 7E7F"            /* ........~~~~~~~. */
	$"8081 8181 8080 8080 8080 7F7E 7E7D 7C7B"            /* €���€€€€€€.~~}|{ */
	$"7A79 797A 7C7F 8283 8484 8384 8483 8281"            /* zyyz|.‚ƒ„„ƒ„„ƒ‚� */
	$"8080 7F7E 7C79 7673 7374 787C 8083 8586"            /* €€.~|yvsstx|€ƒ…† */
	$"8787 8685 8380 8080 807F 7B76 716E 6D70"            /* ‡‡†…ƒ€€€€.{vqnmp */
	$"7478 7C80 8387 898B 8B88 8687 888A 8B88"            /* tx|€ƒ‡‰‹‹ˆ†‡ˆŠ‹ˆ */
	$"827C 7774 7476 787C 7E80 8488 8B8D 8C8A"            /* ‚|wttvx|~€„ˆ‹�ŒŠ */
	$"8B8C 8E8F 8C86 7E76 7270 706F 6F70 6F70"            /* ‹ŒŽ�Œ†~vrppoopop */
	$"7273 7474 7478 7E83 8888 847F 7A78 797C"            /* rstttx~ƒˆˆ„.zxy| */
	$"7E7F 7F7D 7A79 7673 6F70 747B 848C 8F8D"            /* ~..}zyvsopt{„Œ�� */
	$"8885 8283 888E 969B 9C9B 9991 8880 7876"            /* ˆ…‚ƒˆŽ–›œ›™‘ˆ€xv */
	$"777B 8080 7B74 6E6A 696C 6E70 7578 7C80"            /* w{€€{tnjilnpux|€ */
	$"7E7C 7B79 7D85 8E95 9590 8A82 7A74 7270"            /* ~|{y}…Ž••�Š‚ztrp */
	$"6D6E 7173 7677 746C 6664 646B 747D 868C"            /* mnqsvwtlfddkt}†Œ */
	$"8F91 9396 9590 8F91 9497 9793 8D87 8382"            /* �‘“–•��‘”——“�‡ƒ‚ */
	$"888E 908C 8174 6961 5D5E 636D 7883 8C8E"            /* ˆŽ�Œ�tia]^cmxƒŒŽ */
	$"8A80 7775 7577 7D82 7F7B 7876 787E 878E"            /* Š€wuuw}‚.{xvx~‡Ž */
	$"8D89 8681 7B77 7371 7376 7D85 8987 827B"            /* �‰†�{wsqsv}…‰‡‚{ */
	$"7775 777A 7A78 777A 7E82 898D 8C8C 8B87"            /* wuwzzxwz~‚‰�ŒŒ‹‡ */
	$"888B 8D8D 8B86 8281 7C77 7472 7476 797E"            /* ˆ‹��‹†‚�|wtrtvy~ */
	$"7D76 7070 6F74 8087 8885 7F76 7477 7D85"            /* }vppot€‡ˆ….vtw}… */
	$"8A8C 8D8B 887F 726D 6F75 7F8A 908E 897F"            /* ŠŒ�‹ˆ.rmou.Š�Ž‰. */
	$"7675 787D 8282 7F7A 746F 6D6C 6E73 7880"            /* vux}‚‚.ztomlnsx€ */
	$"8B92 9492 9090 8F91 9393 8C84 7F78 7473"            /* ‹’”’���‘““Œ„.xts */
	$"706C 6666 6C76 838F 9493 8879 6D64 5D5B"            /* plfflvƒ�”“ˆymd][ */
	$"5D69 7580 8A8F 8C8A 8C92 9AA4 ACA9 A091"            /* ]iu€Š�ŒŠŒ’š¤¬© ‘ */
	$"8275 7172 7274 787A 7B7A 7166 605D 616B"            /* ‚uqrrtxz{zqf`]ak */
	$"757D 7D79 7574 767F 8A90 9497 9494 989B"            /* u}}yutv.Š�”—””˜› */
	$"9B9C 978D 8780 766D 6768 6B6F 7577 736B"            /* ›œ—�‡€vmghkouwsk */
	$"645F 5E65 6B6F 767A 7B85 919C A6AE B0AE"            /* d_^ekovz{…‘œ¦®°® */
	$"AAA1 968A 7D72 6B68 6663 6160 6063 707D"            /* ª¡–Š}rkhfca``cp} */
	$"868D 918B 827C 7979 7C7F 7F7D 7873 6F6E"            /* †�‘‹‚|yy|..}xson */
	$"7078 8292 A3AC B2B1 A69A 9186 8080 807C"            /* px‚’£¬²±¦š‘†€€€| */
	$"746B 6159 5251 5258 646F 7781 8788 8C8E"            /* tkaYRQRXdow�‡ˆŒŽ */
	$"8E90 918F 8A84 837F 7978 756E 6E73 7A82"            /* Ž�‘�Š„ƒ.yxunnsz‚ */
	$"919D 9D99 917E 6F66 5E5C 6166 6B73 797B"            /* ‘��™‘~of^\afksy{ */
	$"7C7C 808A 93A2 B3BB C0C2 B6A3 947E 6960"            /* ||€Š“¢³»À¶£”~i` */
	$"5D5C 6267 6560 5C54 5153 5967 7681 8785"            /* ]\bge`\TQSYgv�‡… */
	$"7F7A 7574 7E8B 959E A8A6 9E96 8B81 7A75"            /* .zut~‹•ž¨¦ž–‹�zu */
	$"7A81 8892 9B9A 9893 897C 6C5F 5B5A 585C"            /* z�ˆ’›š˜“‰|l_[ZX\ */
	$"6464 6464 6569 7079 8D9F AFBC BEB7 A898"            /* ddddeipy�Ÿ¯¼¾·¨˜ */
	$"897A 7474 797D 786F 685E 5151 6074 8797"            /* ‰ztty}xoh^QQ`t‡— */
	$"A19D 8D7A 6B5F 5A63 7280 8B90 9291 8F8D"            /* ¡��zk_Zcr€‹�’‘�� */
	$"96A3 A9AB AEAE A595 897E 7569 5E53 443A"            /* –£©«®®¥•‰~ui^SD: */
	$"3738 3A40 4A5C 6D7C 8B9A A6AD B1B2 B1A9"            /* 78:@J\m|‹š¦­±²±© */
	$"9C91 8E8B 898B 9294 8B7F 7876 7475 7D7F"            /* œ‘Ž‹‰‹’”‹.xvtu}. */
	$"7771 6A5D 514E 5563 6E7A 868A 837A 7A82"            /* wqj]QNUcnz†Šƒzz‚ */
	$"8A9A B1C2 C8BF AF99 806B 6468 6B6C 7473"            /* Šš±ÂÈ¿¯™€kdhklts */
	$"634F 3D34 323D 5670 7F89 9193 8F8A 8F9D"            /* cO=42=Vp.‰‘“�Š�� */
	$"A9B2 B8BC B6A7 9686 786A 6772 7F85 8E95"            /* ©²¸¼¶§–†xjgr.…Ž• */
	$"9692 867A 6E62 5858 5C56 4F4F 4F4E 515A"            /* –’†znbXX\VOOONQZ */
	$"687B 8CA1 B7BF BFC1 BFB5 A796 8780 7971"            /* h{Œ¡·¿¿Á¿µ§–‡€yq */
	$"6C63 5249 4B4D 5460 7386 9395 9694 897C"            /* lcRIKMT`s†“•–”‰| */
	$"7773 6F72 7B82 898A 93A1 A7AE B4B7 B4AB"            /* wsor{‚‰Š“¡§®´·´« */
	$"A197 8875 6869 6454 4D45 3726 1F27 3547"            /* ¡—ˆuhidTME7&.'5G */
	$"627A 8E9B A0A8 AEB2 BEC9 C9BE B1A6 937A"            /* bzŽ› ¨®²¾Éɾ±¦“z */
	$"6663 6D76 8089 887D 6F62 5A55 5863 7079"            /* fcmv€‰ˆ}obZUXcpy */
	$"7E7F 7B75 7272 7476 7D88 97A0 A1A9 B4BD"            /* ~.{urrtv}ˆ— ¡©´½ */
	$"BAB0 A18A 7362 5D58 5350 4D44 3C3F 4653"            /* º°¡Šsb]XSPMD<?FS */
	$"6276 8D95 9490 8F8E 8E93 A1B5 C1C2 B6A2"            /* bv�•”��ŽŽ“¡µÁ¶¢ */
	$"886E 605F 6A7B 8D9D 9E95 8C88 817A 7876"            /* ˆn`_j{��ž•Œˆ�zxv */
	$"7065 594C 433A 3B4E 667F 8D8C 8882 818D"            /* peYLC:;Nf.�Œˆ‚�� */
	$"9EAD B9BE BAAD 9C91 8376 6F69 6561 5951"            /* ž­¹¾º­œ‘ƒvoieaYQ */
	$"555B 616E 7E8C 9596 8979 7273 7780 8789"            /* U[an~Œ•–‰yrsw€‡‰ */
	$"8B8B 8C92 9EA9 ADAB A7A1 988E 8883 8083"            /* ‹‹Œ’ž©­«§¡˜Žˆƒ€ƒ */
	$"8278 674F 2F0B 0101 1539 5E7E 919D A4A7"            /* ‚xgO/....9^~‘�¤§ */
	$"ABB9 CBD4 D8D3 C4AA 8B70 5F5A 6172 818B"            /* «¹ËÔØÓĪ‹p_Zar�‹ */
	$"8B7F 6D5E 5B60 676D 7274 7776 6E67 6766"            /* ‹.m^[`gmrtwvnggf */
	$"6B71 7786 9AA9 B5BD C2C4 BAAD 9B83 6D5B"            /* kqw†š©µ½Âĺ­›ƒm[ */
	$"5050 555A 5241 3435 404D 627E 929B 9E9A"            /* PPUZRA45@Mb~’›žš */
	$"948F 8E92 9DAE B7B9 AE97 8276 7071 788A"            /* ”�Ž’�®·¹®—‚vpqxŠ */
	$"9997 8E8A 847C 7571 7070 6B62 5B5A 5A59"            /* ™—ŽŠ„|uqppkb[ZZY */
	$"5A5D 6570 7B81 7B74 7F89 8D9C B1B6 ADA2"            /* Z]ep{�{t.‰�œ±¶­¢ */
	$"9C98 9086 8481 786F 6451 494E 5664 7381"            /* œ˜�†„�xodQINVds� */
	$"8E95 928B 8A88 8280 7B7E 847E 7986 939E"            /* Ž•’‹Šˆ‚€{~„~y†“ž */
	$"ACB1 AFAE AEA9 A297 8D86 745D 4F3E 2B1B"            /* ¬±¯®®©¢—�†t]O>+. */
	$"0F13 2434 465E 798A 949F AABB CCDB E2DB"            /* ..$4F^yŠ”Ÿª»Ì... */
	$"CFBA 9B80 706A 6E71 7277 8383 7469 6260"            /* Ϻ›€pjnqrwƒƒtib` */
	$"6060 6265 686E 7371 7178 736F 7985 97AB"            /* ``behnsqqxsoy…—« */
	$"B7BE C5C5 B8A5 9A92 8676 675A 4A38 2F25"            /* ·¾ÅŸ¥š’†vgZJ8/% */
	$"1F27 3444 6184 A4B2 AEA6 9C8E 8385 93A4"            /* .'4Da„¤²®¦œŽƒ…“¤ */
	$"BBC5 BCB1 A08C 796C 6E7A 8284 8484 7C78"            /* »Å¼± Œylnz‚„„„|x */
	$"7569 666E 6E6C 7172 6D62 5B54 4F53 5D70"            /* uifnnlqrmb[TOS]p */
	$"8497 A4A1 9A94 8D89 8A8B 96A7 B1AC 9E8A"            /* „—¤¡š”�‰Š‹–§±¬žŠ */
	$"7762 4F44 434C 596E 8390 9288 8078 7278"            /* wbODCLYnƒ�’ˆ€xrx */
	$"878E 8986 837A 7479 8A9C B0C3 CBCC C0AC"            /* ‡Ž‰†ƒztyŠœ°ÃËÌÀ¬ */
	$"947E 746C 6462 5D50 4234 271C 1D26 2A39"            /* ”~tldb]PB4'..&*9 */
	$"5168 809A B1C5 D5DE E0DF DDD6 C4AC 9587"            /* Qh€š±ÅÕ....ÖĬ•‡ */
	$"7A70 6A64 6261 5E5C 5C5A 5652 5153 5864"            /* zpjdba^\\ZVRQSXd */
	$"717D 8893 9790 8C8C 8B93 A3B1 C1CC C6B0"            /* q}ˆ“—�ŒŒ‹“£±ÁÌÆ° */
	$"9A8D 7E6D 6662 5848 3622 1412 1D2E 4A6E"            /* š�~mfbXH6"....Jn */
	$"90A7 B5B5 ACA4 A0A4 ABB5 BEC4 C1B5 A189"            /* �§µµ¬¤ ¤«µ¾ÄÁµ¡‰ */
	$"6F60 5F6A 747B 807F 7B73 6B6D 7173 7472"            /* o`_jt{€.{skmqstr */
	$"6D69 6765 6767 6465 6970 7A87 949A 9995"            /* migeggdeipz‡”š™• */
	$"9189 8584 8A92 9AA4 A29B 8F7A 665A 5252"            /* ‘‰…„Š’š¤¢›�zfZRR */
	$"5968 7478 7977 6F68 6268 7587 9AA3 A5A2"            /* Yhtxywohbhu‡š£¥¢ */
	$"968C 8C92 9FB0 C1C4 B9A8 917B 6C66 6866"            /* –ŒŒ’Ÿ°ÁŨ‘{lfhf */
	$"6460 5545 311F 1315 2437 4A62 788B 9BAB"            /* d`UE1...$7Jbx‹›« */
	$"BACB DCE8 EFEF E8D8 C0A5 8F7E 6B57 473C"            /* ºË.....ØÀ¥�~kWG< */
	$"312D 2F37 424C 5767 737E 8D98 9DA5 AEAB"            /* 1-/7BLWgs~�˜�¥®« */
	$"A397 8983 8991 9FB2 BEBF B7A4 8D74 5949"            /* £—‰ƒ‰‘Ÿ²¾¿·¤�tYI */
	$"423A 3838 2C25 2327 344A 6C93 B1C7 CEC7"            /* B:88,%#'4Jl“±ÇÎÇ */
	$"BCB2 AEAC B0B8 B4AC A190 7F6E 605F 626D"            /* ¼²®¬°¸´¬¡�.n`_bm */
	$"777A 7973 6C66 6772 7778 7F7C 767A 7C79"            /* wzyslfgrwx.|vz|y */
	$"7777 7B7A 7876 7677 706E 747C 8891 979D"            /* ww{zxvvwpnt|ˆ‘—� */
	$"9FA0 9FA1 9C91 887B 675A 5656 5554 5B60"            /* Ÿ Ÿ¡œ‘ˆ{gZVVUT[` */
	$"646B 7179 868D 93A1 ABAB A8A4 A2A4 A3A6"            /* dkqy†�“¡««¨¤¢¤£¦ */
	$"ACA9 9E95 8570 6564 6462 6364 615C 554B"            /* ¬©ž•…peddbcda\UK */
	$"4135 2928 3343 5566 7C90 A4BB D5EC F8FE"            /* A5)(3CUf|�¤»Õ... */
	$"FFF8 E1C3 A37E 5738 251D 1C23 313C 4956"            /* ...ã~W8%..#1<IV */
	$"5D6B 7882 94A9 B3B8 B6AE A092 8C8A 8E94"            /* ]kx‚”©³¸¶® ’ŒŠŽ” */
	$"A0AD AA9F 9486 7871 675B 5449 3E35 2B25"            /*  ­ªŸ”†xqg[TI>5+% */
	$"2C3B 4A5F 778E A4B2 B9BE BBB4 ACA4 9E99"            /* ,;J_wŽ¤²¹¾»´¬¤ž™ */
	$"9B9B 9895 9591 8E86 796D 5D51 4F56 616A"            /* ››˜••‘Ž†ym]QOVaj */
	$"6F73 7471 7384 949F A6A3 9988 7464 5B57"            /* ostqs„”Ÿ¦£™ˆtd[W */
	$"5E6E 7F8C 8B87 7F72 6F76 8593 999D 9E98"            /* ^n.Œ‹‡.rov…“™�ž˜ */
	$"8F85 7C74 6860 5C5B 5C5A 5859 5A64 7289"            /* �…|th`\[\ZXYZdr‰ */
	$"A2B0 B8BC B6B0 ACAE ABA1 9584 7772 6E72"            /* ¢°¸¼¶°¬®«¡•„wrnr */
	$"7977 726C 6663 5F5A 585B 6165 655D 4A3D"            /* ywrlfc_ZX[aee]J= */
	$"3C48 6180 9CB3 C5CD D3D8 D9D9 D4BC 9F87"            /* <Ha€œ³ÅÍÓØ..Ô¼Ÿ‡ */
	$"6D56 4636 2721 283A 546D 808C 908A 888C"            /* mVF6'!(:Tm€Œ�ŠˆŒ */
	$"9297 9997 9494 9AA5 AFB1 AEAA A399 8D7B"            /* ’—™—””š¥¯±®ª£™�{ */
	$"685D 544F 514C 423A 373C 475A 7083 8D8C"            /* h]TOQLB:7<GZpƒ�Œ */
	$"8985 8B97 A2AE B1AA A29B 9693 9090 8E8B"            /* ‰…‹—¢®±ª¢›–“��Ž‹ */
	$"8888 8882 7768 5953 5964 7077 7674 7379"            /* ˆˆˆ‚whYSYdpwvtsy */
	$"7F86 939B 9C99 928B 8178 7778 7D80 7C7B"            /* .†“›œ™’‹�xwx}€|{ */
	$"7970 6A6A 6C72 787A 7773 7477 7E86 9192"            /* ypjjlrxzwstw~†‘’ */
	$"887B 7068 6D74 7677 797E 8084 8F99 9EA3"            /* ˆ{phmtvwy~€„�™ž£ */
	$"AAB0 B1AF AB95 7A69 5E5D 6270 7F87 8073"            /* ª°±¯«•zi^]bp.‡€s */
	$"665D 5559 686F 7374 6F6B 625A 5F6A 7B95"            /* f]UYhostokbZ_j{• */
	$"A9B9 BBAD A29F 9891 9091 887A 7067 625F"            /* ©¹»­¢Ÿ˜‘�‘ˆzpgb_ */
	$"5D5D 5A60 6973 7C82 8486 8786 868C 9295"            /* ]]Z`is|‚„†‡††Œ’• */
	$"9296 9BA0 AAB4 B8B2 A28E 7B6B 625C 544A"            /* ’–› ª´¸²¢Ž{kb\TJ */
	$"4242 4241 464E 5864 7284 959B 9997 9A9C"            /* BBBAFNXdr„•›™—šœ */
	$"9EA4 A5A3 A097 8E8C 8989 897E 716D 6B69"            /* ž¤¥£ —ŽŒ‰‰‰~qmki */
	$"686B 6E72 7679 7E7F 7C76 7170 7A8A 99A4"            /* hknrvy~.|vqpzŠ™¤ */
	$"A9A5 9A8F 8784 868B 8A88 877C 6A58 463C"            /* ©¥š�‡„†‹Šˆ‡|jXF< */
	$"3F4C 5D70 7D7F 7C78 767B 8593 A3A9 ACAD"            /* ?L]p}.|xv{…“£©¬­ */
	$"A18F 8071 6360 6877 858C 8E88 817D 7E84"            /* ¡�€qc`hw…ŒŽˆ�}~„ */
	$"909D A09D 9A8D 7F74 6D6C 6E73 7A7F 7E78"            /* �� �š�.tmlnsz.~x */
	$"6F65 6061 646A 7177 7C81 8585 8382 7F7E"            /* oe`adjqw|�……ƒ‚.~ */
	$"8084 8D91 9291 8B84 7F7A 797C 8084 898A"            /* €„�‘’‘‹„.zy|€„‰Š */
	$"8172 6356 5459 6170 8695 9FA3 9D97 9AA0"            /* �rcVTYap†•Ÿ£�—š  */
	$"A7B1 B9BC B9A7 8C6E 5241 3C41 4850 5450"            /* §±¹¼¹§ŒnRA<AHPTP */
	$"4946 454B 5C74 8EA4 B2B7 B6AD 9D92 8E8F"            /* IFEK\tŽ¤²·¶­�’Ž� */
	$"9498 9389 7E74 706B 6A70 7273 797C 7B79"            /* ”˜“‰~tpkjprsy|{y */
	$"7977 7173 7A7F 8591 9697 9997 9592 9193"            /* ywqsz.…‘–—™—•’‘“ */
	$"969A 9B98 8F81 6A4F 3D37 353A 4A55 5961"            /* –š›˜��jO=75:JUYa */
	$"686E 7881 91A9 BDC9 C9BE AA8F 7765 6068"            /* hnx�‘©½Éɾª�we`h */
	$"7480 847B 6E61 5657 5E6C 859E AAB3 B5AF"            /* t€„{naVW^l…žª³µ¯ */
	$"9F90 8883 8389 8D8C 8171 6259 5859 606A"            /* Ÿ�ˆƒƒ‰�Œ�qbYXY`j */
	$"7074 7A7F 7C76 6F6B 6663 6A77 848A 8E93"            /* ptz.|vokfcjw„ŠŽ“ */
	$"938E 8B89 8687 8F9C A3A0 9B8E 745A 4A44"            /* “Ž‹‰†‡�œ£ ›ŽtZJD */
	$"4B5C 6B77 8086 888F 9BA6 AEB5 BCBB B6B1"            /* K\kw€†ˆ�›¦®µ¼»¶± */
	$"A389 7466 5B56 555C 5C53 4C4A 494E 5B67"            /* £‰tf[VU\\SLJIN[g */
	$"6E79 858E 979F 9E9A 9691 8D8C 908F 847A"            /* ny…Ž—Ÿžš–‘�Œ��„z */
	$"7874 727A 827F 7775 7778 7D85 8484 8788"            /* xtrz‚.wuwx}…„„‡ˆ */
	$"8B91 9698 928C 8B8A 8D92 948F 8987 837E"            /* ‹‘–˜’Œ‹Š�’”�‰‡ƒ~ */
	$"7970 6355 4C47 4C58 6062 6264 6974 8390"            /* ypcULGLX`bbditƒ� */
	$"9B9F 9EA1 A3A1 9B95 8D81 7C7C 7974 6E63"            /* ›Ÿž¡£¡›•��||ytnc */
	$"5856 5D69 7681 8690 9BA4 B0B7 B7B0 A499"            /* XV]iv�†�›¤°··°¤™ */
	$"948B 8582 786C 6662 5F5C 5F5D 585C 6166"            /* ”‹…‚xlfb_\_]X\af */
	$"737C 7974 7270 6A6C 777E 878D 9296 9693"            /* s|ytrpjlw~‡�’––“ */
	$"9290 8E91 9696 9087 7769 6362 6776 8184"            /* ’�Ž‘––�‡wicbgv�„ */
	$"8784 7F82 868C 9498 9A9D 9D98 918D 8882"            /* ‡„.‚†Œ”˜š��˜‘�ˆ‚ */
	$"8486 8077 6B5B 4C46 4850 5A65 6C6D 6A6B"            /* „†€wk[LFHPZelmjk */
	$"7077 8391 9DA6 ABA5 9585 7A6D 696F 7574"            /* pwƒ‘�¦«¥•…zmiout */
	$"7678 7678 8091 A0AA AFB1 AEA4 988E 8A85"            /* vxvx€‘ ª¯±®¤˜ŽŠ… */
	$"7D7A 766A 605E 5C62 6E7A 868A 8681 7971"            /* }zvj`^\bnz†Š†�yq */
	$"7277 7C7F 796C 5F54 4848 586C 7F96 A5AC"            /* rw|.yl_THHXl.д */
	$"ABA3 978B 8888 898B 8471 5D50 4C51 617A"            /* «£—‹ˆˆ‰‹„q]PLQaz */
	$"8F9C A5AC AEA9 AAAC ACAD AFAB A294 8168"            /* �œ¥¬®©ª¬¬­¯«¢”�h */
	$"534A 4952 5C61 5E56 5256 5F69 7177 7A7A"            /* SJIR\a^VRV_iqwzz */
	$"7C81 8382 7E79 777B 8386 8583 817E 8491"            /* |�ƒ‚~yw{ƒ†…ƒ�~„‘ */
	$"9C9D 958E 8686 8F99 9F9B 8B78 665A 575F"            /* œ�•Ž††�™Ÿ›‹xfZW_ */
	$"717D 8591 9CA4 A397 9290 9099 A7AB 9D7E"            /* q}…‘œ¤£—’��™§«�~ */
	$"5D42 2F2E 3D4E 585A 5C5E 6067 747F 8891"            /* ]B/.=NXZ\^`gt.ˆ‘ */
	$"9CA6 A79D 8772 6660 6778 8282 7D77 7C90"            /* œ¦§�‡rf`gx‚‚}w|� */
	$"A8C4 D6D7 CAB9 ADA4 998C 7A67 5548 4544"            /* ¨ÄÖ×ʹ­¤™ŒzgUHED */
	$"4040 434E 6683 9DAD B0A4 958B 8B89 8073"            /* @@CNfƒ�­°¤•‹‹‰€s */
	$"604D 454C 5B66 6C6C 6C76 8599 ACB0 A695"            /* `MEL[flllv…™¬°¦• */
	$"857E 7973 6A5E 5558 637A 93A3 A7A7 A7AA"            /* …~ysj^UXcz“£§§§ª */
	$"B8C7 CFCC C5B5 9F8B 7C69 5340 3A40 4A5A"            /* ¸ÇÏÌŵŸ‹|iS@:@JZ */
	$"6256 473A 3848 6784 9BA3 9685 8081 7E7C"            /* bVG:8Hg„›£–…€�~| */
	$"7B78 787A 8189 877E 7778 8294 A8B6 B5A8"            /* {xxz�‰‡~wx‚”¨¶µ¨ */
	$"9992 8F86 827B 6D5E 5C68 757E 8485 8386"            /* ™’�†‚{m^\hu~„…ƒ† */
	$"8E9C AEB7 AFA2 968C 8174 6351 4341 4950"            /* Žœ®·¯¢–Œ�tcQCAIP */
	$"5657 4E43 4555 6E8A 9DA0 9A8E 7E7A 7D7F"            /* VWNCEUnŠ� šŽ~z}. */
	$"8381 7D7F 7F80 7F80 8797 AFC7 DADE D3BE"            /* ƒ�}..€.€‡—¯Ç..Ó¾ */
	$"A494 918D 847A 654A 372C 2E39 4654 6577"            /* ¤”‘�„zeJ7,.9FTew */
	$"8797 A4A5 9E94 8E89 837D 7563 524A 484E"            /* ‡—¤¥ž”Ž‰ƒ}ucRJHN */
	$"5A65 6D78 828E 9DA7 A7A0 8E83 7D76 7373"            /* Zemx‚Ž�§§ Žƒ}vss */
	$"6E6A 6F78 8693 9A9F A8B3 C0D1 D9D7 CDB2"            /* njox†“šŸ¨³ÀÑ.×Ͳ */
	$"9277 5F53 5250 4D4A 4236 312E 3548 607C"            /* ’w_SRPMJB61.5H`| */
	$"95A3 A39B 8773 6C70 7882 8B86 7366 6264"            /* •££›‡slpx‚‹†sfbd */
	$"7082 96A7 B1B6 B0A5 9B8F 8586 8985 7E75"            /* p‚–§±¶°¥›�…†‰…~u */
	$"6C65 6572 808D 999E 9C97 9495 9AA1 A19C"            /* leer€�™žœ—”•š¡¡œ */
	$"8C74 5F50 4744 4549 4C4E 4F4D 4E56 6379"            /* Œt_PGDEILNOMNVcy */
	$"93A3 A9A4 9480 7473 7D87 8F90 8A82 7C78"            /* “£©¤”€ts}‡��Š‚|x */
	$"7984 8F9D AFB9 B9B4 AAA0 9B98 9998 8F7C"            /* y„��¯¹¹´ª ›˜™˜�| */
	$"6853 403B 404B 5F71 7C89 8F8B 8A89 8885"            /* hS@;@K_q|‰�‹Š‰ˆ… */
	$"7F75 6B60 544F 4B4F 5C69 767D 7E82 8588"            /* .uk`TOKO\iv}~‚…ˆ */
	$"94A6 AEB0 ABA0 9080 746D 6A6B 6E75 7A7E"            /* ”¦®°« �€tmjknuz~ */
	$"8690 9CB0 CADC DFD2 BA9B 7D65 5A55 595C"            /* †�œ°Ê..Òº›}eZUY\ */
	$"5753 4B40 393E 4A58 6671 7976 7579 7B7E"            /* WSK@9>JXfqyvuy{~ */
	$"878F 9491 877C 7067 6A73 8090 9CA9 B2B1"            /* ‡�”‘‡|pgjs€�œ©²± */
	$"B0A8 9D90 847B 726A 686B 757E 8896 9B94"            /* °¨��„{rjhku~ˆ–›” */
	$"8E8C 8B8D 98A1 A29F 9484 7563 5957 5755"            /* ŽŒ‹�˜¡¢Ÿ”„ucYWWU */
	$"4E42 3427 222B 435E 7897 AFB1 AA9E 8E81"            /* NB4'"+C^x—¯±ªžŽ� */
	$"7C87 959E A3A2 9C91 8176 7275 808E 9AA2"            /* |‡•ž£¢œ‘�vru€Žš¢ */
	$"A3A1 9E9C 9A9C 9D93 867C 7062 5550 515C"            /* £¡žœšœ�“†|pbUPQ\ */
	$"6A77 899A 9F9B 9284 715F 4D41 3D43 4D57"            /* jw‰šŸ›’„q_MA=CMW */
	$"6065 6868 6569 768A 97A4 B4BA B8B1 ABA3"            /* `ehheivŠ—¤´º¸±«£ */
	$"9992 8B85 827D 7468 5F60 6C81 9DB3 C0C5"            /* ™’‹…‚}th_`l��³ÀÅ */
	$"B8A1 8C7D 726B 7485 8883 7867 5445 3A38"            /* ¸¡Œ}rkt…ˆƒxgTE:8 */
	$"4355 6571 7574 6E6B 7075 7781 8885 817E"            /* CUequtnkpuw�ˆ…�~ */
	$"7974 7177 889F B5C5 C9C1 AC93 7E75 7070"            /* ytqwˆŸµÅÉÁ¬“~upp */
	$"7B87 8E94 948B 7E70 6A6A 6D77 8496 A2A3"            /* {‡Ž””‹~pjjmw„–¢£ */
	$"A19A 9188 807A 7266 5645 342C 292D 3645"            /* ¡š‘ˆ€zrfVE4,)-6E */
	$"5E75 8692 9698 928A 8C96 A1AD B6B8 B0A3"            /* ^u†’–˜’ŠŒ–¡­¶¸°£ */
	$"927F 7068 6973 7D8A 999F 9D93 9094 9393"            /* ’.phis}Š™Ÿ�“�”““ */
	$"938E 7F6D 6260 636B 7784 8F96 9894 856E"            /* “Ž.mb`ckw„�–˜”…n */
	$"574A 4648 5467 6F68 5F55 4842 4A5A 6C7E"            /* WJFHTgoh_UHBJZl~ */
	$"8F9E ABB4 B9BE BEBD BDBD B8A4 8B74 635A"            /* �ž«´¹¾¾½½½¸¤‹tcZ */
	$"5760 6D73 7E8D 9495 918B 837E 838E 989D"            /* W`ms~�”•‘‹ƒ~ƒŽ˜� */
	$"9A92 8677 6B5F 5855 4F4D 5359 5D64 696B"            /* š’†wk_XUOMSY]dik */
	$"6A6A 6B6C 6D71 7471 6F76 7D86 97A4 AEB7"            /* jjklmqtqov}†—¤®· */
	$"B8B3 AB9E 9188 878D 969F 9B90 8274 6D68"            /* ¸³«ž‘ˆ‡�–Ÿ›�‚tmh */
	$"6771 7A7F 8384 8380 7E80 8690 9697 907E"            /* gqz.ƒ„ƒ€~€†�–—�~ */
	$"6753 4239 3B48 5560 686B 6765 6464 6E7D"            /* gSB9;HU`hkgeddn} */
	$"8FA2 B4C1 B9AA 9A8B 8180 868D 9295 9289"            /* �¢´Á¹ªš‹�€†�’•’‰ */
	$"847F 7777 7C80 848C 9494 918C 857D 7C7F"            /* „.ww|€„Œ””‘Œ…}|. */
	$"8086 8F90 8E87 7765 5650 5055 646F 6E6A"            /* €†��Ž‡weVPPUdonj */
	$"6152 4441 4752 667C 8A96 A3A7 A4A3 A7AD"            /* aRDAGRf|Š–£§¤£§­ */
	$"B4BA BFB9 AFA3 8C7A 736A 6060 6263 6568"            /* ´º¿¹¯£Œzsj``bceh */
	$"6F76 7E8C 959B 9C9A 938A 8380 8082 7F79"            /* ov~Œ•›œš“Šƒ€€‚.y */
	$"746E 6869 6E77 7974 6F65 523F 383A 4457"            /* tnhinwytoeR?8:DW */
	$"6B7D 898F 9598 99A1 A9B3 BFBE BAB7 ADA2"            /* k}‰�•˜™¡©³¿¾º·­¢ */
	$"968C 8174 7274 7374 7778 7876 7678 7877"            /* –Œ�trtstwxxvvxxw */
	$"767A 7C7A 7A78 746D 6564 6569 7683 8786"            /* vz|zzxtmedeivƒ‡† */
	$"8077 685A 585E 6C7B 8996 988E 8279 7372"            /* €whZX^l{‰–˜Ž‚ysr */
	$"7F93 9FA5 A8A1 948A 8884 7F82 8C95 958C"            /* .“Ÿ¥¨¡”Šˆ„.‚Œ••Œ */
	$"8071 6B6E 7486 979D A2A3 988C 8175 6B64"            /* €qknt†—�¢£˜Œ�ukd */
	$"6563 5C58 534F 4D4B 4E57 5F65 696D 757C"            /* ec\XSOMKNW_eimu| */
	$"808B 9599 9DA1 A4A6 ADB3 B5B0 ACA6 9C8F"            /* €‹•™�¡¤¦­³µ°¬¦œ� */
	$"8376 6E66 6667 6769 645F 646A 747F 878D"            /* ƒvnffggid_djt.‡� */
	$"9294 9492 8B89 8985 8789 8A89 8681 7C75"            /* ’””’‹‰‰…‡‰Š‰†�|u */
	$"6F68 6057 4A3C 3230 3642 5062 7486 9AA7"            /* oh`WJ<206BPbt†š§ */
	$"B2BA C3CD CFCB C3B5 A38C 7C78 7C83 8584"            /* ²ºÃÍÏËõ£Œ|x|ƒ…„ */
	$"7F78 726E 6B6B 6B6B 7171 6D6A 6660 5F65"            /* .xrnkkkkqqmjf`_e */
	$"6B71 7B82 888B 8385 8D8E 9192 8E89 837E"            /* kq{‚ˆ‹ƒ…�Ž‘’Ž‰ƒ~ */
	$"766E 675F 5F60 626D 7070 767D 8897 A0A5"            /* vng__`bmppv}ˆ— ¥ */
	$"A5A0 9E9D 9B99 968D 7F76 706C 737A 818B"            /* ¥ ž�›™–�.vplsz�‹ */
	$"9397 9C9E 9B94 8A7F 7365 5A51 453C 3837"            /* “—œž›”Š.seZQE<87 */
	$"4156 6777 8486 868A 8D90 8E8A 8C93 9A9F"            /* AVgw„††Š��ŽŠŒ“šŸ */
	$"A09B 9694 969B A4A1 978D 7C6B 676B 6B69"            /*  ›–”–›¤¡—�|kgkki */
	$"696C 6D6D 7379 7976 7271 7A87 919A 9E9B"            /* ilmmsyyvrqz‡‘šž› */
	$"9695 9A9C 9A9D 978B 7F74 6552 4034 2E2F"            /* –•šœš�—‹.teR@4./ */
	$"3540 5158 5965 7A8F A2B4 BBBA BCBE BDB8"            /* 5@QXYez�¢´»º¼¾½¸ */
	$"AFA6 9A8F 9095 9594 9082 736A 655E 5D5E"            /* ¯¦š��••”�‚sje^]^ */
	$"5B57 585F 656B 6F70 7277 7D82 898E 8D88"            /* [WX_ekoprw}‚‰Ž�ˆ */
	$"8888 8B94 9EA0 A09E 988A 7A68 4F3F 393D"            /* ˆˆ‹”ž  ž˜ŠzhO?9= */
	$"4E60 686C 6F74 8092 A5B6 BCBD B9AC 9C8D"            /* N`hlot€’¥¶¼½¹¬œ� */
	$"8278 777E 858A 8B89 827A 787E 8995 9B97"            /* ‚xw~…Š‹‰‚zx~‰•›— */
	$"8773 6153 4841 3C3F 454F 5F6C 757B 7E81"            /* ‡saSHA<?EO_lu{~� */
	$"8992 9CA5 A6A3 9D97 999B 9996 928B 8B89"            /* ‰’œ¥¦£�—™›™–’‹‹‰ */
	$"8279 6E64 5C5B 626D 7B89 9393 908A 7A65"            /* ‚ynd\[bm{‰““�Šze */
	$"5856 5866 819A AAB3 AEA2 9D9F A4A9 A79D"            /* XVXf�šª³®¢�Ÿ¤©§� */
	$"8B71 5741 2E27 2B35 485D 6865 5D56 5561"            /* ‹qWA.'+5H]he]VUa */
	$"7A95 B2C9 D1CD C1B3 ABA2 9998 9A9B 9B95"            /* z•²ÉÑÍÁ³«¢™˜š››• */
	$"8B80 766C 6868 6862 564B 4242 4E60 7081"            /* ‹€vlhhhbVKBBN`p� */
	$"888A 8B89 8A8A 8683 8185 9099 A1A9 ADB0"            /* ˆŠ‹‰ŠŠ†ƒ�…�™¡©­° */
	$"AD9D 8B75 593E 2E2B 333E 4F5F 6A74 7F89"            /* ­�‹uY>.+3>O_jt.‰ */
	$"98A4 ACB3 AD9F 9896 9596 9AA5 ABAB A795"            /* ˜¤¬³­Ÿ˜–•–š¥««§• */
	$"7A60 4B4A 5B73 8B9B 9E93 7E69 594B 484E"            /* z`KJ[s‹›ž“~iYKHN */
	$"5255 5758 5859 5F72 8CA4 BBC5 C1B6 A390"            /* RUWXXY_rŒ¤»ÅÁ¶£� */
	$"837F 8894 9EA4 9E92 816A 584D 484C 586D"            /* ƒ.ˆ”ž¤ž’�jXMHLXm */
	$"818A 9092 8C86 817B 7267 6364 7180 8E9D"            /* �Š�’Œ†�{rgcdq€Ž� */
	$"ABAF B0B6 B9B2 A79C 8A73 5945 3C38 3C49"            /* «¯°¶¹²§œŠsYE<8<I */
	$"5762 6661 584A 3E3D 4C6A 90B2 CCDD DDD1"            /* WbfaXJ>=Lj�²Ì..Ñ */
	$"C9C1 B5AB A79E 958D 8174 6A60 5A5F 6669"            /* ÉÁµ«§ž•��tj`Z_fi */
	$"6861 5447 3E3F 4C61 7A8E 9EA4 9F98 918A"            /* haTG>?LazŽž¤Ÿ˜‘Š */
	$"8683 8690 9AA4 ADB1 ADA0 9284 7463 5341"            /* †ƒ†�š¤­±­ ’„tcSA */
	$"322B 2C37 4A5C 6B7E 919D A4AA ABA6 A19E"            /* 2+,7J\k~‘�¤ª«¦¡ž */
	$"A0A7 AEB3 B1A9 9B87 766C 625D 5F62 6772"            /*  §®³±©›‡vlb]_bgr */
	$"818B 8B83 786D 655F 5A52 483E 3A46 5A6E"            /* �‹‹ƒxme_ZRH>:FZn */
	$"879E AEBA C1BF B7A9 9689 8584 8891 958E"            /* ‡ž®ºÁ¿·©–‰…„ˆ‘•Ž */
	$"877E 7369 6058 5B5E 5F69 7882 8584 7D75"            /* ‡~si`X[^_ix‚…„}u */
	$"7171 767D 8489 8E91 949B A1A4 A9AF B3B1"            /* qqv}„‰Ž‘”›¡¤©¯³± */
	$"A38D 7156 433C 404C 5B63 625C 5345 3B38"            /* £�qVC<@L[cb\SE;8 */
	$"4258 748C 9EAF C0CA D1D9 E0DE D4C6 B195"            /* BXtŒž¯ÀÊÑ...ÔƱ• */
	$"8273 6762 5F5C 574F 4A49 4A4E 565F 686F"            /* ‚sgb_\WOJIJNV_ho */
	$"7478 7D84 898E 969A 9995 8D85 8588 93A4"            /* tx}„‰Ž–š™•�……ˆ“¤ */
	$"B0B7 B9AD 977E 6550 4039 3633 3234 3B48"            /* °·¹­—~eP@96324;H */
	$"5C72 8DA6 BAC8 CABF B4AD ABB2 B8B2 A89A"            /* \r�¦ºÈÊ¿´­«²¸²¨š */
	$"846D 5D56 555A 6470 7A82 827C 746E 6E6F"            /* „m]VUZdpz‚‚|tnno */
	$"7071 6D64 5648 3F46 5870 8BA1 AFB5 B1AA"            /* pqmdVH?FXp‹¡¯µ±ª */
	$"A9A5 A1A3 A3A1 9D92 857A 726C 655F 5B59"            /* ©¥¡££¡�’…zrle_[Y */
	$"5554 5C6B 7B88 908F 8982 7D7C 7E83 8D93"            /* UT\k{ˆ��‰‚}|~ƒ�“ */
	$"908C 8881 8088 939F A9A9 A298 8973 6257"            /* �Œˆ�€ˆ“Ÿ©©¢˜‰sbW */
	$"5256 5A5B 584A 3C34 3037 485E 7893 ABBD"            /* RVZ[XJ<407H^x“«½ */
	$"CAD3 DAE0 E1DA D0C1 AD98 8371 6053 4A41"            /* ÊÓ....ÐÁ­˜ƒq`SJA */
	$"3A3A 3F4B 5862 6B73 777C 8080 7F80 7F7E"            /* ::?KXbksw|€€.€.~ */
	$"7E7E 7E84 8A8E 98A5 AAAF B4B6 B2A8 9986"            /* ~~~„ŠŽ˜¥ª¯´¶²¨™† */
	$"7059 4430 2626 2C37 4452 5F6E 8496 A8B8"            /* pYD0&&,7DR_n„–¨¸ */
	$"C3C9 CCD0 CFC3 B3A1 8E7B 6F69 6360 5D58"            /* ÃÉÌÐÏó¡Ž{oic`]X */
	$"5459 6673 7A7C 7D7B 7B7B 7874 6E66 5E59"            /* TYfsz|}{{{xtnf^Y */
	$"5250 5661 7289 9DAB B5BA BAB3 ACA9 ACAE"            /* RPVar‰�«µºº³¬©¬® */
	$"ADA3 8F76 5D46 3937 3B4B 5E6F 7E87 8A88"            /* ­£�v]F97;K^o~‡Šˆ */
	$"8079 7E88 949F A095 8675 6A68 6E7B 8A94"            /* €y~ˆ”Ÿ •†ujhn{Š” */
	$"9DA4 A6A4 9F95 8B82 796E 665D 534A 433A"            /* �¤¦¤Ÿ•‹‚ynf]SJC: */
	$"3432 343A 485F 7C9C BCDB EAE6 DACC BDB8"            /* 424:H_|œ¼....̽¸ */
	$"BAB8 B2A8 906E 5034 2221 3047 5F73 8384"            /* º¸²¨�nP4"!0G_sƒ„ */
	$"7566 5F5D 6578 8D96 9184 7A72 717A 8A9F"            /* uf_]ex�–‘„zrqzŠŸ */
	$"B3BC BEBC B4AB A49A 8A78 675A 4A39 2E29"            /* ³¼¾¼´«¤šŠxgZJ9.) */
	$"2E38 4656 626A 7586 9CB8 D4E6 E9DD C4A9"            /* .8FVbju†œ¸Ô...Ä© */
	$"988E 8B86 7D72 675B 5148 464C 586B 8090"            /* ˜Ž‹†}rg[QHFLXk€� */
	$"9895 8B7A 6D69 6C6D 685E 534C 4D59 718F"            /* ˜•‹zmilmh^SLMYq� */
	$"A8B7 C1C5 C3C2 C0BA B0A4 9787 745D 4330"            /* ¨·ÁÅÃÂÀº°¤—‡t]C0 */
	$"2A33 475F 747D 7D7B 787C 8696 A6AB A194"            /* *3G_t}}{x|†–¦«¡” */
	$"887F 756A 6468 707C 8D9A A1A3 A0A0 A19F"            /* ˆ.ujdhp|�š¡£  ¡Ÿ */
	$"9D94 8169 4F3F 3D3F 3F3F 3C36 3343 627E"            /* �”�iO?=???<63Cb~ */
	$"99B8 CCD4 D5D2 CEC9 C0B6 B1AD A38F 7354"            /* ™¸ÌÔÕÒÎÉÀ¶±­£�sT */
	$"3829 3147 5C6F 7672 6860 636B 7277 7776"            /* 8)1G\ovrh`ckrwwv */
	$"7676 7779 7C81 8A9A AAB5 B6AF A59D 9A9F"            /* vvwy|�Ššªµ¶¯¥�šŸ */
	$"A3A2 977C 5D47 3D38 3B40 413E 4049 5563"            /* £¢—|]G=8;@A>@IUc */
	$"7A92 A8C1 D5DF E3DC C5AC 9C90 8985 7E6B"            /* z’¨ÁÕ...Ŭœ�‰…~k */
	$"5244 434B 5A67 7075 7678 8188 8C89 7F75"            /* RDCKZgpuvx�ˆŒ‰.u */
	$"695C 524A 4548 5771 91AC BCC2 C0BB BCC5"            /* i\RJEHWq‘¬¼ÂÀ»¼Å */
	$"D0CF BFA4 7C55 3B2B 272D 3846 586A 7982"            /* ÐÏ¿¤|U;+'-8FXjy‚ */
	$"8381 848D 98A6 AFAC 9D88 766D 6E70 7275"            /* ƒ�„�˜¦¯¬�ˆvmnpru */
	$"7579 899A A4A8 A59D 948A 847F 7565 554C"            /* uy‰š¤¨¥�”Š„.ueUL */
	$"4641 3F3D 3C40 4F6B 8BA3 B4BB B6AF AEB2"            /* FA?=<@Ok‹£´»¶¯®² */
	$"BBC3 C6C3 B7A2 8A73 5B46 3C3C 4A5B 676D"            /* »ÃÆ÷¢Šs[F<<J[gm */
	$"6C64 5E62 6D78 8186 8278 6F6E 757A 7C81"            /* ld^bmx�†‚xonuz|� */
	$"8891 9FAB B4BA B8B5 B0A8 9D8D 7C6A 584D"            /* ˆ‘Ÿ«´º¸µ°¨��|jXM */
	$"4B47 4038 322D 2F3F 5D7E 9AB3 C3C9 CAC8"            /* KG@82-/?]~š³ÃÉÊÈ */
	$"C2BB B5AE A8A5 9984 6E59 443A 4354 656E"            /* »µ®¨¥™„nYD:CTen */
	$"7477 7674 797E 7F7B 7267 605D 5E64 6971"            /* twvty~.{rg`]^diq */
	$"7B8A 9CAA B7C2 C7C8 C9CB C3AB 8E6F 5240"            /* {Šœª·ÂÇÈÉËëŽoR@ */
	$"3938 3E45 4A4D 525C 6978 8899 A8B5 BDB9"            /* 98>EJMR\ixˆ™¨µ½¹ */
	$"A791 7D6D 676C 747B 7D7B 7A7A 7D86 9196"            /* §‘}mglt{}{zz}†‘– */
	$"999A 9590 8A80 7569 5C55 504E 4D49 4C56"            /* ™š•�Š€ui\UPNMILV */
	$"657C 92A0 A7A9 A7A8 B2BD C4C5 B9A2 8A72"            /* e|’ §©§¨²½ÄŹ¢Šr */
	$"6058 575E 6870 7474 6C5F 5856 5A6A 7D84"            /* `XW^hpttl_XVZj}„ */
	$"847B 7066 6167 7581 8C95 9DA6 ACAE ACAC"            /* „{pfagu�Œ•�¦¬®¬¬ */
	$"AAA8 A9A9 9C89 7560 4B48 4E50 483D 3633"            /* ª¨©©œ‰u`KHNPH=63 */
	$"3C53 6B82 99A7 ACB0 B4B7 BFCA CFCE C4AD"            /* <Sk‚™§¬°´·¿ÊÏÎÄ­ */
	$"8D6B 4F3E 3A42 5567 7371 6B64 636C 7982"            /* �kO>:BUgsqkdcly‚ */
	$"8682 7566 5C58 5B65 7383 9AAD B5BA B8B4"            /* †‚uf\X[esƒš­µº¸´ */
	$"B4B6 BBBB AF99 7B5A 4038 3C40 474F 5152"            /* ´¶»»¯™{Z@8<@GOQR */
	$"5760 7287 99A9 B6B7 AD9D 8978 6F70 7B8A"            /* W`r‡™©¶·­�‰xop{Š */
	$"9291 897A 6D68 707D 858A 8D8D 8A84 817F"            /* ’‘‰zmhp}…Š��Š„�. */
	$"7C7A 7770 665A 4C45 4A55 6A85 989E A0A1"            /* |zwpfZLEJUj…˜ž ¡ */
	$"A1A7 B5BF BFB4 9F88 715E 585E 6874 7C7C"            /* ¡§µ¿¿´Ÿˆq^X^ht|| */
	$"7368 5C52 5460 748C 9792 846F 5B52 5665"            /* sh\RT`tŒ—’„o[RVe */
	$"7789 959D A4A9 AAAA ADAE ACAA A698 8674"            /* w‰•�¤©ªª­®¬ª¦˜†t */
	$"6255 5255 5856 514C 484C 5A67 727C 8488"            /* bURUXVQLHLZgr|„ˆ */
	$"90A1 B3C2 CED2 CBBD A588 715F 5456 606B"            /* �¡³ÂÎÒ˽¥ˆq_TV`k */
	$"7372 695B 5051 5E6D 7A82 8179 7169 666D"            /* sri[PQ^mz‚�yqifm */
	$"7881 8C99 9E9F 9F9C 9DA3 A8AE B0A9 9E8D"            /* x�Œ™žŸŸœ�£¨®°©ž� */
	$"7665 5C56 514D 4743 464E 5C70 8393 9D9F"            /* ve\VQMGCFN\pƒ“�Ÿ */
	$"A09D 9895 9291 9596 928A 7F70 615C 5D65"            /*  �˜•’‘•–’Š.pa\]e */
	$"717C 868C 9091 8E89 8887 827A 7064 5B55"            /* q|†Œ�‘Ž‰ˆ‡‚zpd[U */
	$"4F51 5D6B 7A88 929A A4AB B0AF A69D 9488"            /* OQ]kzˆ’š¤«°¯¦�”ˆ */
	$"7E79 797C 807F 7A73 6A63 6262 6874 7D83"            /* ~yy|€.zsjcbbht}ƒ */
	$"857E 7368 6568 6E75 7E86 8C8E 8C87 8488"            /* …~shehnu~†ŒŽŒ‡„ˆ */
	$"8E95 9EA5 A8A4 988B 817B 7673 716E 675A"            /* Ž•ž¥¨¤˜‹�{vsqngZ */
	$"4D45 4244 4A56 6984 9EB1 BBC0 BFB8 AEA4"            /* MEBDJVi„ž±»À¿¸®¤ */
	$"9E98 9189 7E74 6A5F 595C 6064 6D76 7B7B"            /* ž˜‘‰~tj_Y\`dmv{{ */
	$"766E 6764 6970 777E 8386 847E 7E85 8C93"            /* vngdipw~ƒ†„~~…Œ“ */
	$"9CA7 AFB1 ADA3 9380 746F 6D6C 7071 6D69"            /* œ§¯±­£“€tomlpqmi */
	$"645F 5C58 575E 6B7A 8996 A0A4 A3A2 A19F"            /* d_\XW^kz‰– ¤£¢¡Ÿ */
	$"9D9C 9B90 7E6C 5B4C 474C 5A6C 8297 A5A8"            /* �œ›�~l[LGLZl‚—¥¨ */
	$"9F90 7F73 6F72 7679 7872 6A62 5C5B 6472"            /* Ÿ�.sorvyxrjb\[dr */
	$"8396 A9B4 B7B1 A79B 908B 8A85 7C72 655B"            /* ƒ–©´·±§›�‹Š…|re[ */
	$"585C 626B 7278 828D 8F8A 847C 716A 6A6E"            /* X\bkrx‚��Š„|qjjn */
	$"7479 8187 8A8F 948F 867E 7A7C 8590 999D"            /* ty�‡Š�”�†~z|…�™� */
	$"9A8F 8886 8179 7067 5F57 5253 5559 5F6A"            /* š�ˆ†�ypg_WRSUY_j */
	$"7A8E A3B2 B5AD A399 979C 9F9C 9284 756B"            /* zŽ£²µ­£™—œŸœ’„uk */
	$"6762 5A57 5A60 6872 787C 7D7D 7B7F 8587"            /* gbZWZ`hrx|}}{.…‡ */
	$"8177 6D66 6875 8690 9699 9A9D A4A9 A499"            /* �wmfhu†�–™š�¤©¤™ */
	$"8C80 7771 7070 6C67 6667 6A71 726C 645E"            /* Œ€wqpplgfgjqrld^ */
	$"6472 8392 9EA5 A4A1 A0A0 9C93 897F 766E"            /* drƒ’ž¥¤¡  œ“‰.vn */
	$"6864 605A 585C 6576 8B96 9792 8B86 8282"            /* hd`ZX\ev‹–—’‹†‚‚ */
	$"827A 7471 6E6D 7273 6B66 6771 8295 A7B1"            /* ‚ztqnmrskfgq‚•§± */
	$"B4B0 A69D 9385 776C 6969 6B70 746F 6562"            /* ´°¦�“…wliikptoeb */
	$"646A 7A8D 9B9C 9287 7B71 6B6A 7076 7C85"            /* djz�›œ’‡{qkjpv|… */
	$"8E8F 8A80 746F 6E77 8DA0 A8AA A696 8273"            /* Ž�Š€tonw� ¨ª¦–‚s */
	$"6960 5959 5E63 6463 5F59 575F 728B A9C1"            /* i`YY^cdc_YW_r‹©Á */
	$"D0D0 C2AF 9E8D 8078 7475 7676 756E 6053"            /* ÐЯž�€xtuvvun`S */
	$"4B4F 6074 8C9E A19D 8F7A 685F 606A 7481"            /* KO`tŒž¡��zh_`jt� */
	$"8D95 9692 8980 7C81 8C9B A4A2 9887 7463"            /* �•–’‰€|�Œ›¤¢˜‡tc */
	$"5955 5760 6972 7B7C 7975 706D 6F7A 8C9D"            /* YUW`ir{|yupmozŒ� */
	$"A7AE B2AD A498 887C 7572 706E 6A64 6261"            /* §®²­¤˜ˆ|urpnjdba */
	$"5D5C 6570 8299 AAB3 AFA0 917F 6F67 6261"            /* ]\ep‚™ª³¯ ‘.ogba */
	$"676B 6B69 6968 676E 7B8B 9FB0 B5B0 A392"            /* gkkiihgn{‹Ÿ°µ°£’ */
	$"8174 7075 7A7D 7E78 6F68 676A 7481 8B93"            /* �tpuz}~xohgjt�‹“ */
	$"9591 8A7F 7167 666D 767D 7D7C 766F 707A"            /* •‘Š.qgfmv}}|vopz */
	$"8692 9EA4 A49F 9892 8D84 7B73 6A62 5E59"            /* †’ž¤¤Ÿ˜’�„{sjb^Y */
	$"5048 4449 5765 7482 8F9E ADBD C7C8 C3B3"            /* PHDIWet‚�ž­½ÇÈó */
	$"9D88 7B76 7672 6C66 615C 5A5B 6169 7688"            /* �ˆ{vvrlfa\Z[aivˆ */
	$"969B 988B 7969 605F 6A7C 8C96 9588 7A74"            /* –›˜‹yi`_j|Œ–•ˆzt */
	$"767E 8895 A1A8 A495 816D 5B53 5560 6B74"            /* v~ˆ•¡¨¤•�m[SU`kt */
	$"7876 706E 747C 8693 9C9E 9FA1 9E9A 9690"            /* xvpnt|†“œžŸ¡žš–� */
	$"8880 7770 6D6B 6B6E 6E6C 6866 6A70 788B"            /* ˆ€wpmkknnlhfjpx‹ */
	$"A1AD B4B3 A792 7B6A 5F5C 5B5C 6263 6060"            /* ¡­´³§’{j_\[\bc`` */
	$"5F5E 6676 8FA5 AEAE ABA2 978C 8682 8285"            /* _^fv�¥®®«¢—Œ†‚‚… */
	$"8988 7F74 6E70 7276 828D 8D85 7E79 7573"            /* ‰ˆ.tnprv‚��…~yus */
	$"7677 7064 5D5E 656C 7B8E 9FA9 A9A5 9E97"            /* vwpd]^el{ŽŸ©©¥ž— */
	$"9797 9592 8C84 7965 4E3E 3B42 4A56 6266"            /* ——•’Œ„yeN>;BJVbf */
	$"666B 7887 98AB BEC6 C6C0 B49F 8E80 7778"            /* fkx‡˜«¾ÆÆÀ´ŸŽ€wx */
	$"7A79 7469 5F5F 636D 7A86 9090 8473 6966"            /* zyti__cmz†��„sif */
	$"646A 777F 8485 817C 7775 7B85 8E98 A1A1"            /* djw.„…�|wu{…Ž˜¡¡ */
	$"9485 7971 7074 7A7D 756A 6769 6B6E 747D"            /* ”…yqptz}ujgiknt} */
	$"8787 8283 8586 8F9B A19E 9A90 8173 6E72"            /* ‡‡‚ƒ…†�›¡žš��snr */
	$"7A81 8381 7461 565B 6C80 98AD B9B5 A28D"            /* z�ƒ�taV[l€˜­¹µ¢� */
	$"7B6D 645E 6166 6865 5E53 474A 5A6B 7F98"            /* {md^afhe^SGJZk.˜ */
	$"AEB6 B0A7 9F98 8F8C 8E8D 8987 8580 7A74"            /* ®¶°§Ÿ˜�ŒŽ�‰‡…€zt */
	$"6F6E 6F6D 6F75 787A 7F81 7E78 7369 5D5B"            /* onomouxz.�~xsi][ */
	$"677E 929B A19D 948B 868A 96A0 ABB0 A692"            /* g~’›¡�”‹†Š– «°¦’ */
	$"7A62 4B3C 3A3F 4955 6065 6461 626E 7F8F"            /* zbK<:?IU`edabn.� */
	$"A1B4 C2C5 BFB8 AF9C 897F 7876 7C81 807A"            /* ¡´ÂÅ¿¸¯œ‰.xv|�€z */
	$"726D 6B68 6769 6C6D 7078 7D7B 766D 6A6D"            /* rmkhgilmpx}{vmjm */
	$"6F7A 8F9C A2A3 9E94 877C 7476 7D83 8E94"            /* oz�œ¢£ž”‡|tv}ƒŽ” */
	$"8D84 796A 5B5A 636D 7273 7171 7071 777E"            /* �„yj[Zcmrsqqpqw~ */
	$"858F 989F A4A5 9E96 9089 8583 7F78 7370"            /* …�˜Ÿ¤¥ž–�‰…ƒ.xsp */
	$"6E72 7B82 8580 797B 7F83 8C90 8D85 7562"            /* nr{‚…€y{.ƒŒ��…ub */
	$"534B 474D 5B67 7682 888B 8D8E 959F A8AE"            /* SKGM[gv‚ˆ‹�Ž•Ÿ¨® */
	$"B1AB 9B8F 867E 7A79 7875 6B62 6162 6365"            /* ±«›�†~zyxukbabce */
	$"696F 767F 888C 8883 8080 8488 8B8C 8883"            /* iov.ˆŒˆƒ€€„ˆ‹Œˆƒ */
	$"8087 96A1 AAAD A394 8476 6A5F 5757 5857"            /* €‡–¡ª­£”„vj_WWXW */
	$"5450 4C48 4952 6479 8C9B A2A4 A6AC B8C0"            /* TPLHIRdyŒ›¢¤¦¬¸À */
	$"C1BE B09B 8C81 7B78 7572 6D69 6562 5F5D"            /* Á¾°›Œ�{xurmieb_] */
	$"5C5C 636C 747A 7975 6F72 8193 A4B3 B3A5"            /* \\cltzyuor�“¤³³¥ */
	$"9382 7572 767E 8691 9694 8D7F 6D60 5A5A"            /* “‚urv~†‘–”�.m`ZZ */
	$"636B 706E 6359 5861 6F7F 8D94 989B A0A7"            /* ckpncYXao.�”˜› § */
	$"ACAD A7A1 9A91 8B89 8379 7069 6563 6463"            /* ¬­§¡š‘‹‰ƒypiecdc */
	$"6161 6B7C 92A2 A090 785C 4843 4E60 7180"            /* aak|’¢ �x\HCN`q€ */
	$"8A8B 8885 8484 8997 A8B6 BEB8 A58F 7767"            /* Š‹ˆ…„„‰—¨¶¾¸¥�wg */
	$"6771 7675 7165 544B 4C51 5964 7283 95A4"            /* gqvuqeTKLQYdrƒ•¤ */
	$"AEAD A092 8881 8388 8B8E 8E8C 8E93 9693"            /* ®­ ’ˆ�ƒˆ‹ŽŽŒŽ“–“ */
	$"8B7D 6D67 6869 6A6A 645D 5651 4F4E 5056"            /* ‹}mghijjd]VQONPV */
	$"6473 808F 9B9F A0A6 B0BF CED6 CEB9 9E84"            /* ds€�›Ÿ ¦°¿ÎÖιž„ */
	$"7165 5E5B 5E61 6261 615F 5A58 5558 6371"            /* qe^[^abaa_ZXUXcq */
	$"808D 9395 989E A6AE AFA4 9587 7D77 777A"            /* €�“•˜ž¦®¯¤•‡}wwz */
	$"7E83 8789 8781 776C 6058 5759 5B5B 5652"            /* ~ƒ‡‰‡�wl`XWY[[VR */
	$"5860 6B80 95A0 A8AD B0B3 B2B2 B4B2 AEA8"            /* X`k€• ¨­°³²²´²®¨ */
	$"A095 8671 5C4A 403C 4453 606D 7983 8A8E"            /*  •†q\J@<DS`myƒŠŽ */
	$"8F8C 8378 6E69 6A70 777C 8285 8587 8C8F"            /* �Œƒxnijpw|‚……‡Œ� */
	$"9298 9E9F 9E99 8E84 796F 6C6F 6F6E 6A60"            /* ’˜žŸž™Ž„yoloonj` */
	$"554B 4951 6278 8C9E ADB2 B0A9 9E93 8881"            /* UKIQbxŒž­²°©ž“ˆ� */
	$"8489 8E8F 8D87 7E77 7A7F 8284 8278 6C67"            /* „‰Ž��‡~wz.‚„‚xlg */
	$"6666 6561 5A58 5756 575C 6268 7280 919C"            /* ffeaZXWVW\bhr€‘œ */
	$"A6B4 BEC2 C9CC C6B7 A186 6F64 5E60 6361"            /* ¦´¾ÂÉÌÆ·¡†od^`ca */
	$"5C57 514D 4B4D 5661 6C78 8B9A 9EA3 A6A2"            /* \WQMKMValx‹šž£¦¢ */
	$"A4AA B0B0 A796 8273 6E70 767E 807F 7B73"            /* ¤ª°°§–‚snpv~€.{s */
	$"685D 5750 4847 4E54 565B 6267 7286 9AAA"            /* h]WPHGNTV[bgr†šª */
	$"B6BB BCBD C0C3 C5C3 B8A6 927B 6654 4842"            /* ¶»¼½ÀÃÅø¦’{fTHB */
	$"3D3A 404D 5C69 757F 8690 9DA5 A499 8775"            /* =:@M\iu.†��¥¤™‡u */
	$"6A69 717E 8B92 8E87 8079 797F 8487 8B90"            /* jiq~‹’Ž‡€yy.„‡‹� */
	$"918B 7F71 645A 5B65 6A68 6664 6167 7485"            /* ‘‹.qdZ[ejhfdagt… */
	$"98A7 ABAD AEAA A39B 8F82 7876 7D83 8485"            /* ˜§«­®ª£›�‚xv}ƒ„… */
	$"857D 7D83 8583 7E74 6E6C 6A6C 6F6D 6356"            /* …}}ƒ…ƒ~tnljlomcV */
	$"4D4B 4C51 5B66 7081 93A3 B0B8 BABB BCBD"            /* MKLQ[fp�“£°¸º»¼½ */
	$"BCB6 A793 7D69 5C5A 5A5C 5D5A 5555 5758"            /* ¼¶§“}i\ZZ\]ZUUWX */
	$"5C60 6774 879B A7AC AFAD A7A4 A5A5 A49F"            /* \`gt‡›§¬¯­§¤¥¥¤Ÿ */
	$"9586 7872 7476 7572 6B64 6158 4A41 3B38"            /* •†xrtvurkdaXJA;8 */
	$"3E4D 5E6D 7A84 898D 96A4 B4C0 CACF CAC6"            /* >M^mz„‰�–¤´ÀÊÏÊÆ */
	$"C3B5 A492 7E6E 665D 5046 3F3A 3943 5569"            /* õ¤’~nf]PF?:9CUi */
	$"7F91 9D9F A1A2 9F98 9086 7A72 747D 8486"            /* .‘�Ÿ¡¢Ÿ˜�†zrt}„† */
	$"8481 7E7F 7E79 7675 7275 7B7F 807E 7466"            /* „�~.~yvuru{.€~tf */
	$"5D5B 6066 6D77 8086 8A90 9699 9DA4 ABB1"            /* ][`fmw€†Š�–™�¤«± */
	$"B1A5 9380 6E63 6167 7484 9193 8E89 8683"            /* ±¥“€ncagt„‘“Ž‰†ƒ */
	$"7D76 7476 7674 736B 5E56 504D 5054 575C"            /* }vtvvtsk^VPMPTW\ */
	$"6773 8094 A5B4 C2C9 C4BC B3A9 9986 786E"            /* gs€”¥´ÂÉļ³©™†xn */
	$"645A 5351 5058 666E 767D 7D79 7672 737C"            /* dZSQPXfnv}}yvrs| */
	$"8A99 A7B3 B6AD A49D 958B 8688 8B8A 847B"            /* Š™§³¶­¤�•‹†ˆ‹Š„{ */
	$"7166 605D 5951 4D49 443F 3A39 4153 6782"            /* qf`]YQMID?:9ASg‚ */
	$"9DB1 BCC1 C1BA B2B0 B1B3 B1AE A79B 8C80"            /* �±¼ÁÁº²°±³±®§›Œ€ */
	$"7261 524C 4845 4547 4F5F 7182 94A3 AAAC"            /* raRLHEEGO_q‚”£ª¬ */
	$"A8A0 9891 8B83 786B 6669 727D 8991 8F88"            /* ¨ ˜‘‹ƒxkfir}‰‘�ˆ */
	$"7F73 6659 5256 636F 7A81 8179 6E64 5E64"            /* .sfYRVcoz��ynd^d */
	$"7587 969F A5A9 A9A6 A3A5 A6A3 9F99 8B7B"            /* u‡–Ÿ¥©©¦£¥¦£Ÿ™‹{ */
	$"6B5B 5457 6275 8999 9E9A 9084 7B75 6F68"            /* k[TWbu‰™žš�„{uoh */
	$"6466 6C6F 6B65 5D52 4D4F 5865 7382 91A0"            /* dfloke]RMOXes‚‘  */
	$"AEBA C3C3 BBB0 A192 8578 6A5A 4A44 454E"            /* ®ºÃû°¡’…xjZJDEN */
	$"6278 8A97 9B94 8B80 7774 7981 8A97 A4AA"            /* bxŠ—›”‹€wty�Š—¤ª */
	$"A8A1 9993 9395 9591 8579 6D60 5750 4B4C"            /* ¨¡™““••‘…ym`WPKL */
	$"4E4F 5151 4E4B 484C 5A6E 859E B2BF C5C2"            /* NOQQNKHLZn…ž²¿Å */
	$"BBB4 ABA2 9F9C 9C9D 9A93 8676 6859 4A41"            /* »´«¢Ÿœœ�š“†vhYJA */
	$"434E 5862 6D79 828A 929A A4AF B8B8 AF9A"            /* CNXbmy‚Š’š¤¯¸¸¯š */
	$"816C 5C57 5D65 707B 858A 8576 665B 5857"            /* �l\W]ep{…Š…vf[XW */
	$"5F6B 7379 786F 6C72 7A81 8687 8B90 9397"            /* _ksyxolrz�†‡‹�“— */
	$"9DA2 A5A8 A8A6 A7A1 9589 7C6E 645F 5F60"            /* �¢¥¨¨¦§¡•‰|nd__` */
	$"666F 7A87 96A0 9F91 8177 6E6A 6B69 6561"            /* foz‡– Ÿ‘�wnjkiea */
	$"5B56 5356 585A 6474 899D A9B0 ABA2 9E9C"            /* [VSVXZdt‰�©°«¢žœ */
	$"9DA0 9B8C 755C 4B46 4B56 647A 8F9A 9F9F"            /* � ›Œu\KFKVdz�šŸŸ */
	$"9C93 8982 8184 8689 8782 828B 95A0 AAAB"            /* œ“‰‚�„†‰‡‚‚‹• ª« */
	$"A698 8272 6960 5750 504F 4E4D 4B4D 5053"            /* ¦˜‚ri`WPPONMKMPS */
	$"5E6E 7B83 8581 7F85 94A6 B5BB B6AD 9F92"            /* ^n{ƒ…�.…”¦µ»¶­Ÿ’ */
	$"8F93 9491 8C8A 887E 7266 5B54 555E 676F"            /* �“”‘ŒŠˆ~rf[TU^go */
	$"787E 8288 93A0 ABB1 ABA0 9485 766F 6A68"            /* x~‚ˆ“ «±« ”…vojh */
	$"6766 6A6F 7272 7270 6C70 736F 6760 5A56"            /* gfjorrrplpsog`ZV */
	$"5B6C 7D89 8F8D 8886 8A92 9BA5 ACAE B0AE"            /* [l}‰��ˆ†Š’›¥¬®°® */
	$"A9A3 988D 8683 8380 7365 5B57 5860 7387"            /* ©£˜�†ƒƒ€se[WX`s‡ */
	$"959C 9A91 847B 746D 6664 6465 6663 5F60"            /* •œš‘„{tmfddefc_` */
	$"646A 798A 9295 9797 9591 8B86 8278 6E66"            /* djyŠ’•——•‘‹†‚xnf */
	$"6164 6C75 7C82 888F 9AA2 A6AC AAA0 968A"            /* adlu|‚ˆ�š¢¦¬ª –Š */
	$"7C71 6660 6671 8296 A5AA A69C 9185 7C75"            /* |qf`fq‚–¥ª¦œ‘…|u */
	$"706A 625C 554D 4945 4855 6474 8185 837F"            /* pjb\UMIEHUdt�…ƒ. */
	$"7A75 747C 868F 9799 9797 989B 9EA0 A1A0"            /* zut|†�—™——˜›ž ¡  */
	$"9E9A 9388 7B6E 625F 6164 6970 767C 848B"            /* žš“ˆ{nb_adipv|„‹ */
	$"9195 9491 8D87 8483 7F7B 7C7F 8283 7F79"            /* ‘•”‘�‡„ƒ.{|.‚ƒ.y */
	$"726D 6761 5D5A 5858 5A5B 5C62 6C76 7D82"            /* rmga]ZXXZ[\blv}‚ */
	$"868A 8F96 9FA4 A7A8 ABAD ABA8 A49E 9691"            /* †Š�–Ÿ¤§¨«­«¨¤ž–‘ */
	$"8A80 756D 645C 5B5F 6973 797F 8383 8180"            /* Š€umd\[_isy.ƒƒ�€ */
	$"8082 878D 8F8A 7F71 6357 5154 5E6C 7B85"            /* €‚‡��Š.qcWQT^l{… */
	$"8B8D 847A 7572 6F6D 6D70 7272 767C 8189"            /* ‹�„zurommprrv|�‰ */
	$"9AA9 B4BD BEB6 AB99 8777 695C 575B 646F"            /* š©´½¾¶«™‡wi\W[do */
	$"7A84 8C90 9497 9692 8F8C 8885 8179 6D61"            /* z„Œ�”—–’�Œˆ…�yma */
	$"5652 5559 616C 7477 756D 6664 6267 6E73"            /* VRUYaltwumfdbgns */
	$"7A84 8C91 9292 989E A4AE B5B0 A597 887E"            /* z„Œ‘’’˜ž¤®µ°¥—ˆ~ */
	$"7B7A 7A79 736E 6B68 696A 6E75 7B83 8B8C"            /* {zzysnkhijnu{ƒ‹Œ */
	$"8884 8388 919C A6A9 A391 7B68 5B54 5455"            /* ˆ„ƒˆ‘œ¦©£‘{h[TTU */
	$"5554 5455 5554 575D 6372 8697 A1A4 9F98"            /* UTTUUTW]cr†—¡¤Ÿ˜ */
	$"9696 999E A1A1 A2A3 A7A8 A092 816E 605C"            /* ––™ž¡¡¢£§¨ ’�n`\ */
	$"5D62 6C75 787A 7C7B 7B80 868E 98A1 A7A0"            /* ]bluxz|{{€†Ž˜¡§  */
	$"917C 6251 4E56 6879 8485 7D6F 6052 4B50"            /* ‘|bQNVhy„…}o`RKP */
	$"5C6A 7A87 8A87 7E71 6F7C 92AD C5D0 CFBF"            /* \jz‡Š‡~qo|’­ÅÐÏ¿ */
	$"A996 8375 6C6A 6A6D 6F6A 6661 5F65 7284"            /* ©–ƒuljjmojfa_er„ */
	$"99AD B7B5 A697 8D83 7D79 7676 7676 7570"            /* ™­·µ¦—�ƒ}yvvvvup */
	$"6455 4742 444C 5865 6F76 7877 767A 828C"            /* dUGBDLXeovxwvz‚Œ */
	$"959E A7AD AEAA 9C8E 8A8B 909B A3A0 9486"            /* •ž§­®ªœŽŠ‹�›£ ”† */
	$"7463 5856 5A62 6E7C 8488 8880 7675 7E8F"            /* tcXVZbn|„ˆˆ€vu~� */
	$"A6B7 BDB6 A48F 7A66 5752 5151 514F 4B4B"            /* ¦·½¶¤�zfWRQQQOKK */
	$"4A48 4D57 667E 98A9 AEA9 9D8F 8484 8C96"            /* JHMWf~˜©®©��„„Œ– */
	$"A4B0 B5AD 9D89 715F 595B 6A82 9398 9387"            /* ¤°µ­�‰q_Y[j‚“˜“‡ */
	$"7A76 7881 8C98 9F9E 968B 7E6F 6464 6871"            /* zvx�Œ˜Ÿž–‹~oddhq */
	$"7B80 7F76 6655 4948 5362 6D71 7275 7572"            /* {€.vfUIHSbmqruur */
	$"7273 797F 8A9C AFBC BFBF B9A8 9788 7A6E"            /* rsy.Šœ¯¼¿¿¹¨—ˆzn */
	$"6866 6562 6267 6A68 6974 8599 AAB4 B6B2"            /* hfebbgjhit…™ª´¶² */
	$"A598 8E8D 9094 9690 816D 5845 3227 2937"            /* ¥˜Ž��”–��mXE2')7 */
	$"4A62 7379 766F 6A6F 7C8A 959A 9B95 8B83"            /* Jbsyvojo|Š•š›•‹ƒ */
	$"838B 94A1 ACB0 AFA5 9789 7D76 777E 8282"            /* ƒ‹”¡¬°¯¥—‰}vw~‚‚ */
	$"7F76 695F 5C5E 6670 7A87 95A4 AFB3 B4B1"            /* .vi_\^fpz‡•¤¯³´± */
	$"A28F 847B 7165 5749 403D 3D42 484E 5C6C"            /* ¢�„{qeWI@==BHN\l */
	$"7C89 9295 938B 858A 929A A2A7 A496 8573"            /* |‰’•“‹…Š’š¢§¤–…s */
	$"6863 646E 8194 A2AC ACA7 9D92 8F8F 8D8C"            /* hcdn�”¢¬¬§�’���Œ */
	$"877D 736C 696A 6D6E 7177 7B7E 807E 776D"            /* ‡}slijmnqw{~€~wm */
	$"625A 5C61 676D 6E6F 7273 716F 6E70 7B8B"            /* bZ\agmnorsqonp{‹ */
	$"9BA9 B1B2 AEA2 9288 837F 7C78 746E 6762"            /* ›©±²®¢’ˆƒ.|xtngb */
	$"6060 6873 8297 A5AB ACAA A5A0 A5AC B0AD"            /* ``hs‚—¥«¬ª¥ ¥¬°­ */
	$"A18F 7A62 5046 3E38 3941 4A52 5B63 686B"            /* ¡�zbPF>89AJR[chk */
	$"707C 8486 8784 7F7B 7C82 888B 8E93 9A9F"            /* p|„†‡„.{|‚ˆ‹Ž“šŸ */
	$"A3A9 ABA3 9B94 8D84 8081 7F7A 7875 6D63"            /* £©«£›”�„€�.zxumc */
	$"5752 5661 7288 9DAF B2B0 AEA7 9B94 928C"            /* WRVarˆ�¯²°®§›”’Œ */
	$"7F71 6353 4237 3536 3E51 687B 898E 8A84"            /* .qcSB756>Qh{‰ŽŠ„ */
	$"7F7B 7F86 8B8C 8C86 7C76 7372 7882 91A3"            /* .{.†‹ŒŒ†|vsrx‚‘£ */
	$"ADB4 B9B4 AEAB A298 9185 7974 6F67 6566"            /* ­´¹´®«¢˜‘…ytogef */
	$"6667 6B71 7574 7376 736B 686A 6A6D 727A"            /* fgkqutsvskhjjmrz */
	$"8081 7F80 827D 7674 7475 7576 7F85 838A"            /* €�.€‚}vttuuv.…ƒŠ */
	$"918F 8A88 8884 7D78 7876 6E6C 7279 818C"            /* ‘�Šˆˆ„}xxvnlry�Œ */
	$"9BA6 A9A7 A8AD AAA7 ABAD A9A0 917C 634B"            /* ›¦©§¨­ª§«­© ‘|cK */
	$"3E37 3236 414C 555B 5E62 6A70 7782 8D94"            /* >726ALU[^bjpw‚�” */
	$"9490 8A7F 7576 7C86 909B A09D 9995 8C86"            /* ”�Š.uv|†�› �™•Œ† */
	$"888E 9498 9A96 8A7E 7266 5E59 575C 6471"            /* ˆŽ”˜š–Š~rf^YW\dq */
	$"8293 A0A8 ADB1 AEA8 A19A 9182 7264 5647"            /* ‚“ ¨­±®¨¡š‘‚rdVG */
	$"403E 4250 5F69 737A 7B76 716E 6A6A 737C"            /* @>BP_isz{vqnjjs| */
	$"8385 8481 7C7B 838F 9BA7 B4BD BFB9 AFA5"            /* ƒ…„�|{ƒ�›§´½¿¹¯¥ */
	$"9A90 8984 8180 7C75 716F 6E6E 7071 6F6D"            /* š�‰„�€|uqonnpqom */
	$"6A65 605C 5A5B 616A 798A 99A3 A8A8 A195"            /* je`\Z[ajyŠ™£¨¨¡• */
	$"887F 7263 5A52 4F56 5E65 6C75 7C83 8D94"            /* ˆ.rcZROV^elu|ƒ�” */
	$"9696 928C 8988 8989 8788 898C 939A A4AD"            /* ––’Œ‰ˆ‰‰‡ˆ‰Œ“š¤­ */
	$"AFAE AEAC A8A0 9787 7667 5A4D 423A 3834"            /* ¯®®¬¨ —‡vgZMB:84 */
	$"3239 4857 6574 8592 9B9F 9E97 8A7E 7A7B"            /* 29HWet…’›Ÿž—Š~z{ */
	$"848E 9190 887D 7A79 7980 8A92 979A 9B9C"            /* „Ž‘�ˆ}zyy€Š’—š›œ */
	$"998C 7E74 6C6A 6E74 7876 7678 7D86 95A5"            /* ™Œ~tljntxvvx}†•¥ */
	$"ADB1 B1AC 9F8C 7765 5447 4752 5C64 6968"            /* ­±±¬ŸŒweTGGR\dih */
	$"6562 5F5D 5956 5860 6D7E 8F9A 9A92 898A"            /* eb_]YVX`m~�šš’‰Š */
	$"929D A9AF ACA2 9792 918F 8C8C 8E90 959A"            /* ’�©¯¬¢—’‘�ŒŒŽ�•š */
	$"9587 7C74 6D6C 7378 746B 6057 5455 5758"            /* •‡|tmlsxtk`WTUWX */
	$"5B67 7A90 A6B6 BCB7 A691 8072 6354 4845"            /* [gz�¦¶¼·¦‘€rcTHE */
	$"464C 5865 7178 7E87 909A A5A6 9B8C 827E"            /* FLXeqx~‡�š¥¦›Œ‚~ */
	$"8188 8C90 9494 9BA3 A5A1 9996 999D A1A4"            /* �ˆŒ�””›£¥¡™–™�¡¤ */
	$"9E90 7F6B 574D 4841 3932 313A 4858 6877"            /* ž�.kWMHA921:HXhw */
	$"828C 959D A19E 9892 8C88 8788 857F 7975"            /* ‚Œ•�¡ž˜’Œˆ‡ˆ….yu */
	$"7275 7B7E 7B76 787F 8A96 9FA1 9D95 8B84"            /* ru{~{vx.Š–Ÿ¡�•‹„ */
	$"827E 7978 7C80 868F 9495 9595 9798 948D"            /* ‚~yx|€†�”•••—˜”� */
	$"7F6C 5A4C 4546 4D55 5B60 6260 5E5D 5B5E"            /* .lZLEFMU[`b`^][^ */
	$"6A7A 8A98 A2A6 A49F 9C9C 9B9A 958A 7F76"            /* jzŠ˜¢¦¤Ÿœœ›š•Š.v */
	$"6F70 7782 8D96 9DA3 A6A7 A39E 978D 837A"            /* opw‚�–�£¦§£ž—�ƒz */
	$"7167 5C57 5555 5A61 6568 6E7A 838A 949D"            /* qg\WUUZaehnzƒŠ”� */
	$"A0A0 9787 745F 4F46 464C 5664 6F76 7C85"            /*   —‡t_OFFLVdov|… */
	$"8F96 9EA5 A69F 968C 7F75 7276 808B 9399"            /* �–ž¥¦Ÿ–Œ.urv€‹“™ */
	$"9C9B 9CA0 A5A9 AAAA A599 8A7C 6D5D 5048"            /* œ›œ ¥©ªª¥™Š|m]PH */
	$"403D 3B3D 3F43 5061 758C A2AA A79F 9387"            /* @=;=?CPauŒ¢ª§Ÿ“‡ */
	$"8485 898D 8E8B 8173 6761 6068 767F 848B"            /* „…‰�Ž‹�sga`hv.„‹ */
	$"8A86 8586 8A94 A1AB A9A0 968E 8883 8487"            /* Š†…†Š”¡«© –Žˆƒ„‡ */
	$"8A8D 8E8C 8B87 817A 726C 6762 5E59 5857"            /* Š�ŽŒ‹‡�zrlgb^YXW */
	$"5758 5858 5755 5860 7087 9CB0 BDBF B7A9"            /* WXXXWUX`p‡œ°½¿·© */
	$"9888 807A 7570 6B62 5957 5966 7A8F A7BE"            /* ˜ˆ€zupkbYWYfz�§¾ */
	$"C9C7 BAAA 9D92 8B89 8783 7E77 6959 504D"            /* ÉǺª�’‹‰‡ƒ~wiYPM */
	$"4F56 6272 8088 8E8C 857F 766E 6D69 6463"            /* OVbr€ˆŽŒ….vnmidc */
	$"6262 6871 7C85 8D94 9797 9694 8D83 7C75"            /* bbhq|…�”——–”�ƒ|u */
	$"7276 7A7D 8188 8B8A 8989 8C93 A0AB B2B6"            /* rvz}�ˆ‹Š‰‰Œ“ «²¶ */
	$"B3A9 9F94 8474 685B 5048 403B 3A42 515E"            /* ³©Ÿ”„th[PH@;:BQ^ */
	$"6877 858E 9599 9691 8C87 878A 8A8A 8984"            /* hw…Ž•™–‘Œ‡‡ŠŠŠ‰„ */
	$"7A6E 6155 5055 6373 8497 A5A7 A39D 9894"            /* znaUPUcs„—¥§£�˜” */
	$"9396 9B9D 9F9E 978D 8680 7E84 8C93 9690"            /* “–›�Ÿž—�†€~„Œ“–� */
	$"806A 5645 393B 4B5B 656A 6B67 5F5D 6470"            /* €jVE9;K[ejkg_]dp */
	$"859E B5C0 BFB6 A693 8172 6C68 635E 5E5D"            /* …žµÀ¿¶¦“�rlhc^^] */
	$"5A5E 6A75 7F88 8F9A A2A7 ADB0 AFAD AAA6"            /* Z^ju.ˆ�š¢§­°¯­ª¦ */
	$"A19D 9892 887C 726A 5D4D 4342 4852 6270"            /* ¡�˜’ˆ|rj]MCBHRbp */
	$"797A 756F 6861 636E 7984 8E93 938E 8883"            /* yzuohacny„Ž““Žˆƒ */
	$"8086 8F97 9B95 8879 6960 6166 727D 8181"            /* €†�—›•ˆyi`afr}�� */
	$"8282 838C 97A4 B4C1 C7C3 B49C 826B 5E5A"            /* ‚‚ƒŒ—¤´ÁÇôœ‚k^Z */
	$"5C5E 5E5B 5654 5A62 6B74 7879 7976 7373"            /* \^^[VTZbktxyyvss */
	$"777B 7F89 9093 928C 8277 716F 6C6A 6864"            /* w{.‰�“’Œ‚wqoljhd */
	$"6369 7585 929D A4A5 A4A2 9F9C 9A9F A19F"            /* ciu…’�¤¥¤¢ŸœšŸ¡Ÿ */
	$"9F9A 9287 786E 6E73 7978 7268 594C 4647"            /* Ÿš’‡xnnsyxrhYLFG */
	$"505A 656E 767B 8086 8A94 A2AF B9BB AF9A"            /* PZenv{€†Š”¢¯¹»¯š */
	$"8065 5149 4D53 5A62 676C 6F71 767A 828D"            /* €eQIMSZbgloqvz‚� */
	$"97A2 A7A6 A19D 9EA3 ABB4 B8B7 B1A5 9685"            /* —¢§¦¡�ž£«´¸·±¥–… */
	$"7565 5447 4041 484F 5558 5A5E 6066 7078"            /* ueTG@AHOUXZ^`fpx */
	$"7D82 878E 9599 9894 8F8D 9094 989A 9386"            /* }‚‡Ž•™˜”���”˜š“† */
	$"7768 5D58 5453 5C6A 7787 969D 9EA0 A1A4"            /* wh]XTS\jw‡–�ž ¡¤ */
	$"AAAC A9A1 9485 7A74 6E6C 6B6D 7175 7E87"            /* ª¬©¡”…ztnlkmqu~‡ */
	$"857E 756B 6464 6463 6463 6268 6F76 7F87"            /* …~ukdddcdcbhov.‡ */
	$"8888 8A8A 8884 7D76 716E 7176 777A 8690"            /* ˆˆŠŠˆ„}vqnqvwz†� */
	$"99A8 B4B6 B2AB A297 8B83 8280 7D7B 7A7A"            /* ™¨´¶²«¢—‹ƒ‚€}{zz */
	$"7872 6A62 5A55 595F 6264 6667 6A70 7C8B"            /* xrjbZUY_bdfgjp|‹ */
	$"97A1 A9AB ABA4 998B 7C6F 6664 6667 6764"            /* —¡©««¤™‹|ofdfggd */
	$"615F 5E5E 6267 717C 8694 9EA4 A8AB AAAA"            /* a_^^bgq|†”ž¤¨«ªª */
	$"ABAA ABAC AAA6 A097 8C82 786D 645E 5A56"            /* «ª«¬ª¦ —Œ‚xmd^ZV */
	$"524A 4441 4248 535F 6C78 838D 9395 989B"            /* RJDABHS_lxƒ�“•˜› */
	$"9C9E A2A4 A4A2 9C92 8576 685C 534D 505A"            /* œž¢¤¤¢œ’…vh\SMPZ */
	$"6672 7F8B 959A 9EA1 9E9B 978F 847C 7A7A"            /* fr.‹•šž¡ž›—�„|zz */
	$"7C81 858C 9398 9A99 948A 7D71 655C 5959"            /* |�…Œ“˜š™”Š}qe\YY */
	$"5A5B 5D5E 6064 676A 6F76 7D85 8C8E 9091"            /* Z[]^`dgjov}…ŒŽ�‘ */
	$"8E89 847E 7B78 7677 7E8A 96A2 A9A9 A6A3"            /* Ž‰„~{xvw~Š–¢©©¦£ */
	$"A09A 9187 7C73 6A65 6565 676D 7175 7976"            /*  š‘‡|sjeeegmquyv */
	$"726F 6762 6468 707D 8B97 9D9F A0A0 9D96"            /* rogbdhp}‹—�Ÿ  �– */
	$"8E82 746B 635C 5B5B 5A5C 6063 6569 6C70"            /* Ž‚tkc\[[Z\`ceilp */
	$"7883 92A0 A9AF AFAA A3A1 9E9A 9793 918F"            /* xƒ’ ©¯¯ª£¡žš—“‘� */
	$"8C8A 8988 8987 837B 6E5F 4E3B 2B25 2C3C"            /* ŒŠ‰ˆ‰‡ƒ{n_N;+%,< */
	$"5168 7B85 8B92 9AA3 ACB1 B0AD A79D 938E"            /* Qh{…‹’š£¬±°­§�“Ž */
	$"8881 7C76 6E66 605A 5556 5E6A 7887 939A"            /* ˆ�|vnf`ZUV^jx‡“š */
	$"9996 9490 8B84 7C78 787A 828C 949B A1A5"            /* ™–”�‹„|xxz‚Œ”›¡¥ */
	$"A39D 978E 7D6A 5F57 5253 5656 5353 5861"            /* £�—Ž}j_WRSVVSSXa */
	$"6B75 7D81 8384 848A 949C A0A1 9C94 8A83"            /* ku}�ƒ„„Š”œ ¡œ”Šƒ */
	$"7E79 7880 8C95 9B9E 968A 827D 7A79 7774"            /* ~yx€Œ•›ž–Š‚}zywt */
	$"6F6B 6A6B 6E74 7A7E 8386 837C 766D 6465"            /* okjkntz~ƒ†ƒ|vmde */
	$"6E7E 8E9E A8A9 A49F 978D 8175 685E 5955"            /* n~Žž¨©¤Ÿ—��uh^YU */
	$"5458 5C5E 626A 737F 8991 9392 9294 9392"            /* TX\^bjs.‰‘“’’”“’ */
	$"9394 9498 9A9A 9892 8B86 8487 8D94 9794"            /* “””˜šš˜’‹†„‡�”—” */
	$"8978 6350 4036 3133 3E4C 5C6B 757E 8896"            /* ‰xcP@613>L\ku~ˆ– */
	$"A4B3 C2C7 C1B4 A494 857A 7572 706F 6C68"            /* ¤³ÂÇÁ´¤”…zurpolh */
	$"6561 5D5D 626C 7883 8A8E 8F8E 8A84 807E"            /* ea]]blxƒŠŽ�ŽŠ„€~ */
	$"7E7D 828A 9199 A2A8 A8A5 A198 8B7F 746A"            /* ~}‚Š‘™¢¨¨¥¡˜‹.tj */
	$"615A 5652 4C47 474F 5965 7380 888C 8F90"            /* aZVRLGGOYes€ˆŒ�� */
	$"9091 969B A0A4 A6A3 9789 7C72 6F71 777D"            /* �‘–› ¤¦£—‰|roqw} */
	$"8182 8382 807D 7B7B 7B7C 7C7B 7774 7270"            /* �‚ƒ‚€}{{{||{wtrp */
	$"7274 787B 7A77 7577 808B 959E 9E98 9391"            /* rtx{zwuw€‹•žž˜“‘ */
	$"8E8B 8983 7A70 6860 5851 4E51 5D70 828F"            /* Ž‹‰ƒzph`XQNQ]p‚� */
	$"9792 8983 8489 8F95 9690 8882 7E7B 7C80"            /* —’‰ƒ„‰�•–�ˆ‚~{|€ */
	$"8790 999F A19E 968A 827D 7973 6959 4838"            /* ‡�™Ÿ¡ž–Š‚}ysiYH8 */
	$"3136 4352 6475 8290 A0AE B8BC BBBA B7AF"            /* 16CRdu‚� ®¸¼»º·¯ */
	$"A595 8270 635B 5C63 696C 6C6B 6B6C 7176"            /* ¥•‚pc[\cillkklqv */
	$"7B7D 7E7E 7F81 807C 7977 777E 8994 9DA3"            /* {}~~.�€|yww~‰”�£ */
	$"A7A8 A6A6 A49B 8978 6B62 5D59 5650 4842"            /* §¨¦¦¤›‰xkb]YVPHB */
	$"434C 5A6B 7D8D 989E A1A0 9B97 9495 999F"            /* CLZk}�˜ž¡ ›—”•™Ÿ */
	$"A6A8 9F8A 7565 5E60 6A78 8184 827F 7A73"            /* ¦¨ŸŠue^`jx�„‚.zs */
	$"6E6B 6A70 7D87 8B87 7B6E 6665 6C7C 8990"            /* nkjp}‡‹‡{nfel|‰� */
	$"908E 8C8C 8E8D 8D8E 9092 9291 8B7C 6A58"            /* �ŽŒŒŽ��Ž�’’‘‹|jX */
	$"4D4C 525B 646D 7680 8B96 9B98 918A 8485"            /* MLR[dmv€‹–›˜‘Š„… */
	$"8B8F 887F 7975 7378 838C 9091 9498 9B98"            /* ‹�ˆ.yusxƒŒ�‘”˜›˜ */
	$"8F84 7970 6C6B 6861 5649 3E3D 475A 6D7D"            /* �„yplkhaVI>=GZm} */
	$"8B9A A8B3 BABC BAB0 A49A 968F 8374 665C"            /* ‹š¨³º¼º°¤š–�ƒtf\ */
	$"5E66 6E75 766F 6660 636C 7881 8585 8482"            /* ^fnuvof`clx�……„‚ */
	$"7D78 7372 747B 8C9F ACAE A79C 9697 999A"            /* }xsrt{ŒŸ¬®§œ–—™š */
	$"968B 7964 5248 4343 454A 5567 7A86 8B8A"            /* –‹ydRHCCEJUgz†‹Š */
	$"8682 838C 99A4 AAAC ABAA A8A1 9584 7266"            /* †‚ƒŒ™¤ª¬«ª¨¡•„rf */
	$"6165 6E75 766D 635E 616B 7379 8187 8885"            /* aenuvmc^aksy�‡ˆ… */
	$"827B 726B 6A73 8494 9F9D 9083 7D7D 828D"            /* ‚{rkjs„”Ÿ��ƒ}}‚� */
	$"999F 9D97 8D82 7667 5851 5056 606A 747A"            /* ™Ÿ�—�‚vgXQPV`jtz */
	$"7C80 858D 969B 9893 8F8C 8A87 837E 7973"            /* |€…�–›˜“�ŒŠ‡ƒ~ys */
	$"747C 8489 8883 7F7F 8082 8382 817D 7773"            /* t|„‰ˆƒ..€‚ƒ‚�}ws */
	$"7068 5D52 4C50 5B69 7784 8F97 9DA3 ABB1"            /* ph]RLP[iw„�—�£«± */
	$"B0AB A39A 918A 8077 726E 6B6E 7171 6D65"            /* °«£š‘Š€wrnknqqme */
	$"5E5E 6470 7A80 8281 7C78 787C 8289 8D92"            /* ^^dpz€‚�|xx|‚‰�’ */
	$"999C 9993 8D8A 8A8D 9394 8E84 7564 5854"            /* ™œ™“�ŠŠ�“”Ž„udXT */
	$"575B 6065 6A6B 6A6D 7177 7D86 919C A4A9"            /* W[`ejkjmqw}†‘œ¤© */
	$"ACAD AAA9 A59D 9388 7C71 6B66 6462 5D57"            /* ¬­ª©¥�“ˆ|qkfdb]W */
	$"5454 5C69 7785 8B8B 8882 7E7D 7F82 858B"            /* TT\iw…‹‹ˆ‚~}.‚…‹ */
	$"9091 8E87 8380 7F84 8F97 9A98 8F83 776E"            /* �‘Ž‡ƒ€.„�—š˜�ƒwn */
	$"6966 6667 6968 686A 6C6F 747C 8996 9FA2"            /* iffgihhjlot|‰–Ÿ¢ */
	$"A09A 928B 8785 8480 7C77 7372 7273 7578"            /*  š’‹‡…„€|wsrrsux */
	$"7B7C 7C7D 8080 7E7C 7A7A 7874 706D 6A6B"            /* {||}€€~|zzxtpmjk */
	$"7177 7E84 8788 888B 909A A2A6 A59E 9489"            /* qw~„‡ˆˆ‹�š¢¦¥ž”‰ */
	$"817D 7874 7272 706B 6660 5C5F 6771 7A81"            /* �}xtrrpkf`\_gqz� */
	$"8381 7D7B 7C83 8B93 9794 8F89 8482 8588"            /* ƒ�}{|ƒ‹“—”�‰„‚…ˆ */
	$"8889 8884 807A 726E 6E6E 7072 706A 6360"            /* ˆ‰ˆ„€zrnnnprpjc` */
	$"6166 717E 878B 8E94 99A0 A8AC ACAA A59E"            /* afq~‡‹Ž”™ ¨¬¬ª¥ž */
	$"968B 7E72 6A63 5D58 5451 5154 5B63 6F7C"            /* –‹~rjc]XTQQT[co| */
	$"8589 8987 898D 9295 9590 8882 8080 8184"            /* …‰‰‡‰�’••�ˆ‚€€�„ */
	$"8A8F 9190 8C84 7C75 706F 7172 716D 6560"            /* Š�‘�Œ„|upoqrqme` */
	$"6268 747F 888F 9293 9394 9394 9696 9490"            /* bht.ˆ�’““”“”––”� */
	$"8981 786D 6461 6369 6E71 716E 6E72 7880"            /* ‰�xmdacinqqnnrx€ */
	$"888D 8E8A 8581 7F7C 7B7C 7D80 8180 807F"            /* ˆ�ŽŠ…�.|{|}€�€€. */
	$"7F80 848B 8F93 9492 918F 8D8A 847D 736A"            /* .€„‹�“”’‘��Š„}sj */
	$"6260 6267 6C70 7172 7576 797F 8489 8D90"            /* b`bglpqruvy.„‰�� */
	$"918D 8780 7C7E 8186 8C8E 8A83 7C75 7072"            /* ‘�‡€|~�†ŒŽŠƒ|upr */
	$"7A80 8585 827B 6F64 5E59 5C64 717F 8A91"            /* z€……‚{od^Y\dq.Š‘ */
	$"9497 999E A3A9 ADAC A69D 9082 766A 5F55"            /* ”—™ž£©­¬¦��‚vj_U */
	$"5252 5558 5B5C 5D61 6872 7F8C 979D A0A0"            /* RRUX[\]ahr.Œ—�   */
	$"9C95 8E85 7F7C 7C80 868C 8E8A 8480 7C78"            /* œ•Ž….||€†ŒŽŠ„€|x */
	$"7673 6F6D 6D6F 7070 6F6E 6E73 7C85 8E93"            /* vsommopponns|…Ž“ */
	$"9393 9393 9699 9A98 938D 857C 7062 5A52"            /* ““““–™š˜“�…|pbZR */
	$"5056 606A 7277 7A7D 8084 898B 8C8C 8D8D"            /* PV`jrwz}€„‰‹ŒŒ�� */
	$"8C89 8581 7C78 797B 7C7B 7A79 7B81 8A93"            /* Œ‰…�|xy{|{zy{�Š“ */
	$"9A9B 9793 8C83 7B72 6B63 6063 676B 7175"            /* š›—“Œƒ{rkc`cgkqu */
	$"787C 8187 8C8E 8C88 8481 8182 8280 7E7B"            /* x|�‡ŒŽŒˆ„��‚‚€~{ */
	$"7A7B 7B78 7877 7A80 8488 8B8B 8781 7C76"            /* z{{xxwz€„ˆ‹‹‡�|v */
	$"6F6A 635F 5F63 6D7C 8B98 A1A8 ABAC A9A5"            /* ojc__cm|‹˜¡¨«¬©¥ */
	$"9D91 8883 7E77 716B 6157 5250 5358 5F64"            /* �‘ˆƒ~wqkaWRPSX_d */
	$"6B72 7B84 8D93 9798 9A9A 9894 8F86 7E7A"            /* kr{„�“—˜šš˜”�†~z */
	$"797B 7E82 8788 8682 7E79 726D 6866 676F"            /* y{~‚‡ˆ†‚~yrmhfgo */
	$"767D 8080 807E 7E81 868C 9196 9CA0 A19F"            /* v}€€€~~�†Œ‘–œ ¡Ÿ */
	$"998E 8075 6E68 6360 5B56 5354 5B64 707B"            /* ™Ž€unhc`[VST[dp{ */
	$"868F 9698 9590 8B86 8586 898B 8C8A 8278"            /* †�–˜•�‹†…†‰‹ŒŠ‚x */
	$"726F 6E71 767C 8188 8F93 938F 8B84 7F7B"            /* ronqv|�ˆ�““�‹„.{ */
	$"7775 716D 6B6A 6D71 7980 8485 888B 8D8C"            /* wuqmkjmqy€„…ˆ‹�Œ */
	$"8B88 837F 7B79 7877 7472 6F6D 6F74 797E"            /* ‹ˆƒ.{yxwtromoty~ */
	$"8287 8B8D 8E8D 877E 746E 6B6A 6C6E 7275"            /* ‚‡‹�Ž�‡~tnkjlnru */
	$"7C86 9097 9D9F 9F9E 9B97 938B 8178 726C"            /* |†�—�ŸŸž›—“‹�xrl */
	$"6968 635C 5857 5C64 6E77 8084 888B 9094"            /* ihc\XW\dnw€„ˆ‹�” */
	$"9595 9490 8B89 8682 7E7A 7778 7A7D 7D79"            /* ••”�‹‰†‚~zwxz}}y */
	$"7574 7373 7475 787A 797A 7D80 8080 8080"            /* utsstuxzyz}€€€€€ */
	$"838B 939A 9D9D 9B96 918C 867D 746C 6663"            /* ƒ‹“š��›–‘Œ†}tlfc */
	$"605E 5C5A 5B5F 6772 7E86 8B8E 8E8F 9293"            /* `^\Z[_gr~†‹ŽŽ�’“ */
	$"9292 918F 8C88 827B 746D 6D70 767C 8083"            /* ’’‘�Œˆ‚{tmmpv|€ƒ */
	$"8584 8384 8381 807D 7B7A 7D80 807E 7C7C"            /* …„ƒ„ƒ�€}{z}€€~|| */
	$"7C7D 8082 8486 8787 8786 817D 7774 7374"            /* |}€‚„†‡‡‡†�}wtst */
	$"7678 7775 716E 6D73 7980 8589 8A8A 8882"            /* vxwuqnmsy€…‰ŠŠˆ‚ */
	$"7D78 7779 7D81 8384 8381 8082 888B 8C8E"            /* }xwy}�ƒ„ƒ�€‚ˆ‹ŒŽ */
	$"9090 908F 8D88 8179 716A 6763 6366 6769"            /* �����ˆ�yqjgccfgi */
	$"6E72 777A 8086 8A90 989C 9893 8B82 7A77"            /* nrwz€†Š�˜œ˜“‹‚zw */
	$"787A 7E7F 7C78 746F 6D6C 6E73 7A80 8382"            /* xz~.|xtomlnsz€ƒ‚ */
	$"7E7A 7777 7A81 888F 9394 9190 9090 9090"            /* ~zwwz�ˆ�“”‘����� */
	$"8F8C 8883 7E77 6F6A 6765 6464 6567 676A"            /* �Œˆƒ~wojgeddeggj */
	$"6F75 7C83 888C 8F90 9396 9795 9089 817A"            /* ou|ƒˆŒ��“–—•�‰�z */
	$"7573 7374 7778 7979 797A 7C7E 8081 8383"            /* usstwxyyyz|~€�ƒƒ */
	$"817E 7976 767A 8086 8B8D 8B89 8888 8888"            /* �~yvvz€†‹�‹‰ˆˆˆˆ */
	$"8887 837F 7A75 716E 6C6D 7074 7879 7974"            /* ˆ‡ƒ.zuqnlmptxyyt */
	$"706F 7276 7C81 8485 8587 8787 8888 8887"            /* porv|�„……‡‡‡ˆˆˆ‡ */
	$"8786 8582 807D 7C7E 8185 8889 8988 8783"            /* ‡†…‚€}|~�…ˆ‰‰ˆ‡ƒ */
	$"7F79 736E 6B6A 6C70 7273 7373 787E 868E"            /* .ysnkjlprsssx~†Ž */
	$"9596 9695 908A 837B 7571 7072 7475 7674"            /* •––•�Šƒ{uqprtuvt */
	$"7272 7478 7A7D 7D7B 7A7A 7A7B 7E81 858B"            /* rrtxz}}{zzz{~�…‹ */
	$"9094 9797 9590 8B87 8482 8384 8381 807D"            /* �”——•�‹‡„‚ƒ„ƒ�€} */
	$"7871 6B66 6363 676A 6E71 7273 787D 848B"            /* xqkfccgjnqrsx}„‹ */
	$"9298 9999 9791 8A83 7E7A 7878 7979 7672"            /* ’˜™™—‘Šƒ~zxxyyvr */
	$"6E6D 6E73 7B82 8686 8684 817E 7B7A 7A7C"            /* nmns{‚†††„�~{zz| */
	$"8083 888C 8F90 8F8E 8C8B 8884 807D 7976"            /* €ƒˆŒ���ŽŒ‹ˆ„€}yv */
	$"7371 6E6C 6C6D 7073 7575 7370 6E6F 737A"            /* sqnllmpsuuspnosz */
	$"838C 9192 9291 8D88 8380 8183 8484 827F"            /* ƒŒ‘’’‘�ˆƒ€�ƒ„„‚. */
	$"7B7A 7B80 8488 8A89 857F 7873 6F6E 6F70"            /* {z{€„ˆŠ‰….xsonop */
	$"7375 787A 7C7E 8085 8B90 9496 9590 8A83"            /* suxz|~€…‹�”–•�Šƒ */
	$"7C75 6E6A 696B 6F75 7879 7875 7372 7477"            /* |unjikouxyxusrtw */
	$"7B7F 8081 8180 8080 848A 929A 9E9F 9990"            /* {.€��€€€„Š’šžŸ™� */
	$"857B 7575 7A80 8588 857D 746B 6565 676D"            /* …{uuz€…ˆ…}tkeegm */
	$"7378 7A79 7572 7277 8089 939A 9B98 938D"            /* sxzyurrw€‰“š›˜“� */
	$"8781 7D7B 7876 7674 7271 6F6E 6E71 757B"            /* ‡�}{xvvtrqonnqu{ */
	$"8287 8989 8884 7F7A 7778 7B83 8D94 9898"            /* ‚‡‰‰ˆ„.zwx{ƒ�”˜˜ */
	$"9289 827E 7F80 8486 8480 7971 6864 656A"            /* ’‰‚~.€„†„€yqhdej */
	$"727B 807F 7971 6B69 6D76 838E 9495 9089"            /* r{€.yqkimvƒŽ”•�‰ */
	$"827E 7D80 8487 8989 8480 7A76 7678 7B80"            /* ‚~}€„‡‰‰„€zvvx{€ */
	$"8282 807C 7875 7373 7576 7678 7C80 8285"            /* ‚‚€|xussuvvx|€‚… */
	$"8787 8889 8B8D 8E8E 8D89 847C 746E 6B6C"            /* ‡‡ˆ‰‹�ŽŽ�‰„|tnkl */
	$"6F75 7A7C 7974 6D66 6467 6F7A 838A 8D8C"            /* ouz|ytmfdgozƒŠ�Œ */
	$"8884 8386 8C93 9A9B 968E 847B 7370 737B"            /* ˆ„ƒ†Œ“š›–Ž„{sps{ */
	$"8084 847F 776E 6968 6A70 777B 7D7D 7A76"            /* €„„.wnihjpw{}}zv */
	$"7579 8086 8D92 9595 9491 8D88 827D 7772"            /* uy€†�’••”‘�ˆ‚}wr */
	$"6F6E 6E6E 6E6E 6F71 7375 797E 8388 8B8A"            /* onnnnnoqsuy~ƒˆ‹Š */
	$"8580 7B7B 8086 8E94 9793 8C84 7D78 797C"            /* …€{{€†Ž”—“Œ„}xy| */
	$"7F80 8382 807B 746F 6C6D 7378 7C7E 7C77"            /* .€ƒ‚€{tolmsx|~|w */
	$"7473 7478 7E83 888B 8B8A 8784 8180 8083"            /* tstx~ƒˆ‹‹Š‡„�€€ƒ */
	$"8587 8683 7E78 7674 7374 7678 7B7F 8183"            /* …‡†ƒ~xvtstvx{.�ƒ */
	$"8280 7E7B 7878 7C80 8183 8485 8485 8585"            /* ‚€~{xx|€�ƒ„…„……… */
	$"8587 8A8B 8B88 847F 7874 7271 7070 6E6C"            /* …‡Š‹‹ˆ„.xtrqppnl */
	$"6968 6869 6C74 7C82 8B92 9696 9390 8D8B"            /* ihhilt|‚‹’––“��‹ */
	$"8784 8381 807F 7F7E 7D7C 7C7A 7A7C 7C7B"            /* ‡„ƒ�€..~}||zz||{ */
	$"7875 7372 7274 7679 7B7C 7F81 8385 898D"            /* xusrrtvy{|.�ƒ…‰� */
	$"8F91 9191 8E8A 837C 7671 6E6C 6A69 6969"            /* �‘‘‘ŽŠƒ|vqnljiii */
	$"6A6E 7178 7D80 8386 888A 8A8A 8989 898A"            /* jnqx}€ƒ†ˆŠŠŠ‰‰‰Š */
	$"8A8A 8783 807F 7C7C 7B7B 7B7C 7F80 8182"            /* ŠŠ‡ƒ€.||{{{|.€�‚ */
	$"807C 7773 7171 7376 787A 7B7B 7B7C 8083"            /* €|wsqqsvxz{{{|€ƒ */
	$"878A 8B8B 8A87 817C 7979 7B7E 8080 7F79"            /* ‡Š‹‹Š‡�|yy{~€€.y */
	$"7572 7172 767C 8185 8888 8682 807E 7C7C"            /* urqrv|�…ˆˆ†‚€~|| */
	$"7F80 8080 7D7C 7C7E 8085 898D 8E8E 8D89"            /* .€€€}||~€…‰�ŽŽ�‰ */
	$"8580 7A75 726F 6F6D 6C6C 6B69 6A6F 747C"            /* …€zuroomllkijot| */
	$"8289 8E93 9392 8F8A 8682 8080 7F80 7F7D"            /* ‚‰Ž““’�Š†‚€€.€.} */
	$"7C7C 7B7B 7B7D 8080 807E 7B78 7572 7275"            /* ||{{{}€€€~{xurru */
	$"797C 8080 8284 8687 898D 8F8F 8F8C 8985"            /* y|€€‚„†‡‰����Œ‰… */
	$"817D 7974 6F6C 6967 6769 6A6E 7277 7C80"            /* �}ytoliggijnrw|€ */
	$"8387 8B8D 8F8F 8F8F 8C89 8580 7E7C 7A7A"            /* ƒ‡‹�����Œ‰…€~|zz */
	$"7A7C 7E7F 8081 8180 7D7D 7D7D 7C7B 7A79"            /* z|~.€��€}}}}|{zy */
	$"7777 7777 777A 7D81 868B 8D8C 8883 807F"            /* wwwwwz}�†‹�Œˆƒ€. */
	$"7D7E 7F7D 7B79 7773 7070 7174 7A80 8487"            /* }~.}{ywsppqtz€„‡ */
	$"8785 817F 7E80 8286 8685 8481 7E7B 7978"            /* ‡…�.~€‚††…„�~{yx */
	$"797C 8187 8B8C 8C8A 8682 807F 7D7A 7673"            /* y|�‡‹ŒŒŠ†‚€.}zvs */
	$"7170 6E6D 6B6A 6E74 7D85 8C8F 8F8A 8582"            /* qpnmkjnt}…Œ��Š…‚ */
	$"8283 8485 8584 8280 7D79 7574 777A 7E82"            /* ‚ƒ„……„‚€}yutwz~‚ */
	$"8481 7E7A 7879 7A7C 7D7D 7D7F 8081 8282"            /* „�~zxyz|}}}.€�‚‚ */
	$"8385 8788 8B8B 8A88 8582 807D 7974 6F6B"            /* ƒ…‡ˆ‹‹Šˆ…‚€}ytok */
	$"6A6D 7072 7372 7273 777E 858B 9092 9290"            /* jmprsrrsw~…‹�’’� */
	$"8C88 8380 7C7B 7C7D 7E7D 7A77 777A 7E81"            /* Œˆƒ€|{|}~}zwwz~� */
	$"8484 8280 7E7E 7D7D 7C7A 7A7A 7B7D 8080"            /* „„‚€~~}}|zzz{}€€ */
	$"8182 8283 8382 8180 8080 8080 7D79 746F"            /* �‚‚ƒƒ‚�€€€€€}yto */
	$"6D6F 7579 7D80 8080 8080 8082 8586 888A"            /* mouy}€€€€€€‚…†ˆŠ */
	$"8784 807B 7676 797D 8183 8280 7E7E 8084"            /* ‡„€{vvy}�ƒ‚€~~€„ */
	$"8789 8987 8480 7B78 7573 7375 7577 7878"            /* ‡‰‰‡„€{xussuuwxx */
	$"7878 7B7F 8283 8482 8080 8080 8282 8281"            /* xx{.‚ƒ„‚€€€€‚‚‚� */
	$"807D 7D7D 7C7B 7B7B 7B7C 7D7E 7F80 8082"            /* €}}}|{{{{|}~.€€‚ */
	$"8382 807F 7D7D 7E81 8586 8584 8280 8080"            /* ƒ‚€.}}~�…†…„‚€€€ */
	$"8284 8483 807C 7875 7271 7174 7779 7978"            /* ‚„„ƒ€|xurqqtwyyx */
	$"7675 767A 8189 8E90 908C 8782 7E7C 7B7C"            /* vuvz�‰Ž��Œ‡‚~|{| */
	$"7D7D 7C7B 7877 7779 7C80 8487 8785 8482"            /* }}|{xwwy|€„‡‡…„‚ */
	$"8080 807F 7E7D 7E7F 8080 807D 7C7B 7B7C"            /* €€€.~}~.€€€}|{{| */
	$"7F80 8281 807D 7976 7371 7276 7B80 8384"            /* .€‚�€}yvsqrv{€ƒ„ */
	$"8381 7F7E 8082 8587 8784 817D 7877 787B"            /* ƒ�.~€‚…‡‡„�}xwx{ */
	$"7F82 8484 8380 7E7D 7E80 8183 8484 8280"            /* .‚„„ƒ€~}~€�ƒ„„‚€ */
	$"7F7D 7B7B 7B7A 7A7B 7B7B 7B7B 7B7B 7B7B"            /* .}{{{zz{{{{{{{{{ */
	$"7B7C 7D7E 8082 8283 8281 7F7D 7D7D 7E7F"            /* {|}~€‚‚ƒ‚�.}}}~. */
	$"7F7D 7A79 7A7B 7E81 8486 8786 8482 8080"            /* .}zyz{~�„†‡†„‚€€ */
	$"7E7F 8080 8180 7F7E 7D7E 8080 807F 7D7B"            /* ~.€€�€.~}~€€€.}{ */
	$"7979 797A 7B7B 7B7B 7A79 797B 7D80 8284"            /* yyyz{{{{zyy{}€‚„ */
	$"8686 8380 7E7E 8081 8280 7E7B 7877 7879"            /* ††ƒ€~~€�‚€~{xwxy */
	$"7B7D 7F80 8183 8484 8383 8384 8586 8684"            /* {}.€�ƒ„„ƒƒƒ„…††„ */
	$"8281 807D 7B79 7776 7577 797B 7D7D 7B79"            /* ‚�€}{ywvuwy{}}{y */
	$"7979 7B7D 8082 8383 8282 807F 7E7F 8084"            /* yy{}€‚ƒƒ‚‚€.~.€„ */
	$"8585 827D 7977 7879 7D80 8282 8280 807F"            /* ……‚}ywxy}€‚‚‚€€. */
	$"7D7C 7B7C 7D80 8284 8483 8282 8282 8281"            /* }|{|}€‚„„ƒ‚‚‚‚‚� */
	$"807E 7D7B 7978 7573 7273 777B 8081 8281"            /* €~}{yxusrsw{€�‚� */
	$"8080 8081 8181 8181 8180 7D7A 7776 767A"            /* €€€������€}zwvvz */
	$"8085 8787 8584 8382 8383 8381 807F 7E7C"            /* €…‡‡…„ƒ‚ƒƒƒ�€.~| */
	$"7B7A 7A7A 7C7E 7F7E 7C79 7979 7C7E 8080"            /* {zzz|~.~|yyy|~€€ */
	$"8080 7F7F 8081 8181 807E 7C7C 7D7E 7E7E"            /* €€..€���€~||}~~~ */
	$"8080 807F 7E7A 7979 7A7C 7F80 7F7E 7E80"            /* €€€.~zyyz|.€.~~€ */
	$"8185 8687 8585 8484 8687 8785 8380 7C77"            /* �…†‡……„„†‡‡…ƒ€|w */
	$"7270 6F70 7275 7879 7979 797D 8186 8B8C"            /* rpopruxyyyy}�†‹Œ */
	$"8A87 8380 7E7E 7E7E 7F80 807E 7C7A 7878"            /* Š‡ƒ€~~~~.€€~|zxx */
	$"787C 8084 8585 8280 7E7C 7C7B 7A7A 7C7E"            /* x|€„……‚€~||{zz|~ */
	$"8083 8586 8685 8585 8583 807F 7C7A 7775"            /* €ƒ…††…………ƒ€.|zwu */
	$"7473 7375 787C 8081 8180 7D7D 7E81 8587"            /* tssux|€��€}}~�…‡ */
	$"8886 8380 7C78 7575 777A 7E80 8283 8381"            /* ˆ†ƒ€|xuuwz~€‚ƒƒ� */
	$"8184 8687 8785 807D 7B7A 7A7A 7A7A 7A7A"            /* �„†‡‡…€}{zzzzzzz */
	$"7A7A 7B7C 7D7F 8080 8181 8282 8283 8584"            /* zz{|}.€€��‚‚‚ƒ…„ */
	$"817C 7876 7679 7C80 8183 817F 7C7B 7B7B"            /* �|xvvy|€�ƒ�.|{{{ */
	$"7B7C 7E80 7F7E 7C7B 7C7F 8286 8888 8684"            /* {|~€.~|{|.‚†ˆˆ†„ */
	$"8384 8587 8785 827F 7B77 7573 7170 7172"            /* ƒ„…‡‡…‚.{wusqpqr */
	$"7476 787B 8084 888B 8D8B 8885 8180 8181"            /* tvx{€„ˆ‹�‹ˆ…�€�� */
	$"8180 7C79 7776 7677 7A7C 7D7E 7F7F 8080"            /* �€|ywvvwz|}~..€€ */
	$"8080 8182 8280 7E7C 7B7C 8084 888A 8886"            /* €€�‚‚€~|{|€„ˆŠˆ† */
	$"8483 8181 8080 7D7A 7875 7371 7174 787C"            /* „ƒ��€€}zxusqqtx| */
	$"8082 8180 7E7D 7F83 878A 8A88 847F 7B78"            /* €‚�€~}.ƒ‡ŠŠˆ„.{x */
	$"7777 7879 7B7C 7E80 8081 8183 8486 8685"            /* wwxy{|~€€��ƒ„††… */
	$"8380 7E7C 7B7B 7A78 7778 7A7D 8083 8381"            /* ƒ€~|{{zxwxz}€ƒƒ� */
	$"807D 7C7E 8184 8686 8482 7E79 7573 767B"            /* €}|~�„††„‚~yusv{ */
	$"8083 8483 7E79 7675 787C 8082 8280 7E7C"            /* €ƒ„ƒ~yvux|€‚‚€~| */
	$"7B7B 7C80 8488 8A8A 8884 8180 8081 8484"            /* {{|€„ˆŠŠˆ„�€€�„„ */
	$"8380 7B77 7473 7272 7273 7578 7C80 8487"            /* ƒ€{wtsrrrsux|€„‡ */
	$"8888 8888 8785 8484 8482 807E 7A77 7574"            /* ˆˆˆˆ‡…„„„‚€~zwut */
	$"7678 7B7D 7D7B 7B7A 7B7C 7E81 8484 8483"            /* vx{}}{{z{|~�„„„ƒ */
	$"8280 8080 8184 8788 8785 827F 7D7B 7B7C"            /* ‚€€€�„‡ˆ‡…‚.}{{| */
	$"7C7B 7877 7777 787A 7C7E 8080 8080 8080"            /* |{xwwwxz|~€€€€€€ */
	$"8284 8587 8684 817F 7D7B 7B7B 7B7B 7A7A"            /* ‚„…‡†„�.}{{{{{zz */
	$"7B7B 7C7E 8082 8484 8482 817F 7E7D 7D7E"            /* {{|~€‚„„„‚�.~}}~ */
	$"7E7E 7D7C 7C7D 7D7E 8080 8080 8080 8181"            /* ~~}||}}~€€€€€€�� */
	$"8181 8180 807E 7E7E 7E7D 7D7D 7C7B 7A79"            /* ���€€~~~~}}}|{zy */
	$"797A 7B7B 7B7C 7D7E 8080 8283 8484 8484"            /* yz{{{|}~€€‚ƒ„„„„ */
	$"8483 8382 8282 8181 807E 7D7B 7B7A 7A79"            /* „ƒƒ‚‚‚��€~}{{zzy */
	$"7877 7777 777A 7D80 8284 8586 8686 8686"            /* xwwwwz}€‚„…††††† */
	$"8584 8381 807E 7B7A 7877 7777 7778 7879"            /* …„ƒ�€~{zxwwwwxxy */
	$"7A7B 7B7C 7D7E 8082 8486 8686 8685 8382"            /* z{{|}~€‚„††††…ƒ‚ */
	$"8281 8181 8181 807D 7A78 7878 797C 7D7F"            /* ‚�����€}zxxxy|}. */
	$"7F7E 7C7B 797A 7C80 8283 8484 8381 807F"            /* .~|{yz|€‚ƒ„„ƒ�€. */
	$"8080 8182 8180 7D7A 7978 797C 7D80 8181"            /* €€�‚�€}zyxy|}€�� */
	$"8180 807E 7D7D 7E80 8081 8181 807F 7E7D"            /* �€€~}}~€€���€.~} */
	$"7D7D 7E80 8081 8180 807F 7E7E 8081 8283"            /* }}~€€��€€.~~€�‚ƒ */
	$"8381 7F7C 7A78 7879 7A7B 7B7C 7B7A 7A7B"            /* ƒ�.|zxxyz{{|{zz{ */
	$"7C80 8284 8686 8483 8280 8080 8181 8282"            /* |€‚„††„ƒ‚€€€��‚‚ */
	$"8180 7E7D 7C7C 7C7C 7C7C 7B7A 7878 797B"            /* �€~}||||||{zxxy{ */
	$"7D80 8183 8484 8484 8484 8383 8383 8281"            /* }€�ƒ„„„„„„ƒƒƒƒ‚� */
	$"7F7C 7A79 7777 7777 7879 797A 7B7B 7C7D"            /* .|zywwwwxyyz{{|} */
	$"8082 8587 8786 8583 8281 8282 8383 8281"            /* €‚…‡‡†…ƒ‚�‚‚ƒƒ‚� */
	$"807D 7B7A 7B7C 7C7E 7F7E 7D7B 7978 797B"            /* €}{z{||~.~}{yxy{ */
	$"7C80 8283 8382 8180 8080 8081 8282 8280"            /* |€‚ƒƒ‚�€€€€�‚‚‚€ */
	$"7E7C 7B7A 7A7B 7C7E 7F7F 7F7E 7C7C 7C7C"            /* ~|{zz{|~...~|||| */
	$"7D80 8182 8383 8280 7D7C 7D7E 8081 8283"            /* }€�‚ƒƒ‚€}|}~€�‚ƒ */
	$"8281 7F7E 7E7F 8082 8282 827F 7C7A 7878"            /* ‚�.~~.€‚‚‚‚.|zxx */
	$"787A 7C7C 7D7D 7D7D 7D7D 7D7E 8082 8282"            /* xz||}}}}}}}~€‚‚‚ */
	$"8282 8180 8080 8181 8282 8281 807D 7C7B"            /* ‚‚�€€€��‚‚‚�€}|{ */
	$"7A7A 7B7C 7D7D 7D7D 7C7C 7C7D 8081 8384"            /* zz{|}}}}|||}€�ƒ„ */
	$"8584 8483 8282 8181 8181 807E 7C7B 7A79"            /* …„„ƒ‚‚����€~|{zy */
	$"7979 7979 7A7A 7B7C 7C7E 8080 8181 8282"            /* yyyyzz{||~€€��‚‚ */
	$"8282 8282 8283 8383 8282 8180 807F 7E7D"            /* ‚‚‚‚‚ƒƒƒ‚‚�€€.~} */
	$"7C7B 7A7A 7A7B 7B7C 7D7E 7F80 8181 8180"            /* |{zzz{{|}~.€���€ */
	$"8081 8181 8181 8282 8180 7F7D 7C7A 7A7A"            /* €�����‚‚�€.}|zzz */
	$"7B7C 7D7D 7D7D 7C7C 7D7E 7F80 8181 8180"            /* {|}}}}||}~.€���€ */
	$"7F7E 7E7F 8081 8283 8382 8181 8182 8282"            /* .~~.€�‚ƒƒ‚���‚‚‚ */
	$"8180 7F7D 7C7B 7B7A 7A7B 7B7D 7E7F 8081"            /* �€.}|{{zz{{}~.€� */
	$"8181 807F 7E7C 7B7C 7D7F 8181 8080 7F7F"            /* ��€.~|{|}.��€€.. */
	$"8080 8282 8281 807E 7D7D 7C7D 7D7E 7F7F"            /* €€‚‚‚�€~}}|}}~.. */
	$"7E7D 7C7C 7E80 8284 8585 8483 8281 8181"            /* ~}||~€‚„……„ƒ‚��� */
	$"807F 7E7D 7C7C 7B7B 7C7D 7E7E 7D7D 7C7B"            /* €.~}||{{|}~~}}|{ */
	$"7B7D 7E7F 807F 7E7D 7D7D 7E80 8182 8282"            /* {}~.€.~}}}~€�‚‚‚ */
	$"8282 8282 8282 8281 807F 7D7C 7B7B 7D7E"            /* ‚‚‚‚‚‚‚�€.}|{{}~ */
	$"7F80 7F7E 7E7F 8080 8181 8181 8080 8080"            /* .€.~~.€€����€€€€ */
	$"8080 8080 807E 7C79 7879 7B7D 7F80 807F"            /* €€€€€~|yxy{}.€€. */
	$"7D7D 7D7D 7E80 8080 7F7D 7C7C 7D7F 8183"            /* }}}}~€€€.}||}.�ƒ */
	$"8586 8583 8281 8181 8181 807E 7C7B 7A7B"            /* …†…ƒ‚�����€~|{z{ */
	$"7B7C 7D7D 7D7D 7E7E 8081 8282 8281 807E"            /* {|}}}}~~€�‚‚‚�€~ */
	$"7C7B 7B7C 7D7D 7E7D 7D7D 7D7F 8081 8281"            /* |{{|}}~}}}}.€�‚� */
	$"8180 7E7D 7D7D 7D7F 7F80 807F 7F7F 7F80"            /* �€~}}}}..€€....€ */
	$"8283 8484 8383 8181 8080 7F7E 7C7B 7A7A"            /* ‚ƒ„„ƒƒ��€€.~|{zz */
	$"7A7A 7B7D 7F80 8081 8080 7F7E 7E7E 7E7D"            /* zz{}.€€�€€.~~~~} */
	$"7C7B 7B7B 7B7D 7F80 8081 8080 8081 8182"            /* |{{{{}.€€�€€€��‚ */
	$"8383 8281 807E 7D7C 7D7D 7E7F 8080 8080"            /* ƒƒ‚�€~}|}}~.€€€€ */
	$"8081 8282 8180 807E 7D7D 7C7C 7C7D 7D7E"            /* €�‚‚�€€~}}|||}}~ */
	$"7E7E 7D7D 7D7D 7D7D 7E7E 7F7F 7F7F 7F7F"            /* ~~}}}}}}~~...... */
	$"7F7E 7D7D 7D7E 7F80 8080 8081 8283 8383"            /* .~}}}~.€€€€�‚ƒƒƒ */
	$"8382 8180 807F 7E7D 7D7D 7D7E 7D7D 7C7C"            /* ƒ‚�€€.~}}}}~}}|| */
	$"7D7F 8081 8282 8181 8080 7F7D 7C7B 7A7A"            /* }.€�‚‚��€€.}|{zz */
	$"7A7B 7B7C 7D7F 8081 8282 8180 807F 7F7E"            /* z{{|}.€�‚‚�€€..~ */
	$"7E7E 7E7F 8080 8181 8181 8181 8282 8382"            /* ~~~.€€������‚‚ƒ‚ */
	$"8180 7F7F 7E7E 7C7C 7B7B 7C7D 7D7E 7E7E"            /* �€..~~||{{|}}~~~ */
	$"8080 8181 8180 7F7E 7C7C 7C7C 7C7D 7E7E"            /* €€���€.~|||||}~~ */
	$"7F7E 7D7C 7C7D 7F81 8283 8382 8181 8080"            /* .~}||}.�‚ƒƒ‚��€€ */
	$"8080 8080 7F7F 7F7E 7E7F 8081 8283 8381"            /* €€€€...~~.€�‚ƒƒ� */
	$"807E 7C7C 7C7C 7D7D 7E7E 7F7F 7E7D 7C7C"            /* €~||||}}~~..~}|| */
	$"7C7D 7F80 8080 8080 807F 7E7E 7E7E 7F7F"            /* |}.€€€€€€.~~~~.. */
	$"807F 7E7E 7E7F 8082 8383 8382 8180 807F"            /* €.~~~.€‚ƒƒƒ‚�€€. */
	$"7F7F 7F80 807F 7E7D 7C7C 7C7E 8081 8282"            /* ...€€.~}|||~€�‚‚ */
	$"8181 807F 7E7D 7B7A 7A7A 7B7C 7D7D 7E7E"            /* ��€.~}{zzz{|}}~~ */
	$"7F80 8181 8181 8180 807F 7E7E 7E7E 8081"            /* .€�����€€.~~~~€� */
	$"8282 8281 8080 8080 8080 8180 8080 7F7E"            /* ‚‚‚�€€€€€€�€€€.~ */
	$"7D7C 7C7D 7E7F 8080 7F7E 7E7E 7F80 807F"            /* }||}~.€€.~~~.€€. */
	$"7E7E 7E7E 7E7E 7D7D 7D7D 7D7E 7E7E 7E7E"            /* ~~~~~~}}}}}~~~~~ */
	$"7F80 8080 8181 8182 8282 8180 7F7E 7D7E"            /* .€€€���‚‚‚�€.~}~ */
	$"7F80 8081 8080 8080 807F 7F7F 7F7F 7F7E"            /* .€€�€€€€€......~ */
	$"7E7D 7C7D 7D7E 7F80 7F7E 7D7D 7E7E 7E7E"            /* ~}|}}~.€.~}}~~~~ */
	$"7E7E 7F7F 8080 7F7F 7F7F 7F7F 807F 7F7F"            /* ~~..€€......€... */
	$"7F80 8080 8081 8181 8282 8180 7F7E 7E7E"            /* .€€€€���‚‚�€.~~~ */
	$"7F7F 7F7F 7F7E 7F7F 8080 807F 7F7F 7E7E"            /* .....~..€€€...~~ */
	$"7D7C 7B7C 7D7E 7F80 7F7E 7D7D 7E7F 8080"            /* }|{|}~.€.~}}~.€€ */
	$"8181 8180 807F 7E7E 7F80 8081 8181 807F"            /* ���€€.~~.€€���€. */
	$"7E7E 7E7F 8080 8080 8080 7F7F 7F80 8081"            /* ~~~.€€€€€€...€€� */
	$"8181 807F 7E7C 7C7D 7E7E 7F7F 7F80 807F"            /* ��€.~||}~~...€€. */
	$"7E7C 7C7C 7C7E 7F80 8080 8080 8080 8181"            /* ~||||~.€€€€€€€�� */
	$"8181 8181 8080 7E7E 7E7F 8081 8181 807F"            /* ����€€~~~.€���€. */
	$"7E7D 7D7E 7E7F 8080 8080 7F7E 7E7E 7F80"            /* ~}}~~.€€€€.~~~.€ */
	$"8181 8180 7E7E 7D7D 7D7D 7D7E 7E7E 7E7E"            /* ���€~~}}}}}~~~~~ */
	$"7F7F 7F80 8081 8181 807F 7E7E 7E7E 8080"            /* ...€€���€.~~~~€€ */
	$"8181 8282 8281 807F 7E7E 7E7F 8080 807F"            /* ��‚‚‚�€.~~~.€€€. */
	$"7F7F 7F7F 7E7E 7E7E 7E7E 7E7E 7E7E 7E7E"            /* ....~~~~~~~~~~~~ */
	$"7F80 8080 7F7E 7E7E 7E7E 7F7F 7F80 8080"            /* .€€€.~~~~~...€€€ */
	$"8080 7F7E 7E7F 8080 8080 7F7F 7F7F 7F7E"            /* €€.~~.€€€€.....~ */
	$"7E7E 7F80 8081 8181 8181"                           /* ~~.€€����� */
};

\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/Sounds/Chirp.r b/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/Sounds/Chirp.r
new file mode 100644
index 0000000..c11b86a
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/Sounds/Chirp.r
@@ -0,0 +1 @@
+data $8014 (0x18024) {
	$"0100 0100 0000 1500 0000 0543 6869 7270"            /* ...........Chirp */
};

data $8024 (0x15) {
	$"0000 1500 E882 0000 EE56 8080 8080 8080"            /* .....‚...V€€€€€€ */
	$"8080 8080 8080 8080 8080 8080 8080 8080"            /* €€€€€€€€€€€€€€€€ */
	$"8080 8080 8080 8080 8080 8080 8080 8080"            /* €€€€€€€€€€€€€€€€ */
	$"5944 3831 3540 546C 86A0 B6C6 CDCD C3B2"            /* YD815@Tl† ¶ÆÍÍò */
	$"9A81 674F 3E34 3139 485E 7793 AABE CBCF"            /* š�gO>419H^w“ª¾ËÏ */
	$"CABD A990 765D 4839 3134 3E4F 6781 9BB2"            /* ʽ©�v]H914>Og�›² */
	$"C3CD CFC7 B7A2 876D 5643 3531 3543 566D"            /* ÃÍÏÇ·¢‡mVC515CVm */
	$"87A2 B7C6 CDCD C3B3 9D82 6A52 3F34 3138"            /* ‡¢·ÆÍÍó�‚jR?418 */
	$"4559 718B A4B9 C7CF CCC2 B19A 8167 513F"            /* EYq‹¤¹ÇÏ̱š�gQ? */
	$"3431 3845 5971 8AA3 B8C7 CFCD C3B3 9D84"            /* 418EYqŠ£¸ÇÏÍó�„ */
	$"6B53 4235 3135 4254 6C85 9DB3 C3CD CFC7"            /* kSB515BTl…�³ÃÍÏÇ */
	$"B9A5 8E74 5C48 3931 333B 4C60 7A93 A9BC"            /* ¹¥Žt\H913;L`z“©¼ */
	$"C8CF CCC2 B19B 826A 5342 3631 353F 5167"            /* ÈÏ̱›‚jSB615?Qg */
	$"7F98 ADC0 CBCF CBC0 AF99 8168 5340 3531"            /* .˜­ÀËÏËÀ¯™�hS@51 */
	$"353F 4F66 7E95 ACBD CACF CCC2 B39E 866F"            /* 5?Of~•¬½ÊÏ̳ž†o */
	$"5845 3931 333A 485C 728A A2B4 C3CC CFC8"            /* XE913:H\rŠ¢´ÃÌÏÈ */
	$"BDAC 967E 6752 4236 3134 3D4C 6076 8EA3"            /* ½¬–~gRB614=L`vŽ£ */
	$"B7C5 CDCF C8BD AC96 806A 5443 3831 333A"            /* ·ÅÍÏȽ¬–€jTC813: */
	$"485B 7086 9DB1 C1CB CFCC C3B4 A38C 7660"            /* H[p†�±ÁËÏÌô£Œv` */
	$"4D3F 3531 343E 4C5E 758A A0B3 C1CB CFCC"            /* M?514>L^uŠ ³ÁËÏÌ */
	$"C3B6 A38F 7963 4F40 3631 333A 4758 6D82"            /* ö£�ycO@613:GXm‚ */
	$"98AC BCC7 CDCF C8BE AE9B 8671 5D4C 3D34"            /* ˜¬¼ÇÍÏȾ®›†q]L=4 */
	$"3134 3D49 5B6F 8499 ACBB C7CD CFCA C0B1"            /* 14=I[o„™¬»ÇÍÏÊÀ± */
	$"A08B 7662 5142 3831 3338 4351 6377 8CA0"            /*  ‹vbQB8138CQcwŒ  */
	$"B2C0 CACF CDC8 BDAF 9D89 7561 4F42 3833"            /* ²ÀÊÏÍȽ¯�‰uaOB83 */
	$"3138 404F 6074 879B ADBC C7CD CFCB C2B6"            /* 18@O`t‡›­¼ÇÍÏ˶ */
	$"A593 806C 594A 3D35 3133 3944 5263 768A"            /* ¥“€lYJ=5139DRcvŠ */
	$"9DAE BCC7 CDCF CBC3 B8A8 9684 715E 4E40"            /* �®¼ÇÍÏËø¨–„q^N@ */
	$"3833 3136 3F4C 5B6C 7F93 A4B4 C1CA CFCF"            /* 8316?L[l.“¤´ÁÊÏÏ */
	$"CAC1 B4A5 9381 6D5D 4D40 3833 3135 3E4A"            /* ÊÁ´¥“�m]M@8315>J */
	$"586A 7C8F A0B1 BDC7 CDCF CCC5 B9AC 9B89"            /* Xj|� ±½ÇÍÏÌŹ¬›‰ */
	$"7665 5447 3B34 3133 3842 4E5D 6F81 93A4"            /* veTG;4138BN]o�“¤ */
	$"B3C0 C8CD CFCB C3B9 AA9A 8976 6556 473D"            /* ³ÀÈÍÏËùªš‰veVG= */
	$"3531 3338 404C 5B6C 7E8F A0AF BDC7 CCCF"            /* 5138@L[l~� ¯½ÇÌÏ */
	$"CCC7 BDB1 A08F 7E6C 5C4D 4038 3331 343B"            /* Ìǽ± �~l\M@8314; */
	$"4553 6374 8696 A8B6 C1CA CDCF CBC3 B9AA"            /* ESct†–¨¶ÁÊÍÏËùª */
	$"9B8A 7967 5749 3E36 3131 353E 4857 6777"            /* ›ŠygWI>6115>HWgw */
	$"8A9A AAB8 C3CB CFCD CAC2 B6A8 9886 7663"            /* Ššª¸ÃËÏÍʶ¨˜†vc */
	$"5447 3D35 3133 383F 4C59 6A7B 8C9E ADBB"            /* TG=5138?LYj{Œž­» */
	$"C5CC CFCD C8C0 B3A5 9482 7160 5144 3A34"            /* ÅÌÏÍÈÀ³¥”‚q`QD:4 */
	$"3134 3943 4F5E 6F81 93A3 B3BE C8CD CFCC"            /* 149CO^o�“£³¾ÈÍÏÌ */
	$"C6BB AD9E 8C7A 6A58 4A3E 3631 3136 3E49"            /* Æ»­žŒzjXJ>6116>I */
	$"5868 7A8B 9DAD BBC6 CCCF CDC7 BEB1 A290"            /* Xhz‹�­»ÆÌÏÍǾ±¢� */
	$"7E6C 5B4C 3F38 3331 353E 4958 687A 8C9E"            /* ~l[L?8315>IXhzŒž */
	$"AFBC C6CC CFCC C6BC AD9D 8B79 6756 473D"            /* ¯¼ÆÌÏÌƼ­�‹ygVG= */
	$"3431 3339 434F 6071 8598 A8B8 C3CB CFCD"            /* 4139CO`q…˜¨¸ÃËÏÍ */
	$"C8BE B1A0 8F7B 6857 483D 3431 3339 4351"            /* Ⱦ± �{hWH=4139CQ */
	$"6275 899B ADBB C6CC CFCC C5B9 AA98 8571"            /* bu‰›­»ÆÌÏÌŹª˜…q */
	$"5E4E 4038 3331 3640 4D5E 7185 99AA B9C6"            /* ^N@8316@M^q…™ª¹Æ */
	$"CCCF CCC5 B8A8 9682 6D5B 4A3E 3531 333A"            /* ÌÏÌŸ¨–‚m[J>513: */
	$"4554 677A 8FA2 B3C1 CACF CDC7 BCAD 9A86"            /* ETgz�¢³ÁÊÏÍǼ­š† */
	$"715D 4D3F 3531 333A 4556 687E 93A5 B6C3"            /* q]M?513:EVh~“¥¶Ã */
	$"CCCF CCC3 B7A5 937E 6754 4439 3331 3642"            /* ÌÏÌ÷¥“~gTD9316B */
	$"5163 798E A2B4 C2CB CFCC C3B6 A590 7B66"            /* QcyŽ¢´ÂËÏÌö¥�{f */
	$"5243 3831 3339 4556 6A80 96AA BBC7 CDCF"            /* RC8139EVj€–ª»ÇÍÏ */
	$"C8BD AD99 826C 5847 3933 3138 4354 687E"            /* Ƚ­™‚lXG9318CTh~ */
	$"95A9 BBC7 CDCD C7BB A994 7E67 5342 3631"            /* •©»ÇÍÍÇ»©”~gSB61 */
	$"333B 495C 7189 A0B3 C2CC CFCB C1AF 9B85"            /* 3;I\q‰ ³ÂÌÏËÁ¯›… */
	$"6D58 4539 3333 3A48 5B71 879F B3C2 CCCF"            /* mXE933:H[q‡Ÿ³ÂÌÏ */
	$"CABE AD99 816A 5342 3631 343D 4D62 7A91"            /* ʾ­™�jSB614=Mbz‘ */
	$"A8BB C7CF CDC5 B6A3 8B72 5C48 3A33 333A"            /* ¨»ÇÏÍŶ£‹r\H:33: */
	$"485C 728B A3B7 C6CD CDC7 B8A4 8E75 5D48"            /* H\r‹£·ÆÍÍǸ¤Žu]H */
	$"3A33 333A 495D 768E A5B9 C7CF CDC3 B49F"            /* :33:I]vŽ¥¹ÇÏÍôŸ */
	$"866D 5744 3831 343F 4F67 7F98 AFC1 CBCF"            /* †mWD814?Og.˜¯ÁËÏ */
	$"CABD AA93 7A61 4C3B 3333 3A49 5D76 90A8"            /* ʽª“zaL;33:I]v�¨ */
	$"BCC8 CFCC C1AF 997F 664F 3E34 3138 475B"            /* ¼ÈÏÌÁ¯™.fO>418G[ */
	$"748E A5B9 C8CF CCC2 B199 8066 4F3E 3431"            /* tŽ¥¹ÈÏ̱™€fO>41 */
	$"3947 5C75 8FA8 BCC8 CFCC C0AD 967C 624C"            /* 9G\u�¨¼ÈÏÌÀ­–|bL */
	$"3B33 333A 4A61 7A94 ADC0 CBCF CABC A88F"            /* ;33:Jaz”­ÀËÏʼ¨� */
	$"755C 4738 3134 3F51 6882 9DB3 C3CD CDC6"            /* u\G814?Qh‚�³ÃÍÍÆ */
	$"B69F 866B 5340 3431 3845 5B72 8EA7 BBC8"            /* ¶Ÿ†kS@418E[rŽ§»È */
	$"CFCB C0AD 947A 604A 3A33 333D 4D65 7F99"            /* ÏËÀ­”z`J:33=Me.™ */
	$"B1C2 CCCF C7B8 A389 6D56 4235 3136 4358"            /* ±ÂÌÏǸ£‰mVB516CX */
	$"708A A4B9 C8CF CCC1 AF96 7E63 4D3B 3333"            /* pŠ¤¹ÈÏÌÁ¯–~cM;33 */
	$"3B4C 627B 96AD C1CC CFC8 BBA5 8C72 5945"            /* ;Lb{–­ÁÌÏÈ»¥ŒrYE */
	$"3831 3440 536B 859F B4C5 CDCD C5B4 9E85"            /* 814@Sk…Ÿ´ÅÍÍÅ´ž… */
	$"6A53 4034 3138 4559 718B A5B9 C8CF CCC1"            /* jS@418EYq‹¥¹ÈÏÌÁ */
	$"AF99 7F66 4F3D 3431 3948 5D76 8FA8 BCC8"            /* ¯™.fO=419H]v�¨¼È */
	$"CFCC C1AE 967E 634D 3D34 3139 485D 758F"            /* ÏÌÁ®–~cM=419H]u� */
	$"A7BB C8CF CCC1 B199 8167 513F 3431 3844"            /* §»ÈÏÌÁ±™�gQ?418D */
	$"586F 89A0 B6C6 CDCD C6B6 A28A 7058 4538"            /* Xo‰ ¶ÆÍÍƶ¢ŠpXE8 */
	$"3134 3E4E 637E 96AD BECB CFCB C0AE 987F"            /* 14>Nc~–­¾ËÏËÀ®˜. */
	$"6751 3F35 3136 4253 6A82 9BB1 C1CC CFCA"            /* gQ?516BSj‚›±ÁÌÏÊ */
	$"BEAC 967E 664F 3F34 3136 4253 6A81 99AE"            /* ¾¬–~fO?416BSj�™® */
	$"C0CB CFCB C1B1 9B82 6B56 4338 3134 3D4C"            /* ÀËÏËÁ±›‚kVC814=L */
	$"6076 8FA4 B8C6 CDCF C7BB A893 7B63 4F3F"            /* `v�¤¸ÆÍÏÇ»¨“{cO? */
	$"3531 353F 4F63 7A91 A7B9 C7CD CDC7 BBA9"            /* 515?Ocz‘§¹ÇÍÍÇ»© */
	$"947E 6752 4236 3134 3D4A 5D72 8AA0 B3C2"            /* ”~gRB614=J]rŠ ³Â */
	$"CCCF CBC1 B39F 8A72 5D4A 3D34 3135 3F4F"            /* ÌÏËÁ³ŸŠr]J=415?O */
	$"6277 8EA3 B4C3 CCCF CBC1 B3A0 8A75 604D"            /* bwŽ£´ÃÌÏËÁ³ Šu`M */
	$"3F35 3134 3D4A 5B70 869A AEBD C8CF CDC7"            /* ?514=J[p†š®½ÈÏÍÇ */
	$"BCAC 9882 6D5B 483B 3431 353E 4C5D 7186"            /* ¼¬˜‚m[H;415>L]q† */
	$"9BAE BDC8 CDCF C8BE AF9D 8974 604D 3F36"            /* ›®½ÈÍÏȾ¯�‰t`M?6 */
	$"3133 3944 5467 7B8F A3B4 C1CB CFCD C7BB"            /* 139DTg{�£´ÁËÏÍÇ» */
	$"AC99 8671 5E4D 3F36 3133 3943 5163 768A"            /* ¬™†q^M?6139CQcvŠ */
	$"9EAF BEC8 CDCF CAC1 B3A3 907C 6A57 483B"            /* ž¯¾ÈÍÏÊÁ³£�|jWH; */
	$"3431 343A 4554 677A 8CA0 B1BE C8CD CFCB"            /* 414:ETgzŒ ±¾ÈÍÏË */
	$"C2B6 A594 816D 5C4C 3F36 3133 3840 4D5D"            /* ¶¥”�m\L?6138@M] */
	$"7082 95A7 B6C2 CBCF CDC8 C0B3 A390 7E6B"            /* p‚•§¶ÂËÏÍÈÀ³£�~k */
	$"5B4A 3F36 3133 363F 4C5B 6D7F 93A3 B3C0"            /* [J?6136?L[m.“£³À */
	$"C8CD CFCB C3B8 A999 8674 6252 443A 3431"            /* ÈÍÏËø©™†tbRD:41 */
	$"3439 4351 6071 8496 A7B6 C1CA CFCF CAC2"            /* 49CQ`q„–§¶ÁÊÏÏÊ */
	$"B7A8 9886 7462 5345 3A34 3133 3942 4E5D"            /* ·¨˜†tbSE:4139BN] */
	$"6F80 93A3 B2BE C8CD CFCC C6BB AE9E 8C7B"            /* o€“£²¾ÈÍÏÌÆ»®žŒ{ */
	$"6A59 4A3F 3633 3135 3D48 5666 7689 99A9"            /* jYJ?6315=HVfv䪩 */
	$"B8C2 CBCF CFCA C2B7 A899 8776 6554 473D"            /* ¸ÂËÏÏÊ·¨™‡veTG= */
	$"3531 3336 3F4A 596A 7A8C 9DAD BBC5 CCCF"            /* 5136?JYjzŒ�­»ÅÌÏ */
	$"CDC8 C1B4 A595 8472 6152 443A 3431 3338"            /* ÍÈÁ´¥•„raRD:4138 */
	$"404D 5C6C 7E8F A0AF BDC6 CCCF CDC7 BEB1"            /* @M\l~� ¯½ÆÌÏÍǾ± */
	$"A391 806D 5D4E 4239 3331 343A 4451 6171"            /* £‘€m]NB9314:DQaq */
	$"8495 A5B4 C1C8 CDCF CBC3 B9AA 9B8A 7767"            /* „•¥´ÁÈÍÏËùª›Šwg */
	$"5648 3D35 3133 383F 4C5B 6B7E 8FA0 AFBD"            /* VH=5138?L[k~� ¯½ */
	$"C7CC CFCC C6BC AF9F 8E7B 6A58 4A3E 3631"            /* ÇÌÏÌƼ¯ŸŽ{jXJ>61 */
	$"3136 3F4C 5B6B 7E8F A0B1 BEC7 CDCF CCC5"            /* 16?L[k~� ±¾ÇÍÏÌÅ */
	$"B9AA 9A89 7663 5345 3A34 3134 3A44 5263"            /* ¹ªš‰vcSE:414:DRc */
	$"7587 9AAA B9C5 CCCF CCC7 BCAE 9D8B 7966"            /* u‡šª¹ÅÌÏÌǼ®�‹yf */
	$"5445 3A34 3134 3A45 5365 798B 9EAF BDC7"            /* TE:414:ESey‹ž¯½Ç */
	$"CDCF CBC3 B7A8 9582 6F5C 4C3F 3631 3338"            /* ÍÏË÷¨•‚o\L?6138 */
	$"424F 6174 879B ADBC C7CD CFCB C2B6 A593"            /* BOat‡›­¼ÇÍÏ˶¥“ */
	$"7F6B 5848 3D34 3134 3B47 576A 7E91 A5B6"            /* .kXH=414;GWj~‘¥¶ */
	$"C2CB CFCC C6B9 AA98 826F 5B4A 3D35 3134"            /* ÂËÏÌƹª˜‚o[J=514 */
	$"3B48 586B 8095 A8B8 C5CC CFCB C2B4 A38F"            /* ;HXk€•¨¸ÅÌÏË´£� */
	$"7A65 5243 3833 3338 4353 677B 90A5 B6C3"            /* zeRC8338CSg{�¥¶Ã */
	$"CCCF CBC2 B4A3 8E77 634F 4036 3133 3A48"            /* ÌÏË´£ŽwcO@613:H */
	$"596D 8299 ADBD C8CF CDC7 BBA9 957F 6A54"            /* Ym‚™­½ÈÏÍÇ»©•.jT */
	$"4438 3333 3945 576C 8298 ADBD C8CF CDC6"            /* D8339EWl‚˜­½ÈÏÍÆ */
	$"B8A7 917A 634F 4035 3134 3D4C 6076 8CA3"            /* ¸§‘zcO@514=L`vŒ£ */
	$"B6C3 CCCF CABE AD98 816A 5443 3831 333B"            /* ¶ÃÌÏʾ­˜�jTC813; */
	$"4A5D 748B A2B6 C5CC CFC8 BDAA 957E 6651"            /* J]t‹¢¶ÅÌÏȽª•~fQ */
	$"4035 3135 3F4F 657C 94AA BCC8 CFCC C3B4"            /* @515?Oe|”ª¼ÈÏÌô */
	$"9F87 7058 4539 3133 3B4A 5E76 8FA5 B9C7"            /* Ÿ‡pXE913;J^v�¥¹Ç */
	$"CFCD C5B6 A28A 7159 4739 3133 3D4C 6079"            /* ÏÍŶ¢ŠqYG913=L`y */
	$"91A8 BCC8 CFCC C2B2 9B82 6A53 4235 3135"            /* ‘¨¼ÈÏ̲›‚jSB515 */
	$"4053 6A82 9BB1 C2CC CFC8 BBA7 8F76 5D48"            /* @Sj‚›±ÂÌÏÈ»§�v]H */
	$"3A33 333B 4C61 7A93 AABE CACF CBBE AD95"            /* :33;Laz“ª¾ÊÏ˾­• */
	$"7B62 4D3D 3333 3A49 5E77 90A8 BCCA CFCB"            /* {bM=33:I^w�¨¼ÊÏË */
	$"C0AD 967C 634D 3B33 333A 4A60 7993 AABE"            /* À­–|cM;33:J`y“ª¾ */
	$"CBCF CBBD AA93 795E 493A 3333 3D4D 657E"            /* ËÏ˽ª“y^I:33=Me~ */
	$"98AF C1CC CFC8 B9A4 8B71 5844 3631 3540"            /* ˜¯ÁÌÏȹ¤‹qXD615@ */
	$"546C 86A0 B6C6 CDCD C3B3 9B82 674F 3E34"            /* Tl† ¶ÆÍÍó›‚gO>4 */
	$"3139 485D 7691 AABD CBCF CABD A990 765D"            /* 19H]v‘ª½ËÏʽ©�v] */
	$"4839 3134 3F51 6882 9DB3 C3CD CDC6 B49F"            /* H914?Qh‚�³ÃÍÍÆ´Ÿ */
	$"856A 533F 3431 3845 5B74 8FA8 BCCA CFCB"            /* …jS?418E[t�¨¼ÊÏË */
	$"C0AC 937A 604A 3A33 333D 4E66 7F99 B1C2"            /* À¬“z`J:33=Nf.™±Â */
	$"CCCF C7B8 A389 6F56 4336 3135 4356 6F89"            /* ÌÏǸ£‰oVC615CVo‰ */
	$"A2B8 C7CF CCC3 B19A 8167 4F3E 3431 3948"            /* ¢¸ÇÏÌñš�gO>419H */
	$"5D76 8FA8 BCCA CFCB C0AD 957B 624C 3B33"            /* ]v�¨¼ÊÏËÀ­•{bL;3 */
	$"333A 4A60 7A93 AABE CBCF CBBE AA93 7A60"            /* 3:J`z“ª¾ËÏ˾ª“z` */
	$"4C3B 3333 3A4A 6079 93AA BDCA CFCB C0AD"            /* L;33:J`y“ª½ÊÏËÀ­ */
	$"967E 634D 3D34 3139 475B 728C A4B9 C7CF"            /* –~cM=419G[rŒ¤¹ÇÏ */
	$"CDC3 B39E 866C 5643 3631 353F 5167 8099"            /* Íóž†lVC615?Qg€™ */
	$"AFC1 CCCF CABD AA94 7C63 4E3E 3431 3844"            /* ¯ÁÌÏʽª”|cN>418D */
	$"576D 869E B3C3 CCCF C8BC A893 7A62 4D3D"            /* Wm†ž³ÃÌÏȼ¨“zbM= */
	$"3431 3844 566C 859D B1C1 CCCF CABE AD98"            /* 418DVl…�±ÁÌÏʾ­˜ */
	$"8068 5342 3631 343E 4E63 7A91 A8BB C7CD"            /* €hSB614>Ncz‘¨»ÇÍ */
	$"CDC6 B8A5 8F77 614D 3E34 3136 4051 677E"            /* ÍƸ¥�waM>416@Qg~ */
	$"94AA BCC8 CFCD C6B8 A590 7A63 4F3F 3531"            /* ”ª¼ÈÏÍƸ¥�zcO?51 */
	$"343E 4D60 768E A3B6 C3CC CFCA C0AF 9D86"            /* 4>M`vŽ£¶ÃÌÏÊÀ¯�† */
	$"705B 483B 3331 3642 5165 7A91 A5B8 C5CC"            /* p[H;316BQez‘¥¸ÅÌ */
	$"CFCA C0B1 9D87 715D 4A3D 3431 353E 4C5E"            /* ÏÊÀ±�‡q]J=415>L^ */
	$"7289 9EB1 C0CA CFCD C6B9 A995 806B 5747"            /* r‰ž±ÀÊÏÍƹ©•€kWG */
	$"3A33 3136 3F4E 6075 8A9E B1C0 CACF CDC7"            /* :316?N`uŠž±ÀÊÏÍÇ */
	$"BCAD 9985 715D 4C3E 3531 343A 4757 6A7E"            /* ¼­™…q]L>514:GWj~ */
	$"93A5 B6C3 CCCF CCC6 B9A9 9682 6F5C 4A3E"            /* “¥¶ÃÌÏÌƹ©–‚o\J> */
	$"3531 333A 4554 667A 8EA0 B2C0 C8CF CDC8"            /* 513:ETfzŽ ²ÀÈÏÍÈ */
	$"C0B1 A08E 7A67 5445 3A34 3134 3D48 576A"            /* À± ŽzgTE:414=HWj */
	$"7C8F A3B3 C0C8 CFCF CAC1 B3A3 917E 6B59"            /* |�£³ÀÈÏÏÊÁ³£‘~kY */
	$"4A3E 3531 3338 424F 6072 8598 A9B8 C3CB"            /* J>5138BO`r…˜©¸ÃË */
	$"CFCD C7BD AFA0 8E7B 6858 483D 3531 3338"            /* ÏÍǽ¯ Ž{hXH=5138 */
	$"424E 5D70 8295 A5B4 C1CA CFCF CAC1 B6A7"            /* BN]p‚•¥´ÁÊÏÏÊÁ¶§ */
	$"9684 7160 4F43 3933 3134 3A45 5363 7586"            /* –„q`OC9314:EScu† */
	$"99A9 B8C3 CBCF CDC8 C1B4 A595 8271 6051"            /* ™©¸ÃËÏÍÈÁ´¥•‚q`Q */
	$"4339 3431 343A 4451 6071 8295 A5B4 C1C8"            /* C9414:DQ`q‚•¥´ÁÈ */
	$"CDCF CBC3 B9AC 9B8A 7967 5748 3E35 3131"            /* ÍÏËù¬›ŠygWH>511 */
	$"363E 4958 677A 8A9D ACB9 C3CB CFCD C8C1"            /* 6>IXgzŠ�¬¹ÃËÏÍÈÁ */
	$"B4A7 9685 7262 5245 3B34 3133 3840 4D5B"            /* ´§–…rbRE;4138@M[ */
	$"6C7E 8FA0 AFBC C6CC CFCD C7BE B2A3 9381"            /* l~� ¯¼ÆÌÏÍǾ²£“� */
	$"705E 4F43 3934 3134 3943 4F5E 6F81 93A3"            /* p^OC94149CO^o�“£ */
	$"B2BE C7CD CFCC C6BC AFA0 8F7E 6B5B 4C40"            /* ²¾ÇÍÏÌƼ¯ �~k[L@ */
	$"3833 3134 3B45 5363 7586 98A8 B6C2 CACF"            /* 8314;EScu†˜¨¶ÂÊÏ */
	$"CFCA C2B7 A899 8675 6353 453B 3431 3338"            /* ÏÊ·¨™†ucSE;4138 */
	$"404D 5D6D 7F91 A3B2 BEC8 CDCF CCC5 BBAD"            /* @M]m.‘£²¾ÈÍÏÌÅ»­ */
	$"9D8A 7967 5648 3D35 3133 3840 4D5D 6D80"            /* �ŠygVH=5138@M]m€ */
	$"93A3 B3C0 C8CD CFCB C3B8 A898 8672 6151"            /* “£³ÀÈÍÏËø¨˜†raQ */
	$"4339 3331 343B 4754 6677 8A9D ADBC C6CC"            /* C9314;GTfwŠ�­¼ÆÌ */
	$"CFCC C6BB AC9A 8976 6352 4439 3331 343D"            /* ÏÌÆ»¬š‰vcRD9314= */
	$"4857 687B 8FA0 B1BE C8CD CFCA C1B4 A493"            /* HWh{� ±¾ÈÍÏÊÁ´¤“ */
	$"7F6C 594A 3D35 3133 3944 5363 778A 9EAF"            /* .lYJ=5139DScwŠž¯ */
	$"BDC8 CDCF CAC1 B3A3 907C 6856 473A 3431"            /* ½ÈÍÏÊÁ³£�|hVG:41 */
	$"343D 4959 6C80 95A8 B8C3 CCCF CCC3 B8A8"            /* 4=IYl€•¨¸ÃÌÏÌø¨ */
	$"9480 6B58 483B 3431 343D 4A5B 6F82 98AA"            /* ”€kXH;414=J[o‚˜ª */
	$"BBC7 CDCF CAC1 B2A0 8B76 624F 4036 3133"            /* »ÇÍÏÊÁ² ‹vbO@613 */
	$"3945 566A 7E94 A8B8 C6CC CFCB C1B2 9F8A"            /* 9EVj~”¨¸ÆÌÏËÁ²ŸŠ */
	$"7560 4D3F 3531 343D 4A5C 7186 9DAF C0CA"            /* u`M?514=J\q†�¯ÀÊ */
	$"CFCD C6B8 A793 7B66 5242 3631 333A 485B"            /* ÏÍƸ§“{fRB613:H[ */
	$"6F85 9BAF C0CA CFCC C3B6 A38E 7661 4D3E"            /* o…›¯ÀÊÏÌö£ŽvaM> */
	$"3431 353F 4F63 7A90 A5B8 C6CD CFC8 BCAA"            /* 415?Ocz�¥¸ÆÍÏȼª */
	$"957E 6752 4036 3134 3D4D 6077 8FA5 B8C6"            /* •~gR@614=M`w�¥¸Æ */
	$"CDCD C7BB A891 7A63 4E3E 3431 3642 5368"            /* ÍÍÇ»¨‘zcN>416BSh */
	$"8098 ADBE CACF CCC1 B19D 846C 5643 3831"            /* €˜­¾ÊÏÌÁ±�„lVC81 */
	$"343D 4D62 7A93 A9BC C8CF CCC3 B39E 866D"            /* 4=Mbz“©¼ÈÏÌóž†m */
	$"5744 3831 343E 4E63 7C95 ACBE CACF CBC1"            /* WD814>Nc|•¬¾ÊÏËÁ */
	$"AF99 8067 513F 3431 3643 566D 869F B4C5"            /* ¯™€gQ?416CVm†Ÿ´Å */
	$"CDCF C7B8 A38B 715B 4538 3134 3E4E 657E"            /* ÍÏǸ£‹q[E814>Ne~ */
	$"96AE C1CB CFCA BCA9 9177 5E4A 3A33 333B"            /* –®ÁËÏʼ©‘w^J:33; */
	$"4C62 7A94 ACBE CBCF CABD AA93 7960 4A3A"            /* Lbz”¬¾ËÏʽª“y`J: */
	$"3333 3D4D 637C 96AE C1CC CFC8 BBA7 8F75"            /* 33=Mc|–®ÁÌÏÈ»§�u */
	$"5B47 3831 343F 5168 829B B3C3 CDCD C6B6"            /* [G814?Qh‚›³ÃÍÍƶ */
	$"A087 6D56 4235 3136 4458 708A A3B9 C7CF"            /*  ‡mVB516DXpŠ£¹ÇÏ */
	$"CCC1 AF98 7E63 4D3D 3333 3A4A 617A 95AD"            /* ÌÁ¯˜~cM=33:Jaz•­ */
	$"C0CC CFC8 BBA5 8C72 5945 3831 3540 536C"            /* ÀÌÏÈ»¥ŒrYE815@Sl */
	$"86A0 B6C6 CDCD C3B2 9B81 674F 3E34 3139"            /* † ¶ÆÍÍò›�gO>419 */
	$"485E 7793 AABE CBCF CABD A88F 765C 4738"            /* H^w“ª¾ËÏʽ¨�v\G8 */
	$"3134 3F51 6A82 9DB3 C5CD CDC6 B49F 856B"            /* 14?Qj‚�³ÅÍÍÆ´Ÿ…k */
	$"5340 3531 3845 5972 8CA5 BBC8 CFCC C1AE"            /* S@518EYrŒ¥»ÈÏÌÁ® */
	$"967E 634D 3D33 333A 4A60 7A93 ACBE CBCF"            /* –~cM=33:J`z“¬¾ËÏ */
	$"CABD A991 775E 493A 3133 3D4D 637E 96AE"            /* ʽ©‘w^I:13=Mc~–® */
	$"C1CC CFC8 BCA8 8F76 5D48 3931 333D 4D63"            /* ÁÌÏȼ¨�v]H913=Mc */
	$"7C96 ADC0 CBCF CABD AA93 7A60 4C3B 3333"            /* |–­ÀËÏʽª“z`L;33 */
	$"3A49 5E76 90A8 BCC8 CFCC C2B1 9A82 6A52"            /* :I^v�¨¼ÈÏ̱š‚jR */
	$"4035 3136 4254 6B84 9DB2 C2CC CFC8 BCA8"            /* @516BTk„�²ÂÌÏȼ¨ */
	$"9179 604C 3B33 3139 475B 718A A2B6 C5CD"            /* ‘y`L;319G[qŠ¢¶ÅÍ */
	$"CDC7 B9A5 8F76 5E4A 3B33 3139 4559 7087"            /* Íǹ¥�v^J;319EYp‡ */
	$"A0B4 C3CC CFC8 BCAA 947C 654F 3F35 3135"            /*  ´ÃÌÏȼª”|eO?515 */
	$"4051 667E 95AA BDC8 CFCC C5B6 A38B 745D"            /* @Qf~•ª½ÈÏÌŶ£‹t] */
	$"4A3B 3331 3843 546A 8198 ADBE CACF CCC5"            /* J;318CTj�˜­¾ÊÏÌÅ */
	$"B6A3 8E76 604D 3E34 3135 3F4F 637A 90A5"            /* ¶£Žv`M>415?Ocz�¥ */
	$"B8C6 CDCF C8BD AD99 826C 5845 3933 3138"            /* ¸ÆÍÏȽ­™‚lXE9318 */
	$"4354 687E 94A8 B9C7 CDCF C8BD AD99 846F"            /* CTh~”¨¹ÇÍÏȽ­™„o */
	$"5B48 3B34 3135 3F4F 6176 8CA0 B3C1 CBCF"            /* [H;415?OavŒ ³ÁËÏ */
	$"CCC5 B8A5 937C 6754 4439 3331 3842 5163"            /* ÌŸ¥“|gTD9318BQc */
	$"778C A0B3 C1CB CFCD C6B9 A996 826D 5B49"            /* wŒ ³ÁËÏÍƹ©–‚m[I */
	$"3D34 3134 3D49 596D 8195 A8B8 C5CC CFCC"            /* =414=IYm�•¨¸ÅÌÏÌ */
	$"C3B7 A794 7F6B 5848 3D34 3134 3B47 576A"            /* ÷§”.kXH=414;GWj */
	$"7E90 A3B4 C1CB CFCD C7BD AF9D 8A76 6352"            /* ~�£´ÁËÏÍǽ¯�ŠvcR */
	$"4339 3331 353E 4A5B 6C7F 93A5 B4C1 CACF"            /* C9315>J[l.“¥´ÁÊÏ */
	$"CDC8 BEB1 A08F 7A67 5647 3B34 3133 3944"            /* ÍȾ± �zgVG;4139D */
	$"5263 7689 9AAC BBC6 CCCF CCC6 BCAD 9D8A"            /* Rcv‰š¬»ÆÌÏÌƼ­�Š */
	$"7966 5647 3B34 3133 3943 5161 7285 98A8"            /* yfVG;4139CQar…˜¨ */
	$"B7C3 CBCF CDC8 C0B3 A493 816D 5D4D 4038"            /* ·ÃËÏÍÈÀ³¤“�m]M@8 */
	$"3331 353D 4756 6677 8A9B ACB9 C5CC CFCD"            /* 315=GVfwŠ›¬¹ÅÌÏÍ */
	$"C8BE B3A3 9380 6D5D 4E42 3833 3134 3B45"            /* Ⱦ³£“€m]NB8314;E */
	$"5363 7586 98A8 B6C2 CACF CFCB C2B7 A999"            /* Scu†˜¨¶ÂÊÏÏË·©™ */
	$"8776 6354 473D 3531 3338 3F4C 5B6A 7C8E"            /* ‡vcTG=5138?L[j|Ž */
	$"9FAE BCC6 CCCF CDC8 BEB3 A493 8270 604F"            /* Ÿ®¼ÆÌÏÍȾ³¤“‚p`O */
	$"433A 3431 3439 424F 5D6F 8093 A3B1 BEC7"            /* C:4149BO]o€“£±¾Ç */
	$"CDCF CCC6 BDAF A090 7E6D 5C4D 4238 3331"            /* ÍÏÌƽ¯ �~m\MB831 */
	$"343A 4451 6171 8495 A5B4 C0C8 CDCF CCC5"            /* 4:DQaq„•¥´ÀÈÍÏÌÅ */
	$"BBAD 9D8B 7A68 584A 3F36 3331 353D 4856"            /* »­�‹zhXJ?6315=HV */
	$"6777 8A9A AAB8 C3CB CFCD C8C1 B4A5 9684"            /* gwŠšª¸ÃËÏÍÈÁ´¥–„ */
	$"7161 5144 3A34 3134 3943 4F60 7182 94A5"            /* qaQD:4149CO`q‚”¥ */
	$"B4C1 C8CD CFCB C3B8 AA99 8776 6353 453B"            /* ´ÁÈÍÏËøª™‡vcSE; */
	$"3431 3339 434F 6071 8295 A5B6 C1CA CFCF"            /* 4139CO`q‚•¥¶ÁÊÏÏ */
	$"CAC1 B6A5 9582 705E 4E42 3833 3135 3D48"            /* ÊÁ¶¥•‚p^NB8315=H */
	$"5768 7B8E A0AF BDC7 CDCF CBC3 B8A9 9885"            /* Wh{Ž ¯½ÇÍÏËø©˜… */
	$"7260 4F42 3833 3135 3E4A 596B 7E91 A3B3"            /* r`OB8315>JYk~‘£³ */
	$"C1CA CFCD C8C0 B3A2 8F7C 6857 483B 3431"            /* ÁÊÏÍÈÀ³¢�|hWH;41 */
	$"343A 4556 677A 8EA0 B2C0 C8CF CDC8 C0B1"            /* 4:EVgzŽ ²ÀÈÏÍÈÀ± */
	$"A08E 7A66 5344 3933 3135 3E4C 5C70 8498"            /*  ŽzfSD9315>L\p„˜ */
	$"AAB9 C6CC CFCB C2B6 A491 7E68 5645 3A33"            /* ª¹ÆÌÏ˶¤‘~hVE:3 */
	$"3135 3F4C 5D71 869A ADBD C8CD CFC8 BEAF"            /* 15?L]q†š­½ÈÍÏȾ¯ */
	$"9D89 745E 4D3F 3531 343A 4858 6C82 96AA"            /* �‰t^M?514:HXl‚–ª */
	$"BBC7 CDCF C8BE AF9D 8671 5D4A 3D34 3135"            /* »ÇÍÏȾ¯�†q]J=415 */
	$"3E4D 5E74 8A9F B2C1 CBCF CCC3 B6A3 8F79"            /* >M^tŠŸ²ÁËÏÌö£�y */
	$"634F 3F35 3134 3D4A 5D71 899E B2C1 CBCF"            /* cO?514=J]q‰ž²ÁËÏ */
	$"CCC2 B3A0 8A74 5D4A 3D34 3136 4051 667C"            /* ̳ Št]J=416@Qf| */
	$"93A8 BBC7 CDCD C7B9 A791 7A63 4F3F 3531"            /* “¨»ÇÍÍǹ§‘zcO?51 */
	$"353F 4F63 7B93 A8BB C7CF CDC6 B8A4 8F76"            /* 5?Oc{“¨»ÇÏÍƸ¤�v */
	$"604C 3D34 3138 4456 6C84 9BB1 C1CB CFCB"            /* `L=418DVl„›±ÁËÏË */
	$"C0AE 9981 6853 4235 3135 3F4F 667E 96AD"            /* À®™�hSB515?Of~–­ */
	$"BECA CFCC C1B1 9A82 6A53 4235 3135 3F51"            /* ¾ÊÏÌÁ±š‚jSB515?Q */
	$"6780 99AF C1CB CFCA BEAC 957C 634D 3D34"            /* g€™¯ÁËÏʾ¬•|cM=4 */
	$"3138 4559 718A A3B7 C6CD CDC5 B6A0 876D"            /* 18EYqŠ£·ÆÍÍŶ ‡m */
	$"5743 3631 343F 5168 829A B1C2 CCCF C8BB"            /* WC614?Qh‚š±ÂÌÏÈ» */
	$"A58E 745B 4739 3134 3E4F 667E 98AF C1CC"            /* ¥Žt[G914>Of~˜¯ÁÌ */
	$"CFC8 BBA7 8F75 5C47 3931 343E 4F67 8099"            /* ÏÈ»§�u\G914>Og€™ */
	$"B1C2 CCCF C7B8 A38A 7158 4436 3135 4053"            /* ±ÂÌÏǸ£ŠqXD615@S */
	$"6C86 9FB6 C6CD CDC5 B39D 846A 523F 3431"            /* l†Ÿ¶ÆÍÍų�„jR?41 */
	$"3847 5B74 8FA7 BCC8 CFCB C0AD 947A 604A"            /* 8G[t�§¼ÈÏËÀ­”z`J */
	$"3A33 333D 4D65 7E99 B1C2 CCCF C7B8 A389"            /* :33=Me~™±ÂÌÏǸ£‰ */
	$"6F56 4335 3136 4357 708A A3B9 C7CF CCC1"            /* oVC516CWpŠ£¹ÇÏÌÁ */
	$"AF98 7E63 4D3B 3333 3B4C 627B 96AE C1CC"            /* ¯˜~cM;33;Lb{–®ÁÌ */
	$"CFC8 B9A5 8B71 5844 3631 3542 546D 86A0"            /* Ïȹ¥‹qXD615BTm†  */
	$"B6C6 CDCD C3B2 9B81 674F 3E34 3139 485D"            /* ¶ÆÍÍò›�gO>419H] */
	$"7690 A8BD CACF CBBE AA93 7A60 4A3A 3333"            /* v�¨½ÊÏ˾ª“z`J:33 */
	$"3D4D 637E 96AF C1CC CFC8 BBA5 8E74 5B47"            /* =Mc~–¯ÁÌÏÈ»¥Žt[G */
	$"3831 343F 5167 819A B1C2 CCCF C7B9 A48B"            /* 814?Qg�š±ÂÌÏǹ¤‹ */
	$"715B 4538 3134 3F51 6780 99B1 C1CC CFC8"            /* q[E814?Qg€™±ÁÌÏÈ */
	$"BBA7 8F76 5D48 3933 333D 4C62 7A94 AABD"            /* »§�v]H933=Lbz”ª½ */
	$"CACF CBC0 AE96 7E66 4F3E 3431 3844 586F"            /* ÊÏËÀ®–~fO>418DXo */
	$"87A0 B4C5 CDCF C7B9 A58E 755D 483A 3333"            /* ‡ ´ÅÍÏǹ¥Žu]H:33 */
	$"3A49 5D75 8EA5 B9C7 CDCD C6B6 A38A 725B"            /* :I]uŽ¥¹ÇÍÍƶ£Šr[ */
	$"4839 3333 3A48 5C74 8BA3 B7C6 CDCF C7BB"            /* H933:H\t‹£·ÆÍÏÇ» */
	$"A890 7961 4D3D 3431 3642 536A 8199 ADBE"            /* ¨�yaM=416BSj�™­¾ */
	$"CACF CCC2 B39F 8771 5B48 3A33 3339 4558"            /* ÊÏ̳Ÿ‡q[H:339EX */
	$"6D84 9BAF C0CB CFCC C2B3 A08A 725D 4A3B"            /* m„›¯ÀËÏ̳ Šr]J; */
	$"3431 3642 5267 7E94 A8BB C7CD CDC7 BCAA"            /* 416BRg~”¨»ÇÍÍǼª */
	$"967F 6A54 4438 3133 3945 576B 8198 ACBC"            /* –.jTD8139EWk�˜¬¼ */
	$"C8CD CDC7 BCAA 9681 6B57 453A 3331 3842"            /* ÈÍÍǼª–�kWE:318B */
	$"5165 7A8F A4B6 C3CC CFCC C2B4 A38F 7A65"            /* Qez�¤¶ÃÌÏÌ´£�ze */
	$"5242 3831 3339 4453 677B 90A4 B6C3 CCCF"            /* RB8139DSg{�¤¶ÃÌÏ */
	$"CCC5 B8A7 937F 6A57 473A 3431 353E 4C5C"            /* ÌŸ§“.jWG:415>L\ */
	$"7084 99AA BBC6 CDCF CBC2 B4A4 907C 6856"            /* p„™ª»ÆÍÏË´¤�|hV */
	$"473A 3431 343D 4959 6C80 94A5 B6C3 CBCF"            /* G:414=IYl€”¥¶ÃËÏ */
	$"CDC6 BBAD 9A87 7460 4F42 3833 3136 3F4C"            /* ÍÆ»­š‡t`OB8316?L */
	$"5D6F 8296 A8B7 C3CB CFCD C7BD AF9E 8A77"            /* ]o‚–¨·ÃËÏÍǽ¯žŠw */
	$"6553 453A 3431 343A 4554 6679 8B9D AEBC"            /* eSE:414:ETfy‹�®¼ */
	$"C7CC CFCC C5B9 AA9A 8776 6353 443A 3431"            /* ÇÌÏÌŹªš‡vcSD:41 */
	$"343A 4553 6376 879A AAB9 C3CC CFCD C7BE"            /* 4:EScv‡šª¹ÃÌÏÍǾ */
	$"B1A2 907E 6B5B 4C3F 3633 3135 3E49 5868"            /* ±¢�~k[L?6315>IXh */
	$"7A8C 9EAE BCC6 CCCF CCC7 BDB1 A08F 7E6B"            /* zŒž®¼ÆÌÏÌǽ± �~k */
	$"5B4C 3F38 3331 353D 4756 6676 899A AAB8"            /* [L?8315=GVfv‰šª¸ */
	$"C3CB CFCD CAC1 B4A7 9685 7262 5244 3A34"            /* ÃËÏÍÊÁ´§–…rbRD:4 */
	$"3133 3842 4D5D 6D7F 90A2 B1BD C7CC CFCC"            /* 138BM]m.�¢±½ÇÌÏÌ */
	$"C7BD B1A2 907F 6D5D 4E42 3933 3134 3A44"            /* ǽ±¢�.m]NB9314:D */
	$"5160 7182 94A5 B3C0 C8CD CFCC C5BB AE9E"            /* Q`q‚”¥³ÀÈÍÏÌÅ»®ž */
	$"8E7B 6A5B 4C3F 3833 3135 3B47 5363 7586"            /* Ž{j[L?8315;GScu† */
	$"98A8 B6C1 CACD CFCB C3B8 AA9A 8977 6656"            /* ˜¨¶ÁÊÍÏËøªš‰wfV */
	$"483D 3531 3336 3F4A 5868 7A8C 9DAD BBC5"            /* H=5136?JXhzŒ�­»Å */
	$"CCCF CDC8 C0B3 A493 8170 5E4F 4239 3331"            /* ÌÏÍÈÀ³¤“�p^OB931 */
	$"343A 4452 6274 8596 A8B6 C2CA CFCF CAC2"            /* 4:DRbt…–¨¶ÂÊÏÏÊ */
	$"B6A8 9685 7261 5144 3A34 3134 3A44 5262"            /* ¶¨–…raQD:414:DRb */
	$"7486 98A8 B8C3 CBCF CDC8 C0B3 A393 806D"            /* t†˜¨¸ÃËÏÍÈÀ³£“€m */
	$"5C4C 3F38 3331 363E 4A59 6B7E 90A3 B2C0"            /* \L?8316>JYk~�£²À */
	$"C8CD CFCB C2B6 A795 8270 5D4D 4038 3331"            /* ÈÍÏ˶§•‚p]M@831 */
	$"363F 4C5C 6D81 94A5 B6C2 CBCF CDC8 BEAF"            /* 6?L\m�”¥¶ÂËÏÍȾ¯ */
	$"9F8C 7A66 5445 3A34 3134 3D48 586A 7E91"            /* ŸŒzfTE:414=HXj~‘ */
	$"A3B4 C1CA CFCD C8BD AF9D 8A76 6351 4338"            /* £´ÁÊÏÍȽ¯�ŠvcQC8 */
	$"3331 363F 4E60 7286 9AAD BCC7 CDCF CAC1"            /* 316?N`r†š­¼ÇÍÏÊÁ */
	$"B3A2 8F7A 6653 4439 3331 3640 4F60 758A"            /* ³¢�zfSD9316@O`uŠ */
	$"9EAF BEC8 CFCD C7BC AD99 8570 5C4A 3D34"            /* ž¯¾ÈÏÍǼ­™…p\J=4 */
	$"3134 3D4A 5B70 8599 ADBD C8CD CDC8 BCAD"            /* 14=J[p…™­½ÈÍÍȼ­ */
	$"9984 6D59 483B 3431 353F 4F62 778E A3B4"            /* ™„mYH;415?ObwŽ£´ */
	$"C3CC CFCB C2B3 A08B 7660 4D3E 3431 343E"            /* ÃÌÏ˳ ‹v`M>414> */
	$"4D60 768B A2B4 C3CC CFCB C1B1 9D86 705B"            /* M`v‹¢´ÃÌÏËÁ±�†p[ */
	$"483A 3331 3843 546A 8096 ACBD C8CF CDC5"            /* H:318CTj€–¬½ÈÏÍÅ */
	$"B7A4 8F76 604D 3D34 3136 4252 677E 96AA"            /* ·¤�v`M=416BRg~–ª */
	$"BDC8 CFCC C3B6 A28A 725C 483A 3331 3945"            /* ½ÈÏÌö¢Šr\H:319E */
	$"586F 869E B3C3 CCCF CABD"                           /* Xo†ž³ÃÌÏʽ */
};

\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/Sounds/Clavichord.r b/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/Sounds/Clavichord.r
new file mode 100644
index 0000000..34a3079
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/Sounds/Clavichord.r
@@ -0,0 +1 @@
+data $8014 (0x18024) {
	$"0100 0100 0000 1600 0000 0A43 6C61 7669"            /* ...........Clavi */
	$"6368 6F72 64"                                       /* chord */
};

data $8024 (0x16) {
	$"0000 4700 E88E 0000 772B 8080 8080 8080"            /* ..G..Ž..w+€€€€€€ */
	$"8080 8080 8080 8080 8080 8080 8080 8080"            /* €€€€€€€€€€€€€€€€ */
	$"8080 8080 8080 8080 8080 8080 8080 8080"            /* €€€€€€€€€€€€€€€€ */
	$"8080 807F 7E7F 7D7A 7C7E 7E7D 7B7B 7C7C"            /* €€€.~.}z|~~}{{|| */
	$"7A7A 7B7C 7B7C 8383 8080 8583 828B 8F90"            /* zz{|{|ƒƒ€€…ƒ‚‹�� */
	$"9797 948E 827C 7B7C 7F7D 7778 7B7C 7975"            /* ——”Ž‚|{|.}wx{|yu */
	$"726E 6E6D 6B6A 6B6E 7173 797D 7A75 706E"            /* rnnmkjknqsy}zupn */
	$"7072 7070 7680 8585 8787 878B 8F90 8F8A"            /* prppv€……‡‡‡‹���Š */
	$"8687 8E93 989A 8D81 8788 7C78 7876 7C81"            /* †‡Ž“˜š��‡ˆ|xxv|� */
	$"7770 6F73 8087 857A 7576 808A 8B84 8793"            /* wpos€‡…zuv€Š‹„‡“ */
	$"9697 9D9D 9A9F A3A5 9C8B 8181 858C 8F87"            /* –—��šŸ£¥œ‹��…Œ�‡ */
	$"7E7D 7F7A 7166 6165 6B71 7270 6B66 6265"            /* ~}.zqfaekqrpkfbe */
	$"6F74 6A62 6569 6C72 706F 7B82 807A 6C64"            /* otjbeilrpo{‚€zld */
	$"6A77 7F80 7A72 707A 7F80 7F75 6C75 7C72"            /* jw.€zrpz.€.ulu|r */
	$"6D71 7079 8075 6B62 6677 8789 7F7A 7982"            /* mqpy€ukbfw‡‰.zy‚ */
	$"9399 9190 989D 9FA5 A5A7 ABAE B3B0 A297"            /* “™‘�˜�Ÿ¥¥§«®³°¢— */
	$"9290 969D 988D 8A88 8783 7B76 7474 7779"            /* ’�–�˜�Šˆ‡ƒ{vttwy */
	$"7A77 6F67 646C 7774 6A6B 6E6E 7373 6F78"            /* zwogdlwtjknnssox */
	$"8184 8177 6A68 727E 8686 7F77 7B83 8787"            /* �„�wjhr~††.w{ƒ‡‡ */
	$"8072 7780 7974 736C 727A 756C 615E 6776"            /* €rw€ytslrzula^gv */
	$"7D7D 746D 707F 8A88 858B 8B89 8F92 999D"            /* }}tmp.Šˆ…‹‹‰�’™� */
	$"A0A6 A69B 9186 7F84 8E8D 847E 7C7C 7A77"            /*  ¦¦›‘†.„Ž�„~||zw */
	$"7572 6F70 7277 7773 6C66 6C7E 8376 7175"            /* uroprwwslfl~ƒvqu */
	$"767D 7F7A 7D86 8E90 8B80 7574 7E88 8D8B"            /* v}.z}†Ž�‹€ut~ˆ�‹ */
	$"807D 868D 918C 7C7B 827D 7B78 7073 7779"            /* €}†�‘Œ|{‚}{xpswy */
	$"736A 6769 727E 857D 7372 7D8B 8C8A 8F8E"            /* sjgir~…}sr}‹ŒŠ�Ž */
	$"8D8E 9299 A0A2 A5A5 A19A 8C81 7F86 8B89"            /* �Ž’™ ¢¥¥¡šŒ�.†‹‰ */
	$"837E 7E7A 777A 7B7B 7974 6F6F 6E65 5B5B"            /* ƒ~~zwz{{ytoone[[ */
	$"6A79 7065 6364 6B72 7371 757F 8183 8170"            /* jypecdkrsqu.�ƒ�p */
	$"6A6A 6E78 7A6F 696C 7685 8073 7275 7579"            /* jjnxzoilv…€sruuy */
	$"746F 6C72 7979 7674 7173 828A 8A7E 747F"            /* tolryyvtqs‚ŠŠ~t. */
	$"8E93 9697 9A9E A1A6 AEB4 B9BA B3B0 A694"            /* Ž“–—šž¡¦®´¹º³°¦” */
	$"8580 858F 908C 8582 7D7A 8288 8C8A 7E7A"            /* …€…��Œ…‚}z‚ˆŒŠ~z */
	$"7B78 7065 5A63 7370 6866 6872 7D80 7F7D"            /* {xpeZcsphfhr}€.} */
	$"8287 8A8D 8273 6F70 757B 7466 6168 767B"            /* ‚‡Š�‚sopu{tfahv{ */
	$"7470 7071 7374 6F69 6C72 7473 7268 636E"            /* tppqstoilrtsrhcn */
	$"777D 7668 6977 7E83 888D 9092 969C A8B2"            /* w}vhiw~ƒˆ��’–œ¨² */
	$"B1AB A59B 8A79 6E6F 7A82 8686 8180 838C"            /* ±«¥›Šynoz‚††�€ƒŒ */
	$"99A1 9888 8080 807D 7265 636C 716A 696E"            /* ™¡˜ˆ€€€}reclqjin */
	$"7782 8B8D 8B8D 9199 9D95 8477 7272 797A"            /* w‚‹�‹�‘™�•„wrryz */
	$"7063 6371 7A76 726F 6D71 7372 6D6D 6F71"            /* pccqzvromqsrmmoq */
	$"7473 6B67 6A71 7C78 6762 6C77 8088 8E93"            /* tskgjq|xgblw€ˆŽ“ */
	$"9495 9DA8 B4B8 B4AD A193 8174 7077 8287"            /* ”•�¨´¸´­¡“�tpw‚‡ */
	$"8885 8184 8C9A A49D 8C80 7D7B 7870 635B"            /* ˆ…�„Œš¤�Œ€}{xpc[ */
	$"5E64 6263 686E 7782 8585 8586 8E95 9488"            /* ^dbchnw‚………†Ž•”ˆ */
	$"7A70 6D6F 7674 6661 6E79 7B78 716F 7276"            /* zpmovtfany{xqorv */
	$"7775 7271 7175 7773 7172 7581 8272 6A70"            /* wurqquwsqru�‚rjp */
	$"7A83 8C92 9698 989E A9B4 B8B7 B0A1 9485"            /* zƒŒ’–˜˜ž©´¸·°¡”… */
	$"756D 727A 7F84 8581 848B 96A1 A091 837E"            /* umrz.„…�„‹–¡ ‘ƒ~ */
	$"7B77 7269 5F5A 5E60 6369 6E76 8086 8887"            /* {wri_Z^`cinv€†ˆ‡ */
	$"8488 9194 8D82 7871 6F75 786F 656D 797D"            /* „ˆ‘”�‚xqouxoemy} */
	$"7B75 706F 7375 7372 6C6A 6F71 6E6E 7171"            /* {uposusrljoqnnqq */
	$"7B82 7468 6B72 7A84 888A 8E8E 92A0 ABAE"            /* {‚thkrz„ˆŠŽŽ’ «® */
	$"B2B1 A69A 8D7D 7274 7B80 888A 878B 9197"            /* ²±¦š�}rt{€ˆŠ‡‹‘— */
	$"A1A3 968A 847E 7A76 6F68 6160 6164 686D"            /* ¡£–Š„~zvoha`adhm */
	$"757D 8387 8682 858D 908E 867C 7772 6F76"            /* u}ƒ‡†‚…��Ž†|wrov */
	$"7267 6C77 7A79 756D 6A70 7272 716C 676B"            /* rglwzyumjprrqlgk */
	$"6D6A 6E70 707A 8377 6B6B 6F78 8286 898B"            /* mjnppzƒwkkox‚†‰‹ */
	$"8C90 9CA5 AAAE AFA8 9C8F 8072 7074 7A83"            /* Œ�œ¥ª®¯¨œ�€rptzƒ */
	$"8685 8A90 959D A197 8E86 7F7D 7871 6D68"            /* †…Š�•�¡—Ž†.}xqmh */
	$"6464 666A 6F79 7E83 8988 8486 8B8E 8E8A"            /* ddfjoy~ƒ‰ˆ„†‹ŽŽŠ */
	$"8380 7973 7875 6C6E 797E 7F7A 736F 7176"            /* ƒ€ysxulny~.zsoqv */
	$"7875 6C6A 6A69 6868 6668 717C 806F 6C71"            /* xuljjihhfhq|€olq */
	$"7990 9DA9 A393 8B97 A6A2 A2AB A594 8271"            /* y��©£“‹—¦¢¢«¥”‚q */
	$"5C55 5B65 787B 6F6F 7A80 8696 9B94 8C8A"            /* \U[ex{ooz€†–›”ŒŠ */
	$"8F87 7A77 808A 8573 7D80 7E7E 7F7D 7173"            /* �‡zw€Š…s}€~~.}qs */
	$"8491 8179 838C 7F84 898E 8D90 9190 7969"            /* „‘�yƒŒ.„‰Ž��‘�yi */
	$"6C77 7479 8980 6861 6063 6A66 666F 726B"            /* lwty‰€ha`cjffork */
	$"6E71 615B 6C76 7774 7676 756F 7C92 A19C"            /* nqa[lvwtvvuo|’¡œ */
	$"91A2 9083 7B77 5952 688F 9C92 8FA3 AFA8"            /* ‘¢�ƒ{wYRh�œ’�£¯¨ */
	$"C1C6 C1B5 BDBD AB82 6D71 7874 787B 6653"            /* ÁÆÁµ½½«‚mqxtx{fS */
	$"565F 656E 6A6A 7672 6A70 7977 7684 8875"            /* V_enjjvrjpywv„ˆu */
	$"6169 777D 8088 8C88 7471 8675 6C68 7053"            /* aiw}€ˆŒˆtq†ulhpS */
	$"434A 646F 7279 8779 5D6F 858F 93A9 B0A3"            /* CJdory‡y]o…�“©°£ */
	$"877F 93A2 9FAA B6A3 887B 746D 6D72 7F89"            /* ‡.“¢Ÿª¶£ˆ{tmmr.‰ */
	$"8579 859D A7A5 AAA2 8D7D 858A 7A6D 6F79"            /* …y…�§¥ª¢�}…Šzmoy */
	$"795E 5867 6369 7482 6756 5E81 938D 8698"            /* y^Xgcit‚gV^�“�†˜ */
	$"8D77 88A3 A493 9CAA A78D 7B7D 7B70 7D8E"            /* �wˆ£¤“œª§�{}{p}Ž */
	$"7A57 484E 5151 5252 5357 5666 706F 6973"            /* zWHNQQRRSWVfpois */
	$"7777 7279 8180 8593 AEB6 9B99 A2A5 9A8E"            /* wwry�€…“®¶›™¢¥šŽ */
	$"8765 5866 8998 8E8D ABA5 959B AFB1 A6B3"            /* ‡eXf‰˜Ž�«¥•›¯±¦³ */
	$"BEA9 7B62 686F 6770 796D 5B5A 616C 6B70"            /* ¾©{bhogpym[Zalkp */
	$"7381 8071 717A 8181 8A88 7760 6470 7B7A"            /* s�€qqz��Šˆw`dp{z */
	$"7580 8268 6C74 7463 6068 5544 435C 6F6D"            /* u€‚hlttc`hUDC\om */
	$"7896 8973 748E A1A3 B2BE B499 8D9C A79D"            /* x–‰stŽ¡£²¾´™�œ§� */
	$"A0AA AA97 8271 7173 7E73 807C 777E 909B"            /*  ªª—‚qqs~s€|w~�› */
	$"9396 9A8F 7F7C 8176 5D4D 5F68 5349 5261"            /* “–š�.|�v]M_hSIRa */
	$"6066 766C 565B 7E98 8583 968D 848D A6AB"            /* `fvlV[~˜…ƒ–�„�¦« */
	$"9FA2 B3B5 A385 7368 6473 827D 6551 5160"            /* Ÿ¢³µ£…shds‚}eQQ` */
	$"6E5F 4648 4F4F 5361 7A7D 8493 9992 8B91"            /* n_FHOOSaz}„“™’‹‘ */
	$"908B 88A3 A68B 8095 AEA6 8F82 7664 687E"            /* �‹ˆ£¦‹€•®¦�‚vdh~ */
	$"9784 8999 9E94 94A5 B8B5 B9C4 B78F 5F48"            /* —„‰™ž””¥¸µ¹Ä·�_H */
	$"4B58 616A 757B 808B 9C9D 8679 807C 6754"            /* KXaju{€‹œ�†y€|gT */
	$"5977 8B95 9C94 7C68 727A 6E52 5F5D 4F49"            /* Yw‹•œ”|hrznR_]OI */
	$"5966 655C 6564 4D39 4664 626F 7E85 8488"            /* Yfe\edM9Fdbo~…„ˆ */
	$"9BBC CACF D5CB AF86 797F 8786 94A3 AB9C"            /* ›¼ÊÏÕ˯†y.‡†”£«œ */
	$"9294 927D 696C 6E5F 556A 8C9D 9FA7 A595"            /* ’”’}iln_UjŒ�Ÿ§¥• */
	$"8986 7B5C 3E4E 5C57 4D5D 737E 828D 866A"            /* ‰†{\>N\WM]s~‚�†j */
	$"5A73 8E7F 7471 7C8A 98A4 BAB3 B0BC C1A2"            /* ZsŽ.tq|Š˜¤º³°¼Á¢ */
	$"6B4F 505B 616B 6F7B 777A 8585 6443 404B"            /* kOP[ako{wz……dC@K */
	$"4A4A 5C78 888A 9BA6 9D8C 868D 7E6B 7D85"            /* JJ\xˆŠ›¦�Œ†�~k}… */
	$"7A74 899A 9C88 8074 6351 6D8E 8777 7D95"            /* zt‰šœˆ€tcQmŽ‡w}• */
	$"A8AA ABBC C3C9 D2C7 9656 3E4B 6163 666E"            /* ¨ª«¼ÃÉÒÇ–V>Kacfn */
	$"848F 9CA6 9D7D 6B6F 705E 4C51 6E8A 919C"            /* „�œ¦�}kop^LQnŠ‘œ */
	$"947E 7177 8672 585B 615D 5B65 727C 716F"            /* ”~qw†rX[a][er|qo */
	$"6952 3344 646A 6A71 8594 9B9C B4C5 CDD2"            /* iR3Ddjjq…”›œ´ÅÍÒ */
	$"CEAC 7F6C 7582 8686 899A 9894 9591 7869"            /* ά.lu‚††‰š˜”•‘xi */
	$"737D 6A5D 688B 9896 9E9D 948B 8881 5C41"            /* s}j]h‹˜–ž�”‹ˆ�\A */
	$"4B5A 5755 6271 8288 8A7F 6659 7587 7D6A"            /* KZWUbq‚ˆŠ.fYu‡}j */
	$"6273 8FA5 A7AD ACB4 C1C6 A77A 5E5E 6A72"            /* bs�¥§­¬´ÁƧz^^jr */
	$"6767 7B83 878F 865B 3F42 5453 545E 787A"            /* gg{ƒ‡�†[?BTST^xz */
	$"8091 9997 8A8F 8F7A 6973 7973 788A 9192"            /* €‘™—Š��zisysxŠ‘’ */
	$"8A7F 7261 5E7B 938C 7976 8DA7 B3AE B4BB"            /* Š.ra^{“Œyv�§³®´» */
	$"CAD1 C898 6146 4D62 695C 5E72 899A A99C"            /* ÊÑȘaFMbi\^r‰š©œ */
	$"7C6E 706E 5D51 5266 758C 988F 837A 878B"            /* |npn]QRfuŒ˜�ƒz‡‹ */
	$"7967 635D 5662 7377 7A7A 7466 4A34 425C"            /* ygc]VbswzztfJ4B\ */
	$"6968 707E 919D A4AC BAC7 D5D4 B187 7173"            /* ihp~‘�¤¬ºÇÕÔ±‡qs */
	$"868C 827D 848C 939F 957D 7480 806D 636D"            /* †Œ‚}„Œ“Ÿ•}t€€mcm */
	$"7B80 8D98 958E 878E 805D 4947 4B4A 6073"            /* {€�˜•Ž‡Ž€]IGKJ`s */
	$"767C 8E8E 8369 6574 807D 6E66 6C87 AAB9"            /* v|ŽŽƒiet€}nfl‡ª¹ */
	$"AFAA B0C6 C9AE 896B 606C 7168 626A 7583"            /* ¯ª°ÆÉ®‰k`lqhbjuƒ */
	$"9482 573E 4952 545F 6F6D 697A 9096 9490"            /* ”‚W>IRT_omiz�–”� */
	$"9C94 7A6E 6F6D 6A82 958B 8082 7C71 5F62"            /* œ”znomj‚•‹€‚|q_b */
	$"7C8E 8879 787E 94AF BCB5 B2BA D0C6 9F70"            /* |Žˆyx~”¯¼µ²ºÐÆŸp */
	$"5354 6974 6E63 6A7F 9BB3 A586 7577 6E5E"            /* STitncj.›³¥†uwn^ */
	$"5A5F 606B 8999 8D7C 7A8B 8976 6C62 524C"            /* Z_`k‰™�|z‹‰vlbRL */
	$"667D 7870 7273 633D 3043 5862 6E7B 7A7F"            /* f}xprsc=0CXbn{z. */
	$"99B0 B1B1 BFD7 D0B2 8C79 7788 918B 776C"            /* ™°±±¿×вŒywˆ‘‹wl */
	$"6F85 9D97 8782 8D82 716F 7772 778F 9B95"            /* o…�—‡‚�‚qowrw�›• */
	$"8886 9384 6252 4D47 4D6A 8178 7682 8C7F"            /* ˆ†“„bRMGMj�xv‚Œ. */
	$"6464 777B 746E 6968 7AA5 C0B3 A3AE C6C5"            /* ddw{tnihz¥À³£®ÆÅ */
	$"B090 7769 7278 7264 5D64 7E93 805B 4750"            /* °�wirxrd]d~“€[GP */
	$"535D 6D75 6460 798F 9288 8C9C 937A 726D"            /* S]mud`y�’ˆŒœ“zrm */
	$"666E 8898 856E 6E79 705E 708D 8D85 817E"            /* fnˆ˜…nnyp^p��…�~ */
	$"7A8A AFC4 B8B1 BBCC C19F 7560 596C 7973"            /* zŠ¯Ä¸±»ÌÁŸu`Ylys */
	$"615F 6E92 ABA3 8C7B 7C6E 6257 5950 6586"            /* a_n’«£Œ{|nbWYPe† */
	$"988E 7A7C 9391 817D 7165 6B80 9385 6D6F"            /* ˜Žz|“‘�}qek€“…mo */
	$"7C61 393D 5259 6176 7672 7490 ACAB A6AF"            /* |a9=RYavvrt�¬«¦¯ */
	$"C0BA 9C73 5654 7271 5F4E 5062 8293 8F8D"            /* ÀºœsVTrq_NPb‚“�� */
	$"8E94 8F8C 8E99 8D92 A3A9 A59A 9FB2 B098"            /* Ž”�ŒŽ™�’£©¥šŸ²°˜ */
	$"8679 6D77 9399 816F 767B 6651 5C5F 513C"            /* †ymw“™�ov{fQ\_Q< */
	$"3A37 3447 759D A9A3 9CA5 A092 7C6F 6B85"            /* :74Gu�©£œ¥ ’|ok… */
	$"8982 796B 6082 A69E 8079 909C 9E8A 8D87"            /* ‰‚yk`‚¦ž€y�œžŠ�‡ */
	$"8792 A29B 878E A191 6F55 484A 5668 6B52"            /* ‡’¢›‡Ž¡‘oUHJVhkR */
	$"4256 5F47 2E40 5462 656F 7278 8AAB B2A8"            /* BV_G.@TbeorxŠ«²¨ */
	$"B0C3 D5CF C5AE 9E8A 8E91 8B7E 7574 92B5"            /* °ÃÕÏÅ®žŠŽ‘‹~ut’µ */
	$"BBAC 9488 7056 4654 5D65 7C9A 926F 7176"            /* »¬”ˆpVFT]e|š’oqv */
	$"634E 4C57 636A 7284 7356 5461 4B33 4664"            /* cNLWcjr„sVTaK3Fd */
	$"8591 8A7C 8088 A5BB BFC4 CDE1 DDC4 9877"            /* …‘Š|€ˆ¥»¿ÄÍ..Ęw */
	$"7283 877C 635A 607A 9998 877F 837D 777A"            /* rƒ‡|cZ`z™˜‡.ƒ}wz */
	$"8082 858B 8B83 6F79 8781 747C 7661 626E"            /* €‚…‹‹ƒoy‡�t|vabn */
	$"7C74 6167 7971 6870 7065 5043 445D 6D89"            /* |tagyqhppePCD]m‰ */
	$"B2C4 BBB9 B6AD 9D7C 6983 968F 8881 6855"            /* ²Ä»¹¶­�|iƒ–�ˆ�hU */
	$"6A86 7E6D 6C8E A28A 7472 7478 848B 8672"            /* j†~mlŽ¢Štrtx„‹†r */
	$"829A 8E6A 5756 535F 675E 525C 697B 6450"            /* ‚šŽjWVS_g^R\i{dP */
	$"637B 7873 7F8B 9CAD BCC5 C4C0 CDD8 CDB8"            /* c{xs.‹œ­¼ÅÄÀÍØ͸ */
	$"AFA5 A198 8986 876E 5E79 98A5 A093 7F5F"            /* ¯¥¡˜‰†‡n^y˜¥ “._ */
	$"362C 424D 475B 797D 6960 5B53 4440 505E"            /* 6,BMG[y}i`[SD@P^ */
	$"6571 7976 655A 5B49 3D46 6D93 9A90 888D"            /* eqyveZ[I=Fm“š�ˆ� */
	$"A2B4 C9D4 D5E4 F4E8 BD8C 7476 817A 6348"            /* ¢´ÉÔÕ...½Œtv�zcH */
	$"353B 6C8B 8678 8282 6F58 5A68 717A 817B"            /* 5;l‹†x‚‚oXZhqz�{ */
	$"6550 5A63 5F6E 878F 8678 8291 9893 949F"            /* ePZc_n‡�†x‚‘˜“”Ÿ */
	$"9D95 9797 8667 5D73 8B93 96AD CBDA E3D5"            /* �•——†g]s‹“–­Ë..Õ */
	$"BFA1 8275 7D7C 726B 6A4D 3140 4B44 3D5A"            /* ¿¡‚u}|rkjM1@KD=Z */
	$"7275 655A 5B65 6E78 7E74 7181 8776 6667"            /* rueZ[enx~tq�‡vfg */
	$"6E79 8080 6C65 708A A595 7E89 A1A2 968C"            /* ny€€lepŠ¥•~‰¡¢–Œ */
	$"9398 A8BC C0BC B3B7 B3AC 9E96 8E88 756F"            /* “˜¨¼À¼³·³¬ž–Žˆuo */
	$"6F6B 5343 5C7A 8384 8268 4027 354D 5A55"            /* okSC\zƒ„‚h@'5MZU */
	$"566B 808D 907C 6A72 828A 8E8C 8891 9A90"            /* Vk€��|jr‚ŠŽŒˆ‘š� */
	$"7D6C 493F 5B8B A4A1 8E8A 95A1 AFB7 BDC6"            /* }lI?[‹¤¡ŽŠ•¡¯·½Æ */
	$"CFCC BA91 6D5C 6B6F 6650 341D 295E 8288"            /* Ï̺‘m\kofP4.)^‚ˆ */
	$"8595 8970 5C69 6B74 8C96 836C 6266 636B"            /* …•‰p\iktŒ–ƒlbfck */
	$"90AC A896 9297 969B 9694 9783 7D7E 7B64"            /* �¬¨–’—–›–”—ƒ}~{d */
	$"5458 666F 6C6A 77A1 C7DC C39F 7E6E 6571"            /* TXfoljw¡Ç.ß~neq */
	$"756A 666A 513C 423C 3E57 8593 8A6F 6A79"            /* ujfjQ<B<>W…“Šojy */
	$"8CA2 A694 868D 9085 7D82 8386 8D85 6E50"            /* Œ¢¦”†��…}‚ƒ†�…nP */
	$"4859 7485 7C76 7A7E 7A78 7C80 7C90 A8A0"            /* HYt…|vz~zx|€|�¨  */
	$"A2A9 AFA3 999E A9A0 9190 9896 9179 687F"            /* ¢©¯£™ž© ‘�˜–‘yh. */
	$"9197 A1A3 7E57 4C5B 625F 6262 6C7A 928A"            /* ‘—¡£~WL[b_bblz’Š */
	$"6C5D 6979 7D7C 726B 7477 6E61 3F1F 2C4F"            /* l]iy}|rktwna?.,O */
	$"788F 8B7A 8593 A8BC B3B9 D8E7 DBC3 A787"            /* x�‹z…“¨¼³¹Ø..ç‡ */
	$"7887 927F 5B40 3645 6C8A 949B 9884 726A"            /* x‡’.[@6ElŠ”›˜„rj */
	$"6B62 7193 8F73 5850 4A3D 558E AF99 8990"            /* kbq“�sXPJ=UŽ¯™‰� */
	$"9193 9089 8C85 7680 8675 5E5F 6E76 6E6E"            /* ‘“�‰Œ…v€†u^_nvnn */
	$"7784 A8DD EFD0 AD8E 7A74 7A80 7979 715A"            /* w„¨..ЭŽztz€yyqZ */
	$"4A3E 353D 587B 9184 6568 7486 A5A0 857A"            /* J>5=X{‘„eht†¥ …z */
	$"8586 7773 7D86 878B 7F64 4B4C 6075 767E"            /* …†ws}†‡‹.dKL`uv~ */
	$"9190 827E 878F 8B8E A4AC 9B97 ABA6 8478"            /* ‘�‚~‡�‹Ž¤¬›—«¦„x */
	$"96A3 8F87 9394 937F 5A4D 5A77 828B 8975"            /* –£�‡“”“.ZMZw‚‹‰u */
	$"5958 6464 6C7B 7B82 9AB2 A689 7882 988D"            /* YXddl{{‚š²¦‰x‚˜� */
	$"746C 8487 7A6F 5F3C 282F 4158 6A68 646D"            /* tl„‡zo_<(/AXjhdm */
	$"829D 9B9A A7CD DECA A79F 9B94 9592 7D5F"            /* ‚�›š§Í.ʧŸ›”•’}_ */
	$"5342 3E54 85A0 9985 8284 7E67 5463 818C"            /* SB>T… ™…‚„~gTc�Œ */
	$"7460 665B 4063 99B5 A698 8E98 ABAD A28B"            /* t`f[@c™µ¦˜Ž˜«­¢‹ */
	$"7278 9386 5543 627D 6D56 6276 7F89 AEB3"            /* rx“†UCb}mVbv.‰®³ */
	$"A894 776E 8089 7E84 7770 6E65 494A 6384"            /* ¨”wn€‰~„wpneIJc„ */
	$"97A0 8C81 887E 7F9C B8A7 8681 8F8E 8A7E"            /* — Œ�ˆ~.œ¸§†��ŽŠ~ */
	$"776E 797C 655B 6778 705D 6285 8973 6884"            /* wny|e[gxp]b…‰sh„ */
	$"9C9F 9897 999E ACB3 8C75 8A9D 947F 8AA0"            /* œŸ˜—™ž¬³ŒuŠ�”.Š  */
	$"9C7A 604F 5968 8292 A29C 7F63 575F 5E60"            /* œz`OYh‚’¢œ.cW_^` */
	$"6377 8F97 9189 7473 7C7D 6866 8086 7262"            /* cw�—‘‰ts|}hf€†rb */
	$"6968 370A 162D 4A5B 6578 8C95 989B 98AF"            /* ih7..-J[exŒ•˜›˜¯ */
	$"DAE2 C9BF C2B8 A49A 948A 6F48 3853 6F8D"            /* ..ɿ¸¤š”ŠoH8So� */
	$"9289 8F9D 9272 5650 6980 8A86 7F6D 5040"            /* ’‰��’rVPi€Š†.mP@ */
	$"548A A697 8EA2 BBBE AC92 7B73 7C7D 7167"            /* TŠ¦—Ž¢»¾¬’{s|}qg */
	$"6373 7569 697A 7A75 829F B7AE 9488 8E92"            /* csuiizzu‚Ÿ·®”ˆŽ’ */
	$"8776 7277 6D5B 5A64 6C6A 7171 797C 705F"            /* ‡vrwm[Zdljqqy|p_ */
	$"5B79 99AB 8B6C 7D8D 7D6E 6B64 6868 6D76"            /* [y™«‹l}�}nkdhhmv */
	$"7A6C 614E 3A5C 7F7D 6D7A A2B7 AB8F 8A9B"            /* zlaN:\.}mz¢·«�Š› */
	$"A4A7 B0A8 9794 8D93 A3A6 9E92 8067 6973"            /* ¤§°¨—”�“£¦ž’€gis */
	$"87A8 B7B2 9D79 5559 6562 5771 969A 8A78"            /* ‡¨·²�yUYebWq–šŠx */
	$"7770 6872 7572 646C 6A69 7172 612E 080D"            /* wphrurdljiqra.. */
	$"3956 6887 A0A3 9285 8FA6 B3CD DAE4 DFD9"            /* 9Vh‡ £’…�¦³Í.... */
	$"C8A5 8F86 7F6D 5853 5A68 6774 919C 9072"            /* È¥�†.mXSZhgt‘œ�r */
	$"5D4B 5470 8199 8F75 5C30 2543 6B7A 6F87"            /* ]KTp�™�u\0%Ckzo‡ */
	$"A7BA BD91 6B55 5368 8599 7D60 5B70 8B8F"            /* §º½‘kUSh…™}`[p‹� */
	$"867C 7981 A8D1 D0CB B5A2 A08F 878E 886F"            /* †|y�¨ÑÐ˵¢ �‡Žˆo */
	$"5975 9085 745E 5858 5255 7084 8387 8570"            /* Yu�…t^XXRUp„ƒ‡…p */
	$"809C 8D70 5C52 586E 7595 956E 5949 4047"            /* €œ�p\RXnu••nYI@G */
	$"535F 667B 93B0 C8A0 8181 8BA5 CEEC CF9A"            /* S_f{“°È ��‹¥Î.Ïš */
	$"7778 AAB9 A69A 836E 6679 88AE B799 9885"            /* wxª¹¦šƒnfyˆ®·™˜… */
	$"6351 4135 3355 7C96 9977 6855 4255 7F93"            /* cQA53U|–™whUBU.“ */
	$"7F69 606A 8B82 6A51 2C0E 1A49 6B93 998D"            /* .i`j‹‚jQ,..Ik“™� */
	$"9284 88A7 A4A3 C7F7 FEF7 ECC3 A17E 646D"            /* ’„ˆ§¤£Ç....á~dm */
	$"7D7B 6E60 585A 7A88 8778 5B45 4358 7DAB"            /* }{n`XZzˆ‡x[ECX}« */
	$"A781 7D63 3A37 3D56 6A7D A2C7 D3B2 8855"            /* §�}c:7=Vj}¢ÇÓ²ˆU */
	$"3359 95B6 AD81 5E59 716D 6E6F 6F72 87B4"            /* 3Y•¶­�^Yqmnoor‡´ */
	$"DEE7 C9A9 A188 777A 6362 6476 8FA0 885E"            /* ..É©¡ˆwzcbdv� ˆ^ */
	$"4A3B 3143 6586 877D 7C72 6670 958C 7369"            /* J;1Ce†‡}|rfp•Œsi */
	$"6978 8F9F 9E8E 7858 4337 344E 6784 9FB5"            /* ix�ŸžŽxXC74Ng„Ÿµ */
	$"B3A4 8A6F 6A8C B9EC ECC1 947C 7A84 9090"            /* ³¤ŠojŒ¹..Á”|z„�� */
	$"9281 6F7B 9A9C A3AB A48C 735B 423E 3E58"            /* ’�o{šœ£«¤Œs[B>>X */
	$"7593 9382 6E5C 3A44 79A5 957B 7575 7576"            /* u““‚n\:Dy¥•{uuuv */
	$"7763 4830 263C 687C 7E81 837F 808B 8E94"            /* wcH0&<h|~�ƒ.€‹Ž” */
	$"B4EA FFFF F0CE A87F 5A60 7F8A 7A75 645E"            /* ´....Ψ.Z`.Šzud^ */
	$"5A58 656C 6952 4154 7D94 918E 8A81 6D48"            /* ZXeliRAT}”‘ŽŠ�mH */
	$"354A 6880 91BB C5B5 9E6E 393E 84BE B6A1"            /* 5Jh€‘»Åµžn9>„¾¶¡ */
	$"8872 5744 5361 6D72 7FB0 D7D8 BBB7 B098"            /* ˆrWDSamr.°×Ø»·°˜ */
	$"8374 6B70 798B 99A2 9172 552E 1B35 5E6F"            /* ƒtkpy‹™¢‘rU..5^o */
	$"6B7A 8275 524B 7992 8D76 7C9D A799 878D"            /* kz‚uRKy’�v|�§™‡� */
	$"8577 6946 2B4B 7285 98B3 AC89 725A 607D"            /* …wiF+Kr…˜³¬‰rZ`} */
	$"A8C8 CEC9 B79C 796A 7579 848D 92AC BCAC"            /* ¨ÈÎÉ·œyjuy„�’¬¼¬ */
	$"95AD B7AC 956F 5F60 4C44 627A 8167 5A4B"            /* •­·¬•o_`LDbz�gZK */
	$"3B3C 597C 704F 4A56 3335 5871 6D36 3169"            /* ;<Y|pOJV35Xqm61i */
	$"766E 7491 9E97 9C99 99AB CFF4 FFFF FFFF"            /* vnt‘ž—œ™™«Ï..... */
	$"E5BD A48D 8281 6F6D 6956 3B2A 2623 2015"            /* .½¤�‚�omiV;*&# . */
	$"1F4A 6669 615F 5B66 6B55 5964 7785 8590"            /* .Jfia_[fkUYdw……� */
	$"A9A2 A1A2 989B 9ACF F0DC B8A3 8267 6076"            /* ©¢¡¢˜›šÏ..¸£‚g`v */
	$"815F 83BB B69C 839E C9AD 7F58 5358 4E5A"            /* �_ƒ»¶œƒžÉ­.XSXNZ */
	$"7579 7465 4826 0F01 1B49 596C 6976 785D"            /* uyteH&...IYlivx] */
	$"6286 9697 B4E5 E5B8 AA98 8478 696C 8383"            /* b†–—´..¸ª˜„xilƒƒ */
	$"98AA 9890 8475 6D5E 7295 959D B1AA 9885"            /* ˜ª˜�„um^r••�±ª˜… */
	$"867D 4E57 7572 7F89 7E7A 7C9A C2B9 AB7C"            /* †}NWur.‰~z|šÂ¹«| */
	$"6568 5961 7281 9C93 766F 727C 8792 A6AD"            /* ehYar�œ“vor|‡’¦­ */
	$"9686 805A 4B4F 665C 4063 8A7F 502E 3F3C"            /* –†€ZKOf\@cŠ.P.?< */
	$"3C5B 787B 95B4 B3B1 B0C3 D3C7 C1A9 8779"            /* <[x{•´³±°ÃÓÇÁ©‡y */
	$"6B78 8974 7582 8173 7165 6862 7793 8288"            /* kx‰tu‚�sqehbw“‚ˆ */
	$"AAA3 8A76 7C7C 828D 715C 6D6C 564A 485C"            /* ª£Šv||‚�q\mlVJH\ */
	$"6872 94B4 AD82 5849 4538 5177 99AB C6CB"            /* hr”´­‚XIE8Qw™«ÆË */
	$"B495 BADC BFA4 B3CD CDBA 9277 6F7C 847C"            /* ´•º.¿¤³Íͺ’wo|„| */
	$"7254 2A1B 1627 464E 5048 4251 6070 96AA"            /* rT*..'FNPHBQ`p–ª */
	$"B1B0 9366 615E 5851 6C7E 767B 8797 907D"            /* ±°“fa^XQl~v{‡—�} */
	$"6C64 6B90 A5A3 B2CA C7B1 958D 9594 9083"            /* ldk�¥£²ÊDZ•�•”�ƒ */
	$"8E99 8B80 8384 98B2 B59D 8D7B 6B41 1B24"            /* Ž™‹€ƒ„˜²µ��{kA.$ */
	$"3C4C 5E68 686F 6958 5D88 9783 817D 7571"            /* <L^hhoiX]ˆ—ƒ�}uq */
	$"6765 7184 A9C3 B48F 736C 737F 8D9A A7AA"            /* geq„©Ã´�sls.�š§ª */
	$"C0C6 BCB2 BFDC DBAC 8262 515E 614F 342A"            /* ÀƼ²¿..¬‚bQ^aO4* */
	$"3E4A 403A 4247 4A3C 4056 7AA3 9DA3 AEA0"            /* >J@:BGJ<@Vz£�£®  */
	$"A395 757B 8270 7879 7886 8D90 9CA9 BBBA"            /* £•u{‚pxyx†��œ©»º */
	$"997F 7561 433F 6180 98A4 9D97 937E 94B0"            /* ™.uaC?a€˜¤�—“~”° */
	$"A6AF A99A 8561 5E5D 5A81 9F86 5132 2B38"            /* ¦¯©š…a^]Z�Ÿ†Q2+8 */
	$"3A46 535A 616E 8198 B8CA DFDF C39E 7C69"            /* :FSZan�˜¸Ê..Þ|i */
	$"6B77 8781 625B 5D7C 8D79 6D6B 7383 7B7C"            /* kw‡�b[]|�ymksƒ{| */
	$"9EB6 BEC6 A992 8C8F 9589 7977 7E78 7688"            /* ž¶¾Æ©’Œ�•‰yw~xvˆ */
	$"A0AA ACBC B38F 6F57 3A1B 0B1D 3B5A 6E6B"            /*  ª¬¼³�oW:...;Znk */
	$"665F 586B 8182 7E78 7270 5147 565C 7691"            /* f_Xk�‚~xrpQGV\v‘ */
	$"9F90 685B 7083 878A 7C7A 8FAD C1CD D2DC"            /* Ÿ�h[pƒ‡Š|z�­ÁÍÒ. */
	$"EBEC BD83 7F82 7C79 6F63 656D 746C 5D59"            /* ..½ƒ.‚|yocemtl]Y */
	$"4B3A 4054 697B 8490 969A 9C93 8783 7156"            /* K:@Ti{„�–šœ“‡ƒqV */
	$"464A 5658 6482 8892 AEB8 B7A1 816D 615A"            /* FJVXd‚ˆ’®¸·¡�maZ */
	$"6581 9DA6 A9AD 9C85 98C4 DBCE AF9E 9179"            /* e��¦©­œ…˜Ä.ίž‘y */
	$"6664 707F 888E 7540 2C37 3832 3537 3C4C"            /* fdp.ˆŽu@,78257<L */
	$"7392 A7BF C7C5 C6AF 8973 5F62 645D 5C55"            /* s’§¿ÇÅƯ‰s_bd]\U */
	$"5D77 827C 6D62 696F 7A8F 8E8E 9FAB B4BB"            /* ]w‚|mbioz�ŽŽŸ«´» */
	$"B1A6 A1AA 9B7B 7F83 7684 9DA4 AEBF C7B4"            /* ±¦¡ª›{.ƒv„�¤®¿Ç´ */
	$"8868 4620 1D2A 486B 6E67 6862 646F 87A8"            /* ˆhF .*Hknghbdo‡¨ */
	$"9E81 6350 4D4F 5360 5E6C 8F8C 806B 6077"            /* ž�cPMOS`^l�Œ€k`w */
	$"7A69 6761 6893 B2CD D2C5 DBF1 F1D6 AE8C"            /* zigah“²ÍÒÅ...Ö®Œ */
	$"7A73 7776 717E 7777 6849 4346 3641 5760"            /* zswvq~wwhICF6AW` */
	$"726D 8296 9CAD A78B 7D77 6E66 575A 5F5F"            /* rm‚–œ­§‹}wnfWZ__ */
	$"879F B5D2 D1B0 8A66 514F 5982 8E80 7672"            /* ‡ŸµÒÑ°ŠfQOY‚Ž€vr */
	$"757D 819C BECB C78D 7E7A 667A 8571 7085"            /* u}�œ¾ËÇ�~zfz…qp… */
	$"918A 654D 5234 3649 4A46 5678 9EA9 B1B9"            /* ‘ŠeMR46IJFVxž©±¹ */
	$"C1D3 B785 5D39 3C55 5B59 6062 7F6B 6874"            /* ÁÓ·…]9<U[Y`b.kht */
	$"6B76 8079 7B88 97B7 C4C6 CFAA A3B0 B6B6"            /* kv€y{ˆ—·ÄÆϪ£°¶¶ */
	$"A37A 6A59 6385 A7C9 D6B8 8B56 4133 222B"            /* £zjYc…§ÉÖ¸‹VA3"+ */
	$"4A5C 6741 4066 6878 9A9F 999F 8F7C 6551"            /* J\gA@fhxšŸ™Ÿ�|eQ */
	$"675F 5462 88A6 A88E 775F 5959 677F 775D"            /* g_Tbˆ¦¨Žw_YYg.w] */
	$"738F ABC4 CFD6 E9E6 CF91 636B 7B8C 8F76"            /* s�«ÄÏÖ..Ï‘ck{Œ�v */
	$"5B64 727C 7157 5333 2A50 6D78 848B 9B9A"            /* [dr|qWS3*Pmx„‹›š */
	$"9490 949A 9A7A 4923 2843 6381 A8CA D6AD"            /* ”�”ššzI#(Cc�¨ÊÖ­ */
	$"777B 7A69 7680 7A83 8188 9387 888E 97B9"            /* w{ziv€zƒ�ˆ“‡ˆŽ—¹ */
	$"D9D7 B588 6859 6467 6888 AA90 6140 2F30"            /* .×µˆhYdghˆª�a@/0 */
	$"393D 4D4E 382F 5197 C8D6 E3D4 B0A2 937A"            /* 9=MN8/Q—ÈÖ.Ô°¢“z */
	$"665E 6A65 4552 7482 908B 7664 5551 6A92"            /* f^jeERt‚�‹vdUQj’ */
	$"ACA4 948D 9EB2 B1B0 BBC3 BA89 4A47 6C86"            /* ¬¤”�ž²±°»Ãº‰JGl† */
	$"ABBD ADB3 B392 7F64 3F2A 294B 6C64 5761"            /* «½­³³’.d?*)KldWa */
	$"6457 5E7F 9BB8 CCA7 5721 2447 625F 70A0"            /* dW^.›¸Ì§W!$Gb_p  */
	$"AA86 6360 747A 8581 6250 5F88 BCCE D3D4"            /* ª†c`tz…�bP_ˆ¼ÎÓÔ */
	$"C7D2 E4CC AD95 786A 6A61 5E74 8982 603D"            /* ÇÒ.Ì­•xjja^t‰‚`= */
	$"3537 353D 597A 7964 5F7D BAC7 C5B1 8477"            /* 575=Yzyd_}ºÇű„w */
	$"7E61 4F51 5866 7499 C7CF BCA4 875B 404A"            /* ~aOQXft™Çϼ¤‡[@J */
	$"709A AC92 6A51 4F61 88AC C8E9 D891 4C3A"            /* pš¬’jQOaˆ¬È.Ø‘L: */
	$"6A90 9E9F 919B 9D80 736B 6354 403E 3727"            /* j�žŸ‘›�€skcT@>7' */
	$"3F75 8E8F A3A3 A9BB B899 6022 0F1E 2C37"            /* ?uŽ�££©»¸™`"..,7 */
	$"4068 807D 5B59 7C93 A7A3 93AE DEF2 F6FD"            /* @h€}[Y|“§£“®.... */
	$"EED5 C8BD B2B3 B69C 7250 6289 A6B2 B496"            /* .ÕȽ²³¶œrPb‰¦²´– */
	$"5C29 0601 162F 4368 5435 2E30 4C98 DBDB"            /* \).../ChT5.0L˜.. */
	$"BA9F 805C 473B 3641 4D63 8296 A2A6 9069"            /* ºŸ€\G;6AMc‚–¢¦�i */
	$"5B4C 5962 5B74 99A0 9DC5 E7FD FFFF E4CB"            /* [LYb[t™ �Å.....Ë */
	$"B2A2 A5A9 9D7C 5A44 3738 342C 1007 142A"            /* ²¢¥©�|ZD784,...* */
	$"363B 4D5E 7267 5E6E 8688 8086 6055 5D6C"            /* 6;M^rg^n†ˆ€†`U]l */
	$"85C0 F7FF FFEE B693 8D85 8294 9B81 6974"            /* …À....¶“�…‚”›�it */
	$"8990 909C B1C4 CEAE 816F 6958 525D 6D98"            /* ‰��œ±Äή�oiXR]m˜ */
	$"B7AE 7963 6D6D 585A 5246 372F 3357 8092"            /* ·®ycmmXZRF7/3W€’ */
	$"9694 958F 765D 5959 5E51 313A 6377 8185"            /* –”•�v]YY^Q1:cw�… */
	$"8187 8B80 80AA DAEC E1E7 DACD C5AD 9DAA"            /* �‡‹€€ª.....ÍÅ­�ª */
	$"9C68 2F1F 4172 8E8C 8787 896D 4440 432F"            /* œh/.ArŽŒ‡‡‰mD@C/ */
	$"293E 4B4B 5657 4D6E ABBD BDCD C5B3 8D4F"            /* )>KKVWMn«½½Íų�O */
	$"283F 5355 5779 979B 7D64 6C76 827D 6C72"            /* (?SUWy—›}dlv‚}lr */
	$"9AAE B8C7 D0E9 FAEF CDC8 D7C8 AB9A 8879"            /* š®¸ÇÐ...ÍÈ×È«šˆy */
	$"6849 415F 5D3D 190B 172B 2E36 3D4A 6F74"            /* hIA_]=...+.6=Jot */
	$"7791 AEA0 8E83 776F 706B 6891 C0C8 C9D0"            /* w‘® Žƒwopkh‘ÀÈÉÐ */
	$"CBB7 9B6F 4E56 767E 605C 757C 655C 7093"            /* Ë·›oNVv~`\u|e\p“ */
	$"B8AF 9186 805A 4C56 6685 9C99 8181 9294"            /* ¸¯‘†€ZLVf…œ™��’” */
	$"7F63 5451 4E38 3B61 7D83 8691 A5A8 8D73"            /* .cTQN8;a}ƒ†‘¥¨�s */
	$"6667 6E5D 4A53 7187 9C9D 8687 8E8E 86A5"            /* fgn]JSq‡œ�†‡ŽŽ†¥ */
	$"D2DE C5D5 EDED D9B0 A5A6 9D8F 603B 2D44"            /* Ò.ÅÕ...°¥¦��`;-D */
	$"494C 5063 8B88 6857 6460 4A50 5162 6053"            /* ILPc‹ˆhWd`JPQb`S */
	$"5768 83A8 ADBE CACC B97C 4F47 5761 5E65"            /* Whƒ¨­¾Ê̹|OGWa^e */
	$"717F 6753 5264 7C64 5366 89AA BABD ACB9"            /* q.gSRd|dSf‰ªº½¬¹ */
	$"CFD1 CDC5 B4AA 8974 7374 643C 2B3D 6064"            /* ÏÑÍÅ´ª‰tstd<+=`d */
	$"4F44 414B 2F2C 3142 7788 8D9B B3C8 CBC3"            /* ODAK/,1Bwˆ�›³ÈËà */
	$"ABAE 9B80 8A9D A7AF 9F96 ACB5 9368 5152"            /* «®›€Š�§¯Ÿ–¬µ“hQR */
	$"7386 8A84 8187 6F5C 5876 A0A1 9592 8D84"            /* s†Š„�‡o\Xv ¡•’�„ */
	$"6C60 5C76 807E 8C91 8E90 7253 4747 3C35"            /* l`\v€~Œ‘Ž�rSGG<5 */
	$"415C 838B 8DAB C2C3 A489 7075 8675 6B63"            /* A\ƒ‹�«Âä‰pu†ukc */
	$"5A6E 777D 7A7E 726C 8498 A6B2 9294 B3CB"            /* Znw}z~rl„˜¦²’”³Ë */
	$"B191 8C9C B09E 8276 625E 5E59 505A 7478"            /* ±‘Œœ°ž‚vb^^YPZtx */
	$"8A90 7B79 614F 5869 5D58 7487 8895 8590"            /* Š�{yaOXi]Xt‡ˆ•…� */
	$"9FA5 937F 7470 715F 5373 8889 785D 5157"            /* Ÿ¥“.tpq_Ssˆ‰x]QW */
	$"635F 7079 7EA3 A8A6 B6BC B8C6 E2E9 DBC9"            /* c_py~£¨¦¶¼¸Æ...É */
	$"8B79 7166 4831 364E 6568 5E6F 6555 4A36"            /* ‹yqfH16Neh^oeUJ6 */
	$"3035 4D6B 969D 96B5 B0A9 B7AC 8D78 86A7"            /* 05Mk–�–µ°©·¬�x†§ */
	$"AFA4 7377 817A 695E 5E68 737D 7A90 8B80"            /* ¯¤sw�zi^^hs}z�‹€ */
	$"7E6B 666C 7A87 ABB4 A7AA 8668 6E66 677A"            /* ~kflz‡«´§ª†hnfgz */
	$"99AF ADA4 7367 5D3F 2423 3F67 787B 7295"            /* ™¯­¤sg]?$#?gx{r• */
	$"A39F A091 8678 7476 8E81 616B 6662 766A"            /* £Ÿ ‘†xtvŽ�akfbvj */
	$"626A 87AD B9BA 9092 A69A 9094 A5B8 B8B8"            /* bj‡­¹º�’¦š�”¥¸¸¸ */
	$"A9A4 7750 5C66 695C 5B69 8A93 9296 755D"            /* ©¤wP\fi\[iŠ“’–u] */
	$"6657 4E59 829F 9789 676F 7963 697F 8A89"            /* fWNY‚Ÿ—‰goyci.Š‰ */
	$"786D 626D 635D 6A65 5E4E 4D5D 8381 819F"            /* xmbmc]je^NM]ƒ��Ÿ */
	$"A1A2 AA9D A3BF EBFD F1D9 A386 7A53 4A4D"            /* ¡¢ª�£¿....£†zSJM */
	$"4F58 5D6A 7577 543C 484F 5241 4163 8F88"            /* OX]juwT<HORAAc�ˆ */
	$"8DAC AA9F 9C94 8F8E A2AF B5A6 7E76 7148"            /* �¬ªŸœ”�Ž¢¯µ¦~vqH */
	$"4A64 716F 6A7F 9389 686A 807F 796E 798E"            /* Jdqoj.“‰hj€.ynyŽ */
	$"A9A6 B6C5 9D7D 6858 5F79 A8B8 B6A8 8771"            /* ©¦¶Å�}hX_y¨¸¶¨‡q */
	$"5C34 323F 4E5A 6B86 8D78 616B 8185 8982"            /* \42?NZk†�xak�…‰‚ */
	$"8587 8A78 7B81 7169 5A56 5766 90A2 B5B5"            /* …‡Šx{�qiZVWf�¢µµ */
	$"9C8B 897A 829C AFB7 BDCF D1A8 6E48 475F"            /* œ‹‰z‚œ¯·½ÏѨnHG_ */
	$"6863 7578 7B71 96AF 9375 5E5B 5663 8FA1"            /* hcux{q–¯“u^[Vc�¡ */
	$"A389 6557 533F 4A7E 998F 8991 895E 3E44"            /* £‰eWS?J~™�‰‘‰^>D */
	$"545F 5F5C 6A70 746E 8BA2 A5A9 A5A7 A0BA"            /* T__\jptn‹¢¥©¥§ º */
	$"E9F2 F3DC B590 6B42 4465 6656 5D78 8362"            /* ....µ�kBDefV]xƒb */
	$"4137 3B4D 565F 6E6E 7770 8DA3 A6A0 8F87"            /* A7;MV_nnwp�£¦ �‡ */
	$"86AA C3B2 B2A3 816B 5E44 466E 7767 6E88"            /* †ªÃ²²£�k^DFnwgnˆ */
	$"9B7B 5657 6E84 8183 939C 9A8B AEC2 B08C"            /* ›{VWn„�ƒ“œš‹®Â°Œ */
	$"6C64 6080 A2A2 A99A 856F 553B 4660 5953"            /* ld`€¢¢©š…oU;F`YS */
	$"6E92 A474 4D50 6073 7388 ABAE 8D6A 828A"            /* n’¤tMP`ssˆ«®�j‚Š */
	$"7F72 5B4D 5173 9094 A299 8C7C 6E70 8DB0"            /* .r[MQs�”¢™Œ|np�° */
	$"ACA3 C0DD DCA2 745D 4547 5D75 9391 725C"            /* ¬£À..¢t]EG]u“‘r\ */
	$"819B 9C87 655F 7089 9792 9982 5F46 3C43"            /* �›œ‡e_p‰—’™‚_F<C */
	$"5571 7C88 A1AF A266 3D36 3E51 5E70 9089"            /* Uq|ˆ¡¯¢f=6>Q^p�‰ */
	$"6559 8093 9EA6 9CA2 B7CC DADE E8CC A483"            /* eY€“ž¦œ¢·Ì...̤ƒ */
	$"6B5B 586D 6B60 697B 7953 3F39 364B 617C"            /* k[Xmk`i{yS?96Ka| */
	$"9E90 665E 8696 A0A0 8982 8EA6 C7C2 AB8A"            /* ž�f^†–  ‰‚Ž¦Ç«Š */
	$"6E56 4F60 666A 605D 7288 886B 584D 5075"            /* nVO`fj`]rˆˆkXMPu */
	$"93A6 BEA6 878C A7B3 BAA6 7167 7C90 A29C"            /* “¦¾¦‡Œ§³º¦qg|�¢œ */
	$"967B 665A 5561 646C 645C 748C 8A6D 5544"            /* –{fZUadld\tŒŠmUD */
	$"4568 7B8C AFAB 907C 828A 907C 5559 697A"            /* Eh{Œ¯«�|‚Š�|UYiz */
	$"9592 8D76 6363 718D 9CAD AC9E B0D0 D3AC"            /* •’�vccq�œ­¬ž°ÐÓ¬ */
	$"7D58 474C 5684 AC92 6C63 6E86 9E8F 656B"            /* }XGLV„¬’lcn†ž�ek */
	$"86A4 B496 8166 4A3C 4261 6D6D 666A 96B3"            /* †¤´–�fJ<Bammfj–³ */
	$"A379 4625 2C55 6C8C 9D82 655B 6686 A09A"            /* £yF%,UlŒ�‚e[f† š */
	$"8BA4 C4E3 EFD0 C4B3 9178 7588 7B6A 615D"            /* ‹¤Ä..Ðij‘xuˆ{ja] */
	$"6F77 7256 3022 2F52 709D B79E 7357 668F"            /* owrV0"/Rp�·žsWf� */
	$"A894 7D90 9CB2 C0AD 9E79 5C53 5578 857B"            /* ¨”}�œ²À­žy\SUx…{ */
	$"604E 6A81 7B61 4139 4D76 9CC7 CBA7 8479"            /* `Nj�{aA9MvœÇ˧„y */
	$"98BB C8A7 7B76 82A2 AC94 8063 4B48 5B83"            /* ˜»È§{v‚¢¬”€cKH[ƒ */
	$"8A7D 6864 808B 7E63 4239 4762 81A4 A592"            /* Š}hd€‹~cB9Gb�¤¥’ */
	$"7E71 7F95 9D76 5667 7E9A 957E 745B 4B50"            /* ~q.•�vVg~š•~t[KP */
	$"73A5 BAB9 ABA4 B8C5 C2AA 7C60 5D5F 6C91"            /* s¥º¹«¤¸Åª|`]_l‘ */
	$"9D8C 6751 6A88 947A 6875 8DB8 B99C 764E"            /* �ŒgQjˆ”zhu�¸¹œvN */
	$"362C 4A75 8478 5D5B 829C 9777 4830 3853"            /* 6,Ju„x][‚œ—wH08S */
	$"82AA 9F82 5B4C 6783 9483 8AB1 D5F9 EACB"            /* ‚ªŸ‚[Lgƒ”ƒŠ±Õ..Ë */
	$"AF96 867C 92A9 A075 4E4E 6D77 6545 211B"            /* ¯–†|’© uNNmweE!. */
	$"3351 80AD AEA3 7657 6B90 9F84 8196 ABBF"            /* 3Q€­®£vWk�Ÿ„�–«¿ */
	$"A996 7E6A 5C5B 7788 9583 6661 737C 6E4C"            /* ©–~j\[wˆ•ƒfas|nL */
	$"3035 4F70 AEDB C7AB 7971 96BC C6A2 918E"            /* 05Op®.Ç«yq–¼Æ¢‘Ž */
	$"93A0 8A80 6D56 3F42 698B 9979 5F6A 8B96"            /* “ Š€mV?Bi‹™y_j‹– */
	$"7C52 3A39 4D67 98B4 A08B 6063 85A3 A073"            /* |R:9Mg˜´ ‹`c…£ s */
	$"6172 97AA 8978 6151 3E4C 7FA3 B6B0 AAB1"            /* ar—ª‰xaQ>L.£¶°ª± */
	$"C0C4 AE8B 7369 7173 8C9D 8A77 4E56 7287"            /* ÀÄ®‹siqsŒ�ŠwNVr‡ */
	$"8569 6D84 9FB6 A99E 7B56 2E34 6080 8B73"            /* …im„Ÿ¶©ž{V.4`€‹s */
	$"5E68 808E 7A5C 4D47 515F 8FAF A082 5154"            /* ^h€Žz\MGQ_�¯ ‚QT */
	$"6B7F 7D71 85AB DBF1 D5C3 A58D 7284 B0BF"            /* k.}q…«..ÕÃ¥�r„°¿ */
	$"AD79 5356 616A 5436 231F 395C 93AD A79C"            /* ­ySVajT6#.9\“­§œ */
	$"7874 8496 9382 8DA4 BBB8 9583 6956 4B6C"            /* xt„–“‚�¤»¸•ƒiVKl */
	$"9B9D 8A74 6974 7477 5E3E 3335 4C6A A8CB"            /* ›�Štittw^>35Lj¨Ë */
	$"C1A1 7781 9DB3 B1A6 ACAC A693 706A 6658"            /* Á¡w��³±¦¬¬¦“pjfX */
	$"4454 7F8E 876F 6174 8A9C 7B53 3F3B 5275"            /* DT.Ž‡oatŠœ{S?;Ru */
	$"A4AD 9B80 626C 8590 8D81 7779 8C95 7E72"            /* ¤­›€bl…���wyŒ•~r */
	$"644F 3F59 8E9A 9394 ABC6 C1BC A186 7971"            /* dO?YŽš“”«ÆÁ¼¡†yq */
	$"7B8C A29D 896A 4D60 7F84 766B 768E 9DA5"            /* {Œ¢�‰jM`.„vkvŽ�¥ */
	$"9B9A 8459 3E4B 7275 6F6D 6F7D 7D7F 654A"            /* ›š„Y>Kruomo}}.eJ */
	$"4748 5C79 989F 9882 626E 7D6F 6671 8EA5"            /* GH\y˜Ÿ˜‚bn}ofqŽ¥ */
	$"BAD4 CABD A483 7790 BCBA A790 7364 534C"            /* ºÔʽ¤ƒw�¼º§�sdSL */
	$"3B30 342C 3A66 949E 9C97 8999 9D91 8E92"            /* ;04,:f”žœ—‰™�‘Ž’ */
	$"9CA3 AAAC 9582 5E3C 4577 A596 7D71 717B"            /* œ£ª¬•‚^<Ew¥–}qq{ */
	$"7066 5143 413F 5579 929C ABA2 899C A69F"            /* pfQCA?Uy’œ«¢‰œ¦Ÿ */
	$"A9BC C3B7 A28E 7065 5247 5975 8777 737C"            /* ©¼Ã·¢ŽpeRGYu‡ws| */
	$"7672 7487 7B62 564C 597E 928C 8E84 788B"            /* vrt‡{bVLY~’ŒŽ„x‹ */
	$"8A7C 7F8C 8574 747F 7D77 594D 6276 8983"            /* Š|.Œ…tt.}wYMbv‰ƒ */
	$"8392 A5BC C1BD 9C89 8680 8B9C 9583 8872"            /* ƒ’¥¼Á½œ‰†€‹œ•ƒˆr */
	$"5B6D 6C6C 7C83 7773 8595 9BA0 7E64 6266"            /* [mll|ƒws…•› ~dbf */
	$"6B60 6274 7978 7E81 5D48 474D 6989 857F"            /* k`btyx~�]HGMi‰…. */
	$"9284 8090 8171 6D75 7F93 A7B1 BFBF 978E"            /* ’„€��qmu.“§±¿¿—Ž */
	$"989E A8A7 AAB0 976B 5342 1F1E 2E3A 5066"            /* ˜ž¨§ª°—kSB...:Pf */
	$"6B7D 9D90 98B0 9D92 A2AF A498 9699 A193"            /* k}��˜°�’¢¯¤˜–™¡“ */
	$"5D4D 576E 8987 7F85 776D 776A 4340 4D56"            /* ]MWn‰‡.…wmwjC@MV */
	$"7284 7272 8D86 9BAD 999B AFBF C0B4 A18E"            /* r„rr�†›­™›¯¿À´¡Ž */
	$"8669 434F 6272 7B70 7288 7F6B 7574 6F78"            /* †iCObr{prˆ.kutox */
	$"6E67 7C82 7376 8677 8C98 898C 908B 7D6A"            /* ng|‚sv†wŒ˜‰Œ�‹}j */
	$"5C61 7D73 5662 707E 7B70 7D9B 989C BCB9"            /* \a}sVbp~{p}›˜œ¼¹ */
	$"9F8E 858F A8A4 8677 7C6F 8178 626C 7A81"            /* ŸŽ…�¨¤†w|o�xblz� */
	$"7B6A 6A81 A8A2 8D8D 7A69 5C5B 697E 706B"            /* {jj�¨¢��zi\[i~pk */
	$"827B 6752 4558 7579 7271 8082 988F 7E86"            /* ‚{gREXuyrq€‚˜�~† */
	$"877A 6F76 8C9D B5A8 A0AC A39D 9297 AABF"            /* ‡zovŒ�µ¨ ¬£�’—ª¿ */
	$"AC89 7144 220E 1138 5E62 5E6A 8794 AAA8"            /* ¬‰qD"..8^b^j‡”ª¨ */
	$"A7B3 B2B0 AB9B 8F89 9B8A 7873 5E57 5F78"            /* §³²°«›�‰›Šxs^W_x */
	$"8A8C 6F61 6E62 4D3C 4169 8784 7569 6F78"            /* ŠŒoanbM<Ai‡„uiox */
	$"929C A1AD B4BB BEB6 A793 8E6D 616A 6865"            /* ’œ¡­´»¾¶§“Žmajhe */
	$"646D 7C85 7C79 816F 6468 7182 8985 7A6E"            /* dm|…|y�odhq‚‰…zn */
	$"7176 8587 92A7 A491 7B62 4F47 5F64 7079"            /* qv…‡’§¤‘{bOG_dpy */
	$"7273 7477 8698 9694 A9AB A193 8797 A8A5"            /* rstw†˜–”©«¡“‡—¨¥ */
	$"987F 7774 7D7B 757A 7270 726D 6769 8899"            /* ˜.wt}{uzrprmgiˆ™ */
	$"ACB0 9474 5851 6676 6F69 7675 6955 495A"            /* ¬°”tXQfvoivuiUIZ */
	$"6971 766C 737D 8E8E 8B96 9589 796E 7687"            /* iqvls}ŽŽ‹–•‰ynv‡ */
	$"9FA3 B1B8 A997 8B91 A5B6 B9A6 8C61 3414"            /* Ÿ£±¸©—‹‘¥¶¹¦Œa4. */
	$"0722 4255 6464 778E A1A6 B1C2 BFB5 ACA8"            /* ."BUddwŽ¡¦±Â¿µ¬¨ */
	$"9E87 847D 858D 795E 4F5A 7982 7764 6361"            /* ž‡„}…�y^OZy‚wdca */
	$"533F 385A 7B8E 937C 7570 7A85 98B0 B8BA"            /* S?8Z{Ž“|upz…˜°¸º */
	$"B9B8 B098 8E78 747C 7264 575E 747B 807C"            /* ¹¸°˜Žxt|rdW^t{€| */
	$"8075 5F57 6381 8C8B 8975 7070 797A 8DAE"            /* €u_Wc�Œ‹‰uppyz�® */
	$"B5A6 8873 5B39 3A43 6483 8174 7073 8693"            /* µ¦ˆs[9:Cdƒ�tps†“ */
	$"9C9B A6A9 A190 8392 9BA5 AB97 8676 7270"            /* œ›¦©¡�ƒ’›¥«—†vrp */
	$"7985 7D6C 5D64 6863 6F7B A1BE B190 6A56"            /* y…}l]dhco{¡¾±�jV */
	$"5E64 7274 7B75 6353 4F65 6D73 7971 6D74"            /* ^drt{ucSOemsyqmt */
	$"8487 93A1 9F96 7F7A 7978 8489 A6BE B196"            /* „‡“¡Ÿ–.zyx„‰¦¾±– */
	$"8687 979E B1B5 AA85 5320 0815 223E 5764"            /* †‡—ž±µª…S ..">Wd */
	$"7382 9096 B3CF D2C3 AEB4 AE9A 836D 7A8E"            /* s‚�–³ÏÒî´®šƒmzŽ */
	$"8C75 5D57 646B 746B 655B 4837 3C55 698A"            /* Œu]Wdktke[H7<UiŠ */
	$"9997 897E 7570 8DA7 B2B2 AEBF B9A7 8C74"            /* ™—‰~up�§²²®¿¹§Œt */
	$"7A85 7E6B 5E5D 6160 7482 8C80 6149 5875"            /* z…~k^]a`t‚Œ€aIXu */
	$"8395 9389 7877 7168 82A5 BEB3 9998 7B54"            /* ƒ•“‰xwqh‚¥¾³™˜{T */
	$"2A21 4670 807A 7376 7A85 9FAA ACA7 9787"            /* *!Fp€zsvz…Ÿª¬§—‡ */
	$"8D90 94A3 A2A3 958B 7667 7A86 846A 5562"            /* ��”£¢£•‹vgz†„jUb */
	$"6263 5661 8BB1 B9A7 9278 5850 6377 837C"            /* bcVa‹±¹§’xXPcwƒ| */
	$"5C46 5565 7480 7979 7178 7579 94A2 A995"            /* \FUet€yyqxuy”¢©• */
	$"8692 8B80 686F 95B7 B69A 8C86 7E88 A3BC"            /* †’‹€ho•·¶šŒ†~ˆ£¼ */
	$"B898 643D 2C18 2033 354A 5E7C 8290 B5CE"            /* ¸˜d=,. 35J^|‚�µÎ */
	$"D7C0 B4C6 C2A9 7C70 7E8A 877D 7E6F 5659"            /* ×À´Æ©|p~Š‡}~oVY */
	$"6970 6651 332D 3F49 6780 8896 9597 827D"            /* ipfQ3-?Ig€ˆ–•—‚} */
	$"909E A294 A0C2 C1A7 8479 868E 8475 786B"            /* �ž¢” ÂÁ§„y†Ž„uxk */
	$"5456 6683 8B7D 5D53 5F6B 8994 8987 7B7A"            /* TVfƒ‹}]S_k‰”‰‡{z */
	$"7178 8A9B A99F A3B4 A06F 311E 324F 5F6B"            /* qxŠ›©Ÿ£´ o1.2O_k */
	$"837C 6B7D 9BB8 B29C 8A91 9794 9F9C 949B"            /* ƒ|k}›¸²œŠ‘—”Ÿœ”› */
	$"9A98 8580 8A8E 7E5C 5A71 664D 3E52 7B9D"            /* š˜…€ŠŽ~\ZqfM>R{� */
	$"A9AD B496 6958 5F77 7665 5350 5463 8183"            /* ©­´–iX_wveSPTc�ƒ */
	$"7373 7173 778A 9FA6 9982 8DA8 9B7E 666D"            /* ssqswŠŸ¦™‚�¨›~fm */
	$"8AA1 A4A4 A284 6B7B 93B4 B08E 7164 523E"            /* Š¡¤¤¢„k{“´°ŽqdR> */
	$"372A 202C 3B5B 7C9E BECC C4B6 C4DD CBA9"            /* 7* ,;[|ž¾ÌĶÄ.Ë© */
	$"857B 898B 8285 8F78 595A 6779 5F38 2B2E"            /* …{‰‹‚…�xYZgy_8+. */
	$"3648 6571 7584 8A96 A2AB B1A6 8C7C 90B2"            /* 6Hequ„Š–¢«±¦Œ|�² */
	$"AD9C 8886 8E88 8388 8A70 555E 6C80 715D"            /* ­œˆ†ŽˆƒˆŠpU^l€q] */
	$"5F65 6B7A 8E8E 8078 707A 8999 A59B 8585"            /* _ekzŽŽ€xpz‰™¥›…… */
	$"A3BC A381 5636 2F35 4661 7167 607B 9BB6"            /* £¼£�V6/5Faqg`{›¶ */
	$"A28B 8F98 A1A6 A597 8A84 8195 AAB2 AF98"            /* ¢‹�˜¡¦¥—Š„�•ª²¯˜ */
	$"755C 5F69 5449 3C45 617B 99B2 B6A0 847E"            /* u\_iTI<Ea{™²¶ „~ */
	$"7877 5C48 5055 5C6C 807F 705F 5B78 96A7"            /* xw\HPU\l€.p_[x–§ */
	$"B0A1 8A7E 899D 9287 7772 7B8B 9FAC A482"            /* °¡Š~‰�’‡wr{‹Ÿ¬¤‚ */
	$"6B7B 8E9D 9183 8176 716B 5E3C 1C10 1B45"            /* k{Ž�‘ƒ�vqk^<...E */
	$"79A5 C1C3 BCB7 C4CF C1B7 9D87 8289 9190"            /* y¥Áü·ÄÏÁ·�‡‚‰‘� */
	$"856F 6572 746E 5130 2526 374B 5D5A 595A"            /* …oertnQ0%&7K]ZYZ */
	$"709B C2D7 D4B6 9784 888E 8C96 8C84 8A92"            /* p›Â×Ô¶—„ˆŽŒ–Œ„Š’ */
	$"9191 8B74 676C 7173 6455 5B63 7284 9186"            /* ‘‘‹tglqsdU[cr„‘† */
	$"735D 6384 A1AF B09C 857C 929D 9A97 7A5A"            /* s]c„¡¯°œ…|’�š—zZ */
	$"443E 444F 5049 5575 92A0 988B 8F98 ACBD"            /* D>DOPIUu’ ˜‹�˜¬½ */
	$"BA9A 7E65 759F C3D3 C8A3 8168 634F 464A"            /* ºš~euŸÃÓÈ£�hcOFJ */
	$"423C 4767 8AA4 A89E 9B9A 8E7C 5F48 474D"            /* B<GgŠ¤¨ž›šŽ|_HGM */
	$"6177 7B6F 6148 5B8D B6C3 B49E 8E82 847A"            /* aw{oaH[�¶Ã´žŽ‚„z */
	$"838C 8178 7B8C 9CA2 9583 7A7B 8383 7775"            /* ƒŒ�x{Œœ¢•ƒz{ƒƒwu */
	$"7D7E 838B 7C53 2502 154D 7E9F ADB4 B6B5"            /* }~ƒ‹|S%..M~Ÿ­´¶µ */
	$"BBB3 BCC0 AE95 8A93 9E98 8172 7376 7566"            /* »³¼À®•Š“ž˜�rsvuf */
	$"5040 2D20 2F4A 4E42 342E 67AD DCEF E0CA"            /* P@- /JNB4.g­...Ê */
	$"AE99 8A74 7B86 827D 869B A292 7F7D 7E76"            /* ®™Št{†‚}†›¢’.}~v */
	$"736A 6460 5557 6F8A 8C7C 6249 6F9F B7BC"            /* sjd`UWoŠŒ|bIoŸ·¼ */
	$"AD9F 8A7B 7A7C 9296 8673 655F 5444 3B40"            /* ­ŸŠ{z|’–†se_TD;@ */
	$"4C5D 7984 9097 8D90 ADC4 B99C 765C 87B8"            /* L]y„�—��­Ä¹œv\‡¸ */
	$"D1D9 CCB6 8F72 604C 4941 3936 405B 6F7C"            /* Ñ.̶�r`LIA96@[o| */
	$"8C9C A4A5 9F84 7465 4743 5D6F 6B5E 4D44"            /* Œœ¤¥Ÿ„teGC]ok^MD */
	$"73A5 C5CF BEA6 8C81 7D76 8282 7D7C 8597"            /* s¥ÅϾ¦Œ�}v‚‚}|…— */
	$"998F 918F 8780 7B6A 7077 6E78 8D8F 7E60"            /* ™�‘�‡€{jpwnx��~` */
	$"3515 3763 8192 9496 98A3 AAAA B7B6 B0A4"            /* 5.7c�’”–˜£ªª·¶°¤ */
	$"9BA1 9B8E 8C84 7C7B 7860 5B55 382D 3336"            /* ›¡›ŽŒ„|{x`[U8-36 */
	$"3228 1921 68AF DCF0 E8D1 B9A6 8F7D 7D76"            /* 2(.!h¯...ѹ¦�}}v */
	$"7475 7D94 9789 857F 7F81 7965 6B6E 5E64"            /* tu}”—‰…..�yekn^d */
	$"6E71 746E 5D5B 8DB9 C6C3 AE96 8578 6D71"            /* nqtn][�¹Æî–…xmq */
	$"868B 8680 7E7D 6448 3F39 4155 5F62 7E94"            /* †‹†€~}dH?9AU_b~” */
	$"8E9B A7A8 A89A 7F79 A8D1 DFE2 CBAE 947A"            /* Ž›§¨¨š.y¨Ñ..Ë®”z */
	$"5F55 5646 3B34 3A4F 545A 7486 9EAE A690"            /* _UVF;4:OTZt†ž®¦� */
	$"8D7F 5B56 5552 534D 4454 8FB7 C7D0 B9A0"            /* �.[VURSMDT�·Çй  */
	$"9080 7176 837F 7676 8699 8E83 8C88 8D8F"            /* �€qvƒ.vv†™ŽƒŒˆ�� */
	$"7C65 6C73 6977 7B7A 7867 4D4B 6F87 8F92"            /* |elsiw{zxgMKo‡�’ */
	$"837D 7E81 899E B3B5 B0AA A8A9 948B 9088"            /* ƒ}~�‰ž³µ°ª¨©”‹�ˆ */
	$"8C8B 7966 645D 4640 2C22 1F11 0C30 76AA"            /* Œ‹yfd]F@,"...0vª */
	$"CADE D7CF C3AC 948C 8C80 726F 798A 817D"            /* Ê.×Ï씌Œ€royŠ�} */
	$"7E7C 8A8D 7F71 7574 6B6E 615C 5C5A 5C78"            /* ~|Š�.qutkna\\Z\x */
	$"A9C6 CEC1 A390 7D66 5C6C 8386 8486 8C8C"            /* ©ÆÎÁ£�}f\lƒ†„†ŒŒ */
	$"6D54 4843 4F55 5455 687C 8A95 8B91 9891"            /* mTHCOUTUh|Š•‹‘˜‘ */
	$"8BA5 D1E8 EBDB C0AC 9376 5E61 624F 3E39"            /* ‹¥Ñ...À¬“v^abO>9 */
	$"3B3F 3A44 556D 90A8 ABA5 A396 7C5F 4749"            /* ;?:DUm�¨«¥£–|_GI */
	$"4B47 4A73 A9C4 CABD AEA1 8E78 6C7A 8A86"            /* KGJs©Äʽ®¡ŽxlzŠ† */
	$"7E78 7F88 7F79 7C87 9494 8573 6C6A 6B64"            /* ~x.ˆ.y|‡””…sljkd */
	$"5B62 6766 6683 A2AC A188 7A76 6D60 668D"            /* [bgffƒ¢¬¡ˆzvm`f� */
	$"A9AD ABAA AEA8 958B 8C92 9898 897B 7469"            /* ©­«ª®¨•‹Œ’˜˜‰{ti */
	$"5634 1B17 1610 1140 7BA5 B1AF BECA BEA7"            /* V4.....@{¥±¯¾Ê¾§ */
	$"9AA3 9B8A 817C 7D79 6D68 6C77 8896 8E86"            /* š£›Š�|}ymhlwˆ–Ž† */
	$"817E 745C 545C 5854 6296 C3D4 C8AF A293"            /* �~t\T\XTb–ÃÔȯ¢“ */
	$"7659 5470 7E7E 8287 8E85 715F 5756 595E"            /* vYTp~~‚‡Ž…q_WVY^ */
	$"585C 626E 7467 6B7F 8B91 9ECC F1FC EACD"            /* X\bntgk.‹‘žÌ...Í */
	$"C4B4 9574 636E 6654 4C47 4333 2427 3C58"            /* Ä´•tcnfTLGC3$'<X */
	$"779A AAB5 ADA3 885A 4549 4D4D 5B8C B7C6"            /* wšªµ­£ˆZEIMM[Œ·Æ */
	$"B6A4 A9A2 8771 748C 8B83 8589 8676 6C6D"            /* ¶¤©¢‡qtŒ‹ƒ…‰†vlm */
	$"7483 9198 8D83 766F 5E46 4955 5B5F 77AC"            /* tƒ‘˜�ƒvo^FIU[_w¬ */
	$"CBC7 A483 7E74 6055 6180 8B93 A2B1 B3A1"            /* ËǤƒ~t`Ua€‹“¢±³¡ */
	$"9088 8B95 A0A7 A299 8876 5429 1B1B 1717"            /* �ˆ‹• §¢™ˆvT).... */
	$"2B58 7C8F 9192 A6B0 A8A3 ACB9 A993 8A8D"            /* +X|�‘’¦°¨£¬¹©“Š� */
	$"8973 625D 626B 778B 9997 8C83 6F56 565B"            /* ‰sb]bkw‹™—ŒƒoVV[ */
	$"5859 76AE D4D4 B9A1 9C89 695E 6575 716F"            /* XYv®ÔÔ¹¡œ‰i^euqo */
	$"7B8B 8C7D 7065 5F61 656B 6E68 6260 5544"            /* {‹Œ}pe_aeknhb`UD */
	$"5066 7991 B8E6 FDF8 E4D1 C9B2 9386 807D"            /* Pfy‘¸....Ñɲ“†€} */
	$"6654 5656 462C 1F1B 2845 5F80 A1B1 B09E"            /* fTVVF,..(E_€¡±°ž */
	$"8265 5A50 4A58 7AA6 BFBB A995 928A 7F81"            /* ‚eZPJXz¦¿»©•’Š.� */
	$"8A97 8C7F 8790 8877 6F69 6C78 8499 9F8C"            /* Š—Œ.‡�ˆwoilx„™ŸŒ */
	$"7A68 5543 464A 5269 8FBC D5C9 AF92 7E6A"            /* zhUCFJRi�¼Õɯ’~j */
	$"6164 6974 6D74 92A8 A69A 9389 8A94 A1B7"            /* aditmt’¨¦š“‰Š”¡· */
	$"B9A2 9078 5B3D 2B1A 1423 446B 807B 7C7C"            /* ¹¢�x[=+..#Dk€{|| */
	$"7D80 93A8 B4BE AC9B 9890 857F 7363 6063"            /* }€“¨´¾¬›˜�….sc`c */
	$"6B85 948F 8B7C 6C60 5F59 5C70 8FB7 D0CD"            /* k…”�‹|l`_Y\p�·ÐÍ */
	$"BD9D 8471 6E6D 6E71 6163 767F 827F 7266"            /* ½�„qnmnqacv.‚.rf */
	$"676C 768B 8469 5C4F 4B47 494C 638E BEEC"            /* glv‹„i\OKGILcŽ¾. */
	$"FEF8 E8CF B9A7 A3A0 9C8E 6A59 574C 3F30"            /* ...Ϲ§£ œŽjYWL?0 */
	$"221F 2836 4F77 8890 9C95 897C 705D 586C"            /* ".(6Owˆ�œ•‰|p]Xl */
	$"8EB5 C2BB A88A 7370 828C 9698 8987 8A85"            /* ŽµÂ»¨Šsp‚Œ–˜‰‡Š… */
	$"8681 726B 6D72 839F 9A80 6A58 5554 4F46"            /* †�rkmrƒŸš€jXUTOF */
	$"516E 94B8 C9CB BC9A 7767 6E74 7A73 6164"            /* Qn”¸É˼šwgntzsad */
	$"7687 9494 8D8E 9399 ADC1 B59C 8C81 7964"            /* v‡””�Ž“™­ÁµœŒ�yd */
	$"4426 212E 4B6C 7D7D 715F 525E 83A0 B1AF"            /* D&!.Kl}}q_R^ƒ ±¯ */
	$"A4A4 A094 8C83 776F 6A68 7988 7F74 7375"            /* ¤¤ ”Œƒwojhyˆ.tsu */
	$"7A78 6D64 7283 9BB5 C7CF BD98 7168 7879"            /* zxmdrƒ›µÇϽ˜qhxy */
	$"7568 5D63 696F 787C 736B 6C75 8F9C 8260"            /* uh]ciox|sklu�œ‚` */
	$"4E4C 5559 4B44 5B78 A7D7 F7FD E7C3 A4A6"            /* NLUYKD[x§×...ä¦ */
	$"B8B8 B098 7C68 5649 4136 231C 2439 6071"            /* ¸¸°˜|hVIA6#.$9`q */
	$"655F 6F87 9594 8376 797D 95B0 C4C4 A780"            /* e_o‡•”ƒvy}•°Äħ€ */
	$"6269 848D 9088 8689 8887 8883 736A 707F"            /* bi„��ˆ†‰ˆ‡ˆƒsjp. */
	$"999A 8064 5858 5E62 5959 636C 8CAC C8D0"            /* ™š€dXX^bYYclŒ¬ÈÐ */
	$"B996 7675 8485 8072 665E 5F6D 7F87 8283"            /* ¹–vu„…€rf^_m.‡‚ƒ */
	$"90A7 C5C3 A58B 8288 8D86 674D 3B2F 4561"            /* �§ÅÃ¥‹‚ˆ�†gM;/Ea */
	$"787A 624C 4056 798E 9B99 9A9F A2A1 9B8E"            /* xzbL@VyŽ›™šŸ¢¡›Ž */
	$"796D 7282 9387 6957 5A6C 7E87 7F7E 8186"            /* ymr‚“‡iWZl~‡.~�† */
	$"9EB4 C7C9 B191 7272 7F7D 7362 595C 636B"            /* ž´Çɱ‘rr.}sbY\ck */
	$"7374 6965 728A A49C 7B5E 5054 5D64 5A56"            /* stierŠ¤œ{^PT]dZV */
	$"5C6C 92BA E0EB D8BD A6B0 C3C2 B6A0 8A7B"            /* \l’º..ؽ¦°Ã¶ Š{ */
	$"6A59 4A36 1D11 2144 6768 4F41 4968 8799"            /* jYJ6..!DghOAIhઠ*/
	$"9794 8F8D 9FB0 BFBC 9F7C 6572 898C 8377"            /* —”��Ÿ°¿¼Ÿ|er‰Œƒw */
	$"7989 8F90 8D83 7167 7793 A692 6B53 4B57"            /* y‰���ƒqgw“¦’kSKW */
	$"6369 6668 6C75 8CA2 B8BF AD91 818C 978E"            /* cifhluŒ¢¸¿­‘�Œ—Ž */
	$"7D69 6265 6266 7176 706F 89AE C8BB 9B84"            /* }ibebfqvpo‰®È»›„ */
	$"7D8D 9B9F 8F77 5C48 4C5A 6A6C 553D 3F5C"            /* }�›Ÿ�w\HLZjlU=?\ */
	$"7479 7875 839A A3A8 A495 7E6D 7994 A186"            /* tyxuƒš£¨¤•~my”¡† */
	$"604E 4F66 7B89 8D8E 9197 A6B4 C0C0 A786"            /* `NOf{‰�Ž‘—¦´ÀÀ§† */
	$"7A85 8C7D 664F 4F5B 606B 706A 5D57 7096"            /* z…Œ}fOO[`kpj]Wp– */
	$"A793 7766 5C65 696D 6964 6570 8AA5 BFCD"            /* §“wf\eimidepŠ¥¿Í */
	$"BDAB AFC4 D1C3 AB97 9794 8474 5B3E 2110"            /* ½«¯ÄÑë——”„t[>!. */
	$"2144 5D55 453C 3E58 7189 979E A2A4 ADB5"            /* !D]UE<>Xq‰—ž¢¤­µ */
	$"BBB4 9274 7183 9089 7363 6E81 8F9B 9588"            /* »´’tqƒ�‰scn��›•ˆ */
	$"7164 7A9D A98E 6D55 4E5C 6367 696E 7684"            /* qdz�©ŽmUN\cginv„ */
	$"939C A7A9 9688 90A2 A592 7260 6266 696D"            /* “œ§©–ˆ�¢¥’r`bfim */
	$"6A6A 615F 7EA9 B9AB 998A 8997 9FA4 A397"            /* jja_~©¹«™Š‰—Ÿ¤£— */
	$"8270 6055 5C5C 4434 4464 746C 5757 6D84"            /* ‚p`U\\D4DdtlWWm„ */
	$"9DAB A49B 8373 839C 9A84 6A56 5A6F 7A80"            /* �«¤›ƒsƒœš„jVZoz€ */
	$"8A93 98A3 ADB0 B9B4 9987 8B98 937A 5B4D"            /* Š“˜£­°¹´™‡‹˜“z[M */
	$"4D51 616A 6B6A 5A53 6E94 9D8F 7B6B 707C"            /* MQajkjZSn”��{kp| */
	$"776D 6C6E 6D78 8696 AAAC 9C96 AAC7 CCBA"            /* wmlnmx†–ª¬œ–ªÇ̺ */
	$"A19B 9FA2 A08B 6F54 2C15 2640 4646 423F"            /* ¡›Ÿ¢ ‹oT,.&@FFB? */
	$"4D5E 666F 849B A9B7 BABB BCA9 8772 7B8E"            /* M^fo„›©·º»¼©‡r{Ž */
	$"8B7B 6C6B 6A71 8693 9890 7465 7C98 9B8F"            /* ‹{lkjq†“˜�te|˜›� */
	$"7461 656C 655D 626F 7B8C 949F A597 8482"            /* taele]bo{Œ”Ÿ¥—„‚ */
	$"9AAF A78E 776C 6567 6F6D 6A65 5655 7495"            /* š¯§ŽwlegomjeVUt• */
	$"9F9E 938F 9DA5 9E9B A6A9 9D91 7C6A 5D48"            /* Ÿž“��¥ž›¦©�‘|j]H */
	$"3430 4A64 645B 5156 5E71 8C9E A9A1 887D"            /* 40Jdd[QV^qŒž©¡ˆ} */
	$"8E9B 9385 7269 757D 7B79 8693 9AA6 ACB2"            /* Ž›“…riu}{y†“š¦¬² */
	$"B29F 8B87 989F 866E 5D57 5152 5A60 6865"            /* ²Ÿ‹‡˜Ÿ†n]WQRZ`he */
	$"5656 6E85 8E8E 817B 888C 8275 7576 757D"            /* VVn…ŽŽ�{ˆŒ‚uuvu} */
	$"8694 9D95 8B8F A7B6 AEA9 A6A4 A1A7 A99C"            /* †”�•‹�§¶®©¦¤¡§©œ */
	$"8665 3C28 3037 3433 3544 5B61 5F63 7789"            /* †e<(07435D[a_cw‰ */
	$"9AB3 C2C8 BFA4 897D 888A 7972 7379 7676"            /* š³ÂÈ¿¤‰}ˆŠyrsyvv */
	$"7E89 928D 7A75 828B 8B86 7C79 7E76 6862"            /* ~‰’�zu‚‹‹†|y~vhb */
	$"6365 6E83 949F 9F8C 7D82 9AA2 978F 867C"            /* cenƒ”ŸŸŒ}‚š¢—�†| */
	$"6E69 6C6D 675D 5561 7582 898C 8F9A A7A6"            /* nilmg]Uau‚‰Œ�š§¦ */
	$"A0A2 ACAD A5A5 9C86 6740 2F36 4950 4C50"            /*  ¢¬­¥¥œ†g@/6IPLP */
	$"5557 5963 778C 9998 8E8E 9291 8C82 7C7E"            /* UWYcwŒ™˜ŽŽ’‘Œ‚|~ */
	$"837E 7E87 8E90 95A6 B2B1 A896 8B8D 9692"            /* ƒ~~‡Ž�•¦²±¨–‹�–’ */
	$"8377 6B64 5C59 5C5C 5A55 5361 7078 7F84"            /* ƒwkd\Y\\ZUSapx.„ */
	$"888C 8F8C 8886 8077 727D 868B 8C85 8892"            /* ˆŒ�Œˆ†€wr}†‹Œ…ˆ’ */
	$"9A9B 979A A1A6 A6AA AFA5 9074 5B4E 4137"            /* š›—š¡¦¦ª¯¥�t[NA7 */
	$"312F 3847 575B 5F68 7078 86A1 BAC4 BDA7"            /* 1/8GW[_hpx†¡ºÄ½§ */
	$"9689 8179 7272 747C 8183 827E 7E7F 8188"            /* –‰�yrrt|�ƒ‚~~.�ˆ */
	$"8884 8180 8587 877F 7B75 6B62 6379 8D95"            /* ˆ„�€…‡‡.{ukbcy�• */
	$"9289 8787 8C90 9193 9087 7A6F 6963 5C56"            /* ’‰‡‡Œ�‘“�‡zoic\V */
	$"5B6B 7278 7C83 939E A4A5 A8A9 A8A8 AAB1"            /* [krx|ƒ“ž¤¥¨©¨¨ª± */
	$"AF9C 7753 3F38 393D 444D 5052 575E 676E"            /* ¯œwS?89=DMPRW^gn */
	$"7A86 96A0 998E 8585 8988 8686 8E93 9494"            /* z†– ™Ž……‰ˆ††Ž“”” */
	$"99A7 B0AA 9B90 8D89 8480 8484 7668 6260"            /* ™§°ª›��‰„€„„vhb` */
	$"5D52 4B4A 5866 6D71 7584 9394 9093 9B96"            /* ]RKJXfmqu„“”�“›– */
	$"897D 7C83 8682 7B7D 868B 8F8F 9499 9698"            /* ‰}|ƒ†‚{}†‹��”™–˜ */
	$"A2AA A99C 8C84 806F 5944 383A 3E41 4858"            /* ¢ª©œŒ„€oYD8:>AHX */
	$"686B 696C 7D94 A6AD AFAF A690 7E73 7679"            /* hkil}”¦­¯¯¦�~svy */
	$"7476 818A 8575 707A 8A8C 8781 7E82 8584"            /* tv�Š…upzŠŒ‡�~‚…„ */
	$"8690 9385 7267 6B74 7B7E 8288 8780 7F86"            /* †�“…rgkt{~‚ˆ‡€.† */
	$"979B 908B 877E 6B58 5059 6669 6E71 7782"            /* —›�‹‡~kXPYfinqw‚ */
	$"8C95 A0B1 B5AA 9F9F ABB4 B1A1 8A6E 4D37"            /* Œ• ±µªŸŸ«´±¡ŠnM7 */
	$"2F35 484C 474C 565B 5654 6282 9CA0 9E94"            /* /5HLGLV[VTb‚œ ž” */
	$"8A87 8988 8C9B 9E98 9497 A7B3 B2A6 9A90"            /* Š‡‰ˆŒ›ž˜”—§³²¦š� */
	$"8279 767A 8986 7771 6C61 544C 4B57 605F"            /* ‚yvz‰†wqlaTLKW`_ */
	$"666E 747E 8990 99A7 A89A 8A7E 8489 8378"            /* fnt~‰�™§¨šŠ~„‰ƒx */
	$"7474 7279 8290 A199 8B8E 969A 968F 8E97"            /* ttry‚�¡™‹Ž–š–�Ž— */
	$"9787 765F 4A42 4040 4C62 6867 6364 7A8A"            /* —‡v_JB@@LbhgcdzŠ */
	$"9397 9EA2 9C91 817E 8376 6C73 7D81 7C75"            /* “—ž¢œ‘�~ƒvls}�|u */
	$"7A8C 9490 8E82 7A7C 7D7F 8DA1 A399 826E"            /* zŒ”�Ž‚z|}.�¡£™‚n */
	$"7375 706E 7579 7876 7786 9A96 8F92 8E7F"            /* supnuyxvw†š–�’Ž. */
	$"6955 5563 6868 7070 717B 848E A5BE BFB4"            /* iUUchhppq{„Ž¥¾¿´ */
	$"9F96 A8B1 ACA3 967E 6043 353F 4C43 4048"            /* Ÿ–¨±¬£–~`C5?LC@H */
	$"4C4C 4745 597B 929C A195 8884 8188 9AAA"            /* LLGEY{’œ¡•ˆ„�ˆšª */
	$"AAA0 9192 AAB7 B4AC A192 7D6C 6A7A 867D"            /* ª ‘’ª·´¬¡’}ljz†} */
	$"7778 7163 5248 5563 6565 6965 6873 7C8B"            /* wxqcRHUceeiehs|‹ */
	$"A3B5 B4A5 8D81 8888 7F76 706D 6766 7896"            /* £µ´¥��ˆˆ.vpmgfx– */
	$"A496 8D8D 8C8A 8484 929E 9D98 8F73 594C"            /* ¤–��ŒŠ„„’ž�˜�sYL */
	$"454B 5E6F 7267 565A 7280 848A 9194 8C86"            /* EK^orgVZr€„Š‘”Œ† */
	$"898E 8A74 696D 7276 7477 8695 9BA0 9C84"            /* ‰ŽŠtimrvtw†•› œ„ */
	$"736E 6E7B 95AC B1A1 887A 7E79 6D68 6B6F"            /* snn{•¬±¡ˆz~ymhko */
	$"6A6C 7A8D 938A 898E 8D85 7163 6266 686E"            /* jlz�“Š‰Ž�…qcbfhn */
	$"7268 646A 7590 B0C8 CCB8 9A90 9CA3 9F9A"            /* rhdju�°È̸š�œ£Ÿš */
	$"978A 6C54 4D51 5040 383C 4144 434B 5E72"            /* —ŠlTMQP@8<ADCK^r */
	$"879E A594 867E 7C8C A6B8 B6A1 8A8B A1AD"            /* ‡ž¥”†~|Œ¦¸¶¡Š‹¡­ */
	$"ABAB AA9C 806E 6E76 7569 666C 6F6C 5F59"            /* ««ªœ€nnvuiflol_Y */
	$"5D64 6D75 7363 5F65 6F8A ABC5 C4AA 8F87"            /* ]dmusc_eoŠ«ÅĪ�‡ */
	$"8C85 766F 6D67 5E63 768E 9A92 8886 8787"            /* Œ…vomg^cvŽš’ˆ†‡‡ */
	$"8385 8F99 A0A5 9A80 6A57 4D5C 7383 7D64"            /* ƒ…�™ ¥š€jWM\sƒ}d */
	$"4E51 6671 6E74 8086 8285 8E96 8C73 6363"            /* NQfqnt€†‚…Ž–Œscc */
	$"6E76 7A82 8D97 A4AF AA91 7866 6277 9AB5"            /* nvz‚�—¤¯ª‘xfbwšµ */
	$"B49E 8582 8578 6663 6867 6268 7886 8579"            /* ´ž…‚…xfchgbhx†…y */
	$"767F 8B8F 887D 726D 7072 6B62 605F 6B8F"            /* v.‹�ˆ}rmprkb`_k� */
	$"BCD7 D2B7 9D98 9B94 8C8E 8E85 786E 6660"            /* ¼×Ò·�˜›”ŒŽŽ…xnf` */
	$"4D38 2E32 3F48 4A51 5C6B 7E91 9893 8778"            /* M8.2?HJQ\k~‘˜“‡x */
	$"768E B2C5 BA9C 8589 999F A2A9 AEA6 9687"            /* vŽ²Åºœ…‰™Ÿ¢©®¦–‡ */
	$"7D76 6351 4E5C 6E75 726F 6B6C 737A 756A"            /* }vcQN\nuroklszuj */
	$"5F5A 678A B5CA BFA2 8D90 9081 7069 635D"            /* _ZgŠµÊ¿¢����pic] */
	$"5F6A 7B88 837B 7982 8D93 918F 8E93 9A9C"            /* _j{ˆƒ{y‚�“‘�Ž“šœ */
	$"9589 7863 5D71 8E99 8664 4E50 5557 5E66"            /* •‰xc]qŽ™†dNPUW^f */
	$"6E76 808B 9593 7F67 5B62 717B 8087 909C"            /* nv€‹•“.g[bq{€‡�œ */
	$"A7AD AA9D 836B 687F A0B3 AA93 858A 877A"            /* §­ª�ƒkh. ³ª“…Š‡z */
	$"6E64 6263 6A74 7F80 6E5E 5D71 8A97 9A95"            /* ndbcjt.€n^]qŠ—š• */
	$"8A7E 746C 655E 5656 6992 BFD6 CCB0 9F9F"            /* Š~tle^VVi’¿ÖÌ°ŸŸ */
	$"978D 8783 807E 8083 806B 482E 2837 474F"            /* —�‡ƒ€~€ƒ€kH.(7GO */
	$"5258 606C 7780 888B 8178 839F BDC6 B294"            /* RX`lw€ˆ‹�xƒŸ½Æ²” */
	$"8487 8993 9EA4 A6A5 A6A4 987D 563A 364C"            /* „‡‰“ž¤¦¥¦¤˜}V:6L */
	$"6675 7E81 7C76 7375 7770 615D 7295 B6C1"            /* fu~�|vsuwpa]r•¶Á */
	$"B199 8E90 8983 7968 5B55 5E70 7D79 6A64"            /* ±™Ž�‰ƒyh[U^p}yjd */
	$"6D83 969D 9E9E 9996 9592 8D80 716D 7C92"            /* mƒ–�žž™–•’�€qm|’ */
	$"A3A2 8969 564F 4D54 5A5B 5B62 788F 9689"            /* £¢‰iVOMTZ[[bx�–‰ */
	$"6C57 5362 747F 8891 969D A3A8 A89C 877D"            /* lWSbt.ˆ‘–�£¨¨œ‡} */
	$"8897 A5A5 9685 7F81 8283 7B6B 6162 7080"            /* ˆ—¥¥–….�‚ƒ{kabp€ */
	$"8273 5A49 5067 8295 A3A6 9D91 8172 6452"            /* ‚sZIPg‚•£¦�‘�rdR */
	$"4653 789E BECB BFAA 9A95 9396 9385 7A76"            /* FSxž¾Ë¿ªš•“–“…zv */
	$"8089 826A 472E 2D3C 4D57 6062 636B 7277"            /* €‰‚jG.-<MW`bckrw */
	$"7A76 7381 9EB6 C4BE A78E 7E7C 838F 9B9D"            /* zvs�ž¶Ä¾§Ž~|ƒ�›� */
	$"9FA4 AFB1 A181 5739 3543 596C 7E83 8181"            /* Ÿ¤¯±¡�W95CYl~ƒ�� */
	$"7C78 7367 606E 8CA8 B8B5 A28C 7F81 888F"            /* |xsg`nŒ¨¸µ¢Œ.�ˆ� */
	$"8B76 6157 5C65 6B68 5C5B 6A80 929F AAA8"            /* ‹vaW\ekh\[j€’Ÿª¨ */
	$"A29F 9A90 806E 6878 96AB B0A1 876D 584F"            /* ¢Ÿš�€nhx–«°¡‡mXO */
	$"5159 5E56 5057 6C7D 8178 6459 5B65 717F"            /* QY^VPWl}�xdY[eq. */
	$"9095 99A2 A7A8 A192 8B96 A9B4 B19F 8873"            /* �•™¢§¨¡’‹–©´±Ÿˆs */
	$"6A6D 7987 8775 676A 7576 7064 544D 5260"            /* jmy‡‡ugjuvpdTMR` */
	$"728C A2A6 A5A3 9983 6448 445E 87A6 B5B7"            /* rŒ¢¦¥£™ƒdHD^‡¦µ· */
	$"AD9B 8F8D 95A0 9F8D 7C79 7D77 6D5D 4B3F"            /* ­›��• Ÿ�|y}wm]K? */
	$"3E44 5061 6A66 6871 7773 6860 6C8C AFC4"            /* >DPajfhqwsh`lŒ¯Ä */
	$"C7B9 9D7F 6F6E 7B8F 9C9A 9CA8 AEA3 927F"            /* ǹ�.on{�œšœ¨®£’. */
	$"6854 4B4A 5367 7476 7F8B 8C7F 6D63 6A84"            /* hTKJSgtv.‹Œ.mcj„ */
	$"A3B6 B8AD 9478 6B70 8293 9482 6F66 5C4E"            /* £¶¸­”xkp‚“”‚of\N */
	$"4B50 5760 6E7F 91A2 A9A6 AAB0 AB99 7E69"            /* KPW`n.‘¢©¦ª°«™~i */
	$"6B83 A0B3 B6A6 8667 5753 5A64 645A 5457"            /* kƒ ³¶¦†gWSZddZTW */
	$"5856 5B61 6465 686C 7581 858A 99A9 AFA7"            /* XV[adehlu�…Š™©¯§ */
	$"998F 95A9 BDC3 BCA6 8262 585E 7184 8981"            /* ™�•©½Ã¼¦‚bX^q„‰� */
	$"7875 6F64 5F5C 5B5A 5B60 7082 8F98 A7B1"            /* xuod_\[Z[`p‚�˜§± */
	$"AA90 6F54 5269 87A1 ADA9 9887 8083 93A3"            /* ª�oTRi‡¡­©˜‡€ƒ“£ */
	$"A69D 9389 7762 564F 4C4D 4F52 5C65 6667"            /* ¦�“‰wbVOLMOR\efg */
	$"727B 7B6F 615E 7192 B1C2 C3B4 9576 6565"            /* r{{oa^qձ噥vee */
	$"788B 979B A0A6 9F8F 857E 7770 6760 6265"            /* x‹—› ¦Ÿ�…~wpg`be */
	$"676B 7988 8C81 706A 7993 A9B7 B6A5 896E"            /* gkyˆŒ�pjy“©·¶¥‰n */
	$"6165 788B 948F 8373 573B 343C 4F62 7384"            /* aex‹”�ƒsW;4<Obs„ */
	$"969F 9EA0 ADB9 B5A1 8879 7E8D 9CA8 A89A"            /* –Ÿž ­¹µ¡ˆy~�œ¨¨š */
	$"8268 5959 636B 6B65 5F59 493C 4150 5F6B"            /* ‚hYYckke_YI<AP_k */
	$"727A 817E 7B84 97A9 AEA5 9898 A7B7 C1C4"            /* rz�~{„—©®¥˜˜§·ÁÄ */
	$"B9A5 8565 5357 6879 8587 867C 6655 545A"            /* ¹¥…eSWhy…‡†|fUTZ */
	$"6268 6A6E 7478 7D8B 9FAF AE9B 8170 6D74"            /* bhjntx}‹Ÿ¯®›�pmt */
	$"8293 9B97 8979 747D 8D9D A5A4 9E90 755C"            /* ‚“›—‰yt}��¥¤ž�u\ */
	$"504C 4F52 545F 6768 676E 787F 7D6F 6369"            /* PLORT_ghgnx.}oci */
	$"7D94 A9B5 B2A6 8F76 6765 7282 8E98 9F9E"            /* }”©µ²¦�vger‚Ž˜Ÿž */
	$"8E7F 7C7C 8180 7B7B 756B 6569 717C 837D"            /* Ž.||�€{{ukeiq|ƒ} */
	$"757C 8D9F ACB0 AB9F 866D 6265 7383 8C8E"            /* u|�Ÿ¬°«Ÿ†mbesƒŒŽ */
	$"8A77 573D 3134 465A 6E86 9499 9CA1 A9B4"            /* ŠwW=14FZn†”™œ¡©´ */
	$"B4A5 9898 9B9D 9B96 9087 7666 6265 6D73"            /* ´¥˜˜›�›–�‡vfbems */
	$"716C 655A 4636 3541 5667 7381 847E 7B80"            /* qleZF65AVgs�„~{€ */
	$"8D9F AAA3 9FA7 B2BD C0B9 AFA1 886E 615F"            /* �Ÿª£Ÿ§²½À¹¯¡ˆna_ */
	$"6872 777C 8179 6555 525A 676E 7279 7877"            /* hrw|�yeURZgnryxw */
	$"7C85 92A2 A89B 908D 8B89 8480 8486 7A71"            /* |…’¢¨›��‹‰„€„†zq */
	$"747E 8B96 9A9E 9E92 7C66 5751 5351 5460"            /* t~‹–šžž’|fWQSQT` */
	$"686B 6D70 7784 8373 6E78 8797 9DA0 A29B"            /* hkmpw„ƒsnx‡—� ¢› */
	$"8675 6E6E 767F 828C 9593 877C 777C 8586"            /* †unnv.‚Œ•“‡|w|…† */
	$"8589 847B 7471 737A 7972 7888 99A6 A6A1"            /* …‰„{tqszyrxˆ™¦¦¡ */
	$"9F95 8070 6A6F 777A 797D 8075 604B 3C3A"            /* Ÿ•€pjowzy}€u`K<: */
	$"4450 647F 909A 9FA0 A7B1 B0A7 A8AE B2AD"            /* DPd.�šŸ §±°§¨®²­ */
	$"9B8D 8679 675F 6470 7976 6D6B 6759 493D"            /* ›�†yg_dpyvmkgYI= */
	$"373F 4F5C 6B7D 8585 8180 8C9C 9F9E A7B2"            /* 7?O\k}……�€ŒœŸž§² */
	$"BCBF B6AC A596 8276 7273 736C 666B 7371"            /* ¼¿¶¬¥–‚vrsslfksq */
	$"6960 5B60 666A 7480 817F 7E82 919E 9C98"            /* i`[`fjt€�.~‚‘žœ˜ */
	$"9DA2 A093 8177 7673 6C6A 7281 8A88 868E"            /* �¢ “�wvsljr�Šˆ†Ž */
	$"9590 8476 675F 5852 565F 6469 6E74 818A"            /* •�„vg_XRV_dint�Š */
	$"857D 7E85 8E93 9495 958C 7C74 777D 7B73"            /* …}~…Ž“”••Œ|tw}{s */
	$"717A 8689 8680 7B7C 7D80 8891 8F88 807D"            /* qz†‰†€{|}€ˆ‘�ˆ€} */
	$"8282 7772 7C8E 9DA2 A09C 9587 7872 767D"            /* ‚‚wr|Ž�¢ œ•‡xrv} */
	$"7A6F 696E 746F 6558 4C45 4148 5D75 8792"            /* zointoeXLEAH]u‡’ */
	$"9AA3 AFB4 ADAA B2BB BFB7 A693 826E 5D5A"            /* š£¯´­ª²»¿·¦“‚n]Z */
	$"6674 776F 6665 655C 5248 4442 434F 6477"            /* ftwofee\RHDBCOdw */
	$"8084 8488 929A 9A9E ABB7 BCB9 B2A9 9D8C"            /* €„„ˆ’ššž«·¼¹²©�Œ */
	$"7E7E 8587 7C69 5E60 696C 6B68 6461 6067"            /* ~~…‡|i^`ilkhda`g */
	$"7682 8482 8188 959B 9796 9EA5 A399 8978"            /* v‚„‚�ˆ•›—–ž¥£™‰x */
	$"6D63 606A 7781 7F78 777F 8A8F 8B83 786A"            /* mc`jw�.xw.Š�‹ƒxj */
	$"5E5C 6264 6365 6A78 878E 8A86 898A 8B8D"            /* ^\bdcejx‡ŽŠ†‰Š‹� */
	$"8E8C 877D 757A 8384 7869 656E 7C85 8885"            /* ŽŒ‡}uzƒ„xien|…ˆ… */
	$"7F76 747C 8A93 938F 8B8E 928F 837C 8086"            /* .vt|Š““�‹Ž’�ƒ|€† */
	$"8F97 9995 8C7C 757B 8382 7769 6264 6C71"            /* �—™•Œ|u{ƒ‚wibdlq */
	$"6D63 5446 414A 5F6F 7A85 91A2 B2B6 B0AE"            /* mcTFAJ_oz…‘¢²¶°® */
	$"B4B8 BBB9 AE9B 8269 5E63 6C6F 6A61 5E60"            /* ´¸»¹®›‚i^cloja^` */
	$"6565 6055 4840 4250 6573 7B80 8590 9A9A"            /* ee`UH@BPes{€…�šš */
	$"989E A8AF B5B5 AFA4 9380 7B86 918E 7F6C"            /* ˜ž¨¯µµ¯¤“€{†‘Ž.l */
	$"615E 666E 716D 6159 5C6B 7A82 8586 8690"            /* a^fnqmaY\kz‚…††� */
	$"9B9E 9B9B 9D9D 9E9A 8F7C 6557 5B6D 7A7A"            /* ›ž››��žš�|eW[mzz */
	$"726B 6D72 808D 928C 7A6A 656B 6F6D 6866"            /* rkmr€�’Œzjekomhf */
	$"6C7B 8A8F 8E8F 8E8C 8D8E 8C85 7871 7581"            /* l{Š�Ž�ŽŒ�ŽŒ…xqu� */
	$"8680 7365 5F63 7485 8B84 766C 717F 8B8F"            /* †€se_ct…‹„vlq.‹� */
	$"9395 969C A09D 948B 8584 8990 938A 7B74"            /* “•–œ �”‹…„‰�“Š{t */
	$"7983 847D 7368 6260 6A75 7668 5246 4A55"            /* yƒ„}shb`juvhRFJU */
	$"606A 757E 8DA0 B0B7 B4B0 AEB2 B7BA B49E"            /* `ju~� °·´°®²·º´ž */
	$"806C 696D 6D68 625A 5558 6570 6D5B 4741"            /* €limmhbZUXepm[GA */
	$"4957 6570 7980 8894 9D9F 9D9A 9EA6 AEB2"            /* IWepy€ˆ”�Ÿ�šž¦®² */
	$"AC99 847B 828B 8D89 8073 6663 6D79 796A"            /* ¬™„{‚‹�‰€sfcmyyj */
	$"5954 5F6D 7880 8486 8D98 A1A4 A098 9698"            /* YT_mx€„†�˜¡¤ ˜–˜ */
	$"9C9D 9379 5E53 5D6C 7272 6F69 646A 7D8E"            /* œ�“y^S]lrroidj}Ž */
	$"9186 766F 7376 7776 726E 727F 8B91 8D88"            /* ‘†vosvwvrnr.‹‘�ˆ */
	$"8A8D 9092 8C7A 6B6B 7884 837C 7569 5E60"            /* Š��’Œzkkx„ƒ|ui^` */
	$"7386 887A 6C6B 7581 8A90 9193 9BA3 A9A9"            /* s†ˆzlku�Š�‘“›£©© */
	$"9F92 8A86 8B91 8C7B 6C6B 7781 807A 746B"            /* Ÿ’Š†‹‘Œ{lkw�€ztk */
	$"6161 6D78 7463 5350 565C 646C 727D 8D9E"            /* aamxtcSPV\dlr}�ž */
	$"ADB6 B1A8 A7AA B4BB B199 7F73 7373 6E67"            /* ­¶±¨§ª´»±™.sssng */
	$"6259 5154 6471 6B56 4648 545F 6B75 7A81"            /* bYQTdqkVFHT_kuz� */
	$"8C98 A2A5 9E97 969A A7AF A58E 7B78 8187"            /* Œ˜¢¥ž—–š§¯¥Ž{x�‡ */
	$"8685 8379 6E6D 767D 7563 595D 656C 767E"            /* †…ƒynmv}ucY]elv~ */
	$"8289 939E A7A9 A096 9093 9C9F 9076 5E56"            /* ‚‰“ž§© –�“œŸ�v^V */
	$"5C62 686F 706A 646B 7B87 8579 7378 7F81"            /* \bhopjdk{‡…ysx.� */
	$"817F 7C7A 7C85 8F91 8A83 8185 8E91 8573"            /* �.|z|…�‘Šƒ�…Ž‘…s */
	$"676A 757C 7D7C 786D 6467 737C 786C 6971"            /* gju|}|xmdgs|xliq */
	$"7B82 8A90 9297 9FAA B3B1 A599 8F8C 9295"            /* {‚Š�’—Ÿª³±¥™�Œ’• */
	$"8975 6667 7077 7A7B 776B 6467 6D6F 665A"            /* ‰ufgpwz{wkdgmofZ */
	$"555A 6064 696C 717B 8A9C ADB2 ADA6 A1A5"            /* UZ`dilq{Šœ­²­¦¡¥ */
	$"B0B3 A894 837D 7B77 726F 695F 595B 6163"            /* °³¨”ƒ}{wroi_Y[ac */
	$"5B4C 474F 5B66 6E75 7B83 8E9A A5A7 A097"            /* [LGO[fnu{ƒŽš¥§ — */
	$"9295 9DA2 9987 7776 7C80 8286 857F 7B7C"            /* ’•�¢™‡wv|€‚†….{| */
	$"7E7B 7061 5E66 6E73 777C 8189 939F A7A9"            /* ~{pa^fnsw|�‰“Ÿ§© */
	$"A299 9191 9798 8B74 635D 5D5D 6169 6C6B"            /* ¢™‘‘—˜‹tc]]]ailk */
	$"6B71 7679 756E 6F7B 868C 8C87 8382 858C"            /* kqvyuno{†ŒŒ‡ƒ‚…Œ */
	$"9397 8F82 7B7F 8788 7E70 676A 7276 7A7D"            /* “—�‚{.‡ˆ~pgjrvz} */
	$"7B75 7171 7271 6B62 6472 7F87 898C 9197"            /* {uqqrqkbdr.‡‰Œ‘— */
	$"9EA8 B2B4 AC9F 9694 938E 8272 696A 6D70"            /* ž¨²´¬Ÿ–”“Ž‚rijmp */
	$"7377 7570 6C6B 6C69 5E54 5763 6C70 7071"            /* swuplkli^TWclppq */
	$"737A 8695 A6B0 ADA4 9EA0 A6A6 9C8F 8785"            /* sz†•¦°­¤ž ¦¦œ�‡… */
	$"817B 7876 7069 6562 5E58 4E45 4855 626B"            /* �{xvpieb^XNEHUbk */
	$"7176 7D85 8E99 A8AF A89B 9393 9490 857A"            /* qv}…Ž™¨¯¨›““”�…z */
	$"7577 7A7D 8082 8180 8181 807C 7064 656F"            /* uwz}€‚�€��€|pdeo */
	$"777B 7D80 8488 8E98 A6AC A59B 9492 918A"            /* w{}€„ˆŽ˜¦¬¥›”’‘Š */
	$"7E72 6A67 635E 5E63 6668 6B6D 6F6E 6A67"            /* ~rjgc^^cfhkmonjg */
	$"6F7F 8B91 918F 8C88 878E 999E 988A 7F7D"            /* o.‹‘‘�Œˆ‡Ž™ž˜Š.} */
	$"7D77 6E68 6A70 7478 7C7E 7B77 7674 726D"            /* }wnhjptx|~{wvtrm */
	$"655E 6472 7E87 8B8F 9395 98A1 AEB5 B1A7"            /* e^dr~‡‹�“•˜¡®µ±§ */
	$"9E99 9285 786E 6D70 7272 7476 7470 6D69"            /* ž™’…xnmprrtvtpmi */
	$"6661 5954 5C69 7277 787A 7C7C 808E A0AC"            /* faYT\irwxz||€Ž ¬ */
	$"AEA6 9E9C 9A93 8A86 888B 8984 7F7B 746E"            /* ®¦žœš“Š†ˆ‹‰„.{tn */
	$"6964 6058 4C46 4C56 606A 7179 8084 8997"            /* id`XLFLV`jqy€„‰— */
	$"A6AF AEA4 9B96 8D7F 726D 737A 7D7E 8181"            /* ¦¯®¤›–�.rmsz}~�� */
	$"7E7C 7E80 827E 756F 7379 7E80 8185 8886"            /* ~|~€‚~uosy~€�…ˆ† */
	$"8A95 A1A7 A49B 9590 8679 6F6C 7072 6E68"            /* Š•¡§¤›•�†yolprnh */
	$"6664 5F5F 6165 6968 666A 7682 8C92 9599"            /* fd__aeihfjv‚Œ’•™ */
	$"968E 8C92 9A9F 9D93 897F 7366 5F5E 6772"            /* –ŽŒ’šŸ�“‰.sf_^gr */
	$"787C 807E 7671 7173 746E 6867 6D74 7C82"            /* x|€~vqqstnhgmt|‚ */
	$"878F 9291 96A1 ABB2 B1AA A39C 8D7B 6F6B"            /* ‡�’‘–¡«²±ª£œ�{ok */
	$"7077 7A7B 7C78 706A 6663 605C 585D 656E"            /* pwz{|xpjfc`\X]en */
	$"767A 7D82 827F 8591 9EA7 A8A5 A098 8B7F"            /* vz}‚‚.…‘ž§¨¥ ˜‹. */
	$"7C7E 868D 908F 8B83 766B 6463 615B 5554"            /* |~†���‹ƒvkdca[UT */
	$"5559 5F64 6C77 7C81 8C98 A3AB ABA8 A296"            /* UY_dlw|�Œ˜£««¨¢– */
	$"8575 6A67 6E76 7D83 8681 7973 7479 7D7E"            /* …ujgnv}ƒ†�ysty}~ */
	$"7F82 8385 8684 8486 878A 929A A0A1 9C96"            /* .‚ƒ…†„„†‡Š’š ¡œ– */
	$"9189 7B6F 6869 7075 7777 7368 5C56 5458"            /* ‘‰{ohipuwwsh\VTX */
	$"5E63 6971 7A82 898E 9398 9898 9A9D 9E9C"            /* ^ciqz‚‰Ž“˜˜˜š�žœ */
	$"9995 8F80 6E60 5A5B 646F 7A82 857E 746C"            /* ™•�€n`Z[doz‚…~tl */
	$"686B 7072 7476 7777 797C 8186 8891 9DA6"            /* hkprtvwwy|�†ˆ‘�¦ */
	$"ABAC AAA7 A399 8A7C 7270 747A 8086 857C"            /* «¬ª§£™Š|rptz€†…| */
	$"7066 605C 595A 5E64 696F 7578 7C7E 8089"            /* pf`\YZ^dioux|~€‰ */
	$"939A 9C9C 9C9B 998E 8178 767A 838C 9599"            /* “šœœœ›™Ž�xvzƒŒ•™ */
	$"9385 776B 625E 5E62 6565 6464 6361 6469"            /* “…wkb^^beeddcadi */
	$"7181 939F A3A3 A3A3 9E93 867B 726C 6C73"            /* q�“Ÿ££££ž“†{rlls */
	$"7B82 827D 7670 6B6C 747F 8A90 9291 8D88"            /* {‚‚}vpklt.Š�’‘�ˆ */
	$"8481 8390 9FA6 A49D 948C 8379 726D 6969"            /* „�ƒ�Ÿ¦¤�”Œƒyrmii */
	$"6F78 8082 7B6F 6157 504E 5461 6D75 7C84"            /* ox€‚{oaWPNTamu|„ */
	$"898B 8C8F 96A2 ABAB A399 918B 857A 6F67"            /* ‰‹Œ�–¢««£™‘‹…zog */
	$"605E 636E 7980 807C 766D 6562 6975 7F84"            /* `^cny€€|vmebiu.„ */
	$"8684 7E78 7678 8293 A4AD ABA6 A09B 958E"            /* †„~xvx‚“¤­«¦ ›•Ž */
	$"8983 7B73 767E 8486 837B 7167 5E59 595E"            /* ‰ƒ{sv~„†ƒ{qg^YY^ */
	$"6468 6D71 7374 7577 8093 A3A8 A39B 928B"            /* dhmqstuw€“£¨£›’‹ */
	$"8682 7F7C 7778 828E 9796 8F84 786D 625D"            /* †‚.|wx‚Ž—–�„xmb] */
	$"5F67 6E71 7170 6B62 5C5D 6B83 99A4 A39C"            /* _gnqqpkb\]kƒ™¤£œ */
	$"9590 8E8C 8B88 8076 7479 7D7A 7571 6F6B"            /* •�ŽŒ‹ˆ€vty}zuqok */
	$"676A 7280 8C95 9B9B 968C 837F 8699 ABB0"            /* gjr€Œ•››–Œƒ.†™«° */
	$"A89B 8C7C 726C 6E6F 6B68 707C 8380 786F"            /* ¨›Œ|rlnokhp|ƒ€xo */
	$"665C 514D 525C 6873 7D84 8885 8285 95AD"            /* f\QMR\hs}„ˆ…‚…•­ */
	$"BBBA AC9A 8879 7374 7776 6D66 6A73 7878"            /* »º¬šˆystwvmfjsxx */
	$"7571 706C 6564 6A76 8089 9090 887A 6E6E"            /* uqpledjv€‰��ˆznn */
	$"7D95 A8AE AAA1 9488 8587 8D8E 857D 7F86"            /* }•¨®ª¡”ˆ…‡�Ž…}.† */
	$"8881 7A74 716A 6361 6365 6668 6D71 706B"            /* ˆ�ztqjcacefhmqpk */
	$"696F 819C AEB2 A99A 887A 7579 8082 7C7A"            /* io�œ®²©šˆzuy€‚|z */
	$"8490 9591 897F 776E 6664 686D 7075 7A7A"            /* „�•‘‰.wnfdhmpuzz */
	$"7266 5B5B 6C86 999F 9D93 857A 7C85 8E92"            /* rf[[l†™Ÿ�“…z|…Ž’ */
	$"8C86 8586 8074 6862 6265 686F 7982 8890"            /* Œ†…†€thbbehoy‚ˆ� */
	$"9BA0 9B8F 8383 90A4 B2B3 A998 8370 686A"            /* › ›�ƒƒ�¤²³©˜ƒphj */
	$"6F70 6C6C 747C 7F7A 716A 6763 5E5C 5F60"            /* opllt|.zqjgc^\_` */
	$"626A 767F 817E 7C84 99B3 C2C0 B099 7F6D"            /* bjv.�~|„™³ÂÀ°™.m */
	$"6A72 7B7D 7773 7679 7870 6863 6468 6B6E"            /* jr{}wsvyxphcdhkn */
	$"7378 7C85 9095 9180 7170 8096 A7A9 A092"            /* sx|…�•‘€qp€–§© ’ */
	$"847B 7D88 9192 8C87 898B 887E 7169 696C"            /* „{}ˆ‘’Œ‡‰‹ˆ~qiil */
	$"6C6E 716F 6A6A 6E70 6C64 606B 84A0 B2B4"            /* lnqojjnpld`k„ ²´ */
	$"A794 8073 7279 8082 7E7F 8790 9189 7D73"            /* §”€sry€‚~.‡�‘‰}s */
	$"6F6E 6D70 7372 7074 7A7D 796B 6165 768B"            /* onmpsrptz}ykaev‹ */
	$"9997 8D80 726C 7280 8E93 9292 9493 8775"            /* ™—�€rlr€Ž“’’”“‡u */
	$"6054 555E 6874 7F82 858B 949C 9B8F 868B"            /* `TU^ht.‚…‹”œ›�†‹ */
	$"9BAC B6B0 A18E 7A6E 6C70 7371 6C6D 757B"            /* ›¬¶°¡Žznlpsqlmu{ */
	$"7A70 6461 646A 6E71 6F68 6263 6B76 7975"            /* zpdadjnqohbckvyu */
	$"7684 9DB3 BEB9 A691 7C6E 6D75 7D7F 7C7C"            /* v„�³¾¹¦‘|nmu}.|| */
	$"8082 7B6C 5E58 5E65 6E77 7B79 797F 8995"            /* €‚{l^X^enw{yy.‰• */
	$"9487 7B7C 8A9A A19B 8F81 7673 7D8A 9494"            /* ”‡{|Šš¡›��vs}Š”” */
	$"8F8E 9191 8979 6760 646B 737A 7B76 706D"            /* �Ž‘‘‰yg`dksz{vpm */
	$"7072 6C61 5E6B 839C A8A7 9C8D 7E77 7980"            /* prla^kƒœ¨§œ�~wy€ */
	$"8381 7E81 8B92 9083 756D 6E70 747A 7A75"            /* ƒ�~�‹’�ƒumnptzzu */
	$"7071 787F 7B70 6B71 8292 958B 7C6D 6363"            /* pqx.{pkq‚’•‹|mcc */
	$"6E7E 8A8E 9199 A1A1 937A 6154 535A 6977"            /* n~ŠŽ‘™¡¡“zaTSZiw */
	$"7F80 8187 9098 968F 8D96 A7B3 B2A6 9585"            /* .€�‡�˜–��–§³²¦•… */
	$"7771 7479 7971 6B6E 7478 7266 5A58 606D"            /* wqtyyqkntxrfZX`m */
	$"7B82 8074 6863 6870 716F 7586 9EB0 B5AC"            /* {‚€thchpqou†ž°µ¬ */
	$"9C8C 7C74 777E 807E 7C81 8889 7E6C 5C57"            /* œŒ|tw~€~|�ˆ‰~l\W */
	$"5C66 727C 7D78 7479 858F 908C 898D 949A"            /* \fr|}xty…��Œ‰�”š */
	$"968A 7D73 6D71 7E8C 9390 8E92 9896 8977"            /* –Š}smq~Œ“�Ž’˜–‰w */
	$"6660 626D 7980 8079 7473 7678 7066 656F"            /* f`bmy€€ytsvxpfeo */
	$"8191 9795 8E87 807F 8489 857E 7D83 8B8D"            /* �‘—•Ž‡€.„‰…~}ƒ‹� */
	$"887D 716C 6E73 7A7E 7B74 7072 787F 7C76"            /* ˆ}qlnsz~{tprx.|v */
	$"7780 8B93 8F83 7569 6163 6D79 8081 8A97"            /* w€‹“�ƒuiacmy€�Š— */
	$"A3A4 9882 6B5C 575D 6A74 797A 7C83 8D94"            /* £¤˜‚k\W]jtyz|ƒ�” */
	$"928F 94A0 ACB0 A99D 8F83 7A79 7D80 7A70"            /* ’�” ¬°©��ƒzy}€zp */
	$"6E73 7674 6A5E 5453 5C6D 7F88 857C 726C"            /* nsvtj^TS\m.ˆ…|rl */
	$"6C6D 6C6C 7687 99A2 A39D 9489 8080 8485"            /* lmllv‡™¢£�”‰€€„… */
	$"807A 7D86 8B89 7F6E 605A 5F6B 767B 7974"            /* €z}†‹‰.n`Z_kv{yt */
	$"7376 8089 8D90 969C 9D99 8D80 736C 6B74"            /* sv€‰��–œ�™�€slkt */
	$"8089 8989 8F96 9A95 8979 6A63 646F 7B80"            /* €‰‰‰�–š•‰yjcdo{€ */
	$"7E78 7677 7B7D 7771 7077 7E82 8281 8181"            /* ~xvw{}wqpw~‚‚��� */
	$"8389 908F 8780 8086 8988 837A 6F6C 6F78"            /* ƒ‰��‡€€†‰ˆƒzolox */
	$"7F7D 7772 7071 777B 7C7D 8288 8D8B 867E"            /* .}wrpqw{|}‚ˆ�‹†~ */
	$"756C 676A 7072 7276 8190 9CA1 9C8C 7869"            /* ulgjprrv��œ¡œŒxi */
	$"6468 6F72 7374 7880 888E 9094 9AA2 A7A6"            /* dhorstx€ˆŽ�”š¢§¦ */
	$"A098 8E85 8286 8781 7972 7377 7671 675B"            /*  ˜Ž…‚†‡�yrswvqg[ */
	$"5050 5A6B 7C84 8583 7E78 7370 6F72 7983"            /* PPZk|„…ƒ~xsporyƒ */
	$"8C91 918F 8D8A 888C 8D87 7E7B 8085 8787"            /* Œ‘‘��ŠˆŒ�‡~{€…‡‡ */
	$"8072 645E 636F 797A 7875 7475 7A81 8A94"            /* €rd^coyzxutuz�Š” */
	$"9CA1 9F95 887C 726C 7079 7F80 8085 8E95"            /* œ¡Ÿ•ˆ|rlpy.€€…Ž• */
	$"9795 8B7D 6E67 6A72 7979 7978 7879 7C7E"            /* —•‹}ngjryyyxxy|~ */
	$"8080 7E7C 7977 7473 757C 8690 9390 8885"            /* €€~|ywtsu|†�“�ˆ… */
	$"8687 8787 8279 706E 7279 7E7A 7674 7373"            /* †‡‡‡‚ypnry~zvtss */
	$"7376 7D84 898C 8C86 8079 7573 7375 736D"            /* sv}„‰ŒŒ†€yussusm */
	$"696D 7985 9099 9A90 8378 7373 7372 7273"            /* imy…�™š�ƒxsssrrs */
	$"777A 8087 9098 9D9F A09E 9992 8D8B 8D8E"            /* wz€‡�˜�Ÿ ž™’�‹�Ž */
	$"8B82 7A77 7776 7573 685B 514F 5664 7079"            /* ‹‚zwwvush[QOVdpy */
	$"8185 8581 7A75 7679 7B7E 8082 8282 858A"            /* �……�zuvy{~€‚‚‚…Š */
	$"9093 8F88 8281 8385 8686 8176 6A64 676F"            /* �“�ˆ‚�ƒ…††�vjdgo */
	$"7578 7979 7775 757C 8792 999D 9B95 8A7E"            /* uxyywuu|‡’™�›•Š~ */
	$"7574 767A 7A7A 7C83 898E 9294 8E81 756F"            /* utvzzz|ƒ‰Ž’”Ž�uo */
	$"6F72 7475 777A 7B7A 7A7E 8487 8681 7B75"            /* ortuwz{zz~„‡†�{u */
	$"6F6A 6C76 848E 908E 8C8A 8987 8988 837B"            /* ojlv„Ž�ŽŒŠ‰‡‰ˆƒ{ */
	$"7371 7377 7979 7877 7674 7276 7D84 8889"            /* sqswyyxwvtrv}„ˆ‰ */
	$"8884 7D76 767A 7D7B 756E 6B6D 7179 848E"            /* ˆ„}vvz}{unkmqy„Ž */
	$"9390 8A84 807B 7674 7578 7979 7B82 8C93"            /* “�Š„€{vtuxyy{‚Œ“ */
	$"989B 9C9A 948E 8C8F 9392 8E86 807D 7976"            /* ˜›œš”ŽŒ�“’Ž†€}yv */
	$"7675 6C60 5652 555C 636F 7B85 8987 827E"            /* vul`VRU\co{…‰‡‚~ */
	$"7E7E 7E7D 7C7B 7978 7E87 8E90 8E8A 8887"            /* ~~~}|{yx~‡Ž�ŽŠˆ‡ */
	$"8584 8787 8278 706B 6B6D 7176 7B7D 7C78"            /* …„‡‡‚xpkkmqv{}|x */
	$"777B 848D 9398 9A95 8B80 7B79 7979 7877"            /* w{„�“˜š•‹€{yyyxw */
	$"7A7F 8388 8D90 8D84 7B76 7372 7173 777B"            /* z.ƒˆ���„{vsrqsw{ */
	$"7C7B 7B7E 8488 8887 827A 716A 6C73 7C84"            /* |{{~„ˆˆ‡‚zqjls|„ */
	$"898B 8D8E 8C8B 8A88 837C 7674 7474 7476"            /* ‰‹�ŽŒ‹Šˆƒ|vttttv */
	$"7879 7875 7476 7C80 8387 8784 7E78 787C"            /* xyxutv|€ƒ‡‡„~xx| */
	$"7F7D 7874 716F 6F73 7A83 8789 8988 8681"            /* .}xtqooszƒ‡‰‰ˆ†� */
	$"7C79 7B7D 7C7A 7A7F 878D 9296 9897 928D"            /* |y{}|zz.‡�’–˜—’� */
	$"8D8F 9190 8E8B 8681 7D79 7874 6D63 5B56"            /* ��‘�Ž‹†�}yxtmc[V */
	$"5758 5D68 7480 8787 8787 8583 8080 7E7A"            /* WX]ht€‡‡‡‡…ƒ€€~z */
	$"7675 7980 878A 8A8A 8A8A 8988 8987 8178"            /* vuy€‡ŠŠŠŠŠ‰ˆ‰‡�x */
	$"736F 6E6E 6E75 7B7F 7E7B 797C 8187 8E93"            /* sonnnu{.~{y|�‡Ž“ */
	$"9694 8C85 817F 7C78 7777 797C 8085 8A8B"            /* –”Œ…�.|xwwy|€…Š‹ */
	$"8782 7D79 7775 7375 787C 7C7A 7C80 8487"            /* ‡‚}ywusux||z|€„‡ */
	$"8888 847C 736E 6E71 7579 8087 8E90 908E"            /* ˆˆ„|snnquy€‡Ž��Ž */
	$"8D88 8179 7676 7676 7678 7A7B 7876 7679"            /* �ˆ�yvvvvvxz{xvvy */
	$"7C80 8386 8683 7E7B 7C7E 7F7D 7A78 7672"            /* |€ƒ††ƒ~{|~.}zxvr */
	$"7172 7578 7A7D 8286 8886 8382 8180 7E7C"            /* qruxz}‚†ˆ†ƒ‚�€~| */
	$"7C81 8689 8D91 9391 8F8E 8F90 8F8D 8C8C"            /* |�†‰�‘“‘�Ž����ŒŒ */
	$"8A86 8380 7B73 6A62 5D5B 5A5A 5E65 6F79"            /* Š†ƒ€{sjb][ZZ^eoy */
	$"8086 8B8E 8C88 8583 7E79 7473 777C 8082"            /* €†‹ŽŒˆ…ƒ~ytsw|€‚ */
	$"8588 8A8B 8B8A 8985 7D77 7372 7171 7378"            /* …ˆŠ‹‹Š‰…}wsrqqsx */
	$"7D80 7E7D 7E80 8284 898E 918F 8D8B 8985"            /* }€~}~€‚„‰Ž‘��‹‰… */
	$"807A 7778 7A7C 7F83 8683 7E7A 7B7C 7B7A"            /* €zwxz|.ƒ†ƒ~z{|{z */
	$"797A 7A7A 797A 7D81 8486 8888 847D 7572"            /* yzzzyz}�„†ˆˆ„}ur */
	$"7171 7274 7A83 8A8F 9292 8F88 7F78 7777"            /* qqrtzƒŠ�’’�ˆ.xww */
	$"7778 7A7C 7D7B 7877 7A7D 7F80 8284 8380"            /* wxz|}{xwz}.€‚„ƒ€ */
	$"7D7D 7E7E 7E7D 7C7B 7977 7574 726F 6D71"            /* }}~~~}|{ywutromq */
	$"7A83 888B 8B89 8682 7E7E 8185 8789 8B8D"            /* zƒˆ‹‹‰†‚~~�…‡‰‹� */
	$"8D8B 8C8E 9090 8E8C 8C8D 8B89 8783 7D74"            /* �‹ŒŽ��ŽŒŒ�‹‰‡ƒ}t */
	$"6963 605E 5D5D 6165 6B71 7982 8B90 918E"            /* ic`^]]aekqy‚‹�‘Ž */
	$"8A85 7F77 7474 7677 7A7D 8084 8789 8A8A"            /* Š….wttvwz}€„‡‰ŠŠ */
	$"8680 7875 7575 7678 7A7C 7D7D 7D80 8283"            /* †€xuuuvxz|}}}€‚ƒ */
	$"8282 8587 8788 8A8C 8B88 8380 7D7A 7A7D"            /* ‚‚…‡‡ˆŠŒ‹ˆƒ€}zz} */
	$"8080 7F7A 7575 787C 7E80 8080 7D79 787C"            /* €€.zuux|~€€€}yx| */
	$"8083 8587 8887 817A 7673 7170 6E70 767E"            /* €ƒ…‡ˆ‡�zvsqpnpv~ */
	$"858C 9191 8B83 7C78 7878 7A7D 7D7D 7A78"            /* …Œ‘‘‹ƒ|xxxz}}}zx */
	$"787C 8081 8282 8382 807D 7C7D 7E7E 7E7F"            /* x|€�‚‚ƒ‚€}|}~~~. */
	$"7F7D 7B7A 7872 6C66 656A 747F 888E 8F8C"            /* .}{zxrlfejt.ˆŽ�Œ */
	$"8782 8082 8587 8889 8B89 8684 878A 8E8F"            /* ‡‚€‚…‡ˆ‰‹‰†„‡ŠŽ� */
	$"8E8E 8D8B 8989 8782 7A71 6A67 6565 6565"            /* ŽŽ�‹‰‰‡‚zqjgeeee */
	$"6464 656A 7480 8B90 9292 8E88 8078 7574"            /* ddejt€‹�’’Žˆ€xut */
	$"7677 787B 7E80 8287 8886 8079 7677 787A"            /* vwx{~€‚‡ˆ†€yvwxz */
	$"7D7E 7E7D 7B7D 8084 8787 8584 8381 8080"            /* }~~}{}€„‡‡…„ƒ�€€ */
	$"8488 8B8B 8986 827D 7B7D 7D7B 7773 7274"            /* „ˆ‹‹‰†‚}{}}{wsrt */
	$"777D 8284 8380 7D7B 7D81 8485 8687 8885"            /* w}‚„ƒ€}{}�„…†‡ˆ… */
	$"807A 7674 7270 7172 7478 8086 8B8B 8781"            /* €zvtrpqrtx€†‹‹‡� */
	$"7E7D 7D7E 8080 7D7A 7777 7B7F 8283 8485"            /* ~}}~€€}zww{.‚ƒ„… */
	$"8582 7F7B 7B7C 7D80 8283 817F 7D7B 7772"            /* …‚.{{|}€‚ƒ�.}{wr */
	$"6B64 6369 717C 868C 8D8B 8886 8688 8989"            /* kdciq|†Œ�‹ˆ††ˆ‰‰ */
	$"8889 8A87 8280 8185 8A8E 9192 8E8A 8987"            /* ˆ‰Š‡‚€�…ŠŽ‘’ŽŠ‰‡ */
	$"847E 7771 6F6D 6D6E 6D6B 6765 6569 737F"            /* „~wqommnmkgeeis. */
	$"878D 9092 918B 827A 7675 7678 7B7D 7C7B"            /* ‡��’‘‹‚zvuvx{}|{ */
	$"7D80 8180 7B78 7878 7B7E 8080 7E7B 7A7E"            /* }€�€{xxx{~€€~{z~ */
	$"8387 8989 8785 837F 7A79 7D82 878C 8E8C"            /* ƒ‡‰‰‡…ƒ.zy}‚‡ŒŽŒ */
	$"8780 7E7C 7A78 7472 7276 7A7F 8182 807F"            /* ‡€~|zxtrrvz.�‚€. */
	$"7E80 8385 8685 8586 8783 7E79 7674 7474"            /* ~€ƒ…†……†‡ƒ~yvttt */
	$"7574 7273 787F 8385 8381 8182 8384 8380"            /* utrsx.ƒ…ƒ��‚ƒ„ƒ€ */
	$"7C78 7779 7F82 8383 8485 8581 7C7A 797A"            /* |xwy.‚ƒƒ„……�|zyz */
	$"7E81 8383 807D 7B79 7671 6C67 686C 737A"            /* ~�ƒƒ€}{yvqlghlsz */
	$"8084 8687 888B 8E8E 8C89 8788 8785 807D"            /* €„†‡ˆ‹ŽŽŒ‰‡ˆ‡…€} */
	$"7E80 868C 9192 8E88 8583 807C 7875 7475"            /* ~€†Œ‘’Žˆ…ƒ€|xutu */
	$"7575 716D 6966 686E 757E 8387 8C90 908A"            /* uuqmifhnu~ƒ‡Œ��Š */
	$"837C 7977 7A7C 7F7E 7A77 7779 7A7A 7A79"            /* ƒ|ywz|.~zwwyzzzy */
	$"7A7D 8081 807E 7B7A 7C82 888B 8A89 8786"            /* z}€�€~{z|‚ˆ‹Š‰‡† */
	$"837E 7977 797D 858B 8F8E 8881 7D7B 7977"            /* ƒ~ywy}…‹�Žˆ�}{yw */
	$"7674 777A 7C7F 7F7E 7C7C 8084 8889 8885"            /* vtwz|..~||€„ˆ‰ˆ… */
	$"8585 8480 7B78 7676 7779 7976 716F 7277"            /* ……„€{xvvwyyvqorw */
	$"7B7F 8082 8588 8888 8580 7A77 797F 8385"            /* {.€‚…ˆˆˆ…€zwy.ƒ… */
	$"8481 8283 8380 7C7B 7B7B 8083 8583 7E7A"            /* „�‚ƒƒ€|{{{€ƒ…ƒ~z */
	$"7977 7673 6F6D 6E72 7579 7B7C 7E83 8990"            /* ywvsomnruy{|~ƒ‰� */
	$"9492 8E89 8787 8481 7E7C 7C80 858B 8F8E"            /* ”’Ž‰‡‡„�~||€…‹�Ž */
	$"8985 8381 807C 7978 797B 7B78 746E 6969"            /* ‰…ƒ�€|yxy{{xtnii */
	$"6D75 7B7E 8083 8689 8A87 8380 7C7B 7D80"            /* mu{~€ƒ†‰Š‡ƒ€|{}€ */
	$"807C 7773 7375 7678 797B 7F81 8382 807C"            /* €|wssuvxy{.�ƒ‚€| */
	$"7979 8087 8C8C 8A88 8785 817C 7978 787B"            /* yy€‡ŒŒŠˆ‡…�|yxx{ */
	$"8389 8D8A 8480 7E7C 7B79 7879 7B7D 7F7F"            /* ƒ‰�Š„€~|{yxy{}.. */
	$"7D7B 797B 8188 8C8B 8885 8482 807D 7B79"            /* }{y{�ˆŒ‹ˆ…„‚€}{y */
	$"7878 7A7C 7A74 6F6D 6E72 767A 7E82 878A"            /* xxz|ztomnrvz~‚‡Š */
	$"8B89 8580 7A79 7E84 8785 8381 8080 7F7D"            /* ‹‰…€zy~„‡…ƒ�€€.} */
	$"7C7C 7D7F 8285 8480 7A77 7777 7675 7474"            /* ||}.‚…„€zwwwvutt */
	$"7576 7879 7977 7980 8991 9594 8F8A 8684"            /* uvxyywy€‰‘•”�Š†„ */
	$"807E 7D7D 7E80 8589 8A86 8381 8181 807E"            /* €~}}~€…‰Š†ƒ���€~ */
	$"7D7E 7E7E 7D7A 756F 6C6D 747B 7F80 8080"            /* }~~~}zuolmt{.€€€ */
	$"8081 8283 8281 8080 8181 7E79 7472 7274"            /* €�‚ƒ‚�€€��~ytrrt */
	$"7577 7A7D 8082 8281 7E7A 797C 8289 8C8C"            /* uwz}€‚‚�~zy|‚‰ŒŒ */
	$"8A87 8582 807D 7B7A 7A7E 8285 8582 807E"            /* Š‡…‚€}{zz~‚……‚€~ */
	$"7F7E 7D7D 7D7D 7E7F 807E 7B78 787D 8389"            /* .~}}}}~.€~{xx}ƒ‰ */
	$"8C8B 8885 8280 7D7C 7A7A 7A7C 7D7D 7871"            /* Œ‹ˆ…‚€}|zzz|}}xq */
	$"6D6D 6F72 7579 7E82 8689 8A89 8480 7D7E"            /* mmoruy~‚†‰Š‰„€}~ */
	$"8287 8786 8380 7E7C 7A7B 7C7D 8082 8484"            /* ‚‡‡†ƒ€~|z{|}€‚„„ */
	$"807A 7675 7778 7878 7878 7979 7978 7776"            /* €zvuwxxxxxyyyxwv */
	$"787F 878D 9090 8D89 8480 7E7D 7D7E 8082"            /* x.‡����‰„€~}}~€‚ */
	$"8585 8280 7E80 8081 8080 8080 8080 7E7B"            /* ……‚€~€€�€€€€€€~{ */
	$"7671 7073 787D 8080 807E 7D7D 7D80 8081"            /* vqpsx}€€€~}}}€€� */
	$"8384 8381 7B75 7272 7476 7779 7B7D 8080"            /* ƒ„ƒ�{urrtvwy{}€€ */
	$"8180 7D7B 7B80 8388 8A89 8884 8180 7E7D"            /* �€}{{€ƒˆŠ‰ˆ„�€~} */
	$"7D7C 7D80 8181 807C 7C7D 8080 8080 8080"            /* }|}€��€||}€€€€€€ */
	$"8080 807D 7B79 7A80 8387 8989 8784 817E"            /* €€€}{yz€ƒ‡‰‰‡„�~ */
	$"7C7B 7B7B 7D7E 7D7B 7570 6F70 7274 777B"            /* |{{{}~}{upoprtw{ */
	$"7E81 8385 8785 8380 8182 8586 8685 8380"            /* ~�ƒ…‡…ƒ€�‚…††…ƒ€ */
	$"7D7A 797A 7B7D 8083 8481 7C78 7676 787A"            /* }zyz{}€ƒ„�|xvvxz */
	$"7B7C 7C7B 7B7A 7A79 7778 7B80 868A 8C8D"            /* {||{{zzywx{€†ŠŒ� */
	$"8B89 8480 7E7D 7D7E 8183 8481 7E7B 7C7D"            /* ‹‰„€~}}~�ƒ„�~{|} */
	$"8081 8384 8382 8080 7D7A 7775 7578 7B7D"            /* €�ƒ„ƒ‚€€}zwuux{} */
	$"7F80 7E7D 7C7A 7B7D 8081 8485 8380 7975"            /* .€~}|z{}€�„…ƒ€yu */
	$"7475 7678 7A7C 7D7D 7E7F 7F7E 7D7D 8082"            /* tuvxz|}}~..~}}€‚ */
	$"8485 8686 8583 817E 7D7D 7E80 8081 817E"            /* „…††…ƒ�~}}~€€��~ */
	$"7B79 7A7C 8081 8384 8381 8080 7F7D 7C7C"            /* {yz|€�ƒ„ƒ�€€.}|| */
	$"7F81 8485 8686 8583 807F 7E7D 7D7D 7E7E"            /* .�„…††…ƒ€.~}}}~~ */
	$"7C78 7471 7172 7477 7A7D 7F80 8182 8383"            /* |xtqqrtwz}.€�‚ƒƒ */
	$"8383 8586 8686 8584 8280 7E7C 7B7B 7C7E"            /* ƒƒ…†††…„‚€~|{{|~ */
	$"8082 817F 7B78 7878 7A7C 7E7F 7E7D 7C7B"            /* €‚�.{xxxz|~.~}|{ */
	$"7A79 797B 7E81 8486 8889 8887 8482 807E"            /* zyy{~�„†ˆ‰ˆ‡„‚€~ */
	$"7E80 8081 817F 7C7B 7B7D 8082 8485 8583"            /* ~€€��.|{{}€‚„……ƒ */
	$"8180 7D7B 7A79 7B7C 7D7D 7D7E 7E7D 7C7C"            /* �€}{zy{|}}}~~}|| */
	$"7C7D 7E80 8283 807E 7A77 7677 797B 7D7E"            /* |}~€‚ƒ€~zwvwy{}~ */
	$"7E7E 7E7D 7D7D 7E80 8283 8483 8383 8381"            /* ~~~}}}~€‚ƒ„ƒƒƒƒ� */
	$"8080 7F7F 8080 8080 807D 7B7A 7B7D 8082"            /* €€..€€€€€}{z{}€‚ */
	$"8484 8482 807F 7E7D 7D80 8183 8383 8382"            /* „„„‚€.~}}€�ƒƒƒƒ‚ */
	$"8280 8080 7F7E 7D7D 7D7C 7A78 7573 7375"            /* ‚€€€.~}}}|zxussu */
	$"7779 7C7D 7F80 8080 8081 8284 8686 8584"            /* wy|}.€€€€�‚„††…„ */
	$"8382 8180 7F7D 7C7C 7C7D 7E7F 7E7D 7C7A"            /* ƒ‚�€.}|||}~.~}|z */
	$"7A7A 7B7D 7F80 7F7E 7C7B 7A7A 7B7E 8082"            /* zz{}.€.~|{zz{~€‚ */
	$"8484 8485 8584 8482 8180 7F7F 7F7F 7E7D"            /* „„„……„„‚�€....~} */
	$"7C7C 7C7E 8082 8485 8483 8180 7D7C 7C7D"            /* |||~€‚„…„ƒ�€}||} */
	$"7E7E 7D7C 7C7C 7C7C 7D7D 7D7D 7E7F 8080"            /* ~~}|||||}}}}~.€€ */
	$"7F7D 7B7A 7979 7B7C 7E7F 7F7E 7D7C 7C7C"            /* .}{zyy{|~..~}||| */
	$"7E80 8384 8382 8180 8080 8080 807F 7F7F"            /* ~€ƒ„ƒ‚�€€€€€€... */
	$"7F7E 7D7C 7C7C 7C7E 8082 8484 8482 8080"            /* .~}||||~€‚„„„‚€€ */
	$"7E7E 7F81 8283 8282 8181 8080 8080 807E"            /* ~~.�‚ƒ‚‚��€€€€€~ */
	$"7D7C 7C7C 7A78 7776 7677 797B 7C7E 7E7F"            /* }|||zxwvvwy{|~~. */
	$"7F7F 8080 8284 8686 8483 8181 8080 8080"            /* ..€€‚„††„ƒ��€€€€ */
	$"7E7D 7C7C 7C7C 7C7C 7C7C 7C7C 7D7E 8080"            /* ~}||||||||||}~€€ */
	$"7F7E 7D7C 7C7C 7D80 8182 8282 8282 8283"            /* .~}|||}€�‚‚‚‚‚‚ƒ */
	$"8383 8180 7E7D 7D7D 7C7C 7C7C 7D7E 8082"            /* ƒƒ�€~}}}||||}~€‚ */
	$"8383 8383 8280 807E 7E7F 807E 7D7D 7C7C"            /* ƒƒƒƒ‚€€~~.€~}}|| */
	$"7C7D 7D7E 7E7D 7D7D 7E7E 7D7D 7D7C 7B7B"            /* |}}~~}}}~~}}}|{{ */
	$"7C7D 7E7E 7E7E 7E7D 7D7D 7E80 8282 8281"            /* |}~~~~~}}}~€‚‚‚� */
	$"8080 8080 8080 807E 7D7D 7E7D 7D7D 7D7E"            /* €€€€€€€~}}~}}}}~ */
	$"7F80 8182 8383 8282 8180 7F7F 8081 8282"            /* .€�‚ƒƒ‚‚�€..€�‚‚ */
	$"8181 8080 8080 8180 807E 7D7C 7B7B 7A79"            /* ��€€€€�€€~}|{{zy */
	$"7978 7979 7B7C 7D7E 7E7F 8080 8080 8183"            /* yxyy{|}~~.€€€€�ƒ */
	$"8484 8482 8180 8080 8080 7F7D 7C7C 7C7C"            /* „„„‚�€€€€€.}|||| */
	$"7C7C 7D7D 7D7D 7F80 807F 7F7F 7E7D 7D7D"            /* ||}}}}.€€...~}}} */
	$"7E80 8081 8181 8181 8282 8282 8180 7E7D"            /* ~€€�����‚‚‚‚�€~} */
	$"7D7D 7D7D 7D7D 7D80 8182 8282 8282 8281"            /* }}}}}}}€�‚‚‚‚‚‚� */
	$"8080 8080 807F 7E7D 7C7C 7C7D 7E7E 7E7D"            /* €€€€€.~}|||}~~~} */
	$"7D7D 7E7E 7E7D 7D7C 7C7D 7E7E 7E7E 7E7F"            /* }}~~~}}||}~~~~~. */
	$"7F7E 7E7E 7F80 8181 8181 807F 7F80 8080"            /* .~~~.€����€..€€€ */
	$"7E7E 7D7E 7E7E 7E7E 7E7F 8081 8283 8282"            /* ~~}~~~~~~.€�‚ƒ‚‚ */
	$"8282 8181 8080 8080 8181 8181 8080 8080"            /* ‚‚��€€€€����€€€€ */
	$"8180 7F7E 7D7D 7C7C 7B7B 7A7A 7A7B 7C7D"            /* �€.~}}||{{zzz{|} */
	$"7D7E 7E7F 8080 8080 8182 8283 8382 8180"            /* }~~.€€€€�‚‚ƒƒ‚�€ */
	$"8081 8180 7E7D 7D7D 7D7D 7D7D 7D7D 7E7F"            /* €��€~}}}}}}}}}~. */
	$"8080 7F7F 7F7F 7F7F 7E7E 7E7F 8080 8181"            /* €€......~~~.€€�� */
	$"8181 8182 8281 807E 7E7E 7E7E 7E7D 7D7D"            /* ���‚‚�€~~~~~~}}} */
	$"7E80 8181 8181 8282 8281 8180 8080 807F"            /* ~€����‚‚‚��€€€€. */
	$"7E7E 7D7D 7D7E 7E7E 7D7D 7D7D 7E7E 7E7E"            /* ~~}}}~~~}}}}~~~~ */
	$"7D7D 7E7E 7F7F 7E7E 7E7F 7F7F 7E7E 7F80"            /* }}~~..~~~...~~.€ */
	$"8080 8180 8080 8080 807E 7D7D 7D7D 7E7E"            /* €€�€€€€€€~}}}}~~ */
	$"7E7E 7E7F 8081 8282 8281 8282 8181 8080"            /* ~~~.€�‚‚‚�‚‚��€€ */
	$"8080 8080 8080 8080 8080 8080 7E7D 7D7D"            /* €€€€€€€€€€€€~}}} */
	$"7D7D 7C7B 7A7A 7C7C 7D7D 7D7D 7E80 8080"            /* }}|{zz||}}}}~€€€ */
	$"8080 8080 8181 8181 8180 8080 807F 7E7D"            /* €€€€�����€€€€.~} */
	$"7D7D 7E7E 7E7D 7D7D 7E80 8080 7F7F 7F80"            /* }}~~~}}}~€€€...€ */
	$"8080 7E7E 7E7E 7F80 8080 8080 8181 8180"            /* €€~~~~.€€€€€���€ */
	$"7F7E 7E7E 7E7E 7E7D 7D7D 7E80 8081 8181"            /* .~~~~~~}}}~€€��� */
	$"8282 8282 8180 8080 8080 7F7E 7D7D 7D7E"            /* ‚‚‚‚�€€€€€.~}}}~ */
	$"7D7D 7D7D 7D7E 7F7F 7F7E 7E7E 7F80 8080"            /* }}}}}~...~~~.€€€ */
	$"7F7F 7F7F 7F7F 7F7F 7F7F 8080 8080 8080"            /* ..........€€€€€€ */
	$"8080 7F7E 7D7D 7D7E 7E7F 7F7E 7F7F 8081"            /* €€.~}}}~~..~..€� */
	$"8282 8281 8182 8181 8080 8080 8080 8080"            /* ‚‚‚��‚��€€€€€€€€ */
	$"8080 8080 807F 7E7E 7E7E 7E7D 7D7C 7B7C"            /* €€€€€.~~~~~}}|{| */
	$"7D7E 7E7E 7E7E 7F80 8080 8080 8080 8080"            /* }~~~~~.€€€€€€€€€ */
	$"8080 8080 8080 807F 7E7E 7E7E 7F7F 7E7E"            /* €€€€€€€.~~~~..~~ */
	$"7E7E 7F80 8080 807F 8080 8080 7F7F 7F7F"            /* ~~.€€€€.€€€€.... */
	$"8080 8080 8080 8080 8080 7F7F 7F7F 7F7F"            /* €€€€€€€€€€...... */
	$"7E7D 7D7E 7F80 8080 8080 8181 8281 8080"            /* ~}}~.€€€€€��‚�€€ */
	$"8080 8080 7F7F 7E7E 7E7E 7D7D 7D7D 7D7E"            /* €€€€..~~~~}}}}}~ */
	$"7F7F 7E7E 7E7F 8080 8080 807F 7F7F 7F7F"            /* ..~~~.€€€€€..... */
	$"7E7E 7E7F 8080 8080 8080 807F 7E7E 7D7D"            /* ~~~.€€€€€€€.~~}} */
	$"7D7E 7E7E 7E7E 7F80 8082 8282 8282 8282"            /* }~~~~~.€€‚‚‚‚‚‚‚ */
	$"8281 8080 8080 8080 8080 8080 8080 7F7F"            /* ‚�€€€€€€€€€€€€.. */
	$"7E7E 7E7F 7E7E 7D7C 7C7D 7D7E 7E7E 7E7E"            /* ~~~.~~}||}}~~~~~ */
	$"7F80 8080 8080 8080 8080 8080 8080 8080"            /* .€€€€€€€€€€€€€€€ */
	$"7F7E 7E7E 7E7F 7F7F 7E7E 7E7F 8080 8080"            /* .~~~~...~~~.€€€€ */
	$"8080 8080 807F 7F7F 7F7F 7F80 8080 8080"            /* €€€€€......€€€€€ */
	$"8080 807F 7F7F 7F7F 7F7F 7E7E 7E7E 7F80"            /* €€€.......~~~~.€ */
	$"8080 8080 8181 8181 8180 8080 8080 7F7F"            /* €€€€�����€€€€€.. */
	$"7F7E 7E7E 7E7D 7D7E 7E7E 7F7F 7E7E 7E7F"            /* .~~~~}}~~~..~~~. */
	$"8080 8080 8080 807F 7F7F 7F7F 7F7F 7F80"            /* €€€€€€€........€ */
	$"8080 8080 807F 7E7E 7E7E 7E7E 7E7E 7E7E"            /* €€€€€.~~~~~~~~~~ */
	$"7F80 8181 8282 8282 8181 8181 8180 8080"            /* .€��‚‚‚‚�����€€€ */
	$"8080 7F7F 7F7F 7F7F 7F7F 7F7F 7F7F 7F7E"            /* €€.............~ */
	$"7E7D 7D7E 7E7E 7F7F 7F7F 7F7F 7F7F 8080"            /* ~}}~~~........€€ */
	$"8080 8080 8080 8080 8080 7F7F 7F7F 7F7F"            /* €€€€€€€€€€...... */
	$"7F7F 7F7F 7F7F 8080 8080 8080 807F 7F7F"            /* ......€€€€€€€... */
	$"7F7F 7F7F 7F80 8080 8080 8080 807F 7F7F"            /* .....€€€€€€€€... */
	$"7F7F 7F7F 7F7F 7F7F 7F80 8080 8080 8080"            /* .........€€€€€€€ */
	$"8080 8080 8080 8080 7F7F 7F7F 7F7E 7E7E"            /* €€€€€€€€.....~~~ */
	$"7E7E 7E7F 7F7F 7F7F 7F7F 8080 8080 8080"            /* ~~~.......€€€€€€ */
	$"807F 7F7F 7F7F 7F7F 7F7F 7F7F 7F80 7F7F"            /* €............€.. */
	$"7F7F 7E7E 7E7E 7E7E 7E7F 7F80 8081 8181"            /* ..~~~~~~~..€€��� */
	$"8181 8181 8080 8080 8080 807F 7F7F 7F7F"            /* ����€€€€€€€..... */
	$"7F7F 7F7F 7F7F 7F7F 7F7F"                           /* .......... */
};

\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/Sounds/DoorBell.r b/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/Sounds/DoorBell.r
new file mode 100644
index 0000000..22a8c56
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/Sounds/DoorBell.r
@@ -0,0 +1 @@
+data $8014 (0x18024) {
	$"0100 0100 0000 1000 0000 0844 6F6F 7242"            /* ...........DoorB */
	$"656C 6C"                                            /* ell */
};

data $8024 (0x10) {
	$"0000 3F00 E88E 0000 772B 8080 8080 8080"            /* ..?..Ž..w+€€€€€€ */
	$"8080 8080 8080 8080 8080 8080 8080 8080"            /* €€€€€€€€€€€€€€€€ */
	$"8080 8080 8080 8080 8080 8080 8080 8080"            /* €€€€€€€€€€€€€€€€ */
	$"7E7E 603A 9CCE 9462 56A8 AC7A 5C92 72BE"            /* ~~`:œÎ”bV¨¬z\’r¾ */
	$"A256 646E 7CB0 D4AE 5E42 7668 987E 7EC8"            /* ¢Vdn|°Ô®^Bvh˜~~È */
	$"9452 7094 A2A6 8E6E 3680 A2B8 C260 5080"            /* ”Rp”¢¦Žn6€¢¸Â`P€ */
	$"7A58 6E9C D4AA 7E3A 5CAE 988A 7C3E 46AA"            /* zXnœÔª~:\®˜Š|>Fª */
	$"A896 7C96 8268 5850 A0D4 A078 6C4A 90AE"            /* ¨–|–‚hXP Ô xlJ�® */
	$"9854 4A74 7496 9286 ACA2 4C4E 4E7A AABA"            /* ˜TJtt–’†¬¢LNNzªº */
	$"8842 667C 8696 7054 947A 6A82 AAB4 9484"            /* ˆBf|†–pT”zj‚ª´”„ */
	$"3A2A 749C A6AC 565E 8680 6E72 9A74 6A76"            /* :*tœ¦¬V^†€nrštjv */
	$"627C BC96 8856 224E 92B4 8290 926A 7286"            /* b|¼–ˆV"N’´‚�’jr† */
	$"6494 9A6E 6C5E 6A8C C694 4A4E 6056 96A6"            /* d”šnl^jŒÆ”JN`V–¦ */
	$"929C 7462 6072 6A84 9C6E 3674 9294 BA7E"            /* ’œtb`rj„œn6t’”º~ */
	$"5C52 5A74 A0A6 887C 9450 3480 8098 885E"            /* \RZt ¦ˆ|”P4€€˜ˆ^ */
	$"547C A2A8 9A7A 3650 8E60 84A4 9E88 6844"            /* T|¢¨šz6PŽ`„¤žˆhD */
	$"548A AE8C 7C6C 46A8 BC7E 6A6A 5E58 5A6E"            /* TŠ®Œ|lF¨¼~jj^XZn */
	$"90BC A856 6242 5EB6 AE68 5472 8C8C 8274"            /* �¼¨VbB^¶®hTrŒŒ‚t */
	$"7096 5042 788E B2D2 9840 3E74 988C 8858"            /* p–PBxŽ²Ò˜@>t˜ŒˆX */
	$"7896 666C 8E88 8280 4C3C 72D2 BE96 6030"            /* x–flŽˆ‚€L<rÒ¾–`0 */
	$"6A88 6676 9680 7E7A 7A68 A0B6 6E54 3A5A"            /* jˆfv–€~zzh ¶nT:Z */
	$"BAC4 8276 665A 4A74 8278 AE94 6C70 6A86"            /* ºÄ‚vfZJt‚x®”lpj† */
	$"BA84 483E 7284 8CBE 8E70 7458 5882 84AA"            /* º„H>r„Œ¾ŽptXX‚„ª */
	$"B082 4A5A A286 827A 464A 7682 ACA8 8674"            /* °‚JZ¢†‚zFJv‚¬¨†t */
	$"6E60 3A86 BA98 8672 4C72 8E90 8C68 545A"            /* n`:†º˜†rLrŽ�ŒhTZ */
	$"A29C 84AA A660 4E46 5898 A698 7064 5476"            /* ¢œ„ª¦`NFX˜¦˜pdTv */
	$"AE8C 567A 7C6C 8684 A4A6 904E 3658 72A8"            /* ®ŒVz|l†„¤¦�N6Xr¨ */
	$"D282 5480 8290 7C78 7A7E 7650 70A4 989C"            /* Ò‚T€‚�|xz~vPp¤˜œ */
	$"8222 3474 B0AC 8E80 7488 7652 809A 6E7E"            /* ‚"4t°¬Ž€tˆvR€šn~ */
	$"645A 82BA C47C 5042 64A2 9C7A AA8E 6A62"            /* dZ‚ºÄ|PBd¢œzªŽjb */
	$"5C68 7CA2 8656 5A78 A4D4 8258 685E 6278"            /* \h|¢†VZx¤Ô‚Xh^bx */
	$"9C98 988E 6848 6C76 ACAE 5C56 80A2 9A96"            /* œ˜˜ŽhHlv¬®\V€¢š– */
	$"8662 4A62 5882 A090 AE84 4448 86A4 9478"            /* †bJbX‚ �®„DH†¤”x */
	$"7A5E 8098 88A0 6E54 686A 6286 BCCA 7E60"            /* z^€˜ˆ nThjb†¼Ê~` */
	$"5658 9888 867E 5E62 8E96 806C 8E7A 4662"            /* VX˜ˆ†~^bŽ–€lŽzFb */
	$"70B4 CA98 6A5C 4C6C 909A 7266 987E 7E82"            /* p´Ê˜j\Ll�šrf˜~~‚ */
	$"88A0 8E4C 4A6C 94B0 AC92 3A4E 7476 7E80"            /* ˆ ŽLJl”°¬’:Ntv~€ */
	$"84A2 8860 7294 AA7C 744E 3E82 B8AC 9868"            /* „¢ˆ`r”ª|tN>‚¸¬˜h */
	$"5C7A 6668 7AB4 A074 7468 6C9E 966E 5638"            /* \zfhz´ tthlž–nV8 */
	$"709C B28E 8696 664A 6C78 94B2 887C 5668"            /* pœ²Ž†–fJlx”²ˆ|Vh */
	$"84A4 944E 547E 7C92 B294 966C 5A4C 6082"            /* „¤”NT~|’²”–lZL`‚ */
	$"96B2 8646 5E94 8698 7868 6876 8A92 A694"            /* –²†F^”†˜xhhvŠ’¦” */
	$"8076 5026 80B0 B094 6E66 7694 8C80 786A"            /* €vP&€°°”nfv”Œ€xj */
	$"5E90 7076 AAA8 7C3E 3C5E A0BA A076 8664"            /* ^�pvª¨|><^ º v†d */
	$"7E94 6C6E 808A 645E 7CAE B6A0 4442 6872"            /* ~”ln€Šd^|®¶ DBhr */
	$"ACA8 8C72 8074 5E60 8A84 9272 448A ACB4"            /* ¬¨Œr€t^`Š„’rDŠ¬´ */
	$"A07C 3E48 80A4 868E 907C 8C56 548A A888"            /*  |>H€¤†Ž�|ŒVTŠ¨ˆ */
	$"7A66 6A8A C4AC 605E 486A 827A 7EB0 9E74"            /* zfjŠÄ¬`^Hj‚z~°žt */
	$"5A66 788E B674 5E6A 80A0 B074 606C 665E"            /* ZfxŽ¶t^j€ °t`lf^ */
	$"6CAA 98AC 9A5E 5270 7E9E 8C5A 5C78 9E7A"            /* lª˜¬š^Rp~žŒZ\xžz */
	$"968A 6068 6E64 8AA4 AAAC 7250 428E 9078"            /* –Š`hndŠ¤ª¬rPBŽ�x */
	$"8472 648E 9C90 8E6E 7664 6E5A 82C8 A86C"            /* „rdŽœ�ŽnvdnZ‚Ȩl */
	$"5E4E 6298 8A88 6E80 8496 966E 829C 6842"            /* ^Nb˜Šˆn€„––n‚œhB */
	$"6476 B0AE 945E 566C 7694 8A68 8AA8 6A70"            /* dv°®”^Vlv”ŠhŠ¨jp */
	$"7894 8E76 5042 78A2 AEAC 8448 7E82 7070"            /* x”ŽvPBx¢®¬„H~‚pp */
	$"869C 8C7C 606A 969C 7276 4054 A4BE 9E72"            /* †œŒ|`j–œrv@T¤¾žr */
	$"7C74 6A64 6278 B286 7876 6084 ACA6 5A4C"            /* |tjdbx²†xv`„¬¦ZL */
	$"7092 98A2 7C92 8E50 5466 7A8C AE92 5E5A"            /* p’˜¢|’ŽPTfzŒ®’^Z */
	$"9292 9872 4C76 7A76 84A4 8E7A 7468 4274"            /* ’’˜rLvzv„¤ŽzthBt */
	$"A2AA AA6A 6088 9A7A 7E78 685A 8888 78A0"            /* ¢ªªj`ˆšz~xhZˆˆx  */
	$"948C 6640 50A2 AE8E 727C 686A 9A76 6E72"            /* ”Œf@P¢®Žr|hjšvnr */
	$"747E 846E 96BC AA5C 426E 6A9C AA84 7072"            /* t~„n–¼ª\Bnjœª„pr */
	$"728A 7A68 7496 8E48 769E A2A0 7C48 4A62"            /* rŠzht–ŽHvž¢ |HJb */
	$"86A0 9278 6CA2 7C54 7A96 8E86 6460 869E"            /* † ’xl¢|Tz–Ž†d`†ž */
	$"A882 6A34 569C 8A72 969C 8870 566E 869E"            /* ¨‚j4VœŠr–œˆpVn†ž */
	$"746A 6A5E 92C2 885C 6870 7E72 8896 B098"            /* tjj^’ˆ\hp~rˆ–°˜ */
	$"5E62 6C66 92A2 6458 6E9E 9A8E 786C 7C66"            /* ^blf’¢dXnžšŽxl|f */
	$"5486 9E88 A082 5846 769A 907E 6672 9C90"            /* T†žˆ ‚XFvš�~frœ� */
	$"7AA2 8066 646E 6874 AAAC 8C68 4A68 A480"            /* z¢€fdnhtª¬ŒhJh¤€ */
	$"7E84 7E72 849A 7E78 8470 5E64 5EAA C890"            /* ~„~r„š~x„p^d^ªÈ� */
	$"6868 706C 8890 7674 8A76 8676 7096 8C56"            /* hhplˆ�vtŠv†vp–ŒV */
	$"4478 9EA4 A28C 566A 6E74 8878 7A96 9264"            /* Dxž¤¢ŒVjntˆxz–’d */
	$"6A98 A67E 7454 5A94 A0A4 9270 5C76 7A5E"            /* j˜¦~tTZ” ¤’p\vz^ */
	$"68A8 987A 7860 809C 9274 6252 6A9C B27A"            /* h¨˜zx`€œ’tbRjœ²z */
	$"7492 6A60 5E70 9AAA 8A72 6A74 80A4 9246"            /* t’j`^pšªŠrjt€¤’F */
	$"5C7A 828A 8E8C 9680 5A4E 748E 92B2 8050"            /* \z‚ŠŽŒ–€ZNtŽ’²€P */
	$"6A90 8E84 6A66 767E 7A82 AC92 807C 5244"            /* j�Ž„jfv~z‚¬’€|RD */
	$"7EA4 A482 6468 7C94 7076 886C 6E86 7884"            /* ~¤¤‚dh|”pvˆln†x„ */
	$"A4A2 7C48 4C62 9EAA 7C7C 866E 7C8A 7878"            /* ¤¢|HLbžª||†n|Šxx */
	$"8088 686A 7E98 B888 424E 6C78 9898 8872"            /* €ˆhj~˜¸ˆBNlx˜˜ˆr */
	$"8280 6C76 7886 9868 467C A2A8 8E74 5254"            /* ‚€lvx†˜hF|¢¨ŽtRT */
	$"828E 8E94 8284 905A 5680 A088 6A66 648C"            /* ‚ŽŽ”‚„�ZV€ ˆjfdŒ */
	$"B09E 7E6A 5074 8A7C 7C9E A674 5A5E 6E94"            /* °ž~jPtŠ||ž¦tZ^n” */
	$"A474 6A66 76A6 AA80 5E74 785C 6888 94AE"            /* ¤tjfv¦ª€^tx\hˆ”® */
	$"8A5C 5C68 869E 9866 5888 9C84 8C7E 787C"            /* Š\\h†ž˜fXˆœ„Œ~x| */
	$"5A5C 7CA2 A8A2 824E 5094 9884 7A6A 7E86"            /* Z\|¢¨¢‚NP”˜„zj~† */
	$"7E7A 8C8A 7266 6656 86C2 A880 5C58 768C"            /* ~zŒŠrffV†Â¨€\XvŒ */
	$"8078 8286 7280 8872 949A 7452 567E B0B4"            /* €x‚†r€ˆr”štRV~°´ */
	$"8A60 6A6E 6488 8478 8A92 786C 7696 A488"            /* Š`jndˆ„xŠ’xlv–¤ˆ */
	$"5244 8496 9CA4 7E60 6E76 7476 889A 9684"            /* RD„–œ¤~`nvtvˆš–„ */
	$"4E6A A298 806C 505C 84A0 9A84 846E 7A6A"            /* Nj¢˜€lP\„ š„„nzj */
	$"5688 B296 7668 6882 9A9A 6A60 6476 9E96"            /* Vˆ²–vhh‚ššj`dvž– */
	$"8096 986A 545C 7E94 A888 6066 728C A27A"            /* €–˜jT\~”¨ˆ`frŒ¢z */
	$"5674 827C 7A94 9A8E 8056 4C70 88A2 A66E"            /* Vt‚|z”šŽ€VLpˆ¢¦n */
	$"5C78 9686 7680 7678 786A 80A0 928C 6E46"            /* \x–†v€vxxj€ ’ŒnF */
	$"4C88 B094 807A 7482 8670 8684 7676 7270"            /* Lˆ°”€zt‚†p†„vvrp */
	$"7EB2 A86A 505A 72A0 9484 887E 7470 7E70"            /* ~²¨jPZr ”„ˆ~tp~p */
	$"7696 8256 6682 AAB2 7E5A 5E72 788E 9A82"            /* v–‚Vf‚ª²~Z^rxŽš‚ */
	$"7A90 6E5A 7086 A08E 6456 82A0 9A8E 7C50"            /* z�nZp† ŽdV‚ šŽ|P */
	$"5E82 7A80 8896 9476 525E 92A6 8478 6E5E"            /* ^‚z€ˆ–”vR^’¦„xn^ */
	$"8CA4 9478 6868 7672 6E84 B6A4 6864 5E72"            /* Œ¤”xhhvrn„¶¤hd^r */
	$"969A 7C64 647E 9294 7672 8E6C 5670 8CA2"            /* –š|dd~’”vrŽlVpŒ¢ */
	$"AC8E 6452 6A88 968E 5E70 907E 768A 8E86"            /* ¬ŽdRjˆ–Ž^p�~vŠŽ† */
	$"7462 5C74 A0A2 A070 4464 8E82 7880 8482"            /* tb\t ¢ pDdŽ‚x€„‚ */
	$"7C7E 7892 927C 7258 5496 BA96 7062 6E70"            /* |~x’’|rXT–º–pbnp */
	$"827C 7E92 887A 7E6C 729E 9A68 4264 869E"            /* ‚|~’ˆz~lržšhBd†ž */
	$"A684 7478 686E 847A 8498 9664 5888 9C9A"            /* ¦„txhn„z„˜–dXˆœš */
	$"7A4E 5E82 8A9E 9E82 6C7A 7858 6C96 A094"            /* zN^‚Šžž‚lzxXl– ” */
	$"6E52 7E9A 9282 7460 6292 9C84 8890 7E70"            /* nR~š’‚t`b’œ„ˆ�~p */
	$"505A 94AA 8E70 706A 7EA2 9064 686E 8086"            /* PZ”ªŽppj~¢�dhn€† */
	$"7686 A096 604E 6A7C 96AE 8464 6E80 988C"            /* v† –`Nj|–®„dn€˜Œ */
	$"7068 8480 6270 9A98 9884 5452 7098 A48E"            /* ph„€bpš˜˜„TRp˜¤Ž */
	$"6866 8C8E 6676 8878 7C70 6C80 A0A8 8E66"            /* hfŒŽfvˆx|pl€ ¨Žf */
	$"485E A09E 7680 847C 7876 7280 8C82 706A"            /* H^ žv€„|xvr€Œ‚pj */
	$"6690 C290 5856 6A7C 8A88 8086 8876 7278"            /* f�Â�XVj|Šˆ€†ˆvrx */
	$"7094 A670 4E6E 98A6 9476 5E66 7872 8A8C"            /* p”¦pNn˜¦”v^fxrŠŒ */
	$"7E92 9060 567C A092 705A 5C90 9E8C 8A70"            /* ~’�`V| ’pZ\�žŒŠp */
	$"5A76 8472 769E AA84 6654 72A2 906E 6E66"            /* Zv„rvžª„fTr¢�nnf */
	$"6E98 A080 6A80 7A68 646C 9CB6 865C 626A"            /* n˜ €j€zhdlœ¶†\bj */
	$"8096 9466 6084 8E90 8478 8E8C 5A50 7298"            /* €–”f`„Ž�„xŽŒZPr˜ */
	$"9C9E 8250 5C84 908C 7062 888E 7270 9096"            /* œž‚P\„�ŒpbˆŽrp�– */
	$"7A6E 5852 82AC A68C 5C5C 8692 766E 8C86"            /* znXR‚¬¦Œ\\†’vnŒ† */
	$"727A 7678 9890 7C5C 486C A8B4 7E68 7A76"            /* rzvx˜�|\Hl¨´~hzv */
	$"6E7C 7682 8E82 726A 708E AE92 4E4E 7E8E"            /* n|v‚Ž‚rjpŽ®’NN~Ž */
	$"9894 807E 786E 6A72 7C8C 9C7C 486C 9EA0"            /* ˜”€~xnjr|Œœ|Hlž  */
	$"8C68 5A6A 8088 8C8E 8076 8664 5082 AA9E"            /* ŒhZj€ˆŒŽ€v†dP‚ªž */
	$"785E 6A90 A08C 7670 5C6E 9280 7692 9C7C"            /* x^j� Œvp\n’€v’œ| */
	$"5852 78A0 A276 6872 708E 9E78 6072 8276"            /* XRx ¢vhrpŽžx`r‚v */
	$"6E80 9CAC 8A50 5A76 849E 986C 5E78 9486"            /* n€œ¬ŠPZv„ž˜l^x”† */
	$"7472 7A8E 6C56 82A0 9C8E 7052 5486 A08C"            /* trzŽlV‚ œŽpRT† Œ */
	$"7A68 7E98 7868 8A92 7E6E 6A6C 86B0 A074"            /* zh~˜xhŠ’~njl†° t */
	$"544E 7C9E 7E72 8A8C 7A70 7A78 8A96 765E"            /* TN|ž~rŠŒzpzxŠ–v^ */
	$"5C72 AEB2 7658 6A7C 767E 8A86 9088 6E6A"            /* \r®²vXj|v~Š†�ˆnj */
	$"6C7E A28C 524A 82A4 9688 7466 7874 7284"            /* l~¢ŒRJ‚¤–ˆtfxtr„ */
	$"8490 987E 505C 9AA4 8068 5E74 9892 8C84"            /* „�˜~P\š¤€h^t˜’Œ„ */
	$"7470 7A72 5C7A B29E 6E58 5C88 9A86 726E"            /* tpzr\z²žnX\ˆš†rn */
	$"6E7A 9690 6E80 9474 5856 7EAE A87A 5E6C"            /* nz–�n€”tXV~®¨z^l */
	$"7A84 9882 5C76 8A80 7474 8C9A 7C50 5080"            /* z„˜‚\vŠ€ttŒš|PP€ */
	$"9898 9A6E 587A 8E84 746E 828C 7A60 74A6"            /* ˜˜šnXzŽ„tn‚Œz`t¦ */
	$"987C 6E54 6292 A892 7064 7486 7C60 7A98"            /* ˜|nTb’¨’pdt†|`z˜ */
	$"806E 6E6E 88A2 986C 4E5E 82A6 906A 7E8C"            /* €nnnˆ¢˜lN^‚¦�j~Œ */
	$"746C 707E 8E96 8460 647E 9EAA 7248 6684"            /* tlp~Ž–„`d~žªrHf„ */
	$"8282 8686 8282 6C60 768A 9E96 5C4E 82A4"            /* ‚‚††‚‚l`vŠž–\N‚¤ */
	$"9678 6E6A 7482 7A80 928C 8E7A 4E5C 94AA"            /* –xnjt‚z€’ŒŽzN\”ª */
	$"8660 6470 8E94 7A78 766E 7E7C 6C80 A8A2"            /* †`dpŽ”zxvn~|l€¨¢ */
	$"664E 6484 A492 6E6E 7680 928C 7472 9082"            /* fNd„¤’nnv€’Œtr�‚ */
	$"5C64 88A4 A674 5060 7A8C 9488 686C 9288"            /* \dˆ¤¦tP`zŒ”ˆhl’ˆ */
	$"6E78 8896 8458 5880 A49E 8A72 526C 9C90"            /* nxˆ–„XX€¤žŠrRlœ� */
	$"7876 808E 7E66 6E92 9A78 6862 5E94 B490"            /* xv€Ž~fn’šxhb^”´� */
	$"6E62 7288 8472 7898 926C 7076 7A9E 9A70"            /* nbrˆ„rx˜’lpvzžšp */
	$"5464 8EA8 9670 6A86 7864 7A82 8694 8868"            /* TdŽ¨–pj†xdz‚†”ˆh */
	$"5A78 9EA0 7E4E 6098 9082 8680 7A7A 7268"            /* Zxž ~N`˜�‚†€zzrh */
	$"7292 A094 6E48 76A8 9474 6C6C 7884 887A"            /* r’ ”nHv¨”tllx„ˆz */
	$"7C86 7E78 6058 94B6 8E66 6276 8690 886E"            /* |†~x`X”¶Žfbv†�ˆn */
	$"747A 7E8A 7472 9C9E 6C4C 6890 9C9A 7A64"            /* tz~ŠtrœžlLh�œšzd */
	$"7276 8490 706A 8A90 6E60 88A0 947C 5860"            /* rv„�pjŠ�n`ˆ ”|X` */
	$"828E 9A90 6862 8490 706A 8C94 866E 5E7E"            /* ‚Žš�hb„�pjŒ”†n^~ */
	$"9A90 846C 5662 96A4 786E 8482 7E68 6890"            /* š�„lVb–¤xn„‚~hh� */
	$"9E88 726E 6C7C A89C 605A 748A 927A 7A90"            /* žˆrnl|¨œ`ZtŠ’zz� */
	$"8E6E 6074 7A8C A884 525E 829E 906A 6680"            /* Žn`tzŒ¨„R^‚ž�jf€ */
	$"8A76 7892 888A 8E64 5270 9AAC 8860 5E86"            /* Švx’ˆŠŽdRpš¬ˆ`^† */
	$"9878 7888 747E 8472 7086 9E94 664A 609E"            /* ˜xxˆt~„rp†ž”fJ`ž */
	$"A878 787C 7282 887C 7482 9082 6A62 80B4"            /* ¨xx|r‚ˆ|t‚�‚jb€´ */
	$"965A 5C6E 8094 9284 727C 8278 7264 84AA"            /* –Z\n€”’„r|‚xrd„ª */
	$"7C52 688A 9E94 7C64 607E 8A92 8A70 8898"            /* |RhŠž”|d`~Š’Špˆ˜ */
	$"6A52 709A 9A80 6C60 7896 928A 6E56 7A92"            /* jRpšš€l`x–’ŠnVz’ */
	$"7A6C 88A0 8468 5E64 8C9A 8C82 6666 92A4"            /* zlˆ „h^dŒšŒ‚ff’¤ */
	$"8260 7688 7672 7082 A08C 7066 5C6E 98A6"            /* ‚`vˆvrp‚ Œpf\n˜¦ */
	$"7658 7A8C 827C 6C78 8872 6A76 8290 A296"            /* vXzŒ‚|lxˆrjv‚�¢– */
	$"5A4A 8096 9480 6C80 8878 727C 807A 8680"            /* ZJ€–”€l€ˆxr|€z†€ */
	$"586E A0A6 8E62 5274 8A82 7886 8678 887E"            /* Xn ¦ŽbRtŠ‚x††xˆ~ */
	$"607A 9694 7658 6A98 AC8A 666E 6A6A 8A82"            /* `z–”vXj˜¬ŠfnjjŠ‚ */
	$"7486 928A 6C5C 749A 9C6C 587A 828E 9C7E"            /* t†’Šl\tšœlXz‚Žœ~ */
	$"666C 7C80 7678 8EA8 985C 5A82 888C 846C"            /* fl|€vxŽ¨˜\Z‚ˆŒ„l */
	$"6478 9492 8070 708A 7854 749E 9C8A 7260"            /* dx”’€ppŠxTtžœŠr` */
	$"627E 9484 7468 76A0 906A 7C90 826C 6670"            /* b~”„thv �j|�‚lfp */
	$"80A0 9A7C 6656 729E 8466 7690 8C76 7A7E"            /* € š|fVrž„fv�Œvz~ */
	$"828A 7264 6870 9CB4 865C 6688 8478 7E7E"            /* ‚Šrdhpœ´†\fˆ„x~~ */
	$"8A8C 7676 7A78 8E8A 624A 74A6 9E88 786C"            /* ŠŒvvzxŽŠbJt¦žˆxl */
	$"7C78 6A7C 8280 8E8C 6C5C 8AA2 8266 5C72"            /* |xj|‚€ŽŒl\Š¢‚f\r */
	$"9A98 8888 7C70 7276 6268 9CA4 7E68 6082"            /* š˜ˆˆ|prvbhœ¤~h`‚ */
	$"9C84 6A68 727A 8E9A 7C74 8E7E 6258 6AA0"            /* œ„jhrzŽš|tŽ~bXj  */
	$"AC88 6872 827E 8886 6066 8488 8076 8094"            /* ¬ˆhr‚~ˆ†`f„ˆ€v€” */
	$"885C 4A74 9490 9886 6270 868A 7666 7286"            /* ˆ\Jt”�˜†bp†Švfr† */
	$"8870 709E A07E 705C 5E80 9E9E 826C 7082"            /* ˆppž ~p\^€žž‚lp‚ */
	$"8666 648C 8874 767A 8898 987A 5654 709A"            /* †fdŒˆtvzˆ˜˜zVTpš */
	$"A076 7690 806C 6C78 868C 8A76 6E7E 90A6"            /*  vv�€llx†ŒŠvn~�¦ */
	$"884A 5278 8482 828C 8A82 7662 6E7C 8A9A"            /* ˆJRx„‚‚ŒŠ‚vbn|Šš */
	$"7856 76A0 A07C 686A 6A7C 8084 9890 8A88"            /* xVv  |hjj|€„˜�Šˆ */
	$"6250 769E 946A 6876 8A96 8074 7466 7084"            /* bPvž”jhvŠ–€ttfp„ */
	$"7C7E 9AAE 8252 5670 9294 7876 7E7E 8C92"            /* |~š®‚RVp’”xv~~Œ’ */
	$"806A 7684 6A62 7E9E AC88 5858 6A7A 8A92"            /* €jv„jb~ž¬ˆXXjzŠ’ */
	$"806E 8898 7C70 7886 8864 567A 9EA4 9280"            /* €nˆ˜|px†ˆdVzž¤’€ */
	$"5E54 7E92 847E 8092 906E 647C 947C 646A"            /* ^T~’„~€’�nd|”|dj */
	$"6A82 AEA8 8462 5C7A 8276 7492 A27E 6A76"            /* j‚®¨„b\z‚vt’¢~jv */
	$"7684 907C 645C 80A8 AC88 6874 785E 6682"            /* v„�|d\€¨¬ˆhtx^f‚ */
	$"8C9A 927C 6468 8498 8C64 5688 A28E 8A86"            /* Œš’|dh„˜ŒdVˆ¢ŽŠ† */
	$"7C70 6866 6E88 A0A2 8C5E 5A8E 9478 6A6E"            /* |phfnˆ ¢Œ^ZŽ”xjn */
	$"7A84 8A88 8482 7A70 6854 78B0 AC84 6A70"            /* z„Šˆ„‚zphTx°¬„jp */
	$"7C80 7E74 747E 7C8C 8A76 8A9C 8052 507E"            /* |€~tt~|ŒŠvŠœ€RP~ */
	$"9EA2 9472 7272 7082 7A6A 8098 8C6E 789C"            /* ž¢”rrrp‚zj€˜Œnxœ */
	$"9882 5C52 768A 98A0 886A 7082 7860 7694"            /* ˜‚\RvŠ˜ ˆjp‚x`v” */
	$"9686 6872 9494 8270 5A58 78A4 9A7C 8284"            /* –†hr””‚pZXx¤š|‚„ */
	$"806C 5A78 9E96 8276 7476 8EA2 7654 627C"            /* €lZxž–‚vtvŽ¢vTb| */
	$"9690 8092 987E 6060 727A 9A9C 7262 7892"            /* –�€’˜~``rzšœrbx’ */
	$"9C78 5E6C 8482 7892 9A8C 8A76 525A 7CA0"            /* œx^l„‚x’šŒŠvRZ|  */
	$"A076 647A 9A88 6E7A 7870 7E7E 7C8A 9698"            /*  vdzšˆnzxp~~|Š–˜ */
	$"7852 4A78 A690 7A86 8080 867C 7674 7E82"            /* xRJx¦�z†€€†|vt~‚ */
	$"786C 74A4 B074 5060 7288 8E8C 8480 847E"            /* xlt¤°tP`rˆŽŒ„€„~ */
	$"7668 6890 9260 6082 A0A0 886E 5E6A 7E8A"            /* vhh�’``‚  ˆn^j~Š */
	$"9282 7A9A 865C 5C7E 9486 706A 7494 9C90"            /* ’‚zš†\\~”†pjt”œ� */
	$"8258 5A80 8472 7A9C 9C7C 6460 7694 8882"            /* ‚XZ€„rzœœ|d`v”ˆ‚ */
	$"7A68 80A2 9A70 6278 786A 707A 9CA4 8070"            /* zh€¢špbxxjpzœ¤€p */
	$"6664 7E9A 8C64 668C 9086 766E 8278 666C"            /* fd~šŒdfŒ�†vn‚xfl */
	$"808E 9EA2 7E50 6288 8C84 6C72 8C88 787E"            /* €Žž¢~PbˆŒ„lrŒˆx~ */
	$"847C 747C 6A5E 8CAA A27C 5660 807E 747A"            /* „|t|j^Œª¢|V`€~tz */
	$"8A82 8090 7A74 888E 7E60 5A84 AAA0 7A6C"            /* Š‚€�ztˆŽ~`Z„ª zl */
	$"7464 7282 7A7E 8E90 846A 6A86 9A7E 5062"            /* tdr‚z~Ž�„jj†š~Pb */
	$"8088 9A96 786E 7078 7872 8298 A67C 5874"            /* €ˆš–xnpxxr‚˜¦|Xt */
	$"8C86 7E6E 606C 849C 9484 727A 8060 5888"            /* Œ†~n`l„œ”„rz€`Xˆ */
	$"A094 7E6C 6C76 8A8A 7A6A 6688 A286 7C90"            /*  ”~llvŠŠzjfˆ¢†|� */
	$"8A70 5662 7692 A08C 7666 668C 946E 687C"            /* ŠpVbv’ ŒvffŒ”nh| */
	$"8A7C 7886 8C8E 785C 5C68 80AC A476 647C"            /* Š|x†ŒŽx\\h€¬¤vd| */
	$"8C7A 7478 8088 7A72 8484 8C90 724A 548E"            /* Œztx€ˆzr„„Œ�rJTŽ */
	$"A694 8276 7A80 6A6E 7E7C 8286 7E68 7EA4"            /* ¦”‚vz€jn~|‚†~h~¤ */
	$"9A70 585C 8298 8C8C 887C 6E74 7064 7C9C"            /* špX\‚˜ŒŒˆ|ntpd|œ */
	$"886E 667C A298 7260 6870 7890 927C 8488"            /* ˆnf|¢˜r`hpx�’|„ˆ */
	$"7060 6084 A092 6E6C 848E 888A 725A 6A7A"            /* p``„ ’nl„ŽˆŠrZjz */
	$"827E 8494 9474 525E 8890 8888 726E 8290"            /* ‚~„””tR^ˆ�ˆˆrn‚� */
	$"8870 6672 807A 6C8A AC94 7866 5C6C 8896"            /* ˆpfr€zlŠ¬”xf\lˆ– */
	$"8870 6E80 9080 627A 8874 6A72 849A 9E8A"            /* ˆpn€�€bzˆtjr„šžŠ */
	$"6856 627E 9C86 6E82 9080 7478 8286 8074"            /* hVb~œ†n‚�€tx‚†€t */
	$"6676 8AA2 A06A 4A64 8080 7C82 8C88 8270"            /* fvŠ¢ jJd€€|‚Œˆ‚p */
	$"6E7E 808A 7E5C 6090 AA96 726A 6A74 7E7A"            /* n~€Š~\`�ª–rjjt~z */
	$"8A92 8A88 7A5E 6A8E 9872 5A6A 849C 947E"            /* Š’Šˆz^jŽ˜rZj„œ”~ */
	$"7A70 6876 7A78 86A2 9A6A 5C6C 8894 7C68"            /* zphvzx†¢šj\lˆ”|h */
	$"7680 8A96 927A 6C7C 7462 6C8A A49C 6E5C"            /* v€Š–’zl|tblŠ¤œn\ */
	$"6E7C 8486 806C 7490 927E 7C80 8674 5464"            /* n|„†€lt�’~|€†tTd */
	$"8CA6 988A 7660 6E8C 8678 727C 9084 7276"            /* Œ¦˜Šv`nŒ†xr|�„rv */
	$"908C 6A5E 6672 96AA 9476 6270 827E 6E76"            /* �Œj^fr–ª”vbp‚~nv */
	$"908E 7476 7E84 9284 6C5A 6890 A898 726E"            /* �Žtv~„’„lZh�¨˜rn */
	$"8076 6272 7C8A 8C82 726E 8296 9270 5064"            /* €vbr|ŠŒ‚rn‚–’pPd */
	$"9294 8A86 827C 726A 6A78 8C98 8E76 5E80"            /* ’”Š†‚|rjjxŒ˜Žv^€ */
	$"A08A 6A62 6C7C 868A 8686 8678 7460 6492"            /*  Šjbl|†Š†††xt`d’ */
	$"AA8E 6A6A 808C 867A 6C72 7680 8E82 8096"            /* ªŽjj€Œ†zlrv€Ž‚€– */
	$"946A 5066 8E98 9074 6E7C 7C82 846E 6A82"            /* ”jPfŽ˜�tn||‚„nj‚ */
	$"8C7C 708C 9E92 7254 6482 8E92 8C74 7084"            /* Œ|pŒž’rTd‚Ž’Œtp„ */
	$"8E74 6A82 8A86 706C 889C 8C78 665E 6A8E"            /* Žtj‚Š†plˆœŒxf^jŽ */
	$"9C80 7682 8A84 6C6A 8890 8070 727C 88A0"            /* œ€v‚Š„ljˆ�€pr|ˆ  */
	$"8E62 5A70 8A90 7C7C 908E 7464 747C 8490"            /* ŽbZpŠ�||�Žtdt|„� */
	$"7A62 708C 9E8E 6664 7A88 7A7C 9090 8886"            /* zbpŒžŽfdzˆz|��ˆ† */
	$"6A60 748E 9A80 646C 929E 8074 7A72 767C"            /* j`tŽš€dl’ž€tzrv| */
	$"767E 8A96 8A6A 5668 969A 7672 7E82 8C86"            /* v~Š–ŠjVh–švr~‚Œ† */
	$"7C74 7880 7C70 6E88 AC92 6060 7284 8A86"            /* |tx€|pnˆ¬’``r„Š† */
	$"7C76 8086 8278 6C7C 9476 5C6E 92A2 927A"            /* |v€†‚xl|”v\n’¢’z */
	$"6668 7C86 8882 7286 9678 6474 908C 7668"            /* fh|†ˆ‚r†–xdt�Œvh */
	$"6A84 9A92 866E 5C76 887A 6C7E 9488 746C"            /* j„š’†n\vˆzl~”ˆtl */
	$"728C 8E7C 7468 7294 A282 646E 827A 7270"            /* rŒŽ|thr”¢‚dn‚zrp */
	$"829C 8C74 706E 7A90 906E 587A 948E 7E6C"            /* ‚œŒtpnz��nXz”Ž~l */
	$"7A86 746A 7686 9098 8C66 5E84 948A 7064"            /* z†tjv†�˜Œf^„”Špd */
	$"7E8E 8278 8082 7A7C 7862 7498 9E88 645E"            /* ~Ž‚x€‚z|xbt˜žˆd^ */
	$"7E90 8070 7A82 7E88 8272 7E8E 8872 5C6E"            /* ~�€pz‚~ˆ‚r~Žˆr\n */
	$"96A2 8268 7678 7884 7C72 7E8A 8A78 6A7C"            /* –¢‚hvxx„|r~ŠŠxj| */
	$"9490 645A 7A88 8E90 7C70 7680 8474 7080"            /* ”�dZzˆŽ�|pv€„tp€ */
	$"9A90 6666 888E 8474 666C 7E92 9080 7074"            /* š�ffˆŽ„tfl~’�€pt */
	$"8A7E 5E6E 9092 8270 6E7A 888C 7C6E 667A"            /* Š~^n�’‚pnzˆŒ|nfz */
	$"9E92 707A 8C88 7066 7082 948C 7870 6C82"            /* ž’pzŒˆpfp‚”Œxpl‚ */
	$"9A7E 5E6C 8A8E 7A78 8088 8872 686E 7490"            /* š~^lŠŽzx€ˆˆrhnt� */
	$"9E7E 6474 928A 726C 7686 8874 7880 808C"            /* ž~dt’Šrlv†ˆtx€€Œ */
	$"8668 5878 9C92 7A70 788C 826A 747C 7E86"            /* †hXxœ’zpxŒ‚jt|~† */
	$"8674 6E8C 9C80 6664 7A96 8A78 7C80 7C7E"            /* †tnŒœ€fdz–Šx|€|~ */
	$"7C6C 6A88 907A 6C70 8E9C 7C66 6C7A 7E84"            /* |ljˆ�zlpŽœ|flz~„ */
	$"8A76 748A 8674 666E 9096 7868 7C8E 8880"            /* ŠvtŠ†tfn�–xh|Žˆ€ */
	$"7C66 6C84 867E 747C 928C 6A5C 7A90 8480"            /* |fl„†~t|’Œj\z�„€ */
	$"7A72 808E 8676 6870 8A8C 746E 9098 8076"            /* zr€Ž†vhpŠŒtn�˜€v */
	$"6C6E 828C 8678 6E7C 908C 6862 8688 7874"            /* ln‚Œ†xn|�Œhb†ˆxt */
	$"7884 908A 7A68 6878 908E 6A70 9090 7A70"            /* x„�Šzhhx�Žjp��zp */
	$"7480 8682 7472 7C88 9A82 5A64 8686 7874"            /* t€†‚tr|ˆš‚Zd††xt */
	$"7E8A 8C7E 6E76 7880 8C7A 6278 9894 786A"            /* ~ŠŒ~nvx€Œzbx˜”xj */
	$"727E 8476 7486 8888 8A72 5E76 9086 6A6A"            /* r~„vt†ˆˆŠr^v�†jj */
	$"7E90 9076 707C 787A 8074 748A 9C84 6868"            /* ~��vp|xz€ttŠœ„hh */
	$"7A8C 846C 7486 868A 867A 6E7E 8A74 6874"            /* zŒ„lt††Š†zn~Štht */
	$"8C9A 8666 6E7E 807C 7C76 748C 947E 7076"            /* Œš†fn~€||vtŒ”~pv */
	$"828A 7062 7892 9284 7E70 7084 8674 7278"            /* ‚Špbx’’„~pp„†trx */
	$"8E90 766A 7C8C 7C6C 7074 8098 907C 6E70"            /* Ž�vj|Œ|lpt€˜�|np */
	$"8686 706A 8496 8474 7A7A 8488 786E 6C80"            /* ††pj„–„tzz„ˆxnl€ */
	$"9696 7A6C 7C88 726A 5A08 68CE F4B0 605C"            /* ––zl|ˆrjZ.hÎ.°`\ */
	$"44A0 C294 8A58 76B2 4EAA FF84 3042 7078"            /* D Â”ŠXv²Nª.„0Bpx */
	$"8AA8 CEDE DC80 2818 7E66 72BE 8252 B4F8"            /* Š¨Î..€(.~fr¾‚R´. */
	$"A440 2674 B4C4 A8AA 8C8C 5204 74AE A0D6"            /* ¤@&t´Ä¨ªŒŒR.t® Ö */
	$"F886 1E4C 9E90 4C24 6096 D4FE AC8C 6C06"            /* .†.Lž�L$`–Ô.¬Œl. */
	$"36AC B294 98A0 5014 26A8 D890 8A76 84B2"            /* 6¬²”˜ P.&¨Ø�Šv„² */
	$"985A 6444 3C6A CCE6 B892 725E 1A72 CEBE"            /* ˜ZdD<jÌ.¸’r^.rξ */
	$"A65C 103E 8E72 6AA8 AE82 88AA C474 2E4E"            /* ¦\.>Žrj¨®‚ˆªÄt.N */
	$"3646 9AC2 E8B4 4A10 569A 7482 A6AC 5228"            /* 6FšÂ.´J.Všt‚¦¬R( */
	$"869E 5274 8884 C0C0 AE9C 7E01 0158 909C"            /* †žRtˆ„ÀÀ®œ~..X�œ */
	$"A0DA B23E 3870 7682 806C 72A2 8460 7A68"            /*  .²>8pv‚€lr¢„`zh */
	$"5658 8EE4 A276 9856 1A10 487A D2C0 6E92"            /* VXŽ.¢v˜V..HzÒÀn’ */
	$"AE7C 6274 8C70 42B0 BC76 5064 726A 6C6C"            /* ®|btŒpB°¼vPdrjll */
	$"C8DE 7E34 3854 6040 80C4 9484 BEA8 4848"            /* È.~48T`@€Ä”„¾¨HH */
	$"5A72 9060 609E 9E76 1838 929C 9AC4 C262"            /* Zr�``žžv.8’œšÄÂb */
	$"5666 4C46 5C76 D4C4 9A7A 66A4 720C 148E"            /* VfLF\vÔÄšzf¤r..Ž */
	$"928E B482 464A 5480 ACA6 ACA6 AA64 0128"            /* ’Ž´‚FJT€¬¦¬¦ªd.( */
	$"A28E 3270 B4B0 C692 6644 1A46 86B8 AC88"            /* ¢Ž2p´°Æ’fD.F†¸¬ˆ */
	$"7A98 6212 74FF C468 6654 7A6A 6650 3C5A"            /* z˜b.t.ÄhfTzjfP<Z */
	$"84B8 DEC0 524C 782E 1098 E0D0 8A28 3470"            /* „¸.ÀRLx..˜.Њ(4p */
	$"A2AE 8E70 7070 6AA6 7A12 4282 8C90 C0FC"            /* ¢®Žpppj¦z.B‚Œ�À. */
	$"EA6E 0C06 54AC B888 828E 2A62 B87C 5468"            /* .n..T¬¸ˆ‚Ž*b¸|Th */
	$"9A9E 7868 9C8E 3606 329A FFEE A0A2 4E0C"            /* šžxhœŽ6.2š.. ¢N. */
	$"4084 845A 6AA8 A66A 6C92 7E86 6448 B6EA"            /* @„„Zj¨¦jl’~†dH¶. */
	$"9260 4E22 3078 CCD2 A878 8C6C 404C 2C6C"            /* ’`N"0xÌÒ¨xŒl@L,l */
	$"A470 60B0 C890 5A68 7A70 86BA B252 463A"            /* ¤p`°È�Zhzp†º²RF: */
	$"4092 7664 D0E2 7E56 8278 4A38 669E 8CA6"            /* @’vdÐ.~V‚xJ8fžŒ¦ */
	$"CA9E 7250 348A B884 749A 8434 2C4C 8E7A"            /* ÊžrP4Š¸„tš„4,LŽz */
	$"7ECC B692 9866 5060 363A 96D6 AE98 8E6C"            /* ~̶’˜fP`6:–Ö®˜Žl */
	$"4E30 76AA 8E9A 8262 745A 4886 BC92 88AC"            /* N0vªŽš‚btZH†¼’ˆ¬ */
	$"CAB4 5836 5220 30A0 BEBE 9A62 547E 5848"            /* Ê´X6R 0 ¾¾šbT~XH */
	$"A2BE 944C 4E96 8460 9086 6A8E BECC AA5E"            /* ¢¾”LN–„`�†jŽ¾Ìª^ */
	$"0830 5862 92B6 E8BC 3A4A 867C 9AB2 7850"            /* .0Xb’¶.¼:J†|š²xP */
	$"707A 8A9A 5832 5EA0 C890 9AB2 5001 104A"            /* pzŠšX2^ È�š²P..J */
	$"8EF0 D28E 8666 6296 987A 3C46 B6A8 5E64"            /* Ž.ÒŽ†fb–˜z<F¶¨^d */
	$"905E 466A 82DA FAA8 6C38 1A3A 76D2 B65E"            /* �^Fj‚..¨l8.:vÒ¶^ */
	$"8CD6 9E56 605E 5C72 5070 AE9C 8A54 3E50"            /* ŒÖžV`^\rPp®œŠT>P */
	$"76B2 FCBE 4A5A 7A54 4E52 66AE B2A6 8682"            /* v².¾JZzTNRf®²¦†‚ */
	$"9A74 4252 7264 A2E4 8C4A 5668 AAAA 8294"            /* štBRrd¢.ŒJVhªª‚” */
	$"A6A0 6A26 3266 5E58 ACB0 7CB0 B47E 3628"            /* ¦ j&2f^X¬°|°´~6( */
	$"6CA2 A290 7876 986C 3E84 B478 A0BA 7250"            /* l¢¢�xv˜l>„´x ºrP */
	$"5266 5848 62A4 D6DE BE64 4E74 424A 9E9A"            /* RfXHb¤Ö.¾dNtBJžš */
	$"8C8A 826E 526A 8A7C 7C8E 8C86 B874 0E4E"            /* ŒŠ‚nRjŠ||ŽŒ†¸t.N */
	$"726C AAE4 DAAE 624E 5252 6280 8690 844C"            /* rlª..®bNRRb€†�„L */
	$"9AC4 8664 7682 7C90 B4BA 5C12 3E6C 8ED2"            /* šÄ†dv‚|�´º\.>lŽÒ */
	$"BAAA B04C 205E 8270 6A7A 786E 7EBC CA6A"            /* ºª°L ^‚pjzxn~¼Êj */
	$"525A 76C2 C682 7254 2C38 6AB8 D0B8 9E98"            /* RZvÂÆ‚rT,8j¸Ð¸ž˜ */
	$"403C 8A80 726A 4C7A E0C8 806A 6E60 5872"            /* @<Š€rjLz.È€jn`Xr */
	$"B8A4 6A7A 4616 4478 BAE8 AA66 80AE 844C"            /* ¸¤jzF.Dxº.ªf€®„L */
	$"3260 8066 A2D4 8E86 965E 5054 72B0 D07C"            /* 2`€f¢ÔŽ†–^PTr°Ð| */
	$"2E3C 7294 6E82 C0B0 9CB2 7446 5652 5A72"            /* .<r”n‚À°œ²tFVRZr */
	$"6878 C4C6 9846 2482 A476 8692 7A76 7456"            /* hxÄƘF$‚¤v†’zvtV */
	$"6890 94B4 B890 6C64 8678 0222 9EBC B6AA"            /* h�”´¸�ld†x."ž¼¶ª */
	$"8E82 8460 728C 808A 9482 7448 48AA 984E"            /* Ž‚„`rŒ€Š”‚tHHª˜N */
	$"78CC CA9E 5828 3440 709C A4BA A882 9C8A"            /* xÌÊžX(4@pœ¤º¨‚œŠ */
	$"4868 AC7E 566E 82A4 964C 4058 8CD4 BAAE"            /* Hh¬~Vn‚¤–L@XŒÔº® */
	$"9E48 1E58 705E 94BC B48E 6A7C A080 5C2E"            /* žH.Xp^”¼´Žj| €\. */
	$"3E9A A07E A28E 2C44 94B0 C4C0 A890 3E12"            /* >š ~¢Ž,D”°ÄÀ¨�>. */
	$"468C A896 6C82 B696 86A0 7232 3E64 AAA2"            /* FŒ¨–l‚¶–† r2>dª¢ */
	$"8C98 6840 5884 BAF6 B44E 5058 365C 7C7A"            /* Œ˜h@X„º.´NPX6\|z */
	$"826E 92BA AA94 7648 4C5E 62AA DC98 504C"            /* ‚n’ºª”vHL^bª.˜PL */
	$"6480 88AA D298 5258 5656 725E 5CB0 A288"            /* d€ˆªÒ˜RXVVr^\°¢ˆ */
	$"CACC 863E 4064 6662 9EBA 865A 4E50 8CA8"            /* Ê̆>@dfbžº†ZNPŒ¨ */
	$"7EA0 AA70 545C 6E66 4C7C B49A 9CC8 AA7C"            /* ~ ªpT\nfL|´šœÈª| */
	$"6624 328C 967A 8A8C 7460 6C9A 9C90 AA98"            /* f$2Œ–zŠŒt`lšœ�ª˜ */
	$"606A 5658 866E 4A7C CAD6 9E62 605C 3C56"            /* `jVX†nJ|ÊÖžb`\<V */
	$"9A82 809E 7E86 8466 8EC2 9860 669E 9A4A"            /* š‚€ž~†„fŽÂ˜`fžšJ */
	$"2A5C 6A7C C2C2 A08C 685C 6E4C 4C84 9E94"            /* *\j| Œh\nLL„ž” */
	$"6E66 B0BC 605A 7074 A2B8 8254 3634 568C"            /* nf°¼`Zpt¢¸‚T64VŒ */
	$"A4A8 ACB8 B04C 428C 866E 5E48 7AC0 B894"            /* ¤¨¬¸°LBŒ†n^HzÀ¸” */
	$"724E 5070 9CBA 8450 826C 1848 A6D4 D090"            /* rNPpœº„P‚l.H¦ÔÐ� */
	$"5A70 8E88 724A 4640 5AC0 D476 7498 684A"            /* ZpŽˆrJF@ZÀÔvt˜hJ */
	$"6CA2 C6B8 4E22 3C6E B2AC 9EA2 7276 B88E"            /* l¢Æ¸N"<n²¬ž¢rv¸Ž */
	$"4446 5C60 6272 98C8 BE80 3C2E 8EB4 94A2"            /* DF\`br˜È¾€<.Ž´”¢ */
	$"7C34 4878 6E78 7E92 BCA4 706E 828E 6816"            /* |4Hxnx~’¼¤pn‚Žh. */
	$"3698 B6BA D0A0 5852 6A96 8C6E 9094 6854"            /* 6˜¶ºÐ XRj–Œn�”hT */
	$"386A C09C 5E84 AC90 9A92 582E 2866 A8A0"            /* 8jÀœ^„¬�š’X.(f¨  */
	$"A2A8 8884 683E 74B0 8860 6062 6876 8C9A"            /* ¢¨ˆ„h>t°ˆ``bhvŒš */
	$"7A7E AEA8 A49C 5434 6E5C 4698 C6AA 8A6E"            /* z~®¨¤œT4n\F˜ÆªŠn */
	$"7276 6A8A 8676 7466 6E9C 8840 6AAE A29C"            /* rvjŠ†vtfnœˆ@j®¢œ */
	$"A6A2 782C 305C 5A78 A6A0 A89E 6878 AA76"            /* ¦¢x,0\Zx¦ ¨žhxªv */
	$"4066 8898 9090 8858 447A A2A8 BC96 7078"            /* @fˆ˜��ˆXDz¢¨¼–px */
	$"4824 5888 8E7C 72A4 BCA6 9A76 363A 7082"            /* H$XˆŽ|r¤¼¦šv6:p‚ */
	$"A8AA 5852 7474 6E8A C2CA 744C 626A 7A8A"            /* ¨ªXRttnŠÂÊtLbjzŠ */
	$"705E 808C B8E0 A450 4060 7866 66B0 AC56"            /* p^€Œ¸.¤P@`xff°¬V */
	$"4C64 6CAE CAA4 8862 5070 9076 3C44 92B6"            /* Ldl®Ê¤ˆbPp�v<D’¶ */
	$"909A BE8C 6250 2854 A0AE A882 5852 70AC"            /* �š¾ŒbP(T ®¨‚XRp¬ */
	$"BC86 6CA8 A262 5E5A 5E78 6650 88C6 D8B2"            /* ¼†l¨¢b^Z^xfPˆÆز */
	$"805A 2C38 9AB8 6A72 928A 886C 689C B684"            /* €Z,8š¸jr’Šˆlhœ¶„ */
	$"5E68 7A86 786C 6432 60DC E2A6 8270 7668"            /* ^hz†xld2`..¦‚pvh */
	$"525E 849E 8E68 5C8C 9288 AC86 466A 9A8C"            /* R^„žŽh\Œ’ˆ¬†FjšŒ */
	$"7248 4272 949A A4A6 B69E 4C48 6A64 7492"            /* rHBr”š¤¦¶žLHjdt’ */
	$"826C 7692 A492 6268 88AA B670 5C8E 5C36"            /* ‚lv’¤’bhˆª¶p\Ž\6 */
	$"729A 9EAE B89A 7656 5E78 6450 547C C6BA"            /* ršž®¸švV^xdPT|ƺ */
	$"727E 8C62 6290 9E90 7A6C 684A 5686 90A2"            /* r~Œbb�ž�zlhJV†�¢ */
	$"A270 84BA 904C 5250 4E78 9CB8 B288 7A68"            /* ¢p„º�LRPNxœ¸²ˆzh */
	$"6692 868E A274 324C 8A8C 847C 8898 8E9A"            /* f’†Ž¢t2LŠŒ„|ˆ˜Žš */
	$"AE7E 5842 3278 A892 9CBC 7E44 5A86 A490"            /* ®~XB2x¨’œ¼~DZ†¤� */
	$"8686 6048 6882 8E8E 6C78 BABA 8E8E 744C"            /* ††`Hh‚ŽŽlxººŽŽtL */
	$"3030 80A8 A6B8 9A5E 526A 769E A260 5680"            /* 00€¨¦¸š^Rjvž¢`V€ */
	$"8478 6C74 826E 8AAC A8AC 9A56 303E 3C72"            /* „xlt‚nŠ¬¨¬šV0><r */
	$"C8C8 906E 7A9C 8068 8886 6A74 7C72 9086"            /* ÈÈ�nzœ€hˆ†jt|r�† */
	$"5E78 766C 9CCE C05E 204A 6662 82A6 9C94"            /* ^xvlœÎÀ^ Jfb‚¦œ” */
	$"946E 7690 747C 7A60 5E74 A09E 563C 7A9E"            /* ”nv�t|z`^t žV<zž */
	$"A8B8 9A70 6E58 4054 769A A8A6 9E7C 6A9A"            /* ¨¸špnX@Tvš¨¦ž|jš */
	$"9A50 4C6A 80AE 985C 5C72 767C 90AE B294"            /* šPLj€®˜\\rv|�®²” */
	$"8474 3628 7A92 7E7C 84B8 C696 5E46 5670"            /* „t6(z’~|„¸Æ–^FVp */
	$"7084 AA88 688A 804C 76B0 B29C 6E58 7480"            /* p„ªˆhŠ€Lv°²œnXt€ */
	$"684A 4274 A4A2 B8B2 6C5E 6858 5474 98A4"            /* hJBt¤¢¸²l^hXTt˜¤ */
	$"8862 5C72 A2B8 8062 9888 7086 6848 566C"            /* ˆb\r¢¸€b˜ˆp†hHVl */
	$"86A8 B0B0 A886 5A36 4C9E AA6C 6E7C 6E76"            /* †¨°°¨†Z6Lžªln|nv */
	$"8A8C 867A 7A94 8478 785C 5E5A 407E DED6"            /* ŠŒ†zz”„xx\^Z@~.Ö */
	$"9E86 6846 526C 8084 7080 7E7C 9682 7A92"            /* ž†hFRl€„p€~|–‚z’ */
	$"7A60 88A8 9E76 4E42 4E6A A0C8 AEA2 8A50"            /* z`ˆ¨žvNBNj È®¢ŠP */
	$"5C74 5A5C 8472 6480 A4B2 8A6E 6C66 789A"            /* \tZ\„rd€¤²Šnlfxš */
	$"948E 7C3C 2E6E 9694 ACB0 9272 5880 825A"            /* ”Ž|<.n–”¬°’rX€‚Z */
	$"6670 688C 9E98 A48C 5250 8C98 8C80 725A"            /* fphŒž˜¤ŒRPŒ˜Œ€rZ */
	$"3654 888C A0B0 9288 8A66 6474 5E50 628C"            /* 6TˆŒ °’ˆŠfdt^PbŒ */
	$"B8AC 887E 645A 808E 8696 885C 6468 566E"            /* ¸¬ˆ~dZ€Ž†–ˆ\dhVn */
	$"96B2 9C7C A0AA 7658 403C 6488 90A4 B080"            /* –²œ| ªvX@<dˆ�¤°€ */
	$"727E 6E68 6E90 AC72 4E76 847C 7C72 769E"            /* r~nhn�¬rNv„||rvž */
	$"B2A8 9466 4642 5A78 767E B6B8 7A6E 7878"            /* ²¨”fFBZxv~¶¸znxx */
	$"9A92 6060 7280 8874 6C6C 709A B698 808A"            /* š’``r€ˆtllpš¶˜€Š */
	$"6E48 4440 76B6 B48E 7680 9880 788E 665C"            /* nHD@v¶´Žv€˜€xŽf\ */
	$"8C94 6C6C 7270 8074 78B2 D6B2 6C34 3E58"            /* Œ”llrp€tx²Ö²l4>X */
	$"5C94 AC82 86A4 947C 6866 786C 5E64 80A6"            /* \”¬‚†¤”|hfxl^d€¦ */
	$"A45E 3E68 7C9C D6B6 746A 5C54 5E62 7C90"            /* ¤^>h|œÖ¶tj\T^b|� */
	$"9C9E 8482 AAA0 5A3E 5068 94A8 9076 5E60"            /* œž„‚ª Z>Ph”¨�v^` */
	$"8692 A4A6 8688 7432 4088 8A70 707E 92A4"            /* †’¤¦†ˆt2@ˆŠpp~’¤ */
	$"A290 6E4A 5470 8A9C 8070 8A6E 487E AEB6"            /* ¢�nJTpŠœ€pŠnH~®¶ */
	$"9A76 6C5E 5470 7460 728E 9CBA BA7A 6270"            /* švl^Tpt`rŽœººzbp */
	$"5252 7696 A48C 7266 5A78 9888 8C98 7A6C"            /* RRv–¤ŒrfZx˜ˆŒ˜zl */
	$"8274 4E4E 6682 989E BEB8 8868 4E48 747E"            /* ‚tNNf‚˜ž¾¸ˆhNHt~ */
	$"6E94 926C 6E94 9678 6C84 9480 8082 6A56"            /* n”’ln”–xl„”€€‚jV */
	$"5656 86B0 9898 A07C 5650 6A82 7068 7E7E"            /* VV†°˜˜ |VPj‚ph~~ */
	$"7A96 947E 847E 7694 9A76 6660 625C 649C"            /* z–”~„~v”švf`b\dœ */
	$"BEAC 9E78 4E66 7468 707E 7276 92A0 8A6E"            /* ¾¬žxNfthp~rv’ Šn */
	$"7288 746A 989C 886A 3434 6A8E A4B8 B08A"            /* rˆtj˜œˆj44jŽ¤¸°Š */
	$"6A7C 8C62 446C 8472 849A A0AA 864E 567A"            /* j|ŒbDl„r„š ª†NVz */
	$"92AA 9E7E 4C36 6C94 868E ACA2 8C80 6C6E"            /* ’ªž~L6l”†Ž¬¢Œ€ln */
	$"8070 4A48 70A8 B0A2 9252 4A8A 9E94 8E72"            /* €pJHp¨°¢’RJŠž”Žr */
	$"626A 6056 7CB6 BC92 7284 967E 7E6A 3842"            /* bj`V|¶¼’r„–~~j8B */
	$"82AE B892 6E7A 7E78 6E84 B4AC 6244 5A5A"            /* ‚®¸’nz~xn„´¬bDZZ */
	$"72A0 9C76 829C B0A0 6440 485E 787A 92C2"            /* r œv‚œ° d@H^xz’ */
	$"AE7E 6C66 6A8E A892 6C60 6E82 7E72 6666"            /* ®~lfjŽ¨’l`n‚~rff */
	$"A2C2 968A 9674 5044 4A72 9EB2 A086 7472"            /* ¢Â–Š–tPDJrž² †tr */
	$"7E98 9058 528A 946C 6C76 7C7C 7C98 B0A8"            /* ~˜�XRŠ”llv|||˜°¨ */
	$"A07C 524A 486C B0AA 7270 9A94 7C80 8078"            /*  |RJHl°ªrpš”|€€x */
	$"7072 807A 807E 6066 747A B0D6 AC66 4648"            /* pr€z€~`ftz°Ö¬fFH */
	$"5A68 748A 908C 9088 8294 805C 707A 748E"            /* ZhtŠ�Œ�ˆ‚”€\pztŽ */
	$"A694 6040 608C A6BA AC92 7C54 3E5E 8066"            /* ¦”`@`Œ¦º¬’|T>^€f */
	$"6E92 9A90 92A0 9E62 3C5E 748E 9A88 725E"            /* n’š�’ žb<^tŽšˆr^ */
	$"4C5A 9EBC A08A 8E7C 5852 767E 6676 808A"            /* LZž¼ ŠŽ|XRv~fv€Š */
	$"B2B2 907E 6046 5E90 A88A 6460 686A 7CA0"            /* ²²�~`F^�¨Šd`hj|  */
	$"A6A0 9468 5C72 7264 686C 6E7A B0D4 9A5E"            /* ¦ ”h\rrdhlnz°Ôš^ */
	$"545C 6A80 828A 9A78 4A5C 848E 9EA8 A27E"            /* T\j€‚ŠšxJ\„Žž¨¢~ */
	$"6286 9862 3846 6A98 AAAC A898 724C 4E6A"            /* b†˜b8Fj˜ª¬¨˜rLNj */
	$"828A 9A92 584C 8498 867E 7084 A69A 7A60"            /* ‚Šš’XL„˜†~p„¦šz` */
	$"5852 4E66 92B0 B6B4 9258 4C6E 8A94 7C5E"            /* XRNf’°¶´’XLnŠ”|^ */
	$"6E90 9E82 647E 8E76 84A2 8A76 6C54 3C4E"            /* n�ž‚d~Žv„¢ŠvlT<N */
	$"7EB2 D0A0 6662 8288 665A 7C78 6884 8C82"            /* ~²Ð fb‚ˆfZ|xh„Œ‚ */
	$"787C 8276 7A9A BAAA 6E2E 266C 9E90 9CAE"            /* x|‚vzšºªn.&lž�œ® */
	$"9284 8870 6468 6C6C 6A78 8E9E A27E 3E48"            /* ’„ˆpdhlljxŽž¢~>H */
	$"8EBC B298 7458 504C 607E 92A0 9E90 947C"            /* Ž¼²˜tXPL`~’ ž�”| */
	$"708C 6E30 3A88 B8B2 9476 666A 768E A4A2"            /* pŒn0:ˆ¸²”vfjvŽ¤¢ */
	$"8864 645C 4268 A49A 7676 9CB6 9A72 5844"            /* ˆdd\Bh¤švvœ¶šrXD */
	$"4A6E 8E9E A282 6272 7670 94B2 9A6A 4E5A"            /* JnŽž¢‚brvp”²šjNZ */
	$"6C74 8274 769A A6A2 AA98 5E40 5266 7A94"            /* lt‚tvš¦¢ª˜^@Rfz” */
	$"A4A2 7854 647A 989E 7C76 826A 5C74 7A5E"            /* ¤¢xTdz˜ž|v‚j\tz^ */
	$"5888 B0AE A8A0 804A 3840 669C 9E88 968A"            /* Xˆ°®¨ €J8@fœžˆ–Š */
	$"6A72 909A 7C6C 8490 8076 7260 5A6C 84A6"            /* jr�š|l„�€vr`Zl„¦ */
	$"C4AE 826A 5240 4C7A 9A82 7688 8C94 9678"            /* Ä®‚jR@Lzš‚vˆŒ”–x */
	$"6474 7A7A 8A92 7458 5668 788A B8C8 9A68"            /* dtzzŠ’tXVhxŠ¸Èšh */
	$"4E50 7680 6E76 8890 8894 A486 606C 8274"            /* NPv€nvˆ�ˆ”¤†`l‚t */
	$"789C 946A 4630 60AE BEAC 9A86 6C56 6270"            /* xœ”jF0`®¾¬š†lVbp */
	$"5C5A 8294 8E94 A29A 7852 4068 A4BA 9864"            /* \Z‚”Ž”¢šxR@h¤º˜d */
	$"5452 5A88 AA98 9EA2 8876 6C64 626C 5E4E"            /* TRZˆª˜ž¢ˆvldbl^N */
	$"74BE D49E 6254 5262 9098 8A78 686A 706C"            /* t¾ÔžbTRb�˜Šxhjpl */
	$"7A9A AE9E 6664 9A9E 6648 4E50 7CB6 BEA8"            /* zš®žfdšžfHNP|¶¾¨ */
	$"8064 6A74 7478 8CA2 7E44 4E7E 908E 8A80"            /* €djttxŒ¢~DN~�ŽŠ€ */
	$"7C90 9E90 6842 3E54 78A0 A4A4 B288 4A4E"            /* |�ž�hB>Tx ¤¤²ˆJN */
	$"748E 9688 6E68 7A84 7874 7270 84B2 BA8C"            /* tŽ–ˆnhz„xtrp„²ºŒ */
	$"7470 5238 467A BAC2 A488 7270 726E 7270"            /* tpR8FzºÂ¤ˆrprnrp */
	$"5E6E A09E 7068 7A74 6E80 A6B8 9E76 463A"            /* ^n žphztn€¦¸žvF: */
	$"586E 8CAE 9E7C 8CA0 8E6C 6066 7076 8094"            /* XnŒ®ž|Œ Žl`fpv€” */
	$"928A 7854 6290 A2AC AE80 4A3A 5674 7882"            /* ’ŠxTb�¢¬®€J:Vtx‚ */
	$"8C94 9A98 7E78 805E 466E 9696 9C96 7850"            /* Œ”š˜~x€^Fn––œ–xP */
	$"4676 AEB6 A88C 6E60 4E4C 708C 8080 A6B8"            /* Fv®¶¨Œn`NLpŒ€€¦¸ */
	$"9E88 8064 3638 76A0 B2AA 7256 5E5E 7CA4"            /* žˆ€d68v ²ªrV^^|¤ */
	$"A88C 7676 7060 5E6C 7070 84A0 B0C2 A25A"            /* ¨Œvvp`^lpp„ °Â¢Z */
	$"3A3E 5C82 A2AE 8C66 6A7A 7888 9694 8E7E"            /* :>\‚¢®Œfjzxˆ–”Ž~ */
	$"5E6A 8C7C 5658 7492 ACBE B470 3A46 5E76"            /* ^jŒ|VXt’¬¾´p:F^v */
	$"8892 9A90 6C54 6E98 9E86 7C80 7C7A 8C7E"            /* ˆ’š�lTn˜ž†|€|zŒ~ */
	$"4442 6C90 BAC4 AC92 764E 364E 88A4 9A8E"            /* DBl�ºÄ¬’vN6Nˆ¤šŽ */
	$"7E6E 7A94 8268 6A7A 98AA 8E60 4850 6460"            /* ~nz”‚hjz˜ªŽ`HPd` */
	$"7CC2 D2AC 845E 445A 787C 7C7C 7C9A B494"            /* |ÂÒ¬„^DZx||||š´” */
	$"5E50 7A8C 788C A692 7054 4458 82AA BCA8"            /* ^PzŒxŒ¦’pTDX‚ª¼¨ */
	$"806A 7482 6E44 4A84 968C 9C9A 8274 6864"            /* €jt‚nDJ„–Œœš‚thd */
	$"7294 AE9C 7650 3C5C 9AA6 8E8E 9E98 866E"            /* r”®œvP<\š¦ŽŽž˜†n */
	$"585C 6666 7288 ACBA 987A 5C40 62AA BC90"            /* X\ffrˆ¬º˜z\@bª¼� */
	$"6A66 6666 6872 8C9C 9888 8C96 785E 644C"            /* jfffhrŒœ˜ˆŒ–x^dL */
	$"3C78 C4D8 AC76 605E 6678 8A96 9680 6668"            /* <xÄجv`^fxŠ––€fh */
	$"7A76 829A 8670 88AE AE7C 503A 3E6C 9AA4"            /* zv‚š†pˆ®®|P:>lš¤ */
	$"ACAC 8258 5C6E 768A 8E78 6664 7C90 8E7C"            /* ¬¬‚X\nvŠŽxfd|�Ž| */
	$"6A70 9CA8 948E 7E52 3654 869E AAB0 986A"            /* jpœ¨”Ž~R6T†žª°˜j */
	$"5666 8292 8662 6A8A 807A 8E86 6660 84A4"            /* Vf‚’†bjŠ€zŽ†f`„¤ */
	$"A294 8260 3E3C 5E8C B6B4 8E80 7E70 6C76"            /* ¢”‚`><^Œ¶´Ž€~plv */
	$"7A68 6286 9A90 8E7E 6266 7A82 9ABA A066"            /* zhb†š�Ž~bfz‚šº f */
	$"4A4C 5C74 8EA0 968A 9290 8878 5652 6E7E"            /* JL\tŽ –Š’�ˆxVRn~ */
	$"7A8C A696 6256 6E82 8CA2 A274 5C62 6A82"            /* zŒ¦–bVn‚Œ¢¢t\bj‚ */
	$"8068 7EA8 A892 8688 7250 546A 7A96 AE9C"            /* €h~¨¨’†ˆrPTjz–®œ */
	$"705A 6286 A69C 786A 7680 6E5E 7072 728E"            /* pZb†¦œxjv€n^prrŽ */
	$"9698 A49C 6E48 4050 7AB0 B484 6674 8A7C"            /* –˜¤œnH@Pz°´„ftŠ| */
	$"7A86 8A8A 8274 7880 7468 6068 78A2 D0C2"            /* z†ŠŠ‚tx€th`hx¢Ð */
	$"7036 4862 6880 9694 9286 7476 8082 7C76"            /* p6Hbh€–”’†tv€‚|v */
	$"6C60 7EB0 9C5A 3E56 7EA2 B8AA 907A 604E"            /* l`~°œZ>V~¢¸ª�z`N */
	$"5270 9496 9084 6A7A A8A2 7456 5670 98A4"            /* Rp”–�„jz¨¢tVVp˜¤ */
	$"8268 6866 5E7C AEB8 9E8C 683A 4A7A 948E"            /* ‚hhf^|®¸žŒh:Jz”Ž */
	$"7068 86A0 9C80 6A70 6C66 7C9E 947C 7C60"            /* ph† œ€jplf|ž”||` */
	$"4462 A2C6 B688 665A 6A74 6068 8282 869A"            /* Db¢Æ¶ˆfZjt`h‚‚†š */
	$"9E88 7C76 5C4E 6490 ACA0 7A54 4A70 948E"            /* žˆ|v\Nd�¬ zTJp”Ž */
	$"909A 8E76 726E 6264 7274 7A94 A4A8 A482"            /* �šŽvrnbdrtz”¤¨¤‚ */
	$"4A42 788E 888A 8674 6870 8284 8086 8888"            /* JBxŽˆŠ†thp‚„€†ˆˆ */
	$"8074 7076 6A4E 649C AC9E 9484 604E 6A82"            /* €tpvjNdœ¬ž”„`Nj‚ */
	$"8084 8274 7E82 747C 9088 7882 948E 806C"            /* €„‚t~‚t|�ˆx‚”Ž€l */
	$"5650 6290 ACAE A480 6266 6E68 6C82 8C7C"            /* VPb�¬®¤€bfnhl‚Œ| */
	$"7888 8882 7A6C 627A 969C 9E86 4630 5E82"            /* xˆˆ‚zlbz–œž†F0^‚ */
	$"909A AAA2 806E 6E6C 7076 7476 7E8E 9EAC"            /* �šª¢€nnlpvtv~Žž¬ */
	$"9256 466E 989E 9490 704E 5868 7498 AA96"            /* ’VFn˜ž”�pNXht˜ª– */
	$"8278 7276 887A 504A 709A A8A2 8A68 606E"            /* ‚xrvˆzPJpš¨¢Šh`n */
	$"7084 A29E 7E5E 5458 72A2 B890 6E7E 928C"            /* p„¢ž~^TXr¢¸�n~’Œ */
	$"7C62 4E62 7A7E 94AC 9E7A 685E 546E B0BC"            /* |bNbz~”¬žzh^Tn°¼ */
	$"8456 526A 8088 7E7E 9298 8E86 7E70 5C5A"            /* „VRj€ˆ~~’˜Ž†~p\Z */
	$"645E 7CC0 C892 6452 5C7C 968A 7A84 8472"            /* d^|ÀÈ’dR\|–Šz„„r */
	$"7076 747A 8C8A 7A88 9E94 764C 3656 92B4"            /* pvtzŒŠzˆž”vL6V’´ */
	$"A284 8882 6A68 787A 768C 8A6E 687A 8A8C"            /* ¢„ˆ‚jhxzvŒŠnhzŠŒ */
	$"7866 7CAE BA84 6062 5A5E 7E96 9296 9E8E"            /* xf|®º„`bZ^~–’–žŽ */
	$"7062 6C82 887A 6870 929C 745E 6870 88A8"            /* pbl‚ˆzhp’œt^hpˆ¨ */
	$"A686 726C 5C4E 687E 8EA6 A27E 708E 906C"            /* ¦†rl\Nh~Ž¦¢~pŽ�l */
	$"5A5C 6C92 A49A 826C 6668 8098 9690 9684"            /* Z\l’¤š‚lfh€˜–�–„ */
	$"5246 6E86 7A7A 828C 98A0 9672 584E 5482"            /* RFn†zz‚Œ˜ –rXNT‚ */
	$"A290 8892 7452 628E A098 8A76 6464 7680"            /* ¢�ˆ’tRbŽ ˜Švddv€ */
	$"7872 7078 A2B4 9A80 6C58 4A60 8EA2 9E90"            /* xrpx¢´š€lXJ`Ž¢ž� */
	$"7056 6A86 9098 966E 5A78 8678 6A68 707A"            /* pVj†�˜–nZx†xjhpz */
	$"8EA4 A89C 7E50 465A 728E ACA8 7252 6E90"            /* Ž¤¨œ~PFZrŽ¬¨rRn� */
	$"8E80 8482 7680 867A 7C6E 5A6C 8690 A0BA"            /* Ž€„‚v€†z|nZl†� º */
	$"A25C 384C 6E84 9092 8078 8282 8084 7A70"            /* ¢\8Ln„�’€x‚‚€„zp */
	$"787E 7E80 8E8C 6048 6892 B2BC 986A 6268"            /* x~~€ŽŒ`Hh’²¼˜jbh */
	$"5C68 8484 828C 8E80 768A 9072 6062 7CA0"            /* \h„„‚ŒŽ€vŠ�r`b|  */
	$"986C 5460 707C 96A6 987E 7A7A 5A4E 7890"            /* ˜lT`p|–¦˜~zzZNx� */
	$"847A 7888 A49C 725E 6876 8496 9872 6072"            /* „zxˆ¤œr^hv„–˜r`r */
	$"7A6E 7C9C A69E 8462 627A 7C6A 5A72 949E"            /* zn|œ¦ž„bbz|jZr”ž */
	$"A89A 705A 6A76 7480 8886 8878 5660 92A8"            /* ¨špZjvt€ˆ†ˆxV`’¨ */
	$"8C76 8686 8286 7254 5266 88A6 A494 8A8A"            /* Œv††‚†rTRfˆ¦¤”ŠŠ */
	$"6E50 5A90 A484 6C70 7078 948E 766C 7A92"            /* nPZ�¤„lppx”Žvlz’ */
	$"988A 6A58 6868 5A7A B0B8 987C 6458 728A"            /* ˜ŠjXhhZz°¸˜|dXrŠ */
	$"887C 6E72 7E8C 927C 7084 8A78 7E9A 9876"            /* ˆ|nr~Œ’|p„Šx~š˜v */
	$"5646 5480 A8B0 A08A 6C5E 788A 6E62 7E7E"            /* VFT€¨° Šl^xŠnb~~ */
	$"707C 9098 886C 6270 8EA2 9C8A 6844 4478"            /* p|�˜ˆlbpŽ¢œŠhDDx */
	$"A096 949C 8C72 6C7C 7E74 7268 6C8C 9C96"            /*  –”œŒrl|~trhlŒœ– */
	$"927E 565A 8AA2 988C 765E 5664 7A8C 9A9A"            /* ’~VZŠ¢˜Œv^VdzŒšš */
	$"827A 867E 7276 725C 5A82 A6A4 907A 6868"            /* ‚z†~rvr\Z‚¦¤�zhh */
	$"7C86 8C9A 865E 6272 6C78 989E 8676 8492"            /* |†Œš†^brlx˜ž†v„’ */
	$"8A76 5E56 6880 8E9A A082 666C 7878 7E94"            /* Šv^Vh€Žš ‚flxx~” */
	$"9872 5C68 7682 8A7C 748C 9C92 8A7E 6052"            /* ˜r\hv‚Š|tŒœ’Š~`R */
	$"6C80 848E 9E9A 7E6C 646C 8E96 7A6A 7684"            /* l€„Žžš~ldlŽ–zjv„ */
	$"807A 7C6E 688A A69E 847E 7060 5E56 6AA0"            /* €z|nhŠ¦ž„~p`^Vj  */
	$"AE88 727C 827C 8484 6862 8296 8C7A 6E70"            /* ®ˆr|‚|„„hb‚–Œznp */
	$"787E 7A8E ACA4 7852 5464 7694 9C7A 728A"            /* x~zŽ¬¤xRTdv”œzrŠ */
	$"948A 7C6E 6474 8074 7C98 9470 5660 7498"            /* ”Š|ndt€t|˜”pV`t˜ */
	$"B4A0 705A 5C6C 8286 7C7A 909A 847A 9092"            /* ´ pZ\l‚†|z�š„z�’ */
	$"6E56 5C74 96B0 9A6C 5458 769E AA90 7680"            /* nV\t–°šlTXvžª�v€ */
	$"7856 5C7E 8A82 7878 829A A68E 6446 4C72"            /* xV\~Š‚xx‚š¦ŽdFLr */
	$"9EAC 8E70 7472 6674 94A0 9684 6C60 7690"            /* ž¬Žptrft” –„l`v� */
	$"846E 6668 80AE B88A 605E 5E62 7A8C 9C9C"            /* „nfh€®¸Š`^^bzŒœœ */
	$"8462 5C7C 9692 8878 6468 869A 785A 6476"            /* „b\|–’ˆxdh†šxZdv */
	$"8898 9C96 866E 5252 7A8E 9098 8662 648C"            /* ˆ˜œ–†nRRzŽ�˜†bdŒ */
	$"9884 7472 7482 8A82 7872 6A62 7494 A09C"            /* ˜„trt‚Š‚xrjbt” œ */
	$"9274 5450 708A 8A84 7C74 8490 8070 767A"            /* ’tTPpŠŠ„|t„�€pvz */
	$"6E7C 928C 807C 6C60 6A88 A4AA 966E 5E6E"            /* n|’Œ€|l`jˆ¤ª–n^n */
	$"7870 727E 7E78 8498 8C7A 7472 6668 8294"            /* xpr~~x„˜Œztrfh‚” */
	$"9686 6050 6E88 8E98 967C 6676 8072 7072"            /* –†`PnˆŽ˜–|fv€rpr */
	$"767C 8490 949C 8862 566E 8C9A 9482 645A"            /* v|„�”œˆbVnŒš”‚dZ */
	$"748A 8E8C 847C 7A80 746E 8282 625E 7E9C"            /* tŠŽŒ„|z€tn‚‚b^~œ */
	$"A4A0 865C 5068 8498 9274 6A76 7C72 7894"            /* ¤ †\Ph„˜’tjv|rx” */
	$"987A 6A76 868C 8A7A 5850 749E B4A4 7A62"            /* ˜zjv†ŒŠzXPtž´¤zb */
	$"6C76 6C74 9092 786E 6C76 8C9C 886A 6274"            /* lvlt�’xnlvŒœˆjbt */
	$"90A4 9264 4C5C 7E88 8E9A 9A84 685C 6682"            /* �¤’dL\~ˆŽšš„h\f‚ */
	$"988C 6E68 7286 A4A4 7456 708C 8A84 867C"            /* ˜Œnhr†¤¤tVpŒŠ„†| */
	$"725E 5670 98AC 9C84 6A5A 6E94 966C 526C"            /* r^Vp˜¬œ„jZn”–lRl */
	$"8E92 8C88 8078 726E 748C 9E8C 7460 5268"            /* Ž’Œˆ€xrntŒžŒt`Rh */
	$"A0B0 8E76 7A82 8888 7468 7278 747C 949E"            /*  °Žvz‚ˆˆthrxt|”ž */
	$"8E78 6258 6C92 A68C 645C 6C82 8C80 7A8A"            /* ŽxbXl’¦Œd\l‚Œ€zŠ */
	$"8C7A 7688 846E 6A66 6074 9EB0 9670 5E6C"            /* Œzvˆ„njf`tž°–p^l */
	$"8A90 7E7A 7E78 7078 8A88 7E82 8076 7A90"            /* Š�~z~xpxŠˆ~‚€vz� */
	$"9A7C 5A4E 5C84 A096 8680 766C 7888 807A"            /* š|ZN\„ –†€vlxˆ€z */
	$"7A74 6E78 868E 8A78 626C 94A4 9074 6664"            /* ztnx†ŽŠxbl”¤�tfd */
	$"6678 969E 9084 7A76 7A7E 8282 785C 5E8C"            /* fx–ž�„zvz~‚‚x\^Œ */
	$"A08A 7870 6A6C 8AA2 9882 685A 6674 7C8E"            /*  ŠxpjlŠ¢˜‚hZft|Ž */
	$"9C8E 706E 8894 8874 685E 6688 A29A 846C"            /* œŽpnˆ”ˆth^fˆ¢š„l */
	$"6072 8E92 8E90 825E 566E 828E 8E7E 6E76"            /* `rŽ’Ž�‚^Vn‚ŽŽ~nv */
	$"8A94 907E 584C 6C8E 968C 8C86 6E66 7890"            /* Š”�~XLlŽ–ŒŒ†nfx� */
	$"988E 7A64 5C6E 8294 906E 6282 A49A 8280"            /* ˜Žzd\n‚”�nb‚¤š‚€ */
	$"705C 6274 8A98 9682 6C66 6E88 A096 6C54"            /* p\btŠ˜–‚lfnˆ –lT */
	$"6884 8678 7A78 727E 8C92 948E 7658 566A"            /* h„†xzxr~Œ’”ŽvXVj */
	$"80A2 A67A 5A6C 8E96 8A7C 7078 7E76 7C86"            /* €¢¦zZlŽ–Š|px~v|† */
	$"8476 6E76 7C8C A6A0 7044 4E78 8E8A 7C74"            /* „vnv|Œ¦ pDNxŽŠ|t */
	$"7A82 8280 8884 706C 766E 7898 966E 5664"            /* z‚‚€ˆ„plvnx˜–nVd */
	$"8AA8 A688 6A6A 6E6E 767E 7E7A 7E80 7E86"            /* Š¨¦ˆjjnnv~~z~€~† */
	$"9A98 7856 5C7C 969C 7C5A 627A 848E 9A8E"            /* š˜xV\|–œ|Zbz„ŽšŽ */
	$"7874 7068 7082 8C80 6E68 80A6 AC80 5C5E"            /* xtphp‚Œ€nh€¦¬€\^ */
	$"707E 8A90 846C 6876 7884 98A0 8C6E 5E66"            /* p~Š�„lhvx„˜ Œn^f */
	$"8896 745C 687A 8EA0 A488 6664 686C 7E8A"            /* ˆ–t\hzŽ ¤ˆfdhl~Š */
	$"8C84 705E 6A92 A494 7A70 767E 888C 765E"            /* Œ„p^j’¤”zpv~ˆŒv^ */
	$"6472 849C A092 8674 5C5A 809C 8C76 6C6C"            /* dr„œ ’†t\Z€œŒvll */
	$"7890 988A 786C 6C82 8E7C 7270 6C64 6C92"            /* x�˜Šxll‚Ž|rpldl’ */
	$"AC9E 826E 6466 7E90 8878 6868 8096 9080"            /* ¬ž‚ndf~�ˆxhh€–�€ */
	$"807E 7274 8C8E 7C72 5E5C 7290 A6A4 9070"            /* €~rtŒŽ|r^\r�¦¤�p */
	$"6272 8684 746E 7674 7C8A 8E8A 7E6E 6A7A"            /* br†„tnvt|ŠŽŠ~njz */
	$"9296 8C7E 5C4C 6C9A 9E8C 8882 787C 7C78"            /* ’–Œ~\LlšžŒˆ‚x||x */
	$"7A72 686E 7E8E 989A 8C68 5678 9C9E 8270"            /* zrhn~Ž˜šŒhVxœž‚p */
	$"6664 7688 8C8C 8880 7A7E 847C 827C 5A52"            /* fdvˆŒŒˆ€z~„|‚|ZR */
	$"789A A496 7A66 6E88 8E8A 8278 6C66 727E"            /* xš¤–zfnˆŽŠ‚xlfr~ */
	$"8492 947C 6A74 909A 8666 5262 8898 9090"            /* „’”|jt�š†fRbˆ˜�� */
	$"826C 6C7E 7E7E 8E8C 705C 6284 9E94 7866"            /* ‚ll~~~ŽŒp\b„ž”xf */
	$"7892 9894 8468 5864 7E86 889A 9C82 6664"            /* x’˜”„hXd~†ˆšœ‚fd */
	$"8094 987A 5862 828E 948E 7266 7A90 8E8C"            /* €”˜zXb‚Ž”Žrfz�ŽŒ */
	$"8C80 6E5C 586E 9AAA 8A68 6C80 8E92 8472"            /* Œ€n\XnšªŠhl€Ž’„r */
	$"626A 848A 8686 847C 746C 789E AA7E 565C"            /* bj„Š††„|tlxžª~V\ */
	$"6C7E 9294 8270 7A8A 8A86 7C70 7672 6672"            /* l~’”‚pzŠŠ†|pvrfr */
	$"96A2 8264 6074 8A9C 9C7A 5A62 747C 8882"            /* –¢‚d`tŠœœzZbt|ˆ‚ */
	$"7884 8A80 7C92 967A 605C 6684 A09A 7A68"            /* x„Š€|’–z`\f„ šzh */
	$"6A72 8C9C 8674 787A 746C 7E8E 8270 707C"            /* jrŒœ†txztl~Ž‚pp| */
	$"90A0 9672 5E58 6288 A48E 7276 847C 7A8C"            /* � –r^Xbˆ¤Žrv„|zŒ */
	$"907E 726A 6C82 8E88 7C6E 6272 9AAC 946E"            /* �~rjl‚Žˆ|nbrš¬”n */
	$"5E66 6C76 8C8C 827C 7474 8896 8E7A 7064"            /* ^flvŒŒ‚|ttˆ–Žzpd */
	$"6082 9E8C 6C60 687C 949A 8C86 745E 647C"            /* `‚žŒl`h|”šŒ†t^d| */
	$"8A88 8480 7268 86A2 9A76 5E60 748C 9286"            /* Šˆ„€rh†¢šv^`tŒ’† */
	$"7C6E 606E 8E9C 8E88 8662 5270 8E90 8068"            /* |n`nŽœŽˆ†bRpŽ�€h */
	$"647C 969A 8A7A 645E 7086 8E86 827E 6A64"            /* d|–šŠzd^p†Ž†‚~jd */
	$"7A96 A698 765E 6886 8E7C 746C 647A 9A9C"            /* z–¦˜v^h†Ž|tldzšœ */
	$"8882 7666 666A 829E 9670 586A 8C94 8E86"            /* ˆ‚vffj‚ž–pXjŒ”Ž† */
	$"7466 728A 8C78 6E74 7674 7A90 A49C 7450"            /* tfrŠŒxntvtz�¤œtP */
	$"6084 8C8E 866A 6278 9292 847A 767C 7C72"            /* `„ŒŽ†jbx’’„zv||r */
	$"768A 8A70 5868 8CA2 A68C 6C5C 6882 8A82"            /* vŠŠpXhŒ¢¦Œl\h‚Š‚ */
	$"766E 7888 8076 8896 7C62 6E84 9698 7E60"            /* vnxˆ€vˆ–|bn„–˜~` */
	$"586A 8AA2 A284 6A78 8474 6C7C 8678 6870"            /* XjŠ¢¢„jx„tl|†xhp */
	$"889A 9884 6A5A 6C8A 9C9A 7856 6680 8080"            /* ˆš˜„jZlŠœšxVf€€€ */
	$"8E94 8272 7078 8890 7A62 5E72 8EA8 AA82"            /* Ž”‚rpxˆ�zb^rŽ¨ª‚ */
	$"6064 7A86 8480 847A 6866 728A 9C8E 746E"            /* `dz†„€„zhfrŠœŽtn */
	$"747A 929C 7650 587A 9296 9088 7C70 6872"            /* tz’œvPXz’–�ˆ|phr */
	$"8E94 8072 6A64 7290 A28E 6C66 7E90 8C86"            /* Ž”€rjdr�¢Žlf~�Œ† */
	$"7866 6668 7A98 9E8E 7E70 6668 869A 866A"            /* xffhz˜žŽ~pfh†š†j */
	$"626E 8696 8C7A 7676 7282 9490 7E66 5E62"            /* bn†–Œzvvr‚”�~f^b */
	$"6A84 A29E 826A 6A80 9086 706E 7270 7C96"            /* j„¢ž‚jj€�†pnrp|– */
	$"967E 7276 7674 8692 8E7A 5A58 7A90 9088"            /* –~rvvt†’ŽzZXz��ˆ */
	$"8278 7482 908C 7266 7276 7884 8C90 826A"            /* ‚xt‚�Œrfrvx„Œ�‚j */
	$"687C 9896 8272 6462 7892 9282 7E7E 808A"            /* h|˜–‚rdbx’’‚~~€Š */
	$"8078 7C7A 6660 7894 9884 7268 6A82 9A9A"            /* €x|zf`x”˜„rhj‚šš */
	$"826A 6874 7E7C 7884 8C80 7284 9C90 786A"            /* ‚jht~|x„Œ€r„œ�xj */
	$"585C 7E9A A28C 6E68 7C8E 867E 8282 746A"            /* X\~š¢Œnh|Ž†~‚‚tj */
	$"788A 8880 7668 6E88 A2A0 8060 5466 888E"            /* xŠˆ€vhnˆ¢ €`TfˆŽ */
	$"8084 8A7C 747E 888C 8A74 5E66 7A8C 9688"            /* €„Š|t~ˆŒŠt^fzŒ–ˆ */
	$"6A5A 749E A28C 7E78 6E64 6E84 9492 8270"            /* jZtž¢Œ~xndn„”’‚p */
	$"6C78 8C98 906E 4E68 9494 8276 726E 7280"            /* lxŒ˜�nNh””‚vrnr€ */
	$"949E 987C 645C 647C 9498 7C64 7492 9A8A"            /* ”ž˜|d\d|”˜|dt’šŠ */
	$"746C 6C6E 7E8A 9092 7C64 6674 88A0 A684"            /* tlln~Š�’|dftˆ ¦„ */
	$"5E5E 7284 8274 6E78 888C 8C96 8E70 6468"            /* ^^r„‚tnxˆŒŒ–Žpdh */
	$"7080 949C 8864 5E7A 9696 867A 767A 7672"            /* p€”œˆd^z––†zvzvr */
	$"8282 7072 8086 8A96 9A7E 605A 6E8C 9484"            /* ‚‚pr€†Š–š~`ZnŒ”„ */
	$"7274 7878 8290 887E 7878 7A76 7A82 786C"            /* rtxx‚�ˆ~xxzvz‚xl */
	$"7284 9CA6 8E6C 626A 727A 8A8A 7C74 7A80"            /* r„œ¦ŽlbjrzŠŠ|tz€ */
	$"8286 8684 8274 748E 9278 6060 7284 94A2"            /* ‚††„‚ttŽ’x``r„”¢ */
	$"9A7A 626A 7678 7A7C 8080 767C 8E96 826A"            /* šzbjvxz|€€v|Ž–‚j */
	$"6C78 7E8C 9882 6258 6882 9696 8C86 7C6E"            /* lx~Œ˜‚bXh‚––Œ†|n */
	$"6E7A 8480 706E 7A82 949C 8A6E 5E68 8298"            /* nz„€pnz‚”œŠn^h‚˜ */
	$"9278 686A 6C6E 849E 9A84 7A70 7080 8280"            /* ’xhjln„žš„zpp€‚€ */
	$"7260 668A A69C 7A6A 6E70 7488 9A8E 7868"            /* r`fŠ¦œzjnptˆšŽxh */
	$"626A 7E96 A08E 746E 7E94 8864 5E6C 7484"            /* bj~– Žtn~”ˆd^lt„ */
	$"989A 907E 6C60 687E 949E 8A6A 5C6C 8E96"            /* ˜š�~l`h~”žŠj\lŽ– */
	$"8278 7A86 8A88 8278 6E64 6274 8C9E A296"            /* ‚xz†Šˆ‚xndbtŒž¢– */
	$"7856 628C 9684 746E 767E 7E80 8280 7A7A"            /* xVbŒ–„tnv~~€‚€zz */
	$"8284 8486 8266 5064 92A8 9A80 7476 7880"            /* ‚„„†‚fPd’¨š€tvx€ */
	$"807A 7E7C 767E 7E7A 868C 7A6A 7A96 9E8E"            /* €z~|v~~z†Œzjz–žŽ */
	$"6C58 6078 8A8E 9090 847A 7A74 7276 7C7C"            /* lX`xŠŽ��„zztrv|| */
	$"7074 8A98 8C72 606C 8C9C 908C 8266 606E"            /* ptŠ˜Œr`lŒœ�Œ‚f`n */
	$"787E 8694 927E 787E 8A84 6656 6C8C 9A96"            /* x~†”’~x~Š„fVlŒš– */
	$"8E78 666A 7C8E 8A86 887A 6666 7084 9080"            /* Žxfj|ŽŠ†ˆzffp„�€ */
	$"6E78 8E94 8C7E 6858 6480 9496 8E80 7070"            /* nxŽ”Œ~hXd€”–Ž€pp */
	$"747A 9298 8268 6070 8486 827C 7476 8C9E"            /* tz’˜‚h`p„†‚|tvŒž */
	$"9880 665A 6872 7A94 A28E 6A60 7280 8A92"            /* ˜€fZhrz”¢Žj`r€Š’ */
	$"8470 6C72 848C 7C6A 7082 8C92 9C96 7C5A"            /* „plr„Œ|jp‚Œ’œ–|Z */
	$"5064 7A92 A092 7A6C 6E7E 8A86 706C 7C84"            /* Pdz’ ’zln~Š†pl|„ */
	$"8486 8476 6668 768C A49E 826C 5654 6E8E"            /* „†„vfhvŒ¤ž‚lVTnŽ */
	$"9684 7882 8A84 8080 7A6E 6C76 8492 8C7E"            /* –„x‚Š„€€znlv„’Œ~ */
	$"7062 6480 A6A6 7E68 6A6C 727A 8082 8280"            /* pbd€¦¦~hjlrz€‚‚€ */
	$"8288 887E 7A70 6466 7C9A 9878 6060 7286"            /* ‚ˆˆ~zpdf|š˜x``r† */
	$"9292 887C 746A 6C76 7A7C 8484 7C84 9890"            /* ’’ˆ|tjlvz|„„|„˜� */
	$"725C 5870 9296 8A80 786E 6A78 8688 8A8C"            /* r\Xp’–Š€xnjx†ˆŠŒ */
	$"846E 687A 8270 6066 88A4 A48C 7066 5E64"            /* „nhz‚p`fˆ¤¤Œpf^d */
	$"7E8E 8486 8C7E 6C6E 8490 8A74 6A7C 928E"            /* ~Ž„†Œ~ln„�Štj|’Ž */
	$"7A64 5C68 7E9A 9E8E 8076 6C64 6A80 8E8E"            /* zd\h~šžŽ€vldj€ŽŽ */
	$"7C68 708C 9882 706E 6E7E 928C 7A6A 646E"            /* |hpŒ˜‚pnn~’Œzjdn */
	$"7C8A 96A2 9C78 565C 7C8E 887C 7672 7C8C"            /* |Š–¢œxV\|Žˆ|vr|Œ */
	$"9280 6C6C 7A82 8888 8A86 684C 5E88 A0A2"            /* ’€llz‚ˆˆŠ†hL^ˆ ¢ */
	$"967C 6466 787E 786E 7080 8C90 8886 826C"            /* –|dfx~xnp€Œ�ˆ†‚l */
	$"5E68 86A0 A08A 6C58 607C 9296 8E80 7680"            /* ^h†  ŠlX`|’–Ž€v€ */
	$"8270 6E7A 746C 748E 9E9C 866A 5E68 788E"            /* ‚pnztltŽžœ†j^hxŽ */
	$"9A88 6A64 747C 7A84 908A 7A74 8084 7E76"            /* šˆjdt|z„�Šzt€„~v */
	$"6A68 7688 9CA4 8C66 6074 8080 8A8A 7E70"            /* jhvˆœ¤Œf`t€€ŠŠ~p */
	$"6C72 7C88 8880 8080 8088 8670 5A5C 7692"            /* lr|ˆˆ€€€€ˆ†pZ\v’ */
	$"9A96 8A7C 6E68 6C76 8688 7E80 8076 7C86"            /* š–Š|nhlv†ˆ~€€v|† */
	$"8470 6E86 989A 886E 6060 6476 929E 9084"            /* „pn†˜šˆn``dv’ž�„ */
	$"8278 6A6C 7E84 726E 8090 9288 7468 6E7A"            /* ‚xjl~„rn€�’ˆthnz */
	$"8896 947A 686A 6C6A 7E96 9886 7C7A 7E8C"            /* ˆ–”zhjlj~–˜†|z~Œ */
	$"826C 6A72 828E 968E 7668 707E 8488 908A"            /* ‚ljr‚Ž–Žvhp~„ˆ�Š */
	$"7662 586C 8E96 887E 8282 8086 8264 5A70"            /* vbXlŽ–ˆ~‚‚€†‚dZp */
	$"848C 8E8C 887A 645E 7A9C 9E8C 7A6C 686C"            /* „ŒŽŒˆzd^zœžŒzlhl */
	$"828A 7A7A 8894 9284 7A70 6860 607C 9EA6"            /* ‚Šzzˆ”’„zph``|ž¦ */
	$"9076 6860 7290 9082 7A76 7C80 7872 7680"            /* �vh`r��‚zv|€xrv€ */
	$"7E7A 849A 9A7E 6054 5C78 96A2 947C 7076"            /* ~z„šš~`T\x–¢”|pv */
	$"8282 7A7A 8A84 6A70 8686 7A72 7078 8C9E"            /* ‚‚zzŠ„jp††zrpxŒž */
	$"9A84 6250 647E 8A86 8A94 8470 707C 8482"            /* š„bPd~Š†Š”„pp|„‚ */
	$"7C78 747C 8888 7866 6478 9AA4 9082 7C6A"            /* |xt|ˆˆxfdxš¤�‚|j */
	$"5E66 768A 9892 8278 7C7E 7A78 6E64 7692"            /* ^fvŠ˜’‚x|~zxndv’ */
	$"9A84 706C 7074 7A8C 9C96 846E 646A 6E78"            /* š„plptzŒœ–„ndjnx */
	$"8A88 7A82 9898 7C68 6870 7882 8C92 8A76"            /* Šˆz‚˜˜|hhpx‚Œ’Šv */
	$"6A72 7A82 9098 866E 6876 7E74 6C74 7E8A"            /* jrz‚�˜†nhv~tlt~Š */
	$"9290 867C 6C62 6E82 888E 8E7E 6A66 788A"            /* ’�†|lbn‚ˆŽŽ~jfxŠ */
	$"908A 7A78 807A 7274 7670 7288 9C9C 9082"            /* �Šzx€zrtvprˆœœ�‚ */
	$"7460 5A72 8E9A 9078 6E76 7678 848A 7E76"            /* t`ZrŽš�xnvvx„Š~v */
	$"868C 7E72 706C 6670 88A0 AA92 7062 6066"            /* †Œ~rplfpˆ ª’pb`f */
	$"7A8A 8E80 767E 8680 7A7C 7C7C 7E84 8A8E"            /* zŠŽ€v~†€z|||~„ŠŽ */
	$"8064 5A68 8094 A49E 7E66 666C 767A 787E"            /* €dZh€”¤ž~fflvzx~ */
	$"8884 7C82 8E86 706A 7884 8A8E 886C 5662"            /* ˆ„|‚Ž†pjx„ŠŽˆlVb */
	$"7E96 9890 8A82 7464 687E 8278 7C84 8488"            /* ~–˜�Š‚tdh~‚x|„„ˆ */
	$"9084 6C62 6A84 9890 7C6E 6A68 6878 929E"            /* �„lbj„˜�|njhhx’ž */
	$"9688 7A70 7078 766E 6E7C 90A0 9A7C 646A"            /* –ˆzppxvnn|� š|dj */
	$"7672 7E92 9286 7466 6876 868E 9088 7C82"            /* vr~’’†tfhv†Ž�ˆ|‚ */
	$"8C80 6052 6A82 888E 9692 806E 686C 7686"            /* Œ€`Rj‚ˆŽ–’€nhlv† */
	$"8C88 7A6A 6E86 8A76 7286 908C 8A7C 6E66"            /* Œˆzjn†Švr†�ŒŠ|nf */
	$"666E 7C8E 9A98 8C78 646C 828E 8476 787E"            /* fn|Žš˜Œxdl‚Ž„vx~ */
	$"807C 7674 7882 8486 928A 746C 625A 6C92"            /* €|vtx‚„†’ŠtlbZl’ */
	$"A69A 8476 747A 7872 787E 7E7C 848A 7C72"            /* ¦š„vtzxrx~~|„Š|r */
	$"7676 7480 9AA4 8A68 5A5C 6E82 8A90 928A"            /* vvt€š¤ŠhZ\n‚Š�’Š */
	$"7C7C 7E6E 6A76 7874 7E90 9486 7264 6882"            /* ||~njvxt~�”†rdh‚ */
	$"9898 9080 6E62 6876 7E84 8A8C 847E 8080"            /* ˜˜�€nbhv~„ŠŒ„~€€ */
	$"7A72 6266 8698 9288 7E6E 6678 8C90 8A82"            /* zrbf†˜’ˆ~nfxŒ�Š‚ */
	$"786E 6668 788C 8C7C 808E 8E84 786E 6462"            /* xnfhxŒŒ|€ŽŽ„xndb */
	$"7C96 988C 8276 6E70 7884 9690 7A6E 7072"            /* |–˜Œ‚vnpx„–�znpr */
	$"747A 807C 8094 9892 8068 5C66 727E 8A96"            /* tz€|€”˜’€h\fr~Š– */
	$"947C 6A6A 747C 8488 827A 7C7C 7E7A 6C6A"            /* ”|jjt|„ˆ‚z||~zlj */
	$"8296 948C 9084 645A 6272 8494 9488 7C72"            /* ‚–”Œ�„dZbr„””ˆ|r */
	$"7886 8270 7082 8C80 787A 766C 7482 8A92"            /* x†‚pp‚Œ€xzvlt‚Š’ */
	$"9286 6E60 606C 8490 827A 868C 8078 7872"            /* ’†n``l„�‚z†Œ€xxr */
	$"7880 8082 8680 726A 6C74 849E A286 6A68"            /* x€€‚†€rjlt„ž¢†jh */
	$"7070 7278 828C 8E8A 8682 786A 6C78 7680"            /* pprx‚ŒŽŠ†‚xjlxv€ */
	$"9898 745C 6476 8690 8E8A 887E 706E 6E70"            /* ˜˜t\dv†�ŽŠˆ~pnnp */
	$"7482 8C86 8A98 9272 5A5E 7488 948C 7C76"            /* t‚Œ†Š˜’rZ^tˆ”Œ|v */
	$"7472 7484 8A88 8C86 726E 7878 706A 7084"            /* trt„ŠˆŒ†rnxxpjp„ */
	$"9EA2 8870 6C6C 6C78 8A8E 8684 7E72 6E7E"            /* ž¢ˆplllxŠŽ†„~rn~ */
	$"9090 8076 7886 866E 626E 787E 92A0 907C"            /* ��€vx††nbnx~’ �| */
	$"786E 6268 7C90 9684 706E 8084 7A7A 7E80"            /* xnbh|�–„pn€„zz~€ */
	$"848A 8674 6668 6E74 8698 A09A 8868 586C"            /* „Š†tfhnt†˜ šˆhXl */
	$"7E7E 8084 8280 8682 7874 7678 868E 8682"            /* ~~€„‚€†‚xtvx†Ž†‚ */
	$"8274 5C5E 7E96 9A92 887C 6E6E 7474 7476"            /* ‚t\^~–š’ˆ|nntttv */
	$"7E8C 8E82 7A80 7A6A 6E8A 948C 8272 6264"            /* ~ŒŽ‚z€zjnŠ”Œ‚rbd */
	$"788A 9290 847E 827A 6C6A 747A 7880 8C90"            /* xŠ’�„~‚zljtzx€Œ� */
	$"8A7E 7068 7086 9090 8870 626C 7A7A 7C8C"            /* Š~php†��ˆpblzz|Œ */
	$"948A 847E 7674 6E66 7082 8E94 9A8C 6A5C"            /* ”Š„~vtnfp‚Ž”šŒj\ */
	$"6E82 8884 8884 766E 6E74 7A80 848A 8C88"            /* n‚ˆ„ˆ„vnntz€„ŠŒˆ */
	$"8082 785A 5674 9298 968E 7C70 7070 7480"            /* €‚xZVt’˜–Ž|pppt€ */
	$"8484 827E 7474 8284 7876 8696 9686 725E"            /* „„‚~tt‚„xv†––†r^ */
	$"6070 7C86 9294 887C 786E 6C80 8A80 7478"            /* `p|†’”ˆ|xnl€Š€tx */
	$"8288 8270 6A7C 888A 908E 7A66 666A 6C74"            /* ‚ˆ‚pj|ˆŠ�Žzffjlt */
	$"90A2 947C 7078 7E7C 7472 7E88 8888 8272"            /* �¢”|px~|tr~ˆˆˆ‚r */
	$"6876 8480 8696 927E 6658 627C 908C 888C"            /* hv„€†–’~fXb|�ŒˆŒ */
	$"8882 7E74 6868 7886 8684 8684 7C6E 6470"            /* ˆ‚~thhx††„†„|ndp */
	$"8EA0 907A 7470 6A74 7E7C 7C8C 928E 8276"            /* Ž �ztpjt~||Œ’Ž‚v */
	$"7074 6E66 7494 9C88 7670 6C76 8692 8A7C"            /* ptnft”œˆvplv†’Š| */
	$"7C7E 7870 6C76 868A 8482 928E 7668 6466"            /* |~xplv†Š„‚’Žvhdf */
	$"7892 9A8A 7C76 747A 807C 808C 8A7A 7074"            /* x’šŠ|vtz€|€ŒŠzpt */
	$"7874 7276 8090 9A94 806A 6060 768A 8886"            /* xtrv€�š”€j``vŠˆ† */
	$"8E8C 746A 767E 7E80 8082 8482 7C74 6C66"            /* ŽŒtjv~~€€‚„‚|tlf */
	$"7494 A294 847E 7464 6476 848A 8C88 827C"            /* t”¢”„~tddv„ŠŒˆ‚| */
	$"7A7A 7876 7276 8C92 8070 706E 6E80 8E92"            /* zzxvrvŒ’€ppnn€Ž’ */
	$"928A 7468 686E 7682 8A82 7E88 8A80 726E"            /* ’Šthhnv‚Š‚~ˆŠ€rn */
	$"747E 888A 8682 7868 6A78 8288 9696 7C66"            /* t~ˆŠ†‚xhjx‚ˆ––|f */
	$"6C76 7474 7882 8C90 8880 7A6C 6876 8484"            /* lvttx‚Œ�ˆ€zlhv„„ */
	$"868E 886E 606C 7E8A 8E8C 867E 7A74 6C6C"            /* †Žˆn`l~ŠŽŒ†~ztll */
	$"707A 8A96 9084 867A 6864 6E7E 9094 8470"            /* pzŠ–�„†zhdn~�”„p */
	$"7274 747A 8286 848A 8A7E 6C6A 7074 7880"            /* rttz‚†„ŠŠ~ljptx€ */
	$"8E9C 967C 6666 7276 848E 8478 8086 7A70"            /* Žœ–|ffrv„Ž„x€†zp */
	$"7882 8A88 8080 867C 6862 6E7E 8C9A 9680"            /* x‚Šˆ€€†|hbn~Œš–€ */
	$"6C6E 7474 747C 868A 867C 767C 827A 747E"            /* lnttt|†Š†|v|‚zt~ */
	$"868C 9082 685C 687A 8C94 9088 8A80 6A62"            /* †Œ�‚h\hzŒ”�ˆŠ€jb */
	$"7282 8280 8486 8886 7C6E 6670 8696 9280"            /* r‚‚€„†ˆ†|nfp†–’€ */
	$"6E70 7268 6C88 9A94 8A82 7670 7676 7270"            /* nprhlˆš”Š‚vpvvrp */
	$"7A8A 9A92 7A6C 7276 767E 8C92 867A 6E68"            /* zŠš’zlrvv~Œ’†znh */
	$"7080 8C8A 8684 8282 806C 606E 7E86 8A8C"            /* p€ŒŠ†„‚‚€l`n~†ŠŒ */
	$"8A80 766C 6A7C 8C8E 8A7E 6E68 7884 7C78"            /* Š€vlj|ŒŽŠ~nhx„|x */
	$"8490 8E82 7874 6E6C 707A 8A94 928A 7E68"            /* „�Ž‚xtnlpzŠ”’Š~h */
	$"627A 8C86 8084 827A 7470 7078 8286 8C8E"            /* bzŒ†€„‚ztppx‚†ŒŽ */
	$"867C 746A 626C 8698 988E 8078 7272 7476"            /* †|tjbl†˜˜Ž€xrrtv */
	$"808A 8682 807A 7074 7C7C 808E 968C 7C68"            /* €Š†‚€zpt||€Ž–Œ|h */
	$"606E 7C82 8892 8C7C 7A7A 726A 7484 847E"            /* `n|‚ˆ’Œ|zzrjt„„~ */
	$"8488 8276 6C72 8292 908A 8474 666C 7A7C"            /* „ˆ‚vlr‚’�Š„tflz| */
	$"7C8C 968A 7E78 7476 7672 7888 928C 847A"            /* |Œ–Š~xtvvrxˆ’Œ„z */
	$"6C6A 7888 8C8A 867E 726C 6A6C 7E8C 8C84"            /* ljxˆŒŠ†~rljl~ŒŒ„ */
	$"888C 7E70 6E68 6A7E 9296 8C7E 7272 7470"            /* ˆŒ~pnhj~’–Œ~rrtp */
	$"7890 9686 7472 7270 7A80 7E80 8A96 927C"            /* x�–†trrpz€~€Š–’| */
	$"6864 6E78 7C82 9294 806E 6C70 788A 8E80"            /* hdnx|‚’”€nlpxŠŽ€ */
	$"787A 7E7E 7A70 7082 928E 8684 7E72 6664"            /* xz~~zpp‚’Ž†„~rfd */
	$"7084 9696 8676 7074 7C82 7C74 808E 8270"            /* p„––†vpt|‚|t€Ž‚p */
	$"7276 7678 7E84 8E92 8674 665E 6886 968A"            /* rvvx~„Ž’†tf^h†–Š */
	$"7E86 8A7C 6E70 7A7E 8284 8280 807C 726C"            /* ~†Š|npz~‚„‚€€|rl */
	$"6E7E 969E 8872 7072 6E6E 7A84 8C94 8A7A"            /* n~–žˆrprnnz„Œ”Šz */
	$"7878 7474 7676 7E8E 927E 6868 7682 8888"            /* xxttvv~Ž’~hhv‚ˆˆ */
	$"8888 8676 686E 767A 848E 8A80 888A 7664"            /* ˆˆ†vhnvz„ŽŠ€ˆŠvd */
	$"667A 8A90 867C 7C7A 7074 8284 868E 8A76"            /* fzŠ�†||zpt‚„†ŽŠv */
	$"6870 7A76 707A 8896 9484 726A 6C70 7A88"            /* hpzvpzˆ–”„rjlpzˆ */
	$"8C86 8680 706A 7A86 8888 807A 8082 7264"            /* Œ††€pjz†ˆˆ€z€‚rd */
	$"6C78 8290 9A90 8074 6E6A 6A78 8890 8E7A"            /* lx‚�š�€tnjjxˆ�Žz */
	$"7078 827C 747E 847E 848A 7C6A 6870 7A84"            /* px‚|t~„~„Š|jhpz„ */
	$"9096 9888 6A5E 6A7A 7E84 8A82 7A80 827C"            /* �–˜ˆj^jz~„Š‚z€‚| */
	$"7274 7C84 8684 807E 7668 6478 8E96 968E"            /* rt|„†„€~vhdxŽ––Ž */
	$"7666 6C72 767C 7E80 888C 8276 7C7E 7474"            /* vflrv|~€ˆŒ‚v|~tt */
	$"808C 8E86 7868 646E 8496 968A 7C7A 7C6E"            /* €ŒŽ†xhdn„––Š|z|n */
	$"6474 8480 8088 8A84 807A 6C6A 7686 948E"            /* dt„€€ˆŠ„€zljv†”Ž */
	$"7866 6C78 767A 8A92 8E86 7C72 6C72 7878"            /* xflxvzŠ’Ž†|rlrxx */
	$"7C86 9094 9078 646A 7E82 8286 847E 7872"            /* |†�”�xdj~‚‚†„~xr */
	$"6C76 868A 888A 8278 7E7E 6A5E 708A 9490"            /* lv†ŠˆŠ‚x~~j^pŠ”� */
	$"867E 7872 7070 7C86 8684 8074 6C7C 8A80"            /* †~xrpp|††„€tl|Š€ */
	$"7682 928E 8272 6468 747E 848E 8E86 827A"            /* v‚’Ž‚rdht~„ŽŽ†‚z */
	$"686A 7C8A 8478 7C82 8480 746C 788A 8E8A"            /* hj|Š„x|‚„€tlxŠŽŠ */
	$"867C 6E6A 6E70 768C 9C94 8278 727A 8274"            /* †|njnpvŒœ”‚xrz‚t */
	$"6E7C 8A88 8482 786C 727E 8484 8C92 826C"            /* n|Šˆ„‚xlr~„„Œ’‚l */
	$"5C62 7C8E 8C86 8888 8078 7A70 6674 8684"            /* \b|ŽŒ†ˆˆ€xzpft†„ */
	$"8288 867C 7268 708A 9A90 8076 6E6C 7482"            /* ‚ˆ†|rhpŠš�€vnlt‚ */
	$"8282 8A8C 8680 7872 7274 7072 8898 8E78"            /* ‚‚ŠŒ†€xrrtprˆ˜Žx */
	$"706E 7080 908C 867E 7470 7270 7486 9086"            /* pnp€�Œ†~tprpt†�† */
	$"7E88 8C7C 6C6A 6C74 8894 9286 7670 767C"            /* ~ˆŒ|ljltˆ”’†vpv| */
	$"7E82 8C90 7C6C 7278 7478 8080 8690 9084"            /* ~‚Œ�|lrxtx€€†��„ */
	$"7666 6270 8088 888E 8C7A 6E70 747C 8484"            /* vfbp€ˆˆŽŒznpt|„„ */
	$"807C 7C7A 7876 7474 8498 9482 7C76 6C68"            /* €||zxvtt„˜”‚|vlh */
	$"707C 868C 8A82 7C78 727A 827A 7482 8E82"            /* p|†ŒŠ‚|xrz‚zt‚Ž‚ */
	$"7472 7478 8088 8E8C 847C 706C 6C70 8290"            /* trtx€ˆŽŒ„|pllp‚� */
	$"867C 848A 8074 7474 7C86 8A84 7C76 7070"            /* †|„Š€ttt|†Š„|vpp */
	$"7C80 8492 927E 6C68 7076 787A 7C88 928E"            /* |€„’’~lhpvxz|ˆ’Ž */
	$"8076 726C 7282 8480 8688 7866 6A7E 8C92"            /* €vrlr‚„€†ˆxfj~Œ’ */
	$"8A7C 7E82 7870 7272 7286 968E 8484 8072"            /* Š|~‚xprrr†–Ž„„€r */
	$"646A 7E8C 9082 7070 767A 8086 8480 8688"            /* dj~Œ�‚ppvz€†„€†ˆ */
	$"7C6E 7276 7676 7E88 9498 8068 6670 7A84"            /* |nrvvv~ˆ”˜€hfpz„ */
	$"8A84 7C7E 7E7A 7880 868A 887E 7680 8472"            /* Š„|~~zx€†Šˆ~v€„r */
	$"646C 7E8C 9496 8870 6C72 7278 8086 8C88"            /* dl~Œ”–ˆplrrx€†Œˆ */
	$"746E 7E86 7E78 7E82 8688 8672 626A 7684"            /* tn~†~x~‚†ˆ†rbjv„ */
	$"8E90 908C 7E6C 6472 8286 8280 807E 8482"            /* Ž��Œ~ldr‚†‚€€~„‚ */
	$"7470 787E 888C 8278 7474 6E6E 8296 968C"            /* tpx~ˆŒ‚xttnn‚––Œ */
	$"7E74 7476 7676 7A7C 808A 8A7E 7274 807C"            /* ~ttvvvz|€ŠŠ~rt€| */
	$"7886 8C84 7870 6C72 7E88 8E8C 827A 7E7C"            /* x†Œ„xplr~ˆŽŒ‚z~| */
	$"7068 7482 8286 8A84 7E78 7274 7E86 8C88"            /* pht‚‚†Š„~xrt~†Œˆ */
	$"8072 6C74 8082 8086 8C88 867C 706E 7274"            /* €rlt€‚€†Œˆ†|pnrt */
	$"7C88 928C 8682 7268 7686 8882 7E7A 7A7A"            /* |ˆ’Œ†‚rhv†ˆ‚~zzz */
	$"7474 7A80 848A 8C88 7872 726A 687E 9296"            /* ttz€„ŠŒˆxrrjh~’– */
	$"8C80 7674 787C 7E80 807E 7E82 7A72 7C82"            /* Œ€vtx|~€€~~‚zr|‚ */
	$"7C80 888E 8C7E 6E64 687A 888C 8A84 7C78"            /* |€ˆŽŒ~ndhzˆŒŠ„|x */
	$"7C78 747C 8282 7C7C 8084 8076 6C78 8E90"            /* |xt|‚‚||€„€vlxŽ� */
	$"8C84 7264 6A76 7E80 888E 8A7E 7074 7C82"            /* Œ„rdjv~€ˆŽŠ~pt|‚ */
	$"7A72 7C88 8886 7E72 6A74 8A8E 8684 8278"            /* zr|ˆˆ†~rjtŠŽ†„‚x */
	$"6C66 6A80 928C 8282 827E 807A 6E6C 7A8A"            /* lfj€’Œ‚‚‚~€znlzŠ */
	$"8E86 8078 7676 7476 8896 8C78 6E6E 747C"            /* Ž†€xvvtvˆ–Œxnnt| */
	$"8282 7E86 8E88 8074 6872 7C78 7886 9286"            /* ‚‚~†Žˆ€thr|xx†’† */
	$"726E 727C 868C 867A 767A 7C7A 7074 8490"            /* rnr|†Œ†zvz|zpt„� */
	$"8A80 8282 786C 6E74 7C8A 9284 7674 747E"            /* Š€‚‚xlnt|Š’„vtt~ */
	$"847C 7A84 887E 7472 7676 7C80 828A 8E86"            /* „|z„ˆ~trvv|€‚ŠŽ† */
	$"766A 666E 808C 8880 8086 8072 747A 7E82"            /* vjfn€Œˆ€€†€rtz~‚ */
	$"807E 8080 7870 7274 7A90 9C8C 7670 7474"            /* €~€€xprtz�œŒvptt */
	$"7278 8086 8882 807E 7A78 7878 787A 8890"            /* rx€†ˆ‚€~zxxxxzˆ� */
	$"806C 6A74 7C88 8E88 847E 7470 747A 7C80"            /* €ljt|ˆŽˆ„~tptz|€ */
	$"8680 7C84 887E 726C 7280 8C8A 807A 7470"            /* †€|„ˆ~rlr€ŒŠ€ztp */
	$"7480 8C8A 8486 7A6A 707A 7E7A 787C 8A92"            /* t€ŒŠ„†zjpz~zx|Š’ */
	$"887A 7470 6C76 8A90 8480 7E72 6C74 848E"            /* ˆztplvŠ�„€~rlt„Ž */
	$"8A80 7A78 7C78 7272 7478 8496 9280 7A74"            /* Š€zx|xrrtx„–’€zt */
	$"6E6E 7682 8C8C 8070 6E7A 7E7E 8280 7C82"            /* nnv‚ŒŒ€pnz~~‚€|‚ */
	$"8580 746E 727A 8185 898F 8B7A 6668 7A80"            /* …€tnrz�…‰�‹zfhz€ */
	$"8385 8078 7881 817A 787C 8387 8078 7C80"            /* ƒ…€xx��zx|ƒ‡€x|€ */
	$"7468 7685 8B91 897A 6C6A 767E 7E7C 7E83"            /* thv…‹‘‰zljv~~|~ƒ */
	$"857E 7478 807E 7A80 8587 837C 6E66 7083"            /* …~tx€~z€…‡ƒ|nfpƒ */
	$"8D8F 897A 7C7E 746C 7480 8583 8383 8380"            /* ��‰z|~tlt€…ƒƒƒƒ€ */
	$"7870 6E78 858D 8D7C 6A6E 7A7C 7A80 8D8D"            /* xpnx…��|jnz|z€�� */
	$"837C 7874 7878 7478 8085 8F8F 7A66 6C7C"            /* ƒ|xtxxtx€…��zfl| */
	$"8381 8181 7C76 7474 7A85 8785 807C 7E81"            /* ƒ���|vttz…‡…€|~� */
	$"8172 666E 818D 8985 7E74 7676 7680 8987"            /* �rfn��‰…~tvvv€‰‡ */
	$"7E78 7472 7E89 8378 7A85 8B83 766C 6C74"            /* ~xtr~‰ƒxz…‹ƒvllt */
	$"7881 8D8F 877C 7470 6E7C 8D89 7874 7C80"            /* x���‡|tpn|�‰xt|€ */
	$"7E78 7278 8183 8589 8176 6C6E 6E72 8797"            /* ~xrx�ƒ…‰�vlnnr‡— */
	$"9183 7674 7A7E 7C78 7A80 8181 807E 7874"            /* ‘ƒvtz~|xz€��€~xt */
	$"7C7E 7E87 8B83 766A 6676 8589 8383 837C"            /* |~~‡‹ƒvjfv…‰ƒƒƒ| */
	$"767A 7A74 767C 8080 8180 817C 7074 818D"            /* vzztv|€€�€�|pt�� */
	$"8B7C 7874 6C72 8085 8181 8583 7E78 7678"            /* ‹|xtlr€…��…ƒ~xvx */
	$"7878 7881 8D85 7C78 7472 808B 8B83 7C76"            /* xxx��…|xtr€‹‹ƒ|v */
	$"7474 7478 8087 8781 8185 7E74 706E 7481"            /* tttx€‡‡��…~tpnt� */
	$"8B8D 8378 7272 7E81 7C80 8780 7476 7878"            /* ‹�ƒxrr~�|€‡€tvxx */
	$"7A7C 8083 878B 897A 6B65 7083 8780 8185"            /* z|€ƒ‡‹‰zkepƒ‡€�… */
	$"7E76 787E 7E80 817E 767A 8080 7C74 7180"            /* ~vx~~€�~vz€€|tq€ */
	$"9490 837C 7471 7278 7E81 8785 7C74 767E"            /* ”�ƒ|tqrx~�‡…|tv~ */
	$"8183 7C72 7A87 877C 6F71 7880 8789 8985"            /* �ƒ|rz‡‡|oqx€‡‰‰… */
	$"7C6D 6B71 7685 9085 767A 8585 7C72 747C"            /* |mkqv…�…vz……|rt| */
	$"8185 8380 7C72 7176 7A83 9094 836B 6774"            /* �…ƒ€|rqvzƒ�”ƒkgt */
	$"7C7C 7C7C 8089 8B81 7C78 7274 7A7C 8087"            /* ||||€‰‹�|xrtz|€‡ */
	$"897C 6B6B 7887 8F89 7C7A 7E7A 7476 787C"            /* ‰|kkx‡�‰|z~ztvx| */
	$"8085 8581 8183 7C6D 6D78 878E 8374 737A"            /* €……��ƒ|mmx‡Žƒtsz */
	$"7C7E 8385 8180 807A 7173 7C7C 7A7A 818C"            /* |~ƒ…�€€zqs||zz�Œ */
	$"8E80 716D 747A 8185 837C 787C 7A74 7E85"            /* Ž€qmtz�…ƒ|x|zt~… */
	$"8783 7E7A 7E7E 766B 6D7C 878C 8E85 7873"            /* ‡ƒ~z~~vkm|‡ŒŽ…xs */
	$"7374 7A80 8185 837A 747A 8080 7878 8385"            /* stz€�…ƒztz€€xxƒ… */
	$"8581 786F 6D74 8189 8B85 8380 746D 7481"            /* …�xomt�‰‹…ƒ€tmt� */
	$"807A 7E7E 7E81 817C 7674 7A83 8781 7875"            /* €z~~~��|vtzƒ‡�xu */
	$"7575 7681 8A8A 837E 7873 787C 7C7A 7A7C"            /* uuv�ŠŠƒ~xsx||zz| */
	$"8087 8578 7578 7E81 8587 817A 736D 757E"            /* €‡…xux~�…‡�zsmu~ */
	$"878A 8980 7876 7E7E 7171 7A81 8385 8580"            /* ‡Š‰€xv~~qqz�ƒ……€ */
	$"7675 757A 8387 8983 766A 6D80 8380 8081"            /* vuuzƒ‡‰ƒvjm€ƒ€€� */
	$"8383 807A 7571 7578 8087 8989 8378 6C71"            /* ƒƒ€zuqux€‡‰‰ƒxlq */
	$"8189 857E 7878 7A7C 7A78 8083 8185 857E"            /* �‰…~xxz|zx€ƒ�……~ */
	$"7C7A 756D 7585 908C 7E73 757A 7E7E 7E80"            /* |zumu…�Œ~suz~~~€ */
	$"7E7C 7E7A 767A 8181 7C7C 878A 8175 6A6E"            /* ~|~zvz��||‡Š�ujn */
	$"7C85 8787 837A 787C 7875 7C83 837C 7A7E"            /* |…‡‡ƒzx|xu|ƒƒ|z~ */
	$"8181 7871 7887 8E8A 8177 6E6F 777C 8083"            /* ��xqx‡ŽŠ�wnow|€ƒ */
	$"8A88 8078 777A 817C 7378 858A 837C 756F"            /* Šˆ€xwz�|sx…Šƒ|uo */
	$"7580 8585 8180 7C77 6F6F 7E88 857C 7C83"            /* u€……�€|woo~ˆ…||ƒ */
	$"8580 7A75 6F77 8388 8580 7C78 7A78 7885"            /* …€zuowƒˆ…€|xzxx… */
	$"8E85 7873 777C 8081 7E7A 8085 8580 7973"            /* Ž…xsw|€�~z€……€ys */
	$"7579 7C7E 8388 8175 7077 8087 8881 7A79"            /* uy|~ƒˆ�upw€‡ˆ�zy */
	$"797A 7C7A 777A 8587 8180 807A 706E 7781"            /* yz|zwz…‡�€€zpnw� */
	$"8A8A 837C 7573 7A81 817C 7E83 8179 797C"            /* ŠŠƒ|usz��|~ƒ�yy| */
	$"7975 7A81 878A 877E 756E 6E7A 8788 8180"            /* yuz�‡Š‡~unnz‡ˆ�€ */
	$"817E 7A7C 7C7C 7C7C 7C80 817E 7977 7579"            /* �~z||||||€�~ywuy */
	$"818C 8C80 7573 757A 7E80 8181 807C 7E80"            /* �ŒŒ€usuz~€��€|~€ */
	$"7C79 7C7C 777C 8785 7972 737C 8587 8783"            /* |y||w|‡…yrs|…‡‡ƒ */
	$"7C75 7379 7C7C 8085 837C 7C81 8077 7375"            /* |usy||€…ƒ||�€wsu */
	$"7E86 8883 7A75 7375 8085 8383 837E 7372"            /* ~†ˆƒzusu€…ƒƒƒ~sr */
	$"777A 7C7A 7A81 8A8A 8075 7273 7983 8683"            /* wz|zz�ŠŠ€ursyƒ†ƒ */
	$"807E 7A75 757E 8586 8179 7A81 8179 7577"            /* €~zuu~…†�yz��yuw */
	$"7980 8C8A 817A 7977 7575 7E86 887E 7375"            /* y€ŒŠ�zywuu~†ˆ~su */
	$"7E81 817E 7C79 7E85 8379 7379 7C80 8385"            /* ~��~|y~…ƒysy|€ƒ… */
	$"8686 7A6D 6E7A 8385 837C 777A 8181 7E7A"            /* ††zmnzƒ…ƒ|wz��~z */
	$"7C80 8381 7C7C 7E79 6E72 818D 8C85 7A70"            /* |€ƒ�||~ynr��Œ…zp */
	$"7279 7E80 7E7E 8185 8179 7A81 7C75 7981"            /* ry~€~~�…�yz�|uy� */
	$"8886 8074 6D72 7C88 8A83 7E7C 7E7A 7477"            /* ˆ†€tmr|ˆŠƒ~|~ztw */
	$"7E80 7C7C 8183 8580 7770 7580 8686 8075"            /* ~€||�ƒ…€wpu€††€u */
	$"747A 7E7C 8186 8681 7A79 7C80 7E79 797C"            /* tz~|�††�zy|€~yy| */
	$"8186 8680 7472 7C83 8180 817E 7974 797E"            /* �††€tr|ƒ�€�~yty~ */
	$"8385 8180 7E7A 7C80 796F 7481 8686 8580"            /* ƒ…�€~z|€yot�††…€ */
	$"7A77 7579 8084 8480 7C77 767C 8181 7C7C"            /* zwuy€„„€|wv|��|| */
	$"8386 837C 7672 767C 8184 8986 7E7B 7776"            /* ƒ†ƒ|vrv|�„‰†~{wv */
	$"7B81 837E 797C 8081 7E77 777B 8083 8483"            /* {�ƒ~y|€�~ww{€ƒ„ƒ */
	$"7B72 7677 7B80 888B 8177 777B 8080 7B79"            /* {rvw{€ˆ‹�ww{€€{y */
	$"7B7C 8083 8179 777C 8080 8183 8179 7271"            /* {|€ƒ�yw|€€�ƒ�yrq */
	$"7984 8884 807B 797B 7E7E 7977 7C80 8080"            /* y„ˆ„€{y{~~yw|€€€ */
	$"8180 7C7B 767C 898B 8379 7271 7680 8481"            /* �€|{v|‰‹ƒyrqv€„� */
	$"8080 8181 7C77 797B 7976 7E86 8782 7974"            /* €€��|wy{yv~†‡‚yt */
	$"7377 8588 8079 7779 7B79 797C 8282 7E7E"            /* sw…ˆ€ywy{yy|‚‚~~ */
	$"8280 7C77 7371 7C87 8882 7B76 7B7E 807E"            /* ‚€|wsq|‡ˆ‚{v{~€~ */
	$"7E80 7E79 767B 7E80 7E7C 7B80 8785 7E74"            /* ~€~yv{~€~|{€‡…~t */
	$"6F76 8083 807C 8080 7977 7B80 8280 7C79"            /* ov€ƒ€|€€yw{€‚€|y */
	$"797C 8080 7976 7E87 8A80 7979 7774 777E"            /* y|€€yv~‡Š€yywtw~ */
	$"8283 8380 7977 7C80 807C 777C 8383 7B76"            /* ‚ƒƒ€yw|€€|w|ƒƒ{v */
	$"7778 7E80 8385 8380 7871 7379 8083 827C"            /* wx~€ƒ…ƒ€xqsy€ƒ‚| */
	$"7C82 837E 7676 7980 8080 807E 7B76 767C"            /* |‚ƒ~vvy€€€€~{vv| */
	$"8085 8880 7671 7980 807C 7980 8282 8080"            /* €…ˆ€vqy€€|y€‚‚€€ */
	$"7E79 7679 7E80 8283 7E74 727C 8586 827E"            /* ~yvy~€‚ƒ~tr|…†‚~ */
	$"7979 7B7B 7B7C 7C7C 8082 8080 8079 7474"            /* yy{{{|||€‚€€€ytt */
	$"7B82 8682 7975 787C 8083 8380 7C7C 7C7B"            /* {‚†‚yux|€ƒƒ€|||{ */
	$"7979 7C7B 7B80 8589 8376 7275 7980 8586"            /* yy|{{€…‰ƒvruy€…† */
	$"8079 7B7C 7E7E 8082 807C 7B7E 807C 7776"            /* €y{|~~€‚€|{~€|wv */
	$"787E 8588 867C 7476 797B 7E80 8080 7E7B"            /* x~…ˆ†|tvy{~€€€~{ */
	$"7C80 807C 7B7B 7C80 8280 7874 777E 8586"            /* |€€|{{|€‚€xtw~…† */
	$"8280 7E7B 7779 7E80 807C 7B7C 7E80 827C"            /* ‚€~{wy~€€|{|~€‚| */
	$"797B 8083 8279 7779 7B79 7E85 8682 7E79"            /* y{€ƒ‚ywy{y~…†‚~y */
	$"7777 7C80 7E7B 7980 8582 7B77 797E 8080"            /* ww|€~{y€…‚{wy~€€ */
	$"8280 7C79 7776 7983 8685 8079 7B7E 7E79"            /* ‚€|ywvyƒ†…€y{~~y */
	$"7379 8082 8582 807E 7B79 797E 8283 807B"            /* sy€‚…‚€~{yy~‚ƒ€{ */
	$"7477 7E85 807A 7E82 8280 7C7A 7A7A 7A7C"            /* tw~…€z~‚‚€|zzzz| */
	$"8285 8382 7B74 7680 8580 7A79 7A7C 807E"            /* ‚…ƒ‚{tv€…€zyz|€~ */
	$"7E80 8080 8080 807E 7B77 7479 8389 857C"            /* ~€€€€€€~{wtyƒ‰…| */
	$"7977 7C80 807E 7E7E 7B7A 7E7E 7C80 807B"            /* yw|€€~~~{z~~|€€{ */
	$"7C83 8582 7970 727B 8284 8382 807A 7A7C"            /* |ƒ…‚ypr{‚„ƒ‚€zz| */
	$"7B7C 807E 7B79 8083 827B 7777 8085 8380"            /* {|€~{y€ƒ‚{ww€…ƒ€ */
	$"7C77 7479 7C7E 8284 827E 7B7D 8080 7D78"            /* |wty|~‚„‚~{}€€}x */
	$"787E 8383 807E 7B7B 7D80 8280 807C 7877"            /* x~ƒƒ€~{{}€‚€€|xw */
	$"7B7E 8384 7E7B 8080 807E 7C79 797D 8082"            /* {~ƒ„~{€€€~|yy}€‚ */
	$"807D 7C7C 7D7E 8085 837B 7779 7C7E 8080"            /* €}||}~€…ƒ{wy|~€€ */
	$"807D 8082 807C 7978 7B7D 7E80 8480 7C79"            /* €}€‚€|yx{}~€„€|y */
	$"7B7D 8083 827D 7B7C 7D7E 7E7B 7C80 8383"            /* {}€ƒ‚}{|}~~{|€ƒƒ */
	$"8280 7D79 7779 7D80 8483 7E7B 7C7D 8082"            /* ‚€}ywy}€„ƒ~{|}€‚ */
	$"7C79 7D80 7E7C 7D7C 7B7D 8082 8383 807B"            /* |y}€~|}|{}€‚ƒƒ€{ */
	$"7977 7B83 837E 7B7D 8080 7E80 7E7C 7D7E"            /* yw{ƒƒ~{}€€~€~|}~ */
	$"7E7E 807E 7C7B 7C80 8786 7E77 777B 7E80"            /* ~~€~|{|€‡†~ww{~€ */
	$"807D 7E80 7E7E 7E7E 7D7C 7B7B 7D82 827D"            /* €}~€~~~~}|{{}‚‚} */
	$"7577 7D82 8582 7E7D 7C7A 7A7C 7E7E 8080"            /* uw}‚…‚~}|zz|~~€€ */
	$"7D7D 8285 7E77 777B 8183 817D 7B7A 7B7E"            /* }}‚…~ww{�ƒ�}{z{~ */
	$"8081 8181 8079 787E 8180 7A79 7D82 8582"            /* €���€yx~�€zy}‚…‚ */
	$"7D7A 797B 7E80 807E 807D 797B 8083 8380"            /* }zy{~€€~€}y{€ƒƒ€ */
	$"7979 7D80 807B 7A7C 7E80 8280 7E7D 7C7A"            /* yy}€€{z|~€‚€~}|z */
	$"7A7D 8182 8079 777E 8381 8080 7E7D 8080"            /* z}�‚€yw~ƒ�€€~}€€ */
	$"7C7A 7C7D 7E7E 8083 8380 7977 7B80 8080"            /* |z|}~~€ƒƒ€yw{€€€ */
	$"7E7C 7D80 807E 7B7E 8080 7E7E 7E7E 7C78"            /* ~|}€€~{~€€~~~~|x */
	$"787E 8283 827E 7A7B 7D7D 7D7D 7D7E 8080"            /* x~‚ƒ‚~z{}}}}}~€€ */
	$"807E 8080 7C7A 7E81 817E 7B7A 7A7E 8282"            /* €~€€|z~��~{zz~‚‚ */
	$"807E 7C7E 807C 7B7E 7E7B 7C80 8181 7E7C"            /* €~|~€|{~~{|€��~| */
	$"7B7B 8081 817E 7A79 7C7E 8080 8080 7E7E"            /* {{€��~zy|~€€€€~~ */
	$"7E7E 7E7E 7C7A 7C80 8282 807A 797C 8081"            /* ~~~~|z|€‚‚€zy|€� */
	$"8180 7C7C 7C7C 7E80 8180 7E7E 7E7E 807E"            /* �€||||~€�€~~~~€~ */
	$"7A77 7A81 8482 807E 7A7C 7C7E 8080 7E7E"            /* zwz�„‚€~z||~€€~~ */
	$"7C7C 7C81 817E 7A7E 8182 817E 7979 7B7E"            /* |||��~z~�‚�~yy{~ */
	$"8182 8180 7E7C 7C7C 8081 7E7A 7B7E 8082"            /* �‚�€~|||€�~z{~€‚ */
	$"807B 7C7E 8081 807E 7C7B 7C7C 7E82 8381"            /* €{|~€�€~|{||~‚ƒ� */
	$"7E7A 7B80 817E 7C7C 7E7E 8080 7E7C 7C80"            /* ~z{€�~||~~€€~||€ */
	$"7E7E 8081 7E7A 777A 8083 8280 7E7E 7E7E"            /* ~~€�~zwz€ƒ‚€~~~~ */
	$"7E7C 7A7E 807E 7E80 8080 7C7A 7C80 8382"            /* ~|z~€~~€€€|z|€ƒ‚ */
	$"7E7B 7A7D 7E80 7E7E 8081 807E 7E7E 7E7D"            /* ~{z}~€~~€�€~~~~} */
	$"7C7B 8083 827D 7C7C 7E80 807E 7D7C 7E7E"            /* |{€ƒ‚}||~€€~}|~~ */
	$"7E7C 7D80 807E 7D80 8280 7C7A 7A7D 8182"            /* ~|}€€~}€‚€|zz}�‚ */
	$"807C 7C7E 8080 7E7E 7E80 7C7B 7E80 7E7E"            /* €||~€€~~~€|{~€~~ */
	$"7E7D 8082 827E 7A7A 7C7E 8080 7E7E 7E7D"            /* ~}€‚‚~zz|~€€~~~} */
	$"7C7E 8080 7E7D 7C7E 8080 7E7C 7C7C 8184"            /* |~€€~}|~€€~|||�„ */
	$"827E 7C7C 7A7C 7E80 8180 7E7D 7E80 8080"            /* ‚~||z|~€�€~}~€€€ */
	$"7D7B 7B80 8281 7E7C 7C7C 7E81 8281 807D"            /* }{{€‚�~|||~�‚�€} */
	$"7B7C 7E80 8080 7C7C 8082 817E 7D7C 7C7E"            /* {|~€€€||€‚�~}||~ */
	$"8080 807E 7C7C 7D80 8182 807C 7A7C 7E80"            /* €€€~||}€�‚€|z|~€ */
	$"7E7E 7D7D 8080 8080 7E7C 7C7E 8080 8080"            /* ~~}}€€€€~||~€€€€ */
	$"7D7A 7C80 8181 807D 7C7D 7D7E 7E7D 7D7E"            /* }z|€��€}|}}~~}}~ */
	$"8181 8080 807D 7A7C 8081 8180 7C7C 7D7E"            /* ��€€€}z|€��€||}~ */
	$"8080 7E7E 7E80 7E7C 7D7D 7D7D 7E80 8282"            /* €€~~~€~|}}}}~€‚‚ */
	$"807C 7C7D 7F80 807F 7E7E 8080 7E7E 7F7F"            /* €||}.€€.~~€€~~.. */
	$"7F7E 7E80 807E"                                     /* .~~€€~ */
};

\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/Sounds/Droplet.r b/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/Sounds/Droplet.r
new file mode 100644
index 0000000..afbba8c
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/Sounds/Droplet.r
@@ -0,0 +1 @@
+data $8014 (0x18024) {
	$"0100 0100 0000 1D00 0000 0744 726F 706C"            /* ...........Dropl */
	$"6574"                                               /* et */
};

data $8024 (0x1D) {
	$"0000 1200 E882 0000 EE56 8080 8080 8080"            /* .....‚...V€€€€€€ */
	$"8080 8080 8080 8080 8080 8080 8080 8080"            /* €€€€€€€€€€€€€€€€ */
	$"8080 8080 8080 8080 8080 8080 8080 8080"            /* €€€€€€€€€€€€€€€€ */
	$"7E7E 7E7E 7E7E 7E7F 7E7E 7E7E 7E7E 7E7F"            /* ~~~~~~~.~~~~~~~. */
	$"7F7F 7F80 8081 8182 8281 8181 8282 8282"            /* ...€€��‚‚���‚‚‚‚ */
	$"8383 8282 8281 8180 8080 8080 8080 8080"            /* ƒƒ‚‚‚��€€€€€€€€€ */
	$"8182 8282 8282 8281 8182 8180 8080 8080"            /* �‚‚‚‚‚‚��‚�€€€€€ */
	$"8182 8282 8383 8484 8484 8382 8282 8282"            /* �‚‚‚ƒƒ„„„„ƒ‚‚‚‚‚ */
	$"8383 8485 8686 8787 8888 8887 8786 8583"            /* ƒƒ„…††‡‡ˆˆˆ‡‡†…ƒ */
	$"8281 8180 7F7F 7F7E 7E7E 7F80 8081 8282"            /* ‚��€...~~~.€€�‚‚ */
	$"8283 8484 8483 8382 8281 8080 7F7E 7D7D"            /* ‚ƒ„„„ƒƒ‚‚�€€.~}} */
	$"7C7C 7B7B 7C7C 7C7C 7C7B 7A7A 7A7B 7A7A"            /* ||{{|||||{zzz{zz */
	$"7B7B 7B7C 7C7C 7D7D 7D7D 7D7C 7C7B 7979"            /* {{{|||}}}}}||{yy */
	$"7878 7776 7676 7575 7575 7575 7676 7676"            /* xxwvvvuuuuuuvvvv */
	$"7676 7676 7777 7878 7878 7878 7777 7778"            /* vvvvwwxxxxxxwwwx */
	$"7777 7777 7776 7676 7676 7676 7778 797A"            /* wwwwwvvvvvvvwxyz */
	$"7B7C 7C7D 7E7E 7F80 7F7E 7E7D 7D7D 7D7D"            /* {||}~~.€.~~}}}}} */
	$"7D7C 7C7C 7C7C 7C7C 7D7D 7D7E 7F7F 7F7F"            /* }|||||||}}}~.... */
	$"7F80 8080 8080 807F 7F80 8081 8181 8182"            /* .€€€€€€..€€����‚ */
	$"8282 8283 8483 8384 8585 8587 898B 8A8A"            /* ‚‚‚ƒ„ƒƒ„………‡‰‹ŠŠ */
	$"8B8C 8C8B 8C8B 8988 8887 8583 8383 8080"            /* ‹ŒŒ‹Œ‹‰ˆˆ‡…ƒƒƒ€€ */
	$"8080 8081 8284 8687 8888 8B8D 8C8D 8E8D"            /* €€€�‚„†‡ˆˆ‹�Œ�Ž� */
	$"8B8B 8A89 8888 8786 8684 8485 8484 8585"            /* ‹‹Š‰ˆˆ‡††„„…„„…… */
	$"8585 8686 8686 8585 8685 8585 8686 8686"            /* ……††††……†………†††† */
	$"8686 8686 8584 8483 8282 8383 8383 8484"            /* ††††…„„ƒ‚‚ƒƒƒƒ„„ */
	$"8384 8485 8585 8584 8484 8383 8383 8282"            /* ƒ„„…………„„„ƒƒƒƒ‚‚ */
	$"8282 8283 8383 8383 8382 8383 8484 8585"            /* ‚‚‚ƒƒƒƒƒƒ‚ƒƒ„„…… */
	$"8484 8482 8488 8584 8686 837F 7E82 837F"            /* „„„‚„ˆ…„††ƒ.~‚ƒ. */
	$"7D7D 7B7A 7977 7574 7470 6968 6E6C 6262"            /* }}{zywuttpihnlbb */
	$"6665 6462 6366 635F 6060 6062 6059 595F"            /* fedbcfc_```b`YY_ */
	$"605E 5A59 5F60 5A58 544F 4E4D 4841 3836"            /* `^ZY_`ZXTONMHA86 */
	$"352E 2C2C 2B29 282A 3033 353A 4045 494E"            /* 5.,,+)(*035:@EIN */
	$"555C 6369 6F77 7E84 8B92 979B 9FA3 A6A8"            /* U\ciow~„‹’—›Ÿ£¦¨ */
	$"A8A8 A8A6 A5A3 9E98 938F 8A84 7F7A 736D"            /* ¨¨¨¦¥£ž˜“�Š„.zsm */
	$"6863 5F5C 5956 5353 5556 5657 5A5D 6167"            /* hc_\YVSSUVVWZ]ag */
	$"6C70 777F 8489 8F96 9A9E A2A6 A9AC AEB0"            /* lpw.„‰�–šž¢¦©¬®° */
	$"B1B2 B2B2 B2B1 B1B0 AEAD ACA9 A7A5 A3A0"            /* ±²²²²±±°®­¬©§¥£  */
	$"9E9D 9A97 9593 9190 9090 8F8F 9192 9396"            /* ž�š—•“‘�����‘’“– */
	$"979A 9DA1 A5A8 ADB0 B4B8 BCC0 C2C4 C5C6"            /* —š�¡¥¨­°´¸¼ÀÂÄÅÆ */
	$"C8C9 CBCB CBCA C9C9 C9C9 C7C5 C4C3 C0BE"            /* ÈÉËËËÊÉÉÉÉÇÅÄÃÀ¾ */
	$"BCBA B7B5 B3B0 AFAD ACAD ADAD ADAF B0B0"            /* ¼º·µ³°¯­¬­­­­¯°° */
	$"B1B3 B5B6 B8BB BCBE C0C2 C5C7 C9CB CDCD"            /* ±³µ¶¸»¼¾ÀÂÅÇÉËÍÍ */
	$"CDCF D0D0 D0D0 CFCC CAC8 C7C6 C4C2 BFBD"            /* ÍÏÐÐÐÐÏÌÊÈÇÆÄ¿½ */
	$"BBB8 B7B7 B5B3 B1B0 AEAC ABAA AAAA AAAA"            /* »¸··µ³±°®¬«ªªªªª */
	$"ABAC ADAD B0B3 B5B8 BBBE C0C3 C6C8 CACC"            /* «¬­­°³µ¸»¾ÀÃÆÈÊÌ */
	$"CDCE CECE CECD CDCB C9C7 C5C2 BFBD BAB7"            /* ÍÎÎÎÎÍÍËÉÇÅ¿½º· */
	$"B4B1 AEAC A9A7 A5A3 A1A0 9E9E 9D9C 9B9B"            /* ´±®¬©§¥£¡ žž�œ›› */
	$"9B9B 9C9C 9C9C 9D9E 9E9F A0A0 A1A1 A2A2"            /* ››œœœœ�žžŸ  ¡¡¢¢ */
	$"A3A3 A2A2 A2A1 9F9E 9D9C 9A99 9895 928F"            /* ££¢¢¢¡Ÿž�œš™˜•’� */
	$"8C8A 8784 817E 7B78 7674 7270 6E6D 6C6C"            /* ŒŠ‡„�~{xvtrpnmll */
	$"6C6C 6C6D 6E6E 6F71 7374 7677 7879 7B7D"            /* lllmnnoqstvwxy{} */
	$"7E7F 8081 8180 8080 7F7E 7D7B 7977 7472"            /* ~.€��€€€.~}{ywtr */
	$"706D 6B6A 6866 6462 605F 5D5C 5A59 5756"            /* pmkjhfdb`_]\ZYWV */
	$"5655 5555 5657 5859 5B5C 5D5F 6163 6567"            /* VUUUVWXY[\]_aceg */
	$"686A 6B6C 6D6D 6E6F 7070 7070 6F6E 6C6B"            /* hjklmmnopppponlk */
	$"6A67 6461 5E5B 5754 514D 4A47 4442 403E"            /* jgda^[WTQMJGDB@> */
	$"3D3C 3B3B 3C3C 3D3E 3F41 4345 4749 4B4D"            /* =<;;<<=>?ACEGIKM */
	$"4F51 5354 5556 5757 5757 5857 5756 5554"            /* OQSTUVWWWWXWWVUT */
	$"5351 4F4D 4B4A 4745 4341 3F3D 3B39 3836"            /* SQOMKJGECA?=;986 */
	$"3534 3332 3232 3232 3333 3436 383A 3C3F"            /* 5432222233468:<? */
	$"4244 474B 4D50 5456 595B 5D5F 5F5F 5F5F"            /* BDGKMPTVY[]_____ */
	$"5E5E 5C5B 5855 5351 4F4C 4947 4441 3F3C"            /* ^^\[XUSQOLIGDA?< */
	$"3937 3635 3433 3232 3333 3435 3638 3A3C"            /* 97654322334568:< */
	$"3E41 4447 4A4D 5052 5558 5A5C 5F61 6263"            /* >ADGJMPRUXZ\_abc */
	$"6465 6666 6563 6260 5E5B 5957 5350 4D4B"            /* deffecb`^[YWSPMK */
	$"4845 423F 3C3A 3837 3534 3332 3233 3435"            /* HEB?<:8754322345 */
	$"373A 3C40 4447 4B4F 5356 5A5E 6164 676A"            /* 7:<@DGKOSVZ^adgj */
	$"6C6E 6F70 7172 7271 706F 6D6C 6A69 6764"            /* lnopqrrqpomljigd */
	$"615F 5C59 5654 514F 4C49 4846 4443 4343"            /* a_\YVTQOLIHFDCCC */
	$"4343 4444 4546 484B 4E51 5458 5B5F 6367"            /* CCDDEFHKNQTX[_cg */
	$"6B6F 7376 797B 7D7F 8081 8282 8280 7F7E"            /* kosvy{}.€�‚‚‚€.~ */
	$"7C7A 7774 706D 6A66 635F 5D5A 5856 5452"            /* |zwtpmjfc_]ZXVTR */
	$"5251 5151 5252 5355 5658 5B5D 6063 676A"            /* RQQQRRSUVX[]`cgj */
	$"6F73 787C 8084 888B 8E91 9294 9696 9696"            /* osx|€„ˆ‹Ž‘’”–––– */
	$"9694 9391 8F8C 8986 827F 7B78 7470 6D6A"            /* –”“‘�Œ‰†‚.{xtpmj */
	$"6865 6361 6060 5F60 6162 6466 686B 6E71"            /* heca``_`abdfhknq */
	$"7477 7B7E 8286 8A8E 9397 9B9E A0A3 A5A7"            /* tw{~‚†ŠŽ“—›ž £¥§ */
	$"A8A9 A8A7 A6A5 A4A2 A09E 9B98 9592 8F8C"            /* ¨©¨§¦¥¤¢ ž›˜•’�Œ */
	$"8986 8380 7D7A 7876 7675 7474 7576 777A"            /* ‰†ƒ€}zxvvuttuvwz */
	$"7C7F 8184 888A 8D92 979B 9FA3 A7AA ADB0"            /* |.�„ˆŠ�’—›Ÿ£§ª­° */
	$"B3B5 B6B7 B7B6 B4B3 B1B0 ADAA A6A1 9D99"            /* ³µ¶··¶´³±°­ª¦¡�™ */
	$"9490 8C89 8582 7E7C 7977 7777 7776 7676"            /* ”�Œ‰…‚~|ywwwwvvv */
	$"7879 7C7F 8285 888B 8F93 969B 9FA3 A6A9"            /* xy|.‚…ˆ‹�“–›Ÿ£¦© */
	$"ACAF B0B2 B3B4 B4B4 B4B4 B4B2 B0AE ABA8"            /* ¬¯°²³´´´´´´²°®«¨ */
	$"A4A0 9C98 938F 8B87 8380 7D7A 7877 7676"            /* ¤ œ˜“�‹‡ƒ€}zxwvv */
	$"7677 797A 7C7F 8184 888C 9094 989C A0A3"            /* vwyz|.�„ˆŒ�”˜œ £ */
	$"A7A9 ACAF B1B2 B3B3 B4B3 B3B2 B1AF ADAB"            /* §©¬¯±²³³´³³²±¯­« */
	$"A9A5 A29F 9B97 938F 8B87 8481 7E7B 7876"            /* ©¥¢Ÿ›—“�‹‡„�~{xv */
	$"7473 7373 7475 7679 7B7E 8084 888B 8F93"            /* tssstuvy{~€„ˆ‹�“ */
	$"969A 9EA2 A5A8 ABAE AFB1 B2B3 B3B2 B2B0"            /* –šž¢¥¨«®¯±²³³²²° */
	$"ADAB A8A6 A29F 9B98 9490 8C89 8682 7F7C"            /* ­«¨¦¢Ÿ›˜”�Œ‰†‚.| */
	$"7A77 7574 7475 7577 7A7C 7E81 8487 8B8F"            /* zwuttuuwz|~�„‡‹� */
	$"9498 9B9E A2A6 A9AC AFB2 B4B6 B7B7 B6B6"            /* ”˜›ž¢¦©¬¯²´¶··¶¶ */
	$"B5B4 B2B0 ADAA A7A4 A09D 9997 938F 8C89"            /* µ´²°­ª§¤ �™—“�Œ‰ */
	$"8684 8381 8080 807F 8081 8283 8486 888B"            /* †„ƒ�€€€.€�‚ƒ„†ˆ‹ */
	$"8E91 9699 9CA0 A3A6 AAAD B1B4 B6B7 B8B7"            /* Ž‘–™œ £¦ª­±´¶·¸· */
	$"B7B7 B6B5 B4B2 AFAD AAA7 A3A0 9D9A 9591"            /* ··¶µ´²¯­ª§£ �š•‘ */
	$"8D8A 8784 8381 807E 7E7E 7E7E 8081 8385"            /* �Š‡„ƒ�€~~~~~€�ƒ… */
	$"8789 8C8F 9296 999D A0A2 A4A7 AAAC AEAF"            /* ‡‰Œ�’–™� ¢¤§ª¬®¯ */
	$"AFB0 B0B0 AFAD ACAA A8A6 A3A0 9C99 9592"            /* ¯°°°¯­¬ª¨¦£ œ™•’ */
	$"8F8B 8885 827F 7E7D 7B7A 7A7B 7B7C 7E80"            /* �‹ˆ…‚.~}{zz{{|~€ */
	$"8284 888B 8E91 9497 9B9E A0A3 A5A7 A9AB"            /* ‚„ˆ‹Ž‘”—›ž £¥§©« */
	$"ACAD AEAE ADAC ABA9 A7A5 A39F 9D9A 9794"            /* ¬­®®­¬«©§¥£Ÿ�š—” */
	$"918E 8B87 8482 7F7D 7B79 7978 7777 7879"            /* ‘Ž‹‡„‚.}{yyxwwxy */
	$"7B7D 7F81 8487 898C 8F93 9699 9C9E A0A2"            /* {}.�„‡‰Œ�“–™œž ¢ */
	$"A4A5 A5A5 A5A4 A3A2 A09E 9C9A 9895 928F"            /* ¤¥¥¥¥¤£¢ žœš˜•’� */
	$"8C88 8481 7E7B 7876 7573 7171 7171 7173"            /* Œˆ„�~{xvusqqqqqs */
	$"7475 7779 7C7E 8185 888C 8F93 9699 9C9E"            /* tuwy|~�…ˆŒ�“–™œž */
	$"A1A3 A5A6 A7A8 A8A8 A7A6 A5A3 A19E 9B98"            /* ¡£¥¦§¨¨¨§¦¥£¡ž›˜ */
	$"9490 8D89 8582 7F7B 7876 7573 7271 7272"            /* ”��‰…‚.{xvusrqrr */
	$"7274 7678 7B7D 8084 878A 8E92 9698 9B9D"            /* rtvx{}€„‡ŠŽ’–˜›� */
	$"9FA0 A2A2 A2A2 A2A1 9F9D 9B99 9592 8F8B"            /* Ÿ ¢¢¢¢¢¡Ÿ�›™•’�‹ */
	$"8682 7E7B 7875 726F 6C6A 6968 6767 6768"            /* †‚~{xuroljihgggh */
	$"696B 6D6F 7275 787C 8083 868A 8E90 9395"            /* ikmorux|€ƒ†ŠŽ�“• */
	$"9798 9999 9998 9694 928F 8C89 8682 7D79"            /* —˜™™™˜–”’�Œ‰†‚}y */
	$"7571 6D69 6664 615E 5C5B 5A5A 5A5C 5E5F"            /* uqmifda^\[ZZZ\^_ */
	$"6266 6A6D 7074 787C 7F83 8689 8C8E 9192"            /* bfjmptx|.ƒ†‰ŒŽ‘’ */
	$"9394 9494 9291 8E8B 8783 7F7B 7671 6D68"            /* “”””’‘Ž‹‡ƒ.{vqmh */
	$"6460 5D5A 5755 5453 5354 5558 5B5E 6266"            /* d`]ZWUTSSTUX[^bf */
	$"6A6F 747A 7F84 898D 9195 989B 9C9D 9E9E"            /* jotz.„‰�‘•˜›œ�žž */
	$"9D9B 9997 9490 8D88 837D 7874 706B 6763"            /* �›™—”��ˆƒ}xtpkgc */
	$"605C 5A59 5959 5A5D 6063 676C 7278 7E85"            /* `\ZYYYZ]`cglrx~… */
	$"8C92 989E A4A9 ADB1 B4B6 B6B6 B6B4 B1AE"            /* Œ’˜ž¤©­±´¶¶¶¶´±® */
	$"AAA5 9F97 9088 8079 736D 6761 5D5B 5959"            /* ª¥Ÿ—�ˆ€ysmga][YY */
	$"595B 5D60 6469 6E74 7B82 8A92 9AA2 A9B0"            /* Y[]`dint{‚Š’š¢©° */
	$"B7BC C0C3 C6C7 C6C4 C2BF BBB6 B0A9 A199"            /* ·¼ÀÃÆÇÆÄ¿»¶°©¡™ */
	$"9087 7F76 6E65 5E58 524F 4D4B 4B4D 5054"            /* �‡.vne^XROMKKMPT */
	$"5960 676F 7880 8A94 9EA6 B0B8 BFC5 CACD"            /* Y`gox€Š”ž¦°¸¿ÅÊÍ */
	$"CFD0 CFCC C8C2 BBB3 AAA0 968B 8176 6C62"            /* ÏÐÏÌÈ»³ª –‹�vlb */
	$"5850 4944 403E 3D3D 4043 484F 5760 6A74"            /* XPID@>==@CHOW`jt */
	$"7F89 939E A8B2 BAC2 C8CD D0D3 D4D2 CFCA"            /* .‰“ž¨²ºÂÈÍÐÓÔÒÏÊ */
	$"C4BB B1A6 9C90 8478 6D61 574D 453F 3A37"            /* Ä»±¦œ�„xmaWME?:7 */
	$"3535 373A 4047 505A 6571 7E8A 97A4 B1BC"            /* 557:@GPZeq~Š—¤±¼ */
	$"C7D0 D8DE E2E5 E5E3 DFDA D3C9 BEB2 A496"            /* ÇÐØ.......Óɾ²¤– */
	$"887A 6C5F 5348 3F37 312C 2B2B 2E31 373F"            /* ˆzl_SH?71,++.17? */
	$"4852 5E6B 7988 97A5 B2BF CCD6 DFE5 EAEC"            /* HR^kyˆ—¥²¿ÌÖ.... */
	$"EBE9 E4DD D3C7 BBAD 9D8D 7D6D 5D4E 4034"            /* ....ÓÇ»­��}m]N@4 */
	$"2921 1B17 1617 1B21 2934 404F 5E6D 7D8E"            /* )!.....!)4@O^m}Ž */
	$"9DAD BBC9 D6E0 E8EE F1F1 EFEA E2D7 CABB"            /* �­»ÉÖ........×Ê» */
	$"AA98 8674 6352 4132 2419 1009 0605 0609"            /* ª˜†tcRA2$..Æ...Æ */
	$"0F18 2330 3F50 6174 8698 AABB CAD7 E2EB"            /* ..#0?Pat†˜ª»Ê×.. */
	$"F1F4 F4F1 EAE1 D5C6 B6A4 907B 6652 3F2D"            /* ......Õƶ¤�{fR?- */
	$"1C0E 0201 0101 0101 0101 0B19 293B 4F63"            /* ............);Oc */
	$"778C A1B4 C6D5 E3EE F6FC FEFC F7EE E2D3"            /* wŒ¡´ÆÕ.........Ó */
	$"C2AF 9A84 6E57 412D 1A0A 0101 0101 0101"            /* ¯š„nWA-........ */
	$"0101 0312 2438 4E64 7B92 A9BF D3E5 F5FF"            /* ....$8Nd{’©¿Ó... */
	$"FFFF FFFF FFFF F3E3 D0BA A38B 7259 422C"            /* ........к£‹rYB, */
	$"1706 0101 0101 0101 0101 0314 273C 536B"            /* ............'<Sk */
	$"849D B5CB E0F2 FFFF FFFF FFFF FFFF F1DE"            /* „�µË............ */
	$"C8B0 967B 6046 2D16 0201 0101 0101 0101"            /* È°–{`F-......... */
	$"0101 010F 253E 5874 8FAA C4DC F1FF FFFF"            /* ....%>Xt�ªÄ..... */
	$"FFFF FFFF FFFF EED8 BFA3 876A 4D32 1801"            /* .......Ø¿£‡jM2.. */
	$"0101 0101 0101 0101 0101 061E 3855 728F"            /* ............8Ur� */
	$"ACC7 E1F9 FFFF FFFF FFFF FFFF FFF7 DEC3"            /* ¬Ç.............à */
	$"A687 6849 2C11 0101 0101 0101 0101 0101"            /* ¦‡hI,........... */
	$"0101 1A37 5575 95B4 D2ED FFFF FFFF FFFF"            /* ...7Uu•´Ò....... */
	$"FFFF FFFF F5DB BD9E 7D5B 3A1C 0101 0101"            /* ......½ž}[:..... */
	$"0101 0101 0101 0101 0E2C 4C6D 8EAF CEEB"            /* .........,LmŽ¯Î. */
	$"FFFF FFFF FFFF FFFF FFFF FCE0 C2A1 7F5D"            /* ............¡.] */
	$"3C1C 0101 0101 0101 0101 0101 0101 1433"            /* <..............3 */
	$"5577 9ABD DEFC FFFF FFFF FFFF FFFF FFFF"            /* Uwš½............ */
	$"FFE4 C3A1 7D59 3717 0101 0101 0101 0101"            /* ..á}Y7......... */
	$"0101 0103 2244 688D B1D4 F5FF FFFF FFFF"            /* ...."Dh�±Ô...... */
	$"FFFF FFFF FFFF F1CF AB85 5F3B 1901 0101"            /* .......Ï«…_;.... */
	$"0101 0101 0101 0101 0120 4368 8EB4 D8F9"            /* ......... ChŽ´Ø. */
	$"FFFF FFFF FFFF FFFF FFFF FFEC C8A2 7B55"            /* ............È¢{U */
	$"2F0C 0101 0101 0101 0101 0101 0103 254A"            /* /.............%J */
	$"7097 BEE2 FFFF FFFF FFFF FFFF FFFF FFF7"            /* p—¾............. */
	$"D4AD 855C 3510 0101 0101 0101 0101 0101"            /* Ô­…\5........... */
	$"0101 1F46 6E97 C0E6 FFFF FFFF FFFF FFFF"            /* ...Fn—À......... */
	$"FFFF FFED C79E 744A 2101 0101 0101 0101"            /* ....ÇžtJ!....... */
	$"0101 0101 0105 2C55 80AB D3F9 FFFF FFFF"            /* ......,U€«Ó..... */
	$"FFFF FFFF FFFF FAD4 AA7E 5227 0101 0101"            /* .......Ôª~R'.... */
	$"0101 0101 0101 0101 0124 4F7C A8D3 FBFF"            /* .........$O|¨Ó.. */
	$"FFFF FFFF FFFF FFFF FFF8 CFA3 7547 1B01"            /* ..........Ï£uG.. */
	$"0101 0101 0101 0101 0101 010B 3664 94C1"            /* ............6d”Á */
	$"EDFF FFFF FFFF FFFF FFFF FFFF E1B4 8556"            /* .............´…V */
	$"2701 0101 0101 0101 0101 0101 0111 3F6F"            /* '.............?o */
	$"A0CF FAFF FFFF FFFF FFFF FFFF FFFF D9AB"            /*  Ï.............« */
	$"7B4B 1C01 0101 0101 0101 0101 0101 0A37"            /* {K.............7 */
	$"6798 C8F6 FFFF FFFF FFFF FFFF FFFF FFE7"            /* g˜È............. */
	$"B988 5729 0101 0101 0101 0101 0101 011A"            /* ¹ˆW)............ */
	$"4878 A9D9 FFFF FFFF FFFF FFFF FFFF FFFF"            /* Hx©............. */
	$"D4A4 7343 1601 0101 0101 0101 0101 011C"            /* Ô¤sC............ */
	$"4978 A9D8 FFFF FFFF FFFF FFFF FFFF FFF6"            /* Ix©Ø............ */
	$"C897 6536 0A01 0101 0101 0101 0101 0C38"            /* È—e6...........8 */
	$"689A CBFA FFFF FFFF FFFF FFFF FFFF FFDD"            /* hšË............. */
	$"AA77 4516 0101 0101 0101 0101 0106 3263"            /* ªwE...........2c */
	$"96C9 FBFF FFFF FFFF FFFF FFFF FFFF D9A6"            /* –É.............¦ */
	$"7240 1101 0101 0101 0101 0101 1643 74A6"            /* r@...........Ct¦ */
	$"D8FF FFFF FFFF FFFF FFFF FFFF E5B4 814F"            /* Ø............´�O */
	$"2101 0101 0101 0101 0101 113C 6C9D CDF9"            /* !..........<l�Í. */
	$"FFFF FFFF FFFF FFFF FFF7 CA9B 6B3C 1201"            /* ..........ʛk<.. */
	$"0101 0101 0101 0101 2854 82B0 DBFF FFFF"            /* ........(T‚°.... */
	$"FFFF FFFF FFFF F1C8 9D6F 431B 0101 0101"            /* .......�oC..... */
	$"0101 0101 082C 557F A9D0 F3FF FFFF FFFF"            /* .....,U.©Ð...... */
	$"FFFF FDDC B891 6A46 2509 0101 0101 0101"            /* ....¸‘jF%Æ...... */
	$"1633 5477 9ABB D8F2 FFFF FFFF FFF3 DBBF"            /* .3Twš»Ø........¿ */
	$"A181 6146 2E1A 0C06 070E 1D32 4A66 83A1"            /* ¡�aF.......2Jfƒ¡ */
	$"BED7 ECFC FFFF FFF5 E3CB B093 7559 3F29"            /* ¾×.......Ë°“uY?) */
	$"190F 0D11 1C2F 4660 7D9C BAD6 EDFF FFFF"            /* ..Â../F`}œºÖ.... */
	$"FFFF FAE5 CAAE 9173 563E 2A1C 1515 1B2A"            /* ....Ê®‘sV>*....* */
	$"3D53 6E8C A8C3 DCF0 FFFF FFFF F8E8 D4BB"            /* =SnŒ¨Ã........Ô» */
	$"A186 6C56 4335 2E2E 333D 4D62 788F A7BC"            /* ¡†lVC5..3=Mbx�§¼ */
	$"CFDE E8EC EAE3 D6C5 B29C 856F 5C4C 413B"            /* Ï.....ÖŲœ…o\LA; */
	$"3A3F 4958 6B7F 94A9 BCCC D7DF E1DD D4C7"            /* :?IXk.”©¼Ì×...ÔÇ */
	$"B5A1 8B76 6250 4239 3536 3D47 5769 7E93"            /* µ¡‹vbPB956=GWi~“ */
	$"A6B8 C6CF D4D4 CFC5 B6A5 927E 6B5A 4C43"            /* ¦¸ÆÏÔÔÏŶ¥’~kZLC */
	$"3F3F 444C 5A69 7A8B 9BA9 B3BA BDBB B4AA"            /* ??DLZiz‹›©³º½»´ª */
	$"9D8E 7E6D 5F52 4843 4244 4B56 6372 8190"            /* �Ž~m_RHCBDKVcr�� */
	$"9CA6 AEB1 AFAA A195 8778 6A5C 5048 4341"            /* œ¦®±¯ª¡•‡xj\PHCA */
	$"444A 535E 6A76 828C 9499 9B99 948C 8277"            /* DJS^jv‚Œ”™›™”Œ‚w */
	$"6D62 5952 4E4D 4E53 5A63 6D78 8189 8F92"            /* mbYRNMNSZcmx�‰�’ */
	$"918F 8980 756B 5F54 4C46 4243 474C 555F"            /* ‘�‰€uk_TLFBCGLU_ */
	$"6974 7E86 8B8E 8F8B 867F 766D 645B 5450"            /* it~†‹Ž�‹†.vmd[TP */
	$"4E4E 5055 5A5F 666B 7072 7373 706D 6863"            /* NNPUZ_fkprsspmhc */
	$"5E59 5654 5456 5A5F 666C 7177 7B7D 7D7B"            /* ^YVTTVZ_flqw{}}{ */
	$"7872 6B64 5D57 524F 4E4F 5258 5F66 6D74"            /* xrkd]WRONORX_fmt */
	$"7B7E 8080 7E7B 7771 6C67 6360 5F60 6367"            /* {~€€~{wqlgc`_`cg */
	$"6B6F 7478 7A7C 7C7B 7874 706B 6764 6362"            /* kotxz||{xtpkgdcb */
	$"6366 6A6E 7175 797C 7D7D 7C79 7773 716E"            /* cfjnquy|}}|ywsqn */
	$"6D6D 6E70 7276 797D 8082 8281 7F7C 7874"            /* mmnprvy}€‚‚�.|xt */
	$"716E 6C6C 6D70 7377 7B7F 8385 8686 8582"            /* qnllmpsw{.ƒ…††…‚ */
	$"7F7C 7977 7676 7779 7C80 8285 8889 8988"            /* .|ywvvwy|€‚…ˆ‰‰ˆ */
	$"8683 807D 7A79 797B 7D7F 8387 8B8E 9091"            /* †ƒ€}zyy{}.ƒ‡‹Ž�‘ */
	$"918F 8D8B 8987 8686 8789 8B8D 8F90 9191"            /* ‘��‹‰‡††‡‰‹���‘‘ */
	$"908F 8D8C 8988 8889 8A8D 9093 9698 999A"            /* ���Œ‰ˆˆ‰Š��“–˜™š */
	$"9997 9491 8D89 8786 8688 8B8E 9296 9A9C"            /* ™—”‘�‰‡††ˆ‹Ž’–šœ */
	$"9D9C 9B99 9693 908D 8B8A 8B8C 8E8F 9192"            /* �œ›™–“��‹Š‹ŒŽ�‘’ */
	$"9190 9090 8F8E 8F90 9192 9496 9798 9796"            /* ‘����Ž��‘’”–—˜—– */
	$"9491 8E8B 8886 8586 8789 8B8E 9193 9494"            /* ”‘Ž‹ˆ†…†‡‰‹Ž‘“”” */
	$"9494 9392 908F 8E8E 8E8F 8F8F 8E8D 8C8A"            /* ””“’��ŽŽŽ���Ž�ŒŠ */
	$"8887 8685 8586 8889 8C8E 8F91 9292 9393"            /* ˆ‡†……†ˆ‰ŒŽ�‘’’““ */
	$"9291 9190 8F8E 8D8C 8B8A 8988 8787 8787"            /* ’‘‘��Ž�Œ‹Š‰ˆ‡‡‡‡ */
	$"8788 8888 8888 8989 8989 8A8A 8B8C 8C8C"            /* ‡ˆˆˆˆˆ‰‰‰‰ŠŠ‹ŒŒŒ */
	$"8D8E 8D8C 8B89 8684 8688 8787 8684 8486"            /* �Ž�Œ‹‰†„†ˆ‡‡†„„† */
	$"8789 8A8A 8A8A 8A8A 8B8B 8B8B 8A8A 8988"            /* ‡‰ŠŠŠŠŠŠ‹‹‹‹ŠŠ‰ˆ */
	$"8887 8584 8382 8282 8180 8081 8282 8383"            /* ˆ‡…„ƒ‚‚‚�€€�‚‚ƒƒ */
	$"8384 8586 8787 8888 8888 8787 8788 8787"            /* ƒ„…†‡‡ˆˆˆˆ‡‡‡ˆ‡‡ */
	$"8686 8585 8586 8686 8787 8787 8687 8788"            /* ††………†††‡‡‡‡†‡‡ˆ */
	$"8888 8888 8888 8888 8888 8889 8888 8887"            /* ˆˆˆˆˆˆˆˆˆˆˆ‰ˆˆˆ‡ */
	$"8786 8585 8483 8383 8284 8583 8384 8282"            /* ‡†……„ƒƒƒ‚„…ƒƒ„‚‚ */
	$"8383 8484 8484 8483 8384 8485 8584 8484"            /* ƒƒ„„„„„ƒƒ„„……„„„ */
	$"8383 8483 8282 8180 7F7F 7E7E 7D7C 7C7C"            /* ƒƒ„ƒ‚‚�€..~~}||| */
	$"7C7C 7C7D 7E7E 7D7E 7E7E 7F80 8080 8080"            /* |||}~~}~~~.€€€€€ */
	$"807F 7F80 7F7E 7E7D 7C7C 7B7B 7A7A 7979"            /* €..€.~~}||{{zzyy */
	$"7979 7A7A 7B7C 7D7D 7E7E 7E7D 7D7C 7C7C"            /* yyzz{|}}~~~}}||| */
	$"7B7B 7A79 7878 7777 7776 7675 7676 7677"            /* {{zyxxwwwvvuvvvw */
	$"7878 7878 797A 7B7B 7A7A 7A79 7878 7776"            /* xxxxyz{{zzzyxxwv */
	$"7574 7372 7170 7070 6F6F 706F 6E6E 6E6F"            /* utsrqpppooponnno */
	$"6F6F 7070 7070 7071 7271 7172 7170 7070"            /* oopppppqrqqrqppp */
	$"706F 6E6D 6C6C 6B6B 6B6A 6A6A 6A6B 6A6B"            /* ponmllkkkjjjjkjk */
	$"6B6B 6C6C 6C6D 6E6F 6F70 7070 706F 6E6E"            /* kklllmnoopppponn */
	$"6D6C 6B6B 6A69 6968 6868 6869 696A 6A6A"            /* mlkkjiihhhhiijjj */
	$"6A6B 6B6B 6C6C 6C6C 6D6D 6C6C 6C6C 6C6C"            /* jkkkllllmmllllll */
	$"6C6C 6B6B 6B6B 6B6A 6B6B 6B6C 6C6C 6C6D"            /* llkkkkkjkkkllllm */
	$"6D6D 6E6E 6F70 7171 7171 7272 7272 7272"            /* mmnnopqqqqrrrrrr */
	$"7171 7272 7271 7272 7373 7373 7374 7575"            /* qqrrrqrrssssstuu */
	$"7677 7777 7878 7879 7878 7878 7777 7778"            /* vwwwxxxyxxxxwwwx */
	$"7877 7777 7777 7777 7878 7878 7979 7879"            /* xwwwwwwwxxxxyyxy */
	$"7A7A 7B7C 7D7D 7E7E 7F7F 7F7F 7E7F 7F7E"            /* zz{|}}~~....~..~ */
	$"7D7D 7C7C 7C7C 7C7C 7C7C 7B7B 7B7A 7B7C"            /* }}||||||||{{{z{| */
	$"7B7C 7C7C 7D7D 7E7E 7E7F 7F80 7F7F 7F7F"            /* {|||}}~~~..€.... */
	$"7F7F 8080 7F7F 7F80 8080 8080 807F 8080"            /* ..€€...€€€€€€.€€ */
	$"8181 8283 8484 8484 8585 8585 8686 8686"            /* ��‚ƒ„„„„…………†††† */
	$"8686 8686 8686 8685 8484 8383 8383 8282"            /* †††††††…„„ƒƒƒƒ‚‚ */
	$"8282 8383 8384 8383 8383 8484 8382 8282"            /* ‚‚ƒƒƒ„ƒƒƒƒ„„ƒ‚‚‚ */
	$"8281 8181 8080 8080 8080 8080 8080 8080"            /* ‚���€€€€€€€€€€€€ */
	$"8080 807F 7F7F 7E7E 7E7D 7D7D 7D7C 7C7C"            /* €€€...~~~}}}}||| */
	$"7C7C 7C7C 7D7D 7C7C 7C7B 7B7C 7C7C 7B7C"            /* ||||}}|||{{|||{| */
	$"7C7C 7D7D 7E7E 7E7D 7D7E 7E7D 7C7C 7D7D"            /* ||}}~~~}}~~}||}} */
	$"7C7C 7C7C 7B7B 7C7C 7C7C 7D7E 7E7E 7F80"            /* ||||{{||||}~~~.€ */
	$"8181 8282 8283 8383 8282 8181 8180 7F7F"            /* ��‚‚‚ƒƒƒ‚‚���€.. */
	$"7E7E 7D7D 7D7D 7D7D 7E7E 7E7F 8080 7F80"            /* ~~}}}}}}~~~.€€.€ */
	$"8081 8181 8181 8180 8080 8180 8080 8080"            /* €������€€€�€€€€€ */
	$"8080 8081 8181 8181 8081 8181 8181 8281"            /* €€€�����€�����‚� */
	$"8181 8080 8080 8080 8080 8081 8181 8182"            /* ��€€€€€€€€€����‚ */
	$"8282 8282 8283 8484 8383 8383 8383 8281"            /* ‚‚‚‚‚ƒ„„ƒƒƒƒƒƒ‚� */
	$"8181 8180 8080 8080 8080 8081 8283 8383"            /* ���€€€€€€€€�‚ƒƒƒ */
	$"8384 8485 8585 8585 8584 8383 8383 8281"            /* ƒ„„………………„ƒƒƒƒ‚� */
	$"8180 7F7F 807F 7F81 8180 8081 8182 8382"            /* �€..€..��€€��‚ƒ‚ */
	$"8283 8382 8281 8181 8181 8080 807F 7F7F"            /* ‚ƒƒ‚‚�����€€€... */
	$"7F7E 7E7E 7E7E 7E7E 7F7F 7F80 8181 8181"            /* .~~~~~~~...€���� */
	$"8181 8181 8181 8181 8181 8080 8181 8180"            /* ����������€€���€ */
	$"8081 8282 8282 8383 8383 8383 8484 8485"            /* €�‚‚‚‚ƒƒƒƒƒƒ„„„… */
	$"8586 8686 8686 8685 8585 8584 8585 8586"            /* …††††††…………„………† */
	$"8687 8687 8787 8787 8888 8888 8989 8A8A"            /* †‡†‡‡‡‡‡ˆˆˆˆ‰‰ŠŠ */
	$"8B8B 8C8B 8B8C 8C8B 8B8B 8C8C 8C8C 8C8C"            /* ‹‹Œ‹‹ŒŒ‹‹‹ŒŒŒŒŒŒ */
	$"8C8D 8D8E 8E8E 8F8E 8E8F 8F8F 8F8F 8F8E"            /* Œ��ŽŽŽ�ŽŽ������Ž */
	$"8E8E 8E8E 8D8D 8D8C 8C8B 8B8B 8C8B 8B8C"            /* ŽŽŽŽ���ŒŒ‹‹‹Œ‹‹Œ */
	$"8C8C 8B8A 8A8A 8A89 8989"                           /* ŒŒ‹ŠŠŠŠ‰‰‰ */
};

\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/Sounds/Eastern.r b/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/Sounds/Eastern.r
new file mode 100644
index 0000000..9f4ff3f
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/Sounds/Eastern.r
@@ -0,0 +1 @@
+data $8014 (0x18024) {
	$"0100 0100 0000 1F00 0000 0745 6173 7465"            /* ...........Easte */
	$"726E"                                               /* rn */
};

data $8024 (0x1F) {
	$"0000 2D00 E88E 0000 772B 8080 8080 8080"            /* ..-..Ž..w+€€€€€€ */
	$"8080 8080 8080 8080 8080 8080 8080 8080"            /* €€€€€€€€€€€€€€€€ */
	$"8080 8080 8080 8080 8080 8080 8080 8080"            /* €€€€€€€€€€€€€€€€ */
	$"7F7E 8089 7872 7D7A 8285 7E7E 8385 7D7B"            /* .~€‰xr}z‚…~~ƒ…}{ */
	$"8383 7C75 7D82 7878 8288 7F7C 8888 7F79"            /* ƒƒ|u}‚xx‚ˆ.|ˆˆ.y */
	$"8483 7774 7982 7A79 8184 7F7E 8989 807C"            /* „ƒwty‚zy�„.~‰‰€| */
	$"8183 7876 7B7C 7777 8384 7F7F 898B 7F7D"            /* �ƒxv{|wwƒ„..‰‹.} */
	$"8281 7875 7E7C 7576 8185 7D80 888B 817E"            /* ‚�xu~|uv�…}€ˆ‹�~ */
	$"8581 7875 7C7B 7377 8084 7C80 8A89 827E"            /* …�xu|{sw€„|€Š‰‚~ */
	$"8581 7777 7C7B 7378 8183 7E80 8B89 8080"            /* …�ww|{sx�ƒ~€‹‰€€ */
	$"8480 7576 7C7A 7377 8382 7E82 8B89 7F80"            /* „€uv|zswƒ‚~‚‹‰.€ */
	$"857F 7475 7C77 7379 8483 7E85 8C89 8081"            /* ….tu|wsy„ƒ~…Œ‰€� */
	$"857D 7474 7B77 727A 8484 7F86 8E89 8081"            /* …}tt{wrz„„.†Ž‰€� */
	$"857C 7275 7A76 717A 8483 7F87 9088 8083"            /* …|ruzvqz„ƒ.‡�ˆ€ƒ */
	$"857B 7175 7974 707C 857F 7886 8F8B 8389"            /* …{quytp|….x†�‹ƒ‰ */
	$"837B 7474 7B75 7177 8180 7D87 918C 7F81"            /* ƒ{tt{uqw�€}‡‘Œ.� */
	$"847E 7778 8074 6C78 7E80 808A 8C87 8384"            /* „~wx€tlx~€€ŠŒ‡ƒ„ */
	$"867F 7B7B 7974 737C 7E7F 7F86 8A85 8585"            /* †.{{yts|~..†Š……… */
	$"857E 797B 7874 747D 827D 7E85 8A84 8286"            /* …~y{xtt}‚}~…Š„‚† */
	$"847C 777C 7B74 757C 837D 7F86 8985 8185"            /* „|w|{tu|ƒ}.†‰…�… */
	$"827A 767B 7C74 757E 837E 7F88 8A84 8085"            /* ‚zv{|tu~ƒ~.ˆŠ„€… */
	$"8379 767B 7B73 747F 827E 7F89 8A82 8085"            /* ƒyv{{st.‚~.‰Š‚€… */
	$"8379 767C 7B73 747F 827C 7E88 8A82 8186"            /* ƒyv|{st.‚|~ˆŠ‚�† */
	$"8379 767D 7B73 747F 827C 7E89 8B81 8087"            /* ƒyv}{st.‚|~‰‹�€‡ */
	$"8379 777D 7C72 7581 837B 7E8A 8980 7F86"            /* ƒyw}|ru�ƒ{~Š‰€.† */
	$"8377 777E 7C73 7682 827B 7E8A 897E 7F85"            /* ƒww~|sv‚‚{~Š‰~.… */
	$"8277 767E 7C74 7783 837C 8089 887E 7C8C"            /* ‚wv~|twƒƒ|€‰ˆ~|Œ */
	$"9072 5C75 776D 798C 8F7B 7F8C 9189 7D80"            /* �r\uwmyŒ�{.Œ‘‰}€ */
	$"797B 7E82 7363 7586 8873 7688 908B 8081"            /* y{~‚scu†ˆsvˆ�‹€� */
	$"7C82 8786 756B 808E 8870 7280 8581 787B"            /* |‚‡†uk€Žˆpr€…�x{ */
	$"7579 7F80 7773 8997 927C 818D 8D82 7576"            /* uy.€ws‰—’|���‚uv */
	$"6F71 7273 6B6A 828E 8C7A 8699 9B8F 8183"            /* oqrskj‚ŽŒz†™›��ƒ */
	$"7C7C 7A74 6A65 7B82 796B 798F 8E85 7C86"            /* ||ztje{‚yky�Ž…|† */
	$"8688 8982 7975 888B 7D6E 7989 8073 6C77"            /* †ˆ‰‚yuˆ‹}ny‰€slw */
	$"7A7C 7E7A 787D 9296 8A7E 8897 8C79 7178"            /* z|~zx}’–Š~ˆ—Œyqx */
	$"7470 6E6A 6971 878B 817D 91A0 9586 8088"            /* tpnjiq‡‹�}‘ •†€ˆ */
	$"827A 746D 696D 7D7B 706F 8494 877E 808E"            /* ‚ztmim}{po„”‡~€Ž */
	$"8C86 837B 7A7E 897F 7070 8088 766C 727F"            /* Œ†ƒ{z~‰.pp€ˆvlr. */
	$"807B 7C7F 8687 8E92 867E 8B99 7C64 6D7A"            /* €{|.†‡Ž’†~‹™|dmz */
	$"766B 6A6B 7482 8C87 8191 A19A 867D 8084"            /* vkjkt‚Œ‡�‘¡š†}€„ */
	$"8472 5A5D 6C78 7E74 6F80 9D9F 877F 8A97"            /* „rZ]lx~to€�Ÿ‡.Š— */
	$"8F81 7471 767D 7C6B 6574 8C88 726F 8193"            /* ��tqv}|ketŒˆro�“ */
	$"8D81 7C82 898F 8E7D 7781 9083 6865 7682"            /* ��|‚‰�Ž}w��ƒhev‚ */
	$"7568 6976 848D 8F85 8798 A595 7A77 8588"            /* uhiv„��…‡˜¥•zw…ˆ */
	$"715F 5E67 7276 766F 7991 A296 828B 9C9C"            /* q_^grvvoy‘¢–‚‹œœ */
	$"8372 7378 7B76 6C61 6A80 897A 6C7C 9294"            /* ƒrsx{vlaj€‰zl|’” */
	$"837A 848F 9188 8077 7D8C 8A73 606E 807C"            /* ƒz„�‘ˆ€w}ŒŠs`n€| */
	$"6763 7482 8A86 8485 93A3 9D84 7582 8D7D"            /* gct‚Š†„…“£�„u‚�} */
	$"6159 6972 716D 6E76 8A9E 9986 8298 A38D"            /* aYirqmnvŠž™†‚˜£� */
	$"726D 797A 7266 636B 7B89 8071 7792 9F8B"            /* rmyzrfck{‰€qw’Ÿ‹ */
	$"767B 9093 8477 747B 8487 7766 6B83 8972"            /* v{�“„wt{„‡wfkƒ‰r */
	$"6371 8D91 857E 8492 9A9A 8775 798A 8667"            /* cq�‘…~„’šš‡uyŠ†g */
	$"5463 7B79 6A6A 798D 999D 8E85 92A3 9976"            /* Tc{yjjy�™�Ž…’£™v */
	$"6673 8174 5E5C 6879 8080 7778 8FA3 9B7E"            /* fs�t^\hy€€wx�£›~ */
	$"798E 9C89 716F 7A82 7E74 6767 7987 7C63"            /* yŽœ‰qoz‚~tggy‡|c */
	$"6988 998B 7982 959E 968B 7E7B 8688 7254"            /* iˆ™‹y‚•ž–‹~{†ˆrT */
	$"5873 7C68 5C71 8A97 9591 8E94 A4A3 8A6D"            /* Xs|h\qŠ—•‘Ž”¤£Šm */
	$"7285 7F60 5061 757A 7371 7786 9C9E 8C7B"            /* r….`Pauzsqw†œžŒ{ */
	$"8AA1 9879 6A7C 8881 6F67 6B73 817C 6A62"            /* Š¡˜yj|ˆ�ogks�|jb */
	$"7B97 9179 7692 A39A 8881 8588 8B7B 6156"            /* {—‘yv’£šˆ�…ˆ‹{aV */
	$"6B7F 6F57 5E83 9690 868B 99A1 A492 7970"            /* k.oW^ƒ–�†‹™¡¤’yp */
	$"828A 6D50 5575 8071 6874 8995 9A8F 8184"            /* ‚ŠmPUu€qht‰•š��„ */
	$"9AA1 8268 6F8B 8A6F 606A 7C7F 7C70 6976"            /* š¡‚ho‹Šo`j|.|piv */
	$"9098 7F70 83A4 A083 7884 9089 7B69 5F68"            /* �˜.pƒ¤ ƒx„�‰{i_h */
	$"7A7B 5F57 7598 9680 8197 A7A0 9181 787E"            /* z{_Wu˜–€�—§ ‘�x~ */
	$"867A 584E 6883 7861 6986 9B96 8E88 8B96"            /* †zXNhƒxai†›–Žˆ‹– */
	$"9D90 7069 808F 795A 607A 8678 6D6F 7989"            /* ��pi€�yZ`z†xmoy‰ */
	$"938B 767B 98A7 8E72 7C92 9279 6866 6C75"            /* “‹v{˜§Žr|’’yhflu */
	$"766B 5A68 8B9A 8777 8EA9 A990 8282 8484"            /* vkZh‹š‡wŽ©©�‚‚„„ */
	$"7966 535E 787E 675C 7A9A 9C88 8591 9A9B"            /* yfS^x~g\zšœˆ…‘š› */
	$"8F7E 6E76 8982 6456 7189 8169 697E 8A8D"            /* �~nv‰‚dVq‰�ii~Š� */
	$"877F 7B8B 9F97 7A71 8B9A 8567 6574 7A73"            /* ‡.{‹Ÿ—zq‹š…getzs */
	$"6964 677D 938D 797D 9FAF 987D 7F8B 968C"            /* idg}“�y}Ÿ¯˜}.‹–Œ */
	$"3D55 5275 8D6D 607E 9596 938A 7F86 9F8F"            /* =URu�m`~•–“Š.†Ÿ� */
	$"6576 9180 7B8C 7157 839B 6944 6A97 8076"            /* ev‘€{ŒqWƒ›iDj—€v */
	$"8F87 83AA B487 6D84 9477 605C 5A70 8877"            /* �‡ƒª´‡m„”w`\Zpˆw */
	$"5F7F 9E90 888E 7F75 94A3 7159 8DA4 7A72"            /* _.ž�ˆŽ.u”£qY�¤zr */
	$"857A 6B7D 7D57 5179 8A78 7F92 95AB B795"            /* …zk}}WQyŠx.’•«·• */
	$"7A86 8D6C 595E 544F 7B8F 6A6A A9B8 8C82"            /* z†�lY^TO{�jj©¸Œ‚ */
	$"9184 7381 805D 6392 967E 7F88 8487 825B"            /* ‘„s�€]c’–~.ˆ„‡‚[ */
	$"4D6C 7866 6E8F 9497 BEBE 897F A08F 5141"            /* Mlxfn�”—¾¾‰. �QA */
	$"5A55 5071 7C6F 8BB8 B193 9191 8683 785B"            /* ZUPq|o‹¸±“‘‘†ƒx[ */
	$"5981 8D6F 7994 877C 9084 5256 867E 566C"            /* Y��oy”‡|�„RV†~Vl */
	$"9D9B 96B1 A887 8D99 7850 4E58 5664 7167"            /* �›–±¨‡�™xPNXVdqg */
	$"7BAD B685 8EA1 9977 797A 5560 9181 6C84"            /* {­¶…Ž¡™wyzU`‘�l„ */
	$"8D85 867D 6561 717E 6668 848E B4B7 9D89"            /* �…†}eaq~fh„Ž´·�‰ */
	$"999E 6153 684E 3A61 8267 6BB3 C497 9EAD"            /* ™žaShN:a‚gk³Ä—ž­ */
	$"8A80 8A67 4463 8574 6C8E 957E 99A8 6750"            /* Š€ŠgDc…tlŽ•~™¨gP */
	$"8082 5259 8C8D 80AE C794 89B1 995A 545B"            /* €‚RYŒ�€®Ç”‰±™ZT[ */
	$"4447 6566 5E8E BEAB A2BA A985 938D 4D3E"            /* DGef^Ž¾«¢º©…“�M> */
	$"737C 5461 948C 7DA0 9F68 6791 825B 6588"            /* s|Ta”Œ} Ÿhg‘‚[eˆ */
	$"878F A89A 869D A376 5D63 5346 6271 5967"            /* ‡�¨š†�£v]cSFbqYg */
	$"ABBB 939A B69F 838C 7C4D 517E 7859 6A8C"            /* «»“š¶ŸƒŒ|MQ~xYjŒ */
	$"8E8B 8F7A 6A81 8C70 637F 918E A4A9 8684"            /* Ž‹�zj�Œpc.‘Ž¤©†„ */
	$"A693 5346 625A 4861 756B 85C2 BE95 9BB1"            /* ¦“SFbZHauk…¾•›± */
	$"9D7C 6F5C 4960 7A64 5881 9D91 9192 756C"            /* �|o\I`zdX��‘‘’ul */
	$"8E89 5452 8D9E 8596 A891 8EA6 8B48 446A"            /* Ž‰TR�ž…–¨‘Ž¦‹HDj */
	$"5A5D 693A 4D92 B2B0 ABC3 BB93 7F90 5B39"            /* Z]i:M’²°«Ã»“.�[9 */
	$"5D89 5548 7199 828C 8270 7CBC 9446 57C7"            /* ]‰UHq™‚Œ‚p|¼”FWÇ */
	$"BE77 71A4 A19F 8548 246C 863B 2575 9579"            /* ¾wq¤¡Ÿ…H$l†;%u•y */
	$"9ECB B4AE DBB5 6F73 8F46 265E 6D21 429B"            /* žË´®.µos�F&^m!B› */
	$"A976 969F 94AC D279 4893 D06F 447D 9A6A"            /* ©v–Ÿ”¬ÒyH“ÐoD}šj */
	$"7369 3849 A67F 2C63 CEB1 84B7 CF90 93B4"            /* si8I¦.,cα„·Ï�“´ */
	$"763D 6162 1C3C 8E70 3999 E1A8 82B7 A37F"            /* v=ab.<Žp9™.¨‚·£. */
	$"988D 293D A497 2755 B9AC 7796 8964 88AF"            /* ˜�)=¤—'U¹¬w–‰dˆ¯ */
	$"5029 85AC 5C66 B3A5 71A0 AE69 6294 6D3E"            /* P)…¬\f³¥q ®ib”m> */
	$"80A0 5252 C2C2 6369 A785 6679 5C2F 7FBF"            /* € RRÂÂci§…fy\/.¿ */
	$"7646 B5E9 A685 A483 677C 630C 2A7E 6935"            /* vFµ.¦…¤ƒg|c.*~i5 */
	$"87C9 A69C DCCE A0A7 9657 5C6D 3505 498B"            /* ‡É¦œ.Π§–W\m5.I‹ */
	$"6745 87AF 9A9D B195 95C9 BA70 7BA2 7552"            /* gE‡¯š�±••Éºp{¢uR */
	$"4041 2E43 5954 4D9B BEA2 A6F0 E8B2 A2B6"            /* @A.CYTM›¾¢¦..²¢¶ */
	$"824E 3A32 1A2D 3E33 4CA5 CCA8 A8DD EEBF"            /* ‚N:2.->3L¥Ì¨¨..¿ */
	$"997F 7570 6935 2E59 7E59 5074 9B8D 8B92"            /* ™.upi5.Y~YPt›�‹’ */
	$"9F9C A99D 9297 A989 6460 745A 3636 5A6D"            /* Ÿœ©�’—©‰d`tZ66Zm */
	$"6E78 97BE D3C7 ADAA AF96 5A3C 3A3E 3139"            /* nx—¾ÓÇ­ª¯–Z<:>19 */
	$"4B71 95B9 B3B5 D2DF A679 7A7B 4828 3751"            /* Kq•¹³µÒ.¦yz{H(7Q */
	$"515D 7086 A2C3 B39A A5B9 9A79 716E 6365"            /* Q]p†¢Ã³š¥¹šyqnce */
	$"5541 5279 6C4E 6FA8 A18B ABD1 BDA7 A69A"            /* UARylNo¨¡‹«Ñ½§¦š */
	$"7969 532C 213D 3F32 4D8B B5C4 CBD2 E3EF"            /* yiS,!=?2M‹µÄËÒ.. */
	$"CE82 606F 5717 0929 3A3E 5F7D 93B4 D9C9"            /* ΂`oW.Æ):>_}“´.É */
	$"BAC7 CFA8 8B82 7C5B 4636 404A 4429 477F"            /* ºÇϨ‹‚|[F6@JD)G. */
	$"9A87 9FD2 EBE1 D7C2 AE9C 803F 0D10 1E15"            /* š‡ŸÒ..×®œ€?Â... */
	$"0E2F 6CAB C0C9 E4FF FACE A79E 6F38 1B22"            /* ./l«ÀÉ...Χžo8." */
	$"181E 304C 669E BBB6 ADD0 DBBC 9489 8482"            /* ..0Lfž»¶­Ð.¼”‰„‚ */
	$"6940 355F 6D40 3468 8A7A 84A2 ACB3 CFBD"            /* i@5_m@4hŠz„¢¬³Ï½ */
	$"999E AC73 3E44 552F 223E 607B 9EA1 A7D5"            /* ™ž¬s>DU/">`{ž¡§Õ */
	$"F7C0 8998 A262 3239 3C37 4F5E 4F79 C4C1"            /* .À‰˜¢b29<7O^OyÄÁ */
	$"8EA4 D4BF 8989 8A73 665E 3F48 7063 2F53"            /* Ž¤Ô¿‰‰Šsf^?Hpc/S */
	$"9B98 7094 C2C3 BFC9 A38D A896 3310 444C"            /* ›˜p”Âÿɣ�¨–3.DL */
	$"1215 5279 94BB CAD1 F5FA BE8C 9F83 2D0D"            /* ..Ry”»ÊÑ..¾ŒŸƒ- */
	$"2927 172F 536A A4D2 B8A5 E1F9 B474 8D99"            /* )'./Sj¤Ò¸¥..´t�™ */
	$"6E48 3D37 526C 4E2A 60A2 9174 9AC2 BFBC"            /* nH=7RlN*`¢‘tšÂ¿¼ */
	$"C3AF A2A7 8349 475A 3206 2C69 6962 8BBE"            /* ƒIGZ2.,iib‹¾ */
	$"DEE6 CCAA B7CA 9139 2C54 552F 2440 709B"            /* ..̪·Ê‘9,TU/$@p› */
	$"9D84 95CC D29E 89A0 9C7A 6A6C 645E 564E"            /* �„•ÌÒž‰ œzjld^VN */
	$"5671 705C 8393 AB91 99BF C7C1 9254 6188"            /* Vqp\ƒ“«‘™¿ÇÁ’Taˆ */
	$"590F 1648 788B 7688 D2EC CAB4 9885 866A"            /* Y..Hx‹vˆÒ.Ê´˜…†j */
	$"2D33 5545 4977 8B8F A2A4 A8BF A876 7E9E"            /* -3UEIw‹�¢¤¨¿¨v~ž */
	$"8C68 5154 7D87 543D 6489 9585 6582 CEC9"            /* ŒhQT}‡T=d‰•…e‚ÎÉ */
	$"8885 A4A0 8F6E 4B57 6C50 3E57 686A 7D8F"            /* ˆ…¤ �nKWlP>Whj}� */
	$"A4BA B0A7 C1C7 9D77 6359 664C 0C15 6988"            /* ¤º°§ÁÇ�wcYfL..iˆ */
	$"6B71 9BCD E5C7 9597 AA98 6C44 466D 704B"            /* kq›Í.Ç•—ª˜lDFmpK */
	$"4D6E 7474 7B75 7FA1 9D92 BFD2 A18B A397"            /* Mntt{u.¡�’¿Ò¡‹£— */
	$"6436 2531 474C 4858 91D7 E4AE A5D8 D082"            /* d6%1GLHX‘×.®¥ØЂ */
	$"584F 4958 5A32 4292 A27A 88A7 9C89 8E8B"            /* XOIXZ2B’¢zˆ§œ‰Ž‹ */
	$"7E7C 8683 7C8C 9469 5285 934D 3C7B 907F"            /* ~|†ƒ|Œ”iR…“M<{�. */
	$"8787 86B7 C882 6194 9869 4759 646E 736D"            /* ‡‡†·È‚a”˜iGYdnsm */
	$"5E7E B9B0 7689 BE9B 7187 9163 4B53 584B"            /* ^~¹°v‰¾›q‡‘cKSXK */
	$"6C7E 698D CAB4 7BAA CA94 6564 4D55 786A"            /* l~i�Ê´{ªÊ”edMUxj */
	$"4155 9DAF 7163 A3AC 7481 A27B 82BB 965D"            /* AU�¯qc£¬t�¢{‚»–] */
	$"8F9C 4532 6C5C 3258 8287 A5C9 BCAD D0CE"            /* �œE2l\2X‚‡¥É¼­ÐÎ */
	$"7A45 717A 2A14 5667 5F93 A579 9DDE A85E"            /* zEqz*.Vg_“¥y�.¨^ */
	$"8AB3 7A5E 8285 7286 8A5F 5C87 723A 5A9B"            /* Š³z^‚…r†Š_\‡r:Z› */
	$"7E5D 9CC4 9D9F C49B 779D 8D35 347F 6D2A"            /* ~]œÄ�ŸÄ›w��54.m* */
	$"4688 867E A5A7 93B9 D18C 69A2 9E49 3F6B"            /* Fˆ†~¥§“¹ÑŒi¢žI?k */
	$"5844 717A 5F8D C29A 75AE C77B 598C 8F58"            /* XDqz_�šu®Ç{YŒ�X */
	$"5D81 6C69 9B8B 537B B27A 4B83 A07C 839E"            /* ]�li›‹S{²zKƒ |ƒž */
	$"8786 A98E 4B58 8F6E 3358 9688 7BA9 B291"            /* ‡†©ŽKX�n3X–ˆ{©²‘ */
	$"A6B3 6B4D 8576 293D 837C 6E97 A397 ADAF"            /* ¦³kM…v)=ƒ|n—£—­¯ */
	$"7C67 8F8E 5047 8391 6870 937E 7594 9046"            /* |g�ŽPGƒ‘hp“~u”�F */
	$"53A7 6753 AEC4 898F B293 7778 6941 4A5E"            /* S§gS®Ä‰�²“wxiAJ^ */
	$"5545 6798 9CA2 B9BB A6C5 B461 5D9A 6E0C"            /* UEg˜œ¢¹»¦Å´a]šn. */
	$"2872 673E 6996 A2AB ACAC B6C8 9E6B 6983"            /* (rg>i–¢«¬¬¶Èžkiƒ */
	$"6637 4863 5C5D 8E85 6B99 C38E 6BA8 AF82"            /* f7Hc\]Ž…k™ÃŽk¨¯‚ */
	$"778F 8583 7B56 4F75 8044 4183 AC85 73B0"            /* w�…ƒ{VOu€DAƒ¬…s° */
	$"C9A0 8B98 7A83 5E41 2D6F 906A 8597 9C9C"            /* É ‹˜zƒ^A-o�j…—œœ */
	$"9285 6F59 968F 3A76 AF94 7D6B 8EAB 7562"            /* ’…oY–�:v¯”}kŽ«ub */
	$"836B 8784 426A A872 5D8E AAA8 8897 A36D"            /* ƒk‡„Bj¨r]Žª¨ˆ—£m */
	$"7183 4037 7477 7B76 91CB B289 9179 7A8B"            /* qƒ@7tw{v‘˲‰‘yz‹ */
	$"3C33 8E96 6764 91AA 7F67 9384 85A2 7F7B"            /* <3Ž–gd‘ª.g“„…¢.{ */
	$"A48C 665B 5573 604F 8187 84B9 AC70 8DAF"            /* ¤Œf[Us`O�‡„¹¬p�¯ */
	$"9750 5BA2 996B 7374 7079 411D 6293 898E"            /* —P[¢™kstpyA.b“‰Ž */
	$"B4E1 E197 A0B0 6238 341E 3358 6A7C 81B6"            /* ´..— °b84.3Xj|�¶ */
	$"BE8E ACBA 8AA0 9C5A 637A 785A 3959 856B"            /* ¾Ž¬ºŠ œZczxZ9Y…k */
	$"5F81 91BA B786 7FA0 A672 4684 B463 538B"            /* _�‘º·†. ¦rF„´cS‹ */
	$"846D 6B58 637E 7C85 90B2 C19C 8B92 715E"            /* „mkXc~|…�²Áœ‹’q^ */
	$"674E 4866 9BA9 6D77 C2A7 556A 7B83 8663"            /* gNHf›©mw§Uj{ƒ†c */
	$"6499 A388 607B B278 4C88 8C88 8068 7C65"            /* d™£ˆ`{²xLˆŒˆ€h|e */
	$"6B8B 6466 A8A0 918B A9A5 8373 5333 6B6F"            /* k‹df¨ ‘‹©¥ƒsS3ko */
	$"405C AECF 9E93 B9B8 8559 4B58 5F5A 6264"            /* @\®Ïž“¹¸…YKX_Zbd */
	$"8BAE 9588 AFA2 788F 9066 6E8F 7047 5F89"            /* ‹®•ˆ¯¢x��fn�pG_‰ */
	$"704F 72A0 AA94 829C BAA1 705E 769B 6730"            /* pOr ª”‚œº¡p^v›g0 */
	$"6698 6450 7C7E 708E B09C 9BBF B991 7E6A"            /* f˜dP|~pŽ°œ›¿¹‘~j */
	$"5450 312D 5179 8C89 95D6 DC82 74AB 9E4E"            /* TP1-QyŒ‰•Ö.‚t«žN */
	$"4676 7A6B 675E 6499 895D 7EAA 9F97 9C8E"            /* Fvzkg^d™‰]~ªŸ—œŽ */
	$"7F6E 7363 3E57 9A95 6F97 C3A9 7676 6D59"            /* .nsc>Wš•o—évvmY */
	$"604F 468B B77C 82C6 C383 6074 866B 5169"            /* `OF‹·|‚ÆÃ`t†kQi */
	$"7279 8986 7270 9398 7C7C 9286 9B9C 555C"            /* ry‰†rp“˜||’†›œU\ */
	$"A286 415E 908F 6E6C 9294 786C 8494 9485"            /* ¢†A^��nl’”xl„””… */
	$"848F 9A89 4E4E 765D 477E 8981 BFD7 A17F"            /* „�š‰NNv]G~‰�¿×¡. */
	$"9795 5E2B 4971 4861 5C92 CCB4 9392 A2A1"            /* —•^+IqHa\’Ì´“’¢¡ */
	$"7862 947F 435C 7142 5584 7277 B5D4 ABA1"            /* xb”.C\qBU„rwµÔ«¡ */
	$"C4AA 6956 4E3B 4960 6D5C 72D2 D970 6FBF"            /* ĪiVN;I`m\rÒ.po¿ */
	$"A156 5E7F 797C 8E85 7983 896F 676F 7075"            /* ¡V^.y|Ž…yƒ‰ogopu */
	$"7883 9885 7FA7 9277 9E91 687A 8F71 4544"            /* xƒ˜….§’wž‘hz�qED */
	$"748A 6958 90D6 B981 93AA 7C57 5C4B 5271"            /* tŠiX�Ö¹�“ª|W\KRq */
	$"808A 9298 B3A1 7276 795F 5F70 6F70 969F"            /* €Š’˜³¡rvy__pop–Ÿ */
	$"707C B382 4E86 B38F 6373 9E87 4548 6B60"            /* p|³‚N†³�csž‡EHk` */
	$"6791 9395 C9D7 A279 8576 433F 4B3D 5D97"            /* g‘“•É×¢y…vC?K=]— */
	$"9D94 9BBE CA87 6597 8C48 4D7B 744C 537C"            /* �”›¾Ê‡e—ŒHM{tLS| */
	$"8E88 8593 B5C0 9E88 8470 6657 313F 6A6F"            /* Žˆ…“µÀžˆ„pfW1?jo */
	$"849E 95A1 BDB8 9275 7490 6B40 6480 6536"            /* „ž•¡½¸’ut�k@d€e6 */
	$"5BA0 8264 ACD5 AB90 A78A 716A 6134 2870"            /* [ ‚d¬Õ«�§Šqja4(p */
	$"837B 93B3 B38C 9293 514D 967E 3778 DDAB"            /* ƒ{“³³Œ’“QM–~7x.« */
	$"698D A170 494A 5D5E 6F9F 9184 C1BF 877C"            /* i�¡pIJ]^oŸ‘„Á¿‡| */
	$"8D7E 465A 9563 457F 9075 7395 A58D 8BB0"            /* �~FZ•cE.�us•¥�‹° */
	$"AD6B 5285 7E37 2C64 938E 8BAE BFB9 AD80"            /* ­kR…~7,d“Ž‹®¿¹­€ */
	$"6659 4D4B 344C 9287 7BC0 D49C 8DB7 9E53"            /* fYMK4L’‡{ÀÔœ�·žS */
	$"5885 4C0F 4F8D 5E44 A1E7 C19F CFD6 856A"            /* X…L.O�^D¡.ÁŸÏÖ…j */
	$"6112 094D 4831 76DB E5B8 D5EC 9A5B 6450"            /* a.ÆMH1v..¸Õ.š[dP */
	$"191C 607F 627E CAB9 87A0 AA84 7376 7F82"            /* ..`.b~ʹ‡ ª„sv.‚ */
	$"6E66 6B6E 796B 5775 A2AF 8C78 ADB9 6A51"            /* nfknykWu¢¯Œx­¹jQ */
	$"7B7B 5865 9196 7080 B484 3C6A 9961 4C93"            /* {{Xe‘–p€´„<j™aL“ */
	$"BB8F 89BF A669 7C75 4354 7661 4676 C199"            /* »�‰¿¦i|uCTvaFvÁ™ */
	$"549B DB94 6BA5 A766 6283 5621 5689 615D"            /* T›.”k¥§fbƒV!V‰a] */
	$"ABC9 B6AD AC9A 6D57 5F37 2E74 8875 97C6"            /* «É¶­¬šmW_7.tˆu—Æ */
	$"BC86 7A9B 7F43 4B7B 8A6D 6598 A272 7693"            /* ¼†z›.CK{Šme˜¢rv“ */
	$"736B A0A5 7E7C 9C96 5B46 6356 4D7F 9082"            /* sk ¥~|œ–[FcVM.�‚ */
	$"A6DA C375 86B6 580E 6286 3E42 99B0 8084"            /* ¦.Ãu†¶X.b†>B™°€„ */
	$"B8A5 7596 A765 5693 8D45 417D 7E57 7FA5"            /* ¸¥u–§eV“�EA}~W.¥ */
	$"859B CBA3 6D74 8F7B 3D44 8D9F 1E6B ABB4"            /* …›Ë£mt�{=D�Ÿ.k«´ */
	$"71A5 916C 885F 7287 68BA 8F75 B56D 6D46"            /* q¥‘lˆ_r‡hº�uµmmF */
	$"268B 6E5D CBA5 A9C9 A08B 3653 A73B 42A8"            /* &‹n]Ë¥©É ‹6S§;B¨ */
	$"A4A1 5C63 982D 479D 75A5 DBE5 D48B 985F"            /* ¤¡\c˜-G�u¥..Ô‹˜_ */
	$"031C 2F24 5D90 E8EF C2EB B05C 614F 4822"            /* ../$]�..Â.°\aOH" */
	$"43C0 8657 9B89 9288 6DAC 9AA0 C46C 5859"            /* CÀ†W›‰’ˆm¬š ÄlXY */
	$"3844 1F60 C89B C4FC CF9D 6557 4D08 2C6C"            /* 8D.`È›Ä.Ï�eWM.,l */
	$"6B8F A7C7 B06B A9AE 5667 8E9F 8760 7E56"            /* k�§Ç°k©®VgŽŸ‡`~V */
	$"3D77 4444 98B4 D6A8 9ADC 8036 5E4C 444B"            /* =wDD˜´Ö¨š.€6^LDK */
	$"7FBB 8093 CC7E 6874 646D 537C B688 829A"            /* .»€“Ì~htdmS|¶ˆ‚š */
	$"968A 6575 7152 938D 4862 869A 7B5E B2C3"            /* –ŠeuqR“�Hb†š{^²Ã */
	$"99A1 8C83 582A 623D 2494 A1A0 CAC9 A888"            /* ™¡ŒƒX*b=$”¡ Êɨˆ */
	$"7596 4E4B 5E52 816C 6796 4D84 CE74 71A9"            /* u–NK^R�lg–M„Îtq© */
	$"D6C3 5F70 722B 6424 577D 60C6 C97A DF8F"            /* ÖÃ_pr+d$W}`ÆÉz.� */
	$"7B8C 3374 702E CB74 67C6 508D 7F32 B580"            /* {Œ3tp.ËtgÆP�.2µ€ */
	$"77DD 889C 6C46 A72A 23A9 77B4 C99B DD93"            /* w.ˆœlF§*#©w´É›.“ */
	$"7874 0B46 6C4C 9683 BFDF 6CAC 9229 7670"            /* xt.FlL–ƒ¿.l¬’)vp */
	$"7594 72C9 A854 8E4F 3B63 3097 BD84 CCBF"            /* u”rɨTŽO;c0—½„Ì¿ */
	$"A69E 374E 624D 7F6E 8AC9 9D97 6E3D 7A57"            /* ¦ž7NbM.nŠÉ�—n=zW */
	$"4286 A0AE A8B8 BF5C 5F87 4843 6A8A 9A68"            /* B† ®¨¸¿\_‡HCjŠšh */
	$"83AA 5E5B 8183 9BA2 B6B4 8DA8 6D08 2E63"            /* ƒª^[�ƒ›¢¶´�¨m..c */
	$"3C41 85D7 E5BD CFC3 7559 513C 2C37 7993"            /* <A…×.½ÏÃuYQ<,7y“ */
	$"7D92 A9A4 9D87 8798 907F 7379 6A3F 4350"            /* }’©¤�‡‡˜�.syj?CP */
	$"5C8D 8B8F D8E9 B67B 6C8C 470B 5066 5F8A"            /* \�‹�Ø.¶{lŒG.Pf_Š */
	$"A7BA 9389 CB84 4488 8864 636A 8785 1E7D"            /* §º“‰Ë„Dˆˆdcj‡….} */
	$"568C EEB0 8BB1 BC68 1656 6926 4A7C 97BE"            /* VŒ.°‹±¼h.Vi&J|—¾ */
	$"C5B9 94A3 A44C 5D7A 4962 7A7C 7A6B 9C90"            /* Ź”£¤L]zIbz|zkœ� */
	$"59A3 B679 9E94 616B 7160 406E CC95 66D4"            /* Y£¶yž”akq`@nÌ•fÔ */
	$"E66E 386A 5913 3D7C 6F97 E5F1 AB9D D688"            /* .n8jY.=|o—..«�Öˆ */
	$"2951 3E2C 5A5E 6469 91C9 9395 D9C2 A2A0"            /* )Q>,Z^di‘É“•.¢  */
	$"7A6D 4C16 1134 636B 86DB FADB BEAE 722F"            /* zmL..4ck†...¾®r/ */
	$"3D2D 0344 A59D 9DC9 F1B9 7BA5 5A12 6B6C"            /* =-.D¥��É.¹{¥Z.kl */
	$"2845 97B2 6782 E9AA 7BBB AA72 5960 4A1F"            /* (E—²g‚.ª{»ªrY`J. */
	$"5C75 4A94 E2C8 AFB4 AB69 4F67 2118 7E99"            /* \uJ”.ȯ´«iOg!.~™ */
	$"838D C2DD 958D 8439 7078 2B57 8C93 7478"            /* ƒ�Â.•�„9px+WŒ“tx */
	$"D79A 55C3 A853 7374 5936 62A3 6268 D0B8"            /* ךUèSstY6b£bhи */
	$"8FB4 A15E 4685 4507 7BB5 616E D1E3 9183"            /* �´¡^F…E.{µanÑ.‘ƒ */
	$"C387 416E 4C1D 8588 5A4A A7BD 56AE DC71"            /* ÇAnL.…ˆZJ§½V®.q */
	$"6ABC 8A40 51A1 6E38 A6B1 4FAC A72E 429A"            /* j¼Š@Q¡n8¦±O¬§.Bš */
	$"710F 85FE 9D75 F0DC 654B 6432 0256 7E1D"            /* q.….�u..eKd2.V~. */
	$"8FF7 AE8C DBE7 604F CE6D 0D8C 9512 38A6"            /* �.®Œ..`OÎmÂŒ•.8¦ */
	$"994B 94F7 B38C C680 4659 3C13 1F95 D185"            /* ™K”.³ŒÆ€FY<..•Ñ… */
	$"C1FF C584 8F50 0D12 362F 3CB9 D4A6 E7F0"            /* Á.Å„�PÂ.6/<¹Ô¦.. */
	$"A486 936B 1630 752F 1E8D A985 92DB F293"            /* ¤†“k.0u/.�©…’..“ */
	$"98C4 4232 6012 0C5A A3A3 88ED F393 9CA5"            /* ˜ÄB2`..Z££ˆ..“œ¥ */
	$"360E 1737 2C3A C4D9 A9EA F3B1 846D 550F"            /* 6..7,:Ä.©..±„mU. */
	$"2154 134E C9AD ACE4 FCD1 7EA1 6704 3C33"            /* !T.NÉ­¬..Ñ~¡g.<3 */
	$"0138 92B0 98C4 FFD8 85E8 970D 2137 1001"            /* .8’°˜Ä.Ø….—Â!7.. */
	$"56C2 5F8A FCE4 9DD1 C95A 2B76 4B01 57AD"            /* VÂ_Š..�ÑÉZ+vK.W­ */
	$"6B69 C6ED 917C BC65 2E6B 4F3E 729C A79B"            /* kiÆ.‘|¼e.kO>rœ§› */
	$"D8E7 818F 9D30 294B 2316 63AC 9190 F1EF"            /* Ø.���0)K#.c¬‘�.. */
	$"9EBE C851 2C6C 4603 36AA 8151 B9F6 9C85"            /* ž¾ÈQ,lF.6ª�Q¹.œ… */
	$"D995 356F 833F 3B8D A55F 8ADB 9766 968E"            /* .•5oƒ?;�¥_Š.—f–Ž */
	$"5443 6766 5180 B2A7 98B9 D59F 5E5D 5C53"            /* TCgfQ€²§˜¹ÕŸ^]\S */
	$"3A2A 6F93 89B9 C0AF AB94 915B 3C75 5848"            /* :*o“‰¹À¯«”‘[<uXH */
	$"8681 8EA2 9BB0 877C 9865 626F 5B6A 5D7A"            /* †�Ž¢›°‡|˜ebo[j]z */
	$"B492 8EB6 BCA8 5C4C 773D 2156 7686 9FE7"            /* ´’Ž¶¼¨\Lw=!Vv†Ÿ. */
	$"EA95 C4CC 4320 4032 0D2E A089 73EB EF9F"            /* .•ÄÌC @2Â. ‰s..Ÿ */
	$"B6D1 9E39 418D 2F0A 6469 4F8D B8BB C2EC"            /* ¶Ñž9A�/.diO�¸»Â. */
	$"D065 7D90 241D 5E5E 629B D2AD 90BA 893F"            /* Ðe}�$.^^b›Ò­�º‰? */
	$"4440 3B5D 8FA2 9DE1 F28D 8CCB 6B07 326D"            /* D@;]�¢�..�ŒËk.2m */
	$"2207 6D94 5AB1 F9CF DDFF D26A 5B61 1001"            /* ".m”Z±.Ï..Òj[a.. */
	$"243F 2189 F7EF C6F4 F47D 305B 3804 3A6E"            /* $?!‰..Æ..}0[8.:n */
	$"669D D5A7 91CA AF4B 5794 5E26 5173 6167"            /* f�Õ§‘ʯKW”^&Qsag */
	$"98AD B5E6 DC9D 9885 3001 1B2B 064D E6D3"            /* ˜­µ..�˜…0..+.M.Ó */
	$"AEF5 F9A6 646B 4C0A 1C51 487A BB8F 8DC9"            /* ®..¦dkL..QHz»��É */
	$"B671 62AD AA46 60A3 6C3B 6184 6C71 B5B0"            /* ¶qb­ªF`£l;a„lqµ° */
	$"90A3 855E 5D4B 415B 9EB8 9BCD EB9E 6646"            /* �£…^]KA[ž¸›Í.žfF */
	$"3934 0D2F 7E99 C1C7 BEEB CA77 6976 6F36"            /* 94Â/~™ÁǾ.Êwivo6 */
	$"2B71 5E37 708B 8296 BAD9 C3AD AB87 6548"            /* +q^7p‹‚–º.í«‡eH */
	$"333C 5479 7B76 BCC2 7060 8889 5150 B8CA"            /* 3<Ty{v¼Âp`ˆ‰QP¸Ê */
	$"97AD B89D 7141 483D 2B5C 6B6F A0AA A4B4"            /* —­¸�qAH=+\ko ª¤´ */
	$"B7AE 97A2 AC6F 4F64 4E20 244E 7890 A4C7"            /* ·®—¢¬oOdN $Nx�¤Ç */
	$"E9D7 9872 6F5F 3627 6FA6 8D9B C0A7 7A67"            /* .טro_6'o¦�›À§zg */
	$"5F3F 3771 816E A9C2 929B B48C 668A AF6C"            /* _?7q�n©Â’›´ŒfŠ¯l */
	$"3B75 7D22 116A 8467 A1F2 F2D9 C69B 5936"            /* ;u}".j„g¡...Æ›Y6 */
	$"2A05 1673 8696 D2D9 C29D 8067 3640 6A64"            /* *..s†–Ò.Â�€g6@jd */
	$"81A1 9CAD A77E 6472 8E5C 3D89 8D42 4E92"            /* �¡œ­§~drŽ\=‰�BN’ */
	$"8C6D A9E5 BEC3 D67F 3A35 1E01 0255 978B"            /* Œm©.¾ÃÖ.:5...U—‹ */
	$"E1FF FDE9 D2A6 3D02 3124 013A 6D83 ABA7"            /* ....Ò¦=.1$.:mƒ«§ */
	$"BDCF CBC9 95A2 AC50 3D4A 2A2E 3A62 8E9D"            /* ½ÏËÉ•¢¬P=J*.:bŽ� */
	$"CFC3 A0B9 955A 4F5F 765B 89D0 8781 C783"            /* Ï๕ZO_v[‰Ð‡�ǃ */
	$"3335 6767 2471 BB80 A9CB A0A5 9BA5 8F4F"            /* 35gg$q»€©Ë ¥›¥�O */
	$"8A7C 1E45 5745 5065 B2B9 ADEA BA92 A05C"            /* Š|.EWEPe²¹­.º’ \ */
	$"4848 4070 7B94 9D84 B992 4162 5960 7568"            /* HH@p{”�„¹’AbY`uh */
	$"ADAF A1CE 8877 A26D 615C 6E88 3054 9638"            /* ­¯¡Îˆw¢ma\nˆ0T–8 */
	$"57A3 94B0 BEE5 DA7A 9483 1F23 2341 746A"            /* W£”°¾..z”ƒ.##Atj */
	$"A7BD A5C8 8E60 7768 7E77 7FBE 9D96 8E45"            /* §½¥ÈŽ`wh~w.¾�–ŽE */
	$"6048 206A 697E B8AD CBA8 91BA 615B 9B5F"            /* `H ji~¸­Ë¨‘ºa[›_ */
	$"6669 5879 3E45 7955 9BD4 BCD7 D6D9 A02B"            /* fiXy>EyU›Ô¼×Ö. + */
	$"4437 032C 426D AEB7 D6C2 ABB2 6F6D 7243"            /* D7.,Bm®·Ö«²omrC */
	$"7C85 6689 7A85 7949 8C8B 6199 8881 8E71"            /* |…f‰z…yIŒ‹a™ˆ�Žq */
	$"8363 75D0 877D DDAC 6E57 4B35 043C 7144"            /* ƒcuЇ}.¬nWK5.<qD */
	$"A7FB E2D4 D3DA 8D37 5E3C 0946 5553 6B98"            /* §..ÔÓ.�7^<ÆFUSk˜ */
	$"BF86 A0E7 978B B176 625E 5042 4099 9E63"            /* ¿† .—‹±vb^PB@™žc */
	$"C3DF 8B7E 6E51 3032 6C54 6CE9 DEA8 D0D7"            /* Ã.‹~nQ02lTl..¨Ð× */
	$"8D45 5D56 0839 8239 42AC BD7F 95F3 CE84"            /* �E]V.9‚9B¬½.•.΄ */
	$"CABC 564D 501F 0136 8653 75F0 E2AA C1B9"            /* ʼVMP..6†Su..ªÁ¹ */
	$"7649 6C5E 2A7F B665 70AF 8143 6183 5367"            /* vIl^*.¶ep¯�CaƒSg */
	$"C9AF 7ABA CE72 4682 7D37 629B 6463 9D7A"            /* ɯzºÎrF‚}7b›dc�z */
	$"3A6F BB7C 62DF EC82 8FB2 540A 3445 0F49"            /* :o»|b..‚�²T.4E.I */
	$"C8B9 99E0 EA95 7281 5830 6D8C 5771 BC96"            /* ȹ™..•r�X0mŒWq¼– */
	$"4769 955B 539E 9A86 B4B0 706D 9C71 3481"            /* Gi•[Sžš†´°pmœq4� */
	$"B26B 6FA5 8145 5C7B 4C4D B2C6 90B6 DE98"            /* ²ko¥�E\{LM²Æ�¶.˜ */
	$"5B70 5D1D 4A91 635E C2CE 6C60 A380 3E6A"            /* [p].J‘c^ÂÎl`£€>j */
	$"9886 92AD A187 8C8D 5E52 7E6E 4F6F 785D"            /* ˜†’­¡‡Œ�^R~nOox] */
	$"6386 8D82 B4E8 BEA9 C08E 5038 1705 2A5E"            /* c†�‚´.¾©ÀŽP8..*^ */
	$"6275 D5F8 BFAC CDB3 6956 7456 3459 6142"            /* buÕ.¿¬Í³iVtV4YaB */
	$"598D 8F81 B5DF AC9C B177 4147 4F44 4892"            /* Y���µ.¬œ±wAGODH’ */
	$"C59A 9CC3 A05F 3548 6248 65A1 B1CC C49B"            /* ÅšœÃ _5HbHe¡±ÌÄ› */
	$"947F 614B 3D5A 6465 7C7B 8895 90A8 ABA6"            /* ”.aK=Zde|{ˆ•�¨«¦ */
	$"B4A2 8E68 3B3F 2E1C 3E77 BDBB B4F5 E586"            /* ´¢Žh;?..>w½»´..† */
	$"695D 4927 296E 7385 CCAA 8398 9070 4568"            /* i]I')ns…̪ƒ˜�pEh */
	$"9D64 70BA 8A5D 819E 754F A4C0 6C7A 996C"            /* �dpºŠ]�žuO¤Àlz™l */
	$"4338 5B60 66B1 B5B6 EBC3 8669 5D58 172A"            /* C8[`f±µ¶.Æi]X.* */
	$"7D68 83B2 93A0 9D83 816E 8E89 71B3 8F4F"            /* }hƒ²“ �ƒ�nŽ‰q³�O */
	$"8985 4A3C 70A4 6062 C596 608B 977B 6CAE"            /* ‰…J<p¤`bÅ–`‹—{l® */
	$"B461 A6C6 3F31 6E5A 1E31 B1A4 72E3 E589"            /* ´a¦Æ?1nZ.1±¤r..‰ */
	$"99A2 8139 388A 5241 9A6F 659D 8F7F 7BB1"            /* ™¢�98ŠRAšoe��.{± */
	$"B965 99B4 535C 715C 6370 9280 89C5 6F47"            /* ¹e™´S\q\cp’€‰ÅoG */
	$"9673 4568 A9B3 74BE E951 519C 4B11 3D90"            /* –sEh©³t¾.QQœK.=� */
	$"7D56 D1CC 60B5 C85A 5795 A141 46BD 6615"            /* }VÑÌ`µÈZW•¡AF½f. */
	$"8090 5F76 BED5 8EB0 CC4D 4066 2E2A 5A97"            /* €�_v¾ÕŽ°ÌM@f.*Z— */
	$"9EA5 F3BC 6CA9 7921 3049 635D 8AC7 89AB"            /* ž¥.¼l©y!0Ic]ŠÇ‰« */
	$"E77C 68A9 8D4E 4893 6709 669B 3669 D6D2"            /* .|h©�NH“gÆf›6iÖÒ */
	$"A9D1 F989 3A86 4401 2860 5868 D0F0 89AE"            /* ©Ñ.‰:†D.(`XhÐ.‰® */
	$"F076 346C 7D54 4198 9D5B 9F9D 517D 8A6A"            /* .v4l}TA˜�[Ÿ�Q}Šj */
	$"6F86 9D68 6FB5 6D5D B197 7C9A AE86 446E"            /* o†�hoµm]±—|š®†Dn */
	$"690E 4684 5D82 DDEA 9AA6 F280 1169 6A16"            /* i.F„]‚..š¦.€.ij. */
	$"2E83 8A51 9DE7 797B D89D 678A 9D63 2D7F"            /* .ƒŠQ�.y{Ø�gŠ�c-. */
	$"811C 68B4 7C85 BDC4 8269 9D62 2E71 6B64"            /* �.h´|…½Ä‚i�b.qkd */
	$"A5AD 8E8A B69A 3561 8C43 5597 8F70 89C3"            /* ¥­ŽŠ¶š5aŒCU—�p‰Ã */
	$"8152 B599 4C91 A763 4A85 9125 54CE 7658"            /* �Rµ™L‘§cJ…‘%TÎvX */
	$"D0D0 7162 A480 175E 9F56 7ED0 A673 91A8"            /* ÐÐqb¤€.^ŸV~Цs‘¨ */
	$"461B 7D70 3E96 C8A2 99C5 B452 618B 3C49"            /* F.}p>–È¢™Å´Ra‹<I */
	$"865F 5D8A 9A6C 62C4 A85E C7DA 6E6A 906C"            /* †_]ŠšlbĨ^Ç.nj�l */
	$"142A 8044 50DC BE7F C6E1 762C 8287 125D"            /* .*€DP.¾.Æ.v,‚‡.] */
	$"CD7E 62C1 CB53 3AA0 6E1A 7EA3 6886 C0A8"            /* Í~bÁËS: n.~£h†À¨ */
	$"6996 C35A 5EBE 7536 6C77 412D 7A90 66C3"            /* i–ÃZ^¾u6lwA-z�fà */
	$"F1A2 BEDB 813A 4851 0D1C 9678 53D2 F39C"            /* .¢¾.�:HQÂ.–xSÒ.œ */
	$"83CC AC2D 5B99 2D30 9980 4382 DC8B 57DA"            /* ƒÌ¬-[™-0™€C‚.‹W. */
	$"C83B 6EAD 530D 589F 5062 EABD 81CC C162"            /* È;n­SÂXŸPb.½�ÌÁb */
	$"4465 4F15 5F96 548B E9B1 7CA6 BE71 4D8E"            /* DeO._–T‹.±|¦¾qMŽ */
	$"6A36 7978 436B A389 66BB DE66 78CE 6D24"            /* j6yxCk£‰f».fxÎm$ */
	$"658C 4C40 C5C2 54A7 D45C 3E76 6B2D 5ECA"            /* eŒL@ÅÂT§Ô\>vk-^Ê */
	$"8669 EAD3 5971 AB6E 1757 9541 4DA4 8164"            /* †i.ÓYq«n.W•AM¤�d */
	$"95B3 9492 D4B2 6EA0 8625 2B4D 3D2D 76C6"            /* •³”’Ô²n †%+M=-vÆ */
	$"9BAE F6B9 8091 6B3E 4974 6344 AEC8 4E67"            /* ›®.¹€‘k>ItcD®ÈNg */
	$"B67A 3A6D B57B 5DCD B955 83A5 6043 859C"            /* ¶z:mµ{]͹Uƒ¥`C…œ */
	$"4F71 BD68 438B 8652 65C0 BA71 B0D3 7353"            /* Oq½hC‹†ReÀºq°ÓsS */
	$"5F51 4348 7780 91D2 AB80 A886 4E56 6B6D"            /* _QCHw€‘Ò«€¨†NVkm */
	$"608F B37F 8DAE 7667 8074 5D6A 9471 4D97"            /* `�³.�®vg€t]j”qM— */
	$"9D56 79C4 B171 92CF 7633 6B5D 2E4D 7884"            /* �Vyıq’Ïv3k].Mx„ */
	$"88C0 D691 99B5 714E 6068 5950 8693 6486"            /* ˆÀÖ‘™µqN`hYP†“d† */
	$"A689 7F86 9790 7478 7675 785D 72A3 917E"            /* ¦‰.†—�txvux]r£‘~ */
	$"959D 815C 5D58 486A 8484 ADD1 C9A9 9595"            /* •��\]XHj„„­ÑÉ©•• */
	$"5F29 474A 2B4E 8A9B 84A1 DDB7 8DB1 AA86"            /* _)GJ+NŠ›„¡.·�±ª† */
	$"6D57 563E 2D42 496F A2AC C0D1 D1B9 7864"            /* mWV>-BIo¢¬ÀÑѹxd */
	$"653B 3754 728D 91A3 AD88 7371 6C60 5283"            /* e;7Tr�‘£­ˆsql`Rƒ */
	$"A889 92AA 9C89 6E6E 776A 7472 6B82 7060"            /* ¨‰’ªœ‰nnwjtrk‚p` */
	$"6D6E 909B 8EBA C1A1 916F 5E48 2F4E 5D6C"            /* mn�›ŽºÁ¡‘o^H/N]l */
	$"9AAC BEAB 889C 7F4C 5A6B 777A 84A2 918D"            /* š¬¾«ˆœ.LZkwz„¢‘� */
	$"9165 6C81 6C6E 6F87 9063 748F 7A85 91A0"            /* ‘el�lno‡�ct�z…‘  */
	$"AA90 9D8A 5059 4E39 575E 7EAE B1B5 ADAE"            /* ª��ŠPYN9W^~®±µ­® */
	$"A96B 5D6F 5A5C 616B 8177 7F82 7591 9589"            /* ©k]oZ\ak�w.‚u‘•‰ */
	$"959B A086 7189 6A56 7766 5D75 7F83 6C79"            /* •› †q‰jVwf]u.ƒly */
	$"9C89 8EA5 A0AE A280 735B 5247 314E 737E"            /* œ‰Ž¥ ®¢€s[RG1Ns~ */
	$"94AB BCBA A99D 887A 7461 5E66 625F 6472"            /* ”«¼º©�ˆzta^fb_dr */
	$"747B 9B9C 93A4 A796 7A68 736D 5E6C 8297"            /* t{›œ“¤§–zhsm^l‚— */
	$"9885 807A 695D 525B 768B 9BAA B7B5 A48C"            /* ˜…€zi]R[v‹›ª·µ¤Œ */
	$"756A 554D 615C 5976 827C 7E94 AA96 96B6"            /* ujUMa\Yv‚|~”ª––¶ */
	$"A48B 8267 554E 4F51 578C AE97 9DAF 9A75"            /* ¤‹‚gUNOQWŒ®—�¯šu */
	$"6364 585A 8592 93B1 B69C 7F75 643D 4B62"            /* cdXZ…’“±¶œ.ud=Kb */
	$"4C67 9696 97A9 BFAB 869F 9E69 665E 4549"            /* Lg––—©¿«†Ÿžif^EI */
	$"4D56 5B7C BCB0 A2CF C294 8272 5739 4F67"            /* MV[|¼°¢Ï”‚rW9Og */
	$"4C6C A292 8C9F 9F84 7A97 8260 8A91 6B72"            /* Ll¢’ŒŸŸ„z—‚`Š‘kr */
	$"8A81 5D69 9271 648E 8277 8D8F 8380 A5A8"            /* Š�]i’qdŽ‚w��ƒ€¥¨ */
	$"7180 9B6F 5B63 5B52 5A7A 807B A7B5 A2AD"            /* q€›o[c[RZz€{§µ¢­ */
	$"A68C 817E 6A4B 5464 4A55 8383 7C99 B5A6"            /* ¦Œ�~jKTdJUƒƒ|™µ¦ */
	$"96A5 9271 817D 5459 8286 6068 937D 6483"            /* –¥’q�}TY‚†`h“}dƒ */
	$"816A 819F 9688 A1AB 867E 8767 566B 6856"            /* �j�Ÿ–ˆ¡«†~‡gVkhV */
	$"6581 7E78 8F9A 8C8E 9892 8D8E 7A70 8780"            /* e�~x�šŒŽ˜’�Žzp‡€ */
	$"565E 8B80 5B73 8E70 6691 8765 90B7 978E"            /* V^‹€[sŽpf‘‡e�·—Ž */
	$"B4AA 7673 7941 285B 623E 65AD A793 C4DA"            /* ´ªvsyA([b>e­§“Ä. */
	$"A18A A082 4E55 5836 4A78 655F 9CB9 9B9E"            /* ¡Š ‚NUX6Jxe_œ¹›ž */
	$"B9A2 818E 814C 5375 5E51 7C8F 7B8F B08D"            /* ¹¢�Ž�LSu^Q|�{�°� */
	$"6897 9F52 5B9E 8155 8AB3 7E6A 9E88 5070"            /* h—ŸR[ž�UŠ³~jžˆPp */
	$"814C 5699 9668 99D6 9D7A AA97 5053 784C"            /* �LV™–h™Ö�zª—PSxL */
	$"236C 9462 7FC0 B09D B7B4 7C73 9158 2A64"            /* #l”b.À°�·´|s‘X*d */
	$"6C41 639A 9783 A7C0 877E A26E 4D7E 875E"            /* lAcš—ƒ§À‡~¢nM~‡^ */
	$"69AA A067 91A0 535A 8863 3D70 A97B 71C6"            /* iª g‘ SZˆc=p©{qÆ */
	$"B782 A9B3 795C 8279 223E 874A 3D93 A889"            /* ·‚©³y\‚y">‡J=“¨‰ */
	$"98D6 C07F ACA9 4D59 7E55 395C 8869 62A4"            /* ˜ÖÀ.¬©MY~U9\ˆib¤ */
	$"8F6B A2A6 787D A7A2 687F A467 5F88 6751"            /* �k¢¦x}§¢h.¤g_ˆgQ */
	$"7084 6457 9B96 639E B789 92AE 9D68 6E92"            /* p„dW›–cž·‰’®�hn’ */
	$"472A 7F73 4675 ADA2 7AA8 C36E 76AA 6A4B"            /* G*.sFu­¢z¨ÃnvªjK */
	$"7D90 6456 988F 5585 9B6A 7298 946A 79AE"            /* }�dV˜�U…›jr˜”jy® */
	$"8162 968F 6D73 7F72 5C78 7F51 7AA5 808A"            /* �b–�ms.r\x.Qz¥€Š */
	$"ADA8 9385 8D6A 476C 5A39 6C8B 8087 A9BB"            /* ­¨“…�jGlZ9l‹€‡©» */
	$"8D8C B278 5484 804C 518C 854F 7CA8 7D7B"            /* �Œ²xT„€LQŒ…O|¨}{ */
	$"9C8F 737A 916C 5992 926F 8BA9 9975 7988"            /* œ�sz‘lY’’o‹©™uyˆ */
	$"5340 6959 507C 97A0 A3B8 BFA1 9C8B 6368"            /* S@iYP|— £¸¿¡œ‹ch */
	$"5E38 405A 6564 769E A5A6 BCB0 9C9A 8D68"            /* ^8@Zedvž¥¦¼°œš�h */
	$"4A63 6A42 5C8E 8178 92A2 7F68 9184 5B80"            /* JcjB\Ž�x’¢.h‘„[€ */
	$"9B8D 8A95 A086 717C 6150 6761 566A 8A96"            /* ›�Š• †q|aPgaVjŠ– */
	$"8397 BBA8 9599 907D 6556 4E4D 5559 7496"            /* ƒ—»¨•™�}eVNMUYt– */
	$"93A3 BDAD 9586 816F 4C5C 7161 7087 8B8D"            /* “£½­•†�oL\qap‡‹� */
	$"8C94 8370 8F87 5B75 927D 6677 937F 7391"            /* Œ”ƒp�‡[u’}fw“.s‘ */
	$"8C7B 8281 7466 6E79 6F7C 9092 9A99 9485"            /* Œ{‚�tfnyo|�’š™”… */
	$"7073 624E 6670 7686 8599 A591 8786 9182"            /* psbNfpv†…™¥‘‡†‘‚ */
	$"5C75 8B67 6378 786E 6F88 8677 939C 8383"            /* \u‹gcxxnoˆ†w“œƒƒ */
	$"918C 797E 9175 6C87 7458 6172 6756 7E9F"            /* ‘Œy~‘ul‡tXargV~Ÿ */
	$"8F9E B5AF A88E 7C73 5B58 4B43 666F 7289"            /* �žµ¯¨Ž|s[XKCfor‰ */
	$"909E A19C 9F8D 8B8F 6F6E 7761 6175 7A6C"            /* �ž¡œŸ�‹�onwaauzl */
	$"7399 8665 8390 746B 87A0 8988 A997 8184"            /* s™†eƒ�tk‡ ‰ˆ©—�„ */
	$"6E59 545F 604B 749E 8493 B3A6 9995 9681"            /* nYT_`Ktž„“³¦™•–� */
	$"626F 6A4E 5D63 6A80 8290 9EA5 A488 8589"            /* bojN]cj€‚�ž¥¤ˆ…‰ */
	$"6456 636D 6F73 9198 8DA3 916B 7B7D 6153"            /* dVcmos‘˜�£‘k{}aS */
	$"6F8F 757B AC96 8098 9478 6374 7D57 5E7C"            /* o�u{¬–€˜”xct}W^| */
	$"6F7A 9393 969F AB91 7486 7342 4D64 6264"            /* oz““–Ÿ«‘t†sBMdbd */
	$"7F9F A0A6 AF91 8D8F 6B5D 646A 6564 8785"            /* .Ÿ ¦¯‘��k]djed‡… */
	$"6B90 9F7B 788B 9177 7293 7F6F 9587 6E86"            /* k�Ÿ{x‹‘wr“.o•‡n† */
	$"9374 5E7C 824D 5688 7E71 92B0 A79D AE9A"            /* “t^|‚MVˆ~q’°§�®š */
	$"7279 6D47 455A 615D 7999 8792 BEA6 8897"            /* rymGEZa]y™‡’¾¦ˆ— */
	$"9C81 676E 6D56 676E 5876 947F 7B9B A47D"            /* œ�gnmVgnXv”.{›¤} */
	$"719D 9064 7D97 7F71 8988 606A 8564 577D"            /* q��d}—.q‰ˆ`j…dW} */
	$"8577 8BA8 917D A6A0 676C 8977 5964 8075"            /* …w‹¨‘}¦ gl‰wYd€u */
	$"6C87 867D 918E 7D87 917C 677D 8C6C 6E92"            /* l‡†}‘Ž}‡‘|g}Œln’ */
	$"8878 8C8C 6E6C 7D6E 5F76 837E 93A8 9381"            /* ˆxŒŒnl}n_vƒ~“¨“� */
	$"9C9B 6151 7972 4D5D 8887 7A9A AB8E 909F"            /* œ›aQyrM]ˆ‡zš«Ž�Ÿ */
	$"8170 7B6D 575C 746F 6484 9D8F 93A2 9B85"            /* �p{mW\tod„��“¢›… */
	$"7C82 755B 6276 7778 7B7F 9193 7972 8385"            /* |‚u[bvwx{.‘“yrƒ… */
	$"7175 8B8A 8591 9385 7F7D 6D64 6B65 5C6C"            /* qu‹Š…‘“….}mdke\l */
	$"8085 8295 B1A1 92A8 9B6E 6671 613D 446F"            /* €…‚•±¡’¨›nfqa=Do */
	$"7370 8CA1 A8A9 A299 867D 7B62 566B 7368"            /* spŒ¡¨©¢™†}{bVksh */
	$"738F 8B7B 8B97 8070 7D82 716E 8189 8489"            /* s�‹{‹—€p}‚qn�‰„‰ */
	$"9497 8678 7A71 655D 5668 7F7D 889D A6A4"            /* ”—†xzqe]Vh.}ˆ�¦¤ */
	$"9D92 8074 755F 526B 7165 7A94 8A7C 94A3"            /* �’€tu_Rkqez”Š|”£ */
	$"8375 8F8D 6868 8A7A 5D7D 9278 758F 8B70"            /* ƒu��hhŠz]}’xu�‹p */
	$"7E8D 6362 918A 6E85 A394 7986 8C65 6076"            /* ~�cb‘Šn…£”y†Œe`v */
	$"6C60 758E 8B8A 9992 888F 846F 767F 6861"            /* l`uŽ‹Š™’ˆ�„ov.ha */
	$"7B79 637B 9181 849C 9888 8F94 6E5E 8073"            /* {yc{‘�„œ˜ˆ�”n^€s */
	$"516C 8F7D 6F93 A071 72A1 825E 86A0 8074"            /* Ql�}o“ qr¡‚^† €t */
	$"998F 6271 805B 5379 806A 81AB 9684 A4A3"            /* ™�bq€[Sy€j�«–„¤£ */
	$"8077 8378 5C67 7158 6581 787E 969A 9497"            /* €wƒx\gqXe�x~–š”— */
	$"9C82 7085 7555 6C82 7876 8D92 7C80 8D70"            /* œ‚p…uUl‚xv�’|€�p */
	$"6480 7E68 7B9E 8F7A 9DA2 7573 8A75 5666"            /* d€~h{ž�z�¢usŠuVf */
	$"7E62 5B89 8F7B 8FA5 9B8D 918F 6F6B 7961"            /* ~b[‰�{�¥›�‘�okya */
	$"5673 8076 7C93 9481 888E 7B78 8079 737E"            /* Vs€v|“”�ˆŽ{x€ys~ */
	$"837B 7E87 807B 8280 7474 7D75 697B 8A82"            /* ƒ{~‡€{‚€tt}ui{Š‚ */
	$"8998 9790 8D83 6D60 695F 506D 8A86 8FA8"            /* ‰˜—��ƒm`i_PmŠ†�¨ */
	$"AD99 8C8D 7B60 6269 5B5F 7782 8089 9999"            /* ­™Œ�{`bi[_w‚€‰™™ */
	$"9096 927E 7C7E 6559 6971 6B71 8C99 8F91"            /* �–’~|~eYiqkqŒ™�‘ */
	$"9889 7975 7169 717F 8083 8E90 837A 7B70"            /* ˜‰yuqiq.€ƒŽ�ƒz{p */
	$"6573 7470 8390 8B89 8B90 857D 8178 747F"            /* estpƒ�‹‰‹�…}�xt. */
	$"7365 6E79 776C 7E97 8C89 9993 8180 7D6C"            /* senywl~—Œ‰™“�€}l */
	$"6877 756D 808B 807B 8483 7276 8478 788F"            /* hwum€‹€{„ƒrv„xx� */
	$"9385 808B 8C73 7178 6A71 776A 7384 8880"            /* “…€‹Œsqxjqwjs„ˆ€ */
	$"8499 9583 8E8A 7675 7168 666F 7A75 7F92"            /* „™•ƒŽŠvuqhfozu.’ */
	$"8B85 8B89 7B77 8279 6B84 8D78 7885 8576"            /* ‹…‹‰{w‚yk„�xx……v */
	$"727B 7375 8475 748E 9085 838E 947B 747D"            /* r{su„utŽ�…ƒŽ”{t} */
	$"6B62 6B6C 707C 8B94 929C 9986 8378 6367"            /* kbklp|‹”’œ™†ƒxcg */
	$"6F67 657E 9185 8192 9289 807C 7A78 7D73"            /* oge~‘…�’’‰€|zx}s */
	$"677B 8373 7688 8E82 8193 806C 7E77 6673"            /* g{ƒsvˆŽ‚�“€l~wfs */
	$"8184 8590 978B 8380 6A65 6C67 6374 8E93"            /* �„…�—‹ƒ€jelgctŽ“ */
	$"8A95 9E94 847C 7572 7168 606F 8073 778F"            /* Š•ž”„|urqh`o€sw� */
	$"908A 949A 8979 8078 5F65 7572 7887 8F8F"            /* �Š”š‰y€x_eurx‡�� */
	$"8E90 7C6A 7974 5A69 8B8E 808F A695 8182"            /* Ž�|jytZi‹Ž€�¦•�‚ */
	$"7768 6A68 6268 7C80 8090 9793 9597 8B7B"            /* whjhbh|€€�—“•—‹{ */
	$"7A7A 645B 6B6E 6C7C 868C 959A 8B80 8D87"            /* zzd[knl|†Œ•š‹€�‡ */
	$"6368 8478 6779 8980 7C88 8476 8087 7671"            /* ch„xgy‰€|ˆ„v€‡vq */
	$"8586 757D 8D80 798B 896F 7388 7862 7688"            /* …†u}�€y‹‰osˆxbvˆ */
	$"7C7C 8A8E 8D89 8077 7C7D 6865 7D80 767E"            /* ||ŠŽ�‰€w|}he}€v~ */
	$"8C8A 8187 8979 7B84 766C 7E80 717C 897B"            /* ŒŠ�‡‰y{„vl~€q|‰{ */
	$"7991 8D6E 7791 7B61 768C 7C77 8F93 8485"            /* y‘�nw‘{avŒ|w�“„… */
	$"8672 6876 6E5D 7290 8480 9A9D 8782 8978"            /* †rhvn]r�„€š�‡‚‰x */
	$"6774 7769 6F80 7F80 8580 818C 8978 798A"            /* gtwio€.€…€�Œ‰xyŠ */
	$"846C 7487 7E73 8087 7F81 8474 6C7E 7763"            /* „lt‡~s€‡.�„tl~wc */
	$"7793 8781 9DA0 827F 8973 5563 7565 6281"            /* w“‡�� ‚.‰sUcueb� */
	$"9389 8E9B 938A 8D81 6C73 7E67 5B76 8072"            /* “‰Ž›“Š��ls~g[v€r */
	$"7B90 928E 8F8D 817C 766B 6974 7677 8891"            /* {�’Ž���|vkitvwˆ‘ */
	$"898A 9387 6C6E 7C6C 5E76 867F 8795 8E8A"            /* ‰Š“‡ln|l^v†.‡•ŽŠ */
	$"9487 6D71 8068 5770 8474 7796 9C8C 8E97"            /* ”‡mq€hWp„tw–œŒŽ— */
	$"856F 7473 5F62 7779 7B8B 918D 9193 8073"            /* …ots_bwy{‹‘�‘“€s */
	$"7E7B 6869 7A7E 797E 848C 8C84 8080 8277"            /* ~{hiz~y~„ŒŒ„€€‚w */
	$"6C74 7F75 7589 8E82 8992 8070 7977 6668"            /* lt.uu‰Ž‚‰’€pywfh */
	$"7A7A 7C8E 9189 9094 826F 7A82 6C5F 7882"            /* zz|Ž‘‰�”‚oz‚l_x‚ */
	$"7170 8389 8085 8E88 8589 8077 7A78 6F73"            /* qpƒ‰€…Žˆ…‰€wzxos */
	$"7A7A 7E83 8580 7C80 7F77 7780 8888 8587"            /* zz~ƒ…€|€.ww€ˆˆ…‡ */
	$"8E88 7569 6F76 6865 7E8B 8087 9490 8888"            /* Žˆuiovhe~‹€‡”�ˆˆ */
	$"8479 767A 746D 747A 7778 8286 8185 9087"            /* „yvztmtzwx‚†�…�‡ */
	$"7780 8773 697D 877D 7C88 8D84 7977 7774"            /* w€‡si}‡}|ˆ�„ywwt */
	$"7272 7884 8B8B 898C 8D80 7577 746C 7279"            /* rrx„‹‹‰Œ�€uwtlry */
	$"787D 8289 8C85 8489 867A 7278 7C6F 6D7B"            /* x}‚‰Œ…„‰†zrx|om{ */
	$"8481 8088 9089 807D 7972 7374 7279 8985"            /* „�€ˆ�‰€}yrstry‰… */
	$"808C 8E80 7980 796A 717D 7572 828E 8A84"            /* €ŒŽ€y€yjq}ur‚ŽŠ„ */
	$"8E93 8379 7B6F 696C 6869 7C8D 898B 9EA0"            /* Ž“ƒy{oilhi|�‰‹ž  */
	$"8A82 8174 6764 6769 717D 8287 8E8F 8E8B"            /* Š‚�tgdgiq}‚‡Ž�Ž‹ */
	$"8980 777F 7967 7280 7972 808E 847F 8980"            /* ‰€w.ygr€yr€Ž„.‰€ */
	$"757B 766D 7987 8680 8F9B 8778 8077 6464"            /* u{vmy‡†€�›‡x€wdd */
	$"7270 6F87 9487 8C99 8E80 8080 7171 7B70"            /* rpo‡”‡Œ™Ž€€€qq{p */
	$"6A7D 8074 798A 8F81 8590 837B 7E73 7177"            /* j}€tyŠ��…�ƒ{~sqw */
	$"7B78 798D 8D7A 8488 7370 7A79 707C 8E85"            /* {xy��z„ˆspzyp|Ž… */
	$"7E8E 8F7E 797E 7970 787C 727B 8980 7884"            /* ~Ž�~y~ypx|r{‰€x„ */
	$"8E81 798B 8774 797D 7272 7C7F 7880 9087"            /* Ž�y‹‡ty}rr|.x€�‡ */
	$"7D87 8275 7679 7877 8189 7F80 8C80 7478"            /* }‡‚uvyxw�‰.€Œ€tx */
	$"7A75 757F 807E 8C8E 8081 8A82 7273 7D71"            /* zuu.€~ŒŽ€�Š‚rs}q */
	$"6B79 7979 828E 8D87 9094 7E79 7E71 6A6D"            /* kyyy‚Ž�‡�”~y~qjm */
	$"7374 7787 8880 8C91 807B 8382 7776 807D"            /* stw‡ˆ€Œ‘€{ƒ‚wv€} */
	$"7780 8075 7982 7F75 7C84 7B79 8182 8087"            /* w€€uy‚.u|„{y�‚€‡ */
	$"8C84 818B 806D 7375 6867 7680 7F88 9992"            /* Œ„�‹€msuhgv€.ˆ™’ */
	$"8892 8974 7279 7368 7280 787C 8B84 7C8A"            /* ˆ’‰tryshr€x|‹„|Š */
	$"8F7D 7887 816D 727F 7573 868A 808A 9481"            /* �}x‡�mr.us†Š€Š”� */
	$"747D 7762 677B 7A77 8E9A 8B8C 9582 6D75"            /* t}wbg{zwŽš‹Œ•‚mu */
	$"7867 667B 7E76 8790 8084 9587 7381 8B75"            /* xgf{~v‡�€„•‡s�‹u */
	$"6A7B 7C6B 7688 7D7D 928F 7E83 8975 6A7C"            /* j{|kvˆ}}’�~ƒ‰uj| */
	$"7D6C 7C90 8079 8F8B 7073 8778 6880 8C7C"            /* }l|�€y�‹ps‡xh€Œ| */
	$"8092 8475 8787 6A6D 8479 6779 8A79 7892"            /* €’„u‡‡jm„ygyŠyx’ */
	$"8E7B 8C95 7E75 8179 626A 7B6E 6D89 8C80"            /* Ž{Œ•~u�ybj{nm‰Œ€ */
	$"8D99 877B 8986 6D6F 7F74 6F80 7E73 818C"            /* �™‡{‰†mo.to€~s�Œ */
	$"7B77 8C88 737B 897D 7587 8974 7B8E 7B6D"            /* {wŒˆs{‰}u‡‰t{Ž{m */
	$"7E7F 6B70 8580 748E 977F 8192 806C 7882"            /* ~.kp…€tŽ—.�’€lx‚ */
	$"6F6A 8185 7781 8B7E 7987 8373 7B87 7B74"            /* oj�…w�‹~y‡ƒs{‡{t */
	$"8081 7880 877F 7E89 8376 7C7C 6D70 7D7A"            /* €�x€‡.~‰ƒv||mp}z */
	$"798A 9386 8693 866E 767B 6B69 7B80 7785"            /* yŠ“††“†nv{ki{€w… */
	$"9281 7B8E 8871 7A88 7B6F 7E81 7376 857E"            /* ’�{Žˆqzˆ{o~�sv…~ */
	$"7785 8C82 8086 8076 7779 7479 8481 8088"            /* w…Œ‚€†€vwyty„�€ˆ */
	$"877D 7A7D 7372 7E7D 7C8B 9083 818C 806A"            /* ‡}z}sr~}|‹�ƒ�Œ€j */
	$"717B 6C6B 8082 7B86 968B 8090 8F77 7780"            /* q{lk€‚{†–‹€��ww€ */
	$"7064 7077 6A73 8E8B 8193 9B8A 8085 7D6C"            /* pdpwjsŽ‹�“›Š€…}l */
	$"6E72 6E75 8180 808A 8D80 7F87 7E73 7E80"            /* nrnu�€€Š�€.‡~s~€ */
	$"757A 8780 7786 8A77 7987 786E 8081 6F75"            /* uz‡€w†Šwy‡xn€�ou */
	$"8E88 7586 9580 7686 816F 7582 756F 8586"            /* Žˆu†•€v†�ou‚uo…† */
	$"757F 8F80 7385 8973 7586 7E72 8087 7A7B"            /* u.�€s…‰su†~r€‡z{ */
	$"8A85 7880 8071 757D 7473 868D 8085 978A"            /* Š…x€€qu}ts†�€…—Š */
	$"7580 7F6A 6A79 756F 8590 8084 9688 7582"            /* u€.jjyuo…�€„–ˆu‚ */
	$"8871 6D81 7C6A 788A 7974 8C90 7C82 9080"            /* ˆqm�|jxŠytŒ�|‚�€ */
	$"7481 7B68 7385 7A71 8891 7C7B 8A7F 717E"            /* t�{hs…zqˆ‘|{Š.q~ */
	$"8278 7D8A 857A 8484 6F71 7F73 6D81 8C80"            /* ‚x}Š…z„„oq.sm�Œ€ */
	$"8395 8C79 8489 7571 7D78 6D7A 8072 788C"            /* ƒ•Œy„‰uq}xmz€rxŒ */
	$"8679 8897 847A 8983 6C71 7D71 6C80 877A"            /* †yˆ—„z‰ƒlq}ql€‡z */
	$"8393 8479 8583 7175 827B 7384 8A7B 7C8B"            /* ƒ“„y…ƒqu‚{s„Š{|‹ */
	$"8476 7C80 7676 7F79 7584 897C 7F8F 8978"            /* „v|€vv.yu„‰|.�‰x */
	$"8085 7371 7C78 717C 8680 808B 867A 8082"            /* €…sq|xq|†€€‹†z€‚ */
	$"7573 807E 7580 8C80 7A89 8978 7680 776F"            /* us€~u€Œ€z‰‰xv€wo */
	$"797B 7681 8D88 848D 8E7C 777D 7269 7179"            /* y{v��ˆ„�Ž|w}riqy */
	$"777B 898E 868B 8F82 7B7F 7770 7478 7376"            /* w{‰Ž†‹�‚{.wptxsv */
	$"8483 7B85 8F86 8185 857C 7877 7171 787A"            /* „ƒ{…�†�……|xwqqxz */
	$"7980 8B89 8289 8879 7880 7A73 7B85 7F7B"            /* y€‹‰‚‰ˆyx€zs{….{ */
	$"8582 777A 7B79 7B7E 8182 868B 817E 8582"            /* …‚wz{y{~�‚†‹�~…‚ */
	$"7674 7B7B 7378 7E7A 7D84 8484 898A 8482"            /* vt{{sx~z}„„„‰Š„‚ */
	$"8178 7276 7471 7780 8584 898F 857D 807A"            /* �xrvtqw€…„‰�…}€z */
	$"7372 767A 7B85 867F 878D 7F77 7D7D 7574"            /* srvz{…†.‡�.w}}ut */
	$"7D7C 7780 8580 8085 8880 7E82 7B77 7C7A"            /* }|w€…€€…ˆ€~‚{w|z */
	$"767B 827E 7B87 867A 7F85 7F7A 7C80 7F7F"            /* v{‚~{‡†z.….z|€.. */
	$"817C 7B83 7F76 7A80 7B78 8084 7B80 8C83"            /* �|{ƒ.vz€{x€„{€Œƒ */
	$"7A84 8576 737D 776E 7B83 7B80 8E88 8088"            /* z„…vs}wn{ƒ{€Žˆ€ˆ */
	$"8B77 717E 7B6D 7180 7D7A 868B 8085 9183"            /* ‹wq~{mq€}z†‹€…‘ƒ */
	$"7980 8073 727A 7471 8185 7D85 8F88 8083"            /* y€€srztq�…}…�ˆ€ƒ */
	$"8074 747B 7776 8284 7E84 8D7E 7280 806E"            /* €tt{wv‚„~„�~r€€n */
	$"7384 817B 898E 7D7E 8C80 6D78 8073 7181"            /* s„�{‰Ž}~Œ€mx€sq� */
	$"8076 838E 807B 8D8A 777A 8477 6B7A 7F73"            /* €vƒŽ€{�Šwz„wkz.s */
	$"7B8A 8581 8D8A 7979 8074 6B77 7D7A 828D"            /* {Š…��Šyy€tkw}z‚� */
	$"8583 8D89 7677 7F75 6F7A 7C73 7D8B 807B"            /* …ƒ�‰vw.uoz|s}‹€{ */
	$"8D8E 7B7F 8A7C 6E7B 806E 7184 8077 8790"            /* �Ž{.Š|n{€nq„€w‡� */
	$"807C 8B84 7277 8077 7583 8278 838D 8075"            /* €|‹„rw€wuƒ‚xƒ�€u */
	$"8283 7576 807C 7A84 867E 8188 7F79 7F7A"            /* ‚ƒuv€|z„†~�ˆ.y.z */
	$"7478 807A 7A87 8880 848B 7E75 7D7D 7072"            /* tx€zz‡ˆ€„‹~u}}pr */
	$"7D7B 7A86 8780 858E 8276 8082 7372 7D7A"            /* }{z†‡€…Ž‚v€‚sr}z */
	$"747F 8780 7E8A 897D 8083 7975 7C7C 767B"            /* t.‡€~Š‰}€ƒyu||v{ */
	$"8680 7D87 8479 7A80 7C75 7A82 8081 8480"            /* †€}‡„yz€|uz‚€�„€ */
	$"8182 7D78 797E 7B79 8080 7D80 8480 7C80"            /* �‚}xy~{y€€}€„€|€ */
	$"837C 7B7F 7B7B 7D7B 7C80 8382 8087 857A"            /* ƒ|{.{{}{|€ƒ‚€‡…z */
	$"787C 7772 737D 8080 888C 8788 877F 7775"            /* x|wrs}€€ˆŒ‡ˆ‡.wu */
	$"7671 7179 7C80 8588 8785 8786 7C78 7B78"            /* vqqy|€…ˆ‡…‡†|x{x */
	$"7574 7A7D 7C82 8584 8783 807E 7B78 7575"            /* utz}|‚…„‡ƒ€~{xuu */
	$"7C7F 8083 8789 8680 807B 7575 7677 797E"            /* |.€ƒ‡‰†€€{uuvwy~ */
	$"8386 8484 8784 7C78 7B79 7678 7C7F 8183"            /* ƒ†„„‡„|x{yvx|.�ƒ */
	$"8483 8382 7C7B 7978 7877 7B80 8083 8786"            /* „ƒƒ‚|{yxxw{€€ƒ‡† */
	$"8483 807B 7878 7674 777B 8083 8387 8887"            /* „ƒ€{xxvtw{€ƒƒ‡ˆ‡ */
	$"8380 7B78 7776 7377 7D81 8384 8889 8380"            /* ƒ€{xwvsw}�ƒ„ˆ‰ƒ€ */
	$"807B 7575 7878 7980 8383 8787 8180 807C"            /* €{uuxxy€ƒƒ‡‡�€€| */
	$"7779 7A78 7B80 807E 8284 807E 807F 7C7C"            /* wyzx{€€~‚„€~€.|| */
	$"7D7A 7C83 817C 8086 7E78 7F7B 7579 7E7B"            /* }z|ƒ�|€†~x.{uy~{ */
	$"7D87 8782 8688 7E78 7C79 7175 7E7C 7985"            /* }‡‡‚†ˆ~x|yqu~|y… */
	$"8A80 8087 8378 7C80 787A 807C 7B84 847B"            /* Š€€‡ƒx|€xz€|{„„{ */
	$"7D86 7F76 7D80 7678 8180 7B83 8A82 8089"            /* }†.v}€vx�€{ƒŠ‚€‰ */
	$"8377 7C7E 7071 7F7C 7583 8E83 7E8D 8978"            /* ƒw|~pq.|uƒŽƒ~�‰x */
	$"7880 7872 7D7F 7780 8B81 7A87 8776 7783"            /* x€xr}.w€‹�z‡‡vwƒ */
	$"7971 7F83 7A7F 8B87 8086 8678 777C 716E"            /* yq.ƒz.‹‡€††xw|qn */
	$"7C7E 7781 918A 808B 8E79 747D 756B 757D"            /* |~w�‘Š€‹Žyt}uku} */
	$"757C 8E8A 808B 907C 7783 7869 7582 7574"            /* u|ŽŠ€‹�|wƒxiu‚ut */
	$"8A8D 8085 9083 7880 7C6E 747E 7776 878A"            /* Š�€…�ƒx€|nt~wv‡Š */
	$"7C83 8E83 7680 8074 757F 7B79 8487 7F83"            /* |ƒŽƒv€€tu.{y„‡.ƒ */
	$"8A80 7880 7C6F 7581 7874 868D 8083 9086"            /* Š€x€|ou�xt†�€ƒ�† */
	$"7980 7F70 707C 7671 828A 7F80 9089 787F"            /* y€.pp|vq‚Š.€�‰x. */
	$"8676 717F 7E75 7C87 827C 8686 7B7D 8076"            /* †vq.~u|‡‚|††{}€v */
	$"767F 7C77 7F89 8380 8989 7D7D 8076 7278"            /* v.|w.‰ƒ€‰‰}}€vrx */
	$"7773 7D86 8080 8D8A 7D80 8679 727E 8073"            /* ws}†€€�Š}€†yr~€s */
	$"7986 8079 8286 7B7B 847D 7883 857B 7C87"            /* y†€y‚†{{„}xƒ…{|‡ */
	$"8378 7E86 7975 7E7C 767B 8180 8086 8681"            /* ƒx~†yu~|v{�€€††� */
	$"8383 7C79 7C77 7279 807B 7E89 8882 8486"            /* ƒƒ|y|wry€{~‰ˆ‚„† */
	$"7E79 7C78 727A 7E79 7C88 8680 8589 8079"            /* ~y|xrz~y|ˆ†€…‰€y */
	$"807C 7276 7E7A 7982 8780 8287 8079 7C7B"            /* €|rv~zy‚‡€‚‡€y|{ */
	$"7576 7F7D 7B84 8883 8184 817A 7978 7576"            /* uv.}{„ˆƒ�„�zyxuv */
	$"7979 7E85 8585 8788 827C 7C79 7274 7977"            /* yy~………‡ˆ‚||yrtyw */
	$"7981 8583 8588 827E 807B 7277 7E7A 7982"            /* y�…ƒ…ˆ‚~€{rw~zy‚ */
	$"8882 8085 8279 797A 7673 7A7D 7D82 8887"            /* ˆ‚€…‚yyzvsz}}‚ˆ‡ */
	$"8688 857E 7B79 7270 7576 767D 8486 8788"            /* †ˆ…~{yrpuvv}„†‡ˆ */
	$"8985 827D 7676 7874 737B 8080 8086 8580"            /* ‰…‚}vvxts{€€€†…€ */
	$"8181 7A79 7D7B 797D 8180 8084 827E 7F80"            /* ��zy}{y}�€€„‚~.€ */
	$"7A76 7B7D 777A 8284 8183 8683 807D 7A77"            /* zv{}wz‚„�ƒ†ƒ€}zw */
	$"7878 777C 8082 8285 8681 8080 7C77 797A"            /* xxw|€‚‚…†�€€|wyz */
	$"7A7B 8080 8083 8380 8080 7C79 7D7D 777A"            /* z{€€€ƒƒ€€€|y}}wz */
	$"8180 7D80 8380 7E80 7D79 7C7F 7B7C 8182"            /* �€}€ƒ€~€}y|.{|�‚ */
	$"8080 8380 7A7D 7D77 787D 7E7D 8084 8281"            /* €€ƒ€z}}wx}~}€„‚� */
	$"8280 807F 7C79 7A7D 7A7A 8082 8080 8181"            /* ‚€€.|yz}zz€‚€€�� */
	$"7F7E 7D7B 7C80 7E7E 8282 8081 817D 777A"            /* .~}{|€~~‚‚€��}wz */
	$"7B76 7780 807F 8388 8782 8482 7D7A 7A75"            /* {vw€€.ƒˆ‡‚„‚}zzu */
	$"7478 7A79 7E85 8684 8787 827F 7D7A 7678"            /* txzy~…†„‡‡‚.}zvx */
	$"7A79 7B80 8283 8483 807E 7D7A 787B 7E7D"            /* zy{€‚ƒ„ƒ€~}zx{~} */
	$"7F83 8482 8281 7E7B 7B78 777A 7D7A 7E85"            /* .ƒ„‚‚�~{{xwz}z~… */
	$"8581 8586 807C 7D7A 7475 7B7A 7A81 8685"            /* …�…†€|}ztu{zz�†… */
	$"8486 827D 7D7A 7575 7B7B 7A80 8684 8385"            /* „†‚}}zuu{{z€†„ƒ… */
	$"847E 7C7B 7878 7A7A 7A80 8282 8285 8380"            /* „~|{xxzzz€‚‚‚…ƒ€ */
	$"807D 7877 7A7A 797E 8381 8385 8480 807F"            /* €}xwzzy~ƒ�ƒ…„€€. */
	$"7876 7B7B 767C 8483 8084 8781 8080 7D78"            /* xv{{v|„ƒ€„‡�€€}x */
	$"797B 7879 8080 7F81 8481 8081 807B 7C80"            /* y{xy€€.�„�€�€{|€ */
	$"7B7B 8081 7F7F 8080 7D7D 7C7A 7D80 7D7E"            /* {{€�..€€}}|z}€}~ */
	$"8484 8081 8480 7B7D 7C77 787D 7B7B 8184"            /* „„€�„€{}|wx}{{�„ */
	$"8081 8683 7D80 8078 787F 7C78 7D83 807D"            /* €�†ƒ}€€xx.|x}ƒ€} */
	$"8282 7D7D 807C 7B80 807C 8084 807D 8080"            /* ‚‚}}€|{€€|€„€}€€ */
	$"7A7A 7F7C 787F 817D 8083 8180 8181 7C7C"            /* zz.|x.�}€ƒ�€��|| */
	$"807A 787E 807A 7D85 827D 8183 7D7B 7F7B"            /* €zx~€z}…‚}�ƒ}{.{ */
	$"767C 817C 7D85 837E 8183 7C78 7E7D 757B"            /* v|�|}…ƒ~�ƒ|x~}u{ */
	$"817D 7D83 8580 8084 8079 7D7D 7679 807D"            /* �}}ƒ…€€„€y}}vy€} */
	$"7B83 8781 8085 817B 7B7C 7676 7D7D 7B83"            /* {ƒ‡�€…�{{|vv}}{ƒ */
	$"8682 8286 827B 7D7F 7676 7E7D 7980 8581"            /* †‚‚†‚{}.vv~}y€…� */
	$"8083 837B 7D80 7A79 8080 7A80 8681 7C82"            /* €ƒƒ{}€zy€€z€†�|‚ */
	$"837A 7A7E 7A77 7D81 7D80 8785 8083 847D"            /* ƒzz~zw}�}€‡…€ƒ„} */
	$"7A7D 7A74 7A7F 7B7C 8485 8183 8681 7D80"            /* z}ztz.{|„…�ƒ†�}€ */
	$"7D77 7A7D 797A 8182 7F81 8581 7D80 7D77"            /* }wz}yz�‚.�…�}€}w */
	$"7B80 7B7A 8183 7E81 8480 7B80 7F78 7A81"            /* {€{z�ƒ~�„€{€.xz� */
	$"7C78 8184 7E80 8583 7D7F 817A 7A7F 7C79"            /* |x�„~€…ƒ}.�zz.|y */
	$"7D82 807D 8383 7D7F 817B 7A7F 7F7B 7E82"            /* }‚€}ƒƒ}.�{z..{~‚ */
	$"817F 8181 7D7D 7E7B 7B80 7F7B 8083 807D"            /* �.��}}~{{€.{€ƒ€} */
	$"8281 7B7D 807B 7A80 807B 8084 807D 8282"            /* ‚�{}€{z€€{€„€}‚‚ */
	$"7B7D 817B 787E 817B 7D83 837E 8083 7F7B"            /* {}�{x~�{}ƒƒ~€ƒ.{ */
	$"7E7D 7A7D 807D 7D81 817D 8081 7E7C 7F7D"            /* ~}z}€}}��}€�~|.} */
	$"7C7F 807D 7F81 807E 807E 7B7C 7F7B 7A80"            /* |.€}.�€~€~{|.{z€ */
	$"827D 7F84 847F 8082 7D7A 7D7B 777B 807D"            /* ‚}.„„.€‚}z}{w{€} */
	$"7D83 8480 8183 807C 7E7E 7A7A 7F7E 7C80"            /* }ƒ„€�ƒ€|~~zz.~|€ */
	$"8381 8081 807E 7E7C 7A7C 807E 7E82 8381"            /* ƒ�€�€~~|z|€~~‚ƒ� */
	$"8181 7F7C 7E7C 797C 7F7C 7E82 8280 8184"            /* ��.|~|y|.|~‚‚€�„ */
	$"807C 8080 797A 807F 7B80 8481 8082 817C"            /* €|€€yz€.{€„�€‚�| */
	$"7E7E 7A79 7F80 7C80 8482 8082 827E 7C7E"            /* ~~zy.€|€„‚€‚‚~|~ */
	$"7B79 7C7E 7D80 8281 8183 817D 7F80 7B79"            /* {y|~}€‚��ƒ�}.€{y */
	$"7E7E 7B7E 8281 8083 827E 8081 7C79 7E7E"            /* ~~{~‚�€ƒ‚~€�|y~~ */
	$"797C 8381 7E83 8580 7D82 7F79 7C80 7B7B"            /* y|ƒ�~ƒ…€}‚.y|€{{ */
	$"8081 7E81 8380 7E82 807A 7C81 7C7B 8081"            /* €�~�ƒ€~‚€z|�|{€� */
	$"7E7E 8180 7E80 7F7C 7E80 7D7C 8181 7D80"            /* ~~�€~€.|~€}|��}€ */
	$"827E 7C80 807A 7B80 7E7B 8082 7F80 8380"            /* ‚~|€€z{€~{€‚.€ƒ€ */
	$"7D81 817A 7B81 807A 7F84 807D 8181 7D7D"            /* }��z{�€z.„€}��}} */
	$"807D 7B80 807D 8083 807E 8181 7B7D 817D"            /* €}{€€}€ƒ€~��{}�} */
	$"7A7E 817D 7E82 817E 8080 7D7E 807D 7B80"            /* z~�}~‚�~€€}~€}{€ */
	$"817D 7E82 817D 8081 7D7C 807E 7B7E 817E"            /* �}~‚�}€�}|€~{~�~ */
	$"7E83 817E 8182 7D7C 807E 797D 827F 7D81"            /* ~ƒ�~�‚}|€~y}‚.}� */
	$"8380 7F81 7F7C 7E7E 7B7D 817F 7D81 8380"            /* ƒ€.�.|~~{}�.}�ƒ€ */
	$"7F81 807C 7D7E 7C7C 7F80 7E81 8281 8181"            /* .�€|}~||.€~�‚��� */
	$"807D 7E7E 7A7B 807E 7C80 8381 8082 817D"            /* €}~~z{€~|€ƒ�€‚�} */
	$"7E7E 7C7B 7F7F 7D80 8380 7E82 817C 7D80"            /* ~~|{..}€ƒ€~‚�|}€ */
	$"7D7B 7E80 7E7E 8282 8081 817E 7D7E 7C7A"            /* }{~€~~‚‚€��~}~|z */
	$"7D80 7D7E 8282 8081 8280 7E7E 7D7C 7D7E"            /* }€}~‚‚€�‚€~~}|}~ */
	$"7D7E 8180 8082 827F 7E80 7E7B 7D80 7D7D"            /* }~�€€‚‚.~€~{}€}} */
	$"8181 8081 8280 7E80 7E7C 7D80 7D7C 8081"            /* ��€�‚€~€~|}€}|€� */
	$"7E7F 8281 7E80 807D 7D80 7E7D 7F80 7F7F"            /* ~.‚�~€€}}€~}.€.. */
	$"8180 7E80 807D 7D80 7F7D 8081 8080 8080"            /* �€~€€}}€.}€�€€€€ */
	$"7E7F 7F7D 7D80 7E7D 8081 7F7F 8180 7D7F"            /* ~..}}€~}€�..�€}. */
	$"807D 7D80 807D 8081 807E 8080 7D7E 807D"            /* €}}€€}€�€~€€}~€} */
	$"7C80 807E 7E81 817E 8080 7E7D 7E7E 7D7E"            /* |€€~~��~€€~}~~}~ */
	$"807E 7F80 8080 8080 7E7E 807E 7D7E 807E"            /* €~.€€€€€~~€~}~€~ */
	$"7F80 807F 8080 7D7E 807E 7D80 817E 7F82"            /* .€€.€€}~€~}€�~.‚ */
	$"817E 8080 7D7D 7E7E 7C7E 807F 7E81 8180"            /* �~€€}}~~|~€.~��€ */
	$"8080 7E7D 7E7E 7C7D 8080 7E80 8180 8080"            /* €€~}~~|}€€~€�€€€ */
	$"7F7D 7E7D 7C7D 807F 7F81 8180 8080 7F7D"            /* .}~}|}€..��€€€.} */
	$"7E7D 7C7D 7F7E 7E81 8180 8081 807D 7E7F"            /* ~}|}.~~��€€�€}~. */
	$"7C7C 807F 7D80 8280 8081 807E 7E7E 7D7C"            /* ||€.}€‚€€�€~~~}| */
	$"7E7F 7D7F 8181 8081 817F 7E7E 7D7C 7D7E"            /* ~.}.��€��.~~}|}~ */
	$"7E7E 8080 8081 8080 7F7F 7D7D 7E7E 7D7F"            /* ~~€€€�€€..}}~~}. */
	$"8080 8080 807F 7F80 7D7D 7E7F 7D7E 8080"            /* €€€€€..€}}~.}~€€ */
	$"8080 817F 7F80 7E7D 7D7F 7D7D 8080 8080"            /* €€�..€~}}.}}€€€€ */
	$"8180 7F80 807E 7E7F 7E7E 7F80 8080 8080"            /* �€.€€~~.~~.€€€€€ */
	$"7F7F 7E7E 7E7F 7F7F 8080 8080 807F 7F7E"            /* ..~~~...€€€€€..~ */
	$"7E7E 7E7F 7E7E 8080 8080 8080 7F7F 7F7E"            /* ~~~.~~€€€€€€...~ */
	$"7E7F 7E7E 8080 8080 8080 7F7E 7F7E 7E7F"            /* ~.~~€€€€€€.~.~~. */
	$"807F 7F80 8080 7F7F 7F7E 7E7E 7E7F 8080"            /* €..€€€...~~~~.€€ */
	$"8080 8080 7F7F 7F7E 7E7F 7E7E 7F80 8080"            /* €€€€...~~.~~.€€€ */
	$"8080 7F7F 7F7F 7E7E 7E7F 8080 8080 8080"            /* €€....~~~.€€€€€€ */
	$"807F 7F7E 7E7E 7E7E 7F80 8080 8080 807F"            /* €..~~~~~.€€€€€€. */
	$"7F7E 7D7E 7E7E 7F80 8080 8180 807F 7F7E"            /* .~}~~~.€€€�€€..~ */
	$"7E7E 7E7E 7F80 8080 8081 8080 807F 7E7E"            /* ~~~~.€€€€�€€€.~~ */
	$"7E7E 7E7F 8080 8081 8080 8080 7E7E 7E7E"            /* ~~~.€€€�€€€€~~~~ */
	$"7E7F 7F7F 8081 8080 8080"                           /* ~...€�€€€€ */
};

\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/Sounds/Frog.r b/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/Sounds/Frog.r
new file mode 100644
index 0000000..636eaea
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/Sounds/Frog.r
@@ -0,0 +1 @@
+#include "TypesIIGS.r"

resource rSoundSample (0x4, "Frog") {
	0,
	20,
	0x82E8,
	0,
	22254,
	$"8080 8080 8080 8080 8080 8080 8080 8080"
	$"8080 8080 8080 8080 8080 7F80 8080 8080"
	$"7F7F 7F7F 8080 8080 807F 7F7F 7F80 8080"
	$"8080 8080 8080 8080 8080 8080 8080 8080"
	$"8080 8080 8080 8080 7F7F 7F80 8080 8080"
	$"8080 7F7F 8080 8080 807F 7F7F 7F80 8082"
	$"8282 807E 7C7B 7C7E 8183 8383 817E 7D7D"
	$"7F82 8586 8480 7B78 7779 7E82 8687 8582"
	$"7E7B 7A7C 8085 8889 857F 7975 7579 8087"
	$"8A89 847D 7876 787D 8489 8A88 837D 7978"
	$"7B7F 8385 8481 7D7A 797B 7F82 8483 807E"
	$"7D7E 8184 8685 817C 7978 7B7F 8487 8683"
	$"7E79 7678 7C82 878A 8985 7E79 7778 7D82"
	$"8788 8682 7C79 7879 7E82 8585 8481 7E7D"
	$"7C7D 7F80 8282 8181 8080 8080 7F7E 7C7C"
	$"7D7F 8283 8381 7E7C 7B7C 7E81 8486 8583"
	$"7F7B 7A7A 7D80 8384 8381 7F7D 7D7D 7F81"
	$"8283 8280 7F7E 7F80 8080 807F 7E7E 7F80"
	$"8181 8180 7F7D 7D7F 8082 8382 817F 7E7D"
	$"7E7F 8182 8281 7F7E 7E7E 7F80 8181 8180"
	$"7F7E 7E7F 8183 8484 817C 7979 7D84 898A"
	$"867E 7772 737A 848D 918E 857B 7370 737D"
	$"8993 958E 8172 696A 7382 9299 9588 786C"
	$"6A71 7E8C 9594 8B80 7775 787F 8585 817A"
	$"7575 7B83 8B8D 8980 7671 747D 8A94 9790"
	$"8374 6866 6D7B 8C98 9A91 8272 6867 707E"
	$"8F9A 9A90 8071 696B 7583 8F94 9187 7C73"
	$"7174 7B82 8687 8481 7F7F 8284 8481 7B77"
	$"777B 838A 8E8D 867B 716C 6E78 8592 9793"
	$"8779 6F6B 6F7A 8791 9590 8578 706E 747E"
	$"888D 8C87 807A 7777 7B80 8384 8280 7F80"
	$"8385 8582 7D79 7879 7E83 8788 8681 7B76"
	$"7579 8087 8B8A 857E 7A79 7B7F 8283 827F"
	$"7E7E 7E80 8181 7F7D 7C7E 8185 8887 837C"
	$"7674 777D 868B 8C87 7E77 7477 7E87 8D8C"
	$"857B 7472 757E 878C 8A83 7A77 7C84 8C8D"
	$"877C 716B 6D77 8591 9590 8476 6E6E 7683"
	$"9299 978B 7B6B 6365 7182 929A 978A 7A6D"
	$"6A71 7E8C 9595 8D80 746E 6F76 7F86 8886"
	$"827F 7E7F 8182 817E 7A77 787E 878F 918C"
	$"8175 6D6C 737F 8D95 958B 7D6F 686A 7483"
	$"939B 988C 7D6F 6A6D 7783 8D91 8D85 7B75"
	$"7377 7E83 8484 8383 8485 8480 7C77 7373"
	$"7780 8B93 938C 8175 6D6D 747F 8C93 938A"
	$"7D71 6A6C 7583 8F94 9189 7F77 7374 7A81"
	$"8586 837F 7D7D 7F81 8281 7D7A 797B 8087"
	$"8B8B 857C 7573 767D 878E 8E89 7F75 6F6F"
	$"7580 8A8F 8D85 7B74 747A 838B 8D89 8077"
	$"7273 7A84 8B8B 857C 7473 7982 8C90 8C82"
	$"766E 6E76 838F 928D 8177 7376 7E85 8885"
	$"7E76 7172 7883 8D92 9087 7A6F 6F78 8795"
	$"988F 7F6D 6162 6D7D 919E 9D90 7E6C 6469"
	$"7688 999E 9789 7768 6267 7282 9197 9287"
	$"7971 7177 8088 8B88 8480 7E7F 8080 7D78"
	$"7473 7781 8C93 938A 7D6F 6869 7382 939D"
	$"9B8F 7E6D 6467 7182 929A 988C 7C6D 6669"
	$"7484 9298 958B 7F74 6F70 757D 8387 8888"
	$"8785 827E 7975 7376 7C85 8D91 8F85 796E"
	$"6A6D 7786 9399 968B 7D70 696B 7582 8E94"
	$"9086 7A70 6E72 7B85 8C8F 8C86 7F7A 787A"
	$"7D80 8180 7E7D 7E80 8283 8380 7D7A 7A7C"
	$"8186 8988 847E 7875 777C 8288 8B8A 857D"
	$"7673 747A 8289 8C89 837C 7776 787F 878B"
	$"8B86 7E76 7376 808A 8E8A 8074 6E6F 7683"
	$"8F94 9186 7B73 7073 7C89 9497 9082 7166"
	$"646C 7A8C 989A 9183 746C 6C73 7E8A 9498"
	$"958C 7F70 6664 6A77 8592 9793 8879 6E6B"
	$"707B 8994 9996 8D7F 7168 666C 7785 9095"
	$"938A 7E74 6D6D 727C 8792 9694 8B7E 726A"
	$"6A70 7A87 9195 9289 7C70 696A 717E 8C96"
	$"9892 8779 6D68 6B75 828F 9797 8F82 756A"
	$"676C 7684 9198 978D 7F72 6969 707C 8A94"
	$"9692 877A 706B 6D75 818D 9291 8A7F 756F"
	$"6F74 7C86 8C8E 8C86 807A 7675 777B 8186"
	$"8988 8580 7B78 7777 7A7E 8488 8A89 837C"
	$"7775 777C 8288 8A89 847E 7874 7478 7E85"
	$"898A 8782 7D79 787A 7E82 8484 8485 8888"
	$"827A 716C 6E77 838E 9391 877B 726E 7079"
	$"8896 9C97 8976 655E 6471 8497 A09B 8D7B"
	$"6B62 6671 8397 A29F 9281 6D5D 5D68 788D"
	$"9FA1 9786 7263 6069 788C 9DA3 9C8F 7E6A"
	$"5E5E 6878 8C9D A198 8875 6560 6674 8698"
	$"A29E 9282 6F61 5F67 7689 9AA0 9A8D 7C6B"
	$"6162 6B7A 8D9C A19A 8D7B 6A61 636D 7C8E"
	$"9B9D 9687 7667 6166 7283 959F 9D92 8270"
	$"6362 6A78 8998 9D98 8B7B 6C65 6770 7F8F"
	$"9999 9082 7369 676D 7886 9297 948B 7F74"
	$"6E6D 727C 858C 8E8B 847C 7572 7379 7F86"
	$"8A8B 8883 7D78 7575 797F 8488 8785 807D"
	$"7A7A 7A7C 7E80 8283 8280 7D7C 7B7D 7E80"
	$"8080 8084 898B 887F 746B 6A71 7C88 9191"
	$"8A7F 7570 7077 8493 9C98 8B79 675D 616E"
	$"8094 9F9C 907E 6D63 6470 8398 A29D 8E7B"
	$"675B 606E 8095 A29E 907E 6B60 626D 7E93"
	$"A2A2 9585 715F 5C65 7588 9CA2 9A8A 7664"
	$"5E66 7487 99A2 9E92 8270 615D 6573 8598"
	$"A09C 8E7B 6A60 626D 7C8E 9EA2 9A8C 7A68"
	$"5E61 6D7D 909E 9F95 8673 645E 6674 8699"
	$"A29D 907F 6B5F 606A 7A8D 9DA0 9788 7565"
	$"6067 7587 989F 9A8D 7C6A 6062 6D7D 909C"
	$"9D95 8676 6A65 6974 8391 9794 8B7E 7168"
	$"6970 7D8B 9495 8F84 7971 6D70 7781 8A8E"
	$"8D87 7E77 7373 787E 8386 8684 817F 7C79"
	$"787A 7E82 8585 827E 7E81 8585 8079 716F"
	$"737B 868D 8D88 7E77 7374 7984 9198 968A"
	$"7968 5F63 6F80 939D 9A8D 7C6B 6367 7589"
	$"9CA2 9887 7361 5C66 768A 9DA1 9787 7465"
	$"6068 778B 9EA3 9888 7361 5C66 7589 9CA2"
	$"9887 7463 5F68 778A 9CA4 9C8D 7B67 5C60"
	$"6D7E 93A1 9F92 806D 6163 6E7F 909C 9E97"
	$"8A7A 6B62 636C 7B8C 9A9D 9587 7668 6367"
	$"7181 939F A096 8673 645F 6573 8698 A09C"
	$"8E7C 6A5F 626D 7E92 A1A2 9786 7362 5D65"
	$"7487 9AA2 9C8E 7C68 5E62 6F80 94A2 A094"
	$"836F 605E 6877 8A9D A39A 8A77 665F 6573"
	$"8597 9F9A 8D7C 6B62 646F 8092 9C9B 8F7F"
	$"6F67 6870 7C8A 9496 9186 796F 6A6E 7783"
	$"8C8F 8E8B 8781 786F 696B 7482 9098 968B"
	$"7B6D 676B 7585 96A0 9D8F 7D69 5C5E 6A7B"
	$"90A1 A295 826D 6063 7083 99A4 9D8D 7964"
	$"5A62 7184 9AA4 9C8B 7865 5E67 768A 9FA5"
	$"9987 725E 5B67 778C A0A3 9583 6E5E 606D"
	$"7E95 A5A2 9381 6B5B 5D6A 7C92 A3A1 917E"
	$"685C 6270 8298 A5A0 9180 6B5D 5E6B 7B91"
	$"A1A0 9381 6D5F 5F6A 7A8E 9EA1 988A 7869"
	$"6367 7282 9198 958A 7C6F 6868 6E79 8591"
	$"9898 9185 786D 696C 7581 8C92 9189 7E73"
	$"6C6C 727E 8B94 9691 8779 6E68 6B74 828E"
	$"9492 8A7F 756F 6E75 7F8A 9291 8A7F 746F"
	$"6F74 7C86 8E91 8D83 7971 6F74 7E89 9090"
	$"8A80 7771 7174 7C85 8D90 8B81 7670 6F75"
	$"7F89 8F8F 8A83 7D7A 7977 7778 7C83 8889"
	$"8781 7973 7276 7E88 9198 978F 7F6E 6160"
	$"6A7A 8E9E 9F93 806D 6163 6F80 96A5 A192"
	$"7F69 5B5F 6D80 97A5 9F8F 7C66 5C63 7184"
	$"9BA7 9F8E 7A64 5961 7184 9CA7 9D8C 7862"
	$"5A65 7488 9FA7 9D8C 7963 5961 7082 9AA6"
	$"9E8E 7A64 5A63 7286 9DA6 9E8E 7B65 5A61"
	$"6F81 97A4 9E8F 7C68 5C61 6E7F 94A1 9F93"
	$"8371 6563 6B79 8A96 9892 8577 6B67 6B74"
	$"808D 9595 9085 7970 6C6F 757F 898F 8F88"
	$"7F76 7272 767E 888E 8F8B 8279 726F 7177"
	$"7F88 8D8D 877E 7875 767B 8389 8C8A 837A"
	$"7370 7379 8087 8B8A 867F 7975 767B 8288"
	$"8B89 837C 7774 7578 7D83 888A 8882 7C76"
	$"7577 7C83 888A 8884 7E79 7574 777D 858B"
	$"8C88 8179 7473 767D 858B 8C89 827A 7473"
	$"767C 848A 8C8A 847C 7673 747A 8287 8987"
	$"8584 837F 7972 6F73 7C88 9193 8C7F 726C"
	$"6F79 8792 9792 8577 6C6A 6F79 858F 928E"
	$"857A 706D 7078 8490 9693 897D 736E 6F77"
	$"838C 8F8B 8278 706F 737C 8790 938E 8378"
	$"7170 757E 888E 8E89 7F76 7070 7882 8B8E"
	$"8B84 7B75 7375 7C85 8C8D 8981 7974 7377"
	$"7E86 8B8C 8881 7974 7376 7C84 8B8D 8B83"
	$"7A73 7074 7C86 8E90 8C84 7B73 7072 7983"
	$"8B8D 8A83 7A74 7375 7C85 8B8E 8C85 7C75"
	$"7274 7A83 8A8C 8881 7974 7377 7F87 8D8E"
	$"8A82 7974 7377 7E85 8A8A 8680 7974 7479"
	$"8187 8B8A 8580 7A77 777A 7F83 8686 837F"
	$"7B79 797C 7F83 8585 8380 7E7B 7B7C 7F81"
	$"8383 817F 7D7C 7C7D 7F82 8383 827F 7D7C"
	$"7D7F 8081 8180 807F 7E7D 7D7E 8081 8180"
	$"8080 8080 807F 7F7F 7F7F 7F7E 7E7E 7F7F"
	$"7F7F 7F7F 7F80 8080 8080 8080 7F7F 7E7E"
	$"7E7F 8080 7F7E 7D7E 7F80 8181 817F 7E7D"
	$"7D7F 8082 8282 807E 7D7D 7D7D 7E7E 8081"
	$"8282 807E 7D7D 7E7F 8182 8281 807F 7D7C"
	$"7C7E 8083 8382 7F7D 7B7C 7D7F 8283 8382"
	$"807E 7C7C 7D7F 8183 8381 7F7D 7C7C 7D7E"
	$"8182 8382 807E 7C7C 7D7F 8183 8482 807E"
	$"7C7B 7C7D 8082 8383 817E 7C7B 7C7E 8184"
	$"8584 817E 7C7B 7B7E 8083 8483 817E 7C7A"
	$"7B7D 8184 8585 827F 7C7B 7B7D 8083 8484"
	$"827F 7C7A 7A7C 8083 8585 827F 7C7B 7C7E"
	$"8183 8482 807E 7C7C 7D7F 8182 8382 807E"
	$"7D7D 7E80 8182 8281 807E 7D7E 7E80 8181"
	$"8181 807F 7E7E 7E7F 8081 8282 8180 7F7E"
	$"7E7E 8081 8181 8180 7F7E 7E7F 8081 8180"
	$"807F 7F7F 8080 8080 8080 7F7F 7F7F 8080"
	$"8080 807F 7F7F 7F80 8181 8180 7F7E 7E7E"
	$"7F80 8181 8180 807F 7E7E 7F80 8181 8181"
	$"807F 7E7E 7E80 8182 8281 807F 7E7E 7F7F"
	$"8081 8181 807F 7E7E 7F80 8182 8281 807F"
	$"7E7E 7F80 8081 8080 7F7F 7E7E 7F80 8181"
	$"8181 807F 7F7F 7F7F 8080 8080 8080 7F7F"
	$"7F80 8080 8081 8180 807F 7F7F 7F7F 7F80"
	$"8080 807F 7F7F 8080 8181 8180 807F 7F7F"
	$"7F7F 8080 8080 7F7F 7F7F 8080 8080 8080"
	$"8080 807F 7F7F 8080 8080 8080 7F7F 7F80"
	$"8080 8181 8080 8080 8080 7F7F 7F80 8080"
	$"8080 807F 8080 8080 8181 8180 807F 7F7F"
	$"8080 8181 8080 807F 7F80 8081 8181 8180"
	$"7F7F 7F7F 8080 8181 807F 7F7F 7F80 8182"
	$"8281 807F 7E7E 7F80 8081 8181 807F 7E7E"
	$"7E80 8182 8282 807F 7E7E 7E80 8182 8281"
	$"807F 7E7D 7E7F 8182 8382 817F 7E7D 7D7F"
	$"8182 8382 807E 7D7D 7E7F 8183 8382 817F"
	$"7D7D 7E7F 8182 8282 807F 7E7E 7E7F 8182"
	$"8282 8180 7E7E 7E7F 8081 8282 8180 7F7E"
	$"7E7F 8081 8282 8180 7F7E 7E7F 8081 8181"
	$"8180 7F7E 7E7F 8081 8181 807F 7F7E 7F7F"
	$"8081 8181 807F 7E7E 7E7F 8081 8181 807F"
	$"7E7E 7F7F 8081 8180 807F 7F7F 7F80 8081"
	$"8180 807F 7F7F 7F7F 8080 8080 807F 7F7F"
	$"7F80 8080 8080 8080 7F7F 7F7F 8080 8080"
	$"807F 8080 8080 8080 8080 8080 7F7F 8080"
	$"8080 7F7F 7F7F 7F7F 8080 8080 807F 7F7F"
	$"7F80 8080 8080 7F7F 7E7E 7F7F 8080 8080"
	$"807F 7F7F 7F80 8081 8080 7F7F 7E7E 7F7F"
	$"8080 8080 7F7F 7F7F 7F80 8080 807F 7F7E"
	$"7E7F 7F80 8080 7F7F 7F7F 7F80 8080 8080"
	$"807F 7F7F 7F7F 7F80 807F 7F7F 7F7F 7F7F"
	$"8080 8080 807F 7F7E 7F7F 8080 807F 7F7F"
	$"7E7F 7F80 8081 8080 7F7F 7E7E 7F80 8080"
	$"8080 7F7F 7F7F 7F7F 8080 8080 7F7E 7E7E"
	$"7F7F 8080 8080 7F7F 7F7F 7F7F 8080 8080"
	$"807F 7F7F 7F7E 7F7F 7F80 8080 807F 7F7F"
	$"7E7F 7F80 8081 8080 7F7E 7E7E 7F7F 8081"
	$"8180 7F7E 7E7E 7E7F 8081 8180 7F7E 7E7D"
	$"7E7F 8080 8181 807F 7E7E 7E7F 7F80 8181"
	$"807F 7E7E 7D7E 7F80 8081 8080 7F7E 7E7E"
	$"7F7F 8080 8080 7F7E 7E7D 7E7E 7F80 8080"
	$"807F 7F7E 7E7F 7F80 8080 807F 7E7E 7E7E"
	$"7E7F 8080 8080 7F7F 7E7E 7F7F 8080 8080"
	$"7F7F 7E7E 7E7F 7F80 807F 7F7F 7E7F 7F7F"
	$"8080 8080 7F7F 7F7F 7F7F 7F7F 7F7F 7F7F"
	$"7F7F 7F7F 7F7F 7F7F 7E7C 7A7D 868F 9189"
	$"7A6B 6569 7688 979A 9181 6F66 6975 879A"
	$"A197 8773 605D 6776 8C9F A195 836D 6167"
	$"778C 9F9F 907E 685C 6270 839A A49B 8A75"
	$"6261 6E81 98A4 9A89 7460 5C68 7A90 A4A1"
	$"917E 675C 6473 869D A79D 8B76 6058 6374"
	$"89A0 A79B 8A74 5F5D 6B7C 93A6 A595 836E"
	$"5B59 6777 8EA3 A697 846E 5C5E 6D7F 96A6"
	$"A192 8069 5B61 7083 9AA5 9C8C 7964 5B64"
	$"7387 9CA4 9A89 7565 646F 8093 9C98 8B7A"
	$"6A62 6671 8292 9893 887C 7474 7A83 8A8C"
	$"877F 7670 7075 7D85 8A89 857F 7B7A 7C80"
	$"8487 8884 7C74 7072 7A84 8B8C 8983 7C77"
	$"7577 7E86 8C8B 847B 726F 7277 808C 9698"
	$"8F7E 6B60 6371 8498 9F96 8571 6463 6C7B"
	$"8E9F A297 8571 5E5B 6778 8EA2 A294 816B"
	$"5E63 7489 9FA4 9583 6D5B 5D6C 7E96 A59E"
	$"8D79 635E 6C7F 96A4 9B89 7560 5B68 7A90"
	$"A3A1 907C 675E 687B 91A3 9F8E 7A64 5A64"
	$"768B A1A4 9582 6C5D 6373 889E A495 826C"
	$"5B5D 6C7E 95A6 A393 816B 5E65 778C A0A1"
	$"907D 685A 5E6E 8097 A7A2 917F 6A5C 6375"
	$"899E A394 816E 5C5D 6D7F 95A6 A18F 7F6B"
	$"5C61 7285 9BA4 9885 735F 5B69 7A8E A3A5"
	$"9685 715E 5D6D 7E94 A59F 8D7B 665A 6374"
	$"879E A69A 8875 605B 6879 8EA3 A595 836E"
	$"5C5F 6E80 97A5 9D8B 7862 5A65 768A A1A7"
	$"9987 725E 5D6B 7C93 A49F 8E7B 655A 6474"
	$"879E A79C 8A75 605B 687A 90A4 A190 7D66"
	$"5B64 7589 A0A6 9785 6F5C 5D6D 8097 A69E"
	$"8C78 625B 687A 91A4 A18F 7C66 5962 7388"
	$"9FA7 9A88 7460 5D6C 7E96 A49A 8874 5F5B"
	$"6979 90A3 A090 7D66 5D68 7A90 A19D 8C79"
	$"635B 6777 8CA0 A090 7C69 616C 7F92 9B93"
	$"826F 6465 7284 9397 8E80 736E 7583 8F92"
	$"8A7C 6E66 6974 8493 9790 8072 6B70 7D8D"
	$"9795 8877 6862 6876 8897 9A91 8170 686C"
	$"7A8C 9898 8C7A 6961 6572 8596 9C96 8674"
	$"6969 7486 979B 917E 6B60 626F 8296 9F99"
	$"8A77 6865 6E80 949E 9887 7261 5E69 7A90"
	$"A0A0 927F 6B60 6575 8B9E A092 7E69 5C61"
	$"6F82 98A4 9E8D 7965 5F68 798E 9E9E 8F7C"
	$"695F 6371 8397 A29D 8E7A 6961 6775 8796"
	$"9A93 8574 6865 6C7B 8D9B 9C93 8474 6967"
	$"6C79 8895 988F 7F6F 6769 7484 939A 978D"
	$"7E70 6869 7282 9096 9082 746C 6E76 838E"
	$"9391 897D 736D 6F77 838C 8E89 8077 7476"
	$"7C84 898B 8982 7B75 7478 7F85 8786 827C"
	$"7A7A 7D81 8587 8682 7E79 787A 7E82 8484"
	$"837F 7D7C 7C7F 8183 8483 817E 7C7C 7D7E"
	$"7F7F 8081 8384 8380 7D7B 7C7D 8083 8485"
	$"8380 7C78 777A 8087 8C8B 847C 7674 777D"
	$"858B 8D89 8077 7171 7782 8C91 8E84 7972"
	$"7075 7E88 8F90 897F 746F 7078 848D 908C"
	$"8379 7271 767E 888E 8E87 7D74 7073 7C86"
	$"8C8C 877F 7875 757A 8188 8B89 827A 7474"
	$"7A81 8789 8580 7B79 797C 8185 8786 817B"
	$"7777 7B81 8686 847F 7B79 7A7D 8185 8785"
	$"817B 7777 7B81 8586 837F 7B79 7A7D 8286"
	$"8785 807A 7777 7B81 8687 847F 7B78 797C"
	$"8185 8785 807B 7878 7B80 8484 827F 7D7C"
	$"7C7E 8081 8282 807E 7C7C 7E80 8180 7E7D"
	$"7E80 8283 827F 7D7C 7B7D 7F81 8383 817D"
	$"7979 7B81 8688 8782 7C78 7778 7D82 8788"
	$"8580 7A77 777C 8287 8986 817C 7877 797D"
	$"8286 8785 807C 7979 7C80 8485 8582 7F7B"
	$"797A 7D80 8384 8482 807E 7D7D 7D7F 8082"
	$"8382 807E 7C7B 7C7E 8183 8483 817F 7D7C"
	$"7C7E 8082 8483 817E 7B7B 7C7F 8285 8583"
	$"807C 7B7B 7D80 8485 8481 7D7B 7B7C 8083"
	$"8585 8380 7D7B 7B7E 8183 8483 817E 7D7D"
	$"7E80 8283 8281 7F7E 7E7E 8080 8181 8080"
	$"7F80 8081 8180 807F 7F80 8181 8180 7F7E"
	$"7E7F 8182 8382 817F 7E7D 7E7F 8182 8382"
	$"807E 7D7D 7F82 8484 8280 7E7D 7E7F 8082"
	$"8282 807F 7E7E 7F80 8282 8180 7F7F 7F80"
	$"8081 8181 807F 7F7F 8081 8180 7F7F 7F80"
	$"8181 8181 8080 7F7E 7F7F 8182 8281 7F7E"
	$"7E7F 8082 8382 8180 7E7D 7D7E 8183 8382"
	$"807E 7D7D 7F81 8383 8381 7F7D 7D7E 8082"
	$"8383 817F 7E7D 7E7F 8183 8382 807E 7D7D"
	$"7F81 8383 8180 7E7D 7E7F 8182 8382 807E"
	$"7D7D 7F81 8383 8280 7E7D 7D7F 8082 8382"
	$"807E 7D7D 7E81 8383 8281 7F7E 7D7E 8081"
	$"8282 8180 7E7E 7E7F 8182 8281 807F 7F7F"
	$"8080 8080 8080 7F7F 7F80 8080 8080 7F7F"
	$"8081 8181 807F 7F7F 7F80 8081 8180 7F7D"
	$"7D7E 7F81 8383 8280 7E7C 7D7E 8082 8382"
	$"807E 7C7B 7D80 8384 8482 7F7C 7B7C 7E81"
	$"8383 827F 7D7B 7B7D 8083 8483 817E 7D7C"
	$"7D7F 8182 8281 7F7D 7D7D 7E80 8182 8280"
	$"7F7E 7E7E 7F80 8181 8180 7F7E 7E7E 7F80"
	$"8081 8180 7F7F 7E7E 7F80 8181 8181 7F7E"
	$"7D7D 7E7F 8081 8281 807E 7D7E 7F80 8182"
	$"8281 7F7E 7D7D 7E80 8182 8180 7F7E 7D7E"
	$"7F81 8282 8180 7F7E 7D7E 7F80 8181 807F"
	$"7E7E 7E7F 8081 8282 8180 7E7E 7E7E 7F80"
	$"8180 807F 7E7E 7E7F 8081 8181 807F 7E7E"
	$"7E7F 7F80 8181 807F 7E7E 7E7F 8081 8181"
	$"807F 7E7E 7E7F 8081 8180 7F7E 7E7E 7F80"
	$"8181 8180 7F7E 7E7E 7F80 8181 807F 7E7E"
	$"7E7F 8181 8180 7F7F 7E7F 00"
};

\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/Sounds/Guitar.r b/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/Sounds/Guitar.r
new file mode 100644
index 0000000..630963c
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/Sounds/Guitar.r
@@ -0,0 +1 @@
+data $8014 (0x18024) {
	$"0100 0100 0000 2600 0000 0647 7569 7461"            /* ......&....Guita */
	$"72"                                                 /* r */
};

data $8024 (0x26) {
	$"0000 4700 E88E 0000 772B 8080 8080 8080"            /* ..G..Ž..w+€€€€€€ */
	$"8080 8080 8080 8080 8080 8080 8080 8080"            /* €€€€€€€€€€€€€€€€ */
	$"8080 8080 8080 8080 8080 8080 8080 8080"            /* €€€€€€€€€€€€€€€€ */
	$"7C7B 7B7B 7875 7475 7474 7B81 807E 8284"            /* |{{{xututt{�€~‚„ */
	$"828A 969B A6AE AEA9 9B8C 8481 8485 7E78"            /* ‚Š–›¦®®©›Œ„�„…~x */
	$"787A 7975 6E67 615E 5954 5255 585C 646C"            /* xzyunga^YTRUX\dl */
	$"6F69 615C 5C5F 6060 626E 7B82 8789 898D"            /* oia\\_``bn{‚‡‰‰� */
	$"9498 9997 9493 98A4 B0B7 AFA2 A0A9 A69C"            /* ”˜™—”“˜¤°·¯¢ ©¦œ */
	$"978E 8686 7E71 6A69 7281 8881 7268 6A75"            /* —Ž††~qjir�ˆ�rhju */
	$"7F7B 747D 8890 9AA2 A6AF B6B9 B19F 8A7E"            /* .{t}ˆ�š¢¦¯¶¹±ŸŠ~ */
	$"7D87 9398 9490 9393 8C7D 6D63 6165 696A"            /* }‡“˜”�““Œ}mcaeij */
	$"6864 6061 6669 6459 4F4D 4F51 5150 555F"            /* hd`afidYOMOQQPU_ */
	$"6565 5F54 4F54 5C61 615E 5A5F 6D7C 8684"            /* ee_TOT\aa^Z_m|†„ */
	$"7A7D 8C92 8E8F 8A84 8580 756D 6D79 8E9F"            /* z}Œ’Ž�Š„…€ummyŽŸ */
	$"A194 857F 8796 9790 949E A6B2 BCC0 C5CA"            /* ¡”….‡–—�”ž¦²¼ÀÅÊ */
	$"CFCF C3AF 9E97 9DA9 B1AD A5A1 9D94 8676"            /* ÏÏïž—�©±­¥¡�”†v */
	$"6860 5E60 6468 655E 5759 5F5F 5850 5054"            /* h`^`dhe^WY__XPPT */
	$"5A5C 5A5B 6167 6B6A 625B 5D66 6F75 7571"            /* Z\Z[agkjb[]fouuq */
	$"727C 8A95 9383 7E8B 9290 9089 8282 7E73"            /* r|Š•“ƒ~‹’��‰‚‚~s */
	$"665E 6274 8991 8977 696A 787B 7576 7D83"            /* f^bt‰‘‰wijx{uv}ƒ */
	$"8E99 A1A7 ADB6 BDB8 A894 8687 94A0 A09A"            /* Ž™¡§­¶½¸¨”†‡”  š */
	$"9491 8D84 786E 6665 6970 7574 706A 6A72"            /* ”‘�„xnfeiputpjjr */
	$"7770 6663 666D 7372 7073 777C 7C76 6D68"            /* wpfcfmsrpsw||vmh */
	$"6E76 7D7D 7875 7A86 9497 877E 868C 8E90"            /* nv}}xuz†”—‡~†ŒŽ� */
	$"8B87 8785 7B6E 6461 6D81 908F 806F 6C79"            /* ‹‡‡…{ndam���€oly */
	$"817C 7C80 8792 9DA5 ABB1 BAC4 C3B6 A28F"            /* �||€‡’�¥«±ºÄö¢� */
	$"8990 9B9F 9A93 8F8B 8275 675C 5755 585C"            /* ‰�›Ÿš“�‹‚ug\WUX\ */
	$"5D59 5450 575F 5B53 4E4C 5258 5B5C 6066"            /* ]YTPW_[SNLRX[\`f */
	$"6D71 7067 6064 6D75 7976 7377 8395 A096"            /* mqpg`dmuyvswƒ• – */
	$"8C90 969B 9E9A 9696 9691 8577 7076 899B"            /* Œ�–›žš–––‘…wpv‰› */
	$"9F94 7F76 8088 8584 858A 939C A5AB B1BA"            /* Ÿ”.v€ˆ…„…Š“œ¥«±º */
	$"C6CB C4B2 9D91 939D A5A3 9C98 948D 8275"            /* ÆËIJ�‘“�¥£œ˜”�‚u */
	$"6960 5A5B 5F60 5E58 5356 5F61 5B54 5052"            /* i`Z[_`^XSV_a[TPR */
	$"575B 5B5B 6066 6C6E 6860 5C60 686D 6D69"            /* W[[[`flnh`\`hmmi */
	$"676A 7A8A 8A81 7F82 878B 8B88 8788 8781"            /* gjzŠŠ�.‚‡‹‹ˆ‡ˆ‡� */
	$"766A 656E 808E 9184 7473 797D 7D7D 7E84"            /* vjen€Ž‘„tsy}}}~„ */
	$"8C95 9DA3 AAB6 C1C6 BFAF 9E96 99A2 A7A6"            /* Œ•�£ª¶ÁÆ¿¯ž–™¢§¦ */
	$"A3A0 9C95 8B7F 756C 686A 6B6B 6761 5E64"            /* £ œ•‹.ulhjkkga^d */
	$"6968 635E 5C5F 6366 6667 6C72 7877 7069"            /* ihc^\_cffglrxwpi */
	$"686D 7476 746F 6D76 868B 8681 8083 888A"            /* hmtvtomv†‹†�€ƒˆŠ */
	$"8884 8485 8279 6C63 6674 8690 8978 7276"            /* ˆ„„…‚ylcft†�‰xrv */
	$"797B 7C7C 8086 8E95 9BA1 AAB6 BDBB AE9C"            /* y{||€†Ž•›¡ª¶½»®œ */
	$"8F8D 949B 9D9B 9794 8E85 7B72 6861 6263"            /* ��”›�›—”Ž…{rhabc */
	$"6463 5D58 5B62 6460 5B57 585D 6163 6568"            /* dc]X[bd`[WX]aceh */
	$"6F76 7A75 6E6C 6F77 7D7D 7974 7B8B 9593"            /* ovzunlow}}yt{‹•“ */
	$"8E8B 8C91 9493 908F 8F8D 877A 6D6B 7486"            /* Ž‹Œ‘”“����‡zmkt† */
	$"9594 847B 7A7D 7F80 8082 878D 949B A0A7"            /* •”„{z}.€€‚‡�”› § */
	$"B2BB BEB6 A796 8E91 969A 9C9A 9692 8B81"            /* ²»¾¶§–Ž‘–šœš–’‹� */
	$"786F 6663 6365 6562 5C5A 5E62 615C 5855"            /* xofcceeb\Z^ba\XU */
	$"575A 5D5E 6064 6A70 706C 6665 6A70 7474"            /* WZ]^`djpplfejptt */
	$"6F6E 7882 8888 8584 868A 8B8A 8888 8886"            /* onx‚ˆˆ…„†Š‹Šˆˆˆ† */
	$"7F73 6A6A 7485 8F8C 847E 7E80 8384 8689"            /* .sjjt…�Œ„~~€ƒ„†‰ */
	$"8F95 9CA3 A8B2 BDC5 C5BC AD9F 9A9C A0A3"            /* �•œ£¨²½Åż­Ÿšœ £ */
	$"A3A0 9C96 8E86 7C71 6A68 696A 6863 5E5F"            /* £ œ–Ž†|qjhijhc^_ */
	$"6364 625D 5959 5B5D 5E5F 6066 6D6F 6C67"            /* cdb]YY[]^_`fmolg */
	$"6365 6B71 736F 6B72 7C84 8785 8284 888A"            /* cekqsokr|„‡…‚„ˆŠ */
	$"8988 8787 8681 766B 6569 7987 8781 7976"            /* ‰ˆ‡‡†�vkeiy‡‡�yv */
	$"7678 7A7B 7D82 888F 959B A3AE B9BD B9AD"            /* vxz{}‚ˆ�•›£®¹½¹­ */
	$"9E95 9497 9C9E 9D9A 968F 887F 746C 696A"            /* ž•”—œž�š–�ˆ.tlij */
	$"6B6B 6763 6266 6A6A 6763 6263 6568 696A"            /* kkgcbfjjgcbcehij */
	$"6E75 7979 746E 6D71 797F 7772 7479 8185"            /* nuyytnmqy.wrty�… */
	$"7E79 777B 898B 8A8D 91A4 B0B6 A98A 7177"            /* ~yw{‰‹Š�‘¤°¶©Šqw */
	$"8A89 7E79 7064 5953 4C49 515D 707E 7672"            /* Š‰~ypdYSLIQ]p~vr */
	$"7D8A 93A4 B0AB A2A1 ADB3 B2B0 BBCE CDB3"            /* }Š“¤°«¢¡­³²°»Îͳ */
	$"ACA6 8E7A 6D66 514C 5A67 5746 4F5F 5558"            /* ¬¦ŽzmfQLZgWFO_UX */
	$"6B7C 8C99 A5A0 846F 768A 8C82 8681 6D59"            /* k|Œ™¥ „ovŠŒ‚†�mY */
	$"5559 5E60 626B 6E5C 4E52 5756 606C 6B5B"            /* UY^`bkn\NRWV`lk[ */
	$"5155 5346 4663 878E 808D 928D 8684 7A6B"            /* QUSFFc‡Ž€�’�†„zk */
	$"7398 B7AF 9CA8 C6CA D8E9 F4F5 F4F9 F5DA"            /* s˜·¯œ¨ÆÊØ....... */
	$"C0C3 D6D3 C2B5 9B74 5548 4A51 4A3B 393C"            /* ÀÃÖÓµ›tUHJQJ;9< */
	$"302C 3438 3337 4144 3835 4456 5B5D 7084"            /* 0,4837AD85DV[]p„ */
	$"7B65 7984 8374 6D61 5157 7A95 8467 6C7E"            /* {ey„ƒtmaQWz•„gl~ */
	$"787E 8BA1 AFB9 C4BB 9575 80A2 ACA1 9988"            /* x~‹¡¯¹Ä»•u€¢¬¡™ˆ */
	$"7262 616D 7875 717D 897E 7D8E A2AA AFB3"            /* rbamxuq}‰~}Ž¢ª¯³ */
	$"A88F 818B 9795 93A2 B6A7 9198 9388 7975"            /* ¨��‹—•“¢¶§‘˜“ˆyu */
	$"654F 4962 7869 515B 675E 6371 8796 A2B3"            /* eOIbxiQ[g^cq‡–¢³ */
	$"B69E 8588 9A97 8780 7561 4E43 474F 504E"            /* ¶ž…ˆš—‡€uaNCGOPN */
	$"585E 4F4A 535E 6066 7175 6961 6768 5E60"            /* X^OJS^`fquiagh^` */
	$"7EA3 9E94 9C9F 9A95 9689 7373 95B0 A48B"            /* ~£ž”œŸš•–‰ss•°¤‹ */
	$"9BAB B2BE CDD9 DCE0 EEED D1B4 B5C6 C3B5"            /* ›«²¾Í.....Ñ´µÆõ */
	$"A992 7154 4546 483F 3339 3D31 2C32 3937"            /* ©’qTEFH?39=1,297 */
	$"3A45 4B3E 3742 5052 5364 7E74 6A73 807F"            /* :EK>7BPRSd~tjs€. */
	$"7A7B 715E 5C79 968F 7379 8485 8793 A4B2"            /* z{q^\y–�sy„…‡“¤² */
	$"BFD1 D2B6 9592 A9B6 B4AD A18C 786C 6C6F"            /* ¿ÑÒ¶•’©¶´­¡Œxllo */
	$"6D66 707B 7774 7D8E 98A0 A8A8 9583 838C"            /* mfp{wt}Ž˜ ¨¨•ƒƒŒ */
	$"8B84 8FA6 9F91 8E8E 8377 746B 5446 556F"            /* ‹„�¦Ÿ‘ŽŽƒwtkTFUo */
	$"6B54 555B 5B59 6270 7C88 9CA9 9C83 7D8B"            /* kTU[[Ybp|ˆœ©œƒ}‹ */
	$"8F89 827B 6D5C 4D4D 5253 4F57 6059 5257"            /* �‰‚{m\MMRSOW`YRW */
	$"6164 6976 7F77 6D6E 716A 6377 9597 9193"            /* adiv.wmnqjcw•—‘“ */
	$"9894 9091 8A74 6C82 A4A3 9196 A5B1 BAC5"            /* ˜”�‘Štl‚¤£‘–¥±ºÅ */
	$"CED1 D5E3 E9D8 BCB2 BDC2 BCB0 9E83 6856"            /* ÎÑÕ..ؼ²½Â¼°žƒhV */
	$"5456 4F41 4447 4038 3A3F 3E3F 4A52 483F"            /* TVOADG@8:?>?JRH? */
	$"4858 5D58 6A7D 7870 7680 7F7B 7B74 615B"            /* HX]Xj}xpv€.{{ta[ */
	$"7193 8F7D 7E85 888B 96A4 B1BE D0D3 BC9A"            /* q“�}~…ˆ‹–¤±¾ÐÓ¼š */
	$"8F9C A9AA A497 8572 6362 6561 5B62 6B68"            /* �œ©ª¤—…rcbea[bkh */
	$"646A 7984 8B96 9B8D 7E7D 8688 818D 9FA0"            /* djy„‹–›�~}†ˆ��Ÿ  */
	$"9794 938A 807E 7862 5056 6F73 655F 6162"            /* —”“Š€~xbPVose_ab */
	$"6269 7480 8BA0 B2B0 9B8E 9196 9592 8C81"            /* bit€‹ ²°›Ž‘–•’Œ� */
	$"7060 5C61 625E 636B 6861 6266 696A 737D"            /* p`\ab^ckhabfijs} */
	$"796C 6668 655C 677E 8784 8387 8683 8481"            /* ylfhe\g~‡„ƒ‡†ƒ„� */
	$"7061 6C8B 948C 8B97 A3AD B6BF C4C8 D6E3"            /* pal‹”Œ‹—£­¶¿ÄÈÖ. */
	$"DFC7 B7B6 BBBA B1A0 8A70 5C55 5550 463F"            /* .Ç·¶»º± Šp\UUPF? */
	$"4341 3C38 3632 2E32 3F46 454E 6469 6470"            /* CA<862.2?FENdidp */
	$"8392 969A A7AD A4A0 9984 7483 9DA1 9A93"            /* ƒ’–š§­¤ ™„tƒ�¡š“ */
	$"8989 898A 9B9A A0AD AC94 7768 6C6B 5748"            /* ‰‰‰Š›š ­¬”whlkWH */
	$"4A40 2015 2A56 7167 5459 646A 7A93 ABC7"            /* J@ .*VqgTYdjz“«Ç */
	$"D8D5 C5AE A5B9 C4BC CBEC F6E8 E0D0 CDBE"            /* ØÕÅ®¥¹Ä¼Ë....Ð; */
	$"A386 6542 3D52 5B51 3313 0207 040C 1935"            /* £†eB=R[Q3......5 */
	$"6EA1 976D 5556 667C 828C 9389 8082 8178"            /* n¡—mUVf|‚Œ“‰€‚�x */
	$"7B85 8D95 A5AF BBB5 B7CE D0B2 9180 807A"            /* {…�•¥¯»µ·Îв‘€€z */
	$"7583 8F7A 4F46 4239 3231 3749 4641 4949"            /* uƒ�zOFB9217IFAII */
	$"414B 5C69 8195 A4B0 B8BF CFD4 BEAB BDDF"            /* AK\i�•¤°¸¿ÏÔ¾«½. */
	$"F9F7 DCD3 CDB1 9282 7870 717B 7C6E 4D3B"            /* ...Óͱ’‚xpq{|nM; */
	$"3329 2B34 323D 5A6D 6A5C 4E51 5B5A 6779"            /* 3)+42=Zmj\NQ[Zgy */
	$"7C7C 837E 6856 5A65 7285 9AB2 A89F B2C9"            /* ||ƒ~hVZer…š²¨Ÿ²É */
	$"C7BB B9C1 C4B9 B1B3 AA99 8E7A 6250 3F3F"            /* Ç»¹Áű³ª™ŽzbP?? */
	$"5F74 716C 685D 5C64 7083 8E95 A1A1 8A7D"            /* _tqlh]\dpƒŽ•¡¡Š} */
	$"878A 7373 89AC B7A3 98A0 A291 7957 3C3C"            /* ‡Šss‰¬·£˜ ¢‘yW<< */
	$"566C 6E51 3B32 2827 313A 568A B3BF B49D"            /* VlnQ;2('1:VŠ³¿´� */
	$"8E91 97A1 ACA9 9E9A 968F 868A 867F 7B86"            /* Ž‘—¡¬©žš–�†Š†.{† */
	$"A2AB 9A97 ADB8 A985 6B63 6463 7174 6250"            /* ¢«š—­¸©…kcdcqtbP */
	$"453A 332B 2B43 5552 5563 6B6E 7177 8DA4"            /* E:3++CURUcknqw�¤ */
	$"B2C2 D4D9 DAEB F9E9 D2C5 D8F8 F7DE CDC3"            /* ²ÂÔ.....ÒÅØ...Íà */
	$"AF97 826A 5A57 6168 5539 2818 0A09 0606"            /* ¯—‚jZWahU9(..Æ.. */
	$"142D 4348 3C37 3E3F 4150 6064 6C7B 8169"            /* .-CH<7>?AP`dl{�i */
	$"5A61 767F 7E90 AAB2 AFBC D1DC DAD9 D8D2"            /* Zav.~�ª²¯¼Ñ...ØÒ */
	$"C1BB BCB3 A596 8069 5236 3246 5860 6564"            /* Á»¼³¥–€iR62FX`ed */
	$"605D 5B64 757F 8996 A092 8589 8A87 838C"            /* `][du.‰– ’…‰Š‡ƒŒ */
	$"A5BA B7B0 AFB3 B2A7 8B6D 626D 848A 7966"            /* ¥º·°¯³²§‹mbm„Šyf */
	$"574A 4745 404F 769E B3AE 9888 817D 848B"            /* WJGE@Ovž³®˜ˆ�}„‹ */
	$"877A 767A 7269 6366 6960 5F74 8483 818F"            /* ‡zvzricfi`_t„ƒ�� */
	$"9D9C 8772 675B 5B6D 7973 6758 4E45 3A34"            /* �œ‡rg[[mysgXNE:4 */
	$"404B 5262 747D 8281 8393 A3AD B6C8 D3DC"            /* @KRbt}‚�ƒ“£­¶ÈÓ. */
	$"E8E9 E1CE BBC2 D8DE D1C0 B4A6 9B8A 7662"            /* ...λÂØ.ÑÀ´¦›Švb */
	$"575E 665B 4B3A 281E 1D16 1017 2C47 5553"            /* W^f[K:(.....,GUS */
	$"555C 5A5C 6B77 777E 9196 8A79 7E90 9691"            /* U\Z\kww~‘–Šy~�–‘ */
	$"9CAF B8B8 C1CE D8DA D9D8 C8B3 ADAD A79E"            /* œ¯¸¸ÁÎØ..Øȳ­­§ž */
	$"8B74 5E43 261D 2634 4451 5557 5451 5868"            /* ‹t^C&.&4DQUWTQXh */
	$"7379 868C 8886 8787 8786 8E9F AFB3 AFAC"            /* sy†Œˆ†‡‡‡†ŽŸ¯³¯¬ */
	$"AFB5 AD94 796D 7383 867B 6C5C 504D 463E"            /* ¯µ­”ymsƒ†{l\PMF> */
	$"4560 8195 9080 7874 7172 7872 6462 686D"            /* E`�•�€xtqrxrdbhm */
	$"6965 6B70 6969 7A8C 9195 A2AF AFA1 948A"            /* iekpiizŒ‘•¢¯¯¡”Š */
	$"7B79 8793 9084 7569 5D4E 4342 4349 5A69"            /* {y‡“�„ui]NCBCIZi */
	$"7376 7270 7A8A 929B AAB8 C7D1 D3CD BDAF"            /* svrpzŠ’›ª¸ÇÑÓͽ¯ */
	$"B6CA D2C9 BDB2 AAA2 9788 766B 6F73 6C60"            /* ¶ÊÒɽ²ª¢—ˆvkosl` */
	$"5140 3832 281E 1F2E 4551 4F53 5652 525D"            /* Q@82(...EQOSVRR] */
	$"6665 6E7C 8074 676C 7B7E 7E8A 9DA6 ABB6"            /* fen|€tgl{~~Š�¦«¶ */
	$"C4CF D2D6 D6C8 B9B4 B3AF A695 816B 4F35"            /* ÄÏÒÖÖȹ´³¯¦•�kO5 */
	$"2F36 4452 5B5F 605C 5A62 7079 828F 918D"            /* /6DR[_`\Zbpy‚�‘� */
	$"8A8B 8C8B 8B95 A7B5 B5B3 B3B7 B9AD 947B"            /* Š‹Œ‹‹•§µµ³³·¹­”{ */
	$"6F79 8685 7969 5950 4B42 3E4B 6888 988F"            /* oy†…yiYPKB>Khˆ˜� */
	$"8179 7371 787B 7168 6A6E 6E68 676E 6D69"            /* �ysqx{qhjnnhgnmi */
	$"7186 9395 9CAA B4AD 9C91 8479 7F8D 918B"            /* q†“•œª´­œ‘„y.�‘‹ */
	$"7D70 6456 4743 4445 4D5D 6A73 736E 707E"            /* }pdVGCDEM]jssnp~ */
	$"8A92 9FAD BAC7 D0D1 C7B6 AFBC CDD0 C7BA"            /* Š’Ÿ­ºÇÐÑǶ¯¼ÍÐǺ */
	$"AFA7 9F93 8271 6B70 716A 5F50 423A 3329"            /* ¯§Ÿ“‚qkpqj_PB:3) */
	$"2125 374A 5151 5556 5255 6166 6872 7D7E"            /* !%7JQQUVRUafhr}~ */
	$"726A 707B 7D81 909E A4AA B6C2 C9CC CECD"            /* rjp{}��ž¤ª¶ÂÉÌÎÍ */
	$"C2B8 B5B2 ACA2 927F 694E 3A38 404C 585E"            /* ¸µ²¬¢’.iN:8@LX^ */
	$"6161 5D5E 6873 7A84 8F90 8B88 898A 898A"            /* aa]^hsz„��‹ˆ‰Š‰Š */
	$"95A6 AFB0 AFB0 B3B3 A58E 7870 7983 8076"            /* •¦¯°¯°³³¥Žxpyƒ€v */
	$"6758 5049 403F 4E6B 8894 8D82 7872 7379"            /* gXPI@?Nkˆ”�‚xrsy */
	$"7A72 6D6F 6F6A 6464 6764 616C 7F8A 8F9B"            /* zrmoojddgdal.Š�› */
	$"B7D4 C4B5 A993 869C B6AF 987B 5A49 341C"            /* ·Ôĵ©“†œ¶¯˜{ZI4. */
	$"0D1B 2F3B 4D57 5E67 654E 413B 4E67 6E8E"            /* Â./;MW^geNA;NgnŽ */
	$"B5CC CBCE C3D3 F9FD FAFF FFFF FFF8 DAC6"            /* µÌËÎÃÓ.........Æ */
	$"AD8C 7887 9C88 5E3D 494D 330A 0102 1108"            /* ­Œx‡œˆ^=IM3..... */
	$"0115 2D1D 1936 3746 5E56 5075 9FAD 9F8C"            /* ..-..67F^VPuŸ­ŸŒ */
	$"8CA8 A682 7099 CCD1 C1C1 D1D2 C5A8 8F72"            /* Œ¨¦‚p™ÌÑÁÁÑÒŨ�r */
	$"654A 3949 533A 3654 6279 816C 6D9B CDDF"            /* eJ9IS:6Tby�lm›Í. */
	$"CEB3 AEBA A678 596E 867F 758A A8A7 927D"            /* γ®º¦xYn†.uŠ¨§’} */
	$"7566 6141 2B45 6969 6D73 636A 694E 4C77"            /* ufaA+EiimscjiNLw */
	$"ACCE DDDE D1C6 A87C 6C89 A197 7B81 989A"            /* ¬Î..Ñƨ|l‰¡—{�˜š */
	$"7E66 5E52 5546 4E80 A293 9AAA A2A2 9677"            /* ~f^RUFN€¢“šª¢¢–w */
	$"6F98 C9DB CFAE 8A74 521E 051F 3431 273D"            /* o˜É.Ï®ŠtR...41'= */
	$"5F69 5449 4947 5451 5D8D B5B1 BBC1 B0AF"            /* _iTIIGTQ]�µ±»Á°¯ */
	$"B3B1 C5F0 FFFF FFF5 DEC3 9562 5976 816A"            /* ³±Å......ÕbYv�j */
	$"443E 4B46 220E 0302 140F 0E32 4B36 3B44"            /* D>KF"......2K6;D */
	$"424D 514E 6695 B8C5 C5B9 B6B7 AA8D 90B5"            /* BMQNf•¸ÅŹ¶·ª��µ */
	$"D3D4 C0C7 E0E1 C3B7 A58F 876B 5F75 744B"            /* ÓÔÀÇ..÷¥�‡k_utK */
	$"454A 4C5B 584C 5F90 B8C9 C8B4 B0B0 986A"            /* EJL[XL_�¸ÉÈ´°°˜j */
	$"5F74 8579 616F 929E 867D 6F65 6653 495F"            /* _t…yao’ž†}oefSI_ */
	$"675D 6C6A 5D58 442A 3563 8EAA B8BD C8C2"            /* g]lj]XD*5cŽª¸½È */
	$"9F6D 6074 8D8B 7373 837F 675D 4B41 3E31"            /* Ÿm`t�‹ssƒ.g]KA>1 */
	$"4079 958A 9091 9299 8565 6994 C1DB D7BA"            /* @y•Š�‘’™…ei”Á.׺ */
	$"A491 6E3F 313F 5252 4A59 7476 625C 5355"            /* ¤‘n?1?RRJYtvb\SU */
	$"5B58 6CA4 C0C1 CECA C0C0 B3A8 C0F0 FFFF"            /* [Xl¤ÀÁÎÊÀÀ³¨À... */
	$"FFF6 E0CA A370 6576 8375 5B51 5240 1F0F"            /* ...Ê£pevƒu[QR@.. */
	$"0201 0103 0D32 443F 433D 3B49 4C45 5784"            /* ....Â2D?C=;ILEW„ */
	$"A7BA BBAD A5A4 9B88 8BA2 BAC2 BDC0 D2CE"            /* §º»­¥¤›ˆ‹¢ºÂ½ÀÒÎ */
	$"B4A8 998D 836F 6275 755A 4C3E 3A4B 5043"            /* ´¨™�ƒobuuZL>:KPC */
	$"4B71 95AF B7AC A5A5 9774 6D7B 8883 757B"            /* Kq•¯·¬¥¥—tm{ˆƒu{ */
	$"99A0 948D 8382 8175 7286 8277 837F 7472"            /* ™ ”�ƒ‚�ur†‚wƒ.tr */
	$"5F44 4667 849B A3A6 B3B7 986C 6570 7B78"            /* _DFg„›£¦³·˜lep{x */
	$"7075 8374 6158 4844 4035 4370 868D 968F"            /* puƒtaXHD@5Cp†�–� */
	$"94A2 9479 80A2 C0D7 D5C6 B7A0 734A 444B"            /* ”¢”y€¢À×ÕÆ· sJDK */
	$"524D 4B5C 7169 5E55 484C 4F4D 6796 A6B0"            /* RMK\qi^UHLOMg–¦° */
	$"BAB3 B5B7 A296 B9ED FFFF FEF0 DDC3 926B"            /* º³µ·¢–¹......Ã’k */
	$"6979 8172 6261 5D3E 2411 0101 0106 294B"            /* iy�rba]>$.....)K */
	$"4A4C 4D41 4954 4B4E 77AB C8CC B8AB A89E"            /* JLMAITKNw«È̸«¨ž */
	$"8079 92AA B3AF B6C9 CFBA AB9D 918D 7F72"            /* €y’ª³¯¶ÉϺ«�‘�.r */
	$"8391 7F6F 5537 3843 3F44 6893 ADB3 A59F"            /* ƒ‘.oU78C?Dh“­³¥Ÿ */
	$"9D91 756E 7F8B 897C 7885 8C86 8784 7E7F"            /* �‘un.‹‰|x…Œ†‡„~. */
	$"7A79 919F 8D81 7A74 7C7A 6152 6685 9798"            /* zy‘Ÿ��zt|zaRf…—˜ */
	$"8B8B 979A 7F6F 767D 786E 7181 816D 6156"            /* ‹‹—š.ov}xnq��maV */
	$"4D48 3E3B 5972 7A8A 8E88 929A 8E8B A3BF"            /* MH>;YrzŠŽˆ’šŽ‹£¿ */
	$"D1D2 C4BC B396 6551 575A 4F45 4D62 655A"            /* ÑÒļ³–eQWZOEMbeZ */
	$"5850 4944 414C 728C 96A5 A6A5 B0AE 999C"            /* XPIDALrŒ–¥¦¥°®™œ */
	$"C4F2 FFFF FCEE DEBA 897A 7F83 7C72 7278"            /* Ä......º‰z.ƒ|rrx */
	$"6343 2F18 0901 010B 384D 4D50 453D 4645"            /* cC/.Æ...8MMPE=FE */
	$"3E53 87B5 D0C9 B1A4 9B82 6875 93A6 A5A3"            /* >S‡µÐɱ¤›‚hu“¦¥£ */
	$"B4C9 BFAD A395 8F89 7C83 9C96 877B 5C43"            /* ´É¿­£•�‰|ƒœ–‡{\C */
	$"3C35 3453 83A8 BBAF 9D98 9377 6274 8E96"            /* <54Sƒ¨»¯�˜“wbtŽ– */
	$"887F 888F 7D75 7B7B 7D78 7389 A9A6 9887"            /* ˆ.ˆ�}u{{}xs‰©¦˜‡ */
	$"6E6C 776D 5F6C 889B 9F8A 7774 786B 6677"            /* nlwm_lˆ›ŸŠwtxkfw */
	$"8480 6D65 757F 6E62 594F 4B42 3B53 6F70"            /* „€meu.nbYOKB;Sop */
	$"7982 7F88 9089 8DAB CDE0 E0CA B9B2 A37E"            /* y‚.ˆ�‰�«Í..ʹ²£~ */
	$"6668 6E64 4E44 525B 4F4A 4949 4940 3C58"            /* fhndNDR[OJIII@<X */
	$"7881 8F9A 9AA3 ADA8 A2B4 D5F4 FFFE F8EC"            /* x��šš£­¨¢´Õ..... */
	$"D9B3 948E 8D88 7B6E 7477 603F 2309 0101"            /* .³”Ž�ˆ{ntw`?#Æ.. */
	$"0118 4353 5859 5C71 7877 8491 ACC7 CFD2"            /* ..CSXY\qxw„‘¬ÇÏÒ */
	$"C9B8 AD9A 7478 8595 9888 9091 7868 6055"            /* ɸ­štx…•˜ˆ�‘xh`U */
	$"2C03 061E 0A11 3F80 9153 2428 365A 8FCE"            /* ,.....?€‘S$(6Z�Î */
	$"FCFE F4DF CDD2 D8DC F9FF FFFF FEFE F1B9"            /* ....ÍÒØ........¹ */
	$"9483 7266 6868 4916 0302 0101 0120 502F"            /* ”ƒrfhhI...... P/ */
	$"0807 1A39 4054 798F ABB7 A4A4 B0AB BBE9"            /* ...9@Ty�«·¤¤°«». */
	$"FAFD F3FD F9C8 9B8C 8A90 9DA4 8540 2F26"            /* .....È›ŒŠ��¤…@/& */
	$"1A15 1749 7A63 3B22 1E32 2D32 4142 4743"            /* ...Izc;".2-2ABGC */
	$"303A 4946 64A6 D6DB BEDD F4D9 C2C7 D4E2"            /* 0:IFd¦Ö.¾...ÂÇÔ. */
	$"F3FA E0A7 988B 8B97 9AC7 EFDC B884 5D54"            /* ...§˜‹‹—šÇ..¸„]T */
	$"495D 706D 7462 3821 1502 0426 6A7B 6A87"            /* I]pmtb8!...&j{j‡ */
	$"A086 6350 5965 819E 9980 7356 3F39 3D77"            /*  †cPYe�ž™€sV?9=w */
	$"ACB4 AE98 8D9C A4BB C8C5 CFC7 ABA1 A584"            /* ¬´®˜�œ¤»ÈÅÏÇ«¡¥„ */
	$"7885 B5AA 7775 8775 5846 5267 7983 6137"            /* x…µªwu‡uXFRgyƒa7 */
	$"230E 0B14 2157 878D 8471 6D7C 86A3 B6C1"            /* #...!W‡�„qm|†£¶Á */
	$"E1EC D9C9 CAA5 92A0 DEEF CFD0 E5CF 9D72"            /* ...ÉÊ¥’ ..ÏÐ.Ï�r */
	$"5E67 7A91 7245 2B0B 0101 0116 4451 4B33"            /* ^gz‘rE+.....DQK3 */
	$"2829 2C4C 6C81 ACC1 B1AB BFC2 C0CD F8FF"            /* (),Ll�¬Á±«¿ÂÀÍ.. */
	$"FCF9 FFFD DFB7 9586 8183 5D31 1B04 0101"            /* .....·•†�ƒ]1.... */
	$"0105 2433 3321 1D23 2D4F 6F81 A2BB A49F"            /* ..$33!.#-Oo�¢»¤Ÿ */
	$"B1C2 C4CF F9FF FFFF FFFF F0CB B4A8 AAB6"            /* ±ÂÄÏ.......Ë´¨ª¶ */
	$"945F 360B 0101 0102 1F3B 412B 1E13 0E27"            /* ”_6......;A+...' */
	$"3D4A 6991 837A 787C 7272 AADE DFE7 FBFF"            /* =Ji‘ƒzx|rrª..... */
	$"FEF1 E0D4 D9EF E0BB 9D78 6142 2739 545D"            /* ...Ô...»�xaB'9T] */
	$"5B45 413E 3955 686B 7994 8273 7381 7C74"            /* [EA>9Uhky”‚ss�|t */
	$"9AC0 B8AE BDCB CAB4 A191 94AD A587 673D"            /* šÀ¸®½ËÊ´¡‘”­¥‡g= */
	$"240D 0112 3C58 6250 4135 253F 6278 96BA"            /* $Â..<XbPA5%?bx–º */
	$"B19E 8C90 8A7C 9BC4 C9BD C4C9 C2A8 917E"            /* ±žŒ�Š|›ÄɽÄɨ‘~ */
	$"7D99 9D89 755C 503D 1F23 4261 7873 6C67"            /* }™�‰u\P=.#Baxslg */
	$"545A 6E6A 6983 8783 7E89 8F85 9CC4 D1CB"            /* TZnjiƒ‡ƒ~‰�…œÄÑË */
	$"D7E8 F4EA DAC8 BED2 D3BA 9E82 725D 403D"            /* ×....ȾÒÓºž‚r]@= */
	$"5471 8172 5F4E 3738 4F4E 4C5B 5745 2F2A"            /* Tq�r_N78ONL[WE/* */
	$"2A1F 3A6F 8A8A 92A0 A89F 9380 7590 A098"            /* *.:oŠŠ’ ¨Ÿ“€u� ˜ */
	$"8261 4B35 1818 3762 8687 8785 7677 8F93"            /* ‚aK5..7b†‡‡…vw�“ */
	$"99B3 B7A9 9998 947D 83A1 A69B A4B8 C6C2"            /* ™³·©™˜”}ƒ¡¦›¤¸Æ */
	$"B7A0 8C9B A193 7F66 5947 261E 314F 6661"            /* · Œ›¡“.fYG&.1Ofa */
	$"6160 545B 777D 87A3 A797 8180 8175 89B1"            /* a`T[w}‡£§—�€�u‰± */
	$"BDB3 B3B8 B6A7 9C92 91AD B8A6 8862 4A31"            /* ½³³¸¶§œ’‘­¸¦ˆbJ1 */
	$"0E07 1B3B 544C 4337 252B 4B56 6585 918F"            /* ...;TLC7%+KVe…‘� */
	$"8D9A 9D8E 9DC4 D3D0 D8E6 EBDA C3A2 878F"            /* �š�Ž�ÄÓÐØ...â‡� */
	$"9285 7154 422F 110B 1D40 5D5E 5F5E 535B"            /* ’…qTB/...@]^_^S[ */
	$"7A87 92AB B1AD A8B3 BBB1 C2EA F7EC E9EB"            /* z‡’«±­¨³»±Â..... */
	$"EBDE CDB2 9697 9176 532B 0F01 0101 0116"            /* ..Ͳ–—‘vS+...... */
	$"3231 2923 1619 3746 5374 837D 7074 7C76"            /* 21)#..7FStƒ}pt|v */
	$"90C4 E3E8 F5FE FFFF F8E1 CEDA DFCD B18C"            /* �Ä........Î..ͱŒ */
	$"6D4E 230A 0C20 3839 3837 2C31 494D 516D"            /* mN#.. 8987,1IMQm */
	$"7879 7885 8F85 96C0 D2CB D3E7 F7F3 E8D4"            /* xyx…�…–ÀÒËÓ....Ô */
	$"C3D2 D8C3 A074 5840 2013 2038 4A3E 2E1D"            /* ÃÒØàtX@ . 8J>.. */
	$"0A12 374B 5C7B 8379 6B6E 7367 79A3 B8B6"            /* ..7K\{ƒyknsgy£¸¶ */
	$"BDCA D2C9 BBA9 9EB2 BEB5 A58E 7B64 3C2B"            /* ½ÊÒÉ»©ž²¾µ¥Ž{d<+ */
	$"3754 6D6A 6256 3F3B 4A45 455E 6B66 5D64"            /* 7TmjbV?;JEE^kf]d */
	$"6E67 7BA6 BDBE CADF EDE8 DED0 C7DA DFCF"            /* ng{¦½¾Ê....ÐÇ..Ï */
	$"BA9E 8C77 584F 5E77 897D 6B5B 4748 5A55"            /* ºžŒwXO^w‰}k[GHZU */
	$"505C 5847 3637 3C36 5080 9492 9AA9 B3AB"            /* P\XG67<6P€”’š©³« */
	$"A090 869B A598 8060 4834 1B1F 3C63 8487"            /*  �†›¥˜€`H4..<c„‡ */
	$"867F 6C6C 8388 91AA AFA3 928E 8771 7795"            /* †.llƒˆ‘ª¯£’Ž‡qw• */
	$"A2A1 AEC2 CFCA BDA8 95A0 A79D 8E7A 6A57"            /* ¢¡®ÂÏʽ¨• §�ŽzjW */
	$"392C 374C 6269 696A 6161 7683 8695 9A8D"            /* 9,7Lbiijaavƒ†•š� */
	$"7B77 7D78 7D97 ABA7 9F9E A4A5 A2A0 9CA3"            /* {w}x}—«§Ÿž¤¥¢ œ£ */
	$"ACA3 8F75 5D4A 3421 2231 4752 514D 4440"            /* ¬£�u]J4!"1GRQMD@ */
	$"4B5E 6A7A 8C99 9D9E 9D95 8D98 ADB9 BABD"            /* K^jzŒ™�ž�•�˜­¹º½ */
	$"C1C1 B4A1 8A7D 7F81 7A6C 5E52 4537 333A"            /* ÁÁ´¡Š}.�zl^RE73: */
	$"4A5B 666D 6E70 7A8B 979D A3AA AEAF B3B6"            /* J[fmnpz‹—�£ª®¯³¶ */
	$"B5B6 BFC5 C1BD C9E1 DDCF BB9E 8784 8571"            /* µ¶¿ÅÁ½É..Ï»ž‡„…q */
	$"563C 1F0F 0401 0102 121D 272C 3041 4D3D"            /* V<........',0AM= */
	$"2C23 2B3C 3F59 7E9A A6BE CCE1 FAFD FBFF"            /* ,#+<?Y~š¦¾Ì..... */
	$"FFFF FFFF F6E6 D0A2 766D 796D 5442 566E"            /* ......ТvmymTBVn */
	$"6746 2E22 2621 1936 5A58 4C5D 6167 746D"            /* gF."&!.6ZXL]agtm */
	$"72A6 DBEF E8D9 CED0 BF8F 676F 8C8C 7766"            /* r¦....Îп�goŒŒwf */
	$"6864 5131 1B0A 0E12 1E4B 7773 6674 7682"            /* hdQ1.....Kwsftv‚ */
	$"8979 7BA7 D6E6 D5BA ABB3 B197 8090 AAAD"            /* ‰y{§Ö.Õº«³±—€�ª­ */
	$"A2A3 AC9F 7D5A 442D 2719 1637 5649 383C"            /* ¢£¬Ÿ}ZD-'..7VI8< */
	$"384C 5E53 5788 BDD2 CDBD B2B6 AF9A 94B5"            /* 8L^SWˆ½Òͽ²¶¯š”µ */
	$"D6E0 D7DC EBEC D6BF B6A9 A894 808E 9B80"            /* Ö.×...Ö¿¶©¨”€Ž›€ */
	$"7275 6B6E 6A50 4661 7E83 7967 5651 4223"            /* ruknjPFa~ƒygVQB# */
	$"142A 4040 3442 6476 6D63 5D50 5246 4062"            /* .*@@4Bdvmc]PRF@b */
	$"8782 848B 868B 8F84 8EBC ECFE FCE8 D4C0"            /* ‡‚„‹†‹�„Ž¼....ÔÀ */
	$"9E73 606F 776A 5359 727C 6A62 5F56 5D55"            /* žs`owjSYr|jb_V]U */
	$"506E 8A7E 7E80 7474 6C5B 6694 C2D6 D6CC"            /* PnŠ~~€ttl[f”ÂÖÖÌ */
	$"C8BF A27A 6A7B 8A87 7577 8B8D 735F 4D3A"            /* È¿¢zj{Š‡uw‹�s_M: */
	$"3C3D 4E7D A299 9691 8381 7768 77A6 CCD5"            /* <=N}¢™–‘ƒ�whw¦ÌÕ */
	$"C8AD 9A8B 7354 506B 8181 7173 8484 6B5D"            /* È­š‹sTPk��qs„„k] */
	$"4F41 4238 3957 6A5A 5855 4E55 5549 5686"            /* OAB89WjZXUNUUIV† */
	$"B6CD CCBA B2AB 9575 7088 A1A7 9DA1 AFAD"            /* ¶Í̺²«•upˆ¡§�¡¯­ */
	$"9791 877D 7E77 7B99 A58F 867B 6F73 6D5A"            /* —‘‡}~w{™¥�†{osmZ */
	$"5D80 9FA8 997E 7370 6042 3C4B 5956 484D"            /* ]€Ÿ¨™~sp`B<KYVHM */
	$"5E62 5557 514A 4940 446B 878B 9799 99A7"            /* ^bUWQJI@Dk‡‹—™™§ */
	$"A89B A4CE F6FF FFFD F0DD BB90 8083 8679"            /* ¨›¤Î......»�€ƒ†y */
	$"6461 6D65 4D45 3A33 322C 3050 6262 6C67"            /* dameME:32,0Pbblg */
	$"6068 6658 618B B8D8 DFD2 CCCA BA9A 8D92"            /* `hfXa‹¸Ø.ÒÌʺš�’ */
	$"9995 8887 9188 6C58 4332 2920 2951 6C6F"            /* ™•ˆ‡‘ˆlXC2) )Qlo */
	$"746A 5A5B 5849 4E74 9DB8 BAAA 9E95 8264"            /* tjZ[XINt�¸ºªž•‚d */
	$"637D 969F 9BA0 AEAB 9688 7870 6D62 6078"            /* c}–Ÿ› ®«–ˆxpmb`x */
	$"7E74 7266 5759 5447 5075 9BB4 B7A9 A19A"            /* ~trfWYTGPu›´·©¡š */
	$"8568 6A80 9397 97A3 B6B2 A29A 8F8B 8982"            /* …hj€“——£¶²¢š�‹‰‚ */
	$"8AA5 A99D 9684 7675 6B5B 6280 97A1 937E"            /* Š¥©�–„vuk[b€—¡“~ */
	$"7269 5137 3B4D 5955 4E56 655E 5455 5154"            /* riQ7;MYUNVe^TUQT */
	$"534C 5774 7D83 8E8B 8C96 918A 9CC2 E1F4"            /* SLWt}ƒŽ‹Œ–‘ŠœÂ.. */
	$"EEE0 D5C2 9C7A 797F 7C6C 5F64 6E62 5651"            /* ..ÕÂœzy.|l_dnbVQ */
	$"4847 4340 5675 7A7E 837B 7B80 766E 84AC"            /* HGC@Vuz~ƒ{{€vn„¬ */
	$"CDE0 DACE C8BE 9D87 8C94 9284 7E87 8972"            /* Í..ÎȾ�‡Œ”’„~‡‰r */
	$"5F4E 3C34 2923 3E5F 6872 786F 6D6C 5E58"            /* _N<4)#>_hrxoml^X */
	$"739C BBC5 B7A5 9B89 6657 677D 8884 8999"            /* sœ»Å·¥›‰fWg}ˆ„‰™ */
	$"9F8F 8477 6963 5B57 6F84 7C79 7160 5B58"            /* Ÿ�„wic[Wo„|yq`[X */
	$"4D50 729A B8C1 B5AA A394 756A 7A8D 9490"            /* MPrš¸Áµª£”ujz�”� */
	$"95A8 AE9F 978D 8483 8081 99AB A39D 907E"            /* •¨®Ÿ—�„ƒ€�™«£��~ */
	$"7873 6361 7A98 ABAA 9481 7764 463E 4F5F"            /* xscaz˜«ª”�wdF>O_ */
	$"6056 5662 6152 4C47 4649 4649 6374 7377"            /* `VVbaRLGFIFIctsw */
	$"7877 7F82 7B86 ABCF E5E9 DDD4 CEB9 9689"            /* xw.‚{†«Ï...Ôι–‰ */
	$"9195 8875 6F76 6F5E 564E 4A48 4147 6777"            /* ‘•ˆuovo^VNJHAGgw */
	$"777B 7773 7978 6E79 9BBA D1D5 CAC2 BBA5"            /* w{wsyxny›ºÑÕÊ»¥ */
	$"8A8A 99A2 9586 878F 826D 6050 4539 2A2F"            /* ŠŠ™¢•†‡�‚m`PE9*. */
	$"4C59 5E69 6868 6E65 5966 8BAC C2BF B1A5"            /* LY^ihhneYf‹¬Â¿±¥ */
	$"987C 6163 7381 8180 8D9C 9488 8479 6F64"            /* ˜|acs��€�œ”ˆ„yod */
	$"5A67 8284 7E77 665B 5748 3E54 7E9F B1AC"            /* Zg‚„~wf[WH>T~Ÿ±¬ */
	$"A19A 8F76 656E 828F 8D8B 98A6 9E94 908A"            /* ¡š�ven‚��‹˜¦ž”�Š */
	$"8986 8397 B1B1 ADA6 9388 816E 6478 99AF"            /* ‰†ƒ—±±­¦“ˆ�ndx™¯ */
	$"B3A2 8C7B 6645 3746 5961 5A56 5F64 554A"            /* ³¢Œ{fE7FYaZV_dUJ */
	$"4543 4542 435C 7677 7876 6F74 7C78 7C9B"            /* ECEBC\vwxvot|x|› */
	$"C3DF E8DE D1CA BDA3 939A A09A 897C 7D78"            /* Ã...Ñʽ£“š š‰|}x */
	$"6557 4F4B 4944 4156 6D70 7272 6C70 756D"            /* eWOKIDAVmprrlpum */
	$"6C86 AAC4 CCC4 BBB5 A88F 8592 A0A1 948A"            /* l†ªÄÌÄ»µ¨�…’ ¡”Š */
	$"8C87 756A 5F55 4B3C 3445 5659 5F63 636B"            /* Œ‡uj_UK<4EVY_cck */
	$"6D63 637E A0B9 BFB3 A8A0 8B6D 646E 7A7B"            /* mcc~ ¹¿³¨ ‹mdnz{ */
	$"767B 8A8E 837C 7670 6B61 6177 8785 857A"            /* v{ŠŽƒ|vpkaaw‡……z */
	$"6E6B 6151 5371 96B1 B5AB A39C 876C 6A7B"            /* nkaQSq–±µ«£œ‡lj{ */
	$"898A 8487 9391 8885 8280 7E77 7C96 A3A5"            /* ‰Š„‡“‘ˆ…‚€~w|–£¥ */
	$"A69E 948F 816F 7390 AFC0 BBA7 9682 6143"            /* ¦ž”��os�¯À»§–‚aC */
	$"4253 6160 5A5F 685D 4C42 3A3B 3B39 4765"            /* BSa`Z_h]LB:;;9Ge */
	$"7170 6E64 636D 6E6F 86AF D3E8 E3D6 CFC5"            /* qpndcmno†¯Ó..ÖÏÅ */
	$"AD98 9CAB AD9F 8E8A 8671 5C52 4A48 423A"            /* ­˜œ«­ŸŽŠ†q\RJHB: */
	$"4862 6B6D 6E68 6A6E 6762 77A1 C3D3 CCC0"            /* Hbkmnhjngbw¡ÃÓÌÀ */
	$"BAAE 9484 90A5 AEA5 9B9B 9680 6D62 5853"            /* º®”„�¥®¥››–€mbXS */
	$"483C 4452 514E 4F50 5A65 6260 7595 AFB8"            /* H<DRQNOPZeb`u•¯¸ */
	$"B1AA A69B 806C 7280 847D 7C88 928B 837D"            /* ±ª¦›€lr€„}|ˆ’‹ƒ} */
	$"7773 6B64 7082 8582 7B70 6A62 5149 5A7B"            /* wskdp‚…‚{pjbQIZ{ */
	$"99A7 A39A 9385 6C60 6E83 8C89 8994 978C"            /* ™§£š“…l`nƒŒ‰‰”—Œ */
	$"8788 898A 8786 97A7 A9AA A59C 9991 7C72"            /* ‡ˆ‰Š‡†—§©ª¥œ™‘|r */
	$"809A AEB2 A597 8A72 4D3A 404E 5554 5965"            /* €š®²¥—ŠrM:@NUTYe */
	$"6658 4D43 3E3D 3E48 6276 7B7D 756C 6F70"            /* fXMC>=>Hbv{}ulop */
	$"6C76 97BE D9E0 D5C9 BFAD 9491 9EAC AA9B"            /* lv—¾..ÕÉ¿­”‘ž¬ª› */
	$"918F 8169 584D 4A47 4145 5A68 6B70 6C68"            /* ‘��iXMJGAEZhkplh */
	$"6E6E 676F 8DAF C8C9 BCB3 AB98 807D 8C9D"            /* nngo�¯Èɼ³«˜€}Œ� */
	$"A19D 9DA1 9680 6F62 5B55 4C50 6063 5E5A"            /* ¡��¡–€ob[ULP`c^Z */
	$"5252 5E64 6574 93B2 C2BD ABA2 9A83 6A67"            /* RR^det“²Â½«¢šƒjg */
	$"727A 746B 6F7A 7870 6B68 6A68 626A 7C83"            /* rztkozxpkhjhbj|ƒ */
	$"8585 7B75 776D 6169 839F B1AD A39E 957E"            /* ……{uwmaiƒŸ±­£ž•~ */
	$"696C 7B85 837F 868F 887B 7371 7576 7582"            /* il{…ƒ.†�ˆ{squvu‚ */
	$"98A0 A2A1 9896 978E 8388 9EB4 BEB6 A69A"            /* ˜ ¢¡˜–—Žƒˆž´¾¶¦š */
	$"8B6E 514C 555B 5957 6068 6053 4740 3D38"            /* ‹nQLU[YW`h`SG@=8 */
	$"3646 606D 7273 6C69 6B68 6980 A4C7 DBD9"            /* 6F`mrslikhi€¤Ç.. */
	$"D0C9 BDA3 9298 A9B0 A9A1 A09B 8770 5C4C"            /* Ðɽ£’˜©°©¡ ›‡p\L */
	$"453E 3A4A 5D63 6462 5C5D 605D 627A 9BB8"            /* E>:J]cdb\]`]bz›¸ */
	$"C5C0 B4AE A28C 818B 9BA3 A0A1 A9A9 9985"            /* ÅÀ´®¢Œ�‹›£ ¡©©™… */
	$"7468 6057 515B 6665 5F54 4A4B 4F4F 5A77"            /* th`WQ[fe_TJKOOZw */
	$"97B1 B9B0 A39B 8C73 676E 797A 7474 7D80"            /* —±¹°£›Œsgnyztt}€ */
	$"7971 6C6C 6C6A 6D81 8D8E 8D85 7D7C 766C"            /* yqllljm��Ž�…}|vl */
	$"6D80 95A5 A79E 9591 826C 6671 7D7E 797C"            /* m€•¥§ž•‘‚lfq}~y| */
	$"8788 8178 716F 6F6C 758B 999E A19E 9999"            /* ‡ˆ�xqoolu‹™ž¡ž™™ */
	$"9387 899C B1BF BDAD 9F91 785C 4F54 5A58"            /* “‡‰œ±¿½­Ÿ‘x\OTZX */
	$"555C 6765 5D53 4A45 403D 475E 6C73 7873"            /* U\ge]SJE@=G^lsxs */
	$"7071 6A64 7393 B3C6 C9C2 BBB2 9C86 828D"            /* pqjds“³ÆÉ»²œ†‚� */
	$"9798 9498 9A90 8170 5F53 4842 4C60 6B72"            /* —˜”˜š��p_SHBL`kr */
	$"7673 7172 6F6C 7C9A B8CB CDC3 B8A9 927F"            /* vsqrol|š¸ËÍø©’. */
	$"7C86 8F90 8F93 9790 8476 685E 544E 5460"            /* |†���“—�„vh^TNT` */
	$"6464 5F54 4E4F 4F53 688A ABBD BDB3 A799"            /* dd_TNOOShŠ«½½³§™ */
	$"8473 7176 7975 7276 7873 6C65 6161 5F61"            /* „sqvyurvxsleaa_a */
	$"7082 8B8E 8A80 7C7A 736F 7B91 A6AE A69A"            /* p‚‹ŽŠ€|zso{‘¦®¦š */
	$"9389 7669 6B75 7B7B 7B7F 8380 7A73 6D6B"            /* “‰viku{{{.ƒ€zsmk */
	$"6A6C 7D90 9BA3 A29D 9D9D 9694 A1B9 CCD0"            /* jl}�›£¢���–”¡¹ÌÐ */
	$"C3B2 A490 7360 5E61 5F58 555C 5F5B 5247"            /* ò¤�s`^a_XU\_[RG */
	$"403D 3839 4755 5E63 6360 6365 6064 7A9B"            /* @=89GU^cc`ce`dz› */
	$"B8C4 C2BE BBAF 998E 929B 9E9D A0A7 A397"            /* ¸Ä¾»¯™Ž’›ž� §£— */
	$"8776 675A 4D4A 5863 696C 665F 5F5C 565E"            /* ‡vgZMJXcilf__\V^ */
	$"799B B7BF B8AF A594 7F7B 8591 9494 99A0"            /* y›·¿¸¯¥”.{…‘””™  */
	$"9D97 8F84 7C73 696A 7577 746E 6258 554E"            /* �—�„|sijuwtnbXUN */
	$"4752 6E8E A6AE A79E 9581 6C67 6E73 706D"            /* GRnŽ¦®§ž•�lgnspm */
	$"7277 726C 6763 6262 6471 8793 9A9B 928B"            /* rwrlgcbbdq‡“š›’‹ */
	$"8880 777D 91A7 B3AE 9D8D 7F6E 5F5D 666D"            /* ˆ€w}‘§³®��.n_]fm */
	$"6D6D 7175 726F 6E6C 6B69 6874 8693 9DA4"            /* mmquronlkiht†“�¤ */
	$"A5A5 A7A3 9DA5 B9CB D5CF C2B4 A287 6E61"            /* ¥¥§£�¥¹ËÕÏ´¢‡na */
	$"605D 554F 5459 554F 463F 3A36 3744 545D"            /* `]UOTYUOF?:67DT] */
	$"6366 6463 6564 6575 90AB BEC1 BDB7 AD9C"            /* cfdcedeu�«¾Á½·­œ */
	$"9193 9B9E 9B9A A0A3 9B8F 8377 6A5D 5459"            /* ‘“›ž›š £›�ƒwj]TY */
	$"6267 6C6D 6966 645E 5F70 8BA7 B8BA B4AD"            /* bglmifd^_p‹§¸º´­ */
	$"9E88 7A7C 8489 8B8F 9799 9289 8078 7067"            /* žˆz|„‰‹�—™’‰€xpg */
	$"6670 7878 746C 605A 534B 4D63 819B AAAA"            /* fpxxtl`ZSKMc�›ªª */
	$"A59E 907C 7276 7D7D 7977 7977 6E66 5E5B"            /* ¥ž�|rv}}ywywnf^[ */
	$"5A58 5F72 8086 8D8E 8986 8077 798D A3B4"            /* ZX_r€†�Ž‰†€wy�£´ */
	$"B7AC 9D8D 7965 6068 7375 7376 7B79 726B"            /* ·¬��ye`hsusv{yrk */
	$"6564 6360 677A 878D 9294 9496 9795 9CB2"            /* edc`gz‡�’””–—•œ² */
	$"CAD8 D7CA BDAF 9881 7573 7169 605E 5F5B"            /* ÊØ×ʽ¯˜�usqi`^_[ */
	$"5650 4B47 413B 3F4D 575D 6062 6161 5E5A"            /* VPKGA;?MW]`baa^Z */
	$"6378 91A6 AEAE ADA7 9A8C 8B93 9A9B 999F"            /* cx‘¦®®­§šŒ‹“š›™Ÿ */
	$"A6A5 9D93 877D 7267 656C 7071 6F6B 6A69"            /* ¦¥�“‡}rgelpqokji */
	$"6461 6B81 97A7 ACAA A69E 8B7B 787C 7E7E"            /* dak�—§¬ª¦ž‹{x|~~ */
	$"7F87 8F8E 8880 7A75 6D67 6C77 7D7D 7972"            /* .‡�Žˆ€zumglw}}yr */
	$"6B62 5651 5D76 90A4 ABAA A69C 8779 797E"            /* kbVQ]v�¤«ª¦œ‡yy~ */
	$"807F 7E81 8076 6C62 5C58 5455 6374 7D83"            /* €.~�€vlb\XTUct}ƒ */
	$"8382 8280 7977 869B ACB5 B1A6 9A88 7163"            /* ƒ‚‚€yw†›¬µ±¦šˆqc */
	$"656E 7272 757C 7E79 736C 6764 6265 7482"            /* enrru|~yslgdbet‚ */
	$"898E 8F8F 9292 8D91 A4BF D2D9 D3C5 B5A1"            /* ‰Ž��’’�‘¤¿Ò.Óŵ¡ */
	$"897A 7777 7268 6362 5B52 4C47 4543 4042"            /* ‰zwwrhcb[RLGEC@B */
	$"4F5A 5F63 6260 6363 5F63 7890 A2AB ABA9"            /* OZ_cb`cc_cx�¢««© */
	$"A59A 8B87 8D93 9592 969B 9B98 9289 7F75"            /* ¥š‹‡�“•’–››˜’‰.u */
	$"6C69 7174 7473 6F6A 6A67 6267 7B93 A4AA"            /* liqttsojjgbg{“¤ª */
	$"A7A2 9C8E 7E7A 7E81 807E 848B 8B88 847F"            /* §¢œŽ~z~�€~„‹‹ˆ„. */
	$"7973 6E71 7A80 8281 7B74 6F66 5B5B 6C83"            /* ysnqz€‚�{tof[[lƒ */
	$"969F A19F 9A8C 7D76 797B 7C7C 8082 7B72"            /* –Ÿ¡ŸšŒ}vy{||€‚{r */
	$"6960 5954 535C 6B75 7C81 807F 817E 7B82"            /* i`YTS\ku|�€.�~{‚ */
	$"96AB B8BA B2A7 9984 7069 6B6D 6E6F 7476"            /* –«¸º²§™„pikmnotv */
	$"7470 6B65 5E59 5964 747E 8588 8787 8887"            /* tpke^YYdt~…ˆ‡‡ˆ‡ */
	$"8794 ADC5 D4D7 CEC1 B099 8783 8481 7A73"            /* ‡”­ÅÔ×ÎÁ°™‡ƒ„�zs */
	$"6F67 5B50 4944 413F 414C 575B 5E60 5F5F"            /* og[PIDA?ALW[^`__ */
	$"6263 6572 889C A8AA A6A2 9C91 898C 9295"            /* bcerˆœ¨ª¦¢œ‘‰Œ’• */
	$"969A 9F9F 9B96 8F86 7B70 6B70 7573 716D"            /* –šŸŸ›–�†{pkpusqm */
	$"6660 5F5C 5F6E 869A A4A3 9D96 8D7F 7A80"            /* f`_\_n†š¤£�–�.z€ */
	$"8687 8687 8B8D 8C8B 8884 7E77 757C 807F"            /* †‡†‡‹�Œ‹ˆ„~wu|€. */
	$"7E7B 7670 6A61 5D64 7485 9194 9492 8A7C"            /* ~{vpja]dt…‘””’Š| */
	$"7274 7879 7A7F 8586 8076 6C62 5A55 5B6A"            /* rtxyz.…†€vlbZU[j */
	$"757B 807F 7C7A 7876 7D8F A4B4 B9B2 A69A"            /* u{€.|zxv}�¤´¹²¦š */
	$"8A77 6D6D 6E6E 6D70 7475 7471 6D68 625D"            /* Šwmmnnmptutqmhb] */
	$"616D 7880 878A 8A8A 8988 8D9E B4C7 D1D0"            /* amx€‡ŠŠŠ‰ˆ�ž´ÇÑÐ */
	$"C8BB A891 8482 8280 7C79 746A 5E51 4741"            /* È»¨‘„‚‚€|ytj^QGA */
	$"3F3E 4653 5B5D 5E5D 5C5D 5F62 6C7F 93A1"            /* ?>FS[]^]\]_bl.“¡ */
	$"A5A0 9891 8982 838A 8F8F 8E92 9697 9693"            /* ¥ ˜‘‰‚ƒŠ��Ž’–—–“ */
	$"8F89 7F76 767B 7C7B 7873 6E6A 6563 6D80"            /* �‰.vv{|{xsnjecm€ */
	$"94A2 A6A3 9C92 8478 767C 7F7F 7F82 8483"            /* ”¢¦£œ’„xv|...‚„ƒ */
	$"807D 7B7A 7674 7A80 8180 7E79 7673 6D69"            /* €}{zvtz€�€~yvsmi */
	$"6F7B 868E 9292 908D 857D 7C7F 7E7B 7A7E"            /* o{†Ž’’��…}|.~{z~ */
	$"8282 7E76 6D62 5752 5A65 6D74 7979 7977"            /* ‚‚~vmbWRZemtyyyw */
	$"7375 8398 AAB5 B8B1 A697 8677 7473 7170"            /* suƒ˜ªµ¸±¦—†wtsqp */
	$"7276 7775 716C 6662 5E5D 6770 777C 7F81"            /* rvwuqlfb^]gpw|.� */
	$"8384 8388 99AF C2CE D2CF C6B7 A595 8E8B"            /* ƒ„ƒˆ™¯ÂÎÒÏÆ·¥•Ž‹ */
	$"8782 817F 786D 6154 483E 383B 4752 585A"            /* ‡‚�.xmaTH>8;GRXZ */
	$"5956 5452 5159 6F88 9BA3 A29C 9286 7C7B"            /* YVTRQYoˆ›£¢œ’†|{ */
	$"828A 8E90 9396 9695 9390 8B86 8181 8485"            /* ‚ŠŽ�“––•“�‹†��„… */
	$"837F 7973 6D67 6366 7689 99A1 A29E 9589"            /* ƒ.ysmgcfv‰™¡¢ž•‰ */
	$"7D78 7A7D 7F81 8384 8481 7E7A 7673 7275"            /* }xz}.�ƒ„„�~zvsru */
	$"7D82 8381 7D78 736C 676A 7683 8D90 8E8A"            /* }‚ƒ�}xslgjvƒ��ŽŠ */
	$"867F 797A 7F81 8080 8386 8685 827B 7166"            /* †.yz.�€€ƒ††…‚{qf */
	$"5D5D 646B 7277 7878 7774 7177 889B A9AE"            /* ]]dkrwxxwtqwˆ›©® */
	$"ACA6 9C8D 7E76 7472 6E70 7678 7775 716C"            /* ¬¦œ�~vtrnpvxwuql */
	$"6762 5F65 6F76 7B7F 8082 8383 838D A1B6"            /* gb_eov{.€‚ƒƒƒ�¡¶ */
	$"C4C9 C9C3 B8AA 9B93 8F89 8380 817E 756C"            /* ÄÉÉøª›“�‰ƒ€�~ul */
	$"6255 483D 3840 4B54 595D 5D5B 5855 5664"            /* bUH=8@KTY]][XUVd */
	$"7D93 A2A6 A49D 9181 7879 7F84 868C 9393"            /* }“¢¦¤�‘�xy.„†Œ““ */
	$"908C 8986 827E 7F86 8C8B 8883 7C75 6E68"            /* �Œ‰†‚~.†Œ‹ˆƒ|unh */
	$"6A76 8899 A3A5 A39C 8F81 787A 7E7D 7B7F"            /* jvˆ™£¥£œ��xz~}{. */
	$"8382 7C78 7572 6F6B 6E76 7E83 8482 7E78"            /* ƒ‚|xuroknv~ƒ„‚~x */
	$"716A 6B75 8491 9694 8E86 7D75 747A 8183"            /* qjku„‘–”Ž†}utz�ƒ */
	$"8286 8987 8480 7D77 6F65 6164 686B 6E70"            /* ‚†‰‡„€}woeadhknp */
	$"7273 716F 737E 8E9E A7A9 A69E 9488 7D7A"            /* rsqos~Žž§©¦ž”ˆ}z */
	$"7773 7073 7778 7775 716B 645E 6069 6F74"            /* wspswxwuqkd^`iot */
	$"787B 7C7C 7B7B 8395 AABB C5C6 C2BB B1A6"            /* x{||{{ƒ•ª»ÅÆ»±¦ */
	$"9C98 9690 8986 8580 7A72 675B 4E44 4247"            /* œ˜–�‰†…€zrg[NDBG */
	$"4D52 575A 5A58 5352 5969 7E91 9CA1 9F96"            /* MRWZZXSRYi~‘œ¡Ÿ– */
	$"8B7F 7778 7C80 858D 9495 938E 8884 8182"            /* ‹.wx|€…�”•“Žˆ„�‚ */
	$"8991 9494 8F87 7E74 6D6A 6F7C 8C97 9D9C"            /* ‰‘””�‡~tmjo|Œ—�œ */
	$"968C 8279 7676 7777 777A 7D7D 7B77 7472"            /* –Œ‚yvvwwwz}}{wtr */
	$"6F6E 757D 858A 8D8B 8883 7B75 7883 909A"            /* onu}…Š�‹ˆƒ{uxƒ�š */
	$"9B95 8A7C 6F68 676D 7277 7D80 807C 7772"            /* ›•Š|ohgmrw}€€|wr */
	$"6E6B 6764 676B 6D6E 6F70 7273 757A 8697"            /* nkgdgkmnoprsuz†— */
	$"A7B0 B1AE A89F 948B 847F 7973 6F6F 7070"            /* §°±®¨Ÿ”‹„.ysoopp */
	$"716E 6862 5C5A 6169 6F74 777A 7A78 7679"            /* qnhb\Zaiotwzzxvy */
	$"879E B3C2 C9CA C4BA AEA5 A09F 9B94 8E89"            /* ‡ž³ÂÉÊĺ®¥ Ÿ›”Ž‰ */
	$"827B 7368 5D52 4A44 4548 4C4F 5254 5453"            /* ‚{sh]RJDEHLORTTS */
	$"5157 6375 8591 999C 9B94 8C86 827F 7F80"            /* QWcu…‘™œ›”Œ†‚..€ */
	$"858C 9192 8F89 8079 767A 838C 9393 8E87"            /* …Œ‘’�‰€yvzƒŒ““Ž‡ */
	$"7D73 6A6B 7584 929B 9D9A 9287 7D79 797B"            /* }sjku„’›�š’‡}yy{ */
	$"7D7F 8182 817E 7A76 726F 6D71 777E 8486"            /* }.�‚�~zvromqw~„† */
	$"8686 847E 7979 828D 9599 968F 8375 6A66"            /* ††„~yy‚�•™–�ƒujf */
	$"686A 6F75 7D81 8180 7D77 706B 6A6F 7476"            /* hjou}��€}wpkjotv */
	$"7574 7170 6F6F 707A 8C9D A8AC ABA6 9C92"            /* utqpoopzŒ�¨¬«¦œ’ */
	$"8A85 837F 7A76 7370 6B6A 6A68 6562 6164"            /* Š…ƒ.zvspkjjhebad */
	$"696E 7377 797A 7A78 7881 91A3 B1BA BFBD"            /* inswyzzxx�‘£±º¿½ */
	$"B4AA A2A0 9F9D 9894 918C 837B 746A 5E53"            /* ´ª¢ Ÿ�˜”‘Œƒ{tj^S */
	$"4E4F 5153 5558 595A 5959 5B63 7281 8C91"            /* NOQSUXYZYY[cr�Œ‘ */
	$"9291 8A82 7E7E 7C79 787C 8286 8787 8782"            /* ’‘Š‚~~|yx|‚†‡‡‡‚ */
	$"7B74 757D 858C 9194 928C 847B 777C 8895"            /* {tu}…Œ‘”’Œ„{w|ˆ• */
	$"9FA1 9E97 8B7F 7878 7776 797D 7F7F 7D7A"            /* Ÿ¡ž—‹.xxwvy}..}z */
	$"7772 6C68 6B73 7A7F 8486 8583 807D 7E84"            /* wrlhksz.„†…ƒ€}~„ */
	$"8E97 9C9B 948B 7E70 6966 6667 6B73 797D"            /* Ž—œ›”‹~piffgksy} */
	$"7D7B 7872 6C68 6C73 7879 7876 736F 6E6F"            /* }{xrlhlsxyxvsono */
	$"7682 92A1 AAAC A79F 958C 8888 8683 807D"            /* v‚’¡ª¬§Ÿ•Œˆˆ†ƒ€} */
	$"7972 6C69 6765 6362 666B 6E70 7275 7776"            /* yrligecbfknpruwv */
	$"7678 7D89 97A4 ADB2 B2B0 AAA3 A09F 9E9B"            /* vx}‰—¤­²²°ª£ Ÿž› */
	$"9795 918B 837B 7268 5E57 5455 5656 5657"            /* —•‘‹ƒ{rh^WTUVVVW */
	$"5959 585A 626D 7985 8C8E 8D89 837D 7C7C"            /* YYXZbmy…ŒŽ�‰ƒ}|| */
	$"7C7C 7C7E 8182 8384 8381 7C7A 7C81 878C"            /* |||~�‚ƒ„ƒ�|z|�‡Œ */
	$"9194 9592 8A84 848A 929A 9D9C 978E 837A"            /* ‘”•’Š„„Š’š�œ—Žƒz */
	$"7674 7372 7579 7B7B 7A77 736D 6868 6F78"            /* vtsruy{{zwsmhhox */
	$"7E82 8586 8786 8383 8B96 9FA3 A39D 9385"            /* ~‚…†‡†ƒƒ‹–Ÿ££�“… */
	$"776C 6663 6162 666D 7172 7372 706B 6667"            /* wlfcabfmqrsrpkfg */
	$"6C73 7676 7573 716D 6A6E 7A8A 9AA5 ADAD"            /* lsvvusqmjnzŠš¥­­ */
	$"A79E 948E 8C8B 8987 8684 7E75 6E6A 6660"            /* §ž”ŽŒ‹‰‡†„~unjf` */
	$"5E62 686E 7070 7070 6F6E 6F75 828F 9BA4"            /* ^bhnpppponou‚�›¤ */
	$"A9AB A9A6 A4A4 A5A4 A2A2 A19F 9A93 8B83"            /* ©«©¦¤¤¥¤¢¢¡Ÿš“‹ƒ */
	$"7A6E 6562 605E 5B58 5656 5654 555A 6571"            /* zneb`^[XVVVTUZeq */
	$"7B82 8686 8179 7474 7576 787A 7D7F 8080"            /* {‚††�yttuvxz}.€€ */
	$"8182 817E 7D7F 8285 888B 8E90 908D 8B8C"            /* �‚�~}.‚…ˆ‹Ž���‹Œ */
	$"9197 9B9C 9B97 8F86 7D78 7570 6D6E 7275"            /* ‘—›œ›—�†}xupmnru */
	$"7879 7877 736C 6A6D 737A 7F82 8586 8583"            /* xyxwsljmsz.‚…†…ƒ */
	$"8287 919D A5A8 A69F 9384 766D 6864 6266"            /* ‚‡‘�¥¨¦Ÿ“„vmhdbf */
	$"6A6E 6F6F 7070 6D6B 6B70 757A 7C7B 7A78"            /* jnooppmkkpuz|{zx */
	$"736F 6E75 8291 9DA3 A5A2 9B92 8B88 8683"            /* sonu‚‘�£¥¢›’‹ˆ†ƒ */
	$"8081 8280 7B74 6D65 5D58 5A62 6C74 7776"            /* €�‚€{tme]XZbltwv */
	$"7574 7170 757F 8F9E A7AB ABA7 A19B 989B"            /* utqpu.�ž§««§¡›˜› */
	$"9E9E 9E9F 9F9A 928A 837C 736A 6664 6260"            /* žžžŸŸš’Šƒ|sjfdb` */
	$"5B56 5455 5556 5C65 737F 878A 8A87 817B"            /* [VTUUV\es.‡ŠŠ‡�{ */
	$"7778 7877 7678 7B7C 7B7A 7B7B 7775 777B"            /* wxxwvx{|{z{{wuw{ */
	$"8083 8586 8688 8889 8C93 9DA4 A5A3 A099"            /* €ƒ…††ˆˆ‰Œ“�¤¥£ ™ */
	$"9087 8281 7E79 7475 7676 7573 7373 706C"            /* �‡‚�~ytuvvussspl */
	$"6D6F 7275 787A 7D7F 8080 8289 949D A2A4"            /* moruxz}.€€‚‰”�¢¤ */
	$"A29A 8F83 7974 6F69 6669 6E71 7171 7271"            /* ¢š�ƒytoifinqqqrq */
	$"6E6B 6E74 7A7E 7F7E 7C77 7270 727A 8993"            /* nkntz~.~|wrprz‰“ */
	$"989B 9B96 8F87 8484 827F 7E7F 817E 7972"            /* ˜››–�‡„„‚.~.�~yr */
	$"6C64 5D5A 5F66 6E73 7577 7775 7274 7A87"            /* ld]Z_fnsuwwurtz‡ */
	$"96A1 A6A9 A8A2 9A95 9598 9A9B 9DA0 A09D"            /* –¡¦©¨¢š••˜š›�  � */
	$"958D 857C 736E 6D6D 6C68 615C 5853 5156"            /* •�…|snmmlha\XSQV */
	$"5F6D 7B84 8888 857F 7773 7477 7776 7679"            /* _m{„ˆˆ….wstwwvvy */
	$"7A79 7775 7574 7274 7A81 8586 8686 8786"            /* zywuutrtz�…†††‡† */
	$"868A 929C A4A8 A6A1 9A91 8881 7E7E 7C79"            /* †Š’œ¤¨¦¡š‘ˆ�~~|y */
	$"7878 7774 716F 6E6D 6B6D 7175 787A 7B7D"            /* xxwtqonmkmquxz{} */
	$"7F7F 8085 8C96 9FA4 A5A3 9D93 887E 7873"            /* ..€…Œ–Ÿ¤¥£�“ˆ~xs */
	$"6C65 6264 6667 6767 6867 6669 6E75 7B7E"            /* lebdfggghgfinu{~ */
	$"7F80 7E7A 7778 7F89 949B 9F9F 9C95 8F8A"            /* .€~zwx.‰”›ŸŸœ•�Š */
	$"8988 8583 8384 837F 7871 6A62 5A59 5D63"            /* ‰ˆ…ƒƒ„ƒ.xqjbZY]c */
	$"6A6D 6E70 706E 6E73 7C89 969F A3A4 A09A"            /* jmnppnns|‰–Ÿ£¤ š */
	$"9594 9699 9B9C A0A3 A39F 9992 897F 7774"            /* •”–™›œ ££Ÿ™’‰.wt */
	$"7474 716B 645E 5750 4E55 6271 7E83 8583"            /* ttqkd^WPNUbq~ƒ…ƒ */
	$"7E77 7270 7173 7476 7879 7A78 7573 706E"            /* ~wrpqstvxyzxuspn */
	$"7076 7D83 8685 8383 8281 848E 99A4 ABAC"            /* pv}ƒ†…ƒƒ‚�„Ž™¤«¬ */
	$"A8A2 998E 8682 8281 7E7C 7B7A 7976 716E"            /* ¨¢™Ž†‚‚�~|{zyvqn */
	$"6C69 6A6F 7478 7A7A 7A7A 7A79 7C85 919D"            /* lijotxzzzzzy|…‘� */
	$"A5A6 A5A0 978B 827D 7974 6E6A 6866 6564"            /* ¥¦¥ —‹‚}ytnjhfed */
	$"6262 6362 656C 7378 7C7D 7D7E 7D7A 7B80"            /* bbcbelsx|}}~}z{€ */
	$"8892 989A 9B99 938D 8886 8583 8081 8383"            /* ˆ’˜š›™“�ˆ†…ƒ€�ƒƒ */
	$"817D 7770 6860 5C5E 6268 6C6F 7273 7270"            /* �}wph`\^bhlorsrp */
	$"727A 8794 9FA3 A4A1 9B93 8F8E 9194 979A"            /* rz‡”Ÿ£¤¡›“�Ž‘”—š */
	$"9D9E 9D9A 9690 877E 7979 7978 746F 6963"            /* �ž�š–�‡~yyyxtoic */
	$"5B55 565E 6B79 8286 8683 7B74 706F 6F70"            /* [UV^ky‚††ƒ{tpoop */
	$"7173 7677 7673 6F6B 6766 6B73 7A80 8384"            /* qsvwvsokgfksz€ƒ„ */
	$"8381 7E7E 8693 A0AB B1B1 ABA2 968C 8887"            /* ƒ�~~†“ «±±«¢–Œˆ‡ */
	$"8683 8181 7F7C 7772 6E6A 6663 666C 7175"            /* †ƒ��.|wrnjfcflqu */
	$"7776 7675 7476 7E8A 97A2 A9AA A69E 938B"            /* wvvutv~Š—¢©ª¦ž“‹ */
	$"8683 7E79 7573 706B 6764 6261 5F60 666D"            /* †ƒ~yuspkgdba_`fm */
	$"7376 7878 797A 797A 7F87 8F95 999B 9994"            /* svxxyzyz.‡�•™›™” */
	$"8E8A 8988 8784 8586 8685 827E 7A72 6A64"            /* ŽŠ‰ˆ‡„…††…‚~zrjd */
	$"6465 6668 6A6C 6E6E 6C6C 737E 8993 999C"            /* defhjlnnlls~‰“™œ */
	$"9B95 8E8B 8A8B 8E92 969A 9C9C 9B9A 9791"            /* ›•Ž‹Š‹Ž’–šœœ›š—‘ */
	$"8984 8281 7F7C 7873 6D65 5D59 5C63 6D76"            /* ‰„‚�.|xsme]Y\cmv */
	$"7D81 8079 706B 6A6A 6A6C 7075 7878 7673"            /* }�€ypkjjjlpuxxvs */
	$"706C 696B 727A 8085 8788 8784 8083 8D98"            /* plikrz€…‡ˆ‡„€ƒ�˜ */
	$"A3AC B0AE A79A 8D86 8382 807E 7F80 7E7A"            /* £¬°®§š�†ƒ‚€~.€~z */
	$"7571 6E6A 6667 6C71 767A 7B7B 7A79 787C"            /* uqnjfglqvz{{zyx| */
	$"8692 9DA6 A9A8 A196 8C86 827D 7774 7270"            /* †’�¦©¨¡–Œ†‚}wtrp */
	$"6B65 5F5C 5B59 595E 6770 7578 797A 7B7C"            /* ke_\[YY^gpuxyz{| */
	$"7D83 8C95 9B9D 9E9C 978F 8886 8786 8381"            /* }ƒŒ•›�žœ—�ˆ†‡†ƒ� */
	$"8182 807D 7976 716A 6665 6667 6867 686C"            /* �‚€}yvqjfefghghl */
	$"6E6E 7077 818C 949A 9D9E 9B93 8E8D 8E8E"            /* nnpw�Œ”š�ž›“Ž�ŽŽ */
	$"8E91 9599 9A97 9592 8E89 8684 8382 7E79"            /* Ž‘•™š—•’Ž‰†„ƒ‚~y */
	$"7571 6B63 5F62 686E 7379 7E80 7E77 7170"            /* uqkc_bhnsy~€~wqp */
	$"706F 6E71 767B 7C7A 7774 6F6A 686C 7277"            /* ponqv{|zwtojhlrw */
	$"7B7C 7C7D 7B78 7981 8D98 A2A9 ACA9 A094"            /* {||}{xy��˜¢©¬© ” */
	$"8B87 8684 8283 8687 847F 7A77 726C 6A6E"            /* ‹‡†„‚ƒ†‡„.zwrljn */
	$"7377 7877 7776 7471 727B 8894 9CA1 A29F"            /* swxwwvtqr{ˆ”œ¡¢Ÿ */
	$"978D 8683 817D 7978 7876 7068 625F 5B5A"            /* —�†ƒ�}yxxvphb_[Z */
	$"5D66 6F76 797A 7B7B 7A79 7D87 939B 9E9D"            /* ]fovyz{{zy}‡“›ž� */
	$"9A95 8C84 8181 8280 7F7F 8181 7E7B 7976"            /* š•Œ„��‚€..��~{yv */
	$"716B 696C 6F6F 6D6B 6C6D 6D6E 737E 8991"            /* qkiloomklmmns~‰‘ */
	$"9597 9896 8F88 8687 8887 888C 9195 9593"            /* •—˜–�ˆ†‡ˆ‡ˆŒ‘••“ */
	$"9291 8D8A 8A8C 8D8B 8680 7C77 706A 6A6F"            /* ’‘�ŠŠŒ�‹†€|wpjjo */
	$"7579 7A7B 7C7A 746F 6E6E 6C69 696C 7173"            /* uyz{|ztonnliilqs */
	$"7372 706E 6966 686E 7479 7C7E 8080 7F7D"            /* srpnifhnty|~€€.} */
	$"828D 98A1 A7AB ABA7 9E93 8D89 8480 8082"            /* ‚�˜¡§««§ž“�‰„€€‚ */
	$"8381 7D78 736E 6864 666C 7274 7474 7574"            /* ƒ�}xsnhdflrtttut */
	$"7475 7D89 959D A3A7 A6A1 9991 8E8C 8883"            /* tu}‰•�£§¦¡™‘ŽŒˆƒ */
	$"7F7D 7B75 6E66 5F58 5252 5760 676B 6E70"            /* .}{unf_XRRW`gknp */
	$"7272 7174 7E8B 979F A2A1 9C94 8B86 8688"            /* rrqt~‹—Ÿ¢¡œ”‹††ˆ */
	$"8887 888A 8986 817C 7974 6F6C 6D6F 6F6D"            /* ˆ‡ˆŠ‰†�|ytolmoom */
	$"6966 6563 6368 7380 8B91 9494 928C 8683"            /* ifecchs€‹‘””’Œ†ƒ */
	$"8486 8787 8A8E 9294 9493 9290 8D8E 9193"            /* „†‡‡ŠŽ’””“’��Ž‘“ */
	$"9390 8A84 7F78 706E 7276 7A7B 7A78 746F"            /* “�Š„.xpnrvz{zxto */
	$"6A68 696A 6968 696C 6F70 7070 706E 6A6B"            /* jhijihiloppppnjk */
	$"6F74 787B 7C7E 807F 7F82 8A93 9CA2 A5A7"            /* otx{|~€..‚Š“œ¢¥§ */
	$"A59F 9790 8C87 827E 8081 817F 7B77 736E"            /* ¥Ÿ—�Œ‡‚~€��.{wsn */
	$"696A 6E72 7577 7676 7675 7478 828E 989E"            /* ijnruwvvvutx‚Ž˜ž */
	$"A1A2 9F99 928D 8B88 8481 7F7C 7873 6C66"            /* ¡¢Ÿ™’�‹ˆ„�.|xslf */
	$"6059 5456 5C63 696E 7175 7776 777D 8894"            /* `YTV\cinquwvw}ˆ” */
	$"9DA2 A4A2 9B90 8783 8281 8081 8485 837F"            /* �¢¤¢›�‡ƒ‚�€�„…ƒ. */
	$"7874 716C 6A6C 6F71 716E 6A68 6664 6770"            /* xtqljloqqnjhfdgp */
	$"7D8A 9398 9A98 928B 8686 8786 8486 888A"            /* }Š“˜š˜’‹††‡†„†ˆŠ */
	$"8B8B 8B8B 8B88 8689 8D90 908D 8984 7E77"            /* ‹‹‹‹‹ˆ†‰����‰„~w */
	$"7375 7B80 8383 817D 766E 6A6B 6D6D 6B6D"            /* su{€ƒƒ�}vnjkmmkm */
	$"6F70 706F 6D6C 6B69 696D 7275 7777 7779"            /* oppomlkiimruwwwy */
	$"7A7A 7E87 9098 9EA1 A2A1 9E99 9593 908A"            /* zz~‡�˜ž¡¢¡ž™•“�Š */
	$"8482 8282 817E 7B78 736D 6A6C 7073 7676"            /* „‚‚‚�~{xsmjlpsvv */
	$"7676 7472 747B 8691 999D 9F9D 9992 8E8B"            /* vvtrt{†‘™�Ÿ�™’Ž‹ */
	$"8A87 8484 8380 7A73 6C65 5E57 5659 5E63"            /* Š‡„„ƒ€zsle^WVY^c */
	$"6769 6C70 7274 7982 8D97 9DA1 A19E 968E"            /* gilprty‚�—�¡¡ž–Ž */
	$"8785 8482 8083 8686 8480 7C77 726E 6E71"            /* ‡…„‚€ƒ††„€|wrnnq */
	$"7475 7572 6F6C 6764 6873 808C 9397 9792"            /* tuurolgdhs€Œ“——’ */
	$"8A83 8081 8282 8285 8788 8785 8586 8686"            /* Šƒ€�‚‚‚…‡ˆ‡……††† */
	$"898E 9294 9492 8E89 827D 7C80 8588 8785"            /* ‰Ž’””’Ž‰‚}|€…ˆ‡… */
	$"8179 7069 6768 6868 696B 6D6E 6C6A 6867"            /* �ypighhhikmnljhg */
	$"6564 686E 7377 7978 7879 797B 828C 979E"            /* edhnswyxxyy{‚Œ—ž */
	$"A1A2 A09C 9692 9191 8E89 8583 8280 7D7A"            /* ¡¢ œ–’‘‘Ž‰…ƒ‚€}z */
	$"7774 706C 6D70 7374 7576 7776 7576 7C85"            /* wtplmpstuvwvuv|… */
	$"8F97 9C9F 9F9A 948F 8E8D 8B88 8788 8783"            /* �—œŸŸš”�Ž�‹ˆ‡ˆ‡ƒ */
	$"7B72 6A63 5B56 575B 5F62 6466 696B 6C72"            /* {rjc[VW[_bdfiklr */
	$"7C88 939A 9E9F 9F99 908A 8786 8381 8285"            /* |ˆ“šžŸŸ™�Š‡†ƒ�‚… */
	$"8685 827E 7A75 706D 6F72 7575 7472 6F6A"            /* †…‚~zupmoruutroj */
	$"6666 6D77 828C 9295 948D 8580 8081 8080"            /* ffmw‚Œ’•”�…€€�€€ */
	$"8488 8987 8583 8282 8386 8B91 9495 9391"            /* „ˆ‰‡…ƒ‚‚ƒ†‹‘”•“‘ */
	$"8E88 8282 8589 8C8C 8A86 7F75 6C67 6768"            /* Žˆ‚‚…‰ŒŒŠ†.ulggh */
	$"6768 6B6E 6F6D 6A69 6766 6567 6D72 7679"            /* ghknomjigfegmrvy */
	$"7A7A 7A78 777D 8791 999E A09F 9A93 8E8B"            /* zzzxw}‡‘™ž Ÿš“Ž‹ */
	$"8C8C 8B88 8785 817C 7977 7471 6E70 7476"            /* ŒŒ‹ˆ‡…�|ywtqnptv */
	$"7777 7777 7877 777C 858E 9599 9C9C 9892"            /* wwwwxww|…Ž•™œœ˜’ */
	$"8D8B 8B8B 8987 8787 847F 7871 6A62 5C5A"            /* �‹‹‹‰‡‡‡„.xqjb\Z */
	$"5C5D 5F61 6466 6769 6C76 828E 979D A1A1"            /* \]_adfgilv‚Ž—�¡¡ */
	$"9C95 8F8B 8886 8382 8485 8481 7E7B 7671"            /* œ•�‹ˆ†ƒ‚„…„�~{vq */
	$"6D6E 7275 7676 7471 6E6A 686D 7681 898F"            /* mnruvvtqnjhmv�‰� */
	$"9394 918A 8582 8180 8081 8385 8582 7F7C"            /* “”‘Š…‚�€€�ƒ……‚.| */
	$"7A79 7B82 898E 9091 908E 8B87 8588 8D92"            /* zy{‚‰Ž�‘�Ž‹‡…ˆ�’ */
	$"9493 9089 7F74 6D69 6969 696B 6E70 6F6C"            /* ”“�‰.tmiiiiknpol */
	$"6965 6362 6368 6F73 7475 7576 7573 7680"            /* iecbchostuuvusv€ */
	$"8C96 9C9E 9E9C 968F 8C8C 8D8D 8C8C 8C8A"            /* Œ–œžžœ–�ŒŒ��ŒŒŒŠ */
	$"8580 7B77 7371 7073 7678 7776 7573 7272"            /* …€{wsqpsvxwvusrr */
	$"757E 878F 9497 9897 928C 8A8B 8C8C 8C8C"            /* u~‡�”—˜—’ŒŠ‹ŒŒŒŒ */
	$"8C8B 8782 7C75 6E68 6362 6362 6161 6162"            /* Œ‹‡‚|unhcbcbaaab */
	$"6364 6A75 818B 9296 9897 918C 8988 8785"            /* cdju�‹’–˜—‘Œ‰ˆ‡… */
	$"8384 8787 8583 807C 7875 7477 7B7D 7C7B"            /* ƒ„‡‡…ƒ€|xutw{}|{ */
	$"7976 716E 6F75 7C83 888B 8C8A 8580 7E7E"            /* yvqnou|ƒˆ‹ŒŠ…€~~ */
	$"7D7B 7B7E 8181 807F 7D7A 7878 7C84 8C90"            /* }{{~��€.}zxx|„Œ� */
	$"9395 9694 908D 8E94 999B 9A97 9187 7B70"            /* “•–”��Ž”™›š—‘‡{p */
	$"6966 6463 6468 6A6A 6765 625F 5C5C 6269"            /* ifdcdhjjgeb_\\bi */
	$"6F73 7576 7676 7678 808C 969D A1A3 A09A"            /* osuvvvvx€Œ–�¡£ š */
	$"938E 8C8C 8B8A 8B8C 8B87 827C 7672 6E6C"            /* “ŽŒŒ‹Š‹Œ‹‡‚|vrnl */
	$"6F73 7677 7877 7673 7273 7B86 9096 9A9C"            /* osvwxwvsrs{†�–šœ */
	$"9993 8D89 8889 8A8A 8B8C 8B87 817B 7670"            /* ™“�‰ˆ‰ŠŠ‹Œ‹‡�{vp */
	$"6964 6363 6260 5E5E 5E5F 6166 717D 8991"            /* idccb`^^^_afq}‰‘ */
	$"979A 9A96 9290 8F8E 8B89 8888 8785 827E"            /* —šš–’��Ž‹‰ˆˆ‡…‚~ */
	$"7B76 7270 7174 7676 7574 726F 6C6C 727A"            /* {vrpqtvvutrollrz */
	$"8186 8A8C 8B88 8482 8384 8484 8586 8684"            /* �†ŠŒ‹ˆ„‚ƒ„„„…††„ */
	$"817F 7D7A 7878 7D83 878A 8C8D 8D8C 8A8C"            /* �.}zxx}ƒ‡ŠŒ��ŒŠŒ */
	$"9196 9A9B 9995 8E84 7972 6E6B 6868 6B6E"            /* ‘–š›™•Ž„yrnkhhkn */
	$"706E 6B68 6562 6062 676D 7173 7474 7371"            /* pnkheb`bgmqsttsq */
	$"7277 818B 9399 9C9B 9790 8986 8788 8889"            /* rw�‹“™œ›—�‰†‡ˆˆ‰ */
	$"8B8C 8B87 827C 7874 7273 767A 7B7B 7A79"            /* ‹Œ‹‡‚|xtrsvz{{zy */
	$"7674 7478 818A 9195 9796 918A 8583 8484"            /* vttx�Š‘•—–‘Š…ƒ„„ */
	$"8486 898B 8985 807C 7772 6F6D 6D6D 6B68"            /* „†‰‹‰…€|wrommmkh */
	$"6664 6262 656D 7983 8C92 9696 948F 8B8A"            /* fdbbemyƒŒ’––”�‹Š */
	$"8A89 8785 8585 827E 7B78 7572 7274 7678"            /* Š‰‡………‚~{xurrtvx */
	$"7979 7979 7674 7478 7E84 8789 8A89 8581"            /* yyyyvttx~„‡‰Š‰…� */
	$"7E7D 7F7F 7E7E 7F80 7F7C 7976 7372 7376"            /* ~}..~~.€.|yvsrsv */
	$"7C81 8689 8C8E 8E8F 9297 9EA2 A4A3 A099"            /* |�†‰ŒŽŽ�’—ž¢¤£ ™ */
	$"9085 7C75 706B 6867 696A 6A67 6562 5F5C"            /* �…|upkhgijjgeb_\ */
	$"5D61 656A 6D6F 7172 7273 7780 8A92 999D"            /* ]aejmoqrrsw€Š’™� */
	$"9F9D 9993 8E8B 8A89 888A 8B8B 8984 7E79"            /* Ÿ�™“Ž‹Š‰ˆŠ‹‹‰„~y */
	$"726F 6F72 7576 7777 7674 7271 757D 868E"            /* rooruvwwvtrqu}†Ž */
	$"9397 9895 908C 8888 8888 888A 8C8C 8A85"            /* “—˜•�ŒˆˆˆˆˆŠŒŒŠ… */
	$"807A 7571 7070 6F6D 6965 625F 5C5E 646E"            /* €zuqppomieb_\^dn */
	$"7981 888D 9090 8D8A 8A8A 8B8B 8B8C 8B89"            /* y�ˆ����ŠŠŠ‹‹‹Œ‹‰ */
	$"8682 7E7A 7776 7779 7B7B 7A79 7875 7373"            /* †‚~zwvwy{{zyxuss */
	$"777D 8286 8787 8582 7E7B 7B7C 7D7E 7F80"            /* w}‚†‡‡…‚~{{|}~.€ */
	$"8181 7F7D 7A77 7474 767A 7F82 8588 8A8A"            /* ��.}zwttvz.‚…ˆŠŠ */
	$"8B8E 939B A1A4 A4A2 9D95 8A82 7B76 706C"            /* ‹Ž“›¡¤¤¢�•Š‚{vpl */
	$"6969 6A69 6867 6562 6060 6367 6C6F 7071"            /* iijihgeb``cglopq */
	$"7271 7174 7B84 8D93 9698 9793 8E8A 8887"            /* rqqt{„�“–˜—“ŽŠˆ‡ */
	$"8484 8587 8887 8582 7D77 7371 7478 7B7D"            /* „„…‡ˆ‡…‚}wsqtx{} */
	$"7E7E 7D7A 7879 7F86 8D92 9595 938E 8885"            /* ~~}zxy.†�’••“Žˆ… */
	$"8383 8282 8486 8786 8481 7C77 7372 7374"            /* ƒƒ‚‚„†‡†„�|wsrst */
	$"7471 6E6B 6763 6164 6D77 7F85 8A8D 8D8A"            /* tqnkgcadmw.…Š��Š */
	$"8887 8788 8889 898A 8884 807D 7874 7374"            /* ˆ‡‡ˆˆ‰‰Šˆ„€}xtst */
	$"7679 7B7B 7A79 7876 7679 7F86 8A8C 8C8A"            /* vy{{zyxvvy.†ŠŒŒŠ */
	$"8680 7C7C 7C7D 7E7F 8081 807F 7C79 7673"            /* †€|||}~.€�€.|yvs */
	$"7172 7579 7C7F 8285 8687 898F 97A0 A6A8"            /* qruy|.‚…†‡‰�— ¦¨ */
	$"A7A4 9C93 8B84 7F7A 7571 6E6C 6A67 6563"            /* §¤œ“‹„.zuqnljgec */
	$"615F 5E60 6467 6A6B 6D6F 7070 7277 7F88"            /* a_^`dgjkmopprw.ˆ */
	$"9094 9797 9490 8C8A 8988 8685 8687 8685"            /* �”——”�ŒŠ‰ˆ†…†‡†… */
	$"837F 7A75 7271 7477 7A7B 7C7B 7876 767B"            /* ƒ.zurqtwz{|{xvv{ */
	$"828B 9295 9695 908A 8685 8586 8688 898A"            /* ‚‹’•–•�Š†……††ˆ‰Š */
	$"8987 8480 7C78 7675 7676 7571 6D69 6461"            /* ‰‡„€|xvuvvuqmida */
	$"6166 6E76 7D81 8486 8481 8182 8485 8789"            /* afnv}�„†„��‚„…‡‰ */
	$"8C8D 8B88 847F 7A78 7779 7C7F 7F7E 7D7A"            /* Œ�‹ˆ„.zxwy|..~}z */
	$"7775 777D 8389 8C8C 8983 7C76 7375 7779"            /* wuw}ƒ‰ŒŒ‰ƒ|vsuwy */
	$"7B7D 7F80 7E7C 7B78 7675 7577 7A7D 7F80"            /* {}.€~|{xvuuwz}.€ */
	$"8285 8789 8E96 9EA4 A7A8 A6A1 9990 8982"            /* ‚…‡‰Ž–ž¤§¨¦¡™�‰‚ */
	$"7D78 7471 6F6C 6965 6360 5E5E 6063 676A"            /* }xtqoliec`^^`cgj */
	$"6C6D 6E6F 7072 777F 878E 9396 9693 8F8B"            /* lmnoprw.‡Ž“––“�‹ */
	$"8988 8887 8584 8483 8280 7E7B 7875 7474"            /* ‰ˆˆ‡…„„ƒ‚€~{xutt */
	$"7577 797B 7C7B 7A7A 7D82 898F 9396 9591"            /* uwy{|{zz}‚‰�“–•‘ */
	$"8C86 8382 8182 8485 8686 8482 807C 7876"            /* Œ†ƒ‚�‚„…††„‚€|xv */
	$"7677 7878 7673 706C 6867 696E 767C 8082"            /* vwxxvsplhginv|€‚ */
	$"8280 7E7D 7E7F 8082 8587 8888 8683 807C"            /* ‚€~}~.€‚…‡ˆˆ†ƒ€| */
	$"7877 787A 7D7E 7F7E 7D7A 7879 7E84 8B90"            /* xwxz}~.~}zxy~„‹� */
	$"918F 8B83 7C76 7474 7577 797B 7C7C 7A77"            /* ‘�‹ƒ|vttuwy{||zw */
	$"7472 7172 7577 7A7B 7C7D 7E80 8389 919A"            /* trqruwz{|}~€ƒ‰‘š */
	$"A2A7 A9A9 A6A0 9891 8C86 807C 7874 706B"            /* ¢§©©¦ ˜‘Œ†€|xtpk */
	$"6662 5E5B 5A5B 5D61 6567 696A 6A6C 6E73"            /* fb^[Z[]aegijjlns */
	$"7A81 898F 9294 9390 8C8A 8A89 8989 8887"            /* z�‰�’”“�ŒŠŠ‰‰‰ˆ‡ */
	$"8684 8280 7D7B 7978 7878 7878 7878 797A"            /* †„‚€}{yxxxxxxxyz */
	$"7B7D 8187 8C8F 9190 8D89 8582 8080 8080"            /* {}�‡Œ�‘��‰…‚€€€€ */
	$"8384 8584 8381 7F7B 7A7A 7B7C 7C7B 7875"            /* ƒ„…„ƒ�.{zz{||{xu */
	$"726E 6B6C 6F75 7B7F 8081 807D 7A79 7B7D"            /* rnklou{.€�€}zy{} */
	$"7F81 8485 8685 8481 7E7A 7979 7A7C 7D7E"            /* .�„…†…„�~zyyz|}~ */
	$"7E7D 7B79 787B 8087 8C8F 8F8D 8881 7B76"            /* ~}{yx{€‡Œ���ˆ�{v */
	$"7574 7678 7B7D 7E7D 7B78 7573 7476 787B"            /* utvx{}~}{xustvx{ */
	$"7E7F 7E7D 7D7E 8189 929B A1A5 A6A3 9E98"            /* ~.~}}~�‰’›¡¥¦£ž˜ */
	$"918D 8984 807E 7A76 716B 6662 5F5E 5F61"            /* ‘�‰„€~zvqkfb_^_a */
	$"6467 696B 6C6C 6C6E 7278 8087 8D90 9190"            /* dgiklllnrx€‡��‘� */
	$"8D89 8685 8484 8485 8584 8280 7F7C 7977"            /* �‰†…„„„……„‚€.|yw */
	$"787A 7B7B 7A7A 7979 797A 7E82 898E 9293"            /* xz{{zzyyyz~‚‰Ž’“ */
	$"928F 8B87 8381 807F 7F80 8080 8180 7F7D"            /* ’�‹‡ƒ�€..€€€�€.} */
	$"7B7A 7B7D 7E7E 7E7E 7C78 7472 7173 777B"            /* {z{}~~~~|xtrqsw{ */
	$"7E80 807F 7C79 7777 787A 7D80 8082 8281"            /* ~€€.|ywwxz}€€‚‚� */
	$"807D 7978 787A 7C7D 7E7F 7E7D 7B7C 7E82"            /* €}yxxz|}~.~}{|~‚ */
	$"888D 9091 908C 8680 7B77 7574 7577 797B"            /* ˆ��‘�Œ†€{wutuwy{ */
	$"7B7A 7875 7270 7275 787B 7C7D 7C7B 7B7E"            /* {zxurprux{|}|{{~ */
	$"838C 969E A3A6 A5A1 9D96 928E 8A86 8380"            /* ƒŒ–ž£¦¥¡�–’ŽŠ†ƒ€ */
	$"7C77 716A 6461 5D5D 5F61 6466 6768 696A"            /* |wqjda]]_adfghij */
	$"6B6E 757D 858B 9091 918F 8C89 8787 8686"            /* knu}…‹�‘‘�Œ‰‡‡†† */
	$"8787 8685 8280 7D79 7675 7779 7A7A 7977"            /* ‡‡†…‚€}yvuwyzzyw */
	$"7574 7478 7E85 8B8F 9191 8F8B 8784 8282"            /* uttx~…‹�‘‘�‹‡„‚‚ */
	$"8181 8181 8281 8080 7F7D 7B7C 7D7E 7F7F"            /* ����‚�€€.}{|}~.. */
	$"7E7D 7B78 7574 7678 7B7D 7E7E 7C79 7775"            /* ~}{xutvx{}~~|ywu */
	$"7475 7678 7C7F 8183 8281 807E 7B7A 7B7D"            /* tuvx|.�ƒ‚�€~{z{} */
	$"8080 8080 7F7D 7C7E 8288 8C8F 908F 8B86"            /* €€€€.}|~‚ˆŒ���‹† */
	$"807D 7976 7372 7375 7778 7878 7774 7272"            /* €}yvsrsuwxxxwtrr */
	$"7476 797B 7C7D 7C7C 7C80 868F 969C A0A2"            /* tvy{|}|||€†�–œ ¢ */
	$"A19D 9794 908D 8A88 8582 7E79 726B 6661"            /* ¡�—”��Šˆ…‚~yrkfa */
	$"5D5E 6164 6768 6969 6969 6B70 7880 888C"            /* ]^adghiiiikpx€ˆŒ */
	$"8E8E 8C89 8686 8685 8585 8687 8684 817F"            /* ŽŽŒ‰†††………†‡†„�. */
	$"7C78 7778 7A7C 7D7D 7B79 7776 787D 838B"            /* |xwxz|}}{ywvx}ƒ‹ */
	$"9193 9391 8D87 8381 8080 8080 8080 7F7E"            /* ‘““‘�‡ƒ�€€€€€€.~ */
	$"7C7C 7B7A 7A7C 7E80 807F 7E7D 7C7A 7A7B"            /* ||{zz|~€€.~}|zz{ */
	$"7E80 8180 7F7C 7975 7372 7373 7476 787B"            /* ~€�€.|yusrsstvx{ */
	$"7D7E 7E7D 7C7A 7A7B 7C7E 8080 8080 7F7F"            /* }~~}|zz{|~€€€€.. */
	$"8085 8A8F 9393 9290 8B86 817F 7C78 7574"            /* €…Š�““’�‹†�.|xut */
	$"7474 7475 7474 7372 7272 7375 7778 797A"            /* tttuttsrrrsuwxyz */
	$"7A7A 7D82 8992 989E A1A1 9E9B 9794 9390"            /* zz}‚‰’˜ž¡¡ž›—”“� */
	$"8E8C 8985 807A 736C 6762 5F5F 6163 6565"            /* ŽŒ‰…€zslgb__acee */
	$"6665 6567 6B71 7A81 878B 8C8B 8886 8484"            /* feegkqz�‡‹Œ‹ˆ†„„ */
	$"8686 8687 8887 8684 817F 7B79 7879 7B7C"            /* †††‡ˆ‡†„�.{yxy{| */
	$"7D7C 7B78 7675 787E 858C 9193 928F 8A85"            /* }|{xvux~…Œ‘“’�Š… */
	$"8282 8282 8383 8381 807E 7C7A 7979 7B7D"            /* ‚‚‚‚ƒƒƒ�€~|zyy{} */
	$"7F80 7F7E 7D7B 7A79 7C80 8283 8280 7D78"            /* .€.~}{zy|€‚ƒ‚€}x */
	$"7472 7171 7273 7577 797B 7D7D 7E7D 7B7B"            /* trqqrsuwy{}}~}{{ */
	$"7D7E 7F80 8080 7F7E 7D7E 8187 8D90 9191"            /* }~.€€€.~}~�‡��‘‘ */
	$"8F8B 8681 7F7D 7B79 7775 7474 7373 7374"            /* �‹†�.}{ywuttssst */
	$"7474 7778 7878 797A 7A7A 7A7C 8085 8C90"            /* ttwxxxyzzzz|€…Œ� */
	$"9599 9A9A 9896 9492 908F 8D8C 8985 807B"            /* •™šš˜–”’���Œ‰…€{ */
	$"7570 6966 6566 6767 6869 6867 676A 6F76"            /* upifefgghihggjov */
	$"7E83 8789 8885 8280 8081 8183 8485 8483"            /* ~ƒ‡‰ˆ…‚€€��ƒ„…„ƒ */
	$"8280 7D7A 7878 797B 7C7D 7D7E 7D7B 797B"            /* ‚€}zxxy{|}}~}{y{ */
	$"7F85 8C90 9393 918D 8783 8180 8080 8180"            /* .…Œ�““‘�‡ƒ�€€€�€ */
	$"807E 7B79 7775 7476 797C 7E7F 7F7F 7D7B"            /* €~{ywutvy|~...}{ */
	$"7B7E 8287 8B8B 8985 807A 7572 7272 7374"            /* {~‚‡‹‹‰…€zurrrst */
	$"7575 7677 7878 7878 787A 7C7D 7E7E 7E7E"            /* uuvwxxxxxz|}~~~~ */
	$"7D7C 7D80 868C 9093 9391 8F8A 8583 817F"            /* }|}€†Œ�““‘�Š…ƒ�. */
	$"7D7C 7977 7472 7170 7070 7172 7477 7878"            /* }|ywtrqpppqrtwxx */
	$"7777 7777 797E 838A 8F92 9596 9695 9595"            /* wwwwy~ƒŠ�’•––••• */
	$"9594 9392 908E 8B86 817B 7570 6B67 6665"            /* •”“’�Ž‹†�{upkgfe */
	$"6565 6666 6767 686C 7279 7F83 8686 8583"            /* eeffgghlry.ƒ††…ƒ */
	$"8180 8082 8486 8889 8886 8481 7F7C 7A7A"            /* �€€‚„†ˆ‰ˆ†„�.|zz */
	$"7B7C 7D7C 7B7A 7978 787C 8087 8C8F 8F8F"            /* {|}|{zyxx|€‡Œ��� */
	$"8B87 8482 8180 8182 8282 8180 7D7B 7877"            /* ‹‡„‚�€�‚‚‚�€}{xw */
	$"787A 7C7E 8080 807F 7D7C 7D80 8589 8B8B"            /* xz|~€€€.}|}€…‰‹‹ */
	$"8983 7D75 716F 6F6F 7174 7474 7474 7474"            /* ‰ƒ}uqoooqttttttt */
	$"7577 797C 7F80 8180 7F7E 7D7E 8085 8B90"            /* uwy|.€�€.~}~€…‹� */
	$"9394 928E 8985 8280 807E 7C7B 7875 7371"            /* “”’Ž‰…‚€€~|{xusq */
	$"6F6E 6E6F 7174 7779 7A7B 7A7A 7A7B 7E83"            /* onnoqtwyz{zzz{~ƒ */
	$"8A8E 9294 9493 9190 9091 9192 9291 8E8B"            /* ŠŽ’””“‘��‘‘’’‘Ž‹ */
	$"8884 807A 7471 6D6A 6868 6666 6666 6768"            /* ˆ„€ztqmjhhffffgh */
	$"6C72 777D 8082 8382 8080 8080 8080 8183"            /* lrw}€‚ƒ‚€€€€€€�ƒ */
	$"8485 8483 817F 7D7B 7B7B 7B7C 7D7C 7C7B"            /* „…„ƒ�.}{{{{|}||{ */
	$"7A7B 7E82 878B 8E90 908D 8A86 8482 8180"            /* z{~‚‡‹Ž���Š†„‚�€ */
	$"8081 8080 7F7C 7A77 7575 7779 7B7D 7E7F"            /* €�€€.|zwuuwy{}~. */
	$"7F7E 7E7E 8186 8B8E 908F 8B85 7F78 7472"            /* .~~~�†‹Ž��‹….xtr */
	$"7171 7274 7474 7372 7171 7274 777A 7D7E"            /* qqrtttsrqqrtwz}~ */
	$"7F7E 7D7B 7B7E 8288 8E92 9595 928D 8985"            /* .~}{{~‚ˆŽ’••’�‰… */
	$"8382 8180 807E 7B77 7470 6E6C 6C6E 7174"            /* ƒ‚�€€~{wtpnllnqt */
	$"7677 7878 7776 777A 7F85 8B8E 9192 908E"            /* vwxxwvwz.…‹Ž‘’�Ž */
	$"8C8C 8E90 9193 9494 918E 8A85 807C 7774"            /* ŒŒŽ�‘“””‘ŽŠ…€|wt */
	$"7370 6D6A 6866 6564 6569 6E75 797D 8080"            /* spmjhfedeinuy}€€ */
	$"7F7D 7C7C 7D7E 7E80 8182 8384 8382 8180"            /* .}||}~~€�‚ƒ„ƒ‚�€ */
	$"7E7E 7F7E 7E7E 7E7D 7B79 797C 8085 898B"            /* ~~.~~~~}{yy|€…‰‹ */
	$"8C8C 8B89 8684 8281 8080 8181 8080 7E7C"            /* ŒŒ‹‰†„‚�€€��€€~| */
	$"7977 7779 7B7D 7E7F 8080 7F7E 7F81 8589"            /* ywwy{}~.€€.~.�…‰ */
	$"8B8D 8E8C 8881 7C77 7471 6F70 7172 7271"            /* ‹�ŽŒˆ�|wtqopqrrq */
	$"7070 6F70 7276 7A7E 8080 8180 807E 7F81"            /* ppoprvz~€€�€€~.� */
	$"878C 9193 9392 8E89 8683 8180 8080 7F7D"            /* ‡Œ‘““’Ž‰†ƒ�€€€.} */
	$"7A76 726E 6C6B 6C6F 7376 7778 797A 7979"            /* zvrnlklosvwxyzyy */
	$"7B80 858A 8E91 9190 8D89 8989 8A8B 8D90"            /* {€…ŠŽ‘‘��‰‰‰Š‹�� */
	$"9190 8D8A 8782 7F7B 7876 7572 6F6C 6A68"            /* ‘��Š‡‚.{xvuroljh */
	$"6667 6A6E 757B 8081 8280 7E7C 7B7B 7C7D"            /* fgjnu{€�‚€~|{{|} */
	$"7E7F 8080 807F 7E7D 7C7C 7C7E 7F7E 7D7C"            /* ~.€€€.~}|||~.~}| */
	$"7B7A 7979 7C80 8689 8C8D 8D8C 8988 8786"            /* {zyy|€†‰Œ��Œ‰ˆ‡† */
	$"8584 8383 8280 7F7D 7B78 7675 7677 797B"            /* …„ƒƒ‚€.}{xvuvwy{ */
	$"7C7C 7C7C 7C7D 8084 898C 8F90 8F8B 8782"            /* |||||}€„‰Œ���‹‡‚ */
	$"7E7A 7675 7474 7473 7270 6F6D 6C6C 6F73"            /* ~zvutttsrpomllos */
	$"777A 7C7D 7E7E 7D7E 8085 8B90 9393 9391"            /* wz|}~~}~€…‹�“““‘ */
	$"8D89 8785 8382 8282 817F 7C77 736E 6B6A"            /* �‰‡…ƒ‚‚‚�.|wsnkj */
	$"6B6D 7174 7576 7676 7676 7A80 878B 8E90"            /* kmqtuvvvvvz€‡‹Ž� */
	$"8F8C 8987 8788 898B 8E91 9190 8E8B 8885"            /* �Œ‰‡‡ˆ‰‹Ž‘‘�Ž‹ˆ… */
	$"817F 7D7C 7977 736F 6B67 6767 6B70 767A"            /* �.}|ywsokgggkpvz */
	$"7D7E 7E7B 7978 7879 7A7B 7D7F 807F 7E7E"            /* }~~{yxxyz{}.€.~~ */
	$"7E7D 7D7D 7F81 8282 807F 7E7C 7B7C 8084"            /* ~}}}.�‚‚€.~|{|€„ */
	$"888C 8D8C 8987 8483 8384 8383 8382 817F"            /* ˆŒ�Œ‰‡„ƒƒ„ƒƒƒ‚�. */
	$"7D7B 7977 7777 7779 7A7B 7C7D 7E7E 7E80"            /* }{ywwwwyz{|}~~~€ */
	$"8488 8C8F 908F 8C88 8480 7D7A 7774 7373"            /* „ˆŒ���Œˆ„€}zwtss */
	$"7271 706F 6D6C 6C6D 7074 777A 7C7D 7E7E"            /* rqpomllmptwz|}~~ */
	$"7E81 868B 9092 9392 908E 8A88 8584 8281"            /* ~�†‹�’“’�ŽŠˆ…„‚� */
	$"8180 807D 7A77 726E 6C6B 6D6F 7174 7677"            /* �€€}zwrnlkmoqtvw */
	$"7777 787B 8086 8A8E 9090 8E8A 8886 8586"            /* wwx{€†ŠŽ��ŽŠˆ†…† */
	$"8789 8C8F 8F8E 8B88 8581 807F 7F7E 7B78"            /* ‡‰Œ��Ž‹ˆ…�€..~{x */
	$"7570 6D69 686B 7076 7A7E 7F7F 7C79 7777"            /* upmihkpvz~..|yww */
	$"7778 7A7B 7D7E 7D7C 7B7A 7A79 797B 7E80"            /* wxz{}~}|{zzyy{~€ */
	$"8180 807F 7D7B 7C7F 8388 8B8D 8D8B 8884"            /* �€€.}{|.ƒˆ‹��‹ˆ„ */
	$"8282 8283 8485 8584 817F 7B79 7776 7677"            /* ‚‚‚ƒ„……„�.{ywvvw */
	$"7879 7A7A 7A7A 7B7C 7E82 888D 9090 908E"            /* xyzzzz{|~‚ˆ����Ž */
	$"8A87 8381 7F7C 7977 7674 7272 706F 6D6C"            /* Š‡ƒ�.|ywvtrrpoml */
	$"6C6E 7274 7679 7A7B 7C7D 8084 898E 9092"            /* lnrtvyz{|}€„‰Ž�’ */
	$"9290 8E8A 8887 8684 8282 8180 7F7C 7976"            /* ’�ŽŠˆ‡†„‚‚�€.|yv */
	$"726F 6D6D 6E6F 7172 7374 7577 797E 8488"            /* rommnoqrstuwy~„ˆ */
	$"8C8E 8F8E 8B87 8685 8585 8788 8B8C 8D8C"            /* ŒŽ�Ž‹‡†………‡ˆ‹Œ�Œ */
	$"8A87 8582 8181 8180 7D7A 7772 6E6B 6C6F"            /* Š‡…‚���€}zwrnklo */
	$"7378 7B7D 7E7C 7977 7676 7778 797B 7D7E"            /* sx{}~|ywvvwxy{}~ */
	$"7D7B 7A79 7979 7B7E 8081 8181 807F 7D7C"            /* }{zyyy{~€���€.}| */
	$"7F82 878A 8D8D 8B88 8480 8080 8081 8384"            /* .‚‡Š��‹ˆ„€€€€�ƒ„ */
	$"8482 807E 7B79 7877 7879 7B7B 7B7B 7B7B"            /* „‚€~{yxwxy{{{{{{ */
	$"7B7D 8187 8C8F 9191 8F8C 8784 8180 7D7B"            /* {}�‡Œ�‘‘�Œ‡„�€}{ */
	$"7978 7572 706E 6D6B 6B6B 6D70 7274 7678"            /* yxurpnmkkkmprtvx */
	$"7A7B 7C7E 8388 8E90 9393 928F 8C88 8787"            /* z{|~ƒˆŽ�““’�Œˆ‡‡ */
	$"8583 8281 807E 7B79 7875 7270 7070 7070"            /* …ƒ‚�€~{yxurppppp */
	$"7172 7374 7678 7D82 878A 8D8E 8E8B 8887"            /* qrstvx}‚‡Š�ŽŽ‹ˆ‡ */
	$"8585 8484 8587 8788 8887 8784 8281 8282"            /* ……„„…‡‡ˆˆ‡‡„‚�‚‚ */
	$"8281 7F7C 7975 7271 7275 797B 7D7E 7D7A"            /* ‚�.|yurqruy{}~}z */
	$"7877 7777 7778 797B 7C7B 7A79 7876 7677"            /* xwwwwxy{|{zyxvvw */
	$"7A7D 7F80 8080 807F 7E7F 8287 8B8E 8E8E"            /* z}.€€€€.~.‚‡‹ŽŽŽ */
	$"8B87 8381 8080 8081 8384 8481 7F7C 7978"            /* ‹‡ƒ�€€€�ƒ„„�.|yx */
	$"7676 7879 7A7A 7979 7979 7A7D 8288 8E90"            /* vvxyzzyyyyz}‚ˆŽ� */
	$"9291 8F8B 8785 8382 807E 7D7A 7873 706D"            /* ’‘�‹‡…ƒ‚€~}zxspm */
	$"6C6A 6A6C 6D70 7273 7375 7677 797E 8389"            /* ljjlmprssuvwy~ƒ‰ */
	$"8D90 9191 8F8C 8988 8887 8686 8584 817F"            /* ��‘‘�Œ‰ˆˆ‡††…„�. */
	$"7C79 7775 7373 7372 7170 7172 7273 7579"            /* |ywusssrqpqrrsuy */
	$"7F84 888B 8C8B 8987 8685 8584 8484 8686"            /* .„ˆ‹Œ‹‰‡†……„„„†† */
	$"8786 8686 8685 8484 8586 8583 807E 7A77"            /* ‡††††…„„…†…ƒ€~zw */
	$"7474 7679 7B7C 7C7B 7976 7474 7475 7577"            /* ttvy{||{yvtttuuw */
	$"7979 7A79 7978 7776 7779 7C7F 8081 8181"            /* yyzyyxwvwy|.€��� */
	$"8080 8082 868A 8C8D 8D8B 8784 807F 7E7E"            /* €€€‚†ŠŒ��‹‡„€.~~ */
	$"7E80 8182 8180 7D7B 7977 7779 7A7B 7C7B"            /* ~€�‚�€}{ywwyz{|{ */
	$"7A7A 7979 7C80 868C 8F91 918F 8C88 8684"            /* zzyy|€†Œ�‘‘�Œˆ†„ */
	$"8281 807F 7D7A 7773 6F6C 6A6A 6B6D 6F71"            /* ‚�€.}zwsoljjkmoq */
	$"7273 7374 7678 7C82 888C 9092 9290 8C8A"            /* rsstvx|‚ˆŒ�’’�ŒŠ */
	$"8887 8786 8686 8583 807D 7A77 7573 7373"            /* ˆ‡‡†††…ƒ€}zwusss */
	$"7373 7270 7070 7073 777C 8287 8A8C 8C8A"            /* ssrppppsw|‚‡ŠŒŒŠ */
	$"8685 8585 8585 8585 8686 8584 8484 8384"            /* †…………………††…„„„ƒ„ */
	$"8485 8685 8482 807E 7B79 797A 7C7D 7E7D"            /* „…†…„‚€~{yyz|}~} */
	$"7C79 7775 7373 7373 7576 7879 7877 7675"            /* |ywussssuvxyxwvu */
	$"7575 7679 7C7E 7F80 8080 8080 8386 8B8D"            /* uuvy|~.€€€€€ƒ†‹� */
	$"8E8E 8C8A 8683 8180 7F7F 7F80 8081 807F"            /* ŽŽŒŠ†ƒ�€...€€�€. */
	$"7D7B 7978 7879 7A7A 7A7A 7A79 797A 7E83"            /* }{yxxyzzzzzyyz~ƒ */
	$"878B 8E90 8F8D 8A86 8584 8381 8180 7F7C"            /* ‡‹Ž���Š†…„ƒ��€.| */
	$"7975 706D 6B6B 6D6F 7071 7272 7273 7478"            /* yupmkkmopqrrrstx */
	$"7D83 898C 8F90 8E8B 8988 8786 8686 8686"            /* }ƒ‰Œ��Ž‹‰ˆ‡††††† */
	$"8684 817E 7A78 7675 7576 7675 7371 706F"            /* †„�~zxvuuvvusqpo */
	$"7073 787E 8386 898A 8885 8382 8282 8283"            /* psx~ƒ†‰Šˆ…ƒ‚‚‚‚ƒ */
	$"8485 8483 8282 8182 8284 8587 8786 8584"            /* „…„ƒ‚‚�‚‚„…‡‡†…„ */
	$"8280 7E7E 7F80 8180 7F7D 7A78 7575 7474"            /* ‚€~~.€�€.}zxuutt */
	$"7474 7575 7676 7675 7574 7475 777A 7C7D"            /* ttuuvvvuuttuwz|} */
	$"7E7F 8080 8082 868A 8D8E 8F8E 8B88 8583"            /* ~.€€€‚†Š�Ž�Ž‹ˆ…ƒ */
	$"8180 807F 7F80 8080 7F7D 7C7A 7979 7A7A"            /* �€€..€€€.}|zyyzz */
	$"7B7B 7B7B 7A7A 7A7C 8185 898B 8D8E 8C8A"            /* {{{{zzz|�…‰‹�ŽŒŠ */
	$"8785 8584 8281 8080 7E7B 7774 6F6C 6A6B"            /* ‡……„‚�€€~{wtoljk */
	$"6D6F 7071 7172 7273 757A 8086 8B8E 8F8F"            /* mopqqrrsuz€†‹Ž�� */
	$"8C8A 8888 8887 8686 8686 8583 807D 7A78"            /* ŒŠˆˆˆ‡††††…ƒ€}zx */
	$"7676 7777 7675 7472 706F 7175 7B81 8588"            /* vvwwvutrpoqu{�…ˆ */
	$"8989 8784 8282 8282 8283 8483 8281 8080"            /* ‰‰‡„‚‚‚‚‚ƒ„ƒ‚�€€ */
	$"7F7F 8083 8587 8685 8583 8180 8081 8384"            /* ..€ƒ…‡†……ƒ�€€�ƒ„ */
	$"8483 807E 7B77 7676 7675 7575 7676 7676"            /* „ƒ€~{wvvvuuuvvvv */
	$"7574 7473 7476 787A 7B7B 7D7E 7E7E 8084"            /* uttstvxz{{}~~~€„ */
	$"888B 8D8E 8D8B 8884 8383 8280 8080 8080"            /* ˆ‹�Ž�‹ˆ„ƒƒ‚€€€€€ */
	$"7F7E 7D7C 7B7B 7B7B 7C7C 7C7C 7B7B 7B7B"            /* .~}|{{{{||||{{{{ */
	$"7C80 8487 898B 8B8A 8987 8585 8483 8282"            /* |€„‡‰‹‹Š‰‡……„ƒ‚‚ */
	$"8180 7E7B 7875 716E 6C6D 6E70 7171 7171"            /* �€~{xuqnlmnpqqqq */
	$"7172 767B 8186 8A8C 8D8C 8987 8686 8686"            /* qrv{�†ŠŒ�Œ‰‡†††† */
	$"8686 8786 8482 807D 7B79 7979 7A79 7876"            /* ††‡†„‚€}{yyyzyxv */
	$"7573 7171 7378 7D81 8486 8685 8381 8080"            /* usqqsx}�„††…ƒ�€€ */
	$"8181 8182 8382 8180 7F7E 7E7F 8184 8688"            /* ���‚ƒ‚�€.~~.�„†ˆ */
	$"8887 8684 8383 8486 8888 8684 807B 7775"            /* ˆ‡†„ƒƒ„†ˆˆ†„€{wu */
	$"7474 7373 7374 7474 7372 7272 7273 7577"            /* ttssstttsrrrrsuw */
	$"797A 7B7B 7D7E 7F80 8489 8C8E 8E8E 8C89"            /* yz{{}~.€„‰ŒŽŽŽŒ‰ */
	$"8583 8281 8080 8080 7F7E 7D7B 7B7B 7B7B"            /* …ƒ‚�€€€€.~}{{{{{ */
	$"7B7C 7D7C 7B7B 7B7B 7B7C 8084 8789 8A8B"            /* {|}|{{{{{|€„‡‰Š‹ */
	$"8A89 8685 8584 8483 8382 8180 7D7A 7775"            /* Š‰†……„„ƒƒ‚�€}zwu */
	$"7170 6F6F 7070 7070 7171 7174 797E 8387"            /* qpooppppqqqty~ƒ‡ */
	$"898B 8B89 8786 8686 8686 8686 8684 8381"            /* ‰‹‹‰‡††††††††„ƒ� */
	$"7F7C 7B7A 7A7B 7B7A 7877 7674 7274 767B"            /* .|{zz{{zxwvtrtv{ */
	$"8082 8485 8483 8180 8080 8080 8181 8180"            /* €‚„…„ƒ�€€€€€���€ */
	$"807E 7C7C 7C7E 8083 8586 8786 8584 8485"            /* €~|||~€ƒ…†‡†…„„… */
	$"888A 8C8B 8885 817C 7876 7574 7474 7474"            /* ˆŠŒ‹ˆ…�|xvuttttt */
	$"7473 7371 7171 7173 7477 7879 797A 7B7C"            /* tssqqqqstwxyyz{| */
	$"7E81 868A 8D8E 8E8D 8B88 8584 8382 8180"            /* ~�†Š�ŽŽ�‹ˆ…„ƒ‚�€ */
	$"8080 7F7D 7B7B 7B7A 7A7B 7C7D 7D7C 7B7B"            /* €€.}{{{zz{|}}|{{ */
	$"7B7B 7B7E 8286 8888 8988 8886 8484 8484"            /* {{{~‚†ˆˆ‰ˆˆ†„„„„ */
	$"8484 8483 8280 7D7B 7876 7473 7272 7170"            /* „„„ƒ‚€}{xvtsrrqp */
	$"7070 7071 7376 7B80 8386 8888 8786 8585"            /* pppqsv{€ƒ†ˆˆ‡†…… */
	$"8585 8585 8686 8584 8280 7F7D 7B7B 7B7B"            /* …………††…„‚€.}{{{{ */
	$"7B7A 7877 7675 7577 7A7D 8082 8382 8180"            /* {zxwvuuwz}€‚ƒ‚�€ */
	$"8080 8080 8080 8081 8080 7E7D 7B7B 7C7E"            /* €€€€€€€�€€~}{{|~ */
	$"8083 8485 8686 8585 8688 8B8D 8D8C 8985"            /* €ƒ„…††……†ˆ‹��Œ‰… */
	$"807B 7776 7574 7474 7474 7373 7171 7070"            /* €{wvutttttssqqpp */
	$"7273 7577 7878 797A 7B7C 8084 888C 8D8E"            /* rsuwxxyz{|€„ˆŒ�Ž */
	$"8D8C 8885 8483 8281 8080 807F 7D7B 7A79"            /* �Œˆ…„ƒ‚�€€€.}{zy */
	$"7979 7B7C 7E7F 7E7D 7C7B 7B7C 7E82 8688"            /* yy{|~.~}|{{|~‚†ˆ */
	$"8989 8888 8584 8383 8483 8383 8281 807D"            /* ‰‰ˆˆ…„ƒƒ„ƒƒƒ‚�€} */
	$"7B79 7776 7474 7473 7171 7171 7173 767A"            /* {ywvtttsqqqqqsvz */
	$"7E81 8386 8787 8685 8585 8584 8485 8584"            /* ~�ƒ†‡‡†…………„„……„ */
	$"8382 807E 7D7C 7C7C 7C7C 7B79 7878 7777"            /* ƒ‚€~}|||||{yxxww */
	$"787C 7E80 8182 8281 8080 8080 8080 8081"            /* x|~€�‚‚�€€€€€€€� */
	$"8180 807F 7D7C 7B7B 7C7D 8080 8183 8384"            /* �€€.}|{{|}€€�ƒƒ„ */
	$"8485 878B 8D8E 8E8C 8985 807C 7978 7776"            /* „…‡‹�ŽŽŒ‰…€|yxwv */
	$"7676 7675 7472 7170 7071 7374 7677 7878"            /* vvvutrqppqstvwxx */
	$"7878 797C 8085 898B 8C8C 8B89 8684 8383"            /* xxy|€…‰‹ŒŒ‹‰†„ƒƒ */
	$"8281 8180 807F 7C7B 7A79 797A 7C7D 7E7F"            /* ‚��€€.|{zyyz|}~. */
	$"7E7D 7C7C 7C7D 8084 8788 8988 8785 8382"            /* ~}|||}€„‡ˆ‰ˆ‡…ƒ‚ */
	$"8283 8383 8383 8381 7F7D 7C7A 7878 7877"            /* ‚ƒƒƒƒƒƒ�.}|zxxxw */
	$"7674 7371 7171 7274 787C 8081 8283 8382"            /* vtsqqqrtx|€�‚ƒƒ‚ */
	$"8282 8383 8484 8484 8584 8381 807F 7E7E"            /* ‚‚ƒƒ„„„„…„ƒ�€.~~ */
	$"7E7E 7E7D 7C7B 7A78 787A 7C7F 8081 8180"            /* ~~~}|{zxxz|.€��€ */
	$"807E 7D7D 7D7E 7F7F 8080 807F 7D7C 7C7B"            /* €~}}}~..€€€.}||{ */
	$"7B7C 7D7F 8080 8183 8385 8789 8C8F 908F"            /* {|}.€€�ƒƒ…‡‰Œ��� */
	$"8F8C 8884 807D 7A78 7674 7474 7473 7170"            /* �Œˆ„€}zxvttttsqp */
	$"6F6F 6F70 7274 7677 7878 7879 7C80 8488"            /* oooprtvwxxxy|€„ˆ */
	$"8B8D 8E8D 8B88 8685 8483 8281 8180 7F7C"            /* ‹�Ž�‹ˆ†…„ƒ‚��€.| */
	$"7A78 7878 7878 7B7C 7D7E 7D7D 7C7C 7E80"            /* zxxxxx{|}~}}||~€ */
	$"8387 898A 8988 8684 8383 8383 8383 8383"            /* ƒ‡‰Š‰ˆ†„ƒƒƒƒƒƒƒƒ */
	$"8280 7E7C 7A78 7878 7878 7675 7371 7171"            /* ‚€~|zxxxxxvusqqq */
	$"7376 7B7E 8081 8281 8180 8182 8384 8484"            /* sv{~€�‚��€�‚ƒ„„„ */
	$"8585 8483 8280 807F 7E7F 7F7F 7E7C 7C7A"            /* ……„ƒ‚€€.~...~||z */
	$"7979 7A7C 7F80 8181 807F 7D7C 7C7C 7D7E"            /* yyz|.€��€.}|||}~ */
	$"7F7F 8080 7F7E 7C7C 7B7B 7B7C 7D7E 7F80"            /* ..€€.~||{{{|}~.€ */
	$"8081 8283 878A 8E90 9190 8E8A 8784 817E"            /* €�‚ƒ‡ŠŽ�‘�ŽŠ‡„�~ */
	$"7C79 7876 7575 7473 7171 6F6F 7071 7475"            /* |yxvuutsqqoopqtu */
	$"7576 7677 7879 7C81 8589 8B8C 8B8A 8786"            /* uvvwxy|�…‰‹Œ‹Š‡† */
	$"8483 8282 8281 8080 7F7C 7B79 7878 787A"            /* „ƒ‚‚‚�€€.|{yxxxz */
	$"7C7C 7D7E 7E7E 7E7E 8082 8587 8888 8785"            /* ||}~~~~~€‚…‡ˆˆ‡… */
	$"8280 8080 8080 8081 8281 807F 7D7C 7A79"            /* ‚€€€€€€�‚�€.}|zy */
	$"7979 7978 7876 7472 7273 767A 7E80 8080"            /* yyyxxvtrrsvz~€€€ */
	$"807F 7E7E 7F80 8182 8282 8282 8180 8080"            /* €.~~.€�‚‚‚‚‚�€€€ */
	$"7F7F 7F80 807F 7E7D 7C7C 7B7C 7E80 8282"            /* ...€€.~}||{|~€‚‚ */
	$"8281 807E 7C7B 7C7C 7C7D 7E7F 7F7E 7D7C"            /* ‚�€~|{|||}~..~}| */
	$"7B7B 7A7A 7B7C 7D7D 7E7E 7F80 8184 888C"            /* {{zz{|}}~~.€�„ˆŒ */
	$"8F90 908F 8D89 8683 8280 7D7B 7978 7675"            /* �����‰†ƒ‚€}{yxvu */
	$"7372 7170 6F6F 7172 7374 7575 7676 787A"            /* srqpooqrstuuvvxz */
	$"7E81 8587 8889 8888 8685 8483 8282 8281"            /* ~�…‡ˆ‰ˆˆ†…„ƒ‚‚‚� */
	$"8080 7D7C 7978 7878 797B 7C7C 7C7C 7D7D"            /* €€}|yxxxy{||||}} */
	$"7E80 8285 8788 8887 8583 8280 8080 8080"            /* ~€‚…‡ˆˆ‡…ƒ‚€€€€€ */
	$"8181 8281 807F 7C7C 7A7A 7A7B 7A79 7876"            /* ��‚�€.||zzz{zyxv */
	$"7573 7375 797C 7E80 8080 7F7C 7C7C 7E80"            /* ussuy|~€€€.|||~€ */
	$"8081 8282 8282 8180 8080 8080 8080 8080"            /* €�‚‚‚‚�€€€€€€€€€ */
	$"7E7D 7C7C 7C7E 8082 8382 8280 7E7C 7A7A"            /* ~}|||~€‚ƒ‚‚€~|zz */
	$"7A7B 7C7C 7D7D 7E7D 7C7B 7B7B 7B7C 7C7D"            /* z{||}}~}|{{{{||} */
	$"7E7E 7E7E 7F80 8285 8A8E 8F8F 8F8D 8B88"            /* ~~~~.€‚…ŠŽ����‹ˆ */
	$"8584 8280 7E7C 7978 7674 7271 7171 7171"            /* …„‚€~|yxvtrqqqqq */
	$"7273 7474 7576 7678 797D 8083 8586 8787"            /* rsttuvvxy}€ƒ…†‡‡ */
	$"8685 8484 8383 8282 8180 807F 7C7A 7978"            /* †…„„ƒƒ‚‚�€€.|zyx */
	$"7879 797A 7B7C 7C7C 7D7E 8082 8587 8888"            /* xyyz{|||}~€‚…‡ˆˆ */
	$"8786 8482 8180 8080 8080 8080 8080 7F7D"            /* ‡†„‚�€€€€€€€€€.} */
	$"7C7B 7B7B 7C7C 7B7A 7977 7676 7679 7C7E"            /* |{{{||{zywvvvy|~ */
	$"8080 807F 7D7C 7B7C 7D7E 8080 8182 8180"            /* €€€.}|{|}~€€�‚�€ */
	$"807F 7F7F 7F80 8080 8080 7F7D 7D7D 7F80"            /* €....€€€€€.}}}.€ */
	$"8284 8483 8280 7D7B 7A7A 7B7B 7C7C 7D7C"            /* ‚„„ƒ‚€}{zz{{||}| */
	$"7C7C 7B7A 7A7A 7A7C 7C7D 7D7C 7C7D 7E80"            /* ||{zzzz||}}||}~€ */
	$"8286 8A8D 8E8D 8D8B 8988 8685 8381 807D"            /* ‚†Š�Ž��‹‰ˆ†…ƒ�€} */
	$"7B79 7774 7472 7272 7273 7474 7474 7474"            /* {ywttrrrrstttttt */
	$"7678 7B7F 8284 8586 8685 8584 8484 8483"            /* vx{.‚„…††……„„„„ƒ */
	$"8382 8281 807E 7D7B 7A79 7979 7A7A 7B7B"            /* ƒ‚‚�€~}{zyyyzz{{ */
	$"7B7C 7D7F 8084 8688 8887 8584 8281 8080"            /* {|}.€„†ˆˆ‡…„‚�€€ */
	$"8080 8080 8080 807F 7E7D 7D7D 7D7D 7D7D"            /* €€€€€€€.~}}}}}}} */
	$"7C7A 7978 7878 7A7B 7D7F 807F 7D7D 7B7A"            /* |zyxxxz{}.€.}}{z */
	$"7A7A 7C7D 7E80 8080 8080 7F7F 7F7F 8080"            /* zz|}~€€€€€....€€ */
	$"8080 8080 7F7E 7E80 8083 8586 8583 8180"            /* €€€€.~~€€ƒ…†…ƒ�€ */
	$"7D7B 7A7A 7A7B 7C7C 7C7C 7B7A 7A7A 7A7A"            /* }{zzz{||||{zzzzz */
	$"7B7C 7D7D 7D7D 7D7D 7E80 8387 8A8C 8D8D"            /* {|}}}}}}~€ƒ‡ŠŒ�� */
	$"8B8A 8887 8585 8482 807E 7C7A 7775 7372"            /* ‹Šˆ‡……„‚€~|zwusr */
	$"7272 7374 7575 7575 7576 777A 7D80 8284"            /* rrstuuuuuvwz}€‚„ */
	$"8585 8483 8383 8384 8483 8382 8180 807D"            /* ……„ƒƒƒƒ„„ƒƒ‚�€€} */
	$"7C7B 7A7A 7A7A 7A7A 7A7A 7B7C 7E80 8385"            /* |{zzzzzzzz{|~€ƒ… */
	$"8888 8887 8583 8280 8080 8080 8080 8080"            /* ˆˆˆ‡…ƒ‚€€€€€€€€€ */
	$"7F7D 7D7D 7D7D 7D7D 7D7D 7B7A 7978 797A"            /* .}}}}}}}}}{zyxyz */
	$"7C7D 7E7F 7E7D 7D7B 7A7A 7A7A 7B7C 7D7E"            /* |}~.~}}{zzzz{|}~ */
	$"7F80 7F7F 7E7E 7F80 8081 8180 8080 8080"            /* .€..~~.€€��€€€€€ */
	$"8081 8285 8585 8582 807E 7C7A 7A7A 7A7A"            /* €�‚…………‚€~|zzzzz */
	$"7B7B 7B7A 7A7A 7A7A 7A7B 7C7D 7D7D 7D7D"            /* {{{zzzzzz{|}}}}} */
	$"7D7D 8081 8588 8A8B 8B8A 8988 8787 8685"            /* }}€�…ˆŠ‹‹Š‰ˆ‡‡†… */
	$"8482 8180 7D7A 7875 7473 7373 7475 7575"            /* „‚�€}zxutssstuuu */
	$"7575 7577 797B 7F81 8283 8382 8181 8181"            /* uuuwy{.�‚ƒƒ‚���� */
	$"8283 8383 8281 8080 7E7D 7B7B 7B7B 7B7A"            /* ‚ƒƒƒ‚�€€~}{{{{{z */
	$"7A7A 7A7A 7B7D 8081 8586 8787 8685 8482"            /* zzzz{}€�…†‡‡†…„‚ */
	$"8181 8180 8080 8080 7F7D 7D7D 7D7D 7D7D"            /* ���€€€€€.}}}}}}} */
	$"7E7D 7D7C 7B7A 7A7A 7B7D 7F80 807F 7E7D"            /* ~}}|{zzz{}.€€.~} */
	$"7B7A 7A7A 7A7A 7B7C 7D7D 7E7E 7D7D 7D7E"            /* {zzzzz{|}}~~}}}~ */
	$"7F80 8081 8080 8080 8080 8184 8586 8685"            /* .€€�€€€€€€�„…††… */
	$"8481 807E 7D7B 7B7A 7A7A 7A7B 7A7A 7979"            /* „�€~}{{zzzz{zzyy */
	$"7979 7A7B 7C7D 7D7C 7C7C 7C7E 8083 8688"            /* yyz{|}}||||~€ƒ†ˆ */
	$"8989 8989 8786 8686 8585 8484 8180 7D7A"            /* ‰‰‰‰‡†††……„„�€}z */
	$"7875 7575 7575 7575 7575 7575 7578 7A7D"            /* xuuuuuuuuuuuuxz} */
	$"8081 8282 8181 8080 8081 8182 8383 8281"            /* €�‚‚��€€€��‚ƒƒ‚� */
	$"8080 7E7D 7D7C 7C7D 7C7B 7A7A 7A7A 7B7E"            /* €€~}}||}|{zzzz{~ */
	$"8084 8586 8686 8584 8281 8180 8080 8080"            /* €„…†††…„‚��€€€€€ */
	$"7F7E 7D7D 7C7C 7D7D 7D7E 7F7E 7D7D 7C7C"            /* .~}}||}}}~.~}}|| */
	$"7C7D 7F80 8080 807F 7D7B 7B7A 7A7A 7B7B"            /* |}.€€€€.}{{zzz{{ */
	$"7B7B 7B7B 7B7C 7C7C 7D7D 7F80 8080 8080"            /* {{{{{|||}}.€€€€€ */
	$"8080 8182 8485 8686 8584 8381 807E 7D7C"            /* €€�‚„…††…„ƒ�€~}| */
	$"7B7B 7B7B 7B7B 7A79 7979 797A 7B7B 7C7D"            /* {{{{{{zyyyyz{{|} */
	$"7C7C 7C7C 7D80 8184 8587 8888 8786 8685"            /* ||||}€�„…‡ˆˆ‡††… */
	$"8585 8585 8484 8180 7D7B 7976 7676 7676"            /* …………„„�€}{yvvvvv */
	$"7676 7575 7575 7679 7B7F 8181 8181 8080"            /* vvuuuuvy{.����€€ */
	$"8080 8081 8181 8282 8181 807E 7D7D 7D7D"            /* €€€���‚‚��€~}}}} */
	$"7D7D 7C7B 7B7A 7A7B 7C80 8184 8687 8785"            /* }}|{{zz{|€�„†‡‡… */
	$"8484 8281 8181 8180 8080 7F7E 7D7B 7B7B"            /* „„‚����€€€.~}{{{ */
	$"7C7D 7E7F 7E7E 7D7C 7C7C 7D7F 8081 8181"            /* |}~.~~}|||}.€��� */
	$"807D 7C7B 7B7B 7B7B 7B7B 7B7B 7B7B 7B7B"            /* €}|{{{{{{{{{{{{{ */
	$"7B7C 7D7E 7F80 8080 8080 8080 8184 8585"            /* {|}~.€€€€€€€�„…… */
	$"8685 8583 8180 807E 7D7D 7C7C 7B7B 7B7A"            /* †……ƒ�€€~}}||{{{z */
	$"7979 7979 7B7B 7C7C 7D7D 7C7C 7C7D 7F81"            /* yyyy{{||}}|||}.� */
	$"8384 8586 8585 8584 8485 8585 8483 8383"            /* ƒ„…†………„„………„ƒƒƒ */
	$"8180 7E7C 7A79 7877 7777 7777 7676 7677"            /* �€~|zyxwwwwwvvvw */
	$"797B 7D80 8181 8180 807E 7E7F 8080 8081"            /* y{}€���€€~~.€€€� */
	$"8181 8080 7F7D 7D7D 7D7D 7D7D 7D7C 7B7B"            /* ��€€.}}}}}}}}|{{ */
	$"7B7C 7E80 8385 8686 8584 8383 8181 8181"            /* {|~€ƒ…††…„ƒƒ���� */
	$"8080 807F 7E7D 7C7C 7C7C 7C7D 7E7F 7F7E"            /* €€€.~}|||||}~..~ */
	$"7D7D 7D7E 8081 8383 8381 807D 7C7B 7A7A"            /* }}}~€�ƒƒƒ�€}|{zz */
	$"7A7B 7B7B 7A7A 7A79 797A 7B7C 7D7D 7F80"            /* z{{{zzzyyz{|}}.€ */
	$"8080 8080 8081 8385 8787 8787 8583 8180"            /* €€€€€�ƒ…‡‡‡‡…ƒ�€ */
	$"807F 7E7D 7C7C 7B7A 7979 7878 7879 7A7B"            /* €.~}||{zyyxxxyz{ */
	$"7C7C 7C7C 7C7C 7D7E 8082 8385 8585 8584"            /* ||||||}~€‚ƒ…………„ */
	$"8383 8485 8585 8584 8383 8180 7E7C 7C79"            /* ƒƒ„…………„ƒƒ�€~||y */
	$"7979 7878 7877 7676 7778 797C 7E80 8080"            /* yyxxxwvvwxy|~€€€ */
	$"807F 7E7E 7E7F 8080 8081 8180 8080 7F7D"            /* €.~~~.€€€��€€€.} */
	$"7D7D 7D7E 7E7D 7C7C 7C7B 7C7C 7F81 8384"            /* }}}~~}|||{||.�ƒ„ */
	$"8585 8483 8382 8181 8181 8180 8080 7E7D"            /* ……„ƒƒ‚�����€€€~} */
	$"7C7C 7C7C 7D7D 7E7F 7E7E 7D7D 7D7F 8082"            /* ||||}}~.~~}}}.€‚ */
	$"8383 8280 7F7D 7C7A 7A7A 7A7B 7B7A 7A79"            /* ƒƒ‚€.}|zzzz{{zzy */
	$"7979 7979 7B7C 7D7E 7F80 8080 8080 8183"            /* yyyy{|}~.€€€€€�ƒ */
	$"8586 8787 8685 8383 8180 807F 7E7D 7D7C"            /* …†‡‡†…ƒƒ�€€.~}}| */
	$"7B7A 7A79 7979 7A7A 7B7C 7C7C 7C7C 7C7D"            /* {zzyyyzz{||||||} */
	$"7D80 8183 8485 8584 8383 8383 8383 8484"            /* }€�ƒ„……„ƒƒƒƒƒƒ„„ */
	$"8383 8382 8180 7D7D 7C7B 7A7A 7979 7878"            /* ƒƒƒ‚�€}}|{zzyyxx */
	$"7778 797A 7C7D 8080 8080 7F7E 7E7E 7E7E"            /* wxyz|}€€€€.~~~~~ */
	$"7F80 8080 8080 807F 7D7D 7D7D 7D7E 7D7D"            /* .€€€€€€.}}}}}~}} */
	$"7D7C 7C7C 7D7E 8082 8384 8484 8383 8282"            /* }|||}~€‚ƒ„„„ƒƒ‚‚ */
	$"8281 8181 8180 807F 7D7D 7C7C 7C7C 7D7D"            /* ‚����€€.}}||||}} */
	$"7D7E 7E7D 7D7D 7F80 8182 8382 8281 807D"            /* }~~}}}.€�‚ƒ‚‚�€} */
	$"7C7C 7B7B 7B7B 7B7A 7A7A 7979 797A 7A7C"            /* ||{{{{{zzzyyyzz| */
	$"7D7D 7E7F 7F7F 7F80 8183 8586 8786 8584"            /* }}~....€�ƒ…†‡†…„ */
	$"8382 8180 8080 7F7E 7D7D 7C7A 7A79 7979"            /* ƒ‚�€€€.~}}|zzyyy */
	$"7A7A 7B7C 7C7C 7C7C 7C7D 7F80 8283 8484"            /* zz{||||||}.€‚ƒ„„ */
	$"8382 8282 8282 8282 8384 8382 8282 8080"            /* ƒ‚‚‚‚‚‚‚ƒ„ƒ‚‚‚€€ */
	$"7F7D 7D7C 7C7A 7A79 7878 7879 7A7B 7D7E"            /* .}}||zzyxxxyz{}~ */
	$"7F80 7F7E 7D7D 7D7D 7D7E 7E7F 8080 8080"            /* .€.~}}}}}~~.€€€€ */
	$"7F7E 7E7E 7E7E 7F7E 7E7D 7D7D 7D7D 7E80"            /* .~~~~~.~~}}}}}~€ */
	$"8182 8282 8282 8282 8181 8181 8181 8080"            /* �‚‚‚‚‚‚‚������€€ */
	$"807E 7D7C 7C7C 7C7D 7D7D 7E7E 7E7E 7E80"            /* €~}||||}}}~~~~~€ */
	$"8082 8384 8483 8280 7F7D 7C7C 7B7A 7A7A"            /* €‚ƒ„„ƒ‚€.}||{zzz */
	$"7A7A 7A79 7878 7979 7B7C 7D7D 7E7E 7E7F"            /* zzzyxxyy{|}}~~~. */
	$"8081 8284 8687 8787 8584 8282 8180 8080"            /* €�‚„†‡‡‡…„‚‚�€€€ */
	$"7F7E 7D7C 7B7B 7979 7979 7A7B 7B7C 7C7C"            /* .~}|{{yyyyz{{||| */
	$"7C7C 7D7E 8081 8284 8483 8282 8181 8181"            /* ||}~€�‚„„ƒ‚‚���� */
	$"8282 8383 8382 8281 8080 7F7E 7D7D 7C7B"            /* ‚‚ƒƒƒ‚‚�€€.~}}|{ */
	$"7B79 7878 797A 7B7D 7D7E 7E7E 7D7D 7D7D"            /* {yxxyz{}}~~~}}}} */
	$"7D7D 7D7E 7E7E 7E7F 7E7E 7E7E 7E7E 7F7F"            /* }}}~~~~.~~~~~~.. */
	$"7E7E 7E7D 7D7D 7D7E 8081 8282 8282 8282"            /* ~~~}}}}~€�‚‚‚‚‚‚ */
	$"8181 8181 8281 8181 8080 7F7D 7D7C 7C7C"            /* ����‚���€€.}}||| */
	$"7D7D 7D7D 7D7D 7D7D 7F80 8182 8384 8382"            /* }}}}}}}}.€�‚ƒ„ƒ‚ */
	$"8180 7F7D 7D7C 7C7B 7B7B 7B7B 7A79 7979"            /* �€.}}||{{{{{zyyy */
	$"797A 7B7C 7D7D 7D7D 7E7F 8081 8385 8686"            /* yz{|}}}}~.€�ƒ…†† */
	$"8685 8483 8281 8180 8080 807E 7D7C 7B7A"            /* †…„ƒ‚��€€€€~}|{z */
	$"7979 7979 7B7B 7B7C 7C7C 7C7D 7D80 8182"            /* yyyy{{{||||}}€�‚ */
	$"8484 8382 8281 8181 8181 8182 8282 8282"            /* „„ƒ‚‚������‚‚‚‚‚ */
	$"8281 8080 807F 7E7D 7D7C 7B79 7979 7A7B"            /* ‚�€€€.~}}|{yyyz{ */
	$"7C7D 7E7E 7D7D 7D7D 7D7D 7D7D 7D7D 7D7D"            /* |}~~}}}}}}}}}}}} */
	$"7D7D 7D7D 7D7D 7E7F 8080 7F7E 7D7D 7D7D"            /* }}}}}}~.€€.~}}}} */
	$"7F80 8181 8282 8181 8181 8181 8181 8181"            /* .€��‚‚���������� */
	$"8181 8080 7F7D 7D7D 7D7D 7E7E 7E7E 7E7E"            /* ��€€.}}}}}~~~~~~ */
	$"7E7F 8081 8283 8383 8281 8180 7F7E 7E7D"            /* ~.€�‚ƒƒƒ‚��€.~~} */
	$"7C7C 7C7B 7B7A 7A79 7979 7A7A 7B7C 7C7D"            /* |||{{zzyyyzz{||} */
	$"7D7E 7E80 8081 8384 8585 8584 8383 8181"            /* }~~€€�ƒ„………„ƒƒ�� */
	$"8080 8080 807F 7E7D 7C7A 7A7A 7A7A 7A7B"            /* €€€€€.~}|zzzzzz{ */
	$"7C7C 7C7C 7C7D 7F80 8183 8383 8281 8180"            /* |||||}.€�ƒƒƒ‚��€ */
	$"8080 8080 8181 8181 8181 8080 8080 8080"            /* €€€€������€€€€€€ */
	$"7F7E 7E7D 7C7A 7A7A 7C7D 7E7E 7F7E 7E7D"            /* .~~}|zzz|}~~.~~} */
	$"7D7D 7D7D 7D7E 7E7E 7E7E 7E7E 7D7D 7E7E"            /* }}}}}~~~~~~~}}~~ */
	$"7F80 8080 7F7E 7E7E 7E7F 8080 8181 8181"            /* .€€€.~~~~.€€���� */
	$"8080 8080 8080 8080 8181 8080 8080 7E7E"            /* €€€€€€€€��€€€€~~ */
	$"7E7E 7E7E 7E7E 7E7E 7E7E 7E80 8081 8383"            /* ~~~~~~~~~~~€€�ƒƒ */
	$"8383 8181 8080 7F7E 7E7D 7D7C 7C7B 7A7A"            /* ƒƒ��€€.~~}}||{zz */
	$"7A79 7979 7A7A 7A7B 7C7C 7D7E 7E80 8183"            /* zyyyzzz{||}~~€�ƒ */
	$"8485 8585 8484 8383 8181 8180 8080 807F"            /* „………„„ƒƒ���€€€€. */
	$"7E7D 7C7B 7B7B 7B7B 7B7B 7C7C 7C7C 7D7E"            /* ~}|{{{{{{{||||}~ */
	$"8080 8182 8382 8181 8080 8080 8080 8081"            /* €€�‚ƒ‚��€€€€€€€� */
	$"8181 8180 8080 8080 8080 807F 7E7D 7C7C"            /* ���€€€€€€€€.~}|| */
	$"7C7C 7D7E 7E7F 7E7E 7E7D 7D7D 7D7D 7D7D"            /* ||}~~.~~~}}}}}}} */
	$"7E7E 7E7E 7D7D 7D7D 7D7E 7E7F 8080 7F7E"            /* ~~~~}}}}}~~.€€.~ */
	$"7E7E 7F80 8081 8181 8180 8080 8080 8080"            /* ~~.€€����€€€€€€€ */
	$"8080 8080 8080 807F 7E7E 7E7E 7E7E 7E7E"            /* €€€€€€€.~~~~~~~~ */
	$"7E7D 7D7E 7F80 8183 8383 8383 8180 8080"            /* ~}}~.€�ƒƒƒƒƒ�€€€ */
	$"7F7E 7E7D 7D7C 7C7B 7B7A 7A7A 7A7A 7B7B"            /* .~~}}||{{zzzzz{{ */
	$"7B7B 7C7C 7C7D 7F80 8183 8484 8484 8483"            /* {{|||}.€�ƒ„„„„„ƒ */
	$"8382 8181 8180 8080 807E 7E7D 7C7B 7B7B"            /* ƒ‚���€€€€~~}|{{{ */
	$"7B7B 7B7B 7C7C 7C7C 7D7F 8081 8182 8281"            /* {{{{||||}.€��‚‚� */
	$"8181 8080 8080 8080 8080 8080 8080 8080"            /* ��€€€€€€€€€€€€€€ */
	$"8080 8080 8080 7F7E 7D7D 7D7D 7E7E 7F7F"            /* €€€€€€.~}}}}~~.. */
	$"7E7E 7D7D 7D7D 7D7D 7D7D 7E7E 7D7D 7D7D"            /* ~~}}}}}}}}~~}}}} */
	$"7D7D 7D7E 7E7F 8080 7F7E 7E7F 8080 8181"            /* }}}~~.€€.~~.€€�� */
	$"8281 8180 8080 7F80 8080 8080 8080 8080"            /* ‚��€€€.€€€€€€€€€ */
	$"7F7E 7E7E 7E7E 7E7E 7E7E 7D7D 7D7E 8080"            /* .~~~~~~~~~}}}~€€ */
	$"8182 8282 8281 8180 8080 7F7E 7E7E 7D7D"            /* �‚‚‚‚��€€€.~~~}} */
	$"7C7B 7B7A 7A7A 7A7A 7B7B 7B7B 7B7C 7D7E"            /* |{{zzzzz{{{{{|}~ */
	$"8080 8081 8282 8281 8181 8180 8080 8080"            /* €€€�‚‚‚����€€€€€ */
	$"8080 807E 7E7D 7C7C 7C7B 7B7B 7B7B 7B7B"            /* €€€~~}|||{{{{{{{ */
	$"7C7D 7E80 8080 8080 8080 8080 8080"                 /* |}~€€€€€€€€€€€ */
};

\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/Sounds/Lore.r b/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/Sounds/Lore.r
new file mode 100644
index 0000000..97f6595
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/Sounds/Lore.r
@@ -0,0 +1 @@
+data $8014 (0x18024) {
	$"0100 0100 0000 2900 0000 044C 6F72 65"              /* ......)....Lore */
};

data $8024 (0x29) {
	$"0000 6700 E88E 0000 772B 8080 8080 8080"            /* ..g..Ž..w+€€€€€€ */
	$"8080 8080 8080 8080 8080 8080 8080 8080"            /* €€€€€€€€€€€€€€€€ */
	$"8080 8080 8080 8080 8080 8080 8080 8080"            /* €€€€€€€€€€€€€€€€ */
	$"7E7E 7E7E 7E7E 7E7E 7E7E 7E7E 7E7E 7E7E"            /* ~~~~~~~~~~~~~~~~ */
	$"7E7E 7E7E 7E7E 7E7E 7E7E 7E7E 7E7E 7E7E"            /* ~~~~~~~~~~~~~~~~ */
	$"7E7E 7E7E 7E7E 7E7E 7E7E 7E7E 7E7E 7E7E"            /* ~~~~~~~~~~~~~~~~ */
	$"7E7E 7E7E 7E7E 7E7E 7E7E 7E7E 7E7E 7E7E"            /* ~~~~~~~~~~~~~~~~ */
	$"7E7E 7E7E 7E7E 7E7E 7E7E 7E7E 7E7E 7E7E"            /* ~~~~~~~~~~~~~~~~ */
	$"7E7E 7E7E 7E7E 7E7E 7E7E 7E7E 7E7E 7E7E"            /* ~~~~~~~~~~~~~~~~ */
	$"7E7E 7E7E 7E7E 7E7E 7E7E 7E7E 7E7E 7E7E"            /* ~~~~~~~~~~~~~~~~ */
	$"7E7E 7E7E 7E7E 7E7E 7E7E 7E7E 7E7E 7E7E"            /* ~~~~~~~~~~~~~~~~ */
	$"7E7E 7E7E 7E7E 7E7E 7E7E 7E7E 7E7E 7E7E"            /* ~~~~~~~~~~~~~~~~ */
	$"7E7E 7E7E 7E7E 7E7E 7E7E 7E7E 7E7E 7E7E"            /* ~~~~~~~~~~~~~~~~ */
	$"7E7E 7E7E 7E7E 7E7E 7E7E 7E7E 7E7E 7E7E"            /* ~~~~~~~~~~~~~~~~ */
	$"7E7E 7E7E 7E7E 7E7E 7E7E 7E7E 7E7E 7E7E"            /* ~~~~~~~~~~~~~~~~ */
	$"7C7E 7C7C 7C7E 7E7E 7C7E 7E7E 7E7E 7E7E"            /* |~|||~~~|~~~~~~~ */
	$"7E7E 7E7E 7E7E 7E7E 7E7E 7E7E 7E7E 7E7E"            /* ~~~~~~~~~~~~~~~~ */
	$"7E7E 7E7E 7E7E 7E7E 7E7E 7E7E 7E7E 7E7E"            /* ~~~~~~~~~~~~~~~~ */
	$"7E7E 7E7E 7E7E 7E7E 7E7E 7E7E 7E7E 7E7E"            /* ~~~~~~~~~~~~~~~~ */
	$"7E7E 7E7E 7E7E 7E7E 7E7E 7E7E 7E7E 7E7E"            /* ~~~~~~~~~~~~~~~~ */
	$"7E7E 7E7E 7E7E 7E7E 7E80 807E 7E7E 7E7E"            /* ~~~~~~~~~€€~~~~~ */
	$"7E7E 7E7E 7E7E 7E7E 7E7E 7E7E 7E7E 7E7E"            /* ~~~~~~~~~~~~~~~~ */
	$"7E7E 7C7C 7E7E 7E7E 7E7E 7E7E 7E7E 7E7E"            /* ~~||~~~~~~~~~~~~ */
	$"7E7E 7E7E 8080 7E7E 7E7E 7E7E 7E7E 7E7E"            /* ~~~~€€~~~~~~~~~~ */
	$"7E7E 7E7E 7E7C 7C7C 7E7E 7E7E 7E7E 7E7E"            /* ~~~~~|||~~~~~~~~ */
	$"7E80 807E 7E7E 7E7E 7E7E 7E7E 7E7E 7E7E"            /* ~€€~~~~~~~~~~~~~ */
	$"7E7E 7E7C 7C7E 7E7E 7E7E 7C7C 7E7E 7E7E"            /* ~~~||~~~~~||~~~~ */
	$"7E7C 7C7E 7E7E 7E7E 7E7C 7C7E 7E7E 7E7E"            /* ~||~~~~~~||~~~~~ */
	$"7E7E 7E7E 8080 7E7E 7E7E 7E80 807E 7E7E"            /* ~~~~€€~~~~~€€~~~ */
	$"7E7E 7E7E 7C7C 7C7C 7C7C 7C7C 7C7C 7C7C"            /* ~~~~|||||||||||| */
	$"7E80 807E 7E7E 7E80 8080 807E 7E7E 7E7E"            /* ~€€~~~~€€€€~~~~~ */
	$"7E7C 7C7C 7C7C 7E7E 7E7E 7C7C 7E7E 8080"            /* ~|||||~~~~||~~€€ */
	$"7E7E 7E80 8080 807E 7E7C 7C7E 7E7E 7E7C"            /* ~~~€€€€~~||~~~~| */
	$"7E7E 7E7E 7E7E 7E7E 7E7E 8080 7E7E 7E7E"            /* ~~~~~~~~~~€€~~~~ */
	$"7E7E 7E7E 7E7C 7C7C 7E7E 7E7E 7E7E 7E7E"            /* ~~~~~|||~~~~~~~~ */
	$"7E7E 8080 807E 8080 807E 7C7C 7C7E 7C7C"            /* ~~€€€~€€€~|||~|| */
	$"7E7E 7C7C 7C7C 7E7C 7C7C 7E80 7E7E 8080"            /* ~~||||~|||~€~~€€ */
	$"807E 7C7C 7E7E 7C7C 7E80 7E7C 7C7C 7E7C"            /* €~||~~||~€~|||~| */
	$"7A7C 7E80 7C7C 7E7E 7E7C 7C7E 7E7E 7A7C"            /* z|~€||~~~||~~~z| */
	$"7E7E 7E7C 7C7E 807E 7C7E 7E80 7E7C 7E80"            /* ~~~||~€~|~~€~|~€ */
	$"807E 7E7E 7E7E 7C7C 7E80 7E7C 7C7E 7E7E"            /* €~~~~~||~€~||~~~ */
	$"7C7C 7E80 7E7C 7E7E 807E 7C7C 7E7E 7C7C"            /* ||~€~|~~€~||~~|| */
	$"7C7E 807E 7C7E 807E 7C7C 7E80 7E7C 7E7E"            /* |~€~|~€~||~€~|~~ */
	$"807E 7E7E 7E7E 7C7C 7C7E 7E7C 7C7E 7E7E"            /* €~~~~~|||~~||~~~ */
	$"7E7E 7E80 807E 7E7E 8080 7E7C 7E7E 7C7C"            /* ~~~€€~~~€€~|~~|| */
	$"7C7C 7E7C 7C7C 7E7E 807E 7E80 807E 7E7E"            /* ||~|||~~€~~€€~~~ */
	$"8080 807E 807E 7E7C 7C7C 7C7C 7A7A 7C7C"            /* €€€~€~~|||||zz|| */
	$"7C7C 7C7E 7E7E 7E7E 8080 8080 8080 7E7E"            /* |||~~~~~€€€€€€~~ */
	$"7E7E 7E7C 7C7E 7E7E 7C7C 7C7C 7C7E 7E7E"            /* ~~~||~~~|||||~~~ */
	$"7E7E 8080 8080 8080 807E 7E7E 7E7E 7C7C"            /* ~~€€€€€€€~~~~~|| */
	$"7C7C 7C7C 7C7C 7C7C 7C7E 7E80 807E 7E7C"            /* |||||||||~~€€~~| */
	$"7C7C 7C7C 7E7E 8080 8082 8080 7E7C 7A7A"            /* ||||~~€€€‚€€~|zz */
	$"7A7C 7C7C 7C7C 7E80 8080 7C7C 7E7E 7E7E"            /* z|||||~€€€||~~~~ */
	$"7C7C 7E7E 7E7E 7C7E 7E80 8080 8080 807E"            /* ||~~~~|~~€€€€€€~ */
	$"7C7A 7A7C 7C7C 7C7C 7C7C 7C7C 7C7E 7C7C"            /* |zz||||||||||~|| */
	$"7C7C 7C7E 807E 8080 8080 807E 7E7E 807E"            /* |||~€~€€€€€~~~€~ */
	$"7C7C 7E80 8080 8080 8080 7E7E 8080 7E7C"            /* ||~€€€€€€€~~€€~| */
	$"7C7E 7C78 7878 7878 7A7A 7A7A 7A7C 7C7C"            /* |~|xxxxxzzzzz||| */
	$"7C7C 7E80 8082 8284 8482 8080 8082 8280"            /* ||~€€‚‚„„‚€€€‚‚€ */
	$"8082 807E 7C7A 7878 7878 787A 7C7E 7E7E"            /* €‚€~|zxxxxxz|~~~ */
	$"807E 7C7C 7C7C 7C7E 8080 8080 7E7C 7C7C"            /* €~|||||~€€€€~||| */
	$"7C7C 7C7C 7C7C 7C7C 7C7C 7C7C 7C7C 7C7C"            /* |||||||||||||||| */
	$"7C7E 8080 8080 8080 8282 8284 8484 8484"            /* |~€€€€€€‚‚‚„„„„„ */
	$"8484 8280 7C7A 7876 7272 7272 7274 7474"            /* „„‚€|zxvrrrrrttt */
	$"7678 787A 7A7C 7E80 8286 888A 8A88 8886"            /* vxxzz|~€‚†ˆŠŠˆˆ† */
	$"8484 8484 8282 8080 7E7C 7A78 7876 7676"            /* „„„„‚‚€€~|zxxvvv */
	$"787A 7C7E 7E7C 7A7A 7A7A 7C7E 8080 8282"            /* xz|~~|zzzz|~€€‚‚ */
	$"807E 7C7C 7C7C 7C7C 7C7C 7E7E 7C7C 7C7C"            /* €~||||||||~~|||| */
	$"7C7C 7C7E 8082 8280 8282 8282 8484 8684"            /* |||~€‚‚€‚‚‚‚„„†„ */
	$"8484 8482 807E 7C7C 7A78 7676 7474 7474"            /* „„„‚€~||zxvvtttt */
	$"7474 7476 7678 7A7A 7C7C 7E80 8284 8486"            /* tttvvxzz||~€‚„„† */
	$"8686 8684 8482 8282 8282 807E 7C7C 7C7C"            /* †††„„‚‚‚‚‚€~|||| */
	$"7C7C 7C7C 7C7C 7C7C 7C7A 7A7A 7A7A 7A7A"            /* |||||||||zzzzzzz */
	$"7A7A 7A7A 7A7A 7C7C 7C7E 7E80 8082 8080"            /* zzzzzz|||~~€€‚€€ */
	$"8280 8080 8080 7E7C 7C7C 7E7C 7C7C 7C7E"            /* ‚€€€€€~|||~||||~ */
	$"7E80 8082 8284 8282 8484 8280 7E7E 7C7A"            /* ~€€‚‚„‚‚„„‚€~~|z */
	$"7878 7878 7676 7676 7676 7676 787A 7C7E"            /* xxxxvvvvvvvvxz|~ */
	$"8082 8284 8484 8484 8484 8484 8282 8080"            /* €‚‚„„„„„„„„„‚‚€€ */
	$"807E 7C7C 7C7C 7C7C 7C7C 7C7A 7A7A 7C7C"            /* €~|||||||||zzz|| */
	$"7A7A 7C7C 7E7E 8080 8080 8080 8080 8080"            /* zz||~~€€€€€€€€€€ */
	$"7E7C 7A7A 7878 7878 7878 7A7C 7A7A 7A7A"            /* ~|zzxxxxxxz|zzzz */
	$"7C7C 7E80 8284 8688 8A8C 8C8C 8A88 8886"            /* ||~€‚„†ˆŠŒŒŒŠˆˆ† */
	$"827E 7C7A 7674 7270 7070 6E6E 6E70 7072"            /* ‚~|zvtrpppnnnppr */
	$"747A 7E80 8486 8888 8888 8888 8686 8686"            /* tz~€„†ˆˆˆˆˆˆ†††† */
	$"8484 8280 7E7C 7C7A 7A7A 7C7C 7C7A 7A7C"            /* „„‚€~||zzz|||zz| */
	$"7C7C 7C7C 7C7C 7C7E 8080 7E7E 7E7E 7E7E"            /* |||||||~€€~~~~~~ */
	$"7E7C 7C7A 7878 7878 7878 7878 7A7A 7C7C"            /* ~||zxxxxxxxxzz|| */
	$"7C7C 7C7C 7E80 8284 8486 8688 8A8A 8886"            /* ||||~€‚„„††ˆŠŠˆ† */
	$"8484 8482 807E 7C7A 7A78 7876 7674 7474"            /* „„„‚€~|zzxxvvttt */
	$"7476 7878 7878 7A7C 7C7C 7C7E 7C7C 7E7E"            /* tvxxxxz||||~||~~ */
	$"8080 8080 8082 8282 8282 8080 8282 8486"            /* €€€€€‚‚‚‚‚€€‚‚„† */
	$"8482 8280 8080 7E7E 7C7C 7C7A 7A78 7876"            /* „‚‚€€€~~|||zzxxv */
	$"7476 7674 7474 7476 787A 7A7C 7E80 8080"            /* tvvttttvxzz|~€€€ */
	$"8282 8484 8486 8686 8482 8280 8080 8080"            /* ‚‚„„„†††„‚‚€€€€€ */
	$"8080 7E7E 7E7C 7C7C 7C7A 7A7C 7C7A 7A7A"            /* €€~~~||||zz||zzz */
	$"7A7A 7C7E 7C7C 7C7C 7C7C 7E7E 7C7E 7E7E"            /* zz|~||||||~~|~~~ */
	$"7E7E 7E7E 7E7C 7C7C 7C7C 7E80 8080 8080"            /* ~~~~~|||||~€€€€€ */
	$"8082 8282 8280 8080 8080 807E 7C7A 7878"            /* €‚‚‚‚€€€€€€~|zxx */
	$"7878 7A7C 7C7A 7876 7678 787A 7C7C 7C7C"            /* xxz||zxvvxxz|||| */
	$"7C7E 7E7E 7E7E 8082 8484 8484 8484 8280"            /* |~~~~~€‚„„„„„„‚€ */
	$"8080 7E7E 8080 7E7C 7C7C 7C7C 7A7A 7C7C"            /* €€~~€€~|||||zz|| */
	$"7C7E 7E7C 7C7C 7C7C 7C7C 7C7C 7E7E 7E7C"            /* |~~|||||||||~~~| */
	$"7C7C 7C7C 7E80 8080 8080 807E 7C7C 7C7E"            /* ||||~€€€€€€~|||~ */
	$"7E7E 7E7E 7E7E 7C7C 7C7C 7A7C 7E80 8080"            /* ~~~~~~||||z|~€€€ */
	$"807E 7C7C 7C7C 7C7C 7E7E 7E7E 7E7C 7C7E"            /* €~||||||~~~~~||~ */
	$"7C7C 7C7C 7E7E 7E7C 7C7C 7C7E 8080 7E7C"            /* ||||~~~||||~€€~| */
	$"7E7E 8080 8080 8282 807E 7E7C 7A7A 7A7C"            /* ~~€€€€‚‚€~~|zzz| */
	$"7E7C 7C7A 7A7C 7A7A 7A7A 7A7C 7C7E 8082"            /* ~||zz|zzzzz||~€‚ */
	$"8482 807E 7E80 8080 807E 7E7E 7E7C 7C7C"            /* „‚€~~€€€€~~~~||| */
	$"7A7A 7A7A 7E7E 7C7A 7A7C 7C7C 7C7C 7C7C"            /* zzzz~~|zz||||||| */
	$"7E80 8080 8080 8080 8080 8080 8080 8080"            /* ~€€€€€€€€€€€€€€€ */
	$"807E 7C7C 7A7A 7A7A 7A7C 7C7C 7C7E 8080"            /* €~||zzzzz||||~€€ */
	$"807E 7C7C 7C7E 8284 8482 7E7C 7A76 7676"            /* €~|||~‚„„‚~|zvvv */
	$"787A 7E80 807E 7876 767A 7C7C 7E80 8282"            /* xz~€€~xvvz||~€‚‚ */
	$"8080 807E 7C7E 8284 8484 8482 807C 7C7C"            /* €€€~|~‚„„„„‚€||| */
	$"7C7A 7A7A 7C7E 7C7C 7A78 7878 787A 7E7E"            /* |zzz|~||zxxxxz~~ */
	$"7C7C 7C7C 7E7C 7E80 8284 8484 8480 7A78"            /* ||||~|~€‚„„„„€zx */
	$"787C 8082 8482 807E 7C7A 7A7A 7A7C 8082"            /* x|€‚„‚€~|zzzz|€‚ */
	$"8482 807C 7C7C 7C7C 7E7E 7E7E 8080 807E"            /* „‚€|||||~~~~€€€~ */
	$"7C7A 7878 7A7E 8080 7E7C 7A78 7878 787A"            /* |zxxz~€€~|zxxxxz */
	$"7C7C 7C7C 7E7E 7E7E 7E82 8282 8080 7E80"            /* ||||~~~~~‚‚‚€€~€ */
	$"8080 7E80 8080 807E 7C7C 7876 787C 8082"            /* €€~€€€€~||xvx|€‚ */
	$"807C 7C7A 7878 787A 7C7E 7E7E 8082 8282"            /* €||zxxxz|~~~€‚‚‚ */
	$"807C 7878 7C80 8282 807E 7C7C 7C7A 7674"            /* €|xx|€‚‚€~|||zvt */
	$"767A 8084 8280 7A76 787C 8286 8886 8282"            /* vz€„‚€zvx|‚†ˆ†‚‚ */
	$"8080 807E 7C7C 7C7E 8080 807C 7672 7476"            /* €€€~|||~€€€|vrtv */
	$"787A 7C7E 7E7C 7E80 8280 7E7E 7E7C 7C7E"            /* xz|~~|~€‚€~~~||~ */
	$"848A 8882 7C7C 7C7C 7C7E 7E7E 7C7A 7C7E"            /* „Šˆ‚|||||~~~|z|~ */
	$"7C74 747A 8080 8080 7E7A 7878 7C82 8480"            /* |ttz€€€€~zxx|‚„€ */
	$"7E80 8080 7C7C 7E80 8280 7E7E 7E7A 7878"            /* ~€€€||~€‚€~~~zxx */
	$"7876 7476 7C82 8686 8480 807C 7C7E 8080"            /* xvtv|‚††„€€||~€€ */
	$"7E7E 7C7C 7C7A 7A7A 7A7C 7E7E 7E80 807C"            /* ~~|||zzzz|~~~€€| */
	$"7876 7676 767A 7C80 8280 7C7C 7C7C 7C82"            /* xvvvvz|€‚€|||||‚ */
	$"8484 8280 8080 8284 8484 807E 7C7E 807E"            /* „„‚€€€‚„„„€~|~€~ */
	$"7C7A 7A78 7878 787A 7E80 807E 7C78 7878"            /* |zzxxxxz~€€~|xxx */
	$"7A7C 7C7E 7E7C 7C7C 7C7C 7C7E 8284 8280"            /* z||~~||||||~‚„‚€ */
	$"7C7C 7C7C 7E7E 7E7E 7E80 8284 8482 7E7C"            /* ||||~~~~~€‚„„‚~| */
	$"7C7C 7E7E 8080 8282 8080 8080 807E 7C7C"            /* ||~~€€‚‚€€€€€~|| */
	$"7C7A 7878 7674 7474 7678 7A7E 8082 8280"            /* |zxxvtttvxz~€‚‚€ */
	$"807E 807C 7E80 8284 8482 8282 8482 8280"            /* €~€|~€‚„„‚‚‚„‚‚€ */
	$"8282 7A78 787E 8080 7E7A 7A76 787E 8082"            /* ‚‚zxx~€€~zzvx~€‚ */
	$"7C7A 7A7A 7E7A 7C7A 7C7E 7C80 807E 7E7C"            /* |zzz~z|z|~|€€~~| */
	$"7E80 827C 7674 7076 7A7C 8080 8080 8284"            /* ~€‚|vtpvz|€€€€‚„ */
	$"8480 7E7E 7C80 8482 8282 827E 7A7C 7C7C"            /* „€~~|€„‚‚‚‚~z||| */
	$"7E80 807E 7E7C 7674 7474 787E 8082 8280"            /* ~€€~~|vtttx~€‚‚€ */
	$"7C7A 7A7A 7A7A 7C7E 8082 8484 807A 787C"            /* |zzzzz|~€‚„„€zx| */
	$"8086 8886 827C 7472 7274 7A7E 8284 8480"            /* €†ˆ†‚|trrtz~‚„„€ */
	$"7C7A 787A 7C7E 8082 8280 7C78 7878 787E"            /* |zxz|~€‚‚€|xxxx~ */
	$"8284 8484 827E 7E7A 7474 747A 8086 8684"            /* ‚„„„‚~~ztttz€††„ */
	$"827E 7E7E 7E7C 7A7A 7A7E 8082 8280 7E78"            /* ‚~~~~|zzz~€‚‚€~x */
	$"787A 7E82 8688 8680 7A74 7072 7476 7A7C"            /* xz~‚†ˆ†€ztprtvz| */
	$"7E80 8080 7E7C 7C7C 7E80 8080 8082 8486"            /* ~€€€~|||~€€€€‚„† */
	$"8480 7C7A 7E82 888A 8882 7C78 7676 787C"            /* „€|z~‚ˆŠˆ‚|xvvx| */
	$"7E80 8280 7E78 7674 7478 7A7C 7E7E 7C7C"            /* ~€‚€~xvttxz|~~|| */
	$"7C7C 7C7C 7E80 8284 807E 7C78 7676 787C"            /* ||||~€‚„€~|xvvx| */
	$"8082 827E 7E7E 8082 8484 827E 7C7C 8082"            /* €‚‚~~~€‚„„‚~||€‚ */
	$"8484 807E 7A78 787C 8284 8482 7C74 706C"            /* „„€~zxx|‚„„‚|tpl */
	$"7078 7E80 8080 7E7C 7C7C 7E80 7E7A 787A"            /* px~€€€~|||~€~zxz */
	$"7E82 8688 8680 7A78 7A7E 8286 8886 827E"            /* ~‚†ˆ†€zxz~‚†ˆ†‚~ */
	$"7A78 7A7A 7C7E 8284 8482 7E7A 7876 7476"            /* zxzz|~‚„„‚~zxvtv */
	$"787C 7C7C 7A7A 787A 7E80 8284 827E 7C7C"            /* x|||zzxz~€‚„‚~|| */
	$"7A7C 8082 8484 807C 7E80 8286 8886 807A"            /* z|€‚„„€|~€‚†ˆ†€z */
	$"7876 767A 7E7E 7C7C 7A7A 7C7C 8086 8682"            /* xvvz~~||zz||€††‚ */
	$"7E7A 7674 787C 7E7E 7E7E 7E7C 7E80 807E"            /* ~zvtx|~~~~~|~€€~ */
	$"7C7A 7C7C 7C7E 807C 7678 7A78 7C80 8686"            /* |z|||~€|vxzx|€†† */
	$"8484 8280 8286 8884 7E7A 7A78 787C 7C78"            /* „„‚€‚†ˆ„~zzxx||x */
	$"706E 6C6A 6C78 8288 8686 8680 7E84 8A88"            /* pnljlx‚ˆ†††€~„Šˆ */
	$"8482 7C76 7476 7A7A 787C 7C7A 787C 8284"            /* „‚|vtvzzx||zx|‚„ */
	$"8688 8886 8280 7C78 7476 787A 7E82 8482"            /* †ˆˆ†‚€|xtvxz~‚„‚ */
	$"7E78 7270 747C 8284 8482 807A 7474 7E88"            /* ~xrpt|‚„„‚€ztt~ˆ */
	$"8A84 7E7A 7674 7478 7E80 807E 7A78 787E"            /* Š„~zvttx~€€~zxx~ */
	$"8286 8888 8480 7C7C 7C7E 8284 827C 7A7C"            /* ‚†ˆˆ„€|||~‚„‚|z| */
	$"7A78 787C 7E7E 7A78 787A 7E82 8282 8484"            /* zxx|~~zxxz~‚‚‚„„ */
	$"7E7A 7676 7674 767C 8082 807C 7676 7C82"            /* ~zvvvtv|€‚€|vv|‚ */
	$"888E 908E 8A82 7C7C 7C7E 807E 7874 7270"            /* ˆŽ�ŽŠ‚|||~€~xtrp */
	$"7278 7E80 807A 7270 7278 828A 8E8E 8A82"            /* rx~€€zrprx‚ŠŽŽŠ‚ */
	$"7C7A 7C82 8686 827C 7470 7070 7076 787A"            /* |z|‚††‚|tppppvxz */
	$"7A78 7A7E 8282 8688 8A8C 8882 7E7C 7C7E"            /* zxz~‚‚†ˆŠŒˆ‚~||~ */
	$"7E80 8484 7C76 7270 7074 787E 8080 7E7A"            /* ~€„„|vrpptx~€€~z */
	$"7674 7A84 8A8A 847A 706E 727C 888E 8C88"            /* vtz„ŠŠ„zpnr|ˆŽŒˆ */
	$"7C72 7072 7A86 8E90 8C84 7C76 7676 7878"            /* |rprz†Ž�Œ„|vvvxx */
	$"7A7C 7A78 7676 7A7E 7E7C 7C7C 8082 8888"            /* z|zxvvz~~|||€‚ˆˆ */
	$"8A8C 8480 7A76 7872 7678 727C 787A 8076"            /* ŠŒ„€zvxrvxr|xz€v */
	$"7A7C 7A82 7E82 8C84 8880 7A82 7E82 867A"            /* z|z‚~‚Œ„ˆ€z‚~‚†z */
	$"7C74 6E76 7480 8886 867C 7876 6C78 7C7C"            /* |tnvt€ˆ††|xvlx|| */
	$"908E 8284 7E72 7A7E 767A 8474 7280 7274"            /* �Ž‚„~rz~vz„tr€rt */
	$"8C7C 7888 7870 8682 7C92 9480 8C8C 727E"            /* Œ|xˆxp†‚|’”€ŒŒr~ */
	$"826A 7880 6E7C 8876 7880 706A 7C74 708A"            /* ‚jx€n|ˆvx€pj|tpŠ */
	$"867E 9080 707E 7876 8486 7E80 7E70 7682"            /* †~�€p~xv„†~€~pv‚ */
	$"7A84 8E7C 7A7C 7074 7E80 8088 867A 7A7A"            /* z„Ž|z|pt~€€ˆ†zzz */
	$"727A 827C 7E7E 787C 8082 848E 887E 867E"            /* rz‚|~~x|€‚„Žˆ~†~ */
	$"6C82 8474 8A94 727E 8662 687A 5A62 7C68"            /* l‚„tŠ”r~†bhzZb|h */
	$"6E90 7E78 9A86 7096 8676 A298 7E9A 8A6E"            /* n�~xš†p–†v¢˜~šŠn */
	$"8C84 7082 7E64 6C70 606E 867A 7E8A 7270"            /* Œ„p‚~dlp`n†z~Šrp */
	$"8074 7892 8A8C 988A 7C80 7E78 8086 7C7C"            /* €tx’ŠŒ˜Š|€~x€†|| */
	$"7C6E 6E74 727A 8078 7478 7674 7E88 848C"            /* |nntrz€xtxvt~ˆ„Œ */
	$"9284 7C86 7472 8074 7480 8A7C 8E8A 7482"            /* ’„|†tr€tt€Š|ŽŠt‚ */
	$"8278 768C 787E 8C72 7878 746A 7C72 6C7A"            /* ‚xvŒx~Œrxxtj|rlz */
	$"7072 7280 7A8E 968C 9086 7C78 827C 8692"            /* prr€zŽ–Œ�†|x‚|†’ */
	$"8882 8076 6876 7870 747A 706C 7278 7C7C"            /* ˆ‚€vhvxptzplrx|| */
	$"8690 867E 8A8A 7C8C 9C88 7C90 8466 707A"            /* †�†~ŠŠ|Œœˆ|�„fpz */
	$"6064 7E76 667A 8676 7C8A 8472 8690 8886"            /* `d~vfz†v|Š„r†�ˆ† */
	$"9694 7C80 8474 6882 7E62 6C72 6264 8A88"            /* –”|€„th‚~blrbdŠˆ */
	$"8290 9078 7080 7A7E 8E9A 887E 827A 7074"            /* ‚��xp€z~Žšˆ~‚zpt */
	$"7C72 7278 766E 7682 8088 8C88 7E7C 7A76"            /* |rrxvnv‚€ˆŒˆ~|zv */
	$"8088 8888 8E84 7C7A 766E 7076 7472 787E"            /* €ˆˆˆŽ„|zvnpvtrx~ */
	$"7E7E 8284 7A78 8684 7E8A 9476 6E7E 7860"            /* ~~‚„zx†„~Š”vn~x` */
	$"768E 746E 8482 607E 9E90 84A4 9E6C 7086"            /* vŽtn„‚`~ž�„¤žlp† */
	$"7264 9094 6C6A 8268 5A7C 806A 7E94 7666"            /* rd�”lj‚hZ|€j~”vf */
	$"828C 7E8A 9686 7C88 7E6E 8498 8882 9286"            /* ‚Œ~Š–†|ˆ~n„˜ˆ‚’† */
	$"6E70 7868 626E 6C5E 7288 7E82 9894 7A7C"            /* npxhbnl^rˆ~‚˜”z| */
	$"867C 8492 8E7A 7A76 686E 7E82 7A80 8076"            /* †|„’Žzzvhn~‚z€€v */
	$"707E 8A86 9698 8A72 7472 6A7C 8C90 8284"            /* p~Š†–˜Šrtrj|Œ�‚„ */
	$"7668 6876 7C76 7876 7268 707C 8290 9896"            /* vhhv|vxvrhp|‚�˜– */
	$"8888 8A7E 8286 887E 7C7A 7674 7070 6A6C"            /* ˆˆŠ~‚†ˆ~|zvtppjl */
	$"6C6A 6A74 7E7C 8280 7C78 828A 8E9C A29A"            /* ljjt~|‚€|x‚ŠŽœ¢š */
	$"8E8C 8078 7A80 7A72 7266 5C66 767C 868C"            /* ŽŒ€xz€zrrf\fv|†Œ */
	$"8A7C 7470 707A 868A 7C72 6E64 6270 7E82"            /* Š|tppz†Š|rndbp~‚ */
	$"8E94 8E8C 9294 929A 9C92 807A 726C 7078"            /* Ž”ŽŒ’”’šœ’€zrlpx */
	$"7A72 746E 5E58 5E5E 5A68 6E6C 768A 929A"            /* zrtn^X^^ZhnlvŠ’š */
	$"ACAE A49E 9E94 9092 9286 7C76 6A66 7074"            /* ¬®¤žž”�’’†|vjfpt */
	$"6864 6A62 5A64 7476 828A 8078 7A76 7078"            /* hdjbZdtv‚Š€xzvpx */
	$"8890 9498 8A84 888C 9090 908C 8478 706C"            /* ˆ�”˜Š„ˆŒ���Œ„xpl */
	$"7082 8C86 7874 6A62 6A72 6C6A 726E 6A6E"            /* p‚Œ†xtjbjrljrnjn */
	$"7278 8694 9294 9AA0 9C96 9694 9088 7E74"            /* rx†”’”š œ––”�ˆ~t */
	$"727A 7E76 6E66 5852 5E66 6460 6062 6C78"            /* rz~vnfXR^fd``blx */
	$"828C 9EAC A69A 908E 9294 9692 9296 8E74"            /* ‚Œž¬¦š�Ž’”–’’–Žt */
	$"6460 6672 7670 6462 6260 6874 7E8A 8878"            /* d`frvpdbb`ht~Šˆx */
	$"6664 6E82 949A 9696 928E 8C86 8084 8882"            /* fdn‚”š––’ŽŒ†€„ˆ‚ */
	$"7C7A 7876 7E80 7E7C 7670 6C6E 6A6A 686C"            /* |zxv~€~|vplnjjhl */
	$"726A 6A78 888C 8A84 828C 9A96 9094 948E"            /* rjjxˆŒŠ„‚Œš–�””Ž */
	$"8478 6E72 7C8A 8C80 7266 5E60 6868 6C76"            /* „xnr|ŠŒ€rf^`hhlv */
	$"7872 6E76 7C96 A0A2 A094 9680 827E 7E90"            /* xrnv|– ¢ ”–€‚~~� */
	$"8090 726C 6C5E 7662 7670 6482 667A 6E72"            /* €�rll^vbvpd‚fznr */
	$"8876 9678 8086 7C9A 7C96 8A86 9C82 9A78"            /* ˆv–x€†|š|–Š†œ‚šx */
	$"8086 6C84 6C80 8080 906A 7C68 6872 6280"            /* €†l„l€€€�j|hhrb€ */
	$"727E 7E72 765C 8084 8E96 8290 8C96 8480"            /* r~~rv\€„Ž–‚�Œ–„€ */
	$"9E94 9280 707A 646A 6076 8C70 6A54 6C78"            /* ž”’€pzdj`vŒpjTlx */
	$"5C62 668A 8C74 7C7C ACA6 868E 96B6 907C"            /* \bfŠŒt||¬¦†Ž–¶�| */
	$"8288 9C6E 6C76 8286 545E 6C76 623C 6074"            /* ‚ˆœnlv‚†T^lvb<`t */
	$"826C 5A80 929A 7672 9EA8 A68C 98B2 A48E"            /* ‚lZ€’švrž¨¦Œ˜²¤Ž */
	$"6678 9490 7E56 6468 6462 6286 8A72 6058"            /* fx”�~Vdhdbb†Šr`X */
	$"7476 7474 8CB4 A482 6666 8698 A69A 8C78"            /* tvttŒ´¤‚ff†˜¦šŒx */
	$"6468 728C 9C92 8068 6A72 7E84 7C86 7E78"            /* dhrŒœ’€hjr~„|†~x */
	$"6056 6674 807C 7678 7676 748E B2B2 A286"            /* `Vft€|vxvvtŽ²²¢† */
	$"848A 8E86 7E94 9688 6C58 6064 747A 826E"            /* „ŠŽ†~”–ˆlX`dtz‚n */
	$"5652 525A 7082 9896 8464 7284 908C 92BC"            /* VRRZp‚˜–„dr„�Œ’¼ */
	$"B29A 6062 8690 9874 8888 6C5A 3A8A A28E"            /* ²š`b†�˜tˆˆlZ:Š¢Ž */
	$"644C 8C82 864E 5AA8 9894 5C7E 9A7E 8258"            /* dLŒ‚†NZ¨˜”\~š~‚X */
	$"9E9E 7856 4A9E 8A94 8084 B288 7058 94AA"            /* žžxVJžŠ”€„²ˆpX”ª */
	$"8C82 4E64 4E38 3C4E 8672 6254 6A96 98B6"            /* Œ‚NdN8<N†rbTj–˜¶ */
	$"B4D2 D8B6 9E80 8880 7C82 7E7C 523A 3A50"            /* ´Òضž€ˆ€|‚~|R::P */
	$"7E78 7A6E 6E78 6E84 88A0 9488 8870 7472"            /* ~xznnxn„ˆ ”ˆˆptr */
	$"7C86 7E88 7680 8076 888E A28C 8486 7C8A"            /* |†~ˆv€€vˆŽ¢Œ„†|Š */
	$"8084 8478 6A52 584E 505A 6486 8A7E 727C"            /* €„„xjRXNPZd†Š~r| */
	$"9CAE BAB4 B4AA 9082 767E 766A 6258 584A"            /* œ®º´´ª�‚v~vjbXXJ */
	$"484E 6A8C 9698 8A86 8886 8A8C 928C 7A6E"            /* HNjŒ–˜Š†ˆ†ŠŒ’Œzn */
	$"6270 7274 7C7C 8E88 7E7E 8A98 AAAE 9892"            /* bprt||Žˆ~~Š˜ª®˜’ */
	$"8266 707C 685E 5640 425C 5256 7874 7A8E"            /* ‚fp|h^V@B\RVxtzŽ */
	$"8C8E A4AC ACC8 C4AC A296 827E 7E6C 645E"            /* ŒŽ¤¬¬ÈĬ¢–‚~~ld^ */
	$"4C44 4C58 6072 7E80 8484 7882 8C94 9E9C"            /* LDLX`r~€„„x‚Œ”žœ */
	$"8E82 726E 6E6E 7A68 6E74 6880 807C 9696"            /* Ž‚rnnnzhnth€€|–– */
	$"A0A4 948E 8A86 9484 7670 5658 4240 524E"            /*  ¤”ŽŠ†”„vpVXB@RN */
	$"6272 747E 8E9E AAB0 B8AA 9C9E 92A0 B2A0"            /* brt~Žžª°¸ªœž’ ²  */
	$"8C74 5444 3E4E 5856 5850 5A6C 768A 9A9A"            /* ŒtTD>NXVXPZlvŠšš */
	$"A09E 8C82 786E 707A 8A90 867E 7872 7A78"            /*  žŒ‚xnpzŠ�†~xrzx */
	$"7C8E 9292 928A 888A 8488 8C7E 725E 5252"            /* |Ž’’’ŠˆŠ„ˆŒ~r^RR */
	$"5260 666C 787C 7E84 8A90 8E92 9A9A 9E96"            /* R`flx|~„Š�Ž’ššž– */
	$"8C8C 8C8A 806C 6E6E 707C 7A70 665C 585E"            /* ŒŒŒŠ€lnnp|zpf\X^ */
	$"6A80 868A 8E88 827C 8086 908E 8676 6864"            /* j€†ŠŽˆ‚|€†�Ž†vhd */
	$"6678 889E A8A2 988A 8282 7E74 727C 8684"            /* fxˆž¨¢˜Š‚‚~tr|†„ */
	$"6C56 5862 7270 625E 687A 8C82 909C ACB4"            /* lVXbrpb^hzŒ‚�œ¬´ */
	$"A286 7E76 766C 6460 6674 867E 7474 746E"            /* ¢†~vvld`ft†~tttn */
	$"6464 8296 A29E 9090 989A 8268 687A 8884"            /* dd‚–¢ž��˜š‚hhzˆ„ */
	$"6446 486E 96A6 9480 6A76 8A9C 948A 7C82"            /* dFHn–¦”€jvŠœ”Š|‚ */
	$"9096 825C 3834 5282 907C 5A58 74A2 BAAE"            /* �–‚\84R‚�|ZXt¢º® */
	$"8C7C 8AA6 B6AE 8C6C 6478 8E8C 6C40 2A3C"            /* Œ|Š¦¶®ŒldxŽŒl@*< */
	$"6080 806A 626E 96B0 AE8E 7270 90B0 BCA2"            /* `€€jbn–°®Žrp�°¼¢ */
	$"8274 7472 6E5C 4C44 5A74 8A8C 8076 84A2"            /* ‚ttrn\LDZtŠŒ€v„¢ */
	$"BAB4 946C 585C 7284 807A 6E72 7A82 7E6A"            /* º´”lX\r„€znrz‚~j */
	$"6268 86A6 AC9A 847E 8494 988A 6E62 626E"            /* bh†¦¬š„~„”˜Šnbbn */
	$"7472 5E56 687E 7876 7C74 6C82 A098 929A"            /* tr^Vh~xv|tl‚ ˜’š */
	$"846E 86A0 8468 7A86 88AA B28C 6C76 7668"            /* „n† „hz†ˆª²Œlvvh */
	$"7A82 6250 6A86 827E 7664 5A74 8A7A 6A64"            /* z‚bPj†‚~vdZtŠzjd */
	$"5A68 90B6 B09C 968E 848E 8C78 6A6E 8A86"            /* Zh�¶°œ–Ž„ŽŒxjnŠ† */
	$"928A 7262 5C70 686E 605E 5876 888E 908C"            /* ’Šrb\phn`^XvˆŽ�Œ */
	$"9896 9C88 806C 6A7C 9698 8884 727A 8494"            /* ˜–œˆ€lj|–˜ˆ„rz„” */
	$"7A76 7E84 9296 9A74 6052 5658 6464 5250"            /* zv~„’–št`RVXddRP */
	$"5270 7E92 9084 8292 AAAA 9E84 8492 AEB4"            /* Rp~’�„‚’ªªž„„’®´ */
	$"9E80 6262 646E 6458 5868 848E 867A 7680"            /* ž€bbdndXXh„Ž†zv€ */
	$"8C98 9488 8074 7E80 8C82 7870 666A 6464"            /* Œ˜”ˆ€t~€Œ‚xpfjdd */
	$"5C60 6074 92A2 A28E 8476 8A8E 8A7A 747A"            /* \``t’¢¢Ž„vŠŽŠztz */
	$"808A 7C76 6464 6A78 7A6E 7272 8CA2 ACA0"            /* €Š|vddjxznrrŒ¢¬  */
	$"9898 9692 8678 6A72 7076 7A76 6E5E 5854"            /* ˜˜–’†xjrpvzvn^XT */
	$"626C 787A 848E 929A 8A84 7C74 8084 8278"            /* blxz„Ž’šŠ„|t€„‚x */
	$"6C6C 7280 867E 787C 7E86 867C 7E84 909A"            /* llr€†~x|~††|~„�š */
	$"9A8C 8072 767A 7E80 767E 8084 8A80 766A"            /* šŒ€rvz~€v~€„Š€vj */
	$"6C66 6666 5E62 6874 7E90 9698 9286 7E7C"            /* lfff^bht~�–˜’†~| */
	$"827A 8080 8A94 968A 7476 6A78 7E80 8688"            /* ‚z€€Š”–Štvjx~€†ˆ */
	$"9A90 8276 7686 9692 7C60 5E6A 7488 7C70"            /* š�‚vv†–’|`^jtˆ|p */
	$"5E60 7680 8A7A 6A56 607A 94A2 9882 6A72"            /* ^`v€ŠzjV`z”¢˜‚jr */
	$"8EAA BAAC 8E7A 7C84 8686 7660 544E 5862"            /* Žªº¬Žz|„††v`TNXb */
	$"727A 7876 7C90 9CA0 9A8C 7C78 8490 A0A6"            /* rzxv|�œ šŒ|x„� ¦ */
	$"947E 645E 5C5E 5E54 5456 6E7C 8C92 8C82"            /* ”~d^\^^TTVn|Œ’Œ‚ */
	$"7A84 8892 9282 746A 6872 8490 8672 665E"            /* z„ˆ’’‚tjhr„�†rf^ */
	$"728A A0AC ACA2 9694 929C 9888 7668 6C70"            /* rŠ ¬¬¢–”’œ˜ˆvhlp */
	$"766A 5246 343A 5064 6C6A 6C6E 849C A8B2"            /* vjRF4:Pdljln„œ¨² */
	$"AEA0 9082 8694 9C8E 7A72 7076 7A72 605C"            /* ® �‚†”œŽzrpvzr`\ */
	$"6266 7084 94A0 9A8E 8488 989E 9882 6E68"            /* bfp„” šŽ„ˆ˜ž˜‚nh */
	$"6A70 726E 6A74 7874 7880 8C88 8276 7C96"            /* jprnjtxtx€Œˆ‚v|– */
	$"9E8E 7060 606C 7672 727A 7A72 6A74 8494"            /* žŽp``lvrrzzrjt„” */
	$"8C78 7274 8A9C 9E98 908A 8892 9286 827A"            /* ŒxrtŠœž˜�Šˆ’’†‚z */
	$"7A7C 8480 8284 7462 5654 626E 6E68 6C74"            /* z|„€‚„tbVTbnnhlt */
	$"8898 9084 8082 7E7C 7E84 8A90 8070 7280"            /* ˆ˜�„€‚~|~„Š�€pr€ */
	$"8A86 7868 626C 7882 8A92 8C86 8286 8C8C"            /* Š†xhblx‚Š’Œ†‚†ŒŒ */
	$"8A80 7E80 8080 7C74 685A 5A64 6E72 726E"            /* Š€~€€€|thZZdnrrn */
	$"707A 8690 9490 8678 7A88 969E 948A 847E"            /* pz†�”�†xzˆ–ž”Š„~ */
	$"7874 6868 625C 5A68 7888 98A0 9C98 9298"            /* xthhb\Zhxˆ˜ œ˜’˜ */
	$"9C9C 8C7A 6E70 7062 5C58 585A 5666 6E7C"            /* œœŒznppb\XXZVfn| */
	$"847E 808A A0A6 A69E 908E 8C8C 847C 7468"            /* „~€Š ¦¦ž�ŽŒŒ„|th */
	$"6464 707C 7876 706E 6A6A 7480 94A0 A09E"            /* ddp|xvpnjjt€”  ž */
	$"9A9C 948A 7672 7478 8284 8272 6048 464A"            /* šœ”Švrtx‚„‚r`HFJ */
	$"5E6C 7C80 889A A2A2 9E90 786A 6E6C 7476"            /* ^l|€ˆš¢¢ž�xjnltv */
	$"7C8A 9496 8C7E 7062 5A58 6C90 B0C2 CAC6"            /* |Š”–Œ~pbZXl�°ÂÊÆ */
	$"AC8E 725A 585A 5E60 6870 7272 6A64 5C5C"            /* ¬ŽrZXZ^`hprrjd\\ */
	$"646C 7C86 8A8A 8A94 A0A2 9888 7668 6E76"            /* dl|†ŠŠŠ” ¢˜ˆvhnv */
	$"7A80 8892 9296 8A7E 6656 4848 5670 8E9E"            /* z€ˆ’’–Š~fVHHVpŽž */
	$"AAAC AC9A 8E82 7A78 7470 747A 8082 7E70"            /* ª¬¬šŽ‚zxtptz€‚~p */
	$"5E4E 4240 5262 7C9C B2BC BAA8 9484 7066"            /* ^NB@Rb|œ²¼º¨”„pf */
	$"6C78 7E80 8280 8A90 8672 6058 5864 748A"            /* lx~€‚€Š�†r`XXdtŠ */
	$"969A 9892 8C8A 847C 7470 7478 8080 7A74"            /* –š˜’ŒŠ„|tptx€€zt */
	$"7468 6062 666A 7880 8696 A0AA AAA4 9A90"            /* th`bfjx€†– ªª¤š� */
	$"7E78 7872 6866 6A70 787E 7460 5650 4E66"            /* ~xxrhfjpx~t`VPNf */
	$"889A A6AE B4B8 B29E 826C 5E5A 5C6C 868A"            /* ˆš¦®´¸²ž‚l^Z\l†Š */
	$"7E74 7060 504C 566A 8092 9CAE B6AC 967E"            /* ~tp`PLVj€’œ®¶¬–~ */
	$"7468 5C5E 6E84 9492 908C 9092 7E66 646C"            /* th\^n„”’�Œ�’~fdl */
	$"7680 8A94 A69E 887A 828A 7C68 5C66 7062"            /* v€Š”¦žˆz‚Š|h\fpb */
	$"565E 727A 5E4A 5C76 8070 7EA8 B4B0 9EA2"            /* V^rz^J\v€p~¨´°ž¢ */
	$"AEA6 8668 6E7E 7C6E 7080 8C84 7472 7C72"            /* ®¦†hn~|np€Œ„tr|r */
	$"5A4C 6694 9C96 909C 9C88 7668 726C 584C"            /* ZLf”œ–�œœˆvhrlXL */
	$"6894 A89C 8C88 7660 4842 586E 7A8A 98A4"            /* h”¨œŒˆv`HBXnzŠ˜¤ */
	$"A28E 7660 6070 7874 7C92 968E 8080 8674"            /* ¢Žv``pxt|’–Ž€€†t */
	$"6256 5C82 929A A4B4 BCA6 9490 9086 7862"            /* bV\‚’š¤´¼¦”��†xb */
	$"5E6A 6E6E 6460 5A48 3C44 5668 727E 8894"            /* ^jnnd`ZH<DVhr~ˆ” */
	$"A2A4 A2A8 ACA2 8E84 807E 7874 7E8C 9C8C"            /* ¢¤¢¨¬¢Ž„€~xt~ŒœŒ */
	$"7868 6058 4852 6482 9092 9EA8 A89C 8680"            /* xh`XHRd‚�’ž¨¨œ†€ */
	$"7E72 6066 828E 8A76 6A68 5846 4C6A 9290"            /* ~r`f‚ŽŠvjhXFLj’� */
	$"8E9A BCCA A486 7A82 7058 526A 8884 7A76"            /* Žš¼Ê¤†z‚pXRjˆ„zv */
	$"8876 4C3A 4870 8A94 A0BA C2B8 A296 9492"            /* ˆvL:HpŠ” ºÂ¸¢–”’ */
	$"8066 6872 7262 6660 6872 5446 545C 606E"            /* €fhrrbf`hrTFT\`n */
	$"7878 969C 8AA2 ACB2 A8A0 9A88 9A6A 686E"            /* xx–œŠ¢¬²¨ šˆšjhn */
	$"6C82 6692 6280 7E3E 7A4A 766A 7AA2 84D0"            /* l‚f’b€~>zJvjz¢„Ð */
	$"96A8 9276 8C4C 8442 6A8A 4892 4E70 725E"            /* –¨’vŒL„BjŠH’Npr^ */
	$"8E56 A288 78A4 80AE 888E 7862 8E54 7C68"            /* ŽV¢ˆx¤€®ˆŽxbŽT|h */
	$"7092 6A98 6284 7A4E 8C62 9E9A 98AE 8CBE"            /* p’j˜b„zNŒbžš˜®Œ¾ */
	$"869E 926A 8C6A 8466 7C78 4C6E 3850 4C50"            /* †ž’jŒj„f|xLn8PLP */
	$"5E4E 8662 8686 86AE 9CB6 9CB8 AC92 A87E"            /* ^N†b†††®œ¶œ¸¬’¨~ */
	$"9678 786E 6080 5472 625C 7264 8464 827E"            /* –xxn`€Trb\rd„d‚~ */
	$"7A9C 8AAE 969E 8E6E 8664 8478 7282 6478"            /* zœŠ®–žŽn†d„xr‚dx */
	$"5E6A 726C 8C7A 8E94 9296 8494 8282 7E6E"            /* ^jrlŒzŽ”’–„”‚‚~n */
	$"7C70 7262 646A 626C 6264 6A6C 7880 A0AE"            /* |prbdjblbdjlx€ ® */
	$"B8BE B6BA AC9C 8A7A 7A6E 7274 6A6A 5E4C"            /* ¸¾¶º¬œŠzznrtjj^L */
	$"3E4A 4E52 6068 7E86 8E92 9AA4 9AA0 9C94"            /* >JNR`h~†Ž’š¤š œ” */
	$"8C78 7270 7A7C 8284 7C7E 746E 6C76 7E76"            /* Œxrpz|‚„|~tnlv~v */
	$"8488 8688 8280 8490 8A80 766E 6464 6E78"            /* „ˆ†ˆ‚€„�Š€vnddnx */
	$"827C 7270 6A6E 747E 8692 9A90 8E92 928E"            /* ‚|rpjnt~†’š�Ž’’Ž */
	$"8C84 7C78 6E66 6C74 746E 6C60 5C5A 6074"            /* Œ„|xnflttnl`\Z`t */
	$"828E 989C A2A0 A49E 9C9A 887A 6E70 747C"            /* ‚Ž˜œ¢ ¤žœšˆznpt| */
	$"7E78 725C 524C 4654 647C 8890 8E82 888E"            /* ~xr\RLFTd|ˆ�Ž‚ˆŽ */
	$"9C9A 9498 7C74 6E68 6A8A 9E90 806C 5A5E"            /* œš”˜|tnhjŠž�€lZ^ */
	$"5A66 7C94 B6C8 B496 826C 606E 7480 9A94"            /* Zf|”¶È´–‚l`nt€š” */
	$"8262 4A38 425E 647E 909A 927C 6A5E 7494"            /* ‚bJ8B^d~�š’|j^t” */
	$"B6C2 BCB0 8E6A 4E4C 6686 AAA8 8E66 402E"            /* ¶Â¼°ŽjNLf†ª¨Žf@. */
	$"2840 6EA0 C0C8 B490 7C7C 8298 AABC B098"            /* (@n ÀÈ´�||‚˜ª¼°˜ */
	$"7854 4444 5260 7684 6A5E 5A4E 4E6A 8490"            /* xTDDR`v„j^ZNNj„� */
	$"AAB8 AEA2 9688 7874 747E 888E 8070 6662"            /* ª¸®¢–ˆxtt~ˆŽ€pfb */
	$"5E60 6A7A 8C84 807E 8898 A2A8 A6AA 8E66"            /* ^`jzŒ„€~ˆ˜¢¨¦ªŽf */
	$"525A 6C6A 7A76 847A 6650 4E60 7088 98B0"            /* RZljzv„zfPN`pˆ˜° */
	$"B29E 7E7C 767A 8A92 8076 685A 5C6A 7070"            /* ²ž~|vzŠ’€vhZ\jpp */
	$"7476 7272 6E66 7082 A0AC ACA0 8C90 9296"            /* tvrrnfp‚ ¬¬ Œ�’– */
	$"8680 7C72 7C80 8470 5A4A 4654 7288 8484"            /* †€|r|€„pZJFTrˆ„„ */
	$"8480 7C82 7C80 9AB0 BA9C 8466 5662 7072"            /* „€|‚|€š°ºœ„fVbpr */
	$"7A8A 6862 6C62 6872 6C80 BABE B2B2 8E74"            /* zŠhblbhrl€º¾²²Žt */
	$"8C92 8290 804A 5066 6060 6252 5A72 7E8E"            /* Œ’‚�€JPf``bRZr~Ž */
	$"9684 7A7A 7A86 B0BC A0A6 AC84 5E72 685C"            /* –„zzz†°¼ ¦¬„^rh\ */
	$"869A 7A64 6A54 3C62 848A 8CAA 9C88 767E"            /* †šzdjT<b„ŠŒªœˆv~ */
	$"7472 AEB4 AE8A 7E64 3E5E 6C62 5C82 606C"            /* tr®´®Š~d>^lb\‚`l */
	$"7C7E 986E A49C 90A2 A48E 7A80 787A 728E"            /* |~˜n¤œ�¢¤Žz€xzrŽ */
	$"666C 7658 5838 4E5C 768C A08C 8486 7C9A"            /* flvXX8N\vŒ Œ„†|š */
	$"98C0 C2B0 B090 6858 5250 6882 987E 766C"            /* ˜À°°�hXRPh‚˜~vl */
	$"3842 5C6A 7E98 A08C 807E 7672 8498 9296"            /* 8B\j~˜ Œ€~vr„˜’– */
	$"9682 6C60 7672 7282 8680 8892 7064 6A7C"            /* –‚l`vrr‚†€ˆ’pdj| */
	$"7C90 A89E 9E88 7864 5C72 7C72 787C 685E"            /* |�¨žžˆxd\r|rx|h^ */
	$"5664 5E7C 9EA4 A89E 8E6C 6E7A 8A98 A8A4"            /* Vd^|ž¤¨žŽlnzŠ˜¨¤ */
	$"8474 5A5E 6276 8678 6862 5A54 6274 868E"            /* „tZ^bv†xhbZTbt†Ž */
	$"9C9C 8C90 9292 949C 9A94 9288 725A 5C66"            /* œœŒ�’’”œš”’ˆrZ\f */
	$"7276 726E 6C6E 726E 6E74 7C80 949E 9690"            /* rvrnlnrnnt|€”ž–� */
	$"7E6C 585C 6C8A ACA8 9674 5C54 5464 789E"            /* ~lX\lŠ¬¨–t\TTdxž */
	$"B6AC 906E 606A 8494 A4B8 AA8A 6642 4856"            /* ¶¬�n`j„”¤¸ªŠfBHV */
	$"7880 8286 6E6C 5858 6672 9898 A69C 888E"            /* x€‚†nlXXfr˜˜¦œˆŽ */
	$"7E8C 827C 807A 8E80 8478 645E 3C4E 587C"            /* ~Œ‚|€zŽ€„xd^<NX| */
	$"9E8A 9276 7E80 82A4 A8C8 BC9C 7A54 5858"            /* žŠ’v~€‚¤¨È¼œzTXX */
	$"7C90 9490 6854 323A 5870 A0A2 A892 7E76"            /* |�”�hT2:Xp ¢¨’~v */
	$"6E80 8AA6 AE9A 8462 5C64 7682 7E8C 7E6C"            /* n€Š¦®š„b\dv‚~Œ~l */
	$"6058 7480 8E88 8C90 8886 747E 8488 8074"            /* `Xt€ŽˆŒ�ˆ†t~„ˆ€t */
	$"7A78 827C 7878 6862 5672 8AA0 9C84 7E70"            /* zx‚|xxhbVrŠ œ„~p */
	$"7C86 96AE A694 6A4E 4C5A 7482 9092 7C5A"            /* |†–®¦”jNLZt‚�’|Z */
	$"3632 4C7E 9EA6 B0A8 988C 8498 ACB0 9E84"            /* 62L~ž¦°¨˜Œ„˜¬°ž„ */
	$"7C78 6C5C 586E 7674 6C60 5E5E 5C60 647A"            /* |xl\Xnvtl`^^\`dz */
	$"8688 8C92 988A 8882 8A8A 8888 8686 887C"            /* †ˆŒ’˜Šˆ‚ŠŠˆˆ††ˆ| */
	$"7066 666E 7892 9E94 8072 747C 9898 9A96"            /* pffnx’ž”€rt|˜˜š– */
	$"7E6A 4E50 6078 888A 9082 6850 4E68 7C94"            /* ~jNP`xˆŠ�‚hPNh|” */
	$"9AA8 A294 8886 8C92 908C 8E88 785C 6072"            /* š¨¢”ˆ†Œ’�ŒŽˆx\`r */
	$"7058 3E42 5660 626A 94BA AC86 6C88 9CA6"            /* pX>BV`bj”º¬†lˆœ¦ */
	$"9896 A2A8 AC92 7266 6C7E 7876 5C56 7282"            /* ˜–¢¨¬’rfl~xv\Vr‚ */
	$"865C 5268 8A94 726A 8AB6 B27E 4A5E 8488"            /* †\RhŠ”rjŠ¶²~J^„ˆ */
	$"7E70 8A9A 8A5A 2E56 8EB0 A882 6C6A 808A"            /* ~pŠšŠZ.VŽ°¨‚lj€Š */
	$"94A2 A8A4 7C66 5E64 7478 7C6E 6C6E 646A"            /* ”¢¨¤|f^dtx|nlndj */
	$"6A66 6686 B6BA A07E 7480 827C 7C9C B298"            /* jff†¶º ~t€‚||œ²˜ */
	$"6044 688A 8864 4442 5C7E 8A8C 9A9A 8874"            /* `DhŠˆdDB\~ŠŒššˆt */
	$"707E 8E9E A09C 8064 728C 8C78 7266 6A82"            /* p~Žž œ€drŒŒxrfj‚ */
	$"7856 5888 966C 606C 747A 7E86 8EB6 D098"            /* xVXˆ–l`ltz~†Ž¶Ð˜ */
	$"5C54 646C 88A6 A492 826E 5054 6E76 7478"            /* \Tdlˆ¦¤’‚nPTnvtx */
	$"7A74 7686 9496 8A7E 787E 8684 746C 8496"            /* ztv†”–Š~x~†„tl„– */
	$"8A76 7676 7064 6070 96A8 987C 7888 9684"            /* Švvvpd`p–¨˜|xˆ–„ */
	$"8074 7E70 7876 7A8A 6654 365A 5876 928A"            /* €t~pxvzŠfT6ZXv’Š */
	$"A68E 8E58 86B6 D2B4 829E A4B2 5A4A 569E"            /* ¦ŽŽX†¶Ò´‚ž¤²ZJVž */
	$"AC5C 2644 A074 2616 94CE 9A38 2AA2 D09C"            /* ¬\&D t&.”Κ8*¢Ðœ */
	$"2668 ECFF 6A01 58DA F65A 1670 F0D0 2E08"            /* &h..j.X..Z.p.Ð.. */
	$"76F2 9C0A 0CB2 FFAC 1822 BEE6 6001 32D8"            /* v.œ..².¬."¾.`.2Ø */
	$"F066 086E E6C8 2601 88FF CC2E 24B2 FFA8"            /* .f.n.È&.ˆ.Ì.$².¨ */
	$"1E36 C6FF 8C01 20AE DC6A 166C C6B4 1E01"            /* .6Æ.Œ. ®.j.lÆ´.. */
	$"4ED0 C044 3898 ECA6 3E3E ACE6 963C 5CC8"            /* NÐÀD8˜.¦>>¬.–<\È */
	$"D27A 2C62 BAB6 562C 62B0 B250 3678 B478"            /* Òz,bº¶V,b°²P6x´x */
	$"3E66 A4BA 803E 2886 D082 4A9C ECA2 403A"            /* >f¤º€>(†Ð‚Jœ.¢@: */
	$"5A88 A8A0 7882 BC8C 1014 92D6 A482 A2B2"            /* Zˆ¨ x‚¼Œ..’Ö¤‚¢² */
	$"8A44 1E42 82BE BC78 5688 8424 0C78 D4B6"            /* ŠD.B‚¾¼xVˆ„$.xÔ¶ */
	$"9496 806E 7A64 4482 EAE0 826C 8A72 322A"            /* ”–€nzdD‚..‚lŠr2* */
	$"5C84 A4AE 8E62 6C7C 502C 66D4 ECB8 8672"            /* \„¤®Žbl|P,fÔ.¸†r */
	$"6A52 404A 88D6 E69E 403A 564A 3A6A BED2"            /* jR@JˆÖ.ž@:VJ:j¾Ò */
	$"A674 4834 5484 889E E2EE 9A44 3C54 6070"            /* ¦tH4T„ˆž..šD<T`p */
	$"A0BE BE9C 5A16 063E 728C B0DC DA8A 301E"            /*  ¾¾œZ..>rŒ°..Š0. */
	$"4072 9CAE B6BC A86C 2C20 5EA4 ACAA B4B2"            /* @rœ®¶¼¨l, ^¤¬ª´² */
	$"7E48 363E 72A4 B29C 929C 8250 344E 7A92"            /* ~H6>r¤²œ’œ‚P4Nz’ */
	$"989C 987C 4C24 205E A6C4 C8B4 A68A 5A4C"            /* ˜œ˜|L$ ^¦ÄÈ´¦ŠZL */
	$"6CA4 C0B8 AA84 6A58 3230 6AA4 B296 7460"            /* l¤À¸ª„jX20j¤²–t` */
	$"4E3A 3E56 88BA C29E 705E 5858 7498 CCD8"            /* N:>VˆºÂžp^XXt˜ÌØ */
	$"B288 5E5A 6466 7088 AAA2 8062 5A66 6A6A"            /* ²ˆ^Zdfpˆª¢€bZfjj */
	$"809E A28A 6444 4666 7670 809E AA94 7868"            /* €ž¢ŠdDFfvp€žª”xh */
	$"6A84 7E7A 9EBE AA7C 6860 9090 8272 90AC"            /* j„~zž¾ª|h`��‚r�¬ */
	$"AA8A 5250 5866 627E 827C 603E 506C 9292"            /* ªŠRPXfb~‚|`>Pl’’ */
	$"8492 A298 7872 789C AEA4 9892 9474 483C"            /* „’¢˜xrxœ®¤˜’”tH< */
	$"769C 8470 7E94 8276 3E30 7084 7A70 A4A8"            /* vœ„p~”‚v>0p„zp¤¨ */
	$"A6AE 725C 7E8C 6C6C C2B6 5A62 746C 98B0"            /* ¦®r\~Œll¶Zbtl˜° */
	$"9C80 7A86 6240 4A90 A076 7EA4 8214 1856"            /* œ€z†b@J� v~¤‚..V */
	$"7490 BABA 9C82 7028 247C BE8E 90F0 E670"            /* t�ººœ‚p($|¾Ž�..p */
	$"2A3A 76A0 AE9C 86A8 B246 0120 96C6 8654"            /* *:v ®œ†¨²F. –ƆT */
	$"A8D6 9214 0E68 B8DE 9070 9CB2 7006 0C82"            /* ¨Ö’..h¸.�pœ²p..‚ */
	$"B89E 9290 A492 2201 5EC0 B486 80A6 A65E"            /* ¸ž’�¤’".^À´†€¦¦^ */
	$"1C2A 8EDE C484 9EC2 800A 0172 C6B2 848C"            /* .*Ž.Ä„žÂ€..rƲ„Œ */
	$"A09C 6E34 3686 D0B2 6E80 AA6E 2830 6CA0"            /*  œn46†Ð²n€ªn(0l  */
	$"AC9C 7A7E 8874 4644 9CCC A480 8082 684A"            /* ¬œz~ˆtFDœÌ¤€€‚hJ */
	$"4A6C A0BA AE84 7C8E 6A44 2E62 969C 967E"            /* Jl º®„|ŽjD.b–œ–~ */
	$"6A5E 686C 74A2 B6AE 947C 7868 687E 92AC"            /* j^hlt¢¶®”|xhh~’¬ */
	$"BAB0 7A5A 504C 5052 86B2 AC8E 6644 2E3A"            /* º°zZPLPR†²¬ŽfD.: */
	$"4A64 A0D0 B67A 7086 9490 888C 9CA0 9076"            /* Jd Ð¶zp†”�ˆŒœ �v */
	$"687C 846C 749C B094 6450 5C6E 7C7C 848E"            /* h|„ltœ°”dP\n||„Ž */
	$"825C 3646 6E78 6A6C 8EAE A67E 7880 8482"            /* ‚\6FnxjlŽ®¦~x€„‚ */
	$"7484 B2C2 9E70 7288 908A 8896 9278 523C"            /* t„²Âžprˆ�Šˆ–’xR< */
	$"5066 6C66 7694 8C70 626A 7480 847E 9AB8"            /* Pflfv”Œpbjt€„~š¸ */
	$"B490 7078 7E78 748C A4A2 8460 4C6A 8676"            /* ´�px~xtŒ¤¢„`Lj†v */
	$"686E 746C 5C54 6276 7278 86A0 B2A0 7A60"            /* hntl\Tbvrx† ² z` */
	$"606C 8298 AAB4 A88A 746C 7A80 8C92 8C8C"            /* `l‚˜ª´¨Štlz€Œ’ŒŒ */
	$"7E70 6A5E 5C5C 626A 7C7E 7464 5862 728A"            /* ~pj^\\bj|~tdXbrŠ */
	$"989E 907C 6C68 7888 929C A2A2 A29A 8270"            /* ˜ž�|lhxˆ’œ¢¢¢š‚p */
	$"7072 7074 7E76 7270 6864 6672 808C 8E8C"            /* prpt~vrphdfr€ŒŽŒ */
	$"826C 6870 7C8A 9C96 8684 7874 6C76 7C88"            /* ‚lhp|Šœ–†„xtlv|ˆ */
	$"9292 9676 685A 5668 7A98 868E 7866 786A"            /* ’’–vhZVhz˜†Žxfxj */
	$"8C88 8C9A 828C 6E6C 787A 868C 9894 967E"            /* ŒˆŒš‚Œnlxz†Œ˜”–~ */
	$"6476 687E 8084 9080 7660 5A64 6E8C 9096"            /* dvh~€„�€v`ZdnŒ�– */
	$"9086 8668 6C62 6478 7C94 8880 7C74 787C"            /* �††hlbdx|”ˆ€|tx| */
	$"9096 9A96 8476 6666 686C 7E86 8A82 7A78"            /* �–š–„vffhl~†Š‚zx */
	$"727C 8288 8E92 8E7E 7872 6E6C 7C8A 9090"            /* r|‚ˆŽ’Ž~xrnl|Š�� */
	$"7A72 666A 7472 848A 806E 6466 6A68 748E"            /* zrfjtr„Š€ndfjhtŽ */
	$"A8A6 8A8A 8A7C 7466 7692 9884 7278 7E76"            /* ¨¦ŠŠŠ|tfv’˜„rx~v */
	$"667A 9EAA 967E 7472 606A 4662 7476 7A62"            /* fzžª–~tr`jFbtvzb */
	$"8872 8C66 72A8 92AC 7694 7E7A 9256 9C88"            /* ˆrŒfr¨’¬v”~z’Vœˆ */
	$"A496 72A0 6A88 5868 9878 A65C 6460 5070"            /* ¤–r jˆXh˜x¦\d`Pp */
	$"4690 949A A06C 966C 7472 6AA0 8AA2 7868"            /* F�”š l–ltrj Š¢xh */
	$"8862 8A78 909C 8296 687A 7060 7860 847C"            /* ˆbŠx�œ‚–hzp`x`„| */
	$"7C84 647C 647E 887A A080 9678 7874 628C"            /* |„d|d~ˆz €–xxtbŒ */
	$"6C94 90A6 A68C 927A 8880 8882 7670 6252"            /* l”�¦¦Œ’zˆ€ˆ‚vpbR */
	$"5060 7C80 8A84 7070 626E 667C 8A84 8C74"            /* P`|€Š„ppbnf|Š„Œt */
	$"8A72 8476 6A8C 84A8 989E 9884 866C 8078"            /* Šr„vjŒ„¨˜ž˜„†l€x */
	$"7C84 767E 7A80 7A74 827E 8482 7278 6064"            /* |„v~z€zt‚~„‚rx`d */
	$"6064 7670 887A 7E7E 7C84 7C90 9896 8C76"            /* `dvpˆz~~|„|�˜–Œv */
	$"7474 868C 7676 7C7E 8874 7E78 7C70 6C7C"            /* tt†Œvv|~ˆt~x|pl| */
	$"7E78 6E6C 6878 8886 8288 947E 7C78 8282"            /* ~xnlhxˆ†‚ˆ”~|x‚‚ */
	$"8688 8084 887C 7674 888A 8688 8C8E 846C"            /* †ˆ€„ˆ|vtˆŠ†ˆŒŽ„l */
	$"685A 6A70 7278 828C 806C 6E7C 8684 807A"            /* hZjprx‚Œ€ln|†„€z */
	$"6E6C 6C70 8296 A49A 8C88 7878 808E 9094"            /* nllp‚–¤šŒˆxx€Ž�” */
	$"9286 8074 7262 5052 606E 787A 766E 8084"            /* ’†€trbPR`nxzvn€„ */
	$"8A86 707A 6678 829A A490 9A92 9C9A 928A"            /* Š†pzfx‚š¤�š’œš’Š */
	$"6A70 6872 7876 8882 7A70 767C 6878 7E8C"            /* jphrxvˆ‚zpv|hx~Œ */
	$"8A78 6858 7476 7674 6E72 5A6C 8496 8C7E"            /* ŠxhXtvvtnrZl„–Œ~ */
	$"9CAC A08A 8494 8E7C 7C8E 8E72 6E64 5C60"            /* œ¬ Š„”Ž||ŽŽrnd\` */
	$"727E 706E 868A 7258 788E 8278 9AAA 927C"            /* r~pn†ŠrXxŽ‚xšª’| */
	$"8A92 7C66 7286 827A 8470 6C68 7E8C 888E"            /* Š’|fr†‚z„plh~ŒˆŽ */
	$"9096 806C 747E 745C 6672 767C 7470 747E"            /* �–€lt~t\frv|tpt~ */
	$"8A8A 7C74 7678 707A 8EA2 A69A 9C8A 7E78"            /* ŠŠ|tvxpzŽ¢¦šœŠ~x */
	$"7C82 8086 8076 7478 7462 5660 6870 6C6A"            /* |‚€†€vtxtbV`hplj */
	$"7480 8484 8E8C 8C92 8882 8080 867E 787C"            /* t€„„ŽŒŒ’ˆ‚€€†~x| */
	$"888E 848E 9484 7872 685E 646C 7A90 8C80"            /* ˆŽ„Ž”„xrh^dlz�Œ€ */
	$"7A78 7A84 8068 6678 7676 8480 8088 766E"            /* zxz„€hfxvv„€€ˆvn */
	$"707A 7E84 9094 A2A0 8678 7082 8488 8C84"            /* pz~„�”¢ †xp‚„ˆŒ„ */
	$"8A68 646A 727C 6E5E 4E5A 6E88 969A 8E7E"            /* Šhdjr|n^NZnˆ–šŽ~ */
	$"7470 8698 948E 8482 8492 968A 785A 4C62"            /* tp†˜”Ž„‚„’–ŠxZLb */
	$"809C 9A84 6C62 6876 96A2 967E 6E6E 747C"            /* €œš„lbhv–¢–~nnt| */
	$"7864 6870 7A7E 7E8E 846E 6068 7C84 969E"            /* xdhpz~~Ž„n`h|„–ž */
	$"A6AE 9E82 7086 989C 8864 5A58 5C68 7A86"            /* ¦®ž‚p†˜œˆdZX\hz† */
	$"7A66 4A4A 7084 8684 8A96 9898 8886 8876"            /* zfJJp„†„Š–˜˜ˆ†ˆv */
	$"6C70 929C 8C88 8488 7664 585C 8288 8A8A"            /* lp’œŒˆ„ˆvdX\‚ˆŠŠ */
	$"8284 7E7A 7684 8A78 6E5E 6A6C 6274 7C7C"            /* ‚„~zv„Šxn^jlbt|| */
	$"7070 8482 8A86 7A82 94AA A4A8 A88E 705C"            /* pp„‚Š†z‚”ª¤¨¨Žp\ */
	$"6E92 A48C 6852 3C48 6A98 A88E 7042 487C"            /* n’¤ŒhR<Hj˜¨ŽpBH| */
	$"A2A4 8482 7A7A 98A0 8C7E 744C 4684 B0A0"            /* ¢¤„‚zz˜ Œ~tLF„°  */
	$"7E74 6672 9898 848A 9276 6A8E 9A8C 7E66"            /* ~tfr˜˜„Š’vjŽšŒ~f */
	$"4C54 6E6A 6A6E 7C7E 7686 8C98 8E7A 6856"            /* LTnjjn|~v†Œ˜ŽzhV */
	$"7294 A0A8 AA9A 7C7C 8292 9A8E 7C62 5E6A"            /* r” ¨ªš||‚’šŽ|b^j */
	$"7278 747C 766C 786A 6A60 5268 82A4 AE9A"            /* rxt|vlxjj`Rh‚¤®š */
	$"806E 6872 869A A494 7470 7482 9898 886C"            /* €nhr†š¤”tpt‚˜˜ˆl */
	$"685C 6082 908C 7674 7C88 9C88 7A78 684E"            /* h\`‚�Œvt|ˆœˆzxhN */
	$"548C 9880 6460 7888 8870 6C88 8484 96CA"            /* TŒ˜€d`xˆˆplˆ„„–Ê */
	$"CE92 6254 869C 9888 7A76 5E4C 4C7E A07C"            /* Î’bT†œ˜ˆzv^LL~ | */
	$"5036 4458 6076 9CBC AC86 7476 9498 8C84"            /* P6DX`vœ¼¬†tv”˜Œ„ */
	$"8288 7A74 7C88 887C 706C 7E80 7C7C 768C"            /* ‚ˆzt|ˆˆ|pl~€||vŒ */
	$"9690 8E86 7E6A 6A6C 7278 7060 4E62 7680"            /* –�Ž†~jjlrxp`Nbv€ */
	$"8C90 866E 646C 84A0 ACB0 A4A0 9E78 727C"            /* Œ�†ndl„ ¬°¤ žxr| */
	$"8080 645E 4A58 5E5E 7A7E 9A6A 5456 5086"            /* €€d^JX^^z~šjTVP† */
	$"80B4 ACA2 9854 7678 A8A8 889E 7888 7080"            /* €´¬¢˜Tvx¨¨ˆžxˆp€ */
	$"A894 A26C 6664 5A7C 6C86 887E 8E64 6A5A"            /* ¨”¢lfdZ|l†ˆ~ŽdjZ */
	$"5A6E 6888 7A8C 805E 7268 868A 8A9E 828E"            /* ZnhˆzŒ€^rh†ŠŠž‚Ž */
	$"7684 A09C B280 8684 8092 769A 8478 643E"            /* v„ œ²€†„€’vš„xd> */
	$"6674 9C84 6A70 405C 5070 8E90 AC86 968A"            /* ftœ„jp@\PpŽ�¬†–Š */
	$"8894 86AE 9A9C 8466 6242 7476 96A6 9092"            /* ˆ”†®šœ„fbBtv–¦�’ */
	$"5C64 5C6A 9482 9872 7264 4E6A 6898 9892"            /* \d\j”‚˜rrdNjh˜˜’ */
	$"9276 8E74 7E7A 6C86 6C74 6E7A 9896 B096"            /* ’vŽt~zl†ltnz˜–°– */
	$"9494 8290 768E 8878 6630 3E40 6C86 8086"            /* ””‚�vŽˆxf0>@l†€† */
	$"5E5A 485A 90A0 C4A4 9482 6E7C 7EB6 BEB8"            /* ^ZHZ� Ä¤”‚n|~¶¾¸ */
	$"A072 6858 646A 7AA0 927A 483E 505A 707A"            /*  rhXdjz ’zH>PZpz */
	$"A0BC C09A 6058 667E 7E74 725C 4E40 527C"            /*  ¼Àš`Xf~~tr\N@R| */
	$"9CA8 968E 9494 9494 9E96 8470 6874 7E7A"            /* œ¨–Ž””””ž–„pht~z */
	$"727A 8486 7464 7A9A A482 604A 464C 5274"            /* rz„†tdzš¤‚`JFLRt */
	$"9CC0 BE96 7A6E 808C 8C96 9C8E 6440 4466"            /* œÀ¾–zn€ŒŒ–œŽd@Df */
	$"96A0 927C 6864 5C70 8494 9C8A 8070 6C60"            /* – ’|hd\p„”œŠ€pl` */
	$"6482 94AC A498 8C6E 665C 7280 8072 5052"            /* d‚”¬¤˜Œnf\r€€rPR */
	$"6086 A6BE D2C4 AA80 6468 7276 7660 4A44"            /* `†¦¾ÒĪ€dhrvv`JD */
	$"5272 8CA0 987A 604C 5A78 A0B6 B096 7468"            /* RrŒ ˜z`LZx ¶°–th */
	$"6872 8288 9488 8A8A 889A 9292 7E64 5C40"            /* hr‚ˆ”ˆŠŠˆš’’~d\@ */
	$"4648 6EA6 B4BC A090 7660 5E64 8E98 845E"            /* FHn¦´¼ �v`^dŽ˜„^ */
	$"3246 6286 888E A282 7252 507E A4BE AA9C"            /* 2Fb†ˆŽ¢‚rRP~¤¾ªœ */
	$"9486 7A68 809E AAA8 8878 6466 6E6C 7E6A"            /* ”†zh€žª¨ˆxdfnl~j */
	$"543A 2E42 5882 A2C0 D0BC A280 7C72 646A"            /* T:.BX‚¢Àм¢€|rdj */
	$"626C 7280 9298 A894 7A56 425A 6E8E A0A8"            /* blr€’˜¨”zVBZnŽ ¨ */
	$"A486 7256 5C6E 7884 8486 8084 807A 8680"            /* ¤†rV\nx„„†€„€z†€ */
	$"745C 4A4A 527A A6D4 F2E6 CA98 725C 505A"            /* t\JJRz¦Ô..ʘr\PZ */
	$"727E 7862 4C44 4C54 6478 8888 7066 6A7E"            /* r~xbLDLTdxˆˆpfj~ */
	$"9492 8E84 7E80 7C96 B8C4 BC96 7A68 6A76"            /* ”’Ž„~€|–¸Ä¼–zhjv */
	$"7A7E 7468 463C 406C 98AA B6A8 9676 645E"            /* z~thF<@l˜ª¶¨–vd^ */
	$"6270 6E68 6466 6272 7C88 A49A 8C86 7486"            /* bpnhdfbr|ˆ¤šŒ†t† */
	$"9290 ACBE BCB6 906A 4A3E 526A 8CAE AA94"            /* ’�¬¾¼¶�jJ>RjŒ®ª” */
	$"723E 2E2E 5066 6A7A 667E 9AAC D2DC C298"            /* r>..Pfjzf~š¬Ò.˜ */
	$"6E3E 4A68 769A A098 886A 6058 7C8A 7C7A"            /* n>Jhvš ˜ˆj`X|Š|z */
	$"645C 6472 8CAA AA88 685C 6282 9CA4 A69C"            /* d\drŒªªˆh\b‚œ¤¦œ */
	$"8E62 4C56 7490 8A8A 7064 5442 789C C0EA"            /* ŽbLVt�ŠŠpdTBxœÀ. */
	$"C8B8 9852 4628 4484 7E84 744E 5E3C 487E"            /* ȸ˜RF(D„~„tN^<H~ */
	$"84A8 8A5E 6A6A 94AC A6BA A690 7E5C 788A"            /* „¨Š^jj”¬¦º¦�~\xŠ */
	$"869C 7E6E 8476 7280 8460 426C 565E BEA0"            /* †œ~n„vr€„`BlV^¾  */
	$"8CBC 8646 6666 4A82 A068 88A4 4E4E 7A40"            /* Œ¼†FffJ‚ hˆ¤NNz@ */
	$"6CB8 868C C68A 5692 8E86 E2C2 607E 7236"            /* l¸†ŒÆŠV’Ž†.Â`~r6 */
	$"6E96 647E 984A 4488 6A6A 8C4E 4878 7482"            /* n–d~˜JDˆjjŒNHxt‚ */
	$"A6A4 9ABA B088 A088 4258 604E 82AA 9490"            /* ¦¤šº°ˆ ˆBX`N‚ª”� */
	$"9470 6C86 948A 7C74 6884 8C96 9870 5454"            /* ”pl†”Š|th„Œ–˜pTT */
	$"5660 8AA0 807C 9272 74A8 8854 886E 2A96"            /* V`Š €|’rt¨ˆTˆn*– */
	$"B466 C2E2 70A4 D64E 5090 2020 A474 3EC0"            /* ´fÂ.p¤ÖNP�  ¤t>À */
	$"822A 966C 1E92 9E5A A8BC 6A92 A25A 7AAE"            /* ‚*–l.’žZ¨¼j’¢Zz® */
	$"7E84 AE7C 76A2 685C 8C6A 64AA 9C7C 9272"            /* ~„®|v¢h\Œjdªœ|’r */
	$"3458 725A 80BA 908A 9C5A 4470 5E44 7080"            /* 4XrZ€º�ŠœZDp^Dp€ */
	$"6E96 AA82 8498 7066 847C 7294 948C A2B0"            /* n–ª‚„˜pf„|r””Œ¢° */
	$"A8A8 9A6A 504E 4E60 8484 7A8E 8A6E 6256"            /* ¨¨šjPNN`„„zŽŠnbV */
	$"4842 5A70 7CB6 C2A4 987E 667A 8678 8482"            /* HBZp|¶Â¤˜~fz†x„‚ */
	$"7682 887C 8A9C 8874 7A5C 5A82 7A7E 9A92"            /* v‚ˆ|Šœˆtz\Z‚z~š’ */
	$"7C8C 7656 7078 6880 967C 7282 6058 7E84"            /* |ŒvVpxh€–|r‚`X~„ */
	$"849A 947A 7E88 8CA6 B2A0 9494 847A 7250"            /* „š”z~ˆŒ¦² ””„zrP */
	$"505C 5046 5868 768C 7E62 6672 707E 94A0"            /* P\PFXhvŒ~bfrp~”  */
	$"A8AE 989A A896 908C 867E 7E6E 687C 7E7E"            /* ¨®˜š¨–�Œ†~~nh|~~ */
	$"868A 8682 6A46 587C 888C 8878 7266 544A"            /* †Š†‚jFX|ˆŒˆxrfTJ */
	$"647C 7E7C 707A 868C 8686 9A9E 8872 6E7E"            /* d|~|pz†Œ††šžˆrn~ */
	$"8E98 A2A8 B4AE 8A6C 6C7A 7062 5658 605C"            /* Ž˜¢¨´®ŠllzpbVX`\ */
	$"6268 849A 8C78 6060 727C 8494 ACA4 8876"            /* bh„šŒx``r|„”¬¤ˆv */
	$"7478 7C7C 6E72 7A76 7A7A 8496 8866 5872"            /* tx||nrzvzz„–ˆfXr */
	$"7E72 7488 A4B0 966C 5E70 7678 7884 9680"            /* ~rtˆ¤°–l^pvxx„–€ */
	$"6C68 8094 8A7E 6A6E 6C6A 7C9C B6AE 9A76"            /* lh€”Š~jnlj|œ¶®šv */
	$"625E 5E60 6C96 906E 5C5E 7688 8C84 8472"            /* b^^`l–�n\^vˆŒ„„r */
	$"585A 606A 96C2 BAC0 DAB8 8676 6258 5C6E"            /* XZ`j–ºÀ.¸†vbX\n */
	$"5654 666E 8274 7CA0 A47C 6496 9A7C 7066"            /* VTfn‚t| ¤|d–š|pf */
	$"787E 7E6A 6270 7A84 7266 7E8A 8876 8686"            /* x~~jbpz„rf~Šˆv†† */
	$"6A4A 4066 8C90 A0BA D4DC E0CC B0A2 9274"            /* jJ@fŒ� ºÔ..Ì°¢’t */
	$"6C7E 6A44 1801 0224 4648 464E 586E 92CC"            /* l~jD...$FHFNXn’Ì */
	$"FFFF E4BA A690 9094 8064 442C 1A3C 7894"            /* ...º¦��”€dD,.<x” */
	$"9064 4446 70AA CCD6 AA86 7A78 9CBA B07C"            /* �dDFpªÌÖª†zxœº°| */
	$"5440 4066 7066 504A 546E 9094 987C 5054"            /* T@@fpfPJTn�”˜|PT */
	$"82DC FFFF F8B2 784A 4466 7E7C 5416 0106"            /* ‚....²xJDf~|T... */
	$"3C64 6E62 4842 5280 BADA D8C0 BAC6 F4FF"            /* <dnbHBR€º.ØÀºÆ.. */
	$"FAB6 6026 1842 6878 7242 140E 3054 7282"            /* .¶`&.BhxrB..0Tr‚ */
	$"7E84 94A8 C4E2 E4BC 7C5E 6AA0 AC88 5428"            /* ~„”¨Ä..¼|^j ¬ˆT( */
	$"181E 4E80 A2AA 8050 4474 B4EA EED0 B89A"            /* ..N€¢ª€PDt´..иš */
	$"7E80 9894 6C38 1820 3C42 484A 383E 567A"            /* ~€˜”l8. <BHJ8>Vz */
	$"AADC D29A 8492 BAEC F8E0 BA94 624C 5A58"            /* ª.Òš„’º...º”bLZX */
	$"5640 1C0C 2254 687C 6860 829E CCF2 FED4"            /* V@.."Th|h`‚žÌ..Ô */
	$"9464 527E BCC6 AC80 4C28 222E 4060 6248"            /* ”dR~¼Æ¬€L(".@`bH */
	$"3E50 7EAE C6BC C2DC E2D0 B692 6A56 382E"            /* >P~®Æ¼Â..ж’jV8. */
	$"426A 7468 4C34 3C56 7C8E 9C8C 8292 AABA"            /* BjthL4<V|ŽœŒ‚’ªº */
	$"D0D4 DEDA C298 8870 5830 0101 013E 94AE"            /* ÐÔ..˜ˆpX0...>”® */
	$"A474 7A80 8280 829A A6A6 8C90 BED4 DABA"            /* ¤tz€‚€‚š¦¦Œ�¾Ô.º */
	$"8254 2604 0106 2230 628E CCEA C8B6 7086"            /* ‚T&..."0bŽÌ.ȶp† */
	$"746C 8A84 CEC4 C0B0 A0D8 BAA4 3C01 0101"            /* tlŠ„ÎÄÀ° Øº¤<... */
	$"0101 1A64 92E0 D8FF FAD8 BE5E 5040 5A8C"            /* ...d’.Ø..ؾ^P@ZŒ */
	$"8CA6 8482 8288 9C74 6444 343C 2842 528E"            /* Œ¦„‚‚ˆœtdD4<(BRŽ */
	$"CAD2 E6E0 E8CE A680 4C48 3A40 4A38 3C2C"            /* ÊÒ...Φ€LH:@J8<, */
	$"4664 8AB0 A6A2 806C 5A4C 82AC EEFA E8DA"            /* FdŠ°¦¢€lZL‚¬.... */
	$"B2C6 9C62 2C08 2218 2616 2248 5C8E 86A4"            /* ²Æœb,.".&."H\Ž†¤ */
	$"BEC2 C094 8C82 9CBA CEE4 D2CC AA74 4C1C"            /* ¾ÂÀ”Œ‚œºÎ.Ò̪tL. */
	$"0A0A 181E 264E 5668 90B2 B4D4 E0CE B474"            /* ....&NVh�²´Ô.δt */
	$"363E 5E86 A2B6 BAB0 8444 1824 3268 8C8E"            /* 6>^†¢¶º°„D.$2hŒŽ */
	$"9A92 8AA0 BEBE DADA D0BC 9C74 5A46 403A"            /* š’Š ¾¾..мœtZF@: */
	$"3016 1426 3248 6E76 86A8 A6AA 9CAE BCC4"            /* 0..&2Hnv†¨¦ªœ®¼Ä */
	$"BEAE 9A82 9488 8874 6C50 4236 345E 769A"            /* ¾®š‚”ˆˆtlPB64^vš */
	$"8878 4A42 4C64 ACCA ECE6 EEC4 AA9C 766C"            /* ˆxJBLd¬Ê...Īœvl */
	$"5042 0A01 0101 2C6C 9CB8 D0DC D2BC BAA4"            /* PB....,lœ¸Ð.Ò¼º¤ */
	$"8284 7E68 6474 6A66 7C82 7284 A07C 4432"            /* ‚„~hdtjf|‚r„ |D2 */
	$"4C5E 705E 4660 B0CA 94B0 F6FE CEB4 A698"            /* L^p^F`°Ê”°..δ¦˜ */
	$"9A68 0C01 1C10 0226 82A0 989A A29A 8A84"            /* šh.....&‚ ˜š¢šŠ„ */
	$"5E8A C0C2 9090 C6AA 8458 504A 5246 2648"            /* ^ŠÀÂ��ƪ„XPJRF&H */
	$"7484 86AA C6BA 947A 7282 7E76 96BE DACC"            /* t„†ªÆº”zr‚~v–¾.Ì */
	$"B2B0 B898 460E 0101 060E 2646 7A9A BAA6"            /* ²°¸˜F.....&Fzšº¦ */
	$"AAD6 E0CE B69C 828E 804E 6094 7060 787E"            /* ªÖ.ζœ‚Ž€N`”p`x~ */
	$"5E6E 8038 5490 8A4A 78AC 666C B6DE A4D0"            /* ^n€8T�ŠJx¬fl¶.¤Ð */
	$"E088 82AA 6601 4054 1418 626E 5EB0 A670"            /* .ˆ‚ªf.@T..bn^°¦p */
	$"66B2 907A C8CA B6BE FFBC 8880 3A0A 0434"            /* f²�zÈʶ¾.¼ˆ€:..4 */
	$"0101 3458 90C2 DEB8 CEBE 8050 1644 9AB0"            /* ..4X�Â.¸Î¾€P.Dš° */
	$"B2E2 DEEA FFF6 7876 5A01 0101 0101 5A74"            /* ².....xvZ.....Zt */
	$"7AC4 DAEA D2BA 945C 2E1E 6C68 78C0 B890"            /* zÄ..Òº”\..lhxÀ¸� */
	$"CEFF 943A 3C04 0130 805C 74CA BAA8 F0FF"            /* Î.”:<..0€\tʺ¨.. */
	$"F6E2 BE6A 0601 1E01 1E58 6268 8C8E 8892"            /* ..¾j.....XbhŒŽˆ’ */
	$"964E 246E 9494 948A 96A0 C8E2 E0FA E684"            /* –N$n”””Š– È....„ */
	$"0C01 1822 3652 6058 90B0 9CA0 8A58 3E68"            /* ..."6R`X�°œ ŠX>h */
	$"BCE0 CEB6 A892 9EBC AA94 9674 1801 0116"            /* ¼.ζ¨’ž¼ª”–t.... */
	$"3282 9A8A 88AC B6A6 BAB0 6E48 7696 8896"            /* 2‚šŠˆ¬¶¦º°nHv–ˆ– */
	$"8668 4C5A 7E7E 9C9C 541A 3060 8298 AAA2"            /* †hLZ~~œœT.0`‚˜ª¢ */
	$"9AC0 CECC D0CE 9A76 828A 8676 6A34 1C26"            /* šÀÎÌÐΚv‚Š†vj4.& */
	$"2446 7290 6E42 3A44 66A0 C8B6 B4CA C0AE"            /* $Fr�nB:Df È¶´ÊÀ® */
	$"9E9C 7638 3040 6888 7A5A 5A88 9680 769C"            /* žœv80@hˆzZZˆ–€vœ */
	$"A266 4258 B2EA D6B6 B8E0 C068 3052 763A"            /* ¢fBX².Ö¶¸.Àh0Rv: */
	$"0101 3684 8862 6AB8 D47C 4284 D8B0 422A"            /* ..6„ˆbj¸Ô|B„Ø°B* */
	$"7EDC E080 4280 D482 142E 90A4 560E 2892"            /* ~..€B€Ô‚..�¤V.(’ */
	$"E89E 346C EAFF AE66 72A4 BC8E 5056 724E"            /* .ž4l..®fr¤¼ŽPVrN */
	$"2048 9EA2 4004 3AB4 E886 0E0E 86F6 FFDA"            /*  Hž¢@.:´.†..†... */
	$"B4AC AC7E 6A8C 9446 0101 4AC0 C85A 0146"            /* ´¬¬~jŒ”F..JÀÈZ.F */
	$"CAF4 A044 3A6A 847A 7AB2 E8D0 90A6 FCFC"            /* Ê. D:j„zz².Ð�¦.. */
	$"7C01 086A A264 0101 6CCC B47A 808E 886A"            /* |..j¢d..lÌ´z€Žˆj */
	$"669E B874 1424 B2FF D866 4274 A48C 4044"            /* fž¸t.$².ØfBt¤Œ@D */
	$"828C 5E48 80BA BC90 82CC FADA 7A4A 7490"            /* ‚Œ^H€º¼�‚Ì..zJt� */
	$"6816 0C48 7C82 7074 7C6A 3E3E 749A 7648"            /* h..H|‚pt|j>>tšvH */
	$"4888 DAFF E6AC 9AA0 8E7C 786C 3A20 365E"            /* Hˆ...¬š Ž|xl: 6^ */
	$"9CB8 965C 588C A292 6246 486E 96A8 B6C0"            /* œ¸–\XŒ¢’bFHn–¨¶À */
	$"B8B0 A49C 845C 3826 405A 604C 4A6E A4C8"            /* ¸°¤œ„\8&@Z`LJn¤È */
	$"BA9E 867A 889C A48C 6452 4C68 9296 6430"            /* ºž†zˆœ¤ŒdRLh’–d0 */
	$"3862 8892 7856 4A6E 889A B8BE B4B4 D0E4"            /* 8bˆ’xVJnˆš¸¾´´Ð. */
	$"CCA4 624A 627A 7258 544E 5A6A 6C6E 5E52"            /* ̤bJbzrXTNZjln^R */
	$"4C5A 848A 786A 88B2 CED0 A472 5860 6C6E"            /* LZ„Šxjˆ²ÎФrX`ln */
	$"685A 444A 8CBE BE88 565C 92CC C27E 4850"            /* hZDJŒ¾¾ˆV\’ÌÂ~HP */
	$"84B4 BAAE 987A 747C 826C 3E18 2660 9296"            /* „´º®˜zt|‚l>.&`’– */
	$"7864 7896 B4B4 A08E 7A7E 9AA0 8A6A 4C5A"            /* xdx–´´ Žz~š ŠjLZ */
	$"8AAE 945E 383A 6688 8070 686C 7EA6 AC9E"            /* Š®”^8:fˆ€phl~¦¬ž */
	$"8486 A0B6 C49E 6840 4A7A 8E84 6C64 646C"            /* „† ¶Äžh@JzŽ„lddl */
	$"7268 6A5E 606C 86AC A8A8 968A 9EB2 B090"            /* rhj^`l†¬¨¨–Šž²°� */
	$"6A54 4646 4A48 4E66 8C9E A098 846E 6488"            /* jTFFJHNfŒž ˜„ndˆ */
	$"9C9C 8E82 868A 988C 8892 9C94 7254 4044"            /* œœŽ‚†Š˜Œˆ’œ”rT@D */
	$"4A4E 6676 8A8C 7864 808A 8A8E 9C9C 9084"            /* JNfvŠŒxd€ŠŠŽœœ�„ */
	$"7C76 706C 6E78 9292 7E64 5868 7078 747A"            /* |vplnx’’~dXhpxtz */
	$"94A6 B2A2 B2A4 887C 7A88 8478 4E2C 3A54"            /* ”¦²¢²¤ˆ|zˆ„xN,:T */
	$"6870 8082 7068 5A62 7886 8C8C A4BC B29E"            /* hp€‚phZbx†ŒŒ¤¼²ž */
	$"888E 8A8A 7A6A 6A6C 7268 5E5A 6276 8E9C"            /* ˆŽŠŠzjjlrh^ZbvŽœ */
	$"886C 5656 7CA0 BCB6 988C 868A 7E74 604A"            /* ˆlVV| ¼¶˜Œ†Š~t`J */
	$"5464 8292 927C 585E 7A9A 9E8A 7874 94A2"            /* Td‚’’|X^zšžŠxt”¢ */
	$"A49E 827A 7280 8A7C 6046 4650 6E74 6660"            /* ¤ž‚zr€Š|`FFPntf` */
	$"6280 807E 8CA4 C6CC BCB0 9686 7872 7474"            /* b€€~Œ¤Æ̼°–†xrtt */
	$"7662 627E 968E 6E54 4452 6674 7470 7E86"            /* vbb~–ŽnTDRfttp~† */
	$"9ABE C8B4 7A66 7072 6C66 6C6A 7C80 7C92"            /* š¾È´zfprlflj|€|’ */
	$"A28C 706C 5A5C 7684 9EB4 A08A 8C8E 8C90"            /* ¢ŒplZ\v„ž´ ŠŒŽŒ� */
	$"7A72 6862 646E 6260 6C5E 5044 586C 7270"            /* zrhbdnb`l^PDXlrp */
	$"829C C4F4 F6EC D2B0 9A86 8278 5A22 0101"            /* ‚œÄ...Ò°š†‚xZ".. */
	$"011C 3E46 6090 C4DC EEF8 F2DE B686 5E42"            /* ..>F`�Ä.....¶†^B */
	$"1601 011E 4264 7E9A CCD6 D4BE A8C6 D0AA"            /* ....Bd~šÌÖÔ¾¨ÆЪ */
	$"684E 4848 5244 464C 4A50 5E82 A0C0 C2BE"            /* hNHHRDFLJP^‚ À¾ */
	$"CCC4 A46C 422C 2A2A 1E26 4A8A ACCE EEFA"            /* ÌĤlB,**.&JŠ¬Î.. */
	$"F8D4 B4AA AE90 5826 0C12 1416 1E3C 565C"            /* .Ô´ª®�X&.....<V\ */
	$"7488 AED2 E4E6 E2D8 AA7A 503C 484A 4E58"            /* tˆ®Ò...تzP<HJNX */
	$"6874 7082 92AA BEBA C2C8 C6AC 7A58 4C4A"            /* htp‚’ª¾ºÂÈƬzXLJ */
	$"4448 4C4E 4446 6288 B2C4 B4AC AC96 7246"            /* DHLNDFbˆ²Ä´¬¬–rF */
	$"3C42 4E48 3E68 92A6 A08E 9EB8 CACA B4AE"            /* <BNH>h’¦ Žž¸ÊÊ´® */
	$"A88E 603A 262C 3E46 5A54 545C 6C98 D2FA"            /* ¨Ž`:&,>FZTT\l˜Ò. */
	$"FAEE D29E 6C50 4448 504A 4A50 444A 5C60"            /* ..ÒžlPDHPJJPDJ\` */
	$"84B8 D2D4 C8A0 6C68 685E 687C 8068 5242"            /* „¸ÒÔÈ lhh^h|€hRB */
	$"526E 84A6 C2CA BCA0 7664 6C62 4A44 5A7C"            /* Rn„¦Âʼ vdlbJDZ| */
	$"8672 5E72 96A6 B8DA F2EA B874 3C44 5638"            /* †r^r–¦¸...¸t<DV8 */
	$"0C02 1C42 584A 4C70 A8E8 FFFF FFD2 823C"            /* ...BXJLp¨....Ò‚< */
	$"3444 606C 5C4C 4848 5472 98B4 CED8 D2BA"            /* 4D`l\LHHTr˜´ÎØÒº */
	$"9476 5A62 727A 806C 746A 523E 466E 90B6"            /* ”vZbrz€ltjR>Fn�¶ */
	$"AE92 7C5E 4A36 526E 787E 6E7E 9096 887C"            /* ®’|^J6Rnx~n~�–ˆ| */
	$"96B2 D6DE C6A4 7858 3E3E 5E6A 6E72 6854"            /* –²Ö.ƤxX>>^jnrhT */
	$"5866 6284 CAE8 CCB6 9254 404C 5266 98A4"            /* Xfb„Ê.̶’T@LRf˜¤ */
	$"7C54 462E 3E5E 88BA DEDC BE90 8496 9892"            /* |TF.>^ˆº..¾�„–˜’ */
	$"887C 643C 2A0E 183C 5A82 ACCE D4B6 9678"            /* ˆ|d<*..<Z‚¬ÎÔ¶–x */
	$"766E 7288 8E90 7C6C 5E74 9894 C8CC E0AE"            /* vnrˆŽ�|l^t˜”ÈÌ.® */
	$"8C74 525E 4248 4662 5038 1801 0832 88B8"            /* ŒtR^BHFbP8...2ˆ¸ */
	$"F6FF ECC8 9E9E 8C96 9CA6 805E 3C2C 3652"            /* ...ÈžžŒ–œ¦€^<,6R */
	$"7E76 B6C6 DAB0 988E 6872 668C 847C 4E26"            /* ~v¶Æ.°˜ŽhrfŒ„|N& */
	$"1E30 544A 6684 A688 8C9E AEB8 98A8 B2E2"            /* .0TJf„¦ˆŒž®¸˜¨². */
	$"CC86 543C 4418 1A4A 9ABA 9E76 7896 9A82"            /* ̆T<D..Jšºžvx–š‚ */
	$"84AC BE96 4822 1632 4864 BCEC EEAC 8274"            /* „¬¾–H".2Hd¼..¬‚t */
	$"7C82 829E BAC0 823A 2428 3E48 5C8C A4A6"            /* |‚‚žºÀ‚:$(>H\Œ¤¦ */
	$"8E74 8692 A28C 8C9A 9076 280C 0C3E 5266"            /* Žt†’¢ŒŒš�v(..>Rf */
	$"A6C6 DEC6 967E 8EA4 8882 98A4 8C5E 4650"            /* ¦Æ.Æ–~Ž¤ˆ‚˜¤Œ^FP */
	$"6A78 80A2 C0C8 A662 4A54 6662 6884 8268"            /* jx€¢ÀȦbJTfbh„‚h */
	$"3222 407A 9EA8 AAA2 8E6C 5E6E 90A2 9C9C"            /* 2"@zž¨ª¢Žl^n�¢œœ */
	$"9C92 7856 4856 7692 A0AA B09C 7C60 6C8E"            /* œ’xVHVv’ ª°œ|`lŽ */
	$"9C8A 828A 7E5A 3224 3C6C 8C90 9AB4 B27E"            /* œŠ‚Š~Z2$<lŒ�š´²~ */
	$"666A 788E 9EA2 A8AA 8848 1C1E 567C A8C6"            /* fjxŽž¢¨ªˆH..V|¨Æ */
	$"C090 524E 70AA D8CC 9E66 3E2E 284C 687C"            /* À�RNpªØÌžf>.(Lh| */
	$"726A 82A4 C4B2 9276 7EA4 C2D8 AE6E 2601"            /* rj‚¤Ä²’v~¤ÂØ®n&. */
	$"0126 98B8 BAA6 6E64 84A2 AEC8 B272 625C"            /* .&˜¸º¦nd„¢®È²rb\ */
	$"5470 5E1E 2E62 7EA8 D0B8 9072 584E A0F4"            /* Tp^..b~¨Ð¸�rXN . */
	$"D4C4 863E 4C5E 6876 9696 8272 5E52 6E72"            /* ÔĆ>L^hv––‚r^Rnr */
	$"5C72 868E 9268 383A 3E52 6498 B48E A06E"            /* \r†Ž’h8:>Rd˜´Ž n */
	$"5C94 A2BC D4DE C296 6C56 525C 5E50 7080"            /* \”¢¼Ô.–lVR\^Pp€ */
	$"7C92 6C68 8886 8A92 A496 8876 3C46 6056"            /* |’lhˆ†Š’¤–ˆv<F`V */
	$"6A7A 7A7A 9684 7292 A0B2 C2BC A08E 8038"            /* jzzz–„r’ ²Â¼ Ž€8 */
	$"2838 406C 8E86 708A 8480 A2A4 B2B8 A270"            /* (8@lŽ†pŠ„€¢¤²¸¢p */
	$"4444 4056 605C 8094 A0A2 9E9C 969C 8E90"            /* DD@V`\€” ¢žœ–œŽ� */
	$"A69A 8A78 5A40 5266 6C84 8876 6E76 7A74"            /* ¦šŠxZ@Rfl„ˆvnvzt */
	$"9288 7676 7882 8280 6C5E 6476 9092 949E"            /* ’ˆvvx‚‚€l^dv�’”ž */
	$"9074 7490 949C 9A7A 6A6E 6A5E 6A82 8486"            /* �tt�”œšzjnj^j‚„† */
	$"7A68 8286 746E 686A 8096 8286 9074 6874"            /* zh‚†tnhj€–‚†�tht */
	$"787A 9084 7082 847C 98A8 9896 9482 8688"            /* xz�„p‚„|˜¨˜–”‚†ˆ */
	$"6046 4644 4E6A 828E 9E8E 8094 9E9A 9488"            /* `FFDNj‚ŽžŽ€”žš”ˆ */
	$"7A82 7C60 565C 5252 6A7E 94A2 886E 829A"            /* z‚|`V\RRj~”¢ˆn‚š */
	$"A0B4 B8A4 8258 322C 506E 8886 8692 9086"            /*  ´¸¤‚X2,Pnˆ††’�† */
	$"7C8E 8E86 807A 7C7E 7C62 464A 586E 7C92"            /* |ŽŽ†€z|~|bFJXn|’ */
	$"A6AC A492 908E 8C8A 7A76 8090 7A5A 525A"            /* ¦¬¤’�ŽŒŠzv€�zZRZ */
	$"6A72 7C8A 9292 8066 5A7C B0AA 887A 6A5A"            /* jr|Š’’€fZ|°ªˆzjZ */
	$"4C5A 6C9C AC88 6A5E 707C 848E AAC2 B4A4"            /* LZlœ¬ˆj^p|„ŽªÂ´¤ */
	$"9290 8470 5660 7E78 6A66 6E72 746C 627A"            /* ’�„pV`~xjfnrtlbz */
	$"8C82 767E 8A82 705E 5A6C 8494 9A9E 9C90"            /* Œ‚v~Š‚p^Zl„”šžœ� */
	$"8480 8E94 9090 887C 6662 6064 7880 7C78"            /* „€Ž”��ˆ|fb`dx€|x */
	$"7A7C 767E 8A92 9482 705C 5E58 5E6A 7484"            /* z|v~Š’”‚p\^X^jt„ */
	$"8494 928C 8886 9692 9480 7A7E 7878 646E"            /* „”’Œˆ†–’”€z~xxdn */
	$"7070 666C 94A2 967C 6C6E 665E 5868 8A94"            /* ppfl”¢–|lnf^XhŠ” */
	$"8A7A 808E 8A86 8CAE AE8C 6054 707A 8682"            /* Šz€ŽŠ†Œ®®Œ`Tpz†‚ */
	$"9C9E 7E50 384A 6282 8480 8C88 7E76 808A"            /* œž~P8Jb‚„€Œˆ~v€Š */
	$"969A 827A 7872 705E 5C66 7686 969C 8E86"            /* –š‚zxrp^\fv†–œŽ† */
	$"847A 828E 9298 9CA4 9282 624E 4C4C 6E80"            /* „z‚Ž’˜œ¤’‚bNLLn€ */
	$"786E 6A6E 6870 7280 A2A2 9278 6C6A 707E"            /* xnjnhpr€¢¢’xljp~ */
	$"8AB0 BEAA 9282 8692 9082 848A 6850 402C"            /* Š°¾ª’‚†’�‚„ŠhP@, */
	$"4C6A 708C AEAA 9896 7E74 7C6C 6670 7474"            /* LjpŒ®ª˜–~t|lfptt */
	$"8A7A 6872 7C7C 7C7A 7C8E 9A92 9290 969C"            /* Šzhr|||z|Žš’’�–œ */
	$"9896 8A88 7250 4E68 8A9A 9484 6A62 584E"            /* ˜–ŠˆrPNhŠš”„jbXN */
	$"5A6A 747E 8284 888C 746E 86A0 BABC 9482"            /* Zjt~‚„ˆŒtn† º¼”‚ */
	$"8870 6A64 7480 747A 7262 8074 6C6E 7488"            /* ˆpjdt€tzrb€tlntˆ */
	$"6A6C 8C88 9280 5E6E 7A7E 9292 9492 726A"            /* jlŒˆ’€^nz~’’”’rj */
	$"6C90 BA9E 8E84 7E88 7876 7A6C 8276 6260"            /* l�ºžŽ„~ˆxvzl‚vb` */
	$"524E 4C60 8A96 9A98 9084 7862 6C86 9EB4"            /* RNL`Š–š˜�„xbl†ž´ */
	$"A08C 826C 6460 788A 888A 868C 989C 8866"            /*  Œ‚ld`xŠˆŠ†Œ˜œˆf */
	$"545A 686A 6E72 564C 4E5E 788C A6A0 A2A8"            /* TZhjnrVLN^xŒ¦ ¢¨ */
	$"969C A4A8 A29C 927E 6C54 4440 4C58 566A"            /* –œ¤¨¢œ’~lTD@LXVj */
	$"7480 9084 787C 90A4 A6A4 9888 7870 7C80"            /* t€�„x|�¤¦¤˜ˆxp|€ */
	$"8C88 7E68 605C 4A5E 727C 8888 8886 968E"            /* Œˆ~h`\J^r|ˆˆˆ†–Ž */
	$"8080 8084 8E96 9AA6 9E84 766E 6672 6C60"            /* €€€„Ž–š¦ž„vnfrl` */
	$"5854 5860 808A 9CA6 9E90 7C72 666E 7682"            /* XTX`€Šœ¦ž�|rfnv‚ */
	$"9AA0 9C8C 7664 5E62 667E 8A88 7E6A 626A"            /* š œŒvd^bf~Šˆ~jbj */
	$"8CB4 BEB4 9C7E 6A5A 585E 6C78 807E 7468"            /* Œ´¾´œ~jZX^lx€~th */
	$"5850 505C 7686 9090 9CA0 9498 9694 96AC"            /* XPP\v†��œ ”˜–”–¬ */
	$"B498 8A72 5E58 5E64 687A 7E7C 7874 7270"            /* ´˜Šr^X^dhz~|xtrp */
	$"7A8A 9CAA 987E 5C40 4C6A 90B2 C2A8 826A"            /* zŠœª˜~\@Lj�²Â¨‚j */
	$"483C 5260 6C8C A894 8480 808C A096 7E86"            /* H<R`lŒ¨”„€€Œ –~† */
	$"807C 827E 868E 867C 7C7C 6654 423A 5E72"            /* €|‚~†Ž†|||fTB:^r */
	$"7692 ACB0 A49C 866E 6E64 7086 9EA2 8878"            /* v’¬°¤œ†nndp†ž¢ˆx */
	$"5E66 7278 8076 6C58 5456 6484 96AA AAA0"            /* ^frx€vlXTVd„–ªª  */
	$"866E 747C 94AE A088 6C5E 4C4A 646E 8696"            /* †nt|”® ˆl^LJdn†– */
	$"A4AA A09E 7C72 6E70 8282 8A80 7A7A 7288"            /* ¤ª ž|rnp‚‚Š€zzrˆ */
	$"8076 5E56 5C5C 5A4A 5E78 8AAC B0B4 B09A"            /* €v^V\\ZJ^xŠ¬°´°š */
	$"8068 7680 8698 A4B2 9E88 624A 4850 6662"            /* €hv€†˜¤²žˆbJHPfb */
	$"7080 7878 7C88 90A4 9E90 8470 6866 7A9A"            /* p€xx|ˆ�¤ž�„phfzš */
	$"AAA4 8676 6A56 4C54 6274 888A 9096 8270"            /* ª¤†vjVLTbtˆŠ�–‚p */
	$"7698 AAA2 9E9C 9C90 6A56 5A60 5E50 5066"            /* v˜ª¢žœœ�jVZ`^PPf */
	$"7A70 6672 8086 7C88 96AE A474 787A 7A80"            /* zpfr€†|ˆ–®¤txzz€ */
	$"92AE BCC0 8C66 5854 4644 5E6A 8884 6A66"            /* ’®¼ÀŒfXTFD^jˆ„jf */
	$"728A 888C 8C92 8C7E 808A 8C82 7E76 7472"            /* rŠˆŒŒ’Œ~€ŠŒ‚~vtr */
	$"5E54 606C 768E AAB2 A898 887A 6862 6C7E"            /* ^T`lvŽª²¨˜ˆzhbl~ */
	$"8288 9E9A 8668 4A42 6270 5E62 7692 8266"            /* ‚ˆžš†hJBbp^bv’‚f */
	$"5C6E 9AA4 9896 A6B2 A68E 8088 8A82 6E56"            /* \nš¤˜–¦²¦Ž€ˆŠ‚nV */
	$"4E50 4A58 7090 9A96 9280 746E 7A8C 9496"            /* NPJXp�š–’€tnzŒ”– */
	$"8A7E 889C 8678 8294 8C74 5C46 4E54 4E5E"            /* Š~ˆœ†x‚”Œt\FNTN^ */
	$"7EA4 AEA8 A09A 907A 6260 7696 AA96 8C8C"            /* ~¤®¨ š�zb`v–ª–ŒŒ */
	$"7658 423A 4C68 7070 849A 9E96 9696 B2B6"            /* vXB:Lhpp„šž–––²¶ */
	$"967C 7074 727C 90A2 AC94 7052 4642 566A"            /* –|ptr|�¢¬”pRFBVj */
	$"6A82 9086 6C6E 6E64 707C 8EA0 B6A2 887A"            /* j‚�†lnndp|Ž ¶¢ˆz */
	$"7272 606E 848C 8080 8676 8484 747A 949E"            /* rr`n„Œ€€†v„„tz”ž */
	$"8C86 827A 8280 7C88 968E 6C50 4446 4E54"            /* Œ†‚z‚€|ˆ–ŽlPDFNT */
	$"687A 9294 8C86 949A 8A8E 7A8C 7876 7066"            /* hz’”Œ†”šŠŽzŒxvpf */
	$"9898 B288 9694 4864 3A56 626E 9E6C AC9A"            /* ˜˜²ˆ–”Hd:Vbnžl¬š */
	$"9098 5A8A 5476 887A B882 BC84 6482 4C76"            /* �˜ZŠTvˆz¸‚¼„d‚Lv */
	$"3E66 6C5A 9464 8E80 849E 76B2 949E A066"            /* >flZ”dŽ€„žv²”ž f */
	$"926E 8684 7482 4462 4C54 7076 A48E 9284"            /* ’n†„t‚DbLTpv¤Ž’„ */
	$"5C76 7A8E 747C BA92 9892 9EA0 8A88 4E4C"            /* \vzŽt|º’˜’ž ŠˆNL */
	$"7C5E 4A42 7486 5288 92B8 A88C 8668 B290"            /* |^JBt†Rˆ’¸¨Œ†h²� */
	$"5E5C 88A4 6C76 9484 6C44 4660 88AE 6C72"            /* ^\ˆ¤lv”„lDF`ˆ®lr */
	$"9AA8 885E AAB0 A47C 647A 6C86 6C66 98A0"            /* š¨ˆ^ª°¤|dzl†lf˜  */
	$"6C34 5074 5A48 445C 8A90 9882 A0AC 8E8A"            /* l4PtZHD\Š�˜‚ ¬ŽŠ */
	$"8CCE BE94 787C 907C 6E52 4A6A 685A 6488"            /* ŒÎ¾”x|�|nRJjhZdˆ */
	$"9A66 5E68 8098 9496 8296 9070 6A86 B8AE"            /* šf^h€˜”–‚–�pj†¸® */
	$"987A 6050 4240 4E6C 988E 727E 92A0 726E"            /* ˜z`PB@Nl˜Žr~’ rn */
	$"6C98 AE8E 8278 A096 7E84 8E92 6030 2848"            /* l˜®Ž‚x –~„Ž’`0(H */
	$"7870 7494 A498 5E68 90AA 847A 8EB0 B07C"            /* xpt”¤˜^h�ª„zŽ°°| */
	$"7C92 AE80 424A 7290 5840 7C80 8C46 568E"            /* |’®€BJr�X@|€ŒFVŽ */
	$"ACB0 627C 9C84 6648 A0C0 AC76 4498 927A"            /* ¬°b|œ„fH À¬vD˜’z */
	$"5252 9498 8664 7890 5E50 5E9C BCA0 786C"            /* RR”˜†dx�^P^œ¼ xl */
	$"8A72 6672 88A2 7E60 5A6E 7E66 6886 B0A8"            /* Šrfrˆ¢~`Zn~fh†°¨ */
	$"8270 86AC AA7C 7684 A294 7C78 7484 4E34"            /* ‚p†¬ª|v„¢”|xt„N4 */
	$"3E66 8E62 626A 88A8 7C80 8AAA AC80 8C88"            /* >fŽbbjˆ¨|€Šª¬€Œˆ */
	$"A89A 8292 92A6 6A50 5054 7044 4850 7882"            /* ¨š‚’’¦jPPTpDHPx‚ */
	$"787A 7280 847A A6C0 BC8C 707C 86A4 8878"            /* xzr€„z¦À¼Œp|†¤ˆx */
	$"827A 7054 7688 9278 5260 7682 5A54 7898"            /* ‚zpTvˆ’xR`v‚ZTx˜ */
	$"A280 7A8C 9C8E 6A68 7C7E 7666 7A94 9674"            /* ¢€zŒœŽjh|~vfz”–t */
	$"5E7A 888A 7E7E 9EB0 AA7C 6462 605A 5282"            /* ^zˆŠ~~ž°ª|db`ZR‚ */
	$"B2A4 8056 545E 5E4A 3C6E 9EB4 B0A4 B2A4"            /* ²¤€VT^^J<nž´°¤²¤ */
	$"7A58 70A0 A49C 8692 AE9E 724C 6068 5A3A"            /* zXp ¤œ†’®žrL`hZ: */
	$"2A58 7670 5A6A 8A90 8070 86AC B49E 90A2"            /* *XvpZjŠ�€p†¬´ž�¢ */
	$"BAB6 946A 5C5A 4E54 80AE AA8C 7060 685A"            /* º¶”j\ZNT€®ªŒp`hZ */
	$"4246 74A8 A690 7C82 8460 4E58 7282 7C72"            /* BFt¨¦�|‚„`NXr‚|r */
	$"7EAC B08A 7E88 9690 7C6A 84A8 A2A6 A6A2"            /* ~¬°Š~ˆ–�|j„¨¢¦¦¢ */
	$"8666 5656 7674 5A58 626C 5638 3244 6272"            /* †fVVvtZXblV82Dbr */
	$"8EB6 C4C6 A686 8096 947E 8EA0 B0A4 8462"            /* Ž¶ÄƦ†€–”~Ž °¤„b */
	$"5A5C 4A46 5A6A 7682 8482 8A90 9096 928A"            /* Z\JFZjv‚„‚Š��–’Š */
	$"8076 7278 807A 869C 8E76 666C 6860 6C68"            /* €vrx€z†œŽvflh`lh */
	$"7C90 8674 6C80 9A9E 8E8A 8890 826A 5E4A"            /* |�†tl€šžŽŠˆ�‚j^J */
	$"6A80 6C78 7C74 6E70 7C7E 9AAE A2A6 A090"            /* j€lx|tnp|~š®¢¦ � */
	$"909A 8C82 7878 8C92 8664 4444 4E58 545E"            /* �šŒ‚xxŒ’†dDDNXT^ */
	$"7078 7476 7888 9A9C 948C 908C 8A8E 9C90"            /* pxtvxˆšœ”Œ�ŒŠŽœ� */
	$"8480 7874 6E60 505E 787A 8084 9CA6 9E6A"            /* „€xtn`P^xz€„œ¦žj */
	$"6880 8C8E 8078 8092 9C7C 787A 7C6C 5660"            /* h€ŒŽ€x€’œ|xz|lV` */
	$"787C 705E 545C 8896 9092 8A8A 8086 8E98"            /* x|p^T\ˆ–�’ŠŠ€†Ž˜ */
	$"967E 807E 726E 6A64 5C6C 686A 8EAE A88E"            /* –~€~rnjd\lhjŽ®¨Ž */
	$"7E7A 8294 9082 767A 6856 5A72 7A76 6866"            /* ~z‚”�‚vzhVZrzvhf */
	$"6878 766C 6C7C 868E 98AA A292 8074 86A2"            /* hxvll|†Ž˜ª¢’€t†¢ */
	$"B092 928E 867A 625A 4E5C 4A50 586E 7A70"            /* °’’Ž†zbZN\JPXnzp */
	$"6C72 A0A6 AC9A 9C8C 9484 7A90 969C 7870"            /* lr ¦¬šœŒ”„z�–œxp */
	$"6672 6A64 6866 786E 7274 8486 8078 7C92"            /* frjdhfxnrt„†€x|’ */
	$"9A94 8484 7A7C 6668 767A 7666 7674 90A0"            /* š”„„z|fhvzvfvt�  */
	$"9A8E 92A0 8C88 827E 787E 7E86 8A90 8072"            /* šŽ’ Œˆ‚~x~~†Š�€r */
	$"6258 4E36 4658 7078 7474 7894 9898 98A6"            /* bXN6FXpxttx”˜˜˜¦ */
	$"AEA4 9492 9CA8 9A86 867C 704A 3E38 485C"            /* ®¤”’œ¨š††|pJ>8H\ */
	$"5C70 86AA A892 808E A288 7272 7A76 7874"            /* \p†ª¨’€Ž¢ˆrrzvxt */
	$"748E A694 7070 8088 6C60 6C7C 827A 7878"            /* tŽ¦”pp€ˆl`l|‚zxx */
	$"8E8A 6C62 7480 7C7A 7A86 927C 625E 6E72"            /* ŽŠlbt€|zz†’|b^nr */
	$"6A66 647E 8886 8292 AEB4 A89E ACAE 947C"            /* jfd~ˆ†‚’®´¨ž¬®”| */
	$"727A 8676 5440 4C5A 4848 5A74 888E 8E84"            /* rz†vT@LZHHZtˆŽŽ„ */
	$"888E 8476 788A 847E 8696 8E84 7E6E 6E74"            /* ˆŽ„vxŠ„~†–Ž„~nnt */
	$"7A7C 7C88 929A A0A4 A69C 9084 6C6A 7678"            /* z||ˆ’š ¤¦œ�„ljvx */
	$"6860 686A 7272 6256 5850 404C 5C74 9098"            /* h`hjrrbVXP@L\t�˜ */
	$"929C ACB0 ACB8 AAA2 9E8C 92A0 9C8C 7C6E"            /* ’œ¬°¬¸ª¢žŒ’ œŒ|n */
	$"6A6A 6056 5856 4E58 6872 8892 848A 9688"            /* jj`VXVNXhrˆ’„Š–ˆ */
	$"7872 7480 8C86 6E72 7A72 726A 6A78 8A94"            /* xrt€Œ†nrzrrjjxŠ” */
	$"98A2 9482 7A76 8A9A 968A 827C 6E72 6A68"            /* ˜¢”‚zvŠš–Š‚|nrjh */
	$"6E66 6256 585E 6A6E 7286 9294 989A 9696"            /* nfbVX^jnr†’”˜š–– */
	$"928C 9CAE AEB0 AC90 745A 4A44 4E48 2E2E"            /* ’Œœ®®°¬�tZJDNH.. */
	$"3E5E 7072 7A8A A2A4 A498 8C80 6258 668E"            /* >^przŠ¢¤¤˜Œ€bXfŽ */
	$"A09A 8E82 8E8E 8080 8C98 8E8C 8A86 9294"            /*  šŽ‚ŽŽ€€Œ˜ŽŒŠ†’” */
	$"8A82 8C90 7A6C 645C 524A 4C54 666A 645E"            /* Š‚Œ�zld\RJLTfjd^ */
	$"5E6A 6C78 8696 A692 7E86 9EB4 BEB8 AEB0"            /* ^jlx†–¦’~†ž´¾¸®° */
	$"AC98 826C 5E48 3636 5272 8082 808A 9A9C"            /* ¬˜‚l^H66Rr€‚€Ššœ */
	$"9080 7C7E 6C5A 5E78 9696 949A A290 705A"            /* �€|~lZ^x––”š¢�pZ */
	$"4A5E 706C 688C B6B6 9A92 9090 846E 5658"            /* J^plhŒ¶¶š’��„nVX */
	$"5E52 4254 86A4 9E8A 786E 625C 5C6E 92A2"            /* ^RBT†¤žŠxnb\\n’¢ */
	$"A6A6 A6AA ACA0 9E98 8E72 6066 7272 665A"            /* ¦¦¦ª¬ ž˜Žr`frrfZ */
	$"6A82 8068 6252 585A 545A 78AA ACA0 9692"            /* j‚€hbRXZTZxª¬ –’ */
	$"A098 7A66 6876 7C76 6C68 706A 5E6C 8EB6"            /*  ˜zfhv|vlhpj^lŽ¶ */
	$"C4AA 908C 888C 9086 7E70 6E64 6E86 8A84"            /* Ī�ŒˆŒ�†~pndn†Š„ */
	$"7862 4E44 3E42 5464 768E AEB4 AE9A 7A7A"            /* xbND>BTdvŽ®´®šzz */
	$"868C 929E 9690 908C 8482 887C 6456 505A"            /* †Œ’ž–��Œ„‚ˆ|dVPZ */
	$"6872 726C 7286 8E94 9A98 8876 6252 546C"            /* hrrlr†Ž”š˜ˆvbRTl */
	$"8492 887E 787C 8888 8C8C 928C 8686 8698"            /* „’ˆ~x|ˆˆŒŒ’Œ†††˜ */
	$"A492 7468 6662 6256 5662 6A70 7066 5C58"            /* ¤’thfbbVVbjppf\X */
	$"5252 7A9E B0BE C8B6 A094 8894 A094 7676"            /* RRzž°¾È¶ ”ˆ” ”vv */
	$"929C 9C8C 7864 503E 3244 586E 6C62 7C8A"            /* ’œœŒxdP>2DXnlb|Š */
	$"8C88 8E86 7A7C 6A66 7478 7A82 9CA8 A898"            /* ŒˆŽ†z|jftxz‚œ¨¨˜ */
	$"888C 9092 8A8C 9AA8 A286 7C82 7E6E 5E5E"            /* ˆŒ�’ŠŒš¨¢†|‚~n^^ */
	$"564C 3A34 5C86 887E 747A 8682 7878 8A90"            /* VL:4\†ˆ~tz†‚xxŠ� */
	$"848A 94AC AA8C 7474 766E 7C86 92A2 9270"            /* „Š”¬ªŒttvn|†’¢’p */
	$"5A64 6862 686C 706A 6A82 949C 8C70 5C5C"            /* Zdhbhlpjj‚”œŒp\\ */
	$"788E A2B0 B0A8 A096 7C66 584C 5056 6488"            /* xŽ¢°°¨ –|fXLPVdˆ */
	$"A4AA A092 8274 6856 6076 7868 5C5A 7284"            /* ¤ª ’‚thV`vxh\Zr„ */
	$"7E78 6860 646C 7EA4 BCA6 9498 9EA8 B09A"            /* ~xh`dl~¤¼¦”˜ž¨°š */
	$"8284 7C62 6A76 7E7C 6654 5E7E 766A 726E"            /* ‚„|bjv~|fT^~vjrn */
	$"7C86 8070 7886 8472 5852 667C 889C A69C"            /* |†€px†„rXRf|ˆœ¦œ */
	$"A096 8080 8A6C 5A62 708A A4AA A29E 9068"            /*  –€€ŠlZbpŠ¤ª¢ž�h */
	$"6268 787C 6A5E 6A8C 8A80 7C78 725C 4242"            /* bhx|j^jŒŠ€|xr\BB */
	$"6E9E A6A2 9A98 9888 7680 8A76 646A 7C9E"            /* nž¦¢š˜˜ˆv€Švdj|ž */
	$"AA92 747A 8880 7E7A 7684 7E66 6676 7E72"            /* ª’tzˆ€~zv„~ffv~r */
	$"6458 6884 8882 8E9C 9690 7E6C 7A80 7060"            /* dXh„ˆ‚Žœ–�~lz€p` */
	$"7A8A 7E7A 829E AAA2 8A7A 7E82 7256 5C72"            /* zŠ~z‚žª¢Šz~‚rV\r */
	$"6A56 4A66 7A74 685C 7894 988C 98B2 B6AA"            /* jVJfzth\x”˜Œ˜²¶ª */
	$"8C72 706E 665E 748E 9090 8898 A698 8068"            /* Œrpnf^tŽ��ˆ˜¦˜€h */
	$"665E 564E 5E86 9488 767C 766A 5E44 5282"            /* f^VN^†”ˆv|vj^DR‚ */
	$"9692 8E98 9A90 7C6C 7E8E 8A7A 7280 90A0"            /* –’Ž˜š�|l~ŽŠzr€�  */
	$"968E 9480 6450 5C7A 908E 7C7A 7A6A 5A58"            /* –Ž”€dP\z�Ž|zzjZX */
	$"6068 6852 5882 9EAA A6A0 9C9A 8A76 7E8C"            /* `hhRX‚žª¦ œšŠv~Œ */
	$"8A7C 727A 929C 8474 706E 6864 6676 9092"            /* Š|rz’œ„tpnhdfv�’ */
	$"7870 8278 5E54 5460 7878 667A A6BA AA9C"            /* xp‚x^TT`xxfz¦ºªœ */
	$"A0A6 9C7E 6858 6274 8094 BED0 965E 4448"            /*  ¦œ~hXbt€”¾Ð–^DH */
	$"6476 7476 846E 4C42 5266 7E78 6E8C 9894"            /* dvtv„nLBRf~xnŒ˜” */
	$"868E A6BA B6A4 987E 8274 5644 608A 9090"            /* †Ž¦º¶¤˜~‚tVD`Š�� */
	$"8080 746A 6068 8EA4 9668 6684 9670 4850"            /* €€tj`hŽ¤–hf„–pHP */
	$"7688 6C74 8EAE 9A62 4C80 C8BE 7468 9094"            /* vˆltŽ®šbL€È¾th�” */
	$"5836 6AB8 D49C 6066 8884 3A2E 74B8 B06A"            /* X6j¸Ôœ`fˆ„:.t¸°j */
	$"6098 AE68 1E42 88A4 7654 7EBA C072 6096"            /* `˜®h.Bˆ¤vT~ºÀr`– */
	$"C8B8 6042 6A9E 8042 568C B290 5C76 A6A4"            /* ȸ`Bjž€BVŒ²�\v¦¤ */
	$"5634 68A6 C68A 5C70 8A64 2436 68A6 9068"            /* V4h¦ÆŠ\pŠd$6h¦�h */
	$"66A0 B676 5E72 BEC4 8460 64A6 9268 607E"            /* f ¶v^r¾Ä„`d¦’h`~ */
	$"C4A6 7866 788C 564A 588C AA6C 5058 92A0"            /* ĦxfxŒVJXŒªlPX’  */
	$"6450 5280 8668 829A C8A4 7070 76AE 8A70"            /* dPR€†h‚šÈ¤ppv®Šp */
	$"727E 945E 5664 9EC0 947E 6670 644C 5E76"            /* r~”^VdžÀ”~fpdL^v */
	$"A6A6 8272 667A 5A3A 466E A696 908A 8A9C"            /* ¦¦‚rfzZ:Fn¦–�ŠŠœ */
	$"90A2 ACBC 9E64 626C 908A 6C60 6688 8684"            /* �¢¬¼ždbl�Šl`fˆ†„ */
	$"888C 8866 585C 6472 6E6C 6C72 6C64 7290"            /* ˆŒˆfX\drnllrldr� */
	$"ACAE 967E 6A76 7C8A 9CA0 9684 7A70 7274"            /* ¬®–~jv|Šœ –„zprt */
	$"7072 88A6 AE9A 7852 5266 7882 7870 564A"            /* prˆ¦®šxRRfx‚xpVJ */
	$"4A52 6E7C 928C 929A 9292 9CAC A4A0 9474"            /* JRn|’Œ’š’’œ¬¤ ”t */
	$"7472 787E 827C 6A80 8886 7C66 5040 5060"            /* trx~‚|j€ˆ†|fP@P` */
	$"6C84 8E90 867A 6E72 8282 868E 8E8A 8480"            /* l„Ž�†znr‚‚†ŽŽŠ„€ */
	$"7888 9CA0 A6A6 9672 5042 4868 828C 949C"            /* xˆœ ¦¦–rPBHh‚Œ”œ */
	$"9482 6E68 7882 7A66 564A 5060 7A9E B0A8"            /* ”‚nhx‚zfVJP`zž°¨ */
	$"928E 807E 827A 8290 9C98 9A98 8C7E 7468"            /* ’Ž€~‚z‚�œ˜š˜Œ~th */
	$"5456 5658 667A 807E 8482 8290 948E 866E"            /* TVVXfz€~„‚‚�”Ž†n */
	$"5E5C 6A6E 7E8C 90A2 A292 7E76 6E6C 848E"            /* ^\jn~Œ�¢¢’~vnl„Ž */
	$"9488 7674 7A8E 9092 8C7C 7866 646E 747C"            /* ”ˆvtzŽ�’Œ|xfdnt| */
	$"7682 786C 6852 627E 8E8A 8490 8080 8084"            /* v‚xlhRb~ŽŠ„�€€€„ */
	$"888C 9688 9CAA A28C 7664 5054 545A 7488"            /* ˆŒ–ˆœª¢ŒvdPTTZtˆ */
	$"807A 767C 7870 7284 9E96 8876 6466 6C7A"            /* €zv|xpr„ž–ˆvdflz */
	$"82A0 9E86 6E5E 6870 86A0 B0AC 9078 5C68"            /* ‚ ž†n^hp† °¬�x\h */
	$"8280 7674 8486 8474 5A64 6E6E 7688 8C78"            /* ‚€vt„†„tZdnnvˆŒx */
	$"6852 5A72 7C88 8A8E 9C96 8A82 8C8C 828E"            /* hRZr|ˆŠŽœ–Š‚ŒŒ‚Ž */
	$"9EA8 A68E 6A54 585E 6474 7E86 867E 6A76"            /* ž¨¦ŽjTX^dt~††~jv */
	$"8C8A 9A98 8C78 6856 4C64 6470 868C 9288"            /* ŒŠš˜ŒxhVLddp†Œ’ˆ */
	$"745A 7092 A6B4 AA8C 7064 5E6A 8896 9494"            /* tZp’¦´ªŒpd^jˆ–”” */
	$"8480 8070 5E54 6472 8276 6A78 7E72 6268"            /* „€€p^Tdr‚vjx~rbh */
	$"789C AE96 8E8E 9490 7C88 96A8 A072 6672"            /* xœ®–ŽŽ”�|ˆ–¨ rfr */
	$"7260 4A4C 6478 807C 7E86 7A66 6680 A8AC"            /* r`JLdx€|~†zff€¨¬ */
	$"866A 5C5C 6672 7C90 A892 6E74 7684 A29C"            /* †j\\fr|�¨’ntv„¢œ */
	$"94AA A88A 7E76 6872 6E5C 6E8E 7E70 6A52"            /* ”ª¨Š~vhrn\nŽ~pjR */
	$"6686 7674 9894 7A7A 6A5A 7C8C 6C74 8E94"            /* f†vt˜”zzjZ|ŒltŽ” */
	$"9C96 8E96 907C 7A88 8A92 8C5A 4A62 5862"            /* œ–Ž–�|zˆŠ’ŒZJbXb */
	$"868C 7876 7464 7C8E 96A6 AC9C 9286 6C64"            /* †Œxvtd|Ž–¦¬œ’†ld */
	$"6662 666A 6E7A 867E 7278 8092 B4BA A690"            /* fbfjnz†~rx€’´º¦� */
	$"7C5A 586C 7276 7466 506C 8484 8A84 7686"            /* |ZXlrvtfPl„„Š„v† */
	$"908E 948E 6456 5E52 78AA 9C92 A08C 7696"            /* �Ž”ŽdV^Rxªœ’ Œv– */
	$"8A6E A29A 6674 7054 6A72 5C6E 7E78 847C"            /* Šn¢šftpTjr\n~x„| */
	$"6266 7266 84B4 A09A 9858 3C5E 6268 8C8E"            /* bfrf„´ š˜X<^bhŒŽ */
	$"88A6 9E90 9A9E 9286 806C 7E8E 625E 6A64"            /* ˆ¦ž�šž’†€l~Žb^jd */
	$"6C80 8284 988C 6A66 6462 7884 7884 8A6A"            /* l€‚„˜Œjfdbx„x„Šj */
	$"6472 7286 9090 98A4 A07E 786A 748E 8E90"            /* drr†��˜¤ ~xjtŽŽ� */
	$"9A92 624C 5866 8696 8A7C 8482 6660 6C80"            /* š’bLXf†–Š|„‚f`l€ */
	$"9890 8484 8672 5656 5E80 A09C 9A98 9688"            /* ˜�„„†rVV^€ œš˜–ˆ */
	$"8282 8296 968A 7A78 6E5C 5A4C 5866 6874"            /* ‚‚‚––Šzxn\ZLXfht */
	$"767E 7878 7C8C A2A6 A292 786A 6868 6A80"            /* v~xx|Œ¢¦¢’xjhhj€ */
	$"989E A098 8A86 8488 848E 9C92 805E 4A42"            /* ˜ž ˜Š†„ˆ„Žœ’€^JB */
	$"4C58 6A80 8C90 806E 6472 8284 8892 9282"            /* LXj€Œ�€ndr‚„ˆ’’‚ */
	$"7668 6472 8084 8894 9488 827E 8486 8A98"            /* vhdr€„ˆ””ˆ‚~„†Š˜ */
	$"9890 8066 5856 6468 7076 7680 7C72 7484"            /* ˜�€fXVdhpvv€|rt„ */
	$"96A0 A49E 8E78 5A4A 5462 8092 9088 8A8C"            /* – ¤žŽxZJTb€’�ˆŠŒ */
	$"7E7C 7A84 9698 9288 7C66 5A5E 6276 8278"            /* ~|z„–˜’ˆ|fZ^bv‚x */
	$"7470 7278 8082 828E 9292 9688 766C 6E76"            /* tprx€‚‚Ž’’–ˆvlnv */
	$"808A 8284 8680 766E 828E 9A96 7E74 685E"            /* €Š‚„†€vn‚Žš–~th^ */
	$"5A5E 7484 8E82 7C88 7C70 6C70 848E 9284"            /* Z^t„Ž‚|ˆ|plp„Ž’„ */
	$"7C76 6464 6E86 A29C 8A7E 8080 7A82 88A0"            /* |vddn†¢œŠ~€€z‚ˆ  */
	$"A28E 8478 7E70 6056 566C 6C70 7E84 8876"            /* ¢Ž„x~p`VVllp~„ˆv */
	$"7072 8492 8E80 686C 7E88 98A4 A294 8274"            /* pr„’Ž€hl~ˆ˜¤¢”‚t */
	$"6A74 6E6E 7482 A0AE A27E 6862 565C 768A"            /* jtnnt‚ ®¢~hbV\vŠ */
	$"9694 7260 6880 807C 807E 8678 6866 7886"            /* –”r`h€€|€~†xhfx† */
	$"7A74 7288 8E82 8C92 9C9A 928A 8894 7850"            /* ztrˆŽ‚Œ’œš’Šˆ”xP */
	$"485A 6466 7076 7A80 8084 909A 8A6A 647A"            /* HZdfpvz€€„�šŠjdz */
	$"8A88 8086 8488 8C8E 98A8 9E6C 545E 6E80"            /* Šˆ€†„ˆŒŽ˜¨žlT^n€ */
	$"868E 8E8C 7852 4C58 6C74 7A7C 7E84 8086"            /* †ŽŽŒxRLXltz|~„€† */
	$"8A80 7262 626C 7A74 6C72 8692 9AB0 A89C"            /* Š€rbblztlr†’š°¨œ */
	$"8C80 8AA2 B29E 8678 6C64 5C52 4446 5458"            /* Œ€Š¢²ž†xld\RDFTX */
	$"6E88 8274 7072 7C82 888A A0A8 9C8C 8276"            /* nˆ‚tpr|‚ˆŠ ¨œŒ‚v */
	$"7876 768C 9480 6A74 8A94 988A 7474 6C58"            /* xvvŒ”€jtŠ”˜ŠttlX */
	$"4E5C 6C74 7A8C A4AE 9E7E 7472 7C7E 6C6E"            /* N\ltzŒ¤®ž~tr|~ln */
	$"787C 7482 8C94 948C 8688 886C 6078 94A0"            /* x|t‚Œ””Œ†ˆˆl`x”  */
	$"9C88 7A84 7862 4C48 464E 5462 829A 9E96"            /* œˆz„xbLHFNTb‚šž– */
	$"989C A4A0 9496 9482 7260 5C66 7282 8EA2"            /* ˜œ¤ ”–”‚r`\fr‚Ž¢ */
	$"A48C 786C 7078 7660 5460 6A6C 6E7C 96B2"            /* ¤Œxlpxv`T`jln|–² */
	$"B09E 8268 5A4E 5066 827A 7678 829E A898"            /* °ž‚hZNPf‚zvx‚ž¨˜ */
	$"827E 7A70 7482 8C92 9494 A6BA AC78 4E38"            /* ‚~zpt‚Œ’””¦º¬xN8 */
	$"3A52 5A54 666E 7A8C A0AA AC9A 787E 7872"            /* :RZTfnzŒ ª¬šx~xr */
	$"7C7C 7474 7C6A 6E86 8E8C 8C7C 7476 7C7E"            /* ||tt|jn†ŽŒŒ|tv|~ */
	$"807E 7478 746C 7684 8A88 887C 808C 8672"            /* €~txtlv„Šˆˆ|€Œ†r */
	$"686C 7E9A 947A 6C60 5A64 7076 869C 9EA2"            /* hl~š”zl`Zdpv†œž¢ */
	$"AEAA A8AA A088 7862 463C 3634 4A5E 6C7C"            /* ®ª¨ª ˆxbF<64J^l| */
	$"8482 8AA2 A096 9078 7A86 8E8E 8E8C 868A"            /* „‚Š¢ –�xz†ŽŽŽŒ†Š */
	$"827C 807C 7A78 808C 9A98 887E 8076 6860"            /* ‚|€|zx€Œš˜ˆ~€vh` */
	$"5646 4852 688E A292 8084 8C90 8E7E 747A"            /* VFHRhŽ¢’€„Œ�Ž~tz */
	$"7C72 6866 6E7E 8084 8C94 9EA0 A298 9086"            /* |rhfn~€„Œ”ž ¢˜�† */
	$"746E 6C6C 686A 6C6A 7A7A 8284 7C7A 6E7C"            /* tnllhjljzz‚„|zn| */
	$"909A 9882 7A7E 8484 6856 4E50 5E68 7C8A"            /* �š˜‚z~„„hVNP^h|Š */
	$"9496 9CAA A4A0 9080 7C70 6458 5656 5462"            /* ”–œª¤ �€|pdXVVTb */
	$"7680 8884 7C80 8A86 807A 7E88 929C A29E"            /* v€ˆ„|€Š†€z~ˆ’œ¢ž */
	$"9082 8082 8C90 8680 867A 6862 646E 7A76"            /* �‚€‚Œ�†€†zhbdnzv */
	$"6454 524E 4E58 5C76 8A9C ACB4 AEAC A692"            /* dTRNNX\vŠœ¬´®¬¦’ */
	$"7E76 7270 7272 7070 7476 7E8A 8E9A 9690"            /* ~vrprrpptv~ŠŽš–� */
	$"887A 6C70 8898 9E92 7C76 7260 4E44 5066"            /* ˆzlpˆ˜ž’|vr`NDPf */
	$"787E 7C84 8A88 8496 A4A0 927C 6856 5C66"            /* x~|„Šˆ„–¤ ’|hV\f */
	$"7492 A0A8 A4A0 9474 5A58 6068 6864 6678"            /* t’ ¨¤ ”tZX`hhdfx */
	$"8278 747E 9294 969A 968E 7270 7A78 7678"            /* ‚xt~’”–š–Žrpzxvx */
	$"8086 8A7C 6A6E 7876 6C76 929A 9070 6272"            /* €†Š|jnxvlv’š�pbr */
	$"828C 7C78 7460 5652 6274 868E 9AAC AA96"            /* ‚Œ|xt`VRbt†Žš¬ª– */
	$"8686 9092 8A84 807E 7A76 7070 8086 827C"            /* ††�’Š„€~zvpp€†‚| */
	$"7472 747A 6A62 7886 827A 7C8C 9486 605A"            /* trtzjbx†‚z|Œ”†`Z */
	$"6874 7070 7E8E 927A 7088 9C98 7E70 8896"            /* htpp~Ž’zpˆœ˜~pˆ– */
	$"8062 6CA0 BEAA 8274 8484 765E 7C8E 7E54"            /* €bl ¾ª‚t„„v^|Ž~T */
	$"3448 6A74 5650 7EA8 AC88 7690 AC96 7880"            /* 4HjtVP~¨¬ˆv�¬–x€ */
	$"9CAA 9464 5C86 9060 4460 7C88 7260 84A6"            /* œª”d\†�`D`|ˆr`„¦ */
	$"A078 6678 988A 5A5C 7C82 6E5E 6CA6 CCAA"            /*  xfx˜ŠZ\|‚n^l¦Ìª */
	$"807C 8890 8266 7292 8254 4C64 8298 827C"            /* €|ˆ�‚fr’‚TLd‚˜‚| */
	$"96AA 8E5A 4660 8478 6676 8888 6848 4672"            /* –ªŽZF`„xfvˆˆhHFr */
	$"8E7A 729C B8AE 8E7E 9ECA BA84 6470 8670"            /* Žzrœ¸®Ž~žÊº„dp†p */
	$"5058 707E 5848 72A2 BE96 626C 9C96 6656"            /* PXp~XHr¢¾–blœ–fV */
	$"6C80 6C54 4E74 A28E 7484 A8B0 8260 7A98"            /* l€lTNt¢Žt„¨°‚`z˜ */
	$"987C 728A 9C94 6854 7AA0 927E 828C 8C68"            /* ˜|rŠœ”hTz ’~‚ŒŒh */
	$"4E5A 8296 7256 5E68 6E64 6684 9C96 888E"            /* NZ‚–rV^hndf„œ–ˆŽ */
	$"AABC AA8E 828A 8066 5A5E 6C66 584E 6C8A"            /* ª¼ªŽ‚Š€fZ^lfXNlŠ */
	$"867C 7A8C 988E 7674 8E94 8E84 8A90 8262"            /* †|zŒ˜ŽvtŽ”Ž„Š�‚b */
	$"4C5C 767C 7E88 928E 7C6A 708C 9E92 8076"            /* L\v|~ˆ’Ž|jpŒž’€v */
	$"7476 7C86 949A 8A70 6C72 7472 6862 686E"            /* tv|†”šŠplrtrhbhn */
	$"6A6A 6A74 7474 8296 A09A 9C98 908E 948A"            /* jjjttt‚– šœ˜�Ž”Š */
	$"888A 7E80 7E7A 6860 6462 605C 6470 8890"            /* ˆŠ~€~zh`db`\dpˆ� */
	$"8A7A 767A 828A 8E8A 7660 4C54 728A 8E8E"            /* Šzvz‚ŠŽŠv`LTrŠŽŽ */
	$"969E A09A 928E 9088 766A 6A6A 6670 7EA0"            /* –ž š’Ž�ˆvjjjfp~  */
	$"AA96 7870 786A 5C58 5E72 827A 6E6E 686A"            /* ª–xpxj\X^r‚znnhj */
	$"7A8A 9698 8C86 98B6 B098 7462 6C78 7C7E"            /* zŠ–˜Œ†˜¶°˜tblx|~ */
	$"7260 585A 5E74 8884 828E A0A4 9C82 7484"            /* r`XZ^tˆ„‚Ž ¤œ‚t„ */
	$"8A86 7462 6060 6A76 9094 9292 867C 706C"            /* Š†tb``jv�”’’†|pl */
	$"687A 9C9E 9280 6C68 6E72 6C68 6C6C 787E"            /* hzœž’€lhnrlhllx~ */
	$"8286 8884 8082 7C7A 7876 7678 8288 8684"            /* ‚†ˆ„€‚|zxvvx‚ˆ†„ */
	$"94AC AEAA 9A86 7870 6458 6062 5A54 5468"            /* ”¬®ªš†xpdX`bZTTh */
	$"7A80 8288 989A 8C76 728E 9C94 847A 7A6A"            /* z€‚ˆ˜šŒvrŽœ”„zzj */
	$"5C58 667A 807A 747E 8C8C 7C78 8C9A 948C"            /* \Xfz€zt~ŒŒ|xŒš”Œ */
	$"8A8A 8274 6266 7E82 7E84 888E 8C86 706C"            /* ŠŠ‚tbf~‚~„ˆŽŒ†pl */
	$"7266 5A62 747C 8288 8688 9496 8E8C 8E82"            /* rfZbt|‚ˆ†ˆ”–ŽŒŽ‚ */
	$"7270 747C 8086 7A6A 665A 5A68 7E86 868C"            /* rpt|€†zjfZZh~††Œ */
	$"8884 8888 9094 9896 887E 726E 6C70 706E"            /* ˆ„ˆˆ�”˜–ˆ~rnlppn */
	$"7E86 8C84 8488 8C8E 7E86 8A7E 6E62 6262"            /* ~†Œ„„ˆŒŽ~†Š~nbbb */
	$"605A 5E72 8288 8C92 A090 7E66 7084 887A"            /* `Z^r‚ˆŒ’ �~fp„ˆz */
	$"5C62 728A 8E86 8C92 9E92 9094 9C9A 7E82"            /* \brŠŽ†Œ’ž’�”œš~‚ */
	$"7C74 644A 4E52 6E6C 6E90 96A2 9294 9486"            /* |tdJNRnln�–¢’””† */
	$"8E76 7E7C 7058 3C5E 687C 7E72 8080 989C"            /* Žv~|pX<^h|~r€€˜œ */
	$"9EA0 8484 747E 8886 8878 827A 7A76 6A6E"            /* ž „„t~ˆ†ˆx‚zzvjn */
	$"7684 887E 7E7A 848C 8688 766E 5E58 6868"            /* v„ˆ~~z„Œ†ˆvn^Xhh */
	$"7E7A 889A A6A2 9294 8A90 8A78 6250 422C"            /* ~zˆš¦¢’”Š�ŠxbPB, */
	$"445E 788E 9898 9CA0 9294 928A 8086 8C8A"            /* D^xŽ˜˜œ ’”’Š€†ŒŠ */
	$"8C86 7874 7464 5858 7884 888E 9090 909E"            /* Œ†xttdXXx„ˆŽ���ž */
	$"847E 8070 5E58 6860 5E64 6C84 9296 9284"            /* „~€p^Xh`^dl„’–’„ */
	$"807E 7878 8488 6450 566C 808E A4A6 B0B0"            /* €~xx„ˆdPVl€Ž¤¦°° */
	$"9E8C 8286 7C76 7078 7864 5860 6C72 786A"            /* žŒ‚†|vpxxdX`lrxj */
	$"6272 8A8E 969A 8884 8886 8088 7E68 6666"            /* brŠŽ–šˆ„ˆ†€ˆ~hff */
	$"606A 787C 8494 A4A2 9888 7C76 686C 747A"            /* `jx|„”¤¢˜ˆ|vhltz */
	$"7E84 7A74 8488 8886 8278 7064 6082 AAA8"            /* ~„zt„ˆˆ†‚xpd`‚ª¨ */
	$"9A8E 7258 6466 5C74 9084 708E A6A4 967E"            /* šŽrXdf\t�„pŽ¦¤–~ */
	$"6C6E 746A 6260 6A70 6462 7890 8C88 8CA2"            /* lntjb`jpdbx�ŒˆŒ¢ */
	$"AA9E 9080 887E 745E 5E78 7A6E 667A 8888"            /* ªž�€ˆ~t^^xznfzˆˆ */
	$"8E8C 9A94 846C 6C84 887C 645C 606C 766E"            /* ŽŒš”„ll„ˆ|d\`lvn */
	$"7A92 8678 7A7E 8280 8072 88A0 927A 686E"            /* z’†xz~‚€€rˆ ’zhn */
	$"6872 7C8C A0A6 AEA0 989E 9476 5E5E 5248"            /* hr|Œ ¦® ˜ž”v^^RH */
	$"4E5A 6A86 8876 7082 8C90 968C 9088 807A"            /* NZj†ˆvp‚Œ�–Œ�ˆ€z */
	$"7682 7870 6664 6E6E 6A72 7E8A 9090 8A88"            /* v‚xpfdnnjr~Š��Šˆ */
	$"867A 7C8C 9890 847A 6866 6868 748A 9288"            /* †z|Œ˜�„zhfhhtŠ’ˆ */
	$"7E80 8A8C 8482 8478 6C68 626C 827A 6872"            /* ~€ŠŒ„‚„xlhbl‚zhr */
	$"8E96 9898 8C8C 8476 686E 7A76 6A5A 5E6C"            /* Ž–˜˜ŒŒ„vhnzvjZ^l */
	$"6E6C 6A7C 98A8 A8A4 A69C 8A82 7E84 887E"            /* nlj|˜¨¨¤¦œŠ‚~„ˆ~ */
	$"5E4C 5658 647E 96AC A08C 7674 7E7C 7C76"            /* ^LVXd~–¬ Œvt~||v */
	$"7C82 7060 5E6C 747C 847C 848C 8C7E 7E84"            /* |‚p`^lt|„|„ŒŒ~~„ */
	$"8280 8084 8080 7C72 7480 8880 7E82 8C88"            /* ‚€€„€€|rt€ˆ€~‚Œˆ */
	$"8682 8892 928E 8486 7E62 4840 5262 7C82"            /* †‚ˆ’’Ž„†~bH@Rb|‚ */
	$"8EA4 A28C 7272 8490 927C 686A 6660 6072"            /* Ž¤¢Œrr„�’|hjf``r */
	$"8C94 927E 8086 8680 7C8C 98A0 8C74 766E"            /* Œ”’~€††€|Œ˜ Œtvn */
	$"6260 6C7E 8482 707A 9896 8474 7E86 8676"            /* b`l~„‚pz˜–„t~††v */
	$"6278 8A7A 625C 788C 908A 8A9A 907C 6868"            /* bxŠzb\xŒ�ŠŠš�|hh */
	$"868E 7456 585A 5266 728E A8A4 908A 9C8C"            /* †ŽtVXZRfrŽ¨¤�ŠœŒ */
	$"7876 7690 9C90 7E78 8074 6E6A 7488 7A6A"            /* xvv�œ�~x€tnjtˆzj */
	$"6472 7E88 8A80 8A88 7870 6C76 7A76 7474"            /* dr~ˆŠ€Šˆxplvzvtt */
	$"888C 8686 8886 746A 6880 9696 887A 7C7A"            /* ˆŒ††ˆ†tjh€––ˆz|z */
	$"726E 7E9A 9C88 7E78 7E84 8480 848C 765C"            /* rn~šœˆ~x~„„€„Œv\ */
	$"525C 6664 6C7C 92A0 9280 7A82 827C 8A94"            /* R\fdl|’ ’€z‚‚|Š” */
	$"9278 5C52 5C76 8488 8688 9090 9298 948C"            /* ’x\R\v„ˆ†ˆ��’˜”Œ */
	$"7C62 5E70 7E7A 726C 7484 9490 8E96 8872"            /* |b^p~zrlt„”�Ž–ˆr */
	$"6260 7288 8478 7680 8478 6E6E 808E 8284"            /* b`rˆ„xv€„xnn€Ž‚„ */
	$"9492 8A7E 6E6C 7E80 6E6E 7260 5054 7096"            /* ”’Š~nl~€nnr`PTp– */
	$"B2AA 8C7E 8084 8688 9098 8A76 7484 887E"            /* ²ªŒ~€„†ˆ�˜Švt„ˆ~ */
	$"6456 667C 847E 7A78 7A7A 7680 8C86 7A70"            /* dVf|„~zxzzv€Œ†zp */
	$"7076 7A76 6C72 7C7E 787A 7C7C 8282 8E9C"            /* pvzvlr|~xz||‚‚Žœ */
	$"A896 7E70 6460 6270 8CA0 A292 8682 8084"            /* ¨–~pd`bpŒ ¢’†‚€„ */
	$"7A6A 6664 5E56 5C6A 7680 8A9A 9C96 9084"            /* zjfd^V\jv€Ššœ–�„ */
	$"7E80 8C8C 8884 7E72 6C6C 6A6C 7070 7476"            /* ~€ŒŒˆ„~rlljlpptv */
	$"8692 9698 9286 7A74 7272 7678 7476 767E"            /* †’–˜’†ztrrvxtvv~ */
	$"8A98 A292 826E 686A 7078 7C7C 787A 7A78"            /* Š˜¢’‚nhjpx||xzzx */
	$"867E 828A 9298 8E8A 706E 6E6C 7468 766C"            /* †~‚Š’˜ŽŠpnnlthvl */
	$"686C 7694 929E 9080 867C 7E74 7C84 7E8C"            /* hlv”’ž�€†|~t|„~Œ */
	$"848A 847C 806A 746C 6C74 748C 828C 8278"            /* „Š„|€jtllttŒ‚Œ‚x */
	$"8478 7C78 7C80 7C84 726C 6C6E 7E7E 8C86"            /* „x|x|€|„rlln~~Œ† */
	$"7A74 687C 8496 9C88 7A66 6E70 7E8A 827E"            /* zth|„–œˆzfnp~Š‚~ */
	$"7A84 8E8C 8872 787E 7E82 706E 6E72 7676"            /* z„ŽŒˆrx~~‚pnnrvv */
	$"8882 7E7A 727C 888C 888C 9284 7E76 6C6E"            /* ˆ‚~zr|ˆŒˆŒ’„~vln */
	$"7276 727C 7E80 8E9A 9A8C 7662 646C 7678"            /* rvr|~€ŽššŒvbdlvx */
	$"746C 727A 808C 8E8C 8072 7478 7878 8086"            /* tlrz€ŒŽŒ€rtxxx€† */
	$"8E9A 8E84 7E74 7678 8086 8E8C 8488 8278"            /* ŽšŽ„~tvx€†ŽŒ„ˆ‚x */
	$"706C 6E70 7066 5A66 727C 8E90 887E 787A"            /* plnppfZfr|Ž�ˆ~xz */
	$"8698 9686 807C 808E 948C 867C 6E6C 7272"            /* †˜–†€|€Ž”Œ†|nlrr */
	$"7878 7474 7C7A 767C 8088 847A 7064 6C6E"            /* xxtt|zv|€ˆ„zpdln */
	$"727A 808C 9294 928C 8C86 8084 8A90 7E68"            /* rz€Œ’”’ŒŒ†€„Š�~h */
	$"5E62 6E82 8E8A 8682 807A 7A84 7E78 7068"            /* ^bn‚ŽŠ†‚€zz„~xph */
	$"7276 7E7E 7E82 807E 7874 7882 8A88 8A8C"            /* rv~~~‚€~xtx‚ŠˆŠŒ */
	$"9090 8686 807E 726C 6E6A 787C 7E84 8476"            /* ��††€~rlnjx|~„„v */
	$"6462 686C 7A7E 7E82 888A 8890 8E8A 8E88"            /* dbhlz~~‚ˆŠˆ�ŽŠŽˆ */
	$"867C 7A72 7278 8090 887C 7670 707A 7C74"            /* †|zrrx€�ˆ|vppz|t */
	$"7470 686E 7680 8C92 8C86 8484 8282 8280"            /* tphnv€Œ’Œ†„„‚‚‚€ */
	$"7870 7076 787A 848E 9898 8C78 7272 7072"            /* xppvxz„Ž˜˜Œxrrpr */
	$"7A78 7872 686A 7486 8682 7C7A 7A72 7274"            /* zxxrhjt††‚|zzrrt */
	$"7678 7C82 848C 8A84 888A 8880 7E8C 9696"            /* vx|‚„ŒŠ„ˆŠˆ€~Œ–– */
	$"8E82 706A 6C6A 6A7A 8276 7276 7476 868C"            /* Ž‚pjljjz‚vrvtv†Œ */
	$"9692 9284 7672 6E76 7480 7E74 7270 6E68"            /* –’’„vrnvt€~trpnh */
	$"787E 8698 9284 7672 707A 9498 8E86 7A7E"            /* x~†˜’„vrpz”˜Ž†z~ */
	$"8486 7470 7874 7874 7C7E 7A78 7280 8C92"            /* „†tpxtxt|~zxr€Œ’ */
	$"907E 7670 6C68 7282 8C92 9090 8C78 6666"            /* �~vplhr‚Œ’��Œxff */
	$"7072 6C72 707A 8072 6C82 A2AE A48A 7A74"            /* prlrpz€rl‚¢®¤Šzt */
	$"6458 6688 9A92 7A62 6676 6C68 7692 A8A0"            /* dXfˆš’zbfvlhv’¨  */
	$"8E88 8E8A 7A7C 8496 8E74 6468 7C78 7270"            /* ŽˆŽŠz|„–Žtdh|xrp */
	$"7E8C 7C64 5A68 7476 7672 808A 8078 7E88"            /* ~Œ|dZhtvvr€Š€x~ˆ */
	$"8C8C 9498 A49C 846A 5E66 6A76 8490 9484"            /* ŒŒ”˜¤œ„j^fjv„�”„ */
	$"7872 7274 7474 7682 887A 6A6A 7A84 949A"            /* xrrtttv‚ˆzjjz„”š */
	$"8C84 7460 565E 7684 9294 9496 928A 807C"            /* Œ„t`V^v„’””–’Š€| */
	$"7C86 8070 686A 6C6E 767C 8484 7E6E 6C70"            /* |†€phjlnv|„„~nlp */
	$"7278 8290 969E 9A90 8672 6A66 768C 908C"            /* rx‚�–žš�†rjfvŒ�Œ */
	$"8A8A 7C6E 6A68 7280 8E7A 6C6C 6A6A 7280"            /* ŠŠ|njhr€Žzlljjr€ */
	$"808A 9A98 887E 7670 747C 8686 8074 6866"            /* €Šš˜ˆ~vpt|††€thf */
	$"7086 8E8E 8A86 8482 887E 7A7C 7C7E 828C"            /* p†ŽŽŠ†„‚ˆ~z||~‚Œ */
	$"8076 7072 767C 7C78 7674 7A70 787C 847E"            /* €vprv||xvtzpx|„~ */
	$"7C86 8280 727A 7C88 8E8C 8E9C 9E7A 665E"            /* |†‚€rz|ˆŽŒŽœžzf^ */
	$"646A 7A74 7480 807E 788C 8E94 8E8A 8C82"            /* djztt€€~xŒŽ”ŽŠŒ‚ */
	$"887A 7872 7876 7278 6866 626E 7A86 8680"            /* ˆzxrxvrxhfbnz††€ */
	$"888C 867C 8286 9088 8276 7074 706E 6478"            /* ˆŒ†|‚†�ˆ‚vptpndx */
	$"7C84 8C88 8E82 7C76 767E 8084 8082 7E76"            /* |„ŒˆŽ‚|vv~€„€‚~v */
	$"767C 8888 8A8A 8C90 806A 6064 7C86 7E78"            /* v|ˆˆŠŠŒ�€j`d|†~x */
	$"767C 7874 7680 9492 847A 787A 7E7E 7A7A"            /* v|xtv€”’„zxz~~zz */
	$"7A70 605E 6C72 747A 8496 A29C 908E 908A"            /* zp`^lrtz„–¢œ�Ž�Š */
	$"8282 888E 806E 6E76 7A6C 6264 7686 7E78"            /* ‚‚ˆŽ€nnvzlbdv†~x */
	$"7278 7E78 7078 807A 7C7E 828A 887A 7686"            /* rx~xpx€z|~‚Šˆzv† */
	$"9090 8874 707A 8284 8C8C 7E6A 6A78 8080"            /* ��ˆtpz‚„ŒŒ~jjx€€ */
	$"7E7C 828C 8A7A 747C 8684 786E 6668 6468"            /* ~|‚ŒŠzt|†„xnfhdh */
	$"7078 8484 8490 9EA2 9A8C 8280 847E 7878"            /* px„„„�ž¢šŒ‚€„~xx */
	$"7672 7676 767E 7674 767A 7C7C 7C78 7E80"            /* vrvvv~vtvz|||x~€ */
	$"8076 787E 7C84 8282 8082 8A8E 9086 726A"            /* €vx~|„‚‚€‚ŠŽ�†rj */
	$"6A78 868C 8678 7066 6E7C 8492 9690 8686"            /* jx†Œ†xpfn|„’–�†† */
	$"7C70 7266 5C5E 5A64 7484 888C 908C 9292"            /* |prf\^Zdt„ˆŒ�Œ’’ */
	$"8E8E 908E 888A 8084 8A80 7068 6A6C 706E"            /* ŽŽ�ŽˆŠ€„Š€phjlpn */
	$"686A 767C 8082 8684 7C74 7884 827A 726E"            /* hjv|€‚†„|tx„‚zrn */
	$"707C 868E 9698 8C84 827C 767A 7670 787E"            /* p|†Ž–˜Œ„‚|vzvpx~ */
	$"7A78 7670 7078 8A8E 8C80 767E 8284 8084"            /* zxvppxŠŽŒ€v~‚„€„ */
	$"8278 6C5C 5C6A 7680 848C 969C 9A9C A29A"            /* ‚xl\\jv€„Œ–œšœ¢š */
	$"8A7A 7470 6A6A 5E5C 5E64 6A72 8A94 8880"            /* Šztpjj^\^djrŠ”ˆ€ */
	$"848A 8482 7C78 8084 827E 868E 8078 7C8C"            /* „Š„‚|x€„‚~†Ž€x|Œ */
	$"9692 8A78 7A7E 7272 747E 817A 6C62 6C74"            /* –’Šxz~rrt~�zlblt */
	$"7678 7880 8081 8F97 998D 8074 6872 7270"            /* vxx€€��—™�€thrrp */
	$"6C6E 7678 8B99 9B93 8D91 8B8D 8576 6C60"            /* lnvx‹™›“�‘‹�…vl` */
	$"6670 7C81 7266 5E6A 7A7C 8180 8381 8083"            /* fp|�rf^jz|�€ƒ�€ƒ */
	$"8997 8B85 8078 7268 686C 7E8B 8587 898F"            /* ‰—‹…€xrhhl~‹…‡‰� */
	$"8D81 7E78 6E64 6676 8083 7C6E 7485 8F85"            /* ��~xndfv€ƒ|nt…�… */
	$"8383 7E78 747C 857E 6E64 7081 857A 707E"            /* ƒƒ~xt|…~ndp�…zp~ */
	$"8F91 8D85 8B8D 8376 7480 7E78 747A 7C70"            /* �‘�…‹�ƒvt€~xtz|p */
	$"625C 6A7A 7C7E 8389 8D8F 938D 8B81 7674"            /* b\jz|~ƒ‰��“�‹�vt */
	$"747C 7872 7281 8D87 8376 6C6C 787A 7C81"            /* t|xrr��‡ƒvllxz|� */
	$"7A80 8B8F 8781 786E 6E70 767E 807E 7C81"            /* z€‹�‡�xnnpv~€~|� */
	$"8585 7E6E 727E 7E76 767C 7C83 8989 9399"            /* ……~nr~~vv||ƒ‰‰“™ */
	$"9589 8781 7066 626E 8087 7A68 6C76 7C7A"            /* •‰‡�pfbn€‡zhlv|z */
	$"7881 7A74 7278 8389 8778 7480 8180 8085"            /* x�ztrxƒ‰‡xt€�€€… */
	$"8985 8587 918F 857E 7678 7268 6476 8985"            /* ‰……‡‘�…~vxrhdv‰… */
	$"786C 6C70 706E 7687 9797 9591 8B7A 645C"            /* xllppnv‡——•‘‹zd\ */
	$"6278 7E78 7883 8B85 8589 9395 8776 747E"            /* bx~xxƒ‹……‰“•‡vt~ */
	$"8378 6E76 7E78 6A68 6872 7A74 7881 8F83"            /* ƒxnv~xjhhrztx��ƒ */
	$"7E81 8785 7870 7487 9389 807C 8183 8085"            /* ~�‡…xpt‡“‰€|�ƒ€… */
	$"8F8F 7E6C 6C74 817A 686A 7A81 7E76 7076"            /* ��~llt�zhjz�~vpv */
	$"7C76 7487 9D97 8178 7E80 786E 6A76 8581"            /* |vt‡�—�x~€xnjv…� */
	$"7878 8B99 8D81 7876 7270 7881 8987 7670"            /* xx‹™��xvrpx�‰‡vp */
	$"767C 7258 5260 7685 8F9B A3A5 8B7A 7E81"            /* v|rXR`v…�›£¥‹z~� */
	$"806C 6872 818D 7876 7A80 857C 7E83 8B7E"            /* €lhr��xvz€…|~ƒ‹~ */
	$"6C76 7A85 857C 7E7C 806A 626A 7280 7C7C"            /* lvz……|~|€jbjr€|| */
	$"8393 998B 877C 7A78 6E72 7E8B 8174 767E"            /* ƒ“™‹‡|zxnr~‹�tv~ */
	$"8D8D 8380 8081 7E78 7878 7866 666A 7076"            /* ��ƒ€€�~xxxxffjpv */
	$"6E72 7C93 9D93 958D 8778 7072 7489 8B8B"            /* nr|“�“•�‡xprt‰‹‹ */
	$"938F 836C 646C 7A7E 747A 808B 8D81 817E"            /* “�ƒldlz~tz€‹���~ */
	$"7C66 5D64 6C76 706E 8097 978D 8D8F 8D87"            /* |f]dlvpn€——����‡ */
	$"7466 6C72 7072 7E81 7C76 7885 9591 8781"            /* tflrpr~�|vx…•‘‡� */
	$"7E81 8178 747A 7872 7274 7674 7274 8091"            /* ~��xtzxrrtvtrt€‘ */
	$"938D 7C76 7A76 6E74 7C80 878D 817E 817C"            /* “�|vzvnt|€‡��~�| */
	$"7680 8785 7C7A 7A83 8983 766A 6868 707A"            /* v€‡…|zzƒ‰ƒvjhhpz */
	$"8380 7A78 7C89 8B85 7674 7C81 878B 8D8D"            /* ƒ€zx|‰‹…vt|�‡‹�� */
	$"8D89 7E70 6E68 6268 7889 9595 8780 7A72"            /* �‰~pnhbhx‰••‡€zr */
	$"6C64 6A72 7A76 7270 7487 9DA2 9989 7C6C"            /* ldjrzvrpt‡�¢™‰|l */
	$"6E76 7C7E 7A74 7481 8989 8076 7A7E 7E7E"            /* nv|~ztt�‰‰€vz~~~ */
	$"8389 8783 837E 817A 6662 6E70 6E72 7689"            /* ƒ‰‡ƒƒ~�zfbnpnrv‰ */
	$"9795 8981 8383 7A76 7885 857C 7E83 806E"            /* —•‰�ƒƒzvx……|~ƒ€n */
	$"5B57 6889 9B97 8D8D 8578 7078 8583 7A70"            /* [Wh‰›—��…xpx…ƒzp */
	$"666E 7C7C 7C81 8D85 7876 7481 898D 8B8F"            /* fn|||��…xvt�‰�‹� */
	$"8D80 7A76 786C 6266 7487 8B81 787A 8078"            /* �€zvxlbft‡‹�xz€x */
	$"7074 767C 7466 7081 897E 8087 97A4 9D89"            /* ptv|tfp�‰~€‡—¤�‰ */
	$"8183 7E78 7A7C 7E7A 706A 6661 626A 7E93"            /* �ƒ~xz|~zpjfabj~“ */
	$"9F91 8385 837C 7C7E 7C7C 7666 6874 787A"            /* Ÿ‘ƒ…ƒ||~||vfhtxz */
	$"8183 8B8D 7C70 7C85 898B 837E 8081 7876"            /* �ƒ‹�|p|…‰‹ƒ~€�xv */
	$"7E76 7678 7883 8D87 7A76 7472 7676 7881"            /* ~vvxxƒ�‡zvtrvvx� */
	$"817E 7E7C 7C83 8781 8783 7870 6E74 7A85"            /* �~~||ƒ‡�‡ƒxpntz… */
	$"807E 8178 766E 6C72 7A83 8595 9B8D 877C"            /* €~�xvnlrzƒ…•›�‡| */
	$"7883 8B87 7A7A 6861 6468 767E 8076 7A80"            /* xƒ‹‡zzhadhv~€vz€ */
	$"818D 8B89 8983 7C76 7874 787C 7276 8083"            /* ��‹‰‰ƒ|vxtx|rv€ƒ */
	$"878B 8778 6E69 6974 7E89 8783 7E7C 807A"            /* ‡‹‡xniit~‰‡ƒ~|€z */
	$"8180 7E7E 8081 8389 8381 878B 8981 786B"            /* �€~~€�ƒ‰ƒ�‡‹‰�xk */
	$"6163 6976 8D94 938B 837E 7674 6C70 7272"            /* aciv�”“‹ƒ~vtlprr */
	$"706E 747C 837A 7272 7880 898F 9391 8F89"            /* pnt|ƒzrrx€‰�“‘�‰ */
	$"898B 8580 7672 7278 7C80 817C 7672 747A"            /* ‰‹…€vrrx|€�|vrtz */
	$"7A74 6E78 8581 7C7A 7878 7876 7889 938F"            /* ztnx…�|zxxxvx‰“� */
	$"8983 8180 7E76 727A 706B 696C 7883 8B89"            /* ‰ƒ�€~vrzpkilxƒ‹‰ */
	$"8F8F 8583 7A7A 7472 7078 8787 8372 6C74"            /* ��…ƒzztrpx‡‡ƒrlt */
	$"7A78 727C 7C81 8B8B 919C 9C8D 7C74 6C6C"            /* zxr||�‹‹‘œœ�|tll */
	$"6E69 6B6C 7680 878B 8381 766E 6C70 7E85"            /* niklv€‡‹ƒ�vnlp~… */
	$"8F8B 8180 8081 7C74 7476 8185 8D89 8383"            /* �‹�€€�|ttv�…�‰ƒƒ */
	$"7674 767E 7C76 807E 8387 8380 7C7A 7072"            /* vtv~|v€~ƒ‡ƒ€|zpr */
	$"7A7C 8580 7A80 817A 6E6E 6E70 7672 7E8D"            /* z|…€z€�znnnpvr~� */
	$"9693 8787 8985 766C 7278 7E7C 7880 8583"            /* –“‡‡‰…vlrx~|x€…ƒ */
	$"787C 8580 7A6B 6B76 8081 818F 9896 8F83"            /* x|…€zkkv€���˜–�ƒ */
	$"7C72 6C65 6574 7E80 7C83 8987 7E74 6E74"            /* |rleet~€|ƒ‰‡~tnt */
	$"7C7A 787E 8583 7C7A 8183 817C 7878 7C7C"            /* |zx~…ƒ|z�ƒ�|xx|| */
	$"767A 8080 7E78 7A7E 8385 898D 8D8B 817E"            /* vz€€~xz~ƒ…‰��‹�~ */
	$"7A78 7A72 767E 8180 786B 6769 6C70 767C"            /* zxzrv~�€xkgilpv| */
	$"8187 8381 8385 8381 807E 807C 726C 6E78"            /* �‡ƒ�ƒ…ƒ�€~€|rlnx */
	$"808B 9698 9385 7A6C 6B69 707C 8185 8789"            /* €‹–˜“…zlkip|�…‡‰ */
	$"8789 8178 7A78 706C 6C6C 727C 8387 8B89"            /* ‡‰�xzxplllr|ƒ‡‹‰ */
	$"8174 696E 7A80 8D96 8F81 7E74 6971 7A7A"            /* �tinz€�–��~tiqzz */
	$"838D 8980 7C76 7276 7A7E 8387 8985 7C78"            /* ƒ�‰€|vrvz~ƒ‡‰…|x */
	$"8080 7C80 7E76 7671 717A 8787 8389 8583"            /* €€|€~vvqqz‡‡ƒ‰…ƒ */
	$"7C78 6F6B 7172 7C80 8484 7C74 787C 7C7C"            /* |xokqr|€„„|tx||| */
	$"7878 7C82 7C7C 8691 9591 8E7E 786D 5E65"            /* xx|‚||†‘•‘Ž~xm^e */
	$"7688 8888 8888 806F 6265 747E 807E 8284"            /* vˆˆˆˆˆ€obet~€~‚„ */
	$"8074 727C 8284 7E74 787E 7C78 808A 8E86"            /* €tr|‚„~tx~|x€ŠŽ† */
	$"7E78 7C78 7169 7180 8A82 7A80 8886 8284"            /* ~x|xqiq€Š‚z€ˆ†‚„ */
	$"8F9B 917E 6F6F 6B60 5A62 7888 827A 7E84"            /* �›‘~ook`Zbxˆ‚z~„ */
	$"807A 7684 918E 7871 7276 716D 788C 9588"            /* €zv„‘ŽxqrvqmxŒ•ˆ */
	$"786F 767C 7676 8093 938E 8682 8476 6562"            /* xov|vv€““Ž†‚„veb */
	$"6B76 7476 7C86 8F88 8284 8880 7267 6574"            /* kvtv|†�ˆ‚„ˆ€rget */
	$"8084 8E99 978A 8076 7276 716D 767C 807E"            /* €„Ž™—Š€vrvqmv|€~ */
	$"786F 6F69 6372 828E 8A80 7874 807E 8086"            /* xooicr‚ŽŠ€xt€~€† */
	$"8C8E 827E 7A80 8880 7C78 787C 7672 7480"            /* ŒŽ‚~z€ˆ€|xx|vrt€ */
	$"8482 8682 807C 746F 7282 8286 8074 6D67"            /* „‚†‚€|tor‚‚†€tmg */
	$"6B71 808A 807A 7472 787E 8486 8E93 8E8E"            /* kq€Š€ztrx~„†Ž“ŽŽ */
	$"8A88 7E74 7274 7E86 8A82 7E74 6562 676D"            /* Šˆ~trt~†Š‚~tebgm */
	$"717A 8080 8288 8686 8484 8284 8480 7871"            /* qz€€‚ˆ††„„‚„„€xq */
	$"7172 7C86 8C8A 786D 6A71 8086 8A8A 867C"            /* qr|†ŒŠxmjq€†ŠŠ†| */
	$"716F 7880 807E 8082 807E 7876 7678 767C"            /* qox€€~€‚€~xvvxv| */
	$"8882 786D 6D78 8288 8282 8C8C 8280 8082"            /* ˆ‚xmmx‚ˆ‚‚ŒŒ‚€€‚ */
	$"7A6F 6B71 7874 6F6B 7171 6D6F 8098 988C"            /* zokqxtokqqmo€˜˜Œ */
	$"8080 888C 8E8C 8C88 7666 6878 8680 7674"            /* €€ˆŒŽŒŒˆvfhx†€vt */
	$"7C7E 746F 6D7A 8080 8288 8A7C 7171 7C88"            /* |~tomz€€‚ˆŠ|qq|ˆ */
	$"847C 7C7E 7C72 6D71 7C82 7C7C 8084 8480"            /* „||~|rmq|‚||€„„€ */
	$"8686 8A80 787E 848C 8278 7A7C 807E 7A7A"            /* ††Š€x~„Œ‚xz|€~zz */
	$"7266 5C60 707C 8480 888F 908C 8080 8082"            /* rf\`p|„€ˆ��Œ€€€‚ */
	$"8080 8682 786E 6871 7A7C 7878 7C78 7A7C"            /* €€†‚xnhqz|xx|xz| */
	$"848F 928D 8080 7C7A 7C7E 8884 7E73 6E7A"            /* „�’�€€|z|~ˆ„~snz */
	$"7C78 706C 717A 807E 7E82 8480 8088 8F92"            /* |xplqz€~~‚„€€ˆ�’ */
	$"8B7E 7878 7A73 6C6E 6E73 7174 7A7C 7A78"            /* ‹~xxzslnnsqtz|zx */
	$"7880 8A8B 8A8D 8F88 807C 7C88 8F82 7370"            /* x€Š‹Š��ˆ€||ˆ�‚sp */
	$"7378 7E7C 7A7A 7167 6A74 8082 8080 8082"            /* sx~|zzqgjt€‚€€€‚ */
	$"8080 8482 8080 8086 887E 6A68 6C72 7474"            /* €€„‚€€€†ˆ~jhlrtt */
	$"8086 8886 8286 8888 7E74 7C80 807A 8084"            /* €†ˆ†‚†ˆˆ~t|€€z€„ */
	$"807C 7272 7C7C 7469 6C74 7C80 808A 8B86"            /* €|rr||tilt|€€Š‹† */
	$"8484 8A8B 8678 7278 7672 6E6E 7476 7A7A"            /* „„Š‹†xrxvrnntvzz */
	$"8082 7E76 747C 868A 8A88 8C8A 8480 7878"            /* €‚~vt|†ŠŠˆŒŠ„€xx */
	$"7874 7278 7C78 7478 7E88 8074 747C 8286"            /* xtrx|xtx~ˆ€tt|‚† */
	$"8682 8484 7C7A 7C80 807C 7E7E 7E78 7474"            /* †‚„„|z|€€|~~~xtt */
	$"747E 7A76 7A7C 7A7A 8084 8480 7A7C 8282"            /* t~zvz|zz€„„€z|‚‚ */
	$"8282 8080 8689 8480 7674 767C 7E78 7A76"            /* ‚‚€€†‰„€vtv|~xzv */
	$"7876 7880 8080 7E82 8486 8075 7070 6C6B"            /* xvx€€€~‚„†€upplk */
	$"7280 8688 8280 807E 7A76 7E84 8686 8080"            /* r€†ˆ‚€€~zv~„††€€ */
	$"8484 8080 8484 807C 7874 706C 6C72 7A80"            /* „„€€„„€|xtpllrz€ */
	$"7E78 7E84 8889 8988 8280 7E76 787C 7C75"            /* ~x~„ˆ‰‰ˆ‚€~vx||u */
	$"7478 7C76 706C 7078 8286 8688 8982 7C7C"            /* tx|vplpx‚††ˆ‰‚|| */
	$"7575 7E7C 8289 867A 7276 7C80 8080 8482"            /* uu~|‚‰†zrv|€€€„‚ */
	$"807E 7C80 807C 767E 8682 7C76 7478 7E78"            /* €~|€€|v~†‚|vtx~x */
	$"7275 7C80 7C7A 7E80 807C 8080 7E78 7578"            /* ru|€|z~€€|€€~xux */
	$"828A 8882 8482 7E75 7478 7E84 8482 8480"            /* ‚Šˆ‚„‚~utx~„„‚„€ */
	$"786C 6A70 787C 7880 8484 7E78 7C7C 8484"            /* xljpx|x€„„~x||„„ */
	$"807C 7876 6F77 8288 887C 787C 7E7E 7878"            /* €|xvow‚ˆˆ|x|~~xx */
	$"7E82 8884 8882 7C70 707C 848A 847E 7C7E"            /* ~‚ˆ„ˆ‚|pp|„Š„~|~ */
	$"8077 7678 7E7E 7A78 787A 7672 7A8A 908C"            /* €wvx~~zxxzvrzŠ�Œ */
	$"7E77 7678 7270 7784 8880 7C7E 7C7A 797E"            /* ~wvxrpw„ˆ€|~|zy~ */
	$"8890 8876 7279 7977 7679 8288 8079 7E80"            /* ˆ�ˆvryywvy‚ˆ€y~€ */
	$"8280 7C80 847E 716E 7680 8680 7E86 847A"            /* ‚€|€„~qnv€†€~†„z */
	$"6E6E 7680 8784 878A 8477 6C6E 7174 7271"            /* nnv€‡„‡Š„wlnqtrq */
	$"7E87 8882 7977 7980 8284 8782 7972 7980"            /* ~‡ˆ‚ywy€‚„‡‚yry€ */
	$"878A 8688 8A84 796E 6C6F 797A 7980 807E"            /* ‡Š†ˆŠ„ynloyzy€€~ */
	$"7777 7C80 847C 7C7E 807C 777E 868C 8A82"            /* ww|€„||~€|w~†ŒŠ‚ */
	$"766E 6C6E 6F7A 8082 8082 8486 8679 7679"            /* vnlnoz€‚€‚„††yvy */
	$"8087 8682 7E80 7C76 797A 807E 7979 7C80"            /* €‡†‚~€|vyz€~yy|€ */
	$"7974 747E 8884 7C7A 8080 7A7C 8087 8880"            /* ytt~ˆ„|z€€z|€‡ˆ€ */
	$"7974 7A79 777E 878A 7E73 7173 777A 7A7E"            /* ytzyw~‡Š~sqswzz~ */
	$"8284 8084 888A 8780 7E7C 7C74 6D6E 7177"            /* ‚„€„ˆŠ‡€~||tmnqw */
	$"7C82 8786 7C76 7473 797E 7E80 8486 8484"            /* |‚‡†|vtsy~~€„†„„ */
	$"8280 7976 7676 7779 7C7C 7E7C 7A7E 8487"            /* ‚€yvvvwy||~|z~„‡ */
	$"8784 7E79 797C 8086 8887 8077 7676 777A"            /* ‡„~yy|€†ˆ‡€wvvwz */
	$"7C7C 7C7C 7C79 7373 7479 8082 807E 8082"            /* |||||yssty€‚€~€‚ */
	$"8486 8787 8480 7971 7374 747A 8080 8080"            /* „†‡‡„€yqsttz€€€€ */
	$"7A79 8084 8080 8080 8486 827C 7671 7176"            /* zy€„€€€€„†‚|vqqv */
	$"797C 7A79 7779 8084 8A82 7E7C 7C82 8480"            /* y|zywy€„Š‚~||‚„€ */
	$"777C 8080 807E 7673 7371 757C 8080 8080"            /* w|€€€~vssqu|€€€€ */
	$"7C7A 7980 8887 8480 7C77 7E84 8487 857E"            /* |zy€ˆ‡„€|w~„„‡…~ */
	$"7675 767A 7E76 6F75 7C80 7975 7577 7A7E"            /* vuvz~vou|€yuuwz~ */
	$"8087 8A8D 8B87 8580 7771 7175 7576 7677"            /* €‡Š�‹‡…€wqquuvvw */
	$"8084 807C 8080 8087 8887 8480 7C80 8A86"            /* €„€|€€€‡ˆ‡„€|€Š† */
	$"7A6D 656A 737C 8080 7E7E 7C7C 8080 7C7C"            /* zmejs|€€~~||€€|| */
	$"7E80 8282 8080 8484 8480 7C78 757B 8080"            /* ~€‚‚€€„„„€|xu{€€ */
	$"7E78 7C80 8280 7B78 787E 807C 7E7E 7C7C"            /* ~x|€‚€{xx~€|~~|| */
	$"8489 857E 7571 787B 7975 7579 7578 7B80"            /* „‰…~uqx{yuuyux{€ */
	$"8485 8682 8688 8680 8082 8079 716C 6F79"            /* „…†‚†ˆ†€€‚€yqloy */
	$"7C7E 8082 8280 8080 8480 7976 7C84 8580"            /* |~€‚‚€€€„€yv|„…€ */
	$"797B 807C 7B73 7175 767C 848E 8982 7B75"            /* y{€|{squv|„Ž‰‚{u */
	$"797B 7B7B 7B80 7E80 8084 8682 7C76 7371"            /* y{{{{€~€€„†‚|vsq */
	$"6D71 767C 807E 7E7C 8082 807E 7C80 828B"            /* mqv|€~~|€‚€~|€‚‹ */
	$"8F89 8680 7B7C 7C78 7373 7171 757B 7E7B"            /* �‰†€{||xssqqu{~{ */
	$"787B 8085 8885 7E7E 7C79 7C80 827E 7973"            /* x{€…ˆ…~~|y|€‚~ys */
	$"7378 7C80 888D 8D82 7B79 7C79 7877 787B"            /* sx|€ˆ��‚{y|yxwx{ */
	$"7978 7986 8984 7E7E 8584 796E 6F77 7C7E"            /* yxy†‰„~~…„ynow|~ */
	$"7E82 8580 7878 7E84 8582 868D 9186 7B75"            /* ~‚…€xx~„…‚†�‘†{u */
	$"7571 6A68 6E78 7C7C 7E80 8684 7C80 8889"            /* uqjhnx||~€†„|€ˆ‰ */
	$"7C75 7780 8989 8584 8279 6F73 8086 827C"            /* |uw€‰‰…„‚yos€†‚| */
	$"7B80 8880 7371 777B 7878 7E80 7C75 757E"            /* {€ˆ€sqw{xx~€|uu~ */
	$"8687 8080 8586 7C78 7E7E 8075 6C74 7C7C"            /* †‡€€…†|x~~€ult|| */
	$"7980 8285 867E 838F 8B7E 7470 7580 807B"            /* y€‚…†~ƒ�‹~tpu€€{ */
	$"807C 7574 757B 8083 7B7C 8682 807C 7C7E"            /* €|utu{€ƒ{|†‚€||~ */
	$"827E 7574 7472 7278 828B 8C87 8686 827B"            /* ‚~uttrrx‚‹Œ‡††‚{ */
	$"7272 787C 807E 7C7B 7B77 797E 7C78 7479"            /* rrx|€~|{{wy~|xty */
	$"858D 8F87 807E 7B79 7475 7874 7475 7E86"            /* …��‡€~{ytuxttu~† */
	$"8B89 8386 807B 777A 8083 807E 807C 7A75"            /* ‹‰ƒ†€{wz€ƒ€~€|zu */
	$"737B 8280 807E 7C7E 7A73 7783 8683 807B"            /* s{‚€€~|~zswƒ†ƒ€{ */
	$"7A80 807B 8282 7775 777E 8580 7E80 8687"            /* z€€{‚‚wuw~…€~€†‡ */
	$"857C 7A7B 7570 717A 7E80 7E7B 8587 807B"            /* …|z{upqz~€~{…‡€{ */
	$"7B7E 7C7C 7775 7C7E 7C7C 8387 8683 7C7B"            /* {~||wu|~||ƒ‡†ƒ|{ */
	$"7A77 777B 8991 8D80 7370 7071 757B 807C"            /* zww{‰‘�€sppqu{€| */
	$"7A78 7E86 8785 807E 7E7A 7877 8086 8787"            /* zx~†‡…€~~zxw€†‡‡ */
	$"8380 7C78 7575 7A7B 7875 7A7C 7C7C 7A78"            /* ƒ€|xuuz{xuz|||zx */
	$"7E80 807C 8083 868B 8987 8078 7375 7A7A"            /* ~€€|€ƒ†‹‰‡€xsuzz */
	$"7776 7980 8080 8282 827C 7777 7A80 8286"            /* wvy€€€‚‚‚|wwz€‚† */
	$"8786 8076 7676 7C7C 7A7A 777A 7B7E 8080"            /* ‡†€vvv||zzwz{~€€ */
	$"7B77 7A80 8280 7B80 8387 8A82 7C7A 7B7B"            /* {wz€‚€{€ƒ‡Š‚|z{{ */
	$"7B82 8080 7E7A 7A7B 7B75 7677 777C 7E80"            /* {‚€€~zz{{uvww|~€ */
	$"8286 8683 8080 7C7B 7A79 7976 777A 7C83"            /* ‚††ƒ€€|{zyyvwz|ƒ */
	$"8785 807C 7B7B 7E80 8083 8686 807A 726E"            /* ‡…€|{{~€€ƒ††€zrn */
	$"7272 777C 807E 7B82 8387 8780 7A7B 807B"            /* rrw|€~{‚ƒ‡‡€z{€{ */
	$"7B7E 8286 8682 807E 7C77 767A 7C7E 7779"            /* {~‚††‚€~|wvz|~wy */
	$"7B80 807B 7B7B 807E 7A80 8080 807E 8285"            /* {€€{{{€~z€€€€~‚… */
	$"837E 7B80 8280 7975 777A 7B75 777D 8080"            /* ƒ~{€‚€yuwz{uw}€€ */
	$"7E82 8589 827A 8080 7B74 6E72 7A7E 7A77"            /* ~‚…‰‚z€€{tnrz~zw */
	$"7D80 8685 8589 8A85 7D7E 8085 8680 8082"            /* }€†……‰Š…}~€…†€€‚ */
	$"8276 7070 717B 7D7B 7E80 807A 7979 7979"            /* ‚vppq{}{~€€zyyyy */
	$"7475 8086 8683 8689 8E8A 807B 7B7B 7672"            /* tu€††ƒ†‰ŽŠ€{{{vr */
	$"7579 7D7B 7B7D 8080 7A77 7A82 807D 7E80"            /* uy}{{}€€zwz‚€}~€ */
	$"8280 7976 7B7E 7E80 8387 837A 757A 8080"            /* ‚€yv{~~€ƒ‡ƒzuz€€ */
	$"7D7D 7D7E 7B79 7D85 867E 7777 7B7D 7979"            /* }}}~{y}…†~ww{}yy */
	$"7D80 7D7B 8085 8780 797A 7E80 7B7B 7E80"            /* }€}{€…‡€yz~€{{~€ */
	$"807D 8287 8780 7774 767A 7A79 7D80 7B77"            /* €}‚‡‡€wtvzzy}€{w */
	$"7A80 8180 7B7A 8187 8884 8483 807A 7679"            /* z€�€{z�‡ˆ„„ƒ€zvy */
	$"7A79 746F 7279 7E80 8183 817E 7D7E 8081"            /* zytory~€�ƒ�~}~€� */
	$"817D 7A7B 7D7D 7D80 7E7B 7E81 8487 8781"            /* �}z{}}}€~{~�„‡‡� */
	$"7A77 777B 7D7B 7672 757A 7E80 8384 817D"            /* zww{}{vruz~€ƒ„�} */
	$"7B7A 7B7D 7B79 7D80 8080 8080 7D7A 7979"            /* {z{}{y}€€€€€}zyy */
	$"8086 8482 8282 8080 7E7E 7B75 7270 7580"            /* €†„‚‚‚€€~~{urpu€ */
	$"817D 7A7E 8080 8281 8080 8080 8289 8680"            /* �}z~€€‚�€€€€‚‰†€ */
	$"7A76 7878 787B 7E7E 7D7A 797D 807B 7A7D"            /* zvxxx{~~}zy}€{z} */
	$"7D7A 7878 787D 8080 8184 8887 8380 7E80"            /* }zxxx}€€�„ˆ‡ƒ€~€ */
	$"8080 807E 7B78 7576 7879 7A7D 8080 8383"            /* €€€~{xuvxyz}€€ƒƒ */
	$"8380 7A75 7479 7A79 797B 7D80 8284 8683"            /* ƒ€zutyzyy{}€‚„†ƒ */
	$"7E79 797B 7A79 8086 8782 7D7B 7A7E 7A76"            /* ~yy{zy€†‡‚}{z~zv */
	$"797E 8080 8081 8280 7A76 797B 7B78 7678"            /* y~€€€�‚€zvy{{xvx */
	$"7D80 8188 8884 817D 8080 8079 7070 7178"            /* }€�ˆˆ„�}€€€yppqx */
	$"7B7E 8080 807B 7D80 8186 8080 7E7D 8181"            /* {~€€€{}€�†€€~}�� */
	$"837D 7D7D 767B 7D80 7D7B 7B76 7D80 7B7E"            /* ƒ}}}v{}€}{{v}€{~ */
	$"7E7E 7D7E 8080 8278 7476 7B83 8282 8282"            /* ~~}~€€‚xtv{ƒ‚‚‚‚ */
	$"817B 7E7D 7D7B 7476 7B7E 7B79 8081 817D"            /* �{~}}{tv{~{y€��} */
	$"797E 8284 8281 8281 807B 7B7B 7975 7076"            /* y~‚„‚�‚�€{{{yupv */
	$"7B82 8482 8083 8380 7E7D 7B79 7976 7879"            /* {‚„‚€ƒƒ€~}{yyvxy */
	$"7876 7B80 8687 8380 7B7D 7E7E 8083 8481"            /* xv{€†‡ƒ€{}~~€ƒ„� */
	$"8080 7E7D 7B79 797D 7B78 777E 8382 807B"            /* €€~}{yy}{xw~ƒ‚€{ */
	$"7B7D 7D7B 777B 7D7D 7E84 8583 807B 7E81"            /* {}}{w{}}~„…ƒ€{~� */
	$"8280 7B7B 7D7D 7977 7777 777B 8184 8480"            /* ‚€{{}}ywwww{�„„€ */
	$"7978 7E80 7E7D 8083 8481 7E7B 7B7B 7B7B"            /* yx~€~}€ƒ„�~{{{{{ */
	$"7B7B 797B 8083 8483 7E79 7B7E 7D7D 8080"            /* {{y{€ƒ„ƒ~y{~}}€€ */
	$"8080 7B7B 7D7D 7977 7B80 7E79 797B 7D7E"            /* €€{{}}yw{€~yy{}~ */
	$"7B7B 8082 8180 8084 8585 8182 8280 7977"            /* {{€‚�€€„……�‚‚€yw */
	$"7979 7772 767B 8082 8080 807E 7E7D 8282"            /* yywrv{€‚€€€~~}‚‚ */
	$"7E7E 7B7E 7B7B 7D80 7E79 797B 7D7E 7D80"            /* ~~{~{{}€~yy{}~}€ */
	$"8386 807D 7E80 7E79 7B7E 8180 7B79 797E"            /* ƒ†€}~€~y{~�€{yy~ */
	$"7B7B 8080 807B 7D81 8383 807E 7D7D 7B79"            /* {{€€€{}�ƒƒ€~}}{y */
	$"7D80 807B 797E 8084 8280 7E79 7978 7B7D"            /* }€€{y~€„‚€~yyx{} */
	$"7B79 787B 7B7D 8080 8182 8383 8485 807B"            /* {yx{{}€€�‚ƒƒ„…€{ */
	$"7979 7B7B 7B78 7979 7B7D 8081 8280 7E7B"            /* yy{{{xyy{}€�‚€~{ */
	$"7B79 8083 8382 7E7B 7D7D 7B7B 7A78 787A"            /* {y€ƒƒ‚~{}}{{zxxz */
	$"7D82 8180 7E7E 8080 807D 7B7C 7C7E 8080"            /* }‚�€~~€€€}{||~€€ */
	$"8080 8080 807D 7B7A 797A 7C7D 8282 807E"            /* €€€€€}{zyz|}‚‚€~ */
	$"7B7C 7B7D 7C7E 807D 7C7B 7E80 8080 7E7E"            /* {|{}|~€}|{~€€€~~ */
	$"7E7D 7D7E 8080 7D80 8080 7D7D 7B7E 8282"            /* ~}}~€€}€€€}}{~‚‚ */
	$"8080 7D7C 7B79 797D 8080 7E7E 8082 807C"            /* €€}|{yy}€€~~€‚€| */
	$"7B7B 797B 7B80 8585 827D 7D7E 7C79 797E"            /* {{y{{€……‚}}~|yy~ */
	$"7E7B 7B7B 7E82 827D 7E80 7E7C 7B7C 8080"            /* ~{{{~‚‚}~€~|{|€€ */
	$"8080 8282 807D 7C7E 8080 7C7B 7B79 797C"            /* €€‚‚€}|~€€|{{yy| */
	$"8084 8480 7C7B 7B7B 7E7C 7B7D 7D7B 7B7B"            /* €„„€|{{{~|{}}{{{ */
	$"7B7E 8280 7C80 8080 8080 807E 7D7D 8080"            /* {~‚€|€€€€€€~}}€€ */
	$"807E 7B7B 7C7D 7978 7B7E 8082 8082 8280"            /* €~{{|}yx{~€‚€‚‚€ */
	$"797B 807C 7B77 757B 8082 8284 8582 7D78"            /* y{€|{wu{€‚‚„…‚}x */
	$"777C 7E7C 7C7E 8080 7C7C 8082 807C 7B7C"            /* w|~||~€€||€‚€|{| */
	$"8080 7C7C 7E80 807E 7E80 7D79 797D 8080"            /* €€||~€€~~€}yy}€€ */
	$"7E7D 7E80 8080 8080 807C 7B79 7D80 7E7C"            /* ~}~€€€€€€|{y}€~| */
	$"7C80 807E 7D80 807D 7C7B 7C80 8080 7D7C"            /* |€€~}€€}|{|€€€}| */
	$"7B7A 7B7D 8080 807E 7C7E 8080 8080 8282"            /* {z{}€€€~|~€€€€‚‚ */
	$"8180 8080 7C7A 787A 7C7D 7C7A 7C80 8080"            /* �€€€|zxz|}|z|€€€ */
	$"807E 7C7C 7C7D 8083 8382 807E 7D7C 7C7C"            /* €~|||}€ƒƒ‚€~}||| */
	$"7D7C 7B7B 7B7E 8082 807C 7C7C 7E82 8380"            /* }|{{{~€‚€|||~‚ƒ€ */
	$"7E7C 7C7E 807E 7D80 8080 7E7C 7B7A 7B7D"            /* ~||~€~}€€€~|{z{} */
	$"807E 7E7C 797B 7E80 8080 807D 7C7C 7C80"            /* €~~|y{~€€€€}|||€ */
	$"8080 807E 7A79 797C 8082 807C 7A7C 8081"            /* €€€~zyy|€‚€|z|€� */
	$"8182 8281 8080 7E7D 7D7B 7A7C 7C7A 7A7B"            /* �‚‚�€€~}}{z||zz{ */
	$"7C80 807E 7E80 8080 8181 8080 7D7C 7B7A"            /* |€€~~€€€��€€}|{z */
	$"787A 7D80 807D 7A7A 7C80 8183 827E 7A7A"            /* xz}€€}zz|€�ƒ‚~zz */
	$"7D83 8683 8280 7D7D 7D7D 7E7E 7D7C 7D7B"            /* }ƒ†ƒ‚€}}}}~~}|}{ */
	$"7A7A 7A7D 8080 7D7C 7D7D 7D80 8181 807E"            /* zzz}€€}|}}}€��€~ */
	$"7D7D 7E7C 7D7D 807E 7D7D 7D7E 8080 7E7D"            /* }}~|}}€~}}}~€€~} */
	$"7D7D 7E82 8584 8180 7D7C 7D7B 7979 7977"            /* }}~‚…„�€}|}{yyyw */
	$"797A 7C80 8284 8381 807D 7D80 8082 8281"            /* yz|€‚„ƒ�€}}€€‚‚� */
	$"7D7C 7C7C 7D7E 807E 7D7B 7878 7A7C 8081"            /* }|||}~€~}{xxz|€� */
	$"8280 807D 8081 8281 807D 7D7D 8080 8180"            /* ‚€€}€�‚�€}}}€€�€ */
	$"7D7C 7B7B 7B7A 7B7C 7D7E 8182 8182 8080"            /* }|{{{z{|}~�‚�‚€€ */
	$"807D 7A79 7979 7B7C 7D7E 807E 7D80 8182"            /* €}zyyy{|}~€~}€�‚ */
	$"8280 7E7E 7D7D 8081 8484 807C 7B7B 7B7C"            /* ‚€~~}}€�„„€|{{{| */
	$"7D7C 7B7B 7A7B 7D80 807E 7D7C 7C7C 7D80"            /* }|{{z{}€€~}|||}€ */
	$"8283 8280 7E7E 7D7B 7B7B 7D7D 7C7A 7B7C"            /* ‚ƒ‚€~~}{{{}}|z{| */
	$"7C7D 8080 8180 8080 8282 8282 8080 7D7B"            /* |}€€�€€€‚‚‚‚€€}{ */
	$"7C80 817D 7A79 797B 7B7D 8080 8080 8080"            /* |€�}zyy{{}€€€€€€ */
	$"8081 807D 7D7B 7979 7B7E 8181 8080 7D7D"            /* €�€}}{yy{~��€€}} */
	$"7D7D 7E80 807D 8080 8080 8082 8281 807C"            /* }}~€€}€€€€€‚‚�€| */
	$"7B7B 7B7D 8080 807D 7D7D 7D80 807D 7C7B"            /* {{{}€€€}}}}€€}|{ */
	$"7C7E 8282 8280 807E 7B7B 7B7C 7C7B 7B7B"            /* |~‚‚‚€€~{{{||{{{ */
	$"7B7D 7D7D 8082 8280 8080 8181 8080 8180"            /* {}}}€‚‚€€€��€€�€ */
	$"7C79 7A7B 7E80 8080 807E 7B7C 7D80 7E7C"            /* |yz{~€€€€~{|}€~| */
	$"7D7D 7D7C 7D80 8080 7D7B 7B7E 7D7C 7E80"            /* }}}|}€€€}{{~}|~€ */
	$"807E 7E7E 8080 7E7C 7E7E 807E 7E80 8180"            /* €~~~€€~|~~€~~€�€ */
	$"7E7E 7E7E 7E7E 7E80 7E7A 7A7B 7E80 8180"            /* ~~~~~~~€~zz{~€�€ */
	$"8182 807E 7E7E 8080 7E7E 7E7E 7B7A 7C7E"            /* �‚€~~~€€~~~~{z|~ */
	$"8080 7D7E 8080 7E7E 7E80 807E 7E7E 807E"            /* €€}~€€~~~€€~~~€~ */
	$"7E80 8080 807E 7E80 807E 7E7E 7E7E 7E7E"            /* ~€€€€~~€€~~~~~~~ */
	$"7E7E 7D7B 7C7D 8081 8080 807E 7C7B 7A7D"            /* ~~}{|}€�€€€~|{z} */
	$"8081 807E 7D7D 7E80 8081 8180 807E 8080"            /* €�€~}}~€€��€€~€€ */
	$"8080 8080 807E 7D7A 7B7C 7D7E 8082 807E"            /* €€€€€~}z{|}~€‚€~ */
	$"7D7E 7E80 807E 7E7E 7C7B 7B7D 7E7E 7D7E"            /* }~~€€~~~|{{}~~}~ */
	$"8081 8080 7E7E 7E7D 7E81 8281 807D 7E80"            /* €�€€~~~}~�‚�€}~€ */
	$"7E7D 7E80 7E7E 7E80 8080 807E 8081 807C"            /* ~}~€~~~€€€€~€�€| */
	$"7A7C 7D7E 7E80 8281 807C 7C80 807E 7D7E"            /* z|}~~€‚�€||€€~}~ */
	$"7E7D 7B7A 7C80 807E 7E80 8180 7C7D 8080"            /* ~}{z|€€~~€�€|}€€ */
	$"7E7E 7E80 807E 7C7D 8080 8080 8080 807E"            /* ~~~€€~|}€€€€€€€~ */
	$"7E80 807E 7E7E 8081 7E7C 7C7D 7C7D 7C7E"            /* ~€€~~~€�~||}|}|~ */
	$"8080 7C7B 7E80 807E 7D7D 7D7C 7B7C 8082"            /* €€|{~€€~}}}|{|€‚ */
	$"8280 8080 7E7E 7D7D 7E80 8080 8181 807E"            /* ‚€€€~~}}~€€€��€~ */
	$"7D7D 7E7E 7D7B 7D7E 7E7E 8080 807D 7B7B"            /* }}~~}{}~~~€€€}{{ */
	$"7E80 807E 7E80 8282 8281 8180 7E7B 7D7E"            /* ~€€~~€‚‚‚��€~{}~ */
	$"7E7D 7C7C 7C7D 7D7E 8080 8180 7E80 8080"            /* ~}|||}}~€€�€~€€€ */
	$"7E80 8081 8080 8080 807E 7E80 807E 7D7A"            /* ~€€�€€€€€~~€€~}z */
	$"7B7C 7E7E 7E80 7E7E 7D7D 7E80 7E7E 7E80"            /* {|~~~€~~}}~€~~~€ */
	$"8080 7E80 807E 7E7D 7E7E 8080 7E80 8081"            /* €€~€€~~}~~€€~€€� */
	$"8182 8281 7E7C 7B7B 7C7E 7E7E 7E80 7E7D"            /* �‚‚�~|{{|~~~~€~} */
	$"7D7D 7D7D 7D7E 8080 8080 8182 8281 7E7E"            /* }}}}}~€€€€�‚‚�~~ */
	$"7D7B 797B 7D80 8180 8080 807E 7E7E 8080"            /* }{y{}€�€€€€~~~€€ */
	$"7D7C 7E80 807E 7E7E 7E80 8080 8180 7E7C"            /* }|~€€~~~~€€€�€~| */
	$"7D7E 7D7C 7C7C 7E7E 7E7E 8080 7E7E 8080"            /* }~}|||~~~~€€~~€€ */
	$"807E 7E7E 8080 7E7E 7E7E 7D7B 7C7E 8081"            /* €~~~€€~~~~}{|~€� */
	$"8181 8181 8080 8182 807D 7B7C 7C7D 7D7E"            /* ����€€�‚€}{||}}~ */
	$"7E80 7E7D 7D80 807E 7D7E 8080 8080 8181"            /* ~€~}}€€~}~€€€€�� */
	$"807D 7D7E 7D7C 7C7C 7E81 8080 8080 7E7D"            /* €}}~}|||~�€€€€~} */
	$"7E80 8180 7D7D 8081 8180 7E7E 7D7D 7E80"            /* ~€�€}}€��€~~}}~€ */
	$"8181 807D 7C7C 7D7D 7D7D 7E80 8081 8282"            /* ��€}||}}}}~€€�‚‚ */
	$"817F 7E7E 7E7D 7D7D 7D7D 7D7E 7E7E 7E7D"            /* �.~~~}}}}}}~~~~} */
	$"7D7F 8080 8081 8181 8180 8181 807D 7C7B"            /* }.€€€����€��€}|{ */
	$"7C7D 7E7F 7F7E 7D7D 7E7F 807F 7D7C 7D80"            /* |}~..~}}~.€.}|}€ */
	$"8181 8181 8180 7E7D 7D7D 7D7D 7E80 807F"            /* �����€~}}}}}~€€. */
	$"7E7E 8080 7E7D 7F80 807E 7E80 8181 8080"            /* ~~€€~}.€€~~€��€€ */
	$"7F7E 7D7D 7D7E 7D7B 7B7C 7E80 8181 8182"            /* .~}}}~}{{|~€���‚ */
	$"8180 8080 7F7D 7C7C 7D7E 7E7E 8080 807F"            /* �€€€.}||}~~~€€€. */
	$"7E80 8080 8080 8081 807F 8080 8080 8080"            /* ~€€€€€€�€.€€€€€€ */
	$"7F7D 7C7C 7D80 8080 8080 7F7D 7E7E 7E7D"            /* .}||}€€€€€.}~~~} */
	$"7D7C 7E81 8182 8282 817F 7D7C 7C7C 7D7C"            /* }|~��‚‚‚�.}|||}| */
	$"7D7E 8080 8181 8080 8080 8080 8080 7F80"            /* }~€€��€€€€€€€€.€ */
	$"807F 7E7D 7C7C 7E7E 7E7F 7F7E 7E7E 7F80"            /* €.~}||~~~..~~~.€ */
	$"8080 8080 7F7F 7E7F 8080 807E 7E7E 7E7E"            /* €€€€..~.€€€~~~~~ */
	$"7E7E 7E7D 7C7D 7F80 8080 8080 8080 8080"            /* ~~~}|}.€€€€€€€€€ */
	$"8080 807F 7F7F 7F7F 7E7F 7E7E 7D7C 7E7F"            /* €€€.....~.~~}|~. */
	$"7E7D 7E80 8081 8080 8080 7F7D 7E7E 7C7C"            /* ~}~€€�€€€€.}~~|| */
	$"7C7D 7F80 807F 8080 8080 8081 8080 807F"            /* |}.€€.€€€€€�€€€. */
	$"7F80 807F 7F7F 7D7C 7C7E 7F80 807E 7E7F"            /* .€€...}||~.€€~~. */
	$"807F 7E7F 807F 7E7F 8080 8080 7F7F 8080"            /* €.~.€.~.€€€€..€€ */
	$"7E7E 7E7E 7E7D 7E7E 807F 7E7E 8081 8081"            /* ~~~~~}~~€.~~€�€� */
	$"8180 807E 7E7E 8080 7D7C 7D7F 8080 807F"            /* �€€~~~€€}|}.€€€. */
	$"7E7D 7D7E 8080 7F7E 7E7E 7F7F 8080 7F7E"            /* ~}}~€€.~~~..€€.~ */
	$"7C7D 7E80 8080 7F7F 8080 8080 8080 807F"            /* |}~€€€..€€€€€€€. */
	$"8080 807E 7E7E 7E7E 7F7F 7F7E 7D7E 7F80"            /* €€€~~~~~...~}~.€ */
	$"8080 7E7E 7E7E 7F80 8080 807F 8080 807F"            /* €€~~~~.€€€€.€€€. */
	$"7F7F 7E7D 7D7E 7E7E 7E7E 7E7F 8080 8080"            /* ..~}}~~~~~~.€€€€ */
	$"8080 8080 8080 7F7E 7E7D 7D7D 7F80 8080"            /* €€€€€€.~~}}}.€€€ */
	$"8080 8080 7E7D 7E7E 7F7F 8080 807F 7F7F"            /* €€€€~}~~..€€€... */
	$"807F 7D7D 7D7D 7E7E 8080 8080 8080 807F"            /* €.}}}}~~€€€€€€€. */
	$"7F7F 8080 807F 7F80 8080 7F7F 8080 7F7F"            /* ..€€€..€€€..€€.. */
	$"7E7E 7E7D 7D7F 8080 7F7F 7F80 8080 7F80"            /* ~~~}}.€€...€€€.€ */
	$"8080 7F80 807F 7E7E 7E7F 807F 7F7F 7E7E"            /* €€.€€.~~~.€...~~ */
	$"7E7E 8080 8080 7F7F 8080 7E7E 7E7D 7D7E"            /* ~~€€€€..€€~~~}}~ */
	$"8080 8080 8080 8080 7E7D 7D7D 7E7F 8080"            /* €€€€€€€€~}}}~.€€ */
	$"8180 807F 7F7E 7E7E 7E7E 7E7F 8080 807F"            /* �€€..~~~~~~.€€€. */
	$"7E7F 8080 8080 807F 7E7E 7E80 8080 7F7E"            /* ~.€€€€€.~~~€€€.~ */
	$"7E7E 7F80 8080 807F 7E7E 7F80 8080 8080"            /* ~~.€€€€.~~.€€€€€ */
	$"807F 7E7E 7E7E 7E7F 8080 8080 7F80 8080"            /* €.~~~~~.€€€€.€€€ */
	$"7F7F 7E7E 7E7E 7E80 8080 8080 807F 7E7E"            /* ..~~~~~€€€€€€.~~ */
	$"7E7E 7E7F 8081 8180 807E 7E7E 7E7F 7F7F"            /* ~~~.€��€€~~~~... */
	$"7E7E 8080 8080 807F 7E7E 7D7E 7E7E 7F80"            /* ~~€€€€€.~~}~~~.€ */
	$"8181 807F 7E7F 807F 8080 807F 7F7E 7F7F"            /* ��€.~.€.€€€..~.. */
	$"7F7E 7F7F 7F7E 7E7F 8080 7F7F 7F80 8080"            /* .~...~~.€€...€€€ */
	$"8080 7F7E 7E7F 7F7F 7E7E 7E80 807F 8080"            /* €€.~~...~~~€€.€€ */
	$"8080 7F7E 7E7E 7E7E 8080 8080 7F7E 7F7F"            /* €€.~~~~~€€€€.~.. */
	$"7E7E 7F80 807F 7E7F 8080 8080 7F7E 7D7D"            /* ~~.€€.~.€€€€.~}} */
	$"7E7F 8080 8080 8080 7F7E 7E7E 7E7E 7E80"            /* ~.€€€€€€.~~~~~~€ */
	$"807F 7F7F 8080 7F7E 7E7F 7F7F 7F7E 7F80"            /* €...€€.~~....~.€ */
	$"7F7F 807F 7F7E 7E7E 8080 8080 8080 7F7E"            /* ..€..~~~€€€€€€.~ */
	$"7E7E 7F80 8080 7F7E 7E7E 7E7F 7F7E 7E7F"            /* ~~.€€€.~~~~..~~. */
	$"7F80 8080 8080 8080 7F7F 7F7F 7F7F 8080"            /* .€€€€€€€......€€ */
	$"7F7E 7E7E 7E7E 7F7F 8080 8080 8080 8080"            /* .~~~~~..€€€€€€€€ */
	$"7F7F 7F7E 7F7F 8080 807F 7F7F 8080 7F7F"            /* ...~..€€€...€€.. */
	$"7F7E 7F7F 8080 807F 7F7F 7F7F 7F7F 8080"            /* .~..€€€.......€€ */
	$"807F 7F7F 8080 807F 7F7F 7F80 8080 8080"            /* €...€€€....€€€€€ */
	$"7F7F 7F7F 7E7E 7E7F 8080 807F 7F7F 7F7F"            /* ....~~~.€€€..... */
	$"7F7F 7F7E 7F80 8080 8080 8080 7F7F 7F7F"            /* ...~.€€€€€€€.... */
	$"8080 7F7F 7F7F 7F7F 7F7F 7F7E 7E7F 8080"            /* €€.........~~.€€ */
	$"8080 8080 807F 7F7F 7F7F 7F7F 7F7F 7F7F"            /* €€€€€........... */
	$"7F80 807F 7E7F 7F80 8080 8080 7F7F 7F7F"            /* .€€.~..€€€€€.... */
	$"7F7F 7F7F 7F7F 7F7F 7F80 8080 8080 8080"            /* .........€€€€€€€ */
	$"807F 7F7F 7F7F 7F7F 7F7F 7F80 8080 7F7F"            /* €..........€€€.. */
	$"7E7E 7F7F 7F80 8080 8080 8080 8080 8080"            /* ~~...€€€€€€€€€€€ */
	$"8080 8080 7F7F 7F7E 7F7F 7F7F 7F7F 7F7F"            /* €€€€...~........ */
	$"7F80 8080 8080 807F 8080 7F7F 7F7F 8080"            /* .€€€€€€.€€....€€ */
	$"7F7F 807F 7F7F 7F7F 7F7F 7F80 8080 807F"            /* ..€........€€€€. */
	$"7F7F 7F7F 7F7F 7F7F 7F7F 7F80 807F 8080"            /* ...........€€.€€ */
	$"8080 8080 8080 8080 8080 7F7F 7F7F 807F"            /* €€€€€€€€€€....€. */
	$"7F7F 7F7F 7F7E 7F7F 807F 8080 8080 807F"            /* .....~..€.€€€€€. */
	$"7F80 7F80 8080 807F 7F7F 7F7F 7F80 7F7F"            /* .€.€€€€......€.. */
	$"7F7F 7F80 807F 7F7F 7F7F 8080 7F7F 7F7F"            /* ...€€.....€€.... */
	$"8080 8080 8080 7F7F 7F7F 7F7F 7F7F 8080"            /* €€€€€€........€€ */
	$"8080 807F 7F7F 7F7F 7F7F 7F7F 7F7F 7F7F"            /* €€€............. */
	$"7F7F 7F7F 7F80 8080 8080 8080 7F7F 7F7F"            /* .....€€€€€€€.... */
	$"7F7F 7F7F 7F7F 7F7F 7F7F 7F80 8080 8080"            /* ...........€€€€€ */
	$"8080 7F7F 8080 807F 7F7F 7F7F 7F7F 7F7F"            /* €€..€€€......... */
	$"7F7F 7F7F 7F7F 7F7F 8080 8080 8080 7F7F"            /* ........€€€€€€.. */
	$"7F7F 807F 7F7F 8080 8080 8080 7F7F 7F7F"            /* ..€...€€€€€€.... */
	$"7F7F 7F7F 8080 8080 7F7F 7F7F 7F7F 7F80"            /* ....€€€€.......€ */
	$"7F7F 7F80 807F 7F7F 8080 807F 7F7F 7F7F"            /* ...€€...€€€..... */
	$"8080 8080 7F7F 7F7F 7F7F 7F7F 7F7F 7F7F"            /* €€€€............ */
	$"8080 8080 8080 807F 7F7F 8080 8080 807F"            /* €€€€€€€...€€€€€. */
	$"7F7F 7F7F 807F 7F7F 7F7F 7F7F 7F80 807F"            /* ....€........€€. */
	$"7F7F 7F80 7F7F 8080 8080 7F7F 7F7F 7F7F"            /* ...€..€€€€...... */
	$"7F7F 7F7F 7F7F 7F7F 7F7F 7F80 807F 7F80"            /* ...........€€..€ */
	$"7F7F 7F7F 7F7F 7F7F 7F80 8080 8080 8080"            /* .........€€€€€€€ */
	$"7F7F 7F7F 7F7F 8080 807F 7F7F 7F7F 7F7F"            /* ......€€€....... */
	$"8080 7F7F 7F7F 7F7F 7F7F 7F80 7F7F 7F7F"            /* €€.........€.... */
	$"7F7F 8080 8080 7F7F 7F7F 7F7F 7F80 807F"            /* ..€€€€.......€€. */
	$"7F80 807F 7F7F 7F80 807F 7F80 8080 8080"            /* .€€....€€..€€€€€ */
	$"807F 7F7F 7F7F 7F7F 7F80 8080 7F7F 7F7F"            /* €........€€€.... */
	$"7F80 8080 8080 7F7F 7F7F 7F7F 8080 807F"            /* .€€€€€......€€€. */
	$"7F7F 7F7F 7F7F 7F7F 7F7F 8080 8080 7F7F"            /* ..........€€€€.. */
	$"7F7F 7F7F 7F80 8080 8080 807F 7F7F 7F7F"            /* .....€€€€€€..... */
	$"7F7F 8080 807F 7F7F 7F7F 7F7F 7F7F 7F7F"            /* ..€€€........... */
	$"7F80 8080 8080 807F 7F7F 7F7F 8080 8080"            /* .€€€€€€.....€€€€ */
	$"8080 7F7F 7F7F 7F7F 7F7F 7F7F 7F80 8080"            /* €€...........€€€ */
	$"7F7F 7F7F 8080 8080 8080 8080 7F7F 7F7F"            /* ....€€€€€€€€.... */
	$"7F7F 7F7F 7F7F 7F7F 7F7F 7F7F 7F7F 7F80"            /* ...............€ */
	$"8080 7F7F 8080 807F 8080 7F7F 7F7F 7F80"            /* €€..€€€.€€.....€ */
	$"7F7F 7F7F 7F7F 7F7F 807F 7F7F 8080 807F"            /* ........€...€€€. */
	$"7F7F 7F7F 7F7F 7F7F 7F7F 7F80 7F7F 8080"            /* ...........€..€€ */
	$"8080 8080 807F 7F7F 7F7F 7F7F 7F7F 8080"            /* €€€€€.........€€ */
	$"807F 8080 7F7F 7F7F 7F80 8080 8080 7F7F"            /* €.€€.....€€€€€.. */
	$"7F7F 7F7F 7F7F 7F7F 7F80 807F 7F7F 7F7F"            /* .........€€..... */
	$"7F7F 7F7F 7F7F 7F80 807F 7F7F 7F7F 7F7F"            /* .......€€....... */
	$"7F7F 7F7F 8080 807F 7F7F 7F80 8080 8080"            /* ....€€€....€€€€€ */
	$"7F7F 7F7F 7F7F 7F7F 7F7F 7F7F 7F7F 7F7F"            /* ................ */
	$"8080 8080 8080 8080 7F7F 7F7F 7F7F 7F7F"            /* €€€€€€€€........ */
	$"7F7F 7F80 8080 807F 7F7F 7F7F 7F7F 8080"            /* ...€€€€.......€€ */
	$"8080 7F7F 7F80 807F 7F7F 7F7F 7F80 7F80"            /* €€...€€......€.€ */
	$"807F 7F7F 7F7F 8080 8080 8080 807F 807F"            /* €.....€€€€€€€.€. */
	$"7F7F 7F7F 7F80 807F 7F7F 7F7F 8080 8080"            /* .....€€.....€€€€ */
	$"8080 8080 7F7F 7F7F 7F7F 7F7F 7F7F 7F7F"            /* €€€€............ */
	$"7F7F 7F7F 7F7F 8080 8080 8080 7F7F 7F7F"            /* ......€€€€€€.... */
	$"8080 807F 7F7F 7F80 807F 7F7F 7F7F 7F7F"            /* €€€....€€....... */
	$"8080 8080 8080 8080 7F7F 7F7F 7F7F 7F80"            /* €€€€€€€€.......€ */
	$"8080 8080 8080 807F 7F7F 7F7F 7F7F 7F7F"            /* €€€€€€€......... */
	$"7F7F 807F 7F7F 7F7F 8080 807F 7F7F 7F80"            /* ..€.....€€€....€ */
	$"8080 807F 7F7F 7F7F 7F7F 7F80 7F7F 7F7F"            /* €€€........€.... */
	$"7F7F 7F7F 807F 7F7F 7F80 8080 8080 807F"            /* ....€....€€€€€€. */
	$"7F7F 7F7F 7F80 8080 7F7F 7F7F 807F 7F7F"            /* .....€€€....€... */
	$"7F7F 7F7F 7F7F 8080 8080 807F 7F7F 7F7F"            /* ......€€€€€..... */
	$"7F80 8080 7F7F 7F7F 7F7F 7F80 8080 807F"            /* .€€€.......€€€€. */
	$"7F7F 7F7F 7F7F 807F 7F7F 7F80 7F7F 7F7F"            /* ......€....€.... */
	$"7F7F 7F7F 8080 8080 8080 7F7F 7F7F 7F7F"            /* ....€€€€€€...... */
	$"7F7F 7F7F 7F7F 7F7F 7F7F 7F7F 7F7F 7F80"            /* ...............€ */
	$"807F 7F80 8080 807F 7F7F 8080 7F7F 807F"            /* €..€€€€...€€..€. */
	$"7F7F 7F7F 7F7F 7F80 8080 7F7F 7F7F 7F7F"            /* .......€€€...... */
	$"7F7F 7F7F 7F7F 7F80 8080 8080 7F7F 7F7F"            /* .......€€€€€.... */
	$"8080 807F 7F7F 7F7F 7F7F 7F7F 7F80 8080"            /* €€€..........€€€ */
	$"807F 7F7F 7F7F 8080 7F7F 7F7F 8080 8080"            /* €.....€€....€€€€ */
	$"8080 7F7F 7F7F 7F7F 7F7F 7F7F 7F7F 7F7F"            /* €€.............. */
	$"7F80 8080 807F 7F7F 7F80 8080 807F 7F7F"            /* .€€€€....€€€€... */
	$"8080 8080 8080 8080 8080 8080 8080 8080"            /* €€€€€€€€€€€€€€€€ */
	$"8080 8080 8080 8080 8080 8080 8080 8080"            /* €€€€€€€€€€€€€€€€ */
	$"8080 8080 8080 8080 8080 8080 8080 8080"            /* €€€€€€€€€€€€€€€€ */
	$"8080 8080 8080 8080 8080"                           /* €€€€€€€€€€ */
};

\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/Sounds/Makefile b/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/Sounds/Makefile
new file mode 100644
index 0000000..df44a76
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/Sounds/Makefile
@@ -0,0 +1 @@
+All		ÄÄ	Sounds

Sounds	ÄÄ	Ahh ¶
			Chirp ¶
			Clavichord ¶
			DoorBell ¶
			Droplet ¶
			Eastern ¶
			Frog ¶
			Guitar ¶
			Lore ¶
			PipeOrgan ¶
			Quack ¶
			SimpleBeep ¶
			Sosumi ¶
			Swish ¶
			Trumpets ¶
			Whip ¶
			Whoosh

.		Ä	.r
	RezIIGS {Default}.r -o {Default} -t $70D80003
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/Sounds/PipeOrgan.r b/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/Sounds/PipeOrgan.r
new file mode 100644
index 0000000..a9d0e0f
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/Sounds/PipeOrgan.r
@@ -0,0 +1 @@
+data $8014 (0x18024) {
	$"0100 0100 0000 3000 0000 0950 6970 654F"            /* ......0...ÆPipeO */
	$"7267 616E"                                          /* rgan */
};

data $8024 (0x30) {
	$"0000 4200 E88E 0000 772B 8080 8080 8080"            /* ..B..Ž..w+€€€€€€ */
	$"8080 8080 8080 8080 8080 8080 8080 8080"            /* €€€€€€€€€€€€€€€€ */
	$"8080 8080 8080 8080 8080 8080 8080 8080"            /* €€€€€€€€€€€€€€€€ */
	$"7C7A 7678 838A 8684 8484 8483 7F81 817D"            /* |zvxƒŠ†„„„„ƒ.��} */
	$"7D81 7E7C 8181 7F81 8180 7E74 7181 8D86"            /* }�~|��.��€~tq��† */
	$"7D7B 7A7C 7D79 7C82 7D7B 827F 787B 7C74"            /* }{z|}y|‚}{‚.x{|t */
	$"7475 7474 6C67 7E9A 998E 8C8B 8B8C 8481"            /* tuttlg~š™ŽŒ‹‹Œ„� */
	$"8780 7882 8279 8087 8181 8583 8073 6273"            /* ‡€x‚‚y€‡��…ƒ€sbs */
	$"9695 8079 7776 7C77 7581 8177 8084 7675"            /* –•€ywv|wu��w€„vu */
	$"7C72 6B6F 6D6C 6656 699E AF9D 9594 9295"            /* |rkomlfViž¯�•”’• */
	$"8D81 8988 777C 877B 7A89 8681 8685 8177"            /* ��‰ˆw|‡{z‰†�†…�w */
	$"5A5B 8CA4 8D7B 7672 7979 727D 8679 7A87"            /* Z[Œ¤�{vryyr}†yz‡ */
	$"7A6F 7671 6465 6562 5E4E 518C BFB8 A7A3"            /* zovqdeeb^NQŒ¿¸§£ */
	$"9C9C 998A 868C 7D76 8380 7683 887C 8188"            /* œœ™Š†Œ}vƒ€vƒˆ|�ˆ */
	$"8071 594E 78A9 A287 7E77 757C 7A78 8382"            /* €qYNx©¢‡~wu|zxƒ‚ */
	$"7980 7C6C 6F70 5B54 6468 5B4D 4D77 B8CD"            /* y€|lop[Tdh[MMw¸Í */
	$"B9B0 AA9D 9C9A 8984 877B 777B 7477 8577"            /* ¹°ª�œš‰„‡{w{tw…w */
	$"677A 8976 5D4F 5D91 B29E 8884 7877 867F"            /* gz‰v]O]‘²žˆ„xw†. */
	$"7685 8373 746E 646C 6244 5170 6755 5662"            /* v…ƒstndlbDQpgUVb */
	$"95D4 D7BE B8A8 99A5 9B7E 868D 746F 766E"            /* •Ô×¾¸¨™¥›~†�tovn */
	$"787C 5C5D 837F 5F57 506A ACBE 9E90 8673"            /* x|\]ƒ._WPj¬¾ž�†s */
	$"8790 7379 8F72 676D 615D 6645 3662 7258"            /* ‡�sy�rgma]fE6brX */
	$"5B5D 72C7 F5DE C8BC 9DA5 B08A 7D96 7A68"            /* []rÇ..ȼ�¥°Š}–zh */
	$"726C 6978 6144 6A83 6458 4E4A 97CE BFA1"            /* rlixaDjƒdXNJ—ο¡ */
	$"9378 7F96 806D 8A78 6166 5C56 5F50 2B47"            /* “x.–€mŠxaf\V_P+G */
	$"7166 5C5C 59AA F1FB E0C9 ACA3 B4A4 8090"            /* qf\\Yª...ɬ£´¤€� */
	$"886E 6F68 6971 6D45 4D75 745A 4E38 72BC"            /* ˆnohiqmEMutZN8r¼ */
	$"D7BB 9B84 768D 9270 7980 6467 5957 585C"            /* ×»›„v�’py€dgYWX\ */
	$"382F 556B 5C5B 477A D6FD F9D9 BEA3 AFB7"            /* 8/Uk\[GzÖ...¾£¯· */
	$"9089 9172 786A 6868 755C 4255 6E5B 5936"            /* �‰‘rxjhhu\BUn[Y6 */
	$"459D DDDD B196 7786 9A7F 7388 676F 6158"            /* E�..±–w†š.sˆgoaX */
	$"4D5A 4E2C 3553 4D62 4E47 B0F6 FFF5 D4AA"            /* MZN,5SMbNG°...Ôª */
	$"B0C1 A686 9D77 7178 675B 676C 4646 5651"            /* °Á¦†�wqxg[glFFVQ */
	$"6458 216F CAF6 DBAD 817F 9C91 718C 7656"            /* dX!oÊ..­�.œ‘qŒvV */
	$"725B 484A 5232 2E33 3C5C 7238 64D9 FFFF"            /* r[HJR2.3<\r8d... */
	$"F3C2 AAC9 BA93 9D93 5A7B 6D5A 5A60 5249"            /* .ªɺ“�“Z{mZZ`RI */
	$"4441 5E7E 422A 9BE4 FFDA 9A74 9B96 8083"            /* DA^~B*›...št›–€ƒ */
	$"8950 6368 4B46 3D3A 2D2C 1C44 7764 2C9C"            /* ‰PchKF=:-,.Dwd,œ */
	$"EBFF FFE8 B2CD C5AF A29D 6B5E 7D57 5C4C"            /* ....²Íů¢�k^}W\L */
	$"5249 5329 517A 7C24 62B4 F4FA C482 8E98"            /* RIS)Qz|$b´..Ä‚Ž˜ */
	$"888E 806C 4076 4B4F 3631 2B3E 0A2E 6283"            /* ˆŽ€l@vKO61+>..bƒ */
	$"475A BFF5 FFFE D0C2 D2B0 BF97 8C4A 7A5E"            /* GZ¿...ÐÂÒ°¿—ŒJz^ */
	$"5E4F 4044 6230 356C 8766 3687 C3FF F2AC"            /* ^O@Db05l‡f6‡Ã..¬ */
	$"80A1 81A4 7F7B 445D 5F4E 4C25 283D 2A0E"            /* €¡�¤.{D]_NL%(=*. */
	$"4F69 8442 8BC5 FCFF F7C2 D5B7 C8B1 8E6C"            /* Oi„B‹Å...ÂշȱŽl */
	$"5477 526A 3B3F 4E58 1A58 6790 4F59 8ADE"            /* TwRj;?NX.Xg�OYŠ. */
	$"FFE3 9A90 9292 A670 723F 6D49 5E33 242C"            /* ..š�’’¦pr?mI^3$, */
	$"420D 2A48 7B78 5C9D D7FF FFEE C5CD B6D9"            /* BÂ*H{x\�×...ÅͶ. */
	$"908B 566B 5F5F 5638 435B 3B2E 5468 8955"            /* �‹Vk__V8C[;.Th‰U */
	$"7898 F4FE D491 9187 B286 7156 5860 4753"            /* x˜..Ô‘‘‡²†qVX`GS */
	$"2726 372F 0E33 4081 7090 A7F1 FFFF E3C8"            /* '&7/.3@�p�§....È */
	$"BBD8 BF89 705F 764C 6447 3E4D 5730 4642"            /* »Ø¿‰p_vLdG>MW0FB */
	$"7074 7F7D B8FE F8C0 8C81 9DAC 7660 4E72"            /* pt.}¸..ÀŒ��¬v`Nr */
	$"474F 4427 2F39 1D28 254B 7589 A2BB FCFF"            /* GOD'/9.(%Ku‰¢».. */
	$"FFDB BBC4 DEA8 7D5F 7563 5159 4545 5148"            /* ..»Ä.¨}_ucQYEEQH */
	$"4A3D 4A6B 7B92 85CB FDEE B57E 83B0 9170"            /* J=Jk{’…Ë..µ~ƒ°‘p */
	$"515E 6B48 4444 2B32 2832 2828 4E76 A0AB"            /* Q^kHDD+2(2((Nv « */
	$"D3FC FFFD CAB3 E2BF A169 6478 5D43 5943"            /* Ó...ʳ.¿¡idx]CYC */
	$"503D 565A 3353 6B8A 9B9C C9FE E9A5 69A8"            /* P=VZ3SkŠ›œÉ..¥i¨ */
	$"998A 5E52 6168 3D3D 3E3D 1B2C 5213 3A50"            /* ™Š^Rah==>=.,R.:P */
	$"80B1 C8CF FAFF F1A8 D4D6 AD92 6758 7D5A"            /* €±ÈÏ...¨ÔÖ­’gX}Z */
	$"2E59 563D 3882 374E 5471 91BE 97D2 FFEE"            /* .YV=8‚7NTq‘¾—Ò.. */
	$"7187 B079 8C59 3E6C 7318 4749 3B0B 6133"            /* q‡°yŒY>ls.GI;.a3 */
	$"2741 5C79 DCCD C7FF FFCD AFEE A3BB 8350"            /* 'A\y.ÍÇ..ͯ.£»ƒP */
	$"5898 2D3A 5E67 1569 7332 5F5D 60B5 D080"            /* X˜-:^g.is2_]`µÐ€ */
	$"E9FF C65E B77E 8881 5031 9056 1350 6116"            /* ..Æ^·~ˆ�P1�V.Pa. */
	$"2A74 1441 4851 91F5 AFDB FFF9 ACD9 D393"            /* *t.AHQ‘.¯...¬.Ó“ */
	$"BB7F 3579 8B16 4A76 4A17 994B 4268 5B5F"            /* ».5y‹.JvJ.™KBh[_ */
	$"E2B5 88EF FC8F 7FBF 5A8F 8634 44A0 2D25"            /* .µˆ..�.¿Z�†4D -% */
	$"6459 045A 580D 4D53 3DBD EEA2 ECFF EAAD"            /* dY.ZXÂMS=½.¢...­ */
	$"F6A9 98BE 692C 9D62 105E 851B 4C9D 2E54"            /* .©˜¾i,�b.^….L�.T */
	$"7641 82F0 9496 F5E9 6CB0 9A4E 9D7F 1672"            /* vA‚.”–..l°šN�..r */
	$"8A15 3580 3814 7E34 1462 4145 E8D6 A6F1"            /* Š.5€8.~4.bAE.Ö¦. */
	$"FFCA CEEF 86A4 C240 49A4 3A1C 7E70 1182"            /* .ÊÎ.†¤Â@I¤:.~p.‚ */
	$"7D25 6B75 2EB7 E084 ABFC BA73 C771 53AB"            /* }%ku.·.„«.ºsÇqS« */
	$"6119 9861 1152 8313 3D76 1623 6B1E 6DF9"            /* a.˜a.Rƒ.=v.#k.m. */
	$"CEBC F9F8 BCF0 D67B B6B7 2377 8528 3098"            /* μ..¼.Ö{¶·#w…(0˜ */
	$"4427 A35E 2A8A 603A E2B8 73BE FA94 A0B7"            /* D'£^*Š`:.¸s¾.” · */
	$"5058 B738 3996 4816 7467 0868 5609 4068"            /* PX·89–H.tg.hVÆ@h */
	$"11A4 E6AC B5FE D4B8 FFD3 83E0 9B2B A572"            /* .¤.¬µ.Ô¸.Óƒ.›+¥r */
	$"2750 A41C 558F 4B38 9B33 71F1 B586 E1E4"            /* 'P¤.U�K8›3q.µ†.. */
	$"76BF 7F28 83D1 266A 772F 1A90 3B17 754D"            /* v¿.(ƒÑ&jw/.�;.uM */
	$"0C63 592F E2D9 B4CF FCAF D2DB 7B56 B632"            /* .cY/..´Ï.¯Ò.{V¶2 */
	$"3FBA 823F 8D91 2297 9039 4FA2 2CA4 DDBE"            /* ?º‚?�‘"—�9O¢,¤.¾ */
	$"96EE B19C DB85 41AE 921A 7532 0E56 BD23"            /* –.±œ.…A®’.u2.V½# */
	$"4269 3212 8836 54F0 F8C4 E3F2 B8EF B666"            /* Bi2.ˆ6T..Ä..¸.¶f */
	$"74AE 1750 5121 0B5B 1F3D CAA4 3F93 9E47"            /* t®.PQ!.[.=ʤ?“žG */
	$"E4E7 B49D EF92 B5BA 8049 B963 5290 573E"            /* ..´�.’µº€I¹cR�W> */
	$"7D71 0D50 300C 49BE 339F F9F3 B3EF C9B5"            /* }qÂP0.I¾3Ÿ..³.ɵ */
	$"F7CB 649D AB30 662C 282F 650D 5466 3008"            /* .Ëd�«0f,(/eÂTf0. */
	$"642C 66FC FFC3 CEE7 87CA AD55 47C9 4D69"            /* d,f..ÃÎ.‡Ê­UGÉMi */
	$"5F65 477C 4246 875B 3978 761F B4BC BECC"            /* _eG|BF‡[9xv.´¼¾Ì */
	$"FCAC D3F0 AF3F BD83 4A83 7463 6E81 306A"            /* .¬Ó.¯?½ƒJƒtcn�0j */
	$"3B21 1A5F 1F9D B499 70A5 7289 F4C7 5C9E"            /* ;!._.�´™p¥r‰.Ç\ž */
	$"CF36 7055 453E 9044 656C 6521 6048 81E3"            /* Ï6pUE>�Dele!`H�. */
	$"D9F9 F5CD 6DC2 9853 62D6 5B76 8869 379A"            /* ...Ím˜SbÖ[vˆi7š */
	$"745A A4A2 635C 9157 A262 847F 8862 A48C"            /* tZ¤¢c\‘W¢b„.ˆb¤Œ */
	$"430F 744C 52AE 9170 A0B4 2275 733C 1386"            /* C.tLR®‘p ´"us<.† */
	$"73A5 B5D6 C0B2 8BB0 D8C1 A596 8F25 671E"            /* s¥µÖÀ²‹°ØÁ¥–�%g. */
	$"2060 BA5A 7EBA 8029 A09D 90D5 E8DE B4B8"            /*  `ºZ~º€) ��Õ..´¸ */
	$"687E 2E33 1559 566B 3916 2F69 2F4D C6B9"            /* h~.3.YVk9./i/Mƹ */
	$"5C8E D166 C0B1 B497 D9A7 A8AE 9E4F 4861"            /* \ŽÑfÀ±´—.§¨®žOHa */
	$"7573 6E93 8B65 1D77 4321 3ECC 92B4 ECC9"            /* usn“‹e.wC!>Ì’´.É */
	$"A9DF A782 CADB 8A58 9959 3901 3131 4A3A"            /* ©.§‚Ê.ŠX™Y9.11J: */
	$"5A5A 241E 635E 86F4 F9CE F2E7 71C3 A56D"            /* ZZ$.c^†..Î..qÃ¥m */
	$"1CA8 A565 4E65 602D 4870 8A96 797A 7A64"            /* .¨¥eNe`-HpŠ–yzzd */
	$"A455 6CA2 EF77 A9F7 A555 91AF 607E B79B"            /* ¤Ul¢.w©.¥U‘¯`~·› */
	$"6F77 4523 0937 0D54 6F90 6858 A0AD 6480"            /* owE#Æ7ÂTo�hX ­d€ */
	$"F3E0 7ABE E56A 714F 552D AB93 6070 8048"            /* ..z¾.jqOU-«“`p€H */
	$"127C AEA2 B2C8 C66C 53A6 5436 51DB 739E"            /* .|®¢²ÈÆlS¦T6Q.sž */
	$"CF8B 7E91 A34D 9AE4 8C50 7D84 290F 7364"            /* Ï‹~‘£Mš.ŒP}„).sd */
	$"8461 9C6E 4062 6B51 63DF A98D DDCA 6664"            /* „aœn@bkQc.©�.Êfd */
	$"7A57 17AE BF85 6EA7 7B28 6E92 B0AD 9D8E"            /* zW.®¿…n§{(n’°­�Ž */
	$"4F5A 8022 2B85 DC6C A6DA A372 80BF 75B4"            /* OZ€"+….l¦.£r€¿u´ */
	$"F8C8 8887 7D0F 0D47 326F 598E 352A 7865"            /* .Ȉ‡}.ÂG2oYŽ5*xe */
	$"4461 EDB9 94CD CB98 6B88 6750 C1AF 7863"            /* Da.¹”͢kˆgPÁ¯xc */
	$"9F42 0E68 88A1 93BB 994C 5B74 352A 8DD1"            /* ŸB.hˆ¡“»™L[t5*�Ñ */
	$"8CC3 DBBB 9BA1 B56F BDF4 A35B 7D6E 0607"            /* ŒÃ.»›¡µo½.£[}n.. */
	$"3B46 6B5B 883C 3C6B 5551 83F3 BBC1 E8C4"            /* ;Fk[ˆ<<kUQƒ.»Á.Ä */
	$"8E64 914B 43B0 A76B 4C94 351B 607B AD9D"            /* Žd‘KC°§kL”5.`{­� */
	$"BF80 5B75 763E 43C0 CD97 C7D8 B67B 9799"            /* ¿€[uv>CÀÍ—Çض{—™ */
	$"71B2 D99D 5D83 5201 0C3A 436B 778A 4457"            /* q².�]ƒR..:CkwŠDW */
	$"7D5B 488F F2B6 BFD3 B489 6174 4060 B599"            /* }[H�.¶¿Ó´‰at@`µ™ */
	$"6259 961A 216B 82B4 AADA 846D 7869 3C3F"            /* bY–.!k‚´ª.„mxi<? */
	$"C2AD 9BCD BDA8 7CA4 807B C3D9 9851 9240"            /* ­›Í½¨|¤€{Ã.˜Q’@ */
	$"0118 4257 6A8F 7444 5669 4A3D A8E5 B1C9"            /* ..BWj�tDViJ=¨.±É */
	$"D9AC 7B6F 683F 65B9 9A63 6E8E 2727 6F82"            /* .¬{oh?e¹šcnŽ''o‚ */
	$"AFB9 CC75 6577 562E 48CB A7A1 CDBC A87D"            /* ¯¹ÌuewV.H˧¡Í¼¨} */
	$"A478 88CC D9A0 5B94 3401 1637 5466 9868"            /* ¤xˆÌ. [”4..7Tf˜h */
	$"4552 684A 3DB6 DDBC C9D3 AF7E 7962 4F77"            /* ERhJ=¶.¼ÉÓ¯~ybOw */
	$"BB99 5D76 7F21 2468 82AB BAC4 7865 7051"            /* »™]v.!$h‚«ºÄxepQ */
	$"2F55 C8A9 AECF BCAC 86A1 7690 CED5 9657"            /* /UÈ©®Ï¼¬†¡v�ÎÕ–W */
	$"8F27 0110 345B 6B99 604F 5160 4845 C6D8"            /* �'..4[k™`OQ`HEÆØ */
	$"C7D0 D5B1 797B 5756 75B6 9255 7669 2120"            /* ÇÐÕ±y{WVu¶’Uvi!  */
	$"6180 AABE BB87 7075 5335 6CCE B2B3 CFBB"            /* a€ª¾»‡puS5lβ³Ï» */
	$"A682 9372 96CE CA91 5E8C 2202 0930 6F7E"            /* ¦‚“r–ÎÊ‘^Œ".Æ0o~ */
	$"9C5F 554E 5D43 44CD D2CD CCCF A971 7340"            /* œ_UN]CDÍÒÍÌÏ©qs@ */
	$"576E AA86 4666 5541 3F76 96C4 D9C0 9366"            /* Wnª†FfUA?v–Ä.À“f */
	$"734C 296D BFB2 ADD2 B8A6 8789 8196 B8B1"            /* sL)m¿²­Ò¸¦‡‰�–¸± */
	$"997D 8A20 0611 306A 7096 6858 4D5C 423F"            /* ™}Š ..0jp–hXM\B? */
	$"C8C4 C4B9 B89D 5E4D 1F76 ACD9 A36B 9A6B"            /* ÈÄŸ�^M.v¬.£kšk */
	$"4E2C 689A B7C8 A896 5267 492B 77B7 C7B4"            /* N,hš·È¨–RgI+w·Ç´ */
	$"BE8F 9AA6 9C92 9AD1 B887 636A 2B0D 122F"            /* ¾�š¦œ’šÑ¸‡cj+Â./ */
	$"7973 8164 4730 3834 37A0 94BF E6F8 DC86"            /* ys�dG0847 ”¿...† */
	$"865E 949B B692 5E80 4043 1C4B 90B8 C69C"            /* †^”›¶’^€@C.K�¸Æœ */
	$"AC5B 5C27 0E87 D1EB BEDC B69A 8169 99A6"            /* ¬[\'.‡Ñ.¾.¶š�i™¦ */
	$"DAAA 866D 4C1B 0A02 1475 7567 563B 5F94"            /* .ª†mL....uugV;_” */
	$"9D81 DADF E6EA CAAA 5952 336D 8692 7349"            /* ��....ʪYR3m†’sI */
	$"7640 5731 3C7C 9BBE B7D3 6E74 6432 7291"            /* v@W1<|›¾·Óntd2r‘ */
	$"CCBA E1B4 897B 6091 84BD 8F76 672E 0F02"            /* ̺.´‰{`‘„½�vg... */
	$"1454 DEDE C8D3 8883 7E7C 558E A5A6 C99D"            /* .T..ÈÓˆƒ~|UŽ¥¦É� */
	$"7C20 2C47 7AA5 825D 365F 5975 6057 BAC9"            /* | ,Gz¥‚]6_Yu`WºÉ */
	$"B8A1 A458 615F 2860 82B3 9BB1 9F7D 7059"            /* ¸¡¤Xa_(`‚³›±Ÿ}pY */
	$"7B75 BBC4 CECB 948F 533E 51C6 AE8D 9A3B"            /* {u»ÄÎË”�S>QÆ®�š; */
	$"5E5F 5C22 50A3 B7E7 9D65 090D 6F99 D4A9"            /* ^_\"P£·.�eÆÂo™Ô© */
	$"A17C 6946 4343 2E9F 9BA0 AF88 3E2D 4623"            /* ¡|iFCC.Ÿ› ¯ˆ>-F# */
	$"5A8A 8C89 90C3 D0C8 DEF6 F0F1 C5A1 8E5C"            /* ZŠŒ‰�ÃÐÈ....Å¡Ž\ */
	$"3A01 033A 996C 678C 5688 7D50 0E47 A2E1"            /* :..:™lgŒVˆ}P.G¢. */
	$"F9CE B45C 6578 63AF 7E81 3A42 4D2E 2909"            /* .δ\exc¯~�:BM.)Æ */
	$"7579 97C1 5F2C 183D 6ACB FDFF FFF9 F5A6"            /* uy—Á_,.=jË.....¦ */
	$"8DB2 9B99 7D7A 6147 1C02 1223 689B 4A78"            /* �²›™}zaG...#h›Jx */
	$"6471 C5C0 A875 CACA C0D5 978F 393C 685C"            /* dqÅÀ¨uÊÊÀÕ—�9<h\ */
	$"9D3E 2F1E 484F 2115 0851 67D7 FFF2 F3DA"            /* �>/.HO!..Qg×.... */
	$"CD92 A8DF B4E8 8078 4A49 6F1B 7690 977F"            /* Í’¨.´.€xJIo.v�—. */
	$"4040 0921 50A8 E2A6 F1B9 A28F 7763 5993"            /* @@Æ!P¨.¦.¹¢�wcY“ */
	$"6CA9 BB6E 2E03 6668 5E76 2C30 0D7F A3C9"            /* l©»n..fh^v,0Â.£É */
	$"D2AF F3CE E6E5 92B0 6638 255E 8041 8C85"            /* Ò¯.Î..’°f8%^€AŒ… */
	$"AA61 6383 3B70 88B0 C4AF AE62 9555 616E"            /* ªacƒ;pˆ°Ä¯®b•Uan */
	$"6BCC 4775 7164 2A0F 7B84 BE9F 502B 0171"            /* kÌGuqd*.{„¾ŸP+.q */
	$"89CF FDE6 E4C3 E483 8E7E 5F4D 3588 812C"            /* ‰Ï...Ã.ƒŽ~_M5ˆ�, */
	$"302D 7265 8989 789E 71AA 8CCC E0A5 E3CA"            /* 0-re‰‰xžqªŒÌ.¥.Ê */
	$"8771 6272 1644 2A50 411B 7B5E A673 592C"            /* ‡qbr.D*PA.{^¦sY, */
	$"1E51 8CF1 FFFC D6B4 F4B2 B8B9 8E57 1E58"            /* .QŒ...Ö´.²¸¹ŽW.X */
	$"193D 100D 5389 B79A 6868 3568 8CC3 F0DE"            /* .=.ÂS‰·šhh5hŒÃ.. */
	$"E6CC BA5B 8891 5E5A 785B 553A 1124 815E"            /* .̺[ˆ‘^Zx[U:.$�^ */
	$"5C3D 3A51 45BA B0F4 E7DE FBFF EEC8 B670"            /* \=:QEº°......ȶp */
	$"1E5C 4242 4B0E 1D67 9666 6F44 423E 99AF"            /* .\BBK..g–foDB>™¯ */
	$"DCF0 C2AA AC8A 8199 935E 5481 3762 472F"            /* ..ª¬Š�™“^T�7bG/ */
	$"76A4 7354 3529 1A6B 82A6 F7F3 F6EF F1BA"            /* v¤sT5).k‚¦.....º */
	$"BE98 5E34 7D55 4142 0A36 919E 806F 5E44"            /* ¾˜^4}UAB.6‘ž€o^D */
	$"659D 7DD2 D5B2 9CA8 8D9C 9865 305A 7343"            /* e�}ÒÕ²œ¨�œ˜e0ZsC */
	$"714F 5087 A465 5243 3B42 937A B2FC EBE3"            /* qOP‡¤eRC;B“z²... */
	$"CBC0 B8BF 8C43 3F77 263C 2C22 60BB A481"            /* ËÀ¸¿ŒC?w&<,"`»¤� */
	$"6B52 567F 9C7D DFE2 B48B 8386 9F76 4529"            /* kRV.œ}..´‹ƒ†ŸvE) */
	$"865C 586A 4363 879D 6457 4741 5B99 62BC"            /* †\XjCc‡�dWGA[™b¼ */
	$"FDFF D2CA BDD0 A560 2E43 5C18 3C30 4A78"            /* ..ÒʽХ`.C\.<0Jx */
	$"B496 755A 6065 BD75 84EF E7AB 6B93 9B9D"            /* ´–uZ`e½u„..«k“›� */
	$"6434 3385 4C51 615F 6BA2 9273 4032 4672"            /* d43…LQa_k¢’s@2Fr */
	$"804F D9FF F6B3 BEC9 C89B 5E24 6D47 203F"            /* €O...³¾ÉÈ›^$mG ? */
	$"3A5B 78B3 9066 4872 87AB 5693 F2E8 947B"            /* :[x³�fHr‡«V“..”{ */
	$"8DA7 9056 2F52 9249 6A5F 7275 A798 4F23"            /* �§�V/R’Ij_ru§˜O# */
	$"3D51 845D 6CEC FFE9 A0BA D1CD 814B 2871"            /* =Q„]l... ºÑÍ�K(q */
	$"3F2F 4550 6797 BA88 4F5B 8187 9050 AFEA"            /* ?/EPg—ºˆO[�‡�P¯. */
	$"E27F 6B96 A77A 522F 6D84 576E 657A 84B3"            /* ..k–§zR/m„Wnez„³ */
	$"873B 1C56 5577 517D F0FF D795 BBDC B070"            /* ‡;.VUwQ}..ו».°p */
	$"3A2E 693D 483E 5F78 AAB9 7647 7B89 8E77"            /* :.i=H>_xª¹vG{‰Žw */
	$"5ABC EFCE 656B A39F 6451 3274 816C 666E"            /* Z¼.Îek£ŸdQ2t�lfn */
	$"8B97 AE75 202F 5D5A 6A4C 9CF2 FDBC 8DCA"            /* ‹—®u /]ZjLœ..¼�Ê */
	$"D293 6A2F 3668 4F40 426F 84AC B162 4A8C"            /* Ò“j/6hO@Bo„¬±bJŒ */
	$"8A84 6872 C7F5 B758 78A9 8467 4334 7E8B"            /* Š„hrÇ.·Xx©„gC4~‹ */
	$"6E60 8195 9BAC 5D12 4C60 5955 5DAD F6F5"            /* n`�•›¬].L`YU]­.. */
	$"A692 D5BC 855E 2346 6C54 3754 7E92 B6A5"            /* ¦’Õ¼…^#FlT7T~’¶¥ */
	$"4666 9584 7269 84CA EA9B 5188 A473 6B38"            /* Ff•„ri„Ê.›Qˆ¤sk8 */
	$"4789 9868 6B8E 9AA1 A938 1E5F 5C4F 546F"            /* G‰˜hkŽš¡©8._\OTo */
	$"B5FA E895 9BDC 9F88 4D25 4F7F 4A3B 6387"            /* µ..•›.ŸˆM%O.J;c‡ */
	$"9ABF 853E 8491 7B67 7784 DCDA 804E A288"            /* š¿…>„‘{gw„..€N¢ˆ */
	$"7862 3254 9F96 607E 94A1 A492 153C 6055"            /* xb2TŸ–`~”¡¤’.<`U */
	$"4269 6DCA FED1 89B4 C892 8737 2C5C 8B37"            /* BimÊ.щ´È’‡7,\‹7 */
	$"4B71 92A2 C256 5591 866C 7177 90E8 BF6E"            /* Kq’¢ÂVU‘†lqw�.¿n */
	$"5DA7 7483 5134 60BD 7D66 899B A5AB 6316"            /* ]§tƒQ4`½}f‰›¥«c. */
	$"5855 4D44 7574 E0F5 BC86 CAA4 9B77 2533"            /* XUMDut..¼†Ê¤›w%3 */
	$"7F76 335D 78A3 A9A9 4176 8C79 6287 67A8"            /* .v3]x£©©AvŒyb‡g¨ */
	$"DFA4 6079 8D7A 8938 4181 C26A 798C A8A1"            /* .¤`y�z‰8A�ÂjyŒ¨¡ */
	$"A934 355D 4946 616A 8BF4 E3B0 91C5 95A6"            /* ©45]IFaj‹..°‘Å•¦ */
	$"5423 439A 5141 6585 A4B5 7D4E 8C77 776B"            /* T#CšQAe…¤µ}NŒwwk */
	$"8362 C3CA 9257 8C72 8D70 294D AAA7 698A"            /* ƒbÃÊ’WŒr�p)Mª§iŠ */
	$"8FB0 A290 2552 4E4C 4A7A 5CAF F5D5 A1A8"            /* �°¢�%RNLJz\¯.Õ¡¨ */
	$"AB9D 9F33 2D5F 973B 566B 99A3 BB5A 6B88"            /* «�Ÿ3-_—;Vk™£»Zkˆ */
	$"7171 7E6A 73CD B181 5985 6897 4D2E 63C4"            /* qq~jsͱ�Y…h—M.cÄ */
	$"8277 8A96 AAAE 6731 6043 525A 7862 D1E9"            /* ‚wŠ–ª®g1`CRZxbÑ. */
	$"CC99 BA93 AD7E 253C 8574 4468 73A4 B0A5"            /* Ì™º“­~%<…tDhs¤°¥ */
	$"4C85 7D78 778B 5595 C7A3 6F6E 6C78 8D33"            /* L…}xw‹U•Ç£onlx�3 */
	$"3B7F B46E 8682 9EA7 A93B 4654 3B4F 7163"            /* ;.´n†‚ž§©;FT;Oqc */
	$"82E3 DCBE A0B4 90B4 5B28 5197 5656 657F"            /* ‚..¾ ´�´[(Q—VVe. */
	$"ABBF 7E60 9372 7C81 7B51 AEBE 9E6C 7E5E"            /* «¿~`“r|�{Q®¾žl~^ */
	$"927A 2F50 A299 7689 82A4 A385 2A58 403D"            /* ’z/P¢™v‰‚¤£…*X@= */
	$"5878 509D DCCB ACAD 9FA2 AA3C 316B 924C"            /* XxP�.ˬ­Ÿ¢ª<1k’L */
	$"6267 93AF BA63 7A88 6D85 9265 6BBB B08F"            /* bg“¯ºczˆm…’ek»°� */
	$"696F 5A9E 5F3A 71BA 8686 8F95 A7A7 6036"            /* ioZž_:qº††�•§§`6 */
	$"5730 4660 6851 B6D4 C7A3 B08A AF83 203B"            /* W0F`hQ¶ÔÇ£°Š¯ƒ ; */
	$"877B 5469 6F9C B3AB 5B8B 7878 8F96 5687"            /* ‡{Tioœ³«[‹xx�–V‡ */
	$"BAAA 8374 6374 953F 4385 AA6E 8E92 A7AB"            /* ºªƒtct•?C…ªnŽ’§« */
	$"A843 4D57 3956 7258 67C3 D1BC 9BA4 88B5"            /* ¨CMW9VrXgÃѼ›¤ˆµ */
	$"5F25 5091 5D57 606E 9BC1 916C 936F 829A"            /* _%P‘]W`n›Á‘l“o‚š */
	$"8E54 9BB5 A275 7C5A 877C 3559 A199 788F"            /* ŽT›µ¢u|Z‡|5Y¡™x� */
	$"8FA5 A584 2859 4C49 6678 4683 D2D3 B0A5"            /* �¥¥„(YLIfxFƒÒÓ°¥ */
	$"9495 AA48 2F62 8852 6261 82A3 C072 7780"            /* ”•ªH/bˆRba‚£Àrw€ */
	$"6389 A77A 68A9 B094 767D 5B97 643B 6BB6"            /* c‰§zh©°”v}[—d;k¶ */
	$"8E83 8A96 A9AD 6730 553E 4F64 5F3B 9FDA"            /* ŽƒŠ–©­g0U>Od_;Ÿ. */
	$"DAAD AD82 A89B 3B3A 7776 515F 6B8D A7AD"            /* .­­‚¨›;:wvQ_k�§­ */
	$"5E84 7573 92A5 6575 A2A3 867F 7071 934A"            /* ^„us’¥eu¢£†.pq“J */
	$"3F85 C187 8C8D A8AE B54E 3C4B 3856 6D53"            /* ?…Á‡Œ�¨®µN<K8VmS */
	$"4DA7 DBCE 9E99 7ABB 8641 4B89 6459 6479"            /* M§.Ξ™z»†AK‰dYdy */
	$"94AF 8C5C 8471 7C93 9757 83A8 AB7B 855F"            /* ”¯Œ\„q|“—Wƒ¨«{…_ */
	$"7E76 2F47 9EB9 8985 8CA9 B6AC 3E51 454B"            /* ~v/Gž¹‰…Œ©¶¬>QEK */
	$"6684 4D61 B0DA BB9E 8B86 AE64 394F 8255"            /* f„Ma°.»ž‹†®d9O‚U */
	$"606E 969F BA70 748A 788B 9D84 568C B09D"            /* `n–ŸºptŠx‹�„VŒ°� */
	$"6A73 538A 6136 52B3 A783 738B A8BA 8F40"            /* jsSŠa6R³§ƒs‹¨º�@ */
	$"4D38 5677 8D4B 7EC3 E8B7 B182 9B97 4932"            /* M8Vw�K~Ã.·±‚›—I2 */
	$"5B7D 494E 6D95 98A4 608A 8A96 9BAD 6F6B"            /* [}INm•˜¤`ŠŠ–›­ok */
	$"9FBC 946A 635F 8E4F 355B BA8F 7C7B A0A2"            /* Ÿ¼”jc_ŽO5[º�|{ ¢ */
	$"B86A 4435 315B 7F80 4C84 C7E4 B7B8 8BBC"            /* ¸jD51[.€L„Ç.·¸‹¼ */
	$"8B52 468A 7447 496F 8A96 8B53 7676 9492"            /* ‹RFŠtGIoŠ–‹Svv”’ */
	$"A25A 79B2 CF87 7054 858A 4A41 77BA 837E"            /* ¢Zy²Ï‡pT…ŠJAwºƒ~ */
	$"85A3 9DAA 4E48 3244 5887 6450 86CC D2B0"            /* …£�ªNH2DX‡dP†ÌÒ° */
	$"AF98 B26D 575E A76F 575B 8B98 B377 6168"            /* ¯˜²mW^§oW[‹˜³wah */
	$"718C 908D 3D6B AABB 6A64 4E92 7D58 4A95"            /* qŒ��=kª»jdN’}XJ• */
	$"AA92 8594 A8A5 9846 4C33 555D 8A4C 60A3"            /* ª’…”¨¥˜FL3U]ŠL`£ */
	$"DCB7 B29A A694 5B4D 68A9 6251 589D A9C1"            /* .·²š¦”[Mh©bQX�©Á */
	$"747A 7595 A0B0 784C 71A8 9A5D 563E 7956"            /* tzu• °xLq¨š]V>yV */
	$"4D41 A094 8D8A A9A6 AD77 5443 4262 6A85"            /* MA ”�Š©¦­wTCBbj… */
	$"4A7A B2E1 ACB4 8BB3 8E5A 3979 905A 3B56"            /* Jz².¬´‹³ŽZ9y�Z;V */
	$"94AD B76A 7776 B6AF C97C 7094 C59C 7243"            /* ”­·jwv¶¯É|p”ÅœrC */
	$"5162 4334 47A3 7472 73AB 9CA6 5654 4B64"            /* QbC4G£trs«œ¦VTKd */
	$"6478 745E 81C4 DDAE AC8E B97B 5833 927F"            /* dxt^�Ä.®¬Ž¹{X3’. */
	$"5D41 668B AE8A 6260 77AA ACCA 7376 9ADA"            /* ]Af‹®Šb`wª¬Êsvš. */
	$"9E84 4F7A 7056 386E 9872 5A6D A29D 8F2F"            /* ž„OzpV8n˜rZm¢��/ */
	$"423E 6F58 8562 6A9C E1D6 AF96 A7AB 7750"            /* B>oX…bjœ.Ö¯–§«wP */
	$"43A1 7457 3777 8DB2 6F6E 6C86 94AB A366"            /* C¡tW7w�²onl†”«£f */
	$"6396 C08D 7D51 7E61 6448 A3AD 8D6F 93B4"            /* c–À�}Q~adH£­�o“´ */
	$"AC6A 3333 4163 597C 3E5D 93E9 C3B3 8DBD"            /* ¬j33AcY|>]“.ó�½ */
	$"B481 4A5E 9F7C 474A 8A9A A65F 6E62 958D"            /* ´�J^Ÿ|GJŠš¦_nb•� */
	$"BC8B 696C 98A0 7853 5165 4845 4BB9 A582"            /* ¼‹il˜ xSQeHEK¹¥‚ */
	$"6DBE CBCD 7157 4D63 6D69 693E 5699 DAB5"            /* m¾ËÍqWMcmii>V™.µ */
	$"9972 B192 7B40 8498 7B52 6A99 A493 6E72"            /* ™r±’{@„˜{Rj™¤“nr */
	$"7BA1 98BD 7B64 66AA 8E7B 3C61 5933 274E"            /* {¡˜½{dfªŽ{<aY3'N */
	$"AC92 6664 B4CC C163 5854 8F7F 9E77 5E71"            /* ¬’fd´ÌÁcXT�.žw^q */
	$"BCDD AE81 7AA0 765C 3884 775E 3F80 9EB2"            /* ¼.®�z v\8„w^?€ž² */
	$"7577 819A A7A0 BB80 6980 B08D 6F3C 6344"            /* uw�š§ »€i€°�o<cD */
	$"3E1F 75A0 8E58 62AC BA98 5148 4A80 7CA4"            /* >.u ŽXb¬º˜QHJ€|¤ */
	$"725C 85E4 E7D3 8CA5 A685 5545 896F 462F"            /* r\…..ÓŒ¥¦…UE‰oF/ */
	$"7D97 9252 6575 AFA0 B19F 7B77 9CAD 8763"            /* }—’Reu¯ ±Ÿ{wœ­‡c */
	$"5267 4A3B 2891 A07C 4C86 B5C7 7756 4453"            /* RgJ;(‘ |L†µÇwVDS */
	$"7571 925E 4E7A D4DF C990 A8A5 9E61 88A1"            /* uq’^NzÔ.É�¨¥žaˆ¡ */
	$"824D 528C 9A7B 4B5B 69A5 8DA2 7D5E 6BA7"            /* ‚MRŒš{K[i¥�¢}^k§ */
	$"A781 485C 6E56 333C A6A9 775A 98C1 BE66"            /* §�H\nV3<¦©wZ˜Á¾f */
	$"5045 7877 8284 5C56 84CD CAAB 8C94 837C"            /* PExw‚„\V„ÍÊ«Œ”ƒ| */
	$"5EA1 AA71 537E B3BF 7B62 708C A686 986C"            /* ^¡ªqS~³¿{bpŒ¦†˜l */
	$"4E59 9692 6333 4656 5631 54AA 9F7D 75AA"            /* NY–’c3FVV1TªŸ}uª */
	$"C7AA 6951 5683 7587 794E 5CA1 DACA 9E92"            /* ǪiQVƒu‡yN\¡.Êž’ */
	$"957A 6956 A99B 4F3E 7CC1 BA79 5B81 BDBC"            /* •ziV©›O>|Áºy[�½¼ */
	$"A4A8 7361 6B97 824E 3339 383E 265E A274"            /* ¤¨sak—‚N398>&^¢t */
	$"6D89 C0C2 945F 6379 896D 8E7B 4E66 A7DB"            /* m‰À”_cy‰mŽ{Nf§. */
	$"B999 8687 856E 6EB8 8B4E 4585 B4A3 6749"            /* ¹™†‡…nn¸‹NE…´£gI */
	$"7BB6 B2A8 AE5F 6F90 B48F 5C49 463E 3929"            /* {¶²¨®_o�´�\IF>9) */
	$"779A 5B58 86C0 A677 3E67 948A 6993 6C5F"            /* wš[X†À¦w>g”Ši“l_ */
	$"85B4 CEB5 A282 797F 737E BD65 4962 A9B1"            /* …´Îµ¢‚y.s~½eIb©± */
	$"8E5A 5387 A994 AB95 4460 87AC 876E 3D4E"            /* ŽZS‡©”«•D`‡¬‡n=N */
	$"5A5D 52AA 9C60 6C9C B88F 6334 5588 7660"            /* Z]Rªœ`lœ¸�c4Uˆv` */
	$"8A44 6F9A C9C6 BE9E 898B 8471 A1B4 4A45"            /* ŠDošÉƾž‰‹„q¡´JE */
	$"77B5 967E 4061 A1BD 85AD 7747 627A 927E"            /* wµ–~@a¡½…­wGbz’~ */
	$"6026 304E 5C75 C775 7898 D1BA 9A67 476E"            /* `&0N\uÇux˜ÑºšgGn */
	$"8E5D 667A 325C 91BE B3BA 828C 949D 7EC4"            /* Ž]fz2\‘¾³º‚Œ”�~Ä */
	$"9451 6A8D AD8B 723B 62B6 AD81 A950 5375"            /* ”Qj�­‹r;b¶­�©PSu */
	$"9479 7C50 1D26 4857 8EAE 4D6B 9ECB B199"            /* ”y|P.&HWŽ®MkžË±™ */
	$"5A61 97AA 628D 7746 7598 ABB0 B86B 6089"            /* Za—ªb�wFu˜«°¸k`‰ */
	$"928C BD61 5F8A B19A 8967 4E8A BB9D 8B9A"            /* ’Œ½a_Š±š‰gNŠ»�‹š */
	$"3A52 8285 777A 3C16 386A 5AA4 8445 79A2"            /* :R‚…wz<.8jZ¤„Ey¢ */
	$"B59D 8740 579A 9779 9869 679F B5AE D4C0"            /* µ�‡@Wš—y˜igŸµ®ÔÀ */
	$"6E61 928B A3A7 3C55 929C 8A75 5560 A5C9"            /* na’‹£§<U’œŠuU`¥É */
	$"8995 7747 7181 767B 7926 0750 6D7B 975E"            /* ‰•wGq�v{y&.Pm{—^ */
	$"549E B99A 966C 415A 9A87 7B81 4469 A1A5"            /* Tž¹š–lAZš‡{�Di¡¥ */
	$"C9E0 C46F 89B7 A9C4 9548 6E9D 857F 6D42"            /* É.Äo‰·©Ä•Hn�….mB */
	$"51A9 B18A 7A5E 588A 7A67 7F72 2010 6479"            /* Q©±Šz^XŠzg.r .dy */
	$"8C81 3E5D B8A2 9477 6443 7FAD 8078 624B"            /* Œ�>]¸¢”wdC.­€xbK */
	$"759B 93C8 DA97 538F BCD0 BC8A 63A8 AB8B"            /* u›“È.—S�¼Ð¼Šc¨«‹ */
	$"8877 4F5A B89F 8E65 485C 855F 707E 6F1B"            /* ˆwOZ¸ŸŽeH\…_p~o. */
	$"2C74 8684 6348 80BE 8B85 6750 3994 9F86"            /* ,t†„cH€¾‹…gP9”Ÿ† */
	$"5A54 669F 9A98 CACB 7F48 A1BC C98A 5C65"            /* ZTfŸš˜ÊË.H¡¼ÉŠ\e */
	$"AF96 948A 895D 8ACA B285 5B57 6D82 4D81"            /* ¯–”Š‰]ŠÊ²…[Wm‚M� */
	$"7C58 0943 7E9E 7859 68A7 AB7B 726B 4F50"            /* |XÆC~žxYh§«{rkOP */
	$"AB9F 7C39 506F AA81 A5C6 BF71 64AE CCAF"            /* «Ÿ|9Poª�¥Æ¿qd®Ì¯ */
	$"645D 7DAC 7A82 736B 49A0 C7BE 7661 7589"            /* d]}¬z‚skI Ç¾vau‰ */
	$"7661 8381 450F 5B8D A552 5677 B78D 857C"            /* vaƒ�E.[�¥RVw·�…| */
	$"735B 6EB2 9D64 3665 91AA 82A6 B6A6 517E"            /* s[n²�d6e‘ª‚¦¶¦Q~ */
	$"AED4 8654 7A9B 9872 7C6A 625C B3BD 9C42"            /* ®Ô†Tz›˜r|jb\³½œB */
	$"4A6A 8E65 738F 823C 277A AB8F 3F68 96AC"            /* JjŽes�‚<'z«�?h–¬ */
	$"8183 6D69 5392 ADA9 5A3D 86A7 A184 B0BB"            /* �ƒmiS’­©Z=†§¡„°» */
	$"9962 96C7 B95D 5884 A178 7770 6468 7AB2"            /* ™b–ǹ]X„¡xwpdhz² */
	$"B87F 2553 7C7C 5869 7B5B 2147 90B7 774C"            /* ¸.%S||Xi{[!G�·wL */
	$"8BAB A385 7F60 6466 95B3 9535 3D93 AE8F"            /* ‹«£….`df•³•5=“®� */
	$"A2C4 B691 7AB1 C5A3 5279 A09A 7A6A 6762"            /* ¢Ä¶‘z±Å£Ry šzjgb */
	$"6986 AFB5 5B1F 7085 6555 7462 4930 5E93"            /* i†¯µ[.p…eUtbI0^“ */
	$"9453 4595 AC9C 8779 6A73 78AD B77C 1F58"            /* ”SE•¬œ‡yjsx­·|.X */
	$"A69B 98AC B194 908E BBCB 9457 93AF 946E"            /* ¦›˜¬±”�Ž»Ë”W“¯”n */
	$"6A69 7376 99BE 9440 277F 7063 686C 524E"            /* jisv™¾”@'.pchlRN */
	$"4062 8F7E 3A5A ACA0 8972 695B 7185 C3AE"            /* @b�~:Z¬ ‰ri[q…î */
	$"6629 78A5 A2A6 A499 9598 98C6 B674 52B7"            /* f)x¥¢¦¤™•˜˜Æ¶tR· */
	$"AC90 7C78 6F7B 84A7 B17C 323C 7E6B 685D"            /* ¬�|xo{„§±|2<~kh] */
	$"5944 5541 808F 6D38 85AF 8682 6A60 5D7A"            /* YDUA€�m8…¯†‚j`]z */
	$"90B3 9045 2287 9CB4 AB9F 949E 97B7 C597"            /* �³�E"‡œ´«Ÿ”ž—·Å— */
	$"6576 CCA0 917C 6E6B 9390 C4B2 722D 5378"            /* evÌ ‘|nk“�IJr-Sx */
	$"6D6C 504F 4446 567F 6D54 42A3 9594 836C"            /* mlPODFV.mTB£•”ƒl */
	$"6275 7A9D B273 3B31 8D95 A998 8785 989A"            /* buz�²s;1�•©˜‡…˜š */
	$"D0AA 8763 9DC2 A899 6C78 7F9E A9CD 9D5D"            /* Ъ‡c�¨™lx.ž©Í�] */
	$"2970 7282 744E 464D 4975 7B53 5557 A590"            /* )pr‚tNFMIu{SUW¥� */
	$"8A6D 6365 7B76 B99E 6C2F 4E86 95B5 8180"            /* Šmce{v¹žl/N†•µ�€ */
	$"7F91 A5BF 8B72 68AD B3B0 8B6D 7793 98C9"            /* .‘¥¿‹rh­³°‹mw“˜É */
	$"C67F 5933 7875 8E6E 414D 585E 9972 5A55"            /* Æ.Y3xuŽnAMX^™rZU */
	$"81A0 978C 5564 6A6C 89AF 815D 2F59 7BB0"            /* � —ŒUdjl‰¯�]/Y{° */
	$"B382 7B8E 88BC AD69 6F73 AAA1 9E75 5C85"            /* ³‚{Žˆ¼­iosª¡žu\… */
	$"8B9C DDA8 7A47 4869 8996 5246 545E 829C"            /* ‹œ.¨zGHi‰–RFT^‚œ */
	$"645B 6F9B A5AC 8B59 6C7F 67AB A261 522B"            /* d[o›¥¬‹Yl.g«¢aR+ */
	$"5281 B6A1 7285 859A D396 7070 909D A397"            /* R�¶¡r……šÓ–pp��£— */
	$"5060 8679 A7CB 8863 413D 639B 8D4A 4661"            /* P`†y§ËˆcA=c›�JFa */
	$"5FA7 8D4E 6B82 AAB2 B07D 558B 7B7E C891"            /* _§�Nk‚ª²°}U‹{~È‘ */
	$"6647 394D 9ABC 7A6C 827B B2C6 7D71 8193"            /* fG9Mš¼zl‚{²Æ}q�“ */
	$"A7B3 9057 6F92 6EC2 B365 562E 2B62 9C6E"            /* §³�Wo’n³eV.+bœn */
	$"2E51 4A6B B573 5C72 9EAD C4AC 6568 9878"            /* .QJkµs\rž­Ä¬eh˜x */
	$"A1C4 7F60 4C34 60BD B976 7491 74D3 AD5D"            /* ¡Ä.`L4`½¹vt‘tÓ­] */
	$"7183 94A7 AC7E 508C 7E88 D9A3 7246 3124"            /* qƒ”§¬~PŒ~ˆ.£rF1$ */
	$"7B92 4728 4E36 7FA6 5556 8394 AFC7 A063"            /* {’G(N6.¦UVƒ”¯Ç c */
	$"78A7 72C8 B170 5B47 3D7B C9AD 6B91 7F93"            /* x§rȱp[G={É­k‘.“ */
	$"E998 6B78 978E B79C 5651 906A 9DD0 9061"            /* .˜kx—Ž·œVQ�j�Ð�a */
	$"4421 3B95 9643 3056 2DA1 843D 5481 91B1"            /* D!;•–C0V-¡„=T�‘± */
	$"BF84 5597 8483 D6A2 7052 5341 A2CB 976C"            /* ¿„U—„ƒÖ¢pRSA¢Ë—l */
	$"A17C B3E2 846B 8D95 A1BF 9551 6A98 5CC4"            /* ¡|³.„k�•¡¿•Qj˜\Ä */
	$"AF6D 4A36 184B A084 3049 3F4A B479 4357"            /* ¯mJ6.K „0I?J´yCW */
	$"948B BFA7 6254 9C6A 9BCF 8662 5338 52BA"            /* ”‹¿§bTœj›Ï†bS8Rº */
	$"D18C 7EAF 78E3 C975 6CA1 A0A8 BE83 4D8B"            /* ÑŒ~¯x.Éul¡ ¨¾ƒM‹ */
	$"7E76 D7A5 6B47 3511 708E 5E1F 4E27 68B5"            /* ~v×¥kG5.pŽ^.N'hµ */
	$"6043 6E93 98C4 A955 679D 59BC AC6B 4945"            /* `Cn“˜Ä©Ug�Y¼¬kIE */
	$"2A68 C6BB 7C93 8B8D F1B9 7580 BA9F C2B1"            /* *hÆ»|“‹�.¹u€ºŸÂ± */
	$"6E53 A872 95DD 9463 4822 2986 974F 3151"            /* nS¨r•.”cH")†—O1Q */
	$"1F9A 8A43 3A7C 8CA0 C790 5186 8469 D1A9"            /* .šŠC:|Œ Ç�Q†„iÑ© */
	$"5F43 4027 87B7 9C63 966C ACF0 9573 8AA9"            /* _C@'‡·œc–l¬.•sŠ© */
	$"A2C7 AB65 73B1 6AC6 CB81 534D 2245 9C8F"            /* ¢Ç«es±jÆË�SM"Eœ� */
	$"4148 3939 B27D 4551 8F8B B9A9 724A 9569"            /* AH99²}EQ�‹¹©rJ•i */
	$"86DA 8F57 4332 3AA3 CA89 7497 61D1 C474"            /* †.�WC2:£Ê‰t—aÑÄt */
	$"5D91 98A8 BC90 5D86 8F71 DCBC 7856 4A25"            /* ]‘˜¨¼�]†�q.¼xVJ% */
	$"6798 7834 5E2B 65B8 6B46 678E 97C0 A66A"            /* g˜x4^+e¸kFgŽ—À¦j */
	$"679E 61B4 BC77 4440 2F59 B7C3 7D89 8177"            /* gža´¼wD@/Y·Ã}‰�w */
	$"EBBA 6C6F 9E92 B19A 6C46 8F6C 88DC A26B"            /* .ºlož’±šlF�lˆ.¢k */
	$"4836 2D78 A169 465E 298E 9C52 427E 90AC"            /* H6-x¡iF^)ŽœRB~�¬ */
	$"C09A 6081 8664 CDB2 6E46 463A 77B7 AF6F"            /* Àš`�†dͲnFF:w·¯o */
	$"9677 A1F1 A56B 7E9C A0B7 995E 6195 54A8"            /* –w¡.¥k~œ ·™^a•T¨ */
	$"BE79 493E 283C 869C 574C 4832 A190 4F54"            /* ¾yI>(<†œWLH2¡�OT */
	$"8D9A B6A9 805C 976A 85DC 9C5F 4337 3C8F"            /* �š¶©€\—j….œ_C7<� */
	$"C5A2 7EA3 76C7 DE8A 618B ABB5 B392 5B78"            /* Å¢~£vÇ.Ša‹«µ³’[x */
	$"7E60 CBB3 6F4E 3E21 4F7D 763B 522E 4BAC"            /* ~`˳oN>!O}v;R.K¬ */
	$"7A47 5B92 A0AD A97F 739D 60AA C57D 5341"            /* zG[’ ­©.s�`ªÅ}SA */
	$"325A A4C1 928C 8774 E5D0 7D6D A4B6 B4A0"            /* 2Z¤Á’Œ‡t.Ð}m¤¶´  */
	$"7C4E 8672 87DB A56B 4732 3366 886F 4A55"            /* |N†r‡.¥kG23fˆoJU */
	$"1A6E 924C 3566 97A2 A9A3 727F 8961 BEBE"            /* .n’L5f—¢©£r.‰a¾¾ */
	$"7E52 453E 6C9F B289 9673 99F2 B073 73A1"            /* ~RE>lŸ²‰–s™.°ss¡ */
	$"B1AD A173 6197 69A5 CD89 503C 3C48 748F"            /* ±­¡sa—i¥Í‰P<<Ht� */
	$"654E 3F2B 9587 4948 7A9B A192 815E 8A73"            /* eN?+•‡IHz›¡’�^Šs */
	$"75D1 AC6E 423F 4371 B7B7 929E 6DBC DE93"            /* uѬnB?Cq··’žm¼.“ */
	$"6D7F ACB9 AA94 6B6F 7F63 C3C7 804E 4742"            /* m.¬¹ª”ko.cÃÇ€NGB */
	$"4E74 844B 5536 4BAA 7547 4A86 A9A3 9781"            /* Nt„KU6KªuGJ†©£—� */
	$"7191 5F95 BB81 4F3A 404C 86C1 A992 8C6C"            /* q‘_•»�O:@L†Á©’Œl */
	$"D6DB 8F73 95B7 B193 8460 7E6E 80D9 AC74"            /* Ö.�s•·±“„`~n€.¬t */
	$"403D 3F58 8C83 555F 2B6D A05A 345A 9EB0"            /* @=?XŒƒU_+m Z4Zž° */
	$"A396 7A76 8163 BAB5 7C51 3D44 5381 B08F"            /* £–zv�cºµ|Q=DS�°� */
	$"9673 84EF C082 6EA1 B3A6 9D83 6B87 619D"            /* –s„.À‚n¡³¦�ƒk‡a� */
	$"C78F 613B 3F4A 648D 7A50 4326 9498 5443"            /* Ç�a;?Jd�zPC&”˜TC */
	$"78AF AC99 8B65 897A 81D3 A276 3F40 4C63"            /* x¯¬™‹e‰z�Ó¢v?@Lc */
	$"9ABA 9894 65A9 D996 6973 A9B1 A398 756B"            /* šº˜”e©.–is©±£˜uk */
	$"7D59 BEC2 8D5C 4146 475F 8B62 502C 45A6"            /* }Y¾Â�\AFG_‹bP,E¦ */
	$"794D 397F ABA9 9F8C 739C 71A4 CA8B 5F45"            /* yM9.«©ŸŒsœq¤Ê‹_E */
	$"535B 75B0 B692 876B D4CD 946B 82B3 A98B"            /* S[u°¶’‡kÔÍ”k‚³©‹ */
	$"8359 7A6A 74D4 AC7E 4643 3B4D 7C93 6053"            /* ƒYzjtÔ¬~FC;M|“`S */
	$"1E66 955E 373F 8DB0 9F99 7D71 8B67 CABF"            /* .f•^7?�°Ÿ™}q‹gÊ¿ */
	$"8658 5056 5B80 B79F A67F 91F0 BF8D 6495"            /* †XPV[€·Ÿ¦.‘.¿�d• */
	$"BAAC 9287 6286 5F9B C18B 6043 423D 5488"            /* º¬’‡b†_›Á‹`CB=Tˆ */
	$"7E59 4216 9190 5B35 5498 AC8D 8D61 7D72"            /* ~YB.‘�[5T˜¬��a}r */
	$"84D2 A178 444A 4B65 97BD A0AB 6DBB E8A8"            /* „Ò¡xDJKe—½ «m».¨ */
	$"7677 AACB AD9A 7B6A 8367 C7B2 8D5B 4944"            /* vwªË­š{jƒgDz�[ID */
	$"4250 8763 6127 3A9F 794C 2E63 9CB1 978C"            /* BP‡ca':ŸyL.cœ±—Œ */
	$"618C 67AB B488 5B3D 4250 61A5 B299 8F68"            /* aŒg«´ˆ[=BPa¥²™�h */
	$"E0D7 A06E 88B5 D2A0 9760 8A7A 96D3 A589"            /* .× nˆµÒ —`Šz–Ó¥‰ */
	$"4C4A 4147 6291 6060 1767 8B68 353E 6FAF"            /* LJAGb‘``.g‹h5>o¯ */
	$"A69D 756A 866B CDA6 8B50 4743 545B B093"            /* ¦�uj†kͦ‹PGCT[°“ */
	$"9D6B 88DC BE8C 5E87 BAD0 A58D 5E9D 73C4"            /* �kˆ.¾Œ^‡ºÐ¥�^�sÄ */
	$"BE9D 7059 484F 487F 855F 4E1D 867D 662F"            /* ¾�pYHOH.…_N.†}f/ */
	$"4C85 C098 9754 8A71 94C5 9B7D 4E46 4060"            /* L…À˜—TŠq”Å›}NF@` */
	$"79B9 92A4 60AC C1AE 6A5E 82CC B6A5 6967"            /* y¹’¤`¬Á®j^‚̶¥ig */
	$"8D7D D9AD 9B6B 6445 5E4B 8E6A 7632 4585"            /* �}.­›kdE^KŽjv2E… */
	$"7D58 2A52 97C1 9B87 5397 75BB A491 665C"            /* }X*R—Á›‡S—u»¤‘f\ */
	$"3253 5B98 AA9F 9063 C7B7 A960 6B93 D9A4"            /* 2S[˜ªŸ�cÇ·©`k“.¤ */
	$"9747 7B79 A7BE A389 664D 4061 5D91 6C7B"            /* —G{y§¾£‰fM@a]‘l{ */
	$"2772 7477 443C 56B6 B6A7 6962 8E8A C792"            /* 'rtwD<V¶¶§ibŽŠÇ’ */
	$"9061 5B34 6255 A599 AF6D 89BA B296 6066"            /* �a[4bU¥™¯m‰º²–`f */
	$"A4DF A582 4792 86C8 9F9C 7763 364A 4A75"            /* ¤.¥‚G’†ÈŸœwc6JJu */
	$"7F70 5732 8069 7541 496B DAB0 9D57 8089"            /* .pW2€iuAIk.°�W€‰ */
	$"AEB3 9486 6445 3A60 6BAA 98AF 6EAD 9FB1"            /* ®³”†dE:`kª˜¯n­Ÿ± */
	$"8763 61C0 D1A3 675C 87A0 CB8E 9373 642E"            /* ‡caÀÑ£g\‡ ËŽ“sd. */
	$"5343 7C6B 703F 4766 6A69 403C 8ADD AE87"            /* SC|kp?Gfji@<Š.®‡ */
	$"5B90 9CD7 9594 836B 3241 6189 A3A2 9480"            /* [�œ×•”ƒk2Aa‰£¢”€ */
	$"AA9C AB7D 677B DDC3 9D59 6C87 BEB0 8892"            /* ªœ«}g{.Ã�Yl‡¾°ˆ’ */
	$"7843 3351 5071 6C70 3F5D 4E68 5839 3F96"            /* xC3QPqlp?]NhX9?– */
	$"CEA7 6D62 89BC C786 918C 6136 5D62 99A5"            /* Χmb‰¼Ç†‘Œa6]b™¥ */
	$"AC88 8AA5 9EA8 775E 94E0 C67D 587C AED1"            /* ¬ˆŠ¥ž¨w^”.Æ}X|®Ñ */
	$"9896 9B70 3237 4E5B 7371 584A 5742 5C55"            /* ˜–›p27N[sqXJWB\U */
	$"3756 ADC2 8C56 6591 B7A8 8096 8247 4359"            /* 7V­ÂŒVe‘·¨€–‚GCY */
	$"7195 B1A6 95A1 90A8 A86F 62A3 EDB9 7462"            /* q•±¦•¡�¨¨ob£.¹tb */
	$"87C4 C695 909D 6044 4253 6F7E 7050 4E49"            /* ‡ÄÆ•��`DBSo~pPNI */
	$"4466 4836 70BA B16D 5F73 AFB9 927A 9467"            /* DfH6pº±m_s¯¹’z”g */
	$"3A2C 4F76 99AC 989D 9688 9FA1 6886 BFE2"            /* :,Ov™¬˜�–ˆŸ¡h†¿. */
	$"AB79 6998 C3C4 94A3 8E56 433E 6065 8867"            /* «yi˜ÃÄ”£ŽVC>`eˆg */
	$"6556 4953 6F3E 4981 B7A3 6C60 80BA B67F"            /* eVISo>I�·£l`€º¶. */
	$"7495 5949 2656 76A5 9D8B 8581 809C 886D"            /* t•YI&Vv¥�‹…�€œˆm */
	$"A1C0 CF96 7C77 B9CB BA99 AF74 4F2F 4268"            /* ¡ÀÏ–|w¹Ëº™¯tO/Bh */
	$"7A81 6465 5449 4C63 3D76 92BB A07A 6593"            /* z�deTILc=v’» ze“ */
	$"B9AB 7E85 7E58 4424 5379 AC98 9882 827B"            /* ¹«~…~XD$Sy¬˜˜‚‚{ */
	$"9A6D 7B96 AFBD 917A 8CC5 C9AB 98A6 695B"            /* šm{–¯½‘zŒÅÉ«˜¦i[ */
	$"2748 768E 6E5B 5258 4B56 4F54 8C91 AD8D"            /* 'HvŽn[RXKVOTŒ‘­� */
	$"7873 AEC1 B28A 9766 5C33 2164 92A3 998F"            /* xs®Á²Š—f\3!d’£™� */
	$"8475 7289 74A3 9CAA B195 7394 AFBD A1A2"            /* „ur‰t£œª±•s”¯½¡¢ */
	$"8E6E 581B 4683 8D6F 5F56 5F4F 583D 6B88"            /* ŽnX.Fƒ�o_V_OX=kˆ */
	$"8AA6 956F 8BAD C1A5 8888 686B 3132 87AA"            /* Š¦•o‹­Á¥ˆˆhk12‡ª */
	$"968F 8088 7172 7290 B38F 92AB 898A A0B6"            /* –�€ˆqrr�³�’«‰Š ¶ */
	$"BEA2 9E72 6935 0A54 9983 7253 6053 4848"            /* ¾¢žri5.T™ƒrS`SHH */
	$"548F 8C7F B394 718A 9DC7 A491 7276 6222"            /* T�Œ.³”qŠ�Ǥ‘rvb" */
	$"36A0 A09C 8991 9778 6E6B A6B0 7C97 AB82"            /* 6  œ‰‘—xnk¦°|—«‚ */
	$"A194 C0A8 9C86 7B6D 270C 7A93 745B 3D62"            /* ¡”À¨œ†{m'.z“t[=b */
	$"4747 4079 9D7D 70BB 838E 88B0 CAAD 8769"            /* GG@y�}p»ƒŽˆ°Ê­‡i */
	$"704A 185F B593 A575 A382 7159 87C3 B479"            /* pJ._µ“¥u£‚qY‡Ã´y */
	$"BBA3 8C97 92C7 A494 7387 5717 1795 7984"            /* »£Œ—’Ǥ”s‡W..•y„ */
	$"4A51 6649 3344 8892 5C81 B785 A17A C3B3"            /* JQfI3Dˆ’\�·…¡zó */
	$"A970 796F 3D18 96A3 9587 6DB0 8667 5EAD"            /* ©pyo=.–£•‡m°†g^­ */
	$"C9A2 72CA 90AC 8FB6 D3B2 8074 7A42 093D"            /* É¢rÊ�¬�¶Ó²€tzBÆ= */
	$"8C72 802E 674F 3D24 6F9D 8F51 A49A 9486"            /* Œr€.gO=$o��Q¤š”† */
	$"77C7 B095 7486 5B29 22AF 8EA8 6A89 B085"            /* wÇ°•t†[)"¯Ž¨j‰°… */
	$"4F70 B7BF 8798 BF9E B67F D5C1 A971 8B73"            /* Op·¿‡˜¿ž¶.ÕÁ©q‹s */
	$"3E0C 6A78 7B5C 3071 4925 318B 9875 51A8"            /* >.jx{\0qI%1‹˜uQ¨ */
	$"8BB3 75A1 C9AE 7E7A 7344 1150 A49A A354"            /* ‹³u¡É®~zsD.P¤š£T */
	$"A499 734D 95BC B57D B49F AD95 87DF C498"            /* ¤™sM•¼µ}´Ÿ­•‡.Ę */
	$"818D 5D2C 1579 6A8C 3E5B 7845 194C 8F91"            /* ��],.yjŒ>[xE.L�‘ */
	$"5F70 9299 B066 B8B9 9C7C 936A 4518 778E"            /* _p’™°f¸¹œ|“jE.wŽ */
	$"A77A 5AA9 8B60 67AD B5A1 84B1 9DC4 7DA8"            /* §zZ©‹`g­µ¡„±�Ä}¨ */
	$"E0B7 8386 7148 1B3C 6F7E 7F2C 7265 3122"            /* .·ƒ†qH.<o~.,re1" */
	$"6D90 9268 8282 AE90 75C7 B389 8A8C 5533"            /* m�’h‚‚®�udz‰ŠŒU3 */
	$"2F77 95BB 6484 AF7C 5980 A3AB 9093 9FB3"            /* /w•»d„¯|Y€£«�“Ÿ³ */
	$"BA70 C1D4 A48C 8F5E 3C25 4A5F 8A4F 347D"            /* ºpÁÔ¤Œ�^<%J_ŠO4} */
	$"5A28 437B 8B89 6F7B 8ABB 7798 D2A2 8492"            /* Z(C{‹‰o{Š»w˜Ò¢„’ */
	$"744C 3047 6DAA A556 9AA0 686D A0AB B69E"            /* tL0Gmª¥Vš hm «¶ž */
	$"9799 C894 79CD BD92 917E 4831 2E48 708E"            /* —™È”yͽ’‘~H1.HpŽ */
	$"364E 8142 2956 6E89 8876 75A9 AE6D B5C4"            /* 6N�B)Vn‰ˆvu©®mµÄ */
	$"928B 8F62 4640 4A75 B885 63AA 8A60 859F"            /* ’‹�bF@Ju¸…cªŠ`…Ÿ */
	$"AAB4 9C8E B0D6 88A1 DDAB 9392 6236 2E2B"            /* ª´œŽ°Öˆ¡.«“’b6.+ */
	$"4080 7628 626F 3440 6472 8C8D 6C78 B58A"            /* @€v(bo4@drŒ�lxµŠ */
	$"78CB B48F 9980 5047 4249 86BA 6E79 B575"            /* xË´�™€PGBI†ºnyµu */
	$"6F94 A0AC B796 87C6 C07F BCCD 9EA1 9558"            /* o” ¬·–‡ÆÀ.¼Íž¡•X */
	$"3E3D 2B4E 8E58 2873 522C 5061 6D8E 8566"            /* >=+NŽX(sR,PamŽ…f */
	$"8DB8 7991 D39D 9395 6546 4F3E 4FA2 A75D"            /* �¸y‘Ó�“•eFO>O¢§] */
	$"96A1 6B7F 9D9C B3C0 8A95 D2AD 88D2 B897"            /* –¡k.�œ³ÀŠ•Ò­ˆÒ¸— */
	$"A67B 4742 332B 6696 4548 7D40 3F5C 5E6C"            /* ¦{GB3+f–EH}@?\^l */
	$"9670 5D9D A66D ADC6 969E 8D55 4A52 3960"            /* –p]�¦m­Æ–ž�UJR9` */
	$"AD8A 61AA 8971 9297 97C1 B080 A4D4 939D"            /* ­Šaª‰q’——Á°€¤Ô“� */
	$"DDA6 A3A2 6C41 4A28 2C7C 7F35 5F68 3D53"            /* .¦£¢lAJ(,|.5_h=S */
	$"665E 859C 646D AD92 6DC4 A68D 9C74 4551"            /* f^…œdm­’mĦ�œtEQ */
	$"4D3A 79B3 7377 AD7A 8097 92A0 CD9C 82B8"            /* M:y³sw­z€—’ Íœ‚¸ */
	$"C383 BDCC 9CA8 9352 424E 2143 8E6F 3775"            /* ý̜¨“RBN!CŽo7u */
	$"513F 5E5E 6394 8E64 84B7 7F91 CD97 9C95"            /* Q?^^c”Žd„·.‘Í—œ• */
	$"6239 5831 3788 9F61 8EA0 758F 9B90 B2CC"            /* b9X17ˆŸaŽ u�›�²Ì */
	$"9390 C5B0 8BD8 B1A0 A57B 434D 3D20 548B"            /* “�Å°‹Ø± ¥{CM= T‹ */
	$"4E46 7940 5167 646D A37D 6795 AA78 AFBF"            /* NFy@Qgdm£}g•ªx¯¿ */
	$"99A2 8F53 4A57 2F50 978F 5BA1 7A71 8E8E"            /* ™¢�SJW/P—�[¡zqŽŽ */
	$"8EBF C08F 9ECA 9CA5 DBA9 A79D 6C40 5428"            /* Ž¿À�žÊœ¥.©§�l@T( */
	$"2A61 7E3C 5F65 3D58 6359 79A2 7475 A8A3"            /* *a~<_e=XcYy¢tu¨£ */
	$"7FCA AC9B 9F7C 4A54 4938 61A4 7B75 A573"            /* .ʬ›Ÿ|JTI8a¤{u¥s */
	$"8696 9291 C8A0 86A3 BC8D BFD0 A5A8 9359"            /* †–’‘È †£¼�¿Ð¥¨“Y */
	$"4A4E 2A37 7271 3872 4744 575D 598C 9270"            /* JN*7rq8rGDW]YŒ’p */
	$"7CA8 8A93 D1A1 A69E 724A 5D3C 3F71 A069"            /* |¨Š“Ñ¡¦žrJ]<?q i */
	$"8E93 788E 9B90 A7C7 9E96 B3B6 8DD6 B19F"            /* Ž“xŽ›�§Çž–³¶�Ö±Ÿ */
	$"9D7A 4C50 422D 437E 594C 7243 505E 615F"            /* �zLPB-C~YLrCP^a_ */
	$"967B 717C A37B B0C3 9DA2 8C5E 4D56 3C4F"            /* –{q|£{°Ã�¢Œ^MV<O */
	$"8A9A 6CA4 7F7E 909A 8FB7 B8A1 96BC A2A1"            /* Ššl¤.~�š�·¸¡–¼¢¡ */
	$"DDAA AC98 7548 522D 2C48 7545 6264 4557"            /* .ª¬˜uHR-,HuEbdEW */
	$"655E 7596 8077 8DA0 79C9 A79A 8F79 4F50"            /* e^u–€w� yɧš�yOP */
	$"4841 538F 8076 A478 8D9E A29D C4AC A199"            /* HAS�€v¤x�ž¢�Ĭ¡™ */
	$"BE90 C0CF A8A3 8E62 474B 3139 5B75 4171"            /* ¾�ÀϨ£ŽbGK19[uAq */
	$"4742 545F 5F85 8D89 78A0 8F96 D5A3 A18D"            /* GBT__…�‰x �–Õ£¡� */
	$"7345 5235 3E51 8E6D 8C96 778E 9B9A A6BF"            /* sER5>QŽmŒ–wŽ›š¦¿ */
	$"B0A6 ACBF 97DF BBAA 9C85 544E 3E36 3567"            /* °¦¬¿—.»ªœ…TN>65g */
	$"5B47 753E 515E 6B66 8980 8376 9E83 B5CA"            /* [Gu>Q^kf‰€ƒvžƒµÊ */
	$"A49C 8962 4D51 3D49 648F 63A0 7A74 8A9A"            /* ¤œ‰bMQ=Id�c ztŠš */
	$"99AF B6B3 9AB1 A7A6 E3B2 B29A 8154 5636"            /* ™¯¶³š±§¦.²²š�TV6 */
	$"3D3D 704B 6165 3B51 6164 6C8B 8686 85A5"            /* ==pKae;Qadl‹††…¥ */
	$"83CB B09D 8E78 5850 4648 4476 7C74 A771"            /* ƒË°�ŽxXPFHDv|t§q */
	$"8490 A195 B6A9 A992 B59A BFDB AFA5 8D6D"            /* „�¡•¶©©’µš¿.¯¥�m */
	$"514C 3D42 4E77 497B 4F45 5867 6678 8589"            /* QL=BNwI{OEXgfx…‰ */
	$"7993 9190 D5A8 A48C 7C51 513B 4643 7D71"            /* y“‘�Õ¨¤Œ|QQ;FC}q */
	$"8C9A 7387 959A A1B5 ABA6 99B6 8ED9 BEA6"            /* Œšs‡•š¡µ«¦™¶Ž.¾¦ */
	$"9680 6351 4745 375A 6352 7B47 555F 736C"            /* –€cQGE7ZcR{GU_sl */
	$"887E 8E7A 9B86 ABCD A09B 8468 4E4C 444B"            /* ˆ~Žz›†«Í ›„hNLDK */
	$"558E 6BA3 8178 8696 A1AA B0B2 9BA5 A29F"            /* UŽk£�x†–¡ª°²›¥¢Ÿ */
	$"E0B0 A78C 7951 5236 3E2F 6355 6274 4755"            /* .°§ŒyQR6>/cUbtGU */
	$"616F 7483 8A90 84A8 85CF B7A5 947A 614F"            /* aotƒŠ�„¨…Ï·¥”zaO */
	$"4744 3F64 7A71 A57B 848F A9A0 B4A7 B591"            /* GD?dzq¥{„�© ´§µ‘ */
	$"AE9D B7DB ADA2 8269 534B 3B39 3867 4178"            /* ®�·.­¢‚iSK;98gAx */
	$"5344 4F64 7077 8891 818F 9B94 D5B4 AC8E"            /* SDOdpwˆ‘��›”Õ´¬Ž */
	$"7E5A 5C3E 4E3F 7471 859E 6F84 909E A1B1"            /* ~Z\>N?tq…žo„�ž¡± */
	$"B2AE 9BBD 94D6 C4AF 927A 6652 483F 3044"            /* ²®›½”Öį’zfRH?0D */
	$"5B4E 7A49 4D55 6A65 8378 8E74 9A8F A8D7"            /* [NzIMUjeƒxŽtš�¨× */
	$"AAA1 8371 5955 4D4E 4C85 6CA4 8680 8897"            /* ª¡ƒqYUMNL…l¤†€ˆ— */
	$"A2A9 B0AF 9FA1 A99B DFBB AC8F 7E58 593C"            /* ¢©°¯Ÿ¡©›.»¬�~XY< */
	$"4324 5553 5C73 4350 5467 7080 8289 799F"            /* C$US\sCPTgp€‚‰yŸ */
	$"80C8 B9A7 8F7B 6558 564D 435B 8073 AA87"            /* €È¹§�{eXVMC[€sª‡ */
	$"8A8F A5A2 B8A6 BB93 AFA0 B3DB ACA5 806C"            /* Š�¥¢¸¦»“¯ ³.¬¥€l */
	$"5353 403C 3268 4678 5D4D 4C5E 6973 7F87"            /* SS@<2hFx]ML^is.‡ */
	$"7B7E 978C D0AF A786 7658 6341 4E36 6E74"            /* {~—ŒÐ¯§†vXcAN6nt */
	$"86AD 818F 94A5 A4B8 B5B3 95BB 97D2 C5B5"            /* †­��”¥¤¸µ³•»—Òŵ */
	$"947C 6358 4B3D 313A 5B48 7D54 5559 6C65"            /* ”|cXK=1:[H}TUYle */
	$"867D 906C 938C 9ECC A79C 786A 565A 4549"            /* †}�l“ŒžÌ§œxjVZEI */
	$"3B7A 69A1 8F88 8C9D A1AF BEBA A6A1 B59D"            /* ;zi¡�ˆŒ�¡¯¾º¦¡µ� */
	$"DEC0 B08B 7B57 5F3D 4520 4E51 5973 4B5A"            /* .À°‹{W_=E NQYsKZ */
	$"5664 6687 848A 76A2 84C2 BFAC 8C7A 5D58"            /* Vdf‡„Šv¢„¿¬Œz]X */
	$"5246 3746 796B A587 928E A09B BCB0 BB95"            /* RF7Fyk¥‡’Ž ›¼°»• */
	$"B1A7 B7E3 BBA9 8671 5660 4238 2360 456F"            /* ±§·.»©†qV`B8#`Eo */
	$"5F5B 5560 6273 8487 7D79 9686 CEB5 A988"            /* _[U`bs„‡}y–†Îµ©ˆ */
	$"7856 6749 4A2C 646C 7B9F 8892 8D9F 9CBF"            /* xVgIJ,dl{Ÿˆ’�Ÿœ¿ */
	$"B3B6 92B7 9ACF CCB9 9780 6463 5A42 2B38"            /* ³¶’·šÏ̹—€dcZB+8 */
	$"5F48 7C5C 5F55 695C 837E 906E 8C8C 9BCA"            /* _H|\_Ui\ƒ~�nŒŒ›Ê */
	$"AE9D 7669 5663 4642 3877 6698 9793 919B"            /* ®�viVcFB8wf˜—“‘› */
	$"94A6 B7B7 A497 B19A DCC6 B488 795E 6746"            /* ”¦··¤—±š.Æ´ˆy^gF */
	$"3C21 4C52 5D7A 6162 5F67 6689 8187 6B94"            /* <!LR]zab_gf‰�‡k” */
	$"7DB5 C2AD 8B75 6361 5845 3746 746C A097"            /* }µÂ­‹ucaXE7Ftl — */
	$"9B97 A296 B9B3 BA9A A49A ABD9 C0A2 7D71"            /* ›—¢–¹³ºš¤š«.À¢}q */
	$"5E63 4133 2758 4B6A 6E64 5F65 6177 838B"            /* ^cA3'XKjnd_eawƒ‹ */
	$"8079 8A85 C4B9 A07A 6F5C 694D 3F33 5D6F"            /* €yŠ…Ĺ zo\iM?3]o */
	$"80A1 9D99 9C9E A0B6 B8B6 9CA9 96C8 D5BE"            /* €¡�™œž ¶¸¶œ©–ÈÕ¾ */
	$"9376 6465 543B 2737 524E 726F 6662 6763"            /* “vdeT;'7RNrofbgc */
	$"7882 8C77 807B 9CC6 BB95 7266 675E 4232"            /* x‚Œw€{œÆ»•rfg^B2 */
	$"3A63 698F A09B 9DA0 9EAA B2BE AAA3 9BA1"            /* :ci� ›� žª²¾ª£›¡ */
	$"D3D7 B389 7371 6A4C 352B 4148 5A72 6D66"            /* Ó׳‰sqjL5+AHZrmf */
	$"6660 6C76 8884 7E7A 78A9 CCB0 8468 696D"            /* f`lvˆ„~zx©Ì°„him */
	$"5342 324B 6076 949E 989E 99A3 A7B1 B5AC"            /* SB2K`v”ž˜ž™£§±µ¬ */
	$"A08E B1DD D49E 7E70 795E 482C 3846 5268"            /*  Ž±.Ôž~py^H,8FRh */
	$"7A71 6C63 686F 7089 8182 6682 B9CC 9D79"            /* zqlchop‰�‚f‚¹Ì�y */
	$"6072 634F 343A 5361 829D A79A A19E AD9C"            /* `rcO4:Sa‚�§š¡ž­œ */
	$"B2AD AE89 8EBF E3C2 936F 7A77 553F 2548"            /* ²­®‰Ž¿.“ozwU?%H */
	$"405A 717C 6A70 667C 667A 8A8B 7560 8FC3"            /* @Zq|jpf|fzŠ‹u`�à */
	$"C48B 6C60 7B58 462D 4D50 6A8E AA9D A29E"            /* Ä‹l`{XF-MPjŽª�¢ž */
	$"ADA4 9BB8 ADAF 7B99 CDE0 AB81 648A 694E"            /* ­¤›¸­¯{™Í.«�dŠiN */
	$"3137 4246 6680 7869 766E 7D60 7E82 9162"            /* 17BFf€xivn}`~‚‘b */
	$"68A2 D4B2 7F59 756E 4D41 3056 4D78 9FA7"            /* h¢Ô².YunMA0VMxŸ§ */
	$"9BAA 9EB9 96A2 B0BA 9775 A2E2 D799 7873"            /* ›ªž¹–¢°º—u¢.×™xs */
	$"8759 4527 3E39 4D72 8371 776D 8870 6682"            /* ‡YE'>9Mrƒqwmˆpf‚ */
	$"8C8E 5270 BCC9 9672 5A80 634E 3740 5058"            /* ŒŽRp¼É–rZ€cN7@PX */
	$"80AC A19D A7B0 B38C A3B4 BB80 78BF E7BF"            /* €¬¡�§°³Œ£´»€x¿.¿ */
	$"9468 8376 553B 2B46 3952 847B 6772 7888"            /* ”hƒvU;+F9R„{grxˆ */
	$"6268 8995 7455 84D0 BC8F 6569 7D5B 4033"            /* bh‰•tU„м�ei}[@3 */
	$"4A4F 5DA1 B29A A4AB BE99 8DA6 B6A7 787E"            /* JO]¡²š¤«¾™�¦¶§x~ */
	$"D8DC B385 718C 7149 3A39 3C38 6293 6870"            /* Ø.³…qŒqI:9<8b“hp */
	$"798B 775E 6987 8766 4DA2 CEAA 7E5D 7E70"            /* y‹w^i‡‡fM¢Îª~]~p */
	$"553E 4345 556E BA9E 99AA B9B7 9A8E AEB4"            /* U>CEUnºž™ª¹·šŽ®´ */
	$"976A 8FEB C5A4 7486 7E66 4743 3440 4286"            /* —j�.Ťt†~fGC4@B† */
	$"866A 767F 896C 5B6B 947A 5D53 C4B8 956E"            /* †jv.‰l[k”z]Sĸ•n */
	$"6E6F 694A 4A3A 4D5B 8AC2 95A6 AACB AB93"            /* noiJJ:M[ŠÂ•¦ªË«“ */
	$"86B8 A18B 63C2 E0B7 9580 7E73 6044 412C"            /* †¸¡‹cÂ.·•€~s`DA, */
	$"4D48 9F78 6F76 9682 6B51 8982 6C49 74CA"            /* MHŸxov–‚kQ‰‚lItÊ */
	$"9A92 6A78 6368 3F4E 325A 57AF B995 A3C5"            /* š’jxch?N2ZW¯¹•£Å */
	$"C4A3 8898 B986 8571 DBBF AD8A 8875 7D50"            /* Ä£ˆ˜¹†…q.¿­Šˆu}P */
	$"5535 383E 69A6 6171 849E 7267 5C95 696C"            /* U58>i¦aq„žrg\•il */
	$"4C9F B899 8073 6565 5245 522F 5E6A CE9B"            /* LŸ¸™€seeRER/^jΛ */
	$"97B1 D3AF A284 B09A 8B75 94DB AEA6 8B8D"            /* —±Ó¯¢„°š‹u”.®¦‹� */
	$"6F6F 455F 203F 4597 8F64 7A9C 8773 5F6B"            /* ooE_ ?E—�dzœ‡s_k */
	$"885D 6658 BEA0 927D 7F5D 6847 6436 3757"            /* ˆ]fX¾ ’}.]hGd67W */
	$"8EC6 89A5 C1CB A59D 7FB7 8286 70BD CBA4"            /* ŽÆ‰¥ÁË¥�.·‚†p½Ë¤ */
	$"9F9E 7872 5E5A 511A 4757 A66D 6A86 9B7E"            /* Ÿžxr^ZQ.GW¦mj†›~ */
	$"7A55 896F 5A5A 82BC 878B 8C71 5A65 4D6C"            /* zU‰oZZ‚¼‡‹ŒqZeMl */
	$"2747 65B7 B492 ADCD B4A5 8596 A76F 7B86"            /* 'Ge·´’­Í´¥…–§o{† */
	$"D2A8 A0AA 946D 7753 7038 2644 779D 6071"            /* Ò¨ ª”mwSp8&Dw�`q */
	$"9B90 776B 588F 5155 66A8 A384 938E 6065"            /* ›�wkX�QUf¨£„“Ž`e */
	$"5460 5E28 4E81 CE9E 99C6 CAAC A681 B084"            /* T`^(N�Ξ™Æʬ¦�°„ */
	$"657A A1C5 95A3 AF81 716C 5874 2726 5297"            /* ez¡Å•£¯�qlXt'&R— */
	$"855E 879E 7D76 5B70 7943 587A B087 819E"            /* …^‡ž}v[pyCXz°‡�ž */
	$"7D60 644E 7A4A 275E A3C5 90AB DAB9 B09E"            /* }`dNzJ'^£Å�«.¹°ž */
	$"8BAD 6D61 8AC0 B391 AEA7 746F 5A6F 641A"            /* ‹­maŠÀ³‘®§toZod. */
	$"2E6D 9E6D 679F 8A79 7454 8360 375D 93A6"            /* .mžmgŸŠytTƒ`7]“¦ */
	$"7388 A76B 6056 587A 372C 78BD B295 C9D5"            /* sˆ§k`VXz7,x½²•ÉÕ */
	$"B1B1 8C9F 9C5B 64A5 CA98 8FC2 9274 6F59"            /* ±±ŒŸœ[d¥Ê˜�Â’toY */
	$"814B 113D 8393 5E79 A57A 7D66 6183 4830"            /* �K.=ƒ“^y¥z}faƒH0 */
	$"74AB 8F6E 9E95 5E5E 496C 6E2B 3A91 C49E"            /* t«�nž•^^Iln+:‘Äž */
	$"9FE0 C0B5 AA8B B186 4B7A BEBE 87A5 C480"            /* Ÿ.Àµª‹±†Kz¾¾‡¥Ä€ */
	$"7A63 6480 380E 5798 805C 9494 7176 5771"            /* zcd€8.W˜€\””qvWq */
	$"722E 3B91 AE7A 75B0 7963 5A49 7F5E 1C4E"            /* r.;‘®zu°ycZI.^.N */
	$"A8BC 8FBA E6AF B599 93AC 6C45 97CE AC87"            /* ¨¼�º.¯µ™“¬lE—ά‡ */
	$"C2B3 7F7C 5A78 7A25 1B74 9A69 68AA 7B75"            /* ³.|Zxz%.tšihª{u */
	$"7156 7D5C 1850 A2A1 6589 AB66 694C 5784"            /* qV}\.P¢¡e‰«fiLW„ */
	$"4917 71B8 A892 DAD1 A8B0 8B9E A253 53B4"            /* I.q¸¨’.Ѩ°‹ž¢SS´ */
	$"C790 8FCF 9785 735C 8B6C 153F 8D87 5B8A"            /* Ç��Ï—…s\‹l.?�‡[Š */
	$"AA6E 7E63 6082 461D 7BAE 8461 A190 6569"            /* ªn~c`‚F.{®„a¡�ei */
	$"486B 8233 3597 AC89 A1E6 B2AB A183 AB8F"            /* Hk‚35—¬‰¡.²«¡ƒ«� */
	$"4078 C5AF 78A5 BF81 8662 618E 511A 6A8E"            /* @xůx¥¿�†baŽQ.jŽ */
	$"6A64 AE9C 757F 5A71 832E 379F A166 70A9"            /* jd®œu.Zqƒ.7Ÿ¡fp© */
	$"7772 684D 8277 2A61 A48F 75BD D9A0 AC8C"            /* wrhM‚w*a¤�u½. ¬Œ */
	$"87B3 7242 A3C5 8E78 B8A0 7B80 556A 8D38"            /* ‡³rB£ÅŽx¸ {€Uj�8 */
	$"3886 7650 79BB 8780 765B 8778 266A AC84"            /* 8†vPy»‡€v[‡x&j¬„ */
	$"568E 9D6B 7E62 598D 6438 9098 707A D0C1"            /* VŽ�k~bY�d8�˜pzÐÁ */
	$"9EA6 838F AB59 68C4 A979 89B8 8280 7754"            /* ž¦ƒ�«YhÄ©y‰¸‚€wT */
	$"7676 2C5E 8660 4D97 AF7E 886F 6384 5934"            /* vv,^†`M—¯~ˆoc„Y4 */
	$"909A 7166 9E8C 7382 636B 9150 569A 856D"            /* �šqfžŒs‚ck‘PVš…m */
	$"8FCA A5A5 A285 9592 5990 BB9A 799B A47B"            /* �Ê¥¥¢…•’Y�»šy›¤{ */
	$"846D 5F81 6238 7273 5C61 9B94 7D88 6E65"            /* „m_�b8rs\a›”}ˆne */
	$"7E4B 5892 846E 7295 7B7C 7D6D 8289 5979"            /* ~KX’„nr•{|}m‚‰Yy */
	$"907B 749E B29C A89C 8496 8470 A6A5 8E7E"            /* �{tž²œ¨œ„–„p¦¥Ž~ */
	$"968E 787E 6F6A 7D55 5572 615C 6E90 8686"            /* –Žx~oj}UUra\n�†† */
	$"886D 7073 5673 8779 6978 8274 7B81 7A8E"            /* ˆmpsVs‡yix‚t{�zŽ */
	$"8371 8981 7B7F 99A6 9FA7 9587 997B 859D"            /* ƒq‰�{.™¦Ÿ§•‡™{…� */
	$"9788 7E88 7D76 7E6E 747A 6064 6462 606F"            /* —ˆ~ˆ}v~ntz`ddb`o */
	$"8384 8481 6C7A 6F65 797C 7B72 777A 7180"            /* ƒ„„�lzoey|{rwzq€ */
	$"807B 9681 7E7D 7D80 839E A8A2 A692 9599"            /* €{–�~}}€ƒž¨¢¦’•™ */
	$"8790 9190 8580 7C73 737B 6A7B 7464 655E"            /* ‡�‘�…€|ss{j{tde^ */
	$"5E5E 7489 8084 7D6E 7967 7176 7778 7378"            /* ^^t‰€„}nygqvwxsx */
	$"7975 8480 8B90 7F83 7C79 7B8A 9FA4 A1A8"            /* yu„€‹�.ƒ|y{ŠŸ¤¡¨ */
	$"9598 9090 988F 8E85 7D81 7275 7772 7A62"            /* •˜��˜�Ž…}�ruwrzb */
	$"675F 595E 6375 8681 8C7E 7672 6E7A 7679"            /* g_Y^cu†�Œ~vrnzvy */
	$"776B 7277 7284 8493 8786 8176 7E85 879F"            /* wkrwr„„“‡†�v~…‡Ÿ */
	$"9FA4 A293 988B 948D 8F90 8078 7F6D 7976"            /* Ÿ¤¢“˜‹”���€x.myv */
	$"7B77 6E69 5759 6060 7182 7E87 767D 7378"            /* {wniWY``q‚~‡v}sx */
	$"7878 7E78 6B7A 737D 8988 9288 8A77 767D"            /* xx~xkzs}‰ˆ’ˆŠwv} */
	$"7F8A A59D A49A 9B98 9192 898E 8A79 7675"            /* .Š¥�¤š›˜‘’‰ŽŠyvu */
	$"6C7D 757F 7571 5F55 595E 627F 8081 8178"            /* l}u.uq_UY^b.€��x */
	$"7D6F 7972 767B 736E 7A73 8687 9193 8D88"            /* }oyrv{snzs†‡‘“�ˆ */
	$"7A7A 7B7E 93A2 9BA5 989E 9093 8E88 8C86"            /* zz{~“¢›¥˜ž�“ŽˆŒ† */
	$"7679 7073 7978 806E 6D5D 585A 5F6C 8379"            /* vypsyx€nm]XZ_lƒy */
	$"857B 7E7A 757B 747A 7970 7077 7487 8797"            /* …{~zu{tzyppwt‡‡— */
	$"8C8C 877B 767E 86A0 A1A4 A298 9B8A 928C"            /* ŒŒ‡{v~† ¡¤¢˜›Š’Œ */
	$"8C89 7F73 7A6A 7575 7F76 6B6C 5B55 5B61"            /* Œ‰.szjuu.vkl[U[a */
	$"7281 7E87 7B84 7276 7777 7778 6D78 757B"            /* r�~‡{„rvwwwxmxu{ */
	$"898E 9686 8E80 777A 8089 A29D A79B A297"            /* ‰Ž–†Ž€wz€‰¢�§›¢— */
	$"8F96 8F8C 8778 7274 6A79 7480 6F6F 6455"            /* �–�Œ‡xrtjyt€oodU */
	$"555E 607B 7F81 8280 826F 7977 787A 776C"            /* U^`{.�‚€‚oywxzwl */
	$"766E 8284 9493 8C8C 7C78 7B7F 90A2 9DA4"            /* vn‚„”“ŒŒ|x{.�¢�¤ */
	$"9CA4 9192 928E 8988 7577 7074 7776 7E6A"            /* œ¤‘’’Ž‰ˆuwptwv~j */
	$"6D5E 5554 5B66 7F7A 847D 857C 747C 7778"            /* m^UT[f.z„}…|t|wx */
	$"7C72 6D75 7586 879B 8D8C 8579 737E 839B"            /* |rmuu†‡›�Œ…ys~ƒ› */
	$"9FA1 A29D A08D 958F 8B8B 8272 776D 7772"            /* Ÿ¡¢� �•�‹‹‚rwmwr */
	$"8178 6D6E 5E52 555D 6B7E 7C85 7C86 7677"            /* �xmn^RU]k~|…|†vw */
	$"7976 797C 6D76 747C 868F 9987 8F83 7778"            /* yvy|mvt|†�™‡�ƒwx */
	$"8287 9D9A A499 A39A 9095 8E8C 8A7B 7374"            /* ‚‡�š¤™£š�•ŽŒŠ{st */
	$"6B77 7581 706F 6957 505D 5E78 7F83 807D"            /* kwu�poiWP]^x.ƒ€} */
	$"836E 7977 7779 766D 7670 8285 9792 8D90"            /* ƒnywwyvmvp‚…—’�� */
	$"7F75 7D80 8CA0 9DA4 9BA7 9090 928A 888A"            /* .u}€Œ �¤›§��’ŠˆŠ */
	$"7777 6E73 7778 7E6B 7060 5456 5C62 7D7B"            /* wwnswx~kp`TV\b}{ */
	$"857C 887D 7680 7875 7C70 6A73 7385 8498"            /* …|ˆ}v€xu|pjss…„˜ */
	$"8D8E 897A 7882 809B 9FA4 A2A0 A18C 978E"            /* �Ž‰zx‚€›Ÿ¤¢ ¡Œ—Ž */
	$"898D 866F 746A 7570 807A 6F6D 5C53 5A59"            /* ‰�†otjup€zom\SZY */
	$"697D 7B86 7C86 767B 7A74 7980 6A75 747D"            /* i}{†|†v{zty€jut} */
	$"828B 9787 9182 777A 8084 9E9D A89E A69C"            /* ‚‹—‡‘‚wz€„ž�¨ž¦œ */
	$"9697 8C8B 9079 6F75 6B77 7283 6F6F 6653"            /* –—Œ‹�youkwrƒoofS */
	$"535F 5A74 7B83 827E 8374 7D74 757D 7768"            /* S_Zt{ƒ‚~ƒt}tu}wh */
	$"786F 8082 9692 9091 7E76 817B 88A1 9EA7"            /* xo€‚–’�‘~v�{ˆ¡ž§ */
	$"9AA6 9697 938C 8F8E 737A 7072 7578 7D6C"            /* š¦–—“Œ�Žszprux}l */
	$"725C 535A 5D59 7978 837A 847C 777C 7576"            /* r\SZ]Yyxƒz„|w|uv */
	$"806E 6C76 7084 8397 8D92 8777 7B86 7A98"            /* €nlvp„ƒ—�’‡w{†z˜ */
	$"A1A5 A29F A190 9B8F 8A90 8671 7B6D 7872"            /* ¡¥¢Ÿ¡�›�Š�†q{mxr */
	$"807A 746E 5A55 6054 627D 7984 7A84 7279"            /* €ztnZU`Tb}y„z„ry */
	$"766E 787F 6673 727B 828A 978D 927F 7881"            /* vnx.fsr{‚Š—�’.x� */
	$"817D 9E9B A79F A49B 989C 8C8A 947A 727A"            /* �}ž›§Ÿ¤›˜œŒŠ”zrz */
	$"6E78 7284 7675 6857 5A64 5672 7B82 817C"            /* nxr„vuhWZdVr{‚�| */
	$"7D71 7E70 6E7D 7661 756D 7C7D 9293 908F"            /* }q~pn}vaum|}’“�� */
	$"7C78 877D 869E 9EA9 9CA3 949B 9488 8F92"            /* |x‡}†žž©œ£”›”ˆ�’ */
	$"727A 7673 7479 8172 7760 5361 6159 787B"            /* rzvsty�rw`SaaYx{ */
	$"887D 807A 777D 7072 7F69 6676 6F7D 8195"            /* ˆ}€zw}pr.ifvo}�• */
	$"8D93 8674 7D8A 798F 9EA5 A39E A091 9C8F"            /* �“†t}Šy�ž¥£ž ‘œ� */
	$"8893 876F 7D71 7673 807E 7874 5957 685A"            /* ˆ“‡o}qvs€~xtYWhZ */
	$"5E7B 7E85 7A81 747C 7A6E 777D 646E 7476"            /* ^{~…z�t|znw}dntv */
	$"7C85 958D 937C 7486 8479 969E A69F A199"            /* |…•�“|t†„y–ž¦Ÿ¡™ */
	$"959C 8C8A 947D 6F7C 7274 7482 7B79 6A55"            /* •œŒŠ”}o|rtt‚{yjU */
	$"6169 586A 7E82 827C 7B71 7F74 6D7B 7463"            /* aiXj~‚‚|{q.tm{tc */
	$"7475 787C 8D95 918E 7778 8A7D 7F9A 9FA4"            /* tux|�•‘ŽwxŠ}.šŸ¤ */
	$"9E9D 9299 9787 8F8F 7476 7B74 7279 8379"            /* ž�’™—‡��tv{tryƒy */
	$"7862 5568 645B 727D 8480 7D76 757E 7171"            /* xbUhd[r}„€}vu~qq */
	$"7C6B 6677 7577 8193 9594 8874 818A 7D88"            /* |kfwuw�“•”ˆt�Š}ˆ */
	$"9CA2 A29D 9890 9A90 8791 8271 7A78 7173"            /* œ¢¢�˜�š�‡‘‚qzxqs */
	$"7E82 7A73 5C5C 6C61 6075 8082 8079 7277"            /* ~‚zs\\la`u€‚€yrw */
	$"796E 7675 666D 7876 7A87 9595 9480 7589"            /* ynvufmxvz‡••”€u‰ */
	$"8681 8E9E A2A3 9C95 9299 8E8A 8D79 737A"            /* †�Žž¢£œ•’™ŽŠ�ysz */
	$"746F 777E 827B 6C58 6569 6267 7982 837F"            /* tow~‚{lXeibgy‚ƒ. */
	$"7471 7876 6E77 6B67 6F76 757F 8B98 988F"            /* tqxvnwkgovu.‹˜˜� */
	$"7B7E 8B84 8692 9FA1 A396 9394 988B 8E83"            /* {~‹„†’Ÿ¡£–“”˜‹Žƒ */
	$"7777 7974 7179 7E82 7663 5969 6565 6C7B"            /* wwytqy~‚vcYieel{ */
	$"8186 7971 7279 7473 7466 6C71 7875 848D"            /* �†yqrytstflqxu„� */
	$"9A95 8879 8588 878B 96A1 A5A1 9293 9595"            /* š•ˆy…ˆ‡‹–¡¥¡’“•• */
	$"8B8C 7B79 7879 7175 7982 8071 5F60 6965"            /* ‹Œ{yxyquy‚€q_`ie */
	$"6A6D 7B81 8373 7073 7871 756A 676D 7376"            /* jm{�ƒspsxqujgmsv */
	$"7C89 919C 9283 7B89 868B 8C98 A1A7 9991"            /* |‰‘œ’ƒ{‰†‹Œ˜¡§™‘ */
	$"9297 928F 8778 7C78 7771 787A 857E 6C5B"            /* ’—’�‡x|xwqxz…~l[ */
	$"6667 696A 727C 857E 6E71 7374 7072 646B"            /* fgijr|…~nqstprdk */
	$"6F74 7681 8896 9A8F 7D82 8B88 8D8D 99A3"            /* otv�ˆ–š�}‚‹ˆ��™£ */
	$"A493 9093 968F 8F7F 797B 7A76 777A 7E86"            /* ¤“�“–��.y{zvwz~† */
	$"7B66 5D6A 686D 6D74 7E85 766D 6F76 7072"            /* {f]jhmmt~…vmovpr */
	$"6C63 6C70 7379 838C 9A9A 8B7B 888A 8B8D"            /* lclpsyƒŒšš‹{ˆŠ‹� */
	$"919B A79E 8F8E 9492 8D8B 7979 7B78 7579"            /* ‘›§ž�Ž”’�‹yy{xuy */
	$"7981 847A 6166 6D6B 6E6F 7582 8171 6C71"            /* y�„zafmknou‚�qlq */
	$"746E 7266 636E 7374 7F84 9099 9881 7D8C"            /* tnrfcnst.„�™˜�}Œ */
	$"8B8D 9092 9FA5 978D 8E98 8D90 8577 787C"            /* ‹��’Ÿ¥—�Ž˜��…wx| */
	$"7378 777B 8184 705E 6A6D 6C70 757A 887B"            /* sxw{�„p^jmlpuzˆ{ */
	$"6F69 766E 6E6F 6565 7271 7980 8794 9B96"            /* oivnnoeerqy€‡”›– */
	$"7B85 8D8C 8B92 90A5 A094 8994 938B 8D81"            /* {…�Œ‹’�¥ ”‰”“‹�� */
	$"757A 7C75 7C76 7F7F 8263 616C 6F6C 7370"            /* uz|u|v..‚calolsp */
	$"8083 766B 6E79 6A71 6C64 6575 707F 808E"            /* €ƒvknyjqldeup.€Ž */
	$"959F 8C7C 888F 8C8F 9297 A799 9188 9A8A"            /* •ŸŒ|ˆ�Œ�’—§™‘ˆšŠ */
	$"8C8A 7E73 7F76 7977 7A7F 837E 6066 6F6F"            /* ŒŠ~s.vywz.ƒ~`foo */
	$"6974 7085 7A74 6675 6F6A 6F6A 616D 7676"            /* itp…ztfuojojamvv */
	$"8282 9394 A181 7F8C 9388 938E A09D 968D"            /* ‚‚“”¡�.Œ“ˆ“Ž �–� */
	$"8E99 898E 887B 7480 737D 747F 7D89 715E"            /* Ž™‰Žˆ{t€s}t.}‰q^ */
	$"6974 6C6E 7479 8275 7163 7668 6D6D 6A60"            /* itlnty‚uqcvhmmj` */
	$"7372 7F7F 8994 9D9C 7F86 9290 8895 90A2"            /* sr..‰”�œ.†’�ˆ•�¢ */
	$"9797 8695 8F88 8986 767A 7E7B 7B75 817D"            /* ——†•�ˆ‰†vz~{{u�} */
	$"8665 636E 7568 7570 7E79 7669 6A75 666B"            /* †ecnuhup~yvijufk */
	$"6C65 6074 7482 7C92 93A2 8F81 8A96 8C90"            /* le`tt‚|’“¢��Š–Œ� */
	$"9599 A096 9286 9988 8889 8570 7E7A 7E73"            /* •™ –’†™ˆˆ‰…p~z~s */
	$"7B80 837F 6467 7272 6874 7381 7475 6472"            /* {€ƒ.dgrrhts�tudr */
	$"6C66 6A6F 5F68 777B 7E81 9493 A087 838D"            /* lfjo_hw{~�”“ ‡ƒ� */
	$"9989 9393 9F98 978E 8F95 888A 8A7D 7181"            /* ™‰““Ÿ˜—Ž�•ˆŠŠ}q� */
	$"7C7D 7282 7D85 7462 6878 6D6D 757B 7B72"            /* |}r‚}…tbhxmmu{{r */
	$"7166 7266 686B 6C5D 6F76 7F7A 8B94 9B9B"            /* qfrfhkl]ov.z‹”›› */
	$"8485 9392 8693 979E 9299 8B92 8E89 898B"            /* „…“’†“—ž’™‹’Ž‰‰‹ */
	$"7778 8180 7975 817E 846A 646E 7867 7075"            /* wx�€yu�~„jdnxgpu */
	$"7D72 766E 6A70 6769 6D66 5E72 7A81 7A90"            /* }rvnjpgimf^rz�z� */
	$"959E 9184 8997 8B8B 959A 9792 9588 938B"            /* •ž‘„‰—‹‹•š—’•ˆ“‹ */
	$"8A8B 8873 7C82 8372 7C83 837E 6967 7271"            /* Š‹ˆs|‚ƒr|ƒƒ~igrq */
	$"6672 777B 6F77 6A6C 6B67 696F 6164 7881"            /* frw{owjlkgioadx� */
	$"7B7E 9496 9B8B 878D 9688 8D94 9B90 9591"            /* {~”–›‹‡�–ˆ�”›�•‘ */
	$"8B91 898A 8B80 7180 8680 7183 8382 7769"            /* ‹‘‰Š‹€q€†€qƒƒ‚wi */
	$"6A76 6E69 757C 756F 7669 6D67 6A6C 6B5C"            /* jvniu|uovimgjlk\ */
	$"687B 8076 8797 9999 8987 9192 868F 9898"            /* h{€v‡—™™‰‡‘’†�˜˜ */
	$"8B97 8F8B 8A8A 8B8A 7A75 8588 7A74 8683"            /* ‹—�‹ŠŠ‹Šzu…ˆzt†ƒ */
	$"8271 6A6F 766B 6C79 7E6F 7576 6A6C 686C"            /* ‚qjovkly~ouvjlhl */
	$"6C65 5C6E 7E7F 758D 9798 9186 8A93 8D87"            /* le\n~.u�—˜‘†Š“�‡ */
	$"939B 928D 978C 8B88 8B8A 8575 7788 8974"            /* “›’�—Œ‹ˆ‹Š…uwˆ‰t */
	$"7A88 847E 6D6C 7171 6970 7D7B 6F78 736A"            /* zˆ„~mlqqip}{oxsj */
	$"696A 6E6D 6260 7584 7A79 9197 968B 888D"            /* ijnmb`u„zy‘—–‹ˆ� */
	$"9089 8795 9A8C 9095 8B8A 878C 8C7F 747C"            /* �‰‡•šŒ�•‹Š‡ŒŒ.t| */
	$"8C84 717F 8781 766C 6D72 6F6A 7580 7770"            /* Œ„q.‡�vlmroju€wp */
	$"7872 6B69 6D72 695F 657C 8577 8095 9894"            /* xrkimri_e|…w€•˜” */
	$"8989 8E8C 8789 9896 8990 9287 8487 8F89"            /* ‰‰ŽŒ‡‰˜–‰�’‡„‡�‰ */
	$"7A75 848E 7D74 8288 7F72 6C71 706C 6A79"            /* zu„Ž}t‚ˆ.rlqpljy */
	$"7F71 737B 716A 6972 7364 616C 8482 7786"            /* .qs{qjirsdal„‚w† */
	$"9896 8F87 8D8F 8885 8E9A 8E88 9190 8483"            /* ˜–�‡��ˆ…ŽšŽˆ‘�„ƒ */
	$"8990 8175 7588 8B77 7787 887B 6E70 756D"            /* ‰��uuˆ‹ww‡ˆ{npum */
	$"6C6F 807B 6F76 7B6E 686B 7672 6363 7689"            /* lo€{ov{nhkvrccv‰ */
	$"7E79 8C9D 948A 8791 8A85 8393 9889 8A93"            /* ~yŒ�”Š‡‘Š…ƒ“˜‰Š“ */
	$"8D82 808A 8E79 7378 8F86 747A 8B83 756B"            /* �‚€ŠŽysx�†tz‹ƒuk */
	$"7475 6B6B 7483 7772 797D 6D68 6D7B 6C61"            /* tukktƒwry}mhm{la */
	$"6580 8B7A 7F93 9D90 8689 9286 8584 9993"            /* e€‹z.“��†‰’†…„™“ */
	$"888B 9488 7F7F 8E8A 7371 7E90 7E74 7D8C"            /* ˆ‹”ˆ..ŽŠsq~�~t}Œ */
	$"7E71 6978 706B 6879 8274 747B 7B6B 6874"            /* ~qixpkhy‚tt{{kht */
	$"7E67 656B 8885 7B82 9899 8D83 8D92 8485"            /* ~gekˆ…{‚˜™�ƒ�’„… */
	$"8A9B 8F88 8C94 847E 8192 8172 7285 8D7A"            /* Š›�ˆŒ”„~�’�rr…�z */
	$"7580 8A7A 6B6B 7A6B 6B6A 7E7C 7374 7D75"            /* u€Šzkkzkkj~|st}u */
	$"6A69 7B7B 6569 758C 837E 879D 9688 8093"            /* ji{{eiuŒƒ~‡�–ˆ€“ */
	$"8C84 838F 998C 8B8E 9182 7D85 9379 7474"            /* Œ„ƒ�™Œ‹Ž‘‚}…“ytt */
	$"8B87 7774 8586 7566 7178 676B 6E80 7975"            /* ‹‡wt…†ufqxgkn€yu */
	$"747E 7169 6A81 7465 697E 8E81 818D 9E92"            /* t~qij�tei~Ž���ž’ */
	$"8384 9886 8584 9493 8B89 8F8C 7F7A 8B90"            /* ƒ„˜†…„”“‹‰�Œ.z‹� */
	$"7473 7B8F 8177 778A 816F 6277 7167 6974"            /* ts{��wwŠ�obwqgit */
	$"8076 7575 7D6F 666E 866D 676E 8889 8080"            /* €vuu}ofn†mgnˆ‰€€ */
	$"939B 8E7D 8A97 8286 8898 8F8C 8892 887C"            /* “›Ž}Š—‚†ˆ˜�Œˆ’ˆ| */
	$"7893 8772 7584 8D7D 787A 8B7E 6A65 7E6C"            /* x“‡ru„�}xz‹~je~l */
	$"6A6C 7C7A 7472 7879 6C62 7783 666A 768D"            /* jl|ztrxylbwƒfjv� */
	$"8481 8197 9788 7892 8F81 8690 978C 8C89"            /* „��——ˆx’��†�—ŒŒ‰ */
	$"9285 797D 997E 7479 8C87 7B75 7F89 7A64"            /* ’…y}™~tyŒ‡{u.‰zd */
	$"6F7F 696E 7480 7675 727B 7568 6280 7A65"            /* o.int€vur{uhb€ze */
	$"6E80 8B80 8083 9892 7F7A 9787 8388 958F"            /* n€‹€€ƒ˜’.z—‡ƒˆ•� */
	$"8988 8C8E 8175 8696 7776 808F 807A 7685"            /* ‰ˆŒŽ�u†–wv€�€zv… */
	$"8674 6279 7A6A 727C 7F72 7573 7C71 6468"            /* †tbyzjr|.rus|qdh */
	$"8774 6B75 8987 7E7E 8896 8C78 8194 8084"            /* ‡tku‰‡~~ˆ–Œx�”€„ */
	$"8D95 8988 8790 8C7D 748E 8D74 7985 8A7B"            /* �•‰ˆ‡�Œ}tŽ�ty…Š{ */
	$"7778 8881 6E67 8175 6F76 8079 7272 767B"            /* wxˆ�ng�uov€yrrv{ */
	$"6E63 7287 6F6F 7C8B 837F 8090 9486 7688"            /* ncr‡oo|‹ƒ.€�”†vˆ */
	$"8D7E 878F 9186 8687 9188 7879 9485 777D"            /* �~‡�‘††‡‘ˆxy”…w} */
	$"8884 7975 7C88 7E6B 7182 7174 7A7F 7571"            /* ˆ„yu|ˆ~kq‚qtz.uq */
	$"707B 786B 647C 826F 7682 8981 7D80 928F"            /* p{xkd|‚ov‚‰�}€’� */
	$"7F79 8E87 828A 908B 8382 8A90 8476 8193"            /* .yŽ‡‚Š�‹ƒ‚Š�„v�“ */
	$"7F7B 8187 7F77 7482 8679 6B79 7F72 7A7F"            /* .{�‡.wt‚†yky.rz. */
	$"7E73 6F71 7C74 6769 847C 737A 8586 7F7B"            /* ~soq|tgi„|sz…†.{ */
	$"8492 8A7A 7E8F 8184 8B8E 8681 818E 8D7E"            /* „’Šz~��„‹Ž†��Ž�~ */
	$"7589 8F7B 7D83 867C 7576 8683 736D 817B"            /* u‰�{}ƒ†|uv†ƒsm�{ */
	$"757D 817B 716E 767D 7165 7187 7675 7D86"            /* u}�{qnv}qeq‡vu}† */
	$"847E 7C8C 9083 7785 8B7E 868D 8D83 7E82"            /* „~|Œ�ƒw…‹~†��ƒ~‚ */
	$"8F87 7877 9087 7A7E 8482 7873 7C87 7E6F"            /* �‡xw�‡z~„‚xs|‡~o */
	$"7484 7578 8081 7870 6F7D 7C6E 667B 8474"            /* t„ux€�xpo}|nf{„t */
	$"7983 8781 7C80 908C 7E7A 8D85 8089 8F89"            /* yƒ‡�|€�Œ~z�…€‰�‰ */
	$"7F7C 878F 8275 8092 7F7B 8185 7F76 7282"            /* .|‡�‚u€’.{�….vr‚ */
	$"8478 6E7C 8073 7B83 8074 6D71 8077 696C"            /* „xn|€s{ƒ€tmq€wil */
	$"847E 767D 8686 807B 8691 887B 818F 7F82"            /* „~v}††€{†‘ˆ{��.‚ */
	$"8B8F 857D 7C8D 8B7D 7589 8D7C 7E83 847B"            /* ‹�…}|�‹}u‰�|~ƒ„{ */
	$"7476 847F 7371 847B 767E 847C 706A 767E"            /* tv„.sq„{v~„|pjv~ */
	$"7266 7386 7879 8188 847E 7B8D 8E82 7A89"            /* rfs†xy�ˆ„~{�Ž‚z‰ */
	$"8A7E 868F 8D81 7A7F 8F86 7879 9087 7E7F"            /* Š~†���z.�†xy�‡~. */
	$"8681 7971 7C84 7A6F 7884 7678 8184 786E"            /* †�yq|„zox„vx�„xn */
	$"6B7D 796C 667C 8177 7B85 8981 7B80 9088"            /* k}ylf|�w{…‰�{€�ˆ */
	$"7E7D 8E84 8188 9289 7E78 878D 8075 808F"            /* ~}Ž„�ˆ’‰~x‡�€u€� */
	$"807D 8287 7E76 7384 8077 7080 8076 7A85"            /* €}‚‡~vs„€wp€€vz… */
	$"8273 6A70 7F74 6A6D 827D 797E 8985 7F7A"            /* ‚sjp.tjm‚}y~‰….z */
	$"898E 847C 838D 8083 8C91 847A 7A8D 887C"            /* ‰Ž„|ƒ�€ƒŒ‘„zz�ˆ| */
	$"7688 897F 7D85 8378 7278 857B 7476 857C"            /* vˆ‰.}…ƒxrx…{tv…| */
	$"797D 877C 6F68 787B 7169 7583 7B7B 828A"            /* y}‡|ohx{qiuƒ{{‚Š */
	$"827D 7E8F 8981 7C8B 8881 8490 8D7E 7780"            /* ‚}~�‰�|‹ˆ�„��~w€ */
	$"8D83 7B7B 8D84 7F7F 877D 7471 8081 7972"            /* �ƒ{{�„..‡}tq€�yr */
	$"7C84 797A 8287 766B 6A7C 766E 697C 7F7B"            /* |„yz‚‡vkj|vni|.{ */
	$"7C88 877E 7B84 8F85 7F80 8E84 8286 9287"            /* |ˆ‡~{„�….€Ž„‚†’‡ */
	$"7B76 878A 8278 818B 8280 8387 7973 7583"            /* {v‡Š‚x�‹‚€ƒ‡ysuƒ */
	$"7D78 7281 807A 7B87 8272 6870 7A74 6C6D"            /* }xr�€z{‡‚rhpztlm */
	$"7F7C 7D7F 8A84 7E7D 8B8B 857C 848A 8282"            /* .|}.Š„~}‹‹…|„Š‚‚ */
	$"8A90 8379 7B89 867F 7886 8582 8087 8378"            /* Š�ƒy{‰†.x†…‚€‡ƒx */
	$"737C 837D 7677 837D 7B7F 887D 6F69 7677"            /* s|ƒ}vwƒ}{.ˆ}oivw */
	$"7269 737B 7B7D 8489 827D 818D 8882 7C87"            /* ris{{}„‰‚}��ˆ‚|‡ */
	$"8583 838E 8B7F 7680 8985 7C7D 8683 8282"            /* …ƒƒŽ‹.v€‰…|}†ƒ‚‚ */
	$"877E 7674 8180 7C74 7D81 7E7D 8486 7A6C"            /* ‡~vt�€|t}�~}„†zl */
	$"6D77 7670 6A76 787D 7F87 8680 7B87 8C88"            /* mwvpjvx}.‡†€{‡Œˆ */
	$"7E80 8783 8286 8D87 7B77 8386 847A 8084"            /* ~€‡ƒ‚†�‡{wƒ†„z€„ */
	$"8382 8584 7C73 7982 817A 7781 8080 8086"            /* ƒ‚…„|sy‚�zw�€€€† */
	$"8276 6A72 7676 6E6F 777B 7D82 8784 7C7D"            /* ‚vjrvvnow{}‚‡„|} */
	$"888A 857C 8384 8383 8A8A 8476 7A83 8780"            /* ˆŠ…|ƒ„ƒƒŠŠ„vzƒ‡€ */
	$"7B82 8383 8286 8279 737D 8181 787C 8283"            /* {‚ƒƒ‚†‚ys}��x|‚ƒ */
	$"8084 8681 726D 7377 756C 7378 7D7E 8686"            /* €„†�rmswulsx}~†† */
	$"837A 8287 8980 7D82 8481 848A 877E 757D"            /* ƒz‚‡‰€}‚„�„Š‡~u} */
	$"8186 7C7D 8083 8186 8580 7679 7F81 8078"            /* �†|}€ƒ�†…€vy.�€x */
	$"7E81 8281 8885 7E6F 7474 7973 7074 7B7C"            /* ~�‚�ˆ…~ottyspt{| */
	$"8287 8480 7E86 8688 7E7F 8083 7F87 8884"            /* ‚‡„€~††ˆ~.€ƒ.‡ˆ„ */
	$"787A 7C81 827B 7C7F 8181 8781 7D76 7E7C"            /* xz|�‚{|.��‡�}v~| */
	$"827D 7B7D 827F 8488 8379 7376 747A 7272"            /* ‚}{}‚.„ˆƒysvtzrr */
	$"747C 7C87 8583 7E86 8587 8780 8082 8181"            /* t||‡…ƒ~†…‡‡€€‚�� */
	$"8A85 8077 7D79 827F 7C7A 817F 8486 7E79"            /* Š…€w}y‚.|z�.„†~y */
	$"7A7E 7A82 7C7C 7D82 7F89 8580 7477 7275"            /* z~z‚||}‚.‰…€twru */
	$"7973 7277 7C80 8A83 8280 8982 8885 827F"            /* ysrw|€Šƒ‚€‰‚ˆ…‚. */
	$"847E 8588 817A 7A7B 7884 7E7C 7B81 7E89"            /* „~…ˆ�zz{x„~|{�~‰ */
	$"827C 7780 7A7B 817D 7C80 8081 8C82 7C75"            /* ‚|w€z{�}|€€�Œ‚|u */
	$"796F 7978 7571 7A79 8488 8180 8688 818B"            /* yoyxuqzy„ˆ�€†ˆ�‹ */
	$"8482 8082 7E89 857E 787D 767A 837E 7A7D"            /* „‚€‚~‰…~x}vzƒ~z} */
	$"7F81 897D 7A7A 8076 7E80 7E7B 817D 868A"            /* .�‰}zz€v~€~{�}†Š */
	$"807A 7A75 707C 7874 737A 7B89 8581 828B"            /* €zzup|xtsz{‰…�‚‹ */
	$"8383 8A86 8182 8080 8A80 7C7B 7E74 7F83"            /* ƒƒŠ†�‚€€Š€|{~t.ƒ */
	$"7F79 7E7D 8486 7A78 807D 7580 7F7E 7C80"            /* .y~}„†zx€}u€.~|€ */
	$"7D89 857D 797C 7172 7D79 7376 7A7F 8B82"            /* }‰…}y|qr}ysvz.‹‚ */
	$"8087 8C81 878B 8680 827D 8488 7D7A 7F7A"            /* €‡Œ�‡‹†€‚}„ˆ}z.z */
	$"7483 837D 7A7F 7D88 8279 7B82 7876 817F"            /* tƒƒ}z.}ˆ‚y{‚xv�. */
	$"7B7E 7D7E 8A81 7B7A 796E 767D 7772 7879"            /* {~}~Š�{zynv}wrxy */
	$"8389 8082 8B89 7F8A 8A84 8081 7C87 857C"            /* ƒ‰€‚‹‰.ŠŠ„€�|‡…| */
	$"7C7E 7677 8582 7B7C 7E80 8A7E 7A7F 8175"            /* |~vw…‚{|~€Š~z.�u */
	$"7A82 7F7C 7E7C 8188 7D7A 7B76 6C79 7B75"            /* z‚.|~|�ˆ}z{vly{u */
	$"7378 7B88 867F 868D 8580 8B89 8381 7F7E"            /* sx{ˆ†.†�…€‹‰ƒ�.~ */
	$"8981 7C7E 7E73 7B86 807A 7C7E 8388 7A7C"            /* ‰�|~~s{†€z|~ƒˆz| */
	$"827F 747E 827F 7C7F 7C87 867B 7C7C 716D"            /* ‚.t~‚.|.|‡†{||qm */
	$"7C7A 7473 7A7D 8A81 8189 8D81 838C 8881"            /* |ztsz}Š��‰��ƒŒˆ� */
	$"807E 8188 7D7D 7F7B 7180 847F 787E 7E87"            /* €~�ˆ}}.{q€„.x~~‡ */
	$"8379 7E83 7B74 8182 7E7C 7F7D 8980 7C7D"            /* ƒy~ƒ{t�‚~|.}‰€|} */
	$"7B6D 727E 7972 767B 8089 7F84 8A8A 7D87"            /* {mr~yrv{€‰.„ŠŠ}‡ */
	$"8B86 7E82 7F84 857C 7E7F 7772 8483 7C78"            /* ‹†~‚.„…|~.wr„ƒ|x */
	$"807E 877D 7A7F 8377 7883 817A 7D7F 7E86"            /* €~‡}z.ƒwxƒ�z}.~† */
	$"7C7E 7D78 6B78 7E78 717B 7D84 867F 868B"            /* |~}xkx~xq{}„†.†‹ */
	$"867D 8A89 837E 847E 867F 7F80 7F74 7886"            /* †}Š‰ƒ~„~†..€.tx† */
	$"8279 7A81 8086 7A7E 8081 737C 827F 7780"            /* ‚yz�€†z~€�s|‚.w€ */
	$"7E81 817B 7D7B 746C 7C7D 7772 7F7E 8782"            /* ~��{}{tl|}wr.~‡‚ */
	$"8388 8D82 818A 877F 8084 7F86 7E82 7F7E"            /* ƒˆ�‚�Š‡.€„.†~‚.~ */
	$"727E 8581 7680 8283 827C 7F81 7E74 8081"            /* r~…�v€‚ƒ‚|.�~t€� */
	$"7D77 837C 817D 7D7B 7A70 717D 7B73 7681"            /* }wƒ|�}}{zpq}{sv� */
	$"8088 8187 888B 7F85 8886 7C85 8381 8380"            /* €ˆ�‡ˆ‹.…ˆ†|…ƒ�ƒ€ */
	$"817F 7B74 8182 7E76 8380 837E 7F7F 827A"            /* �.{t�‚~vƒ€ƒ~..‚z */
	$"7880 7F79 7B82 7B80 7B7E 7878 6C75 7B7A"            /* x€.y{‚{€{~xxlu{z */
	$"707D 8081 8483 8687 877E 8685 827C 8880"            /* p}€�„ƒ†‡‡~†…‚|ˆ€ */
	$"8280 8380 8078 7882 8179 7A84 7F82 7D80"            /* ‚€ƒ€€xx‚�yz„.‚}€ */
	$"7E81 777C 7F7F 7680 807B 7D7C 7B76 746C"            /* ~�w|..v€€{}|{vtl */
	$"797A 7971 8280 8381 8684 8983 8085 847E"            /* yzyq‚€ƒ�†„‰ƒ€…„~ */
	$"8088 8082 7F85 7E80 767D 8081 7680 8380"            /* €ˆ€‚.…~€v}€�v€ƒ€ */
	$"807F 807F 8077 7F7E 7D75 847D 7C79 7F78"            /* €.€.€w.~}u„}|y.x */
	$"7871 7179 7A75 7785 8084 8189 8388 8083"            /* xqqyzuw…€„�‰ƒˆ€ƒ */
	$"8284 7B85 8680 8081 837E 7E77 807F 7F77"            /* ‚„{…†€€�ƒ~~w€..w */
	$"8681 807D 827F 807D 7A7E 7D7A 7B84 7B7C"            /* †�€}‚.€}z~}z{„{| */
	$"787F 7577 6F76 777B 737F 8582 8283 8784"            /* x.uwovw{s.…‚‚ƒ‡„ */
	$"867F 8380 827C 8882 817F 8580 7E7A 7B80"            /* †.ƒ€‚|ˆ‚�.…€~z{€ */
	$"7E7B 7B87 8081 7D84 7E81 7B7D 7B7E 7880"            /* ~{{‡€�}„~�{}{~x€ */
	$"817B 7A7A 7D74 7470 7976 7A74 8383 8380"            /* �{zz}ttpyvztƒƒƒ€ */
	$"8785 8582 8081 7F80 8089 8080 7E87 7E7E"            /* ‡……‚€�.€€‰€€~‡~~ */
	$"787E 7D7E 7980 8681 7F7F 847F 807B 7F79"            /* x~}~y€†�..„.€{.y */
	$"7D79 837F 7B77 7D7A 7572 7379 7778 7986"            /* }yƒ.{w}zursywxy† */
	$"8284 8089 8385 8082 7F80 7E84 8780 8080"            /* ‚„€‰ƒ…€‚.€~„‡€€€ */
	$"857D 7C79 807C 7D7A 8483 807E 8181 807E"            /* …}|y€|}z„ƒ€~��€~ */
	$"7C7D 787B 7D84 7D7B 777E 7874 7176 7777"            /* |}x{}„}{w~xtqvww */
	$"7880 8683 8381 8883 8380 827D 7F80 8784"            /* x€†ƒƒ�ˆƒƒ€‚}.€‡„ */
	$"807F 8283 7D7A 7B80 7B7C 7F85 8180 7D81"            /* €.‚ƒ}z{€{|.…�€}� */
	$"807E 7C7D 7B78 7C81 827C 7979 7E75 7272"            /* €~|}{x|�‚|yy~urr */
	$"7775 767B 8385 8381 8387 8281 8080 7B7F"            /* wuv{ƒ…ƒ�ƒ‡‚�€€{. */
	$"8388 8280 8085 827B 7A7E 7F7B 7E82 8681"            /* ƒˆ‚€€…‚{z~.{~‚†� */
	$"807E 817F 7D7C 7D79 787F 8380 7A79 7A7C"            /* €~�.}|}yx.ƒ€zyz| */
	$"7471 7377 7577 7F84 8483 8284 8580 8080"            /* tqswuw.„„ƒ‚„…€€€ */
	$"7F79 8085 8680 8081 8580 7A7B 7F7E 7B80"            /* .y€…†€€�…€z{.~{€ */
	$"8485 8180 8082 7E7D 7C7D 787B 8183 7F7A"            /* „…�€€‚~}|}x{�ƒ.z */
	$"7B7C 7A72 7274 7775 7A81 8682 8383 8583"            /* {|zrrtwuz�†‚ƒƒ…ƒ */
	$"8080 7F7C 7A82 8684 7E80 8184 7E7B 7C7F"            /* €€.|z‚†„~€�„~{|. */
	$"7C7D 8386 8380 8080 817D 7E7C 7C77 7E82"            /* |}ƒ†ƒ€€€�}~||w~‚ */
	$"837B 7A7A 7B77 7273 7577 757E 8385 8084"            /* ƒ{zz{wrsuwu~ƒ…€„ */
	$"8386 8180 807E 7A7C 8586 827E 8282 837C"            /* ƒ†�€€~z|…†‚~‚‚ƒ| */
	$"7D7D 7F7A 8084 8680 8080 8080 7C7E 7B7A"            /* }}.z€„†€€€€€|~{z */
	$"7880 8381 797B 7A7B 7573 7376 7578 8084"            /* x€ƒ�y{z{ussvux€„ */
	$"8480 8483 8480 817E 7E79 8085 8780 8082"            /* „€„ƒ„€�~~y€…‡€€‚ */
	$"8480 7C7E 7D7E 7B82 8586 7F81 8082 7D7D"            /* „€|~}~{‚…†.�€‚}} */
	$"7D7B 797A 8283 8078 7C7B 7972 7572 7674"            /* }{yz‚ƒ€x|{yrurvt */
	$"7B80 8681 8184 8481 7F80 7C7B 7982 8586"            /* {€†��„„�.€|{y‚…† */
	$"7E81 8385 7E7E 7E7D 7D7E 8486 857F 8281"            /* ~�ƒ…~~~}}~„†….‚� */
	$"807B 807B 7B78 7F82 837C 7A7C 7C77 7375"            /* €{€{{x.‚ƒ|z||wsu */
	$"7376 767F 8186 8084 8485 7E80 7F7B 797C"            /* svv.�†€„„…~€.{y| */
	$"8386 847E 8384 827B 807B 7E7B 8183 8681"            /* ƒ†„~ƒ„‚{€{~{�ƒ†� */
	$"8083 827E 7C7F 7979 7980 8283 797C 7C7C"            /* €ƒ‚~|.yyy€‚ƒy||| */
	$"7374 7575 757A 8084 8580 8584 827D 817C"            /* stuuuz€„…€…„‚}�| */
	$"7B79 8083 8680 8084 8580 7C7F 7B7D 7D83"            /* {y€ƒ†€€„…€|.{}}ƒ */
	$"8486 8082 8281 7A7E 7C7A 797C 8183 807A"            /* „†€‚‚�z~|zy|�ƒ€z */
	$"7D7C 7972 7672 7576 7D80 8582 8385 8480"            /* }|yrvruv}€…‚ƒ…„€ */
	$"7E80 7A7A 7A81 8386 8083 8484 7C7F 7D7C"            /* ~€zzz�ƒ†€ƒ„„|.}| */
	$"7C80 8384 8480 8381 7F7B 807B 7B7A 8081"            /* |€ƒ„„€ƒ�.{€{{z€� */
	$"837D 7B7D 7C76 7476 7376 787F 8185 8084"            /* ƒ}{}|vtvsvx.�…€„ */
	$"8483 7C80 7D7B 7A7E 8284 847F 8384 827C"            /* „ƒ|€}{z~‚„„.ƒ„‚| */
	$"807B 7E7E 8382 8682 8282 817C 7C7F 7B7B"            /* €{~~ƒ‚†‚‚‚�||.{{ */
	$"7C81 8183 7B7D 7C7B 7376 7474 767B 7F82"            /* |��ƒ{}|{svttv{.‚ */
	$"8481 8483 807B 807B 7B7A 8081 8481 8083"            /* „�„ƒ€{€{{z€�„�€ƒ */
	$"847F 7D7F 7C7F 8084 8286 8183 8180 7B7F"            /* „.}.|.€„‚†�ƒ�€{. */
	$"7D7B 7B7F 8183 827C 7E7C 7A73 7773 7778"            /* }{{.�ƒ‚|~|zswswx */
	$"7E7F 8482 8383 827E 7C7F 7A7A 7B81 8084"            /* ~.„‚ƒƒ‚~|.zz{�€„ */
	$"7F82 8283 7C7F 7D7D 7E81 8383 8481 8280"            /* .‚‚ƒ|.}}~�ƒƒ„�‚€ */
	$"7F7A 807C 7C7C 8282 8480 7D7D 7C78 7476"            /* .z€|||‚‚„€}}|xtv */
	$"7478 7A80 8085 8284 8282 7B7E 7C7A 797D"            /* txz€€…‚„‚‚{~|zy} */
	$"8081 837F 8181 817B 807C 7E7E 8381 8482"            /* €�ƒ.���{€|~~ƒ�„‚ */
	$"8180 807C 7C7F 7C7D 7D83 8184 7E7E 7C7C"            /* �€€||.|}}ƒ�„~~|| */
	$"7577 7577 787D 8081 8582 8381 807B 807A"            /* uwuwx}€�…‚ƒ�€{€z */
	$"7B79 807F 8380 8080 827F 7C7F 7C7F 7F83"            /* {y€.ƒ€€€‚.|.|..ƒ */
	$"8084 8082 7F80 7A7E 7E7C 7C80 8382 837D"            /* €„€‚.€z~~||€ƒ‚ƒ} */
	$"7E7C 7C75 7975 7879 807F 8383 8383 827E"            /* ~||uyuxy€.ƒƒƒƒ‚~ */
	$"7C80 7A7B 7A80 7F83 7F81 7F82 7C7F 7D7D"            /* |€z{z€.ƒ.�.‚|.}} */
	$"7D80 8180 8380 817E 807A 817C 7E7C 8380"            /* }€�€ƒ€�~€z�|~|ƒ€ */
	$"8380 7E7C 7C79 7679 7679 7A81 7E85 8285"            /* ƒ€~||yvyvyz�~…‚… */
	$"8082 7C7F 7E7B 797C 8080 837E 817F 817A"            /* €‚|.~{y|€€ƒ~�.�z */
	$"807C 7E7C 827E 8180 8180 7F7D 7C81 7D7E"            /* €|~|‚~�€�€.}|�}~ */
	$"7C83 8084 7D80 7B7E 7779 7979 797E 8180"            /* |ƒ€„}€{~wyyyy~�€ */
	$"8483 8680 827B 817C 7C78 807D 817F 8080"            /* „ƒ†€‚{�||x€}�.€€ */
	$"807F 7C80 7C7E 7C83 7C82 7D82 7D80 7A7F"            /* €.|€|~|ƒ|‚}‚}€z. */
	$"807F 7D80 8381 837E 807B 7E77 7C78 7C7A"            /* €.}€ƒ�ƒ~€{~w|x|z */
	$"8280 8383 8483 8280 7D81 7C7C 7980 7D82"            /* ‚€ƒƒ„ƒ‚€}�||y€}‚ */
	$"7D82 7D81 7C7F 7D7D 7D7F 807D 817E 827D"            /* }‚}�|.}}}.€}�~‚} */
	$"807A 827D 807B 8280 8380 807E 7D7C 787D"            /* €z‚}€{‚€ƒ€€~}|x} */
	$"797D 7B83 7F85 8187 8283 7D80 7F7D 7A7C"            /* y}{ƒ.…�‡‚ƒ}€.}z| */
	$"7F7E 807D 827E 807A 807C 7E7A 807D 807E"            /* .~€}‚~€z€|~z€}€~ */
	$"8080 7E7D 7C81 7D7F 7B82 8083 7D81 7D7E"            /* €€~}|�}.{‚€ƒ}�}~ */
	$"797C 7A7B 7B7E 8281 8482 8782 827C 827D"            /* y|z{{~‚�„‚‡‚‚|‚} */
	$"7D78 7E7D 807D 8080 807E 7C80 7C7E 7A80"            /* }x~}€}€€€~|€|~z€ */
	$"7C80 7C82 7E80 7B80 807F 7D7E 8281 827D"            /* |€|‚~€{€€.}~‚�‚} */
	$"817D 7E78 7D7A 7D7A 8180 8382 8585 8380"            /* �}~x}z}z�€ƒ‚……ƒ€ */
	$"7E81 7D7D 787F 7D81 7C82 8081 7C7F 7D7D"            /* ~�}}x.}�|‚€�|.}} */
	$"7B7D 7E7D 7E7D 827E 7E7A 817E 807B 8180"            /* {}~}~}‚~~z�~€{�€ */
	$"827F 7F80 7F7B 7A7D 7A7D 7C82 8084 8187"            /* ‚..€.{z}z}|‚€„�‡ */
	$"8483 7D81 807D 7A7B 7E7F 7F7D 8280 807B"            /* „ƒ}�€}z{~..}‚€€{ */
	$"807C 7E7A 7F7D 7E7C 7F80 7F7B 7C81 7F7F"            /* €|~z.}~|.€.{|�.. */
	$"7D82 8182 7D80 7E7F 787B 7B7D 7C7F 8182"            /* }‚�‚}€~.x{{}|.�‚ */
	$"8282 8683 817D 827F 7D79 7D7E 807D 7E80"            /* ‚‚†ƒ�}‚.}y}~€}~€ */
	$"817D 7D7F 7D7D 7C7F 7D7D 7B80 7E7D 7A7F"            /* �}}.}}|.}}{€~}z. */
	$"8080 7C7F 8282 807D 7F7F 7C79 7C7B 7D7C"            /* €€|.‚‚€}..|y|{}| */
	$"8181 8281 8484 837E 7F82 807B 7B7E 807F"            /* ��‚�„„ƒ~.‚€{{~€. */
	$"7C80 8080 7D7F 7F7F 7C7E 7E7D 7B7D 807F"            /* |€€€}...|~~}{}€. */
	$"7C7B 8081 7F7C 8082 817D 7E7E 7E7A 7B7C"            /* |{€�.|€‚�}~~~z{| */
	$"7D7B 7E81 8281 8285 8582 7E81 827F 797C"            /* }{~�‚�‚……‚~�‚.y| */
	$"7E80 7D7D 8082 7F7E 8080 7D7C 7E7E 7C7B"            /* ~€}}€‚.~€€}|~~|{ */
	$"7F80 7F7B 7D81 817C 7D80 827F 7D7E 7F7D"            /* .€.{}��|}€‚.}~.} */
	$"7A7B 7D7D 7B7F 8182 8084 8585 8080 8282"            /* z{}}{.�‚€„……€€‚‚ */
	$"7D7A 7D80 7E7C 7F81 827E 7F80 807C 7D7E"            /* }z}€~|.�‚~.€€|}~ */
	$"7E7B 7D80 807D 7B80 8280 7B7F 8181 7D7D"            /* ~{}€€}{€‚€{.��}} */
	$"7E7F 7B7B 7B7D 7B7C 8081 8080 8485 847F"            /* ~.{{{}{|€�€€„…„. */
	$"8081 817B 7B7E 807D 7E80 8180 7F80 817F"            /* €��{{~€}~€�€.€�. */
	$"7C7F 7F7D 7A7E 8080 7C7D 8082 7E7C 8081"            /* |..}z~€€|}€‚~|€� */
	$"7F7C 7E7E 7E7A 7B7C 7D7A 7D80 817F 8184"            /* .|~~~z{|}z}€�.�„ */
	$"8481 7F81 827F 7A7C 7F7F 7C7F 8081 8080"            /* „�.�‚.z|..|.€�€€ */
	$"8081 7E7E 807F 7C7C 7F80 7E7C 7E81 817C"            /* €�~~€.||.€~|~��| */
	$"7E80 817D 7D7E 7E7C 7B7C 7D7C 7A7E 8080"            /* ~€�}}~~|{|}|z~€€ */
	$"7F83 8483 8080 8181 7C7A 7D7E 7D7D 7F80"            /* .ƒ„ƒ€€��|z}~}}.€ */
	$"8180 8081 817D 7E80 7E7B 7E80 807E 7D80"            /* �€€��}~€~{~€€~}€ */
	$"8280 7C7E 807F 7C7E 7E7E 7C7B 7C7E 7B7B"            /* ‚€|~€.|~~~|{|~{{ */
	$"8080 7E80 8383 8380 8081 807B 7B7E 7E7C"            /* €€~€ƒƒƒ€€�€{{~~| */
	$"7E80 8181 8081 8180 7D80 807C 7B7E 8080"            /* ~€��€��€}€€|{~€€ */
	$"7E7E 8082 7E7C 8080 7D7D 7E7D 7C7C 7B7C"            /* ~~€‚~|€€}}~}||{| */
	$"7C7B 7D81 7F7E 8184 8381 8081 817E 7B7D"            /* |{}�.~�„ƒ�€��~{} */
	$"7F7C 7C80 8081 8180 8181 7F7E 817E 7B7D"            /* .||€€��€��.~�~{} */
	$"8080 7F7E 7E81 817D 7E81 7E7C 7D7E 7C7C"            /* €€.~~��}~�~|}~|| */
	$"7B7C 7D7C 7B7E 807D 7E82 8382 817F 8181"            /* {|}|{~€}~‚ƒ‚�.�� */
	$"7D7B 7F7E 7C7E 8080 8181 8081 817E 7E81"            /* }{.~|~€€��€��~~� */
	$"7D7C 7E81 7F80 7E80 8180 7C7F 807C 7D7E"            /* }|~�.€~€�€|.€|}~ */
	$"7E7C 7C7B 7C7C 7B7B 807E 7D80 8382 8280"            /* ~||{||{{€~}€ƒ‚‚€ */
	$"8081 807C 7C7F 7C7C 7E81 8082 8081 8180"            /* €�€||.||~�€‚€��€ */
	$"7E81 807C 7D80 8180 807E 8181 7F7C 817E"            /* ~�€|}€�€€~��.|�~ */
	$"7C7D 7E7D 7D7C 7B7D 7C7B 7D80 7D7E 8082"            /* |}~}}|{}|{}€}~€‚ */
	$"8181 7F80 807E 7B7E 7E7C 7E7F 8180 8180"            /* ��.€€~{~~|~.�€�€ */
	$"8281 807E 817E 7D7E 8080 807F 7E81 807E"            /* ‚�€~�~}~€€€.~�€~ */
	$"7E81 7D7D 7D7F 7D7E 7B7D 7D7D 7B7F 7F7D"            /* ~�}}}.}~{}}}{..} */
	$"7F81 8281 817E 817F 7E7B 807D 7D7D 8080"            /* .�‚��~�.~{€}}}€€ */
	$"8181 8082 807F 7F81 7D7E 7E81 7F80 7E80"            /* ��€‚€..�}~~�.€~€ */
	$"8180 7D80 807D 7D7D 7E7D 7E7B 7D7C 7D7C"            /* �€}€€}}}~}~{}|}| */
	$"817E 7E7F 8282 8180 7F81 7E7D 7C80 7C7D"            /* �~~.‚‚�€.�~}|€|} */
	$"7D81 7F81 8081 8180 7E80 817D 7E7F 817E"            /* }�.�€��€~€�}~.�~ */
	$"807E 8180 7F7D 817E 7D7D 7E7E 7D7D 7B7E"            /* €~�€.}�~}}~~}}{~ */
	$"7B7D 7D81 7D7E 7F83 8081 7E80 807E 7C7D"            /* {}}�}~.ƒ€�~€€~|} */
	$"7F7C 7E7E 817F 827F 8280 807E 827F 7D7E"            /* .|~~�.‚.‚€€~‚.}~ */
	$"8081 7F7F 7E82 7E7E 7D81 7D7D 7C80 7D7E"            /* €�..~‚~~}�}}|€}~ */
	$"7C7D 7D7C 7D7E 807D 7F80 8380 817E 817E"            /* |}}|}~€}.€ƒ€�~�~ */
	$"7E7C 7F7D 7D7D 8081 8081 8082 7E80 7E82"            /* ~|.}}}€�€�€‚~€~‚ */
	$"7D7E 7D82 7F80 7E80 817E 7E7E 807C 7E7C"            /* }~}‚.€~€�~~~€|~| */
	$"807D 7E7C 7F7C 7D7C 807E 7E7F 8183 8080"            /* €}~|.|}|€~~.�ƒ€€ */
	$"7F82 7D7E 7B80 7C7E 7D81 8081 8081 817E"            /* .‚}~{€|~}�€�€��~ */
	$"7F7F 817C 7E7E 837E 807D 827E 7F7D 807E"            /* ..�|~~ƒ~€}‚~.}€~ */
	$"7D7D 7E80 7D7E 7D7F 7B7E 7C82 7D80 7E83"            /* }}~€}~}.{~|‚}€~ƒ */
	$"8181 7F81 807D 7D7D 807C 7E7D 827E 817F"            /* ��.�€}}}€|~}‚~�. */
	$"827E 7F7E 817E 7D7E 8081 7E7F 7E82 7D7F"            /* ‚~.~�~}~€�~.~‚}. */
	$"7C81 7D7F 7D80 7E7E 7D7E 7E7C 7D7E 817D"            /* |�}.}€~~}~~|}~�} */
	$"807F 8480 817E 827D 7D7C 7E7D 7D7E 7F81"            /* €.„€�~‚}}|~}}~.� */
	$"7F81 7F82 7D80 7E81 7D7E 7D81 807F 7E80"            /* .�.‚}€~�}~}�€.~€ */
	$"807D 7E7E 807D 7F7C 817C 7F7D 807C 7D7D"            /* €}~~€}.|�|.}€|}} */
	$"807E 7E80 8183 8080 7E82 7C7E 7C80 7C7E"            /* €~~€�ƒ€€~‚|~|€|~ */
	$"7D81 8080 8081 807D 7F7F 807D 7F7D 827E"            /* }�€€€�€}..€}.}‚~ */
	$"807D 817E 7E7D 7F7E 7E7E 7E"                        /* €}�~~}.~~~~ */
};

\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/Sounds/Quack.r b/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/Sounds/Quack.r
new file mode 100644
index 0000000..f1a65e4
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/Sounds/Quack.r
@@ -0,0 +1 @@
+data $8014 (0x18024) {
	$"0100 0100 0000 1A00 0000 0551 7561 636B"            /* ...........Quack */
};

data $8024 (0x1A) {
	$"0000 0800 E88E 0000 772B 8080 8080 8080"            /* .....Ž..w+€€€€€€ */
	$"8080 8080 8080 8080 8080 8080 8080 8080"            /* €€€€€€€€€€€€€€€€ */
	$"8080 8080 8080 8080 8080 8080 8080 8080"            /* €€€€€€€€€€€€€€€€ */
	$"7B7A 7A7A 7B7B 7C7D 7E7E 8082 8384 8586"            /* {zzz{{|}~~€‚ƒ„…† */
	$"8789 8A8B 8C8B 8781 7973 6E6B 6B6C 6F73"            /* ‡‰Š‹Œ‹‡�ysnkklos */
	$"7577 7776 736B 6562 6160 6268 6E73 787D"            /* uwwvskeba`bhnsx} */
	$"8184 8582 7F7C 7978 7879 7E85 8B8F 9394"            /* �„…‚.|yxxy~…‹�“” */
	$"9492 8E8A 8581 8081 8388 8C93 9AA0 A5AA"            /* ”’ŽŠ…�€�ƒˆŒ“š ¥ª */
	$"AAA9 A290 7A62 5657 5D6E 8190 9EA3 A59F"            /* ª©¢�zbVW]n��ž£¥Ÿ */
	$"8E78 6053 4F52 6172 818C 9397 948D 8274"            /* Žx`SORar�Œ“—”�‚t */
	$"6A63 6266 6F75 7879 7670 6A65 6163 676A"            /* jcbfouxyvpjeacgj */
	$"6D6F 6F6C 6A66 6464 656B 727A 848B 8F95"            /* mooljfddekrz„‹�• */
	$"9795 9491 8F8F 939D A7B4 C6D0 DCDB CBA0"            /* —•”‘��“�§´ÆÐ..Ë  */
	$"6940 373F 668F B5C1 BFB7 A07D 552E 2324"            /* i@7?f�µÁ¿· }U.#$ */
	$"416C 97B0 B1AC 9B8A 7E74 7074 808F A0A4"            /* Al—°±¬›Š~tpt€� ¤ */
	$"9D90 8072 7178 8189 8B8A 806F 5C46 3531"            /* ��€rqx�‰‹Š€o\F51 */
	$"3446 5B69 7270 685A 504E 4E5A 6979 878E"            /* 4F[irphZPNNZiy‡Ž */
	$"9393 908D 8D91 98A4 B4CB DDEC F3E4 B76C"            /* ““���‘˜¤´Ë....·l */
	$"2B19 3069 A8DA DEC3 9A74 553C 3138 4A6A"            /* +.0i¨..ÚtU<18Jj */
	$"8E9E 9A7E 6A68 738D A3B2 B1A9 9484 726D"            /* Žžš~jhs�£²±©”„rm */
	$"6E81 9CB1 B7B0 967A 6055 4F4C 4F56 5855"            /* n�œ±·°–z`UOLOVXU */
	$"524A 4543 474C 5357 5A5D 5E5B 5F64 6E7D"            /* RJECGLSWZ]^[_dn} */
	$"8D9D A5A9 B1B4 BCC4 D7F0 F0C5 7E3D 2140"            /* ��¥©±´¼Ä×..Å~=!@ */
	$"77B7 D0CF A57B 685A 483E 4558 656D 685C"            /* w·ÐÏ¥{hZH>EXemh\ */
	$"5463 86A7 B4B2 9F87 706B 7286 95A8 B2B1"            /* Tc†§´²Ÿ‡pkr†•¨²± */
	$"A294 8D8A 8C8B 816F 5E53 4C4C 4D4F 5558"            /* ¢”�ŠŒ‹�o^SLLMOUX */
	$"5854 524E 4F55 5B5E 646F 7C80 8186 909D"            /* XTRNOU[^do|€�†�� */
	$"B5CD DEE9 F0E7 BF69 132E 73BA E7EE B078"            /* µÍ....¿i..sº..°x */
	$"5363 7884 7C72 5F3E 2D2C 476E 9ABC B18A"            /* Scx„|r_>-,Gnš¼±Š */
	$"6D67 7489 9B9D 998D 8382 8690 A8B7 B492"            /* mgt‰›�™�ƒ‚†�¨·´’ */
	$"715A 5C69 7570 5E4F 474B 545B 6061 574B"            /* qZ\iup^OGKT[`aWK */
	$"4F5F 727F 8782 7C81 95B7 D2E6 F2EC BA62"            /* O_r.‡‚|�•·Ò...ºb */
	$"1E31 83DD F7D9 854B 5A8C B2A3 8C6F 441A"            /* .1ƒ...…KZŒ²£ŒoD. */
	$"1735 5C92 AB9E 6B49 5A82 A2A7 9177 6565"            /* .5\’«žkIZ‚¢§‘wee */
	$"7B91 A1AA B3A1 7D55 5B80 9A9C 7E59 4748"            /* {‘¡ª³¡}U[€šœ~YGH */
	$"596B 6E61 5958 5351 6076 8386 807F 8EA9"            /* YknaYXSQ`vƒ†€.Ž© */
	$"D4E6 EBE5 CB90 3A1E 6ED2 F3E5 9F52 4783"            /* Ô...Ë�:.nÒ..ŸRGƒ */
	$"C8CB 9059 3624 2B54 8998 937A 5647 6D9F"            /* ÈË�Y6$+T‰˜“zVGmŸ */
	$"B198 7065 708B 989E 948C 8E8E 8684 9294"            /* ±˜pep‹˜ž”ŒŽŽ†„’” */
	$"856C 504F 5D71 796D 615A 5964 6C72 7679"            /* …lPO]qymaZYdlrvy */
	$"7674 7F99 C0CC DCED D793 3931 7FDF EAC8"            /* vt.™ÀÌ..ד91...È */
	$"7E53 6EB0 D3A7 6C48 3A40 5B87 8F75 5A42"            /* ~Sn°Ó§lH:@[‡�uZB */
	$"3E63 A4B9 8F5A 4961 879D 9E8C 7570 7A87"            /* >c¤¹�ZIa‡�žŒupz‡ */
	$"90A1 A78D 624A 5376 8B7B 5241 475B 707B"            /* �¡§�bJSv‹{RAG[p{ */
	$"736B 6D75 7E8B A4C6 D9DC C28A 2F23 81F2"            /* skmu~‹¤Æ..Š/#�. */
	$"DF9B 5D4A 65B7 E7BE 6637 474D 577D 9578"            /* .›]Je·.¾f7GMW}•x */
	$"4D38 4570 A5B1 8043 2957 8F9C 8A7A 6C67"            /* M8Ep¥±€C)W�œŠzlg */
	$"7384 8B90 9388 7468 6470 7871 615A 5D64"            /* s„‹�“ˆthdpxqaZ]d */
	$"6971 7576 7E8D 979C B1C9 D5CA 8F37 228C"            /* iquv~�—œ±ÉÕÊ�7"Œ */
	$"E4DF 9A5B 5177 B2D2 BE7A 4542 596A 89A0"            /* ..š[Qw²Ò¾zEBYj‰  */
	$"7F59 4958 8FAF A166 3C46 739D 9B77 5D6A"            /* .YIX�¯¡f<Fs�›w]j */
	$"7991 968B 8081 7872 757C 7C74 6559 6978"            /* y‘–‹€�xru||teYix */
	$"7565 5D68 7C87 8E9A A7B7 C8CD A252 2260"            /* ue]h|‡Žš§·ÈÍ¢R"` */
	$"CEDD B16D 4972 B3D6 BF84 4D47 5165 8395"            /* Î.±mIr³Ö¿„MGQeƒ• */
	$"7546 4560 8EB3 AB74 3B43 769B 9F7B 574F"            /* uFE`Ž³«t;Cv›Ÿ{WO */
	$"6287 9C94 8478 7273 7579 766E 6259 5D71"            /* b‡œ”„xrsuyvnbY]q */
	$"7F75 6968 737E 8FA0 A7AB AFB7 8934 1F93"            /* .uihs~� §«¯·‰4.“ */
	$"D6D0 7F47 4A7E B6C8 A35D 4250 6A79 8C85"            /* ÖÐ.GJ~¶È£]BPjyŒ… */
	$"5E3F 5988 A6A8 8D62 4C5B 90A7 8765 5E67"            /* ^?Yˆ¦¨�bL[�§‡e^g */
	$"7899 A195 847E 797C 7F7B 7A7B 7669 616F"            /* x™¡•„~y|.{z{viao */
	$"828A 898B 8D8A 91A7 B8B7 BEA3 6027 78CE"            /* ‚Š‰‹�Š‘§¸·¾£`'xÎ */
	$"D394 6056 7697 BFB8 7348 5368 778B 8D71"            /* Ó”`Vv—¿¸sHShw‹�q */
	$"454F 86A8 A27D 5B55 6386 987F 5E59 6879"            /* EO†¨¢}[Uc†˜.^Yhy */
	$"8C8F 867D 7272 7A81 7C71 7173 6E6D 7783"            /* Œ�†}rrz�|qqsnmwƒ */
	$"8586 8E98 A2AC B4B4 B59B 6841 78CD C483"            /* …†Ž˜¢¬´´µ›hAxÍă */
	$"5F61 899E AA9D 785A 5C6B 6F7B 8170 5556"            /* _a‰žª�xZ\ko{�pUV */
	$"7399 A485 5C52 6683 957E 5C53 6978 837F"            /* s™¤…\Rfƒ•~\Sixƒ. */
	$"7576 7873 7272 6F6D 6F70 6866 6E72 707B"            /* uvxsrromophfnrp{ */
	$"888E 91A0 ACB1 BAB4 7F32 59C3 DE8D 5E64"            /* ˆŽ‘ ¬±º´.2YÃ.�^d */
	$"8095 A8AB 905D 5C6E 7078 8779 5C56 759A"            /* €•¨«�]\npx‡y\Vuš */
	$"A187 605A 6C83 9892 6450 6B87 8D82 777D"            /* ¡‡`Zlƒ˜’dPk‡�‚w} */
	$"817F 8183 7B6D 6A72 7370 7780 7D7A 818B"            /* �.�ƒ{mjrspw€}z�‹ */
	$"95A3 ACB6 B38F 5241 9FDE C078 596F 9DA7"            /* •£¬¶³�RAŸ.ÀxYo�§ */
	$"A596 7B6A 727B 7879 746B 666F 8397 967B"            /* ¥–{jr{xytkfoƒ—–{ */
	$"666C 7787 8979 5B65 828B 8574 778B 9489"            /* flw‡‰y[e‚‹…tw‹”‰ */
	$"7E76 6D66 707F 7E73 6C6F 7A89 9293 959D"            /* ~vmfp.~sloz‰’“•� */
	$"A4AF 9F6D 306E C3C9 8955 6C9C A49F 9A82"            /* ¤¯Ÿm0nÃɉUlœ¤Ÿš‚ */
	$"696C 8183 7F77 6A69 7683 949C 896D 7082"            /* il�ƒ.wjivƒ”œ‰mp‚ */
	$"8586 7F68 5E72 8285 807B 838E 8D81 7972"            /* …†.h^r‚…€{ƒŽ��yr */
	$"6F76 807F 716B 7482 8E90 8E8A 90A2 B6B0"            /* ov€.qkt‚Ž�ŽŠ�¢¶° */
	$"7E32 46A7 D5A7 6960 8AA1 9E9C 8F75 6A78"            /* ~2F§Õ§i`Š¡žœ�ujx */
	$"857F 7B70 6D76 828A 9490 7D72 7D86 8984"            /* ….{pmv‚Š”�}r}†‰„ */
	$"7768 727E 8686 8280 8387 857E 746C 7683"            /* whr~††‚€ƒ‡…~tlvƒ */
	$"8275 6E75 8090 9894 8486 A0BF B069 2B5F"            /* ‚unu€�˜”„† ¿°i+_ */
	$"BCD4 915D 648E ABA5 9A83 6D6B 7985 867B"            /* ¼Ô‘]dŽ«¥šƒmky…†{ */
	$"6A62 7B8D 8C8D 8671 717B 8787 7C6A 6675"            /* jb{�Œ�†qq{‡‡|jfu */
	$"8384 7A71 7782 837A 7A7C 766D 6B74 7D77"            /* ƒ„zqw‚ƒzz|vmkt}w */
	$"6A67 7A8D 8B7D 7D8E 949B A38E 5F48 92B8"            /* jgz�‹}}Ž”›£Ž_H’¸ */
	$"9563 648A 9790 9299 806B 7880 7777 796F"            /* •cdŠ—�’™€kx€wwyo */
	$"6D78 888D 8577 757A 7C7F 8277 6669 7B7E"            /* mxˆ�…wuz|.‚wfi{~ */
	$"7A77 7576 7D81 7B70 676B 7B7F 7266 6E78"            /* zwuv}�{pgk{.rfnx */
	$"8187 8178 7C92 ACAA 8A4F 3D90 BA9B 5540"            /* �‡�x|’¬ªŠO=�º›U@ */
	$"6894 998A 7C6E 6A75 7D79 7269 646E 8182"            /* h”™Š|nju}yridn�‚ */
	$"8386 8074 7782 8484 7C6E 7080 8883 7C77"            /* ƒ†€tw‚„„|np€ˆƒ|w */
	$"7E84 8384 7C6F 717F 8271 6271 817A 7372"            /* ~„ƒ„|oq.‚qbq�zsr */
	$"787E 868D 837E 98AB A16B 3E67 A9AF 7F5A"            /* x~†�ƒ~˜«¡k>g©¯.Z */
	$"5F83 A6A4 927D 6F6E 7C7F 8382 7264 798E"            /* _ƒ¦¤’}on|.ƒ‚rdyŽ */
	$"8981 7E74 727E 8787 7D70 6D7E 8984 7F7B"            /* ‰�~tr~‡‡}pm~‰„.{ */
	$"7782 8E8C 7F72 7780 786C 6C80 826C 5F7B"            /* w‚ŽŒ.rw€xll€‚l_{ */
	$"8F83 7879 7E81 8894 9796 9A8A 6665 A7B9"            /* �ƒxy~�ˆ”—–šŠfe§¹ */
	$"8459 6B9F AA9B 8480 747B 8A85 787A 7A72"            /* „YkŸª›„€t{Š…xzzr */
	$"7681 8582 7B74 7981 8180 7E77 747F 8B87"            /* v�…‚{ty��€~wt.‹‡ */
	$"7F7B 7E8A 8B83 7C78 7275 8084 7869 646A"            /* .{~Š‹ƒ|xru€„xidj */
	$"7B86 7A68 6372 8387 7F78 7475 8399 9F98"            /* {†zhcrƒ‡.xtuƒ™Ÿ˜ */
	$"9183 686B A9B9 8969 7298 A596 8680 777A"            /* ‘ƒhk©¹‰ir˜¥–†€wz */
	$"8988 7C76 736A 7384 887C 797E 7F81 8080"            /* ‰ˆ|vsjs„ˆ|y~.�€€ */
	$"8580 7679 8587 8784 8487 8884 7D7B 7D7E"            /* …€vy…‡‡„„‡ˆ„}{}~ */
	$"7A77 7274 756F 6A76 7D77 6E71 7574 7680"            /* zwrtuojv}wnqutv€ */
	$"7D71 7080 8B86 8389 8D92 9B88 647A ADAA"            /* }qp€‹†ƒ‰�’›ˆdz­ª */
	$"7E63 7893 978A 837C 7779 807D 7571 6D6B"            /* ~cx“—Šƒ|wy€}uqmk */
	$"7881 7D79 7979 7E86 827A 7A79 7B7F 8282"            /* x�}yyy~†‚zzy{.‚‚ */
	$"827F 818A 8B83 7B79 7F84 8075 6F71 797D"            /* ‚.�Š‹ƒ{y.„€uoqy} */
	$"7974 6C6F 7B7F 7667 6B77 7B77 797A 7876"            /* ytlo{.vgkw{wyzxv */
	$"7D84 8079 7983 8B8B 8B90 948B 736A 849C"            /* }„€yyƒ‹‹‹�”‹sj„œ */
	$"8269 647B 8E89 7A78 7878 7B79 7577 7570"            /* ‚id{Ž‰zxxx{yuwup */
	$"747F 7F7B 7E82 8184 8281 8380 7A7C 8487"            /* t..{~‚�„‚�ƒ€z|„‡ */
	$"8280 8288 8A87 8382 8384 8380 7A78 7E7C"            /* ‚€‚ˆŠ‡ƒ‚ƒ„ƒ€zx~| */
	$"7572 7278 807E 7972 7077 7E7A 7275 7674"            /* urrx€~yrpw~zruvt */
	$"787D 7D7B 7A7D 8180 7E82 8683 8385 888E"            /* x}}{z}�€~‚†ƒƒ…ˆŽ */
	$"958A 7165 8297 896E 6E80 8F8A 8078 7980"            /* •Šqe‚—‰nn€�Š€xy€ */
	$"8983 7775 7A7B 7D83 8079 8085 8084 8782"            /* ‰ƒwuz{}ƒ€y€…€„‡‚ */
	$"7D80 8180 8280 7E81 8585 8584 807F 7E7E"            /* }€�€‚€~�………„€.~~ */
	$"807F 7872 767C 7C79 7676 7A7E 7E79 757C"            /* €.xrv||yvvz~~yu| */
	$"8080 7C7D 7E7C 7F83 837F 7C80 8481 7B7A"            /* €€|}~|.ƒƒ.|€„�{z */
	$"7E80 817E 7978 7F80 7D7B 7A7A 7C7D 7D7C"            /* ~€�~yx.€}{zz|}}| */
	$"7B7B 7E81 807F 8387 898C 8F89 7872 889A"            /* {{~�€.ƒ‡‰Œ�‰xrˆš */
	$"8471 7785 8B8B 8079 7E83 867E 7474 7C7A"            /* „qw…‹‹€y~ƒ†~tt|z */
	$"797D 7976 7F84 7F7F 807C 8084 7D7B 8182"            /* y}yv.„..€|€„}{�‚ */
	$"8082 8181 8382 8182 8281 8180 7C7C 8080"            /* €‚��ƒ‚�‚‚��€||€€ */
	$"7C7C 7E7F 7E7F 807F 7E80 817D 7C81 837F"            /* ||~.~.€.~€�}|�ƒ. */
	$"7E80"                                               /* ~€ */
};

\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/Sounds/SimpleBeep.r b/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/Sounds/SimpleBeep.r
new file mode 100644
index 0000000..4bcddf2
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/Sounds/SimpleBeep.r
@@ -0,0 +1 @@
+data $8014 (0x18024) {
	$"0100 0100 0000 3C00 0000 0A53 696D 706C"            /* ......<....Simpl */
	$"6542 6565 70"                                       /* eBeep */
};

data $8024 (0x3C) {
	$"0000 0800 0000 0000 0000 8080 8080 8080"            /* ..........€€€€€€ */
	$"8080 8080 8080 8080 8080 8080 8080 8080"            /* €€€€€€€€€€€€€€€€ */
	$"8080 8080 8080 8080 8080 8080 8080 8080"            /* €€€€€€€€€€€€€€€€ */
	$"013C C3C0 B8AC 9C8A 7765 5448 3F3C 3E45"            /* .<ÃÀ¸¬œŠweTH?<>E */
	$"5161 7285 98A8 B6BF C3C1 BBB0 A18F 7C6A"            /* Qar…˜¨¶¿ÃÁ»°¡�|j */
	$"594B 413D 3D43 4E5C 6D81 94A5 B4BE C4C4"            /* YKA==CN\m�”¥´¾ÄÄ */
	$"BFB5 A694 816E 5C4D 423B 3B3F 4957 687B"            /* ¿µ¦”�n\MB;;?IWh{ */
	$"8FA1 B1BC C3C5 C1B9 AB9A 8673 5F4F 423A"            /* �¡±¼ÃÅÁ¹«š†s_OB: */
	$"383B 4451 6376 8A9D AEBB C4C7 C4BC AF9F"            /* 8;DQcvŠ�®»ÄÇļ¯Ÿ */
	$"8C78 6453 453C 3838 3F4C 5D70 8599 ABBA"            /* ŒxdSE<88?L]p…™«º */
	$"C4C9 C8C1 B5A5 917D 6856 473C 3737 3D49"            /* ÄÉÈÁµ¥‘}hVG<77=I */
	$"596C 8195 A7B7 C2C8 C8C3 B8A9 9681 6D59"            /* Yl�•§·ÂÈÈø©–�mY */
	$"483C 3535 3944 5466 7B90 A4B5 C1C9 CBC7"            /* H<559DTf{�¤µÁÉËÇ */
	$"BDAE 9B87 725E 4C3F 3634 383F 4E60 758B"            /* ½®›‡r^L?648?N`u‹ */
	$"A0B2 C0CA CDCA C1B3 A28D 7762 4F40 3632"            /*  ²ÀÊÍÊÁ³¢�wbO@62 */
	$"343C 495B 7085 9AAE BDC7 CDCE C6B9 A893"            /* 4<I[p…š®½ÇÍÎƹ¨“ */
	$"7C67 5342 3631 3138 4455 6A80 95AA BBC7"            /* |gSB6118DUj€•ª»Ç */
	$"CECE C9BD AD99 836C 5846 3931 3036 4050"            /* ÎÎɽ­™ƒlXF9106@P */
	$"637A 90A6 B9C7 CFD1 CCC2 B29F 8871 5C49"            /* cz�¦¹ÇÏÑ̲Ÿˆq\I */
	$"3A31 2E31 3C4A 5E73 8AA0 B4C3 CDD1 CEC7"            /* :1.1<J^sŠ ´ÃÍÑÎÇ */
	$"B8A5 8F78 614C 3C31 2C2E 3744 576D 859C"            /* ¸¥�xaL<1,.7DWm…œ */
	$"B0C1 CDD2 D2CA BDAA 957E 6751 4033 2D2B"            /* °ÁÍÒÒʽª•~gQ@3-+ */
	$"323F 5167 7E96 ADBF CCD3 D4CE C2B1 9B84"            /* 2?Qg~–­¿ÌÓÔα›„ */
	$"6C55 4234 2C2A 303B 4C61 7890 A6BB C9D2"            /* lUB4,*0;Lax�¦»ÉÒ */
	$"D5D1 C6B6 A28B 725A 4636 2C28 2C36 465A"            /* ÕÑƶ¢‹rZF6,(,6FZ */
	$"728B A2B7 C8D3 D7D4 CBBC A791 7860 4B39"            /* r‹¢·ÈÓ×Ô˼§‘x`K9 */
	$"2E28 2A31 4053 6B84 9CB3 C6D2 D8D7 CFC1"            /* .(*1@Sk„œ³ÆÒØ×ÏÁ */
	$"AD96 7D65 4E3B 2E27 272F 3C4F 657E 97AF"            /* ­–}eN;.''/<Oe~—¯ */
	$"C2D0 D7DA D4C7 B49D 846B 523E 2F26 242A"            /* ÂÐ×.ÔÇ´�„kR>/&$* */
	$"3648 5E78 91A9 BFCF D8DB D6CB BAA3 8B71"            /* 6H^x‘©¿ÏØ.Ö˺£‹q */
	$"5943 3328 2428 3343 5871 8BA4 BBCD D8DD"            /* YC3($(3CXq‹¤»ÍØ. */
	$"DAD0 C0AA 9277 5E47 3528 2224 2D3D 516A"            /* .ÐÀª’w^G5("$-=Qj */
	$"849E B5C8 D5DC DBD5 C6B2 997E 644C 3829"            /* „žµÈÕ..ÕƲ™~dL8) */
	$"2121 2937 4A63 7D98 B0C5 D4DD DED8 CBB7"            /* !!)7Jc}˜°ÅÔ..ØË· */
	$"A086 6B52 3C2C 231E 2431 445C 7691 ABC1"            /*  †kR<,#.$1D\v‘«Á */
	$"D3DE E1DC D1BE A78D 7157 402E 221E 222D"            /* Ó...Ѿ§�qW@."."- */
	$"3E55 6F8A A5BC D1DD E3E0 D6C5 AE94 785D"            /* >UoŠ¥¼Ñ...ÖÅ®”x] */
	$"4431 231C 1E27 384E 6783 9FB8 CCDB E2E1"            /* D1#..'8NgƒŸ¸Ì... */
	$"D9CA B59B 8064 4A35 261E 1D22 3146 607C"            /* .ʵ›€dJ5&.."1F`| */
	$"98B3 C9DA E3E5 DED0 BCA3 876B 5039 271D"            /* ˜³É....м£‡kP9'. */
	$"1A20 2D41 5874 91AC C3D6 E1E7 E3D6 C3AB"            /* . -AXt‘¬ÃÖ...Öë */
	$"8F72 563D 291D 181C 273A 516D 89A6 BFD3"            /* �rV=)...':Qm‰¦¿Ó */
	$"E1E7 E4DA C8B0 9578 5C42 2C1E 1618 2233"            /* ....È°•x\B,..."3 */
	$"4B66 84A1 BBD1 E0E8 E7DF CEB8 9C80 6347"            /* Kf„¡»Ñ....θœ€cG */
	$"3120 1817 1F2E 445E 7B99 B5CC DDE7 E9E3"            /* 1 ....D^{™µÌ.... */
	$"D5C0 A587 6A4D 3422 1714 1A28 3D56 7492"            /* ÕÀ¥‡jM4"...(=Vt’ */
	$"AFC7 DBE6 EBE6 D9C6 AC90 7154 3A26 1912"            /* ¯Ç.....Ƭ�qT:&.. */
	$"1622 364F 6C8A A8C3 D8E7 EDEA DFCD B498"            /* ."6OlŠ¨ÃØ....Í´˜ */
	$"795B 402A 1A13 141E 3048 6482 A0BD D4E5"            /* y[@*....0Hd‚ ½Ô. */
	$"EEEE E4D4 BCA0 8162 452D 1C12 1119 2940"            /* ...Ô¼ �bE-....)@ */
	$"5C7A 99B7 CFE2 ECEF E8D9 C3A8 896A 4D33"            /* \z™·Ï.....è‰jM3 */
	$"1F14 1014 2237 5371 91B0 CADF ECF1 ECDF"            /* ...."7Sq‘°Ê..... */
	$"CAB0 9171 5337 2214 0E12 1E31 4C69 89A8"            /* Ê°‘qS7"....1Li‰¨ */
	$"C4DA E9F3 F0E5 D2B9 9A7A 5A3D 2615 0D0E"            /* Ä.....Ò¹šzZ=&.Â. */
	$"182A 4361 81A1 BED7 E8F2 F2E9 D7C0 A282"            /* .*Ca�¡¾×....×À¢‚ */
	$"6345 2A17 0C0B 1323 3B58 7899 B8D2 E6F2"            /* cE*....#;Xx™¸Ò.. */
	$"F5EE DEC7 AB8B 6A4B 301B 0E0A 101E 3450"            /* ...Ç«‹jK0.....4P */
	$"7091 B0CC E1F0 F5F2 E5CF B494 7252 341D"            /* p‘°Ì.....Ï´”rR4. */
	$"0E08 0C18 2D49 688A ABC8 DFEF F7F4 E9D5"            /* ....-IhŠ«È.....Õ */
	$"BB9B 7A59 3B23 1207 0813 2640 5F81 A3C1"            /* »›zY;#....&@_�£Á */
	$"DBED F8F8 EEDC C3A4 8261 4227 1408 070F"            /* ......ä‚aB'.... */
	$"2039 5778 9ABA D7EB F8FB F4E3 CBAD 8B69"            /*  9Wxšº×.....Ë­‹i */
	$"482C 1608 040A 1930 4E6F 92B3 D0E6 F6FB"            /* H,.....0No’³Ð... */
	$"F6E8 D2B6 9572 5033 1B0B 0405 1228 4466"            /* ..Ò¶•rP3.....(Df */
	$"88AB CAE3 F4FD FBEF D9BE 9E7B 593A 210E"            /* ˆ«Ê......¾ž{Y:!. */
	$"0506 1023 3E5E 80A1 C1DC EFF7 F8EF DDC4"            /* ...#>^€¡Á......Ä */
	$"A684 6243 2814 0806 0F1F 3756 7798 B9D4"            /* ¦„bC(.....7Vw˜¹Ô */
	$"E9F6 F9F2 E1CA AD8D 6B4B 301A 0D08 0D1C"            /* .....Ê­�kK0.Â.Â. */
	$"324E 6E8F AFCC E3F1 F7F3 E6D0 B595 7454"            /* 2Nn�¯Ì.....е•tT */
	$"3821 110A 0D19 2D47 6687 A7C4 DCEC F4F3"            /* 8!..Â.-Gf‡§Ä.... */
	$"E8D5 BB9D 7D5C 3F28 160D 0D17 2941 5E7E"            /* .Õ»�}\?(.ÂÂ.)A^~ */
	$"9EBC D5E7 F1F2 EAD9 C2A5 8565 462D 1A11"            /* ž¼Õ.....Â¥…eF-.. */
	$"0E16 253B 5776 96B3 CEE1 EDF1 EBDD C8AC"            /* ..%;Wv–³Î.....Ȭ */
	$"8E6E 5036 2215 1015 2337 516F 8EAC C7DC"            /* ŽnP6"...#7QoŽ¬Ç. */
	$"E9EF EBDF CBB1 9475 563B 2718 1215 2032"            /* ....˱”uV;'... 2 */
	$"4B67 86A4 BFD5 E5EC EBE1 CFB7 9B7D 5F42"            /* Kg†¤¿Õ....Ï·›}_B */
	$"2C1C 1315 1E2F 4560 7E9C B8CF E0E9 EAE2"            /* ,..../E`~œ¸Ï.... */
	$"D3BD A285 674A 3321 1714 1B29 4059 7694"            /* Ó½¢…gJ3!...)@Yv” */
	$"B0C8 DBE5 E9E4 D6C3 A98D 6F53 3A27 1A16"            /* °È....Öé�oS:'.. */
	$"1A27 3A53 6F8D A8C1 D5E2 E7E3 D9C7 AF94"            /* .':So�¨ÁÕ....ǯ” */
	$"775A 412D 1F18 1B25 374D 6884 A0BA CEDD"            /* wZA-...%7Mh„ ºÎ. */
	$"E4E3 DACA B59B 7E62 4933 241B 1B23 3247"            /* ...ʵ›~bI3$..#2G */
	$"617D 99B2 C8D8 E1E2 DCCE B9A1 866A 5039"            /* a}™²ÈØ...ι¡†jP9 */
	$"291F 1C22 2F43 5B76 91AC C1D3 DEE1 DCD1"            /* ).."/C[v‘¬ÁÓ...Ñ */
	$"BEA7 8D71 5740 2E22 1E22 2D3E 556F 8AA5"            /* ¾§�qW@."."->UoŠ¥ */
	$"BCCF DBDF DDD3 C2AD 9379 5F47 3427 2022"            /* ¼Ï...Ó­“y_G4' " */
	$"2B3B 5068 839E B6C9 D7DE DDD6 C5B1 9980"            /* +;Phƒž¶É×..Öű™€ */
	$"664E 3A2B 2423 2A38 4B62 7C96 AFC3 D2D9"            /* fN:+$#*8Kb|–¯ÃÒ. */
	$"DBD4 C8B6 9F86 6D54 4030 2624 2935 475C"            /* .ÔȶŸ†mT@0&$)5G\ */
	$"758F A8BD CED8 DBD6 CAB9 A38B 725A 4535"            /* u�¨½ÎØ.Öʹ£‹rZE5 */
	$"2A26 2A34 4458 7089 A2B7 C9D4 D9D7 CEBE"            /* *&*4DXp‰¢·ÉÔ.×ξ */
	$"AA91 7961 4B3A 2E28 2A32 4054 6A83 9BB1"            /* ª‘yaK:.(*2@Tjƒ›± */
	$"C3D0 D6D5 CFC1 AE98 8067 5240 322C 2B31"            /* ÃÐÖÕÏÁ®˜€gR@2,+1 */
	$"3E4F 657C 94AB BDCB D3D5 CFC3 B39D 866E"            /* >Oe|”«½ËÓÕÏó�†n */
	$"5744 352E 2C31 3B4C 5F76 8EA4 B7C6 D0D3"            /* WD5.,1;L_vŽ¤·ÆÐÓ */
	$"D0C5 B6A2 8C74 5E4A 3A30 2C2F 3A48 5B71"            /* ÐŶ¢Œt^J:0,/:H[q */
	$"879E B1C1 CCD1 CFC7 B9A7 917A 6450 3F36"            /* ‡ž±ÁÌÑÏǹ§‘zdP?6 */
	$"3131 3945 576C 8197 ACBC C8CE CEC7 BCAB"            /* 119EWl�—¬¼ÈÎÎǼ« */
	$"9781 6A56 4538 3131 3843 5367 7C91 A6B7"            /* —�jVE8118CSg|‘¦· */
	$"C4CB CDC8 BEAE 9C86 705C 4A3C 3532 3640"            /* ÄËÍȾ®œ†p\J<526@ */
	$"4E62 768B A0B1 BFC8 CBC8 BFB1 A08B 7662"            /* Nbv‹ ±¿ÈËÈ¿± ‹vb */
	$"4F41 3834 363E 4B5D 7186 9AAC BAC4 C9C7"            /* OA846>K]q†š¬ºÄÉÇ */
	$"C0B4 A490 7C68 5546 3C37 373E 4959 6C81"            /* À´¤�|hUF<77>IYl� */
	$"95A7 B7C0 C6C6 C1B6 A795 816E 5B4B 4039"            /* •§·ÀÆÆÁ¶§•�n[K@9 */
	$"393D 4756 677B 8FA1 B1BC C3C5 C1B7 AA99"            /* 9=GVg{�¡±¼ÃÅÁ·ª™ */
	$"8672 604F 433C 3A3D 4653 6477 8A9D ACB8"            /* †r`OC<:=FSdwŠ�¬¸ */
	$"C0C3 C0B8 AC9C 8A77 6554 483F 3C3E 4551"            /* ÀÃÀ¸¬œŠweTH?<>EQ */
	$"6172 8598 A8B6 BFC1 BFB9 AEA0 8E7C 6A5A"            /* ar…˜¨¶¿Á¿¹® Ž|jZ */
	$"4C43 3F3F 454F 5D6E 8193 A3B1 BBC0 C0BB"            /* LC??EO]n�“£±»ÀÀ» */
	$"B0A3 9381 705F 5147 4141 454E 5B6A 7C8E"            /* °£“�p_QGAAEN[j|Ž */
	$"9EAD B7BE BFBC B3A7 9785 7464 564B 4442"            /* ž­·¾¿¼³§—…tdVKDB */
	$"454C 5867 7789 99A8 B3BB BDBB B2A7 9A8A"            /* ELXgw‰™¨³»½»²§šŠ */
	$"7969 5A4F 4744 454B 5663 7384 94A3 AFB7"            /* yiZOGDEKVcs„”£¯· */
	$"BBBA B4AB 9E8E 7D6D 5F53 4A46 474B 5461"            /* »º´«žŽ}m_SJFGKTa */
	$"7080 8F9E ABB4 B8B9 B5AC A092 8271 6457"            /* p€�ž«´¸¹µ¬ ’‚qdW */
	$"4E49 484C 535E 6C7C 8B9A A6B0 B6B7 B4AD"            /* NIHLS^l|‹š¦°¶·´­ */
	$"A295 8676 675A 504C 4A4C 535C 6977 8795"            /* ¢•†vgZPLJLS\iw‡• */
	$"A2AC B3B5 B3AD A498 897A 6C5F 544D 4A4B"            /* ¢¬³µ³­¤˜‰zl_TMJK */
	$"525B 6774 8391 9EA8 AFB3 B2AD A59A 8D7E"            /* R[gtƒ‘ž¨¯³²­¥š�~ */
	$"7063 5850 4C4C 5159 6371 7F8D 9AA4 ACB0"            /* pcXPLLQYcq.�š¤¬° */
	$"B1AD A69C 9082 7467 5C53 4F4E 535A 636F"            /* ±­¦œ�‚tg\SONSZco */
	$"7C89 96A1 A9AE AFAD A79D 9285 776B 6057"            /* |‰–¡©®¯­§�’…wk`W */
	$"5250 5258 606C 7986 929D A6AB ADAC A79E"            /* RPRX`ly†’�¦«­¬§ž */
	$"9488 7B6F 635A 5452 5358 5F6A 7582 8E99"            /* ”ˆ{ocZTRSX_ju‚Ž™ */
	$"A2A8 ABAA A69F 968B 7E72 675E 5854 5458"            /* ¢¨«ª¦Ÿ–‹~rg^XTTX */
	$"5F68 737F 8B97 A0A5 A9A9 A6A0 978D 8176"            /* _hs.‹— ¥©©¦ —��v */
	$"6B62 5B57 5658 5E66 707C 8893 9CA4 A8A9"            /* kb[WVX^fp|ˆ“œ¤¨© */
	$"A5A0 998F 8579 6F65 5E59 5859 5E65 6F79"            /* ¥ ™�…yoe^YXY^eoy */
	$"858F 999F A3A5 A4A0 9A91 877C 7269 615C"            /* …�™Ÿ£¥¤ š‘‡|ria\ */
	$"5A5B 5E64 6D77 818C 959D A2A5 A3A0 9A92"            /* Z[^dmw�Œ•�¢¥£ š’ */
	$"897F 756C 655F 5C5C 5F64 6C75 7F89 929A"            /* ‰.ule_\\_dlu.‰’š */
	$"9FA3 A3A1 9C93 8B82 786F 6862 5F5E 6064"            /* Ÿ££¡œ“‹‚xohb_^`d */
	$"6B73 7C86 8F96 9CA0 A1A0 9C95 8D84 7B72"            /* ks|†�–œ ¡ œ•�„{r */
	$"6B65 6160 6165 6A72 7A83 8C93 9A9E 9F9F"            /* kea`aejrzƒŒ“šžŸŸ */
	$"9B96 8F86 7D75 6D68 6462 6265 6A71 7881"            /* ›–�†}umhdbbejqx� */
	$"8990 969B 9D9D 9A96 8F87 8078 716B 6664"            /* ‰�–›��š–�‡€xqkfd */
	$"6466 6A70 777F 878E 9498 9B9B 9995 9089"            /* dfjpw.‡Ž”˜››™•�‰ */
	$"8179 736D 6966 6667 6B70 767D 848B 9196"            /* �ysmiffgkpv}„‹‘– */
	$"9899 9895 908A 837C 756F 6A69 6869 6B70"            /* ˜™˜•�Šƒ|uojihikp */
	$"757B 8289 8E93 9697 9794 908B 847E 7771"            /* u{‚‰Ž“–——”�‹„~wq */
	$"6D69 6868 6C70 757A 8086 8C90 9495 9593"            /* mihhlpuz€†Œ�”••“ */
	$"908B 8680 7974 6F6C 6A6A 6B6F 7379 7F84"            /* �‹†€ytoljjkosy.„ */
	$"8A8E 91"                                            /* ŠŽ‘ */
};

\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/Sounds/Sosumi.r b/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/Sounds/Sosumi.r
new file mode 100644
index 0000000..4bce757
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/Sounds/Sosumi.r
@@ -0,0 +1 @@
+data $8014 (0x18024) {
	$"0100 0100 0000 3100 0000 0653 6F73 756D"            /* ......1....Sosum */
	$"69"                                                 /* i */
};

data $8024 (0x31) {
	$"0000 1A00 E882 0000 EE56 8080 8080 8080"            /* .....‚...V€€€€€€ */
	$"8080 8080 8080 8080 8080 8080 8080 8080"            /* €€€€€€€€€€€€€€€€ */
	$"8080 8080 8080 8080 8080 8080 8080 8080"            /* €€€€€€€€€€€€€€€€ */
	$"7E7F 8081 8180 7F7F 7E7E 7F80 8387 8B90"            /* ~.€��€..~~.€ƒ‡‹� */
	$"969B A1A7 ACB1 B6BB BFBC A380 6F69 6968"            /* –›¡§¬±¶»¿¼£€oiih */
	$"6664 6260 6060 6366 6A70 757B 8187 8D92"            /* fdb```cfjpu{�‡�’ */
	$"979C A0A5 AAAF B2AC 9273 6564 686C 6F71"            /* —œ ¥ª¯²¬’sedhloq */
	$"7375 787B 7E82 868A 8D91 9497 999B 9C9D"            /* sux{~‚†Š�‘”—™›œ� */
	$"9FA0 A2A4 A398 7A5B 4D4D 5258 5D62 676C"            /* Ÿ ¢¤£˜z[MMRX]bgl */
	$"7177 7D84 8A91 969C A0A4 A7A9 ABAC ADAD"            /* qw}„Š‘–œ ¤§©«¬­­ */
	$"ADAD A898 7858 4946 4A4F 5357 5C5F 6266"            /* ­­¨˜xXIFJOSW\_bf */
	$"6B72 7A82 8A92 989E A2A6 A9AB ACAE AFAF"            /* krz‚Š’˜ž¢¦©«¬®¯¯ */
	$"A999 7B5E 504F 545B 6268 6F76 7D85 8E97"            /* ©™{^POT[bhov}…Ž— */
	$"9FA8 B0B7 BCBE BBB3 A9A3 A2A3 A3A1 9884"            /* Ÿ¨°·¼¾»³©£¢££¡˜„ */
	$"664A 3B3B 434E 5A66 727F 8C9B A9AC 9683"            /* fJ;;CNZfr.Œ›©¬–ƒ */
	$"8085 8C92 979B 9FA5 ABB2 B9BD BBAF 987E"            /* €…Œ’—›Ÿ¥«²¹½»¯˜~ */
	$"6D63 5E5E 636B 6B57 413D 4552 5F6B 7783"            /* mc^^ckkWA=ER_kwƒ */
	$"8F9B A7B1 BBC4 CBD0 D3D2 CBBA A189 7A6F"            /* �›§±»ÄËÐÓÒ˺¡‰zo */
	$"563A 3136 414D 5A66 727E 888F 9499 9FA7"            /* V:16AMZfr~ˆ�”™Ÿ§ */
	$"B0B8 BFC4 C8C9 CAC5 B489 4E21 0D0B 131E"            /* °¸¿ÄÈÉÊÅ´‰N!Â... */
	$"2B39 4757 6879 8B9C ADBC CAD6 E1E9 F0F6"            /* +9GWhy‹œ­¼ÊÖ.... */
	$"F9F4 DDB7 9680 6C55 3A22 1410 1621 2E3C"            /* ...·–€lU:"...!.< */
	$"4B5A 6877 8593 A0AD B9C3 C6BC A38D 878C"            /* KZhw…“ ­¹ÃƼ£�‡Œ */
	$"949D A2A3 9F95 8677 6E6D 7176 7C82 878A"            /* ”�¢£Ÿ•†wnmqv|‚‡Š */
	$"8C8C 8C88 7D65 4F49 5262 7486 97A7 B2B1"            /* ŒŒŒˆ}eOIRbt†—§²± */
	$"A59C 958E 8275 6C69 6C74 7D87 8D8A 7B68"            /* ¥œ•Ž‚ulilt}‡�Š{h */
	$"6167 7685 8C88 878F 9BA7 B2B9 BEC1 C2C0"            /* agv…Œˆ‡�›§²¹¾ÁÂÀ */
	$"BAAE 9D8B 7C6E 5F48 2B11 0101 010F 253D"            /* º®�‹|n_H+.....%= */
	$"566F 89A2 BBD2 E7F9 FFFF FFFF FFFF F6C7"            /* Vo‰¢»Ò.........Ç */
	$"8748 1801 0101 0105 1221 3448 5E74 8A9F"            /* ‡H.......!4H^tŠŸ */
	$"B2C4 D1D8 D3C9 C2C0 BAAC 9276 6052 4943"            /* ²ÄÑØÓÉÂÀº¬’v`RIC */
	$"4144 4C58 6676 8695 9FA0 9C9A 9FA8 B1B8"            /* ADLXfv†•Ÿ œšŸ¨±¸ */
	$"BAB7 AA96 8072 6E70 7476 746E 6559 4836"            /* º·ª–€rnptvtneYH6 */
	$"2C2E 394A 5D71 8496 A6B4 BDBD B5A8 9E9D"            /* ,.9J]q„–¦´½½µ¨ž� */
	$"A3AB B1AF A599 918C 8882 796F 6762 6366"            /* £«±¯¥™‘Œˆ‚yogbcf */
	$"6D74 797B 766A 5A4A 3D34 2F34 4155 6B82"            /* mty{vjZJ=4/4AUk‚ */
	$"98AE C1D2 DFE8 EBE9 E1D5 C6B6 A48A 673E"            /* ˜®ÁÒ.....Õƶ¤Šg> */
	$"1B07 0207 1220 3144 596F 879E B5CB DEED"            /* ..... 1DYo‡žµË.. */
	$"F8FD F8E9 D0B1 9170 5034 1F11 0A0B 1629"            /* ....б‘pP4.....) */
	$"4058 7088 9FB4 C6D3 D8D7 D3D1 D2D1 CDC3"            /* @XpˆŸ´ÆÓØ×ÓÑÒÑÍà */
	$"AF94 7456 3F2E 2624 272F 3945 5056 5754"            /* ¯”tV?.&$'/9EPVWT */
	$"5259 697F 97AD C0CE D6D7 D1C5 B9AF A7A1"            /* RYi.—­ÀÎÖ×ÑŹ¯§¡ */
	$"9A8F 7F6A 5546 4041 4954 6270 7F8E 9DA9"            /* š�.jUF@AITbp.Ž�© */
	$"B2B4 AD9C 8772 6459 514B 4748 4E56 5F67"            /* ²´­œ‡rdYQKGHNV_g */
	$"6F76 7F88 939F ACB8 C1C7 C8C1 B29A 7F67"            /* ov.ˆ“Ÿ¬¸ÁÇÈÁ²š.g */
	$"5956 5B64 6F78 8084 898F 969C A0A1 9D96"            /* YV[dox€„‰�–œ ¡�– */
	$"8C7E 6C56 402B 1A0F 0B10 1D30 4964 819F"            /* Œ~lV@+.....0Id�Ÿ */
	$"BCD7 F0FF FFFF FFFF FFF0 D0AD 8B69 492A"            /* ¼×........Э‹iI* */
	$"0F01 0101 0101 0A1E 344B 6276 8896 A1AC"            /* ........4Kbvˆ–¡¬ */
	$"B9C7 D6E3 ECEF EBE0 CEB7 9D84 6E5B 4B3F"            /* ¹ÇÖ.....η�„n[K? */
	$"3630 2D2C 2F36 4354 687D 91A4 B6C4 CED2"            /* 60-,/6CTh}‘¤¶ÄÎÒ */
	$"D1C9 BCAA 9884 705B 4736 2A26 2831 3E4F"            /* Ñɼª˜„p[G6*&(1>O */
	$"6071 8192 A2B3 C1CD D3D3 CBBD A892 7C6C"            /* `q�’¢³ÁÍÓÓ˽¨’|l */
	$"615C 5B5C 5F62 6569 6E74 7C84 8C94 9B9E"            /* a\[\_beint|„Œ”›ž */
	$"9C94 8572 5C48 3830 3139 485B 7086 9CAF"            /* œ”…r\H8019H[p†œ¯ */
	$"C0CD D5D9 D7D0 C3B2 9E8A 7766 574A 3F37"            /* ÀÍÕ.×ÐòžŠwfWJ?7 */
	$"3437 3E4B 5B6D 7E8F 9CA7 ACAE ACA7 A098"            /* 47>K[m~�œ§¬®¬§ ˜ */
	$"918A 8279 6F63 574C 443F 3F45 4F5C 6B7B"            /* ‘Š‚yocWLD??EO\k{ */
	$"8995 9FA8 B2BD C8D3 DCE2 E3DE D3C1 AA8E"            /* ‰•Ÿ¨²½ÈÓ....ÓÁªŽ */
	$"7052 361E 0A01 0101 0101 0114 2E4C 6C8E"            /* pR6..........LlŽ */
	$"AFCF EBFF FFFF FFFF FFFF E6C5 A07B 583A"            /* ¯Ï.........Å {X: */
	$"2211 0704 0812 2133 485E 7388 9AA8 B1B5"            /* ".....!3H^sˆš¨±µ */
	$"B1A8 9A8A 7C70 6968 6A6F 767E 868F 979F"            /* ±¨šŠ|pihjov~†�—Ÿ */
	$"A6AC AFAF ACA4 9A8D 7F70 6358 4F49 4648"            /* ¦¬¯¯¬¤š�.pcXOIFH */
	$"4D56 626F 7D8A 969F A4A5 A39D 9489 8078"            /* MVbo}Š–Ÿ¤¥£�”‰€x */
	$"726E 6B68 6663 605F 6165 6D77 8390 9BA5"            /* rnkhfc`_aemwƒ�›¥ */
	$"ABAF AFAE ACA9 A6A1 9C94 8B80 7467 5A4F"            /* «¯¯®¬©¦¡œ”‹€tgZO */
	$"453E 3A39 3B3F 454C 5561 6F80 92A4 B6C6"            /* E>:9;?ELUao€’¤¶Æ */
	$"D4DE E3E2 DCCF BCA5 8B6F 533B 2618 1010"            /* Ô....ϼ¥‹oS;&... */
	$"1826 3A51 6B87 A2BC D3E5 F3F9 F8EF DEC5"            /* .&:Qk‡¢¼Ó......Å */
	$"A582 5E3C 1F0A 0101 0104 1328 405B 7793"            /* ¥‚^<.......(@[w“ */
	$"AEC5 D9E7 F0F2 EEE4 D6C5 B3A2 9081 7468"            /* ®Å......Öų¢��th */
	$"5F57 524D 4A49 494A 4C4F 5153 5558 5C61"            /* _WRMJIIJLOQSUX\a */
	$"676E 757D 848D 96A0 AAB5 BEC6 CBCC CAC3"            /* gnu}„�– ªµ¾ÆËÌÊà */
	$"B9AC 9E90 8276 6C63 5B55 4F4A 4643 4243"            /* ¹¬ž�‚vlc[UOJFCBC */
	$"464B 5159 6169 7179 838C 97A2 ACB5 BCC1"            /* FKQYaiqyƒŒ—¢¬µ¼Á */
	$"C3C2 BEB7 AC9F 8F7E 6D5D 4E42 3A37 3940"            /* þ·¬Ÿ�~m]NB:79@ */
	$"4D5D 7084 98AA BAC5 CCCE CAC0 B09B 8267"            /* M]p„˜ªºÅÌÎÊÀ°›‚g */
	$"4C33 1F11 0B0D 1626 3C56 728F ABC6 DDF0"            /* L3...Â.&<Vr�«Æ.. */
	$"FDFF FFFD EED9 BFA0 8162 462F 1D11 0C0D"            /* ......¿ �bF/... */
	$"1420 3043 586E 8396 A7B4 BDC2 C3C0 BBB4"            /* . 0CXnƒ–§´½ÂÃÀ»´ */
	$"ABA0 9489 7E74 6D67 6361 6161 6365 6769"            /* « ”‰~tmgcaaacegi */
	$"6B6F 7379 8087 8F96 9CA1 A4A5 A4A2 9F9B"            /* kosy€‡�–œ¡¤¥¤¢Ÿ› */
	$"958E 867C 7166 5B52 4B48 484C 535B 6671"            /* •Ž†|qf[RKHHLS[fq */
	$"7B85 8C92 9698 9998 9695 9391 9192 9599"            /* {…Œ’–˜™˜–•“‘‘’•™ */
	$"9EA3 A7AA ACAA A7A0 968A 7A69 5643 301F"            /* ž£§ª¬ª§ –ŠziVC0. */
	$"130B 090E 1A2C 435E 7B9A B8D3 EBFE FFFF"            /* ..Æ..,C^{š¸Ó.... */
	$"FFFF F6E0 C4A4 8363 462E 1B0F 0B0D 1523"            /* ....ĤƒcF....Â.# */
	$"354A 6177 8DA1 B1BD C4C5 C1B8 AC9D 8D7C"            /* 5Jaw�¡±½ÄÅÁ¸¬��| */
	$"6D5F 554E 4B4C 5159 6471 7F8D 99A4 ACB2"            /* m_UNKLQYdq.�™¤¬² */
	$"B6B7 B7B4 B0AB A49B 9185 796D 6156 4D45"            /* ¶··´°«¤›‘…ymaVME */
	$"3E3A 3737 383D 4550 5E6E 8092 A5B6 C5D0"            /* >:778=EP^n€’¥¶ÅÐ */
	$"D8DB DAD4 CABE AF9E 8C79 685A 4D44 403F"            /* Ø..Ôʾ¯žŒyhZMD@? */
	$"4249 525D 6975 8089 9094 9593 8E88 8079"            /* BIR]iu€‰�”•“Žˆ€y */
	$"736F 6D6F 7379 828B 959E A6AC B0B0 AEA8"            /* somosy‚‹•ž¦¬°°®¨ */
	$"9F93 8474 6352 453B 3535 3A45 5467 7B91"            /* Ÿ“„tcRE;55:ETg{‘ */
	$"A7BA CBD7 DEDF DACF BEA8 9075 5B43 2E1E"            /* §ºË×...Ͼ¨�u[C.. */
	$"130E 1018 2638 4E67 819A B1C6 D7E3 EAED"            /* ....&8Ng�š±Æ×... */
	$"EAE3 D8CB BAA8 9581 6E5C 4D40 362F 2B2B"            /* ..Ø˺¨•�n\M@6/++ */
	$"2E32 3A42 4D5A 6876 8695 A4B1 BCC4 C8C9"            /* .2:BMZhv†•¤±¼ÄÈÉ */
	$"C6C0 B6AB 9D8F 8072 665B 5450 5053 5A64"            /* ÆÀ¶«��€rf[TPPSZd */
	$"707D 8B97 A2AA AFAF ACA4 998B 7C6B 5B4C"            /* p}‹—¢ª¯¯¬¤™‹|k[L */
	$"4038 3435 3B45 5363 768A 9DAF BECA D1D4"            /* @845;EScvŠ�¯¾ÊÑÔ */
	$"D1CA BFB1 A190 8072 665E 5A59 5B5F 656C"            /* ÑÊ¿±¡�€rf^ZY[_el */
	$"737A 7F82 8381 7D77 6F66 5E56 504D 4E53"            /* sz.‚ƒ�}wof^VPMNS */
	$"5B67 7687 9AAC BECE D9E1 E4E2 DACD BDA9"            /* [gv‡š¬¾Î.....ͽ© */
	$"947D 6752 4132 2720 1E20 2732 3F50 6174"            /* ”}gRA2' . '2?Pat */
	$"8696 A5B2 BCC4 C8CA C9C6 BFB6 AC9F 9082"            /* †–¥²¼ÄÈÊÉÆ¿¶¬Ÿ�‚ */
	$"7365 584D 453F 3C3C 3F46 505C 6B7C 8EA0"            /* seXME?<<?FP\k|Ž  */
	$"B1C0 CCD5 D8D7 D0C5 B5A2 8C75 5D48 3425"            /* ±ÀÌÕØ×Ðŵ¢Œu]H4% */
	$"1B17 1820 2D3F 546C 859D B3C6 D4DE E2E0"            /* ... -?Tl…�³ÆÔ... */
	$"D8CC BCA9 9581 6F60 554D 4A4C 5058 616C"            /* Ø̼©•�o`UMJLPXal */
	$"7882 8B92 9696 938E 867C 736A 625D 5A5B"            /* x‚‹’––“Ž†|sjb]Z[ */
	$"5F66 6F7A 8692 9EA7 AFB4 B6B4 B0A9 A095"            /* _foz†’ž§¯´¶´°© • */
	$"897E 746B 645F 5D5E 6166 6C73 7B82 888D"            /* ‰~tkd_]^afls{‚ˆ� */
	$"9090 8F8B 8781 7B75 6F6B 6765 6465 676B"            /* ���‹‡�{uokgedegk */
	$"7076 7D85 8D94 9CA3 A9AE B1B4 B6B6 B4B1"            /* pv}…�”œ£©®±´¶¶´± */
	$"ACA4 9A8F 8172 6353 4436 2A21 1C1B 1E26"            /* ¬¤š��rcSD6*!...& */
	$"3345 5A72 8CA7 C1D9 ECFB FFFF FFF6 E5CE"            /* 3EZrŒ§Á........Î */
	$"B396 785B 412B 1B10 0D10 1A29 3C52 6A82"            /* ³–x[A+..Â..)<Rj‚ */
	$"98AC BBC6 CCCC C6BD B0A0 8F7E 6E61 5852"            /* ˜¬»ÆÌÌƽ° �~naXR */
	$"5051 565E 6874 808B 959D A3A6 A6A4 9F99"            /* PQV^ht€‹•�£¦¦¤Ÿ™ */
	$"928B 837D 7875 7473 7477 7A7C 7F81 8181"            /* ’‹ƒ}xutstwz|.��� */
	$"7F7C 7874 706C 6967 6768 6A6E 747A 8289"            /* .|xtpligghjntz‚‰ */
	$"9198 9EA3 A6A8 A8A6 A39F 9A94 8E88 837E"            /* ‘˜ž£¦¨¨¦£Ÿš”Žˆƒ~ */
	$"7974 706C 6865 615E 5C5B 5A5B 5D60 666D"            /* ytplhea^\[Z[]`fm */
	$"757F 8994 9FA9 B1B7 BABA B6B0 A69A 8C7C"            /* u.‰”Ÿ©±·ºº¶°¦šŒ| */
	$"6D5F 534A 4544 474E 5A69 7A8C 9EAE BCC7"            /* m_SJEDGNZizŒž®¼Ç */
	$"CDCE CAC0 B29F 8A73 5D48 3628 1F1B 1E26"            /* ÍÎÊÀ²ŸŠs]H6(...& */
	$"3446 5B72 8AA1 B7C9 D8E1 E6E5 E0D6 C8B8"            /* 4F[rŠ¡·ÉØ....Öȸ */
	$"A794 8372 6357 4E47 4342 4447 4C52 5960"            /* §”ƒrcWNGCBDGLRY` */
	$"666D 747A 8086 8B90 959B 9FA3 A6A8 A9A9"            /* fmtz€†‹�•›Ÿ£¦¨©© */
	$"A8A4 A09B 948C 847C 756E 6965 6362 6366"            /* ¨¤ ›”Œ„|uniecbcf */
	$"696D 7277 7B7F 8284 8686 8685 8483 8281"            /* imrw{.‚„†††…„ƒ‚� */
	$"8182 8385 878A 8C8D 8E8E 8D8A 8783 7E79"            /* �‚ƒ…‡ŠŒ�ŽŽ�Š‡ƒ~y */
	$"7571 6F6E 6F71 767C 838A 9299 9FA4 A6A5"            /* uqonoqv|ƒŠ’™Ÿ¤¦¥ */
	$"A19B 9287 7B6E 6156 4D46 4242 474E 5967"            /* ¡›’‡{naVMFBBGNYg */
	$"7788 98A8 B6C2 C9CC CCC7 BEB2 A493 8372"            /* wˆ˜¨¶ÂÉÌÌǾ²¤“ƒr */
	$"6457 4D47 4444 484F 5964 707C 8792 9AA1"            /* dWMGDDHOYdp|‡’š¡ */
	$"A5A7 A6A3 9F99 928B 847D 7772 6E6C 6B6A"            /* ¥§¦£Ÿ™’‹„}wrnlkj */
	$"6B6D 7073 767A 7F83 878C 9094 979A 9C9D"            /* kmpsvz.ƒ‡Œ�”—šœ� */
	$"9D9C 9996 918B 847C 746D 6660 5B58 5757"            /* �œ™–‘‹„|tmf`[XWW */
	$"5A5F 656D 757E 8790 989E A3A6 A7A6 A3A0"            /* Z_emu~‡�˜ž£¦§¦£  */
	$"9B96 908B 8682 7F7D 7B7B 7B7B 7B7B 7A79"            /* ›–�‹†‚.}{{{{{{zy */
	$"7674 706C 6966 6361 6264 676D 747D 8791"            /* vtplifcabdgmt}‡‘ */
	$"9BA4 ACB2 B6B6 B4B0 A89F 9488 7B6F 645C"            /* ›¤¬²¶¶´°¨Ÿ”ˆ{od\ */
	$"5552 5153 575E 6771 7B86 9098 9EA2 A4A3"            /* URQSW^gq{†�˜ž¢¤£ */
	$"A09B 948C 847C 756E 6966 6565 676B 7076"            /*  ›”Œ„|unifeegkpv */
	$"7D84 8A90 959A 9C9E 9E9D 9B98 948F 8A85"            /* }„Š�•šœžž�›˜”�Š… */
	$"7F7A 7470 6B68 6563 6262 6366 6A6E 747A"            /* .ztpkhecbbcfjntz */
	$"8289 9096 9CA1 A4A5 A5A3 9F9A 938C 847C"            /* ‚‰�–œ¡¤¥¥£Ÿš“Œ„| */
	$"756E 6966 6464 6569 6E74 7A81 878C 9194"            /* unifddeintz�‡Œ‘” */
	$"9595 9390 8C87 827D 7875 7372 7274 767A"            /* ••“�Œ‡‚}xusrrtvz */
	$"7E82 8689 8C8D 8E8D 8B88 8582 7E7B 7978"            /* ~‚†‰Œ�Ž�‹ˆ…‚~{yx */
	$"7879 7B7F 8387 8C90 9395 9695 938F 8983"            /* xy{.ƒ‡Œ�“•–•“�‰ƒ */
	$"7B74 6D67 615D 5C5C 5E63 6970 7982 8C94"            /* {tmga]\\^cipy‚Œ” */
	$"9CA3 A8AB ADAC A9A5 9F98 9088 8078 716C"            /* œ£¨«­¬©¥Ÿ˜�ˆ€xql */
	$"6763 605F 5F61 6366 6B6F 757A 8085 8B8F"            /* gc`__acfkouz€…‹� */
	$"9397 9A9C 9C9B 9A97 938F 8984 7E79 7571"            /* “—šœœ›š—“�‰„~yuq */
	$"6E6D 6D6E 7174 797E 8489 8E92 9496 9593"            /* nmmnqty~„‰Ž’”–•“ */
	$"908B 867F 7973 6D69 6665 6568 6B71 777E"            /* �‹†.ysmifeehkqw~ */
	$"868D 9499 9DA0 A09F 9D99 938E 8881 7C77"            /* †�”™�  Ÿ�™“Žˆ�|w */
	$"7371 706F 7072 7578 7A7D 7F81 8282 8280"            /* sqpopruxz}.�‚‚‚€ */
	$"7F7D 7C7B 7A7B 7B7D 8083 868A 8E91 9495"            /* .}|{z{{}€ƒ†ŠŽ‘”• */
	$"9696 9491 8E89 847F 7A75 716E 6C6B 6B6D"            /* ––”‘Ž‰„.zuqnlkkm */
	$"6F72 767B 7F84 888C 8E90 9292 9291 8F8C"            /* orv{.„ˆŒŽ�’’’‘�Œ */
	$"8A86 8380 7D7A 7775 7372 7272 7274 7679"            /* Š†ƒ€}zwusrrrrtvy */
	$"7C80 8489 8D92 9598 9B9C 9B9A 9793 8D87"            /* |€„‰�’•˜›œ›š—“�‡ */
	$"8078 716A 6560 5D5C 5D60 646A 727A 838B"            /* €xqje`]\]`djrzƒ‹ */
	$"949B A0A4 A7A7 A5A1 9B95 8E87 7F79 736F"            /* ”› ¤§§¥¡›•Ž‡.yso */
	$"6C6A 6B6C 6F72 767B 7F83 8689 8A8A 8988"            /* ljklorv{.ƒ†‰ŠŠ‰ˆ */
	$"8583 807E 7B7A 7979 7A7B 7E80 8386 898B"            /* …ƒ€~{zyyz{~€ƒ†‰‹ */
	$"8D8E 8E8E 8C8B 8986 8381 7F7D 7C7B 7B7B"            /* �ŽŽŽŒ‹‰†ƒ�.}|{{{ */
	$"7C7C 7D7E 7F80 8080 8080 7F7E 7D7C 7C7B"            /* ||}~.€€€€€.~}||{ */
	$"7B7B 7C7D 7F80 8285 8788 8A8B 8C8D 8D8D"            /* {{|}.€‚…‡ˆŠ‹Œ��� */
	$"8D8C 8B8A 8988 8684 8280 7D7B 7875 7371"            /* �Œ‹Š‰ˆ†„‚€}{xusq */
	$"6F6E 6D6D 6E70 7376 7B80 868C 9197 9B9E"            /* onmmnpsv{€†Œ‘—›ž */
	$"A0A0 9F9C 9892 8C85 7D76 6F6A 6663 6263"            /*   Ÿœ˜’Œ…}vojfcbc */
	$"666A 7076 7D84 8B91 969A 9C9C 9B98 938E"            /* fjpv}„‹‘–šœœ›˜“Ž */
	$"8882 7C76 726E 6C6B 6C6D 7074 787D 8287"            /* ˆ‚|vrnlklmptx}‚‡ */
	$"8A8E 9092 9292 908F 8C8A 8785 8280 7E7D"            /* ŠŽ�’’’��ŒŠ‡…‚€~} */
	$"7C7C 7B7B 7B7B 7B7B 7A7A 7A7B 7B7B 7C7D"            /* ||{{{{{{zzz{{{|} */
	$"7E7F 8082 8486 8788 8A8B 8B8B 8A8A 8988"            /* ~.€‚„†‡ˆŠ‹‹‹ŠŠ‰ˆ */
	$"8685 8483 8281 807F 7F7E 7E7E 7D7C 7C7B"            /* †…„ƒ‚�€..~~~}||{ */
	$"7A7A 7A79 7A7A 7B7D 7E80 8385 8889 8B8C"            /* zzzyzz{}~€ƒ…ˆ‰‹Œ */
	$"8D8D 8C8A 8886 8380 7D7B 7978 7778 797C"            /* ��ŒŠˆ†ƒ€}{yxwxy| */
	$"7F82 8689 8D8F 9191 918F 8C88 837E 7873"            /* .‚†‰��‘‘‘�Œˆƒ~xs */
	$"6E6B 6867 6769 6C71 777D 848B 9297 9C9F"            /* nkhggilqw}„‹’—œŸ */
	$"A1A1 A09D 9994 8E87 807A 7570 6C6A 6969"            /* ¡¡ �™”Ž‡€zupljii */
	$"6A6C 6E72 7679 7D81 8588 8A8C 8E8E 8F8E"            /* jlnrvy}�…ˆŠŒŽŽ�Ž */
	$"8E8D 8C8B 8988 8684 8280 7F7D 7C7B 7A7A"            /* Ž�Œ‹‰ˆ†„‚€.}|{zz */
	$"7A7A 7B7C 7D7F 8082 8485 8687 8787 8686"            /* zz{|}.€‚„…†‡‡‡†† */
	$"8483 8180 7E7D 7C7C 7C7C 7D7E 8082 8384"            /* „ƒ�€~}||||}~€‚ƒ„ */
	$"8586 8686 8585 8382 8180 7F7F 7F7F 8082"            /* …†††……ƒ‚�€....€‚ */
	$"8385 8788 8A8A 8A8A 8886 8380 7C79 7573"            /* ƒ…‡ˆŠŠŠŠˆ†ƒ€|yus */
	$"716F 6F70 7275 797E 8388 8C91 9497 9898"            /* qoopruy~ƒˆŒ‘”—˜˜ */
	$"9694 908C 8782 7D78 7572 706F 6F71 7376"            /* –”�Œ‡‚}xurpooqsv */
	$"7A7E 8286 898C 8E8E 8E8E 8C8A 8784 817E"            /* z~‚†‰ŒŽŽŽŽŒŠ‡„�~ */
	$"7B79 7776 7676 7778 7A7C 7F81 8487 898B"            /* {ywvvvwxz|.�„‡‰‹ */
	$"8D8E 8F90 908F 8E8C 8A88 8582 7E7B 7875"            /* �Ž����ŽŒŠˆ…‚~{xu */
	$"7270 6F6E 6E6F 7174 777B 7F83 878B 8F92"            /* rponnoqtw{.ƒ‡‹�’ */
	$"9495 9595 9391 8E8A 8783 807D 7A79 7877"            /* ”•••“‘ŽŠ‡ƒ€}zyxw */
	$"7778 797A 7C7D 7F80 8080 8080 7F7E 7D7D"            /* wxyz|}.€€€€€.~}} */
	$"7D7D 7E7F 8082 8588 8A8C 8E8F 8F8F 8E8C"            /* }}~.€‚…ˆŠŒŽ���ŽŒ */
	$"8A86 837F 7B78 7573 7272 7374 777A 7D81"            /* Š†ƒ.{xusrrstwz}� */
	$"8588 8B8D 8F8F 8E8D 8B88 8582 7E7B 7876"            /* …ˆ‹���Ž�‹ˆ…‚~{xv */
	$"7575 7576 777A 7D80 8386 898B 8D8E 8F8F"            /* uuuvwz}€ƒ†‰‹�Ž�� */
	$"8E8D 8B8A 8785 8280 7D7B 7977 7675 7575"            /* Ž�‹Š‡…‚€}{ywvuuu */
	$"7676 787A 7C7E 8184 8689 8B8D 8F8F 8F8E"            /* vvxz|~�„†‰‹����Ž */
	$"8D8B 8986 827F 7C79 7776 7575 7677 797C"            /* �‹‰†‚.|ywvuuvwy| */
	$"7F83 8689 8B8D 8E8E 8E8C 8A87 8480 7D7A"            /* .ƒ†‰‹�ŽŽŽŒŠ‡„€}z */
	$"7775 7474 7475 777A 7D80 8386 888A 8C8C"            /* wutttuwz}€ƒ†ˆŠŒŒ */
	$"8C8C 8A89 8785 8482 8180 8080 8081 8182"            /* ŒŒŠ‰‡…„‚�€€€€��‚ */
	$"8283 8382 8180 7E7D 7B79 7876 7676 7678"            /* ‚ƒƒ‚�€~}{yxvvvvx */
	$"7A7C 7F82 8689 8C8F 9192 9393 9290 8E8B"            /* z|.‚†‰Œ�‘’““’�Ž‹ */
	$"8884 817D 7A77 7574 7372 7374 7577 787B"            /* ˆ„�}zwutsrstuwx{ */
	$"7D80 8285 8789 8A8C 8C8D 8D8C 8B8A 8987"            /* }€‚…‡‰ŠŒŒ��Œ‹Š‰‡ */
	$"8482 807E 7C7A 7878 7878 797B 7D7F 8284"            /* „‚€~|zxxxxy{}.‚„ */
	$"8789 8B8C 8C8C 8B89 8784 817D 7A77 7573"            /* ‡‰‹ŒŒŒ‹‰‡„�}zwus */
	$"7373 7475 787B 7F83 878A 8E90 9192 9290"            /* sstux{.ƒ‡ŠŽ�‘’’� */
	$"8E8C 8885 817E 7B78 7776 7576 7779 7B7D"            /* ŽŒˆ…�~{xwvuvwy{} */
	$"7F81 8384 8686 8686 8584 8382 8181 8080"            /* .�ƒ„††††…„ƒ‚��€€ */
	$"8080 8182 8384 8485 8585 8584 8482 8180"            /* €€�‚ƒ„„…………„„‚�€ */
	$"7F7E 7D7D 7D7D 7E7F 8081 8283 8485 8686"            /* .~}}}}~.€�‚ƒ„…†† */
	$"8685 8584 8382 8180 7E7E 7D7C 7C7C 7C7C"            /* †……„ƒ‚�€~~}||||| */
	$"7D7D 7E7F 8082 8384 8687 888A 8B8B 8C8C"            /* }}~.€‚ƒ„†‡ˆŠ‹‹ŒŒ */
	$"8C8B 8987 8583 807C 7976 7472 7070 7071"            /* Œ‹‰‡…ƒ€|yvtrpppq */
	$"7275 797D 8185 898D 9193 9596 9594 918E"            /* ruy}�…‰�‘“•–•”‘Ž */
	$"8A86 827E 7A77 7573 7273 7476 787B 7E81"            /* Š†‚~zwusrstvx{~� */
	$"8486 8889 8989 8887 8584 8280 7E7D 7C7C"            /* „†ˆ‰‰‰ˆ‡…„‚€~}|| */
	$"7C7C 7E7F 8082 8485 8687 8888 8887 8685"            /* ||~.€‚„…†‡ˆˆˆ‡†… */
	$"8483 8281 807F 7E7E 7E7E 7E7E 7E7E 7E7E"            /* „ƒ‚�€.~~~~~~~~~~ */
	$"7F7F 7E7F 7F7F 8080 8182 8283 8485 8686"            /* ..~...€€�‚‚ƒ„…†† */
	$"8686 8786 8685 8584 8382 8281 8080 807F"            /* ††‡††……„ƒ‚‚�€€€. */
	$"7F7E 7E7E 7D7D 7D7D 7C7C 7C7D 7D7E 7F80"            /* .~~~}}}}|||}}~.€ */
	$"8284 8587 898A 8B8C 8C8B 8A88 8683 817E"            /* ‚„…‡‰Š‹ŒŒ‹Šˆ†ƒ�~ */
	$"7B78 7775 7575 7678 7A7D 8084 878A 8D8E"            /* {xwuuuvxz}€„‡Š�Ž */
	$"9090 8F8E 8B88 8581 7E7A 7775 7372 7273"            /* ���Ž‹ˆ…�~zwusrrs */
	$"7577 7A7D 8184 878A 8C8E 8F8F 8F8E 8C8A"            /* uwz}�„‡ŠŒŽ���ŽŒŠ */
	$"8886 8381 7F7D 7C7B 7A7A 7A7A 7A7B 7B7C"            /* ˆ†ƒ�.}|{zzzzz{{| */
	$"7D7E 7F80 8081 8283 8484 8586 8686 8686"            /* }~.€€�‚ƒ„„…††††† */
	$"8686 8584 8483 8282 8180 8080 8080 8080"            /* ††…„„ƒ‚‚�€€€€€€€ */
	$"8081 8181 8181 8080 7F7E 7E7E 7D7E 7E7E"            /* €�����€€.~~~}~~~ */
	$"7F80 8182 8385 8686 8787 8786 8584 8382"            /* .€�‚ƒ…††‡‡‡†…„ƒ‚ */
	$"817F 7F7E 7E7E 7F80 8182 8385 8686 8686"            /* �..~~~.€�‚ƒ…†††† */
	$"8684 8381 7F7C 7A79 7776 7677 787A 7C7F"            /* †„ƒ�.|zywvvwxz|. */
	$"8285 898C 8E90 9191 908F 8D8A 8784 807D"            /* ‚…‰ŒŽ�‘‘���Š‡„€} */
	$"7A78 7574 7474 7476 787A 7C7F 8184 8688"            /* zxuttttvxz|.�„†ˆ */
	$"898A 8A8B 8A89 8887 8684 8381 807F 7E7D"            /* ‰ŠŠ‹Š‰ˆ‡†„ƒ�€.~} */
	$"7C7C 7C7C 7C7D 7D7E 8081 8283 8586 8687"            /* |||||}}~€�‚ƒ…††‡ */
	$"8888 8787 8685 8382 807E 7D7C 7B7A 7A7A"            /* ˆˆ‡‡†…ƒ‚€~}|{zzz */
	$"7B7C 7D7E 8082 8384 8686 8787 8786 8585"            /* {|}~€‚ƒ„††‡‡‡†…… */
	$"8483 8281 8180 8081 8182 8283 8384 8383"            /* „ƒ‚��€€��‚‚ƒƒ„ƒƒ */
	$"8281 807E 7D7C 7B7A 7A7A 7A7B 7C7E 8083"            /* ‚�€~}|{zzzz{|~€ƒ */
	$"8587 898B 8C8C 8C8B 8A88 8684 817F 7D7B"            /* …‡‰‹ŒŒŒ‹Šˆ†„�.}{ */
	$"7A79 7979 7A7B 7D7F 8183 8486 8787 8887"            /* zyyyz{}.�ƒ„†‡‡ˆ‡ */
	$"8685 8482 807F 7D7C 7B7B 7B7B 7C7D 7E80"            /* †…„‚€.}|{{{{|}~€ */
	$"8183 8486 8788 8989 8A8A 8988 8786 8583"            /* �ƒ„†‡ˆ‰‰ŠŠ‰ˆ‡†…ƒ */
	$"817F 7E7C 7A79 7877 7777 7778 797B 7D7F"            /* �.~|zyxwwwwxy{}. */
	$"8284 8789 8B8C 8D8E 8D8D 8C8A 8885 8380"            /* ‚„‡‰‹Œ�Ž��ŒŠˆ…ƒ€ */
	$"7E7C 7A79 7978 797A 7B7C 7E80 8183 8485"            /* ~|zyyxyz{|~€�ƒ„… */
	$"8585 8585 8483 8281 8080 7F80 8080 8182"            /* …………„ƒ‚�€€.€€€�‚ */
	$"8384 8585 8585 8584 8382 8180 7E7E 7D7C"            /* ƒ„……………„ƒ‚�€~~}| */
	$"7C7D 7E7F 8082 8384 8687 8787 8786 8584"            /* |}~.€‚ƒ„†‡‡‡‡†…„ */
	$"8280 7F7D 7C7B 7A7A 7A7B 7C7D 7F80 8284"            /* ‚€.}|{zzz{|}.€‚„ */
	$"8687 8889 8989 8988 8786 8583 8280 7F7E"            /* †‡ˆ‰‰‰‰ˆ‡†…ƒ‚€.~ */
	$"7D7C 7B7B 7B7B 7B7B 7C7D 7E80 8182 8485"            /* }|{{{{{{|}~€�‚„… */
	$"8687 8788 8888 8786 8584 8280 7F7E 7C7C"            /* †‡‡ˆˆˆ‡†…„‚€.~|| */
	$"7B7B 7C7C 7E7F 8183 8586 8889 8989 8988"            /* {{||~.�ƒ…†ˆ‰‰‰‰ˆ */
	$"8684 8280 7E7C 7A78 7777 7778 797B 7D80"            /* †„‚€~|zxwwwxy{}€ */
	$"8284 8788 8A8B 8B8B 8A89 8886 8583 8180"            /* ‚„‡ˆŠ‹‹‹Š‰ˆ†…ƒ�€ */
	$"7F7E 7D7D 7D7D 7D7E 7E7F 7F7F 7F7F 7F7F"            /* .~}}}}}~~....... */
	$"7F7F 7F7F 7F7F 8081 8283 8486 8788 8889"            /* ......€�‚ƒ„†‡ˆˆ‰ */
	$"8988 8887 8584 8281 7F7E 7C7B 7B7A 7A7A"            /* ‰ˆˆ‡…„‚�.~|{{zzz */
	$"7B7C 7D7E 7F80 8182 8384 8586 8686 8686"            /* {|}~.€�‚ƒ„…††††† */
	$"8685 8584 8382 8180 7F7E 7E7D 7D7D 7D7D"            /* †……„ƒ‚�€.~~}}}}} */
	$"7E7F 8081 8384 8586 8788 8888 8786 8583"            /* ~.€�ƒ„…†‡ˆˆˆ‡†…ƒ */
	$"817F 7D7B 7A79 7878 797A 7B7D 7F81 8486"            /* �.}{zyxxyz{}.�„† */
	$"888A 8B8B 8C8B 8A88 8684 8280 7E7C 7B7A"            /* ˆŠ‹‹Œ‹Šˆ†„‚€~|{z */
	$"7A7A 7A7B 7D7E 8081 8384 8586 8686 8585"            /* zzz{}~€�ƒ„…†††…… */
	$"8483 8281 807F 7F7E 7E7F 7F7F 8081 8182"            /* „ƒ‚�€..~~...€��‚ */
	$"8383 8383 8383 8383 8282 8282 8282 8282"            /* ƒƒƒƒƒƒƒƒ‚‚‚‚‚‚‚‚ */
	$"8282 8282 8281 8180 8080 7F7F 7E7E 7E7E"            /* ‚‚‚‚‚��€€€..~~~~ */
	$"7E7F 7F80 8081 8282 8384 8484 8585 8585"            /* ~..€€�‚‚ƒ„„„………… */
	$"8686 8585 8585 8484 8382 8180 7F7D 7C7B"            /* ††…………„„ƒ‚�€.}|{ */
	$"7A7A 7979 797A 7B7D 7E80 8385 8789 8A8C"            /* zzyyyz{}~€ƒ…‡‰ŠŒ */
	$"8C8C 8C8B 8A88 8583 817E 7C7A 7978 7878"            /* ŒŒŒ‹Šˆ…ƒ�~|zyxxx */
	$"797A 7C7E 8082 8485 8787 8888 8786 8584"            /* yz|~€‚„…‡‡ˆˆ‡†…„ */
	$"8281 7F7E 7D7C 7C7C 7D7E 7F80 8182 8485"            /* ‚�.~}|||}~.€�‚„… */
	$"8586 8686 8685 8584 8382 8180 807F 7F7E"            /* …††††……„ƒ‚�€€..~ */
	$"7E7E 7E7E 7E7E 7F7F 7F80 8081 8182 8283"            /* ~~~~~~...€€��‚‚ƒ */
	$"8384 8484 8485 8484 8484 8382 8281 8180"            /* ƒ„„„„…„„„„ƒ‚‚��€ */
	$"807F 7F80 8080 8081 8181 8181 8282 8181"            /* €..€€€€�����‚‚�� */
	$"8180 8080 8080 8081 8182 8283 8484 8484"            /* �€€€€€€��‚‚ƒ„„„„ */
	$"8484 8382 8180 7F7E 7E7D 7D7D 7D7E 7F81"            /* „„ƒ‚�€.~~}}}}~.� */
	$"8284 8586 8788 8888 8786 8583 817F 7D7B"            /* ‚„…†‡ˆˆˆ‡†…ƒ�.}{ */
	$"7A79 7878 7879 7A7C 7E80 8285 8788 8A8B"            /* zyxxxyz|~€‚…‡ˆŠ‹ */
	$"8B8B 8B8A 8887 8583 817F 7E7D 7B7B 7A7A"            /* ‹‹‹Šˆ‡…ƒ�.~}{{zz */
	$"7B7B 7C7C 7D7E 7F80 8182 8384 8485 8585"            /* {{||}~.€�‚ƒ„„……… */
	$"8585 8585 8484 8383 8281 8180 8080 7F7F"            /* …………„„ƒƒ‚��€€€.. */
	$"8080 8080 8182 8282 8383 8382 8282 8180"            /* €€€€�‚‚‚ƒƒƒ‚‚‚�€ */
	$"807F 7F7E 7E7E 7E7F 8080 8182 8384 8485"            /* €..~~~~.€€�‚ƒ„„… */
	$"8585 8585 8483 8282 8180 807F 7F7F 7F80"            /* …………„ƒ‚‚�€€....€ */
	$"8181 8282 8383 8382 8281 8080 7F7E 7D7D"            /* ��‚‚ƒƒƒ‚‚�€€.~}} */
	$"7D7D 7D7E 7F81 8284 8586 8788 8888 8887"            /* }}}~.�‚„…†‡ˆˆˆˆ‡ */
	$"8685 8381 807E 7D7C 7B7A 7A7B 7B7C 7D7F"            /* †…ƒ�€~}|{zz{{|}. */
	$"8182 8485 8686 8787 8786 8685 8482 8180"            /* �‚„…††‡‡‡††…„‚�€ */
	$"7F7E 7E7D 7D7D 7D7D 7E7E 7F80 8182 8384"            /* .~~}}}}}~~.€�‚ƒ„ */
	$"8485 8686 8786 8686 8584 8382 8180 7E7D"            /* „…††‡†††…„ƒ‚�€~} */
	$"7C7B 7B7B 7B7B 7C7D 7E80 8183 8485 8687"            /* |{{{{{|}~€�ƒ„…†‡ */
	$"8787 8786 8685 8482 8180 807F 7F7F 7F7F"            /* ‡‡‡††…„‚�€€..... */
	$"7F80 8081 8181 8282 8181 8080 7F7F 7F7E"            /* .€€���‚‚��€€...~ */
	$"7E7F 7F80 8081 8384 8485 8686 8686 8585"            /* ~..€€�ƒ„„…††††…… */
	$"8483 8280 7F7E 7E7D 7D7E 7E7E 7F80 8182"            /* „ƒ‚€.~~}}~~~.€�‚ */
	$"8383 8484 8484 8383 8281 807F 7F7E 7E7E"            /* ƒƒ„„„„ƒƒ‚�€..~~~ */
	$"7E7F 7F80 8182 8283 8485 8586 8686 8685"            /* ~..€�‚‚ƒ„……††††… */
	$"8584 8382 8281 807F 7E7D 7D7C 7C7C 7C7C"            /* …„ƒ‚‚�€.~}}||||| */
	$"7D7D 7E7F 8182 8384 8687 8788 8888 8887"            /* }}~.�‚ƒ„†‡‡ˆˆˆˆ‡ */
	$"8684 8382 807E 7D7C 7B7B 7B7B 7C7D 7E7F"            /* †„ƒ‚€~}|{{{{|}~. */
	$"8182 8385 8686 8686 8685 8483 8281 807F"            /* �‚ƒ…†††††…„ƒ‚�€. */
	$"7E7E 7E7E 7E7F 7F80 8182 8283 8384 8483"            /* ~~~~~..€�‚‚ƒƒ„„ƒ */
	$"8383 8282 8181 8181 8181 8181 8282 8283"            /* ƒƒ‚‚��������‚‚‚ƒ */
	$"8383 8282 8281 8080 7F7F 7E7E 7E7E 7E7F"            /* ƒƒ‚‚‚�€€..~~~~~. */
	$"7F80 8182 8384 8585 8686 8686 8585 8483"            /* .€�‚ƒ„……††††……„ƒ */
	$"8282 8180 7F7F 7E7E 7E7E 7E7E 7E7F 7F80"            /* ‚‚�€..~~~~~~~..€ */
	$"8081 8182 8383 8484 8484 8484 8483 8382"            /* €��‚ƒƒ„„„„„„„ƒƒ‚ */
	$"8281 807F 7F7E 7E7E 7F7F 8081 8283 8384"            /* ‚�€..~~~..€�‚ƒƒ„ */
	$"8585 8685 8584 8382 817F 7E7D 7C7B 7B7B"            /* ……†……„ƒ‚�.~}|{{{ */
	$"7B7C 7D7E 8081 8384 8687 8888 8888 8887"            /* {|}~€�ƒ„†‡ˆˆˆˆˆ‡ */
	$"8684 8382 807F 7E7D 7D7C 7C7D 7D7E 7E7F"            /* †„ƒ‚€.~}}||}}~~. */
	$"8080 8182 8282 8282 8282 8282 8282 8283"            /* €€�‚‚‚‚‚‚‚‚‚‚‚‚ƒ */
	$"8383 8383 8383 8383 8282 8281 8180 807F"            /* ƒƒƒƒƒƒƒƒ‚‚‚��€€. */
	$"7F7F 7F7F 7F80 8080 8181 8282 8283 8383"            /* .....€€€��‚‚‚ƒƒƒ */
	$"8383 8383 8282 8282 8181 8181 8080 8080"            /* ƒƒƒƒ‚‚‚‚����€€€€ */
	$"8080 8080 8080 8181 8282 8383 8484 8585"            /* €€€€€€��‚‚ƒƒ„„…… */
	$"8584 8483 8382 807F 7E7D 7D7C 7C7C 7C7D"            /* …„„ƒƒ‚€.~}}||||} */
	$"7E7F 8081 8384 8586 8787 8787 8686 8483"            /* ~.€�ƒ„…†‡‡‡‡††„ƒ */
	$"8281 7F7E 7D7D 7C7D 7D7E 7E7F 8081 8283"            /* ‚�.~}}|}}~~.€�‚ƒ */
	$"8484 8585 8484 8382 8281 807F 7F7E 7E7E"            /* „„……„„ƒ‚‚�€..~~~ */
	$"7F7F 8080 8181 8283 8384 8484 8484 8483"            /* ..€€��‚ƒƒ„„„„„„ƒ */
	$"8383 8282 8281 8181 8080 807F 7F7F 7F7F"            /* ƒƒ‚‚‚���€€€..... */
	$"7F7F 7F7F 7F80 8081 8182 8283 8384 8484"            /* .....€€��‚‚ƒƒ„„„ */
	$"8484 8484 8383 8282 8282 8181 8180 8080"            /* „„„„ƒƒ‚‚‚‚���€€€ */
	$"8080 7F7F 7F7F 7E7E 7E7E 7F7F 7F80 8182"            /* €€....~~~~...€�‚ */
	$"8283 8485 8686 8686 8685 8584 8281 807F"            /* ‚ƒ„…†††††……„‚�€. */
	$"7E7D 7C7C 7C7C 7D7E 7F80 8182 8485 8586"            /* ~}||||}~.€�‚„……† */
	$"8686 8585 8483 8281 7F7E 7E7D 7D7D 7E7E"            /* ††……„ƒ‚�.~~}}}~~ */
	$"7F80 8082 8383 8484 8585 8585 8484 8382"            /* .€€‚ƒƒ„„…………„„ƒ‚ */
	$"8281 8080 7F7F 7F7F 7F7F 7F7F 7F80 8080"            /* ‚�€€.........€€€ */
	$"8181 8282 8282 8383 8383 8383 8382 8282"            /* ��‚‚‚‚ƒƒƒƒƒƒƒ‚‚‚ */
	$"8281 8180 8080 8080 8080 8081 8182 8282"            /* ‚��€€€€€€€€��‚‚‚ */
	$"8282 8382 8282 8281 8180 8080 8080 8080"            /* ‚‚ƒ‚‚‚‚��€€€€€€€ */
	$"8080 8181 8282 8283 8383 8282 8282 8181"            /* €€��‚‚‚ƒƒƒ‚‚‚‚�� */
	$"8181 8081 8181 8282 8383 8384 8483 8383"            /* ��€���‚‚ƒƒƒ„„ƒƒƒ */
	$"8281 8080 7F7E 7D7D 7D7D 7D7D 7E7F 8081"            /* ‚�€€.~}}}}}}~.€� */
	$"8384 8586 8787 8787 8786 8584 8382 807F"            /* ƒ„…†‡‡‡‡‡†…„ƒ‚€. */
	$"7E7E 7D7D 7D7D 7D7D 7E7F 7F80 8182 8283"            /* ~~}}}}}}~..€�‚‚ƒ */
	$"8384 8484 8484 8483 8383 8282 8181 8180"            /* ƒ„„„„„„ƒƒƒ‚‚���€ */
	$"8080 8080 8080 8080 8181 8282 8283 8383"            /* €€€€€€€€��‚‚‚ƒƒƒ */
	$"8383 8282 8281 8180 807F 7F7F 7F7F 7F80"            /* ƒƒ‚‚‚��€€......€ */
	$"8081 8282 8383 8484 8484 8483 8382 8281"            /* €�‚‚ƒƒ„„„„„ƒƒ‚‚� */
	$"8180 8080 8080 8080 8181 8182 8282 8282"            /* �€€€€€€€���‚‚‚‚‚ */
	$"8281 8181 8080 8080 8080 8080 8181 8283"            /* ‚���€€€€€€€€��‚ƒ */
	$"8384 8484 8484 8383 8282 8180 7F7F 7E7E"            /* ƒ„„„„„ƒƒ‚‚�€..~~ */
	$"7E7E 7F7F 8080 8182 8383 8384 8484 8383"            /* ~~..€€�‚ƒƒƒ„„„ƒƒ */
	$"8382 8281 8080 7F7F 7F7E 7F7F 7F7F 8080"            /* ƒ‚‚�€€...~....€€ */
	$"8181 8283 8384 8484 8484 8484 8483 8382"            /* ��‚ƒƒ„„„„„„„„ƒƒ‚ */
	$"8181 807F 7E7E 7E7D 7D7D 7D7E 7E7F 8081"            /* ��€.~~~}}}}~~.€� */
	$"8283 8484 8585 8686 8585 8484 8382 8180"            /* ‚ƒ„„……††……„„ƒ‚�€ */
	$"807F 7F7F 7F7F 7F7F 8080 8181 8282 8282"            /* €.......€€��‚‚‚‚ */
	$"8282 8281 8181 8080 8080 8081 8181 8282"            /* ‚‚‚���€€€€€���‚‚ */
	$"8383 8383 8383 8382 8282 8181 8080 8080"            /* ƒƒƒƒƒƒƒ‚‚‚��€€€€ */
	$"8080 8080 8181 8182 8282 8282 8282 8281"            /* €€€€���‚‚‚‚‚‚‚‚� */
	$"8180 8080 8080 8080 8081 8181 8282 8383"            /* �€€€€€€€€���‚‚ƒƒ */
	$"8383 8383 8383 8382 8282 8181 8080 807F"            /* ƒƒƒƒƒƒƒ‚‚‚��€€€. */
	$"7F7F 7F7F 7F7F 8080 8081 8182 8283 8384"            /* ......€€€��‚‚ƒƒ„ */
	$"8484 8484 8484 8382 8281 8080 7F7F 7E7E"            /* „„„„„„ƒ‚‚�€€..~~ */
	$"7E7E 7F7F 8081 8282 8384 8485 8585 8484"            /* ~~..€�‚‚ƒ„„………„„ */
	$"8382 8281 807F 7F7E 7E7E 7E7E 7F80 8081"            /* ƒ‚‚�€..~~~~~.€€� */
	$"8282 8383 8484 8484 8483 8382 8282 8181"            /* ‚‚ƒƒ„„„„„ƒƒ‚‚‚�� */
	$"8180 8080 8080 8181 8181 8181 8180 8080"            /* �€€€€€�������€€€ */
	$"8080 8080 8080 8181 8182 8283 8383 8383"            /* €€€€€€���‚‚ƒƒƒƒƒ */
	$"8383 8383 8282 8281 8180 8080 8080 8080"            /* ƒƒƒƒ‚‚‚��€€€€€€€ */
	$"8080 8080 8080 8181 8181 8282 8282 8282"            /* €€€€€€����‚‚‚‚‚‚ */
	$"8382 8282 8282 8281 8181 8180 8080 8080"            /* ƒ‚‚‚‚‚‚����€€€€€ */
	$"8181 8182 8282 8383 8383 8383 8282 8181"            /* ���‚‚‚ƒƒƒƒƒƒ‚‚�� */
	$"807F 7F7E 7E7E 7E7E 7F7F 8081 8283 8384"            /* €..~~~~~..€�‚ƒƒ„ */
	$"8585 8585 8585 8483 8282 8180 7F7E 7E7E"            /* ………………„ƒ‚‚�€.~~~ */
	$"7E7E 7E7F 7F80 8081 8282 8283 8383 8383"            /* ~~~..€€�‚‚‚ƒƒƒƒƒ */
	$"8282 8282 8181 8181 8181 8181 8181 8181"            /* ‚‚‚‚������������ */
	$"8181 8181 8181 8181 8181 8181 8182 8282"            /* �������������‚‚‚ */
	$"8282 8282 8282 8181 8181 8181 8181 8180"            /* ‚‚‚‚‚‚���������€ */
	$"8181 8181 8181 8181 8181 8282 8282 8282"            /* ����������‚‚‚‚‚‚ */
	$"8282 8282 8383 8382 8282 8281 8180 8080"            /* ‚‚‚‚ƒƒƒ‚‚‚‚��€€€ */
	$"7F7F 7F7F 7F7F 7F80 8081 8282 8383 8484"            /* .......€€�‚‚ƒƒ„„ */
	$"8484 8484 8383 8281 8180 7F7F 7F7F 7E7F"            /* „„„„ƒƒ‚��€....~. */
	$"7F80 8081 8182 8283 8383 8383 8282 8281"            /* .€€��‚‚ƒƒƒƒƒ‚‚‚� */
	$"8180 8080 7F7F 7F80 8080 8181 8282 8283"            /* �€€€...€€€��‚‚‚ƒ */
	$"8383 8383 8383 8382 8282 8281 8181 8080"            /* ƒƒƒƒƒƒƒ‚‚‚‚���€€ */
	$"8080 807F 7F80 8080 8080 8181 8182 8282"            /* €€€..€€€€€���‚‚‚ */
	$"8383 8383 8383 8383 8382 8282 8181 8181"            /* ƒƒƒƒƒƒƒƒƒ‚‚‚���� */
	$"8080 8080 8080 8081 8181 8181 8181 8181"            /* €€€€€€€��������� */
	$"8181 8181 8181 8182 8282 8283 8383 8383"            /* �������‚‚‚‚ƒƒƒƒƒ */
	$"8282 8281 8181 8080 7F7F 7F7F 7F80 8081"            /* ‚‚‚���€€.....€€� */
	$"8182 8283 8383 8383 8383 8282 8281 8080"            /* �‚‚ƒƒƒƒƒƒƒ‚‚‚�€€ */
	$"7F7F 7F7E 7F7F 7F80 8081 8282 8383 8384"            /* ...~...€€�‚‚ƒƒƒ„ */
	$"8484 8383 8382 8282 8181 8080 8080 8080"            /* „„ƒƒƒ‚‚‚��€€€€€€ */
	$"8080 8080 8081 8181 8182 8282 8282 8282"            /* €€€€€����‚‚‚‚‚‚‚ */
	$"8282 8282 8282 8181 8181 8180 8080 8081"            /* ‚‚‚‚‚‚�����€€€€� */
	$"8181 8181 8282 8282 8282 8282 8281 8181"            /* ����‚‚‚‚‚‚‚‚‚��� */
	$"8080 8080 807F 8080 8080 8181 8282 8282"            /* €€€€€.€€€€��‚‚‚‚ */
	$"8383 8383 8282 8282 8181 8181 8181 8181"            /* ƒƒƒƒ‚‚‚‚�������� */
	$"8181 8181 8181 8181 8181 8080 8080 807F"            /* ����������€€€€€. */
	$"7F80 8080 8181 8282 8383 8384 8484 8483"            /* .€€€��‚‚ƒƒƒ„„„„ƒ */
	$"8382 8281 8180 807F 7F7F 7F7F 7F7F 8080"            /* ƒ‚‚��€€.......€€ */
	$"8081 8182 8282 8383 8383 8383 8282 8282"            /* €��‚‚‚ƒƒƒƒƒƒ‚‚‚‚ */
	$"8181 8181 8080 8080 8080 8080 8181 8181"            /* ����€€€€€€€€���� */
	$"8282 8282 8283 8382 8282 8282 8181 8080"            /* ‚‚‚‚‚ƒƒ‚‚‚‚‚��€€ */
	$"8080 7F7F 8080 8080 8181 8282 8283 8383"            /* €€..€€€€��‚‚‚ƒƒƒ */
	$"8383 8382 8282 8181 8180 8080 8080 8080"            /* ƒƒƒ‚‚‚���€€€€€€€ */
	$"8181 8181 8282 8282 8282 8181 8181 8181"            /* ����‚‚‚‚‚‚������ */
	$"8180 8081 8181 8181 8282 8282 8282 8282"            /* �€€�����‚‚‚‚‚‚‚‚ */
	$"8281 8181 8181 8080 8081 8181 8181 8282"            /* ‚�����€€€�����‚‚ */
	$"8282 8282 8282 8282 8181 8180 8080 8080"            /* ‚‚‚‚‚‚‚‚���€€€€€ */
	$"8080 8081 8181 8282 8282 8383 8383 8383"            /* €€€���‚‚‚‚ƒƒƒƒƒƒ */
	$"8382 8282 8282 8181 8080 807F 7F7F 7F7F"            /* ƒ‚‚‚‚‚��€€€..... */
	$"7F7F 8080 8081 8182 8283 8383 8484 8383"            /* ..€€€��‚‚ƒƒƒ„„ƒƒ */
	$"8383 8282 81"                                       /* ƒƒ‚‚� */
};

\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/Sounds/Swish.r b/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/Sounds/Swish.r
new file mode 100644
index 0000000..b3c520b
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/Sounds/Swish.r
@@ -0,0 +1 @@
+data $8014 (0x18024) {
	$"0100 0100 0000 4100 0000 0553 7769 7368"            /* ......A....Swish */
};

data $8024 (0x41) {
	$"0000 1900 E88E 0000 772B 8080 8080 8080"            /* .....Ž..w+€€€€€€ */
	$"8080 8080 8080 8080 8080 8080 8080 8080"            /* €€€€€€€€€€€€€€€€ */
	$"8080 8080 8080 8080 8080 8080 8080 8080"            /* €€€€€€€€€€€€€€€€ */
	$"6178 626D 5D50 4F92 8272 7F50 1E3F 29B1"            /* axbm]PO’‚r.P.?)± */
	$"43B9 AFA4 4D7F 6345 6B5B B659 4C96 7BC8"            /* C¹¯¤M.cEk[¶YL–{È */
	$"5889 8910 2C37 7F5A 664D C881 9868 5C54"            /* X‰‰.,7.ZfMÈ�˜h\T */
	$"1963 8FB8 ACC0 C168 4C5E 4371 AE54 AA33"            /* .c�¸¬ÀÁhL^Cq®Tª3 */
	$"8D5B 578B 5E7C 9295 96B1 6872 7A6A BD67"            /* �[W‹^|’•–±hrzj½g */
	$"7396 4FB2 3DA6 4A58 9875 AB6F 7577 934B"            /* s–O²=¦JX˜u«ouw“K */
	$"8F83 72AB 47A8 6268 7394 63A3 6178 8784"            /* �ƒr«G¨bhs”c£ax‡„ */
	$"7B7D 5175 B193 D2AD 779B 4F76 7A42 A47E"            /* {}Qu±“Ò­w›OvzB¤~ */
	$"D9CF BE90 923E 8D75 7EA7 D397 BF94 6163"            /* .Ͼ�’>�u~§Ó—¿”ac */
	$"6670 A170 BC5F 8B96 5E57 8580 9AD6 868F"            /* fp¡p¼_‹–^W…€šÖ†� */
	$"6F5D 645E 7EA5 97CC AF85 5C62 2E9A 67AF"            /* o]d^~¥—̯…\b.šg¯ */
	$"BC98 AD9D 6985 6B79 9982 8AA2 7586 7572"            /* ¼˜­�i…ky™‚Š¢u†ur */
	$"A283 A086 7B67 7F6B 6389 999F 9C73 9372"            /* ¢ƒ †{g.kc‰™Ÿœs“r */
	$"5D4C 7E57 8879 9790 8C64 776F 937B 8B99"            /* ]L~Wˆy—�Œdwo“{‹™ */
	$"7A92 88A8 9582 9D9B 9CAB 9893 7E6D 6178"            /* z’ˆ¨•‚�›œ«˜“~max */
	$"627B 7290 9393 AA91 949B 8173 7962 6A6C"            /* b{r�““ª‘”›�sybjl */
	$"7278 81A1 9EAC B289 8C77 6663 5E79 5792"            /* rx�¡ž¬²‰Œwfc^yW’ */
	$"938A B9B2 B19C 9982 6B7B 5A5E 6E66 76B0"            /* “Š¹²±œ™‚k{Z^nfv° */
	$"9E9C 9CAA 7E7B 7C51 6E67 7271 8D7F 92B2"            /* žœœª~{|Qngrq�.’² */
	$"8E8E 996B 686A 8264 9286 A09E 8E8E 9097"            /* ŽŽ™khj‚d’† žŽŽ�— */
	$"7A83 816A 6686 6F6A 997D AB88 A47A 828B"            /* zƒ�jf†oj™}«ˆ¤z‚‹ */
	$"5D7B 545E 678E 7A85 969D 9989 8654 653D"            /* ]{T^gŽz…–�™‰†Te= */
	$"5D46 7C57 8ABE 95B6 A88F 797B 5E3D 5E55"            /* ]F|WŠ¾•¶¨�y{^=^U */
	$"7181 A69E BFAD 8A70 8062 5178 406F 768A"            /* q�¦ž¿­Šp€bQx@ovŠ */
	$"8D95 9E6A 9575 6978 8065 7E7E 6377 8376"            /* �•žj•uix€e~~cwƒv */
	$"838B 877E 8074 826C 946A A2A9 9BA9 8A87"            /* ƒ‹‡~€t‚l”j¢©›©Š‡ */
	$"6B7B 5463 6964 7377 A5A0 C2AD A28A 8654"            /* k{Tcidsw¥ Â­¢Š†T */
	$"5854 5658 5F7B 8395 B9A3 AFAF 7D71 634C"            /* XTVX_{ƒ•¹£¯¯}qcL */
	$"6C67 7180 9D8F 93A2 9D89 917E 6962 4D6D"            /* lgq€��“¢�‰‘~ibMm */
	$"728C 8C8A AE94 9D7E 796E 6874 3D78 6B88"            /* rŒŒŠ®”�~ynht=xkˆ */
	$"8B84 9181 9293 6A73 6E87 606A 934C 6F80"            /* ‹„‘�’“jsn‡`j“Lo€ */
	$"5F8C 7B60 8683 6F78 675E 7D75 6A82 948A"            /* _Œ{`†ƒoxg^}uj‚”Š */
	$"7FB9 66AC 8563 8865 5244 7E54 8F70 64A8"            /* .¹f¬…cˆeRD~T�pd¨ */
	$"7879 92BC 96A9 8C8F 986F 7958 623F 5855"            /* xy’¼–©Œ�˜oyXb?XU */
	$"8B66 B574 89BC 7CA6 8FA4 9689 8B9C 7967"            /* ‹fµt‰¼|¦�¤–‰‹œyg */
	$"6C69 6E4C 6076 A171 938D B16A 7A9C 8D9A"            /* linL`v¡q“�±jzœ�š */
	$"6486 8488 668A 946D 7769 8584 8486 7C9C"            /* d†„ˆfŠ”mwi…„„†|œ */
	$"8E63 958B 9483 7283 A843 858D 7182 5369"            /* Žc•‹”ƒrƒ¨C…�q‚Si */
	$"9868 6E87 9F7C 8A8B 7DC3 8584 90A0 436B"            /* ˜hn‡Ÿ|Š‹}Ã…„� Ck */
	$"7E4A 9032 6280 884E A9A9 7CBF 68AF A0AF"            /* ~J�2b€ˆN©©|¿h¯ ¯ */
	$"5FAF 6D65 6834 7545 7031 8C97 69BD A1B8"            /* _¯meh4uEp1Œ—i½¡¸ */
	$"89A6 6B96 8240 8251 7060 4C71 6D8D 5BA6"            /* ‰¦k–‚@‚Qp`Lqm�[¦ */
	$"A797 8F9C 9888 7260 757E 4388 7289 5984"            /* §—�œ˜ˆr`u~Cˆr‰Y„ */
	$"8570 8C45 6D6B 7E5D 939A 6996 2994 4D92"            /* …pŒEmk~]“ši–)”M’ */
	$"509F BC3F 87CB 5164 9E44 8B54 6070 954F"            /* PŸ¼?‡ËQdžD‹T`p•O */
	$"668E 9081 8386 618B 926F 9479 66AB 66CB"            /* fŽ��ƒ†a‹’o”yf«fË */
	$"8486 9A91 5C90 389D 5685 5DA5 6FA2 8F9B"            /* „†š‘\�8�V…]¥o¢�› */
	$"AC78 73A3 6D84 65A9 5093 A38C 9486 897E"            /* ¬xs£m„e©P“£Œ”†‰~ */
	$"8969 7A92 556B 926F 949A 76B7 9EA6 7BB3"            /* ‰iz’Uk’o”šv·ž¦{³ */
	$"7078 A36C 6C8D 8B5B AC6E 59A2 8741 9A5D"            /* px£ll�‹[¬nY¢‡Aš] */
	$"7581 538A 9864 84B2 8E6D AC87 826B 7E89"            /* u�SŠ˜d„²Žm¬‡‚k~‰ */
	$"7971 6D92 7B75 8276 7079 6F97 6A74 7F8A"            /* yqm’{u‚vpyo—jt.Š */
	$"8776 7E7D 7E7B 9881 6286 666D 6E3C 735D"            /* ‡v~}~{˜�b†fmn<s] */
	$"8B60 897A 5D9F 8591 7F76 8298 827F 7A91"            /* ‹`‰z]Ÿ…‘.v‚˜‚.z‘ */
	$"7791 8753 9A55 8748 B642 7D9B 9A77 9167"            /* w‘‡SšU‡H¶B}›šw‘g */
	$"A370 8684 A03B 747B 9053 8B58 AB7F 70A5"            /* £p†„ ;t{�S‹X«.p¥ */
	$"9281 8799 878E 6B86 9B72 6579 7676 4D93"            /* ’�‡™‡Žk†›reyvvM“ */
	$"6C5F 6995 66A2 64A1 6DB1 60AF 9682 7AA2"            /* l_i•f¢d¡m±`¯–‚z¢ */
	$"7085 7E63 997E 7685 8E92 6B8D 8286 5775"            /* p…~c™~v…Ž’k�‚†Wu */
	$"886D 8842 6AB6 5B8C 4CA1 9480 7D8C 9FB7"            /* ˆmˆBj¶[ŒL¡”€}ŒŸ· */
	$"33BC 9872 62AE 992C 7DB4 6A74 3A83 9344"            /* 3¼˜rb®™,}´jt:ƒ“D */
	$"2F93 8D1E 8554 858E 389B 9174 7A7F E691"            /* /“�.…T…Ž8›‘tz..‘ */
	$"70B4 C27E 5E9A A179 8A7F 9454 6F6B AE54"            /* p´Â~^š¡yŠ.”Tok®T */
	$"6264 948E 3C8C 67A8 755D 8959 8682 AA65"            /* bd”Ž<Œg¨u]‰Y†‚ªe */
	$"A338 D57A BA48 C58A 797A 608E A465 62BA"            /* £8ÕzºHÅŠyz`Ž¤ebº */
	$"4C71 7DC7 7177 B788 9D72 748C B05A 3EB4"            /* Lq}Çqw·ˆ�rtŒ°Z>´ */
	$"8947 836D B53F 8758 A487 6591 B84E A752"            /* ‰Gƒmµ?‡X¤‡e‘¸N§R */
	$"CA5B 92A4 53B8 5554 BC8F 7284 AA92 6988"            /* Ê[’¤S¸UT¼�r„ª’iˆ */
	$"A296 7230 C96A 7E4E AB6A 8751 9A68 A82A"            /* ¢–r0Éj~N«j‡Qšh¨* */
	$"CF58 8C46 A5A6 4B99 72A8 7964 6ACA 44AA"            /* ÏXŒF¥¦K™r¨ydjÊDª */
	$"5ABA 9063 8767 945B 7B52 826A 4496 4E82"            /* Zº�c‡g”[{R‚jD–N‚ */
	$"5A8B 7DAD 667C 99DB 2CA3 9C93 9976 63CD"            /* Z‹}­f|™.,£œ“™vcÍ */
	$"575C 7EA2 1D75 8E78 3C84 5B98 4D5E 80A5"            /* W\~¢.uŽx<„[˜M^€¥ */
	$"556E 53CA 6254 AB7D 9D96 3CC2 6761 86AF"            /* UnSÊbT«}�–<Âga†¯ */
	$"703B 71A7 614F 3A9F 7C68 396C B881 8A47"            /* p;q§aO:Ÿ|h9l¸�ŠG */
	$"B1A4 67A5 27BA CF8D 9948 78CB 526A 6FB1"            /* ±¤g¥'ºÏ�™HxËRjo± */
	$"78A0 4E81 B975 3975 B55C C158 3E8F 8B77"            /* x N�¹u9uµ\ÁX>�‹w */
	$"4B8B 706C 4F8B 814C 99A5 2CD6 9FA8 718D"            /* K‹plO‹�L™¥,ÖŸ¨q� */
	$"89A6 8DD5 3EAD 888A 882D C77D 74BA 6D74"            /* ‰¦�Õ>­ˆŠˆ-Ç}tºmt */
	$"C455 8B4F 818E 918A 2CAD 643E 9232 BD55"            /* ÄU‹O�Ž‘Š,­d>’2½U */
	$"6984 5581 7B94 8250 ACD1 4A99 769D E754"            /* i„U�{”‚P¬ÑJ™v�.T */
	$"C878 81B2 686B 73B3 6780 AA5F 9F4A 56A1"            /* Èx�²hks³g€ª_ŸJV¡ */
	$"5576 AC55 7B72 5A82 5981 53B7 7432 BE82"            /* Uv¬U{rZ‚Y�S·t2¾‚ */
	$"5BD8 7869 DB58 C14D CC6D A0C1 64BD 507F"            /* [Øxi.XÁMÌm Ád½P. */
	$"923B 7597 5E60 778A 4C91 5878 959A 509D"            /* ’;u—^`wŠL‘Xx•šP� */
	$"708A 8983 813F 8D88 579D 7F5C A477 8B80"            /* pŠ‰ƒ�?�ˆW�.\¤w‹€ */
	$"8A80 70A1 53B1 7944 A277 6093 6784 26B3"            /* Š€p¡S±yD¢w`“g„&³ */
	$"858C 6F4F 8CAC 6A80 6294 B96D 9897 AA8B"            /* …ŒoOŒ¬j€b”¹m˜—ª‹ */
	$"4D97 7CA7 6178 65A9 AB71 6BAE 60AA 994B"            /* M—|§axe©«qk®`ª™K */
	$"8EB6 6B8F 48AC 7882 14AF 793F 8F53 50A2"            /* Ž¶k�H¬x‚.¯y?�SP¢ */
	$"6F58 A48C 7D7B AF82 A4A9 7C69 BAA2 A264"            /* oX¤Œ}{¯‚¤©|iº¢¢d */
	$"7C93 AB8C B339 A66A 8D45 BF74 6A99 6864"            /* |“«Œ³9¦j�E¿tj™hd */
	$"7AAE 1EAE 5F86 796A 4FB0 8571 6598 BA89"            /* z®.®_†yjO°…qe˜º‰ */
	$"6094 CB9E 59B4 7172 A643 66BE 5476 7D6A"            /* `”ËžY´qr¦Cf¾Tv}j */
	$"6E93 3056 AF85 7D7B 4CAD AB57 76B7 687B"            /* n“0V¯…}{L­«Wv·h{ */
	$"A360 C08F 736F 9BAE 6968 9C4A 8B6D 8881"            /* £`À�so›®ihœJ‹mˆ� */
	$"489A 5D77 676F 6288 686A 5C9B 626B 9560"            /* Hš]wgobˆhj\›bk•` */
	$"9CA3 8F80 9C5C BA70 4EB7 AD57 A64B A275"            /* œ£�€œ\ºpN·­W¦K¢u */
	$"5D87 5D82 6750 8664 9261 4B8E 7781 3185"            /* ]‡]‚gP†d’aKŽw�1… */
	$"4DAD 9856 759D 6A9E 888F 92B9 4F9B A892"            /* M­˜Vu�jžˆ�’¹O›¨’ */
	$"7168 77AB 6085 523A 7E98 6C59 5B80 5A58"            /* qhw«`…R:~˜lY[€ZX */
	$"7B69 C159 7D4E C394 4896 88BC 7E70 B75C"            /* {iÁY}NÔH–ˆ¼~p·\ */
	$"BC85 8188 DC89 63A3 6A76 C53E 73B6 5767"            /* ¼…�ˆ.‰c£jvÅ>s¶Wg */
	$"567E 8776 4A88 6A8C 5360 6BBC 7E84 AFA1"            /* V~‡vJˆjŒS`k¼~„¯¡ */
	$"8F7C B079 A5DB 4B87 838A 5F88 3E90 4BA6"            /* �|°y¥.K‡ƒŠ_ˆ>�K¦ */
	$"7468 4FAB 36C9 7572 9754 63A9 7995 7649"            /* thO«6Éur—Tc©y•vI */
	$"9ADC 5F62 73B5 8CC4 6AB6 6492 61B1 7ACA"            /* š._bsµŒÄj¶d’a±zÊ */
	$"594C 7E8A 543B 697D 6A9D 2994 6761 945E"            /* YL~ŠT;i}j�)”ga”^ */
	$"D39B 3BC2 4CD4 9D7E 82B2 A675 84A1 76AD"            /* Ó›;ÂLÔ�~‚²¦u„¡v­ */
	$"718C A19B 5E38 8E79 B351 4D55 9F22 5F55"            /* qŒ¡›^8Žy³QMUŸ"_U */
	$"5AAD 1E93 5D79 A924 71D7 5DC8 82B3 ACA7"            /* Z­.“]y©$q×]È‚³¬§ */
	$"8AAB D07D 8E79 81BD 4C6B 7196 6E3E 9D37"            /* Š«Ð}Žy�½Lkq–n>�7 */
	$"5499 4268 8428 5E59 2C88 5E33 C44B 71A8"            /* T™Bh„(^Y,ˆ^3ÄKq¨ */
	$"809A 77DC 98AC A9B2 AA64 ED6D A3AB 6776"            /* €šw.˜¬©²ªd.m£«gv */
	$"927B 664F 9240 813C 836B 8377 6A5F 926E"            /* ’{fO’@�<ƒkƒwj_’n */
	$"8427 947D 836A 6AC7 2DB2 B278 88AC 7190"            /* „'”}ƒjjÇ-²²xˆ¬q� */
	$"BBA0 9789 9278 B767 7872 8270 9C49 7C87"            /* » —‰’x·gxr‚pœI|‡ */
	$"7862 D95D 83C2 75AC 9C80 7A65 8883 5F69"            /* xb.]ƒÂu¬œ€zeˆƒ_i */
	$"4FAB 584A B865 4490 8E88 B63C 9BA5 7070"            /* O«XJ¸eD�Žˆ¶<›¥pp */
	$"6AA8 866F 7A6F A6B9 2998 C985 9997 8EA9"            /* j¨†ozo¦¹)˜É…™—Ž© */
	$"A546 9E88 8020 8B8F 5139 8930 7651 618F"            /* ¥Fžˆ€ ‹�Q9‰0vQa� */
	$"5B83 9370 9095 8C42 8EBD 8F63 C53E AEC1"            /* [ƒ“p�•ŒBŽ½�cÅ>®Á */
	$"45A0 9785 A192 A299 54AA 7392 576A 4958"            /* E —…¡’¢™Tªs’WjIX */
	$"AB20 4C72 5B4A 3CAA 9368 66A1 BE5A A95D"            /* « Lr[J<ª“hf¡¾Z©] */
	$"9AB7 8E71 A37E 6B7C A376 815A 9B77 8571"            /* š·Žq£~k|£v�Z›w…q */
	$"5FAF 4565 7A7F 5D4B 4DAE 771C 6F92 6072"            /* _¯Eez.]KM®w.o’`r */
	$"7ABF 8D70 73DF 6F76 A761 C199 41B6 5B63"            /* z¿�ps.ov§aÁ™A¶[c */
	$"867C 739A 3390 9686 6384 AD49 A35E AC56"            /* †|sš3�–†c„­I£^¬V */
	$"8571 96A3 7653 77BF 8066 BE71 9E97 8194"            /* …q–£vSw¿€f¾qž—�” */
	$"4AB8 717F 6B76 6370 754C 9752 8F71 4EAB"            /* J¸q.kvcpuL—R�qN« */
	$"8B59 9CB4 688A AF66 B997 72A1 987A 6B84"            /* ‹Yœ´hŠ¯f¹—r¡˜zk„ */
	$"8DAE 628C B748 A86D 887D 894E 9D3F 7974"            /* �®bŒ·H¨mˆ}‰N�?yt */
	$"4099 358B 64A7 616F 9DB0 8A8E 73AD 6ACF"            /* @™5‹d§ao�°ŠŽs­jÏ */
	$"56A3 8F7A 6180 7057 8D51 8F7F 6A8E 6378"            /* V£�za€pW�Q�.jŽcx */
	$"BD84 7873 76C8 4489 8B55 B23F 6EB1 714A"            /* ½„xsvÈD‰‹U²?n±qJ */
	$"AA92 6362 8384 5C7C 5CA1 5B4E 867B 807B"            /* ª’cbƒ„\|\¡[N†{€{ */
	$"7489 9C8B 75AA A778 AACB 61C2 4BA3 8874"            /* t‰œ‹uª§xªËaÂK£ˆt */
	$"5567 8949 7747 AD45 7F76 6899 5E81 7979"            /* Ug‰IwG­E.vh™^�yy */
	$"9B7D 7765 A087 A28B 7DA9 AC76 80A1 9483"            /* ›}we ‡¢‹}©¬v€¡”ƒ */
	$"6BB3 7791 596A AE5B 526E 894D 796A 9C79"            /* k³w‘Yj®[Rn‰Myjœy */
	$"6C8F 9691 62A3 6599 8477 816F B54F A490"            /* l�–‘b£e™„w�oµO¤� */
	$"6695 8B71 AC4E 9A98 5E9D 8859 8A63 8F75"            /* f•‹q¬Nš˜^�ˆYŠc�u */
	$"746C 965A B16B 9770 70E4 7E5E 8993 8B6A"            /* tl–Z±k—pp.~^‰“‹j */
	$"7165 9D3A 6C7E 9A4A 8D59 9C9D 40A3 6DA4"            /* qe�:l~šJ�Yœ�@£m¤ */
	$"817C B757 73A3 867C 8F4E D562 8D99 7D8C"            /* �|·Ws£†|�NÕb�™}Œ */
	$"8F94 A146 8E77 6F53 855E 7056 6669 9241"            /* �”¡FŽwoS…^pVfi’A */
	$"867A 8B83 875A B78D 74B7 9567 8975 CC71"            /* †z‹ƒ‡Z·�t·•g‰uÌq */
	$"7E68 B899 317B A76F 6B7A 808C 2E65 7F72"            /* ~h¸™1{§okz€Œ.e.r */
	$"5363 598F 6E47 8D83 8D6A 7F9C 70A2 8994"            /* ScY�nG�ƒ�j.œp¢‰” */
	$"957C 719B 8A78 9951 9D6C 7676 7A85 7085"            /* •|q›Šx™Q�lvvz…p… */
	$"8193 388D 637A 7D2C 8070 637B 5691 6B89"            /* �“8�cz},€pc{V‘k‰ */
	$"7EAA 6A88 93AA 7778 A6A3 9B49 B4A8 48A8"            /* ~ªjˆ“ªwx¦£›I´¨H¨ */
	$"61C1 508F 7A97 9567 6A78 6E85 486A 884D"            /* aÁP�z—•gjxn…HjˆM */
	$"8058 7980 5598 9780 8487 85AE 62AF 69A5"            /* €Xy€U˜—€„‡…®b¯i¥ */
	$"7B8F 83AB 6D7A 9D80 8F76 7B9A 9E47 A765"            /* {�ƒ«mz�€�v{šžG§e */
	$"8F61 6695 6871 5D73 7367 5EA6 6C89 8493"            /* �af•hq]ssg^¦l‰„“ */
	$"A356 9C87 A45A 9A7D AB66 8D6B B682 776C"            /* £Vœ‡¤Zš}«f�k¶‚wl */
	$"9A86 7D76 5DC6 2796 668C 6F67 4EA4 595D"            /* š†}v]Æ'–fŒogN¤Y] */
	$"9671 A366 B794 887D 8A9C 8B82 60B2 668B"            /* –q£f·”ˆ}Šœ‹‚`²f‹ */
	$"52A2 7B6E 69AB 7260 9168 A155 7C85 9943"            /* R¢{ni«r`‘h¡U|…™C */
	$"A17C 903F A46A 8B73 6EA2 8D85 758C 69B5"            /* ¡|�?¤j‹sn¢�…uŒiµ */
	$"53B1 6B89 7881 51AA 7353 B45A C14C 7E9A"            /* S±k‰x�QªsS´ZÁL~š */
	$"808F 7864 899C 4ABA 556D 936E 837B 9373"            /* €�xd‰œJºUm“nƒ{“s */
	$"9F61 9876 918C 7D8F 837C 6B86 8060 965F"            /* Ÿa˜v‘Œ}�ƒ|k†€`–_ */
	$"9581 8977 7C6C A94F AB55 AD76 6E9B 539F"            /* •�‰w|l©O«U­vn›SŸ */
	$"7591 786F 9695 4F98 A06E 7B70 997E 7176"            /* u‘xo–•O˜ n{p™~qv */
	$"7C85 8D56 A48C 7792 7F85 6C73 9E88 6F73"            /* |…�V¤Œw’.…lsžˆos */
	$"73A0 408F 746D 7C74 8752 7599 7390 6393"            /* s @�tm|t‡Ru™s�c“ */
	$"9D7E 7C8A 8D6E 9878 8076 8F91 6385 7B66"            /* �~|Š�n˜x€v�‘c…{f */
	$"8F4D A95E 727E 5E79 5B8C 6A75 8499 5593"            /* �M©^r~^y[Œju„™U“ */
	$"73AD 7A88 64A7 7496 3DB5 6483 4F93 7967"            /* s­zˆd§t–=µdƒO“yg */
	$"7876 7165 7573 8E50 9671 7B76 837E 9175"            /* xvqeusŽP–q{vƒ~‘u */
	$"9B77 9E70 788B 9289 699F 9086 66A4 599D"            /* ›wžpx‹’‰iŸ�†f¤Y� */
	$"6D73 8776 52A6 5A6C 676A A444 865B 9E57"            /* ms‡vR¦Zlgj¤D†[žW */
	$"7593 766F 999D A660 A08D C364 A38F D063"            /* u“vo™�¦` �Ãd£�Ðc */
	$"8879 AF59 7593 5E63 7C69 5D7E 469F 5F78"            /* ˆy¯Yu“^c|i]~FŸ_x */
	$"8D7C 6895 72A9 71A4 7D96 AA76 709E AC72"            /* �|h•r©q¤}–ªvpž¬r */
	$"7F8C 7F85 7F72 6A7A 6C84 775C A673 7D6C"            /* .Œ.….rjzl„w\¦s}l */
	$"9D87 908A 9980 8384 8282 9A69 7C90 7183"            /* �‡�Š™€ƒ„‚‚ši|�qƒ */
	$"6B79 9568 7772 9A66 9573 8A64 997F 9671"            /* ky•hwršf•sŠd™.–q */
	$"6EA0 7D6D 8171 B856 9584 6B7E 8686 6871"            /* n }m�q¸V•„k~††hq */
	$"8790 5564 A168 7978 9A72 7773 9983 5F91"            /* ‡�Ud¡hyxšrws™ƒ_‘ */
	$"7F89 667A A14F 8E80 7F69 8DA6 9465 71A2"            /* .‰fz¡OŽ€.i�¦”eq¢ */
	$"8F4A 8F73 956B 5985 737B 7577 8D7F 7185"            /* �J�s•kY…s{uw�.q… */
	$"9065 A37B 856D 8090 6C76 829F 6669 9989"            /* �e£{…m€�lv‚Ÿfi™‰ */
	$"7F71 A267 8B75 9179 759C 7572 6F8E A366"            /* .q¢g‹u‘yuœuroŽ£f */
	$"947E 9782 7291 8097 717F 5A71 6C79 796C"            /* ”~—‚r‘€—q.Zqlyyl */
	$"7480 6D86 729C 6294 7E6C 9586 8676 8B9A"            /* t€m†rœb”~l•††v‹š */
	$"587A A296 4E94 768D 5C76 A267 8291 646A"            /* Xz¢–N”v�\v¢g‚‘dj */
	$"7888 7E6C 788A 6A6D 6DAC 6C7E 6890 6E6E"            /* xˆ~lxŠjmm¬l~h�nn */
	$"7999 6388 7190 71A0 739A 757B 967A 7894"            /* y™cˆq�q sšu{–zx” */
	$"8797 6067 9874 7A75 8373 745E 8874 867C"            /* ‡—`g˜tzuƒst^ˆt†| */
	$"738C 6793 6D93 6E7D 8D5E A280 6EA8 6496"            /* sŒg“m“n}�^¢€n¨d– */
	$"7596 8965 9A8F 6A73 8E7F 777C 8373 748C"            /* u–‰eš�jsŽ.w|ƒstŒ */
	$"6A68 9386 607C 55A3 666D 8991 7269 A17F"            /* jh“†`|U£fm‰‘ri¡. */
	$"897B 9E90 5BAA 9364 8A8B 9350 76A4 7451"            /* ‰{ž�[ª“dŠ‹“Pv¤tQ */
	$"719D 6346 9C97 5D7D 8489 579C 888F 7396"            /* q�cFœ—]}„‰Wœˆ�s– */
	$"966A 95A6 8B82 84A7 8C7A 739E 8368 866E"            /* –j•¦‹‚„§Œzsžƒh†n */
	$"716E 926B 5589 8672 8A5B AA82 6490 6BA1"            /* qn’kU‰†rŠ[ª‚d�k¡ */
	$"7F94 8874 9294 AA62 A095 857C 7696 7969"            /* .”ˆt’”ªb •…|v–yi */
	$"9D5E 698A 6F73 7E5B 9167 8A77 7575 A668"            /* �^iŠos~[‘gŠwuu¦h */
	$"797C 9C93 718F 8C74 A875 9F79 818D 6C72"            /* y|œ“q�Œt¨uŸy��lr */
	$"6F8E 5B8A 6A70 717F 807F 42A3 896B 6892"            /* oŽ[Šjpq.€.B£‰kh’ */
	$"866B 907D 658B 8793 448C 8E84 736A AF5E"            /* †k�}e‹‡“DŒŽ„sj¯^ */
	$"8B72 896E 877E 9072 6C98 9267 7C89 8273"            /* ‹r‰n‡~�rl˜’g|‰‚s */
	$"877D 845B A262 836B 7B97 4D91 797F 8983"            /* ‡}„[¢bƒk{—M‘y.‰ƒ */
	$"9767 948B 9175 70A6 7579 6C99 6E6D 818A"            /* —g”‹‘up¦uyl™nm�Š */
	$"6297 7A86 6787 8C67 8976 7C6C 8287 6F79"            /* b—z†g‡Œg‰v|l‚‡oy */
	$"7B8D 7384 7A8C 897B 6C89 8F78 7677 887D"            /* {�s„zŒ‰{l‰�xvwˆ} */
	$"8573 8B80 7976 8C73 8C7F 6C87 6298 6083"            /* …s‹€yvŒsŒ.l‡b˜`ƒ */
	$"787F 7D8F 935F A885 747D 986A 8478 845D"            /* x.}�“_¨…t}˜j„x„] */
	$"8481 856F 8497 6397 7D81 7794 7D7C 7A86"            /* „�…o„—c—}�w”}|z† */
	$"8F71 7984 777E 7E7F 7C71 807D 796C 8185"            /* �qy„w~~.|q€}yl�… */
	$"6C79 7F78 887F 7871 987C 8C64 A578 7873"            /* ly.xˆ.xq˜|Œd¥xxs */
	$"858B 678D 6A79 768C 757B 689A 6B70 A75F"            /* …‹g�jyvŒu{hškp§_ */
	$"757E 8056 7F8D 815C 9D7D 8594 8581 799C"            /* u~€V.��\�}…”…�yœ */
	$"915C 8DA6 718C 6CA4 678C 7E8D 5D8B 856E"            /* ‘\�¦qŒl¤gŒ~�]‹…n */
	$"6695 7F6D 678D 6B8B 7F81 7185 9E8F 8B89"            /* f•.mg�k‹.�q…ž�‹‰ */
	$"A571 938A 8591 8D7E 7280 8394 6B73 6C98"            /* ¥q“Š…‘�~r€ƒ”ksl˜ */
	$"6984 6A99 638D 6791 7788 885B 8F83 8986"            /* i„j™c�g‘wˆˆ[�ƒ‰† */
	$"8093 7480 888A 8073 8B81 7972 8A95 6383"            /* €“t€ˆŠ€s‹�yrŠ•cƒ */
	$"8291 738E 6F8B 7C75 816C 7C75 7E6F 827D"            /* ‚‘sŽo‹|u�l|u~o‚} */
	$"877F 857F 8081 8574 729F 6C78 7598 6E8E"            /* ‡.….€�…trŸlxu˜nŽ */
	$"7D80 7896 8F61 927E 856B 8178 7772 6F76"            /* }€x–�a’~…k�xwrov */
	$"7A86 7778 6497 746F 7A7B 8175 8885 8885"            /* z†wxd—toz{�uˆ…ˆ… */
	$"8D83 7C95 8288 7476 818B 6D68 8173 8751"            /* �ƒ|•‚ˆtv�‹mh�s‡Q */
	$"876C 9468 7679 9971 6694 7778 886B 8787"            /* ‡l”hvy™qf”wxˆk‡‡ */
	$"8692 619E 7691 6B9C 6B88 7E8D 7683 8C79"            /* †’ažv‘kœkˆ~�vƒŒy */
	$"727B 967C 727A 7779 7271 737C 6284 6F73"            /* r{–|rzwyrqs|b„os */
	$"808C 8676 9F8A 8B9C 8193 7C8F 837C 838B"            /* €Œ†vŸŠ‹œ�“|�ƒ|ƒ‹ */
	$"6783 7D6E 7778 7960 7C74 6C85 6E89 6979"            /* gƒ}nwxy`|tl…n‰iy */
	$"8F81 9786 8A93 838D 937C 8C81 6D83 7A92"            /* ��—†Š“ƒ�“|Œ�mƒz’ */
	$"548E 6672 8B70 8768 797B 7C7C 8379 7974"            /* TŽfr‹p‡hy{||ƒyyt */
	$"7E7C 8280 7F7B 8788 886C 9B6D 7784 8079"            /* ~|‚€.{‡ˆˆl›mw„€y */
	$"7285 778A 6D99 678E 857B 8486 8284 788D"            /* r…wŠm™gŽ…{„†‚„x� */
	$"6A86 7D7B 817E 8175 7A83 7375 8261 886A"            /* j†}{�~�uzƒsu‚aˆj */
	$"8277 6D8E 877E 908D 8897 7D97 7F91 7B86"            /* ‚wmŽ‡~��ˆ—}—.‘{† */
	$"797F 8373 5E82 7E76 6194 6F80 738B 7F88"            /* y.ƒs^‚~va”o€s‹.ˆ */
	$"7F7D 869E 9188 888C 9879 9485 7E7C 7D6A"            /* .}†ž‘ˆˆŒ˜y”…~|}j */
	$"877E 686E 8184 7A77 896C 8D83 8771 A57D"            /* ‡~hn�„zw‰l�ƒ‡q¥} */
	$"728C 8C87 8582 8F75 9879 9079 867B 6F7F"            /* rŒŒ‡…‚�u˜y�y†{o. */
	$"8180 6E77 8571 8489 748A 7C7F 828E 727C"            /* �€nw…q„‰tŠ|.‚Žr| */
	$"7A7B 7A89 8F6A 748E 7980 808D 6683 7B81"            /* z{z‰�jtŽy€€�fƒ{� */
	$"778D 7366 8A94 6B8F 787D 7F8C 7472 8464"            /* w�sfŠ”k�x}.Œtr„d */
	$"717E 7670 7278 7A6D 9C6D 8685 8A79 8B91"            /* q~vprxzmœm†…Šy‹‘ */
	$"8275 8786 7976 8C74 8179 8275 7872 7B69"            /* ‚u‡†yvŒt�y‚uxr{i */
	$"8768 7E7F 7A7B 8D7A 9096 8886 8B95 7B84"            /* ‡h~.z{�z�–ˆ†‹•{„ */
	$"8880 6F82 6B7D 7771 766F 7388 687C 847D"            /* ˆ€o‚k}wqvosˆh|„} */
	$"6F98 7784 7D8E 7F8E 8492 7796 707F 8380"            /* o˜w„}Ž.Ž„’w–p.ƒ€ */
	$"697D 766E 7276 7D6A 8B7E 757C 947C 8085"            /* i}vnrv}j‹~u|”|€… */
	$"9375 8B82 8B74 8B79 7A88 816C 7A7D 7F6E"            /* “u‹‚‹t‹yzˆ�lz}.n */
	$"7F6C 727D 747F 9774 957D 928F 8684 8882"            /* .lr}t.—t•}’�†„ˆ‚ */
	$"877E 7789 7772 7E7C 786C 7677 7878 7E76"            /* ‡~w‰wr~|xlvwxx~v */
	$"8962 8A80 7483 9069 877A 8F72 8D7B 8172"            /* ‰bŠ€tƒ�i‡z�r�{�r */
	$"8A78 7D8C 738B 7A8F 7580 8582 7984 826C"            /* Šx}Œs‹z�u€…‚y„‚l */
	$"7974 826C 8574 6E87 7B7F 888C 7C92 7C86"            /* yt‚l…tn‡{.ˆŒ|’|† */
	$"8B86 7F82 9682 6C93 777A 778D 737A 847C"            /* ‹†.‚–‚l“wzw�sz„| */
	$"6C92 8567 8785 7F82 8088 8283 847C 928D"            /* l’…g‡….‚€ˆ‚ƒ„|’� */
	$"7096 858A 7583 7D7D 7E8A 6880 8267 7998"            /* p–…Šuƒ}}~Šh€‚gy˜ */
	$"6683 7C7D 7A92 836D 8D95 6D8B 8C7F 7A89"            /* fƒ|}z’ƒm�•m‹Œ.z‰ */
	$"8290 7C79 7983 7883 6E82 6587 737D 817B"            /* ‚�|yyƒxƒn‚e‡s}�{ */
	$"7871 798E 747B 837F 7F90 7186 7E82 7185"            /* xqyŽt{ƒ..�q†~‚q… */
	$"7B7E 7985 7591 8273 7F77 7A84 7392 747E"            /* {~y…u‘‚s.wz„s’t~ */
	$"7A6F 8786 6B7B 8B77 7A86 7A66 8480 697F"            /* zo‡†k{‹wz†zf„€i. */
	$"9369 7C8B 8F77 7A88 7985 8774 8787 7275"            /* “i|‹�wzˆy…‡t‡‡ru */
	$"957A 7C75 7D78 7282 6A78 956D 768C 8176"            /* •z|u}xr‚jx•mvŒ�v */
	$"8F7A 8B88 826D 8E85 7183 8C83 7C7A 8A79"            /* �z‹ˆ‚mŽ…qƒŒƒ|zŠy */
	$"7A80 6B7F 747A 6F86 7386 7E81 8292 768A"            /* z€k.tzo†s†~�‚’vŠ */
	$"9675 828E 7884 8675 7B83 7D6E 8A79 747E"            /* –u‚Žx„†u{ƒ}nŠyt~ */
	$"717A 8374 8084 8E7B 7E83 9173 9A80 8A81"            /* qzƒt€„Ž{~ƒ‘sš€Š� */
	$"7F7B 8187 667F 7F76 7781 687C 8471 7784"            /* .{�‡f..vw�h|„qw„ */
	$"7C7A 7A96 7885 8880 8A86 8285 897E 8686"            /* |zz–x…ˆ€Š†‚…‰~†† */
	$"728A 776F 7879 7977 866E 8D7C 748C 8289"            /* rŠwoxyyw†n�|tŒ‚‰ */
	$"7890 8684 8570 8B7C 7D7E 7C7E 7480 7F80"            /* x�†„…p‹|}~|~t€.€ */
	$"7C84 7C87 8B7F 8B91 8879 9485 6B86 7875"            /* |„|‡‹.‹‘ˆy”…k†xu */
	$"7478 7C6B 8B69 817A 8B6E 8984 8485 927D"            /* tx|k‹i�z‹n‰„„…’} */
	$"8690 8084 9D76 7E83 816D 7E73 697B 6677"            /* †�€„�v~ƒ�m~si{fw */
	$"8376 7086 8C7C 7893 8086 808D 8083 7E78"            /* ƒvp†Œ|x“€†€�€ƒ~x */
	$"7F89 7D74 8579 7C76 787B 7674 7B7A 8680"            /* .‰}t…y|vx{vt{z†€ */
	$"8577 9082 8780 8187 7183 7C82 6976 7779"            /* …w�‚‡€�‡qƒ|‚ivwy */
	$"7676 6D7D 7677 7C7E 6E84 7D85 8686 828E"            /* vvm}vw|~n„}…††‚Ž */
	$"8888 8576 8281 746F 816A 6E7A 7472 6888"            /* ˆˆ…v‚�to�jnztrhˆ */
	$"707D 857E 8189 7A86 8B7A 9089 8881 8B83"            /* p}…~�‰z†‹z�‰ˆ�‹ƒ */
	$"7C83 747C 7773 7D7A 6975 7E77 7485 778B"            /* |ƒt|ws}ziu~wt…w‹ */
	$"7C8C 758C 7F81 8A86 8283 8A83 8B7F 8C7B"            /* |ŒuŒ.�Š†‚ƒŠƒ‹.Œ{ */
	$"7E7B 7B77 7977 7482 797B 8584 7B82 7F91"            /* ~{{wywt‚y{…„{‚.‘ */
	$"757D 8980 7A87 7D7F 8285 898A 7686 837A"            /* u}‰€z‡}.‚…‰Šv†ƒz */
	$"867B 7D7C 7F7F 887A 7C7E 8679 847A 7089"            /* †{}|..ˆz|~†y„zp‰ */
	$"7A78 7E84 817C 8D7E 8B7F 797E 8F78 7E84"            /* zx~„�|�~‹.y~�x~„ */
	$"797F 7D81 8084 6E88 8475 827A 757B 827B"            /* y.}�€„nˆ„u‚zu{‚{ */
	$"7F7D 847F 8B8A 7C84 7D8B 7E7F 7C73 8077"            /* .}„.‹Š|„}‹~.|s€w */
	$"857C 757D 7785 7973 8377 807E 867F 7F90"            /* …|u}w…ysƒw€~†..� */
	$"8C7F 9386 8B7A 888D 6B8A 6D7D 7A7D 6D87"            /* Œ.“†‹zˆ�kŠm}z}m‡ */
	$"756E 7D7D 747C 7E6E 906F 8287 8381 898D"            /* un}}t|~n�o‚‡ƒ�‰� */
	$"8088 807F 8486 707A 8574 7A82 7578 7F7B"            /* €ˆ€.„†pz…tz‚ux.{ */
	$"7A87 717B 827E 7C7E 8880 8482 817C 897C"            /* z‡q{‚~|~ˆ€„‚�|‰| */
	$"7882 826C 8076 7A7A 7E79 7C7C 7889 717E"            /* x‚‚l€vzz~y||x‰q~ */
	$"8377 8284 837D 897B 8284 7C7B 8278 7D7D"            /* ƒw‚„ƒ}‰{‚„|{‚x}} */
	$"797A 857D 7987 7E84 7B83 7D73 896D 7C7A"            /* yz…}y‡~„{ƒ}s‰m|z */
	$"7B77 8576 7984 7981 8879 8081 8686 7F87"            /* {w…vy„y�ˆy€�††.‡ */
	$"8384 8181 7F7D 8277 7381 727B 7A80 7E79"            /* ƒ„��.}‚ws�r{z€~y */
	$"8883 887B 8986 7D87 7F84 7F7E 8083 7979"            /* ˆƒˆ{‰†}‡.„.~€ƒyy */
	$"877E 6A89 7777 826F 867C 8479 878B 7986"            /* ‡~j‰ww‚o†|„y‡‹y† */
	$"8582 7586 7C7F 7F77 7B82 7580 7E7C 777E"            /* …‚u†|..w{‚u€~|w~ */
	$"7F7A 8176 8486 7987 8683 848C 7485 8072"            /* .z�v„†y‡†ƒ„Œt…€r */
	$"7F85 6781 7B7C 7D7C 7E80 7E72 887C 7B7C"            /* .…g�{|}|~€~rˆ|{| */
	$"7B87 807B 8684 7B84 7E7A 7286 7A78 7E77"            /* {‡€{†„{„~zr†zx~w */
	$"7B80 7F7D 8A73 8780 7B82 7F79 837A 837D"            /* {€.}Šs‡€{‚.yƒzƒ} */
	$"7F81 837B 8576 7E80 7A7A 7B7C 7F78 8881"            /* .�ƒ{…v~€zz{|.xˆ� */
	$"7A7D 8679 8083 8179 877A 8580 8080 8583"            /* z}†y€ƒ�y‡z…€€€…ƒ */
	$"7987 787E 7E7A 7F74 837D 8081 8074 7D85"            /* y‡x~~z.tƒ}€�€t}… */
	$"7780 7B79 8773 8A7E 8180 8A80 8282 8087"            /* w€{y‡sŠ~�€Š€‚‚€‡ */
	$"7B80 807C 8479 7A83 7476 7C83 6C81 7C77"            /* {€€|„yzƒtv|ƒl�|w */
	$"8180 7F82 7F7F 897F 8087 7780 7B71 8379"            /* �€.‚..‰.€‡w€{qƒy */
	$"7B7F 8175 8077 8080 737F 877A 7E84 8770"            /* {.�u€w€€s.‡z~„‡p */
	$"8B7D 7E85 7780 8272 7286 7575 8576 7D7C"            /* ‹}~…w€‚rr†uu…v}| */
	$"7C7C 8079 7F81 7C89 837B 8C7A 7F87 7B72"            /* ||€y.�|‰ƒ{Œz.‡{r */
	$"8C75 797F 787C 837D 8280 7F87 877F 7A87"            /* Œuy.x|ƒ}‚€.‡‡.z‡ */
	$"7980 837F 7A83 7C80 7A7E 787B 8082 7985"            /* y€ƒ.zƒ|€z~x{€‚y… */
	$"8580 8480 8081 8381 8079 797B 8078 7A84"            /* …€„€€�ƒ�€yy{€xz„ */
	$"7781 8281 7985 7B88 7E86 8282 8384 7D88"            /* w�‚�y…{ˆ~†‚‚ƒ„}ˆ */
	$"7A7C 8580 7580 7D7B 827A 7E80 797A 8A76"            /* z|…€u€}{‚z~€yzŠv */
	$"7585 7B7B 7F7D 827D 7F82 7C80 8176 827D"            /* u…{{.}‚}.‚|€�v‚} */
	$"7A7D 7E7B 7A81 7B83 7B84 8082 7A7D 8779"            /* z}~{z�{ƒ{„€‚z}‡y */
	$"8282 807B 887C 7A7D 7C79 7B80 7E7B 8478"            /* ‚‚€{ˆ|z}|y{€~{„x */
	$"817C 8081 7F80 807A 7B7E 7F7C 7A85 797E"            /* �|€�.€€z{~.|z…y~ */
	$"837B 847A 817E 827E 8080 7E80 7E84 797E"            /* ƒ{„z�~‚~€€~€~„y~ */
	$"807B 797C 7F80 787F 827F 7C86 797E 7884"            /* €{y|.€x.‚.|†y~x„ */
	$"7D7E 8281 7E80 7F7C 8778 7888 747C 7F78"            /* }~‚�~€.|‡xxˆt|.x */
	$"7C7A 7A83 7F76 867C 7880 817B 8380 8084"            /* |zzƒ.v†|x€�{ƒ€€„ */
	$"7C81 8078 7F7D 7880 7D76 837A 7D84 7D7F"            /* |�€x.}x€}vƒz}„}. */
	$"8875 817F 7980 806F 877B 7783 7F79 8678"            /* ˆu�.y€€o‡{wƒ.y†x */
	$"7D85 7B83 817D 857E 8080 7E7A 8679 7D7E"            /* }…{ƒ�}…~€€~z†y}~ */
	$"7D80 7882 857E 8287 7C7C 887A 817D 8180"            /* }€x‚…~‚‡||ˆz�}�€ */
	$"7C80 807C 807F 7E80 7A85 7D7E 817E 7F83"            /* |€€|€.~€z…}~�~.ƒ */
	$"7C83 7F80 7F81 7F7D 8180 7A80 817F 7C80"            /* |ƒ.€.�.}�€z€�.|€ */
	$"7E7F 7A7F 7C7D 807E 7E7D 8283 7E80 8082"            /* ~.z.|}€~~}‚ƒ~€€‚ */
	$"8081 797F 7E7F 7D82 7A7D 827E 7C7C 8280"            /* €�y.~.}‚z}‚~||‚€ */
	$"7780 8079 817C 827B 7F82 7D7A 8280 7C80"            /* w€€y�|‚{.‚}z‚€|€ */
	$"827A 857B 7C81 7F7B 847B 827D 807F 807C"            /* ‚z…{|�.{„{‚}€.€| */
	$"847D 7E81 7F7D 7D7C 7D7B 7F7C 7D7E 7D7B"            /* „}~�.}}|}{.|}~}{ */
	$"7F80 7C80 857A 8283 7D7B 817E 7F7D 827F"            /* .€|€…z‚ƒ}{�~.}‚. */
	$"7D80 827C 7F84 7E82 7D80 7D7E 7E7A 827C"            /* }€‚|.„~‚}€}~~z‚| */
	$"7C81 7D7B 807F 807E 8283 7B84 807E 8080"            /* |�}{€.€~‚ƒ{„€~€€ */
	$"8280 7E80 7C7B 7D7C 7E7E 7C84 807B 7E85"            /* ‚€~€|{}|~~|„€{~… */
	$"7D80 837E 7D7F 7D7A 7980 7D79 7D7E 7D7D"            /* }€ƒ~}.}zy€}y}~}} */
	$"7E80 7F81 7F81 7D82 7D7E 7E7A 807F 7A7C"            /* ~€.�.�}‚}~~z€.z| */
	$"807A 7C7E 7E80 8181 817F 8282 8080 8180"            /* €z|~~€���.‚‚€€�€ */
	$"7E80 7C7C 8079 7B7E 797C 7F7C 7F7B 8180"            /* ~€||€y{~y|.|.{�€ */
	$"8183 827F 877A 8182 7883 807C 7F77 807C"            /* �ƒ‚.‡z�‚xƒ€|.w€| */
	$"7980 8278 8580 7B80 8380 837E 817D 7D81"            /* y€‚x…€{€ƒ€ƒ~�}}� */
	$"7C7D 7F7E 817F 7C81 7E7D 7E7E 807E 7E81"            /* |}.~�.|�~}~~€~~� */
	$"7E7C 857F 7C84 807B 837E 817D 8082 7E81"            /* ~|….|„€{ƒ~�}€‚~� */
	$"7C7E 7D80 7B7F 7980 7D7F 7E7E 8081 807C"            /* |~}€{.y€}.~~€�€| */
	$"847C 7F81 7A7C 7D7C 827B 807F 7B83 7B80"            /* „|.�z|}|‚{€.{ƒ{€ */
	$"7E80 8180 7E7E 7E81 807E 807F 807D 7D7D"            /* ~€�€~~~�€~€.€}}} */
	$"847E 817F 7E7E 817D 7E7C 7F81 7B7E 7E7E"            /* „~�.~~�}~|.�{~~~ */
	$"8081 7B83 7E84 7D80 8082 7F81 8081 7E81"            /* €�{ƒ~„}€€‚.�€�~� */
	$"7E7C 7D7E 807B 827C 7E81 807E 7F81 847B"            /* ~|}~€{‚|~�€~.�„{ */
	$"8280 7E81 7F7D 7F7F 7C7F 777D 7D7D 807E"            /* ‚€~�.}..|.w}}}€~ */
	$"7E82 7E82 7E7F 827F 7E7D 7E7D 7B80 7D7E"            /* ~‚~‚~.‚.~}~}{€}~ */
	$"807B 7F7D 807E 827F 817E 817E 807F 7D80"            /* €{.}€~‚.�~�~€.}€ */
	$"7D7D 7D7C 7E7E 7C80 7D80 817D 7E81 7B82"            /* }}}|~~|€}€�}~�{‚ */
	$"7E7D 827F 7D81 7C81 7D7E 847B 8080 7C7E"            /* ~}‚.}�|�}~„{€€|~ */
	$"807D 817D 807E 7D81 7D7D 837D 8181 7C82"            /* €}�}€~}�}}ƒ}��|‚ */
	$"7E7D 817E 817E 7B82 7A81 7F7E 7F81 807E"            /* ~}�~�~{‚z�.~.�€~ */
	$"807E 817E 8082 817D 847E 7F7E 8180 7C80"            /* €~�~€‚�}„~.~�€|€ */
	$"7E7C 7E7F 7D7E 8181 7C80 8180 7D83 7F81"            /* ~|~.}~��|€�€}ƒ.� */
	$"7E81 7E7F 7E7E 7F7D 807F 7D80 807E 7E7E"            /* ~�~.~~.}€.}€€~~~ */
	$"827D 7E81 7C7C 817E 7E81 807F 7E80 7F80"            /* ‚}~�||�~~�€.~€.€ */
	$"8080 8081 7E81 7C80 7E7F 7D7E 7F7C 7F80"            /* €€€�~�|€~.}~.|.€ */
	$"7C80 7F7F 7F80 807D 817F 7E80 7F7E 7F7F"            /* |€...€€}�.~€.~.. */
	$"7F7E 807E 7E80 7F7F 817F 8080 7E7E 7E7E"            /* .~€~~€..�.€€~~~~ */
	$"7E7D 7E7D 7C7E 7E80 807E 827F 8083 7E81"            /* ~}~}|~~€€~‚.€ƒ~� */
	$"8080 807E 817C 7D7E 7B7D 7F7E 7F7F 7F80"            /* €€€~�|}~{}.~...€ */
	$"7F80 8081 807E 817D 7F7E 7D7F 7D7D 7D7E"            /* .€€�€~�}.~}.}}}~ */
	$"807C 8081 8080 8081 7E80 7D7F 7F7E 7D7C"            /* €|€�€€€�~€}..~}| */
	$"7E7E 7D7D 7E80 7C80 7E81 7F82 827E 8380"            /* ~~}}~€|€~�.‚‚~ƒ€ */
	$"7D80 7D7E 7F7E 7D7F 7E81 7E80 807F 807F"            /* }€}~.~}.~�~€€.€. */
	$"817F 7E81 7E7E 8080 7E7D 817E 7D82 807E"            /* �.~�~~€€~}�~}‚€~ */
	$"8182 7F7F 8180 7E80 807B 807E 7D7E 7F80"            /* �‚..�€~€€{€~}~.€ */
	$"7E7F 7F81 7F81 827F 8281 807E 7F81 7C7F"            /* ~..�.�‚.‚�€~.�|. */
	$"7F7C 7E7F 7F7E 8180 8080 8081 7F81 807E"            /* .|~..~�€€€€�.�€~ */
	$"807F 807C 7D7F 7C7E 7E7D 807F 817E 8082"            /* €.€|}.|~~}€.�~€‚ */
	$"7E80 807F 807E 7F7E 7F7F 7D7F 7D7F 7F7D"            /* ~€€.€~.~..}.}..} */
	$"817E 7F80 7F7F 8180 7F80 7F7D 807E 7D7F"            /* �~.€..�€.€.}€~}. */
	$"7F7E 7E7F 7E80 807E 8081 7F80 7F7E 807E"            /* .~~.~€€~€�.€.~€~ */
	$"7F7D 7F7F 7E7F 7E80 807D 817E 8080 7E80"            /* .}..~.~€€}�~€€~€ */
	$"7F80 7E7E 817C 807F 7E7F 807F 8080 807E"            /* .€~~�|€.~.€.€€€~ */
	$"817F 7D80 7E7F 7E7D 807E 7E80 7F7F 817F"            /* �.}€~.~}€~~€..�. */
	$"7F80 817D 8080 7E7F 807D 7F7F 7D7E 7E7E"            /* .€�}€€~.€}..}~~~ */
	$"7E7F 807F 7F80 807F 7F80 7F80 7F7F 7F80"            /* ~.€..€€..€.€...€ */
	$"7F7F 7F7F 7F7F 807E 7F81 7D80 807F 807F"            /* ......€~.�}€€.€. */
	$"7F7F 807F 7E80 7F7F 807E 7F7F 8080 7F80"            /* ..€.~€..€~..€€.€ */
	$"8080 7F7F 807E 807F 7E7F 807F 7F80 7E80"            /* €€..€~€.~.€..€~€ */
	$"7F7F 7F80 807F 7F7F 807F 7F80 7F7E 7F7F"            /* ...€€...€..€.~.. */
	$"7E80 807E 7F80 7F80 807F 7F80 807F 807E"            /* ~€€~.€.€€..€€.€~ */
	$"807F 7E7F 7E80 7D7F 7F7E"                           /* €.~.~€}..~ */
};

\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/Sounds/Trumpets.r b/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/Sounds/Trumpets.r
new file mode 100644
index 0000000..ecf9b46
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/Sounds/Trumpets.r
@@ -0,0 +1 @@
+data $8014 (0x18024) {
	$"0100 0100 0000 4300 0000 0854 7275 6D70"            /* ......C....Trump */
	$"6574 73"                                            /* ets */
};

data $8024 (0x43) {
	$"0000 3600 E88E 0000 772B 8080 8080 8080"            /* ..6..Ž..w+€€€€€€ */
	$"8080 8080 8080 8080 8080 8080 8080 8080"            /* €€€€€€€€€€€€€€€€ */
	$"8080 8080 8080 8080 8080 8080 8080 8080"            /* €€€€€€€€€€€€€€€€ */
	$"8080 7F7E 7E7D 7D7D 7D7D 7D7E 7E7F 8081"            /* €€.~~}}}}}}~~.€� */
	$"8283 8384 8382 8180 7D79 797A 7A7A 7B7C"            /* ‚ƒƒ„ƒ‚�€}yyzzz{| */
	$"7C7C 8083 8381 8183 8483 817F 7D78 7477"            /* ||€ƒƒ��ƒ„ƒ�.}xtw */
	$"7778 797A 7A7A 7D86 8A89 8887 8685 8481"            /* wxyzzz}†Š‰ˆ‡†…„� */
	$"7B76 7075 7678 7A78 7477 7A80 8C8E 8C8D"            /* {vpuvxzxtwz€ŒŽŒ� */
	$"8B89 8987 7D77 7272 7071 7378 7975 797E"            /* ‹‰‰‡}wrrpqsxyuy~ */
	$"8991 8E89 837F 858B 8579 7980 7A71 7074"            /* ‰‘Ž‰ƒ.…‹…yy€zqpt */
	$"7E7B 757D 8394 9A90 7E6F 727C 807D 8886"            /* ~{u}ƒ”š�~or|€}ˆ† */
	$"877F 746D 737F 7873 7C8C A4A7 916F 5B61"            /* ‡.tms.xs|Œ¤§‘o[a */
	$"6E80 7D89 8380 7E74 6C73 8176 7386 A9C9"            /* n€}‰ƒ€~tls�vs†©É */
	$"A767 585B 5E6B 837A 8682 7F83 756D 7B88"            /* §gX[^kƒz†‚.ƒum{ˆ */
	$"7880 A4AC B798 6E65 6564 7C85 7689 777F"            /* x€¤¬·˜need|…v‰w. */
	$"776B 6B82 8868 6892 ABB4 8C64 676F 8997"            /* wkk‚ˆhh’«´Œdgo‰— */
	$"7B8B 8687 8677 6D71 876E 5174 8C94 9875"            /* {‹†‡†wmq‡nQtŒ”˜u */
	$"5B65 7990 777E 8A85 948C 8A80 8C8B 6573"            /* [ey�w~Š…”ŒŠ€Œ‹es */
	$"8C9B 9F82 585E 7280 7682 827B 857C 8786"            /* Œ›Ÿ‚X^r€v‚‚{…|‡† */
	$"7F7A 4F56 7B95 A383 5E68 8699 94AC 988F"            /* .zOV{•£ƒ^h†™”¬˜� */
	$"8A81 8499 998A 4F46 6B94 9A6A 3B4E 7B7D"            /* Š�„™™ŠOFk”šj;N{} */
	$"89A4 8A83 8486 8E95 A7A8 724F 6F9D AD7B"            /* ‰¤Šƒ„†Ž•§¨rOo�­{ */
	$"3E46 8178 88AB 9385 7C71 727D 8692 7350"            /* >F�xˆ«“…|qr}†’sP */
	$"6392 AE93 5451 7789 8AA8 A692 8374 7181"            /* c’®“TQw‰Š¨¦’ƒtq� */
	$"8A93 7E59 6B85 9BAA 6A40 516E 7B9B A48F"            /* Š“~Yk…›ªj@Qn{›¤� */
	$"887E 7B85 9BA0 9260 6C72 7E93 7E50 6173"            /* ˆ~{…› ’`lr~“~Pas */
	$"7298 A694 8F86 706A 8286 8250 5A67 708D"            /* r˜¦”�†pj‚†‚PZgp� */
	$"9469 7395 8E9E AB9F 9389 6253 7988 8C61"            /* ”is•Žž«Ÿ“‰bSyˆŒa */
	$"576B 788D 9067 4968 7385 9198 959A 7562"            /* Wkx��gIhs…‘˜•šub */
	$"7EA1 A783 686A 7995 8960 3055 899E 9593"            /* ~¡§ƒhjy•‰`0U‰ž•“ */
	$"9DA7 8671 6786 926D 5B5C 6C9C 8B63 3D4D"            /* �§†qg†’m[\lœ‹c=M */
	$"9BBF B197 9C9C 8072 5C7E A681 5A6A 6FA1"            /* ›¿±—œœ€r\~¦�Zjo¡ */
	$"A66C 5049 76A6 A47C 7B84 7874 6169 A59E"            /* ¦lPIv¦¤|{„xtai¥ž */
	$"5F6F 6F90 A469 4A5D 689C BE98 8089 9595"            /* _oo�¤iJ]hœ¾˜€‰•• */
	$"8C6E 919C 4D49 5979 9977 435E 6D89 C9B4"            /* Œn‘œMIYy™wC^m‰É´ */
	$"8475 7E7C 8361 769A 6357 6C8B B7B3 794B"            /* „u~|ƒavšcWl‹·³yK */
	$"787B B1AC 7864 7573 8370 71A3 8561 6471"            /* x{±¬xdusƒpq£…adq */
	$"9AA6 8137 3D76 B2C9 9D78 8B94 988C 7293"            /* š¦�7=v²É�x‹”˜Œr“ */
	$"814D 5871 96A4 8446 3560 C1E1 A05F 5777"            /* �MXq–¤„F5`Á. _Ww */
	$"7E86 6E7C 8458 5376 BACF B66A 443D 80DE"            /* ~†n|„XSvºÏ¶jD=€. */
	$"B46D 4763 697A 7484 8E66 4748 91B6 B16E"            /* ´mGcizt„ŽfGH‘¶±n */
	$"3E3A 5ECB CA87 6790 A5A9 877A 7660 594C"            /* >:^Ëʇg�¥©‡zv`YL */
	$"83AE A477 5459 709B BF7F 3758 929D 786B"            /* ƒ®¤wTYp›¿.7X’�xk */
	$"7E6C 7060 9BDC D4A2 6F5B 6292 A4A3 4A34"            /* ~lp`›.Ô¢o[b’¤£J4 */
	$"7D9A 8A70 7D6C 6950 64A5 BE9B 6450 51A1"            /* }šŠp}liPd¥¾›dPQ¡ */
	$"B18A 7862 9BB0 9571 706B 7D73 698E A594"            /* ±Šxb›°•qpk}siŽ¥” */
	$"745F 4D89 D286 3B42 82AB 9462 6056 7579"            /* t_M‰Ò†;B‚«”b`Vuy */
	$"77B6 C5A4 7F66 5179 D2B9 4324 6991 9068"            /* w¶Å¤.fQyÒ¹C$i‘�h */
	$"594A 7295 6F82 ADA0 7E5C 4D6F C8CC 7043"            /* YJr•o‚­ ~\MoÈÌpC */
	$"88BB B986 604E 6C92 7F7D 9D91 7055 4957"            /* ˆ»¹†`Nl’.}�‘pUIW */
	$"B8D7 8219 4D99 A27A 5F4C 6490 93B2 C6BC"            /* ¸×‚.M™¢z_Ld�“²Æ¼ */
	$"926F 5960 B2D1 9733 3185 A48A 6544 4D83"            /* ’oY`²Ñ—31…¤ŠeDMƒ */
	$"7572 8686 766C 5A58 9CD8 B76E 4F9F CCA2"            /* ur††vlZXœØ·nOŸÌ¢ */
	$"5E4E 5789 8B89 9398 6F62 565E 99D5 B05A"            /* ^NW‰‹‰“˜obV^™Õ°Z */
	$"0D54 AEA5 7E71 4B69 8098 A1A8 9D83 5743"            /* ÂT®¥~qKi€˜¡¨�ƒWC */
	$"7DD8 E08E 2647 AA92 6364 5172 787B 7B7F"            /* }Ø.Ž&Gª’cdQrx{{. */
	$"7A7B 6B6C 94D2 DA99 4E49 C3C5 8371 4361"            /* z{kl”Ò.™NIÃŃqCa */
	$"8C9B 7C72 716B 504D 76CA CF8E 402D 92AB"            /* Œ›|rqkPMvÊÏŽ@-’« */
	$"838D 6462 7D92 8B95 9296 7B56 61C1 EFBB"            /* ƒ�db}’‹•’–{VaÁ.» */
	$"5017 6CAE 736C 5F5B 6368 6B78 665A 6C6B"            /* P.l®sl_[chkxfZlk */
	$"7ECD E7A2 6148 78E7 B683 5841 669A 8C72"            /* ~Í.¢aHx.¶ƒXAfšŒr */
	$"675F 6E61 56B6 F9C1 5228 34A5 AA7A 7D7B"            /* g_naV¶.ÁR(4¥ªz}{ */
	$"7769 7181 8378 9091 5C93 DABA 6741 3893"            /* wiq�ƒx�‘\“.ºgA8“ */
	$"CC74 5C5C 748C 9569 473C 5E83 78B8 FCCF"            /* Ìt\\tŒ•iG<^ƒx¸.Ï */
	$"6C4B 4693 F1A6 6B54 5C63 726A 5F4F 5C7B"            /* lKF“.¦kT\crj_O\{ */
	$"719A F5E0 824F 293F B59D 7575 817C 837B"            /* qš..‚O)?µ�uu�|ƒ{ */
	$"6A67 7595 888B D6CB 6F41 3C4F BDAA 655F"            /* jgu•ˆ‹ÖËoA<O½ªe_ */
	$"737C 8E87 5E2E 1D51 88AB F3EE 8346 526E"            /* s|Ž‡^..Qˆ«..ƒFRn */
	$"D1E1 835B 5D5C 7272 6048 4770 939F D8F4"            /* Ñ.ƒ[]\rr`HGp“ŸØ. */
	$"A966 644E 6794 5F62 8985 7D78 6357 6393"            /* ©fdNg”_b‰…}xcWc“ */
	$"ABA2 BAD1 8732 3B57 7CC7 8E5D 7A7D 8893"            /* «¢ºÑ‡2;W|ÇŽ]z}ˆ“ */
	$"8053 3141 6688 D0F9 B254 5375 8BDC C261"            /* €S1AfˆÐ.²TSu‹.Âa */
	$"605F 5C54 4B37 4571 9DA7 D6F0 B36A 6E7B"            /* `_\TK7Eq�§Ö.³jn{ */
	$"6894 923E 5880 8372 5F4E 5F8A B2A7 BAD1"            /* h”’>X€ƒr_N_Š²§ºÑ */
	$"9539 3658 5BA3 C66E 6F8A 7D7D 8163 4351"            /* •96X[£ÆnoŠ}}�cCQ */
	$"7983 ADDB B365 5775 84B6 DC7A 5570 6851"            /* yƒ­.³eWu„¶.zUphQ */
	$"4940 3E68 A1A8 C6F2 BB71 7494 7B75 A56E"            /* I@>h¡¨Æ.»qt”{u¥n */
	$"5176 6857 5E58 6280 ABA0 A2D3 AD4E 2E4F"            /* QvhW^Xb€« ¢Ó­N.O */
	$"606B BEA8 7188 7A6C 7974 5D59 717C 99E4"            /* `k¾¨qˆzlyt]Yq|™. */
	$"C860 4976 9083 BDB2 5658 6555 4F47 4463"            /* È`Iv�ƒ½²VXeUOGDc */
	$"8A9A A5E8 D871 5E8D 9166 869C 626F 8761"            /* Šš¥.Øq^�‘f†œbo‡a */
	$"545B 6680 9C9D 8AB1 BA5B 3569 7860 82B4"            /* T[f€œ�Š±º[5ix`‚´ */
	$"8473 8E72 7073 746F 6F78 7DBE E482 416E"            /* „sŽrpstoox}¾.‚An */
	$"8A7F 99BB 7E4F 7160 5A62 6769 768D 8BBA"            /* Š.™»~Oq`Zbgiv�‹º */
	$"DD89 5582 9778 7499 8261 8B80 6860 6F78"            /* .‰U‚—xt™‚a‹€h`ox */
	$"828F 7B93 BD77 3259 7A6A 77AB 956A 7C78"            /* ‚�{“½w2Yzjw«•j|x */
	$"7485 8C76 6773 759D D6A8 5964 867C 83AD"            /* t…Œvgsu�Ö¨Yd†|ƒ­ */
	$"935B 626F 6268 7369 6A83 8397 BA93 516E"            /* “[bobhsijƒƒ—º“Qn */
	$"9F85 6C90 9379 829B 877D 7C6F 6F81 7982"            /* Ÿ…l�“y‚›‡}|oo�y‚ */
	$"A792 4F4F 786D 6899 A180 6B7A 6A7D 9888"            /* §’OOxmh™¡€kzj}˜ˆ */
	$"6666 7088 B9B7 7E6C 8676 6C98 A17E 647D"            /* ffpˆ¹·~l†vl˜¡~d} */
	$"6B68 7C78 636E 818D AB99 6260 8D8D 6979"            /* kh|xcn��«™b`��iy */
	$"8D83 7E9C 9082 8974 5D6F 7E80 9C99 6B56"            /* �ƒ~œ�‚‰t]o~€œ™kV */
	$"6E74 617C 9A8B 797A 7070 8F91 6B5F 6E85"            /* nta|š‹yzpp�‘k_n… */
	$"ADB5 9078 8780 6880 9C80 767B 786A 7A7D"            /* ­µ�x‡€h€œ€v{xjz} */
	$"6365 7483 9F99 7261 7D8A 7C71 8A84 9199"            /* cetƒŸ™ra}Š|qŠ„‘™ */
	$"9686 9089 6466 797F 9397 7E68 7171 6968"            /* –†�‰dfy.“—~hqqih */
	$"897F 857F 7268 8090 7866 697B A2AE 957F"            /* ‰.….rh€�xfi{¢®•. */
	$"8480 7372 9588 8283 7E73 7C80 6862 6E7B"            /* „€sr•ˆ‚ƒ~s|€hbn{ */
	$"9194 7A68 707C 7D74 827D 8B9B 9285 8D91"            /* ‘”zhp|}t‚}‹›’…�‘ */
	$"7160 7182 8E8F 7F76 7576 6E6C 837F 7E8B"            /* q`q‚Ž�.vuvnlƒ.~‹ */
	$"7D6B 7887 7B6C 6B77 95A1 9386 8285 7972"            /* }kx‡{lkw•¡“†‚…yr */
	$"898A 818B 8376 8084 7364 6D78 8688 7971"            /* ‰Š�‹ƒv€„sdmx†ˆyq */
	$"6F7B 7A77 8282 889E 9A85 8A91 8069 6E7E"            /* o{zw‚‚ˆžš…Š‘€in~ */
	$"8E8B 7C79 7879 7169 7C7F 7782 8370 7482"            /* Ž‹|yxyqi|.w‚ƒpt‚ */
	$"7E70 7076 8E9B 928A 8585 7F70 828B 868D"            /* ~ppvŽ›’Š…….p‚‹†� */
	$"8B7A 7A83 7867 6B74 8183 7874 7377 7C72"            /* ‹zzƒxgkt�ƒxtsw|r */
	$"8080 8097 9F8D 838E 8571 6E78 898D 827B"            /* €€€—Ÿ�ƒŽ…qnx‰�‚{ */
	$"7A7B 7A6A 7880 7781 857B 717F 7F75 7476"            /* z{zjx€w�…{q..utv */
	$"8391 918C 8884 8374 7984 818B 8D84 7682"            /* ƒ‘‘Œˆ„ƒty„�‹�„v‚ */
	$"7F71 6F72 7B7F 7B77 7878 7C75 7B84 7E8B"            /* .qor{.{wxx|u{„~‹ */
	$"9591 8588 867A 7576 8088 857E 7D7B 7C72"            /* •‘…ˆ†zuv€ˆ…~}{|r */
	$"747D 767C 7F7B 797B 7E78 797A 7E86 8B88"            /* t}v|.{y{~xyz~†‹ˆ */
	$"8785 857E 7C80 8089 8B82 817E 7E74 7274"            /* ‡……~|€€‰‹‚�~~trt */
	$"7879 7876 7A7A 7C7A 7C7F 7E87 8E89 8E89"            /* xyxvzz|z|.~‡Ž‰Ž‰ */
	$"867F 7C7A 7E83 8380 7F7C 7D77 7576 777D"            /* †.|z~ƒƒ€.|}wuvw} */
	$"7B75 7F80 7D7A 7B7D 7F84 8787 8A86 8481"            /* {u.€}z{}.„‡‡Š†„� */
	$"807D 7A86 877E 8384 7D78 7575 7878 7676"            /* €}z†‡~ƒ„}xuuxxvv */
	$"7B7C 7D7D 7D7E 7A86 8A85 8A8F 8480 7E7C"            /* {|}}}~z†Š…Š�„€~| */
	$"7D81 8382 817D 7B7B 7878 7379 7A76 7A85"            /* }�ƒ‚�}{{xxsyzvz… */
	$"7E7B 7B7B 7D82 8688 8987 8182 8280 7A80"            /* ~{{{}‚†ˆ‰‡�‚‚€z€ */
	$"8582 8187 7F78 7676 7779 787A 7D7C 7A7E"            /* …‚�‡.xvvwyxz}|z~ */
	$"7D7E 7C7F 8686 878F 897F 807F 7B7D 8183"            /* }~|.††‡�‰.€.{}�ƒ */
	$"837F 797A 797A 7978 7878 7A83 847B 7B7C"            /* ƒ.yzyzyxxxzƒ„{{| */
	$"7C7F 8386 8886 8080 8281 7F7D 7D81 8083"            /* |.ƒ†ˆ†€€‚�.}}�€ƒ */
	$"857B 7879 7878 787A 7D7E 7B7D 7F7E 7F80"            /* …{xyxxxz}~{}.~.€ */
	$"7F82 8486 8B82 8081 7E7C 7E81 8381 7C7A"            /* .‚„†‹‚€�~|~�ƒ�|z */
	$"7C7B 7A7B 7677 7A7D 8380 7D7C 7C7C 8083"            /* |{z{vwz}ƒ€}|||€ƒ */
	$"8587 8480 8383 8280 7D7E 8180 8280 7A7A"            /* …‡„€ƒƒ‚€}~�€‚€zz */
	$"7A78 7778 7C7F 7F7C 7E7E 7E80 7F7E 8385"            /* zxwx|..|~~~€.~ƒ… */
	$"8786 8181 807C 7D7F 8283 807A 7B7B 7C7C"            /* ‡†��€|}.‚ƒ€z{{|| */
	$"7875 797D 8083 7E7C 7C7C 7E81 8587 8680"            /* xuy}€ƒ~|||~�…‡†€ */
	$"8181 8180 7D7B 7E81 7F81 7C7A 7B79 7879"            /* ���€}{~�.�|z{yxy */
	$"7C80 827D 7D7E 7F81 807F 8083 8387 8380"            /* |€‚}}~.�€.€ƒƒ‡ƒ€ */
	$"807D 7C7E 8082 807A 797A 7D7D 7A77 787E"            /* €}|~€‚€zyz}}zwx~ */
	$"8083 817C 7E7E 7F81 8486 8581 8080 8281"            /* €ƒ�|~~.�„†…�€€‚� */
	$"7F7D 7C7F 8080 7F7A 7B7B 7A7A 7D80 817E"            /* .}|.€€.z{{zz}€�~ */
	$"7B7B 7F80 807F 7E81 8385 857F 7F7E 7D7D"            /* {{.€€.~�ƒ……..~}} */
	$"7F82 827E 7A7A 7F7F 7D7A 797B 7F81 827D"            /* .‚‚~zz..}zy{.�‚} */
	$"7C7D 7E7F 8184 8482 7E7E 8181 7F7D 7B7B"            /* |}~.�„„‚~~��.}{{ */
	$"7F80 817F 7D7B 7A7B 7C80 817F 7C7C 7F81"            /* .€�.}{z{|€�.||.� */
	$"8180 7E7E 8183 8583 807E 7C7D 7E80 817F"            /* �€~~�ƒ…ƒ€~|}~€�. */
	$"7B7A 7D7F 7E7C 7A7A 7D80 8180 7F7F 7E7E"            /* {z}.~|zz}€�€..~~ */
	$"8083 8583 807D 7F82 817F 7C7A 7C7F 807F"            /* €ƒ…ƒ€}.‚�.|z|.€. */
	$"7E7D 7A7A 7B7F 8181 7D7A 7C80 8182 807D"            /* ~}zz{.��}z|€�‚€} */
	$"7E83 8483 8080 7E7C 7C7E 8182 7F7A 7C7F"            /* ~ƒ„ƒ€€~||~�‚.z|. */
	$"7E7F 7D7A 7A7E 8181 7E7E 7D7E 7E80 8384"            /* ~.}zz~��~~}~~€ƒ„ */
	$"827C 7C80 8081 7F7B 7A7E 8181 7F7D 7B7B"            /* ‚||€€�.{z~��.}{{ */
	$"7B7E 8182 817C 7A7F 8183 827E 7C7F 8283"            /* {~�‚�|z.�ƒ‚~|.‚ƒ */
	$"8180 7D7C 7C7D 7F81 807B 7A7D 7E7F 7E7C"            /* �€}||}.�€{z}~.~| */
	$"7B7E 8081 807F 7F7E 7F81 8282 827F 7D7F"            /* {~€�€..~.�‚‚‚.}. */
	$"8080 7F7C 797C 8080 7F7E 7C7B 7C7E 8182"            /* €€.|y|€€.~|{|~�‚ */
	$"817E 7B7E 8082 827F 7B7D 8183 8180 7F7C"            /* �~{~€‚‚.{}�ƒ�€.| */
	$"7B7D 7F81 817E 7C7D 7E7F 807E 7B7B 7E80"            /* {}.��~|}~.€~{{~€ */
	$"807F 807F 7E80 8182 8380 7E80 7F7F 817E"            /* €.€.~€�‚ƒ€~€..�~ */
	$"7B7B 7E81 807E 7C7B 7B7D 7F80 807E 7C7E"            /* {{~�€~|{{}.€€~|~ */
	$"8081 8381 7D7C 7F82 8381 7F7D 7B7C 7E7F"            /* €�ƒ�}|.‚ƒ�.}{|~. */
	$"8180 7C7D 7D7D 807F 7C7C 7D7F 8080 807F"            /* �€|}}}€.||}.€€€. */
	$"7E7F 8181 8282 7E7F 7F7F 8180 7B79 7C80"            /* ~.��‚‚~...�€{y|€ */
	$"817F 7D7B 7B7C 7F81 807E 7B7C 7E81 8484"            /* �.}{{|.�€~{|~�„„ */
	$"7F7B 7E81 8382 807E 7B7B 7D7F 807F 7D7C"            /* .{~�ƒ‚€~{{}.€.}| */
	$"7C7D 8182 7E7A 7B7F 817F 7F7F 7E7E 8182"            /* |}�‚~z{.�...~~�‚ */
	$"8281 7F7F 7F7F 8181 7E7A 7B7F 8280 7D7C"            /* ‚�....��~z{.‚€}| */
	$"7B7B 7E81 817F 7C7C 7D7F 8284 817D 7B7F"            /* {{~��.||}.‚„�}{. */
	$"8383 817F 7C7B 7D7F 8080 7E7C 7C7C 7E81"            /* ƒƒ�.|{}.€€~|||~� */
	$"807D 7C7E 8080 7F80 7E7E 7F81 8181 807F"            /* €}|~€€.€~~.���€. */
	$"7F7F 8082 807C 7A7C 8081 7E7D 7B7A 7C80"            /* ..€‚€|z|€�~}{z|€ */
	$"8182 807D 7D7D 8085 847F 7C7D 8082 8180"            /* �‚€}}}€…„.|}€‚�€ */
	$"7E7A 7A7C 7F80 807E 7C7A 7D82 8380 7E80"            /* ~zz|.€€~|z}‚ƒ€~€ */
	$"8282 8282 8281 8182 8281 7F7E 7D7B 7A7E"            /* ‚‚‚‚‚��‚‚�.~}{z~ */
	$"7E7A 787A 7D7E 7D7C 7D7C 7D7F 8283 8282"            /* ~zxz}~}|}|}.‚ƒ‚‚ */
	$"817F 8084 8582 7D7A 7C7D 7C7C 7A77 7778"            /* �.€„…‚}z|}||zwwx */
	$"7A7C 7D7D 7C7A 7B80 8484 8383 8586 8585"            /* z|}}|z{€„„ƒƒ…†…… */
	$"8583 8281 817F 7D7B 7A78 777A 7B79 7776"            /* …ƒ‚��.}{zxwz{ywv */
	$"787A 7A7A 7B7C 7E83 8789 8A89 8987 8688"            /* xzzz{|~ƒ‡‰Š‰‰‡†ˆ */
	$"8987 827E 7C7C 7B79 7876 7373 7578 797A"            /* ‰‡‚~||{yxvssuxyz */
	$"7A78 777C 8185 8687 8889 8785 8584 8382"            /* zxw|�…†‡ˆ‰‡……„ƒ‚ */
	$"8382 8080 807E 7C7C 7C7B 7877 7A7C 7C7A"            /* ƒ‚€€€~|||{xwz||z */
	$"7877 777C 8287 8988 8682 7E81 8383 817F"            /* xww|‚‡‰ˆ†‚~�ƒƒ�. */
	$"8183 8483 817E 7673 7273 7576 7675 737A"            /* �ƒ„ƒ�~vsrsuvvusz */
	$"8389 8C8F 9294 928C 827A 706F 7174 7778"            /* ƒ‰Œ�’”’Œ‚zpoqtwx */
	$"7777 787C 8589 8580 7E7F 807F 7A74 7073"            /* wwx|…‰…€~.€.ztps */
	$"7981 898F 8F89 817F 8389 8782 7D7B 7E85"            /* y�‰��‰�.ƒ‰‡‚}{~… */
	$"857E 7877 776F 6B6B 7275 6F71 7987 9394"            /* …~xwwokkruoqy‡“” */
	$"8E88 868C 8D89 8886 8280 7772 737B 7C76"            /* Žˆ†Œ�‰ˆ†‚€wrs{|v */
	$"7A82 9096 8C76 625E 6776 7B7B 7D7B 7E7E"            /* z‚�–Œvb^gv{{}{~~ */
	$"7C7F 8885 7F83 95AC A982 6967 6A71 8081"            /* |.ˆ….ƒ•¬©‚igjq€� */
	$"7F81 7A7D 776E 717B 7975 838F 9793 796D"            /* .�z}wnq{yuƒ�—“ym */
	$"7074 818D 878A 8885 857A 737B 8477 6575"            /* pt��‡Šˆ……zs{„weu */
	$"8D9D 9579 7179 8895 8883 8581 847E 7573"            /* ��•yqyˆ•ˆƒ…�„~us */
	$"7D77 5C61 7786 928B 7778 8393 8D83 8883"            /* }w\aw†’‹wxƒ“�ƒˆƒ */
	$"8887 827D 8083 6A60 6E7F 8F8D 756B 7580"            /* ˆ‡‚}€ƒj`n.��uku€ */
	$"8085 8B88 8C87 8687 8484 7264 7185 948E"            /* €…‹ˆŒ‡†‡„„rdq…”Ž */
	$"7169 7781 8188 8B87 928F 8685 8176 6050"            /* qiw��ˆ‹‡’�†…�v`P */
	$"6688 9E94 776C 7F8A 8798 9A90 918E 847D"            /* fˆž”wl.Š‡˜š�‘Ž„} */
	$"7F7C 6A4E 4E74 9D9B 796A 6B66 637A 8787"            /* .|jNNt�›yjkfcz‡‡ */
	$"888A 938B 868E 826D 7287 A0A0 7B67 7376"            /* ˆŠ“‹†Ž‚mr‡  {gsv */
	$"6E78 7F81 8F90 989D 8670 604E 5A70 818E"            /* nx.���˜�†p`NZp�Ž */
	$"8876 7882 8491 9B91 948B 8494 9988 785D"            /* ˆvx‚„‘›‘”‹„”™ˆx] */
	$"576D 8189 897D 7672 6569 7B77 7D84 818E"            /* Wm�‰‰}vrei{w}„�Ž */
	$"9E9A 927C 6E79 8486 867E 747E 7A6D 7578"            /* žš’|ny„††~t~zmux */
	$"7B87 8380 8986 7764 5D6E 7D7D 7F83 707B"            /* {‡ƒ€‰†wd]n}}.ƒp{ */
	$"8B8A 8887 838A 8C8A 9096 866B 5D68 797B"            /* ‹Šˆ‡ƒŠŒŠ�–†k]hy{ */
	$"7674 5758 6F74 7377 7A81 8991 969B 9B87"            /* vtWXotswz�‰‘–››‡ */
	$"7B88 8E93 8A7D 686A 8C93 7F6A 6C7D 8687"            /* {ˆŽ“Š}hjŒ“.jl}†‡ */
	$"817E 7D5F 496A 818D 8875 6C70 8EA9 A885"            /* �~}_Ij��ˆulpŽ©¨… */
	$"717A 8992 8F8A 9A85 5058 748D 8D6C 5965"            /* qz‰’�Šš…PXt��lYe */
	$"6370 8474 6274 909B 9C88 949D 7170 8390"            /* cp„tbt�›œˆ”�qpƒ� */
	$"8F7E 5E74 7A7F 9B86 5E64 8794 9779 6D6C"            /* �~^tz.›†^d‡”—yml */
	$"4752 7A9C A7A4 7159 7885 B2B5 8568 7C8A"            /* GRzœ§¤qYx…²µ…h|Š */
	$"A59B 8679 504B 6388 A2AC 813E 4160 8093"            /* ¥›†yPKcˆ¢¬�>A`€“ */
	$"806B 8696 AA9E 8283 6A6C 8EA7 A8A7 8F70"            /* €k†–ªž‚ƒjlŽ§¨§�p */
	$"5B5D 8693 7857 6A83 9995 6E5D 4346 6B9B"            /* []†“xWjƒ™•n]CFk› */
	$"B6B9 A075 5940 7DC0 A979 6C7C 96AC 9675"            /* ¶¹ uY@}À©yl|–¬–u */
	$"4742 5F81 A3A5 9777 562C 3793 926C 6C93"            /* GB_�£¥—wV,7“’ll“ */
	$"B5BD 906B 545A 8294 B4B5 9A85 7B61 3C64"            /* µ½�kTZ‚”´µš…{a<d */
	$"9376 5974 9FB7 9663 3C38 677B A8CF B897"            /* “vYtŸ·–c<8g{¨Ï¸— */
	$"8063 5272 8DA1 7E7E A2AC 9973 4729 5075"            /* €cRr�¡~~¢¬™sG)Pu */
	$"91AF A086 8F7E 4850 585C 6C84 C2C9 9F73"            /* ‘¯ †�~HPX\l„ÂÉŸs */
	$"5542 6FA2 C3C3 9E71 7D8B 595A 7050 4F75"            /* UBo¢ÃÞq}‹YZpPOu */
	$"AEC7 AF82 541B 375F 8DC2 B48C 8785 6976"            /* ®Ç¯‚T.7_�´Œ‡…iv */
	$"987B 6186 ADB0 9C73 4A1B 4376 95C2 AD73"            /* ˜{a†­°œsJ.Cv•Â­s */
	$"7F95 807D 8546 1353 BCE5 CF86 482C 5D8C"            /* .•€}…F.S¼.φH,]Œ */
	$"A6D4 C96B 5776 6D67 8C68 425D A8C2 B997"            /* ¦ÔÉkWvmgŒhB]¨Â¹— */
	$"6D43 4D60 618D C4A3 7B86 7D6F A9A0 685D"            /* mCM`a�Ä£{†}o© h] */
	$"A2BB A382 4A19 2A5A 73A0 BB94 777F 8C7D"            /* ¢»£‚J.*Zs »”w.Œ} */
	$"9C97 5A24 5BC6 CCA3 6139 497F 8EB4 CD94"            /* œ—Z$[ÆÌ£a9I.Ž´Í” */
	$"6866 6155 7E9E 8266 61B7 C7A4 8259 3F5F"            /* hfaU~ž‚fa·Ç¤‚Y?_ */
	$"6275 9D85 718E 7E58 7DAF A48C 7BA0 B38F"            /* bu�…qŽ~X}¯¤Œ{ ³� */
	$"5C2D 1E5A 718C BBA0 758C 8E72 91B6 9467"            /* \-.ZqŒ» uŒŽr‘¶”g */
	$"6083 ADA2 845C 345D 7E95 B898 5D73 7B4A"            /* `ƒ­¢„\4]~•¸˜]s{J */
	$"5895 9388 8C98 B3A9 8A70 4C67 7877 9A9E"            /* X•“ˆŒ˜³©ŠpLgxwšž */
	$"7073 7D51 60B3 BB95 8680 909D 7A51 1F32"            /* ps}Q`³»•†€��zQ.2 */
	$"506F ADB3 7870 8B72 6CB4 AD70 6D84 A1C1"            /* Po­³xp‹rl´­pm„¡Á */
	$"8D59 354F 798D ABA8 6656 7065 4A90 B08C"            /* �Y5Oy�«¨fVpeJ�°Œ */
	$"8293 99C5 A06F 5864 6761 84A1 7B6B 7561"            /* ‚“™Å oXdga„¡{kua */
	$"508D C19F 828D 80AB 9554 3440 586E 9BAD"            /* P�ÁŸ‚�€«•T4@Xn›­ */
	$"8B6F 7A78 71A4 C592 6B7E 84BD C767 3645"            /* ‹ozxq¤Å’k~„½Çg6E */
	$"6776 93A3 724B 5C63 5C8C B998 6C81 8CB3"            /* gv“£rK\c\Œ¹˜l�Œ³ */
	$"D381 5557 6D73 8AA1 826C 7674 5979 B8AF"            /* Ó�UWmsŠ¡‚lvtYy¸¯ */
	$"7F81 7B87 B76E 2F2F 5468 83A1 825E 6374"            /* .�{‡·n//Thƒ¡‚^ct */
	$"7A9C C6AD 6D74 90A1 E1A9 4B2F 5071 97AE"            /* zœÆ­mt�¡.©K/Pq—® */
	$"814E 5466 6378 A5AD 8480 9589 B4A4 5A4E"            /* �NTfcx¥­„€•‰´¤ZN */
	$"676A 7797 8871 778D 7F78 94AA 8E80 8A7F"            /* gjw—ˆqw�.x”ªŽ€Š. */
	$"9FAC 4C24 4358 7D9F 8A67 5B6D 798B B5B9"            /* Ÿ¬L$CX}ŸŠg[my‹µ¹ */
	$"8A73 8E9C ADD3 8438 4354 7899 8560 5B6C"            /* ŠsŽœ­Ó„8CTx™…`[l */
	$"6767 93AA 927E 9098 91AC 7F43 5E67 6D80"            /* gg“ª’~�˜‘¬.C^gm€ */
	$"7F77 829D 997F 869A 9687 8F91 86A6 7E29"            /* .w‚�™.†š–‡�‘†¦~) */
	$"344D 6483 836E 6473 7878 97B2 9F7D 8BA5"            /* 4Mdƒƒndsxx—²Ÿ}‹¥ */
	$"A4C1 B561 4856 708E 8470 6E7F 735B 6F8F"            /* ¤ÁµaHVpŽ„pn.s[o� */
	$"9484 909F 898A 915E 4B63 6C7A 7E7F 8D9D"            /* ”„�Ÿ‰Š‘^Kclz~.�� */
	$"9C84 8990 9089 8E96 8E8A 935E 2E43 5772"            /* œ„‰��‰Ž–ŽŠ“^.CWr */
	$"7F79 7A76 6F69 8299 9687 88A2 AA9D AB91"            /* .yzvoi‚™–‡ˆ¢ª�«‘ */
	$"5254 6380 8977 7E88 7B5C 647D 8382 859A"            /* RTc€‰w~ˆ{\d}ƒ‚…š */
	$"997A 7F7F 5554 677A 7D7B 94A3 9B7F 7F93"            /* ™z..UTgz}{”£›..“ */
	$"8D89 8B9B 9D86 817B 503A 4E6B 7877 8886"            /* �‰‹›�†�{P:Nkxwˆ† */
	$"7661 6B83 888B 8798 A99C 9B9A 7858 6681"            /* vakƒˆ‹‡˜©œ›šxXf� */
	$"8E89 9498 8463 5E70 747A 7B8A 957C 7075"            /* Ž‰”˜„c^ptz{Š•|pu */
	$"6C4F 5D7C 8685 9AA6 9D81 7787 8382 838D"            /* lO]|†…š¦��w‡ƒ‚ƒ� */
	$"9887 7A72 6549 5771 7A7A 9193 816B 637E"            /* ˜‡zreIWqzz‘“�kc~ */
	$"8183 848F 9C90 8284 7B5C 6786 9296 A8A9"            /* �ƒ„�œ�‚„{\g†’–¨© */
	$"9974 5265 7371 6E75 8882 7470 6E63 5F77"            /* ™tResqnuˆ‚tpnc_w */
	$"8187 9B9F 9F94 838A 9A93 908E 8770 6E6D"            /* �‡›ŸŸ”ƒŠš“�Ž‡pnm */
	$"5651 4E73 8E8E 9489 7968 4C61 8B92 8A94"            /* VQNsŽŽ”‰yhLa‹’Š” */
	$"9A92 8497 866F 6370 83A3 B196 7253 436B"            /* š’„—†ocpƒ£±–rSCk */
	$"8B8F 9386 8A6F 5157 6462 4A68 96CC D99F"            /* ‹�“†ŠoQWdbJh–Ì.Ÿ */
	$"816B 525E 97A0 8F97 929F 7E5F 4D5B 4C57"            /* �kR^— �—’Ÿ~_M[LW */
	$"7B90 B6BD 8255 475F 8B9F 828B 89AB 996C"            /* {�¶½‚UG_‹Ÿ‚‹‰«™l */
	$"5E81 8A6B 588B BCD8 AF4F 305F 698C 8598"            /* ^�ŠkX‹¼Ø¯O0_iŒ…˜ */
	$"9586 9275 5E56 6E4A 1D61 83A9 C8B1 707E"            /* •†’u^VnJ.aƒ©È±p~ */
	$"9FC0 AC96 7C52 7B76 4F50 6A7F 5966 94AF"            /* ŸÀ¬–|R{vOPj.Yf”¯ */
	$"B179 2326 628B 819A A7AC BCB0 ADA9 9179"            /* ±y#&b‹�š§¬¼°­©‘y */
	$"3723 5090 A38C 4863 9FB1 ADB0 9C6C 583B"            /* 7#P�£ŒHcŸ±­°œlX; */
	$"4568 9EA3 7C63 9BC8 DB9C 3A25 6B8A 799A"            /* Ehž£|c›È.œ:%kŠyš */
	$"B0B4 B997 837E 929D 4C03 2581 9486 415D"            /* °´¹—ƒ~’�L.%�”†A] */
	$"B3C9 B4B6 957B 664F 614F 84BE B67A 8CCA"            /* ³É´¶•{fOaO„¾¶zŒÊ */
	$"E99F 3301 2772 6586 98B0 C6A5 9A96 8E8D"            /* .Ÿ3.'re†˜°Æ¥š–Ž� */
	$"6111 2B5A A2A5 9664 82C4 CFCE 9984 8563"            /* a.+Z¢¥–d‚ÄÏΙ„…c */
	$"4A2F 4E93 B36C 7692 CDA4 7249 3166 576B"            /* J/N“³lv’ͤrI1fWk */
	$"8DA9 D1C4 919D A285 B858 2F3C 4C6D 9C70"            /* �©ÑÄ‘�¢…¸X/<Lmœp */
	$"597F A4C0 996E A192 5325 1E9A C47F 4C79"            /* Y.¤À™n¡’S%.šÄ.Ly */
	$"C5C7 7853 545F 7D62 5CAD ABAD 967E 8199"            /* ÅÇxST_}b\­«­–~�™ */
	$"9362 3D42 505A 7862 2B5A B6CF B382 96BB"            /* “b=BPZxb+Z¶Ï³‚–» */
	$"9668 1D68 AB96 4C7A 97D8 AC47 362D 7C89"            /* –h.h«–Lz—جG6-|‰ */
	$"605B 8794 8A9A 8E9F A592 5F5F 6C5E 8957"            /* `[‡”ŠšŽŸ¥’__l^‰W */
	$"3A3D 88E0 EB8D 6DA0 8E7F 3F23 8C86 2557"            /* :=ˆ..�m Ž.?#Œ†%W */
	$"8DC1 C35C 4D76 7885 787C 7A5F 82AA C6A6"            /* �ÁÃ\Mvx…x|z_‚ªÆ¦ */
	$"818B 6E53 6457 746F 312E 6F9E E5B0 6471"            /* �‹nSdWto1.ož.°dq */
	$"AD9D 8737 619C 692C 77B1 E39A 5650 8C8D"            /* ­�‡7aœi,w±.šVPŒ� */
	$"6D7D 886D 7171 ADC1 9066 736B 6767 559D"            /* m}ˆmqq­Á�fskggU� */
	$"9540 136F D5F8 A34E 95A9 9574 518B 7B3B"            /* •@.oÕ.£N•©•tQ‹{; */
	$"3687 DDD0 745F 575E 7983 A17F 5F6A 67D3"            /* 6‡.Ðt_W^yƒ¡._jgÓ */
	$"CF6F 5264 637D 759B AE72 3E22 64F2 D55F"            /* ÏoRdc}u›®r>"d.Õ_ */
	$"5695 9D8B 5F73 7739 3348 D0F7 A45E 6561"            /* V•�‹_sw93HÐ.¤^ea */
	$"4860 B6B2 4C65 8ABE EF7D 384E 6361 6C99"            /* H`¶²LeŠ¾.}8Ncal™ */
	$"C586 4A49 4B98 D79E 5373 97A2 7A79 6F42"            /* ņJIK˜×žSs—¢zyoB */
	$"4760 AAFB C978 7D68 5C49 67B1 8246 7DA6"            /* G`ª.Éx}h\Ig±‚F}¦ */
	$"DBA7 4E49 4751 6784 C5AA 7351 578E DD85"            /* .§NIGQg„ŪsQWŽ.… */
	$"7579 8595 745D 766F 4A55 85E2 D578 945D"            /* uy…•t]voJU….Õx”] */
	$"4D4D 7690 7B6A 7099 C9C0 4462 524E 6286"            /* MMv�{jp™ÉÀDbRNb† */
	$"AB9C 9E6A 476D DEB1 6174 5F78 7366 5C72"            /* «œžjGm.±at_xsf\r */
	$"8156 61C7 EF80 986C 4549 78A6 7D7C 8B79"            /* �VaÇ.€˜lEIx¦}|‹y */
	$"ABDB 6851 7351 4061 B0A6 8684 4252 C2E8"            /* «.hQsQ@a°¦†„BRÂ. */
	$"7D76 6D69 626F 7362 7F94 5E96 F3B2 8B6C"            /* }vmibosb.”^–.²‹l */
	$"373E 73BA 9864 7881 88C0 9F57 5D4D 4957"            /* 7>sº˜dx�ˆÀŸW]MIW */
	$"A3B5 8082 664F A8F3 B88F 394A 6779 7A6F"            /* £µ€‚fO¨.¸�9Jgyzo */
	$"6E89 5B90 D4C4 886F 3422 63CF BD96 675C"            /* n‰[�ÔĈo4"cϽ–g\ */
	$"94C0 A07D 613C 1D53 B1BA 7E7D 734D 8CE8"            /* ”À }a<.S±º~}sMŒ. */
	$"DBA9 5A0C 4793 987C 677E 6A70 CCD8 916F"            /* .©Z.G“˜|g~jpÌØ‘o */
	$"3311 54CE DEAE 9453 67B4 A5A5 723A 0F28"            /* 3.TÎ.®”Sg´¥¥r:.( */
	$"9CC9 877B 8055 72D2 E3BD 7E1F 1B7A 9CA3"            /* œÉ‡{€UrÒ.½~..zœ£ */
	$"7676 6663 A4C4 A673 5720 27B5 E8AF A578"            /* vvfc¤Ä¦sW 'µ.¯¥x */
	$"499C 97A3 8649 140A 73C8 9C6B 956B 58AC"            /* Iœ—£†I..sÈœk•kX¬ */
	$"F5C9 9452 085E A898 897E 694D 7CA7 B972"            /* .É”R.^¨˜‰~iM|§¹r */
	$"5E32 0F8F F3C1 AAA8 4E75 A68F 9376 3501"            /* ^2.�.Áª¨Nu¦�“v5. */
	$"42A9 B278 8F8C 5C8E EBD4 9B76 1D24 B693"            /* B©²x�Œ\Ž.Ô›v.$¶“ */
	$"7D91 8546 6B8A AA8B 6F4A 0B6E F4CF A6B7"            /* }‘…FkŠª‹oJ.n.Ϧ· */
	$"8158 B389 7D7B 5C06 168D A68E 82A0 6C7C"            /* �X³‰}{\..�¦Ž‚ l| */
	$"DCDF A791 420C 97A2 707B A35B 5781 8590"            /* ..§‘B.—¢p{£[W�…� */
	$"706A 1C43 E7E4 A5A7 A55F A190 7069 7F15"            /* pj.C..¥§¥_¡�pi.. */
	$"096C 9891 7C99 8B80 C7DE B494 6C0E 5DB7"            /* Æl˜‘|™‹€Ç.´”l.]· */
	$"826C 9C70 4775 7591 7671 412B BEF1 C1A6"            /* ‚lœpGuu‘vqA+¾.Á¦ */
	$"B78B 7993 795B 7336 0147 8E93 898E AA8E"            /* ·‹y“y[s6.GŽ“‰ŽªŽ */
	$"B4D3 C495 8341 279A 956B 7E85 5763 6B83"            /* ´ÓÄ•ƒA'š•k~…Wckƒ */
	$"785F 5A38 94EC D5AB AFBE 747D 8C6D 5943"            /* x_Z8”.Õ«¯¾t}ŒmYC */
	$"0618 7186 9782 B3A1 A5CA D696 806A 3263"            /* ..q†—‚³¡¥ÊÖ–€j2c */
	$"9778 6878 7251 5E7C 8D5E 6652 74D8 DFB6"            /* —xhxrQ^|�^fRtØ.¶ */
	$"A0CC 906A 8882 4037 130E 5280 9B83 A6AB"            /*  Ì�jˆ‚@7..R€›ƒ¦« */
	$"96C2 ECAD 7A76 5543 9191 706B 7259 5472"            /* –Â.­zvUC‘‘pkrYTr */
	$"995F 585D 6ABA E6CC ABC0 A961 769C 4526"            /* ™_X]jº.Ì«À©avœE& */
	$"1724 366E 9FA5 9DA6 A7B7 EBBE 7169 733C"            /* .$6nŸ¥�¦§·.¾qis< */
	$"6991 7563 5A6E 575F 9F7D 5852 70A0 DFD7"            /* i‘ucZnW_Ÿ}XRp .× */
	$"BEB3 B479 57A3 5E19 0531 324D 87C2 A788"            /* ¾³´yW£^..12M‡Â§ˆ */
	$"A7B1 E5DD 8368 7452 4081 8D68 4567 734A"            /* §±..ƒhtR@��hEgsJ */
	$"9492 5F43 7399 D7DA C6B1 A598 4A8F 881C"            /* ”’_Cs™×.Ʊ¥˜J�ˆ. */
	$"0125 4B41 77D0 B57D 97BC DCED 8D67 666A"            /* .%KAwе}—¼..�gfj */
	$"3B6E 9F75 4148 8150 8DB0 6E3C 5D95 CEDD"            /* ;nŸuAH�P�°n<]•Î. */
	$"CDB9 9E9B 6076 922D 0110 503F 69C7 C185"            /* ͹ž›`v’-..P?iÇÁ… */
	$"82C0 E0F3 A068 5C65 4162 917F 413C 7C67"            /* ‚À.. h\eAb‘.A<|g */
	$"7CAC 813F 4587 C5DE C3B9 A68F 6D77 9957"            /* |¬�?E‡Å.ù¦�mw™W */
	$"0305 3A4A 67A9 CA99 75AE E4F5 B270 5F5C"            /* ..:Jg©Ê™u®..²p_\ */
	$"465D 8988 483F 617A 8BAA 9B50 3277 C1E3"            /* F]‰ˆH?az‹ª›P2wÁ. */
	$"BBB2 AF8D 7279 9175 1101 2650 769D BCAB"            /* »²¯�ry‘u..&Pv�¼« */
	$"7298 DFF8 C080 5E4E 4B56 8482 5E41 526B"            /* r˜..À€^NKV„‚^ARk */
	$"9DA2 A55C 2B5E B8E2 B9A4 B58D 7677 9C7C"            /* �¢¥\+^¸.¹¤µ�vwœ| */
	$"3301 1641 7597 A3B4 7F8B D2FA C192 5C44"            /* 3..Au—£´.‹Ò.Á’\D */
	$"474D 8071 6D49 5464 9FB6 AD74 2D4A A7D9"            /* GM€qmITdŸ¶­t-J§. */
	$"BA9B B793 7B67 AB75 5C07 1135 6C95 9CA9"            /* º›·“{g«u\..5l•œ© */
	$"887E C3F6 D4A9 6A40 5445 796D 7164 5263"            /* ˆ~Ã.Ô©j@TEymqdRc */
	$"8AC2 AE88 2C3B 97CC BD99 A390 8863 A685"            /* ŠÂ®ˆ,;—̽™£�ˆc¦… */
	$"7028 0831 5992 A2A1 9179 B9EC E6AE 7830"            /* p(.1Y’¢¡‘y¹..®x0 */
	$"553E 686B 647F 555F 75C4 B99E 3933 82BB"            /* U>hkd.U_uĹž93‚» */
	$"B8A3 9592 8E6F 9891 6A56 0B2E 427E 9B96"            /* ¸£•’Žo˜‘jV..B~›– */
	$"8577 AAE2 F2BC 8F36 503F 5E65 5C88 715F"            /* …wª..¼�6P?^e\ˆq_ */
	$"6EB4 C8B2 502D 6CA7 ADA4 8D86 8A7A 8E9F"            /* n´È²P-l§­¤�†ŠzŽŸ */
	$"6C7F 2C1F 326F 9AA7 7A7B 94D6 EAC7 A24E"            /* l.,.2oš§z{”Ö.Ç¢N */
	$"464E 4F6A 5776 985A 6AA5 C8C4 7324 5392"            /* FNOjWv˜Zj¥ÈÄs$S’ */
	$"A5A1 8E7A 8282 849F 6C85 6722 2259 90AB"            /* ¥¡Žz‚‚„Ÿl…g""Y�« */
	$"7D71 83CA E9CC B06C 354A 4862 5071 AA6F"            /* }qƒÊ.Ì°l5JHbPqªo */
	$"5A90 C0C0 9629 3F7A A19B 9074 8186 94A2"            /* Z�ÀÀ–)?z¡›�t�†”¢ */
	$"6C93 943C 1847 87A2 8569 6CB5 E2CA B08C"            /* l“”<.G‡¢…ilµ.Ê°Œ */
	$"3C45 4665 456A AA96 568D C5BE BD4E 2461"            /* <EFeEjª–V�ž½N$a */
	$"989B 9476 7877 91A8 6889 B465 1B30 7D98"            /* ˜›”vxw‘¨h‰´e.0}˜ */
	$"9070 579A E1D7 AEA3 523D 466C 465F A2A9"            /* �pWš.×®£R=FlF_¢© */
	$"6274 B2B3 C278 1A42 8AA3 896D 716D 8FB7"            /* bt²³Âx.BŠ£‰mqm�· */
	$"737D C97F 351F 718E 8F7F 526E CBE4 AAA9"            /* s}É.5.qŽ�.RnË.ª© */
	$"6C38 3B70 454E 9EAB 8473 AEB1 B8A1 2A18"            /* l8;pENž«„s®±¸¡*. */
	$"70B2 8C73 746D 81B8 8067 CD9B 5628 6282"            /* p²Œstm�¸€gÍ›V(b‚ */
	$"7F89 584E AAF2 B9A5 8340 2F75 5B40 92AC"            /* .‰XNª.¹¥ƒ@/u[@’¬ */
	$"927E 9BB4 A4C1 4D0B 44B2 946B 6F65 72BB"            /* ’~›´¤ÁM.D²”koer» */
	$"9D5F B8AD 6845 5383 7094 6741 78EE CA9A"            /* �_¸­hESƒp”gAx.Êš */
	$"914E 2C6F 6C3B 78A2 8D9D 9FB4 8CC5 6F10"            /* ‘N,ol;x¢��Ÿ´ŒÅo. */
	$"1EA0 B06F 6C62 66AF B561 9CBF 6F5C 5876"            /* . °olbf¯µaœ¿o\Xv */
	$"5E90 733E 5CD2 E29E 9D5F 2F60 7D4C 61A3"            /* ^�s>\Ò.ž�_/`}La£ */
	$"8D9E B1B4 7ABD 9118 126B B977 7063 5F9C"            /* �ž±´z½‘..k¹wpc_œ */
	$"D479 7DBF 8163 7271 5B87 883C 4AA9 F1A6"            /* Ôy}¿�crq[‡ˆ<J©.¦ */
	$"9E72 2E52 8162 4B90 9398 C3C3 72A5 AB2E"            /* žr.R�bK�“˜ÃÃr¥«. */
	$"1647 B08F 6E68 5682 D39D 66A9 9467 8974"            /* .G°�nhV‚Ó�f©”g‰t */
	$"4B6E 8E51 4B88 E5B9 967D 394E 7D7C 4977"            /* KnŽQKˆ.¹–}9N}|Iw */
	$"9091 BFDE 7085 AC50 223D 7F9F 7669 5A77"            /* �‘¿.p…¬P"=.ŸviZw */
	$"CEC1 678B 9A75 8E8F 475B 8C5D 4D72 C8C4"            /* ÎÁg‹šuŽ�G[Œ]MrÈÄ */
	$"9F84 484B 8783 5360 869B B8EC 876C A368"            /* Ÿ„HK‡ƒS`†›¸.‡l£h */
	$"333B 6794 886B 5664 BEDB 7A70 8C7F 8CA9"            /* 3;g”ˆkVd¾.zpŒ.Œ© */
	$"4A4B 8170 5F68 B0C3 A186 5044 8293 5F54"            /* JK�p_h°Ã¡†PD‚“_T */
	$"6F93 ACE7 A75A 8A75 4C3B 627A 9374 6066"            /* o“¬.§ZŠuL;bz“t`f */
	$"ACE0 9960 7A7E 90AE 6F33 706F 6E61 95BC"            /* ¬.™`z~�®o3pona•¼ */
	$"A98D 5748 7B9E 6159 6290 AFDC C964 6E76"            /* ©�WH{žaYb�¯.Édnv */
	$"5C4B 5970 8A86 5C62 9EDC AD64 6874 91A9"            /* \KYpŠ†\bž.­dht‘© */
	$"8D30 6271 7D6E 85B2 AC91 6045 7DA7 7355"            /* �0bq}n…²¬‘`E}§sU */
	$"5C7A B0CA CF79 606F 6659 536C 798C 6B65"            /* \z°ÊÏy`ofYSlyŒke */
	$"8AD4 B974 5A64 8DB4 9748 4569 807A 77A4"            /* ŠÔ¹tZd�´—HEi€zw¤ */
	$"AF8F 6842 71A3 805B 5B6F AAC5 CF8B 585E"            /* ¯�hBq£€[[oªÅÏ‹X^ */
	$"6767 6269 8182 7465 86CA B281 5F53 79B3"            /* ggbi�‚te†Ê²�_Sy³ */
	$"9D65 405D 808D 709B A79D 6D45 6CB9 8269"            /* �e@]€�p›§�mEl¹‚i */
	$"5463 9CC0 C89D 6758 5E65 6963 7A88 746D"            /* TcœÀÈ�gX^eiczˆtm */
	$"81C1 BC85 664C 6AAE AC6F 5550 7795 7393"            /* �Á¼…fLj®¬oUPw•s“ */
	$"99A7 7248 55B3 8D75 5C56 90BF BDA2 685F"            /* ™§rHU³�u\V�¿½¢h_ */
	$"5868 6C75 6F97 706F 79B0 B788 7849 5397"            /* Xhluo—poy°·ˆxIS— */
	$"B87F 644E 6999 7B8D 8FA2 8650 4AAF 996F"            /* ¸.dNi™{��¢†PJ¯™o */
	$"7351 7BB3 B7AC 765D 565D 6A7D 6E98 8873"            /* sQ{³·¬v]V]j}n˜ˆs */
	$"7CA9 B77E 775A 4D80 B092 7758 628F 877F"            /* |©·~wZM€°’wXb�‡. */
	$"8B92 9D62 4195 B175 785A 6CAB A9AA 845D"            /* ‹’�bA•±uxZl«©ª„] */
	$"635C 627F 7787 9775 72A0 B184 7363 476E"            /* c\b.w‡—ur ±„scGn */
	$"A3A2 8A5C 6985 947D 8B7C 9D78 427E B37B"            /* £¢Š\i…”}‹|�xB~³{ */
	$"7564 5A96 A8A9 8B54 675C 607F 8A86 9D8B"            /* udZ–¨©‹Tg\`.Š†�‹ */
	$"7396 B281 6A70 4D5B 8BA9 9E5B 627E 8981"            /* s–²�jpM[‹©ž[b~‰� */
	$"8A75 948E 5065 B193 7C6F 6185 9DA9 9D5C"            /* Šu”ŽPe±“|oa…�©�\ */
	$"5F6F 5874 918C 9196 7487 AB8B 6663 5251"            /* _oXt‘Œ‘–t‡«‹fcRQ */
	$"79A5 B376 5B8A 8980 9177 849B 6258 A49C"            /* y¥³v[Š‰€‘w„›bX¤œ */
	$"8A69 5C74 8EA3 9E65 4C7A 5C68 8E97 919C"            /* Ši\tŽ£žeLz\hŽ—‘œ */
	$"857D A392 6D64 5D4C 699D BC8F 4D85 8F79"            /* …}£’md]Li�¼�M…�y */
	$"8A7C 7597 7E48 8F9D 9879 6267 8394 AD76"            /* Š|u—~H��˜ybgƒ”­v */
	$"417E 6C62 89A3 9598 9177 9296 745B 5E4C"            /* A~lb‰£•˜‘w’–t[^L */
	$"598A BCA8 5475 9779 8088 708D 9257 849B"            /* YŠ¼¨Tu—y€ˆp�’W„› */
	$"A585 615F 7884 AF83 406D 8163 7AA4 9E9B"            /* ¥…a_x„¯ƒ@m�cz¤ž› */
	$"9579 8592 7D60 5B53 507E B5B5 6C65 9B81"            /* •y…’}`[SP~µµle›� */
	$"708F 717C 9B69 7491 A395 6C57 6879 AB8E"            /* p�q|›it‘£•lWhy«Ž */
	$"4557 8A6E 6E9D A89D 9484 7B93 8761 5556"            /* EWŠnn�¨�”„{“‡aUV */
	$"4B73 ACBB 8057 928A 6E92 7C74 9379 718C"            /* Ks¬»€W’Šn’|t“yqŒ */
	$"9B9C 7555 6270 AE99 4F44 8C7F 6C8D B2A8"            /* ›œuUbp®™ODŒ.l�²¨ */
	$"9489 7892 9067 525A 4E6A 9EB3 9258 858F"            /* ”‰x’�gRZNjž³’X…� */
	$"6F8C 876E 8B89 7889 9EA7 845A 555F AF9E"            /* oŒ‡n‹‰x‰ž§„ZU_¯ž */
	$"5B36 7F88 7577 B2AE 928A 7184 9B6D 4A55"            /* [6.ˆuw²®’Šq„›mJU */
	$"5264 9CB3 A460 798C 708A 9173 788D 867D"            /* Rdœ³¤`yŒpŠ‘sx�†} */
	$"8EA7 8A5E 5149 A6AA 652D 668C 7C72 ACC1"            /* Ž§Š^QI¦ªe-fŒ|r¬Á */
	$"9A90 7A81 A683 514B 5158 8CAB AA6B 6B89"            /* š�z�¦ƒQKQXŒ«ªkk‰ */
	$"6A8A 9281 6F84 8F82 8AAD 9A68 593A 96B8"            /* jŠ’�o„�‚Š­šhY:–¸ */
	$"7C3B 548B 836B 94C4 A18D 7A71 A591 5745"            /* |;T‹ƒk”Ä¡�zq¥‘WE */
	$"5250 7DA7 AF82 6089 678C 938E 727B 8E86"            /* RP}§¯‚`‰gŒ“Žr{Ž† */
	$"81AE A66E 5D36 6FB8 884C 3A7D 7F72 8BC5"            /* �®¦n]6o¸ˆL:}.r‹Å */
	$"B089 8A73 959D 6D44 5150 699B AF9C 5E7F"            /* °‰Šs•�mDQPi›¯œ^. */
	$"6A79 948C 7D6E 8E92 779F B480 5D49 53AE"            /* jy”Œ}nŽ’wŸ´€]IS® */
	$"9862 3571 8071 81B8 C58D 8B80 86A2 7D4E"            /* ˜b5q€q�¸Å�‹€†¢}N */
	$"4A51 5788 AAAD 6574 796D 9590 886A 8995"            /* JQWˆª­etym•�ˆj‰• */
	$"7895 BA92 5E54 4688 9D75 3A65 8275 7AAA"            /* x•º’^TFˆ�u:e‚uzª */
	$"C98F 8399 7499 8E59 4858 5072 9DB6 755F"            /* É�ƒ™t™ŽYHXPr�¶u_ */
	$"8569 8492 8E6E 7D9E 8581 BAAA 6159 5262"            /* …i„’Žn}ž…�ºªaYRb */
	$"9885 474F 7C76 739C CCA0 7BAC 7E80 9372"            /* ˜…GO|vsœÌ {¬~€“r */
	$"4A57 5266 8ABB 8F54 857C 6E8D 9573 769A"            /* JWRfŠ»�T…|n�•svš */
	$"9277 A7B9 7457 6451 7E92 5C40 7C7B 768B"            /* ’w§¹tWdQ~’\@|{v‹ */
	$"CBAB 72B1 9370 9087 505F 4D5A 70AE A44C"            /* Ë«r±“p�‡P_MZp®¤L */
	$"7893 6B78 A075 709E 9C79 95CA 835A 7353"            /* x“kx upžœy•ÊƒZsS */
	$"5C8B 7731 747C 7C76 C4AC 6EA7 B168 6F9C"            /* \‹w1t||vĬn§±hoœ */
	$"5E61 5C57 64A1 BA55 619F 7462 A387 609F"            /* ^a\Wd¡ºUaŸtb£‡`Ÿ */
	$"A687 76C5 9C5C 7560 4573 9636 607D 836E"            /* ¦‡vÅœ\u`Es–6`}ƒn */
	$"BDBE 709C D082 5999 745D 6751 5A83 C26D"            /* ½¾pœÐ‚Y™t]gQZƒÂm */
	$"4B99 8D53 8E9C 4F96 B096 6FB6 AA6B 7673"            /* K™�SŽœO–°–o¶ªkvs */
	$"4655 9B52 4B7F 866A A4C6 7382 D69E 4E88"            /* FU›RK.†j¤Æs‚ÖžNˆ */
	$"8C59 7553 4F69 B688 488A A75F 79AD 547D"            /* ŒYuSOi¶ˆHŠ§_y­T} */
	$"B7A5 6B9C B679 6E7F 4A3B 8B70 3F76 8970"            /* ·¥kœ¶yn.J;‹p?v‰p */
	$"8DC9 7E6E D0C7 586B 9B66 7864 4E52 A19D"            /* �É~nÐÇXk›fxdNR¡� */
	$"536A AB6F 61AB 6766 BAB6 7881 B28D 7284"            /* Sj«oa«gfº¶x�²�r„ */
	$"632B 7387 4968 867B 76C1 9066 B8DD 715B"            /* c+s‡Ih†{vÁ�f¸.q[ */
	$"9072 786F 523F 81A6 735B A290 579A 7557"            /* �rxoR?�¦s[¢�WšuW */
	$"A9BF 8872 A69B 7B80 7827 5482 6460 8085"            /* ©¿ˆr¦›{€x'T‚d`€… */
	$"70A9 976A 9DE7 9757 827F 797A 5837 5A9C"            /* p©—j�.—W‚.yzX7Zœ */
	$"905A 8CA4 5C93 7F59 92C0 A073 8DA3 877F"            /* �ZŒ¤\“.Y’À s�£‡. */
	$"8935 3878 7A63 7384 7093 9E73 81D9 C064"            /* ‰58xzcs„p“žs�.Àd */
	$"747B 8088 643F 3F84 A56D 76AF 6D7F 8060"            /* t{€ˆd??„¥mv¯m.€` */
	$"81B0 AD83 7B9D 9484 9256 2364 8173 6D7B"            /* �°­ƒ{�”„’V#d�sm{ */
	$"7C81 9983 77BB DE7E 7072 7E91 6944 2E61"            /* |�™ƒw».~pr~‘iD.a */
	$"AA86 67AB 8C77 7D5A 7CA0 AB99 758F 9C8B"            /* ª†g«Œw}Z| «™u�œ‹ */
	$"9374 1E4D 7885 7168 7C7B 8785 78A2 E2A8"            /* “t.Mx…qh|{‡…x¢.¨ */
	$"7566 77A0 7747 2844 9FA5 6997 A475 8159"            /* ufw wG(DŸ¥i—¤u�Y */
	$"749D 95A8 8179 9B92 948A 2C38 6F8F 885D"            /* t�•¨�y›’”Š,8o�ˆ] */
	$"777A 828B 7792 D1D0 8764 63A0 8C4B 272C"            /* wz‚‹w’ÑЇdc ŒK', */
	$"84B4 7A85 AF81 7C58 66A5 81AC 9174 9197"            /* „´z…¯�|Xf¥�¬‘t‘— */
	$"989B 4A27 5585 9E60 6974 7F8B 7886 B6DD"            /* ˜›J'U…ž`it.‹x†¶. */
	$"A667 5393 A351 2C1F 6AB6 987C AF92 805C"            /* ¦gS“£Q,.j¶˜|¯’€\ */
	$"55A3 7998 A078 8598 989D 6528 4175 AE78"            /* U£y˜ x…˜˜�e(Au®x */
	$"5768 788C 8089 A4DA CB74 497A B064 2C13"            /* WhxŒ€‰¤.ËtIz°d,. */
	$"52AD AE83 9D9E 8265 4899 877E A884 8391"            /* R­®ƒ�ž‚eH™‡~¨„ƒ‘ */
	$"9CA2 8038 3364 A998 5357 6E89 8687 95C4"            /* œ¢€83d©˜SWn‰†‡•Ä */
	$"E58F 485D B083 350C 379B B996 98AA 8E66"            /* .�H]°ƒ5.7›¹–˜ªŽf */
	$"4085 966D 9A91 838B 98A2 9152 264C 97B2"            /* @…–mš‘ƒ‹˜¢‘R&L—² */
	$"654E 6187 898A 8FAD EBB1 5149 9D9A 4308"            /* eNa‡‰Š�­.±QI�šC. */
	$"238A BDA6 8BA7 9C71 4273 A171 8496 8C8B"            /* #Š½¦‹§œqBs¡q„–Œ‹ */
	$"919E 996B 2A3D 82BB 7D45 4F81 908F 8D9D"            /* ‘ž™k*=‚»}EO����� */
	$"E6CD 673E 7EAF 5F10 1371 BDB6 8EA0 A579"            /* .Íg>~¯_..q½¶Ž ¥y */
	$"4660 A378 738D 9490 8B98 9A85 3D32 6DB4"            /* F`£xs�”�‹˜š…=2m´ */
	$"9D4F 406E 8F98 948A CDDF 8841 5AAC 7620"            /* �O@n�˜”ŠÍ.ˆAZ¬v  */
	$"0653 B3BF 9794 B18A 534C 9B8C 6E7E 9597"            /* .S³¿—”±ŠSL›Œn~•— */
	$"898E 9895 572E 569A B459 3F53 909A 9882"            /* ‰Ž˜•W.Vš´Y?S�š˜‚ */
	$"B6E4 AB54 469D 8D38 063C A9C8 A58A B294"            /* ¶.«TF��8.<©È¥Š²” */
	$"6541 8797 6670 89A3 8E86 8E97 723D 4986"            /* eA‡—fp‰£Ž†Ž—r=I† */
	$"BE71 4B42 859C 9F87 9BDD C86E 357C 964C"            /* ¾qKB…œŸ‡›.Èn5|–L */
	$"0E20 93C5 AE8A A9A5 793E 75A2 6C67 79A7"            /* . “Å®Š©¥y>u¢lgy§ */
	$"9885 8995 8252 416D B48A 523B 6798 AA91"            /* ˜…‰•‚RAm´ŠR;g˜ª‘ */
	$"89C0 D896 3960 9364 210C 75C0 B594 9FAF"            /* ‰ÀØ–9`“d!.uÀµ”Ÿ¯ */
	$"9045 629D 7760 6D9C A186 7C90 8B6A 4859"            /* �Eb�w`mœ¡†|�‹jHY */
	$"9BA2 6143 4F8D AF9F 83AB DABB 4D4B 8575"            /* ›¢aCO�¯Ÿƒ«.»MK…u */
	$"3409 57B7 BC99 98A7 A253 5296 885C 668B"            /* 4ÆW·¼™˜§¢SR–ˆ\f‹ */
	$"AB90 7688 957B 5D48 80A4 7B49 4676 AEAD"            /* «�vˆ•{]H€¤{IFv®­ */
	$"809C C7D4 6939 6E7C 4914 3B9E BE9A A0A9"            /* €œÇÔi9n|I.;ž¾š © */
	$"AD6E 4485 9460 5980 A69A 7A7A 9E82 7445"            /* ­nD…”`Y€¦šzzž‚tE */
	$"679A 9150 4260 A2C1 8890 B5DD 9536 547D"            /* gš‘PB`¢Áˆ�µ.•6T} */
	$"5A24 2E7E BF9D 9FAB A78D 4775 986D 5177"            /* Z$.~¿�Ÿ«§�Gu˜mQw */
	$"9CA2 816C 9D8C 8453 5184 A361 3F53 91CB"            /* œ¢�l�Œ„SQ„£a?S‘Ë */
	$"9387 A7D2 BA46 407C 6835 2F62 B5A0 9DB6"            /* “‡§ÒºF@|h5/bµ �¶ */
	$"9F97 5C5F 8E78 4C68 94A3 8C6A 9399 8F65"            /* Ÿ—\_ŽxLh”£Œj“™�e */
	$"4268 A77E 404A 80C9 A083 9CC3 C760 286E"            /* Bh§~@J€É ƒœÃÇ`(n */
	$"7344 374D 9EA6 97BC A299 7859 838C 5358"            /* sD7Mž¦—¼¢™xYƒŒSX */
	$"8E9C 9570 8C9A 986E 444B 9C94 4241 77C4"            /* Žœ•pŒš˜nDKœ”BAwÄ */
	$"AF89 92B5 CA85 2860 804F 3F4B 85A9 99BF"            /* ¯‰’µÊ…(`€O?K…©™¿ */
	$"A591 8565 6C8D 5D49 819A 9778 8B94 A17B"            /* ¥‘…el�]I�š—x‹”¡{ */
	$"5241 8BA7 5832 6EB9 B594 8EA6 C098 3548"            /* RA‹§X2n¹µ”Ž¦À˜5H */
	$"8456 404C 71A1 99BB B187 8B7B 6289 6D46"            /* „V@Lq¡™»±‡‹{b‰mF */
	$"6F9A 967C 9391 9D86 523A 71A9 6E2C 64B2"            /* oš–|“‘�†R:q©n,d² */
	$"B69B 919C B2A5 4D39 8768 3D4F 6391 9FBD"            /* ¶›‘œ²¥M9‡h=Oc‘Ÿ½ */
	$"BB86 8B88 6278 7D48 5993 9A7F 9995 9490"            /* »†‹ˆbx}HY“š.™•”� */
	$"5C3D 64A7 872D 58AD B49D 9897 A4AA 6237"            /* \=d§‡-X­´�˜—¤ªb7 */
	$"797A 3F4F 6184 9DB7 BE8C 8392 6B6A 8556"            /* yz?Oa„�·¾Œƒ’kj…V */
	$"4B87 9C7F 989E 8B92 673C 5B98 9744 48A7"            /* K‡œ.˜ž‹’g<[˜—DH§ */
	$"B19B 9D94 96A6 743F 688B 4549 6072 96B3"            /* ±›�”–¦t?h‹EI`r–³ */
	$"BF99 8099 715E 8066 467A 9F86 8FA8 878D"            /* ¿™€™q^€fFzŸ†�¨‡� */
	$"743E 5587 9C59 409B B198 A097 8C9F 824C"            /* t>U‡œY@›±˜ —ŒŸ‚L */
	$"588D 5644 5D6D 8FAD BBA0 819F 825E 7976"            /* X�VD]m�­» �Ÿ‚^yv */
	$"4465 978E 8EA7 8D8C 7D4A 5078 966E 428D"            /* De—ŽŽ§�Œ}JPx–nB� */
	$"B597 9C9B 8797 8B5B 5786 6C45 5767 84A8"            /* µ—œ›‡—‹[W†lEWg„¨ */
	$"ADA7 8C92 8E5C 6E7F 4C54 8B93 8EA0 9489"            /* ­§Œ’Ž\n.LT‹“Ž ”‰ */
	$"8055 4C71 8E7F 4F74 B596 A09B 878C 8868"            /* €ULqŽ.Otµ– ›‡Œˆh */
	$"5476 7C4E 5164 7CA5 A3A4 9B8B 9965 7088"            /* Tv|NQd|¥£¤›‹™epˆ */
	$"5D4A 7B94 919F 9391 8257 4E67 8684 6065"            /* ]J{”‘Ÿ“‘‚WNg†„`e */
	$"AE99 A299 8D87 8574 5B77 8360 505C 789E"            /* ®™¢™�‡…t[wƒ`P\xž */
	$"A39D AD88 976A 6588 6D4B 6991 90A2 8997"            /* £�­ˆ—jeˆmKi‘�¢‰— */
	$"8A60 545E 8288 765F 9D9C 9E9C 918E 7D77"            /* Š`T^‚ˆv_�œžœ‘Ž}w */
	$"596F 8368 5655 7093 9F8F B491 917A 628E"            /* YoƒhVUp“Ÿ�´‘‘zbŽ */
	$"7853 5785 8EA1 8996 9667 5455 7786 7868"            /* xSW…Ž¡‰––gTUw†xh */
	$"899D 9B9F 8F94 7D7A 656B 886E 6353 6289"            /* ‰�›Ÿ�”}zekˆncSb‰ */
	$"9D8D B09F 8D80 5F8A 825C 5574 8AA0 8C8C"            /* ��°Ÿ�€_Š‚\UtŠ ŒŒ */
	$"9D76 5857 708D 7B70 7892 98A2 9198 8176"            /* �vXWp�{px’˜¢‘˜�v */
	$"6764 8771 665D 587D 998E AAA4 8D85 6684"            /* gd‡qf]X}™Žª¤�…f„ */
	$"8D61 5A62 7E9C 9488 9B88 5F51 638A 8073"            /* �aZb~œ”ˆ›ˆ_QcŠ€s */
	$"7485 93A3 9598 8774 6A6A 897A 6168 5566"            /* t…“£•˜‡tjj‰zahUf */
	$"9192 A8A5 9781 6781 946B 5D59 6C97 9D89"            /* ‘’¨¥—�g�”k]Yl—�‰ */
	$"9692 704C 6288 8B6E 7A77 86A5 A09E 8B77"            /* –’pLbˆ‹nzw†¥ ž‹w */
	$"616A 8780 626C 6159 8396 A4A2 9E86 6883"            /* aj‡€blaYƒ–¤¢ž†hƒ */
	$"967A 605B 5885 A594 9396 8151 5A80 8C6E"            /* –z`[X…¥”“–�QZ€Œn */
	$"7C75 779E A69C 927B 5F63 8988 6B68 6D56"            /* |uwž¦œ’{_c‰ˆkhmV */
	$"6F99 A2A1 A38C 667E 9382 625B 4F71 A39B"            /* o™¢¡£Œf~“‚b[Oq£› */
	$"8E97 8C61 517F 8D71 7577 6B92 AEA1 997F"            /* Ž—ŒaQ.�quwk’®¡™. */
	$"5D5B 888D 7165 715F 5B94 A29A A893 6B7C"            /* ][ˆ�qeq_[”¢š¨“k| */
	$"988D 6C5B 4D5B 94A9 9099 9072 4F77 8C74"            /* ˜�l[M[”©�™�rOwŒt */
	$"787E 6683 AFA2 9B87 615A 7E95 7B67 6C69"            /* x~fƒ¯¢›‡aZ~•{gli */
	$"5787 A296 A899 6B74 9594 755A 5054 82A9"            /* W‡¢–¨™kt•”uZPT‚© */
	$"9494 917E 606E 8976 767E 6473 A1A8 A08F"            /* ””‘~`n‰vv~ds¡¨ � */
	$"685A 6F8F 836C 616C 6279 9591 A5A9 7B72"            /* hZo�ƒlalby•‘¥©{r */
	$"8598 8666 504E 6F9F A092 877B 6D69 7E76"            /* …˜†fPNoŸ ’‡{mi~v */
	$"7B80 726E 8CA2 AA99 7C5E 6789 9276 595C"            /* {€rnŒ¢ª™|^g‰’vY\ */
	$"6B7C 8893 9EA9 8972 728E 8C75 5754 638A"            /* k|ˆ“ž©‰rrŽŒuWTcŠ */
	$"A49B 827D 7879 7A7B 7E7D 7573 7B93 B09A"            /* ¤›‚}xyz{~}us{“°š */
	$"886A 5F75 9282 604D 6D83 778F 98A4 9F7D"            /* ˆj_u’‚`Mmƒw�˜¤Ÿ} */
	$"6E84 9784 5D55 6277 9EA6 7E77 797C 707A"            /* n„—„]Ubwž¦~wy|pz */
	$"7C7E 7682 727C AFA2 8F7A 5C6B 8F8F 6A45"            /* |~v‚r|¯¢�z\k��jE */
	$"6589 718E 9A97 A389 6B73 958D 6E58 6667"            /* e‰qŽš—£‰ks•�nXfg */
	$"8FA9 8777 8181 707A 807D 6F82 7571 A8A9"            /* �©‡w��pz€}o‚uq¨© */
	$"8D84 6162 868D 7358 638E 6D7E 9995 A594"            /* �„ab†�sXcŽm~™•¥” */
	$"6E72 9693 6F4C 5F64 87A1 8880 9288 6E72"            /* nr–“oL_d‡¡ˆ€’ˆnr */
	$"807E 7A7C 7471 9BAE 8E7F 655F 8894 7061"            /* €~z|tq›®Ž.e_ˆ”pa */
	$"688A 7271 8D93 A39E 6F6D 939B 7954 4D5A"            /* hŠrq�“£žom“›yTMZ */
	$"8798 8780 9B9B 726C 7F78 817F 6B72 8EA9"            /* ‡˜‡€››rl.x�.krŽ© */
	$"9681 6755 7C99 7364 7989 7C6D 7A90 A3AB"            /* –�gU|™sdy‰|mz�£« */
	$"7B67 8DA2 7B60 4849 8299 887D 9CAA 8166"            /* {g�¢{`HI‚™ˆ}œª�f */
	$"7972 8390 626B 85A0 9F83 6F5B 6FA4 8457"            /* yrƒ�bk… Ÿƒo[o¤„W */
	$"7F85 8276 6983 9FB7 8B5E 77A7 896B 4B38"            /* .…‚viƒŸ·‹^w§‰kK8 */
	$"729B 8A75 94B2 986A 7673 759E 6C5A 7C91"            /* r›Šu”²˜jvsužlZ|‘ */
	$"A391 7259 5D97 9D57 768B 7F7D 6772 96B5"            /* £‘rY]—�Wv‹.}gr–µ */
	$"A466 65A4 9974 602F 5899 8F75 88AD A56F"            /* ¤fe¤™t`/X™�uˆ­¥o */
	$"6E7E 6E98 8353 7288 9E9A 8369 5985 AE67"            /* n~n˜ƒSrˆžšƒiY…®g */
	$"5E8A 7F84 7468 8BAE B672 548E AD79 693C"            /* ^Š.„th‹®¶rTŽ­yi< */
	$"4688 9274 7BA5 B286 7383 6B85 9852 607B"            /* Fˆ’t{¥²†sƒk…˜R`{ */
	$"97A3 8B6E 5A6F AB84 4E84 7F85 8160 73A4"            /* —£‹nZo«„N„.…�`s¤ */
	$"C489 5577 B28B 7342 3678 977B 7098 B295"            /* ĉUw²‹sB6x—{p˜²• */
	$"7380 7274 A564 5775 889D 9D79 5C65 9F9F"            /* s€rt¥dWuˆ��y\eŸŸ */
	$"4D73 8188 8665 6494 C4A1 5966 AA96 7857"            /* Ms�ˆ†ed”Ä¡Yfª–xW */
	$"3362 9182 6E8C B5A8 7E7E 7C68 9D79 5268"            /* 3b‘‚nŒµ¨~~|h�yRh */
	$"829A 9C85 6459 8CAC 6264 7F89 8C71 5E7F"            /* ‚šœ…dYŒ¬bd.‰Œq^. */
	$"BDBE 6858 97A7 805D 3552 8289 717C AFB1"            /* ½¾hX—§€]5R‚‰q|¯± */
	$"8883 805E 9090 5C5D 728D 9F90 7056 7AB1"            /* ˆƒ€^��\]r�Ÿ�pVz± */
	$"7A59 7486 8F7A 5E69 A8CF 8050 87A3 896E"            /* zYt†�z^i¨Ï€P‡£‰n */
	$"4347 6E8A 7D73 A2B8 9488 875F 7E9A 6E55"            /* CGnŠ}s¢¸”ˆ‡_~šnU */
	$"6A83 9496 845A 63AA 9160 6987 9681 655E"            /* jƒ”–„Zcª‘`i‡–�e^ */
	$"90D3 A252 7CA4 906F 504B 5981 8772 91B9"            /* �Ó¢R|¤�oPKY�‡r‘¹ */
	$"9E89 9267 6E95 8655 5B78 9395 8F6E 549E"            /* ž‰’gn•†U[x“•�nTž */
	$"A66C 5C81 9585 6E5B 76C3 BD60 6896 947B"            /* ¦l\�•…n[vý`h–”{ */
	$"5B55 4A70 8F74 80B0 AB8C 9B70 5F85 9862"            /* [UJp�t€°«Œ›p_…˜b */
	$"536D 8593 9780 4F84 B27B 5774 9585 755D"            /* Sm…“—€O„²{Wt•…u] */
	$"5FAF CF7E 5F93 927B 6267 485B 927D 78A2"            /* _¯Ï~_“’{bgH[’}x¢ */
	$"B091 9F80 5873 9E79 4E63 7C88 9792 5B6E"            /* °‘Ÿ€XsžyNc|ˆ—’[n */
	$"B78F 5A66 9588 7D6A 5893 CB97 5C84 9480"            /* ·�Zf•ˆ}jX“Ë—\„”€ */
	$"646F 5249 8585 7496 B098 9A91 6361 9390"            /* doRI……t–°˜š‘ca“� */
	$"5256 7081 969A 6A5F AAA3 665B 8E8B 796E"            /* RVp�–šj_ª£f[Ž‹yn */
	$"597C C0B0 6F79 8E83 6672 6143 768B 778B"            /* Y|À°oyŽƒfraCv‹w‹ */
	$"A69C 9797 7257 83A0 6750 6776 90A3 7B61"            /* ¦œ——rWƒ gPgv�£{a */
	$"9AAF 7A53 7F91 7A71 5C68 AEB6 8372 888A"            /* š¯zS.‘zq\h®¶ƒrˆŠ */
	$"6570 724B 678A 808A A2A0 9B9A 855B 699A"            /* eprKgŠ€Š¢ ›š…[iš */
	$"814E 5D6D 85A2 8565 88AB 9454 6F94 7F73"            /* �N]m…¢…eˆ«”To”.s */
	$"6462 9CB9 9975 7E8E 6C65 775D 597C 8385"            /* dbœ¹™u~Žlew]Y|ƒ… */
	$"9B9D 9592 906C 5688 9859 5362 7CA2 9374"            /* ›�•’�lVˆ˜YSb|¢“t */
	$"7E9F A962 5F92 866B 6661 89AE A37C 748D"            /* ~Ÿ©b_’†kfa‰®£|t� */
	$"755C 7375 5B6D 838A 9A9F 978E 9282 4F70"            /* u\su[mƒŠšŸ—Ž’‚Op */
	$"9E73 4F5B 719A 997E 7A90 B37A 5586 926C"            /* žsO[qš™~z�³zU†’l */
	$"6666 7CA7 A588 6E8C 8258 6785 685E 7B8D"            /* ff|§¥ˆnŒ‚Xg…h^{� */
	$"9CA3 9486 969A 585A 928D 4D4F 668F A18E"            /* œ£”†–šXZ’�MOf�¡Ž */
	$"7781 B291 5572 9872 626B 749D A68E 6A87"            /* w�²‘Ur˜rbkt�¦Žj‡ */
	$"8C5E 5C8B 8056 6D8A 99A6 9377 8DAD 684D"            /* Œ^\‹€VmŠ™¦“w�­hM */
	$"779D 5D47 5C7F A29F 7B76 ADA3 6363 9681"            /* w�]G\.¢Ÿ{v­£cc–� */
	$"5E6C 7393 A88F 6B82 935E 527F 975E 5D84"            /* ^ls“¨�k‚“^R.—^]„ */
	$"9AAB 996D 84BC 7E4F 6499 7843 5675 9BB0"            /* š«™m„¼~Od™xCVu›° */
	$"816E A6AD 715D 818C 606D 7785 AB8B 6878"            /* �n¦­q]�Œ`mw…«‹hx */
	$"9964 5374 A071 537B 9CAE A569 75C1 9550"            /* ™dSt qS{œ®¥iuÁ•P */
	$"5B80 8F47 4867 8DB9 8D65 96B3 8064 6C8D"            /* [€�GHg�¹�e–³€dl� */
	$"6C69 7B7E AD94 6870 9C6C 516C 998E 546A"            /* li{~­”hpœlQl™ŽTj */
	$"99AC A665 60B7 AB57 5D68 9560 4060 85BB"            /* ™¬¦e`·«W]h•`@`…» */
	$"A16A 8CB8 8C70 607D 806C 7D7E A299 6666"            /* ¡jŒ¸Œp`}€l}~¢™ff */
	$"9477 4F6D 879C 655C 95B3 A86E 59AD C264"            /* ”wOm‡œe\•³¨nY­Âd */
	$"5F60 847C 3C54 7EB2 AB6F 7AB2 987B 605F"            /* _`„|<T~²«oz²˜{`_ */
	$"8779 7880 9A9C 6B64 8881 506F 7F99 8057"            /* ‡yx€šœkdˆ�Po.™€W */
	$"88B6 A370 5995 C677 5B61 688B 4D47 7AA8"            /* ˆ¶£pY•Æw[ah‹MGz¨ */
	$"AD83 72A4 A382 6B4B 7F8E 7484 9696 7562"            /* ­ƒr¤£‚kK.Žt„––ub */
	$"798A 5B6A 7C87 9365 79B9 A56E 6485 BE93"            /* yŠ[j|‡“ey¹¥nd…¾“ */
	$"5A62 5782 6A41 76A1 A592 7496 AC8D 7548"            /* ZbW‚jAv¡¥’t–¬�uH */
	$"6A9D 7D84 988D 7568 6E84 6A63 7E7D 8E7A"            /* j�}„˜�uhn„jc~}Žz */
	$"6DB0 AA68 6C80 ADA8 6664 556C 7E47 6C9E"            /* m°ªhl€­¨fdUl~Glž */
	$"9C98 7E85 A893 7449 5798 8B81 9787 6C6E"            /* œ˜~…¨“tIW˜‹�—‡ln */
	$"6A7D 7766 7D7E 858F 77A4 AE68 6B87 99AB"            /* j}wf}~…�w¤®hk‡™« */
	$"735B 545A 7A61 639B 9993 8B83 A49C 7954"            /* s[TZzac›™“‹ƒ¤œyT */
	$"538A 9789 9889 676F 6E79 7E6F 777F 778A"            /* SŠ—‰˜‰gony~ow.wŠ */
	$"8C96 A96D 648D 91AC 885B 4F51 6978 6893"            /* Œ–©md�‘¬ˆ[OQixh“ */
	$"9893 8F85 A1A2 7F58 527E 949A 9584 5D61"            /* ˜“�…¡¢.XR~”š•„]a */
	$"6E79 7F77 7583 7C7E 9994 A076 618A 91A7"            /* ny.wuƒ|~™” vaŠ‘§ */
	$"9762 4D4D 5D7C 7A89 968E 8A89 9DA0 815C"            /* —bMM]|z‰–ŽŠ‰� �\ */
	$"5178 88A4 9B85 5D55 697C 857B 7783 8079"            /* Qxˆ¤›…]Ui|…{wƒ€y */
	$"9EA3 987A 6281 91A2 9D6D 4744 556F 8F85"            /* ž£˜zb�‘¢�mGDUo�… */
	$"9393 8B89 9FA0 8764 5876 7EA2 AB86 5B4D"            /* ““‹‰Ÿ ‡dXv~¢«†[M */
	$"5E7A 8E7D 7981 8277 91AA 937B 657A 8CA5"            /* ^zŽ}y�‚w‘ª“{ezŒ¥ */
	$"A67D 473E 4F64 968C 878F 8985 A0A3 8A6A"            /* ¦}G>Od–Œ‡�‰… £Šj */
	$"5975 7C98 B48D 5846 5171 9880 787C 857E"            /* Yu|˜´�XFQq˜€x|…~ */
	$"8BAC 9878 6873 81A1 A589 4A3A 4E60 969B"            /* ‹¬˜xhs�¡¥‰J:N`–› */
	$"828D 8A82 9DA8 8C72 5871 788C B69A 5842"            /* ‚�Š‚�¨ŒrXqxŒ¶šXB */
	$"4766 A18C 7979 8683 86A8 A681 6C74 7A9F"            /* Gf¡Œyy†ƒ†¨¦�ltzŸ */
	$"AD94 5133 4857 8DA4 8185 8A81 93AC 947E"            /* ­”Q3HW�¤�…Š�“¬”~ */
	$"5B73 7B84 B1AA 603F 415B A19E 7C74 8188"            /* [s{„±ª`?A[¡ž|t�ˆ */
	$"7E9A A781 6A70 7293 B0A0 602F 4555 84AC"            /* ~š§�jpr“° `/EU„¬ */
	$"897E 8781 8CAC 9E85 5F71 7C7A A5AE 673C"            /* ‰~‡�Œ¬ž…_q|z¥®g< */
	$"3A51 97AD 8674 7B8F 8091 AA8C 6F70 6D89"            /* :Q—­†t{�€‘ªŒopm‰ */
	$"AFA8 6D2E 4055 7AAD 937A 8380 84A4 A991"            /* ¯¨m.@Uz­“zƒ€„¤©‘ */
	$"686C 7D75 98B0 743E 3648 8CB7 9879 738E"            /* hl}u˜°t>6HŒ·˜ysŽ */
	$"8283 A494 7473 6F7D A8B2 8235 3751 71A3"            /* ‚ƒ¤”tso}¨²‚57Qq£ */
	$"9D7C 7E7F 8099 AD9B 7169 8076 89A8 8446"            /* �|~.€™­›qi€v‰¨„F */
	$"3340 7FB6 AC81 708B 877A 9897 756F 6E74"            /* 3@.¶¬�p‹‡z˜—uont */
	$"9CB2 9046 344D 6E97 A681 777E 7F8F AEA8"            /* œ²�F4Mn—¦�w~.�®¨ */
	$"7C6B 8075 7D99 8A51 323A 72AC BF8E 7184"            /* |k€u}™ŠQ2:r¬¿Žq„ */
	$"8C7E 8E98 7C6F 736E 8CB0 9E5B 3547 6D8C"            /* Œ~Ž˜|osnŒ°ž[5GmŒ */
	$"AA91 7378 7F88 A7B3 876F 7E7B 7889 8E64"            /* ª‘sx.ˆ§³‡o~{x‰Žd */
	$"3235 669E CAA7 767B 8980 8294 866A 7472"            /* 25fžÊ§v{‰€‚”†jtr */
	$"82A6 AA72 3E3E 6882 A09F 756E 7D83 9EB9"            /* ‚¦ªr>>h‚ Ÿun}ƒž¹ */
	$"9571 777B 7678 8776 3C33 5E92 C8C3 7F75"            /* •qw{vx‡v<3^’ÈÃ.u */
	$"8586 7C89 8A69 6B71 7595 AE86 503A 6280"            /* …†|‰Šikqu•®†P:b€ */
	$"94AC 7F67 7982 96B9 A97B 767C 7469 7A7F"            /* ”¬.gy‚–¹©{v|tiz. */
	$"4A30 5486 BBDB 9473 7B87 7E80 8D70 6A78"            /* J0T†».”s{‡~€�pjx */
	$"7383 AB9E 643D 567C 89AF 8F65 6E7E 8EB1"            /* sƒ«žd=V|‰¯�en~Ž± */
	$"B682 767D 7860 6A81 5E38 4A7A ACE6 B474"            /* ¶‚v}x`j�^8Jz¬.´t */
	$"7284 8176 8673 6775 7272 9BAB 784C 4D75"            /* r„�v†sgurr›«xLMu */
	$"81A7 9D69 677B 8CA5 BE94 757A 795C 5975"            /* �§�ig{Œ¥¾”uzy\Yu */
	$"694E 426F 9AE2 D87F 6B7D 8977 7B74 6B74"            /* iNBoš.Ø.k}‰w{tkt */
	$"7666 86B1 8C5F 486B 7D9E AA73 676E 8C9C"            /* vf†±Œ_Hk}žªsgnŒœ */
	$"BDA6 7C7E 7D5E 4F68 6B63 4363 8AD3 F196"            /* ½¦|~}^OhkcCcŠÓ.– */
	$"696E 857D 726C 6B7C 7969 70AE A076 4E5D"            /* in…}rlk|yip® vN] */
	$"7995 AC7C 6A62 8594 B5B0 847B 7B63 4A58"            /* y•¬|jb…”µ°„{{cJX */
	$"6374 5657 7EBE F9B9 6D62 7C87 7363 647D"            /* ctVW~¾.¹mb|‡scd} */
	$"786F 5E9D AA8C 5C50 6E8F AA89 6F61 7B94"            /* xo^�ªŒ\Pn�ª‰oa{” */
	$"ACB8 967D 7668 4B4C 5877 6F53 73A8 F6DA"            /* ¬¸–}vhKLXwoSs¨.. */
	$"7F58 6B89 7B5C 5E7F 7E76 5884 AEA2 704B"            /* .Xk‰{\^.~vX„®¢pK */
	$"638A A796 7765 6D8F A4B3 A485 736F 5344"            /* cŠ§–wem�¤³¤…soSD */
	$"4A71 845F 6594 E7F2 9D55 5682 8359 557B"            /* Jq„_e”..�UV‚ƒYU{ */
	$"877E 5E6E A4B2 8A51 587F 9F9A 7E69 6682"            /* ‡~^n¤²ŠQX.Ÿš~if‚ */
	$"9DAB AE92 6C6B 583F 3C63 9078 6284 D2FA"            /* �«®’lkX?<c�xb„Ò. */
	$"C25E 4577 8A61 4871 8888 635D 8DB7 A15E"            /* Â^EwŠaHqˆˆc]�·¡^ */
	$"5174 989B 886F 697A 98A8 AEA3 6F6A 6542"            /* Qt˜›ˆoiz˜¨®£ojeB */
	$"3353 8F91 6E73 BAF6 E172 3863 866D 4464"            /* 3S�‘nsº..r8c†mDd */
	$"8696 735A 79B1 B470 4F6A 8F9A 9375 6C75"            /* †–sZy±´pOj�š“ulu */
	$"87A3 ABAF 7363 6A4A 2D40 85A2 836B A4E9"            /* ‡£«¯scjJ-@…¢ƒk¤. */
	$"F48D 344E 7C72 4A5E 7E99 8358 6AA0 BE88"            /* .�4N|rJ^~™ƒXj ¾ˆ */
	$"5762 8596 9879 6D76 7B98 ADB8 7F59 6953"            /* Wb…–˜ymv{˜­¸.YiS */
	$"2C31 74AC 9F72 8BDA FBAD 3F3E 7074 555C"            /* ,1t¬Ÿr‹..­?>ptU\ */
	$"7796 955F 5D8D B69B 6560 7B8B 9E85 7179"            /* w–•_]�¶›e`{‹ž…qy */
	$"7486 ADBA 8C5B 6761 3328 5EAA B58A 7DC2"            /* t†­ºŒ[ga3(^ªµŠ} */
	$"FAC4 5033 5B6B 5A5D 7192 A46F 5881 A5A7"            /* .ÄP3[kZ]q’¤oX�¥§ */
	$"7862 7782 9890 767C 7674 A5C0 935A 6065"            /* xbw‚˜�v|vt¥À“Z`e */
	$"3F1F 46A1 C4A3 7BAA F4D1 6437 4A65 5D62"            /* ?.F¡Ä£{ª.Ñd7Je]b */
	$"6F86 A582 5874 91A3 8F6E 777F 8E94 7B80"            /* o†¥‚Xt‘£�nw.Ž”{€ */
	$"7767 97C8 9C60 5B65 4F1F 318D CDBC 8A93"            /* wg—Èœ`[eO.1�ͼŠ“ */
	$"E4DA 743F 3A5C 6163 7384 A291 6069 8393"            /* ..t?:\acs„¢‘`iƒ“ */
	$"9B7D 7C7D 7F94 8783 7A63 85C6 A465 5A60"            /* ›}|}.”‡ƒzc…ƤeZ` */
	$"5F2A 2177 CCCF A189 CBDB 8648 324E 6162"            /* _*!wÌÏ¡‰Ë.†H2Nab */
	$"7585 9C99 6E65 797E 9C8D 8282 788A 9489"            /* u…œ™ney~œ�‚‚xŠ”‰ */
	$"7D63 74BD AF6D 5557 6639 155D C1DE BC8D"            /* }ct½¯mUWf9.]Á.¼� */
	$"B3D6 9553 3342 6563 778C 9796 7A61 6F6D"            /* ³Ö•S3BecwŒ—–zaom */
	$"9098 918D 707B 9C8C 8166 71AF B279 584E"            /* �˜‘�p{œŒ�fq¯²yXN */
	$"6B4F 1849 B0E3 D59C 98C5 A15E 3036 6666"            /* kO.I°.Õœ˜Å¡^06ff */
	$"718F 9899 876A 6A62 8196 9B9C 746D 9B98"            /* q�˜™‡jjb�–›œtm›˜ */
	$"866B 6D9B B183 5A42 6661 2136 98DE EAB4"            /* †km›±ƒZBfa!6˜..´ */
	$"8EB2 A36C 3230 6469 6F93 9B97 8B70 635D"            /* Ž²£l20dio“›—‹pc] */
	$"708F A0A7 7C67 929B 8978 7389 A78D 673D"            /* p� §|g’›‰xs‰§�g= */
	$"5A6D 322F 80D1 F8CB 8B98 A57A 352E 656E"            /* Zm2/€Ñ.Ë‹˜¥z5.en */
	$"6C8E 9F9B 907D 5E58 6384 9EAF 8B65 87A2"            /* lŽŸ›�}^Xc„ž¯‹e‡¢ */
	$"8E80 7B7C 9593 6F3F 4D73 4832 6CC1 F9E2"            /* Ž€{|•“o?MsH2lÁ.. */
	$"9C81 9680 3F26 5D71 6E8A 9FA0 9486 5C53"            /* œ�–€?&]qnŠŸ ”†\S */
	$"5D78 94AE 9D6F 7A99 9A8B 8777 8094 7643"            /* ]x”®�oz™š‹‡w€”vC */
	$"3D6E 5B3E 5FAD F0EE AE75 8A84 5029 5673"            /* =n[>_­..®uŠ„P)Vs */
	$"7286 9DA4 958C 604C 5D6F 87A5 AB7F 7991"            /* r†�¤•Œ`L]o‡¥«.y‘ */
	$"9C8E 9079 698E 8051 3A61 6B4C 579C E2F4"            /* œŽ�yiŽ€Q:akLWœ.. */
	$"C878 7884 602D 4873 7686 98A4 9B8F 6B47"            /* Èxx„`-Hsv†˜¤›�kG */
	$"596B 7E95 AF92 7A84 9F99 9581 5F82 8459"            /* Yk~•¯’z„Ÿ™•�_‚„Y */
	$"3953 755F 5B8E CEEA D887 6C7A 6540 416B"            /* 9Su_[ŽÎ.؇lze@Ak */
	$"7684 93A0 9C91 7349 5669 7585 ACA7 8584"            /* v„“ œ‘sIViu…¬§…„ */
	$"949F 9985 5871 8566 3F47 7269 6081 BBDD"            /* ”Ÿ™…Xq…f?Gri`�». */
	$"E09A 6774 6A4D 4165 7985 98A0 9D93 784F"            /* .šgtjMAey…˜ �“xO */
	$"5065 7278 A3B2 8F85 8DA2 9C88 5D62 7F71"            /* Perx£²�…�¢œˆ]b.q */
	$"4645 6A78 6D7D ADCC DFAD 706A 685E 4755"            /* FEjxm}­Ì.­pjh^GU */
	$"737F 969F 9B97 7C59 555D 716D 94B2 9E8B"            /* s.–Ÿ›—|YU]qm”²ž‹ */
	$"89A1 A788 5D5A 767B 5040 5E77 7979 A0BC"            /* ‰¡§ˆ]Zv{P@^wyy ¼ */
	$"D6B8 7F6A 6664 5553 697B 93A7 9B92 7B5D"            /* Ö¸.jfdUSi{“§›’{] */
	$"5B59 6E6B 86AC A58E 8B9F AB8D 6559 677E"            /* [Ynk†¬¥Ž‹Ÿ«�eYg~ */
	$"5F44 5872 827E 9BB3 C6BA 8C6B 6269 6351"            /* _DXr‚~›³ÆºŒkbicQ */
	$"5E7A 8BA8 A394 7F64 6557 6670 7BA0 AB97"            /* ^z‹¨£”.deWfp{ «— */
	$"8BA0 B18E 605A 6278 6A4A 536A 8981 92B5"            /* ‹ ±Ž`ZbxjJSj‰�’µ */
	$"BAB6 9975 6066 6F5C 5072 87A3 AD93 7863"            /* º¶™u`fo\Pr‡£­“xc */
	$"6961 5B72 768E A69D 8CA1 B79A 625C 6173"            /* ia[rvŽ¦�Œ¡·šb\as */
	$"7354 4A5E 8789 8CB3 B2A7 9C7D 6569 7568"            /* sTJ^‡‰Œ³²§œ}eiuh */
	$"4B6C 8398 B69F 7662 6E6A 5A6D 7580 A0A1"            /* Klƒ˜¶ŸvbnjZmu€ ¡ */
	$"8DA1 BEA2 5E5B 646E 7563 4C54 848C 87B3"            /* �¡¾¢^[dnucLT„Œ‡³ */
	$"B49B 9986 6B68 7775 4760 8493 B2AC 775A"            /* ´›™†khwuG`„“²¬wZ */
	$"6F72 5E68 7974 92A3 909D C1B1 6755 656E"            /* or^hyt’£��Á±gUen */
	$"726B 4D47 7E94 88AB B893 8D8B 726C 787E"            /* rkMG~”ˆ«¸“�‹rlx~ */
	$"5254 7E8D AEBB 8151 6878 6762 766E 80A0"            /* RT~�®»�Qhxgbvn€  */
	$"949B C5BB 7450 666E 7374 5A3D 6C92 89A4"            /* ”›Å»tPfnstZ=l’‰¤ */
	$"BB95 8287 7772 7D85 5A4D 7A8B A6BF 9356"            /* »•‚‡wr}…ZMz‹¦¿“V */
	$"5B78 7267 766B 6F93 9595 C3C6 8450 5F6F"            /* [xrgvko“••ÃÆ„P_o */
	$"7774 6440 5F93 919E BD99 7A7F 7B76 7F88"            /* wtd@_“‘ž½™z.{v.ˆ */
	$"674A 6B86 99BF A25C 5071 7C6F 6F6E 6487"            /* gJk†™¿¢\Pq|oond‡ */
	$"9A91 BDD1 975A 556C 7C79 6D40 4983 9598"            /* š‘½Ñ—ZUl|ym@Iƒ•˜ */
	$"B7A5 7673 7778 848B 7152 6386 93BC B86D"            /* ·¥vswx„‹qRc†“¼¸m */
	$"4860 807F 6C6D 5A72 918E AFD9 AC6A 5363"            /* H`€.lmZr‘Ž¯.¬jSc */
	$"7D7F 734D 4271 9B99 B0B2 786A 6D77 8C8D"            /* }.sMBq›™°²xjmwŒ� */
	$"7B5A 597C 8EAF C484 4B54 7B90 716C 5B65"            /* {ZY|Ž¯Ä„KT{�ql[e */
	$"8990 A1D5 C077 5454 7A89 7757 3D5C 95A0"            /* ‰�¡ÕÀwTTz‰wW=\•  */
	$"A4BB 8765 6871 8C91 8266 596E 8CA1 C69E"            /* ¤»‡ehqŒ‘‚fYnŒ¡Æž */
	$"4E48 6698 8165 5C58 7693 98C7 DA90 624B"            /* NHf˜�e\Xv“˜Ç.�bK */
	$"6F8F 7F62 4349 86AA 9FB6 975E 5E66 8D96"            /* o�.bCI†ªŸ¶—^^f�– */
	$"8370 5E5F 8897 C0BD 6245 5796 9465 5A55"            /* ƒp^_ˆ—À½bEW–”eZU */
	$"6389 9CB6 DEA8 6A49 608E 8A67 4F41 6BAC"            /* c‰œ¶.¨jI`ŽŠgOAk¬ */
	$"A2AC AD66 575C 879F 8678 6A54 7E97 B1CB"            /* ¢¬­fW\‡Ÿ†xjT~—±Ë */
	$"7C44 4987 A473 5456 5479 9CA7 D8C9 7C4C"            /* |DI‡¤sTVTyœ§ØÉ|L */
	$"5187 966D 5542 56A2 ADA4 B377 4E56 819E"            /* Q‡–mUBV¢­¤³wNV�ž */
	$"8D7C 7952 6892 A5CF 9F49 3D76 A586 4C55"            /* �|yRh’¥ÏŸI=v¥†LU */
	$"4E66 9CA5 C7DF 9653 497C 9A7E 5D4C 428A"            /* Nfœ¥Ç.–SI|š~]LBŠ */
	$"B2A3 B18D 4A49 799C 957B 825C 578C 9FC6"            /* ²£±�JIyœ•{‚\WŒŸÆ */
	$"BE63 3667 A49A 564B 4E51 8DA5 B7E4 B75B"            /* ¾c6g¤šVKNQ�¥·.·[ */
	$"4070 918A 6259 426E B0AC A99E 533B 7997"            /* @p‘ŠbYBn°¬©žS;y— */
	$"9584 866B 4676 A0BA CC84 3255 9A9F 6B3F"            /* •„†kFv ºÌ„2UšŸk? */
	$"4F45 7DAB ABD8 DA72 3A64 8C92 6E5F 4450"            /* OE}««Ø.r:dŒ’n_DP */
	$"9DB7 A8A0 682F 709C 8C88 897F 4A5B 9CB4"            /* �·¨ h/pœŒˆ‰.J[œ´ */
	$"CEAD 3E40 8FA2 7E3D 433F 64A4 AEC6 E995"            /* έ>@�¢~=C?d¤®Æ.• */
	$"3F58 868E 7F6A 5343 81BF B19C 7A2D 609D"            /* ?X†Ž.jSC�¿±œz-`� */
	$"8B88 8982 5343 8AB3 C5C8 5E36 7CA3 8C50"            /* ‹ˆ‰‚SCŠ³ÅÈ^6|£ŒP */
	$"383F 5899 B1BA E7B5 4D4B 7C89 8177 583B"            /* 8?X™±º.µMK|‰�wX; */
	$"61B0 BE9F 843A 509B 937E 9288 653E 73B2"            /* a°¾Ÿ„:P›“~’ˆe>s² */
	$"BFD3 8534 639C 9561 3331 4988 B3B4 D7D0"            /* ¿Ó…4cœ•a31Iˆ³´×Ð */
	$"6C4A 6B89 7F87 6840 4A9C C6A8 864A 478E"            /* lJk‰.‡h@JœÆ¨†JGŽ */
	$"A07C 888A 6D45 59A2 BCD4 AD4A 4E8A 9E6D"            /*  |ˆŠmEY¢¼Ô­JNŠžm */
	$"3F25 4278 AEB5 C7D1 8B57 5B83 7C8C 7B47"            /* ?%Bx®µÇÑ‹W[ƒ|Œ{G */
	$"3E7E C1B7 8C56 487D A384 7C8E 6E54 4D8C"            /* >~Á·ŒVH}£„|ŽnTMŒ */
	$"B5D0 C56A 4871 9F7A 4D1F 356D A9B6 BED2"            /* µÐÅjHqŸzM.5m©¶¾Ò */
	$"A56D 5075 7C85 8E51 3A63 B1BD 985F 4F6F"            /* ¥mPu|…ŽQ:c±½˜_Oo */
	$"9F96 7087 7360 4D76 AACD D891 4E54 9288"            /* Ÿ–p‡s`MvªÍØ‘NT’ˆ */
	$"5825 2363 9EBC B2C3 B28C 5662 7D81 9962"            /* X%#cž¼²Ã²ŒVb}�™b */
	$"3E50 98BE A56C 5769 91A3 7775 7165 5E64"            /* >P˜¾¥lWi‘£wuqe^d */
	$"99BD DFB1 6745 7994 662F 1556 95BC AFB8"            /* ™½.±gEy”f/.V•¼¯¸ */
	$"B59F 6752 747C 977A 464D 7EB8 AB7D 5D6A"            /* µŸgRt|—zFM~¸«}]j */
	$"82A3 8366 6E61 6C5F 88AD DFCD 8340 5B92"            /* ‚£ƒfnal_ˆ­.̓@[’ */
	$"773B 1647 91BA B3A5 B5B1 814E 677C 8E87"            /* w;.G‘º³¥µ±�Ng|Ž‡ */
	$"5049 61A8 B38D 676B 779D 9463 5F62 7A6A"            /* PIa¨³�gkw�”c_bzj */
	$"79A1 D1E0 A64F 417E 8A49 1632 85AF B89E"            /* y¡Ñ.¦OA~ŠI.2…¯¸ž */
	$"A8B4 9B57 5878 8890 6656 578D B79C 7470"            /* ¨´›WXxˆ�fVW�·œtp */
	$"7290 9B6D 5154 787B 6C8F BEE4 C567 3163"            /* r�›mQTx{l�¾.Åg1c */
	$"925F 202B 7DAD B6A0 9BB2 AC69 4F6E 818C"            /* ’_ +}­¶ ›²¬iOn�Œ */
	$"715D 526F B2AA 8079 7183 9A77 4C49 778D"            /* q]Ro²ª€yqƒšwLIw� */
	$"7183 B3DD DC88 2E45 8C74 2A22 6FA8 B0A5"            /* qƒ³..ˆ.EŒt*"o¨°¥ */
	$"94A3 B981 4E66 7B89 7B70 5958 9BB7 8981"            /* ”£¹�Nf{‰{pYX›·‰� */
	$"7878 9482 4F39 6797 7E78 A6D0 E2AC 402B"            /* xx”‚O9g—~x¦Ð.¬@+ */
	$"7785 4221 61A3 ABA5 9591 B598 5560 7483"            /* w…B!a£«¥•‘µ˜U`tƒ */
	$"7C78 6753 81BE 9A87 8171 8789 5934 5498"            /* |xgS�¾š‡�q‡‰Y4T˜ */
	$"9176 96C1 DDC4 591C 5F89 5825 539B AAA4"            /* ‘v–Á.ÄY._‰X%S›ª¤ */
	$"9B89 ABA7 635E 717B 807B 7455 65B2 A88E"            /* ›‰«§c^q{€{tUe²¨Ž */
	$"8A73 778B 6135 408A A180 8DB7 DAD3 7A1D"            /* Šsw‹a5@Š¡€�·.Óz. */
	$"4382 6C36 4893 AB9D 9D84 9AAA 755C 7274"            /* C‚l6H“«��„šªu\rt */
	$"7F78 7C64 549E B29C 8F75 6C86 6E3F 3575"            /* .x|dTž²œ�ul†n?5u */
	$"AB91 89A7 CDD7 922E 2D72 784D 4383 AB9A"            /* «‘‰§Í×’.-rxMCƒ«š */
	$"9C87 93A3 815E 7170 7D78 7E77 5684 B3AB"            /* œ‡“£�^qp}x~wV„³« */
	$"9C7A 667A 7548 315A A6A4 8B9C BFDB A242"            /* œzfzuH1Z¦¤‹œ¿.¢B */
	$"225B 7C63 4877 AB9F 9787 909E 8766 7375"            /* "[|cHw«Ÿ—‡�ž‡fsu */
	$"7876 7781 616B A5B5 AE7F 636E 7554 3546"            /* xvw�ak¥µ®.cnuT5F */
	$"98B4 9998 B1D9 B259 2547 7675 5569 A3A4"            /* ˜´™˜±.²Y%GvuUi£¤ */
	$"8F86 8C97 856A 7079 7773 7287 7364 90B7"            /* �†Œ—…jpywsr‡sd�· */
	$"C18C 6262 6E5F 3F36 80B8 A89A A3CC B969"            /* ÁŒbbn_?6€¸¨š£Ì¹i */
	$"2937 6880 6664 9AA9 8F81 8C98 8670 6C80"            /* )7h€fdš©��Œ˜†pl€ */
	$"7C71 6681 7D69 7BB1 D29E 6756 6565 4D2F"            /* |qf�}i{±ÒžgVeeM/ */
	$"68B4 B7A3 99C1 BF7D 322D 5B84 7861 8DA7"            /* h´·£™Á¿}2-[„xa�§ */
	$"9679 8995 8771 6882 8774 5E7C 8774 709D"            /* –y‰•‡qh‚‡t^|‡tp� */
	$"D7B2 734C 5A66 5A31 4FA3 BEB0 99B3 BC90"            /* ײsLZfZ1O£¾°™³¼� */
	$"4225 4D81 8C6A 83A2 9C79 7F94 8876 647D"            /* B%M�Œjƒ¢œy.”ˆvd} */
	$"8F79 576E 877C 6F8A D5C7 864D 4A65 6541"            /* �yWn‡|oŠÕdžMJeeA */
	$"418F C1BC 9DA5 B49A 5621 427A 9877 7896"            /* A�Á¼�¥´šV!Bz˜wx– */
	$"9A7D 7490 8A7C 6878 9888 5F62 8482 747B"            /* š}t�Š|hx˜ˆ_b„‚t{ */
	$"C4D1 9A58 3F61 6A51 3C75 B6C1 A59D A79D"            /* ÄÑšX?ajQ<u¶Á¥�§� */
	$"6C2D 3C75 9A88 748D 9685 6E86 8C80 6A70"            /* l-<ušˆt�–…n†Œ€jp */
	$"9692 6755 7A87 7D78 ADCF AA65 3C5A 6E60"            /* –’gUz‡}x­Ïªe<Zn` */
	$"4660 A3C2 AE9B 9997 7B3E 3B6F 9A95 7580"            /* F`£Â®›™—{>;oš•u€ */
	$"908A 727C 8B84 6D6E 919A 7451 6A84 827C"            /* �Šr|‹„mn‘štQj„‚| */
	$"9DC4 B375 4552 6F6B 5455 8DBA B49F 938E"            /* �ijuERokTU�º´Ÿ“Ž */
	$"7F50 3E6A 959D 7D76 8989 7775 8685 7270"            /* .P>j•�}v‰‰wu†…rp */
	$"8A9D 845A 5F7E 8482 93B6 B47F 5151 6D72"            /* Š�„Z_~„‚“¶´.QQmr */
	$"6056 79AC B4A0 918C 7E5D 4765 909E 846D"            /* `Vy¬´ ‘Œ~]Ge�ž„m */
	$"7F8A 8077 8288 746E 8397 8C65 5871 8589"            /* .Š€w‚ˆtnƒ—ŒeXq…‰ */
	$"91AA B587 5C53 6776 675A 6B9C B5A6 928C"            /* ‘ªµ‡\SgvgZkœµ¦’Œ */
	$"7E64 5061 899C 8E70 7689 8478 7D88 7772"            /* ~dPa‰œŽpv‰„x}ˆwr */
	$"8494 916F 5B66 7F8A 90A0 B38E 655B 6574"            /* „”‘o[f.Š� ³Že[et */
	$"6961 678D B1AC 948C 8269 5A63 7F96 9177"            /* iag�±¬”Œ‚iZc.–‘w */
	$"6E83 897B 7882 7774 8792 9077 6563 788D"            /* nƒ‰{x‚wt‡’�wecx� */
	$"9198 AB94 6C63 6972 6D61 657D A7B0 9489"            /* ‘˜«”lcirmae}§°”‰ */
	$"816D 626B 7C8F 8E7F 6C7A 8C81 797E 7976"            /* �mbk|�Ž.lzŒ�y~yv */
	$"8894 8B7A 6861 6E89 9494 A096 7569 6F70"            /* ˆ”‹zhan‰”” –uiop */
	$"6E65 6674 99B1 9A8A 8171 6671 7E89 8B83"            /* neft™±šŠ�qfq~‰‹ƒ */
	$"7073 8A85 7777 7675 8597 8D7E 6F66 6A84"            /* psŠ…wwvu…—�~ofj„ */
	$"9592 9894 7B6E 7776 6C66 6771 8CA9 9C8A"            /* •’˜”{nwvlfgqŒ©œŠ */
	$"8173 6975 8387 8683 7572 8589 7976 7475"            /* �siuƒ‡†ƒur…‰yvtu */
	$"8295 8F7D 726B 6A7E 9394 9290 7E71 797E"            /* ‚•�}rkj~“”’�~qy~ */
	$"7068 6870 849E 9D89 8076 6D74 858B 8481"            /* phhp„ž�‰€vmt…‹„� */
	$"7872 808B 7E76 7575 7F91 937F 746D 6B79"            /* xr€‹~vuu.‘“.tmky */
	$"8C95 8F8D 8173 7781 7668 686E 8096 9D8D"            /* Œ•���sw�vhhn€–�� */
	$"8179 7174 838D 837F 7A74 7C87 8273 7374"            /* �yqtƒ�ƒ.zt|‡‚sst */
	$"7D8D 9584 756F 6F79 8692 8D89 8579 7882"            /* }�•„uooy†’�‰…yx‚ */
	$"7D6B 686D 7E8E 978E 807A 7676 808C 857C"            /* }khm~Ž—Ž€zvv€Œ…| */
	$"7A78 7B82 8477 7175 7D89 9389 7770 727A"            /* zx{‚„wqu}‰“‰wprz */
	$"818D 8D85 847D 7A81 8071 686C 7B88 918E"            /* ���…„}z�€qhl{ˆ‘Ž */
	$"8079 7A7B 7F8B 887C 7A7B 7D81 837A 7176"            /* €yz{.‹ˆ|z{}�ƒzqv */
	$"7C87 8F8B 7B72 747B 7C87 8C83 8180 7D83"            /* |‡�‹{rt{|‡Œƒ�€}ƒ */
	$"8476 6A6B 7984 8A8D 837A 7C7D 7E88 8A7E"            /* „vjky„Š�ƒz|}~ˆŠ~ */
	$"787A 7E7F 837D 7172 7B83 8B8B 8074 757D"            /* xz~.ƒ}qr{ƒ‹‹€tu} */
	$"7C84 8C84 7F80 7E82 867D 6F6B 7783 868B"            /* |„Œ„.€~‚†}okwƒ†‹ */
	$"857A 7B7F 7D85 8B80 7879 7F7D 8280 7673"            /* …z{.}…‹€xy.}‚€vs */
	$"7B81 888C 8577 747C 7C7F 8A85 7D80 807E"            /* {�ˆŒ…wt||.Š…}€€~ */
	$"8380 746D 747F 8289 887D 7B81 7E82 8A84"            /* ƒ€tmt.‚‰ˆ}{�~‚Š„ */
	$"797A 7F7C 7F81 7873 797F 8289 8A7C 767B"            /* yz.|.�xsy.‚‰Š|v{ */
	$"7C7E 8785 7D7E 817D 7F82 7A71 747B 7F87"            /* |~‡…}~�}.‚zqt{.‡ */
	$"8A81 7B7E 7F80 8787 7B78 7D7C 7C7F 7C76"            /* Š�{~.€‡‡{x}||.|v */
	$"787E 8086 8B83 777A 7C7F 8585 7F7C 807F"            /* x~€†‹ƒwz|.…….|€. */
	$"7D80 7E76 7679 7E83 8683 7C7C 8080 8385"            /* }€~vvy~ƒ†ƒ||€€ƒ… */
	$"7F79 7C7C 7D7F 7D78 787D 8082 8786 7C7A"            /* .y||}.}xx}€‚‡†|z */
	$"7B7F 8182 807C 7D80 7D80 8179 7779 7B80"            /* {.�‚€|}€}€�ywy{€ */
	$"8384 7F7B 7F81 8284 827B 7B7C 7D7F 807C"            /* ƒ„.{.�‚„‚{{|}.€| */
	$"797B 7E7F 8386 7F7B 7C7F 8181 817F 7C7E"            /* y{~.ƒ†.{|.���.|~ */
	$"7E7E 837E 7979 7B7F 8283 817C 7D80 8182"            /* ~~ƒ~yy{.‚ƒ�|}€�‚ */
	$"837E 7A7B 7D7E 7F7E 7C7B 7D7F 8186 827B"            /* ƒ~z{}~.~|{}.�†‚{ */
	$"7B7F 8181 8180 7C7D 7E7D 8080 7C7A 7B7E"            /* {.���€|}~}€€|z{~ */
	$"8183 827D 7C80 8181 8380 7B7B 7D7D 7F7F"            /* �ƒ‚}|€��ƒ€{{}}.. */
	$"7D7D 7D7E 8084 847D 7A7E 8081 817F 7D7C"            /* }}}~€„„}z~€��.}| */
	$"7E7D 7F81 7E7C 7C7C 8083 837F 7C7E 8081"            /* ~}.�~|||€ƒƒ.|~€� */
	$"8281 7D7B 7D7E 7F80 7F7E 7D7D 7F82 8580"            /* ‚�}{}~.€.~}}.‚…€ */
	$"7B7D 7F80 8180 7E7D 7E7E 7E81 807D 7D7D"            /* {}.€�€~}~~~�€}}} */
	$"7F82 8380 7D7D 8080 8181 7E7C 7D7E 7E7F"            /* .‚ƒ€}}€€��~|}~~. */
	$"7F7F 7E7D 7F81 8381 7D7D 7F80 8180 7F7E"            /* ..~}.�ƒ�}}.€�€.~ */
	$"7E7F 7F80 807E 7E7D 7E80 8180 7F7E 7F80"            /* ~..€€~~}~€�€.~.€ */
	$"8081"                                               /* €� */
};

\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/Sounds/Whip.r b/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/Sounds/Whip.r
new file mode 100644
index 0000000..4ffc5a6
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/Sounds/Whip.r
@@ -0,0 +1 @@
+data $8014 (0x18024) {
	$"0100 0100 0000 4700 0000 0457 6869 70"              /* ......G....Whip */
};

data $8024 (0x47) {
	$"0000 0900 E88E 0000 772B 8080 8080 8080"            /* ..Æ..Ž..w+€€€€€€ */
	$"8080 8080 8080 8080 8080 8080 8080 8080"            /* €€€€€€€€€€€€€€€€ */
	$"8080 8080 8080 8080 8080 8080 8080 8080"            /* €€€€€€€€€€€€€€€€ */
	$"7E80 827E 7F85 817F 7B83 8180 7F7D 7C82"            /* ~€‚~.…�.{ƒ�€.}|‚ */
	$"7E7A 7D7C 807C 7E80 7F7F 8082 807F 8182"            /* ~z}|€|~€..€‚€.�‚ */
	$"8180 807F 7D7A 7F80 7C7D 7D7B 7F7B 7979"            /* �€€.}z.€|}}{.{yy */
	$"7C79 787C 7A78 777E 7F78 7A82 817B 7D7E"            /* |yx|zxw~.xz‚�{}~ */
	$"807E 8282 7D80 7F83 8185 8282 8384 7D7E"            /* €~‚‚}€.ƒ�…‚‚ƒ„}~ */
	$"8384 8181 8483 8280 8385 7F81 8185 8082"            /* ƒ„��„ƒ‚€ƒ….��…€‚ */
	$"817F 8287 807E 7F80 8480 7E82 8081 8581"            /* �.‚‡€~.€„€~‚€�…� */
	$"8286 8380 8484 8280 837C 7E7E 8082 7A7B"            /* ‚†ƒ€„„‚€ƒ|~~€‚z{ */
	$"7A7A 787A 7674 8078 7B79 7882 7F7A 7E83"            /* zzxzvt€x{yx‚.z~ƒ */
	$"7F7E 8183 8782 827F 827D 7E82 7A79 777B"            /* .~�ƒ‡‚‚.‚}~‚zyw{ */
	$"7D74 777A 7E7A 7C80 7C81 8187 8383 7F7D"            /* }twz~z|€|��‡ƒƒ.} */
	$"8679 7879 777F 7D77 7B81 8280 7F7D 8281"            /* †yxyw.}w{�‚€.}‚� */
	$"7D82 807F 8288 8A85 8181 817B 7E7F 7A79"            /* }‚€.‚ˆŠ…���{~.zy */
	$"7C74 726F 7276 7B76 6D7A 7A7C 7D7C 7E81"            /* |trorv{vmzz|}|~� */
	$"8282 8583 8284 8989 8483 8884 7D79 7D72"            /* ‚‚…ƒ‚„‰‰„ƒˆ„}y}r */
	$"757B 7076 777D 7279 877F 7B7F 8782 7D8C"            /* u{pvw}ry‡.{.‡‚}Œ */
	$"8F89 888A 8A7C 7E81 827D 8282 8087 8986"            /* �‰ˆŠŠ|~�‚}‚‚€‡‰† */
	$"8482 8D7F 7E84 8079 7B7B 7767 7178 6D66"            /* „‚�.~„€y{{wgqxmf */
	$"7274 7268 6C75 7C7A 7C80 8289 8A91 8B93"            /* rtrhlu|z|€‚‰Š‘‹“ */
	$"8B86 948A 8489 8982 868D 8478 7E82 7876"            /* ‹†”Š„‰‰‚†�„x~‚xv */
	$"7F86 7882 7E81 7880 8180 7C6C 6C6C 6C63"            /* .†x‚~�x€�€|llllc */
	$"5E70 766B 7D87 8C87 9BA2 9D9C 9D95 9BA1"            /* ^pvk}‡Œ‡›¢�œ�•›¡ */
	$"9B8F 887A 867A 6F72 686A 646F 7C6B 778B"            /* ›�ˆz†zorhjdo|kw‹ */
	$"7964 6D72 706E 6D73 7B73 777E 817F 8189"            /* ydmrpnms{sw~�.�‰ */
	$"7C7C 888E 8C98 8A89 746D 7D56 5E5C 6263"            /* ||ˆŽŒ˜Š‰tm}V^\bc */
	$"6688 898C 9298 9597 9E86 8B8F 7F72 7E7A"            /* fˆ‰Œ’˜•—ž†‹�.r~z */
	$"6A76 848D 7B7A 9394 8D8C 908D 9092 7554"            /* jv„�{z“”�Œ���’uT */
	$"7E7E 575B 6564 5A67 7470 7F9E A0A3 A4BD"            /* ~~W[edZgtp.ž £¤½ */
	$"C39D AA96 888D 8D76 6063 6C66 4765 4F34"            /* Ã�ª–ˆ��v`clfGeO4 */
	$"446A 8990 808D 7285 AABF A079 9884 887E"            /* Dj‰�€�r…ª¿ y˜„ˆ~ */
	$"5E6E 5B5C 6D6E 7A82 92BC E7D3 C6CA C3AE"            /* ^n[\mnz‚’¼.ÓÆÊî */
	$"826D 7649 0B0B 192D 172E 301B 4A7D A68C"            /* ‚mvI...-..0.J}¦Œ */
	$"7CCF F8F1 E4B4 BA99 6681 5E4F 5554 4459"            /* |Ï...´º™f�^OUTDY */
	$"5F4B 5E74 98C1 C3C8 A2C8 B8A4 A2C2 AE94"            /* _K^t˜ÁÃȢȸ¤¢Â®” */
	$"8173 846C 676A 6585 8D66 4926 1F24 2145"            /* �s„lgje…�fI&.$!E */
	$"3D37 5F9D 9BB5 E0C8 D1EF E69C 88A7 886F"            /* =7_�›µ.ÈÑ..œˆ§ˆo */
	$"8779 4B48 5941 3B51 97A1 875F 576A 909A"            /* ‡yKHYA;Q—¡‡_Wj�š */
	$"6672 A495 8896 B4B4 A9A6 995D 4A45 2554"            /* fr¤•ˆ–´´©¦™]JE%T */
	$"7825 3878 7462 78BA 868B A5A1 8D80 A3C7"            /* x%8xtbxº†‹¥¡�€£Ç */
	$"B18F CBAC A4B0 B0AD 9381 5131 112B 4348"            /* ±�ˬ¤°°­“�Q1.+CH */
	$"4A4C 92AC 7A79 98BE 9567 8694 6024 3545"            /* JL’¬zy˜¾•g†”`$5E */
	$"3D46 8982 B8E6 ECF8 E1B8 9692 583F 2A01"            /* =F‰‚¸....¸–’X?*. */
	$"020F 3255 8480 C1FD FFF4 CEF7 CB3E 3C53"            /* ..2U„€Á...Î.Ë><S */
	$"7923 010D 432E 483A 6E8D 9ABD C7A6 CD97"            /* y#.ÂC.H:n�š½Ç¦Í— */
	$"9EC1 9D64 6FB4 3A3C 78C0 EFC1 9B9F B0C5"            /* žÁ�do´:<xÀ.Á›Ÿ°Å */
	$"7147 381A 5112 506F 149B B6AF 89C9 D988"            /* qG8.Q.Po.›¶¯‰É.ˆ */
	$"79C7 E3A0 AE69 90AC 660E 5451 667F 5A38"            /* yÇ. ®i�¬f.TQf.Z8 */
	$"6D84 7A56 6A75 8C95 B091 AEE8 FFDB 9FCD"            /* m„zVjuŒ•°‘®...ŸÍ */
	$"9C75 9943 0544 6E4E A2BB D480 3474 4B18"            /* œu™C.DnN¢»Ô€4tK. */
	$"0924 4159 48A7 B8FA FDF1 A2AC 2C5A CA81"            /* Æ$AYH§¸...¢¬,ZÊ� */
	$"3236 4976 7C26 D8B2 B95D 62A6 6DC3 4321"            /* 26Iv|&ز¹]b¦mÃC! */
	$"5A9D E186 5D3F 5A99 47BD CAC5 7873 B1D6"            /* Z�.†]?Z™G½ÊÅxs±Ö */
	$"924D 170A 0628 0A30 91D0 A9DF CBF9 B345"            /* ’M...(.0‘Щ.Ë.³E */
	$"2A3D 5C52 5D59 B2F4 F8FF F4DB 6739 4826"            /* *=\R]Y².....g9H& */
	$"0105 2993 69CD E3CA E0C6 C6AC 5717 0E01"            /* ..)“iÍ.Ê.ÆƬW... */
	$"020D 378D 7D90 A3EF E2FF F3E1 5843 DBDC"            /* .Â7�}�£.....XC.. */
	$"3215 046A 8197 4601 064F AFA0 D9FB F0DC"            /* 2..j�—F..O¯ .... */
	$"DC9D 6425 1006 0428 3A75 D6E6 FAC7 C7B9"            /* .�d%...(:uÖ..Çǹ */
	$"471D 1C4D C254 3685 CDF1 EAA4 8554 096D"            /* G..MÂT6…Í..¤…TÆm */
	$"441E A27E B8DC B454 A239 173C 47AC A8E2"            /* D.¢~¸.´T¢9.<G¬¨. */
	$"A396 EFB6 5A81 0C47 570E 8A80 CBD6 CFFF"            /* £–.¶Z�.GW.Š€ËÖÏ. */
	$"CF93 671D 450E 185B 74C7 E3F1 CD96 4020"            /* Ï“g.E..[tÇ..Í–@  */
	$"0B4F 4768 C7E3 FCD9 9547 3B1D 2E3B 466F"            /* .OGhÇ...•G;..;Fo */
	$"D5E5 DCD6 DC8F 3921 1A1D 0F2E 66AF DCE9"            /* Õ..Ö.�9!....f¯.. */
	$"D2A0 496A 1E31 334D 5EAD E1F1 ECE6 D08E"            /* Ò Ij.13M^­....ÐŽ */
	$"3E2D 420C 2437 6CB0 C3F9 D3C0 DC6C 5946"            /* >-B.$7l°Ã.ÓÀ.lYF */
	$"1A3B 404C 7882 8280 D9DC FDB7 A190 5F53"            /* .;@Lx‚‚€...·¡�_S */
	$"1E6E 357B 4D64 3A70 613A 4A46 7DCB A8DD"            /* .n5{Md:pa:JF}˨. */
	$"D9D3 DB8B 5942 2433 3735 699D D3E6 D0C8"            /* .Ó.‹YB$375i�Ó.ÐÈ */
	$"E3A2 4F21 1F43 5334 513D 94B3 A7CE A6DA"            /* .¢O!.CS4Q=”³§Î¦. */
	$"E9CF A74E 9849 897F 6165 9A56 518E 7A61"            /* .ϧN˜I‰.aešVQŽza */
	$"5E46 3D72 867D B7F4 CA95 9C8F 7A71 5659"            /* ^F=r†}·.Ê•œ�zqVY */
	$"5483 7963 86A9 CFB7 8A4E 659A 3A49 124C"            /* Tƒyc†©Ï·ŠNeš:I.L */
	$"7394 9CA6 8F7A AA94 6E46 5389 6D76 988D"            /* s”œ¦�zª”nFS‰mv˜� */
	$"BC93 5B7B A48C 708D 7882 8053 B48E 6F73"            /* ¼“[{¤Œp�x‚€S´Žos */
	$"507D 494A 92AB A0A3 B9D6 EDD6 A197 975E"            /* P}IJ’« £¹Ö.Ö¡——^ */
	$"423A 2330 3354 798C A6A4 A988 825D 7968"            /* B:#03TyŒ¦¤©ˆ‚]yh */
	$"4365 535E 7A79 8891 BD8F 8F87 879E 7279"            /* CeS^zyˆ‘½��‡‡žry */
	$"875D 6943 5559 8273 8299 ABB5 A8CA AD9E"            /* ‡]iCUY‚s‚™«µ¨Ê­ž */
	$"8A95 834B 3B54 7248 4A60 62A4 AEA6 6F9D"            /* Š•ƒK;TrHJ`b¤®¦o� */
	$"A68C 6684 7372 5D73 8A5F 7EC9 836D 7791"            /* ¦Œf„sr]sŠ_~Ƀmw‘ */
	$"816C 8290 736F 8667 4F45 545C 5B84 A9B3"            /* �l‚�so†gOET\[„©³ */
	$"BAB9 D4B3 B695 6755 462E 3454 4E5A 7895"            /* º¹Ô³¶•gUF.4TNZx• */
	$"C9B6 A7C0 A478 8686 7269 5598 6D76 B79F"            /* ɶ§À¤x††riU˜mv·Ÿ */
	$"9696 958B 5F64 5D32 3F65 5C72 8D98 99BB"            /* ––•‹_d]2?e\r�˜™» */
	$"CCA7 8893 905C 7757 5E48 6D73 566C 797B"            /* ̧ˆ“�\wW^HmsVly{ */
	$"9D9B 7EA8 9B80 918F 7591 7373 685F 7264"            /* �›~¨›€‘�u‘ssh_rd */
	$"6A7E 8B94 778A 9D8A 6A76 837B 967C 868D"            /* j~‹”wŠ�Šjvƒ{–|†� */
	$"847B 666D 7260 707F 8389 9CAE B5B6 B1A5"            /* „{fmr`p.ƒ‰œ®µ¶±¥ */
	$"866B 4E3D 3D40 3F4A 5D63 7B97 C1B6 A3AA"            /* †kN==@?J]c{—Á¶£ª */
	$"9B8E 8D72 7059 5E67 6677 7172 7381 9797"            /* ›Ž�rpY^gfwqrs�—— */
	$"98A6 9587 999A 726E 6E6C 8A81 7778 929B"            /* ˜¦•‡™šrnnlŠ�wx’› */
	$"9596 918A 916A 5D50 6459 6066 7885 9298"            /* •–‘Š‘j]PdY`fx…’˜ */
	$"9E8A 9D8C 7578 5E57 4846 5875 7067 6A8C"            /* žŠ�Œux^WHFXupgjŒ */
	$"9088 928F 8B8F 7D8C 8F7C 5466 6D6B 6578"            /* �ˆ’�‹�}Œ�|Tfmkex */
	$"7D8A 8EA0 949F 9790 8A8D 7E78 7583 797F"            /* }ŠŽ ”Ÿ—�Š�~xuƒy. */
	$"958D 8778 7E84 7680 7F93 9C9E 9A97 A086"            /* •�‡x~„v€.“œžš— † */
	$"857F 787F 7A70 6A78 9087 867C 7790 836B"            /* ….x.zpjx�‡†|w�ƒk */
	$"5D73 807B 7484 9295 9D8E 918D 7674 5663"            /* ]s€{t„’•�Ž‘�vtVc */
	$"6E6B 635D 7881 827E 9599 8470 7881 6F73"            /* nkc]x�‚~•™„px�os */
	$"6C66 7465 6974 7D85 878A 7F84 816D 6C74"            /* lfteit}…‡Š.„�mlt */
	$"7761 7380 737D 8977 7288 9292 8F8F 8E89"            /* was€s}‰wrˆ’’��Ž‰ */
	$"8B79 6E69 7267 6C79 7C83 8D93 A29B 959A"            /* ‹ynirgly|ƒ�“¢›•š */
	$"8184 7C7B 7B7A 808D 8D8F 8B90 8687 8D90"            /* �„|{{z€���‹�†‡�� */
	$"8995 908D 9689 7269 716C 6667 7586 867D"            /* ‰•��–‰riqlfgu††} */
	$"8689 8785 847B 7E75 5E64 6365 6A73 848F"            /* †‰‡…„{~u^dcejs„� */
	$"8687 8B83 7A7A 7765 5A73 6E62 6C7F 8788"            /* †‡‹ƒzzweZsnbl.‡ˆ */
	$"7E7F 8883 748D 877A 888D 8C78 7179 7C86"            /* ~.ˆƒt�‡zˆ�Œxqy|† */
	$"7776 7E7F 7C8F 8180 8087 8990 7A78 8987"            /* wv~.|��€€‡‰�zx‰‡ */
	$"8E80 838A 948E 888D 8387 8879 7E80 7C69"            /* Ž€ƒŠ”Žˆ�ƒ‡ˆy~€|i */
	$"6A7E 6B63 718B 816E 7794 827E 908F 9184"            /* j~kcq‹�nw”‚~��‘„ */
	$"7F82 8167 686F 706C 6B7F 8A7C 828D 927D"            /* .‚�ghoplk.Š|‚�’} */
	$"7D7E 7B6F 737C 767F 767D 838B 837B 7F8D"            /* }~{os|v.v}ƒ‹ƒ{.� */
	$"837B 878B 767B 8272 7281 7977 8089 827F"            /* ƒ{‡‹v{‚rr�yw€‰‚. */
	$"8789 8385 7E81 7670 7173 7A7B 817A 8A94"            /* ‡‰ƒ…~�vpqsz{�zŠ” */
	$"877D 888F 8681 8579 747A 7C75 737F 7D88"            /* ‡}ˆ�†�…ytz|us.}ˆ */
	$"8D84 8489 7E7C 7E81 7E79 7C7D 7781 817F"            /* �„„‰~|~�~y|}w��. */
	$"7B7E 8080 7F83 807D 7E81 7975 7575 7273"            /* {~€€.ƒ€}~�yuuurs */
	$"7478 7C82 8186 857C 7A7D 8079 7B7E 7E7B"            /* tx|‚�†…|z}€y{~~{ */
	$"848A 807E 8285 807B 8184 8076 8188 8284"            /* „Š€~‚…€{�„€v�ˆ‚„ */
	$"8781 8888 847F 8486 7D7C 7F7A 7D80 817C"            /* ‡�ˆˆ„.„†}|.z}€�| */
	$"7985 867A 7B7D 8382 7E84 817A 7578 7C7C"            /* y…†z{}ƒ‚~„�zux|| */
	$"797A 7D75 7C83 7E7B 7E81 8683 887F 7C7E"            /* yz}u|ƒ~{~�†ƒˆ.|~ */
	$"797C 7777 7980 837D 7F82 7D7D 7D7E 7F7D"            /* y|wwy€ƒ}.‚}}}~.} */
	$"7D7E 817F 817C 8085 7D7B 7F80 7E7D 8285"            /* }~�.�|€…}{.€~}‚… */
	$"898D 8B8B 8584 7D78 7373 787D 7E80 8587"            /* ‰�‹‹…„}xssx}~€…‡ */
	$"867F 8384 7E79 7C7C 7674 7A7B 7D7B 7B77"            /* †.ƒ„~y||vtz{}{{w */
	$"7B7E 7D78 7B80 8382 7E81 8382 7D80 8281"            /* {~}x{€ƒ‚~�ƒ‚}€‚� */
	$"7B7B 827B 7B7A 8180 7F7E 817B 7A7E 817F"            /* {{‚{{z�€.~�{z~�. */
	$"7D81 8182 8484 7F83 807B 7A7C 7D7A 7D81"            /* }��‚„„.ƒ€{z|}z}� */
	$"8180 8183 7D80 8784 7D7B 8281 7E80 7C7A"            /* �€�ƒ}€‡„}{‚�~€|z */
	$"7979 787A 7F7E 7C82 8384 8581 7D82 817C"            /* yyxz.~|‚ƒ„…�}‚�| */
	$"7B81 7F7E 7F80 8384 8180 8081 7B7C 7C7D"            /* {�.~.€ƒ„�€€�{||} */
	$"7B7C 7D7F 7B7C 7F7F 7C7B 7B81 7F7C 807F"            /* {|}.{|..|{{�.|€. */
	$"7D7F 7F7F 7D7B 7A7A 7C7B 7E81 8082 8084"            /* }...}{zz|{~�€‚€„ */
	$"8581 8180 7F7E 7A7B 7E7F 7C7D 807F 807F"            /* …��€.~z{~.|}€.€. */
	$"7C7E 807F 7B7E 8282 8283 827F 7E7E 8181"            /* |~€.{~‚‚‚ƒ‚.~~�� */
	$"7E7F 8181 7F80 7E7B 7A7C 7978 7A7C 7B7D"            /* ~.��.€~{z|yxz|{} */
	$"8487 8385 8482 807F 7D7C 7B7E 7C7B 7F7F"            /* „‡ƒ…„‚€.}|{~|{.. */
	$"7D7D 8083 807F 8080 7E80 8281 7F7F 807F"            /* }}€ƒ€.€€~€‚�..€. */
	$"7B7C 7B7C 7D7A 7C80 7E7D 7F7F 807E 7F80"            /* {|{|}z|€~}..€~.€ */
	$"7D7E 8080 8080 8182 817F 7E7F 7E7E 7E7E"            /* }~€€€€�‚�.~.~~~~ */
	$"7E7E 7E81 7E7F 7F7E 807E 7E7D 7C7E 7F7E"            /* ~~~�~..~€~~}|~.~ */
	$"8080 7E7C 817F 7D7D 7D7A 7C80 7E7C 7F81"            /* €€~|�.}}}z|€~|.� */
	$"8080 8281 7F80 807F 7E7E 7C7F 8080 7F7E"            /* €€‚�.€€.~~|.€€.~ */
	$"7F7F 7E7E 7F81 807E 7E7F"                           /* ..~~.�€~~. */
};

\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/Sounds/Whoosh.r b/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/Sounds/Whoosh.r
new file mode 100644
index 0000000..f40bd16
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/Sounds/Whoosh.r
@@ -0,0 +1 @@
+#ifdef MacStyle
#include "SysTypes.r"
#else
#Include "TypesIIGS.r"
#endif

#ifdef MacStyle
resource 'snd ' (6157, "Whoosh", purgeable) {
	FormatOne {
		{	/* array Synthesizers: 1 elements */
			/* [1] */
			sampledSynth, 160
		}
	},
	{	/* array SoundCmnds: 1 elements */
		/* [1] */
		hasData,
		bufferCmd {
			20
		}
	},
	{	/* array DataTables: 1 elements */
		/* [1] */
		5164,
		0x2B7745D1,
		5162,
		5163,
		0x0,
		0x3C,
#else
resource rSoundSample (1, "Whoosh") {
	0,
	21,
	0x8EE8,
	0,
	11127,

#endif
		$"8686 8686 8686 8686 8585 8585 8583 8383"
		$"8383 8282 8281 8080 8080 8080 8080 8181"
		$"8282 8281 8281 8181 8182 8383 8485 8484"
		$"8484 8383 8281 807F 7E7E 7D7D 7D7D 7D7E"
		$"7E7F 7E7E 7D7D 7C7B 7B7C 7D7E 7F81 8283"
		$"8485 8584 8383 8280 7F7E 7E7E 7E7D 7D7D"
		$"7D7C 7C7B 7A7A 7978 7878 7979 7C7D 7F80"
		$"8183 8382 8281 8280 8080 8181 8182 8283"
		$"8484 8485 8484 8585 8484 8484 8484 8484"
		$"8484 8585 8585 8585 8584 8482 8281 807F"
		$"7E7D 7B7B 7B7B 7B7C 7E80 8183 8586 8888"
		$"8988 8785 8280 7E7D 7B7A 7A7A 7A7A 7B7C"
		$"7D7E 7E7F 7F7F 8081 8283 8383 8484 8383"
		$"8281 8180 7E7D 7C7B 7979 7979 7979 7979"
		$"797A 7B7D 8082 8587 898A 8B8B 8B8A 8987"
		$"8685 8483 8280 7F80 807F 8081 8283 8385"
		$"8586 8686 8585 8482 8180 7E7C 7A79 7775"
		$"7576 7778 7B7E 8285 898C 8E91 9293 9290"
		$"8D89 8580 7C78 7673 7272 7273 7577 787A"
		$"7C7E 7F82 8485 8687 8788 8887 8786 8686"
		$"8583 817F 7D7B 7978 7674 7474 7474 7678"
		$"7B7F 8385 898B 8B8B 8988 8584 8280 7F7F"
		$"7F80 8082 8384 8688 898A 8A8A 8989 8785"
		$"8382 807E 7C7B 7A79 7979 7979 7A7B 7D7F"
		$"8081 8384 8686 8788 8989 8988 8784 817E"
		$"7A77 7470 6E6C 6B6B 6C6F 7277 7E84 898E"
		$"9294 9594 9391 8E8A 8785 827F 7E7B 7A7A"
		$"7A7B 7D7E 8184 8689 8C8D 8D8D 8D8C 8985"
		$"8381 7F7D 7B79 7878 7778 7979 7B7D 8082"
		$"8386 898B 8C8E 8D8C 8986 827E 7975 716D"
		$"6B6A 6A6D 7074 7A80 8589 8C8E 8F8F 8D8C"
		$"8A87 8481 7E7C 7B7B 7A7B 7D7E 8082 8283"
		$"8383 8485 8687 8787 8787 8585 8382 8180"
		$"7E7C 7B79 7877 7779 7A7D 7F81 8588 8C90"
		$"9394 9593 8F8A 847E 7770 6B68 6666 686B"
		$"7076 7D83 888B 8D8F 8F8C 8A86 827E 7976"
		$"7474 7476 7A7D 8084 8585 8481 807E 7E7E"
		$"7F7F 8081 8384 8586 8787 8685 8381 7D7A"
		$"7775 7474 7476 787B 8085 8C90 9496 9694"
		$"908A 857E 7772 6D69 6767 676A 6E74 7B84"
		$"8B91 9698 9896 928C 857E 7872 6D6A 696A"
		$"6C70 7479 7E83 8689 8A8A 8A88 8582 7F7D"
		$"7D80 8488 8D91 9392 8F8A 837D 746D 6762"
		$"5F5C 5C5D 6268 7380 8E9B A7AF B0AC A499"
		$"8A7D 7165 5D58 5658 5C63 6A74 7D84 8A8F"
		$"9091 8F8C 8883 7E7B 7A7B 7E81 868A 8C8C"
		$"8A87 8380 7A76 726E 6B69 6767 686A 6F76"
		$"7D86 8F96 9A9B 9994 8D85 7D74 6D67 6361"
		$"6165 6971 7A84 8E96 9C9F 9E9A 9289 7E75"
		$"6D69 6869 6D73 797E 8387 898C 8C8A 8783"
		$"7F7A 7672 6F6B 6B6A 6B70 767D 8388 8C8D"
		$"8D8B 8783 7E7A 7773 7272 7377 7C82 898F"
		$"9396 948F 8980 7770 6A67 696F 777D 858B"
		$"8F92 9494 918C 8680 7873 6F6E 7176 7E87"
		$"9098 9D9F 9C97 8D83 776D 6765 6870 7781"
		$"8A91 979D A09E 9B93 8B7F 7770 6D6D 7177"
		$"7E85 8C92 979A 9A97 9189 8179 7574 777B"
		$"8187 8C91 9597 9898 938D 857D 7672 7072"
		$"7579 7E84 8991 979B 9D9C 9791 8984 807E"
		$"7F80 8387 898A 8A8D 8E8D 8C89 8581 7C7A"
		$"7978 797B 8085 8C92 9698 9692 8B84 7F7C"
		$"7B7C 7C7E 8182 8384 8788 8787 8684 8381"
		$"8080 7F7E 7D7F 8287 8C90 9190 8C85 7F7B"
		$"7877 7878 797A 7B7D 8083 8484 827F 7E80"
		$"8285 8889 8884 7E79 7573 7477 7A7D 7F80"
		$"8182 8383 8383 8487 8889 8785 827F 7A75"
		$"7170 6F72 7578 7B7C 7E7F 8181 8181 8182"
		$"8283 827E 7A76 7576 797F 868C 908E 8982"
		$"7B76 7272 757B 8491 9CA6 ABAA A193 826F"
		$"5E54 525B 6977 858F 9597 9694 908B 857F"
		$"7975 767A 7E84 888A 8A87 8484 8485 8888"
		$"8684 8181 8286 8A8D 8C86 7C72 6D6E 7580"
		$"8C93 9595 9390 8C87 817B 7979 7D83 888B"
		$"8E8E 8B83 7C75 7273 7478 7E85 8A8C 8C88"
		$"827D 7774 7477 7F8A 959A 9892 897E 736C"
		$"6B6E 757D 8589 8C8A 8681 7C7C 8185 8787"
		$"8684 827E 7975 7272 7273 7576 7878 7877"
		$"7775 7780 8C98 9F9C 8F7E 6B5E 5960 7184"
		$"939D 9D95 8878 6C67 6970 7B86 9197 9B9B"
		$"9992 8A7F 7368 6262 6C7A 8992 9492 8B84"
		$"796E 6768 6F78 8088 8C8C 8A87 8786 8582"
		$"807C 7A7A 7775 7376 7A7F 878E 908C 8174"
		$"6761 636D 7B88 9093 979B 9F9E 988D 8074"
		$"6E6F 747B 828A 908F 877C 726D 6D71 7882"
		$"8C91 928E 8781 7E7A 7776 7881 8E98 9B98"
		$"9086 7B70 6A6B 727D 878C 8B89 837E 7977"
		$"7A82 898C 8A86 807C 7772 7071 7986 939A"
		$"9A96 8C7D 6C5F 5C61 6F80 9099 9E99 8F82"
		$"7772 7579 7C7D 7C7C 7D7D 7B7A 7A7D 8083"
		$"8584 827C 7469 605B 5E6C 8094 A1A4 9C8D"
		$"7A6B 6469 757E 8487 8784 7F77 7474 777A"
		$"7C7E 7D7B 7670 6963 5D5E 6A80 96A7 AA9F"
		$"8B72 5F56 5E72 8592 9998 8F7F 6C60 5F65"
		$"727F 8A8F 8D87 817E 7E7E 7F80 7F80 8083"
		$"888F 9190 8F8B 857A 6B61 626A 7783 8C8D"
		$"8980 7B79 7B80 8386 8788 857F 7875 7677"
		$"787A 7B7A 7878 7D84 8C8F 8C80 6C58 4E57"
		$"7191 ACB4 AA93 765F 5459 6B82 959E 9A8D"
		$"7C6C 6468 727F 888D 8D89 827B 797C 8387"
		$"857F 7A77 7A83 8C8D 8884 827D 7263 5C63"
		$"7384 9298 9489 7B6F 6B71 7C88 9194 9591"
		$"877A 726F 6E6E 7377 7877 7881 8F9D A5A4"
		$"9577 5743 4862 8AAE BDB5 9A79 6053 5465"
		$"7D95 A098 8979 6E6B 737F 898D 8B87 827C"
		$"7677 7F8B 918D 8075 6C6C 767F 817E 7E82"
		$"837B 6C65 6975 838F 9595 9087 7C75 757A"
		$"828A 9096 968E 8277 6F69 676D 7881 8586"
		$"8687 8786 847F 7267 6165 7387 9A9D 907A"
		$"665F 626C 7C8A 9390 8377 7579 828C 9290"
		$"8881 7E7A 7774 7173 7E86 8579 7070 7985"
		$"8B84 7A75 7B82 867F 7876 797F 888F 9394"
		$"9088 807B 7979 7E87 9198 978F 7F6E 615C"
		$"667C 909B 988C 7A6A 605F 676F 7982 8483"
		$"8484 7C6A 5954 5F73 8592 958D 7E6F 6A76"
		$"8797 A09C 8D7C 726F 7076 7D7C 7776 7571"
		$"6867 7383 9197 8F83 7A79 7B7B 7771 7076"
		$"7F8B 9190 8578 7177 838C 908E 8780 7E80"
		$"7F79 7166 616A 767E 7977 8192 A0A4 9682"
		$"716E 7A8C 958E 827A 7A83 8B8E 8A83 7E7E"
		$"8180 7873 767D 868E 8F82 6A5B 5F73 8B9D"
		$"A096 846E 626A 7D90 9892 8475 6D72 859F"
		$"ADA0 7F60 5564 84A2 A899 7F6B 6A78 8C96"
		$"907D 685D 6071 8794 9487 7563 5A5F 6B78"
		$"8083 7E73 6B6F 7E8E 958B 7767 6A7B 8E94"
		$"8A78 6964 6975 8288 8277 7380 95A2 9C8A"
		$"7B75 7677 7982 8B8C 857A 7779 7C7E 8287"
		$"8C8F 8A7D 7473 7A8C 9D9C 8766 515B 7B98"
		$"A49B 8368 565B 7793 9C90 7D6F 6F79 838F"
		$"9EA7 9A77 5851 6797 CADC C48D 5038 5086"
		$"B3BE A775 4C44 6192 B3B6 976D 4F51 708D"
		$"9385 715C 4E4F 6991 B0AF 8B59 3842 70A0"
		$"B09B 795D 576A 889C 9D8D 7C76 7F91 9A8D"
		$"7B74 7A7E 7366 6F87 948E 7B6E 6969 707D"
		$"8D98 9E99 8A77 6B6C 85A1 A897 7457 5A7A"
		$"969E 9275 584D 5C80 9DA2 8F79 6A6B 757D"
		$"848A 8F8E 7F6D 6267 85B1 CDC4 9551 2838"
		$"72AD C3AF 7A4B 3F5C 92B8 BCA0 7E69 718F"
		$"A091 735C 5A65 6E77 8692 9182 6D6B 7888"
		$"9496 8E84 8081 858A 8881 8286 847E 7470"
		$"7888 918A 7C69 5954 5E77 909A 8C72 5E62"
		$"788B 989C 988B 7668 6A7B 9ABE CCBA 8B4F"
		$"344B 82B4 C8B8 7F44 3257 9FD3 D8B0 805F"
		$"648B A293 6B47 3C4D 6988 9C9C 8D75 616A"
		$"87A5 B4AA 8C72 6870 8497 988A 7A70 6E75"
		$"808C 8F8A 8074 6F6E 6C66 5F5F 718A 917D"
		$"5F55 6580 9DAF A688 6A5F 657A 94AD B19B"
		$"7353 4F69 8CA3 ACA9 8B5D 4765 A4D5 D8AF"
		$"8876 7887 8A79 6C6E 716A 6168 829F A283"
		$"615F 7A9D ACA1 938A 7961 5E79 989B 8062"
		$"5E78 98A6 9B86 7976 7779 7E80 7766 6278"
		$"9398 7D5A 4D60 89AB A47E 5E57 657D 8E93"
		$"8D79 5D57 6B86 938A 8897 9A7B 6378 A5CE"
		$"D0AC 908A 8882 7260 6D96 A688 5847 67A1"
		$"B590 6255 6D93 9E93 96A0 8B5A 435F 90A2"
		$"845E 5C7E A3A6 8D79 7C8C 8C7D 7987 9493"
		$"867F 8EA1 9A73 4E4D 6A82 7D66 5A65 7D8F"
		$"8B81 858B 765D 6483 A1A6 9B9B 957E 7472"
		$"707B 949F 834E 4071 B0BB 8F67 5D6F 8C98"
		$"9086 8784 7166 738E 9E91 7D71 7688 9AA5"
		$"9785 8991 9291 979C 8765 6187 B0B3 8041"
		$"2D50 8192 7F62 5966 828F 877A 7667 5A62"
		$"707C 7C86 9D9A 766B 767F 858F 967E 4439"
		$"7BBF BE8C 6B69 7889 938B 7368 798D 9790"
		$"8C92 99A0 8A68 5C7C AFAC 8881 95A8 A298"
		$"9B7D 4B41 6591 A88D 5537 58A1 C7B2 7C57"
		$"5172 9EA6 8863 526C 9BAF B898 654D 6391"
		$"A078 4537 588F A38A 7074 878D 7A62 5961"
		$"7A99 AB9D 7D70 798E 9EA0 9472 4951 86A6"
		$"926E 6D87 9891 8377 685C 6988 9C8D 767B"
		$"8DA1 9B7D 6972 94A4 9685 8297 A696 785A"
		$"617D 7C6E 7C8A 673E 579D C1A3 6547 4E78"
		$"A198 745A 5377 ABB4 B28A 5857 8ECF C368"
		$"222D 67A3 AA82 6975 899A 9472 5451 78A4"
		$"AE9B 8A7B 7C96 AFAD 9066 4E69 908D 6650"
		$"6FA4 B99C 7667 6054 5C81 9A86 676C 8198"
		$"9E8B 7A73 7E94 9684 778C A595 664A 709E"
		$"8759 6186 744D 639E B790 554B 688B 977B"
		$"6D77 7B84 98A1 AF97 5F4F 88D1 C060 2D55"
		$"8995 8973 7785 7E78 817E 6B5F 7899 9485"
		$"8C86 7989 9E9B 8065 6682 9176 555D 90A7"
		$"8C76 7A84 7B61 608C A990 676E 909A 886F"
		$"7492 9D85 7382 A6B3 906F 5555 91CB 9F47"
		$"449A AB6F 5A7D A287 4C55 92AA 7D44 65AB"
		$"BB8E 6370 A6B0 6C41 7DD0 B652 4095 BD86"
		$"5C5B 8299 7851 678C 8F79 7888 796E 8E90"
		$"7579 8A88 7062 7C9B 915F 496F AB9E 625A"
		$"7F98 8D74 7190 9F8F 747A 9493 7759 67A4"
		$"B37C 6185 B8AE 7061 7982 828A 8985 7D82"
		$"8882 7C7B 7C79 889F 9D7E 7288 947E 6068"
		$"9EB7 835A 80D4 DE7D 4956 73A6 D3AB 534D"
		$"B1D2 8645 538F 966C 72A0 A16B 4C7A A59C"
		$"715D 7490 8E78 85AD A27C 575D 98C6 AA62"
		$"4D93 BE95 5753 91AA 7B67 95AF 753F 70AD"
		$"B27A 404C 8FAA 7145 80C2 AC57 4788 B1A6"
		$"7C58 5B8B B08F 6886 C4C0 7C68 9296 919E"
		$"7F58 71AE AE57 2B61 938D 686C A0B4 8444"
		$"4F96 C292 473F 7DB0 9558 619B A572 568A"
		$"B69F 655C 8EA1 7854 75A0 A6A0 856B 7890"
		$"A59E 6F5F 8491 713F 4E89 947C 6D76 94A8"
		$"9868 4B70 ADB2 7442 5BA5 BA70 416F 9C8C"
		$"648B BA99 505E B8B4 4F27 7AB0 9692 8967"
		$"6087 B3AA 735F 8184 6043 6997 967B 6B75"
		$"8B9B 8F76 6E71 8ABC A856 479A BF76 3E65"
		$"8D80 717F 8885 7279 9F8D 4B3E 85B1 937D"
		$"7B71 5E76 A8A5 7A6E 7E6C 4356 AAB2 8575"
		$"757A 7578 7D90 9F78 5DB9 DE72 3A8B BB7B"
		$"415C 7C74 7D72 5671 9895 7A5E 576A 8EA4"
		$"936F 6C84 776E 8B95 8780 7D71 5671 BDA5"
		$"5C6E 998E 654F 7C98 7A85 8773 7F89 866A"
		$"5384 B780 3864 AB96 6E7F 8883 7C6A 7A98"
		$"9276 669C B87E 3771 B18E 7E8F 7A6A 81A6"
		$"A47F 6871 7F76 6F7A 788B 8F72 7491 8F81"
		$"8C9A 6B54 CBEA 522F B1BB 4B4F A59A 5D8A"
		$"AE6A 4B93 BB69 3C67 856D 689F 9F73 6C8F"
		$"8D69 7A99 7556 7981 7496 A19B 8475 7F6D"
		$"628D 7364 AD9E 627F 7A71 8E82 707F 8660"
		$"709A 7B72 9D96 7074 8B6F 6292 AA66 73B9"
		$"B869 6697 9075 8190 9181 8492 836A 6C90"
		$"9D89 6552 7E9A 817C 9D91 8889 8668 59C4"
		$"DB35 34D5 B01C 62ED B745 96E9 7C26 8EDE"
		$"571D 78A0 5232 A3C3 7A5D A4A3 506B AC6C"
		$"3B85 A779 7695 BE94 6377 6A64 9461 5AB9"
		$"A462 8878 6391 9774 6981 7074 927A 7498"
		$"946F 7699 7157 96B2 6370 BBB8 7367 8B91"
		$"7775 9097 7E80 967E 6278 9589 7776 7582"
		$"868B 8B76 6B91 8272 7C72 A1AE 4057 D9A2"
		$"376B ABA0 8E8E 9E97 5C75 B877 4D95 A55C"
		$"5398 8D63 81A8 835C 7486 696B 849B 9864"
		$"68BB 9A4A 656C 739F 6B57 A693 6F96 8D66"
		$"95BE 8B5D 8290 7379 8C85 8C8E 6D7A 9B6D"
		$"5999 B564 60B1 BD8B 5B7D 9E6E 6095 9974"
		$"87A2 7254 839E 6A61 9294 7B7B 9790 4F4C"
		$"9478 5F90 9078 7851 7CD8 9256 7467 88D6"
		$"8553 AE93 608D 9282 AD9D 6881 9159 51A4"
		$"A354 628B 6263 A283 779B 5D5B B792 4967"
		$"6C84 BD88 5998 866B 929D 82A4 AC7C 818C"
		$"6253 97A5 6B7A 855B 6C9D 777C AD6E 4994"
		$"9249 5C6F 80A3 8A61 8175 7796 A07E 94B2"
		$"9583 828A 8177 928E 848B 8B7B 607C 927B"
		$"9285 659F B977 5D99 844D 8DA3 6C6F 9E84"
		$"6A80 6D8D 9173 7061 6B8E 774F 94B9 6E69"
		$"906F 8995 8D85 7F9B 938A 7E77 8170 93AB"
		$"9983 6985 816F 7B7B 9182 5C7E C88C 3A95"
		$"A751 7D9D 7671 A9A1 735F 5C9F 7B78 9632"
		$"46D2 9331 A7CE 5272 9F67 9594 7A87 6F86"
		$"8D8C 736A 8F71 89B4 9C7F 688A 8973 7575"
		$"9085 6077 C790 3A8E 9E52 8699 7077 978C"
		$"806F 5B9A 9967 7F65 4E8D 9567 9197 6E93"
		$"8571 9078 868A 5C8D 9C84 876F 7576 8091"
		$"9A96 5286 9E7C 776A 7777 7C75 978F 6780"
		$"7E65 8A7C 7690 776B 9086 5F94 BD53 60A4"
		$"5C43 97A0 7A60 89B3 6C7B 865C 948D 5294"
		$"B17F 8D7B 5A72 876F 86A4 4E72 9D7F 797E"
		$"8556 7A9B 555D AA9B 7976 7780 8A9A 8269"
		$"8787 619A AC70 8989 6182 8968 93B0 4768"
		$"8F79 8D6F 6061 8C95 577A BA94 788B 644E"
		$"A7B6 7D76 7981 7599 A965 6B98 7A8C 956E"
		$"94AC 5C47 6777 906A 6E7F 7FA0 707B A994"
		$"94A0 5543 B29F 5D83 6E86 8E9A 9F65 7195"
		$"8D8C 847F 8C98 7C2E 5283 8366 7D95 6FA7"
		$"8A78 9495 AFB4 4539 B986 3F8D 668C A39C"
		$"956A 8889 9786 6293 7E77 9E2B 68A4 5D67"
		$"8582 5D95 9161 829D 999B 6967 B482 5371"
		$"889E 699D 9E7D 9D9C A66B 5CA5 6E6F A729"
		$"7FBC 4970 8A6B 5382 964A 6FA5 8182 8C94"
		$"AC7F 6D55 ADB1 2197 AE99 B0C7 A038 8BA7"
		$"4E95 6F4B A0AC 8A8D 825F 967F 6783 797B"
		$"8361 A59B 4A77 9385 6576 7975 7684 6492"
		$"9E74 9E9C 6065 AF9A 547A 949C 99B1 A453"
		$"949A 4C95 7927 94B5 7187 735A 8574 8470"
		$"7F90 548D CE7D 5A84 8F94 8172 599D 805F"
		$"47A1 B054 8FB4 5677 AC87 8561 7E9D 8AA0"
		$"9761 A08D 4793 7B25 91B5 6676 7169 7C6D"
		$"8A76 838B 5A80 C987 6181 7684 8A99 5683"
		$"9F3F 7699 7385 9079 8187 9890 6E84 87A4"
		$"9286 A27C 987E 5C8D 784B 75AD 7165 8077"
		$"746E 7D89 7F7C 7360 B991 7281 5172 8EBF"
		$"5768 BC20 A791 36B7 923A AC95 859D 4AA8"
		$"99A5 9F75 B08B 7D80 8685 6C81 62A0 9973"
		$"946E 8284 439C 7665 9A65 8B79 9E97 6180"
		$"6577 8B97 7B82 9F79 60A5 985E 926E 568E"
		$"7E82 4358 7A6C 9783 647E A99F 6E5C 946A"
		$"7CBC 5880 A251 987A 5EA4 8260 8079 9579"
		$"6AA0 82BE 86A1 9C7A 787C 9665 9B88 72A6"
		$"A368 997C 7B92 4C9B 6B68 8363 A171 9D99"
		$"6685 7668 8BA5 738C 8477 7C9D 9B80 9D4B"
		$"55AF 848A 3357 6555 A17D 6592 8DA4 6F45"
		$"D267 64AE 6098 8486 8962 8691 7383 565F"
		$"A459 8991 6ECE 6EC2 886E 6F7B AB4B BD8F"
		$"88AB A65C 9094 7497 549C 7265 6781 A069"
		$"A191 8873 956C 84B6 7588 6977 897C 8372"
		$"A76C 4E9C 739C 5E68 7055 976D 6F8C 7C90"
		$"6475 B965 63A3 7E80 8894 707B 8494 8674"
		$"7863 7779 835F 7BA1 83AF 8876 7C77 9562"
		$"AB83 80AB 9762 888C 6F88 6D8D 8E6B 6A96"
		$"886B 9493 A16E 9964 85C8 7B87 5471 8B65"
		$"6662 A396 508A 64AA 8F7E 8059 875C 8083"
		$"667A 58AC 9A64 6396 9C66 8AA0 5693 8297"
		$"9863 9C68 4C96 7F3C 8074 919A 8F81 886B"
		$"7C78 8477 6997 7289 8D69 6881 926D A08D"
		$"7494 6F89 8683 9C75 5677 856D 897B 8A80"
		$"8285 7D6F 728C 847A 6EA1 7E74 846F 6F71"
		$"8B75 B179 9094 5B7A 73A1 9C81 6350 92B3"
		$"8689 7168 728A 6868 6B96 7C8C 758F 7379"
		$"8471 777A 947A 9380 7A99 717B 7894 8F85"
		$"6A5B 92B4 8184 6467 728D 656E 7194 7B96"
		$"7B80 6F7E 8374 7E84 9B7F 7288 649E 877C"
		$"7F85 8184 6B79 9594 7F72 5F78 8581 7580"
		$"9279 8E86 7F79 8482 7879 7D91 7D7B 8070"
		$"9387 7C7E 8383 8A73 7886 8D7B 776B 7D81"
		$"887C 878A 7A87 897F 8187 817B 7678 867C"
		$"8478 7D88 877C 7E81 858D 777B 7D83 797B"
		$"7C80 7E81 7F85 837B 8283 8081 8380 7C7A"
		$"7D83 7D81 7B7E 8483 7E7F 8082 877B 7D7D"
		$"807B 7D82 807D 7E80 827E 7C7F 7F81 8180"
		$"7F7E 7E81 807E 7F7E 7F7F 7F7F 7F7F 7F80"
		$"7E7F 7F7F 7E7E 807F 7E7F 7F80 7F7E 7F7F"
		$"8080 807F 7F7F 8080 7F80 7F80 8080 8080"
		$"7F7F 7F7F 7F7F 7F7F 7F7F 7F7F 7F7F 7F7F"
		$"7F7F 7F80 8080 7F7F 8080 8080 8080 8080"
		$"8080 8080 8080 8080 8080 8080 8080 8080"
		$"8080 8080 8080 8080 8080 8080 8080 8080"
		$"8080 8080 8080 8080 8080 8000"
#ifdef MacStyle
	}
#endif
};

#ifdef MacStyle
resource 'snd ' (5748, "hsoohW", purgeable) {
	FormatOne {
		{	/* array Synthesizers: 1 elements */
			/* [1] */
			sampledSynth, 160
		}
	},
	{	/* array SoundCmnds: 1 elements */
		/* [1] */
		hasData,
		bufferCmd {
			20
		}
	},
	{	/* array DataTables: 1 elements */
		/* [1] */
		5143,
		0x2B7745D1,
		5141,
		5142,
		0x0,
		0x3C,
#else
resource rSoundSample (2, "hsoohW") {
	0,
	21,
	0x8EE8,
	0,
	11127,

#endif
		$"8080 8080 807F 8080 8080 8080 8080 8080"
		$"8080 8080 8080 8080 7F80 807F 8080 8080"
		$"8080 8080 8080 8080 7F80 8080 8080 8080"
		$"8080 8080 7F7F 8080 807F 7F7F 7F7F 7F7F"
		$"7F7F 7F7F 7F7F 7F7F 7F7F 7F7F 8080 8080"
		$"807F 807F 8080 7F7F 7F80 8080 7F7F 7E7F"
		$"807F 7F7E 7F80 7E7E 7F7F 7F7E 807F 7F7F"
		$"7F7F 7F7F 7E7F 7E80 817E 7E7F 8081 817F"
		$"7F7C 7E82 807E 7D80 827D 7B80 7D7D 7B87"
		$"8280 7F7E 8384 7E7B 817D 837D 7A7C 8083"
		$"8180 8382 7B83 857F 817E 807C 7B79 837D"
		$"7B77 8D85 817E 7C87 887D 7884 7C86 7876"
		$"7B81 8781 7F89 877A 8A87 7C88 817D 6B77"
		$"7B8D 8678 738A 8383 7E7C 8793 7080 7B7D"
		$"917D 7978 8284 797F 868E 7992 8075 8185"
		$"785F 727F 9495 796B 8481 857F 7C87 9E64"
		$"8872 7F9B 847E 7483 7E6F 807B 967B 9471"
		$"6E65 8D72 6764 8481 B492 5B6A 858F 9478"
		$"7B71 997A 8093 7A94 7A77 7184 7973 8F75"
		$"8C7C 966B 6868 8A72 6871 8986 B392 5063"
		$"819C A173 7A5B 9490 79B1 758B 716F 6F84"
		$"747E A16E 7A84 8C72 6F7D 8582 808A 7B89"
		$"6D85 7756 759C 8386 896F 9474 8DA0 6D92"
		$"8168 698D 8972 9769 7784 787C 6B88 818F"
		$"9A91 7480 3C7F 964C 689C 6398 9782 9356"
		$"A08A 669C 9663 649A AC58 7A66 8380 5C87"
		$"5980 7E8F AA64 8A50 96A3 6266 658B 7154"
		$"877B C885 6499 6EA1 9394 6B88 966A 6B8E"
		$"8D6D 886F 8C88 6297 AB80 83AB 6295 777C"
		$"7688 AF83 A17B 5F83 7977 6378 7486 9484"
		$"7B70 9488 807E A363 65B9 7564 907C 8C6F"
		$"6D97 5570 685E 9C73 9C4E 6CA7 7283 7C89"
		$"7769 8875 B684 6C95 7388 91A1 69A0 8167"
		$"6572 9C54 9774 9490 5CA6 AB88 8FBD 4BAB"
		$"7B6F 6E88 C26E CE6E 9189 59A4 5F56 8373"
		$"9186 6289 8684 9860 AE64 67D2 456F A48D"
		$"9265 7DA1 5565 5733 8A84 AF55 4B9D 809B"
		$"9D7C 7784 8C73 A58B 6876 8566 999D 71A1"
		$"6383 686B 9B4C 927B 7C99 68A3 A672 889B"
		$"6596 7C78 7A9C A186 BE82 A06A 7995 7980"
		$"6082 A45E 7A98 51A2 8058 BC7C 6A94 5C6E"
		$"9FA9 7E64 8397 6C7A 5843 827E 8E56 6E92"
		$"5E98 A560 799F 827B 978B 7765 8061 979E"
		$"798B 659A 6576 9C43 8482 6E94 7399 A062"
		$"816C 8586 807D 8BB0 759F A599 A84A 9D85"
		$"95AC 3A92 B736 91A7 20BC 6857 BF8E 7251"
		$"8172 91B9 6073 7C7F 897D 6E74 7780 6571"
		$"AD75 4B78 8D5C 7E98 7CA2 8692 A487 846E"
		$"9098 8781 7990 8573 9976 3F9F 8356 998A"
		$"8476 8161 87C9 805A 8B83 768A 6D7C 6971"
		$"7666 B591 257B 9347 8DA0 6197 A08A 9D7E"
		$"6185 87AC 7756 B48F 54B0 A147 5F80 9D59"
		$"7281 948F 845A 7DCE 8D54 907F 7084 7485"
		$"5A73 8771 B594 2779 954C 9A94 53A4 B199"
		$"9C94 7A54 9AAF 6560 9C9E 749E 9264 8476"
		$"7579 7665 8593 774A 9BA5 6183 7B79 8367"
		$"7F96 5F82 8D8A ACA0 4B6F 954E A78B 38A0"
		$"C7B0 99AE 9721 B1AD 556D 7FAC 948C 8281"
		$"A56F 4A96 8253 6B8A 7049 BC7F 29A7 6F6E"
		$"A55C 6BA6 9C9D 7D9E 9D69 9E88 7153 82B4"
		$"6769 9B99 9D82 6191 955D 8285 675D A468"
		$"2B9E 777E 9362 8697 8988 6A95 9CA3 8C66"
		$"8D3F 86B9 3945 B4AF 9594 788A A76F 957D"
		$"6683 8352 2E7C 988C 7F84 8C8D 9571 659F"
		$"9A8E 866E 835D 9FB2 4355 A094 94A9 7B70"
		$"A07F 7F6E 6A90 7767 475C AC94 6E95 8C7A"
		$"986B 65A9 9975 8179 767D B6A7 4E64 8B78"
		$"94BA 7A57 958C 6160 6F8D 798F 6847 B093"
		$"6889 8261 8989 70AC 9A61 8787 6982 9A8A"
		$"8077 7679 9BAA 5D55 9B7A 5685 7E79 7F9D"
		$"724E A486 6F87 725A 7B8D 7FB1 9452 8D94"
		$"5C86 7B6C B389 607A A097 435C A460 53BD"
		$"945F 8690 6B77 9076 7C8A 657E 8067 8F97"
		$"757C 7777 6A77 7C9E 8652 969A 9180 7675"
		$"6F87 849C 8D5C 8A86 7890 7185 936E 9791"
		$"6795 8D4E 657F 6799 9A5B 6F80 8C97 7770"
		$"9986 529E 8E3A 90C7 7760 8590 7575 7389"
		$"8A68 7F9C B489 718F 6A73 8C8D 866F 877A"
		$"9495 679F 7252 CEA7 3193 D246 3296 787B"
		$"9F5C 5F73 A1A9 7176 9D7D 51A7 953A 8CC8"
		$"7E5C 8291 7B7B 6F81 8569 8399 AB93 7081"
		$"777E 8A93 9B7F 858D 9589 6F90 696E B994"
		$"4F77 8E6B 6170 7391 8D6D 806A 849E 6F6C"
		$"A38D 4D84 995D 77B9 9F65 8592 7B92 7C60"
		$"7B8B 8B84 8E92 7781 8A82 8395 B294 7EA0"
		$"9677 7581 618A A380 6F5C 4992 9449 6EAD"
		$"7C77 9D6C 5B85 7A6B A597 5362 8C81 7CAC"
		$"A482 9D92 6B86 9859 88BD 846C 6749 92B7"
		$"5B5D 9B77 83A2 6362 8B62 54A3 A451 5991"
		$"8168 9DAD 8292 8D60 93AE 5385 D688 6774"
		$"5692 D87C 5178 7890 905F 7894 4C4F 9097"
		$"7B7B 9492 616A 9E83 5472 A287 7499 9560"
		$"6E9E 7D5B 8BBD B160 64B5 9959 6D9B 7A6D"
		$"8E8C 858C 7973 9082 5D8B BE95 668D 966F"
		$"93A6 576B 9F73 6C65 4A9A BB68 6498 9B84"
		$"6B69 8674 5C83 A881 638D 9853 5CA5 954D"
		$"77B8 755C 979E 8E8E A0AB 6B37 A2D9 5740"
		$"AEA1 727C 7282 916B 768B 8B86 8275 7677"
		$"8995 7862 7E96 807E 9790 7577 918B 6773"
		$"B8BB 7063 B296 5771 9976 6F94 9874 7A92"
		$"7470 8169 7497 9163 7888 62A4 B95A 6194"
		$"646A 7763 94BE 9576 79A7 853B 6CAC 6B50"
		$"A3A4 5D7A C3A3 3252 A078 1D57 DE8E 267C"
		$"E996 45B7 ED62 1CB0 D534 35DB C459 6886"
		$"8988 919D 7C81 9A7E 5265 899D 906C 6A83"
		$"9284 8191 9081 7590 9766 69B8 B973 66AA"
		$"9262 6F8B 7470 969D 727B 9A70 6086 7F70"
		$"828E 717A 7F62 9EAD 6473 8D62 6D7F 7584"
		$"9BA1 9674 8179 5675 997A 698D 8F6C 739F"
		$"9F68 6D85 673C 69BB 934B 6AAE 8A5D 9AA5"
		$"4F4B BBB1 2F52 EACB 546B 9A8C 818F 9174"
		$"728F 8B78 7A6F 767F 7168 7FA4 A681 6A7A"
		$"8F7E 8EB1 7137 7EB8 9C66 7692 987A 6A7C"
		$"8388 7F6E 96AB 6438 80B7 8453 6A86 897F"
		$"7387 857A 987C 4F65 8E99 6E5C A5BD 7156"
		$"717D 8087 958B 6E77 846C 6F93 A48E 6A57"
		$"5E7A 9598 7156 727D 747C 5C41 7BBB 8B3A"
		$"72DE B95D 789F 907D 7875 7A75 7585 B2AA"
		$"5643 6C7E 6E7A A5A8 765E 717B 7D93 B185"
		$"3E4B 8D9F 7972 8588 7F71 808D 653E 76BF"
		$"9A47 56A8 BC8A 716E 768F 9B8B 756B 7B96"
		$"9769 4360 8481 5F73 AAB3 8760 6789 9296"
		$"B07A 274F B4B8 5E50 99BA 8B64 8C9C 6F41"
		$"70BA A55B 4274 B2AD 704B 6898 A894 766D"
		$"7C94 894E 3F71 9184 5F6F 9EA5 9078 6B85"
		$"A0A6 A075 5478 A18E 5C65 9FB6 8A56 72A5"
		$"9B61 5895 B07D 3F47 92C2 964F 4484 B4A0"
		$"6C68 8D93 612B 57AE AE71 587F 9E91 9692"
		$"687C C0C4 8668 8FB0 8B5B 587C A6B1 8847"
		$"57AC C280 4571 AA8F 4C40 7AB2 AD70 3F75"
		$"AF95 677B AA91 5357 95BE 934D 62AA C698"
		$"5D57 7CA2 AD85 788E 9074 5D71 9CA5 7A4C"
		$"6BA1 A072 6C96 8F53 4586 D2B1 4D53 ABD3"
		$"A673 5649 7DDE D480 5A83 B79E 6860 7E94"
		$"8872 7E9D 9F88 797C 7B7C 8288 827D 8589"
		$"8A82 8279 6170 AEB8 8561 7CB3 A467 5977"
		$"9394 7A74 8F9F 9071 748D 987F 5A62 9EAB"
		$"6F49 5F91 9B7C 6270 888A 7975 908E 6E79"
		$"8878 798F 8C67 5178 9982 5B5C 86BD 9540"
		$"52B6 D07D 416C B0A6 7063 8EBB AB65 447D"
		$"AA92 554C 87A2 7D5A 6FAB 9A44 479F CB91"
		$"5555 6F90 B3A6 8273 859D 9274 6F88 9A90"
		$"6E67 90A9 8C60 617B 847A 768C A790 5D55"
		$"7691 8266 6580 9B9E 8979 868C 8594 9978"
		$"5F6B 7E81 787E 8577 7389 9589 552D 60C0"
		$"D188 4F5F 97AF A198 847B 776D 7B97 8B68"
		$"4B55 90B7 9E63 4D74 8661 5987 9E70 4A66"
		$"95A5 8C77 8496 947E 737A 8B9E 9881 6C67"
		$"869A 815C 5460 6776 9CB9 A46F 5066 8D90"
		$"694E 6690 ADAF 967C 7B8A 9BAE A478 5154"
		$"7294 9A89 7569 82AA A367 2D22 68C3 CF8E"
		$"5758 8AB2 B4AB 7753 5A74 98A1 784E 4765"
		$"A3C1 9D57 3E67 8A7C 6E7C 7D61 5A78 96A6"
		$"9782 8596 A494 7269 7D9B A18D 7B76 8D9C"
		$"8869 5C68 7783 9198 876D 6E92 A686 5149"
		$"7294 A09E 8E79 707D 9DAB 997A 6159 627A"
		$"8D87 7470 8AA3 8F58 3745 78A0 9163 4D65"
		$"98B8 AF9B 6C52 6388 A69E 7251 577C B2C7"
		$"A158 3755 8DA8 9165 414B 7D9B 98A2 A895"
		$"8188 ACAF 7C5C 688A A099 928C 9097 8D79"
		$"6873 8B93 8978 696B 8CBE BF7B 3944 7E96"
		$"8F85 7F76 6B76 9A9D 867C 7C70 625A 6776"
		$"7A87 8F82 6659 627F 9281 502D 4180 B3B0"
		$"8761 6587 9C97 9192 9189 8597 A59A 8876"
		$"717D 919E 8E73 6671 8487 8690 988C 6F5D"
		$"678F BBB0 7140 4E83 9F94 7B70 7274 7E95"
		$"9B9B A6A1 8364 5D76 8B85 818B 8F7D 655A"
		$"667D 826A 4D4E 739A A18E 7F86 9394 8779"
		$"7D8C 8C7C 798D A6A3 7E5C 5E84 A290 5F43"
		$"5A8B A096 939E 936D 5562 90B5 A167 4758"
		$"88A6 966D 6072 8288 8A90 ACD0 CEA5 7863"
		$"7B9A 9788 8A93 866B 575D 798D 938E 7D65"
		$"575E 7EA4 AB89 604D 5A7D 9893 7862 6677"
		$"807E 7977 7679 869B A698 785E 6280 9B98"
		$"795E 6179 8A93 A1AC 9D7A 5F61 83A2 9F82"
		$"6861 6A71 6E6C 798A 8778 7688 AFD8 D5A4"
		$"6547 5D8B A9AC A38C 694F 5373 9BB1 AD94"
		$"7A65 5F6A 88A6 AF9D 8065 555F 7D91 8A71"
		$"5F5F 666C 6E6F 7480 8A8F 8C80 756E 707A"
		$"8A98 9784 7068 728C AAB4 A587 6A61 758D"
		$"9C9C 8869 4D3C 476B 93A2 8B64 5F80 B0D8"
		$"D39F 5732 447F B8C8 B482 4B34 4F8B BACC"
		$"BE9A 7B6A 6876 8B98 9C98 8B78 625E 728C"
		$"9A90 775E 5459 697C 8A91 8878 7074 7E84"
		$"8682 8188 8A85 8180 848E 9694 8878 6B6D"
		$"8291 9286 776E 655A 5C73 91A0 8F71 697E"
		$"A0BC B892 5C3F 4B7A AFC3 AD72 3828 5195"
		$"C4CD B185 6762 6D7F 8E8F 8A84 7D75 6B6A"
		$"798F A29D 805C 4D58 7592 9E96 7A5A 5774"
		$"97A8 A185 6C6B 778A 999E 988D 7D70 6969"
		$"6E7B 8E94 876F 6673 7E7A 747B 8D9A 917F"
		$"767C 8D9D 9C88 6A57 5D79 9BB0 A070 4238"
		$"598B AFB0 9169 4F4E 5C71 8593 8D70 514F"
		$"6D97 B6B3 9261 444C 75A7 BEB3 8650 3850"
		$"8DC4 DCCA 9767 5158 779A A79E 8F83 796F"
		$"6F7D 909C 9377 5B56 6883 9BA4 987B 5B51"
		$"6687 9C9D 8C7A 7374 7D8A 8F8C 8782 7E7C"
		$"7977 7A85 8C8B 8279 7776 757B 8A9C A295"
		$"8073 7782 8882 7569 6469 788A 948E 7B6A"
		$"6777 8B95 8E7E 6F6B 737E 8380 786B 5F5A"
		$"6375 8794 9487 7160 5D68 7D90 968C 786A"
		$"6B7F 99A8 A284 6455 607F A0AD 9F85 726D"
		$"7584 9298 907D 6A62 6E84 96A0 9D8B 735F"
		$"5B6A 828F 8E86 7D76 7378 8081 7E7E 838A"
		$"8E8B 837A 7A82 8E95 8C7A 6E71 8296 A4A0"
		$"9281 7779 7E76 6A61 6671 797F 807E 8087"
		$"8E90 8C83 7771 7885 9091 8B7F 7670 7177"
		$"7B7B 797A 838F 9791 8373 6768 7175 7677"
		$"7C7D 7670 6F72 7C8D 9CA0 9787 766A 6F7E"
		$"8D95 9285 735F 5459 6A7C 8484 8384 8279"
		$"6F67 5F60 6A7A 8C98 9B90 7C66 5C61 6E7F"
		$"8F97 9891 877E 7979 7B80 8890 9493 8F88"
		$"7F79 7678 7F86 827B 757A 848B 8579 7070"
		$"7985 867E 7371 7477 7A7E 8188 9092 8C82"
		$"7975 7783 9093 8A7C 6C62 5F66 7A90 9D9A"
		$"8773 6561 6772 7F84 8687 8786 8685 8178"
		$"6D67 696F 7782 8E96 9690 8A82 7A75 757C"
		$"8790 9595 8F83 7569 656C 7B83 827E 7E81"
		$"7F76 6C6C 7580 8D91 8B7F 7776 7C82 878B"
		$"8D89 7F73 6B6E 7989 98A0 957D 6554 5360"
		$"799A B5BD AE8A 6248 4357 7795 A4A5 9D8F"
		$"8178 7778 7773 6E6E 6F72 7A87 9195 9491"
		$"887C 716B 6F7B 8994 9892 8473 635C 6372"
		$"7D82 8488 8D8C 837A 777A 7F85 8783 7C79"
		$"7B82 898D 8D88 7F72 6864 6C7C 8D9A 9E95"
		$"826B 5954 5F76 93AA B4AC 9171 574E 586C"
		$"808C 8F8C 847D 7878 7A7B 7A78 7776 7578"
		$"7F85 8887 8683 807B 797B 8089 8D8C 8377"
		$"6A62 616B 7A85 8B8F 9091 8F88 8380 807F"
		$"807F 7E7E 7E81 878D 8F8A 7F72 655F 606C"
		$"7F8F 9899 9285 725E 565F 728B 9FAA A796"
		$"806A 5E5D 6369 7076 7B7D 7E7C 7A77 7474"
		$"777F 8487 8784 7E75 6964 6B7A 8D9C A4A1"
		$"9480 6C5E 5B60 6974 7C82 8485 8380 7D7A"
		$"7A7B 7D7D 7C7C 7D7C 7975 7277 828F 999E"
		$"9990 806F 615C 5F6C 7D8C 969A 9A93 8679"
		$"7170 7277 7C80 868A 8C89 827A 7779 7E83"
		$"898B 8C87 7D72 6B6A 707B 8690 989B 988E"
		$"8178 7677 7A7E 8187 8E92 918C 8278 716D"
		$"6D72 7C87 8F90 8A82 7B74 6F6E 7480 8D98"
		$"9E9F 9B97 9390 887B 6D63 6167 7481 8C90"
		$"8E87 7F7A 7673 7577 7A7A 7C80 8285 8687"
		$"878A 8C8C 8880 786F 6867 6E79 848B 9294"
		$"9289 7A6C 6262 6873 7F8A 9299 9B9B 9791"
		$"867B 7069 676C 7888 959D 9D93 8471 6059"
		$"5E6B 7E8F 9C9F 988C 8077 7577 7778 7878"
		$"7675 7372 7272 7579 7E82 8486 8787 8581"
		$"7C7C 8186 8A8C 8985 7D75 6E6B 6C73 7E89"
		$"9298 9A95 8A7F 7774 7477 7D82 888C 8C8A"
		$"857E 7874 7372 757C 838B 8E8E 8B88 837D"
		$"7979 7B81 878C 9093 9595 938C 8075 6E6D"
		$"727C 868C 8D8A 8682 8181 8486 8888 8584"
		$"8484 878A 8A88 847E 7A76 7579 7F85 8B90"
		$"9496 9795 8F85 7769 5B52 545E 6F82 93A1"
		$"AAAB A69C 9184 7B75 7272 767B 8289 8E90"
		$"8C86 7F79 7675 767A 7E82 8382 8281 8181"
		$"8181 7F7E 7C7B 7875 726F 7071 757A 7F82"
		$"8587 8988 8784 8383 8383 8281 807F 7D7A"
		$"7774 7375 797E 8488 8988 8582 807E 7F82"
		$"8484 8380 7D7B 7A79 7878 7778 7B7F 858C"
		$"9091 908C 8782 7F7D 7E7F 8080 8183 8486"
		$"8787 8887 8483 8281 7E7C 7C7B 7C7F 848B"
		$"9296 9896 928C 8580 7B79 7879 7A7C 8185"
		$"898C 8D8E 8D8A 8A89 8783 807F 7E80 8489"
		$"9197 9C9D 9B97 9189 847E 7975 7270 7276"
		$"7D85 8D93 9898 9795 918C 8781 7B77 7475"
		$"7981 8991 979A 9A97 928C 857E 7771 6D6D"
		$"7077 7F8B 939B 9EA0 9D97 918A 8177 7068"
		$"6567 6D77 838D 979C 9F9D 9890 877E 7671"
		$"6E6F 7378 8086 8C91 9494 928F 8B85 7D77"
		$"6F69 676A 7077 8089 8F94 9693 8F89 827C"
		$"7773 7272 7377 7A7E 8387 8B8D 8D8C 8883"
		$"7D76 706B 6A6B 6B6F 7276 7A7F 8387 8A8C"
		$"8C89 8783 7E79 736D 6968 696D 757E 8992"
		$"9A9E 9F9C 968E 847A 7169 6561 6163 676D"
		$"747D 858D 9499 9B9A 968F 867D 766F 6A68"
		$"6767 696B 6E72 767A 8083 878A 8C8C 8A86"
		$"817E 7B7A 7B7E 8388 8C8F 9190 8F8A 847D"
		$"746A 635C 5856 585D 6571 7D8A 99A4 ACB0"
		$"AFA7 9B8E 8073 6862 5D5C 5C5F 6267 6D74"
		$"7D83 8A8F 9293 918D 8884 807D 7D7F 8285"
		$"888A 8A8A 8986 837E 7974 706C 6A69 6A6D"
		$"7278 7E85 8C92 9698 9896 918B 847B 746E"
		$"6A67 6767 696D 7277 7E85 8A90 9496 9694"
		$"908C 8580 7B78 7674 7474 7577 7A7D 8183"
		$"8586 8787 8685 8483 8180 7F7F 7E7E 7E80"
		$"8184 8585 8480 7D7A 7674 7474 7679 7E82"
		$"868A 8C8F 8F8D 8B88 837D 7670 6B68 6666"
		$"686B 7077 7E84 8A8F 9395 9493 908C 8885"
		$"817F 7D7A 7977 7778 797B 7C7E 8081 8283"
		$"8585 8787 8787 8786 8584 8383 8382 8280"
		$"7E7D 7B7A 7B7B 7C7E 8184 878A 8C8D 8F8F"
		$"8E8C 8985 807A 7470 6D6A 6A6B 6D71 7579"
		$"7E82 8689 8C8D 8E8C 8B89 8683 8280 7D7B"
		$"7979 7877 7878 797B 7D7F 8183 8589 8C8D"
		$"8D8D 8D8C 8986 8481 7E7D 7B7A 7A7A 7B7E"
		$"7F82 8587 8A8E 9193 9495 9492 8E89 847E"
		$"7772 6F6C 6B6B 6C6E 7074 777A 7E81 8487"
		$"8889 8989 8887 8686 8483 8180 7F7D 7B7A"
		$"7979 7979 797A 7B7C 7E80 8283 8587 8989"
		$"8A8A 8A89 8886 8483 8280 807F 7F7F 8082"
		$"8485 8889 8B8B 8B89 8583 7F7B 7876 7474"
		$"7474 7476 7879 7B7D 7F81 8385 8686 8687"
		$"8788 8887 8786 8584 827F 7E7C 7A78 7775"
		$"7372 7272 7376 787C 8085 898D 9092 9392"
		$"918E 8C89 8582 7E7B 7877 7675 7577 797A"
		$"7C7E 8081 8284 8585 8686 8685 8583 8382"
		$"8180 7F80 807F 8082 8384 8586 8789 8A8B"
		$"8B8B 8A89 8785 8280 7D7B 7A79 7979 7979"
		$"7979 7979 7B7C 7D7E 8081 8182 8383 8484"
		$"8383 8382 8180 7F7F 7F7E 7E7D 7C7B 7A7A"
		$"7A7A 7A7B 7D7E 8082 8587 8889 8888 8685"
		$"8381 807E 7C7B 7B7B 7B7B 7D7E 7F80 8182"
		$"8284 8485 8585 8585 8585 8484 8484 8484"
		$"8484 8484 8585 8484 8584 8484 8382 8281"
		$"8181 8080 8082 8182 8283 8381 807F 7D7C"
		$"7979 7878 7879 7A7A 7B7C 7C7D 7D7D 7D7E"
		$"7E7E 7E7F 8082 8383 8485 8584 8382 817F"
		$"7E7D 7C7B 7B7C 7D7D 7E7E 7F7E 7E7D 7D7D"
		$"7D7D 7E7E 7F80 8182 8383 8484 8484 8584"
		$"8383 8281 8181 8182 8182 8282 8181 8080"
		$"8080 8080 8080 00"
#ifdef MacStyle
	}
#endif
};

\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/makefile b/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/makefile
new file mode 100644
index 0000000..761b27e
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/makefile
@@ -0,0 +1 @@
+
CDEV = SOUND

{CDEV} Ä {CDEV}.Load ReqProc.Load {CDEV}.r
	reziigs {CDEV}.r -o {CDEV} -t "C7  " -c "pdos"
	if {AutoDuplicate} == 1
		DuplicateIIGS -y -mac Sound :
	End

{CDEV}.Load Ä {CDEV}.aii.obj {CDEV}Data.aii.obj
	linkiigs -x -lseg sound {CDEV}.aii.obj {CDEV}Data.aii.obj -o {CDEV}.Load 

ReqProc.Load Ä ReqProc.aii.obj makefile
	linkiigs -x -lseg:$1000 MyReqProc ReqProc.aii.obj -o ReqProc.Load

{CDEV}.aii.obj 		Ä {CDEV}Data.aii  {CDEV}.aii  Makefile ::dp.h  ::commonmacros.h
	asmiigs {CDEV}.aii 

{CDEV}Data.aii.obj 		Ä {CDEV}Data.aii  Makefile ::dp.h  ::commonmacros.h
	asmiigs {CDEV}Data.aii 

ReqProc.aii.obj Ä ReqProc.aii 
	asmiigs ReqProc.aii
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/sound.aii b/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/sound.aii
new file mode 100644
index 0000000..f97b658
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/SoundCDEV/sound.aii
@@ -0,0 +1 @@
+; Note--are duplicated in reqproc.  Fix this.
; MapEventToName, FindNamedEntry, ComputeNameHash
; DoWeNeedThisSound

;************************************************************************
;
; Sound Control Panel for System 6.0
;
; Michael V. Stein   02/24/90
; David A. Lyons     1991-92
;
; © Copyright Apple Computer, 1990-1992
; All Rights Reserved
;
;
; 20-Jan-91 DAL
;   Changed stack clean-up code to remove the correct number
;   of bytes (10, not 9).  This bug was masked by the Pascal
;   Control Panel NDA, which accidentally tolerated stack
;   imbalance.
;
; 21-Mar-91 DAL
;   Added a _GetPort during CreateCDEV so it wouldn't get
;   the wrong value for the check-box control handle since
;   the window isn't the front window yet.  Changed the
;   check-box value check to always examine the check box,
;   not the control that was hit (which was sometimes the
;   static text control).
;
; 23-Jun-91 DAL
;   Semi-major rewrite to match my coding style and implement
;   Jim Merritt's new design.  New layout, additional controls
;   for configuring SysBeep2 sounds and recording sounds.
;
; 1-Jul-91 DAL, 2.0b7
;   Commented out stuff on Recording.
;
; 20..21-Oct-91 DAL, 2.0b8
;   Lots of work.
;   Start by using the rTaggedStrings(1) resource to build
;     the Event pop-up.
;
; 28..29-Oct-91 DAL, 2.0b9
;   Fixed double-bonk bugs--scroll bar action procedures don't
;     beep on part-code zero.
;   Optimized a bunch of GetCtlHandleFromID calls into a subroutine.
;   Build the Sounds pop-up & make this sucker work!
;
; 30-Oct-91 DAL
;   Hooks into BELLVECTOR to remap System Beep.
;   Pop-ups are type 2 (type 1 was working poorly since they are not
;     near the top of the screen and can be long).
;   Saves and loads Sound.Settings from *:System:Sounds.
;
; 30-Oct-91 DAL (for 2.0b10 for d56)
;   Made ChainBellVector a global so I can really use it.
;   Fixed FindNamedEntry to return pointer to unassigned entry
;     if you have no sounds.
;   "Standard Beep" now plays when selected from Sound menu.
;   Pitch scroll bar makes standard beep instead of system beep.
;
; 5-Nov-91 DAL (2.0b11 for d57)
;   Added support for asynchronous sounds.  Passes srqHelloWorld
;     to our request proc.
;
; 9-Nov-91 DAL
;   Make direct-page handle load high in bank 0.
;   Copy and Cut put current sound (and its name) onto the clipboard.
;   Return plays the current sound.
;
; 18-Nov-91 DAL (2.0b13 for d58)
;   At boot time, allocates a big temp handle around loading sounds,
;     so we can't accidentally cram RAM full of sounds.
;
; 19-Nov-91 DAL (2.0b14 for d59)
;   Coded the DoWeNeedThisSound routine.
;   CheckForDuplicate does not consider a not-loaded sound to be a dup.
;   Forces sounds to be unlocked and not-purgeable when loaded.
;
; 24-Nov-91 DAL
;   The Sounds menu is now in alphabetical order.
;
; 24-Jan-92 DAL
;   Don't mark the settings file dirty just for popping up the
;     Sounds menu (added curSoundValue).
;   Other changes in ReqProc.aii.
;
;************************************************************************
;
; FUTURE ENHANCEMENTS
;
; Core Features
;   Play sounds even if the Sound Tools are in use, by saving and
;     restoring the state of the sound chip.  Play sounds even
;     under P8, where no bank 0 space is available.
;   Check for a minimum amount of stack space available; don't play
;     sounds if it's not safe.
;
; Human Interface
;   Make arrow keys adjust the scroll bars
;     left/right=volume, command-left/right=pitch
;   Make space bar play the system beep.
;
;************************************************************************
debugSymbols	equ 0

	blanks off

	include '::commonmacros.h'
	include 'all.macros'
	include 'e16.resources'
	include 'e16.locator'
	include 'e16.desk'
	include 'e16.event'

	import SoundAbout

MachineCDEV	equ 1	;called when rebuilding cdev.data to see if cdev should be included
BootCDEV	equ 2	;boot time init call or install call - no params
ShutDownCDEV	equ 3	;reserved for future use
InitCDEV 	equ 4	;called when being shown - data1 equ windowPtr
CloseCDEV 	equ 5	;called when being removed - data1 equ windowPtr
EventsCDEV	equ 6	;called when an event - data1 equ ptr to event record
CreateCDEV	equ 7	;called so that CDEV can create its controls inline - data1 equ window
AboutCDEV 	equ 8	;called so that CDEV can create its about text inline - no params
RectCDEV	equ 9	;called so that CDEV can dynamically compute its rectangle
HitCDEV	equ 10	;called when ctl is "hit" - data1 equ Hdl to Ctl hit, data2 equ Ctl Id
RunCDEV	equ 11	;caled when da run is called
EditCDEV 	equ 12	;called when SystemEdit is called
reserved2 	equ 13	;reserved for future use
reserved3 	equ 14	;reserved for future use
NeverUsed1	equ 15	;this will never be used
NeverUsed2	equ 16	;this will never be used

wantMachine 	equ 1
wantBoot 	equ 2
wantShutDown	equ 4
wantInit	equ 8
wantClose 	equ 16
wantEvents 	equ 32
wantCreate 	equ 64
wantAbout 	equ 128
wantRect 	equ 256
wantHit 	equ 512
wantRun 	equ 1024
wantEdit	equ 2048
updateSSfromBRAM	equ 16384

;
; Sound equates
;
maxpitch 	equ 14	;maximum value of pitch
maxvol	equ 14	;maximum value of volume

;
; Control IDs
;
volumeControlID	equ 1	;volume scroll bar
pitchControlID	equ 2	;pitch scroll bar
visualControlID	equ 5	;visual indication of sounds
eventControlID	equ 9	;Event pop-up menu
soundControlID	equ $A	;Sound pop-up menu

;
; Communication with the Sound Request Procedure
;
srqSetSoundGlobals	equ $8000	;set data from dataIn
srqGetSoundGlobals	equ $8001	;return info at dataIn
;;;srqPlaySoundHandle equ $8002	;test--play dataIn=rSoundSample handle
srqMakeStdBeep	equ $8003	;play a standard beep
srqHelloWorld	equ $8100	;initialize self
;srqGetrSoundSample	equ $0004
;srqSynchronize	equ $0005	;wait for sounds to finish

;---------------------------------------------------------------------
;
; configHandle
;
; configHandle records mappings for all the sounds in the
;   user's active set
;
; The format is exactly like an rTaggedStrings resource, mapping
; from events into strings.
;
; +000: Count
; +002: TagWord1
; +004: PString1
; +xxx: TagWord2
; +yyy: PString2
; +zzz: ...
;
; The strings are the names of Sound resources.
; There are a few special strings:
;   "0" = silence
;   "*" = standard beep
;
;---------------------------------------------------------------------
;
; data structure for soundsHandle
;
; soundsHandle records mappings for all the sounds appearing
;   in the Sound pop-up
;
; IMPORTANT!  The soundsHandle is locked while the Sound pop-up menu
;             exists.  The menu items are pointers into this handle.
;
;---------------------------------------------------------------------
oVersion	equ 0	;zero
oEntryOffset	equ 2	;offset to the entry list
oEntryCount	equ 4	;number of entries following
HEADERSIZE	equ 6
;
; Each entry:
;
oNextEntry	equ 0	;offset to next entry (from here)
oNameHash	equ 2	;quick check against name
oMenuItem	equ 4	;menu item number in Sounds pop-up
oPathOffset	equ 6	;offset from entry to pathname (WString) (or zero)
oNameOffset	equ 8	;offset from entry to resname (PString) (or zero)
oSoundData	equ 10	;long sound data (for ex, handle to sound sample)
ENTRYSIZE	equ 14	;(not including strings!)

;
; Values for Binding field (these match the menu item
; numbers for the first 3 items in the Sound pop-up).
;
itemNotAssigned	equ 1
itemSilence	equ 2
itemStandardBeep	equ 3

;
; stack equates for special action procedures:
;
handleid	equ 4+1	;offset of handleid on stack
part	equ handleid+4	;offset to part on stack

;
; battery parameter values.
;
aug_param	equ $5e	;bit 0 set means no closed captioning
pitch_param	equ $1f	;battery parameter to set pitch
volume_param	equ $1e	;battery parameter to set volume

*************************************************************************
*
* Sound Control Panel -- MAIN CDEV ENTRY POINT
*
* At this point, the stack contains:
*
* 14..17,s  LONG  Result Space
* 12..13,s  WORD  Message
* 08..11,s  LONG  Data1
* 04..07,s  LONG  Data2
* 01..03,s     RTL
*
*************************************************************************
SoundCP	procname export
	phb	;save calling data bank
	phk
	plb

	phd
	tsc
	tcd

oldD	equ 1
oldB	equ oldD+2
rtlAddr	equ oldB+1
data2	equ rtlAddr+3
data1	equ data2+4
message	equ data1+4
result	equ message+2

	lda <message
	asl a
	tax
	cmp #DispatchEnd-Dispatch
	bcs @ignore
	jsr (Dispatch,x)
@ignore

	pld
	plb

	lda 1,s
	sta 1+10,s	;move low word of return address
	lda 2,s
	sta 2+10,s	;move high word of return address (overlaps)
	ply
	ply
	ply
	ply
	ply	;pull ten bytes of input parameters

	rtl

Dispatch	dc.w ignore 	; 0 = reserved
	dc.w ignore	; 1 = MachineCDEV
	dc.w doBoot	; 2 = BootCDEV
	dc.w ignore	; 3 = reserved
	dc.w doInit	; 4 = InitCDEV
	dc.w doClose	; 5 = CloseCDEV
	dc.w doEvent	; 6 = EventsCDEV
	dc.w doCreate	; 7 = CreateCDEV
	dc.w doAbout	; 8 = AboutCDEV
	dc.w ignore	; 9 = RectCDEV
	dc.w doHit	;10 = HitCDEV
	dc.w doRun	;11 = RunCDEV
	dc.w doEdit	;12 = EditCDEV
DispatchEnd

*************************************************************************
ignore	rts
*************************************************************************

*************************************************************************
*
* doBoot -- handle BootCDEV message
*
*************************************************************************
doBoot	name
	pha
	_QDVersion
	pla
	and #$0fff
	cmp #$0307	;QD 3.7 is on 6.0
	bcs @goodQDversion
	_SysBeep
	rts

@goodQDversion	jsr InstallReqProc

*** 29-Oct-91 DAL -- if we're a duplicate copy, X out our icon
	bcc @ok
	lda #1
	sta [<data1]	;store into result flag
	rts
@ok
;
; Load the Sound.Settings file, or create an empty handle
;
	jsr LoadSettings

;
; Build data structure of sounds!
;
*** added 18-Nov-91 DAL -- allocate big temp handle to avoid cramming RAM full of sounds
	pha
	pha
	pushlong #$050000	;big temp handle!
	pha
	_MMStartUp	;my id
	pea 0	;attributes
	phx
	phx	;ignored
	_NewHandle
*** end 18-Nov-91 DAL
	jsr ScanForSounds	;input: SEC if short on RAM
	_DisposeHandle	;kill temp handle (18-Nov-91 DAL)

;
; tell the Request Procedure about our new soundsHandle
;
	jsr SetSoundGlobals

	rts
*** end 29-Oct-91

*************************************************************************
*
* LoadSettings
*
* Load Sound.Settings from disk, or create an empty settings handle.
*
*************************************************************************
LoadSettings	name
	stz configIsDirty
	lda #$0001	;read/write
	jsr OpenSettings
	bcs @createEmpty

	_GetEOFGS getEOFparms
	bcs @ouch

	ldy theEOF+2
	ldx theEOF
	sty rwReqCount+2
	stx rwReqCount
	jsr MakeConfigHandleYX

	jsr LockAndDerefConfig
	sta rwWhere+2
	stx rwWhere
	_ReadGS rwSettingsParms

@ouch	pha	;save error code
	jsr UnlockConfig
	jsr CloseSettings
	pla
	cmp #1	;sec if error
	bcs @createEmpty
	rts


@createEmpty	jsr MakeEmptyConfigHandle
	clc
	rts

getEOFparms	dc.w 2
settingsRef5	dc.w 0
theEOF	dc.l 0

*************************************************************************
*
* SaveSettings
*
* Save Sound.Settings to disk if necessary.
*
* Exit with SEC/A=error if there was a problem.
*
*************************************************************************
SaveSettings	name
	lda configIsDirty
	beq @notDirty

	_CreateGS CreateSettingsParms
	bcc @created

	cmp #$0047	;duplicate file is okay
	beq @created
	sec
	rts

@created	lda #$0003	;read/write
	jsr OpenSettings
	bcs @exit

	_SetEOFGS emptySettings

	pha
	pha
	pushlong configHandle
	_GetHandleSize
	pla
	sta rwReqCount
	pla
	sta rwReqCount+2

	jsr LockAndDerefConfig
	sta rwWhere+2
	stx rwWhere
	_WriteGS rwSettingsParms

	pha	;save error code
	jsr UnlockConfig
	jsr CloseSettings
	pla
	sta configIsDirty	;still dirty if we got an error
	cmp #1	;sec if error
@exit
@notDirty	rts


OpenSettings	sta settingsAccess
	_OpenGS OpenSettingsParms
	bcs @exit
	lda settingsRef
	sta settingsRef2
	sta settingsRef3
	sta settingsRef4
	sta settingsRef5
@exit	rts

CloseSettings	_CloseGS CloseSettingsParms
	rts

*************************************************************************
*
* LockAndDerefConfig
*
* Returns:  AX = address of config buffer
*
*************************************************************************
LockAndDerefConfig	name
	phd
	pushlong configHandle
	tsc
	tcd
	ldy #4
	lda [1],y
	ora #$8000
	sta [1],y	;locked handle
	lda [1]
	tax	;low word in X
	dey
	dey	;Y=2
	lda [1],y	;high word in A
	ply
	ply
	pld
	rts

*************************************************************************
*
* UnlockConfig
*
*************************************************************************
UnlockConfig	name
	pushlong configHandle
	_HUnlock
	rts

*************************************************************************

CreateSettingsParms	dc.w 4
	dc.l SettingsPath
	dc.w $00C3	;unlocked
	dc.w $005A	;config file
	dc.l 0	;no auxtype for now

OpenSettingsParms	dc.w 3
settingsRef	dc.w 0
	dc.l SettingsPath
settingsAccess	dc.w 0

rwSettingsParms	dc.w 4
settingsRef2	dc.w 0
rwWhere	dc.l 0
rwReqCount	dc.l 0
rwXferCount	dc.l 0

CloseSettingsParms	dc.w 1
settingsRef3	dc.w 0

SettingsPath	dc.w 30
	dc.b '*:System:Sounds:Sound.Settings'

emptySettings	dc.w 3
settingsRef4	dc.w 0
	dc.w 0	;base=0 (absolute)
	dc.l 0	;displacement=0

*************************************************************************
*************************************************************************
*
* handle CreateCDEV message
*
*************************************************************************
doCreate	name

*** ### for debugging, so we don't need to get BootCDEV
	lda myProcMemID
	bne @nonzero
	pha
	_MMStartUp
	pla
	ora #$0e00
	sta myProcMemID
@nonzero
*** ### for debugging, so we don't need to get BootCDEV

	jsr GetSoundGlobals

	pha
	pha	;space for NewControl2 result
	pei <data1+2
	pei <data1	;window pointer
	pea 9	;control list resource
	pushlong #1	;ID of my control list
	_NewControl2
	pla
	pla	;ignore result

	lda #soundControlID
	jsr GetControlByID
	pla
	sta soundMenuHandle
	pla
	sta soundMenuHandle+2

	lda #eventControlID
	jsr GetControlByID
	pla
	sta eventMenuHandle
	pla
	sta eventMenuHandle+2

	jsr BuildEventPopUp

	rts

soundMenuHandle	dc.l 0
eventMenuHandle	dc.l 0

*************************************************************************
*************************************************************************
*
* BuildEventPopUp
*
* Add items to the Event pop-up from the rTaggedStrings(1) resource.
*
* <data1 is window pointer.  Controls have already been created.
*
*************************************************************************
BuildEventPopUp	name
	pha
	pha
	_GetMenuBar
	lda #eventControlID
	jsr GetControlByID
	_SetMenuBar	;menu bar is set to my pop-up

	pha
	pha	;space for LoadResource
	pea rTaggedStrings
	pushlong #1
	_LoadResource	;this is locked and fixed
	plx
	ply
	bcs @err

	phd
	phy
	phx
	tsc
	tcd
@ptr	equ 1

	ldy #4
	lda [<@ptr],y
	ora #$8000
	sta [<@ptr],y	;lock it, just to be paranoid
	dey
	dey
	lda [<@ptr],y
	tax
	lda [<@ptr]
	sta <@ptr
	stx <@ptr+2

	lda [<@ptr]
	beq @addDone
	sta @count
	lda #2
	jsr @bumpPtr	;skip past count field

@addOne	lda [<@ptr]
	sta itemID
	lda #2
	jsr @bumpPtr

	lda <@ptr+2
	ldy <@ptr
	sta namePtr+2
	sty namePtr

	pea 0	;template is pointer
	pushlong #itemTemplate
	pea $ffff	;add at end
	pea 1	;menu id
	_InsertMItem2

	lda [<@ptr]
	and #$00ff
	inc a
	jsr @bumpPtr	;skip past pstring

	dec @count
	bne @addOne

@addDone	lda #0
	pha	;width
	pha	;height
	inc a
	pha	;menu id within pop-up
	_CalcMenuSize

	pla
	pla	;discard ptr
	pld

@err	_SetMenuBar
	rts

@bumpPtr	clc
	adc <@ptr
	sta <@ptr
	bcc @p1
	inc <@ptr+2
@p1	rts

@count	dc.w 0

itemTemplate	dc.w 0	;version
itemID	dc.w 0
	dc.b 0,0	;key equivs
	dc.w 0	;check character
	dc.w 0	;item flag
namePtr	dc.l 0


*************************************************************************
*************************************************************************
*
* BuildSoundPopUp
*
* Determine what sounds are available and add their names to the Sound
* pop-up.
*
* <data1 is window pointer.  Controls have already been created.
*
* This LOCKS soundsHandle, and it must stay locked until the Sound
* pop-up is gone.
*
*************************************************************************
BuildSoundPopUp	name
	clc	;18-Nov-91 DAL -- not short on RAM
	jsr ScanForSounds

	pha
	pha
	_GetMenuBar
	lda #soundControlID
	jsr GetControlByID
	_SetMenuBar	;menu bar is set to my pop-up

	phd
	pushlong soundsHandle
	pha
	pha	;space for entry pointer
	pha
	pha	;space for @sort
	tsc
	tcd

@sort	equ 1
@entry	equ @sort+4
@soundPtr	equ @entry+4

	ldy #4
	lda [<@soundPtr],y
	ora #$8000
	sta [<@soundPtr],y	;lock the soundsHandle
	dey
	dey
	lda [<@soundPtr],y
	tax
	lda [<@soundPtr]
	sta <@soundPtr
	stx <@soundPtr+2

	ldy #oEntryCount
	lda [<@soundPtr],y
	beq @noSounds

	jsr @sortEntries
	bcs @noSounds

@insertOneSound	jsr @pointAtNextEntry
	bcs @noMoreEntries

	ldy #oMenuItem
	lda [<@entry],y
	sta itemID

	clc
	lda <@entry
	ldy #oNameOffset
	adc [<@entry],y
	sta namePtr
	lda <@entry+2
	adc #0
	sta namePtr+2

	pea 0	;template is pointer
	pushlong #itemTemplate
	pea $ffff	;add at end
	pea 1	;menu id
	_InsertMItem2
	bra @insertOneSound

@noMoreEntries	jsr @cleanUpAfterSort  ;24-Nov-91 DAL
	bra @calcSize
;
; If there are no sounds, kill the dividing line at the
; bottom of the Sound pop-up.
;
@noSounds	pea $F001
	_DeleteMItem

@calcSize	lda #0
	pha	;width
	pha	;height
	inc a
	pha	;menu id within pop-up
	_CalcMenuSize

	ply
	ply	;discard @sort
	ply
	ply	;discard entry ptr
	ply
	ply	;discard sound data pointer
	pld

	_SetMenuBar

	rts

*************************************************************************
*
* sortEntries
*
* Input:  @soundPtr points to soundsHandle data
*         @entry points to first entry
*
* Output: SEC if something's wrong
*
* On exit, we're prepared for pointAtNextEntry to be called
* repeatedly to walk all sounds alphabetically.
*
*************************************************************************
@sortEntries	clc	; point @entry at first entry
	ldx <@soundPtr+2
	lda <@soundPtr
	ldy #oEntryOffset
	adc [<@soundPtr],y
	bcc @1
	inx
@1	sta <@entry
	stx <@entry+2

	ldy #oEntryCount
	lda [<@soundPtr],y
	asl a
	asl a
	sta @maxIndex
	pha
	pha	;space for NewHandle
	pea 0
	pha	;entry*4 = size
	lda myProcMemID
	pha
	pea $C000	;locked and fixed
	pha
	pha	;ignored
	_NewHandle
	plx
	ply
	sty @sortHandle+2
	stx @sortHandle
	bcs @exit

	sty @sort+2
	stx @sort
	ldy #2
	lda [@sort],y
	tax
	lda [@sort]
	sta <@sort
	stx <@sort+2

*** make a list of all the entry pointers
	ldy #0	;index into @sort data
@stuffOnePtr	lda <@entry
	sta [<@sort],y
	iny
	iny
	lda <@entry+2
	sta [<@sort],y
	iny
	iny

	clc
	lda <@entry
	adc [<@entry]
	sta <@entry
	bcc @noRoll
	inc <@entry+2
@noRoll	cpy @maxIndex
	bcc @stuffOnePtr

*** now do a surrogate bubble sort on the entry pointers, key=name field
@nextPass	stz @swapFlag
	jsr @oneBubblePass
	lda @swapFlag
	bne @nextPass

	stz @sortIndex
	clc
@exit	rts

*
* oneBubblePass -- set swapFlag if we do any swaps
*
@oneBubblePass	ldy #0
@compareOne	phy
	iny
	iny
	iny
	iny
	cpy @maxIndex
	ply
	bcs @passDone

	phy	;save index

	pha	;space for CompareStrings
	pea 0	;flags (reserved)
	jsr @PushNamePtr
	jsr @PushNamePtr
	_CompareStrings
	pla
	bmi @noSwap
	beq @noSwap	;shouldn't happen, but just in case
	ply
	phy
	jsr @swap2

@noSwap	ply
	iny
	iny
	iny
	iny
	bra @compareOne

@passDone	rts

*
* PushNamePtr -- push name of entry at [@sort],y and
* point Y at next entry pointer
*
@PushNamePtr	pla
	sta @rts
	lda [<@sort],y
	sta <@entry
	iny
	iny
	lda [<@sort],y
	sta <@entry+2
	iny
	iny
	sty @yTemp
	ldy #oNameOffset
	clc
	lda <@entry
	adc [<@entry],y
	tax
	iny
	iny
	lda <@entry+2
	adc #0
	pha
	phx
	ldy @yTemp
	lda @rts
	pha
	rts

@yTemp	dc.w 0
@rts	dc.w 0

*
* swap2 -- swap entries at [@sort],y and [@sort],y+4
*
@swap2	phy
	jsr @swapWordY
	iny
	iny
	jsr @swapWordY
	ply
	inc @swapFlag
	rts
*
* swapWordY -- exchange word at [@sort],y with word at [@sort],y+4
*
@swapWordY	lda [<@sort],y
	pha
	iny
	iny
	iny
	iny
	lda [<@sort],y
	tax
	pla
	sta [<@sort],y
	dey
	dey
	dey
	dey
	txa
	sta [<@sort],y
	rts

@swapFlag	dc.w 0

*************************************************************************
*
* pointAtNextEntry
*
* Output: SEC if there are no more entries
*
*************************************************************************
@pointAtNextEntry	lda @sortIndex
	tay
	inc a
	inc a
	inc a
	inc a
	sta @sortIndex
	cpy @maxIndex
	bcs @nextExit
	lda [<@sort],y
	sta <@entry
	iny
	iny
	lda [<@sort],y
	sta <@entry+2
	clc
@nextExit	rts

@sortHandle	dc.l 0
@sortIndex	dc.w 0	;walks through sortHandle
@maxIndex	dc.w 0

*************************************************************************
*
* cleanUpAfterSort
*
*************************************************************************
@cleanUpAfterSort	lda @sortHandle+2
	pha
	lda @sortHandle
	pha
	_DisposeHandle
	stz @sortHandle+1
	rts

*************************************************************************
*************************************************************************
*
* ScanForSounds
*
* INPUT:
*   SEC if we are way short on memory.
*
* Look through all the rSoundSample resources in *:System:Sounds, and
* add them to soundsHandle if they aren't already there.
*
* If soundsHandle is NIL, we need to create it.
*
*************************************************************************
ScanForSounds	name
	php
	jsr CreateSoundsHandle  ;make empty handle if needed
	plp
	bcs @exit

	lda #8
	jsr getPfx
	phy
	phx	;preserve prefix 8
	lda #0
	jsr getPfx
	phy
	phx	;preserve prefix 0

	_SetPrefixGS setZeroNull
	_SetPrefixGS setEightSoundsDir

	jsr OpenDirectory
	bcs @fail

@next	jsr GetNextSoundFile
	bcs @done
	jsr ScanOneFile
	bra @next

@done	_CloseGS CloseSoundsDir
@fail	plx
	ply
	lda #0
	jsr setPfx	;restore prefix 0
	plx
	ply
	lda #8
	jsr setPfx	;restore prefix 8
@exit	rts

*************************************************************************
*
* CreateSoundsHandle
*
* If soundsHandle is NIL, try to create it.  Initialize it to show
* we know about zero sounds.
*
*************************************************************************
CreateSoundsHandle	name
	lda soundsHandle+1
	bne @exists
	pha
	pha	;space for NewHandle
	pushlong #HEADERSIZE
	lda myProcMemID
	pha
	pea 0	;attributes = unlocked
	pha
	pha	;ignored
	_NewHandle
	plx
	ply
	bcs @exit
	sty soundsHandle+2
	stx soundsHandle
;
; initialize soundsHandle
;
	phd
	phy
	phx
	tsc
	tcd
	ldy #2
	lda [1],y
	tax
	lda [1]
	sta <1
	stx <3
	lda #0
;;;	ldy #oVersion	;zero
	sta [1]	;set Version = 0
	ldy #oEntryCount
	sta [1],y	;set EntryCount = 0
	ldy #oEntryOffset
	lda #HEADERSIZE
	sta [1],y	;set EntryOffset to HEADERSIZE
	ply
	ply
	pld
@exit
@exists	rts


*******************************************************************************
*
* OpenDirectory
*
*******************************************************************************
OpenDirectory	name
	_OpenGS OpenSoundsDir
	bcs @done
	lda dirRef
	sta dirRef2
	sta dirRef3
@done	rts

*******************************************************************************
*
* GetNextSoundFile
*
*******************************************************************************
GetNextSoundFile	name
	_GetDirEntryGS GetDirEnt
	bcs @err
	lda entFlags
	bpl GetNextSoundfile  ;go back for an Extended one!
	clc	;success
@err	rts


*************************************************************************
*
* Scan one file for sounds
*
* Find all the named rSoundSample resources
*
* Input:
*   Prefix 8 is already set to the sound directory
*   Filename of an extended file is in theFileName
*   soundsHandle exists
*
*************************************************************************
ScanOneFile	name
	pha
	_GetCurResourceFile

*** open resource file
	pha	;space for result
	pea $8001	;no-preload, read-only
	pea 0
	pea 0	;map handle
	pushlong #theFileName
	_OpenResourceFile
	plx	;resource file id
	stx @thisResfile
	bcs @doneWithFile

	pha
	jsr CountSounds
	pla
	sta @numSounds
	beq @didThemAll

	_ExpandPathGS expandParms

	lda #1	;first resource
@nextSound	pha

; get indexed sound
	jsr GetAthSoundID	;return ID in AX
	sta thisSoundID+2
	stx thisSoundID

; get its name
	pea rSoundSample
	pha
	phx
	pushlong #resNameBuffer
	_RMGetResourceName
	bcs @doneWithOneRes

; add sound to the list
	jsr MergeOneSound	;takes resNameBuffer, thisSoundID, theFileName

@doneWithOneRes	pla
	inc a
	dec @numSounds
	bne @nextSound

@didThemAll	lda @thisResFile
	pha
	_CloseResourceFile

@doneWithFile	_SetCurResourceFile
	rts

@numSounds	dc.w 0
@thisResFile	dc.w 0

thisSoundID	dc.l 0
resNameBuffer	ds.b 256

resNameHash	dc.w 0

expandParms	dc.w 3
	dc.l theFileName
	dc.l fileNameBuff
	dc.w 0

*******************************************************************************
*
* CountSounds -- set file depth to 1 and count the rSoundSample resources
*
* Result is on stack (caller passed a word of space)
*
*******************************************************************************
CountSounds	name
	pha	;result space for restoring depth
	pha	;space for old depth
	pea 1
	_SetResourceFileDepth  ;leave old depth on stack

	pha
	pha	;space for result
	pea rSoundSample
	_CountResources
	pla
	plx
	sta 7,s	;past 2 data words & RTS address

	_SetResourceFileDepth
	pla
	rts


*******************************************************************************
*
* GetAthSoundID -- set file depth to 1 and get the Ath rSoundSample resource
*
* Result ID is in AX
*
*******************************************************************************
GetAthSoundID	name
	pha	;preserve

	pha	;space for old depth
	pea 1
	_SetResourceFileDepth  ;leave old depth on stack
	pla
	sta @oldDepth

	pla	;restore passed value to A

	pha
	pha	;space for result
	pea rSoundSample
	pea 0	;high word of index
	pha	;low word of index
	_GetIndResource	;leave on stack until we exit

	pha
	lda @oldDepth
	pha
	_SetResourceFileDepth
	pla

	plx
	pla	;pull GetIndResource result
	rts

@oldDepth	dc.w 0


*******************************************************************************
*
* muck with prefixes 0 and 8
*
*******************************************************************************

setZeroNull	dc.w 2
	dc.w 0
	dc.l nullPath

nullPath	dc.w 0

setEightSoundsDir	dc.w 2
	dc.w 8
	dc.l SoundsDirPath

SoundsDirPath	dc.w 15
	dc.b '*:System:Sounds'



OpenSoundsDir	dc.w 3
dirRef	dc.w 0
	dc.l SoundsDirPath
	dc.w $0001	;read only

CloseSoundsDir	dc.w 1
dirRef3	dc.w 0

GetDirEnt	dc.w 13
dirRef2	dc.w 0
entFlags	dc.w 0,1,1	;flags, base, displacement
	dc.l fileNameBuff
	dc.w 0	;entry num
entType	dc.w 0	;filetype
	dc.l 0	;eof
	dc.l 0	;blocks
entCreateDate	dc.l 0,0	;create date/time
entModDate	dc.l 0,0	;mod date/time
	dc.w 0	;access
entAuxType	dc.l 0	;auxtype

fileNameBuff	dc.w 258
theFileName	ds.b 256

*************************************************************************
*
* MergeOneSound
*
* Input:
*   Resource name in resNameBuffer (PString)
*   rSoundSample ID in thisSoundID (long)
*   Filename in theFileName (WString)
*
* Output:
*   none (adds sound to soundsHandle if possible)
*
*************************************************************************
MergeOneSound	name
	jsr CheckForDuplicate
	bcc @notDuplicate
@exit	rts
@notDuplicate

	jsr LoadSoundIfNeeded
	sta thisSoundHandle+2
	stx thisSoundHandle

*** 19-Nov-91 DAL -- if name already has an entry, just stuff the handle
	jsr FindNamedEntry
	bcs @createNewEntry
	phd
	pha
	phx
	tsc
	tcd
	ldy #oSoundData+2
	lda thisSoundHandle+2
	sta [1],y
	lda thisSoundHandle
	dey
	dey
	sta [1],y
	ply
	ply
	pld
	rts
*** end 19-Nov-91 DAL

@createNewEntry	phd
	pushlong soundsHandle
	tsc
	tcd

@entry	equ 1
@handle	equ @entry	;same thing!

; compute size needed for new entry (ENTRYSIZE + resNameBuffer+1 + theFileName+2)
	clc
	lda resNameBuffer
	and #$00ff
	adc theFileName
	adc #ENTRYSIZE+1+2	;1 for pstring + 2 for wstring
	sta sizeNeeded

; grow soundsHandle by needed size
	pha
	pha
	pei <@handle+2
	pei <@handle
	_GetHandleSize	;leave size on stack

	clc
	lda 1,s
	adc sizeNeeded
	tax
	lda 3,s
	adc #0
	pha
	phx
	pei <@handle+2
	pei <@handle
	_SetHandleSize
	bcc @ok
	brk $42	;@@@ (later)
@ok
; deref handle, grab entry count, and increment it
	lda [<@handle]
	tax
	ldy #2
	lda [<@handle],y
	sta <@handle+2
	stx <@handle

	ldy #oEntryCount
	lda [<@handle],y
	sta prevNumEntries
	inc a
	sta [<@handle],y

; compute pointer to new entry
	clc
	pla	;add old size
	adc <@handle
	sta <@entry
	pla
	adc <@handle+2
	sta <@entry+2

; store new entry length
	lda sizeNeeded
	sta [<@entry]	;oNextEntry

; store name hash
	jsr ComputeNameHash
	ldy #oNameHash
	sta [<@entry],y
; store menu id
	ldy #oMenuItem
	lda prevNumEntries
	clc
	adc #$1000	;number the items from $1000+
	sta [<@entry],y

; store path offset
	ldy #oPathOffset
	lda #ENTRYSIZE
	sta [<@entry],y

; store name offset
	clc
	adc theFileName
	inc a
	inc a
	ldy #oNameOffset
	sta [<@entry],y

; store sound data
	ldy #oSoundData
	lda thisSoundHandle
	sta [<@entry],y
	iny
	iny
	lda thisSoundHandle+2
	sta [<@entry],y

; store pathname
	pushlong #theFileName  ;source
	clc
	lda <@entry
	ldy #oPathOffset
	adc [<@entry],y
	tax
	lda <@entry+2
	adc #0
	pha
	phx	;destination
	pea 0	;high word of size
	lda theFileName
	inc a
	inc a	;low word of size
	pha
	_BlockMove

; store resource name
	pushlong #resNameBuffer
	clc
	lda <@entry
	ldy #oNameOffset
	adc [<@entry],y
	tax
	lda <@entry+2
	adc #0
	pha
	phx
	pea 0
	lda resNameBuffer
	and #$00ff
	inc a
	pha
	_BlockMove

	ply
	ply	;discard entry pointer
	pld
	rts

thisSoundHandle	dc.l 0
sizeNeeded	dc.w 0
prevNumEntries	dc.w 0

*************************************************************************
*
* CheckForDuplicate
*
* Input:  sound name in resNameBuffer
*
* Output: SEC if we already have a sound with this name
*
*************************************************************************
CheckForDuplicate	name

	jsr FindNamedEntry
	bcs @fine	;not found--that's good

*** 19-Nov-91 DAL -- don't count a nil-handle entry as a duplicate
	phd
	pha
	phx
	tsc
	tcd
	ldy #oSoundData+1
	lda [1],y
	ply
	ply
	pld
	tax
	beq @fine
*** end 19-Nov-91

	sec	;oops, we found a duplicate
	rts

@fine	clc	;return not-duplicate
	rts

*************************************************************************
*
* LoadSoundIfNeeded
*
* Input:  sound name in resNameBuffer, ID in thisSoundID
*
* Output:  handle in AX (NIL if not needed or error)
*
*************************************************************************
LoadSoundIfNeeded	name
	jsr DoWeNeedThisSound
	bcs @notNeeded

	pha
	pha	;space for LoadResource
	pea rSoundSample
	pushlong thisSoundID
	_LoadResource
	plx
	ply
	bcs @error

	phy
	phx	;copy to return

*** added 19-Nov-91 DAL -- force sounds unlocked and not-purgeable
	phy
	phx	;preserve YX
	pea 0	;purge level
	phy
	phx	;handle for SetPurge
	phy
	phx	;handle for HUnlock
	_HUnlock
	_SetPurge
	plx
	ply	;restore YX
*** end 19-Nov-91 DAL

	pha	;space for result
	lda myProcMemID
	pha
	phy
	phx
	_SetHandleID
	pla	;discard old ID

	pea rSoundSample
	pushlong thisSoundID
	_DetachResource

	plx
	pla	;return handle in AX
	rts

@notNeeded
@error	lda #0
	tax
	rts


*************************************************************************
*
* DoWeNeedThisSound
*
* Input:  resNameBuffer (sound name, PString)
*
* Output: SEC if we don't need this sound
*         CLC if we need this sound
*
* The sounds we need are the ones in configHandle (any sound currently
* bound to any event).
*
;---------------------------------------------------------------------
;
; configHandle
;
; configHandle records mappings for all the sounds in the
;   user's active set
;
; The format is exactly like an rTaggedStrings resource, mapping
; from events into strings.
;
; +000: Count
; +002: TagWord1
; +004: PString1
; +xxx: TagWord2
; +yyy: PString2
; +zzz: ...
;
*************************************************************************
DoWeNeedThisSound	name
	phd
	pushlong configHandle
	tsc
	tcd

@temp	equ 1

	ldy #2
	lda [<@temp]
	tax
	lda [<@temp],y
	sta <@temp+2
	stx <@temp

	lda [<@temp]
	sta @count
	beq @notNeeded
	lda #4
	jsr @bumpTemp

@check1	pushlong #resNameBuffer
	pei <@temp+2
	pei <@temp
	jsr ComparePStrings
	bcc @exit	;equal!

	lda [<@temp]
	and #$00ff
	inc a
	inc a
	inc a
	jsr @bumpTemp
	dec @count
	bne @check1

@notNeeded	sec
@exit	ply
	ply
	pld
	rts

@bumpTemp	clc
	adc <@temp
	sta <@temp
	bcc @1
	inc <@temp+2
@1	rts

@count	dc.w 0

*************************************************************************
*
* ComputeNameHash
*
* Input:  pstring in resNameBuffer
*
* Output: A, resNameHash
*
*************************************************************************
ComputeNameHash	name
;@@@ (provide a useful hashing function later)
	lda #$BEEF
	sta resNameHash
	rts


*************************************************************************
*
* getPfx - retrieves current prefix for the supplied
* prefix number.  The handle to the stored prefix is
* returned to the caller.
*
* on entry:
*     Acc = prefix number
*
* on exit:
*     X, Y = handle of stored prefix (low,high)
*
*************************************************************************

getPfx	name

@tmpPtr	equ $01
@pfxHndl	equ $05 	;handle to stored prefix

	sta prefixNum	;put prefix number in parmblock (for later)
	pha	;make space for temp pointer
	pha
	pha	;and prefix handle
	pha
	tsc	;make stack frame
	phd
	tcd
	
	pha	;make space for NewHandle call
	pha
	pea 0	;size of block to create
	pea 256	;we'll try 256 bytes at first
	lda myProcMemID
	pha
	pea $8010	;attributes
	pha	;location pointer
	pha	;(not used)
	_NewHandle	;go get some memory
	pla	;retreive handle
	plx
	bcc @got_mem
@memerr
	lda #0
	pha	;oops!  put up an ErrorWindow
	pha	;subString type (not used)
	pha	;subStringPtr (not used)
	pha
	pea $8D	;"Memory is full"
	bra @showErr

@got_mem
	sta @pfxHndl	;save for return to caller
	stx @pfxHndl+2

	ldy #2	;dereference handle
	lda [@pfxHndl]
	sta @tmpPtr
	sta bufPtr
	lda [@pfxHndl],y
	sta @tmpPtr+2
	sta bufPtr+2
	lda #256	;initialize length of buffer
	sta [@tmpPtr]

	lda #2	;set up parm block
	sta pCount	;prefixNum set up above

@try_again
	_GetPrefixGS parmBlock	;get the current prefix
	bcc @got_prefix	;no error, continue
	cmp #$4f	;buffer too small?
	beq @grow_buf	;yes, grow the buffer and try again
	pha	;else just puke!
	pea 0	;subString type (not used)
	pea 0	;subStringPtr (not used)
	pea 0
	pha	;put error code on stack
@showErr
	_ErrorWindow
	pla	;;retrieve button number
	sec	;we had a problem
	bra @exit	;just exit

@grow_buf
	ldy #2
	lda [@tmpPtr],y	;get returned length word
	clc
	adc #4	;allow for length words
	pha	;save new length on stack
	pea 0	;high word of new size allocation
	pha	;low word of length
	pei @pfxHndl+2	;put handle on stack
	pei @pfxHndl
	ldy #4	;unlock the handle first
	lda [@pfxHndl],y
	and #$7FFF
	sta [@pfxHndl],y
	_SetHandleSize	;make the block bigger
	bcs @memerr	;abort on error

	ldy #4	;lock it down again
	lda [@pfxHndl],y
	ora #$8000
	sta [@pfxHndl],y

	ldy #2	;dereference handle again
	lda [@pfxHndl]
	sta @tmpPtr
	sta bufPtr
	lda [@pfxHndl],y
	sta @tmpPtr+2
	sta bufPtr+2
	pla	;retrieve new length of buffer
	sta [@tmpPtr]	;store in buffer
	bra @try_again	;go try again

@got_prefix
	ldy #4	;unlock the handle
	lda [@pfxHndl],y
	and #$7FFF
	sta [@pfxHndl],y
	
	pea 0	;high word of new size allocation
	ldy #2
	lda [@tmpPtr],y	;get the length of the returned string
	clc
	adc #4	;include length words
	pha	;put on stack for call
	pei @pfxHndl+2
	pei @pfxHndl
	_SetHandleSize	;resize the handle so it's just the right size

	ldy @pfxHndl+2	;return handle to caller
	ldx @pfxHndl
	clc	;no error
@exit
	pld	;clean up stack frame
	pla
	pla
	pla
	pla
	rts


*************************************************************************
*
* setPfx - restore prefix to it's original value
*
* on entry:
*    Acc = prefix number
*    X,Y = handle to stored prefix
*
*************************************************************************

setPfx	name
@tmpPtr	equ $01

	sta prefixNum	;save prefix number in parm block
	pha	;make space on stack for temp pointer
	pha
	tsc	;make stack frame
	phd
	tcd

	lda #2	;2 parms for SetPrefix call
	sta pCount

	stx @tmpPtr
	sty @tmpPtr+2
	ldy #2	;dereference handle to prefix string
	lda [@tmpPtr]	;but set pointer to length
	clc	;word within buffer
	adc #2
	sta bufPtr
	lda [@tmpPtr],y
	adc #0
	sta bufPtr+2

	_SetPrefixGS parmBlock

	pei <@tmpPtr+2
	pei <@tmpPtr
	_DisposeHandle

	pld	;clean up stack
	pla
	pla
	rts

parmBlock
pCount	dc.w 0
prefixNum	dc.w 0
bufPtr	dc.l 0

*************************************************************************
*************************************************************************
*
* handle AboutCDEV message
*
*************************************************************************
doAbout	name
	pha	;space for NewControl2 result
	pha
	pei <data1+2
	pei <data1	;window pointer
	pea 0	;next item is a control pointer
	pushl #soundAbout
	_NewControl2
	pla
	pla	;don't care about result
	rts

*************************************************************************
*************************************************************************
*
* doRun
*
* Poll the system settings in case they changed.
*
* If they did, update our controls accordingly!
*
* <data1 = our window pointer
*
*************************************************************************
doRun	name

	ldx #volume_param
	jsr ReadBatteryParam ;don't use GetCurrentVolume--it sets curvol
	cmp curvol
	beq @volumeOK
	sta curvol
	pha
	lda #volumeControlID
	jsr GetControlByID
	_SetCtlValue
@volumeOK

	jsr GetCurrentPitch
	cmp curpitch
	beq @pitchOK
	sta curpitch
	pha
	lda #pitchControlID
	jsr GetControlByID
	_SetCtlValue
@pitchOK

	ldx #aug_param
	jsr ReadBatteryParam
	eor ccflag
	lsr a	;carry clear if bit 0 matches
	bcc @visualBoxOK
	lda ccflag
	pha
	lda #visualControlID
	jsr GetControlByID	;uses window = <data1
	_SetCtlValue
	lda #1
	eor ccflag
	sta ccflag
@visualBoxOK

	rts
*************************************************************************
*************************************************************************
*
* doEdit
*
* Handle Cut and Copy by putting the current sound on the clipboard,
* if we have one.
*
*************************************************************************
doEdit	name
	lda <data1
	cmp #cutAction
	beq @doCopy
	cmp #copyAction
	beq @doCopy

	pea $000B	;task impossible
	_SysBeep2
	rts

*
* Copy the current sound and its name onto the clipboard
*
@doCopy	pea 0
	_ScrapStatus
	pla
	bne @continue
	brl @failed
@continue
	pea srqGetrSoundSample
	pea sendToName+stopAfterOne
	pushlong #myReqProcName
	pushlong #resNameBuffer
	pushlong #getSoundOut
	_SendRequest
	bcs @failed

	_ZeroScrap

	pea 0	;size, high word
	lda resNameBuffer
	and #$00ff
	pha	;size, low word
	pea $0000	;type is textScrap
	pushlong #resNameBuffer+1
	_PutScrap	;put the name on the clipboard
	bcs @failed

	phd
	pushlong soundOutHandle
	tsc
	tcd
	ldy #4
	lda [1],y
	pha	;push old attributes
	ora #$8000
	sta [1],y	;lock the handle

	pha
	pha	;space for GetHandleSize
	pei 3
	pei 1	;push sound handle
	_GetHandleSize	;leave size on stack for PutScrap
	pea $0002	;soundScrap
	ldy #2
	lda [1],y
	pha
	lda [1]
	pha	;pushed sound pointer
	_PutScrap

	ldy #4
	pla
	sta [1],y	;restore handle attributes

	ply
	ply
	pld
	bcs @failed	;carry still conditioned from PutScrap

	rts

@failed	pea $000C	;task failed
	_SysBeep2
	rts

*************************************************************************
*************************************************************************
*
* doEvent
*
* If they hit return, handle it like a hit on the Sound pop-up.
*
* Input:  data1 is eventRecord pointer
*         data2 is window pointer
*
*************************************************************************
doEvent	name
	lda [<data1]	;get event.what
	cmp #keyDownEvt
	beq @key
	cmp #autoKeyEvt
	beq @key
	rts

@key	ldy #oMessage
	lda [<data1],y
	and #$00ff
	cmp #$000D	;return?
	bne @notReturn

	jsr hitSoundPopUp

@notReturn	rts

*************************************************************************
*************************************************************************
;
; doHit - hit sound controls.
;
; entry	aug_param = aug group battery parameter byte.
;	data1 = handle of control that was hit.
;	data2 = id of control that was hit.
;
; exit	Took appropriate action for the control that was
;	hit.
;
*************************************************************************
doHit	name
	lda <data2	;get id of control
	asl a
	cmp #HitDispatchEnd-HitDispatch
	bcs @done
	tax
	jmp (HitDispatch,x)
@done	rts

HitDispatch	dc.w ignore	;0
	dc.w ignore	;1 = volume scroll bar (has action proc)
	dc.w ignore	;2 = pitch scroll bar (has action proc)
	dc.w ignore	;3 = text
	dc.w ignore	;4 = text
	dc.w hitCheckBox	;5 = check box (visual indication of sounds)
;;;	dc.w hitRecord	;6 = Record Sound... box
	dc.w ignore	;6 = not used
	dc.w ignore	;7 = not used
	dc.w ignore	;8 = not used
	dc.w hitEventPopUp	;9 = Event pop-up
	dc.w hitSoundPopUp	;$A = Sound pop-up
HitDispatchEnd

*************************************************************************
*
* hitCheckBox -- toggle the visual indication of sounds check box
*
*************************************************************************
hitCheckBox	name
	pha	;space for GetCtlValue
	pei <data1+2
	pei <data1	;control handle
	_GetCtlValue
	pla
	beq hsc1	;if not set

	lda #1	;force it to one
hsc1	eor #1	;invert the flag so that 0 = on, 1 = off
	sta ccflag

	ldx #aug_param
	jsr ReadBatteryParam
	and #$fe
	ora ccflag	;set closed captioning flag as appropriate
	ldx #aug_param
	brl WriteBatteryParam

;*************************************************************************
;*************************************************************************
;*
;* hitRecord -- record a new sound
;*
;*************************************************************************
;hitRecord	pha
;	pea $0030
;	pea 0
;	pea 0
;	pushlong #noTapeDeck
;	_AlertWindow
;	pla
;	rts
;
;noTapeDeck	dc.b '33/Pretend this is a cool little Tape Deck control panel, okay?/^#0',0

*************************************************************************
*
* hitEventPopUp -- Show them the sound associated with this event
*
* This gets called during Init, so don't assume data1 and data2 are
* set up like a HitCDEV event!
*
*************************************************************************
hitEventPopUp	name

	pha
	pushlong eventMenuHandle
	_GetCtlValue
	pla

; get current value for Event
	jsr MapEventToName	;in=A, out=resNameBuffer

; get item number for name (in resNameBuffer)
	jsr FindNamedEntry	;out=AX pointing to entry
	phd
	pha
	phx
	tsc
	tcd
	ldy #oMenuItem
	lda [1],y
	ply
	ply
	pld

; set the Sound pop-up to the corresponding value

	pha	;new value
	sta curSoundValue	;24-Jan-92 DAL
	pushlong soundMenuHandle
	_SetCtlValue

	rts


*************************************************************************
*
* MapEventToName
*
* Input:  A = event
*
* Output: resNameBuffer
*
*************************************************************************
MapEventToName	name
	sta @target
	stz resNameBuffer	;null string (not assigned)
	phd
	pushlong configHandle
	tsc
	tcd

@temp	equ 1

	ldy #2
	lda [<@temp]
	tax
	lda [<@temp],y
	sta <@temp+2
	stx <@temp

	lda [<@temp]	;number of mappings
	beq @done
	tax
	lda #2
	jsr @bumpTemp

@tryOneMapping	lda [<@temp]
	cmp @target
	bne @next

	lda #2
	jsr @bumpTemp
	pei <@temp+2
	pei <@temp
	pushlong #resNameBuffer
	pea 0
	lda [<@temp]
	and #$00ff
	inc a
	pha
	_BlockMove
	bra @done

@next	ldy #2
	lda [@temp],y
	and #$00ff
	inc a
	inc a
	inc a
	jsr @bumpTemp
	dex
	bne @tryOneMapping

@done	ply
	ply
	pld
	rts

@bumpTemp	clc
	adc <@temp
	sta <@temp
	bcc @ok
	inc <@temp+2
@ok	rts

@target	dc.w 0

*************************************************************************
*
* FindNamedEntry
*
* Input: resNameBuffer (pstring), soundsHandle
*
* Output: AX = pointer to entry
*         SEC = we returned the "not assigned" entry
*
* Simulates entries for Silence, Standard Beep, Not Assigned.
*
*************************************************************************
FindNamedEntry	name

	jsr ComputeNameHash

	lda resNameBuffer
	cmp #$2A01	;"*"
	bne @notStdBeep
	lda #^fakeStdBeep
	ldx #fakeStdBeep
	clc
	rts

@notStdBeep	cmp #$3001	;"0"
	bne @notSilence
	lda #^fakeSilence
	ldx #fakeSilence
	clc
	rts

@notSilence
	phd
	pushlong soundsHandle
	tsc
	tcd

@ptr	equ 1

	ldy #2
	lda [<@ptr]
	tax
	lda [<@ptr],y
	sta <@ptr+2
	stx <@ptr

	ldy #oEntryCount
	lda [<@ptr],y
	sta @count
	beq @fail

	ldy #oEntryOffset
	lda [<@ptr],y
	jsr @bumpPtr

@checkOneEntry	jsr @CompareName	;returns CLC if equal
	lda <@ptr+2
	ldx <@ptr
	bcc @found

	lda [<@ptr]
	jsr @bumpPtr

	dec @count
	bne @checkOneEntry

@fail	lda #^fakeNotAssigned
	ldx #fakeNotAssigned
	sec

@found	ply
	ply
	pld
	rts

@count	dc.w 0

@bumpPtr	clc
	adc <@ptr
	sta <@ptr
	bcc @nr
	inc <@ptr+2
@nr	rts

*
* CompareName -- return CLC if resNameBuffer matches @ptr entry
*
@CompareName	ldy #oNameHash
	lda [<@ptr],y
	cmp resNameHash
	sec	;no match
	bne @exit

	pushlong #resNameBuffer
	clc
	ldy #oNameOffset
	lda [<@ptr],y
	adc <@ptr
	tax
	lda <@ptr+2
	adc #0
	pha
	phx
	jsr ComparePStrings
@exit	rts	;return clc=match, sec=not

*************************************************************************
*
* ComparePStrings
*
* Input: two Pascal String pointers on stack
*
* Output: CLC if equal
*
*************************************************************************
ComparePStrings	phd
	tsc
	tcd

@one	equ 5
@two	equ @one+4

	sep #$30
	longa off
	longi off

	lda [@one]
	tay
	cmp [@two]
	bne @noMatch

@nextChar	lda [@one],y
	jsr upcase
	sta @cheat+1
	lda [@two],y
	jsr upcase
@cheat	cmp #$77	;self-modified
	bne @noMatch
	dey
	bne @nextChar

	clc
	bra @exit

@noMatch	sec
@exit	rep #$30
	longa on
	longi on
	pld
	plx	;rts addr
	ply
	ply
	ply
	ply
	phx	;rts addr
	rts

	longa off
upcase	cmp #'a'
	bcc @up
	cmp #'z'+1
	bcs @up
	and #$df
@up	rts
	longa on

fakeNotAssigned	dc.w 0,0,itemNotAssigned,0,0,0,0
fakeSilence	dc.w 0,0,itemSilence,0,0,0,0
fakeStdBeep	dc.w 0,0,itemStandardBeep,0,0,0,0

*************************************************************************
*
* hitSoundPopUp -- Assign a new sound to the current event (and play
*                  the sound as a sample
*
* This can be called from a variety of places--be very careful about
* using data1 and data2!  They are not always set up for a HitCDEV.
*
*************************************************************************
hitSoundPopUp	name
	pha
	pushlong soundMenuHandle   ;9-Nov-91 DAL
	_GetCtlValue
	pla
	sta @value

; put name of Sound in resNameBuffer
	stz resNameBuffer
	cmp #itemNotAssigned
	beq @assignIt

	ldx #$3001	;"0"
	stx resNameBuffer
	cmp #itemSilence
	beq @assignIt

	ldx #$2A01	;"*"
	stx resNameBuffer
	cmp #itemStandardBeep
	beq @assignIt

	pha
	pha
	_GetMenuBar
	pushlong soundMenuHandle
	_SetMenuBar

	pha
	pha
	lda @value
	pha
	_GetMItem
	pushlong #resNameBuffer
	phd
	tsc
	tcd
	lda [7]
	and #$00ff
	inc a
	pld
	pea 0
	pha
	_BlockMove

	_SetMenuBar

@assignIt
*** added 24-Jan-92 DAL -- don't make config dirty if this isn't a change
	lda @value
	cmp curSoundValue
	sta curSoundValue
	beq @justPlay
*** end 24-Jan-92
	pha
	pushlong eventMenuHandle
	_GetCtlValue
	pla
	jsr SetConfigMapping   ;map event A to resNameBuffer

@justPlay	jsr PlayNamedSound

	rts

@value	dc.w 0

curSoundValue	dc.w 0	;added 24-Jan-92 DAL

*************************************************************************
*
* PlayNamedSound
*
* Play the sound named in resNameBuffer
*
* If necessary, loads the sound from disk.
*
*************************************************************************
PlayNamedSound	name

	lda resNameBuffer
	cmp #$2a01	;"*" = Standard Beep
	beq @stdBeep

	pea srqGetrSoundSample
	pea sendToName+stopAfterOne
	pushlong #myReqProcName
	pushlong #resNameBuffer
	pushlong #getSoundOut
	_SendRequest
	bcs @exit

;;;	pea sendToName+stopAfterOne
;;;	pushlong #myReqProcName
*** 24-Jan-92 DAL
	pea srqPlayrSoundSample
	pea stopAfterOne
	ldx #0
	phx
	phx
	pushlong soundOutHandle
;;;	pushlong #playSoundOut
	phx
	phx
*** end 24-Jan-92
	_SendRequest

;;; On 2nd thought, this isn't actually needed--we're playing the sound because they
;;; just now assigned it to something, so we won't want to dispose of it.
;*** added 19-Nov-91 DAL -- if necessary, dispose of the sound handle, after it stops
;	lda soundOutFlags
;	bpl @noDispose
;
;	pea srqSynchronize
;	pea sendToAll
;	ldx #0
;	phx
;	phx	;target=nil
;	phx
;	phx	;in=nil
;	phx
;	phx	;out=nil
;	_SendRequest
;
;	pushlong soundOutHandle
;	_DisposeHandle
;	stz soundOutHandle+1
;@noDispose
;*** end 19-Nov-91

@exit	rts

@stdBeep
makeStandardBeep	pea srqMakeStdBeep
	pea sendToName+stopAfterOne
	pushlong #myReqProcName
	lda #0
	pha
	pha	;data in
	pha
	pha	;data out
	_SendRequest
	rts

getSoundOut	dc.w 0
soundOutHandle	dc.l 0
soundOutFlags	dc.w 0

;;;playSoundOut	dc.w 0

*************************************************************************
*************************************************************************
*
* doClose
*
* Unlock the soundsHandle
*
*************************************************************************
doClose	name

	jsr SaveSettings

	pushlong soundsHandle
	_HUnlock

	rts

*************************************************************************
*************************************************************************
;
; doInit - init sound controls.
;
; entry	aug_param = battery parameter byte containing closed captioning flag.
;	data1 = ptr to window.
;	maxpitch = max pitch used on the GS.
;
; exit	sound controls are initialized.
;
*************************************************************************
doInit	name
	jsr GetCurrentVolume
	sta curvol
	jsr GetCurrentPitch
	sta curpitch

	pushl #HandleVolumeControl
	lda #volumeControlID
	jsr GetControlByID
	_SetCtlAction	;set Volume action proc

	pushl #HandlePitchControl
	lda #pitchControlID
	jsr GetControlByID
	_SetCtlAction	;set Pitch action proc

	pushw curvol
	lda #volumeControlID
	jsr GetControlByID
	_SetCtlValue

	lda curpitch
	pha
	lda #pitchControlID
	jsr GetControlByID
	_SetCtlValue

;
; Build the Sound menu
;
	jsr BuildSoundPopUp

	jsr hitEventPopUp	;set corresponding Sound item

;
; Set up the "visual indication of sounds" bit from battery RAM
;
	ldx #aug_param
	jsr ReadBatteryParam
	and #1	;isolate the bit
	sta ccflag	;added 30-Oct-91 DAL
	eor #1	;invert the value
	pha	;value to set in checkbox
	lda #visualControlID
	jsr GetControlByID
	_SetCtlValue
	rts

*************************************************************************
*
* GetControlByID
*
* Input: A=control ID (for a control in the <data1 window)
*
* Output: control handle on stack
*
*************************************************************************
GetControlByID	name
	pha
	pha	;space
	pei <data1+2
	pei <data1	;window ptr
	pea 0
	pha	;control ID
	_GetCtlHandleFromID
	ply
	pla
	plx	;return address
	pha
	phy
	phx	;return address
	rts

*************************************************************************
;
; GetCurrentPitch
;
; entry	maxpitch = maximum pitch value.
;	pitch_param = battery parameter containing pitch.
;
; exit	(a) = current pitch
;	If the pitch is somehow greater than the maximum pitch
;	it will reset the battery parameter to the maximum.
;
*************************************************************************
GetCurrentPitch	name
	ldx #pitch_param
	jsr ReadBatteryParam
	cmp #maxpitch
	bcc gcp1	;if ok value
	lda #maxpitch
	ldx #pitch_param
	jsr WriteBatteryParam
	lda #maxpitch	;restore current pitch
gcp1	rts

*************************************************************************
;
; GetCurrentVolume
;
; entry	maxvol = maximum volume allowed.
;	volume_param = battery parameter containing volume.
;
; exit	(a) = current volume.
;	If the volume is somehow greater than the maximum volume
;	it will reset the battery parameter to the maximum.
;
*************************************************************************
GetCurrentVolume	name
	ldx #volume_param
	jsr ReadBatteryParam
	sta curvol
	cmp #maxvol
	bcc gcv1		;if ok volume
	lda #maxvol
	ldx #volume_param
	jsr WriteBatteryParam
gcv1	lda curvol
	rts

*************************************************************************
;
; HandlePitchControl
;
; entry	(curpitch) = current pitch.
;	[handleid,s] = handle of control that was hit.
;	maxpitch = maximum pitch used on the GS.
;	(part,s) = part of control that was hit.
;	pitch_param = battery parameter that controls pitch for
;	SysBeep.
;
;	Called by control manager.
;
; exit	curpitch is adjusted, ctlvalue is adjusted,
;	and appropriate sound is made.
;
*************************************************************************
HandlePitchControl	name
	phb
	phk
	plb

	lda part,s
*** added 28-Oct-91 DAL -- if part=0, make no sound (avoids double beep sometimes)
	beq makeNoSound1
*** end 28-Oct-91
	cmp #6	;scroll arrow
	bne hpc1
	lda curpitch
	cmp #maxpitch
	bcs hpc5	;if already the highest possible
	inc a
	bra hpc4

hpc1	cmp #5	;scroll arrow
	bne hpc2
	lda curpitch
	beq hpc5	;if already the lowest possible
	dec a
	bra hpc4

hpc2	cmp #8
	bne hpc3	;if not page up
	lda curpitch
	cmp #maxpitch
	bcs hpc5	;if max possible
	inc a
	cmp #maxpitch
	bcs hpc4	;if max possible
	inc a
	bra hpc4

hpc3	cmp #7	;page region
	bne hpc6
	lda curpitch
	beq hpc5	;if lowest possible
	dec a
	beq hpc4	;if lowest possible
	dec a

hpc4	sta curpitch

hpc5
	lda curpitch
	pha	;new pitch
	lda handleid+2+2,s	;hi word of handleid
	pha
	lda handleid+4,s	;lo word of handleid
	pha
	_SetCtlValue

hpc6	pha
	lda handleid+2+2,s
	pha
	lda handleid+4,s
	pha
	_GetCtlValue
	pla
	sta curpitch

	ldx #pitch_param
	jsr UpdateASetting

	jsr makeStandardBeep

makeNoSound1	plb	;restore data bank
	lda 1,s
	sta 7,s
	lda 2,s
	sta 8,s
	ply
	ply
	ply
	rtl


*************************************************************************
;
; HandleVolumeControl
;
; entry	(curvol) = current volume.
;	[handleid,s] = handle of control that was hit.
;	maxvol = maximum volume level on the GS.
;	(part,s) = part of control that was hit.
;	volume_param = battery parameter that controls system volume.
;
;	called by control manager.
;
; exit	curpitch is adjusted, ctlvalue is adjusted,
;	and appropriate sound is made.
;
*************************************************************************
HandleVolumeControl	name
	phb
	phk
	plb

	lda part,s
*** added 28-Oct-91 DAL -- if part=0, make no sound (avoids double beep sometimes)
	beq makeNoSound
*** end 28-Oct-91
	cmp #5
	bne hvc1	;if not hit in scroll bar up arrow
	lda curvol
	beq hvc5	;if already the lowest possible
	dec a
	bra hvc4

hvc1	cmp #6
	bne hvc2	;if not in scroll bar down arrow
	lda curvol
	cmp #maxvol
	beq hvc5	;if already the highest possible
	inc a
	bra hvc4

hvc2	cmp #7
	bne hvc3	;if not page up
	lda curvol
	beq hvc5	;if lowest possible
	dec a
	beq hvc4	;if lowest possible
	dec a
	bra hvc4

hvc3	cmp #8
	bne hvc5a	;if tracking the thumb
	lda curvol
	cmp #maxvol
	beq hvc5	;if max possible
	inc a
	cmp #maxvol
	beq hvc4	;if max possible
	inc a

hvc4	sta curvol
hvc5	pha	;new value
	lda handleid+2+2,s	;hi word of handleid
	pha
	lda handleid+4,s	;lo word of handleid
	pha
	_SetCtlValue

hvc5a	pha
	lda handleid+2+2,s
	pha
	lda handleid+4,s
	pha
	_GetCtlValue
	pla
	sta curvol

hvc6	lda curvol
	ldx #volume_param

hvcE
	jsr UpdateASetting
	_SysBeep
makeNoSound	plb	;restore data bank
	lda 1,s
	sta 7,s
	lda 2,s
	sta 8,s
	ply
	ply
	ply
	rtl

*************************************************************************
;
; ReadBatteryParam
;
; entry	(x) = parameter to read.
;
; exit	(a) = value of parameter.
;
*************************************************************************
ReadBatteryParam	name
	pha	;space for result
	phx	;parameter to read
	_ReadBparam
	pla	;get value
	rts



*************************************************************************
;
; UpdateASetting
;
; entry	(a) = value of parameter to set.
;	(x) = battery parameter to set.
;
; exit	battery parameter is set and a sysbeep
;	is made based on the new settings.
;
*************************************************************************
UpdateASetting	name
	jsr WriteBatteryParam
	phb	;save data bank
	pea 0
	plb
	plb
	php	;save processor status
	sep #$30	;set everything short
	sec	;set so slots will NOT be changed
	jsl $e10094	;jsl to 'tobramsetup' entrypoint
	plp	;restore processor status
	plb	;restore data bank
	rts


*************************************************************************
;
; WriteBatteryParam
;
; entry	(a) = value of parameter to set.
;	(x) = battery parameter to set.
;
; exit	battery parameter is set.
;
*************************************************************************
WriteBatteryParam	name
	pha	;new value
	phx	;parameter to set
	_WriteBparam
	rts


*************************************************************************
;
; global data
;
*************************************************************************
ccflag	ds.b 2	;closed captioning flag
curvol	ds.b 2	;current volume
curpitch	ds.b 2	;current pitch


*************************************************************************
*
* InstallReqProc -- install our AcceptRequests procedure
*
* And, while we're at it, install our BELLVECTOR patch, too.
*
* (return SEC if error)
*
*************************************************************************
InstallReqProc	name
	pha
	pha	;space for GetCodeResConverter
	_GetCodeResConverter
	pea rCodeResource
	pea $0001	;log flags (application, in)
	_ResourceConverter

	pha
	pha	;space for LoadResource
	pea rCodeResource
	pea 0
	pea 1	;ID=1
	_LoadResource
	bcc @1
	brl @oops
@1
	phd	;deref proc handle
	tsc
	tcd
	ldy #2
	lda [3],y
	sta procPtr+2
	lda [3]
	sta procPtr
	pld

	pla
	sta procHandle
	pla
	sta procHandle+2

	pea rCodeResource
	pea 0
	pea 1	;ID=1
	_DetachResource

	pha	;space for SetHandleID result
	pha	;space for GetNewID result
	pea $5E00
	_GetNewID
	lda 1,s
	sta myProcMemID
	lda procHandle+2
	pha
	lda procHandle
	pha
	_SetHandleID
	pla	;ignore old id

	pushlong #myReqProcName
	lda myProcMemID
	pha
	lda procPtr+2
	pha
	lda procPtr
	pha
	_AcceptRequests

*** added 5-Nov-91 DAL -- say hello to our request proc
	pea srqHelloWorld
	pea sendToName+stopAfterOne
	pushlong #myReqProcName
	ldx #0
	phx
	phx	;dataIn = NIL
	phx
	phx	;dataOut = NIL
	_SendRequest
*** end 5-Nov-91

*** added 30-Oct-91 DAL -- install BELLVECTOR patch (2nd BRL in code resource)
	pha
	pha	;space
	pea $001B
	_GetVector
	pla
	sta ChainBellVector+1
	pla
	sep #$20
	sta ChainBellVector+3  ;fed to ReqProc when we call SetSoundGlobals
	rep #$20

	pea $001B
	lda procPtr+2
	pha
	lda procPtr
	clc
	adc #3
	pha
	_SetVector
*** end 30-Oct-91

	rts	;return with SEC if error

@oops	plx
	plx
	_SysBeep
	sec
	rts

procHandle	dc.l 0
procPtr	dc.l 0

myReqProcName	str 'Apple~SoundCP~'

*************************************************************************
*
* Get/SetSoundGlobals
*
* Input: AY = handle to sound configuration
*
* Informs the request procedure of the new handle.
*
*************************************************************************
GetSoundGlobals	name
	pea srqGetSoundGlobals
	bra getOrSet
SetSoundGlobals	name
	pea srqSetSoundGlobals
getOrSet	pea sendToName+stopAfterOne
	pushlong #myReqProcName
	pushlong #GLOBALS
	pea 0
	pea 0	;dataOut = NIL
	_SendRequest
	rts

*************************************************************************
*
* MakeEmptyConfigHandle
*
*************************************************************************
MakeEmptyConfigHandle name
	stz configIsDirty
	ldx #2
	ldy #0	;size of empty tagged-strings structure = 2
MakeConfigHandleYX
	pha
	pha	;space for NewHandle
	phy
	phx
	lda myProcMemID
	pha
	pea 0	;unlocked
	pha
	pha	;ignored
	_NewHandle
;@@@ (later) needs error check
	lda 1,s
	sta configHandle
	lda 3,s
	sta configHandle+2
	phd
	tsc
	tcd
	ldy #2
	lda [3]
	tax
	lda [3],y
	sta <5
	stx <3
	lda #0
	sta [3]
	pld
	pla
	pla
	rts

*************************************************************************
*
* SetConfigMapping
*
* Input: A = event to add to configHandle
*        resNameBuffer = name to add
*
*************************************************************************
SetConfigMapping	name
	sta @mapping
	jsr RemoveMappingA

	lda resNameBuffer
	and #$00ff
	bne @notNull	;just omit null mappings
	rts

@notNull	phd
	pushlong configHandle
	tsc
	tcd

@temp	equ 1

	pha
	pha	;space for GetHandleSize
	pushlong configHandle
	_GetHandleSize
	clc
	lda resNameBuffer
	and #$00ff
	adc #3
	adc 1,s
	tax
	lda 3,s
	adc #0
	pha
	phx
	pei <@temp+2
	pei <@temp
	_SetHandleSize

	ldy #2
	lda [<@temp]
	tax
	lda [<@temp],y
	sta <@temp+2
	stx <@temp

	lda [<@temp]
	inc a
	sta [<@temp]	;incremented the mapping count

	clc
	pla
	adc <@temp
	sta <@temp
	pla
	adc <@temp+2
	sta <@temp+2

	lda @mapping
	sta [<@temp]

	pushlong #resNameBuffer
	clc
	lda <@temp
	adc #2
	tax
	lda <@temp+2
	adc #0
	pha
	phx
	pea 0
	lda resNameBuffer
	and #$00ff
	inc a
	pha
	_BlockMove

	ply
	ply
	pld

	lda #1
	sta configIsDirty
	rts

@mapping	dc.w 0

*************************************************************************
*
* RemoveMappingA
*
* Input:  A = event code to remove from configHandle
*
*************************************************************************
RemoveMappingA	name
	sta @mapping

	phd
	pushlong configHandle
	pushlong configHandle
	tsc
	tcd

@temp	equ 1
@ptr	equ @temp+4

	ldy #2
	lda [<@temp]
	tax
	lda [<@temp],y
	sta <@temp+2
	stx <@temp
	sta <@ptr+2
	stx <@ptr

	lda [<@temp]
	sta @count
	bne @noFail
	brl @fail
@noFail

	lda #2
	jsr @bumpTemp

@search	lda [<@temp]
	cmp @mapping
	beq @gotIt
	brl @next
@gotIt
	lda #1
	sta configIsDirty

	lda [<@ptr]
	dec a
	sta [<@ptr]	;decrement mapping count

; bring the remainder of the handle forward to close gap
	clc
	ldy #2
	lda [<@temp],y
	and #$00ff
	inc a
	inc a
	inc a
	sta @deltaSize
	adc <@temp
	tax
	lda <@temp+2
	adc #0
	pha
	phx	;source = temp+sizeof(rec)
	pei <@temp+2
	pei <@temp	;dest


; size = (start+HandleSize) - source
	pha
	pha
	pushlong configHandle
	_GetHandleSize
	clc
	pla
	adc <@ptr
	tax
	pla
	adc <@ptr+2

	tay	;high word
	txa
	sec
	sbc 5,s
	tax
	tya
	sbc 7,s	;subtracted source
	pha
	phx	;pushed length
	_BlockMove

; shrink the handle by deltaSize
	pha
	pha
	pushlong configHandle
	_GetHandleSize
	sec
	pla
	sbc @deltaSize
	tax
	pla
	sbc #0
	pha
	phx
	pushlong configHandle
	_SetHandleSize

	bra @done

@next	ldy #2
	lda [<@temp],y
	and #$00ff
	inc a
	inc a
	inc a
	jsr @bumpTemp
	dec @count
	beq @done
	brl @search
@done
@fail	ply
	ply
	ply
	ply
	pld
	rts

@bumpTemp	clc
	adc <@temp
	sta <@temp
	bcc @1
	inc <@temp+2
@1	rts

@count	dc.w 0
@mapping	dc.w 0
@deltaSize	dc.w 0

*************************************************************************
*************************************************************************
*
* These globals are shared with the request procedure.  This buffer
* must match the one there!
*
*************************************************************************
GLOBALS
configHandle	dc.l 0	;CDev copy of configHandle
soundsHandle	dc.l 0	;CDev copy of soundsHandle
myProcMemID	dc.w 0
ChainBellVector	jml >$777777	;JML to old BellVector value
*************************************************************************
configIsDirty	dc.w 0

	endp

	end
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/TimeCDEV/Time.pii b/IIGS.601.SRC/A.U.G/CtlPanel/TimeCDEV/Time.pii
new file mode 100644
index 0000000..dfffbfb
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/TimeCDEV/Time.pii
@@ -0,0 +1 @@
+This file is no longer used.
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/TimeCDEV/Time.r b/IIGS.601.SRC/A.U.G/CtlPanel/TimeCDEV/Time.r
new file mode 100644
index 0000000..e78b78a
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/TimeCDEV/Time.r
@@ -0,0 +1 @@
+/*******************************************************************/
/*
/* Time.r
/*
/* Copyright (C) 1988-1992
/* Apple Computer, Inc.
/* All Rights Reserved
/*
/* This file contains the source of the resources needed to build the 
/* Time CDEV.
/*
/*******************************************************************/


#include "typesiigs.r" 

resource rIcon (1) {
	  0x8000,							/* Kind */
	  20,								/* Height */
	  28,								/* Width */

       $"FFFFFFFFFFC00003FFFFFFFFFFFF"
       $"FFFFFFFC000BBBB0003FFFFFFFFF"
       $"FFFFFF00BBBB33BBBB00FFFFFFFF"
       $"FFFFF0BBBBBB33BBBBBB0FFFFFFF"
       $"FFFF0BBBBBBBBBBBBB0BB0FFFFFF"
       $"FFFC0BBBBB00BBBBB0BBB03FFFFF"
       $"FFF0BBBBBB00BBBB0BBBBB0FFFFF"
       $"FFC0BBBBBBB00BB0BBBBBB03FFFF"
       $"FF0BBBBBBBB00B0BBBBBBBB0FFFF"
       $"FF0B33BBBBBB00BBBBBB33B0FFFF"
       $"FF0B33BBBBBB00BBBBBB33B0FFFF"
       $"FF0BBBBBBBBBBBBBBBBBBBB0FFFF"
       $"FFC0BBBBBBBBBBBBBBBBBB03FFFF"
       $"FFF0BBBBBBBBBBBBBBBBBB0FFFFF"
       $"FFFCBBBBBBBBBBBBBBBBB03FFFFF"
       $"FFFF0BBBBBBBBBBBBBBBB0FFFFFF"
       $"FFFFF0BBBBBB33BBBBBB0FFFFFFF"
       $"FFFFFF00BBBB33BBBB00FFFFFFFF"
       $"FFFFFFFC000BBBB0003FFFFFFFFF"
       $"FFFFFFFFFFC00003FFFFFFFFFFFF",

       $"0000000000FFFFFF000000000000"
       $"0000000FFFFFFFFFFFF000000000"
       $"000000FFFFFFFFFFFFFF00000000"
       $"00000FFFFFFFFFFFFFFFF0000000"
       $"0000FFFFFFFFFFFFFFFFFF000000"
       $"000FFFFFFFFFFFFFFFFFFFF00000"
       $"000FFFFFFFFFFFFFFFFFFFF00000"
       $"00FFFFFFFFFFFFFFFFFFFFFF0000"
       $"00FFFFFFFFFFFFFFFFFFFFFF0000"
       $"00FFFFFFFFFFFFFFFFFFFFFF0000"
       $"00FFFFFFFFFFFFFFFFFFFFFF0000"
       $"00FFFFFFFFFFFFFFFFFFFFFF0000"
       $"00FFFFFFFFFFFFFFFFFFFFFF0000"
       $"000FFFFFFFFFFFFFFFFFFFF00000"
       $"000FFFFFFFFFFFFFFFFFFFF00000"
       $"0000FFFFFFFFFFFFFFFFFF000000"
       $"00000FFFFFFFFFFFFFFFF0000000"
       $"000000FFFFFFFFFFFFFF00000000"
       $"0000000FFFFFFFFFFFF000000000"
       $"0000000000FFFFFF000000000000";

};

read rCDEVCode (1,Convert) "TIME.Load";


resource rCDEVFlags (1) {
	wantHit+wantInit+wantCreate+wantAbout+wantRun+wantEvents+updateSSfromBRAM,	/* CDEV Flags */
	1,											/* Enabled */
	1,											/* Version */
	1,											/* Machine */
	4,											/* System */
	{0,0,150,200},								/* DataRect */
	"Time",										/* Name */
	"Michael Stein",							/* Author */
	"v2.0";										/* VersStr */
};
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/TimeCDEV/TimeData.aii b/IIGS.601.SRC/A.U.G/CtlPanel/TimeCDEV/TimeData.aii
new file mode 100644
index 0000000..d9005cb
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/TimeCDEV/TimeData.aii
@@ -0,0 +1 @@
+;;;	timedata - data records and strings used by time CDEV.
;
;	Michael V. Stein	03/30/90.
;
;	© Apple, 1990.


	blanks	off
	


;;	equates.



moontop		equ	50		top of moon text

daytop		equ	40		top of day of year text

fam1top		equ	daytop+29	top of family 1 radio buttons

fam2left  	equ	112		family 2 left indent

fam3top		equ	fam1top+45	top of family 3 radio buttons

leftedge  	equ	5		leftedge for controls

radio1ID	equ	10

radio4ID	equ	radio1ID+3	ID of 4th radio control

radio6ID  	equ	radio4ID+2	ID of 6th radio control

checkID		equ	radio6ID+2	ID of checkbox

RightEdge	equ	195

rspace		equ	12		spacing between radio buttons




;;	include files.


	include	'e16.control'
	include	'm16.util'




;;	main program.



timedata	proc



;;	exported addresses.


	export	about
	export	check1
	export	ctllist
	export	dayctl
	export	daylen
	export	dctl
	export	radio1
	export	radio2	
	export	radio3
	export	radio4
	export	radio5
	export	radio6
	export	radio7
	export	tctl
	
	
	
;;	imported addresses.



	import	cdsa	
	import	time_date_defproc

		
	
ctllist  dc.l	radio1
	dc.l	radio2	
	dc.l	radio3
	dc.l	radio4
	dc.l	radio5
	dc.l	radio6
	dc.l	radio7
	dc.l	check1
	dc.l	line1
	dc.l	line2
	dc.l	0


;	control for setting the date.

dctl	dc.w	6
	dc.l	2		ID
	dc.w	20,50,0,0	rect
	dc.l	time_date_defproc
	dc.w	ctlInvis+2	flags - date control
	dc.w	fctlcanbetarget+$400
	dc.l	0		refcon



;	control for setting the time.

tctl	dc.w	6
	dc.l	3		ID
	dc.w	5,50,0,0	rect
	dc.l	time_date_defproc
	dc.w	ctlInvis+1	flags
	dc.w	fctlcanbetarget+$400
	dc.l	0		refcon
	
	
;	control for the about box.

About	dc.w	8
	dc.L 	1
	dc.w 	38,5,138,280
	dc.L 	$81000000
	dc.w 	$0000
	dc.w 	$1000
	dc.L 	0
	dc.L 	AboutText
	dc.w 	AboutTextL
	string 	asis
AboutText
	dc.b 	'The Time Control Panel allows you to set the clock and change the display '
	dc.b 	'formats for date and time in your machine.'
	
	dc.b	'  The radio buttons can be used '
	dc.b 	'to manually adjust the clock to compensate for daylight '
	
;	dc.b	'savings time.  Check the Auto daylight savings checkbox '
;	dc.b	'only if your area follows US daylight savings time.'

	dc.b	'savings time.  Set the checkbox '	
	dc.b	'to have the clock automatically adjust for daylight '
	dc.b	'savings time in the future (April and October).'
	
AboutTextL  equ	*-AboutText


;	day of year control.

dayctl	dc.w	8		PCount
	dc.l	5		ID
	dc.w	daytop		rectangle
	dc.w	leftedge
	dc.w	daytop+18
	dc.w	rightedge
	dc.l	stattextcontrol
	dc.w	1		flag (pascal strings)
	dc.w	FctlProcRefNotPtr  more flags
	dc.l	0		refcon
	dc.l	cdsa		constructed in time.aii
daylen	dc.w	30		
	
	
;	date format radio button mm/dd/yy.

radio1	dc.w	8		Pcount
	dc.l	radio1ID		ID
	dc.w	fam1top
	dc.w	leftedge
	dc.w	0		bottom y - let system figure it out
	dc.w	0		right x  - let system figure it out
	dc.l	radiocontrol
	dc.w	1		family 1
	dc.w	FctlProcRefNotPtr
	dc.l	0		ref con
	dc.l	radio1T		ptr to title
	dc.w	0		initial value
radio1t	str	'MM/DD/YY'


;	date format radio button dd/mm/yy.

radio2	dc.w	8		Pcount
	dc.l	radio1ID+1		ID
	dc.w	fam1top+rspace
	dc.w	leftedge
	dc.w	0		bottom y - let system figure it out
	dc.w	0		right x  - let system figure it out
	dc.l	radiocontrol
	dc.w	1		family 1
	dc.w	FctlProcRefNotPtr
	dc.l	0		ref con
	dc.l	radio2T		ptr to title
	dc.w	0		initial value
radio2t	str	'DD/MM/YY'


;	date format for radio button  yy/mm/dd.

radio3	dc.w	8		Pcount
	dc.l	radio1ID+2		ID
	dc.w	fam1top+rspace*2
	dc.w	leftedge
	dc.w	0		bottom y - let system figure it out
	dc.w	0		right x  - let system figure it out
	dc.l	radiocontrol
	dc.w	1		family 1
	dc.w	FctlProcRefNotPtr
	dc.l	0		ref con
	dc.l	radio3T		ptr to title
	dc.w	0		initial value
radio3t	str	'YY/MM/DD'



;	hour format radio button  am/pm.

radio4	dc.w	8		Pcount
	dc.l	radio4id	ID
	dc.w	fam1top
	dc.w	leftedge+fam2left
	dc.w	0		bottom y - let system figure it out
	dc.w	0		right x  - let system figure it out
	dc.l	radiocontrol
	dc.w	2		family 1
	dc.w	FctlProcRefNotPtr
	dc.l	0		ref con
	dc.l	radio4T		ptr to title
	dc.w	0		initial value
radio4t	str	'AM/PM'


;	hour format radio button  24 hour.

radio5	dc.w	8		Pcount
	dc.l	radio4ID+1	ID
	dc.w	fam1top+rspace
	dc.w	leftedge+fam2left
	dc.w	0		bottom y - let system figure it out
	dc.w	0		right x  - let system figure it out
	dc.l	radiocontrol
	dc.w	2		family 1
	dc.w	FctlProcRefNotPtr
	dc.l	0		ref con
	dc.l	radio5T		ptr to title
	dc.w	0		initial value
radio5t	str	'24 Hour'


;	standard time radio button.

radio6	dc.w	8		Pcount
	dc.l	radio6ID	ID
	dc.w	fam3top
	dc.w	leftedge
	dc.w	0		bottom y - let system figure it out
	dc.w	0		right x  - let system figure it out
	dc.l	radiocontrol
	dc.w	3		family 1
	dc.w	FctlProcRefNotPtr
	dc.l	0		ref con
	dc.l	radio6T		ptr to title
	dc.w	0		initial value
radio6t	str	'Standard Time'


;	daylight time radio button.

radio7	dc.w	8		Pcount
	dc.l	radio6ID+1	ID
	dc.w	fam3top+rspace
	dc.w	leftedge
	dc.w	0		bottom y - let system figure it out
	dc.w	0		right x  - let system figure it out
	dc.l	radiocontrol
	dc.w	3		family 1
	dc.w	FctlProcRefNotPtr
	dc.l	0		ref con
	dc.l	radio7t		ptr to title
	dc.w	0		initial value
radio7t	str	'Daylight Time'


;	checkbox for auto-daylight savings.

check1 	dc.w 	8		PCount
	dc.L 	checkID		ID
	dc.w 	fam3top+rspace*2
	dc.w	leftedge
	dc.w	0
	dc.w	0
	dc.L 	checkcontrol	
	dc.w 	0		flag
	dc.w 	$1000		moreflags
	dc.L 	0		refcon
	dc.L 	check1t		ptr to title
	dc.w 	0		initial value
	
check1t	str 'Auto daylight savings'
	

;	dividing line.

line1	dc.w	8		Pcount
	dc.l	18		ID
	dc.w	fam1top-14
	dc.w	leftedge
	dc.w	fam1top-14+10
	dc.w	rightedge		
	dc.l	stattextcontrol	
	dc.w	1		flag pascal string
	dc.w	fctlProcRefNotPtr	more flags
	dc.l	0		refcon
	dc.l	line2t
	dc.w	23


line2	dc.w	8		Pcount
	dc.l	19		ID
	dc.w	fam3top-14
	dc.w	leftedge
	dc.w	fam3top-14+10
	dc.w	rightedge		
	dc.l	stattextcontrol	
	dc.w	1		flag pascal string
	dc.w	fctlProcRefNotPtr	more flags
	dc.l	0		refcon
	dc.l	line2t
	dc.w	23

line2t	dc.b	'_______________________'

	
	endp

	end
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/TimeCDEV/makefile b/IIGS.601.SRC/A.U.G/CtlPanel/TimeCDEV/makefile
new file mode 100644
index 0000000..dfc8ae7
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/TimeCDEV/makefile
@@ -0,0 +1 @@
+

CDEV = TIME

{CDEV}			 	Ä				{CDEV}.Load 	¶
									{CDEV}.r
	reziigs {CDEV}.r -o {CDEV} -t "C7  " -c "pdos"
	if {dup}				# test whether we should duplicateiigs
		duplicateiigs -m -y {CDEV} {CDEV}
	end

{CDEV}.Load		Ä	¶
			time.aii.obj  ¶
			timedata.aii.obj   ¶
			time.date.ctl.obj   
		linkiigs -x -lseg time ¶
			time.aii.obj  ¶
			timedata.aii.obj ¶
			time.date.ctl.obj   ¶
			 -o {CDEV}.Load



{CDEV}Data.aii.obj 		Ä 								¶
							{CDEV}Data.aii  Makefile
	asmiigs {CDEV}Data.aii 


time.date.ctl.obj Ä		time.date.ctl  td.ctl.tables
		asmiigs time.date.ctl -define seconds=1  -define table3=1


{CDEV}.aii.obj 		Ä 		{CDEV}.aii	Makefile			¶
							::cdev.h  ::commonmacros.h ::dp.h
	asmiigs {CDEV}.aii 
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/TimeCDEV/td.ctl.tables b/IIGS.601.SRC/A.U.G/CtlPanel/TimeCDEV/td.ctl.tables
new file mode 100644
index 0000000..0420426
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/TimeCDEV/td.ctl.tables
@@ -0,0 +1 @@
+**********************************************************************************
*                                                                                *
*	Format tables for the time/date input control for auto-selection.      *
*                                                                                *
*	Copyright Apple Computer Inc. 1989  ALL RIGHTS RESERVED                *
*                                                                                *
*                                                                                *
**********************************************************************************



*******	REVISION HISTORY:	****************************************************
*
*	September 5, 1989	Monte Benaresh
*
*		Created this file.
*
**********************************************************************************


		export format1
format1		PROC

table_start

*************************************************************
*	equates for the format of the display string      *
*************************************************************

;	the display string is Pascal style and looks like this ("_" indicates space character):
;
;		AUG_29_1989__10:20:43_AM
;		|   |  |     |  |  |  |
;		|   |  |     |  |  |  am_pm_offset (if selected at run time)
;		|   |  |     |  |  |
;		|   |  |     |  |  second_offset (if selected at assembly time)
;		|   |  |     |  |
;		|   |  |     |  minute_offset
;		|   |  |     |
;		|   |  |     hour_offset
;		|   |  |
;		|   |  year_offset
;		|   |
;		|  day_offset
;		|
;		|
;		month_offset

		; equates for these offsets into a Pascal string:

month_offset	equ 1
month_end		equ month_offset	+ 3
day_offset	equ month_end	+ 1
day_end		equ day_offset	+ 2
year_offset	equ day_end	+ 1
year_end		equ year_offset	+ 4
hour_offset	equ year_end	+ 2
hour_end		equ hour_offset	+ 2
minute_offset	equ hour_end	+ 1
minute_end	equ minute_offset	+ 2

		if seconds = 1 then
second_offset	equ minute_end	+ 1	;include seconds field
second_end	equ second_offset	+ 2
		else
second_end	equ minute_end		;exclude seconds field
		endif

am_pm_offset	equ second_end	+ 1
am_pm_end		equ am_pm_offset	+ 2

string_size	dc.w am_pm_end		;this doesn't include the length byte

part_left				;table of left character positions by part code
				;must subtract 1 because they are byte positionsÉ
				;Éin a Pascal string

		dc.w month_offset-1
		dc.w day_offset-1
		dc.w year_offset-1
		dc.w hour_offset-1
		dc.w minute_offset-1

		if seconds = 1 then
		dc.w second_offset-1	;insert entry if seconds requested
		endif

		dc.w am_pm_offset-1

part_right			;table of right character positions by part code
		dc.w month_end-1
		dc.w day_end-1
		dc.w year_end-1
		dc.w hour_end-1
		dc.w minute_end-1

		if seconds = 1 then
		dc.w second_end-1	;insert entry if seconds requested
		endif

		dc.w am_pm_end-1

part_next				;table of each part's right neighbor

		dc.w part_day	;month
		dc.w part_year	;day
		dc.w part_hour	;year
		dc.w part_minute	;hour

		if seconds = 1 then		;include seconds

		dc.w part_second	;minute
		dc.w part_am_pm	;second

		else			;exclude seconds

		dc.w part_am_pm	;minute

		endif

		dc.w 0		;am/pm field has no right neighbor

part_prev				;table of each part's left neighbor

		dc.w 0		;month has no left neighbor
		dc.w part_month	;day
		dc.w part_day	;year
		dc.w part_year	;hour
		dc.w part_hour	;minute

		if seconds = 1 then
		dc.w part_minute	;seconds
		dc.w part_second	;am/pm

		else
		dc.w part_minute	;am/pm

		endif

first_field	dc.w part_month
last_field	dc.w part_am_pm

table_end
		export table_length:equ
table_length	equ table_end - table_start

		ENDP

		export format2
format2		PROC

;		import table_length
table_start2


*************************************************************
*	equates for the format of the display string      *
*************************************************************

;	the display string is Pascal style and looks like this ("_" indicates space character):
;
;		29_AUG_1989__10:20:43_AM
;		|  |   |     |  |  |  |
;		|  |   |     |  |  |  am_pm_offset
;		|  |   |     |  |  |
;		|  |   |     |  |  second_offset
;		|  |   |     |  |
;		|  |   |     |  minute_offset
;		|  |   |     |
;		|  |   |     hour_offset
;		|  |   |
;		|  |   year_offset
;		|  |
;		|  month_offset
;		|
;		|
;		day_offset

		; equates for these offsets into a Pascal string:

day_offset	equ 1
day_end		equ day_offset	+ 2
month_offset	equ day_end	+ 1
month_end		equ month_offset	+ 3
year_offset	equ month_end	+ 1
year_end		equ year_offset	+ 4
hour_offset	equ year_end	+ 2
hour_end		equ hour_offset	+ 2
minute_offset	equ hour_end	+ 1
minute_end	equ minute_offset	+ 2

		if seconds = 1 then
second_offset	equ minute_end	+ 1	;include seconds field
second_end	equ second_offset	+ 2
		else
second_end	equ minute_end		;exclude seconds field
		endif

am_pm_offset	equ second_end	+ 1
am_pm_end		equ am_pm_offset	+ 2

string_size	dc.w am_pm_end		;this doesn't include the length byte

part_left				;table of left character positions by part code
				;must subtract 1 because they are byte positionsÉ
				;Éin a Pascal string

		dc.w month_offset-1
		dc.w day_offset-1
		dc.w year_offset-1
		dc.w hour_offset-1
		dc.w minute_offset-1

		if seconds = 1 then
		dc.w second_offset-1	;insert entry if seconds requested
		endif

		dc.w am_pm_offset-1

part_right			;table of right character positions by part code
		dc.w month_end-1
		dc.w day_end-1
		dc.w year_end-1
		dc.w hour_end-1
		dc.w minute_end-1

		if seconds = 1 then
		dc.w second_end-1	;insert entry if seconds requested
		endif

		dc.w am_pm_end-1

part_next				;table of each part's right neighbor

		dc.w part_year	;month
		dc.w part_month	;day
		dc.w part_hour	;year
		dc.w part_minute	;hour

		if seconds = 1 then		;include seconds

		dc.w part_second	;minute
		dc.w part_am_pm	;second

		else			;exclude seconds

		dc.w part_am_pm	;minute

		endif

		dc.w 0		;am/pm field has no right neighbor

part_prev				;table of each part's left neighbor

		dc.w part_day	;month
		dc.w 0		;day has no left neighbor
		dc.w part_month	;year
		dc.w part_year	;hour
		dc.w part_hour	;minute

		if seconds = 1 then
		dc.w part_minute	;seconds
		dc.w part_second	;am/pm

		else
		dc.w part_minute	;am/pm

		endif

first_field	dc.w part_day
last_field	dc.w part_am_pm

table_end2

table_length2	equ table_end2 - table_start2

	if (table_length2 = table_length) goto .ok
	aerror '### ERROR: Time/date control format tables not of equal length'
.ok	anop

		ENDP

		if table3 = 1 then		;assemble last table only ifÉ
					;Éoption is set

		export format3
format3		PROC

;		import table_length
table_start3


*************************************************************
*	equates for the format of the display string      *
*************************************************************

;	the display string is Pascal style and looks like this ("_" indicates space character):
;
;		1989_AUG_29__10:20:43_AM
;		|    |   |   |  |  |  |
;		|    |   |   |  |  |  am_pm_offset
;		|    |   |   |  |  |
;		|    |   |   |  |  second_offset
;		|    |   |   |  |
;		|    |   |   |  minute_offset
;		|    |   |   |
;		|    |   |   hour_offset
;		|    |   |
;		|    |   month_offset
;		|    |
;		|    day_offset
;		|
;		|
;		year_offset

		; equates for these offsets into a Pascal string:

year_offset	equ 1
year_end		equ year_offset	+ 4
month_offset	equ year_end	+ 1
month_end		equ month_offset	+ 3
day_offset	equ month_end	+ 1
day_end		equ day_offset	+ 2
hour_offset	equ day_end	+ 2
hour_end		equ hour_offset	+ 2
minute_offset	equ hour_end	+ 1
minute_end	equ minute_offset	+ 2

		if seconds = 1 then
second_offset	equ minute_end	+ 1	;include seconds field
second_end	equ second_offset	+ 2
		else
second_end	equ minute_end		;exclude seconds field
		endif

am_pm_offset	equ second_end	+ 1
am_pm_end		equ am_pm_offset	+ 2

string_size	dc.w am_pm_end		;this doesn't include the length byte

part_left				;table of left character positions by part code
				;must subtract 1 because they are byte positionsÉ
				;Éin a Pascal string

		dc.w month_offset-1
		dc.w day_offset-1
		dc.w year_offset-1
		dc.w hour_offset-1
		dc.w minute_offset-1

		if seconds = 1 then
		dc.w second_offset-1	;insert entry if seconds requested
		endif

		dc.w am_pm_offset-1

part_right			;table of right character positions by part code
		dc.w month_end-1
		dc.w day_end-1
		dc.w year_end-1
		dc.w hour_end-1
		dc.w minute_end-1

		if seconds = 1 then
		dc.w second_end-1	;insert entry if seconds requested
		endif

		dc.w am_pm_end-1

part_next				;table of each part's right neighbor

		dc.w part_day	;month
		dc.w part_hour	;day
		dc.w part_month	;year
		dc.w part_minute	;hour

		if seconds = 1 then		;include seconds

		dc.w part_second	;minute
		dc.w part_am_pm	;second

		else			;exclude seconds

		dc.w part_am_pm	;minute

		endif

		dc.w 0		;am/pm field has no right neighbor

part_prev				;table of each part's left neighbor

		dc.w part_year	;month
		dc.w part_month	;day
		dc.w 0		;year has no left neighbor
		dc.w part_day	;hour
		dc.w part_hour	;minute

		if seconds = 1 then
		dc.w part_minute	;seconds
		dc.w part_second	;am/pm

		else
		dc.w part_minute	;am/pm

		endif

first_field	dc.w part_year
last_field	dc.w part_am_pm

table_end3

table_length3	equ table_end3 - table_start3

	if (table_length3 = table_length) goto .ok
	aerror '### ERROR: Time/date control format tables not of equal length'
.ok	anop

		ENDP

		endif		;from option controlled by "table3"
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/TimeCDEV/time.aii b/IIGS.601.SRC/A.U.G/CtlPanel/TimeCDEV/time.aii
new file mode 100644
index 0000000..ca2d73a
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/TimeCDEV/time.aii
@@ -0,0 +1 @@
+;;;	time - time CDEV.
;
;	Michael V. Stein	03/30/90.
;
;	© Apple, 1990.


	blanks	off

	
;;	equates.



aug_param  equ	$5e		bit 0 set means no closed captioning
				;bit 1 set means standard time
				;      clear if daylight savings time
				;bit 2 set means not to have auto daylight savings
				;      clear means to have auto daylight savings
				;bit 3 and 4 are the amount of menublink to have
	
radio1ID  equ	10

radio4ID  equ	radio1ID+3	ID of 4th radio control

radio6ID  equ	radio4ID+2	ID of 6th radio control

checkID	equ	radio6ID+2	ID of checkbox



;	time/date control info

TDCtlRec	RECORD  0		;record for the Time/Date control

ctlNext		ds.l  1
ctlOwner	ds.l  1
ctlRect		ds.w  4
ctlFlag		ds.b  1
ctlHilite	ds.b  1
ctlValue	ds.w  1
ctlProc		ds.l  1
ctlAction	ds.l  1
ctlData		ds.l  1
ctlRefCon	ds.l  1
ctlColor	ds.l  1
ctlReserved	ds.b  16
ctlID		ds.l  1
ctlMoreFlags	ds.w  1		;bit 0 = 1 --> 24 hour format
				;bit 1 = 1 --> control currently dimmed
ctlVersion	ds.w  1

		;control-specific fields

dateRec		ds.b 8		;GS/OS time/date record
cwidth		ds.w 1		;width of each character in the string
arrowPos	ds.w 1		;pixel position of arrows relative to control rect
currPart	ds.w 1		;currently active part (string field)
formatRef	ds.w 1		;pointer to format table
drawFlag	ds.w 1		;flag to tell us not to draw twice when we get shown

ctlSize

ctlKey1		equ ctlReserved
ctlKey2		equ ctlKey1+1
ctlKeyMods	equ ctlKey2+1
ctlKeyModsCareBits	equ ctlKeyMods+2

ctlJust		equ ctlReserved

		ENDR
	
	

;;	include files.


	include	'::cdev.h'
	include	'::commonmacros.h'
	include	'::dp.h'
	include	'e16.control'
	include	'e16.event'
	include	'm16.control'
	include	'm16.event'
	include	'm16.intmath'
	include	'm16.menu'
	include	'm16.misctool'
	include	'm16.quickdraw'
	include	'm16.util2'
	include	'm16.window'
	



;;	main program.


main	proc


;;	imported addresses.

	import	about
	import	ctllist
	import	dayctl
	import	daylen
	import	dctl
	import	tctl
	

;;	exported addresses.

	export	cdsa



time	phb			save calling data bank
	phk
	plb			set our data bank		

;	make room on stack for direct page.

	tsc			
	sec			
	sbc	#dpsize		make room on stack for new direct page
	tcs			
	phd			save the current direct page
	tcd			new direct page

	lda	message	
	cmp	#12		
	bcs	time1		if message defintely not handled
		
	asl	a		times 2 into word table
	tax			move into index reg
	jsr	(t_cdev-2,x)	call the handler of this message

time1  	pld			restore direct page
	tsc
	clc
	adc	#dpsize		
	tcs			reset the stack
	lda	1,s		Bump the stack up to prepare
	sta	11,s		to take off the 3 parameters
	lda	3,s		
	sta	13,s

	pla			get rid of message space
	
	pla			get rid of data1 space
	pla			
	
	pla			get rid of data2 space
	pla			
	
	lda	#$0		return 0 to caller
	sta	5,s
	sta	7,s		
	plb
	
	rtl
		

t_cdev	dc.w	cccE		handle machine message - ignored
	dc.w	cccE		handle boot message - ignored
	dc.w	cccE		reserved - ignored
	dc.w	icc		init cdev controls
	dc.w	ctc		close the cdev
	dc.w	hem		handle event message
	dc.w	ccc		create cdev controls
	dc.w	ham		handle about message
	dc.w	cccE		handle rectangle message - ignored
	dc.w	hhm		handle hit message
	dc.w	rtc		handle run message




;;	ccc - create cdev controls.
;
;	entry	(ctllist..) = pointers to most of the controls.
;		[data1] = window pointer.
;		(dayctl..) = day of year control template.
;		(dctl..) = date control template.
;		(tctl..) = time control template.
;
;	exit	controls are created.


ccc	jsr	cds		create day of year string

	pha
	pha			space for result
	pushl	data1		window ptr
	pushw	#0		next item is a ptr
	pushl	#dayctl
	_NewControl2
	pulll	dayhdl		handle to day of year control

	pha
	pha			space for result
	pushl	data1		window ptr
	pushw	#0		next item is a ptr
	pushl	#dctl
	_NewControl2
	pulll	dhdl		handle to date control
	
	pha
	pha			space for result
	pushl	data1		window ptr
	pushw	#0		next item is a ptr
	pushl	#tctl
	_NewControl2
	pulll	thdl		handle to time control
	
	pha			space for result
	pha
	pushl	data1		window pointer
	pushw	#3		next item is a ptr to a list of template pointers
	pushl	#ctllist
	_NewControl2
	pla
	pla			don't care about result	

cccE	rts



;;	ctc - close the cdev.
;
;	entry	none.
;
;	exit	updates the time and date and exits.


ctc	jmp	utd		update time and date and return
	
		
	
;;	ham - handle about message.
;
;	entry	[data1] = window pointer.
;		(about..) = template for about screen.
;
;	exit	The About control is created.


ham	pha			space for result
	pha
	pushl	data1		window pointer
	pushw	#0		next item is a ptr to a template
	pushl	#about
	_NewControl2
	pla
	pla			don't care about result
	rts



;;	hem - handle event message.
;
;	entry	[dhdl] = handle to date control.
;		[data1] = ptr to event record.
;		(readyF) = 0 if the controls are initialized.
;		[wptr] = window pointer.
;
;	exit	if the user types something and there is a target control
;		the control is given the event, everything us updated and
;		the event is turned into a null event.  We process it here
;		since TaskmasterDA is way too slow to use for something that
;		occurs as often as a human typing a key.


hem0	rts


hem	lda	readyF
	bne	hem0		if controls not initialized yet
		
	ldy	#owhat
	lda	[data1],y	get what type of event occurred
	cmp	#keyDownEvt
	beq	hem1		if user typed something
	cmp	#autoKeyEvt
	bne	hem0		if not an auto key event then return
	
hem1	ldy	#omessage
	lda	[data1],y
	sta	eventrec+2

	pha			space for result
	pushw	#$ffff		send to target only
	pushl	wptr		window ptr
	pushl	#eventrec
	_SendEventtoCtl
	pla			get result from stack
	
	pha
	pha
	_FindTargetCtl
	pla			low word
	plx			high word
	
	cmp	dhdl
	bne	hem4		if not date handle
	cpx	dhdl+2
	bne	hem4		if not date handle

	jsr	udy		update day of year
		
hem2	;jsr	sdc		set daylight controls 
	jsr	udo		update date only
	bra	hem5

hem4	jsr	utd		update time and date

hem5	jsr	sdc		set daylight controls
	lda	#nullEvt
	ldy	#owhat
	sta	[data1],y	remove the event
hem6	rts



;;	hhm - handle hit message.
;
;	entry	[data1] = handle to control that was hit.
;		[data2] = id of control that was hit.
;
;	exit	battery parameter locations are updated.


hhm	lda	data2		id of control
	cmp	#radio1ID
	bcs	hhm1		if radio control
	jmp	hhm12		
	
hhm1	pha
	jsr	utd		update time and date
	lda	thdl
	ldx	thdl+2
	jsr	dts		disable target status
	
	lda	dhdl
	ldx	dhdl+2
	jsr	dts		disable target status
	
	pla
	cmp	#radio4ID
	bcs	hhm2		if not first family of radio buttons
	sbc	#radio1ID-1	(c) clear
	ldx	#$34		battery paramater for date format
	jmp	udf		update display formats
	
	
hhm2	cmp	#radio6ID
	bcs	hhm3		if not the time format
	sbc	#radio4ID-1	(c) clear
	ldx	#$35		parameter for ampm/military format
	jmp	udf		update display format and return
	
	
hhm3	cmp	#checkID
	bcs	hhm7		if the auto daylight checkbox

	cmp	format
	beq	hhm6		if the same as before
	sta	format
	
	ldx	#aug_param
	jsr	rbp		read battery parameter
	sta	w1		save for now
	ldy	#2		assume standard time
	lda	data2
	cmp	#radio6ID
	beq	hhm4		if set to standard time
	
	ldy	#$0		flag that it is daylight time
hhm4	sty	w2
	lda	w1
	and	#%11111101	reset to daylight time
	ora	w2		set daylight/standard time as appropriate
	ldx	#aug_param
	jsr	wbp		write battery parameter and return
	lda	#3600
	ldx	#^3600
	ldy	w2
	beq	hhm5		if selected daylight time
	lda	#-3600
	ldx	#^-3600
hhm5	jsr	ats		adjust the time by seconds
	lda	thdl
	ldx	thdl+2
	jsr	itd		init time and date
	
	lda	dhdl
	ldx	dhdl+2
	jsr	itd		init time and date 
	
	pushl	thdl
	_DrawoneCtl
hhm6	rts


hhm7	ldx	#aug_param
	jsr	rbp		read battery param
	sta	w1		save for now
	pha			space for result
	pushl	data1		handle of checkbox control
	_GetCtlValue	
	ldy	#0		assume auto daylight savings
	plx	
	bne	hhm8		if auto daylight savings
	ldy	#4
hhm8	sty	w2
	lda	w1
	and	#%11111011	reset to auto daylight savings
	ora	w2		set auto daylight / manual daylight as appropriate
	ldx	#aug_param
	jsr	wbp		write battery parameter

	lda	w2
	bne	hhm10		if not auto daylight savings	

	lda format		;get current standard/daylight setting
	pha			;save for after call
	jsr	sdc		set daylight controls

	pla			;get old format
	cmp format		;new format different?
	beq @no_fmt_change
@changed		;adjust hour based on change
	lda	#3600
	ldx	#^3600
	ldy format		;what is new format?
	cpy #radio6ID+1		;daylight time?
	beq	@daylight	if selected daylight time
	lda	#-3600
	ldx	#^-3600
@daylight
	jsr	ats		adjust the time by seconds


@no_fmt_change

;	;bcc	hhm10		if ok
;	;cpx	#radio6id
;	;beq	hhm9		if switching from daylight to standard time
;	;jmp	sah		spring ahead an hour and return
;	
;hhm9	;jmp	fbh		fall back an hour and return	

hhm10	jmp	urc		update radio controls and return


hhm12	cmp	#5
	bne	hhm13		if not the days left

	lda	thdl
	ldx	thdl+2
	jsr	dts		disable target status
	
	lda	dhdl
	ldx	dhdl+2
	jsr	dts		disable target status

	lda	dispF
	eor	#1
	sta	dispF

	lda	#$ffff
	jsr	cdsE		create day string - always
	pushw	daylen
	pushl	dayhdl
	_SetCtlValue
	pushl	dayhdl
	_DrawOneCtl
	rts
	
	
hhm13	cmp	#2
	bne	hhm15		if not date control
	jsr	udo		update date only
		
hhm14	jsr	udy		update day of year
	bra	hhm16
	
	
hhm15	jsr	utd		update time and date
	
hhm16	pha
	pushl	checkhdl
	_GetCtlValue
	pla
;	beq	hhm17		if not auto daylight
	jmp	sdc		set daylight controls nd return

hhm17	rts



;;	icc - init cdev controls.
;
;	entry	[data1] = window pointer.
;		
;	exit	[checkhdl] = handle of Auto Daylight savings checkbox control.
;		[radio6hdl] = handle to control for standard time button.
;		[radio7hdl] = handle to control for daylight time button.
;		(readyF) = 0.
;		[wptr] = window pointer.
;		controls are intialized to the battery settings.


icc	lda	data1		save window pointer for later
	sta	wptr
	lda	data1+2
	sta	wptr+2
	
	ldx	#$35		parameter for ampm/24 hour format
	jsr	rbp		read battery parameter
	clc
	adc	#radio4ID
	tax			id of control to set
	lda	#1		value to set the radio button
	jsr	scv		set control value
		
	ldx	#$34		battery parameter for date format
	jsr	rbp		read battery parameter
	clc
	adc	#radio1ID
	tax
	lda	#1		value to set the radio button
	jsr	scv		set control value

	pha
	pha			space for result
	pushl	data1		window ptr
	pushl	#radio6ID	ID of control
	_GetCtlHandleFromID
	pulll	radio6hdl
	
	pha
	pha			space for result
	pushl	data1		window ptr
	pushl	#radio6ID+1	ID of control
	_GetCtlHandleFromID
	pulll	radio7hdl
		
	pha			space for getctlhandle call
	pha			space for getctlhandle call
	
	pushl	data1		window pointer
	pushl	#checkid	id of control
	_GetCtlHandleFromID
	pulll	checkhdl

	lda	thdl
	ldx	thdl+2
	jsr	itd		init time and date
	
	lda	dhdl
	ldx	dhdl+2
	jsr	itd		set time and date 
	
	ldx	#aug_param
	jsr	rbp		read battery parameter
	and	#$4
	bne	icc1		if not auto daylight time
	
	lda	#1
	ldx	#checkID	checkbox ID
	jsr	scv		set control value
	jsr	sdcE		set daylight controls - forced
	jsr	urc		update radio controls (dim them)
	bra	icc3		finish things up


icc1	ldx	#aug_param
	jsr	rbp		read battery parameter
	ldx	#radio6ID	assume standard time
	and	#$2
	bne	icc2		if standard time
	inx			set daylight time
icc2	lda	#1
	jsr	scv		set control value


icc3	stz	readyF

	pha
	pushl	radio6hdl
	_GetCtlValue
	ldx	#radio6id	assume standard time
	pla
	bne	icc4		if standard time is set
	inx			daylight time is set
icc4	stx	format	

icc_setrect			;set rect to erase when switching hour display

	lda	thdl
	ldx	thdl+2
	jsr	dah		dereference a handle

	ldy #TDCtlRec.ctlRect+6	;start at last point in rect
	ldx #6
@rect_loop
	lda [l2],y		;access ctl record
	clc
	adc erase_offsets,x	;signed add to get our rect to erase
	sta erase_rect,x
	dey
	dey
	dex
	dex
	bpl @rect_loop

	rts

erase_offsets			;offsets to modify ctl rect to get rectÉ
				;Éwe erase when switching hour format
	dc.w 0,75,0,25



;;	rtc - run the cdev.
;
;	entry	[wptr] = window pointer.
;
;	exit	if the controls aren't being editted and they have
;		changed, then they are updated and redisplayed.


rtc0	rts


rtc	pha
	pha
	_FrontWindow
	pla
	plx
	cmp	wptr
	bne	rtc0		if not front window
	cpx	wptr+2
	bne	rtc0		if not front window
	
	pha
	pha
	_FindTargetCtl
	pla			low word
	plx			high word
	
	sta	l4
	stx	l4+2
	cmp	thdl
	bne	rtc1		if not time handle
	cpx	thdl+2
	beq	rtc2		if time handle

rtc1	lda	thdl
	ldx	thdl+2
	jsr	itd		init time and date
	lda	oldsec
	cmp	newsec
	beq	rtc5		if hasn't changed yet
	pushl	thdl
	_DrawOneCtl

rtc2	lda	l4
	cmp	dhdl
	bne	rtc3		if not date handle
	lda	l4+2
	cmp	dhdl+2
	bne	rtc3		if date handle isn't the target handle
	
	jsr	udo		update date only
	bra	rtc4
	
rtc3	lda	dhdl
	ldx	dhdl+2
	jsr	itd		init time and date 
	lda	oldday
	cmp	newday
	beq	rtc5		if hasn't changed yet
	pushl	dhdl
	_DrawOneCtl

rtc4	jsr	udy		update day of year
	bcs	rtc5		if nothing changed
	jmp	sdc		set daylight controls and return
	
rtc5	rts


rtca	dc.w	0		counter for when to draw




;	teriary routines used by the message handling routines.




;;	ats - adjust the time by seconds.
;
;	entry	[a,x] = # of seconds to adjust the time.
;
;	exit	clock is adjusted.


ats	sta	l1		save change for now
	stx	l1+2

	pha			space for result
	pha			space for result
	pushw	#6		get current time based on seconds
	pushl	#0
	pushl	#buff		buffer to use
	ldx	#$3703
	jsl	$e10000		convert seconds

;	adjust the seconds.

	lda	1,s
	clc
	adc	l1
	sta	1,s
	lda	1+2,s
	adc	l1+2
	sta	1+2,s		
	plx			lo word of seconds
	ply			hi word of seconds

	pha			space for result
	pha			space for result
	pushw	#7		set current time based on seconds
	phy			hi word of seconds
	phx			lo word of seconds
	pushl	#buff		buffer to use
	
	pushw	#$e1e1		kludge for misc tools bug
	plb			kludge for misc tools bug
	plb			kludge for misc tools bug
	ldx	#$3703
	jsl	$e10000		convert seconds
	
	phk			kludge for misc tools bug
	plb			kludge for misc tools bug
	
	pla
	plx
	rts
	

buff	ds.b	10




;;	cds - create day string.
;
;	cds creates the string like 'Day 103 of this year.
;				     262 days left in this year.
;
;	entry	(leapF) = 1 if leap year.
;
;	exit	(cdsa..) = string of days left in year.
;		(daylen) = length of string.



cds	lda	leapF
cdsE	sta	cdsg
	jsr	cdy		compute day of year
	cmp	cday
	sta	cday
	bne	cds1		if has definetly changed

	ldx	leapF
	cpx	cdsg
	bne	cds1		if year changed to or from a leap year
	sec
	bra	cds1a
	
cds1	clc

cds1a	php			save status for later

	pha			int to convert
	pushl	#cdsf		dest string
	pushw	#3		3 chars long
	pushw	#0		unsigned
	_Int2Dec
	ldx	#0
	txy
	lda	cday
	cmp	#100
	bcs	cds2		if three digit #
	inx
	cmp	#10
	bcs	cds2		if two digit #
	inx
cds2	shortmx
cds3	lda	cdsf,x
	sta	cdsa+4,y
	iny
	inx
	cpx	#3
	bcc	cds3		if more to copy
	
	ldx	#0
cds4	lda	cdsb,x
	sta	cdsa+4,y	copy over ' of year',$d
	iny
	inx
	cpx	#cdsbL
	bcc	cds4		if more to copy
	sty	w3		save offset for now
	
	longmx	
	lda	leapF
	clc
	adc	#365
	sta	w1		length of year
	sec
	sbc	cday
	ldx	dispF
	beq	cds5		if till end of year
	sbc	#6		(c) set
	bcs	cds5		if not last week of year
	adc	w1		(c) clear, adjust for the last week
cds5	sta	w2		save for now

	pha			int to convert
	pushl	#cdsf		dest string
	pushw	#3		3 chars long
	pushw	#0		unsigned
	_Int2Dec
	ldx	#0
	lda	w2
	cmp	#100
	bcs	cds6		if three digit #
	inx
	cmp	#10
	bcs	cds6		if two digit #
	inx
cds6	ldy	w3		restore offset
	shortmx
cds7	lda	cdsf,x
	sta	cdsa+4,y	save digit
	iny
	inx
	cpx	#3
	bcc	cds7		if more to copy
	
	longmx
	lda	#'d '
	sta	cdsa+4,y
	iny
	iny
	lda	#'ya'
	sta	cdsa+4,y	add 'ay'
	iny
	iny
	ldx	w2
	dex
	beq	cds8		if only 1 day left
	lda	#' s'
	sta	cdsa+4,y
	iny
	
cds8	shortmx
	ldx	dispF
	beq	cds10		if till end of year
	ldx	#0
cds9	lda	cdsd,x
	sta	cdsa+4,y
	iny
	inx
	cpx	#cdsdL
	bcc	cds9		if more to copy
	bra	cds11
	
cds10	lda	cdsc,x
	sta	cdsa+4,y
	iny
	inx
	cpx	#cdscL
	bcc	cds10		if more to copy
	
cds11	tya
	adc	#4-1		(c) set
	sta	daylen		length of string
	longmx
	plp
	rts
	

	
;	data used here.


cdsa	dc.b	'Day '
	ds.b	75		hold rest of text item
	
cdsb	dc.b	' of this year.',$d	
cdsbL	equ	*-cdsb		length of string

cdsc	dc.b	' left in this year.'
cdscL	equ	*-cdsc		length of string

cdsd	dc.b	' ''til Christmas.'
cdsdL	equ	*-cdsd		length of string


cdsf	ds.b	5		hold string

cdsg	ds.b	2		used to hold the old leap year flag



;;	cdy - compute day of year.
;
;	entry	clock is set to time.
;
;	exit	(a) = day of year.
;		(leapF) = 0 if not leap year.
;			= 1 if leap year.


cdy	pha
	pha
	pha
	pha			space for result
	_ReadTimeHex
	stz	leapF		assume not leap year
	lda	4,s		get year and hour
	and	#$ff		remove hour
	cmp	#100
	beq	cdy1		if the year 2000, then not leapyear
	and	#3		
	bne	cdy1		if not leap year
	inc	leapF		flag that it is a leap year
cdy1	lda	6,s		get month and filler
	and	#$ff		remove filler
	sta	w1		ending month
	stz	w2		current day count
	ldx	#0
cdy2	cpx	w1
	bcs	cdy4		if done
	lda	cdymonth,x	get days in this month
	and	#$ff		only low byte is significant
	clc
	adc	w2
	cpx	#1
	bne	cdy3		if not adding in february
	clc
	adc	leapF		add in the effects of leap year
cdy3	sta	w2		current day count
	inx
	bra	cdy2		process next month
	
cdy4	lda	5,s		get day of month and  month
	and	#$ff		remove month
	adc	w2		(c) set
	
	plx			clear off stack
	plx
	plx
	plx
	rts

	
cdymonth  dc.b	31,28,31,30,31,30,31,31,30,31,30,31




	
;;	dah - dereference a handle.
;
;	entry	[a,x] = handle.
;
;	exit	[l2] = derefenced handle.


dah	sta	l1
	stx	l1+2
	
	lda	[l1]
	sta	l2		low word of ptr
	ldy	#2
	lda	[l1],y
	sta	l2+2		hi word of ptr
	rts	
	
	
	
;;	dts - disable target status.
;
;	entry	[a,x] = hqandle to control.
;
;	exit	control is no longer the target.


dts	sta	l4
	stx	l4+2
	jsr	dah		dreference a handle
	ldy	#TDCtlRec.ctlMoreFlags
	lda	[l2],y
	and	#$7fff		control is no longer target
	sta	[l2],y
	pha
	pha
	pushl	l4		control handle
	pushw	#ctlChangeTarget
	pha
	pha			
	_CallCtlDefProc
	pla
	pla
	rts



;;	fbh - fall back an hour.
;
;	entry	none.
;
;	exit	clock is moved back an hour.


fbh	lda	#-3600
	ldx	#^-3600
	jmp	ats		adjust the time be seconds and return


	
	
;;	gds - get daylight status.
;
;	entry	clock is set up to the time.
;
;	exit	(c) set if standard time.


gds	pha			space for result
	pha			space for result
	pha			space for result
	pha			space for result
	_ReadTimeHex
	lda	6,s		get month and filler
	and	#$ff		remove filler
	cmp	#3
	bcc	gds2a		if not at least april, then it is standard time
	
	cmp	#3
	bne	gds3		if not april
	
;	see if past the first sunday in april.

	lda	5,s
	and	#$ff		get day of month
	cmp	#6+1
	bcs	gds9		if definetly past the first sunday of the month
	
	tax
	stx	w1		save for now
	
	lda	8,s		get day of week
	and	#$ff		remove extra garbage

gds1	cmp	#1
	beq	gds2		if found the first sunday of the month
	dea
	dex
	bpl	gds1		if more to check in the month
	bra	gds8		if definetly standard time
	
gds2	cpx	w1
	bne	gds9		if past the first sunday of april
	
;	today is the first sunday of april.

	lda	3,s		get hour and year
	and	#$ff		remove year
	cmp	#2
	bcs	gds9		if in daylight savings
gds2a	bra	gds8		if standard time
	
gds3	cmp	#9
	bcc	gds9		if defintely daylight savings
	bne	gds8		if defintely standard time
	
	lda	5,s
	and	#$ff		get day of month in low bye
	cmp	#30-6
	bcc	gds9		if definetly in daylight savings
	tax
	stx	w1
	lda	8,s		get day of week
	and	#$ff		remove extra garbage
	
gds4	cmp	#1
	beq	gds7		if found the last sunday of the month
	ina
	cmp	#8
	bcc	gds5		if haven't wrapped
	lda	#1		reset to sunday
gds5	inx
	cpx	#30+1
	bcc	gds4		if more to check in the month
	bra	gds8		if defintely standard time
	
gds7	cpx	w1
	bne	gds9		if before the last sunday of the month
	
;	today is the last sunday of october.

	lda	3,s		get hour and year
	and	#$ff		remove year
	cmp	#2
	bra	gds10		(c) set if standard time
	
gds8	sec			flag standard time
	skip1			skip the next instruction
gds9	clc			flag daylight savings time

gds10	plx			clear off stack
	plx
	plx
	plx
	rts
	

;;	rbp - read battery parameter.
;
;	entry	(x) = parameter to read.
;
;	exit	(a) = value of parameter.


rbp	pha			space for result
	phx			parameter to read
	_ReadBparam
	pla			get value
	rts



;;	scv - set control value.
;
;	entry	(a) = value to set.
;		(x) = id of control.
;
;	exit	none.


scv	pha			value to set

	pha			space for result
	pha			
	
	pushl	wptr		window pointer
	pushw	#0
	phx			id of control
	_GetCtlHandleFromID
	_SetCtlValue		value to set was already on stack
	rts



;;	sdc - set daylight controls.
;
;	entry	none
;
;	exit	if clock is in different time than controls then the radio
;		buttons are reset.


;;	alternate entrypoint:  sdcE.
;
;	forces the control to be set

sdc	clc
	skip1

sdcE	sec
	ror	sdca
	
	pha			space for result

	pushl	radio6hdl	
	_GetCtlValue
	
	jsr	gds		get daylight status
	ldx	#radio6id	id of standard time control
	stx	format
	pla
	bcs	sdc1		if standard time
	inx
	stx	format		id of selected radio control
	ldy	sdca
	bmi	sdc2		if forced setting
	
	tay
	beq	sdc3		if set correctly
	bra	sdc2
	
;	standard time.

sdc1	ldy	sdca
	bmi	sdc2		if forced setting
	
	tay
	bne	sdc3		if set correctly
	
sdc2	lda	#1
	phx			save for now
	jsr	scv		set control value
	jsr	urc		update radio control
	
	sec
	plx			id of control that is correct
	rts
				
sdc3	clc
	rts



sdca	dc.w	0




;;	sah - spring ahead an hour.
;
;	entry	none.
;
;	exit	clock is moved ahead an hour.


sah	lda	#3600
	ldx	#^3600
	jmp	ats		adjust the time be seconds


	
;;	itd - init time and date.
;
;	entry	[a,x] = handle to control.
;
;	exit	(oldsec) = old seconds.
;		(newsec) = new seconds of control.
;		(oldday) = old day of year of control.
;		(newday) = new day of year of control.
;		controls date and time fields are updated.


itd	jsr	dah		derefeence a handle
	pha
	pha
	pha
	pha
	_ReadTimeHex
	ldy	#TDCtlRec.daterec
	lda	[l2],y
	sta	oldsec		old seconds
	pla
	sta	newsec		new seconds
	sta	[l2],y		store seconds and minute in control
	iny
	iny
	pla
	sta	[l2],y		store hour and year
	iny
	iny
	lda	[l2],y
	sta	oldday
	pla
	sta	newday
	sta	[l2],y		store day of month and month
	iny
	iny
	pla
	sta	[l2],y		store filler and day of week
	rts




;;	urc - update radio controls.
;
;	entry	[checkhdl] = handle of checkbox control.
;		[radio6hdl] = handle to standard time button.
;		[radio7hdl] = handle to daylight time button.
;		
;	exit	if the checkbox is set, the radio buttons are dimmed.


urc	pha
	pushl	checkhdl
	_GetCtlValue	
	ldx	#inactivehilite
	pla
	bne	urc1		if set
	ldx	#nohilite
		
urc1	phx
	phx			what to set the radio controls to	
	
	pushl	radio6hdl
	_HiliteControl	
	pushl	radio7hdl
	_HiliteControl
	pushl	radio6hdl
	_DrawOneCtl
	pushl	radio7hdl
	_DrawOneCtl
	
	rts



;;	udf - update display formats.
;
;	entry	[dhdl] = handle to day of year control.
;		[thdl] = handle to time of day control.
;
;	exit	controls are reinitialized and redrawn.


udf	jsr	wbp		write battery parameter
	pha
	pha
	pushl	dhdl		control handle
	pushw	#3		init control
	pushl	#dctl
	_CallCtlDefProc
	pla
	pla
	
	pha
	pha
	pushl	thdl		control handle
	pushw	#3		init control
	pushl	#tctl
	_CallCtlDefProc
	pla
	pla
	
	lda	thdl
	ldx	thdl+2
	jsr	itd		init time and date
	
	lda	dhdl
	ldx	dhdl+2
	jsr	itd		set time and date 

	;pushl	#udfa
	;_EraseRect

	pushl #erase_rect
	_EraseRect
	
	pushl	thdl
	_DrawOneCtl

	pushl	dhdl
	_DrawOneCtl
	rts


;udfa	dc.w	5,160+65,5+10,160+65+100
;udfa	dc.w	5,240,18,290

erase_rect	ds.w 4			;kludge rect to erase to clean
					;things up -- set in icc



;;	udo - update date only.
;
;	entry	[dhdl] = handle to day of year control.
;
;	exit	the date is updated in the real-time clock.


udo	lda	dhdl
	ldx	dhdl+2
	jsr	dah		dereference a handle
	
	ldy	#TDCtlRec.daterec+4
	lda	[l2],y		get month and date
	sta	w2		save for now
	dey
	dey
	lda	[l2],y		get year in hi byte
	and	#$ff00
	cmp	#$400
	bcs	uto1
	lda	#$400
uto1	sta	w1		save for now

uto2	pha
	pha
	pha
	pha			space for result
	_ReadTimeHex
	lda	3,s		get year and hour
	and	#$ff		strip off year
	ora	w1		add in correct year
	sta	w3		save for now
	
	lda	1,s

	plx
	plx
	plx
	plx
	
	ldx	w2
	phx
	ldx	w3
	phx
	pha
	_WriteTimeHex
	rts



;;	udy - update day of year.
;
;	entry	none.
;
;	exit	day of year string is updated.


udy	jsr	cds		create day of year string
	bcs	udy1		if nothing changed
	
	pushw	daylen
	pushl	dayhdl
	_SetCtlValue

	pushl	dayhdl
	_DrawOneCtl
	clc
	
udy1	rts




;;	utd - update time and date.
;
;	entry	[dhdl] = handle to day of year control.
;		[thdl] = handle to time of day control.
;
;	exit	The system clock is updated based on the settings of the
;		2 controls.


utd	lda	dhdl
	ldx	dhdl+2
	jsr	dah		dereference a handle
	
	lda	utdnday
	sta	utdoday
	
	lda	utdnyear
	sta	utdoyear
	
	ldy	#TDCtlRec.daterec+4
	lda	[l2],y		get month and date
	sta	utdnday
	pha
	dey
	dey
	lda	[l2],y		get year in hi byte
	
	sta	utdnyear
	
	and	#$ff00
	cmp	#$400
	bcs	utd1
	lda	#$400
utd1	sta	w1		save for now
		
	lda	thdl
	ldx	thdl+2
	jsr	dah		dereference a handle
	
	ldy	#TDCtlRec.daterec+2
	lda	[l2],y
	and	#$ff		leave hour in low byte
	ora	w1		add in year
	pha
	dey
	dey
	lda	[l2],y		get minute and second
	pha
	_WriteTimeHex	
	rts
	
	
;	data used here.


utdoyear  ds.b	2

utdnyear  ds.b	2

utdoday	ds.b	2

utdnday	ds.b	2




;;	wbp - write battery parameter.
;
;	entry	(a) = value of parameter to set.
;		(x) = battery parameter to set.
;
;	exit	battery parameter is set.


wbp	pha			new value
	phx			parameter to set
	_WriteBparam
	rts
	


;	data used here.


cday	dc.w	$ffff		current day of year

dispF	ds.b	2		= 0 to display till end of year info

dayhdl	ds.b	4		handle to day of year control

dhdl	ds.b	4		handle to date control

checkhdl  ds.b	4		handle to auto daylight checkbox

eventrec  dc.w	keydownevt
	ds.b	$30		

format	dc.w	$ffff		id of control 

leapF	dc.w	$ffff		= 0 if not leap year, else = 1

newday	ds.b	2		day of month from clock

newsec	ds.b	2		seconds value from clock

oldday	ds.b	2		day of month value displayed

oldsec	ds.b	2		seconds value currently displayed

radio6hdl  ds.b	4		handle to sixth radio button

radio7hdl  ds.b	4		handle to seventh radio button
	
readyF	dc.w	$ffff		flag not ready for events yet

thdl	ds.b	4		handle to time of day control

wptr	ds.b	4		window ptr	
	
	
	endp

	end
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/TimeCDEV/time.date.ctl b/IIGS.601.SRC/A.U.G/CtlPanel/TimeCDEV/time.date.ctl
new file mode 100644
index 0000000..8da31e0
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/TimeCDEV/time.date.ctl
@@ -0,0 +1 @@
+**********************************************************************************
*                                                                                *
*	ArchiverGS                                                             *
*		-- a general-purpose backup utility for the Apple][GS        *
*                                                                                *
*	Custom time/date input control for auto-selection.                     *
*                                                                                *
*	Copyright Apple Computer Inc. 1989  ALL RIGHTS RESERVED                *
*                                                                                *
*                                                                                *
**********************************************************************************



*******	REVISION HISTORY:	****************************************************
*
*	August 26, 1989	Monte Benaresh
*
*		Created this file.
*
**********************************************************************************

		machine M65816

jump		PROC		;first bytes of this code image must be the entry point

		import time_date_defproc

		jmp time_date_defproc

		ENDP

;-----------------------------------------------------------
;
; New action messages supported by some controls
;
ctlHandleEvent	equ 13	;Send the event record to control
ctlChangeActivity	equ 14	;The activity bit in MoreFlags just changed.
ctlChangeBounds	equ 15
ctlWindChangeSize   equ 16
ctlHandleTab	equ 17
ctlNotifyMultiPart	equ 18	;Called if set and when HideControl is called
ctlWinStateChange	equ 19	;Called if window state changes.

MaxMessages	equ 19


;-----------------------------------------------------------
;
; Extended task record def
;

NewTaskRecord	RECORD 0

taskWhat   	ds.W 1		; Word - WmTaskRec -  
taskMessage   	ds.L 1		; Long - WmTaskRec -  
taskWhen   	ds.L 1		; Long - WmTaskRec -  
taskWhere   	ds.L 1		; Point - WmTaskRec -  
taskModifiers   	ds.W 1		; Word - WmTaskRec -  
taskData   	ds.L 1		; Long - WmTaskRec - TaskMaster return value.
taskMask   	ds.L 1		; Long - WmTaskRec - TaskMaster feature mask.
taskLastClick	ds.L 1
taskClickCount	ds.W 1
taskData2		ds.L 1
taskData3		ds.L 1
taskData4		ds.L 1

		ENDR

nullEvt      EQU   $0000 ; Event Code -  
mouseDownEvt EQU   $0001 ; Event Code -  
mouseUpEvt   EQU   $0002 ; Event Code -  
keyDownEvt   EQU   $0003 ; Event Code -  
autoKeyEvt   EQU   $0005 ; Event Code -  
updateEvt    EQU   $0006 ; Event Code -  
activateEvt  EQU   $0008 ; Event Code -  
switchEvt    EQU   $0009 ; Event Code -  
deskAccEvt   EQU   $000A ; Event Code -  
driverEvt    EQU   $000B ; Event Code -  
app1Evt      EQU   $000C ; Event Code -  
app2Evt      EQU   $000D ; Event Code -  
app3Evt      EQU   $000E ; Event Code -  
app4Evt      EQU   $000F ; Event Code -  


gsos_date		RECORD 0		;GS/OSª time and date format

seconds		ds.b 1
minutes		ds.b 1
hour		ds.b 1
year		ds.b 1
day		ds.b 1
month		ds.b 1
null		ds.b 1
weekday		ds.b 1

		ENDR

*************************************************************
*	special fudge equates			*
*************************************************************

arrow_height	equ 4		;height of each arrow pixels
arrow_width	equ 20		;width of arrows in pixels
icon_width	equ 5		;byte width of arrow icons
rect_height	equ arrow_height*2 + 5	;height of control rectangle
string_v_pos	equ 2		;vertical adjustment for string position
string_h_pos	equ 3		;horizontal adjustment for string position


TDCtlRec		RECORD  0		;record for the Time/Date control

ctlNext		ds.l  1
ctlOwner		ds.l  1
ctlRect		ds.w  4
ctlFlag		ds.b  1
ctlHilite		ds.b  1
ctlValue		ds.w  1
ctlProc		ds.l  1
ctlAction		ds.l  1
ctlData		ds.l  1
ctlRefCon		ds.l  1
ctlColor		ds.l  1
ctlReserved	ds.b  16
ctlID		ds.l  1
ctlMoreFlags	ds.w  1		;bit 0 = 1 --> 24 hour format
				;bit 1 = 1 --> control currently dimmed
ctlVersion	ds.w  1

		;control-specific fields

dateRec		ds.b 8		;GS/OS time/date record
cwidth		ds.w 1		;width of each character in the string
arrowPos		ds.w 1		;pixel position of arrows relative to control rect
currPart		ds.w 1		;currently active part (string field)
formatRef		ds.w 1		;pointer to format table
drawFlag		ds.w 1		;flag to tell us not to draw twice when we get shown

ctlSize

ctlKey1		equ ctlReserved
ctlKey2		equ ctlKey1+1
ctlKeyMods	equ ctlKey2+1
ctlKeyModsCareBits	equ ctlKeyMods+2

ctlJust		equ ctlReserved

		ENDR


*************************************************************
*	part codes for the control			*
*************************************************************

			;values in the range 32-127 are available for application use
part_month	equ 32
part_1st		equ part_month

part_day		equ 33
part_year		equ 34
part_hour		equ 35
part_minute	equ 36

		if seconds = 1 then
part_second	equ 37		;include seconds
part_am_pm	equ 38
part_up		equ 39		;up arrow
part_down		equ 40		;down arrow

		else

part_am_pm	equ 37		;exclude seconds
part_up		equ 38		;up arrow
part_down		equ 39		;down arrow

		endif

part_last_str	equ part_am_pm	;highest part number of string field

			;indexes into tables for each part
month_index	equ 0
day_index		equ 2
year_index	equ 4
hour_index	equ 6
minute_index	equ 8

		if seconds = 1 then
second_index	equ 10		;include seconds
am_pm_index	equ 12

		else
am_pm_index	equ 10		;exclude seconds

		endif

			;other random equates
tabChar		equ $09		;TAB character
up_arrow_key	equ 11
dn_arrow_key	equ 10
l_arrow_key	equ 8		;left arrow
r_arrow_key	equ 21		;right arrow
repeat_delay	equ 25		;ticks before auto-repeat when tracking
repeat_period	equ 6		;ticks between auto-repeat when tracking
string_buf_size	equ 28		;size of the string buffer


dp		RECORD 1		;offsets on direct page

		if seconds = 1 then
field_count	equ 7
		else
field_count	equ 6
		endif

			;direct-page for private use:
ctl_ptr		ds.l 1			;dereferenced control handle
table_ptr		ds.w 1			;short ptr to format table

format_table				;copy of format table
string_size	ds.w 1
part_left		ds.w field_count
part_right	ds.w field_count
part_next		ds.w field_count
part_prev		ds.w field_count
first_field	ds.w 1
last_field	ds.w 1

dp_size		equ *-1

			;pushed parameters:
old_dp		ds.w 1			;caller's direct page
old_db		ds.b 1			;caller's DBR
return_addr	ds.b 3

move_start			;start of stuff to skip over when fixing stack

theControlHandle	ds.l 1
ctlParam		ds.l 1
ctlMessage	ds.w 1

move_end				;end of stuff to skip over when fixing stack

result		ds.l 1

move_dist		equ move_end-move_start		;distance to move parametersÉ
						;Éwhen fixing stack
		ENDR

			;global storage for the control

hour_flag		ds.w 1		;space for flag in high bit to indicate 24-hour format
long_field_flag	dc.w 0		;flag to tell set_field_rect whether it shouldÉ
				;Éinclude white space at end of a string fieldÉ
				;Éwhen figuring the rectangle bounds. default isÉ
				;É$0000 = do NOT include white space
temp_rect		ds.b 16		;space for temporary RECT structure for use with PtInRect
mouse_pos		ds.w 2		;this space used for point returned by GetMouse
old_port		ds.l 1		;Graph Port on entry, to be restored on exit
old_pen_state	ds.b 50		;Pen State record on entry, restored on exit

dim_pen_mask	dcb.w 4,$55AA	;used to dim control


		export time_date_defproc
time_date_defproc	PROC		;defproc for the time/date control

		import div_ten
		import calc_c_coord
		import pt_in_rect
		import set_field_rect
		import invert_part
		import draw_arrow_icon
		import build_string
		import change_value
		import format1
		import format2
	if table3 = 1 then
		import format3
	endif
		import table_length
		import draw_frame
		import hide_frame
		import roll_field
		import set_up_table
		import set_up_table2
		import hide_arrows
		import set_arrow_rect

		phb			;save data bank

		phk			;set up our bank register
		plb

		;brk $41

		phd			;save old direct page

		tsc
		sec
		sbc #dp.dp_size		;make room for direct page
		tcs
		tcd

set_up
		ldx <dp.ctlMessage		;what operation are we performing?
		cpx #12			;RecSize message?
		beq @setup_done		;if so skip all setup

		lda [dp.theControlHandle]
		sta <dp.ctl_ptr		;dereference control handle
		ldy #2
		lda [dp.theControlHandle],y
		sta <dp.ctl_ptr+2

		pha
		pha			;LONG space for result

		ldx #$1C04		;GetPort
		jsl $E10000

		pla			;save caller's GrafPort
		sta old_port
		pla
		sta old_port+2

		ldy #TDCtlRec.ctlOwner+2	;points to window GrafPort
		lda [dp.ctl_ptr],y		;get high word
		pha
		dey
		dey
		lda [dp.ctl_ptr],y		;get low word
		pha

		ldx #$1B04		;SetPort
		jsl $E10000

		pea old_pen_state>>16	;buffer for current pen state
		pea old_pen_state
		ldx #$2B04		;GetPenState
		jsl $E10000		;save current pen in this GrafPort

			;set up our pen
		ldx #$3604		;PenNormal
		jsl $E10000

		pea $0002			;new pen width
		pea $0001			;new pen height
		ldx #$2C04		;SetPenSize
		jsl $E10000

		ldx <dp.ctlMessage
		cpx #3			;initCtl message?
		beq @setup_done		;if initCtl, don't attempt to find format table

@copy
				;copy format table to direct-page

		jsr set_up_table		;check control record and copy appropriate tableÉ
					;Éto direct-page
@setup_done
dispatch
		lda <dp.ctlMessage		;what operation are we performing?

		;brk $40

		cmp #MaxMessages+1		;verify that it's in range
		bcc @ok

		brl done			;return now if undefined
@ok
		asl a			;multiply for word offset
		tax

		jmp (proc_table,x)

proc_table	;			 message number
		dc.w draw			;0
		dc.w not_implemented	;1
		dc.w testCtl		;2
		dc.w initCtl		;3
		dc.w not_implemented	;4
		dc.w not_implemented	;5
		dc.w not_implemented	;6
		dc.w not_implemented	;7
		dc.w autoTrack		;8
		dc.w not_implemented	;9
		dc.w not_implemented	;10
		dc.w not_implemented	;11
		dc.w recSize		;12
		dc.w handleEvent		;13
		dc.w changeActivity		;14
		dc.w not_implemented	;15
		dc.w not_implemented	;16
		dc.w handleTab		;17
		dc.w notifyMultipart	;18
		dc.w stateChange		;19

draw
		ldy #TDCtlRec.drawFlag
		lda [dp.ctl_ptr],y		;were we just made visible?
		dec a			;look for 1
		bne @cont			;if not 1, go ahead and draw
@shown				;we are newly shown
		sta [dp.ctl_ptr],y
		brl done
@cont
		dec a			;was it 2?
		bne @leave_alone		;if not, leave flag where it was

		inc a			;put back to 1
		sta [dp.ctl_ptr],y		;set flag to ignore next time
@leave_alone
		ldy #TDCtlRec.ctlFlag
		lda [dp.ctl_ptr],y		;get flags
		and #$0080		;is it invisible?
		beq @visible

		brl done			;don't draw if invisible
@visible
		lda <dp.ctlParam		;what part to draw
		beq @whole_control		;if 0, draw whole thing

		cmp #part_up		;test for arrows
		bcc @string_field
		brl done			;handle arrows elsewhere
@string_field
		brl @change_hilite
@whole_control
		ldy #TDCtlRec.currPart
		lda [dp.ctl_ptr],y		;is there a hilighted(?) part?
		beq @no_erase		;if not, nothing to erase
@erase				;erase rect of current part to correct for dorked-outÉ
				;ÉControl Manager
		jsr set_field_rect		;set temp_rect to current part

		pea temp_rect>>16
		pea temp_rect
		ldx #$5504		;EraseRect
		jsl $E10000		;erase rect enclosing that part
@no_erase
				;now would be a good time to draw the string
		jsr build_string		;compile the display string

		ldy #TDCtlRec.ctlRect + 2	;point to left edge of control's rectangle
		lda [dp.ctl_ptr],y		;get x coordinate
		clc
		adc #string_h_pos		;adjust to make room for frame
		pha

		dey
		dey			;back to top edge
		lda [dp.ctl_ptr],y		;get y coordinate
		clc
		adc #8+string_v_pos		;add ascent for Shaston font + adjustment
		pha

		ldx #$3A04		;MoveTo
		jsl $E10000

		pha			;space for result
		ldx #$9904		;GetFontFlags
		jsl $E10000		;leave old FontFlags on stack

		pea $0002			;select numeric spacing for DrawString
		ldx #$9804		;SetFontFlags
		jsl $E10000

		pea string_buf>>16
		pea string_buf

		ldx #$A504		;DrawString
		jsl $E10000		;draw the string

					;previous FontFlags word is still on stack
		ldx #$9804		;SetFontFlags
		jsl $E10000

		ldy #TDCtlRec.currPart
		lda [dp.ctl_ptr],y		;is any part hilighted?
		pha			;save on STACK

		;beq @no_part		;removed 1/14/91 to keep frame permanent

		jsr draw_frame		;if active part, draw frame
@no_part
		pla			;restore part code
		ldx <dp.ctlParam+2		;check window activity
		bne @inactive
@active
		tax			;save part code
		ldy #TDCtlRec.ctlMoreFlags
		lda [dp.ctl_ptr],y		;get MoreFlags
		and #$FFFD		;remove flag now that we're drawn un-dimmed
		sta [dp.ctl_ptr],y

		txa			;get back part code
		beq @no_part2		;if 0, don't try to hilight

		jsr invert_part		;hilight part

		ldy #arrows>>16		;now draw arrows
		ldx #arrows

		jsr draw_arrow_icon		;draw this arrow icon
		bra @done
@inactive
		ldy #TDCtlRec.ctlMoreFlags
		lda [dp.ctl_ptr],y		;get MoreFlags
		ora #$0002		;set flag to tell draw routine that imageÉ
					;Éis in inactive state
		sta [dp.ctl_ptr],y
		jsr hide_arrows		;get rid of arrows

		pea dim_pen_mask>>16	;set to dimming pattern for inactive
		pea dim_pen_mask
		ldx #$3204		;SetPenMask
		jsl $E10000

		pea $8000			;pen mode notCopy, draw in white
		ldx #$2E04		;SetPenMode
		jsl $E10000

		lda <dp.ctl_ptr		;get address of control record
		clc
		adc #TDCtlRec.ctlRect	;compute address of control rect
		tax
		lda <dp.ctl_ptr+2
		adc #0

		pha			;push ptr to control rect
		phx
		ldx #$5404		;PaintRect
		jsl $E10000
@no_part2
@done
		brl done
@change_hilite			;change hilighting to new part
		ldy #TDCtlRec.ctlMoreFlags
		lda [dp.ctl_ptr],y		;get MoreFlags
		and #$0002		;check flag, "are we in a dimmed state?"
		bne @set_new		;if dimmed, never invert any field
@not_dimmed
		ldy #TDCtlRec.currPart
		lda [dp.ctl_ptr],y		;get currently hilighted part
		beq @new			;none currently hilighted, just hilight new one

		cmp <dp.ctlParam		;is it the same field as new one?
		bne @old			;if not, reverse old hilighting

		brl done			;same field, don't bother
@old
		jsr invert_part		;part # in accum
@new
		lda <dp.ctlParam		;get new part number

		jsr invert_part
@set_new
		lda <dp.ctlParam		;get new part number
		ldy #TDCtlRec.currPart
		sta [dp.ctl_ptr],y		;set in control record

		brl done
recSize
		lda #TDCtlRec.ctlSize	;this is our record size
		sta <dp.result
		stz <dp.result+2

		;brl done
		brl done_no_rec

initCtl

;	First set up default date.

		ldy #TDCtlRec.dateRec+6	;point to last field of date record in control
		ldx #6			;point to same place in local copy
@loop
		lda init_date_rec,x		;copy our daterec into the control
		sta [dp.ctl_ptr],y

		dey
		dey

		dex
		dex
		bpl @loop

;	Set action proc to autoTrack.

		ldy #TDCtlRec.ctlAction	;point to action field
		lda #$FFFF		;this goes in high & low words
		sta [dp.ctl_ptr],y		;set action proc ptr to -1 so autoTrack will beÉ
		iny			;Éused to track our arrows
		iny
		sta [dp.ctl_ptr],y

;	Decide format for display based on Control Panel setting.

				;get time/date setting from b-ram
		pha			;space for result
		pea $0034			;request month/day/year format
		ldx #$0C03		;ReadBParam
		jsl $E10000

		ldy #TDCtlRec.formatRef	;preload Y with index to field
		pla			;get result
		beq @format1		;MM/DD/YY

		cmp #3			;range check
		bcs @format1		;unknown, so use American format

		if table3 = 1 then		;assemble only if we need year-firstÉ
					;Édisplay format

		dec a			;1 = DD/MM/YY
		beq @format2		;use day before month
@format3				;we want year, month, day
		lda #<format3
		bra @store_format


		endif

@format2				;day before month
		lda #<format2
		bra @store_format
@format1
		lda #<format1
@store_format
		sta [dp.ctl_ptr],y		;set up short pointer
		sta <dp.table_ptr		;we need this pointer to find string size

				;get hour format setting from b-ram, set bit 0 of moreFlagsÉ
				;Éin control record iff 24-hour format is selected

		pha			;space for result
		pea $0035			;request hour format
		ldx #$0C03		;ReadBParam
		jsl $E10000

		ldy #TDCtlRec.ctlMoreFlags	;preload Y with index to field
		pla			;get result
		beq @12			;12-hour format
@24
		lda [dp.ctl_ptr],y		;get more flags
		ora #$0001		;set bit 0
		bra @store_hour
@12
		lda [dp.ctl_ptr],y		;get more flags
		and #$FFFE		;clear bit 0
@store_hour
		sta [dp.ctl_ptr],y		;set moreFlags back
@find_type			;determine whether we want time, date, or both
		ldy #$12			;offset to CtlFlag in template
		lda [dp.ctlParam],y		;get flags byte in template
		and #$0003		;lower 2 bits are control type:
					;	01 = time only
					;	10 = date only
					;	11 = time and date
					;	00 = bad value
		ldy #TDCtlRec.ctlFlag
		ora [dp.ctl_ptr],y		;add bits to field in record
		sta [dp.ctl_ptr],y
@get_table
		jsr set_up_table2		;use current table_ptr and copy table to direct-page

;	Calculate position for arrows based on character widths.

		pha			;space for result
		ldx #$9904		;GetFontFlags
		jsl $E10000		;leave old FontFlags on stack

		pea $0002			;select numeric spacing for DrawString
		ldx #$9804		;SetFontFlags
		jsl $E10000

		pha			;space for result
		pea '0'			;get width of a character
		ldx #$A804		;CharWidth
		jsl $E10000

		pla
		ldy #TDCtlRec.cwidth
		sta [dp.ctl_ptr],y		;keep track of how wide the characters are

					;previous FontFlags word is still on stack
		ldx #$9804		;SetFontFlags
		jsl $E10000

		lda <dp.string_size		;character position for arrows
		dec a			;adjust
		jsr calc_c_coord		;get actual pixel position
		inc a
		inc a			;adjust right 2 pixels
		pha			;save unmodified for below
		ldy #TDCtlRec.ctlRect+2	;point to left edge
		sec
		sbc [dp.ctl_ptr],y		;make relative to control rectangle

		ldy #TDCtlRec.arrowPos	;set position of arrows in record
		sta [dp.ctl_ptr],y

init_icons
;	Set icon data based on graphics mode.

		pha			;space for result
		ldx #$1704		;GetMasterSCB
		jsl $E10000

		pla			;this is master SCB
		sta arrows		;put copy in each icon image
		sta arrows_up
		sta arrows_down

		xba			;mode is now in high bit
		asl a			;put in carry
		lda #icon_width*4		;assume 640 mode
		bcs @store_width
@320
		lsr a			;divide width by 2 for 320 mode
@store_width
		sta arrows+14		;put copy of pixel width in each icon image
		sta arrows_up+14
		sta arrows_down+14

;	Set control rectangle.
set_ctl_rect			;arrow position on stack
		lda #arrow_width+2		;get pixel width of arrows + margin
		bit arrows-1		;test SCB
		bmi @640			;bit 7 set, we're in 640 mode
@320
		lsr a			;divide by 2 for 320 mode
		inc a			;need a pixel more in 320
@640
				;arrows X position on stack
		clc
		adc 1,s			;add to pos of arrows rel to grafport
		ply			;clean it off the stack
		ldy #TDCtlRec.ctlRect+6	;right edge
		sta [dp.ctl_ptr],y		;set right edge of control rect

		ldy #TDCtlRec.ctlRect	;top edge
		lda [dp.ctl_ptr],y		;get top edge of window
		clc
		adc #rect_height		;this is the height of the ctlRect
		ldy #TDCtlRec.ctlRect+4
		sta [dp.ctl_ptr],y		;set bottom edge of window

;	Init private flags.

		lda #0
		ldy #TDCtlRec.drawFlag
		sta [dp.ctl_ptr],y		;clear flag. drawFlag indicates that we areÉ
					;Échanging state from invisible to visibleÉ
					;Éso that the draw routine will only runÉ
					;Éonce even though we get a draw message twice
		brl done

testCtl
		;brk $E0

		stz <dp.result+2		;high word of part code

		lda <dp.ctlParam		;copy mouse position to global
		sta mouse_pos
		lda <dp.ctlParam+2
		sta mouse_pos+2

@up_arrow
		jsr set_arrow_rect		;set temp_rect to rect enclosing both arrows
		lda temp_rect		;get top edge
		clc
		adc #arrow_height+string_v_pos
		sta temp_rect+4		;set bottom edge for up arrow

				;now test with PtInRect

		jsr pt_in_rect		;call PtInRect

		beq @down_arrow		;failed, try other arrow

		lda #part_up
		sta <dp.result
		brl done
@down_arrow
		ldy #TDCtlRec.ctlRect+4	;point to bottom edge of control rect
		lda [dp.ctl_ptr],y
		sta temp_rect+4		;set bottom edge

		sec
		sbc #arrow_height+string_v_pos
		sta temp_rect		;set top edge
				;now test with PtInRect
		jsr pt_in_rect		;call PtInRect

		beq @string_fields		;if false, go on to string fields

		lda #part_down
		sta <dp.result
		brl done

@string_fields			;test all the string fields
		lda <dp.first_field		;start with first string part
		sta test_part		;init loop variable

@loop
		inc long_field_flag		;tell set_field_rect to include whiteÉ
					;Éspace in rectangle. this flag willÉ
					;Ébe reset by set_field_rect
		jsr set_field_rect		;set up rectangle in temp_rect for part # in Accum
		jsr pt_in_rect

		bne @part_hit		;if hit, break loop
@next_part
		lda test_part
		asl a			;make word offset
		sbc #(part_1st*2)-1		;normalize. carry is clear
		tax			;use as index
		lda <dp.part_next,x		;get next part
		sta test_part
		bne @loop			;loop if non-0

@no_hit				;no part was hit
		stz <dp.result
		brl done
@part_hit
		lda test_part
		sta <dp.result
@become_target			;now this control becomes target
		pei dp.theControlHandle+2
		pei dp.theControlHandle
		ldx #$2810		;MakeThisCtlTarget
		jsl $E10000

		brl done
changeActivity
		;brk $49

		ldy #TDCtlRec.ctlFlag
		lda [dp.ctl_ptr],y		;get flags
		and #$0080		;is it invisible?
		beq @visible

		ldy #TDCtlRec.currPart
		lda #0
		sta [dp.ctl_ptr],y		;set current part to null

		brl done			;don't draw if invisible
@visible
		ldy #TDCtlRec.ctlMoreFlags
		lda [dp.ctl_ptr],y		;get MoreFlags
		and #$8000		;check FCtlTarget bit
		beq @hide_arrows		;if clear, we are not target any more
@show_arrows
		ldy #arrows>>16
		ldx #arrows

		jsr draw_arrow_icon		;draw this arrow icon

@draw_frame				;put box around control when active
		;jsr draw_frame		;removed 1/14/91 since frame now permanent

		brl done
@hide_arrows
		jsr hide_arrows

		ldy #TDCtlRec.ctlMoreFlags
		lda [dp.ctl_ptr],y		;get MoreFlags
		and #$0002		;are we in a dimmed state?
		bne @no_invert		;if dimmed, don't try to invert

		ldy #TDCtlRec.currPart
		lda [dp.ctl_ptr],y		;what part is currently hilighted?
		beq @no_part		;should never be taken

		jsr invert_part
@no_invert
		ldy #TDCtlRec.currPart
		lda #0
		sta [dp.ctl_ptr],y		;set current part to null
@hide_frame
		;jsr hide_frame		;removed 1/14/91 to keep frame permanent
@no_part
		brl done
handleEvent
		ldy #TDCtlRec.ctlFlag
		lda [dp.ctl_ptr],y		;get flags
		and #$0080		;is it invisible?
		bne @dont_handle
@visible
		ldy #NewTaskRecord.taskWhat
		lda [dp.ctlParam],y		;what event is it?
		cmp #keyDownEvt
		beq @key

		cmp #autoKeyEvt
		beq @key

@dont_handle
		stz <dp.result
		stz <dp.result+2		;indicate that we did not take the event

		brl done
@key
		ldy #NewTaskRecord.taskModifiers
		lda [dp.ctlParam],y		;get modifiers
		and #$1900		;check for control, option, command
		bne @dont_handle		;we don't deal with modified keys

		ldy #NewTaskRecord.taskMessage
		lda [dp.ctlParam],y		;get low word of message
		and #$00FF		;low byte contains ASCII code

		cmp #$30 + 10		;low enough for numeral?
		bcs @not_num

		cmp #$30 + 0		;high enough?
		bcc @not_num
@numeral
		jsr roll_field		;roll that number into right of string

		brl @done
@not_num
		cmp #tabChar		;is it a TAB character?
		beq @tab

		cmp #up_arrow_key
		beq @up

		cmp #dn_arrow_key
		beq @down

		cmp #l_arrow_key
		beq @left

		cmp #r_arrow_key
		beq @right
@unknown				;key we don't care about
		bra @dont_handle
@tab
		ldy #TDCtlRec.currPart
		lda [dp.ctl_ptr],y		;what is current active part?
		cmp <dp.last_field		;is it the last string field?
		beq @pass_target		;if so, pass target status to next control

		pha			;save part number

		jsr invert_part		;un-hilight that part

		pla			;restore part number
		sec
		sbc #part_1st		;get relative part number
		asl a			;word offset
		tax

		lda <dp.part_next,x		;move to next string part
		ldy #TDCtlRec.currPart
		sta [dp.ctl_ptr],y		;set new active part
		jsr invert_part		;hilight new part

		bra @done
@pass_target
		pha
		pha			;LONG space for result
		ldx #$2710		;MakeNextCtlTarget
		jsl $E10000

		pla
		plx
		cmp <dp.theControlHandle	;is it me?
		bne @NotSame		;no
		cpx <dp.theControlHandle+2
		beq @done			;yes, just eat it up

@NotSame				;not me
		pha			;call the new one.
		pha
		phx
		pha
		pea 17			;HandleTab message
		pea 0
		pea 0
		ldx #$2C10		;CallCtlDefProc
		jsl $E10000

		pla
		pla

		bra @done
@up
		ldx #$0000		;command to move value up
		bra @change_value
@down
		ldx #$0001		;command to move value down
@change_value
		jsr change_value
		bra @done
@left
		ldy #TDCtlRec.currPart
		lda [dp.ctl_ptr],y		;what is current active part?
		cmp <dp.first_field		;is it the first string field?
		beq @done			;don't go past 1st field

		pha			;save part

		jsr invert_part		;un-hilight old part

		pla			;restore part number
		sec
		sbc #part_1st		;get relative part number
		asl a			;word offset
		tax

		lda <dp.part_prev,x		;move left a string part
		bra @new_field
@right
		ldy #TDCtlRec.currPart
		lda [dp.ctl_ptr],y		;what is current active part?
		cmp <dp.last_field		;is it the last string field?
		beq @done

		pha			;save part

		jsr invert_part		;un-hilight old part

		pla			;restore last part
		sec
		sbc #part_1st		;get relative part number
		asl a			;word offset
		tax

		lda <dp.part_next,x		;move right a string part
@new_field
		ldy #TDCtlRec.currPart
		sta [dp.ctl_ptr],y		;set new active part
		jsr invert_part		;hilight new part

@done
		lda #$FFFF
		sta <dp.result
		sta <dp.result+2		;indicate that we took the event

		brl done
handleTab
		lda <dp.first_field
		ldy #TDCtlRec.currPart
		sta [dp.ctl_ptr],y		;when we get tabbed to, make first field active

		jsr invert_part		;hilight it

		brl done
notifyMultipart
		lda <dp.ctlParam		;get submessage
		cmp #2			;is it "show entire control" ?
		bne @done
@show_all
	; If we get here, we have just become visible. That means that the
	; Control Manager will call us with the draw message TWICE, which
	; messes-up our display, so we set a flag to tell the draw routine
	; to ignore the SECOND of the calls.  We ignore the second call
	; because that's when the vis region may be set to a limited area,
	; whereas on the first call, the vis region is very large and the
	; control draws correctly

		ldy #TDCtlRec.drawFlag
		lda #$0002		;use as counter to ignore 2nd draw message
		sta [dp.ctl_ptr],y		;were we just made visible?
@done
		brl done
autoTrack
		;brk $47

		ldy #TDCtlRec.ctlMoreFlags
		lda [dp.ctl_ptr],y		;get MoreFlags
		and #$8000		;check FCtlTarget bit
		beq @abort		;if clear, we are not target

		lda dp.ctlParam		;get part code
		cmp #part_up		;make sure it's an arrow
		bcs @continue
@abort
		brl done
@continue
		stz drawn_flag		;nothing is drawn as tracked yet

				;init test rectangle
		jsr set_arrow_rect		;set temp_rect to rect enclosing both arrows

		lda dp.ctlParam		;get part code again
		cmp #part_up		;up arrow?
		bne @down
@up
		lda temp_rect		;get top edge
		clc
		adc #arrow_height+string_v_pos+1
		sta temp_rect+4		;set bottom edge

		lda #arrows_up>>16		;set up icon reference
		sta icon_ref+2
		lda #arrows_up
		sta icon_ref

		bra @loop			;ready to enter the track loop
@down
		lda temp_rect+4		;get bottom edge
		sec
		sbc #arrow_height+string_v_pos+1
		sta temp_rect		;set top edge

		lda #arrows_down>>16	;set up icon reference
		sta icon_ref+2
		lda #arrows_down
		sta icon_ref

@loop
		pha			;space for result
		pea 0			;read mouse button
		ldx #$0F06		;WaitMouseUp
		jsl $E10000

		pla			;boolean result
		bne @still_down
		brl @done
@still_down			;mouse button still down
		pea mouse_pos>>16
		pea mouse_pos

		ldx #$0C06		;GetMouse
		jsl $E10000		;where is mouse?

				;now test with PtInRect
		jsr pt_in_rect		;call PtInRect

		bne @in
		brl @out
@in
		lda #$8000		;use high bit as flag
		tsb drawn_flag		;I always wanted to use this instruction
		beq @first_down		;bit was clear, first mouse down

		pha
		pha			;space for result
		ldx #$2503		;GetTick
		jsl $E10000

		pla			;get low word
		sta now_tick
		pla
		sta now_tick+2

		lda timeout_tick+2		;when do we time out?
		cmp now_tick+2		;are we past that time?
		bcc @timeout		;high word past it

		lda timeout_tick
		cmp now_tick		;low words
		bcc @timeout

		bra @loop			;we haven't timed out yet
@first_down
				;draw the arrows in hilighted state
		ldx icon_ref
		ldy icon_ref+2
		jsr draw_arrow_icon

		pha
		pha			;space for result
		ldx #$2503		;GetTick
		jsl $E10000

		pla			;low word
		clc
		adc #repeat_delay		;set delay before auto-repeat
		sta timeout_tick		;this is tick count at next timeout

		pla			;high word
		adc #0
		sta timeout_tick+2

		bra @change_value		;first down changes value
@timeout
		lda now_tick
		clc
		adc #repeat_period		;set delay between auto-repeats
		sta timeout_tick
		lda now_tick+2
		adc #0
		sta timeout_tick+2
@change_value			;change control value

		;brk $4C

		lda <dp.ctlParam		;get part code
		sec
		sbc #part_up		;this produces the proper comand number
		tax

		jsr change_value		;bump value and update display

		brl @loop
@out
		lda #$8000		;use high bit as flag
		trb drawn_flag		;I always wanted to use this instruction
		bne @draw
		brl @loop			;bit was already clear, don't do anything
@draw
				;draw the arrows in inactive state
		ldy #arrows>>16
		ldx #arrows
		jsr draw_arrow_icon

		brl @loop			;re-enter track loop
@done
				;draw the arrows in inactive state
		ldy #arrows>>16
		ldx #arrows
		jsr draw_arrow_icon

		bra done
stateChange			;owner window has changed state
		lda dp.ctlParam		;which way is state changing?
		bne @activate		;just invalidate our rect
@deactivate
		ldy #TDCtlRec.ctlMoreFlags
		lda [dp.ctl_ptr],y		;get MoreFlags
		ora #$0002		;set flag to tell draw routine that imageÉ
					;Éis in inactive state
		sta [dp.ctl_ptr],y
@activate
				;invalidate ctl rect to ensure it's in update rgn
		lda dp.ctl_ptr
		clc
		adc #TDCtlRec.ctlRect
		tax
		lda dp.ctl_ptr+2
		adc #0
		pha
		phx
		ldx #$3A0E		;InvalRect
		jsl $E10000
@done
		bra done
not_implemented
		stz <dp.result
		stz <dp.result+2
done				;now we move the stack stuff
		pea old_pen_state>>16	;restore pen in this port
		pea old_pen_state
		ldx #$2A04		;SetPenState
		jsl $E10000

		lda old_port+2		;now restore old GrafPort
		pha
		lda old_port
		pha

		ldx #$1B04		;SetPort
		jsl $E10000

done_no_rec			;exit point for RecSize

		WITH dp

		lda <old_dp
		sta <old_dp+move_dist
		lda <old_db
		sta <old_db+move_dist
		lda <return_addr+1
		sta <return_addr+1+move_dist

		tsc
		clc
		adc #move_dist+dp_size
		tcs

		pld			;restore direct page
		plb			;restore data bank

		rtl

		ENDWITH

				;storage
drawn_flag	ds.w 1			;keep track of whether we need to hilightÉ
					;Éwhen autotracking arrows
test_part		ds.w 1			;part being tested during test loop
now_tick		ds.l 1			;current tick count in track loop
timeout_tick	ds.l 1			;tick count for next timeout

icon_ref		ds.l 1			;current hilight icon for autoTrack

		export string_buf
string_buf	ds.b string_buf_size

		export month_table
month_table		;strings of names of months of theÉ
			;Éyear

		string pascal
				;these strings are each 4 bytes long and areÉ
				;Éreferenced by offset rather than by pointer
January		dc.b 'Jan'
February		dc.b 'Feb'
March		dc.b 'Mar'
April		dc.b 'Apr'
May		dc.b 'May'
June		dc.b 'Jun'
July		dc.b 'Jul'
August		dc.b 'Aug'
September		dc.b 'Sep'
October		dc.b 'Oct'
November		dc.b 'Nov'
December		dc.b 'Dec'


		export short_months
short_months		;months with 30 days
			;note that February is special-cased in the code

		dc.w 8,3,5,10	;numbers minus one of the months that haveÉ
				;É30 days

				;September, April, June, November

		export field_type
field_type		;table of flags to tell how a date record field is stored
			;$00 = stored as-is
			;$80 = stored -1

			;*** these are BYTE entries !! ***
		dc.b $80		;month
		dc.b $80		;day
		dc.b $00		;year
		dc.b $00		;hour
		dc.b $00		;minute

		if seconds=1 then
		dc.b $00		;seconds
		endif

init_date_rec		;initial date record for the control

		dc.b 0		;seconds
		dc.b 0		;minutes
		dc.b 12		;hour
		dc.b 89		;year
		dc.b 28-1		;day
		dc.b 8-1		;month
		dc.b 0		;null
		dc.b 2		;weekday = Monday


		;icon images for the up/down arrows
		export LocInfoRec
LocInfoRec
		dc.w  0,0,9,20

		export arrows
arrows
		ds.w 1			;portSCB, filled-in at init time
		dc.l  arrow_image1		;ptr to pixel image
		dc.w  icon_width		;width of each line in bytes
		dc.w  0,0,9,20		;RECT defining boundary
arrow_image1			;inactive arrows

		dc.b $FF, $FF, $0F, $FF, $FF
		dc.b $FF, $F0, $F0, $FF, $FF
		dc.b $FF, $0F, $FF, $0F, $FF
		dc.b $F0, $00, $00, $00, $FF
		dc.b $FF, $FF, $FF, $FF, $FF
		dc.b $F0, $00, $00, $00, $FF
		dc.b $FF, $0F, $FF, $0F, $FF
		dc.b $FF, $F0, $F0, $FF, $FF
		dc.b $FF, $FF, $0F, $FF, $FF

icon_size		equ * - arrows

arrows_up
		ds.w 1			;portSCB, filled-in at init time
		dc.l  arrow_image2
		dc.w  icon_width
		dc.w  0,0,9,20		;RECT defining boundary
arrow_image2			;up arrow active

		dc.b $FF, $FF, $0F, $FF, $FF
		dc.b $FF, $F0, $00, $FF, $FF
		dc.b $FF, $00, $00, $0F, $FF
		dc.b $F0, $00, $00, $00, $FF
		dc.b $FF, $FF, $FF, $FF, $FF
		dc.b $F0, $00, $00, $00, $FF
		dc.b $FF, $0F, $FF, $0F, $FF
		dc.b $FF, $F0, $F0, $FF, $FF
		dc.b $FF, $FF, $0F, $FF, $FF

arrows_down
		ds.w 1			;portSCB, filled-in at init time
		dc.l  arrow_image3
		dc.w  icon_width
		dc.w  0,0,9,20		;RECT defining boundary
arrow_image3			;down arrow active

		dc.b $FF, $FF, $0F, $FF, $FF
		dc.b $FF, $F0, $F0, $FF, $FF
		dc.b $FF, $0F, $FF, $0F, $FF
		dc.b $F0, $00, $00, $00, $FF
		dc.b $FF, $FF, $FF, $FF, $FF
		dc.b $F0, $00, $00, $00, $FF
		dc.b $FF, $00, $00, $0F, $FF
		dc.b $FF, $F0, $00, $FF, $FF
		dc.b $FF, $FF, $0F, $FF, $FF

		ENDP

		include 'td.ctl.tables'

		export div_ten
div_ten		PROC		;divide a value in the range 0 to 99 into tensÉ
				;Épart and ones part

				;enter with value in accumulator

				;exit with ones in Y, tens in X

		ldx #$FFFF		;init tens counter
		sec			;prepare for first subtraction
@10
		inx			;bump tens count
		tay			;save last value < 10
		sbc #10			;carry should always be set
		bcs @10
@tens_done
		rts

		ENDP


		export hex_to_ascii
hex_to_ascii	PROC		;convert a value in the range 0 to 99 into asciiÉ
				;Érepresentation

				;enter with value in accumulator

				;exit two characters in accum

		ldx #$FFFF		;init tens counter
		sec			;prepare for first subtraction
@10
		inx			;bump tens count
		tay			;save last value < 10
		sbc #10			;carry should always be set
		bcs @10
@tens_done
		sep #$20			;8-bit accum
		LONGA OFF

		tya			;move ones value to low byte
		xba			;flip bytes
		txa			;move tens digit to low byte

		rep #$21			;16-bit accum, clear carry
		LONGA ON

		adc #'00'			;convert to ACSII. carry should be clear

		rts

		ENDP


		export calc_c_coord
calc_c_coord	PROC		;calculate character pixel coordinate

				;enter with character number in Accum
				;return with pixel coordinate in Accum

		tax			;get counter in x
		beq add_left		;if 0, just add left edge
@do_multiply
		lda #0			;init result
		ldy #TDCtlRec.cwidth	;point to character width
		clc			;prepare for adds
@loop
		adc [dp.ctl_ptr],y
		dex
		bne @loop
add_left				;now add coordinate of left edge
		ldy #TDCtlRec.ctlRect+2	;point to left edge of control rect
		clc
		adc [dp.ctl_ptr],y		;add left edge of ctl rect
		adc #string_h_pos		;adjust for space from frame

		rts

		ENDP


		export pt_in_rect
pt_in_rect	PROC		;call PtInRect with point in the result stack frame andÉ
				;Éthe rectangle in temp_rect


		pha			;space for result
		pea mouse_pos>>16		;this is the point of interest
		pea mouse_pos
					;Éof the point passed to us on the stack
		pea temp_rect>>16
		pea temp_rect
		ldx #$4F04		;PtInRect
		jsl $E10000

		pla			;get boolean result
		rts

		ENDP


		export invert_part
invert_part	PROC		;invert rectangle belonging to a part
				;enter with part in accumulator

		sec
		sbc #part_1st		;get relative part number
		asl a			;word offset
		pha			;save for below
		tax

		lda <dp.part_left,x		;get character position

		jsr calc_c_coord		;get its coordinate in window
		sta temp_rect+2		;set left edge

		plx			;restore index
		phx			;leave on stack still
		lda <dp.part_right,x	;get character position
		jsr calc_c_coord		;get its coordinate in window
		plx			;restore index again
		cpx #(part_am_pm-part_1st)*2	;was it the am/pm field?
		adc #$0000		;carry set if am/pm field, will pushÉ
					;Éright edge out 1 pixel
		sta temp_rect+6		;set right edge

		ldy #TDCtlRec.ctlRect+4	;point to bottom edge of control rect
		lda [dp.ctl_ptr],y
		dec a			;pull in 1 pixel from edge
		dec a
		sta temp_rect+4		;set bottom edge

		ldy #TDCtlRec.ctlRect	;point to top edge of control rect
		lda [dp.ctl_ptr],y
		inc a			;pull in 1 pixel from edge
		inc a
		sta temp_rect		;set top edge

		pea temp_rect>>16
		pea temp_rect
		ldx #$5604		;InvertRect
		jsl $E10000		;this should invert the part

		rts

		ENDP

		export draw_arrow_icon
draw_arrow_icon	PROC		;draw one of the various arrow icons

		import LocInfoRec
				;enter with icon refernce in X (low) and Y (high)

		phy			;high word of icon reference
		phx			;low word  "   "       "

		pea LocInfoRec>>16
		pea |LocInfoRec

		ldy #TDCtlRec.arrowPos
		lda [dp.ctl_ptr],y		;get position of arrows
		ldy #TDCtlRec.ctlRect+2	;point to left edge
		clc
		adc [dp.ctl_ptr],y		;add left edge

		pha
		
		ldy #TDCtlRec.ctlRect
		lda [dp.ctl_ptr],y		;get top edge
		clc
		adc #string_v_pos
		pha

		lda #0			;pen mode = modeCopy
		pha
		ldx #$D604		;PPToPort
		jsl $E10000		;draw the icon

		rts

		ENDP


		export build_string
build_string	PROC		;build the display string

		import string_buf
		import hex_to_ascii
		import month_table

		ldx <dp.string_size
		dex
		dex			;point behind last word in string
		lda #'  '			;go by word
@loop
		sta string_buf+1,x		;init string to spaces
		dex
		dex
		bpl @loop			;note that if string_size is an oddÉ
					;Énumber, we miss the first byte

		ldy #TDCtlRec.ctlFlag
		lda [dp.ctl_ptr],y		;check ctl type
		and #$0002		;this bit always set if date needed
		beq time			;no date, go do time
date
@month
		ldy #TDCtlRec.dateRec + gsos_date.day
		lda [dp.ctl_ptr],y		;get day and month values
		pha			;save on stack

		xba			;move month to low byte
		and #$00FF		;byte only

		asl a
		asl a			;index into string table, 4 bytes each
		tax

		ldy <dp.part_left+month_index

		lda month_table+1,x		;copy the 3-character month string
		sta string_buf+1,y
		lda month_table+2,x
		sta string_buf+2,y
@day
		pla			;restore month and day
		and #$00FF		;keep day byte only
		inc a			;adjust, since they start at 0

		cmp #10			;check for number less than 10
		php			;save result

		jsr hex_to_ascii

		plp			;restore compare to 10
		bcs @day_ok		;day 10 or greater

		eor #(' ' EOR '0')		;change leading 0 to a space
@day_ok
		ldy <dp.part_left+day_index

		sta string_buf+1,y

@year


		ldy #TDCtlRec.dateRec + gsos_date.hour
		lda [dp.ctl_ptr],y		;get hour and year values

		xba			;move year to low byte
		and #$00FF		;keep low byte only
		cmp #100			;later than 1999?
		bcc @20_cent		;no, 20th century
@21_cent
		;sec			;carry is set
		sbc #100			;get MOD 100
		pea '02'			;ASCII for year 20XX
		bra @convert
@20_cent
		pea '91'			;ASCII for year 19XX
@convert
		jsr hex_to_ascii

		ldy <dp.part_left+year_index
		sta string_buf+3,y		;store to last 2 digits in year



		;lda #'91'			;year is always "19XX"
		pla			;get ASCII digits for century
		ldy <dp.part_left+year_index

		sta string_buf+1,y		;copy to year field in string



		ldy #TDCtlRec.ctlFlag
		lda [dp.ctl_ptr],y		;check ctl type
		ror a			;this bit always set if time needed
		bcs time			;if set, continue
		brl touch_up		;no time, just pack up
time
@hour
		ldy #TDCtlRec.dateRec + gsos_date.hour
		lda [dp.ctl_ptr],y		;get hour and year values
		and #$00FF		;keep hour
		tax			;save while we check hour format

		ldy #TDCtlRec.ctlMoreFlags
		lda [dp.ctl_ptr],y		;find out whether 24 hr or 12 hr
					;bit 0 is hour format flag
		ror a
		ror a			;move low bit to high
		sta hour_flag		;keep for handy reference
		asl a			;test it now
		bcs @hour_number		;if 24-hour, just use the number
@12
		txa			;restore hour value
		bne @not_midnight

		lda #24			;midnight stored as 0
@not_midnight
		;inc a			;adjust because they start at 0
		ldy #'MA'			;anticipate AM

		cmp #12			;range check the hour value
		beq @pm			;if 12, we use PM by convention
		bcc @store		;if less than 12, use value as-is

		sec			;hour greater than 12
		sbc #12			;preserve 12-hour format

		cmp #12			;is it 12 again?
		beq @store
@pm
		ldy #'MP'			;if we get here, we have a PM hour
@store
		tax			;save accum
		tya			;move 2 characters to accum

		ldy <dp.part_left+am_pm_index
		sta string_buf+1,y
@hour_number
		txa			;restore accum

		cmp #10			;check for number less than 10
		php			;save result

		jsr hex_to_ascii		;convert hour value in accum

		plp			;restore compare to 10
		bcs @hour_ok		;hour 10 or greater

		bit hour_flag		;24-hour format?
		bmi @hour_ok		;keep leading zeros

		eor #(' ' EOR '0')		;change leading 0 to a space
@hour_ok
		ldy <dp.part_left+hour_index
		sta string_buf +1,y		;store to hour field in string

@minute
		if seconds = 1 then

		ldy #TDCtlRec.dateRec + gsos_date.seconds
		lda [dp.ctl_ptr],y		;get seconds and minutes
		pha			;save for seconds below
		and #$FF00		;keep minutes in high byte
		xba

		else

		ldy #TDCtlRec.dateRec + gsos_date.minutes
		lda [dp.ctl_ptr],y		;get minutes value
		and #$00FF		;byte only

		endif

		jsr hex_to_ascii

		ldy <dp.part_left+minute_index
		sta string_buf +1,y		;store to minute field in string

		sep #$20			;single characters
		LONGA OFF

		lda #':'
		ldy <dp.part_left+hour_index
		sta string_buf+3,y		;add colon after hour


		if seconds=1 then		;code to handle seconds field

		rep #$20
		LONGA ON
@second
		pla			;restore minutes and seconds
		and #$00FF		;keep seconds only

		jsr hex_to_ascii		;get 2 characters in accum
		ldy <dp.part_left+second_index	;get offset in string to field
		sta string_buf+1,y		;store number characters in string

		sep #$20			;single characters
		LONGA OFF

		lda #':'
		ldy <dp.part_left+minute_index
		sta string_buf+3,y		;add colon after minute

		endif

touch_up				;fix string size
		sep #$20			;single characters
		LONGA OFF

		lda <dp.string_size
		sta string_buf		;set length byte

		rep #$20
		LONGA ON

		rts

		ENDP


		export draw_field
draw_field	PROC		;draw a text field with given text mode

		import calc_c_coord

				;enter with:	part number in accumulator
				;		text mode in X

		sta part			;save part number
		stx text_mode		;save text mode

		pha			;space for result
		ldx #$9904		;GetFontFlags
		jsl $E10000		;leave old FontFlags on stack

		pha			;space for result
		ldx #$9D04		;GetTextMode
		jsl $E10000

		lda part

		sec
		sbc #part_1st		;get relative part number

		asl a			;use as word offset
		tax			;index
		lda <dp.part_left,x		;get left character position

		clc
		adc #<string_buf+1		;get pointer to text
		tay			;save low part
		lda #^string_buf+1
		bcc @no_carry

		inc a
@no_carry
		pha			;push low part of string ptr
		phy			;push high part

		lda <dp.part_right,x	;get right character position
		sec
		sbc <dp.part_left,x		;get number of characters
		pha			;stack is now set up for DrawText

		lda <dp.part_left,x		;get left character position again
		jsr calc_c_coord

		pha

		dey
		dey			;back to top edge
		lda [dp.ctl_ptr],y		;get y coordinate
		clc
		adc #8+string_v_pos		;add ascent for Shaston font + adjustment
		pha			;push y coordinate

		ldx #$3A04		;MoveTo
		jsl $E10000

		lda text_mode
		pha
		ldx #$9C04		;SetTextMode
		jsl $E10000

		pea $0002			;select numeric spacing for DrawString
		ldx #$9804		;SetFontFlags
		jsl $E10000

		ldx #$A704		;DrawText
		jsl $E10000		;stack is set up for this call

		ldx #$9C04		;SetTextMode
		jsl $E10000		;restore previous text mode

					;previous FontFlags word is still on stack
		ldx #$9804		;SetFontFlags
		jsl $E10000

		rts

part		ds.w 1
text_mode		ds.w 1

		ENDP


		export bump_field
bump_field	PROC		;bump value of a field up or down by 1

		import short_months
		import part_to_offset

	;enter with:	part number in accum
	;		command in X: 0 = inc, 1 = dec

		stx command		;save inputs

		asl a			;convert part # to word offset
		tax

		jmp (jump_tbl-(part_month*2),x)

jump_tbl
		dc.w month
		dc.w day
		dc.w year
		dc.w hour
		dc.w minute

		if seconds = 1 then
		dc.w second
		endif

		dc.w am_pm

month
		ldy #TDCtlRec.dateRec + gsos_date.day
		lda [dp.ctl_ptr],y		;get day and month values
		pha			;save for later

		jsr general_case		;bump month. X must be part num *2

@check_day			;now make sure day value is OK for new month
		jsr get_month_max		;month should still be in accumulator

		pla			;restore day & month
		and #$00FF		;keep low byte only

		cmp month_max		;is current day too high?
		bcc @day_ok

		lda month_max		;if day was over, use maximum allowed value
		dec a			;adjust because days start at 0
		ldy #TDCtlRec.dateRec + gsos_date.day

		brl store1		;store value and return
@day_ok
		rts
day
		phx			;save part num*2

		ldy #TDCtlRec.dateRec + gsos_date.month
		lda [dp.ctl_ptr],y		;get month value
		and #$00FF

		jsr get_month_max		;set up number of days in that month in month_max

		plx			;restore part num*2
		tya			;month_max is in Y
		sta field_max-(part_month*2),x	;store month_max into table
		bra general_case		;bump value, store, and return

year
		;jsr general_case		;bump value, store

	;now support years 1940-2039
		ldy #TDCtlRec.dateRec + gsos_date.year
		lda [dp.ctl_ptr],y		;get year value
		and #$00FF

		ldy command
		beq yr_up
yr_dn
		dec a
		bmi @underflow		;if negative, we definitely went too low
		cmp #40			;minimum year is 1940
		bcs yr_str		;branch if OK
@underflow
		lda #139			;max is year 2039
		bra yr_str
yr_up
		inc a
		cmp #140			;max year is 2039
		bcc yr_str

		lda #40			;min year 1940
yr_str
		ldy part_to_offset-(part_1st*2),x	;get index into date record

		sep #$20
		LONGA OFF

		sta [dp.ctl_ptr],y		;set value

		rep #$20
		LONGA ON

				;return with year in accum

@check_feb_29			;special-case check when switching from a leap year
		and #$0003		;keep lowest 2 bits
		beq @done			;if now a leap year, we're OK

		ldy #TDCtlRec.dateRec + gsos_date.day
		lda [dp.ctl_ptr],y		;get day and month values
		cmp #$011C		;is it February 29?
		bne @done
@fix
		lda #$011B		;February 28
		sta [dp.ctl_ptr],y
@done
		rts

am_pm
		ldy #TDCtlRec.dateRec + gsos_date.hour
		lda [dp.ctl_ptr],y		;get hour value
		and #$00FF		;keep low byte

		cmp #12			;what range is it in?
		bcs @high
@low
		adc #12			;switch to other range. carry is clear
		bra store1		;store value and return
@high
		sbc #12			;switch to other range. carry is set

		bra store1		;store value and return

hour
minute
second
general_case			;internal subroutine to handle general case of bumpingÉ
				;Éa field up or down

				;enter with:	part number times 2 in X

		ldy part_to_offset-(part_1st*2),x	;get offset to field in control record
		sty daterec_index

		lda [dp.ctl_ptr],y		;get field value
		and #$00FF		;keep low byte

		ldy command
		beq inc
dec
		dec a
		;bmi @underflow		;if negative, we definitely went too low
		bpl store			;if positive, we're ok
;@underflow
		lda field_max-(part_month*2),x	;wrap to maximum value
		dec a			;table contains (max value -1)
		bra store
inc
		inc a
		cmp field_max-(part_month*2),x	;overflow?
		bne store

		lda #$0000		;wrap to min value
store
		ldy daterec_index		;restore index into date record
store1
		sep #$20
		LONGA OFF

		sta [dp.ctl_ptr],y		;set value

		rep #$20
		LONGA ON

		rts


		export month_max
month_max		ds.w 1
command		ds.w 1
daterec_index	ds.w 1

field_max			;table of maximum values +1 for each field by part number
		dc.w 12		;month
		ds.w 1		;day, must be filled in!
		dc.w 100		;year	** no longer used; now support  **
				;	** years 1940-2039		  **
		dc.w 24		;hour
		dc.w 60		;minute

		if seconds = 1 then
		dc.w 60		;second
		endif

;		*****************

		export get_month_max
get_month_max			;internal subroutine to determine number of days inÉ
				;Égiven month

				;enter with month in accumulator

		cmp #1			;is it February?
		bne @not_feb
@february
		ldy #TDCtlRec.dateRec + gsos_date.year
		lda [dp.ctl_ptr],y		;must check for leap year
		ldy #29			;assume leap year
		and #$0003		;keep lowest 2 bits (OK for yr 2000)
		;beq @leap
		beq @store_y_days
@not_leap
		;lda #28			;days in Feb in non-leap year
		dey			;one less day on non-leap year
		bra @store_y_days
@leap
		;lda #29
		;bra @store_days
@not_feb
		ldy #30			;assume short month
		ldx #6			;there are 4 months with 30 days
@loop
		cmp short_months,x
		beq @30			;if it's on the list, it has 30 days
		dex
		dex
		bpl @loop
@31
		iny			;bump Y to 31
@30
@store_y_days
		;tya
		;bra @store_days
;@30
		;lda #30
;@store_days
		sty month_max

		rts

		ENDP


		export set_field_rect
set_field_rect	PROC		;set temp_rect to rectangle enclosing a string field

				;enter with:	part # in accum
				;	long_field_flag = 0 --> include whiteÉ
				;			    Éspace
				;		      = 1 --> don't include

		sec
		sbc #part_1st		;get relative part number
		asl a			;use as word offset
		pha			;save for below
		tax			;index
		lda <dp.part_left,x		;get left character position
		jsr calc_c_coord
		sta temp_rect+2		;store in left edge

		plx			;restore index
		ldy long_field_flag		;test whether we want whitespace
		beq @no_space		;if 0, no space
@space
		lda <dp.part_next,x		;get his right neighbor
		beq @no_space		;no right neighbor, no space

		sec
		sbc #part_1st		;normalize part #
		asl a			;word offset
		tax
		lda <dp.part_left,x		;get start of next field
		bra @calc			;go calculate pixel position
@no_space
		lda <dp.part_right,x	;get right character position
@calc
		jsr calc_c_coord
		sta temp_rect+6		;store in right edge

		ldy #TDCtlRec.ctlRect	;point to top edge of control rect
		lda [dp.ctl_ptr],y
		sta temp_rect		;set top edge

		ldy #TDCtlRec.ctlRect+4	;point to bottom edge of control rect
		lda [dp.ctl_ptr],y
		sta temp_rect+4		;set bottom edge

		stz long_field_flag		;reset that flag

		rts

		ENDP


		export change_value
change_value	PROC		;change current field value by 1 and update the display

				;enter with:	command in X; 0 = up, 1 = down

		import bump_field
		import build_string
		import draw_field

		ldy #TDCtlRec.currPart
		lda [dp.ctl_ptr],y		;what field are we changing?
		pha			;save for later

		jsr bump_field		;inc or dec the value
		jsr build_string		;build new string

		lda 1,s			;restore part code of field
		ldx #$8000		;draw it inverted
		jsr draw_field		;display new value

		pla			;restore part again
		cmp #part_month
		beq @fix_day		;if month, day may have changed

		cmp #part_hour
		beq @fix_am_pm		;if hour, am/pm indicator may have changed

		cmp #part_year
		beq @fix_day		;if year, may have Feb 29 on non-leap year

		rts
@fix_day
		lda #part_day
		ldx #$0000		;use pen modeCopy
		jsr draw_field

		rts
@fix_am_pm
		ldy #TDCtlRec.ctlMoreFlags
		lda [dp.ctl_ptr],y
		and #$0001		;24-hour format?
		bne @24			;if so, no AM/PM field

		lda #part_am_pm
		ldx #$0000		;use pen modeCopy
		jsr draw_field
@24
		rts

		ENDP


		export draw_frame
draw_frame	PROC		;draw box around control

		;brk $86

		lda <dp.ctl_ptr		;get address of control record
		clc
		adc #TDCtlRec.ctlRect	;compute address of control rect
		tax
		lda <dp.ctl_ptr+2
		adc #0

		pha			;push ptr to control rect
		phx
		ldx #$5304		;FrameRect
		jsl $E10000

		rts

		ENDP


		export hide_frame
hide_frame	PROC		;erase box around control

		pea $8000			;pen mode notCopy
		ldx #$2E04		;SetPenMode
		jsl $E10000

		lda <dp.ctl_ptr		;get address of control record
		clc
		adc #TDCtlRec.ctlRect	;compute address of control rect
		tax
		lda <dp.ctl_ptr+2
		adc #0

		pha			;push ptr to control rect
		phx
		ldx #$5304		;FrameRect
		jsl $E10000

		ldx #$3604		;PenNormal
		jsl $E10000

		rts

		ENDP


		export roll_field
roll_field	PROC		;roll number into string representation of numeric field value

	;enter with:
	;	A	= ASCII code of numeric key ($30+number)

		import month_max
		import get_month_max

		;brk $85

		sec
		sbc #$30			;make into real number
		sta number		;save it

		ldy #TDCtlRec.currPart
		lda [dp.ctl_ptr],y		;what part is active?
		cmp #part_month
		beq @no_roll		;don't deal with month
@next1
		if seconds = 1 then
		cmp #part_second+1		;highest acceptable

		else
		cmp #part_minute+1		;highest acceptable

		endif

		bcc @cont
@no_roll
		brl done			;must be AM/PM field
@cont
				;get here with part # in accum
		sta part_code
		asl a			;*2
		tax			;use as table index
		ldy part_to_offset-(part_1st*2),x	;get offset to field in control record
		sty field_index		;use later

		lda [dp.ctl_ptr],y		;get value of field
		tax			;save for moment
		and #$FF00		;get unused byte
		sta old_field		;save it
		txa			;restore original full word
		and #$00FF		;keep our part only
		ldx part_code
		cpx #part_hour
		beq @hour			;hour is special
@check_inc
		bit field_type-part_1st-1,x	;test field_type byte in high byte of access
		bpl @no_inc		;if high bit clear, stored as-is
@inc
		inc a
		bra @not_hour
@hour
				;if hour, may have to convert to 12-hour number
		stz hour_adjust		;assume AM, or 24-hour format

		tax			;save hour value while we check format
		ldy #TDCtlRec.ctlMoreFlags
		lda [dp.ctl_ptr],y
		ror a			;test low bit
		ror hour_flag		;roll to high bit for easy reference
		bpl @12			;is it 24-hour?
@24
		lda #23+1
		sta hour_limit		;set limit for hour to 23
		txa
		bra @am			;treat it like AM now
@12
		lda #12+1
		sta hour_limit
		txa			;restore hour value for display
		bne @not_midnight

		lda #12			;midnight stored as 0
		bra @am			;set to adjust back later
@not_midnight
		cmp #12			;in PM range?
		beq @set_adjust		;if noon, count as pm, but don't subtract
		bcc @am

		sec
		sbc #12
@set_adjust
		ldy #12
		sty hour_adjust
@am
@not_hour
@no_inc
		jsr div_ten		;get ones in Y, tens in X
recalc				;calculate new value
		lda #0-10			;init value
@tens_loop
		clc			;we need this inside loop b/c we start with neg value
		adc #10
		dey			;use old ones value as tens counter
		bpl @tens_loop
@ones
		clc			;carry will be set if ten_loop executed once
		adc number		;carry should be clear

		ldx part_code
		bit field_type-part_1st-1,x	;test field_type byte in high byte of access
		bpl @no_dec		;if high bit clear, stored as-is
@dec					;hour and day are stored -1
		dec a
		bpl @dec_ok		;OK as long as we didn't underflow
@underflow
		inc a			;put it back to 0
@dec_ok
@no_dec
check_range
		ldx part_code
		cpx #part_year
		bne @not_year
@year
		cmp #40			;did we get value less than 1940?
		bcs @check_feb_29		;no, we're OK

		clc
		adc #100			;year less than 1940, move ahead 100 yrs
@check_feb_29
		pha			;save year on stack

		and #$0003		;keep lowest 2 bits
		beq @year_done		;if now a leap year, we're OK

		ldy #TDCtlRec.dateRec + gsos_date.day
		lda [dp.ctl_ptr],y		;get day and month values
		cmp #$011C		;is it February 29?
		bne @year_done
@fix_year
		lda #$1B00		;day 28 in high byte
		sta old_field		;this happens to contain the day!
@year_done
		pla			;restore year
		bra @range_ok
@not_year
		cpx #part_day
		bne @not_day
@day
		pha			;save day value

		ldy #TDCtlRec.dateRec + gsos_date.month
		lda [dp.ctl_ptr],y		;get month value
		and #$00FF

		jsr get_month_max		;set up number of days in that month in month_max

		pla			;restore our day value
		cmp month_max		;are we over?
		bcc @range_ok

		lda number		;just use indicated digit
		beq @range_ok		;if 0, don't decrement, will be convertedÉ
					;Éto day 1
		dec a			;convert back to record format
		bra @range_ok
@not_day
		cpx #part_hour
		bne @not_hour
@hour
		cmp hour_limit
		bcc @hour_ok
@fix_hour
		lda number		;use indicated digit
@hour_ok
		bit hour_flag		;24-hour format?
		bmi @range_ok		;we're covered for 24-hour format

		cmp #12			;are we past end of am/pm range?
		bne @hour_ok2

		lda #0			;wrap to 0 within am/pm range
@hour_ok2
		clc
		adc hour_adjust		;add 12 if it was PM
		bra @range_ok
@not_hour
@minutes_seconds				;must be minutes or seconds
		cmp #60
		bcc @range_ok

		lda number		;just use given digit
@range_ok				;enter with new field value in Accum
		ora old_field		;OR-in unused byte
		ldy field_index
		sta [dp.ctl_ptr],y		;update value

		jsr build_string		;build new string

		lda part_code		;restore part code of field
		ldx #$8000		;draw it inverted
		jsr draw_field		;display new value

		lda part_code
		cmp #part_year		;did we change the year?
		bne done
@update_day
		lda #part_day
		ldx #$0000		;use pen modeCopy
		jsr draw_field		;draw it just in case
done
		rts

		export part_to_offset
part_to_offset			;field value offsets in control record, indexed by part number
				;starts with part_month
		WITH TDCtlRec

		dc.w dateRec + gsos_date.month
		dc.w dateRec + gsos_date.day
		dc.w dateRec + gsos_date.year
		dc.w dateRec + gsos_date.hour
		dc.w dateRec + gsos_date.minutes

		if seconds = 1 then
		dc.w dateRec + gsos_date.seconds
		endif

		ENDWITH

				;storage
number		ds.w 1
field_index	ds.w 1
old_field		ds.w 1
part_code		ds.w 1
hour_adjust	ds.w 1
hour_limit	ds.w 1

		ENDP


		export set_up_table
set_up_table	PROC		;get correct format table and patch for variousÉ
				;Éformats if necessary

				;copy format table to direct-page
		ldy #TDCtlRec.formatRef
		lda [dp.ctl_ptr],y		;get pointer to format table
		sta <dp.table_ptr

		export set_up_table2
set_up_table2			;alternate entry pt, does NOT set up pointer to table
		ldy #table_length-2		;point to last word in table
@loop1
		lda (dp.table_ptr),y
		tax			;next addr mode only supported for X-reg!!
		stx <dp.format_table,y	;copy onto direct-page
		dey
		dey
		bpl @loop1
				;check for type of control
		ldy #TDCtlRec.ctlFlag
		lda [dp.ctl_ptr],y		;get flags byte
		and #$0003		;lower 2 bits are control type:
					;	01 = time only
					;	10 = date only
					;	11 = time and date
					;	00 = bad value
		dec a
		beq @time_only
 
 		dec a
		bne @both
@date_only			;patch out time fields

;	figure out how much to adjust size of string

	if table3 = 1 then		;do we need year-month-day?
		lda dp.part_prev+hour_index	;find out what field comes before hour
		sec
		sbc #part_1st		;normalize
		asl a			;use as word offset
		tax
		lda dp.part_right,x		;get right position of last date field
		clc
		adc dp.string_size		;next we subtract right position ofÉ
					;Élast time field so we wind upÉ
					;Ésubtracting a difference

		stz dp.part_next,x		;terminate right neighbor link list
	else
		lda dp.string_size
		clc
		adc dp.part_right+year_index	;add right position of year_field
	endif
				;get here with sum of string length and positionÉ
				;Éof end of last date field
		sec
		sbc dp.part_right+am_pm_index	;subtract right position of am/pm field
		sta dp.string_size

;	terminate right neighbor link list

	if table3 <> 1 then		;no support for year-month-day?
		stz dp.part_next+year_index	;indicate that year has no right neighbor
	endif				;this was already done in code generatedÉ
					;Éfor year-month-day

;	set new last field

	if table3 = 1 then		;do we need year-month-day?
		lda dp.part_prev+hour_index	;what is the last field now?
	else
		lda #part_year		;we know last field if there is noÉ
					;Éyear-month-day format
	endif

		sta dp.last_field

		bra done			;setup is done
@time_only

;	adjust character positions now that date is gone

				;figure out how much to adjust by
		lda dp.part_left+hour_index	;offset in characters
		eor #$FFFF		;complement so we can add, but is ONE LESS
		tay			;keep in register
				;field positions by # of chars in date portion
		sec			;use carry set b/c complement is off by 1!!
		adc dp.string_size		;subtract hour offset
		sta dp.string_size

		ldx #(part_am_pm-part_year)*2	;index across word for each time field in loop
@time_loop		;adjust string positions of time fields
			;enter with complement-1 of adjustment in Y
		tya			;restore complement of hour position -1
		sec			;use carry set b/c complement is off by one!!
		adc dp.part_right+hour_index-2,x	;subtract hour offset
		sta dp.part_right+hour_index-2,x	;put back

		tya			;restore complement of hour position -1
		sec			;use carry set b/c complement is off by one!!
		adc dp.part_left+hour_index-2,x	;subtract hour offset
		sta dp.part_left+hour_index-2,x	;put back

		dex
		dex			;pull index back a word
		bne @time_loop

;	terminate left neighbor link list

		stz dp.part_prev+hour_index		;hour has no left neighbor

		lda #part_hour
		sta dp.first_field
		lda #part_am_pm
		sta dp.last_field
@both
				;now patch table if 24-hour format
		ldy #TDCtlRec.ctlMoreFlags
		lda [dp.ctl_ptr],y
		and #$0001		;24-hour format?
		beq @12			;branch if 12-hour format
@24				;patch-out AM/PM field in table
		lda dp.string_size
		dec a
		dec a
		dec a			;account for space and 2 characters
		sta dp.string_size

		if seconds = 1 then
		stz dp.part_next+second_index	;indicate that seconds field has no right neighbor
		else
		stz dp.part_next+minute_index	;indicate that minutes field has no right neighbor
		endif

		dec dp.last_field		;bump down to minutes
@12
done
		rts

		ENDP


		export hide_arrows
hide_arrows	PROC		;erase rect where arrows are drawn

		import set_arrow_rect

				;first set up rectangle that contains arrows
		jsr set_arrow_rect		;set temp_rect to rect enclosing both arrows

		pea temp_rect>>16
		pea temp_rect
		ldx #$5504		;EraseRect
		jsl $E10000		;erase the arrows

		rts

		ENDP


set_arrow_rect	PROC		;set temp_rect to rect enclosing both arrows

		import arrows

		ldy #TDCtlRec.ctlRect	;point to top edge of control rect
		lda [dp.ctl_ptr],y
		inc a			;move 1 pixel from frame
		sta temp_rect		;set top edge

		ldy #TDCtlRec.ctlRect+4	;point to bottom edge of control rect
		lda [dp.ctl_ptr],y
		dec a			;move 1 pixel from frame
		sta temp_rect+4		;set bottom edge

		ldy #TDCtlRec.arrowPos
		lda [dp.ctl_ptr],y		;get arrow position
		ldy #TDCtlRec.ctlRect+2	;point to left edge
		clc
		adc [dp.ctl_ptr],y		;add left edge
		sta temp_rect+2

		lda #arrow_width
		bit arrows-1		;test SCB
		bmi @640
@320
		lsr a			;divide by 2 for 320 mode
@640
		clc
		adc temp_rect+2		;add to left edge
		sta temp_rect+6		;set right edge

		rts

		ENDP

		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/cdev.h b/IIGS.601.SRC/A.U.G/CtlPanel/cdev.h
new file mode 100644
index 0000000..ff603fa
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/cdev.h
@@ -0,0 +1 @@
+;;;	cdev.h - standard equates for cdevs.
;
;	Michael V. Stein	01/08/90.
;
;	Copyright Apple, 1990.


MachineCDEV	equ 	1	;called when rebuilding cdev.data to see if cdev should be included
BootCDEV	equ 	2	;boot time init call or install call - no params
ShutDownCDEV	equ 	3	;reserved for future use
InitCDEV 	equ 	4	;called when being shown - data1 equ windowPtr
CloseCDEV 	equ 	5	;called when being removed - data1 equ windowPtr
EventsCDEV	equ 	6	;called when an event - data1 equ ptr to event record
CreateCDEV	equ 	7	;called so that CDEV can create its controls inline - data1 equ window
AboutCDEV 	equ	8	;called so that CDEV can create its about text inline - no params
RectCDEV	equ	9	;called so that CDEV can dynamically compute its rectangle
HitCDEV		equ	10	;called when ctl is "hit" - data1 equ Hdl to Ctl hit, data2 equ Ctl Id
RunCDEV		equ	11	;caled when da run is called
reserved1 	equ	12	;reserved for future use
reserved2 	equ	13	;reserved for future use
reserved3 	equ	14	;reserved for future use
NeverUsed1	equ	15	;this will never be used
NeverUsed2	equ	16	;this will never be used

wantMachine 	equ	1
wantBoot 	equ	2
wantShutDown	equ	4
wantInit	equ	8
wantClose 	equ	16
wantEvents 	equ	32
wantCreate 	equ	64
wantAbout 	equ	128
wantRect 	equ	256
wantHit 	equ	512
wantRun 	equ	1024
wantReserved1  equ	2048
wantReserved2  equ	4096
wantReserved3  equ	8192
updateSSfromBRAM  equ 	16384
CanBeUnActive	equ	32768

CDEV_ResType equ 	$8018
FLAG_ResType equ 	$8019
TwoRect_ResType equ 	$801A
rCodeResource equ 	$8017

CDEV_FileType equ 	$C7
CDEV_AuxType 	equ 	0

CDEVDATA_FileType equ 	$00
CDEVDATA_AuxType equ 	$00
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/commonmacros.h b/IIGS.601.SRC/A.U.G/CtlPanel/commonmacros.h
new file mode 100644
index 0000000..48625c7
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/commonmacros.h
@@ -0,0 +1 @@
+;...............................................................
;
;        Push 2 bytes onto stack
;
;    pushw loc     -- pushes bytes onto stack from 'loc'
;    pushw loc,x   -- pushes bytes onto stack from 'loc,x'
;    pushw #n      -- pushes constant #n onto stack
;    pushw         -- pushes bytes onto stack (from A)
;...............................................................
	MACRO
	pushw &addr,&reg
	IF &addr[1:1]='#' AND &SETTING('LONGA')='ON' THEN
		pea		|&addr[2:255]
	ELSE
		IF &addr­'' THEN
			IF &reg­'' THEN 
				lda		&addr,&reg
			ELSE
				lda		&addr
			ENDIF
		ENDIF
		pha
	ENDIF
	MEND


;............................................................
;
;        Pull long (4 bytes) from stack
;
;    pulllong address             - pull off stack to address
;    pulllong addr1,addr2         - pull off stack into 2 places
;    pulllong [zeropage],offset   - pull off stack and store indirectly             
;    pulllong                     - pull off stack and leave in A
;...............................................................
	MACRO
	pulll &addr1,&addr2
	IF &addr1='' THEN
	IF &addr2­'' THEN 
		AERROR 'Illegal 2nd parameter'
	ENDIF
		pullw
		pullw
	ELSEIF &addr2='' THEN
		pullw  &addr1
		pullw  &addr1+2
	ELSEIF &addr1[1:1]='[' THEN
		ldy   #&addr2
		pullw  &addr1,y
		ldy   #&addr2+2
		pullw  &addr1,y
	ELSE
		pullw  &addr1
		sta   &addr2
		pullw  &addr1+2
		sta   &addr2+2
	ENDIF
	MEND

;...............................................................
;
;        Pull 2 bytes from stack
;
;    pullw loc     -- pulls bytes off stack and stores in 'loc'
;    pullw loc,x   -- pulls bytes off stack and stores in 'loc,x'
;    pullw         -- pulls bytes off stack and leaves in A
;...............................................................
	MACRO
	pullw &addr,&reg
		pla
	IF &addr­'' THEN
		IF &reg­'' THEN
			sta		&addr,&reg
		ELSE
			sta		&addr
		ENDIF
	ELSEIF &reg­'' THEN 
		AERROR 'Illegal 2nd parameter'
	ENDIF
	MEND

;............................................................
;
;        Push long (4 bytes) onto stack
;
;    pushl address             - push contents of address
;    pushl address,x           - push contents of address,x
;    pushl const,s             - push contents of stack+const    
;    pushl #address/const      - push address or constant
;    pushl [zeropage],offset   - push using indirect address
;...............................................................
	MACRO
	pushl &addr,&offset
	IF &addr[1:1]='#' THEN
		pea		&addr[2:255]>>16
		pea		|&addr[2:255]
	ELSEIF &addr[1:1]='[' THEN
		ldy		#&offset+2
		pushw &addr,y
		ldy		#&offset
		pushw &addr,y
	ELSEIF &offset='s' THEN
		pushw &addr,s
		pushw &addr,s
	ELSEIF &offset='' THEN
		pushw  &addr+2
		pushw  &addr
	ELSE
		pushw &addr+2,&offset
		pushw &addr,&offset
	ENDIF
	MEND



;	skip1 - skip the next byte


	MACRO
	skip1
	dc.b	$24
	ENDM


;	skip2 - skip the next 2 bytes.


	MACRO
	skip2
	dc.b	$2c
	ENDM
	
	
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/CtlPanel/dp.h b/IIGS.601.SRC/A.U.G/CtlPanel/dp.h
new file mode 100644
index 0000000..92160a1
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/CtlPanel/dp.h
@@ -0,0 +1 @@
+;;;	dp - some standard direct page equates for cdevs.
;
;	Michael V. Stein	01/12/90.
;
;	© Copyright Apple, 1990.


	blanks	off
	


;;	direct page definitions.


l1	equ	1		4 byte direct page equates
l2	equ	l1+4
l3	equ	l2+4
l4	equ	l3+4
l5	equ	l4+4

w1	equ	l5+4		2 byte direct page equates
w2	equ	w1+2
w3	equ	w2+2
w4	equ	w3+2
w5	equ	w4+2
w6	equ	w5+2

dpsize	equ	w6+2-1		size of additional stack needed for direct page

data2	equ	w6+2+1+3	get past data bank and rtl address
data1	equ	data2+4
message	equ	data1+4

stkoff	equ	dpsize+2
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/EasyAccess/EasyAccess.aii b/IIGS.601.SRC/A.U.G/EasyAccess/EasyAccess.aii
new file mode 100644
index 0000000..e628c16
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/EasyAccess/EasyAccess.aii
@@ -0,0 +1 @@
+*===============================================*
*						*
* File:		EasyAccess.aii			*
* Project:	Easy Access for the IIGS	*
* Author:	Don J. Brady			*
* Build file:	EasyAccess.Make			*
*						*
* Copyright © Apple Computer, Inc. 1989,1990	*
* All rights reserved.				*
*-----------------------------------------------*
* Modification History:				*
* 11/07/89 DJB	- File created today		*
*
* 12/5/90  JLM	- Bug fixed today with recognition of early ROM 01 machines
*
* 6-Jun-91 Dave Lyons
*   Added a single XBA instruction when pushing
*   the parmeters to FakeMouse.  This was making
*   modifiers not work on keyboard-mouse clicks.
*
*						*
*===============================================*

		STRING	ASIS
		
		PRINT	NOPAGE
		PRINT	NOGEN
		PRINT	OFF		

		INCLUDE	'M16.Memory'		; toolbox macros
		INCLUDE	'M16.Quickdraw'
		INCLUDE	'M16.Event'
		INCLUDE	'M16.Menu'
		INCLUDE	'M16.Locator'
		INCLUDE	'M16.MiscTool'
		INCLUDE	'M16.ADB'
		INCLUDE	'M16.IntMath'

		INCLUDE	'E16.ADB'		; toolbox equates
		INCLUDE	'EasyAccess.equ'
		
		PRINT	ON


picDV		equ	8
picDH		equ	20

picX		equ	640-picDH-4
picY		equ	2

*===============================================*
Start		PROC

		IMPORT	Install
		
		brl	Install
		
		ENDP

*===============================================*
*	Data used by Easy Access		*
*===============================================*

GlobalData	PROC
		

;--- general data:
		
		ENTRY	UserID
UserID		ds.W	1

		ENTRY	ADBVersion
ADBVersion	ds.W	1

		ENTRY	Temp
Temp		ds.B	8

		ENTRY	ModsToFree
ModsToFree	dc.W	0


		ENTRY	NewImage
NewImage	dc.L	0

		ENTRY	LastTick
LastTick	dc.L	0



;--- data for MouseKeys:

		ENTRY	MouseKeysOn
MouseKeysOn	dc.W	0

		ENTRY	MKMultOn
MKMultOn	dc.W	0

		ENTRY	MouseDirection
MouseDirection	dc.W	0

		ENTRY	PixelsPerPress
PixelsPerPress	dc.W	0

		ENTRY	ButtonState
ButtonState	dc.W	0

		ENTRY	ClampAddr
ClampAddr	ds.L	1

		ENTRY	MKLastTick
MKLastTick	ds.L	1

		ENTRY	MKDelayPassed
MKDelayPassed	ds.W	1
		ENTRY	MKAccelPassed
MKAccelPassed	ds.W	1

		ENTRY	MKDelayTicks
MKDelayTicks	ds.W	1
		ENTRY	MKAccelTicks
MKAccelTicks	ds.W	1

		ENTRY	SubPixTotal
SubPixTotal	ds.W	1
		ENTRY	SubPixDelta
SubPixDelta	ds.W	1
		ENTRY	SubPixMax
SubPixMax	ds.W	1
		ENTRY	SubPixAccel
SubPixAccel	ds.W	1

		ENTRY	MKDelayData		; ticks to wait
MKDelayData
		dc.W	15			; 0.25 sec
		dc.W	30			; 0.50 sec
		dc.W	45			; 0.75 sec
		dc.W	60			; 1.00 sec
		dc.W	75			; 1.25 sec

		ENTRY	MKAccelData		; ticks until max speed
MKAccelData
		dc.W	360			; 6.0 sec
		dc.W	270			; 4.5 sec
		dc.W	180			; 3.0 sec
		dc.W	90			; 1.5 sec
		dc.W	0			; 0.0 sec

		ENTRY	MKSpeedData
MKSpeedData					; 1/256th pixels per tick (sub pixels)
		dc.W	8*256/60		;   8  pixels/sec
		dc.W	11*256/60		;  11	"
		dc.W	15*256/60		;  15	"	
		dc.W	20*256/60		;  20	"
		dc.W	24*256/60		;  24	"
		dc.W	30*256/60		;  30	"
		dc.W	40*256/60		;  40	"
		dc.W	60*256/60		;  60	"
		dc.W	120*256/60		; 120	"
		dc.W	180*256/60		; 180	"


;--- data for sticky keys:

		ENTRY	TempY	
TempY		dc.W	0
		ENTRY	TempX	
TempX		dc.W	0
		ENTRY	LastKey	
LastKey		dc.W	0
		ENTRY	KeyCount	
KeyCount	dc.W	0
		ENTRY	Flag	
Flag		dc.W	0
		ENTRY	SBits	
SBits		dc.W	0
		ENTRY	LBits	
LBits		dc.W	0
		ENTRY	ADBData	
ADBData		dc.W	0


;--- ROM 03 sticky keys data:
		
		ENTRY	LastLockState
LastLockState	dc.W	0
		ENTRY	LastStuckState
LastStuckState	dc.W	0
		ENTRY	LastBits
LastBits	dc.W	0
		ENTRY	LastState
LastState	dc.W	0



		ENTRY	PicLocInfo
		ENTRY	PicImage
		ENTRY	PicRect
PicLocInfo	DC.W	$80			; port SCB
PicImage	DC.L	$0000			; image ptr
		DC.W	5			; image width (bytes)
PicRect		DC.W 	0,0,picDV,picDH		; bounds rect

		ENTRY	PicPt
PicPt		dc.W	picY,picX


		ENTRY	OnImage
OnImage		dc.B	$00,$00,$00,$00,$00
		dc.B	$00,$00,$00,$00,$00
		dc.B	$00,$00,$00,$00,$00
		dc.B	$00,$00,$00,$00,$00
		dc.B	$0F,$F0,$00,$00,$FF
		dc.B	$00,$F0,$00,$00,$F0
		dc.B	$00,$F0,$00,$00,$F0
		dc.B	$00,$FF,$FF,$FF,$F0

		ENTRY	StickImage
StickImage	dc.B	$00,$00,$0F,$00,$00
		dc.B	$00,$00,$0F,$00,$00
		dc.B	$00,$0F,$FF,$FF,$00
		dc.B	$00,$00,$FF,$F0,$00
		dc.B	$0F,$F0,$0F,$00,$FF
		dc.B	$00,$F0,$00,$00,$F0
		dc.B	$00,$F0,$00,$00,$F0
		dc.B	$00,$FF,$FF,$FF,$F0

		ENTRY	LockImage
LockImage	dc.B	$00,$00,$0F,$00,$00
		dc.B	$00,$00,$0F,$00,$00
		dc.B	$00,$0F,$FF,$FF,$00
		dc.B	$00,$00,$FF,$F0,$00
		dc.B	$0F,$F0,$0F,$00,$FF
		dc.B	$00,$FF,$FF,$FF,$F0
		dc.B	$00,$FF,$FF,$FF,$F0
		dc.B	$00,$FF,$FF,$FF,$F0


		ENTRY	NumToBitMask
NumToBitMask	dc.W	%00000001		; 0, control
		dc.W	%00000010		; 1, apple
		dc.W	%00000100		; 2, shift
		dc.W	%00001000		; 3, caps lock
		dc.W	%00010000		; 4, option


;--- vectors to patch:

		ENTRY	GetNextEventVec
GetNextEventVec	dc.B	$5C			; jml  $bbAAAA
		dc.L	0

		ENTRY	DrawMenuBarVec
DrawMenuBarVec	dc.B	$5C			; jml  $bbAAAA
		dc.L	0

		ENTRY	BRSVec
BRSVec		dc.B	$5C			; jml  $bbAAAA
		dc.L	0

		ENDP

*===============================================*
*						*
*	Patch into ADB keyboard			*
*						*
*===============================================*

Install		PROC
		
		LONGA	ON
		LONGI	ON

		IMPORT	NewTSFuncPtr
		IMPORT	MyGetNextEvent
		IMPORT	MyDrawMenuBar
		IMPORT	PatchKeyboard
		IMPORT	GetKeyModBits
		IMPORT	CheckMKeyParams
		
		phb				; use local addressing
		phk
		plb
		
		jsr	GetKeyModBits
		and	#kmOption		; if option key down
		beq	ok
		brl	exit			; don't install patch	
ok
		pha				; space for userID (word)
		_MMStartUp
		pla
		sta	UserID			; used for memory allocations

		stz	MouseKeysOn

;--- Check which version of ADB micro:

		pea	1			; number of data bytes
		pea	Temp>>16		; pointer to data
		pea	Temp
		pea	readVersionNum		; command
		_ReadKeyMicroData
		lda	Temp
		sta	ADBVersion
; 12/5/90 Mensch
; OOops Don had a bug here where he was testing for a certain key micro version
; what he should have done was level test to insure that the key micro is earlier
; than rom 03 
; was:
;		cmp #adbVerROM01
;		bne @skip
;
		cmp	#adbVerROM03
		bge	@skip			; only need completion routine if ROM 01

;--- Move keyboard to new address:

		jsr	PatchKeyboard

;--- Get data for MouseKeys:

		pha				; space for address (long)
		pha
		pea	mouseClamps
		_GetAddr			; get address of mouse clamps
		pla
		sta	ClampAddr
		pla
		sta	ClampAddr+2

		jsr	CheckMKeyParams		; get MouseKeys parameters from BRAM

;--- Install toolbox patches:

@skip		
		pha				; space for result (long)
		pha
		pea	GetNextEvent
		pea	MyGetNextEvent>>16
		pea	MyGetNextEvent-1
		jsl	NewTSFuncPtr		; patch out _GetNextEvent
		pla
		plx
		inc	a
		bne	@set1
		inx
@set1
		sta	GetNextEventVec+1	
		stx	GetNextEventVec+3

		pha				; space for result (long)
		pha
		pea	DrawMenuBar
		pea	MyDrawMenuBar>>16
		pea	MyDrawMenuBar-1
		jsl	NewTSFuncPtr		; patch out _DrawMenuBar
		pla
		plx
		inc	a
		bne	@set2
		inx
@set2
		sta	DrawMenuBarVec+1
		stx	DrawMenuBarVec+3

		_SetDefaultTPT			; permanently install these patches!		

exit
		plb
		rtl

		ENDP

*===============================================*

PatchKeyboard	PROC

		LONGA	ON
		LONGI	ON
		
		IMPORT	KBCompletion
		IMPORT	SendADBInfo
		IMPORT	KMSTATUSTask

;--- disable keymicro autopoll

		ldx	#1			; bytes to send
		ldy	#setModes		; command = disable keyboard autopoll
		lda	#%00000001		; data (bit 0 = ADB keyboard autopoll)
		jsr	SendADBInfo

;--- install our SRQ routine:

		pea	KBCompletion>>16
		pea	KBCompletion
		pea	$02			; register 0 and ADB address of 2
		_SRQPoll			; add device to SRQ list

;--- now patch BSR vector:

		pha
		pha
		pea	BRAMSetupVec
		_GetVector
		pla
		sta	>BRSVec+1
		pla
		sta	>BRSVec+3
			
		pea	BRAMSetupVec
		pea	_Patch>>16
		pea	_Patch
		_SetVector

; insall VBL task to fix bug:

		pea	KMSTATUSTask>>16
		pea	KMSTATUSTask
		_SetHeartBeat			; install our vbl task

		rts

;-----------------------------------------------
;
; We must patch the ToSetBRAM routine since
; it is 'bad' and makes an ADB abort ($01) call.
; Since the abort call reenables autopoll, this
; causes our keyboard "patch" to be undone.  This
; patch will fix the problem by disabling autopoll
; again after the ToSetBRAM routine is finished.
; 
;-----------------------------------------------
_Patch
		LONGA	OFF
		LONGI	OFF

		jsl	BRSVec			; first call real routine

		php				; save carry, M and X flags

		rep	#$30			; force 16-bit registers
		LONGA	ON
		LONGI	ON

; disable auto poll again:

		ldx	#1			; bytes to send
		ldy	#setModes		; command = disable keyboard autopoll
		lda	#%00000001		; data (bit 0 = ADB keyboard autopoll)
		jsr	SendADBInfo

		plp				; resore carry, M and X flags
		rtl

		ENDP
			

*===============================================*
*	Our Keyboard SRQ Completion Routine	*
*						*
* This routine is called everytime the keyboard *
* has data to process (i.e. keystrokes).	*
*						*
* In:	stack = rtlAddr1 (3 bytes)		*
*		rtlAddr2 (3 bytes)		*
*		dataPtr (4 bytes)		*
*						*
* Out:	dataPtr removed from stack		*
*	carry flag is clear			*
*===============================================*

KBCompletion	PROC

dataBank	SET	1			; stack offsets
dirPage		SET	dataBank+1
rtlAddr1	SET	dirPage+2
rtlAddr2	SET	rtlAddr1+3
dataPtr		SET	rtlAddr2+3

		LONGA	OFF			; completion uses 8-bit mode
		LONGI	OFF

		IMPORT	StickyKeys
		IMPORT	MouseKeys
		IMPORT	PostKey
		IMPORT	FreeModifiers
		IMPORT	TestForReset

		phb
		phd

		phk
		plb

		tsc				; make a stack frame
		tcd
		
		lda	[<dataPtr]		; is there any data ?
		beq	exit			; no, so exit

		rep	#$30
		LONGA	ON
		LONGI	ON
		
		ldy	#1
		lda	[<dataPtr],y		; get key data (2 bytes)
		sta	>$FF8000		; debug trigger
		
		tay				; save copy of A in Y
		and	#kcMask
		cmp	#kcReset
		beq	reset			; reset key is special case
		tya
		and	#$FF00
		xba
		tax				; X <-- key code #2
		tya
		and	#$00FF			; A <-- key code #1
		bra	process
reset
		tya				; note: reset key code is 2 bytes
		ldx	#nullKey
process
		phx				; save 2nd key stroke

		jsr	TestForReset
		jsr	StickyKeys
		jsr	MouseKeys		; must be checked last

		plx				; get 2nd key stroke
		pha				; save 1st key result
		txa

		jsr	StickyKeys
		jsr	MouseKeys

		plx				; get back 1st key result
		pha				; save 2nd key result
		txa

		jsr	PostKey			; post the 1st key
		pla
		jsr	PostKey			; post the 2nd key

		jsr	FreeModifiers		; release latched modifier keys
		
		sep	#$30
		LONGA	OFF
		LONGI	OFF
exit
		pld
		plb
		clc
		rtl

		ENDP

*===============================================*
*	Post a key to the ADB micro		*
*						*
* This routine will post a key to the ADB micro	*
* controller via the ADB toolset.  The 'key'	*
* then appears at the hardware loaction $C000	*
* (or at $C025 if its a modifier key) as if it	*
* came stright from the keyboard.		*
*						*
* In:	a-reg has raw key code			*
* Out:	none					*
*						*
* trashes Temp					*
*===============================================*

PostKey		PROC

		LONGA	ON
		LONGI	ON
		
		IMPORT	SendADBInfo
		IMPORT	GetKeyModBits
		

		cmp	#nullKey		; null key code?
		beq	skip			; yes, so skip

		cmp	#$00E0			; is keycode ³ E0 ?
		bcs	skip			; yes, so throw it away

		cmp	#kcFirstMod		; is it a mod key down code?
		bcc	ok
		cmp	#kcLastMod+1
		bcs	ok

		tax				; save key code
		sec
		sbc	#kcFirstMod		; convert to table index
		asl	a
		tay
		jsr	GetKeyModBits
		and	BitMasks,y
		bne	skip			; already down, so skip
		txa				; restore key code		
ok		
		ldx	#1			; bytes to send
		ldy	#keyCode		; command = send key code
		jsr	SendADBInfo		; post key code to key micro
skip
		rts

BitMasks
		DC.W	kmControl
		DC.W	kmApple
		DC.W	kmShift
		DC.W	kmCapsLock
		DC.W	kmOption

		ENDP

*===============================================*
*	Send data to ADB micro			*
*						*
* In:	a-reg has ADB data			*
*	x-reg has data count (0,1,or 2)		*
*	y-reg has ADB command			*
*						*
* Out:	none					*
*						*
* trashes Temp					*
*===============================================*

SendADBInfo	PROC

		LONGA	ON
		LONGI	ON
		
		sta	>Temp			; use Temp as buffer
		
		phx				; bytes to send
		pea	Temp>>16		; ptr to data
		pea	Temp
		phy				; command
		_SendInfo
		rts

		ENDP

*===============================================*
* Release some modifier keys			*
*===============================================*

FreeModifiers	PROC

		lda	ModsToFree
		beq	exit

		ldx	#4*2		
@loop
		and	NumToBitMask,x
		beq	@next
		txa
		lsr	a
		clc
		adc	#kcFirstMod+kcKeyUp
		phx
		jsr	PostKey			; post modifier up
		plx
@next
		lda	ModsToFree
		dex
		dex
		bpl	@loop

		stz	ModsToFree
exit
		rts

		ENDP

*===============================================*
*						*
* IN:	a-reg has ADB key code			*
*						*
* OUT:	a-reg has ADB key code			*
*						*
* NOTE	This routine will not return if the	*
*	control-reset sequence has occured!	*
*===============================================*

TestForReset	PROC

		LONGA	ON
		LONGI	ON
		
		IMPORT	GetKeyModBits
		IMPORT	SendADBInfo
		
		tay				; save key code in Y
		and	#kcMask
		cmp	#kcRESET		; is this the reset key?
		bne	skip			; no, so skip
		
		tya
		and	#kcKeyUp		; is it a reset up
		bne	null			; yes, so we don't care

		jsr	GetKeyModBits
		tax
		and	#kmControl		; is control key down?
		bne	reset			; yes, so good bye!
null
		ldy	#nullKey		; throw reset key away
		bra	skip
reset
		ldx	#0			; bytes to send
		ldy	#resetSys		; command = reset
		lda	#0			; data
		jsr	SendADBInfo		; will not return
		brk	$db			; should never get here!
skip		
		tya				; restore key code
		rts
		
		ENDP

*===============================================*
* StickyKeys:	latch modifier keys		*
*						*
* IN:	a-reg has raw key data			*
*						*
* OUT:	a-reg has raw key data			*
*						*
*===============================================*

StickyKeys	PROC

		LONGA	ON
		LONGI	ON
		
		IMPORT	SetOnImage
		IMPORT	SetOffImage
		IMPORT	SetStickImage
		IMPORT	SetLockImage

sBit		equ	$80
mBit		equ	$40
mMask		equ	$1F

		
		sta	ADBData
		cmp	#nullKey		; not a valid if null key
		bne	@OK
		brl	@Done	
@OK
		cmp	#$0080			; is it a down key (bit 7 clear)?
		bcc	@KeyDown		; yes
		and	#$007F
		tax				; x <-- raw key code less high bit
		brl	@keyUp			; no, skip recording keystroke		
@KeyDown
		tax
		cpx	LastKey			; same as last key typed
		bne	@NotSame

		lda	>EMXPos			; get mouse coordinates
		cmp	TempX			; same as before?
		bne	@NotSame
		lda	>EMYPos
		cmp	TempY
		beq	@Same			; key was same and mouse has not moved
@NotSame
		stx	LastKey			; save the keystroke
		lda	#1
		sta	KeyCount		; count is 1
		lda	>EMXPos			; save the mouse position
		sta	TempX
		lda	>EMYPos
		sta	TempY
		bra	@KeyUp	
@Same
		ldy	KeyCount		; get the count
		iny				; increment it
		cpy	#5			; have we seen five yet?
		bcc	@NotYet
		stz	KeyCount		; clear the count
		cpx	#kcSHIFT		; was it the shift key?
		bne	@NotYet			; no
		
		lda	#sBit
		eor	Flag			; invert SBit
		sta	Flag
		and	#sBit
		beq	@StickyOff		; skip if we just turned it off
		bra	@Show		
@StickyOff
		stz	Flag			; clear the flags
		lda	SBits
		ora	LBits
		tsb	ModsToFree		; to be released later...
		stz	SBits
		stz	LBits

		jsr	SetOffImage		; no bitmap for no icon
		bra	@Done	
@NotYet
		sty	KeyCount
@KeyUp
		lda	Flag
		and	#sBit			; are sticky keys on?
		beq	@Done			; if not, skip
		
		cpx	#kcFirstMod		; is it a modifier key?
		bcc	@RealKey		; no, skip
		cpx	#kcLastMod+1		; is it a modifier?
		bcc	@Modifier		; yes, skip	
@RealKey
		lda	Flag
		and	#mBit			; is a modifier down?
		beq	@continue		; no, so contiue	
@2KeyExit
		lda	Flag			; get which modifier
		and	#mMask
		trb	SBits			; remember which modifier was down
		bra	@StickyOff	
@Continue
		ldy	ADBData			; is it a key up?
		cpy	#$80
		bcc	@Done			; skip if not
		
; It is an up-stroke on a non-modifier key.
; Release all unlocked sticky keys.

		lda	LBits
		eor	SBits			; turn off the ones that are locked
		tsb	ModsToFree		; release any stuck modifier keys

		lda	LBits
		sta	SBits			; if, locked then its also sticky	
@Show
		lda	LBits			; skip if there are locked mods
		bne	@Done
		jsr	SetOnImage
@Done
		lda	ADBData
		rts

@Modifier
		cpx	#kcCAPSLOCK		; caps lock?
		beq	@Done			; yes, so we're done
		txa
		sec
		sbc	#kcFirstMod
		asl	a			; y <-- index to bit mask
		tay
		ldx	NumToBitMask,y		; x <-- NumToBitMask(key)
		ldy	ADBData			; is it a key down?
		cpy	#$80
		bcs	@ModUp			; no, skip
		
		lda	#mBit
		tsb	Flag			; set the modifier down bit

; *** omit for compatibility with ROM 03 version ***
;		bne	@2KeyExit		; if already set before, turn off sticky keys
		
		lda	Flag			; mask out the modifier number
		and	#Å(mMask)
		sta	Flag
		txa
		tsb	Flag			; replace it with the current one
		
		and	LBits			; is it locked?
		bne	@Unlock			; yes, unlock it
		txa
		and	SBits			; is it sticky?
		bne	@lock			; yes, lock it

; it's neither sticky or locked, make it sticky

		txa
		tsb	SBits			; stick

		lda	NewImage
		cmp	#LockImage
		beq	@Done
		
		jsr	SetStickImage
		bra	@Done		
@Unlock
		txa
		trb	LBits			; unlock
		trb	SBits			; unstick
		tsb	ModsToFree		; release it later
		bra	@show		
@Lock
		txa
		tsb	LBits			; lock
		lda	#nullKey
		sta	ADBData			; discard the keystroke		
		jsr	SetLockImage
		bra	@done	
@ModUp
		lda	#mBit
		trb	Flag			; clear "modifier down flag"
		txa
		and	SBits			; if it's locked it's sticky
		beq	@done			; skip if not
		lda	#nullKey
		sta	ADBData			; discard the keystroke
		bra	@done
		

		ENDP

*===============================================*
* _GetNextEvent Patch Routine			*
*						*
*===============================================*

MyGetNextEvent	PROC

		LONGA	ON
		LONGI	ON

		IMPORT	ShowState
		IMPORT	CheckADBMicro
		IMPORT	CheckMKeyParams
						
		phb
		phk				; local addressing
		plb
		
		pha				; save registers
		phx
		phy

;--- should we monitor ?

		pha
		pha
		_GetTick
		pla
		plx
		
		tax
		sec
		sbc	LastTick
		cmp	#30			; 1/2 second
		bcc	skip
		
		stx	LastTick
		
		lda	ADBVersion
		cmp	#adbNewVersion		; is this new micro ?
		bcc	@old
		
		jsr	CheckADBMicro		; monitor ADB micro if new
		bra	skip		
@old
		lda	MouseKeysOn
		beq	skip
		
		jsr	CheckMKeyParams

skip
		lda	NewImage
		cmp	PicImage
		beq	@exit
		
		pea	0
		_MenuStatus			; is Menu manager started?
		pla
		beq	@exit			; no so skip

		jsr	ShowState		; undraw current image
		lda	NewImage
		sta	PicImage
		lda	NewImage+2
		sta	PicImage+2
		jsr	ShowState		; draw new image
@exit
		ply				; restore registers
		plx
		pla
		plb
		jmp	GetNextEventVec		; go to REAL GetNextEvent
		
		ENDP
		
*===============================================*
* _*BootInit Patch Routine			*
*						*
*===============================================*

MyBootInit	PROC

		LONGA	ON
		LONGI	ON

		rtl				; just return
		
		ENDP

*===============================================*
* _DrawMenuBar Patch Routine			*
*						*
*===============================================*

MyDrawMenuBar	PROC

		LONGA	ON
		LONGI	ON

		IMPORT	ShowState
				
		jsl	DrawMenuBarVec		; go visit DrawMenuBar()

		pha				; save A-reg

		jsr	ShowState		; draw new image

		pla				; restore A-reg
		cmp	#1			; adjust carry based on a-reg
		rtl
		
		ENDP
		
*===============================================*
*						*
* In:	none					*
* Out:	none					*
*===============================================*
		
ShowState	PROC

		LONGA	ON
		LONGI	ON

		lda	>PicImage		; an image to draw?
		ora	>PicImage+2
		beq	@skip
		
		pha
		pha
		_GetPort
		pha
		pha
		_GetMenuMgrPort
		_SetPort
		
		lda	#picX			; 640 mode values
		sta	>PicPt+2
		lda	#picDH
		sta	>PicRect+6

		pha		
		_GetMasterSCB			; 640 or 320 mode?
		pla
		and	#$00FF
		sta	>PicLocInfo
		and	#$0080			; is it 640 ?
		bne	@pp			; yes

		lda	#picX/2			; 320 mode values
		sta	>PicPt+2
		lda	#picDH/2
		sta	>PicRect+6
@pp		
		pea	PicLocInfo>>16
		pea	PicLocInfo
		pea	PicRect>>16
		pea	PicRect
		lda	>PicPt+2
		pha
		lda	>PicPt
		pha
		pea	2			; 2 = modeXOR
		_PPToPort
		
		_SetPort		
@skip
		rts
		
		
		ENDP
		

*===============================================*
*						*
* Input:	*** Stack ***			*
*		result - LONG			*
*		trapNum - WORD			*
*		newFuncPtr - LONG		*
*		rtlAddr - 3 BYTES		*
*	sp --->					*
*						*
* Output:	*** Stack ***			*
*		result - LONG			*
*		rtlAddr - 3 BYTES		*
*	sp --->					*
*===============================================*

NewTSFuncPtr	PROC

		IMPORT	MyBootInit


firstLocal	set	1			; local variables
tsNum		set	firstLocal	
tsFunc		set	tsNum+2
tsPtr		set	tsFunc+2
fptPtr		set	tsPtr+4	
tblSize		set	fptPtr+4
handle		set	tblSize+4
lastLocal	set	handle+4

rtlAddr		set	lastLocal		; input parameters (reverse order)
lastParam	set	rtlAddr+3
newFuncPtr	set	lastParam
trapNum		set	newFuncPtr+4	
firstParam	set	trapNum+2

oldFuncPtr	set	firstParam		; result

localSize	set	lastLocal-firstLocal
paramSize	set	firstParam-lastParam
		
		tsc				; make a stack frame
		sec
		sbc	#localSize
		tcs
		phd				; save current dp
		tcd
; begin		
		lda	<trapNum
		and	#$00FF
		sta	<tsNum
		lda	<trapNum
		xba
		and	#$00FF
		sta	<tsFunc
		
		pea	0			; space for result
		lda	<tsNum
		ora	#$0600			; _xxxxStatus Function
		tax
		jsl	>$E10000		; is the tool even loaded?
		pla
		bne	@ok
		
		pei	<tsNum			; tool number
		pea	0			; min version
		_LoadOneTool			; load it
		bcc	@ok
@bad
		brk	$db
		brl	end			; give up
@ok
		pha				; space for pointer (long)
		pha
		pea	0			; 0 = system tool set
		pei	<tsNum			; tool set number
		_GetTSPtr
		pla
		plx
		sta	<tsPtr
		stx	<tsPtr+2
		lda	[<tsPtr]		; is the tool there?
		beq	@bad

		pha				; space for result (long)
		pha
		pea	0			; 0 = system tool set
		pei	<trapNum
		_GetFuncPtr
		pla
		plx
		sta	<oldFuncPtr
		stx	<oldFuncPtr+2
		
		lda	[<tsPtr]		; calculate the size of the table
		asl	a
		asl	a			; size is count * 4
		sta	<tblSize
		stz	<tblSize+2

		pha				; space for handle (long)
		pha		
		pei	<tblSize+2		; size
		pei	<tblSize
		lda	UserID
		pha				; user id
		pea	%0100000000011000	; fixed, no bank cross, no special
		pea	0			; address (long), not used
		pea	0
		_NewHandle
		pla
		plx
		sta	<handle
		stx	<handle+2
		
		ldy	#2
		lda	[<handle],y
		tax
		lda	[<handle]
		sta	<fptPtr
		stx	<fptPtr+2
		
		lda	#0			; zero out new table
		ldy	<tblSize
		dey
		dey
@loop
		sta	[<fptPtr],y
		dey
		dey
		bpl	@loop
		
		lda	<tblSize
		lsr	a
		lsr	a
		sta	[<fptPtr]		; set function table count

		lda	<tsFunc
		asl	a
		asl	a
		tay
		lda	<newFuncPtr
		sta	[<fptPtr],y		; set new function pointer
		iny
		iny
		lda	<newFuncPtr+2
		sta	[<fptPtr],y

; always patch bootinit:

		ldy	#4
		lda	#MyBootInit-1
		sta	[<fptPtr],y		; set new BootInit function pointer
		iny
		iny
		lda	#MyBootInit>>16
		sta	[<fptPtr],y

		pea	0			; 0 = system tool set
		pei	<tsNum			; tool set number
		pei	<fptPtr+2		; pointer to new function pointer table
		pei	<fptPtr
		_SetTSPtr

end		
		lda	<rtlAddr		; clean up stack
		sta	<rtlAddr+paramSize
		lda	<rtlAddr+1
		sta	<rtlAddr+paramSize+1

		pld				; restore dp

		tsc
		clc
		adc	#paramSize+localsize
		tcs
		
		rtl
		
		ENDP
		
*===============================================*
*						*
* In:	none					*
* Out:	none					*
*===============================================*

CheckMKeyParams	PROC

		LONGA	ON
		LONGI	ON


		pha
		pea	bpMKeysDelay
		_ReadBParam
		pla
		cmp	#$FF			; uninitialized?
		bne	@ok1
		lda	#2			; yes so use default			
@ok1
		and	#$07
		asl	a
		tay
		lda	MKDelayData,y
		sta	MKDelayTicks

		pha
		pea	bpMKeysAccel
		_ReadBParam
		pla
		cmp	#$FF			; uninitialized?
		bne	@ok2
		lda	#2			; yes so use default			
@ok2
		and	#$07
		asl	a
		tay
		lda	MKAccelData,y
		sta	MKAccelTicks

		pha
		pea	bpMKeysSpeed
		_ReadBParam
		pla
		cmp	#$FF			; uninitialized?
		bne	@ok3
		lda	#6			; yes so use default			
@ok3
		and	#$0F
		asl	a
		tay
		lda	MKSpeedData,y
		sta	SubPixMax

;--- calculate acceleration sub pixels:

		lda	MKAccelTicks		; is there an acceleration period?
		beq	done			; no
		
		pha				; space for remainder
		pha				; space for quotient
		lda	SubPixMax
		pha
		lda	MKAccelTicks
		lsr	a			; MKAccelTicks/8
		lsr	a
		lsr	a
		pha
		_UDivide			; (SubPixMax/(MKAccelTicks/8)
		pla
		bne	@ok
		lda	#1			; must be at least 1
@ok
		plx
		sta	SubPixAccel
done
		rts

		ENDP
		
*===============================================*
*						*
* In:	none					*
* Out:	none					*
*===============================================*

CheckADBMicro	PROC

		LONGA	ON
		LONGI	ON
		
		IMPORT	SetOnImage
		IMPORT	SetOffImage
		IMPORT	SetStickImage
		IMPORT	SetLockImage


; first check for change in sticky keys on/off state:

		lda	#mcMicroStatus
		jsr	ReadMicroByte
		and	#mcStickyKeysOn
		cmp	LastState
		beq	stickCheck		; no change, check stick/lock bits
		sta	LastState
		tax
		beq	off
on						; sticky keys was turned on
		jsr	SetOnImage
		bra	exit
off						; sticky keys was turned off
		jsr	SetOffImage
		bra	exit			; all done

; now check for stuck mod keys:

stickCheck
		lda	LastState
		beq	exit			; all done

		lda	#mcStickyBits
		jsr	ReadMicroByte
		cmp	LastBits
		beq	exit			; no change
		sta	LastBits
		and	#mcStuckMask
		tax
		beq	@here
		lda	#1
@here
		cmp	LastStuckState
		beq	lockCheck		; no change
		sta	LastStuckState
		txa
		beq	stuckOff
stuckOn						; a mod key was stuck
		jsr	SetStickImage
		bra	lockCheck
stuckOff					; a mod key was un-stuck
		jsr	SetOnImage

; now check for locked mod keys:

lockCheck
		lda	LastBits
		and	#mcLockMask
		tax
		beq	@here
		lda	#1
@here
		cmp	LastLockState
		beq	exit			; no change
		sta	LastLockState
		txa
		beq	lockOff
lockOn						; a mod key was locked
		jsr	SetLockImage
		bra	exit
lockOff						; a mod key was unlocked
		jsr	SetOnImage

exit
		rts


;-----------------------------------------------

ReadMicroByte
		sta	Temp+2			; address of byte to read
		
		pea	Temp>>16		; location of result
		pea	Temp
		pea	Temp>>16		; ptr to address of byte to read
		pea	Temp+2
		pea	readMicroMem		; command
		_ReadKeyMicroMemory
		lda	Temp
		and	#$00FF
		rts
		
		ENDP
		
*===============================================*
*						*
* In:	none					*
* Out:	none					*
*===============================================*

SetOnImage	PROC

		lda	#OnImage
		sta	>NewImage
		lda	#OnImage>>16
		sta	>NewImage+2
		rts
	
		ENDP

*===============================================*
*						*
* In:	none					*
* Out:	none					*
*===============================================*

SetOffImage	PROC

		lda	#0
		sta	>NewImage
		sta	>NewImage+2
		rts
	
		ENDP

*===============================================*
*						*
* In:	none					*
* Out:	none					*
*===============================================*

SetStickImage	PROC

		lda	#StickImage
		sta	>NewImage
		lda	#StickImage>>16
		sta	>NewImage+2
		rts
	
		ENDP

*===============================================*
*						*
* In:	none					*
* Out:	none					*
*===============================================*

SetLockImage	PROC

		lda	#LockImage
		sta	>NewImage
		lda	#LockImage>>16
		sta	>NewImage+2
		rts
	
		ENDP
		
*===============================================*
* MouseKeys:	control mouse from keypad	*
*						*
* IN:	a-reg = ADB key code			*
*						*
* OUT:	a-reg = ADB key code			*
*===============================================*

MouseKeys	PROC

		LONGA	ON
		LONGI	ON

		IMPORT	MouseVBLTask
		IMPORT	GetKeyModBits
		IMPORT	KeypadFilter
		
		ldy	ADBVersion
; 12/5/90 Mensch
; same change as above goes here!
; another Don ooops
		cpy	#adbVerROM03		; only need MouseKeys for ROM 01
		bge	skip

		ldy	MouseKeysOn		; is mousekeys active
		bne	active			; yes

		cmp	#kcPAD_CLEAR		; is it the clear key down?
		bne	skip			; no
		
		jsr	GetKeyModBits
		and	#kmMask
		cmp	#kmShift+kmApple	; are Apple & Shift down?
		beq	turnOn			; yes
		lda	#kcPAD_CLEAR		; no, so skip
		bra	skip

;--- turn on mouse keys:
turnOn
		lda	#1
		sta	MouseKeysOn

		stz	MKLastTick
		stz	MKLastTick+2
		stz	MKMultOn
		stz	ButtonState		; turn off button
		lda	#1
		sta	PixelsPerPress		; set default pixel increment

		pea	MouseVBLTask>>16
		pea	MouseVBLTask
		_SetHeartBeat			; install our vbl task
		bra	null
active
		cmp	#kcPAD_CLEAR		; is the clear key down?
		beq	turnOff			; yes

		jsr	KeypadFilter		; handle keypad keys
		bra	skip

;--- turn off mouse keys:
turnOff
		pea	MouseVBLTask>>16
		pea	MouseVBLTask
		_DelHeartBeat			; remove our vbl task
		stz	MouseKeysOn
null
		lda	#nullKey		; eat the key
skip
		rts
		
		ENDP
		
*===============================================*
*						*
* IN:	A = ADB key code			*
*						*
* OUT:	A = ADB key code			*
*						*
*===============================================*

KeypadFilter	PROC

		LONGA	ON
		LONGI	ON

		IMPORT	UpdateMouse
		IMPORT	BumpMouse

		sta	Temp

		tay
		and	#kcMask
		tax				; x <-- keycode minus key up bit
		tya
		and	#kcKeyUp
		tay				; y = 0 if down key, ­ 0 if up key

		cpx	#kcPAD_PERIOD		; is it '.'?
		beq	period
		bcc	skip
		cpx	#kcPAD_9+1		; is it ² 9?
		bcs	skip
		cpx	#kcPAD_0		; is it ³ 0?
		bcs	number
		cpx	#kcPAD_MULTIPLY		; is it '*'?
		beq	mult
skip
		lda	Temp
		brl	exit

;--- process keypad '*' key:

mult
		tya				; was it key down (y=0)?
		bne	eatKey			; no
		lda	MKMultOn		; is this the second '*'?
		bne	multOff			; yes, so reset pixel increment
		inc	a
		sta	MKMultOn		; just set the flag
		bra	eatKey
multOff		
		stz	MKMultOn
		lda	#1
		sta	PixelsPerPress
		bra	eatKey

;--- process keypad button keys (0, 5, '.'):

period
		tya				; was it key down (y=0)?
		bne	eatKey			; no
		bra	mbUp
zero
		tya				; was it key down (y=0)?
		bne	eatKey			; no
		bra	mbDown
button
		tyx				; was it a key down (y=0)?
		bne	mbUp			; no
mbDown
		lda	#mbNewButton0		; set button 0
		tsb	ButtonState
		bra	send
mbUp		
		lda	#mbNewButton0		; clear button 0
		trb	ButtonState
send
		lda	>EMXPos			; get global mouse position
		tax
		lda	>EMYPos
		tay
		lda	#newButton		; button state has changed
		jsr	UpdateMouse
eatKey
		brl	null

;--- process keypad keys (1-9):

number
		lda	MKMultOn		; are we looking for a pixel multiplier?
		beq	number2			; no

		tya				; is it a key down?
		bne	eatKey			; no, so eat key up
		txa
		cmp	#kcPAD_8		; adjust for non-sequential keycodes
		bcc	@sub
		dec	a
@sub
		sec
		sbc	#kcPAD_0		; convert to an integer
		bne	@set
		lda	#10			; 0 maps to 10
@set
		sta	PixelsPerPress		; our new pixel increment
		stz	MKMultOn
		bra	null
number2		
		cpx	#kcPAD_0		; is it keypad 0 (lock button)?
		beq	zero

		cpx	#kcPAD_5		; is it keypad 5 (mouse button)?
		beq	button			; yes

		stz	MouseDirection		; clear direction bits

		tya				; is it a key down?
		bne	null			; no, so eat key up

		cpx	#kcPAD_4		; keypad 4
		bcc	vPlus			; must be 1-3
		beq	hMinus
		
		cpx	#kcPAD_6		; keypad 6
		beq	hPlus
vMinus						; 7, 8, & 9
		lda	#mdVMinus
		tsb	MouseDirection
		cpx	#kcPAD_8		; keypad 8
		beq	movement
		bcs	hPlus
hMinus						; 1, 4, & 7
		lda	#mdHMinus
		tsb	MouseDirection
		bra	movement		
vPlus						; 1, 2, & 3
		lda	#mdVPlus
		tsb	MouseDirection
		cpx	#kcPAD_2		; keypad 2
		bcc	hMinus
		beq	movement
hPlus						; 3,6, & 9
		lda	#mdHPlus
		tsb	MouseDirection
movement
		lda	>TickCnt
		sta	MKLastTick		; start timing delay

		stz	MKDelayPassed
		stz	MKAccelPassed
		stz	SubPixTotal
		stz	SubPixDelta

		lda	PixelsPerPress		; pixels count
		jsr	BumpMouse
null
		lda	#nullKey
exit
		rts

		ENDP

*===============================================*
* 	Update system mouse status		*
*						*
* IN:	X = mouse x position (unclamped)	*
* 	Y = mouse y position (unclamped)	*
*	A = change flag				*
*	uses ButtonState			*
*						*
* OUT:	none					*
*						*
*===============================================*

UpdateMouse	PROC

		LONGA	ON
		LONGI	ON
		
		IMPORT	GetKeyModBits

		pha				; put changed flag on stack
		jsr	ClampXY	
		jsr	GetKeyModBits
*** added 6-Jun-91 DAL
		xba
*** end of 6-Jun-91 DAL
		pha				; mod keys (bits 0-7)
		phx				; clamped x position
		phy				; clamped y position
		lda	ButtonState
		pha				; button status (bits 8-15)
		_FakeMouse

		lda	ButtonState		; update button state
		and	#mbNewButton0
		beq	@clr
@set
		lda	#mbOldButton0		
		tsb	ButtonState
		bra	exit
@clr
		lda	#mbOldButton0		
		trb	ButtonState
exit
		rts

;------------------------------------------------
; In:	x, y reg
;
; Out:	x, y reg
;------------------------------------------------
ClampXY

clamp		set	1			; direct page offsets (local variables)
xVal		set	clamp+4
yVal		set	xVal+2

		phd				; save direct page

		phy				; copy x & y to stack frame
		phx
		
		lda	ClampAddr+2		; copy clamp addr to stack frame
		pha
		lda	ClampAddr
		pha

		tsc				; make a stack frame
		tcd
		
		ldx	#0
		jsr	ClampIt			; clamp X
		ldx	#2
		jsr	ClampIt			; clamp Y
		
		pla				; remove clamp addr
		pla
		plx				; get results
		ply
		pld				; restore direct page
		rts

;------------------------------------------------
ClampIt		
		txy
		lda	[<clamp],y		; is Val ³ clampLow ?
		sec
		sbc	<xVal,x
		beq	done
		bvs	invert1
		bmi	checkHigh
clampLow					; no, so clamp it
		lda	[<clamp],y
		sta	<xval,x
		bra	done
invert1
		bmi	clampLow
checkHigh
		iny
		iny
		iny
		iny
		lda	[<clamp],y		; is Val ² clampHigh ?
		sec
		sbc	<xVal,x
		beq	done
		bvs	invert2
		bpl	done
clampHigh					; no, so clamp it
		lda	[<clamp],y
		sta	<xval,x
		bra	done
invert2
		bpl	clampHigh
done
		rts


		ENDP

*===============================================*
*						*
* IN:	none					*
*						*
* OUT:	A has KEYMODREG in low byte		*
*	X & Y preserved				*
*===============================================*

GetKeyModBits	PROC

		LONGA	ON
		LONGI	ON

		sep	#$20
		lda	>KEYMODREG
		rep	#$20
		
		and	#$00FF
		rts
		
		ENDP

*===============================================*
*						*
* In:	a-reg has number of pixels to bump	*
* Out:	none					*
*===============================================*

BumpMouse	PROC

		LONGA	ON
		LONGI	ON


		IMPORT	UpdateMouse
		
		sta	Temp

		lda	>EMYPos
		tay
		lda	>EMXPos
		tax
vPlus
		lda	MouseDirection
		and	#mdVPlus
		beq	vMinus
		tya
		clc
		adc	Temp
		tay				; y :=  y + delta
		bra	hplus
vMinus
		lda	MouseDirection
		and	#mdVMinus
		beq	hPlus
		tya
		sec
		sbc	Temp
		tay				; y :=  y - delta
hPlus
		lda	MouseDirection
		and	#mdHPlus
		beq	hMinus
		txa
		clc
		adc	Temp
		tax				; x :=  x + delta
		bra	movement
hMinus
		lda	MouseDirection
		and	#mdHMinus
		beq	movement
		txa
		sec
		sbc	Temp
		tax				; x :=  x - delta
movement		
		lda	#newPosition
		jsr	UpdateMouse
done
		rts

		ENDP
		
*===============================================*
*						*
* In:	none					*
* Out:	none					*
*===============================================*

CheckMouse	PROC

		LONGA	ON
		LONGI	ON
		
		IMPORT	BumpMouse

		lda	MouseDirection		; any movement keys down?
		beq	exit			; no

;--- check delay-to-start time:

		lda	MKDelayPassed		; has the delay period passed?
		bne	accelerate		; yes

		lda	>TickCnt		; check timer
		sec
		sbc	MKLastTick
		cmp	MKDelayTicks		; has min delay elasped?
		bcc	exit			; no, so skip

		inc	MKDelayPassed		; yes, so ok to move mouse		

		lda	>TickCnt
		sta	MKLastTick		; start timing acceleration
		bra	exit

;--- check acceleration time:

accelerate
		lda	MKAccelPassed		; has the accelaration period passed?
		bne	speed			; yes	
		lda	MKAccelTicks		; is acceleration = 0
		beq	passed			; yes

		lda	>TickCnt		; check timer
		sec
		sbc	MKLastTick
		cmp	MKAccelTicks		; has acceleration period elasped?
		bcs	passed			; yes

		lda	>TickCnt		; check timer
		and	#$0007			; every 8 ticks increase speed
		bne	speed
		
		lda	SubPixDelta
		clc
		adc	SubPixAccel
		cmp	SubPixMax
		bcs	passed
		sta	SubPixDelta
		
		bcc	speed			; no, so skip
passed
		inc	MKAccelPassed		; yes, so set max speed
		
		lda	SubPixMax
		sta	SubPixDelta

;--- check speed (pixels):

speed
		lda	SubPixTotal
		clc
		adc	SubPixDelta
		sta	SubPixTotal
		cmp	#256			; is SubPixTotal ³ 1 pixel
		bcc	exit			; no, too small

		tax				; save a copy
		and	#$00FF
		sta	SubPixTotal		; keep remainder

		txa
		and	#$FF00
		xba				; convert to pixels
bump		
		jsr	BumpMouse
exit

		rts

		ENDP

*===============================================*
* VBL task to monitor MouseKeys mouse movement.	*
*						*
* IN:	none					*
* OUT:	none					*
*===============================================*

MouseVBLTask	PROC

		LONGA	OFF
		LONGI	OFF
		
		IMPORT	CheckMouse

taskTicks	set	1			; 60 ticks = 1 second

*-----------------------------------------------
TaskHeader
		dc.L	0			; task pointer
TaskCount	dc.W	taskTicks		; tick count
		dc.W	$A55A			; signature
*-----------------------------------------------

		phk
		plb

		lda	MouseKeysOn		; is mousekeys active
		beq	exit			; no


		rep	#$30
		LONGA	ON
		LONGI	ON
		
		jsr	CheckMouse

		sep	#$30
		LONGA	OFF
		LONGI	OFF

exit
		lda	#taskTicks
		sta	TaskCount		; reset our task counter
		rtl
		
		ENDP

*=======================================================================*
* VBL task to monitor KMSTATUS.
*
* The purpose of this task is to fix a bug in the key micro/system.
*
* When the ADB mouse is moved, the ADB glue sets the "mouse register full"
* flag (bit 7) of KMSTATUS ($C027).  This normally causes an interrupt,
* which when processed, will read MOUSEDATA ($C024) and cause the "mouse
* register full" flag to be reset (cleared).
*
* When mouse interrupts are disabled (bit 6 of KMSTATUS clear) the
* "mouse register full" flag is ignored, MOUSEDATA in never read, and
* therefore the "mouse register full" flag remains on.  The ADB micro won't
* update KMSTATUS unless the old status changes, so when bit 7 is set, SRQ
* interrupts can't happen (until someone reads MOUSEDATA).
*
* Since our ADB completion routine depends on SRQ interrupts, the system
* will "hang" if the mouse is moved while mouse interrupts are disabled.
* This task will read MOUSEDATA if the mouse register is full but mouse
* interrupts are disabled to prevent the system from "hanging".
*=======================================================================*

KMSTATUSTask	PROC

		LONGA	OFF
		LONGI	OFF

taskTicks	set	30			; 30 ticks = about 1/2 second

*-----------------------------------------------
TaskHeader
		dc.L	0			; task pointer
TaskCount	dc.W	taskTicks		; tick count
		dc.W	$A55A			; signature
*-----------------------------------------------

		sta	>$FFDBAB		; debug trigger

		lda	>KMSTATUS		; test if mouse data available
		bpl	exit			; no, so skip
		
		and	#$7F			; is mouse interrupt enabled (bit 6)?
		cmp	#$40
		bcs	exit			; yes, so skip

; read 	MOUSEDATA to reset KMSTATUS:	

		ror	a			; set 'c'=0, if data ok bit1=0
		ror	a			; i.e. data not contaminated
		lda	>MOUSEDATA		; read in mouse data register
		tax
		bcs	exit			; c=1 if data is contaminated
		lda	>KMSTATUS		; verify Y hardware has X data ready
		and	#$02			; bit1=1, Y pos data available
		beq	exit
		lda	>MOUSEDATA		; read in Y position data
		tay

exit
		lda	#taskTicks
		sta	>TaskCount		; reset our task counter
		rtl
		
		ENDP

*-----------------------------------------------


		END
		
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/EasyAccess/EasyAccess.equ b/IIGS.601.SRC/A.U.G/EasyAccess/EasyAccess.equ
new file mode 100644
index 0000000..5c6428d
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/EasyAccess/EasyAccess.equ
@@ -0,0 +1 @@
+*===============================================*
*						*
* File:		EasyAccess.equ			*
* Project:	Easy Access for the IIGS	*
* Author:	Don J. Brady			*
* Build file:	EasyAccess.Make			*
*						*
* Copyright © Apple Computer, Inc. 1990		*
* All rights reserved.				*
*-----------------------------------------------*
* Modification History:				*
* 02/09/90 DJB	- File created today		*
*						*
*===============================================*

		STRING	ASIS
		
;--- key codes for ADB keyboard:

kcRESET		equ	$7F7F			; reset is special case

kcCONTROL	equ	$36
kcAPPLE		equ	$37
kcSHIFT		equ	$38
kcCAPSLOCK	equ	$39
kcOPTION	equ	$3A

kcPAD_PERIOD	equ	$41
kcPAD_MULTIPLY	equ	$43
kcPAD_PLUS	equ	$45
kcPAD_CLEAR	equ	$47
kcPAD_DIVIDE	equ	$4B
kcPAD_ENTER	equ	$4C
kcPAD_MINUS	equ	$4E
kcPAD_EQUAL	equ	$51
kcPAD_0		equ	$52
kcPAD_1		equ	$53
kcPAD_2		equ	$54
kcPAD_3		equ	$55
kcPAD_4		equ	$56
kcPAD_5		equ	$57
kcPAD_6		equ	$58
kcPAD_7		equ	$59
kcPAD_8		equ	$5B
kcPAD_9		equ	$5C

kcMask		equ	$7F7F
kcKeyUp		equ	$0080			; bit 7 set if key up
kcFirstMod	equ	kcCONTROL
kcLastMod	equ	kcOPTION

nullKey		equ	$FF


;--- mod key bits for KEYMODREG:

kmApple		equ	%10000000
kmOption	equ	%01000000
kmKeypad	equ	%00010000
kmRepeat	equ	%00001000
kmCapsLock	equ	%00000100
kmControl	equ	%00000010
kmShift		equ	%00000001
kmMask		equ	kmApple+kmOption+kmControl+kmShift

;--- IIGS system globals:

EMXPos		equ	$E100E9			; global X position
EMYPos		equ	$E100EB			; global Y position
EMBStat		equ	$E100E7			; global mouse button status
TickCnt		equ	$E100DC			; global tick count

;--- IIGS hardware registers:

KBD		equ	$E1C000
KBDSTRB		equ	$E1C010
MOUSEDATA	equ	$E1C024
KEYMODREG	equ	$E1C025
DATAREG		equ	$E1C026
KMSTATUS	equ	$E1C027
SPEAKER		equ	$E1C030			; hardware speaker
CYAREG		equ	$E1C036

;--- ADB version numbers:

adbVerROM01	equ	$05
adbVerROM03	equ	$06
adbNewVersion	equ	$06			; 10-speed (ROM 03) version

;--- ADB micro controler RAM equates:
; (NOTE:  these are valid for ADB version $06 only!)

mcMicroStatus	equ	$12
mcStickyBits	equ	$11

mcStickyKeysOn	equ	%00010000		; microStatus bits
mcMouseKeysOn	equ	%00001000

mcLockedApple	equ	%10000000		; sticky bits
mcLockedOption	equ	%01000000
mcLockedControl	equ	%00100000
mcLockedShift	equ	%00010000
mcStuckApple	equ	%00001000
mcStuckOption	equ	%00000100
mcStuckControl	equ	%00000010
mcStuckShift	equ	%00000001

mcStuckMask	equ	%00001111
mcLockMask	equ	%11110000


;--- MouseKeys constants:
	
mbNewButton0	equ	$8000
mbOldButton0	equ	$4000
mbNewButton1	equ	$1000
mbOldButton1	equ	$0100

newButton	equ	%00000100		
newPosition	equ	%00000010		

mdVPlus		equ	%000000001		; used by MouseDirection
mdVMinus	equ	%000000010
mdHPlus		equ	%000000100
mdHMinus	equ	%000001000

;--- BRAM parameter offsets:

bpMKeysDelay	equ	$55
bpMKeysAccel	equ	$56
bpMKeysSpeed	equ	$57


;--- toolbox routine numbers:

EMStatus	equ	$0606
GetNextEvent	equ	$0A06
DrawMenuBar	equ	$2A0F

mouseClamps	equ	$000C			; GetAddr Param Ref No -  

Point		RECORD	0			; QuickDrawII point record
;-----------------------------------------------
v		ds.W	1
h		ds.W	1 
;-----------------------------------------------
		ENDR 

BRAMSetupVec	equ	$25			; for patching $E10094 vector
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/EasyAccess/EasyAccess.make b/IIGS.601.SRC/A.U.G/EasyAccess/EasyAccess.make
new file mode 100644
index 0000000..b96de42
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/EasyAccess/EasyAccess.make
@@ -0,0 +1 @@
+#===============================================#
#	File:		EasyAccess.make					#
#   Project:    Easy Access	for IIGS			#
#   Author:		Don J. Brady					#
#												#
#	Copyright © Apple Computer, Inc. 1989,1991	#
#	All rights reserved.						#
#												#
#===============================================#

PROJECT		=	EasyAccess
CODE		=	EasyAccess.obj

AOPTIONS	=
LOPTIONS	=	-t $B6


{PROJECT}	ÄÄ	{PROJECT}.make {CODE}
			LinkIIGS {LOPTIONS} {CODE} -o {PROJECT}


#	generic rule to build object files from source files.	

.obj	Ä	.aii 
			AsmIIGS {AOPTIONS} -o {Default}.obj {Default}.aii
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/EasyAccess/ReleaseNotes b/IIGS.601.SRC/A.U.G/EasyAccess/ReleaseNotes
new file mode 100644
index 0000000..34e03dd
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/EasyAccess/ReleaseNotes
@@ -0,0 +1 @@
+EasyAccess GS 1.0

Release 1.0d5

	¥ Fixed a ROM01 compatibility. It didn't used to recognize early ROM01 machines


--------------------------------------------------------------
This is the final candidate.

Release 1.0d4
--------------------------------------------------------------

Bug Fixes:
  ¥ BRC #74897: Sticky keys will no longer turn off with two modifiers.
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Finder/About.aii b/IIGS.601.SRC/A.U.G/Finder/About.aii
new file mode 100644
index 0000000..9b5ba70
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Finder/About.aii
@@ -0,0 +1 @@
+
		seg 'ABOUT'

; about.aii
;
; Copyright 1991-93 by Apple Computer, Inc.
; All Rights Reserved
;.....................................................................


		LONGA	ON
		LONGI	ON
		STRING	PASCAL
		
		PRINT	OFF		
		PRINT	NOGEN
		PRINT	NOSYM

		INCLUDE	'ALL.MACROS'
		INCLUDE	'E16.CONTROL'
		INCLUDE	'E16.WINDOW'
		INCLUDE	'PASCAL.macros'
		INCLUDE	'special.macros'
		
		PRINT	ON

AboutWindow	PROC	EXPORT

		IMPORT	lastAboutTime
		IMPORT	aboutWindowPtr
		IMPORT	aboutBlk
		IMPORT	ArrowCursor
		IMPORT	CloseThisWindow		;in Util.aii - 27-Jan-93 JCM

handlePtr	equ	1


		phb
		phk
		plb

		_WaitCursor
		
		phd
		pha
		pha
		tsc
		tcd

		pha
		pha
		_TickCount
		pla
		sta	>lastAboutTime
		pla

		pha
		pha
		pushlong #0			;titlePtr
		pushlong #aboutBlk		;refCon is ptr to our window info block
		pushlong #aboutDraw+$80000000	;content draw proc (background)
		pushlong #0			;window defproc
		pea	2			;refIsResource
		pushlong #1			;window resource we want
		pea	$800e			;rWindParam1
		_NewWindow2
		pulllong >aboutWindowPtr
		bcc	@ok
	
;
; close the window only if something bad happened and we actually have a window pointer
; because something could have happened when we went to add controls (but didn't
; get created because we couldn't find the disk or the resource)
;
		lda	>aboutWindowPtr
		ora	>aboutWindowPtr+2
		beq	@leave

		lda	>aboutWindowPtr+2
		tax
		lda	>aboutWindowPtr
		jsl	CloseThisWindow
		
		lda	#0
		sta	>aboutWindowPtr
		sta	>aboutWindowPtr+2

@leave		jsl	ArrowCursor
		
		pla
		pla
		pld
		plb
		rtl

;
; we were able to create the window (and get all the controls attached to it)
;		
@ok		pha
		pha
		_TotalMem
		pulllong totalMem
		
		ldx	#9		;divide by 1024
tLoop		lsr	totalMem+2
		ror	totalMem		
		dex
		bpl	tLoop
		
		lda	totalMem
		pha
		pushlong #$80000000+totalMemStr+1
		pea	5		;5 chars available
		pea	0		;unsigned
		_Int2Dec
		
		pha
		pha
		_RealFreeMem
		pulllong realFreeMem
		
		ldx	#9		;divide by 1024
rLoop		lsr	realFreeMem+2
		ror	realFreeMem
		dex
		bpl	rLoop
		
		lda	realFreeMem
		pha
		pushlong #$80000000+realFreeMemStr+1
		pea	5		;5 chars available
		pea	0		;unsigned
		_Int2Dec
	
		jsl	calcMemoryUsed	;go calculate the amount of memory people are
					;using.

		ldx	#9		;divide everyone by 1024
fLoop		lsr	finderMem+2
		ror	finderMem
				
		lsr	systemMem+2
		ror	systemMem

		lsr	daMem+2
		ror	daMem
		
		lsr	setupMem+2
		ror	setupMem
		dex
		bpl	fLoop

		lda	realFreeMem
		sta	realFreeMemBefore
		lda	finderMem
		sta	finderMemBefore
		lda	systemMem
		sta	systemMemBefore
		lda	daMem
		sta	daMemBefore
		lda	setupMem
		sta	setupMemBefore
		
		lda	finderMem
		pha
		pushlong #$80000000+finderMemStr+1
		pea	5		;5 chars available
		pea	0		;unsigned
		_Int2Dec
	
		lda	systemMem
		pha
		pushlong #$80000000+systemMemStr+1
		pea	5		;5 chars available
		pea	0		;unsigned
		_Int2Dec

		lda	daMem
		pha
		pushlong #$80000000+daMemStr+1
		pea	5		;5 chars available
		pea	0		;unsigned
		_Int2Dec

		lda	setupMem
		pha
		pushlong #$80000000+setupMemStr+1
		pea	5		;5 chars available
		pea	0		;unsigned
		_Int2Dec

		pha
		pha
		pea	$8029		;rVersion
		pushlong #1		;ID=1
		_LoadResource
		pulllong finderVersionHandle
		
		pea	$8029		;detach it so we can manage it
		pushlong #1
		_DetachResource
		
		lda	finderVersionHandle
		sta	handlePtr
		lda	finderVersionHandle+2
		sta	handlePtr+2		
		
		lda	[handlePtr]	;deref it
		tax
		ldy	#2
		lda	[handlePtr],y
		stx	handlePtr
		stx	finderVersionPtr
		sta	handlePtr+2
		sta	finderVersionPtr+2
		
		pea	0
		ldy	#2
		lda	[handlePtr],y
		pha
		lda	[handlePtr]
		pha
		pushlong #finderVersion
		_VersionString
		
		pha			;get the current resource file (Finder)
		_GetCurResourceFile
		
		pea	1		;use the stuff from sys.resources
		_SetCurResourceFile
		
		pha
		pha
		pea	$8029		;rVersion
		pushlong #1		;ID=1
		_LoadResource
		pulllong systemVersionHandle
		
		pea	$8029		;detach it so we can manage it
		pushlong #1
		_DetachResource
		
		lda	systemVersionHandle
		sta	handlePtr
		lda	systemVersionHandle+2
		sta	handlePtr+2		
		
		ldy	#4		;lock the handle down!
		lda	[handlePtr],y
		ora	#$8000
		sta	[handlePtr],y
		
		lda	[handlePtr]	;deref it
		tax
		ldy	#2
		lda	[handlePtr],y
		stx	handlePtr
		stx	systemVersionPtr
		sta	handlePtr+2
		sta	systemVersionPtr+2
		
		pea	0		;flags
		ldy	#2
		lda	[handlePtr],y	;the actual version string
		pha
		lda	[handlePtr]
		pha
		pushlong #systemVersion	;where to put it
		_VersionString
		
		_SetCurResourceFile	;reset the current resource file to the Finder

		jsl	ArrowCursor
		
		pla
		pla
		pld
		plb
		rtl

totalMem	dc.L	0
realFreeMem	dc.L	0
finderMem	dc.L	0
systemMem	dc.L	0
daMem		dc.L	0
setupMem	dc.L	0

		EXPORT	realFreeMemBefore
realFreeMemBefore dc.w	0
		EXPORT	finderMemBefore
finderMemBefore	dc.w	0
		EXPORT	systemMemBefore
systemMemBefore	dc.w	0
		EXPORT	daMemBefore
daMemBefore	dc.w	0
		EXPORT	setupMemBefore
setupMemBefore	dc.w	0

totalMemStr	str	'     K'
realFreeMemStr	str	'     K'
findermemStr	str	'     K'
systemMemStr	str	'     K'
daMemStr	str	'     K'
setupMemStr	str	'     K'

		EXPORT	finderVersionHandle
finderVersionHandle dc.L 0
finderVersionPtr dc.L 0

		EXPORT	systemVersionHandle
systemVersionHandle dc.L 0
systemVersionPtr dc.L 0

finderVersion	ds	10
systemVersion	ds	10

; see if anything changed from the last time we called this routine to update the
; about window -- if anything did, inval the rect for the K used
;................................................................

		EXPORT doAboutRecalc
doAboutRecalc
		phb
		phk
		plb
		
		lda	>aboutWindowPtr+1
		bne	@1
		brl	doneRecalc2
		
@1		jsl	calcMemoryUsed	;don't do this too often
		
		pha
		pha
		_GetPort
		pushlong >aboutWindowPtr
		_SetPort
		
		pha
		pha
		_RealFreeMem
		pulllong realFreeMem
		
		ldx	#9		;divide everyone by 1024
cLoop		lsr	realFreeMem+2
		ror	realFreeMem
		lsr	finderMem+2
		ror	finderMem
		lsr	systemMem+2
		ror	systemMem
		lsr	daMem+2
		ror	daMem
		lsr	setupMem+2
		ror	setupMem
		dex
		bpl	cLoop

		lda	realFreeMem
		cmp	realFreeMemBefore
		beq	checkFMem
		sta	realFreeMemBefore
		
		lda	realFreeMem
		pha
		pushlong #$80000000+realFreeMemStr+1
		pea	5		;5 chars available
		pea	0		;unsigned
		_Int2Dec
		pushlong #realFreeMemRect
		_InvalRect
		
checkFMem	lda	finderMem
		cmp	finderMemBefore
		beq	checkSMem
		sta	finderMemBefore

		lda	finderMem
		pha
		pushlong #$80000000+finderMemStr+1
		pea	5		;5 chars available
		pea	0		;unsigned
		_Int2Dec				
		pushlong #finderMemRect
		_InvalRect
				
checkSMem	lda	systemMem
		cmp	systemMemBefore
		beq	checkDMem
		sta	systemMemBefore
		
		lda	systemMem
		pha
		pushlong #$80000000+systemMemStr+1
		pea	5		;5 chars available
		pea	0		;unsigned
		_Int2Dec
		pushlong #systemMemRect
		_InvalRect
		
checkDMem	lda	daMem
		cmp	daMemBefore
		beq	checkSetupMem
		sta	daMemBefore
		
		lda	daMem
		pha
		pushlong #$80000000+daMemStr+1
		pea	5		;5 chars available
		pea	0		;unsigned
		_Int2Dec
		pushlong #daMemRect
		_InvalRect
		
checkSetupMem	lda	setupMem
		cmp	setupMemBefore
		beq	doneRecalc
		sta	setupMemBefore

		lda	setupMem
		pha
		pushlong #$80000000+setupMemStr+1
		pea	5		;5 chars available
		pea	0		;unsigned
		_Int2Dec
		pushlong #setupMemRect
		_InvalRect

doneRecalc	_SetPort

doneRecalc2 	plb
		rtl

realFreeMemRect	dc.w	28,435-76,38,485-76
finderMemRect	dc.w	44,145,54,195
systemMemRect	dc.w	55,145,65,195
daMemRect	dc.w	44,435-76,54,485-76
setupMemRect	dc.w	55,435-76,65,485-76

; calculate the amount of memory that the Finder, System, DAs, and Setup files are using
;  by walking the handle list and finding who owns what and how big of a block they own.
;
; inputs: none
;
; outputs: finderMem is filled
;          systemMem is filled
;	   daMem is filled
;	   setupMem is filled
;
; assumptions: $e1600 always points to the handle list
;		we are able to disable interrupts while walking the list so no one
;		disturbs the handle list behind our back
;		handlePtr is defined above as 1
;................................................................

		EXPORT calcMemoryUsed
calcMemoryUsed	


		phb
		phk
		plb

		pha
		_MMStartUp
		pla
		sta	theFinderID

		php				;disable interrupts while walking the
		sei				;handle list

		phd
		pha
		pha
		tsc
		tcd
		
		stz	finderMem
		stz	finderMem+2
		
		stz	systemMem
		stz	systemMem+2
		
		stz	daMem
		stz	daMem+2
		
		stz	setupMem
		stz	setupMem+2
		
		lda	>$e11600
		sta	handlePtr
		lda	>$e11600+2
		sta	handlePtr+2

look		ldy	#4
		lda	[handlePtr],y
		bmi	includeLocked		;if it's locked, include it
		and	#%0000001100000000	;check the purgable bits in attrib word
		bne	nextHandle		;if it's the least bit purgable, don't include it
				
includeLocked	ldy	#6
		lda	[handlePtr],y
		beq	nextHandle		;never, ever add ID's of just zero
		tax				;keep the ID handy for a sec

		eor	theFinderID
		and	#$F0FF			;Finder memory is "application", and
		beq	addApp			;other $1xxx memory is not counted!

		txa				;get the ID back
		and	#$f000
		xba
		
		lsr	a
		lsr	a
		lsr	a
		
		tax
		jmp  	(addr,x)

theFinderID	dc.w	0
		
addr		dc.W	addSystem		;0=memory manager's unmanaged areas
		dc.W	nextHandle		;1=application, other than the Finder
		dc.W	nextHandle		;2=control program
		dc.W	addSystem		;3=GSOS
		dc.W	addSystem		;4=Toolsets
		dc.W	addDA			;5=Desk Accessories
		dc.W	addSystem		;6=runtime libraries
		dc.W	addSystem		;7=system loader
		dc.W	addSystem		;8=firmware
		dc.W	addSystem		;9=tool locator
		dc.W	addSetup		;A=setup files
		dc.W	nextHandle		;B=undefined
		dc.W	nextHandle		;C=undefined
		dc.W	nextHandle		;D=undefined
		dc.W	nextHandle		;E=undefined
		dc.W	nextHandle		;F=undefined
		
;
; find the next handle (if there is one)
;
nextHandle	ldy	#16
		lda	[handlePtr],y
		tax
		bne	notDoneYet
		
		iny
		iny
		lda	[handlePtr],y
		beq	doneCalc

		stx	handlePtr
		sta	handlePtr+2
		bra	look

notDoneYet	iny
		iny
		lda	[handlePtr],y
		stx	handlePtr
		sta	handlePtr+2
		bra	look

addApp		ldy	#8
		lda	[handlePtr],y
		clc
		adc	finderMem
		sta	finderMem
		iny
		iny
		lda	[handlePtr],y
		adc	finderMem+2
		sta	finderMem+2
		bra	nextHandle
		
addSystem	ldy	#8
		lda	[handlePtr],y
		clc
		adc	systemMem
		sta	systemMem
		iny
		iny
		lda	[handlePtr],y
		adc	systemMem+2
		sta	systemMem+2
		bra	nextHandle

addDA		ldy	#8
		lda	[handlePtr],y
		clc
		adc	daMem
		sta	daMem
		iny
		iny
		lda	[handlePtr],y
		adc	daMem+2
		sta	daMem+2
		bra	nextHandle
		
addSetup	ldy	#8
		lda	[handlePtr],y
		clc
		adc	setupMem
		sta	setupMem
		iny
		iny
		lda	[handlePtr],y
		adc	setupMem+2
		sta	setupMem+2
		bra	nextHandle
		
doneCalc	lda	#<$15000	;manually compensate for those memory manager
		clc			;blocks which are included in the language card
		adc	systemMem	;areas and elsewhere (see: 0ink in niftylist)
		sta	systemMem
		lda	#^$15000
		adc	systemMem+2
		sta	systemMem+2

		pla
		pla
		pld
		
		plp			;re-enable interrupts
		plb
		rtl

; Draw the about box with all the memory figures
;...................................................................................

aboutDraw	phb
		phk
		plb
		
		phd
		pha
		pha
		tsc
		tcd
		
		pushlong #memRect	;erase what memory stuff might have been there
		_EraseRect		
		
		pushlong >aboutWindowPtr
		_DrawControls
	
		lda	systemVersionPtr
		sta	handlePtr
		lda	systemVersionPtr+2
		sta	handlePtr+2
		
		pea	120
		pea	24
		_MoveTo

		ldy	#6		;add the length of the first string to
		lda	[handlePtr],y	;where our handle ptr points to
		and	#$00ff		;so we can find the second string
		clc
		adc	handlePtr 
		tax
		lda	handlePtr+2
		adc	#0
		tay
		
		txa			;now, add 6 to the address to compensate for
		clc			;the international word and version long
		adc	#7		;but add 7 to compensate for the length byte of the
		tax			;first string
		tya
		adc	#0
		pha
		phx
		_DrawString		;draw Copyright string from Finder
			
		pea	120		;print 'System Software' in the box
		pea	13		;(just in case someone in international decides
		_MoveTo			;to call it Systeme or something)
		lda	systemVersionPtr
		clc
		adc	#6
		tax
		lda	systemVersionPtr+2
		adc	#0
		pha
		phx
		_DrawString
		pea	4		;move over 4 pixels (Dave says it's one space
		pea	0		;in Shaston 8)
		_Move
		pushlong #systemVersion
		_DrawString
		
		pha
		pushlong #totalMemStr
		_StringWidth		
		lda	#195
		sec
		sbc	1,s
		sta	1,s		;we avoid pulling and pushing		
		pea	38
		_MoveTo
		pushlong #totalMemStr
		_DrawString
		
		pha
		pushlong #realFreeMemStr
		_StringWidth		
		lda	#485-76
		sec
		sbc	1,s
		sta	1,s		;we avoid pulling and pushing		
		pea	38
		_MoveTo
		pushlong #realFreeMemStr
		_DrawString
		
		pha
		pushlong #finderMemStr
		_StringWidth		
		lda	#195
		sec
		sbc	1,s
		sta	1,s		;we avoid pulling and pushing		
		pea	53
		_MoveTo
		pushlong #finderMemStr
		_DrawString
		
		pha
		pushlong #daMemStr
		_StringWidth		
		lda	#485-76
		sec
		sbc	1,s
		sta	1,s		
		pea	53
		_MoveTo
		pushlong #daMemStr
		_DrawString
		
		pha
		pushlong #systemMemStr
		_StringWidth		
		lda	#195
		sec
		sbc	1,s
		sta	1,s		;we avoid pulling and pushing (DAL)		
		pea	64
		_MoveTo
		pushlong #systemMemStr
		_DrawString
		
		pha
		pushlong #setupMemStr
		_StringWidth		
		lda	#485-76
		sec
		sbc	1,s
		sta	1,s		;we avoid pulling and pushing		
		pea	64
		_MoveTo
		pushlong #setupMemStr
		_DrawString

		pla
		pla
		pld
		
		plb
		rtl

memRect		dc.w	26,140,66,490	

		Export UnloadSegs
UnloadSegs	pha
		_MMStartup
		lda #0
		pha
		pha
		_UnloadSegNum
		rtl

		ENDP
		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Finder/DP.equ b/IIGS.601.SRC/A.U.G/Finder/DP.equ
new file mode 100644
index 0000000..03bd9cb
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Finder/DP.equ
@@ -0,0 +1 @@
+
		blanks off
		
;==============================================
;	Direct page offsets;
;==============================================

curWind		equ	0			;Current icon port (window)

wind		equ	curWind+4		;Window work pointer.
windBlk		equ	wind+4			;Pointer to window info block.
icHand		equ	windBlk+4		;General ICONOBJ handle.
ic		equ	icHand+4		;icHand dereferenced.
icBlkHand	equ	ic+4			;General ICONBLK handle.
icBlk		equ	icBlkHand+4		;(icBlkHand) or pointer to ICONDATA record.
icon		equ	icBlk+4			;Pointer to an ICON record.
dRect		equ	icon+4			;Work RECT.
irect1		equ	dRect+8			;Icon's enclosing RECT.
irect2		equ	irect1+8		;Icon title's enclosing RECT.	\ these MUST be
temp		equ	irect2+8		;Work pointer.			/ contiguous!
tempRgn		equ	temp+4			;Handle of work region.

deskPort	equ	tempRgn+4		;Address of Window Manager's port

deskic		equ	deskPort+4		;Handle of first ICONOBJ on desktop
deskID		equ	deskic+4		;Desktop ID, NoWindID.
deskView	equ	deskID+2		;Desktop view, large icons.
deskBlank	equ	deskView+2		;Handle of icon that desktop opened from.

TaskRec		equ	deskBlank+4		;Task Master record.
what		equ	TaskRec
message		equ	what+2
when		equ	message+4
yrat		equ	when+4			;General y coordinate holder.
xrat		equ	yrat+2			;General x coordinate holder.
modifiers	equ	xrat+2
TaskData	equ	modifiers+2
TaskMask	equ	TaskData+4

TaskLastClick	equ	TaskMask+4		
TaskClickCount	equ	TaskLastClick+4
TaskData2	equ	TaskClickCount+2
TaskData3	equ	TaskData2+4
TaskData4	equ	TaskData3+4
TaskLastClickPt	equ	TaskData4+4

devNumber	equ	TaskLastClickPt+4
filetype	equ	devNumber+2
TrashWind	equ	filetype+2		;Window pointer for Trash can.
;;;ClipWind	equ	TrashWind+4		;Window pointer for clipboard. (removed 19-Aug-92 DAL)
lastClick	equ	TrashWind+4		;Time of last button down on an icon.
rectHand	equ	lastClick+4		;Handle of RECT list.
rectPtr		equ	rectHand+4		;Pointer to RECT list.
rectRgn		equ	rectPtr+4		;Handle of region containing all RECTs.
lineAddrs	equ	rectRgn+4		;Address of scan line address table.
mask1		equ	lineAddrs+4		;Variables used by icon drag draw rects.
mask2		equ	mask1+2			
mask3		equ	mask2+2			
line1		equ	mask3+2			
yoffset		equ	line1+2			;Window's offset to global coordinates.
xoffset		equ	yoffset+2		;Window's offset to global coordinates.
yoffset2	equ	xoffset+2		;Window's offset to global coordinates.
xoffset2	equ	yoffset2+2		;Window's offset to global coordinates.
MyID		equ	xoffset2+2		;ID number to use for memory allocation.
direction	equ	MyID+2			;WalkOfLife's direction.
drawCount	equ	direction+2
IconTrack	equ	drawCount+2
windTrack	equ	IconTrack+4
posFile		equ	windTrack+4		;Handle of window position information.
copyFile	equ	posFile+4		;TRUE to duplicate icons, FALSE to move.
LErename	equ	copyFile+2		;Handle of line edit field for rename.
work		equ	LErename+4		;*** WARNING *** Some routines use scratch
						;***             space following <work!
deref		equ	work+4			;local place for dereffing things

handle		equ	deref+4			;Must be first and zero.
ptr		equ	handle+4		;generic pointer, not safe to use in subs
handle2		equ	ptr+4
ptr2		equ	handle2+4
handle3		equ	ptr2+4
ptr3		equ	handle3+4

;
; NOTE that handle4 and rootBuffer overlap
;
handle4		equ	ptr3+4
rootBuffer	equ	ptr3+4
ptr4		equ	handle4+4		;Work string pointer.
rootOffset	equ	handle4+4

visRECT		equ	ptr4+4			;our visible rgn's boundsrect when drawin'

QuickDrawDP	equ	visRECT+8

zero		equ	QuickDrawDP+2		;This will always be a zero word (20-Feb-92 DAL)

EndOfDP		equ	zero+2
;
; at last count there were 8 bytes free on DP, 1/24/92, andy
;
		IF	EndOfDP>$FF THEN
			WRITE 'EndOfDP = '
			WRITELN EndOfDP
			AERROR 'WARNING... Direct page variable overflow!'
		ENDIF

; --- Offsets to other tools' direct pages --------------------------------
Misc_zp		equ	0			Misc_zp, 1 zero	pages.
COPY_zp		equ	Misc_zp+$0100		Copy tool.
Total_zp	equ	COPY_zp+$0100		Total number of	zero pages needed.


\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Finder/Data.equ b/IIGS.601.SRC/A.U.G/Finder/Data.equ
new file mode 100644
index 0000000..d8109a1
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Finder/Data.equ
@@ -0,0 +1 @@
+
		IMPORT	LastParamTime
		IMPORT	LastScrapTime
		IMPORT	LastPatternTime
		IMPORT	LastNetTime

		IMPORT	OriginalStack
		IMPORT  FindersICBlkN

		IMPORT	devnum_list
		IMPORT	devnum_num
		IMPORT	C1_FileNameBuf
		IMPORT	C1_FileName
		
		IMPORT	C1_PathName
		IMPORT	C1_PathNameBuf
		IMPORT	deviceName
		IMPORT	cMenuRects
		IMPORT	cMenuPats

		IMPORT	screen2
		IMPORT	DragPatt
		IMPORT	stripes
		IMPORT	GSicons
		IMPORT	defaultName
		IMPORT	prefer
		IMPORT	deskPat
		IMPORT	deskPic
		IMPORT	clip_param
		IMPORT	clip_color
		IMPORT	clip_end
		IMPORT	clipBlk
		IMPORT	clipTitle
		IMPORT	info_param
		IMPORT	infoTPtr
		IMPORT	infoBlkPtr
		IMPORT	infowRect
		IMPORT	info_end
		IMPORT	infoBlk
		IMPORT	infoTitle
		IMPORT	infoName
		IMPORT	endInfoBlk
		IMPORT	verify_param
		IMPORT	verifyTPtr
		IMPORT	verifyBlkPtr
		IMPORT	verifyInfoRef
		IMPORT	verifyInfoProc
		IMPORT	verifyGutsProc
		IMPORT	verifywRect
		IMPORT	verify_end
		IMPORT	verifyBlk
		IMPORT	verifyData
		IMPORT	verifyTitle
		IMPORT	verifyName
		IMPORT	endVerifyBlk
		IMPORT	validateBlk
		IMPORT	validateData
		IMPORT	validateTitle
		IMPORT	validateName
		IMPORT	endValidateBlk
		IMPORT	StartZeroRAM
		IMPORT	infoWindCount
		IMPORT	verWindCount
		IMPORT	badDes
		IMPORT	wrap
		IMPORT	cancelEmpty
		IMPORT	abortFind
		IMPORT	myWindCount
		IMPORT	saveMenuID
		IMPORT	srcView
		IMPORT	SourceView
; rdl 4/24/90 --removed-- to allow launching docs of multiple apps (also see icons2.aii)
;		IMPORT	typeFlag
; rdl 4/24/90 end
		IMPORT	SaveOffFlag
		IMPORT	spotCount
		IMPORT	spotHashOn
		IMPORT	spotHash
		IMPORT	dupIcon
		IMPORT	menuDimFlag
		IMPORT	drawRequest
		IMPORT	dragDeltay
		IMPORT	dragDeltax
		IMPORT	NoDOSerr
		IMPORT	IsRAMDisk	;added 05/26/88 DJB
		IMPORT	flopCount
		IMPORT	IDflag
		IMPORT	tempSaved
		IMPORT	Printing
		IMPORT	maxLength
		IMPORT	curCursor
		IMPORT	addFlag
		IMPORT	intoIcon
		IMPORT	doubleSpeed
		IMPORT	auxtype
		IMPORT	AccessPriv	;added 12/06/88 DJB
		IMPORT	AccessDefault	;added 12/06/88 DJB
		IMPORT	NetworkBit	;added 12/07/88 DJB
		IMPORT	onlyDisk
		IMPORT	appName
		IMPORT	appIcon
		IMPORT	appOffset
		IMPORT	iconSelected
		IMPORT	NoRealMatch
		IMPORT	defaultChg
		IMPORT	functionKey
		IMPORT	shiftKeyStatus
		IMPORT	zoomWithoutInfo
		IMPORT	zoomWithInfo
		IMPORT	LEwind
		IMPORT	LEicon
		IMPORT	nameHit
		IMPORT	desRect
		IMPORT	viewRect
		IMPORT	createIcon
		IMPORT	posFlag
		IMPORT	C1_VolName
		IMPORT	myDpage
		IMPORT	eventRec
		IMPORT	port
		IMPORT	ticonobj
		IMPORT	smallRect
		IMPORT	ExtCopy
		IMPORT	windowID
		IMPORT	deskState
		IMPORT	lastState
		IMPORT	lastClickY
		IMPORT	lastClickX
		IMPORT	startSaveBlk
		IMPORT	C1_TempPath
		IMPORT	C1_TempPathBuf
		IMPORT	lastName
		IMPORT	endSaveBlk
		IMPORT	quoteName
		IMPORT	OpenFlag
		IMPORT	pathIndex
		IMPORT	saveHand
		IMPORT	deltay
		IMPORT	deltax
		IMPORT	deltay2
		IMPORT	deltax2
		IMPORT	DeleteFlag
		IMPORT	EndZeroRAM
		IMPORT	StartInitRAM
		IMPORT	EndInitRAM
		IMPORT	StartDynamRAM
; ckDelFlag no longer in use (artifact of having had a Remove menu item in distant past)
; removed 2/15/90 rdl
;		IMPORT	ckDelFlag
		IMPORT	quit_list
		IMPORT	quit_flags
		IMPORT	quit_path
		IMPORT	screen
		IMPORT	resolution
		IMPORT	SrcMode
		IMPORT	SrcImage
		IMPORT	SrcWidth
		IMPORT	SrcRect
		IMPORT	C1_QuitName
		IMPORT	c1_DevNameBuf
		IMPORT	c1_DeviceName
		IMPORT	wind_param
		IMPORT	wind_size
		IMPORT	wind_frame
		IMPORT	wind_title
		IMPORT	wind_ref
		IMPORT	wind_full
		IMPORT	wind_color
		IMPORT	wind_voff
		IMPORT	wind_hoff
		IMPORT	wind_datah
		IMPORT	wind_dataw
		IMPORT	wind_max_h
		IMPORT	wind_max_w
		IMPORT	wind_vscrl
		IMPORT	wind_hscrl
		IMPORT	wind_vpage
		IMPORT	wind_hpage
		IMPORT	wind_infot
		IMPORT	wind_infoH
		IMPORT	wind_def
		IMPORT	wind_info
		IMPORT	wind_draw
		IMPORT	bigRect
		IMPORT	wind_pos
		IMPORT	wind_plane
		IMPORT	wind_rec
		IMPORT	wind_end
		IMPORT	TrashBlk
		IMPORT	TrashIc
		IMPORT	TrashNum
		IMPORT	TrashTitle
		IMPORT	nextWindPos
		IMPORT	EndDynamRAM
		IMPORT	errorTable
		IMPORT	LoadDataErr
		IMPORT	LoadToolsErr
		IMPORT	NotEnoughMem
		IMPORT	badIconFile
		IMPORT	debugTable
		IMPORT	TableErr
		IMPORT	dirFullErr
		IMPORT	handErr1
		IMPORT	handErr2
		IMPORT	handErr3
		IMPORT	titleY
		IMPORT	titleX
		IMPORT	titles
		IMPORT	kStrg
		IMPORT	aStrg
		IMPORT	sStrg
		IMPORT	wStrg
		IMPORT	cday
		IMPORT	mday
		IMPORT	lStrg
		IMPORT	deviceKinds
		IMPORT	days
		IMPORT	monthNames
		IMPORT	typeNames
		IMPORT	fileSysNames
		IMPORT	pixelMask1
		IMPORT	pixelMask2
		IMPORT	pixelMask3
		IMPORT	table1
		IMPORT	strings
		IMPORT	boldTitle
		IMPORT	boldTable
		IMPORT	startX
		IMPORT	stringsLen
		IMPORT	notDiskFlag
		IMPORT	colormenu
		IMPORT	LastScrapCount
		IMPORT	DevStatusTbl
		IMPORT	gdn_params
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Finder/EasyMount/DES.aii b/IIGS.601.SRC/A.U.G/Finder/EasyMount/DES.aii
new file mode 100644
index 0000000..deb7ea5
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Finder/EasyMount/DES.aii
@@ -0,0 +1 @@
+**************************************************
*
*
* des - data encryption standard. This routine is called with
* low byte of the parameter list in the X reg and the high
* byte of the parameter list in the Y reg.
*
*
* written by	07-03-86
*	david su
*
* modified :	01-27-87 06:00 (tde)
*  5-29-87:	Converted source to MacToGS (rbh)
*
* (c) 1987 paramis corporation
* (c) 1987 Apple Computer Inc
* all rights reserved
*
*	Parameter List:
*	Pointer		pointer <--
*	Encription Key	pointer <--		;This is an eight byte padded password
*	Result		pointer -->		;Eight Bytes
*
* Rick Hoiberg 5/29/87
*
* modified : 08-23-88 (srk)
*		converted to MPW IIGS (MAX) assembler
*
**********************************************************
		MACHINE	M65816

		include 'm16.debug'

DESdata		Record

saveZp0		dc.b	0,0,0,0,0,0,0,0

tab64l		dc.b	0,64,128,192,0,64,128,192
tab64h		dc.b	0,0,0,0,1,1,1,1


**************************************************
*
* des data area
*
**************************************************


iniptbl		dc.b	7,15,23,31,39,47,55,63
		dc.b	5,13,21,29,37,45,53,61
		dc.b	3,11,19,27,35,43,51,59
		dc.b	1,9,17,25,33,41,49,57
		dc.b	8,16,24,32,40,48,56,64
		dc.b	6,14,22,30,38,46,54,62
		dc.b	4,12,20,28,36,44,52,60
		dc.b	2,10,18,26,34,42,50,58

invptbl		dc.b	25,57,17,49,9,41,1,33
		dc.b	26,58,18,50,10,42,2,34
		dc.b	27,59,19,51,11,43,3,35
		dc.b	28,60,20,52,12,44,4,36
		dc.b	29,61,21,53,13,45,5,37
		dc.b	30,62,22,54,14,46,6,38
		dc.b	31,63,23,55,15,47,7,39
		dc.b	32,64,24,56,16,48,8,40

etbl		dc.b	1,32,31,30,29,28
		dc.b	29,28,27,26,25,24
		dc.b	25,24,23,22,21,20
		dc.b	21,20,19,18,17,16
		dc.b	17,16,15,14,13,12
		dc.b	13,12,11,10,9,8
		dc.b	9,8,7,6,5,4
		dc.b	5,4,3,2,1,32

pc1tbl		dc.b	8,16,24,32,40,48,56
		dc.b	64,7,15,23,31,39,47
		dc.b	55,63,6,14,22,30,38
		dc.b	46,54,62,5,13,21,29
		dc.b	2,10,18,26,34,42,50
		dc.b	58,3,11,19,27,35,43
		dc.b	51,59,4,12,20,28,36
		dc.b	44,52,60,37,45,53,61

;convert from des algorithm
;base 56
pc2tbl		dc.b	43,40,46,33,56,52,54,29
		dc.b	42,51,36,47,34,38,45,53
		dc.b	31,49,41,50,30,37,44,55
		dc.b	16,5,26,20,10,2,27,17
		dc.b	6,12,24,9,13,8,18,1
		dc.b	23,4,11,15,7,21,28,25

ptbl		dc.b	17,26,13,12,4,21,5,16
		dc.b	32,18,10,7,28,15,2,23
		dc.b	31,25,9,19,1,6,30,24
		dc.b	14,20,3,27,11,22,29,8

s1		dc.b	14,4,13,1,2,15,11,8
		dc.b	3,10,6,12,5,9,0,7
		dc.b	0,15,7,4,14,2,13,1
		dc.b	10,6,12,11,9,5,3,8
		dc.b	4,1,14,8,13,6,2,11
		dc.b	15,12,9,7,3,10,5,0
		dc.b	15,12,8,2,4,9,1,7
		dc.b	5,11,3,14,10,0,6,13

s2		dc.b	15,1,8,14,6,11,3,4
		dc.b	9,7,2,13,12,0,5,10
		dc.b	3,13,4,7,15,2,8,14
		dc.b	12,0,1,10,6,9,11,5
		dc.b	0,14,7,11,10,4,13,1
		dc.b	5,8,12,6,9,3,2,15
		dc.b	13,8,10,1,3,15,4,2
		dc.b	11,6,7,12,0,5,14,9

s3		dc.b	10,0,9,14,6,3,15,5
		dc.b	1,13,12,7,11,4,2,8
		dc.b	13,7,0,9,3,4,6,10
		dc.b	2,8,5,14,12,11,15,1
		dc.b	13,6,4,9,8,15,3,0
		dc.b	11,1,2,12,5,10,14,7
		dc.b	1,10,13,0,6,9,8,7
		dc.b	4,15,14,3,11,5,2,12

s4		dc.b	7,13,14,3,0,6,9,10
		dc.b	1,2,8,5,11,12,4,15
		dc.b	13,8,11,5,6,15,0,3
		dc.b	4,7,2,12,1,10,14,9
		dc.b	10,6,9,0,12,11,7,13
		dc.b	15,1,3,14,5,2,8,4
		dc.b	3,15,0,6,10,1,13,8
		dc.b	9,4,5,11,12,7,2,14

s5		dc.b	2,12,4,1,7,10,11,6
		dc.b	8,5,3,15,13,0,14,9
		dc.b	14,11,2,12,4,7,13,1
		dc.b	5,0,15,10,3,9,8,6
		dc.b	4,2,1,11,10,13,7,8
		dc.b	15,9,12,5,6,3,0,14
		dc.b	11,8,12,7,1,14,2,13
		dc.b	6,15,0,9,10,4,5,3

s6		dc.b	12,1,10,15,9,2,6,8
		dc.b	0,13,3,4,14,7,5,11
		dc.b	10,15,4,2,7,12,9,5
		dc.b	6,1,13,14,0,11,3,8
		dc.b	9,14,15,5,2,8,12,3
		dc.b	7,0,4,10,1,13,11,6
		dc.b	4,3,2,12,9,5,15,10
		dc.b	11,14,1,7,6,0,8,13

s7		dc.b	4,11,2,14,15,0,8,13
		dc.b	3,12,9,7,5,10,6,1
		dc.b	13,0,11,7,4,9,1,10
		dc.b	14,3,5,12,2,15,8,6
		dc.b	1,4,11,13,12,3,7,14
		dc.b	10,15,6,8,0,5,9,2
		dc.b	6,11,13,8,1,4,10,7
		dc.b	9,5,0,15,14,2,3,12

s8		dc.b	13,2,8,4,6,15,11,1
		dc.b	10,9,3,14,5,0,12,7
		dc.b	1,15,13,8,10,3,7,4
		dc.b	12,5,6,11,0,14,9,2
		dc.b	7,11,4,1,9,12,14,2
		dc.b	0,6,10,13,15,3,5,8
		dc.b	2,1,14,7,4,10,8,13
		dc.b	15,12,9,0,3,5,6,11

des_msk		dc.b	1
		dc.b	2
		dc.b	4
		dc.b	8
		dc.b	16
		dc.b	32
		dc.b	64
		dc.b	128

key		ds.b	8

random		ds.b	8

des_work1	dc.b	0
des_work2	dc.b	0
des_work3	dc.b	0
des_work4	dc.b	0
des_work5	dc.b	0
des_work6	dc.b	0
des_work7	dc.b	0
des_work8	dc.b	0

des_count	dc.b	0
remainder	dc.b	0
key_x		dc.b	0
des_x		dc.b	0
des_x1		dc.b	0
des_x2		dc.b	0
des_y		dc.b	0
des_k		dc.b	0
des_temp	dc.b	0
des_temp1	ds.b	4
des_temp2	ds.b	4

des_l1		ds.b	4
des_r1		ds.b	4

des_cd		ds.b	7

k1		ds.b	6
k2		ds.b	6
k3		ds.b	6
k4		ds.b	6
k5		ds.b	6
k6		ds.b	6
k7		ds.b	6
k8		ds.b	6
k9		ds.b	6
k10		ds.b	6
k11		ds.b	6
k12		ds.b	6
k13		ds.b	6
k14		ds.b	6
k15		ds.b	6
k16		ds.b	6

rotat_left	dc.b	1,1,2,2,2,2,2,2
		dc.b	1,2,2,2,2,2,2,1

		EndR

;---------------------------------------------------------------------------------------------------

		EXPORT	DES
DES		PROCname
		with	DESdata

Zp0		equ	$00
Zp1		equ	$04

*
*
* save four bytes of Zero page
*
		phb			;save current data bank
		phk
		plb			;data bank = program bank

		pei	Zp0		;save on stack
		pei	Zp0+2
		pei	Zp1
		pei	Zp1+2
*
* save parameter list location
*
		stx	Zp0		;save parameter	list pointer
		sty	Zp0+2
*
* save key in our work area
*
		lda	[Zp0]		;save key
		sta	Zp1
		ldy	#$02
		lda	[Zp0],y
		sta	Zp1+2

		ldx	#3
		ldy	#$06		;move all eight	bytes of key
des1		lda	[Zp1],y
		sta	key,y
		dey
		dey
		dex
		bpl	des1

*
* save password	in our work area
*
		ldy	#$04
		lda	[Zp0],y
		sta	Zp1
		iny
		iny
		lda	[Zp0],y
		sta	Zp1+2

		ldx	#3
		ldy	#$06		;move all eight	bytes of key
des2		lda	[Zp1],y
		sta	random,y
		dey
		dey
		dex
		bpl	des2




*
* initialize the count
*
		ldx	#0
des4
		stz	des_count,x
		inx
		inx
		cpx	#32
		bne	des4

;	save our zero page values here - for some reason they are getting trashed
;	when we	do the encoding	routines.....

		lda	Zp0
		sta	saveZp0
		lda	Zp0+2
		sta	saveZp0+2

		sep	#$30
		LONGA	OFF
		LONGI	OFF

		jsr	keysched
		jsr	encode
*
* save result
*

		Rep	#$30
		LONGA	ON
		LONGI	ON

;	restore	Zp0 here - why is it getting trashed in	our encoding routines above?

		lda	saveZp0
		sta	Zp0
		lda	saveZp0+2
		sta	Zp0+2

		ldy	#$08
		lda	[Zp0],y
		sta	Zp1
		iny
		iny
		lda	[Zp0],y
		sta	Zp1+2

		ldx	#3
		ldy	#$06		;move all eight	bytes of key
des3		lda	des_work1,y
		sta	[Zp1],y
		dey
		dey
		dex
		bpl	des3
*
* restore Zero page
*

		pla
		sta	Zp1+2
		pla
		sta	Zp1
		pla
		sta	Zp0+2
		pla
		sta	Zp0

		plb			;restore data bank
		rtl


**************************************************
*
* keysched : key schedule
*
* this module takes 64 bits key	and generates
* the sixteen 48-bit keys k(1),k(2),...,k(16)
*
* entry	: none
*
* exit	: none
*
*
**************************************************
keysched
		sep	#$30
		LONGA	OFF
		LONGI	OFF

		ldx	#0
key1
		stx	des_x
		lda	pc1tbl,x
		sta	remainder
		lda	#8
		sta	des_count
key2
		dec	des_count
		sec
		lda	remainder
		sbc	#08
		sta	remainder
		beq	key22		;= 0 ?
		bcs	key2		;> 0 ?

key22
		clc
		lda	remainder
		adc	#8
		sta	remainder

		ldx	remainder
		bne	key24		;x = 0 ?
		ldx	#8		;set to	8, if yes
key24
		dex
		lda	des_msk,x
		ldy	des_count
		clc
		and	key,y
		beq	key3
		sec
key3
		ldx	#$07
key4
		rol	des_work1,x
		php
		dex
		bmi	key5
		plp
		bra	key4

key5
		plp
		ldx	des_x
		inx
		cpx	#56
		bne	key1

*
* divide pc1 result into c0/d0
*
		ldx	#0
key6
		lda	des_work2,x
		sta	des_cd,x
		inx
		cpx	#7
		bne	key6

*
* rotate c and d left by rotate(n) times
*
key9
		ldx	#0
keya
		stx	des_x		;save #	of times

		ldy	#0
keyb
		clc
		lda	des_cd		;save left most	bit(cn)
		rol	a
		php

		lda	des_msk+3	;save left most	bit(dn)
		clc
		and	des_cd+3
		beq	keyb0
		sec
keyb0
		ldx	#6
keyc
		rol	des_cd,x
		dex
		bpl	keyc

		lda	des_cd+3
		and	#%11101111	;clear right most bit(cn)
		sta	des_cd+3

		lda	#0
		plp			;restore left most bit(cn)
		ror	a		;move left most	bit(cn)
		ror	a		;to right most bit(cn)
		ror	a
		ror	a
		ora	des_cd+3
		sta	des_cd+3

		ldx	des_x
		iny
		lda	rotat_left,x
		sta	des_temp
		cpy	des_temp
		bne	keyb

*
* permutation 2
*
		ldy	#0
keye
		sty	des_y
		lda	pc2tbl,y
		sta	remainder
		lda	#7		;7 bytes toal for cn+dn
		sta	des_count
keyf
		dec	des_count
		sec
		lda	remainder
		sbc	#08
		sta	remainder
		beq	keyf0		;= 0 ?
		bcs	keyf		;> 0 ?

keyf0
		clc
		lda	remainder
		adc	#8
		sta	remainder

		ldx	remainder
		bne	keyf2		;x = 0 ?
		ldx	#8		;set to	8, if yes
keyf2
		dex
		lda	des_msk,x
		ldy	des_count
		clc
		and	des_cd,y
		beq	key0
		sec
key0
		ldx	#7
key01
		rol	des_work1,x
		php
		dex
		bmi	key02
		plp
		bra	key01

key02
		plp
		ldy	des_y
		iny
		cpy	#48
		bne	keye

*
* move result of perm 2	to k(n)
*
		ldx	#0
key03
		lda	des_work3,x
		ldy	des_k
		sta	k1,y
		inc	des_k
		inx
		cpx	#6
		bne	key03

		ldx	des_x
		inx
		cpx	#16
		beq	key04
		jmp	keya

key04		rts


**************************************************
*
* encode - encryption module
*
* entry	: random1,...,random8
*
* exit	: des_work1,...,des_work8
*
*
**************************************************
encode
		sep	#$30
		LONGA	OFF
		LONGI	OFF

		stZ	des_y		;init des_y

		ldx	#0
ecd1
		stx	des_x
		lda	iniptbl,x
		sta	remainder
		lda	#8
		sta	des_count
ecd2
		dec	des_count
		sec
		lda	remainder
		sbc	#08
		sta	remainder
		beq	ecd22		;= 0 ?
		bcs	ecd2		;> 0 ?

ecd22
		clc
		lda	remainder
		adc	#8
		sta	remainder

		ldx	remainder
		bne	ecd24		;x = 0 ?
		ldx	#8		;set x to 8, if	yes
ecd24
		dex
		lda	des_msk,x
		ldy	des_count
		clc
		and	random,y
		beq	ecd3
		sec
ecd3
		ldx	#7
ecd4
		rol	des_work1,x
		php
		dex
		bmi	ecd5
		plp
		bra	ecd4

ecd5
		plp
		ldx	des_x
		inx
		cpx	#64
		bne	ecd1

*
* move result of init perm to left/right block
* move 8 times - first 4 bytes = des_l1
*	- second 4 bytes = des_r1
*
		ldx	#0
ecd6
		lda	des_work1,x
		sta	des_l1,x
		inx
		cpx	#08
		bne	ecd6

*
* perform rn = ln eor f(rn,kn)
* transform right 32 bits into 48 bits
*
		stz	key_x		;initiaiZe k(n)	pointer
		ldx	#0
ecd60
		stx	des_x1		;save counter

		ldx	#0
ecd65
		lda	des_r1,x	;save rn origin	to temp
		sta	des_temp1,x
		inx
		cpx	#4
		bne	ecd65

		ldx	#0
ecd7
		stx	des_x

		lda	etbl,x		;perform e function
		sta	remainder
		lda	#4		;4 bytes only
		sta	des_count
ecd8
		dec	des_count
		sec
		lda	remainder
		sbc	#08
		sta	remainder
		beq	ecd82		;= 0 ?
		bcs	ecd8		;> 0 ?

ecd82
		clc
		lda	remainder
		adc	#8
		sta	remainder

		ldx	remainder
		bne	ecd84		;x = 0 ?
		ldx	#8		;set x to 8, if	yes
ecd84
		dex
		lda	des_msk,x
		ldy	des_count
		clc
		and	des_r1,y
		beq	ecd9
		sec
ecd9
		ldx	#5
ecda
		rol	des_work3,x
		php
		dex
		bmi	ecdb0
		plp
		bra	ecda

ecdb0
		plp
		ldx	des_x
		inx
		cpx	#48
		beq	ecdb1
		jmp	ecd7

*
* eor with k(48	bits)
*
ecdb1
		ldy	#0
ecdb
		ldx	key_x		;get current k(n) pointer
		lda	k1,x
		eor	des_work3,y
		sta	des_work3,y
		inx
		stx	key_x		;save pointer for k(n) blocks
		iny
		cpy	#6
		bne	ecdb

*
* transform 48 bits into 32 bits s(b1),...,s(bn)
*
		ldx	#0
ecdc
		jsr	saddr
		stx	des_temp
		lda	des_work3	;des_work will shift 6 times
		and	#%10000100	;bit 7/2 are row #'s
		bpl	ecdd
		and	#%01111111	;strip out high	bit
		ora	#%00001000	;save high bit to bit 3
ecdd
		lsr	a
		lsr	a
		tax			;save row #

		lda	des_work3
		and	#%01111000	;bit 6-3 are column #'s
		lsr	a
		lsr	a
		lsr	a		;column	# in acc now

ecde
		cpx	#0
		beq	ecdf
		clc
		adc	#16		;find s	tbl pointer
		dex			;decrement row #
		bra	ecde

ecdf
		tay
		lda	s1,y
		asl	a		;shift result to high byte
		asl	a
		asl	a
		asl	a

*
* move result to des_r1
*
		ldy	#4
ecd10
		rol	a
		ldx	#3
ecd11
		rol	des_temp2,x
		php
		dex
		bmi	ecd110
		plp
		bra	ecd11

ecd110
		plp
		dey
		bne	ecd10

*
* shift	des_work left 6	more times
*
		ldy	#6
ecd12
		ldx	#5
ecd13
		rol	des_work3,x
		dex
		bpl	ecd13
		dey
		bne	ecd12

*
* 8 times already?
*
		ldx	des_temp
		inx
		cpx	#8
		beq	ptbl0
		jmp	ecdc		;do next s tbl

*
* perform 32 bits permutation
* use ptbl
*
ptbl0
		ldx	#0
ptbl1
		stx	des_x2
		lda	ptbl,x
		sta	remainder
		lda	#4
		sta	des_count
ptbl2
		dec	des_count
		sec
		lda	remainder
		sbc	#08
		sta	remainder
		beq	ptbl22		;= 0 ?
		bcs	ptbl2		;> 0 ?

ptbl22
		clc
		lda	remainder
		adc	#8
		sta	remainder

		ldx	remainder
		bne	ptbl24		;x = 0 ?
		ldx	#8		;set to	8, if yes
ptbl24
		dex
		lda	des_msk,x
		ldy	des_count
		clc
		and	des_temp2,y
		beq	ptbl3
		sec
ptbl3
		ldx	#3
ptbl4
		rol	des_r1,x
		php
		dex
		bmi	ptbl5
		plp
		bra	ptbl4

ptbl5
		plp
		ldx	des_x2
		inx
		cpx	#32
		bne	ptbl1


*
* exclusive or with left block
* perform function = ln	eor f(rn,kn)
*
		ldx	#0
ecd112
		lda	des_r1,x	;load rn
		eor	des_l1,x	;eor with ln
		sta	des_r1,x	;save result to	rn
		inx
		cpx	#4
		bne	ecd112

		ldx	#0
ecd115
		lda	des_temp1,x	;move rn origin	to ln
		sta	des_l1,x
		inx
		cpx	#4
		bne	ecd115

*
* 16 times already?
*
		ldx	des_x1
		inx
		cpx	#16
		beq	ecd140
		jmp	ecd60		;yes, go back

*
* perform inverse permutation
*
ecd140

		jsr	swap		;swap left and right halves

		ldx	#0
ecd14
		stx	des_x
		lda	invptbl,x
		sta	remainder
		lda	#8
		sta	des_count
ecd15
		dec	des_count
		sec
		lda	remainder
		sbc	#08
		sta	remainder
		beq	ecd152		;= 0 ?
		bcs	ecd15		;> 0 ?

ecd152
		clc
		lda	remainder
		adc	#8
		sta	remainder

		ldx	remainder
		bne	ecd154		;x = 0 ?
		ldx	#8		;set x to 8, if	yes
ecd154
		dex
		lda	des_msk,x
		ldy	des_count
		clc
		and	des_l1,y
		beq	ecd16
		sec
ecd16
		ldx	#7
ecd17
		rol	des_work1,x
		php
		dex
		bmi	ecd18
		plp
		bra	ecd17

ecd18
		plp
		ldx	des_x
		inx
		cpx	#64
		bne	ecd14

		rts			;end of	des modules


swap					;switch des_l1 and des_r1
		ldx	#3
swap1		lda	des_l1,x
		pha
		lda	des_r1,x
		sta	des_l1,x
		pla
		sta	des_r1,x
		dex
		bpl	swap1
		rts

*
* increment s table pointer
*
*	x = s# (0-7)
*
saddr
		clc
		lda	#s1
		adc	tab64l,x
		sta	ecdf+2
		lda	#>s1
		adc	tab64h,x
		sta	ecdf+3
		rts

		ENDP
		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Finder/EasyMount/EasyMount b/IIGS.601.SRC/A.U.G/Finder/EasyMount/EasyMount
new file mode 100644
index 0000000..2e536d4
Binary files /dev/null and b/IIGS.601.SRC/A.U.G/Finder/EasyMount/EasyMount differ
diff --git a/IIGS.601.SRC/A.U.G/Finder/EasyMount/EasyMount.aii b/IIGS.601.SRC/A.U.G/Finder/EasyMount/EasyMount.aii
new file mode 100644
index 0000000..5f56ad7
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Finder/EasyMount/EasyMount.aii
@@ -0,0 +1 @@
+******************************************************************************
*
* EasyMount.aii
* by Dave Lyons  7-Jun-91
*
* Copyright 1991-1993 Apple Computer, Inc
* All Rights Reserved
*
* Core code borrowed from "init.aii" in the QuickMount/Choose project,
* originally by TGH (Tim Harrington) 04/06/88.
*
******************************************************************************
*
* 7..10-Jun-91 DAL 1.0d1
*   Pretty much works.  You can double-click on existing QuickMount documents
*     to mount servers.
*   You can select one or more mounted servers and choose "Create Server Alias..."
*     from the Finder's Extras menu.
*   Holding down Option while double-clicking or Opening a QuickMount document
*     forces the "Connect as" dialog up even if the password is okay or the
*     document is set for Guest access.
*
* 10..11-Jun-91 DAL --> 1.0d2
*   Improved the Connect As dialog--comes up right for Guest access, etc.
*   Fixed User ID fed to AcceptRequests (was garbage).
*   Changed AcceptRequests string to "Apple~EasyMount~".
*
* 23-Jun-91 DAL --> 1.0d3
*   Changed UAM error message at Mark Day's suggestion.
*   Added AlertWindow errors for "This icon isn't a server" and "You must
*     first select one or more server icons."
*   Now accepts request $8000 (srqMountServer) to mount a server volume.
*
* 14-Jul-91 DAL --> 1.0d4
*   Now informs the Finder that the directory changed when you create a
*     new alias file.
*   Now enables and disables the Extras menu item as appropriate (when the
*     selection changes).
*
* 30-Jul-91 DAL --> 1.0d5
*   Extras menu item is now initially disabled.
*
* 5-Aug-91 DAL
*   Check for AppleShare FST presence; if it ain't there, set the "unload
*   me" flag on the stack, so the system will unload me.
*
* 19-Aug-91 DAL --> 1.0d6
*   Andy added a dc.w 0 to the add-to-extras result buffer, to go with
*     Finder 6.0d46.  I moved it by one line to be in the right place.'
*
* 4-Sep-91 DAL --> 1.0d7
*   Turned on flag bit in menu item, so the Finder knows it's our first
*     item (this creates a dividing line above our item if we are not
*     the first thing in the Extras menu).
*
* 24-Oct-91 MSD --> 1.0d8
*   ¥ I noticed TryMount was doing asynchronous NBP lookup.  I can't figure
*     out why (the code waits until it completes anyway), so I simplified it
*     by making the lookup synchronous.
*   ¥ If volume didn't get mounted, you no longer get logged off if you were
*     already logged on.
*   ¥ The user volume in the FIMountVol flags is now set correctly.  If the
*     volume couldn't be found in the FPGetSrvrInfo reply, the user volume
*     flag will not be set.
*   ¥ When asked for a password, the Guest radio button is now dimmed if
*     guests do not have access to the server.
* 29-Oct-91 MSD (still 1.0d8)
*   ¥ When you open a document with the Option key down, and you're already
*     logged on, you shouldn't get the Connect As dialog (it's not worth
*     fixing the dialog to show who you've logged on as).
*
* 31-Oct-91 MSD --> 1.0d9
*   ¥ Changed the error messages so they are each a template and allow string
*     substitution (it used to use one error template and subtitute the body
*     of the message.)  Changed the text of the server not found message to
*     include the name of the volume.
*  1-Nov-91 MSD
*   ¥ TestUserVolume wasn't advancing its pointer to the next volume name
*     properly, so it wouldn't identify a user volume that wasn't the first
*     volume returned in the list.
*   ¥ Changed structure of dialog/mount loop so it can try first without displaying
*     an error.  Then it falls into the loop where it displays a message for
*     any error (including bad password).
*   ¥ The indices used to access the error tables in ReportMountError were off
*     by two bytes (which meant the unknown error case never worked right).
*
* 3-Nov-91 DAL
*   Changed several exclamation marks to periods in error messages...they were
*     getting on my nerves.
*   When a volume is successfully mounted, and on error $0A11 (volume already
*     mounted), we now try asking the Finder to open the window (or bring it to
*     the front), unless the Control key is down.  This is done with a kludgey
*     Run Queue task for the moment, since I have to let the Finder finish
*     mounting the server before I can successfully ask the Finder to open its
*     window.
*
*  8-Nov-91 MSD --> 1.0d10
*   ¥ After a volume is mounted, it now calls the AppleShare FST's FST_Specific
*     call Get_User_Path to force FIUserPrefix to be set.
*
* 18-Nov-91 DAL --> 1.0d11
*   ¥ To open windows faster, force a ScanDevices and kill the 2-second delay.
*
* 24-Nov-91 DAL --> 1.0d12
*   ¥ Use finderSaysIdle to know when it's safe to open the window for a volume
*     we mounted.
*
* 25-Nov-91 DAL
*   ¥ Under pre-6.0, init now asks to be unloaded.
*   ¥ On finderSaysBeforeOpen, we now check whether this is an Open or
*     a Print.  We only respond to Open.
*
* 8-Jan-92 DAL
*   ¥ Accept systemSaysEjectingDev to kill the need-to-open-window flag.
*
* 28-Jan-92 DAL 1.0d15
*   ¥ Make theUserName buffer longer (avoid putting a garbage byte into the
*     data files).
*
*   NOTE:  EasyMount does not support 32-character user names; max is 31.
*
******************************************************************************
*
* 24-Feb-92 DAL, 1.1d1 for 6.0.1
*
* Changed tellFinderXXX calls to set the SendRequest stopAfterOne bit.  This
* is slightly more efficient.
*
* 25-Feb-92 DAL
*
* On handling a redundant finderSaysGoodbye call, we take no action.
* We now accept srqGoAway.
*
* 04-Mar-92 DMA
*
* Adding support for opening folders, documents, and applications on any 
* device.
*
* 13-Mar-92 DAL --> 1.1d2
*
* Minor stuff on top of Darin's stuff:  Changed "Create Alias..." to
* "Make Alias..." and cleaned up a couple of comments.  Added a note
* at handleEjectingDev that this will need to be fixed up.
*
* 17-Mar-92 DMA --> 1.1d3
*
* Fix so offline volumes will be mounted and displayed before attempting
* to open windows, apps, or documents from them.  Old style EasyMount
* documents now correctly open the server volume window.
*
* 25-Mar-92 DAL
*
* Updated messages to say "disk" instead of "volume", and not to use
* "mount."
*
* 15-Jul-92 DAL --> 1.1d7 for 6.0.1d7
*
* Crunched code by using OpenResourceFileByID, HiliteCtlByID, SetCtlValueByID.
*
* 17-Jul-92 DAL --> 1.1d8 for 6.0.1d8
*
* Turned on mwUpdateAll bit in DoModalWindow call.
* Changed "server is shutting down, so you can't log on" to say that it might
* be starting up, instead.
*
* 12-Aug-92 DAL --> 1.1d9 for 6.0.1d9
*
* EasyMount loads even if network is not available, since it's useful for
* local networks now.
*
* 25-Aug-92 DAL --> 1.1d10 for 6.0.1d10
*
* Changed the AppleTalk-busy message to suggest closing network control panels.
*
* 15-Sep-92 DAL --> 1.1d11 for 6.0.1d11
*
* Fixed bad-password message to match the AppleShare control panel.
*
* 17-Sep-92 DAL
*
* Added check for zero volumes in TestUserVolume.
*
* 26-Jan-93 JCM --> 1.1d13 for 6.0.1d13
*
* ¥ Fixed "Save" from the connect-as dialog to not destroy EasyMount 1.0 documents.
*   Now, we never re-write the alias pathaname, since there never was a mechanism to
*   change an aliases target after it was created. This puts to rest the parameter out
*   of range error many reported.
*
* ¥ Made srqMountServer work properly with the new 1.1 file format that includes the
*   alias pathname at the end. In the process, I re-worked most of the file read code
*   to actually report errors properly if any occurred. Previously, errors would have
*   been detected after a few GS/OS calls, but the error code would not be passed back
*   up the calling chain.
*
*  2-Mar-93 JCM --> 1.1d14 for 6.0.1.d14
*
* ¥ Made this thing work in 320 mode. I moved the controls around a bit and hid the
*   window when it's initially created.
*
* ¥ Removed some dead code from TryMount which was around from when we didn't use the
*   linked-list and had a single pathname buffer to mount.
*
* ¥ Made the "don't open windows when control key is down" feature work again.
*
* 16-Mar-93 JCM 
*
* ¥ Added Dave's two new calls, UseColorTable and RestoreColorTable, to the password
*   dialog. This makes our icon look cool, even in 320-mode, since we ask for the
*   standard 640-mode color table.
*
* ¥ Fixed the password dialog to not ask Finder to open a window when you clicked
*   "Cancel". I moved the calls to AddToPathList from ParseFile to MountByData.
*   Before, we would always ask the window to be opened, even if the user cancelled
*   the mount, or we got an error.
*
* ¥ If you ever went through the password dialog with an 8-character password, but
*   made no changes to it, it would be truncated to 7 chars and you then couldn't
*   connect since it would now be wrong.
*
* 18-Mar-93 JCM
*
* ¥ Fixed the "don't open windows when control key is down" feature work again, for the
*   second time. I fixed it to read the modifiers that Finder fed us, but I masked for
*   the control key with the hardware modifiers bit mask, not the event control key mask.
*   I now do it the right way.
*
* 19-Mar-93 JCM
*
* ¥ One more fix to the "don't open windows when control key is down" feature. We were
*   calling AddToPath list regardless of the state of the control key. In the case where
*   you had previously mounted a server volume but let the window open, we would add that
*   disposed handle to the path list. Finder doesn't like that too much, and neither do I.
*
* 23-Mar-93 DAL
*
* Added 4 lines in the request procedure to make it reentrant.  Maybe I'm just being
* paranoid, or maybe not.  (The pitfall avoided is an interrupt-time SendRequest
* coming through and making our original dispatch use the wrong request code.)
*
* 23-Mar-93 JCM/DAL
*
* ¥ Fixed two of Dave's four lines to be in the right place. He was pulling and saving
*   a value after the data bank had been restored, which resulted in it being put into
*   the wrong bank most of the time.
*
* ¥ Now calling GetNextEvent right after we show the password window so we can eat any
*   possible system window deactivates. This allows us to safely nest UseColorTable and
*   RestoreColorTable without worrying about the screen being restored by someone else.
*
* 25-Mar-93 SS
*
* ¥ Added menu key equivalents 'Mm'.
*
* 25-Mar-93 JCM
*
* ¥ Made local aliases work again. We were never telling Finder to open them if the
*   document had a pcount of 1. Whoops.
*
* ¥ Now we only allow aliases to be made for disks, folders, and applications.
*
* 2-Apr-93 JCM
*
* ¥ Fixed srvNameBuff and zoneNameBuf to be large enough to hold 31-char GS/OS strings.
*   They were large enough to hold 32-char PStrings, but that's not what the FST returns.
*
******************************************************************************
*
* ============
* Things to do
* ============
*
* Investigate extending the EasyMount document format to locate specific
*   folders (or files?) on a server.  (Or even locally?)
*
* Should not allow password to be left lying around in memory.
*
* Should encrypt passwords at least a little (in files).
*
* When you click on Registered User and there's no name, it should default
*   to the ATINIT name.
*
* Should prompt for volume password if it isn't recorded.
*
******************************************************************************

	print push,off
	include 'all.macros'
	include 'e16.finder'
	include 'e16.gsos'
	include 'e16.locator'
	include 'e16.quickdraw'
	print pop

RamDispatch	equ $E11014

True	equ $8000
False	equ $0000

*******************************************************************************
*
* SendRequest codes that we accept (other than finderSays codes, in E16.Finder,
* and system-wide calls, in E16.Locator)
*
*******************************************************************************
srqMountServer	equ $8000

*******************************************************************************
*
* Structure of the finderSaysBeforeOpen parm block
*
*******************************************************************************
opCount	equ 0
oPathname	equ opCount+2
oSmallRect	equ oPathname+4
oFiletype	equ oSmallRect+4
oAuxtype	equ oFiletype+2
oModifiers	equ oAuxtype+4	;for Finder 6.0d39
oReserved	equ oModifiers+2
oPrintFlag	equ oReserved+4	;for Finder 6.0d59

*******************************************************************************
*
* Filetype information we care about
*
*******************************************************************************
QuickMountFileType	equ $00E2
QuickMountAuxtype	equ $ffff

******************************************************************************
******************************************************************************
EasyMount	procname
	import DES

	Case off

	sta >myMemID

	pha
	_QDVersion
	pla
	and #$0fff
	cmp #$0307
	bcc @unload	;25-Nov-91 DAL

;;;	jsr CheckForAppleShare
;;;	bcc @HaveAppleShare
	bra @StayLoaded

@unload	lda #1	;set the "unload me" flag
	sta 4,s
	rtl
;;;@HaveAppleShare
@StayLoaded

	pushlong #myReqProcName
	lda >myMemID
	pha	;memory ID
	pushlong #myReqProc
	_AcceptRequests
	bcc @ok

	_SysBeep

@ok	rtl

myReqProcName	str 'Apple~EasyMount~'

myMemID	dc.w 0

;**************************************************************
;*
;* CheckForAppleShare -- return CLC if the AppleShare FST is here
;*
;**************************************************************
;CheckForAppleShare	pushlong #fstSpecificParms
;	pea $2033	;FSTSpecific
;	jsl $e100b0
;	bcc @ok
;	cmp #$53
;	beq @ok
;	sec
;	rts
;@ok	clc
;	rts
;
;fstSpecificParms	dc.w 2	;pCount = 2
;	dc.w $000D	;FST ID = AppleShare
;	dc.w 0	;illegal FST-specific code

**************************************************************
*
* myReqProc -- look for finderSaysBeforeOpen with a
*              QuickMount document
*
**************************************************************
myReqProc	name

oldDPage	equ 1
RTL1	equ oldDPage+2
DataOut	equ RTL1+3
DataIn	equ DataOut+4
Request	equ DataIn+4
Result	equ Request+2
	
	phd
	tsc
	tcd
	
	phb
	phk
	plb

*** added 23-Mar-93 DAL to make the request proc reentrant (paranoia?)
	lda requestTable
	pha
*** end 23-Mar-93

	lda <Request
	sta requestTable
	ldx #requestTableEnd-requestTable
@search	dex
	dex
	dex
	dex
	cmp requestTable,x
	bne @search
	jsr (requestTable+2,x)	;return SEC = handled
	ror <Result

*** added 23-Mar-93 DAL
	pla
	sta requestTable
*** end 23-Mar-93

	plb

	pld
	lda 2,s
	sta 12,s
	lda 1,s
	sta 11,s
	ply
	ply
	ply
	ply
	ply
	rtl

requestTable	dc.w $7777,ignoreRequest
	dc.w srqGoAway,handleGoAway	;added 25-Feb-92 DAL
	dc.w finderSaysExtrasChosen,handleExtrasChosen
	dc.w systemSaysEjectingDev,handleEjectingDev
	dc.w finderSaysBeforeOpen,handleOpenFailed
	dc.w finderSaysSelectionChanged,handleSelectionChanged
	dc.w finderSaysHello,handleHello
	dc.w finderSaysGoodbye,handleGoodbye
	dc.w srqMountServer,handleMountServer
	dc.w finderSaysIdle,handleFinderIdle
requestTableEnd

ignoreRequest	clc
	rts

*******************************************************************************
*
* handleGoAway
*
* Respond to an srqGoAway request by saying Yes, we can go away (accept
* the request and return our userID in the dataOut buffer).
*
* dataOut:
*   +000: recvCount
*   +002: userID (return 0 if we cannot go away)
*   +004: flags (0 = not restartable from RAM, $8000 = restartable)
*
*******************************************************************************
handleGoAway	name

	lda myMemID
	ldy #2
	sta [<dataOut],y	;userID = my ID
	iny
	iny
	lda #0
	sta [<dataOut],y	;flags = 0

	sec	;accept the request
	rts

*******************************************************************************
*
* handleHello
*
*******************************************************************************
handleHello	name
	pea tellFinderAddToExtras
	pea sendToName+stopAfterOne	;24-Feb-92 DAL
	pushlong #nameOfFinder
	pushlong #aliasItemTemplate
	pushlong #addToExtrasBuffer
	_SendRequest

	sec	;handled
	rts

nameOfFinder	str 'Apple~Finder~'

aliasItemTemplate	dc.w $8000	;version (bit 15 = dividing line flag for Finder)
	dc.w 0	;id (ignored)
	dc.b 'Mm'	;key equivs  *** added 25-Mar-93 SS
	dc.w 0	;check character
	dc.w $0080	;item flag (disabled)
	dc.l myAliasItemName

myAliasItemName	str 'Make Alias...'

addToExtrasBuffer	dc.w 0
	dc.w 0
makeAliasItemID	dc.w 0
	dc.w 0	;this is result space for the Extras Menu ID

*******************************************************************************
*
* handleGoodbye
*
*******************************************************************************
handleGoodbye	name

*** added 25-Feb-92 DAL -- No action on a redundant finderSaysGoodbye
	lda makeAliasItemID
	beq @doNothing
*** end 25-Feb-92

	pea tellFinderRemoveFromExtras
	pea sendToName+stopAfterOne	;24-Feb-92 DAL
	pushlong #nameOfFinder
	pea 0
	lda makeAliasItemID
	pha
	pushlong #removeFromExtrasBuffer
	_SendRequest

	stz makeAliasItemID

@doNothing	sec	;handled
	rts

removeFromExtrasBuffer dc.w 0,0


*******************************************************************************
*
* handleSelectionChanged
*
* Get the current selection and see if we should enable or disable our
* menu item in the Extras menu.
*
*******************************************************************************
handleSelectionChanged name

*** added 25-Feb-92 DAL -- If we have no menu item, don't mess with it (moved check)
	lda makeAliasItemID
	beq @noAction
*** end 25-Feb-92

	jsr GetSelectedIcons
	bcs @disable
	lda iconsResult
	bne @disable	;error getting icons
	
	pushlong iconsHandle
	jsr CheckTheIcons
	bcs @disable

@enable	ldx #$300F	;EnableMItem
	bra @set
@disable	ldx #$310F	;DisableMItem
@set	lda makeAliasItemID
	pha
	jsl $e10000	;X already = function
	jsr DispIconsHndl
@noAction	sec	;handled
	rts

*******************************************************************************
*
* CheckTheIcons
*
* Return CLC if we should enable our Make Alias item, based on
* the selected icons.
*
* Input: String handle on stack
*
* Format of string handle is:
*   +000 WORD  number of strings
*   +002 WSTR  first string
*   +xxx WSTR  second string
*    ...
*
* Output:  carry flag
*
*******************************************************************************
CheckTheIcons	name
	phd
	pha
	pha	;ptr
	tsc
	tcd

@ptr	equ 1
@oldD	equ @ptr+4
@rts	equ @oldD+2
@handle	equ @rts+2

	pei <@handle+2
	pei <@handle
	_HLock

	ldy #2
	lda [<@handle],y
	sta <@ptr+2
	lda [<@handle]
	sta <@ptr

	lda [<@ptr]	;Get the number of selected items
	sec	;Assume no icons (carry set)
	beq @done	;and leave
	clc	;Icons are selected, return carry clear

@done	pla
	pla	;ptr
	pld
	plx
	pla
	pla
	phx
	rts

*******************************************************************************
*
* handleExtrasChosen
*
*******************************************************************************
handleExtrasChosen	name
	lda <dataIn
	cmp makeAliasItemID
	beq @makeAlias
	clc	;did not handle
	rts

@makeAlias	jsr GetSelectedIcons
	bcs @ouch
	lda iconsResult
	bne @ouch

	jsr GetStandardFile
	bcs @ouch

	pushlong IconsHandle
	jsr MakeTheAliases

	jsr KillStandardFile

	sec	;handled
@exit	jsr DispIconsHndl
	rts

@ouch	_SysBeep
	clc
	bra @exit

getIconsBuffer	dc.w 0	;recvCount
iconsResult	dc.w 0	;finderResult
iconsLocation	dc.l 0	;0=desktop, <>0=window pointer
iconsHandle	dc.l 0	;StringHandle of selected icons

GetSelectedIcons	name
	stz iconsHandle+1
	pea tellFinderGetSelectedIcons
	pea sendToName+stopAfterOne	;24-Feb-92 DAL
	pushlong #nameOfFinder
	pea 0
	pea 0	;dataIn = reserved
	pushlong #getIconsBuffer
	_SendRequest
	rts

DispIconsHndl	name
	php
	lda iconsHandle+1
	beq @noHandle
	pushlong iconsHandle
	_DisposeHandle
@noHandle	plp
	rts

*******************************************************************************
*
* MakeTheAliases
*
* For each server, use SFPutFile to ask the user where to put a QuickMount
* document to mount it, and create the document.
*
* Input: String handle on stack
*
* Format of string handle is:
*   +000 WORD  number of strings
*   +002 WSTR  first string
*   +xxx WSTR  second string
*    ...
*
* Output:  none (parameter is stripped)
*
*******************************************************************************
MakeTheAliases	name
	phd
	pha	;numStrings
	pha
	pha	;ptr
	tsc
	tcd

@ptr	equ 1
@numStrings	equ @ptr+4
@oldD	equ @numStrings+2
@rts	equ @oldD+2
@handle	equ @rts+2

	pei <@handle+2
	pei <@handle
	_HLock

	ldy #2
	lda [<@handle],y
	sta <@ptr+2
	lda [<@handle]
	sta <@ptr

	lda [<@ptr]
	sta <@numStrings
	beq @oopsNoIcons

	lda #2
	jsr @addToPtr

@repeat	jsr @MakeOneAlias
	bcs @done

	lda [<@ptr]	;bump ptr by length+2
	inc a
	inc a
	jsr @addtoPtr

	dec <@numStrings
	bne @repeat

@done	pla
	pla	;ptr
	pla	;numStrings
	pld
	plx
	pla
	pla
	phx
	rts

@addToPtr	clc
	adc <@ptr
	sta <@ptr
	bcc @1
	inc <@ptr+2
@1	rts

@oopsNoIcons	pea $400C	;operation failed
	_SysBeep2

	pha	;space for button
	pea $0020
	pea 0
	pea 0	;no substitutions
	pushlong #noIconsMessage
	_AlertWindow
	pla	;button # (ignore)
	bra @done

*******************************************************************************
*
* @makeOneAlias -- make a QuickMount document
*
* Input: <@ptr is a WString pathname of a mounted server volume
*
* Output:  CLC = Created an alias file where the user wanted
*          SEC = stop (error or cancel)
*
*******************************************************************************
@makeOneAlias	ldy <@ptr+2
	lda <@ptr
	clc
	adc #2
	bcc @3
	iny
@3	sty FullPathPtr+2	;Save ptr to the pathname
	sta FullPathPtr

*** Added - 25-Mar-93 JCM - Only allow aliases for disks, folders, and apps.

	ldy <@ptr+2
	lda <@ptr	
	jsr GetFileInfo	;see if we can deal with this type
	bcs @badType
	jsr ValidateType	
	bcc @typeOk

@badType	pha	;space for AlertWindow result
	pea $0021	;flags (cool button layout + substitute pStrings)
	lda #0
	pha
	pha	;no sub strings
	pea ErrNope>>16	;push high word of error message pointer
	pea ErrNope	;push low word of message pointer
	_AlertWindow	;show the alert
	pla	;ignore the button pressed

	clc
	
	rts

@typeOk

*** End - 25-Mar-93 JCM

	lda <@ptr+2
	ldy <@ptr
	jsr GetServerInfo

	lda #2	;Flag it as a server
	bcc @IsAServer

	dec a	;Unless we find out its not

@IsAServer	sta AliasPCount	
	lda [<@ptr]	;Get the path length
	sta AliasPathSize
	sta FullPathLen 	;And save it

; Copy the name for standard file.  If it's a pathname with colons, just 
; copy the filename.
@continue	stz defaultName	;Clear length word
	sep #$30	;of destination
	longa off
	longi off
	
	ldy FullPathLen	;Get length of string
	beq @ZeroLength
	
@BackupLoop	lda [<@ptr],y	;Is the char a colon?
	cmp #':'
	beq @FarEnough	;Yes, start copying
	dey	;Backup a char
	bne @BackupLoop	;If not beginning, go again
	iny	;Up past length word
	
@FarEnough	ldx #0	;X contains length of new string
@CopyLoop	iny	;Forward one char
	lda [<@ptr],y	;Copy the char
	sta defaultName+2,x
	inx
	cpy FullPathLen	;Have we hit the end?
	blt @CopyLoop
	beq @CopyLoop
	stx defaultName	;Store length

@ZeroLength	rep #$30	;Back to long mode
	longa on
	longi on
	
	pea 120	;x
	pea 30	;y
	pea 0
	pushlong #sfPrompt
	pea 0
	pushlong #defaultName
	pushlong #newReplyRec
	_SFPutFile2
	bcs @ouch

	lda rrGood
	beq @cancel

	jsr WriteNewAliasFile
	php
	pha

	pushlong rrNameRef
	_DisposeHandle
	pushlong rrPathRef
	_DisposeHandle

	pla
	plp
	bcs @ouch

@exit	rts

@ouch	jsr ShowErrorWindow
@cancel	sec
	rts


noIconsMessage	dc.b '32/First select one or more icons./^#1',0

ShowErrorWindow	name
	pha
	php

	pha	;space for ErrorWindow result
	ldx #0
	phx	;subType
	phx
	phx	;subArray
	pha	;error
	_ErrorWindow
	pla	;button number (ignore)
	
	plp
	pla
	rts

sfPrompt	str 'Create alias as:'

defaultName	ds.b 36

newReplyRec
rrGood	dc.w 0
rrFileType	dc.w 0
rrAuxType	dc.l 0
	dc.w 3	;name is new handle
rrNameRef	dc.l 0
	dc.w 3	;path is new handle
rrPathRef	dc.l 0

*******************************************************************************
*
* GetServerInfo
*
* Input:  AY = pathname of server volume
*
* Output: ReadBuffer is filled in (UserName, VolumeName, EntityName)
*         SEC = error
*
*******************************************************************************
GetServerInfo	name
	phd
	pha
	phy	;keep path on stack (@volname)
	tsc
	tcd

@volname	equ 1

	jsr ZeroReadBuffer
	
; copy @volname (WString) into VolumeName (PString).  Only copies until the
; the first colon (exclusive) and omits any leading colon.

	ldy #2	;Skip first colon if there is one
	sep #$30
	longa off
	longi off
	stz VolumeName
	
	lda [<@volname],y
	cmp #':'
	beq @SkipLeadingColon
	sta VolumeName+1	;Not a colon, keep it
	inc VolumeName
@SkipLeadingColon	iny
	
@CopyVolLoop	tya	;Have we reached the end?
	dec a
	dec a
	cmp [<@volname]
	beq @DoneWithCopy
	lda [<@volname],y
	cmp #':'	;Leave if we hit another colon
	beq @DoneWithCopy
	tyx	;Save the character in the
	ldy VolumeName	;appropriate place in the new
	iny	;string.
	sta VolumeName,y
	sty VolumeName
	txy
	iny
	bra @copyVolLoop
	
@DoneWithCopy	rep #$30
	longa on
	longi on

*
* Get Server name and zone name
*
	lda <@volName+2
	ldy <@volName
	sta serverPath+2
	sty serverPath
	sta devNumPath+2
	sty devNumPath

	pushlong #GetSrvrNameParms
	pea $2033	;FSTSpecific
	jsl $e100b0
	bcs @ouch
*
* copy server name, 'AFPServer', zone name into EntityName
*
	lda theServerName
	xba
	sta theServerName
	lda theZoneName
	xba
	sta theZoneName

	ldx #0	;bumped along by AppendVolPString
	ldy #^theServerName+1
	lda #theServerName+1
	jsr AppendVolPString
	lda #CAFPName
	ldy #^CAFPName
	jsr AppendVolPString
	ldy #^theZoneName+1
	lda #theZoneName+1
	jsr AppendVolPString

*** get user name & stuff it into UserName
	pushlong #GetDevNumParms
	pea $2020	;GetDevNumber
	jsl $e100b0
	bcs @ouch

	lda theDevNumber
	sta userDevNumber

	pushlong #UserInfoParms
	pea $2033	;FSTSpecific
	jsl $e100b0
	bcs @ouch

	lda theUserName
	xba
	sta theUserName

	pushlong #theUserName+1
	pushlong #UserName
	pushlong #32
	_BlockMove

	clc
	bra @exit

@ouch	sec
	and #$00ff
@exit	plx
	plx
	pld
	rts

GetSrvrNameParms	dc.w 5	;pcount
	dc.w $000D	;AppleShare FST
	dc.w $000D	;GetSrvrName
serverPath	dc.l 0
	dc.l srvNameBuff
	dc.l zoneNameBuff

*** Fixed - 2-Apr-93 JCM - Allow 32-char names.

;srvNameBuff	dc.w 34
;theServerName	ds.b 32
;
;zoneNameBuff	dc.w 34
;theZoneName	ds.b 32

srvNameBuff	dc.w 36
theServerName	ds.b 34

zoneNameBuff	dc.w 36
theZoneName	ds.b 34

*** End - 2-Apr-93 JCM

GetDevNumParms	dc.w 2	;pcount
devNumPath	dc.l 0
theDevNumber	dc.w 0

UserInfoParms	dc.w 4	;pcount
	dc.w $000D	;AppleShare FST
	dc.w $0006	;User Info
userDevNumber	dc.w 0
	dc.l userNameBuff

;userNameBuff	dc.w 34
;theUserName	ds.b 32
*** 28-Jan-92 DAL
userNameBuff	dc.w 36
theUserName	ds.b 34
*** end 28-Jan-92

*
* AppendVolPString
*
* Input:  YA = pointer to pstring
*          X = offset into EntityName structure
*
* Output: Stored string, advanced X
*
AppendVolPString	name
	phd
	phy
	pha
	tsc
	tcd

	sep #$30
	longa off
	longi off

	ldy #0
@char	lda [1],y
	sta EntityName,x
	inx
	iny
	tya
	cmp [1]
	bcc @char
	beq @char

	rep #$30
	longa on
	longi on

	ply
	ply
	pld
	rts

*******************************************************************************
*
* WriteNewAliasFile
*
* Input:  contents of ReadBuffer must be valid
*         rrPathRef -- handle to new alias file pathname
*
*******************************************************************************

WriteNewAliasFile	NAME	;entry used by Standard File new-alias creation code

	pushlong rrPathRef
	_HLock

	lda rrPathRef
	ldx rrPathRef+2
	jsr DerefPathname	;XA = rrPathRef^+2 (it's a result buffer!)

	jsr SavePathPtrs	;save pointers to destination alias file pathname

	bra WriteAliasCommon

*******************************************************************************
*
* RewriteAliasFile - Used when "Save" is clicked in the server password dialog.
*
* Input:  contents of ReadBuffer must be valid
*         X (high)/ Acc (low) contain pointer to destination alias file pathname.
*
*******************************************************************************

RewriteAliasFile	NAME

	jsr SavePathPtrs	;save pointers to destination alias file pathname

	stz FullPathPtr+1	;flag to not write the original file path at the end

WriteAliasCommon	NAME

	lda #3	;read/write
	sta OpenAccess

@openFile	_OpenGS OpenBlock
	bcc @writeFile	;the file already exists, just rewrite the header
	
	cmp #fileNotFound
	bne @err

	_CreateGS CreateBlock
	bcc @openFile
	
	bra @err

@writeFile	lda OpenRef
	sta ReadRef
	sta CloseRef
	sta FullPathRef

	_WriteGS ReadBlock		;write the standard header

	lda FullPathPtr+1		;are we re-writing a file? (changing pwd/user)
	beq @isExistingFile		; yup, no need to write the path

	_WriteGS FullPathBlock
@isExistingFile
	php
	pha
	_CloseGS CloseBlock
	pla
	plp

@err	rts

DestroyBlock	dc.w 1	;pcount
destroyPath	dc.l 0

CreateBlock	dc.w 4	;pcount
createPath	dc.l 0
	dc.w $00C3	;unlocked
	dc.w QuickMountFileType
	dc.l QuickMountAuxtype

DerefPathname	NAME

	phd

	phx
	pha

	tsc
	tcd
	ldy #2
	lda [1],y
	tax
	lda [1]
	clc
	adc #2
	bcc @1

	inx

@1	ply
	ply

	pld

	rts
	
SavePathPtrs	NAME

	stx destroyPath+2
	sta destroyPath
	stx createPath+2
	sta createPath
	stx fileNamePtr+2	;for Open
	sta fileNamePtr

	rts

*******************************************************************************
*
* GetStandardFile -- if StdFile is not here, get it and start it up
*
*******************************************************************************
sfToolNumber	equ $0017

GetStandardFile	name
	stz weStartedSF

	pea 0
	_SFStatus
	pla
	bne @done

	pea sfToolNumber
	pea 0	;minimum version
	_LoadOneTool
	bcs @oops

	inc weStartedSF

	pha
	pha	;space for NewHandle
	pea $0000	;size high
	pea $0100	;size low
	lda myMemID
	pha
	pea $C015	;attributes = fixed bank, etc.
	ldx #0
	phx
	phx	;loc=0
	_NewHandle
	plx
	ply
	bcs @oops
	stx sfHandle
	sty sfHandle+2

	phd
	phy
	phx
	tsc
	tcd
	lda [1]
	sta sfDirPage
	plx
	ply
	pld

	lda myMemID
	pha
	lda sfDirPage
	pha
	_SFStartUp
	rts

@oops	sec
	rts

@done	clc
	rts

*******************************************************************************
*
* KillStandardFile -- if we got StdFile ourselves, shut it back down
*
*******************************************************************************
KillStandardFile	name
	lda weStartedSF
	beq @done

	_SFShutDown
	pea sfToolNumber
	_UnloadOneTool

	pushlong sfHandle
	_DisposeHandle

	stz weStartedSF
@done	rts

weStartedSF	dc.w 0
sfHandle	dc.l 0
sfDirPage	dc.w 0


*******************************************************************************
*******************************************************************************
*
* handleMountServer
*
* dataIn points to:
*   +000: data size (including this data word)
*   +002: image of Server alias document (QM document)
*
* dataOut points to:
*   +000: receive count
*   +002: error code
*
*******************************************************************************
handleMountServer	NAME
	
	jsr ZeroReadBuffer

	lda <dataIn
	ldx <dataIn+2
	
	clc
	adc #ReadBufferLen+2
	bcc @saveSourcePtr
	
	inx
	
@saveSourcePtr	sta ReadPathPtr	;pass pathname source ptr to ParseFile
	stx ReadPathPtr+2
	
	phx
	pha	;source for BlockMove
	pushlong #theDataLength  ;dest for BlockMove
	pea 0
	pea ReadBufferLen+2 ;size for BlockMove
	_BlockMove

	stz theModifiers	;mark Option key not down (1-Nov-91 MSD)

	lda #0	;flag = file not on disk
	jsr ParseFile
	bcs @exitMountServer ;couldn't get a handle

	jsr MountByData

	lda TryMountError

@exitMountServer	ldy #2
	sta [<dataOut],y	;store error code in dataOut buffer

	sec	;we handled it
	rts

*******************************************************************************
*******************************************************************************
*
* handleOpenFailed
*
* The Finder wants us to open some documents, since it couldn't
* find an application to launch.
*
* If this one is a QuickMount document, let's try to mount a server!
*
* DataIn points to the following structure:
*   +000 WORD  parameter count (at least 7)
*   +002 LONG  pointer to class-one pathname
*   +006 LONG  pointer to rectangle to zoom from (NIL if none appropriate) 
*   +010 WORD  filetype
*   +012 LONG  auxtype
*   +016 WORD  modifiers
*   +018 LONG  reserved (icon handle)
*   +022 WORD  PrintFlag (0=Open, nonzero=Print)
*
* Return with SEC if we handled it, CLC if we did not.
*
*******************************************************************************
handleOpenFailed	name
	
*** added 25-Nov-91 DAL -- only honor Open, not Print
	ldy #oPrintFlag
	lda [<dataIn],y
	bne @notOpen
*** end 25-Nov-91

	ldy #oFiletype
	lda [<dataIn],y	;check filetype
	cmp #QuickMountFileType
	bne notQM

	ldy #oAuxtype+2
	lda [<dataIn],y
	bne notQM
	dey
	dey
	lda [<dataIn],y	;check auxiliary type
	cmp #QuickMountAuxtype
	beq handleQMdocument

@notOpen
notQM	clc
	rts

*******************************************************************************
*
* handleQMdocument
*
* DataIn points to the following structure:
*   +000 WORD  parameter count (at least 4)
*   +002 LONG  pointer to class-one pathname
*   +006 LONG  pointer to rectangle to zoom from (NIL if none appropriate) 
*   +010 WORD  filetype
*   +012 LONG  auxtype
*
*******************************************************************************
handleQMdocument	name

	ldy #oModifiers
	lda [<dataIn],y
	sta theModifiers

	pha
	pha
	_GetCursorAdr
	pla
	sta oldCursor
	pla
	sta oldCursor+2
	_WaitCursor

	ldy #oPathname+2
	lda [<dataIn],y
	tax
	dey
	dey
	lda [<dataIn],y
	jsr MountByDocument	;takes pathname in AX, returns error code in Carry/A
	
	php
	pha

	pushlong oldCursor
	_SetCursor

	pla
	plp
	bcs failed
	
	sec
	
	rts

failed	jsr ReportMountError
	
	sec	;we handled it
	
	rts

oldCursor	dc.l 0

theModifiers	dc.w 0

***************************************************************
*
* MountByDocument
*
* Input: Pathname pointer in X-Register high, Accumulator low
*
* Output: SEC = error
*         CLC = OK
*
***************************************************************
MountByDocument	NAME

	stx theFilePath+2
	sta theFilePath
	tay	;get path low in Y like ReadData wants
	jsr ReadData	;path in XY
	bcc MountByData
	
	rts

*
* MountByData -- input = data in ReadBuffer
*                output = CLC if no error, error in MountError
*
MountByData
	lda AliasPCount	; Check if it's a server volume
	beq @JustServerVol	;old-style server-only document
	dec a	;is it a local thing?
	beq justOpenWindow	; yup, just open that window
	dec a	;new-style document?
	beq @JustServerVol	; yup, deal with the server
	
	rts	;file will be opened at next finderSaysIdle
	
@JustServerVol	jsr FindServer	;do NBP lookup first
	bcs exitMountLoop	;couldn't find server
	
	jsr AllocSPReply	; get room for ASP reply buffer
	bcs exitMountLoop
	
	jsr GetStatus	; see if guest login is enabled
	bcs @dispose
	
	lda theModifiers
	and #$0800	; get Option key bit
	beq @silent	; no Option key, try silently first
	jsr TestLoggedOn	; are we logged on yet?
	bcc @AskPassword	; no, so ask for a password first
	
; Try to mount silently first
@silent
	jsr TryMount
	bcc mounted
	cmp #$0A15	; bad password?
	bne exitMountLoop	; no, don't bother asking

; Mount didn't work or Option was down.  Ask for password
@AskPassword
	jsr PromptForPassword
	bcc @TryAgain	;they clicked OK, so try again

	lda #0	;was cancelled, don't display error
	beq @dispose	;dispose of memory and return error

@TryAgain
	jsr TryMount
	bcc mounted	; it worked this time!
	
	cmp #$0A15	;bad password?
	bne exitMountLoop	;other error, give up
	
	sta TryMountError	; save error
	jsr ReportMountError ; show error to user
	
	bra @AskPassword	; let 'em try again
	
@dispose
	pha	; save error
	
	jsr FreeSPReply	; dispose of reply buffer
	
	pla	; recover error
exitMountLoop
	sta TryMountError	; save error number

	sec	;volume was not mounted
	
	rts

mounted
; 8-Nov-91 MSD: Call the AppleShare FST's GetUserPath call for the
; side-effect of setting FIUserPrefix (in case the first user volume
; was mounted).
	pushlong #GetUserPath
	pea $2033	;FSTSpecific
	jsl $e100b0	; call GS/OS
; End 8-Nov-91 MSD

	jsr FreeSPReply	; dispose of reply buffer

justOpenWindow	jsr AddToPathList	;Add handle to linked list - 16-Mar-93 JCM

	clc
	
	rts
	
***************************************************************
*
* PromptForPassword
*
* Output: CLC if we should try mounting again
*
*
***************************************************************
PromptForPassword	name
	jsr OpenMyResFork
	bcc @cont
	brl @exit
@cont

	jsr GetStatus	; 24-Oct-91 MSD
	bcs @toerror	; couldn't find server???
	
	pha
	pha	;space for NewWindow2
	ldx #0
	phx
	phx	;title
	phx
	phx	;refcon
	phx
	phx	;content draw
	phx
	phx	;defproc
	pea 2	;ref is resource
	pushlong #1	;ID=1
	pea $800E	;rWindParam1
	_NewWindow2
	plx
	ply
	stx pwWindow
	sty pwWindow+2
	bcc @1
@toerror	brl @error
@1
	_InitCursor

*** Added 2-Mar-93 JCM - Let's be nice to those that attempt to use us in 320 mode by actually
***	     sticking the window fully on the screen.

	pha
	_GetMasterSCB
	pla
	and #mode640
	bne @showIt	;we're in 640 mode and the window is in a fine location
	
	PushWord #8	;horz
	PushWord #34	;vert
	PushLong pwWindow	;window to move
	_MoveWindow

@showIt	PushLong pwWindow
	_ShowWindow

*** End - 2-Mar-93 JCM

	pha
	PushWord #$0100	;activate/deactivate events only
	pushlong #myEvent
	_GetNextEvent
	pla
	
	pha
	pha
	PushWord #15	;tableNum
	PushLong #0	;tablePtr
	PushWord #$C000	;flags (use 640 colors/don't call CtlNewRes)
	ldx #$1612
	jsl $E10000
;	_UseColorTable	;leave handle on stack

	pha
	pha
	_GetPort

	pha
	pha
	_GetCtlParamPtr

	jsr pushPWwindow
	_SetPort

	pushlong #mySubstitutions
	_SetCtlParamPtr

; Begin 24-Oct-91 MSD: If no guest access, dim the Guest button and
; force the Registered User button on.

	lda allowsGuest	; are guests allowed?
	bne @guestOK

;	pea $00FF	; part code = inactive
;	lda #0
;	pha	; room for control handle
;	pha
;	pha	; window (0=FrontWindow)
;	pha
;	pha	; high word of control ID
;	pea 5	; Guest control ID
;	_GetCtlHandleFromID
;	_HiliteControl	; dim the Guest button
*** 15-Jul-92 DAL -- use new HiliteCtlByID call
	pea $00FF	; inactive
	lda #0
	pha
	pha	;window = NIL
	pha
	pea 5	;CtlID = Guest radio button
	ldx #$3f10
	jsl $e10000
;	_HiliteCtlByID	;dim the Guest button
*** end 15-Jul-92

	ldx #4	; Registered User control ID
	bra @setGuest	; force Registered User
@guestOK
; End 24-Oct-91 MSD
	ldx #5	;Guest control ID
	lda UserName
	and #$00ff
	beq @setGuest
	dex	;4=Registered User control ID
@setGuest	phx

;	pea 1	;value for SetCtlValue
;	pha
;	pha	;space for GetCtlHandleFromID result
;	pea 0
;	pea 0	;window ptr
;	pea 0	;high word of ID
;	phx	;low word of ID
;	_GetCtlHandleFromID
;	_SetCtlValue
*** 15-Jul-92 DAL -- select radio button, ID in X
	pea 1	;value = 1
	lda #0
	pha
	pha	;window = NIL
	pha
	phx	;ctlID = X
	ldx #$3c10
	jsl $e10000
;	_SetCtlValueByID
*** end 15-Jul-92

	plx
	cpx #5	;guest
	bne @notGuest
	jsr hitGuest
@notGuest

	ldx #6
@fetchPW	lda Password,x
	sta pwBuffer+1,x
	dex
	dex
	bpl @fetchPW

	sep #$20

	ldx #9	;17-Mar-93 JCM (was 8) - allows 8-char passwords

@getPWlen	dex
	beq @end

	lda pwBuffer,x
	beq @getPWlen

@end	txa
	sta pwBuffer
	
	rep #$30

	jsr pushPWwindow
	pea 0
	pea 6	;password editline
	pushlong #pwBuffer
	_SetLETextByID

	jsr pushPWwindow
	pea 0
	pea 7	;username editline
	pushlong #Username
	_SetLETextByID

	stz CancelFlag

@modal	pha
	pha	;space for DoModalWindow
	pushlong #myEvent
	ldx #0
	phx
	phx	;update routine
	pea $8000	;handle Apple-period
	phx	;event hook
	phx
	phx	;beep proc
	pea $4019	;flags (17-Jul-92 DAL)
	_DoModalWindow
	pla
	plx
	asl a
	cmp #hitTableEnd-hitTable
	bcs @modal
	tax
	jsr (hitTable,x)
	bcc @modal

	_SetCtlParamPtr
	_SetPort

	jsr pushPWwindow
	_CloseWindow

	PushWord #$4000	;flags (don't call CtlNewRes)
	ldx #$1712
	jsl $E10000
;	_RestoreColorTable

	_InitCursor

	lda CancelFlag
	cmp #1	;sec if nonzero
	bra @okay

@error	jsr ShowErrorWindow

@okay	php
	jsr CloseMyResFork
	plp
@exit	rts

pushPWwindow	name
	plx
	pushlong pwWindow
	phx
	rts

pwWindow	dc.l 0
CancelFlag	dc.w 0

mySubstitutions	dc.l EntityName	; *0 = server name

myEvent	ds.b 46

hitTable	dc.w hitIgnore	;0
	dc.w hitSave	;1
	dc.w hitCancel	;2
	dc.w hitConnect	;3
	dc.w hitRegistered	;4
	dc.w hitGuest	;5
hitTableEnd

hitIgnore	name
	clc
	rts

hitSave	name
	jsr ExtractInfo

	ldx theFilePath+2
	lda theFilePath
	jsr RewriteAliasFile
	bcc @ok

	jsr ShowErrorWindow

@ok	clc

	rts

hitCancel	name
	inc CancelFlag
	sec
	rts

hitConnect	name
	jsr ExtractInfo
	sec
	rts

*
* ExtractInfo -- suck info out of dialog controls into ReadBuffer
*
ExtractInfo	name
	stz UserName
	stz Password
	stz Password+2
	stz Password+4
	stz Password+6

	pha	;space for result
	jsr pushPWwindow
	pea 1	;family number
	_FindRadioButton
	pla
	bne @guest

	jsr pushPWwindow
	pea 0
	pea 6	;password editline
	pushlong #pwBuffer
	_GetLETextByID

	sep #$30
	ldy pwBuffer
	beq @done
@copypw	lda pwBuffer,y
	sta Password-1,y
	dey
	bne @copypw
@done	rep #$30

	jsr pushPWwindow
	pea 0
	pea 7	;username editline
	pushlong #UserName
	_GetLETextByID
@guest	rts

*
* Hit on Guest radio button -- hide name and password items
*
hitGuest	name
	lda #6
	jsr HideControlA
	lda #7
	jsr HideControlA
	lda #$A
	jsr HideControlA
	lda #$B
	jsr HideControlA
	clc
	rts

hitRegistered	name
	lda #6
	jsr ShowControlA
	lda #7
	jsr ShowControlA
	lda #$A
	jsr ShowControlA
	lda #$B
	jsr ShowControlA
	clc
	rts

HideControlA	name
	pha
	pha	;space for GetCtlHandleFromID
	pea 0
	pea 0	;window
	pea 0	;high word of ctl id
	pha	;low word of ctl id
	_GetCtlHandleFromID
	_EraseControl
	rts

ShowControlA	name
	pha
	pha	;space for GetCtlHandleFromID
	pea 0
	pea 0	;window
	pea 0	;high word of ctl id
	pha	;low word of ctl id
	_GetCtlHandleFromID
	_ShowControl
	rts
	
pwBuffer	ds.b 10	;8 + length byte + terminating zero

***************************************************************
*
* OpenMyResFork
*
***************************************************************
OpenMyResFork	name
;	pha
;	_GetCurResourceApp
;	pla
;	sta oldResApp
;
;	lda myMemID
;	pha
;	_ResourceStartUp
;
;	pha	;space for OpenResourceFile
;	pea 1	;read only
;	pea 0
;	pea 0	;map ptr = NIL
;	pha
;	pha	;space for LGetPathname2
;	lda myMemID
;	pha
;	pea 1
;	_LGetPathname2
;	_OpenResourceFile
;	plx
*** 15-Jul-92 DAL -- saved 39 bytes by using OpenResourceFileByID
	pha	;space for old ResApp
	pea 0	;requested access
	lda myMemID
	pha	;my user ID
	ldx #$2E1E
	jsl $e10000
;	_OpenResourceFileByID
	pla
	sta oldResApp
*** end 15-Jul-92
	rts	;return CLC=okay

***************************************************************
*
* CloseMyResFork
*
***************************************************************
CloseMyResFork	name
	_ResourceShutDown
	lda oldResApp
	pha
	_SetCurResourceApp
	rts

oldResApp	dc.w 0

***************************************************************
*
* ReadData -- with file name in XY, read image of QuickMount
*             document into ReadBuffer.  Also adds a handle
*             to the linked list with the pathname to be
*             opened or launched.
*
***************************************************************

ReadData	NAME

readFileTempPtr	equ 1

	phd

	pha	;readFileTempPtr
	pha	

	tsc
	tcd

	stx FileNamePtr+2
	sty FileNamePtr

	stz AliasPCount	;Clear flag for old format
	
	lda #1
	sta OpenAccess

	_OpenGS OpenBlock	;open up this EasyMount document
	bcs @exitReadData
	
	lda OpenRef
	sta ReadRef
	sta ReadPathRef
	sta CloseRef

	_ReadGS ReadBlock	;read the standard header, plus 2 bytes
	bcs @exitCloseFile	; (so we can check if it's an old file)

*** Added - 2-Mar-93 JCM - Again, when the Control key is down during the opening of
***	       an alias, we don't open the window that is the target of the
***	       alias.

	lda theModifiers
	and #$1000	;control key?
	beq @parseIt
	
	clc
	lda #0
	
	bra @exitCloseFile

*** End - 2-Mar-93 JCM

@parseIt	lda #$FFFF	;flag = file is on disk
	jsr ParseFile

@exitCloseFile	php
	pha

	_CloseGS CloseBlock	;@ItsAServer

	pla
	plp

@exitReadData	ply	;actually preserve any error code
	ply	

	pld

	rts

disposePathHandle	NAME

	lda PathHandle+2	;Release the handle containing the path
	pha
	lda PathHandle
	pha
	_DisposeHandle

	rts	
		
*************************************************************************************************
*
* ParseFile - This function examines the EasyMount document data stored at ReadBuffer, and
*             builds a pathname (in a new handle) to the file the alias references. All errors
*             are returned in the Accumulator, with the carry bit indicating the validity of
*             the error.
*
*             This function handle both EasyMount 1.0 documents (a.k.a. QuickMount documents)
*             and EasyMount 1.1 files, of which it can create the latter. The new document
*             format supports a limited aliasing mechanism to non-server entities.
*

ParseFile	NAME

	sta @onDiskFlag	;true if document is really from disk, not an srqMountServer call

	lda AliasPCount	;Check for old style EasyMount document
	bne @parseNewStyle
	
	brl @parseOldStyle
	
; OK, it's not an old style EM document.  This means there a variable sized 
; pathname tacked on to the end of the file which we need to load.  We'll create
; a handle of the appropriate size, lock it, and read the pathname into it.

@parseNewStyle	pha	;Space for result
	pha
	pea 0	;Push size for path handle
	lda AliasPathSize	
	sta ReadPathLen	;Store for read as well
	clc
	adc #6	;Plus space for length word
	pha	; and linked list handle.
	lda myMemID	;Memory ID
	pha
	pea $8000	;Locked
	lda #0
	pha
	pha
	_NewHandle
	ply
	sty PathHandle
	sty <readFileTempPtr
	plx
	stx PathHandle+2
	stx <readFileTempPtr+2
	bcs @exitNewStyle

	ldy #2	;get a ptr to the new path handle
	lda [<readFileTempPtr],y
	tax
	lda [<readFileTempPtr]
	clc
	adc #6
	bcc @getThePath
	
	inx
	
@getThePath	sta PathPtr
	stx PathPtr+2

	lda @onDiskFlag	;is this from srqMountServer?
	bne @readDiskPath	; nope, it's really a disk file

	ldy ReadPathPtr+2
	phy
	ldy ReadPathPtr
	phy	;source path ptr
	phx
	pha	;dest ptr to new handle block

	pea 0
	lda AliasPathSize
	pha
	_BlockMove

	bra @savePathLength

@readDiskPath	jsr ReadAliasPathname
	bcs @exitNewStyle	;bad read

@savePathLength	ldy #2	;get a fresh ptr to the new path handle
	lda [<readFileTempPtr],y
	tax
	lda [<readFileTempPtr]
	sta <readFileTempPtr
	stx <readFileTempPtr+2

	iny
	iny
	lda AliasPathSize	;Save length word
	sta [<readFileTempPtr],y
	

@exitNewStyle	rts

; It's an old style EasyMount document.  This means it doesn't have a pathname
; attached to the end so we need to generate one from the volume name by
; adding a leading colon and creating a new handle.

@parseOldStyle	pha
	pha
	pea 0
	lda VolumeName	;Get size
	and #$00ff
	clc
	adc #7	;Plus length word, linked list
	pha	; handle, and leading colon
	lda myMemID
	pha
	pea $8000
	lda #0
	pha
	pha
	_NewHandle
	ply
	sty PathHandle
	sty <readFileTempPtr
	plx
	stx PathHandle+2
	stx <readFileTempPtr+2
	bcs @exitOldStyle
	

	ldy #2	;Get a ptr to the path handle
	lda [<readFileTempPtr],y
	tax
	lda [<readFileTempPtr]
	sta <readFileTempPtr
	stx <readFileTempPtr+2
	
	pea volumeName+1>>16 ;Push src address
	pea volumeName+1

	clc
	adc #7
	bcc @5

	inx

@5	phx	;Push dest address
	pha
	
	lda volumeName	;Push length including length byte
	and #$00ff
	pea 0
	pha
	_BlockMove
	
;	lda #0	;Clear linked list field
;	sta [<readFileTempPtr]
;	ldy #2
;	sta [<readFileTempPtr],y
	lda VolumeName	;Fix length word
	and #$00ff
	inc a	;Account for extra colon
	sta FullPathLen
	stz FullPathLen+2	;length of the real file we're attaching to this alias
;	iny
;	iny
	ldy #4
	sta [<readFileTempPtr],y
	
	iny
	iny
	sep #$20	;Insert the leading colon
	longa off
	lda #':'
	sta [<readFileTempPtr],y
	rep #$20
	longa on

	clc	;everything went fine
	
@exitOldStyle	rts

@onDiskFlag	DS.W 1

*******************************************************************************************
*
* ReadAliasPathname - This is used to read the pathname of the file the alias references.
*                     The path is at the end of EasyMount 1.1 documents.
*

ReadAliasPathname	NAME

	lda PathPtr+2
	sta ReadPathPtr+2
	lda PathPtr
	sta ReadPathPtr

	_ReadGS ReadPathBlock
	bcs @exitBadRead
	
	rts

@exitBadRead	php
	pha

	jsr disposePathHandle ;clean up after ourselves

	pla
	plp

	rts

***************************************************************
*
* ExtractPathPtr -- Sets pathPtr and pathHandle to the first
*	item of the linked list and removes that
*	item from the list.  PathHandle is returned
*	locked.
*
***************************************************************
ExtractPathPtr	name

@tempHandle	equ 1
@tempPathPtr	equ 5

	phd
	pha	;tempHandle
	pha	
	pha	;tempPathPtr
	pha	
	tsc
	tcd

	lda PathListHandle	;Get handle of first item
	sta @tempHandle
	sta PathHandle
	lda PathListHandle+2
	sta @tempHandle+2
	sta PathHandle+2
	pha	;Push for _HLock
	pei @tempHandle
	_HLock	;Lock while we have a ptr to it
	
	ldy #2	;Get ptr to first item
	lda [<@tempHandle]
	sta @tempPathPtr
	sta PathPtr
	lda [<@tempHandle],y
	sta @tempPathPtr+2
	sta PathPtr+2
	
	lda [<@tempPathPtr]	;Change pathListHandle to point
	sta PathListHandle	;to next item in list.
	lda [<@tempPathPtr],y
	sta PathListHandle+2
	
	clc	;Move ptr past linked handle
	lda PathPtr
	adc #4
	sta PathPtr
	bcc @Done
	inc PathPtr+2
	
@Done	pla
	pla	
	pla
	pla	
	pld
	rts


***************************************************************
*
* AddToPathList --  Appends the handle in PathHandle to the end
*	of our linked list.
*
***************************************************************
AddToPathList	name

@tempHandle	equ 1
@tempPathPtr	equ 5
	
	lda theModifiers
	and #$1000	;control key?
	bne @doneAdd

	phd
	pha	;tempHandle
	pha	
	pha	;tempPathPtr
	pha	
	tsc
	tcd

	lda PathHandle+2	;get a local copy of the PathHandle to play with
	pha	;for unlock below
	sta @tempHandle+2
	lda PathHandle
	pha	;for unlock below
	sta @tempHandle
	
	ldy #2	;dereference PathHandle
	lda [<@tempHandle]
	sta @tempPathPtr
	lda [<@tempHandle],y
	sta @tempPathPtr+2
	
	lda PathListHandle	;link the old PathListHandle to the new path 
	sta [<@tempPathPtr] ; - this makes the new path the first in the list
	lda PathListHandle+2
	sta [<@tempPathPtr],y
	
	lda PathHandle+2	;save the new path as the new head of the linked-list
	sta PathListHandle+2
	lda PathHandle
	sta PathListHandle
	
	_HUnlock	;It can be unlocked until we need it at idle time

	pla
	pla	
	pla
	pla	
	
	pld
	
@doneAdd	rts

***************************************************************
***************************************************************

OpenBlock	dc.w 3		;PCount
OpenRef	dc.w 0
FileNamePtr	ds.l 1
OpenAccess	dc.w 1		;Read only

ReadBlock	dc.w 4		;PCount
ReadRef	dc.w 0
	dc.l ReadBuffer
	dc.l ReadBufferLen
	dc.l 0

ReadPathBlock	dc.w 4
ReadPathRef	dc.w 0
ReadPathPtr	dc.l 0
ReadPathLen	dc.l 0
	dc.l 0
	
FullPathBlock	dc.w 4	;Fields filled in manually
FullPathRef	dc.w 0
FullPathPtr	dc.l 0
FullPathLen	dc.l 0
	dc.l 0
	
CloseBlock	dc.w 1		;PCount
CloseRef	dc.w 0

theFilePath	dc.l 0	;pathname ptr used for reading and writing alias file

*
* ReadBuffer is an image of a QuickMount document
*
theDataLength	dc.w 0	;space for size of ReadBuffer data (for SendRequest(srqMountVolume))
ReadBuffer
EntityName	ds.b 32	;servername + AFPServer + zone, crammed together
	ds.b 32
	ds.b 33
VolumeName	ds.b 28
UserName	ds.b 32
Password	ds.b 8
VPassword	ds.b 8
AliasPCount	ds.w 1	;New format, this value is zero if the
AliasPathSize	ds.w 1	;document is for a server, 1 otherwise.
EndOfReadBuf
ReadBufferLen	equ EndOfReadBuf-ReadBuffer-1

PathHandle	ds.l 1
PathListHandle	dc.l 0
PathPtr	ds.l 1

ZeroReadBuffer	name
	ldx #ReadBufferLen-2
@zero	stz ReadBuffer,x
	dex
	bpl @zero
	rts

TryMountError	dc.w 0

ATKerrors	dc.w $400		;Err1
	dc.w $401		;Err2
	dc.w $404		;Err2
	dc.w $406		;Err3
	dc.w $408		;Err4
	dc.w $a01		;Err5
	dc.w $a02		;Err6
	dc.w $a03		;Err7
;	dc.w $a13		;Err8
	dc.w $a15		;Err9
	dc.w $a16		;Err10
	dc.w $a17		;Err11
	dc.w $a18		;Err12
	dc.w $a19		;Err13
	dc.w $a05		;Err14
	dc.w $a06		;Err15
	dc.w $a09		;Err15
	dc.w $a07		;Err16
	dc.w $a08		;Err17
	dc.w $a11		;Err18

ETable	dc.w Err1
	dc.w Err2
	dc.w Err2
	dc.w Err3
	dc.w Err4
	dc.w Err5
	dc.w Err6
	dc.w Err7
;	dc.w Err8
	dc.w Err9
	dc.w Err10
	dc.w Err11
	dc.w Err12
	dc.w Err13
	dc.w Err14
	dc.w Err15
	dc.w Err15
	dc.w Err16
	dc.w Err17
	dc.w Err18
	dc.w Err19	;generic error (must be last)

;Err1	dc.b '62~The volume Ò*0Ó could not be mounted because the server was '
;	dc.b 'not found.  Check the zone and server name.~^#0',0
Err1	dc.b '62~The shared disk Ò*0Ó could not be found on the network.~^#0',0	;25-Mar-92 DAL

Err2	dc.b '62~More than one server found.~^#0',0
Err3	dc.b '62~Invalid server/zone name.~^#0',0
Err4	dc.b '62~AppleTalk is busy or not installed.  (Try closing any open network control panels.)~^#0',0
Err5	dc.b '62~There are too many AppleTalk sessions.~^#0',0
Err6	dc.b '62~Unable to open session with server.~^#0',0
Err7	dc.b '62~The server is not responding.~^#0',0
;;;Err9	dc.b '62~You are not authorized to use this server.  Check your password.~^#0',0
Err9	dc.b '62~Sorry, your password is incorrect.  Please reenter it.~^#0',0	;15-Sep-92 DAL
Err10	dc.b '62~Unknown user name for this server.~^#0',0
Err11	dc.b '62~The server is shutting down (or maybe starting up), so you canÕt log on now.~^#0',0
Err12	dc.b '62~This file server does not use a recognizable log on sequence.~^#0',0
Err13	dc.b '62~The server does not support AppleShare 2.0.~^#0',0
Err14	dc.b '62~Invalid disk name.~^#0',0			;25-Mar-92 DAL
Err15	dc.b '62~Unknown disk name.~^#0',0			;25-Mar-92 DAL
Err16	dc.b '62~You are not authorized to use this shared disk.~^#0',0	;25-Mar-92 DAL
Err17	dc.b '62~The shared disk could not be made available, because you are using too many '
	dc.b 'shared disks at once.~^#0',0			;25-Mar-92 DAL
Err18	dc.b '62~This shared disk is already available.~^#0',0		;25-Mar-92 DAL
Err19	dc.b '62~An unknown error occured.  ($*1)~^#0',0 ;must be last string in table!

ErrNope	dc.b '53~You can make aliases for disks, folders, and applications only.~^#6',0	;25-Mar-93 JCM

KillBlock	dc.b $00	;Synchronous
	dc.b $46	;NBPKill
	dc.w 0
	dc.l LookupBlock

LookupBlock	dc.b $00	;Synchronous (24-Oct-91 MSD, was async)
	dc.b $10	;Lookup
LookupResult	dc.w 0	;Result
	dc.l 0	;Completion routine
	dc.l EntityName	;Entity name pointer
LookupT	dc.b 1	;1/4 second
	dc.b 20	;20 times
	dc.w 0	;Reserved
	dc.w LUpBufferLen	;Buffer length
	dc.l LUpBuffer	;Buffer pointer
	dc.b 1	;Max # matches
LookupCount	dc.b 0	;Actual matches

LUpBuffer
LUpNet	dc.w 0
LUpNodeSocket	dc.w 0
	dc.b 0		;Enumerator
	ds.b 32
	ds.b 32
	ds.b 33
LUpBufferLen	equ *-LUpBuffer

GetMyZoneBlock	dc.b $00		;Synchronous
	dc.b $A		;GetMyZone
	dc.w 0
	dc.l 0
MyZonePtr	dc.l 0
	dc.b 2
	dc.b 2
	dc.w 0

Login2Block	dc.b $00		;Synchronous
	dc.b $38		;Login2
LoginResult	dc.w 0		;Result
LoginNet	dc.w 0
LoginNodeSocket	dc.w 0
CmdBLen	dc.w CmdBaseLen
CmdBufferPtr	dc.l CmdBuffer
	dc.w RplyBufferLen
	dc.l RplyBuffer
LoginSession	dc.b 0
	dc.l 0
	dc.l EntityName
LoginZone	dc.l EntityName
	dc.w $0200		;AFP version word

LoginCBlock	dc.b $00		;Synchronous
	dc.b $2C		;LoginCont
	dc.w 0		;Result
LoginCSession	dc.b 0
	dc.w Cmd2BufferLen
	dc.l Cmd2Buffer
	dc.w RplyBufferLen
	dc.l RplyBuffer

DESBlock	dc.l Password
	dc.l RplyRndm
	dc.l Cmd2Random

CmdBuffer	dc.b 18
	str 'AFPVersion 2.0'
	str 'Randnum exchange'
CmdBaseLen	equ *-CmdBuffer
CmdUser	ds.b 32

GuestLogin	dc.b 18
	str 'AFPVersion 2.0'
GuestUAM	str 'No User Authent'
GuestLoginLen	equ *-GuestLogin

Cmd2Buffer	dc.b 19
	dc.b 0
Cmd2ID	dc.w 0		;ID number
Cmd2Random	dcb.b 8,0		;Random number exchange
Cmd2BufferLen	equ *-Cmd2Buffer

RplyBuffer
RplyID	dc.w 0
RplyRndm	dcb.b 8,0
RplyBufferLen	equ *-RplyBuffer

MountVolBlock	dc.b $00		;Synchronous
	dc.b $2E		;MountVol
	dc.w 0		;Result
MountSession	dc.b 0
MountVolFlags	dc.b $C0
	dc.l VolumeName
	dc.w 0		;Vol ID
	dc.b 0		;Slot/Drive
	dc.l VPassword

LogoutBlock	dc.b $00		;Synchronous
	dc.b $2D		;FILogout
	dc.w 0		;Result
LogoutSession	dc.b 0

CAFPName	str 'AFPServer'

; Added the following variables 24-Oct-91 MSD

SPReplyLen	equ 2048	; more than enough!
SPReplyHandle	dc.l 0	; handle to ASP reply buffer

SPCommand
	dc.b $00,$20	; sync SPCommand
	dc.w 0	; result
	dc.l 0	; completion routine
SPCmdSession	dc.b 0	; session refnum
	dc.w GetSrvrParmsLen ; command block length
	dc.l FPGetSrvrParms	; command block pointer
	dc.w SPReplyLen	; reply buffer length
	dc.l 0	; reply buffer pointer
	dc.l 0	; AFP command result
	dc.w 0	; actual reply length

FPGetSrvrParms
	dc.b $10	; GetSrvrParms command number
GetSrvrParmsLen	equ *-FPGetSrvrParms

SPGetStatus
	dc.b $00,$1D	; sync SPGetStatus
	dc.w 0
	dc.l 0
	dc.l 0	; server internet address
	dc.w SPReplyLen
	dc.l 0	; pointer to reply buffer
	dc.l 0	; AFP result
	dc.w 0	; actual reply length

allowsGuest	dc.w 0	; non-zero if Guest access allowed

; End 24-Oct-91 MSD

; Added 8-Nov-91 MSD
GetUserPath
	dc.w 3	; pcount
	dc.w $D	; AppleShare FST
	dc.w 8	; GetUserPath call
	dc.l 0	; path pointer returned here
; End 8-Nov-91 MSD

;-----------------------------------------------------------------------------------

;
; 3-Nov-91 MSD: Separated the Lookup code so it can be called just once before any
; other routines use the address.
;
FindServer	name

	ldx #LookupBlock
	ldy #^LookupBlock
	jsl >RamDispatch
	lda LookupBlock+2	; get result
	bcs @exit
	
	lda LookupCount	; get number of servers found
	and #$00FF	; just a byte
	dea	; if 1, leave 0 in A
	beq @exit	; one found, return carry clear
	
	sec	; no server found
	lda #$0400	; fake no server found error
@exit
	rts	; return with carry set if error

;
; 29-Oct-91 MSD: Added TestLoggedOn so that if the Option key is down, we can
; decide not to show the dialog box if we're already logged on.  Returns with
; carry set if we're already logged on to the server.
;
TestLoggedOn	name

	lda LUpNet
	sta LoginNet
	lda LUpNodeSocket
	sta LoginNodeSocket

	stz CmdBLen	; don't actually log on, just test it
	
	ldx #Login2Block
	ldy #^Login2Block
	jsl >RamDispatch

@exit	rts	; return carry set if logged on

; End 29-Oct-91


******************************************************************************
*
* TryMount
*
* Calls TryMount2 and handles volume-already-mounted by asking the Finder
* to open the window.
*
* (If the Control key is down, we don't try.)
*
******************************************************************************
TryMount	name
	
	jsr TryMount2
	bcc @openIt

	cmp #$0a11	;volume already mounted?
	beq @openIt

	sec

	rts

@openIt	

*** added 18-Nov-91 DAL -- force Finder to schedule mounting this volume
	pha
	_ScanDevices	;force Finder's notify proc to see this insert
	pla
*** end 18-Nov-91 DAL

	stz TryMountError

	clc

	rts

openWindowOut	dc.w 0	;receive count
	dc.w 0	;finder result
	dc.l 0	;window pointer

handleFinderIdle	name

* If our linked list of pathnames to open is nil, then we have nothing pending to open.

	lda PathListHandle+1 ;is the list empty?
	bne @HandleAction	; nope, open up one more

	brl @NoAction	; yup, just exit

; Save system prefs for restore after GetFileInfo

@HandleAction	_GetSysPrefsGS SavePrefBlock
	
;Set System prefs temporarily to make sure we prompt for offline volumes.

	_SetSysPrefsGS MyPrefBlock
	
	jsr ExtractPathPtr	;Set up ptr and handle to pathname

	lda PathPtr
	ldy PathPtr+2
	jsr GetFileInfo
	pha
	
;Restore preferences

	_SetSysPrefsGS SavePrefBlock
	
	pla	;Restore error code from GetFileInfo
	beq @NoError

	cmp #$40	;If bad path syntax, assume it's
	beq @DoOpenWindow	;something we want to openWindow on

	brl @CleanUpPending	;Other errors, exit.

;A volume was requested that was offline.  

@NoError	
	
*** Added - 25-Mar-93 JCM - If it's a folder or disk, open the window, if it's an app, launch it.
***	         Otherwise, we ignore it.

	jsr ValidateType	
	bcs @NoAction
	
	cmp #$0f
	beq @DoOpenWindow

	bra @DoOpenApp	;must be an application

;	ldy MyFileInfoType	;Is it a folder?
;	cpy #$0f
;	beq @DoOpenWindow
;	
;	cpy #$ff	;Try application
;	beq @DoOpenApp
;	
;	cpy #$b3
;	beq @DoOpenApp
;	
;	cpy #$b5
;	beq @DoOpenApp
;
;	bra @DoOpenDoc	;Default to document

*** End - 25-Mar-93 JCM

@NoAction	clc

	rts

@DoOpenApp	lda PathPtr	;Set up pathname to launch
	ldy PathPtr+2
	sta LaunchPathPtr
	sty LaunchPathPtr+2
	stz LaunchBlock
	
	pea tellFinderLaunchThis
	pea sendToName+stopAfterOne
	pushlong #nameOfFinder
	pushlong #LaunchBlock
	bra @FinishSendReq

;@DoOpenDoc	bra @CleanUpPending	;Need to add this! - 25-Mar-93 JCM - removed for now

@DoOpenWindow	pea tellFinderOpenWindow
	pea sendToName+stopAfterOne
	pushlong #nameOfFinder
	pushlong PathPtr
@FinishSendReq	pushlong #openWindowOut
	_SendRequest

@CleanUpPending	jsr disposePathHandle

@Done	sec

	rts

*** Added - 25-Mar-93 JCM

GetFileInfo	sta FileInfoPathPtr
	sty FileInfoPathPtr+2
	_GetFileInfoGS FileInfoBlock

	rts

ValidateType	lda MyFileInfoType	;Is it a folder?
	cmp #$0f
	beq @typeOk
	
	cmp #$ff	;Try application
	beq @typeOk
	
	cmp #$b3
	beq @typeOk
	
	cmp #$b5
	beq @typeOk

@typeBad	sec

	rts

@typeOk	clc
	
	rts

*** End - 25-Mar-93 JCM

TempEvent	ds.b 16

LaunchBlock	dc.w 0
LaunchPathPtr	ds.l 1

FileInfoBlock	dc.w 3
FileInfoPathPtr	ds.l 1
	ds.w 1
MyFileInfoType	ds.w 1

SavePrefBlock	dc.w 1
	dc.w 0
	
MyPrefBlock	dc.w 1	;Allow volume mount dialog
	dc.w %1000000000000000

	
*** added 8-Jan-92 DAL -- If our device gets ejected, don't try to open it
*** (This is important in case we mount something that turns out to be a
*** duplicate-named volume.  We can't necessarily tell in advance.)
***
handleEjectingDev	lda PathListHandle+1
	bne @pending
	
@reject	clc	;reject event, nothing pending
	
	rts

@pending	sec	;accept the systemSaysEjectingDev event
	
	rts
*** end 8-Jan-92

******************************************************************************
*
* TryMount2
*
* Inputs: EntityName, VolumeName, UserName, Password, VPassword
*
* Outputs:  network error code in A and TryMountError (SEC if error)
*
******************************************************************************
; 24-Oct-91 MSD: Changed the lookup to be synchronous, removed the checking for
; the call to complete and the NBPKill call.
TryMount2	name
	stz TryMountError	; assume no error

	lda LUpNet
	sta LoginNet
	lda LUpNodeSocket
	sta LoginNodeSocket

	lda UserName	;is there a user name?
	and #$00ff
	beq doGuest	;no, login as guest

	lda #CmdBuffer	;set pointer to correct login block
	sta CmdBufferPtr
	lda #^CmdBuffer
	sta CmdBufferPtr+2
	sep #$30
	longa off
	longi off

	ldx UserName
UNLoop	lda UserName,x
	sta CmdUser,x
	dex
	bpl UNLoop

	rep #$30
	longa on
	longi on

	lda UserName
	and #$00FF
	sec
	adc #CmdBaseLen
	sta CmdBLen
	bra skipGuest
doGuest
	lda #GuestLogin
	sta CmdBufferPtr
	lda #^GuestLogin
	sta CmdBufferPtr+2
	lda #GuestLoginLen
	sta CmdBLen
skipGuest

	lda EntityName	;initialize zone name pointer in command
	and #$00ff	;block to point to zone name within
	inc a	;entity name.
	tay
	sec
	adc EntityName,y
	and #$00ff
	clc
	adc #EntityName
	sta LoginZone
	lda #^EntityName
	sta LoginZone+2

	ldx #Login2Block
	ldy #^Login2Block
	jsl >RamDispatch

	sep #$30
	lda LoginSession
	sta LoginCSession
	sta MountSession
	sta LogoutSession
	sta SPCmdSession	; Added 24-Oct-91 MSD
	rep #$30

	bcc L2
	lda LoginResult
	cmp #$0A04	; login continue (want password)
	beq L3
	cmp #$0A13	; already logged on
	beq L2
BadExit	sec
	sta TryMountError
	rts

L3	lda RplyID
	sta Cmd2ID

*** DES needs <0..<7 on direct page
	phd
	pha
	pha
	pha
	pha
	tsc
	inc a
	tcd

	ldx #DESBlock
	ldy #^DESBlock
	jsl DES

	pla
	pla
	pla
	pla
	pld
*** unfutz direct page

	ldx #LoginCBlock
	ldy #^LoginCBlock
	jsl >RamDispatch
	lda LoginCBlock+2
	bcs BadExit

L2
	jsr TestUserVolume	; see if User Volume bit should be set
	bcs @logoff	; couldn't find volume name!

	ldx #MountVolBlock
	ldy #^MountVolBlock
	jsl >RamDispatch
	bcc @L2

	lda MountVolBlock+2
	sta TryMountError
	cmp #$0A11	; was volume already mounted?
	beq @L2	;The carry will be set!

;
; 24-Oct-91 MSD: We couldn't mount the volume.  If we were already
; logged on, don't bother logging off.
;
@logoff
	ldx LoginResult
	cpx #$0A13	; FILogin2 get already logged in error?
	beq @L2	; Yes, don't log off (note: carry will be set!)
; End 24-Oct-91 MSD

	pha	; save error code
	ldx #LogoutBlock
	ldy #^LogoutBlock
	jsl >RamDispatch
	pla	; recover error code
	sec

@L2	rts


;
; 24-Oct-91 MSD: Do an SPGetStatus to see if the server supports guest access
; (the "No User Authent" string will be in the list of UAMs).  Set allowsGuest
; to a non-zero value if guests are allowed.
;
GetStatus	name

; Make a stack frame for local variables.  They are:
; 1,s  Pointer into reply buffer
; 5,s  Count of UAM strings

	phd
	pha
	pha
	pha
	tsc
	tcd
	
	stz allowsGuest	; assume no guest access

; Copy pointer to ASP reply buffer to direct page
	lda SPGetStatus+$E
	sta <1
	lda SPGetStatus+$10
	sta <3
	
	lda LUpNet	; copy server's address
	sta SPGetStatus+8
	lda LUpNodeSocket
	sta SPGetStatus+10
@retry
	ldx #<SPGetStatus
	ldy #^SPGetStatus
	jsl >RamDispatch	; get info from server
	lda SPGetStatus+2
	bcc @gotstat
	cmp #$0702	; is ASP busy?
	beq @retry	; yes, so try call again
	sec	; return error
	bra @exit

@gotstat
	ldy #4
	lda [1],y	; get offset to count of UAM's
	xba	; put in 65816 order
	tay
	lda [1],y	; get count of number of UAM's
	and #$00FF	; just a byte
	sta <5	; save count

	tya	; get offset to UAM count byte
	sec	; add one for count byte
	adc <1	; point to first UAM string
	sta <1

; For each UAM string, compare it to the Guest UAM
@loop
	pha	; result of compare
	pea $0000	; flags (reserved)
	pei <3	; push pointer to this UAM string
	pei <1
	pushlong #GuestUAM	; point to the Guest UAM string
	_CompareStrings
	pla
	beq @match	; equal, so set flag
	
	lda [1]	; get string length
	and #$00FF	; just a byte
	sec	; add one for length byte
	adc <1
	sta <1	; point to next UAM string
	
	dec <5	; more to check?
	bne @loop
	beq @noerr	; no, so leave it alone
@match
	inc allowsGuest	; set the flag
@noerr
	clc	; no error
@exit
	ply	; clean up stack
	ply
	ply
	pld
	
	rts
; End 24-Oct-91 MSD

;
; 24-Oct-91 MSD: Do an FPGetSrvrParms and find the volume in the list to see
; if it is a user volume (i.e., the hasConfigInfo bit is set); we'll also know
; if the volume has a volume password (as if anybody cares).  If for any reason
; we can't find the volume, leave the user volume bit clear.
;
TestUserVolume	name

;
; Make a stack frame for some local variables.  They are:
; 1,s  Pointer into reply buffer
; 5,s  Number of volumes left to check
;
	phd
	pha	; create room for some direct page variables
	pha
	pha
	tsc
	tcd	; make local stack frame
	
	lda MountVolFlags
	and #$FFFE	; clear user volume bit by default
	sta MountVolFlags

; Copy pointer to ASP reply buffer to direct page
	lda SPCommand+$11
	sta <1
	lda SPCommand+$13
	sta <3
	
; Attempt the FPGetSrvrParms (retry if ASP is busy)
@retry
	ldx #<SPCommand
	ldy #^SPCommand
	jsl >RamDispatch
	bcc @gotparms
	lda SPCommand+2	; get result
	cmp #$0702	; is ASP busy (too many calls)?
	beq @retry	; if so, keep trying
	bne @errexit	; some other error, give up
@gotparms
; Now see if we can find a matching volume in the list.
	ldy #4	; offset to number of volumes in reply
	lda [1],y	; get number of volumes
	and #$00FF	; just a byte
	sta <5	; save for loop
	beq @noVolumes	;added 17-Sep-92 DAL
	clc
	lda <1
	adc #6	; point to first volume's length byte
	sta <1
	
; For each volume, compare it to given volume name
@loop
	pha	; result of compare
	pea $0000	; flags (reserved)
	pei <3	; push pointer to volume in list
	pei <1
	pushlong #VolumeName
	_CompareStrings
	pla
	bne @next
@match
	dec <1	; point to flags before length byte
	lda [1]	; get flags
	and #$0001	; get only hasConfigInfo flag
	ora MountVolFlags	; put into MountVolFlags (same bit)
	sta MountVolFlags
	clc	; no error
	bra @exit	; done!
@next
	lda [1]	; get length of volume name
	and #$00FF	; just one byte
	sec	; add 1 for length byte
	adc <1	; point to flags for next volume
	ina	; point to string length for next volume
	sta <1
	
	dec <5	; any more volumes to check?
	bne @loop

@noVolumes	
	lda #$0A06	; volume not found!
@errexit
	sec	; error
@exit
	ply	; clean up stack frame
	ply
	ply
	pld
	
	rts

AllocSPReply
	pha
	pha	; room for result (handle)
	pushlong #SPReplyLen
	lda myMemID
	pha
	pea $C010	; locked, fixed, no cross bank boundary
	pha	; starting location ignored
	pha
	_NewHandle	; allocate ASP's buffer
	plx
	ply
	bcs @exit
	
	stx SPReplyHandle
	sty SPReplyHandle+2
	
	phd
	phy
	phx
	tsc
	tcd
	ldy #2
	lda [1],y	; deref handle
	sta SPCommand+$13	; save for SPCommand
	sta SPGetStatus+$10	; save for SPGetStatus
	tax	; save for return in X
	lda [1]
	sta SPCommand+$11
	sta SPGetStatus+$E
	ply	; remove handle from stack
	ply
	pld
	
	clc	; pointer in A,X (A low)
@exit	rts

FreeSPReply
	pushlong SPReplyHandle
	_DisposeHandle
	rts

; End 24-Oct-91 MSD

******************************************************************************
******************************************************************************

ReportMountError	name
	lda TryMountError
	beq @quiet

	pha	; error code
	pushlong #errNum+1	; pointer to string
	pea $0004	; length to convert to
	_Int2Hex	; build a hex string for *1
	
	_InitCursor

	pha	;space for AlertWindow result
	pea $0021	;flags (cool button layout + substitute pStrings)
	pushlong #subArray
	pea Err1>>16	; push high word of error message pointer
	
	lda TryMountError
	ldx #(ETable-ATKerrors)-2	;index of last error number in table
@lookup	cmp ATKerrors,x
	beq @L0		;found it!
	dex
	dex
	bpl @lookup
	ldx #(ETable-ATKErrors)	;use default string

@L0	lda ETable,x
	pha	; push low word of message pointer
	_AlertWindow	; show the alert
	pla	; ignore the button pressed

@quiet	rts

subArray	dc.l VolumeName	; for Err1
	dc.l errNum	; for generic error

errNum	dc.b 4,'0000'	; four-digit hex number

******************************************************************************

	EndP

	End
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Finder/EasyMount/EasyMount.make b/IIGS.601.SRC/A.U.G/Finder/EasyMount/EasyMount.make
new file mode 100644
index 0000000..58cd372
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Finder/EasyMount/EasyMount.make
@@ -0,0 +1 @@
+#   File:       EasyMount.make
#   Target:     EasyMount
#   Created:    Tuesday, March 12, 1991 4:28:41 AM

EasyMount ÄÄ EasyMount.DataFork EasyMount.RezFork
	delete -i EasyMount
	duplicate -y -d EasyMount.DataFork EasyMount
	duplicate -y -r EasyMount.RezFork  EasyMount
	if {AutoDuplicate} == 1
		DuplicateIIGS -y -mac EasyMount :
	End

EasyMount.RezFork ÄÄ EasyMount.rii
	reziigs EasyMount.rii -o EasyMount.RezFork

EasyMount.DataFork ÄÄ EasyMount.aii.obj DES.aii.obj
	linkiigs -t $B6 EasyMount.aii.obj DES.aii.obj -o EasyMount.DataFork

.aii.obj Ä .aii
	asmiigs {Default}.aii -o {Default}.aii.obj -d DebugSymbols=0
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Finder/EasyMount/EasyMount.rii b/IIGS.601.SRC/A.U.G/Finder/EasyMount/EasyMount.rii
new file mode 100644
index 0000000..0048b22
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Finder/EasyMount/EasyMount.rii
@@ -0,0 +1 @@
+/*************************************************************
 *
 * EasyMount resources
 *
 * Copyright 1991-1993 Apple Computer, Inc.
 * All Rights Reserved
 *
 *************************************************************
 *
 * REVISION HISTORY
 *
 * 9-Jun-91 Dave Lyons
 *   Created file (using Genesys 1.2.4).
 *
 * 5-Feb-92 DAL 1.0 on System 6.0
 *   Version 1.0.
 *
 *------------------------------------------------------------
 *
 * 24-Feb-92 DAL
 *   Version 1.1d1 for 6.1 
 *
 * 13-Mar-92 DAL
 *   Version 1.1d2.
 *
 * 25-Mar-92 DAL
 *   Version 1.1d3.
 *
 * 15-Jul-92 DAL
 *   Version 1.1d7.
 *
 * 17-Jul-92 DAL
 *   Version 1.1d8.
 *
 * 12-Aug-92 DAL
 *   Version 1.1d9.
 *
 * 25-Aug-92 DAL
 *   Version 1.1d10.
 *
 * 15-Sep-92 DAL
 *   Version 1.1d11.
 * 
 * 26-Jan-93 JCM
 *   Version 1.1d13.
 * 
 *  2-Mar-93 JCM
 *   Version 1.1d14. Changed window and controls to work in 320 mode.
 *
 *  1-Apr-93 SS
 *   Version 1.1 (release)
 *
 *************************************************************/

#include "typesiigs.r"

// --- type $8003 defines

#define CTLLST_00000E02 $00000E02

// --- type $8004 defines

#define CTLTMP_00000001 $00000001
#define CTLTMP_00000002 $00000002
#define CTLTMP_00000003 $00000003
#define CTLTMP_00000004 $00000004
#define CTLTMP_00000005 $00000005
#define CTLTMP_00000006 $00000006
#define CTLTMP_00000007 $00000007
#define CTLTMP_00000008 $00000008
#define CTLTMP_00000009 $00000009
#define CTLTMP_0000000A $0000000A
#define CTLTMP_0000000B $0000000B

// --- type $8006 defines

#define PSTR_00000001 $00000001
#define PSTR_00000002 $00000002
#define PSTR_00000003 $00000003
#define PSTR_00000004 $00000004
#define PSTR_00000005 $00000005

// --- type $800B defines

#define LETXTBOX_00000001 $00000001
#define LETXTBOX_00000002 $00000002
#define LETXTBOX_00000003 $00000003

// --- type $800E defines

#define WPARAM1_00000001 $00000001

resource rVersion(1) {
	{ 1, 1, 0, release, $00 },
	verUS,
	"EasyMount",
	"Copyright 1991-93 Apple Computer, Inc."
};

resource rComment(1) {
	"by Dave ÒMr TangentÓ Lyons\n"
	"and Jim ÒWhoops!Ó Murphy\n"
};
/*
resource rComment(1) {
	"by Dave ÒMr TangentÓ Lyons\n\n"
	"ÒAfter using EasyMount for a little while, IÕve decided that itÕs "
	"really cool.Ó\n"
	"                                                   ÑAndy Nicholas"
	"\n\n"
	"ÒFor the school environment, EasyMount is the hottest thing since "
	"safe sex.\n"
	"                                                    ÑRon Lichty"
};
*/

resource rComment(2) {
	"To use EasyMount, put it in the System.Setup folder "
	"inside your System folder.  The next time you start your system, "
	"you will be able to double-click on EasyMount alias documents, "
	"and ÒMake AliasÉÓ will appear in the FinderÕs Extras menu."
};


resource rIcon (1) {
		0x8000,							/* Kind */
		20,								/* Height */
		28,								/* Width */

		$"FFFFFFFFFFFF0FFF000000FFFFFF"
		$"FFFFFFFFFFF0a0FF0FFFF00FFFFF"
		$"FFFF000FFF0aaa0F0FDDD000FFFF"
		$"FFF0eee000000aa00FDDFFF0FFFF"
		$"FFF0eeeeeeee0aaa0FDDDDF0FFFF"
		$"FFF0eeeeeeee0aaaa0FFFFF0FFFF"
		$"FFF0eeeeeeee0aaa0FDDDFF0FFFF"
		$"FFF0eeeeeeee00a00FFFFFF0FFFF"
		$"FFF0000000000F0F00000000FFFF"
		$"FCCCCCCCCCCCCCCCCCCCCCCCCCFF"
		$"FFCCCCCCCCCCCCCCCCCCCCCCCFFF"
		$"FFFFFFF0F0F0F0FF0F0FFFFFFFFF"
		$"FFFFFFFF0F0F0F0F0F0FFFFFFFFF"
		$"FFFFFFFFF0F0FFF00F0FFFFFFFFF"
		$"FFFFFFFFFF00FFFFFF0FFFFFFFFF"
		$"FFFFFFFFFFFF0FFFFF0FFFFFFFFF"
		$"FFFFFFFFFFF000000000FFFFFFFF"
		$"FFFFFFFFFFF0DDDDDDD0FFFFFFFF"
		$"FFFFFFFFFFF0D0DDDDD0FFFFFFFF"
		$"FFFFFFFFFFF0DDDDDDD0FFFFFFFF",

		$"000000000000F000FFFFFF000000"
		$"00000000000FFF00FFFFFFF00000"
		$"0000FFF000FFFFF0FFFFFFFF0000"
		$"000FFFFFFFFFFFFFFFFFFFFF0000"
		$"000FFFFFFFFFFFFFFFFFFFFF0000"
		$"000FFFFFFFFFFFFFFFFFFFFF0000"
		$"000FFFFFFFFFFFFFFFFFFFFF0000"
		$"000FFFFFFFFFFFFFFFFFFFFF0000"
		$"000FFFFFFFFFFFFFFFFFFFFF0000"
		$"0FFFFFFFFFFFFFFFFFFFFFFFFF00"
		$"00FFFFFFFFFFFFFFFFFFFFFFF000"
		$"0000000FFFFFFFFFFFF000000000"
		$"00000000FFFFFFFFFFF000000000"
		$"000000000FFFFFFFFFF000000000"
		$"0000000000FFFFFFFFF000000000"
		$"000000000000FFFFFFF000000000"
		$"00000000000FFFFFFFFF00000000"
		$"00000000000FFFFFFFFF00000000"
		$"00000000000FFFFFFFFF00000000"
		$"00000000000FFFFFFFFF00000000";
};

// --- Control List Definitions

resource rControlList (CTLLST_00000E02, $0000) {
       {
       CTLTMP_00000001,        // control 1
       CTLTMP_00000002,        // control 2
       CTLTMP_00000003,        // control 3
       CTLTMP_00000004,        // control 4
       CTLTMP_00000005,        // control 5
       CTLTMP_00000007,        // control 7
	   CTLTMP_00000006,        // control 6
       CTLTMP_00000008,        // control 8
       CTLTMP_00000009,        // control 9
       CTLTMP_0000000A,        // control 10
       CTLTMP_0000000B,        // control 11
       };
};

// Save button = 1
resource rControlTemplate (CTLTMP_00000001, $0000) {
       $00000001,              // ID
       {108,12,121,98},      // rect
       simpleButtonControl {{
               $0000,          // flag
               $3002,          // moreFlags
               $00000000,      // refCon
               PSTR_00000001,  // titleRef
               0,              // colorTableRef
               {"S","s",$0100,$3900}  // key equivalents
       }};
};

resource rPString (PSTR_00000001, $0000) {
       "Save"
};

// Cancel button = 2
resource rControlTemplate (CTLTMP_00000002, $0000) {
       $00000002,              // ID
       {108,106,121,192},      // rect
       simpleButtonControl {{
               $0000,          // flag
               $3002,          // moreFlags
               $00000000,      // refCon
               PSTR_00000002,  // titleRef
               0,              // colorTableRef
               {"\$1B", "\$1B",$0000,$0000}  // key equivalents
       }};
};

resource rPString (PSTR_00000002, $0000) {
       "Cancel"
};

// Connect button = 3
resource rControlTemplate (CTLTMP_00000003, $0000) {
       $00000003,              // ID
       {108,204,121,290},      // rect
       simpleButtonControl {{
               $0001,          // flag
               $3002,          // moreFlags
               $00000000,      // refCon
               PSTR_00000003,  // titleRef
               0,              // colorTableRef
               {"\$0D", "\$0D",$0000,$0000}  // key equivalents
       }};
};

resource rPString (PSTR_00000003, $0000) {
       "Connect"
};

// Registered user radio button
resource rControlTemplate (CTLTMP_00000004, $0000) {
       $00000004,              // ID
       {51,84,60,222},         // rect
       radioControl {{
               $0001,          // flag
               $3002,          // moreFlags
               $00000000,      // refCon
               PSTR_00000004,  // titleRef
               $0000,          // initialValue
               0,              // colorTableRef
               {"R","r",$0100,$3900}  // key equivalents
       }};
};

resource rPString (PSTR_00000004, $0000) {
       "Registered User"
};


// Guest radio button
resource rControlTemplate (CTLTMP_00000005, $0000) {
       $00000005,              // ID
       {40,84,49,152},         // rect
       radioControl {{
               $0001,          // flag
               $3002,          // moreFlags
               $00000000,      // refCon
               PSTR_00000005,  // titleRef
               $0000,          // initialValue
               0,              // colorTableRef
               {"G","g",$0100,$3900}  // key equivalents
       }};
};

resource rPString (PSTR_00000005, $0000) {
       "Guest"
};


resource rControlTemplate (CTLTMP_00000008, $0000) {
       $00000008,              // ID
       {2,2,29,60},      // rect
       iconButtonControl {{
               $000E,          // flag
               $1020,          // moreFlags
               $00000000,      // refCon
               1,              // iconRef
               0,              // titleRef
               0,              // colorTableRef
               $0000           // displayMode
       }};
};

resource rControlTemplate (CTLTMP_00000009, $0000) {
       $00000009,              // ID
       {7,64,35,295},      // rect
       statTextControl {{
               $0003,          // flag (substitute pstring)
               $1002,          // moreFlags
               $00000000,      // refCon
               LETXTBOX_00000001,     // textRef
               0,              // textSize
               $0000           // just
       }};
};

resource rTextForLETextBox2 (LETXTBOX_00000001, $0000) {
       "Connect to the file server Ò*0Ó as:"
};


// NAME stuff

resource rControlTemplate (CTLTMP_0000000B, $0000) {
       $0000000B,              // ID
       {69,42,79,81},      // rect
       statTextControl {{
               $0004,          // flag (fast)
               $1002,          // moreFlags
               $00000000,      // refCon
               LETXTBOX_00000003,     // textRef
               0,              // textSize
               $0000           // just
       }};
};

resource rTextForLETextBox2 (LETXTBOX_00000003, $0000) {
       "Name:"
};

resource rControlTemplate (CTLTMP_00000007, $0000) {
       $00000007,              // ID
       {68,84,81,292},      // rect
       editLineControl {{
               $0000,          // flag
               $7002,          // moreFlags
               $00000000,      // refCon
               $001F,          // maxSize
               0               // defaultRef
       }};
};


// PASSWORD stuff

resource rControlTemplate (CTLTMP_0000000A, $0000) {
       $0000000A,              // ID
       {86,12,96,81},      // rect
       statTextControl {{
               $0004,          // flag (fast)
               $1002,          // moreFlags
               $00000000,      // refCon
               LETXTBOX_00000002,     // textRef
               0,              // textSize
               $0000           // just
       }};
};

resource rTextForLETextBox2 (LETXTBOX_00000002, $0000) {
       "Password:"
};

resource rControlTemplate (CTLTMP_00000006, $0000) {
       $00000006,              // ID
       {84,84,97,176},      // rect
       editLineControl {{
               $0000,          // flag
               $7002,          // moreFlags
               $00000000,      // refCon
               $8008,          // maxSize
               0               // defaultRef
       }};
};

// --- Window Templates


// "Connect to Blah as" window (Guest/Registered/Name/Password)
resource rWindParam1 (WPARAM1_00000001, $0000) {
       $2080,                  // plFrame (frame bits)
       NIL,                    // plTitle (no Title)
       $00000000,              // plRefCon
       { 0,  0,  0,  0},      // plZoomRect
       NIL,                    // plColorTable (standard colors)
       {$0000, $0000},         // plYOrigin, plXOrigin
       {$0000, $0000},         // plDataHeight, plDataWidth
       {$0000, $0000},         // plMaxHeight, plMaxWidth
       {$0000, $0000},         // plVerScroll, plHorScroll
       {$0000, $0000},         // plVerPage, plHorPage
       $00000000,              // plInfoText (info RefCon)
       $0000,                  // plInfoHeight
       {34,168,162,472},      // plPosition
       infront,                // plPlane
       CTLLST_00000E02,        // plControlList
       $0009                   // plInDesc
};

\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Finder/File.aii b/IIGS.601.SRC/A.U.G/Finder/File.aii
new file mode 100644
index 0000000..e615891
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Finder/File.aii
@@ -0,0 +1 @@
+********************************************************
*						        
*		    Apple IIGS Finder		        
*		 File & disk copy routines		        
*						        
*	Copyright Apple	Computer, Inc. 1986-1993        
*		   All Rights Reserved		        
*						        
*		  Written by Cheryl Ewy		        
*	    Modified for GS/OS by Don Brady
*	Modified for Finder 6.0 by Andy Nicholas
*     Modified for 6.0.1 mostly by Dave Lyons, 1992-1993
*
* Modification History for Version 1.2:
* -------------------------------------
* 05/17/88 DJB	- Added session_call calls to "DeleteFiles"
*		- Added session_call calls to "DoFileCopy"
* 07/25/88 DJB	- Added GetCreateDate() and other create
*		  date stuff for disk copy.
* 07/27/88 DJB	_ Added check to DoCopyFiles to skip feedback
*		  dialog when duplicating files.
* 07/27/88 JAM	- Addressed BRC #34406 by increasing the
*		  slop cushion in GetBuffer from 3K to 24K.
* 08/03/88 DJB	- Added GetDstFileSys() and CheckDstName() routines.
* 08/06/88 DJB	- Made calls to SaveDevStats() routine.
* 08/06/88 DJB	- Turn off Sessioning when dialog boxes are up
* 08/06/88 DJB	- Changed the pcount in the create call to 5 (was 4)
* 08/12/88 DJB	- Added TranslatedName to replace illegal use of FileName variable
* 08/14/88 DJB  - Added RestartSession and checked for memory
*                 errors inside the write loop.
********************************************************
*
* For 6.0.1 -- most changes marked with "DAL" <-- he lies - there are more "JCM"s now :-)
*
* 12-Jun-92 DAL -- Uses DisposeHandleGlue
*
* 19-Jun-92 DAL -- changed lots of pushlong #0 to
*                  lda #0...pha pha, especially when
*                  several were clustered together
*
* 27-Jan-93 JCM - Changed all _CloseWindow macros to make jsl's
*		  to new common close window functions that I've
*		  added to Util.aii.
*
*  1-Feb-93 JCM - Made IsFileMagic actually walk its match table without getting out of sync with the
*		  records on a failed partial match (filetype matched/auxType didn't). By removing lots
*		  of INXs on Dave's suggestion (boy, was I dumb), all is now well and Printer drivers can
*		  now properly route.
*
* 20-Mar-93 JCM - Fixed IsFileMagic to restore C1_DstPathname to *:System if the file isn't routable and
*		  we're in the process of copying files. This stops non-routable files from following the
*		  last file we routed into their folder.
*
* 24-Mar-93 JCM - Guess what? The server copy code doesn't work! It's too late to re-write it (as I
*		  fear needs to happen), so we're disabling it for 6.0.1. 
*
* 24-Mar-93 JCM - Fixed the option-copy case where you dragged a file from the desktop back to the window
*		  it really belongs to. Before we would try to copy the file over itself, which isn't a
*		  very pretty sight.
*
* 24-Mar-93 JCM - Fixed DoMagicRouting and IsFileMagic to better communicate to each other why files
*		  could not be routed, if that's the case. We can now differentiate between the states
*		  of "we aren't routing at all" and "this file isn't routable".
*
* 25-Mar-93 JCM - We no longer attempt to route Media Control drivers. This allows us to take the easy way
*		  out and always assume that the folder we're routing to will exist.
*
* 25-Mar-93 JCM - Fixed CompareVols to be insensitive in its comparison.
*
* 26-Mar-93 JCM - Soon after we start duping the d15 disks, I find that my CompareVols fix is broken.
*		  Now it _really_ works if the volumes are different or you're holding down the option key.
*
*  1-Apr-93 JCM - Awww, what the heck. Let's route Media Control drivers anyway. Someone can always
*		  rename any destination folder, so these really aren't so special.
*
********************************************************

		PRINT	OFF

		STRING	ASIS
		BLANKS	OFF
		MACHINE	M65816
		LONGA	on
		LONGI	on
		INCLUDE	'all.macros'
		INCLUDE	'special.macros'
		INCLUDE	'Finder.equ'
		INCLUDE	'Resource.equ'
		INCLUDE	'Strings.equ'

		include 'dp.equ'

		PRINT	ON

		import DisposeHandleGlue

;
; equates for FSTs
;

PRODOS_FST	equ	$01
DOS33_FST	equ	$02
PASCAL_FST	equ	$04
HFS_FST		equ	$06
MSDOS_FST	equ	$0A
APPLESHARE_FST	equ	$0D

;------------------------------------------
;
; Equates for File Copy module
;
;------------------------------------------
MaxIcons	equ	800			;maximum # of icons which can be copied

SFISize		equ	116			;size of SET_FILE_INFO param block

sizeOfSizeInfo	equ	10			;new equates for extended file copies
dataFork	equ	$4000
resourceFork	equ	$8000

*---------------------------------------------------------------
* Zero Page
*---------------------------------------------------------------
ZStart		equ	0
ProgID		equ	ZStart
Error		equ	ProgID+2
NumFiles	equ	Error+2
NumFolders	equ	NumFiles+4
NumCats		equ	NumFolders+2
NumItems	equ	NumCats+2		
CatIndex	equ	NumItems+4
CatHndl		equ	CatIndex+2
CatPtr		equ	CatHndl+4
BufHndl		equ	CatPtr+4
BufPtr		equ	BufHndl+4
BufSize		equ	BufPtr+4
SoFarFlag	equ	BufSize+4
DataForkYet	equ	SoFarFlag+2
DataReadSize	equ	DataForkYet+4
RsrcForkYet	equ	DataReadSize+4
RsrcReadSize	equ	RsrcForkYet+4
CatalogEOF	equ	RsrcReadSize
TotalEOF	equ	CatalogEOF+4
IconListHndl	equ	TotalEOF+4
IconHndl	equ	IconListHndl+4
IconPtr		equ	IconHndl+4
INamePtr	equ	IconPtr+4
SrcPathLen	equ	INamePtr+4
DstPathLen	equ	SrcPathLen+2
PathNamePtr	equ	DstPathLen+2
FileNamePtr	equ	PathNamePtr+4		
OtherPtr	equ	FileNamePtr+4
RWPtr		equ	OtherPtr+4
segmentCount	equ	RWPtr+4
DstFileSysID	equ	segmentCount+2		
SrcFileSysID	equ	DstFileSysID+2
SkipBadNames	equ	SrcFileSysID+2		
NamesWereXLated	equ	SkipBadNames+2		
DestDeviceNumber equ	NamesWereXLated+2	
Disk2Sub	equ	DestDeviceNumber+2
DeleteFlag	equ	Disk2Sub+2
ReadDuplicate	equ	DeleteFlag+2
WriteDuplicate	equ	ReadDuplicate+2
WhichMsg	equ	WriteDuplicate+2
DelAllDups	equ	WhichMsg+2
NumParams	equ	DelAllDups+2
IsExtended	equ	NumParams+2		
NewNamePtr	equ	IsExtended+2
segmentBlocks	equ	NewNamePtr+4		
localTemp	equ	segmentBlocks+2
MaxFileSize	equ	localTemp+4
OurFileSize	equ	MaxFileSize+4
CallBackStructPtr equ	OurFileSize+4
ZEnd		equ	CallBackStructPtr+4

		IF ZEnd>$FF THEN
			WRITE 'ZEnd = '
			WRITELN ZEnd
			WRITELN 'WARNING... Direct page variable overflow!'
			AERROR 'File.aii extended its local DP too far'
		ENDIF

;-----------------------------------------------
;
; Equates for New Block Copy			; added 4/19/89 DJB
;
;-----------------------------------------------
segmentSize	equ	36864			; size of each segment (bytes)
maxSegments	equ	200			;200 36k segments maximum (8 MB of ram used, max)

;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

		IMPORT	EndCall
		IMPORT	ErrOut
		IMPORT	MiscEntry
		IMPORT	oEndCall
		IMPORT	PathAddName
		IMPORT	PToWString
		IMPORT	WStringCopy
		IMPORT	SaveDevStats		;in drives.aii

;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

		ENTRY   RestartSession
		ENTRY	MakeFileName
		ENTRY	AddDstSlash
		ENTRY	AddSrcSlash
		ENTRY	AllocateMem
		ENTRY	CatalogSrc
		ENTRY	DrawMsg
		ENTRY	DrawThermo
		ENTRY	ChangePath
		ENTRY	CheckDstName
		ENTRY	NameErr
		ENTRY	CheckKey
		ENTRY	CloseFile
		ENTRY	CopyDisk
		ENTRY	CopyFiles
		ENTRY	CreateFile
		ENTRY	DeleteFiles
		ENTRY	DerefIcon
		ENTRY	DestroyFile
		ENTRY	DoFileCopy
		ENTRY	DupFiles
		ENTRY	EraseDisk
		ENTRY	FileStartUp
		ENTRY	GetBuffer
		ENTRY	GetDevInfo
		ENTRY	GetDevNum
		ENTRY	GetDstFileSys
		ENTRY	GetFileInfo
		ENTRY	GetFileInfo2
		ENTRY	GetFileInfo3
		ENTRY	GetMark
		ENTRY	GetNextCat
		ENTRY	GetNextFile
		ENTRY	GetNextIcon
		ENTRY	GetSelIcon
		ENTRY	GetVolInfo
		ENTRY	GetVolSizes
		ENTRY	RebuildVCR
		ENTRY	LockIcon
		ENTRY	MakeDstName
		ENTRY	MakeINamePtr
		ENTRY	MakePathName
		ENTRY	MakeSrcName
		ENTRY	OpenFile
		ENTRY	OpenResource
		ENTRY	ProDosCall
		ENTRY	ProDosErr
		ENTRY	ReadBlocks
		ENTRY	ReadDataFile
		ENTRY	ReadRsrcFile
		ENTRY	SetFileInfo
		ENTRY	SetMark
		ENTRY	StdEnd
		ENTRY	UnLockIcon
		ENTRY	WriteBlocks
		ENTRY	WriteDataFile
		ENTRY	WriteRsrcFile


****************************************************************
*
* FILE ROUTINES	- CALL TABLE
*
****************************************************************

FileRoutines	PROC

		DC.L	FileStartUp
		DC.L	CopyFiles
		DC.L	CopyDisk
		DC.L	DeleteFiles
		DC.L	DupFiles

		ENDP

****************************************************************
*
* FILE ROUTINES	- DATA DECLARATIONS
*
****************************************************************

FRData		PROC

*---------------------------------------------------------------
* Data
*---------------------------------------------------------------

		ENTRY	ZeroPage
ZeroPage	DS.B	2			;zero page assigned to File Routines

		ENTRY	CP_Trustme
CP_Trustme	DC.W	3			;parameter block for CHANGE_PATH call with Trustme flag
		ENTRY	CP_TOldPtr
CP_TOldPtr	DC.L	0			;ptr to	original pathname
		ENTRY	CP_TNewPtr
CP_TNewPtr	DC.L	0			;ptr to	new pathname
		ENTRY	CP_TrustmeFlag
CP_TrustmeFlag	DC.W	$8000

		ENTRY	OE_Params
OE_Params	DC.W	4			;paramater block for extend OPEN call
		ENTRY	OE_Ref
OE_Ref		DC.W	0			;reference number
		ENTRY	OE_NamePtr
OE_NamePtr	DC.L	0			;ptr to	pathname
		ENTRY	OE_ReqAccess
OE_ReqAccess	DC.W	0			;request access
		ENTRY	OE_Resource
OE_Resource	DC.W	1			;resource number (use resource fork)

		ENTRY	C_Params
C_Params	DC.W	1			;parameter block for CLOSE call
		ENTRY	C_Ref
C_Ref		DC.W	0			;reference number

		ENTRY	RW_Params
RW_Params	DC.W	4			;parameter block for READ/WRITE calls
		ENTRY	RW_Ref
RW_Ref		DC.W	0			;reference number
		ENTRY	RW_BufPtr
RW_BufPtr	DC.L	0			;ptr to	data buffer
		ENTRY	RW_Size
RW_Size		DC.L	0			;number	of bytes to read or write
		ENTRY	RW_Actual
RW_Actual	DC.L	0			;number	of bytes actually read/written


		ENTRY	RWE_Params
RWE_Params	DC.W	4			;parameter block for extend READ/WRITE
		ENTRY	RWE_Ref
RWE_Ref		DC.W	0			;reference number
		ENTRY	RWE_BufPtr
RWE_BufPtr	DC.L	0			;ptr to	data buffer
		ENTRY	RWE_Size
RWE_Size	DC.L	0			;number	of bytes to read or write
		ENTRY	RWE_Actual
RWE_Actual	DC.L	0			;number	of bytes actually read/written

		ENTRY	CP_Params
CP_Params	DC.W	2			;parameter block for CHANGE_PATH call
		ENTRY	CP_OldPtr
CP_OldPtr	DC.L	0			;ptr to	original pathname
		ENTRY	CP_NewPtr
CP_NewPtr	DC.L	0			;ptr to	new pathname

		ENTRY	GM_Params
GM_Params	DC.W	2			;parameter block for GET_MARK
		ENTRY	GM_Ref
GM_Ref		DC.W	0			;reference number
		ENTRY	GM_Position
GM_Position	DC.L	0			;position in file

		ENTRY	SM_Params
SM_Params	DC.W	3			;parameter block for SET_MARK
		ENTRY	SM_Ref
SM_Ref		DC.W	0			;reference number
		ENTRY	SM_Base
SM_Base		DC.W	0
		ENTRY	SM_Displace
SM_Displace	DC.L	0			;position in file

		ENTRY	E_Params
E_Params	DC.W	4			;parameter block for ERASE_DISK call
		ENTRY	E_DevName
E_DevName	DC.L	C1_DeviceName		;ptr to	device name
		ENTRY	E_VolName
E_VolName	DC.L	0			;ptr to	volume name
		ENTRY	E_FileSys
E_FileSys	DC.W	0			;file system ID
		ENTRY	E_ReqFileSys
E_ReqFileSys	DC.W	0			;requested file system ID


		ENTRY	V_Params
V_Params	DC.W	5			;parameter block for VOLUME call
		ENTRY	V_DevName
V_DevName	DC.L	C1_DeviceName		;ptr to	device name
		ENTRY	V_VolName
V_VolName	DC.L	FileNameBuff		;ptr to	volume name - unused
		ENTRY	V_Blocks
V_Blocks	DC.L	0			;total blocks -	unused
		ENTRY	V_Free
V_Free		DC.L	0			;free blocks - unused
		ENTRY	V_FileSys
V_FileSys	DC.W	0			;file system ID


		ENTRY	RWB_Params
RWB_Params	DC.W	6			;param block for D_READ/D_WRITE calls
		ENTRY	RWB_DevNum
RWB_DevNum	DC.W	0			;device	number
		ENTRY	RWB_BufPtr
RWB_BufPtr	DC.L	0			;ptr to	data buffer
		ENTRY	RWB_Count
RWB_Count	DC.L	512			;bytes to read
		ENTRY	RWB_BlockNum
RWB_BlockNum	DC.L	0			;block number to be read or written
		ENTRY	RWB_BlockSize
RWB_BlockSize	DC.L	512			;the size, in bytes, of a block
		ENTRY	RWB_Actual
RWB_Actual	DC.L	0			;bytes actually transfered


		ENTRY	GDN_Params
GDN_Params	DC.W	2			;parameter block for GET_DEV_NUM call
		ENTRY	GDN_Name
GDN_Name	DC.L	0			;ptr to	volume name
		ENTRY	GDN_DevNum
GDN_DevNum	DC.W	0			;device	number


		ENTRY	DI_Params
DI_Params	DC.W	2			;parameter block for D_INFO call
		ENTRY	DI_DevNum
DI_DevNum	DC.W	0			;device	number
		ENTRY	DI_DevName
DI_DevName	DC.L	C1_DevNameBuf		;ptr to	device name (class 1 output)


		ENTRY	D_Params
D_Params	DC.W	1			;parameter block for DESTROY call
		ENTRY	D_Name
D_Name		DC.L	0			;ptr to	file's pathname

		ENTRY	FlushParms
FlushParms	dc.w	1
		dc.w	0			;flush everything

		ENTRY	FI_Params
FI_Params	DC.W	12			;parameter block for GET_FILE_INFO calls
		ENTRY	FI_Name
FI_Name		DC.L	0			;ptr to	pathname
		ENTRY	FI_Access
FI_Access	DC.W	0			;access
		ENTRY	FI_FType
FI_FType	DC.W	0			;file type
		ENTRY	FI_AType
FI_AType	DC.L	0			;aux type
		ENTRY	FI_SType
FI_SType	DC.W	0			;storage type
		ENTRY	FI_CDate
FI_CDate	DC.L	0,0			;create	date
		ENTRY	FI_MDate
FI_MDate	DC.L	0,0			;modify	date
		ENTRY	FI_OptionListPtr
FI_OptionListPtr dc.L	FI_OptionList		;option list support 11/21/90, by andy
		ENTRY	FI_EOF
FI_EOF		DC.L	0
		ENTRY	FI_Blocks
FI_Blocks	DC.L	0
		ENTRY	FI_ResourceEOF
FI_ResourceEOF	DC.L	0
		ENTRY	FI_ResourceBlocks
FI_ResourceBlocks DC.L	0
		ENTRY	FI_OptionList
FI_OptionList	dc.W	64 			;fixing BRC #77946
		ds.b 	62

		ENTRY	O_Params
O_Params	DC.W	0			;paramater block for OPEN call (filled)
		ENTRY	O_Ref
O_Ref		DC.W	0			;reference number
		ENTRY	O_NamePtr
O_NamePtr	DC.L	0			;ptr to	pathname
		ENTRY	O_ReqAccess
O_ReqAccess	DC.W	0			;request access
		ENTRY	O_Resource
O_Resource	DC.W	0			;resource number
		ENTRY	O_Access
O_Access	DC.W	0			;file access
		ENTRY	O_FileType
O_FileType	DC.W	0			;file type
		ENTRY	O_AuxType
O_AuxType	DC.L	0			;aux type
		ENTRY	O_StoreType
O_StoreType	DC.W	0			;storage type
		ENTRY	O_CreateDate
O_CreateDate	DC.L	0,0			;creation date
		ENTRY	O_ModDate
O_ModDate	DC.L	0,0			;modification date
		ENTRY	O_OptionList
O_OptionList	DC.L	0			;option list ptr
		ENTRY	O_DataEOF
O_DataEOF	DC.L	0			;data fork EOF
		ENTRY	O_Blocks
O_Blocks	DC.L	0			;blocks used
		ENTRY	O_RsrcEOF
O_RsrcEOF	DC.L	0			;resource fork EOF
	
		ENTRY	session_call
session_call	DC.W	0			;parameter block for SESSION calls

		ENTRY	session_list
session_list	DC.W	0			;parameter block for SESSION_STATUS call (filled)
		ENTRY	session_stat
session_stat	DC.W	0


		ENTRY	C1_DevNameBuf
C1_DevNameBuf	DC.W	0			;space for device name
		ENTRY	C1_DeviceName
C1_DeviceName	DS.B	34			;space for device name

		ENTRY	FileNameBuff
FileNameBuff	DC.W	0			;length of buffer (filled in later)
		ENTRY	FileName
FileName	DS.B	MaxFileName+2		;space for local filename

		ENTRY	TranslatedName
TranslatedName	DS.B	MaxFileName+3		;space for Translated filename+1

		ENTRY	AbortFlag
AbortFlag	DC.W	0				;added 06/09/88 DJB

		EXPORT	C1_SrcPathName
		ENTRY	C1_SrcPathName
C1_SrcPathName	DS.B	MaxPathLen+MaxFileName+2	;added 06/28/88 DJB
		EXPORT	C1_DstPathName
		ENTRY	C1_DstPathName
C1_DstPathName	DS.B	MaxPathLen+MaxFileName+2	;added 06/28/88 DJB
		ENTRY	C1_IconName			;added 06/28/88 DJB
C1_IconName	DS.B	MaxFileName+2


;
; last source and destination device numbers used by block copy
;
		ENTRY	Source_DevNum
Source_DevNum	dc.w	0
		ENTRY	Dest_DevNum
Dest_DevNum	dc.w	0

		EXPORT	copyWindowPtr
copyWindowPtr	dc.L	0
		ENTRY	ourPort
ourPort		dc.L	0

;
; parameter list for FSTSpecific file copy for AppleShare FST
;
		ENTRY	CopyFileParms
CopyFileParms	dc.w	4
		dc.w	$000d		;AppleShare
		dc.w	7		;copyFiles
		dc.L	c1_SrcPathname	;srcPtr
		dc.L	c1_DstPathname	;destPtr
		ENDP


****************************************************************
*
* FileEntry
*
****************************************************************

		EXPORT	FileEntry
FileEntry	PROC

;NOTE - this is self-modifying code!

;X contains the number of the routine to execute

		dex				;decrement routine #
		txa				;create index into table of addresses
		asl	a
		asl	a
		tax
		lda	>FileRoutines,x		;get address of routine
		sta	>Adrs+1			;and store after the JSL
		lda	>FileRoutines+1,x
		sta	>Adrs+2
		lda	>ZeroPage		;load A with zero page assigned to us
Adrs		jsl	Adrs			;execute the routine
		rtl				;return to calling routine
		ENDP



****************************************************************
*
* FileStartUp
*
****************************************************************

FileStartUp	PROC

ZP		equ	9			;input params
ID		equ	ZP+2

		phd
		lda	ZP,s			;get zero page assigned	to us
		sta	>ZeroPage		;and save
		tcd

		ldx	#ZEnd
ZPLoop		stz	<ZStart,x		;clear zero page
		dex
		dex
		bpl	ZPLoop

		lda	ID,s			;get program ID
		sta	<ProgID			;and save

		phb
		phk
		plb
		
		lda	#MaxFilename+4
		sta	FileNameBuff
		
		lda	#36
		sta	C1_DevNameBuf

		lda	#1
		sta	session_list

		lda	#14
		sta 	O_Params
		
		plb
		ldy	#4			;param size
		jml	EndCall

		ENDP

****************************************************************
*
* CheckReadOnlyDest
*
****************************************************************

CheckReadOnlyDest PROC

		IMPORT	IsReadOnly
		IMPORT	C1_Filename
		IMPORT	doAlertWindow
		
;		clc				;removed 25-Aug-92 DAL!
;		rts
		
		ldy	<DstFileSysID
		jsl	IsReadOnly
		bcs	@readOnly
		rts

@readOnly	sep	#$20
		LONGA OFF
		ldx	#$FFFF
@loop		lda	C1_DstPathname+3,x
		cmp	#':'
		beq	@gotRoot
		sta	>C1_Filename+2,x
		inx
		cpx	C1_DstPathname
		blt	@loop
@gotRoot		
		rep	#$20
		LONGA ON

		lda	C1_DstPathname
		dec	a
		sta	>c1_filename

		lda	#rasDragReadOnly
		jsl	doAlertwindow
		sec
		rts
		ENDP

****************************************************************
*
* CopyFiles
*
****************************************************************

CopyFiles	PROCNAME

		IMPORT	SaveCursor
		IMPORT	RestoreCursor
		IMPORT	ArrowCursor
		IMPORT	WatchCursor
		IMPORT	finderTaskRecord
		IMPORT	doAlertWindow
		import	WindowGlobalON
		import	WindowGlobalOFF
		import	FileCopyOpen
		import	FileCopyClose
		import	DrawCopyControls
		import	DrawNumItems
		import	StrAlloc
		import	ChangePathFixPath
		import	c1_pathname
		import	c1_temppath
		import	FinderDPage
		IMPORT	CloseFileWindow		;in util.aii - 27-Jan-93 JCM
		import	WStrCompare		;24-Mar-93 JCM

OptionKey	equ	10			; WARNING: clones of OptionKey and
DstPtr		equ	OptionKey+2		; DstPtr are now used in StdEnd
SrcPtr		equ	DstPtr+4
IcHndl		equ	SrcPtr+4		;input parameters

ParamSize	equ	14			;# of bytes of input params

SrcVolLen	equ	ZEnd			;zero page temps
DstVolLen	equ	SrcVolLen+2
RetAdrs		equ	DstVolLen+2

		IF	RetAdrs+4>$FF THEN
			WRITE 'RedAdrs = '
			WRITELN RetAdrs
			WRITELN 'WARNING... Direct page variable overflow!'
			AERROR 'CopyFiles extended its local DP too far'
		ENDIF


		phd
		tcd

		phb
		phk
		plb

		lda	#ParamSize		;# of bytes of input params
		sta	<NumParams

		jsl	SaveCursor

*** Added - 24-Mar-93 JCM - Fixes option-copying a file on the desktop back to its
***			    original window. Previously, we would attempt to duplicate
***			    the file onto itself, which is quite a bad thing.

		lda 	>FinderDPage		;only look to disallow the move if the option key
		tax				; is down
		lda 	>modifiers,x
		and 	#$0800
		beq	@diffVols

		pha
		lda	SrcPtr+4,s		;get ptr to source (window) pathname
		pha
		lda	SrcPtr+4,s
		pha
		lda	DstPtr+8,s		;get ptr to dest (window) pathname
		pha
		lda	DstPtr+8,s
		pha
		jsl	WStrCompare
		pla
		beq	@diffVols

		stz	<Error			;don't return an error
		jmp	StdEnd

@diffVols

*** End - 24-Mar-93 JCM

		jsl	WatchCursor
		
		stz	<WhichMsg		;no message for	now
		stz	AbortFlag		;added 06/09/88 DJB
		stz	<SrcPathLen		;zero out pathname lengths
		stz	<DstPathLen
		stz	<NamesWereXLated	; JAM 06/01/89 Fixing BRC #49639

		lda	OptionKey,s		;are we	copying	extended icons?
		bmi	NoOption		;yes - so don't clear DelAllDups flag
						;or put	up File	Copy Alternatives dialog
		stz	<DelAllDups

*** 17-Aug-92 DAL -- experimentally removed
;		lda	OptionKey,s		;was Option key	held down?
;		beq	NoOption		;no
;		
;		jsr	CopyOptions		;yes - so put up Copy Options dialog
;		bcs	doQuit			;'Cancel' was selected so quit
NoOption

		lda	DstPtr+2,s		;get ptr to dest (window) pathname
		tax
		lda	DstPtr,s
		phx
		pha
		PushLong #C1_DstPathName
		jsl	WStringCopy		;copy dst pathname to our buffer

		lda	SrcPtr+2,s		;get ptr to source (window) pathname
		tax
		lda	SrcPtr,s
		phx
		pha
		PushLong #C1_SrcPathName
		jsl	WStringCopy		;copy src pathname to our buffer

		jsr	AddSrcSlash		;add separator after src pathname
		jsr	AddDstSlash		;add separator after dst pathname

		lda	IcHndl,s		;get handle to first icon in icon list
		sta	<IconHndl
		sta	<IconListHndl		;save for 'SetIconBits'
		lda	IcHndl+2,s
		sta	<IconHndl+2
		sta	<IconListHndl+2
		jsr	GetSelIcon		;search	list for first selected	icon

		jsr	CompareVols		;are src and dest vols the same?
;;;		beq	SameVol			;yes - 25-Mar-93 JCM
		bcc	SameVol			;yes - 25-Mar-93 JCM
		brl	DiffVols		;no

;------------------------------------------------------------------------------

doQuit
		lda	#$FFFF
		sta	<Error			;return	an error
		jmp	StdEnd

SameVol
		dec	<SrcPathLen		;strip off ':'
		dec	<DstPathLen		;strip off ':'

		stz	<CatPtr			;zero out CatPtr so error handling
		stz	<CatPtr+2		;will work correctly

		lda	#C1_SrcPathName
		sta	CP_OldPtr		;ptr to	SrcPathName
		lda	#^C1_SrcPathName
		sta	CP_OldPtr+2

		lda	#C1_DstPathName
		sta	CP_NewPtr		;ptr to	DstPathName
		lda	#^C1_DstPathName
		sta	CP_NewPtr+2

		jsr	CountIcons		;count the # of	icons being moved
		bcs	doQuit

ChangeLoop	jsr	CheckKey		;does user want	to cancel?
		bcs	doQuit			;yes

		jsr	MakeSrcName		;make source pathname
		bcs	doQuit			;name too long
		jsr	MakeDstName		;make dest pathname
		bcs	doQuit			;name too long
		jsr	CompareNames		;are the pathnames the same?
		beq	ChangeOK		;yes - so skip the ChangePath call

		stz	copyWindowPtr+1

		stz	srqCopyOutParms+2
		pea	$0106			;finderSaysBeforeCopy
		ldx	#0
		pea	$8000			;how = send to first guy who accepts it
		phx
		phx				;target = nil
		pushlong #srqCopyParms
		pushlong #srqCopyOutParms	;dataOut = nil
		_SendRequest
		bcs	@continue

		lda	srqCopyOutParms+2
		bne	ChangeNext
@continue
		lda	#1			;flag to to append the filename to the dest pathname
		jsr	DoMagicRouting		;see if we should route this file specially - 18-Jan-93 JCM
		bcs	doQuit			;got error - cancel - 23-Jan-93 JCM

		jsr	ChangePath		;do a ProDOS ChangePath	call
		bcc	ChangeOK		;no errors
		bpl	ChangeNext		;got error - skip this file
		brl	doQuit			;got error - cancel

ChangeOK	ldy	#icFlag
		lda	[<IconPtr],y		;get Flag word in IconObj record
		ora	#ICCOPY+ICDELETE	;set copy & delete bits so icon
		sta	[<IconPtr],y		;draw correctly
		
		pushlong #c1_SrcPathname	;old path
		pushlong #c1_temppath
		jsl	WStringCopy
		
		pushlong #c1_DstPathname	;new path
		pushlong #c1_pathname
		jsl	WStringCopy
		
		ldx	<IconHndl
		ldy	<IconHndl+2
		jsl	ChangePathFixPath	;fix all the windows, info windows, and desktop icons
		
ChangeNext	jsr	GetNextIcon
		bcs	@next

		brl	ChangeLoop		;loop until done with all icons
@next		

		stz	<Error			;don't return an error
		jmp	StdEnd

;------------------------------------------------------------------------------

		
srqCopyParms	dc.w	2			;parameter count=2
		dc.L	C1_SrcPathName
		dc.L	C1_DstPathName

srqCopyOutParms	dc.w	0			;recvCount
		dc.w	0			;abortFlag
		
;------------------------------------------------------------------------------
		IMPORT	diffVolumes
DiffVols	lda	#1
		sta	>diffVolumes		;so indicate

		dec	<SrcPathLen		;strip off ':'

		jsr	CountIcons		;count the # of	icons being copied
		bcc	@noQuit1
		brl	doQuit			;too many icons	to copy	at once
@noQuit1		
		
		jsr	FileCopyOpen
		bcs	CatErr
		
		jsr	DrawCopyControls
		lda	#1			;start counting upwards from 1
		ldy	#0
		jsr	DrawNumItems
		
;		lda	<NumFolders		;always say "Preparing to copy..."
;		bne	@sayPrepare		;(for now)
;		lda	<NumFiles
;		cmp	#10
;		blt	@noPrepare
		
@sayPrepare	pea	15
		pea	30
		_MoveTo
		pushlong #strAlloc
		_DrawString
@noPrepare

		jsr	GetCatalogs		;get catalogs for all selected icons
		bcc	@noQuit
		brl	CatErr1			;Catalog routine got an	error

@noQuit		lda	<NumCats
		beq	noCatalogs
		
		jsr	AddSrcSlash		;add separator after src pathname
		jsr	GetDstFileSys		;added 08/03/88 DJB
		bcs	CatErr			;user canceled from "insert disk"

		jsr	CheckReadOnlyDest	;%%% shouldn't this be done before we even try to read
		bcs	CatErr			;%%% the source catalog? - 19-Jan-93 JCM

		jsr	DoFileCopy		;copy the files
		jsr	SetIconBits		;copy flag bits	into IconObj records

;		import DisposeHandleGlue
CatLoop		jsl DisposeHandleGlue		;dispose of catalogs
		dec	<NumCats
		bne	CatLoop
		
noCatalogs	jsr	FileCopyClose
		jmp	StdEnd

; JAM 5/18/89 (Fixing BRC #47828)
; If we got an access error during the catalog operation, it hasn't been reported
; yet, because we need more context to decide between simple "access error" and
; "irreconcilable file name clash" (FICantMove error).
; This code works because I modified Catalog routines to to return the error code in Y!!!
; Bogosity to the max!

CatErr1
		cpy	#$4E			; was it access error
		bne	CatErr
		phy

		lda	#rasNoAccess
		jsl	doAlertWindow
		ply
		sec

CatErr		lda	#$FFFF			;got an	error from Catalog routine
		sta	<Error			;so - quit and return an error
		lda	<NumCats		;any catalogs to dispose of?
		bne	CatLoop			;yes

		jsr	FileCopyClose
		jmp	StdEnd			;no


*** Removed 17-Aug-92 DAL -- no longer called
;;---------------------------------------------------------------
;; CopyOptions
;;---------------------------------------------------------------
;
;CopyOptions
;		jsl	SaveCursor
;		jsl	ArrowCursor
;		jsl	WindowGlobalON
;
;		pha
;		pha
;		lda #0
;		pha
;		pha				;titlePtr
;		pha
;		pha				;refCon is ptr to our window info block
;		pha
;		pha				;content draw proc
;		pha
;		pha				;window defproc
;		pea	2			;refIsResource
;		pha
;		pea	7			;window resource we want
;		pea	$800e			;rWindParam1
;		_NewWindow2
;		
;		jsl	WindowGlobalOFF
;		pulllong fileWindowPtr
;		bcc	@loop
;
;;
;; close the window only if something bad happened and we actually have a window pointer
;; because something could have happened when we went to add controls (but didn't
;; get created because we couldn't find the disk or the resource)
;;
;		lda	fileWindowPtr+1
;		beq	@leave
;
;@done		jsl	CloseFileWindow
;
;@leave		jsl	RestoreCursor
;
;		lda	#$FFFF			;cancel, cancel
;		sec
;		rts
;
;;
;; now that we've set all the controls values, use doModalWindow to play with everything
;;
;@loop		pha
;		pha
;		pea	0
;		lda	>finderTaskRecord
;		pha			;push the task record's ptr
;		lda #0
;		pha
;		pha			;update proc
;		pea $8000
;		pha			;eventHook
;		pha
;		pha			;beep proc
;		pea	$c010		;flags
;		_DoModalWindow
;
;		pla
;		plx
;		cmp	#2
;		blt 	@loop
;
;		dec	a
;		dec	a
;		asl	a
;		tax
;		lda	returns,x
;		pha
;
;		jsl	RestoreCursor
;
;		jsl	CloseFileWindow
;
;		pla
;		asl	a			;button	ID returned in A
;		bmi	PUDone			;'Cancel' selected
;		ror	a			;restore hi bit	of button ID
;		sta	<DelAllDups		;and save
;		clc				;indicate no error
;PUDone		rts
;
;;
;; locals
;;
;;		EXPORT	fileWindowPtr
;fileWindowPtr	dc.L	0
;returns		dc.w	$0000
;		dc.w	$8001
;		dc.w	$0001
;		dc.w	$FFFF

;---------------------------------------------------------------
;
; CompareVols
;
; Return SEC if C1_SrcPathNmae and C1_DstPathName are on different
; volumes, or if the Option key is down.
;
;---------------------------------------------------------------
CompareVols

*** added 17-Aug-92 DAL -- experimentally make Option do a copy even to the same disk
		lda >FinderDPage
		tax
		lda >modifiers,x
		and #$0800
		bne CVReturn
*** end 17-Aug-92

		sep	#$20
		LONGA OFF

		ldx	#0			;determine length of source volume name
CVSrcLoop	inx
		lda	C1_SrcPathName+2,x
		cmp	#SEPARATOR		;GS/OS separator character
		bne	CVSrcLoop
		stx	<SrcVolLen		;and save

		ldx	#0			;determine length of dest volume name
CVDstLoop	inx
		lda	C1_DstPathName+2,x
		cmp	#SEPARATOR		;GS/OS separator character
		bne	CVDstLoop
		stx	<DstVolLen		;and save

		cpx	<SrcVolLen		;are the lengths the same?
		bne	CVReturn		;no - so volumes not the same

		pha				;25-Mar-93 JCM - scratch space

CVCmpLoop	lda	C1_SrcPathName+1,x	;compare the volume names

*** Lots o' changes - 25-Mar-93 JCM - Make this thing case-insensitive.

		cmp	#'a'
		blt	@saveChar
		
		cmp	#'z'+1
		bge	@saveChar

		and	#$DF			;convert to uppercase
		
@saveChar	sta	1,s

		lda	C1_DstPathName+1,x
		cmp	#'a'
		blt	@compareChars
		
		cmp	#'z'+1
		bge	@compareChars

		and	#$DF			;convert to uppercase

@compareChars	cmp	1,s
		bne	CVReturn2		;not the same

		dex
		bne	CVCmpLoop
		
		pla
		
		clc				
		
		bra	CVReturnCommon		;volumes are the same
		
CVReturn2	pla

CVReturn	sec				;volumes are different

CVReturnCommon	rep	#$20
		LONGA ON
		rts				;return	'equal'	if vol names are same

*** End - 25-Mar-93 JCM

;---------------------------------------------------------------
; Get the destination file system ID  (ALSO STUFFS <DestDeviceNumber per JAM 06/01/89)
;---------------------------------------------------------------
		ENTRY	GetDstFileSys
GetDstFileSys
		lda	C1_DstPathName
		pha				;save length of dest path

		sep	#$20			;go into 8-bit mode
		LONGA OFF
		
		ldx	#0			;determine length of dest volume name
GFSLoop		inx
		lda	C1_DstPathName+2,x
		cmp	#SEPARATOR		;GS/OS separator character
		bne	GFSLoop
		stx	C1_DstPathName
		
		rep	#$20			;go back to 16-bit mode
		LONGA ON
		
		lda	#1			;start with default (ProDOS)
		sta	<DstFileSysID
		
		lda	#C1_DstPathName		;set up	ptr to dest pathname for
		sta	GDN_Name		;and for GetDevNum to use
		sta	<PathNamePtr
		lda	#^C1_DstPathName
		sta	GDN_Name+2
		sta	<PathNamePtr+2
		jsr	GetDevNum		;get device #
		bcs	GFSReturn		;got error
		
		lda	GDN_DevNum
		sta	<DestDeviceNumber	; JAM 06/01/89 Fixing BRC #49639
		sta	DI_DevNum
		jsr	GetDevInfo		;convert device	# into device name
		bcs	GFSReturn		;got error
		jsr	GetVolInfo		;get file system ID
		bcs	GFSReturn		;got error

		lda	V_FileSys
		sta	<DstFileSysID
GFSReturn
		pla				;restore length of dest path
		sta	C1_DstPathName
		rts

;---------------------------------------------------------------
; CompareNames
;---------------------------------------------------------------

CompareNames
		sep	#$20
		LONGA OFF

		ldx	C1_SrcPathName		;get length of source pathname
		cpx	C1_DstPathName		;are the pathname lengths the same?
		bne	@done			;no - so names are different
		inx
@loop		lda	C1_SrcPathName,x	;compare the names
		cmp	C1_DstPathName,x
		bne	@done			;not the same
		dex
		bne	@loop

@done		rep	#$20			;go back to 16-bit mode
		LONGA ON
		rts				;return	'equal'	if names are same

;---------------------------------------------------------------
; CountIcons
;---------------------------------------------------------------

		IMPORT	magicToDo		;in data.aii

CountIcons
		stz	<NumFiles		;init #	of selected icons
		stz	<NumFolders
		stz	numMagicFiles		;18-Jan-93 JCM

@loop		inc	<NumFiles		;inc # of selected icons
		lda	<NumFiles
		cmp	#MaxIcons+1		;too many icons	to copy	at same	time?
		bcs	TooManyIcons		;yes
		
*** Added - 18-Jan-93 JCM - We now handle magic routing here. If magicToDo is true (it was set in dragIt in
***		     	    icons.aii), then we need to match each file against the magicTypeTable. If we get
***			    no matches, then we don't query the user about us doing this for them.

		ldx	#0			;we're just counting routable files, not copying
		jsr	IsFileMagic		;find out if we need to place this one				
		bcs	@getNextSelected	; nope
		
		inc	numMagicFiles

@getNextSelected jsr	GetNextIcon		;find next selected icon

*** end - 18-Jan-93 JCM

		bcs	@doneIcons

		ldy	#icFType

		lda	[<IconPtr],y
		cmp	#$000F
		bne	@loop
		inc	<NumFolders
		bra	@loop			;loop until no more selected icons

@doneIcons	ldy	#icFType		;always check the last one on the way out
		lda	[<IconPtr],y
		cmp	#$000F
		bne	@noMoreFolders
		inc	<NumFolders
@noMoreFolders

		lda	<IconListHndl		;restore handle	to first icon in list
		sta	<IconHndl
		lda	<IconListHndl+2
		sta	<IconHndl+2
		jsr	GetSelIcon		;search	list for first selected	icon

*** Added - 18-Jan-93 JCM - See if there are any files to route. If so, ask the user if they really want us
***			    to do it.

		lda	#rasRoutingSingle	;assume only copying one file this time

		ldx	numMagicFiles		;how many files to route?
		beq	@exitNoRouting		; none, don't ask
		dex				
		beq	@askAboutRouting	; only one
			
		dec	a			;#rasRoutingMultiple = #rasRoutingSingle - 1

@askAboutRouting 

		jsl	doAlertWindow		;ask if they want routing to be done

*** Added - 24-Mar-93 JCM - Let's try two buttons for now.

;		bne	@shouldWeRoute		; it wasn't Cancel, see if we should route
		bne	@exitCountIcons

*** End - 24-Mar-93 JCM

		sec				;the user chose Cancel, so exit without copying any files
		
		rts	

*** Added - 24-Mar-93 JCM - Let's try two buttons for now.

;@shouldWeRoute	dec	a
;		bne	@exitCountIcons		;they want us to route
		
*** End - 24-Mar-93 JCM

@exitNoRouting	lda	#0			;they chose to not let us route, so flag to copy normally
		sta	>magicToDo

@exitCountIcons	clc				;indicate no error

*** end - 18-Jan-93 JCM

		rts

;
; augh, say we can only copy 1000 icons at a time
;
TooManyIcons	lda	#rasTooMany
		jsl	doAlertWindow
		sec
		rts

;---------------------------------------------------------------
; GetCatalogs
;---------------------------------------------------------------

GetCatalogs

		pla				;get return address
		sta	<RetAdrs		;and save
		stz	<NumFiles		;zero out counters
		stz	<NumCats
		stz	<TotalEOF
		stz	<TotalEOF+2

GCLoop		jsr	MakeSrcName		;make pathname for icon
		bcs	GCDone			;name too long

		stz	srqCopyOutParms+2
		pea	$0106			;finderSaysBeforeCopy
		ldx	#0
		pea	$8000			;how = send to first guy who accepts it
		phx
		phx				;target = nil
		pushlong #srqCopyParms
		pushlong #srqCopyOutParms	;dataOut = copyoutparms
		_SendRequest
		bcs	@continue

		lda	srqCopyOutParms+2
		bne	@abort
@continue

		ldx	#1			;store filecount in first cat entry
		jsr	CatalogSrc		;get catalog for icon
		bcs	GCDone			;Catalog routine got an	error
		adc	<NumFiles		;# of files in catalog returned	in A
		sta	<NumFiles		;add to	total #	of files
		inc	<NumCats		;increment # of	catalogs
		
		lda	<CatalogEOF
		clc
		adc	<TotalEOF
		sta	<TotalEOF
		lda	<CatalogEOF+2
		adc	<TotalEOF+2
		sta	<TotalEOF+2
	
@abort		jsr	GetNextIcon		;get next selected icon
		bcc	GCLoop			;loop until done with all selected icons

		lda	<SrcPathLen		;reset length of srcpathname back to
		sta	C1_SrcPathName		;what it was when routine was called
		clc				;indicate no error

GCDone		PushZWord <RetAdrs		;push return address on	stack
		rts				;and return

;---------------------------------------------------------------
; SetIconBits
;---------------------------------------------------------------

SetIconBits
		pla				;get return address
		sta	<RetAdrs		;and save

		lda	<NumCats		;start with first catalog
		sta	<CatIndex

		lda	<IconListHndl		;retrieve handle to start of icon list
		sta	<IconHndl
		ora	<IconListHndl+2		;is the	handle 0?
		beq	SIBRet			;yes
		lda	<IconListHndl+2
		sta	<IconHndl+2
		jsr	GetSelIcon		;search	list for first selected	icon

IconLoop	jsr	GetNextCat		;get ptr to next catalog
		ldy	#2
		lda	[<CatPtr],y		;get flag from first catalog entry
		bpl	NextIcon		;if hi bit clear, flag is not valid
		and	#$7FFF			;mask off hi bit
		ldy	#icFlag
		ora	[<IconPtr],y		;and OR	the bit	settings into the
		sta	[<IconPtr],y		;Flag field of the IconObj record
NextIcon	jsr	GetNextIcon		;get next selected icon
		bcc	IconLoop		;loop until done with all selected icons

SIBRet		PushZWord <RetAdrs		;push return address on	stack
		rts				;and return

*** 18-Jan-93 JCM - This supports the Macintosh way of handling certain files that are dragged onto the
***		    System folder icon. We notice what type of file they are copying (or types, in the
***		    case of multiple files), and place it in the appropriate folder, if the user wishes
***		    us to.

;---------------------------------------------------------------
;
; DoMagicRouting -
;

		EXPORT	DoMagicRouting

DoMagicRouting	NAME

		IMPORT	magicToDo		;in data.aii
		IMPORT	GetBootVolume		;in alert.aii
		IMPORT	C1_BootName		;in buffers.aii
		IMPORT	wstrSystem		;in strings.aii

		pha				;dest filename append flag

; This hacky, icky kludge is because copying from the same volume (as opposed to copying from a
; different volume - duh), work fundamentally differently, and we don't have access to the selected
; icons any more (at least not easily or speedily). So, we do our determination if the file is
; special with IsFileMagic2 when we are called with zero in the accumulator. That indicates we also don't
; stuff a file name onto the end of the path (code in the write section will do that for us). If you don't
; understand, then re-write it.

		beq	@callIsMagic2		;should be set if accumulator is loaded right before call
		
		ldx	#$8000			;we're actually copying now, not just counting routable files
		jsr	IsFileMagic		;is the current file (<IconPtr), one we know about?         
		bcc	@buildThePath		; yep, deal with it
		bmi	@buildThePath2		; not a special file, but we still need to copy it

 		bra	@exitMagicErr		; apparently not (or user said don't route files)
		
@callIsMagic2	ldy	#8			;fileType
		lda	[<BufPtr],y
		sta	magicFileType
		iny
		iny
		lda	[<BufPtr],y
		sta	magicAuxType

		ldx	#$8000			;we're actually copying now, not just counting routable files
		jsr	IsFileMagic2		;is the current file one we know about?
		bcc	@buildThePath		; yep, deal with it
		bmi	@buildThePath2		; not a special file, but we still need to copy it

		bra	@exitMagicErr		; apparently not (or user said don't route files)

; %%% This would be a fine place to send finderSaysDuringRouting or some such request.

		
; We now have a pointer to a Pascal-type string which represents the folder (or quite possibly nested
; folders) in which this single file needs to be routed. The pointer is in Y (high)/Acc (low).

@buildThePath	phy
		pha				;source folder string ptr (for PathAddName)
		
		jsr	SetC1_DstToSystemFolder

		PushLong #C1_DstPathName	;dest
		jsl	PathAddName		;now add in the folder within the system folder
		
@buildThePath2	lda	C1_DstPathName		;since we've changed the dest path, we need to update 
		sta	<DstPathLen		; the string length which has been stashed away
	
		lda	1,s			;are we to append the filename?
		bne	@copySameVol		; yup, do it
	
		jsr	AppendSepToC1_Dst
	
		bra	@exitMagicNoErr		

@copySameVol	jsr	MakeDstName		;append the current file name to the new routed pathname		

;		bra	@exitMagicNoErr

@exitMagicErr

@exitMagicNoErr	clc

		pla				;dest filename append flag

		rts
		
SetC1_DstToSystemFolder

		jsl	GetBootVolume		;we need a real path to splice the folders to

		PushLong #C1_BootName		;source
		PushLong #C1_DstPathName	;dest
		jsl	WStringCopy		;move the boot vol name to the beginning of the buffer
		
		PushLong #wstrSystem		;source
		PushLong #C1_DstPathName	;dest
		jsl	PathAddName		;append the string "System"

		rts
		
AppendSepToC1_Dst
		
		ldx	C1_DstPathName		;get the current length of the pathname
		lda	C1_DstPathName+2,x	;get the last character from the string
		and	#$FF00			;non-destructively add a trailing ':'
		ora	#':'
		sta	C1_DstPathName+2,x	;stuff the new ':' onto the end of the string
		inx
		stx	C1_DstPathName		;update the wstring length to include the end ':'
		
		rts

;---------------------------------------------------------------
;
; IsFileMagic - Given an icon pointed at by <IconPtr, this function walks a hard-coded fileType table
;		to determine if the file is 'magic'. These files are ones that we know belong in certain
;		folders within the System folder. If it is magic, the carry is returned clear.
;

IsFileMagic	NAME

		lda	>magicToDo		;is the dest the System folder?
		beq	exitIsFileMagic		; nope, don't touch this one

		ldy	#icFType		;index to the source file's type within the current IconObj
		lda	[<IconPtr],y		;is this a type we know about?
		sta	magicFileType
		iny
		iny				;move to the IconObj.icAuxType field
		lda	[<IconPtr],y		;just get the bits that we want to check
		sta	magicAuxType

		bra	magicCommon

; With this entry, the caller sets up the fileType and auxType.

IsFileMagic2	NAME

		lda	>magicToDo		;is the dest the System folder?
		beq	exitIsFileMagic		; nope, don't touch this one

; Now that we know the dest is the System folder, let's see if this file should be dumped somewhere within it.

magicCommon	stx	typeOfMagic		;tells if we're copying or just counting magic files

		ldx	#endMagicTypes-magicTypesTable ;start with the last item in the table
		
@checkThisType	lda	magicTypesTable,x	;snag a file type from the table
		cmp	magicFileType
		bne	@checkNextMagicType	; nupe, see if we have more to do

; Ok, we've matched the fileType, now let's see if the auxType is one that we'll accept.		

						;move to the auxType AND mask
		lda	magicAuxType
		and	magicTypesTable+2,x
		cmp	magicTypesTable+4,x	;do we want this one (move to the auxType compare bits)?
		bne	@checkNextMagicType	; no way dude, run like hell
		
; Ok, this file is indeed one we can specially place. Return to the caller a pointer to a string which
; represents the folder (or nested folders) in which this file should be placed.
	
		lda	magicTypesTable+6,x	;get the low word of the folder string ptr
		ldy	magicTypesTable+8,x	;and the high word of the pointer
		
		clc
		
		rts

@checkNextMagicType

		txa
		sec
		sbc	#magicRecSize		;index to the previous record
		tax
		bpl	@checkThisType

* Since the file we were just handed isn't routable, we need to see if we're actually in the process
* of copying files. If we are, then we need to restore the destination pathname to be simply the
* system folder. We don't want this file to be copied to the same place the last file was routed.

		lda	typeOfMagic		;are we just counting files?
		bpl	exitIsFileMagic		; yup, no need to restore the pathname

		jsr	SetC1_DstToSystemFolder	;restore pathname to "<bootvol>:System" (<bootvol> is fully expanded)

		lda	#$FFFF			;load a negative val to signal that caller should continue

exitIsFileMagic sec

		rts

typeOfMagic	dc.w	0			;are we counting magic files ($0000) or copying them ($8000)?
numMagicFiles	dc.w	0			;number of files to route as discovered by CountIcons
magicFileType	dc.w	0
magicAuxType	dc.w	0			;%%% I probably should do all four bytes...

; %%% Temp locals - move to a data seg later?
; %%% Write an init function that clears the count words to zero before we start.

*** Note--table is searched end-to-beginning, so put the more generic entries earlier in the table.

magicTypesTable	
		dc.w	$C7			;Control Panel
		dc.w	$0000			;auxType AND mask
		dc.w	$0000			;auxType compare bits
		dc.l	CDevsFolderStr		;folder to drop these files into
		dc.w	$0000			;number of files we just copied of this type
magicRecEnd

		dc.w	$B8			;New desk accessory
		dc.w	$0000
		dc.w	$0000
		dc.l	DAFolderStr
		dc.w	$0000			

		dc.w	$B9			;Classic desk accessory
		dc.w	$0000
		dc.w	$0000
		dc.l	DAFolderStr
		dc.w	$0000			

		dc.w	$BB			;Driver
		dc.w	$0000
		dc.w	$0000
		dc.l	DriversFolderStr
		dc.w	$0000			

		dc.w	$BB
		dc.w	$7F00			;AND mask
		dc.w	$0400			;Media Ctl drivers have $04xx or $84xx
		dc.l	MediaCtlFolderStr
		dc.w	$0000

		dc.w	$BC			;Finder extension
		dc.w	$7FFF
		dc.w	$0001
		dc.l	FEFolderStr
		dc.w	$0000			

		dc.w	$C8			;Font
		dc.w	$8000			;bit 15 = do not route font (1-Feb-93 DAL)
		dc.w	$0000
		dc.l	FontsFolderStr
		dc.w	$0000			

		dc.w	$BD			;File System Translator
		dc.w	$0000
		dc.w	$0000
		dc.l	FSTsFolderStr
		dc.w	$0000			

		dc.w	$D8			;Sound resource file
		dc.w	$FFFF
		dc.w	$0003
		dc.l	SoundsFolderStr
		dc.w	$0000			

		dc.w	$B6			;Permanent initialization file
		dc.w	$0000
		dc.w	$0000
		dc.l	SetupFolderStr
		dc.w	$0000			

		dc.w	$B7			;Temporary initialization file
		dc.w	$0000
		dc.w	$0000
		dc.l	SetupFolderStr
		dc.w	$0000			

endMagicTypes	dc.w	$BA			;Tool
		dc.w	$0000
		dc.w	$0000
		dc.l	ToolsFolderStr
		dc.w	$0000			

magicRecSize	equ	magicRecEnd-magicTypesTable	;length of each individual record


		string	GSOS
CDevsFolderStr	dc.b	'CDevs'
DAFolderStr	dc.b	'Desk.Accs'
DriversFolderStr dc.b	'Drivers'
MediaCtlFolderStr dc.b	'Drivers:Media.Control'
FEFolderStr	dc.b	'FinderExtras'
FontsFolderStr	dc.b	'Fonts'
FSTsFolderStr	dc.b	'FSTs'
SoundsFolderStr	dc.b	'Sounds'
SetupFolderStr	dc.b	'System.Setup'
ToolsFolderStr	dc.b	'Tools'

*** end 18-Jan-93 JCM

		ENDP

****************************************************************
*
* CopyDisk
*
****************************************************************

CopyDisk	PROC

		IMPORT	saveCursor
		IMPORT	restoreCursor
		IMPORT	arrowCursor
		IMPORT	watchCursor
		IMPORT	PathGetName
		IMPORT	c1_dest
		IMPORT	c1_source
		IMPORT	doAlertCopy
		IMPORT	finderTaskRecord
		IMPORT	CopyUpdate
		IMPORT	DrawCopyControls
		IMPORT	lastThermo
		IMPORT	WindowGlobalON
		IMPORT	WindowGlobalOFF
		IMPORT	isFormattable
		IMPORT	isReadOnly
		IMPORT	WStrCompare
		IMPORT	EjectDisk
		IMPORT	doAlertWindow
		IMPORT	OOMDumped
		IMPORT	FileCopyOpen
		IMPORT	FileCopyClose
		IMPORT	strAlloc
		IMPORT	DrawCopyControls
		import	drawNumItems
		
Preference	equ	10
OptionKey	equ	Preference+2
DstHndl		equ	OptionKey+2
SrcHndl		equ	DstHndl+4		;input parameters

ParamSize	equ	12			;# of bytes of input params

SrcSize		equ	ZEnd			;zero page temps
SrcUsed		equ	SrcSize+4
AdjSrcUsed	equ	SrcUsed+4
DstSize		equ	AdjSrcUsed+4
DstFree		equ	DstSize+4
SameFlag	equ	DstFree+4
SaveLength	equ	SameFlag+2
segmentIndex	equ	SaveLength+4
startBlock	equ	segmentIndex+4
handleListHandle equ	startBlock+4
handleListPtr	equ	handleListHandle+4
pointerListHandle equ	handleListPtr+4
pointerListPtr	equ	pointerListHandle+4
endBlocks	equ	pointerListPtr+4
currentSegment	equ	endBlocks+4
NextContiguous	equ	currentSegment+2
MaxContiguous	equ	NextContiguous+4
ContiguousSoFar	equ	MaxContiguous+4
lastTick	equ	ContiguousSoFar+4
NumBlocksToRW	equ	LastTick+2

		IF	NumBlocksToRW+4>$FF THEN
			WRITE 'NumBlocksToRW = '
			WRITELN NumBlocksToRW
			WRITELN 'WARNING... Direct page variable overflow!'
			AERROR 'CopyDisk extended its local DP too far'
		ENDIF

NumBlocks	equ	NumFiles		;so message routines will work

		phd
		tcd

		phb
		phk
		plb


		lda	#ParamSize
		sta	<NumParams		;# of bytes of input params

		jsl	SaveCursor
		jsl	watchCursor

		stz	<WhichMsg		;no message for	now
		stz	AbortFlag		;added 06/09/88 DJB
		stz	<SameFlag		;init flag
		stz	<DelAllDups		;init to 0 in case we copy by files

		stz	<SrcPathLen		;init src/dst pathname to null
		stz	<DstPathLen
		stz	<NamesWereXLated	; JAM 06/01/89 Fixing BRC #49639

		lda	#C1_DstPathName		;set up	ptr to dest pathname for
		sta	<PathNamePtr		;dialog	to use
		sta	E_VolName		;and for EraseDisk to use
		sta	FI_Name			;and for GetFileInfo to	use
		sta	GDN_Name		;and for GetDevNum to use
		lda	#^C1_DstPathName
		sta	<PathNamePtr+2
		sta	E_VolName+2
		sta	FI_Name+2
		sta	GDN_Name+2

		lda	#C1_SrcPathName		;set up	ptr to src pathname for
		sta	<OtherPtr		;dialog	to use
		lda	#^C1_SrcPathName
		sta	<OtherPtr+2

		lda	SrcHndl,s		;get handle to source disk icon
		sta	<IconHndl
		sta	<IconListHndl
		lda	SrcHndl+2,s
		sta	<IconHndl+2
		sta	<IconListHndl+2
		jsr	DerefIcon		;dereference the handle
		jsr	MakeINamePtr		;create	ptr to icon's name
		jsr	MakeSrcName		;create	pathname for source disk
		bcc	@nameOK
		brl	doQuit			;name too long
@nameOK

		ldy	#icFileInfo
		lda	[<IconPtr],y
		sta	<SrcFileSysID		;set the file system for the source disk
		
		ldy	#icFBytes
		lda	[<IconPtr],y		;get size of src disk in blocks
		sta	<SrcSize		;and save
		iny
		iny
		lda	[<IconPtr],y
		sta	<SrcSize+2

		lda	DstHndl,s		;get handle to destination disk	icon
		sta	<IconHndl
		lda	DstHndl+2,s
		sta	<IconHndl+2
		jsr	DerefIcon		;dereference the handle
		jsr	MakeINamePtr		;create	ptr to icon's name
		jsr	MakeDstName		;create	pathname for dest disk
		bcs	doQuit			;name too long
		
		ldy	#icFileInfo
		lda	[<IconPtr],y
		sta	<DstFileSysID		;set the file system for the destination file system

		ldy	#icFBytes
		lda	[<IconPtr],y		;get size of dest disk in blocks
		sta	<DstSize		;and save
		iny
		iny
		lda	 [<IconPtr],y
		sta	<DstSize+2

		cmp	<SrcSize+2		;compare disk sizes
		bne	@notTheSame
		lda	<DstSize
		cmp	<SrcSize
		bne	@notTheSame
		inc	<SameFlag		;set flag to indicate same size	disks
@notTheSame

		lda	OptionKey,s		;was Option key	held down?
		beq	NoOption		;no

		ldy	<DstFileSysID
		jsr	CheckReadOnlyDest
		bcs	doQuit

		pushlong #c1_source
		pushZLong <OtherPtr
		jsl	PathGetName

		lda	>c1_source
		xba
		sta	>c1_source

		pushlong #c1_dest
		pushZLong <PathNamePtr
		jsl	PathGetName

		lda	>c1_dest
		xba
		sta	>c1_dest
		brl	CopyOptions		;yes - so put up copy options dialog

NoOption	lda	<SameFlag		;are the disks the same	size?
		bne	SameSize		;yes
		brl	DiffSizes		;no

;------------------------------------------------------------------------------

doAbort		lda	#$e000
		sta	<Error			;return	error
		jmp	StdEnd

;------------------------------------------------------------------------------

doQuit		lda	#$FFFF
		sta	<Error			;return	error
		jmp	StdEnd


;------------------------------------------------------------------------------

SameSize	lda	#rasReplaceDisk
		jsl	doAlertCopy
		beq	doAbort
		brl	ReplaceFiles		;'OK' selected

;------------------------------------------------------------------------------

DiffSizes
		jsr	CheckReadOnlyDest
		bcs	doQuit
		
		lda	#rasDiskInFolder	;ask if	want to	put contents of	source
		jsl	doAlertCopy
		beq	doAbort

;------------------------------------------------------------------------------

CreateFolder	pea	#$0000			; indicate no block copy
		jsr	CheckRoom		;check if enough room to copy src files
		pla				; eliminate flag
		bcs	doAbort			;error or no room

		stz	<NumFiles
		jsr	FileCopyOpen
		bcs	doAbort
		
		jsr	DrawCopyControls
		lda	#1			;start counting upwards from 1
		ldy	#0
		jsr	DrawNumItems
		
		pea	15
		pea	30
		_MoveTo
		pushlong #strAlloc
		_DrawString

		ldx	#1			;store filecount in first cat entry
		jsr	CatalogSrc		;catalog source	disk
		bcc	@catalogOK
		cpy	#$4e
		bne	@goDoQuit
		lda	#rasNoPrivs
		jsl	doAlertWindow
@goDoQuit	sec
		brl	@createQuit		;Catalog routine got an	error
@catalogOK

		sta	<NumFiles		;# of files in catalog returned	in A
		lda	#1
		sta	<NumCats		;used by DoFileCopy

		pha				;space for result
		pha
		PushZWord <NumFiles		;# of files on source disk
		PushWord #13			;# of files in a directory index block
		_UDivide			;calc #	of blocks needed for subdir
		clc				;entry since we're creating a folder
		pla				;# of blocks needed - 1
		plx				;ignore	remainder
		inc	a			;add 1 to get #	of blocks needed
		adc	<AdjSrcUsed		;and add to blocks used	on src disk
		sta	<AdjSrcUsed		;and save

		jsr	CheckRoom2		;recheck if enough room	on dest	disk
		bcc	@CFCont
;		import DisposeHandleGlue
		jsl DisposeHandleGlue		;error or no room - get	rid of catalog
		bra	@createQuit

@CFCont		lda	#1
		sta	C1_SrcPathName
		lda	#SEPARATOR
		sta	C1_SrcPathName+2	;remove	src vol	name except for	separator

		jsr	AddDstSlash		;add separator after dest vol name
		inc	<Disk2Sub		;indicate disk to subdirectory copy
		jsr	GetDstFileSys		;added 08/03/88 DJB
		bcs	@createQuit
				
		lda	<CatalogEOF
		sta	<TotalEOF
		lda	<CatalogEOF+2
		sta	<TotalEOF+2
		
		jsr	DoFileCopy		;copy the files

		lda	<IconListHndl		;get handle to source disk icon
		sta	<IconHndl
		lda	<IconListHndl+2
		sta	<IconHndl+2
		jsr	DerefIcon		;dereference the handle
		ldy	#icFlag
		lda	[<IconPtr],y
		ora	#ICCopy
		sta	[<IconPtr],y

		jsl DisposeHandleGlue			;dispose of catalog

		jsr	FileCopyClose
		
		lda	#$8000			;indicate disk copied to a folder on src
		sta	<Error
		jmp	StdEnd			;done

@CreateQuit	jsr	FileCopyClose
		lda	#$FFFF
		sta	<Error
		jmp	StdEnd
		
;-------------------------------------------------------------------------------

ReplaceFiles	jsr	findEraseFST
		bcc	@noErase
		
		lda	#C1_DstPathName
		sta	GDN_Name		; set up ptr to dst disk name
		lda	#C1_DstPathName>>16
		sta	GDN_Name+2
		jsr	GetDevNum		;find the destination disk (not yet possibly munged)
		bcs	@goQuit

		jsr	EraseDst		;erase destination disk
		bcc	@erased
@goQuit		brl	doQuit			;got error

@erased		lda	GDN_DevNum
		jsr	RebuildVCR		;rebuild the vcr for the destination disk

@noErase	lda	<SameFlag		;are disks the same size?
		beq	AddFiles		;no - so must copy by files

		pea 	#$FFFF			; indicate block copy imminent
		jsr	CheckRoom		;get info on src disk
		pla				; get rid of flag
		bcs	rfQuit			;error or no room

		lda	#C1_DstPathName		;create	ptr to DstPathName
		sta	<PathNamePtr		;for dialog to use
		lda	#C1_DstPathName>>16
		sta	<PathNamePtr+2

		brl	BlockCopy		;copy by blocks
rfQuit		brl	doQuit

;-------------------------------------------------------------------------------

AddFiles
		stz	<NumCats		;zero out counters
		stz	<NumFiles
		stz	<Error			;clear out flag	in case	disk is	empty

		pea	#$0000			; indicate no block copy
		jsr	CheckRoom		;check if enough room to copy src files
		pla				; eliminate flag
		bcs	@goDoQuit		;error or no room

		ldx	#0			;don't store filecount in first cat entry
		jsr	CatalogSrc		;get catalog of	source disk
		bcc	@catalogOK
		cpy	#$4e
		bne	@goDoQuit
		lda	#rasNoPrivs
		jsl	doAlertWindow
@goDoQuit	sec
		brl	AFQuit			;Catalog routine got an	error
@catalogOK
		inc	<NumCats		;increment # of	catalogs

		lda	#1
		sta	<CatIndex		;set up	index to catalog
		jsr	GetNextCat		;get ptr to first entry	in catalog
		bcc	@gncOK
		brl	AFLoop2			;which is the entry for	the disk name
@gncOK		

		lda	#C1_SrcPathName		;set up	ptr to SrcPathName
		sta	<PathNamePtr
		lda	#^C1_SrcPathName
		sta	<PathNamePtr+2

		jsr	GetNextFile		;get ptr to first file entry (add separator)
		bcc	@gnfOK
		brl	AFLoop2			;no files on disk
@gnfOK

		lda	C1_SrcPathName		;get length of source disk name
		sta	<SaveLength		;with following	separator and save

		stz	<TotalEOF
		stz	<TotalEOF+2

		jsr	FileCopyOpen
		bcs	@goDoQuit
		
		jsr	DrawCopyControls
		lda	#1			;start counting upwards from 1
		ldy	#0
		jsr	DrawNumItems
		
		pea	15
		pea	30
		_MoveTo
		pushlong #strAlloc
		_DrawString

AFLoop		jsr	MakePathName		;make pathname for catalog entry
		bcs	AFQuit			;pathname too long

		ldx	#1			;store filecount in first cat entry
		jsr	CatalogSrc		;get catalog for this entry
		bcc	@catalogOK
		cpy	#$4e
		bne	@goDoQuit
		lda	#rasNoPrivs
		jsl	doAlertWindow
@goDoQuit	sec
		bra	AFQuit			;Catalog routine got an	error
@catalogOK

		adc	<NumFiles		;# of files in catalog returned	in A
		sta	<NumFiles		;add to	total #	of files
		inc	<NumCats		;increment # of	catalogs
		
		lda	<CatalogEOF
		clc
		adc	<TotalEOF
		sta	<TotalEOF
		lda	<CatalogEOF+2
		adc	<TotalEOF+2
		sta	<TotalEOF+2
		
		lda	#0			;zero out offset so we skip directly
		sta	[<CatPtr]		;to next catalog entry
		jsr	GetNextFile		;get next catalog entry
		bcc	AFLoop			;loop until done with all cat entries

		lda	<SaveLength		;retrieve length of source disk	name
		sta	C1_SrcPathName		;with ending separator
		jsr	AddDstSlash		;add separator to dest disk name
		dec	<NumCats		;don't count disk catalog when copying
		jsr	GetDstFileSys		;added 08/03/88 DJB
		
		jsr	DoFileCopy		;copy the files

		inc	<NumCats		;recount disk catalog so it's disposed

AFLoop2		jsl DisposeHandleGlue		;dispose of catalogs
		dec	<NumCats
		bne	AFLoop2
		lda	#$8000			;indicate disk copied to root of src
		sta	<Error			;to signal caller not to kill root/data files

		jsr	FileCopyClose
		jmp	StdEnd			;done

AFQuit		lda	#$FFFF			;got an	error
		sta	<Error			;so - quit and return an error
		lda	<NumCats		;any catalogs to dispose of?
		bne	AFLoop2			;yes

		jsr	FileCopyClose
		jmp	StdEnd			;no

*-----------------------------------------------*
*	Modified to work with 32K Segments	*
* 4/19/89 - DJB					*
*-----------------------------------------------*

		IMPORT	CloseCopyWindow		;in util.aii - 27-Jan-93 JCM

BlockCopy

		lda	<SrcSize		;get # of blocks on disk
		sta	<NumBlocks		
		lda	<SrcSize+2
		sta	<NumBlocks+2
		
		stz	<NumItems		;done zero blocks so far
		stz	<NumItems+2

		_FlushGS FlushParms		;flush everything before copying...
		
		jsl	WindowGlobalON

		pha
		pha
		lda #0
		pha
		pha				;titlePtr
		pha
		pha				;refCon is ptr to our window info block
		pushlong #CopyUpdate+$C0000000	;content draw proc
		pha
		pha				;window defproc
		pea	2			;refIsResource
		pha
		pea #$000E			;window resource we want
		pea	$800e			;rWindParam1
		_NewWindow2
		
		jsl	WindowGlobalOFF
		pulllong copyWindowPtr
		bcc	@openOK

;
; close the window only if something bad happened and we actually have a window pointer
; because something could have happened when we went to add controls (but didn't
; get created because we couldn't find the disk or the resource)
;
		lda	copyWindowPtr+1
		beq	@leave

@done		jsl	CloseCopyWindow
		stz	copyWindowPtr+1

@leave		sec
		brl	Quit2b

@openOK		pha
		pha
		_GetPort
		pulllong ourPort
		
		pushlong copyWindowPtr
		_SetPort

		pha
		pha
		pushlong copyWindowPtr
		pushlong #3
		_GetCtlHandleFromID		;nuts, stuff on stack is backwards

		ply
		plx
		pea	0
		pea	280			;max value for dial, 100% (280 pixels)
		phx
		phy
		_SetCtlTitle			;set the scale

		lda	#NullStrg		; point to null string
		sta	<FileNamePtr
		lda	#NullStrg>>16
		sta	<FileNamePtr+2

		lda	#strAlloc		; point to 'Allocating memory'
		sta	<RWPtr
		lda	#strAlloc>>16
		sta	<RWPtr+2

		stz	lastThermo

		lda	<NumBlocks
		ldy	<NumBlocks+2
		jsr	DrawMsg

		jsr	DrawCopyControls

;
; now, allocate a lot of memory (maybe) for our block copy
;
		pha
		lda #0
		pha				;waitFromTime
		pha				;delayTime
		_WaitUntil
		pla
		sta	<lastTick
		
		jsr	GetSegments		; allocate memory segments for block reads
		bcc	@gotSegments
		brl	Quit2			; got an error
@gotSegments

		pha				;wait half a second for this to register in the
		pei	<lastTick		;user's eyeball
		pea	$01e0			;30 ticks, half a second
		_WaitUntil
		pla
@noWait

		lda	#strReadingBlks		; point to 'Reading blocks...'
		sta	<RWPtr
		lda	#strReadingBlks>>16
		sta	<RWPtr+2

		lda	<NumBlocks
		ldy	<NumBlocks+2
		jsr	DrawMsg

;
; now that the dialog and memory finagling is out of the way, start copying the disk
;
		lda	#SegmentSize/512
		sta	RWB_BlockNum		; start with block 72 (36k inwards)
		stz	RWB_BlockNum+2

		jsr	CheckKey		; was cancel selected ?
		bcc	ReadIt
		brl	Quit2			; yes so abort

;
; read another hunk of their disk
;
ReadIt		lda	RWB_BlockNum		; remember starting block
		sta	<startBlock
		lda	RWB_BlockNum+2
		sta	<startBlock+2

		lda	#C1_SrcPathName
		sta	GDN_Name		; set up ptr to src disk name for call
		sta	<PathNamePtr		; and dialog (if needed)
		lda	#C1_SrcPathName>>16
		sta	GDN_Name+2
		sta	<PathNamePtr+2
		lda	#strReadingBlks		; point to 'Reading blocks...'
		sta	<RWPtr
		lda	#strReadingBlks>>16
		sta	<RWPtr+2
		
		lda	Source_DevNum		;rebuild the source VCR as long as the source and
		cmp	Dest_DevNum		;destination VCR's weren't the same from the
		beq	@noBuildSourceVCR	;last time we looked at the source disk
		
		sta	GDN_DevNum
		jsr	RebuildVCR
		bcs	@noBuildSourceVCR

		pha
		pushlong #Filename
		pushZLong <PathnamePtr
		jsl	WStrCompare
		pla
		bne	Ok2b

;
; we either couldn't build a VCR for the source disk, the source and destination disks were
; last in the same device, or they swapped something new into the source disk, so go find
; out where the source disk went to...
;
@noBuildSourceVCR
		jsr	GetDevNum		; get device #
		bcc	Ok2b
Quit2b		brl	Quit2			; yes so abort
		
Ok2b		lda	GDN_DevNum
		sta	RWB_DevNum
		sta	Source_DevNum

		stz	<segmentIndex		; start at first segment

ReadLoop	jsr	SetParams		; set up block read parameters
		jsr	CheckKey		; was cancel selected ?
		bcs	Quit2b

		jsr	SetEndBlocks		
		jsr	ScaleThermo
		
		lda	<numBlocks
		ldy	<numBlocks+2
		jsr	DrawMsg			; update 'blocks left' msg

		jsr	ReadBlocks		; read blocks into segment
		bcs	Quit2b			; got error

		jsr	UpdateNumItems
		
		lda	<segmentIndex		; any more segments to fill ?
		cmp	<segmentCount
		bcs	WriteIt			; no

		lda	RWB_BlockNum+2
		bne	@notAtFront
		lda	RWB_BlockNum		;did we go back and copy the first 32k yet? 
		beq	WriteIT
@notAtFront
		jsr	NextBlockNum
		brl	ReadLoop		; read another segment

;
; write out all those blocks we just read
;
WriteIt		lda	<startBlock		; restore starting block
		sta	RWB_BlockNum
		lda	<startBlock+2
		sta	RWB_BlockNum+2

		lda	#C1_DstPathName
		sta	GDN_Name		; set up ptr to dst disk name for call
		sta	<PathNamePtr		; and dialog (if needed)
		lda	#C1_DstPathName>>16
		sta	GDN_Name+2
		sta	<PathNamePtr+2
		
		lda	#strWritingBlks		; point to 'Writing blocks...'
		sta	<RWPtr
		lda	#strWritingBlks>>16
		sta	<RWPtr+2

		lda	Dest_DevNum		;rebuild the destination VCR so we don't go and
		cmp	Source_DevNum		;poll all the drives unless the source and
		beq	@noBuildDestVCR		;destination drives from last time were the same

		sta	GDN_DevNum
		jsr	RebuildVCR
		bcc	@goodDestVCR
		
		ldx	<DstFileSysID
		cpx	#HFSFST
		bne	@noBuildDestVCR
		
		cmp	#$5a
		bne	@noBuildDestVCR		;if there's a problem doing _Volume, find the disk

@goodDestVCR	pha
		pushlong #Filename		;if the disk in the drive is the same as what
		pushZLong <PathnamePtr		;used to be there, we're OK
		jsl	WStrCompare
		pla
		bne	Ok2a

;
; we either couldn't build a VCR for the destination disk, the source and destination disks were
; last in the same device, or they swapped something new into the destination drive, so go find
; out where the destination disk went to...
;
; PLUS, because of a deficiency in the HFS FST, we can't use Get_Dev_Num to do this, we have to do
; it by hand, looking at each volume name for the destination volume.
;
@noBuildDestVCR
		jsr	GetDestDevNum		; get device #
		bcc	Ok2a
Quit2a		brl	Quit2			; got an error

Ok2a		lda	GDN_DevNum
		sta	RWB_DevNum
		sta	Dest_DevNum

		stz	<segmentIndex		; start at first segment

WriteLoop	jsr	SetParams		; set up block write parameters
		jsr	CheckKey		; was cancel selected ?
		bcs	Quit2a

		jsr	SetEndBlocks		; setup the end # of blocks if were about to go to the end
		jsr	ScaleThermo		;scale NumItems against SrcSize*2
		
		lda	<NumBlocks
		ldy	<NumBlocks+2
		jsr	DrawMsg			; update 'blocks left' msg

		jsr	WriteBlocks		; write blocks from segment
		bcc	@writeOK
		brl	Quit2			; got an error
@writeOK

		lda	<NumBlocks		; update # of blocks left
		sec
		sbc	<NumBlocksToRW
		sta	<NumBlocks
		bcs	@NumBlocksNR
		dec	<NumBlocks+2
@NumBlocksNR

		jsr	UpdateNumItems

		lda	<NumBlocks		; any more blocks left to copy?
		bne	@more			
		lda	<NumBlocks+2
		beq	Done
@more

		jsr	NextBlockNum
		
		lda	<segmentIndex		; any more segments to fill ?
		cmp	<segmentCount
		bcc	WriteLoop		; yes
		brl	ReadIt			; no

;
; done with the main read/write loops, so go back and write the first 32k of the
; destination volume
;
Done		
		lda	#280			;100% (280 pixels)
		ldx	#0			;check NumItems against what it was last time
		jsr	DrawThermo

		lda	#0
		tay
		jsr	DrawMsg			; update 'blocks left' msg

		lda	GDN_DevNum
		sta	DI_DevNum
		jsr	GetDevInfo		;get device name for the dest device
		bcs	Quit2

		stz	<Error			;don't return an error

		jsr	freeSegments
;
; try to rename the destination disk back to what it was, but because of possible FST naming conflicts,
; the destination disk might now not accept the name it once had.  if this is the case, then we need to
; toss the disk out at the user having attempted the rename.
;
; also, we'll check to see if the destination disk's file system is now read-only, in which case it can't
; be renamed and must be ejected
;	
		jsr	FixName			;rename the destination (clone of our source) back
		bcs	tossTheCookies
		
		pea	$8005			;task accomplished
		_SysBeep2
		bra	BuildDestVCR		;to what it was, if an error happens, toss the disk out
		
tossTheCookies	lda	#$c000
		sta	<Error
		
		lda	Dest_DevNum		;toss the disk out of the last spot we knew where it was		
		pha				;(we REALLY don't want it around)
		jsl	EjectDisk
		bra	Exit
		
;
; well, if they quit, or refuse to give us the destination or source disk, we end up here.
; the idea is simple: if at all possible, erase the destination disk -- if, because both the
; source and destination FSTs were read-only we aren't able to erase the destination volume,
; we'll make it an unknown disk by killing the boot blocks and block 2, etc.
;
Quit2		jsr	FreeSegments		; get rid of memory segments
		
		lda	#$FFFF
		sta	<Error			; return an error

		lda	Dest_DevNum		;rebuild the destination VCR so we don't go and
		cmp	Source_DevNum		;poll all the drives unless the source and
		beq	@noBuildDestVCR		;destination drives from last time were the same

		sta	GDN_DevNum
		jsr	RebuildVCR
		bcc	@goodDestVCR
		
		ldx	<DstFileSysID		;if it's an HFS disk, see if error $5a happened
		cpx	#HFSFST			;and if it did, we're guaranteed that we've got the
		bne	@noBuildDestVCR		;volume name by none other than Mark Day
		
		cmp	#$5a
		bne	@noBuildDestVCR		;if there's a problem doing _Volume, find the disk

@goodDestVCR	pha
		pushlong #Filename		;if the disk in the drive is the same as what
		pushZLong <PathnamePtr		;used to be there, we're OK
		jsl	WStrCompare
		pla
		bne	@gotDest

@noBuildDestVCR	jsr	GetDestDevNum		;damn! they ejected the destination disk!
		bcs	tossTheCookies		;well, then get rid of it!
		
@gotDest	jsr	findEraseFST
		bcs	@erase			
		jsr	KillDisk		;if we don't have an FST to erase with,	
		bra	tossTheCookies		;then kill their disk dead and then eject it
		
@erase		jsr	EraseDst		; erase destination disk on abort/error
		bcs	tossTheCookies
		
buildDestVCR	lda	GDN_DevNum
		jsr	RebuildVCR		;rebuild the VCR for the destination disk

;
; just as we exit, check to see if the last swap that was made for these disks, if that swap was
; done on the same device number, don't do a volume call to rebuild the VCR that got swapped out,
; otherwise, if the drives were different, rebuild the source drive's VCR
;
Exit		lda	Source_DevNum
		cmp	Dest_DevNum
		beq	@sameDrive

		lda	Source_DevNum		;rebuild the VCR for the source disk
		jsr	RebuildVCR		

@sameDrive	lda	copyWindowPtr+1
		beq	@noClose

		pushlong ourPort
		_SetPort
		
		jsl	CloseCopyWindow
		stz	copyWindowPtr+1

@noClose	stz	<WhichMsg
		jmp	StdEnd


;
; UpdateNumItems -- add NumBlocksToRW to NumItems
;
UpdateNumItems
		lda	<NumItems		; update # items left
		clc
		adc	<NumBlocksToRW
		sta	<NumItems
		bcc	@NumItemsNR
		inc	<NumItems+2
@NumItemsNR	rts

;
; setup the next block number to start reading/writing from/to in RWB_BlockNum
;
NextBlockNum
		lda	RWB_BlockNum		; update starting block number
		clc
		adc	<NumBlocksToRW
		sta	RWB_BlockNum
		bcc	@RWBnr
		inc	RWB_BlockNum+2		
@RWBnr
		
		lda	RWB_BlockNum		; did we reach the end of the platter yet?
		sec
		sbc	<SrcSize
		lda	RWB_BlockNum+2
		sbc	<SrcSize+2
		bcc	@done			; if not, keep reading towards the end
		
		stz	RWB_BlockNum
		stz	RWB_BlockNum+2
@done		rts

;
; read or write the correct number of blocks to the end of the disk
;
SetEndBlocks
		lda	RWB_BlockNum		; will the number of blocks we're going to read or
		clc				; write take us past the end of the disk?
		adc	<NumBlocksToRW
		sta	<endBlocks
		lda	RWB_BlockNum+2
		adc	#0
		sta	<endBlocks+2
		
		lda	<endBlocks		
		sec
		sbc	<SrcSize
		lda	<endBlocks+2
		sbc	<SrcSize+2
		bcc	@notAtEndYet
		
		lda	<SrcSize
		sec
		sbc	RWB_BlockNum
		sta	RWB_Count
		sta	<NumBlocksToRW
		
		lda	<SrcSize+2
		sbc	RWB_BlockNum+2
		sta	RWB_Count+2
		
		ldy	#8
@eLoop		asl	RWB_Count
		rol	RWB_Count+2
		dey
		bpl	@eLoop
@notAtEndYet	rts

;
; ScaleThermo -- scale the number of blocks to 100% (Actually, # of parts per 280)
;
;		 NumItems is how many blocks we've both read and written so far
;		 SrcSize*2 is the total number of blocks which have to be both read and written		
;
ScaleThermo
		pha
		pha
		pha
		pha
		pushZLong <NumItems		;multiply the numerator by 280 to get parts per 280
		pushlong #280
		_LongMul
		pla
		plx
		ply
		ply

		pha
		pha
		pha
		pha
		phx				;numerator
		pha				
		lda	<SrcSize		;denominator (SrcSize*2)
		asl	a
		tax
		lda	<SrcSize+2
		rol	a
		pha
		phx
		_LongDivide
		pla				
		ply				;quotient
		ply				
		ply				;remainder

		ldx	#0
		jsr	DrawThermo
		rts
				
;---------------------------------------------------------------
; CopyOptions
;---------------------------------------------------------------

		IMPORT	CloseDiskWindow		;in util.aii - 27-Jan-93 JCM
CopyOptions
		jsl	SaveCursor
		jsl	ArrowCursor
		jsl	WindowGlobalON
		
		pha
		pha
		lda #0
		pha
		pha				;titlePtr
		pha
		pha				;refCon is ptr to our window info block
		pha
		pha				;content draw proc
		pha
		pha				;window defproc
		pea	2			;refIsResource
		pha
		pea	6			;window resource we want
		pea	$800e			;rWindParam1
		_NewWindow2
		
		jsl	WindowGlobalOFF
		pulllong diskWindowPtr
		bcc	@loop

;
; close the window only if something bad happened and we actually have a window pointer
; because something could have happened when we went to add controls (but didn't
; get created because we couldn't find the disk or the resource)
;
		lda	diskWindowPtr+1
		beq	@leave

@done		jsl	CloseDiskWindow

@leave		jsl	RestoreCursor
		brl	doQuit

;
; now that we've set all the controls values, use doModalWindow to play with everything
;
@setup		lda	<SameFlag
		beq	@loop

		pha
		pha
		pushlong diskWindowPtr
		pushlong #2
		_GetCtlHandleFromID
		pha
		lda	3,s			;move the handle to be at the proper point for
		sta	1,s			;_SetCtlValue
		lda	5,s
		sta	3,s
		lda	#1
		sta	5,s
		_SetCtlValue

@loop		pha
		pha
		pea	0
		lda	>finderTaskRecord
		pha			;push the task record's ptr
		lda #0
		pha
		pha			;update proc
		pea $8000
		pha			;eventHook
		pha
		pha			;beep proc
		pea	$c010		;flags
		_DoModalWindow

		pla
		plx
		cmp	#8
		bge	@chose

		cmp	#5
		blt	@loop

		sec
		sbc	#4
		tax

		pha
		pha
		pushlong diskWindowPtr
		pea	0
		phx
		_GetCtlHandleFromID
		pha
		lda	3,s			;move the handle to be at the proper point for
		sta	1,s			;_SetCtlValue
		lda	5,s
		sta	3,s
		lda	#1
		sta	5,s
		_SetCtlValue
		bra	@loop

@chose		bne	@notQuit

		jsl	RestoreCursor
		jsl	CloseDiskWindow

		brl	doQuit

@notQuit	pha
		pushlong diskWindowPtr
		pea	0
		_FindRadioButton

		jsl	RestoreCursor
		jsl	CloseDiskWindow
		
		pla
		asl	a
		tax
		jmp	(WhichCopy,x)		;jump into correct routine

		EXPORT	diskWindowPtr
diskWindowPtr	dc.L	0
WhichCopy	dc.W	CreateFolder		;button	0
		dc.W	ReplaceFiles		;button	1
		dc.W	AddFiles		;button	2

;---------------------------------------------------------------
; EraseDst
;---------------------------------------------------------------

EraseDst	
		lda	GDN_DevNum
		sta	DI_DevNum
		jsr	GetDevInfo		;convert device	# into device name
		bcs	@done			;got error
				
		jsr	EraseDisk		;erase the dest	disk
@done		rts

;
; get the Destination disk's device number (they might have moved it)
;
; 10/29/91 NOTE:  God, I hate to do this, but the HFS FST won't find the name of the disk if
;		  I kill anything after 32K, but leave the first 32k intact, get_dev_num won't work,
;		  but Volume will, so I have to manually step through all the devices until I find one
;		  which matches the volume name I want in GDN_Name
;
; 10/29/91 LATER: Sheesh, Mark seems to have fixed the HFS FST.  Yay.
;
getDestDevNum
		lda	#C1_DstPathName
		sta	GDN_Name		; set up ptr to dst disk name
		lda	#C1_DstPathName>>16
		sta	GDN_Name+2

		jsr	GetDevNum		;get device # of dst disk

;		lda	#1
;@vcrLoop	pha
;		sta	GDN_DevNum
;		jsr	RebuildVCR		;do a DInfo followed by a Volume call
;		bcc	@gotOne
;		cmp	#$11
;		beq	@done
;		bne	@next	
;		
;@gotOne	pha
;		pushlong #Filename		;if the disk in the drive is the same as what
;		pushlong GDN_Name		;used to be there, we're OK
;		jsl	WStrCompare
;		pla
;		bne	@matched
;		
;@next		pla
;		inc	a
;		bra	@vcrLoop
;
;@matched	clc	
;@done		plx
		rts

;
; There's no FST (source or dest) which supports erasing.  Wonderful, so blow away the first
; 32k on the disk ourselves...
;
KillDisk	lda	GDN_DevNum
		sta	RWB_DevNum
		
		stz	RWB_BlockNum
		stz	RWB_BlockNum+2

		lda	#4*512			;write 2k
		sta	RWB_Count		; convert to bytes to read (*512)
		sta	<BufSize
		lda	#4*512>>16
		sta	RWB_Count+2
		sta	<BufSize+2
		
		jsr	AllocateMem		; allocate a segment (fixed, unpurgable)
		bcs	@ack
		stx	eraseHandle+2
		stx	<localTemp+2
		sta	eraseHandle
		sta	<localTemp

		lda	[<localTemp]
		tax
		ldy	#2
		lda	[<localTemp],y
		sta	<localTemp+2
		sta	RWB_BufPtr+2
		stx	<localTemp
		stx	RWB_BufPtr

		lda	#0			;zero 2k worth
		ldy	#$7FE
@loop		sta	[<localTemp],y
		dey
		dey
		bpl	@loop
		
;
; erase any evidence of it being an MS-DOS, HFS, or ProDOS disk (or anybody else who keeps
; ID bytes that HandleDiskInsert might use on blocks 0 through 3)
;
		lda	#RWB_Params		;get ptr to READ/WRITE BLOCK
		ldx	#RWB_Params>>16		;parameter block
		ldy	#D_WRITE+C1		;call #
		jsr	ProDosCall		;make the call

;
; remove any evidence of this being an ISO 9660 disk from block 64
;
		lda	#64
		sta	RWB_BlockNum
		
		lda	#RWB_Params		;get ptr to READ/WRITE BLOCK
		ldx	#RWB_Params>>16		;parameter block
		ldy	#D_WRITE+C1		;call #
		jsr	ProDosCall		;make the call

;
; remove anybody's ID bytes on track 17 of a DOS 3.3 disk
;
		lda	#17*8
		sta	RWB_BlockNum
		
		lda	#RWB_Params		;get ptr to READ/WRITE BLOCK
		ldx	#RWB_Params>>16		;parameter block
		ldy	#D_WRITE+C1		;call #
		jsr	ProDosCall		;make the call

;
; remove anybody's ID bytes on track 17*2 of a UniDOS 3.3 disk
;
		lda	#17*16
		sta	RWB_BlockNum
		
		lda	#RWB_Params		;get ptr to READ/WRITE BLOCK
		ldx	#RWB_Params>>16		;parameter block
		ldy	#D_WRITE+C1		;call #
		jsr	ProDosCall		;make the call
		
		pushlong eraseHandle
		jsl DisposeHandleGlue
		
@ack		sec
		rts

;---------------------------------------------------------------
; CheckRoom
;---------------------------------------------------------------
; JAM 5/17/89 (Fixing BRC #49143)
;   Before calling the CheckRoom entry point, first push a word
;   on the stack, which is non-zero if you are trying to decide
;   whether or not to BLOCK-COPY, zero if you are trying to decide
;   whether or not to FILE copy.  CALLER must pop the flag upon return
;   from CheckRoom!

CheckRoom	
		lda	#C1_DstPathName
		ldx	#C1_DstPathName>>16
		jsr	GetVolSizes		;get sizes for dest disk
		bcs	CRRet			;got error
		lda	GDN_DevNum
		sta	Dest_DevNum
		
		lda	V_Free			;get # of free blocks on dst disk
		sta	<DstFree		;and save

		lda	#C1_SrcPathName
		sta	<PathNamePtr		;and dialog (if	needed)
		ldx	#^C1_SrcPathName
		stx	<PathNamePtr+2
		jsr	GetVolSizes		;get sizes for source disk
		bcs	CRRet			;got error
		lda	GDN_DevNum
		sta	Source_DevNum
		
		lda	<SrcSize		;calculate # of blocks used on source disk
		sec
		sbc	V_Free
		sta	<SrcUsed		;and save

		lda	3,s			;say we have enough room if block by block
		bne	EnoughRoom		
		sta	<AdjSrcUsed		;to get	actual blocks used on src disk
		clc

CheckRoom2					;called from CreateFolder
		bcs	NoRoom
		sec
		lda	<DstFree		;get # of free blocks on dst disk and
		sbc	<AdjSrcUsed		;subtract # of blocks used on src disk
		bcc	NoRoom			;error if not enough room on dst disk
EnoughRoom	clc				;indicate enough room
CRRet		rts

NoRoom
		lda	#rasNoRoom
		jsl	doAlertCopy
		eor	#$FFFF
		cmp	#$FFFF
		rts				;'Cancel' selected

;---------------------------------------------------------------
; SetParams
;---------------------------------------------------------------

SetParams
		lda	<BufSize		; read or write bufsize # of bytes
		sta	RWB_Count
		lda	<BufSize+2
		sta	RWB_Count+2

		lda	<segmentIndex		; get offset to current segment ptr
		asl	a
		asl	a
		tay
		lda	[<pointerListPtr],y	; set up ptr to buffer
		sta	RWB_BufPtr
		iny
		iny
		lda	[<pointerListPtr],y	
		sta	RWB_BufPtr+2
		
		lda	RWB_BlockNum		; if we're back at block #0 zero, we only want 1!
		bne	@indexLoop		; segment!
		lda	RWB_BlockNum+2
		beq	@setNumBlocks
		
@indexLoop	inc	<segmentIndex
		lda	<segmentIndex
		cmp	<segmentCount
		bge	@setNumBlocks

		lda	<segmentIndex		; get offset to current segment ptr
		asl	a
		asl	a
		tay
		iny
		iny
		lda	[<pointerListPtr],y	; set up ptr to buffer
		cmp	#$FFFF
		bne	@setNumBlocks
		
		lda	<BufSize
		clc
		adc	RWB_Count
		sta	RWB_Count
		bcc	@nr
		inc	RWB_Count+2
@nr		bra	@indexLoop

@setNumBlocks	lda	RWB_Count		;bytes to read or write
		sta	<numBlocksToRW
		lda	RWB_Count+2
		sta	<numBlocksToRW+2

		ldy	#8			;convert bytes to blocks
@dLoop		lsr	<NumBlocksToRW+2
		ror	<NumBlocksToRW
		dey
		bpl	@dLoop
@done		rts

;
; rename the destination disk to what the source disk used to be, or eject the disk
; (or, eject the disk if we haven't a hope of renaming the destination disk)
;
FixName		ldy	<SrcFileSysID
		jsl	isReadOnly		;is what we copied onto the destination disk 
		bcs	@bogus			;capable of being renamed?

		lda	#C1_DstPathName
		sta	CP_TNewPtr
		lda	#C1_DstPathName>>16
		sta	CP_TNewPtr+2

		lda	#C1_DeviceName
		sta	CP_TOldPtr
		lda	#C1_DeviceName>>16
		sta	CP_TOldPtr+2

		lda	#CP_Trustme		; get ptr to CHANGE_PATH param block
		ldx	#CP_Trustme>>16
		ldy	#CHANGE_PATH+C1		; call #
		jsr	ProDosCall		; make the call
@bogus		rts

;
; try erasing first with the destination FST, then with the source FST, then with the
; ProDOS FST, and finally with the HFS FST, otherwise, give up, return carry set
;
findEraseFST	ldy	<DstFileSysID		;try erasing with the dest FST
		sty	E_ReqFileSys
		jsl	isFormattable
		rts

******************************************************************************************
*	Get Segments for block reads/writes	
*						
* Get as many segmentSize buffers as we can, up to <SrcSize if possible	
*
* OUT:	segmentCount				
*	handleListHandle block is full (or not) of handles to each segment
*	pointerListHandle block is full (or not) of pointers to each segment
*				
* 	SEC if no memory available		
*
* ASSUMPTIONS: <SrcSize contains the size of the volume we want to replicate
*	       The OOM queue has not dumped before we got here
*
* NOTES: The segments in pointerList are marked as contiguous if a block has $FFFFFFFF for its
*	 pointer -- a maximum of 1/4 of the disk's size is marked as contiguous.
*
*******************************************************************************************

		IMPORT	OOMDump
		
GetSegments	stz	<segmentCount		; no segments yet

		lda	<SrcSize		;MaxContiguous := SrcSize/4
		sta	<MaxContiguous	
		lda	<SrcSize+2		;(largest contiguous block is 1/4 of disk size, maybe)
		sta	<MaxContiguous+2

		ldy	#6			;MaxContiguous *= 128
@mLoop		asl	<MaxContiguous		;(MaxContiguous = (MaxContiguous * 512) / 4)
		rol	<MaxContiguous+2
		dey
		bpl	@mLoop

		lda	#maxSegments*4
		sta	<BufSize
		lda	#maxSegments>>16
		sta	<BufSize+2
		
		jsr	AllocateMem		; get the handle list
		bcc	@gotHandleList
		brl	memError
@gotHandleList	stx	<handleListHandle+2
		sta	<handleListHandle
				
		jsr	AllocateMem		; get the pointer list
		bcc	@gotPtrList
		brl	memError
@gotPtrList	stx	<pointerListHandle+2
		sta	<pointerListHandle

		lda	[<handleListHandle]	; deref the handle list handle
		tax
		ldy	#2
		lda	[<handleListHandle],y
		sta	<handleListPtr+2
		stx	<handleListPtr
		
		lda	[<pointerListHandle]	; deref the pointer list handle
		tax
		lda	[<pointerListHandle],y
		sta	<pointerListPtr+2
		stx	<pointerListPtr

		lda	#segmentSize		; size we ask for segments
		sta	<BufSize
		lda	#segmentSize>>16
		sta	<BufSize+2

AllocLoop	jsr	AllocateMem		; allocate a segment
		bcs	memCheck		; got error, so we're done allocating

		phx
		pha
		lda	<segmentCount
		asl	a
		asl	a
		tay
		pla
		sta	[<handleListPtr],y
		iny
		iny
		pla
		sta	[<handleListPtr],y

		inc	<segmentCount

		lda	<segmentCount
		cmp	#maxSegments		; have we allocated the maximum number of segments
		bcs	MemCheck		; allowable?	

		lda	<BufSize		; assume bucket ² 64K
		xba
		and	#$00FF
		lsr	a
		sta	<SegmentBlocks		; SegmentBlocks <-- BufSize/512

		pha
		pha
		pei	<SegmentBlocks		; # of blocks in one segment
		pei	<SegmentCount		; multiplied by the number of segments
		_Multiply
		pla
		plx
		
		sec				; have we allocated enough segments to hold the source
		sbc	<SrcSize		; volume?
		txa
		sbc	<SrcSize+2
		bcc	AllocLoop		; if borrow required, get some more memory if possible
		
;
; --- Check if there is at least 36K left -------
;
memCheck	lda	<segmentCount
		bne	@memCk1

@halfSegment	lsr	<BufSize+2		; divide buffer size by 2
		ror	<BufSize
		lda	<BufSize+2
		bne	AllocLoop		; retry allocation with smaller BufSize
		lda	<BufSize
		cmp	#2048			; if we can't get 2K, we're hosed
		bcs	Allocloop
		brl	memError		; not enough memory available

@memCk1
		lda	>OOMDumped		; did the OOM dump?
		bne	@scram			; if it dumped, give 32k back!  The system needs it!
		
		pha				; space for result
		pha
		_RealFreeMem			; Get amount of RAM left (excluding OOM Queue)
		pla
		cmp	#$4000
		pla
		sbc	#$0000
		bcs	memOK			; RealFreeMem ³ $4000 (16K + 24K for Finder's OOM Queue)

@scram		dec	<segmentCount		; otherwise, give one back !

		lda	<segmentCount
		asl	a
		asl	a
		tay
		lda	[<handleListPtr],y
		tax
		iny
		iny
		lda	[<handleListPtr],y
		pha
		phx
		jsl DisposeHandleGlue		; give one back

		lda	<segmentCount		;solves disk copy in small ram situations
		beq	@halfSegment

;
; --- Now dereference handles -------------------
;
memOK		lda	<SrcFileSysID		;are we copying a DOS 3.3 disk?
		cmp	#DOS33FST
		bne	@notDOS33
		
		lda	<SrcSize		;is the disk's size 280 blocks?
		cmp	#280
		bne	@notDOS33
		
		pha				;did we allocate at least 140k?
		pha
		pei	<segmentCount
		pei	<BufSize
		_Multiply
		pla
		plx
		cpx	#143360>>16
		bne	@notDOS33
		cmp	#(143360/1024)		;140K
		blt	@goMemError		;if we have less than 140K, too bad, they need more memory

@notDOS33	lda	<segmentCount		; did we give up all our segments ?
		bne	@haveSegments
@goMemError	brl	memError		; yes,  no memory available
@haveSegments
		
		stz	<currentSegment
		stz	<nextContiguous		; start by saying that nothing is contiguous to each other
		stz	<nextContiguous+2
		lda	<BufSize
		sta	<ContiguousSoFar
		stz	<ContiguousSoFar+2

@derefLoop	lda	<currentSegment
		asl	a
		asl	a
		tax
		txy
		lda	[<handleListPtr],y	; get a handle
		sta	<localTemp
		iny
		iny
		lda	[<handleListPtr],y	
		sta	<localTemp+2

		lda	[<localTemp]		; dereference it
		txy
		sta	[<pointerListPtr],y
		ldy	#2
		lda	[<localTemp],y
		txy
		iny
		iny
		sta	[<pointerListPtr],y
		
		cmp	<nextContiguous+2	; is this pointer where we expected the next contiguous
		bne	@notNext		; block to be?
		txy
		lda	[<pointerListPtr],y
		cmp	<nextContiguous
		bne	@notNext		
	
		lda	<currentSegment		;DON'T (DO NOT) mark the last segment as contiguous,
		inc	a			;because we're going to need it for the R/W of the first
		cmp	<segmentCount		;32k chunk of the disk
		bge	@notNext
			
		lda	<ContiguousSoFar	;is the amount of memory which is contiguous to each other
		sec				;so far more than we want to have contiguous so that the
		sbc	<MaxContiguous		;thermo bar updates?
		lda	<ContiguousSoFar+2
		sbc	<MaxContiguous+2
		bcs	@notNext

		lda	<ContiguousSoFar	;update how much memory we have contiguous
		clc
		adc	<BufSize
		sta	<ContiguousSoFar
		lda	<ContiguousSoFar+2
		adc	<BufSize+2
		sta	<ContiguousSoFar+2

		jsr	@NextContiguous	

		lda	#$FFFF			; mark this block as being contiguous with the one
		txy				; before it
		sta	[<pointerListPtr],y
		iny
		iny
		sta	[<pointerListPtr],y
		bra	@wasNext

@notNext	jsr	@NextContiguous		; not the next contiguous block, but tell us where the next one will be
		lda	<BufSize
		sta	<ContiguousSoFar
		stz	<ContiguousSoFar+2
		
@wasNext	inc	<currentSegment
		lda	<currentSegment
		cmp	<segmentCount
		blt	@derefLoop

		clc				; indicate no error
		rts

;
; NextContiguous --  add buffer size to our pointer to find out where the next block should be
;		     for the next block to be considered contiguous, thus saving us some read time
;		     because we'll be able to do a large multi-block read instead of dinky 32k reads
;
@NextContiguous	txy
		lda	[<pointerListPtr],y
		clc
		adc	<BufSize
		sta	<NextContiguous
		iny
		iny
		lda	[<pointerListPtr],y
		adc	#0
		sta	<NextContiguous+2
		rts
		
;
; NUTS!  We got an out-of-memory error, so tell the user to close some windows or inactivate some
;	 DAs or Inits, etc.
;
memError	jsl	OOMDump			;if we were able to dump both OOM handles, then all is OK,
		bcc	@noDump			;but if not, then don't risk crashing or hanging the machine
						;by displaying a dialog!
		
		lda	#rasMemErr
		jsl	doAlertWindow		
		
@noDump		sec
		rts

*******************************************************************
*
*	Free Segments used by block copy	
*						
*******************************************************************

FreeSegments	lda	<segmentCount
		beq	@done
		dec	a
		asl	a
		asl	a
		tax				; start at bottom

@loop		phx
		
		txy
		lda	[<handleListPtr],y
		tax
		iny
		iny
		lda	[<handleListPtr],y
		pha
		phx
		jsl DisposeHandleGlue			; free it
		
		plx
		dex
		dex
		dex
		dex
		bpl	@loop

@done		pushZLong <handleListHandle
		jsl DisposeHandleGlue
		
		pushZLong <pointerListHandle
		jsl DisposeHandleGlue
		rts


;
; locals?
;
		EXPORT	ThermoMax
thermoMax	dc.L	0
eraseHandle	dc.L	0			;handle to 32K erase buffer
		ENDP

****************************************************************
*
* DeleteFiles
*
****************************************************************

DeleteFiles	PROCNAME

		IMPORT	SaveCursor
		IMPORT	WatchCursor
		IMPORT	doAlertCopy
		IMPORT	doAlertWindow
		IMPORT	PathGetName
		IMPORT	C1_FileName

CallFlag	equ	10
SrcPtr		equ	CallFlag+2
IcHndl		equ	SrcPtr+4		;input parameters

ParamSize	equ	10			;# of bytes of input params


;The 'CallFlag'	parameter indicates what this routine is being called to do.
;The possible values are as follows -
;
;    $0000 - Put files in Trash
;    $0001 - Remove files
;    $8000 - Empty Trash

		phd
		tcd


		phb
		phk
		plb

		lda	#ParamSize		;# of bytes of input params
		sta	<NumParams

		jsl	SaveCursor
		jsl	watchCursor

		stz	<WhichMsg		;no message for	now
		stz	AbortFlag		;added 06/09/88 DJB
		stz	<NamesWereXLated	; JAM 06/01/89 Fixing BRC #49639

		lda	SrcPtr+2,s		;get ptr to source (window) pathname
		tax
		lda	SrcPtr,s
		phx
		pha
		PushLong #C1_SrcPathName
		jsl	WStringCopy		;copy src pathname to our buffer

		lda	C1_SrcPathName
		sta	<SrcPathLen		;save source pathname length

		lda	IcHndl,s		;get handle to first icon in icon list
		sta	<IconHndl
		lda	IcHndl+2,s
		sta	<IconHndl+2
		jsr	GetSelIcon		;search	list for first selected	icon

		lda	#$FFFF
		sta	<DeleteFlag		;indicate that we're deleteing files

		lda	#C1_SrcPathName		;set up	ptr to SrcPathName
		sta	<PathNamePtr
		sta	FI_Name			;set up	ptr to src name	for GetFileInfo
		lda	#^C1_SrcPathName
		sta	<PathNamePtr+2
		sta	FI_Name+2

		jsl	ProDOS			;start_session, added 05/17/88 DJB
		DC.W	BEGIN_SESSION+C1	;for hack
		DC.L	session_call

IconLoop

		lda	>MenschTemp
		and	#$7FFF
		sta	>MenschTemp

		lda	CallFlag,s
		bmi	@emptying

		ldy	#icFtype		;and only let them do it if it's a folder in the trash
		lda	[<iconPtr],y
		cmp	#$000F
		bne	@emptying

		ldy	#icFlag+2		;don't let them put a network folder in
		lda	[<iconPtr],y		;the trash that doesn't have the "Make Changes"
		tax				;bit set
		and	#icNetwork>>16
		beq	@emptying
		txa
		and	#icMakeChanges
		bne	@emptying
		
		lda	#rasNoPrivs
		jsl	doAlertWindow
		sec
		brl	Quit2					
@emptying

		jsr	MakeSrcName		;make pathname for selected icon
		bcs	Quit2a			;name too long

		ldx	#0			;don't save filecount in first cat entry
		jsr	CatalogSrc		;get catalog for icon
		bcc	cat_ok
		cpy	#$4E
		sec
		bne	Quit2a
		lda	CallFlag,s		; Is CallFlag here because CatalogSrc
		bne	Quit2a			; did not put a handle (+4) on the stack.

		lda	#rasNoPrivs
		jsl	doAlertWindow
		sec

Quit2a		brl	Quit2			;got error in Catalog routine
cat_ok

		lda	CallFlag+4,s		;if called to 'Empty Trash', then don't
		bmi	DeleteIt		;put up	dialog for locked files

		txa				;any locked files in catalog?
		beq	DeleteIt		;no - so it's OK to delete

		pushlong #C1_Filename		;put the end of pathnameptr onto c1_filename
		pushZLong <PathNamePtr
		jsl	PathGetName

		lda	#rasLocked2
		jsl	doAlertWindow
		cmp	#2
		beq	deleteIt
		cmp	#1
		beq	NextIcon		;'No' was selected so skip this	icon
		brl	doQuit			;'Cancel' was selected

DeleteIt	lda	CallFlag+4,s		;if called to 'Put files in Trash', then
		beq	SetBit			;don't delete the files

		lda	<SrcPathLen		;restore SrcPathName
		inc	a			;include a separator
		sta	C1_SrcPathName

		lda	#1
		sta	<CatIndex		;indicate only 1 catalog on stack
		jsr	GetNextCat		;get ptr to first catalog entry

FileLoop					
		lda	CallFlag+4,s		;if called to Empty Trash then user
		bmi	NoCheck			;can't cancel the operation
		jsr	CheckKey		;does user want	to cancel?
		bcc	NoCheck			; no, continue
		brl	doQuit			;yes
NoCheck
		jsr	MakePathName		;make pathname for catalog entry
		bcs	doQuit			;name too long
		lda	[<CatPtr]		;is this entry a subdirectory?
		bne	NextFile		;yes - so can't delete it until empty
		ldy	#2
		lda	[<CatPtr],y		;is this file locked?
		beq	DoDelete		;no - so delete	it
		jsr	GetFileInfo2		;yes - so get file info
		bcs	doQuit			;got error - cancel
		lda	#$C3
		sta	FI_Access		;and clear out access bits so file
		pea	-1			; Mensch 5/18/89 (BRC #48301)
		jsr	SetFileInfo		;can be	deleted
; Mensch 5/18/89 (Fixing BRC #48301)
; Following code modifies original so that it ignores access errors but passes
;   the rest on to the user.
		bcc	doDelete
		cmp	#$50			; is it a file busy error?
		bne	doQuit			; if not, come to a rude end
		ora	#$8000
		sta	>MenschTemp		; else save the error for later
		bra	NextFile		; do the next one in the list
DoDelete
		pea	-1			; flag for destroy
		jsr	DestroyFile		;delete	the file
		bcc	NextFile
		cmp	#$50			; is it a file busy error?
		bne	doQuit			; if not, come to a rude end
		ora	#$8000
		sta	>MenschTemp		; else save the error for later
NextFile	jsr	GetNextFile
		bcc	FileLoop		;loop until done with all files	in cat
;
; Now, test to see if this icon should be flagged as deleted
		lda	>MenschTemp
		bpl	SetBit
		bra	NextIcon
; end Mensch 5/18/89 (BRC #48301)

SetBit		ldy	#icFlag
		lda	[<IconPtr],y
		ora	#ICDELETE		;set bit in Flag field of IconObj record
		sta	[<IconPtr],y		;to indicate it	was deleted

NextIcon	jsl DisposeHandleGlue		;dispose of catalog
		jsr	GetNextIcon		;get next selected icon
		bcs 	icon_done		;loop until done with all selected icons
		brl 	IconLoop
icon_done

;
; Here, we test Mensch temp to see if any nasty access errors occurred during deletion.
; If so, report them to the caller.
;
		lda	>MenschTemp
		bpl	@LikeNormal
		bra	OneWasBusy
@LikeNormal
; end Mensch 5/18/89 (BRC #48301)

		stz	<Error			;indicate no error

Done		stz	<DeleteFlag		;clear flag

		jsl	ProDOS			;stop_session, added for hack
		DC.W	END_SESSION+C1		;05/17/88 DJB
		DC.L	session_call

		jmp	StdEnd

doQuit		jsl DisposeHandleGlue		;dispose of catalog
Quit2		lda	#$FFFF
		sta	<Error			;return	error
		bra	Done

; Mensch 5/18/89 (Fixing BRC #48301)
OneWasBusy
; Report the file busy error to the user here
		stz	<Error
		bra	Done
		EXPORT	MenschTemp
MenschTemp	ds.W	1			; used internally (watch out for bank probs)
; end Mensch 5/18/89 (BRC #48301)

		ENDP

****************************************************************
*
* DupFiles
*
****************************************************************

DupFiles	PROC

		IMPORT	saveCursor
		IMPORT	restoreCursor
		IMPORT	arrowCursor
		IMPORT	watchCursor
		IMPORT	finderTaskRecord
		IMPORT	PathGetName
		IMPORT	CustomPtr
		IMPORT	C1_Source
		IMPORT	C1_Dest
		IMPORT	PToWString
		IMPORT	WToPString
		IMPORT	FileSysID
		IMPORT	CustomPtr
		IMPORT	c1_sourcebuf
		import	customptr
		import	customptr2
		import	customptr3
		import	fstNames
		import	WindowGlobalON
		import	WindowGlobalOFF
		import	GetVolumeInfo
		import	GetDeviceName
		import	doAlertWindow
		import	FileCopyOpen
		import	FileCopyClose
		import	DrawNumItems
		import	DrawCopyControls
		import	StrAlloc
		
ProcPtr		equ	10
SrcPtr		equ	ProcPtr+4
IcHndl		equ	SrcPtr+4		;input parameters

ParamSize	equ	12			;# of bytes of input params

		phd
		tcd


		phb
		phk
		plb

		stz	<ReadDuplicate
		stz	<WriteDuplicate

		lda	#ParamSize		;# of bytes of input params
		sta	<NumParams
		stz	<NamesWereXLated	; JAM 06/01/89 Fixing BRC #49639

		jsl	SaveCursor
		jsl	WatchCursor

		stz	<WhichMsg		;no message for	now
		stz	AbortFlag		;added 06/09/88 DJB

		lda	ProcPtr,s		;get address of	routine	to call
		sta	Call+1			;and store after JSL opcode
		lda	ProcPtr+1,s
		sta	Call+2


		lda	SrcPtr+2,s		;get ptr to source (window) pathname
		tax
		lda	SrcPtr,s
		phx
		pha
		PushLong #C1_SrcPathName
		jsl	WStringCopy		;copy src pathname to our buffer

		PushLong #C1_SrcPathName
		PushLong #C1_DstPathName
		jsl	WStringCopy		;copy src pathname to our buffer

		lda	C1_SrcPathName		;set lengths of src and dst pathnames
		sta	<SrcPathLen
		lda	C1_DstPathName
		sta	<DstPathLen

		PushLong #C1_DeviceName		; pointer to device name
		PushLong #C1_SrcPathName	; pointer to pathname
		jsl	GetDeviceName
		PushLong #C1_DeviceName		; pointer to device name
		lda #0
		pha
		pha				; skip volume name
		pha
		pha				; skip total blocks
		pha
		pha				; skip free blocks
		PushLong #FileSysID		; ptr to file system ID
		pha
		pha				; skip block size
		jsl	GetVolumeInfo

		lda	IcHndl,s		;get handle to first icon in icon list
		sta	<IconHndl
		lda	IcHndl+2,s
		sta	<IconHndl+2
		jsr	GetSelIcon		;search	list for first selected	icon

;
; get the type of the name and run the modified one through JudgeName
;
IconLoop	ldy	#icFType
		lda	[<IconPtr],y
		ldx	#1			;is it a volume?
		cmp	#TypeLastone
		bge	@foundType
		inx
		cmp	#$0f			;is it a folder?
		beq	@foundType
		inx				;must be just a file if it gets here
@foundType	stx	nameType		

		lda	>fileSysID
		sta	fstID
		sta	<SrcFileSysID

		lda	#C1_SrcPathName
		sta	<PathNamePtr		;set up	ptr to SrcPathName
		lda	#^C1_SrcPathName
		sta	<PathNamePtr+2

		jsr	MakeSrcName		;make pathname for icon
		bcc	@nameOK
		brl	Quit0b
@nameOK
		
		jsr	JudgeIName
		
		pushlong #C1_Source
		pushlong #C1_SrcPathname
		jsl	PathGetName

		lda	>C1_Source
		xba
		sta	>C1_Source

		lda	#10
		jsr	duplicateDialog
		asl	a			;button	ID returned in A
		bcc	DupIt			;'OK' selected so retry	with new name
		bmi	@goQuit0a		;'Cancel' was selected
		brl	NextIcon		;'Skip File' selected so skip this icon
@goQuit0a	brl	Quit0a

;
; before we duplicate anything, checkout the name the user gave us (never trust them for a
; second while they're out of your sight).
;
DupIt		PushLong #FileName		;create	ptr to duplicate's name
		PushLong #C1_Source
		jsl	PToWString

		_JudgeNameGS JudgeParms
		bcs	@wayBogus

		lda	JudgeParms+$10
		beq	GoodName
		
@wayBogus	pushlong #filename		;move bad name to c1_dest
		pushlong #c1_dest
		jsl	PToWString
		
		pushlong #c1_source		;move good name into filename
		pushlong #filename
		jsl	WToPString
		
		lda	>c1_source		;*3 -- make pstr
		xba
		sta	>c1_source
	
		lda	>c1_dest		;*4 -- make pstr
		xba
		sta	>c1_dest
	
		lda	fstID			;*6 -- create fst name string
		asl	a
		asl	a
		tax
		lda	>fstNames,x
		sta	>CustomPtr2
		lda	>fstNames+2,x
		sta	>CustomPtr2+2

		lda	JudgeParms+$06		;move fst syntax pointer to *5
		sta	>CustomPtr
		lda	JudgeParms+$08
		sta	>CustomPtr+2

		lda	#$0c			;diaBadName
		jsr	duplicateDialog
rtDialog	asl	a			;button	ID returned in A
		bcc	DupIt			;'OK' selected so retry	with new name
		bmi	Quit0a			;'Cancel' was selected
		brl	NextIcon		;'Skip File' selected so skip this icon

;
; if we get here we're pretty sure we got a good name
;
GoodName	PushLong #FileName		;create	ptr to duplicate's name
		PushLong #C1_IconName
		jsl	PToWString

		lda	#Filename
		sta	<FileNamePtr
		lda	#FileName>>16
		sta	<FileNamePtr+2

		lda	#C1_IconName
		sta	<INamePtr
		lda	#C1_IconName>>16
		sta	<INamePtr+2
		jsr	MakeDstName		;make pathname for duplicate
Quit0b		bcc	ok
goQuit0		brl	Quit0			;name too long
ok

		lda	#C1_DstPathName		;create	ptr to DstPathName
		sta	FI_Name			;for GetFileInfo to use
		lda	#^C1_DstPathName
		sta	FI_Name+2
		jsr	GetFileInfo3		;does this file	already	exist?
		bcc	Cont			;no - so we're OK
Quit0a		bmi	goQuit0			;got an	error, 'Cancel'	was selected
		beq	@ok			; bad name typed in
		brl	DupIt
@ok
		pushlong #C1_Dest
		pushlong #C1_DstPathname
		jsl	PathGetName

		lda	>C1_Dest
		xba
		sta	>C1_Dest

		jsr	JudgeIName		;result into 'Filename'

		lda	#$0b			;diaNameUsed
		jsr	duplicateDialog
		bra	rtDialog

Cont		jsr	FileCopyOpen
		bcs	@goDoQuit
		
		jsr	DrawCopyControls
		lda	#1			;start counting upwards from 1
		ldy	#0
		jsr	DrawNumItems
		
		pea	15
		pea	30
		_MoveTo
		pushlong #strAlloc
		_DrawString

		ldx	#1			;store filecount in first cat entry
		jsr	CatalogSrc		;get catalog for icon being duplicated
		bcc	@catalogOK
		cpy	#$4e
		bne	@goDoQuit
		lda	#rasNoPrivs
		jsl	doAlertWindow
@goDoQuit	sec
		brl	QuitClose		;Catalog routine got an	error
@catalogOK

		sta	<NumFiles		;# of files in catalog returned	in A
		lda	#1
		sta	<NumCats		;used by DoFileCopy

		inc	<ReadDuplicate		;indicate we're duplicating
		inc	<WriteDuplicate
		
		lda	>fileSysID
		sta	<DstFileSysID		;don't really care since we're duping
		sta	<SrcFileSysID

		lda	<CatalogEOF
		sta	<TotalEOF
		lda	<CatalogEOF+2
		sta	<TotalEOF+2

		jsr	DoFileCopy		;copy the files
		jsr	FileCopyClose
		
		lda	#1
		sta	<CatIndex		;reset CatIndex
		jsr	GetNextCat		;get ptr to catalog
		ldy	#2
		lda	[<CatPtr],y		;get flag from first cat entry
		bpl	NotDuped		;if hi bit clear, flag is not valid
		and	#ICCOPY			;was the file duplicated?
		beq	NotDuped		;no

		PushZLong <IconHndl		;push handle to	icon we	just duplicated
		PushPtr	FileName		;push ptr to name of duplicate
Call		jsl	Call			;call routine to create	a new icon
		pla				;clean up stack
		pla
		pla
		pla
NotDuped

		jsl DisposeHandleGlue		;dispose of catalog

		lda	<Error			;did 'DoFileCopy' get an error?
		bmi	Quit0			;yes - so quit

NextIcon	jsr	GetNextIcon		;get next selected icon
		bcs	Done
		brl	IconLoop		;loop until done with all selected icons

Done		stz	<Error			;don't return an error
		jmp	StdEnd

QuitClose	jsr	FileCopyClose

Quit0		lda	#$FFFF
		sta	<Error			;return	error
		jmp	StdEnd

;
; judge IName, result into 'Filename'
;
JudgeIName	pushZLong <INamePtr
		pushlong #c1_source
		jsl	WStringCopy

		lda	>c1_source
		tax
		inx
		lda	>c1_source,x
		and	#$00FF
		ora	#$3200			;add a '2' onto the end of the name
		sta	>c1_source,x
		txa
		sta	>c1_source
		
		_JudgeNameGS JudgeParms		;use whatever it returns

		pushlong #c1_source
		pushZLong <INamePtr
		jsl	WStringCopy

		pushZLong <INamePtr
		pushlong #Filename
		jsl	WToPString
		rts
		
;
; put up the duplicate dialog of their choice
;
; IN: (A) contains the dialog to show
;

		IMPORT	CloseDupWindow		;in util.aii - 27-Jan-93 JCM

duplicateDialog
		pha
		jsl	saveCursor
		jsl	arrowCursor
		jsl	WindowGlobalON
		plx

		pha
		pha
		lda #0
		pha
		pha				;titlePtr
		pha
		pha				;refCon is ptr to our window info block
		pha
		pha				;content draw proc
		pha
		pha				;window defproc
		pea	2			;refIsResource
		pha
		phx				;window resource we want
		pea	$800e			;rWindParam1
		_NewWindow2
		
		jsl	WindowGlobalOFF
		pulllong dupWindowPtr
		bcc	@openOK

;
; close the window only if something bad happened and we actually have a window pointer
; because something could have happened when we went to add controls (but didn't
; get created because we couldn't find the disk or the resource)
;
		lda	dupWindowPtr+1
		beq	@leave

@done		jsl	CloseDupWindow

@leave		jsl	RestoreCursor
		
		lda	#$FFFF
		rts

;
; cool.  we got the resources we needed and have a window -- so set everyone's control values before
; anything gets drawn
;
@openOK		pushlong dupWindowPtr
		pushlong #4
		pushlong #Filename
		_SetLETextByID

;
; now that we've set all the controls values, use doModalWindow to play with everything
;
@loop		pha
		pha
		pea	0
		lda	>finderTaskRecord
		pha			;push the task record's ptr
		lda #0
		pha
		pha			;update proc
		pea $8000
		pha			;eventHook
		pha
		pha			;beep proc
		pea	$c010		;flags
		_DoModalWindow

		pla
		plx
		cmp	#5
		blt	@loop

		sec
		sbc	#5
		asl	a
		tax

		jmp	(@addrs,x)

@addrs		dc.w	@cancel		;id = 5
		dc.w	@ok		;6
		dc.w	@skip		;7

@close		jsl	restoreCursor
		jsl	CloseDupWindow

		rts

@cancel		jsr	@close
		lda	#$FFFF
		rts

@ok		pushlong dupWindowPtr		;if so, then get the text they typed
		pushlong #4
		pushlong #Filename
		_GetLETextByID

		jsr	@close
		lda	#1
		rts

@skip		jsr	@close
		lda	#$8000
		rts
;
; locals
;
		EXPORT	dupWindowPtr
dupWindowPtr	dc.L	0

JudgeParms	dc.w	6
fstID		dc.w	0			;fileSysID
nameType	dc.w	0			;nameType
		dc.L	0			;syntax
		dc.w	0
		dc.L	C1_SourceBuf		;keep this big so it has a lot of workspace (DAL)
		dc.w	0
		ENDP

****************************************************************
*
* FileCopyOpen -- open the file copy window, set port to it
*		  carry set if the window couldn't be opened
*
****************************************************************

FileCopyOpen	PROC

		IMPORT	WindowGlobalON
		IMPORT	WindowGlobalOFF
		IMPORT	CopyUpdate
		IMPORT	CloseCopyWindow		;in util.aii - 27-Jan-93 JCM
		
		jsl	WindowGlobalON
		
		pha
		pha
		lda #0
		pha
		pha				;titlePtr
		pha
		pha				;refCon is ptr to our window info block
		pushlong #CopyUpdate+$C0000000	;content draw proc
		pha
		pha				;window defproc
		pea	2			;refIsResource
		pha
		pea $D				;window resource we want
		pea	$800e			;rWindParam1
		_NewWindow2

		jsl	WindowGlobalOFF
		pulllong copyWindowPtr
		bcc	@openOK

;
; close the window only if something bad happened and we actually have a window pointer
; because something could have happened when we went to add controls (but didn't
; get created because we couldn't find the disk or the resource)
;
		lda	copyWindowPtr+1
		beq	@leave

		jsl	CloseCopyWindow

		stz	copyWindowPtr+1

@leave		sec
		rts

@openOK		pha
		pha
		_GetPort
		pulllong ourPort
		
		pushlong copyWindowPtr
		_SetPort
;;;		clc			;27-Jan-93 JCM - redundant - SetPort always returns w/clc
		rts

		ENDP

****************************************************************
*
* FileCopyClose -- close the file copy window (or not if it wasn't open)
*
****************************************************************

FileCopyClose	PROC	
		
		IMPORT	CopyWindowPtr
		IMPORT	CloseCopyWindow		;in util.aii - 27-Jan-93 JCM
		
		lda	copyWindowPtr+1
		beq	@noClose

		pushlong ourPort
		_SetPort

		jsl	CloseCopyWindow
		
		stz	copyWindowPtr+1

@noClose	rts

		ENDP

****************************************************************
*
* DoFileCopy
*
****************************************************************

DoFileCopy	PROCNAME

		IMPORT	DrawNumItems
		IMPORT	CopyUpdate
		IMPORT	ThermoMax
		IMPORT	DrawCopyControls
		IMPORT	PathGetName
		IMPORT	PathAddName
		IMPORT	PathSubName
		IMPORT	strgCopying
		IMPORT	c1_filename
		IMPORT	DupFile
		IMPORT	AddSlash
		IMPORT	RemoveName
		IMPORT	RemoveSlash
		IMPORT	IncCatPtr
		IMPORT	MakeDestinationName
		IMPORT	lastThermo
		IMPORT	WindowGlobalON
		IMPORT	WindowGlobalOFF
		import	doAlertWindow
		import	IsReadOnly
		IMPORT	DoMagicRouting

BytesLeft	equ	ZEnd			;zero page temps
MoreToRead	equ	BytesLeft+4
MoreToWrite	equ	MoreToRead+2
SavedCatHndl	equ	MoreToWrite+2
SavedCatPtr	equ	SavedCatHndl+4
SavedCatIndex	equ	SavedCatPtr+4
DataReadMark	equ	SavedCatIndex+2
RsrcReadMark	equ	DataReadMark+4
DataWriteMark	equ	RsrcReadMark+4
RsrcWriteMark	equ	DataWriteMark+4
FilesInCat	equ	RsrcWriteMark+4
RetAdrs		equ	FilesInCat+2
OrigSrcLen	equ	RetAdrs+2
OrigDstLen	equ	OrigSrcLen+2
DoServerCopy	equ	OrigDstLen+2
LastWriteType	equ	DoServerCopy+2

		IF	LastWriteType+2>$FF THEN
			WRITE 'LastWriteType = '
			WRITELN LastWriteType
			WRITELN 'WARNING... Direct page variable overflow!'
			AERROR 'DoFileCopy extended its local DP too far'
		ENDIF


		pla				;get return address
		sta	<RetAdrs		;and save

		lda	C1_SrcPathName		;get length of srcpathname
		sta	<OrigSrcLen		;and save

		lda	<NumCats		;get number of catalogs	on stack
		sta	<CatIndex		;set up	index into catalogs
		jsr	GetNextCat		;get ptr to first entry	in first catalog

		stz	<MoreToRead		;clear out flags
		stz	<MoreToWrite
		stz	<DataReadMark
		stz	<DataReadMark+2
		stz	<RsrcReadMark
		stz	<RsrcReadMark+2
		stz	<DataWriteMark
		stz	<DataWriteMark+2
		stz	<RsrcWriteMark
		stz	<RsrcWriteMark+2
		
		stz	<SkipBadNames

		jsr	GetBuffer		;allocate buffer for file reads

		pha
		pha
		pushlong copyWindowPtr
		pushlong #3
		_GetCtlHandleFromID

		lda	<NumFiles		;get # of files	being copied
		asl	a
		sta	<NumItems
		sta	thermoMax

		ply
		plx
		pea	0
		pha				;max value for dial
		phx
		phy
		_SetCtlTitle			;set the scale

;
; now, the filename gets the null string initially.  If the source and destination FSTs are
; AppleShare, we'll draw nothing yet and if the FSTs aren't both AppleShare, we'll draw
; "Reading: "
;
;;;		lda	#$FFFF			;23-Mar-93 JCM - pulled from 6.0.1
;;;		sta	<DoServerCopy		;23-Mar-93 JCM - pulled from 6.0.1
		stz	lastThermo
		
;
; get file info and read in file contents
;
ReadIt		NAME

		jsl	ProDOS			;stop sessioning, maybe write something
		DC.W	END_SESSION+C1
		DC.L	session_call

		jsr	RestartBuf		;set bufptr to start of	buffer

		lda	<CatHndl		;save hndl to current cat so the write
		sta	<SavedCatHndl		;code knows which catalog is in	use
		lda	<CatHndl+2
		sta	<SavedCatHndl+2
		lda	<CatPtr			;save ptr to current file so the write
		sta	<SavedCatPtr		;code knows which file to start	with
		lda	<CatPtr+2
		sta	<SavedCatPtr+2
		lda	<CatIndex		;save CatIndex so the write code
		sta	<SavedCatIndex		;knows how many	catalogs are left

		lda	#C1_SrcPathName		;put ptr to SrcPathName
		sta	O_NamePtr		;into OPEN params
		sta	OE_NamePtr
		sta	<PathNamePtr		;set up	ptr to SrcPathName
		lda	#C1_SrcPathName>>16
		sta	O_NamePtr+2
		sta	OE_NamePtr+2
		sta	<PathNamePtr+2
		
		jsr	MakeFileName
		jsr	CheckKey		;does user want	to cancel?
		bcs	Quit2aJim

;
; see if the file has needed more than 1 pass, if so, print the name
;
		lda	<MoreToRead		;has this file been partially read?
		beq	@notMultiRead

		lda	#strgReading		;point to 'Reading: '
		sta	<RWPtr
		lda	#strgReading>>16
		sta	<RWPtr+2

		jsr	DrawThermoItems
		jsr	DrawNumFiles
		brl	notFolder		;bra if yes
@notMultiRead

		lda	<ReadDuplicate		;are we	duplicating a file?
		beq	contRd			;bra if yes: src pathname already built

		jsr	ZeroSoFar
		jsr	CheckSpace		;enough	space in buffer	for file info?
		bcc	GotSrcName
		brl	WriteIt			;no - so write out buffer

;
; loop back here for every file we read into our buffer
;
ReadLoop	NAME

		jsr	CheckKey		;does user want	to cancel?
		bcs	Quit2aJim

		jsr	MakeFileName

contRd		jsr	ZeroSoFar

		jsr	CheckSpace		;enough	space in buffer	for file info?
		bcc	OKSpace
		brl	WriteIt			;no - so write out buffer
OKSpace		jsr	MakePathName		;make full pathname for	file
		bcc	GotSrcName		;bra if name len ok
quit2aJim	brl	Quit2a			;name too long

GotSrcName	jsr	StorePtr		;store ptr to pathname in buffer
		jsr	GetFileInfo		;store file info in buffer
		bcs	Quit2aJim		;got error
		bmi	@skip
		
		ldx	#1			;put up	dialog if access error
		jsr	CheckRAccess		;is file able to be read?
		bcc	OK2Read			;yes
		bmi	Quit2aJim		;no - user wants to cancel
		
@skip		jsr	DrawCopyControls
		lda	<NumFiles
		ldy	#0
		jsr	DrawMsg			;update	box one last time

		ldy	#2			;if this is the	first entry in the cat
		lda	[<CatPtr],y		;the flag word contains	the # of files
		sta	<FilesInCat		;in the	catalog
		brl	SkipThisFile		;no - user wants to skip file

;
; First, see if we can do a server copy.  If the volume the file is being copied to,
; or is being copied from isn't on the same server, then this call will fail and we
; proceed to copy the file normally
;
OK2Read		

		IF AllowServerCopies THEN	;24-Mar-93 JCM - doesn't work - removed from 6.0.1

		lda	<DoServerCopy
		beq	@goNotAppleShare
			
		lda	<SrcFileSysID
		cmp	#$0D			;AppleShare
		bne	@goNotAppleshare
		cmp	<DstFileSysID
		beq	@gotAppleshare

		ENDIF

@goNotAppleshare brl	@notAppleShare

		IF AllowServerCopies THEN	;24-Mar-93 JCM - doesn't work - removed from 6.0.1
@gotAppleshare	
		lda	#C1_DstPathName		;put ptr to DstPathName
		sta	<PathNamePtr
		lda	#C1_DstPathName>>16
		sta	<PathNamePtr+2

		lda	[<PathNamePtr]
		sta	<OrigDstLen

		lda	<ReadDuplicate		;are we duplicating something?
		bne	@duplicate		;must be first time through ReadLoop		
		jsr	MakePathname
		bcs	@goCopyDone
@duplicate

		lda	#strgCopying		;point to 'Copying: '
		sta	<RWPtr
		lda	#strgCopying>>16
		sta	<RWPtr+2

		jsr	DrawThermoItems
		jsr	DrawNumFiles
			
		jsr	GetNumFiles

		lda	[<CatPtr]		;is this a file entry?
		beq	@serverLoop		; yup, copy it

		jsr	StorePtr		;store ptr to pathname in buffer
		jsr	SaveFileInfo		;make a	copy of	the file info for later
		jsr	EnableAccess		;enable	all access bits

		jsr	CreateFile		;create	the directory
		bcc	@created
		bmi	@goCopyDone		;got error - 'Cancel' selected
		bra	@aShareSkip

@serverLoop	_FSTSpecific CopyFileParms
		bcc	@copied

		cmp	#$47			;duplicate file?
		beq	@duplicateFile

		stz	<DoServerCopy		;don't use the server to copy next time		
		lda	<OrigDstLen
		sta	[<PathNamePtr]
		brl	@notAppleshare
@duplicateFile

		jsr	DupFile			;either delete the file or use dialog
		bcc	@serverLoop
		bpl	@aShareSkip		;skip this file
@goCopyDone	brl	Quit2


;
; they want to skip this file, so seeing as how we're doing an AppleShare file
; copy, we gotta remove the name from the destination path no matter what we do, then
; we have to go through the formal skip process for the source files in the catalog
;
@aShareSkip	jsr	RemoveName		;remove	file name from destination path

		lda	#C1_SrcPathName		;put ptr to SrcPathName
		sta	<PathNamePtr
		lda	#^C1_SrcPathName
		sta	<PathNamePtr+2

		brl	SkipThisFile

;
; The file was copied OK on the server, so increment the pointers for where we are
; in our catalog of files
;
@created	pea	#0
		jsr	SetFileInfo		;fix up	access bits and	'modified' info

@copied		jsr	SetCopyBit		;set the icCopy bit of this catalog
		pushZLong <CatPtr
		lda	[<CatPtr]		;is this a subdirectory	entry?
		bne	@SubDir			;yes
		jsr	RemoveName		;remove	file name
		jsr	IncCatPtr		;go on to next cat entry
		bra	@CkSubDirEnd		;chk type of first entry: end of subdir?

@SubDir		jsr	AddSlash		;add separator to pathname
@CkSubDirEnd	lda	[<CatPtr]		;get type of first entry
		cmp	#$FFFF			;at end	of subdirectory?
		bne	@returnOK		;bra if not: indicate no error, return

		jsr	RemoveSlash		;remove	separator from pathname
		jsr	RemoveName		;remove	name of	subdirectory
@returnOK	pulllong <CatPtr

		lda	#C1_SrcPathName		;put ptr to SrcPathName
		sta	<PathNamePtr
		lda	#^C1_SrcPathName
		sta	<PathNamePtr+2

		dec	<NumItems		;# of dial items left
		dec	<NumItems		;*2 because we both read and wrote

		dec	<NumFiles

		jsr	GetNextFile		;get next filename from	catalog
		bcc	@aCopyNext

		jsr	DrawThermoItems
		jsr	DrawNumFiles
		brl	CopyDone		;no more files

@aCopyNext	lda	<CatHndl		;save hndl to current cat so the write
		sta	<SavedCatHndl		;code knows which catalog is in	use
		lda	<CatHndl+2
		sta	<SavedCatHndl+2
		lda	<CatPtr			;save ptr to current file so the write
		sta	<SavedCatPtr		;code knows which file to start	with
		lda	<CatPtr+2
		sta	<SavedCatPtr+2
		lda	<CatIndex		;save CatIndex so the write code
		sta	<SavedCatIndex		;knows how many	catalogs are left
		
		stz	<ReadDuplicate	
		brl	ReadLoop		;loop until done with all catalogs

		ENDIF

;
; The file either wasn't from an Appleshare fileserver, or we got some kind of
; error when trying to read it, so try to copy the file the normal way...
;
@notAppleshare	lda	#C1_SrcPathName		;put ptr to SrcPathName
		sta	<PathNamePtr
		lda	#^C1_SrcPathName
		sta	<PathNamePtr+2

		lda	#strgReading		;point to 'Reading: '
		sta	<RWPtr
		lda	#strgReading>>16
		sta	<RWPtr+2

		jsr	DrawThermoItems
		jsr	DrawNumFiles

		jsr	SkipFileInfo		;inc bufptr past file info
		lda	[<CatPtr]		;is this file a	subdirectory?
		beq	notFolder
		brl	NextFile1		;yes - so nothing to read
notFolder

		lda	#$0001			; read access only
		jsr	OpenFile		;no - so open the file
		bcc	@noError
		brl	Quit2aJim		;got error

@noError	stz	<IsExtended
		lda	O_StoreType
		cmp	#$05			;is it an extended file?
		bne	ReadSet
		inc	<IsExtended
		lda	#$0001			;read access only
		jsr	OpenResource
		bcs	Quit2a			;bra if got error

ReadSet		jsr	SetReadMark		;set mark if file has been partially read
		bcs	Quit1a			;got error
		jsr	SetReadSize		;calc #	of bytes to read, save # in buf
		bcs	Quit1a			;got error
		jsr	SkipSizeInfo		;inc bufptr past size info
		lda	RW_Size			;are they data bytes to read?
		ora	RW_Size+2
		beq	ReadExtend		;if not skip the read
		jsr	ReadDataFile		;read the bytes in data fork
		bcs	Quit1a			;got error
		jsr	GetDataReadMark		;save mark if file only	partially read
		bcs	Quit1a			;got error

ReadExtend	lda	RWE_Size		;are there resource bytes to read?
		ora	RWE_Size+2
		beq	ReadDone		;if not skip the read
		jsr	ReadRsrcFile		;read the bytes in resource fork
		bcs	Quit1a			;got error
		jsr	GetRsrcReadMark		;save mark if file only	partially read
		bcs	Quit1a			;got error

ReadDone	jsr	CloseFile		;close the file
		bcs	Quit2a			;got error

		jsr	IncBufPtr		;inc bufptr past file bytes
		lda	<MoreToRead		;did whole file	fit in buffer?
		bne	WriteIt			;no - so write out buffer

NextFile1	dec	<NumItems		;# of dial items left

		jsr	DrawThermoItems
		jsr	GetNextFile		;get next filename from	catalog
		bcs	WriteIt			;no more files - so write out buffer
		
		stz	<ReadDuplicate
		brl	ReadLoop		;loop until done with all catalogs

;
; stepping stones to quit code
;
Quit0a		brl	Quit0
Quit1a		brl	Quit1
Quit2a		brl	Quit2

;
; '# left' dialog is up
; data and resources have been read
; create new files and write out file contents
;
WriteIt		NAME

		jsr	RestartBuf		;set BufPtr back to start of buffer

		lda	<SavedCatHndl		;set CatHndl to	starting catalog
		sta	<CatHndl
		lda	<SavedCatHndl+2
		sta	<CatHndl+2
		lda	<SavedCatPtr		;set CatPtr to starting	file
		sta	<CatPtr
		lda	<SavedCatPtr+2
		sta	<CatPtr+2
		lda	<SavedCatIndex		;set CatIndex to # of catalogs left
		sta	<CatIndex		;at start

		lda	#C1_DstPathName		;put ptr to DstPathName
		sta	O_NamePtr		;in OPEN params
		sta	OE_NamePtr
		sta	<PathNamePtr		;set up	ptr to DstPathName
		lda	#^C1_DstPathName
		sta	O_NamePtr+2
		sta	OE_NamePtr+2
		sta	<PathNamePtr+2

		lda	#strgWriting		;point to 'Writing: '
		sta	<RWPtr
		lda	#strgWriting>>16
		sta	<RWPtr+2

		jsr	CheckKey		;duplicating, but does user want to cancel?
		bcs	Quit2a			;yes
			
		lda	<WriteDuplicate		;are we	duplicating a file?
		beq	@notDuplicate
		jsr	MakeDestinationName
		
		lda	<MoreToWrite		;has this file been partially written?
		beq	GotDstName
		jsr	DrawNumFiles		;if so, print the filename and # of files left
		jsr	DrawThermoItems		;'cause we can't
		brl	WriteCont

@notDuplicate	lda	<MoreToWrite		;has this file been partially written?
		beq	@noMoreToWrite
		jsr	DrawNumFiles		;if so, print the filename and # of files left
		jsr	DrawThermoItems		;'cause we can't
		brl	WriteCont

@noMoreToWrite	lsr	<Disk2Sub		;copying a disk	to a subdirectory?
		bcc	MakeWriteName		;no
		ldy	#$0E			;yes - so change storage type info for
		lda	#$0D			;volume	name into subdirectory storage
		sta	[<BufPtr],y		;type

;
; loop to here as long as we have a file to write
;
WriteLoop	NAME

		jsr	CheckKey		;does user want	to cancel?
		bcc	MakeWriteName
		brl	Quit2a			;yes
		
MakeWriteName	stz	<LastWriteType
		jsr	MakeFileName
		jsr	CheckSpace		;enough	space in buffer	for file info?
		bcc	GotSpace		;yes
		brl	ReadIt			;no - so done writing out buffer
GotSpace	jsr	CheckDstName		;added 08/03/88 DJB
		bcc	GoodDstName
		jsr	NameErr
		bcs	longQuit2a		;user canceled
		bmi	skipIt			;user wants to skip

GoodDstName	lda	#0			;flag to not append the filename to the dest string - 18-Jan-93 JCM
		jsr	DoMagicRouting		;see if we should route this file specially - 18-Jan-93 JCM
		bcs	doNextFile		;23-Jan-93 JCM - a little error checking, please?

		jsr	MakePathName		;make complete pathname	for the	file
		bcc	GotDstName
		brl	Quit2			;name too long
GotDstName	jsr	GetNumFiles		;get # of files	in cat,	set hi bit
		ldx	#0			;indicate no dialog
		jsr	CheckRAccess		;was file able to be read?
		bcc	okToRead		;yes
		
;;;		dec	<NumFiles		;# of files left - 23-Jan-93 JCM - adding some error checking
doNextFile	dec	<NumFiles		;# of files left - 23-Jan-93 JCM - adding some error checking
		dec	<NumItems		;# of dial items left
		jsr	GetNextFile		;get next filename from	catalog
		bcc	@goContWrite
		
		lda	thermoMax		;don't do anything which would draw the name here, you'll
		ldx	#$FF			;be sorry if you do...
		jsr	DrawThermo
		jsr	DrawNumItems
		brl	CopyDone		;no - so skip it
@goContWrite	brl	contWrite		
		
okToRead	jsr	StorePtr		;store ptr to pathname in buffer
		jsr	SaveFileInfo		;make a	copy of	the file info for later
		jsr	EnableAccess		;enable	all access bits
		jsr	CreateFile		;create	the file
		bcc	CreateOK		;no error during Create
		bmi	longQuit2a		;got error - 'Cancel' selected
skipIt		brl	SkipThisFile		;file already exists, don't delete it

CreateOK	jsr	DrawNumFiles
		jsr	DrawThermoItems
		
		jsr	SkipFileInfo		;inc bufptr past file info
		lda	[<CatPtr]		;is this file a	subdirectory?
		bne	SetBit			;yes - so nothing to write

WriteCont	lda	<LastWriteType
		sta	<IsExtended
		lda	#$0002			; write access only
		jsr	OpenFile		;no - so open the file (both forks)
		bcc	openRsrc
longQuit2a	brl	Quit2a			;got error

openRsrc	lda	#$0002			; write access only
		jsr	OpenResource
		bcs	longQuit2a

		jsl	ProDOS			;start_session
		DC.W	BEGIN_SESSION+C1
		DC.L	session_call

;--------------------------------------------------------

		jsr	SetWriteMark		;set mark if file was partially	written
		bcs	BcsQuit0		;got error  (Quit0 is too far away)
		jsr	SetWriteSize		;get # of bytes	to write
		jsr	SkipSizeInfo		;inc bufptr past size info
		lda	RW_Size			;check if # of bytes to	write is 0
		ora	RW_Size+2
		beq	WriteExtend		;if so skip this write
		jsr	WriteDataFile		;write out the bytes
		bcs	BcsQuit0		;got error
		jsr	GetDtWriteMark		;save mark if file only	partially written
		bcs	BcsQuit0		;got error

WriteExtend	lda	RWE_Size		;check if # of bytes to	write is 0
		ora	RWE_Size+2
		beq	WriteDone		;if so skip this write
		jsr	WriteRsrcFile		;write out the bytes
		bcs	BcsQuit0		;got error
		jsr	GetRsWriteMark		;save mark if file only	partially written
		bcc	WriteDone
BcsQuit0	brl	Quit0			;got error

WriteDone	jsr	CloseFile		;close the file (both forks)
		bcc	incBuf
		brl	Quit2			;got error
incBuf		jsr	IncBufPtr		;inc bufptr past file bytes
		lda	<MoreToWrite		;did the whole file in the buffer?
		beq	SetBit			;yes - so continue
		lda	<IsExtended
		sta	<LastWriteType
		brl	ReadIt			;no - so done writing buffer

SetBit		pea	#0			; JAM 5/19/89 (Fixing BRC #48301)
		jsr	SetFileInfo		;fix up	access bits and	'modified' info
		jsr	SetCopyBit		;set bit in cat	to indicate file copied
NextFile2	dec	<NumFiles		;# of files left
		dec	<NumItems		;# of dial items left
		jsr	GetNextFile		;get next filename from	catalog
		bcs	LastFileSkip
		brl	contWrite

LastFileSkip	lda	thermoMax
		ldx	#$FF
		jsr	DrawThermo

		lda	<NumFiles
		ldy	#0
		jsr	DrawMsg			;update	box one last time
		brl	CopyDone

SkipThisFile	NAME

		sec
		lda	<NumFiles		;# of files left to copy
		sbc	<FilesInCat		;# of files to skip
		sta	<NumFiles

		lda	<FilesInCat		;# of files to skip
		pha
		sec
		lda	<NumItems		;# of dial items left to display
		sbc	1,s			;# of items to skip
		sta	<NumItems
		pla

		lda	<FilesInCat		
		bne	@hadFiles
		dec	<NumItems		;# of dial items left
		dec	<NumItems		;*2 because we both read and wrote
		dec	<NumFiles
@hadFiles

		lda	#0			;zero out offset in case it's a subdir
		sta	[<CatPtr]		;so it will be skipped
		jsr	GetNextFile		;skip the file
		bcc	SkipLoop
		bcs	LastFileSkip		;no more files to copy so we're done

SkipLoop	jsr	CheckSpace		;enough	space in buffer	for file info?
		bcs	SkipDone		;no - so done skipping files
		ldx	#0			;indicate no dialog
		jsr	CheckRAccess		;was file able to be read?
		bcs	SkipCont		;no
		
		ldy	#$0E
		lda	[<BufPtr],y		;get storage type of file
		pha				;and save
		jsr	SkipFileInfo		;inc bufptr past file info
		pla				;retrieve storage type
		cmp	#$0D			;is this file a	subdirectory?
		beq	SkipCont		;yes - so nothing to skip over

		stz	<isExtended		;patch to make sure that we skip extended files
		cmp	#5			;correctly -- AEN, 1/30/92
		bne	@notExtended
		inc	<isExtended
@notExtended

		jsr	SetWriteSize		;get # of bytes	to skip	over in	buffer
		jsr	SkipSizeInfo		;inc bufptr past size info
		jsr	IncBufPtr		;skip over bytes
		lda	<MoreToWrite		;any more in buffer?
		bne	SkipDone		;yes - so done skipping	files
SkipCont	lda	<FilesInCat
		beq	contWrite
		dec	<FilesInCat		;# of files left to skip
		bne	SkipLoop		;loop until done skipping files
contWrite	stz	<WriteDuplicate		;next time around say we're not duplicating
		brl	WriteLoop		;(even though we are)
				
SkipDone	stz	<MoreToWrite		;clear out flag
		stz	<MoreToRead		;clear out flag
		stz	<DataReadMark		;clear out ReadMarks so SetReadSize
		stz	<DataReadMark+2		;works correctly for next file
		stz	<RsrcReadMark
		stz	<RsrcReadMark+2
		lda	<OrigSrcLen		;restore original length of SrcPathName
		sta	C1_SrcPathName		;in case we're in the middle of a folder

		stz	<WriteDuplicate		;next time around say we're not duplicating
		stz	<ReadDuplicate
		brl	ReadIt

;
; cancel occurred during a write, so close the file and delete it
;
Quit0		jsr	CloseFile		;close currently open file
;		bcs	QuitDone		;got error
		pea	#0			; JAM (BRC #48301)
		jsr	DestroyFile		;delete	the file
		bra	QuitDone

;cancel	occurred during	a read,	so close the file

Quit1		jsr	CloseFile		;close currently open file

;if there is a partially written file, delete it

Quit2		lda	<MoreToWrite		;is there a partially written file?
		beq	QuitDone		;no
		lda	#C1_DstPathName		;yes - so create ptr to	name of	file
		sta	<PathNamePtr
		lda	#^C1_DstPathName
		sta	<PathNamePtr+2
		pea	#0			; JAM 5/19/89 (BRC #48301)
		jsr	DestroyFile		;delete	the file

QuitDone	lda	#$FFFF
		sta	<Error			;return	an error
		bra	CopyDone2

;done copying all files, finish	up

CopyDone	stz	<Error			;don't return an error

		pea	$8005			;task accomplished
		_SysBeep2

CopyDone2	jsl	ProDOS			;stop_session, added for hack
		DC.W	END_SESSION+C1		;05/17/88 DJB
		DC.L	session_call

		PushZLong <BufHndl		;get rid of buffer
		jsl DisposeHandleGlue

		stz	<WhichMsg		;clear out msg number
		stz	<Disk2Sub		;clear out flags
		
		stz	<ReadDuplicate
		stz	<WriteDuplicate
		lda	<RetAdrs
		pha
		rts

;
; Zero out the counters for file copying each time a single file is copied
;
ZeroSoFar
		stz	<SoFarFlag		;clear the 'bytes read from this file so far' flag

		stz	<DataForkYet
		stz	<DataForkYet+2
		stz	<RsrcForkYet
		stz	<RsrcForkYet+2
		
		stz	<DataReadSize
		stz	<DataReadSize+2
		stz	<RsrcReadSize
		stz	<RsrcReadSize+2
		rts
		
;
; DrawThermoItems
;.....................................................................

DrawThermoItems
		lda	ThermoMax
		sec
		sbc	<NumItems
		ldx	#0
		brl	DrawThermo

;
; DrawNumFiles
;.....................................................................

DrawNumFiles
		lda	<NumFiles
		ldy	#0			
		brl	DrawMsg			;update	'number left' msg

;---------------------------------------------------------------
; CheckSpace
;---------------------------------------------------------------

CheckSpace	lda	#0
		cmp	<BytesLeft+2		;is there enough space for another
		bne	CSRet			;file info block and size info?
		lda	#SFISize+SizeOfSizeInfo
		cmp	<BytesLeft
CSRet		rts				;carry clear if	enough room

;---------------------------------------------------------------
; StorePtr
;---------------------------------------------------------------

StorePtr
		lda	#12			;setup pcount for Get_file_info in buffer
		sta	[<BufPtr]

		ldy	#2
		lda	<PathNamePtr		;store PathNamePtr in buffer
		sta	[<BufPtr],y
		iny
		iny
		lda	<PathNamePtr+2
		sta	[<BufPtr],y

		lda	<BufPtr
		clc
		adc	#FI_OptionList-FI_Params	;offset of option_list ptr
		ldy	#FI_OptionListPtr-FI_Params 	;andy, 11/21/90
		sta	[<BufPtr],y
		lda	<BufPtr+2
		adc	#0
		iny
		iny
		sta	[<BufPtr],y

		tya
		clc				;re-init our buffer's length
		adc	#18			;or, init it in the first place
		tay
		lda	#64
		sta	[<BufPtr],y
		rts

;---------------------------------------------------------------
; CheckRAccess
;---------------------------------------------------------------

CheckRAccess
		ldy	#6			;offset	to access field
		lda	[<BufPtr],y		;get access bits for file
		ror	a			;is read access	allowed?
		bcc	ReadErr			;no
		clc				;yes - so indicate no error
		rts

ReadErr		phx				;save dialog instructions
		jsr	SkipFileInfo		;inc bufptr past file info
		plx				;put up	dialog?
		beq	CRARet			;no
		lda	#$8002			;Finder's read access error
		jsr	ProDosErr		;handle	the error
CRARet		sec				;indicate error
		rts

;---------------------------------------------------------------
; EnableAccess
;---------------------------------------------------------------

EnableAccess
		ldy	#6
		lda	#$C3			;enable	all access bits
		sta	[<BufPtr],y
		rts

;---------------------------------------------------------------
; GetNumFiles
;---------------------------------------------------------------

GetNumFiles
		ldy	#2			;if this is the	first entry in the cat
		lda	[<CatPtr],y		;the flag word contains	the # of files
		sta	<FilesInCat		;in the	catalog
		lda	#$8000			;set hi	bit to indicate	flag is	valid
		sta	[<CatPtr],y		;clear other bits since	used later
		rts

;---------------------------------------------------------------
; SaveFileInfo
;---------------------------------------------------------------

SaveFileInfo	NAME

		ldy	#SFISize-2
SFILoop		lda	[<BufPtr],y		;copy file info	into FI_Params
		sta	FI_Params,y
		dey
		dey
		bpl	SFILoop

		lda	#FI_OptionList		;point to our option_list within the
		sta	FI_OptionListPtr	;fixed block of memory instead of pointing
		lda	#FI_OptionList>>16	;to the buffer... just in case
		sta	FI_OptionListPtr+2	;andy, 11/21/90

;
; Determine if the file we're writing is extended
;
		stz	<LastWriteType
		ldy	#$0E			;get storage type
		lda	[<BufPtr],y
		cmp	#$0005			;is it an extended file?
		bne	endSFE			;no
		inc	<LastWriteType

endSFE		rts

;---------------------------------------------------------------
; GetReadMark		(modified for extended files - DJB)
;---------------------------------------------------------------

GetDataReadMark
		clc				;indicate no error
		stz	<DataReadMark		;clear out read	mark
		stz	<DataReadMark+2
		lda	<MoreToRead		;was file only partially read?
		and	#dataFork
		beq	GRMRet			;no
		lda	#0
		jsr	GetMark			;yes - so get data file mark
		lda	GM_Position
		sta	<DataReadMark		;and save for later
		lda	GM_Position+2
		sta	<DataReadMark+2
GRMRet		rts				;carry indicates error from GetMark call

GetRsrcReadMark
		clc				;indicate no error
		stz	<RsrcReadMark		;clear out read	mark
		stz	<RsrcReadMark+2
		lda	<MoreToRead		;was file only partially read?
		and	#resourceFork
		beq	GRMRet2			;no
		lda	#1
		jsr	GetMark			;yes - so get resource file mark
		lda	GM_Position
		sta	<RsrcReadMark		;and save for later
		lda	GM_Position+2
		sta	<RsrcReadMark+2
GRMRet2		rts

;---------------------------------------------------------------
; SetReadMark		(Modified to work with extended files - DJB)
;---------------------------------------------------------------

SetReadMark
		clc				;indicate no error
		lda	<MoreToRead		;was data file partially read?
		and	#dataFork
		beq	SRMCont			;no
		lda	<DataReadMark		;yes - so get file mark	from previous
		sta	SM_Displace		;read
		lda	<DataReadMark+2
		sta	SM_Displace+2
		lda	#0
		jsr	SetMark			;and set the file mark
		bcs	SRMRet			;an error occured

SRMCont		lda	<MoreToRead		;was resource file partially read?
		and	#resourceFork
		beq	SRMRet			;no
		lda	<RsrcReadMark		;yes - so get file mark	from previous
		sta	SM_Displace		;read
		lda	<RsrcReadMark+2
		sta	SM_Displace+2
		lda	#1
		jsr	SetMark			;and set the file mark
SRMRet		rts				;carry indicates error from SetMark call


;---------------------------------------------------------------
; GetDtWriteMark	(modified for extended files - DJB)
;---------------------------------------------------------------

GetDtWriteMark
		clc				;indicate no error
		stz	<DataWriteMark		;clear out file	mark
		stz	<DataWriteMark+2
		lda	<MoreToWrite		;was file only partially written?
		and	#dataFork
		beq	GWMRet			;no
		lda	#0
		jsr	GetMark			;yes - so get file mark
		lda	GM_Position
		sta	<DataWriteMark		;and save for later
		lda	GM_Position+2
		sta	<DataWriteMark+2
GWMRet		rts				;carry indicates error from GetMark call

GetRsWriteMark
		clc				;indicate no error
		stz	<RsrcWriteMark		;clear out file	mark
		stz	<RsrcWriteMark+2
		lda	<MoreToWrite		;was file only partially written?
		and	#resourceFork
		beq	GWMRet			;no
		lda	#1
		jsr	GetMark			;yes - so get file mark
		lda	GM_Position
		sta	<RsrcWriteMark		;and save for later
		lda	GM_Position+2
		sta	<RsrcWriteMark+2
		rts				;carry indicates error from GetMark call


;---------------------------------------------------------------
; SetWriteMark		(modified for extended files - DJB)
;---------------------------------------------------------------

SetWriteMark
		clc				;indicate no error
		lda	<MoreToWrite		;was data fork partially written?
		and	#dataFork
		beq	SWMCont			;no
		lda	<DataWriteMark		;yes - so get file mark	from previous
		sta	SM_Displace		;write
		lda	<DataWriteMark+2
		sta	SM_Displace+2
		lda	#0
		jsr	SetMark			;and set the file mark
		bcs	SWMRet			;error

SWMCont		lda	<MoreToWrite		;was resource fork partially written?
		and	#resourceFork
		beq	SWMRet			;no
		lda	<RsrcWriteMark		;yes - so get file mark	from previous
		sta	SM_Displace		;write
		lda	<RsrcWriteMark+2
		sta	SM_Displace+2
		lda	#1
		jsr	SetMark			;and set the file mark

SWMRet		rts				;carry indicates error from SetMark call


;---------------------------------------------------------------
; SetReadSize		(modified for extended files - DJB)
;---------------------------------------------------------------

SetReadSize
		stz	RWE_Size		;# of resource bytes to read
		stz	RWE_Size+2
		stz	RW_Size			;# of data bytes to read
		stz	RW_Size+2

		sec
		lda	<BytesLeft		;subtract bytes used for size info
		sbc	#sizeOfSizeInfo		;to get	# of bytes left	in buffer
		sta	<BytesLeft
		lda	<BytesLeft+2
		sbc	#0
		sta	<BytesLeft+2

		lda	<DataForkYet
		ora	<DataForkYet+2
		beq	SRSResourceRead

		sec
		lda	<DataForkYet		;calculate # of	bytes left to read
		sbc	<DataReadSize		;in data fork
		sta	<DataForkYet
		lda	<DataForkYet+2
		sbc	<DataReadSize+2
		sta	<DataForkYet+2

		lda	<DataForkYet
		ora	<DataForkYet+2
		beq	SRSResourceRead

		lda	<BytesLeft		;enough	bytes left in buffer?
		cmp	<DataForkYet
		lda	<BytesLeft+2
		sbc	<DataForkYet+2
		bcs	Enough			;BytesLeft ³ O_DataEOF

		lda	#dataFork
		tsb	<MoreToRead		;set 'partial read' flag
		lda	<BytesLeft		;not enough space in buffer so only
		sta	RW_Size			;read #	of bytes which will fit
		sta	<DataReadSize
		lda	<BytesLeft+2
		sta	RW_Size+2
		sta	<DataReadSize+2

		lda	<IsExtended		;an extended file ?
		beq	@goSRSDone		;no
		lda	#resourceFork
		tsb	<MoreToRead		;set 'partial read' flag
@goSRSDone	brl	SRSDone

Enough		lda	#dataFork
		trb	<MoreToRead
		lda	<DataForkYet		;enough	space to read entire remainder of data fork
		sta	RW_Size			;# of bytes to read
		sta	<DataReadSize
		lda	<DataForkYet+2
		sta	RW_Size+2
		sta	<DataReadSize+2

SRSResourceRead	lda	<IsExtended		;an extended file ?
		beq	SRSDone			;no

		lda	<RsrcForkYet
		ora	<RsrcForkYet+2
		beq	SRSDone

		sec
		lda	<RsrcForkYet		;calculate # of	bytes left to read
		sbc	<RsrcReadSize		;in resource fork
		sta	<RsrcForkYet
		lda	<RsrcForkYet+2
		sbc	<RsrcReadSize+2
		sta	<RsrcForkYet+2

		lda	<RsrcForkYet
		ora	<RsrcForkYet+2
		beq	SRSDone

		sec
		lda	<BytesLeft		;get real bytes-left
		sbc	RW_Size
		sta	<localTemp
		lda	<BytesLeft+2
		sbc	RW_Size+2
		sta	<localTemp+2

		lda	<localTemp		;enough	bytes left in buffer?
		cmp	<RsrcForkYet
		lda	<localTemp+2
		sbc	<RsrcForkYet+2
		bcs	Enough2			;localTemp ³ O_RsrcEOF
		lda	#resourceFork
		tsb	<MoreToRead		;set 'partial read' flag
		lda	<localTemp		;not enough space in buffer so only
		sta	RWE_Size		;read #	of bytes which will fit
		sta	<RsrcReadSize
		lda	<localTemp+2
		sta	RWE_Size+2
		sta	<RsrcReadSize+2
		bra	SRSDone
		
Enough2		lda	#resourceFork
		trb	<MoreToRead
		lda	<RsrcForkYet		;enough	space to read entire remainder of resource fork
		sta	RWE_Size		;# of bytes to read
		sta	<RsrcReadSize
		lda	<RsrcForkYet+2
		sta	RWE_Size+2
		sta	<RsrcReadSize+2

SRSDone		lda	RW_Size
		sta	[<BufPtr]		;save lo word of data 'size' in buffer
		ldy	#2
		lda	RW_Size+2
		sta	[<BufPtr],y		;save hi word of data 'size' in buffer
		iny
		iny
		lda	<MoreToRead		;get 'partial read' flag
		sta	[<BufPtr],y		;and save in buffer
		iny
		iny
		lda	RWE_Size
		sta	[<BufPtr],y		;save lo word of resource 'size' in buffer
		iny
		iny
		lda	RWE_Size+2
		sta	[<BufPtr],y		;save hi word of resource 'size' in buffer

		clc				;indicate no error
		rts

;---------------------------------------------------------------
; SetWriteSize		(modified for extended files - DJB)
;---------------------------------------------------------------

SetWriteSize	NAME

		sec
		lda	<BytesLeft		;subtract bytes used for size info
		sbc	#sizeOfSizeInfo		;to get	# of bytes left	in buffer
		sta	<BytesLeft		;(BytesLeft is used later)
		lda	<BytesLeft+2
		sbc	#0
		sta	<BytesLeft+2

		lda	[<BufPtr]		;get data 'size' out of buffer
		sta	RW_Size			;and set up READ/WRITE param block
		ldy	#2
		lda	[<BufPtr],y
		sta	RW_Size+2
		iny
		iny
		lda	[<BufPtr],y		;get 'partial read' flag out of	buffer
		sta	<MoreToWrite		;and set up 'partial write' flag
		iny
		iny
		lda	[<BufPtr],y		;get resource 'size' out of buffer
		sta	RWE_Size		;and set up READ/WRITE param block
		iny
		iny
		lda	[<BufPtr],y
		sta	RWE_Size+2

		rts

;---------------------------------------------------------------
; SkipFileInfo
;---------------------------------------------------------------

SkipFileInfo	NAME

		clc				;inc bufptr past file info
		lda	<BufPtr
		adc	#SFISize
		sta	<BufPtr
		lda	<BufPtr+2
		adc	#0
		sta	<BufPtr+2

		sec				;subtract # of bytes used for file info
		lda	<BytesLeft		;to get	# of bytes left	in buffer
		sbc	#SFISize
		sta	<BytesLeft
		lda	<BytesLeft+2
		sbc	#0
		sta	<BytesLeft+2
		rts

;---------------------------------------------------------------
; SkipSizeInfo		(modified for extended files - DJB)
;---------------------------------------------------------------

SkipSizeInfo	NAME

		clc				;inc bufptr past size info
		lda	<BufPtr
		adc	#sizeOfSizeInfo
		sta	<BufPtr
		sta	RW_BufPtr		;save new bufptr in READ/WRITE
		lda	<BufPtr+2		;parameter block
		adc	#0
		sta	<BufPtr+2
		sta	RW_BufPtr+2

		lda	<IsExtended		;an extended file ?
		beq	SSIRet			;no
		clc				;inc bufptr past data fork data
		lda	<BufPtr
		adc	RW_Size
		sta	RWE_BufPtr		;save new bufptr in extend READ/WRITE
		lda	<BufPtr+2		;parameter block
		adc	RW_Size+2
		sta	RWE_BufPtr+2

SSIRet		rts

;---------------------------------------------------------------
; IncBufPtr		(modified for extended files - DJB)
;---------------------------------------------------------------

IncBufPtr	NAME

		clc				;inc bufptr past file bytes
		lda	<BufPtr
		adc	RW_Size
		sta	<BufPtr
		lda	<BufPtr+2
		adc	RW_Size+2
		sta	<BufPtr+2

		sec				;subtract # of bytes used for file
		lda	<BytesLeft		;to get	# of bytes left	in buffer
		sbc	RW_Size
		sta	<BytesLeft
		lda	<BytesLeft+2
		sbc	RW_Size+2
		sta	<BytesLeft+2

		lda	<IsExtended		;an extended file ?
		beq	IBPRet			;no
		clc				;inc bufptr past file bytes
		lda	<BufPtr
		adc	RWE_Size
		sta	<BufPtr
		lda	<BufPtr+2
		adc	RWE_Size+2
		sta	<BufPtr+2

		sec				;subtract # of bytes used for file
		lda	<BytesLeft		;to get	# of bytes left	in buffer
		sbc	RWE_Size
		sta	<BytesLeft
		lda	<BytesLeft+2
		sbc	RWE_Size+2
		sta	<BytesLeft+2
IBPRet		rts

;---------------------------------------------------------------
; RestartBuf
;---------------------------------------------------------------

RestartBuf	NAME

		lda	<BufSize		;reset # of bytes left in buffer
		sta	<BytesLeft
		lda	<BufSize+2
		sta	<BytesLeft+2

		lda	[<BufHndl]		;reset bufptr to start of buffer
		sta	<BufPtr
		ldy	#2
		lda	[<BufHndl],y
		sta	<BufPtr+2
		rts

;---------------------------------------------------------------
; SetCopyBit
;---------------------------------------------------------------

SetCopyBit	NAME

		ldy	#2
		lda	[<CatPtr],y		;get flag word from first cat entry
		ora	#ICCOPY			;set bit in flag word to indicate that
		sta	[<CatPtr],y		;this file was copied successfully
		rts

		ENDP


****************************************************************
*
* GetNextFile
*
****************************************************************

GetNextFile	PROCNAME

Offset		equ	localTemp

		lda	[<CatPtr]		;is this a subdirectory	entry?
		bne	SubDir			;yes
EntryDone	jsr	RemoveName		;remove	file name
		jsr	IncCatPtr		;go on to next cat entry
		bra	CkSubDirEnd		;chk type of first entry: end of subdir?

;-------------------------------------------------------------------------------

SubDir		sta	<Offset			;save offset to	subdir's content entries
		jsr	AddSlash		;add separator to pathname
		jsr	SetCatPtr		;skip to entries for subdir's contents
CkSubDirEnd	lda	[<CatPtr]		;get type of first entry
		cmp	#$FFFF			;at end	of subdirectory?
		bne	returnOK		;bra if not: indicate no error, return

;-------------------------------------------------------------------------------

DirEnd		ldy	#2
		lda	[<CatPtr],y		;get next word from cat	entry
		sta	<Offset			;and save
		cmp	#$FFFF			;at end	of catalog?
		beq	GetNextCat		;yes - so go on	to next	catalog
		jsr	RemoveSlash		;remove	separator from pathname
		jsr	SetCatPtr		;go back to subdirectory entry
		lda	<DeleteFlag		;are we	deleting files?
		beq	EntryDone		;no - so done with subdirectory	entry
		lda	#0			;yes - so still	have to	use subdir entry
		sta	[<CatPtr]		;zero out subdirectory offset
		jsr	RemoveName		;remove	name of	subdirectory
returnOK	clc				;indicate no error
		rts

;-------------------------------------------------------------------------------
; GetNextCat
;
; Called with handles to catalogs on stack and index to	one we need to use
; in CatIndex.
;
; Returns with requested handle	in CatHndl, locked and derefed into CatPtr.
; CatIndex is decremented by 1.
;
; Stack	on input looks like:
;	   ...
;	   Handle 2 (4 bytes)
;	   Handle 1 (4 bytes)
;	   RTS (2 bytes)
;   TOS	==>
;-------------------------------------------------------------------------------

		ENTRY	GetNextCat
GetNextCat	NAME

		lda	<CatIndex		;any more catalogs to handle?
		beq	NoMoreCats		;no

		tsc				;get stack pointer in A
		inc	a			;make it point to first	handle on stack
		inc	a
		inc	a
		pha				;save pointer to first handle on stack

		lda	<CatIndex		;get index into	catalogs
		dec	a			;and make into a zero-based index
		asl	a			;mult by 4 to index into correct handle
		asl	a

		clc				;add to	value on stack
		adc	1,s			;to create offset to requested handle
		tax				;put in	X
		pla				;clean up stack

		lda	>0,x			;get requested handle from stack
		sta	<CatHndl		;and save
		lda	>2,x
		sta	<CatHndl+2

		jsr	LockCat			;lock and dereference cat handle
		dec	<CatIndex
		clc				;indicate no error
		rts

NoMoreCats	sec				;indicate error
		rts


;---------------------------------------------------------------
; IncCatPtr
;    to get next cat entry:
;      CatPtr = CatPtr + name + lenbyte + 4 info bytes
;---------------------------------------------------------------

		EXPORT	IncCatPtr
IncCatPtr
		ldy	#4
		lda	[<CatPtr],y		;get length of name from cat entry
		and	#$007F			;mask off hi byte and high bit (translated bit)
		clc
		adc	#5			;add length byte + 4 info bytes
		clc
		adc	<CatPtr			;add to	CatPtr to create ptr to
		sta	<CatPtr			;next cat entry
		lda	<CatPtr+2
		adc	#0
		sta	<CatPtr+2
		rts

;---------------------------------------------------------------
; SetCatPtr
;---------------------------------------------------------------

SetCatPtr
		clc
		lda	[<CatHndl]		;get ptr to start of catalog
		adc	<Offset			;and add offset	to create ptr
		sta	<CatPtr			;to correct cat	entry
		ldy	#2
		lda	[<CatHndl],y
		adc	#0
		sta	<CatPtr+2
		rts

;---------------------------------------------------------------
; RemoveName
;   remove name in [<CatPtr],4 or TranslatedName from PathNamePtr
;---------------------------------------------------------------

		EXPORT	RemoveName
RemoveName	NAME


;
; Sigh, just a historical note: when Jim scans backwards for a separator, he was doing it in
; complete 8-bit mode for all registers.  This is bad if the Finder's using wStrings.
; Fixed to use wStrings properly. -- andy, 12/1/91
;

;
;  JAM 5/31/89 (Fixing BRC #50015)
;  The old version of this routine, shown below under OLD CODE,
;  used lengths of current file names to prune the accumulated pathname
;  back when necessary to proceed on to another file/directory name during
;  a multiple file-processing operation.  This method became invalid when we
;  introduced the notion of filename translation (especially manual translation
;  on the fly!), because the length of the original and translated names would
;  sometimes differ (or otherwise get out of sync).  To fix BRC #46451, I
;  changed specialCase (the case when we are allegedly mopping up after a
;  translation) to scan backward for a separator, instead of relying on
;  original/target string lengths to remain in sync.  Now, to fix BRC #50015,
;  in which translation is proposed but REFUSED, it seems wise to use the same
;  method of pruning the accumulated pathname.  To guard against any other
;  hidden gotchas like this, I am eliminating all the original code entirely,
;  and ALL cases requiring RemoveName will be served by the backscan for separator.
;

;
;   The old version of this routine used the length of
;   TranslatedName, which is an erroneous value when we are trying to back up one
;   subdirectory level.  In this specialCase, we scan backward to get to a
;   SEPARATOR.
;
; * * * * * * * * * * * * * OLD CODE
; * RemoveName
; *		ldy	#4
; *		lda	[<CatPtr],y		;check length of name to be removed
; *		bmi	specialCase		;use TranslatedName instead! -DJB
; *		sec
; *		lda	[<PathNamePtr]		;get length of pathname
; *		ldy	#4
; *		sbc	[<CatPtr],y		;subtract length of name to be removed
; *		sta	[<PathNamePtr]		;and store as new length of pathname
; *		bra	rnEND
; * specialCase
; *		lda	[<PathNamePtr]		;get length of pathname
; *		sec
; *		sbc	TranslatedName		;subtract length of name to be removed
; *		sta	[<PathNamePtr]		;and store as new length of pathname
; *rnEND	rts
; * * * * * * * * * * * * * END OLD CODE
;

;
; --- New code starts here -----------------------------------------------------------
;
		lda	[<PathNamePtr]		;get length of pathname
		tay				;prepare to use it as an index
		iny				;to compensate for length WORD

		SEP 	#$20
		LONGA	OFF

@loop		cpy	#2			;first char index of PathName
		bcc	@done
		lda	[<PathNamePtr],y	;get the current char
		cmp	#SEPARATOR		;is it my target?
		beq	@done			;yep ... my work is done
		dey				;nope
		bra	@loop			

@done		REP	#$20
		LONGA	ON
		
		dey				;uncompensate for length WORD
		tya				;adjust the length
		sta	[<PathNamePtr]		
		rts

;---------------------------------------------------------------
; AddSlash
;---------------------------------------------------------------

		EXPORT	AddSlash
AddSlash
		lda	[<PathNamePtr]
		tay
		iny
		lda	[<PathNamePtr],y
		and	#$00FF
		cmp	#SEPARATOR
		beq	@doneAddSep

		tya
		sta	[<PathNamePtr]
		lda	#SEPARATOR		;add separator to end of pathname
		iny
		sta	[<PathNamePtr],y
@doneAddSep	rts

;---------------------------------------------------------------
; RemoveSlash
;---------------------------------------------------------------

		EXPORT	RemoveSlash
RemoveSlash
		lda	[<PathNamePtr]		;remove	separator from end of pathname
		dec	a
		sta	[<PathNamePtr]
		rts

;---------------------------------------------------------------
; LockCat
;   lock and dereference cat handle
;---------------------------------------------------------------

LockCat
		ldy	#4
		lda	[<CatHndl],y
		ora	#$8000			;set locked bit	in attribute word
		sta	[<CatHndl],y

		lda	[<CatHndl]		;dereference handle into ptr
		sta	<CatPtr
		ldy	#2
		lda	[<CatHndl],y
		sta	<CatPtr+2
		rts

		ENDP

****************************************************************
*
* GetBuffer
*
****************************************************************

GetBuffer	PROCNAME

		pha
		pha
		pei	<NumFiles		;first, try to allocate enough memory to hold
		pea	SizeOfSizeInfo+SFISize+1 ;the number of files * extra size information
		_Multiply
		pla
		sta	<BufSize
		pla
		sta	<BufSize+2
		
		lda	<TotalEOF
		clc
		adc	<BufSize
		sta	<BufSize
		lda	<TotalEOF+2
		adc	<BufSize+2
		sta	<BufSize+2
		
		jsr	AllocateMem		; allocate it
		sta	<BufHndl		; save handle
		stx	<BufHndl+2
		bcc	@freeCheck	

;
; if we couldn't get enough to copy all the files in one pass, settle for grabbing MaxBlock
; (if possible)
;
		pha				; space for result
		pha
		_MaxBlock			; get size of largest memory block
		pla
		and	#$FE00			; allign to 512 byte boundry - DJB
		sta	<BufSize
		pla
		sta	<BufSize+2

		jsr	AllocateMem		; allocate it
		bcs	@error			; got error
		sta	<BufHndl		; save handle
		stx	<BufHndl+2

;
; Check if there is at least 32K left
;
@freeCheck	pha				; space for result
		pha
		_RealFreeMem			; get amount of RAM left
		pla
		cmp	#$8000
		pla
		sbc	#$0000
		bcs	@ok			; maxBlock ³ $4000 (32K)

;
; Otherwise, give some back
;
		PushLong <BufHndl		; give it back
		jsl DisposeHandleGlue

		sec
		lda	<BufSize
		sbc	#$4000			; subtract 16K; 3K will be used for
		sta	<BufSize		;  deleting duplicate subdirectories
		lda	<BufSize+2		;  and the rest for GSOS cushion.
		sbc	#0
		sta	<BufSize+2

		jsr	AllocateMem		; allocate memory
		bcs	@error			; got error
		sta	<BufHndl		; save handle
		stx	<BufHndl+2

;
; Now it is safe to use our memory
;
@ok		lda	[<BufHndl]		;dereference handle
		sta	<BufPtr
		ldy	#2
		lda	[<BufHndl],y
		sta	<BufPtr+2

		clc				;indicate no error
@error		rts

		ENDP

****************************************************************
*
* AllocateMem
*
****************************************************************

AllocateMem	PROC

		ldy	#0
		phy				;space for result
		phy
		PushZLong <BufSize		;size of buffer	in bytes
		PushZWord <ProgID		;ID
		PushWord #$4000			;fixed and unpurgeable
		phy				;loc not important
		phy
		_NewHandle			;allocate space
		pla				;lo word of handle
		plx				;hi word of handle
		rts

		ENDP

****************************************************************
*
* CallBack -- our callback routine for xCatalog
*
****************************************************************

CallBack	PROC

		IMPORT	DrawNumItems 
		
		phb
		phk
		plb
		phd
		
		lda	ZeroPage
		tcd
		
		stx	<CallBackStructPtr
		sty	<CallBackStructPtr+2
		
		lda	CopyWindowPtr+1		;if there's no window, don't update the count
		beq	@noWindow
		
		lda	<NumFiles		;used to be [<CallBackStructPtr]
		clc
		adc	[<CallBackStructPtr]
		ldy	#0
		jsr	DrawNumItems
		
@noWindow	pld
		plb
		rtl

		ENDP

****************************************************************
*
* CatalogSrc
*
****************************************************************

CatalogSrc	PROCNAME

RetAdrs		equ	localTemp

		pla				;get return address
		sta	<RetAdrs		;and save
		
		stz	<CatalogEOF
		stz	<CatalogEOF+2

		pha				;space for fst result
		
		pha				;space for file's eof result
		pha
		
		pha				;space for handle result
		pha
		
		pha				;space for integer result
		pha				;space for integer result

		pushlong #CallBack
		pushlong #C1_SrcPathName	;ptr to	pathname
		phx				;set up	by calling routine
		ldx	#xCatalog
		jsl	MiscEntry		;get catalog
		tay				; save error code JAM 5/18/89 (BRC #48728)

		pla	
		sta	<SrcFileSysID		;save the source file system
		
		pla
		sta	<CatalogEOF
		pla
		sta	<CatalogEOF+2
		
		plx				;# of locked files
		pla				;# of files in catalog
		bcs	CatErr			;Catalog routine got an	error

Done		pei	<RetAdrs
		rts

CatErr		pla				;clean up stack
		pla
		bra	Done

		ENDP
		
****************************************************************
*
* MakePathName
*
****************************************************************

MakePathName	PROC

		IMPORT	doAlertWindow

		ldy	#4
		lda	[<CatPtr],y		;get length of name in cat entry
		and	#$0080
		bne	specialCase		;use TranslatedName instead! -DJB

		lda	[<CatPtr],y		;get length of name in cat entry
		and	#$00FF
		tay				;and save
		clc
		adc	[<PathNamePtr]		;add to	length of current pathname
		cmp	#MaxPathLen		;is name too long?
		bcs	Err			;yes
		sta	[<PathNamePtr]		;save new length
		tax
		inx				;account for length word
		iny				;add 4 to length of name in cat	entry
		iny				;in order to skip over the 4 info bytes
		iny
		iny

		sep	#$20
		LONGA	OFF

@loop		lda	[<CatPtr],y		;copy name into	pathname string
		phy
		txy
		sta	[<PathNamePtr],y
		ply
		dex
		dey
		cpy	#4			;done with name?
		bne	@loop			;no

		rep	#$20			;go back to 16-bit mode
		LONGA	ON
		clc				;indicate no error
		rts

specialCase	lda	TranslatedName		;get length of "new" filename
		and	#$00ff
		tay				;and save
		clc
		adc	[<PathNamePtr]		;add to	length of current pathname
		cmp	#MaxPathLen		;is name too long?
		bcs	Err			;yes
		sta	[<PathNamePtr]		;save new length
		tax
		inx				;account for length word

		sep	#$20
		LONGA	OFF

@sLoop		lda	TranslatedName,y	;copy name into	pathname string
		phy
		txy
		sta	[<PathNamePtr],y
		ply
		dex
		dey
		bne	@sLoop

		rep	#$20			;go back to 16-bit mode
		LONGA	ON

		clc				;indicate no error
		rts

;-------------------------------------------------------------------------------

Err		clc
		lda	<CatPtr			;create	ptr to name in catalog
		adc	#4			;for dialog to use
		sta	<OtherPtr
		lda	<CatPtr+2
		adc	#0
		sta	<OtherPtr+2

		lda	#rasPathTooLong
		jsl	doAlertWindow
		sec
		rts

		ENDP

****************************************************************
*
* MakeSrcName:	append file name to C1_SrcPathName
*
****************************************************************

MakeSrcName	PROC

		IMPORT	doAlertWindow

		lda	<srcPathLen
		sta	C1_SrcPathName

		lda	INamePtr+2		;points to file name
		pha
		lda	INamePtr
		pha
		PushLong #C1_SrcPathName
		jsl	PathAddName
		bcs	Err			;pathname length error

		rts				;return with carry clear

;-------------------------------------------------------------------------------

Err		lda	<SrcPathLen		;set length of SrcPathName
		sta	C1_SrcPathName

		lda	#C1_SrcPathName		;create	ptr to SrcPathName for dialog
		sta	<PathNamePtr
		lda	#^C1_SrcPathName
		sta	<PathNamePtr+2
		lda	<INamePtr		;create	ptr to icon name for dialog
		sta	<OtherPtr		;to use
		lda	<INamePtr+2
		sta	<OtherPtr+2

		lda	#rasPathTooLong
		jsl	doAlertWindow
		sec
		rts

		ENDP


****************************************************************
*
* MakeFileName		
*
****************************************************************

MakeFileName	PROC

		lda	<CatPtr
		clc
		adc	#4
		sta	<FileNamePtr
		lda	<CatPtr+2
		adc	#0
		sta	<FileNamePtr+2
		clc				;indicate no error
		rts

		ENDP

****************************************************************
*
* MakeDestinationName		
*
****************************************************************

MakeDestinationName PROC
		IMPORT 	PathGetName
		IMPORT	c1_dest
		import	c1_DstPathName
		import	WToPString
		import	filename

		pushlong #c1_dest
		pushlong #c1_DstPathName
		jsl	PathGetName

		lda	#Filename
		sta	<FileNamePtr
		lda	#Filename>>16
		sta	<FileNamePtr+2

		pushlong #c1_dest
		pushZLong <FileNamePtr
		jsl	WToPString
		rts
		ENDP
		
****************************************************************
*
* MakeDstName
*
****************************************************************

MakeDstName	PROC

		IMPORT	doAlertWindow

		lda	<dstPathLen
		sta	C1_DstPathName

		lda	INamePtr+2
		pha
		lda	INamePtr
		pha
		PushLong #C1_DstPathName
		jsl	PathAddName
		bcs	Err			;pathname length error

		rts				;return with carry clear

;-------------------------------------------------------------------------------

Err		lda	<DstPathLen		;set length of DstPathName
		sta	C1_DstPathName

		lda	#C1_DstPathName		;create	ptr to DstPathName for dialog
		sta	<PathNamePtr
		lda	#^C1_DstPathName
		sta	<PathNamePtr+2
		lda	<INamePtr		;create	ptr to icon name for dialog
		sta	<OtherPtr		;to use
		lda	<INamePtr+2
		sta	<OtherPtr+2

		lda	#rasPathTooLong
		jsl	doAlertWindow
		sec
		rts

		ENDP

****************************************************************
*
* Make sure destination name is OK for ProDOS
*
* IN:	<localTemp
*
* USES:	c1_sourceBuf
*	c1_source
*
****************************************************************

CheckDstName	PROC				

		import	CustomPtr
		import	CustomPtr2
		import	fstNames
		import	c1_Source
		import	c1_SourceBuf
		import	PToWString
		import	WToPString
		
		lda	<CatPtr
		clc
		adc	#4
		sta	<NewNamePtr
		lda	<CatPtr+2
		adc	#0
		sta	<NewNamePtr+2

		ENTRY	CheckDstName2
CheckDstName2	lda	<DstFileSysID
		sta	fstID

		pushZLong <NewNamePtr
		pushlong #c1_source
		jsl	PToWString

		_JudgeNameGS JudgeParms

		php
		pushlong #c1_source		;always move our translated name back (JudgeName shouldn't touch
		pushlong #TranslatedName	;it unless it really was bad).
		jsl	WToPString
		plp
		bcs	@wayBogus

		lda	JudgeParms+$10
		bne	@wayBogus
		clc
		rts
		
@wayBogus	lda	fstID			;*6 -- create fst name string
		asl	a
		asl	a
		tax
		lda	>fstNames,x
		sta	>CustomPtr2
		lda	>fstNames+2,x
		sta	>CustomPtr2+2

;		lda	JudgeParms+$06		;move fst syntax pointer to *5
;		sta	>CustomPtr
;		lda	JudgeParms+$08
;		sta	>CustomPtr+2

		sec
		rts

;
; locals
;
JudgeParms	dc.w	6
fstID		dc.w	0			;fileSysID
nameType	dc.w	3			;nameType (file)
		dc.L	0			;syntax
		dc.w	0
		dc.L	C1_SourceBuf		;keep this big so it has a lot of workspace (DAL)
		dc.w	0

		ENDP
;-------------------------------------------------------------------------------

NameErr		PROC

		IMPORT	PathGetName
		IMPORT	saveCursor
		IMPORT	restoreCursor
		IMPORT	c1_dest
		IMPORT	arrowCursor
		IMPORT	finderTaskRecord
		IMPORT	CopyUpdate
		IMPORT	CustomPtr
		IMPORT	DrawCopyControls
		import	WindowGlobalON
		import	WindowGlobalOFF
		IMPORT	CloseCopyWindow		;in util.aii - 27-Jan-93 JCM
		IMPORT	CloseTransWindow	;in util.aii - 27-Jan-93 JCM

		pei	<PathNamePtr+2		;save ptr
		pei	<PathNamePtr

		lda	<SkipBadNames
		beq	noUserYet		;no user decision
		cmp	#1			;does user want default?
		bne	@goErrExit1
		brl	UseNew			;yes, so go straight to copy
@goErrExit1	brl	errExit1		;else, user wants to skip "bad" names
noUserYet
		lda	#TranslatedName		;create ptr to "new" name
		sta	<OtherPtr		;for dialog to use
		lda	#^TranslatedName
		sta	<OtherPtr+2

		clc
		lda	<CatPtr			;create	ptr to "old" name
		adc	#4			;for dialog to use
		sta	<PathNamePtr
		lda	<CatPtr+2
		adc	#0
		sta	<PathNamePtr+2

		lda	#NullStrg		;null string for feedback message box
		sta	<RWPtr
		sta	<FileNamePtr
		lda	#NullStrg>>16
		sta	<RWPtr+2
		sta	<FileNamePtr+2

putBox

; ------------------------------------
; JAM DJB 06/07/89  Fixing BRC #50355
;   If we are not processing a file that corresponds to an
;   icon in the user's selection, we really cannot skip him or
;   anyone in his general area.  [<CatPtr],y, where y=2 is the
;   count of files in the tree underneath the icon we are
;   currently processing.  If that is nonzero (discounting carry),
;   we are actually looking at the catalog corresponding to the patriarch.
;   If zero, we are working with a child file/folder and should not
;   permit skipping, because the skipfiles routine will break if we do.
;   You're damned right it's ugly.  But it's safe.
;		ldy	#2
;		lda	[<CatPtr],y		; get count
;		and	#$7FFF			; clean him up
;		bne	@Normal			; branch if patriarch
;   rdl 5/2/90 - Fix BRC# 53050 / WS# BCK071SMW - current catalog is saved to CurrentCat
;     Sorry, Jim, but the above code is NOT safe. That same word is non-zero if file is LOCKED!
;     Instead, letÕs see where CatPtr is pointing -- if itÕs at the current catalog or
;        within it
;--------------------------------------

;
; Some more notes on the following which replaced Ron's faulty kludge of Jim's faulty kludge
;
; See if the pointer to the current file is a pointer to the beginning of a catalog.  If it is, then
; we need to see if we're about to write the real last item, and if so only give the user the dialog
; with the <OK> and <Cancel> buttons.  If <CatPtr isn't pointing to the beginning of our catalog's handle,
; then we're looking at something inside a catalog and we have to use the simpler dialog because the
; 'skipfiles' routine back in DoFilecopy will break.  Otherwise if <CatPtr is pointing to our catalog's
; handle and we're not the last item, show the user the dialog with the <Skip> and <Translate All>
; buttons.
;
		lda	<CatPtr			;is current catalog item a parent?
		cmp	[<CatHndl]		
		bne	@kid			
		ldy	#2
		lda	<CatPtr+2
		cmp	[<CatHndl],y
		bne	@kid

		lda	<NumFiles		;see if we are about to try to write the LAST file
		cmp	#1
		beq	@kid
		
@parent		lda	#9			;no skip stuff.
		bra	JustDoIt
;
; If here, we know we are looking at a child catalog, so don't allow skipping -- or we're just looking at
; a single file
;
@kid		lda	#8			;dialog with skip, etc.					
JustDoIt	pha
		jsl	SaveCursor
		jsl	ArrowCursor

		lda	<PathNamePtr		;adjust for *5
		sta	>CustomPtr
		lda	<PathNamePtr+2
		sta	>CustomPtr+2
		
		jsl	WindowGlobalON
		plx

		pha
		pha
		lda #0
		pha
		pha				;titlePtr
		pha
		pha				;refCon is ptr to our window info block
		pha
		pha				;content draw proc
		pha
		pha				;window defproc
		pea	2			;refIsResource
		pha
		phx				;window resource we want
		pea	$800e			;rWindParam1
		_NewWindow2
		
		jsl	WindowGlobalOFF
		pulllong transWindowPtr
		bcc	@openOK

;
; close the window only if something bad happened and we actually have a window pointer
; because something could have happened when we went to add controls (but didn't
; get created because we couldn't find the disk or the resource)
;
		lda	transWindowPtr+1
		beq	@leave

@done		jsl	CloseTransWindow

@leave		jsl	RestoreCursor

		lda	#$FFFF
		brl	errExit2

;
; cool.  we got the resources we needed and have a window -- so set everyone's control values before
; anything gets drawn
;
@openOK		pushlong transWindowPtr
		pushlong #4
		pushlong #TranslatedName
		_SetLETextByID

;
; now that we've set all the controls values, use doModalWindow to play with everything
;
@loop		pha
		pha
		pea	0
		lda	>finderTaskRecord
		pha			;push the task record's ptr
		lda #0
		pha
		pha			;update proc
		pea $8000
		pha			;eventHook
		pha
		pha			;beep proc
		pea	$c010		;flags
		_DoModalWindow

		pla
		plx
		cmp	#5
		blt	@loop

		sec
		sbc	#5
		asl	a
		tax
		jmp	(@addrs,x)

@addrs		dc.w	@cancel		;id = 5
		dc.w	@ok		;6
		dc.w	@skipOne	;7
		dc.w	@skipAll	;8
		dc.w	@translateAll	;9

@close		jsl	restoreCursor
		jsl	CloseTransWindow

		rts

@cancel		jsl	CloseCopyWindow

		stz	copyWindowPtr+1

		jsr	@close
		lda	#$FFFF
		sec
		brl	errExit2

@ok		pushlong transWindowPtr		;if so, then get the text they typed
		pushlong #4
		pushlong #TranslatedName
		_GetLETextByID

		jsr	@close
		brl	userOK

@skipOne	jsr	@close
		jsr	DrawCopyControls

		lda	<NumFiles
		ldy	#0
		jsr	DrawMsg

		lda	#$8000
		brl	errExit1

@skipAll	jsr	@close
		jsr	DrawCopyControls

		lda	<NumFiles
		ldy	#0
		jsr	DrawMsg

		lda	#$8000
		sta	<SkipBadNames
		brl	errExit1

@translateAll	lda	#$0001			;must be translate all
		sta	<SkipBadNames
		jsr	@close
		bra	userOK
;
; locals
;
		EXPORT	transWindowPtr
transWindowPtr	dc.L	0

;
; we either arrive here after saying "yeah, translate everything," or by selecting OK for
; just this item
;
userOK		lda	TranslatedName		;get length of name
		and	#$00FF			;mask off first	char
		bne	@boxOK
		brl	putBox			;name is null
@boxOK

		lda	#TranslatedName
		sta	<NewNamePtr
		lda	#TranslatedName>>16
		sta	<NewNamePtr+2
		jsr	CheckDstName2
		bcc	@nameOK
		brl	putBox			; name was still bad
@nameOK
		inc	<NamesWereXLated	; JAM 06/01/89 Fixing BRC #49639
useNew
		ldy	#4
		lda	[<CatPtr],y		;set hi bit of length to mark change
		ora	#$0080
		sta	[<CatPtr],y

		lda	#strgWriting		;point to Writing: '
		sta	<RWPtr
		lda	#strgWriting>>16
		sta	<RWPtr+2
		
		lda	#TranslatedName		;point to "new" filename
		sta	<FileNamePtr
		lda	#^TranslatedName
		sta	<FileNamePtr+2

		jsr	DrawCopyControls

		lda	<NumFiles		;don't update the thermometer, but the
		ldy	#0
		jsr	DrawMsg			;text?  Yah, update that.


		lda	#0
errExit1	clc				;no errors
errExit2

		plx
		stx	<PathNamePtr		;restore ptr
		plx
		stx	<PathNamePtr+2
		tax				;set/clear the minus flag
		rts

		ENDP

****************************************************************
*
* AddSrcSlash
*
****************************************************************

AddSrcSlash	PROC

		inc	C1_SrcPathName		;add 1 for separator
		lda	C1_SrcPathName		;get new length	of source pathname
		sta	<SrcPathLen		;and save
		tax
		lda	#SEPARATOR		;GS/OS separator character
		sta	C1_SrcPathName+1,x	;add it after pathname
		rts

		ENDP

****************************************************************
*
* AddDstSlash
*
****************************************************************

AddDstSlash	PROC

		inc	C1_DstPathName		;add 1 for separator
		lda	C1_DstPathName		;get new length	of destination pathname
		sta	<DstPathLen		;and save
		tax
		lda	#SEPARATOR		;GS/OS separator character
		sta	C1_DstPathName+1,x	;add it after pathname
		rts

		ENDP

****************************************************************
*
* GetNextIcon
*
****************************************************************

GetNextIcon	PROC

		ldy	#icFlag
		lda	[<IconPtr],y		;get flag bits from IconObj record
		and	#ICEXTENDED		;is this an extended icon?
		bne	RetSet			;yes - so don't continue down list

		lda	[<IconPtr]		;get handle to next icon in list
		pha				;and save
		ldy	#2
		lda	[<IconPtr],y
		pha
		jsr	UnLockIcon		;unlock	current	icon
		pla				;retrieve handle to next icon
		sta	<IconHndl+2
		pla
		sta	<IconHndl
		ora	<IconHndl+2		;is handle 0?
		bne	GetSelIcon		;no - so check icon to see if selected
RetSet		sec				;done with list
		rts

		ENTRY	GetSelIcon
GetSelIcon					
		jsr	LockIcon		;lock and deref	icon handle
		ldy	#icFlag
		lda	[<IconPtr],y		;get flag bits in IconObj record
		and	#ICSELECTED		;is icon selected?
		beq	GetNextIcon		;no - so check next icon in list

		jsr	MakeINamePtr		;create	ptr to Name field of IconObj rec
		clc				;indicate no error
		rts

		ENDP


****************************************************************
*
* MakeINamePtr
*
****************************************************************

MakeINamePtr	PROC

		clc
		lda	<IconPtr		;get ptr to IconObj record
		adc	#icName			;add offset to Name field
		tax				;to create ptr to Name field
		lda	<IconPtr+2
		adc	#0
		pha
		phx
		PushLong #C1_IconName
		jsl	PToWString		;convert it to class 1 string
		lda	#C1_IconName
		sta	<INamePtr
		lda	#^C1_IconName
		sta	<INamePtr+2
		rts

		ENDP


****************************************************************
*
* LockIcon
*
****************************************************************

LockIcon	PROC

		lda	IconHndl+1
		bne	@haveHandle
		
		stz	IconHndl		;finish zeroing out IconHndl
		stz	IconPtr			;zero out IconPtr
		stz	IconPtr+2		
		rts
		
@haveHandle	ldy	#4
		lda	[<IconHndl],y
		ora	#$8000			;set locked bit	in attribute word
		sta	[<IconHndl],y

		ENTRY	DerefIcon
DerefIcon					;
		lda	[<IconHndl]		;dereference handle into ptr
		sta	<IconPtr
		ldy	#2
		lda	[<IconHndl],y
		sta	<IconPtr+2
		rts

		ENDP

****************************************************************
*
* UnLockIcon
*
****************************************************************

UnLockIcon	PROC

		ldy	#4
		lda	[<IconHndl],y
		and	#$7FFF			;clear locked bit in attribute word
		sta	[<IconHndl],y
		rts

		ENDP

****************************************************************
*
* CheckKey
*
* NOTE: Because TaskMaster can call any of the window update routines, it's very possible that
*	any visible icons in a window which needs to get redrawn will be left UNLOCKED.  So, it's
*	extremely important that we relock the icon which we were working with before returning.
*
****************************************************************

CheckKey	PROC

@loop		pha				; space for result
		pea	$056E			; event mask
		pushlong #fTaskRecord
		_TaskMaster
		pla
		beq	@done

		cmp	#3
		beq	@keyEvent
		cmp	#5
		bne	@notKey
		
@keyEvent	lda	fTaskMessage
		cmp	#$002e
		bne	@loop
		lda	fTaskModifiers
		and	#$0100
		beq	@loop
	
		lda	#$1b			;fake an ESC message
		sta	fTaskMessage
		
		pha
		lda #0
		pha		;targetOnly = false
		pha
		pha		;window = nil
		pushlong #fTaskRecord
		_SendEventToCtl
		pla
		bne	@gotOAPeriod
		bra	@loop

@notKey		cmp	#6			;wInUpdate
		beq	@done
		cmp	#$21			;wInControl
		bne	@loop

@gotOAPeriod	lda	fTaskRecord+$26		;wmTaskData4
		cmp	#4
		bne	@loop
		lda	fTaskRecord+$26+2
		bne	@loop

		jsr	LockIcon
		
		lda	#$FFFF
		sta	AbortFlag
		asl	a			;button	ID returned in A
		rts

@done		jsr	LockIcon

		lda	#0			;indicate no key pressed
		clc
		rts

		EXPORT fTaskRecord
fTaskRecord	dc.w	0			;what
fTaskMessage	dc.L	0			;message
		dc.L	0			;when
		dc.L	0			;where
fTaskModifiers	dc.w	0			;modifiers
		dc.L	0			;taskData
		dc.L	$00038006		;taskMask
		dc.L	0			;lastClickTick
		dc.w	0			;clickCount
		dc.L	0			;taskData2
		dc.L	0			;taskData3
		dc.L	0			;taskData4
		dc.L	0			;lastClickPoint

		ENDP

****************************************************************
*
* CreateFile
*
****************************************************************

CreateFile	PROC

		lda	#5			;changed from 4  - 08/06/88 DJB
		sta	[<BufPtr]		;set pcount

		lda	<BufPtr			;BufPtr	points to CREATE parameter block
		ldx	<BufPtr+2
		ldy	#CREATE+C1		;call #
		jsr	ProDosCall		;make the call

		bcc	OK

		pha
		jsl	ProDOS			;start_session
		DC.W	BEGIN_SESSION+C1
		DC.L	session_call
		pla

		jsr	RestartSession
		cmp	#$54
		bne 	handErr

again
		lda	<BufPtr			;BufPtr	points to CREATE parameter block
		ldx	<BufPtr+2
		ldy	#CREATE+C1		;call #
		jsr	ProDosCall		;make the call
		bcc	OK
handErr		jsr	ProDosErr		;handle	error
		bcc	again			;try again
OK		rts

		ENDP

****************************************************************
*
* DestroyFile
*
****************************************************************

DestroyFile	PROC

		lda	<PathNamePtr		;get ptr to PathName
		sta	D_Name
		lda	<PathNamePtr+2
		sta	D_Name+2
		lda	#D_Params		;get ptr to DESTROY parameter block
		ldx	#D_Params>>16
		ldy	#DESTROY+C1		;call #
		jsr	ProDosCall		;make the call
		bcc	OK
; Mensch 5/18/89 (Fixing BRC #48301)
;  The following code enables this routine to return the error code to the caller
		tax				; save the error code
		lda	3,s			; get the caller flag
		bpl	@Report
		txa				; error back into acc
		cmp	#$50			; busy?
		bne	@ReportIt
		bra	OK
@Report		txa
@ReportIt
; end Mensch 5/18/89 (BRC #48301)
		jsr	ProDosErr		;handle	error
		bcc	DestroyFile		;try again
; Mensch 5/18/89 (Fixing BRC #48301)
		lda	#$FFFE
OK
		ply				; return address
		plx				; remove flag param
		phy				; return address back on stack
; end Mensch 5/18/89 (BRC #48301)
		rts

		ENDP

****************************************************************
*
* OpenFile		(Modified to work with extended files - DJB)
*
****************************************************************

OpenFile	PROC

		sta	O_ReqAccess
		ldx	#14
		and	#$02			; write access ?
		beq	set			; no
		ldx	#3			; yes, so use min pcount
set		stx	O_Params		; set the pcount

		lda	#O_Params		;get ptr to OPEN parameter block
		ldx	#O_Params>>16
		ldy	#OPEN+C1		;call #
		jsr	ProDosCall		;make the call
		bcc	OK

		jsr	RestartSession		;force a cache flush to get some memory
		cmp	#$54			;out-of-memory error ?
		bne	handErr

again		lda	#O_Params		;ptr to OPEN parameter block
		ldx	#O_Params>>16
		ldy	#OPEN+C1		;call #
		jsr	ProDosCall		;make the call
		bcc	OK
handErr		jsr	ProDosErr		;handle	error
		bcc	again			;try again
		

;
; Now, save the data and resource fork lengths someplace which won't change, and only save them
;
OK		lda	<SoFarFlag
		bne	@done		
		dec	<SoFarFlag
		
		lda	O_DataEOF
		sta	<DataForkYet
		lda	O_DataEOF+2
		sta	<DataForkYet+2

		lda	O_RsrcEOF
		sta	<RsrcForkYet
		lda	O_RsrcEOF+2
		sta	<RsrcForkYet+2
@done		rts

		ENTRY	OpenResource
OpenResource
		sta	OE_ReqAccess
		clc
		lda	<IsExtended		;an extended file ?
		beq	exit			;no
again2		lda	#OE_Params		;ptr to extended OPEN parameter block
		ldx	#OE_Params>>16
		ldy	#OPEN+C1		;call #
		jsr	ProDosCall		;make the call
		bcc	exit
		jsr	ProDosErr		;handle	error
		bcc	again2			;try again
exit		rts

		ENDP

****************************************************************
*
* CloseFile		(Modified to work with extended files - DJB)
*
****************************************************************

CloseFile	PROC

		lda	O_Ref
		sta	C_Ref
		lda	#C_Params		;ptr to CLOSE parameter block
		ldx	#C_Params>>16
		ldy	#CLOSE+C1		;call #
		jsr	ProDosCall		;make the call
		bcc	OK
		jsr	ProDosErr		;handle	error
		bcc	CloseFile		;try again

OK		stz	O_Ref
		lda	<IsExtended		;an extended file ?
		beq	exit			;no

closeResource	lda	OE_Ref
		sta	C_Ref
		lda	#C_Params		;ptr to CLOSE parameter block
		ldx	#C_Params>>16
		ldy	#CLOSE+C1		;call #
		jsr	ProDosCall		;make the call
		bcc	OK2
		jsr	ProDosErr		;handle	error
		bcc	closeResource		;try again
OK2		stz	OE_Ref
exit		rts

		ENDP

****************************************************************
*
* ReadDataFile		(modified for extended files - DJB)
*
****************************************************************

ReadDataFile	PROC

		lda	O_Ref
		sta	RW_Ref
		lda	#RW_Params		;ptr to extend READ/WRITE param block
		ldx	#RW_Params>>16
		ldy	#READ+C1		;call #
		jsr	ProDosCall		;make the call
		bcc	OK
		jsr	ProDosErr		;handle	error
		bcc	ReadDataFile		;try again
OK		rts

		ENTRY	ReadRsrcFile
ReadRsrcFile
		lda	OE_Ref
		sta	RWE_Ref
		lda	#RWE_Params		;ptr to extend READ/WRITE param block
		ldx	#RWE_Params>>16
		ldy	#READ+C1		;call #
		jsr	ProDosCall		;make the call
		bcc	OK2
		jsr	ProDosErr		;handle	error
		bcc	ReadRsrcFile		;try again
OK2		rts

		ENDP

****************************************************************
*
* WriteDataFile		(modified for extended files - DJB)
*
****************************************************************

WriteDataFile	PROC

		lda	O_Ref
		sta	RW_ref
		lda	#RW_Params		;get ptr to READ/WRITE param block
		ldx	#RW_Params>>16
		ldy	#WRITE+C1		;call #
		jsr	ProDosCall		;make the call
		bcc	OK
		
		cmp	#$54			;out of memory error
		bne 	handErr
		jsr	RestartSession		;flush cache to get more memory
again
		lda	#RW_Params		;get ptr to READ/WRITE param block
		ldx	#RW_Params>>16
		ldy	#WRITE+C1		;call #
		jsr	ProDosCall		;make the call
		bcc	OK
handErr		jsr	ProDosErr		;handle	error
		bcc	again			;try again
OK		rts


		ENTRY	WriteRsrcFile
WriteRsrcFile
		lda	OE_Ref
		sta	RWE_ref
		lda	#RWE_Params		;get ptr to READ/WRITE param block
		ldx	#RWE_Params>>16
		ldy	#WRITE+C1		;call #
		jsr	ProDosCall		;make the call
		bcc	OK2

		cmp	#$54			;out of memory error
		bne 	handErr2
		jsr	RestartSession		;flush cache to get more memory
again2
		lda	#RWE_Params		;get ptr to READ/WRITE param block
		ldx	#RWE_Params>>16
		ldy	#WRITE+C1		;call #
		jsr	ProDosCall		;make the call
		bcc	OK2
handErr2	jsr	ProDosErr		;handle	error
		bcc	again2			;try again
OK2		rts

		ENDP

****************************************************************
*
* GetFileInfo
*
****************************************************************

GetFileInfo	PROC

		IMPORT	GetFSTFileSize
		IMPORT	doAlertWindow
		IMPORT	fstNames
		IMPORT	CustomPtr
		IMPORT	CustomPtr2

		lda	<BufPtr			;BufPtr	points to GET_FILE_INFO
		ldx	<BufPtr+2		;parameter block
		ldy	#GET_FILE_INFO+C1	;call #
		jsr	ProDosCall		;make the call
		bcc	@GetInfoOK
		jsr	ProDosErr		;handle	error
		bcc	GetFileInfo		;try again
		rts

@GetInfoOK	ldy	#FI_SType-FI_Params	;AEN, 2/19/92
		lda	[<bufPtr],y
		beq	@goOK
		cmp	#6
		blt	@gotFile
@goOK		brl	@ok
@gotFile

		lda	<DstFileSysID
		jsl	GetFSTFileSize
		bcs	@ok			;if we can't find the FST, forgo the size check
		stx	<MaxFileSize
		sta	<MaxFileSize+2
		
		ldy	#FI_EOF-FI_Params
		lda	[<bufPtr],y
		sta	<OurFileSize

		ldy	#FI_EOF-FI_Params+2
		lda	[<bufPtr],y
		sta	<OurFileSize+2
		
		ldy	#FI_SType-FI_Params	;AEN, 2/19/92
		lda	[<bufPtr],y
		cmp	#5
		bne	@notExtended
		
		lda	<OurFileSize
		clc
		ldy	#FI_ResourceEOF-FI_Params
		adc	[<bufPtr],y
		sta	<OurFileSize
		
		lda	<OurFileSize+2
		ldy	#FI_ResourceEOF-FI_Params+2
		adc	[<bufPtr],y
		sta	<OurFileSize+2
@notExtended

		lda	<OurFileSize
		cmp	<MaxFileSize		;does SEC SBC
		lda	<OurFileSize+2
		sbc	<MaxFileSize+2
		blt	@ok
		
		lda	<DstFileSysID		;*6 -- create fst name string
		asl	a
		asl	a
		tax
		lda	>fstNames,x
		sta	>CustomPtr2
		lda	>fstNames+2,x
		sta	>CustomPtr2+2
		
		lda	<CatPtr			;*5 -- create source name string
		clc
		adc	#4
		sta	>CustomPtr
		lda	<CatPtr+2
		adc	#0
		sta	>CustomPtr+2
		
		lda	#rasFileTooBig
		jsl	doAlertWindow
		eor	#$FFFF
		cmp	#$FFFF
		rts
		
@ok		ldy	#FI_OptionList-FI_Params+4 ;skip past totalSize and reqSize
		lda	[<bufPtr],y
		sta	<SrcFileSysID
		cmp	#HFS_FST		;6
		beq	zeroCoordinates
		cmp	#PRODOS_FST		;prodos CAN have the same as HFS
		beq	zeroCoordinates
		cmp	#APPLESHARE_FST		;$0D
		bne	done

zeroCoordinates
		ldy	#FI_OptionList-FI_Params+14
		lda	#0
		sta	[<bufPtr],y
		iny
		iny
		sta	[<bufPtr],y

done		lda	#0
		tax
		clc
		rts
		ENDP

****************************************************************
*
* GetVolSize - x & a point to volume name (class 1)
*
****************************************************************

GetVolSizes	PROC				;added 07/13/88 DJB

		sta	GDN_Name
		stx	GDN_Name+2
		jsr	GetDevNum		;first get device number
		bcs	exit

		lda	GDN_DevNum
		sta	DI_DevNum
		jsr	GetDevInfo		;then get device name
		bcs	exit

		jsr	GetVolInfo		;then get the sizes
exit		rts

		ENDP


****************************************************************
*
* RebuildVCRLong -- rebuild the VCR for the device number in (A)
*
****************************************************************

RebuildVCRLong	PROC	EXPORT

		phb
		phk
		plb
		
		jsr	RebuildVCR
		
		plb
		rtl
		ENDP

****************************************************************
*
* RebuildVCR -- rebuild the VCR for the device number in (A)
*
* NOTE: Doing a volume call to a damaged HFS disk will return the correct
*	volume name for that disk and error $5A.  This is and has to be
*	guaranteed behavior for only the HFS FST.  -- 11/7/91, andy
*
****************************************************************

RebuildVCR	PROC
		sta	DI_DevNum
		
		lda	#DI_Params		;get ptr to D_INFO parameter block
		ldx	#DI_Params>>16
		ldy	#D_INFO+C1		;call #
		jsr	ProDosCall		;make the call
		bcs	@done

		lda	#V_Params		;get ptr to VOLUME parameter block
		ldx	#V_Params>>16
		ldy	#VOLUME+C1		;call #
		jsr	ProDosCall		;make the call
@done		rts
		ENDP

****************************************************************
*
* GetFileInfo2
*
****************************************************************

GetFileInfo2	PROC

		lda	#FI_Params		;get ptr to FILE_INFO param block
		ldx	#FI_Params>>16
		ldy	#GET_FILE_INFO+C1	;call #
		jsr	ProDosCall		;make the call
		bcc	OK
		jsr	ProDosErr		;handle	error
		bcc	GetFileInfo2		;try again
OK		rts

		ENDP

****************************************************************
*
* GetFileInfo3
*
****************************************************************

GetFileInfo3	PROC			 	;only called by DupFiles

		lda	#FI_Params		;get ptr to FILE_INFO param block
		ldx	#FI_Params>>16
		ldy	#GET_FILE_INFO+C1	;call #
		jsr	ProDosCall		;make the call
		bcc	FileExists
		cmp	#$46			;file not found	error?
		beq	NotFound		;yes - so ignore the error
		cmp	#$40			;bad syntax error ?
		beq	BadName			;yes - so report the error
		jsr	ProDosErr		;no - so handle	error
		bcc	GetFileInfo3		;try again
		rts

BadName		lda	#$8001
		asl	a			;indicate bad name
		rts

FileExists	lda	#$8000
		asl	a			;indicate that file exists
		rts

NotFound	clc				;indicate no error
		rts

		ENDP

****************************************************************
*
* SetFileInfo
*
****************************************************************

SetFileInfo	PROC

		lda	#FI_Params		;get ptr to FILE_INFO param block
		ldx	#FI_Params>>16
		ldy	#SET_FILE_INFO+C1	;call #
		jsr	ProDosCall		;make the call

		bcc	OK

		jsr	RestartSession
		cmp	#$4E
		clc
		beq	OK			; so drop boxes work - DJB
		cmp	#$54
		bne 	handErr

again
		lda	#FI_Params		;get ptr to FILE_INFO param block
		ldx	#FI_Params>>16
		ldy	#SET_FILE_INFO+C1	;call #
		jsr	ProDosCall		;make the call
		bcc	OK
handErr
; Mensch 5/18/89 (Fixing BRC #48301)
;  The following code enables this routine to return the error code to the caller
		tax				; save the error code
		lda	3,s			; get the caller flag
		bpl	@Reportit
		txa				; error back into acc
		cmp	#$50			; busy?
		bne	@ReportIt
		bra	OK
@ReportIt
; end Mensch 5/18/89 (BRC #48301)
		txa				;AEN 12/20/91
		jsr	ProDosErr		;handle	error
		bcc	again			;try again
OK
; Mensch 5/18/89 (Fixing BRC #48301)
		ply				; return address
		plx				; remove flag param
		phy				; return address back on stack
; end Mensch 5/18/89 (BRC #48301)
		rts
		ENDP

****************************************************************
*
* GetMark		(modified for extended files - DJB)
*
****************************************************************

GetMark		PROC

		cmp	#0			;A: 0 = data fork, 1 = resource fork
		bne	doExtend
		lda	O_Ref			;refnum for data fork
		bra	set
doExtend	lda	OE_Ref			;refnum for resource fork
set		sta	GM_Ref

again		lda	#GM_Params		;get ptr to GET_MARK parameter block
		ldx	#GM_Params>>16
		ldy	#GET_MARK+C1		;call #
		jsr	ProDosCall		;make the call
		bcc	OK
		jsr	ProDosErr		;handle	error
		bcc	again			;try again
OK		rts

		ENDP

****************************************************************
*
* SetMark		(Modified to work with extended files - DJB)
*
****************************************************************

SetMark		PROC

		cmp	#0			;A: 0 = data fork, 1 = resource fork
		bne	doExtend
		lda	O_Ref			;refnum for data fork
		bra	set
doExtend	lda	OE_Ref			;refnum for resource fork
set		sta	SM_Ref

		lda	#SM_Params		;get ptr to SET_MARK parameter block
		ldx	#SM_Params>>16
		ldy	#SET_MARK+C1		;call #
		jsr	ProDosCall		;make the call
		bcc	OK

		jsr	RestartSession
		cmp	#$4E
		clc				; added so drop boxes work - DJB
		beq	OK
		cmp	#$54
		bne 	handErr

again		lda	#SM_Params		;get ptr to SET_MARK parameter block
		ldx	#SM_Params>>16
		ldy	#SET_MARK+C1		;call #
		jsr	ProDosCall		;make the call
		bcc	OK
handErr		jsr	ProDosErr		;handle	error
		bcc	again			;try again
OK		rts

		ENDP


****************************************************************
*
* ChangePath
*
****************************************************************

ChangePath	PROC

		lda	#CP_Params		;get ptr to CHANGE_PATH	param block
		ldx	#CP_Params>>16
		ldy	#CHANGE_PATH+C1		;call #
		jsr	ProDosCall		;make the call
		bcc	OK

		tax				;save error #
		cmp	#$40			;illegal pathname err?
		bne	PutMsg
		ldx	#$8001			;yes - so convert to our own error #

PutMsg		lda	#C1_SrcPathName
		sta	<PathNamePtr		;set up	ptr to SrcPathName for dialog
		lda	#^C1_SrcPathName
		sta	<PathNamePtr+2

		txa				;retrieve error	#
		jsr	ProDosErr		;handle	error
		bcc	ChangePath		;try again
OK		rts

		ENDP

****************************************************************
*
* ReadBlocks
*
****************************************************************

ReadBlocks	PROC

		lda	#RWB_Params		;get ptr to READ/WRITE BLOCK
		ldx	#RWB_Params>>16		;parameter block
		ldy	#D_READ+C1		;call #
		jsr	ProDosCall		;make the call
		bcc	OK
		jsr	ProDosErr		;handle	error
		bcc	ReadBlocks		;try again
OK		rts

		ENDP

****************************************************************
*
* WriteBlocks
*
****************************************************************

WriteBlocks	PROC

		lda	#RWB_Params		;get ptr to READ/WRITE BLOCK
		ldx	#RWB_Params>>16		;parameter block
		ldy	#D_WRITE+C1		;call #
		jsr	ProDosCall		;make the call
		bcc	OK
		jsr	ProDosErr		;handle	error
		bcc	WriteBlocks		;try again
OK		rts

		ENDP

****************************************************************
*
* GetDevNum
*
****************************************************************

GetDevNum	PROC

		lda	#GDN_Params		;get ptr to GET_DEV_NUM	param block
		ldx	#GDN_Params>>16
		ldy	#GET_DEV_NUMBER+C1	;call #
		jsr	ProDosCall		;make the call
		bcc	OK
		jsr	ProDosErr		;handle	error
		bcc	GetDevNum		;try again
OK		rts

		ENDP

****************************************************************
*
* GetDevInfo
*
****************************************************************

GetDevInfo	PROC

		lda	#DI_Params		;get ptr to D_INFO parameter block
		ldx	#DI_Params>>16
		ldy	#D_INFO+C1		;call #
		jsr	ProDosCall		;make the call
		bcc	OK
		jsr	ProDosErr		;handle	error
		bcc	GetDevInfo		;try again
OK		rts

		ENDP

****************************************************************
*
* GetVolInfo
*
****************************************************************

GetVolInfo	PROC

		lda	#V_Params		;get ptr to VOLUME parameter block
		ldx	#V_Params>>16
		ldy	#VOLUME+C1		;call #
		jsr	ProDosCall		;make the call
		bcc	OK
		jsr	ProDosErr		;handle	error
		bcc	GetVolInfo		;try again
OK		rts

		ENDP

****************************************************************
*
* EraseDisk
*
****************************************************************

EraseDisk	PROC

		lda	#E_Params		;get ptr to ERASE parameter block
		ldx	#E_Params>>16
		ldy	#ERASE_DISK+C1		;call #
		jsr	ProDosCall		;make the call
		bcc	OK
		jsr	ProDosErr		;handle	error
		bcc	EraseDisk		;try again
OK		rts

		ENDP

****************************************************************
*
* ProDosCall
*
****************************************************************

ProDosCall	PROC

;NOTE -	this is	self-modifying code!

		sta	>CallBlock+2		;store ptr to param block in call block
		txa
		sta	>CallBlock+4
		tya
		sta	>CallBlock		;store call number in  call block

DoCall		jsl	ProDOS			;ProDOS/16 entry vector
CallBlock					;ProDOS call block
		DC.W	0			;call number
		DC.L	0			;ptr to	parameter block

		rts

		ENDP

****************************************************************
*
* ProDosErr -- error in (A)
*
****************************************************************

LongProDOSErr	PROC

		phb
		phk
		plb
		
		jsr	ProDOSErr
		
		plb
		rtl
		ENDP
		
****************************************************************
*
* ProDosErr
*
****************************************************************

ProDosErr	PROCNAME

		IMPORT	doAlertWindow
		IMPORT	finderTaskRecord
		IMPORT	hexadecimal
		IMPORT	C1_source
		IMPORT	pathgetroot
		IMPORT	c1_filename
		IMPORT	c1_srcpathname		
		IMPORT	pathgetname
		IMPORT	WindowGlobalON
		IMPORT	WindowGlobalOFF
		IMPORT	PStringCopy
		import	CustomPtr3
		import	GetErrorTextPtr

NewCatHndl	equ	localTemp

;		
;   Determine if the error is one we have a special dialog for.
;   If not, put up the System Error dialog.
;

		sta	<Error

		ldx	#errorsEnd-errors
@loop		cmp	errors,x
		beq	dispatch
		dex
		dex
		bpl	@loop

		pha				;save copy of error code (5-Dec-91 DAL)

		pha
		pushlong #hexadecimal
		pea	4			;4 chars
		_Int2Hex

*** added 5-Dec-91 DAL
		pla
		jsl GetErrorTextPtr		;returns pointer in AX
		sta >CustomPtr3+2
		txa
		sta >CustomPtr3
*** end 5-Dec-91

		lda	#rasSysErr		;dialog	# for System Error dialog
		brl	Cont

dispatch	lda	values,x
		jmp	(addrs,x)
		
errors		dc.w	$0047
		dc.w	$8001
		dc.w	$8002			;not enough privileges to copy this, skip it?
		dc.w	$0027
		dc.w	$002b
		dc.w	$002f
		dc.w	$0045
		dc.w	$0048
		dc.w	$0049
		dc.w	$004e
		dc.w	$0050
		dc.w	$005A
		dc.w	FICantMove
errorsEnd	dc.w	FINoPrivs


addrs		dc.w	DupFile
		dc.w	ChPath
		dc.w	NoReadAccess
		dc.w	MoveRoot
		dc.w	MoveRoot
		dc.w	MoveRoot
		dc.w	MoveRoot
		dc.w	Cont
		dc.w	Cont
		dc.w	Cont
		dc.w	Cont
		dc.w	MoveRoot
		dc.w	Cont
		dc.w	Cont
		
values		dc.w	0
		dc.w	rasChangePath
		dc.w	rasNoRead
		dc.w	rasIOErr
		dc.w	rasWriteProtected8
		dc.w	rasNoMedia
		dc.w	rasInsertDiskOrCancel8
		dc.w	rasDiskFull
		dc.w	rasDirFull
		dc.w	rasNoAccess
		dc.w	rasFileBusy
		dc.w	rasIOErr
		dc.w	rasCantMove
		dc.w	rasNoPrivs

ChPath		pha
		pushlong #C1_Filename		;put the end of pathnameptr onto c1_filename
		pushLong #C1_SrcPathName
		jsl	PathGetName
		pla

		jsr	Cont
		sec				;carry set in either case of skip or cancel
		rts

NoReadAccess	pha
		pushZLong <fileNamePtr
		pushlong #c1_source+2
		jsl	PStringCopy
		bra	Cont2			;(A) is already on stack

MoveRoot	pha
		jsr	MoveRootName
		bra	Cont2			;(A) is already on stack
		
Cont		pha
Cont2		stz	session_stat

		jsl	ProDOS			;get session status
		DC.W	SESSION_STATUS+C1
		DC.L	session_list
		jsl	ProDOS			;stop_session just in case user ejects
		DC.W	END_SESSION+C1
		DC.L	session_call

		pla
		jsl	doAlertWindow

		pha
		lda	session_stat
		beq	notSet

		jsl	ProDOS			;restart session
		DC.W	BEGIN_SESSION+C1
		DC.L	session_call
		stz	session_stat

notSet		pla				;the button
		
		eor	#$FFFF
		cmp	#$FFFF
		bcc	button1
		tax
		rts
		
button1		lda	#1
		tax
		clc
Ret		rts				;carry set if user selected 'Cancel'
						;'No' or 'Skip File'
		
;
; move the root name in pathnamePtr to c1_source
;
MoveRootName	pushLong #c1_source
		pushZLong <PathNamePtr
		jsl	PathGetRoot

		lda	>c1_source
		and	#$00ff
		dec	a
		xba
		sta	>c1_source+1
		rts
		
										
;-------------------------------------------------------------------------------
;A 'duplicate file name' error occurred	as a result of a CREATE	or CHANGEPATH
;ProDOS	call made during a file	copy or	move.


		EXPORT	DupFile
DupFile
		lda	<CatPtr
		ora	<CatPtr+2		;is CatPtr valid?
		beq	ChPathDupFile		;no - so err occurred during ChangePath

		jsr	CommonCode		;get catalog, put up dialog, etc.
		bcs	Ret			;don't replace duplicate file

		lda	[<CatPtr]		;get type of file being	copied
		sta	<Error			;and save

		ldy	#2
		lda	[<CatPtr],y		;get flag word for first cat entry
		ora	#ICDUP			;set bit in catalog to indicate
		sta	[<CatPtr],y		;this file got dup error

		brl	DelDupFile		;delete	the duplicate file

;-------------------------------------------------------------------------------

ChPathDupFile					;dup file err occured during ChangePath

		IMPORT	ToUpperCase
		IMPORT	doAlertWindow
		IMPORT	doAlertCopy
		IMPORT	C1_FileName
		IMPORT	saveCursor
		IMPORT	restoreCursor
		IMPORT	arrowCursor
		IMPORT	CopyUpdate
		IMPORT	DrawCopyControls
		IMPORT	WStrCompare
		IMPORT	CloseCopyWindow		;in util.aii - 27-Jan-93 JCM
		IMPORT	CloseRepWindow		;in util.aii - 27-Jan-93 JCM


		lda	#c1_dstpathname		;set up	ptr to correct pathname	for
		sta	FI_Name			;GetFileInfo and SetFileInfo
		lda	#c1_dstpathname>>16
		sta	FI_Name+2

		lda	#FI_Params		;get ptr to FILE_INFO param block
		ldx	#FI_Params>>16
		ldy	#GET_FILE_INFO+C1	;call #
		jsr	ProDosCall		;make the call
		bcs	@goDelete
		
		lda	FI_fType
		cmp	#TypeFolder
		beq	@isFolder
@goDelete	brl	OkToDel2		

;
; first, see if the destination file is is a child of the parent folder, in which case
; we need to show them the rasChangePath dialog
;
@isFolder	lda	C1_DstPathname
		cmp	C1_SrcPathname
		blt	@notIntoItself
		
		lda	C1_DstPathname
		pha
		lda	C1_SrcPathname
		sta	C1_DstPathname

		pha
		pushlong #c1_DstPathname
		pushlong #c1_SrcPathname
		jsl	WStrCompare
		ply
		plx
		stx	c1_DstPathname
		tya
		beq	@notIntoItself
		
		lda	#rasChangePath
		brl	ChPath
		
;
; make sure the duplicate file is not an ancestor of the file we are moving
;
@notIntoItself
		ldx	C1_DstPathName		;get length of dst pathname
		inx
		lda	C1_SrcPathName+1,x
		and	#$00FF
		cmp	#SEPARATOR		;GS/OS separator character
		bne	OKtoDel2
		dex
CheckLoop	lda	C1_DstPathName+1,x	;if DstPathName	matches	first part of
		and	#$00FF			;SrcPathName then error
		jsl	ToUpperCase
		pha				; save theChar
		lda	C1_SrcPathName+1,x
		and	#$00FF
		jsl	ToUpperCase
		cmp	1,s
		bne	OKtoDel
		pla				; remove theChar
		dex
		bne	CheckLoop

		pushlong #C1_Filename		;put the end of pathnameptr onto c1_filename
		pushLong #C1_SrcPathName
		jsl	PathGetName

		lda	#rasParents
		jsl	doAlertWindow
		beq	@cancel

		lda	#$8001
		brl	CommonDone

@cancel		lda	#$FFFF
		brl	CommonDone


;No problem - so ask user if duplicate file should be deleted. If so, delete it.

OKtoDel		pla				; remove theChar

OKtoDel2	lda	#C1_DstPathName
		sta	<PathNamePtr		;set up	ptr to dest pathname

		jsr	CommonCode		;get catalog, put up dialog, etc.
		bcc	@ok
		rts				;don't replace duplicate file
@ok

		ldy	#icFType
		lda	[<IconPtr],y		;get type of file being	copied
		cmp	#TypeFolder		;folder?
		beq	SaveType		;yes
		lda	#0			;no - so it's a regular file
SaveType	sta	<Error			;save the type

		ldy	#icFlag
		lda	[<IconPtr],y		;get Flag word from IconObj record
		ora	#ICDUP			;set bit in icon to indicate that
		sta	[<IconPtr],y		;this icon got a dup file error
		brl	DelDupFile		;delete	the duplicate file

;-------------------------------------------------------------------------------

CommonCode
		lda	<DelAllDups		;OK to replace the duplicate file?
		bpl	@replace
		brl	CommonDone		;no - don't replace any duplicate files
@replace
		pha				;space for fst result
		pha
		pha
		pha				;space for handle result
		pha
		pha				;space for integer result
		pha				;space for integer result
		pushlong #0
		PushZLong <PathNamePtr		;ptr to	pathname
		pea	0			;don't save filecount in first cat entry
		ldx	#xCatalog		;get catalog for duplicate file
		jsl	MiscEntry
		pla				;pull fst
		pla
		pla				;pull size info
		plx				;# of locked files
		pla				;num files in cat
		pla				;get cat handle
		sta	<NewCatHndl		;and save for later
		pla
		sta	<NewCatHndl+2
		bcc	NoCatErr

; JAM 5/17/89 (Fixing BRC #48728)
; If we got back an "access not allowed" error ($4E) here, then a file we are
;   copying or moving conflicted with a duplicate that resides within a drop folder.
; Change the error number to FICantMove and loop back around.

		cmp	#$4E
		sec				; restore the carry we may have clobbered
		beq	@RegError
		lda	#FICantMove
		brl	ProDosErr
@RegError
; end JAM 5/17/89 (BRC #48728)

		lda	#$FFFF			;got error in Catalog routine so cancel
		brl	CommonDone
NoCatErr

		txa				;any locked files in cat?
		beq	NotLocked		;no

		pushlong #C1_Filename		;put the end of pathnameptr onto c1_filename
		pushZLong <PathNamePtr
		jsl	PathGetName

		lda	#rasLocked1
		jsl	doAlertWindow
		
		cmp	#2
		beq	@goDisposeCat		;'OK' selected
		cmp	#1
		beq	@no
		lda	#$FFFF			;return	if 'No'	or 'Cancel' selected
		brl	DisposeCat
@no		lda	#$8001
		brl	DisposeCat
		
@goDisposeCat	jsr	DrawCopyControls	;put the controls back the way we last saw

		lda	<NumFiles
		ldy	#0
		jsr	DrawMsg

		lda	#1
		brl	CommonDone

NotLocked	lda	<DelAllDups		;OK to replace all duplicate files?
		beq	@askAboutReplace
		brl	CommonDone		;yes - so skip next dialog
@askAboutReplace

		pushlong #C1_Filename		;put the end of pathnameptr onto c1_filename
		pushZLong <PathNamePtr
		jsl	PathGetName

		lda	<NumFiles
		cmp	#2
		bge	@manyFiles

		lda	#rasRepFile
		jsl	doAlertWindow
		beq	@singleCancel

		jsr	DrawCopyControls	;put the controls back the way we last saw

		lda	<NumFiles
		ldy	#0
		jsr	DrawMsg

		lda	#2			;replace all
		brl	cantOpenWindow

@singleCancel	lda	copyWindowPtr+1
		beq	@noSingleCancel
		jsl	CloseCopyWindow

		stz	copyWindowPtr+1

@noSingleCancel	lda	#$FFFF			;single file canceled
		brl	cantOpenWindow

;
; if we have a whole lot of files to replace, do it with this huge dialog that no one
; really likes
;
@manyFiles	lda	>c1_filename
		xba
		sta	>c1_filename

		jsl	SaveCursor
		jsl	ArrowCursor
		jsl	WindowGlobalON

		pha
		pha
		lda #0
		pha
		pha				;titlePtr
		pha
		pha				;refCon is ptr to our window info block
		pha
		pha				;content draw proc
		pha
		pha				;window defproc
		pea	2			;refIsResource
		pha
		pea	5			;window resource we want
		pea	$800e			;rWindParam1
		_NewWindow2
		
		jsl	WindowGlobalOFF
		pulllong repWindowPtr
		bcc	@beepAtThem

;
; close the window only if something bad happened and we actually have a window pointer
; because something could have happened when we went to add controls (but didn't
; get created because we couldn't find the disk or the resource)
;
		lda	repWindowPtr+1
		beq	@leave

@done		jsl	CloseRepWindow

@leave		jsl	RestoreCursor

		lda	#$FFFF
		brl	cantOpenWindow

;
; now that we've set all the controls values, use doModalWindow to play with everything
;
@beepAtThem	pea	$c054
		_SysBeep2

@loop		pha
		pha
		pea	0
		lda	>finderTaskRecord
		pha			;push the task record's ptr
		lda #0
		pha
		pha			;update proc
		pea $8000
		pha			;eventHook
		pha
		pha			;beep proc
		pea	$c010		;flags
		_DoModalWindow

		pla
		plx
		cmp	#7
		blt	@loop

		sec
		sbc	#7
		asl 	a
		pha
		bne	@notCancel

		lda	copyWindowPtr+1
		beq	@notCancel
		jsl	CloseCopyWindow

		stz	copyWindowPtr+1
@notCancel

		jsl	restoreCursor
		jsl	CloseRepWindow

		lda	1,s
		beq	@noUpdate

		lda	copyWindowPtr+1
		beq	@noUpdate
		jsr	DrawCopyControls	;put the controls back the way we last saw

		lda	<NumFiles
		ldy	#0
		jsr	DrawMsg

@noUpdate	plx
		lda	buttonVals,x

cantOpenWindow	tax				;save button ID
		ror	a			;was one of the	'All' buttons selected?
		bcs	NotAll			;no
		stx	<DelAllDups		;yes - so save button ID for future
NotAll						;
		txa				;retrieve button ID
		bpl	CommonDone		;OK to replace duplicate file

DisposeCat	sta	<Error			;not OK	to replace duplicate file
		PushZLong <NewCatHndl
		jsl DisposeHandleGlue		;dispose of catalog
		lda	<Error			;get back button ID
CommonDone	asl	a			;set carry bit according to button ID
		rts

;
; locals
;
		EXPORT	repWindowPtr
repWindowPtr	dc.L	0			;our window's ptr
buttonVals	dc.w	$FFFF			;cancel		,id = 7
		dc.w	$8001			;skip		,id = 8
		dc.w	$0001			;replace	,id = 9
		dc.w	$8002			;skip all	,id = A
		dc.w	$0002			;replace all	,id = B

;-------------------------------------------------------------------------------

DelDupFile					;delete the duplicate	file

		PushZLong <CatHndl		;save current CatHndl
		PushZLong <CatPtr		;save current CatPtr
		PushZWord <CatIndex		;save current CatIndex
		lda	[<PathNamePtr]		;get length of pathname
		pha				;and save

		PushZLong <NewCatHndl		;put CatHndl of	dup file on stack

		lda	#$FFFF
		sta	<DeleteFlag		;indicate that we are deleteing	files

		lda	#1
		sta	<CatIndex		;used by GetNextCat
		jsr	GetNextCat		;get ptr to first entry	in catalog

		lda	[<CatPtr]		;is the	duplicate file a subdirectory?
		bne	Folder			;yes
		lda	<Error			;no - so check type of file being copied
		beq	TypeMatch		;it's not a subdir either so OK
		bra	TypeErr			;it is a subdir	so type	mismatch

Folder		lda	<Error			;check type of file being copied
		bne	TypeMatch		;it's a subdir also so OK

TypeErr		lda	#rasType
		jsl	doAlertWindow
		pha
		
		lda	copyWindowPtr+1
		beq	@noUpdate
		jsr	DrawCopyControls	;put the controls back the way we last saw

		lda	<NumFiles
		ldy	#0
		jsr	DrawMsg
@noUpdate	

		pla
		cmp	#2
		beq	typeMatch
		cmp	#1
		beq	@no
		lda	#$FFFF
		bra	DelQuit			;'No' or 'Cancel' selected
@no		lda	#$8001
		bra	DelQuit
TypeMatch

DelLoop		lda	[<CatPtr]		;is this cat entry for a subdirectory?
		bne	DelNext			;yes - so can't delete it until empty
		ldy	#2			;check flag word of cat	entry
		lda	[<CatPtr],y		;is this file locked?
		beq	DelFile			;no - so delete	it

		ldx	#SFISize-2
PushLoop	lda	FI_Params,x		;save current contents of FI_Params
		pha				;since needed later by DoFileCopy
		dex
		dex
		bpl	PushLoop

		lda	<PathNamePtr		;set up	ptr to correct pathname	for
		sta	FI_Name			;GetFileInfo and SetFileInfo
		lda	<PathNamePtr+2
		sta	FI_Name+2

		jsr	GetFileInfo2		;get file info for dup file
		bcs	DelErr			;got error
		lda	#$C3
		sta	FI_Access		;clear out access bits so file can
		pea	#0			; JAM 5/19/89 (Fixing BRC #48301)
		jsr	SetFileInfo		;be deleted
		ror	a			;save carry flag result
		tay				;until after restore FI_Params

		ldx	#0
PullLoop	pla
		sta	FI_Params,x		;restore previous contents of FI_Params
		inx
		inx
		cpx	#SFISize
		bcc	PullLoop

		tya				;restore carry flag result from
		rol	a			;SetFileInfo call
		bcs	DelErr			;got error during SetFileInfo call

DelFile		pea	#0			; JAM 5/19/89 (BRC #48301)
		jsr	DestroyFile		;delete	the file
		bcs	DelErr			;got error

DelNext		jsr	GetNextFile		;get next catalog entry
		bcs	DelDone			;done with catalog
		jsr	MakePathName		;make pathname for this	entry
		bcs	DelErr			;name too long
		bra	DelLoop			;loop until all	files in cat deleted

DelDone		clc				;clear out error result
		lda	#0			;indicate no error
DelErr
		ror	a			;get carry bit back into A
DelQuit
		sta	<Error			;save error info

		jsl DisposeHandleGlue		;dispose of catalog

		stz	<DeleteFlag		;clear flag

		pla
		sta	[<PathNamePtr]		;restore pathname length
		pla
		sta	<CatIndex		;restore CatIndex
		pla
		sta	<CatPtr			;restore CatPtr
		pla
		sta	<CatPtr+2
		pla
		sta	<CatHndl		;restore CatHndl
		pla
		sta	<CatHndl+2

		lda	<Error			;get error status back
		asl	a			;set carry bit if error, else clear
		rts

		ENDP


****************************************************************
*
* DrawThermo -- (A) contains value for thermodial
*	     	(X) if negative means always update
*
****************************************************************

DrawThermo	PROC

		ldy	copyWindowPtr+1
		bne	@haveWindow
		rts
@haveWindow

		txy
		bmi	@always
		cmp 	lastThermo		;the last time so we avoid some flicker
		beq	@same

@always		sta	lastThermo		;if it wasn't, make it


		pha				;(A) on stack for _SetCtlValue
		pha
		pha
		pushlong copyWindowPtr
		pushlong #3
		_GetCtlHandleFromID
		_SetCtlValue			;set the thermo dial
@same		rts

;
; locals
;
		EXPORT	lastThermo
lastThermo	dc.w	0
		ENDP

****************************************************************
*
* DrawMsg -- (A) contains the low word for count
*	     (Y) contains the high word for the count
*
****************************************************************

DrawMsg		PROC

		IMPORT	SizeToString

		ldx	copyWindowPtr+1
		bne	@haveWindow
		rts

@haveWindow	jsr	DrawNumItems		;feed (A) & (Y) to DrawNumItems
		
@same		pha
		pushZLong <RWPtr
		_StringWidth
		pla
		clc
		adc	#19

		ldx	#$54			;a MINIMUM of $54 pixels over to the right
		cmp	#$54
		blt	@minimum
		tax
@minimum	stx	nameRect+2
		stx	rwRect+6		;erase this far from end of "Read/Write/Copy"

		pea	15
		pea	30
		_MoveTo

		pushZLong <RWPtr
		_DrawString

		pushlong #thePoint
		_GetPen

		lda	thePoint+2
		sta	rwRect+2
		cmp	#$54
		bge	@noflickerRW

		pushlong #rwRect
		_EraseRect
@noFlickerRW

		lda	nameRect+2
		pha
		pea	30
		_MoveTo

		lda	[<fileNamePtr]		;mask the high bit off the length byte because if the name is
		pha				;a translated name, this keeps it from displaying garbage because of the
		and	#$FF7F			;high bit.
		sta	[<fileNamePtr]

		pushZLong <FileNamePtr
		_DrawString

		pla
		sta	[<FileNamePtr]
		
		pushlong #thePoint
		_GetPen

		lda	thePoint+2
		sta	nameRect+2
		
		pushlong #nameRect
		_EraseRect		
		rts

****************************************************************
*
* DrawNumItems -- (A) contains the low word for count
*	     	  (Y) contains the high word for the count
*
****************************************************************

		EXPORT	drawNumItems
DrawNumItems
		sta	num
		sty	num+2
		
		pushlong #numberStr
		pushlong num
		pea	0			;plain
		pea	512			;blocksize (doesn't matter)
		jsl	SizeToString

		pha
		pushlong #numberStr
		_StringWidth
		pla
		lsr	a
		sta	numberWidth

		lda	#369			;find the left side of the number
		sec
		sbc	numberWidth
		sta	numRectLeft+6

		pushlong #numRectLeft		;erase from the left edge to the left side of the number
		_EraseRect

		lda	numRectLeft+6
		pha
		pea	13
		_MoveTo

		pushlong #numberStr		;draw the number
		_DrawString
		
		pushlong #thePoint		;erase from the right side of the number to the end of
		_GetPen				;our old rectangle
		
		lda	thePoint+2
		sta	numRectRight+2
		pushlong #numRectRight
		_EraseRect
		rts
		
;
; locals
;
num		dc.L	0
width		dc.w	0
rwRect		dc.w	20,15,31,364	;second x coordinate gets blasted
nameRect	dc.w	20,$54,31,364	;first x coordinate gets blasted
numRectLeft	dc.w	5,328,14,410
numRectRight	dc.w	5,328,14,410
numberStr	ds.b	10
numberWidth	dc.w	0
thePoint	dc.L	0

		ENDP

****************************************************************
*
* oStdEnd0
*
****************************************************************

oStdEnd0	PROC

		ldy	#0			;# bytes of param to strip
		jml	oEndCall

		ENDP

****************************************************************
*
* StdEnd
*
****************************************************************

StdEnd		PROC
		
		IMPORT	RestoreCursor

		jsl	RestoreCursor
		plb				;restore data bank

		ldy	<NumParams		;# of bytes of parameters to strip
		ldx	<Error			;returning an error?
		bne	RetErr			;yes
		jml	EndCall			;standard end call

RetErr		jml	ErrOut			;error end call

		ENDP

;===============================================
;
; RestartSession
;
; Preserves p and a-reg.
;
; If the error is $54 (memory full for OS) then
; we look at the session status and if session
; is on we do a stop and start sessions which
; should flush some buffers.
;
; Calling routine can then retry and maybe it
; will work the second time. (we hope.)
;
;===============================================
RestartSession	PROC

		php				; save p
		pha				; and a-reg

		cmp	#$54			; is error 54?
		bne	exit			; nope, alldone
		stz	session_stat
		jsl	ProDOS			;get session status
		DC.W	SESSION_STATUS+C1
		DC.L	session_list

		lda	session_stat
		beq	exit

ShutItDown	jsl	ProDOS			;stop_session to flush buffers
		DC.W	END_SESSION+C1
		DC.L	session_call

		jsl	ProDOS			;restart session
		DC.W	BEGIN_SESSION+C1
		DC.L	session_call		; and try again...
exit		pla				; restore a-reg
		plp				; restore p
		rts				; fini

		ENDP

; CopyUpdate -- just draw the controls in the copy window
;.....................................................................

		EXPORT	CopyUpdate
CopyUpdate	PROC

		phb
		phk
		plb

		pushlong copyWindowPtr
		_DrawControls

		plb
		rtl
		ENDP


; DrawCopyControls -- call CopyUpdate to do our updates for us so that
;		      taskMaster doesn't ever do updates for the copy window
;.....................................................................


		EXPORT	DrawCopyControls
DrawCopyControls PROC

		IMPORT	CopyUpdate

		lda	copyWindowPtr+1
		beq	@done

		pushlong copyWindowPtr
		_BeginUpdate

		jsl	CopyUpdate

		pushlong copyWindowPtr
		_EndUpdate
@done		rts
		ENDP

;
; turn window fram redraw back on
;.....................................................................

WindowGlobalON	PROC	EXPORT	
		
		pha
		pea	1
		_WindowGlobal
		pla
		rtl

;
; turn window frame redraw off
;
		EXPORT WindowGlobalOFF
WindowGlobalOFF
		pha
		php
		
		pha
		pea	$FFFE
		_WindowGlobal
		pla

		plp
		pla
		rtl
		ENDP
		
		END

\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Finder/Finder b/IIGS.601.SRC/A.U.G/Finder/Finder
new file mode 100644
index 0000000..2dac485
Binary files /dev/null and b/IIGS.601.SRC/A.U.G/Finder/Finder differ
diff --git a/IIGS.601.SRC/A.U.G/Finder/Finder.equ b/IIGS.601.SRC/A.U.G/Finder/Finder.equ
new file mode 100644
index 0000000..07bb5f0
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Finder/Finder.equ
@@ -0,0 +1 @@
+*===============================================*
* File:		Finder.equ			*
* Project:	IIGS Finder			*
* Build file:	Finder.Make			*
*						*
* This contains all the generic equates for all *
* of the source files used by the Finder.	*
*						*
* © Copyright Apple Computer, Inc. 1988-92	*
* All rights reserved.				*
*						*
*===============================================*

		BLANKS	OFF			;...because SOMEONE forgot the ';'s !!!

;.....................................................................
;
; IMPORTANT NOTE!
;
; In order to find out where to pad the Finder with zeroe's so it sparses
; the best on a ProDOS disk, search for 'PADDING' -- the areas where padding was added are
; clearly marked.
;
; andy, 2/10/92
;
;.....................................................................


;
; GrafPort stuff
;
visRgnOffset	equ	$1c
		
;================================================
;	GS/OS System Constants
;================================================

ProDOSFST	equ	1
DOS33FST	equ	2
DOS32FST	equ	3
PascalFST	equ	4
MFSFST		equ	5
HFSFST		equ	6
LisaFST		equ	7
CPMFST		equ	8
MSDOSFST	equ	10
HighSierraFST	equ	11
ISO9660FST	equ	12
AppleShareFST	equ	13

PRODOS		equ	$E100A8
GS_OS		equ	$E100A8
GS_OS_STACK	equ	$E100B0
INCBUSYFLAG	equ	$E10064
DECBUSYFLAG	equ	$E10068

C1		equ	$2000			;mask for Class1 calls

CREATE		equ	$01
DESTROY		equ	$02
OS_SHUTDOWN	equ	$03
CHANGE_PATH	equ	$04
SET_FILE_INFO	equ	$05
GET_FILE_INFO	equ	$06
VOLUME		equ	$08
SET_PREFIX	equ	$09
GET_PREFIX	equ	$0A
CLEAR_BACKUP	equ	$0B
SET_SYS_PREFS	equ	$0C
NULL		equ	$0D
EXPAND_PATH	equ	$0E
GET_SYS_PREFS	equ	$0F
OPEN		equ	$10
NEWLINE		equ	$11
READ		equ	$12
WRITE		equ	$13
CLOSE		equ	$14
FLUSH		equ	$15
SET_MARK	equ	$16
GET_MARK	equ	$17
SET_EOF		equ	$18
GET_EOF		equ	$19
SET_LEVEL	equ	$1A
GET_LEVEL	equ	$1B
GET_DIR_ENTRY	equ	$1C
BEGIN_SESSION	equ	$1D
END_SESSION	equ	$1E
SESSION_STATUS	equ	$1F
GET_DEV_NUMBER	equ	$20
GET_LAST_DEV	equ	$21
READ_BLOCK	equ	$22
WRITE_BLOCK	equ	$23
FORMAT		equ	$24
ERASE_DISK	equ	$25
GET_NAME	equ	$27
GET_BOOT_VOL	equ	$28
QUIT		equ	$29
GET_VERSION	equ	$2A
GET_FST_INFO	equ	$2B
D_INFO		equ	$2C
D_STATUS	equ	$2D
D_CONTROL	equ	$2E
D_READ		equ	$2F
D_WRITE		equ	$30
ALLOC_INT	equ	$31
DEALLOC_INT	equ	$32
BIND_INT	equ	$31
UNBIND_INT	equ	$32
FST_SPECIFIC	equ	$33

MaxFileName	equ	31
MaxPathLen	equ	1022-MaxFileName
SEPARATOR	equ	$3A		;separator character for pathnames (class 1)

;
; Offsets for Class1 date record (create date, mod date) (JAM 8/1/88)
;
OSDateSecond	equ	0
OSDateMinute	equ	1
OSDateHour	equ	2
OSDateYear	equ	3
OSDateDay	equ	4
OSDateMonth	equ	5
OSDateNull	equ	6
OSDateWeekday	equ	7

;
; -- Device icon types (icFType) (the only types that can open to windows) --
;
TypeTrash	equ	$FFFF			Empty trash can.
TypeFTrash	equ	$FFFE			Trash can with something in it (Fat).
TypeHard	equ	$FFFD			Hard disk.
TypeFloppy	equ	$FFFC			Floppy disk.
Type3_5		equ	$FFFB			3.5" disk.
TypeRAM		equ	$FFFA			RAM disk.
TypeFDrive	equ	$FFF9			Floppy drive.
TypeCDROM	equ	$FFF8			CD ROM drive.
TypeTape	equ	$FFF7			Tape drive. 
TypeSCSI	equ	$FFF6			SCSI generic.
TypeServer	equ	$FFF5			File server.
TypeNetwork	equ	$FFF4			Network generic
TypeHardPart	equ	$FFF3			Hard disk partition.
TypeCDROMPart	equ	$FFF2			CD ROM partition.
TypeSCSIPart	equ	$FFF1			SCSI partition.
TypeExtension	equ	$FFF0			Icon owned by a Finder Extension (DAL)
TypeLastOne	equ	$FFF0			used to compare against

TypeFolder	equ	$000F			filetype of a directory

; --- Preference bits in 'prefer' ------------------------------------

PREF_AUTO525	equ	$0001			TRUE to automatically check 5.25" drives
PREF_SHOWDISK	equ	$0002			TRUE to	check show disk info in header
PREF_COLOR	equ	$0004			TRUE to	color background of icons.
PREF_DATA	equ	$0008			TRUE to	write Finder data files.
PREF_HDATA	equ	$0010			TRUE to	hide Finder data files.
PREF_SHOWDATE	equ	$0020			TRUE to show date in list views
PREF_SHOWSIZE	equ	$0040			TRUE to show size in list views
PREF_SHOWKIND	equ	$0080			TRUE to show kind in list views
PREF_ALL	equ	$00FF			ALL bits set (default) (view by icon)

; --- RECT record offsets ------------------------------------------------
y1		equ	0
x1		equ	y1+2
y2		equ	x1+2
x2		equ	y2+2
RECTSIZE	equ	x2+2

; --- Task Master return codes ------------------------------------
inNull		equ	$00			No further action required.
inButtDwn	equ	$01			Button down event.
inButtUp	equ	$02			Button up event.
inKey		equ	$03			Key event.
inAutoKey	equ	$05			Auto-Key event.
inUpdate	equ	$06			Update event.
inActWind	equ	$08			Activate window	event.
inSwitch	equ	$09			Switch event.
inAccess	equ	$0A			Desk Accessory event.
inDevice	equ	$0B			Device driver event.
wInDesk		equ	$10			On the desktop.
wInMenuBar	equ	$11			In system menu bar
wInSysWind	equ	$12			In system window (desk accessory).
wInContent	equ	$13			In a content region.
wInDrag		equ	$14			In a drag region.
wInGrow		equ	$15			In a grow (size) region.
wInGoAway	equ	$16			In a go-away (close box) region.
wInZoom		equ	$17			In a zoom (zoom	box) region.
wInInfo		equ	$18			In the information bar.
wInFrame	equ	$1B			In window frame	(scroll	bars).
wInactMenu	equ	$1C			Inactive menu item selected.

; --- Window frame flags ------------------------------------------------
F_VIS		equ	$0020

; ------ ICONBLK record offsets --------------------------------------
IBlkNext	equ	0			Handle of next ICONBLK.
IBlkID		equ	IBlkNext+4		ID number.
IBlkPath	equ	IBlkID+2		Handle of pathname file	came from. 
IBlkName	equ	IBlkPath+4		Name of	file ICONBLK came from.
IBlkIcons	equ	IBlkName+16		First ICON record.

; ------ ICONDATA record offsets -------------------------------------------
iDataLen	equ	0			Length of this ICON record.
iDataBoss	equ	iDataLen+2		Name of	application that owns this.
iDataName	equ	iDataBoss+64		File name assoicated with this icon.
iDataType	equ	iDataName+16		File type assoicated with this icon.
iDataAux	equ	iDataType+2		File type assoicated with this icon.
iDataBig	equ	iDataAux+2		Normal icon image.

; --------- ICON record offsets --------------------------------------------
imType		equ	0			Flags, (zero, not defined).
imSize		equ	imType+2		Number of bytes	in image buffer.
imHeight	equ	imSize+2		Height of icon image in	pixels.
imWidth		equ	imHeight+2		Width of icon image in pixels (4 bits @).
imImage		equ	imWidth+2		Icon image data.

; ------ iconFlag equates ----------------------------------------------
NOMASK		equ	$8000			1 = no mask, copy image, 0=mask.

		INCLUDE	'IconObj.equ'

;
; ----- Data file types and version numbers -----------------------------
;
DATAFTYPE	equ	$00C9			;Finder data file type.
ICON_TYPE	equ	$00CA			;File type of icon files.
FinderVer	equ	$0002			;Finder version number.
OldRootVer	equ	$0003			;Version of previous Finder.Root files which we can read
RootVer		equ	$0004			;Version of FINDER.ROOT files that are native to this Finder

; --- Window ID numbers (windID field of window's info block) -------------
NoWindID	equ	$0000			;No window
SysWindID	equ	$0001			;System window
DirWindID	equ	$0002			;Directory window
TrashWindID	equ	$0004			;Trash window
ClipWindID	equ	$0008			;Clipboard window
InfoWindID	equ	$0010			;Info window
VerifyWindID	equ	$0020			;Verify window
aboutWindID	equ	$0040			;about window
helpWindID	equ	$0080			;help window

; --- File Routine Call Numbers ----------------------------------
xFileStartUp	equ	1
xCopyFiles	equ	2
xCopyDisk	equ	3
xDeleteFiles	equ	4
xDupFiles	equ	5

; --- Cursor call numbers ----------------------------------------
watch		equ	$0A12
arrow		equ	$CA04

; --- Misc Routine Call Numbers ----------------------------------
xMiscStartup	equ	1
xDiskScan	equ	2			;not in hack! DJB
xMakeDIBs	equ	3			;not in hack! DJB
xSetDialMax	equ	4
xCatalog	equ	5
xStartCatalog	equ	6
xNextCatalog	equ	7
xEndCatalog	equ	8
xCallDialog	equ	9
xGetName	equ	10
xSetRadioBtn	equ	11
xGetRadioBtn	equ	12
xDrawIcon	equ	13

;================================================
;	Equates for Finder's Dialog Boxes
;================================================

xNewDialog	equ	0			;function numbers for CallDialog routine
xEndDialog	equ	2
xChangeDialog	equ	4
xStartDialog	equ	6
xMonitorDialog	equ	8
xModifyMLDialog	equ	10
xCheckMLDialog	equ	12
xStartMLDialog	equ	14

; diaInit	equ	0			;Dialog numbers
; diaInTrash	equ	2
; diaInitErr1	equ	4
; diaInitErr2	equ	6
; diaDiskName	equ	8
; diaAbout	equ	10
; diaEdit	equ	12
; diaDirWind	equ	14
; diaSelIcon	equ	16
; diaAnyWind	equ	18
; diaSelFile	equ	20
; diaDragOff	equ	22
; diaDiskIn	equ	24
; diaFileBusy	equ	26
; diaNoApp2	equ	28
; diaErase	equ	30
; diaTooLong	equ	32
; diaDragErr1	equ	34			Trash can not be dragged onto...
; diaDragErr2	equ	36			Disks can only be dragged onto other...
; diaDragErr3	equ	38			Only disk icons	can be dragged...
; diaSysErr	equ	40			;dialog	indexes
; diaWP		equ	42			The disk 'VOLNAME' is write-protected.
; diaInsDisk	equ	44			Please insert the disk 'VOLNAME'.
; DiaRepFile	equ	46
; diaVolFull	equ	48			Volume full.
; diaDirFull	equ	50			Directory full.
; diaNoRead1	equ	52
; diaChPath	equ	54
; diaCopying	equ	56
; diaParents	equ	60
; diaType	equ	62
; diaRepDisk	equ	64
; diaLocked1	equ	66
; diaLocked2	equ	68
; diaFolder	equ	70
; diaNoRoom	equ	72
; diaDCopy	equ	74
; diaUnknown	equ	76
; diaNoMem	equ	78
; diaFCopy	equ	80
; diaNoApp	equ	82
; diaNumBlks	equ	84
; diaNameDup	equ	88
; diaNameUsed	equ	90
; diaBadName	equ	92
; diaNoNames	equ	94
; diaNonRemove	equ	96			;added 08/01/88 DJB
; diaPrefer	equ	98
; diaWarnDel	equ	100
; diaTransFile	equ	102			;changed 08/03/88 DJB
; diaHelp	equ	104
; diaHelpMain	equ	106
; diaHelp1	equ	108
; diaHelp2	equ	110
; diaHelp3	equ	112
; diaHelp4	equ	114
; diaHelp5	equ	116
; diaHelp6	equ	118
; diaInit2	equ	120
; diaNoMedia	equ	122
; diaDupVolErr	equ	124			;added 08/01/88 DJB
; diaNoRead2	equ	126
; diaRenameErr	equ	128
; diaCopyErr	equ	130
; diaGetBoot	equ	132
; diaRenameErr2	equ	134			That name is already taken.  Please use	a differ...
; diaDragErr4	equ	136			Drive icons cannot be moved onto....
; diaCanntDup	equ	138			Icons in the Trash and desktop cannt be	duplicated...
; diaNoMount	equ	140			Cannot open items in Trash...
; diaDupDev	equ	142			Devicves of the	same name can't be on the desktop...
; diaDesErr	equ	144			Icons can't be dragged on to windows other than...
; diaRenameErr3	equ	146			Icons in the Trash and desktop cannt be	renamed...
; diaMemErr	equ	148			There isn't enough memory remaining to comnplete...
; diaOddCouple	equ	150			Those items can't all be opened/printed at once,
; diaRenameErr4	equ	152			The item is locked and can't be renamed.
; diaMaxWinds	equ	154			No more	windows	can be opened.
; diaIOErr	equ	156
; diaDragFold	equ	158			Folders	can't be dragged to the desktop.
; diaTooMany	equ	160
; diaVerify	equ	162
; diaVerifyGood	equ	166
; diaVerifyBad	equ	168
; diaShutDown	equ	170
; diaValid	equ	172
; diaValidGood	equ	176
; diaValidBad	equ	178
; diaShutDown2	equ	180
; diaSharedVol	equ	182			; added DJB 12/01/88
; diaNoAccess	equ	184			; added DJB 12/01/88
; diaNoAccess2	equ	186			; added DJB 12/06/88
; diaCantMove	equ	188			; JAM 5/17/89 - fixing BRC #48728
; diaCantSee	equ	190			; JAM 5/18/89 - fixing BRC #48727
; diaNoPrivs	equ	192			; JAM 5/30/89 - fixing SEG-F-0008
; diaSomeSkipped  equ     194                     ; Mensch 06/05/89
; diaTransOrElse  equ     196                     ; JAM 06/07/89 - Fixing BRC #50355



;================================================
;	Window constants
;================================================

;---- Miscellaneous window-related constants --- 5/16/89 JAM
WOpenThreshhold	equ	$C000			; amount of free RAM we need to open window
; ^^^ THIS IS A MAGIC NUMBER AND SHOULD BE REVISTED WITH EVERY SIGNIFICANT SYSTEM REVISION (jam)
WOpenMaximum	equ	20			; maximum number of open windows

;---- Info Window Coordinates ------ Added 05/18/88 DJB
infoDY		equ	74			;height
infoY1		equ	30
infoY2		equ	infoY1+infoDY
infoDX		equ	400			;width
infoX1		equ	20
infoX2		equ	infoX1+infoDX

;---- Verify Window Coordinates ------ Added 05/18/88 DJB
verifyY1	equ	80
verifyY2	equ	132
verifyX1	equ	20
verifyX2	equ	300

;---- Directory Window Coordinates ------ Added 07/20/88 DJB
dfltWinY1	equ	39
dfltWinY2	equ	dfltWinY1+64
dfltWinX1	equ	14
dfltWinX2	equ	dfltWinX1+344

;---- Zoomed Window Coordinates ------ Added 07/25/88 DJB
zY1		equ	36
zY2		equ	200-14
zX1		equ	4
zX2		equ	640-110			;don't cover up volume icons...

;------------------------------------------
;
;	Errors
;
;------------------------------------------
noGSIcons	equ	$0002			Unable to find Finder's icons.
noTools		equ	$0003			Unable to load necessary tools.
noMemory	equ	$0004			Not enough memory to run Finder.
badIcons	equ	$0005			Bad icon file format.

; JAM 5/17/89 (fixing BRC #46359, from Mensch research)
FINameTooLong	equ	$FE01			; Finder Internal Error: pathname too long
; end JAM 5/17/89
; JAM 5/17/89 (fixing BRC #48728)
FICantMove	equ	$FE02			; Finder Internal Error: dup conflicts w/locked copy
; end JAM 5/17/89
; JAM 5/30/89 (fixing BRC #48728)
FINoPrivs	equ	$FE03			; Finder Internal Error: insufficient privs to complete task
; end JAM 5/30/89

;
; --- Record offsets for FINDER.DATA files -------------------------------
;
FDid		equ	0
FDsize		equ	FDid+2
FDyOrg		equ	FDsize+8
FDxOrg		equ	FDyOrg+2
FDview		equ	FDxOrg+2
FDiconPos	equ	FDview+2

IPOSflag	equ	0
IPOSy		equ	IPOSflag+2
IPOSx		equ	IPOSy+2
IPOSname	equ	IPOSx+2
IPOSSIZE	equ	IPOSname+16

;
; new offsets for Finder 6.0 Finder.Data files
;
FDataVersion	equ	0		;word, finder.data version (2), can't move
FDataRect	equ	FDataVersion+2	;rect, the rectangle for Finder.Data
FDataYOrigin	equ	FDataRect+8	;word
FDataXOrigin	equ	FDataYOrigin+2	;word
FDataView	equ	FDataXOrigin+2	;word
FDataZoomRect	equ	FDataView+2	;rect, window's zoomed TO rectangle
FDataInfoBar	equ	FDataZoomRect+8	;word, does info bar include the info bar?
FDataReserved1	equ	FDataInfoBar+2	;long
FDataReserved2	equ	FDataReserved1+4 ;long
FDataItems	equ	FDataReserved2+4 ;word, number of records (items)
FDataRecSize	equ	FDataItems+2 	;long, total number of bytes used by records
FDataStartAt	equ	FDataRecSize+4	;word, offset that the records start at
FDataSize	equ	FDataStartAt+2	

IconPOSLength	equ	0		;word, length of record
IconPOSColor	equ	IconPOSLength+2	;word, icon's color (in high byte)
IconPOSy	equ	IconPOScolor+2	;word, icon's y position
IconPOSx	equ	IconPOSy+2	;word, icon's x position
IconPOSname	equ	IconPOSx+2	;pString for filename
IconPOSsize	equ	IconPOSname+32

;
; Port offsets
;
PortInfo	equ	0
PortSCB		equ	PortInfo
PixelImage	equ	PortSCB+2
PixelWidth	equ	PixelImage+4
BoundsRect	equ	PixelWidth+2
PortRect	equ	BoundsRect+8
ClipRgn		equ	PortRect+8
visRgn		equ	ClipRgn+4

;
; --- Directory entry offsets -------------------------------------------
;
DirName		equ	0
DirFType	equ	DirName+34
DirKey		equ	DirFType+1
DirSize		equ	DirKey+4
DirEOF		equ	DirSize+4
DirCDate	equ	DirEOF+4
DirVersion	equ	DirCDate+8
DirAccess	equ	DirVersion+2
DirAuxType	equ	DirAccess+2
DirModDate	equ	DirAuxType+2
DirEntrySize	equ	DirModDate+8

;
; ----- Icon demension equates -------------------------------------------
;
TITLE_H		equ	8			Height of icon title.
textLeft	equ	10			X coordinate of	icon in	view by	text.

		INCLUDE 'windowBlk.equ'		;window block equates

;
;--- Menu equates ------------------------------
;
APPLEID		equ	1			; Menu Title ID	numbers
FILEID		equ	APPLEID+1
EDITID		equ	FILEID+1
VIEWID		equ	EDITID+1
DISKID		equ	VIEWID+1
SPECIALID	equ	DISKID+1
COLORID		equ	SPECIALID+1

idAppleMenu	equ	300
idFileMenu	equ	350
idEditMenu	equ	400
idWindowsMenu	equ	450
idViewMenu	equ	500
idDiskMenu	equ	550
idSpecialMenu	equ	600
idColorMenu	equ	650

idAbout		equ	idAppleMenu+1		; id's for Apple menu items
idHelp		equ	idAbout+1

idNewFolder	equ	idFileMenu+1		; id's for file menu items
idOpen		equ	idNewFolder+1
idPrint		equ	idOpen+1
idClose		equ	idPrint+1
idCloseAll	equ	idClose+1
idDuplicate	equ	idCloseAll+1
idPutAway	equ	idDuplicate+1
idValidate	equ	idPutAway+1

idUndo		equ	250			; id's for file menu items
idCut		equ	251			; (defined by system)
idCopy		equ	252
idPaste		equ	253
idClear		equ	254
idSelectAll	equ	idEditMenu+1
idShowClip	equ	idSelectAll+1

idStackWindows 	equ	idWindowsMenu+1
idWindowsDivider equ	idStackWindows+1
idNoWindowsOpen	equ	idWindowsDivider+1

idByIcon	equ	idViewMenu+1		; id's for view menu items
idByTinyIcon	equ	idByIcon+1
idByName	equ	idByTinyIcon+1
idByDate	equ	idByName+1
idBySize	equ	idByDate+1
idByKind	equ	idBySize+1
idByColor	equ	idByKind+1

idFormat	equ	idDiskMenu+1		; id's for disk menu items
idErase		equ	idFormat+1
idVerify	equ	idErase+1
idEject		equ	idVerify+1

idCleanUp	equ	idSpecialMenu+1		; id's for special menu items
idEmptyTrash	equ	idCleanUp+1
idPreferences	equ	idEmptyTrash+1
idIconInfo	equ	idPreferences+1
idShutDown	equ	idIconInfo+1
idCleanUpByName	equ	idShutDown+1

idColor_0	equ	idColorMenu+1
idColor_1	equ	idColor_0+1
idColor_2	equ	idColor_1+1
idColor_3	equ	idColor_2+1
idColor_4	equ	idColor_3+1
idColor_5	equ	idColor_4+1
idColor_6	equ	idColor_5+1
idColor_7	equ	idColor_6+1
idColor_8	equ	idColor_7+1
idColor_9	equ	idColor_8+1
idColor_A	equ	idColor_9+1
idColor_B	equ	idColor_A+1
idColor_C	equ	idColor_B+1
idColor_D	equ	idColor_C+1
idColor_E	equ	idColor_D+1
idColor_F	equ	idColor_E+1

idDashedLine	equ	$FFFE

menuCount	equ	5			; count of menus (excluding Apple and color)
I_COLORS	equ	idColorMenu+1		; Color menu item ID numbers.

MENUENABLE	equ	$FF7F
MENUDISABLE	equ	$0080
ITEMENABLE	equ	$FF7F
ITEMDISABLE	equ	$0080

;
; ------ Message record offsets ---------------
;
messNext	equ	0
messType	equ	messNext+4
messData	equ	messType+2

;
; ------ Message actions ----------------------
;
AddMessage	equ	1
GetMessage	equ	2
DelMessage	equ	3

;
; ------ Message types -----------------------------------------
;
FilesMessage	equ	1
DeskMessage	equ	2
TopMessage	equ	3
LongFilesMessage equ 	$11

;
; --- Delete call flags -----------------------------------------------------
;
InTrashFlag	equ	0		;Dragging into Trash.
EmptyFlag	equ	$8000		;Deleting files from Trash.

;--- Line Edit Record Offsets ----------

LEtext		equ	0
LElength	equ	LEtext+4
LEmaxLen	equ	LElength+2
LEdesRect	equ	LEmaxLen+2
LEviewRect	equ	LEdesRect+8


;--- Icon State Flag Settings ----------

iconAny		equ	$0001		;any icon is selected
iconFile	equ	$0002		;file or folder icon is selected
iconDisk	equ	$0004		;disk icon is selected
iconDocument	equ	$0008		;document icon is selected
iconExtended	equ	$0010		;extended icon is selected
iconRemovable	equ	$0020		;removable icon is selected
iconLocked	equ	$0040		;locked icon is selected
iconServer	equ	$0080		;server icon is selected
iconOffline	equ	$0100		;offline icon is selected
iconNoAccess	equ	$0200		;icon with out read access is selected
iconDrive	equ	$0400		;5.25 drive icon is selected
iconTrash	equ	$0800		;trash icon is selected
iconFloppy	equ	$1000		;5.25" disk (not drive) icon is selected
iconInLocked	equ	$2000		;Icon is in (or is) a device which is locked or read-only
iconInTrash	equ	$4000		;Icon is in the trashcan

;--- Window State Flag Settings --------

winTrashFull	equ	$0001		;something in the trash window
winAny		equ	$0002		;there are any visible windows
winTopDir	equ	$0004		;directory window on top
winTopTrash	equ	$0008		;trash window on top
winTopSys	equ	$0010		;system window on top
winTopClip	equ	$0020		;clip window on top
winTopInfo	equ	$0040		;info window on top
winTopText	equ	$0080		;view by text directory window on top
winDeskTop	equ	$0100		;desktop only (no visible windows)
winTopAbout	equ	$0200		;about window on top
winTopHelp	equ	$0400		;help window on top
winNoFinder	equ	$0800		;no finder windows open
winOffline	equ	$1000		;top dir window is offline
winLocked	equ	$2000		;top dir window is locked
winTopVerify	equ	$4000		;top window is a verify or validate window

;
; view numbers
;
viewByIcon	equ	$0
viewBySmallIcon	equ	$1
viewByName	equ	$2
viewByDate	equ	$3
viewBySize	equ	$4
viewByKind	equ	$5


; --- Finder default file offsets ------------------------------------
defPrefer	equ	0
defPattern	equ	defPrefer+2
DEF_SIZE	equ	defPattern+16

modifier	equ	14

FDataBufSize	equ	5000

;--- offsets for view by text windows ---------

dxViewDate	equ	420
dxViewKind	equ	264
dxViewsize	equ	dxViewKind-40
dxViewName	equ	16


; Mensch 5/21/89 (Fixing BRC #49175)
; Structure of the OptionBuff returned from GetDirEntry
olByteCount	equ	0			; size in bytes
olBytesReturned equ	olByteCount+2
olFileSysID	equ	olBytesReturned+2
olFinderInfo	equ	olFileSysID+2
olParentID	equ	olFinderInfo+32
olPrivileges	equ	olParentID+4

; -------- Miscellaneous Constants & Finder Limitations --------

MinMemory	equ	8	; JAM 06/06/89	number of banks in minimum config. system
MaxExtensions	equ	100

; -------- equates for finder-request handlers to return --------

frqErrNoError	equ 0
frqErrBadInput	equ $4201
frqErrFailed	equ $4202
frqErrCancel	equ $4203
frqErrNotImp	equ $42FF
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Finder/Finder.make b/IIGS.601.SRC/A.U.G/Finder/Finder.make
new file mode 100644
index 0000000..7627df6
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Finder/Finder.make
@@ -0,0 +1 @@
+# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # 
#   File:       Finder.make
#   Target:     Finder
#   Sources:    See CODE variable below...
#   Created:    Wednesday, June 15, 1988 2:05:00 PM - DJB
#
#	Build the IIGS Finder.
#
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # 

#	These are the directories for our components.

SrcDir	=	':'
ObjDir	=	':Objects:'
LstDir	=	':Listings:'

#	This variable is the kind for the code load segments.
#	No special memory to allow us to hopefully use the shadowed screen

KIND	=	$1000
BANKKIND =	$1100

#	Set this variable to the name of the target load file.

LOADFILE	=	Finder

#	Set this variable to any AsmIIGS options you want (eg -L ).

AOPTIONS	= -D DEBUGSYMBOLS=0 -D AllowServerCopies=0 -D AllowSmartDesktop=0

#	Set this variable to any LinkIIGS options you want (eg -L ).

LOPTIONS	=

#	Set this variable to any RezIIGS options you want (eg -p).

ROPTIONS 	=

#	Add any new files for the code segment here.

MAIN	=	{ObjDir}Main.obj		¶
			{ObjDir}Request.obj		¶
			{ObjDir}Icons.obj		¶
			{ObjDir}Menu.obj		¶
			{ObjDir}Drives.obj		¶
			{ObjDir}Util.obj		¶
			{ObjDir}Data.obj		¶
			{ObjDir}Misc.obj

VERIFY	=	{ObjDir}Verify.obj

MATCH	=	{ObjDir}Match.obj

INFO	=	{ObjDir}GetInfo.obj

CONTROL	=	{ObjDir}Common.obj

ALERT	=	{ObjDir}Alert.obj

BUFFERS	=	{ObjDir}Buffers.obj

CODE	=	{ObjDir}GSOS.obj		¶
			{ObjDir}Utility.obj		¶
			{ObjDir}File.obj		¶
			{ObjDir}FiFiFiTwo.obj


#	This defines the files used in the data segment.

DATA	=	{ObjDir}Strings.obj


#	This define the files used for resources

RESOURCES = {SrcDir}Finder.rez		¶
			{SrcDir}Finder.rez.equ	¶
			{SrcDir}about.rez		¶
			{SrcDir}help.rez		¶
			{SrcDir}dialog.rez		¶
			{SrcDir}main.rez		¶
			{SrcDir}prefs.rez		¶
			{SrcDir}icons.rez		¶
			{SrcDir}shutdown.rez	¶
			{SrcDir}dialog.rez		¶
			{SrcDir}KeyboardNav:KeyboardNavRsrc

#	The object directory is dependant on the source directory

{ObjDir}	Ä	{SrcDir}

{LoadFile} ÄÄ {LoadFile}.data {LoadFile}.rsrc
	if {AutoDuplicate} == 1
		DuplicateIIgs -y -mac Finder :
	End

{LoadFile}.data	ÄÄ {MAIN} {VERIFY} {BUFFERS} {INFO} {CODE} {DATA} {MATCH} ¶
						{CONTROL}  {ALERT}  							¶
											{ObjDir}Help.obj			¶
											{ObjDir}FiFiFiOne.obj		¶
											{ObjDir}About.obj
											
		LinkIIGS {LOPTIONS}					¶
			-lseg:{BANKKIND} FINDER {MAIN}		¶
			-lseg:{KIND}  BUFFERS	{BUFFERS}	¶
			-lseg:{KIND}  VERIFY	{VERIFY}	¶
			-lseg:{KIND}  INFO		{INFO}		¶
			-lseg:{KIND}  CONTROL	{CONTROL}	¶
			-lseg:{KIND}  MATCH		{MATCH}		¶
			-lseg:{KIND}  ALERT		{ALERT}		¶
			-lseg:{KIND}  CODE 		{CODE}		¶
			-lseg:{KIND}  DATA 		{DATA}		¶
			-lseg:dynamic ABOUT		{ObjDir}About.obj¶
			-lseg:dynamic Help	 	{ObjDir}Help.obj					¶
			-lseg:dynamic FIFIFIONE {ObjDir}FiFiFiOne.obj				¶
		-at $DB03 ¶
		-o {LOADFILE}

#		ExpressIIGS {LOADFILE} -o START
#		Beep 800,32
#		duplicateiigs -y -mac START :

{LoadFile}.rsrc	ÄÄ	{RESOURCES}
		RezIIGS {ROPTIONS}		¶
				{LOADFILE}.rez	¶
				-o {LOADFILE}

{SrcDir}KeyboardNav:KeyboardNavRsrc ÄÄ {SrcDir}KeyboardNav:KeyboardNavRsrc.aii.obj
		LinkIIgs -t $B6 {SrcDir}KeyboardNav:KeyboardNavRsrc.aii.obj -o {SrcDir}KeyboardNav:KeyboardNavRsrc

{SrcDir}KeyboardNav:KeyboardNavRsrc.aii.obj ÄÄ {SrcDir}KeyboardNav:KeyboardNav.aii
		AsmIIgs {AOPTIONS} -d InitVersion=0 {SrcDir}KeyboardNav:KeyboardNav.aii -o {SrcDir}KeyboardNav:KeyboardNavRsrc.aii.obj

	
#	Additional dependancies for object files.

{ObjDir}icons.obj	Ä	{SrcDir}icons2.aii

{ObjDir}alert.obj		¶
{ObjDir}drives.obj		¶
{ObjDir}file.obj		¶
{ObjDir}GetInfo.obj		¶
{ObjDir}GSOS.obj		¶
{ObjDir}icons.obj		¶
{ObjDir}main.obj		¶
{ObjDir}menu.obj		¶
{ObjDir}misc.obj		¶
{ObjDir}util.obj		¶
{ObjDir}verify.obj	Ä	{SrcDir}Resource.equ

#	This is a default rule to build object files from source files.	

.obj	Ä .aii DP.equ Finder.equ IconObj.equ WindowBlk.equ
		AsmIIGS  {AOPTIONS} -o {ObjDir}{Default}.obj {SrcDir}{Default}.aii
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Finder/Finder.rez b/IIGS.601.SRC/A.U.G/Finder/Finder.rez
new file mode 100644
index 0000000..b97d5a2
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Finder/Finder.rez
@@ -0,0 +1 @@
+// --------------------------------------------------------------------
// Finder.REZ
// Copyright 1991 Apple Computer, Inc.
// All Rights Reserved
//
// 1/10/91, andy, added menu resources
// 1/23/91, andy, added 'Windows' and 'Extras' menus
// 1/31/91, andy, added alertwindow strings
// 2/12/91, andy, split into several files, added help resources
// 2/13/91, andy, added preferences resources
// 2/14/91, andy, added shutdown resources
// 4/8/91, andy, added icon resources
// 5/6/91, andy, added dialog resources
//
// --------------------------------------------------------------------

#include "typesiigs.r"

#include "Finder.rez.equ"
#include "main.rez"				
#include "about.rez"
#include "prefs.rez"
#include "icons.rez"
#include "shutdown.rez"
#include "help.rez"
#include "dialog.rez"
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Finder/Finder.rez.equ b/IIGS.601.SRC/A.U.G/Finder/Finder.rez.equ
new file mode 100644
index 0000000..ad5bf0e
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Finder/Finder.rez.equ
@@ -0,0 +1 @@
+// --------------------------------------------------------------------
// Finder REZ Equates
// Copyright 1991 Apple Computer, Inc.
// All Rights Reserved
//
// 1/10/91, andy, added menu equates
// 1/23/91, andy, added equates for 'Windows' and 'Extras' menus
// 5/7/91, andy, added rest of dialog equates
// 24-Mar-93 JCM - Added defines for new filetype $42 icons
// 25-Mar-93 JCM - Added defines for new DiskCopy icons.
//
// --------------------------------------------------------------------

// --- type $8001 defines

#define ICON_00000001 $00000001
#define ICON_07FF0003 $07FF0003
#define ICON_07FF0004 $07FF0004

#define ICON_00000010 $00000010
#define ICON_00000011 $00000011
#define ICON_00000012 $00000012
#define ICON_00000013 $00000013
#define ICON_00000014 $00000014
#define ICON_00000015 $00000015
#define ICON_00000016 $00000016
#define ICON_00000017 $00000017
#define ICON_00000018 $00000018
#define ICON_00000019 $00000019
#define ICON_0000001A $0000001A
#define ICON_0000001B $0000001B
#define ICON_0000001C $0000001C
#define ICON_0000001D $0000001D
#define ICON_0000001E $0000001E
#define ICON_0000001F $0000001F
#define ICON_00000020 $00000020
#define ICON_00000021 $00000021
#define ICON_00000022 $00000022
#define ICON_00000023 $00000023
#define ICON_00000024 $00000024
#define ICON_00000025 $00000025
#define ICON_00000026 $00000026
#define ICON_00000027 $00000027
#define ICON_00000028 $00000028
#define ICON_00000029 $00000029
#define ICON_0000002A $0000002A
#define ICON_0000002B $0000002B
#define ICON_0000002C $0000002C
#define ICON_0000002D $0000002D
#define ICON_0000002E $0000002E
#define ICON_0000002F $0000002F
#define ICON_00000030 $00000030
#define ICON_00000031 $00000031
#define ICON_00000032 $00000032
#define ICON_00000033 $00000033
#define ICON_00000034 $00000034
#define ICON_00000035 $00000035
#define ICON_00000036 $00000036
#define ICON_00000037 $00000037
#define ICON_00000038 $00000038
#define ICON_00000039 $00000039
#define ICON_0000003A $0000003A
#define ICON_0000003B $0000003B
#define ICON_0000003C $0000003C
#define ICON_0000003D $0000003D
#define ICON_0000003E $0000003E

#define ICON_00000110 $00000110
#define ICON_00000111 $00000111
#define ICON_00000112 $00000112
#define ICON_00000113 $00000113
#define ICON_00000114 $00000114
#define ICON_00000115 $00000115
#define ICON_00000116 $00000116
#define ICON_00000117 $00000117
#define ICON_00000118 $00000118
#define ICON_00000119 $00000119
#define ICON_0000011A $0000011A
#define ICON_0000011B $0000011B
#define ICON_0000011C $0000011C
#define ICON_0000011D $0000011D
#define ICON_0000011E $0000011E
#define ICON_0000011F $0000011F
#define ICON_00000120 $00000120
#define ICON_00000121 $00000121
#define ICON_00000122 $00000122
#define ICON_00000123 $00000123
#define ICON_00000124 $00000124
#define ICON_00000125 $00000125
#define ICON_00000126 $00000126
#define ICON_00000127 $00000127
#define ICON_00000128 $00000128
#define ICON_00000129 $00000129
#define ICON_0000012A $0000012A
#define ICON_0000012B $0000012B
#define ICON_0000012C $0000012C
#define ICON_0000012D $0000012D
#define ICON_0000012E $0000012E
#define ICON_0000012F $0000012F
#define ICON_00000130 $00000130
#define ICON_00000131 $00000131
#define ICON_00000132 $00000132
#define ICON_00000133 $00000133
#define ICON_00000134 $00000134
#define ICON_00000135 $00000135
#define ICON_00000136 $00000136

// --- type $8003 defines

#define CTLLST_00000001 $00000001
#define CTLLST_00000002 $00000002
#define CTLLST_00000003 $00000003
#define CTLLST_00000004 $00000004
#define CTLLST_00000005 $00000005
#define CTLLST_00000006 $00000006
#define CTLLST_00000007 $00000007
#define CTLLST_00000008 $00000008
#define CTLLST_00000009 $00000009
#define CTLLST_0000000a $0000000a
#define CTLLST_0000000b $0000000b
#define CTLLST_0000000c $0000000c
#define CTLLST_0000000d $0000000d
#define CTLLST_0000000e $0000000e
#define CTLLST_0000000f $0000000f
#define CTLLST_00000010 $00000010
#define CTLLST_00000011 $00000011
#define CTLLST_00000012 $00000012

// --- type $8004 defines

#define CTLTMP_00000001 $00000001
#define CTLTMP_00000002 $00000002
#define CTLTMP_00000003 $00000003
#define CTLTMP_00000004 $00000004
#define CTLTMP_00000005 $00000005
#define CTLTMP_00000006 $00000006
#define CTLTMP_00000007 $00000007
#define CTLTMP_00000008 $00000008
#define CTLTMP_00000009 $00000009
#define CTLTMP_0000000A $0000000A
#define CTLTMP_0000000B $0000000B
#define CTLTMP_0000000C $0000000C

#define CTLTMP_00001000 $00001000
#define CTLTMP_00001001 $00001001

#define CTLTMP_00002000 $00002000
#define CTLTMP_00002001 $00002001
#define CTLTMP_00002002 $00002002
#define CTLTMP_00002003 $00002003
#define CTLTMP_00002004 $00002004
#define CTLTMP_00002005 $00002005
#define CTLTMP_00002006 $00002006
#define CTLTMP_00002007 $00002007
#define CTLTMP_00002008 $00002008
#define CTLTMP_00002009 $00002009
#define CTLTMP_0000200A $0000200A
#define CTLTMP_0000200B $0000200B
#define CTLTMP_0000200C $0000200C
#define CTLTMP_0000200D $0000200D
#define CTLTMP_0000200E $0000200E
#define CTLTMP_0000200F $0000200F
#define CTLTMP_00002010 $00002010

#define CTLTMP_00003000 $00003000
#define CTLTMP_00003001 $00003001
#define CTLTMP_00003002 $00003002
#define CTLTMP_00003003 $00003003
#define CTLTMP_00003004 $00003004
#define CTLTMP_00003005 $00003005
#define CTLTMP_00003006 $00003006

#define CTLTMP_00004000 $00004000
#define CTLTMP_00004001 $00004001
#define CTLTMP_00004002 $00004002
#define CTLTMP_00004003 $00004003
#define CTLTMP_00004004 $00004004
#define CTLTMP_00004005 $00004005
#define CTLTMP_00004006 $00004006
#define CTLTMP_00004007 $00004007
#define CTLTMP_00004008 $00004008
#define CTLTMP_00004009 $00004009
#define CTLTMP_0000400A $0000400A
#define CTLTMP_0000400B $0000400B

#define CTLTMP_00005000 $00005000
#define CTLTMP_00005001 $00005001
#define CTLTMP_00005002 $00005002
#define CTLTMP_00005003 $00005003
#define CTLTMP_00005004 $00005004
#define CTLTMP_00005005 $00005005
#define CTLTMP_00005006 $00005006
#define CTLTMP_00005007 $00005007
#define CTLTMP_00005008 $00005008
#define CTLTMP_00005009 $00005009

#define CTLTMP_00006000 $00006000
#define CTLTMP_00006001 $00006001
#define CTLTMP_00006002 $00006002
#define CTLTMP_00006003 $00006003
#define CTLTMP_00006004 $00006004

#define CTLTMP_00007000 $00007000
#define CTLTMP_00007001 $00007001
#define CTLTMP_00007002 $00007002
#define CTLTMP_00007003 $00007003
#define CTLTMP_00007004 $00007004
#define CTLTMP_00007005 $00007005

#define CTLTMP_00008000 $00008000
#define CTLTMP_00008001 $00008001
#define CTLTMP_00008002 $00008002
#define CTLTMP_00008003 $00008003
#define CTLTMP_00008004 $00008004
#define CTLTMP_00008005 $00008005
#define CTLTMP_00008006 $00008006
#define CTLTMP_00008007 $00008007
#define CTLTMP_00008008 $00008008

#define CTLTMP_00009000 $00009000
#define CTLTMP_00009001 $00009001
#define CTLTMP_00009002 $00009002
#define CTLTMP_00009003 $00009003
#define CTLTMP_00009004 $00009004
#define CTLTMP_00009005 $00009005
#define CTLTMP_00009006 $00009006

#define CTLTMP_0000a001 $0000a001

#define CTLTMP_0000b001 $0000b001
#define CTLTMP_0000b002 $0000b002
#define CTLTMP_0000b003 $0000b003
#define CTLTMP_0000b004 $0000b004
#define CTLTMP_0000b005 $0000b005
#define CTLTMP_0000b006 $0000b006

#define CTLTMP_0000c000 $0000c000
#define CTLTMP_0000c001 $0000c001
#define CTLTMP_0000c002 $0000c002
#define CTLTMP_0000c003 $0000c003
#define CTLTMP_0000c004 $0000c004

#define CTLTMP_0000d000 $0000d000
#define CTLTMP_0000d001 $0000d001
#define CTLTMP_0000d002 $0000d002
#define CTLTMP_0000d003 $0000d003
#define CTLTMP_0000d004 $0000d004

#define CTLTMP_0000e000 $0000e000
#define CTLTMP_0000e001 $0000e001
#define CTLTMP_0000e002 $0000e002
#define CTLTMP_0000e003 $0000e003
#define CTLTMP_0000e004 $0000e004

#define CTLTMP_0000f000 $0000f000
#define CTLTMP_0000f001 $0000f001
#define CTLTMP_0000f002 $0000f002
#define CTLTMP_0000f003 $0000f003
#define CTLTMP_0000f004 $0000f004
#define CTLTMP_0000f005 $0000f005

#define CTLTMP_00010000 $00010000
#define CTLTMP_00010001 $00010001

// --- type $800B defines

#define LETXTBOX_00000001 $00000001
#define LETXTBOX_00000002 $00000002
#define LETXTBOX_00000003 $00000003
#define LETXTBOX_00000004 $00000004
#define LETXTBOX_00000005 $00000005
#define LETXTBOX_00000006 $00000006
#define LETXTBOX_00000007 $00000007
#define LETXTBOX_00000008 $00000008
#define LETXTBOX_00000009 $00000009
#define LETXTBOX_0000000A $0000000A

#define LETXTBOX_00002000 $00002000
#define LETXTBOX_00002001 $00002001
#define LETXTBOX_00002002 $00002002
#define LETXTBOX_00002003 $00002003

#define LETXTBOX_00003000 $00003000

#define LETXTBOX_00004000 $00004000
#define LETXTBOX_00004001 $00004001
#define LETXTBOX_00004002 $00004002
#define LETXTBOX_00004003 $00004003

#define LETXTBOX_00005000 $00005000
#define LETXTBOX_00005001 $00005001
#define LETXTBOX_00005002 $00005002
#define LETXTBOX_00005003 $00005003

#define LETXTBOX_00006000 $00006000

#define LETXTBOX_00007000 $00007000
#define LETXTBOX_00007001 $00007001

#define LETXTBOX_00008000 $00008000
#define LETXTBOX_00009000 $00009000
#define LETXTBOX_0000a000 $0000a000
#define LETXTBOX_0000b000 $0000b000

#define LETXTBOX_0000c000 $0000c000
#define LETXTBOX_0000c001 $0000c001

#define LETXTBOX_0000d000 $0000d000
#define LETXTBOX_0000d001 $0000d001

#define LETXTBOX_0000e000 $0000e000
#define LETXTBOX_0000e001 $0000e001

#define LETXTBOX_0000f000 $0000f000
#define LETXTBOX_0000f001 $0000f001
#define LETXTBOX_0000f002 $0000f002

#define LETXTBOX_00010000 $00010000

// --- type $800E defines

#define WPARAM1_00000001 $00000001
#define WPARAM1_00000002 $00000002
#define WPARAM1_00000003 $00000003
#define WPARAM1_00000004 $00000004
#define WPARAM1_00000005 $00000005
#define WPARAM1_00000006 $00000006
#define WPARAM1_00000007 $00000007
#define WPARAM1_00000008 $00000008
#define WPARAM1_00000009 $00000009
#define WPARAM1_0000000a $0000000a
#define WPARAM1_0000000b $0000000b
#define WPARAM1_0000000c $0000000c
#define WPARAM1_0000000d $0000000d
#define WPARAM1_0000000e $0000000e
#define WPARAM1_0000000f $0000000f
#define WPARAM1_00000010 $00000010
#define WPARAM1_00000011 $00000011
#define WPARAM1_00000012 $00000012

// --- type $8010 defines

#define WCOLOR_07FF0001 $07FF0001

// --- type $8006 defines

#define PSTR_00000001 $00000001
#define PSTR_00000002 $00000002
#define PSTR_00000003 $00000003
#define PSTR_00000004 $00000004
#define PSTR_00000005 $00000005
#define PSTR_00000006 $00000006
#define PSTR_00000007 $00000007
#define PSTR_00000008 $00000008
#define PSTR_00000009 $00000009
#define PSTR_0000000A $0000000A
#define PSTR_0000000B $0000000B
#define PSTR_0000000C $0000000C
#define PSTR_0000000D $0000000D
#define PSTR_0000000E $0000000E
#define PSTR_0000000F $0000000F
#define PSTR_00000010 $00000010
#define PSTR_00000011 $00000011
#define PSTR_00000012 $00000012
#define PSTR_00000013 $00000013
#define PSTR_00000014 $00000014
#define PSTR_00000015 $00000015
#define PSTR_00000016 $00000016
#define PSTR_00000017 $00000017
#define PSTR_00000018 $00000018
#define PSTR_00000019 $00000019
#define PSTR_0000001A $0000001A
#define PSTR_0000001B $0000001B
#define PSTR_0000001C $0000001C
#define PSTR_0000001D $0000001D
#define PSTR_0000001E $0000001E
#define PSTR_0000001F $0000001F
#define PSTR_00000020 $00000020
#define PSTR_00000021 $00000021
#define PSTR_00000022 $00000022
#define PSTR_00000023 $00000023
#define PSTR_00000024 $00000024
#define PSTR_00000025 $00000025
#define PSTR_00000026 $00000026
#define PSTR_00000027 $00000027
#define PSTR_00000028 $00000028
#define PSTR_00000029 $00000029
#define PSTR_0000002A $0000002A
#define PSTR_0000002B $0000002B
#define PSTR_0000002C $0000002C
#define PSTR_0000002D $0000002D
#define PSTR_0000002E $0000002E
#define PSTR_0000002F $0000002F

#define PSTR_000000F9 $000000F9
#define PSTR_000000FA $000000FA
#define PSTR_000000FB $000000FB
#define PSTR_000000FC $000000FC
#define PSTR_000000FD $000000FD
#define PSTR_000000FE $000000FE
#define PSTR_000000FF $000000FF

#define PSTR_00000100 $00000100
#define PSTR_00000101 $00000101
#define PSTR_00000102 $00000102
#define PSTR_00000103 $00000103
#define PSTR_00000104 $00000104
#define PSTR_00000105 $00000105
#define PSTR_00000106 $00000106
#define PSTR_00000107 $00000107
#define PSTR_00000108 $00000108
#define PSTR_00000109 $00000109
#define PSTR_0000010A $0000010A
#define PSTR_0000010B $0000010B

#define PSTR_00000200 $00000200
#define PSTR_00000201 $00000201

#define PSTR_00001000 $00001000
#define PSTR_00001001 $00001001
#define PSTR_00001002 $00001002
#define PSTR_00001003 $00001003
#define PSTR_00001004 $00001004
#define PSTR_00001005 $00001005
#define PSTR_00001006 $00001006
#define PSTR_00001007 $00001007
#define PSTR_00001008 $00001008
#define PSTR_00001009 $00001009
#define PSTR_0000100A $0000100A
#define PSTR_0000100B $0000100B
#define PSTR_000010FF $000010FF

#define PSTR_00002000 $00002000
#define PSTR_00002001 $00002001
#define PSTR_00002002 $00002002
#define PSTR_00002003 $00002003
#define PSTR_00002004 $00002004
#define PSTR_00002005 $00002005
#define PSTR_00002006 $00002006
#define PSTR_00002007 $00002007
#define PSTR_00002008 $00002008
#define PSTR_00002009 $00002009

#define PSTR_00003000 $00003000
#define PSTR_00003001 $00003001
#define PSTR_00003002 $00003002

#define PSTR_00006000 $00006000
#define PSTR_00006001 $00006001
#define PSTR_00006002 $00006002
#define PSTR_00006003 $00006003

#define PSTR_00008000 $00008000
#define PSTR_00008001 $00008001
#define PSTR_00008002 $00008002

// --- type $8008 defines

#define MENUBAR_00000001 $00000001

// --- type $8009 defines

#define MENU_00000001 $00000001
#define MENU_00000002 $00000002
#define MENU_00000003 $00000003
#define MENU_00000004 $00000004
#define MENU_00000005 $00000005
#define MENU_00000006 $00000006
#define MENU_00000007 $00000007
#define MENU_00000008 $00000008
#define MENU_00000009 $00000009

#define MENU_00001000 $00001000

#define MENU_00002000 $00002000

// --- type $800A defines

#define MENUITEM_00000001 $00000001
#define MENUITEM_00000002 $00000002
#define MENUITEM_00000003 $00000003
#define MENUITEM_00000004 $00000004
#define MENUITEM_00000005 $00000005
#define MENUITEM_00000006 $00000006
#define MENUITEM_00000007 $00000007
#define MENUITEM_00000008 $00000008
#define MENUITEM_00000009 $00000009
#define MENUITEM_0000000A $0000000A
#define MENUITEM_0000000B $0000000B
#define MENUITEM_0000000C $0000000C
#define MENUITEM_0000000D $0000000D
#define MENUITEM_0000000E $0000000E
#define MENUITEM_0000000F $0000000F
#define MENUITEM_00000010 $00000010
#define MENUITEM_00000011 $00000011
#define MENUITEM_00000012 $00000012
#define MENUITEM_00000013 $00000013
#define MENUITEM_00000014 $00000014
#define MENUITEM_00000015 $00000015
#define MENUITEM_00000016 $00000016
#define MENUITEM_00000017 $00000017
#define MENUITEM_00000018 $00000018
#define MENUITEM_00000019 $00000019
#define MENUITEM_0000001A $0000001A
#define MENUITEM_0000001B $0000001B
#define MENUITEM_0000001C $0000001C
#define MENUITEM_0000001D $0000001D
#define MENUITEM_0000001E $0000001E
#define MENUITEM_0000001F $0000001F
#define MENUITEM_00000020 $00000020
#define MENUITEM_00000021 $00000021
#define MENUITEM_00000022 $00000022
#define MENUITEM_00000023 $00000023
#define MENUITEM_00000024 $00000024
#define MENUITEM_00000025 $00000025
#define MENUITEM_00000026 $00000026

#define MENUITEM_00001000 $00001000
#define MENUITEM_00001001 $00001001
#define MENUITEM_00001002 $00001002
#define MENUITEM_00001003 $00001003
#define MENUITEM_00001004 $00001004
#define MENUITEM_00001005 $00001005
#define MENUITEM_00001006 $00001006
#define MENUITEM_00001007 $00001007
#define MENUITEM_00001008 $00001008
#define MENUITEM_00001009 $00001009
#define MENUITEM_0000100A $0000100A
#define MENUITEM_000010FF $000010FF

// --- type $8015 defines

#define ALERT_00000001 $00000001
#define ALERT_00000002 $00000002
#define ALERT_00000003 $00000003
#define ALERT_00000004 $00000004
#define ALERT_00000005 $00000005
#define ALERT_00000006 $00000006
#define ALERT_00000007 $00000007
#define ALERT_00000008 $00000008
#define ALERT_00000009 $00000009
#define ALERT_0000000A $0000000A
#define ALERT_0000000B $0000000B
#define ALERT_0000000C $0000000C
#define ALERT_0000000D $0000000D
#define ALERT_0000000E $0000000E
#define ALERT_0000000F $0000000F
#define ALERT_00000010 $00000010
#define ALERT_00000011 $00000011
#define ALERT_00000012 $00000012
#define ALERT_00000013 $00000013
#define ALERT_00000014 $00000014
#define ALERT_00000015 $00000015
#define ALERT_00000016 $00000016
#define ALERT_00000017 $00000017
#define ALERT_00000018 $00000018
#define ALERT_00000019 $00000019
#define ALERT_0000001A $0000001A
#define ALERT_0000001B $0000001B
#define ALERT_0000001C $0000001C
#define ALERT_0000001D $0000001D
#define ALERT_0000001E $0000001E
#define ALERT_0000001F $0000001F
#define ALERT_00000020 $00000020
#define ALERT_00000021 $00000021
#define ALERT_00000022 $00000022
#define ALERT_00000023 $00000023
#define ALERT_00000024 $00000024
#define ALERT_00000025 $00000025
#define ALERT_00000026 $00000026
#define ALERT_00000027 $00000027
#define ALERT_00000028 $00000028
#define ALERT_00000029 $00000029
#define ALERT_0000002A $0000002A
#define ALERT_0000002B $0000002B
#define ALERT_0000002C $0000002C
#define ALERT_0000002D $0000002D
#define ALERT_0000002E $0000002E
#define ALERT_0000002F $0000002F
#define ALERT_00000030 $00000030
#define ALERT_00000031 $00000031
#define ALERT_00000032 $00000032
#define ALERT_00000033 $00000033
#define ALERT_00000034 $00000034
#define ALERT_00000035 $00000035
#define ALERT_00000036 $00000036
#define ALERT_00000037 $00000037
#define ALERT_00000038 $00000038
#define ALERT_00000039 $00000039
#define ALERT_0000003A $0000003A
#define ALERT_0000003B $0000003B
#define ALERT_0000003C $0000003C
#define ALERT_0000003D $0000003D
#define ALERT_0000003E $0000003E
#define ALERT_0000003F $0000003F
#define ALERT_00000040 $00000040
#define ALERT_00000041 $00000041
#define ALERT_00000042 $00000042
#define ALERT_00000043 $00000043
#define ALERT_00000044 $00000044
#define ALERT_00000045 $00000045
#define ALERT_00000046 $00000046
#define ALERT_00000047 $00000047
#define ALERT_00000048 $00000048
#define ALERT_00000049 $00000049
#define ALERT_0000004A $0000004A
#define ALERT_0000004B $0000004B
#define ALERT_0000004C $0000004C
#define ALERT_0000004D $0000004D
#define ALERT_0000004E $0000004E
#define ALERT_0000004F $0000004F
#define ALERT_00000050 $00000050
#define ALERT_00000051 $00000051
#define ALERT_00000052 $00000052
#define ALERT_00000053 $00000053
#define ALERT_00000054 $00000054

// --- type $8016 defines

#define TXT_00001000 $00001000
#define TXT_00001001 $00001001
#define TXT_00001002 $00001002
#define TXT_00001003 $00001003
#define TXT_00001004 $00001004
#define TXT_00001005 $00001005
#define TXT_00001006 $00001006
#define TXT_00001007 $00001007
#define TXT_00001008 $00001008
#define TXT_00001009 $00001009
#define TXT_0000100A $0000100A
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Finder/GSOS.aii b/IIGS.601.SRC/A.U.G/Finder/GSOS.aii
new file mode 100644
index 0000000..cd7de2a
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Finder/GSOS.aii
@@ -0,0 +1 @@
+*===============================================*
*						*
* File:		GSOS.aii			*
* Project:	GS Finder			*
* Author:	Don J. Brady			*
* Build file:	Finder.Make			*
*						*
* © Copyright Apple Computer, Inc. 1988-1989	*
* All rights reserved.				*
*						*
*===============================================*
* All global routines can be called from any	*
* where in memory.
*===============================================*
* Global Routines:				*
*	ChangePath()				*
*	GetFSTName()				*
*	IsFSTUpperCase()			*
*	GetPrivileges()				*
*	SetPrivileges()				*
*	GetServerName()				*
*	GetComment()				*
*	GetDeviceName()				*
*	GetDeviceNumber()			*
*	GetVolumeInfo()				*
*	GetFileInfo()				*
*	GetDeviceInfo()				*
*	GetDeviceStatus()			*
*	EjectDisk()				*
*	EjectAllDisks()				*
*	FormatDisk()				*
*	EraseDisk()				*
*	DeviceScan()				*
*	ConsoleWrite()				*
*	LockTheFile()				*
*	DisableTheFile()			*
*	WalkDirectory()				*
*	AddNotifyProc()				*
*	DelNotifyProc()				*
*	GetModifyDate()				*
*	GetFinderInfo()				*
*	SetGSOSAlerts()				*
*	SetAllPriv()				*
*	DeviceRead()				*
*	DeviceWrite()				*
*						*
*	IgnoreGSOSError()			*
*	HandleGSOSError()			*
*-----------------------------------------------*
* Modification History:				*
* 01/03/89 DJB	- File created today		*
*						*
*===============================================*

		LONGA	ON
		LONGI	ON
		STRING	PASCAL
		
		PRINT	OFF		
		PRINT	NOGEN
		PRINT	NOSYM
		INCLUDE	'ALL.MACROS'		
		INCLUDE	'Pascal.MACROS'		
		INCLUDE	'SPECIAL.MACROS'		
		INCLUDE	'GSOS.equ'
		INCLUDE	'Resource.equ'
		include	'e16.event'		;18-Mar-93 JCM
		PRINT	ON
	
;
; The following code was copied from the OS's common.equ file
;
vcr_id          equ    $0000           ;offset to volume ID
vcr_name        equ    vcr_id+2        ;offset to volume name pointer
vcr_status      equ    vcr_name+4      ;offset volume status
vcr_open_cnt    equ    vcr_status+2    ;offset to number of open files on vol.
vcr_fst_id      equ    vcr_open_cnt+2  ;offset to owner ID number
vcr_dev         equ    vcr_fst_id+2    ;offset to where volume was last seen
vcr_fst_ptr     equ    vcr_dev+2       ;offset to where volume was last seen

os_find_vcr	equ	$01fc48
os_deref	equ	$01fc38

btnCancel	equ	$00
btnOK		equ	$01
btnTryAgain	equ	$01
btnContinue	equ	$01

iconStop	equ	$32
iconNote	equ	$33
iconCaution	equ	$34
iconDisk	equ	$35
iconDiskSwap	equ	$36

		ENTRY	CallGSOS
		ENTRY	GSOSError

maxDevices	equ	128			; max number of devices we can special case

FinderInfo	RECORD	0
location	DS	Point			; folder's location
windRect	DS	Rect			; folder's rectangle
windView	DS.W	1			; folder's view
windScroll	DS	Point			; scroll position
sizeOf		EQU	*
		ENDR 

*===============================================*
LocalData	PROC				; local data for GS/OS calls
		
		IMPORT	NotifyProc

		ENTRY	GlobalStartupFlag	;set by DeviceScan, checked by notify queue stuff
GlobalStartupFlag dc.w	0
		ENTRY	DeviceSoFar		;device which we've gotten to so farx
DeviceSoFar	dc.w	0

		EXPORT	IgnoreErrors
		ENTRY	IgnoreErrors
IgnoreErrors	DC.W	0

		ENTRY	GSOSErrCode
GSOSErrCode	DC.W	0

		ENTRY	GSOSVolNamePtr
GSOSVolNamePtr	dc.L	GSOSVolName
		ENTRY	GSOSFileNamePtr
GSOSFileNamePtr	dc.L	GSOSFileName

		ENTRY	NameBuffer1
		ENTRY	Name1
NameBuffer1	DC.W	maxFileName+4
Name1		DS.B	maxFileName+2

		ENTRY	NameBuffer2
		ENTRY	Name2
NameBuffer2	DC.W	maxFileName+4
Name2		DS.B	maxFileName+2

;--- parameter lists --------------------------

		ENTRY	OptionListBuff
		ENTRY	OptionListSize
		ENTRY	OptionList
OptionListBuff	DC.W	recOptionList.sizeOf+20
OptionListSize	DC.W	0
		EXPORT	OptionList
OptionList	DS	recOptionList
		DS.B	16			; slop space

;
; Moved here 2/9/92 by andy to make this section more sparse 
;
		ENTRY	LocalOutBuffer
		ENTRY	LocalPathName
		ENTRY	LocalBuffer
LocalOutBuffer	DC.W	512+4			; changed to 512 DJB 5 Jun 89
LocalBuffer
LocalPathName	DS.B	512+2			; used by WalkDirectory & SetAllPriv

		ENTRY	GSOSVolume
GSOSVolume	DS.B	34			; "W" string copy (with ':')
		ENTRY	GSOSVolName
GSOSVolName	DS.B	34			; pascal string copy

		ENTRY	GSOSFileName
GSOSFileName	DS.B	34			; pascal string copy

;
; --- back to parameter lists ---------------- 
;
		ENTRY	ChngPathParams
ChngPathParams	DS	recChangePath

		ENTRY	FileInfoParams
FileInfoParams	DS	recFileInfo

		EXPORT	VolumeParams
		ENTRY	VolumeParams
VolumeParams	DS	recVolume

		ENTRY	SysPrefsParams
SysPrefsParams	DS	recSysPrefs

		ENTRY	OpenParams
OpenParams	DS	recOpen

		ENTRY	WriteParams
WriteParams	DS	recWrite

		ENTRY	CloseParams
CloseParams	DS	recClose

		ENTRY	DirParams
DirParams	DS	recGetDirEntry			
	
		ENTRY	FSTInfoParams
FSTInfoParams	DS	recGetFSTInfo

		ENTRY	FSTParams
FSTParams	DS	recFSTSpecific

		ENTRY	GetDevNumParams
GetDevNumParams	DS	recGetDevNum

		ENTRY	FormatParams
FormatParams	DS	recFormat

		ENTRY	DevInfoParams
DevInfoParams	DS	recDevInfo

		ENTRY	DevCtrlParams
DevCtrlParams	DS	recDevControl

		ENTRY	ControlList
ControlList	DS.B	16			; a dummy control list

		ENTRY	DevStatParams		; added 05/26/89 DJB
DevStatParams	DS	recDevControl

		ENTRY	StatusList		; added 05/26/89 DJB
StatusList	DS.B	16

		ENTRY	DevReadParams
DevReadParams	DS	recDevRead

		ENTRY	inFormat		;are we in the formatdisk or erasedisk call?
inFormat	dc.w	0

;--- other data --------------------------------

		ENTRY	winWidth
winWidth	DC.W	0
		ENTRY	winHeight
winHeight	DC.W	0

; Data for use by volume changed notification handlers

		ENTRY	DirtyDeviceTable
DirtyDeviceTable DS.B	(MaxDevices/8)

;--- static data for device scan ---------------

		ENTRY	SkipDeviceTbl
SkipDeviceTbl	DS.B	maxDevices		; static table (byte entries)

		ENTRY	OnlineDeviceTable
OnlineDeviceTable ds.b	(MaxDevices/8)		;bit table


;
; PADDING
;
; This DS only to pad the Final 6.0 build to lose a block for sparseness' sake
;
;		DS.B	177

		EXPORT	OnlineMasks
		ENTRY	OnlineMasks
		EXPORT	ChangedMasks
		ENTRY	ChangedMasks
OnlineMasks	
ChangedMasks
		dc.b	$01			;%00000001
		dc.b	$02			;%00000010
		dc.b	$04			;%00000100
		dc.b	$08			;%00001000
		dc.b	$10			;%00010000
		dc.b	$20			;%00100000
		dc.b	$40			;%01000000
		dc.b	$80			;%10000000
		
		EXPORT	OfflineMasks
		ENTRY	OfflineMasks
		EXPORT	UnchangedMasks
		ENTRY	UnchangedMasks
OfflineMasks	
UnchangedMasks
		dc.b	$FE			;%11111110
		dc.b	$FD			;%11111101
		dc.b	$FB			;$11111011
		dc.b	$F7			;%11110111
		dc.b	$EF			;%11101111
		dc.b	$DF			;%11011111
		dc.b	$BF			;%10111111
		dc.b	$7F			;%01111111

		ENTRY	LastDevice
LastDevice	DC.W	0			; static variable

		ENTRY	NotifyParams
NotifyParams	DC.W	1			; pcount
		DC.L	NotifyProc

		ENDP

*===============================================*
*	Change the Path of a GSOS File		*
*						*
* INPUT:	---- STACK ----			*
*		oldPathPtr (Ptr)		*
*		newPathPtr  (Ptr)		*
*		retAddr  (3 bytes)		*
*	SP -->					*
*						*
* OUTPUT:	---- STACK ----			*
*		retaddr (3 bytes)		*
*	SP -->					*
*===============================================*

ChangePath	PROC	EXPORT
		
		InitFrame
		FrameType  SaveB,ReturnA	; save data bank, return A register (and carry)

newPathPtr	Param	Ptr			; input parameters (revese order)
oldPathPtr	Param	Ptr

		IMPORT	ChngPathParams:recChangePath
		
		EntryCode
;-----------------------------------------------		
Begin
		phk
		plb

		lda	#2				; initialize record	
		sta	ChngPathParams.pCount
		lda	<oldPathPtr
		sta	ChngPathParams.oldPathname
		lda	<oldPathPtr+2
		sta	ChngPathParams.oldPathname+2
		lda	<newPathPtr
		sta	ChngPathParams.newPathname
		lda	<newPathPtr+2
		sta	ChngPathParams.newPathname+2
		
		ldy	#osChangePath
		lda	#ChngPathParams
		ldx	#ChngPathParams>>16
		jsr	CallGSOS
End
;-----------------------------------------------		
		ExitCode				; a-reg and carry flag returned

		ENDP

*===============================================*
*	Get the name of a GSOS FST		*
*						*
* INPUT:	---- STACK ----			*
*		fstNamePtr (Ptr)		*
*		fstID  (Word)			*
*	SP -->					*
*						*
* OUTPUT:	result is string		*
*===============================================*

GetFSTName	PROC	EXPORT

		InitFrame
		FrameType  SaveB		; save data bank


fstID		Param	Word			; input parameters (reverse order)
fstNamePtr	Param	Ptr

		IMPORT	FSTInfoParams:recGetFSTInfo
		IMPORT	WStringCopy
		IMPORT	PToWString	
		IMPORT	strUnknown		; in string segment
		
		EntryCode
;-----------------------------------------------
Begin
		phk
		plb

		lda	#3
		sta	FSTInfoParams.pcount
		lda	#1			; start with first one
		sta	FSTInfoParams.fstNum
		lda	#NameBuffer1
		sta	FSTInfoParams.fstName
		lda	#NameBuffer1>>16
		sta	FSTInfoParams.fstName+2

gsos		jsl	GSOSCall
		DC.W	osGetFSTInfo
		DC.L	FSTInfoParams
		bcs	unknown

		lda	FSTInfoParams.fileSysID
		cmp	<fstID			; a match ?
		beq	match
		inc	FSTInfoParams.fstNum
		bra	gsos
		
match		PushLong #Name1
		pushZLong <fstNamePtr
		jsl	WStringCopy		; copy to caller's string
		bra	End

unknown		PushLong #strUnknown
		pushZLong <fstNamePtr
		jsl	PToWString		; copy to caller's string
		
End
;-----------------------------------------------
		ExitCode

		ENDP

*===============================================*
*   Check if FST needs Upper Case characters	*
*						*
* INPUT:	---- STACK ----			*
*		space (word)			*
*		fstID  (word)			*
*	SP -->					*
*						*
* OUTPUT:	---- STACK ----			*
*		result (word)	1 = yes, 0 = no	*
*	SP -->					*
*===============================================*

IsFSTUpperCase	PROC	EXPORT

		InitFrame
		FrameType  SaveB		; save data bank
		
fstID		Param	Word			; input parameter

needsUpper	Result	Word			; output result

		IMPORT	FSTInfoParams:recGetFSTInfo
		IMPORT	PToWString	
		IMPORT	strUnknown		; in string segment
		
		EntryCode
;-----------------------------------------------
Begin
		phk
		plb

		lda	#5
		sta	FSTInfoParams.pcount
		lda	#1			; start with first one
		sta	FSTInfoParams.fstNum
		lda	#NameBuffer1
		sta	FSTInfoParams.fstName
		lda	#NameBuffer1>>16
		sta	FSTInfoParams.fstName+2
		
		stz	<needsUpper

gsos		jsl	GSOSCall
		DC.W	osGetFSTInfo
		DC.L	FSTInfoParams
		bcs	End			; error or end of list
		lda	FSTInfoParams.fileSysID
		cmp	<fstID			; a match ?
		beq	match
		inc	FSTInfoParams.fstNum
		bra	gsos
		
match		lda	FSTInfoParams.fstAttrib
		and	#$8000			; does FST want upper case?
		beq	End			; no
		inc	<needsUpper		; yes

End
;-----------------------------------------------
		ExitCode

		ENDP

*===============================================*
* Local routine for Get/Set Privileges		*
* IN:	y = FST command				*
*	a,x = pathname				*
*						*
* OUT:	FSTParams is initialized		*
*===============================================*

GetSetInit	PROC

minPCount	SET	4			; access rights only
maxPCount	SET	6			; owner & group name also

		IMPORT	FSTParams:recFSTSpecific

		sty	FSTParams.command
		sta	FSTParams.pathname
		stx	FSTParams.pathname+2

		lda	#fstAppleShare
		sta	FSTParams.fstID

		lda	#NameBuffer1
		sta	FSTParams.owner
		lda	#NameBuffer1>>16
		sta	FSTParams.owner+2
		lda	#NameBuffer2
		sta	FSTParams.group
		lda	#NameBuffer2>>16
		sta	FSTParams.group+2
		lda	#minPCount
		sta	FSTParams.pcount	; minimumn pCount
		rts

		ENDP

*===============================================*
*  Get the access privileges for a folder	*
*						*
* INPUT:	---- STACK ----			*
*		result (long)			*
*		ownerPtr (long)	- class1	*
*		groupPtr (long)	- class1	*
*		pathPtr (long)	- class1	*
*	SP -->					*
*						*
* OUTPUT:	---- STACK ----			*
*		access (long)			*
*	a-reg/carry flag returned		*
*===============================================*

GetPrivileges	PROC	EXPORT

		InitFrame
		FrameType  SaveB,ReturnA	; save data bank, return A reg (and carry)

pathPtr		Param	Ptr			; input parameters (reverse order)
groupPtr	Param	Ptr
ownerPtr	Param	Ptr

access		Result	Long			; result returned

		
minPCount	SET	4			; access rights only
maxPCount	SET	6			; owner & group name also

		IMPORT	WStringCopy
		IMPORT	PToWString
		IMPORT	FSTParams:recFSTSpecific
		IMPORT	strAnyUser		; in string segment
		
		EntryCode
;-----------------------------------------------
Begin
		phk
		plb

		ldy	#asGetPrivileges
		lda	<pathPtr
		ldx	<pathPtr+2
		jsr	GetSetInit

		stz	<access			; in case error
		stz	<access+2
		
; Mensch 5/19/89 (fixing BRC #49175)
; This call did not reset the pcount to min before progressing.  Let's fix it now!
		lda	#minPCount
		sta	FSTParams.pcount	; maximum pCount
; end Mensch 5/19/89 (BRC #49175)
		
		lda	<ownerPtr+1
		beq	gsos
		
		lda	#0
		sta	[<ownerPtr]		; in case error
		sta	[<groupPtr]
		
		lda	#maxPCount
		sta	FSTParams.pcount	; maximumn pCount

gsos		ldy	#osFSTSpecific
		lda	#FSTParams
		ldx	#FSTParams>>16
		jsr	CallGSOS
		bcs	End

		lda	FSTParams.access	; pass back access rights
		sta	<access
		lda	FSTParams.access+2
		sta	<access+2

		lda	<ownerPtr+1		; does caller want strings?
		beq	End			; no

		lda	Name1			; null string -> "<Any User>"
		bne	okOwner
		PushLong #strAnyUser
		pushZLong <ownerPtr
		jsl	PToWString		; copy to caller's string
		bra	okGroup
		
okOwner		PushLong #Name1
		pushZLong <ownerPtr
		jsl	WStringCopy		; copy to caller's string
		
okGroup		PushLong #Name2
		pushZLong <groupPtr
		jsl	WStringCopy		; copy to caller's string

		lda	#0			; no errors
End
;-----------------------------------------------
		ExitCode
		
		ENDP
		
*===============================================*
*  Set the access privileges for a folder	*
*						*
* INPUT:	---- STACK ----			*
*		access (long)			*
*		ownerPtr (long)	- pascal	*
*		groupPtr (long)	- pascal	*
*		pathPtr (long)	- class1	*
*		retaddr (3 bytes)		*
*	SP -->					*
*						*
* OUTPUT:	none				*
*		a-reg/carry flag returned	*
*===============================================*

SetPrivileges	PROC	EXPORT

		InitFrame
		FrameType  SaveB,ReturnA	; save data bank, return A reg (and carry)

pathPtr		Param	Ptr			; input parameters (reverse order)
groupPtr	Param	Ptr
ownerPtr	Param	Ptr
access		Param	Long

		IMPORT	FSTParams:recFSTSpecific
		IMPORT	PStringCompare
		IMPORT	WStringCopy
		IMPORT	strAnyUser		; in string segment

minPCount	SET	4			; access rights only
maxPCount	SET	6			; owner & group name also

		EntryCode
;-----------------------------------------------
Begin
		phk
		plb

		ldy	#asSetPrivileges
		lda	<pathPtr
		ldx	<pathPtr+2
		jsr	GetSetInit
		
		lda	<access
		sta	FSTParams.access
		lda	<access+2
		sta	FSTParams.access+2

		lda	<ownerPtr+1		; is caller using strings?
		beq	gsos2			; no

		lda	#maxPCount
		sta	FSTParams.pcount	; use maximumn pCount

		lda	[ownerPtr]		; poor man's W to P string
		xba
		sta	[ownerPtr]
		pha				; space for result		
		ldx	<ownerPtr+2
		lda	<ownerPtr
		inc	a
		bne	compare
		inx
compare		phx
		pha
		PushLong #strAnyUser
		jsl	PStringCompare		; is owner "<Any User>" ?
		lda	[ownerPtr]		; poor man's P to W string
		xba
		sta	[ownerPtr]		
		pla
		beq	getOwner		; not equal to "<Any User>"
		stz	Name1			; "<Any User>" is really a null string
		bra	getGroup
		
getOwner	pushZLong <ownerPtr
		PushLong #Name1
		jsl	WStringCopy		; copy from caller's string

getGroup	pushZLong <groupPtr
		PushLong #Name2
		jsl	WStringCopy		; copy from caller's string

gsos2		ldy	#osFSTSpecific
		lda	#FSTParams
		ldx	#FSTParams>>16
		jsr	CallGSOS

End						; error code returned in a-reg
;-----------------------------------------------
		ExitCode

		ENDP

*===============================================*
*	Get the Server Name and Zone Name	*
*						*
* INPUT:	---- STACK ----			*
*		serverPtr (Ptr) - W string	*
*		zonePtr (Ptr)	 - W string	*
*		pathPtr (Ptr)	 - W string	*
*	SP -->					*
*						*
* OUTPUT:	none				*
*===============================================*

GetServerName	PROC	EXPORT

		InitFrame
		FrameType  SaveB		; save data bank

pathPtr		Param	Ptr			; input parameters (reverse order)
zonePtr		Param	Ptr
serverPtr	Param	Ptr

		IMPORT	WStringCopy
		IMPORT	FSTParams:recFSTSpecific
		IMPORT	PToWString

		EntryCode
;-----------------------------------------------
Begin
		phk
		plb

		lda	#5			; initialize record
		sta	FSTParams.pcount
		lda	#fstAppleShare
		sta	FSTParams.fstID
		lda	#asGetServerName
		sta	FSTParams.command
		lda	<pathPtr
		sta	FSTParams.pathname
		lda	<pathPtr+2
		sta	FSTParams.pathname+2
		lda	#NameBuffer1
		sta	FSTParams.server
		lda	#NameBuffer1>>16
		sta	FSTParams.server+2
		lda	#NameBuffer2
		sta	FSTParams.zone
		lda	#NameBuffer2>>16
		sta	FSTParams.zone+2

		lda	#0
		sta	[<serverPtr]		; in case error
		sta	[<zonePtr]
		
		jsl	GSOSCall
		DC.W	osFSTSpecific
		DC.L	FSTParams
		bcs	End

		PushLong #Name1
		pushZLong <serverPtr
		jsl	WStringCopy		; copy to caller's string
		
		PushLong #Name2
		pushZLong <zonePtr
		jsl	WStringCopy		; copy to caller's string

End		
;-----------------------------------------------
		ExitCode

		ENDP
		
*===============================================*
*	Get the Comment field of a file		*
*						*
* INPUT:	---- STACK ----			*
*		pathPtr (long) - W string	*
*		commentPtr (long) - W string	*
*	SP -->					*
*						*
* OUTPUT:	none				*
*===============================================*

GetComment	PROC	EXPORT
		

		InitFrame
		FrameType  SaveB,ReturnA	; save data bank, return A reg (and carry)

commentPtr	Param	Ptr			; input parameters (revese order)
pathPtr		Param	Ptr

		IMPORT	WStringCopy
		IMPORT	FSTParams:recFSTSpecific

		EntryCode
;----------------------------------------------
Begin
		phk
		plb

		lda	#fstAppleShare		; initialize record
		sta	FSTParams.fstID
		lda	<pathPtr		; pathname buffer
		sta	FSTParams.data+2
		lda	<pathPtr+2
		sta	FSTParams.data+4
		lda	#LocalOutBuffer		; comment string buffer ptr
		sta	FSTParams.data+6
		lda	#LocalOutBuffer>>16
		sta	FSTParams.data+8

		lda	#4			; get ready for OpenDeskTop
		sta	FSTParams.pcount
		lda	#asOpenDeskTop
		sta	FSTParams.command
		jsl	GSOSCall		; OpenDeskTop
		DC.W	osFSTSpecific
		DC.L	FSTParams
		bcs	End

		lda	#5			; get ready for GetComment
		sta	FSTParams.pcount
		lda	#asGetComment
		sta	FSTParams.command
		jsl	GSOSCall		; GetComment
		DC.W	osFSTSpecific
		DC.L	FSTParams
		bcs	End

		lda	#4			; get ready for CloseDeskTop
		sta	FSTParams.pcount
		lda	#asCloseDeskTop
		sta	FSTParams.command
		jsl	GSOSCall		; CloseDeskTop
		DC.W	osFSTSpecific
		DC.L	FSTParams
		bcs	End

		PushLong #LocalPathname
		pushZLong <commentPtr
		jsl	WStringCopy		; copy to caller's string
		
End
;----------------------------------------------
		ExitCode
	
		ENDP

*===============================================*
* Convert a Device Number to an ASCII String	*
*						*
* - returns 'unknown' if an OS error occured	*
* - returns 'not in any drive' if devNum = 0	*
*						*
* IN:	---- STACK ----				*
*	stringPtr (Ptr) - W string		*
*	pathname (Ptr)	- W string		*
*  SP->						*
*						*
* OUT:	string is set				*
*===============================================*

GetDeviceName	PROC	EXPORT

		InitFrame
		FrameType  SaveB		; save data bank

pathname	Param	Ptr			; input parameters (reverse order)
strPtr		Param	Ptr

		IMPORT	GetDevNumParams:recGetDevNum
		IMPORT	DeviceToString

		EntryCode
;-----------------------------------------------
Begin
		phk
		plb

		lda	#2			; initialize record
		sta	GetDevNumParams.pcount
		lda	<pathname
		sta	GetDevNumParams.devName
		lda	<pathname+2
		sta	GetDevNumParams.devName+2
		
		jsl	GSOSCall
		DC.W	osGetDevNum
		DC.L	GetDevNumParams
		bcc	ok

		ldx	#0			; 0 = "not in any drive"
		cmp	#$45			; was volume offline?
		beq	fakeNum
		ldx	#$FFFF			; $FFFF = "unknown"
fakeNum		stx	GetDevNumParams.devNum

ok		pushZLong <strPtr
		lda 	GetDevNumParams.devNum
		pha
		jsl	DeviceToString

End
;-----------------------------------------------
		ExitCode

		ENDP
				
*===============================================*
*	Get the device number for a Volume	*
*						*
* IN:	---- STACK ----				*
*	space (Word)				*
*	pathname (Ptr)	- W string ptr		*
*  SP->						*
*						*
* OUT:	---- STACK ----				*
*	devNum (Word)				*
*  SP->						*
*===============================================*

GetDeviceNumber	FUNC	EXPORT

		Initframe
		FrameType  SaveB,ReturnA	; save data bank, return A reg (and carry)
		
pathname	Param	Ptr			; input parameter

devNum		Result	Word			; result returned

		IMPORT	GetDevNumParams:recGetDevNum
		
		EntryCode
;-----------------------------------------------
Begin
		phk
		plb

		lda	#2			; initialize record
		sta	GetDevNumParams.pcount
		lda	<pathname
		sta	GetDevNumParams.devName
		lda	<pathname+2
		sta	GetDevNumParams.devName+2
		
		stz	<devNum			; in case error
		
		ldy	#osGetDevNum
		lda	#GetDevNumParams
		ldx	#GetDevNumParams>>16
		jsl	CallGSOS
		bcs	End

		lda	GetDevNumParams.devNum
		sta	<devNum
		lda	#0			; no error
End
;-----------------------------------------------
		ExitCode

		ENDP

*===============================================*
* Get Information about a Volume in a device	*
*						*						*
* IN:	---- STACK ----				*
*	devNamePtr (long) - W string ptr	*
*	volNamePtr (long) - W string ptr	*
*	blkTotalPtr (long)			*
*	blkFreePtr (long)			*
*	fileSysIDPtr (long)			*
*	blkSizePtr (long)			*
*	retAddr (3 bytes)			*
*  SP->						*
*						*
* OUT:	---- STACK ----				*
*	retAddr (3 bytes)			*
*===============================================*

GetVolumeInfo	PROC	EXPORT

		InitFrame
		FrameType  SaveB,ReturnA	; save data bank, return A reg (and carry)

blkSizePtr	Param	Ptr			; input parameters (revese order)
fileSysIDPtr	Param	Ptr
blkFreePtr	Param	Ptr
blkTotalPtr	Param	Ptr
volNamePtr	Param	Ptr
devNamePtr	Param	Ptr

		IMPORT	VolumeParams:recVolume
		IMPORT	WStringCopy
		
		EntryCode
;-----------------------------------------------
Begin
		phk
		plb

		lda	#8				;initialize record
		sta	VolumeParams.pcount
		lda	<devNamePtr
		sta	VolumeParams.devName
		lda	<devNamePtr+2
		sta	VolumeParams.devName+2
		lda	#NameBuffer1
		sta	VolumeParams.volName
		lda	#NameBuffer1>>16
		sta	VolumeParams.volName+2		
		
		ldy	#osVolume
		lda	#VolumeParams
		ldx	#VolumeParams>>16
		jsr	CallGSOS

		bcc	getName
		cmp	#$57
		bne	end				; error occured

		jsr	copyVolumeName			;copy the volume name anyway
		lda	#$57				;since it's not valid under
		bra	end				;System 6.0's OS
		
getName		jsr	copyVolumeName

getTotal	ldy	#2
		lda	<blkTotalPtr+1
		beq	getFree
		lda	VolumeParams.totalBlks
		sta	[<blkTotalPtr]
		lda	VolumeParams.totalBlks+2
		sta	[<blkTotalPtr],y		; Y set above
		
getFree		lda	<blkFreePtr+1
		beq	getID
		lda	VolumeParams.freeBlks
		sta	[<blkFreePtr]
		lda	VolumeParams.freeBlks+2
		sta	[<blkFreePtr],y			; Y set above

getID		lda	<fileSysIDPtr+1
		beq	getSize
		lda	VolumeParams.fileSysID
		sta	[<fileSysIDPtr]

getSize		lda	<blkSizePtr+1
		beq	End			; a-reg has zero
		lda	VolumeParams.blkSize
		sta	[<blkSizePtr]
		lda	#0

End
;----------------------------------------------
		ExitCode


;
; copy the volume name from our name to their volNamePtr
;
copyVolumeName
		lda	<volNamePtr+1
		beq	@done
		PushLong #Name1
		pushZLong <volNamePtr
		jsl	WStringCopy
@done		rts
		
		ENDP
				
*===============================================*
*	Get Information about a File		*
*						*						*
* IN:	---- STACK ----				*
*	pathnamePtr (Ptr)			*
*	accessPtr (Ptr)				*
*	fileTypePtr (Ptr)			*
*	auxTypePtr (Ptr)			*
*	storeTypePtr (Ptr)			*
*	cDatePtr (Ptr)				*
*	mDatePtr (Ptr)				*
*	bytesPtr (Ptr)				*
*	blocksPtr (Ptr)				*
*	fileSysPtr (Ptr)			*
*  SP->						*
*						*
* OUT:	none					*
*===============================================*

GetFileInfo	PROC	EXPORT

		InitFrame
		FrameType  SaveB, ReturnA	; save data bank, return A reg (and carry)

fileSysPtr	Param	Ptr			; input parameters (revese order)
blocksPtr	Param	Ptr
bytesPtr	Param	Ptr
mDatePtr	Param	Ptr
cDatePtr	Param	Ptr
storagePtr	Param	Ptr
auxTypePtr	Param	Ptr
fileTypePtr	Param	Ptr
accessPtr	Param	Ptr
pathnamePtr	Param	Ptr

		IMPORT	FileInfoParams:recFileInfo
		IMPORT	WStringCopy
		IMPORT	OptionList:recOptionList
		
		EntryCode
;-----------------------------------------------
Begin
		phk
		plb

		lda	#12				; initialize record
		sta	FileInfoParams.pcount
		lda	<pathnamePtr
		sta	FileInfoParams.pathname
		lda	<pathnamePtr+2
		sta	FileInfoParams.pathname+2
		lda	#OptionListBuff
		sta	FileInfoParams.optionList
		lda	#OptionListBuff>>16
		sta	FileInfoParams.optionList+2
		
		ldy	#osGetFileInfo
		lda	#FileInfoParams
		ldx	#FileInfoParams>>16
		jsr	CallGSOS
		bcc	getAccess
		cmp	#$4F				; ignore BufferTooSmall error
		beq	getAccess
		brl	End				; error occured

getAccess	lda	<accessPtr+1
		beq	getFileType			; skip access
		lda	FileInfoParams.access
		sta	[<accessPtr]

getFileType	lda	<fileTypePtr+1
		beq	getAuxType			; skip filetype
		lda	FileInfoParams.filetype
		sta	[<fileTypePtr]

getAuxType	lda	<auxTypePtr+1
		beq	getStorage			; skip auxtype
		lda	FileInfoParams.auxtype
		sta	[<auxTypePtr]
		ldy	#2
		lda	FileInfoParams.auxtype+2
		sta	[<auxTypePtr],y
		
getStorage	lda	<storagePtr+1
		beq	getCDate			; skip storage type
		lda	FileInfoParams.storetype
		sta	[<storagePtr]

getCDate	lda	<cDatePtr+1
		beq	getMDate			; skip createDate
		ldy	#6
@LoopC		lda	FileInfoParams.create,y
		sta	[<cDatePtr],y
		dey
		dey
		bpl	@LoopC

getMDate	lda	<mDatePtr+1
		beq	getbytes			; skip modDate
		ldy	#6
@LoopM		lda	FileInfoParams.modify,y
		sta	[<mDatePtr],y
		dey
		dey
		bpl	@LoopM

getBytes	lda	<bytesPtr+1
		beq	getBlocks			; skip bytes
		lda	FileInfoParams.bytes
		ldx	FileInfoParams.bytes+2
		ldy	FileInfoParams.storetype
		cpy	#$05				; extended file ?
		bne	set1
		clc
		adc	FileInfoParams.rescbytes	; add resource bytes
		pha
		txa
		adc	FileInfoParams.rescbytes+2
		tax
		pla
set1		sta	[<bytesPtr]
		ldy	#2
		txa
		sta	[<bytesPtr],y

getBlocks	lda	<blocksPtr+1			; skip blocks
		beq	getFileSys			
		lda	FileInfoParams.blocks
		ldx	FileInfoParams.blocks+2
		ldy	FileInfoParams.storetype
		cpy	#$05				; extended file ?
		bne	set2
		clc
		adc	FileInfoParams.rescblocks	; add resource blocks
		pha
		txa
		adc	FileInfoParams.rescblocks+2
		tax
		pla
set2		sta	[<blocksPtr]
		ldy	#2
		txa
		sta	[<blocksPtr],y

getFileSys	lda	<fileSysPtr+1
		beq	End				; skip file system (a has 0)
		lda	OptionList.fileSysId
		sta	[<fileSysPtr]
		
		lda	#0				; return no error
End
;----------------------------------------------
		ExitCode

		ENDP
				
*===============================================*
*	Get Information about a device		*
*						*						*
* IN:	---- STACK ----				*
*	devNum (word)				*
*	devNamePtr (Ptr) - W string ptr		*
*	devCharPtr (Ptr)			*
*	devBlocksPtr (Ptr)			*
*	devIDPtr (Ptr)				*
*  SP->						*
*						*
* OUT:	none					*
*===============================================*

GetDeviceInfo	PROC	EXPORT

		InitFrame
		FrameType  SaveB,ReturnA	; save data bank, return A reg (and carry)

devIDPtr	Param	Ptr			; input parameters (reverse order)
devBlocksPtr	Param	Ptr
devCharPtr	Param	Ptr
devNamePtr	Param	Ptr
devNum		Param	Word


		IMPORT	DevInfoParams:recDevInfo
		IMPORT	WStringCopy
		
		EntryCode
;-----------------------------------------------
Begin
		phk
		plb

		lda	<devIDPtr		; does caller want devID or totalBlocks?
		ora	<devBlocksPtr+1
		bne	init
		lda	#3			; prevent media access if not needed
		bra	cont
		
init		lda	#8			; initialize record
cont		sta	DevInfoParams.pcount
		lda	<devNum
		sta	DevInfoParams.devNum
		lda	#NameBuffer1
		sta	DevInfoParams.devName
		lda	#NameBuffer1>>16
		sta	DevInfoParams.devName+2
		
		jsl	GSOSCall
		DC.W	osDevInfo
		DC.L	DevInfoParams
		bcs	End

getName		lda	<devNamePtr+1
		beq	getChar
		PushLong #Name1
		pushZLong <devNamePtr
		jsl	WStringCopy

getChar		lda	<devCharPtr+1
		beq	getBlocks
		lda	DevInfoParams.devChar
		sta	[<devCharPtr]

getBlocks	lda	<devBlocksPtr+1
		beq	getID
		lda	DevInfoParams.blocks
		sta	[<devBlocksPtr]
		ldy	#2
		lda	DevInfoParams.blocks+2
		sta	[<devBlocksPtr],y
		
getID		lda	<devIDPtr+1
		beq	done
		lda	DevInfoParams.devID
		sta	[<devIDPtr]

done		lda	#0

End
;-----------------------------------------------
		ExitCode

		ENDP
				
*===============================================*
*	    Get a Device's Status		*
*						*						
* IN:	---- STACK ----				*
*	space (Word)				*
*	devNum (Word)				*
*  SP->						*
*						*
* OUT:	---- STACK ----				*
*	status (Word)				*
*  SP->						*
*===============================================*

GetDeviceStatus	FUNC	EXPORT

		InitFrame
		FrameType  SaveB,ReturnA	; save data bank, return A reg (and carry)

devNum		Param	Word			; input parameters (revese order)

status		Result	Word			; output value

		IMPORT	DevStatParams:recDevControl

		EntryCode
;-----------------------------------------------
Begin
		phk
		plb

		lda	#5			; initialize record
		sta	DevStatParams.pcount
		lda	<devNum
		sta	DevStatParams.devNum
		lda	#0			; generic device status
		sta	DevStatParams.ctrlCode
		lda	#StatusList
		sta	DevStatParams.ctrlList
		lda	#StatusList>>16
		sta	DevStatParams.ctrlList+2
		lda	#6
		sta	DevStatParams.request
		stz	DevStatParams.request+2		
		
		ldy	#osDevStatus
		lda	#DevStatParams
		ldx	#DevStatParams>>16
		jsr	CallGSOS
		bcs	End

		lda	DevStatParams.transfer	; was at least 2 bytes transfered?
		cmp	#2
		bcs	goodStat
		stz	StatusList		; unknown status
		
goodStat	lda	StatusList
		sta	<status
		lda	#0			; return no error
End
;----------------------------------------------
		ExitCode

		ENDP
		
*===============================================*
*		 Eject a Disk			*
*						*						*
* IN:	---- STACK ----				*
*	devNum (Word)				*
*  SP->						*
*						*
* OUT:	none					*
*===============================================*

EjectDisk	PROC	EXPORT

		InitFrame
		FrameType  SaveB		; save data bank

devNum		Param	Word			; input parameters (revese order)

		IMPORT	DevCtrlParams:recDevControl

		EntryCode
;-----------------------------------------------
Begin
		phk
		plb

		lda	<devNum
		sta	DevCtrlParams.devNum

		lda	#5
		sta	DevCtrlParams.pcount
		lda	#2			; eject code
		sta	DevCtrlParams.ctrlCode
		lda	#ControlList
		sta	DevCtrlParams.ctrlList
		lda	#ControlList>>16
		sta	DevCtrlParams.ctrlList+2
		stz	DevCtrlParams.request
		stz	DevCtrlParams.request+2		
		
		
		lda	IgnoreErrors		; preserve setting
		pha

		lda	#1
		sta	IgnoreErrors		; I don't care about eject errors
		
		ldy	#osDevControl
		lda	#DevCtrlParams
		ldx	#DevCtrlParams>>16
		jsr	CallGSOS

		pla
		sta	IgnoreErrors		; restore setting
End
;----------------------------------------------
		ExitCode

		ENDP
				
; format a disk
;
; IN:	---- STACK ----
;	space (Word)
;	devNamePtr (Ptr)
;	volNamePtr (Ptr)
;  SP->	
;				
; OUT:	none					
;.....................................................................

FormatDisk	PROC	EXPORT

		InitFrame
		FrameType  SaveB,ReturnA	; save data bank, return A reg (and carry)

volNamePtr	Param	Ptr			; input parameters (revese order)
devNamePtr	Param	Ptr

		IMPORT	FormatParams:recFormat
		IMPORT	SaveCursor
		IMPORT	RestoreCursor
		IMPORT	WatchCursor
		EntryCode

Begin
		phk
		plb

		lda	#$FFFF
		sta	inFormat

		pei	devNamePtr+2
		pei	devNamePtr
		pushlong #0
		pushlong #0
		pushlong #0
		pushlong #formatParams.reqFileSys
		pushlong #0
		jsl	getVolumeInfo

		lda	formatParams.reqFileSys
		cmp	#$0c
		bne	@notISO9660
		stz	formatParams.reqFileSys
@notISO9660

		pha
		pushZLong <devNamePtr
		jsl	GetDeviceNumber		; device number left on stack
		pushZLong <devNamePtr
		pushlong #0
		pushlong #0
		pushlong #0
		jsl	GetDeviceInfo

		lda	#5			; initialize record
		sta	FormatParams.pcount
		lda	<devNamePtr
		sta	FormatParams.devName
		lda	<devNamePtr+2
		sta	FormatParams.devName+2
		lda	<volNamePtr
		sta	FormatParams.volName
		lda	<volNamePtr+2
		sta	FormatParams.volName+2
		lda	#$c000			;let the user type a name
		sta	FormatParams.flags
				
		ldy	#osFormat
		lda	#FormatParams
		ldx	#FormatParams>>16
		jsr	CallGSOS
		
		bcc	End
		cmp	#0			;did the user cancel?
		bne	End
		lda	#$8000			; fake an error
End

		stz	inFormat
		ExitCode
		ENDP


; erase a disk
;
; IN:	---- STACK ----	
;	space (Word)			
;	devNamePtr (Ptr)	
;	volNamePtr (Ptr)	
;  SP->				
;			
; OUT:	none		
;.....................................................................


EraseDisk	PROC	EXPORT

		InitFrame
		FrameType  SaveB,ReturnA	; save data bank, return A reg (and carry)

volNamePtr	Param	Ptr
devNamePtr	Param	Ptr

		IMPORT	FormatParams:recFormat
		IMPORT	SaveCursor
		IMPORT	RestoreCursor
		IMPORT	WatchCursor
		IMPORT	getVolumeInfo
		IMPORT	GetDevNum
		
		EntryCode
		
Begin
		phk
		plb

		pei	devNamePtr+2
		pei	devNamePtr
		pushlong #0
		pushlong #0
		pushlong #0
		pushlong #formatParams.reqFileSys
		pushlong #0
		jsl	getVolumeInfo

		lda	formatParams.reqFileSys
		cmp	#$0c
		bne	@notISO9660
		stz	formatParams.reqFileSys
@notISO9660

		lda	#5			; initialize record
		sta	FormatParams.pcount
		lda	<devNamePtr
		sta	FormatParams.devName
		lda	<devNamePtr+2
		sta	FormatParams.devName+2
		lda	<volNamePtr
		sta	FormatParams.volName
		lda	<volNamePtr+2
		sta	FormatParams.volName+2
		lda	#$c000			;let the user type a name
		sta	FormatParams.flags

		ldy	#osEraseDisk
		lda	#FormatParams
		ldx	#FormatParams>>16
		jsr	CallGSOS
		
		bcc	End
		cmp	#0			;did the user cancel?
		bne	End
		lda	#$8000			; fake an error
End
		ExitCode
		ENDP

*===============================================*
*	Scan GSOS Devices for Mounting		*
*						*
* This routine will look for GSOS block devices *
* that are online during Finder startup. For	*
* each valid device a Disk_Switch event is 	*
* posted to the Event Manager.	If it is not a	*
* statup call then this routine just does a 	*
* D_STATUS call for removable block devices to  *
* cause disk switches to be sent to the GSOS	*
* notification queue (See our NotifyProc).	*
*						*
* Note: Disk]['s, non-block, and non-removable	*
* devices are only checked once; after that 	*
* they are ignored forever.			*
*						*
* IN:	---- STACK ----				*
*	startUp (Word)				*
* SP -->					*
*						*
* OUT:	none					*
*	retAddr (3 bytes)			*
*===============================================*

DeviceScan	PROC	EXPORT

;app2Evt	equ	$000D			; disk switch event - 18-Mar-93 JCM - in e16.event

		InitFrame
		FrameType  SaveB		; save data bank

curTick		Local	Long			; local variables
mainDP		Local	Word			; main's DP (for glue)

startUp		Param	Word			; input parameters (revese order)

		IMPORT	volumeNameHandle
		import	MemoryID
		IMPORT	WStringCopy
		IMPORT	C1_bootname
		IMPORT	c1_pathname
		import	c1_devicename
		import	c1_volname
		IMPORT	InstallTrashcan
		IMPORT	prefer
		IMPORT	DevInfoParams:recDevInfo
		IMPORT	DevStatParams:recDevControl
		IMPORT	MountDisk
		IMPORT	fileSysID
		IMPORT	PathAddName
		IMPORT	IconsName
		IMPORT	MarkDeviceOnline

		tdc				; stash main's DP in x
		tax
		
		EntryCode
;-----------------------------------------------
		stx	<mainDP			; remember main's DP (sick)
Begin
		phk
		plb

		lda	<startUp		; on = starting up
		sta	GlobalStartupFlag
		beq	@notStartup
		
		ldx	#(MaxDevices/8)-2
@oLoop		stz	OnlineDeviceTable,x
		dex
		dex
		bpl	@oLoop
		stz	OnlineDeviceTable	; insurance
		
@notStartup	jsr	Init			; initialize our local variables
		
scanLoop	lda	<startUp		; flag: came in on stack: $FFFF if startup
		bne	info			; bra if startup (1st time thru)

		ldy	DevInfoParams.devNum	; should we skip this device ?
		dey
		cpy	#maxDevices		
		bcs	info			; ouside our table
		lda	SkipDeviceTbl,y
		and	#$00FF			; byte entries
		beq	info
		brl	next			; Disk][ , non-removable, or non-block
		
info		lda	DevInfoParams.devNum
		sta	DeviceSoFar		; remember highest device number (+1)
		
		jsl	GSOSCall		; get the device's characteristics
		DC.W	osDevInfo
		DC.L	DevInfoParams
		bcc	@infoOK
		brl	done			; no more devices; we're done!
@infoOK

		lda	DevInfoParams.devChar
		and	#$0080			; is it a block device ?
		bne	status			; yes
		jsr	MarkDevice		; no, so mark it so we'll skip it next time
		brl	next			;  (stream device: terminal, prtr, ...)

status		lda	DevInfoParams.devNum
		sta	DevStatParams.devNum
		jsl	GSOSCall
		DC.W	osDevStatus
		DC.L	DevStatParams
		bcc	@devOK
		brl	next			; error, ignore this device
@devOK

		lda	DevInfoParams.devNum	; have we seen this device already?
		cmp	LastDevice
		bcs	@notLast
		brl	next			; yes, so we're done with this device
@notLast	

		lda	#8			; need devID parameter
		sta	DevInfoParams.pcount
		jsl	GSOSCall		; now get devID (with media access punishment)
		DC.W	osDevInfo
		DC.L	DevInfoParams
		lda	#3
		sta	DevInfoParams.pcount	; back to normal pCount
		bcs	cont			; call failed !?

		lda	DevInfoParams.devID	; is it one of those DUMB (DiskII) drives?
		beq	mark			; yes, so mark it
		
		cmp	#$20			;is it the Apple Tape Drive? GS/OS devid $20
		bne	@notTapeDrive
		
		jsr	MarkDevice
		brl	next			;if so, die, die, die! (ignore it)

@notTapeDrive	lda	DevInfoParams.devChar
		and	#$0004			; is it a removable device ?
		bne	cont			; if not mark it

mark		jsr	MarkDevice		; mark device so we'll skip it next time

cont		lda	StatusList
		and	#$0010			; is this device online ?
;;;		beq	next			; no
		beq	@maybeMakeTrash		;25-Nov-92 DAL
		
		lda	DevInfoParams.devNum
		jsl	MarkDeviceOnline		
		jsr	FakeInsert		; yes, so force a mount

@maybeMakeTrash
;
; Now that we've mounted the disk, if this is the startup loop AND this is device #1, install the
; trashcan (meaning that old-style icons can be used to change the trash, but not new style ones)
;
		lda	DevInfoParams.devNum	; have we seen this device already?
		cmp	#1			;is our device the boot device? (#1)
		bne	next
		lda	<startUp		;is this our startup loop?
		beq	next			;if not, don't install the trashcan
		
		phd
		lda	<mainDP			; glue to main code
		tcd
		jsl	InstallTrashcan		; Install the trashcan icon and open the trash's invisible window		
		pld
		bcc	next
		bra	realDone	

next		inc	DevInfoParams.devNum	; move to next device
		brl	scanLoop
goRealDone	clc
		bra	realDone

done		lda	<startUp
		beq	realDone
				
		clc				;@@@ used to have the CLC before the PLD
;----------------------------------------------

realDone	lda	DevInfoParams.devNum
		sta	LastDevice		; remember highest device number (+1)
	
		ExitCode			; return to caller


;-----------------------------------------------
FakeInsert
		ldy	#0
		ldx	DevInfoParams.devID	; is it one of those DUMB drives?
		bne	set			; no

		lda	<startup
		beq	@just525
		lda	>prefer
		and	#1
;		and	#PREF_AUTO525
		bne	@just525
		
		ldy	#3
		bra	set


@just525	ldy	#1
set		phd
		pea	#$FFFF			;we're starting up!
		lda	<mainDP			; glue to yuky main code
		tcd
		lda	 DevInfoParams.devNum	; device number of new disk
		pha
		phy				; flag: event message (hi word) = type
		jsl	MountDisk

		pld
		rts

;-----------------------------------------------
MarkDevice
		ldy	DevInfoParams.devNum	; get device to mark
		dey				; zero-relative table
		cpy	#maxDevices		; will it fit in our table?
		bcs	endMark
		lda	#$FF
		sep	#$20
		sta	SkipDeviceTbl,y		; this device will be skipped next time
		rep	#$20
endMark		rts

;-----------------------------------------------
Init
		lda	#3			; initialize d_info record
		sta	DevInfoParams.pcount
		lda	#1			; start with first device
		sta	DevInfoParams.devNum
		lda	#NameBuffer1
		sta	DevInfoParams.devName
		lda	#NameBuffer1>>16
		sta	DevInfoParams.devName+2

		lda	#5			; initialize d_status record
		sta	DevStatParams.pcount
		lda	#0			; generic device status code
		sta	DevStatParams.ctrlCode
		lda	#StatusList
		sta	DevStatParams.ctrlList
		lda	#StatusList>>16
		sta	DevStatParams.ctrlList+2
		lda	#6
		sta	DevStatParams.request
		stz	DevStatParams.request+2		

		lda	<startUp
		beq	endInit
		
		stz	LastDevice
		stz	DeviceSoFar

		ldx	#maxDevices-2		; initialize our skip table
@init		stz	SkipDeviceTbl,x
		dex
		dex
		bpl	@init

endInit		rts
		ENDP

;
; MarkDeviceOnline -- mark device in (A) as ONLINE in the online device bit table
;.....................................................................

MarkDeviceOnline PROC	EXPORT

		phb
		phk
		plb
		
		pha
		lsr	a
		lsr	a
		lsr	a			
		tax				; index into online device table
		lda	1,s
		and	#7
		tay				; index into mask table
		
		SEP	#$20
		LONGA	OFF
		
		lda	OnlineDeviceTable,x
		ora	OnlineMasks,y
		sta	OnlineDeviceTable,x
		
		REP	#$20
		LONGA	ON
		
		pla
		plb
		rtl
		ENDP

;
; MarkDeviceOffline -- mark device in (A) as OFFLINE in the online device bit table
;.....................................................................
		
MarkDeviceOffline PROC	EXPORT

		phb
		phk
		plb
		
		pha
		lsr	a
		lsr	a
		lsr	a			
		tax				; index into online device table
		lda	1,s
		and	#7
		tay				; index into mask table
		
		SEP	#$20
		LONGA	OFF
		
		lda	OnlineDeviceTable,x
		and	OfflineMasks,y
		sta	OnlineDeviceTable,x
		
		REP	#$20
		LONGA	ON
		
		pla
		plb
		rtl
		ENDP

;
; IsDeviceOffline -- Check if the device in (A)'s bit is ON for ONLINE in the OnlineDeviceTable
;
; OUT: carry set if device is online
;.....................................................................
		
IsDeviceOnline PROC	EXPORT

		phb
		phk
		plb
		
		pha
		lsr	a
		lsr	a
		lsr	a			
		tax				; index into online device table
		lda	1,s
		and	#7
		tay				; index into mask table
		
		SEP	#$20
		LONGA	OFF
		
		lda	OnlineDeviceTable,x
		and	OnlineMasks,y
		
		REP	#$20
		LONGA	ON
		
		bne	@online
		
		clc
		pla
		plb
		rtl
		
@online		sec
		pla
		plb
		rtl
		ENDP
		
*************************************************************************************************
*
* MarkVolumeChanged - This procedure takes a device number and marks it dirty in our device
*		      changed bit table. This is used by Finder's main event loop to determine
*		      if a device needs re-read to update windows.
*
		
MarkVolumeChanged PROCNAME	EXPORT

		phb

		phk
		plb
		
		tay				;device number
		and	#$007F			;only devices 1-127 are valid
		lsr	a
		lsr	a
		lsr	a			
		tax				;index into dirty device table
		tya				;orginal device number
		and	#7
		tay				;index into mask table
		
		SEP	#$20
		LONGA	OFF
		
		lda	DirtyDeviceTable,x	;get any previously dirty devices
		ora	ChangedMasks,y		;we're sharing this table with the online/offline code
		sta	DirtyDeviceTable,x	;moosh in this dirty device
		
		REP	#$20
		LONGA	ON
		
		plb

		rts

		ENDP

*************************************************************************************************
*
* FindChangedVolume - This function looks through the volume dirty table and returns a device
*		      for a volume that needs re-read. If no devices are dirty, the carry is
*		      returned set. If one is found to be dirty, the carry is returned clear, and
*		      the Accumulator contains a dirty device number. When a device is found as
*		      dirty, its table entry is cleared to be not dirty on exit.
*

FindChangedVolume PROCNAME	EXPORT

		phb

		phk
		plb

		ldx	#(MaxDevices/8)-1	;8 devices per byte, zero-based table

		SEP	#$30
		LONGA	OFF
		LONGI	OFF

@checkForDirty	lda	DirtyDeviceTable,x	;get a byte of dirty flags
		bne	@foundDirtyByte

		dex

		bpl	@checkForDirty

		REP	#$30
		LONGA	ON
		LONGI	ON

		plb

		sec				;no dirty devices found
		
		rtl

* Ok, we've found a byte with some dirty bits in it. Figure out a device number for one of the bits
* that's set. When we get here, X contains an index into the proper byte, so if we multiply it by 8,
* we'll have bits 6-3 of the dev num. We'll always return the high bit clear. So we need to figure
* out bits 2-0. Follow along...

		LONGA	OFF			;we're still in short mode here
		LONGI	OFF

@foundDirtyByte	pha				;there's a dirty bit in here somewhere

		ldy	#-1

@checkNextBit	iny

		lda	1,s
		and	ChangedMasks,y		;is this device one that is dirty?
		
		beq	@checkNextBit

* That was simple. Y now contains a 3 bit value that we'll use for bits 2-0 of the device number.		
* Now we'll calculate the high order bits 6-3. Oh, we'll also clear the dirty bit from the table
* while we're at it.

@foundDirtyBit	lda	DirtyDeviceTable,x
		and	UnchangedMasks,y	;this device is not dirty any more (or will be when the caller is done)
		sta	DirtyDeviceTable,x

		txa				;contains index to byte we found a dirty bit in
		asl	a
		asl	a
		asl	a			;shift this up to bits 6-3
		sta	1,s
		tya
		clc
		adc	1,s			;and, lo, there was a device number
		ply				;this was temp space

		rep	#$30

		LONGA	ON
		LONGI	ON
		
		and	#$007F			;make the device number valid

		plb

		clc				;we've got a valid device number for them
		
		rtl
		
		ENDP
		
*===============================================*
*	Write a string to the Console driver	*
*						*
* INPUT:	---- STACK ----			*
*		strPtr (Ptr) - P string		*
*	SP -->					*
*						*
* OUTPUT:	none				*
*===============================================*

ConsoleWrite	PROC	EXPORT

		InitFrame
		FrameType  SaveB		; save data bank
		
strPtr		Param	Ptr			; input parameter

		IMPORT	DevInfoParams:recDevInfo
		IMPORT	DevCtrlParams:recDevControl
		IMPORT	OpenParams:recOpen
		IMPORT	WriteParams:recWrite
		IMPORT	DeviceInfo
		IMPORT	DeviceControl
		IMPORT	OpenFile
		IMPORT	WriteFile
		IMPORT	CloseFile		

		EntryCode
;-----------------------------------------------
Begin
		phk
		plb

;--- First find the ".CONSOLE" driver ----------

		lda	#8			; initialize record
		sta	DevInfoParams.pcount
		stz	DevInfoParams.devNum
		lda	#NameBuffer1
		sta	DevInfoParams.devName
		lda	#NameBuffer1>>16
		sta	DevInfoParams.devName+2

@loop		inc	DevInfoParams.devNum
		jsr	DeviceInfo
		bcs	End
		lda	DevInfoParams.devID
		cmp	#ConsoleDriver		; is it the .CONSOLE driver ?
		bne	@loop			; no

;--- Reset the ".CONSOLE" driver ---------------

		lda	#5			; initialize record
		sta	DevCtrlParams.pcount
		lda	DevInfoParams.devNum
		sta	DevCtrlParams.devNum
		stz	DevCtrlParams.ctrlCode	; do a reset
		lda	#ControlList
		sta	DevCtrlParams.ctrlList
		lda	#ControlList>>16
		sta	DevCtrlParams.ctrlList+2
		
		jsr	DeviceControl
		
;--- Open the ".CONSOLE" driver ----------------

		lda	#2			; initialize record
		sta	OpenParams.pcount
		lda	#Name1
		sta	OpenParams.pathname
		lda	#Name1>>16
		sta	OpenParams.pathname+2
		
		jsr	OpenFile
		bcs	End
		
;--- Write string to driver -------------------		
		
		lda	#4			; initialize record
		sta	WriteParams.pcount		
		lda	[<strPtr]		; length of data
		and	#$00FF
		sta	WriteParams.request
		
*		inc4	<strPtr			; skip length byte
*		lda	<strPtr			; pointer to data
*		sta	WriteParams.buffer
*		lda	<strPtr+2
*		sta	WriteParams.buffer+2
		jsr	Kludge

		lda	OpenParams.refNum
		jsr	WriteFile

;--- Close the driver -------------------------		

		lda	OpenParams.refNum
		jsr	CloseFile

End
;-----------------------------------------------
		ExitCode			; return to caller

	
;--- Start of Kludge ---------------------------
Kludge
		IMPORT	PStringCopy
		
		pushZLong <strPtr
		PushLong #Name1+4
		jsl	PStringCopy

		lda	#$0F0C			; clear viewport, home cursor, inverse
		sta	Name1+0
		lda	#$141A			; clear line, set horizontal position
		sta	Name1+2
		
		lda	#80
		sec
		sbc	WriteParams.request
		lsr	a
		clc
		adc	#32
		
		sep	#$20
		sta	Name1+4			; horizontal position
		rep	#$20

		lda	WriteParams.request
		clc
		adc	#6
		sta	WriteParams.request

		tay
		lda	#$0E			; set normal display mode
		sta	Name1-1,y

		lda	#Name1			; pointer to data
		sta	WriteParams.buffer
		lda	#Name1>>16
		sta	WriteParams.buffer+2
		rts

;--- End of Kludge -----------------------------

		ENDP
		
*===============================================*
*		Lock/Unlock a file		*
*						*
* IN:	---- STACK ----				*
*	flag 	(Word) - 0: unlock, 1: lock	*
*	pathPtr (Ptr) - Class 1			*
*  SP->						*
*						*
* OUT:	none					*
*===============================================*

LockTheFile	PROC	EXPORT

		InitFrame
		FrameType  SaveB,ReturnA	; save data bank, return A reg (and carry)
		
pathPtr		Param	Ptr			; input parameters (reverse order)
flag		Param	Word

		IMPORT	FileInfoParams:recFileInfo
		
		EntryCode
;-----------------------------------------------
Begin
		phk
		plb

		lda	#2
		sta	FileInfoParams.pcount
		
		lda	<pathPtr
		sta	FileInfoParams.pathname
		lda	<pathPtr+2
		sta	FileInfoParams.pathname+2

		ldy	#osGetFileInfo
		lda	#FileInfoParams
		ldx	#FileInfoParams>>16
		jsr	CallGSOS
		bcs	End
		
		lda	FileInfoParams.access	; get current access
		ora	#$00C2			; unlock (just in case)
		ldx	<flag			; Lock or Unlock?
		beq	store
		and	#$FF3D			; lock it
store		sta	FileInfoParams.access

set		ldy	#osSetFileInfo
		lda	#FileInfoParams
		ldx	#FileInfoParams>>16
		jsr	CallGSOS

End
;-----------------------------------------------
		ExitCode			; return to caller
		
*===============================================*
*		Disable/Enable a file		*
*						*
* IN:	---- STACK ----				*
*	flag 	(Word) - 0: enable, 1: disable	*
*	pathPtr (Ptr) - Class 1			*
*  SP->						*
*						*
* OUT:	none					*
*===============================================*

DisableTheFile	PROC	EXPORT

		InitFrame
		FrameType  SaveB,ReturnA	; save data bank, return A reg (and carry)
		
pathPtr		Param	Ptr			; input parameters (reverse order)
flag		Param	Word

		IMPORT	FileInfoParams:recFileInfo
		
		EntryCode
;-----------------------------------------------
Begin
		phk
		plb
		
		lda	#4
		sta	FileInfoParams.pcount
		
		lda	<pathPtr
		sta	FileInfoParams.pathname
		lda	<pathPtr+2
		sta	FileInfoParams.pathname+2

		ldy	#osGetFileInfo
		lda	#FileInfoParams
		ldx	#FileInfoParams>>16
		jsr	CallGSOS
		bcs	End

		lda	FileInfoParams.auxtype	; get AuxType field
		and	#$7FFF			; make it Active
		ldx	<flag			; disable/enable ?
		beq	storeAux
		ora	#$8000			; make it Inactive
storeAux	sta	FileInfoParams.auxtype
		
		ldy	#osSetFileInfo
		lda	#FileInfoParams
		ldx	#FileInfoParams>>16
		jsr	CallGSOS

End
;-----------------------------------------------
		ExitCode			; return to caller

		ENDP
		
*===============================================*
*		Walk a Directory		*
*						*
* Recursively walk a directory and count files,	*
* folders,and total the block/byte sizes.	*
*						*
* INPUT:	---- STACK ----			*
*		pathnamePtr (ptr) - class1	*
*		folderCountPtr (ptr)		*
*		fileCountPtr (ptr)		*
*		blockCountPtr (ptr)		*
*		byteCountPtr (ptr)		*
*		countInvisible (bool)		*
*	SP -->					*
*						*
* OUTPUT:	none				*
*						*
* Note:	a-reg has error code, $8000 = special	*
*	carry set on error (data is invalid)	*
*===============================================*

WalkDirectory	PROC	EXPORT

		InitFrame
		FrameType  SaveB,ReturnA	; saveB, return A reg (and carry)

byteCount	Local	Long			; local variables
blockCount	Local	Long
fileCount	Local	Long
folderCount	Local	Long
entryCount	Local	Integer
curFile		Local	Integer
startStack	Local	Integer
getSizes	Local	Boolean
errorCode	Local	Word
checkKeyTick	Local	Word			;19-Mar-93 JCM

countInvisible	Param	Boolean			; input parameters (reverse order)
byteCountPtr	Param	Ptr
blockCountPtr	Param	Ptr
fileCountPtr	Param	Ptr
folderCountPtr	Param	Ptr
pathnamePtr	Param	Ptr

		IMPORT	OpenParams:recOpen
		IMPORT	DirParams:recGetDirEntry
		
		IMPORT	PathSubName
		IMPORT	PathAddName
		IMPORT	OpenFile
		IMPORT	CloseFile
		IMPORT	GetDirEntry
		IMPORT	WStringCopy
		
		IMPORT	eventRec
		
; Mensch 5/17/89 (fixing BRC #46359)
		IMPORT	LongPathAddName
; end Mensch 5/17/89 (BRC #46359)

		EntryCode
;----------------------------------------------
Begin
		phk
		plb

		jsr	InitWalk		; initialize variables
		
		tsc
		sta	<startStack		; remember for recursion
	
		
;--- Start of Recursion ------------------------

START		jsr	OpenFile		; open the directory
		bcc	count
		cmp	#$4E			; network access error ?
		beq	special
		brl	ERROR
special		lda	#$8000			; mark as special access error
		sta	<errorCode
		brl	STOP2
		
count		jsr	CountEntries		; get number of entries
		bne	WHILE
		brl	STOP
		
WHILE		jsr	ProcessEntry		; process each entry
; Mensch 5/17/89 (fixing BRC #46359)
		bcc	@EntryOK		; reverse stepping-stone
		brl	ERROR			; because ERROR is too far away
@EntryOK
; end Mensch 5/17/89 (BRC #46359)
		
*** Added - 18-Mar-93 JCM - Check for command-period to terminate the calculate. We
***			    look for keys every 1/2 of a second so we don't slow down
***			    the operation much.

		pha
		pha
		_TickCount
		pla
		tax
		ply
		sec
		sbc	<checkKeyTick
		cmp	#30			;1/2 second intervals
		blt	@checkEntryType		;not enough time has passed, calc some more

@checkEvents	stx	<checkKeyTick

		pha				;Space for result.
		PushWord #$0028			;keyDown and autoKeyEvts
		PushLong #eventRec		;ptr to event record
		_GetNextEvent
		pla				;Return event code.
		beq	@checkEntryType		;nothing doing this time
	
		lda	>eventRec+owhat		;get the event.what field
		cmp	#keyDownEvt
		beq	@checkOAPeriod
	
		cmp	#autoKeyEvt
		bne	@checkEntryType		

@checkOAPeriod	lda	>eventRec+omessage
		cmp	#'.'
		bne	@checkEntryType
		
		lda	>eventRec+omodifiers
		and	#appleKey
		beq	@checkEntryType

		lda	#$4000			;user terminated the calc
		
		brl	ERROR
		
@checkEntryType		

*** End - 18-Mar-93 JCM

		lda	DirParams.fileType	; is this entry a directory?
		cmp	#$0F
		bne	continue		; no

; Mensch 5/15/90 (fixing BRC #46359)
; Make this situation handle path name length errors
; to make the Finder more robust for longer pathnames.
		PushLong	#Name1		; move down to child directory
		PushLong	#LocalPathName
		jsl		PathAddName
		bcc		@okPath
		lda		#FINameTooLong
		sta		GSOSErrCode
		jsr		GSOSError
		stz		GSOSErrCode
		stz		DirParams.fileType
		bra		continue
@okPath
		PushWord OpenParams.refNum	; save current state (for recursion)
		PushZWord <curFile
		PushZWord <entryCount
; new end 5/22/89
; end Mensch 5/17/89 (BRC #46359)
		
		brl	START			; walk this directory (recursive)

continue	lda	<curFile		; return from recursion
		cmp	<entryCount
		bcs	STOP			; end of directory
		inc	<curFile
		brl	WHILE			; get next entry

;-----------------------------------------------

STOP		lda	OpenParams.refNum	; close the file
		jsr	CloseFile
		bcs	ERROR
STOP2		tsc				; check for termination (of recursion)
		cmp	<startStack
		beq	done			; all done
		PushLong #LocalPathName
		jsl	PathSubName		; back up to parent directory
		
		PullWord <entryCount		; get old state (from recursive call)
		PullWord <curFile
		PullWord OpenParams.refNum
		bra	continue		; continue where we left off

done		jsr	ReturnData

		lda	<errorCode		; report any errors
End
;----------------------------------------------
		ExitCode
 
		
;-----------------------------------------------
ERROR
		pha
		lda	#0			; close all open files
		jsr	CloseFile
		pla
		
		ldx	<startStack		; abort the recursion
		txs
		bra	End			; a-reg has error code
	
;-----------------------------------------------
ReturnData

getBytes	ldy	#2
		lda	<byteCountPtr+1		; does caller want byte count ?
		beq	getBlocks
		lda	<byteCount
		sta	[<byteCountPtr]
		lda	<byteCount+2
		sta	[<byteCountPtr],y	; y set above

getBlocks	lda	<blockCountPtr+1	; does caller want block count ?
		beq	getFiles
		lda	<blockCount
		sta	[<blockCountPtr]
		lda	<blockCount+2
		sta	[<blockCountPtr],y	; y set above

getFiles	lda	<fileCountPtr+1		; does caller want file count ?
		beq	getFolders
		lda	<fileCount
		sta	[<fileCountPtr]
		lda	<fileCount+2
		sta	[<fileCountPtr],y	; y set above

getFolders	lda	<folderCountPtr+1	; does caller want folder count ?
		beq	endReturnData
		lda	<folderCount
		sta	[<folderCountPtr]
		lda	<folderCount+2
		sta	[<folderCountPtr],y	; y set above
		
endReturnData	rts

;===============================================
;	Initialize local variables
;===============================================
InitWalk
		PushZLong <pathnamePtr
		PushLong #LocalPathName
		jsl	WStringCopy

		stz	<folderCount		; initialize counters
		stz	<folderCount+2
		stz	<fileCount
		stz	<fileCount+2
		stz	<byteCount
		stz	<byteCount+2
		stz	<blockCount
		stz	<blockCount+2
		stz	<getSizes
		stz	<errorCode
		stz	<checkKeyTick		;19-Mar-93 JCM
		
		lda	<byteCountPtr+1		; does caller want sizes ?
		ora	<blockCountPtr+1
		beq	getPC			; no
		inc	<getSizes		; yes

getPC		lda	#3			; set up pCounts
		sta	OpenParams.pcount
		ldx	#12			; DJB 06/16/89 Changed from #7
		lda	<getSizes
		beq	setPC
		stz	DirParams.optionList	; we don't need optional data
		stz	DirParams.optionList+2
		ldx	#17			; need size parameters too
setPC		stx	DirParams.pCount
				
		lda	#$0001			; read only access
		sta	OpenParams.reqAccess

		lda	#LocalPathName
		sta	OpenParams.pathname
		lda	#LocalPathName>>16
		sta	OpenParams.pathname+2
		
		lda	#NameBuffer1		; the entry names will go here
		sta	DirParams.name
		lda	#NameBuffer1>>16
		sta	DirParams.name+2
		
endInitWalk	rts
		
;===============================================
;	Count file and get size of each entry
;===============================================
ProcessEntry
		stz	DirParams.fileType	; in case we abort this entry

		ldx	#0			; base <-- 0
		ldy	<curFile		; displacement <-- <curFile
		lda	OpenParams.refNum
		jsr	GetDirEntry		; get entry's data
		bcc	access
		
		cmp	#$4E			; network access error ?
		bne	isEnd
		lda	#$8000			; special error code
		sta	<errorCode
		bra	endGood			; ignore this entry
isEnd		cmp	#$61			; end of directory ??
		sec
		bne	endProcess		; no, some other error
		stz	DirParams.fileType
		lda	<curFile		; fake a termination
		sta	<entryCount
		bra	endGood
		
access		lda	DirParams.access	; get access value
		and	#$0004			; check the invisible bit
		beq	type			; not set		
		lda	<countInvisible		; should invisible files be counted?
		beq	endGood			; no, so go to next catalog entry		

type		lda	DirParams.fileType
		cmp	#$0F			; a folder ?
		beq	folder
		inc	<fileCount		; count the file
		bne	size
		inc	<fileCount+2
		bra	size
folder		inc	<folderCount		; count the folder
		bne	size
		inc	<folderCount+2
		
size		lda	<getSizes		; does caller want sizes ?
		beq	endGood	
		
		clc
		lda	<byteCount		; count bytes
		adc	DirParams.bytes
		sta	<byteCount
		lda 	<byteCount+2		;fix BRC 53957 -- andy
		adc	dirParams.bytes+2	;
		sta	<byteCount+2		;

		clc
		lda	<blockCount		; count blocks
		adc	DirParams.blocks
		sta	<blockCount
		lda	<blockCount+2
		adc	dirParams.blocks+2
		sta	<blockCount+2

		lda	DirParams.flags		; is it an extended file?
		bpl	endGood
		
		clc
		lda	<byteCount		; count resc bytes
		adc	DirParams.rescBytes
		sta	<byteCount
		lda	<byteCount+2
		adc	dirParams.rescBytes+2
		sta	<byteCount+2
		
		clc
		lda	<blockCount		; count resc blocks
		adc	DirParams.rescBlocks
		sta	<blockCount
		lda	<blockCount+2
		adc	dirParams.rescBlocks+2
		sta	<blockCount+2		;end fix BRC 53957 -- andy

endGood		clc
endProcess	rts				; return carry flag

;===============================================
;    Get the number of entires in directory
;===============================================
CountEntries
		ldx	#0			; base <-- 0
		ldy	#0			; displacement <-- 0
		lda	OpenParams.refNum
		jsr	GetDirEntry		; get number of entries
		bcc	okCount
		lda	#0			; set equal flag
		sta	<entryCount
		bra	endCount

okCount		lda	#1
		sta	<curFile		; start at first entry
		lda	DirParams.entryNum
		sta	<entryCount
endCount	rts				; return equal flag

		ENDP

		
*===============================================*
*	Read a directory entry			*
*===============================================*

GetDirEntry	PROC

		IMPORT	DirParams:recGetDirEntry
		
		stx	DirParams.base		; x-reg has base
		sty	DirParams.displace	; y-reg has displacement
		sta	DirParams.refNum	; a-reg has ref number

		ldy	#osGetDirEntry
		lda	#DirParams
		ldx	#DirParams>>16
		jsr	CallGSOS
		rts

		ENDP
		
*===============================================*
*	Set File Info				*
*===============================================*

SetFileInfo	PROC

		ldy	#osSetFileInfo
		lda	#FileInfoParams
		ldx	#FileInfoParams>>16
		jsr	CallGSOS
		rts

		ENDP
		
*===============================================*
*	Open up a file				*
*===============================================*

OpenFile	PROC

		ldy	#osOpen
		lda	#OpenParams
		ldx	#OpenParams>>16
		jsr	CallGSOS
		rts
		
		ENDP
		
*===============================================*
*	Write data to a file			*
*===============================================*

WriteFile	PROC

		IMPORT	WriteParams:recWrite

		sta	WriteParams.refnum	; a-reg has ref number

		ldy	#osWrite
		lda	#WriteParams
		ldx	#WriteParams>>16
		jsr	CallGSOS
		rts
		
		ENDP
		
*===============================================*
*	Close up a file				*
*===============================================*

CloseFile	PROC

		IMPORT	CloseParams:recClose

		sta	CloseParams.refnum	; a-reg has ref number
		lda	#1
		sta	CloseParams.pCount

		ldy	#osClose
		lda	#CloseParams
		ldx	#CloseParams>>16
		jsr	CallGSOS
		rts

		ENDP
		
*===============================================*
*	Get Info on a Device			*
*===============================================*

DeviceInfo	PROC

		IMPORT	DevInfoParams:recDevInfo

		ldy	#osDevInfo
		lda	#DevInfoParams
		ldx	#DevInfoParams>>16
		jsr	CallGSOS
		rts

		ENDP

*===============================================*
*	Send a Device Control information	*
*===============================================*

DeviceControl	PROC

		IMPORT	DevCtrlParams:recDevControl

		ldy	#osDevControl
		lda	#DevCtrlParams
		ldx	#DevCtrlParams>>16
		jsr	CallGSOS
		rts

		ENDP

*===============================================*
*	Add/delete entry in Notify Queue	*
*						*
* IN:	none					*
*						*
* OUT:	none					*
*===============================================*
		
AddNotifyProc	PROC	EXPORT

		IMPORT	NotifyParams:recNotifyProc
		
		jsl	GSOSCall
		DC.W	osAddNotifyProc
		DC.L	NotifyParams
		rtl

		EXPORT	DelNotifyProc
DelNotifyProc
		jsl	GSOSCall
		DC.W	osDelNotifyProc
		DC.L	NotifyParams
		rtl

		ENDP

*===============================================*
*	GS/OS Notification Procedure		*
*						*
* IN:	none					*
*						*
* OUT:	none					*
*===============================================*

NotifyProc	PROC

		IMPORT	DevInfoParams:recDevInfo
		import	allowTellFinderCalls

;;;app1Evt	equ	$000C			; volume change - 18-Mar-93 JCM - not used any more
;app2Evt	equ	$000D			; disk switch - 18-Mar-93 JCM - in e16.event

;--- Standard Notify Queue Header ---------------

Header		DC.L	0					; next task link
		DC.W	0					; reserved
		DC.W	$A55A					; signature
		DC.L	neDiskInsert+neDiskEject+neVolChange	; event mask (added neVolChange 21-Aug-92 DAL)
EventCode	DC.L	0					; event code
;------------------------------------------------

		phk
		plb
		
		sta	EventData
		lda	GlobalStartupFlag
		beq	@notStartingUp
		
		lda	EventData
		cmp	DeviceSoFar
		bge	exit
		
@notStartingUp	lda	EventCode
		cmp	#neDiskInsert
		beq	diskInsert
		cmp	#neDiskEject
		beq	diskEject
		cmp	#neVolChange
		bne	exit

volumeChange
*** Changed 21-Aug-92 DAL
;		lda	EventData
;		cmp	#0			; was it a Network volume?
;		bne	exit			; no, so ignore it (for now)

		lda	>allowTellFinderCalls
		beq	exit
*** end 21-Aug-92

*** Changed - 7-Feb-93 JCM - We now maintain our volume changed status in a device bit table,
***			     where each bit represents a device that possibly needs windows
***			     updated. The old app1Evt mechanism posted an event each time we
***			     got called, which meant there could be multiple updates pending
***			     when Finder's main loop got control. That was icky, and tends to
***			     really bog down programs that can do a lot of writing within Finder,
***			     such as HardPressed or AutoArk.

;;;		pha				; space for result
;;;		PushWord #app1Evt		; event code (application defined)
;;;		PushWord EventData		; event message (hi word) = GS/OS call #
;;;		phx				; event message (lo word) = device #
;;;		_PostEvent
;;;		pla

		txa				;device number
		jsr	MarkVolumeChanged	;add this device to our dirty table
				
*** End - 7-Feb-93 JCM	
	
		bra	exit

diskInsert	ldy	#$8000			; insert flag bit on
		bra	diskSwitch
diskEject	ldy	#$0000			; insert flag bit off


diskSwitch	ldx	EventData		; should we skip this device ?
		dex
		cpx	#maxDevices		
		bcs	post			; ouside our table
		lda	SkipDeviceTbl,x
		and	#$00FF			; byte entries
		bne	exit			; Disk][ , non-removable, or non-block

post		pha				; space for result
		PushWord #app2Evt		; event code (application defined)
		phy				; event message (hi word) = type
		PushWord EventData		; event message (lo word) = device #
		_PostEvent			; post it to the Event Manager
		pla

exit		rtl

EventData	DC.W	0

		ENDP

*===============================================*
*   Get the  modify date for a file/folder	*
*						*
* IN:	---- STACK ----				*
*	pathPtr (Ptr) - Class 1			*
*	datePtr (Ptr)				*
*  SP->						*
*						*
* OUT:	none					*
*===============================================*

GetModifyDate	PROC	EXPORT

		InitFrame
		FrameType  SaveB,ReturnA	; save data bank, return A reg (and carry)

datePtr		Param	Ptr			; input parameters (reverse order)
pathPtr		Param	Ptr

		IMPORT	FileInfoParams:recFileInfo
		
		EntryCode
;-----------------------------------------------
Begin
		phk
		plb

		lda	#7
		sta	FileInfoParams.pcount
		
		lda	<pathPtr
		sta	FileInfoParams.pathname
		lda	<pathPtr+2
		sta	FileInfoParams.pathname+2

		ldy	#osGetFileInfo
		lda	#FileInfoParams
		ldx	#FileInfoParams>>16
		jsr	CallGSOS
		bcs	End
		
		ldy	#6
@loop		lda	FileInfoParams.modify,y
		sta	[<datePtr],y
		dey
		dey
		bpl	@loop

		lda	#0			; no errors
End
;-----------------------------------------------
		ExitCode
		
		ENDP

*===============================================*
*   Get the FinderInfo for a file/folder	*
*						*
* IN:	---- STACK ----				*
*	pathPtr (Ptr) - Class 1			*
*	infoPtr (Ptr)				*
*  SP->						*
*						*
* OUT:	none					*
*===============================================*

GetFinderInfo	PROC	EXPORT

		InitFrame
		FrameType  SaveB,ReturnA	; save data bank, return A reg (and carry)

infoPtr		Param	Ptr			; input parameters (reverse order)
pathPtr		Param	Ptr


		IMPORT	FileInfoParams:recFileInfo
		IMPORT	OptionList:recOptionList
		
		EntryCode
;-----------------------------------------------
Begin
		phk
		plb
		
		lda	#8				; initialize record
		sta	FileInfoParams.pcount
		lda	<pathPtr
		sta	FileInfoParams.pathname
		lda	<pathPtr+2
		sta	FileInfoParams.pathname+2
		lda	#OptionListBuff
		sta	FileInfoParams.optionList
		lda	#OptionListBuff>>16
		sta	FileInfoParams.optionList+2
		stz	OptionListSize

		ldy	#osGetFileInfo
		lda	#FileInfoParams
		ldx	#FileInfoParams>>16
		jsr	CallGSOS
		bcc	ok
		brl	End
ok		lda	OptionListSize
		bne	good
		lda	#$FFFF
		brl	End				; no data
		
good		ldy	#FinderInfo.location
		lda	OptionList.fInfo.frLocation.v
		xba
		lsr	a				; pixel adjustment
		sta	[<infoPtr],y
		iny
		iny
		lda	OptionList.fInfo.frLocation.h
		xba
		sta	[<infoPtr],y
		
		lda	FileInfoParams.filetype
		cmp	#$0F
		beq	folder
		
		ldy	#FinderInfo.windRect		; zero out other fields
		lda	#0
@loop		sta	[<infoPtr],y
		iny
		iny
		cpy	#FinderInfo.sizeOf
		bcc	@loop
		brl	done
		
folder		jsr	AdjustRect			; get window's rect

		ldy	#FinderInfo.windView		; get window's view
		lda	OptionList.fInfo.frView

;
; From observations: 	$0000 = by Icon
;			$0001 = by Icon
;			$8001 = by Icon
;
;			$4001 = by Small Icon
;			$4002 = by Name
;			$4003 = by Date
;			$4004 = by Size
;			$4005 = by Kind
;			$4007 = by Label
;

		asl	a				;AND #$7FFF (Dave sez)
		lsr	a
		cmp	#1
		bne	@notByIcon
		dec 	a
@notByIcon	and	#$0007
		cmp	#6
		blt	@setView
		lda	#1				;default to view by small icon
@setView	sta	[<infoPtr],y
		
		ldy	#FinderInfo.windScroll		; get scroll bar offsets
		lda	OptionList.fInfo.frScroll.v
		xba
		sta	[<infoPtr],y
		iny
		iny
		lda	OptionList.fInfo.frScroll.h
		xba
		asl	a				; pixel adjustment
		sta	[<infoPtr],y
done		lda	#0

End
;-----------------------------------------------
		ExitCode


*===============================================*
* Adjust the window RECT so it fits on our	*
* screen.					*
*===============================================*
AdjustRect


menuY		set	13			; menu bar
titleY		set	13			; title bar
infoY		set	11			; info bar
scrollY		set	13			; scroll bar
scrollX		set	26			; scroll bar
iconX		set	78			; space for icons
windY		set	titleY+infoY+scrollY

startY		set	menuY+titleY+infoY	; where a window can start
startX		set	4
maxY		set	200-menuY-windY-1	; max window size on a IIGS screen
maxX		set	640-startX-scrollX-iconX
minY		set	39
minX		set	99
;-----------------------------------------------

		ldy	#6		
flip		lda	OptionList.fInfo.frRect.top,y
		xba					; 68000 --> 65816 format
		bne	flipped
		cpy	#2				; only left side can be zero
		bne	zeroes
flipped		sta	OptionList.fInfo.frRect.top,y
		dey
		dey
		bpl	flip
		bra	adjust

zeroes		ldy	#FinderInfo.windRect		; bogus data
		lda	#0				; just return all zeroes
@zero		sta	[<infoPtr],y
		iny
		iny
		cpy	#FinderInfo.windRect+8
		bcc	@zero
		brl	endAdjust

adjust		lda	#1				;always make it land on an even
		trb	OptionList.fInfo.frRect.left	;pixel boundary -- andy and DAL, 1/9/91
		
		sec					; winHeight <-- (bottom - top)
		lda	OptionList.fInfo.frRect.bottom
		sbc	OptionList.fInfo.frRect.top
		lsr	a				; to translate square pixels
		beq	zeroes
		cmp	#minY
		bcc	@minHeight
		cmp	#maxY+1
		bcc	setDY
@minHeight	lda	#maxY				; clip it
setDY		sta	winHeight

		sec					; winWidth <-- (right - left)
		lda	OptionList.fInfo.frRect.right
		sbc	OptionList.fInfo.frRect.left
		beq	zeroes
		cmp	#minX
		bcc	@minWidth
		cmp	#maxX+1
		bcc	setDX
@minWidth	lda	#maxX				; clip it
setDX		sta	winWidth


setTop		ldy	#FinderInfo.windRect
		lda	OptionList.fInfo.frRect.top	; set rect.top (y-39)/2 + 37
		bmi	defaultY
		lsr	a				; translate square pixels
		clc
		adc	#37-(39/2)			; adjust starting position
		sta	[<infoPtr],y
		clc
		adc	winHeight			; does it fit
		cmp	#maxY+1
		bcc	setBottom
defaultY	lda	#startY				; no, so squeze it in
		sta	[<infoPtr],y
		
setBottom	clc					; set rect.botom
		lda	[<infoPtr],y
		ldy	#FinderInfo.windRect+4
		adc	winHeight
		sta	[<infoPtr],y	
		
setLeft		ldy	#FinderInfo.windRect+2
		lda	OptionList.fInfo.frRect.left	; set rect.left
		cmp	#maxX-20
		bcs	defaultX
		sta	[<infoPtr],y
		adc	winWidth			; carry is clear
		cmp	#maxX+1				; does it fit
		bcc	setRight
defaultX	lda	#startX				; no, so squeze it in
		sta	[<infoPtr],y
		
setRight	clc					; set rect.right
		lda	[<infoPtr],y
		ldy	#FinderInfo.windRect+6
		adc	winWidth
		sta	[<infoPtr],y

endAdjust	rts

		ENDP
		
*===============================================*
*	Enable/Disable the GS/OS Alerts		*
*						*
* IN:	---- STACK ----				*
*	flag 	(word) - 0: enable, 1: disable	*
*  SP->						*
*						*
* OUT:	none					*
*===============================================*

SetGSOSAlerts	PROC	EXPORT

		InitFrame
		FrameType  SaveB		; save data bank
		
flag		Param	Word			; input parameter

		IMPORT	SysPrefsParams:recSysPrefs
		
		EntryCode
;-----------------------------------------------
Begin
		phk
		plb

		lda	#1
		sta	SysPrefsParams.pcount

		jsl	GSOSCall			; get current settings
		DC.W	osGetSysPrefs
		DC.L	SysPrefsParams
		bcs	End				; abort if error

		lda	<flag
		beq	enable
		
disable		lda	SysPrefsParams.preferences
		and	#(Å(volMountAlert)<<16)>>16	; no volume mount alerts (clr bit)
		ora	#noErrAlerts			; no error alerts (set bit)
		sta	SysPrefsParams.preferences
		bra	set

enable		lda	SysPrefsParams.preferences
		and	#Å(noErrAlerts)			; enable error alerts (clr bit)
		sta	SysPrefsParams.preferences

set		jsl	GSOSCall
		DC.W	osSetSysPrefs
		DC.L	SysPrefsParams

End
;------------------------------------------------------
		ExitCode

		ENDP
		
*===============================================*
*  Set the access privileges for a folder and	*
*  all of its children folders.			*
*						*
*  This routine does a recursive walk to reach  *
*  all of the children. If a folder does not 	*
*  have search privileges, it's priviliges are	*
*  temporary changed (to search) so that the	*
*  walk can continue. On the way back up (as 	*
*  folders are closed) the new privileges are	*
*  set.						*
*						*
* INPUT:	---- STACK ----			*
*		access (long)			*
*		ownerPtr (long)	- pascal	*
*		groupPtr (long)	- pascal	*
*		pathPtr (long)	- class1	*
*	SP -->					*
*						*
* OUTPUT:	none				*
*===============================================*

SetAllPriv	PROC	EXPORT


		InitFrame
		FrameType  SaveB,ReturnA	; save data bank, return A reg (and carry)

tempAccess	Local	Long			; local variables
startStack	Local	Integer
curFile		Local	Integer
entryCount	Local	Integer
errorCode	Local	Word

pathnamePtr	Param	Ptr			; input parameters (revese order)
groupPtr	Param	Ptr
ownerPtr	Param	Ptr
access		Param	long

		IMPORT	OpenParams:recOpen
		IMPORT	DirParams:recGetDirEntry
		IMPORT	OptionList:recOptionList
		
		IMPORT	PathSubName
		IMPORT	PathAddName
		IMPORT	OpenFile
		IMPORT	CloseFile
		IMPORT	GetDirEntry
		IMPORT	WStringCopy
; Mensch 5/17/89 (Fixing BRC #46359)
		IMPORT	GSOSErr
		IMPORT	LongPathAddName
; end Mensch 5/17/89 (BRC #46359)

		EntryCode
;----------------------------------------------
Begin
		phk
		plb

		jsr	InitWalk		; initialize variables
		bcc	stack
		brl	ERROR
		
stack		tsc
		sta	<startStack		; remember for recursion
		

;--- Start of Recursion ------------------------

START		jsr	OpenFile		; open the directory
		bcc	count
		sta	<errorCode
		cmp	#$4E			; just an accesss error
		beq	term			; so skip this folder
		brl	ERROR
		
count		jsr	CountEntries		; get number of entries
		beq	STOP
		
; Mensch 5/17/89 (Fixing BRC #46359)
; Also, see if the path is too long.  If so, then skip this directory altogether as
;  if it were empty.
; Insert error checking code here so that the path addname error will be reported
;   to the user and flagged as an error.
		lda	>LocalPathName		; get the length of the pathname
		cmp	#MaxPathLen		; see if it is too long
		bcc	@LooksGood		; if less than MaxPathLen, then let's do it
		lda	#FINameTooLong		; Internal "name too long" error
		sta	GSOSErrCode
		jsr	GSOSError
		stz	GSOSErrCode
		lda	#0			; set equal flag
		sta	<entryCount
		beq	STOP
@LooksGood
; end Mensch 5/17/89 (BRC #46359)
		
WHILE		jsr	ProcessEntry		; process each entry
		bcs	ERROR
		
		lda	DirParams.fileType	; is this entry a directory?
		cmp	#$0F
		bne	continue		; no
		
		PushWord OpenParams.refNum	; save current state (for recursion)
		PushZWord <curFile
		PushZWord <entryCount
		bra	START			; walk this directory (recursive)

continue	lda	<curFile		; returns from recursion here
		cmp	<entryCount
		bcs	STOP			; end of directory
		inc	<curFile
		bra	WHILE			; get next entry

;-----------------------------------------------

STOP		lda	OpenParams.refNum	; close the file
		jsr	CloseFile

		PushZLong <access		; new access rights
		PushZLong <ownerPtr		; ptr to owner string
		PushZLong <groupPtr		; ptr to group string
		PushLong #LocalPathName		; ptr to pathname
		jsl	SetPrivileges
		bcc	term
		cmp	#$4E			; just an access error ?
		bne	ERROR
		sta	<errorCode

term		tsc				; check for termination (of recursion)
		cmp	<startStack
		beq	done			; all done
		
		PushLong #LocalPathName
		jsl	PathSubName		; back up to parent directory

		PullWord <entryCount		; get old state (from recursive call)
		PullWord <curFile
		PullWord OpenParams.refNum
		bra	continue		; continue where we left off

done		lda	<errorCode		; report any errors

End
;----------------------------------------------
		ExitCode
 
		
;-----------------------------------------------
ERROR
		pha
		lda	#0			; close all open files
		jsr	CloseFile
		pla				; restore error code
		
		ldx	<startStack		; abort the recursion
		txs
		bra	End			; a-reg has error code
	
;===============================================
;	Initialize local variables
;===============================================
InitWalk
		stz	<errorCode

		PushZLong <pathnamePtr
		PushLong #LocalPathName
		jsl	WStringCopy
	
		lda	#15			; set up pCounts
		sta	DirParams.pCount
		lda	#3
		sta	OpenParams.pCount
				
		lda	#$0001			; read only access
		sta	OpenParams.reqAccess

		lda	#LocalPathName
		sta	OpenParams.pathname
		lda	#LocalPathName>>16
		sta	OpenParams.pathname+2
		
		lda	#NameBuffer1		; the entry names will go here
		sta	DirParams.name
		lda	#NameBuffer1>>16
		sta	DirParams.name+2
		
		lda	#OptionListBuff
		sta	DirParams.optionList
		lda	#OptionListBuff>>16
		sta	DirParams.optionList+2
		
		lda	<access
		sta	<tempAccess

		lda	<access+2		; owner's access
		ora	#$0300			; give it search/read access
		sta	<tempAccess+2
		
		PushZLong <tempAccess		; new access rights
		PushLong #0			; skip owner string
		PushLong #0			; skip group string
		PushLong #LocalPathName		; ptr to pathname
		jsl	SetPrivileges
		bcc	endInit
		cmp	#$4E			; just an access error?
		sec
		bne	endInit			; some other error
		sta	<errorCode
		clc

endInit		rts				; carry/a-reg returned
		
;===============================================
; Make sure each Folder has search privileges
;===============================================
ProcessEntry
		stz	DirParams.fileType	; in case we abort this entry

		ldx	#0			; base <-- 0
		ldy	<curFile		; displacement <-- <curFile
		lda	OpenParams.refNum
		jsr	GetDirEntry		; get entry's data
		bcc	type		
		cmp	#$61			; end of directory ??
		sec
		bne	endProcess		; no, some other error
		stz	DirParams.fileType
		lda	<curFile		; fake a termination
		sta	<entryCount
		bra	endGood
		
type		lda	DirParams.fileType
		cmp	#$0F			; a folder ?
		bne	endGood

		PushLong #Name1			; move down to child directory
		PushLong #LocalPathName
; Mensch 5/17/89 (Fixing BRC #46359)
		jsl	LongPathAddName		; was AddPathName
; Insert error checking code here so that the path addname error will be reported
;   to the user and flagged as an error.
		bcc	@okPathName
		lda	#FINameTooLong		; load the internal error number PathTooLong
		sta	GSOSErrCode
		jsr	GSOSError
		stz	GSOSErrCode
		stz	DirParams.filetype
		lda	<curFile		; fake a termination
		sta	<entryCount
		bra	endGood

@okPathName
; end Mensch 5/17/89
		lda	OptionList.access
		and	#$0001			; does it have search access
		bne	endGood
		
		PushZLong <tempAccess		; new access rights
		PushLong #0			; skip owner string
		PushLong #0			; skip group string
		PushLong #LocalPathName		; ptr to pathname
		jsl	SetPrivileges
		bcc	endProcess
		cmp	#$4E			; just an access error ?
		sec
		bne	endProcess		; some other error
		sta	<errorCode

		stz	DirParams.fileType	; fake a non-folder
		PushLong #LocalPathName
		jsl	PathSubName		; back up (child will be skipped)

endGood		clc
endProcess	rts				; return carry flag

;===============================================
;    Get the number of entires in directory
;===============================================
CountEntries
		ldx	#0			; base <-- 0
		ldy	#0			; displacement <-- 0
		lda	OpenParams.refNum
		jsr	GetDirEntry		; get number of entries
		bcc	okCount
		lda	#0			; set equal flag
		sta	<entryCount
		bra	endCount

okCount		lda	#1
		sta	<curFile		; start at first entry
		lda	DirParams.entryNum
		sta	<entryCount
endCount	rts				; return equal flag

		ENDP

		
*===============================================*
*	Read data from a device			*
*						*
* IN:	---- STACK ----				*
*	space (long)				*
*	devNum 	(word)				*
*	buffPtr (Ptr)				*
*	reqBytes (long)				*
*	startBlk (long)				*
*	blkSize (word)				*
*  SP->						*
*						*
* OUT:	---- STACK ----				*
*	bytes (long)				*
*  SP->						*
*===============================================*

DeviceRead	FUNC	EXPORT

		InitFrame
		FrameType  SaveB,ReturnA	; save data bank, return A reg (and carry)

blkSize		Param	Word			; input parameters (reverse order)
startBlk	Param	Long
reqBytes	Param	Long
buffPtr		Param	Ptr
devNum		Param	Word

bytes		Result	Long			; result returned

		IMPORT	DevReadParams:recDevRead
		
		EntryCode
;-----------------------------------------------
Begin
		phk
		plb

		lda	#6			; init param list
		sta	DevReadParams.pcount
		lda	<devNum
		sta	DevReadParams.devNum
		lda	<buffPtr
		sta	DevReadParams.buffer
		lda	<buffPtr+2
		sta	DevReadParams.buffer+2
		lda	<reqBytes
		sta	DevReadParams.reqBytes
		lda	<reqBytes+2
		sta	DevReadParams.reqBytes+2
		lda	<startBlk
		sta	DevReadParams.startBlock
		lda	<startBlk+2
		sta	DevReadParams.startBlock+2
		lda	<blkSize
		sta	DevReadParams.blockSize

		jsl	GSOSCall		; read from device
		DC.W	osDevRead
		DC.L	DevReadParams	

		ldx	DevReadParams.tranBytes
		stx	<bytes
		ldx	DevReadParams.tranBytes+2
		stx	<bytes+2
		
End
;----------------------------------------------
		ExitCode

		ENDP

*===============================================*
*	Local - Make a GSOS call		*
*						*
* IN:	a-reg has param list ptr (lo word)	*
*	x-reg has param list ptr (hi word)	*
*	y-reg has call number			*
*	IgnoreErrors flag is checked if error	*
*						*
* OUT:	a-reg has error code ($FFFF = cancel)	*
*	GSOSErrCode has error code		*
*	GSOSCallNumber has call number		*
*	GSOSParmListPtr has param list ptr	*
*						*
* carry flag set on error (if not handled)	*
*===============================================*

CallGSOS	PROC

		IMPORT	GSOSError
		IMPORT	GetVolume

		ENTRY	GSOSCallNumber
		ENTRY	GSOSParmListPtr

;-----------------------------------------------
		
		sta	GSOSParmListPtr
		stx	GSOSParmListPtr+2
		sty	GSOSCallNumber

		lda	IgnoreErrors
		bne	call
		cpy	#osOpen			; remember name of volume we're opening
		bne	call
		jsr	GetVolume

call		jsl	GSOSCall
GSOSCallNumber	DC.W	0
GSOSParmListPtr	DC.L	0
		
		bcc	end
		sta	>GSOSErrCode
		ldx	IgnoreErrors
		bne	end
		
		jsr	GetVolume		; remember name of volume
		jsr	GSOSError
		bcc	call			; try call again

end		rts				; carry flag and a-reg returned

		ENDP

*===============================================*
*	Save Volume Name (if call has one)	*
*						*
* IN:	GSOSCallNumber has call number		*
*	GSOSParmListPtr has param list ptr	*
*						*
* OUT:	GSOSVolName (if available)		*
*	GSOSFileName (if available)		*
*===============================================*
GetVolume	PROC

		IMPORT	PathGetRoot
		IMPORT	PathGetName
		IMPORT	PathToPStr
		IMPORT	WToPString

		ldx	GSOSParmListPtr		; get address
		lda	GSOSCallNumber
		cmp	#osCreate		; check call numbers
		beq	saveVolume
		cmp	#osVolume
		beq	setVolume
		cmp	#osDestroy
		beq	saveVolume
		cmp	#osChangePath
		beq	saveVolume
		cmp	#osSetFileInfo
		beq	saveVolume
		cmp	#osGetFileInfo
		beq	saveVolume
		cmp	#osGetDevNum
		beq	saveVolume
		cmp	#osFormat
		beq	setByte6
		cmp	#osEraseDisk
		bne	open
setByte6	inx				; format/erase pathname is at byte 6
		inx				; all others are at byte 2
		inx
		inx
		bra	saveVolume

setVolume	

open		cmp	#osOpen			; check for open must be last
		bne	exit
		inx				; open pathname is at byte 4
		inx				; all others are at byte 2
		
saveVolume	phb

		sep	#$20
		lda	GSOSParmListPtr+2	; get bank
		pha
		plb				; same data bank as ParamList
		rep	#$20

		lda	|$0004,x		; get ptr to pathname
		tay
		lda	|$0002,x

		plb

		phy				; save for PathGetFile call below
		pha

		PushLong #GSOSVolume
		phy
		pha
		jsl	PathGetRoot		; a "W" string
		PushLong #GSOSVolume
		PushLong #GSOSVolName
		jsl	PathToPStr		; to Pascal string

		pla				; path ptr (saved above)
		ply
		PushLong #GSOSVolume
		phy
		pha
		jsl	PathGetName		; a "W" string
		PushLong #GSOSVolume
		PushLong #GSOSFileName
		jsl	WToPString		; to Pascal srting

exit		rts

		ENDP
		
*===============================================*
*    Disable/enable automatic error handling	*
*						*
* If a routine wants to handle its own errors	*
* or wants to ignore errors then it should call	*
* IgnoreGSOSError() before making calls to the	*
* CallGSOS() routine.				*
*						*
* IN:	none					*
*						*
* OUT:	none					*
*===============================================*

IgnoreGSOSError	PROC	EXPORT

		lda	#1
		bra	setFlag
		
		EXPORT	HandleGSOSError
HandleGSOSError	
		lda	#0

setFlag		sta	>IgnoreErrors		; can be called from any bank
		rtl

		ENDP
		

; LongGSOSError -- error code in (A), c1_pathname contains path we were operating on
;.....................................................................

LongGSOSError	PROC	EXPORT

		import	c1_pathname
		import	pathgetroot
		import	pathtopstr
		import	wtopstring
		import	pathgetname
		
		phb
		phk
		plb

		stx	GSOSCallNumber		
		sta	GSOSErrCode

		Pushlong #GSOSVolume
		pushlong #c1_pathname
		jsl	PathGetRoot		; a "W" string
		Pushlong #GSOSVolume
		Pushlong #GSOSVolName
		jsl	PathToPStr		; to Pascal string

		pushlong #GSOSVolume
		pushlong #c1_pathname
		jsl	PathGetName		; a "W" string
		PushLong #GSOSVolume
		PushLong #GSOSFileName
		jsl	WToPString		; to Pascal srting
		
		jsr	GSOSError
		
		plb
		rtl
		ENDP
		
*===============================================*
*	Handle a GSOS Error			*
*						*
* IN:	GSOSErrCode, GSOSVolName		*
*						*
* OUT:	a-reg is zero for try again		*
*	(otherwise it has original error code)	*
* 	carry flag (1 = bad, 0 = ok)		*
*===============================================*

GSOSError	PROC

		IMPORT	WToPString
		IMPORT	PathGetName

		IMPORT	strNoWrite		; in string segment
		IMPORT	strInsertDisk
		IMPORT	strDamagedDisk
		IMPORT	strDiskFull
		IMPORT	strDirFull
		IMPORT	strBadName
		IMPORT	strNoAccess
		IMPORT	strFileBusy
		IMPORT	strDupPath
		IMPORT	strBadChanges
		IMPORT	strBadUser
		IMPORT	strBadGroup
		IMPORT	strBadChanges2
		IMPORT	strSubPathTooLong
		IMPORT	saveCursor
		IMPORT	restoreCursor
		IMPORT	ArrowCursor
		IMPORT	DevInfoParams:recDevInfo
		IMPORT	RestoreCursor

;-----------------------------------------------	
		
		lda	GSOSErrCode
		ldx	#0
loop		cmp	errorTable,x
		beq	doCase
		inx
		inx
		inx
		inx
		cpx	#endTable-errorTable
		bcc	loop
		bra	end			; carry set, a-reg has error

doCase		inx
		inx
		jsr	(errorTable,x)

		eor	#$FFFF			; return carry flag, and a-reg
		cmp	#$FFFF
		beq	end		
		lda	#0			;carry clear if we get here
end		rts

;-----------------------------------------------	
errorTable	DC.W	$0045,_NoVolume
		DC.W	$002B,_WriteProtect
		DC.W	$0048,_DiskFull
		DC.W	$0049,_DirectoryFull
		DC.W	$0040,_BadSyntax
		DC.W	$0050,_FileBusy
		DC.W	$0027,_DamagedDisk 	; (I/O error)
		DC.W	$002D,_DamagedDisk	; (invalid block)
		DC.W	$005A,_DamagedDisk 	; (damaged bitmap)
		DC.W	$0051,_DamagedDisk 	; (directory error)
		DC.W	$0047,_DuplicatePath
		DC.W	$007E,_BadUser
		DC.W	$007F,_BadGroup
		DC.W	$004F,_SmallBuffer	; buffer too small
		DC.W	$0021,_WrongMedia	; trying to format 800k as 1440k?
		DC.W	FINameTooLong, _PathTooLong  ; Tried to use pathname >maxPathLen
endTable

;-----------------------------------------------
_WrongMedia	lda	inFormat
		bmi	@wasWrongMedia
		
@notMFM		lda	#1
		rts
	
@wasWrongMedia	lda	DevInfoParams.devID
		cmp	#$17
		beq	@gotMFM
		cmp	#1
		bne	@notMFM
		
@gotMFM		jsl	SaveCursor
		jsl	ArrowCursor

		pha
		pea	0
		pushlong #0
		pea	$0099
		_ErrorWindow
		jsl	RestoreCursor
		pla
		rts

;-----------------------------------------------
_NoVolume	lda	GSOSVolName		; check for null string DJB 05/30/89
		and	#$00FF
		bne	@nameOK
		lda	#0			; name not set (???) (used to load GSOS errorcode)	
		rts
@nameOK		pha
		pea	$00B5			;refIsResource
		pushlong #GSOSVolNamePtr	;substitution string #1
		pushlong #rasInsertDiskOrCancel	;resource ID
		jsl	rats
		rts

_DamagedDisk	lda	GSOSVolName		; check for null string DJB 05/31/89
		and	#$00FF
		bne	@goodName
		lda	GSOSErrCode
		rts
@goodName	pha
		pea	$00B5			;refIsResource
		pushlong #GSOSVolNamePtr	;substitution string #1
		pushlong #rasMayBeDamaged	;resource ID
		jsl	rats
		rts

_NoAccess	pha
		pea	$00B5			;refIsResource
		pushlong #GSOSFileNamePtr	;substitution string #1
		pushlong #rasChangeNoAccess	;resource ID
		jsl	rats
		rts

_WriteProtect	pha
		pea	$00B5			;refIsResource
		pushlong #GSOSVolNamePtr	;substitution string #1
		pushlong #rasWriteProtected	;resource ID
		jsl	rats
		rts

_DiskFull	pha
		pea	$00B5			;refIsResource
		pushlong #GSOSVolNamePtr	;substitution string #1
		pushlong #rasDiskFull		;resource ID
		jsl	rats
		rts

_DirectoryFull	pha
		pea	$00B5			;refIsResource
		pushlong #0			;substitution string #1
		pushlong #rasDirFull		;resource ID
		jsl	rats
		rts

_BadSyntax	lda	GSOSCallNumber		; check for a ChangePath call
		cmp	#osChangePath
		bne	use1st			; must be a create call
		jsr	Get2ndName
use1st		pha
		pea	$00B5			;refIsResource
		pushlong #GSOSFileNamePtr	;substitution string #1
		pushlong #rasBadFilename	;resource ID
		jsl	rats
		rts

_DuplicatePath	lda	GSOSCallNumber		; check for a ChangePath call
		cmp	#osChangePath
		bne	useNormal		; must be a create call
		jsr	Get2ndName
useNormal	pha
		pea	$00B5			;refIsResource
		pushlong #GSOSFileNamePtr	;substitution string #1
		pushlong #11			;resource ID
		jsl	rats
		rts

_BadUser	pha
		pea	$00B5			;refIsResource
		pushlong #0			;substitution string #1
		pushlong #rasChangeBadUser	;resource ID
		jsl	rats	
		rts

_SmallBuffer	lda	#0			; ignore this error !
		rts

_BadGroup	pha
		pea	$00B5			;refIsResource
		pushlong #0			;substitution string #1
		pushlong #rasChangeBadGroup	;resource ID
		jsl	rats
		rts
		
_PathTooLong	pha
		pea	$00B5			;refIsResource
		pushlong #0			;substitution string #1
		pushlong #rasChangePathTooLong	;resource ID
		jsl	rats
		rts

_FileBusy	pha
		pea	$00B5			;refIsResource
		pushlong #0			;substitution string #1
		pushlong #rasFileBusy		;resource ID
		jsl	rats
		rts

;
; something funky dave showed me -- glue call, don't screw with this, andy
;
rats		jsl	SaveCursor
		jsl	ArrowCursor
		
		ldx	#$590e
		jsl	$e10004
;		_AlertWindow

; %%% beginning MD 2/1/91 under Dave's watchful eye

		lda	4,s			; the button #
		tax
		lda	2,s
		sta	4,s
		lda	1,s
		sta	3,s
		txa
		sta	1,s			; now the error code is first on stack
		
; %%% end MD 2/1/91
		
		jsl	restoreCursor
		pla
		rtl

;-----------------------------------------------
Get2ndName
		phb				; get "new" name
		sep	#$10
		ldx	GSOSParmListPtr+2	; get bank of ParamList
		phx
		plb				; use same data bank as ParamList
		rep	#$10
		ldx	GSOSParmListPtr		; get address of ParamList
		lda	|$0008,x		; get ptr to new pathname
		tay
		lda	|$0006,x
		plb
		PushLong #GSOSVolume
		phy
		pha
		jsl	PathGetName		; returns a "W" string
		PushLong #GSOSVolume
		PushLong #GSOSFileName
		jsl	WToPString		; convert to a Pascal string
		rts
		
		ENDP

;
; CheckOpenFiles -- check if the device has any open files
;
;  IN: (A) hi  word of pointer to pstr device name, no separator in front
;      (X) low word of pointer to pstr device name
;
; OUT: carry set if the device has any open files
;.....................................................................

CheckOpenFiles	PROC	EXPORT

		IMPORT	DevInfoParams:recDevInfo
		IMPORT	PToWString

localPtr	equ	1

		phb
		phk
		plb

		pha
		phx
		pushlong #Name1
		jsl	PToWString
		
		ldx	#0
		
		lda 	>$e100be
		bmi 	@osBusy
		ora 	#$8000
		sta 	>$e100be
	
		sep 	#$20
		LONGA OFF
		
		ldx	Name1			;zero terminate the wstring
		lda	#0
		sta	Name1+2,x
		
		lda 	>$e0c068
		pha
		lda 	>$e0c08b
		lda 	>$e0c08b
		
		rep 	#$20
		LONGA ON
		
		phd
		lda	#$bd00
		tcd
		
		lda	#0
		ldx	#Name1
		ldy	#Name1>>16
		jsl	os_find_vcr
		bcs	@noVCR
		
		jsl	os_deref
		
		pha
		pha
		tsc
		tcd
				
		stx	<localPtr
		sty	<localPtr+2
		ldy	#vcr_open_cnt
		
		ldx	#$FFFF
		lda	[<localPtr],y
		bne	@hasOpenFiles		

		ldx	#0
@hasOpenFiles	pla
		pla

@exitNoVCR	pld		
		sep 	#$20
		LONGA OFF
		
		pla
		sta 	>$e0c068
		
		rep 	#$20
		LONGA ON
		
		lda 	>$e100be
		and 	#$7fff
		sta 	>$e100be

@osBusy		cpx	#1			;set the carry on exit
		plb
		rtl
		
@noVCR		ldx	#0
		bra	@exitNoVCR
		
		ENDP

		END
		
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Finder/GSOS.equ b/IIGS.601.SRC/A.U.G/Finder/GSOS.equ
new file mode 100644
index 0000000..b54d0ef
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Finder/GSOS.equ
@@ -0,0 +1 @@
+*===============================================*
* File:		GSOS.equ			*
* Project:	IIGS Finder			*
* Author:	Don Brady			*
* Build file:	Finder.Make			*
*						*						*
* © Copyright Apple Computer, Inc. 1988-89	*
* All rights reserved.				*
*===============================================*


;================================================
;	GS/OS System Constants
;================================================

GSOSCall	equ	$E100A8			; inline call
GSOSCall2	equ	$E100B0			; stack based call

osCreate	equ	$2001
osDestroy	equ	$2002
osShutDown	equ	$2003
osChangePath	equ	$2004
osSetFileInfo	equ	$2005
osGetFileInfo	equ	$2006
osVolume	equ	$2008
osSetPrefix	equ	$2009
osGetPrefix	equ	$200A
osClearBackup	equ	$200B
osSetSysPrefs	equ	$200C
osNull		equ	$200D
osExpandPath	equ	$200E
osGetSysPrefs	equ	$200F

osOpen		equ	$2010
osNewLine	equ	$2011
osRead		equ	$2012
osWrite		equ	$2013
osClose		equ	$2014
osFlush		equ	$2015
osSetMark	equ	$2016
osGetMark	equ	$2017
osSetEOF	equ	$2018
osGetEOF	equ	$2019
osSetLevel	equ	$201A
osGetLevel	equ	$201B
osGetDirEntry	equ	$201C
osBeginSession	equ	$201D
osEndSession	equ	$201E
osSessionStatus	equ	$201F

osGetDevNum	equ	$2020
osFormat	equ	$2024
osEraseDisk	equ	$2025
osGetName	equ	$2027
osGetBootVol	equ	$2028
osQuit		equ	$2029
osGetVersion	equ	$202A
osGetFSTInfo	equ	$202B
osDevInfo	equ	$202C
osDevStatus	equ	$202D
osDevControl	equ	$202E
osDevRead	equ	$202F

osDevWrite	equ	$2030
osBindInt	equ	$2031
osUnbindInt	equ	$2032
osFSTSpecific	equ	$2033
osAddNotifyProc	equ	$2034
osDelNotifyProc	equ	$2035

osSeparator	equ	$3A		; ':' separator character for class 1 pathnames

;================================================
;	FST ID Numbers
;================================================

fstProDOS	equ	$01
fstDOS3_3	equ	$02
fstMFS		equ	$05
fstHFS		equ	$06
fstMSDOS	equ	$0A
fstHighSierra	equ	$0B
fstISO9660	equ	$0C
fstAppleShare	equ	$0D

;================================================
;	AppleShare FST Specific Calls
;================================================

asBufferControl		equ	$01		; command numbers
asByteRangeLock		equ	$02
asSpecialOpenFork	equ	$03
asGetPrivileges		equ	$04
asSetPrivileges		equ	$05
asUserInfo		equ	$06
asCopyFile		equ	$07
asOpenDeskTop		equ	$09
asCloseDeskTop		equ	$0A
asGetComment		equ	$0B
asSetComment		equ	$0C
asGetServerName		equ	$0D

;================================================
;	Notification Queue Events
;================================================

neReserved	equ	$0001
neGSOStoP8	equ	$0002
neP8toGSOS	equ	$0004
neDiskInsert	equ	$0008
neDiskEject	equ	$0010
neShutDown	equ	$0020
neVolChange	equ	$0040

;================================================
;	System Preferences
;================================================

volMountAlert	equ	$8000
noErrAlerts	equ	$2000


;================================================
;	Device ID Numbers
;================================================

DiskII			equ	$0000
Profile5Meg		equ	$0001
Profile10Meg		equ	$0002
Disk3_5			equ	$0003
SCSIGeneric		equ	$0004
SCSIHardDisk		equ	$0005
SCSITapeDrive		equ	$0006
SCSICDROM		equ	$0007
SCSIPrinter		equ	$0008
SerialModem		equ	$0009
ConsoleDriver		equ	$000A
SerialPrinter		equ	$000B
SerialLaserWriter	equ	$000C
AppleTalkLaserWriter	equ	$000D
RAMDisk			equ	$000E
ROMDisk			equ	$000F
FileServer		equ	$0010
IBX			equ	$0011
AppleDesktopBus		equ	$0012
HardDisk		equ	$0013
FloppyDisk		equ	$0014
TapeDrive		equ	$0015
CharacterDevice		equ	$0016
MFMFloppyDisk		equ	$0017
Network			equ	$0018
SCSISequential		equ	$0019
SCSIScanner		equ	$001A
Scanner			equ	$001B
LaserWriterSC		equ	$001C
AppleTalkMain		equ	$001D
AppleTalkFile		equ	$001E
AppleTalkRPM		equ	$001F


;================================================
;	General Constants
;================================================

maxFileName	equ	32			; we'll handle names this long


;================================================
;	GS/OS System Records
;================================================


recDate		RECORD	0			; GS/OS date record
;-----------------------------------------------
second		DS.B	1
minute		DS.B	1 
hour		DS.B	1
year		DS.B	1
day		DS.B	1
month		DS.B	1 
null		DS.B	1
weekday		DS.B	1
;-----------------------------------------------
		ENDR 


recChangePath	RECORD  0			; $04
;-----------------------------------------------
pCount		DS.W	1
oldPathname	DS.L	1
newPathname	DS.L	1
sizeOf
;-----------------------------------------------
		ENDR 

recFileInfo	RECORD  0			; $05, $06
;-----------------------------------------------
pCount		DS.W	1
pathname	DS.L	1
access		DS.W	1
filetype	DS.W	1
auxtype		DS.L	1
storetype	DS.W	1
create		DS	recDate
modify		DS	recDate
optionlist	DS.L	1
bytes		DS.L	1
blocks		DS.L	1
rescbytes	DS.L	1
rescBlocks	DS.L	1
sizeOf
;-----------------------------------------------
		ENDR 

recVolume	RECORD  0			; $08
;-----------------------------------------------
pCount		DS.W	1
devName		DS.L	1
volName		DS.L	1
totalBlks	DS.L	1
freeBlks	DS.L	1
fileSysID	DS.W	1
blkSize		DS.W	1
characteristics DS.W	1
devID		DS.W	1
sizeOf
;-----------------------------------------------
		ENDR 

recSysPrefs	RECORD  0			; $0C, $0F
;-----------------------------------------------
pCount		DS.W	1
preferences	DS.W	1
sizeOf
;-----------------------------------------------
		ENDR 

recOpen		RECORD  0			; $10
;-----------------------------------------------
pCount		DS.W	1
refNum		DS.W	1
pathname	DS.L	1
reqAccess	DS.W	1
resource	DS.W	1
access		DS.W	1
fileType	DS.W	1
auxType		DS.L	1
storeType	DS.W	1
create		DS	recDate
modify		DS	recDate
optionList	DS.L	1
bytes		DS.L	1
blocks		DS.L	1
rescBytes	DS.L	1
rescBlocks	DS.L	1
sizeOf
;-----------------------------------------------
		ENDR

recWrite	RECORD  0			; $13
;-----------------------------------------------
pCount		DS.W	1
refNum		DS.W	1
buffer		DS.L	1
request		DS.L	1
transfer	DS.L	1
cache		DS.W	1
sizeOf
;-----------------------------------------------
		ENDR

recClose	RECORD  0			; $14
;-----------------------------------------------
pCount		DS.W	1
refNum		DS.W	1
sizeOf
;-----------------------------------------------
		ENDR

recGetDirEntry	RECORD  0			; $1C
;-----------------------------------------------
pCount		DS.W	1
refNum		DS.W	1
flags		DS.W	1
base		DS.W	1
displace	DS.W	1
name		DS.L	1
entryNum	DS.W	1
fileType	DS.W	1
bytes		DS.L	1
blocks		DS.L	1
createDate	DS	recDate
modifyDate	DS	recDate
access		DS.W	1
auxType		DS.L	1
fileSysID	DS.W	1
optionList	DS.L	1
rescBytes	DS.L	1
rescBlocks	DS.L	1
sizeOf
;-----------------------------------------------
		ENDR

recGetDevNum	RECORD	0			; $20
;-----------------------------------------------
pCount		DS.W	1
devName		DS.L	1
devNum		DS.W	1
sizeOf
;-----------------------------------------------
		ENDR

recFormat	RECORD	0			; $24
;-----------------------------------------------
pCount		DS.W	1
devName		DS.L	1
volName		DS.L	1
fileSysID	DS.W	1
reqFileSys	DS.W	1
flags		DS.W	1
sizeOf
;-----------------------------------------------
		ENDR

recGetFSTInfo	RECORD	0			; $2B
;-----------------------------------------------
pCount		DS.W	1
fstNum		DS.W	1
fileSysID	DS.W	1
fstName		DS.L	1
fstVersion	DS.W	1
fstAttrib	DS.W	1
fstBlkSize	DS.W	1
fstMaxBlks	DS.L	1
fstMaxBytes	DS.L	1
sizeOf
;-----------------------------------------------
		ENDR

recDevInfo	RECORD  0			; $2C
;-----------------------------------------------
pCount		DS.W	1
devNum		DS.W	1
devName		DS.L	1
devChar		DS.W	1
blocks		DS.L	1
slot		DS.W	1
unit		DS.W	1
version		DS.W	1
devID		DS.W	1
headLink	DS.W	1
forwardLink	DS.W	1
sizeOf
;-----------------------------------------------
		ENDR

recDevControl	RECORD  0			; $2E
;-----------------------------------------------
pCount		DS.W	1
devNum		DS.W	1
ctrlCode	DS.W	1
ctrlList	DS.L	1
request		DS.L	1
transfer	DS.L	1
sizeOf
;-----------------------------------------------
		ENDR

recDevRead	RECORD  0			; $2F
;-----------------------------------------------
pCount		DS.W	1
devNum		DS.W	1
buffer		DS.L	1
reqBytes	DS.L	1
startBlock	DS.L	1
blockSize	DS.W	1
tranBytes	DS.L	1
sizeOf
;-----------------------------------------------
		ENDR

recFSTSpecific	RECORD  0			; $33
;-----------------------------------------------
pCount		DS.W	1
fstID		DS.W	1
command		DS.W	1
data
pathname	DS.L	1			; for Get/Set privileges
server						; for GetSrvrName
access		DS.L	1			; for Get/Set privileges
zone						; for GetSrvrName
owner		DS.L	1			; for Get/Set privileges
group		DS.L	1			; for Get/Set privileges
sizeOf
;-----------------------------------------------
		ENDR


recNotifyProc	RECORD  0
;-----------------------------------------------
pCount		DS.W	1
procPtr		DS.L	1
sizeOf
;-----------------------------------------------
		ENDR

Point		RECORD	0			; QuickDrawII point record
;-----------------------------------------------
v		DS.W	1
h		DS.W	1 
;-----------------------------------------------
		ENDR 

Rect		RECORD	0			; QuickDrawII rectangle record
;-----------------------------------------------
top		DS.W	1
left		DS.W	1 
bottom		DS.W	1
right		DS.W	1
;-----------------------------------------------
		ENDR 

FileInfo	RECORD	0			; AppleShare Finder File Info
;-----------------------------------------------
fdType		DS.L	1			; file type
fdCreator	DS.L	1			; file's creator
fdFlags		DS.W	1			; flags
fdLocation	DS	Point			; file's location in window
fdWindow	DS.W	1			; file's window type
fdIconID	DS.W	1			; file's icon ID
fdUnused	DS.W	4			; reserved
fdComment	DS.W	1			; file's comment ID
fdPutAway	DS.L	1			; home directory ID
sizeOf		EQU	*
;-----------------------------------------------
		ENDR 

DirInfo		RECORD	0			; AppleShare Finder Directory Info
;-----------------------------------------------
frRect		DS	Rect			; folder's rectangle
frFlags		DS.W	1			; flags
frLocation	DS	Point			; folder's location
frView		DS.W	1			; folder's view
frScroll	DS	Point			; scroll position
frOpenChain	DS.L	1			; directory ID chain
frUnused	DS.W	1			; reserved
frComment	DS.W	1			; file's comment ID
frPutAway	DS.L	1			; home directory ID
sizeOf		EQU	*
;-----------------------------------------------
		ENDR 


recOptionList	RECORD	0			; FST option list (AppleShare)
;-----------------------------------------------
fileSysID	DS.W	1
fInfo		DS	DirInfo
parentDirID	DS.L	1
access		DS.L	1
sizeOf		EQU	*
;-----------------------------------------------
		ENDR
		

; JAM 5/17/89 (fixing BRC #46359, from Mensch research)
; THESE CONSTANTS ARE IDENTICAL IN VALUE TO CORRESPONDING CONSTANTS
;   IN FINDER.EQU-- be careful to change ALL copies, if you change ANY copies
FINameTooLong	equ	$FE01			; Finder Internal Error: pathname too long

MaxPathLen	equ	1023-MaxFileName
; NOTE MaxFileName in FINDER.EQU is 31.  In this file, it is 32.
; MaxPathLen def was modified slightly here from that in FINDER.EQU so that
; the ultimate value would be the same.
; end JAM 5/17/89
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Finder/GetInfo.aii b/IIGS.601.SRC/A.U.G/Finder/GetInfo.aii
new file mode 100644
index 0000000..d785a49
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Finder/GetInfo.aii
@@ -0,0 +1 @@
+;.....................................................................
;
; File:		GetInfo.aii			
; Project:	GS Finder			
; Author:	Don J. Brady			
; Build file:	Finder.Make			
;						
; © Copyright Apple Computer, Inc. 1988-1993
; All rights reserved.				
;						
; Global Routines:				
;	UpdateInfoWin(iconBlkHand, pathPtr)	
;	NewInfoWindow(iconBlkHand, pathPtr)	
;	InfoControls(winPtr,hand,part,id)	
;	AboutWindow()				
;
; Modification History:				
; 10/11/88 DJB	- File created today		
;						
; Spring, 1991 -- ripped up and reworked everything for resources
;		  andy
;
; Spring, 1992 -- Dave Lyons wuz here.
;
;
; 17-Feb-93 -- Jim Murphy wuz here too, stuck in code to show SCSI IDs and left quickly.
;              This stuff is icky! :-)
;
; 18-Mar-93 JCM - We now erase kind strings before setting to a new string so we don't
;	    	  have any bits of the old string remaining if it's longer.
;
; 18-Mar-93 JCM - Pressing command-period during a folder or disk size calculation now
;		  terminates the process cleanly.
;
; 21-Mar-93 JCM - We now allow comment cards for all file types if the file was already
;		  extended. Otherwise, with types $FF, $F9, and $BD, we still don't allow
;		  us to extend the file by adding a comment. This allows files like
;		  Sys.Resources to show their version info, for example.
;
; 21-Mar-93 JCM - Just to be safe, I've moved my 17-Feb-93 SCSI ID code so we only call it
;		  if we're sure the icon we're dealing with is a volume. Before we would
;		  rely on the devNum field being zero for non-volumes icons, and I'm not sure
;		  that we can. In any case, I saved 5 bytes.
;
; 24-Mar-93 JCM - Added some code to dynamically resize the real name control's rect to
;		  account for the Inactive check box's existance. I also set a new bit in
;		  the same control's flags field to draw the stat text via DrawStringWidth
;		  if need be. Now we clip the strings to look cool if they're too long.
;
;.....................................................................

		LONGA	ON
		LONGI	ON
		STRING	PASCAL
		
		PRINT	OFF		
		PRINT	NOGEN
		PRINT	NOSYM

		INCLUDE	'ALL.MACROS'
		INCLUDE	'E16.CONTROL'
		INCLUDE	'E16.WINDOW'
		include 'e16.resources'
		INCLUDE	'PASCAL.macros'
		INCLUDE	'special.macros'
		INCLUDE	'resource.equ'
		
MaxFileName	equ	31
MaxPathLen	equ	1022-MaxFileName
		INCLUDE	'windowBlk.equ'
		INCLUDE	'IconObj.equ'
		INCLUDE	'GetInfo.equ'

Move_Info	equ	$e10200

		PRINT	ON
		
		seg 'INFO'

		import DisposeHandleGlue
	
;--- strings in string segment that we use -----

		IMPORT	strGeneral		; strings in string segment
		IMPORT	strWhere
		IMPORT	strAccess
		IMPORT	strComment
		IMPORT	strApply
		IMPORT	strApplyAll
		IMPORT	strCalculate
		IMPORT	strAddComment
		IMPORT	nullStrg
		IMPORT	strgOK
		IMPORT	strOwner
		IMPORT	endOwner
		IMPORT	strGroup
		IMPORT	endGroup
		IMPORT	strPrivileges
		IMPORT	endPrivileges
		IMPORT	strLocked
		IMPORT	endLocked
		IMPORT	strInactive
		IMPORT	endInactive
		IMPORT	strKind
		IMPORT	endKind
		IMPORT	strSize
		IMPORT	endSize
		IMPORT	strContents
		IMPORT	endContents
		IMPORT	strVersion
		IMPORT	endVersion
		IMPORT	strCreated
		IMPORT	endCreated
		IMPORT	strModified
		IMPORT	endModified
		IMPORT	strPath
		IMPORT	endPath
		IMPORT	strDevice
		IMPORT	endDevice
		IMPORT	strServer
		IMPORT	endServer
		IMPORT	strZone
		IMPORT	endZone
		IMPORT	trashText
		IMPORT	endTrashText
		IMPORT	driveText
		IMPORT	endDriveText


IconButtonTemplate RECORD  0
pCount		ds.w  1		;parameter count (7)
ID		ds.l  1		;ID for the control 
Rect		ds.w  4		;bounding rectangle
ProcRef		ds.L  1		;ButtonControl = $8D000000
Flag		ds.w  1		;old style flag word
MoreFlags	ds.w  1		;bit 0 refers to PicRef (0 handle, 1 resource)
RefCon		ds.l  1		;application defined
IconRef		ds.L  1		;handle or resource
TitleRef	ds.L  1		;handle or resource
ColorRef	ds.L  1		;handle or resource
DisplayMode	ds.w  1		;
		ENDR

*===============================================*
* Direct Page Work Space Used by All Routines	*
*===============================================*

		DSECT	1
iconObjPtr	long
infoBlkPtr	long
infoWinPtr	long
tempA		long
tempB		long
tempC		long
tempD		long
tempE		long
workSpace	DSectSize
workSize	EQU	workSpace-1

*===============================================*
*	drawing offsets for info window		*
*===============================================*


y1		equ	0
x1		equ	y1+2
y2		equ	x1+2
x2		equ	y2+2

cDY		equ	102
cDX		equ	416-20

cY1		equ	0
cY2		equ	cY1+cDY
cX1		equ	2
cX2		equ	cX1+cDX

tW		equ	80			;tab width
tH		equ	10			;tab height
tS		equ	6			;tab space

sp		equ	18			;edge spacing

wDY		equ	cY2+tH+1
wDX		equ	cX1+cX2

infoY1		equ	20
infoY2		equ	infoY1+wDY
infoX1		equ	4
infoX2		equ	infoX1+wDX

bY2		equ	cY2-4			;button end Y
bY1		equ	bY2-12			;button start Y

pY3		equ	bY1-3-14		;start of 3rd pop up
pY2		equ	pY3-14			;start of 2nd pop up
pY1		equ	pY2-14			;start of 1st pop up
pX		equ	178-40

;gX		equ	85

gY1		equ	cY1+34			;start of first general card string
gY2		equ	gY1+11			;  "    "   2nd    "      "     "
gY3		equ	gY2+20			;  "    "   3rd    "      "     "
gY4		equ	gY3+11			;  "    "   4th    "      "     "
gY5		equ	gY4+11			;  "    "   5th    "      "     "

;wX1		equ	85
;wX2		equ	wX1+15

wY1		equ	cY1+20			;start of 1st where card string
wY2		equ	wY1+11			;  "    " 2nd   "     "     "
wY3		equ	wY2+15			;  "    " 3rd   "     "     "

eY1		equ	cY1+10			;start of first edit line
eY2		equ	eY1+13			;end of first edit line
eY3		equ	eY2+1			;start of second edit line
eY4		equ	eY3+13			;end of second edit line

itFolder	equ	$01			;icon type attribute bits
itVolume	equ	$02
itNetwork	equ	$04
itOwner		equ	$08
itDriver	equ	$10
itTrash		equ	$80

midCustom	equ	1			;pop up menu IDs
midPrivate	equ	2
midPublic	equ	3
midDropBox	equ	4
midBulletin	equ	5

midNobody	equ	1
midOwner	equ	2
midGroup	equ	3
midOwnerGroup	equ	4
midEveryone	equ	5

;-----------------------------------------------

ret		equ	13


Point		RECORD	0
;-----------------------------------------------
v		DS.W	1
h		DS.W	1 
;-----------------------------------------------
		ENDR 

Rect		RECORD	0			;QuickDrawII rectangle record
;-----------------------------------------------
top		DS.W	1
left		DS.W	1 
bottom		DS.W	1
right		DS.W	1
sizeOf
;-----------------------------------------------
		ENDR 

LocInfo		Record	0
;-----------------------------------------------
portSCB		ds.W	1
image		ds.L	1
width		ds.W	1
boundsRect	ds	rect
;-----------------------------------------------
		ENDR 

TaskRecord	Record	0
;-----------------------------------------------
what		DS.W	1
message		DS.L	1
when		DS.L	1
where		DS	Point
modifiers	DS.W	1
taskData	DS.L	1
taskMask	DS.L	1
lastClickTick	DS.L	1
clickCount	DS.W	1
taskData2	DS.L	1
taskData3	DS.L	1
taskData4	DS.L	1
lastClickPt	DS	Point
sizeOf
;-----------------------------------------------
		ENDR 

Date		RECORD	0			;GS/OS date record
;-----------------------------------------------
second		DS.B	1
minute		DS.B	1 
hour		DS.B	1
year		DS.B	1
day		DS.B	1
month		DS.B	1 
null		DS.B	1
weekday		DS.B	1
;-----------------------------------------------
		ENDR 

ParamList	RECORD	0			; Window
;-----------------------------------------------
paramLength	DS.W	1 
wFrameBits	DS.W	1
wTitle		DS.L	1
wRefCon		DS.L	1
wZoom		DS	Rect
wColor		DS.L	1
wYOrigin	DS.W	1
wXOrigin	DS.W	1
wDataH		DS.W	1
wDataW		DS.W 	1
wMaxH		DS.W	1
wMaxW		DS.W	1
wScrollVer	DS.W	1
wScrollHor	DS.W	1
wPageVer	DS.W	1
wPageHor	DS.W	1
wInfoRefCon	DS.L	1
wInfoHeight	DS.W 	1
wFrameDefProc	DS.L	1
wInfoDefProc	DS.L	1
wContDefProc	DS.L	1
wPosition	DS	Rect
wPlane		DS.L	1
wStorage	DS.L	1
;-----------------------------------------------
		ENDR 


CardTemplate	RECORD  0
;----------------------------------------------
pCount		DS.W	1
id		DS.L	1
rect		DS	Rect
procRef		DS.L	1
flag		DS.W	1
moreFlags	DS.W	1
refCon		DS.L	1
value		DS.W	1
count		DS.W	1
tabHeight	DS.W	1
tabWidth	DS.W	1
tabSpace	DS.W	1
colorRef	DS.L	1
cardRef		DS.L	1
;-----------------------------------------------
		ENDR


IconObject	RECORD	0
;-----------------------------------------------
next		DS.L	1			; handle of next icon
last		DS.L	1			; handle of previous icon
mom		DS.L	1			; window icon belongs to
window		DS.L	1			; window icon is opened into
disk		DS.L	1			; disk icon which is the root of this evil icon
flag		DS.L	1			; icon's attributes
fileType	DS.W	1			; icon's file type
fileInfo	DS.L	1			; icon's Aux_Type or File_System
kind		DS.L	1			; PTR to icon's kind string
point		DS	Point			; icon's position (bottom right)
textY		DS.W	1			; text's y position (view by text)
titleLen	DS.W	1			; half the length of icon's title
name		DS.B	34			; icon's name (string)
localAccess	ds.W	1			; icon's local access
extended	ds.W	1			; is icon extended?
fileBlocks	DS.L	1			; icon's file block size
fileBytes	DS.L	1			; icon's file byte size
cDate		DS	Date			; icon's file creation date
mDate		DS	Date			; icon's file modification date
icon		ds.L	1			; handle to icon
smallIcon	ds.L	1			; handle to small icon
rBundle		ds.L	1			; handle to rBundle resource
OneDocOffset	ds.L	1			; offset in rBundle to OneDoc
infoWin		DS.L	1			; pointer to Info window (or zero)
devNum		DS.W	1			; icon's device number
devInfo		ds.W	1			;device characteristics if a device icon
OptionList	ds.b	2			;option list
fst		ds.b	38			;fst inside option_list
NetworkAccess	ds.L	1			;network access for icon
;-----------------------------------------------
		ENDR 

; misc equates
;.....................................................................

InfoWindID	equ	$0010			; Info window's id (for closing)
iDataBig	equ	86			; offset to icon data


; locals
;.....................................................................

LocalData	PROC

		IMPORT	CardCtrlProc
		IMPORT	DrawInfoWindow
		IMPORT	DrawAboutWindow
		
		ENTRY	GetLockDevice
GetLockDevice	dc.w	8		;pcount
		dc.w	0		;devNum
		dc.L	nameBuffer	;output name buffer
		dc.w	0		;characteristics
		dc.L	0		;total blocks
		dc.w	0		;slot number
		dc.w	0		;unit number
		dc.w	0		;version
		dc.w	0		;device ID
		
nameBuffer	dc.w	35
		ds.b	33

		ENTRY	GetLockParms
GetLockParms	dc.w	5		;pcount
		dc.w	0		;devnum
		dc.w	$f001		;code, GetConfig
		dc.L	getControlList	
		dc.L	2		;request_count
		dc.L	0		;transfer_count
		
		ENTRY	getControlList
getControlList	dc.w	0		;get write protect status
		
		ENTRY	SetLockParms
SetLockParms	dc.w	5		;pcount
		dc.w	0		;devnum
		dc.w	$f001		;code
		dc.L	setControlList	
		dc.L	2		;request_count
		dc.L	0		;transfer_count
		
		ENTRY	setControlList
setControlList	dc.w	$0130		;clear write protect status

*** Added - 17-Feb-93 JCM - for getting the SCSI ID for the Where card

		ENTRY	GetSCSITargetPriority
GetSCSITargetPriority	dc.w	5		;pcount
		dc.w	0		;devnum
		dc.w	$4000		;code, GetSCSITargetPriority
		dc.L	SCSIPriority	
		dc.L	2		;request_count
		dc.L	0		;transfer_count

		ENTRY	SCSIPriority
SCSIPriority	dc.w	0		;for target priority

*** End - 17-Feb-93 JCM

		ENTRY	theHandle
theHandle	DC.L	0

		ENTRY	InfoWinParam

InfoWinParam	DC.W	InfoWinEnd-InfoWinParam
		DC.W	fTitle+fClose+fMove+fVis+fHilited
		DC.L	nullStrg		; Ptr to title
		DC.L	0			; RefCon
		DC.W	0,0,0,0			; Full Size (0= default)

		EXPORT	InfoWinColorTablePtr
InfoWinColorTablePtr 		
		DC.L	0			; Color Table Pointer
		DC.W	0			; Vertical origin
		DC.W	0			; Horizontal origin
		DC.W	200			; RECORD Area Height
		DC.W	640			; RECORD Area Width
		DC.W	200			; Max Cont Height
		DC.W	640			; Max Cont Width
		DC.W	0			; pixels to scroll vertically
		DC.W	0			; pixels to scroll horizontally
		DC.W	0			; pixels to page vertically
		DC.W	0			; pixels to page horizontally
		DC.L	0			; Infomation bar text string
		DC.W	0			; Info bar height	  
		DC.L	0			; DefProc
		DC.L	0			; Routine to draw info. bar
		DC.L	DrawInfoWindow+$80000000 ; Routine to draw content
		DC.W	60,70,60+wDY,70+wDX	; Size/pos of content 
		DC.L	$FFFFFFFF		; Plane to put window up in
		DC.L	0			; Address for window record
InfoWinEnd


		ENTRY	TempRect
TempRect	ds.b	8			;it's a rect
		
bColor		equ	$EEEE

		ENTRY	Pattern3
Pattern3	DC.W	bColor			; 8 x 8 color pattern
		DC.W	bColor
		DC.W	bColor
		DC.W	bColor
		DC.W	bColor
		DC.W	bColor
		DC.W	bColor
		DC.W	bColor

		ENTRY	BlackPattern
BlackPattern	DC.W	$0000			; 8 x 8 black pattern
		DC.W	$0000
		DC.W	$0000
		DC.W	$0000
		DC.W	$0000
		DC.W	$0000
		DC.W	$0000
		DC.W	$0000

		ENTRY	IconType
IconType	DC.W	0

		ENTRY	GeneralCard
GeneralCard	DC.L	strGeneral
		DC.L	idIconButton
		DC.L	idNameFld		; controls on General card
		DC.L	idKindStr
		DC.L	idKindFld
		DC.L	idSizeStr
		DC.L	idSizeFld
		DC.L	idCreateStr
		DC.L	idCreateFld
		DC.L	idModifyStr
		DC.L	idModifyFld
		DC.L	idLockedStr
		DC.L	idLocked
		DC.L	0

		ENTRY	VerGeneralCard
VerGeneralCard	DC.L	strGeneral
		DC.L	idIconButton
		DC.L	idNameFld		; controls on 'Version' General card
		DC.L	idRealNameFld
		DC.L	idKindStr
		DC.L	idKindFld
		DC.L	idSizeStr
		DC.L	idSizeFld
		DC.L	idCopyrightFld
		DC.L	idCreateStr
		DC.L	idCreateFld
		DC.L	idModifyStr
		DC.L	idModifyFld
		DC.L	idLockedStr
		DC.L	idLocked
		DC.L	0

		ENTRY	InVerGeneralCard
InVerGeneralCard DC.L	strGeneral
		DC.L	idIconButton
		DC.L	idNameFld		; controls on 'Version' General card
		DC.L	idRealNameFld		; which can have an inactive check box also
		DC.L	idKindStr
		DC.L	idKindFld
		DC.L	idSizeStr
		DC.L	idSizeFld
		DC.L	idCopyrightFld
		DC.L	idCreateStr
		DC.L	idCreateFld
		DC.L	idModifyStr
		DC.L	idModifyFld
		DC.L	idLockedStr
		DC.L	idLocked
		DC.L	idInactiveStr
		DC.L	idInactive
		DC.L	0


		ENTRY	DrvGeneralCard
DrvGeneralCard	DC.L	strGeneral
		DC.L	idIconButton
		DC.L	idNameFld		; controls on "driver" General card
		DC.L	idKindStr
		DC.L	idKindFld
		DC.L	idSizeStr
		DC.L	idSizeFld
		DC.L	idCreateStr
		DC.L	idCreateFld
		DC.L	idModifyStr
		DC.L	idModifyFld
		DC.L	idLockedStr
		DC.L	idLocked
		DC.L	idInactiveStr
		DC.L	idInactive
		DC.L	0

		ENTRY	VolGeneralCard
VolGeneralCard	DC.L	strGeneral
		DC.L	idIconButton
		DC.L	idNameFld		; controls on volume General card
		DC.L	idKindStr
		DC.L	idKindFld
		DC.L	idSizeStr
		DC.L	idSizeFld
		DC.L	idContentStr
		DC.L	idContentFld
		DC.L	idCreateStr
		DC.L	idCreateFld
		DC.L	idModifyStr
		DC.L	idModifyFld
		DC.L	idCalculate
		DC.L	0
		
		ENTRY	NewVolumeCard
NewVolumeCard	DC.L	strGeneral
		DC.L	idIconButton
		DC.L	idNameFld		; controls on volume General card
		DC.L	idKindStr		; with lock
		DC.L	idKindFld
		DC.L	idSizeStr
		DC.L	idSizeFld
		DC.L	idContentStr
		DC.L	idContentFld
		DC.L	idCreateStr
		DC.L	idCreateFld
		DC.L	idModifyStr
		DC.L	idModifyFld
		DC.L	idLockedStr
		DC.L	idLocked
		DC.L	idCalculate
		DC.L	0

		ENTRY	FoldGeneralCard
FoldGeneralCard	DC.L	strGeneral
		DC.L	idIconButton
		DC.L	idNameFld		; controls on folder General card
		DC.L	idKindStr
		DC.L	idKindFld
		DC.L	idSizeStr
		DC.L	idSizeFld
		DC.L	idContentStr
		DC.L	idContentFld
		DC.L	idCreateStr
		DC.L	idCreateFld
		DC.L	idModifyStr
		DC.L	idModifyFld
		DC.L	idLockedStr
		DC.L	idLocked
		DC.L	idCalculate
		DC.L	0
		
		ENTRY	TrashGenCard
TrashGenCard	DC.L	strGeneral
		DC.L	idIconButton
		DC.L	idNameFld		; controls on trash General card
		DC.L	idKindStr
		DC.L	idKindFld
		DC.L	idTrashFld
		DC.L	0

		ENTRY	DriveGenCard
DriveGenCard	DC.L	strGeneral
		DC.L	idIconButton
		DC.L	idNameFld		; controls on drive General card
		DC.L	idKindStr
		DC.L	idKindFld
		DC.L	idDriveFld
		DC.L	0

		ENTRY	WhereCard
WhereCard	DC.L	strWhere
		DC.L	idPathStr		; controls on Where card
		DC.L	idPathFld
		DC.L	idDeviceStr
		DC.L	idDeviceFld
		DC.L	0

		ENTRY	NetWhereCard
NetWhereCard	DC.L	strWhere
		DC.L	idPathStr		; controls on network Where card
		DC.L	idPathFld
		DC.L	idServerStr
		DC.L	idServerFld
		DC.L	idZoneStr
		DC.L	idZoneFld
		DC.L	0

		ENTRY	CommentCard
CommentCard	DC.L	strComment
		DC.L	idCommentFld		; controls on Comment card
		DC.L	0

		ENTRY	NetAccessCard
NetAccessCard	DC.L	strAccess
		DC.L	idLineStr1
		DC.L	idOwnerStr		; controls on network Access card
		DC.L	idOwnerFld
		DC.L	idGroupStr
		DC.L	idGroupFld
		DC.L	idPrivilegeStr
		DC.L	idPrivilegeFld
		DC.L	0

		ENTRY	NetAccessCard2
NetAccessCard2	DC.L	strAccess
		DC.L	idLineStr1
		DC.L	idLineStr2
		DC.L	idOwner			; controls on owner Access card
		DC.L	idGroup
		DC.L	idOwnerStr
		DC.L	idGroupStr
		DC.L	idClass
		DC.L	idSeeFolders
		DC.L	idSeeFiles
		DC.L	idMakeChanges
		DC.L	idApply
		DC.L	idApplyAll
		DC.L	0

		ENTRY	LocAccessCard
LocAccessCard	DC.L	strAccess
		DC.L	0
		
ColorTable	DC.W	$0000,$000E,$000F,$000F	;card's color table

		
		ENTRY	InfoCard
InfoCard	DC.W	13			; parameter count
		DC.L	$FFFF			; control ID
		DC.W	cY1,cX1,cY2+tH,cX2	; control boundry rect
		DC.L	CardCtrlProc		; Def proc ref
		DC.W	0			; flag
		DC.W	fCtlWantEvents		; more flags
		DC.L	0			; reference constant
		DC.W	1			; control value = initial card
		DC.W	3			; control count
		DC.W	tH			; height of tab
		DC.W	tW			; width of tab
		DC.W	tS			; tab spacing
		DC.L	ColorTable		; color table ref
		DC.L	0			; card table ref


		ENTRY	LineStr
LineStr		DC.B	'........................................................................................................'
endLineStr

		STRING	PASCAL

ApplyButton	DC.W	7			; PCount
		DC.L	idApply			; Control ID
		DC.W	bY1,cX1+10+10,bY2,cX1+90+10
		DC.L	simpleButtonControl
		DC.W	ctlInVis		; flag
		DC.W	fCtlProcRefNotPtr	; more flags
		DC.L	0			; RefCon
		DC.L	strApply		; title ptr

AllButton	DC.W	7			; PCount
		DC.L	idApplyAll		; Control ID
		DC.W	bY1,cX2-250,bY2,cX2-sp
		DC.L	simpleButtonControl
		DC.W	ctlInVis		; flag
		DC.W	fCtlProcRefNotPtr	; more flags
		DC.L	0			; RefCon
		DC.L	strApplyAll		; title ptr
		
		ENTRY	OwnerEditLine
OwnerEditLine	DC.W	8			; PCount
		DC.L	idOwner			; Control ID
		DC.W	eY1,0,eY2,0		; control rect
		DC.L	editLineControl
		DC.W	ctlInVis		; flag
		DC.W	fCtlProcRefNotPtr	; more flags
		DC.L	0			; RefCon
		DC.W	31			; MaxSize  JAM 5/17/89 Fix BRC #48037
		DC.L	0			; text ptr

		ENTRY	GroupEditLine
GroupEditLine	DC.W	8			; PCount
		DC.L	idGroup			; Control ID
		DC.W	eY3,0,eY4,0		; control rect
		DC.L	editLineControl
		DC.W	ctlInVis		; flag
		DC.W	fCtlProcRefNotPtr	; more flags
		DC.L	0			; RefCon
		DC.W	31			; MaxSize  JAM 5/17/89 Fix BRC #48037
		DC.L	0			; text ptr

		ENTRY	OwnerText
OwnerText	DC.W	8			; PCount
		DC.L	idOwnerStr		; Control ID
		DC.W	eY1+2,cX1+10,eY2,cX1+140	; control rect
		DC.L	statTextControl		; proc ref
		DC.B	ctlInVis		; flag
		DC.B	inactiveHilite		; hilite
		DC.W	fCtlProcRefNotPtr	; more flags
		DC.L	0			; RefCon
		DC.L	strOwner+1		; title ptr
		DC.W	endOwner-strOwner-1

		ENTRY	OwnerField
OwnerField	DC.W	8			; PCount
		DC.L	idOwnerFld		; Control ID
		DC.W	eY1+2,0,eY2,cX2-sp	; control rect
		DC.L	statTextControl		; proc ref
		DC.B	ctlInVis		; flag
		DC.B	inactiveHilite		; hilite
		DC.W	fCtlProcRefNotPtr	; more flags
		DC.L	0			; RefCon
		DC.L	0			; text ptr
		DC.W	0			; text size

		ENTRY	GroupText
GroupText	DC.W	8			; PCount
		DC.L	idGroupStr		; Control ID
		DC.W	eY3+2,cX1+10,eY4,cX1+140	; control rect
		DC.L	statTextControl		; proc ref
		DC.B	ctlInVis		; flag
		DC.B	inactiveHilite		; hilite
		DC.W	fCtlProcRefNotPtr	; more flags
		DC.L	0			; RefCon
		DC.L	strGroup+1		; title ptr
		DC.W	endGroup-strGroup-1

		ENTRY	GroupField
GroupField	DC.W	8			; PCount
		DC.L	idGroupFld		; Control ID
		DC.W	eY3+2,0,eY4,cX2-sp	; control rect
		DC.L	statTextControl		; proc ref
		DC.B	ctlInVis		; flag
		DC.B	inactiveHilite		; hilite
		DC.W	fCtlProcRefNotPtr	; more flags
		DC.L	0			; RefCon
		DC.L	0			; text ptr
		DC.W	0			; text size

		ENTRY	PrivilegeText
PrivilegeText	DC.W	8			; PCount
		DC.L	idPrivilegeStr		; Control ID
		DC.W	pY1,cX1+sp,pY1+10,0	; control rect
		DC.L	statTextControl		; proc ref
		DC.B	ctlInVis+4		; flag
		DC.B	inactiveHilite		; hilite
		DC.W	fCtlProcRefNotPtr	; more flags
		DC.L	0			; RefCon
		DC.L	strPrivileges+1		; title ptr
		DC.W	endPrivileges-strPrivileges-1

		ENTRY	PrivilegeField
PrivilegeField	DC.W	8			; PCount
		DC.L	idPrivilegeFld		; Control ID
		DC.W	pY1,0,pY1+20,cX2-10 	; control rect
		DC.L	statTextControl		; proc ref
		DC.B	ctlInVis		; flag
		DC.B	inactiveHilite		; hilite
		DC.W	fCtlProcRefNotPtr	; more flags
		DC.L	0			; RefCon
		DC.L	0			; text ptr
		DC.W	0			; text size

		ENTRY	LockedText
LockedText	DC.W	8			; PCount
		DC.L	idLockedStr		; Control ID
		DC.W	eY1+1,0,eY2+1,cX2-48	; control rect
		DC.L	statTextControl		; proc ref
		DC.B	ctlInVis+4+8		; flag
		DC.B	0			; hilite
		DC.W	fCtlProcRefNotPtr	; more flags
		DC.L	0			; RefCon
		DC.L	strLocked+1		; title ptr
		DC.W	endLocked-strLocked-1

		ENTRY	InactiveText
InactiveText	DC.W	8			; PCount
		DC.L	idInactiveStr		; Control ID
		DC.W	eY3-1,0,eY4-1,cX2-48	; control rect
		DC.L	statTextControl		; proc ref
		DC.B	ctlInVis+4+8		; flag
		DC.B	0			; hilite
		DC.W	fCtlProcRefNotPtr	; more flags
		DC.L	0			; RefCon
		DC.L	strInactive+1		; title ptr
		DC.W	endInactive-strInactive-1

		ENTRY	NameField
NameField	DC.W	8			; PCount
		DC.L	idNameFld		; Control ID
		DC.W	cY1+11,0,cY1+21,cX2-100	; control rect
		DC.L	statTextControl		; proc ref
		DC.B	ctlInVis		; flag
		DC.B	inactiveHilite		; hilite
		DC.W	fCtlProcRefNotPtr	; more flags
		DC.L	0			; RefCon
		DC.L	0			; text ptr
		DC.W	0			; text size

		ENTRY	RealNameField
RealNameField	DC.W	8			; PCount
		DC.L	idRealNameFld		; Control ID
		DC.W	cY1+23,0,cY1+33,cX2-6	; control rect
		DC.L	statTextControl		; proc ref
		DC.B	ctlInVis+$14		; flag
		DC.B	inactiveHilite		; hilite
		DC.W	fCtlProcRefNotPtr	; more flags
		DC.L	0			; RefCon
		DC.L	0			; text ptr
		DC.W	0

		ENTRY	KindText
KindText	DC.W	8			; PCount
		DC.L	idKindStr		; Control ID
		DC.W	gY1,0,gY1+11,0		; control rect
		DC.L	statTextControl		; proc ref
		DC.B	ctlInVis+4		; flag
		DC.B	inactiveHilite		; hilite
		DC.W	fCtlProcRefNotPtr	; more flags
		DC.L	0			; RefCon
		DC.L	strKind+1		; title ptr
		DC.W	endKind-strKind-1

		ENTRY	KindField
KindField	DC.W	8			; PCount
		DC.L	idKindFld		; Control ID
		DC.W	gY1,0,gY1+11,cX2-sp	; control rect
		DC.L	statTextControl		; proc ref
		DC.B	ctlInVis+4		; flag
		DC.B	inactiveHilite		; hilite
		DC.W	fCtlProcRefNotPtr	; more flags
		DC.L	0			; RefCon
		DC.L	0			; text ptr
		DC.W	0			; text size

		ENTRY	SizeText
SizeText	DC.W	8			; PCount
		DC.L	idSizeStr		; Control ID
		DC.W	gY2,0,gY2+11,0		; control rect
		DC.L	statTextControl		; proc ref
		DC.B	ctlInVis+4		; flag
		DC.B	inactiveHilite		; hilite
		DC.W	fCtlProcRefNotPtr	; more flags
		DC.L	0			; RefCon
		DC.L	strSize+1		; text ptr
		DC.W	endSize-strSize-1	; text size

		ENTRY	SizeField
SizeField	DC.W	8			; PCount
		DC.L	idSizeFld		; Control ID
		DC.W	gY2,0,gY2+20,cX2-sp	; control rect
		DC.L	statTextControl		; proc ref
		DC.B	ctlInVis		; flag
		DC.B	inactiveHilite		; hilite
		DC.W	fCtlProcRefNotPtr	; more flags
		DC.L	0			; RefCon
		DC.L	0			; text ptr
		DC.W	0			; text size

		ENTRY	ContentText
ContentText	DC.W	8			; PCount
		DC.L	idContentStr		; Control ID
		DC.W	gY3,0,gY3+10,0		; control rect
		DC.L	statTextControl		; proc ref
		DC.B	ctlInVis+4		; flag
		DC.B	inactiveHilite		; hilite
		DC.W	fCtlProcRefNotPtr	; more flags
		DC.L	0			; RefCon
		DC.L	strContents+1		; text ptr
		DC.W	endContents-strContents-1

		ENTRY	ContentField
ContentField	DC.W	8			; PCount
		DC.L	idContentFld		; Control ID
		DC.W	gY3,0,gY3+10,cX2-sp	; control rect
		DC.L	statTextControl		; proc ref
		DC.B	ctlInVis		; flag (must use LETextBox2)
		DC.B	inactiveHilite		; hilite
		DC.W	fCtlProcRefNotPtr	; more flags
		DC.L	0			; RefCon
		DC.L	0			; text ptr
		DC.W	0			; text size

		ENTRY	CopyrightField
CopyrightField	DC.W	8			; PCount
		DC.L	idCopyrightFld		; Control ID
		DC.W	gY2+11,100,gY2+31,cX2-6	; control rect
		DC.L	statTextControl		; proc ref
		DC.B	ctlInVis		; flag
		DC.B	inactiveHilite		; hilite
		DC.W	fCtlProcRefNotPtr	; more flags
		DC.L	0			; RefCon
		DC.L	0			; text ptr
		DC.W	0			; text size

		ENTRY	CreateText
CreateText	DC.W	8			; PCount
		DC.L	idCreateStr		; Control ID
		DC.W	gY4,0,gY4+10,0		; control rect
		DC.L	statTextControl		; proc ref
		DC.B	ctlInVis+4		; flag
		DC.B	inactiveHilite		; hilite
		DC.W	fCtlProcRefNotPtr	; more flags
		DC.L	0			; RefCon
		DC.L	strCreated+1		; text ptr
		DC.W	endCreated-strCreated-1	; text size

		ENTRY	CreateField
CreateField	DC.W	8			; PCount
		DC.L	idCreateFld		; Control ID
		DC.W	gY4,0,gY4+10,cX2-60	; control rect
		DC.L	statTextControl		; proc ref
		DC.B	ctlInVis		; flag
		DC.B	inactiveHilite		; hilite
		DC.W	fCtlProcRefNotPtr	; more flags
		DC.L	0			; RefCon
		DC.L	0			; text ptr
		DC.W	0			; text size

		ENTRY	ModifyText
ModifyText	DC.W	8			; PCount
		DC.L	idModifyStr		; Control ID
		DC.W	gY5,0,gY5+10,0		; control rect
		DC.L	statTextControl		; proc ref
		DC.B	ctlInVis+4		; flag
		DC.B	inactiveHilite		; hilite
		DC.W	fCtlProcRefNotPtr	; more flags
		DC.L	0			; RefCon
		DC.L	strModified+1		; text ptr
		DC.W	endModified-strModified-1

		ENTRY	ModifyField
ModifyField	DC.W	8			; PCount
		DC.L	idModifyFld		; Control ID
		DC.W	gY5,0,gY5+10,cX2-60	; control rect
		DC.L	statTextControl		; proc ref
		DC.B	ctlInVis		; flag
		DC.B	inactiveHilite		; hilite
		DC.W	fCtlProcRefNotPtr	; more flags
		DC.L	0			; RefCon
		DC.L	0			; text ptr
		DC.W	0			; text size

		ENTRY	TrashField
TrashField	DC.W	8			; PCount
		DC.L	idTrashFld		; Control ID
		DC.W	cY2-44,cX1+sp,cY2-4,cX2-sp	; control rect
		DC.L	statTextControl		; proc ref
		DC.B	ctlInVis		; flag
		DC.B	inactiveHilite		; hilite
		DC.W	fCtlProcRefNotPtr	; more flags
		DC.L	0			; RefCon
		DC.L	TrashText		; text ptr
		DC.W	endTrashText-TrashText	; text size

		ENTRY	DriveField
DriveField	DC.W	8			; PCount
		DC.L	idDriveFld		; Control ID
		DC.W	cY2-44,cX1+sp,cY2-4,cX2-sp	; control rect
		DC.L	statTextControl		; proc ref
		DC.B	ctlInVis		; flag
		DC.B	inactiveHilite		; hilite
		DC.W	fCtlProcRefNotPtr	; more flags
		DC.L	0			; RefCon
		DC.L	DriveText		; text ptr
		DC.W	endDriveText-DriveText	; text size

		ENTRY	PathText
PathText	DC.W	8			; PCount
		DC.L	idPathStr		; Control ID
		DC.W	wY3,0,wY3+10,0		; control rect
		DC.L	statTextControl		; proc ref
		DC.B	ctlInVis+4		; flag
		DC.B	inactiveHilite		; hilite
		DC.W	fCtlProcRefNotPtr	; more flags
		DC.L	0			; RefCon
		DC.L	strPath+1		; title ptr
		DC.W	endPath-strPath-1

		ENTRY	PathField
PathField	DC.W	8			; PCount
		DC.L	idPathFld		; Control ID
		DC.W	wY3,0,cY2-10,cX2-sp	; control rect
		DC.L	statTextControl		; proc ref
		DC.B	ctlInVis		; flag
		DC.B	inactiveHilite		; hilite
		DC.W	fCtlProcRefNotPtr	; more flags
		DC.L	0			; RefCon
		DC.L	0			; text ptr
		DC.W	0			; text size

		ENTRY	DeviceText
DeviceText	DC.W	8			; PCount
		DC.L	idDeviceStr		; Control ID
		DC.W	wY1,0,wY1+10,0		; control rect
		DC.L	statTextControl		; proc ref
		DC.B	ctlInVis+4		; flag
		DC.B	inactiveHilite		; hilite
		DC.W	fCtlProcRefNotPtr	; more flags
		DC.L	0			; RefCon
		DC.L	strDevice+1		; title ptr
		DC.W	endDevice-strDevice-1

		ENTRY	DeviceField
DeviceField	DC.W	8			; PCount
		DC.L	idDeviceFld		; Control ID
		DC.W	wY1,0,wY1+10,cX2-sp	; control rect
		DC.L	statTextControl		; proc ref
		DC.B	ctlInVis		; flag
		DC.B	inactiveHilite		; hilite
		DC.W	fCtlProcRefNotPtr	; more flags
		DC.L	0			; RefCon
		DC.L	0			; text ptr
		DC.W	0			; text size

		ENTRY	ServerText
ServerText	DC.W	8			; PCount
		DC.L	idServerStr		; Control ID
		DC.W	wY1,0,wY1+10,0		; control rect
		DC.L	statTextControl		; proc ref
		DC.B	ctlInVis+4		; flag
		DC.B	inactiveHilite		; hilite
		DC.W	fCtlProcRefNotPtr	; more flags
		DC.L	0			; RefCon
		DC.L	strServer+1		; text ptr
		DC.W	endServer-strServer-1	; text size

		ENTRY	ServerField
ServerField	DC.W	8			;PCount
		DC.L	idServerFld		;Control ID
		DC.W	wY1,0,wY1+10,cX2-sp	;control rect
		DC.L	statTextControl		;proc ref
		DC.B	ctlInVis+4		;flag
		DC.B	inactiveHilite		;hilite
		DC.W	fCtlProcRefNotPtr	;more flags
		DC.L	0			;RefCon
		DC.L	0			;text ptr
		DC.W	0			;text size

		ENTRY	ZoneText
ZoneText	DC.W	8			;PCount
		DC.L	idZoneStr		;Control ID
		DC.W	wY2,0,wY2+10,0		;control rect
		DC.L	statTextControl		;proc ref
		DC.B	ctlInVis+4		;flag
		DC.B	inactiveHilite		;hilite
		DC.W	fCtlProcRefNotPtr	;more flags
		DC.L	0			;RefCon
		DC.L	strZone+1		;text ptr
		DC.W	endZone-strZone-1	;text size

		ENTRY	ZoneField
ZoneField	DC.W	8			;PCount
		DC.L	idZoneFld		;Control ID
		DC.W	wY2,0,wY2+10,cX2-sp	;control rect
		DC.L	statTextControl		;proc ref
		DC.B	ctlInVis+4		;flag
		DC.B	inactiveHilite		;hilite
		DC.W	fCtlProcRefNotPtr	;more flags
		DC.L	0			;RefCon
		DC.L	0			;text ptr
		DC.W	0			;text size

		ENTRY	CommentField
CommentField	DC.W	17			;PCount
		DC.L	idCommentFld		;Control ID
		DC.W	cY1+10,cX1+8,cY2-6,cX2-8 ;control rect
		DC.L	editTextControl		;proc ref
		DC.B	ctlInVis		;flag
		DC.B	0			;hilite
		DC.W	fCtlProcRefNotPtr+fCtlWantEvents+fCtlCanBeTarget ;more flags
		DC.L	0			;RefCon
		dc.L	$62080000		;textFlags (editable)
		dc.w	$FFFF
		dc.w	$FFFF
		dc.w	$FFFF
		dc.w	$FFFF
		dc.L	0			;no scroll bar
		dc.w	0			;default vert amount
		dc.L	0
		dc.w	0
		dc.L	0			;style ref
		dc.w	0			;text decriptor
		dc.L	0			;textref
		dc.L	0			;text length
		dc.L	0			;max chars

		ENTRY	AddCommentButton
AddCommentButton dc.w	9
		dc.L	idCommentFld
		dc.w	cY1+40,cX1+158,cY1+54,cX1+268
		dc.L	simpleButtonControl
		DC.B	ctlInVis+1		;flag (default button)
		DC.B	0			;hilite
		DC.W	fCtlProcRefNotPtr+fCtlWantEvents ;more flags
		dc.L	0			;refcon
		dc.L	strAddComment		;button title
		dc.L	0			;color table
		dc.w	$0d0d,0,0		;defualt button

		STRING	ASIS
MenuTemplate1	DC.B	'>>  See Folders: \H'
		DC.W	500
		DC.B	ret
		DC.B	'  Nobody\H'
		DC.W	midNobody
		DC.B	ret
		DC.B	'  Owner\H'
		DC.W	midOwner
		DC.B	ret
		DC.B	'  Group\H'
		DC.W	midGroup
		DC.B	ret
		DC.B	'  Owner & Group\H'
		DC.W	midOwnerGroup
		DC.B	ret
		DC.B	'  Everyone\H'
		DC.W	midEveryone
		DC.B	ret
		DC.B	'.'			;end of menu
		
MenuTemplate2	DC.B	'>>  See Files: \H'
		DC.W	600
		DC.B	ret
		DC.B	'  Nobody\H'
		DC.W	midNobody
		DC.B	ret
		DC.B	'  Owner\H'
		DC.W	midOwner
		DC.B	ret
		DC.B	'  Group\H'
		DC.W	midGroup
		DC.B	ret
		DC.B	'  Owner & Group\H'
		DC.W	midOwnerGroup
		DC.B	ret
		DC.B	'  Everyone\H'
		DC.W	midEveryone
		DC.B	ret
		DC.B	'.'			;end of menu
		
MenuTemplate3	DC.B	'>>  Make Changes: \H'
		DC.W	700
		DC.B	ret
		DC.B	'  Nobody\H'
		DC.W	midNobody
		DC.B	ret
		DC.B	'  Owner\H'
		DC.W	midOwner
		DC.B	ret
		DC.B	'  Group\H'
		DC.W	midGroup
		DC.B	ret
		DC.B	'  Owner & Group\H'
		DC.W	midOwnerGroup
		DC.B	ret
		DC.B	'  Everyone\H'
		DC.W	midEveryone
		DC.B	ret
		DC.B	'.'			;end of menu

MenuTemplate4	DC.B	'>>\H'
		DC.W	800
		DC.B	ret
		DC.B	'  Custom\DH'
		DC.W	midCustom
		DC.B	ret
		DC.B	'  Private\H'
		DC.W	midPrivate
		DC.B	ret
		DC.B	'  Public\H'
		DC.W	midPublic
		DC.B	ret
		DC.B	'  Drop Folder\H'
		DC.W	midDropBox
		DC.B	ret
		DC.B	'  Bulletin Board\H'
		DC.W	midBulletin
		DC.B	ret
		DC.B	'.'			;end of menu
		STRING	PASCAL

PopUp1		DC.W	9			; parameter count
		DC.L	idSeeFolders		; control ID
		ENTRY	PopRect1
PopRect1	DC.W	pY1,pX,0,0		; control boundry rect
		DC.L	popUpControl		; Def proc ref
		DC.W	ctlInVis		; flag
		DC.W	fCtlProcRefNotPtr+4+$80	; more flags
		DC.L	0			; reference constant
		DC.W	0			; title width
		DC.L	MenuTemplate1		; menu reference
		DC.W	midOwner		; initial value

PopUp2		DC.W	9			; parameter count
		DC.L	idSeeFiles		; control ID
		ENTRY	PopRect2
PopRect2	DC.W	pY2,pX,0,0		; control boundry rect
		DC.L	popUpControl		; Def proc ref
		DC.W	ctlInVis		; flag
		DC.W	fCtlProcRefNotPtr+4+$80	; more flags
		DC.L	0			; reference constant
		DC.W	0			; title width
		DC.L	MenuTemplate2		; menu reference
		DC.W	midOwner		; initial value

PopUp3		DC.W	9			; parameter count
		DC.L	idMakeChanges		; control ID
		ENTRY	PopRect3
PopRect3	DC.W	pY3,pX,0,0		; control boundry rect
		DC.L	popUpControl		; Def proc ref
		DC.W	ctlInVis		; flag
		DC.W	fCtlProcRefNotPtr+4+$80	; more flags
		DC.L	0			; reference constant
		DC.W	0			; title width
		DC.L	MenuTemplate3		; menu reference
		DC.W	midOwner		; initial value

PopUp4		DC.W	9			; parameter count
		DC.L	idClass			; control ID
		ENTRY	PopRect4
PopRect4	DC.W	pY2,cX1+sp-10,0,0	; control boundry rect
		DC.L	popUpControl		; Def proc ref
		DC.W	ctlInVis+$30		; flag
		DC.W	fCtlProcRefNotPtr+4+$80	; more flags
		DC.L	0			; reference constant
		DC.W	0			; title width
		DC.L	MenuTemplate4		; menu reference
		DC.W	midPrivate		; initial value

		ENTRY	CheckBox1
CheckBox1	DC.W	10			; PCount	;added keys 8-Apr-91 DAL
		DC.L	idLocked		; Control ID
		DC.W	eY1-1,cX2-40,eY2-1,cX2-sp
		DC.L	checkControl
		DC.W	ctlInVis		; flag
		DC.W	fCtlProcRefNotPtr+fCtlWantEvents	; more flags
		DC.L	0			; RefCon
		DC.L	nullStrg		; title ptr
		DC.W	0			; initial value
		dc.l	0			; color table
		dc.b	$4C,$6C			; key equivalents (L)
		dc.w	0,0			; modifiers

		ENTRY	CheckBox2
CheckBox2	DC.W	10			; PCount	;added keys 8-Apr-91 DAL
		DC.L	idInactive		; Control ID
		DC.W	eY3-3,cX2-40,eY4-3,cX2-sp
		DC.L	checkControl
		DC.W	ctlInVis		; flag
		DC.W	fCtlProcRefNotPtr+fCtlWantEvents	; more flags
		DC.L	0			; RefCon
		DC.L	nullStrg		; title ptr
		DC.W	0			; initial value
		dc.l	0			; color table
		dc.b	$49,$69			; key equivalents (i)
		dc.w	0,0			; modifiers

IconColorTbl	DC.W	$00F0,$00F0,$00F0,$00F0,$00F0

		ENTRY	CalcIconButton
CalcIconButton	DC.W	11			; PCount (was 10 28-Apr-92 DAL)
		DC.L	idCalculate		; Control ID
		DC.W	cY2-29,cX2-56,cY2-4,cX2-10
		DC.L	iconButtonControl
		DC.B	ctlInVis+2+4		; flag
		DC.B	0			; hilite
		DC.W	fCtlProcRefNotPtr+fCtlWantEvents	; more flags
		DC.L	0			; RefCon
		DC.L	CalculateIcon		; icon ref
		DC.L	0			; title ref
		DC.L	0			; color table ref
		DC.W	0			; display mode
		dc.b	$4B,$6B
		dc.w	$0100,$0100		; key equiv (Command-K) 28-Apr-92 DAL

		ENTRY	IconButton
IconButton	DC.W	10			; PCount
		DC.L	idIconButton		; Control ID
		DC.W	cY1+8,cX1+21,cY1+35,cX1+93
		DC.L	iconButtonControl
		DC.B	ctlInVis+4+8		; flag not selectable
		DC.B	0			; hilite
		DC.W	fCtlProcRefNotPtr+$10 	; more flags (RefIsHandle)
		DC.L	0			; RefCon
		DC.L	0			; icon ref
		DC.L	0			; title ref
		DC.L	IconColorTbl		; color table ref
		DC.W	0			; display mode

		ENTRY	LineText1
LineText1	DC.W	8			; PCount
		DC.L	idLineStr1		; Control ID
		DC.W	eY4-6,cX1+10,eY4+3,cX2-10	; control rect
		DC.L	statTextControl		; proc ref
		DC.B	ctlInVis		; flag
		DC.B	inactiveHilite		; hilite
		DC.W	fCtlProcRefNotPtr	; more flags
		DC.L	0			; RefCon
		DC.L	LineStr+1		; title ptr
		DC.W	EndLineStr-LineStr-1

		ENTRY	LineText2
LineText2	DC.W	8			; PCount
		DC.L	idLineStr2		; Control ID
		DC.W	bY1-10,cX1+10,bY1-1,cX2-10	; control rect
		DC.L	statTextControl		; proc ref
		DC.B	ctlInVis		; flag
		DC.B	inactiveHilite		; hilite
		DC.W	fCtlProcRefNotPtr	; more flags
		DC.L	0			; RefCon
		DC.L	LineStr+1		; title ptr
		DC.W	EndLineStr-LineStr-1

		ENTRY	CommonControls
CommonControls	DC.L	IconButton		; controls common to all cards
		DC.L	NameField
		DC.L	RealNameField		;version information
		DC.L	KindText
		DC.L	KindField
		DC.L	CopyrightField
		DC.L	SizeText
		DC.L	SizeField
		DC.L	ContentText
		DC.L	ContentField
		DC.L	CreateText
		DC.L	CreateField
		DC.L	ModifyText
		DC.L	ModifyField
		DC.L	TrashField
		DC.L	DriveField
		DC.L	CalcIconButton
		DC.L	PathText
		DC.L	PathField
		DC.L	DeviceText
		DC.L	DeviceField
		DC.L	ServerText
		DC.L	ServerField
		DC.L	ZoneText
		DC.L	ZoneField
		DC.L	InfoCard		; this one must be last!
		DC.L	0

		ENTRY	LockControls
LockControls	DC.L	CheckBox2
		DC.L	LockedText
		DC.L	CheckBox1
		DC.L	InactiveText
		DC.L	0
		
		ENTRY	NetworkControls
NetworkControls	DC.L	OwnerText		; controls used for network (access)
		DC.L	OwnerField
		DC.L	GroupText
		DC.L	GroupField
		DC.L	PrivilegeText
		DC.L	PrivilegeField
		DC.L	LineText1		; this "line" must be last !
		DC.L	0

		ENTRY	OwnerControls
OwnerControls	DC.L	ApplyButton		; controls used for owner (access)
		DC.L	AllButton
		DC.L	OwnerEditLine
		DC.L	OwnerText
		DC.L	GroupEditLine
		DC.L	GroupText
		DC.L	PopUp1
		DC.L	PopUp2
		DC.L	PopUp3
		DC.L	PopUp4
		DC.L	LineText1		; these "lines" must be last !
		DC.L	LineText2		; so they don't overlap other controls
		DC.L	0

;		
; Mappings for class pop-up		
;
		ENTRY	Settings
Settings	DC.W	midOwner,midOwner,midOwner		; private (2)
		DC.W	midEveryone,midEveryone,midEveryone	; public (3)
		DC.W	midOwner,midOwner,midEveryone		; drop box (4)
		DC.W	midEveryone,midEveryone,midOwner	; bulletin board (5)
		
		ENTRY	IDs
IDs		DC.W	idSeeFolders,idSeeFiles,idMakeChanges,idClass		

		ENTRY	CalculateIcon
CalculateIcon	DC.W	$8000			; icon's type
		DC.W	6*15			; icon's size
		DC.W	15			; icon's height
		DC.W	6*2			; icon's width
		DC.B	$00,$00,$00,$00,$00,$00	; ¥¥¥¥¥¥¥¥¥¥¥¥ icon's image
		DC.B	$0F,$FF,$FF,$FF,$FF,$F0	; ¥          ¥
		DC.B	$0F,$00,$00,$00,$00,$F0	; ¥ ¥¥¥¥¥¥¥¥Ê¥
		DC.B	$0F,$0E,$EE,$EE,$E0,$F0	; ¥ ¥      ¥Ê¥
		DC.B	$0F,$00,$00,$00,$00,$F0	; ¥ ¥¥¥¥¥¥¥¥ ¥
		DC.B	$0F,$FF,$FF,$FF,$FF,$F0	; ¥          ¥
		DC.B	$0F,$00,$F0,$0F,$44,$F0	; ¥ ¥¥ ¥¥ ¥¥ ¥
		DC.B	$0F,$FF,$FF,$FF,$FF,$F0	; ¥         Ê¥
		DC.B	$0F,$00,$F0,$0F,$00,$F0 ; ¥ ¥¥ ¥¥ ¥¥ ¥
		DC.B	$0F,$FF,$FF,$FF,$FF,$F0	; ¥         Ê¥
		DC.B	$0F,$00,$F0,$0F,$00,$F0 ; ¥ ¥¥ ¥¥ ¥¥ ¥
		DC.B	$0F,$FF,$FF,$FF,$FF,$F0	; ¥         Ê¥
		DC.B	$0F,$00,$F0,$0F,$00,$F0 ; ¥ ¥¥ ¥¥ ¥¥ ¥
		DC.B	$0F,$FF,$FF,$FF,$FF,$F0	; ¥         Ê¥
		DC.B	$00,$00,$00,$00,$00,$00	; ¥¥¥¥¥¥¥¥¥¥¥¥
		DC.B	$FF,$FF,$FF,$FF,$FF,$FF	; icon's mask
		DC.B	$FF,$FF,$FF,$FF,$FF,$FF
		DC.B	$FF,$FF,$FF,$FF,$FF,$FF
		DC.B	$FF,$FF,$FF,$FF,$FF,$FF
		DC.B	$FF,$FF,$FF,$FF,$FF,$FF
		DC.B	$FF,$FF,$FF,$FF,$FF,$FF
		DC.B	$FF,$FF,$FF,$FF,$FF,$FF
		DC.B	$FF,$FF,$FF,$FF,$FF,$FF
		DC.B	$FF,$FF,$FF,$FF,$FF,$FF
		DC.B	$FF,$FF,$FF,$FF,$FF,$FF
		DC.B	$FF,$FF,$FF,$FF,$FF,$FF
		DC.B	$FF,$FF,$FF,$FF,$FF,$FF
		DC.B	$FF,$FF,$FF,$FF,$FF,$FF
		DC.B	$FF,$FF,$FF,$FF,$FF,$FF
		DC.B	$FF,$FF,$FF,$FF,$FF,$FF
		ENDP

*===============================================*
*						*
* Dynamically calculate text rects from strings *
*						*
*===============================================*

CalculateRects	PROC

		IMPORT	InfoWinParam:ParamList
		
		IMPORT	RealNameField:StatTextTemplate
		IMPORT	CopyrightField:StatTextTemplate
		IMPORT	KindText:StatTextTemplate
		IMPORT	SizeText:StatTextTemplate
		IMPORT	ContentText:StatTextTemplate
		IMPORT	CreateText:StatTextTemplate
		IMPORT	ModifyText:StatTextTemplate
		IMPORT	KindField:StatTextTemplate
		IMPORT	SizeField:StatTextTemplate
		IMPORT	ContentField:StatTextTemplate
		IMPORT	CreateField:StatTextTemplate
		IMPORT	ModifyField:StatTextTemplate
		IMPORT	NameField:StatTextTemplate
		
		IMPORT	PathText:StatTextTemplate
		IMPORT	DeviceText:StatTextTemplate
		IMPORT	ServerText:StatTextTemplate
		IMPORT	ZoneText:StatTextTemplate
		IMPORT	PathField:StatTextTemplate
		IMPORT	DeviceField:StatTextTemplate
		IMPORT	ServerField:StatTextTemplate
		IMPORT	ZoneField:StatTextTemplate

		IMPORT	InactiveText:StatTextTemplate
		IMPORT	LockedText:StatTextTemplate
		IMPORT	OwnerText:StatTextTemplate
		IMPORT	GroupText:StatTextTemplate
		IMPORT	OwnerField:StatTextTemplate
		IMPORT	GroupField:StatTextTemplate
		
		IMPORT	OwnerEditLine:LineEditTemplate
		IMPORT	GroupEditLine:LineEditTemplate
		
		IMPORT	PrivilegeText:StatTextTemplate
		IMPORT	PrivilegeField:StatTextTemplate

		IMPORT	infoWindCount
		
		IMPORT	strOwner			; in string segment
		IMPORT	strGroup
		IMPORT	strLocked
		IMPORT	strInactive
		IMPORT	strKind
		IMPORT	strSize
		IMPORT	strContents
		IMPORT	strVersion
		IMPORT	strCreated
		IMPORT	strModified
		IMPORT	strPath
		IMPORT	strDevice
		IMPORT	strServer
		IMPORT	strZone
		
		lda	>infoWindCount
		inc	a
		sta	>infoWindCount
		
		dec	a
		tax
		lsr	a				;divide # of windows by 8
		lsr	a
		lsr	a
		pha
		txa
		and	#7
		clc
		adc	1,s
		plx
		inc	a
		
		asl	a
		asl	a
		asl	a				;times 8 pixels
		tax
		clc
		adc	#infoY1
		sta	InfoWinParam.wPosition.top
		txa
		clc
		adc	#infoY2
		sta	InfoWinParam.wPosition.bottom

		lda	>InfoWindCount	
		dec	a
		and	#7
		inc	a
		asl	a
		asl	a
		asl	a
		asl	a				;times 16 pixels
		tax
		clc
		adc	#infoX1
		sta	InfoWinParam.wPosition.left
		txa
		clc
		adc	#infoX2
		sta	InfoWinParam.wPosition.right

		lda	KindText.Rect+x1	; are static text templates done ?
		beq	initRects
		brl	exit			; yes, so we're done

;--- 1st set up edit line title rects ----------

initRects	stz	Width

		pha
		PushLong #strOwner
		_StringWidth
		PullWord Width1
		sta	Width
		
		pha
		PushLong #strGroup
		_StringWidth
		PullWord Width2
		cmp	Width
		bcc	cont2
		sta	Width
		
cont2		lda	Width
		clc
		adc	#cX1+sp			; right side + space
		tax				; x <-- end of title text
		adc	#16
		sta	OwnerField.Rect+x1
		sta	GroupField.Rect+x1

		stx	OwnerText.Rect+x2
		stx	GroupText.Rect+x2
		
		txa
		sec
		sbc	Width1
		sta	OwnerText.Rect+x1
		txa
		sbc	Width2
		sta	GroupText.Rect+x1

		txa
		clc
		adc	#10
		sta	OwnerEditLine.Rect+x1
		sta	GroupEditLine.Rect+x1
		adc	#292
		sta	OwnerEditLine.Rect+x2
		sta	GroupEditLine.Rect+x2

;----  part 2  ------------------------------
		stz	Width

		pha
		PushLong #String1
		_StringWidth
		PullWord Width1
		sta	Width
		
		pha
		PushLong #String2
		_StringWidth
		PullWord Width2
		cmp	Width
		bcc	cont3
		sta	Width
		
cont3		pha
		PushLong #String3
		_StringWidth
		PullWord Width3
		cmp	Width
		bcc	cont4
		sta	Width
		
cont4		lda	Width
		clc
		adc	#cX1+pX			; right side + offset
		sta	column			; left justify column
		sec
		sbc	Width1
		sta	PopRect1+x1
		lda	Column
		sec
		sbc	Width2
		sta	PopRect2+x1
		lda	Column
		sec
		sbc	Width3
		sta	PopRect3+x1

;--- now set rects for 'Locked' and 'Inactive'
;
; we calculate these rects since they belong
; to a checkbox. Clicking inside these rects
; will set the checkbox.

		pha
		PushLong #strLocked
		_StringWidth
		lda	#cX2-48
		sec
		sbc	1,s
		sta	LockedText.Rect+x1
		dec	a
		dec	a
		dec	a
		dec	a
		sta	NameField.Rect+x2	; clip name field so they won't clash !

		PushLong #strInactive
		_StringWidth
		lda	#cX2-48
		sec
		sbc	1,s
		sta	InactiveText.Rect+x1
		pla

;--- now set rects for General card text --------
;
; we calculate these rects so they will be
; as close to the left side as possible, 
; even after being localized.

		pha
		PushLong #strKind
		_StringWidth
		PullWord Width1
		sta	Width			; width has maximum string width
		pha
		PushLong #strSize
		_StringWidth
		PullWord Width2
		cmp	Width
		bcc	cont5
		sta	Width
cont5		pha
		PushLong #strContents
		_StringWidth
		PullWord Width3
		cmp	Width
		bcc	cont6
		sta	Width
cont6		pha
		PushLong #strCreated
		_StringWidth
		PullWord Width4
		cmp	Width
		bcc	cont7
		sta	Width
cont7		pha
		PushLong #strModified
		_StringWidth
		PullWord Width5
		cmp	Width
		bcc	cont8
		sta	Width

cont8		lda	#cX1+sp			; start of longest text title
		clc
		adc	Width
		tax				; x <-- end of text titles
		adc	#16
		tay				; y <-- start of text fields
		
		stx	KindText.Rect+x2
		stx	SizeText.Rect+x2
		stx	ContentText.Rect+x2
		stx	CreateText.Rect+x2
		stx	ModifyText.Rect+x2

		sty	RealNameField.Rect+x1
		sty	KindField.Rect+x1
		sty	SizeField.Rect+x1
		sty	CopyrightField.Rect+x1
		sty	ContentField.Rect+x1
		sty	CreateField.Rect+x1
		sty	ModifyField.Rect+x1
		sty	NameField.Rect+x1

		txa				; set start of text titles
		sec
		sbc	Width1
		sta	KindText.Rect+x1
		txa
		sbc	Width2
		sta	SizeText.Rect+x1
		txa
		sbc	Width3
		sta	ContentText.Rect+x1
		txa
		sbc	Width4
		sta	CreateText.Rect+x1
		txa
		sbc	Width5
		sta	ModifyText.Rect+x1

;--- now set rects for Where card text --------

		pha
		PushLong #strPath
		_StringWidth
		PullWord Width1
		sta	Width
		pha
		PushLong #strDevice
		_StringWidth
		PullWord Width2
		cmp	Width
		bcc	cont9_2
		sta	Width
cont9_2		pha
		PushLong #strServer
		_StringWidth
		PullWord Width3
		cmp	Width
		bcc	cont10
		sta	Width
cont10		pha
		PushLong #strZone
		_StringWidth
		PullWord Width4
		cmp	Width
		bcc	cont11
		sta	Width

cont11		lda	#cX1+sp			; start of longest text title
		clc
		adc	Width
		tax				; x <-- end of text titles
		adc	#16
		tay				; y <-- start of text fields

		stx	PathText.Rect+x2
		stx	DeviceText.Rect+x2
		stx	ServerText.Rect+x2
		stx	ZoneText.Rect+x2

		sty	PathField.Rect+x1
		sty	DeviceField.Rect+x1
		sty	ServerField.Rect+x1
		sty	ZoneField.Rect+x1

		txa
		sec
		sbc	Width1
		sta	PathText.Rect+x1
		txa
		sbc	Width2
		sta	DeviceText.Rect+x1
		txa
		sbc	Width3
		sta	ServerText.Rect+x1
		txa
		sbc	Width4
		sta	ZoneText.Rect+x1

;--- now set rects for Access card text --------

		pha				; space for width
		PushLong #strPrivileges
		_StringWidth
		pla
		clc
		adc	#cX1+sp
		sta	PrivilegeText.Rect+x2
		adc	#16
		sta	PrivilegeField.Rect+x1

exit		rts

Column		DC.W	0
Width		DC.W	0		
Width1		DC.W	0		
Width2		DC.W	0		
Width3		DC.W	0		
Width4		DC.W	0		
Width5		DC.W	0

		STRING	PASCAL
String1		DC.B	'See Folders:'
String2		DC.B	'See Files:'
String3		DC.B	'Make Changes:'


		ENDP
		
*===============================================*
*	Draw Contents of an Info Window		*
*	(Called by Window Manager)		*
*						*
* IN:	none					*
* OUT:	none					*
*===============================================*

DrawInfoWindow	PROCNAME

		IMPORT	InfoWinParam:ParamList
		IMPORT	TempRect:Rect

		phb
		phk
		plb


		PushWord #4
		PushWord #tH+2
		_SetPenSize
		
		PushLong #Pattern3
		_SetPenPat
		
		lda	#-(tH)
		sta	TempRect.top
		lda	InfoWinParam.wPosition.bottom
		sec
		sbc	InfoWinParam.wPosition.top
		sta	TempRect.bottom
		lda	InfoWinParam.wPosition.right
		sec
		sbc	InfoWinParam.wPosition.left
		sta	TempRect.right
		PushLong #TempRect
		_FrameRect
	
		PushLong #BlackPattern
		_SetPenPat

		pha
		pha
		_GetPort
		_DrawControls

		plb
		rtl
		ENDP

*===============================================*
*	    Add New Text to a Control		*
*						*
* IN:	control's ID (a-reg)			*
*	InfoBlock offset (y-reg)		*
*	infoBlkPtr (direct page)		*
*	infoWinPtr (direct page)		*
*						*
* OUT:	none					*
*===============================================*

NewTextField	PROC

		phy				; save offset
		tax				; save id
		
		pha				; space for handle
		pha
		PushZLong <infoWinPtr
		PushWord #0			; ID (hi word)
		phx				; ID (lo word)
		_GetCtlHandleFromID
		PullLong theHandle
		
		lda	1,s			; get offset to text
		tay
		lda	[<infoBlkPtr],y
		pha				; new text size
		PushLong theHandle
		_SetCtlValue

		ldx	<InfoBlkPtr+2
		pla				; get offset to text
		inc	a			; skip over size word
		inc	a
		clc
		adc	<InfoBlkPtr
		bcc	ok
		inx
ok		phx				; ptr to new text
		pha
		PushLong theHandle
		_SetCtlTitle		
		rts
		
		ENDP

*===============================================*
* Update an INFO window's info block based on	*
* the data in the IconObject record.		*
*						*
* IN:	infoWinPtr, iconObjPtr & infoBlkPtr	*
*	iconPathPtr (a,x-reg)			*
*						*
* OUT:	none					*
*===============================================*

UpdateInfoBlk	PROC
		
		IMPORT	SetInfoTitle
		IMPORT	SetInfoDates
		IMPORT	SetInfoAccess
		IMPORT	SetInfoSize
		IMPORT	SetInfoContent
		IMPORT	SetInfoKind
		IMPORT	SetInfoWhere
		IMPORT	SetInfoDevice
		IMPORT	SetInfoComment

		jsr	SetInfoWhere		; update path field (uses x,a-reg)
		jsr	SetInfoTitle		; update window's title
		jsr	SetInfoDates		; update date fields
		jsr	SetInfoAccess		; update access priv. names
		jsr	SetInfoSize		; update size field
		jsr	SetInfoContent		; update content field
		jsr	SetInfoKind		; update kind field
		jsr	SetInfoComment		; update comment field

;--- update lock control

		lda	IconType
		and	#itTrash
		beq	@ok
		brl	exit
@ok	

		lda	IconType		;do allow locking local volumes
		and	#itVolume
		beq	@notVolume

		lda	IconType		;no, do not allow locking network volumes
		and	#itNetwork
		beq	@notServer
		rts	

@goExit		brl	exit
@notServer	ldy	#IconObject.devNum	;fill in the device number
		lda	[<iconObjPtr],y
		sta	GetLockParms+2
		sta	GetLockDevice+2

		_DInfoGS GetLockDevice
		bcs	@goExit
		
		lda	GetLockDevice+$14	;is it a hard disk?
		cmp	#5
		bne	@goExit
		
		stz	GetControlList
		
		_DStatusGS GetLockParms		;then again, if it doesn't support this call,
		bcs	@goExit			;then screw 'em...
		
		lda	GetControlList
		and	#$0020
		eor	#$0020			;flip just that bit
		beq	setLock
		lda	#1
		bra	setLock
		
@notVolume	ldy	#IconObject.flag	; get icon's locked bit
		lda	[<iconObjPtr],y
		and	#icLocked
		beq	setLock
		lda	#1
setLock		pha				; new value
		pha				; space for handle
		pha
		PushZLong <infoWinPtr
		PushLong #idLocked		; control's ID
		_GetCtlHandleFromID
		_SetCtlValue			; set control's value
		
;--- update inactive control		

		lda	IconType
		and	#itDriver
		beq	exit
		
		ldy	#IconObject.fileInfo	; get icon's inactive bit
		lda	[<iconObjPtr],y
		and	#$8000
		beq	setIt
		lda	#1
setIt		pha				; new value
		pha				; space for handle
		pha
		PushZLong <infoWinPtr
		PushLong #idInactive		; control's ID
		_GetCtlHandleFromID
		_SetCtlValue			; set contol's value

exit		rts

		ENDP
		
*===============================================*
*	    Update an INFO window		*
*						*
* INPUT:	--- On the Stack ---		*
*		iconObjPtr (Long)		*
*		iconPathPtr (Long)		*
*		retAddr (3 bytes)		*
*	SP--->					*
*						*
* OUTPUT:	--- On the Stack ---		*	
*		retAddr (3 bytes)		*
*	 SP--->					*
*						*
* Does not change direct page or use any Global	*
* variables.					*
*===============================================*

_UpdateInfoWin	PROC	EXPORT

		DSECT	workSpace
retAddr		block	3	
iconPathPtr	long
iconObjHand	long

parmSize	SET	8

		IMPORT	HandleToPointer
		IMPORT	UnLockHandle
		IMPORT	GetIconType
*===============================================*
			
		sec
		tsc				; get work space
		sbc	#workSize
		tcs
		
		phb
		phk
		plb
		phd
		tcd				; set DP to stack

		pha
		pha
		PushZLong <iconObjHand		; convert handle to pointer
		jsl	HandleToPointer
		PullLong <iconObjPtr

		jsr	GetIconType
		
		pha				; space for pointer
		pha
		PushLong [<iconObjPtr],IconObject.infoWin
		_GetWRefCon
		PullLong <infoBlkPtr
		
		ldy	#IconObject.infoWin
		lda	[<iconObjPtr],y
		sta	<infoWinPtr
		iny
		iny
		lda	[<iconObjPtr],y
		sta	<infoWinPtr+2
		
		lda	<iconPathPtr
		ldx	<iconPathPtr+2
		jsr	UpdateInfoBlk
		
		PushZLong <iconObjHand
		jsl	UnLockHandle

		pld
		plb
		
		lda	retAddr+1,s
		sta	retAddr+ParmSize+1,s
		lda	retAddr,s		;clean up stack
		sta	retAddr+parmSize,s
		tsa
		clc
		adc	#parmSize+workSize
		tas
		rtl
		
		ENDP
		
*===============================================*
*	    Create a new INFO window		*
*						*
* INPUT:	--- On the Stack ---		*
*		iconObjHand (Long)		*
*		iconPathPtr (Long)		*
*		retAddr (3 bytes)		*
*	SP--->					*
*						*
* OUTPUT:	--- On the Stack ---		*	
*		retAddr (3 bytes)		*
*	 SP--->					*
* Carry Flag set if error in creating window	*
* Does not change direct page or use any Global	*
* variables.					*
*===============================================*

NewInfoWindow	PROC	EXPORT


		DSECT	workSpace
retAddr		block	3	
iconPathPtr	long
iconObjHand	long

parmSize	SET	8

		IMPORT	PathSubName
		IMPORT	GetPrivileges
		IMPORT	PStringCat
		IMPORT	PStringCopy
		IMPORT	getFileInfo
		IMPORT	doAlertWindow
		IMPORT	C1_path
		IMPORT	arrowCursor
		IMPORT	saveCursor
		IMPORT	restoreCursor
		IMPORT	insertItemRef
		IMPORT	wind_ref
		IMPORT	UnLockHandle
		IMPORT	HandleToPointer
		IMPORT	NewHandle
		IMPORT	InfoWinParam:ParamList
		IMPORT	InfoCard:CardTemplate
		IMPORT	GetIconType
		IMPORT	addWindow2Menu
		IMPORT	PathGetRoot
		IMPORT	AddBundle2Desktop
		IMPORT	WStringCopy
		IMPORT	PathAddName
		IMPORT	BootFST
		IMPORT	IconsName
		IMPORT	DesktopName
		IMPORT	c1_bootname
		IMPORT	IconHandleArray
		IMPORT	IconOffsetArray
		IMPORT	IsReadOnly
		IMPORT	CloseThisWindow		;in Util.aii - 27-Jan-93 JCM
		IMPORT	SCSIPriority
		IMPORT	RealNameField:StatTextTemplate	;24-Mar-93 JCM
		
*===============================================*
		
		sec
		tsc				; get work space
		sbc	#workSize
		tcs

		phb
		phk
		plb
		phd
		tcd				; set DP to stack


		lda	#$FFFF
		sta	SCSIPriority		;17-Feb-93 JCM - illegal SCSI priority (must be 0-7)
		sta	useLockControls
		
;
; Mensch 5/12/89 (fixing BRC #48929)
; Preload the icon button to avoid UGLY control manager error message
; if the resource is not on line.
;
;
; This code can be called before bringing up any window that uses an Icon Button
; It will return with the carry SET if no icon button can be loaded and CLEAR
; if Icon button code can be loaded.
;
@tryAgain	
		pha
		pha
		PushZLong <iconObjHand
		jsl	HandleToPointer
		PullLong <iconObjPtr		

		jsr	GetIconType
		jsr	CalculateRects
		
		pha
		pha
		lda	#infoBlock.windText.path
		clc
		adc	[<iconPathPtr]
		clc
		adc	#8+2			;used to be +8, and 2 extra for length word
		pha
		jsl	NewHandle		;simply ask to get the same number of
						;bytes as our source handle
		
;--- added check for NewHandle failure DJB 06/08/89

		pla				; get handle, check for zero
		plx
		bcs	@exit			; memory allocation error !!
		bne	ok
		cmp	#0
		bne	ok
@exit		brl     bogus			; zero ... forget about icon info, babe
;-----------------------------------------------

ok		pha				; space for pointer
		pha
		phx				; handle MSW
		stx	infoHandle+2
		pha				; handle LSW
		sta	infoHandle
		jsl	HandleToPointer
		pla
		sta	InfoWinParam.wRefCon	; refCon = window's info block
		sta	<infoBlkPtr
		pla
		sta	InfoWinParam.wRefCon+2
		sta	<infoBlkPtr+2

		lda	<iconObjHand		; remember handle of icon
		ldy	#InfoBlock.windIcons
		sta	[<infoBlkPtr],y
		ldy	#InfoBlock.windIc
		sta	[<infoBlkPtr],y
		
		lda	<iconObjHand+2
		ldy	#InfoBlock.windIcons+2
		sta	[<infoBlkPtr],y
		ldy	#InfoBlock.windIc+2
		sta	[<infoBlkPtr],y

		lda	#InfoWindID		; set window's ID (for closing)
		ldy	#InfoBlock.windID
		sta	[<InfoBlkPtr],y
		
		ldy	#infoBlock.windMenuItem ;zero out the menu item (not in menu yet)
		lda	#0
		sta	[<infoBlkPtr],y

		jsr	MoveIconToHandle
		
		pha				; space for handle
		pha
		PushLong #InfoWinParam
		_NewWindow			; create window
		PullLong <infoWinPtr
		bcc	@newWindowOK
		
		lda	<InfoWinPtr+1		;did we make a window?
		beq	@noClose		;if no, then nothing to close
	
		lda	<InfoWinPtr
		ldx	<InfoWinPtr+2
		jsl	CloseThisWindow
		
@noClose	pushlong infoHandle
		jsl DisposeHandleGlue
		
		pushlong iconButton+$1a
		jsl DisposeHandleGlue
		brl	bogus
		
@newWindowOK	
		
;---- Set up General card ----

		ldy	#IconObject.fileType
		lda	 [<iconObjPtr],y
		cmp	#$FFF9			; is icon a 5.25 floppy drive?
		beq	is525Drive

		lda	IconType		; is icon a volume ?
		and	#itVolume
		bne	isVolume
		lda	IconType		; is icon a folder ?
		and	#itFolder
		bne	isFolder
		lda	IconType		; is icon a driver ?
		and	#itDriver
		bne	isDriver
		lda	IconType		; is icon the Trash ?
		and	#itTrash
		bne	isTrash

		lda	#GeneralCard
		bra	setGeneral
isTrash		lda	#TrashGenCard
		bra	setGeneral		
isDriver	lda	#DrvGeneralCard
		bra	setGeneral		
isFolder	lda	#FoldGeneralCard
		bra	setGeneral


;
; it's a volume, so see if we can make dcontrol calls to this partition, and if we can, use
; a different card with a lock icon on it
;
isVolume	ldy	#IconObject.devNum
		lda	[<iconObjPtr],y
		sta	GetLockParms+2
		sta	GetLockDevice+2

*** Added - 17-Feb-93 JCM - Let's attempt to get the SCSI ID of this device. If we get an error, we
***			    just won't show the ID at all on the card.
		
		sta	GetSCSITargetPriority+2	;17-Feb-93 JCM

		_DStatusGS GetSCSITargetPriority ;try to get the SCSI ID

*** End - 17-Feb-93 JCM

		_DInfoGS GetLockDevice
		bcs	@oldVolumeCard
		
		lda	GetLockDevice+$14
		cmp	#5
		bne	@oldVolumeCard

		stz	GetControlList
		
		_DStatusGS GetLockParms	;see if we can get the control parms
		bcs	@oldVolumeCard
		
		lda	#NewVolumeCard
		bra	setGeneral

@oldVolumeCard	lda	#VolGeneralCard
		bra	setGeneral
is525Drive	lda	#DriveGenCard
setGeneral	ldy	#InfoBlock.cardTable+0
		sta	[<InfoBlkPtr],y
		iny
		iny
		lda	#GeneralCard>>16
		sta	[<InfoBlkPtr],y

;---- Set up Where card ----

		ldy	#IconObject.fileType
		lda	 [<iconObjPtr],y
		cmp	#$FFF9			; is icon a 5.25 floppy drive?
		beq	isTrash2

		lda	IconType
		and	#itTrash
		bne	isTrash2
		lda	IconType
		and	#itNetwork
		bne	isNetwork
		lda	#WhereCard
		bra	setWhere		
isTrash2	lda	#1
		sta	InfoCard.count		; set card count
		stz	<tempA
	
		clc				; set card table reference
		lda	<InfoBlkPtr
		adc	#InfoBlock.cardTable
		sta	InfoCard.cardRef
		lda	<InfoBlkPtr+2
		adc	#0
		sta	InfoCard.cardRef+2
		brl	doneWithFork
		
isNetwork	lda	#NetWhereCard
setWhere	ldy	#InfoBlock.cardTable+4
		sta	[<InfoBlkPtr],y
		iny
		iny
		lda	#WhereCard>>16
		sta	[<InfoBlkPtr],y

;
; ---- Set up Comment card ----
;
; if we get this far, we always have a comment card (ie, not for trash, but we do for
; everything else (except local volumes and folders)
;
		ldy	#InfoBlock.cardTable+8
		lda	#CommentCard
		sta	[<InfoBlkPtr],y
		iny
		iny
		lda	#CommentCard>>16
		sta	[<InfoBlkPtr],y

;
; ---- Set up Access card ----
;	
		stz	<tempA
		lda	#^NetworkControls
		sta	<tempA+2

		lda	IconType		;is icon from network?
		and	#itNetwork
		bne	testOwner		;yes, so folders and volume can have
						;comments
		
		lda	IconType		;is icon a (local) volume/folder?
		and	#itFolder+itVolume
		bne	isLocal			;yes, so no comment or access cards
		
set3Cards	lda	#LocAccessCard		;must be a local file
		ldx	#3
		bra	setAccess
		
testOwner	lda	IconType		;is it a network volume or folder?
		and	#itFolder+itVolume
		beq	set3Cards		;nope, then we don't want an access card
		
		lda	IconType		;is icon an owner?
		and	#itOwner
		bne	isOwner			;yes
		lda	#NetWorkControls
		sta	<tempA
		lda	#NetAccessCard
		ldx	#4
		bra	setAccess		
isOwner		lda	#OwnerControls
		sta	<tempA
		lda	#NetAccessCard2
		ldx	#4
		bra	setAccess		
isLocal		lda	#LocAccessCard
		ldx	#2			; no comments/access for local volumes/folders
setAccess	stx	InfoCard.count		; set card count
		ldy	#InfoBlock.cardTable+12
		sta	[<InfoBlkPtr],y
		iny
		iny
		lda	#NetAccessCard>>16
		sta	[<InfoBlkPtr],y

setCardRef	clc				; set card table reference
		lda	<InfoBlkPtr
		adc	#InfoBlock.cardTable
		sta	InfoCard.cardRef
		lda	<InfoBlkPtr+2
		adc	#0
		sta	InfoCard.cardRef+2

;
; the following was conceived after I realized that the privileges for a file weren't
; really getting saved in the icon object -- so, we need to get the folder which the
; file resides and see if we can "make changes" to IT instead
;	
		lda	IconType
		and	#itNetwork
		beq	@dontCheckPrivs
		
		lda	[<iconPathPtr]
		pha
		
		pushZLong <iconPathPtr
		jsl	pathSubName
		
		pha				;space for privileges
		pha
		pushlong #0			;don't want owner
		pushlong #0			;don't want group
		pushZlong <iconPathPtr
		jsl	GetPrivileges
		pla
		and	#icMakeChanges		;only want "make changes" bit from
		asl	a
		asl	a
		asl	a
		asl	a			;move to high nybble
		ldy	#IconObject.flag+2	;user summary byte (bit 2, which is also
		ora	[<iconObjPtr],y		;the same as icMakeChanges)
		
		ldy	#InfoBlock.windAccess
		sta	[<InfoBlkPtr],y
		
		pla				;extra user privs
		pla				;restore our pathname
		sta	[<iconPathPtr]
@dontCheckPrivs

		lda	LockedText+18
		and	#$00FF
		sta	LockedText+18
		sta	InactiveText+18
		
		lda	CheckBox1+18
		and	#$00FF
		sta	CheckBox1+18
		sta	CheckBox2+18
		
		ldy	#IconObject.fst
		lda	[<iconObjPtr],y
		cmp	#6			;HFSFST
		bne	@checkReadOnly
		
		ldy	#IconObject.filetype
		lda	[<iconObjPtr],y
		cmp	#$000F
		beq	@noLock
		
@checkReadOnly	ldy	#IconObject.fst
		lda	[<iconObjPtr],y
		tay
		jsl	IsReadOnly
		bcc	@checkMakeChanges
		
@noLock		stz	useLockControls		;nah, don't even display the lock
		bra	@forkStuff

@checkMakeChanges
		lda	IconType
		and	#itNetwork
		beq	@forkStuff
		
		ldy	#InfoBlock.windAccess
		lda	[<InfoBlkPtr],y
		and	#icMakeChanges
		bne	@forkStuff
		
		lda	LockedText+18
		ora	#InactiveHilite<<8
		sta	LockedText+18
		sta	InactiveText+18
		
		lda	CheckBox1+18
		ora	#InactiveHilite<<8
		sta	CheckBox1+18
		sta	CheckBox2+18

;
; if the icon in question has a fork, try to get the comment out of it -- if it doesn't
; have a fork, then just add the comment
;
; if it's a mac comment or if there's some kind of crap in the resource fork, then
; we set the number of cards to 2 if we're not on the network (and the windDirty
; field will be set to 5 indicating that it has a fork, but the high bit won't be set
; indicating that it's not a GS fork).
;
; Also, if it's a $FF or $F9 (GSOS System) file then we don't even allow a comment card
; because someone could really screw up the system by allowing comments on those
; types of files. - 21-Mar-93 JCM - We now allow the comment card on these files if the
; file is already extended. This lets files like Sys.Resources show their version numbers
; and other useful stuff.
;
@forkStuff
		ldy	#InfoBlock.windDirty
		lda	#0
		sta	[<InfoBlkPtr],y
		
		ldy	#iconObject.filetype	;is it a SYS file?
		lda	[<iconObjPtr],y
		cmp	#$00bd			;don't let them have a comment on FSTs
		beq	@startGSOS
		cmp	#$00f9			;don't let them have a comment on
		beq	@startGSOS		;start.gs.os files
		cmp	#$00ff
		bne	@notSYSfile

*** Added - 21-Mar-93 JCM - We'll allow a comment card with these special types if the file is already
***			    extended (as is the case with Sys.Resources).

@startGSOS	ldy	#iconObject.extended	;is this file already extended (like Sys.Resources?)
		lda	[<iconObjPtr],y
		bmi	@itsExtended		; absomolutelyish!
		
*** End - 21-Mar-93 JCM
		
		lda	IconType		;get 3 cards if networked SYS file
		and	#itNetwork
		beq	@goFromLocal
		brl	@fromNetwork		;only get 2 cards if local SYS file
@goFromLocal	brl	@fromLocal
@notSYSfile

		ldy	#IconObject.extended	;is it an extended file?
		lda	[<iconObjPtr],y
		bpl	@noFork		

@itsExtended 	ldy	#InfoBlock.windDirty	;say it's an extended file
		lda	#5
		sta	[<InfoBlkPtr],y
		bra	@hasFork

@noFork		ldy	#IconObject.fst		;is it a file on a read only file system without a
		lda	[<iconObjPtr],y		;resource fork?
		tay
		jsl	IsReadOnly
		bcs	@goFromLocal
			
		lda	IconType
		and	#itNetwork
		beq	@notFromNetwork
		brl	@fromNetwork
		
;
; If we end up down here, we're going to give them a comment card with an <Add Comment>
; button...
;
@notFromNetwork	pha				;space for handle
		pha
		PushZLong <infoWinPtr
		pea	singlePtr
		PushLong #AddCommentButton
		_NewControl2			;add common controls
		pla				;ignore handle
		pla
		brl	doneWithFork

@hasFork	ldy	#IconObject.filetype		
		lda	[<iconObjPtr],y		
		cmp	#$B3
		beq	@noAddToDesktop
		
		pushlong #C1_Path
		pushZLong <iconPathPtr		;put the root of iconPathPtr in
		jsl	PathGetRoot		;C1_Path

		lda	IconType
		and	#itNetwork
		beq	@addIconsName
		
		pushlong #c1_bootname
		pushlong #c1_path
		jsl	WStringCopy

		lda	>BootFST
		cmp	#$0D
		bne	@addIconsName
		
		lda	#1
		sta	>c1_path
		lda	#'@'
		sta	>c1_path+2
		bra	@addDesktop

@addIconsName	pushlong #IconsName
		pushlong #c1_path
		jsl	PathAddName
		
@addDesktop	pushlong #DesktopName
		pushlong #c1_path
		jsl	PathAddName
		
		pha
		pea	$8000			;update if needed
		pushlong #1			;use rBundle #1
		pushlong #c1_path		;update this desktop file
		pushZLong <iconPathPtr
		jsl	AddBundle2Desktop
		pla
		
@noAddToDesktop	pha
		pea	$8000			;as allowed, don't preload anything!
		pushlong #0			;res map addr (NIL)
		pushZLong <iconPathPtr
		_OpenResourceFile
		plx
		stx	resFileID
		bcc	@goodFork

		cmp	#$46			;file not found
		beq	@lostTheDisk

		lda	IconType		;last chance, see if it's from the
		and	#itNetwork		;network (in which case, they'll get
		beq	@fromLocal
		brl	@LimitTo199		;get a comment)
		
@fromLocal	ldx	#2			;c'este la vie, mac files don't get
		stx	InfoCard.count		;comment cards.. sorry guys
		brl	doneWithFork
				

@lostTheDisk	pushlong #C1_Path
		pushZLong <iconPathPtr		;put the root of iconPathPtr in
		jsl	PathGetRoot		;C1_Path
		
		lda	#rasInsertDiskOrCancel
		jsl	doAlertWindow
		beq	@lostDisk
		brl	@hasFork
@lostDisk

		pushlong IconButton+$1a
		jsl DisposeHandleGlue
		
		pushlong infoHandle
		jsl DisposeHandleGlue
		
		lda	<infoWinPtr
		ldx	<infoWinPtr+2
		jsl	CloseThisWindow

		brl	bogus		

;
; cool, we actually have an online resource file which no one screwed up opening
;
@goodFork	pha
		pea	1		;search only this file
		_SetResourceFileDepth
		pla
		sta	oldDepth

		ldy	#InfoBlock.windText.verName
		sta	[<InfoBlkPtr],y

		ldy	#InfoBlock.windText.verCopyright
		sta	[<InfoBlkPtr],y

		pha
		pha
		pea	rVersion	;$8029
		pushlong #1
		_LoadResource
		pla
		sta	<tempE
		pla
		sta	<tempE+2
		
		bcc	@haveAVersion
		brl	@noVersion
@haveAVersion

		lda	[<tempE]
		tax
		ldy	#2
		lda	[<tempE],y
		sta	<tempE+2
		stx	<tempE

;
; convert the GS style version longword into a pascal string and modify the
; stat text control to use it
;

		pea	0
		ldy	#2
		lda	[<tempE],y		;32 bit long version
		pha
		lda	[<tempE]
		pha
		pushlong #versionNumber+1	;address of version string (out)
		_VersionString

		lda	versionNumber		;now, add a space to the beginning of
		xba				;the version number
		and	#$00ff
		inc	a
		ora	#$2000
		sta	versionNumber
		
;
; move the product's name string into the space for the version stuff
;
		ldy	#6
		lda	[<tempE],y
		tax
		and	#$00ff
		cmp	#40
		blt	@goodProductName
		txa
		and	#$ff00
		ora	#40			;pin it at 40 characters
		sta	[<tempE],y
@goodProductName


		lda	<tempE			;source pstring
		clc
		adc	#6
		tax
		lda	<tempE+2
		adc	#0
		pha
		phx
		lda	<infoBlkPtr		;destination pstring
		clc
		adc	#InfoBlock.windText.verName
		tax
		inc	a
		sta	RealNameField+$1A
		lda	<infoBlkPtr+2
		adc	#0
		sta	RealNameField+$1A+2
		pha
		phx
		jsl	PStringCopy
		
		pushlong #versionNumber
		lda	<infoBlkPtr		;destination pstring
		clc
		adc	#InfoBlock.windText.verName
		tax
		lda	<infoBlkPtr+2
		adc	#0
		pha
		phx
		jsl	PStringCat		;concatenate them together

		ldy	#InfoBlock.windText.verName
		lda	[<infoBlkPtr],y
		and	#$00ff			;how long?
		sta	RealNameField+$1E

;
; now, move the copyright string (truncate it to 39 characters first)
;
		ldy	#6
		lda	[<tempE],y
		and	#$00ff
		clc
		adc	#7			;one extra to compensate for the
		tay				;first pstring's length byte
		lda	[<tempE],y
		tax
		and	#$00ff
		cmp	#63
		blt	@goodCopyright
		txa
		and	#$ff00
		ora	#63			;pin it at 63 characters
		sta	[<tempE],y
@goodCopyright

		and	#$00ff			;how long?
		sta	CopyrightField+$1E

		ldy	#6			;source of copyright string
		lda	[<tempE],y
		and	#$00ff
		clc
;;; Note--Andy's code assumes the pstring is 255-7 characters long, or less, so this will not carry. --DAL
		adc	#7			;one extra to compensate for the
		adc	<tempE			;first pstring's length byte
		tax
		lda	<tempE+2
		adc	#0
		pha
		phx
		lda	<infoBlkPtr		;destination pstring
		clc
		adc	#InfoBlock.windText.verCopyright
		tax
		inc	a
		sta	CopyrightField+$1A
		lda	<infoBlkPtr+2
		adc	#0
		sta	CopyrightField+$1A+2
		pha
		phx
		jsl	PStringCopy
		
		pea	-1
		pea	rVersion	;$8029
		pushlong #1
		_ReleaseResource

		ldy	#cX2-6			;24-Mar-93 JCM - assume no check box

		ldx	#VerGeneralCard
		lda	IconType		; is icon a driver ?
		and	#itDriver
		beq	@noDriver
		
*** Added - 24-Mar-93 JCM - This futzes with the right edge of the product name string so it doesn't
***			    overlap the "Inactive" check box title. Yeah, it's a hack, so what.

		ldy	#cX2-108
		
*** End - 24-Mar-93 JCM
		
		ldx	#InVerGeneralCard
@noDriver	txa
		sty	RealNameField.Rect+6	;24-Mar-93 JCM - update rect for checkbox being here or not
		ldy	#InfoBlock.cardTable
		sta	[<InfoBlkPtr],y
		
;
; just close the resource file and continue...
;
@noVersion	pha
		lda	oldDepth
		pha
		_SetResourceFileDepth
		pla

		lda	resFileID
		pha				;don't bother with anything else, we 
		_CloseResourceFile		;just wanted to know what was what

		ldy	#InfoBlock.windDirty
		lda	[<infoBlkPtr],y
		ora	#$8000			;say yes, we have a GS resource fork
		sta	[<infoBlkPtr],y
		
@fromNetwork	stz	CommentField+$40	;no limit on characters, unless...
		
		ldy 	#IconObject.filetype
		lda	[<iconObjPtr],y
		cmp	#$00ff
		beq	@limitTo199
		cmp	#$000f			;yeah, well if it's a folder on appleshare,
		bne	@noLimit		;limit it if there's a mac resource fork	

@limitTo199	lda	#199			;limit to 199 characters if a network SYS file
		sta	CommentField+$40
@noLimit	
		
		lda	#$6208			;create as editable (will disable later)
		sta	CommentField+$1A+2
	
		ldy	#IconObject.fst
		lda	[<iconObjPtr],y
		tay
		jsl	IsReadOnly
		bcs	@wasReadOnly
		
		ldy	#IconObject.flag	;so, create the textedit control
		lda	[<iconObjPtr],y		;but first check if it's going to be
		and	#icLocked		;editable of not...
		beq	@notLocked
		
@wasReadOnly	lda	#$6608			;normally created as editable, so disable
		sta	CommentField+$1A+2
		
@notLocked	pha				; space for handle
		pha
		PushZLong <infoWinPtr
		pea	singlePtr
		PushLong #CommentField
		_NewControl2			; add common controls
		pla				; ignore handle
		pla
		bcc	doneWithFork

bogusControls	pushlong IconButton+$1a
		jsl DisposeHandleGlue
		
		pushlong infoHandle
		jsl DisposeHandleGlue
		
		lda	<infoWinPtr
		ldx	<infoWinPtr+2
		jsl	CloseThisWindow

		brl	bogus		

;
; we're done playing with their resource fork for the moment, so just add the controls
; and be happy
;
doneWithFork
		lda	<tempA
		beq	commonCtls		; no network stuff
		pha				; space for handle
		pha
		PushZLong <infoWinPtr
		pea	ptrToPtr
		PushZLong <tempA
		_NewControl2			; add network controls
		pla				; ignore handle
		pla
		bcs	bogusControls

commonCtls	lda	useLockControls
		beq	@noLockControls
		
		pha				; space for handle
		pha
		PushZLong <infoWinPtr
		pea	ptrToPtr
		PushLong #LockControls
		_NewControl2			; add common controls
		pla				; ignore handle
		pla
@goBogusControls bcs	bogusControls		
@noLockControls

		pha				; space for handle
		pha
		PushZLong <infoWinPtr
		pea	ptrToPtr
		PushLong #CommonControls
		_NewControl2			; add common controls
		pla				; ignore handle
		pla
		bcs	@goBogusControls

		lda	<iconPathPtr
		ldx	<iconPathPtr+2
		jsr	UpdateInfoBlk		; update fields

		ldy	#IconObject.infoWin	; update icon's record
		lda	<infoWinPtr
		sta	[<iconObjPtr],y
		iny
		iny
		lda	<infoWinPtr+2
		sta	[<iconObjPtr],y
		
		PushZLong <iconObjHand
		jsl	UnLockHandle

exit		pld
		plb
		
		lda	retAddr+1,s
		sta	retAddr+parmSize+1,s
		lda	retAddr,s		;clean up stack
		sta	retAddr+parmSize,s
		tsa
		clc
		adc	#parmSize+workSize
		tas
		clc
		rtl

bogus		pld
		plb
		
		lda	retAddr+1,s
		sta	retAddr+parmSize+1,s
		lda	retAddr,s		;clean up stack
		sta	retAddr+parmSize,s
		tsa
		clc
		adc	#parmSize+workSize
		tas
		sec
		rtl


;
; Move icon to its own separate handle
;
		EXPORT MoveIconToHandle
MoveIconToHandle
		ldy	#IconObject.icon	;update the icon button control
		lda	[<iconObjPtr],y		;and the info block to have the
		sta	IconIndex		;icon handle

;
; get a pointer to our icon in the list of icons
;
		lda	>IconHandleArray	;get the handle to the array of icon handles
		sta	<TempA
		lda	>IconHandleArray+2
		sta	<TempA+2

		lda	[<TempA]		;deref
		sta	<TempB
		ldy	#2
		lda	[<TempA],y
		sta	<TempB+2

		lda	>IconOffsetArray	;get the handle to the array of icon offsets
		sta	<TempC
		lda	>IconOffsetArray+2
		sta	<TempC+2
		
		lda	[<TempC]		;deref
		sta	<TempD
		lda	[<TempC],y
		sta	<TempD+2

		lda	IconIndex
		sta	<TempE
		stz	<TempE+2
		
		asl	<TempE			;multiply our index by 4
		rol	<TempE+2
		asl	<TempE
		rol	<TempE+2

		lda	<TempE			;add our index to the handle array pointer
		clc
		adc	<TempB
		sta	<TempB
		lda	<TempE+2
		adc	<TempB+2
		sta	<TempB+2

		lda	<TempE			;add our index to the offset array pointer
		clc
		adc	<TempD
		sta	<TempD
		lda	<TempE+2
		adc	<TempD+2
		sta	<TempD+2

		lda	[<TempB]		;from the handle array, get the handle our icon
		sta	<TempA			;resides in
		ldy	#2
		lda	[<TempB],y
		sta	<TempA+2
		
		lda	[<TempA]		;deref the handle which contains our icon
		sta	<TempB
		lda	[<TempA],y
		sta	<TempB+2

		lda	<TempB			;add the offset to our icon to the pointer to	
		clc				;the handle containing our icon
		adc	[<TempD]
		tax
		lda	<TempB+2
		adc	[<TempD],y
		sta	<TempD+2
		stx	<TempD

		ldy	#4			;lock the handle
		lda	[<TempA],y
		ora	#$8000
		sta	[<TempA],y
		
		pha
		pha
		
		ldy	#2
		lda	[<TempD],y
		asl	a
		clc
		adc	#8
		pha
		jsl	NewHandle		;allocate a block for our icon
		pla
		sta	<TempB
		sta	IconButton+$1a
		pla
		sta	<TempB+2
		sta	IconButton+$1a+2
		
		ldy	#4			;unlock the icon block
		lda	[<TempA],y
		and	#$3FFF
		sta	[<TempA],y

		bcc	@iconOK
		brl	bogus
@iconOK
		
		pushZLong <tempD		;source

		ldy	#2			;dest
		lda	[<TempB],y
		pha
		lda	[<TempB]
		pha		

		pea	0
		ldy	#2			;Dest size
		lda	[<TempD],y
		asl	a
		clc
		adc	#8
		pha

		pea	$0805
		jsl	Move_Info
		rts
		
;
; locals
;
IconIndex	dc.L	0		
versionNumber	ds.b	11		;local copy of the version number
					;with an extra space on the front
useLockControls dc.w	0
oldDepth	dc.w	0
resFileID	dc.w	0
infoHandle	dc.L	0
		ENDP
		
*===============================================*
*						*
*	handle a control selection		*
*						*
* INPUT:	--- On the Stack ---		*
*		ctrlWinPtr (Long)		*
*		ctrlHand (Long)			*
*		ctrlPart  (Word)		*
*		ctrlID   (Long)			*
*		retAddr (3 bytes)		*
*	 SP--->					*
*						*
* OUTPUT:	--- On the Stack ---		*	
*		retAddr (3 bytes)		*
*	 SP--->					*
*						*
*===============================================*

InfoControls	PROC	EXPORT
		
		IMPORT	doAlertWindow
		IMPORT	writeComment

		DSECT	workSpace
retAddr		block	3	
ctrlID		long
ctrlPart	word
ctrlHand	long
ctrlWinPtr	long

parmSize	SET	14
AuxType		EQU	tempD			; Mensch 5/19/89, fixing BRC #49175
		IMPORT	GetPrivileges		; Mensch 5/19/89, fixing BRC #49175

		IMPORT	FiFiFiSearch
		IMPORT	matchFileToIcon
		IMPORT	c1_pathname
		IMPORT	pathGetRoot
		IMPORT	setTEEditable
		IMPORT	saveCursor
		IMPORT	restoreCursor
		IMPORT	arrowCursor
		IMPORT	finderDPage
		IMPORT	longNoRename
		IMPORT	GetAccessValues
		IMPORT	GetIconType
		IMPORT	GetText
		IMPORT	SetPrivileges
		IMPORT	SetAllPriv
		IMPORT	CalculateSize
		IMPORT	LockTheFile
		IMPORT	DisableTheFile
		IMPORT	HandleToPointer
		IMPORT	UnlockHandle
		IMPORT	ArrowCursor
		IMPORT	WatchCursor
		IMPORT	SetInfoAccess
		IMPORT	RedrawIconLock
		IMPORT	WStrCompare
		IMPORT	WStringCopy
		IMPORT	WToPString
		IMPORT	aboutWindowPtr
		
		IMPORT	strAccessError		; in string segment
		IMPORT	strBadChanges2
		IMPORT	strChangeOwner
		IMPORT	MoveIconToHandle

btnCancel	set	$01
btnOK		set	$02
btnTryAgain	set	$04
btnContinue	set	$08

iconStop	set	$32
iconNote	set	$33
iconCaution	set	$34
iconDisk	set	$35
iconDiskSwap	set	$36

*===============================================*
	
		sec
		tsc				; get work space
		sbc	#workSize
		tcs
		
		phb
		phk
		plb
		
		phd
		tcd				; set DP to stack

		lda	<ctrlID
		bmi	exit			; these are invalid ID's
		beq	exit
		
		lda	<ctrlWinPtr
		sta	<infoWinPtr
		lda	<ctrlWinPtr+2
		sta	<infoWinPtr+2

		pha				; space for pointer
		pha
		PushZLong <infoWinPtr
		_GetWRefCon
		PullLong <infoBlkPtr
		
		pha
		pha
		PushLong [<infoBlkPtr],InfoBlock.windIcons
		jsl	HandleToPointer
		PullLong <iconObjPtr
		jsr	GetIconType
		
		lda	<ctrlID
		dec	a
		asl	a
		tax
		jsr	(CaseTable,x)

		PushLong [<infoBlkPtr],InfoBlock.windIcons
		jsl	UnlockHandle

exit		pld
		plb
				
		lda	retAddr+1,s
		sta	retAddr+parmSize+1,s
		lda	retAddr,s
		sta	retAddr+parmSize,s
		tsa
		clc
		adc	#parmSize+workSize
		tas
		rtl

;-----------------------------------------------		
CaseTable	DC.W	_ApplyButton		;1
		DC.W	_AllButton		;2
		DC.W	_OwnerLineEdit		;3
		DC.W	_GroupLineEdit		;4
		DC.W	_ClassPopUp		;5
		DC.W	_SeeFoldersPopUp	;6
		DC.W	_SeeFilesPopUp		;7
		DC.W	_MakeChangesPopUp	;8
		DC.W	_LockedCheck		;9
		DC.W	_InactiveCheck		;10
		DC.W	_CalcButton		;11
		DC.W	_LockedText		;12
		DC.W	_InactiveText		;13
		dc.W	_HitAddComment		;14

;-----------------------------------------------		
_ApplyButton
_AllButton
		jsl	WatchCursor

		ldy	#idOwner
		lda	#OwnerStr
		ldx	#OwnerStr>>16
		jsr	GetText			; get Owner string
	
		add4	<InfoBlkPtr,#InfoBlock.windText.owner,<tempA

		pha				; space for result
		PushLong #OwnerStr
		PushZLong <tempA
		jsl	WStrCompare		; is owner string changing ?
		pla
		bne	sameOwner		; nope
		
		add4	<InfoBlkPtr,#InfoBlock.windText.name,<tempB
		PushZLong <tempB
		PushLong #GroupStr		; temp place for name
		jsl	WToPString
		
		jsl	SaveCursor
		jsl	ArrowCursor
		
		pha
		pea	$00B5			;refIsResource
		pushlong #groupStrPtr		;substitution string #1
		pushlong #rasChangeOwner	;resource ID
		_AlertWindow
		jsl	restoreCursor

		pla
		bne	@contApply		;button #1 = change
		brl	undoApply		; reset settings

@contApply	
		PushLong #OwnerStr
		PushZLong <tempA
		jsl	WStringCopy		; update to current owner

sameOwner	ldy	#idGroup
		lda	#GroupStr
		ldx	#^GroupStr
		jsr	GetText			; get Group string

		jsr	GetAccessValues		; get Access rights
		
		phx				; new access rights
		pha
		PushLong #OwnerStr		; ptr to owner string
		PushLong #GroupStr		; ptr to group string
		add4	<InfoBlkPtr,#InfoBlock.windText.path,<tempA
		PushZLong <tempA		; ptr to pathname

		lda	<ctrlID
		cmp	#idApplyAll		; is this an Apply to all ?
		beq	@doAll			; yes

		jsl	SetPrivileges		; tell AppleShare
		bcs	undoApply		; error, so undo settings
		bra	endApply

@doAll		jsl	SetAllPriv		; tell AppleShare
		bcc	endApply

		cmp	#$4E			; were there access errors ?
		bne	undoApply

		lda	#rasCouldntApply	;the changes couldn't be applied
		jsl	doAlertWindow
		sec
		bra	endApply

undoApply	jsr	SetInfoAccess		; error, so restore settings

		pha				; space for handle1
		pha
		pha				; space for handle2
		pha
		PushZLong <infoWinPtr		; control's window
		PushLong #idOwner		; ID
		_GetCtlHandleFromID		; get owner control handle
		_GetCtlTitle			; get editLine handle
		_LEUpdate			; redraw the text

		pha				; space for handle1
		pha
		pha				; space for handle2
		pha
		PushZLong <infoWinPtr		; control's window
		PushLong #idGroup		; ID
		_GetCtlHandleFromID		; get owner control handle
		_GetCtlTitle			; get editLine handle
		_LEUpdate			; redraw the text

endApply	bcc	@SetNewIconVal		; Mensch 5/19/89 (BRC #49175)
@End1		jsl	ArrowCursor
		rts

;		
; The Apply went fine, so now update the icon's flags to reflect the proper
;   folder type by setting the access bits in its field to the new privileges the
;   OS thinks we have
;

;
; Call the FST to get our access privileges
;
@SetNewIconVal 
		lda	#0
		pha				; room for result
		pha
		pha				; Owner pointer (NIL, field not needed)
		pha
		pha				; Group pointer (NIL, field not needed)
		pha
;
; now push the pathname pointer
;
		add4	<InfoBlkPtr, #InfoBlock.windText.path,<tempA
		PushZLong <tempA		; pointer to pathname
		jsl	GetPrivileges		; now get our access privileges
		pla				; pull off the result
		ldy	#IconObject.NetworkAccess
		sta	[<iconObjPtr],y
		tax
		pla
		iny
		iny
		sta	[<iconObjPtr],y
		
		txa
		and	#$0087			; strip off all the bits we need
		cmp	#$0008			; are we the owner?
		blt	@NotOwner
		and	#$0007			; strip the OS owner bit
		ora	#ICASOwner		; and add to our owner bit
@NotOwner
		pha				; save it on the stack
		ldy	#IconObject.flag+2
		lda	[<iconObjPtr],y
		and	#$FFF0			; mask out user's access bits
		ora	1,s			; add in new settings
		ora	#$8000+ICREADABLE>>16	; set read access always and touched bits
		tax				; and save it
		and	#$0003			; can we save the thing?
		bne	@CanRead		; yes - leave read access
		txa				; get access rights back
		eor	#ICREADABLE>>16		; Reset read access
		tax				; save the privileges
@CanRead	txa				; recover the correct privileges
		sta	[<iconObjPtr],y		; and save the new access privs...
		plx				; sweep debris from stack

;
; Now create the new AUX type from the folder in question
;
		stz	<AuxType
		and	#$0007			; check user access bits
		cmp	#$0004			; is this (shudder) a DROP box?
		bne	@NotDrop		; in case "no"
		sta	<AuxType		; in case "yes"
		bra	@done			; now install new icon offset
		
@NotDrop	lda	[<iconObjPtr],y
		and	#$0008
		beq	@done			; bit 4 set if owner
		sta	<AuxType
;
; AuxType is valid, so let's set up to create the icon
;		
@done
		lda	<AuxType
		ldy	#IconObject.fileInfo
		sta	[<iconobjPtr],y		; save as the new auxtype
		
		tax
		ldy	#IconObject.filetype
		lda	[<iconObjPtr],y
		ldy	#0
		jsl	FiFiFiSearch
		
		ldy	#IconObject.kind
		sta	[<IconObjPtr],y
		iny
		iny
		txa
		sta	[<IconObjPtr],y

;
; now, actually go out and do the match
;
		tsc
		sec
		sbc	#20			;put 5 longs on the stack
		tcs
		pea	$8000			;don't care about voting, match all
		pea	1			;match the first one
		
		ldy	#IconObject.filetype
		lda	[<iconObjPtr],y
		pha

		pea	0
		ldy	#IconObject.fileInfo
		lda	[<iconobjPtr],y		; new auxtype
		pha

		lda	#IconObject.name	;ptr to the name
		clc
		adc	<iconObjPtr
		tax
		lda	<iconObjPtr+2
		adc	#0
		pha
		phx
		
		lda	#IconObject.CDate	;ptr to the create date
		clc
		adc	<iconObjPtr
		tax
		lda	<iconObjPtr+2
		adc	#0
		pha
		phx
		
		lda	#IconObject.MDate	;ptr to the mod date
		clc
		adc	<iconObjPtr
		tax
		lda	<iconObjPtr+2
		adc	#0
		pha
		phx
		
		ldy	#IconObject.LocalAccess	;local access value
		lda	[<iconObjPtr],y
		pha

		ldy	#IconObject.Extended	;extended or not
		lda	[<iconObjPtr],y
		pha
		
		lda	#IconObject.OptionList	;ptr to the option list
		clc
		adc	<iconObjPtr
		tax
		lda	<iconObjPtr+2
		adc	#0
		pha
		phx

		pushlong #0			;length zero

		jsl	matchFileToIcon

		pla
		ldy	#IconObject.OneDocOffset
		sta	[<iconObjPtr],y
		iny
		iny
		pla
		sta	[<iconObjPtr],y

		pla
		ldy	#IconObject.rBundle
		sta	[<iconObjPtr],y
		iny
		iny
		pla
		sta	[<iconObjPtr],y
		
		pla
		ldy	#IconObject.SmallIcon
		sta	[<iconObjPtr],y
		iny
		iny
		pla
		sta	[<iconObjPtr],y
		
		pla
		ldy	#IconObject.Icon
		sta	[<iconObjPtr],y
		iny
		iny
		pla
		sta	[<iconObjPtr],y

		pla
		pla				;rFinderPath goes into hyperspace...

		jsr	MoveIconToHandle	;(X) is used as an input

		pha
		pha
		pushZLong <infoWinPtr
		pushlong #idIconButton
		_GetCtlHandleFromID
		lda	1,s
		sta	<TempA
		lda	3,s
		sta	<TempA+2
		
		lda	[<TempA]
		sta	<TempB
		ldy	#2
		lda	[<TempA],y
		sta	<TempB+2
		
		ldy	#$40+2
		lda	[<TempB],y
		pha
		dey
		dey
		lda	[<TempB],y
		pha
		jsl DisposeHandleGlue
		_DisposeControl			;get rid of the old icon button	

		pha				;space for handle
		pha
		PushZLong <infoWinPtr
		pea	singlePtr
		PushLong #IconButton
		_NewControl2			;add the control, created invisible
		pla				;because the card isn't showing
		pla
		brl	@End1
		
groupStrPtr	dc.L	GroupStr
OwnerStr	DS.B	34
GroupStr	DS.B	34
;-----------------------------------------------		
_OwnerLineEdit
_GroupLineEdit
		rts
;-----------------------------------------------		
_ClassPopUp
		add4	<infoBlkPtr,#InfoBlock.PopValue,<tempA
		
		pha				; space for pop up's value
		PushZLong <ctrlHand
		_GetCtlValue
		pla
		cmp	#2			; we don't allow custom (or 0)
		bcc	done10
		cmp	#6			; ignore bad values
		bcs	done10

		ldy	#PopVal.class
		sta	[<tempA],y
		dec	a
		dec	a
		asl	a
		pha
		asl	a
		clc
		adc	1,s
		tax				; X <-- (value-2) * 6
		pla
		
		ldy	#0
loop10		phy
		phx

		lda	Settings,x		; new value for pop up
		cmp	[<tempA],y		; same as before ?
		beq	next10
		sta	[<tempA],y		; update our view of things
		pha				; new value

		pha				; space for handle
		pha
		PushZLong <infoWinPtr
		pea	$0000			; hi word of ID
		lda	IDs,y
		pha				; lo word of ID
		_GetCtlHandleFromID
		_SetCtlValue
next10		plx
		inx
		inx
		ply
		iny
		iny
		cpy	#3*2
		bcc	loop10
		
done10		rts

		
;-----------------------------------------------		
_SeeFoldersPopUp
_SeeFilesPopUp
_MakeChangesPopUp
		lda	<infoBlkPtr
		clc
		adc	#InfoBlock.PopValue
		sta	<tempA
		lda	<infoBlkPtr+2
		adc	#0
		sta	<tempA+2

		pha				; space for pop up's value
		PushZLong <ctrlHand
		_GetCtlValue
		lda	<ctrlID
		sec
		sbc	#idSeeFolders
		asl	a
		tay
		pla
		beq	done20
		cmp	#6			; ignore bad values
		bcs	done20
		sta	[<tempA],y		; update our view of things
		
		ldx	#0
		ldy	#2
loop20		phy
		ldy	#PopVal.folder
		lda	[<tempA],y		; check if settings match
		cmp	Settings,x
		bne	next20
		ldy	#PopVal.file
		lda	[<tempA],y
		cmp	Settings+2,x
		bne	next20
		ldy	#PopVal.change
		lda	[<tempA],y
		cmp	Settings+4,x
		beq	match20
next20		ply
		iny
		txa
		clc
		adc	#6
		tax
		cpx	#4*6
		bcc	loop20
		pea	1			; else, use custom

match20		pla
		ldy	#PopVal.class
		cmp	[<tempA],y		; same as before?
		beq	done20			
		sta	[<tempA],y		; update our view of things
		pha				; new value
		pha				; space for handle
		pha
		PushZLong <infoWinPtr
		PushLong #idClass		; ID
		_GetCtlHandleFromID
		_SetCtlValue
		
done20		rts

;-----------------------------------------------		
_LockedCheck	name

		phd
		lda	>finderDPage
		tcd
		jsl	longNoRename		;remove the rename field if we have one
		pld				;so that _LEUpdate in the window update
						;proc won't blow away what we were
						;supposed to be printing (ie, going from
						;unlocked to locked

		pha				; space for handle
		pha
		PushZLong <infoWinPtr
		pushlong #idCommentFld
		_GetCtlHandleFromID		;handle to TE record
		pla
		sta	<tempE
		sta	coHandle
		pla
		sta	<tempE+2
		sta	coHandle+2
		
		lda	[<tempE]
		tax
		ldy	#2
		lda	[<tempE],y
		sta	<tempE+2
		stx	<tempE
		
		ldy	#$16
		lda	[<tempE],y
		cmp	#$8000
		bne	@writeComment
		dey
		dey
		lda	[<tempE],y		;simple button ctrlProc
		bne	@ack

		ldy	#iconObject.flag
		lda	[<iconObjPtr],y
		and	#icLocked		;if it's being locked, set the button
		bne	@beingUnlocked		;so say that we can't add squat
		
		pea	255
		bra	@beingLocked
@beingUnlocked	pea	0
@beingLocked	pushLong coHandle
		_HiliteControl
		bra	@ack
		
@writeComment	pushZlong <infoWinPtr		;try REALLY hard to write the comment
		pushZLong <infoBlkPtr		;out...
		pushZLong <iconObjPtr
		jsl	writeComment

@ack		ldy	#iconObject.flag	;if the icon is extended, the icon is
		lda	[<iconObjPtr],y			;drawn as it exists in the iconObject,
		and	#icExtended		;so in that case, 
		bne	@onDesk	
		
		ldy	#iconObject.filetype
		lda	[<iconObjPtr],y		;if it's a volume we're locking, it'd better
		bmi	@onDesk			;be on the desktop
		
		ldy	#iconObject.flag
		lda	[<iconObjPtr],y
		pha		
		ora	#icLocked
		sta	[<iconObjPtr],y

		lda	<iconObjPtr		;this is a deceptive name for this
		ldx	<iconObjPtr+2		;call because it actually just invalidates
		jsr	RedrawIconLock		;it... andy 11/26/90	
		
		pla
		ldy	#iconObject.flag
		eor	#icLocked
		sta	[<iconObjPtr],y
		
		jsr	setTEEditable
		bra	realLock
		
@onDesk		ldy	#iconObject.flag	;like I said... so, in that case, we
		lda	[<iconObjPtr],y		;have to flip the bit ahead of time
		eor	#icLocked		;so that the icon will get redrawn in
		sta	[<iconObjPtr],y		;its correct state
		
		lda	<iconObjPtr		;this is a deceptive name for this
		ldx	<iconObjPtr+2		;call because it actually just invalidates
		jsr	RedrawIconLock		;it... andy 11/26/90
		
		jsr 	setTEEditable
		jsr	realLock
		rts

setError	lda	<tempB			; if call fails, flip control back
		eor	#1
		pha
		PushZLong <ctrlHand
		_SetCtlValue
		
		ldy	#iconObject.flag	;if the icon is extended, the icon is
		lda	[<iconObjPtr],y			;drawn as it exists in the iconObject,
		and	#icExtended		;so in that case, 
		bne	@onDesk	
		
		ldy	#iconObject.flag	;like I said... so, in that case, we
		lda	[<iconObjPtr],y		;have to flip the bit ahead of time
		pha
		ora	#icLocked		;so that the icon will get redrawn in
		sta	[<iconObjPtr],y		;its correct state
		
		lda	<iconObjPtr		;this is a deceptive name for this
		ldx	<iconObjPtr+2		;call because it actually just invalidates
		jsr	RedrawIconLock		;it... andy 11/26/90
		
		pla
		ldy	#iconObject.flag	
		eor	#icLocked
		sta	[<iconObjPtr],y		
		
		jsr	setTEEditable
		rts
		
@onDesk		ldy	#iconObject.flag	;like I said... so, in that case, we
		lda	[<iconObjPtr],y		;have to flip the bit ahead of time
		eor	#icLocked		;so that the icon will get redrawn in
		sta	[<iconObjPtr],y		;its correct state
		
		lda	<iconObjPtr		;this one for the desktop actually draws the
		ldx	<iconObjPtr+2		;the icon in its current state
		jsr	RedrawIconLock		
		
		jsr	setTEEditable
		rts
	
;
; lock the file for real now that we're done fooling around with controls and such
;
realLock
		pha				;space for control's value
		PushZLong <ctrlHand
		_GetCtlValue			;get lock value (0 | 1)
		PullWord <tempB

		ldy	#IconObject.fileType
		lda	 [<iconObjPtr],y
		bpl	@lockTheFile		;if this is negative, then it's gotta be
						;a volume...
		ldx	#$0110			;value for control list from matt's 2.0 ERS
		lda	<tempB
		bne	@lockTheVolume
		ldx	#$0130			;value to unlock the volume (from 2.0 ERS)
		
@lockTheVolume	stx	SetControlList
		
		ldy	#IconObject.devNum	;fill in the device number
		lda	[<iconObjPtr],y
		sta	SetLockParms+2

		ldy	#IconObject.devInfo	;flip bit #1 to say we're locked or not
		lda	[<iconObjPtr],y
		eor	#$0002
		sta	[<iconObjPtr],y

		_DControlGS SetLockParms
		bcc	@done
		brl	setError
			
@lockTheFile	add4	<infoBlkPtr,#InfoBlock.windText.path,<tempA

		pei 	<tempB			;value
		PushZLong <tempA		;ptr to pathname
		jsl	LockTheFile
		bcc	@done
		brl	setError
@done		rts
		
;-----------------------------------------------		
_InactiveCheck
		pha				; space for contol's value
		PushZLong <ctrlHand
		_GetCtlValue			; get inactive value (0 | 1)
		PullWord <tempB
		
		add4	<infoBlkPtr,#InfoBlock.windText.path,<tempA
		
		PushZWord <tempB		; value
		PushZLong <tempA		; ptr to pathname
		jsl	DisableTheFile
		bcc	@ok

		lda	<tempB			; if call fails, flip control back
		eor	#1			; to what it was
		pha
		PushZLong <ctrlHand
		_SetCtlValue
		rts
@ok

		ldy	#IconObject.fileInfo	; flip icon's inactive bit
		lda	[<iconObjPtr],y
		eor	#$8000
		sta	[<iconObjPtr],y 		

		rts

;-----------------------------------------------		
_CalcButton	_WaitCursor

		pha
		pha
		_TickCount

		jsr	CalculateSize
		
*** Added 21-Jan-93 JCM

;;;		_InitCursor

		jsl	ArrowCursor
		
*** End - 21-Jan-93 JCM		
		
		pha			;6-Nov-91 DAL -- SysBeep2 if it's been 2 seconds
		pha
		_TickCount
		pla
		sec
		sbc 3,s
		tax
		pla
		sbc 3,s
		bne @longTime
		cpx #120
		bcc @notLong
@longTime	pea $8005	;task complete
		_SysBeep2
@notLong	pla
		pla		;discard orig tick value

		rts
		
;-----------------------------------------------		
_LockedText
_InactiveText
		pha				; space for handle
		pha
		PushZLong <infoWinPtr		; control's window
		PushWord #0			; ID - high word
		lda	<ctrlID
		cmp	#idInactiveStr
		bne	getLock
		PushWord #idInactive		; ID - low word
		bra	textGet
getLock		PushWord #idLocked		; ID - low word
textGet		_GetCtlHandleFromID		; get the handle of the checkbox
		PullLong <ctrlHand

		pha				; space for contol's value
		PushZLong <ctrlHand
		_GetCtlValue			; get lock value (0 | 1)
		pla
		eor	#1			; flip it (new value)
		sta	<tempB
		pha				; new value
		PushZLong <ctrlHand
		_SetCtlValue			; set control's new value
		
		lda	<ctrlID
		cmp	#idLockedStr
		bne	@makeInactive
		
		brl	_LockedCheck
@makeInactive	brl	_InactiveCheck

;
; _hitAddComment -- they hit the Text Edit control on the comment card.  Check the
;		  dirty flags to see if we need to write this stuff if they change
;		  cards or close the window
;
_hitAddComment	name
		pha				; space for handle
		pha
		PushZLong <infoWinPtr
		pushlong #idCommentFld
		_GetCtlHandleFromID		;handle to TE record
		pla
		sta	<tempE
		sta	coHandle
		pla
		sta	<tempE+2
		sta	coHandle+2
		
		lda	[<tempE]
		tax
		ldy	#2
		lda	[<tempE],y
		sta	<tempE+2
		stx	<tempE
		
		ldy	#$16			;simple button control proc
		lda	[<tempE],y
		cmp	#$8000
		bne	@goExit
		dey
		dey
		lda	[<tempE],y
		beq	@isButton
@goExit		rts				;so we need to write it back

;
; now that we know that the actually hit the button (and not text edit)
; we'll be asking them if they'd like to extend this file
;
@isButton
		lda	#rasAddComment		;do they really want to add the comment?
		jsl	doAlertWindow
		bne	@writeMap
		rts
		
@writeMap	lda #0
		pha				
		pha				;auxtype
		pha				;filetype
		pha				;access
		lda	#InfoBlock.windText.path ;fill in the path information for both
		clc				;calls
		adc	<infoBlkPtr
		tax
		lda	<infoBlkPtr+2
		adc	#0
		pha
		phx
		_CreateResourceFile
		bcc	@hasLocalComment

		cmp	#$46
		beq	@lostTheFileAgain
		cmp	#$2b
		beq	@writeProtected
		rts		
		
@lostTheFileAgain
		jsr	askForDisk
		bne	@writeMap
		rts
		
@writeProtected
		pushlong #C1_PathName
		lda	#InfoBlock.windText.path
		clc
		adc	<infoBlkPtr
		tax
		lda	<infoBlkPtr+2
		adc	#0
		pha
		phx
		jsl	PathGetRoot		;C1_PathName

		lda	#rasWriteProtected
		jsl	doAlertWindow
		bne	@writeMap
		rts

;
; yaaaahooo... we finally have a resource fork, so we can add a local comment, but
; first, we need to get rid of the button and mark the icon as $8005 (extended, has
; GS res fork) and put the TE control in it's place
;
@hasLocalComment
		pha
		pha
		pushlong [<infoBlkPtr],InfoBlock.windIc
		jsl	HandleToPointer
		PullLong <iconObjPtr

		ldy	#IconObject.extended
		lda	[<iconObjPtr],y
		ora	#$8000
		sta	[<iconObjPtr],y

		pushlong coHandle
		_DisposeControl

		pha				;space for handle
		pha
		PushZLong <infoWinPtr
		pea	singlePtr
		PushLong #CommentField
		_NewControl2			;add te control, created invisible
		lda	1,s
		tax
		lda	3,s
		pha
		phx
		_ShowControl			;double handle on stack
		_MakeThisCtlTarget		;make the cursor blink
		
		ldy	#InfoBlock.windDirty	;set the file as having a GS resource
		lda	#$8005			;fork and being extended
		sta	[<InfoBlkPtr],y
		
@exit		rts
		
;
; ask them for the disk (they can cancel)
;
askForDisk
		pushlong #C1_Pathname
		lda	#InfoBlock.windText.path
		clc
		adc	<infoBlkPtr
		tax
		lda	<infoBlkPtr+2
		adc	#0
		pha
		phx
		jsl	PathGetRoot		;C1_Pathname
		
		lda	#rasInsertDiskOrCancel
		jsl	doAlertWindow
		rts
;
; local locals
;
coHandle	dc.L	0

extendParms	dc.w	5	;pcount
		dc.L	0	;pathname
		dc.w	$e3	;access
		dc.w	4	;filetype
		dc.L	0	;auxtype
		dc.w	$8005	;extend this, please
		
		ENDP
		
*===============================================*
* Write a Comment back to either the resource	*
* fork and/or the network desktop database	*
*						*
* INPUT:	--- On the Stack ---		*
*		windowPtr  (Long)		*
*		windBlkPtr (Long)		*
*		iconPtr	   (Long)		*
*		retAddr (3 bytes)		*
*	SP--->					*
*						*
* OUTPUT:	--- On the Stack ---		*	
*		retAddr (3 bytes)		*
*	 SP--->					*
*===============================================*

writeComment	PROCNAME	EXPORT

		IMPORT	doAlertWindow
		IMPORT	pathGetRoot
		IMPORT	C1_PathName
		
		DSECT	workSpace
retAddr		block	3	
iconPtr		long
windBlkPtr	long
windowPtr	long

parmSize	SET	12

*===============================================*
		
		sec
		tsc				; get work space
		sbc	#workSize
		tcs

		phb
		phk
		plb
		phd
		tcd				; set DP to stack

		pha				; space for handle
		pha
		PushZLong <windowPtr
		pushlong #idCommentFld
		_GetCtlHandleFromID		;handle to TE record
		pla
		sta	<tempE
		sta	teHandle
		pla
		sta	<tempE+2
		sta	teHandle+2
		
		lda	[<tempE]
		tax
		ldy	#2
		lda	[<tempE],y
		sta	<tempE+2
		stx	<tempE
		
		ldy	#$16
		lda	[<tempE],y
		cmp	#$8500
		bne	@goExit
		dey
		dey
		lda	[<tempE],y		;textedit ctrlProc
		bne	@goExit
		
		ldy	#$10			;check the textEdit dirty flag
		lda	[<tempE],y
		and	#$0040
		bne	@dirty			;if it's dirty, they changed the comment
@goExit		brl	@exit			;so we need to write it back
@dirty
		
;
; first, see if we have a comment to write back
;
		ldy	#icFlag			;is it locked?
		lda	[<iconPtr],y	
		and	#icLocked
		beq	@keepSmiling
		brl	@exit			;if so, forget about writing anything

@keepSmiling	ldy	#InfoBlock.windDirty
		lda	[<windBlkPtr],y
		bmi	@hasLocalComment	

		ldy	#IconObject.flag+2
		lda	[<iconPtr],y
		and	#icNetWork>>16
		beq	@goExit

@goNetwork	ldy	#infoBlock.windAccess
		lda	[<windBlkPtr],y
		and	#icInfoMakeChanges>>16
		beq	@goExit
		brl	@hasNetworkComment

;
; we have a comment to write, so first check to see if it's a local
; comment, and if so, write it back locally...
;
@hasLocalComment
		pha
		_GetCurResourceFile
		pla
		sta	firstResourceFile
		
		pha
		pea	$8000			;as allowed, don't preload anything!
		pushlong #0			;res map addr (NIL)
		lda	#InfoBlock.windText.path
		clc
		adc	<windBlkPtr
		tax
		lda	<windBlkPtr+2
		adc	#0
		pha
		phx
		_OpenResourceFile
		plx
		stx	resFileID
		bcc	@goodFork

		cmp	#$46			;file not found
		beq	@askForDisk
		brl	@checkNetwork
		
@askForDisk	pushlong #C1_PathName
		lda	#InfoBlock.windText.path
		clc
		adc	<windBlkPtr
		tax
		lda	<windBlkPtr+2
		adc	#0
		pha
		phx
		jsl	PathGetRoot		;C1_PathName
		
		lda	#rasInsertDiskOrCancel
		jsl	doAlertWindow
		bne	@hasLocalComment	; nope ... try again to keep them honest
		brl	@checkNetwork

;
; Cool.   We were able to open our resource file, so remove the old rComment resource
; and Add the new rComment resource, then close it (write it back).
;
; but first, see if we got write permissions from the file to be able to write it back
;
@goodFork	pha
		lda	resFileID
		pha
		_GetOpenFileRefNum
		pla
		
		sta	refInfoParms+2
		
		jsl	$e100a8
		dc.w	$2039			;_GetRefInfo refInfoParms
		dc.L	refInfoParms
		
		lda	refInfoParms+4		;get access we were provided
		and	#$0002
		bne	@OKToWrite
		bra	@tryClosing

@OKToWrite	pha
		pea	1
		_SetResourceFileDepth
		pla
		sta	oldDepth
		
		pea	rComment		;$802a
		pushlong #1
		_RemoveResource
		
		pha
		pha
		pea	$001D			;ref is ptr to handle, unformatted text
		pushlong #textHandle		;buffer ref
		pushlong #0			;buffer length
		pea	0			;style descriptor
		pushlong #0			;no style info
		pushlong teHandle
		_TEGetText
		pla				;we don't care how much
		pla
		
		pushlong textHandle
		pea	0			;attributes (nothing)
		pea	rComment		;$802A
		pushlong #1			;id
		_AddResource
		
@tryClosing	pha
		lda	oldDepth
		pha
		_SetResourceFileDepth
		pla
		
		lda	resFileID
		pha
		_CloseResourceFile
		bcs	@badClose

		ldy	#$10			;clear the fRecordDirty bit (we wrote it!)		
		lda	[<tempE],y
		and	#$ffBf
		sta	[<tempE],y
		brl	@checkNetwork

;
; we weren't able to close the file, so see if the file is offline and prompt them
; for it if it's not online -- otherwise, we have a big problem
;
@badClose	cmp	#$46			;is it a 'file not found' error?
		beq	@askforDisk2
		cmp	#$2b
		beq	@writeProtected
		bra	@resetResourceFile
		
@writeProtected	pushlong #C1_PathName
		lda	#InfoBlock.windText.path
		clc
		adc	<windBlkPtr
		tax
		lda	<windBlkPtr+2
		adc	#0
		pha
		phx
		jsl	PathGetRoot		;C1_PathName

		lda	firstResourceFile
		pha
		_SetCurResourceFile

		lda	#rasWriteProtected
		jsl	doAlertWindow
		beq	@resetResourceFile
		bra	@tryClosing
		
@askForDisk2	pushlong #C1_PathName
		lda	#InfoBlock.windText.path
		clc
		adc	<windBlkPtr
		tax
		lda	<windBlkPtr+2
		adc	#0
		pha
		phx
		jsl	PathGetRoot		;C1_PathName

		lda	firstResourceFile
		pha
		_SetCurResourceFile
		
		lda	#rasInsertDiskOrCancel
		jsl	doAlertWindow
		beq	@resetResourceFile
		brl	@tryClosing		; nope ... try again to keep them hones

;
; if we get to this point, something went agog, so try to recover as best we can by
; putting the finder back as the current resource file
;
; and the resource file is still open, ack!  ack!
;
@resetResourceFile
		lda	resFileID
		ora	#$8000			;close it anyway
		pha
		_CloseResourceFile

		lda	firstResourceFile
		pha
		_SetCurResourceFile
		
;
; before we go dancing away after writing (or not writing, whatever) the comment
; locally, see if we should write a network comment (well, ok, only the first 200
; bytes of it)
;
@checkNetwork	ldy	#IconObject.flag+2
		lda	 [<iconPtr],y
		and	#icNetWork>>16
		bne	@hasNetworkComment
		brl	@exit

;
; then, if it's also (or) a network comment, write out the first 200
; characters of the comment to the network database
;
; we don't care how long the block that is returned is because the AppleShare FST
; will truncate it to 199 characters -- whadda guy that Mark Day
;
@hasNetworkComment
		pha
		pha
		pea	$001A			;ref is ptr to handle, c1_inputstring
		pushlong #textHandle		;buffer ref
		pushlong #0			;buffer length
		pea	0			;style descriptor
		pushlong #0			;no style info
		pushlong teHandle		;space for handle
		_TEGetText
		pla
		pla

		lda	textHandle
		sta	<tempD
		lda	textHandle+2
		sta	<tempD+2

		lda	[<tempD]		;dereference the comment
		sta	SetCommentParms+$c
		ldy	#2
		lda	[<tempD],y
		sta	SetCommentParms+$c+2	

		lda	#InfoBlock.windText.path ;fill in the path information for both
		clc				;calls
		adc	<windBlkPtr
		sta	OpenDesktopParms+8
		sta	SetCommentParms+8
		lda	<windBlkPtr+2
		adc	#0
		sta	OpenDesktopParms+10
		sta	SetCommentParms+10
		
		jsl	$e100a8
		dc.w	$2033
		dc.L	OpenDesktopParms	;quit if errors
		bcs	@exit

		lda	OpenDesktopParms+6	;move the desktop refnum
		sta	SetCommentParms+6
		
		jsl	$e100a8			
		dc.w	$2033
		dc.L	SetCommentParms		;don't care about errors, just fall thru

;
; we're (finally) done writing the new comment
;
@exit		pld
		plb
		
		lda	retAddr+1,s
		sta	retAddr+parmSize+1,s
		lda	retAddr,s		;clean up stack
		sta	retAddr+parmSize,s
		tsa
		clc
		adc	#parmSize+workSize
		tas
		clc
		rtl

;
; locals
;
oldDepth	dc.w	0

teHandle	dc.L	0
teChars		dc.L	0

refInfoParms	dc.w	2
		dc.w	0	;input, refnum
		dc.w	0	;access

firstResourceFile 
		dc.W	0

resFileID	dc.W	0
infoHandle	dc.L	0
textHandle	dc.L	0	;handle to our comment text 
teHowMuch	dc.L	0

OpenDesktopParms
		dc.w	4	;pcount
		dc.w	$0d	;AppleShare
		dc.w	$9	;open desktop
		dc.w	0	;dtRefNum
		dc.L	0	;pathnamePtr
		
SetCommentParms	
		dc.w	5	;pcount
		dc.w	$0d	;AppleShare
		dc.w	$c	;set comment
		dc.w	0	;dtRefNum
		dc.L	0	;pathnamePtr
		dc.L	0	;commentPtr		
		ENDP
				
*===============================================*
*	Get Line Edit Text From Control		*
*						*
* IN:	id (y-reg), stringPtr (a,x-reg)		*
*						*
* OUT:	none					*
*===============================================*
GetText		PROC

		IMPORT	TextToWString
		IMPORT	HandleToPointer
		
		sta	<tempB
		stx	<tempB+2
		
		pha				; space for handle 2
		pha
		pha				; space for handle 1
		pha
		PushZLong <infoWinPtr
		PushWord #0			; ID (hi word)
		phy				; ID (lo word)
		_GetCtlHandleFromID		; get control handle
		_GetCtlTitle			; get editLine handle
		PullLong theHandle

		pha				; space for pointer
		pha
		pha				; space for handle
		pha
		PushLong theHandle		; handle to Line Edit record
		_LEGetTextHand
		jsl	HandleToPointer		; ptr to text on stack
		PushZLong <tempB			; ptr to string

		pha				; space for length
		PushLong theHandle		; handle to Line Edit record
		_LEGetTextLen			; get length (on stack)

		jsl	TextToWString
		
		rts

		ENDP

*===============================================*
*     Set Info where from Icon Object record.	*
*						*
* IN:	infoBlkPtr, iconPathPtr (a,x-reg)	*
* OUT:	none					*
*===============================================*

SetInfoWhere	PROC

		IMPORT	DeviceToString
		IMPORT	GetDeviceName
		IMPORT	NewTextField
		IMPORT	WStringCopy
		IMPORT	GetServerName
		IMPORT	PToWString
		IMPORT	PStringCat
		
		sta	<tempD
		stx	<tempD+2

		lda	IconType
		and	#itTrash
		beq	ok
		brl	exit

;---- Update Path field ----
		
ok		add4	<InfoBlkPtr,#InfoBlock.windText.path,<tempA

		PushZLong <tempD
		PushZLong <tempA
		jsl	WStringCopy

		lda	#idPathFld			; ID
		ldy	#InfoBlock.windText.path	; offset
		jsr	NewTextField

;---- Update Device field ----

		lda	IconType
		and	#itNetwork
		bne	doNet				; not a local volume
		
		add4	<InfoBlkPtr,#InfoBlock.windText.device,<tempA	

		lda	IconType
		and	#itVolume
		bne	vol				; volumes have good devNum
		
		add4	<InfoBlkPtr,#InfoBlock.windText.path,<tempB	

		PushZLong <tempA
		PushZLong <tempB
		jsl	GetDeviceName			; use pathname to get device name
		bra	cont1
		
vol		PushZLong <tempA
		ldy	#IconObject.devNum
		PushWord [<iconObjPtr],y	
		jsl	DeviceToString

*** Added - 17-Feb-93 JCM - Let's show the SCSI ID right after the device name if it's a SCSI device.

cont1		lda	SCSIPriority			;did we get a valid SCSI ID?
		bmi	@skipSCSIID			; nope, bye-bye
		
		clc
		adc	#$30				;convert to '0' - '7'
		sta	strSCSIIDByte

		lda	[<tempA]			;get current device string length
		inc	a
		inc	a				;move over length word
		tay
		
		ldx	#0
		
@copySCSIIDStr	lda	strSCSIID,x
		sta	[<tempA],y
		
		iny
		iny
		inx
		inx
		cpx	#8
		bne	@copySCSIIDStr
		
		lda	#8
		clc
		adc	[<tempA]
		sta	[<tempA]

@skipSCSIID	

*** End - 17-Feb-93 JCM

		lda	#idDeviceFld			; ID
		ldy	#InfoBlock.windText.device	; offset
		jsr	NewTextField
		bra	exit
		
;---- Update Server & Zone fields ----

doNet		add4	<InfoBlkPtr,#InfoBlock.windText.server,<tempA	
		add4	<InfoBlkPtr,#InfoBlock.windText.zone,<tempB	
		add4	<InfoBlkPtr,#InfoBlock.windText.path,<tempC

		PushZLong <tempA
		PushZLong <tempB
		PushZLong <tempC
		jsl	GetServerName
		
		lda	#idServerFld			; ID
		ldy	#InfoBlock.windText.server	; offset
		jsr	NewTextField

		lda	#idZoneFld			; ID
		ldy	#InfoBlock.windText.zone	; offset
		jsr	NewTextField

exit		rts

		string ASIS	
		EXPORT	strSCSIID
strSCSIID	dc.b	', SCSI '
strSCSIIDByte	ds.b	2				;one byte is filler

		ENDP

*===============================================*
* 	Set Info kind from Icon Object record.	*
*						*
* IN:	infoBlkPtr, iconObjPtr			*
* OUT:	none					*
*===============================================*

SetInfoKind	PROCNAME

		IMPORT	NewTextField
		IMPORT	PToWString
		IMPORT	PStringCopy
		IMPORT	GetFSTName
		IMPORT	PStringCat
		
;---- Update Kind field ----

		lda	#0
		ldy	#InfoBlock.windText.kind
		sta	[<InfoBlkPtr],y			; set length to zero

		add4	<InfoBlkPtr,#InfoBlock.windText.kind,<tempA

		lda	IconType			; is icon a volume?
		and	#itVolume
		beq	kind				; no

		PushZLong <tempA
		ldy	#IconObject.fileInfo
		PushWord [<iconObjPtr],y	
		jsl	GetFSTName			; get File System name

		lda	[<tempA]			; cheap W to P string
		inc	a
		tay
		xba
		sta	[<tempA]
		iny
		lda	#' '
		sta	[<tempA],y			; add in space character
		
kind		ldy	#IconObject.kind+1
		lda	[<IconObjPtr],y
		bne	@NoOneDoc
		
		ldy	#IconObject.rBundle
		lda	[<IconObjPtr],y
		sta	<TempB
		iny
		iny
		lda	[<IconObjPtr],y
		sta	<TempB+2
		
		lda	[<tempB]
		tax
		ldy	#2
		lda	[<tempB],y
		sta	<tempB+2
		stx	<tempB
		
		ldy	#IconObject.OneDocOffset
		lda	[<IconObjPtr],y
		clc
		adc	<tempB
;;;		adc	#32
		tax
		iny
		iny
		lda	[<IconObjPtr],y
		adc	<tempB+2
		pha
		phx
*** fixed 11-Jan-93 DAL to propogate carry correctly
		clc
		pla
		adc	#32
		pha
		bcc	@1
		lda	3,s
		inc	a
		sta	3,s
@1
*** end 11-Jan-93
		bra	@hadOneDoc

@NoOneDoc	ldy	#IconObject.kind+2		;get pointer to kind string
		lda	[<iconObjPtr],y
		pha
		dey
		dey
		lda	[<iconObjPtr],y
		pha
		
@hadOneDoc	ldx	<tempA+2
		lda	<tempA
		inc	a
		bne	cont
		inx
cont		phx
		pha
		jsl	PStringCat			; add in kind string

		lda	[<tempA]			; cheap P to W string
		xba
		sta	[<tempA]

*** Added - 17-Mar-93 JCM - Clear the old kind string out before we draw the new one.
***			    That way, if the new one is shorter than the older one, we
***			    won't get any leftover gunk.
		
		pha
		pha
		_GetPort
		
		PushZLong <infoWinPtr
		_SetPort
		
		pha				; space for handle
		pha
		PushZLong <infoWinPtr
		PushLong #idKindFld		;ID
		_GetCtlHandleFromID

		phd
		
		tsc
		tcd
		
		lda	[3]
		clc
		adc	#8			;oCtlRect
		tax
		ldy	#2
		lda	[3],y
		adc	#0
		pha
		phx
		_EraseRect
		
		pld
		
		pla
		pla
	
		_SetPort
	
*** End - 17-Mar-93 JCM

		lda	#idKindFld			; ID
		ldy	#InfoBlock.windText.kind	; offset
		jsr	NewTextField

		rts
		ENDP

*===============================================*
* 	Set Info Comment field			*
*						*
* IN:	infoBlkPtr, iconObjPtr			*
* OUT:	none					*
*===============================================*

SetInfoComment	PROC

		IMPORT	NewHandle
		IMPORT	HandleToPointer
		IMPORT	PstringCopy
		IMPORT	NewTextField
		IMPORT	WStringCopy
		IMPORT	GetComment
		IMPORT	doAlertWindow
		IMPORT	pathGetRoot
		IMPORT	c1_PathName

		lda	IconType
		and	#itNetwork
		bne	isFromNetwork
		
;
; only check for volumes or folders on local devices and do *NOT*, I repeat, do NOT
; get comments for local SYS files
;
		lda	IconType		;we dunna want it if it's a volume or
		and	#itVolume+itFolder	;or folder (just extended files)
		beq	isFromNetwork	
		rts				
		
isFromNetwork	ldy	#InfoBlock.windDirty
		lda	[<InfoBlkPtr],y
		bmi	@hasFork		;dunna have a (GS) resource fork
		brl	checkNetwork
			
@hasFork	pha
		pea	$8000			;as allowed, don't preload anything!
;;;		pushlong #0			;res map addr (NIL) - 17-Mar-93 JCM
		lda	#0			;17-Mar-93 JCM
		pha				;17-Mar-93 JCM
		pha				;17-Mar-93 JCM
		lda	#InfoBlock.windText.path
		clc
		adc	<InfoBlkPtr
		tax
		lda	<infoBlkPtr+2
		adc	#0
		pha
		phx
		_OpenResourceFile
		plx
		stx	resFileID
		bcc	@goodFork

		cmp	#$46			;file not found
		beq	@askForDisk
		brl	checkNetwork
		
@askForDisk
		pushlong #C1_PathName
		lda	#InfoBlock.windText.path
		clc
		adc	<InfoBlkPtr
		tax
		lda	<infoBlkPtr+2
		adc	#0
		pha
		phx
		jsl	PathGetRoot		;C1_PathName
		
		lda	#rasInsertDiskOrCancel
		jsl	doAlertWindow
		beq	@hasFork
		rts

;
; now, get the comment 
;
@goodFork	pha				; space for handle
		pha
		PushZLong <infoWinPtr
		pushlong #idCommentFld
		_GetCtlHandleFromID		;handle to TE record
		pulllong teHandle

		pha
		pea	1
		_SetResourceFileDepth
		pla
		sta	oldDepth
		
		pha
		pha
		pea	rComment	;$802A
		pushlong #1
		_LoadResource
		pla
		plx
		bcc	@haveAComment
		brl	@checkBeforeClosing
@haveAComment
		
		sta	commentHandle
		sta	<tempE
		stx	commentHandle+2
		stx	<tempE+2
		
		ldy	#4			;lock the handle down
		lda	[<tempE],y
		ora	#$8000
		sta	[<tempE],y
				
		pea	$D			;textRef is handle, unformatted text
		pushZLong <tempE
		pushlong #0			;length
		pea	0			;style
		pushlong #0			;styleref
	 	pushlong teHandle
		_TESetText

		pea	-1
		pea	rComment		;$802A
		pushlong #1
		_ReleaseResource
		
;
; before closing, check to see if we were able to get write permissions for this file,
; and set the bits in textFlags accordingly
;
@checkBeforeClosing
		pha
		lda	resFileID
		pha
		_GetOpenFileRefNum
		pla
		
		sta	refInfoParms+2
		
		jsl	$e100a8
		dc.w	$2039			;_GetRefInfo refInfoParms
		dc.L	refInfoParms
		
		lda	teHandle
		sta	<tempE
		lda	teHandle+2
		sta	<tempE+2
		
		lda	[<tempE]
		tax
		ldy	#2
		lda	[<tempE],y
		sta	<tempE+2
		stx	<tempE
		
		lda	refInfoParms+4		;get access we were provided
		and	#$0002
		tax					
		lda	teTextFlags,x		;0=disable, 2=enable
		ldy	#$28+2
		sta	[<tempE],y
		
		lda	resFileID
		pha
		_CloseResourceFile
		
		pha
		lda	oldDepth
		pha
		_SetResourceFileDepth
		pla
		rts

;
; checkNetwork -- see if this icon belonged the something on the net, and if so, read
; the comment out into a handle which we'll use to do the TESetText
;
checkNetwork
		lda	IconType
		and	#itNetwork
		bne	@fromNetwork
		rts

@fromNetwork	pha
		pha
		pea	202			;need a 202 byte handle
		jsl	NewHandle	
		pulllong commentHandle
		
		pha
		pha
		pushlong commentHandle		;lock it down
		jsl	HandleToPointer
		pulllong <tempB			;put the comment here

		add4	<InfoBlkPtr,#InfoBlock.windText.path,<tempA

		PushZLong <tempA		;ptr to pathname
		PushZLong <tempB		;ptr to comment string
		jsl	GetComment		

		pea	2			;textDescriptor is a C1_InputString
		pushZLong <tempB		;textRef
		pushlong #0			;length
		pea	0			;style
		pushlong #0			;styleref
	 	
		pha				; space for handle
		pha
		PushZLong <infoWinPtr
		pushlong #idCommentFld
		_GetCtlHandleFromID		;handle to TE record
		_TESetText

		jsr	SetTEEditable

		pushlong commentHandle
		jsl DisposeHandleGlue
		rts

;
; locals
;
oldDepth	dc.w	0			;old resource manager search depth

refInfoParms	dc.w	2
		dc.w	0			;input, refnum
		dc.w	0			;access
	
teHandle	dc.L	0
teTextFlags	dc.w	$6608			;no editing
		dc.w	$6208			;allow editing
		
resFileID	dc.w	0
commentHandle	dc.L	0


; setTEEditable -- set the TE control to allow editing if it looks like
;		   we'll be able to write the comment back
;
;		   for this to work, the icon has to be unlocked, and
;		   also the current folder has to allow
;
;.....................................................................

		export	SetTEEditable
SetTEEditable	name
		
		pha				; space for handle
		pha
		PushZLong <infoWinPtr
		pushlong #idCommentFld
		_GetCtlHandleFromID		;handle to TE record
		pla
		sta	<tempE
		pla
		sta	<tempE+2
		
		lda	[<tempE]
		tax
		ldy	#2
		lda	[<tempE],y
		sta	<tempE+2
		stx	<tempE

		lda	IconType
		and	#itNetwork
		beq	@canMakeChanges
		
		ldy	#InfoBlock.windAccess
		lda	[<infoBlkPtr],y
		and	#icInfoMakeChanges>>16
		bne	@canMakeChanges
		
		lda	teTextFlags		;turn the textEdit editing off...
		ldy	#$28+2
		sta	[<tempE],y		
		rts

@canMakeChanges	ldy	#icFlag
		lda	[<iconObjPtr],y
		and	#icLocked
		beq	@writable
		
		lda	teTextFlags		;disable comment editing
		bra	@notWritable
		
@writable	lda	teTextFlags+2		;enable comment editing
@notWritable	ldy	#$28+2
		sta	[<tempE],y
		rts
		ENDP
		
*===============================================*
* Set Content from Icon Object record.		*
*						*
* IN:	infoBlkPtr, iconObjPtr			*
* OUT:	none					*
*===============================================*

SetInfoContent	PROC

		IMPORT	NewTextField
		IMPORT	PToWString
		IMPORT	strPressCalc

		lda	IconType
		and	#itVolume+itFolder
		beq	exit				; not a volume

		add4	<InfoBlkPtr,#InfoBlock.windText.content,<tempA

		PushLong #strPressCalc			; "use calculate icon..."
		PushZLong <tempA
		jsl	PToWString
		
		lda	#idContentFld			; ID
		ldy	#InfoBlock.windText.Content	; offset
		jsr	NewTextField
exit		rts
		
		ENDP
		
*===============================================*
*    Set Info Size from Icon Object record.	*
*						*
* IN:	infoBlkPtr, iconObjPtr			*
* OUT:	none					*
*===============================================*

SetInfoSize	PROC
		
		IMPORT	SizeToString
		IMPORT	NewTextField
		IMPORT	PStringCopy
		IMPORT	PStringCat
		IMPORT	GetFSTBlockSize

		IMPORT	strPressCalc			; in string segment
		IMPORT	strBytesUsed
		IMPORT	strInDisk
		IMPORT	strAvailable
		IMPORT	strOnDisk

		lda	IconType
		and	#itTrash
		beq	notTrash
		brl	exit

;---- Update file size ----
notTrash
		lda	#0
		ldy	#InfoBlock.windText.size
		sta	[<InfoBlkPtr],y			; set length to zero

		add4	<InfoBlkPtr,#InfoBlock.windText.size+1,<tempA
		
		lda	IconType			; is icon a folder?
		and	#itFolder
		beq	notFolder
		brl	folder

notFolder	lda	IconType			; is icon a volume?
		and	#itVolume
		beq	file
		brl	volume

;
; --- Set size for file icon ----------------------------				
;
file
		ldy	#IconObject.fileBlocks
		lda	[<iconObjPtr],y
		sta	blocks
		iny
		iny
		lda	[<iconObjPtr],y
		sta	blocks+2

		lda	#2			;default to K
		sta	multiplier

		jsr	GetBlocksIn1MB
		
		ldy	#IconObject.fileBlocks+2
		lda	[<IconObjPtr],y
		bne	@blocksInMB
		dey
		dey
		lda	[<IconObjPtr],y
		cmp	BlocksIn1MB
		blt	@blocksInK	
@blocksInMB	lda	#8
		sta	multiplier
@blocksInK

		PushLong #blkStr			; get block count in ascii
		PushLong blocks
		lda	multiplier			; type = kilo or MB
		pha
		ldy	#IconObject.fst
		lda	[<IconObjPtr],y
		jsl	GetFSTBlockSize
		pha
		jsl	SizeToString

		PushZLong <tempA			; get byte count in ascii
		PushLong [<IconObjPtr],IconObject.fileBytes
		pea	1				; type = byte
		pea	512				; blocksize (doesn't matter)
		jsl	SizeToString

		PushLong #strBytesUsed			; add " used, "
		PushZLong <tempA
		jsl	PStringCat
		
		PushLong #blkStr			; add block count
		PushZLong <tempA
		jsl	PStringCat

		PushLong #strOnDisk			; add " on disk"
		PushZLong <tempA
		jsl	PStringCat
		brl	set

;--- Set size for volume icon --------------------------
volume
		ldy	#IconObject.fileBytes		; total blocks (volume)
		lda	[<iconObjPtr],y
		sec
		ldy	#IconObject.fileBlocks		; blocks used
		sbc	[<iconObjPtr],y
		sta	blocks
		
		ldy	#IconObject.fileBytes+2
		lda	[<iconObjPtr],y
		ldy	#IconObject.fileBlocks+2
		sbc	[<iconObjPtr],y
		sta	blocks+2		

		lda	#2
		sta	multiplier

		jsr	GetBlocksIn1MB
		
		lda	blocks+2
		bne	@freeInMB
		lda	blocks
		cmp	BlocksIn1MB
		blt	@freeInK
@freeInMB	lda	#8
		sta	multiplier
@freeInK

		PushLong #blkStr		
		pushlong blocks				; blocks available (hi word)
		lda	multiplier
		pha
		ldy	#IconObject.fst
		lda	[<iconObjPtr],y
		jsl	GetFSTBlockSize
		pha
		jsl	SizeToString			; get used blocks in ascii

		ldy	#IconObject.fileBlocks
		lda	[<iconObjPtr],y
		sta	blocks
		iny
		iny
		lda	[<iconObjPtr],y
		sta	blocks+2

		lda	#2
		sta	multiplier
		
		ldy	#IconObject.fileBlocks+2
		lda	[<iconObjPtr],y
		bne	@usedInMB
		dey
		dey
		lda	[<iconObjPtr],y
		cmp	BlocksIn1MB
		blt	@usedInK
@usedInMB	lda	#8
		sta	multiplier
@usedInK

		PushZLong <tempA
		PushLong blocks
		lda	multiplier
		pha
		ldy	#IconObject.fst
		lda	[<iconObjPtr],y
		jsl	GetFSTBlockSize
		pha
		jsl	SizeToString			; get blocks used in ascii

		PushLong #strInDisk			; add " in disk,  "
		PushZLong <tempA
		jsl	PStringCat

		PushLong #blkStr			; add available blocks
		PushZLong <tempA
		jsl	PStringCat

		PushLong #strAvailable			; add " free"
		PushZLong <tempA
		jsl	PStringCat
		bra	set

;
; --- Folder icons don't have any size (yet) -----------
;

folder
		PushLong #strPressCalc
		PushZLong <tempA
		jsl	PStringCopy
		
set		ldy	#InfoBlock.windText.size
		lda	[<InfoBlkPtr],y
		xba					; cheap P to W conversion
		sta	[<InfoBlkPtr],y

		lda	#idSizeFld			; ID
		ldy	#InfoBlock.windText.size	; offset
		jsr	NewTextField
exit		rts

;
; GetBlocksIn1MB -- get the number of FST sized blocks in 1MB
;
GetBlocksIn1MB	lda	#1048576/512		;assume 512 byte blocks
		sta	BlocksIn1MB
		
		ldy	#IconObject.fst
		lda	[<IconObjPtr],y
		jsl	GetFSTBlockSize		
		cmp	#512
		beq	@notOddSize

		pha
		pha
		pha
		pha
		pushlong #1048576		;numerator = 1MB
		pea	0
		pha				;denominator = block size (will never be zero)
		_LongDivide
		pla
		sta	BlocksIn1MB
		plx
		plx
		plx

@notOddSize	rts

;
; locals
;
blocksIn1MB	dc.w	0
multiplier	dc.w	2				;K or MB
bytes		ds.b	4
blocks		ds.b	4
blkStr		DS.B	10
		ENDP

*===============================================*
*    Set Info Access Privilege Names.		*
*						*
* IN:	infoBlkPtr, iconObjPtr, IconType,	*
*	infoWinPtr				*
* OUT:	none					*
*===============================================*

SetInfoAccess	PROC

		IMPORT	SetAccessValues
		IMPORT	GetPrivileges
		IMPORT	NewTextField
		IMPORT	PStringCat
		IMPORT	PStringCopy
		IMPORT	PToWString

		IMPORT	StringBase		; strings from string segment
		IMPORT	strPriv0
		IMPORT	strPriv1
		IMPORT	strPriv2
		IMPORT	strPriv3
		IMPORT	strPriv4
		IMPORT	strPriv5
		IMPORT	strPriv6
		IMPORT	strPriv7

;---- Check for Network AND Volume/Folder ----

		lda	IconType
		and	#itNetwork+itVolume+itFolder
		cmp	#itNetwork+itVolume
		beq	good		
		cmp	#itNetwork+itFolder
		beq	good
		brl	exit			; not a network folder/volume
		
good		add4	<InfoBlkPtr,#InfoBlock.windText.owner,<tempA
		add4	<InfoBlkPtr,#InfoBlock.windText.group,<tempB
		add4	<InfoBlkPtr,#InfoBlock.windText.path,<tempC

;---- Get the Access Priv. data ----

		pha				; space for access result
		pha
		PushZLong <tempA		; ptr to owner string
		PushZLong <tempB		; ptr to group string
		PushZLong <tempC		; ptr to pathname
		jsl	GetPrivileges
		PullLong <tempC
		bcc	which
		brl	exit			; error
		
which		lda	IconType
		and	#itOwner
		beq	staticSetUp
		brl	dynamicSetUp

staticSetUp
;---- Update static owner & group name ----

		lda	#idOwnerFld			; ID
		ldy	#InfoBlock.windText.owner	; offset
		jsr	NewTextField

		lda	#idGroupFld			; ID
		ldy	#InfoBlock.windText.group	; offset
		jsr	NewTextField

;---- Update privileges summary ----

		add4	<InfoBlkPtr,#InfoBlock.windText.privilege,<tempA
		PushWord #StringBase>>16
		lda	<tempC
		and	#$0007
		asl	a
		tax
		lda	StringMap,x
		pha
		PushZLong <tempA
		jsl	PToWString

		lda	#idPrivilegeFld			; ID
		ldy	#InfoBlock.windText.privilege	; offset
		jsr	NewTextField
		brl	exit

;---- Update dynamic owner name ----
dynamicSetUp
		lda	<tempC
		ldx	<tempC+2
		jsr	SetAccessValues

		lda	[<tempA]		; get length & move pointer up
		tax
		clc
		lda	<tempA
		adc	#2
		sta	<tempA
		lda	<tempA+2
		adc	#0
		sta	<tempA+2

		PushZLong <tempA		; text pointer
		phx				; text length
		pha				; space for handle1
		pha
		pha				; space for handle2
		pha
		PushZLong <infoWinPtr
		PushLong #idOwner		; ID
		_GetCtlHandleFromID
		_GetCtlTitle			; get editLine handle
		_LESetText
		
		lda	[<tempB]		; get length & move pointer
		tax
		clc
		lda	<tempB
		adc	#2
		sta	<tempB
		lda	<tempB+2
		adc	#0
		sta	<tempB+2
		
;---- Update dynamic group name ----

		PushZLong <tempB		; text pointer
		phx				; text length
		pha				; space for handle1
		pha
		pha				; space for handle2
		pha
		PushZLong <infoWinPtr
		PushLong #idGroup		; ID
		_GetCtlHandleFromID
		_GetCtlTitle			; get editLine handle
		_LESetText		

exit		rts

StringMap	DC.W	StrPriv0,StrPriv1,StrPriv2,StrPriv3
		DC.W	StrPriv4,StrPriv5,StrPriv6,StrPriv7

		ENDP
		
*===============================================*
*    Set Info title from Icon Object record.	*
*						*
* IN:	infoBlkPtr, iconObjPtr			*
* OUT:	none					*
*===============================================*

SetInfoDates	PROC

		IMPORT	DateToString
		IMPORT	NewTextField
		
;---- get user's date format ----

		lda	IconType
		and	#itTrash
		beq	notTrash
		brl	exit

notTrash
		pha
		PushWord #$34			; Get date format
		_ReadBParam
		PullWord <tempA			; set date format bits
		
		pha
		PushWord #$35			; Get time format
		_ReadBParam
		pla
		beq	ok0
		lda	#$8000			; set 24 hour bit
ok0		ora	#$4000			; set use weekday bit
		tsb	<tempA

;---- Update modify date ----

		add4	<iconObjPtr,#IconObject.mDate,<tempC
		add4	<infoBlkPtr,#InfoBlock.windText.modify+1,<tempB

		lda	#0
		ldy	#InfoBlock.windText.modify
		sta	[<infoBlkPtr],y

		PushZLong <tempB			; ptr to destination string
		PushZLong <tempC			; ptr to date record
		PushWord <tempA			; date format
		jsl	DateToString
		
		ldy	#InfoBlock.windText.modify
		lda	[<infoBlkPtr],y
		xba					; cheap P to C1 conversion
		sta	[<infoBlkPtr],y
		
		lda	#idModifyFld			; ID
		ldy	#InfoBlock.windText.modify	; offset
		jsr	NewTextField

;---- Update create date ----

		add4	<infoBlkPtr,#InfoBlock.windText.create+1,<tempB
		add4	<iconObjPtr,#IconObject.cDate,<tempC

		lda	#0
		ldy	#InfoBlock.windText.create
		sta	[<infoBlkPtr],y

		PushZLong <tempB			; ptr to destination string
		PushZLong <tempC			; ptr to date record
		PushWord <tempA				; date format
		jsl	DateToString
		
		ldy	#InfoBlock.windText.create
		lda	[<infoBlkPtr],y
		xba					; cheap P to C1 conversion
		sta	[<infoBlkPtr],y

		lda	#idCreateFld			; ID
		ldy	#InfoBlock.windText.create	; offset
		jsr	NewTextField
exit		rts

		ENDP
				
*===============================================*
*    Set Info title from Icon Object record.	*
*						*
* IN:	infoBlkPtr, iconObjPtr			*
* OUT:	none					*
*===============================================*

SetInfoTitle	PROC

		IMPORT	finderDPage
		IMPORT	insertItemRef
		IMPORT	wind_ref
		IMPORT	addIWindow2Menu
		IMPORT	removeMenuInfoItem
		
		IMPORT	NameField:StatTextTemplate
		IMPORT	PStringCat
		IMPORT	PStringCopy
		IMPORT	PToWString
		IMPORT	PStrClip

		IMPORT	strInfo1		; strings in string segment
		IMPORT	strInfo2
		IMPORT	strInfo3
		IMPORT	strInfo4
		IMPORT	tempStrg1

;
; update window title
;
		add4	<InfoBlkPtr,#InfoBlock.windtitle,<tempA
		add4	<iconObjPtr,#IconObject.name,<tempB
				
		PushLong #strInfo1		; source = '  Info on "'
		PushZLong <tempA		; destination
		jsl	PStringCopy		
		PushZLong <tempB		; source = icon name
		PushZLong <tempA		; destination
		jsl	PStringCat
		PushLong #strInfo2		; source = '"  '
		PushZLong <tempA		; destination
		jsl	PStringCat

		PushZLong <tempA		; ptr to title string
		PushZLong <infoWinPtr
		_SetWTitle

;
; update window's menu title field
;
		add4	<InfoBlkPtr,#InfoBlock.windMenuText,<tempA
				
		PushLong #strInfo3		; source = 'Info on "'
		PushZLong <tempA		; destination
		jsl	PStringCopy		
		PushZLong <tempB		; source = icon name
		PushZLong <tempA		; destination
		jsl	PStringCat
		PushLong #strInfo4		; source = '"'
		PushZLong <tempA		; destination
		jsl	PStringCat
		
		ldy	#windMenuItem		;see if we already assigned a menu item
		lda	[<infoBlkPtr],y
		beq	@justAdd		;if we didn't just add it

		lda	<infoBlkPtr
		tax
		lda	<infoBlkPtr+2
		tay
		
		phd
		lda	>finderDPage
		tcd

		jsl	removeMenuInfoItem
		pld

@justAdd	lda	<infoBlkPtr
		sta	>wind_ref		
		clc
		adc	#windMenuText
		sta	>insertItemRef+10
		lda	<infoBlkPtr+2
		sta	>wind_ref+2
		adc	#0
		sta	>insertItemRef+12

		phd
		lda	>finderDPage
		tcd
		jsl	addIWindow2Menu		;add the trash to the windows menu
		pld

;
; update icon name field
;
		add4	<InfoBlkPtr,#InfoBlock.windText.name,<tempA
		
		PushZLong <tempB		; source = icon name
		PushLong #tempStrg1
		lda	NameField.rect+x2
		sec
		sbc	NameField.rect+x1
		pha				; pixel width
		jsl	PStrClip		; clip to pixel width
		
		PushLong #tempStrg1
		PushZLong <tempA			; destination
		jsl	PToWString

		lda	#idNameFld			; ID
		ldy	#InfoBlock.windText.name	; offset
		jsr	NewTextField

		rts

		ENDP
		
*===============================================*
*    Get Icon Type form its attributes		*
*						*
* IN:	iconObjPtr				*
* OUT:	IconType				*
*===============================================*

GetIconType	PROC
		
		stz	IconType

isNetwork	ldy	#IconObject.flag+2
		lda	 [<iconObjPtr],y
		and	#icNetWork>>16
		beq	isVolume
		lda	#itNetwork
		tsb	IconType
		
isVolume	ldy	#IconObject.fileType
		lda	 [<iconObjPtr],y
		bpl	isFolder
		cmp	#$FFF9
		beq	trashy
		cmp	#$FFFE
		bcc	cont
trashy		lda	#itTrash
		tsb	IconType		
		bra	exit
cont		lda	#itVolume
		tsb	IconType
		bra	isOwner

isFolder	cmp	#$000F
		bne	isDriver
		lda	#itFolder
		tsb	IconType
		
isOwner		ldy	#IconObject.flag+2
		lda	 [<iconObjPtr],y
		and	#$0008
		beq	isDriver
		lda	#itOwner
		tsb	IconType
		bra	exit
		
isDriver	ldy	#IconObject.fileType
		lda	 [<iconObjPtr],y

;*** added 1-Oct-92 DAL -- filetypes $38-3F can be inactive (6.0.1)
;		cmp	#$38
;		bcc	exit
;		cmp	#$3F+1
;		bcc	good
;*** end 1-Oct-92
;		cmp	#$CA			;we also do finder icon files
;		beq	good			
;		cmp	#$C7			;we also do CDev files
;		beq	good
;		cmp	#$B6			;$B6  ² FileType ² $BD  ?
;		bcc	exit
;		cmp	#$BD+1
;		bcs	exit
;		cmp	#$BA			;we don't do tool files
;		beq	exit
;*** commented out following 2 lines 16-Apr-91 DAL so we can inactivate $BC files
;;		cmp	#$BC			; we don't do generic load files
;;		beq	exit

*** added 1-Oct-92 DAL
		import FiFiFiSearch

		ldx #$ffff
		txy		;impossible auxtype (match only generic filetype)
		jsl FiFiFiSearch
		tya		;Y = flags
		lsr a
		bcc exit	;bit 0 set --> can be inactive
*** end 1-Oct-92

good		lda	#itDriver
		tsb	IconType
		
exit		rts

		ENDP
		
*===============================================*
*	Set Access values for Pop Ups		*
*						*
* IN:	infoBlkPtr, infoWinPtr,access (a,x-reg)	*
*						*
* OUT:	none					*
*===============================================*

SetAccessValues	PROC

		sta	Access
		stx	Access+2

;---- map access settings to pop-up values ----
		
		ldy	#0
loop1		stz	Value
		lda	Access+1		; get the everyone setting
		and	Mask,y
		beq	chkOwner
		lda	#4
		tsb	Value			; set bit 2
		bra	saveValue		; all done since everyone overrides

chkOwner	lda	Access+3		; get the owner setting
		and	Mask,y
		beq	chkGroup
		lda	#1
		tsb	Value			; set bit 0
		
chkGroup	lda	Access+2		; get the group setting
		and	Mask,y
		beq	saveValue
		lda	#2
		tsb	Value			; set bit 1
		
saveValue	lda	Value
		inc	a			; make it 1 relative
		sta	PopValues,y
		iny
		iny
		cpy	#2*3
		bcc	loop1

;---- now match setting to a class ----
		
		ldx	#0
		ldy	#2
loop2		lda	PopValues		; check if settings match
		cmp	Settings,x
		bne	next
		lda	PopValues+2
		cmp	Settings+2,x
		bne	next
		lda	PopValues+4
		cmp	Settings+4,x
		beq	match
next		iny
		txa
		clc
		adc	#6
		tax
		cpx	#4*6
		bcc	loop2
		ldy	#1			; else, use custom
match		sty	PopValues+6

;---- update our data structures ----

		sep	#$10
		ldx	<infoBlkPtr+2
		phx
		plb
		rep	#$10
		ldy	<infoBlkPtr
		
		ldx	#0
@loop3		phy
		phx

		lda	>PopValues,x
		sta	|InfoBlock.PopValue,y	; update our record
		sta	|InfoBlock.PopDefault,y

		pha				; new value
		pha				; space for handle
		pha
		PushZLong <infoWinPtr
		pea	$0000			; hi word of ID
		lda	>IDs,x
		pha				; lo word of ID
		_GetCtlHandleFromID
		_SetCtlValue			; update control's record
		plx
		ply
		iny
		iny
		inx
		inx
		cpx	#4*2
		bcc	@loop3

		phk
		plb
		rts
		
PopValues	DS.W	4
Access		DS.L	1
Value		DS.W	1

Mask		DC.W	1,2,4			;see folder, see file, make changes

		ENDP
		
*===============================================*
*	Get Access values from Pop Ups		*
*						*
* IN:	infoBlkPtr, iconObjPtr			*
*						*
* OUT:	access (a,x-reg)			*
*===============================================*

GetAccessValues	PROC

;---- Get data from our data structures ----

		ldx	#0
		ldy	#InfoBlock.PopValue		
@loop1		lda	[<infoBlkPtr],y		; look at our record
		dec	a			; make it 0 relative
		sta	PopValues,x
		iny
		iny
		inx
		inx
		cpx	#3*2
		bcc	@loop1

;---- map pop-up values to access settings ----
		
		stz	Access
		stz	Access+2
		
		ldy	#0
loop2		lda	PopValues,y		; check if owner has access
		and	#$0001
		beq	chkGroup		; no
		lda	Mask,y
		tsb	Access+3		; set owner bits 

chkGroup	lda	PopValues,y		; check if group has access
		and	#$0002
		beq	chkEveryone		; no
		lda	Mask,y
		tsb	Access+2		; set group bits 
		
chkEveryone	lda	PopValues,y		; check if everyone has access
		and	#$0004
		beq	next			; no
		lda	Mask,y
		tsb	Access+1		; set everyone bits 
		
next		iny
		iny
		cpy	#2*3
		bcc	loop2

;		ldy	#IconObject.access+2
;		lda	[<iconObjPtr],y
;		and	#$F000			; mask out user's access bits
;		ora	Access			; add in new settings
;		sta	[<iconObjPtr],y

		lda	Access
		ldx	Access+2
		rts
		
PopValues	DS.W	4
Access		DS.L	1
Value		DS.W	1

Mask		DC.W	1,2,4			;see folder, see file, make changes

		ENDP
		

*===============================================*
* Calculate the size occupied by a folder	*
*===============================================*

CalculateSize	PROC

PREF_HDATA	equ	$0010				; TRUE to hide invisible files

		IMPORT	Prefer
		IMPORT	SizeToString
		IMPORT	NewTextField
		IMPORT	WalkDirectory
		IMPORT	PStringCat
		IMPORT	PtoWString
		IMPORT	PStringCopy
		IMPORT	GetFSTBlockSize

		IMPORT	strBytesUsed			; in string segment
		IMPORT	strOnDisk
		IMPORT	strFiles
		IMPORT	strFolders
		IMPORT	strFile				; variations on a string
		IMPORT	strFolder
		IMPORT	strAccFolder
		IMPORT	strAccFolders
		IMPORT	strCalculating
		IMPORT	strPressCalc			;18-Mar-93 JCM
		
		IMPORT	SetInfoContent			;18-Mar-93 JCM
		
*===============================================*

		stz	OKAccess

		add4	<InfoBlkPtr,#InfoBlock.windText.content,<tempA
		PushLong #strCalculating
		PushZLong <tempA
		jsl	PtoWString			; display "Calculating..."	
		lda	#idContentFld			; ID
		ldy	#InfoBlock.windText.content	; offset
		jsr	NewTextField

		lda	IconType			; don't calc size if volume
		and	#itVolume
		bne	cont

		add4	<InfoBlkPtr,#InfoBlock.windText.size,<tempA
		PushLong #strCalculating
		PushZLong <tempA
		jsl	PtoWString			; display "Calculating..."	
		lda	#idSizeFld			; ID
		ldy	#InfoBlock.windText.size	; offset
		jsr	NewTextField

cont		lda	<InfoBlkPtr
		clc
		adc	#InfoBlock.windText.path
		tax
		lda	<InfoBlkPtr+2
		adc	#0
		pha					; ptr to pathname - MSW
		phx					; ptr to pathname - LSW
		PushZPtr <tempA				; ptr to folder count
		PushZPtr <tempB				; ptr to file count
		lda	IconType			; don't calc size if volume
		and	#itVolume
		beq	needSize			

*** Ick! - 18-Mar-93 JCM

;;;		PushLong #0				; don't want block count
;;;		PushLong #0				; don't want byte count
		lda	#0
		pha
		pha
		pha
		pha

*** End - 18-Mar-93 JCM

		bra	pref
needSize	PushZPtr <tempC				; ptr to block count
		PushZPtr <tempD				; ptr to byte count
pref		lda	>prefer				; get user's preference
		and	#PREF_HDATA
		eor	#PREF_HDATA
		pha					; flag ­ 0: count invisible files
		jsl	WalkDirectory
		bcc	ok
	
*** Added - 18-Mar-93 JCM - Did the user terminate the calculate?
	
		cmp	#$4000				;user terminated with OA-.
		beq	@OAPeriodHit
	
*** End - 18-Mar-93 JCM
	
		inc	OKAccess			; was it an accessiblity problem?
		cmp	#$8000
		beq	ok				; yes
		
		add4	<InfoBlkPtr,#InfoBlock.windText.size,<tempA
		PushLong #strBadSize
		PushZLong <tempA
		jsl	PtoWString			; use "(not enought Privileges)"	

		brl	set

*** Added - 18-Mar-93 JCM - The user hit command-period to kill the calculate. Now we
***			    need to reset the field or fields back to "use calculate icon...".

@OAPeriodHit	lda	IconType			;size is ok for volumes
		and	#itVolume
		bne	@setContents

		add4	<InfoBlkPtr,#InfoBlock.windText.size,<tempA

		PushLong #strPressCalc			; "use calculate icon..."
		PushZLong <tempA
		jsl	PToWString
		
		lda	#idSizeFld			; ID
		ldy	#InfoBlock.windText.size	; offset
		jsr	NewTextField

@setContents	jsr	SetInfoContent
		
		rts
		
*** End - 18-Mar-93 JCM
		
;--- Convert numbers to ascii --------------------------

ok		PushLong #blockStr			; get block count in ascii
		PushZLong <tempC
		pea	2				; type = K
		ldy	#IconObject.fst
		lda	[<iconObjPtr],y
		jsl	GetFSTBlockSize
		pha		
		jsl	SizeToString

		PushLong #fileStr			; get file count in ascii 
		PushZLong <tempB
		pea	0				; type = plain
		pea	512				; blocksize (doesn't matter)
		jsl	SizeToString

		PushLong #folderStr			; get folder count in ascii 
		PushZLong <tempA
		pea	0				; type = plain
		pea	512				; blocksize (doesn't matter)
		jsl	SizeToString

;--- make size string ----------------------------------

		lda	IconType			; don't calc size if volume
		and	#itVolume
		bne	content

		lda	#0
		ldy	#InfoBlock.windText.size
		sta	[<InfoBlkPtr],y			; set string length to zero

		add4	<InfoBlkPtr,#InfoBlock.windText.size+1,<tempC

		PushZLong <tempC				; get byte count in ascii
		PushZLong <tempD
		pea	1				; type = byte
		pea	512				; blocksize (doesn't matter)
		jsl	SizeToString

		PushLong #strBytesUsed			; add " used, "
		PushZLong <tempC
		jsl	PStringCat
		
		PushLong #blockStr			; add block count
		PushZLong <tempC
		jsl	PStringCat

		PushLong #strOnDisk			; add " on disk"
		PushZLong <tempC
		jsl	PStringCat

		ldy	#InfoBlock.windText.size
		lda	[<InfoBlkPtr],y
		xba					; cheap P to W conversion
		sta	[<InfoBlkPtr],y
		
		lda	#idSizeFld			; ID
		ldy	#InfoBlock.windText.size	; offset
		jsr	NewTextField

;--- Get content string ---
content
		lda	#0
		ldy	#InfoBlock.windText.content
		sta	[<InfoBlkPtr],y			; set string length to zero

		add4	<InfoBlkPtr,#InfoBlock.windText.content+1,<tempC

		PushLong #fileStr			; add file count
		PushZLong <tempC
		jsl	PStringCopy

		PushWord #strFiles>>16			; push string bank
		lda	<tempB+2			; is file count = 1 ?
		bne	pluarl2
		lda	<tempB
		cmp	#1
		bne	pluarl1
		lda	 #strFile			; add "file, "
		bra	cont1
pluarl1		lda	 #strFiles			; add "files, "
cont1		pha
		PushZLong <tempC
		jsl	PStringCat

		PushLong #folderStr			; add folder count
		PushZLong <tempC
		jsl	PStringCat

		PushWord #strFolders>>16		; push string bank
		lda	<tempA+2			; is folder count = 1 ?
		bne	pluarl2
		lda	<tempA
		cmp	#1
		bne	pluarl2
		lda	OKAccess			; any access problems?
		beq	singular2
		lda	 #strAccFolder			; add " folder accessible"
		bra	cont2
singular2	lda	 #strFolder			; add " folder"
		bra	cont2
pluarl2		lda	OKAccess			; any access problems?
		bne	access
		lda	 #strFolders			; add " folders"
		bra	cont2
access		lda	 #strAccFolders			; add " folders accessible"
cont2		pha
		PushZLong <tempC
		jsl	PStringCat

convert		ldy	#InfoBlock.windText.content
		lda	[<InfoBlkPtr],y
		xba					; cheap P to W conversion
		sta	[<InfoBlkPtr],y
		
set		lda	#idContentFld			; ID
		ldy	#InfoBlock.windText.content	; offset
		jsr	NewTextField
		rts

blockStr	DS.B	16
fileStr		DS.B	16
folderStr	DS.B	16
OKAccess	DC.W	0

		STRING	PASCAL
strBadSize	DC.B	'(encountered file system errors)'

		ENDP
		
*===============================================*
*	Redraw the Icon's Lock			*
*						*
* IN:	a,x = iconObjPtr			*
* OUT:	none					*
*===============================================*
RedrawIconLock	PROC

		IMPORT	finderDPage
		IMPORT	FixIconLock

		tay				; temp save of a-reg
		
		phd				; glue to "Bad" code
		lda	>finderDPage
		tcd
		tya				; a,x = iconObjPtr
		jsl	FixIconLock

		pld
		rts
		
		ENDP

		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Finder/GetInfo.equ b/IIGS.601.SRC/A.U.G/Finder/GetInfo.equ
new file mode 100644
index 0000000..04e4978
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Finder/GetInfo.equ
@@ -0,0 +1 @@
+idApply		equ	1			; active control IDs
idApplyAll	equ	2
idOwner		equ	3
idGroup		equ	4
idClass		equ	5
idSeeFolders	equ	6
idSeeFiles	equ	7
idMakeChanges	equ	8
idLocked	equ	9
idInactive	equ	10
idCalculate	equ	11
idLockedStr	equ	12
idInactiveStr	equ	13
idCommentFld	equ	14

idOwnerStr	equ	$8001			; inactive control IDs (access card)
idOwnerFld	equ	$8002
idGroupStr	equ	$8003
idGroupFld	equ	$8004
idPrivilegeStr	equ	$8005
idPrivilegeFld	equ	$8006

idTrashFld	equ	$8010			; inactive control IDs (general card)
idDriveFld	equ	$8011
idNameFld	equ	$8012
idRealNameFld	equ	$8013
idKindStr	equ	$8014
idKindFld	equ	$8015
idSizeStr	equ	$8016
idSizeFld	equ	$8017
idCopyrightFld	equ	$8018
idCreateStr	equ	$8019
idCreateFld	equ	$801A
idModifyStr	equ	$801B
idModifyFld	equ	$801C
idContentStr	equ	$801D
idContentFld	equ	$801E

idPathStr	equ	$801F			; inactive control IDs (where)
idPathFld	equ	$8020
idDeviceStr	equ	$8021
idDeviceFld	equ	$8022
idServerStr	equ	$8023
idServerFld	equ	$8024
idZoneStr	equ	$8025
idZoneFld	equ	$8026

idLineStr1	equ	$8027
idLineStr2	equ	$8028

idIconButton	equ	$8029

PopVal		RECORD	0			;popUp values
;-----------------------------------------------
folder		DS.W	1
file		DS.W	1 
change		DS.W	1
class		DS.W	1
;-----------------------------------------------
		ENDR 

TextRecord	RECORD  0			;Info window text record
;-----------------------------------------------
name		DS.B	34
kind		DS.B	40
content		DS.B	48
size		DS.B	72
create		DS.B	32
modify		DS.B	32
device		DS.B	34+8
server		DS.B	34
zone		DS.B	34
owner		DS.B	34
group		DS.B	34
privilege	DS.B	64
verName		DS.B	41
verCopyright	DS.B	64
path		DS.B	maxPathLen+MaxFileName
;-----------------------------------------------
		ENDR

InfoBlock	RECORD  0
;-----------------------------------------------
windIcons	DS.L	1			;handle of first icon in window
windID		DS.W	1			;window's ID number
windView	DS.W	1			;window's view
windIc		DS.L	1			;handle of ICONOBJ that opened into
windDiskIc	DS.L	1			;handle to disk icon which is the root
windItems	DS.W	1			;number of items in window
windUsed	DS.L	1			;number of bytes used in window
windFree	DS.L	1			;number of bytes free on disk
windFST		ds.w	1			;file system our window has
windAccess	ds.w	1			;appleshare privs for this window
windDirty	ds.w	1			;is our window dirty?
windTitle	DS.B	54			;window's title
windMenuItem	ds.w	1			;window's menu item
windMenuText	ds.b	52			;window's menu text
popValue	DS	PopVal			;current pop up settings
popDefault	DS	PopVal			;default pop up settings
cardTable	DS.L	5			;table of card references
windText	DS	TextRecord		;text record
sizeOf
;-----------------------------------------------
		ENDR
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Finder/Help.aii b/IIGS.601.SRC/A.U.G/Finder/Help.aii
new file mode 100644
index 0000000..d4f84a2
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Finder/Help.aii
@@ -0,0 +1 @@
+
		seg 'HELP'

; help.aii
;
; Copyright 1991 by Apple Computer, Inc.
; All Rights Reserved
;.....................................................................


		LONGA	ON
		LONGI	ON
		STRING	PASCAL
		
		PRINT	OFF		
		PRINT	NOGEN
		PRINT	NOSYM

		INCLUDE	'ALL.MACROS'
		INCLUDE	'E16.CONTROL'
		INCLUDE	'E16.WINDOW'
		INCLUDE	'PASCAL.macros'
		INCLUDE	'special.macros'
		INCLUDE	'DP.equ'

		PRINT	ON

helpWindow	PROCNAME EXPORT

		IMPORT	helpWindowPtr
		IMPORT	helpBlk
		IMPORT	helpTopic
		IMPORT	ArrowCursor
		IMPORT	CloseThisWindow		;in Util.aii - 27-Jan-93 JCM

		phb
		phk
		plb

		_WaitCursor
		
		pha
		pha
		pushlong #0			;titlePtr
		pushlong #helpBlk		;refCon is ptr to our window info block
		pushlong #helpDraw+$C0000000	;content draw proc
		pushlong #0			;window defproc
		pea	2			;refIsResource
		pushlong #2			;window resource we want
		pea	$800e			;rWindParam1
		_NewWindow2
		pulllong >helpWindowPtr
		bcc	@ok

;
; close the window only if something bad happened and we actually have a window pointer
; because something could have happened when we went to add controls (but didn't
; get created because we couldn't find the disk or the resource)
;
		lda	>helpWindowPtr
		ora	>helpWindowPtr+2
		beq	@bogus

		lda	>helpWindowPtr+2
		tax
		lda	>helpWindowPtr
		jsl	CloseThisWindow
		
		lda	#0
		sta	>helpWindowPtr
		sta	>helpWindowPtr+2
	
*** Added 21-Jan-93 JCM

;;;@bogus		_InitCursor

@bogus		jsl	ArrowCursor
		
*** End - 21-Jan-93 JCM		

		plb
		rtl

;
; we were able to create the window (and get all the controls attached to it)
;
@ok	
		pha
		pha
		pushlong >helpWindowPtr	;our window
		pea	0
		pea	1		;control ID
		_GetCtlHandleFromID
		pha
		lda	3,s		;(move our handle around to conform to 
		sta	1,s		;_SetCtlValue's needs)
		lda	5,s
		sta	3,s
		lda	>helpTopic
		sta	5,s
		_SetCtlValue

		pha
		pha
		pushlong >helpWindowPtr	;our window
		pea	0
		pea	2		;control ID
		_GetCtlHandleFromID
		pulllong teHandle
				
		pea	$15		;what kind (rText)
		ldx	#0		;opt 21-Jan-93 DAL (and next 6 PHXs)
		phx			;which resource
		lda	>helpTopic
		pha			
		phx			;no length (gotten from resource)
		phx
		phx			;no style type
		phx			;no style ref
		phx
		pushlong teHandle
		_TESetText

*** Added 21-Jan-93 JCM

;;;		_InitCursor

		jsl	ArrowCursor
		
*** End - 21-Jan-93 JCM		
		
		plb
		rtl

; Draw the help window
;...................................................................................

helpDraw
		phb
		phk
		plb
		
		pushlong >helpWindowPtr
		_DrawControls

		plb
		rtl
		
; helpControls -- they hit a control in the help window
;.....................................................................

		EXPORT	helpControls
helpControls
		
		IMPORT	helpTopic

		phb
		phk
		plb

		lda	<taskData4	;what did they hit in our window?
		cmp	#2
		beq	@goFront		
		cmp	#1
		bne	@done
		
;
; they hit a control... and guess what?  it's the popup... so load some rText stuff
;
		pha
		pha
		pushlong <taskData	;our window
		pea	0
		pea	2		;control ID
		_GetCtlHandleFromID
		pulllong teHandle
		
		pha
		pei	<taskData2+2
		pei	<taskData2
		_GetCtlValue
		pla
		cmp	>helpTopic
		beq	@goFront
		
		and	#$000f
		asl	a
		tax
		lda	text,x
		sta	>helpTopic	;save the help topic so we can come back to it
		
		pea	$15		;what kind (rText)
		pea	0		;which resource
		pha			
		pea	0		;no length (gotten from resource)
		pea	0
		pea	0		;no style type
		pea	0		;no style ref
		pea	0
		pushlong teHandle
		_TESetText
		
@goFront	pei 	<taskData+2
		pei	<taskData
		_SelectWindow

@done		plb
		rtl		

;
; locals
;
teHandle	dc.L	0

text		dc.w	$1000		;references to rText resources we use
		dc.w	$1001
		dc.w	$1002
		dc.w	$1003
		dc.w	$1004
		dc.w	$1005
		dc.w	$1006
		dc.w	$1007
		dc.w	$1008
		dc.w	$1009

		ENDP
		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Finder/IconObj.equ b/IIGS.601.SRC/A.U.G/Finder/IconObj.equ
new file mode 100644
index 0000000..b6d7e42
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Finder/IconObj.equ
@@ -0,0 +1 @@
+
;
; Project:	GS Finder
; File:		IconObj.equ
; Build file:	Finder.Make
; 
; Copyright 1991-1992, Apple Computer, Inc.  All Rights Reserved.
;.....................................................................


;
; --- ICONOBJ record offsets -------------------------------------------
;
icNext		equ	0			;Handle of next icon.
icLast		equ	icNext+4		;Handle of previous icon.
icMom		equ	icLast+4		;Window icon belongs to.
icWind		equ	icMom+4			;Window icon is opened into.
icDisk		equ	icWind+4		;Disk icon which owns this icon
icFlag		equ	icDisk+4		;Defined below.
icFType		equ	icFlag+4		;Icon's file type
icAuxType	equ	icFType+2		;NOTE: icAuxtype and icFileInfo are the same thing!
icFileInfo	equ	icFType+2		;File's Aux type or Device's File System.
icKind		equ	icFileInfo+4		;PTR to kind string
icy		equ	icKind+4		;Position of icon's bottom.
icx		equ	icy+2			;X position of icon's middle
icTextY		equ	icx+2			;Text's y position when viewed by text.
icTitleLen	equ	icTextY+2		;Half the length of the icon's title.
icName		equ	icTitleLen+2		;Name of icon.
icLocalAccess	equ	icName+34		;Icon's current local access
icForked	equ	icLocalAccess+2		;high bit set if file is extended		
icFBlocks	equ	icForked+2		;Icon's file block size; deviceÕs used blocks.
icFBytes	equ	icFBlocks+4		;Icon's file byte size; deviceÕs total blocks
icCDate		equ	icFBytes+4		;Icon's file creation date.
icMDate		equ	icCDate+8		;Icon's file modification date.
icIcon		equ	icMDate+8		;Offset into Handle and Offset lists for this icon
icSmallIcon	equ	icIcon+4		;Offset into Handle and Offset lists for this icon
icRBundle	equ	icSmallIcon+4		;Handle of rBundle which matched or NIL
icOneDocOffset	equ	icRBundle+4		;Offset to OneDoc within rBundle handle
icInfo		equ	icOneDocOffset+4	;Pointer to Info window if any, else zero.
icDevNum	equ	icInfo+4		;Icon's device number (device icons).
icDevInfo	equ	icDevNum+2		;if icon is a device, the return from _DInfo
icOptionList	equ	icDevInfo+2		;the option list for this file, 44 bytes long
icFST		equ	icOptionList+2
icNetworkAccess	equ	icFST+38
icOptionListEnd	equ	icNetworkAccess+4
ICSIZE		equ	icNetworkAccess+4

;
; ------ Extended ICONOBJ record -----------------------------------
;
icOldPosY	equ	ICSIZE			;Y position in real mom window.
icOldPosX	equ	icOldPosY+2		;X position in real mom window.
icOwner		equ	icOldPosX+2		;Pathname of icon's real owner.
EXTSIZE		equ	icOwner+MaxPathLen+2	;Size of extended icon record.

;
; ----- icFlag flags -------------------------------------------------------
;
ICSELECTED	equ	$0001			;1 = selected, 0=normal.
ICOPENED	equ	$0002			;1 = icon is opened, 0 = icon closed.
ICOFFLINE	equ	$0004			;1 = offline, 0 = online.
ICEXTENDED	equ	$0008			;1 = extended ICONOBJ record.
ICDUP		equ	$0010			;1 = icon's duplicate was replaced.
ICCOPY		equ	$0020			;1 = icon was copied to destination.
ICDELETE	equ	$0040			;1 = icon was deleted from directory.
ICLOCKED	equ	$0080			;1 = icon is locked.
ICFORECLR	equ	$0F00			;Icon's foreground (outline) color.
ICBACKCLR	equ	$F000			;Icon's background (fill) color.
icYellowClr	equ	$E000			;Yellow background, black background for folders

ICNETACCESS	equ	$000F0000		;Network access rights (4 bits)
ICInfoMakeChanges equ	$00400000		;in info card only, set if we can make
						;changes to this file and hope to have them
						;stick (because folder containing this file
						;has makeChanges set or not)
ICNETWORK	equ	$01000000		;1 = Network, 0 = local.
ICREADABLE	equ	$02000000		;1 = read access, 0 = no read access.
ICVISITED	equ	$80000000		;1 = icon was visited

;
; Network access bits
;
ICASOwner	equ	$0008			; user is AppleShare owner of this folder
ICSeeFiles	equ	$0001			; user can see files
ICSeeFolders	equ	$0002			; you can see folders
ICMakeChanges	equ	$0004			; you can make/save changes

_ICSELECTED	equ	$FFFE
_ICOPENED	equ	$FFFD
_ICOFFLINE	equ	$FFFB
_ICEXTENDED	equ	$FFF7
_ICDUP		equ	$FFEF
_ICCOPY		equ	$FFDF
_ICDELETE	equ	$FFBF
_ICLOCKED	equ	$FF7F
_ICFORECLR	equ	$F0FF
_ICBACKCLR	equ	$0FFF

\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Finder/KeyboardNav/KeyboardNav.aii b/IIGS.601.SRC/A.U.G/Finder/KeyboardNav/KeyboardNav.aii
new file mode 100644
index 0000000..90ace55
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Finder/KeyboardNav/KeyboardNav.aii
@@ -0,0 +1 @@
+**************************************************************
**************************************************************
*
* KeyboardNav.aii
*
* This is an Init or Finder Extension that implements Keyboard
* Navigation for Finder 6.0 (similar to Macintosh Finder 7.0).
*
* by David A. Lyons and Andy Nicholas (with a guest appearance
*	 	 by Jim Murphy)
*
* Copyright 1992-1993, Apple Computer, Inc.
* All Rights Reserved
*
**************************************************************
**************************************************************
*
* REVISION HISTORY
*
* 21-Feb-92 DAL
*   Begun.  Borrowed skeleton from Sound Control Panel.
*   Doesn't do much, but it sends the front window to the
*     back if you type Command-zero.
*
* 22..23-Feb-92 DAL and Andy
*   Make this thing actually do something useful.
*   Arrow keys work pretty well in all views, in windows and
*     on desktop.  (Small Icon needs some work.)
*   Discovered and hacked around two bugs in Finder 6.0:
*     (1) tellFinderSetSelectedIcons bit 31 is broken
*     (2) icon height & width fields in extended stringLists
*         (tellFinderGetSelectedIcons/tellFinderGetWindowIcons)
*         are broken.  We patch 6.0 Finder to avoid crashing
*         the system (potentially).
*   Discovered that there is a Rename field too much of the
*     time.  Will need to patch around that, too.
*   Need to make Tab and letter-navigation work.
*
* 24-Feb-92 DAL
*   Fixed a bad branch at @skipDeselect.
*
* 25-Feb-92 DAL, 1.0d3
*   Redundant finderSaysGoodbye now does nothing.
*   Fixed address of RTL for skanky 6.0 patch.
*
* 7-Mar-92 DAL, 1.0d4
*   Work on letter navigation.
*
* 3..4-Jun-92 DAL, 1.0d5
*   Conditional InitVersion stuff (if 0, we're building the
*   rFinderExtension resource version).
*
*   Moved DebugSymbols to makefiles.
*
* 4-Jun-92 DAL
*   Made letter and Tab/Shift-Tab navigation work.
*
* 8-Jun-92 DAL
*   Icon list no longer gets thrown away unnecessarily the 2nd
*   time it is accessed.  Removed debugging SysBeep.
*
* 23-Jun-92 DAL
*   Tick counts now come from finderSaysKeyHit, not GetTick.
*
* 22-Mar-93 JCM - Removed all code associated with the Init version. Since we
*   v1.0d15       won't be releasing it, the stuff was just cluttering up the
*                 code. If you want to see what it did, do a compare revisions
*                 to something before this date. Or not.
*
* 25-Mar-93 DAL
*   If-ed out Jim experimental stuff.
*   Fixed a problem when there are no icons in the window.
*   Fixed letter navigation to go to the alphabetically last
*     item if the string comes after all the items.
*
* 2-Apr-93 JCM - Fixed to invalidate the cached icon list if we get a selection
*                changed notification that we didn't initiate.
*
* 2-Apr-93 JCM - Fixed the backwards window cycling code to skip invisible windows.
*
* 2-Apr-93 DAL
*   ¥Changed request procedure name to show version 1.0 final.
*   ¥Fixed navigation to scroll so that that an icon's whole
*   name gets scrolled into view, when viewing by small icon.
*
* 2-Apr-93 JCM - Fixed the case where our VisRgn could get offset
*                by the scroll amount, which would really screw up
*                any hope of drawing things into the window correctly.
*                ScrollToShowXY was calling _StartDrawing, but was
*                never resetting the origin with _SetOrigin(0,0).
*
**************************************************************
**************************************************************
*
* USER INTERFACE
*
* Interesting things about keyboard navigation in Mac Finder 7.0:
*
* Tab/Shift-Tab = select next/previous icon alphabetically
*
* Command-shift-up-arrow = make desktop active
*   (We could select top-right icon on the desktop)
*
* Command-up makes parent window active
*   (with Option, closes current window)
*   (We can use tellFinderOpenWindow and tellFinderCloseWindow?)
*
* Command-down = open (with option, closes current window)
*   (we can use tellFinderMItemSelected(Open))
*
* Arrow keys with -no- icons selected selects the extreme icon
* in the chosen direction.
*
*
* In general, what happens if multiple icons are already
* selected? It seems to pick one, but I don't know which one.
*
**************************************************************
**************************************************************
*
* OPERATION
*
* We receive finderSaysKeyHit requests and ask the Finder to
* select icons appropriately, using tellFinderGetWindowIcons,
* tellFinderSetSelectedIcons, etc.
*
* I hope this is fast enough!
*
* (Provide much more detail here later.)  [Or not.]
*
**************************************************************

	include 'all.macros'
	include 'E16.Finder'
	include 'E16.Locator'
	include 'E16.Event'

;
; --- ICONOBJ record offsets -------------------------------------------
;
icNext	equ 0		;Handle of next icon.
icLast	equ icNext+4		;Handle of previous icon.
icMom	equ icLast+4		;Window icon belongs to.
icWind	equ icMom+4		;Window icon is opened into.
icDisk	equ icWind+4		;Disk icon which owns this icon
icFlag	equ icDisk+4		;Defined below.
icFType	equ icFlag+4		;Icon's file type
icAuxType	equ icFType+2		;NOTE: icAuxtype and icFileInfo are the same thing!
icFileInfo	equ icFType+2		;File's Aux type or Device's File System.
icKind	equ icFileInfo+4		;PTR to kind string
icy	equ icKind+4		;Position of icon's bottom.
icx	equ icy+2		;X position of icon's middle
icTextY	equ icx+2		;Text's y position when viewed by text.
icTitleLen	equ icTextY+2		;Half the length of the icon's title.
icName	equ icTitleLen+2		;Name of icon.
icLocalAccess	equ icName+34		;Icon's current local access
icForked	equ icLocalAccess+2		;high bit set if file is extended		
icFBlocks	equ icForked+2		;Icon's file block size; deviceÕs used blocks.
icFBytes	equ icFBlocks+4		;Icon's file byte size; deviceÕs total blocks
icCDate	equ icFBytes+4		;Icon's file creation date.
icMDate	equ icCDate+8		;Icon's file modification date.
icIcon	equ icMDate+8		;Offset into Handle and Offset lists for this icon
icSmallIcon	equ icIcon+4		;Offset into Handle and Offset lists for this icon
icRBundle	equ icSmallIcon+4		;Handle of rBundle which matched or NIL
icOneDocOffset	equ icRBundle+4		;Offset to OneDoc within rBundle handle
icInfo	equ icOneDocOffset+4	;Pointer to Info window if any, else zero.
icDevNum	equ icInfo+4		;Icon's device number (device icons).
icDevInfo	equ icDevNum+2		;if icon is a device, the return from _DInfo
icOptionList	equ icDevInfo+2		;the option list for this file, 44 bytes long
icFST	equ icOptionList+2
icNetworkAccess	equ icFST+38
icOptionListEnd	equ icNetworkAccess+4
ICSIZE	equ icNetworkAccess+4
;
; ------ Extended ICONOBJ record -----------------------------------
;
icOldPosY	equ ICSIZE		;Y position in real mom window.
icOldPosX	equ icOldPosY+2		;X position in real mom window.
icOwner	equ icOldPosX+2		;Pathname of icon's real owner.

;
; Window type ID's
;
DirWindID	equ $0002	;Directory window
TrashWindID	equ $0004	;Trash window
ClipWindID	equ $0008	;Clipboard window
InfoWindID	equ $0010	;Info window
VerifyWindID	equ $0020	;Verify window
aboutWindID	equ $0040	;about window
helpWindID	equ $0080	;help window

;
; View numbers
;
viewByIcon	equ $0
viewBySmallIcon	equ $1
viewByName	equ $2
viewByDate	equ $3
viewBySize	equ $4
viewByKind	equ $5

;
; extended stringlist equates
;
exSLOffset	equ 0
exSLIconY	equ 2
exSLIconX	equ 4
exSLIconTextY	equ 6
exSLIconHeight	equ 8
exSLIconWidth	equ 10
exSLIconObj	equ 12
;exSLwString	equ ??	;field is not at a guaranteed offset!

;
; character constants
;
upArrowKey	equ $0B
downArrowKey	equ $0A
leftArrowKey	equ $08
rightArrowKey	equ $15
tabKey	equ $09

;
; text-navigation constants
;
MaxNavPrefixLength	equ 32
MaxDelayBetweenKeys	equ 40

**************************************************************
*
* MAIN ENTRY POINT FOR INIT
*
* Validate the environment and install our request procedure.
*
* Our Memory ID is in A.
* The data bank register is undefined.
*
* To ask the caller to unload us, we can set bit 0 of the
* word just under the RTL address.
*
**************************************************************
KeyboardNav	procname
	import KeyNavRequestProc
	import myMemID

	pushlong #NavReqProcName
	pha
	_MMStartUp	;my user ID (leave on stack)
	lda 1,s
	sta >myMemID
	pushlong #KeyNavRequestProc
	_AcceptRequests

	rtl

NavReqProcName	str 'Apple~FinderNavigation~1.0~'

**************************************************************
*
* KeyNavRequestProc (called by SendRequest)
*
* On entry, D and B are undefined, and the stack looks like
* this:
*
*   +014  WORD      result ($8000 to accept)
*   +012  WORD      request code
*   +008  LONG      dataIn value
*   +004  LONG      dataOut pointer
*   +001  3 bytes   RTL address
*
* Dispatch the request to the appropriate routine, set bit 15
* of result if we're accepting the request, and then strip off
* ten bytes of input parameters before returning with RTL.
*
**************************************************************
KeyNavRequestProc	procname

	DefineStack

zero	word
keyHit	word
modifiers	word
extSelList	long
extSelListPtr	long
extIconList	long
extIconListPtr	long
ourValue	word
recordPtr	long
currentRecordNum	word
bestValue	word
bestRecordPtr	long
NewSList	long
NewSListPtr	long
sList	long
sListPtr	long
ptr	long	;temp window pointer
tickCount	word

sizeLocals	EndLocals

saveBank	block 1
saveDPage	word
returnAddr	block 3

	BegParms
dataOut	long
dataIn	long
request	word
sizeParms	EndParms

result	word

	tsc
	and #$ff00
	xba
	dec a
	bne @stackOkay
	brl @quickExit
@stackOkay
	phd	;Save directPage register.

	phb
	phk
	plb

	tsc	;Make space for locals.
	sec
	sbc #sizeLocals
	tcd	;Set directPage register.
	tcs

	stz <zero

	lda <request
	sta @requestTable
	ldx #@procTable-@requestTable
@search	dex
	dex
	cmp @requestTable,x
	bne @search

	lda <dataIn+2
	ldy <dataIn
	jsr (@procTable,x)	;return with SEC to accept request

@done	ror <result	;set bit 15 to accept the request

	tsc	;Get rid of local variables.
	clc
	adc #sizeLocals
	tcs
	plb	;Restore caller's bank register
	pld	;Restore caller's direct-page register.

@quickExit	lda 2,s	;strip 10 bytes from stack and exit
	sta 12,s
	lda 1,s
	sta 11,s
	ply
	ply
	ply
	ply
	ply
	rtl

@requestTable	dc.w $0000	;dummy entry for sentinel search
	dc.w finderSaysKeyHit
	dc.w finderSaysSelectionChanged
	dc.w finderSaysHello
	dc.w finderSaysGoodbye
	dc.w finderSaysMItemSelected
	dc.w srqGoAway
*
* Procedures receive dataIn in AY, return SEC to accept a request.
*
@procTable	dc.w @ignore
	dc.w handleKeyHit
	dc.w handleSelectionChanged
	dc.w handleHello
	dc.w handleGoodbye
	dc.w handleMItemSelected
	dc.w handleGoAway

@ignore	clc	;reject the request
	rts

***************************************************************
*
* handleKeyHit
*
* Respond to a finderSaysKeyHit request.
*
* Inputs:  <dataIn (AY) points to:
*             +000  WORD   Parameter count (at least 3 for 6.0.1)
*             +002  WORD   Key code from TaskMaster (low byte)
*             +004  WORD   Modifiers from TaskMaster
*             +006  LONG   Tick count from keyDown event
*          <dataOut = reserved
*
***************************************************************
handleKeyHit	name

	ldy #6	;get the low word of the tick count
	lda [<dataIn],y
	sta <tickCount

	ldy #2	;get the key
	lda [<dataIn],y
	and #$00ff
	sta <keyHit

	ldy #4	;get modifiers
	lda [<dataIn],y
	sta <modifiers

;
; If the key is Command-KeyPad-zero, cycle the front
; window to the back.
;
;	;lda <modifiers
	and #keyPad+appleKey+optionKey+controlKey
	cmp #keyPad+appleKey
	bne @notCycleWindows

	lda <keyHit	;get the key
	cmp #'0'
	bne @notCycleWindows

; If Shift is down, cycle the other way
	lda <modifiers
	and #shiftKey
	bne @cycleBackwards

; Cycle forwards (send front window to back)
	jsr GetFrontWindPtr
	beq @notCycleWindows
	pushlong #$fffffffe	;-2 = behind all others
	phy
	phx
	_SendBehind

	sec	;accept the request
	rts

;
; Find backmost window and select it
;
@cycleBackwards	jsr GetFrontWindPtr
	beq @notCycleWindows

*** Added - 2-Apr-93 JCM - Make sure we ignore invisible windows are we select the previous window.

;	ldy <ptr+2
;	ldx <ptr
;@search	sty <ptr+2
;	stx <ptr

;	pha
;	pha	;space for next window
;	phy
;	phx	;this window
;	_GetNextWindow
;	plx
;	ply
;
;	bne @search
;	txa
;	bne @search

	jsr GetDeepestVisibleWindow
	beq @notCycleWindows

	phy
	phx

;
; We got nil, so the previous window pointer is the one to select
;

;	pei <ptr+2
;	pei <ptr

*** End - 2-Apr-93 JCM

	_SelectWindow
	sec
	rts

@notCycleWindows
;
; See if we should use the key to navigate (if there are
; interesting modifiers down, pass up the key so someone
; else can do something exciting with it).
;
	lda <modifiers	;get modifiers
	and #keyPad+appleKey+controlKey
	beq @navigating
@toNotNavigation	brl notNavigation
@navigating

;
; If KeyTranslation is off and Option is down, this keystroke is not for us.
; Leave it for somebody else.
;
	lda <modifiers
	and #optionKey
	beq @optionNotDown
	pha
	_GetKeyTranslation
	pla
	beq @toNotNavigation
@optionNotDown

;
; Do something really exciting here, like navigate!
;
; Arrow keys move up and down in lists, free-form by icon.
; Tab moves to the alphabetically-next icon, Shift-Tab to previous.
; Letter keys accumulate a prefix if you type them fast
;   enough, selecting the first thing that matches the
;   whole prefix-in-progress.  (How fast is fast enough?
;   ListKey uses 40 ticks.  What does the Mac do?)
;

	jsr GetExtSelIcons		;get the extended selected icon list

	stz gwInfoWindView		;view by icon if on the desktop
	lda gsiWindow+1
	beq @onDesktop
	jsr GetWindowInfo		;get the kind of window that's
@onDesktop
	lda gsiWindow+2
	ldx gsiWindow
	jsr GetExtIconList		;get the complete icon list

	jsr derefExtIList
	jsr derefExtSelList

	jsr DispatchTheKey		;returns SEC to accept request
	php

; Dispose of handles if we want...or keep one around!

	pushlong gsiStringList
	_DisposeHandle
	stz gsiStringList+1

	plp
	rts

;
; Dispatch to various routines based on the keystroke
;
DispatchTheKey	lda <keyHit
	ldx #EndNavKeys-NavKeys-2
@iLoop	cmp NavKeys,x
	beq @dispatch
	dex
	dex
	bpl @iLoop
	brl LetterNavigation

@dispatch	lda gwInfoWindView
	cmp #viewByName
	bcs NavListView
;
; NavIconView -- handle keyboarding when the window with the selected icons is in the icon view
;
NavIconView	lda [<extSelListPtr]  ;feed in icon count/BEQ
	jmp (NavIconHow,x)

;
; NavListView -- handle keyboarding when the window with the selected icons
;                is in a list view
;
NavListView	lda [<extSelListPtr]  ;feed in icon count/BEQ
	jmp (NavListHow,x)

;
; Navigation key list
;
NavKeys	dc.w upArrowKey
	dc.w downArrowKey
	dc.w leftArrowKey
	dc.w rightArrowKey
	dc.w tabKey
EndNavKeys


NavIconHow	dc.w IconUp	;up arrow
	dc.w IconDown	;down arrow
	dc.w IconLeft	;left arrow
	dc.w IconRight	;right arrow
	dc.w tabNavigation	;tab key

NavListHow	dc.w ListUp	;up arrow
	dc.w ListDown	;down arrow
	dc.w NotNavigation	;left arrow
	dc.w NotNavigation	;right arrow
	dc.w tabNavigation	;tab key


;
; IconUp -- Icon or small icon view, try to move upwards
;
IconUp	name
	beq @extremeIconUp
	jsr InitVerticalLawnmower
	ldy #exSLIconY+2
	lda [<extSelListPtr],y
	tax	;ourValue
	ldy #0	;initial bestValue
	lda #iconUpWalker
	jsr WalkTheIcons
	sec	;accept the keyHit request
	rts

@extremeIconUp	jsr MaxLawnmower
	ldx #0	;ourValue
	ldy #$ffff	;initial best value
	lda #iconDownWalker
	jsr WalkTheIcons
	sec
	rts

iconUpWalker	name
	ldy #exSLIconY
	lda [<recordPtr],y
	cmp <ourValue
	bcs @noGood
	cmp <bestValue
	bcc @noGood

	pha
	jsr CheckVerticalLawnmower
	pla	;new bestValue in A, in case carry is clear
	rts

@noGood	sec
	rts

;
; IconDown -- Icon or small icon view, try to move downwards
;
IconDown	name
	beq @extremeIconDown
	jsr InitVerticalLawnmower
	ldy #exSLIconY+2
	lda [<extSelListPtr],y
	tax	;ourValue
	ldy #$ffff	;initial best value
	lda #iconDownWalker
	jsr WalkTheIcons
	sec	;accept the keyHit request
	rts

@extremeIconDown	jsr MaxLawnmower
	ldx #$ffff	;ourValue
	ldy #0	;initial best value
	lda #iconUpWalker
	jsr WalkTheIcons
	sec
	rts

iconDownWalker	name
	ldy #exSLIconY
	lda [<recordPtr],y
	cmp <ourValue
	beq @noGood
	bcc @noGood
	cmp <bestValue
	bcs @noGood

	pha
	jsr CheckVerticalLawnmower
	pla	;new bestValue in A, in case carry is clear
	rts

@noGood	sec
	rts

;
; MaxLawnmower -- Max the lawnmower band as tall/wide as possible
;
MaxLawnmower	name
	stz LawnmowerMin
	lda #$3fff
	sta LawnmowerMax
	rts
;
; InitVerticalLawnmower
;
; Set the left and right edges of the lawnmower band
; according to the position and width of the first icon
; record in the list at extSelListPtr.
;
InitVerticalLawnmower name
	ldy #exSLIconX+2
	lda [<extSelListPtr],y
	tax
	clc
	ldy #exSLIconWidth+2
	adc [<extSelListPtr],y
	adc #20	;slop
	sta LawnmowerMax
	txa
	sec
	sbc [<extSelListPtr],y
	sbc #20	;slop
	sta LawnmowerMin
	rts

;
; CheckVerticalLawnmower
;
; See if the X coordinate of [<recordPtr] is within a
; tall narrow band bounded by LawnmowerMin on the left
; and LawnmowerMax on the right.  Return CLC if it's
; good.
;
CheckVerticalLawnmower name
	ldy #exSLIconX
	lda [<recordPtr],y
	cmp LawnmowerMin
	bmi @bad	;was bcc
	cmp LawnmowerMax
	bpl @bad

@good	clc
	rts

@bad	sec
	rts

LawnmowerMin	dc.w 0
LawnmowerMax	dc.w 0

;
; IconLeft -- Icon or small icon view, try to move left
;
IconLeft	name
	beq @extremeIconLeft
	jsr InitHorizontalLawnmower
	ldy #exSLIconX+2
	lda [<extSelListPtr],y
	tax	;ourValue
	ldy #0	;initial bestValue
	lda #iconLeftWalker
	jsr WalkTheIcons
	sec	;accept the keyHit request
	rts

@extremeIconLeft	jsr MaxLawnmower
	ldx #0	;ourValue
	ldy #$ffff	;initial best value
	lda #iconRightWalker
	jsr WalkTheIcons
	sec
	rts

iconLeftWalker	name
	ldy #exSLIconX
	lda [<recordPtr],y
	cmp <ourValue
	bcs @noGood
	cmp <bestValue
	bcc @noGood

	pha
	jsr CheckHorizontalLawnmower
	pla	;new bestValue in A, in case carry is clear
	rts

@noGood	sec
	rts

;
; IconRight -- Icon or small icon vuew, try to move right
;
IconRight	name
	beq @extremeIconRight
	jsr InitHorizontalLawnmower
	ldy #exSLIconX+2
	lda [<extSelListPtr],y
	tax	;ourValue
	ldy #$ffff	;initial best value
	lda #iconRightWalker
	jsr WalkTheIcons
	sec	;accept the keyHit request
	rts

@extremeIconRight	jsr MaxLawnmower
	ldx #$ffff	;ourValue
	ldy #0	;initial best value
	lda #iconLeftWalker
	jsr WalkTheIcons
	sec
	rts

iconRightWalker	name
	ldy #exSLIconX
	lda [<recordPtr],y
	cmp <ourValue
	beq @noGood
	bcc @noGood
	cmp <bestValue
	bcs @noGood

	pha
	jsr CheckHorizontalLawnmower
	pla	;new bestValue in A, in case carry is clear
	rts

@noGood	sec
	rts


;
; InitHorizontalLawnmower
;
; Set the top and bottom edges of the lawnmower band
; according to the position and height of the first icon
; record in the list at extSelListPtr.
;
InitHorizontalLawnmower name
	ldy #exSLIconY+2
	lda [<extSelListPtr],y
	tax

	lda gwInfoWindView
	cmp #viewBySmallIcon
	beq @smallIcon

* %%% Fix to use icon height from record

; hard-code a canonical icon height
	txa
	clc
	adc #12+6
	sta LawnmowerMax
	txa
	sec
	sbc #20+6
	sta LawnmowerMin
	rts

@smallIcon	txa
	clc
	adc #4	;??? was 1
	sta LawnmowerMax
	txa
	sec
	sbc #9
	sta LawnmowerMin
	rts

;
; CheckHorizontalLawnmower
;
; See if the X coordinate of [<recordPtr] is within a
; tall narrow band bounded by LawnmowerMin on the left
; and LawnmowerMax on the right.  Return CLC if it's
; good.
;
CheckHorizontalLawnmower name
	ldy #exSLIconY
	lda [<recordPtr],y
	cmp LawnmowerMin
	bmi @bad	;was bcc
	cmp LawnmowerMax
	bpl @bad

@good	clc
	rts

@bad	sec
	rts


;
; ListUp -- List view, try to move upwards
;
; Inputs:  extSelListPtr points to the extended selected-icons list
;
ListUp	name
	beq @extremeUp
	ldy #exSLIconTextY+2
	lda [<extSelListPtr],y
	tax	;ourValue
	ldy #0
	lda #listUpWalker
	jsr WalkTheIcons
	sec	;accept the keyHit request
	rts

@extremeUp	ldx #0	;ourValue
	ldy #$ffff	;initial best value
	lda #listDownWalker
	jsr WalkTheIcons
	sec
	rts

ListUpWalker	name
	ldy #exSLIconTextY
	lda [<recordPtr],y
	cmp <ourValue
	bcs @noGood
	cmp <bestValue
	bcc @noGood
	clc	;new bestValue in A
	rts

@noGood	sec
	rts


;
; ListDown -- List view, try to move downwards
;
ListDown	name
	beq @extremeDown
	ldy #exSLIconTextY+2
	lda [<extSelListPtr],y
	tax	;ourValue
	ldy #$ffff	;initial best value
	lda #listDownWalker
	jsr WalkTheIcons
	sec	;accept the keyHit request
	rts

@extremeDown	ldx #$ffff	;ourValue
	ldy #0	;initial best value
	lda #listUpWalker
	jsr WalkTheIcons
	sec
	rts

ListDownWalker	name
	ldy #exSLIconTextY
	lda [<recordPtr],y
	cmp <ourValue
	beq @noGood
	bcc @noGood
	cmp <bestValue
	bcs @noGood
	clc	;new bestValue in A
	rts

@noGood	sec
	rts


;
; NotNavigation -- can't navigate with this window (sorry).
;
NotNavigation	name
	jsr ZapThePrefix

	clc	;reject request
	rts

;
; LetterNavigation -- accumulate keypress & look for new best icon
;
LetterNavigation	name
	jsr AccumulateKey

	lda #$FF01	;large alphabetical pstring
	sta bestNameSoFar
	lda #PrefixStrWalker
	jsr WalkTheIcons

*** added 25-Mar-93 DAL -- If we're beyond the last item, choose the last item
***   (Example: with items A, B, and C, hit Z, which is beyond the end. It
***   should navigate to C.)
	lda bestNameSoFar	;still $FF01?
	cmp #$FF01
	bne @noProblem

	stz bestNameSoFar
	lda #AlphaLastWalker
	jsr WalkTheIcons

@noProblem
*** end 25-Mar-93

	sec	;accept the keyHit request
	rts

;
; PrefixStringWalker
;
; To be better than bestNameSoFar, the name must come alphabetically
; before bestNameSoFar, but equal-or-after navPrefixPString.
;
PrefixStrWalker	name
	jsr GrabIconNamePtr

	pha	;space for CompareStrings
	pei <zero	;flag to compare PStrings
	pei <ptr+2
	pei <ptr
	pushlong #bestNameSoFar
	_CompareStrings
	pla
	bpl pswNoGood

	pha	;space for CompareStrings
	pei <zero	;flag to cmpare PStrings
	pei <ptr+2
	pei <ptr
	pushlong #navPrefixPString
	_CompareStrings
	pla
	bmi pswNoGood

@good
SetBestNameSoFar	pei <ptr+2
	pei <ptr
	pushlong #bestNameSoFar
	pei <zero
	pea 33
	_BlockMove
	clc	;new best value
	rts

pswNoGood	sec
	rts

;
; AlphaLastWalker
;
; Find the alphabetically-last item.
;
AlphaLastWalker	name
	jsr GrabIconNamePtr

	pha	;space for CompareStrings
	pei <zero	;flag to cmpare PStrings
	pei <ptr+2
	pei <ptr
	pushlong #bestNameSoFar
	_CompareStrings
	pla
	bmi pswNoGood
	bra SetBestNameSoFar

bestNameSoFar	ds.b 33

;
; GrabIconNamePtr
;
; Input:  <recordPtr points into an extended icon list record
; Output: <ptr points to pstring name of icon (not locked)
;
GrabIconNamePtr	name
	ldy #exSLIconObj+2
	lda [<recordPtr],y
	sta <ptr+2
	dey
	dey
	lda [<recordPtr],y
	sta <ptr
; <ptr is iconObj handle
	ldy #2
	lda [<ptr],y
	tax
	lda [<ptr]
	clc
	adc #icName
	bcc @1
	inx
@1	sta <ptr
	stx <ptr+2	; <ptr points to iconObj.icName (pstring)
	rts

;
; TabNavigation
;
; Handle Tab or Shift-Tab
;
TabNavigation	name
	jsr ZapThePrefix
	jsr GetSelectedIconName  ;into currentName

	ldx #$ff01
	lda <modifiers
	and #shiftKey
	beq @forward
	ldx #0	;for backwards
@forward	stx bestNameSoFar

	lda #TabWalker
	jsr WalkTheIcons

	sec	;accept request
	rts

;
; For Tab:
;   For name to be better it has to come alphabetically before bestNameSoFar,
;   but after currentName.
;
; For Shift-Tab:
;   For name to be better it has to come alphabetically after bestNameSoFar,
;   but before currentName.
;
TabWalker	name
	jsr GrabIconNamePtr

	pha	;space for CompareStrings
	pei <zero	;flag to compare PStrings
	pei <ptr+2
	pei <ptr
	pushlong #bestNameSoFar
	jsr SwapIfBackwards
	_CompareStrings
	pla
	bpl @noGood

	pha	;space for CompareStrings
	pei <zero	;flag to compare PStrings
	pei <ptr+2
	pei <ptr
	pushlong #currentName
	jsr SwapIfBackwards
	_CompareStrings
	pla
	bmi @noGood
	beq @noGood

@good	jmp SetBestNameSoFar

@noGood	sec
	rts

;
; If Shift is down, reverse the two longs on the stack so
; CompareStrings compares in the other order
;
SwapIfBackwards	lda <modifiers
	and #shiftKey
	beq @noShift

	lda 3,s
	tax
	lda 3+4,s
	sta 3,s
	txa
	sta 3+4,s

	lda 5,s
	tax
	lda 5+4,s
	sta 5,s
	txa
	sta 5+4,s

@noShift	rts

;
; Set currentName to name of first selected icon
;
GetSelectedIconName	name
	lda #$ff01
	sta currentName
	lda [<extSelListPtr]
	beq @gotName

	ldy #exSLIconObj+2+2  ;2 for count word; 2 for high word of handle
	lda [<extSelListPtr],y
	sta <ptr+2
	dey
	dey
	lda [<extSelListPtr],y
	sta <ptr
; <ptr is iconObj handle
	ldy #2
	lda [<ptr],y
	tax
	lda [<ptr]
	clc
	adc #icName
	bcc @1
	inx
@1	phx
	pha	;source is iconObj.icName
	pushlong #currentName
	pei <zero
	pea 33
	_BlockMove
@gotName	rts

currentName	ds.b 33

***************************************************************
*
* WalkTheIcons
*
* Call a routine repeatedly for each extended icon record
* in the list extIconListPtr points at, and then select
* the best icon found.
*
* Inputs:  A = address of subroutine to call
*          X = <ourValue (for convenience of walk proc)
*          Y = initial <bestValue
*          extIconListPtr
*
* The subroutine's inputs are:
*   <recordPtr
*
* The subroutine's outputs are:
*   CLC if the icon just visited is a better match,
*       new best-value in A
*
***************************************************************
WalkTheIcons	name
	sta @callWalkProc+1

	stx <ourValue
	sty <bestValue

	stz <currentRecordNum
	stz <bestRecordPtr+1

	lda <extIconListPtr
	clc
	adc #2
	sta <recordPtr
	lda <extIconListPtr+2
	adc <zero
	sta <recordPtr+2

*** added 25-Mar-93 DAL -- Oops, check for NO ICONS being present
	lda [<extIconListPtr]
	bne @continue
	rts
@continue
*** end 25-Mar-93

@loop
@callWalkProc	jsr $7777	;** self-modified **
	bcs @noBetter

	sta <bestValue
	lda <recordPtr
	sta <bestRecordPtr
	lda <recordPtr+2
	sta <bestRecordPtr+2

@noBetter
;
; Advance to next record by adding wStringOffset+wStringLength+2
;
	lda [<recordPtr]
	tay	;Y = offset to WString
	inc a
	inc a
	clc
	adc [<recordPtr],y

	adc <recordPtr
	sta <recordPtr
	bcc @1
	inc <recordPtr+2
@1
	inc <currentRecordNum
	lda <currentRecordNum
	cmp [<extIconListPtr]
	blt @loop

	jsr SelectBest	;does nothing if bestRecordPtr=NIL
	rts


***************************************************************
*
* handleSelectionChanged
*
* If we get a finderSaysSelectionChanged that definitely was
* not caused by us calling tellFinderSetSelectedIcons, then
* zap the navigation prefix (start a new one on the next
* keystroke).
*
***************************************************************
handleSelectionChanged name
	lda ExpectingSelChanged
	bne @done

	jsr ZapThePrefix
	jsr InvalidateIconList

@done	stz ExpectingSelChanged
	sec	;accept the request
	rts

***************************************************************
*
* handleHello
*
* Respond to a finderSaysHello request.
*
* Inputs:  <dataIn points to some global data
*
***************************************************************
handleHello	name

	pea tellFinderGetDebugInfo
	pea sendToName+stopAfterOne
	jsr pushFinderName
	pei <zero
	pei <zero
	pushlong #debugInfoOut
	_SendRequest

	stz ExpectingSelChanged
	jsr InvalidateIconList

	sec	;accept the request
	rts

debugInfoOut	dc.w 0	;recvCount
	dc.w 0	;finderResult
	dc.w 0	;pCount
finderDirPage	dc.w 0
	ds.b 128

***************************************************************
*
* handleGoodbye
*
* Respond to a finderSaysGoodbye request.
*
* Inputs: none
*
* Remove our item(s) from the Extras menu.
*
***************************************************************
handleGoodbye	name

	jsr DisposeIconList

@doNothing	sec	;accept the request
	rts

***************************************************************
*
* handleMItemSelected
*
* If somebody chooses a menu item and we notice it, let's
* invalidate our cached copy of the icon list for curWind.
*
***************************************************************
handleMItemSelected	name
	jsr InvalidateIconList
	clc	;reject the request
	rts

***************************************************************
*
* handleGoAway
*
* Respond to an srqGoAway request (we're being asked to remove
* ourself from the system completely).
*
* dataOut points to the following structure:
*   +000: recvCount (used by SendRequest)
*   +002: userID (we fill in our userID if we can go away)
*   +004: flags ($8000 to be able to restart from RAM)
*
***************************************************************
handleGoAway	name

	lda <zero	;resource version can't do srqGoAway!
	ldy #2
	sta [<dataOut],y
	iny
	iny	;y=4
	sta [<dataOut],y	;return flags

	sec	;accept the request
	rts

***************************************************************
***************************************************************
*
* Miscellaneous routines
*
***************************************************************
***************************************************************

;
; PushFinderName -- push the address of "Apple~Finder~" onto
;                   the stack, under the RTS address.  (Saves
;                   3 bytes per occurance over PEA, PEA.)
;
; A and X are preserved!
;
PushFinderName	name
	ply
	pushlong #nameOfFinder
	phy
	rts

***************************************************************
*
* GetFrontWindPtr
*
* Outputs:  window pointer in <ptr and YX, BEQ if NIL
*
***************************************************************
GetFrontWindPtr	name
	pha
	pha
	_FrontWindow
	plx
	stx <ptr
	ply
	sty <ptr+2
	lda <ptr+1
	rts

*** Added - 2-Apr-93 JCM - Make sure we ignore invisible windows are we select the previous window.

***************************************************************
*
* GetDeepestVisibleWindow
*
* Outputs:  window pointer in <ptr and YX, or NIL if none
*
***************************************************************
GetDeepestVisibleWindow name

	stz resultWindPtr
	stz resultWindPtr+2

	phy
	phx
@getNextWindow	lda 3,s
	pha
	lda 3,s
	pha
	_GetNextWindow
	lda 2,s
	beq @exit

	pha
	lda 5,s
	pha
	lda 5,s
	pha
	_GetWFrame
	pla
	and #$0020	;fVis
	beq @getNextWindow

	lda 3,s
	sta resultWindPtr+2
	lda 1,s
	sta resultWindPtr
	
	bra @getNextWindow

@exit	pla
	pla
	
	ldy resultWindPtr+2
	ldx resultWindPtr
	
	lda resultWindPtr+1	;return beq/bne
	
	rts

resultWindPtr	dc.l 0

*** End - 2-Apr-93 JCM

***************************************************************
*
* Select the icon pointed to by <bestRecordPtr
*
* Inputs:
*   <bestRecordPtr
*   gwInfoWindView
*   gsiWindow
*
***************************************************************

SelectBest	name

	lda <bestRecordPtr+1
	bne @continue
	rts

@continue	pha
	pha	;space for NewHandle result
	pei <zero	;high word of size
	lda [<bestRecordPtr]     ;offset to wString
	tay
	lda [<bestRecordPtr],y   ;length of icon pathname
	clc
	adc #4	;2 for icon count, 2 for wString length word
	pha
	lda myMemID
	pha
	ldx <zero
	phx	;attributes
	phx
	phx	;location
	_NewHandle
	pulllong <NewSList

	lda [<NewSList]
	sta <NewSListPtr
	ldy #2
	lda [<NewSList],y
	sta <NewSListPtr+2

;
; Set new stringList's icon count to 1
;
	lda #1
	sta [<NewSListPtr]

;
; Copy the pathname into the new string list
;
	lda [<bestRecordPtr]
	clc
	adc <bestRecordPtr
	tax
	lda <bestRecordPtr+2
	adc <zero
	pha
	phx	;pushed source address
	clc
	lda <NewSListPtr
	adc #2
	tax
	lda <NewSListPtr+2
	adc <zero
	pha
	phx	;pushed dest address
	pei <zero	;high word of length
	lda [<bestRecordPtr]   ;offset to wString
	tay
	lda [<bestRecordPtr],y ;length of wString
	inc a
	inc a
	pha
	_BlockMove

	pea tellFinderSetSelectedIcons
	pea sendToName+stopAfterOne
	jsr PushFinderName
	lda <NewSList+2
	ora #$8000	;bit 31 = deselect old icons first
	pha	;dataIn
	pei <NewSList
	pushlong #ssiOut
	_SendRequest

	inc ExpectingSelChanged

	pei <NewSList+2
	pei <NewSList
	_DisposeHandle
	stz <NewSList+1
	stz <NewSListPtr+1

;
; If the selected icon is not in view, scroll the window so it is.
;

	lda gwInfoWindView
	cmp #viewByName
	bcc @iconView

@listView	ldy #exSLIconTextY
	lda [<bestRecordPtr],y
	sec
	sbc #4
	tay
	ldx #0
	bra @doScroll

@iconView	ldy #exSLIconX
	lda [<bestRecordPtr],y
	tax
	ldy #exSLIconY
	lda [<bestRecordPtr],y
	tay
@doScroll	jsr ScrollToShowXY
	rts

ssiOut	dc.w 0	;recvCount
	dc.w 0	;finderResult


;
; ScrollToShowXY
;
; Inputs:  X = X coordinate
;          Y = Y coordinate
;          gsiWindow = window pointer
;
ScrollToShowXY	name
	stx neededX
	sty neededY
	lda gsiWindow+1
	bne @notDesktop
	rts

@notDesktop	jsr setupSlopForView
	stz needToScroll	;anticipate no need to scroll

	pha
	pha	;space for GetContentOrigin
	jsr pushWindow
	_GetContentOrigin
	pla
	sta viewY
	pla
	sta viewX

	pha
	pha
	_GetPort	;preserve port
	jsr pushWindow
	_StartDrawing

	pushlong #theRect
	_GetPortRect

	sec
	lda theRect+6
	sbc theRect+2
	sta windowWidth

	sec
	lda theRect+4
	sbc theRect
	sta windowHeight

; Do we need to scroll left?
	lda neededX
	sec
	sbc xViewSlop
	bpl @x1ok
	lda #0
@x1ok	cmp viewX
	bcs @leftOK
	sta viewX
	inc needToScroll
@leftOK

*** added 2-Apr-93 DAL -- bump neededX to the right edge of the icon (or name)

	lda gwInfoWindView
	cmp #viewBySmallIcon
	bne @notSmallicon

; by Small Icon -- adjust by the name width
@smallicon	jsr GetIconNameWidth
	bra @adjustForRightEdge

@notSmallicon	cmp #viewByIcon
	bne @adjusted

; by Icon -- adjust:
;   if the icon is wider than the name, adjust by icon width
;   if the name is wider than the icon, adjust by HALF of iconWidth+nameWidth
;
@byIcon	jsr GetIconNameWidth
	ldy #exSLiconWidth
	cmp [<bestRecordPtr],y
	bcs @adjByIconWidth

	jsr GetIconNameWidth
	clc
	ldy #exSLiconWidth
	adc [<bestRecordPtr],y
	lsr a
	bra @adjustForRightEdge

@adjByIconWidth	lda [<bestRecordPtr],y
@adjustForRightEdge	clc
	adc neededX
	sta neededX
@adjusted
*** end 2-Apr-93

; Do we need to scroll right?
	lda neededX
	clc
	adc xViewSlop
	cmp theRect+6
	bcc @rightOK
; Set viewX scroll so neededX+xViewSlop is visible:
;   viewX = neededX+xViewSlop - window width
	sec
	sbc windowWidth
	sta viewX
	inc needToScroll
@rightOK

; Do we need to scroll up?
	lda neededY
	sec
	sbc yViewSlop
	bpl @y1ok
	lda #0
@y1ok	cmp viewY
	bcs @upOK
	sta viewY
	inc needToScroll
@upOK

; Do we need to scroll down?
	lda neededY
	clc
	adc yViewSlop
	cmp theRect+4
	bcc @downOK
; Set viewY scroll so neededY+yViewSlop is visible:
;   viewY = neededY+yViewSlop - window height
	sec
	sbc windowHeight
	sta viewY
	inc needToScroll
@downOK

	lda needToScroll
	beq @noScroll

	lda viewX	;X coordinate
	pha
	lda viewY	;Y coordinate
	pha
	jsr pushWindow
	_SetContentOrigin

@noScroll	lda <zero
	pha
	pha
	_SetOrigin

	_SetPort	;restore port
	rts

neededY	dc.w 0
neededX	dc.w 0

viewY	dc.w 0
viewX	dc.w 0

needToScroll	dc.w 0

theRect	ds.b 8

windowWidth	dc.w 0
windowHeight	dc.w 0

xViewSlop	dc.w 0
yViewSlop	dc.w 0

*** modified 2-Apr-93 DAL to have separate slops for Small Icon view

SetupSlopForView	ldy #0	;anticipate icon view
	lda gwInfoWindView
	cmp #viewByIcon
	beq @gotIt
	ldy #4	;anticipate small icon view
	cmp #viewBySmallIcon
	beq @gotIt
	ldy #8	;index to list view slops
@gotIt	lda slops,y
	sta yViewSlop
	lda slops+2,y
	sta xViewSlop
	rts

slops	dc.w 12,24	;y,x for icon view
	dc.w 12,32	;y,x for Small icon view (xslop big enough to allow for padlock)
	dc.w 5,50	;y,x for list view

;
; pushWindow -- push gsiWindow onto the stack under RTS address
;
pushWindow	plx
	pushlong gsiWindow
	phx
	rts
;
; GetIconNameWidth - Return the length of the name string.
;
	
GetIconNameWidth	ldy #exSLIconObj+2
	lda [<bestRecordPtr],y
	sta <ptr+2
	dey
	dey
	lda [<bestRecordPtr],y
	sta <ptr

; <ptr is iconObj handle

	ldy #2
	lda [<ptr],y
	tay
	lda [<ptr]
	sty <ptr+2
	sta <ptr	;points to iconObj

	ldy #icTitleLen	;this is 1/2 of the width of the name string
	lda [<ptr],y
	asl a

	rts

***************************************************************
*
* Get window's info
*
* IN:
* OUT:
* USES: gsiWindow must contain a valid window pointer for a
*       Finder window
*
***************************************************************
GetWindowInfo	name

	pea tellFinderGetWindowInfo
	pea sendToName+stopAfterOne
	jsr PushFinderName
	pushlong gsiWindow	;dataIn
	pushlong #gwInfoOut
	_SendRequest
	rts

gwInfoOut	dc.w 0	;recvCount
gwInfoResult	dc.w 0	;finderResult
gwInfoWindType	dc.w 0
gwInfoWindView	dc.w 0
gwInfoWindFST	dc.w 0
gwInfoWindTitle	dc.L 0
gwInfoWindPath	dc.L 0
	dc.L 0
	dc.L 0

***************************************************************
*
* Get window's icons
*
* Input: window pointer in AX (or NIL for Desktop)
*
***************************************************************
GetExtIconList	name
	sta whatWindow+2
	stx whatWindow

	jsr CheckOldHandleValid
	bcc @stillValid

;;;	pea $c
;;;	_SysBeep2

	jsr DisposeIconList

	pea tellFinderGetWindowIcons
	pea sendToName+stopAfterOne
	jsr PushFinderName
	lda whatWindow+2
	ora #$8000	;set the Extended bit
	pha
	lda whatWindow
	pha	;dataIn
	pushlong #gwiOut
	_SendRequest

; *** change the owner to me!
	pha	;space for result
	lda myMemID
	pha
	pushlong gwiStringList
	_SetHandleID
	pla	;discard old ID

@stillValid	lda gwiStringList
	sta <extIconList
	lda gwiStringList+2
	sta <extIconList+2

	pha
	pha
	_GetTick
	pla
	sta staleIconsTick
	pla

	rts

gwiOut	dc.w 0	;recvCount
gwiResult	dc.w 0	;finderResult
gwiStringList	dc.L 0	;handle to extended stringlist

whatWindow	dc.l 0	;temp, local

;
; CheckOldHandleValid
;
; Return CLC if the gwiStringList handle is still valid
;
CheckOldHandleValid	name
	ldx FinderDirPage
	lda >1,x
	cmp oldCurWindMiddle
	sta oldCurWindMiddle
	bne @bad

	lda gwiStringList+1
	beq @bad

	pha
	pha
	_GetTick
	pla
	plx
	sec
	sbc staleIconsTick
	cmp #4*60
	bcs @bad

	clc
	rts

@bad	sec
	rts

oldCurWindMiddle	dc.w 0
staleIconsTick	dc.w 0

;
; InvalidateIconList
;
; Arrange for the icon list handle to be recomputed at
; the next opportunity.
;
InvalidateIconList	name
	stz oldCurWindMiddle
	rts

;
; DisposeIconList
;
; If gwiStringList is not nil, dispose it and nil it out.
;
; (This is our cached copy of the icons in the current
; window.)
;
DisposeIconList	name
	lda gwiStringList+1
	beq @noHandle
	pushlong gwiStringList
	_DisposeHandle
	stz gwiStringList+1
@noHandle	rts

***************************************************************
*
* Get extended selected icons
*
* Input:  none
* Output: gsiWindow and gsiStrings contain what's selected and
*         the window in which it's selected
*
***************************************************************
GetExtSelIcons 	name

	pea tellFinderGetSelectedIcons
	pea sendToName+stopAfterOne
	jsr PushFinderName

	pushlong #$80000000	;dataIn (give us the extended stringlist stuff)
	pushlong #gsiOut
	_SendRequest

	lda gsiStringList
	sta <extSelList
	lda gsiStringList+2
	sta <extSelList+2

; *** change the owner to me!
	pha	;space for result
	lda myMemID
	pha
	pei <extSelList+2
	pei <extSelList
	_SetHandleID
	pla	;discard old ID

	rts

gsiOut	dc.w 0	;recvCount
gsiResult	dc.w 0	;finderResult
gsiWindow	dc.L 0	;window containing selected icons
gsiStringList	dc.L 0	;handle to the stringlist handle (sometimes extended)

***************************************************************
*
* AccumulateKey
*
* Input: <keyHit
*
* Accumulates the key into the theNavPrefix, if the time
* between keystrokes is fast enough.
*
* Returns SEC if we've already hit the maximum prefix length.
*
***************************************************************
AccumulateKey	name
	pha
	jsr ZapIfTooSlow
	pla
	ldy navPrefixLength
	cpy #MaxNavPrefixLength
	bcs @done
	sep #$20
	sta theNavPrefix,y
	rep #$20
	inc navPrefixLength
	inc navPrefixPString
	clc
@done	rts

;
; Make the navigation prefix null if it's been more than
; MaxDelayBetweenKeys ticks since the last character we
; accumulated.
;
ZapIfTooSlow
;	pha
;	pha
;	_GetTick
;	pla
;	plx
*** 23-Jun-92
	lda <tickCount
***
	tay	;save tick in Y
	sec
	sbc lastNavTick
	cmp #MaxDelayBetweenKeys
	bcc @okay
	jsr ZapThePrefix
@okay	sty lastNavTick
	rts

ZapThePrefix	name
	stz navPrefixLength
	stz navPrefixPString
	rts

***************************************************************
*
* deref routines, etc.
*
***************************************************************
derefSList	name
	lda [<sList]
	sta <sListPtr
	ldy #2
	lda [<sList],y
	sta <sListPtr+2
	rts

derefExtIList	lda [<extIconList]
	sta <extIconListPtr
	ldy #2
	lda [<extIconList],y
	sta <extIconListPtr+2
	rts

derefExtSelList	lda [<extSelList]
	sta <extSelListPtr
	ldy #2
	lda [<extSelList],y
	sta <extSelListPtr+2
	rts

***************************************************************
*
* VARIABLE STORAGE
*
***************************************************************
	export myMemID
myMemID	dc.w 0

LastNavTick	dc.w 0
navPrefixLength	dc.w 0

navPrefixPString	dc.b 0
theNavPrefix	ds.b MaxNavPrefixLength

ExpectingSelChanged	dc.w 0	;we did a SetSelectedIcons

***************************************************************
*
* STATIC STORAGE
*
***************************************************************
NameOfFinder	str 'Apple~Finder~'

	EndP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Finder/KeyboardNav/makefile b/IIGS.601.SRC/A.U.G/Finder/KeyboardNav/makefile
new file mode 100644
index 0000000..518bca1
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Finder/KeyboardNav/makefile
@@ -0,0 +1 @@
+#   File:       makefile
#   Target:     KeyboardNav

App = KeyboardNav

SrcDir = :

ObjDir = :

Sources = "{SrcDir}KeyboardNav.aii" makefile

Objects =

"{App}" ÄÄ "{ObjDir}{App}" makefile
	DuplicateIIGS -y -mac "{ObjDir}{App}" :

"{ObjDir}{App}"	ÄÄ "{App}.aii.obj" makefile
	LinkIIGS -t $B6 "{App}.aii.obj" -o "{ObjDir}{App}"

"{ObjDir}" Ä "{SrcDir}"

.aii.obj Ä .aii makefile
	AsmIIGS -d DebugSymbols=1 -d InitVersion=1 "{DepDir}{Default}.aii" -o "{TargDir}{Default}.aii.obj"
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Finder/Main.aii b/IIGS.601.SRC/A.U.G/Finder/Main.aii
new file mode 100644
index 0000000..4b35dde
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Finder/Main.aii
@@ -0,0 +1 @@
+******************************************************************************
*
* File:		Main.aii
* Project:	GS Finder
* Orig Authors:	Don J. Brady & Dan Oliver
* Build file:	Finder.Make
*
* © Copyright Apple Computer, Inc. 1986-1993
* All rights reserved.
*
******************************************************************************
*
* Finder 6.0 changes by Andy Nicholas, Dave Lyons, Ron Lichty.
* (Shipped in February, 1992.)
*
******************************************************************************
*
* REVISION HISTORY AFTER 6.0
*
* 18-Feb-92 Dave Lyons
*   Fixed bug where IBeamCursor appears on desktop, when icon being renamed
*   in a window is scrolled outside the visible part of the window.  New
*   code is smaller.
*
*   Added _InInfoBar to handle clicking in the column headers of a list-view
*   window.
*
* 19..20-Feb-92 Dave Lyons
*   Invalidates dir+trash windows containing dates when date format changes.
*   Various optimizations, including using <zero instead of #0 or pea 0.
*
* 10-Mar-92 DAL
*   Requires GS/OS $0402 for 6.0.1.
*
* 20-Mar-92 DAL
*   Remove LEFilter routine & replaced with shorter routine using IsSpecialLEKey.
*
* 5-Jun-92 DAL
*   Added stuff for Keyboard Navigation.  PendingDeselectAll works after an Open
*   to make the new front window the current plane.  Esc deselects all and makes
*   the front window the current plane; Command-Esc deselects all and makes the
*   desktop the current plane.
*
* 9-Jun-92 DAL
*   Made Control with with Command-W and Option-Command-W.  Made Command-Shift-
*   UpArrow work like Command-Esc to select the desktop.
*
* 22-Jun-92 DAL
*   Added tick count to finderSaysKeyHit broadcast.  Parameter count is now 3.
*
* 23-Jun-92 DAL
*   Stores default quit choice from rRectList(1) in defaultQuitChoice.
*
* 8..9-Jul-92 DAL
*   Fixed a SpliceName problem (renaming to a shorter length was not working).
*   Made a few optimizations.
*
* 16-Jul-92 DAL (6.0.1d7)
*   Removed redundant MessageCenter call to delete message $11.
*
* 16-Oct-92 DAL (6.0.1d12)
*   UpdateWindow preserves <wind to make Invisible preference update right.
*
* 20-Jan-93 JCM - Fixed the problem where a server disconnecting unexpectedly would
*		  cause an infinite icon walk if a window from that server was frontmost.
*		  In _DiskSwitched, <curWind was being restored to the window we just closed.
*
* 18-Feb-93 JCM - Changed CheckIcons and CompareIcon so that during a VolumeChange call we notice 
*		  everything that may have changed in a file's directory entry.
*
* 17-Mar-93 JCM - When we update a changed icon in NewIconData, we now update the kind string pointer
*		  as well. This allows the View by and Icon Info windows to change to the proper new
*		  kind.
*
* 18-Mar-93 JCM - Fixed rename with an Icon Info window open on the target file to work for regular
*		  files. In 6.0 it only redrew the Icon Info name for devices and folders.
*
* 24-Mar-93 JCM - Conditionally started to add code to notice changes to files on the desktop. This
*		  won't be included in 6.0.1.
*
*  2-Apr-93 JCM - Fixed to call selectionIsChanging when an icon is renamed and the list is resorted.
*		  This allows Key Nav to flush it's icon cache at a useful time.
*
******************************************************************************

		PRINT	OFF

		PRINT	GEN
		PRINT	NOSYM
		PRINT	NOPAGE
		INCLUDE	'all.macros'
		INCLUDE	'special.macros'
		string asis
		blanks off
		INCLUDE	'Finder.equ'
		INCLUDE	'Resource.equ'
		INCLUDE	'DP.equ'
		INCLUDE	'Data.equ'
		INCLUDE	'E16.LineEdit'
		INCLUDE	'E16.Event'
		INCLUDE	'E16.QuickDraw'
		INCLUDE	'Strings.equ'			;import strings

		PRINT	ON
		
;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

		IMPORT	PStringCopy
		IMPORT	PStringCat
		IMPORT	ConsoleWrite		; in GSOS.aii
		IMPORT	DateFormat
		IMPORT	WStringCopy
		IMPORT	ScreenHandle
		IMPORT	MemoryID
		IMPORT	PathAddName
		IMPORT	PToWString
		IMPORT	EjectAll		; in drives.aii
		IMPORT	writeDef		; in util.aii
		IMPORT	writeAllRoots		; in util.aii
		IMPORT	FileEntry
		IMPORT	MiscEntry
		IMPORT	matchDIB
		IMPORT	VerifyMedium
		IMPORT	ADDICONOBJ
		IMPORT	ADDIRECT2
		IMPORT	ADDNAME
		IMPORT	ALLOCATE
		IMPORT	ARROWCURSOR
		IMPORT	BIGERROR1
		IMPORT	BUILDPATH
		IMPORT	BUILDPATH2
		IMPORT	BUILDPATH3
		IMPORT	CKDATAERROR
		IMPORT	CKMEMORY
		IMPORT	CKROOTS
		IMPORT	CLONEPATH
		IMPORT	CLOSEKIDS
		IMPORT	CUTNFREE
		IMPORT	DEREFHAND
		IMPORT	DEVICESCAN
		IMPORT	DOCLOSE
		IMPORT	DOSETPREFIX2
		IMPORT	DOWRITE
		IMPORT	DRAWDESK
		IMPORT	DRAWICON2
		IMPORT	DUMPEXTICON
		IMPORT	DUPDEVICE2
		IMPORT	ENDDRAW
		IMPORT	FINDLASTNAME
		IMPORT	GETFRONTWIND
		IMPORT	GETICNAMEPTR
		IMPORT	GETICONRECT
		IMPORT	GETNEXTWIND
		IMPORT	GETRECTRGN
		IMPORT	GETWREFCON
		IMPORT	GETWREFCON2
		IMPORT	ID_BYDATE
		IMPORT	ID_BYICON
		IMPORT	ID_BYKIND
		IMPORT	ID_BYNAME
		IMPORT	ID_BYSICON
		IMPORT	ID_BYSIZE
		IMPORT	IFDESK
		IMPORT	INACTFILE
		IMPORT	LOCKFILE
		IMPORT	LOCKIC
		IMPORT	MENULIST
		IMPORT	NEWDATASIZE2
		IMPORT	NEWVIEW
		IMPORT	NORMALCOLOR
		IMPORT	PADNAME
		IMPORT	PRODOSERR
		IMPORT	PUSHTASK
		IMPORT	PUSHYRAT
		IMPORT	PUSHZPAGE
		IMPORT	READ2
		IMPORT	READ_BUFF
		IMPORT	READ_SIZE
		IMPORT	REDRAWLIST
		IMPORT	RESTORETEMP
		IMPORT	SAVETEMP
		IMPORT	SETICBLK
		IMPORT	SETORGNMASK
		IMPORT	STARTDRAW
		IMPORT	TEMP2PATH
		IMPORT	TODESKPORT
		IMPORT	TODESKTOP
		IMPORT	UNLOCKIC
		IMPORT	WALKBACK
		IMPORT	WALKEXT2
		IMPORT	WALKWINDOW
		IMPORT	WATCHCURSOR
		IMPORT	WINDCLICK
		IMPORT	WINDREFCON
		IMPORT	WRITEROOT
		IMPORT	WRITE_BUFF
		IMPORT	WRITE_LEN
		
		IMPORT	FiFiFI			; JAM 06/06/89 per MD/DTS
		import  UnloadSegs

;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

		ENTRY	updateInfoWin
		ENTRY	updateInfoWin2
		ENTRY	noRename
		ENTRY	hitIconName
		ENTRY	handleEvent
		ENTRY	getPattern
		ENTRY	FinderSaveAll
		ENTRY	CheckLECursor

maxCharWidth	equ	12			; maximum width of char in pixels

FVis		equ	$0020


*===============================================*
*	This is where we start			*
*===============================================*

main		PROC

		IMPORT	FinderStartUp
		IMPORT	FinderInit
		IMPORT	FinderEventLoop
		IMPORT	FinderShutDown
		IMPORT	FinderQuit
		IMPORT	TextAlert
		IMPORT	QuitUsDown
		IMPORT	NotDescriptors
		
		phk
		plb
		ora	#$0100
		sta	MemoryID

;
; Now that we have an initialization segment that we're done with, we should
; dispose of it before starting to read in icons or taking up memory in
; general.
;
; Call FiFiFi to init itself and then unload it.
;
		jsl     FiFiFi
		bcc	@fififiOK

		lda	#0
		ldx	#NotDescriptors
		ldy	#NotDescriptors>>16
		jsl	TextAlert
		
		brl	QuitUsDown
		
@fififiOK	jsl     UnloadSegs		; unload the FiFiFi segment
		
		jsr	FinderStartUp
		jsr	FinderInit
		jsr	FinderEventLoop
		
		EXPORT	SuperShutDown
SuperShutDown	jsr	FinderShutDown
		jmp	FinderQuit
		
		ENDP
		
*===============================================*
*	Startup the resources we need		*
*===============================================*

FinderStartUp	PROC		

		IMPORT	MyIDLong
		IMPORT	C1_PathNamePtr
		IMPORT	finderDPage
		IMPORT	finderTaskRecord
		IMPORT	StartStopRef
		IMPORT	StartupRecord
		IMPORT  ChangePath
		IMPORT	QDBank
		IMPORT	aboutWindowPtr
		IMPORT	helpWindowPtr
		IMPORT	lastOnTop
		import	line1
		import	line2
		import	NullButton
		import	OKStrText
		import	didSmoothie
		import	prefer
		import	deskpat
		import	commacharacter
		import	InfoWinColorTablePtr
		import	StartUpOOM
		import	LoadResources
		import	AllocateChains
		import	SetupLoad
		import	MenuInit
		import	TextAlert
		import	NotMemory
		import	NotSystem6
		import	TrashWindowColor		
		import	VerifyColor
		import 	c1_devnamebuf
		import 	c1_filenamebuf
		import	c1_pathbuf
		import	c1_sourcebuf
		import	c1_destbuf
		import	c1_temppathbuf
		import	c1_pathnamebuf
		import	DisposeHandleGlue
		import	NotMemoryCode

;
; Initialize this section of RAM
;
		ldx	#(EndDynamRAM-StartDynamRAM)-2
@loop1		lda	StartInitRAM,x
		sta	StartDynamRAM,x
		dex
		dex
		bpl	@loop1
		lda	StartInitRAM
		sta	StartDynamRAM

;
; Zero out this section of RAM
;
		ldx	#(EndZeroRAM-StartZeroRAM)-2
@loop2		stz	StartZeroRAM,x
		dex
		dex
		bpl	@loop2
		stz	StartZeroRAM

;
; --- Zero out my direct page ------------------
;

		ldx	#$FE
@dpLoop		stz	<0,x
		dex
		dex
		bpl	@dpLoop
		
		tdc
		sta	finderDPage
		clc
		adc	#TaskRec
		sta	finderTaskRecord

		stz	aboutWindowPtr		;tell it the about window is not open
		stz	aboutWindowPtr+2
		stz	helpWindowPtr
		stz	helpWindowPtr+2

;
; patch some addresses
;		
		lda #MaxPathLen+MaxFileName+4	;set our c1_output buffer sizes
		sta >C1_TempPathBuf
		sta >C1_PathBuf
		sta >C1_PathNameBuf

		lda #(MaxFileName*4)+4
		sta >C1_SourceBuf
		sta >C1_DestBuf
		
;
; startup tool locator
;
		_TLStartUp
		
;		
; startup Memory Manager
;				
		pha				; start Memory Manager
		_MMStartup
		pla
		sta	<myID			; my memory manager ID number

;
; Start tools
;
		_GetVersionGS VersionParms
		
		lda	VersionParms+2
;		and	#$7FFF			;mask proto bit
		asl a
		lsr a
		cmp	#$0402			;10-Mar-92 DAL
		bge	@got6_0
		
@notSystem6	lda	#0
		ldx	#NotSystem6
		ldy	#NotSystem6>>16
		jsl	TextAlert
		brl	ShutUsDown
@got6_0

		pei	<MyID
		_ResourceStartup

		jsl	allocateChains		;returns carry set or clear (error in A??)
		bcc	@gotDefaults
		tax
		brl	Requires6_0
@gotDefaults

		pha
		pha
		pei	<MyID
		pea	1
		_LGetPathname2
		pla
		sta	<ptr
		pla
		sta	<ptr+2
		
		_GetLevelGS OldLevelParms
		_SetLevelGS SetLevelParms

		pha
		pha
		pea	1			;process rBundle(1)
		pei <zero
		pea	$0040
		lda	<MyID
		ora	#$0100
		pha
		pushZLong <ptr
		jsl	LoadResources
		pulllong <handle2
		bcs	@loadResError

		pha
		pha
		pei	<MyID
		pea	1
		_LGetPathname2
		pla
		sta	<ptr
		pla
		sta	<ptr+2
		
		lda	[<handle2]
		sta	<ptr2
		ldy	#2
		lda	[<handle2],y
		sta	<ptr2+2
				
		pha
		pea	1
		pushZLong <ptr2			;resource fork address
		pushZLong <ptr			;pathname
		_OpenResourceFile
		tax
		pla
		bcs	@goRequires6_0

		_SetLevelGS OldLevelParms
		
		jsl	SetupLoad
		bcc	@loadOK			;returns error in Y
		tyx				;error code now in X

@goRequires6_0	phx
		pushZLong <handle2
		jsl DisposeHandleGlue
		plx
@loadResError	phx
		_SetLevelGS OldLevelParms
		plx
		brl	Requires6_0

@loadOK		pushZLong <handle2
		jsl DisposeHandleGlue
		
		pha				; space for reference
		pha
		pei	<myID
		pea	$0012			;refIsResource, no resource startup
		pushlong #1			;reference
		_StartUpTools
		tax
		pulllong startStopRef
		bcc	good

		phx

		lda	StartStopRef+1		;if we didn't get a handle, we're toast
		beq	@noStartStopRef
		
		pea	$0011			;start/stop record is a HANDLE, no resource shutdown
		PushLong StartStopRef		;no smooth quit, they're toast!
		_ShutDownTools
@noStartStopRef	plx
		cpx	#$0046
		beq	@goNotSystem6
		cpx	#$0110
		bne	Requires6_0

@goNotSystem6	_ResourceShutDown
		brl	@notSystem6

Requires6_0

*** added 12-Aug-92 DAL -- put error code into the "needs 300K" message
		pha
		pha				;space for HexIt
		phx
		_HexIt
		pla
		sta >NotMemoryCode
		pla
		sta >NotMemoryCode+2
*** end 12-Aug-92

		_ResourceShutDown

		lda	#0
		ldx	#NotMemory
		ldy	#NotMemory>>16
		jsl	TextAlert
		
ShutUsDown	jsr	DidSmoothie

		EXPORT	QuitUsDown
QuitUsDown	_QuitGS QuitParms		;and if they survive this... wow.
QuitParms	dc.w	0

VersionParms	dc.w	1
		dc.w	0

OldLevelParms	dc.w	2			;we want the real level stuff
		dc.w	0			;level
		dc.w	0			;level_mode

SetLevelParms	dc.w	2			;we want an absolute system level of $31
		dc.w	$31			;level
		dc.w	0			;level_mode

good		

;
; allocate 32k and put ourself in the out of memory queue -- if we can't allocate 32k here, go back
; to the text screen death routine and say that there's no way we're gonna try running with a memory
; situation this tight.
;
		jsl	StartUpOOM
		tax
		bcs	requires6_0	;should be go to a routine which says we need more memory!


*** 25-Nov-90 DAL
***
*** In Icons.aii, the routine drawHor (which draws a horizontal line segment
*** directly to screen memory) has a quirk where it reads and re-writes the
*** first byte immediately following screen memory, when you drag an icon
*** (on the desktop) to the very bottom-right of the screen.  It doesn't
*** *change* the byte, but it does re-write it.
***
*** The scanline control bytes immediately follow screen memory, but the
*** bank-one copies of the SCBs are not used (by convention) even though
*** the hardware shadows them.  When we have bank-1 shadowing enabled, this
*** means dragging an icon to the bottom right of the screen changes the
*** first SCB to the garbage value at $019d00.
***
*** The kludge fix is to copy $e19d00 to $019d00 if we got shadowing.
***
*** If anybody has a legitimate reason for changing the first SCB while
*** the Finder is running, this kludge will break.
***
*** And we thank you for your support.
***
*** 13-Mar-91 DAL
***
*** Fixed this fix to check the SHADOW register instead of the MasterSCB,
*** because CloseView may be using SHR shadowing even if we didn't get
*** it from QDStartUp.
***
		lda >$e1c035
		and #8
		bne @noShadow

		lda >$e19d00
		sta >$019d00
@noShadow
*** end 25-Nov-90 DAL

;
; Get quickdraw's WAP so we can maybe like play with it
;
		pha
		pha
		pei <zero
		pea 4
		_GetWAP
		pla
		sta	<QuickDrawDP
		pla
		
;	
; ------ Allocate some zero pages for the finder --------------------------
;
		ldx	<zero

		phx				space for handle
		phx
		phx				3 pages, high word
		pea	Total_zp		low word.
		lda	<MyID			; My master credit card number
		ora	#$0F00			; Tool DPs get their own auxID
		pha				; Pass credit card number.
		pea	$C005			locked,	fixed, fixed bank
		phx				No special address.
		phx
		_NewHandle
		bcc	@okay
		tax
		brl	requires6_0		;should be go to a routine which says we need more memory!
@okay		pulllong <handle

		lda 	#$200			; diagnostic tag 8/10/88 (JAM)
		ora	<MyID
		pha				;Let MiscStuff use my credit card.
		lda	[<handle]		;zp to use.
		
		if	misc_zp<>0 then
		clc
		adc	#Misc_zp
		endif
		
		pha				Pass direct page for MiscStuff to use.

		ldx	#xMiscStartup		Miscellaneous Finder routines.
		jsl	MiscEntry

		lda	#$300			; diagnostic tag 8/10/88 (JAM)
		ora	<MyID
		pha				Let File routines use my credit card.
		lda	[<handle]		zp to use.
		clc
		adc	#COPY_zp
		pha
		ldx	#xFileStartUp
		jsl	FileEntry

		lda	<MyID
		ora	#$0100
		sta	<MyID
		sta	MemoryID

;
; 2/1/90: djb/rdl fix for djb for CloseView: get QuickDrawÕs bank (1 or E1)
;
		pha
		pha
		_GetPort			; weÕve only started QD,
		pla				;  so this should give us a
		sta	<temp			;  QD port with QDÕs bank
		pla
		sta	<temp+2
		
		ldy	#optrToPixImage+1	; offset to high/bank of pixel image
		lda	[<temp],y		; in LocInfo record
		sta	QDBank			; save it
; end djb/rdl fix


		pushlong #c1_PathNamePtr
		_SetCtlParamPtr

;
; Initialize and draw our menu bar
;
		jsr	MenuInit		; setup Finder menus

;
; load the resources necessary for the trashcan, clipboard, help, and about box
;
		IMPORT	PStringCopy
		IMPORT	aboutBlk
		IMPORT	trashBlk
		IMPORT	clipBlk
		IMPORT	helpBlk
		IMPORT	validateBlk
		IMPORT	verifyBlk
	
		stz	whichResource
		
@loadLoop	pha
		pha
		pea	$8006		;rPString for "About the Finder" menu text
		
		pei <zero
		lda	whichResource
		asl	a
		tax
		lda	resourceIDs,x
		pha
		_LoadResource
		pulllong deref
		
		lda	[deref]
		tax
		ldy	#2
		lda	[deref],y
		sta	deref+2
		stx	deref
		
		pushZlong deref		;from

		lda	whichResource	;to
		asl	a
		asl	a
		tax	
		lda	putWhere+2,x
		pha
		lda	putWhere,x
		pha
		jsl	PStringCopy	;move the resource

		pea	-1		;dispose this guy immediately
		pea	$8006		;rPString
		
		pei <zero
		lda	whichResource
		asl	a
		tax
		lda	resourceIDs,x
		pha
		_ReleaseResource

		inc	whichResource
		lda	whichResource
		cmp	#12		;number of strings to move
		blt	@loadLoop		


;
; stuff the window type ID's into the clipboard, about box, help window, and trash window blocks
; We stuff the ID's in here to allow those block to run together and hopefully become sparse
;
;;;		lda	#clipBlk
		lda	#clipWindID	;Andy!  Cool bug!  --1-Dec-91 DAL
		sta	>clipBlk+windID

		lda	#AboutWindID
		sta	>aboutBlk+windID

		lda	#helpWindID
		sta	>helpBlk+windID

		lda	#trashWindID
		sta	>trashBlk+windID

		lda	#VerifyWindID
		sta	>validateBlk+windID
		sta	>verifyBlk+windID
;
; now, load and deref the rRectList(1) resource
;
		pha
		pha
		pea	$c001
		pushlong #1
		_LoadResource
		pulllong <deref
		
		lda	[<deref]
		tax
		ldy	#2
		lda	[<deref],y
		sta	rectlistPtr+2
		sta	<ptr+2
		stx	rectListPtr
		stx	<ptr
		
		ldy	#68+2
		lda	[<ptr],y
		sta	prefer
*** 23-Jun-92 DAL for 6.0.1
		iny
		iny
		lda [<ptr],y
		sta defaultQuitMethod
***
		
		ldy	#96+14+2
		ldx	#14
@loop		lda	[<ptr],y
		sta	deskpat,x
		dey
		dey
		dex
		dex
		bpl	@loop
		
		ldy	#64+2
		lda	[<ptr],y
		and	#$FF00
		sta	FolderColor
		iny
		iny
		lda	[<ptr],y
		sta	>CommaCharacter
		
;
; now, load and deref the rWindColor resources (must be locked, fixed, and preload)
;
		pha				;load GetInfo's rWindColor resource
		pha
		pea	$8010
		pushlong #2
		_LoadResource
		pulllong <deref
		
		lda	[<deref]
		tax
		ldy	#2
		lda	[<deref],y
		sta	>InfoWinColorTablePtr+2
		txa
		sta	>InfoWinColorTablePtr

		pha				;load directory, trash, clip window's
		pha				;rWindColor resource
		pea	$8010
		pushlong #1
		_LoadResource
		pulllong <deref
		
		lda	[<deref]
		tax
		ldy	#2
		lda	[<deref],y
		sta	wind_color+2
;;;		sta	>clip_color+2
		sta	>TrashWindowColor+2
		sta	>VerifyColor+2
		txa
		sta	wind_color
;;;		sta	>clip_color
		sta	>TrashWindowColor
		sta	>VerifyColor
		rts

;
; locals
;
		EXPORT	rectListPtr
rectListPtr	dc.L	0
		EXPORT	FolderColor
FolderColor	dc.w	0

		export defaultQuitMethod
defaultQuitMethod dc.w 0

whichResource	dc.w	0		;counter to load resources above

resourceIDs	dc.w	$100		;" About the Apple IIgs Finder "
		dc.w	$101		;"About the Finder"
		dc.w	$102		;" Trash "
		dc.w	$103		;"Trash"
		dc.w	$104		;" Clipboard "
		dc.w	$105		;"Clipboard"
		dc.w	$106		;" Finder Help "
		dc.w	$107		;"Finder Help"
		dc.w	$108		;" Bad Blocks "
		dc.w	$109		;"Bad Blocks"
		dc.w	$10A		;" Damaged Files "
		dc.w	$10B		;"Damaged Files"
	
putWhere	dc.L	aboutBlk+windTitle
		dc.L	aboutBlk+windMenuText
		dc.L	trashBlk+windTitle
		dc.L	trashBlk+windMenuText
		dc.L	clipBlk+windTitle
		dc.L	clipBlk+windMenuText
		dc.L	helpBlk+windTitle
		dc.L	helpBlk+windMenuText
		dc.L	verifyBlk+windTitle
		dc.L	verifyBlk+windMenuText
		dc.L	validateBlk+windTitle
		dc.L	validateBlk+windMenuText

		EXPORT finderString
finderString	str	'Apple~Finder~'
		endP

*===============================================*	
*						*
*		FinderShutDown			*
*						*
*===============================================*		

FinderShutDown	PROCNAME

		IMPORT	freeBlk
		IMPORT	StartStopRef
		IMPORT	DelNotifyProc
		IMPORT	SetGSOSAlerts
		IMPORT	HandleToPointer
		IMPORT	aboutWindowPtr
		IMPORT	helpWindowPtr
		IMPORT	finderVersionHandle
		IMPORT	systemVersionHandle
		IMPORT	finderString
		import	SayGoodbyeToExtensions
		import	PathSubName
		import	OOMShutDown
		import	DisposeHandleGlue

;--- Remove ourself from Notification queue ---- 

		jsl SayGoodbyeToExtensions

		jsl DelNotifyProc
		
;;;		pushlong #finderString
*** 2-Jun-92 DAL -- kill all request procs with main ID
		pei <zero
		pei <zero
;;;		pei <myID
		lda <myID
		and #$f0ff
		pha
*** end 2-Jun-92
		pei <zero
		pei <zero			;procedure address 0 = remove 
		_AcceptRequests		
			
		pei <zero
		jsl SetGSOSAlerts		; enable GS/OS alerts - 02/10/89

;--- Release Window resources ------------------

;commented out 11/9/90 by andy -- the window manager marks all windows as invisible and then
;closes them, so there is no need to close the windows individually which would slow the shutdown
;
;		PushZLong <TrashWind		; kill Trash window
;		_CloseWindow
;
;		PushZLong <clipWind		; kill Clipboard window
;		_CloseWindow

*** optimized 8-Jul-92 DAL
		ldx <TrashWind+2
		lda <TrashWind
		jsr MakeWindowInvisible
;		pha				;make the trash and clip invisible
;		pushZLong <TrashWind		;so that they are removed when we
;		_GetWFrame			;do our resfreshdesktop call
;		pla				;andy 11/21/90
;		and	#$ffdf
;		pha
;		pushZLong <TrashWind
;		_SetWFrame

*** Removed (3 lines) 19-Aug-92 DAL since clipboard is now a system window
;		ldx <clipWind+2
;		lda <clipWind
;		jsr MakeWindowInvisible

;		pha
;		pushZLong <clipWind
;		_GetWFrame
;		pla
;		and	#$ffdf
;		pha
;		pushZLong <clipWind
;		_SetWFrame
*** end 8-Jul-92

		lda	aboutWindowPtr+1
		beq	@noAbout
		
		pushlong finderVersionHandle
		jsl DisposeHandleGlue
		
		pushlong systemVersionHandle
		jsl DisposeHandleGlue
		
*** opt 8-Jul-92 DAL
		ldx aboutWindowPtr+2
		lda aboutWindowPtr
		jsr MakeWindowInvisible
;		pha
;		pushlong aboutWindowPtr
;		_GetWFrame
;		pla
;		and	#$ffdf
;		pha
;		pushlong aboutWindowPtr
;		_SetWFrame
*** end 8-Jul-92
@noAbout
		
		lda	helpWindowPtr+1
		beq	@noHelp

*** opt 8-Jul-92 DAL
		ldx helpWindowPtr+2
		lda helpWindowPtr
		jsr MakeWindowInvisible

;		pha
;		pushlong helpWindowPtr
;		_GetWFrame
;		pla
;		and	#$ffdf
;		pha
;		pushlong helpWindowPtr
;		_SetWFrame
*** end 8-Jul-92
@noHelp

;--- Shutdown the tools and dispose memory -----
	
*** Moved - 22-Mar-93 JCM - Only copy the app to quit to if we're going to be using it.
***			    If C1_QuitName happened to be used to hold an error string, but
***			    we're not launching an app from here, then we'd copy far too many
***			    bytes with the WStringCopy. This would kill us.
	
;;;		PushLong #C1_QuitName
;;;		PushLong #C1_PathName
;;;		jsl	WStringCopy
		
;;;		jsr	findLastName		; lastName = application name.

;;;		pushlong #c1_pathname
;;;		jsl	PathSubName
		
*** End - 22-Mar-93 JCM
		
		lda	quit_path		; Just quitting? (i.e., is
		ora	quit_path+2		; quit_path word zero?)
		bne	checkLaunchInfo
		
		pei <zero			;get rid of anything left on the
		pei <zero			;screen if we are quitting
		_RefreshDesktop
		brl	justShutDown

checkLaunchInfo

*** Moved - 22-Mar-93 JCM - Only copy the app to quit to if we're going to be using it.
***			    If C1_QuitName happened to be used to hold an error string, but
***			    we're not launching an app from here, then we'd copy far too many
***			    bytes with the WStringCopy. This would kill us.
	
		PushLong #C1_QuitName
		PushLong #C1_PathName
		jsl	WStringCopy
		
		jsr	findLastName		; lastName = application name.

		pushlong #c1_pathname
		jsl	PathSubName
		
*** End - 22-Mar-93 JCM
		
		_GetFileInfoGS launchInfoParms
		bcc	@1
		brl	justShutDown
@1

;		lda	launchInfoParms+8	;get filetype, must be $B3
;		cmp	#$B3
;		beq	@2
;		cmp	#$FF
;		beq	@3
;		brl	justShutDown
;@2
;
;		lda	launchInfoParms+10	;get auxtype, must be $db02 at least
;		and	#$ff02
;		cmp	#$db02
;		beq	@3
;		brl	justShutDown
;@3

		pha
		pha
		_GetPort
		
		pha
		pha
		_GetMenuMgrPort
		_SetPort
		
		pha
		pha
		_GetMenuBar
		pla
		plx
		
		pha				;space
		pha
		phx
		pha
		jsl	handleToPointer		;deref the handle to our menu bar's
		pulllong <work			;menu bar record

		ldy	#8
		ldx <zero
rLoop		lda	[work],y
		sta	myzz3rect,x
		inx
		inx
		iny
		iny
		cpx	#8
		blt	rLoop

		pushlong #myzz3rect
		pea	2
		pea	1
		_InsetRect

		pushlong #myzz3rect
		_EraseRect
		
		pha				;find out how long our app's name is
		pushlong #lastName+1
		_CStringWidth
		pla
		lsr	a			;divide by 2 because we're centering it
		sta	work+4
		
		ldy	#10			;add the right edge to the left edge of
		lda	[work],y		;our menu bar's rect
		clc
		ldy	#14
		adc	[work],y
		lsr	a			;div by 2 because we're centering
		sec
		sbc	work+4			;the total length - the string length
		pha				;will tell us where to put our text so
		pea	10			;that it's centered.
		_MoveTo
		
		pushlong #lastname+1		;draw it up there -- everyone is happy
		_DrawCString
		
		_SetPort

		pei <zero			;we only do this trick if the desktop is going
		pei <zero			;to bother to stay on the screen
		_RefreshDesktop
				
;;		PushZLong <deskPort		; close desktop port
;;		_ClosePort
;;	
;;		stz	<deskPort
;;		stz	<deskPort+2
		jsr CloseDeskPortSafelyPlease	;9-Feb-92 DAL

		pea	5			;shut us down without turning off the
		PushLong StartStopRef
		_ShutDownTools
		bra	didSmoothie		;SHR screen since our next app is a desktop

justShutDown
;;		PushZLong <deskPort		; close desktop port
;;		_ClosePort
;;	
;;		stz	<deskPort
;;		stz	<deskPort+2
		jsr CloseDeskPortSafelyPlease	;9-Feb-92 DAL

		pea	1			;start/stop record is a HANDLE
		PushLong StartStopRef
		_ShutDownTools

;
; first, see if Standard File is still active, and if it is, shut it down
;
		export	DidSmoothie
didSmoothie	pei <zero
		_SFStatus
		pla
		beq	@SFNotActive
		
		_SFShutDown
;
; now, get rid of all the extra allocated memory we grabbed or used in our OOM routine
;
@SFNotActive	jsl	OOMShutDown		;get rid of our OutOfMemory routine (if it's there)

;		lda	#$0900			;rFinderPath and rVersion ID's
;		jsr	Dispose0A00
;		lda	#$0800			;rBundle ID's
;		jsr	Dispose0A00
;		lda 	#$0700			;rIcon ID's
;		jsr 	Dispose0A00
;		lda 	#$0200
;		jsr 	Dispose0A00
;		lda 	#$0300
;		jsr 	Dispose0A00
;		lda 	#$0F00
;		jsr 	Dispose0A00
;		lda 	#$0100
;		jsr 	Dispose0A00
*** opt 8-Jul-92 DAL (saved 33 bytes)
		lda MemoryID
		ora #$0F00
		ldx #15		;do 15 DisposeAll calls, $1Fxx..$11xx
@disposeMore	pha
		phx
		pha		;ID to dispose
		_DisposeAll
		plx
		pla
		xba
		dec a
		xba
		dex
		bne @disposeMore
*** end 8-Jul-92

		lda	MemoryID
		and	#$F0FF			;The id by which Mr. MM knows me
		pha
		_MMShutdown			;Memory manager off for me
		_TLShutDown			;shut the tool locator down
		
		rts

;		EXPORT	Dispose0A00
;Dispose0A00	pha
;		lda MemoryID
;		and #$F0FF
;		ora 1,s
;		sta 1,s
;		_DisposeAll
;		rts


*** 8-Jul-92 DAL -- MakeWindowInvisible subroutine saves bytes (window in XA)
MakeWindowInvisible
		pha	;space for SetWFrame frame value
		phx
		pha	;window ptr for SetWFrame

		pha	;space for GetWFrame
		phx
		pha	;window pointer
		_GetWFrame
		pla
		and #$ffdf	;clear the fVisible bit
		sta 5,s
		_SetWFrame
		rts
*** end 8-Jul-92


*** added 9-Feb-92 DAL -- We need to call Desktop(7,nil) so the Window Manager
***   will stop trying to magically update our port's visRgn.
CloseDeskPortSafelyPlease
		pea 7			;BackGroundRgn
		pei <zero
		pei <zero		;no background region!
		_Desktop
		PushZLong <deskPort	; close desktop port
		_ClosePort
		stz <deskPort
		stz <deskPort+2
		rts
*** end 9-Feb-92 DAL
		
launchInfoParms	dc.W	4
		dc.L	C1_QuitName
		dc.W	0			;access
		dc.W	0			;filetype
		dc.L	0			;auxtype
		
myzz3rect	ds	8			;dave made up this name

		ENDP

*===============================================*
*		Application quit 		*
*						*
* Note: all direct page variables are gone!!	*
*===============================================*

FinderQuit	PROCNAME
		IMPORT	IgnoreGSOSError
		
		jsl	IgnoreGSOSError		; don't handle errors (no alerts)

		lda	quit_path		; Just quitting? (i.e., is
		ora	quit_path+2		; quit_path word zero?)
		beq	justQuit

; --- Print name of application	being launched ----------------------------
		
		PushLong #lastName
 		jsl	ConsoleWrite

; --- Set prefix 0 or 8 to c1_pathname (app is in that folder) ------------

		jsr	doSetPrefix2		; Set prefix to application's directory.

; --- Quit to application -------------------------------------------------

justQuit
		jsl	ProDOS			;Do a ProDOS Quit call
		DC.W	QUIT+C1
		DC.L	quit_list

		ENDP

;==============================================
;	Finder's Main Event Loop
;==============================================

FinderInit	PROC

		IMPORT	volumeNameHandle
		IMPORT	C1_SystemName
		IMPORT	C1_BootName
		IMPORT	GetBootVolList
		IMPORT	matchForStoragetype
		IMPORT	matchForHFSFiletype
		IMPORT	matchForHFSCreator
		IMPORT	matchForOptionList
		IMPORT	allocateChains
		IMPORT	toTop
		IMPORT	getClickSpeed
		IMPORT	AddNotifyProc
		IMPORT	SetGSOSAlerts
		IMPORT	InitCursor
		IMPORT	HandleGSOSError
		import  requestProc
		import	numExtrasItems
		import	SayHelloToExtensions
		import	WStringCopy
		import	LoadNewIcons
		import	rectListPtr
		import	SuperShutDown
		import	OOMFlag
		import	doAlertWindow
		import	KillChains
		import	CloseAllMenu
		import	PuticonBack2
		import	WalkOfLife3
		import	Dispose0A00
		import	CountReadOnlyFSTs
		import	ID_QUIT
		import	cleanupState
		import	GetBootVolume
		import	NewView
		import	DisposeHandleGlue
		
		jsl	InitCursor
		jsl	CountReadOnlyFSTs

		PushWord #1
		jsl	SetGSOSAlerts		; disable GS/OS alerts - 02/10/89

		jsl	HandleGSOSError		; handle errors ourselves (our alerts)

		pea	DelMessage
		pea	FilesMessage
		pha
		pha
		_MessageCenter

*** Removed 16-Jul-92 DAL, because the toolbox does this automatically on killing msg 1
;		pea	DelMessage
;		pea	LongFilesMessage
;		pha
;		pha
;		_MessageCenter

		jsr	getClickSpeed		Fetch system double click speed.

; --- Load default file	from @:Finder.Defaults ---------------------------------

		lda	#DEF_SIZE
		sta	read_size
		stz	read_size+2

		lda	#prefer
		sta	read_buff
		lda	#prefer>>16
		sta	read_buff+2

		ldx	#defaultName
		ldy	#defaultName>>16
		jsr	read2

		jsr	getPattern		; get the pattern in the system

		lda	prefer
		and	#PREF_ALL		; clear unused bits
		sta	prefer

; --- Open a desktop port ----------------------------------------------

		lda	#port
		ldx	#port>>16
		sta	<deskPort
		stx	<deskPort+2
		sta	<curWind		Current	icon plane is the desktop.
		stx	<curWind+2

		phx
		pha
		_OpenPort

		pea	deskPat>>16		Desktop	color.
		pea	deskPat
		_SetBackPat

		pea	7			Pass my	visRgn as the floor region.
		lda	port+VisRgn+2
		pha
		lda	port+VisRgn
		pha
		_DeskTop			;Window Manager will now set my visRgn
						;to the desktop less any windows whenever
						;there is any change in the windows.

; --- Install my draw desktop routine ---------------------------------

		pea	5
		pea	DrawDesk>>16		Address	of my routine to draw desktop.
		pea	DrawDesk
		_DeskTop			Also draw the desktop.

; --- Get scan line addresses for my RECT draw routine --------------------

		pha				Space for result.
		pha
		pea	1			Get scan line address table command.
		_GetAddress
		pla
		sta	<lineAddrs
		pla
		sta	<lineAddrs+2

		jsl	GetBootVolume

*** Removed 18-Aug-92 DAL
; ------ Open an invisible Clipboard window -------------------------------
;
;		lda	rectListPtr
;		sta	<ptr
;		lda	rectListPtr+2
;		sta	<ptr+2
;		
;		ldy	#88+6+2
;		ldx	#6
;@loop		lda	[<ptr],y
;		sta	wind_pos,x
;		dey
;		dey
;		dex
;		dex
;		bpl	@loop
;		
;		pha				;Space for result.
;		pha
;		PushLong #clip_param		;Pass pointer to NewWindow parameter list.
;		_NewWindow
;		PullLong <clipWind

;
; add us to the sendRequest queue
;
		pushlong #finderString
;;;		pei	MyID
*** 2-Jun-92 DAL
		lda <MyID
		and #$f0ff
		pha
*** end 2-Jun-92
		pushlong #requestProc 
		_AcceptRequests

		lda <zero
		sta >numExtrasItems
		jsl SayHelloToExtensions

;
; --- Add ourself to the Notification Queue ----
;	
		jsl	AddNotifyProc

;
; --- Find out what devices are	connected to the system	------------------
; --- mount them; put up icon(s); read FINDER.ROOT; open windows ---------
;
		stz	quit_flags
		
		PushWord #$FFFF			; indicates a startup
		jsl	DeviceScan		; force online devices to be mounted
		bcc	@scanOK
		brl	ID_QUIT
@scanOK

;
; --- Force the	last top window	to be top again	--------------------------
;
		lda	#MaxPathLen+MaxFilename+6 ;Number of bytes to allocate.
		jsr	allocate
		bcs	noMessageMemory
		phx				Pass to	DisposeHandle.
		pha

		pea	GetMessage		Check if top window message is there.
		pea	TopMessage		Top window message.
		phx				Handle of data area to place message in.
		pha
		_MessageCenter
		bcs	noMessage

		lda	3,s
		tax
		lda	1,s			a,x = handle of	message.

		phx
		pha
		_HLock				Lock the handle.

		lda	3,s
		tax
		lda	1,s			a,x = handle of	message.
		jsr	derefHand		temp = (Handle)

		lda	#DirWindID
		ldx	#toTop
		jsr	walkWindow		Check every directory window.
noMessage	jsl DisposeHandleGlue

noMessageMemory	pea	DelMessage		;remove the top message now
		pea	TopMessage
		pha
		pha
		_MessageCenter

		stz	cleanupState
		
		jsl	ArrowCursor		
		rts
		
		ENDP

;==============================================
;	Finder's Main Event Loop
;==============================================

FinderEventLoop	PROCNAME

		import	checkCleanUp
		IMPORT	DeviceScan
		IMPORT	DeskWindState
		IMPORT	CheckFront
		IMPORT	CheckWindows
;		IMPORT	CheckScrap
		IMPORT	CheckSysParams
		IMPORT	CheckPattern
		IMPORT	CheckScrollBars
		IMPORT	CheckMenus
		IMPORT	CheckLECursor
		IMPORT	CheckDevice
		IMPORT	checkAboutRecalc
		IMPORT	openAppleKey
		IMPORT	shiftKeyStatus
		IMPORT	controlKeyStatus
		IMPORT	CheckSelectionChanged
		IMPORT	RechargeOOM
		IMPORT	SayIdle
		IMPORT	VerifyClose
		IMPORT	WalkWindow
		import	DeselectAll,PendingDeselectAll
		IMPORT	CheckVolumeChanged

*** added 5-Jun-92 DAL -- If PendingDeselectAll (from an Open), deselect everything and
***                       make front directory window the active plane
		lda PendingDeselectAll
		beq @noDeselectAll
		stz PendingDeselectAll

		jsr DeselectAll

		lda #DirWindID+TrashWindID
		jsr getFrontWind
		beq @noDeselectAll

		lda <wind+2
		ldx <wind
		sta <curWind+2
		stx <curWind
@noDeselectAll
*** end 5-Jun-92

		jsr	CheckDevice		; status all removable disks
		jsr	CheckVolumeChanged	;7-Feb-93 JCM - see if we need to update windows because of extensions
		jsr	CheckFront		;every time through the loop, check if a new window has come to front

		jsl	RechargeOOM
		
		lda	quit_flags
		beq	@noExit
		brl	exit
@noExit		

		lda	#$7F3F			;no bit 6 because we want to handle drags
		sta	<TaskMask		;ourself 
		lda	#$001E			;no bit 15, we handle content stuff ourself
		sta	<TaskMask+2		;no bit 7 because we do content ourself
		
		lda	<LErename+1
		beq	skip2

		jsr	startDraw
		pei	<LErename+2
		pei	<LErename
		_LEIdle
		jsr	endDraw

skip2		lda	#$FFFF
		sta	allowTellFinderCalls

		jsl	SayIdle		
		jsl	CheckSelectionChanged

		pha				; space for result
		PushWord #$3F6E			; event mask
		jsr	pushTask		; Pass pointer to Task record
		_TaskMaster
		plx
		bne	haveEvent

nullEvent	sec
		lda	<when
		sbc	eventTicks
		sta	idleTicks
		lda	<when+2
		sbc	eventTicks+2
		sta	idleTicks+2

		jsr	CheckAboutRecalc
		jsr	CheckCleanUp
		jsr	CheckWindows		;check our windows for changes
;		jsr	CheckScrap		;check for scrap changes
		jsr	CheckSysParams		;check for new system parameters
		jsr	CheckPattern		;check for new pattern message
		jsr	CheckScrollBars		;check if scroll bars changed
		jsr	CheckMenus		;set menu items to state of desktop
		jsr	CheckLECursor		;fix cursor over a rename field

		brl	FinderEventLoop

;
; the tickCounts below contain the number of ticks that we have been idle and the tickCount after we
; last handled an event
;
		EXPORT	idleTicks
idleTicks	dc.L	0
eventTicks	dc.L	0

		EXPORT	frqGlobalError
frqGlobalError	dc.w	0
		EXPORT	allowTellFinderCalls
allowTellFinderCalls dc.w 0

;
; we had something happen (run, as fast and as far as you can)
;
haveEvent	stz	allowTellFinderCalls

		lda	<modifiers
		and	#$0800			;mask for option key
		sta	functionKey
		
		lda	<modifiers
		and	#$0100			;mask for open-Apple key
		sta	openAppleKey
		
		lda	<modifiers
		and	#$0200
		sta	shiftKeyStatus
		
		lda	<modifiers
		and	#$1000
		sta	controlKeyStatus

		txa
		jsr	HandleEvent		; handle event
		jsr	CheckMenus		; now set menu items to state of desktop

		pha				;save the tickCount when we handled this event
		pha
		_TickCount
		pulllong eventTicks

		lda	quit_flags		; is there an application to launch?
		bne	exit
		brl	FinderEventLoop		; no

;-----------------------------------------------
exit		name
		jsr	noRename		; remove any rename field
		
		_WaitCursor
		
		jsr	FinderSaveAll		; save all important stuff
		
;--- Drag all online disk icons to the Trash ---

		_CloseAllNDAs
		
		pushlong <Taskdata		; close all the validate and verify windows
		lda	#VerifyWindID
		ldx	#VerifyClose
		jsr	walkWindow		
		pulllong <TaskData

		lda	<deskport		; switch to desktop
		sta	<curWind
		lda	<deskport+2
		sta	<curWind+2

		lda	#alldisks
		jsr	walkBack

		lda	#cutNFree		; free all icons on the desktop
		jsr	walkBack		; must walk backwards

; Mensch 5/15/89 (Fixing BRC #49179) - insertion A (others are in menu.aii)
; Added to support better quitting when you use the shutdown menu.
; Shutdown/Restart and normal finder quit operations now all exit via the same code.
; Also, shutdown & restart save the finder.data files properly.
		
		IMPORT	RealRestart
		IMPORT	RealShutdown
		
		lda	quit_flags		; test quit flag to see if it was shut
		and	#$000F
		beq	@PlainQuit		; if the bit is clear, regular quit
		and	#$0002			; how about restart or shutdown?
		beq	@ShutDown		; go to a stepping-stone
		brl	RealRestart
@ShutDown
		brl	RealShutdown
@PlainQuit
; end of BRC #49179 - insertion A
		rts				; quit to application
		
;----------------------------------------------
alldisks	name

		ldy	#icFType		; only disk icons
		lda	[<ic],y
		bpl	exit100			; not a disk if not negative
		cmp	#TypeFTrash		; not a disk
		bcs	exit100
		cmp	#TypeFDrive		; not a disk
		beq	exit100

		jsr	closeKids		; close this icon's windows

exit100		clc
		rts

		EXPORT	lastAboutTime
lastAboutTime	dc.w	0			;last time we updated the aboutBox
		EXPORT	aboutWindowPtr
aboutWindowPtr	dc.L	0
		EXPORT	helpWindowPtr
helpWindowPtr	dc.L	0
		EXPORT	helpTopic
helpTopic	dc.w	$1000
		ENDP

*===============================================*
* Status Removable Devices for Disk Switches	*
*===============================================*

CheckDevice	PROC

		lda	<when
		sec
		sbc	lastTime
		cmp	#52			; about 1 second
		bcc	@done

		lda	<when			; start counter again
		sta	lastTime

		pei <zero			; not a startup call
		jsl	DeviceScan		; force disk inserts to be posted
@done		rts

;
; locals
;
lastTime	dc.w	0
		ENDP

*===============================================*
* Check for new system parameters		*
*===============================================*

CheckSysParams	PROC

		IMPORT	GetClickSpeed

		lda	<when
		sec
		sbc	LastParamTime
		cmp	#90			; about 1.5 seconds
		bcc	end

		lda	<when			; start counter again
		sta	LastParamTime

		jsr	GetClickSpeed		; fetch system double click speed

		lda DateFormat
		pha				;save old format to see if it changes

		pha
		PushWord #$34			; Get user's date format
		_ReadBParam
		PullWord DateFormat		; set date format bits
		
		pha
		PushWord #$35			; Get time format
		_ReadBParam
		pla
		beq	set
		lda	#$8000			; set 24 hour bit
set		tsb	DateFormat

*** 20-Feb-92 DAL -- If we actually changed DateFormat, we walk the windows and
*** invalidate any list-view windows that show the date in them.
		pla				;retrieve old format
		cmp DateFormat
		beq @same

		lda #dirWindID+trashWindID
		ldx #InvalIfByDate
		jsr walkWindow
@same
*** end 20-Feb-92
		
end		rts

;
; InvalIfByDate
;
; Invalidate window if it's a directory window & contains
; a Last Modified column
;
; Input:  <wind, <windBlk
;
InvalIfByDate	ldy #windView
		lda [<windBlk],y
		cmp #viewByName
		bcc @skip	;don't inval if by icon
		cmp #viewByDate
		beq @invalThis	;definitely inval if by date

		lda prefer
		and #PREF_SHOWDATE
		beq @skip	;don't inval if no Date column

@invalThis	pha
		pha
		_GetPort
		pei <wind+2
		pei <wind
		_SetPort
		pushlong #bigRect
		_InvalRect
		pushlong #bigRect
		_EraseRect
		_SetPort

@skip		clc		;continue the walk
		rts

bigRect		dc.w 0,0,10000,10000

		ENDP

*===============================================*
* Check for Scroll Bar changes			*
*===============================================*

CheckScrollBars	PROC

		lda	#DirWindID+TrashWindID
		jsr	getFrontWind
		beq	end			; skip if not a directory or Trash window.

		lda	<TaskData		; were the scroll bars touched?
		cmp	#wInFrame
		beq	ckSize			; if yes, recompute window's data size.
		cmp	#wInZoom		; was the window zoomed?
		beq	ckSize			; if yes, recompute window's data size.
		cmp	#wInGrow		; was the window resized?
		bne	end			; if not, never mind

ckSize		jsr	newDataSize2		; compute new data for window

end		rts

		ENDP

*** Removed 19-Aug-92 DAL
;*===============================================*
;* Check Scrap for changes			*
;*===============================================*
;
;CheckScrap	PROC
;
;		lda	<when
;		sec
;		sbc	LastScrapTime
;		cmp	#90			; about 1.5 seconds
;		bcc	end
;
;		lda	<when			; start counter again
;		sta	LastScrapTime
;
;		pha				; Look at scrap count
;		_GetScrapCount
;		pla
;		cmp	LastScrapCount		; has it changed?
;		beq	end			; no
;		sta	LastScrapCount		; Yes, update our last
;		pha				; is the clipboard visible?
;		pei	<clipWind+2
;		pei	<clipWind
;		_GetWFrame
;		pla
;		and	#FVis
;		beq	end			; not vis, so no change
;		pha				; save the current port
;		pha
;		_GetPort
;		pei	<clipWind+2		; make clipboard window the current port
;		pei	<clipWind
;		_SetPort
;		lda	#work			; get the port rect into temp area
;		jsr	pushzpage
;		_GetPortRect
;		lda	#work			; call inval rect
;		jsr	pushzpage
;		_InvalRect		
;		_SetPort			; restore port
;		
;end		rts
;
;		ENDP


*===============================================*
* Check for a new Pattern Message		*
*===============================================*

CheckPattern	PROC
		import NewDeskPatFlag

*** added 12-Dec-91 DAL
		lda	NewDeskPatFlag
		bmi	@definitelyNew
*** end 12-Dec-91

		lda	<when
		sec
		sbc	LastPatternTime
		cmp	#60*10			; about 10 seconds
		bcc	end

@definitelyNew	lda	<when			; start counter again
		sta	LastPatternTime

		jsr	getPattern
		bpl	end

		pea	5
		pea	DrawDesk>>16
		pea	DrawDesk
		_DeskTop			; draw the desktop

end		rts
		
		ENDP


;-----------------------------------------------
; Check if cursor is over a line edit field
;-----------------------------------------------
CheckLECursor	PROC

		IMPORT	ArrowCursor
		IMPORT	InsertCursor
		IMPORT	ArrowPtr
		IMPORT	InsertPtr

		lda	<LErename+1		; is there a line edit field?
		bne	@hasLE
		rts

@hasLE		lda	LEwind
		sta	<curWind
		lda	LEwind+2
		sta	<curWind+2

		jsr	StartDraw

		pushlong #mousePoint
		_GetMouse

		lda	mousePoint
		sta	<yrat
		lda	mousePoint+2
		sta	<xrat

		pushlong #mousePoint
		_LocalToGlobal
		
		pha
		pushlong #TopWindow
		pushlong mousePoint
		_FindWindow
		pla
		cmp #wInDesk
		beq @onDesk
		cmp #wInContent
		bne @resetCursor	;if we're over a scroll bar/etc, use arrow
		bra @notDesk

*** If we're in the desktop, use IBeam only if LEWind is deskPort
@onDesk		lda <deskPort+1
		bra @checkWindow

@notDesk	lda TopWindow+1
@checkWindow	cmp <curWind+1
		bne @resetCursor

@inLEWindow	pha				; space for result
		PushZPtr <yrat
		PushLong #viewRect
		_PtInRect
@notInLEWindow	ply				; was it in the line edit field?
		beq	no

		jsl	InsertCursor
		bra	done

@resetCursor
no		jsl	ArrowCursor

done		jsr	EndDraw
exit		rts

;
; locals
;
TopWindow	dc.L	0				
mousePoint	dc.L	0

		ENDP
		
; = = =	= = = =	= = = =	= = = =	= = = =	= = =
;	   Force correct top window.
; = = =	= = = =	= = = =	= = = =	= = = =	= = =
;
; Called from walkWindow for each current directory window.  A window that
; matches the pathname in the message will be made the top window.
;
;   IN:	   temp	= pointer to message that contains pathname of top window.
;	   wind	= window to check.
;	   windBlk = window's info block.
;
; = = =	= = = =	= = = =	= = = =	= = = =	= = =
toTop		PROC

		IMPORT	WStrCompare
		
		pha				; space for result
		
		ldx	<windBlk+2
		lda	<windBlk
		clc
		adc	#windPath		; offset to window's pathname
		bcc	cont1
		inx
cont1		phx				; pass ptr to window's name
		pha

		ldx	<temp+2
		lda	<temp
		clc
		adc	#6			; offset to pathname in message
		bcc	cont2
		inx
cont2		phx				; pass ptr to message's name
		pha
		jsl	WStrCompare
		pla
		clc
		beq	@done

		PushZLong <wind			; make this window the active window
		_SelectWindow
		sec				; quit walkWindow
@done		rts

		ENDP

; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =
;	   Fetch system	double click speed.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =

GetClickSpeed	PROC

		pha				; space for result
		pha
		_GetDblTime			; fetch system double click speed
		pla
		plx
		sta	doubleSpeed
		rts

		ENDP

;==============================================
;	   Handle TaskMaster event.
;==============================================
;
;   IN:	   a-reg = Task Master event code
;
;==============================================

handleEvent	PROCNAME EXPORT

		IMPORT	insertItemRef
		IMPORT	OpenAll
		IMPORT	helpControls
		IMPORT	closeAllMenu,closeMenu
		IMPORT	matchWindName
		IMPORT	pathGetName
		IMPORT	allocate2
		IMPORT	setTemp
		IMPORT	openFolder3
		IMPORT	pathSubName
		IMPORT	aboutWindowPtr
		IMPORT	GrowLErects
		IMPORT	SetLErects
		IMPORT	InfoControls
;		IMPORT	LEfilter
		IMPORT	LEWind
		IMPORT	CleanUpLE
		IMPORT	RenameIcon
		IMPORT	walkWindow
		IMPORT	WStringCopy
		IMPORT	FindWindows
		IMPORT	matchDev
		IMPORT	walkOfLife
		IMPORT	MountDisk
		IMPORT	ProcessMenu
		IMPORT	GetDeviceInfo
		IMPORT	GetVolumeInfo
		IMPORT	moveMenuToFront
		IMPORT	pickAWindow
		IMPORT	allowTellFinderCalls
		IMPORT	getWindID
		IMPORT	deselectAll
		IMPORT	NoRename
		IMPORT	MakeField
		IMPORT	findFirstIcon
		IMPORT	findSelect
		IMPORT	lockic
		IMPORT	unlockic
		IMPORT	iconCount
		IMPORT	firstIcon
		IMPORT	MarkDeviceOffline
		IMPORT	MarkDeviceOnline
		IMPORT	IsDeviceOnline
		import	DisposeHandleGlue
		IMPORT	selectionIsChanging

;;;volChangedEvt	equ	app1Evt	;8-Feb-93 JCM - no longer used
diskSwitchEvt	equ	app2Evt
wInControl	equ	$0021
wInSpecial	equ	$0019

*** 20-Feb-92 DAL -- changed to a sentinel search
		sta EventTable
		ldx #EndTable-EventTable
@search		dex
		dex
		dex
		dex
		cmp EventTable,x
		bne @search
		jmp (EventTable+2,x)
*** end 20-Feb-92

;-----------------------------------------------
EventTable	dc.w	$7777,_ignore
; JAM 06/01/89 Fixing BRC #49639
; NOTE:  We have disabled GS/OS Volume Change Notification, so the only one who
; will use this entry is the Finder, whenever it has to mop up a window with brute force
;;;		DC.W	volChangedEvt,_VolumeChange	; end JAM 06/01/89 BRC #49639 - 7-Feb-93 JCM - no longer passed as events
		dc.w	wInControl,_InControl
		dc.w	wInContent,_InContent
		dc.w	wInMenuBar,_InMenuBar
		dc.w	wInSpecial,_InMenuBar
		dc.w	wInGoAway,_InGoAway
		dc.w	keyDownEvt,_KeyDown
		dc.w	autoKeyEvt,_AutoKey
		dc.w	wInInfo,_InInfoBar
		dc.w	diskSwitchEvt,_DiskSwitch
		dc.w	wInDesk,_InDesk
		dc.w	wInDrag,_InDrag
EndTable
;-----------------------------------------------

_ignore		rts

*** added 18-Feb-92 DAL -- Change Views by clicks in the info bar
;
; handle a mouseDown in the info bar
;
_InInfoBar	name
		import ViewMenus,GetWRefCon2
		lda <TaskData		;Get window's info block.
		ldx <TaskData+2
		jsr GetWRefCon2		;into <windBlk

		ldy #windID
		lda [<windBlk],y
		and #dirWindID+trashWindID
		beq @bogus

		ldy #windView		;Icon view has no headers to click on
		lda [<windBlk],y
		cmp #viewByName
		bcc @bogus

		pha
		pha
		_GetPort
		pei <TaskData+2
		pei <TaskData
		_SetPort

		pei <zero
		tdc
		clc
		adc #yrat
		pha
		_GlobalToLocal
		lda <yrat
		cmp #-9
		bcc @notInHeader
		cmp #-2
		bcs @notInHeader

		jsr ComputeViewFromX	;into carry, A
		bcs @notInHeader

		ldy #windView
		cmp [<windBlk],y
		beq @viewAlreadyOK

		clc
		adc #idByIcon
		jsr ViewMenus

@viewAlreadyOK
@notInHeader	_SetPort

@bogus		rts

;
; ComputeViewFromX
;
; Input:  <xrat = horizontal position in info bar (local coordinates)
;
; Output: CLC, A = view number they clicked in
;         SEC, not in a column header
;
;
; "[access] Name      [Size]  [Kind]  [Date]"
;
ComputeViewFromX ;name
		jsr ComputeColumns

		ldx <zero
@checkRange	lda nameCoords,x
		beq @tryNextCol
		cmp <xrat
		bcs @tryNextCol
		lda <xrat
		cmp nameCoords+2,x
		bcs @tryNextCol
		txa
		lsr a
		tax
		lda translateToView,x
;		clc
		rts

@tryNextCol	inx
		inx
		inx
		inx
		cpx #16
		bcc @checkRange
;		sec
		rts

translateToView	dc.w viewByName,viewBySize,viewByKind,viewByDate

ComputeColumns	;name
columnTwo	equ dxViewSize

		stz sizeCoords		;in case field is not displayed!
		stz kindCoords
		stz dateCoords

		jsr ComputeNameColumn	;into nameCoords

		lda #columnTwo
		sta curX

		lda #viewBySize
		jsr CheckColumnPresent
		bcs @noSize
		sta sizeCoords
		lda #dxViewKind-dxViewSize
		jsr AdvanceCurX
@noSize
		lda #viewByKind
		jsr CheckColumnPresent
		bcs @noKind
		sta kindCoords
		lda #dxViewDate-dxViewKind
		jsr AdvanceCurX
@noKind
		lda #viewByDate
		jsr CheckColumnPresent
		bcs @noDate
		sta dateCoords
@noDate

		ldx #3
@widths		phx
		txa

		pha			;space for StringWidth
		pea StringBase>>16
		asl a			;0..3 counter still in A
		tax
		lda theHeaderStrings,x
		pha			;pushed string pointer
		_StringWidth

		lda 3,s			;get counter back
		asl a
		asl a
		tax
		pla			;get string's width
		clc
		adc nameCoords,x
		sta nameCoords+2,x

		plx
		dex
		bpl @widths
		rts

;
; ComputeNameColumn
;
; Output: nameCoords = horizontal position of the Name column
;
; This is a function of the window's network access.
; Returned value is the maximum of 16 or 4+N, where
; N is the number of server access icons needed.
;
ComputeNameColumn
		lda #16
		sta nameCoords

		ldy #windAccess		; Is icon from a network?
		lda [<windBlk],y
		and #ICNETWORK>>16
		beq @done		; no

		lda [<windBlk],y	;get user's access bits
		and #7			;apSeeFiles+apSeeFolders+apMakeChanges
		eor #7			;apSeeFiles+apSeeFolders+apMakeChanges
		beq @done		;no icons, use X=16

; Now add 32 for each access bit set in A
; (Note than N=BitWiseAND(N,N-1) always decreases the number of "1" bits by one)
		ldx #4
@countBits	pha
		txa
		clc
		adc #28+4		;icon width plus gap
		tax
		lda 1,s
		dec a
		and 1,s
		sta 1,s
		pla
		bne @countBits
		stx nameCoords
@done		rts

;
; CheckColumnPresent
;
; Input:  view number in A (date, size, or kind)
;
; Output: SEC if column is not displayed in this window
;         CLC if column is displayed, and A = curX
;
CheckColumnPresent
		ldy #windView
		cmp [<windBlk],y
		beq @present
		asl a
		tax
		lda viewMasks,x
		and prefer
		beq @absent
@present	lda curX
		clc
		rts
@absent		sec
		rts

viewMasks	dc.w 0			;icon
		dc.w 0			;small icon
		dc.w 0			;name
		dc.w PREF_SHOWDATE	;date
		dc.w PREF_SHOWSIZE	;size
		dc.w PREF_SHOWKIND	;kind

AdvanceCurX	clc
		adc curX
		sta curX
		rts

curX		dc.w 0

nameCoords	dc.w 0,0
sizeCoords	dc.w 0,0
kindCoords	dc.w 0,0
dateCoords	dc.w 0,0

theHeaderStrings dc.w IBName,IBSize,IBKind,IBDate  ;in strings.aii

*** end 18-Feb-92

;
; handle mousedown in drag region
;
_InDrag		NAME

		lda	<modifiers
		and	#$0100
		bne	@appleKey
		
		pea	$8000			;default drag resolution, bring to front afterwards
		pei	xrat			;startX
		pei	yrat			;startY
		pea	8			;grace (distance away from boundsrect before snapping back)
		pei <zero
		pei <zero			;boundsRectPtr
		pushZLong <taskData
		_DragWindow
		rts

;
; They hit the apple key while clicking in the drag region (title bar) of the window.  We need to see if they hit
; inside the title of the window only if the window is frontmost.
;
@dragBehind	pei <zero			;default drag resolution, don't bring to front
		pei <xrat			;startX
		pei <yrat			;startY
		pea 8				;grace (distance away from boundsrect before snapping back)
		pei <zero
		pei <zero			;boundsRectPtr
		pushZLong <taskData
		_DragWindow
		rts

@appleKey	pha
		pha
		_FrontWindow
		pulllong deref
		
;		lda	deref
;		cmp	taskData
;		bne	@dragBehind
;		lda	deref+2
;		cmp	taskData+2
;		bne	@dragBehind
*** optimized 9-Jun-92 DAL
		lda <deref+1
		cmp <taskData+1
		bne @dragBehind
*** end 9-Jun-92

		pha
		pha
		pushZLong taskData
		_GetWRefCon
		pulllong deref

;;;		ldy	#4
		ldy	#windID
		lda	[deref],y
		and	#dirWindID
		beq	@dragBehind

		pha
		pha
		_GetPort
		
		pha
		pha
		_GetWMgrPort
		_SetPort

		pha
		lda	#windTitle	;find out how wide the title is
		clc
		adc	deref
		tax
		lda	deref+2
		adc <zero
		pha
		phx
		_StringWidth
		pla
		lsr	a		;1/2 the width
		sta	halfWidth	;this wide
		
		pha
		pha
		pushZlong taskData	;get the struct region for our window so we
		_GetStructRgn		;can find out if we're in the middle
		pulllong deref
		
		lda	[deref]		;dereference the handle from structrgn
		tax
		ldy	#2
		lda	[deref],y
		sta	deref+2
		stx	deref

		ldy	#2		;find the window's top, then find the left
		lda	[deref],y	;and right edges
		sta	windowTop
		iny
		iny			;find the boundsRect of the region at +2
		lda	[deref],y	;(y,x,y,x)
		ldy	#8
		clc
		adc	[deref],y
		php
		lsr	a
		plp
		bpl	@1
		ora	#$8000
@1		sta	windowMiddle
		
		sec
		sbc	halfWidth
		sta	titleLeft
		
		lda	windowMiddle
		clc
		adc	halfWidth
		sta	titleRight
		
		lda	xrat
		cmp	titleLeft
		bmi	@notInTitle
	
		cmp	titleRight
		bmi	@inTitle
		
@notInTitle	_SetPort
		brl	@dragBehind

;
; if they get this far, they hit OA-click in the title of the window, so show them a
; path.
;
; DAL's cool pop-up menu stuff follows
;
@inTitle	
		jsr 	BuildPathMenu
		
		lda	PopUpMenuHandle
		sta	deref
		lda	PopUpMenuHandle+2
		sta	deref+2
		
		lda	[deref]		;deref the menu to find the width
		tax
		ldy	#2
		lda	[deref],y
		stx	deref
		sta	deref+2
		
		lda	[deref],y	;menu width
		lsr	a
		eor	#$FFFF
		sec
		adc	windowMiddle	
;		and	#$fffe		;align it to an even pixel boundary
		lsr a
		asl a
		tax
		
		pha			;space for PopUpMenuSelect result
		lda 	pmHighestID	;select with last (top) item inserted
		pha
		phx 			;x coord, global coordinates
		lda	windowTop	 ;y coord, global coordinates
		clc				
		adc <zero		;special twiddling stuff courtesy of DAL
		pha
		pea 	$0040		;flag (type 2 menu, no white space added)
		pushlong PopUpMenuHandle ;dave says "I don't care, it works"
		_PopUpMenuSelect
		pla
		sta 	theChosenItem
	
		pha
		pei <zero		;we want to know if they are
		jsr pushTask		;holding down the option key for anti-tunneling
		_GetNextEvent
		pla
	
		_SetPort		;restore the old port
		jsr 	KillPathMenu

		lda 	theChosenItem		;did they choose anything?
		bne 	@notDone
@done		rts
	
;
; stuff the proper pathname into C1_Pathname and make the proper title
;
@notDone
		pha
		pha
		pushZLong taskData
		_GetWRefCon
		pulllong deref

		lda	deref			;get the pathname for this window
		clc
		adc	#windPath
		ldx	deref+2
		bcc	@nr
		inx	
@nr		phx
		pha
		pushlong #C1_Pathname
		jsl	WStringCopy
		
		lda 	theChosenItem
		cmp	pmHighestID
		beq	@done

@popUpSome	pha
		pushlong #C1_Pathname
		jsl	pathSubName		;remove one level from the path
		pla
		inc 	a
		cmp 	pmHighestID		;the top-level item
		bne 	@popUpSome

;
; now, check to see if the window which we THINK we are about to open already
; is open -- if it is, make it the front window.  If not, open it, making it the
; front window
;
; the FRQ routines also use this entry to open a window from a pathname
;

		EXPORT frqOpen
frqOpen

		import PendingDeselectAll
		inc PendingDeselectAll		;5-Jun-92 DAL

		jsr	clonePath		;C1_TempPath = C1_PathName

		lda	#DirWindID		;Directory windows only.
		ldx	#matchWindName
		jsr	walkWindow		;Look for a window that matches C1_TempPath.
		bcc	@noWindowFound

		pei	<wind+2			;walkWindow leaves the window it found
		pei	<wind			;'wind'
		_SelectWindow


		lda	<modifiers		;are they attempting to anti-tunnel?
		and	#$0800
		beq	@nope			;nope, just do the bringToFront
	
		jsr	doClose			;otherwise, close the child window
@nope		lda <zero			;no error
		rts

;
; the window wasn't already open, so open a new one, allocating memory for the window
; info block and making a title and proper windPath from C1_Pathname
;
@noWindowFound
		lda	#windPath		;Number of bytes to allocate.
		clc
		adc	c1_pathname
		inc	a
		inc	a
		ldx	#$4000			;Fixed block, cause of window's title.
		jsr	allocate2		;Allocate the memory.
		sta	<temp			;Save handle.
		stx	<temp+2
		jsr	setTemp			;Dereference 'temp'.

		sta	wind_ref		;RefCon = address of information block.
		stx	wind_ref+2
		sta	wind_infot		;Set info bar refCon also.
		stx	wind_infot+2

		clc				;Compute address of title.
		adc	#windTitle
		bcc	@store1
		inx
@store1		sta	wind_title
		stx	wind_title+2
		sta	<work			;Remember title's address.
		stx	<work+2

		lda <zero			;Clear the info block.
		ldy	#windPath-2		;Number of bytes in block.
@wzLoop		sta	[<temp],y
		dey
		dey
		bpl	@wzLoop
		sta  	[<temp]			;in case of odd length

		pushlong #C1_TempPath
		pushlong #C1_Pathname
		jsl	PathGetName		;get the end name into C1_Tempath
		
		lda	C1_TempPath		;make C1_TempPath into a pstring
		xba
		sta	C1_TempPath
		
		lda	#C1_TempPath+1		;temp is source
		sta	<temp
		lda	#^C1_TempPath+1
		sta	<temp+2
		
		pha				;source
		pei	<temp
		lda	wind_ref		;setup to point to out menu item
		clc
		adc	#windMenuText
		sta	insertItemRef+10
		tax
		lda	wind_ref+2
		adc <zero
		sta	insertItemRef+12
		pha				;dest
		phx
		jsl	PStringCopy		;move the name into the menu text
		
		lda	wind_ref		;work is destination
		clc
		adc	#windTitle
		sta	<work
		lda	wind_ref+2
		adc <zero
		sta	<work+2
		
		jsr	padName			;pad our name with spaces and stuff it
						;into the window's title field
		
		jsr	openFolder3
		
		lda	<modifiers		;are they attempting to anti-tunnel?
		and	#$0800
		beq	@noAntiTunnel		;nope, just do the bringToFront
	
		jsr	doClose			;otherwise, close the child window
@noAntiTunnel	rts
		
;
; BuildPathMenu -- new routine 14-Jan-91 DAL
;
BuildPathMenu	stz 	pmHandle1+1
		stz 	pmHandle2+1
		stz 	PopUpMenuBar+1
		stz 	PopUpMenuHandle+1
		pha
		pha
		_GetMenuBar
		pla
		sta 	OldMenuBar
		pla
		sta 	OldMenuBar+2
	
		pha
		pha
		pei <zero
		pei <zero
		_NewMenuBar
		lda 	3,s
		sta 	PopUpMenuBar+2
		lda 	1,s
		sta 	PopUpMenuBar
		_SetMenuBar
	
		pha
		pha
		pei <zero
		pushlong #MyMenuTemplate
		_NewMenu2
		lda 	1,s
		sta 	PopUpMenuHandle
		lda 	3,s
		sta 	PopUpMenuHandle+2
		pei <zero		;insert new menu at beginning of bar
		_InsertMenu
	
		pha
		pha
		pushZLong taskData
		_GetWRefCon
		pulllong deref
			
		pea 	$0004		;open folders, device at bottom
		clc
		lda 	deref
		adc 	#windPath
		tax
		lda 	deref+2
		adc <zero
		pha
		phx			;pathname pointer (word-length string)
		pei <zero		;device number of device so we don't runn their drive
		pea 1			;Menu ID
		pei <zero		;insert at beginning of menu
		pea $0101		;starting Item ID
		pushlong #IPMIResults
		_InsertPathMItems
		rts

;
; KillPathMenu
;
KillPathMenu	pea 1
		_DeleteMenu
		pushlong PopUpMenuHandle
		_DisposeMenu
		pushlong PopUpMenuBar
		jsl DisposeHandleGlue
		pushlong pmHandle1
		jsl DisposeHandleGlue
		pushlong pmHandle2
		jsl DisposeHandleGlue
		pushlong OldMenuBar
		_SetMenuBar
		rts


;
; locals
;
pathDItemNum	dc.w 	0
thePathItemBox	dc.w 	0,0,0,0

MyMenuTemplate	dc.w 	0		;version
		dc.w 	1		;Menu ID
		dc.w 	$0020		;everything is by pointer; XOR drawing
		dc.l 	MyMenuTitle	;empty title
		dc.l 	0		;no items
MyMenuTitle	dc.b 	0		;null pString

OldMenuBar	dc.l 	0
PopUpMenuBar	dc.l 	0
PopUpMenuHandle	dc.l 	0
theChosenItem	dc.w 	0

IPMIResults
pmHighestID	dc.w 	0
pmHandle1	dc.l 	0
pmHandle2	dc.l 	0

windowTop	dc.w	0
windowMiddle	dc.w	0
halfWidth	dc.w	0
titleLeft	dc.w	0
titleRight	dc.w	0

;
; Handle button down in info window
;
_InControl	NAME

		pha
		pha
		pushZlong <taskData
		_GetWRefCon
		pulllong <deref
		
		ldy	#windID
		lda	[<deref],y
		and	#infoWindID
		bne	@info
		
		lda	[<deref],y
		and	#helpWindID
		beq	@done

		jsl	helpControls
@done		rts
		
@info		PushZLong <TaskData		;control's window
		PushZLong <TaskData2		;control's handle
		PushZWord <TaskData3		;control's part code
		PushZLong <TaskData4		;control's ID
		jsl  	InfoControls
		rts

;
; _InControl locals
;
teHandle	dc.L	0		;handle to our text edit control
		
text		dc.w	$1000		;references to rText resources we use
		dc.w	$1001
		dc.w	$1002
		dc.w	$1003
		dc.w	$1004
		dc.w	$1005
		dc.w	$1006
		dc.w	$1007
		dc.w	$1008

;
; Handle button down on desktop
;
_InDesk		NAME

		lda	<deskport
		sta	<TaskData
		lda	<deskport+2
		sta	<TaskData+2
		brl	windclick
		
;
; Handle button down in window's content region
;
_InContent	NAME

		stz	<taskData2
		stz	<taskData2+2
		
		stz	<taskData3
		stz	<taskData3+2
		
		stz	<taskData4
		stz	<taskData4+2
		
		pha
		pushlong #ourCtlHandle
		pei	<xrat
		pei	<yrat
		pushZLong #taskData
		_FindControl
		pla
		sta	<taskData3		;did they hit a control?
		bne	@inControl
		brl	notInControl		;nope, must have hit something else?
@inControl		
		lda	ourCtlHandle
		sta	<taskData2
		lda	ourCtlHandle+2
		sta	<taskData2+2

@getCtlID	pha
		pha
		pushZLong <taskData2
		_GetCtlID
		pulllong <taskData4		;our ID
		bcs	@bogus

		pha				;see if our front window is the window we're doing
		pha				;stuff in, and if it is, skip the selectwindow to 
		_FrontWindow			;increase the speed of response... (Gee, could TaskMaster
		pla				;do this internally for other apps Dave?).
		plx
		cmp	<TaskData
		bne	@selectIt
		cpx	<TaskData+2
		beq	@noSelect
		
@selectIt	pushZLong <taskData
		_SelectWindow
@noSelect		
		
		pha
		pei	xrat			;x
		pei	yrat			;y
		pushlong #$FFFFFFFF		;actionProcPtr
		pushZLong <taskData2		;ourCtlHandle
		_TrackControl
		pla
		bne	hitAControl		;they definitely hit it if get past here
@bogus		rts
		
hitAControl	;name
		sta	<taskdata3+2		;the part code when the user released
		
		cmp	#3			;check box?
		beq	@setVals
		cmp	#4
		bne	@goControls
		
@setVals	pha
		pushZlong <taskData2
		_GetCtlValue
		pla
		bne	@reset
		pea	1
		bra	@set
@reset		pei <zero
@set		pushZlong <taskData2
		_SetCtlValue
		
@goControls	brl	_InControl

;
; notInControl -- only called if we think that they didn't hit anything in a control
;
; we only want to call windClick if they were in the trash or a directory window
;
notInControl
		lda	<taskData
		ldx	<taskData+2
		jsr	getWindID

		cmp	#DirWindID		;is the window they clicked in a directory window?
		beq	enter1
		cmp	#TrashWindID
		beq	enter1

		pha				;see if our front window is the window we're doing
		pha				;stuff in, and if it is, skip the selectwindow to 
		_FrontWindow			;increase the speed of response... (Gee, could TaskMaster
		pla				;do this internally for other apps Dave?).
		plx
		cmp	<TaskData
		bne	@selectIt
		cpx	<TaskData+2
		beq	@noSelect
		
@selectIt	pushZLong <TaskData
		_SelectWindow
@noSelect	rts

enter1		jsr	windclick
		rts

ourCtlHandle	dc.L	0

;
; Handle menu selection
;
_InMenuBar	NAME

		jsr	ProcessMenu		; uses task data
		rts

;
; Handle close window
;
_InGoAway	NAME

		lda	<modifiers		;are they attempting to close everything?
		and	#$0800	
		beq	@nope			;nope, just close a single window

		brl	closeAllMenu
@nope		brl	doClose			; uses task data

;
; Handle key event
;
_KeyDown	NAME
_AutoKey
*** added 6-Mar-93 DAL -- If systemSaysMenuKey ate the key, don't do anything
		lda	<what
		bne	@continue
		rts
@continue
*** end 6-Mar-93
		lda	<modifiers
		and	#$0100			;Command key down?
		beq	@checkLE

*** added 9-Jun-92 DAL -- Make Command-Control-W work (close window, toggle save setting)
		lda	<message
		cmp	#'W'-$0040		;Control-W
		bne	@notClose
		jmp	closeMenu
@notClose
*** end 9-Jun-92

		lda	<modifiers
		and	#$0800
		beq	@checkLE		;was the option key down? (nope)

;
; if we get here, they were holding down OA and OPTION, so we probably want to close
; something, somehow
;
		lda	<message
		cmp	#'W'			;no key trans
		beq	@optionW
*** added 9-Jun-92 DAL
		cmp	#'W'-$0040		;Contnrol-W
		beq	@optionW
*** end 9-Jun-92
		cmp	#'w'			;no key trans
		beq	@optionW
		cmp	#$e3			;OPTION-Shift-w (key trans on)
		beq	@optionW
		cmp	#$b7			;OPTION-w	(key trans on)
		bne	@checkOpen
		
@optionW	jmp	closeAllMenu
		
@checkOpen	cmp	#'O'			;no key trans
		beq	@optionO
		cmp	#'o'			;no key trans
		beq	@optionO
		cmp	#$af			;OPTION-Shift-o (key trans on)
		beq	@optionO
		cmp	#$bf			;OPTION-o	(key trans on)
		bne	@checkLE
		
@optionO
*** added 1-Mar-93 DAL -- If there's nothing to open, make sure we don't close curWind
		stz	iconCount
		lda	#findFirstIcon
		jsr	findSelect
		lda	iconCount
		beq	@done
*** end 1-Mar-93 DAL
		pei	<curWind+2
		pei	<curWind
		
		jsr	openAll		

		plx
		ply
		
		lda	<modifiers		;did they want to tunnel?
		and	#$0800
		beq	@done
		
		stx	<taskData	
		sty	<taskData+2
		
		jsr	doClose			;put away the parent			
@done		rts

;
; they didn't hit the OA key, so check for an LE field
;
@checkLE
*** added 9-Jun-92 DAL -- Command-Shift-Up = select desktop (like Command-Esc)
		lda	<message
		cmp	#$000b			;up arrow
		bne	@notCmdShiftUp
		lda	<modifiers
		and	#appleKey+shiftKey+controlKey+optionKey
		cmp	#appleKey+shiftKey
		beq	@handleEsc
@notCmdShiftUp
*** end 9-Jun-92

		lda	<LErename+1		; is there a line edit field?
;;;		bne	@haveLE
		beq	@noLE
		jmp	@haveLE
@noLE

		lda	<message
		cmp	#13
		bne	@notCR
	
		stz	iconCount
		lda	#findFirstIcon
		jsr	findSelect
		lda	iconCount
;;		beq	@notCR
;;		cmp	#2
;;		bge	@notCR
		dec a
		bne @notCR

		lda	firstIcon
		sta	<icHand
		lda	firstIcon+2
		sta	<icHand+2
		
		jsr	lockic
		jsr	makeField
		brl	unlockic	
			
@notCR		cmp	#27
		bne	@notEsc
@handleESC	jsr	deselectAll
*** added 5-Jun-92 DAL
***   If Command is not down, make the front window the current plane.
***   If Command is down, make the Desktop the current plane.
		lda <modifiers
		and #appleKey
		
*** Added - 20-Jan-93 JCM - This code is now used in a special case for AppleShare servers going offline, so
***			    I threw it into a subroutine. When it's called, the Accumulator contains a flag
***			    that indicates if it is to make the top window (A=0), or the desktop (A­0) active.
		
		jsr	SetupProperCurWind
;;;		bne @selDesktop
;;;
;;;		lda #DirWindID+TrashWindID
;;;		jsr getFrontWind
;;;		beq @selDesktop
;;;		lda <wind+2
;;;		ldx <wind
;;;		bra @selectAX
;;;
;;;@selDesktop	lda <deskPort+2
;;;		ldx <deskPort
;;;
;;;@selectAX	sta <curWind+2
;;;		stx <curWind
*** end 5-Jun-92 DAL
*** End - 20-Jan-93 JCM
		rts
		
@notEsc		lda	<message
		sta	srqKeyHitParms+2
		lda	<modifiers
		sta	srqKeyHitParms+4

*** added 22-Jun-92 DAL for 6.0.1
		lda	<when+2
		sta	srqKeyHitTicks+2
		lda	<when
		sta	srqKeyHitTicks
*** end 22-Jun-92

		lda	#$FFFF
		sta	allowTellFinderCalls
		
		pea	$010A			;finderSaysKeyHit
		ldx <zero
		pea	$8000			;how = send to first guy who accepts it
		phx
		phx				;target = nil
		pushlong #srqKeyHitParms
		phx
		phx				;dataOut = nil
		_SendRequest
		stz	allowTellFinderCalls
		rts

@haveLE		lda	<message		; was the key a return key?
		cmp	#27			; was the key an ESC key?
		beq	@handleESC
		cmp	#13
		bne	useKey

		jsr	RenameIcon		; yes, so rename the icon
		bcs	@toExitKey

		jsl 	selectionIsChanging	;2-Apr-93 JCM - let things like Key Nav know about resorting of icons

		jsr	noRename
@toExitKey	bra	exitKey

useKey		jsr	startDraw

;;		lda	<message
;;		jsr	LEfilter		; filter out funny keys
;;		sta	<message
;;		bcs	post			; just post edit keys
*** 20-Mar-92 DAL -- use LEClassifyKey to identify LE edit keys
		pha
		pea 0
		tdc
		clc
		adc #TaskRec
		pha
;		_LEClassifyKey
		ldx #$2514
		jsl $e10000
		pla
		bmi post	;bit 15 = special editing character

		lda <message
		cmp #$0020
		bcs @okay
		lda #$002e	;make it into a period
		sta <message
@okay
*** end 20-Mar-92 DAL

;--- If there's no selection and current length
;--- is 31 then beep at the user and ignore key

		lda	<modifiers
		and	#AppleKey
		bne	beep

		lda	[<LErename]		; get the line edit record pointer
		sta	<temp
		ldy	#2
		lda	[<LErename],y
		sta	<temp+2

		ldx <zero			; fake length of zero (used below)
		ldy	#oleSelStart		; see if there is any selection
		lda	[<temp],y
		ldy	#oleSelEnd
		cmp	[<temp],y
		bne	@here			; yes, so accept new key

		ldy	#oleLength		; get the text's length
		lda	[<temp],y
		tax
@here
*** Removed bogus PLA (20-Feb-92 DAL)
;;;		pla				; get char back
		cpx	LE_MaxLen
		bcc	grow
beep		pea	10
		_SysBeep2			; beep at user
		bra	doneKey			; don't post key

grow		jsr	GrowLErects		; grow view & dest rects

;-----------------------------------------------

post		PushZWord <message		; pass key
		PushZWord <modifiers		; pass modifier keys
		PushZLong <LErename		; pass handle of line edit field
		_LEKey
		
		inc	LEdirty			; changes were made
		jsr	SetLErects		; set view & dest rects
		jsr	CleanUpLE		; cleanup underneath shrinking rects
		
doneKey		jsr	endDraw

exitKey		rts


;
; locals
;
		ENTRY	LE_Center
LE_Center	DC.W	0

		ENTRY	LE_MaxLen
LE_MaxLen	DC.W	31

		ENTRY	LEdirty
LEdirty		DC.W	0

srqKeyHitParms	dc.w	3			;pcount (2 for 6.0, 3 for 6.0.1)
		dc.w	0			;message
		dc.w	0			;modifiers
*** added for 6.0.1
srqKeyHitTicks	dc.l	0			;tick count (22-Jun-92 DAL)
*** end of 6.0.1 additions
		
******************************************************************************************		
*
* SetupProperCurWind - This properly sets up <curWind to either the front-most window
*		       (if Acc=0) or the desktop (if Acc­0). If there is no front window, then
*		       the desktop will be selected. It is called by the key handling
*		       code if Esc is detected, and by the _DiskSwitch code if an AppleShare
*		       volume has gone offline.
*
		
SetupProperCurWind NAME	EXPORT

		bne @selDesktop			;value stuffed into acc must have set up Z bit

		lda	#DirWindID+TrashWindID
		jsr	getFrontWind
		beq	@selDesktop

		lda	<wind+2
		ldx	<wind

		bra	@selectAX

@selDesktop	lda	<deskPort+2
		ldx	<deskPort

@selectAX	sta	<curWind+2
		stx	<curWind
		
		rts

;
; Handle disk switch
;
_DiskSwitch	NAME

		lda	<message		; get device number
		sta	<devNumber
		lda	<message+2		; get type of switch
		bmi	@diskInsert		; high bit means eject
	
@diskEject	pushZLong <curWind
		lda	<deskport		; check desktop ICONOBJ list
		sta	<curWind
		lda	<deskport+2
		sta	<curWind+2

		lda	<devNumber		; mark the device as offline
		jsl	MarkDeviceOffline

		stz	serverGoingOffline	;20-Jan-93 JCM - assume this isn't a server that's been switched

		lda	#matchDev		; mark the device as offline (and dim icons and windows)
		jsr	walkOfLife

*** Added - 20-Jan-93 JCM - This fixes the bug if a server window went away unexpectedly (connection went down/
***			    admin bumped you off/etc.). If a window was open from that server, and it was
***			    frontmost, then it was left as <curWind even after it was closed. Bad. Very bad.
***			    This was one of the causes of the infinite walkOfLife message.

		lda	serverGoingOffline	;was the device that just got ejected a server?
		beq	@restoreCurWind		;
		
		inc	a			;Acc was $FFFF
		jsr	SetupProperCurWind
		
		pla				;window pointer of window that may have been closed
		pla
		
		rts
	
@restoreCurWind	pulllong <curWind
;;;		pulllong <curWind

*** End - 20-Jan-93 JCM

		rts
		
@diskInsert	jsr	CheckQForEvent		;check the event queue for inserts
		bcs	@end			 or ejects involving this device
		
		lda	<devNumber		;does the Finder think that this device number is still online?
		jsl	IsDeviceOnline
		bcc	@mount			;if not, then sure, mark this device as online and mount it
		
		jsr	@diskEject
		
@mount		lda	<devNumber
		jsl	MarkDeviceOnline
		
		pei <zero			;we are not starting up...
		PushZWord <devNumber		; device number of new disk
		lda	<message+2
;		and	#$7FFF
		asl a
		lsr a
		pha				; pass remaining bits as flag
		jsl	MountDisk
		bcs	@end			; not mounted
		jsr	_VolumeChange		; JAM 5/20/80 (Fixing BRC #36621)
@end		rts

		EXPORT  serverGoingOffline
serverGoingOffline ds.w	1			;20-Jan-93 JCM - Added to fix infinite server icon walk bug		

;
; Handle volume change
;

		IMPORT	UpdateDesktopIcons	;22-Mar-93 JCM

		EXPORT	_VolumeChange		;19-Jan-93 JCM - for icons.aii magic routing code

_VolumeChange	NAME

		lda	<message		; a <-- device number
		beq	exitVol
		pha				; pass device number
		ldx <zero			;20-Feb-92 DAL
		PushLong #C1_DeviceName		; pointer to device name
		phx
		phx				; skip characteristics
		phx
		phx				; skip total blocks
		phx
		phx				; skip device ID
		jsl	GetDeviceInfo
		bcs	exitVol

		PushLong #C1_DeviceName		; pointer to device name
		PushLong #C1_VolName		; pointer to volume name
		ldx <zero			;20-Feb-92 DAL
		phx
		phx				; skip total blocks
		phx
		phx				; skip free blocks
		phx
		phx				; skip file system ID
		phx
		phx				; skip block size
		jsl	GetVolumeInfo
		bcs	exitVol

*** added 21-Aug-92 DAL -- FindWindows wants the volume name in C1_Pathname
		pushlong #C1_VolName
		pushlong #C1_Pathname
		pea 0
		lda >C1_VolName
		inc a
		inc a
		pha
		_BlockMove
*** end 21-Aug-92

*** Removed 21-Aug-92 DAL.  Gosh, I wonder if this will be a bug again, but I need this WalkWindows.	
; This fixes a problem in which, with a text-view window popping out of a newly-
; inserted volume icon, the system would hang, sometimes crashing, and sometimes
; going into an endless loop somewhere in the _EndUpdate tool call.
; The window that popped out had to be in text-view, had to be the first one on
; the desktop, and had to include an icon ON the desktop.  The difficulty appeared
; to be caused by the VolumeChange window-update walk.  Don solved the problem
; by arranging not to do the update walk if we knew that this was the iconÕs first
; appearance.

;		lda	createIcon		; is this a new volume?
;		bne	exitVol			; yes, so donÕt bother to update
*** end 21-Aug-92 DAL

		lda	#DirWindID		; find all directory windows
		ldx	#FindWindows		; from this volume
		jsr	walkWindow
		
		IF	AllowSmartDesktop THEN
		
		jsr	UpdateDesktopIcons	;22-Mar-93 JCM

		ENDIF

exitVol		rts


;
; Check the event queue for a disk insert or disk eject event for the same device
; that we're checking now.
;
; On Event Manager DP: $24 = Handle to event queue
;		       $2E = Offset to first element in queue
;
; Each element in the queue is an 18 byte record, the first word is the offset in the
;  queue handle of the next element.  The remaining 16 bytes are a standard event
;  record.
;
; OUT: Carry clear if no other event pending
;      Carry set if another event for the same device is pending
;
CheckQForEvent	pha
		pha
		pei <zero
		pea 6			;Event Manager toolset number
		_GetWAP
		pulllong <ptr
		
		ldy	#$2e		;are any other events pending at all?
		lda	[<ptr],y
		beq	@done		;none, so we're done
		
		ldy	#$24		;get handle to event manager's event queue
		lda	[<ptr],y
		sta	<handle2
		iny
		iny
		lda	[<ptr],y
		sta	<handle2+2

		lda	[<handle2]	;deref handle to event queue
		tax
		ldy	#2
		lda	[<handle2],y
		sta	<ptr2+2
		stx	<ptr2
		
		ldy	#$2e		;find offset into memory block for the first
		lda	[<ptr],y	;event record

@loop		tax
		txy
		iny
		iny
		lda	[<ptr2],y	;event what
		cmp	#diskSwitchEvt
		beq	@switch
		
@nextEvent	txy
		lda	[<ptr2],y
		bne	@loop		
		
@done		clc
		rts
		
@switch		iny
		iny
		lda	[<ptr2],y	;event message
		cmp	<devNumber	;is it our device?
		bne	@nextEvent	
		
		sec			;our device shows an insert or eject coming, skip
		rts		

		ENDP

******************************************************************************************		
*
* CheckVolumeChanged - Scan the volume dirty table for volumes that need refreshing.
*
*

		IMPORT	FindChangedVolume

CheckVolumeChanged PROC	EXPORT

@findMoreDirty	jsl	FindChangedVolume	;are any volumes dirty?
		bcs	@exitVolumeChanged	; nope, nothing to do

		sta	<message		;pass device number to _VolumeChanged
		jsr	_VolumeChange		;update any open windows from this volume

		bra	@findMoreDirty		;see if we have any more to do

@exitVolumeChanged rts				;we be gone
		
		ENDP

; Find all icons of a device number
;
; IN: ic = pointer to ICONOBJ (from WalkOfLife)
;     devNumber = device number to check
;.....................................................................

matchDev	PROC

		IMPORT  pushirect2
		IMPORT  getwRefCon
		IMPORT	addRgn
		IMPORT	freeRectRgn
		IMPORT  getIconRect
		IMPORT	TrashDisk
		IMPORT	eraseIcon
		IMPORT	allOffLine
		IMPORT	markOffLine
		IMPORT	drawDeskIcon
		IMPORT	AddIconRgn
		IMPORT  serverGoingOffline

		ldy	#icDevNum
		lda	[<ic],y
		cmp	<devNumber
		bne	next

		ldy	#icFType		; and yet another DISKII Special case check
		lda	[<ic],y
		cmp	#TypeFDrive		; is it a STUPID diskII drive ?
		beq	next

		lda	<icHand
		cmp	LEicon
		bne	cont
		lda	<icHand+2
		cmp	LEicon+2
		bne	cont		

		jsr	NoRename		; remove icon's rename field (if any)
		
cont		ldy	#icFType
		lda	[<ic],y
		cmp	#TypeServer		; is this a server volume
		bne	normal

		dec	serverGoingOffline	;20-Jan-93 JCM - make = $FFFF - fixes server unmount bug

		jsr	toDesktop		; switch to desktop 
		jsr	toDeskPort		; switch to desktop port
		jsr	getRectRgn		; allocate rectRgn and tempRgn
		jsr	AddIconRgn		

		jsr	TrashDisk		; throw the server volume in trash
		jsr	redrawList
		sec				; terminate the walk of life
		bra	exit

normal		jsr	toDesktop		; switch to desktop 
		jsr	toDeskPort		; switch to desktop port
		jsr	getRectRgn		; allocate rectRgn and tempRgn
		jsr	getIconRect		; irect2 = icon's title area

		ldy	#icDevInfo		;when CD-ROM's go offline, don't clear the locked bit so that
		lda	[<ic],y			;the Finder has an accurate idea of what kind of device that's there...
		and	#$0040			
		beq	@cdrom			;check the "writing allowed" bit

		ldy	#icFlag
		lda	[<ic],y
		and	#Å(ICLOCKED)		; clear locked bit so it redraws
		sta	[<ic],y			; without the lock
@cdrom

		lda	#irect2
		jsr	addRgn
		jsr	redrawList

		jsr	lockic

		ldy	#icDevNum
		lda <zero			; zero means offline
		sta	[<ic],y

		pei	<devNumber
		jsr	markOffLine		; mark icon as off line and redraw
		jsr	allOffLine		; mark all windows from disk as off line
		pla
		sta	<devNumber

		jsr	updateInfoWin2		;added 07/27/88 DJB

next		clc				; continue.
exit		rts
		ENDP

; match second icon that findSelect is called for
;
; IN: iconCount is either 0 or 1
;
; OUT: iconCount is incremented
;.....................................................................
 		
findFirstIcon	PROC	EXPORT
		IMPORT	abortFind

		inc	iconCount
		lda	iconCount
		cmp	#2
		bge	@done

		lda	<icHand
		sta	firstIcon
		lda	<icHand+2
		sta	firstIcon+2
		
		clc
		rts
		
@done		inc	abortFind		;stop!!
		sec
		rts

		EXPORT	iconCount
iconCount	dc.w	0
		EXPORT	firstIcon
firstIcon	dc.L	0
		ENDP
		
; give an icon a new name
;.....................................................................

nameIcon	PROC
		IMPORT	HalfRoundUp		; JAM 5/12/89: To fix BRC #47825

		jsr	geticNamePtr		temp = pointer to icon's name field.

		ldy	#30			Set icon's name to new name.
lop101		lda	lastName,y
		sta	[<temp],y
		dey
		dey
		bpl	lop101

		pha				Space for result.
		pea	lastName>>16
		pea	lastName
		_StringWidth
		pla
		jsl	HalfRoundUp		; JAM 5/12/89: a := (acc DIV 2) + (acc MOD 2)
		ldy	#icTitleLen
		sta	[<ic],y			remember half the title's width.

		jsr	unlockic
exit100		clc				; rename done.
		rts

		ENDP


; rename icon
;
; IN: LEicon = handle of icon to rename
;     LErename = handle of line edit record that has new name
;
; OUT: carry
;      clear = icon is rename, set = error
;.....................................................................

RenameIcon	PROCNAME

		IMPORT	ckNames
		IMPORT	ChangePath
		IMPORT	C1_PathNamePtr
		IMPORT	C1_Source
		IMPORT	FSTNames
		IMPORT	doAlertWindow
		IMPORT	GetFileInfo
		IMPORT	SetLERects
		IMPORT	BoxRename
		IMPORT	CleanupLE
		IMPORT	PathSubName
		IMPORT	finderString
		IMPORT	allowTellFinderCalls
		IMPORT	UpdateWindow
		IMPORT	ArrowCursor
		import	C1_Source
		import	C1_SourceBuf
		import	StrCancel
		import	GetBootVolume
		import	matchedIconHandle
		import	GetRectRgn
		import	AddIconRgn
		import	MatchFileToIcon
		import	RedrawList
		import	AddRgn
		import	FreeRectRgn
		IMPORT	FiFiFiSearch
				
		lda	LEicon
		sta	<icHand
		lda	LEicon+2
		sta	<icHand+2
		jsr	lockic

		jsr	getwRefCon		; windBlk = window info block

		jsr	buildPath		; C1_PathName = old pathname
		bcc	cont
		brl	abort			; pathname error
cont		jsr	clonePath		; C1_TempPath = C1_PathName

		lda	[<LErename]		; get the line edit record pointer
		sta	<temp
		ldy	#2
		lda	[<LErename],y
		sta	<temp+2

		ldy	#oleLength		; get the string's length
		lda	[<temp],y
		bne	setLen
		brl	abort			; no string, so cancel rename
setLen		sta	lastName

		lda	[<temp]			; get the text handle
		sta	<work
		ldy	#2
		lda	[<temp],y
		sta	<work+2

		lda	[<work]			; dereference the text handle
		sta	<temp
		lda	[<work],y
		sta	<temp+2

		ldy	#30			; move text part of name
@loop		lda	[<temp],y
		sta	lastName+1,y
		dey
		dey
		bpl	@loop

		ldy	#icFType		; renaming a disk?
		lda	[<ic],y
		sta	nameType

		ldy	#icMom			;we have to be on the desktop to do dupDevice
		lda	[<ic],y
		cmp	<deskport
		bne	change
		iny
		iny
		lda	[<ic],y
		cmp	<deskport+2
		bne	change

		jsr	dupDevice2		; check if the new name is taken already
		bcc	change

		lda	matchedIconHandle
		sta	<handle
		lda	matchedIconHandle+2
		sta	<handle+2
		
		lda	[<handle]
		sta	<ptr4
		ldy	#2
		lda	[<handle],y
		sta	<ptr4+2
		
		ldy	#icFType		;if the thing we ran into is a 5.25" drive, we can't give our existing
		lda	[<ptr4],y		;icon the same name under any conditions
		cmp	#TypeFDrive
		beq	@noRename
		
		ldy	#icFType		; renaming a disk?
		lda	[<ic],y
		cmp	#TypeLastOne
		bcc	change			; bra if not a device

@noRename	PushLong #lastName
		PushLong #lastName
		jsl	PToWString
		stz	C1_PathName
		PushLong #lastName
		PushLong #C1_PathName
		jsl	PathAddName		; move lastName into pathname

		ldy	#icFType
		lda	[<ptr4],y
		cmp	#TypeFDrive
		bne	@not525
		
		lda	#rasDup525
		jsl	doAlertWindow
		bra	@was525

@not525		lda	#rasDupDev
		jsl	doAlertwindow

@was525		jsr	unlockic
error		sec				; rename not done
		rts

;
; not a device, or a device which doesn't already exist, so judge the name and
; then rename
;
change		ldx	#1			;is it a volume?
		ldy	#icFType
		lda	[<ic],y
		cmp	#TypeLastOne
		bge	@foundType
		inx
		cmp	#$0f			;is it a folder?
		beq	@foundType
		inx				;must be just a file if it gets here
@foundType	stx	nameType		

		pushlong #lastName
		pushlong #C1_Source
		jsl	PToWString

		ldx <zero				;20-Feb-92 DAL
		pushlong #c1_pathname
		phx
		phx				;access = nil
		pushlong #srqFiletype		;filetype
		pushlong #srqAuxtype		;auxtype
		phx
		phx				;storage type = nil
		phx
		phx				;create date = nil
		phx
		phx				;mod date = nil
		phx
		phx				;eof = nil
		phx
		phx				;blocks = nil
		pushlong #fstID			;file sys id
		jsl	GetFileInfo
		bcs	error

		jsr	buildPath2		; C1_PathName = icon's new pathname
		bcs	error			; pathname error

		lda	fstID
		asl	a
		asl	a
		tax
		lda	>fstNames,x
		sta	JudgeSubstitutions+4
		lda	>fstNames+2,x
		sta	JudgeSubstitutions+6

		_JudgeNameGS JudgeParms
		bcc	@maybeBogus
@notBogus	brl	@wayBogus
@maybeBogus

		lda	JudgeParms+$10
		beq	@notBogus
		
		lda	>c1_source
		xba
		sta	>c1_source

		jsl	ArrowCursor
		
		lda	JudgeParms+$06		;move fst syntax pointer
		sta	JudgeSubstitutions+12
		lda	JudgeParms+$08
		sta	JudgeSubstitutions+14

		pha				;space for result
		pea 	$0095			;by resource, Pascal substitution strings
		pushlong #JudgeSubstitutions
		pushlong #$07ff1701		;JudgeName alert window ID
		_AlertWindow
		pla
		bcs 	@cancel
		sec
		bne	@editNewName
@cancel		rts				;they clicked "No Change"--exit with SEC

@editNewName	
		jsr	StartDraw
		jsr	CleanupLE


		pushlong #c1_source+2		;or, they wanted to edit the new name
		lda	>c1_source+1
		and	#$00ff
		pha
		pushZLong <LErename
		_LESetText

		jsr	SetLErects		; now make view/dest rect fit text

;;		pea	0			;select from the beginning.
;;		lda	>C1_Source+1		;to the end
;;		and	#$00ff
;;		pha
*** changed 0..end to FF..FF, 12-Dec-91 DAL
		lda	#$00FF
		pha				;start = end of text
		pha				;end = end of text
*** end 12-Dec-91
		pushZLong <LErename
		_LESetSelect

		pushZLong <LERename
		_LEActivate

		pushZlong <LErename
		_LEUpdate
		
;;;		lda	[<LErename]		; get the line edit record pointer
;;;		sta	<temp
;;;		ldy	#2
;;;		lda	[<LErename],y
;;;		sta	<temp+2
;;;		ldy	#oleViewRect+x2		; update to new view rect
;;;		lda	[<temp],y
;;;		sta	viewRect+x2
;;;
;;;		dec	viewRect+y1		Top, down one line.
;;;		dec	viewRect+x1		Left side, to the left two pixels.
;;;		dec	viewRect+x1
;;;		inc	viewRect+x2		Right side, down two lines.
;;;		inc	viewRect+x2
;;;		
;;;		jsr	boxRename		Draw a box around the rename field.
		
		jsr	endDraw
		sec
		rts

@wayBogus	stz	srqRenameOutParms+2
		pea	$0109			;finderSaysBeforeRename
		ldx <zero
		pea	$8000			;how = send to first guy who accepts it
		phx
		phx				;target = nil
		pushlong #srqRenameParms
		pushlong #srqRenameOutParms	;dataOut
		_SendRequest
		bcs	@rename

		lda	srqRenameOutParms+2
		bne	@goAbort

@rename		PushLong #C1_TempPath		; old pathname
		PushLong #C1_PathName		; new pathname
		jsl	ChangePath
		bcc	OK
		cmp	#$FFFF			; did user cancel ?
		beq	@goAbort		; yes, so remove rename
		brl	error
@goAbort	brl	abort
OK		jsr	ckNames
		
		lda	LEicon
		sta	<icHand
		lda	LEicon+2
		sta	<icHand+2
		jsr	lockic
		
		jsr	GetWRefCon

		ldy	#icIcon			;save the offsets to our old large and small icons
		lda	[<ic],y
		sta	oldIcon
		iny
		iny
		lda	[<ic],y
		sta	oldIcon+2

		ldy	#icSmallIcon
		lda	[<ic],y
		sta	oldSmallIcon
		iny
		iny
		lda	[<ic],y
		sta	oldSmallIcon+2

		tsc
		sec
		sbc	#20			;put 5 longs on the stack
		tcs
		pea	$8000			;don't care about voting, match all
		pea	1			;match the first one
		ldy	#icFtype
		lda	[<ic],y
		pha
		pei <zero
		ldy	#icAuxtype
		lda	[<ic],y
		pha
		
		lda	<ic			;ptr to our NEW name
		clc
		adc	#icName
		tax
		lda	<ic+2
		adc <zero
		pha
		phx
		
		lda	<ic			;ptr to the same old create date
		clc
		adc	#icCDate
		tax
		lda	<ic+2
		adc <zero
		pha
		phx

		lda	<ic			;ptr to the same old mod date
		clc
		adc	#icCDate
		tax
		lda	<ic+2
		adc <zero
		pha
		phx

		ldy	#icLocalAccess
		lda	[<ic],y
		pha
		ldy	#icForked
		lda	[<ic],y
		pha
		
		lda	<ic			;ptr to the same old option list
		clc
		adc	#icOptionList
		tax
		lda	<ic+2
		adc <zero
		pha
		phx
		
		ldy	#icFBytes+2
		lda	[<ic],y
		pha
		dey
		dey
		lda	[<ic],y
		pha
		jsl	matchFileToIcon

		pla
		ldy	#icOneDocOffset
		sta	[<ic],y
		iny
		iny
		pla
		sta	[<ic],y

		pla
		ldy	#icRBundle
		sta	[<ic],y
		iny
		iny
		pla
		sta	[<ic],y

		pulllong NewSmallIcon
		pulllong NewIcon
		
		pla
		pla				;rFinderPath goes into hyperspace...

;
; find out if the NumResults field of this particular OneDoc includes a kind string
;
		ldy	#icAuxtype		;put the auxtype in (X)
		lda	[<ic],y
		tax
		
		ldy	#icFtype		;put the filetype in (A)
		lda	[<ic],y
		
		ldy <zero			;high word of auxtype is always zero
		jsl	FiFiFiSearch
		ldy	#icKind
		sta	[<ic],y
		iny
		iny
		txa
		sta	[<ic],y

		pushZLong <handle
		pushZLong <ptr

		ldy	#icRBundle+1
		lda	[<ic],y			;if there's no bundle, accept whatever FiFiFi gave us
		beq	@noKind
		
		dey
		lda	[<ic],y
		sta	<handle
		iny
		iny
		lda	[<ic],y
		sta	<handle+2
		
		lda	[<handle]
		clc
		ldy	#icOneDocOffset
		adc	[<ic],y
		sta	<ptr
		ldy	#2
		lda	[<handle],y
		ldy	#icOneDocOffset+2
		adc	[<ic],y
		sta	<ptr+2
		
		ldy	#4			;check numresults
		lda	[<ptr],y
		cmp	#5
		blt	@noKind
		
		ldy	#icKind
		lda <zero
		sta	[<ic],y
		iny
		iny
		sta	[<ic],y
		
@noKind		pulllong <ptr
		pulllong <handle

;
; Logic down here goes like this: first, is this the 'Name' view. If so, the view needs to be resorted, and
;  the possibly new icon values are stuffed in their new fields and everything is redrawn, all nice like.
;
		ldy	#windView
		lda	[<windBlk],y
		cmp	#viewByName
		bne	notByName
		
		jsr	StuffIconFields
		jsr	UpdateWindow		
		bra	abort

;
; We're not being viewed by name, so first check and see if the large icon has changed, and if it has,
;  stuff the new icon values into the icon itself and redraw the large icon only if were being viewed by
;  icon (why redraw what the user can't see?).
;
notByName	lda	newIcon
		cmp	oldIcon
		bne	@redrawLarge
		lda	newIcon+2
		cmp	oldIcon+2
		beq	@lookSmall
		
@redrawlarge	jsr	GetRectRgn
		jsr	AddIconRgn
		jsr	StuffIconFields
		
		ldy	#windView
		lda	[<windBlk],y
		cmp	#viewByIcon
		bne	@lookSmall
		
		jsr	AddIconRgn
		jsr	RedrawList
		bra	abort
		
;
; We're not being viewed by name, so first check and see if the small icon has changed, and if it has,
;  stuff the new icon values into the icon itself and redraw the small icon only if it's not being viewed by
;  icon (why redraw what the user can't see?).  If the icons (by now, both small and large) didn't change,
;  then don't redraw squat.
;
@lookSmall	lda	newSmallIcon
		cmp	oldSmallIcon
		bne	@redrawSmall
		lda	newSmallIcon+2
		cmp	oldSmallIcon+2
		beq	abort

@redrawSmall	jsr	GetRectRgn
		jsr	AddIconRgn
		jsr	StuffIconFields

		ldy	#windView		;check the window's view, if it's by icon or by name, don't redraw
		lda	[<windBlk],y		;the window at all (our small icon changed, so redrawing the large icon
		cmp	#viewByIcon		;is stupid -- and in the case of by name, we'll redraw the entire window
		beq	@abortDraw		;anyway, so why bother here?)

		ldy	#windView		;see if the window is being viewed by small icon... if it's not, then
		lda	[<windBlk],y		;we are left with one of the other list views, and the kind string might have
		cmp	#viewBySmallIcon	;(ugh) changed, so we'll extend the region which needs to be redrawn way to the
		beq	@noRedrawType		;right

		lda	#dxViewDate
		sta	<irect1+x2
		
		lda	#irect1
		jsr	addRgn
		
@noRedrawType	jsr	addIconRgn
		jsr	RedrawList
		bra	abort
		
@abortDraw	jsr	FreeRectRgn

abort		jsl	GetBootVolume
		clc				; rename was done (or abort)
exit		rts

;
; StuffIconFields -- put NewIcon and NewSmallIcon into the actual icon since they're different from
; 		     what's already there...
;
StuffIconFields		
		ldy	#icIcon
		lda	NewIcon
		sta	[<ic],y
		iny
		iny
		lda	NewIcon+2
		sta	[<ic],y

		ldy	#icSmallIcon
		lda	NewSmallIcon
		sta	[<ic],y
		iny
		iny
		lda	NewSmallIcon+2
		sta	[<ic],y
		rts
;
; locals
;
srqRenameParms	dc.w	4			;parameter count=4
		dc.L	C1_TempPath
		dc.L	C1_Pathname
srqFiletype	dc.w	0
srqAuxtype	dc.L	0
srqRenameOutParms dc.w	0
		dc.w	0

JudgeSubstitutions
		dc.L	LastName		;trial name	*0
		dc.L	0			;fst name	*1
		dc.L	C1_Source+1		;sub name	*2
		dc.L	0			;fst syntax	*3
		dc.L	strCancel		;"cancel"	*4

JudgeParms	dc.w	6
fstID		dc.w	0			;fileSysID
nameType	dc.w	0			;nameType
		dc.L	0			;syntax
		dc.w	0
		dc.L	C1_SourceBuf		;keep this big so it has a lot of workspace (DAL)
		dc.w	0
		
newIcon		dc.L	0
newSmallIcon	dc.L	0

oldIcon		dc.L	0
oldSmallIcon	dc.L	0
		ENDP


; change all pathnames affected by rename
;
; IN: C1_Pathname = new pathname
;     C1_TempPath = old pathname
;     lastName = new filename
;
; USES: C1_Path to hold the difference between the new and old pathnames
;.....................................................................

ckNames		PROCNAME	EXPORT

		IMPORT	ClonePath
		IMPORT	UpdateInfos
		IMPORT	GetDeviceName
		IMPORT	GetVolumeInfo
		IMPORT	IsFSTUpperCase
		IMPORT	PStrToUpper
		IMPORT	FileSysID
		IMPORT	removeMenuInfoItem
		IMPORT	addIWindow2Menu
		IMPORT	wind_ref
		IMPORT	insertItemRef
		IMPORT	PStringCopy
		IMPORT	PToWString
		IMPORT	c1_path
		IMPORT	JustRootName
		
;		PushLong #C1_DeviceName		; pointer to device name
;		PushLong #C1_PathName		; pointer to pathname
;		jsl	GetDeviceName
;
;		PushLong #C1_DeviceName		; pointer to device name
;		PushLong #0			; skip volume name
;		PushLong #0			; skip total blocks
;		PushLong #0			; skip free blocks
;		PushLong #FileSysID		; ptr to file system ID
;		PushLong #0			; skip block size
;		jsl	GetVolumeInfo
;
;		pha				; space for result
;		PushWord FileSysID
;		jsl	IsFSTUpperCase
;		pla
;		beq	nameIt
;		
;		PushLong #lastName
;		jsl	PStrToUpper
;

		jsr	nameIcon		First, give the	icon the new name.

		EXPORT	ckNames2
ckNames2	lda <zero
		sep	#$20
		LONGA OFF
		
		ldy <zero
@fLoop		lda	c1_pathname+2,y
		cmp	c1_temppath+2,y
		bne	@found
		iny
		cpy	c1_pathname
		blt	@fLoop
	
		rep	#$20
		LONGA ON
		
		lda	c1_pathname
		cmp	c1_temppath
		bne	@NotSame
		
		lda	lastName
		and	#$00FF
		pha
		
		lda	c1_pathname
		sec
		sbc	1,s
		tay	
		pla
		
@notSame	sep	#$20
		LONGA OFF
		
@found		sty	diffStart

		ldx <zero
*** added 9-Jul-92 DAL -- What a pain!  Not having this line was screwing things up
***                       big-time if you renamed something to a shorter name that
***                       started out the same (like a disk with an open window).
		bra @enterLoop
*** end 9-Jul-92
@cLoop		lda	c1_pathname+2,y
		sta	>c1_path+2,x
		inx
		iny
@enterLoop	cpy	c1_pathname
		blt	@cLoop
	
		rep	#$20
		LONGA ON
		txa
		sta	>c1_path

		lda	c1_temppath		;the total length of the old pathname minus
		sec				;the start of the difference between the new and old paths
		sbc	diffStart		;yields the length of the splice which we'll have to make
		sta	spliceLength
		
		ldy	#icFType		Only need to check disks and folders.
		lda	[<ic],y
		bmi	fixem			bra if device or trash
		cmp	#TypeFolder	
		beq	fixem			bra if folder

		jsr	UpdateInfoFileNames

		brl	exit

; ------ Rename	window that came from icon -------------------------
 
fixem		ldy	#icWind			Get pointer to icon's open window.
		lda	[<ic],y
		sta	<wind
		iny
		lda	[<ic],y
		sta	<wind+1
		bne	ok110
		brl	skip110			Is the icon open?
		
ok110		

;
; not only rename the window, but also rename the window's info block so that the title
; in the windows menu is correct (augh)
;		
		pushZLong <wind
		
		pha
		pha
		pushZlong <wind
		_GetWRefCon
		pulllong infoBlockPtr 
		
		lda	infoBlockPtr
		tax
		lda	infoBlockPtr+2
		tay
		
		jsl	removeMenuInfoItem

		pushlong #lastName		;from
		
		lda	infoBlockPtr
		sta	wind_ref		
		clc
		adc	#windMenuText
		sta	insertItemRef+10
		tax
		lda	infoBlockPtr+2
		sta	wind_ref+2
		adc <zero
		sta	insertItemRef+12
		pha
		phx				;to
		jsl	PStringCopy

		jsl	addIWindow2Menu		;add the trash to the windows menu
		pulllong <wind

;
; now, rename our actual title that has the padding on the ends
;
		pha				Space for result.
		pha
		pei	<wind+2			Pass pointer to	window.
		pei	<wind
		_GetWTitle
		pla
		sta	<work			Pass title pointer to padName.
		pla
		sta	<work+2
		
		lda	#lastName		Pass pointer to	title.
		sta	<temp
		lda	#lastName>>16
		sta	<temp+2

		jsr	padName			Put spaces on ends of name.

		pei	<work+2			Pass pointer to	new name.
		pei	<work
		pei	<wind+2			Pass pointer to	window.
		pei	<wind
		_SetWTitle

; ------ Check all windows to update pathname in info block ----------------
 
skip110		jsr	UpdateInfoFileNames	;18-Mar-93 JCM
		jsr	temp2path		C1_PathName = C1_TempPath (old pathname).

;------------------------------------------------
;
; Changed by SEG on 20 Jul 87 to work if top
; window is not	a dir window.  GetFrontWindow
; only returns the top window. It does not
; return topmost with correct id.
;
;------------------------------------------------

		lda	#DirWindID		Directory windows only.
		jsr	getFrontWind		Start with front most window.
		bne	lop110			Top is dir window!
		bcs	done110			No windows at all
		jsr	getNextWind		Top is not, try	others
		beq	done110			No windows!

lop110		pei	<wind+2			Save this window pointer.
		pei	<wind

		jsr	ckRoots			Check if window	came from icon.

		pla
		sta	<wind
		sta	<TaskData
		pla
		sta	<wind+2
		sta	<TaskData+2

		php				Save 'window from icon'	flag.
		jsr	getNextWind		'A' will equal window's ID.
		plp				Restore	'window from icon' flag.
		bcc	next110

		pha				Save window's ID.
		pei	<wind+2			Save pointer to	next window.
		pei	<wind
		pei	<icHand+2		Save icon's handle.
		pei	<icHand

		lda	<TaskData		Get window's info block.
		ldx	<TaskData+2
		jsr	getwRefCon2

		lda	<windBlk		Compute	pointer	to windPath field.
		clc
		adc	#windPath
		sta	<windBlk
		bcc	ok112
		inc	<windBlk+2

ok112		pei	<zero			;flag = not resizing an iconObj
		jsr	SpliceName
		bcc	ok113			Splice OK?

		jsr	saveTemp		Save C1_TempPath.
		jsr	doClose			Pathname too long, close the window.
		jsr	restoreTemp		Restore	C1_TempPath.

ok113		pla				Restore	handle of icon I'm checking.
		sta	<icHand
		pla
		sta	<icHand+2
		pla				Restore	pointer	to next	window.
		sta	<wind
		pla
		sta	<wind+2
		jsr	temp2path		C1_PathName = C1_TempPath (old name).
		pla				Get next window's ID.

next110		tax				Any more windows?
		bne	lop110

done110

; ------ Check all extended icons ------------------------------------------
;
;  C1_PathName = old name.
;
;-----------------------------------------------

		pei	<icHand+2		Save icon being	renamed.
		pei	<icHand

		lda	#MaxPathLen		Set maximum pathname length allowed.
		sta	maxLength

		lda	#nameExt		Call 'nameExt' for every extended icon
		jsr	walkExt2		that came from renamed icon.

		pla
		sta	<icHand
		pla
		sta	<icHand+2
		jsr	lockic

exit		clc
		rts

*** Added - 18-Mar-93 JCM - So we can call this when a file is renamed. Before this would only be
***			    called for devices and folders.

UpdateInfoFileNames

		lda	#MaxPathLen		Set maximum pathname length allowed.
		sta	maxLength

		jsr	saveTemp		Save C1_TempPath.
		jsr	JustRootName
		jsr	ClonePath
		
		jsr	UpdateInfos
		jsr	restoreTemp		Restore	C1_TempPath.

		rts

*** End - 18-Mar-93 JCM

infoBlockPtr	dc.L	0

; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =
;	   Check for new pathname in extended icons. 
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =
;
;   IN:	   ic =	extended icon that came	from icon being	renamed.
;
;  OUT:	   C1_PathName = not changed (can't be changed because walkExt needs it).
;
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =
nameExt
		ldx	<ic+2			Compute	pointer	to icOwner field.
		lda	<ic
		clc
		adc	#icOwner
		bcc	store250
		inx
store250	sta	<windBlk		Pass pointer of	name to	splice.
		stx	<windBlk+2

		pea	1			;flag = we're resizing an iconObj
		jsr	SpliceName		Check to change	pathname.
		bcc	exit250

		jsr	dumpExtIcon		Remove icon because pathname is	too long.

exit250		clc
		rts

*===============================================*
*	   Splice new name into	pathname. 
*
*   IN:	   windBlk = pointer to	pathname to be spliced
*	   C1_TempPath = old pathname
*          C1_Pathname = new pathname
*	   lastName = new last segment of name (not used)
*          c1_path = piece of new pathname after the splice(?)
*
*          On stack:  Word = nonzero if we're splicing an iconObj (SuperKludge!)
*
*  OUT:	   Carry set if	spliced	name would be greater than MaxPathLen
*	   windBlk = pointer to	spliced	pathname
*	   work+1 = trash
* 
*	   If the first	part of	(windBlk) equals (C1_TempPath) then replace
*	   the name in (windBlk) that is in the	same position as the last
*	   name	in (C1_TempPath) with the name in lastName.
* 
*===============================================*

SpliceName	NAME

		IMPORT	c1_path

		lda	>c1_path
		sta	LLastName

		lda	c1_temppath
		sec
		sbc	spliceLength
		tay
		iny
		sty	startSplice		Rememeber where	to start splice.

		lda	C1_TempPath
		inc	a
		sec
		sbc	startSplice
		cmp	LLastName		;Is new name larger or smaller?
		bcc	bigger

;
; New name is smaller, move new name over old name
;
		sep	#$20
		LONGA	OFF

		ldx <zero
*** added 8-Jul-92 DAL -- Iterate zero times if necessary (to get length right below)
		bra @enterLoop
*** end 8-Jul-92
@loop2		inx
		iny
		lda	>c1_path+1,x
		sta	[<windBlk],y
@enterLoop	cpx	LLastName		;New name moved in?
		bne	@loop2

;
; ------ Pull end of pathname in --------------------------
;
		rep	#$20
		LONGA on
		lda	C1_TempPath
		cmp	[<windBlk]
		beq	@drawnIn
		tax
		inx
		
@loop3		sep	#$20
		LONGA off
		inx
		iny
		phy
		txy
		lda	[<windBlk],y
		ply
		sta	[<windBlk],y
		rep	#$20
		LONGA on
		txa
		cmp	[<windBlk]
		blt	@loop3
		beq	@loop3

@drawnIn	dey
		tya				;Set new length
		sta	[<windBlk]
		brl	okExit

;
; --- New name is larger or same size -----------------------------------
;
		LONGA	ON
		
bigger		pha
		lda	LLastName		;New name,
		sec
		sbc	1,s			;less length of old name,
		sta	1,s			;equals the number of characters added.

		lda	[<windBlk]		Make sure string won't be too long.
		tay				y = old	length.
		clc
		adc	1,s
		plx
		tax				x = new	length.
		cmp	maxLength
		bcc 	@good1
		brl	badExit
@good1

		lda	[<windBlk]		Compute	number of characters to	move.
		sec
		sbc	C1_TempPath
		sta	startSplice

		txa
		sta	[<windBlk]		Set new	length.

; X and Y are important!

*** This is where we really want to resize the icon object
		lda 3,s			;check kludge flag--nonzero = resizing iconObj
		beq @notIconObj

		phx
		phy			;save X and Y

		txa			;get new length back
		clc
		adc #2
		adc #icOwner
		pei <zero		;high word of new iconObj size
		pha			;low word of new iconObj size
; just leave the new size on there for SetHandleSize

; unlock icHand
		ldy #4
		lda [<icHand],y
		asl a
		lsr a				;clear bit 15 (unlocks handle)
		sta [<icHand],y

		pei <icHand+2			;new size already on stack
		pei <icHand
		_SetHandleSize
		php				;save error status

		ldy #4
		lda [<icHand],y
		ora #$8000
		sta [<icHand],y
		ldy #2				;dereference it again
		lda [<icHand],y
		sta <ic+2
		lda [<icHand]
		sta <ic

		plp
		bcs badExit			;if we got an error growing it, kill it

		ldx	<ic+2			Compute	pointer	to icOwner field.
		lda	<ic
		clc
		adc	#icOwner
		bcc	@store250
		inx
@store250	sta	<windBlk		Pass pointer of	name to	splice.
		stx	<windBlk+2

		ply				;restore X and Y!
		plx

*** End of resizing an iconObj handle
@notIconObj

;
; ------ Move end of pathname out to make room -----------------------
;		
		lda	startSplice
		sep	#$20
		LONGA	OFF
		beq	enter900		If no change in	length,	add new	name.
		iny
		inx
		
@bLoop		lda	[<windBlk],y
		phy
		txy
		sta	[<windBlk],y
		ply
		dey
		dex
		rep	#$20
		LONGA on
		dec	startSplice
		sep	#$20
		LONGA off
		bne	@bLoop
		dex

; ------ Add new name over old name --------------------------------

enter900	txy
		iny
		ldx	LLastName
@loop		lda	>c1_path+1,x
		sta	[<windBlk],y
		dey
		dex
		bne	@loop

okExit		clc				Return OK flag.
badExit		rep	#$30
		LONGA ON
		LONGI ON

; Exiting SpliceName: remove input flag word from stack
		plx		;grab RTS
		ply		;kill input
		phx		;put RTS back

		rts

;
; locals
;
diffStart	dc.w	0
spliceLength	dc.w	0
startSplice	dc.w	0
LLastName	dc.w	0			;lastname's length as a word
		ENDP


*===============================================*
*    Set the LE rects to match the text length	*
*						*
* IN:	<LErename has handle to LE record	*
* OUT:	the LE record has new view/dest rect	*
*===============================================*

SetLErects	PROC
		pei	<work+2			;fix BRC #68318, view by would screw up because <work was getting trashed
		pei	<work			;11/9/90 -- andy
	
		lda	[<LErename]		; get the line edit record pointer
		sta	<temp
		ldy	#2
		lda	[<LErename],y
		sta	<temp+2

		ldy	#oleLineHandle		; get the text handle
		lda	[<temp],y
		sta	<work
		iny
		iny
		lda	[<temp],y
		sta	<work+2

		pha				; space for width
		ldy	#2
		lda	[<work],y		; dereference the text handle
		pha				; pass text pointer
		lda	[<work]
		pha
		ldy	#oleLength		; get the text length
		lda	[<temp],y
		pha				; pass text length
		_TextWidth			; width left on stack
		
		ldy	#oleJust		; get the justification style
		lda	[<temp],y
		cmp	#leJustCenter		; is it centered ?
		beq	big

smallIconLE	pla				; get text width
		ldy	#oleViewRect+x1
		clc
		adc	[<temp],y		; add it to start
		inc	a
		inc	a
		bra	common
		
big		pla				; get text width
		inc	a			; align to even pixels
		lsr	a			; get half
		pha				; save it

		lda	LE_Center
		sec
		sbc	1,s			; subtract it from center
		ldy	#oleDestRect+x1
		sta	[<temp],y		; our new dest rect start
		dec	a
		dec	a
		ldy	#oleViewRect+x1
		sta	[<temp],y		; our new view rect start

		lda	LE_Center
		clc
		adc	1,s			; add it to center
		plx				; remove it
common		ldy	#oleDestRect+x2
		sta	[<temp],y		; our new dest rect end
		inc	a
		inc	a
		ldy	#oleViewRect+x2
		sta	[<temp],y		; our new view rect end

		pla				;end fix BRC #68318 -- 11/9/90 -- andy
		sta	<work
		pla
		sta	<work+2
		rts

		ENDP
		
*===============================================*
*    Grow the LE rects to fit a new character	*
*						*
* IN:	<LErename has handle to LE record	*
* OUT:	the LE record has new view/dest rect	*
*===============================================*

GrowLErects	PROC

		lda	[<LErename]		; get the line edit record pointer
		sta	<temp
		ldy	#2
		lda	[<LErename],y
		sta	<temp+2

		ldy	#oleJust		; get the justification style
		lda	[<temp],y
		cmp	#leJustCenter		; is it centered (ie a big icon)?
		beq	big

small		ldy	#oleDestRect+x2
		lda	[<temp],y
		clc
		adc	#maxCharWidth		; room to grow
		sta	[<temp],y		; our new dest rect end
		bra	common
		
big		ldy	#oleDestRect+x1
		lda	[<temp],y
		sec
		sbc	#maxCharWidth/2		; room to grow
		sta	[<temp],y		; our new dest rect start
		dec	a
		dec	a
		ldy	#oleViewRect+x1
		sta	[<temp],y		; our new view rect start

		ldy	#oleDestRect+x2
		lda	[<temp],y
		clc
		adc	#maxCharWidth/2		; room to grow
common		sta	[<temp],y		; our new dest rect end
		inc	a
		inc	a
		ldy	#oleViewRect+x2
		sta	[<temp],y		; our new view rect end

		rts

		ENDP

*===============================================*
* Clean up bashed areas from shrinking LE field *
*						*
*===============================================*
CleanUpLE	PROC

		stz	Bashed			; use as a flag (see below)

		lda	[<LErename]		; get the line edit record pointer
		sta	<temp
		ldy	#2
		lda	[<LErename],y
		sta	<temp+2

		lda	viewRect+x1		; if old.x1 < new.x1 then redraw
		ldy	#oleViewRect+x1
		cmp	[<temp],y
		bcs	leftSide
		sec				; give some slop	
		sbc	#6
		sta	desRect+x1		; set bashed rect #1
		lda	[<temp],y
		clc				; give some slop
		adc	#6
		sta	desRect+x2
		lda	#1			; remember that rect #1 is bad
		tsb	Bashed

leftSide	lda	viewRect+x2		; if old.x2 > new.x2 then redraw
		ldy	#oleViewRect+x2
		cmp	[<temp],y
		bcc	cont
		clc				; give some slop
		adc	#6
		sta	viewRect+x2		; set bashed rect #2
		lda	[<temp],y
		sec				; give some slop	
		sbc	#6
		sta	viewRect+x1
		lda	#2
		tsb	Bashed			; remember that rect #2 is bad

cont		lda	Bashed			; are there bashed rects ?
		beq	done

		lda	viewRect+y1		; get bashed rects vert coordinates
		sta	desRect+y1
		lda	viewRect+y2
		sta	desRect+y2
		
		jsr	ifDesk
		bne	window

		jsr	getRectRgn		; allocate regions for clobbered area

		ldx	#x2			; move rect #1 into irect2
@loop1		lda	desRect,x
		sta	<irect2,x
		dex
		dex
		bpl	@loop1
		jsr	addirect2		; add irect2 to clobbered region

		inc	viewRect+x2
		inc	viewRect+x2
		
		lda	viewRect+x1		; move rect #2 into irect2
		sta	<irect2+x1
		lda	viewRect+x2
		sta	<irect2+x2
		jsr	addirect2		; add irect2 to clobbered region

		jsr	redrawList		; force redraw of erased hole
		bra	done
		

window		lda	Bashed
		and	#1
		beq	inval2
		PushLong #desRect
		_InvalRect			; force a redraw of bashed rect #1
inval2		lda	Bashed
		and	#2
		beq	done
		PushLong #viewRect
		_InvalRect			; force a redraw of bashed rect #2

done		lda	[<LErename]		; get the line edit record pointer
		sta	<temp
		ldy	#2
		lda	[<LErename],y
		sta	<temp+2
		ldy	#oleViewRect+x1		; update to new view rect
		lda	[<temp],y
		sta	viewRect+x1
		ldy	#oleViewRect+x2
		lda	[<temp],y
		sta	viewRect+x2
		rts

Bashed		DC.W	0			; bit flag

		ENDP

;========================================================
;	   Make	line edit field	for icon's name.
;========================================================
;
;   IN:	   ic =	icon to	rename.
; 
;  OUT:	   Carry clear if line edit field made.
;
;========================================================

makeField	PROC	EXPORT

; --- Check if icon can	be renamed ---------------------------------------

		ldy	#icFType		; check if we can rename this device
		lda	[<ic],y
		cmp	#TypeFTrash
		bcs	goodbye			; bra if trash can
		cmp	#TypeFDrive
		beq	goodbye			; bra if 5.25 drive
		cmp	#TypeServer
		beq	goodbye			; bra if server volume

		ldy	#icFlag			; extended icons can't be renamed
;		lda	[<ic],y
;		and	#ICEXTENDED
;		bne	goodbye

		lda	[<ic],y			; is it locked or offline?
		and	#ICLOCKED+ICOFFLINE
		beq	ok2			; no, so ok to rename it
		
goodbye		sec				; field not created flag (carry)
		rts

;--- Setup RECT for small icon	----------------

ok2
		jsr	getIconRect		; irect2 = icon's title RECT.

		lda	<irect2+y1		; top and bottom need a little adjustment
		dec	a
		sta	desRect+y1
		lda	<irect2+y2
		inc	a
		sta	desRect+y2
		sta	viewRect+y2

		lda	<irect2+x1
		clc
		adc	#6
		sta	viewRect+x1
		inc	a
		inc	a
		sta	desRect+x1

;--- Setup RECT for large icon -----------------

		ldy	#windView		; if view by small, then ready
		lda	[<windBlk],y
		bne	common

		lda	<irect2+y1		; top and bottom need a little adjustment
		inc	a
		sta	desRect+y1

		lda	<irect2+y2
		inc	a
		sta	desRect+y2
		sta	viewRect+y2

		ldy	#icx
		lda	[<ic],y
		sta	LE_Center		; remember center of field
		ldy	#icTitleLen
		sec
		sbc	[<ic],y			; subtract half of text width
		sta	desRect+x1		; our dest rect's start
;		dec	a
;		dec	a
		sta	viewRect+x1		; our view rect's start

common		lda	desRect+y1
		inc	a
		sta	viewRect+y1

;--- make rects real small so LE won't draw the text (it's already drawn)
		lda	viewRect+x1
		sta	viewRect+x2		; our view rect's end
		lda	desRect+x1
		sta	desRect+x2		; our dest rect's end

;--- Start DJB fix for BRC #49646 --------------

		ldy	#windView		; if not small icon then skip
		lda	[<windBlk],y
		beq	@normal

		lda	<irect2+x2
		sec
		sbc	<irect2+x1
		cmp	#dxViewSize-62		; did we clip the text ??
		bcc	@normal			; nope
		lda	<irect2+x2		; yes, so make some real rects
		sta	viewRect+x2		; to force LE to draw the text
		dec	a
		dec	a
		sta	desRect+x2
@normal
;--- end DJB fix -------------------------------


;--- Create line edit record -------------------

		lda	<curWind		; save current state.
		sta	LEwind
		lda	<curWind+2
		sta	LEwind+2

		lda	<icHand
		sta	LEicon
		lda	<icHand+2
		sta	LEicon+2

		jsr	startDraw
		jsr	normalColor

		pha				; space for handle
		pha
		PushLong #desRect		; destination RECT ptr
		PushLong #viewRect		; view RECT ptr
		PushWord LE_MaxLen		; maximum length
		_LENew
		PullLong <LErename

		ldy	#windView		; if view by small, then ready
		lda	[<windBlk],y
		bne	ok3

		PushWord #leJustCenter		; center justify line edit field
		PushZLong <LErename
		_LESetJust

ok3		jsr	getIcNamePtr		; get pointer to icon's name field
		inc	a			; skip length byte
		bne	store1
		inx
store1		phx				; pass pointer to text part of name
		pha
		lda	[<temp]			; pass length of text
		and	#$00FF
		pha
		sta	<temp			; (Save for next call.)
		PushZLong <LErename		; pass handle of line edit record
		_LESetText

		pei <zero			; select from the beginning.
		PushZWord <temp			; to the end (temp = saved max length)
		PushZLong <LErename
		_LESetSelect

		PushZLong <LErename
		_LEActivate

		PushZLong <LErename
		_LEUpdate

		jsr	SetLErects		; now make view/dest rect fit text
		
		lda	[<LErename]		; get the line edit record pointer
		sta	<temp
		ldy	#2
		lda	[<LErename],y
		sta	<temp+2
		ldy	#oleViewRect+x2		; update to new view rect
		lda	[<temp],y
		sta	viewRect+x2

; --- Compute RECT for outlining name ------------------------------

;;;		dec	viewRect+y1		Top, down one line.
;;;		dec	viewRect+x1		Left side, to the left two pixels.
;;;		dec	viewRect+x1
;;;		inc	viewRect+x2		Right side, down two lines.
;;;		inc	viewRect+x2
;;;		jsr	boxRename		Draw a box around the rename field.

		jsr	endDraw

		stz	LEdirty			; no changes made yet
		clc				; line edit field created
		rts


*==============================================
		EXPORT	boxRename
boxRename        

;;;		pea	2
;;;		pea	1
;;;		_SetPenSize
;;;
;;;		pea	-1
;;;		_SetSolidPenPat
;;;		
;;;		pea	viewRect>>16
;;;		pea	viewRect
;;;		pea	-2
;;;		pea	0
;;;		_InsetRect
;;;		
;;;		pea	viewRect>>16
;;;		pea	viewRect
;;;		_FrameRect
;;;
;;;		pea	viewRect>>16
;;;		pea	viewRect
;;;		pea	0
;;;		pea	-1
;;;		_InsetRect
;;;		
;;;		pea	0
;;;		_SetSolidPenPat
;;;
;;;		pea	viewRect>>16
;;;		pea	viewRect
;;;		_FrameRect
;;;
		rts

		ENDP

; longNoRename -- call no rename from just about anywhere
;.....................................................................

longNoRename	proc EXPORT

		phb
		phk
		plb
		
		jsr	noRename
		
		plb
		rtl
		endp
		
*===============================================*
*	    Remove a Line Edit Field		*
*						*
* The icon's title is left on the screen and is *
* highlighted acording to the icon's state (ie  *
* if the icon is selected then the text will be *
* inverted).					*
*						*
* IN:	LErename				*
*	LEwind					*
*	LEicon					*
*	LEdirty					*
*						*
* OUT:						*
*	carry sec if no LE field		*
*===============================================*

NoRename        PROCNAME EXPORT

		IMPORT	InsertPtr
		IMPORT	getwRefCon
		IMPORT	pushirect2

		lda	<LErename+1		; is there a line edit field?
		bne	valid
		brl	exit			; no

valid		PushZLong <curWind		; save current state
		PushZLong <icHand

		lda	LEwind			; set to line edit plane and icon
		sta	<curWind
		lda	LEwind+2
		sta	<curWind+2
		jsr	getwRefCon

		lda	LEicon
		sta	<icHand
		lda	LEicon+2
		sta	<icHand+2
		jsr	lockic
		
		stz	LEicon			; mark as gone
		stz	LEwind+2


;--- Start of DJB fix for BRC# 49646 -----------
;		
;		ldy	#windView		; is it a small icon ?
;		lda	[<windBlk],y
;		beq	@normal			; no
;		
;		lda	viewRect+x2		; was original text clipped?
;		sec
;		sbc	viewRect+x1
;		cmp	#dxViewSize-62
;		bcc	@normal			; no, so do a normal redraw
;		
;		jsr	getIconRect		; irect2 = icon's title RECT
;
;		jsr	startDraw		; force a redraw
;		jsr	pushirect2
;		_EraseRect
;		jsr	pushirect2
;		_InvalRect
;		jsr	endDraw
;
;		brl	done
;@normal
;--- End of DJB fix ----------------------------

;
;--- Start of rdl fix for BRC# 53121 / WS# MSF348SMW, of DJB fix for BRC# 49646 -----------
; The above djb fix was testing the size of the CURRENT text, not the original
; and it was erasing only the original text size, not the larger of original or current.
; So if you had made a short filename very long or a long filename even longer, the
; extension would be left on the screen as an artifact after mousing out or hitting Escape.
;
; But Ron, the only thing which needs to get nuked is the stuff which protrudes outside of
; the area that the list view clips to, NOT the entire thing.  We also don't even need to
; do this AT ALL when using small icon view. andy, 2/8/92.  40 hours before 6.0 GM?
;
		ldy	#windView		; is it an icon and not a list view?
		lda	[<windBlk],y
		cmp	#viewByName
		blt	atNormal
		
		jsr	getIconRect		; irect2 = icon's title RECT

		lda	<irect2+x2		; was original text clipped?
		sec
		sbc	<irect2+x1
		cmp	#dxViewSize-62
		bcc	atNormal		; no, so do a normal redraw
		
		jsr	startDraw		; force a redraw of larger of view or initial rect

		lda	<irect2+x2		; which is larger, then or now? (erase the larger)
		cmp	viewRect+x2
		bcs	@eraseIRect		; bra if irect is greater or equal to erase it
	
		ldx	#6			;if viewRect is larger, copy it to irect2 since this is a	
@loop		lda	viewRect,x		;(we hope, 1 day before GM? Ack.) localized patch (Hi Dave! :)
		sta	<irect2,x
		dex
		dex
		bpl	@loop

@eraseIRect	lda	<irect2+x1
		clc
		adc	#dxViewSize-68
		sta	<irect2+x1

		jsr	pushirect2		;only erase the part that protrudes!
		_EraseRect
		jsr	pushirect2
		_InvalRect
	
		jsr	endDraw
		brl	done

atNormal

;--- End of rdl fix for BRC# 53121 / WS# MSF348SMW, of DJB fix ----------------------------
;--- End of AEN fix of RDL fix or DJB fix -------------------------------------------------


		lda	LEdirty			; was field even touched ?
		bne	redraw			; yes
		brl	done			; no

;--- Set LE's text back to icon's text ---------

redraw		jsr	startDraw

		jsr	getIcNamePtr		; get pointer to icon's name field
		inc	a			; skip length byte
		bne	store1
		inx
store1		phx				; pass pointer to text part of name
		pha
		lda	[<temp]			; pass length of text
		and	#$00FF
		pha
		PushZLong <LErename		; pass handle of line edit record
		_LESetText
		jsr	SetLErects		; now make view/dest rect fit text

;--- Make sure text is properly highlighted ----

		ldy	#icFlag
		lda	[<ic],y
		and	#ICSELECTED
		bne	selected		; icon is selected so draw it inverted

		PushZLong <LErename		; unhighlight selection/remove the caret
		_LEDeactivate
		PushZLong <LErename
		_LEUpdate
		bra	eraseField
		
selected	pei <zero			; select (highlight) the entire text
		PushWord LE_MaxLen
		PushZLong <LErename
		_LESetSelect
		PushZLong <LErename
		_LEActivate
		PushZLong <LErename
		_LEUpdate

;--- Erase any "bashed" areas ----------------------------------------;
;								      ;
;	|---- icon's rect ----|           |-- icon's rect --|	      ; (orig: returning to this)
;				  or				      ;
;	   |-- view rect --|	       |------ view rect ------|      ; (undoing this)
;								      ;
;  (ok since new text is bigger)    (bad since new text is smaller)   ; (new text is orig. text)
;---------------------------------------------------------------------;

eraseField	jsr	getIconRect		; irect2 = icon's title RECT

		lda	viewRect+x1		; is view rect smaller (on left side)?
		cmp	<irect2+x1
		bcc	cont			; bra if no, to redraw bashed areas
		lda	viewRect+x2		; is view rect smaller (on right side)?
		cmp	<irect2+x2
		bcs	cont			; bra if no, to redraw bashed areas
		brl	stop			; view rect smaller, nothing to do

cont		lda	<irect2+x2		; desRect <-- "right bashed area of view rect"
		sta	desRect+x1
		lda	viewRect+x2
		sta	desRect+x2
		
		lda	viewRect+y1
		sta	desRect+y1
		lda	viewRect+y2
		sta	desRect+y2

		lda	<irect2+x1		; viewRect <-- "left bashed area of view rect"
		sta	viewRect+x2

; rdl 5/17/90 fix: bug is that renaming a large icon at the left edge of the window 
; so that the new filename extends off the left edge of the screen and into negative x coords 
; would be left on the screen after hitting escape or mousing out of the filename.  
; So I commented out the first three lines of the following, which do not handle 
; the possibility of negative coords.  (viewRectÕs coords are the rect on the left half 
; of the icon that are being undone because the original name was smaller so the left part 
; of the new name has to be erased.)  
; If there is a valid possibility of an x2 thatÕs smaller than an x1, there could be implications!
;		lda	viewRect+x1
;		cmp	viewRect+x2
;		bcs	skip1
; end of rdl 5/17/90 fix (see also below) (skip1 probably no longer in use)
		PushLong #viewRect
		_EraseRect			; erase from desktop
skip1		PushLong #desRect
		_EraseRect

		jsr	ifDesk			; is it desktop or window icon list?
		bne	window

		jsr	getRectRgn		; allocate regions for clobbered area

		lda	viewRect+y1		; move viewRect into irect2
		sta	<irect2+y1
		lda	viewRect+x1
		sta	<irect2+x1
		lda	viewRect+y2
		sta	<irect2+y2
		lda	viewRect+x2
		inc	a
		inc	a
		sta	<irect2+x2
		jsr	addirect2		; add irect2 to clobbered region

		lda	desRect+y1		; move desRect into irect2
		sta	<irect2+y1
		
		lda	desRect+x1
		sta	<irect2+x1
		lda	desRect+y2
		sta	<irect2+y2
		lda	desRect+x2
		inc	a
		inc	a
		sta	<irect2+x2
		jsr	addirect2		; add irect2 to clobbered region

		jsr	redrawList		; redraw erased holes
		bra	stop


window
; rdl 5/17/90 fix (see also above) 
;		lda	viewRect+x1
;		cmp	viewRect+x2
;		bcs	skip2
; end of rdl 5/17/90 fix (skip2 probably no longer in use)
		PushLong #viewRect		; force a redraw of bashed areas
		_InvalRect
skip2		PushLong #desRect
		_InvalRect
stop		jsr	endDraw

;--- Free line edit record ---------------------

done		jsr	unlockic

		PushZLong <LErename		; done with the old line edit field
		_LEDispose

		stz	<LErename		; mark as no line edit field
		stz	<LErename+2

;--- Remove the Insert Cursor (if any) ---------

		pha				; space for address
		pha
		_GetCursorAdr			; get current cursor address
		pla
		plx		
		cmp	>InsertPtr		; is it an Insert Bar ?
		bne	restore
		txa
		cmp	>InsertPtr+2
		bne	restore
		jsl	ArrowCursor		; force an arrow cursor

;---  restore original state -------------------

restore		PullLong <icHand		; restore variables
		PullLong <curWind

		jsr	lockic			; ic = (icHand)
		jsr	getwRefCon		; windBlk = curWind info block

exit		sec				; no line edit field flag
		rts

		ENDP

; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = =
;	   Handle hit in line edit field.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = =
;
;  IN:	   LErename = valid line edit handle.
;	   Task	record = button	down, hit event.
;
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = =

hitIconName	PROC	EXPORT

		jsr	startDraw

		jsr	pushyrat
		_LocalToGlobal

		jsr	pushTask		; pass pointer to Task record
		pei	<LErename+2
		pei	<LErename
		_LEClick			; track user's movements

		inc	LEdirty			; changes were made
		
		brl	endDraw

		ENDP

;============================================
;	   Get current pattern or picture
;============================================
;
;  OUT:	   a = zero if pattern hasn't changed.
;	       one if there isn't a pattern message.
;	       negative	if new pattern.
;	       (temporary for a is work)
;
;============================================

getPattern	PROC	EXPORT
		import	NewDeskPatFlag,DisposeHandleGlue

		stz	<work			Set 'no pattern message' flag.
		inc	<work

;		lda	#24			Number of bytes	to allocate.
;		jsr	allocate
;		phx				Pass to	DisposeHandle.
;		pha
;
;		pea	GetMessage		Pass action value.
;		pea	DeskMessage		Pass type of message.
;		phx				Pass handle to MessageCenter.
;		pha
;		_MessageCenter			Parameters on stack.
***
		pha
		pha				;space for GetMsgHandle
		pea 1				;flags = get msg by type
		pei <zero			;high word of data (ignored)
		pea DeskMessage			;message 2
		_GetMsgHandle
***
		bcc	@ne1
@toExit		brl	exit			Was a pattern message found?
@ne1
		lda	3,s			Dereference the	message	handle.
		tax
		lda	1,s
		jsr	derefHand

		stz	<work			Set 'no change'	flag.

;--- Added 12/20/88 DJB -----------------------
		ldy	#6
		lda	[<temp],y		; get Draw Type
		beq	isPattern
		cmp	#1			; is it a picture ?
		bne	@toExit

		lda	ScreenHandle+1		; do we have a buffer already ?
		bne	gotBuffer

		lda	#32000			; allocate buffer for picture
		jsr	allocate
		sta	ScreenHandle
		stx	ScreenHandle+2
		ora	ScreenHandle+2
		beq	@toExit			; allocation failed!

		lda	3,s			Dereference the	message	handle.
		tax
		lda	1,s
		jsr	derefHand

		dec	NewDeskPatFlag

gotBuffer	add4	<temp,#8,<temp

		PushZLong <temp
		PushLong ScreenHandle
		PushLong #32000
		_PtrToHand			; copy picture to our buffer

*** added 12-Dec-91 DAL
		lda NewDeskPatFlag
		sta <work
*** end 12-Dec-91

		bra	exit
;--- End Add ----------------------------------

isPattern
*** added 12-Dec-91 DAL
*** Kill old deskpicture handle, if any
		lda	ScreenHandle+1
		beq	@noPicHandle
		pushlong ScreenHandle
		jsl DisposeHandleGlue
		stz ScreenHandle
		stz ScreenHandle+2
		dec	<work
@noPicHandle
*** end 12-Dec-91
		ldy	#messData+16
		ldx	#14
lop1		lda	[<temp],y
		cmp	deskpat,x		Any change?
		beq	next1
		dec	<work			Set 'pattern has changed' flag.
next1		sta	deskpat,x
		dey
		dey
		dex
		dex
		bpl	lop1

*** added 12-Dec-91
		lda	<work
		bpl	@noNeed
*** Now set the background pattern in deskport to our new pattern
		pha
		pha
		_GetPort
		pei <deskPort+2
		pei <deskPort
		_SetPort
		pushlong #deskpat
		_SetBackPat
		_SetPort
@noNeed
*** end 12-Dec-91

exit
;;;		_DisposeHandle			Parameters on stack.
		pla
		pla				;discard message handle

		stz	NewDeskPatFlag

		lda	<work
		rts

		ENDP
		
;================================================
;
;================================================

FinderSaveAll	PROC	EXPORT

		IMPORT	EmptyTrashMenu
		IMPORT	WStringCopy
		import	DisposeHandleGlue

		jsr	EmptyTrashMenu		; delete everything in the Trash
		jsr	writeDef		; write Finder.Def file

; ------ Save the pathname of the top most window -------------------------

		lda	#$FFFF			;any window.
		jsr	getFrontWind		;find the top window.
		cmp	#DirWindID		;is the top window a directory window?
		bne	saveRoots

		ldy	#windPath		
		lda	[<windBlk],y		
		clc
		adc	#8			;Number of bytes to allocate. (6+2)
		jsr	allocate
		phx				;Pass to DisposeHandle.
		pha

		pea	AddMessage		Pass parameters	to MessageCenter.
		pea	TopMessage
		phx
		pha

		jsr	derefHand		temp = (Handle)

		lda	#windPath
		clc
		adc	<windBlk
		ldx	<windBlk+2
		bcc	@nr
		inx	
@nr		phx
		pha

		lda	<temp			;add 6 to the destination because
		clc				;the filename starts at offset +6
		adc	#6			;not offset +0
		ldx	<temp+2
		bcc	@nr2
		inx
@nr2		phx
		pha

		jsl	WStringCopy

		_MessageCenter
		jsl DisposeHandleGlue

saveRoots	jsr	writeAllRoots		; write FINDER.ROOT files
		_UnloadScrap			;fix BRC #44569 -- andy		
		rts
		
		ENDP
					
; = = =	= = = =	= = = =	= = = =	= = = =	=
;	   Pathname length error.
; = = =	= = = =	= = = =	= = = =	= = = =	=
;
;  OUT:	   Carry set.
;
; = = =	= = = =	= = = =	= = = =	= = = =	=

lenError	PROC	EXPORT		

		IMPORT	doAlertWindow

		rep	#$30			;some callers in 8 bit, so switch to 16.
						;hey, what about switching BACK to 8????? -- andy
		
		lda	#rasPathTooLong
		jsl	doAlertWindow
		sec				;error flag.
		rts
		ENDP
		
;-----------------------------------------------
;	Invalidate the content of Info windows	;added 07/27/88 by Dan O.
;	of selected icons.
;
; IN:	ic - icon to check
;-----------------------------------------------
updateInfoWin	Proc	EXPORT

		IMPORT	_UpdateInfoWin

		lda	#iconRect
		ldx	#iconRect>>16
		bra	begin

		EXPORT	updateInfoWin2
updateInfoWin2	lda	#whereRect
		ldx	#whereRect>>16
begin
		sta	locRectPtr
		stx	locRectPtr+2

		ldy	#icInfo+1		;does icon have an Info window?
		lda	[<ic],y
		beq	@exit
		
		PushZLong <icHand
		PushLong #C1_PathName
		jsl	_UpdateInfoWin		
@exit		rts

locRectPtr	DC.L	0
iconRect	DC.W	0,infoDX>>1,infoY1+10,infoDX
whereRect	DC.W	infoDY>>1,70,(infoDY>>1)+12,infoX2

;-----------------------------------------------		
		
		ENDP
		
*===============================================*
*    Find All Directory Windows for a Volume	*
*						*
* Called by walkWindows				*		
*===============================================*
FindWindows	PROC	EXPORT

		IMPORT	CheckAnyDWindow
		IMPORT	matchRootName

		jsr	matchRootName
		bcc	next

		jsr	CheckAnyDWindow		; update this window
		
		PushLong #C1_VolName
		PushLong #C1_PathName
		jsl	WStringCopy		; C1_Pathname <-- volume name

next		clc				; continue flag
		rts

		ENDP


; check windows on desktop for who has become the front window
; this will put a checkmark beside the frontmost window in the windows menu
; and also remove the checkmark from the other window
;
; INPUTS: none
;
; OUTPUTS: topmost window is checkmarked, last topmost window has its
;	   checkmark removed
;.....................................................................

CheckFront	PROC

		IMPORT	matchedSecond
		IMPORT	matchSecond
		IMPORT	NoRename
		IMPORT	LEWind
		IMPORT	NewView
		IMPORT	LastOnTop
		IMPORT	CurView
	
		pha
		pha
		_FrontWindow
		pulllong <deref
		
		lda	<deref+1		;is anyone open?
		bne	@who
		stz	lastOnTop
		
		jsr	UncheckView		;uncheck the views menu
@done		rts				;nope

;
; first, check if LEWind is the same as the desktop port, if so then leave the line edit
; control alone.  If LEWind is different from the front window, get rid of the line
; edit control so that only the front window can have a line edit control in it
;
@who		
;;; Opt 20-Feb-92 DAL
;		lda	LEWind
;		cmp	<deskport
;		bne	@lookAtFrontWind
;		lda	LEWind+2
;		cmp	<deskport+2
;		beq	@noRemove

		lda LEWind+1
		cmp <deskPort+1
		beq @noRemove

;@lookAtFrontWind
;;; Opt 20-Feb-92 DAL
;		lda	<deref		
;		cmp	LEWind		
;		bne	@removeRename	
;		lda	<deref+2
;		cmp	LEWind+2
;		beq	@noRemove

		lda <deref+1
		cmp LEWind+1
		beq @noRemove

;;@removeRename

		jsr	noRename
@noRemove	pha
		pushZLong <deref
		_GetSysWFlag
		pla
		bpl	@finderWindow
		
		jsr	UncheckWindow		;uncheck the windows menu
		brl	UncheckView		;uncheck the views menu

;
; We have a finder window on top of the pile of windows
;
@finderWindow	pha
		pha
		pushZLong <deref
		_GetWRefCon
		pulllong <deref

;
; first, we'll have to check or uncheck the view type for this finder window
;	
		ldy	#windID
		lda	[<deref],y
		cmp	#DirWindID
		bne	@UncheckWindow
		
		ldy	#windView
		lda	[<deref],y
;;; Opt 20-Feb-92 DAL
;		asl	a
;		tax
;		lda	CurView
;		cmp	ViewItems,x
;		beq	@viewSet
***
		clc
		adc #idByIcon
		cmp CurView
		beq @viewSet
***

		jsr	UncheckView		;uncheck the current view
		
		ldy	#windView		;setup the new view
		lda	[<deref],y
;;; Opt 20-Feb-92 DAL
;		asl	a
;		tax
;		lda	ViewItems,x
***
		clc
		adc #idByIcon
***

		sta	CurView
		
		pea	$FFFF			;check the new view
		pha
		_CheckMItem
		bra	@viewSet

@UncheckWindow	jsr	UncheckView
		
;
; Now, finish checking the windows menu item, etc.
;
@viewSet	ldy	#windMenuItem
		lda	lastOnTop
		cmp	[<deref],y
		bne	@notAlready
		rts
		
@notAlready	jsr	UncheckWindow
		
		ldy	#windMenuItem
		lda	[<deref],y
		sta	lastOnTop
		
		pea	$FFFF			;turn the checkmark on on this item
		pha
		_CheckMItem
		rts	

;
; UncheckWindow -- uncheck the current window if there is one and leave the current window
;		   set as nothing...
;
UncheckWindow	lda	lastOnTop		
		beq	@done
		pei <zero			;uncheck the window item currently checked
		pha
		_CheckMItem
		stz	lastOnTop
@done		rts
		
;
; UncheckView -- uncheck the current view if there is one and leave the current view set as
;		 nothing...
;
UncheckView	lda	CurView
		beq	@done
		pei <zero			;uncheck the view item currently checked
		pha
		_CheckMItem
		stz	curView		
@done		rts

;
; Locals
;
;;; Opt 20-Feb-92 DAL
;viewItems	DC.W	idByIcon
;		DC.W	idByTinyIcon
;		DC.W	idByName
;		DC.W	idByDate
;		DC.W	idBySize
;		DC.W	idByKind

		ENDP

; CheckCleanup -- see if they are holding down the option key, and if they are,
;  		  change "cleanup" to "cleanup by name"
;
; IN: nothing
;
; OUT: nothing
;.....................................................................

CheckCleanup	PROC

		IMPORT	GetFrontWind
		IMPORT	DeskWindState

		lda	<modifiers
		and	#$0800
		beq	@ChangeToClean

		lda	#$FFFF			;Take any window on top.
		jsr	GetFrontWind		;Get the front most window.
		beq	@ChangeToClean		;if we're at the desktop, don't change
		and	#DirWindID+TrashWindID	;Directory or Trash is OK.
		beq	@ChangeToClean

		ldy	#windView
		lda	[<windBlk],y
		cmp	#viewByName
		bge	@ChangeToClean


@ChangeToCleanByName
		lda	CleanupState
		bmi	@done
		dec	CleanupState
		
		pea	2
		pushlong #rMItemCleanupByName
		pea	601
		_SetMItemName2
		
		pea	606			;new
		pea	601			;old
		_SetMItemID
		bra	@calcMenuSize
		
@ChangeToClean	
		lda	CleanupState
		beq	@done
		stz	CleanupState
		
		pea	601			;new
		pea	606			;old
		_SetMItemID

		pea	2
		pushlong #rMItemCleanup
		pea	601
		_SetMItemName2
				
@calcMenuSize	pei <zero
		pei <zero
		pea 600
		_CalcMenuSize		
		
		lda	DeskWindState
		eor	#winTopText
		sta	DeskWindState		;blast this so that the cleanup menu item gets dimmed (or not)
		
@done		rts
		
;
; locals
;
		EXPORT	CleanupState
CleanupState	dc.w	0
		endp

; checkAboutRecalc -- see if it's time to recalculate the space free and used by the system
;
; INPUTS: none
;
; OUPUTS: none
;.....................................................................

checkAboutRecalc proc
		
		IMPORT	doAboutRecalc

		lda	when
		sec
		sbc	lastAboutTime
		cmp	#15*60			;15 seconds
		blt	@done

		jsl	doAboutRecalc
		
		lda	when
		sta	lastAboutTime
@done		rts

		EndP

		
; check windows on desktop for changes
;
; INPUTS: none
;
; OUTPUTS: none
;.....................................................................


CheckWindows	PROC
NetLatency	equ	30			; JAM 5/31/89 to improve Finder perf. (in seconds)

		IMPORT	walkWindow
		IMPORT	CheckWindow
		IMPORT	DrawHearts
		
		lda	<when
		sec
		sbc	LastNetTime
		cmp	#60*NetLatency		; about NetLatency seconds
		bcc	end

		lda	<when			; start counter again
		sta	LastNetTime

		lda	#DirWindID		; directory windows only.
		ldx	#CheckWindow
		jsr	walkWindow

end		rts

		ENDP
		
*===============================================*
*    Check each window on desktop for changes	*
*    (called by walkWindow)			*
*						*
* INPUT:	wind				*
* OUTPUT:	carry flag clear		*
*						*
*===============================================*
CheckAnyDWindow	PROC 	EXPORT
		IMPORT	CheckIcons
		IMPORT	GetModifyDate
		IMPORT	windRefCon
		IMPORT	getWindPath
		IMPORT	redrawText
		IMPORT	redrawList
		IMPORT	setItems
		IMPORT	newDataSize3
		IMPORT	updateKs
		IMPORT	setInfo2
		IMPORT	freeRectRgn
		IMPORT	ClearWindDirty
		IMPORT	selectionIsChanging

		stz 	IsNewer			;init
		phd				;save it for exit
		pea	$FFFF			;don't exclude non-net items
		bra	StartCkWin

		EXPORT	UpdateWindow
UpdateWindow

		lda	#1
		sta	IsNewer			;update no matter what
		bra	common

		EXPORT	CheckWindow
CheckWindow	stz 	IsNewer			;init
common		phd				;save it for exit
		pei	<zero			;behave as usual
	
;		
; Save the window pointer here, it can be trashed by routines that walk the 
; various lists (in particular kill child). This way we can restore it later if
; we need to.
;
StartCkWin	
		lda 	<wind			;get the current window pointer
		sta 	CkWindPtr		;save it in our local pointer
		lda 	<Wind+2
		sta 	CkWindPtr+2
		
		jsr	windRefCon		;windBlk = window's info block pointer
		jsr	getWindPath		;C1_PathName = window's pathname
		
		lda	IsNewer			;check date?
		bne	DatesDiffer		;bra if no: update no matter what

		ldy	#windDate		;is date valid ?
@loop		lda	[<windBlk],y
		bne	OK
		iny
		iny
		cpy	#windDate+8
		bcc	@loop
GotoExit	brl	exit			; probably a ProDOS root folder

;-----------------------------------------------		
OK		ldy	#windIC			; is this a Network icon ?
		lda	[<windBlk],y
		sta	<icHand
		iny
		iny
		lda	[<windBlk],y
		sta	<icHand+2
		jsr	lockic
		ldy	#icFlag+2
		lda	[<ic],y
		and	#ICNETWORK>>16		; is this directory on the Network?
		bne	ContCkWin		; bra if no: ignore non-network directories.

		lda	1,S			; do we want to process all directories?
		beq	gotoexit		; no, so go home

; At this point, the volume is not on the network, and we know that we want to
; process everybody (probably to handle a local disk insertion).  If it is a ProDOS
; root volume we should go ahead and process the directory, regardless of the
; last modified date.  If it is not a root volume, then we need to process only
; after making sure that the last modified date warrants processing.
;
; %%%
; COMPATIBILITY ALERT:  THE FOLLOWING CODE WILL ALMOST CERTAINLY NEED TO BE
; REWRITTEN WHEN WE GET NEW FSTs.

		ldy	#icFType
		lda	[<ic],y
		cmp	#TypeLastOne
		bcc	ContCkWin		; bra if not a device icon, so not a root dir.
		ldy	#icFileInfo		
		lda	[<ic],y			; What's the file system?
		cmp	#$1			; Is it ProDOS?
		bne	ContCkWin		; bra if NO: last mod date is assumed valid.
		inc	IsNewer			; else YES:  Last mod date may be wrong.
		bra	DatesDiffer		; So use brute-force, & assume they differ.
;-----------------------------------------------

ContCkWin	PushLong #C1_PathName		; pass pathname pointer
		PushLong #Date			; pass date address
		jsl	GetModifyDate
		bcs 	GotoExit

		ldx	#6
		ldy	#windDate+6
loop		lda	Date,x
		cmp	[<windBlk],y		; is window out dated ?
		beq	next
		inc	IsNewer
		sta	[<windBlk],y		; update window's date
next		dey
		dey
		dex
		dex
		bpl	loop
		
DatesDiffer	lda	IsNewer
		sta	IconChanged		; zero the changed flag if no changes
		beq	exit			; This beq MUST be here !!!! - DJB
	
		jsr	getRectRgn		; goAhead:  allocate rectRgn and tempRgn

		jsr	CheckIcons		; update window's icons	
		bcs	exit			; error so abort update
		
		lda	IconChanged		; get the icon changed flag
		beq	SetData			; if no changes, don't redraw
		stz	IconChanged

		jsl 	selectionIsChanging
		
;
; Restore the window pointer to its original setting before calling any routine
; that can cause window drawing
;
		lda 	CkWindPtr
		sta 	<Wind
		lda 	CkWindPtr+2
		sta 	<Wind+2

;
; Now also, test to see if the window pointer that we are in has the current
; rename field, if so, it should be turned off (rename that is) so that when the
; window is redrawn (which it is since its a text view) and the icon you are renaming
; moves (as they usually do) their will not be a stray rename field
;
		ldy	#windView		;first test to see if we need to 
		lda	[<windBlk],y		;redraw the whole window in text mode
		cmp	#viewByName
		bcc	byIcon

		lda 	Wind+2			;get the pointer to the current window
		cmp 	LEWind+2		;compare it to the current rename icon
		bne 	@NotThiswind		;if not equal dont worry
		lda 	wind
		cmp 	LEWind
		bne 	@NotThiswind
		jsr 	noRename		; if they are the same, dump the rename field
@NotThiswind
		
		jsr	redrawText		Act like a new view was	just selected.
		bra	setdata

byIcon		jsr	redrawList		Redraw hole left by deleted icons.

setdata		ldy	#windID			If directory window, then update number
		lda	[<windBlk],y		of icons.
		cmp	#DirWindID
		bne	@notDir
		jsr	clearWindDirty
		jsr	setItems		Set new	number of items.

@notDir	

*** added 16-Oct-92 DAL -- preserve <wind, especially for when we're called by WalkWindows
		pei	<wind+2
		pei	<wind
*** end 16-Oct-92

		jsr	newDataSize3		Compute	new data size for window.

		jsr	updateKs		Update info bars for all window	in path.

		lda	<TrashWind		Update Trash window's info bar in case
		ldx	<TrashWind+2		some extended icons were removed.
		jsr	setInfo2		New number of items.

*** added 16-Oct-92 DAL -- restore <wind
		pla
		sta	<wind
		pla
		sta	<wind+2
*** end 16-Oct-92

		jsr	freeRectRgn		Free allocated regions.

exit		pld				; get rid of argument (trashing dp pointer...)
		pld				; make up for trashing DP pointer just now
		clc
		rts
		
		ENTRY	IconChanged
		EXPORT	IconChanged
IconChanged	ds.W	1		
Date		DS.B	8
IsNewer		DS.W	1
CkWindPtr	ds.L 	1		
		ENDP

*===============================================*
*     Check each icon in window for changes	*
*						*
* INPUT:	wind,windBlk			*
* OUTPUT:	none				*
*						*
*===============================================*

CheckIcons	PROC	EXPORT

		IMPORT	CompareIcon
		IMPORT	ExtraIcon
		IMPORT	WalkOfLife3
		IMPORT	AddWindowIcon
		IMPORT	IsIconInTrash
		IMPORT	IsIconOnDesk		
		IMPORT	OptionBuff
		IMPORT	IconChanged
		import	ce_access
		import	ce_file_type
		import	ce_aux_type
		import	ce_mod_date
		import	startHash
		import	SpotHashOn
		import	CopyDirEntryToIconTemplate

		jsr 	startHash		; JAM 5/21/89
		
		PushLong #C1_PathName		; pass window's pathname
		ldx	#xStartCatalog
		jsl	MiscEntry
		bcs	toExit			; bra if open error: abort
		

Loop		lda	<zero
		sta	>OptionBuff+olFileSysID

		pha				; space for result
		pha
		ldx	#xNextCatalog
		jsl	MiscEntry
		plx
		stx	<work			; get pointer to directory entry
		plx
		stx	<work+2
		bcc	ok
		cmp	#$0061			;end of directory error?
		beq	done			; end of directory
		sec
toExit		bra	exit			; error, so abort

ok						; copy info for dir entry to icon template

*** Added - 18-Feb-93 JCM - Lets copy some more info locally so that CompareIcon can do a much more
***			    thorough job, like actually noticing files changing. Wow. What a concept.

		jsr	CopyDirEntryToIconTemplate ;get lots of common stuff

;;;		ldx	#6			;18-Feb-93 JCM - this was copied when CopyDir... was called
;;;copydate	lda	ce_mod_date,x		; get modified date
;;;		sta	ticonobj+icMDate,x
;;;		dex
;;;		dex
;;;		bpl	copydate

; The last bit of info we need is the fileType/auxType combo.

		lda	ce_file_type
		sta	ticonobj+icFType
		lda	ce_aux_type
		sta	ticonobj+icAuxType
		lda	ce_aux_type+2
		sta	ticonobj+icAuxType+2

*** End - 18-Feb-93 JCM

		ldy	#DirName+30		; get entry name
		ldx	#30
copyname	lda	[<work],y
		sta	ticonobj+icName,x
		dey
		dey
		dex
		dex
		bpl	copyname

;
; Fixing bug that allows old, non-invisible Finder data files to be
; made visible in a special-update situation (such as volume update, net update, etc.)
;
		lda	ce_file_type
		cmp	#DATAFTYPE
		beq	DoWeHideIt		; don't care about the invisible bit
		
		lda	ce_access		; get access value
		and	#$0004			; check the invisible bit
		beq	check			; not set
		
DoWeHideIt	lda	prefer			; should invisible files be hidden?
		and	#PREF_HDATA
		bne	loop			; if yes, go to next catalog entry		
check
		lda	#CompareIcon		; check if entry is in our list
		jsr	WalkOfLife3
		bcs	loop

		jsr	IsIconInTrash		; check if entry is really in our trash
		bcs	loop
		
		jsr	IsIconOnDesk		; is the icon on desktop already?
		bcs	loop

		jsr	AddWindowIcon		; no, so add missing icon
		bra	loop
		
done		ldx	#xEndCatalog
		jsl	MiscEntry

		lda	#ExtraIcon		; check for extra icons in our list
		jsr	WalkOfLife3

		clc
exit		stz	SpotHashOn
		rts

		ENDP

*===============================================*
*     Compare entry against icon list		*
*						*
* INPUT:	ic				*
* OUTPUT:	carry set if found		*
*						*
*===============================================*
*******************************************************************************************************
*
* Some notes from Jim "whoops" Murphy
* -----------------------------------
*
* Under Finder 6.0, there was (and actually still is, but it is not longer used) a mechanism to inform
* Finder that a directory had changed, and you wished it to be rebuilt and redisplayed. Fine enough,
* except the only things Finder 6.0 could notice were files being created or deleted, access privileges
* changing (both local and network), file modification data changing, or in the odd case, a new icon to
* match with a file. Unfortunately, Finder never noticed changes in a file's size, or type, or auxType,
* or quite a few other attributes. The fixes below are an attempt to make Finder notice any and all
* changes that can occur to a file with 100% accuracy. Here we go (part of my motivation is to get Andy
* McFadden to just hush up about this problem :-)...
*
*******************************************************************************************************

CompareIcon	PROC
		
		IMPORT	PStringCompare
		IMPORT	NewIconData
		IMPORT	OptionBuff
		IMPORT	IconChanged
		IMPORT	MatchImage

		pha				; space for result
		ldx	<ic+2
		lda	<ic
		clc
		adc	#icName
		bcc	push
		inx
push		phx				; pass icon's name ptr
		pha
		PushLong #ticonobj+icName	; pass entry's name ptr
		jsl	PStringCompare
		clc
		pla
		beq	@exitNotFound		; not this icon

		jsr	CheckIconForChanges

@exitFound	ldy	#icFlag+2		;mark this icon as being visited so we don't remove
		lda	[<ic],y			; it from our list when we're done
		ora	#ICVISITED>>16
		sta	[<ic],y

		sec				;we matched on this icon

@exitNotFound	rts

************************************************************************************
*
* CheckIconForChanges - 
*

		EXPORT	CheckIconForChanges
CheckIconForChanges

		stz	iconIsOutOfDate		;assume that this icon's data is current

		jsr	TestPrivs		;always test for privilege change
		bcc	@checkFileType

		inc	iconIsOutOfDate		;we'll need to update the icon later

* Now that we've located a file we know about, we'll check groups of fields with a few
* short loops to see if any of them have changed. As we check each field below, if one
* does not match the iconObj data, we'll go ahead and update everything associated with
* the file.

; Check the fileType and auxType in a single loop since they are consecutively stored
; in the iconObj.

@checkFileType

		ldy	#icFType
		lda	#icFType+6
		jsr	CheckObjChunk

; Now we'll do a large check that includes the local access, forks count, block size, file size,
; create date and modification date.
	
		ldy	#icLocalAccess
		lda	#icIcon
		jsr	CheckObjChunk
	
; Our final check will be if anything in the optionList has changed. Only check the bytes in the
; optionList that were actually returned from the GetDirEntry call.
		
		ldy	#icOptionList
		lda	OptionBuff+olBytesReturned
		clc
		adc	#icOptionList+2
		jsr	CheckObjChunk

; Now that we've done all of that, let's see if we actually need to rebuild this icon, shall we?
; If iconIsOutOfDate is non-zero, then we need to update.

		lda	iconIsOutOfDate
		beq	@exitCheckIcon

; Here we test to see if the icon we are changing has the rename field, if it
; does we should end the rename.

		lda 	<icHand+2		;compare the current icon
		cmp 	LEIcon+2		;to the icon that's being renamed
		bne 	@updateIcon

		lda 	<icHand
		cmp 	LEIcon
		bne 	@updateIcon
		
		jsr 	noRename		;if this one, dump rename field

@updateIcon	jsr	NewIconData

@exitCheckIcon	rts
		
		ENTRY	iconIsOutOfDate
iconIsOutOfDate	ds.w	1

***************************************************************************************
*
* TestPrivs - This routine tests the privileges returned in OptionBuff against those
* that your icon claims to have. If they are the same, then these attributes of the
* icon did not change.

TestPrivs

; First, be sure that this is a folder.

		ldy	#icFType
		lda	[<ic],y
		cmp	#TypeFolder		; is it a folder?
		beq	@cont

@L1		jsr 	FixLocked		; Mensch 5/30/89 if not, test locked and end

		rts
@cont
		ldy	#icFlag+2
		lda	[<ic],y
		and	#ICNETWORK>>16		; is this a network folder?
		beq	@L1

		lda	[<ic],y			; refresh the flags
		and	#$000F			; strip off AppleShare privileges
		pha				; and save this for later comparisons

; Create a new 4-bit access privileges field from the OptionBuff data.

;;;		lda	>OptionBuff+olFileSysID	;11-Feb-93 JCM - buffer is in same segment, and bank is set here
		lda	OptionBuff+olFileSysID
		cmp	#$000D			; is this AppleShare?
		bne	@ExitNoChange

;;;		lda	>OptionBuff+olPrivileges ; get the proper word
		lda	OptionBuff+olPrivileges	; get the proper word
		and	#$0087			; only bits we understand right now
		cmp	#8			; see if bit 7 is set...
		blt	@DoCompare		; if bit 7 not set, then do the compare

		ora	#$0008			; set our owner bit
		and	#$000F			; clear their owner bit
@doCompare
		cmp	1,S
		beq	@exitNoChange		; end with no change flagged

; If we did not exit, then something is different.

		sta	1,s			; save the new privileges
		lda	[<ic],y
		and	#$FFF0			; apply the new privs to the icon
		ora	1,s
		ora	#ICReadable>>16		; flag the read-enabled bit
		sta	1,s			; and resave it for a second
		and	#$0003			; can we read it?
		bne	@CanRead

		lda	#ICReadable>>16
		eor	1,s
		sta	1,s
@CanRead
		lda	1,s
		sta	[<ic],y			; resave the privileges
		pla				; discard the crap

; Now change the icon that goes with this file.

		tax
		and	#$0007
		cmp	#$0004			; is it a drop box???
		beq	@GetIcon		; if so, just get the icon

		txa
		and	#$000F
		cmp	#$0007			; test if bit 3 is set
		blt	@NotMine
		
		lda	#$0008
		bra	@GetIcon
		
@NotMine	lda	#$0000
@GetIcon


; Swap in the new icon offset.

		ldy	#icFileInfo
		sta	[<ic],y			;Save as the new Aux type
		
		jsr	FixLocked		;Mensch 5/30/89

		sec				;flag that a change was made and return

		rts

@ExitNoChange	pla


* Fixes the locked status and returns carry set or clear to indicate that
* a change has occurred.


FixLocked

		ldy	#icFlag
		lda	[<ic],y
		and	#ICLOCKED
		beq	@NotLocked

@AlreadyLocked
		ldy	#dirAccess
		lda	[<work],y
		and	#$0080
		beq	@NoChange
		
@changed
		ldy	#icFlag
		lda	[<ic],y
		eor	#ICLocked
		sta	[<ic],y

		sec

		rts
		
@noChange
		clc
		rts

@notLocked
		ldy	#dirAccess
		lda	[<work],y
		and	#$0080
		bne	@noChange

		bra	@changed
		
***************************************************************************************
*
* CheckObjChunk - This function takes two parameters; a start and end iconObj field
*		  offset. It compares all fields in the range that are referenced by
*		  [<ic] to those that are in ticonobj. If any field does not match,
*		  iconIsOutOfDate is incremented by one and the field value in [<ic]
*		  is updated to be current.
*

CheckObjChunk	pha				;end field to check

@checkThisField lda	ticonobj,y		;most current date from the dir entry
		cmp	[<ic],y			;what the icon thinks it is
		beq	@checkThisField2	;is the icon right?

		sta	[<ic],y			; nope, update this iconObj field

		inc	iconIsOutOfDate		;we'll need to update the icon later

@checkThisField2 iny
		iny
		tya
		cmp	1,s
		bcc	@checkThisField

		pla				;end of range offset
		
		rts
		
		IF	AllowSmartDesktop THEN
				
***************************************************************************************
*
* UpdateDesktopIcons - 
*
* C1_VolName = name of disk the check icons from
*
*

		IMPORT	WalkOfLife
		IMPORT	PathToPStr
		IMPORT	justRootName
		IMPORT	getExtName
		IMPORT	WStrCompare

		EXPORT	UpdateDesktopIcons
UpdateDesktopIcons

		PushZLong <curWind

		lda	<deskport		; check desktop ICONOBJ list
		sta	<curWind
		lda	<deskport+2
		sta	<curWind+2		
	
		jsr	toDesktop		; switch to desktop 
		jsr	toDeskPort		; switch to desktop port

		PushLong #C1_VolName
		PushLong #C1_Temppath		;diskname to match against
		jsl	WStringCopy

		lda	#MatchDesktopIcon
		jsr	WalkOfLife

		pla
		sta	<curWind
		pla
		sta	<curWind+2

		rts
		
* Called by walkIcons

MatchDesktopIcon

		brk	$00

		ldy	#icFlag			;we don't want disk icons, just files and folders
		lda	[<ic],y			; that were dragged to the desktop
		and	#ICEXTENDED
		beq	@exitNoMatch

		jsr	getExtName		;C1_PathName = <ic.icOwner field
		bcs	@exitNoMatch
		
		jsr	justRootName		;C1_Pathname = pathname's root only

		pha
		PushLong #C1_Pathname
		PushLong #C1_TempPath
		jsl	WStrCompare
		pla
		beq	@exitNoMatch

;;;		jsr	CheckIconForChanges

@exitNoMatch	clc				;do all of the icons on the desktop

		rts

		ENDIF

		ENDP

*===============================================*
*     Check if icon is in trash			*
*===============================================*

IsIconInTrash	PROC

		IMPORT	PStringCompare
		IMPORT	WalkOfLife

		pei	<wind+2			; preserve current window
		pei	<wind
		pei	<windBlk+2
		pei	<windBlk
		pei	<curWind+2
		pei	<curWind

		lda	<TrashWind		; set to trash window
		sta	<curWind
		lda	<TrashWind+2
		sta	<curWind+2

check		lda	#TestIcon		; check if entry is in our trash list
		jsr	WalkOfLife		; carry set if entry is in trash

		pla
		sta	<curWind
		pla
		sta	<curWind+2
		pla
		sta	<windBlk
		pla
		sta	<windBlk+2
		pla				; restore window
		sta	<wind
		pla
		sta	<wind+2
		rts				; carry flag returned

;-----------------------------------------------
TestIcon	pha				; space for result
		ldx	<ic+2
		lda	<ic
		clc
		adc	#icName
		bcc	push
		inx
push		phx				; pass icon's name ptr
		pha
		PushLong #ticonobj+icName	; pass entry's name ptr
		jsl	PStringCompare
		pla
		cmp	#1			; carry set if name matches		
		rts

		ENDP
		
; start JAM 06/11/89 (Fixing BRC #50497)		
*===============================================*
*     Check if icon is on desktop		*
*===============================================*
IsIconOnDesk	PROC EXPORT			; Call with JSR or equiv.
		IMPORT CkOnDesk			; Must be in same code bank as us.

; On Entry, we expect C1_Pathname to hold the name of the current window
;  <work holds directory entry for the name to check
; On exit, CARRY CLEAR if icon of the given name is NOT ON DESKTOP.
;   CARRY SET if an icon belonging to the given file IS ON DESKTOP.
; Preserves longword values of DP locations temp, DeskIC, Ic, IcHand, and Work.

		pushZLong <temp
		pushZLong <DeskIc
		pushZLong <Ic
		pushZLong <IcHand
		pushZLong <Work

		clc		
		lda	#DirName
		adc	<work
		sta	<work
		lda	<work+2
		adc	<zero
		sta	<work+2
		jsr	CkOnDesk		;returns opposite carry
		bcc	@isOnDesktop

		clc

		bra	ReturnHome

@isOnDesktop	sec				;signal file is on the desktop

ReturnHome
		pla
		sta	<Work
		pla
		sta	<Work+2
		pla
		sta	<IcHand
		pla
		sta	<IcHand+2
		pla
		sta	<Ic
		pla
		sta	<Ic+2
		pla
		sta	<DeskIc
		pla
		sta	<DeskIc+2
		pla
		sta	<temp
		pla
		sta	<temp+2
		rts

		ENDP
; end   JAM 06/11/89 (Fixing BRC #50497)		

		
*===============================================*
*     Check if icon was visited			*
*						*
* INPUT:	ic				*
* OUTPUT:	carry clear			*
*						*
*===============================================*

ExtraIcon	PROC
		
		IMPORT	DelWindowIcon

		ldy	#icFlag+2		; check if visited
		lda	[<ic],y
		and	#ICVISITED>>16
		beq	remove			; no, so remove it
		lda	[<ic],y
		and	#Å(ICVISITED)>>16	; clear visited bit
		sta	[<ic],y
		bra	exit

remove		jsr	DelWindowIcon		

exit		clc
		rts

		ENDP
		
*===============================================*
*    Update an Icon's data			*
*						*
* INPUT:	none				*
* OUTPUT:	carry set if found		*
*						*
*===============================================*
NewIconData	PROC

;
; Mensch 5/21/89 (Fixing BRC #49175)
; This routine was totally empty before, so this is its first edition.
;
		IMPORT	MatchFileToIcon
		IMPORT	IconChanged
		IMPORT	addIconRgn
		IMPORT	StartDraw2
		IMPORT	EndDraw
		IMPORT	getIconRect
		IMPORT	PushiRect1
		IMPORT	PushIRect2
		IMPORT	MatchImage
		IMPORT	FiFiFiSearch		;17-Mar-93 JCM
	
;	
; Since the icon changed, redraw it.  First, set up the drawing environment.
;
		jsr	lockic
		lda	<wind
		ldx	<wind+2
		jsr	startDraw2		; switch to proper port and origin
		jsr	AddIconRgn		; add the icon's region to update region

;
; now erase the old icon
;
		jsr	GetIconRect
		jsr	pushirect1
		_EraseRect

		lda	<iRect2+2		; now change this stupid rect
		sbc	#8
		sta	<irect2+2
		lda	<irect2+6
		adc	#8
		sta	<irect2+6
		jsr	pushirect2
		_EraseRect
		
		jsr	pushirect1
		_InvalRect
		jsr	pushirect2
		_InvalRect

;
; swap in the new icon offset
;

		tsc
		sec
		sbc	#20			;put 5 longs on the stack
		tcs
		pea	$8000			;don't care about voting, match all
		pea	1			;match the first one
		ldy	#icFType
		lda	[<ic],y			; get the file type
		pha
		pei	<zero
		ldy	#icFileInfo
		lda	[<ic],y			; get the Aux Type
		pha

*** Added - 17-Mar-93 JCM - Get a pointer to this icon's kind string. We'll check below
***			    to see if we've got a bundle that better describes it.

		ldy	<zero
		tax				;auxType
		lda	5,s			;fileType
		jsl	FiFiFiSearch
		sta	ticonobj+icKind
		stx	ticonobj+icKind+2

*** End - 17-Mar-93 JCM

		lda	#icName			;ptr to the name
		clc
		adc	<ic
		tax
		lda	<ic+2
		adc	<zero
		pha
		phx
		
		lda	#icCDate		;ptr to the create date
		clc
		adc	<ic
		tax
		lda	<ic+2
		adc	<zero
		pha
		phx
		
		lda	#IcMDate		;ptr to the mod date
		clc
		adc	<ic
		tax
		lda	<ic+2
		adc	<zero
		pha
		phx
		
		ldy	#IcLocalAccess		;local access value
		lda	[<ic],y
		pha
				
		ldy	#icForked		;extended or not
		lda	[<ic],y
		pha
		
		lda	#IcOptionList		;ptr to the option list
		clc
		adc	<ic
		tax
		lda	<ic+2
		adc	<zero
		pha
		phx
		
		ldy	#icFBytes+2		;file's size in bytes
		lda	[<ic],y
		pha
		dey
		dey
		lda	[<ic],y
		pha

		jsl	matchFileToIcon
		pla
		ldy	#IcOneDocOffset		;update the onedoc pointer
		sta	[<ic],y
		sta	<ptr
		iny
		iny
		pla
		sta	[<ic],y
		sta	<ptr+2

		pla
		ldy	#IcRBundle		;update the rBundle handle
		sta	[<ic],y
		sta	<handle
		iny
		iny
		pla
		sta	[<ic],y
		sta	<handle+2
		
		pla				;update the small icon handle
		ldy	#IcSmallIcon
		sta	[<ic],y
		iny
		iny
		pla
		sta	[<ic],y
		
		pla				;update the large icon handle
		ldy	#IcIcon
		sta	[<ic],y
		iny
		iny
		pla
		sta	[<ic],y

		pla
		pla				;rFinderPath goes into hyperspace...

*** Added - 17-Mar-93 JCM - If there's a OneDoc for this icon and it has a kind string,
***			    use it instead of the one FiFiFi may have found.

* Find out if the NumResults field of this particular OneDoc includes a kind string.

		lda	<handle+1		;is there a bundle?
		beq	@useFiFiFiKindPtr	; nope, use FiFiFi's

		lda	[<handle]
		clc
		adc	<ptr			;oneDocOffset
		sta	<ptr
		ldy	#2
		lda	[<handle],y
		adc	<ptr+2			;oneDocOffset+2
		sta	<ptr+2
		
		ldy	#4			;check numResults
		lda	[<ptr],y
		cmp	#5
		blt	@useFiFiFiKindPtr
		
		stz	ticonobj+icKind		;use the OneDoc kind string
		stz	ticonobj+icKind+2
		
@useFiFiFiKindPtr

		ldy	#icKind
		lda	ticonobj+icKind
		sta	[<ic],y
		iny
		iny
		lda	ticonobj+icKind+2
		sta	[<ic],y

*** End - 17-Mar-93 JCM

;
; and redraw the icon
;
		jsr	drawIcon2		; draw the icon in its new window
		jsr	enddraw			; set window's origin back to 0,0
		lda	#1
		sta	>IconChanged
		rts
		ENDP
		
*===============================================*
*     Add an Icon to a window			*
*						*
* INPUT:	none				*
* OUTPUT:	none				*
*						*
*===============================================*

DelWindowIcon	PROC

		IMPORT	killKids2
		IMPORT	wipeIcon
		
; 6/6/89 Mensch brc#50297
; test to see if the icon we are throwing away is the same as the icon being renamed
; if it is be sure to dump the rename field
		lda <icHand+2			; test current icon
		cmp LEIcon+2			; against the renamed one
		bne @NotThisOne
		lda <ICHand
		cmp LEIcon
		bne @NotThisOne
		jsr noRename			; if they the same, dump it daddy
@NotThisOne
; end brc #50297 fix #4
		
		ldy	#icFType		; is this a folder?
		lda	[<ic],y
		cmp	#TypeFolder
		bne	cont			; bra if not a folder

;--- Delete all windows and extended icons that came from folder

		jsr	killKids2

;--- Cut icon out of icon list add to redraw region

cont		jsr	wipeIcon

		clc
		rts

		ENDP
		
*===============================================*
*     Add an Icon to a window			*
*						*
* INPUT:	none				*
* OUTPUT:	none				*
*						*
*===============================================*

AddWindowIcon	PROC

		IMPORT	AccessPriv
		IMPORT	C1_BootName
		IMPORT	PStringCompare
		IMPORT	WStrCompare
		IMPORT	strSystem
		IMPORT	OptionBuff		
		IMPORT	ce_access
		IMPORT	ce_flags
		IMPORT	addIconObj
		IMPORT	startDraw2
		IMPORT	lockic
		IMPORT	drawIcon2
		IMPORT	endDraw
		IMPORT	redrawText
		IMPORT	GetTopLeft
		IMPORT	PathAddName
		IMPORT	PathAddName
		IMPORT	PToWString
		IMPORT	startHash
		IMPORT	windSpot
		IMPORT	posFlag
		IMPORT	FolderColor
		import	ce_prodos_entry
		import	ce_create_date
		import	ce_mod_date
		import	ce_aux_type
		import	ce_file_type
		import	ce_access
		import	CopyDirEntryToIconTemplate

		pushZlong <work			; save <work prior to calling WindSpot
		stz	posFlag			; don't use position buffer
		jsr	WindSpot		; this will occasionally clobber <work ptr
		pulllong <work			; Get <work back

		stz	<devNumber		; files/folders don't have device #

		lda	ce_file_type		; pass filetype to addIconObj
		sta	<filetype

		lda	ce_aux_type
		sta	auxtype			; also used for icFileInfo

		jsr	CopyDirEntryToIconTemplate ;18-Feb-93 JCM - copy common stuff
		
		ldx	#ICBACKCLR
		lda	ce_access
		and	#$0080			; check destroy enable bit
		bne	store2
		ldx	#ICLOCKED+ICBACKCLR
store2		stx	ticonobj+icFlag

		lda	ce_access
		and	#$0001			; check read enabled bit
		beq	set1			; not set !
		lda	#ICREADABLE>>16		; set our bit
set1		ora	NetworkBit		; add in network status
		sta	ticonobj+icFlag+2

		stz	ticonobj+icWind		; icon has no open window
		stz	ticonobj+icWind+2
		
		lda	OptionBuff+4
		cmp	#$0d
		bne	@notNetwork
		lda	<filetype
		cmp	#$0f
		beq	@isNetwork
		cmp	#typeServer
		bne	@notNetwork
		
@isNetwork	lda	OptionBuff+$2A
		sta	ticonobj+icNetworkAccess
		lda	OptionBuff+$2C
		sta	ticonobj+icNetworkAccess+2

		lda	OptionBuff+$2A		;munge the owner bit of the user summary byte into
		and	#$0080			;our icon flag stuff
		lsr	a
		lsr	a
		lsr	a
		lsr	a
		tsb	ticonobj+icFlag+2

		lda	OptionBuff+$2A
		and	#$000F			; is user icon's owner (on network)
		tsb	ticonobj+icFlag+2			

		lda	ticonobj+icFlag+2
		and	#icNetAccess>>16
		sta	AccessPriv

		bra	@wasNetwork
		
@notNetwork	stz	ticonobj+icNetworkAccess
		stz	ticonobj+icNetworkAccess+2
@wasNetwork

;
; done looking through the access stuff, so see if this is the special 'System'
; folder (which gets the apple in the folder icon)
;
		lda	<filetype
		cmp	#$0F
		bne	@notSystem

		lda	ticonobj+icFlag
		and	#$00FF
		ora	FolderColor
		sta	ticonobj+icFlag
		
		stz	auxtype
		
		pha
		pushZLong <work
		pushlong #strSystem
		jsl	PStringCompare
		pla
		beq	@notSystem
		
		pha				;space for result
		PushLong #C1_Pathname
		PushLong #C1_BootName
		jsl	WStrCompare		;is this the boot disk ?
		pla
		beq	@notSYSTEM		;no
		
		lda	#$0002			;yes, so mark system folder
		sta	auxtype
@notSystem	

;
; done with the system folder stuff, so just search for matches in the icon matching
; stuff
;
		lda	<work			;pass pointer to icon's name
		ldx	<work+2
		ldy	<zero			;add icon to the head of the list
		jsr	addIconObj		;create and add the icon to the window
		bcs	exit			;oh, and how we are hosed

		jsr	lockic

		ldy	#windDiskIc		;move our root icon in here
		lda	[<windBlk],y
		ldy	#icDisk
		sta	[<ic],y		
		ldy	#windDiskIc+2
		lda	[<windBlk],y
		ldy	#icDisk+2
		sta	[<ic],y

		lda	<wind
		ldx	<wind+2
		jsr	startDraw2		;switch to proper port and origin
		jsr	drawIcon2		;draw the icon in its new window
		jsr	endDraw			;set window's origin back to 0,0

		ldy	#icFlag+2		;mark this icon as being visited
		lda	[<ic],y			; so we don't remove it when we're done
		ora	#ICVISITED>>16		; walking the directory
		sta	[<ic],y
		jsr	unlockic

exit		clc
		rts
		
		ENDP

*** Added - 18-Feb-93 JCM - This code is just collected from AddWindowIcon into a separate
***			    subroutine so others can call it as well.

*********************************************************************************
*
* CopyDirEntryToIconTemplate - This copies most of the interesting fields from the
*			       directory entry buffer to our new icon template.
*


CopyDirEntryToIconTemplate PROC
		
		IMPORT	OptionBuff		
		IMPORT	ce_access
		IMPORT	ce_flags
		import	ce_prodos_entry
		import	ce_create_date
		import	ce_mod_date
		import	ce_aux_type
		import	ce_file_type
		import	ce_access

		ldx	#6
date1		lda	ce_mod_date,x
		sta	ticonobj+icMDate,x

		lda	ce_create_date,x
		sta	ticonobj+icCDate,x
		dex
		dex
		bpl	date1

		lda	ce_prodos_entry+DirSize	; get size in blocks
		sta	ticonobj+icFBlocks
		lda	ce_prodos_entry+DirSize+2
		sta	ticonobj+icFBlocks+2
		
* %%% It appears that Finder doesn't track resource blocks and resource lengths??

		lda	ce_prodos_entry+DirEOF	; get size in bytes
		sta	ticonobj+icFBytes
		lda	ce_prodos_entry+DirEOF+2
		sta	ticonobj+icFBytes+2

		lda	ce_access
		sta	ticonobj+icLocalAccess
		lda	ce_flags
		sta	ticonobj+icForked
		
		lda	OptionBuff+2
		tay
@loop		lda	OptionBuff+2,y
		sta	ticonobj+icOptionList,y
		dey
		dey
		bpl	@loop

		rts
		
		ENDP

*** End - 18-Feb-93 JCM

;
; DisposeHandleGlue -- 9-Jun-92 DAL to save bytes
;
DisposeHandleGlue proc export
		ldx #$1002
		jsl $e10004	;glue vector
		rtl

		EndP
		
*===============================================*
		END

\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Finder/Misc.aii b/IIGS.601.SRC/A.U.G/Finder/Misc.aii
new file mode 100644
index 0000000..9e3c507
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Finder/Misc.aii
@@ -0,0 +1 @@
+********************************************************
		TITLE	'Apple IIGS Finder   MISC.aii'
*						       *
*		    Apple //GS Finder		       *
*		      Misc Routines		       *
*						       *
*	Copyright Apple	Computer, Inc. 1986-1992       *
*		   All Rights Reserved		       *
*						       *
*		  Written by Dan Oliver		       *
*		     and Cheryl	Ewy		       *
*						       *
* ===> converted to MAX 04/21/88 - DJB		       *
*						       *
*						       *
********************************************************
* Modification History for version 1.2:
* -------------------------------------
* 05/17/88 DJB	- Changed "startCat" routine for hack
*		- Changed "nextCat" routine for hack
*		- Changed "readDir" routine for hack
* 05/27/88 DJB  - added code to convert dates back to old format!
* 08/06/88 DJB	- added SaveDevStats() call to ProDOSerr routine.
********************************************************
*
* 6.0 work mostly by Andy Nicholas, late 1990 to early 1992
*
********************************************************
*
* 6.0.1 work mostly by Dave Lyons, 1992.
*
*   Most changes marked with "DAL"
*
********************************************************

;
;
; Files	needed:
;
;	   Misc.aii
;	   MiscDIALOG.aii
;
		PRINT	OFF
		
		PRINT	NOGEN
		PRINT	NOSYM
		PRINT	NOPAGE
		PAGESIZE $FFFF,126
		MACHINE	M65816
		LONGA	ON
		LONGI	ON
		BLANKS	OFF
		INCLUDE	'ALL.MACROS'
		INCLUDE	'special.macros'
		INCLUDE	'Finder.equ'
		INCLUDE	'Resource.equ'
		
		PRINT	ON

;---------------------------------------------------------------
;
; Zero Page One	Equates (used by DIB routines and Catalog routines)
;
;---------------------------------------------------------------
MyID		equ	0			;ID number to allocate memory.
DIBindex	equ	MyID+2			;Index to current DIB.
SlotAddr	equ	DIBindex+2		;Pointer to slots.
driveNum	equ	SlotAddr+4
devID		equ	driveNum+2		;Device ID.
input		equ	devID+2
dosBuffer	equ	input+4			;Handle of 512 byte DOS buffer.
dirBuffer	equ	dosBuffer+4		;Pointer to 512 byte DOS buffer.
blockCnt	equ	dirBuffer+4		;Block file counter.
e_length	equ	blockCnt+2		;Length of a directory entry.
e_blockLen	equ	e_length+2		;Number of entries per directory block.
e_numFiles	equ	e_blockLen+2		;Number of files in this directory.
ePtr		equ	e_numFiles+2		;Index to current directory entry.
ErrNamePtr	equ	ePtr+4
entries		equ	ErrNamePtr+4
work		equ	entries+2		;$80-$FF used.

;---------------------------------------------------------------
;
; Zero Page Two	Equates (used by Dialog	routines and IconDraw routines)
;
;---------------------------------------------------------------
diaWind		equ	0			;Pointer to dialog window.
DefaultBtn	equ	diaWind+4		;Handle of default simple button.
LEfield		equ	DefaultBtn+4		;Handle of Line Edit record.
foundCtl	equ	LEfield+4		;Handle of control to track.
desPtr		equ	foundCtl+4		;Pointer of where to store line edit text.
TaskRec		equ	desPtr+4
what		equ	TaskRec
message		equ	what+2
when		equ	message+4
yrat		equ	when+4			;General y coordinate holder.
xrat		equ	yrat+2			;General x coordinate holder.
modifiers	equ	xrat+2
TaskData	equ	modifiers+2
TaskMask	equ	TaskData+4
template	equ	TaskMask+4
String1Ptr	equ	template+2
String2Ptr	equ	String1Ptr+4
Number		equ	String2Ptr+4		;changed to long, 06/21/88 DJB
NumItems	equ	Number+4
StringPtr	equ	NumItems+2
Just		equ	StringPtr+4
TextLen		equ	Just+2
BtnHeight	equ	TextLen+2
BtnWidth	equ	BtnHeight+2
BtnSpace	equ	BtnWidth+2
BtnFlag		equ	BtnSpace+2
BtnValue	equ	BtnFlag+2
BtnDefProc	equ	BtnValue+2
RadioIn		equ	BtnDefProc+4
RadioOut	equ	RadioIn+4
DiaSize		equ	RadioOut+4
CntlFlag	equ	DiaSize+4
CtlRect		equ	CntlFlag+2
ItemID		equ	CtlRect+8
CancelBtn	equ	ItemID+2		;Handle of cancel simple button.
BtnID		equ	CancelBtn+4		;ID of button control
Temp		equ	BtnID+2
ModeLess	equ	Temp+8			;added 05/10/88 DJB


;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

		import DisposeHandleGlue

		IMPORT	EndCall
		IMPORT	ErrOut
		IMPORT	Strip
		IMPORT	PathGetName

;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

		ENTRY	GetEntry
		ENTRY	GetNumEntries
		ENTRY	MiscStartup
		ENTRY	StdEnd
		ENTRY	StartCatalog
		ENTRY	NextCatalog
		ENTRY	EndCatalog
		ENTRY	Catalog

****************************************************************
*
* MISC ROUTINES	- CALL TABLE
*
****************************************************************

MiscRoutines	PROC

		DC.L	MiscStartup
		DC.L	0			;was  DiskScan 05/17/88 DJB
		DC.L	0			;was  MakeDIBs 05/17/88 DJB
		DC.L	0
		DC.L	Catalog
		DC.L	StartCatalog
		DC.L	NextCatalog
		DC.L	EndCatalog
		DC.L	0
		DC.L	0
		DC.L	0
		DC.L	0
		DC.L	0

		ENDP


****************************************************************
*
* MISC ROUTINES	- DATA DECLARATIONS
*
****************************************************************

MRData		PROC

*---------------------------------------------------------------
* Constants
*---------------------------------------------------------------


*---------------------------------------------------------------
* Data
*---------------------------------------------------------------

		ENTRY	ZeroPage
ZeroPage	DS.B	2			;Address of first zero page
		ENTRY	Error_Code
Error_Code	DS.B	2

		ENDP



****************************************************************
*
* MiscEntry
*
****************************************************************

MiscEntry	PROCNAME EXPORT


;X contains the	number of the routine to execute

		dex				;decrement routine #
		txa				;create	index into table of addresses
		asl	a
		asl	a
		tax
		lda	>MiscRoutines,x		;get address of	routine
		sta	>Adrs+1			;and store after the JSL
		lda	>MiscRoutines+1,x
		sta	>Adrs+2
		lda	>ZeroPage		;load A	with zero page assigned	to us
Adrs		jsl	Adrs			;execute the routine
		rtl				;return	to calling routine


		ENDP


****************************************************************
*
* MiscStartUp
*
****************************************************************

MiscStartup	PROC


directPage	equ	9
IDnum		equ	directPage+2

		phd
		lda	directPage,s		;Get direct page to use,
		sta	>ZeroPage		;and save
		tcd

		ldx	#$FE			;Clear 1  direct page
lop1		stz	<$00,x
		dex
		dex
		bpl	lop1

		lda	IDnum,s			;Get ID to use for memory allocation.
		sta	<MyID
		ldy	#4
		jml	EndCall

		ENDP



****************************************************************
*
* StdEnd0
*
****************************************************************

StdEnd0		PROC

		ldy	#0
		bra	StdEnd
		
		ENDP

****************************************************************
*
* StdEnd4
*
****************************************************************

StdEnd4		PROC

		ldy	#4
		bra	StdEnd
		
		ENDP

****************************************************************
*
* StdEnd6
*
****************************************************************

StdEnd6		PROC

		ldy	#6
		bra	StdEnd
		
		ENDP

****************************************************************
*
* StdEnd
*
****************************************************************

StdEnd		PROC


		plb				;restore data bank
		lda	>error_code		;Get error code.
		tax
		beq	NoErr
		lda	#0			;Reset error code to no error
		sta	>error_code		;for next time.
		jml	ErrOut			;error end call

NoErr		jml	EndCall			;standard end call

		ENDP


****************************************************************
*
* Setup	 (called by Catalog routines)
*
****************************************************************

Setup		PROC


		plx

		phd
		tcd

		phb
		phk
		plb

		lda	10,s			;Put the last input parameter
		sta	<input			;into a direct page variable.
		lda	12,s
		sta	<input+2

		phx
		rts
		
		ENDP
		

;===============================================================
;
;			Catalog	Routines
;
;	   Copyright Apple Computer, Inc. 1986-1987
;		      All rights reserved
;
;		 By Dan	Oliver and Cheryl Ewy
;
; ===> converted to MAX 04/21/88 - DJB
;
;===============================================================



; --- Directory block offsets ------------------------------------
;EntryLen	equ	$23			;Length of each entry.
;PerBlock	equ	EntryLen+1		;Number of entries per block.
;NumFiles	equ	PerBlock+1		;Total number of file in directory.
;EntryPtr	equ	NumFiles+6		;Pointer to first entry.

;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

		ENTRY	BuildPath
		ENTRY	DoClose
		ENTRY	GetFileInfo
		ENTRY	DoOpen
		ENTRY	ProDosErr
		ENTRY	addFilename
		ENTRY	addName
		ENTRY	allocate
		ENTRY	allocate2
		ENTRY	endCat
		ENTRY	nextCat
		ENTRY	readDir
		ENTRY	startCat

****************************************************************
*
* CATALOG ROUTINES - DATA DECLARATIONS
*
****************************************************************

CatData		PROC


; --- Open file	parameter list -------------

		ENTRY	open_list
open_list	DC.W	3			;pcount
		ENTRY	open_num
open_num	DC.W	0			;Returned reference number.
		ENTRY	open_name
open_name	DC.L	0			;Pointer of file's pathname.
		DC.W	1			;request access (read only)


; --- Close file parameter list -------------

		ENTRY	close_list
close_list	DC.W	1			;pcount
		ENTRY	close_num
close_num	DC.W	0			;reference number


; --- Get File Info parameter list ----------

		ENTRY	info_list
info_list	DC.W	12			;pcount
		ENTRY	info_path
info_path	DC.L	0			;pathname
		ENTRY	info_access
info_access	DC.W	0			;access attribute
		ENTRY	info_type
info_type	DC.W	0			;file_type
		ENTRY	info_aux
info_aux	DC.L	0			;aux_type
		ENTRY	info_storage
info_storage	DC.W	0			;storage_type
		ENTRY	info_createDate
info_createdate	ds.b	8
		ENTRY	info_modDate
info_modDate	ds.b	8
		ENTRY	info_OptionList
info_OptionList	dc.L	OptionBuff
		ENTRY	info_EOF
info_EOF	dc.L	0
		ENTRY	info_BlocksUsed
info_BlocksUsed	dc.L	0
		ENTRY	info_resourceEOF
info_resourceEOF dc.L	0
		ENTRY	info_resourceBlocks
info_resourceBlocks dc.L 0

;------ Added for hack, 05/17/88 DJB ----------------

		ENTRY	ce_open_list
ce_open_list	DC.W	3
		ENTRY	ce_open_num
ce_open_num	DC.W	0
		ENTRY	ce_path_name
ce_path_name	DC.L	0
		DC.W	1			;request access (read only)


		ENTRY	ce_close_list
ce_close_list	DC.W	1
		ENTRY	ce_close_num
ce_close_num	DC.W	0


		ENTRY	ce_get_dir_list
ce_get_dir_list	DC.W	17			;pcount
		ENTRY	ce_get_dir_num
ce_get_dir_num	DC.W	0			;reference number
		ENTRY	ce_flags
		EXPORT	ce_flags
ce_flags	DC.W	0			;flags
		ENTRY	ce_base
ce_base		DC.W	1			;base = forward relative
		ENTRY	ce_disp
ce_disp		DC.W	1			;displacement = one entry at a time
		DC.L	ce_name_buffer
		EXPORT	ce_entry_num
		ENTRY	ce_entry_num
ce_entry_num	DC.W	0			;entry number
		
		EXPORT	ce_file_type
		ENTRY	ce_file_type
ce_file_type	DC.W	0
		EXPORT	ce_eof
		ENTRY	ce_eof
ce_eof		DC.L	0
		EXPORT	ce_blks_used
		ENTRY	ce_blks_used
ce_blks_used	DC.L	0
		EXPORT	ce_create_date
		ENTRY	ce_create_date
ce_create_date  DC.L	0,0			;2 longs
		EXPORT	ce_mod_date
		ENTRY	ce_mod_date
ce_mod_date	DC.L	0,0			;2 longs
		EXPORT	ce_access
		ENTRY	ce_access
ce_access	DC.W	0
		EXPORT	ce_aux_type
		ENTRY	ce_aux_type
ce_aux_type	DC.L	0
		DC.W	0
		DC.L	optionBuff
		EXPORT	ce_rsrc_eof
		ENTRY	ce_rsrc_eof
ce_rsrc_eof	DC.L	0
		EXPORT	ce_rsrc_blks
		ENTRY	ce_rsrc_blks
ce_rsrc_blks	DC.L	0

		ENTRY	optionBuff
		EXPORT	optionBuff
optionBuff	DC.W	64
		ds.B	2
		ENTRY	OptionBuffFST
		EXPORT	OptionBuffFST
OptionBuffFST	ds.b	2
		DS.B	58


		ENTRY	ce_name_buffer
ce_name_buffer	DC.W	32+4			;buffer size
		EXPORT	ce_name_len
		ENTRY	ce_name_len
ce_name_len	DC.W	0
		EXPORT	ce_name
		ENTRY	ce_name
ce_name		DS.B	32			;buffer for the name

		EXPORT	ce_prodos_entry
		ENTRY	ce_prodos_entry
ce_prodos_entry	DS.B	DirEntrySize+4		;standard prodos entry
		ENDP

;======================================
;	   Start catalog.
;======================================
;
;   IN:	   PUSH:LONG - pointer to directory pathname.
;
;======================================

StartCatalog	PROC


		jsr	setup

		lda	<input
		ldx	<input+2
		jsr	startCat

		jmp	StdEnd4
		
		ENDP

;===========================================
;	   Get next catalog entry.
;===========================================
;
;   IN:	   PUSH:LONG - space for result.
;
;  OUT:	   LONG	- pointer to directory entry (storage type nibble cleared).
;
;	   Error codes:
;		 DOS read error, EndCatalog called.
;		 $0061 - no more entries, EndCatalog called.
;
;===========================================

NextCatalog	PROC

result		equ	10

		jsr	setup

		jsr	nextCat
		sta	result,s
		txa
		sta	result+2,s

		jmp	StdEnd0
		
		ENDP


;======================================
;	   End catalog.
;======================================
;
;   IN:	   None.
;  OUT:	   None.
;
;======================================

EndCatalog	PROC

		jsr	setup

		jsr	endCat

		jmp	StdEnd0
		
		ENDP


;======================================
;	   Start catalog routine.
;======================================
;
;   IN:	   a = low address of pathname.
;	   x = high address of pathname.
;
;======================================

startCat	PROC

		sta	ce_path_name
		stx	ce_path_name+2
		jsl	ProDOS			;do a prodos open call
		DC.W	OPEN+C1
		DC.L	ce_open_list
		bcs	ce_error_out
		lda	ce_open_num
		sta	ce_get_dir_num
		sta	ce_close_num

		stz	ce_disp			;we want an entry count
		stz	ce_base
		
		jsl	ProDOS			;do a get dir entry call
		DC.W	GET_DIR_ENTRY+C1
		DC.L	ce_get_dir_list		;get the number of entries

		ldx	#$0001			;setup for catalog
		stx	ce_base
		stx	ce_disp
		bcc	ce_noerror
		
		pha		
		jsl	ProDOS
		DC.W	CLOSE+C1
		DC.L	ce_close_list
		stz	ce_close_num
		pla

ce_error_out	sta	error_code
		sec
		rts
		
ce_noerror	lda	#0				
		clc
		rts				;return carry flag



; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= =
;	   Get next directory entry.
;
; changed for hack, 05/17/88 DJB
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= =

		ENTRY	nextCat
nextCat      


; --- Check if no more directory entries ----------------------------------

		jsl	ProDOS
		DC.W	GET_DIR_ENTRY+C1
		DC.L	ce_get_dir_list
		bcc	tran
		cmp	#$4F			; ignore BufferTooSmall errors
		bne	ce_close_dir
tran		jsr	ce_translate
		ldx	#^ce_prodos_entry
		lda	#ce_prodos_entry
		clc
		rts

ce_close_dir	sta	error_code

		jsl	ProDOS
		DC.W	CLOSE+C1
		DC.L	ce_close_list
		
		stz	ce_close_num
		sec
		rts

		ENTRY	ce_translate
ce_translate
		ldy	#$27
		lda	#$0000
ce_clear_loop
		sta	ce_prodos_entry,y
		dey
		bpl	ce_clear_loop

		ldy	ce_name_len		;get the length of the name
		sty	ce_prodos_entry
ce_move_loop
		lda	ce_name-1,y
		sta	ce_prodos_entry,y	;save the name (class 0)
		dey
		bne	ce_move_loop

		lda	ce_file_type
		sta	ce_prodos_entry+DirFType
		lda	ce_blks_used
		sta	ce_prodos_entry+DirSize
		lda	ce_blks_used+2
		sta	ce_prodos_entry+DirSize+2
		lda	ce_eof
		sta	ce_prodos_entry+DirEOF
		lda	ce_eof+2
 		sta	ce_prodos_entry+DirEOF+2
		lda	ce_access
		sta	ce_prodos_entry+DirAccess
		lda	ce_aux_type
		sta	ce_prodos_entry+DirAuxType

		lda	ce_flags			; was it extended ?
		bpl	dateStuff			; no
		clc
		lda	ce_prodos_entry+DirSize
		adc	ce_rsrc_blks
		sta	ce_prodos_entry+DirSize	
		lda	ce_prodos_entry+DirSize+2
		adc	ce_rsrc_blks+2
		sta	ce_prodos_entry+DirSize+2
		clc
		lda	ce_prodos_entry+DirEOF
		adc	ce_rsrc_eof
		sta	ce_prodos_entry+DirEOF
 		lda	ce_prodos_entry+DirEOF+2
		adc	ce_rsrc_eof+2
 		sta	ce_prodos_entry+DirEOF+2

dateStuff
		ldy	#6
ce_date		lda	ce_create_date,y		;get create date
 		sta	ce_prodos_entry+DirCDate,y
		lda	ce_mod_date,y			;get mod date
 		sta	ce_prodos_entry+DirModDate,y
		dey
		dey
		bpl	ce_date

		rts


; = = =	= = = =	= = = =	= = = =	=
;	   End catalog.
; = = =	= = = =	= = = =	= = = =	=

		ENTRY	EndCat
EndCat       
		stz	<dosBuffer+1		;Set 'not cataloging' flag.
		
		lda	ce_close_num
		beq	@done
		
		jsl	ProDOS
		DC.W	CLOSE+C1
		DC.L	ce_close_list
		stz	ce_close_num
		
@done		rts

		ENDP

;======================================================================================
;	   Catalog
;======================================================================================
;
;   IN:	   LONG - space for result
;	   LONG - space for result
;	   WORD - space for result
;	   WORD - space for result
;	   WORD - space for result
;	   LONG - pointer to address to call for callback routine
;	   LONG - pointer to pathname (class 1), no separator at end
;		    <= SP
;
;  OUT:	   LONG	- handle to catalog buffer, zero is error
;	   WORD	- total	number of files	in catalog
;	   WORD	- number of locked files in catalog
;	   LONG - total number of bytes used by all files in catalog excluding folders
;	   WORD - file system of catalog
;	       <= SP
;
; This routine creates the complete catalog of a disk, subdirectory or file.
; The catalog buffer is	an array of entry structures.  There are 4 types of
; entries as shown below -
;
; File Entry
;   WORD - $0000
;   WORD - Flag	- 0 if file is not locked, non-zero if file is locked
;   STRG - Filename, length byte first,	no separators
;
; Subdirectory Entry
;   WORD - Offset to first entry for subdirectory's contents
;   WORD - Flag	- 0 if subdir is not locked, non-zero if subdir	is locked
;   STRG - SubDirName, length byte first, no separators
;
; EndSubDirectory Entry
;   WORD - $FFFF
;   WORD - Offset to subdirectory's entry
;
; EndCatalog Entry
;   WORD - $FFFF
;   WORD - $FFFF
;
; In addition, the Flag	word for the first catalog entry will contain the total
; number of files in the catalog if the	calling	routine	requests it.
;
;	   For example,	the directory that looks like:
;
;	   ROOT				main directory
;	     FRUIT			  subdirectory
;	       APPLES			    subdirectory
;		 CORTLAND		      file
;		 MACS			      file
;	       PEARS			    subdirectory
;	     ANIMALS			  subdirectory
;	       DOGS			    file
;	       CATS			    file
;	     VEGETABLES			  file
;
;	   Would have a	catalog	buffer that looks like:
;
;	   00:	 0D 00 00 00 04	R O O T		      ;Subdirectory entry
;	   09:	 FF FF FF FF			      ;EndCatalog entry
;	   0D:	 36 00 00 00 05	F R U I	T	      ;Subdirectory entry
;	   17:	 6E 00 00 00 07	A N I M	A L S	      ;Subdirectory entry
;	   23:	 00 00 00 00 0A	V E G E	T A B L	E S   ;File entry
;	   32:	 FF FF 00 00			      ;EndSubDir entry (ROOT)
;	   36:	 50 00 00 00 06	A P P L	E S	      ;Subdirectory entry
;	   42:	 6A 00 00 00 05	P E A R	S	      ;Subdirectory entry
;	   4C:	 FF FF 0D 00			      ;EndSubDir entry (FRUIT)
;	   50:	 00 00 00 00 08	C O R T	L A N D	      ;File entry
;	   5D:	 00 00 00 00 04	M A C S		      ;File entry
;	   66:	 FF FF 36 00			      ;EndSubDir entry (APPLES)
;	   6A:	 FF FF 42 00			      ;EndSubDir entry (PEARS)
;	   6E:	 00 00 00 00 04	D O G S		      ;File entry
;	   77:	 00 00 00 00 04	C A T S		      ;File entry
;	   80:	 FF FF 17 00			      ;EndSubDir entry (ANIMALS)
;
; On entry to the callback routine:
;
; Y = high word of callback structure
; X = low word of callback structure
;
; Callback structure: +0   word    Count of files so far
;		      +4   long	   EOF of only files so far
;
;===========================================================================================

Catalog		PROCNAME

		IMPORT	doAlertWindow
		IMPORT	saveCursor
		IMPORT	arrowCursor
		IMPORT	restoreCursor
		IMPORT	levelArray
		IMPORT	c1_Path

;
; --- Call Parameters ------------------------------------------
;
FileCountFlag	equ	10
PathNameIn	equ	FileCountFlag+2
CallBackAddress equ	PathNameIn+4
FSTResult	equ	CallBackAddress+4
EOFResult	equ	FSTResult+2
LResult		equ	EOFResult+4
CResult		equ	LResult+2
HResult		equ	CResult+2

;
; --- Zero Page	Temps -------------------------------------------
;
catHand		equ	work			;Handle of catalog buffer.
catBuffer	equ	catHand+4		;Pointer to catalog buffer.
catIndex	equ	catBuffer+4		;Index into catBuffer of next free byte.
catError	equ	catIndex+2
level		equ	catError+2		;Index into level array.
PathLen		equ	level+2
FileCount	equ	PathLen+2
NumLocked	equ	FileCount+2
LockFlag	equ	NumLocked+2
CallBackFlag	equ	LockFlag+2
TotalCatEOF	equ	CallBackFlag+2
CatSize		equ	TotalCatEOF+4

		IF	CatSize+4>$FF THEN
			WRITE 'CatSize = '
			WRITELN CatSize
			WRITELN 'WARNING... Direct page variable overflow!'
			AERROR 'Catalog in Misc.aii extended its local DP too far'
		ENDIF

		jsr	setup

		stz	CallBackFlag
		lda	CallBackAddress+1,s
		beq	@noCallBack
		
		lda	CallBackAddress,s	;setup our callback address
		sta	CallBack+1
		SEP	#$20
		LONGA OFF
		lda	CallBackAddress+2,s
		sta	CallBack+3
		REP #$20
		LONGA ON
		dec	CallBackFlag
@noCallBack
		
		stz	<TotalCatEOF
		stz	<TotalCatEOF+2
		
		lda	#C1_Path
		sta	open_name
		lda	#C1_Path>>16
		sta	open_name+2

; --- Allocate a catalog data area --------------------------------------

		_CompactMem			;compact memory
		pha				;space for result
		pha
		_MaxBlock			;get size of largest mem block available
		pla
		sta	<CatSize		;and save result
		pla
		beq	NotTooBig
		lda	#$FFFF			;we don't want more than 64K
		sta	<CatSize
NotTooBig 
		sec
		lda	<CatSize
		sbc	#$0400			;subtract 1K for later
		sta	<CatSize
		jsr	allocate
		bcc	ok1
		
		ldy	#10
		jmp	StdEnd			;error exit

ok1		sta	<catHand
		stx	<catHand+2
		sta	hresult,s		;Return the handle of the catalog.
		txa
		sta	hresult+2,s
		jsr	flipcatHand		;Lock the catalog buffer.
		dey
		dey
		lda	[<catHand],y		;Dereference handle of catalog buffer.
		sta	<catBuffer+2
		lda	[<catHand]
		sta	<catBuffer

; ------ Place the local name in the catalog ---------------------------

		lda	#1
		sta	<FileCount
		stz	<NumLocked
		stz	<level
		
		lda	#$FFFF
		sta	>levelArray
		
		stz	<catIndex
		stz	<ePtr

		lda	PathNameIn,s
		sta	<dirBuffer
		sta	info_path
		sta	<ErrNamePtr		;used in case of ProDos error
		lda	PathNameIn+2,s
		sta	<dirBuffer+2
		sta	info_path+2
		sta	<ErrNamePtr+2
		jsr	NameStuff
		jsr	GetFileInfo
		bcc	NoGFIErr
		brl	DoQuit			;got an error

NoGFIErr 	stz	<LockFlag
		lda	info_access		;get access bits
		and	#$0080
		bne	Enabled			;destroy bit enabled
		inc	<NumLocked		;destroy bit disabled
		inc	<LockFlag
Enabled 
		lda	info_storage
		cmp	#$0D			;directory file?
		beq	SubType			;yes
		cmp	#$0F			;volume?
		beq	SubType			;yes

		lda	info_EOF
		sta	<TotalCatEOF
		lda	info_EOF+2
		sta	<TotalCatEOF+2
		
		lda	info_ResourceEOF
		clc
		adc	<TotalCatEOF
		sta	<TotalCatEOF
		lda	info_ResourceEOF+2
		adc	<TotalCatEOF+2
		sta	<TotalCatEOF+2

		jsr	DoCallBack

		lda	#0			;no - so it's a regular file
		bra	SaveType

SubType		lda	#$D0
SaveType	pha				;save filetype for later
		jsr	addFilename		;Add local name to catalog buffer.
		jsr	markEnd			;Mark end of directory.
		pla				;retrieve filetype
		beq	done			;quit if regular file

		lda	Open_Name		;set up ptr to correct filename
		sta	<ErrNamePtr		;for dialog code to use in case of
		lda	Open_Name+2		;ProDos error
		sta	<ErrNamePtr+2

; --- Build directories	----------------------------------------------------

		stz	<level
		lda	#0
		sta	>levelArray

lop2		ldx	<level
		lda	>levelArray,x
		tay
		lda	[<catBuffer],y
		cmp	#$FFFE			;Is this a directory file that needs its
		bne	next1			;directory read and added to the catalog?

; ------ Add a directory to the	catalog	----------------------------------

		lda	<catIndex		;Link the index of what will be the
		sta	[<catBuffer],y		;new directory to its subdirectory name.

		ldx	<level			;Add the new directory to the search
		inx				;array for the next.  By not incrementing
		inx				;'level' it won't be used yet.
		sta	>levelArray,x

		jsr	readDir			;Add the directory to the catalog buffer.
		bcs	DoQuit			;got an error so quit

		inc	<level			;Now increment to search the new directory
		inc	<level			;for subdirectories that need to be read.
		bra	lop2


; ------ Done searching	this directory ----------------------------------

next1		cmp	#$FFFF			;End of directory?
		bne	next2

		dec	<level			;Pop one level.
		dec	<level			;Return to search last directory.
		bmi	done			;Any more directories to search?

; ------ Move to next entry -------------------------------------------

next2		ldx	<level			;Move to next directory entry.
		lda	>levelArray,x
		jsr	nextLine
		sta	>levelArray,x
		bra	lop2

; --- Shrink catalog buffer to only what's needed ------------------------

done 
		lda	FileCountFlag,s		;store filecount in first cat entry?
		beq	DoneCont		;no

		ldy	#2
		lda	[<catHand],y		;Dereference handle of catalog buffer
		sta	<catBuffer+2		;to get back to first catalog entry
		lda	[<catHand]
		sta	<catBuffer
		lda	<FileCount		;get # of files in catalog and store
		sta	[<CatBuffer],y		;in flag word of first catalog entry
DoneCont 

		jsr	flipcatHand		;Unlock catalog handle.

		pea	0			;Pass new size (never more then 64k).
		pei	<catIndex		;(index to next free byte).
		pei	<catHand+2		;Pass handle of catalog buffer.
		pei	<catHand
		_SetHandleSize

		lda	OptionBuffFST		;used for last entry gotten for both getfileinfo and 
		sta	FSTResult,s		;also for getdirentry
		
		lda	<TotalCatEOF
		sta	EOFResult,s
		lda	<TotalCatEOF+2
		sta	EOFResult+2,s

		lda	<FileCount
		sta	cresult,s		;return # of files in catalog
		lda	<NumLocked
		sta	lresult,s		;return # of locked files in catalog
		
		ldy	#10
		jmp	StdEnd			;bye-bye


;
; --- Got an error -------------------------------------------------------
;
DoQuit

;
; JAM 05/18/89 (Fixing BRC #48728)
; The old code, shown below, appeared to put a useless value into >Error_Code.
; The new code puts the value of the x accumulator in there, which, under
;   MANY (but perhaps not all) circumstances, carries the error code of the
;   last ProDOS operation.  Every routine I've checked so far seems to ignore
;   >Error_Code's value, and relies instead only on the carry-set status.
;  We should be vigilant to ensure that this is true, and also that routines
;   aren't haphazardly clobbering the value of >Error_Code for their own reasons.
;
; Mensch 06/05/89 (Fixing BRC #50299)
;  If X does NOT have a proper error code here, make sure that it has at least an
;  improper one, since this IS an error exit routine anyway, misleading name aside.
		cpx	#0
		bne	@1
		inx
@1
; end Mensch 06/05/89 (BRC #50299)
		txa
		sta	>Error_Code
; end JAM 05/18/89 (BRC #48728)

		pei	<catHand+2		;Pass handle of catalog buffer.
		pei	<catHand
		jsl DisposeHandleGlue		;Free catalog buffer
; OLD CODE	lda	#1
;		sta	>Error_Code		;indicate error
		
		ldy	#10
		jmp	StdEnd

;
; DoCallBack -- call back the address which was passed to us
;
DoCallBack	lda	<CallBackFlag
		beq	noCallBack
		
		lda	<FileCount
		sta	CBackStruct
		
		lda	<TotalCatEOF
		sta	CBackStruct+4
		lda	<TotalCatEOF+2
		sta	CBackStruct+6
		
		ldx	#CBackStruct
		ldy	#CBackStruct>>16
CallBack	jsl	$000000			;self-modified!		
		
noCallBack	rts

;
; locals -- our callback structure
;
CBackStruct	dc.L	0
		dc.L	0

; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =	=
;	   Make	copy of	C1_Path, remove local name, etc.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =	=

NameStuff
		IMPORT	WStringCopy

		PushLong <DirBuffer
		PushLong #C1_Path
		jsl	WStringCopy		; make copy of pathname
		
		PushLong #C1_Temp
		PushLong #C1_Path
		jsl	PathGetName		; get local name

		lda	>C1_Path
		sec
		sbc	C1_Temp
		dec	a
		sta	<PathLen		;save length of (pathname - local name)

		lda	C1_Temp
		xba				;make it class 0
		sta	C1_Temp
		
		lda	#^C1_Temp+1
		sta	<DirBuffer+2		;create ptr to local name
		lda	#C1_Temp+1
		sta	<DirBuffer

		rts

C1_Temp		DS.B	34

; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =	=
;	   Flip	the lock state of the catalog buffer.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =	=

flipcatHand
		ldy	#4			;Lock the catalog buffer.
		lda	[<catHand],y
		eor	#$8000
		sta	[<catHand],y
		rts


; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =
;	   Move	index to next entry in catalog buffer.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =
;
;   IN:	   a = index to	current	line in	'catBuffer'.
;
;  OUT:	   a = index to	next line in 'catBuffer'.
;	   x = same as in.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =

nextLine

		tay
		iny
		iny
		iny
		iny
		phy
		lda	[<catBuffer],y		; Get length of name.
		and	#$00FF			; byte field
		sec
		adc	1,s
		ply
		rts


; = = =	= = = =	= = = =	= = = =	= = = =	=
;	   Read	a subdirectory.
; = = =	= = = =	= = = =	= = = =	= = = =	=
;
;   IN:	   C1_Path = volume name.
;
; changed for hack, 05/17/88 DJB
; = = =	= = = =	= = = =	= = = =	= = = =	=

		ENTRY	readDir
readDir 		
		jsr	BuildPath		;Build the path name.
		bcc	pathOK
		rts
pathOK
		jsr	DoOpen			;open the file
		bcc	openOK
		rts
openOK

		jsr	GetNumEntries		;get the number of entries (in A-reg)
		bcc	readOK
		brl	ErrExit30		;close the file please
readOK
		sta	<e_numFiles		;Total number of files.
		sta	<entries
		clc
		adc	<FileCount		;add to current catalog count
		sta	<FileCount

		jsr	DoCallBack

;
; --- Move the directory into the catalog buffer ------------------------
;
		lda	<entries		;are there any entries ?
		bne	lop30
		brl	exit30			;close the file please
lop30
		jsr	GetEntry		;read a directory entry
		bcc	have_entry

		cmp	#$61
		beq	@endOfDir
		brl	ErrExit30		
		
@endOfDir	lda	<FileCount		;if we reach the end of directory prematurely, then
		sec				;we need to adjust the FileCount to take into account the
		sbc	<entries		;entries in this catalog which we weren't able to read 'cause we
		sta	<FileCount		;got stopped
		brl	Exit30			;close the file please

have_entry	jsr	ce_translate		;convert to old directory entry
		
		lda	ce_file_type		;don't ever count folder sizes
		cmp	#$000F
		beq	@haveAFolder

		lda	ce_eof
		clc
		adc	<TotalCatEOF
		sta	<TotalCatEOF
		lda	ce_eof+2
		adc	<TotalCatEOF+2
		sta	<TotalCatEOF+2
		
		lda	ce_rsrc_eof
		clc
		adc	<TotalCatEOF
		sta	<TotalCatEOF
		lda	ce_rsrc_eof+2
		adc	<TotalCatEOF+2
		sta	<TotalCatEOF+2
@haveAFolder

		lda	#ce_prodos_entry
		sta	<DirBuffer
		lda	#^ce_prodos_entry	;pointer to a ProDOS entry
		sta	<DirBuffer+2

		ldx	#$0020			;defaul type = sapling
		lda	ce_file_type
		cmp	#$000F			;is this a directory?
		bne	not_a_dir
		ldx	#$00D0			;this is a directory
not_a_dir
		txa				;get the storage type please
		ora	ce_prodos_entry		;add in the length

		pha				;save file type

		stz	<LockFlag

		ldy	#DirAccess
		lda	[<DirBuffer],y		;get access bits in hi byte
		and	#$0080
		bne	DestroyOK		;destroy bit enabled
		inc	<NumLocked		;destroy bit disabled
		inc	<LockFlag
DestroyOK

		pla				;retrive file type
		jsr	addFilename		;Add this filename to the catalog buffer.
		bcs	GotMemErr

		dec	<entries
		bne	lop30

;
; --- Directory read -----------------------------------------
;
exit30		lda	open_num
		sta	ce_close_num
		jsl	ProDOS
		DC.W	CLOSE+C1		;close the directory
		DC.L	ce_close_list
		bcs	GotPDErr2

markEnd 	clc
		lda	<CatIndex
		adc	#4
		cmp	<CatSize		;enough room in catalog buffer?
		bcs	GotMemErr2		;no

		jsr	CatUpdate
		
		clc				;indicate no error
		rts

;
; --- Got directory error -------------------------------------
;
errExit30	sta	<catError

		lda	open_num
		sta	ce_close_num
		jsl	ProDOS
		DC.W	CLOSE+C1		;close the directory
		DC.L	ce_close_list
		bcs	GotPDErr2

		clc
		lda	<CatIndex
		adc	#4
		cmp	<CatSize		;enough room in catalog buffer?
		bcs	GotMemErr2		;no

		jsr	CatUpdate
		
		ldx	<catError
		sec				;indicate error
		rts

;-------------------------------------------------------------

GotMemErr	jsr	DoClose
GotMemErr2	lda	#rasMemErr
		jsl	doAlertWindow
		sec				;indicate error
		rts

GotPDErr	jsr	DoClose			;clean up
GotPDErr2	sec				;indicate error
		rts


;
; Mark the end of this directory
;
CatUpdate	ldy	<catIndex		;Mark end of directory.
		lda	#$FFFF
		sta	[<catBuffer],y
		iny
		iny
		ldx	<level
		lda	>levelarray,x
		sta	[<CatBuffer],y
		iny
		iny
		sty	<catIndex		;Index to next free byte in catalog buffer.
		rts
		
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = =
;	   Add directory name to catalog buffer.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = =
;
;   IN:	   a = file type.
;	   catIndex = index into catalog buffer.
;	   catBuffer = address of catalog buffer.
;	   ePtr	= index	into directory buffer.
;	   dirBuffer = address of directory buffer.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = =
maxFileSize	SET	32

		ENTRY	addFilename
addFilename

		tax				;save contents of A
		clc
		lda	<CatIndex
		adc	#maxFileSize+4
		cmp	<CatSize		;enough room in catalog buffer?
		bcc	GotRoom2		;yes
		rts				;no - return with carry set

GotRoom2
		txa				;retrieve contents of A
		ldx	#$FFFE			;Mark for directory file.
		and	#$00F0
		cmp	#$00D0
		beq	store40

		ldx	#0			;Mark for standard file.
store40		txa
		ldy	<catIndex
		sta	[<catBuffer],y

		iny
		iny
		lda	<LockFlag
		sta	[<CatBuffer],y		;save locked status in flag word

		tya
		clc
		adc	#maxFileSize
		tay

		lda	<ePtr
		clc
		adc	#maxFileSize-2
		tax
lop40		phy
		txy
		lda	[<dirBuffer],y
		ply
		sta	[<catBuffer],y
		dey
		dey
		dex
		dex
		bmi	exit40
		cpx	<ePtr
		bcs	lop40

exit40		and	#$00FF			; length (byte)
		sec
		adc	<catIndex
		inc	a
		inc	a
		inc	a
		inc	a
		sta	<catIndex

*		iny				;Backup to the length byte.
*		iny
*		lda	[<catBuffer],y
*		and	#$FF0F			;Clear the flag nibble from the length.
*		sta	[<catBuffer],y

		clc				;indicate no error
		rts


; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = =
;	   Build pathname from levelArray buffer.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = =
;
;   IN:	   levelArray =	array of index offset into 'catBuffer'.
;	   level = index of last offset	in levelArray.
;
;  OUT:	   C1_Path = full pathname.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = =

		ENTRY	BuildPath
BuildPath

		lda	<PathLen
		sta	>C1_Path		;reset pathname length

		ldx	#0
lop50		lda	>levelArray,x
		phx				;Save index into levelArray.
		tay
		jsr	addName			;Add name from catalog to pathname.
		plx
		bcs	BPRet
		inx
		inx
		cpx	<level
		bcc	lop50
		beq	lop50

		clc				;indicate no error
BPRet		rts


; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = =
;	   Add a name on the end of pathname.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = =
;
;   IN:	   C1_Path = current pathname.
;	   y = index to	entry in 'catBuffer'.
;	   catBuffer = catalog buffer.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = =

		ENTRY	addName
addName

		lda	>C1_Path		;Get current length.
		tax
		inx
		
		sep	#$20
		LONGA	OFF

		lda	#SEPARATOR		;add GS/OS separator character
		sta	>C1_Path+1,x
		
		rep	#$20
		LONGA	ON
		
		iny
		iny
		iny
		iny
		lda	[<catBuffer],y
		and	#$00ff
		sec				;always one more
		adc	>c1_path
		cmp	#MaxPathLen
		bcs	TooLong
		sta	>C1_Path		;New length of pathname.
		sta	lentemp
	
		sep	#$20
		LONGA	OFF
		
@loop		iny
		inx
		lda	[<catBuffer],y
		sta	>C1_Path+1,x
		cpx	lentemp
		bcc	@loop

		rep	#$20
		LONGA	ON
		clc				;indicate no error
		rts

TooLong		lda	#rasPathTooLong
		jsl	doAlertWindow
		sec		
		rts

;
; locals
;
lentemp		dc.w	0
		ENDP


;====================================================
;	 Get File Info
;====================================================

GetFileInfo	PROC

		jsl	ProDOS
		DC.W	GET_FILE_INFO+C1	;command #
		DC.L	info_list
		bcc	exit
		cmp	#$4F			; ignore buffer too small
		beq	ok
		jsr	ProDosErr
		bcc	GetFileInfo		;try again
		bra	exit
ok		clc
exit		rts				; return carry flag

		ENDP

;====================================================
;	 Open File
;====================================================

DoOpen		PROC


		jsl	ProDOS
		DC.W	OPEN+C1			;command #
		DC.L	open_List
		bcc	OK
		jsr	ProDosErr
		bcc	DoOpen			;try again
OK		rts

		ENDP


;====================================================
;	 Close File
;====================================================

DoClose		PROC

		lda	open_num
		sta	close_num
		
		jsl	ProDOS
		DC.W	CLOSE+C1		;command #
		DC.L	close_list
		bcc	OK
		jsr	ProDosErr
		bcc	DoClose			;try again
OK		rts

		ENDP

;====================================================
;	 Read Directory Entry		
;====================================================


GetEntry	PROC

		jsl	ProDOS			;do a get dir entry call
		DC.W	GET_DIR_ENTRY+C1
		DC.L	ce_get_dir_list		;get the number of entries
		bcc	@ok
		tax
		cmp	#$61
		beq	@exit
		cmp	#$4F
		bne	@err
		clc
		rts
		
@err		jsr	ProDosErr
		bcc	GetEntry		;try again
@exit		sec
@ok		rts

		ENTRY	GetNumEntries
GetNumEntries	lda	open_num
		sta	ce_get_dir_num		;set ref number
		
		stz	ce_disp			;we want an entry count
		stz	ce_base
		
		jsl	ProDOS			;do a get dir entry call
		DC.W	GET_DIR_ENTRY+C1
		DC.L	ce_get_dir_list		;get the number of entries
		bcc	@ok
		cmp	#$4F
		bne	@err2
		clc
		bra	@ok
		
@err2		jsr	ProDosErr
		bcc	GetNumEntries		;try again

@ok		lda	#$0001			;setup for catalog
		sta	ce_base
		sta	ce_disp
		
		lda	ce_entry_num		;get the total file count		
		rts				;return carry flag

		ENDP

;====================================================
;	 Handle	ProDos Error
;====================================================

ProDosErr	PROC

		IMPORT	saveCursor
		IMPORT	restoreCursor
		IMPORT	arrowCursor
		IMPORT	hexadecimal
		IMPORT	pathGetRoot
		import	GetErrorTextPtr
		
		sta	err
		
		cmp	#$27			;I/O error?
		beq	IOErr			;yes
		cmp	#$5A			;damaged bitmap?
		beq	IOErr			;yes
		cmp	#$63			;file doesn't contain required resource
		beq	IOErr			;yes
		cmp	#$51			;directory error?
		beq	IOErr			;yes
		cmp	#$2F			;no media error?
		beq	NoMedia			;yes
		cmp	#$45			;volume	not found error?
		beq	NoVol			;yes
		cmp	#$4E			;access	error?
		beq	AccessErr		;yes
		cmp	#FINoPrivs
		beq	NoPrivs

;
; Note--rasSysErr uses substitution *7 for the hex value, so the table
;       below is kludged (11-Jul-91 DAL)
;
		pha				;push copy of error code (5-Dec-91 DAL)

		pha
		pushlong #hexadecimal
		pea	4			;4 chars
		_Int2Hex

*** added 5-Dec-91 DAL
		pla
		jsl GetErrorTextPtr		;returns pointer in AX
		sta >sub9Ptr+2
		txa
		sta >sub9Ptr
*** end 5-Dec-91

		lda	#rasSysErr		;generic error msg
		bra	Cont

IOErr		lda	#rasIOErr
		bra	Cont

NoMedia		lda	#rasNoMedia
		bra	Cont

NoVol		lda	#rasInsertDiskOrCancel
		bra	Cont

AccessErr	tax
		sec
		rts

NoPrivs		lda	#rasNoPrivs
Cont		pha
		
		pushlong #errName
		pushZLong <errNamePtr
		jsl	PathGetRoot
		
		lda	errName
		dec	a
		xba
		sta	errName+1
		
		jsl	saveCursor		;make it a normal cursor
		jsl	arrowCursor

		lda	1,s			;it's already on the stack, and we
						;needed to push a word anyway...
		pea	$00B5			;refIs (Preloaded) Resource
		pushlong #errorStrPtr		;substitution string #1
		pea	0
		pha
		_AlertWindow
		jsl	restoreCursor
		
		ldx	err
		cpx	#$45
		bne	@noChoice

@volErr		pla
		beq	@cancel
		clc
		rts
		
@noChoice	pla
@cancel		sec
		rts

err		dc.w	0
errPath		dc.L	0
errName		ds.b	34

errorStrPtr	dc.L	errName+2	;*0 -- pointer to thing we'll use in error string
		dc.l	0		;*1
		dc.l	0		;*2
		dc.l	0		;*3
		dc.l	0		;*4
		dc.l	0		;*5
		dc.l	0		;*6
		dc.l	hexadecimal-1	;*7
		dc.l	errName+2	;*8 -- pointer to thing we'll use in error string
sub9ptr		dc.l	0		;*9 -- for rasSysErr (5-Dec-91 DAL)

		ENDP

;====================================================
;	   Allocate a memory block.
;====================================================
;
;   IN:	   a = number of bytes to allocate.
;
;  OUT:	   a = low word	of handle.
;	   x = high word of handle.
;====================================================

allocate	PROC

		ldx	#0			;Anyting, anywhere attributes.

;====================================================
;   IN:	   x = attributes.
;====================================================

		ENTRY	allocate2
allocate2

		pha				;Space for result.
		pha
		pea	0			;Pass size of block needed.
		pha
		pei	<MyID
		phx				;Pass attributes.
		pha				;Pass address, not used.
		pha
		_NewHandle
		sta	error_code		;Just in case.
		pla
		plx
		rts
		ENDP
		
;=========================================
;	   Push	a direct page
;	   address on the stack.
;=========================================
;
;   IN:	   a = direct page offset.
;
;=========================================

pushyrat	PROC

*		using DiaData
*		using ZP_Two

		lda	#yrat
		bra	pushzpage

		ENTRY	pushTask
pushTask      

		lda	#TaskRec

		ENTRY	pushzpage
pushzpage      

		plx

		pea	0

		pha
		tdc
		clc
		adc	1,s
		sta	1,s

		phx
		rts
		
		ENDP
		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Finder/MiscDialog.aii b/IIGS.601.SRC/A.U.G/Finder/MiscDialog.aii
new file mode 100644
index 0000000..2f49144
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Finder/MiscDialog.aii
@@ -0,0 +1 @@
+;===============================================================
		TITLE	'Apple IIGS Finder                            MISCDIALOG.aii'
;
;			Dialog Routines
;
;	   Copyright Apple Computer, Inc. 1986-1988
;		      All rights reserved
;
;		 By Dan	Oliver and Cheryl Ewy
;
; ===> converted to MAX 04/21/88 - DJB
;
;===============================================================
;
; Modification History for Version 1.2:
; -------------------------------------
; 05/09/88 DJB - Added "diaVerify" Record and "ThermoDial" stuff
; 05/10/88 DJB - Added ModifyMLDialog, StartMLDialog, and CheckMLDialog
;		 routines; "Modeless" flag; "SpecialText" type
; 05/11/88 DJB - Added "diaShutDown" Record
; 05/24/88 DJB - Added "diaValid" Record
; 05/26/88 DJB - Added "diaShutDown2" Record
; 06/29/88 JAM - Swapped CAUTION and STOP icon structures
; 		    such that CAUTION is ? and STOP is !
; 07/13/88 DJB - changed dtCanntDup template to make dialog longer (dh4)
; 07/27/88 DO	- added _HiliteControl call to doKey
; 08/01/88 DJB	- added dtNonRemove template.
; 08/03/88 DJB	- added dtTransFile template.
; 08/04/88 DJB	- added dtDamaged template.
;===============================================================

		PRINT	OFF
		INCLUDE	'Strings.equ'		;IMPORT strings
		PRINT	ON
		
;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

		IMPORT	ThermoDialProc
		
;------------------------------------------
;
; Equates from procedure DiaData
;
;------------------------------------------

mouseDownEvt	equ	$01			;Mouse-down event
MaxString	equ	450			;max length of dialog text

;------------------------------------------
;
; Equates from procedure Dialogs
;
;------------------------------------------
Text		equ	0
BoldText	equ	2
StdBtn		equ	4
SpecialBtn	equ	6
RadioBtn	equ	8
Icon		equ	10
LineEdit	equ	12
Box		equ	14
Jump		equ	16
CheckBoxes	equ	18
ThermoDial	equ	20			;added 05/09/88 DJB
SpecialText	equ	22			;added 05/10/88 DJB

String1		equ	0
String2		equ	2
VolName1	equ	4
VolName2	equ	6
FileName1	equ	8
FileName2	equ	10
DecNum		equ	12
HexNum		equ	14
Centered	equ	16
CancelID	equ	$FFFF
OKID		equ	$0001
TryAgainID	equ	$0002
TextTopPos	equ	1			;Y position of first line of text.
TextLeftPos	equ	88			;X starting position of text.
dh1		equ	50			;Height of dialog with 1 line of text.
dh2		equ	53			;Height of dialog with 2 lines of text.
dh3		equ	61			;Height of dialog with 3 lines of text.
dh4		equ	69			;Height of dialog with 4 lines of text.
dh5		equ	77
LEboxy1		equ	8
LEboxx1		equ	275			;moved over 25 pixels 05/31/88 DJB
LEboxy2		equ	LEboxy1+12
LEboxx2		equ	LEboxx1+128

initLEboxY1	equ	dh5-38
initLEboxX1	equ	360/2
initLEboxY2	equ	initLEboxY1+12
initLEboxX2	equ	initLEboxX1+230

preferX		equ	20
helpRow1	equ	35
helpRow2	equ	helpRow1+18
helpRow3	equ	helpRow2+18
helpCol1	equ	40
helpCol2	equ	240


;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

		ENTRY	ChangeDialog
		ENTRY	ModifyMLDialog
		ENTRY	DISKICON
		ENTRY	DiaAddrs
		ENTRY	DrawDiaGuts
		ENTRY	EndDialog
		ENTRY	GetData
		ENTRY	MonitorDia
		ENTRY	CheckDia
		ENTRY	CheckMLDialog
		ENTRY	MonitorDialog
		ENTRY	NewDialog
		ENTRY	SaveLEText
		ENTRY	StartDialog
		ENTRY	StartMLDialog
		ENTRY	UpdateDialog
		ENTRY	UpdateEvent
		ENTRY	ck_LE
		ENTRY	killLE
		ENTRY	pushTask
		ENTRY	pushyrat
		ENTRY	pushzpage
		ENTRY	dtVerify
		ENTRY	dtVerify2
		ENTRY	dtVerifyGood
		ENTRY	dtVerifyBad
		ENTRY	dtValid
		ENTRY	dtValid2
		ENTRY	dtValidGood
		ENTRY	dtValidBad
		ENTRY	ReDrawDiaGuts
		ENTRY	dtShutDown
		ENTRY	dtShutDown2
		ENTRY	dtSharedVol
		ENTRY	dtNoAccess
		ENTRY	dtNoAccess2
		

****************************************************************
*
* DIALOG ROUTINES - DATA DECLARATIONS
*
****************************************************************

DiaData		PROC

MiscDialogBegin name

		ENTRY	ScreenSize
ScreenSize	DC.W	200,640
		ENTRY	Screen2
Screen2		DC.W	0,0,200,640
		ENTRY	PName
PName		DS.B	34			;space for filename or diskname
		ENTRY	StrgNum0
StrgNum0	DS.B	1
		ENTRY	StrgNum1
StrgNum1	DS.B	10			;must follow 'strgNum0'
		ENTRY	TextStr
TextStr		DS.B	MaxString
		ENTRY	DialValue
DialValue	DC.W	0			;current value for dial; added 05/09/88 DJB
		ENTRY	DialMax
DialMax		DC.W	0			;max value for dial; added 05/09/88 DJB
		ENTRY	DialHandle
DialHandle	DC.L	0			;handle for dial; added 05/09/88 DJB

		ENTRY	DialColor
DialColor	DC.W	$0000,$000F,$0000,$0004

; --- Dialog window NeWindow parameter list ----------------------------

		ENTRY	diaW_param
diaW_param
		ENTRY	diaW_size
diaW_size	DC.W	diaW_end-diaW_size
		ENTRY	diaW_frame
diaW_frame	DC.W	%0010000000101001
		ENTRY	diaW_title
diaW_title	DC.L	0
		ENTRY	diaW_ref
diaW_ref	DC.L	0
		ENTRY	diaW_full
diaW_full	DC.W	0,0,0,0
		ENTRY	diaW_clr
diaW_clr	DC.L	0
		ENTRY	diaW_voff
diaW_voff	DC.W	0
		ENTRY	diaW_hoff
diaW_hoff	DC.W	0
		ENTRY	diaW_datah
diaW_datah	DC.W	0
		ENTRY	diaW_dataw
diaW_dataw	DC.W	0
		ENTRY	diaW_max_h
diaW_max_h	DC.W	0
		ENTRY	diaW_max_w
diaW_max_w	DC.W	0
		ENTRY	diaW_vscrl
diaW_vscrl	DC.W	0			;Number of pixels to scroll vertically.
		ENTRY	diaW_hscrl
diaW_hscrl	DC.W	0			;Number of pixels to scroll horizontally.
		ENTRY	diaW_vpage
diaW_vpage	DC.W	0			;Number of pixels to page vertically.
		ENTRY	diaW_hpage
diaW_hpage	DC.W	0			;Number of pixels to page horizontally.
		ENTRY	diaW_infot
diaW_infot	DC.L	0			;Infomation bar text string.
		ENTRY	diaW_infoH
diaW_infoH	DC.W	0			;Height of information bar.
		ENTRY	diaW_def
diaW_def	DC.L	0			;DefProc.
		ENTRY	diaW_info
diaW_info	DC.L	0			;Routine to draw info. bar.
		ENTRY	diaW_draw
diaW_draw	DC.L	UpdateEvent		;Routine to draw content.
		ENTRY	diaW_pos
diaW_pos	DC.W	0,0,0,0			;Size/Position of content.
		ENTRY	diaW_plane
diaW_plane	DC.L	$FFFFFFFF		;Plane to put window up in.
		ENTRY	diaW_rec
diaW_rec	DC.L	0			;Address of memory for window record.
		ENTRY	diaW_end
diaW_end

		ENDP

;==================================================
;	   Entry point for dialog routines
;==================================================
;
; IN:	PUSH:WORD - space for result
;	PUSH:LONG - pointer to first string
;	PUSH:LONG - pointer to second string
;	PUSH:LONG - long integer (to be used in dialog)
;	PUSH:WORD - dialog number
;	PUSH:WORD - function number:
;			 0 = NewDialog
;			 2 = EndDialog
;			 4 = ChangeDialog
;			 6 = StartDialog
;			 8 = MonitorDialog
;			10 = ModifyMLDialog
;			12 = CheckMLDialog
;			14 = StartMLDialog
;
;	a = CDU's direct page, dialog's direct page is the one after
;
; OUT:	WORD - ID of selected item in dialog
;
;==================================================

CallDialog	PROC

Function	equ	14
DiaIndex	equ	Function+2
Int		equ	DiaIndex+2
StrPtr2		equ	Int+4
StrPtr1		equ	StrPtr2+4
Result		equ	StrPtr1+4

		IMPORT	DoCredits

		phd				;Save original direct page.
		phb				;Save original data bank.
		phk				;Use this data bank.
		plb

		clc
		adc	#$0100			;Use direct page after CDU.
		tcd

		pha				;Save original port.
		pha
		_GetPort			;Leave on stack.

		lda	StrPtr1,s		;get ptr to first string and save
		sta	<String1Ptr
		lda	StrPtr1+2,s
		sta	<String1Ptr+2

		lda	StrPtr2,s		;get ptr to second string and save
		sta	<String2Ptr
		lda	StrPtr2+2,s
		sta	<String2Ptr+2

;------------------------------------------------
;	Addded the following KLUDGE to keep class 1 strings out - DJB

		lda	[<String1Ptr]
		cmp	#$0100			;is 2nd byte zero? (ie a class 1 string)
		bcs	okStr1			;no
		xba				;fake a pascal string
		sta	[<String1Ptr]
		inc	<String1Ptr
		bne	okStr1
		inc	<String1Ptr+2
okStr1	
		lda	[<String2Ptr]
		cmp	#$0100			;is 2nd byte zero? (ie a class 1 string)
		bcs	okStr2			;no
		xba				;fake a pascal string
		sta	[<String2Ptr]
		inc	<String2Ptr
		bne	okStr2
		inc	<String2Ptr+2		;end of kludge...we'll now return to the 
okStr2						;program in progress.
;------------------------------------------------
		lda	Int,s			;get number and save
		sta	<Number
		lda	Int+2,s
		sta	<Number+2

		lda	Result,s		;get value and save
		sta	DialValue

		lda	DiaIndex,s		;get index of dialog
		tax
		lda	DiaAddrs,x		;convert to address of dialog
		sta	<Template		;and save

		lda	Function,s
		tax
		jsr	(FuncTable,x)		;Go to dialog function.

;------------------------------------------------
;	Addded the following KLUDGE	DJB

		lda	StrPtr1,s		;check ptr to see if it changed
		cmp	<String1Ptr
		beq	undo1
		dec	<String1Ptr
		lda	[<String1Ptr]
		xba				;back to class 1 string
		sta	[<String1Ptr]
undo1	
		lda	StrPtr2,s		;check ptr to see if it changed
		cmp	<String2Ptr
		beq	undo2
		dec	<String2Ptr
		lda	[<String2Ptr]
		xba				;back to class 1 string
		sta	[<String2Ptr]
undo2
;------------------------------------------------
		lda	<ItemID
		sta	Result,s		;Return ID of selected item in dialog.

		_SetPort			;Restore original port (already on stack).

		lda	[<String2Ptr]
		and	#$00FF			;get rid of Pascal 
		lda	[<String2Ptr]
		
		ldy	#16			;# of parameters
		jmp	StdEnd

;-------------------------------------------------------------------------------

FuncTable	DC.W	NewDialog		;0
		DC.W	EndDialog		;2
		DC.W	ChangeDialog		;4
		DC.W	StartDialog		;6
		DC.W	MonitorDialog		;8
		DC.W	ModifyMLDialog		;10  Added 05/10/88 DJB
		DC.W	CheckMLDialog		;12  Added 05/10/88 DJB
		DC.W	StartMLDialog		;14  Added 05/10/88 DJB

		ENDP


;=====================================
;	   One shot dialog.
;=====================================
;
;   IN:	   a = dialog index.
;
;  OUT:	   a = item number selected.
;=====================================

NewDialog	PROC

		jsr	StartDialog		;Put up	dialog window.
		jsr	EndDialog		;erase dialog window
		rts
		
		ENDP

;==================================================
;	   Put up a dialog type	window.
;==================================================
;
;  Why not use the Dialog Manager?  Size.  The Dialog Manager is 12k and I
;  should be able to special case my dialogs in	much less space.
;
;  Yes, but the Dialog Manager has to be there anyways for DA's! (DJB)
;
;   IN:	   a = dialog index.
;
;  OUT:	   a = item number selected.
;==================================================

StartDialog	PROC


;
; --- Create a dialog type window -----------------------------------
;
; ------ Center	the window ------------------------------------------
;
		stz	<Modeless
		bra	sdStart
		
		ENTRY	StartMLDialog		;Added 05/10/88 DJB
StartMLDialog	
		lda	#$FFFF
		sta	<Modeless
		
sdStart		jsr	EndDialog		;if a dialog is currently up, get rid of
						;it before putting up this dialog
		stz	<defaultBtn
		stz	<defaultBtn+2
		stz	<CancelBtn
		stz	<CancelBtn+2
		stz	DialHandle
		stz	DialHandle+2		;Added 05/09/88 DJB

		jsr	GetData			;get height of dialog window
		sta	<DiaSize+Y1
		jsr	GetData			;get width of dialog window
		sta	<DiaSize+X1

		ldx	#x1			;start with width
lop1		lda	ScreenSize,x		;get width/height of screen
		sec
		sbc	<DiaSize,x		;subtract width/height of window
		lsr	a			;and half of that to get
		and	#$FFFE			;(Put window on dither boundary.)
		sta	diaW_pos+y1,x		;window centered horizontally/vertically

		clc
		adc	<DiaSize,x		;add width/height to left/top
		sta	diaW_pos+y2,x		;to get right/bottom

		dex
		dex
		bpl	lop1			;now do height

		pha				;Space for result.
		pea	1			;Turn window hiliting off for now.
		_WindowGlobal
		pla				;No need for result.

		pha				;Space for result.
		pha
		pea	diaW_param>>16		;Pass address of parameter block.
		pea	diaW_param
		_NewWindow

		lda	1,s
		sta	<diaWind
		lda	3,s
		sta	<diaWind+2

		_SetPort

		jsr	DrawDiaGuts
		lda	<Modeless
		beq	monitor
		jsr	CheckDia
		bra	saveLE
monitor		jsr	MonitorDia
saveLE		jsr	SaveLEText		;save text from Line Edit record
		rts
		
		ENDP


;==================================================
;	   Reuse the dialog window.
;==================================================
;
;   IN:	   a = dialog index.
;	   diaWind = pointer to	dialog window.
;	   Dialog window is the	current	port.
;
;  OUT:	   a = item number selected.
;==================================================

ChangeDialog	PROC

*		using DiaData
*		using ZP_Two

		lda	<diaWind		;is there a dialog currently up?
		ora	<diaWind+2
		beq	Done			;no - so we're done

		pei	<diaWind+2
		pei	<diaWind
		_SetPort

		jsr	UpdateDialog
		jsr	DrawDiaGuts
		jsr	MonitorDia
		jsr	SaveLEText		;save text from Line Edit record
Done		rts

		ENDP


;==================================================
;      Modify the dialog window. Added 05/09/88 DJB
;==================================================
;
;   IN:	   a = dialog index.
;	   diaWind = pointer to	dialog window.
;	   Dialog window is the	current	port.
;
;  OUT:	   a = item number selected.
;==================================================

ModifyMLDialog	PROC

		lda	<diaWind		;is there a dialog currently up?
		ora	<diaWind+2
		beq	done			;no - so we're done

		pei	<diaWind+2
		pei	<diaWind
		_SetPort

		jsr	ReDrawDiaGuts
		jsr	CheckDia
;		jsr	SaveLEText		;save text from Line Edit record
done		rts

		ENDP

;=====================================
;	   Done	with the dialog
;=====================================

EndDialog	PROC

		lda	<diaWind		;is there a dialog currently up?
		ora	<diaWind+2
		beq	Done			;no - so we're done

		stz	<RadioIn		;reset info about which radio buttons
		stz	<RadioIn+2		;should be on when dialog is drawn

		jsr	killLE			;Kill line edit if there is one.

		ldx	<diaWind+2		;Close dialog.
		lda	<diaWind
		jsl	CloseThisWindow

		stz	<diaWind		;clear out window pointer
		stz	<diaWind+2		;to indicate that no dialog is up

		pha				;Space for result.
		pea	$FFFE			;Turn window hiliting back on.
		_WindowGlobal
		pla				;No need for result.

Done		rts

		ENDP

;==================================================
;	   Update dialog contents
;==================================================

UpdateDialog	PROC

*		using DiaData
*		using ZP_Two

*		pea	screen2>>16		;Force redraw of dialog's content.
*		pea	screen2
*		_InvalRect

		pea	screen2>>16		;Clear dialog's content.
		pea	screen2
		_EraseRect

		pei	<diaWind+2		;Kill the dialog's controls.
		pei	<diaWind
		_KillControls

		stz	<DefaultBtn		;Mark no default button.
		stz	<DefaultBtn+2
		stz	<CancelBtn		;Mark no Cancel button.
		stz	<CancelBtn+2

		jsr	KillLE			;Kill LineEdit field if there is one
		rts
		
		ENDP

;==================================================
;	   Kill	LineEdit field if one exists
;==================================================

killLE		PROC

*		using DiaData
*		using ZP_Two

		lda	<LEfield+1		;Is there a line edit field?
		beq	exit

		pei	<LEfield+2
		pei	<LEfield
		_LEDispose

		stz	<LEfield+1		;Mark 'no line edit' flag.

exit		rts

		ENDP

;=========================================================
;	 Save text from	Line Edit record.
;=========================================================
;
;   LEfield = handle to	line edit record.

SaveLEText	PROC

*		using DiaData
*		using ZP_Two

		lda	<LEfield+1		;Is there a line edit field?
		beq	exit			;no

		pha				;space for result
		PushZLong <LEField		;handle to Line Edit record
		_LEGetTextLen
		pla				;get text length
		sta	pname			;and save

		pha				;space for result
		pha
		PushZLong <LEField		;handle to Line Edit record
		_LEGetTextHand
		pla				;get handle to text
		sta	<Temp
		pla
		sta	<Temp+2

		lda	[<Temp]			;dereference the text handle
		tax
		ldy	#2
		lda	[<Temp],y
		sta	<Temp+2
		stx	<Temp

		sep	#$30			;go into 8-bit mode
		longa	off
		longi	off

		ldy	pname			;get length of text
		dey
loop		lda	[<temp],y		;move text
		sta	pname+1,y
		dey
		bpl	loop

		rep	#$30			;go back to 16-bit mode
		longa	on
		longi	on

exit		rts

		ENDP


;==================================================
;	   Draw	the contents of	the dialog
;==================================================

DrawDiaGuts	PROC

		stz	<CntlFlag

CtlLoop		jsr	GetData			;Get control type.
		bmi	ListDone
		tax
		jsr	(ctltypes,x)		;Call dialog item creator.
		bra	CtlLoop
ListDone 

		pei	<diaWind+2
		pei	<diaWind
		_DrawControls			;force controls to be drawn

		lda	<LEfield+1		;Is there a line edit field?
		beq	exit

		pei	<LEfield+2
		pei	<LEfield
		_LEUpdate

exit		rts

		ENTRY	ReDrawDiaGuts		;Added 05/10/88 DJB
ReDrawDiaGuts
		jsr	GetData			;Get control type.
		bmi	exit
		tax
		jsr	(ctltypes,x)		;Call dialog item creator.
		bra	ReDrawDiaGuts 


;---------- Jump Table ---------------------------------------------------------

ctltypes
		DC.W	_Text			;type 0
		DC.W	_BoldText		;type 2
		DC.W	_StdBtn			;type 4
		DC.W	_SpecialBtn		;type 6
		DC.W	_RadioBtn		;type 8
		DC.W	_Icon			;type 10
		DC.W	_LineEdit		;type 12
		DC.W	_Box			;type 14
		DC.W	_Jump			;type 16
		DC.W	_CheckBox		;type 18
		DC.W	_ThermoDial		;type 20  (Added 05/09/88 DJB)
		DC.W	_SpecialText		;type 22  (Added 05/10/88 DJB)


; --------- Special Text String ---------------------- Added 05/10/88 DJB --
_SpecialText 
		jsr	GetData			;get text width
		sta	<CtlRect+X2
		jsr	GetData			;get text height
		sta	<CtlRect+Y2
		jsr	GetData			;get top of text
		sta	<CtlRect+Y1
		clc
		adc	<CtlRect+Y2		;add text height
		sta	<CtlRect+Y2		;to get bottom of text
		jsr	GetData			;get left side of text
		sta	<CtlRect+X1
		clc
		adc	<CtlRect+X2		;add text width
		sta	<CtlRect+X2		;to get right side of text
		lda	#1
		sta	<NumItems
		stz	<TextLen		;length of text
		stz	<Just			;left justified

strLoop		jsr	GetData			;get address of string
		sta	<StringPtr
		cmp	#18			;dialog text string?
		bcc	strCont			;no
		lda	#18			;yes - so set X correctly
strCont		tax
		jsr	(StringType,x)		;copy string into text
		dec	<NumItems		;done with all strings?
		bne	strLoop			;no

		PushZWord <CtlRect+X1
		lda	<CtlRect+Y1
		adc	#8
		pha
		_MoveTo
		
		PushPtr	TextStr			;ptr to text string
		PushZWord <TextLen		;length of text string
		_DrawText			;draw the text
		
		PushZPtr <CtlRect		;ptr to text rect
		_GetPen
		lda	<CtlRect+Y1
		sec
		sbc	#8
		sta	<CtlRect+Y1
		PushZPtr <CtlRect		;ptr to text rect
		_EraseRect
		
		rts
		
; --------- Text String	-------------------------------------------

_Text 
		jsr	GetData			;get top of text
		sta	<CtlRect+Y1

		jsr	GetData			;get left side of text
		sta	<CtlRect+X1

		lda	<DiaSize+Y1		;get bottom of dialog window
		sta	<CtlRect+Y2

		sec
		lda	<DiaSize+X1		;get right side of dialog window
		sbc	#10
		sta	<CtlRect+X2

		jsr	GetData			;get # of strings
stringCount	sta	<NumItems
		stz	<TextLen		;length of text
		stz	<Just			;left justified

StringLoop	jsr	GetData			;get address of string
		sta	<StringPtr
		cmp	#18			;dialog text string?
		bcc	JmpString		;no
		lda	#18			;yes - so set X correctly
JmpString	tax
		jsr	(StringType,x)		;copy string into text
		dec	<NumItems		;done with all strings?
		bne	StringLoop		;no

		PushPtr	TextStr			;ptr to text string
		PushZWord <TextLen		;length of text string
		PushZPtr <CtlRect		;ptr to text rect
		PushZWord <Just			;justification
		_LETextBox2			;draw the text
		rts

;-------------------------------------------------------------------------------

StringType	DC.W	xString1		;0
		DC.W	xString2		;2
		DC.W	xVolName1		;4
		DC.W	xVolName2		;6
		DC.W	xFileName1		;8
		DC.W	xFileName2		;10
		DC.W	xDecNum			;12
		DC.W	xHexNum			;14
		DC.W	xCentered		;16
		DC.W	xRegString		;18

;-------------------------------------------------------------------------------

xString1
		lda	<String1Ptr		;set up ptr to first string input
		sta	<StringPtr
		lda	<String1Ptr+2
		sta	<StringPtr+2
		jsr	CopyString		;copy pathname into text
		rts

;-------------------------------------------------------------------------------

xString2 
		lda	<String2Ptr		;set up ptr to second string input
		sta	<StringPtr
		lda	<String2Ptr+2
		sta	<StringPtr+2
		jsr	CopyString		;copy pathname into text
		rts

;-------------------------------------------------------------------------------

xVolName1
		lda	<String1Ptr		;set up ptr to first string input
		sta	<StringPtr
		lda	<String1Ptr+2
		sta	<StringPtr+2

xVolName

		lda	[<StringPtr]		;Is the string a pathname?
		and	#$FF00
		cmp	#SEPARATOR<<8		;Must start with a separator.
		beq	done3
		brl	CopyString		;Take string as is if not a pathname.


done3		lda	[<StringPtr]		;get length of pathname and leading separator
		pha				;and save
		ldy	#1

		sep	#$30			;go into 8-bit mode
		LONGA	off
		LONGI	off

VolLoop		iny				;extract volume name from pathname
		tya
		cmp	1,s			;at end of pathname?
		beq	GotVol			;yes
		lda	[<StringPtr],y
		cmp	#SEPARATOR		;at end of volume name?
		bne	VolLoop			;no
		dey				;don't count ending separator


GotVol
		rep	#$30			;go back to 16-bit mode
		LONGA	on
		LONGI	on

		tya				;get volume name length
		and	#$00FF			;clear hi byte
		ora	#$2200			;put double-quote char in hi byte
		sta	[<StringPtr]		;store over original length and separator

		jsr	CopyString		;copy volume name into text
		jsr	AddQuoteMark		;add double-quote mark after vol name

		pla
		sta	[<StringPtr]		;restore original length of pathname
		rts				;and leading separator

;-------------------------------------------------------------------------------

xVolName2
		lda	<String2Ptr		;set up ptr to second string input
		sta	<StringPtr
		lda	<String2Ptr+2
		sta	<StringPtr+2
		bra	xVolName

;-------------------------------------------------------------------------------

xFileName1
		lda	<String1Ptr		;set up ptr to first string input
		sta	<StringPtr
		lda	<String1Ptr+2
		sta	<StringPtr+2

xFileName					; 
		lda	[<StringPtr]		;get length of pathname
		and	#$00FF
		tay				;make sure hi byte of Y is 0
		ldx	#0			;make sure both bytes of X are 0

		sep	#$30			;go into 8-bit mode
		LONGA	off
		LONGI	off

FileLoop					; extract local	filename from pathname
		lda	[<StringPtr],y		;by working backwards from end of string
		cmp	#SEPARATOR		;until a separator is found
		beq	GotName
		inx				;increment # of chars in filename
		dey
		bne	FileLoop

GotName
		txa				;store length of filename where the
		sta	[<StringPtr],y		;separator used to be

		rep	#$30			;go back	to 16-bit mode
		LONGA	on
		LONGI	on

		tya				;offset to start of filename
		clc				;create ptr to filename
		adc	<StringPtr
		sta	<StringPtr
		lda	<StringPtr+2
		adc	#0
		sta	<StringPtr+2

		ldy	#1			;Is the string already in quotes.
		lda	[<StringPtr],y
		and	#$00FF
		cmp	#$0022
		bne	done1
		jsr	CopyString
		bra	done2
;
done1		jsr	AddQuoteMark		;add double-quote mark before filename
		jsr	CopyString		;copy filename into text
		jsr	AddQuoteMark		;add double-quote mark after filename

done2		sep	#$30			;go into 8-bit mode
		LONGA	off
		LONGI	off

		lda	#SEPARATOR		;GS/OS separator character
		sta	[<StringPtr]		;restore it

		rep	#$30			;go back to 16-bit mode
		LONGA	on
		LONGI	on

		rts

;-------------------------------------------------------------------------------

xFileName2
		lda	<String2Ptr		;set up ptr to second string input
		sta	<StringPtr
		lda	<String2Ptr+2
		sta	<StringPtr+2
		bra	xFileName

;-------------------------------------------------------------------------------

xDecNum
		lda	#8
		sta	strgNum0		;length of decimal string

		PushZLong <Number		;number to convert
		PushPtr	StrgNum1		;ptr to string
		pea	8			;max length of string
		pea	0			;unsigned number
		_Long2Dec			;convert number to decimal string

		lda	#StrgNum0
		sta	<StringPtr		;set up ptr to dec string
		lda	#^StrgNum0
		sta	<StringPtr+2
		brl	CopyString		;copy string into text

;-------------------------------------------------------------------------------

xHexNum
		lda	#4
		sta	strgNum0		;length of hex string

		pha				;space for result
		pha
		PushZWord <Number		;number to convert
		_HexIt				;convert number to hex string
		pla
		sta	strgNum1
		pla
		sta	strgNum1+2

		lda	#StrgNum0
		sta	<StringPtr		;set up ptr to hex string
		lda	#^StrgNum0
		sta	<StringPtr+2
		brl	CopyString		;copy string into text

;-------------------------------------------------------------------------------

xCentered 
		lda	#1
		sta	<Just			;center justification
		lda	<DiaSize+X1		;set right side of text rect to right
		sta	<CtlRect+X2		;side of dialog window so text will
		rts				;center correctly

;-------------------------------------------------------------------------------

xRegString
		lda	#^StringBase
		sta	<StringPtr+2		set hi word of stringptr correctly
		jsr	CopyString		copy string into text
		rts

;-------------------------------------------------------------------------------

AddQuoteMark
		ldx	<TextLen		get length of text
		inc	<TextLen		increment length of text
		lda	#'"'
		sta	TextStr,x		add a double-quote character
		rts

;-------------------------------------------------------------------------------

CopyString 
		lda	[<StringPtr]		get length of string
		and	#$00FF			mask off hi byte
		beq	CopyDone		quit if	length is 0
		tay
		clc
		adc	<TextLen		and add	to current length of text
		cmp	#MaxString		String too big?
		bcs	CopyDone		If too big, don't add string.
		sta	<TextLen		to create new length of	text
		tax
		dex				no length byte in text

		sep	#$20			Acc = 8	bits.
		LONGA	off

CopyLoop	lda	[<StringPtr],y		copy string
		sta	TextStr,x		into text
		dex
		dey				done with string?
		bne	CopyLoop		no

		rep	#$20			go back	to 16-bit mode
		LONGA	on
CopyDone	rts


; --------- Bold Text String ------------------------------------

_BoldText 
		pea	1			;Bold text
		_SetTextFace

		jsr	_Text			;Print the text

		pea	0			;Normal text
		_SetTextFace
		rts


; --------- Standard Buttons ----------------------------------------

_StdBtn						; 
		inc	<CntlFlag
		jsr	GetData			get button width
		sta	<BtnWidth
		jsr	GetData			get # of buttons
		sta	<NumItems
		tax

		sec
		lda	<DiaSize+X1		get width of dialog window
SubLoop		sbc	<BtnWidth		subtract width of button
		dex				done with all buttons?
		bne	SubLoop			no
		sta	<BtnSpace		result=amount of space not used	by btns

		lda	<NumItems		get # of buttons
		asl	a			multiply by 2
		tax
		jsr	(BtnCalc,x)		calculate space	between	buttons

		stz	<CtlRect+X2

		sec
		lda	<DiaSize+Y1		get height of dialog window
		sbc	#5			subtract 5
		sta	<CtlRect+Y2		to get bottom of buttons
		sbc	#15			subtract standard button height
		sta	<CtlRect+Y1		to get top of buttons

StdBtnLoop					; 
		clc
		lda	<CtlRect+X2		get current right side of button
		adc	<BtnSpace		add space between buttons
		sta	<CtlRect+X1		to get left side of next button
		adc	<BtnWidth		add button width
		sta	<CtlRect+X2		to get right side of next button

		stz	<BtnFlag		Flag is	0 for normal round buttons
		stz	<BtnValue		Value is 0 for standard	buttons
		stz	<BtnDefProc		DefProc	is 0 for standard buttons

		lda	(<Template)		get adrs of title of button
		cmp	#4			is button normal round?
		bcs	ItsNormal1		yes
		sta	<BtnFlag		no - so	set Flag to button type
		jsr	GetData			skip over button type info
ItsNormal1					; 

		jsr	MakeButton		make the button

		dec	<NumItems		done with all buttons in list?
		bne	StdBtnLoop		no
		rts

;-------------------------------------------------------------------------------

BtnCalc		DC.W	0			;0
		DC.W	_OneBtn			;2
		DC.W	_TwoBtns		;4
		DC.W	_ThreeBtns		;6

;-------------------------------------------------------------------------------

_OneBtn 
		lda	<BtnSpace		;get remaining space
		lsr	a			;divide by 2
		sta	<BtnSpace		;to get space between buttons
		rts

;-------------------------------------------------------------------------------

_TwoBtns 
		pha				;space for result
		pha
		PushZWord <BtnSpace		;get remaining space
		PushWord #3			;devide by 3
		_UDivide
		pla
		sta	<BtnSpace		;to get space between buttons
		pla				;ignore remainder
		rts

;-------------------------------------------------------------------------------

_ThreeBtns
		lda	<BtnSpace		;get remaining space
		lsr	a
		lsr	a			;divide by 4
		sta	<BtnSpace		;to get space between buttons
		rts

; --------- Special Buttons -------------------------------------

_SpecialBtn
		inc	<CntlFlag
		jsr	GetData			get button width
		sta	<BtnWidth
		jsr	GetData			get button height
		sta	<BtnHeight
		jsr	GetData			get # of buttons
		sta	<NumItems

SpecBtnLoop 
		jsr	GetData			get top	side
		sta	<CtlRect+y1
		clc
		adc	<BtnHeight		add button height
		sta	<CtlRect+y2		to get bottom side

		jsr	GetData			get left side
		sta	<CtlRect+x1
		clc
		adc	<BtnWidth		add button width
		sta	<CtlRect+x2		to get right side

		stz	<BtnFlag		Flag is	0 for normal round buttons
		stz	<BtnValue		Value is 0 for standard	buttons
		stz	<BtnDefProc		DefProc	is 0 for standard buttons

		lda	(<Template)		get adrs of title of button
		cmp	#4			is button normal round?
		bcs	ItsNormal2		yes
		sta	<BtnFlag		no - so	set Flag to button type
		jsr	GetData			skip over button type info
ItsNormal2					; 

		jsr	MakeButton		make the button

		dec	<NumItems		done with all buttons in list?
		bne	SpecBtnLoop		no
		rts


; --------- Radio Buttons ---------------------------------------

_RadioBtn
		inc	<CntlFlag
		lda	<RadioIn		Get info about which btns should be on
		sta	<RadioOut		and init info for 'GetRadioInfo'.
		lda	<RadioIn+2
		sta	<RadioOut+2

		jsr	GetData			Get number of buttons.
		sta	<NumItems

RadioBtnLoop 
		jsr	getData			Get top	side.
		sta	<ctlRect+y1
		jsr	getData			Get left side.
		sta	<ctlRect+x1
		stz	<ctlRect+y2		Let Control Manager compute the	bottom
		stz	<CtlRect+x2		and right sides.

		stz	<BtnValue
		lda	#$0400
		sta	<BtnDefProc

		ldy	#2
		lda	(<Template),y		Get ID number.
		and	#$FF00			Get family number.
		xba
		sta	<BtnFlag
		tax
		lda	(<Template),y		Get ID number.
		and	#$00FF			Mask off family	number.
		cmp	<RadioIn,x		Should this button be on?
		bne	NotOn			No.
		inc	<BtnValue		Yes.
NotOn

		jsr	MakeButton		Make the radio button.

		dec	<NumItems		Done with all buttons in list?
		bne	RadioBtnLoop		no
		rts


; --------- Draw an Icon  ----------------------------------

_Icon

		jsr	getData			a = address of icon image data
		
		tax		
		lda	|$0000,x
		sta	imageRect+y2
		inx
		inx
		lda	|$0000,x
		sta	width
		inx
		inx
		stx	image

		asl	a			Compute	width in pixels.
		asl	a
		sta	imageRect+x2

		pea	LocInfo>>16		Pass pointer to	parameter block.
		pea	LocInfo
		pea	imageRect>>16		Pass pointer to	source RECT.
		pea	imageRect
		pea	8			Pass X position.
		pea	4			Pass Y position. 
		pea	0			Pass mode (normal copy).
		_PPToPort			Blit.

		rts

LocInfo		DC.B	$80,$00			SCB (640 mode).
image		DC.L	DISKICON		Pointer	to pixel image.
width		DC.W	0			Width of image.
imageRect	DC.W	0,0,0,0			Bounds RECT of image.


; --------- Create a line edit field ----------------------------------

_LineEdit	
		inc	<CntlFlag

		pha				Space for result.
		pha

		ldy	#5			Push 5 words.
lop200		jsr	getData
		pha
		dey
		bne	lop200

		sta	<temp			Save max length.

		_LENew
		pla
		sta	<LEfield
		plx
		stx	<LEfield+2
;
		phx
		pha
		_LEActivate
;
;
		jsr	GetData			Get address of text. If	it's 0, then a
		beq	UseStr1Ptr		string ptr was passed as input param 1.
		cmp	#2
		beq	UseStr2Ptr		string ptr was passed as input param 2.
		pea	DiaData>>16		push hi	word of	ptr to default text
		pha				push lo	word of	ptr to default text
		ldy	#0
		lda	(1,s),y			get length of text
		and	#$00FF			mask off hi byte
		pha				and push
		lda	3,s			get lo word of ptr to text
		inc	a			adjust ptr to not include length byte
		sta	3,s			and save
		bra	LECont

UseStr1Ptr	pei	<String1Ptr+2		push hi	word of	ptr to default text
		lda	<String1Ptr		adjust lo word of ptr to not include
		inc	a			length byte
		pha				and push
		lda	[<String1Ptr]		get length of text
		and	#$00FF			mask off hi byte
		pha				and push
		bra	LECont

UseStr2Ptr	pei	<String2Ptr+2		push hi	word of	ptr to default text
		lda	<String2Ptr		adjust lo word of ptr to not include
		inc	a			length byte
		pha				and push
		lda	[<String2Ptr]		get length of text
		and	#$00FF			mask off hi byte
		pha				and push

LECont		pei	<LEfield+2
		pei	<LEfield
		_LESetText

		pea	0			Select from beginning,
		pei	<temp			to end (saved max length).
		pei	<LEfield+2
		pei	<LEfield
		_LESetSelect

		rts


; --------- Frame a box	 ----------------------------------

_box
		pea	3
		pea	1
		_SetPenSize

		pea	DiaData>>16
		jsr	getData
		pha
		_FrameRect
		rts


; --------- Change list	pointer	----------------------------

_jump		jsr	getData			Value become new list pointer.
		sta	<template
		rts
		

; --------- Check boxes	---------------------------------------

_CheckBox	
		inc	<CntlFlag		Set 'control to monitor' global	flag.

		jsr	GetData			Get number of boxes.
		sta	<NumItems

lop100		jsr	getData			Get top	side.
		sta	<ctlRect+y1
		jsr	getData			Get left side.
		sta	<ctlRect+x1
		stz	<ctlRect+y2		Let Control Manager compute the	bottom
		stz	<CtlRect+x2		and right sides.

		lda	#$0200			Check box defProc number.
		sta	<BtnDefProc

		stz	<BtnValue
		lsr	<RadioIn		Should this box	be checked?
		bcc	skip100
		inc	<BtnValue		Yes.

skip100		jsr	MakeButton		Make the check box.

		dec	<NumItems		Any more check boxes?
		bne	lop100
		rts

; --------- ThermoDial Control ------------------  Added 05/09/88 DJB

_ThermoDial
		lda	DialHandle		;is there a ThermoDial already?
		ora	DialHandle+2
		beq	new			;no - so create one
		jsr	GetData			;remove data
		jsr	GetData
		jsr	GetData
		jsr	GetData
		
		
		lda	DialMax
		sec
		sbc	DialValue		;current value
		pha				;new dial value
		lda	DialHandle+2
		pha
		lda	DialHandle
		pha
		_SetCtlValue			;update dial's value
		bra	done
new
		jsr	GetData			;get dial width
		sta	<BtnWidth
		jsr	GetData			;get dial height
		sta	<BtnHeight

		jsr	GetData			;get top side
		sta	<CtlRect+y1
		clc
		adc	<BtnHeight		;add dial height
		sta	<CtlRect+y2		;to get bottom side

		jsr	GetData			;get left side
		sta	<CtlRect+x1
		clc
		adc	<BtnWidth		;add dial width
		sta	<CtlRect+x2		;to get right side

		pha				;space for result
		pha
		pei	<DiaWind+2		;Window owner
		pei	<DiaWind
		lda	#CtlRect		;pass pointer to enclosing RECT.
		jsr	pushzpage
		pea	$0000			;(not used)		
		lda	DialMax			;get dial's maximum value
		pha		
		pea	$0001			;dial type (horizontal)
		sec
		sbc	DialValue		;current value
		pha				;dial's start value
		pea	$0000			;param1 (not used)
		pea	$0000			;param2 (not used)
		pea	ThermoDialProc>>16	;defProc for ThermoDial
		pea	ThermoDialProc
		pea	$0000			;refCon	(not used)
		pea	$0000
		pea	DialColor>>16		;color table ptr
		pea	DialColor
		_NewControl
		pla				;get handle to control
		sta	DialHandle
		pla
		sta	DialHandle+2
done
		rts


; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = =
;	   Create a button
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = =

MakeButton

		pha				Space for result.
		pha
		pei	<DiaWind+2		Window owner.
		pei	<DiaWind
		lda	#CtlRect		Pass pointer to	enclosing RECT.
		jsr	pushzpage
		pea	StringBase>>16		Pass pointer to	title string.
		jsr	GetData
		pha
		pei	<BtnFlag		Pass flag.
		ldy	#0
		pei	<BtnValue		Pas value.
		phy				Param1.
		phy				Param2.
		pei	<BtnDefProc		Pass defProc.
		phy
		phy				Refcon.
		jsr	GetData			ID number.
		sta	<BtnID
		pha
		phy				Default	color table.
		phy
		_NewControl
		pla				Get handle to control.
		plx

		ldy	<BtnFlag		Was that a default button?
		beq	cont			no
		sta	<DefaultBtn		Remember default button's handle.
		stx	<DefaultBtn+2

cont		ldy	<BtnID			; was that a cancel button ?
		cpy	#CancelID
		bne	NotDef2			;no
		sta	<CancelBtn		Remember cancel button's handle.
		stx	<CancelBtn+2
NotDef2

		rts

		ENDP

;==================================================
;	   Monitor the controls	in the dialog
;==================================================

MonitorDia	PROC

*		using DiaData
*		using ZP_Two

		lda	<CntlFlag		any controls to	monitor?
		bne	MonitorDialog		yes - so continue
		stz	<ItemID			no - so	return 0 as item ID
		rts
		
;------------------------------------------------
		ENTRY	CheckDia		;Added 05/10/88 DJB
CheckDia      
		lda	<CntlFlag		;any controls to monitor?
		beq	CheckExit		;no - so exit
		
		ENTRY	CheckMLDialog		;Added 05/10/88 DJB
CheckMLDialog      
		lda	#$FFFF
		sta	<Modeless
		bra	mdStart
CheckExit	lda	#0
		stz	<ItemID			;return 0 as item ID
		rts
		
;------------------------------------------------

		ENTRY	MonitorDialog
MonitorDialog   

		stz	<Modeless
mdStart		
		lda	#%1000000000000110	;Update and find window only.
		sta	<TaskMask

poll		lda	<LEfield+1		;Is there a line edit field?
		beq	skip1

		pei	<LEfield+2		;Let line edit blink cursor.
		pei	<LEfield
		_LEIdle
;
skip1		pha				;Space for result.
;		pea	$0F6E			;Event mask -- take everything
		pea	$0E2E			;MouseDown, MouseUp, KeyDown, AutoKey
;						;Switch, deskAcc, Driver 
		jsr	pushTask		;Pass pointer to Task record.
		_TaskMaster
		pla
		bne	handevnt
		lda	<Modeless
		beq	poll
		bra	CheckExit
;
;
; --- Handle event ----------------------------------------------------
;
handevnt	cmp	#wInContent
		beq	buttDown
		cmp	#inKey
		beq	doKey
		cmp	#inAutoKey
		beq	doKey
		lda	<what
		cmp	#mouseDownEvt
		bne	poll
		_SysBeep			;added 05/11/88 DJB
		bra	poll
;
;
; ------ Key input ----------------------------------------------------

doKey		lda	<message		Get key.
		cmp	#13			Is it the return key?
		bne	cont11
		lda	<DefaultBtn
		ldx	<DefaultBtn+2
		beq	flashErr
		tay
		beq	flashErr

useKey		sta	<foundCtl
		stx	<foundCtl+2	
		pea	2			;pass part to hiLite (simple button part code)
		phx				;pass control's
		pha
		_HiliteControl			;hilite the default button so user will be happy
		brl	exit

;------- DJB ------
cont11		cmp	#27			; is it the ESC key?
		bne	ok11
		lda	<CancelBtn
		ldx	<CancelBtn+2
		beq	flashErr
		tay
		beq	flashErr
		bra	useKey
		
;------------------
ok11		lda	<LEfield+1		Is there a line	edit field?
		bne	ok10

flashErr	_SysBeep			; was a _FlashMenuBar before
		bra	topoll

ok10		jsr	FilterProc		check to see if	key is allowed
		bcs	topoll			key isn't allowed so skip it
		pei	<message		Pass key.
		pei	<modifiers		Pass key modifiers.
		pei	<LEfield+2		Pass handle of line edit.
		pei	<LEfield
		_LEKey
topoll		brl	poll
;
;
; ------- Handle button	down in	content	--------------------------------
;
buttDown	pha				Space for result.
		lda	#foundCtl		Pass address of	place to store handle.
		jsr	pushzpage
		pei	<xrat			Pass position of button	down.
		pei	<yrat
		pei	<diaWind+2		Pass control's window.
		pei	<diaWind
		_FindControl
		pla				Any hit?
		bne	trackit
;
		lda	<LEfield+1		Is there a line	edit field?
		beq	topoll
		jsr	ck_LE			Check if button	down in	line edit.
		bra	topoll
;
trackit		pha				Space for result.
		pei	<xrat			Pass position of button	down.
		pei	<yrat
		lda	#0			Pass no	action procedure.
		pha
		pha
		pei	<foundCtl+2		Pass handle of control to track.
		pei	<foundCtl
		_TrackControl
		pla
		beq	topoll

		cmp	#4			Was hit	on a radio button?
		bne	next1			No.
;
		pea	$FFFF			Pass TRUE to turn on.
		pei	<FoundCtl+2		Pass control's handle.
		pei	<FoundCtl
		_SetCtlValue			Turn radio button on.
;
		pha				Space for result
		pha
		pei	<FoundCtl+2		Pass control's handle.
		pei	<FoundCtl
		_GetCtlRefCon			Get control's refcon.
		lda	1,s
		and	#$FF00			Get family number.
		xba
		tax
		pla
		and	#$00FF			get ID #
		sta	<RadioOut,x		and save
		plx
		bra	topoll


next1		cmp	#3			Was it a hit in	a check	box.
		bne	exit

		pha				Space for result.
		pei	<FoundCtl+2		Pass control's handle.
		pei	<FoundCtl
		_GetCtlValue
		pla
		eor	#1
		pha
		pei	<FoundCtl+2		Pass control's handle.
		pei	<FoundCtl
		_SetCtlValue

exit		pha				Space for result.
		pha
		pei	<foundCtl+2		Pass handle of control to track.
		pei	<foundCtl
		_GetCtlRefCon			Get control's refCon.
		pla				Control's ID number.
		sta	<ItemID
		plx
		rts
;
;
;= = = = = = = = = = = = = = = = = = =
;	 Filter	Proc
;= = = = = = = = = = = = = = = = = = =
; Liberally hacked 25-Jan-89 by JAM.  Forgive me, God.
;   This must be rethought and rewritten when we get
;   FST support for filesystem lexical enforcement
FilterProc					; 

		ldx	#10
		lda	<Message		get key
KeyLoop		cmp	SpecialKeys,x		is it a	special	key?
		beq	KeyOK			yes - so it's OK
		dex
		dex
		bpl	KeyLoop
; JAM 25-Jan-89:  following code enforces ProDOS lexical rules, but is not
;   applicable to all filesystems.  IÕm leaving it here for reference.
;		cmp	#'.'			is it a	period?
;		beq	CheckPos		yes - so check if first	char
;		cmp	#'0'
;		bcc	BadKey
;		cmp	#'9'+1			is it a	digit?
;		bcc	CheckPos		yes - so check if first	char
;		cmp	#'A'
;		bcc	BadKey
;		cmp	#'Z'+1			is it a	capital	letter?
;		bcc	KeyOK			yes - so it's OK
;		cmp	#'a'
;		bcc	BadKey
;		cmp	#'z'+1			is it a	lower-case letter?
;		bcs	BadKey
;		sec
;		sbc	#$20			yes - so convert it to upper case
;		sta	<Message
;  END OF ARCHIVAL SECTION 25-Jan-89


; JAM 25-Jan-89:  In Finder 1.3, we will permit practically anything to go through
;   and sort it out later.  Future Finders may be more intelligent when FSTs provide
;   lexical arbitrators.
		cmp	#' '			; is it greater or equal to blank?
		bcc	BadKey			; nope
		cmp     #127			; is it less than DEL? (regular ASCII?)
		bcc	KeyOK			; yep, so is potentially "legal"
		cmp	#$FA			; is it greater Mac can display?
		bcs	BadKey			; yep, so you gotta draw the line somewhere
		
KeyOK		clc				indicate that key is OK
		rts
		
		
; JAM 25-Jan-89: More archival stuff
;    The following code again enforces ProDOS lexical restrictions and
;    is inappropriate for Finder 1.3
;** Note	- the following	section	of code	looks at the contents of the
;**	  Line Edit record directly and	will no	longer work if the
;**	  offset to the	SelStart field changes.

;CheckPos	lda	[<LEField]		get pointer to Line Edit record
;		sta	<Temp
;		ldy	#2
;		lda	[<LEField],y
;		sta	<Temp+2
;		ldy	#32			offset to SelStart field
;		lda	[<Temp],y		get SelStart field from	Line Edit record
;		bne	KeyOK			not first char so key is allowed
;BadKey
;		sec				indicate that key is not allowed
;		rts
; END JAM 25-Jan-89 archival stuff

BadKey						; JAM 25-Jan-89 version - no holds barred
		lda	#'.'
		sta	<Message		; replace bad key w/something visible
		clc				;   and acceptable to all filesystems
		rts


SpecialKeys	DC.W	$06			control-F
		DC.W	$18			control-X
		DC.W	$19			control-Y
		DC.W	$7F			backspace
		DC.W	$08			left arrow
		DC.W	$15			right arrow

		ENDP



;=========================================
;	   Check button	down
;	   in line edit	fields.
;=========================================
;
;   IN:	   yrat	= y coordinate to check	(in global).
;	   xrat	= x coordinate to check	(in global).

ck_LE		PROC
*	   using DiaData
*	   using ZP_Two

TextHandle	equ	0
Length		equ	TextHandle+4
MaxLength	equ	Length+2
DestRect	equ	MaxLength+2
ViewRect	equ	DestRect+8
;
;
		lda	<yrat			Save global rat	position.
		sta	<temp
		lda	<xrat
		sta	<temp+2
;
		jsr	pushyrat
		_GlobalToLocal
;
		pha				Space for result (PtInRect).
		jsr	pushyrat		Pass pointer to	point to check.
;
		ldy	#4			Lock line edit handle.
		lda	[<LEfield],y
		ora	#$8000
		sta	[<LEfield],y
;
		dey				Dereference handle.
		dey
		lda	[<LEfield],y
		tax
		lda	[<LEfield]
		clc				Compute	address	of viewRect.
		adc	#viewRect
		bcc	ok1
		inx
ok1		phx				Pass pointer to	RECT to	check.
		pha
		_PtInRect
;
		ldy	#4			Unlock line edit handle.
		lda	[<LEfield],y
		and	#$7FFF
		sta	[<LEfield],y
;
		pla				Get result.
		beq	exit			Was the	point in the RECT?
;
		lda	<temp			Restore	global rat position.
		sta	<yrat
		lda	<temp+2
		sta	<xrat
;
		jsr	pushTask		Pass pointer to	Task record.
		pei	<LEfield+2
		pei	<LEfield
		_LEClick
;			  
exit		rts
		ENDP



;==================================================
;	   Handle update event
;==================================================

UpdateEvent	PROC

		rtl
		
		ENDP

;=========================================================
;	   Move	saved Line Edit	text into destination.
;=========================================================
;
;   IN : LONG =	ptr to destination string
;
;=========================================================

GetName		PROC

DestPtr		equ	10

		phd				Save original direct page.
		phb				Save original data bank.
		phk				Use this data bank.
		plb

		clc
		adc	#$0100			Use direct page	after CDU.
		tcd

		lda	DestPtr,s		get ptr	to destination string
		sta	<DesPtr
		lda	DestPtr+2,s
		sta	<DesPtr+2

		sep	#$30			go into	8-bit mode
		longa	off
		longi	off

		ldy	pname			get length of text
loop		lda	pname,y			move text to destination
		sta	[<desPtr],y
		dey
		bpl	loop

		rep	#$30			go back	to 16-bit mode
		longa	on
		longi	on

		jmp	StdEnd4
		
		ENDP


;=========================================================
;	   Indicate which radio	button should be on
;=========================================================
;
;   IN : WORD =	family #
;   IN : WORD =	ID # of	button which should be on
;
;=========================================================

SetRadioBtn	PROC

*		using DiaData
*		using ZP_Two

IDNum		equ	10
FamNum		equ	IDNum+2

		phd				Save original direct page.
		phb				Save original data bank.
		phk				Use this data bank.
		plb

		clc
		adc	#$0100			Use direct page	after CDU.
		tcd

		lda	FamNum,s		get family #
		tax
		lda	IDNum,s			get ID # of button which should	be on
		sta	<RadioIn,x		and save it

		jmp	StdEnd4
		
		ENDP


;=========================================================
;	   Set the maximum value for the Thermo Dial
;=========================================================
;
;   IN : WORD =	Maximum value
;
;=========================================================

SetDialMax	PROC


value		equ	10

		phd				Save original direct page.
		phb				Save original data bank.
		phk				Use this data bank.
		plb

		clc
		adc	#$0100			Use direct page	after CDU.
		tcd

		lda	value,s			;get value and save it
		sta	DialMax

		ldy	#2
		jmp	StdEnd
		
		ENDP


;=========================================================
;	   Return ID of	radio button which is on
;=========================================================
;
;   IN : WORD =	family # to return info	about
;
;   OUT: WORD =	ID # of	button which is	on
;
;=========================================================

GetRadioBtn	PROC
*	       using DiaData
*	       using ZP_Two

FamNum		equ	10
Result		equ	FamNum+2

		phd				Save original direct page.
		phb				Save original data bank.
		phk				Use this data bank.
		plb

		clc
		adc	#$0100			Use direct page	after CDU.
		tcd

		lda	FamNum,s		get family #
		tax
		lda	<RadioOut,x		get ID # of button which is on
		sta	Result,s

		ldy	#2
		jmp	StdEnd
		ENDP



;====================================================
;	   Get a WORD from the dialog list.
;====================================================

GetData		PROC
*	   using DiaData
*	   using ZP_Two

		lda	(<template)
		pha
		inc	<template
		inc	<template
		pla				;Make sure flags are set correctly
		rts
		
		ENDP


;=========================================
;	   Push	a direct page
;	   address on the stack.
;=========================================
;
;   IN:	   a = direct page offset.
;
;=========================================

pushyrat	PROC

*		using DiaData
*		using ZP_Two

		lda	#yrat
		bra	pushzpage

		ENTRY	pushTask
pushTask      

		lda	#TaskRec

		ENTRY	pushzpage
pushzpage      

		plx

		pea	0

		pha
		tdc
		clc
		adc	1,s
		sta	1,s

		phx
		rts
		
		ENDP


****************************************************************
*
* FINDER DIALOG	DATA
*
****************************************************************

Dialogs		PROC


; --- Dialog Item Types	-----------------------------



; --- Special Text Types -----------------------------



; --- 3.5" disk	icon ---------------------------------

		ENTRY	DISKICON	;(new one)
DISKICON	DC.W	19,12
		DC.B	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
		DC.B	$0F,$F0,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$0F,$F0
		DC.B	$0F,$F0,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$0F,$F0
		DC.B	$0F,$F0,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$0F,$F0
		DC.B	$0F,$F0,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$0F,$F0
		DC.B	$0F,$F0,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$0F,$F0
		DC.B	$0F,$F0,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$0F,$F0
		DC.B	$0F,$F0,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$0F,$F0
		DC.B	$0F,$F0,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$0F,$F0
		DC.B	$0F,$F0,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$0F,$F0
		DC.B	$0F,$F0,$00,$00,$00,$00,$00,$00,$00,$00,$0F,$F0
		DC.B	$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0
		DC.B	$0F,$FF,$FF,$00,$00,$00,$00,$00,$00,$FF,$FF,$F0
		DC.B	$0F,$FF,$FF,$00,$FF,$00,$00,$00,$00,$FF,$FF,$F0
		DC.B	$0F,$FF,$FF,$00,$FF,$00,$00,$00,$00,$FF,$FF,$F0
		DC.B	$0F,$FF,$FF,$00,$FF,$00,$00,$00,$00,$FF,$FF,$F0
		DC.B	$0F,$FF,$FF,$00,$FF,$00,$00,$00,$00,$FF,$FF,$F0
		DC.B	$F0,$FF,$FF,$00,$00,$00,$00,$00,$00,$FF,$FF,$F0
		DC.B	$FF,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00

; --- Swap disks icon --------------------------------

		ENTRY	SWAPICON
SWAPICON	DC.W	20,14
		DC.B	$FF,$FF,$FF,$FF,$F0,$00,$00,$00,$00,$00,$0F,$FF,$FF,$FF
		DC.B	$FF,$FF,$FF,$FF,$0F,$FF,$FF,$FF,$FF,$FF,$F0,$FF,$FF,$FF
		DC.B	$FF,$FF,$FF,$F0,$FF,$FF,$FF,$FF,$FF,$F0,$00,$00,$FF,$FF
		DC.B	$FF,$FF,$FF,$0F,$FF,$FF,$FF,$FF,$FF,$FF,$00,$0F,$FF,$FF
		DC.B	$FF,$FF,$FF,$0F,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF,$FF,$FF
		DC.B	$00,$00,$00,$00,$00,$00,$0F,$F0,$00,$00,$00,$00,$00,$00
		DC.B	$0F,$0F,$FF,$FF,$FF,$0F,$0F,$F0,$F0,$FF,$FF,$FF,$F0,$F0
		DC.B	$0F,$0F,$FF,$FF,$FF,$0F,$0F,$F0,$F0,$FF,$FF,$FF,$F0,$F0
		DC.B	$0F,$0F,$FF,$FF,$FF,$0F,$0F,$F0,$F0,$FF,$FF,$FF,$F0,$F0
		DC.B	$0F,$00,$00,$00,$00,$0F,$0F,$F0,$F0,$00,$00,$00,$00,$F0
		DC.B	$0F,$FF,$FF,$FF,$FF,$FF,$0F,$F0,$FF,$FF,$FF,$FF,$FF,$F0
		DC.B	$0F,$F3,$33,$33,$3F,$FF,$0F,$F0,$FF,$33,$33,$33,$FF,$F0
		DC.B	$0F,$F3,$F3,$33,$3F,$FF,$0F,$F0,$FF,$3F,$33,$33,$FF,$F0
		DC.B	$0F,$F3,$F3,$33,$3F,$FF,$0F,$F0,$FF,$3F,$33,$33,$FF,$F0
		DC.B	$F0,$00,$00,$00,$00,$00,$0F,$FF,$00,$00,$00,$00,$00,$00
		DC.B	$FF,$FF,$FF,$0F,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF,$FF,$FF
		DC.B	$FF,$FF,$F0,$00,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF,$FF,$FF
		DC.B	$FF,$FF,$00,$00,$0F,$FF,$FF,$FF,$FF,$FF,$0F,$FF,$FF,$FF
		DC.B	$FF,$FF,$FF,$0F,$FF,$FF,$FF,$FF,$FF,$F0,$FF,$FF,$FF,$FF
		DC.B	$FF,$FF,$FF,$F0,$00,$00,$00,$00,$00,$0F,$FF,$FF,$FF,$FF


; --- CAUTION icon -------------------------------------------------

		ENTRY	CAUTION		;(new one)
CAUTION		DC.W	18,10
		DC.B	$FF,$FF,$FF,$FC,$00,$00,$3F,$FF,$FF,$FF
		DC.B	$FF,$FF,$FF,$C0,$00,$00,$03,$FF,$FF,$FF
		DC.B	$FF,$FF,$FF,$00,$3E,$EC,$00,$FF,$FF,$FF
		DC.B	$FF,$FF,$FC,$00,$EE,$EE,$00,$3F,$FF,$FF
		DC.B	$FF,$FF,$F0,$03,$E0,$0E,$C0,$0F,$FF,$FF
		DC.B	$FF,$FF,$C0,$0E,$C0,$03,$E0,$03,$FF,$FF
		DC.B	$FF,$FF,$00,$3E,$C0,$03,$EC,$00,$FF,$FF
		DC.B	$FF,$FC,$00,$EE,$C0,$03,$EE,$00,$3F,$FF
		DC.B	$FF,$F0,$03,$EE,$C0,$03,$EE,$C0,$0F,$FF
		DC.B	$FF,$C0,$0E,$EE,$E0,$0E,$EE,$E0,$03,$FF
		DC.B	$FF,$00,$3E,$EE,$E0,$0E,$EE,$EC,$00,$FF
		DC.B	$FC,$00,$EE,$EE,$EC,$3E,$EE,$EE,$00,$3F
		DC.B	$F0,$03,$EE,$EE,$EE,$EE,$EE,$EE,$C0,$0F
		DC.B	$C0,$0E,$EE,$EE,$E0,$0E,$EE,$EE,$E0,$03
		DC.B	$00,$3F,$EE,$EE,$E0,$0E,$EE,$EE,$EC,$00
		DC.B	$00,$EE,$EE,$EE,$EE,$EE,$EE,$EE,$EE,$00
		DC.B	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
		DC.B	$C0,$00,$00,$00,$00,$00,$00,$00,$00,$03

; --- Note icon	--------------------------------------------------

		ENTRY	NOTEICON
NOTEICON	DC.W	18,12
		DC.B	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
		DC.B	$0F,$FF,$FF,$F0,$00,$00,$00,$00,$00,$00,$00,$00
		DC.B	$0F,$FF,$FF,$F0,$00,$00,$00,$00,$00,$00,$00,$00
		DC.B	$0F,$FF,$0F,$F0,$00,$00,$FF,$FF,$FF,$F0,$00,$00
		DC.B	$0F,$FF,$0F,$F0,$00,$0F,$FF,$FF,$FF,$FF,$00,$00
		DC.B	$0F,$FF,$FF,$F0,$00,$FF,$FF,$FF,$FF,$FF,$F0,$00
		DC.B	$0F,$FF,$FF,$F0,$00,$FF,$00,$F0,$F0,$00,$F0,$00
		DC.B	$0F,$FF,$FF,$F0,$00,$FF,$FF,$FF,$FF,$FF,$F0,$00
		DC.B	$0F,$FF,$FF,$F0,$00,$FF,$0F,$0F,$00,$F0,$F0,$00
		DC.B	$0F,$FF,$FF,$F0,$00,$FF,$FF,$FF,$FF,$FF,$F0,$00
		DC.B	$0F,$FF,$FF,$F0,$00,$FF,$00,$F0,$0F,$0F,$F0,$00
		DC.B	$0F,$FF,$00,$00,$00,$FF,$FF,$FF,$FF,$FF,$F0,$00
		DC.B	$0F,$FF,$FF,$00,$00,$FF,$FF,$FF,$FF,$FF,$00,$00
		DC.B	$0F,$FF,$FF,$00,$0F,$FF,$FF,$FF,$FF,$F0,$00,$00
		DC.B	$0F,$F0,$00,$0F,$FF,$FF,$FF,$FF,$F0,$00,$00,$00
		DC.B	$0F,$FF,$FF,$00,$00,$00,$00,$00,$00,$00,$00,$00
		DC.B	$0F,$FF,$FF,$00,$00,$00,$00,$00,$00,$00,$00,$00
		DC.B	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00

		
; --- Stop icon -------------------------------------------------------

		ENTRY	STOPICON	;(new one)
STOPICON	DC.W	18,12
		DC.B	$FF,$FF,$FF,$00,$00,$00,$00,$00,$00,$FF,$FF,$FF
		DC.B	$FF,$FF,$F0,$44,$44,$44,$00,$04,$44,$0F,$FF,$FF
		DC.B	$FF,$FF,$04,$44,$00,$00,$FF,$00,$04,$40,$FF,$FF
		DC.B	$FF,$F0,$40,$00,$0F,$F0,$FF,$0F,$F0,$44,$0F,$FF
		DC.B	$FF,$04,$40,$FF,$0F,$F0,$FF,$0F,$F0,$44,$40,$FF
		DC.B	$F0,$44,$40,$FF,$0F,$F0,$FF,$0F,$F0,$44,$44,$0F
		DC.B	$04,$44,$40,$FF,$0F,$F0,$FF,$0F,$F0,$44,$44,$40
		DC.B	$04,$44,$40,$FF,$0F,$F0,$FF,$0F,$F0,$40,$04,$40
		DC.B	$04,$44,$40,$FF,$FF,$FF,$FF,$FF,$F0,$0F,$F0,$40
		DC.B	$04,$44,$40,$FF,$FF,$FF,$FF,$FF,$0F,$FF,$F0,$40
		DC.B	$04,$44,$40,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$04,$40
		DC.B	$04,$44,$40,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$44,$40
		DC.B	$F0,$44,$40,$FF,$FF,$FF,$FF,$FF,$FF,$04,$44,$0F
		DC.B	$FF,$04,$40,$FF,$FF,$FF,$FF,$FF,$F0,$44,$40,$FF
		DC.B	$FF,$F0,$40,$0F,$FF,$FF,$FF,$FF,$04,$44,$0F,$FF
		DC.B	$FF,$FF,$04,$00,$00,$00,$00,$00,$04,$40,$FF,$FF
		DC.B	$FF,$FF,$F0,$44,$44,$44,$44,$44,$44,$0F,$FF,$FF
		DC.B	$FF,$FF,$FF,$00,$00,$00,$00,$00,$00,$FF,$FF,$FF

;
; --- ID numbers for standard buttons ---------------------
;


; --- Placement	values ------------------------------------




; --- Dialog Address Table --------------------------------

		ENTRY	DiaAddrs
DiaAddrs	DC.W	dtInit			0
		DC.W	dtInTrash		2
		DC.W	dtInitErr1		4
		DC.W	dtInitErr2		6
		DC.W	dtDiskName		8
		DC.W	dtAbout			10	;not used
		DC.W	dtEdit			12
		DC.W	dtDirWind		14
		DC.W	dtSelIcon		16
		DC.W	dtAnyWind		18
		DC.W	dtSelFile		20
		DC.W	dtDragOff		22
		DC.W	dtDiskIn		24
		DC.W	dtFileBusy		26
		DC.W	dtNoApp2		28
		DC.W	dtErase			30
		DC.W	dtTooLong		32
		DC.W	dtDragErr1		34
		DC.W	dtDragErr2		36
		DC.W	dtDragErr3		38
		DC.W	dtSysErr		40
		DC.W	dtWP			42
		DC.W	dtInsDisk		44
		DC.W	dtRepFile		46
		DC.W	dtVolFull		48
		DC.W	dtDirFull		50
		DC.W	dtNoRead1		52
		DC.W	dtChPath		54
		DC.W	dtCopying		56
		DC.W	dtCopying2		58	 ;must follow diaCopying
		DC.W	dtParents		60
		DC.W	dtType			62
		DC.W	dtRepDisk		64
		DC.W	dtLocked1		66
		DC.W	dtLocked2		68
		DC.W	dtFolder		70
		DC.W	dtNoRoom		72
		DC.W	dtDCopy			74
		DC.W	dtUnknown		76
		DC.W	dtNoMem			78
		DC.W	dtFCopy			80
		DC.W	dtNoApp			82
		DC.W	dtNumBlks		84
		DC.W	dtNumBlks2		86	 ;must follow diaNumBlks
		DC.W	dtNameDup		88
		DC.W	dtNameUsed		90
		DC.W	dtBadName		92
		DC.W	dtNoNames		94
		DC.W	dtNonRemove		96
		DC.W	dtPrefer		98
		DC.W	dtWarnDel		100
		DC.W	dtTransFile		102
		DC.W	dtSysErr			104  unused...
		DC.W	dtSysErr			106  unused...
		DC.W	dtSysErr			108
		DC.W	dtSysErr			110
		DC.W	dtSysErr			112
		DC.W	dtSysErr			114
		DC.W	dtSysErr			116
		DC.W	dtSysErr			118  unused...
		DC.W	dtInit2			120
		DC.W	dtNoMedia		122
		DC.W	dtDupVolErr		124
		DC.W	dtNoRead2		126
		DC.W	dtRenameErr		128
		DC.W	dtCopyErr		130
		DC.W	dtGetBoot		132
		DC.W	dtRenameErr2		134
		DC.W	dtDragErr4		136
		DC.W	dtCanntDup		138
		DC.W	dtNoMount		140
		DC.W	dtDupDev		142
		DC.W	dtDesErr		144
		DC.W	dtRenameErr3		146
		DC.W	dtMemErr		148
		DC.W	dtOddCouple		150
		DC.W	dtRenameErr4		152
		DC.W	dtMaxWinds		154
		DC.W	dtIOErr			156
		DC.W	dtDragFold		158
		DC.W	dtTooMany		160
		DC.W	dtVerify		162	;Added 05/09/88 DJB
		DC.W	dtVerify2		164	;must follow diaVerify
		DC.W	dtVerifyGood		166
		DC.W	dtVerifyBad		168
		DC.W	dtShutDown		170	;Added DJB 05/11/88
		DC.W	dtValid			172	;Added DJB 05/09/88
		DC.W	dtValid2		174	;must follow diaValid
		DC.W	dtValidGood		176	;must follow diaValid2
		DC.W	dtValidBad		178	;must follow diaValid
		DC.W	dtShutDown2		180	;Added DJB 05/26/88
		DC.W	dtSharedVol		182	;Added DJB 12/01/88
		DC.W	dtNoAccess		184	;Added DJB 12/01/88
		DC.W	dtNoAccess2		186	;Added DJB 12/06/88
		DC.W	dtCantMove		188	;Added JAM 05/17/89
		DC.W	dtCantSee		190	;Added JAM 05/18/89
		DC.W	dtNoPrivs		192	;Added JAM 05/30/89
		DC.W	dtValidGood2		194	;Added Mensch 06/05/89
		DC.W	dtTransOrElse		196	;Added JAM 06/07/89

;=================================================
;	   Dialog Templates
;=================================================


;------------------------------------------------------------------------------
; 0	   This	disk is	unreadable.  Do	you want to initialize it?
;------------------------------------------------------------------------------

		ENTRY	dtInit
dtInit
		DC.W	dh5,425			Height/width of	dialog window.

		DC.W	Text
		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
		DC.W	5			# of strings
		DC.W	strgExtraSpace
		DC.W	strgUnread1		'GS/OS can't read...'
		DC.W	strgInit6		'(device...'
		DC.W	String2			
		DC.W	strgUnread2		'). Do you want...'

		ENTRY	enterEject
enterEject	DC.W	StdBtn
		DC.W	100			Width.
		DC.W	2			# of buttons
		DC.W	strgEject		Pointer	to title.
		DC.W	CancelID		ID number.
		DC.W	strContinue		Pointer	to title.
		DC.W	OKID			ID number.

		ENTRY	enterInit		commonn init data
enterInit	DC.W	Icon
		DC.W	CAUTION			Offset into ICONBLK.

		DC.W	Text
		DC.W	initLEboxY1,10		Y and X	starting position of text.
		DC.W	1			# of strings
		DC.W	strgGetName

		DC.W	LineEdit
		DC.W	initDRect>>16		Hi word	of destination RECT.
		DC.W	initDRect		Lo word	of destination RECT.
		DC.W	initVRect>>16		Hi word	of view	RECT.
		DC.W	initVRect		Lo word	of view	RECT.
		DC.W	32			Max length.
		DC.W	string1

		DC.W	Box
		DC.W	initLEbox		RECT.

		DC.W	$FFFF			End of list.

		ENTRY	initDRect
initDRect	DC.W	initLEboxY1,initLEboxX1,initLEboxY2,initLEboxX2
		ENTRY	initVRect
initVRect	DC.W	initLEboxY1-3,initLEboxX1-4,initLEboxY2,initLEboxX2+4
		ENTRY	initLEbox
initLEbox	DC.W	initLEboxY1-3,initLEboxX1-6,initLEboxY2,initLEboxX2+8


;-----------------------------------------------------------------------------
; 2	   Items in the	Trash can't be opened.  Please drag the items back
;	   into	a disk or folder window.
;-----------------------------------------------------------------------------
;
		ENTRY	dtInTrash
dtInTrash	DC.W	dh2,460			Height/width of	dialog window.
;
;		DC.W	Text
;		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
;		DC.W	3			# of strings
;		DC.W	strgExtraSpace
;		DC.W	strgInTrash
;		DC.W	strgBack2Wind
;
;		DC.W	Jump			OK button.
;		DC.W	OKstop
;
;
;------------------------------------------------------------------------------
; 4	   Initialization failed.  This	disk is	write-protected.
;------------------------------------------------------------------------------
;
		ENTRY	dtInitErr1
dtInitErr1
;
;		DC.W	dh2,370			Height/width of	dialog window.
;
;		DC.W	Icon
;		DC.W	StopICON		Offset into ICONBLK.
;
;		DC.W	Text
;		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
;		DC.W	3			# of strings
;		DC.W	strgExtraSpace
;		DC.W	strgInitErr
;		DC.W	strgProtect
;
;		DC.W	Jump			Cancel - Try Again
;		DC.W	tryAgain
;
;
;------------------------------------------------------------------------------
; 6	   Initialization failed.
;------------------------------------------------------------------------------
;
		ENTRY	dtInitErr2
dtInitErr2					; 
;
;		DC.W	dh1,270			Height/width of	dialog window.
;
;		DC.W	Icon
;		DC.W	StopICON		Offset into ICONBLK.
;
;		DC.W	Text
;		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
;		DC.W	2			# of strings
;		DC.W	strgExtraSpace
;		DC.W	strgInitErr
;
;		DC.W	Jump			OK
;		DC.W	OKbutt
;
;
;------------------------------------------------------------------------------
; 8	   Please name this volume:
;------------------------------------------------------------------------------

		ENTRY	dtDiskName
dtDiskName

		DC.W	50,425			Height/width of	dialog window.

		DC.W	Icon
		DC.W	DISKICON		Offset into ICONBLK.

		DC.W	Text
		DC.W	8,80			Y and X	starting position of text.
		DC.W	1			# of strings
		DC.W	strgGetName

		DC.W	LineEdit
		DC.W	desRect>>16		Hi word	of destination RECT.
		DC.W	desRect			Lo word	of destination RECT.
		DC.W	viewRect>>16		Hi word	of view	RECT.
		DC.W	viewRect		Lo word	of view	RECT.
		DC.W	15			Max length.
		DC.W	string1

		DC.W	Box
		DC.W	LEbox			RECT.

		DC.W	Jump			OK and Cancel buttons.
		DC.W	cont3

		ENTRY	desRECT
desRECT		DC.W	LEboxy1,LEboxx1,LEboxy2,LEboxx2
		ENTRY	viewRECT
viewRECT	DC.W	LEboxy1-3,LEboxx1-4,LEboxy2,LEboxx2+4
		ENTRY	LEbox
LEbox		DC.W	LEboxy1-3,LEboxx1-6,LEboxy2,LEboxx2+8


;------------------------------------------------------------------------------
; 10	   About window.
;------------------------------------------------------------------------------

		ENTRY	dtAbout
dtAbout
;		DC.W	110,386		Height/width of	dialog window.
;
;		DC.W	BoldText
;		DC.W	10,0			y,x position of	start of text.
;		DC.W	2			# of strings
;		DC.W	Centered
;		DC.W	strgTitle		Apple IIGS Finder
;
;		DC.W	Text
;		DC.W	22,0			y,x position of	start of text.
;		DC.W	2			# of strings
;		DC.W	Centered
;		DC.W	strgVersion		Finder Version	#
;
;		DC.W	Text
;		DC.W	32,0			y,x position of	start of text.
;		DC.W	2			# of strings
;		DC.W	Centered
;		DC.W	strgSysVersion		System Version	#
;
;		DC.W	Text
;		DC.W	46,0			y,x position of	start of text.
;		DC.W	2			# of strings
;		DC.W	Centered
;		DC.W	strgAuthors		Ron
;
;		DC.W	Text
;		DC.W	64,0			y,x position of	start of text.
;		DC.W	2			# of strings
;		DC.W	Centered
;		Entry	credits
;credits	DC.W	strgNull		ev. 4th time: TestersÕ names
;
;		DC.W	Text
;		DC.W	81,0			y,x position of	start of text.
;		DC.W	4			# of strings
;		DC.W	Centered
;		DC.W	strgRights1		Copyright string
;		DC.W	strgCR
;		DC.W	strgRights3		All Rights Reserved string
;
;		DC.W	Text
;		DC.W	100,0			y,x position of	start of text.
;		DC.W	2			# of strings
;		DC.W	Centered
;		DC.W	strgDumbTeach		String for dumb teachers
;
;		DC.W	Icon
;		DC.W	NOTEICON		
;
;		DC.W	$FFFF			End of template.

;------------------------------------------------------------------------------
; 12	   The text edit commands can't be used with the Finder.  You can
;	   use them with desk accessories.
;------------------------------------------------------------------------------
;
		ENTRY	dtEdit
dtEdit						; 
;		DC.W	dh3,400			Height/width of	dialog window.
;
;		DC.W	Text
;		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
;		DC.W	3			# of strings
;		DC.W	strgExtraSpace
;		DC.W	strgInact10A
;		DC.W	strgInact10B
;
;		DC.W	Jump
;		DC.W	noteNok
;
;
;--------------------------------------------------------------------------
; 14	   To activate this menu item you must open a disk icon.
;--------------------------------------------------------------------------
;
		ENTRY	dtDirWind
dtDirWind					; 
;		DC.W	dh2,400			Height/width of	dialog window.
;
;		DC.W	Text
;		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
;		DC.W	3			# of strings
;		DC.W	strgExtraSpace
;		DC.W	strgInact1
;		DC.W	strgInact3
;
;		DC.W	Jump
;		DC.W	noteNok
;
;
;--------------------------------------------------------------------------
; 16	   To activate this menu item you must select an icon.
;--------------------------------------------------------------------------
;
		ENTRY	dtSelIcon
dtSelIcon					; 
;		DC.W	dh2,360			Height/width of	dialog window.
;
;		DC.W	Text
;		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
;		DC.W	3			# of strings
;		DC.W	strgExtraSpace
;		DC.W	strgInact1
;		DC.W	strgInact4
;
;		DC.W	Jump
;		DC.W	noteNok
;
;
;--------------------------------------------------------------------------
; 18	   To activate this menu item you must
;	   open	a disk icon or the Trash icon.
;--------------------------------------------------------------------------
;
		ENTRY	dtAnyWind
dtAnyWind					; 
;		DC.W	dh2,400			Height/width of	dialog window.
;
;		DC.W	Text
;		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
;		DC.W	3			# of strings
;		DC.W	strgExtraSpace
;		DC.W	strgInact1
;		DC.W	strgInact5
;
;		DC.W	Jump
;		DC.W	noteNok
;
;
;--------------------------------------------------------------------------
; 20	   To activate this menu item you must select a	file icon.
;--------------------------------------------------------------------------
;
		ENTRY	dtSelFile
dtSelFile					; 
;		DC.W	dh2,360			Height/width of	dialog window.
;
;		DC.W	Text
;		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
;		DC.W	3			# of strings
;		DC.W	strgExtraSpace
;		DC.W	strgInact1
;		DC.W	strgInact6
;
;		DC.W	Jump
;		DC.W	noteNok
;
;
;--------------------------------------------------------------------------
; 22	   To activate this menu item you must select an icon that was
;	   dragged from	a window to the	desktop	or into	the Trash.
;--------------------------------------------------------------------------
;
		ENTRY	dtDragOff
dtDragOff					; 
;		DC.W	dh3,400			Height/width of	dialog window.
;
;		DC.W	Text
;		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
;		DC.W	4			# of strings
;		DC.W	strgExtraSpace
;		DC.W	strgInact1
;		DC.W	strgInact7A
;		DC.W	strgInact7B
;
;		DC.W	Jump
;		DC.W	noteNok
;
;
;--------------------------------------------------------------------------
; 24	   To activate this menu item you must put
;	   a disk into a 3.5-inch drive.
;--------------------------------------------------------------------------
;
		ENTRY	dtDiskIn
dtDiskIn					; 
;		DC.W	dh2,400			Height/width of	dialog window.
;
;		DC.W	Text
;		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
;		DC.W	3			# of strings
;		DC.W	strgExtraSpace
;		DC.W	strgInact1
;		DC.W	strgInact8
;
;		DC.W	Jump
;		DC.W	noteNok
;
;
;--------------------------------------------------------------------------
; 26	   Could not complete... because a file was busy.
;
;--------------------------------------------------------------------------
;
		IMPORT	strFileBusy
;
		ENTRY	dtFileBusy
dtFileBusy
;		DC.W	dh3,400			Height/width of	dialog window.
;
;		DC.W	Text
;		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
;		DC.W	2			# of strings
;		DC.W	strgExtraSpace
;		DC.W	strFileBusy
;
;		DC.W	Icon
;		DC.W	Caution			Offset into ICONBLK.
;
;		DC.W	StdBtn
;		DC.W	100			Width.
;		DC.W	1			# of buttons
;		DC.W	1			Next button is bold round
;		DC.W	strgOk			Pointer	to title.
;		DC.W	CancelID		ID number.
;		DC.W	$FFFF			End of template.
;

		ENTRY	OKButt
OKButt
		DC.W	StdBtn
		DC.W	100			Width.
		DC.W	1			# of buttons
		DC.W	1			Next button is bold round
		DC.W	strgOk			Pointer	to title.
		DC.W	OKID			ID number.

		DC.W	$FFFF			End of template.

;---------------------------------------------------------------------------
; 28	   An application can't be found for this document.
;---------------------------------------------------------------------------
;
		ENTRY	dtNoApp2
dtNoApp2					; 
		DC.W	dh1,460			Height/width of	dialog window.
;
		DC.W	Icon
		DC.W	STOPICON		Offset into ICONBLK.
;
		DC.W	Text
		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
		DC.W	2			# of strings
		DC.W	strgExtraSpace
		DC.W	strgNoApp3

		DC.W	Jump			OK button
		DC.W	OKButt

;-----------------------------------------------------------------------------
; 30	   Completely erase the	disk named 'VOLNAME'?
;-----------------------------------------------------------------------------

		ENTRY	dtErase
dtErase
;		DC.W	dh5,425			Height/width of	dialog window.
;
;		DC.W	Text
;		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
;		DC.W	6			# of strings
;		DC.W	strgExtraSpace
;		DC.W	strgErase2
;		DC.W	VolName1
;		DC.W	strgInit6		'(device
;		DC.W	String2			
;		DC.W	strgQuestion2
;
;		DC.W	StdBtn
;		DC.W	100			Width.
;		DC.W	2			# of buttons
;		DC.W	strgCancel		Pointer	to title.
;		DC.W	CancelID		ID number.
;		DC.W	strgErase1		Pointer	to title.
;		DC.W	OKID			ID number.
;
;		DC.W	Jump			;LE box & caution icon
;		DC.W	enterInit

;-----------------------------------------------------------------------------
; 32	   The pathname's length is too long to complete the operation.
;-----------------------------------------------------------------------------
;
		ENTRY	dtTooLong
dtTooLong					; 
		DC.W	dh2,400			Height/width of	dialog window.

		DC.W	Text
		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
		DC.W	2			# of strings
		DC.W	strgExtraSpace
		DC.W	strgTooLong

		DC.W	Jump
		DC.W	Cont1
;
;
;-----------------------------------------------------------------------------
; 34	   The Trash icon can't be moved into a window or onto another icon.
;-----------------------------------------------------------------------------
;
		ENTRY	dtDragErr1
dtDragErr1					; 
		DC.W	dh2,360			Height/width of	dialog window.
;
		DC.W	Text
		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
		DC.W	3			# of strings
		DC.W	strgExtraSpace
		DC.W	strgDrag1
		DC.W	strgDrag2
;
		DC.W	Jump			OK button.
		DC.W	OKstop
;
;
;
;-----------------------------------------------------------------------------
; 36	   Disks can be	dragged	only onto other	disks.
;-----------------------------------------------------------------------------
;
		ENTRY	dtDragErr2
dtDragErr2					; 
		DC.W	dh1,420			Height/width of	dialog window.
;
		DC.W	Text
		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
		DC.W	2			# of strings
		DC.W	strgExtraSpace
		DC.W	strgDrag3
;
		DC.W	Jump			OK button.
		DC.W	OKstop
;
;
;-----------------------------------------------------------------------------
; 38	   Disk	icons can't be dragged with file or folder icons for
;	   this	operation.
;-----------------------------------------------------------------------------
;
		ENTRY	dtDragErr3
dtDragErr3					; 
		DC.W	dh2,400			Height/width of	dialog window.
;
		DC.W	Text
		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
		DC.W	3			# of strings
		DC.W	strgExtraSpace
		DC.W	strgDrag4
		DC.W	strgDrag6
;
		DC.W	Jump			OK button.
		DC.W	OKstop
;
;
;-----------------------------------------------------------------------------
; 40	   System Error!  Can't complete this operation.
;-----------------------------------------------------------------------------
;
		ENTRY	dtSysErr
dtSysErr					; 
		DC.W	50,400			Height/width of	dialog window.

		DC.W	Text
		DC.W	TextTopPos,0		Y and X	starting position of text.
		DC.W	5			# of strings
		DC.W	Centered
		DC.W	strgExtraSpace
		DC.W	strgSysErr1
		DC.W	strgCR
		DC.W	strgAbort

		DC.W	Text
		DC.W	39,10			y,x position of	start of text.
		DC.W	2			# of strings
		DC.W	strgSysErr2
		DC.W	HexNum

		DC.W	Jump
		DC.W	Cont1
;
;
;-----------------------------------------------------------------------------
; 42	   The disk 'NAME' is write-protected.
;-----------------------------------------------------------------------------
;
		ENTRY	dtWP
dtWP						; 
;		DC.W	dh1,400			Height/width of	dialog window.
;
;		DC.W	Icon
;		DC.W	NoteIcon		Offset into ICONBLK.
;
;		DC.W	Text
;		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
;		DC.W	4			# of strings
;		DC.W	strgExtraSpace
;		DC.W	strgTheDisk
;		DC.W	VolName1
;		DC.W	strgWP

		ENTRY	tryAgain
tryAgain					; 
		DC.W	StdBtn
		DC.W	100			Width.
		DC.W	2			# of buttons
		DC.W	strgCancel		Pointer	to title.
		DC.W	CancelID		ID number.
		DC.W	1			Next button is bold round
		DC.W	strgAgain		Pointer	to title.
		DC.W	TryAgainID		ID number.

		DC.W	$FFFF			End of list.
;
;
;-----------------------------------------------------------------------------
; 44	   Insert the disk 'NAME'.
;-----------------------------------------------------------------------------
;
		ENTRY	dtInsDisk
dtInsDisk					; 
;		DC.W	dh1,370			Height/width of	dialog window.
;
;		DC.W	Icon
;		DC.W	SwapIcon		Offset into ICONBLK.
;
;		DC.W	Text
;		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
;		DC.W	4			# of strings
;		DC.W	strgExtraSpace
;		DC.W	strgInsDisk
;		DC.W	VolName1
;		DC.W	strgPeriod
;
;		DC.W	StdBtn
;		DC.W	100			Width.
;		DC.W	2			# of buttons
;		DC.W	strgCancel		Pointer	to title.
;		DC.W	CancelID		ID number.
;		DC.W	1			Next button is bold round
;		DC.W	strgOK			Pointer	to title.
;		DC.W	TryAgainID		Try Again ID cause that's what OK means.
;
;		DC.W	$FFFF			End of list.
;
;
;-----------------------------------------------------------------------------
; 46	   The file/folder 'NAME' already exists.
;-----------------------------------------------------------------------------
;
		ENTRY	dtRepFile
dtRepFile					; 
		DC.W	135,370			Height/width of	dialog window.

		DC.W	Text
		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
		DC.W	5			# of strings
		DC.W	strgExtraSpace
		DC.W	strgTheFF
		DC.W	FileName1
		DC.W	strgRepFile
		DC.W	strgPeriod

		DC.W	Icon
		DC.W	Caution			Offset into ICONBLK.

		DC.W	StdBtn
		DC.W	100			Width.
		DC.W	1			# of buttons
		DC.W	strgCancel		Pointer	to title.
		DC.W	CancelID		ID number.

		DC.W	SpecialBtn
		DC.W	300			Width
		DC.W	13			Height
		DC.W	4			# of buttons
		DC.W	30,35			y,x position.
		DC.W	1			Next button is bold round
		DC.W	strgRepFile1		Pointer	to title.
		DC.W	$8001			ID number.
		DC.W	50,35			y,x position.
		DC.W	strgRepFile2		Pointer	to title.
		DC.W	$0001			ID number.
		DC.W	75,35			y,x position.
		DC.W	strgRepFile3		Pointer	to title.
		DC.W	$8002			ID number.
		DC.W	95,35			y,x position.
		DC.W	strgRepFile4		Pointer	to title.
		DC.W	$0002			ID number.

		DC.W	$FFFF			End of list.
;
;
;-----------------------------------------------------------------------------
; 48	   The disk is full.  Can't complete this operation.
;-----------------------------------------------------------------------------
;
		ENTRY	dtVolFull
dtVolFull					; 
;		DC.W	dh2,370			Height/width of	dialog window.
;
;		DC.W	Text
;		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
;		DC.W	3			# of strings
;		DC.W	strgExtraSpace
;		DC.W	strgVolFull
;		DC.W	strgAbort
;
;		DC.W	Jump
;		DC.W	Cont1
;
;-----------------------------------------------------------------------------
; 50	   The disk directory is full.	Can't complete this operation.
;-----------------------------------------------------------------------------
;
		ENTRY	dtDirFull
dtDirFull					; 
;		DC.W	dh2,400			Height/width of	dialog window.
;
;		DC.W	Text
;		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
;		DC.W	3			# of strings
;		DC.W	strgExtraSpace
;		DC.W	strgDirFull
;		DC.W	strgAbort
;
;		DC.W	Jump
;		DC.W	Cont1
;
;-----------------------------------------------------------------------------
; 52	   The file 'NAME' is copy protected and can't be copied.
;-----------------------------------------------------------------------------
;
;		ENTRY	dtNoRead1
dtNoRead1					; 
;		DC.W	dh2,370			Height/width of	dialog window.
;
;		DC.W	Text
;		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
;		DC.W	5			# of strings
;		DC.W	strgExtraSpace
;		DC.W	strgTheFile
;		DC.W	FileName1
;		DC.W	strgNoRead
;		DC.W	strgNoRead1
;
;		DC.W	Jump
;		DC.W	Cont2
;
;
;-----------------------------------------------------------------------------
; 54	   The folder 'NAME' can't be moved into itself or into one
;	   of its own folders.
;-----------------------------------------------------------------------------
;
		ENTRY	dtChPath
dtChPath					; 
		DC.W	dh3,400			Height/width of	dialog window.

		DC.W	Text
		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
		DC.W	4			# of strings
		DC.W	strgExtraSpace
		DC.W	strgTheFolder
		DC.W	FileName1
		DC.W	strgChPath

		DC.W	Jump
		DC.W	Cont2


;-----------------------------------------------------------------------------
; 56,58	   Copying...	Number of files/folders	remaining - NN
;-----------------------------------------------------------------------------

		ENTRY	dtCopying
dtCopying
		DC.W	50,400			;Height,Width of dialog window.
		
		DC.W	Text
		DC.W	4,10			;y,x position of start of text.
		DC.W	1			;# of strings
		DC.W	strgRemain
		
		DC.W	SpecialBtn
		DC.W	100,13			;width, height
		DC.W	1			;# of buttons
		DC.W	50-17,400-110		;y,x position
		DC.W	0			;type (plain)
		DC.W	strgCancel		;pointer to title
		DC.W	CancelID		;ID number

		DC.W	Box
		DC.W	CBlkRect		;RECT
		
		ENTRY	dtCopying2
dtCopying2
		DC.W	SpecialText
		DC.W	70,8			;width, height
		DC.W	5,400-85		;y,x position of start of text.
		DC.W	DecNum			;string

		DC.W	SpecialText
		DC.W	50,10			;width, height
		DC.W	18,10			;y,x position of start of text.
		DC.W	String2			;string (reading/writing)

		DC.W	SpecialText
		DC.W	400-90,10		;width, height
		DC.W	18,85			;y,x position of start of text.
		DC.W	String1			;string (fileName)

		DC.W	ThermoDial		;uses DialValue for indicator
		DC.W	260,9			;width, height
		DC.W	50-15,10		;y, x position
		
		DC.W	$FFFF			;End of list.
		
CBlkRect	DC.W	3,400-90,3+13,400-10

;-----------------------------------------------------------------------------
; 60	   The file/folder 'NAME' can't replace the folder that contains it.
;-----------------------------------------------------------------------------
;
		ENTRY	dtParents
dtParents					; 
		DC.W	dh2,400			Height/width of	dialog window.

		DC.W	Text
		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
		DC.W	4			# of strings
		DC.W	strgExtraSpace
		DC.W	strgTheFF
		DC.W	FileName1
		DC.W	strgParents

		ENTRY	Cont2
Cont2		DC.W	StdBtn
		DC.W	100			Width.
		DC.W	2			# of buttons
		DC.W	strgCancel		Pointer	to title.
		DC.W	CancelID		ID number.
		DC.W	1			Next button is bold round
		DC.W	strgSkip		Pointer	to title.
		DC.W	$8001			ID number.

		DC.W	Icon
		DC.W	NoteIcon		Offset into ICONBLK.

		DC.W	$FFFF			End of list.
;
;
;-----------------------------------------------------------------------------
; 62	   You are attempting to replace a file	with a folder or
;	   vice	versa.	Should it be replaced?
;-----------------------------------------------------------------------------
;
		ENTRY	dtType
dtType						; 
		DC.W	dh3,400			Height/width of	dialog window.

		DC.W	Text
		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
		DC.W	3			# of strings
		DC.W	strgExtraSpace
		DC.W	strgType1
		DC.W	strgType2

		ENTRY	Cont4
Cont4		DC.W	StdBtn
		DC.W	100			Width.
		DC.W	3			# of buttons
		DC.W	strgCancel		Pointer	to title.
		DC.W	CancelID		ID number.
		DC.W	1			Next button is bold round
		DC.W	strgNo			Pointer	to title.
		DC.W	$8001			ID number.
		DC.W	strgYes			Pointer	to title.
		DC.W	$0001			ID number.

		DC.W	Icon
		DC.W	Caution			Offset into ICONBLK.

		DC.W	$FFFF			End of list.
;
;
;-----------------------------------------------------------------------------
; 64	   Completely replace the contents of 'DEST' with the contents
;	   of 'SOURCE'?
;-----------------------------------------------------------------------------
;
		ENTRY	dtRepDisk
dtRepDisk					; 
		DC.W	dh3,400			Height/width of	dialog window.

		DC.W	Icon
		DC.W	Caution			Offset into ICONBLK.

		DC.W	Text
		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
		DC.W	8			# of strings
		DC.W	strgExtraSpace
		DC.W	strgRepDisk1
		DC.W	strgContents
		DC.W	Volname1
		DC.W	strgRepDisk2
		DC.W	strgContents
		DC.W	Volname2
		DC.W	strgQuestion

		DC.W	Jump
		DC.W	Cont3
;
;
;-----------------------------------------------------------------------------
; 66	   The file/folder 'NAME' is locked (or contains
;	   items that are locked).  Replace it anyway?
;-----------------------------------------------------------------------------
;
		ENTRY	dtLocked1
dtLocked1					; 
		DC.W	dh3,440			Height/width of	dialog window.

		DC.W	Text
		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
		DC.W	7			# of strings
		DC.W	strgExtraSpace
		DC.W	strgTheFF
		DC.W	FileName1
		DC.W	strgRepFile
		DC.W	strgAnd
		DC.W	strgLocked1
		DC.W	strgLocked2

		DC.W	Jump
		DC.W	Cont4
;
;
;-----------------------------------------------------------------------------
; 68	   The file/folder 'NAME' already exists and is	locked (or contains
;	   items that are locked).  Remove it anyway?
;-----------------------------------------------------------------------------
;
		ENTRY	dtLocked2
dtLocked2					; 
		DC.W	dh3,400			Height/width of	dialog window.

		DC.W	Text
		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
		DC.W	5			# of strings
		DC.W	strgExtraSpace
		DC.W	strgTheFF
		DC.W	FileName1
		DC.W	strgLocked1
		DC.W	strgLocked3

		DC.W	Jump
		DC.W	Cont4
;
;
;-----------------------------------------------------------------------------
; 70	   The two disks are different sizes, so the contents of 'SOURCE' will
;	   be placed in	a folder on 'DEST'.
;-----------------------------------------------------------------------------
;
		ENTRY	dtFolder
dtFolder					; 
		DC.W	dh3,440			Height/width of	dialog window.

		DC.W	Icon
		DC.W	Caution			Offset into ICONBLK.

		DC.W	Text
		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
		DC.W	7			# of strings
		DC.W	strgExtraSpace
		DC.W	strgFolder1
		DC.W	strgContents
		DC.W	Volname2
		DC.W	strgFolder2
		DC.W	Volname1
		DC.W	strgPeriod

		ENTRY	Cont3
Cont3		DC.W	StdBtn
		DC.W	100			Width.
		DC.W	2			# of buttons
		DC.W	strgCancel		Pointer	to title.
		DC.W	CancelID		ID number.
		DC.W	1			Next button is bold round
		DC.W	strgOK			Pointer	to title.
		DC.W	OKID			ID number.

		DC.W	$FFFF			End of list.
;
;
;-----------------------------------------------------------------------------
; 72	   There isn't enough room on 'DEST' to copy the contents of 'SOURCE'.
;-----------------------------------------------------------------------------

		ENTRY	dtNoRoom
dtNoRoom
		DC.W	dh2,440			Height/width of	dialog window.

		DC.W	Text
		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
		DC.W	7			# of strings
		DC.W	strgExtraSpace
		DC.W	strgNoRoom1
		DC.W	VolName1
		DC.W	strgNoRoom2
		DC.W	strgContents
		DC.W	VolName2
		DC.W	strgPeriod

		ENTRY	Cont1
Cont1		DC.W	Icon
		DC.W	StopIcon		Offset into ICONBLK.

		DC.W	StdBtn
		DC.W	100			Width.
		DC.W	1			# of buttons
		DC.W	1			Next button is bold round
		DC.W	strgCancel		Pointer	to title.
		DC.W	CancelID		ID number.

		DC.W	$FFFF			End of list.
;
;
;-----------------------------------------------------------------------------
; 74	   Disk	Copy Alternatives:
;-----------------------------------------------------------------------------
;
		ENTRY	dtDCopy
dtDCopy					; 
		DC.W	100,600			Height/width of	dialog window.

		DC.W	BoldText
		DC.W	4,0			y,x position of	start of text.
		DC.W	2			# of strings
		DC.W	Centered
		DC.W	strgDCopy1

		DC.W	Text
		DC.W	20,50			y,x position of	start of text.
		DC.W	6			# of strings
		DC.W	strgDCopy2
		DC.W	strgContents
		DC.W	VolName2
		DC.W	strgDCopy3
		DC.W	VolName1
		DC.W	strgPeriod

		DC.W	Text
		DC.W	40,50			y,x position of	start of text.
		DC.W	7			# of strings
		DC.W	strgRepDisk1
		DC.W	strgContents
		DC.W	Volname1
		DC.W	strgRepDisk2
		DC.W	strgContents
		DC.W	Volname2
		DC.W	strgPeriod

		DC.W	Text
		DC.W	60,50			y,x position of	start of text.
		DC.W	7			# of strings
		DC.W	strgDCopy4
		DC.W	strgContents
		DC.W	VolName2
		DC.W	strgDCopy5
		DC.W	strgContents
		DC.W	VolName1
		DC.W	strgPeriod

		DC.W	RadioBtn
		DC.W	3			# of buttons
		DC.W	20,20			y,x position
		DC.W	strgNull		no title
		DC.W	$0000			ID number.
		DC.W	40,20			y,x position
		DC.W	strgNull		no title
		DC.W	$0001			ID number.
		DC.W	60,20			y,x position
		DC.W	strgNull		no title
		DC.W	$0002			ID number.

		DC.W	Jump
		DC.W	Cont3

;-----------------------------------------------------------------------------
; 76	   This	disk was intialized for	another	operating system and can't
;	   be read by GS/OS.  Do you want to initialize it?
;-----------------------------------------------------------------------------

		ENTRY	dtUnknown
dtUnknown
		DC.W	dh5,425			Height/width of	dialog window.

		DC.W	Text
		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
		DC.W	5			# of strings
		DC.W	strgExtraSpace
		DC.W	strgUnread3
		DC.W	strgInit6		'(device'
		DC.W	String2			
		DC.W	strgUnread2		'). Do you want...'

		DC.W	Jump
		DC.W	enterEject

;-----------------------------------------------------------------------------
; 78	   Memory is full.  Can't complete this operation.
;-----------------------------------------------------------------------------
;
		ENTRY	dtNoMem
dtNoMem					; 
		DC.W	dh2,360			Height/width of	dialog window.

		DC.W	Text
		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
		DC.W	3			# of strings
		DC.W	strgExtraSpace
		DC.W	strgNoMem
		DC.W	strgAbort

		DC.W	Jump
		DC.W	Cont1
;
;
;-----------------------------------------------------------------------------
; 80	   File	Copy Alternatives (changed default to button #3 DJB 11/14/88)
;-----------------------------------------------------------------------------
;
		ENTRY	dtFCopy
dtFCopy					; 
		DC.W	102,340			Height/width of	dialog window.

		DC.W	BoldText
		DC.W	4,0			y,x position of	start of text.
		DC.W	2			# of strings
		DC.W	Centered
		DC.W	strgFCopy

		DC.W	SpecialBtn
		DC.W	300			Width
		DC.W	13			Height
		DC.W	3			# of buttons
		DC.W	22,20			y,x position.
		DC.W	strgRepFile5		Pointer	to title.
		DC.W	$0000			ID number.
		DC.W	42,20			y,x position.
		DC.W	strgRepFile3		Pointer	to title.
		DC.W	$8001			ID number.
		DC.W	62,20			y,x position.
		DC.W	1			Next button is bold round
		DC.W	strgRepFile4		Pointer	to title.
		DC.W	$0001			ID number.

		DC.W	StdBtn
		DC.W	100			Width.
		DC.W	1			# of buttons
		DC.W	strgCancel		Pointer	to title.
		DC.W	CancelID		ID number.

		DC.W	$FFFF			End of list.
;
;
;-----------------------------------------------------------------------------
; 82	   The application 'NAME' can't be found for this document.
;-----------------------------------------------------------------------------
;
		ENTRY	dtNoApp
dtNoApp					; 
		DC.W	dh2,380			Height/width of	dialog window.
;
		DC.W	Icon
		DC.W	STOPICON		Offset into ICONBLK.
;
		DC.W	Text
		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
		DC.W	4			# of strings
		DC.W	strgExtraSpace
		DC.W	strgNoApp1
		DC.W	String1
		DC.W	strgNoApp2
;
		DC.W	Jump			Cancel and Try Again buttons.
		DC.W	tryAgain
;
;
;-----------------------------------------------------------------------------
; 84,86	   Copying...	Number of blocks remaining - NN
;-----------------------------------------------------------------------------

		ENTRY	dtNumBlks
dtNumBlks
		IMPORT	strCopying

		DC.W	50,400			;Height,Width of dialog window.
		
		DC.W	Text
		DC.W	4,10			;y,x position of start of text.
		DC.W	1			;# of strings
		DC.W	strCopying		;strgVerifyBlk
		
		DC.W	SpecialBtn
		DC.W	100,13			;width, height
		DC.W	1			;# of buttons
		DC.W	50-17,400-110		;y,x position
		DC.W	0			;type (plain)
		DC.W	strgCancel		;pointer to title
		DC.W	CancelID		;ID number

;		DC.W	Box
;		DC.W	bBlkRect		;RECT
		
		ENTRY	dtNumBlks2
dtNumBlks2
;		DC.W	SpecialText
;		DC.W	70,8			;width, height
;		DC.W	5,400-85		;y,x position of start of text.
;		DC.W	DecNum			;string

		DC.W	SpecialText
		DC.W	120,10			;width, height
		DC.W	18,10			;y,x position of start of text.
		DC.W	String2			;string (reading/writing)

		DC.W	ThermoDial		;uses DialValue for indicator
		DC.W	260,9			;width, height
		DC.W	50-15,10		;y, x position
		
		DC.W	$FFFF			;End of list.
		
bBlkRect	DC.W	3,400-90,3+13,400-10

;-----------------------------------------------------------------------------
; 88	   Duplicating the file/folder 'NAME'	New name:
;-----------------------------------------------------------------------------

		ENTRY	dtNameDup
dtNameDup
		DC.W	66,400			Height/width of	dialog window.

		DC.W	Text
		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
		DC.W	4			# of strings
		DC.W	strgExtraSpace
		DC.W	strgNameDup1
		DC.W	FileName1
		DC.W	strgPeriod

		ENTRY	Cont5
Cont5		DC.W	Text
		DC.W	28,40			y,x position of	start of  
		DC.W	1			# of strings
		DC.W	strgNameDup2

		DC.W	LineEdit
		DC.W	DRect>>16		Hi word	of destination RECT.
		DC.W	DRect			Lo word	of destination RECT.
		DC.W	VRect>>16		Hi word	of view	RECT.
		DC.W	VRect			Lo word	of view	RECT.
		DC.W	31			Max length.
		DC.W	String2			Default	string name.

		DC.W	Box
		DC.W	BoxRect			RECT.

		DC.W	StdBtn
		DC.W	100			Width.
		DC.W	3			# of buttons
		DC.W	strgCancel		Pointer	to title.
		DC.W	CancelID		ID number.
		DC.W	strgSkip		Pointer	to title.
		DC.W	$8001			ID number.
		DC.W	1			Next button is bold round
		DC.W	strgOK			Pointer	to title.
		DC.W	OKID			ID number.

		DC.W	Icon
		DC.W	NoteIcon		Offset into ICONBLK.

		DC.W	$FFFF			End of list.

leBoxWidth	set	248

leY1		set	28
leY2		set	37
leX1		set	400-leBoxWidth-20
leX2		set	leX1+leBoxWidth

		ENTRY	DRect
DRect		DC.W	leY1,leX1,leY2,leX2
		ENTRY	VRect
VRect		DC.W	leY1-1,leX1-4,leY2+1,leX2+4
		ENTRY	BoxRect
BoxRect		DC.W	leY1-2,leX1-8,leY2+2,leX2+8

;-----------------------------------------------------------------------------
; 90	   The filename	'NAME' is already used.	  New name:
;-----------------------------------------------------------------------------

		ENTRY	dtNameUsed
dtNameUsed					; 
		DC.W	66,400			Height/width of	dialog window.

		DC.W	Text
		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
		DC.W	4			# of strings
		DC.W	strgExtraSpace
		DC.W	strgNameUsed1
		DC.W	String2
		DC.W	strgNameUsed2

		DC.W	Jump
		DC.W	Cont5
;
;
;-----------------------------------------------------------------------------
; 92	   Filenames must begin	with a letter.	New name:
;-----------------------------------------------------------------------------
;
		ENTRY	dtBadName
dtBadName					; 
		DC.W	66,400			Height/width of	dialog window.

		DC.W	Text
		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
		DC.W	2			# of strings
		DC.W	strgExtraSpace
		DC.W	strgBadName

		DC.W	Jump
		DC.W	Cont5

;-----------------------------------------------------------------------------
; 94	   There are no more "UNTITLED" names available... (added 06/21/88 DJB)
;-----------------------------------------------------------------------------
		
		ENTRY	dtNoNames
dtNoNames
		DC.W	dh4,360			Height/width of	dialog window.

		DC.W	Text
		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
		DC.W	3			# of strings
		DC.W	strgExtraSpace
		DC.W	strgNoNames1
		DC.W	strgNoNames2

		DC.W	Jump			OK button.
		DC.W	OKstop

;-----------------------------------------------------------------------------
; 96	   You can't drag a non-removable volume into the trash. (08/01/88 DJB)
;-----------------------------------------------------------------------------
		
		ENTRY	dtNonRemove
dtNonRemove
		DC.W	dh3,360			Height/width of	dialog window.

		DC.W	Text
		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
		DC.W	2			# of strings
		DC.W	strgExtraSpace
		DC.W	strgNonRemove

		DC.W	Jump			OK button.
		DC.W	OKstop
		
;-----------------------------------------------------------------------------
; 98	   Preferences:
;-----------------------------------------------------------------------------

		ENTRY	dtPrefer
dtPrefer
;		DC.W	76,470			Height and width of dialog window.
;
;		DC.W	BoldText
;		DC.W	5,0			y,x position of	start of text.
;		DC.W	2			Number of strings.
;		DC.W	Centered
;		DC.W	strgPrefer
;
;		DC.W	checkBoxes
;		DC.W	3			Number of check	boxes in list.
;
;		DC.W	18,preferX		y,x position
;		DC.W	strgMHelp		'Help for disabled menus.'
;		DC.W	$0002			ID number.
;		DC.W	30,preferX		y,x position
;		DC.W	strgThrow		'Double check throw away.'
;		DC.W	$0004			ID number.
;
;		DC.W	18,preferX		y,x position
;		DC.W	strgColor		"Color icon's background instead..."
;		DC.W	$0006			ID number.
;		DC.W	18+12,preferX		y,x position
;		DC.W	strgData		'Save Finder data files.'
;		DC.W	$0008			ID number.
;		DC.W	18+12+12,preferX	y,x position
;		DC.W	strgSData		"Hide Finder's data files."
;		DC.W	$000A			ID number.
;
;		DC.W	78,preferX		y,x position
;		DC.W	strgBCopy		'Standard block copy.'
;		DC.W	$000C			ID number.
;		DC.W	90,preferX		y,x position
;		DC.W	strgRAMDisk		'Preserve software RAM disk...'
;		DC.W	$000E			ID number.
;
;		DC.W	Jump			OK and Cancel buttons.
;		DC.W	cont3


;-----------------------------------------------------------------------------
; 100	   Are you sure	you want to remove the selected	files?
;-----------------------------------------------------------------------------
;
		ENTRY	dtWarnDel
dtWarnDel					; 
		DC.W	dh2,360			Height/width of	dialog window.
;
		DC.W	Icon
		DC.W	CAUTION
;
		DC.W	Text
		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
		DC.W	2			Number of strings.
		DC.W	strgExtraSpace
		DC.W	strgWarnDel
;
		DC.W	Jump			Cancel and Try Again buttons.
		DC.W	cont3


;-----------------------------------------------------------------------------
; 102	   The destination file/folder name "xxx" ... is not valid.
;-----------------------------------------------------------------------------
YFudge		equ	0			; just in case we want to adjust
XFudge		equ	26
HalfXFudge	equ	(XFudge / 2)
leBoxY		equ	42+YFudge

		ENTRY	dtTransFile
dtTransFile
		DC.W	110+YFudge,400+XFudge	Height/width of	dialog window.

		DC.W	Text
		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
		DC.W	4			# of strings
		DC.W	strgExtraSpace
		DC.W	strgTransFile1
		DC.W	String1
		DC.W	strgTransFile2

		DC.W	Icon
		DC.W	Caution			Offset into ICONBLK.

		DC.W	Text
		DC.W	leBoxY,TextLeftPos+HalfXFudge	y,x position of	start of  
		DC.W	1			# of strings
		DC.W	strgNameDup2

		DC.W	LineEdit
		DC.W	DRect2>>16		Hi word	of destination RECT.
		DC.W	DRect2			Lo word	of destination RECT.
		DC.W	VRect2>>16		Hi word	of view	RECT.
		DC.W	VRect2			Lo word	of view	RECT.
		DC.W	15			Max length.
		DC.W	String2			Default	string name.

		DC.W	Box
		DC.W	BoxRect2		RECT.

		DC.W	SpecialBtn
		DC.W	216			Width
		DC.W	13			Height
		DC.W	2			# of buttons
		DC.W	56+YFudge,(400+XFudge-216)/2	y,x position.
		DC.W	strgSkipAll		Pointer	to title.
		DC.W	$8002			ID number.
		DC.W	72+YFudge,(400+XFudge-216)/2		y,x position.
		DC.W	strgTranAll		Pointer	to title.
		DC.W	$8003			ID number.

		DC.W	StdBtn
		DC.W	100			Width.
		DC.W	3			# of buttons
		DC.W	strgCancel		Pointer	to title.
		DC.W	CancelID		ID number.
		DC.W	strgSkip		Pointer	to title.
		DC.W	$8001			ID number.
		DC.W	1			Next button is bold round
		DC.W	strgOK			Pointer	to title.
		DC.W	OKID			ID number.
		DC.W	$FFFF			End of template.


; JAM 06/07/89 (Fixing BRC #50355)
; We use the following template instead of dtTransFile when the bad file name
; is encountered at a nesting level that the skipfiles mechanism wasn't
; designed to handle.  It's ugly and inconvenient, but it's safe.
;-----------------------------------------------------------------------------
; 196	   The destination file/folder name "xxx" ... is not valid. (No skip)
;-----------------------------------------------------------------------------
		ENTRY	dtTransOrElse
dtTransOrElse
		DC.W	110+YFudge,400+XFudge	Height/width of	dialog window.

		DC.W	Text
		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
		DC.W	4			# of strings
		DC.W	strgExtraSpace
		DC.W	strgTransFile1
		DC.W	String1
		DC.W	strgTransFile2

		DC.W	Icon
		DC.W	Caution			Offset into ICONBLK.

		DC.W	Text
		DC.W	leBoxY,TextLeftPos+HalfXFudge	y,x position of	start of  
		DC.W	1			# of strings
		DC.W	strgNameDup2

		DC.W	LineEdit
		DC.W	DRect2>>16		Hi word	of destination RECT.
		DC.W	DRect2			Lo word	of destination RECT.
		DC.W	VRect2>>16		Hi word	of view	RECT.
		DC.W	VRect2			Lo word	of view	RECT.
		DC.W	15			Max length.
		DC.W	String2			Default	string name.

		DC.W	Box
		DC.W	BoxRect2		RECT.

		DC.W	StdBtn
		DC.W	100			Width.
		DC.W	2			# of buttons
		DC.W	strgCancel		Pointer	to title.
		DC.W	CancelID		ID number.
		DC.W	1			Next button is bold round
		DC.W	strgOK			Pointer	to title.
		DC.W	OKID			ID number.
		DC.W	$FFFF			End of template.

		ENTRY	DRect2
DRect2		DC.W	leBoxY,170+XFudge,leBoxY+9,315+XFudge
		ENTRY	VRect2
VRect2		DC.W	leBoxY-1,166+XFudge,leBoxY+10,319+XFudge
		ENTRY	BoxRect2
BoxRect2	DC.W	leBoxY-2,162+XFudge,leBoxY+11,323+XFudge



;-----------------------------------------------------------------------------
; 120	   Initializing	'NAME' will remove all of its information.
;	   Completely erase the	disk 'NAME'?
;-----------------------------------------------------------------------------

		ENTRY	dtInit2
dtInit2
		DC.W	dh5,425			Height/width of	dialog window.

		DC.W	Text
		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
		DC.W	6			# of strings
;		DC.W	strgExtraSpace
		DC.W	strgInit5		'Initializing will destroy...'
		DC.W	strgErase2		'Completely erase the volume...'
		DC.W	VolName1			
		DC.W	strgInit6		'(device
		DC.W	String2			
		DC.W	strgQuestion2

		DC.W	StdBtn
		DC.W	100			Width.
		DC.W	2			# of buttons
		DC.W	strgCancel		Pointer	to title.
		DC.W	CancelID		ID number.
		DC.W	strContinue		Pointer	to title.
		DC.W	OKID			ID number.

		DC.W	Jump			LE Box & caution icon
		DC.W	enterInit

;-----------------------------------------------------------------------------
; 122	   The disk 'NAME' was ejected while being used.  Can't complete...
;-----------------------------------------------------------------------------
;
		ENTRY	dtNoMedia
dtNoMedia					; 
		DC.W	dh3,400			Height/width of	dialog window.

		DC.W	Text
		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
		DC.W	5			# of strings
		DC.W	strgExtraSpace
		DC.W	strgTheDisk
		DC.W	VolName1
		DC.W	strgNoMedia
		DC.W	strgAbort

		DC.W	Jump
		DC.W	Cont1


;-----------------------------------------------------------------------------
; 124	   The Finder can't operate with two volumes that... (08/01/88 DJB)
;-----------------------------------------------------------------------------

		ENTRY	dtDupVolErr
dtDupVolErr
		DC.W	dh3,360			Height/width of	dialog window.

		DC.W	Text
		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
		DC.W	2			# of strings
		DC.W	strgExtraSpace
		DC.W	strgDupVolErr

		DC.W	Icon
		DC.W	StopIcon

		DC.W	StdBtn
		DC.W	100			Width.
		DC.W	1			# of buttons
		DC.W	1			Next button is bold round
		DC.W	strgSD			Pointer	to title.
		DC.W	OKID			ID number.

		DC.W	$FFFF			End of template.

;-----------------------------------------------------------------------------
; 126	   The folder 'NAME' is	copy protected and can't be accessed.  Can't...
;-----------------------------------------------------------------------------
;
		ENTRY	dtNoRead2
dtNoRead2
;		DC.W	dh3,400			Height/width of	dialog window.
;
;		DC.W	Text
;		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
;		DC.W	6			# of strings
;		DC.W	strgExtraSpace
;		DC.W	strgTheFolder
;		DC.W	FileName1
;		DC.W	strgNoRead
;		DC.W	strgNoRead2
;		DC.W	strgAbort
;
;		DC.W	Jump
;		DC.W	Cont1
;
;
;-----------------------------------------------------------------------------
; 128	   The name you	typed is not valid.  The first character must
;	   be a	letter.
;-----------------------------------------------------------------------------
;
		ENTRY	dtRenameErr
dtRenameErr					; 
;		DC.W	dh2,400			Height/width of	dialog window.
;
;		DC.W	Text
;		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
;		DC.W	3			# of strings
;		DC.W	strgExtraSpace
;		DC.W	strgRenameErr3
;		DC.W	strgRenameErr
;
;		DC.W	Icon
;		DC.W	NOTEICON		Offset into ICONBLK.
;
;		DC.W	StdBtn
;		DC.W	100			Width.
;		DC.W	1			# of buttons
;		DC.W	1			Next button is bold round
;		DC.W	strgOk			Pointer	to title.
;		DC.W	3			ID number.
;
;		DC.W	$FFFF			End of template.
;
;
;-----------------------------------------------------------------------------
; 130	   These items are from	different disks.  Please move them separately.
;-----------------------------------------------------------------------------
;
		ENTRY	dtCopyErr
dtCopyErr					; 
		DC.W	dh2,400			Height/width of	dialog window.
;
		DC.W	Text
		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
		DC.W	3			# of strings
		DC.W	strgExtraSpace
		DC.W	strgCopyErr1
		DC.W	strgCopyErr2
;
		DC.W	Jump			OK button.
		DC.W	OKstop
;
;
;-----------------------------------------------------------------------------
; 132	   Insert the disk 'NAME'.
;-----------------------------------------------------------------------------
;
		ENTRY	dtGetBoot
dtGetBoot	DC.W	36,300			Height/width of	dialog window.

		DC.W	Text
		DC.W	TextTopPos,20		Y and X	starting position of text.
		DC.W	5			# of strings
		DC.W	strgExtraSpace
		DC.W	Centered
		DC.W	strgInsDisk
		DC.W	VolName1
		DC.W	strgPeriod

		DC.W	Jump			OK button.
		DC.W	OKButt
;
;
;-----------------------------------------------------------------------------
; 134	   That	name is	already	taken.	Please use a different name.
;-----------------------------------------------------------------------------
;
		ENTRY	dtRenameErr2
dtRenameErr2					; 
;		DC.W	dh2,400			Height/width of	dialog window.
;
;		DC.W	Text
;		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
;		DC.W	2			# of strings
;		DC.W	strgExtraSpace
;		DC.W	strgRenameErr2

		ENTRY	OKstop
OKstop		DC.W	Icon
		DC.W	StopIcon

		DC.W	Jump			OK button.
		DC.W	OKButt

;-----------------------------------------------------------------------------
; 136	   5.25-inch disk drive	icons can't be moved into windows
;	   or onto another icons.
;-----------------------------------------------------------------------------
;
		ENTRY	dtDragErr4
dtDragErr4					; 
		DC.W	dh2,400			Height/width of	dialog window.
;
		DC.W	Text
		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
		DC.W	3			# of strings
		DC.W	strgExtraSpace
		DC.W	strgDrag5
		DC.W	strgDrag2
;
		DC.W	Jump			OK button.
		DC.W	OKstop
;
;
;-----------------------------------------------------------------------------
; 138	   Items on the	desktop	and in the Trash can't be duplicated.
;	   Please drag the items back into a volume or folder window.
;-----------------------------------------------------------------------------
;
		ENTRY	dtCanntDup
dtCanntDup
		DC.W	dh4,400			Height/width of	dialog window.
;
		DC.W	Text
		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
		DC.W	4			# of strings
		DC.W	strgExtraSpace
		DC.W	strgOnDesk
		DC.W	strgCanntDup2
		DC.W	strgBack2Wind
;
		DC.W	Jump			OK button.
		DC.W	OKstop

;--------------------------------------------------------------------------
; 140	   This disk cannot be mounted.
;--------------------------------------------------------------------------

		IMPORT	strNoMount

		ENTRY	dtNoMount
dtNoMount	DC.W	dh3,400			Height/width of	dialog window.

		DC.W	Text
		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
		DC.W	2			# of strings
		DC.W	strgExtraSpace
		DC.W	strNoMount

		DC.W	Jump			OK button.
		DC.W	OKstop

;-----------------------------------------------------------------------------
; 142	   The device 'NAME' is	alreay on the desktop and there	can't be
;	   two devices with the	same name on the desktop.
;-----------------------------------------------------------------------------

		ENTRY	dtDupDev
dtDupDev	DC.W	dh3,440			Height/width of	dialog window.

		DC.W	Text
		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
		DC.W	5			# of strings
		DC.W	strgExtraSpace
		DC.W	strgDupDev1
		DC.W	FileName1
		DC.W	strgDupDev2
		DC.W	strgDupDev3

		DC.W	Jump
		DC.W	OKstop			;changed to OK button - DJB

;-----------------------------------------------------------------------------
; 144	   Icons can only be dragged on	to directory windows, the Trash
;	   window, or the desktop.
;-----------------------------------------------------------------------------
;
		ENTRY	dtDesErr
dtDesErr	DC.W	dh3,360			Height/width of	dialog window.
;
		DC.W	Text
		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
		DC.W	3			# of strings
		DC.W	strgExtraSpace
		DC.W	strgDrag7
		DC.W	strgDrag8
;
		DC.W	Jump			OK button.
		DC.W	OKstop
;
;
;-----------------------------------------------------------------------------
; 146	   Items on the	desktop	and in the Trash can't be renamed.
;	   Please drag the items back into a disk or folder window.
;-----------------------------------------------------------------------------
;
		ENTRY	dtRenameErr3
dtRenameErr3					; 
;		DC.W	dh3,450			Height/width of	dialog window.
;
;		DC.W	Text
;		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
;		DC.W	4			# of strings
;		DC.W	strgExtraSpace
;		DC.W	strgOnDesk
;		DC.W	strgNameErr
;		DC.W	strgBack2Wind
;
;		DC.W	Jump			OK button.
;		DC.W	OKstop
;
;
;-----------------------------------------------------------------------------
; 148	   There isn't enough memory remaining to complete this operation.
;	   Please close	some windows and try again.
;-----------------------------------------------------------------------------
;
		ENTRY	dtMemErr
dtMemErr	DC.W	dh3,400			Height/width of	dialog window.

		DC.W	Text
		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
		DC.W	3			# of strings
		DC.W	strgExtraSpace
		DC.W	strgMemFull1
		DC.W	strgMemFull2

		DC.W	Jump
		DC.W	Cont1
;
;
;-----------------------------------------------------------------------------
; 150	   Those items can't all be opened/printed at once.
;-----------------------------------------------------------------------------
;
		ENTRY	dtOddCouple
dtOddCouple	DC.W	dh2,400			Height/width of	dialog window.

		DC.W	Text
		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
		DC.W	2			# of strings
		DC.W	strgExtraSpace
		DC.W	strgOddCouple

		DC.W	Jump
		DC.W	Cont1
;
;
;-----------------------------------------------------------------------------
; 152	   The item is locked and can''t be renamed.
;-----------------------------------------------------------------------------
;
		ENTRY	dtRenameErr4
dtRenameErr4					; 
;
;		DC.W	dh1,400			Height/width of	dialog window.
;
;		DC.W	Text
;		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
;		DC.W	2			# of strings
;		DC.W	strgExtraSpace
;		DC.W	strgNameErr4
;
;		DC.W	Jump
;		DC.W	Cont1
;
;
;-----------------------------------------------------------------------------
; 154	   No more windows can be opened.
;-----------------------------------------------------------------------------
;
		ENTRY	dtMaxWinds
dtMaxWinds					; 
		DC.W	dh1,400			Height/width of	dialog window.

		DC.W	Text
		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
		DC.W	2			# of strings
		DC.W	strgExtraSpace
		DC.W	strgMaxWind

		DC.W	Jump
		DC.W	Cont1
;
;
;-----------------------------------------------------------------------------
; 156	   An I/O error	has occurred while using the disk 'xxx'.  Can't
;	   comlete this	operation.
;-----------------------------------------------------------------------------
;
		ENTRY	dtIOErr
dtIOErr					; 
		DC.W	dh3,400			Height/width of	dialog window.

		DC.W	Text
		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
		DC.W	5			# of strings
		DC.W	strgExtraSpace
		DC.W	strgIOErr
		DC.W	VolName1
		DC.W	strgPeriod
		DC.W	strgAbort

		DC.W	Jump
		DC.W	Cont1


;-----------------------------------------------------------------------------
; 158	   Folders can't be dragged onto the desktop.
;-----------------------------------------------------------------------------

		ENTRY	dtDragFold
dtDragFold					; 
		DC.W	dh3,360			Height/width of	dialog window.

		DC.W	Text
		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
		DC.W	2			# of strings
		DC.W	strgExtraSpace
		DC.W	strgDragFold

		DC.W	Jump			OK button.
		DC.W	OKstop


;-----------------------------------------------------------------------------
; 160	   Can't copy more than 1,000 items at the same time.
;	   Can't complete this operation.
;-----------------------------------------------------------------------------

		ENTRY	dtTooMany
dtTooMany					; 
		DC.W	dh2,400			Height/width of	dialog window.

		DC.W	Text
		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
		DC.W	3			# of strings
		DC.W	strgExtraSpace
		DC.W	strgTooMany
		DC.W	strgAbort

		DC.W	Jump
		DC.W	Cont1


;-----------------------------------------------------------------------------
; 162, 164, 166 and 168 Verifing...		Added 05/09/88 DJB
;-----------------------------------------------------------------------------

		ENTRY	dtVerify
dtVerify
		DC.W	58,400			;Height,Width of dialog window.
		
		DC.W	Text
		DC.W	4,10			;y,x position of start of text.
		DC.W	1			;# of strings
		DC.W	strgVerifyBlk
		
		DC.W	Text
		DC.W	18,10			;y,x position of start of text.
		DC.W	2			;# of strings
		DC.W	strgVerifyVol
		DC.W	String1
		
		DC.W	SpecialBtn
		DC.W	100,13			;width, height
		DC.W	1			;# of buttons
		DC.W	58-17,400-110		;y,x position
		DC.W	0			;type (plain)
		DC.W	strgCancel		;pointer to title
		DC.W	CancelID		;ID number

		DC.W	Box
		DC.W	BlkRect			;RECT
		
		ENTRY	dtVerify2
dtVerify2
		DC.W	SpecialText
		DC.W	70,8			;width, height
		DC.W	5,400-85		;y,x position of start of text.
		DC.W	DecNum			;string

		DC.W	SpecialText
		DC.W	300,10			;width, height
		DC.W	30,10			;y,x position of start of text.
		DC.W	String2			;string

		DC.W	ThermoDial		;uses DialValue for indicator
		DC.W	260,9			;width, height
		DC.W	58-15,10		;y, x position
		
		DC.W	$FFFF			;End of list.
		
BlkRect		DC.W	3,400-90,3+13,400-10


;-----------------------------------------------------------------------------
; 166 and 168		All blocks on xxx are good.
;-----------------------------------------------------------------------------
		ENTRY	dtVerifyGood
dtVerifyGood
		DC.W	58,400			;Height,Width of dialog window.

		DC.W	Text
		DC.W	TextTopPos,TextLeftPos	;Y and X starting position of text.
		DC.W	4			;# of strings
		DC.W	strgExtraSpace
		DC.W	strgVerifyGood
		DC.W	strgCR
		DC.W	String1

		DC.W	Icon
		DC.W	NOTEICON		;Offset into ICONBLK.

		DC.W	StdBtn
		DC.W	100			;Width.
		DC.W	1			;# of buttons
		DC.W	1			;Next button is bold round
		DC.W	strgOk			;Pointer to title.
		DC.W	OKID			;ID number.

		DC.W	$FFFF			;End of template.

;-----------------------------------------------------------------------------
; 168		Some blocks on xxx were bad.
;-----------------------------------------------------------------------------
		ENTRY	dtVerifyBad
dtVerifyBad
		DC.W	58,400			;Height,Width of dialog window.

		DC.W	Text
		DC.W	TextTopPos,TextLeftPos	;Y and X starting position of text.
		DC.W	6			;# of strings
		DC.W	strgExtraSpace
		DC.W	strgVerifyBad1
		DC.W	strgCR
		DC.W	String1
		DC.W	strgCR
		DC.W	strgVerifyBad2

		DC.W	Icon
		DC.W	NOTEICON		;Offset into ICONBLK.

		DC.W	StdBtn
		DC.W	100			;Width.
		DC.W	2			;# of buttons
		DC.W	strgCancel		;Pointer to title.
		DC.W	CancelID		;ID number.
		DC.W	1			;Next button is bold round
		DC.W	strgOK			;Pointer to title.
		DC.W	OKID			;ID number.

		DC.W	$FFFF			;End of template.
		
;-----------------------------------------------------------------------------
; 170  Shut Down				Added 05/11/88 DJB
;-----------------------------------------------------------------------------
;sdw		equ	400			;width of Shut Down Box
;sdh		equ	87			;height of Shut Down Box
;
		ENTRY	dtShutDown
dtShutDown
;		DC.W	sdh,sdw			;Height,Width of dialog window.
;		
;		DC.W	Text
;		DC.W	TextTopPos+5,TextLeftPos  ;Y and X starting position of text.
;		DC.W	2			;# of strings
;		DC.W	strgExtraSpace
;		DC.W	strgShutDown2
;
;		DC.W	Icon
;		DC.W	NOTEICON		;Offset into ICONBLK.
;
;		DC.W	RadioBtn
;		DC.W	2			;# of buttons
;		DC.W	30,20			;y,x position
;		DC.W	strgShutDown
;		DC.W	$0000			;ID number.
;		DC.W	42,20			;y,x position
;		DC.W	strgRestart
;		DC.W	$0001			;ID number.
;
;shutUp		DC.W	SpecialBtn
;		DC.W	90,13			;width, height
;		DC.W	2			;# of buttons
;		DC.W	sdh-21,73		;y,x position
;		DC.W	0			;type (plain)
;		DC.W	strgCancel		;Pointer to title.
;		DC.W	CancelID		;ID number.
;		DC.W	sdh-21,236		;y,x position
;		DC.W	1			;type (bold round)
;		DC.W	strgOK			;Pointer to title.
;		DC.W	OKID			;ID number.
;		
;		DC.W	$FFFF			;End of template.
		

;-----------------------------------------------------------------------------
; 172, 174, 176 and 178 Validating...		Added 05/24/88 DJB
;-----------------------------------------------------------------------------

		ENTRY	dtValid
dtValid
		DC.W	58,400			;Height,Width of dialog window.
		
		DC.W	Text
		DC.W	4,10			;y,x position of start of text.
		DC.W	1			;# of strings
		DC.W	strgValidFile
		
		DC.W	Text
		DC.W	18,10			;y,x position of start of text.
		DC.W	1			;# of strings
		DC.W	strgReading
		
		DC.W	SpecialBtn
		DC.W	100,13			;width, height
		DC.W	1			;# of buttons
		DC.W	58-17,400-110		;y,x position
		DC.W	0			;type (plain)
		DC.W	strgCancel		;pointer to title
		DC.W	CancelID		;ID number

		DC.W	Box
		DC.W	BlkRect			;use RECT from diaVerify
		
		ENTRY	dtValid2
dtValid2
		DC.W	SpecialText
		DC.W	70,8			;width, height
		DC.W	5,400-85		;y,x position of start of text.
		DC.W	DecNum			;string (Number)

		DC.W	SpecialText
		DC.W	400-90,10		;width, height
		DC.W	18,85			;y,x position of start of text.
		DC.W	String2			;string (fileName)

		DC.W	ThermoDial		;uses DialValue for indicator
		DC.W	260,9			;width, height
		DC.W	58-15,10		;y, x position
		
		DC.W	$FFFF			;End of list.
		
		ENTRY	dtValidGood
dtValidGood
		DC.W	Text
		DC.W	TextTopPos,TextLeftPos	;Y and X starting position of text.
		DC.W	2			;# of strings
		DC.W	strgExtraSpace
		DC.W	strgValidGood

		DC.W	Icon
		DC.W	NOTEICON		;Offset into ICONBLK.

		DC.W	StdBtn
		DC.W	100			;Width.
		DC.W	1			;# of buttons
		DC.W	1			;Next button is bold round
		DC.W	strgOk			;Pointer to title.
		DC.W	OKID			;ID number.

		DC.W	$FFFF			;End of template.

		ENTRY	dtValidGood2
dtValidGood2
		DC.W	Text
		DC.W	TextTopPos,TextLeftPos	;Y and X starting position of text.
		DC.W	2			;# of strings
		DC.W	strgValidGood
		DC.W	strgSomeFileSkip

		DC.W	Icon
		DC.W	NOTEICON		;Offset into ICONBLK.

		DC.W	StdBtn
		DC.W	100			;Width.
		DC.W	1			;# of buttons
		DC.W	1			;Next button is bold round
		DC.W	strgOk			;Pointer to title.
		DC.W	OKID			;ID number.

		DC.W	$FFFF			;End of template.

		ENTRY	dtValidBad
dtValidBad
		DC.W	Text
		DC.W	TextTopPos,TextLeftPos	;Y and X starting position of text.
		DC.W	4			;# of strings
		DC.W	strgExtraSpace
		DC.W	strgValidBad1
		DC.W	strgCR
		DC.W	strgValidBad2

		DC.W	Icon
		DC.W	NOTEICON		;Offset into ICONBLK.

		DC.W	StdBtn
		DC.W	100			;Width.
		DC.W	2			;# of buttons
		DC.W	strgCancel		;Pointer to title.
		DC.W	CancelID		;ID number.
		DC.W	1			;Next button is bold round
		DC.W	strgOK			;Pointer to title.
		DC.W	OKID			;ID number.

		DC.W	$FFFF			;End of template.
		
;-----------------------------------------------------------------------------
; 180  Shut Down #2				Added 05/26/88 DJB
;-----------------------------------------------------------------------------
		ENTRY	dtShutDown2
dtShutDown2
;		DC.W	sdh,sdw			;Height,Width of dialog window.
;		
;		DC.W	Text
;		DC.W	TextTopPos+5,TextLeftPos	;Y and X starting position of text.
;		DC.W	2			;# of strings
;		DC.W	strgExtraSpace
;		DC.W	strgShutDown2
;
;		DC.W	Icon
;		DC.W	NOTEICON		;Offset into ICONBLK.
;
;		DC.W	RadioBtn
;		DC.W	3			;# of buttons
;		DC.W	30,20			;y,x position
;		DC.W	strgShutDown
;		DC.W	$0000			;ID number.
;		DC.W	41,20			;y,x position
;		DC.W	strgRestart
;		DC.W	$0001			;ID number.
;		DC.W	52,20			;y,x position
;		DC.W	strgLaunch
;		DC.W	$0002			;ID number.
;
;		DC.W	Jump
;		DC.W	shutUp			;reuse part of diaShutDown

;---------------------------------------------------------------------------
; 182	Items from shared volumes may not be moved...
;---------------------------------------------------------------------------

		ENTRY	dtSharedVol
dtSharedVol
		DC.W	dh1,460			Height/width of	dialog window.

		DC.W	Icon
		DC.W	STOPICON		Offset into ICONBLK.

		DC.W	Text
		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
		DC.W	2			# of strings
		DC.W	strgExtraSpace
		DC.W	strgSharedVol

		DC.W	Jump			OK button
		DC.W	OKButt

;---------------------------------------------------------------------------
; 184	You do not have the access privileges to use or make changes ...
;---------------------------------------------------------------------------
;
		ENTRY	dtNoAccess
dtNoAccess
;		DC.W	dh1,460			Height/width of	dialog window.
;
;		DC.W	Icon
;		DC.W	STOPICON		Offset into ICONBLK.
;
;		DC.W	Text
;		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
;		DC.W	3			# of strings
;		DC.W	strgExtraSpace
;		DC.W	strgNoAccess
;		DC.W	strgNoAccess2
;
;		DC.W	StdBtn
;		DC.W	100			Width.
;		DC.W	1			# of buttons
;		DC.W	1			Next button is bold round
;		DC.W	strgOK			Pointer	to title.
;		DC.W	CancelID		ID number.
;
;		DC.W	$FFFF			End of list.

;---------------------------------------------------------------------------
; 186	You do not have the access privileges to open...
;---------------------------------------------------------------------------

		ENTRY	dtNoAccess2
dtNoAccess2
		DC.W	dh1,460			Height/width of	dialog window.

		DC.W	Icon
		DC.W	STOPICON		Offset into ICONBLK.

		DC.W	Text
		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
		DC.W	5			# of strings
		DC.W	strgExtraSpace
		DC.W	strgNoAccess
		DC.W	strgNoAccess3
		DC.W	string1
		DC.W	strgPeriod

		DC.W	StdBtn
		DC.W	100			Width.
		DC.W	1			# of buttons
		DC.W	1			Next button is bold round
		DC.W	strgOK			Pointer	to title.
		DC.W	CancelID		ID number.

		DC.W	$FFFF			End of list.
		
;-----------------------------------------------------------------------------
; JAM 5/17/89 (Fixing BRC #48728)
;---------------------------------------------------------------------------
; 188	That item could not be moved (an item with that name already exists).
;---------------------------------------------------------------------------

		ENTRY	dtCantMove
dtCantMove
		DC.W	dh1,460			Height/width of	dialog window.

		DC.W	Icon
		DC.W	STOPICON		Offset into ICONBLK.

		DC.W	Text
		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
		DC.W	2			# of strings
		DC.W	strgExtraSpace
		DC.W	strgCantMove

		DC.W	StdBtn
		DC.W	100			Width.
		DC.W	1			# of buttons
		DC.W	1			Next button is bold round
		DC.W	strgOK			Pointer	to title.
		DC.W	CancelID		ID number.

		DC.W	$FFFF			End of list.

;-----------------------------------------------------------------------------
; JAM 5/18/89 (Fixing BRC #48727)
;---------------------------------------------------------------------------
; 190	You will not have access privileges to see all of the items ... .
;---------------------------------------------------------------------------

		ENTRY	dtCantSee
dtCantSee
		DC.W	dh1,460			Height/width of	dialog window.

		DC.W	Icon
		DC.W	CAUTION			Offset into ICONBLK.

		DC.W	Text
		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
		DC.W	2			# of strings
		DC.W	strgExtraSpace
		DC.W	strgCantSee

		DC.W	StdBtn
		DC.W	100			;Width.
		DC.W	2			;# of buttons
		DC.W	strgCancel		;Pointer to title.
		DC.W	CancelID		;ID number.
		DC.W	1			;Next button is bold round
		DC.W	strgOK			;Pointer to title.
		DC.W	OKID			;ID number.

		DC.W	$FFFF			End of list.
		
;-----------------------------------------------------------------------------
; JAM 5/30/89 (Fixing SEG-F-0008)
;---------------------------------------------------------------------------
; 192	Your access privileges do not permit you to perform that operation
;       on the selected item(s).
;---------------------------------------------------------------------------

		ENTRY	dtNoPrivs
dtNoPrivs
		DC.W	dh1,460			Height/width of	dialog window.

		DC.W	Icon
		DC.W	STOPICON		Offset into ICONBLK.

		DC.W	Text
		DC.W	TextTopPos,TextLeftPos	Y and X	starting position of text.
		DC.W	2			# of strings
		DC.W	strgExtraSpace
		DC.W	strgNoPrivs

		DC.W	StdBtn
		DC.W	100			Width.
		DC.W	1			# of buttons
		DC.W	1			Next button is bold round
		DC.W	strgOK			Pointer	to title.
		DC.W	CancelID		ID number.

		DC.W	$FFFF			End of list.

MiscDialogEnd	name
		ENDP

;-----------------------------------------------------------------------------
;-----------------------------------------------------------------------------
; 196	   The destination file/folder name "xxx" ... is not valid. (No skip)
;   Template is currently located between #102 and #120, since it is a
;   less well-endowed clone of 102.
;-----------------------------------------------------------------------------
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Finder/Pascal.macros b/IIGS.601.SRC/A.U.G/Finder/Pascal.macros
new file mode 100644
index 0000000..fc7e539
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Finder/Pascal.macros
@@ -0,0 +1 @@
+;---------------------------------------------------------------------
;
;  file  stackframe.macros
;
;  This file contains stack frame code, originally designed by Darryl
;  Lovato and further modified by Andy Stadler.  This code creates
;  "best optimized" entry and exit code for pascal-style calling
;  sequences.
;
;  created:	19-Apr-88
;  modified:	See Mod History Below
;  Author:	Andy Stadler
;
;  Copyright (C) Apple Computer, Inc. 1988
;  All Rights Reserved.

;---------------------------------------------------------------------
;
;  Modification History
;
;  19-Apr-88	ADS	Original release
;  20-May-88	ADS	Modified, now there are only 2 cases
;  23-May-88	ADS	Fixed bug in small frame exit case
;  27-Feb-89	DJB	Changed exit case to return error code in A reg

;---------------------------------------------------------------------
;
;  Pascal defines a stack frame with the following structure:
;
;	|		|
;	|---------------|
;	|		|
;	|  func result  |	"fsize" 
;	|		|
;	|---------------|
;	|		|
;	|  parameters   |	"psize"
;	|		|
;	|---------------|
;	|		|
;	|      RTL      |	3 bytes
;	|		|
;	|---------------|
;	|		|
;	|  saved D reg	|	2 bytes
;	|		|
;	|---------------|
;	|		|
;	|  local vars	|	"lsize"
;	|		|
;	|---------------|
;   D ->|		| <- SP
;	|		|
;
;
;  These macros generate code to save the old D register, create
;  local variable space (if requested), and point both D and the
;  stack pointer to the next free stack memory.  In addition, offsets
;  are automatically generated to all variables within the stack
;  frame.
;
;  Using the macros to generate stack frames is quite simple.  The 
;  structure of every procedure/function is as follows:
;
;	ProcName	PROC
;			InitFrame
;			FrameType	flags
;	
;	local1..n	Local		types
;	param1..n	Param		types
;	result		Result		type
;
;			FrameEntry
;
;			{ user code }
;
;			FrameExit
;			ENDPROC
;
;  The following data types are defined:
;
;	Rect		8 bytes
;	Handle		4
;	Ptr		4
;	LongInt		4
;	Integer		2
;	Char		2
;	Byte		2
;	Boolean		2
;	Long		4
;	Word		2
;	
;  Any other size variable may be defined simply by giving the number
;  of bytes to reserve.  Note that Char, Byte, and Boolean reserved two
;  bytes apiece;  this follows the Pascal calling conventions.  For local
;  storage, single byte variables may be declared with size 1 (but they may
;  only be stored to in 8 bit mode).
;
;  All variables (except locals, which are optional) must be declared in
;  reverse order from the Pascal definition.
;
;  The ExitCode routine includes the final RTL instruction;  none is needed.
;
;  Twi types of FrameType flags are currently defined:  SaveB will cause the data
;  bank register to be saved and restored.  This allows the procedure to access
;  data other than the standard globals page.  ReturnA will cause the A register
;  and carry flag to be returned.  If no flags are set, the FrameType instruction
;  is not needed.
;
;  A nice side effect is that the macros restore the stack pointer, no matter
;  what its state when ExitCode is reached.  This was designed mainly for the
;  pascal compiler so it could compile EXIT(proc) easily;  It can be used similarly
;  from assembly.  You don't need to clean up when done because it will be fixed
;  for you!
;
;---------
;
;  The following example demonstr
ates the use of the macros.
;
;  FUNCTION MyFunct(address: Ptr; count: Integer) : Handle;
;  VAR
;    myFlag:	Boolean;
;    myWord:	Integer;
;    myString:	Str19;
;    myArea:	Rect;
;
;    BEGIN
;	.....
;    END;
;
;  In assembly:
;
;	MYFUNCT		FUNC			; FUNC and PROC are synonyms
;			InitFrame
;			FrameType	SaveB
;
;	myArea		Local		Rect
;	myString	Local		20	    ; 20 bytes
;	myWord		Local		Integer
;	myFlag		Local		Boolean	    ; 2 bytes
;	count		Param		Integer
;	address		Param		Ptr
;	theResult	Result		Handle
;
;			EntryCode
;
;			lda	<myArea+top	; all variables are direct page
;
;			ldy	<count
;			lda	[<address],y	; etc, etc
;
;			ExitCode		; (this macros includes the RTL)
;			ENDFUNC			; ENDFUNC and ENDPROC are synonyms
;
;-------------------------------------------------------------------------

;---------------------------------------------------------------------
;
;  Stack Frame Creation Macros
;
;  The following macros are used to initialize SET variables for
;  subsequent stack frame macros.

		MACRO
		InitFrame

Rect		set	8		; Data type sizes
Handle		set	4
Ptr		set	4
LongInt		set	4
Integer		set	2
Char		set	2
Byte		set	2
Boolean		set	2
Long		set	4
Word		set	2

Qlsize		set	0		; # bytes of locals
Qpsize		set	0		; # bytes of parameters
Qfsize		set	0		; # bytes of function result
QsaveB		set	0		; 1 = save the data bank register
QretA		set	0		; 1 = return A register and carry
		MEND

;---------------------------------------------------------------------
;
;  Frame Options
;
;  The FrameType macro allows the user to choose options within the
;  stack frame.  The only currently defined options are SaveB which will
;  cause the data bank register to be preserved and restored and ReturnA
;  causes the A-register and carry to be returned.

		MACRO
		FrameType	&option1,&option2
		
		IF (&option1 = 'SaveB') OR (&option2 = 'SaveB') THEN
QsaveB		set	1
		ENDIF
		
		IF (&option1 = 'ReturnA') OR (&option2 = 'ReturnA') THEN
QretA		set	1
		ENDIF
		
		IF QsaveB+QretA = 0 THEN
		  Error:  Unknown_frame_option
		ENDIF
		
		MEND


;---------------------------------------------------------------------
;
;  Local Storage Macros
;
;  The following macros define labels for local stack frame variables,
;  stack based parameters, and function results.

		MACRO
&lab		Local	&val
&lab		equ	Qlsize+1
Qlsize		set	Qlsize+&val

		IF QpSize <> 0 THEN
		  Error:  Local_declaration_after_a_Param
		ENDIF
		IF QfSize <> 0 THEN
		  Error:  Local_declaration_after_a_Result
		ENDIF
	
		MEND

	

		MACRO
&lab		Param		&val		; Stack based parameter

&lab		equ		Qlsize+6+QsaveB+Qpsize
Qpsize		set		Qpsize+&val

		IF Qfsize<>0 THEN
		  Error:  Param_declaration_after_a_Result
		ENDIF
	
		MEND


		MACRO
&lab		Result		&val

		IF Qfsize <> 0 THEN
		  Error: Duplicate_Result
		ENDIF

&lab		equ		Qlsize+6+QsaveB+Qpsize
Qfsize		set		&val
		MEND


;---------------------------------------------------------------------
;
;  Entry Code Generation Macro
;
;  The EntryCode macro generates code to create the stack frame.  This
;  code saves the D and (optionally the B) register, creates space for
;  the local variables, and sets the D register and the Stack Ptr to 
;  just below this area (so the first local variable is at address 1).
;

		MACRO
		EntryCode
		longa	on
		longi	on

		IF	QsaveB = 1 THEN
		phb
		ENDIF
		
		phd

		IF	Qlsize <= 8 THEN

Qtemp		SET	Qlsize		; small # locals, PHY to make space
		WHILE	Qtemp > 0 DO
		phy
Qtemp		SET	Qtemp - 2
		ENDWHILE
		tsc
		
		ELSE
		tsc			; large # locals, calculate new SP
		sec
		sbc	#Qlsize
		tcs

		ENDIF
		tcd

		MEND


;---------------------------------------------------------------------
;
;  Exit Code Generation Macro
;
;  The following macro generates the appropriate exit code for a
;  subprogram.  The stack pointer, D reg, and optionally B reg are
;  restored, and an RTL is executed. The error code in the A reg
;  is returned and the carry flag is updated (set if A ­ 0).
;

		MACRO
&lab		ExitCode

&lab		longa	on
		longi	on
		
		IF	QretA = 1 THEN
		tay				; stash error code in y
		ENDIF
		
		IF	Qpsize <> 0 THEN	; move RTL & B up over parms
		lda	<Qlsize+4+QsaveB
		sta	<Qlsize+4+QsaveB+Qpsize
		lda	<Qlsize+3
		sta	<Qlsize+3+Qpsize
		ENDIF

;  If LSize + PSize <= 12 or LSize <= 2 then do smallframe.  Else do largeframe.

		IF	Qlsize+Qpsize <= 12 GOTO .SMALLFRAME
		IF	Qlsize > 2	    GOTO .LARGEFRAME

;  This frame has a small number of locals, zero or two bytes worth.
;  We can pull the D reg right off the stack, and then either pull or
;  calculate to remove the call parameters.

.SMALLFRAME	tdc
		tcs

Qtemp		SET	Qlsize			; use plx's to kill locals
		WHILE	Qtemp > 0 DO
		plx
Qtemp		SET	Qtemp - 2
		ENDWHILE
		
		pld				; recover direct page register
		IF	Qpsize <= 8 THEN

Qtemp		SET	Qpsize			; small # parms, use plx's
		WHILE	Qtemp > 0 DO
		plx
Qtemp		SET	Qtemp - 2
		ENDWHILE

		ELSE				; large # parms, use clc adc
		clc
		adc	#2+Qlsize+Qpsize
		tcs
		ENDIF
		GOTO	.DONE


;  This frame has a large amount of stack data.  We use a load to get to the
;  saved D register, and dump the stack data by calculating a new stack pointer.

.LARGEFRAME	ldx	<1+Qlsize
		tdc
		clc
		adc	#2+Qlsize+Qpsize
		tcs
		txa
		tcd
		
.DONE		IF	QsaveB = 1 THEN
		plb
		ENDIF

		IF	QretA = 1 THEN
		tya				; return error code and carry
		cmp	#1
		ENDIF

		rtl

		MEND

\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Finder/Release Notes.Finder b/IIGS.601.SRC/A.U.G/Finder/Release Notes.Finder
new file mode 100644
index 0000000..16b88a8
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Finder/Release Notes.Finder	
@@ -0,0 +1 @@
+Finder Version 6.0d34

d34 Known Bugs: Verify and validation windows won't show up in the windows
				menu.
				
				DESKTOP files in the ICONS folders of individual volumes aren't
				being build yet.
				
				Old style Finder.Icon files aren't being converted to the newer
				style DESKTOP files.

The hypercard icons are now built into the finder and expect a path of
*:Hypercard:HypercardIIGS in order to launch stacks.

The icons for teach have been changed so that a Teach (filetype $50/$5445)
document appears with a pencil over the document.  Other documents that
teach can open such as MacWrite 5.0 files, AppleWorks 3.0 word processor files,
and AppleWorks GS word processor files show up with the same icon and can
be launched from the Finder.  Additionally, TXT files (filetype $04) how launch
TeachText when double-clicked.

The icon matching code has been corrected so that matching by HFS Filetype and
HFS Creator type actually works.  The test-case I used was for a MacWrite 5.0
icon on a Macintosh disk that TeachText can be used to edit.

Fixed problem opening the trash icon if anything was put into trash.

Fixed problem dragging something into the trash which would cause the Finder
to crash later.

HandleDiskInsert is now being used by the Finder to handle duplicate and unknown
volumes online.  This saved some code, and will remove some AlertWindow dialogs
later.  Because HandleDiskInsert is being used for disk inserts and ejections,
special attention should be paid to the interaction between the tool call and
the finder.




\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Finder/Stack.aii b/IIGS.601.SRC/A.U.G/Finder/Stack.aii
new file mode 100644
index 0000000..1dcd0a3
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Finder/Stack.aii
@@ -0,0 +1 @@
+;------------------------------------------
;
; Stack Segment
;
; ===> converted to MAX 04/22/88 - DJB
;------------------------------------------
stack		STACKDP	EXPORT

		DS.L	256
		DS.L	256
		DS.L	256
		DS.L	256
		DS.L	256
		
		ENDS
;------------------------------------------

		END

\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Finder/Strings.aii b/IIGS.601.SRC/A.U.G/Finder/Strings.aii
new file mode 100644
index 0000000..f9d9c0f
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Finder/Strings.aii
@@ -0,0 +1 @@
+
; File:		Strings.aii
; Project:	GS Finder
; Build file:	Finder.make
;
; © Copyright Apple Computer, Inc. 1986-1992, All rights reserved.
;
; This file contains most of the hard-coded strings used by the Finder
;.....................................................................		
		
		STRING	PASCAL
		
		PRINT	OFF
		PRINT	NOGEN
		PRINT	NOSYM
		PRINT	NOPAGE
		PRINT	ON
		
;=================================================
;  --->	NOTE: this string file may be linked as a      <--- Read This Please
;	seperate segment so use "long" addressing
;	when accessing any these strings. DO NOT
;	rely on the data bank register it may not
;	be the same for the strings as the code!
;=================================================

StringBase	PROC	EXPORT

		STRING pascal
		
		export	NullButton
NullButton	dc.b	0

		EXPORT	strReadingBlks
strReadingBlks	DC.B	'Reading...'
		EXPORT	strWritingBlks
strWritingBlks	DC.B	'Writing...'

		EXPORT 	strAlloc
strAlloc	dc.b	'Preparing to copy...'

		EXPORT	strValidate
strValidate 	dc.b 	'Preparing to validate...'

		EXPORT	strgUntitled
strgUntitled	DC.B	'untitled'		;was "Untitled" 13-Jan-93 DAL

		EXPORT	strCancel
strCancel	dc.b	'Cancel'
		EXPORT	strgCopying
strgCopying	DC.B	'Copying: '
		EXPORT	strgReading
strgReading	DC.B	'Reading: '
		EXPORT	strgWriting
strgWriting	DC.B	'Writing: '
		EXPORT	strgWritingTo
strgWritingTo	DC.B	'Writing to: '

		EXPORT	ValidateFileString
ValidateFileString DC.B	'Item names'
		EXPORT	ValidateCountString
ValidateCountString DC.B '54321 Total'
		EXPORT	strBadBlocks
strBadBlocks	DC.B	'Number of bad blocks: 65535'

		string GSOS
		EXPORT	wstrSystem
wstrSystem	DC.B	'SYSTEM'
		EXPORT	IconsName
IconsName	DC.B	'Icons'
		EXPORT	DesktopName
DesktopName	dc.b	'Desktop'
		EXPORT	RootName
RootName	DC.B	'Finder.Root'
		EXPORT	DataName
DataName	DC.B	'Finder.Data'
		EXPORT	defaultName
defaultName	DC.B	'@:Finder.Defaults'	;Pathname of Finder defaults file

		string PASCAL	
		EXPORT	strSystem
strSystem	DC.B	'SYSTEM'
		EXPORT  FindersICBlkN
FindersICBlkN	DC.B	'FINDER.ICONS'		;Filename of ÒFinderÕsÓ ICONBLK in ICONS dir
		EXPORT	FindersICXBlkN
FindersICXBlkN	DC.B	'FINDER.ICONS.X'	;Filename of ÒFinderÕsÓ ICONBLK in ICONS dir


;===============================================
;  Strings for INFO window					
;===============================================

;     Size: xx bytes used, yyK on disk	(for files/folders)
;     Size: xxK in disk, yyK available  (for volumes)
; Contents: xx files, yy folders	(for volumes/folders)

		EXPORT	strBytesUsed
strBytesUsed	DC.B	',  '
		EXPORT	strOnDisk
strOnDisk	DC.B	' on disk'
		EXPORT	strInDisk
strInDisk	DC.B	' in disk,  '
		EXPORT	strFiles
strFiles	DC.B	' files,  '
		EXPORT	strFile
strFile		DC.B	' file,  '			; singular form of above string
		EXPORT	strFolders
strFolders	DC.B	' folders'
		EXPORT	strFolder
strFolder	DC.B	' folder'			; singular form of above string
		EXPORT	strAccFolders
strAccFolders	DC.B	' folders accessible'
		EXPORT	strAccFolder
strAccFolder	DC.B	' folder accessible'		; singular form of above string
		EXPORT	strAvailable
strAvailable	DC.B	' free'
		EXPORT	strUsed
strUsed		dc.b	' used'

		EXPORT	strPressCalc
strPressCalc	DC.B	'use calculate icon...'

		EXPORT	strCalculating
strCalculating	DC.B	'calculating...'

		STRING	ASIS
		EXPORT	TrashText
;TrashText	DC.B	'Files and folders are deleted by dragging them to the Trash.'
;		DC.B	'  Removable disks are unmounted by dragging them to the Trash.'
*** 19-Oct-92 DAL -- Replaced with text similar to Mac 7.1 balloon help on Trash
TrashText	dc.b	'To discard an item, eject a disk, or remove a shared disk icon '
		dc.b	'from the desktop, drag it to the Trash.'
*** end 19-Oct-92
		EXPORT	endTrashText
endTrashText

		STRING	ASIS
		EXPORT	DriveText
DriveText	DC.B	'5.25 inch disks can be added to the desktop by inserting a'
		DC.B	' disk into a 5.25 drive and then opening that driveÕs icon.'
		EXPORT endDriveText
endDriveText
		STRING	PASCAL

		EXPORT	zeroString
zeroString	dc.B	'zero K'
		dc.B	0

		EXPORT	SizeStrg
SizeStrg	DC.B	'123456.0K'			;buffer for size text
		DC.B	0
		
		EXPORT	DateStrg
DateStrg	DC.B	'Feb 24, 1960 at 12:33 PM '	;buffer for dates
		DC.B	0

		EXPORT	itemsStrg
itemsStrg	DC.B	'1234 items'
		EXPORT	itemStrg
itemStrg	DC.B	'0001 item'
		EXPORT	usedKString
usedKString	DC.B	'123456K used'
		EXPORT	freeKString
freeKString	DC.B	'123456K free'
		EXPORT	usedMBString
usedMBString	dc.B	'      MB used'
		EXPORT	freeMBString
freeMBString	dc.B	'      MB free'

;
; fst name pointer list
;
		EXPORT	fstNames
fstNames	dc.L	nullName
		dc.L	ProDOSName
		dc.L	DOS33Name
		dc.L	DOS32Name
		dc.L	PascalName
		dc.L	MFSName
		dc.L	HFSName
		dc.L	LisaName
		dc.L	CPMName
		dc.L	nullName
		dc.L	MSDOSName
		dc.L	HighSierraName
		dc.L	ISO9660Name
		dc.L	AppleShareName
		dc.L	nullName
		dc.L	nullName

		EXPORT	nullName
nullName	dc.b	' '
		EXPORT	ProDOSName
ProDOSName	dc.b	'ProDOS'
		EXPORT	DOS33Name
DOS33Name	dc.b	'DOS 3.3'
		EXPORT	DOS32Name
DOS32Name	dc.b	'DOS 3.2'
		EXPORT	PascalName
PascalName	dc.b	'Pascal'
		EXPORT	MFSName
MFSName		dc.b	'MFS'
		EXPORT	HFSName
HFSName		dc.b	'HFS'
		EXPORT	LisaName
LisaName	dc.b	'Lisa'
		EXPORT	CPMName
CPMName		dc.b	'Apple CP/M'
		EXPORT	MSDOSName
MSDOSName	dc.b	'MS-DOS'
		EXPORT	highSierraName
HighSierraName	dc.b	'High Sierra'
		EXPORT	ISO9660Name
ISO9660Name	dc.b	'ISO 9660'
		EXPORT	AppleShareName
AppleShareName	dc.b	'AppleShare'
	
;		
; --- info bar titles for view by text window ---
;
		EXPORT	IBDate
IBDate		DC.B	'Last modified'
		EXPORT	IBKind
IBKind		DC.B	'Kind'
		EXPORT	IBSize
IBSize		DC.B	'Size'
		EXPORT	IBName
IBName		DC.B	'Name'


;--- Date Strings for INFO window ---

		EXPORT	strJanuary
strJanuary	DC.B	'Jan'
		EXPORT	strFeburary
strFeburary	DC.B	'Feb'
		EXPORT	strMarch
strMarch	DC.B	'Mar'
		EXPORT	strApril
strApril	DC.B	'Apr'
		EXPORT	strMay
strMay		DC.B	'May'
		EXPORT	strJune
strJune		DC.B	'Jun'
		EXPORT	strJuly
strJuly		DC.B	'Jul'
		EXPORT	strAugust
strAugust	DC.B	'Aug'
		EXPORT	strSeptember
strSeptember	DC.B	'Sep'
		EXPORT	strOctober
strOctober	DC.B	'Oct'
		EXPORT	strNovember
strNovember	DC.B	'Nov'
		EXPORT	strDecember
strDecember	DC.B	'Dec'

		EXPORT	strSunday
strSunday	DC.B	'Sun'
		EXPORT	strMonday
strMonday	DC.B	'Mon'
		EXPORT	strTuesday
strTuesday	DC.B	'Tue'
		EXPORT	strWednesday
strWednesday	DC.B	'Wed'
		EXPORT	strThursday
strThursday	DC.B	'Thu'
		EXPORT	strFriday
strFriday	DC.B	'Fri'
		EXPORT	strSaturday
strSaturday	DC.B	'Sat'

;
; ----- Device Kind Strings for icon INFO ----------
;
		EXPORT	hardKind
hardKind	DC.B	'Hard disk'
		EXPORT	flopKind
flopKind	DC.B	'5.25 inch disk'
		EXPORT	miniKind
miniKind	DC.B	'3.5 inch disk'
		EXPORT	ramKind
ramKind		DC.B	'RAM disk'
		EXPORT	cdromKind
cdromKind	DC.B	'CD-ROM disc'
		EXPORT	tapeKind
tapeKind	DC.B	'Tape drive'
		EXPORT	scsiKind
scsiKind	DC.B	'SCSI generic'
		EXPORT	serverKind
serverKind	DC.B	'File server'
		EXPORT	networkKind
networkKind	DC.B	'Network generic'
		EXPORT	hdPartKind
hdPartKind	DC.B	'Hard disk partition'
		EXPORT	cdPartKind
cdPartKind	DC.B	'CD-ROM partition'
		EXPORT	scPartKind
scPartKind	DC.B	'SCSI partition'

;
; --- Strings for Access Privileges Window ------
;
		EXPORT	strAnyUser
strAnyUser	DC.B	'<Any User>'

;
; --- all possible strings for user's access privileges ---
;
		EXPORT	StrPriv0
StrPriv0	DC.B	'none'
		EXPORT	StrPriv1
StrPriv1	DC.B	'See Folders'
		EXPORT	StrPriv2
StrPriv2	DC.B	'See Files'
		EXPORT	StrPriv3
StrPriv3	DC.B	'See Folders, See Files'
		EXPORT	StrPriv4
StrPriv4	DC.B	'Make Changes'
		EXPORT	StrPriv5
StrPriv5	DC.B	'See Folders, Make Changes'
		EXPORT	StrPriv6
StrPriv6	DC.B	'See Files, Make Changes'
		EXPORT	StrPriv7
StrPriv7	DC.B	'See Folders, See Files, Make Changes'

;
; --- tab labels for info cards ----------------
;
		EXPORT	strGeneral
strGeneral	DC.B	'General'
		EXPORT	strWhere
strWhere	DC.B	'Where'
		EXPORT	strAccess
strAccess	DC.B	'Access'
		EXPORT	strComment
strComment	DC.B	'Comment'

;
; --- button titles for info access cards -------
;
		EXPORT	strApply
strApply	DC.B	'Apply'
		EXPORT	strApplyAll
strApplyAll	DC.B	'Apply to enclosed folders'
		EXPORT	strCalculate
strCalculate	DC.B	'Calculate'

;
; --- field titles for info cards --------------
;
		EXPORT	strOwner
		EXPORT	endOwner
strOwner	DC.B	'Owner:'
endOwner
		EXPORT	strGroup
		EXPORT	endGroup
strGroup	DC.B	'Group:'
endGroup
		EXPORT	strPrivileges
		EXPORT	endPrivileges
strPrivileges	DC.B	'Privileges:'
endPrivileges
		EXPORT	strLocked
		EXPORT	endLocked
strLocked	DC.B	'Locked'
endLocked
		EXPORT	strInactive
		EXPORT	endInactive
strInactive	DC.B	'Inactive'
endInactive
		EXPORT	strKind
		EXPORT	endKind
strKind		DC.B	'Kind:'
endKind
		EXPORT	strSize
		EXPORT	endSize
strSize		DC.B	'Size:'
endSize
		EXPORT	strContents
		EXPORT	endContents
strContents	DC.B	'Contents:'
endContents
		EXPORT	strCreated
		EXPORT	endCreated
strCreated	DC.B	'Created:'
endCreated
		EXPORT	strModified
		EXPORT	endModified
strModified	DC.B	'Modified:'
endModified
		EXPORT	strPath
		EXPORT	endPath
strPath		DC.B	'Path:'
endPath
		EXPORT	strDevice
		EXPORT	endDevice
strDevice	DC.B	'Device:'
endDevice
		EXPORT	strServer
		EXPORT	endServer
strServer	DC.B	'Server:'
endServer
		EXPORT	strZone
		EXPORT	endZone
strZone		DC.B	'Zone:'
endZone

		EXPORT	strAddComment
strAddComment	dc.b	'Add Comment'

;
; Misc. Strings
;		
		EXPORT	nullStrg
nullStrg	DC.W	0

		EXPORT	strBlkNumbers
strBlkNumbers	DC.B	'Block numbers'

		EXPORT	strTotal
strTotal	DC.B	' total'

		EXPORT	tempStrg1
tempStrg1	DS.B	64			;temp string buffer (in this segment)

		EXPORT	strInfo1
strInfo1	DC.B	'  Info on Ò'		; name of Info window
		EXPORT	strInfo2
strInfo2	DC.B	'Ó  '
		EXPORT	strInfo3
strInfo3	DC.B	'Info on Ò'		; name of Info window
		EXPORT	strInfo4
strInfo4	DC.B	'Ó'

		EXPORT	strMBytes
strMBytes	dc.b	' MB'

		EXPORT	strBytes
strBytes	DC.B	' bytes'

		EXPORT	notInDriveStrg
notInDriveStrg	DC.B	'not in any drive'	;Info window's where strings.

		EXPORT	strUnknown
strUnknown	DC.B	'Unknown'

;
; strings used by text alert code in alert.aii
;

		string ASIS
		
;
; our output string goes here
;
; NOTE: textAlertStr must always start with the clear screen code since Alert.aii uses it to
; 	clear the screen
;
		EXPORT	textAlertStr
textAlertStr	dc.b	12		;clear screen
         	dc.b	1		;save current and reset port
         	dc.b	$15		;set cursor movement word
         	dc.b	$17		;DLE,Wrap,LF,Advance=TRUE, Scroll=FALSE

;
; set textport size to size of desired dialog box
;
		dc.b	2		; set new textport dimensions
		dc.b	10+32		; X1
		dc.b	3+32		; Y1
         	dc.b	69+32		; X2
         	dc.b	23-3+32		; Y2

;
; define the dialog box borders
; screen line 5
;
         	dc.b	' '		;space character
         	dcb.b	58,'_'
         	dc.b	' '
;
; screen line 6
;
         	dc.b	$DA		;mousetext vertical bar
         	dcb.b	58,$cc		;mousetext top bar
         	dc.b	$DF		;mousetext vertical bar
;
; screen line 7-16
;
		dc.b	$DA
         	dc.b	$10,58+32	;DLE space expansion
         	dc.b	$DF

		dc.b	$DA
         	dc.b	$10,58+32	;DLE space expansion
         	dc.b	$DF

		dc.b	$DA
         	dc.b	$10,58+32	;DLE space expansion
         	dc.b	$DF

		dc.b	$DA
         	dc.b	$10,58+32	;DLE space expansion
         	dc.b	$DF

		dc.b	$DA
         	dc.b	$10,58+32	;DLE space expansion
         	dc.b	$DF

		dc.b	$DA
         	dc.b	$10,58+32	;DLE space expansion
         	dc.b	$DF

		dc.b	$DA
         	dc.b	$10,58+32	;DLE space expansion
         	dc.b	$DF

		dc.b	$DA
         	dc.b	$10,58+32	;DLE space expansion
         	dc.b	$DF

		dc.b	$DA
         	dc.b	$10,58+32	;DLE space expansion
         	dc.b	$DF

		dc.b	$DA
         	dc.b	$10,58+32	;DLE space expansion
         	dc.b	$DF

;
; screen line 17
;
		dc.b	$DA
         	dcb.b	58,'_'
         	dc.b	$DF
;
; screen line 18
;
		dc.b	' '
         	dcb.b	58,$CC
      		dc.b	' '

;
; reset the textport size to protect the dialog box borders
;
		dc.b	2
		dc.b	12+32		; X1
         	dc.b	5+32		; Y1
         	dc.b	67+32		; X2
         	dc.b	23-3-2+32	; Y2
		
		EXPORT	endTextAlertStr
endTextAlertStr	

;
; now that the dialog box is displayed, we can fill it in with whatever message we want
; first, position the cursor properly
;
		EXPORT textQuitStr
textQuitStr
		dc.b	$1e		;gotoxy
		dc.b	45+32		; X=40
         	dc.b	9+32		; Y=9
         	dc.b	'Quit '
		dc.b	$cd		; mousetext carriage return
		
		EXPORT	endTextQuitStr
endTextQuitStr

;
; now that the dialog box is displayed, we can fill it in with whatever message we want
; first, position the cursor properly
;
		EXPORT textCancelStr
textCancelStr
		dc.b	$1e		;gotoxy
		dc.b	45+32		; X=40
         	dc.b	9+32		; Y=9
         	dc.b	'Cancel '
		dc.b	$cd		; mousetext carriage return
		
		EXPORT	endTextCancelStr
endTextCancelStr


;
; tell the user they gotta have System 6 to startup.
;
		EXPORT	NotSystem6
NotSystem6	dc.w	NotSystem6End-NotSystem6-2	;block size (used on entry)

		dc.b	$1e		;GOTOXY
         	dc.b	0+32		; X = 0
         	dc.b	0+32		; Y = 0
		
;		                  1         2         3		4	  5
;		         12345678901234567890123456789012345678901234567890123456
		dc.b	'Finder requires System 6.0.1 or later. Use the'
		dc.b	13
		dc.b	'System 6.0.1 Installer to update your system.'
		dc.b	4		;pop textport
NotSystem6End

;
; tell the user they need at least 300K free to run the Finder and a one-megabyte system.
;
		EXPORT	NotMemory,NotMemoryCode
NotMemory	dc.w	NotMemoryEnd-NotMemory-2

		dc.b	$1e		;GOTOXY
         	dc.b	0+32		; X = 0
         	dc.b	0+32		; Y = 0

;		                  1         2         3		4	  5
;		         12345678901234567890123456789012345678901234567890123456
		dc.b	'Finder requires System 6.0.1 or later and at least 300K'
		dc.b	13
		dc.b	'of free memory.  ($'
NotMemoryCode	dc.b	'0000)'
		dc.b	13
		dc.b	13
		dc.b	'You can increase free memory by decreasing your Control'
		dc.b	13
		dc.b	'Panel''s RAM Disk size, and also by restarting with the'
		dc.b	13
		dc.b	'Shift key held down to bypass loading inits and desk'
		dc.b	13
		dc.b	'accessories.'
		dc.b	4		;pop textport
NotMemoryEnd

;
; tell the user they need at least one ftype file to run the Finder
;
		EXPORT	NotDescriptors
NotDescriptors	dc.w	NotDescriptorsEnd-NotDescriptors-2
		
		dc.b	$1e		;GOTOXY
         	dc.b	0+32		; X = 0
         	dc.b	0+32		; Y = 0

;		                  1         2         3		4	  5
;		         12345678901234567890123456789012345678901234567890123456
		dc.b	13
		dc.b	'Finder couldn''t load any file type descriptors.'
		dc.b	13
		dc.b	13
		dc.b	'At least one "FType" (file type descriptor) file with'
		dc.b	13
		dc.b	'auxiliary type zero must be present in the Icons folder'
		dc.b	13
		dc.b	'on your startup disk for the Finder to work.'
		
		dc.b	4		;pop textport
NotDescriptorsEnd

;
; tell the user they need more memory
;
		EXPORT	MemoryFull
MemoryFull	dc.w	MemoryFullEnd-MemoryFull-2
		
		dc.b	$1e		;GOTOXY
         	dc.b	0+32		; X = 0
         	dc.b	0+32		; Y = 0

;		                  1         2         3		4	  5
;		         12345678901234567890123456789012345678901234567890123456
		dc.b	'There isn''t enough memory available to open this'
		dc.b	13
		dc.b	'window.  The Finder is dangerously low on memory.'
		
		dc.b	4		;pop textport
MemoryFullEnd

		ENDP

		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Finder/Strings.equ b/IIGS.601.SRC/A.U.G/Finder/Strings.equ
new file mode 100644
index 0000000..8b656f9
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Finder/Strings.equ
@@ -0,0 +1 @@
+*===============================================*
* File:		Strings.equ			*
* Project:	IIGS Finder			*
* Author:	Don Brady			*
* Build file:	Finder.Make			*
*						*
* This contains all the IMPORTs for all of the  *
* strings used by the Finder. This file should	*
* be included by any file that references any	*
* string in Strings.aii				*
*						*
* Copyright Apple Computer, Inc. 1986-1988	*
* All rights reserved.				*
*-----------------------------------------------*
* Modification History:				*
* ---------------------				*
* 06/08/88 DJB	- Created file today		*
*						*
*===============================================*

		IMPORT	StringBase

		IMPORT	strgUnread1
		IMPORT	strgUnread2
		IMPORT	strgInTrash
		IMPORT	strgInitErr
		IMPORT	strgProtect
		IMPORT	strgGetName
		IMPORT	strgUntitled
		IMPORT	strgTitle
		IMPORT	strgVersion
		IMPORT	strgSysVersion
		IMPORT	strgAuthors
		IMPORT	strgAuthors2
		IMPORT	strgRights1
		IMPORT	strgRights3
		IMPORT	strgDumbTeach
		IMPORT	strgInact10A
		IMPORT	strgInact10B
		IMPORT	strgInact1
		IMPORT	strgInact3
		IMPORT	strgInact4
		IMPORT	strgInact5
		IMPORT	strgInact6
		IMPORT	strgInact7A
		IMPORT	strgInact7B
		IMPORT	strgInact8
		IMPORT	strgInact9
		IMPORT	strgNoApp3
		IMPORT	strgErase2
		IMPORT	strgTooLong
		IMPORT	strgDrag1
		IMPORT	strgDrag2
		IMPORT	strgDrag3
		IMPORT	strgDrag4
		IMPORT	strgDrag6
		IMPORT	strgSysErr1
		IMPORT	strgAbort
		IMPORT	strgSysErr2
		IMPORT	strgTheDisk
		IMPORT	strgWP
		IMPORT	strgInsDisk
		IMPORT	strgTheFF
		IMPORT	strgRepFile
		IMPORT	strgRepFile1
		IMPORT	strgRepFile2
		IMPORT	strgRepFile3
		IMPORT	strgRepFile4
		IMPORT	strgVolFull
		IMPORT	strgDirFull
		IMPORT	strgTheFile
		IMPORT	strgNoRead
		IMPORT	strgNoRead1
		IMPORT	strgTheFolder
		IMPORT	strgChPath
		IMPORT	strReadingBlks
		IMPORT	strWritingBlks
		IMPORT	strgRemain
		IMPORT	strgParents
		IMPORT	strgType1
		IMPORT	strgType2
		IMPORT	strgRepDisk1
		IMPORT	strgRepDisk2
		IMPORT	strgAnd
		IMPORT	strgLocked1
		IMPORT	strgLocked2
		IMPORT	strgLocked3
		IMPORT	strgFolder1
		IMPORT	strgContents
		IMPORT	strgFolder2
		IMPORT	strgNoRoom1
		IMPORT	strgNoRoom2
		IMPORT	strgDCopy1
		IMPORT	strgDCopy2
		IMPORT	strgDCopy3
		IMPORT	strgDCopy4
		IMPORT	strgDCopy5
		IMPORT	strgUnread3
		IMPORT	strgUnread3o
		IMPORT	strgUnread4
		IMPORT	strgNoMem
		IMPORT	strgFCopy
		IMPORT	strgRepFile5
		IMPORT	strgNoApp1
		IMPORT	strgNoApp2
		IMPORT	strgNumBlks
		IMPORT	strgNameDup1
		IMPORT	strgNameDup2
 		IMPORT	strgSomeFileSkip	; Mensch 06/05/89
		IMPORT	strgNameUsed1
		IMPORT	strgNameUsed2
		IMPORT	strgBadName
		IMPORT	strgNoNames1
		IMPORT	strgNoNames2
		IMPORT	strgNonRemove
		IMPORT	strgPrefer
		IMPORT	strgMHelp
		IMPORT	strgThrow
		IMPORT	strgColor
		IMPORT	strgData
		IMPORT	strgSData
		IMPORT	strgBCopy
		IMPORT	strgRAMDisk
		IMPORT	strgWarnDel
		IMPORT	strgTransFile1
		IMPORT	strgTransFile2
		IMPORT	strgHelp
		IMPORT	strgHelp1
		IMPORT	strgHelp2
		IMPORT	strgHelp3
		IMPORT	strgHelp4
		IMPORT	strgHelp5
		IMPORT	strgHelp6
		IMPORT	strgHelp1A
		IMPORT	strgHelp1B
		IMPORT	strgHelp1C
		IMPORT	strgHelp1D
		IMPORT	strgHelp1E
		IMPORT	strgHelp1F
		IMPORT	strgHelp2A
		IMPORT	strgHelp2B
		IMPORT	strgHelp3A
		IMPORT	strgHelp4A
		IMPORT	strgHelp4B
		IMPORT	strgHelp4C
		IMPORT	strgHelp5A
		IMPORT	strgHelp6A
		IMPORT	strgHelp6B
		IMPORT	strgInit5
		IMPORT	strgInit6
		IMPORT	strgNoMedia
		IMPORT	strgDupVolErr
		IMPORT	strgNoRead2
		IMPORT	strgRenameErr3
		IMPORT	strgRenameErr
		IMPORT	strgCopyErr1
		IMPORT	strgCopyErr2
		IMPORT	strgRenameErr2
		IMPORT	strgDrag5
		IMPORT	strgOnDesk
		IMPORT	strgCanntDup2
		IMPORT	strgBack2Wind
		IMPORT	strgInact11
		IMPORT	strgDupDev1
		IMPORT	strgDupDev2
		IMPORT	strgDupDev3
		IMPORT	strgDrag7
		IMPORT	strgDrag8
		IMPORT	strgNameErr
		IMPORT	strgMemFull1
		IMPORT	strgMemFull2
		IMPORT	strgOddCouple
		IMPORT	strgNameErr4
		IMPORT	strgMaxWind
		IMPORT	strgIOErr
		IMPORT	strgDragFold
		IMPORT	strgTooMany
		IMPORT	strgVerifyVol
		IMPORT	strgVerifyBlk
		IMPORT	strgVerifyGood
		IMPORT	strgVerifyBad1
		IMPORT	strgVerifyBad2
		IMPORT	strgShutDown
		IMPORT	strgRestart
		IMPORT	strgLaunch
		IMPORT	strgShutDown2
		IMPORT	strgValidFile
		IMPORT	strgValidGood
		IMPORT	strgValidBad1
		IMPORT	strgValidBad2
		IMPORT	strgReading
		IMPORT	strgWriting
		IMPORT	strgDamaged
		IMPORT	strBytesUsed
		IMPORT	strOnDisk
		IMPORT	strFiles
		IMPORT	strPressCalc
		IMPORT	lockTitle		
		IMPORT	inActTitle		
		IMPORT	TrashText
		IMPORT	endTrashText
		IMPORT	DriveText
		IMPORT	endDriveText
		IMPORT	SizeStrg
		IMPORT	DateStrg
		IMPORT	itemsStrg
		IMPORT	itemStrg
		IMPORT	usedKString
		IMPORT	freeKString
		IMPORT	usedMBString
		IMPORT	freeMBString
		IMPORT	fstNameString
		IMPORT	nullName
		IMPORT	ProDOSName
		IMPORT	DOS33Name
		IMPORT	DOS32Name
		IMPORT	PascalName
		IMPORT	MFSName
		IMPORT	HFSName
		IMPORT	LisaName
		IMPORT	CPMName
		IMPORT	MSDOSName
		IMPORT	HighSierraName
		IMPORT	ISO9660Name
		IMPORT	AppleShareName
		IMPORT	IBDate
		IMPORT	IBKind
		IMPORT	IBSize
		IMPORT	IBName
		IMPORT	fileSys0
		IMPORT	fileSys1
		IMPORT	fileSys2
		IMPORT	fileSys3
		IMPORT	fileSys4
		IMPORT	fileSys5
		IMPORT	fileSys6
		IMPORT	fileSys7
		IMPORT	fileSys8
		IMPORT	fileSysA
		IMPORT	fileSysB
		IMPORT	fileSysC

; JAM 06/07/89 (Aftermath of Support for DTS Std FTypes)
;   Removed all references to strings type00-typeFF.
;   Go to previous versions if you want to get them.

		IMPORT	strJanuary
		IMPORT	strFeburary
		IMPORT	strMarch
		IMPORT	strApril
		IMPORT	strMay
		IMPORT	strJune
		IMPORT	strJuly
		IMPORT	strAugust
		IMPORT	strSeptember
		IMPORT	strOctober
		IMPORT	strNovember
		IMPORT	strDecember
		IMPORT	strSunday
		IMPORT	strMonday
		IMPORT	strTuesday
		IMPORT	strWednesday
		IMPORT	strThursday
		IMPORT	strFriday
		IMPORT	strSaturday
		IMPORT	hardKind
		IMPORT	flopKind
		IMPORT	miniKind
		IMPORT	ramKind
		IMPORT	cdromKind
		IMPORT	tapeKind
		IMPORT	scsiKind
		IMPORT	serverKind
		IMPORT	networkKind
		IMPORT	hdPartKind
		IMPORT	cdPartKind
		IMPORT	scPartKind
		IMPORT	strgNoAccess
		IMPORT	strgNoAccess2
		IMPORT	strgNoAccess3
		IMPORT	strgSharedVol
		IMPORT	strgLoggedOn
		IMPORT	strgPrivilege
		IMPORT	strgOwner
		IMPORT	strgGroup
		IMPORT	strgUser1
		IMPORT	strgUser2
		IMPORT	strgUser3
		IMPORT	strgSeeFolder
		IMPORT	strgSeeFile
		IMPORT	strgChanges
		IMPORT	strgChangeAll
		IMPORT	strgUndo
		IMPORT	strgSave
		IMPORT	StrPriv0
		IMPORT	StrPriv1
		IMPORT	StrPriv2
		IMPORT	StrPriv3
		IMPORT	StrPriv4
		IMPORT	StrPriv5
		IMPORT	StrPriv6
		IMPORT	StrPriv7
		IMPORT	strGeneral
		IMPORT	strWhere
		IMPORT	strAccess
		IMPORT	strComment
		IMPORT	strApply
		IMPORT	strApplyAll
		IMPORT	strRevert
		IMPORT	strCalculate
		IMPORT	runningStrg
		IMPORT	TrashName
		IMPORT	nullStrg
		IMPORT	tempStrg1
		IMPORT	clipWinTitle
		IMPORT	strInfo1
		IMPORT	strInfo2
		IMPORT	notInDriveStrg
		IMPORT	strUnknown
		IMPORT	strAlloc
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Finder/Utility.aii b/IIGS.601.SRC/A.U.G/Finder/Utility.aii
new file mode 100644
index 0000000..0ad24e8
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Finder/Utility.aii
@@ -0,0 +1 @@
+*===============================================*
*						*
* File:		Utility.aii			*
* Project:	GS Finder			*
* Author:	Don J. Brady			*
* Build file:	Finder.Make			*
*						*
* ©ÊCopyright Apple Computer, Inc. 1988-1993	*
* All rights reserved.				*
*						*
*===============================================*
* Global Routines:				*
*	DateToString()				*
*	SizeToString()				*
*	DeviceToString()			*
*	PStringCat()				*
*	PStringCopy()				*
*	PStringCompare()			*
*	PStrToUpper()				*
*	TextToWString()				*
*	PToWString()				*
*	WToPString()				*
*	WStringCopy()				*
*	WStrCompare()				*
*						*
*	HandleToPointer()			*
*	UnlockHandle()				*
*	NewHandle()				*
*	HalfRoundUp()				*
*	ToUpperCase()				*
*	PStrClip()				*
*						*
*	PathAddName()				*
*	PathSubName()				*
*	PathGetName()				*
*	PathGetRoot()				*
*	PathToPStr()				*
*-----------------------------------------------*
*
* Modification History:
* 12/12/88 DJB	- File created today
* 03/02/90 rdl - Fixed bug: if you entered a
*		Ô\Õ char into an iconÕs name & 
*		pressed return the AlertWindow 
*		box posted the remaining part of
*		its message (following the Ô\Õ)
*		as the OK button text!
*		Changed text sep char fr Ô\Õ to 2.
*
***************************************************************************
*
* 6.0.1
*
* Note that tons and tons of changed are not listed here.  Oh, well.
*
* 13-Jan-93 DAL (6.0.1d13)
*   Changed SizeToString to set bit 31 of Long2Dec, to give "zero"
*   instead of "0", and made it not add commas into the "zero"
*   string.
*
***************************************************************************

		LONGA	ON
		LONGI	ON
		STRING	PASCAL
		
		PRINT	OFF		
*		PRINT	NOGEN
		PRINT	NOSYM
		INCLUDE	'ALL.MACROS'		
		INCLUDE	'Pascal.MACROS'		
		INCLUDE	'SPECIAL.MACROS'		
		PRINT	ON
	


*===============================================*




Date		RECORD	0			; GS/OS date record
;-----------------------------------------------
second		DS.B	1
minute		DS.B	1 
hour		DS.B	1
year		DS.B	1
day		DS.B	1
month		DS.B	1 
null		DS.B	1
weekday		DS.B	1
;-----------------------------------------------
		ENDR 

		
*===============================================*
*  Convert GSOS Date Record to an ASCII String	*
*						*
* IN:	---- STACK ----				*
*	stringPtr (LONG)			*
*	datePtr (LONG)				*
*	format  (WORD)				*
*		bit 15: use 24 hour time	*
*		bit 14: add week day to string	*
*		bit 0-1: %00 = MM_DD_YY		*
*			 %01 = DD_MM_YY		*
*			 %10 = YY_MM_DD		*
*			 %11 = undefined	*
*	returnAddr (3 bytes)			*
*			<-- SP			*
* OUT:	---- STACK ----				*
*	returnAddr (3 bytes)			*
*===============================================*

DateToString	PROC	EXPORT

		DefineStack
monthPtr	long
weekDayPtr	long
retAddr		block	3
format		word
datePtr		long
stringPtr	long

inParms		SET	10
locParms	SET	8

		IMPORT	PStringCopy

		IMPORT	StringBase		; strings from string segment
		IMPORT	strJanuary
		IMPORT	strFeburary
		IMPORT	strMarch
		IMPORT	strApril
		IMPORT	strMay
		IMPORT	strJune
		IMPORT	strJuly
		IMPORT	strAugust
		IMPORT	strSeptember
		IMPORT	strOctober
		IMPORT	strNovember
		IMPORT	strDecember
		IMPORT	strSunday
		IMPORT	strMonday
		IMPORT	strTuesday
		IMPORT	strWednesday
		IMPORT	strThursday
		IMPORT	strFriday
		IMPORT	strSaturday
		IMPORT	strUnknown
*===============================================*
		
		PushLong #0			; work space (monthPtr & weekDayPtr)
		PushLong #0
		tsc
		phb				; preserve data bank
		phd
		tcd				; set DP to stack
		
		phk
		plb				; can be called from another bank
						
		ldy	#Date.year
		lda	[<datePtr],y
		bne	ok
		brl	unknown
ok		and	#$00FF
		clc
		adc	#1900
		pha
		PushLong #YearStr
		PushWord #4			; 4 digits
		PushWord #0			; unsigned
		_Int2Dec

		ldy	#Date.minute
		lda	[<datePtr],y
		and	#$003F
		pha
		PushLong #MinuteStr
		PushWord #2			; 2 digits
		PushWord #0			; unsigned
		_Int2Dec

		sep	#$20
		LONGA	OFF
		lda	MinuteStr
		cmp	#' '
		bne	skip
		lda	#'0'			; change space to zero
		sta	MinuteStr
skip		rep	#$20
		LONGA	ON
	
		ldy	#Date.hour
		lda	[<datePtr],y
		and	#$001F
		ldx	#'  '			; spaces
		ldy	<format
		bmi	setAMPM			; use 24 hour display
		
		ldx	#'MA'			; "AM" (hard coded ok since "AM"
		cmp	#0			; is international )
		beq	twelve			; 12 midnight
		cmp	#12
		bcc	setAMPM
		ldx	#'MP'			; "PM" (hard coded ok since "PM"
		sec				; is international )
		sbc	#12			; convert 24 hour to 12 hour
		bne	setAMPM
twelve		lda	#12
setAMPM		stx	AMPMStr		
		pha
		PushLong #HourStr
		PushWord #2			; 2 digits
		PushWord #0			; unsigned
		_Int2Dec

		ldy	#Date.day
		lda	[<datePtr],y
		and	#$001F
		inc	a			; make it 1 relative
		pha
		PushLong #DayStr
		PushWord #2			; 2 digits
		PushWord #0			; unsigned
		_Int2Dec
		
		ldy	#Date.month
		lda	[<datePtr],y
		and	#$000F
		cmp	#12
		bcc	setMonth
		lda	#0
setMonth	asl	a
		tax
		lda	MonthNames,x
		sta	<monthPtr
		lda	#^StringBase
		sta	<monthPtr+2

		lda	<format
		and	#$4000			; use week day ?
		beq	build			; no
		ldy	#Date.weekday
		lda	[<datePtr],y
		and	#$0007
		dec	a
		asl	a
		tax
		lda	WeekDayNames,x
		sta	<weekDayPtr
		lda	#^StringBase
		sta	<weekDayPtr+2

build		lda	<format			; now put pieces together
		and	#$0003
		asl	a
		tax
		ldy	Formats,x
		
		ldx	#0			; string index
		lda	<format
		and	#$4000			; use week day ?
		bne	while			; yes
		iny				; else, skip over weekday token
		iny
		
while		lda	|$0000,y		; while token ­ 0
		beq	done
		dec	a
		pha
		rts				; add token's string to DateStr
continue	iny
		iny
		bra	while


done		txa
		sta	[<stringPtr]		; set length byte
		tay

		sep	#$20
@loop		lda	DateStr-1,y
		sta	[<stringPtr],y		; copy to caller's string
		dey
		bne	@loop
		rep	#$20
		bra	exit
		
unknown		PushLong #strUnknown		; pass 'Unknown' string back
		PushLong <stringPtr
		jsl	PStringCopy
		
exit		pld
		plb
		lda	retAddr+1,s		;clean up stack
		sta	retAddr+inParms+1,s
		lda	retAddr,s
		sta	retAddr+inParms,s
		tsa
		clc
		adc	#inParms+locParms
		tas
		rtl

;-----------------------------------------------		
_WeekDay	phy				; "Mon"
		sep	#$20
		LONGA	OFF	
		ldy	#1
@loop		lda	[<weekDayPtr],y
		sta	DateStr,x
		inx
		iny
		tya
		cmp	[<weekDayPtr]
		bcc	@loop
		beq	@loop	
		rep	#$20
		LONGA	ON
		ply
		brl	_Comma

_Day		lda	DayStr			; "24"
		sta	DateStr,x
		inx
		inx
		brl	continue
		
_Month		phy				; "Feb"
		sep	#$20
		LONGA	OFF	
		ldy	#1
@loop		lda	[<monthPtr],y
		sta	DateStr,x
		inx
		iny
		tya
		cmp	[<monthPtr]
		bcc	@loop
		beq	@loop	
		rep	#$20
		LONGA	ON
		ply
		brl	continue
		
_Year		lda	YearStr			; "1960"
		sta	DateStr,x
		inx
		inx
		lda	YearStr+2
		sta	DateStr,x
		inx
		inx
		brl	continue
		
_Time		lda	HourStr			; "  00:00 PM"
		sta	DateStr,x
		inx
		inx
		lda	#':'
		sta	DateStr,x
		inx
		lda	MinuteStr
		sta	DateStr,x
		inx
		inx
		lda	#' '
		sta	DateStr,x
		inx
		lda	AMPMStr
		sta	DateStr,x
		inx
		inx
		brl	continue

_Space		lda	#' '
		sta	DateStr,x
		inx
		brl	continue
		
_Comma		lda	#' ,'			; ", "
		sta	DateStr,x
		inx
		inx
		brl	continue

MinuteStr	DC.W	0
HourStr		DC.W	0
YearStr		DC.L	0
DayStr		DC.W	0
AMPMStr		DC.W	0
DateStr		DS.B	32

Formats		DC.W	MM_DD_YY		; Feb 24, 1960 12:24
		DC.W	DD_MM_YY		; 24 Feb 1960 12:24
		DC.W	YY_MM_DD		; 1960 Feb 24 12:24
		
MM_DD_YY	DC.W	_WeekDay,_Month,_Space,_Day
		DC.W	_Comma,_Year,_Comma,_Time,0
DD_MM_YY	DC.W	_WeekDay,_Day,_Space,_Month
		DC.W	_Space,_Year,_Comma,_Time,0
YY_MM_DD	DC.W	_WeekDay,_Year,_Space,_Month
		DC.W	_Space,_Day,_Comma,_Time,0

MonthNames	DC.W	strJanuary		; these are in string segment
		DC.W	strFeburary
		DC.W	strMarch
		DC.W	strApril
		DC.W	strMay
		DC.W	strJune
		DC.W	strJuly
		DC.W	strAugust
		DC.W	strSeptember
		DC.W	strOctober
		DC.W	strNovember
		DC.W	strDecember

WeekDayNames	DC.W	strSunday		; these are in string segment
		DC.W	strMonday
		DC.W	strTuesday
		DC.W	strWednesday
		DC.W	strThursday
		DC.W	strFriday
		DC.W	strSaturday

		ENDP		

*=============================================================
*
* Convert long Size to ASCII String
*
* IN:	---- STACK ----
*	stringPtr (LONG)
*	size (LONG)
*	type (word)
*	blocksize (word)
*	retAddr (3 bytes)
*  SP->
*	TYPE:	0 = plain (no suffix)
*		1 = bytes (size is in bytes)
*		2 = K (size is in half-K blocks)
*		4 = .5K	(fractional) (size is in half-K blocks)
*		8 = xx.x MB (fractional) (size is in half-K blocks)
*
* OUT:	---- STACK ----
*	retAddr (3 bytes)
*=============================================================

SizeToString	PROCNAME EXPORT

		DefineStack
retAddr		block	3
blocksize	word
type		word
size		long
strPtr		long

inParams	SET	12

digits		SET	10
typeByte	SET	1
typeKilo	SET	2
typeKiloFrac	SET	4
typeMega	SET	8

		IMPORT	strBytes		; in string segment
		IMPORT	strMBytes
*===============================================*

		tsc
		phb
		phd
		tcd				; set DP to stack
		
		phk
		plb				; can be called from another bank
		
;
; If the size string isn't just bytes, convert the size string into 512 byte blocks
;		
		lda	<type
		cmp	#typeKilo
		blt	@justBytes

		lda	<blocksize
		cmp	#512
		beq	@justBytes
		
		pha				;we need the number of blocks multiplied
		pha				;by the number of bytes per block
		pha
		pha
		pea	0
		pei	<blocksize
		pushZLong <size
		_LongMul
		pla
		plx
		ply
		ply
		
		pha				;divided by 512 yields # of 512 byte blocks
		pha
		pha
		pha
		phx
		pha
		pushlong #512
		_LongDivide
		pulllong <size
		pla
		pla

;
; After this point, <size contains our size in 512 byte blocks
;
@justBytes	lda	<type
		cmp	#typeMega
		beq	mb
		cmp	#typeKiloFrac
		beq	shift
		cmp	#typeKilo
		beq	k
		bne	ascii

;
; 8 = convert to fractional MB, SIZE is in 1/2K blocks
;
mb		pha
		pha
		pha
		pha
		pushZLong <size
		pushlong #5
		_LongMul
		plx
		ply
		pla
		pla

		pha
		pha
		pha
		pha
		phy
		phx
		pushlong #1024			;divide to get MB
		_LongDivide
		pla
		plx
		ply
		ply

		phx
		pha
*** modified 13-Jan-93 DAL
		ora 3,s
		sta AllZeroFlag
		PushLong #NumberStr+$80000000	;where to store string (bit 31 for "zero")
*** end 13-Jan-93 DAL
		pea	digits+2		;digits to return
		pea	0			;unsigned
		_Long2Dec

		sep	#$30
		LONGA	OFF
		LONGI	OFF
		
		ldx	#0			;shift all number up 1 digit to make
@loop		lda	numberStr+1,x		;room for the decimal point
		sta	numberStr,x
		inx
		cpx	#10
		blt	@loop
	
		lda	#'.'
		sta	kiloStr

		rep	#$30
		LONGI	ON
		LONGA	ON
		bra	ask

;
; 2 = convert to K, SIZE in 1/2K blocks
;
k		lsr	<size+2
		ror	<size
		bcc	@even

		inc	<size			;round to nearest K if odd
		bne	@even
		inc	<size+2
@even		bra	ascii
		
;
; 4 = convert to fractional K, SIZE in 1/2K blocks
;
shift		lsr	<size+2			;div 2
		ror	<size
		lda	#'0.'			;'.0'
		bcc	setKilo			;was the amount even?
		lda	#'5.'			;'.5'
setKilo		sta	KiloStr

;
; --- Convert number to ascii -------------------
;		
ascii		PushLong <size			;size to convert
*** modified 13-Jan-93 DAL
		lda <size+2
		ora <size
		sta AllZeroFlag
		PushLong #NumberStr+$80000000	;where to store string (bit 31 for "zero")
*** end 13-Jan-93
		PushWord #digits		;digits to return
		PushWord #0			;unsigned
		_Long2Dec
		
;
; --- Remove leading spaces ---------------------
;
ask		sep	#$30			;use short registers
		LONGA	OFF
		LONGI	OFF

		ldx	#0
		ldy	#0
		
loop1		lda	NumberStr,x
*** added 13-Jan-93 DAL -- keep the blank on the end of "zero "
		cpx	#digits-1
		beq	@noSkip
*** end 13-Jan-93
		cmp	#' '
		beq	skip
@noSkip		sta	NumberStr,y
		iny
skip		inx
		cpx	#digits
		bcc	loop1

;		
; --- Add commas every 3 digits -----------------
;
		tyx				;small hack -- if the number didn't have any digits, make
		bne	@haveDigits		;sure it leads off with a '0' (zero)
	
		lda	#'0'
		sta	NumberStr
		iny
@haveDigits

		phy				;save counter
		ldy	#0
		tyx
		
loop2		lda	NumberStr,x
		sta	SizeStr,y		;copy digit
		inx
		iny
		pla				;get counter
		dec	a
		bmi	suffix
		beq	suffix			;all done
		pha				;save counter again
		sec
@mod		sbc	#3			;get mod 3 of counter
		beq	comma			;divisable by 3 so add comma
		bmi	loop2
		bra	@mod
		
comma
*** added 13-Jan-93 DAL -- don't add any commas to "zero "
		lda	AllZeroFlag
		ora	AllZeroFlag+1		;Duh, 8-bit mode (25-Jan-93 DAL)
		beq	loop2
*** end 13-Jan-93
		lda	CommaCharacter
		beq	loop2			;this line brought to you by DAL, 5-Sep-91
		sta	SizeStr,y		;add comma
		iny
		bra	loop2
		
;--- Add suffix to number ---------------------				

suffix		rep	#$30			;back to long registers
		LONGA	ON
		LONGI	ON

		lda	type
		beq	done
		cmp	#typeKilo
		beq	kilo			;add "K" suffix
		cmp	#typeKiloFrac
		beq	kiloFrac		;add ".5K" suffix
		cmp	#typeByte
		beq	bytes			;add " bytes" suffix
		cmp	#typeMega		
		beq	mBytes			;add " MB" suffix
		bra	done

mBytes		lda	kiloStr
		sta	sizeStr,y
		iny
		iny
		lda	>strMBytes+1
		sta	sizeStr,y
		iny
		lda	>strMBytes+2
		sta	sizeStr,y
		iny
		iny
		bra	done
		
bytes		ldx	#0
		sep	#$20
@loop3		lda	>strBytes+1,x		; add " bytes"
		sta	SizeStr,y
		iny
		inx
		txa
		cmp	>strBytes
		bcc	@loop3
		rep	#$20
		bra	done

kiloFrac	lda	KiloStr			; add in fraction ('.5')
		sta	SizeStr,y
		iny
		iny
kilo		lda	#'K'			; add in kilo ('K')
		sta	SizeStr,y
		iny

;--- Copy to caller's string -------------------

done		tya
		sta	[<strPtr]		; set length byte
		tay
	
		sep	#$20
@loop4		lda	SizeStr-1,y
		sta	[<strPtr],y		; copy to caller's string
		dey
		bne	@loop4
		rep	#$20

exit		pld
		plb
		lda	retAddr+1,s
		sta	retAddr+inParams+1,s
		lda	retAddr,s
		sta	retAddr+inParams,s
		tsa
		clc
		adc	#inParams
		tcs
		rtl

SizeStr		DS.B	16
NumberStr	DS.B	10
KiloStr		DS.B	2

		EXPORT	CommaCharacter
CommaCharacter	dc.w	0

AllZeroFlag	dc.w	0			;added 13-Jan-93 DAL

		ENDP
				
*===============================================*
* Convert a Device Number to an ASCII String	*
*						*
* - returns 'unknown' if an OS error occured	*
* - returns 'not in any drive' if devNum = 0	*
*						*
* IN:	---- STACK ----				*
*	stringPtr (LONG) - W string		*
*	devNum (WORD)				*
*	retAddr (3 bytes)			*
*  SP->						*
*						*
* OUT:	---- STACK ----				*
*	retAddr (3 bytes)			*
*===============================================*

DeviceToString	PROC	EXPORT

		DefineStack
retAddr		block	3
devNum		word
strPtr		long

parmSize	SET	6

D_INFO		SET	$202C
GS_OS		SET	$E100A8

		IMPORT	WStringCopy
		IMPORT	PToWString
		IMPORT	NotInDriveStrg		; in string segment
		IMPORT	strUnknown		; in string segment
*===============================================*

		tsc
		phb
		phd
		tcd				; set DP to stack
		
		phk
		plb
		
		lda	<devNum
		beq	offLine
		cmp	#$FFFF
		beq	unknown
		sta	di_devnum
		
		jsl	GS_OS
		DC.W	D_INFO
		DC.L	di_list
		bcs	unknown

		PushLong #devNameC1Str
		PushLong <strPtr
		jsl	WStringCopy		; copy to caller's string
		bra	exit

offLine		PushLong #NotInDriveStrg
		bra	copy
unknown		PushLong #strUnknown
copy		PushLong <strPtr
		jsl	PToWString		; copy to caller's string
		
exit		pld
		plb
		lda	retAddr+1,s
		sta	retAddr+parmSize+1,s
		lda	retAddr,s
		sta	retAddr+parmSize,s
		tsa
		clc
		adc	#parmSize
		tas
		rtl

;--- data ---		
di_list		DC.W	2			;pcount
di_devnum	DC.W	0			;dev_num
		DC.L	devNameBuff		;dev_name

devNameBuff	DC.W	32
devNameC1Str	DS.B	32

		ENDP
				
*===============================================*
*	   Concatenate src to dst		*
*						*
* INPUT:	---- STACK ----			*
*		srcPtr (long)			*
*		dstPtr (long)			*
*		retaddr (3 bytes)		*
*	SP -->					*
*						*
* OUTPUT:	---- STACK ----			*
*		retaddr (3 bytes)		*
*	SP -->					*
*===============================================*

PStringCat	PROC	EXPORT

		DefineStack
retAddr		block	3
dst		long
src		long

parmSize	SET	8
*===============================================*

		tsc
		phd
		tcd
		
		clc
		lda	[<dst]
		and	#$00FF
		pha				; save length of dst
		sep	#$20
		adc	[<src]			; add length of src
		sta	[<dst]			; set final length
		rep	#$20
		
		clc
		pla
		adc	<dst
		sta	<dst			; move up dst ptr
		bcc	cont
		inc	<dst+2
cont		lda	[<dst]
		pha				; remember this char
		
		lda	[<src]
		and	#$00FF
		tay
		dey				
@loop		lda	[<src],y
		sta	[<dst],y
		dey
		dey
		bpl	@loop
		
		pla
		SHORTM
		sta	[<dst]			; restore that char
		LONGM
		
		pld
		lda	retAddr+1,s
		sta	retAddr+parmSize+1,s
		lda	retAddr,s
		sta	retAddr+parmSize,s
		tsc
		clc
		adc	#parmSize
		tcs
		rtl

		ENDP
		
*===============================================*
* Copy src string to dst string			*
*						*
* INPUT:	---- STACK ----			*
*		srcPtr (long)			*
*		dstPtr (long)			*
*		retaddr (3 bytes)		*
*	SP -->					*
*						*
* OUTPUT:	---- STACK ----			*
*		retaddr (3 bytes)		*
*	SP -->					*
*===============================================*

PStringCopy	PROC	EXPORT

		DefineStack
retAddr		block	3
dst		long
src		long

parmSize	SET	8
*===============================================*
		
		tsc
		phd
		tcd
		
		lda	[<src]
		and	#$00FF
		beq	@done
		tay
		dey
@loop		lda	[<src],y		; copy string
		sta	[<dst],y
		dey
		dey
		bpl	@loop

@done		SHORTM
		lda	[<src]			;final catch-all for uncopied byte
		sta	[<dst]			;if we were an even number of bytes
		LONGM

		pld
		lda	retAddr+1,s
		sta	retAddr+parmSize+1,s
		lda	retAddr,s
		sta	retAddr+parmSize,s
		tsc
		clc
		adc	#parmSize
		tcs
		rtl

		ENDP

*===============================================*
*	Compare Two Pascal Strings		*
*						*
* INPUT:	---- STACK ----			*
*		space (word)			*
*		srcPtr1 (long)			*
*		srcPtr2 (long)			*
*		retaddr (3 bytes)		*
*	SP -->					*
*						*
* OUTPUT:	---- STACK ----			*
*		flag (word) 1 = True, 0 = False	*
*		retaddr (3 bytes)		*
*	SP -->					*
*===============================================*

PStringCompare	PROC	EXPORT

		DefineStack
retAddr		block	3
srcPtr2		long
srcPtr1		long
flag		word

parmSize	SET	8
*===============================================*
		
		tsc
		phd
		tcd
		
		stz	<flag			; assume false
		
		pha				; scratch space

		lda	[<srcPtr1]
		and	#$00FF
		tay

		sta	1,S			;compare lengths
		lda	[<srcPtr2]
		and	#$00FF
		cmp	1,S
		bne	Exit

@loop		lda	[<srcPtr1],y
		and	#$00FF		
		cmp	#'a'
		bcc	@1
		cmp	#'z'+1			;is it a lower-case letter?
		bcs	@1
		sec
		sbc	#$20			;yes - so convert it to upper case	
@1		sta	1,s

		lda	[<srcPtr2],y
		and	#$00FF
		cmp	#'a'
		bcc	@2
		cmp	#'z'+1			;is it a lower-case letter?
		bcs	@2
		sec
		sbc	#$20			;yes - so convert it to upper case	

@2		cmp	1,s
		bne	exit
		dey
		bne	@loop			;JAM - was bpl, but check of length
;						    was bogus because it was after
;						    ToUpperCase!  So skip that byte.
		
		lda	#1			;return true
		sta	<flag

exit		pla				; free scratch
		pld
		lda	retAddr+1,s
		sta	retAddr+parmSize+1,s
		lda	retAddr,s
		sta	retAddr+parmSize,s
		tsc
		clc
		adc	#parmSize
		tcs
		rtl

		ENDP

*===============================================*
*    Convert a Pascal String to Upper Case	*
*						*
* INPUT:	---- STACK ----			*
*		strPtr (long)			*
*		retaddr (3 bytes)		*
*	SP -->					*
*						*
* OUTPUT:	---- STACK ----			*
*		retaddr (3 bytes)		*
*	SP -->					*
*===============================================*

PStrToUpper	PROC	EXPORT

		DefineStack
retAddr		block	3
strPtr		long

parmSize	SET	4
		
		tsc
		phd
		tcd

		lda	[<strPtr]
		and	#$00FF
		tay				; get string length
@loop		lda	[<strPtr],y
		and	#$00FF
		cmp	#'a'
		bcc	@1
		cmp	#'z'+1			; is it a lower-case letter?
		bcs	@1
		sec
		sbc	#$20			; yes - so convert it to upper case	
@1

		sep	#$20
		sta	[<strPtr],y		; save it (low byte only)
		rep	#$20
		dey
		bne	@loop

		pld
		lda	retAddr+1,s
		sta	retAddr+parmSize+1,s
		lda	retAddr,s
		sta	retAddr+parmSize,s
		pla				; remove input parameter
		pla
		rtl

		ENDP

*===============================================*
* Copy src string to dst string			*
*						*
* INPUT:	---- STACK ----			*
*		srcPtr (long)			*
*		dstPtr (long) - W string	*
*		length	(word)			*
*		retaddr (3 bytes)		*
*	SP -->					*
*						*
* OUTPUT:	---- STACK ----			*
*		retaddr (3 bytes)		*
*	SP -->					*
*===============================================*

TextToWString	PROC	EXPORT

		DefineStack
retAddr		block	3
len		word
dst		long
src		long

parmSize	SET	10
*===============================================*
				
		tsc
		phd
		tcd
		
		lda	<len
		sta	[<dst]			; set length
		beq	exit			; nothing to copy

		lda	<dst
		clc
		adc	#2
		sta	<dst
		bcc	@nr
		inc	<dst+2
@nr
		
		lda	<len
		and	#$00FF
		cmp	#1
		beq	@done
		
		tay
		dey	
		dey
@loop		lda	[<src],y		; copy string
		sta	[<dst],y
		dey
		dey
		bpl	@loop

@done		SHORTM
		lda	[<src]
		sta	[<dst]
		LONGM
		
exit		pld
		lda	retAddr+1,s
		sta	retAddr+parmSize+1,s
		lda	retAddr,s
		sta	retAddr+parmSize,s
		tsc
		clc
		adc	#parmSize
		tcs
		rtl

		ENDP

*===============================================*
* Convert a Pascal string into a Word string	*
*						*
* INPUT:	----  Stack  ----		*
*		previous contents		*
*		PStringPtr  (Long)		*
*		WStringPtr  (Long)		*
* 	             		   <-- SP	*
*						*
* OUTPUT:	none				*
*						*
*===============================================*

PToWString	PROC	EXPORT

		DefineStack
retAddr		block	3
dstPtr		long
srcPtr		long

parmSize	SET	8
*===============================================*

		tsc
		phd
		tcd
		
		lda	[srcPtr]
		sta	[dstPtr]
		and	#$00FF
		tay
		beq	exit
		inc	dstPtr
		bne	cont
		inc	dstPtr+2
cont		sep	#$20
		LONGA	OFF

@loop		lda	[srcPtr],y
		sta	[dstPtr],y
		dey
		bpl	@loop
		
		lda	#00
		sta	[dstPtr]		;clear msb of length
		rep	#$20
		LONGA	ON

exit		pld				;clean up
		lda	retAddr+1,s
		sta	retAddr+parmSize+1,s
		lda	retAddr,s
		sta	retAddr+parmSize,s
		tsc
		clc
		adc	#parmSize
		tcs
		clc
		rtl	

		ENDP

*===============================================*
*     Convert Word string to Pascal string	*
*						*
* INPUT:	----  Stack  ----		*
*		previous contents		*
*		WStringPtr (Long)		*
*		PStringPtr (Long)		*
*	SP -->					*
*						*
* OUTPUT:	carry set on error		*
*						*
*===============================================*

WToPString	PROC	EXPORT

		DefineStack
retAddr		block	3
dstPtr		long
srcPtr		long

parmSize	SET	8
*===============================================*

		tsc
		phd
		tcd
		
		lda	[srcPtr]
		sep	#$20
		sta	[dstPtr]
		rep	#$20
		tax
		beq	ok			;nothing to convert		
		xba
		bne	error			;too long to convert
		
		inc	srcPtr
		bne	cont
		inc	srcPtr+2
cont		ldy	#1
		dex
		
		sep	#$20
		LONGA	OFF
@loop		lda	[srcPtr],y
		sta	[dstPtr],y
		iny
		dex
		bpl	@loop
		rep	#$20
		LONGA	ON		

ok		ldx	#0		

exit		pld				;clean up
		lda	retAddr+1,s
		sta	retAddr+parmSize+1,s
		lda	retAddr,s
		sta	retAddr+parmSize,s
		tsc
		clc
		adc	#parmSize
		tcs
		cpx	#1			;return carry flag
		rtl	

error		ldx	#$FFFF
		bra	exit
		
		ENDP

*===============================================*
* Copy a Word string to a Word string		*
*						*
* INPUT:	----  Stack  ----		*
*		previous contents		*
*		SrcStrPtr  (Long)		*
*		DstStrPtr  (Long)		*
* 	             		  <-- SP	*
*						*
* OUTPUT:	none				*
*						*
*===============================================*

WStringCopy	PROC	EXPORT

		DefineStack
retAddr		block	3
dstPtr		long
srcPtr		long

parmSize	SET	8
*===============================================*

		tsc
		phd
		tcd
		
		lda	[srcPtr]
		tay
@loop		lda	[srcPtr],y
		sta	[dstPtr],y
		dey
		dey
		bpl	@loop

		lda	[srcPtr]
		sta	[dstPtr]

		pld				;clean up
		lda	retAddr+1,s
		sta	retAddr+parmSize+1,s
		lda	retAddr,s
		sta	retAddr+parmSize,s
		tsc
		clc
		adc	#parmSize
		tcs
		clc
		rtl

		ENDP

*===============================================*
*	Compare Two Word Strings		*
*						*
* INPUT:	---- STACK ----			*
*		space (word)			*
*		srcPtr1 (long)			*
*		srcPtr2 (long)			*
*		retaddr (3 bytes)		*
*	SP -->					*
*						*
* OUTPUT:	---- STACK ----			*
*		flag (word) 1 = True, 0 = False	*
*		retaddr (3 bytes)		*
*	SP -->					*
*===============================================*

WStrCompare	PROC	EXPORT

		DefineStack
retAddr		block	3
srcPtr2		long
srcPtr1		long
flag		word

parmSize	SET	8
*===============================================*
		
		tsc
		phd
		tcd
		
		stz	<flag			; assume false
		
		pha				; scratch space

		lda	[<srcPtr1]
		inc	a			; compensation for length WORD size
		tay
; JAM (See PStringCompare) 5/12/89
;   We need to first check the lengths of the strings to see if they are
;   truly equal, in case the first is a strict substring of the second.
		sta	1,S
		lda	[<srcPtr2]
		inc	a			; compensation for length WORD size
		cmp	1,S
		bne	Exit
; END JAM addition
@loop		lda	[<srcPtr1],y
		and	#$00FF
		cmp	#'a'
		bcc	@1
		cmp	#'z'+1			; is it a lower-case letter?
		bcs	@1
		sec
		sbc	#$20			; yes - so convert it to upper case	
@1		sta	1,s

		lda	[<srcPtr2],y
		and	#$00FF
		cmp	#'a'
		bcc	@2
		cmp	#'z'+1			; is it a lower-case letter?
		bcs	@2
		sec
		sbc	#$20			; yes - so convert it to upper case	
@2

		cmp	1,s
		bne	exit
		dey
		cpy	#2			; first char index of word-string
		bcs	@loop			; ignore bytes 0..1 (checked above)
		
		lda	#1			; return true
		sta	<flag


exit		pla				; free scratch
		pld
		lda	retAddr+1,s
		sta	retAddr+parmSize+1,s
		lda	retAddr,s
		sta	retAddr+parmSize,s
		tsc
		clc
		adc	#parmSize
		tcs
		rtl

		ENDP

*===============================================*
*	Convert a Handle to a Pointer		*
*	(the handle is also locked)		*
*						*
* INPUT:	---- STACK ----			*
*		space (long)			*
*		handle (long)			*
*		retAddr (3 bytes)		*
*	SP -->					*
*						*
* OUTPUT:	---- STACK ----			*
*		pointer (long)			*
*		retaddr (3 bytes)		*
*	SP -->					*
*===============================================*

HandleToPointer	FUNC	EXPORT

		DefineStack
retAddr		block	3
handle		long
result		long

parmSize	SET	4
*===============================================*
	
		tsc
		phd
		tcd

		ldy	#4			; first lock it
		lda	[<handle],y
		ora	#$8000
		sta	[<handle],y

		ldy	#2			; then dereference it
		lda	[<handle],y
		sta	<result+2
		lda	[<handle]
		sta	<result

		pld
		lda	retAddr+1,s
		sta	retAddr+parmSize+1,s
		lda	retAddr,s
		sta	retAddr+parmSize,s
		pla
		pla
		rtl

		ENDP
		
*===============================================*
*		Unlock a Handle			*
*						*
* INPUT:	---- STACK ----			*
*		handle (long)			*
*		retAddr (3 bytes)		*
*	SP -->					*
*						*
* OUTPUT:	---- STACK ----			*
*		retaddr (3 bytes)		*
*	SP -->					*
*===============================================*

UnlockHandle	PROC	EXPORT

		DefineStack
retAddr		block	3
handle		long

parmSize	SET	4
*===============================================*
	
		tsc
		phd
		tcd

		ldy	#4			; unlock it
		lda	[<handle],y
		and	#$7FFF
		sta	[<handle],y

		pld
		lda	retAddr+1,s
		sta	retAddr+parmSize+1,s
		lda	retAddr,s
		sta	retAddr+parmSize,s
		pla
		pla
		rtl

		ENDP
		
*===============================================*
*	    Allocate a New Handle		*
*						*
* INPUT:	---- STACK ----			*
*		space (long)			*
*		size (word)			*
*		retAddr (3 bytes)		*
*	SP -->					*
*						*
* OUTPUT:	---- STACK ----			*
*		handle (long)			*
*		retaddr (3 bytes)		*
*	SP -->					*
*===============================================*

NewHandle    	PROC	EXPORT

		DefineStack
retAddr		block	3
size		word
handle		word

parmSize	SET	2

attributes	SET	$0000

		IMPORT	MemoryID		; Global Finder data
*===============================================*

		lda	size,s
		pha				; space for result
		pha
		PushWord #0			; size of block needed
		pha
		PushWord >MemoryID
		PushWord #attributes		; attributes
		PushLong #0			; address (not used)
		_NewHandle
		pla
		plx

		sta	handle,s
		txa
		sta	handle+2,s
		lda	retAddr+1,s
		sta	retAddr+parmSize+1,s
		lda	retAddr,s
		sta	retAddr+parmSize,s
		pla
		rtl
		
		ENDP
		
*===============================================*
*	Divide A Register by 2, rounding up	*
*						*
* IN:	A-reg has value				*
*						*
* OUT:	A-reg has (A DIV 2) + (A MOD 2)		*
*						*
*	X & Y registers preserved		*
*===============================================*

HalfRoundUp	PROC	EXPORT
		lsr	a			; Half it,
		adc     #0			; and round up
		rtl				; maybe this should be a macro
		ENDP				; but we'll do it this way for now

*===============================================*
*	Convert an ASCII char to upper case	*
*						*
* IN:	A-reg has character to convert		*
*						*
* OUT:	A-reg has converted character		*
*						*
*	X & Y registers preserved		*
*===============================================*

ToUpperCase	PROC	EXPORT
		
		and	#$00FF
		cmp	#'a'
		bcc	exit
		cmp	#'z'+1			; is it a lower-case letter?
		bcs	exit
		sec
		sbc	#$20			; yes - so convert it to upper case	
exit		rtl

		ENDP
		
*===============================================*
*	Convert an ASCII char to upper case	*
*  CAUTION!  ASSUMES m=1 (8-bit memory, acc!)	*
*						*
* IN:	A-reg has character to convert		*
*						*
* OUT:	A-reg has converted character		*
*						*
*	X & Y registers preserved		*
*===============================================*

ToUpperCaseM8	PROC	EXPORT
		LONGA	OFF
		cmp	#'a'
		bcc	exit
		cmp	#'z'+1			; is it a lower-case letter?
		bcs	exit
		sec
		sbc	#$20			; yes - so convert it to upper case	
exit		rtl
		LONGA	ON
		ENDP
		
*===============================================*
* Clip a Pascal String to a Given Pixel Width	*
* and append a 'É' to the end. The destination	*
* string must be at least as long as the source	*
* string.					*
*						*
* INPUT:	---- STACK ----			*
*		srcPtr (long)			*
*		dstPtr (long)			*
*		pixels (word)			*
*		retaddr (3 bytes)		*
*	SP -->					*
*						*
* OUTPUT:	---- STACK ----			*
*		retaddr (3 bytes)		*
*	SP -->					*
* No error is returned				*
*===============================================*

PStrClip	PROC	EXPORT

StackFrame	RECORD	1
retAddr 	DS.B	3			; place holder for return address
paramBegin	SET	*			; start parameters after this point
pixels		DS.W	1			; maximumn number of pixels for string
dstPtr		DS.L	1			; result string
srcPtr		DS.L	1			; input string
paramSize	SET	*-paramBegin		; size of all the passed parameters
 		ENDR

 		WITH	StackFrame		; cover our local stack frame
		tsc
		phd				; save direct page register
		tcd				; direct page is now our stack frame
*-----------------------------------------------
		
;--- first copy to destination -----------------

		lda	[<srcPtr]
		and	#$00FF
		tay
		dey				; align to even number
@pLoop		lda	[<srcPtr],y		; copy string
		sta	[<dstPtr],y
		dey
		dey
		bpl	@pLoop

		SHORTM
		lda	[<srcPtr]
		sta	[<dstPtr]
		LONGM
		
;--- now check string width --------------------

@loop		pha				; space for width
		PushZLong <dstPtr		; pass string ptr
		_StringWidth
		pla
		cmp	<pixels			; is width ² pixels ?
		bcc	exit
		beq	exit
		
		lda	[<dstPtr]		; no, so shrink string
		and	#$00FF
		beq	exit			; abort
		dec	a
		beq	exit			; abort
		dec	a
		
		SHORTM
		sta	[<dstPtr]		; remove 2 characters
		tay
		lda	#'É'
		sta	[<dstPtr],y		; change last chararcter to 'É'
		LONGM

		bra	@loop

;--- all done ----------------------------------
exit		pld				; restore direct page register
		lda	retAddr+1,s		; adjust return address
		sta	retAddr+paramSize+1,s
		lda	retAddr,s
		sta	retAddr+paramSize,s
		tsc				; remove caller's parameters
		clc
		adc	#paramSize
		tcs
		rtl
		ENDP

*===============================================*
*		Path Add Name			*
* - Adds a filename to a pathname by appending	*
*   it. Both string pointers point to class 1 	*
*   input strings. A ':' separator is used.	*
*						*
* INPUT:	----  Stack  ----		*
*		previous contents		*
*		fileNamePtr  (Long)		*
*		pathNamePtr  (Long)		*
* 	             		   <-- SP	*
*						*
* OUTPUT:	carry bit, 0 = OK		*
*			   1 = overflow error	*
*						*
*===============================================*
; Mensch 5/12/89 (fixing BRC #46905) - insertion B (A is in util.aii)
LongPathAddName	PROC	EXPORT
;This alternative entry is provided to allow PathAddName to work with
; filenames that the Finder wants to be larger than maxPathLen.

		IMPORT	AltPathAddEnt
		InitFrame
		
endY		Local	Word			; local variables

path		Param	Ptr			; input parameters (revese order)
file		Param	Ptr

		EntryCode
;----------------------------------------------
Begin
		lda	[path]
		inc	a
		inc	a
		tay				;appending offset
		clc
		inc	a			;account for ':'
		adc	[file]
		cmp	#1022			; our new max...
		bcs	End			;string overflow error
		bra	AltPathAddEnt
End
		ExitCode
		ENDP
; end BRC #46905 insertion B


PathAddName	PROC	EXPORT

		InitFrame
		
endY		Local	Word			; local variables

path		Param	Ptr			; input parameters (revese order)
file		Param	Ptr

MaxPathLen	set	1022-32

		EntryCode
;----------------------------------------------
Begin
		lda	[path]
		inc	a
		inc	a
		tay				;appending offset
		clc
		inc	a			;account for ':'
		adc	[file]
		cmp	#MaxPathLen-1
		bcs	End			;string overflow error
		
; Mensch 5/12/89 (fixing BRC #46905) - insertion C
		ENTRY	AltPathAddEnt
AltPathAddEnt
; end BRC #46905 insertion C

		sta	<endY
		dec	a
		dec	a
		sta	[path]			;new pathname length
		lda	#'::'
		sta	[path],y		;add a separator
		iny
		lda	<file
		clc
		adc	#2
		sta	<file
		bcc	loop
		inc	<file+2
loop						;copy file name into path name
		lda	[file]
		sta	[path],y
		iny
		iny
		cpy	<endY
		bcs	done
		lda	<file
		clc
		adc	#2
		sta	<file
		bcc	loop
		inc	<file+2
		bra	loop
done
		clc				;indicate no error
End
;----------------------------------------------
		ExitCode
	
		ENDP
	
*===============================================*
*             	Path Subtract Name		*
* - Subtracts a filename from a pathname by	*
*   updating the pathname length. The string	*
*   pointer points to a class 1 input string.	*
*						*
* INPUT:	----  Stack  ----		*
*		pathNamePtr  (Long)		*
*						*
* OUTPUT:	none				*	
*						*
*===============================================*

PathSubName	PROC	EXPORT

		InitFrame
		
path		Param	Ptr			; input parameters (revese order)

		EntryCode
;----------------------------------------------
Begin	
		lda	[path]
		beq	End			; null string ?
		tay
loop						; look for seperator
		lda	[path],y
		dey
		and	#$00FF
		cmp	#':'
		bne	loop
		
		cpy	#2			;added 4/3/91, andy
		blt	End
		dey
		tya
		sta	[path]			; new pathname length
	
End
;----------------------------------------------
		ExitCode
	
		ENDP
	
	
*===============================================*
*             	Path Get Name			*
* - Extracts the filename from a pathname and	*
*   copies it into the destination. Both string	*
*   pointers point to class 1 input strings.	*
*						*
* INPUT:	----  Stack  ----		*
*		fileNamePtr  (Long)		*
*		pathNamePtr  (Long)		*
*						*
* OUTPUT:	none				*	
*						*
*===============================================*

PathGetName	PROC	EXPORT

		InitFrame
		
length		Local	Word			; local variables

path		Param	Ptr			; input parameters (revese order)
file		Param	Ptr

		EntryCode
;----------------------------------------------
Begin
		lda	#0
		sta	[<file]
		
		lda	[<path]
		beq	End			; null string ?
		tay
loop1						; look for seperator
		lda	[<path],y
		dey
		bmi	End			; not a valid path
		and	#$00FF
		cmp	#':'
		bne	loop1
		
		sty	<length
		lda	[<path]			; calculate length
		sec
		sbc	<length
		sta	<length			; length of filename
		tya
		clc
		adc	<path
		sta	<path
		bcc	cont
		inc	path+2

cont		lda	<length
		sta	[<file]			; length of filename
		inc	<length
		inc	<length
	
		ldy	#2
loop2		lda	[<path],y
		sta	[<file],y
		iny
		iny
		cpy	<length
		bcc	loop2
End
;----------------------------------------------
		ExitCode
	
		ENDP
	
*===============================================*
*             	Path Get Root			*
* - Extracts the rootname from a pathname and	*
*   copies it into the destination. Both string	*
*   pointers point to class 1 input strings.	*
*						*
* INPUT:	----  Stack  ----		*
*		rootNamePtr  (ptr)		*
*		pathNamePtr  (ptr)		*
*						*
* OUTPUT:	none				*	
*						*
*===============================================*

PathGetRoot	PROC	EXPORT

		InitFrame
		
max		Local	Word			; local variables

path		Param	Ptr			; input parameters (revese order)
root		Param	Ptr


		EntryCode
;----------------------------------------------
Begin	
		lda	[<path]
		sta	[<root]
		beq	End			; null string ?

		inc	a
		inc	a
		sta	<max
		
		ldy	#3			; look for seperator
loop1		lda	[<path],y
		and	#$00FF
		cmp	#':'
		beq	found
		iny
		cpy	<max
		bcc	loop1
		
found		sty	<max
		dey
		dey
		tya
		sta	[<root]			; length of root name
	
		ldy	#2
loop2		lda	[<path],y
		sta	[<root],y
		iny
		iny
		cpy	<max
		bcc	loop2
End
;----------------------------------------------
		ExitCode
	
		ENDP
	
*===============================================*
*             	Path To P String		*
* Convert path to P string and copy to the	*
* destination string.				*
*						*
* INPUT:	----  Stack  ----		*
*		pathPtr  (ptr)	class 1		*
*		pStrPtr  (ptr)	pascal		*
*						*
* OUTPUT:	none				*	
*						*
*===============================================*

PathToPStr	PROC	EXPORT

		InitFrame

pStr		Param	Ptr			; input parameters (revese order)
path		Param	Ptr

		EntryCode
;----------------------------------------------
Begin	
		lda	[<path]			; get path length
		tay
@loop		lda	[<path],y		; copy string (and convert)
		dey
		dey
		bmi	@done
		sta	[<pStr],y
		tya
		bne	@loop
		
@done		lda	[<path]
		dec	a			; the first ':' was dropped
		SHORTM
		sta	[<pStr]			; set P String length
		LONGM
End
;----------------------------------------------
		ExitCode

*===============================================*
* 		Cursor routines			*
* IN:	none					*
*						*
* OUT:	none					*
*						*
* DJB fix for BRC #49559:			*
* Modified Save/Restore cursor routines so that	*
* they can be nested. This also means that they *
* MUST be used in pairs (ie must be balanced).	*
*===============================================*

InitCursor	PROC	EXPORT
		
		phb
		phk
		plb

		_InitCursor			; get address of arrow
		pha
		pha
		_GetCursorAdr
		pullLong ArrowPtr

		_HideCursor				
		_IBeamCursor
		pha
		pha
		_GetCursorAdr
		pulllong InsertPtr 
		
		_WaitCursor			; get address of watch
		pha
		pha
		_GetCursorAdr
		pullLong WatchPtr

		_ShowCursor		

		stz	MyIndex
		plb
		rtl
		
;------------------------------------------------
		EXPORT	ArrowCursor
ArrowCursor

		pha
		pha
		_GetCursorAdr
		pla
		ply
		cmp	>ArrowPtr
		bne	@setArrow
		tya
		cmp	>ArrowPtr+2
		bne	@setArrow
		rtl

@setArrow	PushLong >ArrowPtr
		_SetCursor
		rtl

;------------------------------------------------
		EXPORT	WatchCursor
WatchCursor
		pha
		pha
		_GetCursorAdr
		pla
		ply
		cmp	>WatchPtr
		bne	@setWatch
		tya
		cmp	>WatchPtr+2
		bne	@setWatch
		rtl

@setWatch	PushLong >WatchPtr
		_SetCursor
		rtl

;------------------------------------------------
		EXPORT	InsertCursor
InsertCursor

		pha
		pha
		_GetCursorAdr
		pla
		ply
		cmp	>InsertPtr
		bne	@setInsert
		tya
		cmp	>InsertPtr+2
		bne	@setInsert
		rtl

@setInsert	PushLong >InsertPtr
		_SetCursor
		rtl

;------------------------------------------------
		EXPORT	SaveCursor
SaveCursor
		phb
		phk
		plb

		pha
		pha
		_GetCursorAdr
		lda	MyIndex
		asl	a			; * 4 (array of longs)
		asl	a
		tax
		pla
		sta	LastCursor,x
		pla
		sta	LastCursor+2,x
		inc	MyIndex

		plb
		rtl

;------------------------------------------------
		EXPORT	RestoreCursor
RestoreCursor
		phb
		phk
		plb

		pha				;get our current cursor's address
		pha				;and leave on stack
		_GetCursorAdr

		dec	MyIndex
		lda	MyIndex
		asl	a			; * 4 (array of longs)
		asl	a
		tax
			
		pla
		ply
		cmp	lastCursor,x
		bne	@set
		tya
		cmp	lastCursor+2,x
		bne	@set
		
		plb
		rtl

;
; they only get here if they had a different cursor from last time (you never know what
; the last cursor could have been.  this is weird code -- andy)
;
@set		lda	LastCursor+2,x
		pha
		lda	LastCursor,x
		pha
		_SetCursor
		
		plb
		rtl

;------------------------------------------------

MyIndex		DC.W	0			; index into LastCursor array

LastCursor	DS.L	5			; 5 deep should be enough

		EXPORT	WatchPtr
WatchPtr	DC.L	0
		EXPORT	ArrowPtr
ArrowPtr	DC.L	0
		EXPORT	InsertPtr
InsertPtr	DC.L	0
		ENDP
		
*===============================================*
		END
		
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Finder/about.rez b/IIGS.601.SRC/A.U.G/Finder/about.rez
new file mode 100644
index 0000000..d429658
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Finder/about.rez
@@ -0,0 +1 @@
+// --- Icon Definitions

resource rIcon (ICON_00000001, Preload, noSpecialMemory) {
       $8000,                  // kind
       $0017,                  // height
       $0022,                  // width

       $"FFFFFFFFFF11111111111FFFFFFFFFFFFF"
       $"FFFFFFFFF1FFFFFFFFFFFFFF1FFFFFFFFF"
       $"FFFFFFFFF1FFFFFFF11111FF1FFFFFFFFF"
       $"FFFFFFFFF1FFFFFFFFFFFF1F1FFFFFFFFF"
       $"FFFFFFFFF1FFFFFFFFFFFF1F1FFFFFFFFF"
       $"FFFFFFFFF1FFFFFFFFFFFF1F1FFFFFFFFF"
       $"FFFFFFFFF1FFFFFFFFFFFF1F1FFFFFFFFF"
       $"FFFFFFFFF1FFFFFFFFFFFF1F1FFFFFFFFF"
       $"FFFFFFFFF1FF1111111111FF1FFFFFFFFF"
       $"FFFFFFFFF1F4FFFFFFFFFFFF1FF111111F"
       $"FFFFFFFFFFFFFFFFFFFF1111FFFFFFFF1F"
       $"FFFFFFFFFF11111FFFFFFFFFFFF4FFFF1F"
       $"FFFF4FFFF1FFFFFFFFFFFFFF1F111111FF"
       $"FFF4FFFFFFF4FFFFFFFFFFFF1FF111111F"
       $"F44F44FFFF111111FF111111FFFFFFFF1F"
       $"4FF4FF4FF1FFFFFFFFFFFFFF1FF4FFFF1F"
       $"4FFFFFFFFF11111111111111FF111111FF"
       $"4FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF"
       $"F4F4F4FFFFFFF1111111111111111FFFFF"
       $"FF4F4FFFFFFFFFFFFFFFFFFF1F1FF1FFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFF111111F1FFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFFFF1F1FF1FF"
       $"FFFFFFFFFFFFFFFFFFFFFFF11111111FFF",

       $"0000000000FFFFFFFFFFFFFF0000000000"
       $"000000000FFFFFFFFFFFFFFFF000000000"
       $"000000000FFFFFFFFFFFFFFFF000000000"
       $"000000000FFFFFFFFFFFFFFFF000000000"
       $"000000000FFFFFFFFFFFFFFFF000000000"
       $"000000000FFFFFFFFFFFFFFFF000000000"
       $"000000000FFFFFFFFFFFFFFFF000000000"
       $"000000000FFFFFFFFFFFFFFFF000000000"
       $"000000000FFFFFFFFFFFFFFFF000000000"
       $"000000000FFFFFFFFFFFFFFFF0FFFFFFF0"
       $"0000000000FFFFFFFFFFFFFFFFFFFFFFF0"
       $"000000000FFFFFFFFFFFFFFFFFFFFFFFF0"
       $"0000F0000FFFFFFFFFFFFFFFFFFFFFFF00"
       $"000F000000FFFFFFFFFFFFFFFFFFFFFFF0"
       $"0FFFFF000FFFFFFFFFFFFFFFFFFFFFFFF0"
       $"FFFFFFF00FFFFFFFFFFFFFFFFFFFFFFFF0"
       $"FFFFFF0000FFFFFFFFFFFFFF00FFFFFF00"
       $"FFFFFFF000000000000000000000000000"
       $"0FFFFF0000000FFFFFFFFFFFFFFFF00000"
       $"00FFF0000000000000FFFFFFFFFFFF0000"
       $"00000000000000000000FFFFFFFFFFF000"
       $"0000000000000000000000FFFFFFFFFF00"
       $"00000000000000000000000FFFFFFFF000";
};

// --- Control List Definitions

resource rControlList (CTLLST_00000001, $0000) {
       {
       CTLTMP_00000001,        // control 1
       CTLTMP_00000003,        // control 3
       CTLTMP_00000004,        // control 4
       CTLTMP_00000006,        // control 6
       CTLTMP_00000007,        // control 7
       CTLTMP_00000008,        // control 8
       CTLTMP_00000009,        // control 9
//       CTLTMP_0000000B,        // control 11  "by Andy and Dave"
	   CTLTMP_0000000C		   // control 12
       };
};

// --- Control Templates

resource rControlTemplate (CTLTMP_00000001, $0000) {
       $00000001,              // ID
       { 45, 20, 54, 67},      // rect
       statTextControl {{
               $ff04,          		// flag
               $1002,          		// moreFlags
               $00000000,      		// refCon
               LETXTBOX_00000001, 	// textRef
               0, 					// textSize
               $0000           		// just
       }};
};

resource rControlTemplate (CTLTMP_00000003, $0000) {
       $00000003,              // ID
       { 30, 10, 40,123},      // rect
       statTextControl {{
               $ff00,          // flag
               $1002,          // moreFlags
               $00000000,      // refCon
               LETXTBOX_00000003,     // textRef
               0, 					// textSize
               $0000           // just
       }};
};

resource rControlTemplate (CTLTMP_00000004, $0000) {
       $00000004,              // ID
       { 30,226, 40,373},      // rect
       statTextControl {{
               $ff00,          // flag
               $1002,          // moreFlags
               $00000000,      // refCon
               LETXTBOX_00000004,     // textRef
               0, 					// textSize
               $0000           // just
       }};
};

resource rControlTemplate (CTLTMP_00000006, $0000) {
       $00000006,              // ID
       { 56, 20, 65, 71},      // rect
       statTextControl {{
               $ff04,          // flag
               $1002,          // moreFlags
               $00000000,      // refCon
               LETXTBOX_00000006,     // textRef
               0, 				// textSize
               $0000           // just
       }};
};

// "Desk Accessories"
resource rControlTemplate (CTLTMP_00000007, $0000) {
       $00000007,              // ID
       { 45,236, 54,361},      // rect
       statTextControl {{
               $ff04,          // flag
               $1002,          // moreFlags
               $00000000,      // refCon
               LETXTBOX_00000007,     // textRef
               0, 				// textSize
               $0000           // just
       }};
};

// "Setup files"
resource rControlTemplate (CTLTMP_00000008, $0000) {
       $00000008,              // ID
       { 56,236, 65,319},      // rect
       statTextControl {{
               $ff04,          // flag
               $1002,          // moreFlags
               $00000000,      // refCon
               LETXTBOX_00000008,     // textRef
               0, 				// textSize
               $0000           // just
       }};
};

resource rControlTemplate (CTLTMP_00000009, $0000) {
       $00000009,              // ID
       {  4, 24, 29, 94},      // rect
       iconButtonControl {{
               $000C,          // flag
               $1020,          // moreFlags
               $00000000,      // refCon
               ICON_00000001,  // iconRef
               0,              // titleRef
               0,              // colorTableRef
               $0000           // displayMode
       }};
};

// was "by Andy and Dave"
//resource rControlTemplate (CTLTMP_0000000B, $0000) {
//       $0000000B,              // ID
//       {  5,224, 15,527},      // rect
//       statTextControl {{
//               $ff04,          // flag
//               $1002,          // moreFlags
//               $00000000,      // refCon
//               LETXTBOX_00000009,     // textRef
//               0, 				// textSize
//               $0000           // just
//       }};
//};

resource rControlTemplate (CTLTMP_0000000C, $0000) {
       $0000000C,              // ID
       { 42,0, 43,532},      // rect
       rectangleControl {{
               $ff02,          // flags
               $1000,          // moreFlags
               $00000000,      // refCon
			   1,				// height
			   2				// width
       }};
};

// --- rTextForLETextBox2 Templates

resource rTextForLETextBox2 (LETXTBOX_00000001, $0000) {
       "Finder"
};

resource rTextForLETextBox2 (LETXTBOX_00000003, $0000) {
       "\$01"
       "F"
       "\$FE"
       "\$FF"
       "\$01"
       "\$08"
       "Total Memory:"
};

resource rTextForLETextBox2 (LETXTBOX_00000004, $0000) {
       "\$01"
       "F"
       "\$FE"
       "\$FF"
       "\$01"
       "\$08"
       "Available:"
};

resource rTextForLETextBox2 (LETXTBOX_00000006, $0000) {
       "System"
};

resource rTextForLETextBox2 (LETXTBOX_00000007, $0000) {
       "Desk accessories"
};

resource rTextForLETextBox2 (LETXTBOX_00000008, $0000) {
       "Setup files"
};

// resource rTextForLETextBox2 (LETXTBOX_00000009, $0000) {
//         "by Andy Nicholas and Dave Lyons"
// };

// --- Window Templates

resource rWindParam1 (WPARAM1_00000001, 0) {
       $C080,                  // plFrame (frame bits)
       PSTR_00000100,          // plTitle (title ID)
       $00000000,              // plRefCon
       {  0,  0,  0,  0},      // plZoomRect
       WCOLOR_07FF0001,        // plColorTable
       {$0000, $0000},         // plYOrigin, plXOrigin
       {$0000, $0000},         // plDataHeight, plDataWidth
       {$0000, $0000},         // plMaxHeight, plMaxWidth
       {$0000, $0000},         // plVerScroll, plHorScroll
       {$0000, $0000},         // plVerPage, plHorPage
       $00000000,              // plInfoText (info RefCon)
       $0000,                  // plInfoHeight
       { 45, 88,112,88+430},   // plPosition
       infront,                // plPlane
       CTLLST_00000001,        // plControlList
       $0A09                   // plInDesc
};
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Finder/alert.aii b/IIGS.601.SRC/A.U.G/Finder/alert.aii
new file mode 100644
index 0000000..94c20fa
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Finder/alert.aii
@@ -0,0 +1 @@
+; Alert.aii
;
; Copyright 1991-92, Apple Computer, Inc.
; All Rights Reserved
;
; history
;
; 2/21/91 -- andy, created
;
; 1992 DAL -- search for "DAL" for most changes
;
; 12-Jun-92 DAL -- calls DisposeHandleGlue instead of _DisposeHandle
;
; 25-Mar-93 JCM - LoadExtensions now attempts to create @:FinderExtras. This is
;		  mainly to make magic routing happy.
;
;.....................................................................

		INCLUDE	'Finder.equ'
		INCLUDE	'Resource.equ'
		INCLUDE	'all.macros'
		INCLUDE	'special.macros'
		INCLUDE	'dp.equ'
		include 'e16.resources'


; doAlertWindow -- create the alertWindow passed in (A)
;
; IN: (A) = dialog to create
;
; OUT: Result from AlertWindow is on stack
;.....................................................................

doAlertWindow	PROC	EXPORT

		IMPORT	C1_Source
		IMPORT	C1_Dest
		IMPORT	C1_PathName
		IMPORT	C1_DeviceName
		IMPORT	C1_FileName
		IMPORT	saveCursor
		IMPORT	arrowCursor
		IMPORT	restoreCursor

		phb
		phk
		plb

		pha
		jsl	saveCursor
		jsl	arrowCursor

		lda	>C1_PathName
		sta	C1_Path
		tax
		lda	>C1_PathName+2
		sta	C1_Path+2
		txa
		dec	a
		xba
		sta	>C1_PathName+1

		lda	>C1_DeviceName		;don't get rid of any periods on the
		sta	C1_Device		;the front of the device name (they are
		xba				;good).
		sta	>C1_DeviceName

		lda	>C1_FileName
		sta	C1_File
		xba
		sta	>C1_FileName

		lda	1,s			;get A back
		pea	$00B5
		pushlong #C1_PathNamePtr
		pea	0
		pha
		_AlertWindow

		lda	C1_Path
		sta	>C1_PathName
		lda	C1_Path+2
		sta	>C1_PathName+2

		lda	C1_Device
		sta	>C1_DeviceName

		lda	C1_File
		sta	>C1_FileName

		jsl	restoreCursor

		pla
		plb
		tax				;force flags to be set based on (A)
		rtl

;
; locals
;
C1_Path		dc.L	0
C1_Device	dc.w	0
C1_File		dc.w	0

hex		dc.b	4
		EXPORT	hexadecimal
hexadecimal	ds.b	4

		EXPORT	C1_PathNamePtr
C1_PathNamePtr	dc.L	C1_PathName+2	;*0
C1_DeviceNamePtr dc.L	C1_DeviceName+1	;*1
C1_FileNamePtr	dc.L	C1_FileName+1	;*2
C1_SourcePtr	dc.L	C1_Source+1	;*3
C1_DestPtr	dc.L	C1_Dest+1	;*4
		EXPORT	CustomPtr
CustomPtr	dc.L	0		;*5
		EXPORT	CustomPtr2
CustomPtr2	dc.L	0		;*6
hexPtr		dc.L	hex		;*7
		dc.L	C1_Source+2	;*8
		EXPORT	CustomPtr3
CustomPtr3	dc.L	0		;*9
		ENDP


; GetErrorTextPtr -- find the error text for an OS error in A
;
; Out:  AX = pointer to text, in C1_QuitName
;
; Call with JSL
;
; NOTE:  This routine assumes all the rErrorString resources use
;        standard window sizes and standard icons.  If they don't,
;        it will get confused and return partly-garbled text.
;....................................................................

GetErrorTextPtr	proc export
		import C1_QuitName

		cmp #$0088		;network error?
		bne @not88
		lda #$FF88		;kludged code for Network error
@not88
		pha			;save error code
		lda #0
		sta >C1_QuitName	;in case things go horribly wrong
		sta >C1_QuitName+2	;paranoia
		jsr GetAndFixPrefs
		pla			;retrieve error code

		pha
		pha			;space for LoadResource
		pea rErrorString
		pea $07FF
		pha
		_LoadResource
		plx
		ply
		bcc @gotHandle

		pha
		pha
		pea rErrorString
		pea $07FF
		pea $0072		;get the "unknown error" string
		_LoadResource
		plx
		ply
@gotHandle	jsr RestorePrefs
		bcs @failed		;couldn't load resources; return null string

		phd
		pha		;space for @delimiter
		pha
		pha		;space for @ptr
		phy
		phx		;@handle
		tsc
		tcd
@handle		equ 1
@ptr		equ @handle+4
@delimiter	equ @ptr+4

		ldy #2
		lda [<@handle],y
		sta <@ptr+2
		lda [<@handle]
		sta <@ptr

		ldx <@ptr+2
		lda <@ptr
		clc
		adc #3
		bcc @nr
		inx
@nr		phx
		pha			;source for BlockMove
		pushlong #C1_QuitName+1	;dest for BlockMove
		pha
		pha			;space for GetHandleSize (count for BlockMove)
		pei <@handle+2
		pei <@handle
		_GetHandleSize
		_BlockMove

		ldy #2			;offset into error string to first delimiter
		lda [<@ptr],y
		and #$00ff
		sta <@delimiter

; search the error string for a match of the delimiter, or a "(", or a null
		ldx #$ffff
@search		inx
		lda >C1_QuitName+2,x
		and #$00ff
		beq @gotLength
		cmp #$0028	;open paren
		beq @gotLength
		cmp <@delimiter
		bne @search
@gotLength	txa
		sep #$20
		sta >C1_QuitName
		rep #$20

		ply
		ply
		ply
		ply
		ply
		pld

@failed		lda #^C1_QuitName
		ldx #C1_QuitName
		rtl

GetAndFixPrefs	_GetSysPrefsGS oldPrefs
		lda >oldPrefs+2
		and #$1fff	;keep the reserved bits
		ora #$C000	;turn on Use Volume Mount Dialog, no Cancel
		sta >myPrefs+2
		_SetSysPrefsGS myPrefs
		rts

RestorePrefs	php
		pha
		phx
		phy
		_SetSysPrefsGS oldPrefs
		ply
		plx
		pla
		plp
		rts

oldPrefs	dc.w 1		;1 parameter
		dc.w 0		;the old SysPrefs

myPrefs		dc.w 1
		dc.w 0		;my modified preferences

		EndP



; doAlertCopy -- create the alertWindow passed in (A)
;		 but preserve c1_dstpathname and c1_srcpathname
;
; IN: (A) = dialog to create
;
; OUT: Result from AlertWindow is on stack
;.....................................................................

doAlertCopy	PROC	EXPORT

		IMPORT	C1_SrcPathName
		IMPORT	C1_DstPathName
		IMPORT	saveCursor
		IMPORT	arrowCursor
		IMPORT	restoreCursor

		phb
		phk
		plb

		pha
		jsl	saveCursor
		jsl	arrowCursor

		lda	>C1_SrcPathName
		sta	C1_Src
		tax
		lda	>C1_SrcPathName+2
		sta	C1_Src+2
		txa
		dec	a
		xba
		sta	>C1_SrcPathName+1

		lda	>C1_DstPathName
		sta	C1_Dst
		tax
		lda	>C1_DstPathName+2
		sta	C1_Dst+2
		txa
		dec	a
		xba
		sta	>C1_DstPathName+1

		lda	1,s			;get A back
		pea	$00B5
		pushlong #C1_SrcPathNamePtr
		pea	0
		pha
		_AlertWindow

		lda	C1_Src
		sta	>C1_SrcPathName
		lda	C1_Src+2
		sta	>C1_SrcPathName+2

		lda	C1_Dst
		sta	>C1_DstPathName
		lda	C1_Dst+2
		sta	>C1_DstPathName+2

		jsl	restoreCursor

		pla
		plb
		tax				;force flags to be set based on (A)
		rtl

;
; locals
;
C1_Src		dc.L	0
C1_Dst		dc.L	0

C1_SrcPathNamePtr dc.L	C1_SrcPathName+2	;always +1 because we can only show
C1_DstPathNamePtr dc.L	C1_DstPathName+2	;a pString from here
		ENDP

;
; Our OutOfMemory (OOM) routine
;
; NOTE: This PROC CANNOT have a NAME!  Otherwise the header stuff gets
;	messsed.
;.....................................................................

OOMRoutine	PROC	EXPORT
		import DisposeHandleGlue

		dc.L	0			;OOM header stuff
		dc.w	0
		dc.w	$A55A

RTLAddress	equ	1
Stage		equ	RTLAddress+3
BytesNeeded	equ	Stage+2
Result		equ	BytesNeeded+4

		lda	#0
		sta	result,s		;zero the result
		sta	result+2,s

		lda	stage,s			;if it's the first stage, don't dump
		beq	@done			;our handle

		lda	>OOMDumped		;did we dump already?
		bne	@done			;if so, then don't do it again

		pushlong >OOMHandle		;dump our 32k handle
		jsl DisposeHandleGlue

		lda	#$FFFF			;mark is as being dumped
		sta	>OOMDumped

		lda	#$6000			;tell the memory manager how much we freed
		sta	result,s

@done		sep 	#$20
		LONGA OFF

		pla
		ply

		plx
		plx
		plx

		phy
		pha

		LONGA ON
		rep 	#$20
		rtl

;
; allocate 32k and put ourself in the out of memory queue -- if we can't allocate 32k here, go back
; to the text screen death routine and say that there's no way we're gonna try running with a memory
; situation this tight.
;
		EXPORT	StartUpOOM
StartUpOOM
		phb
		phk
		plb

		lda	#$6000			;allocate 24k, not locked, not fixed, purge level zero
		jsr	allocate
		sta	OOMHandle
		stx	OOMHandle+2
		bcs	@done

		lda	#$4000			;allocate 16k, not locked, not fixed, purge level zero
		jsr	allocate		;this is our "oh shit, we need this memory to allow
		sta	OOMDeepHandle		;quickdraw to put up an alertwindow" handle
		stx	OOMDeepHandle+2
		bcs	@done

		stz	OOMDumped
		stz	OOMWarnFlag

		pushlong #OOMRoutine
		_AddToOOMQueue

@done		plb
		rtl

;
; check the OOM and recharge it of necessary, put up a nasty dialog if we can't
; allocate a 24k handle
;
		EXPORT RechargeOOM
RechargeOOM
		phb
		phk
		plb

		lda	OOMDumped	;first check to see if our OOM handle got dumped
		bne	@dumped
		brl	@done		;if not, then continue as usual
		
;
; ick, our OOM memory block is gone, so try to grab another 24k chunk
;
@dumped
		lda	OOMWarnFlag	;did we warn the user before?
		beq	@getDeep	;if not, warn them immediately and try to get our handles back

		jsr	TickCount	;if we warned before, wait 60 seconds before trying to get our
		tay
		sec			;handles again
		sbc	lastWarnTime
		cmp	#2*60
		blt	@done
		
@getDeep	lda	OOMDeepHandle+1
		bne	@haveOOMDeepHandle

		lda	#$4000		;see if we can get our QD safety buffer back
		jsr	allocate
		bcs	@done		;if we can't, let them take their chances, tough luck
		sta	OOMDeepHandle
		stx	OOMDeepHandle+2
@haveOOMDeepHandle

		lda	OOMWarnFlag
		beq	@getNormal

		jsr	TickCount	
		tay
		sec			
		sbc	lastWarnTime
		cmp	#10*60		;has it been 10 seconds yet?
		blt	@done

@getNormal	lda	#$6000		;we only get here if we've got our 16k safety buffer, but lost
		jsr	allocate	;our 24K OOM handle
		sta	OOMHandle
		stx	OOMHandle+2
		bcs	@whoaNelly

		stz	OOMDumped	;if we got both handles back, reset the dumped flag
		plb
		rtl

;
; we should only ever get here if our OOM handle got dumped and we have our 16k safety buffer which
; we'll contribute to the continued health of the system if it's going to really need it.
;
@whoaNelly	lda	OOMWarnFlag
		beq	@warnNow
		
		jsr	TickCount	;if we warned before, wait 60 seconds before trying to get our
		tay			;handle again
		sec			
		sbc	lastWarnTime
		cmp	#60*60		;has it been 60 seconds yet?
		blt	@done

@warnNow	lda	#$FFFF
		sta	OOMWarnFlag

		pushlong OOMDeepHandle	;hope to high heaven that this works
		jsl DisposeHandleGlue

		stz	OOMDeepHandle+1	;say our handle is gone

		lda	#rasOutOfMemory	;hopefully we have memory free to display this dialog!
		jsl	doAlertWindow	;QD's region buffer takes 10K, plus slop of ???K

		jsr	TickCount	;say when we last warned the user
		sta	lastWarnTime

@done		plb
		rtl

;
; ShutDown our OutOfMemory queue routine
;
		EXPORT	OOMShutDown
OOMShutDown
		phb
		phk
		plb

		pushlong #OOMRoutine
		_RemoveFromOOMQueue

		jsr	DumpHandles
		
		plb
		rtl

;
; just dump the OOMqueue's handles (both of them if possible)
;
		EXPORT	OOMDump
OOMDump
		phb
		phk
		plb
		
		jsr	DumpHandles
		
		plb
		rtl

;
; Try dumping both the handles in the OOMqueue
;
; OUT: carry set if we disposed either of these memory blocks
;
DumpHandles	pea	0

		lda 	OOMDeepHandle+1
		beq 	@1
		pushlong OOMDeepHandle	;hope to high heaven that this works
		jsl DisposeHandleGlue
		stz 	OOMDeepHandle+1
		lda	#$FFFF
		sta	1,s
@1
		lda	OOMDumped
		bne	@noDump

		pushlong OOMHandle
		jsl DisposeHandleGlue

		lda	#$FFFF
		sta	OOMDumped
		sta	1,s
		
@noDump		pla
		cmp	#1
		rts

;
; tickCount -- get the tickCount into A&X
;
tickCount
		pha			;say when we last warned the user
		pha
		_TickCount
		pla
		plx
		rts
;
; allocate (A) bytes of memory
;
; OUT: A&X contain our handle, carry set if call died
;
allocate	pha
		pha
		pea	0
		pha
		pei	<MyID
		pea	0
		pushlong #0
		_NewHandle
		pla
		plx
		rts

;
; globals
;
lastWarnTime	dc.w	0		;tickCount when they were last warned
		EXPORT	OOMDeepHandle
OOMDeepHandle	dc.L	0		;handle to our "oh shit" space
		EXPORT	OOMWarnFlag
OOMWarnFlag	dc.w	0		;have they been warned before?
		EXPORT	OOMDumped
OOMDumped	dc.w	0
OOMHandle	dc.L	0
		ENDP

*******************************************************************************
*
* GetStandardFile -- if StdFile is not here, get it and start it up
*
*******************************************************************************

GetStandardFile	PROC	EXPORT
		import DisposeHandleGlue

sfToolNumber	equ $0017

		phb
		phk
		plb

		stz 	weStartedSF

		pea 	0
		_SFStatus
		pla
		bne 	@done

		pea 	sfToolNumber
		pea 	0	;minimum version
		_LoadOneTool
		bcs 	@oops

		inc 	weStartedSF

		pha
		pha		;space for NewHandle
		pea 	$0000	;size high
		pea 	$0100	;size low
		pei	<MyID
		pea 	$C015	;attributes = fixed bank, etc.
		ldx 	#0
		phx
		phx		;loc=0
		_NewHandle
		plx
		ply
		bcs 	@oops
		stx 	sfHandle
		stx	<handle
		sty 	sfHandle+2
		sty	<handle+2

		lda	[<handle]
		sta 	sfDirPage

		pei	<MyID
		lda	sfDirPage
		pha
		_SFStartUp
		plb
		rtl

@oops		sec
		plb
		rtl

@done		clc
		plb
		rtl

*******************************************************************************
*
* KillStandardFile -- if we got StdFile ourselves, shut it back down
*
*******************************************************************************

		EXPORT KillStandardFile
KillStandardFile
		phb
		phk
		plb

		lda 	weStartedSF
		beq 	@done

		_SFShutDown
		pea 	sfToolNumber
		_UnloadOneTool

		pushlong sfHandle
		jsl DisposeHandleGlue

		stz 	weStartedSF

@done		plb
		rtl

weStartedSF	dc.w 0
sfHandle	dc.l 0
sfDirPage	dc.w 0
		ENDP

;============================================
;	   Pull	common icon fields.
;============================================
;
;   IN:	   ic =	pointer	to icon	being duplicated.
;
;  OUT:	   filetype = icFType field.
;	   ticonobj+icLocalAccess = icLocalAccess field
;	   ticonobj+icNetworkAccess = icNetworkAccess field
;	   ticonobj+icIcon = icIcon field
;	   ticonobj+icSmallIcon = icSmallIcon field
;	   ticonobj+icOneDoc = icOneDoc field
;	   ticonobj+icFlag = icFlag field, color, locked and open states
;	   ticonobj+icFBlocks = icFBlocks field
;	   ticonobj+icFBytes = icFBytes field
;	   ticonobj+icCDate = icCDate field
;	   ticonobj+icMDate = icMDate field
;	   ticonobj+icWind = icWind field
;	   ticonobj+icOptionList = icOptionList field
;
;============================================

;
; NOTE: This routine is called from the main segment in the Finder!  It RTL's, but
;	the BANK register is never set.  DON'T do anything weird here.  This was moved to
;	save bytes in the main segment!
;
pullFieldsLong	PROC	EXPORT
		
		IMPORT	ticonobj
		IMPORT	auxtype
		
		ldy	#icLocalAccess
		lda	[<ic],y
		sta	ticonobj+icLocalAccess
		
		ldy	#icForked
		lda	[<ic],y
		sta	ticonobj+icForked

		ldy	#icFlag			;Save icon's color and locked state.
		lda	[<ic],y
		and	#ICBACKCLR+ICFORECLR+ICLOCKED+ICOPENED
		sta	ticonobj+icFlag

		ldy	#icFlag+2		;Save icon's readable state. DJB 12/06/88
		lda	[<ic],y
		and	#ICREADABLE>>16
		sta	ticonobj+icFlag+2

		ldy	#icFBlocks		;Remember file sizes, create date, mod date.
lop1		lda	[<ic],y
		sta	ticonobj,y
		iny
		iny
		cpy	#icMDate+8
		bne	lop1

		ldy	#icWind			;Remember window icon opened into.
		lda	[<ic],y
		sta	ticonobj,y
		iny
		iny
		lda	[<ic],y
		sta	ticonobj,y

		ldy	#icFType		;Give new icon the same filetype.
		lda	[<ic],y
		sta	<filetype

		ldy	#icKind			;move the pointer to the kind string
		lda	[<ic],y
		sta	ticonobj+icKind
		iny
		iny
		lda	[<ic],y
		sta	ticonobj+icKind+2
		
;
; now that we're almost done moving fields around, move the option list
;		
		ldy	#icOptionList		
		lda	[<ic],y
		tax
		clc
		adc	#icOptionList
		tay
@loop		lda	[<ic],y
		sta	ticonobj+icOptionList,x
		dey
		dey
		dex
		dex
		bpl	@loop

		ldy	#icAuxtype		; added 05/29/88 DJB
		lda	[<ic],y
		sta	auxtype
		ldx	<fileType
		cpx	#$0F			; is this the system folder kludge ?
		bne	exit
		cmp	#2
		bne	exit
		stz	auxtype			; yes so make it zero
exit		rtl
		
		ENDP

;.....................................................................
;
; LoadExtensions -- load all of the Finder extensions out of @:FinderExtras
;.....................................................................

LoadExtensions	procname export
		IMPORT	MiscEntry
		IMPORT	ExtensionIDs
		IMPORT	WStringCopy
		IMPORT	PToWString
		IMPORT	PathAddName
		IMPORT	C1_Pathname,C1_Filename
		import DisposeHandleGlue
		import	ProDOS		;25-Mar-93 JCM

OSPublicFlags	equ	$e100b8
rFinderExtension equ	$0042

		phb
		phk
		plb

		stz extensionCount

*** Added - 25-Mar-93 JCM - Make sure we have a @:FinderExtras folder to play with. This is
***			    mostly to make magic routing happy.

		_CreateGS CreateExtrasParms

*** End - 25-Mar-93 JCM

*** added 2-Jun-92 DAL -- load resource-based Finder Extensions, if any
*** (no need to put these in the ID table)
		pha
		pha			;space for GetCodeResConverter
		_GetCodeResConverter
		pea rFinderExtension
		pea 1			;log in app converter
		_ResourceConverter

		pha
		pha			;space for CountResources
		pea rFinderExtension
		_CountResources
		pla
		plx
		tax
		beq @noResources

@nextRes	pha			;save index
		pha
		pha			;space for LoadResource
		pea rFinderExtension
		pha
		pha			;space for GetIndResource
		pea rFinderExtension
		pea 0
		pha			;resource number
		_GetIndResource
		_LoadResource
		phd
		tsc
		tcd
		ldy #1
		lda [3],y
		sta @callTheRes+2
		lda [3]
		sta @callTheRes+1
		pld
		pla
		pla
		bcs @skip
@callTheRes	jsl $777777
@skip
		pla
		dec a
		bne @nextRes
@noResources
*** end 2-Jun-92

		lda >$e100b8			; if they held down shift for 'No Inits/DAs'
		bpl @useInits			; then we shouldn't load anything which would cause their
		brl @exit			; system tp puke
@useInits


		PushLong #ExtensionsName	; pass window's pathname
		ldx #xStartCatalog
		jsl MiscEntry
		bcc @loop
		brl @done

@loop		pha				; space for result
		pha
		ldx #xNextCatalog
		jsl MiscEntry
		pla
		plx
		bcs @done

		sta <work			; save pointer to directory entry
		stx <work+2

		ldy #DirFType
		lda [<work],y
		cmp #$B6
		beq @havePIF

		cmp #$BC			;Finder extensions are $BC;0001
		bne @loop

		ldy #DirAuxType
		lda [<work],y			;check auxtype
		dec a				;Finder Extension auxtype is $0001
		bne @loop			;not a finder extension
		bra @goodExtension

@havePIF
		ldy #DirAuxType			;check init-file auxtype
		lda [<work],y			;bit 15 set = inactive
		bmi @loop

@goodExtension	jsr LoadSingleExtension
		bcc @loadedThisOne
		pha
		ldx #0
		phx
		phx
		phx
		pha
		_ErrorWindow
		pla
		bra @loop
@loadedThisOne

		lda ExtensionCount
		cmp #MaxExtensions
		blt @loop

@done		ldx #xEndCatalog
		jsl MiscEntry

@exit		plb
		rtl

;
; loadSingleExtension -- load the single Finder extension
;
; Increments ExtensionCount if successful.
;
; Returns SEC, A=error if there was a problem.
;
; (If the file elected to be shutdown, returns CLC but does
;  not increment ExtensionCount.)
;
loadSingleExtension
		pushlong #ExtensionsName
		pushlong #c1_pathname
		jsl WStringCopy

		pushZLong <work			;make our entry a wstring
		pushlong #c1_filename
		jsl PToWString

		pushlong #c1_filename		;add it onto @:FinderExtras
		pushlong #c1_pathname
		jsl PathAddName

		pha
		pha
		pha
		pha
		pha
		pea $A000			;Init-range IDs, please
		pushlong #c1_pathname
		pea 0				;okay to use special memory (QD is already started)
		pea 1				;input parameter is GS/OS string
		_InitialLoad2

		lda ExtensionCount
		asl a
		tax

		pla				;id
		sta ExtensionID
		sta >ExtensionIDs,x
		pla				;start address of the program
		sta @startAddress+1
		pla
		sep #$20
		sta @startAddress+3
		rep #$20
		pla				;dpage address
		sta @dirPageAddress
		pla				;size of the dpage & stack
		sta @dirPageSize
		bcs @bogus

		jsr @allocDirPageIfNeeded

		phb
		phd

		tsc
		sta @oldStack

		lda @dirPageAddress
		tcd
		clc
		adc @dirPageSize
		dec a
		tcs

		lda @startAddress+2
		pha
		plb
		plb				;set B = extension's bank

		lda >ExtensionID		;pass User ID to extension in A
		ldx #0
		txy				;pass X and Y = 0 just in case they check 'em
		phx				;word space (prezeroed); bit 0 means they want to unload
@startAddress	jsl >$777777
		ply				;result flags

		lda >@oldStack
		tcs

		pld
		plb
		phy				;result flags

		pushlong @dirPageHandle
		jsl DisposeHandleGlue
		stz @dirPageHandle+1

		pla
		lsr a
		bcc @keepIt

; The file wants us to unload it.  Okee dokee.
		pha
		lda ExtensionID
		pha
		pea 0			;quitFlags = 0
		_UserShutDown
		pla
		clc
		rts

@keepIt		clc
		inc ExtensionCount
@bogus		rts

@allocDirPageIfNeeded
		lda @dirPageSize
		bne @haveDP
		pha
		pha
		pushlong #$1000
		lda ExtensionID
		pha
		pea $C015
		pea 0
		pea 0
		_NewHandle
		phd
		tsc
		tcd
		lda [3]
		sta @dirPageAddress
		pld
		lda #$1000
		sta @dirPageSize
		pla
		sta @dirPageHandle
		pla
		sta @dirPageHandle+2
@haveDP		rts

;
; locals
;
@dirPageAddress	dc.w	0
@dirPageSize	dc.w	0
@dirPageHandle	dc.l	0
@oldStack	dc.w	0

ExtensionsName	dc.w	14
		dc.b	'@:FinderExtras'

ExtensionID	dc.w 0

		EXPORT ExtensionCount
ExtensionCount	dc.w 0

*** Added - 25-Mar-93 JCM - Try to create @:FinderExtras folder during startup.

CreateExtrasParms dc.w	5		;pCount
		dc.l	ExtensionsName	;pathname
		dc.w	$c3		;access
		dc.w	$0f		;fileType
		dc.l	0		;auxType
		dc.w	$d		;subdirectory

*** End - 25-Mar-93 JCM

		ENDP

;.....................................................................
;
; KillExtensions -- kill all the Finder Extensions we loaded
;.....................................................................
KillExtensions	procname export
		import ExtensionCount
		import ExtensionIDs

sendToUserID	equ 2		;for SendRequest

		phb
		phk
		plb

		lda #0
@loop		cmp ExtensionCount
		bcs @done
		pha
		asl a
		tax
		lda >ExtensionIDs,x
		jsr KillOneExtension
		pla
		inc a
		bra @loop

@done		plb
		rtl

KillOneExtension
		ldx #0		;handy zero
		sta theID
		pea $0003	;srqGoAway
		pea sendToUserID
		phx		;high word of target = 0
		pha		;low word of target
		phx
		phx		;dataIn = 0
		pushlong #goAwayParms
		_SendRequest

; Note--at this point, if the accepted the request and said they could
; not go away, it would be nice to not shut them down!  So far, we are
; requiring that Extras be able to go away.

		ldx #0
		phx
		phx		;namePtr = NIL
		lda theID
		pha		;user ID to kill
		phx
		phx		;procPtr = NIL
		_AcceptRequests

		pha
		lda theID
		pha
		pea 0		;quitFlags = 0
		_UserShutDown
		pla		;ignore result
		rts

theID		dc.w 0

goAwayParms	dc.w 0		;recvCount
		dc.w 0		;result ID
		dc.w 0		;result flags (bit 15 = restartable from memory)

		EndP


; CountReadOnlyFSTs -- go through all the FSTs and find out which ones are
;		       read-only and/or formattable
;
;		       A max of 16 read-only FSTs are stuffed into the
;		       'readOnlyFSTs" list
;
;		       A max of 16 formattable FSTs are stuffed into the
;		       'formattableFSTs' list
;.....................................................................

CountReadOnlyFSTs PROC EXPORT

		IMPORT	C1_DevNameBuf

		phb
		phk
		plb

		stz	readOnlyFSTs		;we have zero read-only FSTs so far...
		stz	formattableFSTs
		stz	blocksizeFSTs

		stz	FSTInfoParms+2
@nextFST	inc	FSTInfoParms+2

		_GetFSTInfoGS FSTInfoParms
		bcs	@done

;
; first, stuff the blocksize of the FST and the FST ID into the blocksizeFST table 
;
		lda	blocksizeFSTs
		cmp	#16
		bge	@checkFileSize
		
		asl	a			;*4
		asl	a
		
		tax
		lda	FSTInfoParms+$04
		sta	blocksizeFSTs+2,x
		lda	FSTInfoParms+$0e
		sta	blocksizeFSTs+4,x

		inc	blocksizeFSTs

;
; save the maximum file size of each FST in another table
;
@checkFileSize	lda	fileSizeFSTs
		cmp	#16
		bge	@checkReadOnly
		
		asl	a			;*6
		asl	a
		clc
		adc	fileSizeFSTs
		clc
		adc	fileSizeFSTs

		tax
		lda	FSTInfoParms+$04
		sta	fileSizeFSTs+2,x
		lda	FSTInfoParms+$14
		sta	fileSizeFSTs+4,x
		lda	FSTInfoParms+$16
		sta	fileSizeFSTs+6,x

		inc	fileSizeFSTs
		
;
; see if the FST is one which is for a read-only file system
;
@checkReadOnly	lda	FSTInfoParms+$0c
		and	#$0800			;check read-only FST bit
		beq	@checkFormattable

		lda	readOnlyFSTs
		cmp	#16
		bge	@checkFormattable

		asl	a
		tax
		lda	FSTInfoParms+$04	;fileSysID
		sta	readOnlyFSTs+2,x

		inc	readOnlyFSTs

;
; see if the FST is one which supports formatting
;
@checkFormattable
		lda	FSTInfoParms+$0c
		and	#$2000			;check formattable FST bit
		beq	@nextFST

		lda	formattableFSTs
		cmp	#16
		bge	@nextFST

		asl	a
		tax
		lda	FSTInfoParms+$04	;fileSysID
		sta	formattableFSTs+2,x

		inc	formattableFSTs
		brl	@nextFST

@done		plb
		rtl

;
; isFormattable
;
; IN: (Y) = FST ID to check
;
; OUT: carry set if it was formattable (found in formattable FSTs table)
;
		EXPORT isFormattable
isFormattable
		phb
		phk
		plb

		lda	formattableFSTs		;get the number of formattable fsts
		beq	@notFormattable

		asl	a			;*2
		tax

		tya
		beq	@notFormattable

@rLoop		cmp	formattableFSTs,x	;did it match the known read-only FSTs?
		beq	@wasFormattable		;yes!
		dex
		dex
		bne	@rLoop			;count down to zero
@notFormattable	clc
		plb
		rtl

@wasFormattable	sec
		plb
		rtl

;
; isReadOnly
;
; IN: (Y) = FST ID to check
;
; OUT: carry set if it was readOnly (found in read-only FSTs table)
;
		EXPORT isReadOnly
isReadOnly
		phb
		phk
		plb

		lda	readOnlyFSTs		;get the number of formattable fsts
		beq	@notReadOnly

		asl	a			;*2
		tax

		tya
		beq	@notReadOnly
		
@rLoop		cmp	readOnlyFSTs,x		;did it match the known read-only FSTs?
		beq	@wasReadOnly		;yes!
		dex
		dex
		bne	@rLoop			;count down to zero
@notReadOnly	clc
		plb
		rtl

@wasReadOnly	sec
		plb
		rtl

;
; GetFSTBlockSize
;
; IN: (A) contains FST ID whose block size we want to know
;
; OUT: (A) contains the block size
;      carry clear if block size OK, set if FST ID not found
;
		EXPORT	GetFSTBlockSize
GetFSTBlockSize
		phb
		phk
		plb

		pha
			
		lda	blocksizeFSTs
		asl	a
		asl	a
		sta	blocksizeFSTs4
		
		ldx	#0				;search the FST list front to back so that
@loop		lda	blocksizeFSTs+2,x		;we encounter the boot FST first, which the user
		cmp	1,s				;is most likely to be using
		beq	@gotIt
		inx
		inx
		inx
		inx
		cpx	blocksizeFSTs4
		blt	@loop
	
		lda	#512
		sec
		plx
		plb
		rtl
		
		
@gotIt		lda	blocksizeFSTs+4,x
		clc
		plx
		plb
		rtl

;
; GetFSTFileSize
;
; IN: (A) contains FST ID whose block size we want to know
;
; OUT: (A) contains the high word of the block size
;      (X) contains the low word of the block size
;      carry clear if block size OK, set if FST ID not found
;
		EXPORT	GetFSTFileSize
GetFSTFileSize
		phb
		phk
		plb

		pha
			
		lda	filesizeFSTs
		asl	a
		asl	a
		clc
		adc	fileSizeFSTs
		clc
		adc	fileSizeFSTs
		sta	fileSizeFSTs6
		
		ldy	#0				;search the FST list front to back so that
@loop		lda	filesizeFSTs+2,y		;we encounter the boot FST first, which the user
		cmp	1,s				;is most likely to be using
		beq	@gotIt
		iny
		iny
		iny
		iny
		iny
		iny
		cpy	fileSizeFSTs6
		blt	@loop
	
		sec
		ply
		plb
		rtl
		
		
@gotIt		lda	fileSizeFSTs+4,y
		tax
		lda	fileSizeFSTs+6,y
		
		clc
		ply
		plb
		rtl

;
; locals
;
FSTInfoParms	dc.w	8		;pcount
		dc.w	1		;fstNum
		dc.w	0		;fileSysID
		dc.L	C1_DevNameBuf	;fstName
		dc.w	0		;version
		dc.w	0		;attributes
		dc.w	0		;blocksize
		dc.L	0		;max volume size (blocks)
		dc.L	0		;max file size (bytes)
		
		EXPORT	readOnlyFSTs
readOnlyFSTs	dc.w	0
		ds.b	(16*2)

		EXPORT	formattableFSTs
formattableFSTs	dc.w	0
		ds.b	(16*2)

blocksizeFSTs4	dc.w	0		;# of FSTs * 4

		EXPORT	blocksizeFSTs
blocksizeFSTs	dc.w	0
		ds.b	(16*4)		

filesizeFSTs6	dc.w	0		;# of FSTs * 6

		EXPORT	filesizeFSTs
filesizeFSTs	dc.w	0
		ds.b	(16*6)		
		ENDP


; lotsOfFilesAlert
;
; IN: (A) the number of files for the alert
;
; OUT: carry clear, continue
;      carry set, abort
;.....................................................................


lotsOfFilesAlert PROC	EXPORT

		IMPORT	doAlertWindow
		IMPORT	SizeToString
		IMPORT	itemsInFolderStr
		IMPORT	folderMemStr
		IMPORT	availMemStr
		
		phb
		phk
		plb
		
		sta	itemsInFolder
		
		pha
		pha
		pha
		pea	ICSIZE
		_Multiply
		pulllong folderMem

		ldx	#8		;divide by 512
@fLoop		lsr	folderMem+2
		ror	folderMem
		dex
		bpl	@fLoop

		pushlong #folderMemStr
		pushlong folderMem
		pea	2
		pea	512
		jsl	SizeToString

		pha
		pha
		_RealFreeMem
		pulllong availMem
		
		ldx	#8		;divide by 512
@rLoop		lsr	availMem+2
		ror	availMem
		dex
		bpl	@rLoop
		
		pushlong #availMemStr
		pushlong availMem
		pea	2
		pea	512
		jsl	SizeToString

		pushlong #itemsInFolderStr
		pea	0
		lda	itemsInFolder
		pha
		pea	0
		pea	512
		jsl	SizeToString

		lda	#itemsInFolderStr
		sta	CustomPtr
		lda	#itemsInFolderStr>>16
		sta	CustomPtr+2
		
		lda	#folderMemStr
		sta	CustomPtr2
		lda	#folderMemStr>>16
		sta	CustomPtr2+2

		lda	#availMemStr
		sta	CustomPtr3
		lda	#availMemStr>>16
		sta	CustomPtr3+2

		lda	#rasLotsOfFiles
		jsl	doAlertwindow
		
		eor	#$FFFF
		cmp	#$FFFF
		
		plb
		rtl		
		
;
; locals
;
itemsInFolder	dc.w	0		
folderMem	dc.L	0
availMem	dc.L	0
		ENDP
		
;
; TextAlert -- put up a text alert box with the console driver
;
; Many thanks to Greg Branche for saving me a lot of time with the console driver code
;
; IN: (A) = GrafFlag (0 = GrafOff, not back on, either.  <>0 = GrafOff then back on).
;			  use 'Quit'			       use 'Cancel'
;
;     (X) = low word of pointer to string to display
;     (Y) = high word of pointer to string to display
;.....................................................................
		
TextAlert	PROC	EXPORT

		import	textAlertStr
		import	endTextAlertStr
		import	textQuitStr
		import	endTextQuitStr
		import	textCancelStr
		import	endTextCancelStr

		string asis
		
		phb
		phk
		plb
		
		sta	GrafFlag
		
		stx	<ptr
		sty	<ptr+2

		lda	[<ptr]
		sta	writeMessageParms+8
		
		inx
		inx
		stx	writeMessageParms+4
		sty	writeMessageParms+6
		
		_GrafOff
		_OpenGS	openParms

		lda	o_refnum
         	sta	w_refnum
         	sta	w_refnum2
         	sta	w_refnum3
		sta	w_refnum4
		sta	w_refnum5

		_WriteGS writeParms		;setup the box
		
		lda	GrafFlag
		bne	@showCancelText
		
		_WriteGS writeQuitParms
		bra	@showBodyText
		
@showCancelText	_WriteGS writeCancelParms
		
@showBodyText	_WriteGS writeMessageParms	;write our message in the box
		
		sep	#$20			;wait for a keypress
         	longa	off
@loop		lda	>$E0C000
		bpl	@loop
         	sta	>$E0C010
         	rep	#$20
         	longa	on
	
		_WriteGS writeHomeParms		;clear the screen before leaving
		_Close	o_refnum
		
		lda	GrafFlag
		beq	@done
		_GrafOn
		
@done		plb
		rtl

GrafFlag	dc.w	0

openParms 	dc.w	3
o_refnum	dc.w	0
		dc.L	pathname
         	dc.w	3

pathname	dc.w	endpath-pathname-2
         	dc.b	'.Console'
endpath	

writeParms 	dc.w	4
w_refnum	dc.w	0
		dc.L	textAlertStr
         	dc.L	endTextAlertStr-textAlertStr
		dc.L	0
		
writeQuitParms 	dc.w	4
w_refnum4	dc.w	0
		dc.L	textQuitStr
         	dc.L	endTextQuitStr-textQuitStr
		dc.L	0

writeCancelParms dc.w	4
w_refnum5	dc.w	0
		dc.L	textCancelStr
         	dc.L	endTextCancelStr-textCancelStr
		dc.L	0

writeMessageParms
		dc.w	4
w_refnum2	dc.w	0
		dc.L	0
         	dc.L	0		;size of text
		dc.L	0
		
writeHomeParms	dc.w	4
w_refnum3	dc.w	0
		dc.L	textAlertStr
         	dc.L	1		;size of text
		dc.L	0
		ENDP
		
; GetBootVolume -- put the boot volume
;.....................................................................

GetBootVolume	PROC	EXPORT

		IMPORT	GetBootVolList
		IMPORT	c1_bootname

		phb
		phk
		plb
		
		_GetBootVolGS GetBootVolList

		lda	>c1_bootname
		dec	a			;get rid of the trailing colon (":")
		sta	>c1_bootname
		
		plb
		rtl
		ENDP
		
		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Finder/all.macros b/IIGS.601.SRC/A.U.G/Finder/all.macros
new file mode 100644
index 0000000..d78a0cc
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Finder/all.macros
@@ -0,0 +1 @@
+; File:  M16.ACE
;
;
; Copyright Apple Computer, Inc. 1986-91
; All Rights Reserved
;
;
 MACRO
&lab _ACEBootInit
&lab ldx #$011D
     jsl $E10000
 MEND
 MACRO
&lab _ACECompBegin
&lab ldx #$0B1D
     jsl $E10000
 MEND
 MACRO
&lab _ACECompress
&lab ldx #$091D
     jsl $E10000
 MEND
 MACRO
&lab _ACEExpand
&lab ldx #$0A1D
     jsl $E10000
 MEND
 MACRO
&lab _ACEExpBegin
&lab ldx #$0C1D
     jsl $E10000
 MEND
 MACRO
&lab _ACEInfo
&lab ldx #$071D
     jsl $E10000
 MEND
 MACRO
&lab _ACEReset
&lab ldx #$051D
     jsl $E10000
 MEND
 MACRO
&lab _ACEShutDown
&lab ldx #$031D
     jsl $E10000
 MEND
 MACRO
&lab _ACEStartUp
&lab ldx #$021D
     jsl $E10000
 MEND
 MACRO
&lab _ACEStatus
&lab ldx #$061D
     jsl $E10000
 MEND
 MACRO
&lab _ACEVersion
&lab ldx #$041D
     jsl $E10000
 MEND

 MACRO
&lab _GetACEExpState
&lab ldx #$0D1D
     jsl $E10000
 MEND
 MACRO
&lab _SetACEExpState
&lab ldx #$0E1D
     jsl $E10000
 MEND
; File:  M16.ADB
;
;
; Copyright Apple Computer, Inc. 1986-90
; All Rights Reserved
;
;
 MACRO
&lab _AbsOff
&lab ldx #$1009
     jsl $E10000
 MEND
 MACRO
&lab _AbsOn
&lab ldx #$0F09
     jsl $E10000
 MEND
 MACRO
&lab _ADBBootInit
&lab ldx #$0109
     jsl $E10000
 MEND
 MACRO
&lab _ADBReset
&lab ldx #$0509
     jsl $E10000
 MEND
 MACRO
&lab _ADBShutDown
&lab ldx #$0309
     jsl $E10000
 MEND
 MACRO
&lab _ADBStartUp
&lab ldx #$0209
     jsl $E10000
 MEND
 MACRO
&lab _ADBStatus
&lab ldx #$0609
     jsl $E10000
 MEND
 MACRO
&lab _ADBVersion
&lab ldx #$0409
     jsl $E10000
 MEND
 MACRO
&lab _AsyncADBReceive
&lab ldx #$0D09
     jsl $E10000
 MEND
 MACRO
&lab _ClearSRQTable
&lab ldx #$1609
     jsl $E10000
 MEND
 MACRO
&lab _GetAbsScale
&lab ldx #$1309
     jsl $E10000
 MEND
 MACRO
&lab _ReadAbs
&lab ldx #$1109
     jsl $E10000
 MEND
 MACRO
&lab _ReadKeyMicroData
&lab ldx #$0A09
     jsl $E10000
 MEND
 MACRO
&lab _ReadKeyMicroMemory
&lab ldx #$0B09
     jsl $E10000
 MEND
 MACRO
&lab _SendInfo
&lab ldx #$0909
     jsl $E10000
 MEND
 MACRO
&lab _SetAbsScale
&lab ldx #$1209
     jsl $E10000
 MEND
 MACRO
&lab _SRQPoll
&lab ldx #$1409
     jsl $E10000
 MEND
 MACRO
&lab _SRQRemove
&lab ldx #$1509
     jsl $E10000
 MEND
 MACRO
&lab _SyncADBReceive
&lab ldx #$0E09
     jsl $E10000
 MEND
; File:  M16.AppleShare
;
;
; Copyright Apple Computer, Inc. 1986-90
; All Rights Reserved
;
;
; File:  M16.AppleTalk
;
;
; Copyright Apple Computer, Inc. 1986-90
; All Rights Reserved
;
;

; Causes packet and timer interrupts to be buffered without
; being dispatched.  Use with completion routines, socket
; listeners, and in place of disabling interrupts.
 MACRO
&lab _RamForbid
&lab jsl $E11018
 MEND


; Reenables packet and timer interrupts. 
; Call after RamForbid.
 MACRO
&lab _RamPermit
&lab jsl $E1101C
 MEND

  MACRO
&lab _ASPCloseSession &params
&lab    ldx &params
    ldy &params+2
    jsl $E11014
  MEND

  MACRO
&lab _ASPCommand &params
&lab    ldx &params
    ldy &params+2
    jsl $E11014
  MEND

  MACRO
&lab _ASPGetParms &params
&lab    ldx &params
    ldy &params+2
    jsl $E11014
  MEND

  MACRO
&lab _ASPGetStatus &params
&lab    ldx &params
    ldy &params+2
    jsl $E11014
  MEND

  MACRO
&lab _ASPOpenSession &params
&lab    ldx &params
    ldy &params+2
    jsl $E11014
  MEND

  MACRO
&lab _ASPWrite &params
&lab    ldx &params
    ldy &params+2
    jsl $E11014
  MEND

  MACRO
&lab _ATBoot &params
&lab    ldx &params
    ldy &params+2
    jsl $E11014
  MEND

  MACRO
&lab _ATCancelTimer &params
&lab    ldx &params
    ldy &params+2
    jsl $E11014
  MEND

  MACRO
&lab _ATGetGlobal &params
&lab    ldx &params
    ldy &params+2
    jsl $E11014
  MEND

  MACRO
&lab _ATGetInfo &params
&lab    ldx &params
    ldy &params+2
    jsl $E11014
  MEND

  MACRO
&lab _ATInstallTimer &params
&lab    ldx &params
    ldy &params+2
    jsl $E11014
  MEND

  MACRO
&lab _ATPCancelReq &params
&lab    ldx &params
    ldy &params+2
    jsl $E11014
  MEND

  MACRO
&lab _ATPCloseSocket &params
&lab    ldx &params
    ldy &params+2
    jsl $E11014
  MEND

  MACRO
&lab _ATPGetReq &params
&lab    ldx &params
    ldy &params+2
    jsl $E11014
  MEND

  MACRO
&lab _ATPOpenSocket &params
&lab    ldx &params
    ldy &params+2
    jsl $E11014
  MEND

  MACRO
&lab _ATPRelCB &params
&lab    ldx &params
    ldy &params+2
    jsl $E11014
  MEND

  MACRO
&lab _ATPSendReq &params
&lab    ldx &params
    ldy &params+2
    jsl $E11014
  MEND

  MACRO
&lab _ATPSendResp &params
&lab    ldx &params
    ldy &params+2
    jsl $E11014
  MEND

  MACRO
&lab _ATRemoveTimer &params
&lab    ldx &params
    ldy &params+2
    jsl $E11014
  MEND

  MACRO
&lab _DDPCloseSocket &params
&lab    ldx &params
    ldy &params+2
    jsl $E11014
  MEND

  MACRO
&lab _DDPOpenSocket &params
&lab    ldx &params
    ldy &params+2
    jsl $E11014
  MEND

  MACRO
&lab _DDPSendDatagram &params
&lab    ldx &params
    ldy &params+2
    jsl $E11014
  MEND

  MACRO
&lab _LAPAttachProt &params
&lab    ldx &params
    ldy &params+2
    jsl $E11014
  MEND

  MACRO
&lab _LAPReadBuffer &params
&lab    ldx &params
    ldy &params+2
    jsl $E11014
  MEND

  MACRO
&lab _LAPRemoveProt &params
&lab    ldx &params
    ldy &params+2
    jsl $E11014
  MEND

  MACRO
&lab _LAPWrite &params
&lab    ldx &params
    ldy &params+2
    jsl $E11014
  MEND

  MACRO
&lab _NBPConfirmName &params
&lab    ldx &params
    ldy &params+2
    jsl $E11014
  MEND

  MACRO
&lab _NBPKill &params
&lab    ldx &params
    ldy &params+2
    jsl $E11014
  MEND

  MACRO
&lab _NBPLookupName &params
&lab    ldx &params
    ldy &params+2
    jsl $E11014
  MEND

  MACRO
&lab _NBPRegisterName &params
&lab    ldx &params
    ldy &params+2
    jsl $E11014
  MEND

  MACRO
&lab _NBPRemoveName &params
&lab    ldx &params
    ldy &params+2
    jsl $E11014
  MEND

  MACRO
&lab _PAPClose &params
&lab    ldx &params
    ldy &params+2
    jsl $E11014
  MEND

  MACRO
&lab _PAPOpen &params
&lab    ldx &params
    ldy &params+2
    jsl $E11014
  MEND

  MACRO
&lab _PAPRead &params
&lab    ldx &params
    ldy &params+2
    jsl $E11014
  MEND

  MACRO
&lab _PAPStatus &params
&lab    ldx &params
    ldy &params+2
    jsl $E11014
  MEND

  MACRO
&lab _PAPUnload &params
&lab    ldx &params
    ldy &params+2
    jsl $E11014
  MEND

  MACRO
&lab _PAPWrite &params
&lab    ldx &params
    ldy &params+2
    jsl $E11014
  MEND

  MACRO
&lab _PFIAccess &params
&lab    ldx &params
    ldy &params+2
    jsl $E11014
  MEND

  MACRO
&lab _PFIConvertTime &params
&lab    ldx &params
    ldy &params+2
    jsl $E11014
  MEND

  MACRO
&lab _PFIGetSrcPath &params
&lab    ldx &params
    ldy &params+2
    jsl $E11014
  MEND

  MACRO
&lab _PFIGetSVersion &params
&lab    ldx &params
    ldy &params+2
    jsl $E11014
  MEND

  MACRO
&lab _PFIHooks &params
&lab    ldx &params
    ldy &params+2
    jsl $E11014
  MEND

  MACRO
&lab _PFIListSessions &params
&lab    ldx &params
    ldy &params+2
    jsl $E11014
  MEND

  MACRO
&lab _PFIListSessions2 &params
&lab    ldx &params
    ldy &params+2
    jsl $E11014
  MEND

  MACRO
&lab _PFILogin &params
&lab    ldx &params
    ldy &params+2
    jsl $E11014
  MEND

  MACRO
&lab _PFILogin2 &params
&lab    ldx &params
    ldy &params+2
    jsl $E11014
  MEND

  MACRO
&lab _PFILoginCont &params
&lab    ldx &params
    ldy &params+2
    jsl $E11014
  MEND

  MACRO
&lab _PFILogOut &params
&lab    ldx &params
    ldy &params+2
    jsl $E11014
  MEND

  MACRO
&lab _PFIMountVol &params
&lab    ldx &params
    ldy &params+2
    jsl $E11014
  MEND

  MACRO
&lab _PFINaming &params
&lab    ldx &params
    ldy &params+2
    jsl $E11014
  MEND

  MACRO
&lab _PFISetBuffer &params
&lab    ldx &params
    ldy &params+2
    jsl $E11014
  MEND

  MACRO
&lab _PFITimeZone &params
&lab    ldx &params
    ldy &params+2
    jsl $E11014
  MEND

  MACRO
&lab _PFIUserPrefix &params
&lab    ldx &params
    ldy &params+2
    jsl $E11014
  MEND

  MACRO
&lab _RPMCloseSession &params
&lab    ldx &params
    ldy &params+2
    jsl $E11014
  MEND

  MACRO
&lab _RPMFlushSession &params
&lab    ldx &params
    ldy &params+2
    jsl $E11014
  MEND

  MACRO
&lab _RPMSetPrinter &params
&lab    ldx &params
    ldy &params+2
    jsl $E11014
  MEND

  MACRO
&lab _ZIPGetMyZone &params
&lab    ldx &params
    ldy &params+2
    jsl $E11014
  MEND

  MACRO
&lab _ZIPGetZoneList &params
&lab    ldx &params
    ldy &params+2
    jsl $E11014
  MEND

; File:  M16.Control
;
;
; Copyright Apple Computer, Inc. 1986-91
; All Rights Reserved
;
;
 MACRO
&lab _CallCtlDefProc
&lab ldx #$2C10
     jsl $E10000
 MEND
 MACRO
&lab _CMLoadResource
&lab ldx #$3210
     jsl $E10000
 MEND
 MACRO
&lab _CMReleaseResource
&lab ldx #$3310
     jsl $E10000
 MEND
 MACRO
&lab _CtlBootInit
&lab ldx #$0110
     jsl $E10000
 MEND
 MACRO
&lab _CtlNewRes
&lab ldx #$1210
     jsl $E10000
 MEND
 MACRO
&lab _CtlReset
&lab ldx #$0510
     jsl $E10000
 MEND
 MACRO
&lab _CtlShutDown
&lab ldx #$0310
     jsl $E10000
 MEND
 MACRO
&lab _CtlStartUp
&lab ldx #$0210
     jsl $E10000
 MEND
 MACRO
&lab _CtlStatus
&lab ldx #$0610
     jsl $E10000
 MEND
 MACRO
&lab _CtlVersion
&lab ldx #$0410
     jsl $E10000
 MEND
 MACRO
&lab _DisposeControl
&lab ldx #$0A10
     jsl $E10000
 MEND
 MACRO
&lab _DragControl
&lab ldx #$1710
     jsl $E10000
 MEND
 MACRO
&lab _DragRect
&lab ldx #$1D10
     jsl $E10000
 MEND
 MACRO
&lab _DrawControls
&lab ldx #$1010
     jsl $E10000
 MEND
 MACRO
&lab _DrawOneCtl
&lab ldx #$2510
     jsl $E10000
 MEND
 MACRO
&lab _EraseControl
&lab ldx #$2410
     jsl $E10000
 MEND
 MACRO
&lab _FindControl
&lab ldx #$1310
     jsl $E10000
 MEND
 MACRO
&lab _FindTargetCtl
&lab ldx #$2610
     jsl $E10000
 MEND
 MACRO
&lab _FutzCtls
&lab ldx #$3610
     jsl $E10000
 MEND
 MACRO
&lab _GetCtlAction
&lab ldx #$2110
     jsl $E10000
 MEND
 MACRO
&lab _GetCtlDPage
&lab ldx #$1F10
     jsl $E10000
 MEND
 MACRO
&lab _GetCtlHandleFromID
&lab ldx #$3010
     jsl $E10000
 MEND
 MACRO
&lab _GetCtlID
&lab ldx #$2A10
     jsl $E10000
 MEND
 MACRO
&lab _GetCtlMoreFlags
&lab ldx #$2E10
     jsl $E10000
 MEND
 MACRO
&lab _GetCtlParamPtr
&lab ldx #$3510
     jsl $E10000
 MEND
 MACRO
&lab _GetCtlParams
&lab ldx #$1C10
     jsl $E10000
 MEND
 MACRO
&lab _GetCtlRefCon
&lab ldx #$2310
     jsl $E10000
 MEND
 MACRO
&lab _GetCtlTitle
&lab ldx #$0D10
     jsl $E10000
 MEND
 MACRO
&lab _GetCtlValue
&lab ldx #$1A10
     jsl $E10000
 MEND
 MACRO
&lab _GrowSize
&lab ldx #$1E10
     jsl $E10000
 MEND
 MACRO
&lab _HideControl
&lab ldx #$0E10
     jsl $E10000
 MEND
 MACRO
&lab _HiliteControl
&lab ldx #$1110
     jsl $E10000
 MEND
 MACRO
&lab _InvalCtls
&lab ldx #$3710
     jsl $E10000
 MEND
 MACRO
&lab _KillControls
&lab ldx #$0B10
     jsl $E10000
 MEND
 MACRO
&lab _MakeNextCtlTarget
&lab ldx #$2710
     jsl $E10000
 MEND
 MACRO
&lab _MakeThisCtlTarget
&lab ldx #$2810
     jsl $E10000
 MEND
 MACRO
&lab _MoveControl
&lab ldx #$1610
     jsl $E10000
 MEND
 MACRO
&lab _NewControl
&lab ldx #$0910
     jsl $E10000
 MEND
 MACRO
&lab _NewControl2
&lab ldx #$3110
     jsl $E10000
 MEND
 MACRO
&lab _NotifyControls
&lab ldx #$2D10
     jsl $E10000
 MEND
 MACRO
&lab _NotifyCtls
&lab ldx #$2D10
     jsl $E10000
 MEND
 MACRO
&lab _SendEventToCtl
&lab ldx #$2910
     jsl $E10000
 MEND
 MACRO
&lab _SetCtlAction
&lab ldx #$2010
     jsl $E10000
 MEND
 MACRO
&lab _SetCtlIcons
&lab ldx #$1810
     jsl $E10000
 MEND
 MACRO
&lab _SetCtlID
&lab ldx #$2B10
     jsl $E10000
 MEND
 MACRO
&lab _SetCtlMoreFlags
&lab ldx #$2F10
     jsl $E10000
 MEND
 MACRO
&lab _SetCtlParamPtr
&lab ldx #$3410
     jsl $E10000
 MEND
 MACRO
&lab _SetCtlParams
&lab ldx #$1B10
     jsl $E10000
 MEND
 MACRO
&lab _SetCtlRefCon
&lab ldx #$2210
     jsl $E10000
 MEND
 MACRO
&lab _SetCtlTitle
&lab ldx #$0C10
     jsl $E10000
 MEND
 MACRO
&lab _SetCtlValue
&lab ldx #$1910
     jsl $E10000
 MEND
 MACRO
&lab _ShowControl
&lab ldx #$0F10
     jsl $E10000
 MEND
 MACRO
&lab _TestControl
&lab ldx #$1410
     jsl $E10000
 MEND
 MACRO
&lab _TrackControl
&lab ldx #$1510
     jsl $E10000
 MEND

 MACRO
&lab _FindRadioButton
&lab ldx #$3910
     jsl $E10000
 MEND
 MACRO
&lab _SetLETextByID
&lab ldx #$3A10
     jsl $E10000
 MEND
 MACRO
&lab _GetLETextByID
&lab ldx #$3B10
     jsl $E10000
 MEND
*
* M16.Debug
*
* by Dave Lyons
* December 2, 1990
*
	macro
&lab	name
&lab
	if DebugSymbols<>0 then
	brl @pastName
	lclc &olds
&olds	setc &setting('string')
	string asis
	dc.w $7771
	dc.b &len(&lab),'&lab'
	string &olds
@pastName
	endif
	mend

* You can use procname instead of proc

	macro
&lab	procname	&x
&lab	proc	&x
	if DebugSymbols<>0 then
	brl @pastName
	lclc &olds
&olds	setc &setting('string')
	string asis
	dc.w $7771
	dc.b &len(&lab),'&lab'
	string &olds
@pastName
	endif
	mend

; File:  M16.Desk
;
;
; Copyright Apple Computer, Inc. 1986-91
; All Rights Reserved
;
;
 MACRO
&lab _AddToRunQ
&lab ldx #$1F05
     jsl $E10000
 MEND
 MACRO
&lab _ChooseCDA
&lab ldx #$1105
     jsl $E10000
 MEND
 MACRO
&lab _CloseAllNDAs
&lab ldx #$1D05
     jsl $E10000
 MEND
 MACRO
&lab _CloseNDA
&lab ldx #$1605
     jsl $E10000
 MEND
 MACRO
&lab _CloseNDAbyWinPtr
&lab ldx #$1C05
     jsl $E10000
 MEND
 MACRO
&lab _DeskBootInit
&lab ldx #$0105
     jsl $E10000
 MEND
 MACRO
&lab _DeskReset
&lab ldx #$0505
     jsl $E10000
 MEND
 MACRO
&lab _DeskShutDown
&lab ldx #$0305
     jsl $E10000
 MEND
 MACRO
&lab _DeskStartUp
&lab ldx #$0205
     jsl $E10000
 MEND
 MACRO
&lab _DeskStatus
&lab ldx #$0605
     jsl $E10000
 MEND
 MACRO
&lab _DeskVersion
&lab ldx #$0405
     jsl $E10000
 MEND
 MACRO
&lab _FixAppleMenu
&lab ldx #$1E05
     jsl $E10000
 MEND
 MACRO
&lab _GetDAStrPtr
&lab ldx #$1405
     jsl $E10000
 MEND
 MACRO
&lab _GetNumNDAs
&lab ldx #$1B05
     jsl $E10000
 MEND
 MACRO
&lab _InstallCDA
&lab ldx #$0F05
     jsl $E10000
 MEND
 MACRO
&lab _InstallNDA
&lab ldx #$0E05
     jsl $E10000
 MEND
 MACRO
&lab _OpenNDA
&lab ldx #$1505
     jsl $E10000
 MEND
 MACRO
&lab _RemoveCDA
&lab ldx #$2105
     jsl $E10000
 MEND
 MACRO
&lab _RemoveFromRunQ
&lab ldx #$2005
     jsl $E10000
 MEND
 MACRO
&lab _RemoveNDA
&lab ldx #$2205
     jsl $E10000
 MEND
 MACRO
&lab _RestAll
&lab ldx #$0C05
     jsl $E10000
 MEND
 MACRO
&lab _RestScrn
&lab ldx #$0A05
     jsl $E10000
 MEND
 MACRO
&lab _SaveAll
&lab ldx #$0B05
     jsl $E10000
 MEND
 MACRO
&lab _SaveScrn
&lab ldx #$0905
     jsl $E10000
 MEND
 MACRO
&lab _SetDAStrPtr
&lab ldx #$1305
     jsl $E10000
 MEND
 MACRO
&lab _SystemClick
&lab ldx #$1705
     jsl $E10000
 MEND
 MACRO
&lab _SystemEdit
&lab ldx #$1805
     jsl $E10000
 MEND
 MACRO
&lab _SystemEvent
&lab ldx #$1A05
     jsl $E10000
 MEND
 MACRO
&lab _SystemTask
&lab ldx #$1905
     jsl $E10000
 MEND

 MACRO
&lab _GetDeskAccInfo
&lab ldx #$2305
     jsl $E10000
 MEND
 MACRO
&lab _CallDeskAcc
&lab ldx #$2405
     jsl $E10000
 MEND
 MACRO
&lab _GetDeskGlobal
&lab ldx #$2505
     jsl $E10000
 MEND
; File:  M16.Dialog
;
;
; Copyright Apple Computer, Inc. 1986-90
; All Rights Reserved
;
;
 MACRO
&lab _Alert
&lab ldx #$1715
     jsl $E10000
 MEND
 MACRO
&lab _CautionAlert
&lab ldx #$1A15
     jsl $E10000
 MEND
 MACRO
&lab _CloseDialog
&lab ldx #$0C15
     jsl $E10000
 MEND
 MACRO
&lab _DefaultFilter
&lab ldx #$3615
     jsl $E10000
 MEND
 MACRO
&lab _DialogBootInit
&lab ldx #$0115
     jsl $E10000
 MEND
 MACRO
&lab _DialogReset
&lab ldx #$0515
     jsl $E10000
 MEND
 MACRO
&lab _DialogSelect
&lab ldx #$1115
     jsl $E10000
 MEND
 MACRO
&lab _DialogShutDown
&lab ldx #$0315
     jsl $E10000
 MEND
 MACRO
&lab _DialogStartUp
&lab ldx #$0215
     jsl $E10000
 MEND
 MACRO
&lab _DialogStatus
&lab ldx #$0615
     jsl $E10000
 MEND
 MACRO
&lab _DialogVersion
&lab ldx #$0415
     jsl $E10000
 MEND
 MACRO
&lab _DisableDItem
&lab ldx #$3915
     jsl $E10000
 MEND
 MACRO
&lab _DlgCopy
&lab ldx #$1315
     jsl $E10000
 MEND
 MACRO
&lab _DlgCut
&lab ldx #$1215
     jsl $E10000
 MEND
 MACRO
&lab _DlgDelete
&lab ldx #$1515
     jsl $E10000
 MEND
 MACRO
&lab _DlgPaste
&lab ldx #$1415
     jsl $E10000
 MEND
 MACRO
&lab _DrawDialog
&lab ldx #$1615
     jsl $E10000
 MEND
 MACRO
&lab _EnableDItem
&lab ldx #$3A15
     jsl $E10000
 MEND
 MACRO
&lab _ErrorSound
&lab ldx #$0915
     jsl $E10000
 MEND
 MACRO
&lab _FindDItem
&lab ldx #$2415
     jsl $E10000
 MEND
 MACRO
&lab _GetAlertStage
&lab ldx #$3415
     jsl $E10000
 MEND
 MACRO
&lab _GetControlDItem
&lab ldx #$1E15
     jsl $E10000
 MEND
 MACRO
&lab _GetDefButton
&lab ldx #$3715
     jsl $E10000
 MEND
 MACRO
&lab _GetDItemBox
&lab ldx #$2815
     jsl $E10000
 MEND
 MACRO
&lab _GetDItemType
&lab ldx #$2615
     jsl $E10000
 MEND
 MACRO
&lab _GetDItemValue
&lab ldx #$2E15
     jsl $E10000
 MEND
 MACRO
&lab _GetFirstDItem
&lab ldx #$2A15
     jsl $E10000
 MEND
 MACRO
&lab _GetIText
&lab ldx #$1F15
     jsl $E10000
 MEND
 MACRO
&lab _GetNewDItem
&lab ldx #$3315
     jsl $E10000
 MEND
 MACRO
&lab _GetNewModalDialog
&lab ldx #$3215
     jsl $E10000
 MEND
 MACRO
&lab _GetNextDItem
&lab ldx #$2B15
     jsl $E10000
 MEND
 MACRO
&lab _HideDItem
&lab ldx #$2215
     jsl $E10000
 MEND
 MACRO
&lab _IsDialogEvent
&lab ldx #$1015
     jsl $E10000
 MEND
 MACRO
&lab _ModalDialog
&lab ldx #$0F15
     jsl $E10000
 MEND
 MACRO
&lab _ModalDialog2
&lab ldx #$2C15
     jsl $E10000
 MEND
 MACRO
&lab _NewDItem
&lab ldx #$0D15
     jsl $E10000
 MEND
 MACRO
&lab _NewModalDialog
&lab ldx #$0A15
     jsl $E10000
 MEND
 MACRO
&lab _NewModelessDialog
&lab ldx #$0B15
     jsl $E10000
 MEND
 MACRO
&lab _NoteAlert
&lab ldx #$1915
     jsl $E10000
 MEND
 MACRO
&lab _ParamText
&lab ldx #$1B15
     jsl $E10000
 MEND
 MACRO
&lab _RemoveDItem
&lab ldx #$0E15
     jsl $E10000
 MEND
 MACRO
&lab _ResetAlertStage
&lab ldx #$3515
     jsl $E10000
 MEND
 MACRO
&lab _SelectIText
&lab ldx #$2115
     jsl $E10000
 MEND
 MACRO
&lab _SelIText
&lab ldx #$2115
     jsl $E10000
 MEND
 MACRO
&lab _SetDAFont
&lab ldx #$1C15
     jsl $E10000
 MEND
 MACRO
&lab _SetDefButton
&lab ldx #$3815
     jsl $E10000
 MEND
 MACRO
&lab _SetDItemBox
&lab ldx #$2915
     jsl $E10000
 MEND
 MACRO
&lab _SetDItemType
&lab ldx #$2715
     jsl $E10000
 MEND
 MACRO
&lab _SetDItemValue
&lab ldx #$2F15
     jsl $E10000
 MEND
 MACRO
&lab _SetIText
&lab ldx #$2015
     jsl $E10000
 MEND
 MACRO
&lab _ShowDItem
&lab ldx #$2315
     jsl $E10000
 MEND
 MACRO
&lab _StopAlert
&lab ldx #$1815
     jsl $E10000
 MEND
 MACRO
&lab _UpdateDialog
&lab ldx #$2515
     jsl $E10000
 MEND
; File:  M16.Event
;
;
; Copyright Apple Computer, Inc. 1986-90
; All Rights Reserved
;
;
 MACRO
&lab _Button
&lab ldx #$0D06
     jsl $E10000
 MEND
 MACRO
&lab _DoWindows
&lab ldx #$0906
     jsl $E10000
 MEND
 MACRO
&lab _EMBootInit
&lab ldx #$0106
     jsl $E10000
 MEND
 MACRO
&lab _EMReset
&lab ldx #$0506
     jsl $E10000
 MEND
 MACRO
&lab _EMShutDown
&lab ldx #$0306
     jsl $E10000
 MEND
 MACRO
&lab _EMStartUp
&lab ldx #$0206
     jsl $E10000
 MEND
 MACRO
&lab _EMStatus
&lab ldx #$0606
     jsl $E10000
 MEND
 MACRO
&lab _EMVersion
&lab ldx #$0406
     jsl $E10000
 MEND
 MACRO
&lab _EventAvail
&lab ldx #$0B06
     jsl $E10000
 MEND
 MACRO
&lab _FakeMouse
&lab ldx #$1906
     jsl $E10000
 MEND
 MACRO
&lab _FlushEvents
&lab ldx #$1506
     jsl $E10000
 MEND
 MACRO
&lab _GetCaretTime
&lab ldx #$1206
     jsl $E10000
 MEND
 MACRO
&lab _GetDblTime
&lab ldx #$1106
     jsl $E10000
 MEND
 MACRO
&lab _GetKeyTranslation
&lab ldx #$1B06
     jsl $E10000
 MEND
 MACRO
&lab _GetMouse
&lab ldx #$0C06
     jsl $E10000
 MEND
 MACRO
&lab _GetNextEvent
&lab ldx #$0A06
     jsl $E10000
 MEND
 MACRO
&lab _GetOSEvent
&lab ldx #$1606
     jsl $E10000
 MEND
 MACRO
&lab _OSEventAvail
&lab ldx #$1706
     jsl $E10000
 MEND
 MACRO
&lab _PostEvent
&lab ldx #$1406
     jsl $E10000
 MEND
 MACRO
&lab _SetAutoKeyLimit
&lab ldx #$1A06
     jsl $E10000
 MEND
 MACRO
&lab _SetEventMask
&lab ldx #$1806
     jsl $E10000
 MEND
 MACRO
&lab _SetKeyTranslation
&lab ldx #$1C06
     jsl $E10000
 MEND
 MACRO
&lab _SetSwitch
&lab ldx #$1306
     jsl $E10000
 MEND
 MACRO
&lab _StillDown
&lab ldx #$0E06
     jsl $E10000
 MEND
 MACRO
&lab _TickCount
&lab ldx #$1006
     jsl $E10000
 MEND
 MACRO
&lab _WaitMouseUp
&lab ldx #$0F06
     jsl $E10000
 MEND
; File:  M16.Font
;
;
; Copyright Apple Computer, Inc. 1986-90
; All Rights Reserved
;
;
 MACRO
&lab _AddFamily
&lab ldx #$0D1B
     jsl $E10000
 MEND
 MACRO
&lab _AddFontVar
&lab ldx #$141B
     jsl $E10000
 MEND
 MACRO
&lab _ChooseFont
&lab ldx #$161B
     jsl $E10000
 MEND
 MACRO
&lab _CountFamilies
&lab ldx #$091B
     jsl $E10000
 MEND
 MACRO
&lab _CountFonts
&lab ldx #$101B
     jsl $E10000
 MEND
 MACRO
&lab _FamNum2ItemID
&lab ldx #$1B1B
     jsl $E10000
 MEND
 MACRO
&lab _FindFamily
&lab ldx #$0A1B
     jsl $E10000
 MEND
 MACRO
&lab _FindFontStats
&lab ldx #$111B
     jsl $E10000
 MEND
 MACRO
&lab _FixFontMenu
&lab ldx #$151B
     jsl $E10000
 MEND
 MACRO
&lab _FMBootInit
&lab ldx #$011B
     jsl $E10000
 MEND
 MACRO
&lab _FMGetCurFID
&lab ldx #$1A1B
     jsl $E10000
 MEND
 MACRO
&lab _FMGetSysFID
&lab ldx #$191B
     jsl $E10000
 MEND
 MACRO
&lab _FMReset
&lab ldx #$051B
     jsl $E10000
 MEND
 MACRO
&lab _FMSetSysFont
&lab ldx #$181B
     jsl $E10000
 MEND
 MACRO
&lab _FMShutDown
&lab ldx #$031B
     jsl $E10000
 MEND
 MACRO
&lab _FMStartUp
&lab ldx #$021B
     jsl $E10000
 MEND
 MACRO
&lab _FMStatus
&lab ldx #$061B
     jsl $E10000
 MEND
 MACRO
&lab _FMVersion
&lab ldx #$041B
     jsl $E10000
 MEND
 MACRO
&lab _GetFamInfo
&lab ldx #$0B1B
     jsl $E10000
 MEND
 MACRO
&lab _GetFamNum
&lab ldx #$0C1B
     jsl $E10000
 MEND
 MACRO
&lab _InstallFont
&lab ldx #$0E1B
     jsl $E10000
 MEND
 MACRO
&lab _InstallWithStats
&lab ldx #$1C1B
     jsl $E10000
 MEND
 MACRO
&lab _ItemID2FamNum
&lab ldx #$171B
     jsl $E10000
 MEND
 MACRO
&lab _LoadFont
&lab ldx #$121B
     jsl $E10000
 MEND
 MACRO
&lab _LoadSysFont
&lab ldx #$131B
     jsl $E10000
 MEND
 MACRO
&lab _SetPurgeStat
&lab ldx #$0F1B
     jsl $E10000
 MEND
; File:  M16.GSOS
;
;
; Copyright Apple Computer, Inc. 1986-90
; All Rights Reserved
;
;
  MACRO
&lab _AddNotifyProcGS &params
&lab jsl $E100A8
 DC.W $2034
 DC.L &params
  MEND
  MACRO
&lab _BeginSessionGS &params
&lab jsl $E100A8
 DC.W $201D
 DC.L &params
  MEND
  MACRO
&lab _BindIntGS &params
&lab jsl $E100A8
 DC.W $2031
 DC.L &params
  MEND
  MACRO
&lab _ChangePathGS &params
&lab jsl $E100A8
 DC.W $2004
 DC.L &params
  MEND
  MACRO
&lab _ClearBackupBitGS &params
&lab jsl $E100A8
 DC.W $200B
 DC.L &params
  MEND
  MACRO
&lab _CloseGS &params
&lab jsl $E100A8
 DC.W $2014
 DC.L &params
  MEND
  MACRO
&lab _CreateGS &params
&lab jsl $E100A8
 DC.W $2001
 DC.L &params
  MEND
  MACRO
&lab _DControlGS &params
&lab jsl $E100A8
 DC.W $202E
 DC.L &params
  MEND
  MACRO
&lab _DelNotifyProcGS &params
&lab jsl $E100A8
 DC.W $2035
 DC.L &params
  MEND
  MACRO
&lab _DestroyGS &params
&lab jsl $E100A8
 DC.W $2002
 DC.L &params
  MEND
  MACRO
&lab _DInfoGS &params
&lab jsl $E100A8
 DC.W $202C
 DC.L &params
  MEND
  MACRO
&lab _DReadGS &params
&lab jsl $E100A8
 DC.W $202F
 DC.L &params
  MEND
  MACRO
&lab _DRenameGS &params
&lab jsl $E100A8
 DC.W $2036
 DC.L &params
  MEND
  MACRO
&lab _DStatusGS &params
&lab jsl $E100A8
 DC.W $202D
 DC.L &params
  MEND
  MACRO
&lab _DWriteGS &params
&lab jsl $E100A8
 DC.W $2030
 DC.L &params
  MEND
  MACRO
&lab _EndSessionGS &params
&lab jsl $E100A8
 DC.W $201E
 DC.L &params
  MEND
  MACRO
&lab _EraseDiskGS &params
&lab jsl $E100A8
 DC.W $2025
 DC.L &params
  MEND
  MACRO
&lab _ExpandPathGS &params
&lab jsl $E100A8
 DC.W $200E
 DC.L &params
  MEND
  MACRO
&lab _FlushGS &params
&lab jsl $E100A8
 DC.W $2015
 DC.L &params
  MEND
  MACRO
&lab _FormatGS &params
&lab jsl $E100A8
 DC.W $2024
 DC.L &params
  MEND
  MACRO
&lab _FSTSpecific &params
&lab jsl $E100A8
 DC.W $2033
 DC.L &params
  MEND
  MACRO
&lab _GetBootVolGS &params
&lab jsl $E100A8
 DC.W $2028
 DC.L &params
  MEND
  MACRO
&lab _GetDevNumberGS &params
&lab jsl $E100A8
 DC.W $2020
 DC.L &params
  MEND
  MACRO
&lab _GetDirEntryGS &params
&lab jsl $E100A8
 DC.W $201C
 DC.L &params
  MEND
  MACRO
&lab _GetEOFGS &params
&lab jsl $E100A8
 DC.W $2019
 DC.L &params
  MEND
  MACRO
&lab _GetFileInfoGS &params
&lab jsl $E100A8
 DC.W $2006
 DC.L &params
  MEND
  MACRO
&lab _GetFSTInfoGS &params
&lab jsl $E100A8
 DC.W $202B
 DC.L &params
  MEND
  MACRO
&lab _GetLevelGS &params
&lab jsl $E100A8
 DC.W $201B
 DC.L &params
  MEND
  MACRO
&lab _GetMarkGS &params
&lab jsl $E100A8
 DC.W $2017
 DC.L &params
  MEND
  MACRO
&lab _GetNameGS &params
&lab jsl $E100A8
 DC.W $2027
 DC.L &params
  MEND
  MACRO
&lab _GetPrefixGS &params
&lab jsl $E100A8
 DC.W $200A
 DC.L &params
  MEND
  MACRO
&lab _GetRefInfoGS &params
&lab jsl $E100A8
 DC.W $2039
 DC.L &params
  MEND
  MACRO
&lab _GetRefNumGS &params
&lab jsl $E100A8
 DC.W $2038
 DC.L &params
  MEND
  MACRO
&lab _GetStdRefNumGS &params
&lab jsl $E100A8
 DC.W $2037
 DC.L &params
  MEND
  MACRO
&lab _GetSysPrefsGS &params
&lab jsl $E100A8
 DC.W $200F
 DC.L &params
  MEND
  MACRO
&lab _GetVersionGS &params
&lab jsl $E100A8
 DC.W $202A
 DC.L &params
  MEND
  MACRO
&lab _JudgeNameGS &params
&lab jsl $E100A8
  dc.w	$2007
  dc.l	&params
  MEND
  MACRO
&lab _NewlineGS &params
&lab jsl $E100A8
 DC.W $2011
 DC.L &params
  MEND
  MACRO
&lab _NullGS &params
&lab jsl $E100A8
 DC.W $200D
 DC.L &params
  MEND
  MACRO
&lab _OpenGS &params
&lab jsl $E100A8
 DC.W $2010
 DC.L &params
  MEND
  MACRO
&lab _OSShutDownGS &params
&lab jsl $E100A8
 DC.W $2003
 DC.L &params
  MEND
  MACRO
&lab _QuitGS &params
&lab jsl $E100A8
 DC.W $2029
 DC.L &params
  MEND
  MACRO
&lab _ReadGS &params
&lab jsl $E100A8
 DC.W $2012
 DC.L &params
  MEND
  MACRO
&lab _ResetCacheGS &params
&lab jsl $E100A8
 DC.W $2026
 DC.L &params
  MEND
  MACRO
&lab _SessionStatusGS &params
&lab jsl $E100A8
 DC.W $201F
 DC.L &params
  MEND
  MACRO
&lab _SetEOFGS &params
&lab jsl $E100A8
 DC.W $2018
 DC.L &params
  MEND
  MACRO
&lab _SetFileInfoGS &params
&lab jsl $E100A8
 DC.W $2005
 DC.L &params
  MEND
  MACRO
&lab _SetLevelGS &params
&lab jsl $E100A8
 DC.W $201A
 DC.L &params
  MEND
  MACRO
&lab _SetMarkGS &params
&lab jsl $E100A8
 DC.W $2016
 DC.L &params
  MEND
  MACRO
&lab _SetPrefixGS &params
&lab jsl $E100A8
 DC.W $2009
 DC.L &params
  MEND
  MACRO
&lab _SetSysPrefsGS &params
&lab jsl $E100A8
 DC.W $200C
 DC.L &params
  MEND
  MACRO
&lab _UnbindIntGS &params
&lab jsl $E100A8
 DC.W $2032
 DC.L &params
  MEND
  MACRO
&lab _VolumeGS &params
&lab jsl $E100A8
 DC.W $2008
 DC.L &params
  MEND
  MACRO
&lab _WriteGS &params
&lab jsl $E100A8
 DC.W $2013
 DC.L &params
  MEND
; File:  M16.GSBug
;
;
; Copyright Apple Computer, Inc. 1991
; All Rights Reserved
;
;
 MACRO
&lab _DebugVersion
&lab ldx #$04FF
     jsl $E10000
 MEND
 MACRO
&lab _DebugStatus
&lab ldx #$06FF
     jsl $E10000
 MEND
 MACRO
&lab _DebugStr
&lab ldx #$09FF
     jsl $E10000
 MEND
 MACRO
&lab _SetMileStone
&lab ldx #$0AFF
     jsl $E10000
 MEND
 MACRO
&lab _DebugSetHook
&lab ldx #$0BFF
     jsl $E10000
 MEND
 MACRO
&lab _DebugGetInfo
&lab ldx #$0CFF
     jsl $E10000
 MEND
; File:  M16.IntMath
;
;
; Copyright Apple Computer, Inc. 1986-90
; All Rights Reserved
;
;
 MACRO
&lab _Dec2Int
&lab ldx #$280B
     jsl $E10000
 MEND
 MACRO
&lab _Dec2Long
&lab ldx #$290B
     jsl $E10000
 MEND
 MACRO
&lab _Fix2Frac
&lab ldx #$1C0B
     jsl $E10000
 MEND
 MACRO
&lab _Fix2Long
&lab ldx #$1B0B
     jsl $E10000
 MEND
 MACRO
&lab _Fix2X
&lab ldx #$1E0B
     jsl $E10000
 MEND
 MACRO
&lab _FixATan2
&lab ldx #$170B
     jsl $E10000
 MEND
 MACRO
&lab _FixDiv
&lab ldx #$110B
     jsl $E10000
 MEND
 MACRO
&lab _FixMul
&lab ldx #$0F0B
     jsl $E10000
 MEND
 MACRO
&lab _FixRatio
&lab ldx #$0E0B
     jsl $E10000
 MEND
 MACRO
&lab _FixRound
&lab ldx #$130B
     jsl $E10000
 MEND
 MACRO
&lab _Frac2Fix
&lab ldx #$1D0B
     jsl $E10000
 MEND
 MACRO
&lab _Frac2X
&lab ldx #$1F0B
     jsl $E10000
 MEND
 MACRO
&lab _FracCos
&lab ldx #$150B
     jsl $E10000
 MEND
 MACRO
&lab _FracDiv
&lab ldx #$120B
     jsl $E10000
 MEND
 MACRO
&lab _FracMul
&lab ldx #$100B
     jsl $E10000
 MEND
 MACRO
&lab _FracSin
&lab ldx #$160B
     jsl $E10000
 MEND
 MACRO
&lab _FracSqrt
&lab ldx #$140B
     jsl $E10000
 MEND
 MACRO
&lab _Hex2Int
&lab ldx #$240B
     jsl $E10000
 MEND
 MACRO
&lab _Hex2Long
&lab ldx #$250B
     jsl $E10000
 MEND
 MACRO
&lab _HexIt
&lab ldx #$2A0B
     jsl $E10000
 MEND
 MACRO
&lab _HiWord
&lab ldx #$180B
     jsl $E10000
 MEND
 MACRO
&lab _IMBootInit
&lab ldx #$010B
     jsl $E10000
 MEND
 MACRO
&lab _IMReset
&lab ldx #$050B
     jsl $E10000
 MEND
 MACRO
&lab _IMShutDown
&lab ldx #$030B
     jsl $E10000
 MEND
 MACRO
&lab _IMStartUp
&lab ldx #$020B
     jsl $E10000
 MEND
 MACRO
&lab _IMStatus
&lab ldx #$060B
     jsl $E10000
 MEND
 MACRO
&lab _IMVersion
&lab ldx #$040B
     jsl $E10000
 MEND
 MACRO
&lab _Int2Dec
&lab ldx #$260B
     jsl $E10000
 MEND
 MACRO
&lab _Int2Hex
&lab ldx #$220B
     jsl $E10000
 MEND
 MACRO
&lab _Long2Dec
&lab ldx #$270B
     jsl $E10000
 MEND
 MACRO
&lab _Long2Fix
&lab ldx #$1A0B
     jsl $E10000
 MEND
 MACRO
&lab _Long2Hex
&lab ldx #$230B
     jsl $E10000
 MEND
 MACRO
&lab _LongDivide
&lab ldx #$0D0B
     jsl $E10000
 MEND
 MACRO
&lab _LongMul
&lab ldx #$0C0B
     jsl $E10000
 MEND
 MACRO
&lab _LoWord
&lab ldx #$190B
     jsl $E10000
 MEND
 MACRO
&lab _Multiply
&lab ldx #$090B
     jsl $E10000
 MEND
 MACRO
&lab _SDivide
&lab ldx #$0A0B
     jsl $E10000
 MEND
 MACRO
&lab _UDivide
&lab ldx #$0B0B
     jsl $E10000
 MEND
 MACRO
&lab _X2Fix
&lab ldx #$200B
     jsl $E10000
 MEND
 MACRO
&lab _X2Frac
&lab ldx #$210B
     jsl $E10000
 MEND
; File:  M16.LineEdit
;
;
; Copyright Apple Computer, Inc. 1986-90
; All Rights Reserved
;
;
 MACRO
&lab _GetLEDefProc
&lab ldx #$2414
     jsl $E10000
 MEND
 MACRO
&lab _LEActivate
&lab ldx #$0F14
     jsl $E10000
 MEND
 MACRO
&lab _LEBootInit
&lab ldx #$0114
     jsl $E10000
 MEND
 MACRO
&lab _LEClick
&lab ldx #$0D14
     jsl $E10000
 MEND
 MACRO
&lab _LECopy
&lab ldx #$1314
     jsl $E10000
 MEND
 MACRO
&lab _LECut
&lab ldx #$1214
     jsl $E10000
 MEND
 MACRO
&lab _LEDeactivate
&lab ldx #$1014
     jsl $E10000
 MEND
 MACRO
&lab _LEDelete
&lab ldx #$1514
     jsl $E10000
 MEND
 MACRO
&lab _LEDispose
&lab ldx #$0A14
     jsl $E10000
 MEND
 MACRO
&lab _LEFromScrap
&lab ldx #$1914
     jsl $E10000
 MEND
 MACRO
&lab _LEGetScrapLen
&lab ldx #$1C14
     jsl $E10000
 MEND
 MACRO
&lab _LEGetTextHand
&lab ldx #$2214
     jsl $E10000
 MEND
 MACRO
&lab _LEGetTextLen
&lab ldx #$2314
     jsl $E10000
 MEND
 MACRO
&lab _LEIdle
&lab ldx #$0C14
     jsl $E10000
 MEND
 MACRO
&lab _LEInsert
&lab ldx #$1614
     jsl $E10000
 MEND
 MACRO
&lab _LEKey
&lab ldx #$1114
     jsl $E10000
 MEND
 MACRO
&lab _LENew
&lab ldx #$0914
     jsl $E10000
 MEND
 MACRO
&lab _LEPaste
&lab ldx #$1414
     jsl $E10000
 MEND
 MACRO
&lab _LEReset
&lab ldx #$0514
     jsl $E10000
 MEND
 MACRO
&lab _LEScrapHandle
&lab ldx #$1B14
     jsl $E10000
 MEND
 MACRO
&lab _LESetCaret
&lab ldx #$1F14
     jsl $E10000
 MEND
 MACRO
&lab _LESetHilite
&lab ldx #$1E14
     jsl $E10000
 MEND
 MACRO
&lab _LESetJust
&lab ldx #$2114
     jsl $E10000
 MEND
 MACRO
&lab _LESetScrapLen
&lab ldx #$1D14
     jsl $E10000
 MEND
 MACRO
&lab _LESetSelect
&lab ldx #$0E14
     jsl $E10000
 MEND
 MACRO
&lab _LESetText
&lab ldx #$0B14
     jsl $E10000
 MEND
 MACRO
&lab _LEShutDown
&lab ldx #$0314
     jsl $E10000
 MEND
 MACRO
&lab _LEStartUp
&lab ldx #$0214
     jsl $E10000
 MEND
 MACRO
&lab _LEStatus
&lab ldx #$0614
     jsl $E10000
 MEND
 MACRO
&lab _LETextBox
&lab ldx #$1814
     jsl $E10000
 MEND
 MACRO
&lab _LETextBox2
&lab ldx #$2014
     jsl $E10000
 MEND
 MACRO
&lab _LEToScrap
&lab ldx #$1A14
     jsl $E10000
 MEND
 MACRO
&lab _LEUpdate
&lab ldx #$1714
     jsl $E10000
 MEND
 MACRO
&lab _LEVersion
&lab ldx #$0414
     jsl $E10000
 MEND
; File:  M16.List
;
;
; Copyright Apple Computer, Inc. 1986-91
; All Rights Reserved
;
;
 MACRO
&lab _CreateList
&lab ldx #$091C
     jsl $E10000
 MEND
 MACRO
&lab _DrawMember
&lab ldx #$0C1C
     jsl $E10000
 MEND
 MACRO
&lab _DrawMember2
&lab ldx #$111C
     jsl $E10000
 MEND
 MACRO
&lab _GetListDefProc
&lab ldx #$0E1C
     jsl $E10000
 MEND
 MACRO
&lab _ListBootInit
&lab ldx #$011C
     jsl $E10000
 MEND
 MACRO
&lab _ListReset
&lab ldx #$051C
     jsl $E10000
 MEND
 MACRO
&lab _ListShutDown
&lab ldx #$031C
     jsl $E10000
 MEND
 MACRO
&lab _ListStartup
&lab ldx #$021C
     jsl $E10000
 MEND
 MACRO
&lab _ListStatus
&lab ldx #$061C
     jsl $E10000
 MEND
 MACRO
&lab _ListVersion
&lab ldx #$041C
     jsl $E10000
 MEND
 MACRO
&lab _NewList
&lab ldx #$101C
     jsl $E10000
 MEND
 MACRO
&lab _NewList2
&lab ldx #$161C
     jsl $E10000
 MEND
 MACRO
&lab _NextMember
&lab ldx #$0B1C
     jsl $E10000
 MEND
 MACRO
&lab _NextMember2
&lab ldx #$121C
     jsl $E10000
 MEND
 MACRO
&lab _ResetMember
&lab ldx #$0F1C
     jsl $E10000
 MEND
 MACRO
&lab _ResetMember2
&lab ldx #$131C
     jsl $E10000
 MEND
 MACRO
&lab _SelectMember
&lab ldx #$0D1C
     jsl $E10000
 MEND
 MACRO
&lab _SelectMember2
&lab ldx #$141C
     jsl $E10000
 MEND
 MACRO
&lab _SortList
&lab ldx #$0A1C
     jsl $E10000
 MEND
 MACRO
&lab _SortList2
&lab ldx #$151C
     jsl $E10000
 MEND

 MACRO
&lab _ListKey
&lab ldx #$171C
     jsl $E10000
 MEND
 MACRO
&lab _CompareStrings
&lab ldx #$181C
     jsl $E10000
 MEND
; File:  M16.Loader
;
;
; Copyright Apple Computer, Inc. 1986-90
; All Rights Reserved
;
;
 MACRO
&lab _GetLoadSegInfo
&lab ldx #$0F11
     jsl $E10000
 MEND
 MACRO
&lab _GetPathname
&lab ldx #$1111
     jsl $E10000
 MEND
 MACRO
&lab _GetPathname2
&lab ldx #$2211
     jsl $E10000
 MEND
 MACRO
&lab _GetUserID
&lab ldx #$1011
     jsl $E10000
 MEND
 MACRO
&lab _GetUserID2
&lab ldx #$2111
     jsl $E10000
 MEND
 MACRO
&lab _InitialLoad
&lab ldx #$0911
     jsl $E10000
 MEND
 MACRO
&lab _InitialLoad2
&lab ldx #$2011
     jsl $E10000
 MEND
 MACRO
&lab _LGetPathname
&lab ldx #$1111
     jsl $E10000
 MEND
 MACRO
&lab _LGetPathname2
&lab ldx #$2211
     jsl $E10000
 MEND
 MACRO
&lab _LoaderInitialization
&lab ldx #$0111
     jsl $E10000
 MEND
 MACRO
&lab _LoaderReset
&lab ldx #$0511
     jsl $E10000
 MEND
 MACRO
&lab _LoaderShutDown
&lab ldx #$0311
     jsl $E10000
 MEND
 MACRO
&lab _LoaderStartUp
&lab ldx #$0211
     jsl $E10000
 MEND
 MACRO
&lab _LoaderStatus
&lab ldx #$0611
     jsl $E10000
 MEND
 MACRO
&lab _LoaderVersion
&lab ldx #$0411
     jsl $E10000
 MEND
 MACRO
&lab _LoadSegName
&lab ldx #$0D11
     jsl $E10000
 MEND
 MACRO
&lab _LoadSegNum
&lab ldx #$0B11
     jsl $E10000
 MEND
 MACRO
&lab _RenamePathname
&lab ldx #$1311
     jsl $E10000
 MEND
 MACRO
&lab _Restart
&lab ldx #$0A11
     jsl $E10000
 MEND
 MACRO
&lab _UnloadSeg
&lab ldx #$0E11
     jsl $E10000
 MEND
 MACRO
&lab _UnloadSegNum
&lab ldx #$0C11
     jsl $E10000
 MEND
 MACRO
&lab _UserShutDown
&lab ldx #$1211
     jsl $E10000
 MEND
; File:  M16.Locator
;
;
; Copyright Apple Computer, Inc. 1986-91
; All Rights Reserved
;
;
 MACRO
&lab _GetFuncPtr
&lab ldx #$0B01
     jsl $E10000
 MEND
 MACRO
&lab _GetTSPtr
&lab ldx #$0901
     jsl $E10000
 MEND
 MACRO
&lab _GetWAP
&lab ldx #$0C01
     jsl $E10000
 MEND
 MACRO
&lab _LoadOneTool
&lab ldx #$0F01
     jsl $E10000
 MEND
 MACRO
&lab _LoadTools
&lab ldx #$0E01
     jsl $E10000
 MEND
 MACRO
&lab _MessageByName
&lab ldx #$1701
     jsl $E10000
 MEND
 MACRO
&lab _MessageCenter
&lab ldx #$1501
     jsl $E10000
 MEND
 MACRO
&lab _RestoreTextState
&lab ldx #$1401
     jsl $E10000
 MEND
 MACRO
&lab _SaveTextState
&lab ldx #$1301
     jsl $E10000
 MEND
 MACRO
&lab _SetDefaultTPT
&lab ldx #$1601
     jsl $E10000
 MEND
 MACRO
&lab _SetTSPtr
&lab ldx #$0A01
     jsl $E10000
 MEND
 MACRO
&lab _SetWAP
&lab ldx #$0D01
     jsl $E10000
 MEND
 MACRO
&lab _ShutDownTools
&lab ldx #$1901
     jsl $E10000
 MEND
 MACRO
&lab _StartUpTools
&lab ldx #$1801
     jsl $E10000
 MEND
 MACRO
&lab _TLBootInit
&lab ldx #$0101
     jsl $E10000
 MEND
 MACRO
&lab _TLMountVolume
&lab ldx #$1101
     jsl $E10000
 MEND
 MACRO
&lab _TLReset
&lab ldx #$0501
     jsl $E10000
 MEND
 MACRO
&lab _TLShutDown
&lab ldx #$0301
     jsl $E10000
 MEND
 MACRO
&lab _TLStartUp
&lab ldx #$0201
     jsl $E10000
 MEND
 MACRO
&lab _TLStatus
&lab ldx #$0601
     jsl $E10000
 MEND
 MACRO
&lab _TLTextMountVolume
&lab ldx #$1201
     jsl $E10000
 MEND
 MACRO
&lab _TLVersion
&lab ldx #$0401
     jsl $E10000
 MEND
 MACRO
&lab _UnloadOneTool
&lab ldx #$1001
     jsl $E10000
 MEND

 MACRO
&lab _GetMsgHandle
&lab ldx #$1A01
     jsl $E10000
 MEND
 MACRO
&lab _AcceptRequests
&lab ldx #$1B01
     jsl $E10000
 MEND
 MACRO
&lab _SendRequest
&lab ldx #$1C01
     jsl $E10000
 MEND
; File:  M16.Memory
;
;
; Copyright Apple Computer, Inc. 1986-91
; All Rights Reserved
;
;
 MACRO
&lab _AddToOOMQueue
&lab ldx #$0C02
     jsl $E10000
 MEND
 MACRO
&lab _BlockMove
&lab ldx #$2B02
     jsl $E10000
 MEND
 MACRO
&lab _CheckHandle
&lab ldx #$1E02
     jsl $E10000
 MEND
 MACRO
&lab _CompactMem
&lab ldx #$1F02
     jsl $E10000
 MEND
 MACRO
&lab _DisposeAll
&lab ldx #$1102
     jsl $E10000
 MEND
 MACRO
&lab _DisposeHandle
&lab ldx #$1002
     jsl $E10000
 MEND
 MACRO
&lab _FindHandle
&lab ldx #$1A02
     jsl $E10000
 MEND
 MACRO
&lab _FreeMem
&lab ldx #$1B02
     jsl $E10000
 MEND
 MACRO
&lab _GetHandleSize
&lab ldx #$1802
     jsl $E10000
 MEND
 MACRO
&lab _HandToHand
&lab ldx #$2A02
     jsl $E10000
 MEND
 MACRO
&lab _HandToPtr
&lab ldx #$2902
     jsl $E10000
 MEND
 MACRO
&lab _HLock
&lab ldx #$2002
     jsl $E10000
 MEND
 MACRO
&lab _HLockAll
&lab ldx #$2102
     jsl $E10000
 MEND
 MACRO
&lab _HUnlock
&lab ldx #$2202
     jsl $E10000
 MEND
 MACRO
&lab _HUnlockAll
&lab ldx #$2302
     jsl $E10000
 MEND
 MACRO
&lab _MaxBlock
&lab ldx #$1C02
     jsl $E10000
 MEND
 MACRO
&lab _MMBootInit
&lab ldx #$0102
     jsl $E10000
 MEND
 MACRO
&lab _MMReset
&lab ldx #$0502
     jsl $E10000
 MEND
 MACRO
&lab _MMShutDown
&lab ldx #$0302
     jsl $E10000
 MEND
 MACRO
&lab _MMStartUp
&lab ldx #$0202
     jsl $E10000
 MEND
 MACRO
&lab _MMStatus
&lab ldx #$0602
     jsl $E10000
 MEND
 MACRO
&lab _MMVersion
&lab ldx #$0402
     jsl $E10000
 MEND
 MACRO
&lab _NewHandle
&lab ldx #$0902
     jsl $E10000
 MEND
 MACRO
&lab _PtrToHand
&lab ldx #$2802
     jsl $E10000
 MEND
 MACRO
&lab _PurgeAll
&lab ldx #$1302
     jsl $E10000
 MEND
 MACRO
&lab _PurgeHandle
&lab ldx #$1202
     jsl $E10000
 MEND
 MACRO
&lab _RealFreeMem
&lab ldx #$2F02
     jsl $E10000
 MEND
 MACRO
&lab _ReAllocHandle
&lab ldx #$0A02
     jsl $E10000
 MEND
 MACRO
&lab _RemoveFromOOMQueue
&lab ldx #$0D02
     jsl $E10000
 MEND
 MACRO
&lab _RestoreHandle
&lab ldx #$0B02
     jsl $E10000
 MEND
 MACRO
&lab _SetHandleSize
&lab ldx #$1902
     jsl $E10000
 MEND
 MACRO
&lab _SetPurge
&lab ldx #$2402
     jsl $E10000
 MEND
 MACRO
&lab _SetPurgeAll
&lab ldx #$2502
     jsl $E10000
 MEND
 MACRO
&lab _TotalMem
&lab ldx #$1D02
     jsl $E10000
 MEND

 MACRO
&lab _SetHandleID
&lab ldx #$3002
     jsl $E10000
 MEND
; File:  M16.Menu
;
;
; Copyright Apple Computer, Inc. 1986-91
; All Rights Reserved
;
;
 MACRO
&lab _CalcMenuSize
&lab ldx #$1C0F
     jsl $E10000
 MEND
 MACRO
&lab _CheckMItem
&lab ldx #$320F
     jsl $E10000
 MEND
 MACRO
&lab _CountMItems
&lab ldx #$140F
     jsl $E10000
 MEND
 MACRO
&lab _DeleteMenu
&lab ldx #$0E0F
     jsl $E10000
 MEND
 MACRO
&lab _DeleteMItem
&lab ldx #$100F
     jsl $E10000
 MEND
 MACRO
&lab _DisableMItem
&lab ldx #$310F
     jsl $E10000
 MEND
 MACRO
&lab _DisposeMenu
&lab ldx #$2E0F
     jsl $E10000
 MEND
 MACRO
&lab _DrawMenuBar
&lab ldx #$2A0F
     jsl $E10000
 MEND
 MACRO
&lab _EnableMItem
&lab ldx #$300F
     jsl $E10000
 MEND
 MACRO
&lab _FixMenuBar
&lab ldx #$130F
     jsl $E10000
 MEND
 MACRO
&lab _FlashMenuBar
&lab ldx #$0C0F
     jsl $E10000
 MEND
 MACRO
&lab _GetBarColors
&lab ldx #$180F
     jsl $E10000
 MEND
 MACRO
&lab _GetMenuBar
&lab ldx #$0A0F
     jsl $E10000
 MEND
 MACRO
&lab _GetMenuFlag
&lab ldx #$200F
     jsl $E10000
 MEND
 MACRO
&lab _GetMenuMgrPort
&lab ldx #$1B0F
     jsl $E10000
 MEND
 MACRO
&lab _GetMenuTitle
&lab ldx #$220F
     jsl $E10000
 MEND
 MACRO
&lab _GetMHandle
&lab ldx #$160F
     jsl $E10000
 MEND
 MACRO
&lab _GetMItem
&lab ldx #$250F
     jsl $E10000
 MEND
 MACRO
&lab _GetMItemFlag
&lab ldx #$270F
     jsl $E10000
 MEND
 MACRO
&lab _GetMItemMark
&lab ldx #$340F
     jsl $E10000
 MEND
 MACRO
&lab _GetMItemStyle
&lab ldx #$360F
     jsl $E10000
 MEND
 MACRO
&lab _GetMTitleStart
&lab ldx #$1A0F
     jsl $E10000
 MEND
 MACRO
&lab _GetMTitleWidth
&lab ldx #$1E0F
     jsl $E10000
 MEND
 MACRO
&lab _GetPopUpDefProc
&lab ldx #$3B0F
     jsl $E10000
 MEND
 MACRO
&lab _GetSysBar
&lab ldx #$110F
     jsl $E10000
 MEND
 MACRO
&lab _HideMenuBar
&lab ldx #$450F
     jsl $E10000
 MEND
 MACRO
&lab _HiliteMenu
&lab ldx #$2C0F
     jsl $E10000
 MEND
 MACRO
&lab _InitPalette
&lab ldx #$2F0F
     jsl $E10000
 MEND
 MACRO
&lab _InsertMenu
&lab ldx #$0D0F
     jsl $E10000
 MEND
 MACRO
&lab _InsertMItem
&lab ldx #$0F0F
     jsl $E10000
 MEND
 MACRO
&lab _InsertMItem2
&lab ldx #$3F0F
     jsl $E10000
 MEND
 MACRO
&lab _MenuBootInit
&lab ldx #$010F
     jsl $E10000
 MEND
 MACRO
&lab _MenuGlobal
&lab ldx #$230F
     jsl $E10000
 MEND
 MACRO
&lab _MenuKey
&lab ldx #$090F
     jsl $E10000
 MEND
 MACRO
&lab _MenuNewRes
&lab ldx #$290F
     jsl $E10000
 MEND
 MACRO
&lab _MenuRefresh
&lab ldx #$0B0F
     jsl $E10000
 MEND
 MACRO
&lab _MenuReset
&lab ldx #$050F
     jsl $E10000
 MEND
 MACRO
&lab _MenuSelect
&lab ldx #$2B0F
     jsl $E10000
 MEND
 MACRO
&lab _MenuShutDown
&lab ldx #$030F
     jsl $E10000
 MEND
 MACRO
&lab _MenuStartUp
&lab ldx #$020F
     jsl $E10000
 MEND
 MACRO
&lab _MenuStatus
&lab ldx #$060F
     jsl $E10000
 MEND
 MACRO
&lab _MenuVersion
&lab ldx #$040F
     jsl $E10000
 MEND
 MACRO
&lab _NewMenu
&lab ldx #$2D0F
     jsl $E10000
 MEND
 MACRO
&lab _NewMenu2
&lab ldx #$3E0F
     jsl $E10000
 MEND
 MACRO
&lab _NewMenuBar
&lab ldx #$150F
     jsl $E10000
 MEND
 MACRO
&lab _NewMenuBar2
&lab ldx #$430F
     jsl $E10000
 MEND
 MACRO
&lab _PopUpMenuSelect
&lab ldx #$3C0F
     jsl $E10000
 MEND
 MACRO
&lab _SetBarColors
&lab ldx #$170F
     jsl $E10000
 MEND
 MACRO
&lab _SetMenuBar
&lab ldx #$390F
     jsl $E10000
 MEND
 MACRO
&lab _SetMenuFlag
&lab ldx #$1F0F
     jsl $E10000
 MEND
 MACRO
&lab _SetMenuID
&lab ldx #$370F
     jsl $E10000
 MEND
 MACRO
&lab _SetMenuTitle
&lab ldx #$210F
     jsl $E10000
 MEND
 MACRO
&lab _SetMenuTitle2
&lab ldx #$400F
     jsl $E10000
 MEND
 MACRO
&lab _SetMItem
&lab ldx #$240F
     jsl $E10000
 MEND
 MACRO
&lab _SetMItem2
&lab ldx #$410F
     jsl $E10000
 MEND
 MACRO
&lab _SetMItemBlink
&lab ldx #$280F
     jsl $E10000
 MEND
 MACRO
&lab _SetMItemFlag
&lab ldx #$260F
     jsl $E10000
 MEND
 MACRO
&lab _SetMItemID
&lab ldx #$380F
     jsl $E10000
 MEND
 MACRO
&lab _SetMItemMark
&lab ldx #$330F
     jsl $E10000
 MEND
 MACRO
&lab _SetMItemName
&lab ldx #$3A0F
     jsl $E10000
 MEND
 MACRO
&lab _SetMItemName2
&lab ldx #$420F
     jsl $E10000
 MEND
 MACRO
&lab _SetMItemStyle
&lab ldx #$350F
     jsl $E10000
 MEND
 MACRO
&lab _SetMTitleStart
&lab ldx #$190F
     jsl $E10000
 MEND
 MACRO
&lab _SetMTitleWidth
&lab ldx #$1D0F
     jsl $E10000
 MEND
 MACRO
&lab _SetSysBar
&lab ldx #$120F
     jsl $E10000
 MEND
 MACRO
&lab _ShowMenuBar
&lab ldx #$460F
     jsl $E10000
 MEND

 MACRO
&lab _SetMItemIcon
&lab ldx #$470F
     jsl $E10000
 MEND
 MACRO
&lab _GetMItemIcon
&lab ldx #$480F
     jsl $E10000
 MEND
 MACRO
&lab _SetMItemStruct
&lab ldx #$490F
     jsl $E10000
 MEND
 MACRO
&lab _GetMItemStruct
&lab ldx #$4A0F
     jsl $E10000
 MEND
 MACRO
&lab _RemoveMItemStruct
&lab ldx #$4B0F
     jsl $E10000
 MEND
 MACRO
&lab _GetMItemFlag2
&lab ldx #$4C0F
     jsl $E10000
 MEND
 MACRO
&lab _SetMItemFlag2
&lab ldx #$4D0F
     jsl $E10000
 MEND
 MACRO
&lab _GetMItemBlink
&lab ldx #$4F0F
     jsl $E10000
 MEND
 MACRO
&lab _InsertPathMItems
&lab ldx #$500F
     jsl $E10000
 MEND
; File:  M16.MIDI
;
;
; Copyright Apple Computer, Inc. 1986-90
; All Rights Reserved
;
;
 MACRO
&lab _MidiBootInit
&lab ldx #$0120
     jsl $E10000
 MEND
 MACRO
&lab _MidiClock
&lab ldx #$0B20
     jsl $E10000
 MEND
 MACRO
&lab _MidiControl
&lab ldx #$0920
     jsl $E10000
 MEND
 MACRO
&lab _MidiDevice
&lab ldx #$0A20
     jsl $E10000
 MEND
 MACRO
&lab _MidiInfo
&lab ldx #$0C20
     jsl $E10000
 MEND
 MACRO
&lab _MidiInputPoll
&lab jsl $E101B2
 MEND
 MACRO
&lab _MidiReadPacket
&lab ldx #$0D20
     jsl $E10000
 MEND
 MACRO
&lab _MidiReset
&lab ldx #$0520
     jsl $E10000
 MEND
 MACRO
&lab _MidiShutDown
&lab ldx #$0320
     jsl $E10000
 MEND
 MACRO
&lab _MidiStartUp
&lab ldx #$0220
     jsl $E10000
 MEND
 MACRO
&lab _MidiStatus
&lab ldx #$0620
     jsl $E10000
 MEND
 MACRO
&lab _MidiVersion
&lab ldx #$0420
     jsl $E10000
 MEND
 MACRO
&lab _MidiWritePacket
&lab ldx #$0E20
     jsl $E10000
 MEND
; File:  M16.MiscTool
;
;
; Copyright Apple Computer, Inc. 1986-91
; All Rights Reserved
;
;
 MACRO
&lab _AddToQueue
&lab ldx #$2E03
     jsl $E10000
 MEND
 MACRO
&lab _ClampMouse
&lab ldx #$1C03
     jsl $E10000
 MEND
 MACRO
&lab _ClearMouse
&lab ldx #$1B03
     jsl $E10000
 MEND
 MACRO
&lab _ClrHeartBeat
&lab ldx #$1403
     jsl $E10000
 MEND
 MACRO
&lab _ConvSeconds
&lab ldx #$3703
     jsl $E10000
 MEND
 MACRO
&lab _DelHeartBeat
&lab ldx #$1303
     jsl $E10000
 MEND
 MACRO
&lab _DeleteFromQueue
&lab ldx #$2F03
     jsl $E10000
 MEND
 MACRO
&lab _DeleteID
&lab ldx #$2103
     jsl $E10000
 MEND
 MACRO
&lab _FWEntry
&lab ldx #$2403
     jsl $E10000
 MEND
 MACRO
&lab _GetAbsClamp
&lab ldx #$2B03
     jsl $E10000
 MEND
 MACRO
&lab _GetAddr
&lab ldx #$1603
     jsl $E10000
 MEND
 MACRO
&lab _GetCodeResConverter
&lab ldx #$3403
     jsl $E10000
 MEND
 MACRO
&lab _GetIRQEnable
&lab ldx #$2903
     jsl $E10000
 MEND
 MACRO
&lab _GetIntStateRecSize
&lab ldx #$3203
     jsl $E10000
 MEND
 MACRO
&lab _GetInterruptState
&lab ldx #$3103
     jsl $E10000
 MEND
 MACRO
&lab _GetMouseClamp
&lab ldx #$1D03
     jsl $E10000
 MEND
 MACRO
&lab _GetNewID
&lab ldx #$2003
     jsl $E10000
 MEND
 MACRO
&lab _GetRomResource
&lab ldx #$3503
     jsl $E10000
 MEND
 MACRO
&lab _GetTick
&lab ldx #$2503
     jsl $E10000
 MEND
 MACRO
&lab _GetVector
&lab ldx #$1103
     jsl $E10000
 MEND
 MACRO
&lab _HomeMouse
&lab ldx #$1A03
     jsl $E10000
 MEND
 MACRO
&lab _InitMouse
&lab ldx #$1803
     jsl $E10000
 MEND
 MACRO
&lab _IntSource
&lab ldx #$2303
     jsl $E10000
 MEND
 MACRO
&lab _MTBootInit
&lab ldx #$0103
     jsl $E10000
 MEND
 MACRO
&lab _MTReset
&lab ldx #$0503
     jsl $E10000
 MEND
 MACRO
&lab _MTShutDown
&lab ldx #$0303
     jsl $E10000
 MEND
 MACRO
&lab _MTStartUp
&lab ldx #$0203
     jsl $E10000
 MEND
 MACRO
&lab _MTStatus
&lab ldx #$0603
     jsl $E10000
 MEND
 MACRO
&lab _MTVersion
&lab ldx #$0403
     jsl $E10000
 MEND
 MACRO
&lab _Munger
&lab ldx #$2803
     jsl $E10000
 MEND
 MACRO
&lab _PackBytes
&lab ldx #$2603
     jsl $E10000
 MEND
 MACRO
&lab _PosMouse
&lab ldx #$1E03
     jsl $E10000
 MEND
 MACRO
&lab _ReadAsciiTime
&lab ldx #$0F03
     jsl $E10000
 MEND
 MACRO
&lab _ReadBParam
&lab ldx #$0C03
     jsl $E10000
 MEND
 MACRO
&lab _ReadBRam
&lab ldx #$0A03
     jsl $E10000
 MEND
 MACRO
&lab _ReadMouse
&lab ldx #$1703
     jsl $E10000
 MEND
 MACRO
&lab _ReadMouse2
&lab ldx #$3303
     jsl $E10000
 MEND
 MACRO
&lab _ReadTimeHex
&lab ldx #$0D03
     jsl $E10000
 MEND
 MACRO
&lab _ReleaseRomResource
&lab ldx #$3603
     jsl $E10000
 MEND
 MACRO
&lab _ServeMouse
&lab ldx #$1F03
     jsl $E10000
 MEND
 MACRO
&lab _SetAbsClamp
&lab ldx #$2A03
     jsl $E10000
 MEND
 MACRO
&lab _SetHeartBeat
&lab ldx #$1203
     jsl $E10000
 MEND
 MACRO
&lab _SetInterruptState
&lab ldx #$3003
     jsl $E10000
 MEND
 MACRO
&lab _SetMouse
&lab ldx #$1903
     jsl $E10000
 MEND
 MACRO
&lab _SetVector
&lab ldx #$1003
     jsl $E10000
 MEND
 MACRO
&lab _StatusID
&lab ldx #$2203
     jsl $E10000
 MEND
 MACRO
&lab _SysBeep
&lab ldx #$2C03
     jsl $E10000
 MEND
 MACRO
&lab _SysFailMgr
&lab ldx #$1503
     jsl $E10000
 MEND
 MACRO
&lab _UnPackBytes
&lab ldx #$2703
     jsl $E10000
 MEND
 MACRO
&lab _WriteBParam
&lab ldx #$0B03
     jsl $E10000
 MEND
 MACRO
&lab _WriteBRam
&lab ldx #$0903
     jsl $E10000
 MEND
 MACRO
&lab _WriteTimeHex
&lab ldx #$0E03
     jsl $E10000
 MEND

 MACRO
&lab _SysBeep2
&lab ldx #$3803
     jsl $E10000
 MEND
 MACRO
&lab _VersionString
&lab ldx #$3903
     jsl $E10000
 MEND
 MACRO
&lab _WaitUntil
&lab ldx #$3A03
     jsl $E10000
 MEND
 MACRO
&lab _StringToText
&lab ldx #$3B03
     jsl $E10000
 MEND
 MACRO
&lab _ShowBootInfo
&lab ldx #$3C03
     jsl $E10000
 MEND
 MACRO
&lab _ScanDevices
&lab ldx #$3D03
     jsl $E10000
 MEND
; File:  M16.NoteSeq
;
;
; Copyright Apple Computer, Inc. 1986-90
; All Rights Reserved
;
;
 MACRO
&lab _ClearIncr
&lab ldx #$0A1A
     jsl $E10000
 MEND
 MACRO
&lab _GetLoc
&lab ldx #$0C1A
     jsl $E10000
 MEND
 MACRO
&lab _GetTimer
&lab ldx #$0B1A
     jsl $E10000
 MEND
 MACRO
&lab _SeqAllNotesOff
&lab ldx #$0D1A
     jsl $E10000
 MEND
 MACRO
&lab _SeqBootInit
&lab ldx #$011A
     jsl $E10000
 MEND
 MACRO
&lab _SeqReset
&lab ldx #$051A
     jsl $E10000
 MEND
 MACRO
&lab _SeqShutDown
&lab ldx #$031A
     jsl $E10000
 MEND
 MACRO
&lab _SeqStartUp
&lab ldx #$021A
     jsl $E10000
 MEND
 MACRO
&lab _SeqStatus
&lab ldx #$061A
     jsl $E10000
 MEND
 MACRO
&lab _SeqVersion
&lab ldx #$041A
     jsl $E10000
 MEND
 MACRO
&lab _SetIncr
&lab ldx #$091A
     jsl $E10000
 MEND
 MACRO
&lab _SetInstTable
&lab ldx #$121A
     jsl $E10000
 MEND
 MACRO
&lab _SetTrkInfo
&lab ldx #$0E1A
     jsl $E10000
 MEND
 MACRO
&lab _StartInts
&lab ldx #$131A
     jsl $E10000
 MEND
 MACRO
&lab _StartSeq
&lab ldx #$0F1A
     jsl $E10000
 MEND
 MACRO
&lab _StartSeqRel
&lab ldx #$151A
     jsl $E10000
 MEND
 MACRO
&lab _StepSeq
&lab ldx #$101A
     jsl $E10000
 MEND
 MACRO
&lab _StopInts
&lab ldx #$141A
     jsl $E10000
 MEND
 MACRO
&lab _StopSeq
&lab ldx #$111A
     jsl $E10000
 MEND
; File:  M16.NoteSyn
;
;
; Copyright Apple Computer, Inc. 1986-90
; All Rights Reserved
;
;
 MACRO
&lab _AllNotesOff
&lab ldx #$0D19
     jsl $E10000
 MEND
 MACRO
&lab _AllocGen
&lab ldx #$0919
     jsl $E10000
 MEND
 MACRO
&lab _DeallocGen
&lab ldx #$0A19
     jsl $E10000
 MEND
 MACRO
&lab _NoteOff
&lab ldx #$0C19
     jsl $E10000
 MEND
 MACRO
&lab _NoteOn
&lab ldx #$0B19
     jsl $E10000
 MEND
 MACRO
&lab _NSBootInit
&lab ldx #$0119
     jsl $E10000
 MEND
 MACRO
&lab _NSReset
&lab ldx #$0519
     jsl $E10000
 MEND
 MACRO
&lab _NSSetUpdateRate
&lab ldx #$0E19
     jsl $E10000
 MEND
 MACRO
&lab _NSSetUserUpdateRtn
&lab ldx #$0F19
     jsl $E10000
 MEND
 MACRO
&lab _NSShutDown
&lab ldx #$0319
     jsl $E10000
 MEND
 MACRO
&lab _NSStartUp
&lab ldx #$0219
     jsl $E10000
 MEND
 MACRO
&lab _NSStatus
&lab ldx #$0619
     jsl $E10000
 MEND
 MACRO
&lab _NSVersion
&lab ldx #$0419
     jsl $E10000
 MEND
; File:  M16.Print
;
;
; Copyright Apple Computer, Inc. 1986-90
; All Rights Reserved
;
;
 MACRO
&lab _PMBootInit
&lab ldx #$0113
     jsl $E10000
 MEND
 MACRO
&lab _PMLoadDriver
&lab ldx #$3513
     jsl $E10000
 MEND
 MACRO
&lab _PMReset
&lab ldx #$0513
     jsl $E10000
 MEND
 MACRO
&lab _PMShutDown
&lab ldx #$0313
     jsl $E10000
 MEND
 MACRO
&lab _PMStartUp
&lab ldx #$0213
     jsl $E10000
 MEND
 MACRO
&lab _PMStatus
&lab ldx #$0613
     jsl $E10000
 MEND
 MACRO
&lab _PMUnloadDriver
&lab ldx #$3413
     jsl $E10000
 MEND
 MACRO
&lab _PMVersion
&lab ldx #$0413
     jsl $E10000
 MEND
 MACRO
&lab _PrChoosePrinter
&lab ldx #$1613
     jsl $E10000
 MEND
 MACRO
&lab _PrChooser
&lab ldx #$1613
     jsl $E10000
 MEND
 MACRO
&lab _PrCloseDoc
&lab ldx #$0F13
     jsl $E10000
 MEND
 MACRO
&lab _PrClosePage
&lab ldx #$1113
     jsl $E10000
 MEND
 MACRO
&lab _PrDefault
&lab ldx #$0913
     jsl $E10000
 MEND
 MACRO
&lab _PrDriverVer
&lab ldx #$2313
     jsl $E10000
 MEND
 MACRO
&lab _PrError
&lab ldx #$1413
     jsl $E10000
 MEND
 MACRO
&lab _PrGetDocName
&lab ldx #$3613
     jsl $E10000
 MEND
 MACRO
&lab _PrGetNetworkName
&lab ldx #$2B13
     jsl $E10000
 MEND
 MACRO
&lab _PrGetPgOrientation
&lab ldx #$3813
     jsl $E10000
 MEND
 MACRO
&lab _PrGetPortDvrName
&lab ldx #$2913
     jsl $E10000
 MEND
 MACRO
&lab _PrGetPrinterDvrName
&lab ldx #$2813
     jsl $E10000
 MEND
 MACRO
&lab _PrGetPrinterSpecs
&lab ldx #$1813
     jsl $E10000
 MEND
 MACRO
&lab _PrGetUserName
&lab ldx #$2A13
     jsl $E10000
 MEND
 MACRO
&lab _PrGetZoneName
&lab ldx #$2513
     jsl $E10000
 MEND
 MACRO
&lab _PrJobDialog
&lab ldx #$0C13
     jsl $E10000
 MEND
 MACRO
&lab _PrOpenDoc
&lab ldx #$0E13
     jsl $E10000
 MEND
 MACRO
&lab _PrOpenPage
&lab ldx #$1013
     jsl $E10000
 MEND
 MACRO
&lab _PrPicFile
&lab ldx #$1213
     jsl $E10000
 MEND
 MACRO
&lab _PrPixelMap
&lab ldx #$0D13
     jsl $E10000
 MEND
 MACRO
&lab _PrPortVer
&lab ldx #$2413
     jsl $E10000
 MEND
 MACRO
&lab _PrSetDocName
&lab ldx #$3713
     jsl $E10000
 MEND
 MACRO
&lab _PrSetError
&lab ldx #$1513
     jsl $E10000
 MEND
 MACRO
&lab _PrStlDialog
&lab ldx #$0B13
     jsl $E10000
 MEND
 MACRO
&lab _PrValidate
&lab ldx #$0A13
     jsl $E10000
 MEND
; File:  M16.ProDOS
;
;
; Copyright Apple Computer, Inc. 1986-90
; All Rights Reserved
;
;
  MACRO
&lab _ALLOC_INTERRUPT &params
&lab jsl $E100A8
 DC.W $0031
 DC.L &params
  MEND
  MACRO
&lab _CHANGE_PATH &params
&lab jsl $E100A8
 DC.W $0004
 DC.L &params
  MEND
  MACRO
&lab _CLEAR_BACKUP_BIT &params
&lab jsl $E100A8
 DC.W $000B
 DC.L &params
  MEND
  MACRO
&lab _CLOSEPD &params
&lab jsl $E100A8
 DC.W $0014
 DC.L &params
  MEND
  MACRO
&lab _CLOSE &params
&lab jsl $E100A8
 DC.W $0014
 DC.L &params
  MEND
  MACRO
&lab _CREATE &params
&lab jsl $E100A8
 DC.W $0001
 DC.L &params
  MEND
  MACRO
&lab _D_INFO &params
&lab jsl $E100A8
 DC.W $002C
 DC.L &params
  MEND
  MACRO
&lab _DEALLOC_INTERRUPT &params
&lab jsl $E100A8
 DC.W $0032
 DC.L &params
  MEND
  MACRO
&lab _DESTROY &params
&lab jsl $E100A8
 DC.W $0002
 DC.L &params
  MEND
  MACRO
&lab _ERASE_DISK &params
&lab jsl $E100A8
 DC.W $0025
 DC.L &params
  MEND
  MACRO
&lab _FLUSH &params
&lab jsl $E100A8
 DC.W $0015
 DC.L &params
  MEND
  MACRO
&lab _FORMAT &params
&lab jsl $E100A8
 DC.W $0024
 DC.L &params
  MEND
  MACRO
&lab _GET_BOOT_VOL &params
&lab jsl $E100A8
 DC.W $0028
 DC.L &params
  MEND
  MACRO
&lab _GET_DEV_NUM &params
&lab jsl $E100A8
 DC.W $0020
 DC.L &params
  MEND
  MACRO
&lab _GET_DIR_ENTRY &params
&lab jsl $E100A8
 DC.W $001C
 DC.L &params
  MEND
  MACRO
&lab _GET_EOF &params
&lab jsl $E100A8
 DC.W $0019
 DC.L &params
  MEND
  MACRO
&lab _GET_FILE_INFO &params
&lab jsl $E100A8
 DC.W $0006
 DC.L &params
  MEND
  MACRO
&lab _GET_LAST_DEV &params
&lab jsl $E100A8
 DC.W $0021
 DC.L &params
  MEND
  MACRO
&lab _GET_LEVEL &params
&lab jsl $E100A8
 DC.W $001B
 DC.L &params
  MEND
  MACRO
&lab _GET_MARK &params
&lab jsl $E100A8
 DC.W $0017
 DC.L &params
  MEND
  MACRO
&lab _GET_NAME &params
&lab jsl $E100A8
 DC.W $0027
 DC.L &params
  MEND
  MACRO
&lab _GET_PREFIX &params
&lab jsl $E100A8
 DC.W $000A
 DC.L &params
  MEND
  MACRO
&lab _GET_VERSION &params
&lab jsl $E100A8
 DC.W $002A
 DC.L &params
  MEND
  MACRO
&lab _NEWLINE &params
&lab jsl $E100A8
 DC.W $0011
 DC.L &params
  MEND
  MACRO
&lab _OPENPD &params
&lab jsl $E100A8
 DC.W $0010
 DC.L &params
  MEND
  MACRO
&lab _OPEN &params
&lab jsl $E100A8
 DC.W $0010
 DC.L &params
  MEND
  MACRO
&lab _QUIT &params
&lab jsl $E100A8
 DC.W $0029
 DC.L &params
  MEND
  MACRO
&lab _READ_BLOCK &params
&lab jsl $E100A8
 DC.W $0022
 DC.L &params
  MEND
  MACRO
&lab _READPD &params
&lab jsl $E100A8
 DC.W $0012
 DC.L &params
  MEND
  MACRO
&lab _READ &params
&lab jsl $E100A8
 DC.W $0012
 DC.L &params
  MEND
  MACRO
&lab _SET_EOF &params
&lab jsl $E100A8
 DC.W $0018
 DC.L &params
  MEND
  MACRO
&lab _SET_FILE_INFO &params
&lab jsl $E100A8
 DC.W $0005
 DC.L &params
  MEND
  MACRO
&lab _SET_LEVEL &params
&lab jsl $E100A8
 DC.W $001A
 DC.L &params
  MEND
  MACRO
&lab _SET_MARK &params
&lab jsl $E100A8
 DC.W $0016
 DC.L &params
  MEND
  MACRO
&lab _SET_PREFIX &params
&lab jsl $E100A8
 DC.W $0009
 DC.L &params
  MEND
  MACRO
&lab _VOLUME &params
&lab jsl $E100A8
 DC.W $0008
 DC.L &params
  MEND
  MACRO
&lab _WRITE_BLOCK &params
&lab jsl $E100A8
 DC.W $0023
 DC.L &params
  MEND
  MACRO
&lab _WRITEPD &params
&lab jsl $E100A8
 DC.W $0013
 DC.L &params
  MEND
  MACRO
&lab _WRITE &params
&lab jsl $E100A8
 DC.W $0013
 DC.L &params
  MEND
; File:  M16.QDAux
;
;
; Copyright Apple Computer, Inc. 1986-91
; All Rights Reserved
;
;
 MACRO
&lab _CalcMask
&lab ldx #$0E12
     jsl $E10000
 MEND
 MACRO
&lab _ClosePicture
&lab ldx #$B904
     jsl $E10000
 MEND
 MACRO
&lab _CopyPixels
&lab ldx #$0912
     jsl $E10000
 MEND
 MACRO
&lab _DrawIcon
&lab ldx #$0B12
     jsl $E10000
 MEND
 MACRO
&lab _DrawPicture
&lab ldx #$BA04
     jsl $E10000
 MEND
 MACRO
&lab _KillPicture
&lab ldx #$BB04
     jsl $E10000
 MEND
 MACRO
&lab _OpenPicture
&lab ldx #$B704
     jsl $E10000
 MEND
 MACRO
&lab _PicComment
&lab ldx #$B804
     jsl $E10000
 MEND
 MACRO
&lab _QDAuxBootInit
&lab ldx #$0112
     jsl $E10000
 MEND
 MACRO
&lab _QDAuxReset
&lab ldx #$0512
     jsl $E10000
 MEND
 MACRO
&lab _QDAuxShutDown
&lab ldx #$0312
     jsl $E10000
 MEND
 MACRO
&lab _QDAuxStartUp
&lab ldx #$0212
     jsl $E10000
 MEND
 MACRO
&lab _QDAuxStatus
&lab ldx #$0612
     jsl $E10000
 MEND
 MACRO
&lab _QDAuxVersion
&lab ldx #$0412
     jsl $E10000
 MEND
 MACRO
&lab _SeedFill
&lab ldx #$0D12
     jsl $E10000
 MEND
 MACRO
&lab _SpecialRect
&lab ldx #$0C12
     jsl $E10000
 MEND
 MACRO
&lab _WaitCursor
&lab ldx #$0A12
     jsl $E10000
 MEND

 MACRO
&lab _GetSysIcon
&lab ldx #$0F12
     jsl $E10000
 MEND
 MACRO
&lab _PixelMap2Rgn
&lab ldx #$1012
     jsl $E10000
 MEND
 MACRO
&lab _IBeamCursor
&lab ldx #$1312
     jsl $E10000
 MEND
 MACRO
&lab _WhooshRect
&lab ldx #$1412
     jsl $E10000
 MEND
; File:  M16.Quickdraw
;
;
; Copyright Apple Computer, Inc. 1986-91
; All Rights Reserved
;
;
 MACRO
&lab _AddPt
&lab ldx #$8004
     jsl $E10000
 MEND
 MACRO
&lab _CStringBounds
&lab ldx #$AE04
     jsl $E10000
 MEND
 MACRO
&lab _CStringWidth
&lab ldx #$AA04
     jsl $E10000
 MEND
 MACRO
&lab _CharBounds
&lab ldx #$AC04
     jsl $E10000
 MEND
 MACRO
&lab _CharWidth
&lab ldx #$A804
     jsl $E10000
 MEND
 MACRO
&lab _ClearScreen
&lab ldx #$1504
     jsl $E10000
 MEND
 MACRO
&lab _ClipRect
&lab ldx #$2604
     jsl $E10000
 MEND
 MACRO
&lab _ClosePoly
&lab ldx #$C204
     jsl $E10000
 MEND
 MACRO
&lab _ClosePort
&lab ldx #$1A04
     jsl $E10000
 MEND
 MACRO
&lab _CloseRgn
&lab ldx #$6E04
     jsl $E10000
 MEND
 MACRO
&lab _CopyRgn
&lab ldx #$6904
     jsl $E10000
 MEND
 MACRO
&lab _DiffRgn
&lab ldx #$7304
     jsl $E10000
 MEND
 MACRO
&lab _DisposeRgn
&lab ldx #$6804
     jsl $E10000
 MEND
 MACRO
&lab _DrawCString
&lab ldx #$A604
     jsl $E10000
 MEND
 MACRO
&lab _DrawChar
&lab ldx #$A404
     jsl $E10000
 MEND
 MACRO
&lab _DrawString
&lab ldx #$A504
     jsl $E10000
 MEND
 MACRO
&lab _DrawText
&lab ldx #$A704
     jsl $E10000
 MEND
 MACRO
&lab _EmptyRgn
&lab ldx #$7804
     jsl $E10000
 MEND
 MACRO
&lab _EqualPt
&lab ldx #$8304
     jsl $E10000
 MEND
 MACRO
&lab _EqualRect
&lab ldx #$5104
     jsl $E10000
 MEND
 MACRO
&lab _EqualRgn
&lab ldx #$7704
     jsl $E10000
 MEND
 MACRO
&lab _EraseArc
&lab ldx #$6404
     jsl $E10000
 MEND
 MACRO
&lab _EraseOval
&lab ldx #$5A04
     jsl $E10000
 MEND
 MACRO
&lab _ErasePoly
&lab ldx #$BE04
     jsl $E10000
 MEND
 MACRO
&lab _EraseRRect
&lab ldx #$5F04
     jsl $E10000
 MEND
 MACRO
&lab _EraseRect
&lab ldx #$5504
     jsl $E10000
 MEND
 MACRO
&lab _EraseRgn
&lab ldx #$7B04
     jsl $E10000
 MEND
 MACRO
&lab _FillArc
&lab ldx #$6604
     jsl $E10000
 MEND
 MACRO
&lab _FillOval
&lab ldx #$5C04
     jsl $E10000
 MEND
 MACRO
&lab _FillPoly
&lab ldx #$C004
     jsl $E10000
 MEND
 MACRO
&lab _FillRRect
&lab ldx #$6104
     jsl $E10000
 MEND
 MACRO
&lab _FillRect
&lab ldx #$5704
     jsl $E10000
 MEND
 MACRO
&lab _FillRgn
&lab ldx #$7D04
     jsl $E10000
 MEND
 MACRO
&lab _ForceBufDims
&lab ldx #$CC04
     jsl $E10000
 MEND
 MACRO
&lab _FrameArc
&lab ldx #$6204
     jsl $E10000
 MEND
 MACRO
&lab _FrameOval
&lab ldx #$5804
     jsl $E10000
 MEND
 MACRO
&lab _FramePoly
&lab ldx #$BC04
     jsl $E10000
 MEND
 MACRO
&lab _FrameRRect
&lab ldx #$5D04
     jsl $E10000
 MEND
 MACRO
&lab _FrameRect
&lab ldx #$5304
     jsl $E10000
 MEND
 MACRO
&lab _FrameRgn
&lab ldx #$7904
     jsl $E10000
 MEND
 MACRO
&lab _GetAddress
&lab ldx #$0904
     jsl $E10000
 MEND
 MACRO
&lab _GetArcRot
&lab ldx #$B104
     jsl $E10000
 MEND
 MACRO
&lab _GetBackColor
&lab ldx #$A304
     jsl $E10000
 MEND
 MACRO
&lab _GetBackPat
&lab ldx #$3504
     jsl $E10000
 MEND
 MACRO
&lab _GetCharExtra
&lab ldx #$D504
     jsl $E10000
 MEND
 MACRO
&lab _GetClip
&lab ldx #$2504
     jsl $E10000
 MEND
 MACRO
&lab _GetClipHandle
&lab ldx #$C704
     jsl $E10000
 MEND
 MACRO
&lab _GetColorEntry
&lab ldx #$1104
     jsl $E10000
 MEND
 MACRO
&lab _GetColorTable
&lab ldx #$0F04
     jsl $E10000
 MEND
 MACRO
&lab _GetCursorAdr
&lab ldx #$8F04
     jsl $E10000
 MEND
 MACRO
&lab _GetFGSize
&lab ldx #$CF04
     jsl $E10000
 MEND
 MACRO
&lab _GetFont
&lab ldx #$9504
     jsl $E10000
 MEND
 MACRO
&lab _GetFontFlags
&lab ldx #$9904
     jsl $E10000
 MEND
 MACRO
&lab _GetFontGlobals
&lab ldx #$9704
     jsl $E10000
 MEND
 MACRO
&lab _GetFontID
&lab ldx #$D104
     jsl $E10000
 MEND
 MACRO
&lab _GetFontInfo
&lab ldx #$9604
     jsl $E10000
 MEND
 MACRO
&lab _GetFontLore
&lab ldx #$D904
     jsl $E10000
 MEND
 MACRO
&lab _GetForeColor
&lab ldx #$A104
     jsl $E10000
 MEND
 MACRO
&lab _GetGrafProcs
&lab ldx #$4504
     jsl $E10000
 MEND
 MACRO
&lab _GetMasterSCB
&lab ldx #$1704
     jsl $E10000
 MEND
 MACRO
&lab _GetPen
&lab ldx #$2904
     jsl $E10000
 MEND
 MACRO
&lab _GetPenMask
&lab ldx #$3304
     jsl $E10000
 MEND
 MACRO
&lab _GetPenMode
&lab ldx #$2F04
     jsl $E10000
 MEND
 MACRO
&lab _GetPenPat
&lab ldx #$3104
     jsl $E10000
 MEND
 MACRO
&lab _GetPenSize
&lab ldx #$2D04
     jsl $E10000
 MEND
 MACRO
&lab _GetPenState
&lab ldx #$2B04
     jsl $E10000
 MEND
 MACRO
&lab _GetPicSave
&lab ldx #$3F04
     jsl $E10000
 MEND
 MACRO
&lab _GetPixel
&lab ldx #$8804
     jsl $E10000
 MEND
 MACRO
&lab _GetPolySave
&lab ldx #$4304
     jsl $E10000
 MEND
 MACRO
&lab _GetPort
&lab ldx #$1C04
     jsl $E10000
 MEND
 MACRO
&lab _GetPortLoc
&lab ldx #$1E04
     jsl $E10000
 MEND
 MACRO
&lab _GetPortRect
&lab ldx #$2004
     jsl $E10000
 MEND
 MACRO
&lab _GetROMFont
&lab ldx #$D804
     jsl $E10000
 MEND
 MACRO
&lab _GetRgnSave
&lab ldx #$4104
     jsl $E10000
 MEND
 MACRO
&lab _GetSCB
&lab ldx #$1304
     jsl $E10000
 MEND
 MACRO
&lab _GetSpaceExtra
&lab ldx #$9F04
     jsl $E10000
 MEND
 MACRO
&lab _GetStandardSCB
&lab ldx #$0C04
     jsl $E10000
 MEND
 MACRO
&lab _GetSysField
&lab ldx #$4904
     jsl $E10000
 MEND
 MACRO
&lab _GetSysFont
&lab ldx #$B304
     jsl $E10000
 MEND
 MACRO
&lab _GetTextFace
&lab ldx #$9B04
     jsl $E10000
 MEND
 MACRO
&lab _GetTextMode
&lab ldx #$9D04
     jsl $E10000
 MEND
 MACRO
&lab _GetTextSize
&lab ldx #$D304
     jsl $E10000
 MEND
 MACRO
&lab _GetUserField
&lab ldx #$4704
     jsl $E10000
 MEND
 MACRO
&lab _GetVisHandle
&lab ldx #$C904
     jsl $E10000
 MEND
 MACRO
&lab _GetVisRgn
&lab ldx #$B504
     jsl $E10000
 MEND
 MACRO
&lab _GlobalToLocal
&lab ldx #$8504
     jsl $E10000
 MEND
 MACRO
&lab _GrafOff
&lab ldx #$0B04
     jsl $E10000
 MEND
 MACRO
&lab _GrafOn
&lab ldx #$0A04
     jsl $E10000
 MEND
 MACRO
&lab _HideCursor
&lab ldx #$9004
     jsl $E10000
 MEND
 MACRO
&lab _HidePen
&lab ldx #$2704
     jsl $E10000
 MEND
 MACRO
&lab _InflateTextBuffer
&lab ldx #$D704
     jsl $E10000
 MEND
 MACRO
&lab _InitColorTable
&lab ldx #$0D04
     jsl $E10000
 MEND
 MACRO
&lab _InitCursor
&lab ldx #$CA04
     jsl $E10000
 MEND
 MACRO
&lab _InitPort
&lab ldx #$1904
     jsl $E10000
 MEND
 MACRO
&lab _InsetRect
&lab ldx #$4C04
     jsl $E10000
 MEND
 MACRO
&lab _InsetRgn
&lab ldx #$7004
     jsl $E10000
 MEND
 MACRO
&lab _InvertArc
&lab ldx #$6504
     jsl $E10000
 MEND
 MACRO
&lab _InvertOval
&lab ldx #$5B04
     jsl $E10000
 MEND
 MACRO
&lab _InvertPoly
&lab ldx #$BF04
     jsl $E10000
 MEND
 MACRO
&lab _InvertRRect
&lab ldx #$6004
     jsl $E10000
 MEND
 MACRO
&lab _InvertRect
&lab ldx #$5604
     jsl $E10000
 MEND
 MACRO
&lab _InvertRgn
&lab ldx #$7C04
     jsl $E10000
 MEND
 MACRO
&lab _KillPoly
&lab ldx #$C304
     jsl $E10000
 MEND
 MACRO
&lab _Line
&lab ldx #$3D04
     jsl $E10000
 MEND
 MACRO
&lab _LineTo
&lab ldx #$3C04
     jsl $E10000
 MEND
 MACRO
&lab _LocalToGlobal
&lab ldx #$8404
     jsl $E10000
 MEND
 MACRO
&lab _MapPoly
&lab ldx #$C504
     jsl $E10000
 MEND
 MACRO
&lab _MapPt
&lab ldx #$8A04
     jsl $E10000
 MEND
 MACRO
&lab _MapRect
&lab ldx #$8B04
     jsl $E10000
 MEND
 MACRO
&lab _MapRgn
&lab ldx #$8C04
     jsl $E10000
 MEND
 MACRO
&lab _Move
&lab ldx #$3B04
     jsl $E10000
 MEND
 MACRO
&lab _MovePortTo
&lab ldx #$2204
     jsl $E10000
 MEND
 MACRO
&lab _MoveTo
&lab ldx #$3A04
     jsl $E10000
 MEND
 MACRO
&lab _NewRgn
&lab ldx #$6704
     jsl $E10000
 MEND
 MACRO
&lab _NotEmptyRect
&lab ldx #$5204
     jsl $E10000
 MEND
 MACRO
&lab _ObscureCursor
&lab ldx #$9204
     jsl $E10000
 MEND
 MACRO
&lab _OffsetPoly
&lab ldx #$C404
     jsl $E10000
 MEND
 MACRO
&lab _OffsetRect
&lab ldx #$4B04
     jsl $E10000
 MEND
 MACRO
&lab _OffsetRgn
&lab ldx #$6F04
     jsl $E10000
 MEND
 MACRO
&lab _OpenPoly
&lab ldx #$C104
     jsl $E10000
 MEND
 MACRO
&lab _OpenPort
&lab ldx #$1804
     jsl $E10000
 MEND
 MACRO
&lab _OpenRgn
&lab ldx #$6D04
     jsl $E10000
 MEND
 MACRO
&lab _PPToPort
&lab ldx #$D604
     jsl $E10000
 MEND
 MACRO
&lab _PaintArc
&lab ldx #$6304
     jsl $E10000
 MEND
 MACRO
&lab _PaintOval
&lab ldx #$5904
     jsl $E10000
 MEND
 MACRO
&lab _PaintPixels
&lab ldx #$7F04
     jsl $E10000
 MEND
 MACRO
&lab _PaintPoly
&lab ldx #$BD04
     jsl $E10000
 MEND
 MACRO
&lab _PaintRRect
&lab ldx #$5E04
     jsl $E10000
 MEND
 MACRO
&lab _PaintRect
&lab ldx #$5404
     jsl $E10000
 MEND
 MACRO
&lab _PaintRgn
&lab ldx #$7A04
     jsl $E10000
 MEND
 MACRO
&lab _PenNormal
&lab ldx #$3604
     jsl $E10000
 MEND
 MACRO
&lab _Pt2Rect
&lab ldx #$5004
     jsl $E10000
 MEND
 MACRO
&lab _PtInRect
&lab ldx #$4F04
     jsl $E10000
 MEND
 MACRO
&lab _PtInRgn
&lab ldx #$7504
     jsl $E10000
 MEND
 MACRO
&lab _QDBootInit
&lab ldx #$0104
     jsl $E10000
 MEND
 MACRO
&lab _QDReset
&lab ldx #$0504
     jsl $E10000
 MEND
 MACRO
&lab _QDShutDown
&lab ldx #$0304
     jsl $E10000
 MEND
 MACRO
&lab _QDStartUp
&lab ldx #$0204
     jsl $E10000
 MEND
 MACRO
&lab _QDStatus
&lab ldx #$0604
     jsl $E10000
 MEND
 MACRO
&lab _QDVersion
&lab ldx #$0404
     jsl $E10000
 MEND
 MACRO
&lab _Random
&lab ldx #$8604
     jsl $E10000
 MEND
 MACRO
&lab _RectInRgn
&lab ldx #$7604
     jsl $E10000
 MEND
 MACRO
&lab _RectRgn
&lab ldx #$6C04
     jsl $E10000
 MEND
 MACRO
&lab _RestoreBufDims
&lab ldx #$CE04
     jsl $E10000
 MEND
 MACRO
&lab _SaveBufDims
&lab ldx #$CD04
     jsl $E10000
 MEND
 MACRO
&lab _ScalePt
&lab ldx #$8904
     jsl $E10000
 MEND
 MACRO
&lab _ScrollRect
&lab ldx #$7E04
     jsl $E10000
 MEND
 MACRO
&lab _SectRect
&lab ldx #$4D04
     jsl $E10000
 MEND
 MACRO
&lab _SectRgn
&lab ldx #$7104
     jsl $E10000
 MEND
 MACRO
&lab _SetAllSCBs
&lab ldx #$1404
     jsl $E10000
 MEND
 MACRO
&lab _SetArcRot
&lab ldx #$B004
     jsl $E10000
 MEND
 MACRO
&lab _SetBackColor
&lab ldx #$A204
     jsl $E10000
 MEND
 MACRO
&lab _SetBackPat
&lab ldx #$3404
     jsl $E10000
 MEND
 MACRO
&lab _SetBufDims
&lab ldx #$CB04
     jsl $E10000
 MEND
 MACRO
&lab _SetCharExtra
&lab ldx #$D404
     jsl $E10000
 MEND
 MACRO
&lab _SetClip
&lab ldx #$2404
     jsl $E10000
 MEND
 MACRO
&lab _SetClipHandle
&lab ldx #$C604
     jsl $E10000
 MEND
 MACRO
&lab _SetColorEntry
&lab ldx #$1004
     jsl $E10000
 MEND
 MACRO
&lab _SetColorTable
&lab ldx #$0E04
     jsl $E10000
 MEND
 MACRO
&lab _SetCursor
&lab ldx #$8E04
     jsl $E10000
 MEND
 MACRO
&lab _SetEmptyRgn
&lab ldx #$6A04
     jsl $E10000
 MEND
 MACRO
&lab _SetFont
&lab ldx #$9404
     jsl $E10000
 MEND
 MACRO
&lab _SetFontFlags
&lab ldx #$9804
     jsl $E10000
 MEND
 MACRO
&lab _SetFontID
&lab ldx #$D004
     jsl $E10000
 MEND
 MACRO
&lab _SetForeColor
&lab ldx #$A004
     jsl $E10000
 MEND
 MACRO
&lab _SetGrafProcs
&lab ldx #$4404
     jsl $E10000
 MEND
 MACRO
&lab _SetIntUse
&lab ldx #$B604
     jsl $E10000
 MEND
 MACRO
&lab _SetMasterSCB
&lab ldx #$1604
     jsl $E10000
 MEND
 MACRO
&lab _SetOrigin
&lab ldx #$2304
     jsl $E10000
 MEND
 MACRO
&lab _SetPenMask
&lab ldx #$3204
     jsl $E10000
 MEND
 MACRO
&lab _SetPenMode
&lab ldx #$2E04
     jsl $E10000
 MEND
 MACRO
&lab _SetPenPat
&lab ldx #$3004
     jsl $E10000
 MEND
 MACRO
&lab _SetPenSize
&lab ldx #$2C04
     jsl $E10000
 MEND
 MACRO
&lab _SetPenState
&lab ldx #$2A04
     jsl $E10000
 MEND
 MACRO
&lab _SetPicSave
&lab ldx #$3E04
     jsl $E10000
 MEND
 MACRO
&lab _SetPolySave
&lab ldx #$4204
     jsl $E10000
 MEND
 MACRO
&lab _SetPort
&lab ldx #$1B04
     jsl $E10000
 MEND
 MACRO
&lab _SetPortLoc
&lab ldx #$1D04
     jsl $E10000
 MEND
 MACRO
&lab _SetPortRect
&lab ldx #$1F04
     jsl $E10000
 MEND
 MACRO
&lab _SetPortSize
&lab ldx #$2104
     jsl $E10000
 MEND
 MACRO
&lab _SetPt
&lab ldx #$8204
     jsl $E10000
 MEND
 MACRO
&lab _SetRandSeed
&lab ldx #$8704
     jsl $E10000
 MEND
 MACRO
&lab _SetRect
&lab ldx #$4A04
     jsl $E10000
 MEND
 MACRO
&lab _SetRectRgn
&lab ldx #$6B04
     jsl $E10000
 MEND
 MACRO
&lab _SetRgnSave
&lab ldx #$4004
     jsl $E10000
 MEND
 MACRO
&lab _SetSCB
&lab ldx #$1204
     jsl $E10000
 MEND
 MACRO
&lab _SetSolidBackPat
&lab ldx #$3804
     jsl $E10000
 MEND
 MACRO
&lab _SetSolidPenPat
&lab ldx #$3704
     jsl $E10000
 MEND
 MACRO
&lab _SetSpaceExtra
&lab ldx #$9E04
     jsl $E10000
 MEND
 MACRO
&lab _SetStdProcs
&lab ldx #$8D04
     jsl $E10000
 MEND
 MACRO
&lab _SetSysField
&lab ldx #$4804
     jsl $E10000
 MEND
 MACRO
&lab _SetSysFont
&lab ldx #$B204
     jsl $E10000
 MEND
 MACRO
&lab _SetTextFace
&lab ldx #$9A04
     jsl $E10000
 MEND
 MACRO
&lab _SetTextMode
&lab ldx #$9C04
     jsl $E10000
 MEND
 MACRO
&lab _SetTextSize
&lab ldx #$D204
     jsl $E10000
 MEND
 MACRO
&lab _SetUserField
&lab ldx #$4604
     jsl $E10000
 MEND
 MACRO
&lab _SetVisHandle
&lab ldx #$C804
     jsl $E10000
 MEND
 MACRO
&lab _SetVisRgn
&lab ldx #$B404
     jsl $E10000
 MEND
 MACRO
&lab _ShowCursor
&lab ldx #$9104
     jsl $E10000
 MEND
 MACRO
&lab _ShowPen
&lab ldx #$2804
     jsl $E10000
 MEND
 MACRO
&lab _SolidPattern
&lab ldx #$3904
     jsl $E10000
 MEND
 MACRO
&lab _StringBounds
&lab ldx #$AD04
     jsl $E10000
 MEND
 MACRO
&lab _StringWidth
&lab ldx #$A904
     jsl $E10000
 MEND
 MACRO
&lab _SubPt
&lab ldx #$8104
     jsl $E10000
 MEND
 MACRO
&lab _TextBounds
&lab ldx #$AF04
     jsl $E10000
 MEND
 MACRO
&lab _TextWidth
&lab ldx #$AB04
     jsl $E10000
 MEND
 MACRO
&lab _UnionRect
&lab ldx #$4E04
     jsl $E10000
 MEND
 MACRO
&lab _UnionRgn
&lab ldx #$7204
     jsl $E10000
 MEND
 MACRO
&lab _XorRgn
&lab ldx #$7404
     jsl $E10000
 MEND

 MACRO
&lab _Get640Colors
&lab ldx #$DA04
     jsl $E10000
 MEND
 MACRO
&lab _Set640Color
&lab ldx #$DB04
     jsl $E10000
 MEND
; File:  M16.Resources
;
;
; Copyright Apple Computer, Inc. 1986-91
; All Rights Reserved
;
;
 MACRO
&lab _AddResource
&lab ldx #$0C1E
     jsl $E10000
 MEND
 MACRO
&lab _CloseResourceFile
&lab ldx #$0B1E
     jsl $E10000
 MEND
 MACRO
&lab _CountResources
&lab ldx #$221E
     jsl $E10000
 MEND
 MACRO
&lab _CountTypes
&lab ldx #$201E
     jsl $E10000
 MEND
 MACRO
&lab _CreateResourceFile
&lab ldx #$091E
     jsl $E10000
 MEND
 MACRO
&lab _DetachResource
&lab ldx #$181E
     jsl $E10000
 MEND
 MACRO
&lab _GetCurResourceApp
&lab ldx #$141E
     jsl $E10000
 MEND
 MACRO
&lab _GetCurResourceFile
&lab ldx #$121E
     jsl $E10000
 MEND
 MACRO
&lab _GetIndResource
&lab ldx #$231E
     jsl $E10000
 MEND
 MACRO
&lab _GetIndType
&lab ldx #$211E
     jsl $E10000
 MEND
 MACRO
&lab _GetMapHandle
&lab ldx #$261E
     jsl $E10000
 MEND
 MACRO
&lab _GetOpenFileRefNum
&lab ldx #$1F1E
     jsl $E10000
 MEND
 MACRO
&lab _GetResourceAttr
&lab ldx #$1B1E
     jsl $E10000
 MEND
 MACRO
&lab _GetResourceSize
&lab ldx #$1D1E
     jsl $E10000
 MEND
 MACRO
&lab _HomeResourceFile
&lab ldx #$151E
     jsl $E10000
 MEND
 MACRO
&lab _LoadAbsResource
&lab ldx #$271E
     jsl $E10000
 MEND
 MACRO
&lab _LoadResource
&lab ldx #$0E1E
     jsl $E10000
 MEND
 MACRO
&lab _MarkResourceChange
&lab ldx #$101E
     jsl $E10000
 MEND
 MACRO
&lab _MatchResourceHandle
&lab ldx #$1E1E
     jsl $E10000
 MEND
 MACRO
&lab _OpenResourceFile
&lab ldx #$0A1E
     jsl $E10000
 MEND
 MACRO
&lab _ReleaseResource
&lab ldx #$171E
     jsl $E10000
 MEND
 MACRO
&lab _RemoveResource
&lab ldx #$0F1E
     jsl $E10000
 MEND
 MACRO
&lab _ResourceBootInit
&lab ldx #$011E
     jsl $E10000
 MEND
 MACRO
&lab _ResourceConverter
&lab ldx #$281E
     jsl $E10000
 MEND
 MACRO
&lab _ResourceReset
&lab ldx #$051E
     jsl $E10000
 MEND
 MACRO
&lab _ResourceShutDown
&lab ldx #$031E
     jsl $E10000
 MEND
 MACRO
&lab _ResourceStartUp
&lab ldx #$021E
     jsl $E10000
 MEND
 MACRO
&lab _ResourceStatus
&lab ldx #$061E
     jsl $E10000
 MEND
 MACRO
&lab _ResourceVersion
&lab ldx #$041E
     jsl $E10000
 MEND
 MACRO
&lab _SetCurResourceApp
&lab ldx #$131E
     jsl $E10000
 MEND
 MACRO
&lab _SetCurResourceFile
&lab ldx #$111E
     jsl $E10000
 MEND
 MACRO
&lab _SetResourceAttr
&lab ldx #$1C1E
     jsl $E10000
 MEND
 MACRO
&lab _SetResourceFileDepth
&lab ldx #$251E
     jsl $E10000
 MEND
 MACRO
&lab _SetResourceID
&lab ldx #$1A1E
     jsl $E10000
 MEND
 MACRO
&lab _SetResourceLoad
&lab ldx #$241E
     jsl $E10000
 MEND
 MACRO
&lab _UniqueResourceID
&lab ldx #$191E
     jsl $E10000
 MEND
 MACRO
&lab _UpdateResourceFile
&lab ldx #$0D1E
     jsl $E10000
 MEND
 MACRO
&lab _WriteResource
&lab ldx #$161E
     jsl $E10000
 MEND

 MACRO
&lab _LoadResource2
&lab ldx #$291E
     jsl $E10000
 MEND
 MACRO
&lab _RMFindNamedResource
&lab ldx #$2A1E
     jsl $E10000
 MEND
 MACRO
&lab _RMGetResourceName
&lab ldx #$2B1E
     jsl $E10000
 MEND
 MACRO
&lab _RMLoadNamedResource
&lab ldx #$2C1E
     jsl $E10000
 MEND
 MACRO
&lab _RMSetResourceName
&lab ldx #$2D1E
     jsl $E10000
 MEND
; File:  M16.SANE
;
;
; Copyright Apple Computer, Inc. 1986-90
; All Rights Reserved
;
;
 MACRO
&lab _SANEBootInit
&lab ldx #$010A
     jsl $E10000
 MEND
 MACRO
&lab _SANEStartUp
&lab ldx #$020A
     jsl $E10000
 MEND
 MACRO
&lab _SANEShutDown
&lab ldx #$030A
     jsl $E10000
 MEND
 MACRO
&lab _SANEVersion
&lab ldx #$040A
     jsl $E10000
 MEND
 MACRO
&lab _SANEReset
&lab ldx #$050A
     jsl $E10000
 MEND
 MACRO
&lab _SANEStatus
&lab ldx #$060A
     jsl $E10000
 MEND
 MACRO
&lab _SANEFP816
&lab ldx #$090A
     jsl $E10000
 MEND
 MACRO
&lab _SANEDecStr816
&lab ldx #$0A0A
     jsl $E10000
 MEND
 MACRO
&lab _SANEElems816
&lab ldx #$0B0A
     jsl $E10000
 MEND
;-----------------------------------------------------------
; Addition.
;-----------------------------------------------------------
        MACRO
&lab    FADDX
&lab    FOPRF   FFEXT+FOADD
        MEND

        MACRO
&lab    FADDD
&lab    FOPRF   FFDBL+FOADD
        MEND

        MACRO
&lab    FADDS
&lab    FOPRF   FFSGL+FOADD
        MEND

        MACRO
&lab    FADDC
&lab    FOPRF   FFCOMP+FOADD
        MEND

        MACRO
&lab    FADDI
&lab    FOPRF   FFINT+FOADD
        MEND

        MACRO
&lab    FADDL
&lab    FOPRF   FFLNG+FOADD
        MEND

;-----------------------------------------------------------
; Subtraction.
;-----------------------------------------------------------
        MACRO
&lab    FSUBX
&lab    FOPRF   FFEXT+FOSUB
        MEND

        MACRO
&lab    FSUBD
&lab    FOPRF   FFDBL+FOSUB
        MEND

        MACRO
&lab    FSUBS
&lab    FOPRF   FFSGL+FOSUB
        MEND

        MACRO
&lab    FSUBC
&lab    FOPRF   FFCOMP+FOSUB
        MEND

        MACRO
&lab    FSUBI
&lab    FOPRF   FFINT+FOSUB
        MEND

        MACRO
&lab    FSUBL
&lab    FOPRF   FFLNG+FOSUB
        MEND

;-----------------------------------------------------------
; Multiplication.
;-----------------------------------------------------------
        MACRO
&lab    FMULX
&lab    FOPRF   FFEXT+FOMUL
        MEND

        MACRO
&lab    FMULD
&lab    FOPRF   FFDBL+FOMUL
        MEND

        MACRO
&lab    FMULS
&lab    FOPRF   FFSGL+FOMUL
        MEND

        MACRO
&lab    FMULC
&lab    FOPRF   FFCOMP+FOMUL
        MEND

        MACRO
&lab    FMULI
&lab    FOPRF   FFINT+FOMUL
        MEND

        MACRO
&lab    FMULL
&lab    FOPRF   FFLNG+FOMUL
        MEND

;-----------------------------------------------------------
; Division.
;-----------------------------------------------------------
        MACRO
&lab    FDIVX
&lab    FOPRF   FFEXT+FODIV
        MEND

        MACRO
&lab    FDIVD
&lab    FOPRF   FFDBL+FODIV
        MEND

        MACRO
&lab    FDIVS
&lab    FOPRF   FFSGL+FODIV
        MEND

        MACRO
&lab    FDIVC
&lab    FOPRF   FFCOMP+FODIV
        MEND

        MACRO
&lab    FDIVI
&lab    FOPRF   FFINT+FODIV
        MEND

        MACRO
&lab    FDIVL
&lab    FOPRF   FFLNG+FODIV
        MEND

;-----------------------------------------------------------
; Square root.
;-----------------------------------------------------------
        MACRO
&lab    FSQRTX
&lab    FOPRF  FOSQRT
        MEND

;-----------------------------------------------------------
; Round to integer, according to the current rounding mode.
;-----------------------------------------------------------
        MACRO
&lab    FRINTX
&lab    FOPRF  FORTI
        MEND

;-----------------------------------------------------------
; Truncate to integer, using round toward zero.
;-----------------------------------------------------------
        MACRO
&lab    FTINTX
&lab    FOPRF   FOTTI
        MEND

;-----------------------------------------------------------
; Remainder.  
;-----------------------------------------------------------
        MACRO
&lab    FREMX
&lab    FOPRF   FFEXT+FOREM
        MEND

        MACRO
&lab    FREMD
&lab    FOPRF   FFDBL+FOREM
        MEND

        MACRO
&lab    FREMS
&lab    FOPRF   FFSGL+FOREM
        MEND

        MACRO
&lab    FREMC
&lab    FOPRF   FFCOMP+FOREM
        MEND

        MACRO
&lab    FREMI
&lab    FOPRF   FFINT+FOREM
        MEND

        MACRO
&lab    FREML
&lab    FOPRF   FFLNG+FOREM
        MEND

;-----------------------------------------------------------
; Logb. 
;-----------------------------------------------------------
        MACRO
&lab    FLOGBX
&lab    FOPRF   FOLOGB
        MEND

;-----------------------------------------------------------
; Scalb.  
;-----------------------------------------------------------
        MACRO
&lab    FSCALBX
&lab    FOPRF   FOSCALB
        MEND

;-----------------------------------------------------------
; Copy-sign.
;-----------------------------------------------------------
        MACRO
&lab    FCPYSGNX
&lab    FOPRF   FFEXT+FOCPYSGN
        MEND

        MACRO
&lab    FCPYSGND
&lab    FOPRF   FFDBL+FOCPYSGN
        MEND

        MACRO
&lab    FCPYSGNS
&lab    FOPRF   FFSGL+FOCPYSGN
        MEND

        MACRO
&lab    FCPYSGNC
&lab    FOPRF   FFCOMP+FOCPYSGN
        MEND

        MACRO
&lab    FCPYSGNI
&lab    FOPRF   FFINT+FOCPYSGN
        MEND

        MACRO
&lab    FCPYSGNL
&lab    FOPRF   FFLNG+FOCPYSGN
        MEND

;-----------------------------------------------------------
; Negate.
;-----------------------------------------------------------
        MACRO
&lab    FNEGX
&lab    FOPRF   FONEG
        MEND

;-----------------------------------------------------------
; Absolute value.
;-----------------------------------------------------------
        MACRO
&lab    FABSX
&lab    FOPRF   FOABS
        MEND

;-----------------------------------------------------------
; Next-after.  NOTE:  both operands are of the
; the same format, as specified by the usual suffix.
;-----------------------------------------------------------
        MACRO
&lab    FNEXTS
&lab    FOPRF   FFSGL+FONEXT
        MEND

        MACRO
&lab    FNEXTD
&lab    FOPRF   FFDBL+FONEXT
        MEND

        MACRO
&lab    FNEXTX
&lab    FOPRF   FFEXT+FONEXT
        MEND

;-----------------------------------------------------------
; Conversion to extended.
;-----------------------------------------------------------
        MACRO
&lab    FX2X
&lab    FOPRF   FFEXT+FOZ2X
        MEND

        MACRO
&lab    FD2X
&lab    FOPRF   FFDBL+FOZ2X
        MEND

        MACRO
&lab    FS2X
&lab    FOPRF   FFSGL+FOZ2X
        MEND

        MACRO                           ; 16-bit integer, by address
&lab    FI2X
&lab    FOPRF   FFINT+FOZ2X
        MEND

        MACRO                           ; 32-bit integer, by address
&lab    FL2X
&lab    FOPRF   FFLNG+FOZ2X
        MEND

        MACRO
&lab    FC2X
&lab    FOPRF   FFCOMP+FOZ2X
        MEND

;-----------------------------------------------------------
; Conversion from extended.
;-----------------------------------------------------------
        MACRO
&lab    FX2D
&lab    FOPRF   FFDBL+FOX2Z
        MEND

        MACRO
&lab    FX2S
&lab    FOPRF   FFSGL+FOX2Z
        MEND

        MACRO
&lab    FX2I
&lab    FOPRF   FFINT+FOX2Z
        MEND

        MACRO
&lab    FX2L
&lab    FOPRF   FFLNG+FOX2Z
        MEND

        MACRO
&lab    FX2C
&lab    FOPRF   FFCOMP+FOX2Z
        MEND

;-----------------------------------------------------------
; Binary to decimal conversion.
;-----------------------------------------------------------
        MACRO
&lab    FX2DEC
&lab    FOPRF   FFEXT+FOB2D
        MEND

        MACRO
&lab    FD2DEC
&lab    FOPRF   FFDBL+FOB2D
        MEND

        MACRO
&lab    FS2DEC
&lab    FOPRF   FFSGL+FOB2D
        MEND

        MACRO
&lab    FC2DEC
&lab    FOPRF   FFCOMP+FOB2D
        MEND

        MACRO
&lab    FI2DEC
&lab    FOPRF   FFINT+FOB2D
        MEND

        MACRO
&lab    FL2DEC
&lab    FOPRF   FFLNG+FOB2D
        MEND

;-----------------------------------------------------------
; Decimal to binary conversion.
;-----------------------------------------------------------
        MACRO
&lab    FDEC2X
&lab    FOPRF   FFEXT+FOD2B
        MEND

        MACRO
&lab    FDEC2D
&lab    FOPRF   FFDBL+FOD2B
        MEND

        MACRO
&lab    FDEC2S
&lab    FOPRF   FFSGL+FOD2B
        MEND

        MACRO
&lab    FDEC2C
&lab    FOPRF   FFCOMP+FOD2B
        MEND

        MACRO
&lab    FDEC2I
&lab    FOPRF   FFINT+FOD2B
        MEND

        MACRO
&lab    FDEC2L
&lab    FOPRF   FFLNG+FOD2B
        MEND

;-----------------------------------------------------------
; Compare, not signaling invalid on unordered.
;-----------------------------------------------------------
        MACRO
&lab    FCMPX
&lab    FOPRF   FFEXT+FOCMP
        MEND

        MACRO
&lab    FCMPD
&lab    FOPRF   FFDBL+FOCMP
        MEND

        MACRO
&lab    FCMPS
&lab    FOPRF   FFSGL+FOCMP
        MEND

        MACRO
&lab    FCMPC
&lab    FOPRF   FFCOMP+FOCMP
        MEND

        MACRO
&lab    FCMPI
&lab    FOPRF   FFINT+FOCMP
        MEND

        MACRO
&lab    FCMPL
&lab    FOPRF   FFLNG+FOCMP
        MEND

;-----------------------------------------------------------
; Compare, signaling invalid on unordered.
;-----------------------------------------------------------
        MACRO
&lab    FCPXX
&lab    FOPRF   FFEXT+FOCPX
        MEND

        MACRO
&lab    FCPXD
&lab    FOPRF   FFDBL+FOCPX
        MEND

        MACRO
&lab    FCPXS
&lab    FOPRF   FFSGL+FOCPX
        MEND

        MACRO
&lab    FCPXC
&lab    FOPRF   FFCOMP+FOCPX
        MEND
       
        MACRO
&lab    FCPXI
&lab    FOPRF   FFINT+FOCPX
        MEND

        MACRO
&lab    FCPXL
&lab    FOPRF   FFLNG+FOCPX
        MEND

;-----------------------------------------------------------
; The following macros define a set of so-called floating
; branches.  They presume that the appropriate compare 
; operation, macro FCMPz or FCPXz, precedes.
;----------------------------------------------------------
        MACRO                           ; branch equal
&lab    FBEQ    &N1
&lab    BEQ     &N1
        MEND
       
        MACRO                           ; branch less
&lab    FBLT    &N1
&lab    BMI     &N1
        MEND
       
        MACRO                           ; branch less or equal
&lab    FBLE    &N1
&lab    BMI     &N1
        BEQ     &N1
        MEND
       
        MACRO                           ; branch greater
&lab    FBGT    &N1
&lab    BVS     &N1
        MEND
       
        MACRO                           ; branch greater or equal
&lab    FBGE    &N1
&lab    BVS     &N1
        BEQ     &N1
        MEND
       
        MACRO                           ; branch less or unordered
&lab    FBULT   &N1
&lab    BMI     &N1
        BVS     *+4
        BNE     &N1
        MEND
       
        MACRO                           ; branch unordered, less, or equal
&lab    FBULE   &N1
&lab    BMI     &N1
        BEQ     &N1
        BVC     &N1
        MEND
       
        MACRO                           ; branch unordered or greater
&lab    FBUGT   &N1
&lab    BVS     &N1
        BMI     *+4
        BNE     &N1
        MEND
       
        MACRO                           ; branch unordered, greater, or equal
&lab    FBUGE   &N1
&lab    BVS     &N1
        BEQ     &N1
        BPL     &N1
        MEND
       
        MACRO                           ; branch unordered
&lab    FBU     &N1
&lab    BVS     *+6
        BMI     *+4
        BNE     &N1 
        MEND
       
        MACRO                           ; branch ordered
&lab    FBO     &N1
&lab    BMI     &N1
        BVS     &N1
        BEQ     &N1
        MEND
       
        MACRO                           ; branch not equal
&lab    FBNE    &N1
&lab    BMI     &N1
        BVS     &N1
        BNE     &N1
        MEND
       
        MACRO                           ; branch unordered or equal
&lab    FBUE    &N1
&lab    BEQ     &N1
        BMI     *+4
        BVC     &N1
        MEND
       
        MACRO                           ; branch less or greater
&lab    FBLG    &N1
&lab    BMI     &N1
        BVS     &N1
        MEND

        MACRO
&lab    FCLASSS
&lab    FOPRF   FFSGL+FOCLASS
        MEND

        MACRO
&lab    FCLASSD
&lab    FOPRF   FFDBL+FOCLASS
        MEND

        MACRO
&lab    FCLASSX
&lab    FOPRF   FFEXT+FOCLASS
        MEND

        MACRO
&lab    FCLASSC
&lab    FOPRF   FFCOMP+FOCLASS
        MEND

        MACRO
&lab    FCLASSI
&lab    FOPRF   FFINT+FOCLASS
        MEND

        MACRO
&lab    FCLASSL
&lab    FOPRF   FFLNG+FOCLASS
        MEND

;-----------------------------------------------------------
; The following macros provide branches based on the 
; the result of a FCLASSz macro.
;-----------------------------------------------------------
        MACRO                           ; branch signaling NaN
&lab    FBSNAN  &N1
&lab    TXA
        ASL     A
        CMP     #2*FCSNAN
        BEQ     &N1
        MEND

        MACRO                           ; branch quiet NaN
&lab    FBQNAN  &N1
&lab    TXA
        ASL     A
        CMP     #2*FCQNAN
        BEQ     &N1
        MEND

        MACRO                           ; branch infinite
&lab    FBINF   &N1
&lab    TXA
        ASL     A
        CMP     #2*FCINF
        BEQ     &N1
        MEND

        MACRO                           ; branch zero
&lab    FBZERO  &N1
&lab    TXA
        ASL     A
        CMP     #2*FCZERO
        BEQ     &N1
        MEND

        MACRO                           ; branch normal
&lab    FBNORM  &N1
&lab    TXA
        ASL     A
        BEQ     &N1
        MEND

        MACRO                           ; branch denormal
&lab    FBDENORM &N1
&lab    TXA
        ASL     A
        CMP     #2*FCDENORM
        BEQ     &N1
        MEND

        MACRO                           ; branch non-zero num (norm or denorm)
&lab    FBNZENUM &N1
&lab    TXA
        XBA
        ASL     A
        BCC     &N1
        MEND
       
        MACRO                           ; branch number (zero, norm, or denorm)
&lab    FBNUM   &N1
&lab    TXA
        INC     A
        XBA
        ASL     A
        BCC     &N1
        MEND
       
        MACRO                           ; branch minus sign
&lab    FBMINUS &N1
&lab    BMI     &N1
        MEND

        MACRO                           ; branch plus sign
&lab    FBPLUS  &N1
&lab    BPL     &N1
        MEND

;-----------------------------------------------------------
; Get and set environment.
;-----------------------------------------------------------
        MACRO
&lab    FGETENV
&lab    FOPRF   FOGETENV
        MEND

        MACRO
&lab    FSETENV
&lab    FOPRF   FOSETENV
        MEND

;-----------------------------------------------------------
; Test and set exception. 
;-----------------------------------------------------------
        MACRO
&lab    FTESTXCP
&lab    FOPRF   FOTESTXCP
        MEND

        MACRO
&lab    FSETXCP
&lab    FOPRF   FOSETXCP
        MEND

;----------------------------------------------------------
; Procedure entry and exit.
;----------------------------------------------------------
        MACRO
&lab    FPROCENTRY
&lab    FOPRF   FOPROCENTRY
        MEND

        MACRO
&lab    FPROCEXIT
&lab    FOPRF   FOPROCEXIT
        MEND

;-----------------------------------------------------------
; Get and set halt vector.
;-----------------------------------------------------------
        MACRO
&lab    FGETHV
&lab    FOPRF   FOGETHV
        MEND

        MACRO
&lab    FSETHV
&lab    FOPRF   FOSETHV
        MEND
       
;-----------------------------------------------------------
; Elementary function macros.
;-----------------------------------------------------------
        MACRO                           ; natural (base-e) log
&lab    FLNX
&lab    FOPRE   FOLNX
        MEND

        MACRO                           ; base-2 log
&lab    FLOG2X
&lab    FOPRE   FOLOG2X
        MEND

        MACRO                           ; ln (1 + x)
&lab    FLN1X
&lab    FOPRE   FOLN1X
        MEND

        MACRO                           ; log2 (1 + x)
&lab    FLOG21X
&lab    FOPRE   FOLOG21X
        MEND

        MACRO                           ; base-e exponential
&lab    FEXPX
&lab    FOPRE   FOEXPX
        MEND

        MACRO                           ; base-2 exponential
&lab    FEXP2X
&lab    FOPRE   FOEXP2X
        MEND

        MACRO                           ; exp (x) - 1
&lab    FEXP1X
&lab    FOPRE   FOEXP1X
        MEND

        MACRO                           ; exp2 (x) - 1
&lab    FEXP21X
&lab    FOPRE   FOEXP21X
        MEND

        MACRO                           ; integer exponential
&lab    FXPWRI
&lab    FOPRE   FOXPWRI
        MEND

        MACRO                           ; general exponential
&lab    FXPWRY
&lab    FOPRE   FOXPWRY
        MEND

        MACRO                           ; compound
&lab    FCOMPOUND
&lab    FOPRE   FOCOMPOUND
        MEND

        MACRO                           ; annuity
&lab    FANNUITY
&lab    FOPRE   FOANNUITY
        MEND
       
        MACRO                           ; arctangent
&lab    FATANX
&lab    FOPRE   FOATANX
        MEND

        MACRO                           ; sine
&lab    FSINX
&lab    FOPRE   FOSINX
        MEND

        MACRO                           ; cosine
&lab    FCOSX
&lab    FOPRE   FOCOSX
        MEND

        MACRO                           ; tangent
&lab    FTANX
&lab    FOPRE   FOTANX
        MEND
       
        MACRO                           ; random number generator
&lab    FRANDX
&lab    FOPRE   FORANDX
        MEND
       
;-----------------------------------------------------------
; Scanner and formatter function macros.
;-----------------------------------------------------------
        MACRO                           ; Pascal string to decimal record
&lab    FPSTR2DEC
&lab    FOPRD   FOPSTR2DEC
        MEND
       
        MACRO                           ; C string to decimal record
&lab    FCSTR2DEC
&lab    FOPRD   FOCSTR2DEC
        MEND
       
        MACRO                           ; decimal record to (Pascal) string
&lab    FDEC2STR
&lab    FOPRD   FODEC2STR
        MEND

;-----------------------------------------------------------
; Auxiliary macros.
;-----------------------------------------------------------
        MACRO                           ; call FP
&lab    FOPRF   &N1
&lab    PEA     &N1
        LDX     #SANEtsNum+256*FPNum
        JSL     $E10000
        MEND

        MACRO                           ; call DecStr
&lab    FOPRD   &N1
&lab    PEA     &N1
        LDX     #SANEtsNum+256*DecStrNum
        JSL     $E10000
        MEND

        MACRO                           ; call Elems
&lab    FOPRE   &N1
&lab    PEA     &N1
        LDX     #SANEtsNum+256*ElemNum
        JSL     $E10000
        MEND

; File:  M16.Scheduler
;
;
; Copyright Apple Computer, Inc. 1986-90
; All Rights Reserved
;
;
 MACRO
&lab _SchAddTask
&lab ldx #$0907
     jsl $E10000
 MEND
 MACRO
&lab _SchBootInit
&lab ldx #$0107
     jsl $E10000
 MEND
 MACRO
&lab _SchFlush
&lab ldx #$0A07
     jsl $E10000
 MEND
 MACRO
&lab _SchReset
&lab ldx #$0507
     jsl $E10000
 MEND
 MACRO
&lab _SchShutDown
&lab ldx #$0307
     jsl $E10000
 MEND
 MACRO
&lab _SchStartUp
&lab ldx #$0207
     jsl $E10000
 MEND
 MACRO
&lab _SchStatus
&lab ldx #$0607
     jsl $E10000
 MEND
 MACRO
&lab _SchVersion
&lab ldx #$0407
     jsl $E10000
 MEND
; File:  M16.Scrap
;
;
; Copyright Apple Computer, Inc. 1986-91
; All Rights Reserved
;
;
 MACRO
&lab _GetScrap
&lab ldx #$0D16
     jsl $E10000
 MEND
 MACRO
&lab _GetScrapCount
&lab ldx #$1216
     jsl $E10000
 MEND
 MACRO
&lab _GetScrapHandle
&lab ldx #$0E16
     jsl $E10000
 MEND
 MACRO
&lab _GetScrapPath
&lab ldx #$1016
     jsl $E10000
 MEND
 MACRO
&lab _GetScrapSize
&lab ldx #$0F16
     jsl $E10000
 MEND
 MACRO
&lab _GetScrapState
&lab ldx #$1316
     jsl $E10000
 MEND
 MACRO
&lab _LoadScrap
&lab ldx #$0A16
     jsl $E10000
 MEND
 MACRO
&lab _PutScrap
&lab ldx #$0C16
     jsl $E10000
 MEND
 MACRO
&lab _ScrapBootInit
&lab ldx #$0116
     jsl $E10000
 MEND
 MACRO
&lab _ScrapReset
&lab ldx #$0516
     jsl $E10000
 MEND
 MACRO
&lab _ScrapShutDown
&lab ldx #$0316
     jsl $E10000
 MEND
 MACRO
&lab _ScrapStartUp
&lab ldx #$0216
     jsl $E10000
 MEND
 MACRO
&lab _ScrapStatus
&lab ldx #$0616
     jsl $E10000
 MEND
 MACRO
&lab _ScrapVersion
&lab ldx #$0416
     jsl $E10000
 MEND
 MACRO
&lab _SetScrapPath
&lab ldx #$1116
     jsl $E10000
 MEND
 MACRO
&lab _UnloadScrap
&lab ldx #$0916
     jsl $E10000
 MEND
 MACRO
&lab _ZeroScrap
&lab ldx #$0B16
     jsl $E10000
 MEND

 MACRO
&lab _GetIndScrap
&lab ldx #$1416
     jsl $E10000
 MEND
; File:  M16.Sound
;
;
; Copyright Apple Computer, Inc. 1986-90
; All Rights Reserved
;
;
 MACRO
&lab _FFGeneratorStatus
&lab ldx #$1108
     jsl $E10000
 MEND
 MACRO
&lab _FFSetUpSound
&lab ldx #$1508
     jsl $E10000
 MEND
 MACRO
&lab _FFSoundDoneStatus
&lab ldx #$1408
     jsl $E10000
 MEND
 MACRO
&lab _FFSoundStatus
&lab ldx #$1008
     jsl $E10000
 MEND
 MACRO
&lab _FFStartPlaying
&lab ldx #$1608
     jsl $E10000
 MEND
 MACRO
&lab _FFStartSound
&lab ldx #$0E08
     jsl $E10000
 MEND
 MACRO
&lab _FFStopSound
&lab ldx #$0F08
     jsl $E10000
 MEND
 MACRO
&lab _GetSoundVolume
&lab ldx #$0C08
     jsl $E10000
 MEND
 MACRO
&lab _GetTableAddress
&lab ldx #$0B08
     jsl $E10000
 MEND
 MACRO
&lab _ReadDOCReg
&lab ldx #$1808
     jsl $E10000
 MEND
 MACRO
&lab _ReadRamBlock
&lab ldx #$0A08
     jsl $E10000
 MEND
 MACRO
&lab _SetDOCReg
&lab ldx #$1708
     jsl $E10000
 MEND
 MACRO
&lab _SetSoundMIRQV
&lab ldx #$1208
     jsl $E10000
 MEND
 MACRO
&lab _SetSoundVolume
&lab ldx #$0D08
     jsl $E10000
 MEND
 MACRO
&lab _SetUserSoundIRQV
&lab ldx #$1308
     jsl $E10000
 MEND
 MACRO
&lab _SoundBootInit
&lab ldx #$0108
     jsl $E10000
 MEND
 MACRO
&lab _SoundReset
&lab ldx #$0508
     jsl $E10000
 MEND
 MACRO
&lab _SoundShutDown
&lab ldx #$0308
     jsl $E10000
 MEND
 MACRO
&lab _SoundStartUp
&lab ldx #$0208
     jsl $E10000
 MEND
 MACRO
&lab _SoundToolStatus
&lab ldx #$0608
     jsl $E10000
 MEND
 MACRO
&lab _SoundVersion
&lab ldx #$0408
     jsl $E10000
 MEND
 MACRO
&lab _WriteRamBlock
&lab ldx #$0908
     jsl $E10000
 MEND
; File:  M16.StdFile
;
;
; Copyright Apple Computer, Inc. 1986-90
; All Rights Reserved
;
;
 MACRO
&lab _SFAllCaps
&lab ldx #$0D17
     jsl $E10000
 MEND
 MACRO
&lab _SFBootInit
&lab ldx #$0117
     jsl $E10000
 MEND
 MACRO
&lab _SFGetFile
&lab ldx #$0917
     jsl $E10000
 MEND
 MACRO
&lab _SFGetFile2
&lab ldx #$0E17
     jsl $E10000
 MEND
 MACRO
&lab _SFMultiGet2
&lab ldx #$1417
     jsl $E10000
 MEND
 MACRO
&lab _SFPGetFile
&lab ldx #$0B17
     jsl $E10000
 MEND
 MACRO
&lab _SFPGetFile2
&lab ldx #$1017
     jsl $E10000
 MEND
 MACRO
&lab _SFPMultiGet2
&lab ldx #$1517
     jsl $E10000
 MEND
 MACRO
&lab _SFPPutFile
&lab ldx #$0C17
     jsl $E10000
 MEND
 MACRO
&lab _SFPPutFile2
&lab ldx #$1117
     jsl $E10000
 MEND
 MACRO
&lab _SFPutFile
&lab ldx #$0A17
     jsl $E10000
 MEND
 MACRO
&lab _SFPutFile2
&lab ldx #$0F17
     jsl $E10000
 MEND
 MACRO
&lab _SFReScan
&lab ldx #$1317
     jsl $E10000
 MEND
 MACRO
&lab _SFReset
&lab ldx #$0517
     jsl $E10000
 MEND
 MACRO
&lab _SFShowInvisible
&lab ldx #$1217
     jsl $E10000
 MEND
 MACRO
&lab _SFShutDown
&lab ldx #$0317
     jsl $E10000
 MEND
 MACRO
&lab _SFStartUp
&lab ldx #$0217
     jsl $E10000
 MEND
 MACRO
&lab _SFStatus
&lab ldx #$0617
     jsl $E10000
 MEND
 MACRO
&lab _SFVersion
&lab ldx #$0417
     jsl $E10000
 MEND
; File:  M16.TextEdit
;
;
; Copyright Apple Computer, Inc. 1986-90
; All Rights Reserved
;
;
 MACRO
&lab _TEActivate
&lab ldx #$0F22
     jsl $E10000
 MEND
 MACRO
&lab _TEBootInit
&lab ldx #$0122
     jsl $E10000
 MEND
 MACRO
&lab _TEClear
&lab ldx #$1922
     jsl $E10000
 MEND
 MACRO
&lab _TEClick
&lab ldx #$1122
     jsl $E10000
 MEND
 MACRO
&lab _TECompactRecord
&lab ldx #$2822
     jsl $E10000
 MEND
 MACRO
&lab _TECopy
&lab ldx #$1722
     jsl $E10000
 MEND
 MACRO
&lab _TECut
&lab ldx #$1622
     jsl $E10000
 MEND
 MACRO
&lab _TEDeactivate
&lab ldx #$1022
     jsl $E10000
 MEND
 MACRO
&lab _TEGetDefProc
&lab ldx #$2222
     jsl $E10000
 MEND
 MACRO
&lab _TEGetInternalProc
&lab ldx #$2622
     jsl $E10000
 MEND
 MACRO
&lab _TEGetLastError
&lab ldx #$2722
     jsl $E10000
 MEND
 MACRO
&lab _TEGetRuler
&lab ldx #$2322
     jsl $E10000
 MEND
 MACRO
&lab _TEGetSelection
&lab ldx #$1C22
     jsl $E10000
 MEND
 MACRO
&lab _TEGetSelectionStyle
&lab ldx #$1E22
     jsl $E10000
 MEND
 MACRO
&lab _TEGetText
&lab ldx #$0C22
     jsl $E10000
 MEND
 MACRO
&lab _TEGetTextInfo
&lab ldx #$0D22
     jsl $E10000
 MEND
 MACRO
&lab _TEIdle
&lab ldx #$0E22
     jsl $E10000
 MEND
 MACRO
&lab _TEInsert
&lab ldx #$1A22
     jsl $E10000
 MEND
 MACRO
&lab _TEInsertPageBreak
&lab ldx #$1522
     jsl $E10000
 MEND
 MACRO
&lab _TEKey
&lab ldx #$1422
     jsl $E10000
 MEND
 MACRO
&lab _TEKill
&lab ldx #$0A22
     jsl $E10000
 MEND
 MACRO
&lab _TENew
&lab ldx #$0922
     jsl $E10000
 MEND
 MACRO
&lab _TEOffsetToPoint
&lab ldx #$2022
     jsl $E10000
 MEND
 MACRO
&lab _TEPaintText
&lab ldx #$1322
     jsl $E10000
 MEND
 MACRO
&lab _TEPaste
&lab ldx #$1822
     jsl $E10000
 MEND
 MACRO
&lab _TEPointToOffset
&lab ldx #$2122
     jsl $E10000
 MEND
 MACRO
&lab _TEReplace
&lab ldx #$1B22
     jsl $E10000
 MEND
 MACRO
&lab _TEReset
&lab ldx #$0522
     jsl $E10000
 MEND
 MACRO
&lab _TEScroll
&lab ldx #$2522
     jsl $E10000
 MEND
 MACRO
&lab _TESetRuler
&lab ldx #$2422
     jsl $E10000
 MEND
 MACRO
&lab _TESetSelection
&lab ldx #$1D22
     jsl $E10000
 MEND
 MACRO
&lab _TESetText
&lab ldx #$0B22
     jsl $E10000
 MEND
 MACRO
&lab _TEShutDown
&lab ldx #$0322
     jsl $E10000
 MEND
 MACRO
&lab _TEStartUp
&lab ldx #$0222
     jsl $E10000
 MEND
 MACRO
&lab _TEStatus
&lab ldx #$0622
     jsl $E10000
 MEND
 MACRO
&lab _TEStyleChange
&lab ldx #$1F22
     jsl $E10000
 MEND
 MACRO
&lab _TEUpdate
&lab ldx #$1222
     jsl $E10000
 MEND
 MACRO
&lab _TEVersion
&lab ldx #$0422
     jsl $E10000
 MEND
; File:  M16.TextTool
;
;
; Copyright Apple Computer, Inc. 1986-90
; All Rights Reserved
;
;
 MACRO
&lab _CtlTextDev
&lab ldx #$160C
     jsl $E10000
 MEND
 MACRO
&lab _ErrWriteBlock
&lab ldx #$1F0C
     jsl $E10000
 MEND
 MACRO
&lab _ErrWriteChar
&lab ldx #$190C
     jsl $E10000
 MEND
 MACRO
&lab _ErrWriteCString
&lab ldx #$210C
     jsl $E10000
 MEND
 MACRO
&lab _ErrWriteLine
&lab ldx #$1B0C
     jsl $E10000
 MEND
 MACRO
&lab _ErrWriteString
&lab ldx #$1D0C
     jsl $E10000
 MEND
 MACRO
&lab _GetErrGlobals
&lab ldx #$0E0C
     jsl $E10000
 MEND
 MACRO
&lab _GetErrorDevice
&lab ldx #$140C
     jsl $E10000
 MEND
 MACRO
&lab _GetInGlobals
&lab ldx #$0C0C
     jsl $E10000
 MEND
 MACRO
&lab _GetInputDevice
&lab ldx #$120C
     jsl $E10000
 MEND
 MACRO
&lab _GetOutGlobals
&lab ldx #$0D0C
     jsl $E10000
 MEND
 MACRO
&lab _GetOutputDevice
&lab ldx #$130C
     jsl $E10000
 MEND
 MACRO
&lab _InitTextDev
&lab ldx #$150C
     jsl $E10000
 MEND
 MACRO
&lab _ReadChar
&lab ldx #$220C
     jsl $E10000
 MEND
 MACRO
&lab _ReadLine
&lab ldx #$240C
     jsl $E10000
 MEND
 MACRO
&lab _SetErrGlobals
&lab ldx #$0B0C
     jsl $E10000
 MEND
 MACRO
&lab _SetErrorDevice
&lab ldx #$110C
     jsl $E10000
 MEND
 MACRO
&lab _SetInGlobals
&lab ldx #$090C
     jsl $E10000
 MEND
 MACRO
&lab _SetInputDevice
&lab ldx #$0F0C
     jsl $E10000
 MEND
 MACRO
&lab _SetOutGlobals
&lab ldx #$0A0C
     jsl $E10000
 MEND
 MACRO
&lab _SetOutputDevice
&lab ldx #$100C
     jsl $E10000
 MEND
 MACRO
&lab _StatusTextDev
&lab ldx #$170C
     jsl $E10000
 MEND
 MACRO
&lab _TextBootInit
&lab ldx #$010C
     jsl $E10000
 MEND
 MACRO
&lab _TextReadBlock
&lab ldx #$230C
     jsl $E10000
 MEND
 MACRO
&lab _TextReset
&lab ldx #$050C
     jsl $E10000
 MEND
 MACRO
&lab _TextShutDown
&lab ldx #$030C
     jsl $E10000
 MEND
 MACRO
&lab _TextStartUp
&lab ldx #$020C
     jsl $E10000
 MEND
 MACRO
&lab _TextStatus
&lab ldx #$060C
     jsl $E10000
 MEND
 MACRO
&lab _TextVersion
&lab ldx #$040C
     jsl $E10000
 MEND
 MACRO
&lab _TextWriteBlock
&lab ldx #$1E0C
     jsl $E10000
 MEND
 MACRO
&lab _WriteChar
&lab ldx #$180C
     jsl $E10000
 MEND
 MACRO
&lab _WriteCString
&lab ldx #$200C
     jsl $E10000
 MEND
 MACRO
&lab _WriteLine
&lab ldx #$1A0C
     jsl $E10000
 MEND
 MACRO
&lab _WriteString
&lab ldx #$1C0C
     jsl $E10000
 MEND
; File:  M16.Types
;
;
; Copyright Apple Computer, Inc. 1986-90
; All Rights Reserved
;
;
*************************************************************************
*																		*
*						Apple //GS Utility Macros						*
*								by										*
*							Lou Infeld									*
*																		*
*					Copyright Apple Computer, Inc. 1986-1988			*
*							All Rights Reserved							*
*																		*
*	Revision History													*
*	----------------													*
*	v1.0R1 (04/29/87) --	First Release								*
*							This file is a subset of the old			*
*								'M16.Utility'							*
*	v2.0R1 (01/22/88) --	First AsmIIGS release						*
*	v2.0R2 (02/11/88) --	"writelin" renamed "writeline"				*
*	v2.0R3 (03/29/88) --	"|" added to pea instrs to avoid Assembler	*
*								warning									*
*							"pushlong" was incorrect if &offset was "s"	*
*								or not specified						*
*	v2.0R4 (04/14/88) --	"writestr" and "writeline" didn't restore	*
*							STRING setting								*
*	v2.0R5 (08/22/88) --	"inc4" and "dec4" redefined to support only	*
*								positive 4 byte integers				*
*							"sub4" fixed so that there will not be any	*
*								truncation warnings generated			*
*							Pull macros now check for missing parameter *
*							  	or extra parameter						*
*	v2.0R6 (09/06/88) --	"dec4" fixed to support positive 4 byte		*
*								integers								*
*   v2.0R7 (4/4/89) -- changed "long" to "longmx", "short" to "shortmx" *
*                      and added stack based macros (rls3)              *
*																		*
*	v2.1	(11/01/90)	GAB		Added HEX macro							*
*																		*
*************************************************************************

;............................................................
;
;        Pull long (4 bytes) from stack
;
;    pulllong address             - pull off stack to address
;    pulllong addr1,addr2         - pull off stack into 2 places
;    pulllong [zeropage],offset   - pull off stack and store indirectly             
;    pulllong                     - pull off stack and leave in A
;...............................................................
	MACRO
	pulllong &addr1,&addr2
	IF &addr1='' THEN
	IF &addr2­'' THEN 
		AERROR 'Illegal 2nd parameter'
	ENDIF
		pullword
		pullword
	ELSEIF &addr2='' THEN
		pullword  &addr1
		pullword  &addr1+2
	ELSEIF &addr1[1:1]='[' THEN
		ldy   #&addr2
		pullword  &addr1,y
		ldy   #&addr2+2
		pullword  &addr1,y
	ELSE
		pullword  &addr1
		sta   &addr2
		pullword  &addr1+2
		sta   &addr2+2
	ENDIF
	MEND
;...............................................................
;
;        Pull 3 bytes from stack
;
;    pull3 addr    -- pulls bytes off stack and stores in 'loc'
;...............................................................
	MACRO
	pull3 &addr
	IF &addr='' THEN
		AERROR 'A parameter must be specified'
	ENDIF
		pull1	&addr
		pullword  &addr+1
	MEND
;...............................................................
;
;        Pull 2 bytes from stack
;
;    pullword loc     -- pulls bytes off stack and stores in 'loc'
;    pullword loc,x   -- pulls bytes off stack and stores in 'loc,x'
;    pullword         -- pulls bytes off stack and leaves in A
;...............................................................
	MACRO
	pullword &addr,&reg
		pla
	IF &addr­'' THEN
		IF &reg­'' THEN
			sta		&addr,&reg
		ELSE
			sta		&addr
		ENDIF
	ELSEIF &reg­'' THEN 
		AERROR 'Illegal 2nd parameter'
	ENDIF
	MEND
;...............................................................
;
;        Pull 1 byte from stack
;
;    pull1 loc     -- pulls byte off stack and stores in 'loc'
;    pull1 loc,x   -- pulls byte off stack and stores in 'loc,x'
;    pull1         -- pulls byte off stack and leaves in A
;...............................................................
	MACRO
	pull1 &addr,&reg
		shortm
		pullword	&addr,&reg
		longm
	MEND
;...............................................................
;
;        Push 1 byte onto stack
;
;    push1 loc     -- pushes byte onto stack from 'loc'
;    push1 loc,x   -- pushes byte onto stack from 'loc,x'
;    push1 #n      -- pushes constant #n onto stack
;    push1         -- pushes byte onto stack (from A)
;...............................................................
	MACRO
	push1 &addr,&reg
		shortm
		pushword &addr,&reg
		longm
	MEND
;............................................................
;
;        Push long (4 bytes) onto stack
;
;    pushlong address             - push contents of address
;    pushlong address,x           - push contents of address,x
;    pushlong const,s             - push contents of stack+const    
;    pushlong #address/const      - push address or constant
;    pushlong [zeropage],offset   - push using indirect address
;...............................................................
	MACRO
	pushlong &addr,&offset
	IF &addr[1:1]='#' THEN
		pea		&addr[2:255]>>16
		pea		|&addr[2:255]
	ELSEIF &addr[1:1]='[' THEN
		ldy		#&offset+2
		pushword &addr,y
		ldy		#&offset
		pushword &addr,y
	ELSEIF &offset='s' THEN
		pushword &addr+2,s
		pushword &addr+2,s
	ELSEIF &offset='' THEN
		pushword  &addr+2
		pushword  &addr
	ELSE
		pushword &addr+2,&offset
		pushword &addr,&offset
	ENDIF
	MEND
;...............................................................
;
;        Push 3 bytes onto stack
;
;    push3 addr    -- pushes bytes onto stack from 'loc'
;    push3 addr,x  -- pushes bytes onto stack from 'loc,x'
;    push3 #n      -- pushes constant #n onto stack
;...............................................................
	MACRO
	push3 &addr,&reg
	IF &reg­'' THEN
		lda		&addr+1,&reg
		pha
		phb
		lda		&addr,&reg
		sta		1,s
	ELSEIF &addr[1:1]='#' THEN
		lda		#&addr[2:255]>>8
		pha
	GOTO .a
	ELSE
		lda		&addr+1
		pha
.a		phb
		lda		&addr
		sta		1,s
	ENDIF
	MEND
;...............................................................
;
;        Push 2 bytes onto stack
;
;    pushword loc     -- pushes bytes onto stack from 'loc'
;    pushword loc,x   -- pushes bytes onto stack from 'loc,x'
;    pushword #n      -- pushes constant #n onto stack
;    pushword         -- pushes bytes onto stack (from A)
;...............................................................
	MACRO
	pushword &addr,&reg
	IF &addr[1:1]='#' AND &SETTING('LONGA')='ON' THEN
		pea		|&addr[2:255]
	ELSE
		IF &addr­'' THEN
			IF &reg­'' THEN 
				lda		&addr,&reg
			ELSE
				lda		&addr
			ENDIF
		ENDIF
		pha
	ENDIF
	MEND
;...............................................................
;
;        Add 2 byte integers
;
;    add loc1,loc2,loc3 - adds 'loc1' to 'loc2' and stores in 'loc3'
;    add loc1,loc2      - adds 'loc1' to 'loc2' and leaves in A
;    add ,loc2,loc3     - adds A with 'loc2' and stores in 'loc3' 
;
;        'loc1' and 'loc2' can be constants
;...............................................................
         MACRO
	add   &a1,&a2,&a3
	IF &a1­'' THEN
		lda		&a1
	ENDIF
		clc
		adc		&a2
	IF &a3­'' THEN
		sta		&a3
	ENDIF
	MEND
;...............................................................
;
;        Add 4 byte integers
;
;    add4 loc1,loc2,loc3 - adds 'loc1' to 'loc2' and stores in 'loc3'
;    add4 ,loc2,loc3     - adds A to 'loc2' and stores in 'loc3'
;
;        'loc1' and 'loc2' can be constants
;...............................................................
	MACRO
	add4	&a1,&a2,&a3
	IF &a1­'' THEN
		lda		&a1
	ENDIF
		clc
		adc		&a2
		sta		&a3
	IF &a1='' THEN
		lda		#0
	ELSEIF &a1[1:1]='#' THEN
		lda		#^&a1[2:255]
	ELSE
		lda		&a1+2
	ENDIF
	IF &a2[1:1]='#' THEN
		adc		#^&a2[2:255]
	ELSE
		adc		&a2+2
	ENDIF
		sta		&a3+2
	MEND
;...............................................................
;
;        Increment a positive 4 byte integer
;
;    inc4 loc - increments 'loc'
;...............................................................
	MACRO
	inc4  &a1
		inc		&a1
		bne		@a
		inc		&a1+2
@a 
	MEND
;...............................................................
;
;        Subtract 2 byte integers
;
;    sub loc1,loc2,loc3 - subtracts 'loc2' from 'loc1' and stores in 'loc3'
;    sub loc1,loc2      - subtracts 'loc2' from 'loc1' and leaves in A
;    sub ,loc2,loc3      - subtracts 'loc2' from A and stores in 'loc3' 
;
;        'loc1' and 'loc2' can be constants
;...............................................................
	MACRO
	sub   &a1,&a2,&a3
	IF &a1­'' THEN
		lda		&a1
	ENDIF
		sec
		sbc		&a2
	IF &a3­'' THEN
		sta		&a3
	ENDIF
	MEND
;...............................................................
;
;        Subtract 4 byte integers
;
;    sub4 loc1,loc2,loc3 - subtracts 'loc2' from 'loc1' and stores in 'loc3'
;    sub4 ,loc2,loc3     - subtracts 'loc2' from A and stores in 'loc3'
;...............................................................
	MACRO
	sub4	&a1,&a2,&a3
	IF &a1­'' THEN
	IF &a1[1:1]='#' THEN
		lda		#<&a1[2:255]
	ELSE
		lda		&a1
	ENDIF
	ENDIF
		sec
	IF &a1[1:1]='#' THEN
		sbc		#<&a2[2:255]
	ELSE
		sbc		&a2
	ENDIF
		sta		&a3
	IF &a1='' THEN
		lda		#0
	ELSEIF &a1[1:1]='#' THEN
		lda		#^&a1[2:255]
	ELSE
		lda		&a1+2
	ENDIF
	IF &a2[1:1]='#' THEN
		sbc		#^&a2[2:255]
	ELSE
		sbc		&a2+2
	ENDIF
		sta		&a3+2
	MEND
;...............................................................
;
;        Decrement a positive 4 byte integer
;
;    dec4 loc - decrements 'loc'
;...............................................................
	MACRO
	dec4  &a1
		pha
		sec
		lda		&a1
		sbc		#1
		bcs		@a
		dec		&a1+2
@a 		sta		&a1
		pla
	MEND
;...............................................................
;
;        Define string
;
;        Generates a Pascal type of string
;...............................................................
	MACRO
	str	&string
		lclc	&sset
&sset	SETC &SETTING('STRING')
		STRING PASCAL
		dc.B &string
		STRING &sset
	MEND
;...............................................................
;
;        Define pointer
;...............................................................
	MACRO
	dp	&pointer
	dc.L &pointer
	MEND
;...............................................................
;
;        Left Shift 4 bytes
;
;        asl4  loc,#n                   ;n is shift count (pos)
;        asl4  loc,lnum                 ;lnum contains shift count (pos)
;        asl4  loc                      ;X contains shift count (pos)
;...............................................................
	MACRO
	asl4 &loc,&num
		lda   &loc+2
	IF &num­'' THEN
		ldx   &num
	ENDIF
@a		asl		a
		asl		&loc
		adc		#0
		dex
		bne		@a
		sta		&loc+2
	MEND
;...............................................................
;
;        Right Shift 4 bytes
;
;        lsr4  loc,#n                   ;n is shift count (pos)
;        lsr4  loc,lnum                 ;lnum contains shift count (pos)
;        lsr4  loc                      ;X contains shift count (neg)
;...............................................................
	MACRO
	lsr4  &loc,&num
	IF &num­'' THEN
		lda		&num
		eor		#$FFFF
		clc
		adc		#1
		tax
	ENDIF
		lda		&loc
@a		lsr		a
		lsr		&loc+2
		bcc		@b
		ora		#$8000
@b		inx
		bne		@a
		sta		&loc
	MEND
;...............................................................
;
;        Turn on native mode
;
;    The processor is put into 'native' mode.  8 bit or 16 bit
;    mode can be specified by using 'short' or 'long' as the
;    parameter.  If no parameter is specified, 'long' is assumed
;...............................................................
	MACRO
	native &mode
		clc
		xce
	IF &mode­'' THEN
		&mode
	ELSE
		longmx
	ENDIF
	MEND
;...............................................................
;
;        Turn on emulation mode
;
;    The processor is put into 'emulation' mode.
;...............................................................
	MACRO
	emulation
		sec
		xce
		longa	off
		longi	off
	MEND
;...............................................................
;
;        Set Memory & registers to 16 bits
;...............................................................
	MACRO
	longmx
		rep		#%00110000
		longa	on
		longi	on
	MEND
;...............................................................
;
;        Set Memory & A register to 16 bits
;...............................................................
	MACRO
	longm
		rep		#%00100000
		longa	on
	MEND
;...............................................................
;
;        Set X & Y registers to 16 bits
;...............................................................
	MACRO
	longx
		rep		#%00010000
		longi	on
	MEND
;...............................................................
;
;        Set Memory & registers to 8 bits
;...............................................................
	MACRO
	shortmx
		sep		#%00110000
		longa	off
		longi	off
	MEND
;...............................................................
;
;        Set Memory & A register to 8 bits
;...............................................................
	MACRO
	shortm
		sep		#%00100000
		longa	off
	MEND
;...............................................................
;
;        Set X & Y registers to 8 bits
;...............................................................
	MACRO
	shortx
		sep		#%00010000
		longi	off
	MEND
;...............................................................
;
;        Write string
;
;        writestr loc     - string at loc 'loc'
;        writestr #'ABC'  - string='ABC'
;        writestr         - A,Y has loc of string         
;...............................................................
	MACRO
	writestr &addr
	IF &addr­'' THEN
		IF &addr[1:1]='#' THEN
			bra		@b
			LCLC	&sset
&sset		SETC	&SETTING('STRING')
			STRING	PASCAL
@a			DC.B	&addr[2:255]
			STRING	&sset
@b			pea		@a>>16
			pea		|@a
		ELSE
			pea		&addr>>16
			pea		|&addr
		ENDIF
	ELSE
		phy
		pha
	ENDIF
		ldx		#$1C0C
		jsl		$E10000
	MEND
;...............................................................
;
;        Write line (string+CR)
;
;        writeline loc     - string at loc 'loc'
;        writeline #'ABC'  - string='ABC'
;        writeline 'ABC'   - string='ABC'
;        writeline         - CR only
;
;...............................................................
	MACRO
	writeline &addr
	IF &addr­'' THEN
		IF &addr[1:1]='#' OR &addr[1:1]='''' THEN
			bra		@b
			LCLC	&sset
&sset		SETC	&SETTING('STRING')
			STRING	PASCAL
			IF &addr[1:1]='#' THEN
@a				DC.B	&addr[2:255]
			ELSE
@a				DC.B	&addr[1:255]
			ENDIF
			STRING	&sset
@b			pea		@a>>16
			pea		|@a
		ELSE
			pea		&addr>>16
			pea		|&addr
		ENDIF
	ELSE
		pea		@c+1>>16
		pea		|@c+1
	ENDIF
		ldx		#$1A0C
@c		jsl		$E10000
	MEND
;...............................................................
;
;        Write character
;
;        writech          - char in A register
;        writech #'A'     - char='A'
;        writech ch,x     - char in loc 'ch,x'
;...............................................................
	MACRO
	writech &addr,&reg
	IF &addr­'' THEN
		IF &reg­'' THEN
			lda		&addr,&reg
		ELSE
			lda		&addr
		ENDIF
	ENDIF
		pha
		ldx		#$180C
		jsl		$E10000
	MEND
;...............................................................
;
;              Read a char from keyboard
;
;        readch addr     - char stored in 'addr'
;        readch          - char left in A register
;
;...............................................................
	MACRO
	readch &addr
		pea		0
		pea		1
		ldx		#$220C
		jsl		$E10000
		pla
	IF &addr­'' THEN
		sta		&addr
	ENDIF
	MEND

;
; DSect &Value
;
; Begin local data section.  This defines a dummy PC
; register which can be used in equates to avoid error-
; prone linked equates for setting up direct page or
; stack offsets.  The dummy PC begins at &Value and
; is updated by the appropriate amount by the BYTE,
; WORD, LONG, and BLOCK macros.
;
 MACRO
 DSect &Value
DummyPC SET &Value
 MEND


;
; DefineStack
;
; This is a specialized data section which defines
; a dummy PC starting at 1 in order to define a
; series of stack offsets using the BYTE, WORD,
; LONG, and BLOCK macros.
;
 MACRO
 DefineStack
DummyPC SET 1
 MEND

;
; &lab byte
;
; Equate the given label with the current dummy
; PC (defined by DSect, GlobalDSect, or
; DefineStack), and update the dummy PC by the
; appropriate amount.
;
 MACRO
&lab BYTE
&lab equ DummyPC
DummyPC SET DummyPC+1
 MEND

;
; &lab word
;
; Equate the given label with the current dummy
; PC (defined by DSect, GlobalDSect, or
; DefineStack), and update the dummy PC by the
; appropriate amount.
;
 MACRO
&lab WORD
&lab equ DummyPC
DummyPC SET DummyPC+2
 MEXIT
 MEND

;
; &lab long
;
; Equate the given label with the current dummy
; PC (defined by DSect, GlobalDSect, or
; DefineStack), and update the dummy PC by the
; appropriate amount.
;
 MACRO
&lab LONG
&lab equ DummyPC
DummyPC SET DummyPC+4
 MEND

;
; &lab block &size
;
; Equate the given label with the current dummy
; PC (defined by DSect, GlobalDSect, or
; DefineStack), and update the dummy PC by the
; appropriate amount (&size bytes).
;
 MACRO
&lab BLOCK &Value
 if &lab = '' goto .skiplab
&lab equ DummyPC
.skiplab
DummyPC SET DummyPC+&Value
 MEND

;
; &lab DSectSize
;
; This macro equates the given label with the
; current dummy PC defined by the DSect,
; GlobalDSect, or DefineStack macros.  This is
; useful for determing the size of data sections
; or parts of data sections.
;
 MACRO
&lab DSectSize
&lab equ DummyPC
 MEND

;
; &lab EndLocals
;
; This macro equates the given label with the
; current DummyPC-1 defined by the DSect,
; GlobalDSect, or DefineStack macros.  This is
; useful for determing the stack usage of locals.
;
 MACRO
&lab EndLocals
&lab equ DummyPC-1
 MEND

;
; CheckSize &size,&limit
;
; This macro causes an assembler error if
; &size > &limit.  Useful in checking the size
; of direct page assignments.
;
 MACRO
 CheckSize &size,&limit
 IF &Eval(&size)<=&Eval(&limit) goto .DONE
 AError 'Programmer-specified size limit exceeded: ABORT ASSEMBLY!'
.DONE
 MEND

;
; BegParms - description to be supplied at a future date.
;
 MACRO
 BegParms
BegParmsPC SET DummyPC
 MEND

;
; EndParms - description to be supplied at a future date.
;
 MACRO
&lab EndParms
&lab equ DummyPC-BegParmsPC
 MEND

;...............................................................
;
; Define a sequence of hexadecimal bytes
;
; Usage:
;
; [label]		hex		hexstring
;
; hexstring must consist of hexadecimal digits ONLY (0..9, A..F, a..f)
; and must contain an even number of digits.  No spaces, commas, or
; other characters are allowed.
;
; The macro's primary purpose is to allow the definition of pixel
; maps (such as icons or cursors) while still allowing the programmer
; to "see" the defined image at the source code level.
;
;...............................................................
 				MACRO
				hex		&arg
				lclc	&bytes,&hexStr
; put the arg into a local variable
&hexStr			setc	&arg
; make sure we've got an even # of bytes
				if		(&len(&hexStr) AND 1) <> 0 then
					aerror	'Odd number of bytes in HEX directive'
&hexStr				setc	&concat(&hexstr,'0')
				endif
; start the dc.b argument string
&bytes			setc	&concat('$',&substr(&hexStr,1,2))
&hexStr			setc	&substr(&hexStr,3, &len(&hexStr)-2)
; while there's something in the supplied argument string...
				while	&len(&hexStr)>0 do
; copy 2 digits from the string to the dc.b string...
&bytes				setc	&concat(&bytes,',$',&substr(&hexStr,1,2))
; then remove the first two digits from the supplied string
&hexStr				setc	&substr(&hexStr,3, &len(&hexStr)-2)
				endwhile
; produce the actual bytes
				dc.b	&bytes
				MEND

; File:  M16.Video
;
;
; Copyright Apple Computer, Inc. 1986-90
; All Rights Reserved
;
;
 MACRO
&lab _VDBootInit
&lab ldx #$0121
     jsl $E10000
 MEND
 MACRO
&lab _VDGetFeatures
&lab ldx #$1B21
     jsl $E10000
 MEND
 MACRO
&lab _VDGGControl
&lab ldx #$1D21
     jsl $E10000
 MEND
 MACRO
&lab _VDGGStatus
&lab ldx #$1E21
     jsl $E10000
 MEND
 MACRO
&lab _VDInControl
&lab ldx #$1C21
     jsl $E10000
 MEND
 MACRO
&lab _VDInConvAdj
&lab ldx #$0C21
     jsl $E10000
 MEND
 MACRO
&lab _VDInGetStd
&lab ldx #$0B21
     jsl $E10000
 MEND
 MACRO
&lab _VDInSetStd
&lab ldx #$0A21
     jsl $E10000
 MEND
 MACRO
&lab _VDInStatus
&lab ldx #$0921
     jsl $E10000
 MEND
 MACRO
&lab _VDKeyControl
&lab ldx #$0D21
     jsl $E10000
 MEND
 MACRO
&lab _VDKeyGetKBCol
&lab ldx #$1221
     jsl $E10000
 MEND
 MACRO
&lab _VDKeyGetKDiss
&lab ldx #$1421
     jsl $E10000
 MEND
 MACRO
&lab _VDKeyGetKGCol
&lab ldx #$1121
     jsl $E10000
 MEND
 MACRO
&lab _VDKeyGetKRCol
&lab ldx #$1021
     jsl $E10000
 MEND
 MACRO
&lab _VDKeyGetNKDiss
&lab ldx #$1621
     jsl $E10000
 MEND
 MACRO
&lab _VDKeySetKCol
&lab ldx #$0F21
     jsl $E10000
 MEND
 MACRO
&lab _VDKeySetKDiss
&lab ldx #$1321
     jsl $E10000
 MEND
 MACRO
&lab _VDKeySetNKDiss
&lab ldx #$1521
     jsl $E10000
 MEND
 MACRO
&lab _VDKeyStatus
&lab ldx #$0E21
     jsl $E10000
 MEND
 MACRO
&lab _VDOutControl
&lab ldx #$1921
     jsl $E10000
 MEND
 MACRO
&lab _VDOutGetStd
&lab ldx #$1821
     jsl $E10000
 MEND
 MACRO
&lab _VDOutSetStd
&lab ldx #$1721
     jsl $E10000
 MEND
 MACRO
&lab _VDOutStatus
&lab ldx #$1A21
     jsl $E10000
 MEND
 MACRO
&lab _VDReset
&lab ldx #$0521
     jsl $E10000
 MEND
 MACRO
&lab _VDShutDown
&lab ldx #$0321
     jsl $E10000
 MEND
 MACRO
&lab _VDStartUp
&lab ldx #$0221
     jsl $E10000
 MEND
 MACRO
&lab _VDStatus
&lab ldx #$0621
     jsl $E10000
 MEND
 MACRO
&lab _VDVersion
&lab ldx #$0421
     jsl $E10000
 MEND
; File:  M16.Window
;
;
; Copyright Apple Computer, Inc. 1986-91
; All Rights Reserved
;
;
 MACRO
&lab _AlertWindow
&lab ldx #$590E
     jsl $E10000
 MEND
 MACRO
&lab _BeginUpdate
&lab ldx #$1E0E
     jsl $E10000
 MEND
 MACRO
&lab _BringToFront
&lab ldx #$240E
     jsl $E10000
 MEND
 MACRO
&lab _CheckUpdate
&lab ldx #$0A0E
     jsl $E10000
 MEND
 MACRO
&lab _CloseWindow
&lab ldx #$0B0E
     jsl $E10000
 MEND
 MACRO
&lab _CompileText
&lab ldx #$600E
     jsl $E10000
 MEND
 MACRO
&lab _Desktop
&lab ldx #$0C0E
     jsl $E10000
 MEND
 MACRO
&lab _DragWindow
&lab ldx #$1A0E
     jsl $E10000
 MEND
 MACRO
&lab _DrawInfoBar
&lab ldx #$550E
     jsl $E10000
 MEND
 MACRO
&lab _EndFrameDrawing
&lab ldx #$5B0E
     jsl $E10000
 MEND
 MACRO
&lab _EndInfoDrawing
&lab ldx #$510E
     jsl $E10000
 MEND
 MACRO
&lab _EndUpdate
&lab ldx #$1F0E
     jsl $E10000
 MEND
 MACRO
&lab _ErrorWindow
&lab ldx #$620E
     jsl $E10000
 MEND
 MACRO
&lab _FindWindow
&lab ldx #$170E
     jsl $E10000
 MEND
 MACRO
&lab _FrontWindow
&lab ldx #$150E
     jsl $E10000
 MEND
 MACRO
&lab _GDRPrivate
&lab ldx #$540E
     jsl $E10000
 MEND
 MACRO
&lab _GetContentDraw
&lab ldx #$480E
     jsl $E10000
 MEND
 MACRO
&lab _GetContentOrigin
&lab ldx #$3E0E
     jsl $E10000
 MEND
 MACRO
&lab _GetContentRgn
&lab ldx #$2F0E
     jsl $E10000
 MEND
 MACRO
&lab _GetDataSize
&lab ldx #$400E
     jsl $E10000
 MEND
 MACRO
&lab _GetDefProc
&lab ldx #$310E
     jsl $E10000
 MEND
 MACRO
&lab _GetFirstWindow
&lab ldx #$520E
     jsl $E10000
 MEND
 MACRO
&lab _GetFrameColor
&lab ldx #$100E
     jsl $E10000
 MEND
 MACRO
&lab _GetInfoDraw
&lab ldx #$4A0E
     jsl $E10000
 MEND
 MACRO
&lab _GetInfoRefCon
&lab ldx #$350E
     jsl $E10000
 MEND
 MACRO
&lab _GetMaxGrow
&lab ldx #$420E
     jsl $E10000
 MEND
 MACRO
&lab _GetNextWindow
&lab ldx #$2A0E
     jsl $E10000
 MEND
 MACRO
&lab _GetPage
&lab ldx #$460E
     jsl $E10000
 MEND
 MACRO
&lab _GetRectInfo
&lab ldx #$4F0E
     jsl $E10000
 MEND
 MACRO
&lab _GetScroll
&lab ldx #$440E
     jsl $E10000
 MEND
 MACRO
&lab _GetStructRgn
&lab ldx #$2E0E
     jsl $E10000
 MEND
 MACRO
&lab _GetSysWFlag
&lab ldx #$4C0E
     jsl $E10000
 MEND
 MACRO
&lab _GetUpdateRgn
&lab ldx #$300E
     jsl $E10000
 MEND
 MACRO
&lab _GetWControls
&lab ldx #$330E
     jsl $E10000
 MEND
 MACRO
&lab _GetWFrame
&lab ldx #$2C0E
     jsl $E10000
 MEND
 MACRO
&lab _GetWKind
&lab ldx #$2B0E
     jsl $E10000
 MEND
 MACRO
&lab _GetWMgrPort
&lab ldx #$200E
     jsl $E10000
 MEND
 MACRO
&lab _GetWRefCon
&lab ldx #$290E
     jsl $E10000
 MEND
 MACRO
&lab _GetWTitle
&lab ldx #$0E0E
     jsl $E10000
 MEND
 MACRO
&lab _GetWindowMgrGlobals
&lab ldx #$580E
     jsl $E10000
 MEND
 MACRO
&lab _GetZoomRect
&lab ldx #$370E
     jsl $E10000
 MEND
 MACRO
&lab _GrowWindow
&lab ldx #$1B0E
     jsl $E10000
 MEND
 MACRO
&lab _HideWindow
&lab ldx #$120E
     jsl $E10000
 MEND
 MACRO
&lab _HiliteWindow
&lab ldx #$220E
     jsl $E10000
 MEND
 MACRO
&lab _InvalRect
&lab ldx #$3A0E
     jsl $E10000
 MEND
 MACRO
&lab _InvalRgn
&lab ldx #$3B0E
     jsl $E10000
 MEND
 MACRO
&lab _MoveWindow
&lab ldx #$190E
     jsl $E10000
 MEND
 MACRO
&lab _NewWindow
&lab ldx #$090E
     jsl $E10000
 MEND
 MACRO
&lab _NewWindow2
&lab ldx #$610E
     jsl $E10000
 MEND
 MACRO
&lab _PinRect
&lab ldx #$210E
     jsl $E10000
 MEND
 MACRO
&lab _RefreshDesktop
&lab ldx #$390E
     jsl $E10000
 MEND
 MACRO
&lab _ResizeWindow
&lab ldx #$5C0E
     jsl $E10000
 MEND
 MACRO
&lab _SelectWindow
&lab ldx #$110E
     jsl $E10000
 MEND
 MACRO
&lab _SendBehind
&lab ldx #$140E
     jsl $E10000
 MEND
 MACRO
&lab _SetContentDraw
&lab ldx #$490E
     jsl $E10000
 MEND
 MACRO
&lab _SetContentOrigin
&lab ldx #$3F0E
     jsl $E10000
 MEND
 MACRO
&lab _SetContentOrigin2
&lab ldx #$570E
     jsl $E10000
 MEND
 MACRO
&lab _SetDataSize
&lab ldx #$410E
     jsl $E10000
 MEND
 MACRO
&lab _SetDefProc
&lab ldx #$320E
     jsl $E10000
 MEND
 MACRO
&lab _SetFrameColor
&lab ldx #$0F0E
     jsl $E10000
 MEND
 MACRO
&lab _SetInfoDraw
&lab ldx #$160E
     jsl $E10000
 MEND
 MACRO
&lab _SetInfoRefCon
&lab ldx #$360E
     jsl $E10000
 MEND
 MACRO
&lab _SetMaxGrow
&lab ldx #$430E
     jsl $E10000
 MEND
 MACRO
&lab _SetOriginMask
&lab ldx #$340E
     jsl $E10000
 MEND
 MACRO
&lab _SetPage
&lab ldx #$470E
     jsl $E10000
 MEND
 MACRO
&lab _SetScroll
&lab ldx #$450E
     jsl $E10000
 MEND
 MACRO
&lab _SetSysWindow
&lab ldx #$4B0E
     jsl $E10000
 MEND
 MACRO
&lab _SetWFrame
&lab ldx #$2D0E
     jsl $E10000
 MEND
 MACRO
&lab _SetWRefCon
&lab ldx #$280E
     jsl $E10000
 MEND
 MACRO
&lab _SetWTitle
&lab ldx #$0D0E
     jsl $E10000
 MEND
 MACRO
&lab _SetWindowIcons
&lab ldx #$4E0E
     jsl $E10000
 MEND
 MACRO
&lab _SetZoomRect
&lab ldx #$380E
     jsl $E10000
 MEND
 MACRO
&lab _ShowHide
&lab ldx #$230E
     jsl $E10000
 MEND
 MACRO
&lab _ShowWindow
&lab ldx #$130E
     jsl $E10000
 MEND
 MACRO
&lab _SizeWindow
&lab ldx #$1C0E
     jsl $E10000
 MEND
 MACRO
&lab _StartDrawing
&lab ldx #$4D0E
     jsl $E10000
 MEND
 MACRO
&lab _StartFrameDrawing
&lab ldx #$5A0E
     jsl $E10000
 MEND
 MACRO
&lab _StartInfoDrawing
&lab ldx #$500E
     jsl $E10000
 MEND
 MACRO
&lab _TaskMaster
&lab ldx #$1D0E
     jsl $E10000
 MEND
 MACRO
&lab _TaskMasterContent
&lab ldx #$5D0E
     jsl $E10000
 MEND
 MACRO
&lab _TaskMasterDA
&lab ldx #$5F0E
     jsl $E10000
 MEND
 MACRO
&lab _TaskMasterKey
&lab ldx #$5E0E
     jsl $E10000
 MEND
 MACRO
&lab _TrackGoAway
&lab ldx #$180E
     jsl $E10000
 MEND
 MACRO
&lab _TrackZoom
&lab ldx #$260E
     jsl $E10000
 MEND
 MACRO
&lab _ValidRect
&lab ldx #$3C0E
     jsl $E10000
 MEND
 MACRO
&lab _ValidRgn
&lab ldx #$3D0E
     jsl $E10000
 MEND
 MACRO
&lab _WindBootInit
&lab ldx #$010E
     jsl $E10000
 MEND
 MACRO
&lab _WindDragRect
&lab ldx #$530E
     jsl $E10000
 MEND
 MACRO
&lab _WindNewRes
&lab ldx #$250E
     jsl $E10000
 MEND
 MACRO
&lab _WindReset
&lab ldx #$050E
     jsl $E10000
 MEND
 MACRO
&lab _WindShutDown
&lab ldx #$030E
     jsl $E10000
 MEND
 MACRO
&lab _WindStartUp
&lab ldx #$020E
     jsl $E10000
 MEND
 MACRO
&lab _WindStatus
&lab ldx #$060E
     jsl $E10000
 MEND
 MACRO
&lab _WindVersion
&lab ldx #$040E
     jsl $E10000
 MEND
 MACRO
&lab _WindowGlobal
&lab ldx #$560E
     jsl $E10000
 MEND
 MACRO
&lab _ZoomWindow
&lab ldx #$270E
     jsl $E10000
 MEND

 MACRO
&lab _GetAuxWindInfo
&lab ldx #$630E
     jsl $E10000
 MEND
 MACRO
&lab _DoModalWindow
&lab ldx #$640E
     jsl $E10000
 MEND
 MACRO
&lab _MWGetCtlPart
&lab ldx #$650E
     jsl $E10000
 MEND
 MACRO
&lab _MWSetMenuProc
&lab ldx #$660E
     jsl $E10000
 MEND
 MACRO
&lab _MWStdDrawProc
&lab ldx #$670E
     jsl $E10000
 MEND
 MACRO
&lab _MWSetUpEditMenu
&lab ldx #$680E
     jsl $E10000
 MEND
 MACRO
&lab _FindCursorCtl
&lab ldx #$690E
     jsl $E10000
 MEND
 MACRO
&lab _ResizeInfoBar
&lab ldx #$6A0E
     jsl $E10000
 MEND
 MACRO
&lab _HandleDiskInsert
&lab ldx #$6B0E
     jsl $E10000
 MEND
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Finder/buffers.aii b/IIGS.601.SRC/A.U.G/Finder/buffers.aii
new file mode 100644
index 0000000..126d66b
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Finder/buffers.aii
@@ -0,0 +1 @@
+
; Buffers.aii
;
; Buffers used by the Apple IIGS Finder
;
; Copyright Apple Computer, Inc.  1991
;
; By Andy Nicholas
;.....................................................................

		INCLUDE	'Finder.equ'
		INCLUDE 'Strings.equ'
		INCLUDE 'All.Macros'
		
Buffers		PROC	EXPORT

FinderInfo	RECORD	0
location	DS.W	2			; folder's location
windRect	DS.W	4			; folder's rectangle
windView	DS.W	1			; folder's view
windScroll	DS.W	2			; scroll position
		ENDR 

;		IMPORT	clip_guts
;
;;
;; Clipboard window parameter block
;;
;		EXPORT	clip_param
;clip_param	DC.W	clip_end-clip_param	;Document window template.
;		DC.W	%1101111111000001	;Window's flags.
;		DC.L	clipBlk+windtitle	;Pointer to window's title.
;		DC.L	clipBlk			;Pointer to window's info block.
;		DC.W	zY1-10,zX1,zY2,zX2	;Zoom RECT.	
;		EXPORT	clip_color
;clip_color	DC.L	0			;Pointer to color table.
;		DC.W	0			;Y origin.
;		DC.W	0			;X origin.
;		DC.W	300			;Data height.
;		DC.W	700			;Data width.
;		DC.W	200			;Window's maximum grow height.
;		DC.W	640			;Window's maximum grow width.
;		DC.W	8			;Number of pixels to scroll vertically.
;		DC.W	20			;Number of pixels to scroll horizontally.
;		DC.W	0			;Number of pixels to page vertically.
;		DC.W	0			;Number of pixels to page horizontally.
;		DC.L	0			;Infomation bar text string.
;		DC.W	0			;Height of information bar.
;		DC.L	0			;DefProc.
;		DC.L	0			;Routine to draw info bar.
;		DC.L	clip_guts+$80000000	;Routine to draw content.
;		DC.W	120,20,180,500		;Size/Position of content.
;		DC.L	$FFFFFFFF		;Plane to put window up in (top most).
;		DC.L	0			;Address of memory for window record.
;		EXPORT	clip_end
;clip_end
	
;
; Verify window parameter block:		
;
		EXPORT	verify_param
verify_param	DC.W	verify_end-verify_param	
		DC.W	%1101111110110001	Window's flags.
		EXPORT	verifyTPtr
verifyTPtr	DC.L	0			Pointer	to window's title.
		EXPORT	verifyBlkPtr
verifyBlkPtr	DC.L	0			Pointer	to window's info block.
		DC.W	zY1,zX1,zY2,zX2		Zoom RECT
		EXPORT	verifyColor
verifyColor	DC.L	0			Pointer	to color table.
		DC.W	0			Y origin.
		DC.W	0			X origin.
		EXPORT	verifyHeight
verifyHeight	DC.W	300			Data height.
		EXPORT	verifyWidth
verifyWidth	DC.W	700			Data width.
		DC.W	200			Window's maximum grow height.
		DC.W	540			Window's maximum grow width.
		DC.W	8			Number of pixels to scroll vertically.
		DC.W	20			Number of pixels to scroll horizontally.
		DC.W	0			Number of pixels to page vertically.
		DC.W	0			Number of pixels to page horizontally.
		EXPORT	verifyInfoRef
verifyInfoRef	DC.L	0			Infomation bar text string.
		DC.W	11			Height of information bar.
		DC.L	0			Window frame defProc (default).
		EXPORT	verifyInfoProc
verifyInfoProc	DC.L	0			Routine	to draw	info. bar.
		EXPORT	verifyGutsProc
verifyGutsProc	DC.L	0			Routine	to draw	content.
		EXPORT	verifywRect
verifywRect	DC.W	0,0,0,0			Size/Position of content (dynamic).
		DC.L	$FFFFFFFF		Plane to put window up in (top most).
		DC.L	0			Address	of memory for window record.
		EXPORT	verify_end
verify_end

;
; rest of the stuff we use
;
		EXPORT	GetBootVolList
GetBootVolList	DC.W	1			;pcount
		DC.L	C1_BootNameBuf		;ptr to boot volume name buffer

C1_BootNameBuf 	DC.W	36
		EXPORT	C1_BootName
C1_BootName	DS.B	34			

;
; ----------------------------------------------------------------------------------
; EVERYTHING BELOW THIS POINT MUST BE COMPOSED OF ZEROES TO PRESERVE THE SPARSENESS
; OF THIS SECTION OF THE FINDER.  THIS REDUCES FINDER'S SPACE ON DISK A LOT.
; ----------------------------------------------------------------------------------
;

;
; Verify window's info block
;
		EXPORT	verifyBlk
verifyBlk	DC.L	0		;Handle of first icon in window.
		DC.W	0		;Verify window ID number.
		DC.W	0		;View by icon (not used).
		DC.L	0		;Handle of opening icon.
		DC.L	0		;disk icon which is the root of the window
		DC.W	0		;Number of items in window (not used).
		EXPORT	verifyData
verifyData	DC.L	0		;Bytes used in disk (not used).
		DC.L	0		;Bytes free on disk (not used).
		dc.w	0		;verify fst
		dc.w	0		;windAccess
		dc.w	0		;verifyDirty
		DS.B	54
		DS.B	2
		DS.B	52
		EXPORT	endVerifyBlk
endVerifyBlk

;
; Validate window's info block
;
		EXPORT	validateBlk
validateBlk	DC.L	0		;Handle of first icon in window.
		DC.W	0		;Verify window ID number.
		DC.W	0		;View by icon (not used).
		DC.L	0		;Handle of opening icon.
		DC.L	0		;disk icon which is the root of the window
		DC.W	0		;Number of items in window (not used).
		EXPORT	validateData
validateData	DC.L	0		;Bytes used in disk (not used).
		DC.L	0		;Bytes free on disk (not used).
		dc.w	0		;validate FST
		dc.w	0		;windAccess
		dc.w	0		;validate dirty
		DS.B	54
		DS.B	2
		DS.B	52
		EXPORT	endValidateBlk
endValidateBlk

;
; Clipboard window's info block:
;
		EXPORT	clipBlk
clipBlk		DC.L	0		;Handle of first icon in window.
		DC.W	0		;Clipboard window ID number (filled in)
		DC.W	0		;View by icon (not used).
		DC.L	0		;Handle of opening icon (not used).
		DC.L	0		;disk icon which is the root of the window
		DC.W	0		;Number of items in window (not used).
		DC.L	0		;Bytes used in disk (not used).
		DC.L	0		;Bytes free on disk (not used).
		ds.b	2		;windFST
		ds.b	2		;windAccess
		ds.b	2		;is clipboard dirty?
		ds.b	54		;window title
		ds.b	2		;window menu title
		ds.b	52		;window menu title text

;
; about window's info block:
;
		EXPORT	aboutBlk
aboutBlk	DC.L	0		;Handle of first icon in window.
		DC.W	0		;About box window ID number (filled in)
		DC.W	0		;View by icon (not used).
		DC.L	0		;Handle of opening icon (not used).
		DC.L	0		;disk icon which is the root of the window
		DC.W	0		;Number of items in window (not used).
		DC.L	0		;Bytes used in disk (not used).
		DC.L	0		;Bytes free on disk (not used).
		ds.b	2		;about box FST (yeah, right)
		ds.b	2		;windAccess
		ds.b	2		;is about dirty?
		ds.b	54		;window title
		ds.b	2		;window menu title
		ds.b	52		;window menu title text

;
; help window's info block:
;
		EXPORT	helpBlk
helpBlk		DC.L	0		;Handle of first icon in window.
		DC.W	0		;About window ID number (filled in)
		DC.W	0		;View by icon (not used).
		DC.L	0		;Handle of opening icon (not used).
		DC.L	0		;disk icon which is the root of the window
		DC.W	0		;Number of items in window (not used).
		DC.L	0		;Bytes used in disk (not used).
		DC.L	0		;Bytes free on disk (not used).
		ds.b	2		;help window fst
		ds.b	2		;windAccess
		ds.b	2		;is about dirty?
		ds.b	54		;window title
		ds.b	2		;window menu title
		ds.b	52		;window menu title text

;
; Trash	window's info block:
;
		EXPORT	TrashBlk
TrashBlk	DC.L	0		;Handle of first icon in window.
		DC.W	0		;Trash window ID number (filled in)
		DC.W	0		;View by icon.
		EXPORT	TrashIc
TrashIc		DC.L	0		;Handle of Trash icon.
		DC.L	0		;disk icon which is the root of the window
		DC.W	0		;Number of items in window.
		DC.L	0		;Bytes used in disk.
		DC.L	0		;Bytes free on disk.
		DC.w	0		;help FST (nada)
		DS.b	2		;windAccess
		DS.b	2		;dirty flag
		DS.B	54		;rest of window title space
		DS.B	2		;window menu title
		DS.B	52

;
; ONLY ZEROES go from here to the end to preserve our sparseness
;
		EXPORT	BothRects
bothRects	ds.b	16

		EXPORT	itemsInFolderStr
itemsInFolderStr ds.b	7
		EXPORT	folderMemStr
folderMemStr	ds.b	7
		EXPORT	availMemStr
availMemStr	ds.b	7

		EXPORT	Finfo
Finfo		DS	FinderInfo

		EXPORT	ExtensionIDs
ExtensionIDs	ds.b	MaxExtensions*2

		EXPORT	spotHash
spotHash	DS.B 	200			;Hash table for open icon spots.

		EXPORT	C1_QuitName
C1_QuitName	DS.B	MaxPathLen+2	 	;class 1 input string	

;
; buffers used primarily by misc.aii
;
		EXPORT	levelArray
levelArray	DS.B	MaxPathLen+2

		EXPORT	C1_PathBuf
C1_PathBuf	DC.W	0			;class 1 output string (we stuff it on startup)
		EXPORT	C1_Path
C1_Path		DS.B	MaxPathLen+MaxFileName+2

		EXPORT	C1_SourceBuf
C1_SourceBuf	dc.w	0	
		EXPORT	C1_source
C1_Source	DS.B	(MaxFileName*4)+4	;class 1 input string

		EXPORT	C1_DestBuf
C1_DestBuf	dc.w	0
		EXPORT	C1_dest
C1_Dest		DS.B	(MaxFileName*4)+4	;class 1 input string


;
; all of the following 3 sets of buffers must be contiguous because they are zeroed
; out by 'allocateChains' in match.aii
;

		EXPORT	filetypeList
fileTypeList	ds.B	(256*4)
		EXPORT	deviceTypeList
deviceTypeList	ds.B	(256*4)

		EXPORT	fTypeInsertList
fTypeInsertList	ds.B	(256*4)
		EXPORT	dTypeInsertList
dTypeInsertList	ds.B	(256*4)
		
;
; PADDING
;
; The value below is strictly for padding a block out in the 6.0 GM build to
; pad it to be more sparse...
;
;		ds.b	64
		
		ENDP
		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Finder/common.aii b/IIGS.601.SRC/A.U.G/Finder/common.aii
new file mode 100644
index 0000000..a48666e
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Finder/common.aii
@@ -0,0 +1 @@
+****************************************************************
*							       *
*		     Common Strip Routines		       *
*			 Version 1.0D3			       *
*			August 13, 1986			       *
*							       *
; 05/23/88 DJB	- Added Darryl's Color Menu stuff
****************************************************************


****************************************************************
*							       *
*		    Copyright (C) 1985-1989		       *
*		    All	Rights Reserved			       *
*		    Apple Computer, Inc.		       *
*							       *
****************************************************************

		PRINT	OFF

		PRINT	NOGEN
		PRINT	NOSYM
		MACHINE	M65816
		INCLUDE	'ALL.MACROS'
		INCLUDE	'special.macros'
		INCLUDE	'E16.CONTROL'
		INCLUDE	'finder.equ'
		INCLUDE	'GetInfo.equ'

		PRINT	ON


DecBusyFlg	equ	$E10068

;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

		ENTRY	ErrOut


		seg	'CONTROL'

COMMON		PROC
		ENDP

****************************************************************
*
* EndCall Routines.
*
* Functions exit through the EndCall routines.	These routines
* fix the stack	by moving the RTL addresses up and stripping
* off any input	parameters.
*
* The number of	bytes to strip off the stack is	passed in the
* y-register.
*
* There	are 8 end call routines
*
*	EndCall	       Pulls D off stack before	cleaning up.  Sets
*		       a-reg to	zero and clears	carry.
*	oEndCall       Does not	pull D off the stack before
*		       cleaning	up.  Sets a-reg	to zero	and clears
*		       carry.
*	ErrOut	       Pulls D off stack, cleans up and	returns
*		       error code passed in x-register,	setting
*		       carry if	x is not zero.
*	oErrOut	       Does not	pull D off stack before	cleaning up.
*		       returns error code passed in x-register,
*		       setting carry if	x is not zero.
*
*	BusyEC	       Decrements the busy flag, pulls D off stack
*		       and cleans up.
*	oBusyEC	       Decrements the busy flag, does not pull D off stack
*		       and cleans up.
*	BusyErr	       Decrements the busy flag, pulls D off stack,
*		       cleans up and returns error code	passed in
*		       x-register, setting the carry if	x is not zero.
*	oBusyErr       Decrements the busy flag, does not pull D off
*		       the stack, cleans up and	returns	error code passed
*		       in x-register.
*
****************************************************************
		EXPORT	Strip
Strip		PROC

		EXPORT	BusyEC
BusyEC
		ldx	#0

		EXPORT	BusyErr
BusyErr
		jsl	DecBusyFlg
		bra	ErrOut

		EXPORT	EndCall
EndCall
		ldx	#0

		EXPORT	ErrOut
ErrOut
		pld			; restore direct register

		EXPORT	oErrOut
oErrOut					;       
		phy			; save amount to strip on stack
		tsc			; get stack pointer
		clc			; add to it the	amount to strip
		adc	1,s
		tay			; put this result in Y
		tsc			; get back orig	stack pointer
		phx			; save error on	stack
		tax			; put orig stack in X
		phb			; now save the data bank reg
		pea	$0000		; set data bank	reg to 0
		plb
		plb
		lda	|3+4,x		; now use x and	y to move 6 bytes
		sta	|3+4,y		; of rtl info from current pos
		lda	|3+2,x		; to final pos.
		sta	|3+2,y
		lda	|3+0,x
		sta	|3+0,y
		plb			; restore data bank register
		plx			; restore x register with error

		tsc			; get stack again
		clc			; bump it by amount to strip Plus 2
		adc	1,s		; to make up for amount	to strip
		adc	#2		; still	on stack
		tcs			; reset	stack pointer
		txa			; error	into a-reg
		cmp	#1		; set carry correctly
		rtl			; fini

		EXPORT	oBusyEC
oBusyEC					;       
		ldx	#0

		EXPORT	oBusyErr
oBusyErr				;       
		jsl	DecBusyFlg
		bra	oErrOut

		EXPORT	oEndCall
oEndCall				;       
		ldx	#0
		bra	oErrOut

		ENDP

*===============================================*
*	     Data for custom control		*
*===============================================*
MyData		RECORD

		ENTRY	Style:DATA
		ENTRY	FillRect:DATA
		ENTRY	Colors:DATA
		ENTRY	ColorPen:DATA
		ENTRY	ColorBack:DATA
		ENTRY	ColorIFore:DATA
		ENTRY	ColorIBack:DATA
		ENTRY	OldPenState:DATA
		ENTRY	NewPenState:DATA
		ENTRY	PenWidth:DATA
		ENTRY	PenPattern:DATA

Style		DC.W	0		;0 = vertical, 1 = horizontal

Colors
ColorPen	DC.W	0		;outline
ColorBack	DC.W	0		;interior
ColorIFore	DC.W	0		;indicator foreground
ColorIBack	DC.W	0		;indicator background (& solid)

OldPenState	DS.B	50		;space for PenState record

NewPenState	DC.W	0,0		;pen location
		DC.W	1		;pen height
PenWidth	DC.W	1		;pen width
		DC.W	$0000		;pen mode
PenPattern	DC.W	$0000,$0000,$0000,$0000	;pen pattern
		DC.W	$0000,$0000,$0000,$0000
		DC.W	$0000,$0000,$0000,$0000
		DC.W	$0000,$0000,$0000,$0000
		DC.B	$FF,$FF,$FF,$FF	;pen mask
		DC.B	$FF,$FF,$FF,$FF

FillRect				;indicator boundry rect
RectY1		DC.W	0
RectX1		DC.W	0
RectY2		DC.W	0
RectX2		DC.W	0

		ENDR

***********************************************************
*
COLORMENUDEF	PROC EXPORT
*
* by Steven E. Glass
* August 9, 1988
*
* Written in the middle of the night (the day we freeze
* to avoid using code created by the TML Pascal compiler.
*
* This is the menu definition procedure called by the
* MenuManager to draw our custom color menu.
*
* The menu is defined by cMenuRects in the file
* data.aii
*
* External Refs
*
* Entrys
*		none
*
* Mode
		longa on
		longi on
*
*************************************************************
GapH		equ	5
GapV		equ	2

True		equ	$FFFF
False		equ	$0000

		DefineStack
OrigD		word
RTLAdr		block 3
MenuParam	word
MenuY		word
MenuX		word
MenuRectPtr	long
MenuHandle	long
MenuMsg		word
ResultWord	word

SizeInputs	equ ResultWord-MenuParam


		phd
		tsc
		tcd
		phb
		phk
		plb
		
	
		stz ResultWord	; init result
	
		PushLong #SavedPenState
		_GetPenState
	
		pea     2
		pea     1
		_SetPenSize
	
		lda MenuMsg
		asl a
		tax
	
		jsr (MsgTable,x)
	
		PushLong #SavedPenState
		_SetPenState
	
		lda RTLAdr
		sta RTLAdr+SizeInputs
		lda RTLAdr+1
		sta RTLAdr+SizeInputs+1
	
		plb	; restore dbr
	
		pld
		tsc
		clc
		adc #SizeInputs
		tcs
		rtl


MsgTable	dc.W DrawMenu
		dc.W ChooseMenu
		dc.W SizeMenu
		dc.W DrawTitle
		dc.W DrawItem
		dc.W GetItemID


;-----------------------------------------------------------
;
; Draws the entire menu.
;
DrawMenu
		pea 0000
@loop		pla
		cmp #15
		bcs @done
	
		inc a
		pha
		ldx #0
		jsr DrawThisItem
	
		bra @loop
	
@Done		rts


;-----------------------------------------------------------
;
; Does the hit test for the menu manager.
;
ChooseMenu
; first check to point is even in the menu
 
		pha
		lda #MenuY
		jsr PushDP
		pei MenuRectPtr+2
		pei MenuRectPtr
		_PtInRect
		pla
		beq @NeverMind
	
; now loop through and find out which rect its in
;

		pea 0000	; start with zero
@loop		pla
		cmp #15
		bcs @done
	
		inc a	; bump and pub back on stack
		pha
	
		jsr MoveThisRectToTemp
		jsr OffsetTempRect
	
		lda TempRect	; expand for gaps between rects
		sec
		sbc #GapV
		sta TempRect
	
		lda TempRect+2
		sec
		sbc #GapH
		sta TempRect+2
	
		lda TempRect+4
		clc
		adc #GapV
		sta TempRect+4
	
		lda TempRect+6
		clc
		adc #GapH
		sta TempRect+6
	
		
		pha
		lda #MenuY
		jsr PushDP
		PushLong #TempRect
		_PtInRect
		pla
		beq @loop
	
; Found the right item.
;
		pla	; remove counter from stack
		ora #$8000
		sta ResultWord
	
		ldy #2	; check to see if menu is disabled
		lda [MenuHandle],y
		tax
		lda [MenuHandle]
		sta MenuHandle
		stx MenuHandle+2
	
		ldy #$000A	; offset to flags word
		lda [MenuHandle],y
		and #$0080	; is the m-disabled
		beq @nochange
	
		lda #$4000	; is disabled so set this bit
		tsb ResultWord
	
@nochange
@Done
@NeverMind
		rts

;-----------------------------------------------------------
;
; Do nothing, just return false.
;
SizeMenu
		rts
;-----------------------------------------------------------
;
; Do nothing, just return false.
DrawTitle
		rts

;-----------------------------------------------------------
;
; 
DrawItem
		lda MenuParam
		and #$3FFF
		ldx #True
		jsr DrawThisItem
	
		rts

;-----------------------------------------------------------
;
; 
GetItemID
		lda MenuParam		; take the incoming parameter
		cmp #$000D		; if D or greater, inc to avoid second gray
		bcc @NoPatch
		inc a
@NoPatch	clc			; add to offset to return desired id
		adc #idColorMenu
		sta ResultWord
		rts



;-----------------------------------------------------------
;
; Draws the desired item passed in a-reg
; Use x-reg as hilite flag
;

DrawThisItem
		phx
		pha
		jsr MoveThisRectToTemp
	
		jsr OffsetTempRect
	
		lda 3,s	; look at hilite flag
		beq @NoHilite
	
@Hilite
		dec TempRect
		inc TempRect+4
		lda TempRect+2
		sec
		sbc #4
		sta TempRect+2
		lda TempRect+6
		clc
		adc #4
		sta TempREct+6
	
		pea     4
		pea     1
		_SetPenSize
	
		pea     2
		_SetPenMode
	
		pea     $FFFF
		_SetSolidPenPat
	
		PushLong #TempRect
		_FrameRect
	
		pla
		pla
	
		rts
	
	
	
@NoHilite	
		pla			; which rect in a-reg
		PushLong #TempRect	; a-reg preserved
		pea     0		; still preserved
		dec a			; convert to 0 based counter to use as index
		asl a			; into table
		tax
		lda cMenuPats,x
		pha
		_SpecialRect
	
		pla	; clear off hilite flag
	
		rts
	


;-----------------------------------------------------------
;
; Offsets the temp rect by menu rect
;
OffsetTempRect
		lda TempRect	; offset the temp rect by menurect
		clc
		adc [MenuRectPtr]
		sta TempRect
		lda TempRect+2
		clc
		ldy #2
		adc [MenuRectPtr],y
		sta TempRect+2
	
		lda TempRect+4
		clc
		adc [MenuRectPtr]
		sta TempRect+4
		lda TempRect+6
		clc
		ldy #2
		adc [MenuRectPtr],y
		sta TempRect+6
	
		rts



;-----------------------------------------------------------
;
; Moves the rect passed in a-reg from rect table to
; temp rect.
;
MoveThisRectToTemp
		dec a			; convert to zero based counter
		asl a			; to use as index into table
		asl a
		asl a
		tax
	
		lda cMenuRects,x
		sta TempRect
		lda cMenuRects+2,x
		sta TempRect+2
		lda cMenuRects+4,x
		sta TempRect+4
		lda cMenuRects+6,x
		sta TempRect+6
		rts



;-----------------------------------------------------------
;
; pushes long pointer to offset on d-page
; a-reg contains the offset
;
PushDP
		plx			; save rts
		pea 0000		; hi word is zero
		pha			; put d-page offset on stack
		tdc
		clc			; add in d-page
		adc 1,s
		sta 1,s
		phx
		rts

;################################################################
;#								#
;#   Pre-Computed rectangles for each menu item, this takes a	#
;#   lot less space and is faster than doing the calculations	#
;#								#
;################################################################

cellV		equ	12	; height of a cell
cellH		equ	40	; width of a cell
	
cMenuRects	DC.W	1*gapV+0*cellV,1*gapH+0*cellH,1*gapV+1*cellV,1*gapH+1*cellH	; rect 0
		DC.W	1*gapV+0*cellV,2*gapH+1*cellH,1*gapV+1*cellV,2*gapH+2*cellH	; rect 1
		DC.W	1*gapV+0*cellV,3*gapH+2*cellH,1*gapV+1*cellV,3*gapH+3*cellH	; rect 2
	
		DC.W	2*gapV+1*cellV,1*gapH+0*cellH,2*gapV+2*cellV,1*gapH+1*cellH	; rect 3
		DC.W	2*gapV+1*cellV,2*gapH+1*cellH,2*gapV+2*cellV,2*gapH+2*cellH	; rect 4
		DC.W	2*gapV+1*cellV,3*gapH+2*cellH,2*gapV+2*cellV,3*gapH+3*cellH	; rect 5

		DC.W	3*gapV+2*cellV,1*gapH+0*cellH,3*gapV+3*cellV,1*gapH+1*cellH	; rect 6
		DC.W	3*gapV+2*cellV,2*gapH+1*cellH,3*gapV+3*cellV,2*gapH+2*cellH	; rect 7
		DC.W	3*gapV+2*cellV,3*gapH+2*cellH,3*gapV+3*cellV,3*gapH+3*cellH	; rect 8

		DC.W	4*gapV+3*cellV,1*gapH+0*cellH,4*gapV+4*cellV,1*gapH+1*cellH	; rect 9
		DC.W	4*gapV+3*cellV,2*gapH+1*cellH,4*gapV+4*cellV,2*gapH+2*cellH	; rect 10
		DC.W	4*gapV+3*cellV,3*gapH+2*cellH,4*gapV+4*cellV,3*gapH+3*cellH	; rect 11

		DC.W	5*gapV+4*cellV,1*gapH+0*cellH,5*gapV+5*cellV,1*gapH+1*cellH	; rect 12
		DC.W	5*gapV+4*cellV,2*gapH+1*cellH,5*gapV+5*cellV,2*gapH+2*cellH	; rect 13
		DC.W	5*gapV+4*cellV,3*gapH+2*cellH,5*gapV+5*cellV,3*gapH+3*cellH	; rect 14

;################################################################
;#								#
;#   patterns for each color menu item.				#
;#								#
;################################################################

cMenuPats	DC.W	$0000,$1111,$2222,$3333,$4444,$5555,$6666,$7777
		DC.W	$8888,$9999,$AAAA,$BBBB,$DDDD,$EEEE,$FFFF
	

TempRect	dc.w 0,0,0,0

SavedPenState	ds.b 50			; size of pen state record

		ENDP


*===============================================*
* Card deck Custom control DefProc		*
*===============================================*

		DefineStack
ctlPtr		long				;stack & DP offsets
ctlColorPtr	long
cardPtr		long
rtlAddr		block 3	
ctlHandle	long
ctlParam	long
ctlMessage	word
rtlValue	long

parmSize	SET	10			;bytes used by parameters




rect		RECORD  0
;----------------------------------------------
top		DS.W	1
left		DS.W	1
bottom		DS.W	1
right		DS.W	1
sizeOf
;-----------------------------------------------
		ENDR

CustCtlRecord	RECORD  0
;----------------------------------------------
ctlNext		DS.L	1
ctlOwner	DS.L	1
ctlRect		DS	rect
ctlFlag		DS.B	1
ctlHilite	DS.B	1
ctlValue	DS.W	1
ctlProc		DS.L	1
ctlAction	DS.L	1
ctlData		DS.L	1
ctlRefCon	DS.L	1
ctlColor	DS.L	1
ctlReserved	DS.B	16
ctlID		DS.L	1
ctlMoreFlags	DS.W	1
ctlVersion	DS.W	1
ctlTabHeight	DS.W	1
ctlTabWidth	DS.W	1
ctlTabSpace	DS.W	1
ctlCardCount	DS.W	1
sizeOf
;-----------------------------------------------
		ENDR

CardTemplate	RECORD  0
;----------------------------------------------
pCount		DS.W	1
id		DS.L	1
rect		DS	Rect
procRef		DS.L	1
flag		DS.W	1
moreFlags	DS.W	1
refCon		DS.L	1
value		DS.W	1
count		DS.W	1
tabHeight	DS.W	1
tabWidth	DS.W	1
tabSpace	DS.W	1
colorRef	DS.L	1
cardRef		DS.L	1
;-----------------------------------------------
		ENDR


partCodeBase	EQU	160			;application part codes

wireColor	EQU	$3333			;dark grey

cdStrings	EQU	2


; --- Color record offsets ---
outline		EQU	0			;outline color
background	EQU	outline+2		;background color
interior	EQU	background+2		;interior color
text		EQU	interior+2		;text color


*===============================================*
*	 Local Data for Custom Card Control	*
*===============================================*

CardData	PROC

		ENTRY	InteriorPat
InteriorPat	DS.B	32			;interior pattern (inside card)
		ENTRY	BackgroundPat
BackgroundPat	DS.B	32			;background pattern (outside card)	

		ENTRY	NumberOfCards
NumberOfCards	DC.W	0
		ENTRY	CurrentCard
CurrentCard	DC.W	0

		ENTRY	TabHeight
TabHeight	DC.W	0
		ENTRY	TabWidth
TabWidth	DC.W	0
		ENTRY	TabSpace
TabSpace	DC.W	0
		ENTRY	TabRect
TabRect		DS	rect

		ENTRY	MousePoint
MousePoint	DC.W	0		;current mouse position
	
		ENTRY	CardColorTbl
CardColorTbl	DC.W	$0000,$000F,$000F,$0000	;default color table

		ENTRY	FrameRect
FrameRect	DS	rect			;outside boundry rect

		ENTRY	TempPattern
TempPattern	DS.B	16			;space for shifted pattern

		ENTRY	SpiralPattern
SpiralPattern	DS.B	32
		
		ENTRY	WirePattern
WirePattern	DC.W	$0000			;8 x 8 spiral's wire pattern
		DC.W	$00F0
		DC.W	$0F0F
		DC.W	$0F00	
		DC.W	$0F00			;wire only
		DC.W	$0F00
		DC.W	$0F00
		DC.W	$0000
		
		ENTRY	BasePattern
		ENTRY	BasePattern2
BasePattern	DC.W	$0000			;8 x 8 spiral's base pattern
		DC.W	$0000
		DC.W	$0000
		DC.W	$FFFF			;outline & background (top)
BasePattern2	DC.W	$0000
		DC.W	$FFF0			
		DC.W	$F0F0
		DC.W	$FFF0			;hole & interior (bottom)

		ENTRY	TempRect
TempRect	DS	rect

		ENDP
	
*===============================================*
*          Setup Data for Custom Control	*
*						*
* - Creates QD Patterns:			*
*       Pen (PenPattern)			*
*       Interior (InteriorPat)			*
*       Backgorund (BackgroundPat)		*
* 						*
* INPUT:	--- In Direct Page ---		*
*		ctlParam   (Long)		*
*		ctlHandle  (Long)		*
*						*
* OUTPUT:	--- In Direct Page ---		*	
*		rtlValue   (Long)		*
*						*
*===============================================*
CardSetUp	PROC
		
		WITH	CustCtlRecord
		IMPORT	FillRect:rect
		IMPORT	FrameRect:rect

		ldy	#ctlFlag		;get style flag
		lda	[<ctlPtr],y
		and	#$0001
		sta	Style
		
		ldy	#ctlCardCount		;get number of cards
		lda	[<ctlPtr],y
		sta	NumberOfCards

		ldy	#ctlTabHeight		;get tab dimentions
		lda	[<ctlPtr],y
		sta	TabHeight
		ldy	#ctlTabWidth
		lda	[<ctlPtr],y
		sta	TabWidth
		ldy	#ctlTabSpace
		lda	[<ctlPtr],y
		sta	TabSpace
		
		ldy	#ctlValue		;get current card
		lda	[<ctlPtr],y
		sta	CurrentCard		

		ldy	#ctlData		;get card table ptr
		lda	[ctlPtr],y
		sta	cardPtr
		iny
		iny
		lda	[ctlPtr],y
		sta	cardPtr+2	

		jsr	SetColors		;create colors
		jsr	SetPatterns		;create patterns
		jsr	SetRectangles		;create rectangles
		
exit		rts
		
*===============================================*
*	Set up Colors from Color Table		*
*===============================================*

SetColors
		ldy	#ctlColor		;get color table ptr
		lda	[ctlPtr],y
		sta	<ctlColorPtr
		iny
		iny
		lda	[ctlPtr],y
		sta	<ctlColorPtr+2	
		ora	<ctlColorPtr
		bne	copyColors
		lda	#^CardColorTbl		;use default table
		sta	<ctlColorPtr+2
		lda	#CardColorTbl
		sta	<ctlColorPtr

copyColors
		ldy	#0
@loop0		lda	[<ctlColorPtr],y
		and	#$000F
		pha
		asl	a
		asl	a
		asl	a
		asl	a
		ora	1,s
		sta	1,s
		xba
		ora	1,s
		sta	Colors,y
		pla
		iny
		iny
		cpy	#4*2
		bcc	@loop0
		rts
		
*===============================================*
*	    Set up the Patterns			*
*===============================================*

SetPatterns					;create spiral pattern
		ldy	#6
@loop1		lda	BasePattern,y
		and	Colors+outline		;add outline color
		pha
		lda	BasePattern,y
		eor	#$FFFF
		and	Colors+background	;add background color
		ora	1,s
		sta	SpiralPattern,y		;save it
		lda	BasePattern2,y
		and	Colors+outline		;add outline color	
		sta	1,s
		lda	BasePattern2,y
		eor	#$FFFF
		and	Colors+interior		;add interior color
		ora	1,s
		sta	SpiralPattern+8,y	;save it
		pla
		dey
		dey
		bpl	@loop1

		ldy	#14
@loop2		lda	WirePattern,y
		and	#wireColor		;add wire color
		pha
		lda	WirePattern,y
		eor	#$FFFF
		and	SpiralPattern,y		;add base colors
		ora	1,s
		sta	SpiralPattern,y		;save it
		pla
		dey
		dey
		bpl	@loop2

						;create fill patterns
		ldy	#30
@loop3		lda	Colors+outline
		sta	PenPattern,y		;outline
		lda	Colors+interior
		sta	InteriorPat,y		;interior
		lda	Colors+background
		sta	BackgroundPat,y		;background
		dey
		dey
		bpl  @loop3
		
		rts
		
*===============================================*
*	    Set up the Rectangles		*
*===============================================*
		ENTRY	SetRectangles
SetRectangles					;calculate Fill & Frame rects
		ldy	#ctlRect
		lda	[ctlPtr],y	;Y1
		inc	a
		sta	FillRect.top
		inc	a
		inc	a
		sta	FrameRect.top
		iny
		iny
		lda	[ctlPtr],y	;X1
		sta	FrameRect.left
		inc	a
		inc	a
		sta	FillRect.left
		iny
		iny
		lda	[ctlPtr],y	;Y2
		sec
		sbc	#11
		sta	FrameRect.bottom
		dec	a
		sta	FillRect.bottom
		iny
		iny
		lda	[ctlPtr],y	;X2
		sta	FrameRect.right
		dec	a
		dec	a
		sta	FillRect.right
		rts
		
		ENDWITH
		ENDP
			
*===============================================*
*	Get X coordinate of Tab in A-reg	*
* 						*
* INPUT:	CurrentCard			*
*						*
* OUTPUT:	none				*	
*						*
*===============================================*
GetTabX		PROC

		IMPORT	FrameRect:rect

		cmp	#0
		beq	exit

		pha
		pha
		dec	a
		pha				; cards-1
		lda	TabWidth
		clc
		adc	#6			;tab spacing
		pha
		_Multiply			;(cards-1) * (width+spacing)
		pla
		plx
		clc
		adc	#6			;tab spacing
		adc	FrameRect.left

exit		rts
		
		ENDP
		
*===============================================*
*              Select Current Card's Tab	*
* 						*
* INPUT:	A-Reg has tab to select		*
*						*
* OUTPUT:	none				*	
*						*
*===============================================*
SelectTab	PROC

		IMPORT	FillRect:rect
		
		cmp	#0
		beq	exit
		pha				;save which tab
						;fill in all tabs
		PushWord FillRect.left		;X begin
		PushWord FillRect.bottom	;Y begin
		_MoveTo
		PushWord FillRect.right		;X end
		PushWord FillRect.bottom	;Y end
		_LineTo

		PushLong #InteriorPat
		_SetPenPat			;make pen an eraser

		pla				;get back which tab
		jsr	GetTabX
		pha				;X position
		PushWord FillRect.bottom	;Y position
		_MoveTo
		PushWord TabWidth		;X displacement
		pea     0			;Y displacement
		_Line				;fake active tab

		PushLong #PenPattern		;restore pattern
		_SetPenPat
exit		rts
		
		ENDP
		
*===============================================*
*    Draw controls by clearing invisible bit	*
* 						*
* INPUT:	card (a-reg)			*
*						*
* OUTPUT:	none				*	
*						*
*===============================================*
DrawControls	Proc

		WITH	CustCtlRecord

		dec	a
		bmi	exit			; bad card number
		asl	a
		asl	a
		tay
		
		lda	[<cardPtr],y		; get pointer to card's data
		clc
		adc	#4			; skip over string pointer
		tax				; save as index 
		iny
		iny
		lda	[<cardPtr],y
		sep	#$20
		pha				; set data bank
		plb
		rep	#$20

loop		lda	|$0000,x		; get control IDs
		ora	|$0002,x
		beq	done			; terminated by null ID
		phx
		pha				; space for handle (long)
		pha
		PushLong [<ctlPtr],ctlOwner
		PushLong |$0000,x		; ID of control
		_GetCtlHandleFromID
		_ShowControl			; show it
		plx
		
		lda	|$0000,x
		cmp	#idCommentFld
		bne	@notComment
		
		phx
		pha				; space for handle (long)
		pha
		PushLong [<ctlPtr],ctlOwner
		PushLong |$0000,x		; ID of control
		_GetCtlHandleFromID
		_MakeThisCtlTarget
		plx
		
@notComment	inx				; to next ID (long)
		inx
		inx
		inx
		bra	loop
		
done		phk
		plb				; restore data bank
exit		rts

		ENDWITH
		ENDP
		
*===============================================*
*    Hide controls by setting invisible bit	*
* 						*
* INPUT:	card (a-reg)			*
*						*
* OUTPUT:	none				*	
*						*
*===============================================*
HideControls	Proc
	
		WITH	CustCtlRecord

		dec	a
		bmi	exit			; bad card number
		asl	a
		asl	a
		tay
		
		lda	[<cardPtr],y		; get pointer to card's data
		clc
		adc	#4			; skip over string pointer
		tax				; save as index 
		iny
		iny
		lda	[<cardPtr],y
		sep	#$20
		pha				; set data bank
		plb
		rep	#$20

loop		lda	|$0000,x		; get control IDs
		ora	|$0002,x
		beq	done			; terminated by null ID
		phx
		pha				; space for handle (long)
		pha
		PushLong [<ctlPtr],ctlOwner	
		PushLong |$0000,x		; ID of control
		_GetCtlHandleFromID
		phd
		tsc
		tcd
		ldy 	#2			;dereference handle
		lda	[<$03],y
		tax
		lda	[<$03]
		sta	<$03
		stx	<$03+2
		ldy	#ctlFlag
		lda	[<$03],y		; get flag
		ora	#ctlInVis		; set invisible bit
		sta	[<$03],y		; set flag
		pld
		pla				; remove pointer
		pla
		plx
		inx				; to next ID (long)
		inx
		inx
		inx
		bra	loop
		
done		phk
		plb				; restore data bank
exit		rts

		ENDWITH
		ENDP
		
*===============================================*
*    Show controls by clearing invisible bit	*
* 						*
* INPUT:	card (a-reg), cardPtr		*
*						*
* OUTPUT:	none				*	
*						*
*===============================================*
ShowControls	Proc

		WITH	CustCtlRecord

		dec	a
		bmi	exit			; bad card number
		asl	a
		asl	a
		tay
		
		lda	[<cardPtr],y		; get pointer to card's data
		clc
		adc	#4			; skip over string pointer
		tax				; save as index 
		iny
		iny
		lda	[<cardPtr],y
		sep	#$20
		pha				; set data bank
		plb
		rep	#$20

loop		lda	|$0000,x		; get control IDs
		ora	|$0002,x
		beq	done			; terminated by null ID
		phx
		pha				; space for handle (long)
		pha
		PushLong [<ctlPtr],ctlOwner	
		PushLong |$0000,x		; ID of control
		_GetCtlHandleFromID
		phd
		tsc
		tcd
		ldy 	#2			; dereference handle
		lda	[<$03],y
		tax
		lda	[<$03]
		sta	<$03
		stx	<$03+2
		ldy	#ctlFlag
		lda	[<$03],y		; get flag
		and	#Å(ctlInVis)		; clear invisible bit
		sta	[<$03],y		; set flag
		pld
		pla				; remove pointer
		pla
		plx
		inx				; to next ID (long)
		inx
		inx
		inx
		bra	loop
		
done		phk
		plb				; restore data bank
exit		rts

		ENDWITH
		ENDP
		
*===============================================*
*            Draw the Custom Control		*
* 						*
* INPUT:	--- In Direct Page ---		*
*		ctlParam   (Long)		*
*		ctlHandle  (Long)		*
*						*
* OUTPUT:	--- In Direct Page ---		*	
*		rtlValue   (Long)		*
*						*
*===============================================*
MyDrawControl	Proc

		IMPORT	FillRect:rect
		IMPORT	FrameRect:rect
		WITH	CustCtlRecord

		jsr  CardSetUp
		
		pha				;space for handle
		pha
		_GetPort
		PushLong [ctlPtr],ctlOwner
		_SetPort			;set to our window
		
		PushLong #OldPenState		;save their settings
		_GetPenState
		PushLong #NewPenState		;use our settings
		_SetPenState
		
		lda	<ctlParam		;get part code
		beq	all			;0 means entire control
		sec
		sbc	#partCodeBase
		bra	select			;just draw this tab
		
all		pea	2			;make pen square
		pea	1
		_SetPenSize	
		PushLong #FrameRect
		_FrameRect			;draw card's frame
		pea	1			;restore pen size
		pea     1
		_SetPenSize	
		
;		PushLong #FillRect
;		PushLong #InteriorPat
;		_FillRect			;draw card's interior

		jsr	DrawSpiral		;draw spiral at top
		jsr	DrawTabs		;draw tabs at bottom
		jsr	DrawTabText		;draw tab text
		lda	CurrentCard
select		jsr	SelectTab		;select current tab
		
done		PushLong #OldPenState		;restore settings
		_SetPenState
		_SetPort
		stz	rtlValue
		stz	rtlValue+2
		rts
		
*===============================================*
*              Draw Tab Text			*
*===============================================*

DrawTabText	pha
		_GetBackColor
		PushWord Colors+interior
		_SetBackColor

		lda	#0
@text		pha				; save counter
		asl	a
		asl	a
		tay
		
		lda	[<cardPtr],y
		tax
		iny
		iny
		lda	[<cardPtr],y
		sep	#$20
		pha				; set data bank
		plb
		rep	#$20

		pha				; space for string width
		lda	|$0002,x		; push ptr to string
		pha
		sta	>StringPtr+2
		lda	|$0000,x
		pha
		sta	>StringPtr
		phk
		plb				; restore data bank
		_StringWidth
		lda	TabWidth
		sec
		sbc	1,s
		lsr	a
		sta	1,s			;offset inside tab
		
		lda	3,s			;card = counter + 1
		inc	a
		jsr	GetTabX			;offset to tab
		clc
		adc	1,s
		inc	a
		inc	a
		sta	1,s			;X start
		lda	TabHeight
		sbc	#7
		lsr	a
		clc
		adc	FrameRect.bottom
		adc	#7
		pha				;Y start
		_MoveTo
		PushLong StringPtr
		_DrawString

		pla				;get counter
		inc	a
		cmp	NumberOfCards
		bcc	@text

		_SetBackColor			;restore background pattern
		rts

StringPtr	DC.L	0


*===============================================*
*              Draw Spiral Part			*
*===============================================*

DrawSpiral	ldy	#ctlRect.top
		lda	[<ctlPtr],y
		and	#$0007			;get line offset
		asl	a
		tay				;Y = new start of pattern
		ldx	#0
loop		lda	SpiralPattern,x		;shift pattern for alignment
		sta	TempPattern,y
		iny
		iny
		cpy	#16
		bcc	here
		ldy	#0
here		inx
		inx
		cpx	#16
		bcc	loop

		PushLong #TempPattern		;change to spiral pattern
		_SetPenPat
		pea     1			;set pen to 1 x 8
		pea     8
		_SetPenSize	
		
		PushWord FillRect.left		;X position
		ldy	#ctlRect.top
		lda	[<ctlPtr],y
		pha				;Y position
		_MoveTo
		PushWord FillRect.right		;X position
		ldy	#ctlRect.top
		lda	[<ctlPtr],y
		pha				;Y position
		_LineTo

		pea     1			;restore pen size
		pea     1
		_SetPenSize	
		PushLong #PenPattern		;restore pattern
		_SetPenPat
		rts

*===============================================*
* 	  Draw Tabs at Bottom of Card		*
*===============================================*

DrawTabs	
		IMPORT	TempRect:rect
						;draw sides of tabs
		lda	FrameRect.bottom
		sta	TempRect.top
		clc
		adc	TabHeight
		sta	TempRect.bottom
		ldy	NumberOfCards
		dey
		lda	FrameRect.left		;start it
@inside		phy				;save counter
		clc
		adc	#6+2
		sta	TempRect.left
		adc	TabWidth
		dec	a
		dec	a
		sta	TempRect.right
		pha				;save it
		PushLong #TempRect
		PushLong #InteriorPat
		_FillRect			;draw tabs's interior
		pla				;get it back
		ply				;get counter
		dey
		bpl	@inside
		
		pea     2			;use wide pen
		pea     1
		_SetPenSize	

		ldy	NumberOfCards
		dey
		lda	FrameRect.left		;start it
@sides		phy				;save counter
		clc
		adc	#6
		pha				;save it
		pha				;X begin
		PushWord FrameRect.bottom	;Y begin
		_MoveTo
		pea     0			;X displacement
		lda	TabHeight
		dec	a
		dec	a
		pha				;Y displacement
		_Line

		pea     1			;X displacement
		pea     1			;Y displacement
		_Move
		pea     1			;X displacement
		pea     0			;Y displacement
		_Line

		pla				;get it
		clc
		adc	TabWidth
		pha				;save it again
		pha				;X begin
		PushWord FrameRect.bottom	;Y begin
		_MoveTo
		pea     0			;X displacement
		lda	TabHeight
		dec	a
		dec	a
		pha				;Y displacement
		_Line

		pea     -2			;X displacement
		pea     1			;Y displacement
		_Move
		pea     1			;X displacement
		pea     0			;Y displacement
		_Line

		pla				;get it back
		ply				;get counter
		dey
		bpl	@sides

		pea     1			;restore pen size
		pea     1
		_SetPenSize	

		ldy	NumberOfCards
		dey
		lda	FrameRect.left		;start it
@bottoms	phy				;save counter
		clc
		adc	#6+2
		pha				;save it
		inc	a
		pha				;X begin
		lda FrameRect.bottom
		clc
		adc	TabHeight
		pha				;Y begin
		_MoveTo
		lda	TabWidth
		sec
		sbc	#6-1
		pha				;X displacement
		pea     0			;Y displacement
		_Line
		pla				;get it back
		clc
		adc	TabWidth
		dec	a
		dec	a
		ply				;get counter
		dey
		bpl	@bottoms
		
		rts

	
		ENDWITH
		ENDP
	
*===============================================*
*	  Test for mouse in control		*
* 						*
* INPUT:	--- In Direct Page ---		*
*		ctlParam   (Long)		*
*						*
* OUTPUT:	--- In Direct Page ---		*	
*		rtlValue   (Long)		*
*						*
*===============================================*
MyTestControl	PROC

		IMPORT	TabRect:rect
		IMPORT	FrameRect:rect

		jsr	CardSetUp

		lda	<ctlParam		;get mouse point
		sta	MousePoint
		lda	<ctlParam+2
		sta	MousePoint+2
		stz	<rtlValue		;no hit yet
		stz	<rtlValue+2

		lda	FrameRect.bottom
		sta	TabRect.top
		clc
		adc	TabHeight
		inc	a			;allow some slop
		sta	TabRect.bottom

		ldy	#0
@test		phy				;save counter

		tya				;card = counter + 1
		inc	a
		jsr	GetTabX			;offset to tab
		sta	TabRect.left
		clc
		adc	TabWidth
		inc	a			;allow some slop
		sta	TabRect.right
		pha				;space for result
		PushLong #MousePoint
		PushLong #TabRect
		_PtInRect			;is mouse in this tab ?
		pla
		bne	yes
		ply				;get counter
		iny
		cpy	NumberOfCards
		bcc	@test		
		bra	exit

yes		ply
		iny
		tya
		clc
		adc	#partCodeBase
		sta	<rtlValue		;part code = card number + base
exit		rts

		ENDP

*===============================================*
*              Process a new Value		*
* 						*
* INPUT:	--- In Direct Page ---		*
*		ctlParam   (Long)		*
*						*
* OUTPUT:	--- In Direct Page ---		*	
*		rtlValue   (Long)		*
*						*
*===============================================*
MyNewValue	PROC

		jsr  CardSetUp
		stz  <rtlValue
		stz  <rtlValue+2
exit		rts

		ENDP

*===============================================*
*           Return Control Record Size		*
* 						*
* INPUT:	none				*
*						*
* OUTPUT:	--- In Direct Page ---		*	
*		rtlValue   (Long)		*
*						*
*===============================================*
MyRecordSize	PROC

		lda  #CustCtlRecord.sizeOf	;record size
		sta  <rtlValue
		stz  <rtlValue+2
		rts
		
		ENDP
		
*===============================================*
* 						*
* INPUT:	--- In Direct Page ---		*
*		ctlParam  (Long)		*
*		ctlPtr	  (Long)		*
*						*
* OUTPUT:	--- In Direct Page ---		*	
*		rtlValue   (Long)		*
*						*
*===============================================*
MyDragControl	PROC

		WITH	CustCtlRecord
		IMPORT	FillRect:rect

		lda	<ctlParam
		bne	ok
		brl	done
ok		jsr	CardSetUp
		lda	<ctlParam
		sec
		sbc	#partCodeBase		; get card number
		sta	CurrentCard

		jsr	SwitchToNewCard
		
done		lda	#1
		sta	<rtlValue
		stz	<rtlValue+2
		rts

;
; Made this into a subroutine, 16-Apr-91 DAL
;
		export SwitchToNewCard
SwitchToNewCard	ldy	#ctlValue
		lda	[<ctlPtr],y		; get old card
		cmp	CurrentCard		; are we already on this card?
		beq	@done
		jsr	HideControls		; make old card's controls hide

		pha				; space for handle
		pha
		_GetPort
		PushLong [ctlPtr],ctlOwner
		_SetPort			; set to our window
		
		PushLong #OldPenState		; save their settings
		_GetPenState
		PushLong #NewPenState		; use our settings
		_SetPenState

		lda	CurrentCard
		jsr	SelectTab		; draw new tab
		lda	FillRect.top
		clc
		adc	#8
		sta	FillRect.top
		PushLong #FillRect
		PushLong #InteriorPat
		_FillRect			; erase old controls
		
		ldy	#ctlValue
		lda	CurrentCard
		sta	[<ctlPtr],y		; set new card

		jsr	DrawControls		; draw new card's controls

		PushLong #OldPenState		; restore settings
		_SetPenState
		_SetPort			; set back to their window
@done		rts
		
		ENDWITH
		ENDP
		
*===============================================*
*           Initialize Control Record		*
* 						*
* INPUT:	--- In Direct Page ---		*
*		ctlParam  (Long)		*
*						*
* OUTPUT:	--- In Direct Page ---		*	
*		rtlValue  (Long)		*
*						*
*===============================================*
MyInitControl	PROC

		WITH	CustCtlRecord

;--- copy parameters from template into record ---

		ldy	#CardTemplate.tabHeight
		lda	[ctlParam],y
		ldy	#ctlTabHeight
		sta	[ctlPtr],y

		ldy	#CardTemplate.tabWidth
		lda	[ctlParam],y
		ldy	#ctlTabWidth
		sta	[ctlPtr],y
		
		ldy	#CardTemplate.tabSpace
		lda	[ctlParam],y
		ldy	#ctlTabSpace
		sta	[ctlPtr],y

		ldy	#CardTemplate.value
		lda	[ctlParam],y
		ldy	#ctlValue
		sta	[ctlPtr],y

		ldy	#CardTemplate.count
		lda	[ctlParam],y
		ldy	#ctlcardCount
		sta	[ctlPtr],y

		ldy	#CardTemplate.colorRef
		lda	[ctlParam],y
		tax
		iny
		iny
		lda	[ctlParam],y
		ldy	#ctlColor+2
		sta	[ctlPtr],y
		dey
		dey
		txa
		sta	[ctlPtr],y

		ldy	#CardTemplate.cardRef
		lda	[ctlParam],y
		tax
		iny
		iny
		lda	[ctlParam],y
		ldy	#ctlData+2
		sta	[ctlPtr],y
		dey
		dey
		txa
		sta	[ctlPtr],y


		ldy	#ctlData		; get card table ptr
		lda	[ctlPtr],y
		sta	cardPtr
		iny
		iny
		lda	[ctlPtr],y
		sta	cardPtr+2	

		ldy	#ctlValue
		lda	[ctlPtr],y
		jsr	ShowControls		; clear inivisible bits
		
		stz	<rtlValue
		stz	<rtlValue+2
		rts
		
		ENDWITH
		ENDP

*===============================================*
*						*
* MyHandleEvent -- if they typed Apple-1, ...	*
* then switch to the corresponding card.	*
*						*
* 16-Apr-91 Dave Lyons				*
*						*
*===============================================*
MyHandleEvent	PROC
		With CustCtlRecord
		import SwitchToNewCard

		jsr CardSetUp

		lda [<ctlParam]
		cmp #3
		beq @isKey			;was it 3 (keyDownEvt)?
@reject		stz <rtlValue
		stz <rtlValue+2			;didn't handle event
		rts

@isKey		ldy #14				;offset to modifiers field
		lda [<ctlParam],y
		and #$1b00			;Apple+Option+Shift+Ctrl
		cmp #$0100			;Apple
		bne @reject

		ldy #2				;message field
		lda [<ctlParam],y
		and #$00ff
		sec
		sbc #$0031			;less than "1"?
		bcc @reject
		cmp NumberOfCards
		bcs @reject
		inc a
		sta CurrentCard
		jsr SwitchToNewCard

		lda #-1
		sta <rtlValue
		sta <rtlValue+2			;we took the event!
		rts

		EndWith
		EndP

*===============================================*
*  The following Routines are not really used.	*
*  In most cases the "default" action is taken.	*
*  They are included for completeness.		*
*						*
* INPUT:	none				*
*						*
* OUTPUT:	--- In Direct Page ---		*	
*		rtlValue (Long) <-- 0		*
*						*
*===============================================*
Defaults	PROC

		ENTRY  MyCalculateRect
		ENTRY  MyDisposeControl
		ENTRY  MyPostControl
		ENTRY  MyThumbControl
		ENTRY  MyAutoTrack
		ENTRY  MySetParams
		ENTRY  MyMoveControl
		
MyCalculateRect				;use entire control (default rect)
MySetParams
MyDisposeControl			;continue disposal (default)
MyPostControl				;not used
MyThumbControl				;not used
MyAutoTrack				;not used
MyMoveControl				;no calculations needed
		stz	<rtlValue
		stz	<rtlValue+2
		rts
	
		ENDP

*===============================================*
*	    Card Deck Custom Control		*
*         Control Definition Procedure		*
*						*
* INPUT:	--- On the Stack ---		*
*		longSpace  (Long)		*
*		ctlMessage (Word)		*
*		ctlParam   (Long)		*
*		ctlHandle  (Long)		*
*						*
*						*
* OUTPUT:	--- On the Stack ---		*	
*		rtlValue   (Long)		*
*						*
*===============================================*

CardCtrlProc	PROC	EXPORT

numMsgsExtended	equ 14				;16-Apr-91 DAL to cover MyHandleEvent

		PushLong #0			;work space (12 bytes)
		PushLong #0
		PushLong #0
		tsc
		phd
		phb
		phk
		plb
		tcd				;set DP to stack


		ldy 	#2			;dereference handle
		lda	[ctlHandle],y
		sta	<ctlPtr+2
		lda	[ctlHandle]
		sta	<ctlPtr

		lda	<ctlMessage
		cmp	#numMsgsExtended	;16-Apr-91 DAL
		bcs	exit
		asl	a
		tax
		jsr	(Operation,x)

exit		plb
		pld
		lda	rtlAddr+1,s
		sta	rtlAddr+parmSize+1,s
		lda	rtlAddr,s
		sta	rtlAddr+parmSize,s
		tsa				;clean up stack
		clc
		adc	#parmSize+12
		tas
		rtl
	
	
Operation	DC.W	MyDrawControl
		DC.W	MyCalculateRect
		DC.W	MyTestControl
		DC.W	MyInitControl
		DC.W	MyDisposeControl
		DC.W	MyPostControl
		DC.W	MyThumbControl
		DC.W	MyDragControl
		DC.W	MyAutoTrack
		DC.W	MyNewValue
		DC.W	MySetParams
		DC.W	MyMoveControl
		DC.W	MyRecordSize
		dc.w	MyHandleEvent		;16-Apr-91 DAL

		ENDP

*===============================================*
		END


\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Finder/data.aii b/IIGS.601.SRC/A.U.G/Finder/data.aii
new file mode 100644
index 0000000..c2b808a
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Finder/data.aii
@@ -0,0 +1 @@
+;===============================================================
		TITLE	'Apple IIGS Finder                            DATA.aii'
;
;	   Copyright Apple Computer, Inc. 1986-1988
;	   All rights reserved.
;
;	   By Dan Oliver
;
; Modification History for Version 1.2:
; -------------------------------------
;
; 05/16/88 DJB	- Added "DIBlist" from Hack
; 05/16/88 DJB	- Changed "devCounter" to "startupFlag" for hack
; 05/16/88 DJB	- Added tool 28 to "tooltable" for hack
; 05/18/88 DJB	- Added NewWindow params & info blk for Verify window
; 05/23/88 DJB	- Added Darryl's Color Menu stuff
; 05/26/88 DJB	- Added "IsRAMDisk" flag
; 05/28/88 DJB	- Extended title tabels for GetInfo window
;		- Added FileSysNames table and strings for GetInfo window
;		- Shortend the day stings (date strings too crowded)
; 05/29/88 DJB	- Added new devices to deviceKinds table and strings
; 06/30/88 DJB	- Set caching bit in color menu flags
; 07/27/88 DO	- Took out the Info window title stuff (static now).
; 07/27/88 JAM  - Added FindersICBlkN for use by LoadIcons
; 08/05/88 DJB	- added IsDiskII array
; 08/08/88 DJB	- screen2 changed to 10k x 10k to fix BRC #
; 02/02/90 RDL	- added QDBank--QDÕs high/bank bytes in lo/hi--for djbÕs CloseView
; ...
; 5-Jun-92 DAL  - added PendingDeselectAll for Keyboard Navigation support
;===============================================================

		PRINT	OFF

		PRINT	NOGEN
		PRINT	NOPAGE
		PAGESIZE $FFFF,126
		
		INCLUDE	'Finder.equ'
		INCLUDE	'Strings.equ'
		INCLUDE	'All.Macros'

		PRINT	ON		
;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

;		IMPORT	clip_guts
		IMPORT	info_guts
		IMPORT	wind_guts
		IMPORT	trashBlk

;================================
;	   RAM data area.
;================================

RAM		PROC	EXPORT


; --- Static RAM data ---------------------------------------------------
		
		EXPORT	screen2
screen2		DC.W	-10000,-10000		;This one is used for the entire screen.
		DC.W	10000,10000

		EXPORT	DragPatt
DragPatt	DC.B	$FF,$FF,$FF,$FF
		DC.B	$FF,$FF,$FF,$FF
		DC.B	$FF,$FF,$FF,$FF
		DC.B	$FF,$FF,$FF,$FF

		EXPORT	ScreenLocInfo
		EXPORT	ScreenImage
		EXPORT	ScreenRect
ScreenLocInfo	DC.W	$0080			; port SCB
ScreenImage	DC.L	0			; picture ptr
		DC.W	640/4			; picture width (bytes)
ScreenRect	DC.W	0,0,200,640		; bounds rect

; Default file:
;--------------

		EXPORT	prefer
prefer		DC.W	PREF_ALL		;Preferences.
		EXPORT	deskPat
deskPat		DC.B	$DD,$DD,$DD,$DD		;Default desktop pattern.
		DC.B	$DD,$DD,$DD,$DD	
		DC.B	$DD,$DD,$DD,$DD	
		DC.B	$DD,$DD,$DD,$DD			

		EXPORT 	zoomWithoutInfo
zoomWithoutInfo	DC.W	zY1,zX1,zY2,zX2		Zoom RECT without double height info bar

		EXPORT 	zoomWithInfo
zoomWithInfo	DC.W	zY1+12,zX1,zY2,zX2	Zoom RECT with double height info bar

		EXPORT	MemoryID
MemoryID	DC.W	0			;our memory manager id

		EXPORT	finderDPage
finderDPage	dc.w	0

		EXPORT	finderTaskRecord
finderTaskRecord dc.w	0

		EXPORT	StartStopRef
StartStopRef	DC.L	0

		EXPORT	DateFormat
DateFormat	DC.W	0

		export	NewDeskPatFlag
NewDeskPatFlag	dc.w	0			;12-Dec-91 DAL

; --- Dynamic RAM data that starts out as zero --------------------------
;
		EXPORT	StartZeroRAM
StartZeroRAM		
		EXPORT	EjectNonRemovable
EjectNonRemovable ds.w	1

		EXPORT	CurView			;currently checked view
CurView		dc.w 	0
		EXPORT lastOnTop
lastOnTop	dc.w	0			;last menu item for the last window which was frontmost

		EXPORT	LastParamTime
LastParamTime	DS.W	1			; static data for Event Loop
		EXPORT	LastScrapTime
LastScrapTime	DS.W	1
		EXPORT	LastPatternTime
LastPatternTime	DS.W	1
		EXPORT	LastNetTime
LastNetTime	DS.W	1

		EXPORT	ScreenHandle
ScreenHandle	DS.L	1

		EXPORT	infoWindCount
infoWindCount	DS.B	2			;Number of Info windows up (added 05/18/88 DJB)
		EXPORT	verWindCount
verWindCount	DS.B	2			;Number of Verify windows up (added 05/18/88 DJB)
		EXPORT	badDes
badDes		DS.B	2			;Used by drag and draw (added 20 Jul SEG)
		EXPORT	wrap
wrap		DS.B	2			;Used by Cleanup.
		EXPORT	LastScrapCount
LastScrapCount	DS.B	2			;Added 08/03/88 SEG
		EXPORT	cancelEmpty
cancelEmpty	DS.B	2			;TRUE if empty Trash was cancelled.
		EXPORT	abortFind
abortFind	DS.B	2			;Flag to abort FindSelect.
		EXPORT	myWindCount
myWindCount	DS.B	2			;Number of directory and get info windows up.
		EXPORT	saveMenuID
saveMenuID	DS.B	2			;Save select menu's ID number.
		EXPORT	srcView
srcView		DS.B	2			;Source window view during drag.
		EXPORT	sourceView
sourceView	DS.B	2			;Source window view during drag.
		EXPORT	SaveOffFlag
SaveOffFlag	DS.B	2			;TRUE if data files should not be saved.
		EXPORT	spotCount
spotCount	DS.B	2			;Counter for spot hashing.
		EXPORT	spotHashOn
spotHashOn	DS.B	2			;TRUE if hashing for finding a window spot is on.
		EXPORT	dupIcon
dupIcon		DS.B	4			;Handle of icon being checked for dup name.
		EXPORT	menuDimFlag
menuDimFlag	DS.B	2			;TRUE if custom color menu is dimmed.
		EXPORT	drawRequest
drawRequest	DS.B	2			;TRUE if draw RECTs was asked to draw.
		EXPORT	dragDeltay
dragDeltay	DS.B	2			;Y offset for dragging icon outlines.
		EXPORT	dragDeltax
dragDeltax	DS.B	2			;X offset for dragging icon outlines.
		EXPORT	NoDOSerr
NoDOSerr	DS.B	2			;TRUE to ignore DOS errors.
		EXPORT	IsRAMDisk		;added 05/26/88 DJB
IsRAMDisk	DS.B	2			;Flag
		EXPORT	flopCount
flopCount	DS.B	2			;Floppy drive counter, for icon's name.
		EXPORT	IDflag
IDflag		DS.B	2			;Sometimes holds the ID of a window.
		EXPORT	tempSaved
tempSaved	DS.B	4			;Handle of saved pathname area.
		EXPORT	Printing
Printing	DS.B	2			;TRUE if Print selected from File menu.
		EXPORT	maxLength
maxLength	DS.B	2			;Maximum pathname length allowed.
		EXPORT	curCursor
curCursor	DS.B	2			;Current cursor.
		EXPORT	addFlag
addFlag		DS.B	2			;Mask for icFlag for buildRects to use.
		EXPORT	intoIcon
intoIcon	DS.B 	2			;TRUE if dragging into an icon.
		EXPORT	doubleSpeed
doubleSpeed	DS.B 	2			;Time inbetween double click.
		EXPORT	auxtype
auxtype		DS.B	2			;Aux type to match to icon image.
		EXPORT	AccessPriv
AccessPriv	DS.B	2			;Access priviledges for icon (folder/volume)
		EXPORT	NetworkBit
NetworkBit	DS.B	2			;Network status of icon Ñ DJB 12/07/88
		EXPORT	onlyDisk
onlyDisk	DS.B	2			;Nonzero to cut only disk icons (cutNfree).
		EXPORT	iconSelected
iconSelected	DS.B	2			;Selected icon counter.
		EXPORT	NoRealMatch
NoRealMatch	DS.B	2			;TRUE if findOwnerIc did find owner.
		EXPORT	defaultChg
defaultChg	DS.B	2			;TRUE if defaults have changed.
		EXPORT	functionKey
functionKey	DS.B	2			;FALSE if function not down.
		EXPORT	openAppleKey	
openAppleKey	DS.B	2			;FALSE if openApple not down
		EXPORT	shiftKeyStatus	
shiftKeyStatus	DS.B	2			;FALSE if shift not down
		EXPORT	controlKeyStatus	
controlKeyStatus DS.B	2			;FALSE if control not down
		EXPORT	LEwind
LEwind		DS.B	4			;Save window of line edit field.
		EXPORT	LEicon
LEicon		DS.B	4			;Save icon of line edit field.
		EXPORT	nameHit
nameHit		DS.B	2			;TRUE if button down on icon's title.
		EXPORT	desRect
desRect		DS.B	8			;RECT used for line edit field.
		EXPORT	viewRect
viewRect	DS.B	8			;RECT used for line edit field.
		EXPORT	createIcon
createIcon	DS.B	2			;TRUE if icon created from disk insert.
		EXPORT	posFlag
posFlag		DS.B	2			;TRUE if temp points to position buffer.
		EXPORT	eventRec
eventRec	DS.B	16			;Event record.
		EXPORT	port
port		DS.B	170			;Desktop port.
		EXPORT	ticonobj
ticonobj	DS.B	icOwner+MaxPathLen	;ICONOBJ template.
		EXPORT	smallRect
smallRect	DS.B	8			;Zoom RECT variable
		EXPORT	bigRect
bigRect		ds.B	8			;Zoom RECT variable
		EXPORT	ExtCopy
ExtCopy		DS.B	2
		EXPORT	windowID
windowID	DS.B	2			;Type of window to accept.
		EXPORT	lastClickY
lastClickY	DS.B	2			;Position of last button down.
		EXPORT	lastClickX
lastClickX	DS.B	2

		EXPORT	quoteName
quoteName	DS.B	36

		EXPORT	OpenFlag
OpenFlag	DS.B	2

		EXPORT	pathIndex
pathIndex	DS.B	2

		EXPORT	saveHand
saveHand	
		DS.B	4			;findSelect save icHand area.
		EXPORT	deltay
deltay		
		DS.B	2			;Values passed to moveIcons.
		EXPORT	deltax
deltax		
		DS.B	2
		EXPORT	deltay2
deltay2		
		DS.B	2
		EXPORT	deltax2
deltax2		
		DS.B	2
		EXPORT	DeleteFlag
DeleteFlag		
		DS.B	2
		EXPORT	QDBank
QDBank		DS.B	2			; save QDÕs high/bank bytes in lo/hi.
		EXPORT	dontDraw
dontDraw	DS.B	2			; donÕt redraw icons w illegal filenames
		EXPORT	diffVolumes
diffVolumes	DS.B	2			; copy: source & dest vols are different

		EXPORT	magicToDo
magicToDo	DS.B	2			;flag used by drag/copy code if source is System folder

		EXPORT	EndZeroRAM
EndZeroRAM		


; The block of large pathnames is below here for a reason -- we're trying really
; hard to group all of the pathnames together to make sure that stuff sparses better
;.....................................................................


;
; Block to save
;
		EXPORT	startSaveBlk
startSaveBlk					;block gets saved on window updates

		EXPORT	C1_PathNameBuf
C1_PathNameBuf	DC.W	0			;class 1 output string (filled in on startup)
		EXPORT	C1_PathName
C1_PathName	DS.B	MaxPathLen+MaxFileName+2	;class 1 input string

		EXPORT	C1_TempPathBuf
C1_TempPathBuf	dc.w	0
		EXPORT	C1_TempPath
C1_TempPath	DS.B	MaxPathLen+MaxFileName+2	;class 1 input string

		EXPORT	lastName
lastName	DS.B	34

		EXPORT	endSaveBlk
endSaveBlk
;------- End of Block ------------------


; --- Dynamic RAM that needs to be initialized each startup, using StartInitRAM -----

		EXPORT	StartDynamRAM
StartDynamRAM		

		export PendingDeselectAll
PendingDeselectAll dc.w 0	;5-Jun-92 DAL for keyboard navigation support

		EXPORT	screen
screen		DS.B	8

		EXPORT	resolution
resolution	; 
		EXPORT	SrcMode
SrcMode		DS.B	2
		EXPORT	SrcImage
SrcImage	DS.B	4
		EXPORT	SrcWidth
SrcWidth	DS.B	2
		EXPORT	SrcRect
SrcRect		DS.B	8

		EXPORT	wind_param
wind_param	 
		EXPORT	wind_size
wind_size	DS.B	2
		EXPORT	wind_frame
wind_frame	DS.B	2
		EXPORT	wind_title
wind_title	DS.B	4
		EXPORT	wind_ref
wind_ref	DS.B	4
		EXPORT	wind_full
wind_full	DS.B	8
		EXPORT	wind_color
wind_color	DS.B	4
		EXPORT	wind_voff
wind_voff	DS.B	2
		EXPORT	wind_hoff
wind_hoff	DS.B	2
		EXPORT	wind_datah
wind_datah	DS.B	2
		EXPORT	wind_dataw
wind_dataw	DS.B	2
		EXPORT	wind_max_h
wind_max_h	DS.B	2
		EXPORT	wind_max_w
wind_max_w	DS.B	2
		EXPORT	wind_vscrl
wind_vscrl	DS.B	2
		EXPORT	wind_hscrl
wind_hscrl	DS.B	2
		EXPORT	wind_vpage
wind_vpage	DS.B	2
		EXPORT	wind_hpage
wind_hpage	DS.B	2
		EXPORT	wind_infot
wind_infot	DS.B	4
		EXPORT	wind_infoH
wind_infoH	DS.B	2
		EXPORT	wind_def
wind_def	DS.B	4
		EXPORT	wind_info
wind_info	DS.B	4
		EXPORT	wind_draw
wind_draw	DS.B	4
		EXPORT	wind_pos
wind_pos	DS.B	8
		EXPORT	wind_plane
wind_plane	DS.B	4
		EXPORT	wind_rec
wind_rec	DS.B	4
		EXPORT	wind_end
wind_end

		EXPORT	nextWindPos
nextWindPos	DS.B	8
      
		EXPORT	AccessDefault		; added 12/06/88 DJB
AccessDefault	DS.W	1			; default value for Network Access Priv

		EXPORT	EndDynamRAM
EndDynamRAM


		EXPORT	stringsLen
stringsLen	DS.B	8

		EXPORT	notDiskFlag
notDiskFlag	DS.B 2

		EXPORT	table1
table1		DS.B	64

;
; Some more misc buffers
;
		EXPORT	C1_VolName
C1_VolName	DS.B	MaxFileName+2		;class 1 input string

		EXPORT	c1_DevNameBuf
c1_DevNameBuf	DC.W	MaxFileName+4
		EXPORT	c1_DeviceName
c1_DeviceName	DS.B	MaxFileName+2


		EXPORT	C1_FileNameBuf
C1_FileNameBuf	DC.W	MaxFileName+4		;class 1 output string
		EXPORT	C1_FileName
C1_FileName	DS.B	MaxFileName+2		;class 1 input string

; --- Error messages --------------------------------------------------

;
; --- Template for RAM that needs to be	initialized ------------------------
;
		EXPORT	StartInitRAM
StartInitRAM
		dc.w	0		;PendingDeselectAll

		DC.W	0,0,200,640	;Y1 is set to the bottom of the menu bar.

		DC.W	$0080		;640 mode.
		DC.L	0		;Pointer to pixel image to blit.
		DC.W	0		;Width of pixel image, in bytes.
		DC.W	0,0,0,0		;Rect of pixel image.

;
; Directory window parameter block:
;
		EXPORT	TrashWindowStart
TrashWindowStart

		DC.W	wind_end-wind_size	;Length of this parameter list.
		DC.W	%1101111110110001	;Frame flag (visible)
		DC.L	trashBlk+windTitle	;Pointer to window's title.
		DC.L	TrashBlk		;RefCon - pointer to window's info block.
		DC.W	zY1,zX1,zY2,zX2		;Zoom RECT.

		EXPORT	TrashWindowColor
TrashWindowColor DC.L	0			;Pointer to color table.
		DC.W	0,0			;Y and X origin.
		DC.W	0,0			;Data height and width. (was 60,480 DAL 16
		DC.W	200,640			;Maximum height and width for Grow.
		DC.W	10,24			;Vertical and horizontal scroll amounts.
		DC.W	0,0			;Vertical and horizontal page amounts.
		DC.L	TrashBlk		;Infomation bar text string.
		DC.W	11			;Height of information bar.
		DC.L	0			;Window frame defProc (default).
		DC.L	info_guts		;Routine to draw info. bar.
		DC.L	wind_guts		;Routine to draw content.
		DC.W	130,20,180,500		;Size/Position of content.
		DC.L	$FFFFFFFF		;Plane to put window up in.
		DC.L	0			;Address of memory for window record.
		EXPORT	TrashWindowEnd
TrashWindowEnd

		DC.W	dfltWinY1,dfltWinX1,dfltWinY2,dfltWinX2

;
; default access privileges
;
		DC.W	$F007			; only owner has access
	      
		EXPORT	EndInitRAM
EndInitRAM	

;------------------------------------------------
DynamRAM	set	EndDynamRAM-StartDynamRAM
InitRAM		set	EndInitRAM-StartInitRAM
		if	DynamRAM <> InitRAM	then
			AError	'DynamicRAM ­ InitRAM!'
		endif

		EXPORT	shutdown_list
shutdown_list	DC.W	1		;pcount
		EXPORT	shutdown_flag
shutdown_flag	DC.W	0		;flag_field

;
; names for where stuff is supposed to go
;
		EXPORT	quit_list
quit_list	DC.W	2		;pcount
		EXPORT	quit_path
quit_path	DC.L	0		;ptr to pathname
		EXPORT	quit_flags
quit_flags	DC.W	0		;flags

		EXPORT	devnum_list
devnum_list	DC.W	2		;pcount
		ENTRY	devnum_name
devnum_name	DC.L	C1_PathName	;ptr to volume name
		EXPORT	devnum_num
devnum_num	DC.W	0		;device number
		
; --- Line drawing masks and data ------------------------------------------

		EXPORT	pixelMask1
pixelMask1	DC.W	$00FF,$003F,$000F,$0003
		EXPORT	pixelMask2
pixelMask2	DC.W	$00C0,$00F0,$00FC,$00FF
		EXPORT	pixelMask3
pixelMask3	DC.W	$00F0,$003C,$000F,$C003


; --- Data for window info bar drawing -------------------------------------

		EXPORT	strings
strings		DC.W	freeKString		;strings are in Strings.aii
		DC.W	usedKString
		DC.W	itemsStrg
		dc.W	ProDOSName
		
		EXPORT	boldTitle
boldTitle	DC.W	$FFFF

		EXPORT	startX
startX		DS.B	6
		DC.W	4

		DC.W	dxViewDate		;X position of 'Last Modified'.
		DC.W	dxViewKind		;X position of 'Kind'.
		DC.W	dxViewSize		;X position of 'Size'.
		DC.W	dxViewName		;X position of 'Name'.
		END
		
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Finder/dialog.rez b/IIGS.601.SRC/A.U.G/Finder/dialog.rez
new file mode 100644
index 0000000..9fb443b
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Finder/dialog.rez
@@ -0,0 +1 @@
+// --------------------------------------------------------------------
// dialog.REZ
// Copyright 1991 Apple Computer, Inc.
// All Rights Reserved
//
// 5/6/91, andy, created today
// --------------------------------------------------------------------


// --- Control List Definitions

resource rControlList (CTLLST_00000005, $0000) {
       {
       CTLTMP_00004004,        // control 5
       CTLTMP_00004005,        // control 6
       CTLTMP_00004006,        // control 7
       CTLTMP_00004007,        // control 8
       CTLTMP_00004008,        // control 9
       CTLTMP_00004002,        // control 3
       CTLTMP_00004003,        // control 4
       CTLTMP_00004009,        // control 10
       CTLTMP_0000400A,        // control 11
       CTLTMP_00004001,        // control 2
	   CTLTMP_00004000         // control 1
       };
};

// --- Control Templates

resource rControlTemplate (CTLTMP_00004000, $0000) {
       $00000001,              // ID
       {  2,  4, 21, 52},      // rect
       iconButtonControl {{
               $000c,          // flag
               $1020,          // moreFlags
               $00000000,      // refCon
               ICON_07FF0004,  // iconRef
               0,              // titleRef
               0,              // colorTableRef
               $0000           // displayMode
       }};
};

resource rControlTemplate (CTLTMP_00004001, $0000) {
       $00000002,              // ID
       {  3, 68, 22,490},      // rect
       statTextControl {{
               $0003,          // flag
               $1002,          // moreFlags
               $00000000,      // refCon
               LETXTBOX_00004000,     // textRef
               0, 				// textSize
               $0000           // just
       }};
};

resource rControlTemplate (CTLTMP_00004002, $0000) {
       $00000003,              // ID
       { 28,220, 37,330},      // rect
       statTextControl {{
               $0004,          // flag
               $1002,          // moreFlags
               $00000000,      // refCon
               LETXTBOX_00004001,     // textRef
               0, 				// textSize
               $0000           // just
       }};
};

resource rControlTemplate (CTLTMP_00004003, $0000) {
       $00000004,              // ID
       { 28,369, 37,485},      // rect
       statTextControl {{
               $0004,          // flag
               $1002,          // moreFlags
               $00000000,      // refCon
               LETXTBOX_00004002,     // textRef
               0, 				// textSize
               $0000           // just
       }};
};

resource rControlTemplate (CTLTMP_00004009, $0000) {
       $00000005,              // ID
       { 32,212, 77,338},      // rect
       rectangleControl {{
               $ff02,          // flags
               $1000,          // moreFlags
               $00000000,      // refCon
			   1,				// height
			   2,				// width
			   $"cc00cc00cc00cc00" // pen mask
       }};
};

resource rControlTemplate (CTLTMP_0000400A, $0000) {
       $00000006,              // ID
       { 32,360, 77,490},      // rect
       rectangleControl {{
               $ff02,          // flags
               $1000,          // moreFlags
               $00000000,      // refCon
			   1,				// height
			   2,				// width
			   $"cc00cc00cc00cc00" // pen mask
       }};
};

resource rControlTemplate (CTLTMP_00004004, $0000) {
       $00000007,              // ID
       { 59, 70, 72,160},      // rect
       simpleButtonControl {{
               $0000,          // flag
               $3002,          // moreFlags
               $00000000,      // refCon
               PSTR_000000FE,  // titleRef
               0,              // colorTableRef
               {"\$1B", "\$1B",$0000,$0000}  // key equivalents
       }};
};

resource rControlTemplate (CTLTMP_00004005, $0000) {
       $00000008,              // ID
       { 41,232, 54,322},      // rect
       simpleButtonControl {{
               $0000,          // flag
               $1002,          // moreFlags
               $00000000,      // refCon
               PSTR_000000FA   // titleRef
       }};
};

resource rControlTemplate (CTLTMP_00004006, $0000) {
       $00000009,              // ID
       { 59,232, 72,322},      // rect
       simpleButtonControl {{
               $0000,          // flag
               $1002,          // moreFlags
               $00000000,      // refCon
               PSTR_000000FB   // titleRef
       }};
};

resource rControlTemplate (CTLTMP_00004007, $0000) {
       $0000000A,              // ID
       { 41,378, 54,472},      // rect
       simpleButtonControl {{
               $0000,          // flag
               $3002,          // moreFlags
               $00000000,      // refCon
               PSTR_000000FA   // titleRef
       }};
};

resource rControlTemplate (CTLTMP_00004008, $0000) {
       $0000000B,              // ID
       { 59,378, 72,472},      // rect
       simpleButtonControl {{
               $0001,          // flag
               $3002,          // moreFlags
               $00000000,      // refCon
               PSTR_000000FB,  // titleRef
			   0,              // colorTableRef
               {"\$0D", "\$0D",$0000,$0000}  // key equivalents
       }};
};

// --- rTextForLETextBox2 Templates

resource rTextForLETextBox2 (LETXTBOX_00004000, $0000) {
       	"The item Ò*2Ó already exists.  Replace this item and all "
		"remaining duplicates?"
};

resource rTextForLETextBox2 (LETXTBOX_00004001, $0000) {
       " This Item Only "
};

resource rTextForLETextBox2 (LETXTBOX_00004002, $0000) {
       " All Duplicates "
};

// --- Window Templates

resource rWindParam1 (WPARAM1_00000005, $c000) {
       $2020,                  // plFrame (frame bits)
       NIL,                    // plTitle (no Title)
       $00000000,              // plRefCon
       {  0,  0,  0,  0},      // plZoomRect
       NIL,                    // plColorTable (standard colors)
       {$0000, $0000},         // plYOrigin, plXOrigin
       {$0000, $0000},         // plDataHeight, plDataWidth
       {$0000, $0000},         // plMaxHeight, plMaxWidth
       {$0000, $0000},         // plVerScroll, plHorScroll
       {$0000, $0000},         // plVerPage, plHorPage
       $00000000,              // plInfoText (info RefCon)
       $0000,                  // plInfoHeight
       { 62, 72,142,570},      // plPosition
       infront,                // plPlane
       CTLLST_00000005,        // plControlList
       $0009                   // plInDesc
};

// -- dcopy (56)

// --- Control List Definitions

resource rControlList (CTLLST_00000006, $0000) {
       {
       CTLTMP_00005000,        // control 1
       CTLTMP_00005001,        // control 2
       CTLTMP_00005002,        // control 3
       CTLTMP_00005003,        // control 4
       CTLTMP_00005004,        // control 5
       CTLTMP_00005005,        // control 6
       CTLTMP_00005006,        // control 7
       CTLTMP_00005007,        // control 8
       CTLTMP_00005008         // control 9
       };
};

// --- Control Templates


resource rControlTemplate (CTLTMP_00005000, $0000) {
       $00000001,              // ID
       { 17,  8, 26, 34},      // rect
       radioControl {{
               $0000,          // flag
               $3002,          // moreFlags
               $00000000,      // refCon
               PSTR_000000FC,  // titleRef
               $0001,          // initialValue
               0,              // colorTableRef
               {"P","p",$0000,$0000}  // key equivalents
       }};
};

resource rControlTemplate (CTLTMP_00005001, $0000) {
       $00000002,              // ID
       { 41,  8, 50, 36},      // rect
       radioControl {{
               $0000,          // flag
               $3002,          // moreFlags
               $00000000,      // refCon
               PSTR_000000FC,  // titleRef
               $0000,          // initialValue
               0,              // colorTableRef
               {"R","r",$0000,$0000}  // key equivalents
       }};
};

resource rControlTemplate (CTLTMP_00005002, $0000) {
       $00000003,              // ID
       { 65,  8, 74, 32},      // rect
       radioControl {{
               $0000,          // flag
               $3002,          // moreFlags
               $00000000,      // refCon
               PSTR_000000FC,  // titleRef
               $0000,          // initialValue
               0,              // colorTableRef
               {"A","a",$0000,$0000}  // key equivalents
       }};
};

resource rControlTemplate (CTLTMP_00005006, $0000) {
       $00000004,              // ID
       {  3,174, 13,363},      // rect
       statTextControl {{
               $0000,          // flag
               $1002,          // moreFlags
               $00000000,      // refCon
               LETXTBOX_00005003,     // textRef
               0, 				// textSize
               $0000           // just
       }};
};

resource rControlTemplate (CTLTMP_00005003, $0000) {
       $00000005,              // ID
       { 17, 36, 36,499},      // rect
       statTextControl {{
               $000B,          // flag
               $1002,          // moreFlags
               $00000000,      // refCon
               LETXTBOX_00005000,     // textRef
               0, 				// textSize
               $0000           // just
       }};
};

resource rControlTemplate (CTLTMP_00005004, $0000) {
       $00000006,              // ID
       { 41, 36, 60,515},      // rect
       statTextControl {{
               $000B,          // flag
               $1002,          // moreFlags
               $00000000,      // refCon
               LETXTBOX_00005001,     // textRef
               0, 				// textSize
               $0000           // just
       }};
};

resource rControlTemplate (CTLTMP_00005005, $0000) {
       $00000007,              // ID
       { 65, 36, 84,485},      // rect
       statTextControl {{
               $000B,          // flag
               $1002,          // moreFlags
               $00000000,      // refCon
               LETXTBOX_00005002,     // textRef
               0, 				// textSize
               $0000           // just
       }};
};

resource rControlTemplate (CTLTMP_00005007, $0000) {
       $00000008,              // ID
       { 89,316,102,406},      // rect
       simpleButtonControl {{
               $0000,          // flag
               $3002,          // moreFlags
               $00000000,      // refCon
               PSTR_000000Fe,  // titleRef
               0,              // colorTableRef
               {"\$1B", "\$1B",$0000,$0000}  // key equivalents
       }};
};

resource rControlTemplate (CTLTMP_00005008, $0000) {
       $00000009,              // ID
       { 89,430,102,520},      // rect
       simpleButtonControl {{
               $0001,          // flag
               $3002,          // moreFlags
               $00000000,      // refCon
               PSTR_000000FF,  // titleRef
               0,              // colorTableRef
               {"\$0D", "\$0D",$0000,$0000}  // key equivalents
       }};
};

// --- rTextForLETextBox2 Templates

resource rTextForLETextBox2 (LETXTBOX_00005000, $0000) {
       "Put the contents of Ò*3Ó in a folder on Ò*4Ó."
};

resource rTextForLETextBox2 (LETXTBOX_00005001, $0000) {
       "Replace the contents of Ò*4Ó with the contents of Ò*3Ó."
};

resource rTextForLETextBox2 (LETXTBOX_00005002, $0000) {
       "Add the contents of Ò*3Ó to the contents of Ò*4Ó."
};

resource rTextForLETextBox2 (LETXTBOX_00005003, $0000) {
       "\$01"
       "F"
       "\$FE"
       "\$FF"
       "\$01"
       "\$08"
       "Disk Copy Alternatives"
};

// --- Window Templates

resource rWindParam1 (WPARAM1_00000006, $c000) {
       $2020,                  // plFrame (frame bits)
       NIL,                    // plTitle (no Title)
       $00000000,              // plRefCon
       {  0,  0,  0,  0},      // plZoomRect
       NIL,                    // plColorTable (standard colors)
       {$0000, $0000},         // plYOrigin, plXOrigin
       {$0000, $0000},         // plDataHeight, plDataWidth
       {$0000, $0000},         // plMaxHeight, plMaxWidth
       {$0000, $0000},         // plVerScroll, plHorScroll
       {$0000, $0000},         // plVerPage, plHorPage
       $00000000,              // plInfoText (info RefCon)
       $0000,                  // plInfoHeight
       { 38, 52,145,588},      // plPosition
       infront,                // plPlane
       CTLLST_00000006,        // plControlList
       $0009                   // plInDesc
};

// -- File Copy Alternatives

// --- Control List Definitions

// // resource rControlList (CTLLST_00000007, $0000) {
//        {
//        CTLTMP_00006000,        // control 1
//        CTLTMP_00006001,        // control 2
//        CTLTMP_00006002,        // control 3
//        CTLTMP_00006003,        // control 4
//        CTLTMP_00006004         // control 5
//        };
// };
// 
// // --- Control Templates
// 
// resource rControlTemplate (CTLTMP_00006000, $0000) {
//        $00000001,              // ID
//        {  3, 64, 12,253},      // rect
//        statTextControl {{
//                $0000,          // flag
//                $1002,          // moreFlags
//                $00000000,      // refCon
//                LETXTBOX_00006000,     // textRef
//                0, 				// textSize
//                $0001           // just
//        }};
// };
// 
// resource rControlTemplate (CTLTMP_00006001, $0000) {
//        $00000002,              // ID
//        { 18, 20, 31,286},      // rect
//        simpleButtonControl {{
//                $0000,          // flag
//                $3002,          // moreFlags
//                $00000000,      // refCon
//                PSTR_00006000,  // titleRef
//                0,              // colorTableRef
//                {"R","r",$0000,$0000}  // key equivalents
//        }};
// };
// 
// resource rControlTemplate (CTLTMP_00006002, $0000) {
//        $00000003,              // ID
//        { 37, 18, 50,286},      // rect
//        simpleButtonControl {{
//                $0000,          // flag
//                $3002,          // moreFlags
//                $00000000,      // refCon
//                PSTR_00006001,  // titleRef
//                0,              // colorTableRef
//                {"S","s",$0000,$0000}  // key equivalents
//        }};
// };
// 
// resource rControlTemplate (CTLTMP_00006003, $0000) {
//        $00000004,              // ID
//        { 57, 20, 70,286},      // rect
//        simpleButtonControl {{
//                $0001,          // flag
//                $3002,          // moreFlags
//                $00000000,      // refCon
//                PSTR_00006002,  // titleRef
//                0,              // colorTableRef
//                {"\$0D", "\$0D",$0000,$0000}  // key equivalents
//        }};
// };
// 
// resource rControlTemplate (CTLTMP_00006004, $0000) {
//        $00000005,              // ID
//        { 76,106, 93,196},      // rect
//        simpleButtonControl {{
//                $0000,          // flag
//                $3002,          // moreFlags
//                $00000000,      // refCon
//                PSTR_00006003,  // titleRef
//                0,              // colorTableRef
//                {"\$1B", "\$1B",$0000,$0000}  // key equivalents
//        }};
// };
// 
// // --- rPString Templates
// 
// resource rPString (PSTR_00006000, $0000) {
//        "Replace items case by case"
// };
// 
// resource rPString (PSTR_00006001, $0000) {
//        "Skip all duplicate items"
// };
// 
// resource rPString (PSTR_00006002, $0000) {
//        "Replace all duplicate items"
// };
// 
// resource rPString (PSTR_00006003, $0000) {
//        "Cancel"
// };
// 
// // --- rTextForLETextBox2 Templates
// 
// resource rTextForLETextBox2 (LETXTBOX_00006000, $0000) {
//        "\$01"
//        "F"
//        "\$FE"
//        "\$FF"
//        "\$01"
//        "\$08"
//        "File Copy Alternatives"
// };
// 
// // --- Window Templates
// 
// // resource rWindParam1 (WPARAM1_00000007, $c000) {
//        $2020,                  // plFrame (frame bits)
//        NIL,                    // plTitle (no Title)
//        $00000000,              // plRefCon
//        {  0,  0,  0,  0},      // plZoomRect
//        NIL,                    // plColorTable (standard colors)
//        {$0000, $0000},         // plYOrigin, plXOrigin
//        {$0000, $0000},         // plDataHeight, plDataWidth
//        {$0000, $0000},         // plMaxHeight, plMaxWidth
//        {$0000, $0000},         // plVerScroll, plHorScroll
//        {$0000, $0000},         // plVerPage, plHorPage
//        $00000000,              // plInfoText (info RefCon)
//        $0000,                  // plInfoHeight
//        { 41,168,137,476},      // plPosition
//        infront,                // plPlane
//        CTLLST_00000007,        // plControlList
//        $0009                   // plInDesc
// };

// -- TransOrElse (196) dialog

// --- Control List Definitions

resource rControlList (CTLLST_00000008, $0000) {
       {
       CTLTMP_00007000,        // control 1
       CTLTMP_00007001,        // control 2
       CTLTMP_00007002,        // control 3
       CTLTMP_00007003,        // control 4
       CTLTMP_00007004,        // control 5
       CTLTMP_00007005,        // control 6
       };
};

// --- Control Templates

resource rControlTemplate (CTLTMP_00007000, $0000) {
       $00000001,              // ID
       {  2,  8, 26, 60},      // rect
       iconButtonControl {{
               $000c,          // flag (no hits)
               $1020,          // moreFlags
               $00000000,      // refCon
               ICON_07FF0003,  // iconRef
               0,              // titleRef
               0,              // colorTableRef
               $0000           // displayMode
       }};
};

resource rControlTemplate (CTLTMP_00007001, $0000) {
       $00000002,              // ID
       {  3, 72, 21,479},      // rect
       statTextControl {{
               $0003,          // flag
               $1002,          // moreFlags
               $00000000,      // refCon
               LETXTBOX_00007000,     // textRef
               0, 				// textSize
               $0000           // just
       }};
};

resource rControlTemplate (CTLTMP_00007002, $0000) {
       $00000003,              // ID
       { 32, 12, 41, 81},      // rect
       statTextControl {{
               $0000,          // flag
               $1002,          // moreFlags
               $00000000,      // refCon
               LETXTBOX_00007001,     // textRef
               0, 				// textSize
               $0000           // just
       }};
};

resource rControlTemplate (CTLTMP_00007003, $0000) {
       $00000004,              // ID
       { 30, 88, 43,418},      // rect
       editLineControl {{
               $0000,          // flag
               $7002,          // moreFlags
               $00000000,      // refCon
               $0020,          // maxSize
               PSTR_000000fc   // defaultRef
       }};
};

resource rControlTemplate (CTLTMP_00007004, $0000) {
       $00000005,              // ID
       { 51,276, 64,366},      // rect
       simpleButtonControl {{
               $0000,          // flag
               $3002,          // moreFlags
               $00000000,      // refCon
               PSTR_000000Fe,  // titleRef
               0,              // colorTableRef
               {"\$1B", "\$1B",$0000,$0000}  // key equivalents
       }};
};

resource rControlTemplate (CTLTMP_00007005, $0000) {
       $00000006,              // ID
       { 51,382, 64,472},      // rect
       simpleButtonControl {{
               $0001,          // flag
               $3002,          // moreFlags
               $00000000,      // refCon
               PSTR_000000FF,  // titleRef
               0,              // colorTableRef
               {"\$0D", "\$0D",$0000,$0000}  // key equivalents
       }};
};

// --- rTextForLETextBox2 Templates

resource rTextForLETextBox2 (LETXTBOX_00007000, $0000) {
       "The item name Ò*5Ó is unacceptable to the *6 file system."
};

resource rTextForLETextBox2 (LETXTBOX_00007001, $0000) {
       "New name:"
};

// --- Window Templates

resource rWindParam1 (WPARAM1_00000008, $c000) {
       $2020,                  // plFrame (frame bits)
       NIL,                    // plTitle (no Title)
       $00000000,              // plRefCon
       {  0,  0,  0,  0},      // plZoomRect
       NIL,                    // plColorTable (standard colors)
       {$0000, $0000},         // plYOrigin, plXOrigin
       {$0000, $0000},         // plDataHeight, plDataWidth
       {$0000, $0000},         // plMaxHeight, plMaxWidth
       {$0000, $0000},         // plVerScroll, plHorScroll
       {$0000, $0000},         // plVerPage, plHorPage
       $00000000,              // plInfoText (info RefCon)
       $0000,                  // plInfoHeight
       { 62, 76,131,562},      // plPosition
       infront,                // plPlane
       CTLLST_00000008,        // plControlList
       $0009                   // plInDesc
};

// -- Transfile (102) dialog

// --- Control List Definitions

resource rControlList (CTLLST_00000009, $0000) {
       {
       CTLTMP_00007000,        // control 1
       CTLTMP_00007001,        // control 2
       CTLTMP_00007002,        // control 3
       CTLTMP_00007003,        // control 4
       CTLTMP_00008004,        // control 5
       CTLTMP_00008005,        // control 6
       CTLTMP_00008006,        // control 7
       CTLTMP_00008007,        // control 8
       CTLTMP_00008008         // control 9
       };
};

// --- Control Templates

resource rControlTemplate (CTLTMP_00008004, $0000) {
       $00000005,              // ID
       { 83,276, 96,366},      // rect
       simpleButtonControl {{
               $0000,          // flag
               $3002,          // moreFlags
               $00000000,      // refCon
               PSTR_000000fe,  // titleRef
               0,              // colorTableRef
               {"\$1B", "\$1B",$0000,$0000}  // key equivalents
       }};
};

resource rControlTemplate (CTLTMP_00008005, $0000) {
       $00000006,              // ID
       { 83,382, 96,472},      // rect
       simpleButtonControl {{
               $0001,          // flag
               $3002,          // moreFlags
               $00000000,      // refCon
               PSTR_000000FF,  // titleRef
               0,              // colorTableRef
               {"\$0D", "\$0D",$0000,$0000}  // key equivalents
       }};
};

resource rControlTemplate (CTLTMP_00008006, $0000) {
       $00000007,              // ID
       { 83, 78, 96,178},      // rect
       simpleButtonControl {{
               $0000,          // flag
               $3002,          // moreFlags
               $00000000,      // refCon
               PSTR_00008000,  // titleRef
               0,              // colorTableRef
               {"S","s",$0100,$0100}  // key equivalents
       }};
};

resource rControlTemplate (CTLTMP_00008007, $0000) {
       $00000008,              // ID
       { 48,138, 61,334},      // rect
       simpleButtonControl {{
               $0000,          // flag
               $1002,          // moreFlags
               $00000000,      // refCon
               PSTR_00008001   // titleRef
       }};
};

resource rControlTemplate (CTLTMP_00008008, $0000) {
       $00000009,              // ID
       { 66,138, 79,334},      // rect
       simpleButtonControl {{
               $0000,          // flag
               $3002,          // moreFlags
               $00000000,      // refCon
               PSTR_00008002,  // titleRef
               0,              // colorTableRef
               {"T","t",$0100,$0100}  // key equivalents
       }};
};

// --- rPString Templates

resource rPString (PSTR_00008000, $0000) {
       "Skip item"
};

resource rPString (PSTR_00008001, $0000) {
       "Skip bad names"
};

resource rPString (PSTR_00008002, $0000) {
       "Translate bad names"
};

// --- Window Templates

resource rWindParam1 (WPARAM1_00000009, $c000) {
       $2020,                  // plFrame (frame bits)
       NIL,                    // plTitle (no Title)
       $00000000,              // plRefCon
       {  0,  0,  0,  0},      // plZoomRect
       NIL,                    // plColorTable (standard colors)
       {$0000, $0000},         // plYOrigin, plXOrigin
       {$0000, $0000},         // plDataHeight, plDataWidth
       {$0000, $0000},         // plMaxHeight, plMaxWidth
       {$0000, $0000},         // plVerScroll, plHorScroll
       {$0000, $0000},         // plVerPage, plHorPage
       $00000000,              // plInfoText (info RefCon)
       $0000,                  // plInfoHeight
       { 42, 76,143,560},      // plPosition
       infront,                // plPlane
       CTLLST_00000009,        // plControlList
       $0009                   // plInDesc
};

// -- diaNameDup (88)

// --- Control List Definitions

resource rControlList (CTLLST_0000000A, $0000) {
       {
       CTLTMP_00007000,        // control 1
       CTLTMP_00009001,        // control 2
       CTLTMP_00007002,        // control 3
       CTLTMP_00007003,        // control 4
       CTLTMP_00009004,        // control 5
       CTLTMP_00009005,        // control 6
       CTLTMP_00009006,        // control 7
       };
};

// --- Control Templates

resource rControlTemplate (CTLTMP_00009001, $0000) {
       $00000002,              // ID
       {  3, 72, 22,459},      // rect
       statTextControl {{
               $0003,          // flag
               $1002,          // moreFlags
               $00000000,      // refCon
               LETXTBOX_00009000,     // textRef
               0, 				// textSize
               $0000           // just
       }};
};

resource rControlTemplate (CTLTMP_00009004, $0000) {
       $00000005,              // ID
       { 51,264, 64,354},      // rect
       simpleButtonControl {{
               $0000,          // flag
               $3002,          // moreFlags
               $00000000,      // refCon
               PSTR_000000Fe,  // titleRef
               0,              // colorTableRef
               {"\$1B", "\$1B",$0000,$0000}  // key equivalents
       }};
};

resource rControlTemplate (CTLTMP_00009005, $0000) {
       $00000006,              // ID
       { 51,370, 64,460},      // rect
       simpleButtonControl {{
               $0001,          // flag
               $3002,          // moreFlags
               $00000000,      // refCon
               PSTR_000000FF,  // titleRef
               0,              // colorTableRef
               {"\$0D", "\$0D",$0000,$0000}  // key equivalents
       }};
};

resource rControlTemplate (CTLTMP_00009006, $0000) {
       $00000007,              // ID
       { 51, 74, 64,164},      // rect
       simpleButtonControl {{
               $0000,          // flag
               $3002,          // moreFlags
               $00000000,      // refCon
               PSTR_000000FA,  // titleRef
               0,              // colorTableRef
               {"S","s",$0100,$0100}  // key equivalents
       }};
};

// --- rTextForLETextBox2 Templates

resource rTextForLETextBox2 (LETXTBOX_00009000, $0000) {
       "Duplicating the item Ò*3Ó."
};

// --- Window Templates

resource rWindParam1 (WPARAM1_0000000A, $c000) {
       $2020,                  // plFrame (frame bits)
       NIL,                    // plTitle (no Title)
       $00000000,              // plRefCon
       {  0,  0,  0,  0},      // plZoomRect
       NIL,                    // plColorTable (standard colors)
       {$0000, $0000},         // plYOrigin, plXOrigin
       {$0000, $0000},         // plDataHeight, plDataWidth
       {$0000, $0000},         // plMaxHeight, plMaxWidth
       {$0000, $0000},         // plVerScroll, plHorScroll
       {$0000, $0000},         // plVerPage, plHorPage
       $00000000,              // plInfoText (info RefCon)
       $0000,                  // plInfoHeight
       { 42, 84,111,556},      // plPosition
       infront,                // plPlane
       CTLLST_0000000A,        // plControlList
       $0009                   // plInDesc
};

// -- diaNameUsed (90)

// --- Control List Definitions

resource rControlList (CTLLST_0000000B, $0000) {
       {
       CTLTMP_00007000,        // control 1
       CTLTMP_0000a001,        // control 2
       CTLTMP_00007002,        // control 3
       CTLTMP_00007003,        // control 4
       CTLTMP_00009004,        // control 5
       CTLTMP_00009005,        // control 6
       CTLTMP_00009006        // control 7
       };
};

// --- Control Templates

resource rControlTemplate (CTLTMP_0000a001, $0000) {
       $00000002,              // ID
       {  3, 72, 22,459},      // rect
       statTextControl {{
               $0003,          // flag
               $1002,          // moreFlags
               $00000000,      // refCon
               LETXTBOX_0000A000,     // textRef
               0, 				// textSize
               $0000           // just
       }};
};

// --- rTextForLETextBox2 Templates

resource rTextForLETextBox2 (LETXTBOX_0000A000, $0000) {
       "The name Ò*4Ó already exists."
};

// --- Window Templates

resource rWindParam1 (WPARAM1_0000000B, $c000) {
       $2020,                  // plFrame (frame bits)
       NIL,                    // plTitle (no Title)
       $00000000,              // plRefCon
       {  0,  0,  0,  0},      // plZoomRect
       NIL,                    // plColorTable (standard colors)
       {$0000, $0000},         // plYOrigin, plXOrigin
       {$0000, $0000},         // plDataHeight, plDataWidth
       {$0000, $0000},         // plMaxHeight, plMaxWidth
       {$0000, $0000},         // plVerScroll, plHorScroll
       {$0000, $0000},         // plVerPage, plHorPage
       $00000000,              // plInfoText (info RefCon)
       $0000,                  // plInfoHeight
       { 42, 84,111,556},      // plPosition
       infront,                // plPlane
       CTLLST_0000000B,        // plControlList
       $0009                   // plInDesc
};

// -- diaBadName (92)

// --- Control List Definitions

resource rControlList (CTLLST_0000000C, $0000) {
       {
       CTLTMP_00007000,        // control 1
       CTLTMP_0000b001,        // control 2
       CTLTMP_0000b002,        // control 3
       CTLTMP_0000b003,        // control 4
       CTLTMP_0000b004,        // control 5
       CTLTMP_0000b005,        // control 6
       CTLTMP_0000b006         // control 7
       };
};

// --- Control Templates

resource rControlTemplate (CTLTMP_0000b001, $0000) {
       $00000002,              // ID
       {  4, 72, 63,559},      // rect
       statTextControl {{
               $0003,          // flag
               $1002,          // moreFlags
               $00000000,      // refCon
               LETXTBOX_0000b000,     // textRef
               0, 				// textSize
               $0000           // just
       }};
};

resource rControlTemplate (CTLTMP_0000b002, $0000) {
       $00000003,              // ID
       { 69, 72, 78, 148},      // rect
       statTextControl {{
               $0000,          // flag
               $1002,          // moreFlags
               $00000000,      // refCon
               LETXTBOX_00007001,     // textRef
               0, 				// textSize
               $0000           // just
       }};
};

resource rControlTemplate (CTLTMP_0000b003, $0000) {
       $00000004,              // ID
       { 67, 148, 80,480},      // rect
       editLineControl {{
               $0000,          // flag
               $7002,          // moreFlags
               $00000000,      // refCon
               $0020,          // maxSize
               PSTR_000000fc   // defaultRef
       }};
};

resource rControlTemplate (CTLTMP_0000b004, $0000) {
       $00000005,              // ID
       { 87,344, 100,434},      // rect
       simpleButtonControl {{
               $0000,          // flag
               $3002,          // moreFlags
               $00000000,      // refCon
               PSTR_000000Fe,  // titleRef
               0,              // colorTableRef
               {"\$1B", "\$1B",$0000,$0000}  // key equivalents
       }};
};

resource rControlTemplate (CTLTMP_0000b005, $0000) {
       $00000006,              // ID
       { 87,450, 100,540},      // rect
       simpleButtonControl {{
               $0001,          // flag
               $3002,          // moreFlags
               $00000000,      // refCon
               PSTR_000000FF,  // titleRef
               0,              // colorTableRef
               {"\$0D", "\$0D",$0000,$0000}  // key equivalents
       }};
};

resource rControlTemplate (CTLTMP_0000b006, $0000) {
       $00000007,              // ID
       { 87, 72, 100,158},      // rect
       simpleButtonControl {{
               $0000,          // flag
               $3002,          // moreFlags
               $00000000,      // refCon
               PSTR_000000FA,  // titleRef
               0,              // colorTableRef
               {"S","s",$0100,$0100}  // key equivalents
       }};
};

// --- rTextForLETextBox2 Templates

resource rTextForLETextBox2 (LETXTBOX_0000b000, $0000) {
       "Ò*4Ó is not a valid *6 name.  A similar valid name is Ò*3Ó."
	   "\$0d"
	   "\$0d"
	   "*5"
};

// --- Window Templates

resource rWindParam1 (WPARAM1_0000000C, $c000) {
       $2020,                  // plFrame (frame bits)
       NIL,                    // plTitle (no Title)
       $00000000,              // plRefCon
       {  0,  0,  0,  0},      // plZoomRect
       NIL,                    // plColorTable (standard colors)
       {$0000, $0000},         // plYOrigin, plXOrigin
       {$0000, $0000},         // plDataHeight, plDataWidth
       {$0000, $0000},         // plMaxHeight, plMaxWidth
       {$0000, $0000},         // plVerScroll, plHorScroll
       {$0000, $0000},         // plVerPage, plHorPage
       $00000000,              // plInfoText (info RefCon)
       $0000,                  // plInfoHeight
       { 42, 34,148,606},      // plPosition
       infront,                // plPlane
       CTLLST_0000000C,        // plControlList
       $0009                   // plInDesc
};

// -- diaCopying (56)

// --- Control List Definitions

resource rControlList (CTLLST_0000000D, 0) {
       {
       CTLTMP_0000c000,        // control 1
       CTLTMP_0000c001,        // control 2
       CTLTMP_0000c002,        // control 4
       CTLTMP_0000c003         // control 5
       };
};

// --- Control Templates

resource rControlTemplate (CTLTMP_0000c000, 0) {
       $00000001,              // ID
       {  5, 15, 14,223},      // rect
       statTextControl {{
               $0004,          // flag, fBlastText
               $1002,          // moreFlags
               $00000000,      // refCon
               LETXTBOX_0000c000,     // textRef
               0, 				// textSize
               $0000           // just
       }};
};

resource rControlTemplate (CTLTMP_0000c001, 0) {
       $00000002,              // ID
       { 3,324, 16,414},      // rect
       rectangleControl {{
               $ff02,          // flags
               $1000,          // moreFlags
               $00000000,      // refCon
			   1,				// height
			   2				// width
       }};
};

resource rControlTemplate (CTLTMP_0000c002, 0) {
       $00000003,              	// ID
       { 35,14, 44,294},      	// rect
       thermometerControl {{
               $0001,          	// flags, horizontal
               $1000,          	// moreFlags
               $00000000,      	// refCon
			   0,				// value
			   100				// scale
       }};
};

resource rControlTemplate (CTLTMP_0000c003, 0) {
       $00000004,              // ID
       { 33,324, 46,414},      // rect
       simpleButtonControl {{
               $0000,          // flag
               $3002,          // moreFlags
               $00000000,      // refCon
               PSTR_000000f9,  // titleRef
               0,              // colorTableRef
               {"\$1B", "\$1B",$0000,$0000}  // key equivalents
       }};
};

// --- rTextForLETextBox2 Templates

resource rTextForLETextBox2 (LETXTBOX_0000c000, 0) {
       "Items remaining to be copied:"
};

// --- Window Templates

resource rWindParam1 (WPARAM1_0000000D, locked, fixed) {
       $2020,                  // plFrame (frame bits)
       NIL,                    // plTitle (no Title)
       $00000000,              // plRefCon
       {  0,  0,  0,  0},      // plZoomRect
       NIL,                    // plColorTable (standard colors)
       {$0000, $0000},         // plYOrigin, plXOrigin
       {$0000, $0000},         // plDataHeight, plDataWidth
       {$0000, $0000},         // plMaxHeight, plMaxWidth
       {$0000, $0000},         // plVerScroll, plHorScroll
       {$0000, $0000},         // plVerPage, plHorPage
       $00000000,              // plInfoText (info RefCon)
       $0000,                  // plInfoHeight
       { 76,102,125,534},      // plPosition
       infront,                // plPlane
       CTLLST_0000000D,        // plControlList
       $0009                   // plInDesc
};

// -- diaNumBlks (84)

// --- Control List Definitions

resource rControlList (CTLLST_0000000e, $0000) {
       {
       CTLTMP_0000d000,        // control 1
       CTLTMP_0000c001,        // control 2
       CTLTMP_0000c002,        // control 3
       CTLTMP_0000c003         // control 4
       };
};

// --- Control Templates

resource rControlTemplate (CTLTMP_0000d000, $0000) {
       $00000001,              // ID
       {  5, 15, 14,223},      // rect
       statTextControl {{
               $0004,          // flag (fBlastText)
               $1002,          // moreFlags
               $00000000,      // refCon
               LETXTBOX_0000d000,     // textRef
               0, 				// textSize
               $0000           // just
       }};
};

// --- rTextForLETextBox2 Templates

resource rTextForLETextBox2 (LETXTBOX_0000d000, $0000) {
       "Disk-to-disk copy in progress:"
};

// --- Window Templates

resource rWindParam1 (WPARAM1_0000000e, $c000) {
       $2020,                  // plFrame (frame bits)
       NIL,                    // plTitle (no Title)
       $00000000,              // plRefCon
       {  0,  0,  0,  0},      // plZoomRect
       NIL,                    // plColorTable (standard colors)
       {$0000, $0000},         // plYOrigin, plXOrigin
       {$0000, $0000},         // plDataHeight, plDataWidth
       {$0000, $0000},         // plMaxHeight, plMaxWidth
       {$0000, $0000},         // plVerScroll, plHorScroll
       {$0000, $0000},         // plVerPage, plHorPage
       $00000000,              // plInfoText (info RefCon)
       $0000,                  // plInfoHeight
       { 76,102,125,534},      // plPosition
       infront,                // plPlane
       CTLLST_0000000e,        // plControlList
       $0009                   // plInDesc
};



// -- diaVerify (162)

// --- Control List Definitions

resource rControlList (CTLLST_0000000f, $0000) {
       {
       CTLTMP_0000e000,        // control 1
       CTLTMP_0000c001,        // control 2
       CTLTMP_0000c002,        // control 3
       CTLTMP_0000e003,        // control 4
       CTLTMP_0000e004         // control 4
       };
};

// --- Control Templates

resource rControlTemplate (CTLTMP_0000e000, $0000) {
       $00000001,              // ID
       {  5, 15, 14,223},      // rect
       statTextControl {{
               $0004,          // flag (fBlastText)
               $1002,          // moreFlags
               $00000000,      // refCon
               LETXTBOX_0000e000,     // textRef
               0, 				// textSize
               $0000           // just
       }};
};

resource rControlTemplate (CTLTMP_0000e003, $0000) {
       $00000004,              // ID
       { 33,324, 46,414},      // rect
       simpleButtonControl {{
               $0000,          // flag
               $3002,          // moreFlags
               $00000000,      // refCon
               PSTR_000000fe,  // titleRef
               0,              // colorTableRef
               {"\$1B", "\$1B",$0000,$0000}  // key equivalents
       }};
};

resource rControlTemplate (CTLTMP_0000e004, $0000) {
       $00000005,              // ID
       { 20, 15, 30,373},      // rect
       statTextControl {{
               $0003,          // flag
               $1002,          // moreFlags
               $00000000,      // refCon
               LETXTBOX_0000e001,     // textRef
               0, 				// textSize
               $0000           // just
       }};
};

// --- rTextForLETextBox2 Templates

resource rTextForLETextBox2 (LETXTBOX_0000e000, $0000) {
       "Number of blocks remaining:"
};

resource rTextForLETextBox2 (LETXTBOX_0000e001, $0000) {
       "Verifying disk Ò*0Ó"
};

// --- Window Templates

resource rWindParam1 (WPARAM1_0000000f, $c000) {
       $2020,                  // plFrame (frame bits)
       NIL,                    // plTitle (no Title)
       $00000000,              // plRefCon
       {  0,  0,  0,  0},      // plZoomRect
       NIL,                    // plColorTable (standard colors)
       {$0000, $0000},         // plYOrigin, plXOrigin
       {$0000, $0000},         // plDataHeight, plDataWidth
       {$0000, $0000},         // plMaxHeight, plMaxWidth
       {$0000, $0000},         // plVerScroll, plHorScroll
       {$0000, $0000},         // plVerPage, plHorPage
       $00000000,              // plInfoText (info RefCon)
       $0000,                  // plInfoHeight
       { 76,102,125,534},      // plPosition
       infront,                // plPlane
       CTLLST_0000000f,        // plControlList
       $0009                   // plInDesc
};



// -- diaValid (172)  "Validate"

// --- Control List Definitions

resource rControlList (CTLLST_00000010, $0000) {
       {
       CTLTMP_0000f000,        	// control 1
       CTLTMP_0000c001,      	// control 2
       CTLTMP_0000c002, 		// control 4
       CTLTMP_0000e003	        // control 5
       };
};

// --- Control Templates

resource rControlTemplate (CTLTMP_0000f000, $0000) {
       $00000001,              // ID
       {  5, 15, 14,223},      // rect
       statTextControl {{
               $0004,          // flag (fBlastText)
               $1002,          // moreFlags
               $00000000,      // refCon
               LETXTBOX_0000f000,     // textRef
               0, 				// textSize
               $0000           // just
       }};
};

// --- rTextForLETextBox2 Templates

resource rTextForLETextBox2 (LETXTBOX_0000f000, $0000) {
       "Number of items to be validated:"
};

// --- Window Templates

resource rWindParam1 (WPARAM1_00000010, $c000) {
       $2020,                  // plFrame (frame bits)
       NIL,                    // plTitle (no Title)
       $00000000,              // plRefCon
       {  0,  0,  0,  0},      // plZoomRect
       NIL,                    // plColorTable (standard colors)
       {$0000, $0000},         // plYOrigin, plXOrigin
       {$0000, $0000},         // plDataHeight, plDataWidth
       {$0000, $0000},         // plMaxHeight, plMaxWidth
       {$0000, $0000},         // plVerScroll, plHorScroll
       {$0000, $0000},         // plVerPage, plHorPage
       $00000000,              // plInfoText (info RefCon)
       $0000,                  // plInfoHeight
       { 76,102,125,534},      // plPosition
       infront,                // plPlane
       CTLLST_00000010,        // plControlList
       $0009                   // plInDesc
};



// ==========================================================================
//
// Updating Desktop Database... window
//

// --- Control List Definitions

resource rControlList (CTLLST_00000012, $0000) {
       {
       CTLTMP_00010000,        // control 1
       CTLTMP_00010001         // control 3
       };
};

// --- Control Templates

resource rControlTemplate (CTLTMP_00010000, $0000) {
       $00000001,              // ID
       {  5, 12, 16,219},      // rect
       statTextControl {{
               $0004,          // flag, fBlastText
               $1002,          // moreFlags
               $00000000,      // refCon
               LETXTBOX_00010000,     // textRef
               0, 				// textSize
               $0000           // just
       }};
};

resource rControlTemplate (CTLTMP_00010001, $0000) {
       $00000003,              	// ID
       { 32, 12, 41,343},      	// rect
       thermometerControl {{
               $0001,          	// flags, horizontal
               $1000,          	// moreFlags
               $00000000,      	// refCon
			   0,				// value
			   100				// scale
       }};
};

// --- rTextForLETextBox2 Templates

resource rTextForLETextBox2 (LETXTBOX_00010000, $0000) {
       "Updating desktop database..."
};


// --- Window Template (Updating Desktop Database...)

resource rWindParam1 (WPARAM1_00000011, $0000) {
       $2020,                  // plFrame (frame bits)
       NIL,                    // plTitle (no Title)
       $00000000,              // plRefCon
       {  0,  0,  0,  0},      // plZoomRect
       NIL,                    // plColorTable (standard colors)
       {$0000, $0000},         // plYOrigin, plXOrigin
       {$0000, $0000},         // plDataHeight, plDataWidth
       {$0000, $0000},         // plMaxHeight, plMaxWidth
       {$0000, $0000},         // plVerScroll, plHorScroll
       {$0000, $0000},         // plVerPage, plHorPage
       $00000000,              // plInfoText (info RefCon)
       $0000,                  // plInfoHeight
       {  24,144, 71,499},     // plPosition
       infront,                // plPlane
       CTLLST_00000012,        // plControlList
       $0009                   // plInDesc
};
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Finder/drives.aii b/IIGS.601.SRC/A.U.G/Finder/drives.aii
new file mode 100644
index 0000000..66b86f7
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Finder/drives.aii
@@ -0,0 +1 @@
+;*********************************************************************************************
;
;	File:		drives.aii
;
;	Contains:	Drives stuff
;
;	Written by:	Dan Oliver, later by Don J. Brady, Jim Merrrit, and a cast of
;			Thousands (6.0: Andy Nicholas and Dave Lyons)
;
;	Copyright:	© 1991-93 by Apple Computer, Inc., all rights reserved.
;
;*********************************************************************************************
;
; CHANGE HISTORY FOR 6.0.1
;
; 16-Oct-92	Dave Lyons
;   After opening a window from Finder.Root of a newly inserted disk, we set the
;   PendingDeselectAll flag so that keyboard navigation happens in the new window.
;
;
; 22-Mar-93 JCM - Now calling UnlockICBLKHAND in a number of places instead of doing it inline.
;
;  1-Apr-93 JCM - We now load new-style icons from @:Desktop if we're net booted. Since we've
;		  always written there, it's rather stupid not to read as well. Duh.
;
;*********************************************************************************************


		STRING	ASIS
		BLANKS	OFF

		PRINT	OFF

		PRINT	NOGEN
		PRINT	NOSYM
		PRINT	NOPAGE
		PAGESIZE $FFFF,126

		INCLUDE 'All.macros'
		INCLUDE	'Pascal.macros'
		INCLUDE	'special.macros'
		INCLUDE	'Finder.equ'
		INCLUDE	'Resource.equ'
		INCLUDE	'DP.equ'
		INCLUDE	'Data.equ'
		INCLUDE	'Strings.equ'
		INCLUDE	'match.equ'

		PRINT	ON

;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

		import DisposeHandleGlue

;		IMPORT	SysAlertsOff		; in common.aii
;		IMPORT	SysAlertsOn		; in common.aii
		IMPORT	ShutItDown		; in menu.aii
		IMPORT	updateInfoWin2		; in main.aii
		IMPORT	PToWString
		IMPORT	NewDialog
		IMPORT	clonePath
		IMPORT	buildPath
		IMPORT	getName
		IMPORT	lockic
		IMPORT	unlockic
		IMPORT	startDraw
		IMPORT	markOnLine
		IMPORT	endDraw
		IMPORT	allOnline
		IMPORT	blinkIcon
		IMPORT	toDesktop
		IMPORT	DeskSpot
		IMPORT	addIconObj
		IMPORT	drawIcon2
		IMPORT	findLastName
		IMPORT	walkOfLife
		IMPORT	setic
		IMPORT	makeIcRoot
		IMPORT	path2temp2
		IMPORT	addRootName
		IMPORT	allocate2
		IMPORT	derefHand
		IMPORT	path2ticon
		IMPORT	toDeskPort
		IMPORT	ckIfWind
		IMPORT	ckIfWindMax
		IMPORT	openFolder2
		IMPORT	temp2Topath
		IMPORT	noRename
		IMPORT	markOffLine
		IMPORT	allOffLine
		IMPORT	addName
		IMPORT	MiscEntry
		IMPORT	addName
		IMPORT	watchCursor
		IMPORT	arrowCursor
		IMPORT	allocate
		IMPORT	setTemp
		IMPORT	unlockblk

;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

		ENTRY	newDevice
		ENTRY	typeDevice
		ENTRY	readRoot
		ENTRY	matchDevice
		ENTRY	openExtIcon
		ENTRY	openExtIconLong
		ENTRY	openWindow
		ENTRY	openWindowLong
		ENTRY	fetchPath
		ENTRY	fetchPathLong

		ENTRY	dinfo_list
		ENTRY	dinfo_devnum
		ENTRY	dinfo_devchar
		ENTRY	dinfo_devid
		ENTRY	GetAccessPriv
		ENTRY	dupDevice
		ENTRY	dupDevice2
		ENTRY	matchIcName
		ENTRY	doSetPrefix2
		ENTRY	doSetPrefix
		ENTRY	doSetMark
		ENTRY	doGetFileInfo
		ENTRY	doCreate
		ENTRY	ProDOSerr
		ENTRY	doRead
		ENTRY	read2
		ENTRY	open_file
		ENTRY	read_file
		ENTRY	read_file2
		ENTRY	doWrite
		ENTRY	close_file
		ENTRY	dos_var
		ENTRY	chkPartition


;========================================
;	   RAM for DOS routines.
;========================================

dos_var		PROC	EXPORT

		IMPORT	OptionBuff

; --- Open file	parameter list -------------

		EXPORT	open_list
open_list	DC.W	13			;pcount
		EXPORT	open_num
open_num	DC.W	0			;ref_num
		EXPORT	open_name
open_name	DC.L	0			;ptr to file's pathname
		EXPORT	open_request
open_request	DC.W	0			;request_access
		EXPORT	open_resource
open_resource	DC.W	0			;resource_number
		EXPORT	open_access
open_access	DC.W	0			;access
		EXPORT	open_type
open_type	DC.W	0			;file_type
		EXPORT	open_aux
open_aux	DC.L	0			;aux_type
		EXPORT	open_store
open_store	DC.W	0			;storage_type
		EXPORT	open_cdate
open_cdate	DC.L	0,0			;create_date
		EXPORT	open_mdate
open_mdate	DC.L	0,0			;mod_date
		EXPORT	open_option
open_option	DC.L	OptionBuff		;ptr to option_list
		EXPORT	open_eof
open_eof	DC.L	0			;eof
		EXPORT	open_blks
open_blks	DC.L	0			;blocks_used


; --- Close file parameter list -------------

		EXPORT	close_list
close_list	DC.W	1			;pcount
		EXPORT	close_num
close_num	DC.W	0			;ref_num


; --- Read file	parameter list --------------

		EXPORT	read_list
read_list	DC.W	4			;pcount
		EXPORT	read_num
read_num	DC.W	0			;ref_num
		EXPORT	read_buff
read_buff	DC.L	0			;ptr to input buffer
		EXPORT	read_size
read_size	DC.L	0			;number of bytes to read (64K max)
		EXPORT	read_len
read_len	DC.L	0			;actual number of bytes read


; --- Write file list -----------------------

		EXPORT	write_list
write_list	DC.W	4			;pcount
		EXPORT	write_num
write_num	DC.W	0			;ref_num
		EXPORT	write_buff
write_buff	DC.L	0			;ptr to output buffer
		EXPORT	write_len
write_len	DC.L	0			;number of bytes to write
		EXPORT	written
written		DC.L	0			;actual number of byte written


; --- Create file list -----------------------

		EXPORT	create_list
create_list	DC.W	5			;pcount
		EXPORT	create_name
create_name	DC.L	C1_PathName		;ptr to file's name
		EXPORT	create_access
create_access	DC.W	%0000000011000011	;unlocked, rename ok, read/write ok
		EXPORT	file_type
file_type	DC.W	0			;file_type
		EXPORT	create_aux
create_aux	DC.L	0			;aux_type
		EXPORT	storage_type
storage_type	DC.W	1			;storage_type (seedling file)


; --- Destroy file list -------------------------

		EXPORT	destroy_list
destroy_list	DC.W	1			;pcount
		DC.L	C1_PathName		;ptr to file's name


; --- Set/Get prefix list -----------------------

		EXPORT	prefix_list
prefix_list	DC.W	2			;pcount
		EXPORT	prefix_num
prefix_num	DC.W	0			;prefix_number
		EXPORT	prefix_name
prefix_name	DC.L	0			;ptr to pathname

		EXPORT	null_prefix_list
null_prefix_list DC.W	2			;pcount
		EXPORT	null_prefix_num
null_prefix_num	DC.W	0			;prefix_number
		EXPORT	null_prefix_name
null_prefix_name DC.L	null_prefix		;ptr to pathname
null_prefix	dc.W	0

; --- Get file info list -----------------------

		EXPORT	info_list
info_list	DC.W	12			;pcount
		EXPORT	info_name
info_name	DC.L	C1_PathName		;ptr to file's pathname.
		EXPORT	info_access
info_access	DC.W	0			;access
		EXPORT	info_type
info_type	DC.W	0			;file_type
		EXPORT	info_aux
info_aux	DC.L	0			;aux_type
		EXPORT	info_store
info_store	DC.W	0			;storage_type (null for SET_FILE_INFO)
		EXPORT	info_cdate
info_cdate	DC.L	0,0			;create_date
		EXPORT	info_mdate
info_mdate	DC.L	0,0			;mod_date
		EXPORT	info_option
info_option	DC.L	OptionBuff		;ptr to option_list
		EXPORT	info_eof
info_eof	DC.L	0			;eof (null for SET_FILE_INFO)
		EXPORT	info_blocks
info_blocks	DC.L	0			;blocks_used (null for SET_FILE_INFO)
		EXPORT	info_rsrc_eof
info_rsrc_eof	DC.L	0			;resource eof
		EXPORT	info_rsrc_blks
info_rsrc_blks	DC.L	0			;resource blocks used


; --- EOF list ----------------------------------

		EXPORT	EOF_list
EOF_list	DC.W	3			;pcount
		EXPORT	EOF_num
EOF_num		DS.B 2				;ref_num
		EXPORT	eof_base
eof_base	DC.W	0			;base
		EXPORT	EOF_place
EOF_place	DS.B 4				;displacement

; --- Volume list -------------------------------

		EXPORT	volume_list
volume_list	DC.W	8			;pcount
		ENTRY	DevName
DevName		DC.L	C1_DeviceName		;ptr to device name
		DC.L	C1_PathNameBuf		;ptr to volume name buffer
		EXPORT	NumBlks
NumBlks		DC.L	0			;total_blocks
		EXPORT	FreeBlks
FreeBlks	DC.L	0			;free_blocks
		EXPORT	FileSysID
FileSysID	DC.W	0			;file_sys_id
		EXPORT	BlockSize
BlockSize	DC.W	0			;number of bytes of a block
		EXPORT	DeviceCharacteristics
DeviceCharacteristics	DC.W	0		;device characteristics
		EXPORT	DeviceID		
DeviceID	DC.W	0			;deviceID
		EXPORT	BootFST			
BootFST		dc.w	0			;file system we used to boot

; --- File position mark list -------------------

		EXPORT	mark_list
mark_list	DC.W	3			;pcount
		EXPORT	mark_num
mark_num	DC.W	0			;ref_num
mark_base	DC.W	0			;base
		EXPORT	mark_pos
mark_pos	DC.L	0			;displacement

; --- D_INFO list -------------------------------

		EXPORT	dinfo_list
dinfo_list
		DC.W	8			;pcount
		EXPORT	dinfo_devnum
dinfo_devnum	DC.W	0			;dev_num
		DC.L	c1_DevNameBuf		;dev_name
		EXPORT	dinfo_devchar
dinfo_devchar	DC.W	0			;dev_char
		DC.L	0			;total_blocks
		DC.W	0			;slot_num
		DC.W	0			;unit_num
		DC.W	0			;version
		EXPORT	dinfo_devid
dinfo_devid	DC.W	0			;device_id_num
		DC.W	0			;head_link
		DC.W	0			;forward_link

; --- CHANGE_PATH list --------------------------

		ENTRY	cpath_list
cpath_list	DC.W	2			;pcount
		DC.L	C1_DeviceName		;ptr to old pathname
		DC.L	C1_PathName		;ptr to new pathname

		ENTRY	StartUpFlag
StartUpFlag	dc.w	0
		ENDP

*===============================================*
*	      Mount a GSOS Disk			*
*						*
* IN:	---- STACK ----				*
*	startFlag (Word)			*
*	devNum (Word)				*
*	flag (Word)				*
*  SP-->					*
*						*
* OUT:	A reg, carry flag			*
*===============================================*

MountDisk	PROCNAME EXPORT

		InitFrame
		FrameType  SaveB,ReturnA	; save data bank, return A reg (and carry)

devID		Local	Word
devChar		Local	Word
devStatus	Local	Word
devName		Local	34			; name of device
volName		Local	34			; name of volume
totalBlocks	Local	Long
freeBlocks	Local	Long
blkSize		Local	Word
fileSystem	Local	Word
fileAccess	Local	Word
createDate	Local	8
modifyDate	Local	8
errorCode	Local	Word
dialogNum	Local	Word
oldDP		Local	Word
HDIflags	Local	Word

flag		Param	Word			; input parameters (reverse order)
devNum		Param	Word
startFlag	Param	Word

		IMPORT	WStringCopy
		IMPORT	doAlertWindow
		IMPORT	C1_PathNamePtr
		IMPORT	GetDeviceName
		IMPORT	GetDeviceInfo
		IMPORT	GetDeviceStatus
		IMPORT	GetVolumeInfo
		IMPORT	GetFileInfo
		IMPORT	EjectDisk
		IMPORT	FormatDisk
		IMPORT	IgnoreGSOSError
		IMPORT	HandleGSOSError
		IMPORT	GetProDOSName
		IMPORT	SetProDOSName
		IMPORT	NewUntitled
		IMPORT	PathAddName
		IMPORT	DeviceCharacteristics
		IMPORT	VolumeParams

		tdc				; stash old DP in x
		tax

		EntryCode
;-----------------------------------------------
		stx	<oldDP			; remember old DP
Begin	
		phk
		plb

		lda	<startFlag
		sta	startUpFlag

		lda	<flag
		and	#$0002
		beq	getMountData

		stz	createIcon		; clear 'icon created' flag

		PushZWord <devNum		; pass device number
		PushZPtr <devName		; pointer to device name
		PushZPtr <devChar		; pointer to characteristics
		PushZPtr <totalBlocks		; pointer to total blocks
		PushZPtr <devID			; pointer to device ID
		jsl	GetDeviceInfo
		bcc	@ok
		brl	End
@ok

		PushZPtr <devName
		PushLong #C1_DeviceName
		jsl	WStringCopy

		lda	<devChar
		and	#$fffc			;strip the locked & FSTisWriteOnly bits
		ora	#$0040			;say the device is writable
		sta	DeviceCharacteristics		

		lda	<devID
		sta	dinfo_devid		;fake the devNum and devID to newdevice
		lda	<devNum
		sta	_DevNum

		lda	#1
		sta	info_access

		lda	#280
		sta	NumBlks
		stz	NumBlks+2

		stz	C1_PathName		; pass empty path (flag it)
		phd
		lda	<oldDP
		tcd
		lda	_DevNum
		sta	<devNumber
		jsr	NewDevice		; add 5.25 drive icon
		pld
goToEnd		brl	end

getMountData
		jsr	GetGSOSInfo		; get mount data
		bcc	map

		jsr	MountError		; handle errors
		lda	#$FFFF
		bcs	goToEnd
		brl	Begin			; try to mount again

map		stz	createIcon		; clear 'icon created' flag

		PushZPtr <volName
		PushLong #C1_PathName
		jsl	WStringCopy

		PushZPtr <devName
		PushLong #C1_DeviceName
		jsl	WStringCopy

		lda	<devID			
		sta	dinfo_devid
		
		lda	<devNum
		sta	_DevNum

		ldx	#6
@loop		lda	<createDate,x
		sta	info_cdate,x
		dex
		dex
		bpl	@loop

		ldx	#6
@loop2		lda	<modifyDate,x
		sta	info_mdate,x
		dex
		dex
		bpl	@loop2

		lda	<fileAccess
		sta	info_access
		lda	<totalBlocks
		sta	NumBlks
		lda	<totalBlocks+2
		sta	NumBlks+2
		lda	<freeBlocks
		sta	FreeBlks
		lda	<freeBlocks+2
		sta	FreeBlks+2
		lda	<fileSystem
		sta	FileSysID
		lda	<blkSize
		sta	BlockSize

		phd
		lda	<oldDP
		tcd
		lda	_DevNum
		sta	<devNumber
		jsr	NewDevice		; add disk icon
		pld
		bcc	@notMounted
		brl	getMountData
		
@notFirst	sec
		lda	#$27
		bra	end
@notMounted

		lda	<devID			; is this a Disk][ ?
		bne	endGlue			; no
		lda	<flag			; is this a first time Disk][?
		and	#1
		beq	@notFirst		; no

		lda	<devChar
		and	#$fffc			;clear the fst and write-protected bits
		ora	#$0040			;add in the writable bit
		sta	DeviceCharacteristics	

		stz	C1_PathName		; pass empty path (flag it)

		phd
		lda	<oldDP
		tcd
		lda	_DevNum
		sta	<devNumber
		jsr	NewDevice		; add 5.25 drive icon
		pld

endGlue		lda	#0			; no error

End
;-----------------------------------------------
		ExitCode

;
; locals
;
_DevNum		DC.W	0

;-----------------------------------------------
		ENTRY	GetGSOSInfo
GetGSOSInfo
		stz	<errorCode

		jsl	IgnoreGSOSError

		PushZWord <devNum		; pass device number
		PushZPtr <devName		; pointer to device name
		PushZPtr <devChar		; pointer to characteristics
		PushZPtr <totalBlocks		; pointer to total blocks
		PushZPtr <devID			; pointer to device ID
		jsl	GetDeviceInfo
		bcs	badInfo
		lda	<devChar
		and	#$0080			; a block device ?
		bne	okInfo			; yes
		lda	#$8001
badInfo		sta	<errorCode
		brl	endGSOS


okInfo		

;		pha				; space for status
;		PushZWord <devNum		; pass device number
;		jsl	GetDeviceStatus
;		pla
;		sta	<devStatus		; pull status
;		bcs	badInfo
;		and	#$0010			; device online ?
;		bne	okStat			; yes
;		lda	#$8002
;		bra	badInfo

okStat		PushZPtr <devName		; pointer to device name
		PushZPtr <volName		; pointer to volume name
		PushZPtr <totalBlocks		; pointer to total blocks
		PushZPtr <freeBlocks		; pointer to free blocks
		PushZPtr <fileSystem		; pointer to file system ID
		PushZPtr <blkSize		; pointer to block size
		jsl	GetVolumeInfo
		bcs	badInfo

		lda	>VolumeParams+$16
		sta	DeviceCharacteristics

		PushZPtr <volName		; pointer to volume name
		PushZPtr <fileAccess		; pointer to access
		PushLong #0			; skip file type
		PushLong #0			; skip aux type
		PushLong #0			; skip storage type
		PushZPtr <createDate		; pointer create date
		PushZPtr <modifyDate		; pointer modify date
		PushLong #0			; skip bytes
		PushLong #0			; skip blocks
		PushZPtr <fileSystem		; file system
		jsl	GetFileInfo
		bcc	endGSOS
		cmp	#$4F			; ignore bufferToSmall errors
		beq	endGSOS
		sta	<errorCode

endGSOS		jsl	HandleGSOSError
		lda	<errorCode
		cmp	#1
		rts

;
; a-reg has error code
;
mountError	stz	HDIFlags

*** 28-Oct-92 DAL -- Errors 2D, 46, 51, and 5A no longer set the hdiUnreadable bit for HandleDiskInsert

		cmp	#$46
		beq	_SomeWeirdError
		cmp	#$52			; disk initialized by another OS?
		beq	_WrongOS
		cmp	#$5D			; disk initialized by another OS?
		beq	_WrongOS
		cmp	#$27			; uninitialized or no disk?
		beq	_Uninitialized
		cmp	#$2D			; FATAL ERROR - bad block number ?
		beq	_SomeWeirdError
		cmp	#$51			; FATAL ERROR - directory error ?
		beq	_SomeWeirdError
		cmp	#$5A			; FATAL ERROR - damaged bitmap ?
		beq	_SomeWeirdError
		cmp	#$57			; duplicate volume (for example, boot volume's name)
		beq	_Duplicate

abort		sec
endMountError	rts


;
; someone stuck an unitialized disk into a drive, handle it
;
_Uninitialized	lda	#$0100			;hdiUnreadable
		sta	HDIFlags
_SomeWeirdError
		lda	<devID			; is this a Disk][ ?
		bne	_Duplicate		; no
		lda	<flag			; is this a first time Disk][?
		and	#1
		beq	_Duplicate		; no

		jsr	addDrive		;add the drive icon, just not the disk
		sec
		rts

;
; someone stuck a disk in that GS/OS doesn't have an FST for, handle it
;
_WrongOS

;
; someone tried to mount a duplicate volume.  Let HandleDiskInsert handle it
;
_Duplicate	pha				;space for result flags
		pha				;space for result device number
		lda	#$4400			;handle the specific device (next parm)
		ora	HDIFlags
		pha
		pei 	<devNum
		_HandleDiskInsert
		pla
		plx
		tax				;is result device number zero?
		bcs	@notMounted
		bne 	@mounted

@notMounted	lda	<flag			;Was this a 525 drive that wasn't mounted?
		and	#1			;if so, mount the drive icon, but not the disk
		beq	@not525
		jsr	AddDrive

@not525		sec
@mounted	rts


;-----------------------------------------------
AddDrive
		stz	createIcon		; clear 'icon created' flag

		PushZPtr <devName
		PushLong #C1_DeviceName
		jsl	WStringCopy

		lda	<devChar		;set the characteristics for this device
		and	#$fffc
		ora	#$0040
		sta	DeviceCharacteristics	

		lda	<devID
		sta	dinfo_devid		;fake the devNum and devID to newdevice
		lda	<devNum
		sta	_DevNum

		lda	#1
		sta	info_access

		lda	#280
		sta	NumBlks
		stz	NumBlks+2

		stz	C1_PathName		; pass empty path (flag it)
		phd
		lda	<oldDP
		tcd
		lda	_DevNum
		sta	<devNumber
		jsr	NewDevice		; add 5.25 drive icon
		pld

		sec
		rts
		ENDP

; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	=
;	   Determine type of device.
;	   Add device to desktop if necessary.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	=
;
; IN:	startupFlag = zero if not in startup, nonzero if startup.
;	devNumber = device number.
;	dinfo_devid = type of device
;	volList = result from ProDOS volume call.
;		DevName:	pointer to device name.
;		VolName:	pointer to 'pathname' which contains volume name.
;		NumBlks:	size of device in blocks.
;		FreeBlks:	number of free blocks in device.
;		FileSysID:	identifies the volume's file system.
;	C1_PathName = volume name with leading separator (leading 0 = put up DiskII icon)
;	lastName = volume name, no separator.
;
;
; OUT:	Device added to desktop if necessary.
;	C1_PathName = trash.
;	C1_VolName = original pathname.
;
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	=

newDevice	PROCNAME

		IMPORT	LoadIcons
		IMPORT	OptionList
		IMPORT	WStringCopy
		IMPORT	EjectDisk
		IMPORT	C1_PathNamePtr
		IMPORT	doAlertWindow
		import	DeselectAll
		IMPORT	DeviceCharacteristics
		import	dupDeviceNum
		import	RebuildVCRLong
		import	RootIconHandle

;
; --- Save pathname of new volume ------------------------------------
;
		PushLong #C1_PathName
		PushLong #C1_VolName
		jsl	WStringCopy

;
; --- Classify the volume --------------------------------------------
;
		jsr	typeDevice		;find device type.
;		tax
;		beq	exit101			;Valid device?

		cmp	#TypeRAM		; added 05/26/88 DJB
		bne	cont101
		ldx	#$FFFF
		stx	IsRAMDisk
		bra	skip100

cont101		cmp	#TypeFDrive		; Floppy drive?
		bne	skip100

;--- Floppy disk -------------------------------

		lda	#TypeFloppy		; Floppy disk icon
		ldx	C1_PathName		; Is there really a disk there?
		bne	skip100

;--- Make floppy drive (DiskII icon) if this is first time ---

		PushLong #C1_DeviceName		; move device name into pathname
		PushLong #C1_PathName
		jsl	WStringCopy

		lda	#SEPARATOR<<8
		sta	C1_PathName+1		; replace '.' with separator character

		stz	FileSysID		; no filesystem

		lda	#TypeFDrive		; Floppy drive icon
		sta	<filetype		; remember icon type to assign
		jsr	findLastName		; lastName = pathname less leading separator.
		brl	ok101			; add Floppy drive icon

;--- Does device already have an icon ? (maybe itÕs coming back online?)  --------

skip100		sta	<filetype		; remember icon type to assign

		ldy	#0			;don't skip any devices, we didn't make an iconobj yet
		jsr	dupDevice		; check if there is a duplicate device
		bcs	cont100
		brl	ok101			; not a duplicate device, ok to add icon


; ----------------------------------------------
;	Check if this is the same device
;	coming back on line.
;
; icHand = duplicate icon.
; lastName = name to match.
; filetype = filetype to match.
; devNumber = device number.
; info_cdate = new volume's create date.
;
;------------------------------------------------
cont100
		jsr	lockic

		ldy	#icCDate+6		; must be created on same date
		ldx	#6
dateLoop	lda	[<ic],y
		cmp	info_cdate,x
		bne	dupDiskErr		; different disk!
		dey
		dey
		dex
		dex
		bpl	dateLoop

		ldy	#icFType		; must be same device type
		lda	[<ic],y
		cmp	<filetype
		bne	dupDiskErr
		brl	next100

dupDiskErr	jsr	unlockic

		pha				;space for result flags
		pha				;space for result device number
		pea 	$4400			;flag = simulate dup-volume error
		pei 	<devNumber
		_HandleDiskInsert
		pla
		plx 
		tax
		bcs	@notMounted
		bne	@mounted
		
@notMounted	lda	dupDeviceNum
		beq	@noRebuild

		jsl	RebuildVCRLong

@noRebuild	clc
		rts

@mounted	sec
		rts

;
; --------- Device found --------------------------------------------------
;
next100
		ldy	#icFlag			;Is this icon coming back on line?
		lda	[<ic],y
		and	#ICOFFLINE
		beq	skip600

		ldy	#icDevNum		;Give icon its device number back.
		lda	<devNumber
		sta	[<ic],y

		jsr	setDeviceLock
		
		jsr	startDraw
		jsr	markOnLine		;Make icon on line.
		jsr	endDraw
		jsr	allOnline		;Make all windows from disk as on line.

		jsr	updateInfoWin2		;added 07/27/88 DJB

skip600		ldy	#icFType		;Is this a floppy disk?
		lda	[<ic],y

		cmp	#TypeFloppy
		beq	skip601
		ldy	#icDevNum		;check devNum to see if this disk is
		lda	[<ic],y			;already online which means its twin
		cmp	<devNumber		;was inserted into another drive!
		beq	exit600
		brl	dupDiskErr

skip601		jsr	blinkIcon		;Flash the icon to let the user know
						;that this icon is online.
exit600		jsr	unlockic		;Stop flag, match found.
		clc
		rts

;
; --- Create an	icon for the device ------------
;
ok101
		ldy	#6
dateLoop2	lda	info_cdate,y		; changed 06/29/88 DJB
		sta	ticonobj+icCDate,y
		lda	info_mdate,y
		sta	ticonobj+icMDate,y
		dey
		dey
		bpl	dateLoop2


		jsr	toDesktop		; add to desktop list
		jsr	toDeskPort		; switch to desktop port

		jsr	DeskSpot		; find an open spot on the desktop

		inc	createIcon		; set 'icon created' flag

		lda	#ICBACKCLR		; solid white background, black outline
		sta	ticonobj+icFlag

		lda	info_access
		and	#$0001			; check read enabled
		beq	@set1			; not set !
		lda	#ICREADABLE>>16		; set our bit
@set1		sta	ticonobj+icFlag+2

		lda	info_access
		sta	ticonobj+icLocalAccess
		stz	ticonobj+icForked

		lda	>OptionList-2
		tax
		cpx	#icOptionListEnd-icOptionList-2
		bcc	@sizeOkay
		ldx	#icOptionListEnd-icOptionList-2
@sizeOkay
@loop		lda	>OptionList-2,x
		sta	ticonobj+icOptionList,x
		dex
		dex
		bpl	@loop

		lda	>OptionList
		cmp	#AppleShareFST
		bne	@notNetwork
		lda	<filetype		;check the filetype and the FST
		cmp	#$0f
		beq	@isNetwork
		cmp	#typeServer
		bne	@notNetwork

@isNetwork	lda	>OptionList+$26
		sta	ticonobj+icNetworkAccess
		lda	>OptionList+$28
		sta	ticonobj+icNetworkAccess+2
		bra	@wasNetwork
@notNetwork	stz	ticonobj+icNetworkAccess
		stz	ticonobj+icNetworkAccess+2
@wasNetwork

*** added 14-Jul-91 DAL
		lda	StartUpFlag
		bne	@startingUp
		jsr	DeselectAll		;11-Jul-91 DAL (will select new icon!)
		jsr	toDesktop
		jsr	toDeskPort
@startingUp
*** end 14-Jul-91

		stz	AccessPriv		;andy & Dave, 27-Sep-91
						;(That's a better explanation than
						;the ones DJB and JAM put in!)

;
; Based on the startup flag, either show the icon and read the icons or read the icons and then
; show the icon... or... 
;
		lda	StartUpFlag
		bne	startUp
		
		jsr	MakeAndDrawDisk
		bcs	@badMake
		
		lda	<filetype		; don't check for root if drive icon.
		cmp	#TypeFDrive
		beq	@no525Drives

		pei	<devNumber		;save device number in case drive follows
		jsl	loadIcons		;load any icon files from inserted disk, *.ICONS
		jsr	readRoot		;check if the disk has a root file
		pla
		sta	<devNumber		; restore device number
		
@no525Drives	jsr	unlockic
		clc
@badMake	rts

;
; we're in the startup loop, so load the icons, display the icon, then read the root file
;
startUp		lda	<filetype		;don't check for icon files if drive icon
		cmp	#TypeFDrive
		beq	@no525Icons
		pei	<devNumber		;save device number in case drive follows
		jsl	loadIcons		;load any icon files from inserted disk, *.ICONS
		pla
		sta	<devNumber
@no525Icons	

		jsr	MakeAndDrawDisk		
		bcs	@badMake

		lda	<filetype		;don't check for root if drive icon.
		cmp	#TypeFDrive
		beq	@no525Root
		pei	<devNumber		;save device number in case drive follows
		jsr	readRoot		;check if the disk has a root file
		pla
		sta	<devNumber		;restore device number
@no525Root

		jsr	unlockic		;leave the disk icon unlocked
		clc
@badMake	rts

;
; set the devInfo field from the device characteristics and update the ICLOCK bit in icFlag
;
setDeviceLock	lda	DeviceCharacteristics	
		ldy	#icDevInfo		;save the new device characteristics
		sta	[<ic],y
		
		and	#$0003			;check the write-protected and read-only FST bits
		beq	@notWP	
		jsr	setLocked
@notWP

		lda	DeviceCharacteristics	
		and	#$0040			;check the writable device bit
		bne	@writable
		jsr	setLocked
@writable	rts

;
; set the locked bit in icFlag
;
setLocked	ldy	#icFlag
		lda	#icLocked
		ora	[<ic],y
		sta	[<ic],y
		rts

;
; MakeAndDrawDisk -- make the iconObj and when done, draw it either in its highlighted state
;		     or not highlighted depending on whether we're in the startup loop or not
;
MakeAndDrawDisk
		lda	#lastName
		ldx	#lastName>>16
		ldy	#0			;add icon to the head of the icon list
		jsr	addIconObj		; allocate and assign an ICONOBJ
		bcc	@addOK
		rts	
@addOK

;
; ------ Fill in icon fields ----------------------------------------------
;
		jsr	lockic

		ldy	#icDisk			;stuff our own icon handle into our icDisk field,
		lda	<icHand			;creating a reference to ourself as being a root
		sta	[<ic],y			;icon
		sta	RootIconHandle
		iny
		iny
		lda	<icHand+2
		sta	[<ic],y
		sta	RootIconHandle+2

*** added 11-Jul-91 DAL -- select the new icon!
		lda	StartUpFlag
		bne	@startingUp
		ldy 	#icFlag
		lda	[<ic],y
		ora	#ICSELECTED
		sta	[<ic],y

		lda	<deskPort		;make the desktop the current plane
		ldx	<deskPort+2
		sta	<curWind
		stx	<curWind+2
		bra	@notStartingUp

@startingUp	lda	<devNumber		;if this is the boot device and we're starting up, then select it.
		cmp	#1
		bne	@notStartingUp
		ldy 	#icFlag
		lda	[<ic],y
		ora	#ICSELECTED
		sta	[<ic],y
@notStartingUp
*** end 11-Jul-91
		
		ldy	#icFBytes		; total blocks
		lda	NumBlks
		sta	[<ic],y
		iny
		iny
		lda	NumBlks+2
		sta	[<ic],y

		ldy	#icFBlocks		; used blocks = total blks - free blks
		lda	NumBlks
		sec
		sbc	FreeBlks
		sta	[<ic],y
		iny
		iny
		lda	NumBlks+2
		sbc	FreeBlks+2
		sta	[<ic],y

		ldy	#icDevNum
		lda	<devNumber
		sta	[<ic],y

		stz	AccessPriv		;added 12/06/88 DJB

; JAM 5/22/89 3:20am  (damage control)
;  Because of mods recently made to addiconobj (icons.aii),
;    the ICNETWORK bit may already be set here.  Undo that damage now.
;  (If it needs to be set, it will be under DJB 12/06/88, below)

		ldy	#icFlag+2
		lda	[<ic],y
		and     #$FEFF			(#$FFFF-(ICNETWORK>>16))
		sta	[<ic],y			; damage now undone

		ldy	#icFileInfo		;added 05/29/88 DJB
		lda	FileSysID
		sta	[<ic],y

		cmp	#AppleShareFST		; is it Apple Share ?
		bne	@ok
		jsr	GetAccessPriv		; yes, so get access privileges
		lda	AccessPriv
		and	#$000F
		sta	AccessPriv		; only care about user's rights
		ldy	#icFlag+2
		lda	[<ic],y
		ora	#ICNETWORK>>16		; set network bit
		ora	AccessPriv		; add in user's rights
		sta	[<ic],y

@ok		jsr	setDeviceLock
		jsr	drawIcon2		; draw the new ICONOBJ		
		clc
		rts
		ENDP

; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =
;	   Check if the	device already has
;	   an icon on the desktop.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =
;
;   IN:	   C1_PathName = volume name to check.
;	   Y = device number to skip
;
;  OUT:	   Carry set if	there is a device on the desktop of the	same name.
;
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =

dupDevice	PROC	EXPORT
		IMPORT	OurDevice

		sty	ourDevice

		jsr	findLastName		;lastName = pathname less leading separator.

		stz	dupIcon+1
		bra	store800


; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =
;
;   IN:	   lastName = name to match (no	separators).
;
;  OUT:	   Carry set if	there is a device on the desktop of the	same name.
;
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =

		EXPORT	dupDevice2
dupDevice2

		lda	<icHand
		ldx	<icHand+2
		sta	dupIcon			;Save handle of icon being checked.
		stx	dupIcon+2
		stz	ourDevice

store800	pei	<curWind+2
		pei	<curWind

		lda	<deskport		;Check desktop ICONOBJ list.
		sta	<curWind
		lda	<deskport+2
		sta	<curWind+2

		lda	#matchDevice
		jsr	walkOfLife

		pla
		sta	<curWind
		pla
		sta	<curWind+2

		lda	dupIcon+1		;Was an icon saved?
		beq	exit800

		sta	<icHand+1		;Restore given icon.
		lda	dupIcon
		sta	<icHand

exit800		brl	setic			;Exit with carry set if match found.

		ENDP

;////////////////////////////////
;	   Match device.
;////////////////////////////////
;
;   IN:	   lastName = name to match.
;	   ic =	icon to	check.
;	   dupIcon = handle of icon being checked (don't match).
;
;  OUT:	   Carry set if	match
;	   matchedIconHandle is icon's handle if match
;
;////////////////////////////////

matchDevice	PROCNAME

		lda	<icHand
		sta	matchedIconHandle
		lda	<icHand+2
		sta	matchedIconHandle+2
		
		ldy	#icFType		;Check all devices.
		lda	[<ic],y
;		cmp	#TypeFDrive		;added for hack 05/16/88 DJB
;		beq	noDup
		cmp	#TypeLastOne
		bcc	noDup
		inc	a			;(Gets rid of trash types.)
		inc	a
		bpl	noDup

		lda	ourDevice		;if we're not comparing against anything
		beq	@normal			;we aren't, so act normal

		ldy	#icDevNum
		cmp	[<ic],y
		beq	noDup

@normal		ldy	#icDevNum
		lda	[<ic],y
		sta	dupDeviceNum
		
		lda	dupIcon+1		;Is this the original icon being checked?
		cmp	<icHand+1
		bne	check800		;If so, force no match.
		lda	dupIcon
		cmp	<icHand
		beq	noDup

check800	brl	matchicName		;Check if name is the same.

noDup		clc
		rts


;
; locals
;
		EXPORT	matchedIconHandle
matchedIconHandle dc.L	0
		EXPORT	ourDevice
ourDevice	dc.w	0			;if it's this device, it's ours, so skip it
		EXPORT	dupDeviceNum
dupDeviceNum	dc.w	0
		ENDP

; = = =	= = = =	= = = =	= = = =	= = = =	= = =
;	   Classify a device type.
; = = =	= = = =	= = = =	= = = =	= = = =	= = =
;
; IN:	NumBlks = size of device in blocks.
;	devNumber = device number
;	dinfo_devid = type of device
;
; OUT:	a   =	TypeFDrive	if floppy.
;		TypeRAM		if RAM disk.
;		Type3_5		if 3.5" disk.
;		TypeHard	if hard disk or tape drive
;		TypeCDROM	if CDROM disc.
;		TypeNetwork
;		TypeServer
;		TypeSCSI
;		zero		if not a valid device.
;
; = = =	= = = =	= = = =	= = = =	= = = =	= = =

typeDevice	PROC

		lda	dinfo_devid
		cmp	#(MapTypesEnd-MapTypes)/2 ;ID out of range?
		bcs	guess
		asl	a
		tax
		lda	mapTypes,x
		beq	guess			;Unknown ID?

		cmp	#TypeFDrive
		beq	exit200

		ldx	C1_PathName		;Was there an I/O error?
		bne	exit200
		lda	#0			;Return, not a device.

exit200		jsr	chkPartition
		rts

; --- If unknown device, type from guess (size) ----------------------------

guess		lda	#TypeHard		;Hard disk icon type, just in case.
		ldx	NumBlks+2		;Size of device, in blocks.
		bne	exit201			;More than 32meg?
		ldx	NumBlks
		cpx	#10240			;Greater than or equal to 5meg?
		bcs	exit201

		lda	#Type3_5		;3.5" disk icon type, just in case.
		cpx	#800			;400k?
		beq	exit201
		cpx	#1600			;800k?
		beq	exit201
		cpx	#2880			;14.4M?
		beq	exit201
		cpx	#3200			;1.6M?
		beq	exit201

		lda	#TypeRAM		;RAM disk icon, just in case.
		cpx	#280			;140k?
		bne	exit201			;If not, must be a RAM disk.

		lda	#TypeFDrive		;Floppy drive icon.
exit201		rts


mapTypes	DC.W	TypeFDrive		;$00 = Disk II
		DC.W	TypeHard		;$01 = ProFile 5 meg
		DC.W	TypeHard		;$02 = ProFile 10 meg
		DC.W	Type3_5			;$03 = Disk 3.5
		DC.W	TypeSCSI		;$04 = Generic SCSI
		DC.W	TypeHard		;$05 = SCSI hard disk
		DC.W	TypeHard		;$06 = SCSI tape drive
		DC.W	TypeCDROM		;$07 = SCSI CDROM
		DC.W	TypeSCSI		;$08 = SCSI printer
		DC.W	0			;$09 = Modem
		DC.W	0			;$0A = Consol
		DC.W	0			;$0B = Printer
		DC.W	0			;$0C = Serial LaserWriter
		DC.W	0			;$0D = AppleTalk LaserWriter
		DC.W	TypeRAM			;$0E = RAM disk
		DC.W	TypeRAM			;$0F = ROM disk
		DC.W	TypeServer		;$10 = File server
		DC.W	0			;$11 = IBX
		DC.W	0			;$12 = AppleDesktop Bus
		DC.W	TypeHard		;$13 = Generic hard disk
		DC.W	TypeFDrive		;$14 = Generic floppy drive
		DC.W	TypeHard		;$15 = Generic tape drive
		DC.W	0			;$16 = Generic character
		DC.W	Type3_5			;$17 = Super 3.5
		DC.W	TypeServer		;$18 = Generic network
		DC.W	0			;$19 = Sequential access device
		DC.W	TypeSCSI		;$1A = SCSI scanner
		DC.W	0			;$1B = Generic scaner
		DC.W	TypeSCSI		;$1C = LaserWriter SC
		DC.W	0			;$1D = AppleTalk main driver
		DC.W	TypeServer		;$1E = AppleShare file server
		DC.W	0			;$1F = AppleTalk RPM driver
		DC.W	TypeHard		;$20 = Apple's Tape Drive
mapTypesEnd		
		ENDP

; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= =
;	   Read	the disk's root finder
;	   data	file for any open windows.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= =
;
;   IN:	   icHand = disk icon.
;
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= =

readRoot	PROC

		IMPORT	WStringCopy,PendingDeselectAll

; --- Read root	file into buffer --------------------------------------

		jsr	makeIcRoot		;C1_PathName = ':' + icName.

		PushLong #C1_PathName
		PushLong #C1_VolName
		jsl 	WStringCopy		; C1_VolName <-- C1_PathName

		jsr	addRootName		;C1_PathName = C1_PathName + ':' + FINDER.ROOT
		bcs	exit502			;Pathname error?

		jsr	doGetFileInfo
		bcs	exit502			;Exit if there isn't a FINDER.ROOT file.
		lda	info_type		;Get the file's type.
		cmp	#DATAFTYPE		;Is it my file type?
		bne	exit502			;If not, never mind.

		lda	#2000			;Buffer large enough for about 32 windows.
		sta	read_size
		stz	read_size+2
		stz	read_len

		ldx	#$4000			;Allocated a locked pathname buffer.
		jsr	allocate2		;Allocate a buffer.
		sta	<posFile		;Save handle.
		stx	<posFile+2
		bcc	ok500			;Allocate error?
exit502		rts

ok500		jsr	derefHand		;temp = (posFile).
		sta	read_buff		;Tell future read where buffer is.
		stx	read_buff+2

		jsr	doRead			;Read FINDER.ROOT.

		lda	read_len		;Was anything read?
		beq	exit501
		cmp	#2000			;Was the max read?
		beq	exit501			;If so, might be error so quit.

;
; --- Process root buffer -------------------------------------------
;
		lda	[<temp]			;Get ID number.
		cmp	#RootVer		;Does it match the number I use to create?
		beq	@nativeRoot
		cmp	#OldRootVer
		bne	exit501			;If not, don't use it.

@nativeRoot	lda	#2			Index to first opcode.
		sta	pathIndex

@loop		ldy	pathIndex		Fetch opcode.
		lda	[<temp],y
		beq	@done			No more	opcodes?
		dec	a			;1 = Open window data
		beq	@openWindow		
		dec	a			;2 = Extended icon data
		beq	@openExtIcon
		dec	a			;3 = Open window data (with a length word)
		beq	@openWindowLong
		dec	a			;4 = Extended icon data (with a length word)
		bne	@done			If none	of these, then error in	buffer.

		jsr	openExtIconLong
		bcs	@done			Error?
		bra	@loop
		
@openWindowLong	jsr	openWindowLong
		bcs	@done			Error in buffer?
		bra	@loop

@openExtIcon	jsr	openExtIcon
		bcs	@done			Error?
		bra	@loop

@openWindow	jsr	openWindow
		bcs	@done			Error in buffer?
*** added 16-Oct-92 DAL -- keyboard navigate in the new window!
		lda	#1
		sta	>PendingDeselectAll
*** end 16-Oct-92
		bra	@loop


@done		stz	OpenFlag		Reset the special open flag.

exit501		pei	<posFile+2		Free the pathname buffer.
		pei	<posFile
		jsl DisposeHandleGlue

exit500		rts

		ENDP

; = = =	= = = =	= = = =	= = = =	= = = =	= = = =
;	   Put an extended icon	on
;	   the desktop from root buffer.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =
;
;   IN:	   C1_VolName = volume name.
;	   y = offset into buffer that points to data block.
;	   temp	= root buffer.
;
;  OUT:	   Carry set if	error in buffer.
;	   pathIndex = offset to next byte to process in buffer.
;
;	old	 WORD  Opcode -	2.
;		 WORD  icFlag
;		 WORD  icy
;		 WORD  icx
;		 WORD  icOldPosY
;		 WORD  icOldPosX
;		 STRG  icon's pathname, first character is '*'.
;
;	new	 WORD  Opcode -	4.
;		 WORD  icFlag
;		 WORD  icy
;		 WORD  icx
;		 WORD  icOldPosY
;		 WORD  icOldPosX
;		 WSTR  icon's pathname, first character is '*'.
;
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =

openExtIconLong	PROC

		IMPORT	WStrCompare
		IMPORT	OptionBuff
		IMPORT	PStringCompare
		IMPORT	C1_BootName
		IMPORT	strSystem

		stz	longflag
		dec	longflag
		bra	openIcon

		EXPORT	openExtIcon
openExtIcon	stz	longflag

openIcon	iny				;Skip over opcode.
		iny
		lda	[<temp],y
		sta	ticonobj+icFlag
		iny
		iny
		lda	[<temp],y
		sta	<yrat
		iny
		iny
		lda	[<temp],y
		sta	<xrat
		iny
		iny
		lda	[<temp],y
		sta	ticonobj+icOldPosY
		iny
		iny
		lda	[<temp],y
		sta	ticonobj+icOldPosX
		iny
		iny

		lda	longFlag
		bpl	@old
		
		lda	#MaxPathLen
		jsr	fetchPathLong		C1_PathName = extended icon's pathname.
		bcc	ok660			Pathname too long?
		rts

@old		lda	#MaxPathLen
		jsr	fetchPath		C1_PathName = extended icon's pathname.
		bcc	ok660			Pathname too long?
		rts
ok660		sty	pathIndex		Next byte to process.

		jsr	doGetFileInfo

		bcc	ok999
		brl	exit661			Something wrong! So ignore icon.

ok999		lda	info_type		Set file type.
		sta	<fileType

		lda	info_access		; set read access
		and	#$0001			; check read enabled
		beq	set1			; not set !
		lda	ticonobj+icFlag+2
		ora	#ICREADABLE>>16		; set our bit
set1		sta	ticonobj+icFlag+2

		ldx	#0			Set locked state.
		lda	info_access
		and	#$0080			Just checking destroy enable bit.
		bne	store660
		ldx	#ICLOCKED
store660	txa				merge lock status with color
		ora	ticonobj+icFlag		and put	back.
		sta	ticonobj+icFlag

		ldy	#6
dateLoop3	lda	info_cdate,y		Get create date.
		sta	ticonobj+icCDate,y
		lda	info_mdate,y		Get modified date.
		sta	ticonobj+icMDate,y
		dey
		dey
		bpl	dateLoop3

		lda	info_blocks		Get blocks used	(size of file).
		sta	ticonobj+icFBlocks
		lda	info_blocks+2
		sta	ticonobj+icFBlocks+2

		lda	info_eof		Get bytes used	(size of file).
		sta	ticonobj+icFBytes
		lda	info_eof+2
		sta	ticonobj+icFBytes+2

		lda	info_access
		sta	ticonobj+icLocalAccess

		ldy	OptionBuff+2
@loop		lda	OptionBuff+2,y
		sta	ticonobj+icOptionList,y
		dey
		dey
		bpl	@loop

		lda	OptionBuff+4		;we can only get privs info on
		cmp	#AppleShareFST		;stuff on AppleShare
		bne	@notFolder

		lda	<filetype		;we can only get privs info on folders
		cmp	#$0f
		beq	@isFolder
		cmp	#typeServer
		bne	@notFolder

@isFolder	lda	OptionBuff+$2A
		sta	ticonobj+icNetworkAccess
		lda	OptionBuff+$2C
		sta	ticonobj+icNetworkAccess+2
		bra	@wasFolder
@notFolder	stz	ticonobj+icNetworkAccess
		stz	ticonobj+icNetworkAccess+2
@wasFolder

		stz	ticonobj+icForked
		lda	info_store
		cmp	#$05			; is this file extended ?
		bne	aux
		lda	#$8000
		sta	ticonobj+icForked

		clc
		lda	ticonobj+icFBlocks	; add in resource blocks
		adc	info_rsrc_blks
		sta	ticonobj+icFBlocks
		lda	ticonobj+icFBlocks+2
		adc	info_rsrc_blks+2
		sta	ticonobj+icFBlocks+2

		clc
		lda	ticonobj+icFBytes
		adc	info_rsrc_eof
		sta	ticonobj+icFBytes
		lda	ticonobj+icFBytes+2
		adc	info_rsrc_eof+2
		sta	ticonobj+icFBytes+2
		
aux		lda	info_aux		Get Aux type (added 05/31/88 DJB)
		sta	ticonobj+icFileInfo
		sta	auxType

		pei	<temp+2			Save pointer to	root buffer.
		pei	<temp

 		jsr	findLastName		lastName = last	name in	pathname.

		lda	lastName
		and	#$00FF			;get length byte
		pha
		lda	C1_PathName		Cut last name off pathname
		clc
		sbc	1,s
		sta	C1_PathName
		plx

		jsr	path2ticon		Move pathname into icOwner field.
		
;
; see if it's the system folder we're puttin' back on the desktop
;
		lda	<filetype
		cmp	#$0F
		bne	@notSystem

		stz	auxtype

		pha
		pushlong #lastName
		pushlong #strSystem
		jsl	PStringCompare
		pla
		beq	@notSystem

		pha				;space for result
		PushLong #C1_Pathname
		PushLong #C1_BootName
		jsl	WStrCompare		;is this the boot disk ?
		pla
		beq	@notSYSTEM		;no

		lda	#$0002			;yes, so mark system folder
		sta	auxtype

;
; we got past the system folder kludge (yippee!)
;
@notSYSTEM
		stz	ExtCopy			Make an	extended icon.
		inc	ExtCopy

		jsr	toDesktop
		jsr	toDeskPort		Switch to desktop port.

		lda	RootIconHandle
		sta	ticonobj+icDisk
		lda	RootIconHandle+2
		sta	ticonobj+icDisk+2

		lda	#lastName
		ldx	#lastName>>16
		ldy	#0
		jsr	addIconObj
		bcc	@iconOK

		stz	ExtCopy			Turn off extended icon maker.
		pulllong <temp
		rts
		
@iconOK		jsr	lockic
		jsr	drawIcon2		Draw the new ICONOBJ.
		jsr	unlockic

		stz	ExtCopy			Turn off extended icon maker.

		pulllong <temp
exit661		clc				Return OK flag.
exit660		rts

;
; locals
;
longflag	dc.w	0
		EXPORT	RootIconHandle
RootIconHandle	dc.L	0
		ENDP

; = = =	= = = =	= = = =	= = = =	= = = =	= =
;	   Open	a window from data
;	   in root buffer.
; = = =	= = = =	= = = =	= = = =	= = = =	= =
;
;   IN:	   C1_VolName = volume name.
;	   y = offset into buffer that points to data block.
;	   temp	= root buffer.
;
;  OUT:	   Carry set if	error in buffer.
;	   pathIndex = offset to next byte to process in buffer.
;
; = = =	= = = =	= = = =	= = = =	= = = =	= =

openWindowLong	PROC

		iny				;Skip over opcode.
		iny
		lda	[<temp],y		;Get length of pathname.
		sec				;An extra byte for the string length byte,
		adc	pathIndex		;plus the current index,
		inc	a			;plus two bytes for the opcode,
		inc	a
		inc	a			;plus 1 extra byte for the word string
		sta	pathIndex		;equals index to next opcode.
		
		lda	#MaxPathLen
		jsr	fetchPathLong		;Fetch window's pathname.
		bcs	err650			;Pathname too long?
		bra	openWordWindow
		
		EXPORT	openWindow
openWindow	iny				;Skip over opcode.
		iny
		lda	[<temp],y		;Get length of pathname.
		and	#$00FF
		sec				;An extra byte for the string length byte,
		adc	pathIndex		;plus the current index,
		inc	a			;plus two bytes for the opcode,
		inc	a
		sta	pathIndex		;equals index to next opcode.

		lda	#MaxPathLen
		jsr	fetchPath		;Fetch window's pathname.
		bcs	err650			;Pathname too long?

openWordWindow	jsr	ckIfWindMax		;Is there enough memory to create a window?
		bcs	err650

		pei	<curWind+2		;Save data around call to openFolder2.
		pei	<curWind
		pei	<icHand+2
		pei	<icHand
		pei	<temp+2
		pei	<temp

						;curWind = window that owns open icon.
						;icHand = opening icon.
		stz	OpenFlag		;Set special open flag to show window is
		inc	OpenFlag		;not being opened from an icon.
		jsr	openFolder2
		stz	OpenFlag		;Clear special open flag.

		pla
		sta	<temp			;restore data
		pla
		sta	<temp+2
		pla
		sta	<icHand
		pla
		sta	<icHand+2
		pla
		sta	<curWind
		pla
		sta	<curWind+2
err650		rts

		ENDP

; = = =	= = = =	= = = =	= = = =	= =
;	   Fetch pathname.
; = = =	= = = =	= = = =	= = = =	= =
;
;   IN:	   a = maximum pathname	length to allow.
;	   y = index into buffer
;	   temp	= pointer to buffer
;	   C1_VolName = volume name in the form ':VOL'
;
;  OUT:	   y = index to	byte after name	in buffer
;	   C1_PathName = name in C1_VolName plus name pointed to by Y
;	   Carry set if	name too long (error)
;
; = = =	= = = =	= = = =	= = = =	= =

fetchPathLong 	PROC

		IMPORT	WStringCopy
		
		stz	longFlag
		dec	longFlag
		bra	getLongPath

		EXPORT	fetchPath
fetchPath	stz	longFlag

getLongPath	sta	maxLength		;Remember maximum pathname to allow.
		phy

		PushLong #C1_VolName
		PushLong #C1_PathName
		jsl	WStringCopy		; C1_PathName <-- C1_VolName

		ldx	C1_PathName		;get offset into pathname
		inx

		ply
		
		lda	[<temp],y		;Make sure name won't be too long
		and	#$00FF			;get length byte
		bit	longflag
		bpl	@notLong
		
		lda	[<temp],y		;Make sure name won't be too long
@notLong	clc
		adc	C1_PathName
		dec	a			;less '*' character
		cmp	maxLength
		bcs	@exit			;error out if name too long
		sta	C1_PathName		;set new length.

		iny				;skip length byte
		iny				;skip '*'
		
		lda	longflag
		beq	@notLong2
		iny
@notLong2

		sep	#$20
		LONGA	OFF
@loop		lda	[<temp],y

		bit	longflag		;if we're working with a long path, don't change '/' to ':'
		bmi	@cont
		
		cmp	#'/'
		bne	@cont
		lda	#SEPARATOR		;change '/' to ':' -DJB
@cont		sta	C1_PathName+1,x
		iny
		inx
		cpx	C1_PathName		;done ?
		bcc	@loop
		beq	@loop
		clc				;return OK flag

		rep	#$20
		LONGA	ON

@exit		rts


;
; locals
;
longflag	dc.w	0
		ENDP

; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= =
;	   Match icon name to lastName.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= =
;
;   IN:	   lastName = name to match.
;	   ic =	pointer	to ICONOBJ.
;
;  OUT:	   Carry set if	lastName matches icon's name.
;
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= =

matchIcName	PROC	EXPORT

		IMPORT	PStringCompare

		pha				; space for result
		PushLong #lastName		; ptr to string 1
		lda	<ic
		clc
		adc	#icName
		tax
		lda	<ic+2
		adc	#0
		pha				; ptr to string 2
		phx
		jsl	PStringCompare
		pla				; result (0 or 1)
		cmp	#1			; update carry flag
		rts

		ENDP

doSetPrefix2	PROC	EXPORT

		ldx	#C1_PathName		;lo-word
		ldy	#^C1_PathName		;hi-word

;=========================================
;
;   IN:	   x = low word	address	of pathname.
;	   y = high word address of pathname.
;
;=========================================

		EXPORT	doSetPrefix
doSetPrefix

		stx	prefix_name		;store pointer to pathname
		sty	prefix_name+2
		
		stz	null_prefix_num		;set prefix 0 to null
		jsl	ProDOS
		DC.W	SET_PREFIX+C1
		DC.L	null_prefix_list

		lda	#8			;set prefix 8 to null
		sta	null_prefix_num
		jsl	ProDOS
		DC.W	SET_PREFIX+C1
		DC.L	null_prefix_list

		stz	prefix_num		;try setting prefix 0
		jsl	ProDOS
		DC.W	SET_PREFIX+C1
		DC.L	prefix_list
		
		lda	#8			;try setting prefix 8
		sta	prefix_num
		jsl	ProDOS
		DC.W	SET_PREFIX+C1
		DC.L	prefix_list
@done		rts

		ENDP

; = = =	= = = =	= = = =	= = = =	= = = =	= =
;	   Set file position mark.
; = = =	= = = =	= = = =	= = = =	= = = =	= =
;
;   IN:	   a = position.
;
; = = =	= = = =	= = = =	= = = =	= = = =	= =

doSetMark	PROC	EXPORT

		sta	mark_pos

		lda	open_num
		sta	mark_num

		jsl	ProDOS
		DC.W	SET_MARK+C1
		DC.L	mark_list
		rts

		ENDP

; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= =
;	   Search driectory for	filename.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= =
;
;   IN:	   pathname = pathname of file to get info of.
;
;  OUT:	   Carry clear if no error, file found.
;	   Carry set if	error, a = $46 if file not found.
;
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= =

doGetFileInfo	PROC	EXPORT

		jsl	ProDOS
		DC.W	GET_FILE_INFO+C1
		DC.L	info_list

		rts

		ENDP

; = = =	= = = =	= = = =	= = = =	= =
;	   Create a file.
; = = =	= = = =	= = = =	= = = =	= =
;
;   IN:	   C1_PathName = pathname of file to create.
;	   file_type = file type.
;	   aux_data = whatever.
;	   NoDOSerr = TRUE to ignore DOS errors.
;
;  OUT:	   Carry clear if file created.
;	   Carry set if	error.
;
; = = =	= = = =	= = = =	= = = =	= =

doCreate	PROC	EXPORT

		jsl	ProDOS
		DC.W	CREATE+C1
		DC.L	create_list
		ldx	NoDOSerr		;Ignore DOS errors?
		bne	exit3
		bcs	ProDOSerr
exit3		rts

; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =
;	   Handle some general ProDOS errors.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =
;
;   IN:	   a = error code.
;
;  OUT:	   a = ProDOS error code.
;	   x = result from dialog:    $8000 if no dialog put up.
;				      $FFFF Cancel selected.
;				      $0001 OK selected.
;				      $0002 Try	Again selected.
; Errors Handled:
;
;	   Error			   X returned.
;	   $0049 Disk directory	full.	   Cancel.
;	   $0048 Disk full.		   Cancel.
;	   $002B Write-protected.	   Cancel, Try Again.
;	   $0045 Volume	not found.	   Cancel, OK.
;	   $0040 Pathname syntax.	   OK.
;	   $004E No Access Privileges.	   OK.
;	   $0050 File is busy.		   OK.
;
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =

		EXPORT	ProDOSerr
ProDOSerr

		IMPORT	C1_PathNamePtr
		IMPORT	doAlertWindow
		IMPORT	C1_Source
		IMPORT	C1_PathName
		IMPORT	PathGetRoot

		sta	errorCode
		tax
		bne	@error
		clc
		rts
@error

; ------ Volume	directory full error ---------------------------------

		ldx	#rasDirFull			;resource number
		cmp	#$0049
		bne	@tryDiskFull
		jsr	tellError
		ldx	#$FFFF
		sec
		lda	errorCode
		rts

;
; ------ Disk full error ----------------------------------------------
;
@tryDiskFull
		ldx	#rasDiskFull
		cmp	#$0048
		bne	@tryWriteProtected
		jsr	tellError
		ldx	#$FFFF
		sec
		lda	errorCode
		rts

;
; ------ Disk is write-protected error --------------------------------
;
@tryWriteProtected
		ldx	#rasWriteProtected
		cmp	#$002B
		bne	@tryVolume
		jsr	tellError

		eor	#$ffff
		cmp	#$ffff
		bge	@cancelWP

		lda	#2		;try again
		sec
@cancelWP		tax
		lda	errorCode
		rts

;
; ------ Volume	not found ---------------------------------------------
;
@tryVolume
		cmp	#$0045
		bne	@tryAccess

		pushlong #c1_source
		pushlong #c1_pathname
		jsl	PathGetRoot

		lda	>c1_source
		and	#$00ff
		dec	a
		xba
		sta	>c1_source+1

		ldx	#rasInsertDiskOrCancel8
		jsr	tellError

		eor	#$ffff
		cmp	#$ffff
		bge	@cancelVol

		lda	#1		;OK
		sec
@cancelVol	tax
		lda	errorCode
		rts

;
; ------ Invalid Access error ---------------------------------------
;
@tryAccess
		ldx	#rasNoAccess
		cmp	#$004E
		bne	@tryBusy
@wasBusy	jsr	tellError
		ldx	#1
		sec
		lda	errorCode
		rts

;
; ------ File Busy error ---------------------------------------
;
@tryBusy
		ldx	#rasFileBusy
		cmp	#$0050
		beq	@wasBusy

@none		ldx	#$8000			Return 'no dialog put up' flag.
		sec				;and say nothing wrong!!
		rts

;
; say what the error was, and use AlertWindow to do it
;
tellError	txa
		jsl	doAlertWindow
		rts

;
; locals
;
errorCode	dc.w	0
		ENDP

; = = =	= = = =	= = = =	= = = =	= = = =	= = =
;	   Open, Read, Close a file.
; = = =	= = = =	= = = =	= = = =	= = = =	= = =
;
;   IN:	   pathname = name of file to read.
;	   read_buff = address of destination buffer.
;	   read_size = number of bytes to read.
;
;   OUT:   Carry clear if file read.
;	   Carry set if	error.
;
; = = =	= = = =	= = = =	= = = =	= = = =	= = =

doRead		PROC	EXPORT

		ldx	#C1_PathName
		ldy	#^C1_PathName

		EXPORT	read2
read2
		lda	#$0001			; open read only
		jsr	open_file
		bcs	exit2

		jsr	read_file2

exit		php
		pha
		jsr	close_file
		pla
		plp
exit2		rts


; = = =	= = = =	= = = =	= = = =	=
;	   Open	a file.
; = = =	= = = =	= = = =	= = = =	=
;
;   IN:	   x = low word	address	of pathname.
;	   y = high word address of pathname.
;	   a = request access
;
;  OUT:	   Carry flag is clear if file opened.
;	   Else, a = 0 if user wants operation aborted,
;		   = nonzero if	new pathname in	lbuffr.
;
; = = =	= = = =	= = = =	= = = =	=

		EXPORT	open_file
open_file
		sta	open_request
		stx	open_name		Address	of pathname to open.
		sty	open_name+2

		stz	open_num		; in case open has error
		jsl	ProDOS
		DC.W	OPEN+C1
		DC.L	open_list
		rts


; = = =	= = = =	= = = =	= = = =	=
;	   Read	a file.
; = = =	= = = =	= = = =	= = = =	=
;
;   IN:	   x = low word	address	of buffer to read into.
;	   y = high word address of buffer to read into.
;
;  OUT:	   Carry = set if error, A = error code.
;
; = = =	= = = =	= = = =	= = = =	=

		EXPORT	read_file
read_file

		stx	read_buff		Pass address of	buffer to read into.
		sty	read_buff+2


		EXPORT	read_file2
read_file2

; = = =	= = = =	= = = =	= = = =	=
;
;   IN:	   read_buff = address of buffer to read data into.
;
; = = =	= = = =	= = = =	= = = =	=

		lda	open_num		Pass reference number of opened	file.
		sta	read_num

		jsl	ProDOS
		DC.W	READ+C1
		DC.L	read_list
		rts


; = = =	= = = =	= = = =	= = = =	= = = =
;	   Write to a file.
; = = =	= = = =	= = = =	= = = =	= = = =
;
;   IN:	   C1_PathName = pathname of where to write file.
;	   write_buff =	address	of buffer to write.
;	   write_len = number of bytes to write.
;
;  OUT:	   Carry clear if file written.
;	   Carry set if	error.
;
; = = =	= = = =	= = = =	= = = =	= = = =

		EXPORT	doWrite
doWrite
		lda	write_len		Is there anything to write?
		ora	write_len+2
		bne	ok20

		jsl	ProDOS			Delete the file.
		DC.W	DESTROY+C1
		DC.L	destroy_list
		rts

ok20		ldx	#C1_PathName
		ldy	#^C1_PathName
		lda	#$0003			; read/write access
		jsr	open_file
		bcc	ok1			Can't even open?

		cmp	#$0046			Not found?
		bne	errorOut

		jsr	doCreate		Create the file.
		bcc	doWrite			Try now	if no error.
		rts

errorOut	sec
		rts


ok1		lda	open_num		Pass reference number of file.
		sta	write_num
		sta	EOF_num

		jsl	ProDOS
		DC.W	WRITE+C1
		DC.L	write_list
		php

		lda	written
		sta	EOF_place
		lda	written+2
		sta	EOF_place+2

		jsl	ProDOS
		DC.W	SET_EOF+C1
		DC.L	EOF_list

		jsr	close_file
		plp
		rts


; = = =	= = = =	= = = =	= = = =	= = = =	= = =
;	   Close last opened file.
; = = =	= = = =	= = = =	= = = =	= = = =	= = =
;
;   IN:	   Needed information is in open_list.
;
;  OUT:	   Carry = set if error, A = error code.
;
; = = =	= = = =	= = = =	= = = =	= = = =	= = =

		EXPORT	close_file
close_file
		lda	open_num
		sta	close_num
		jsl	ProDOS
		DC.W	CLOSE+C1
		DC.L	close_list
		rts

; = = =	= = = =	= = = =	= = = =	= = = =	= = =
;	   Check for a Partitioned device.
; = = =	= = = =	= = = =	= = = =	= = = =	= = =
;
;   IN:	   a = device icon type
;
;  OUT:	   a = TypeHardPart  	if HD partition
;	       TypeCDROMPart 	if CD ROM partition.
;	       TypeSCSIPart 	if SCSI partition.
;	       original type	if not a partitioned device.
;
; = = =	= = = =	= = = =	= = = =	= = = =	= = =

chkPartition	PROC	EXPORT

		IMPORT	DeviceCharacteristics

		pha
		cmp	#TypeHard
		beq	ok
		cmp	#TypeCDROM
		beq	ok
		cmp	#TypeSCSI
		bne	noPart
ok

		lda	DeviceCharacteristics 	;check for linked device
		and	#$2000			;linked bit set?
		beq	noPart			;no

		pla
		cmp	#TypeHard
		bne	cont1
		lda	#TypeHardPart
		bra	done
cont1		cmp	#TypeCDROM
		bne	cont2
		lda	#TypeCDROMPart
		bra	done
cont2		lda	#TypeSCSIPart
done
		rts

noPart
		pla
		rts

		ENDP

;==============================================
;  Get the access privileges for a folder
;
; IN:	C1_PathName
; OUT:	AccessPriv (0 if not from network)
;==============================================

GetAccessPriv	PROC	EXPORT

		stz	AccessPriv

		jsl	ProDOS
		DC.W	FST_SPECIFIC+C1
		DC.L	ap_list
		bcs	exit			; ignore errors

		lda	ap_access		; get User rights (bits 0..2)
		and	#$0007
		tsb	AccessPriv
		lda	ap_access		; get User ownership (bit 7)
		and	#$0080
		lsr	a
		lsr	a
		lsr	a
		lsr	a
		tsb	AccessPriv
		lda	ap_access+1		; get World rights (bits 8..10)
		and	#$0007
		asl	a
		asl	a
		asl	a
		asl	a
		tsb	AccessPriv
		lda	ap_access+2		; get Group rights (bits 16..18)
		and	#$0007
		xba
		tsb	AccessPriv
		lda	ap_access+3		; get Owner rights (bits 24..26)
		and	#$0007
		xba
		asl	a
		asl	a
		asl	a
		asl	a
		tsb	AccessPriv
exit		rts

ap_list		DC.W	4			; pcount
ap_fst		DC.W	$0D			; FST id (AppleShare)
ap_cmnd		DC.W	4			; GetPrivileges
ap_path		DC.L	C1_PathName		; pathname to directory
ap_access	DC.L	0

		ENDP

;
; Load any old style, then new style icons from icon files and desktop files on this volume
;
;   IN:	   newVolName =	name of	volume to check.
;.....................................................................

LoadIcons	PROC	EXPORT

		IMPORT	iconsName
		IMPORT	desktopName
		IMPORT	PToWString
		IMPORT	PStringCompare
		IMPORT	WStrCompare
		IMPORT	WStringCopy
		IMPORT	PStringCopy
		IMPORT	FindersICXBlkN
		IMPORT	PathAddName
		IMPORT	PathSubName
		IMPORT	LoadRBundle
		IMPORT	c1_bootname
		IMPORT	fileSysID
		IMPORT	BootFST
		IMPORT	BundleID
		IMPORT	FinderPathID
		IMPORT	IconListID
		IMPORT	NewHandle
		IMPORT	LoadResources
		IMPORT	fileTypeList,ftypeInsertList
		IMPORT	NameChain,NameChainInsert,NameChainEnd
		IMPORT	MasterChain,MasterChainInsert,MasterChainEnd
		
		phb
		phk
		plb

;
; Copy the insertion lists into a safe place
;
		lda	StartupFlag
		bne	@getVolHandle
		
;
; This isn't being called at startup time, so make sure that any new icons get inserted at the head of the
; list
;
		ldx	#((256*4)*2)-2		;copy 2 tables
@iLoop		lda	>fileTypeList,x
		sta	>fTypeInsertList,x
		dex
		dex
		bpl	@iLoop

		lda	>MasterChain
		sta	>MasterChainInsert
		lda	>MasterChain+2
		sta	>MasterChainInsert+2
		
		lda	>NameChain
		sta	>NameChainInsert
		lda	>NameChain+2
		sta	>NameChainInsert+2

;
; Allocate a handle to save the name of this volume (and attach it to the rBundle resource in memory)
;
@getVolHandle	pha
		pha
		lda	>c1_volname		;number of bytes to allocate
		inc	a
		inc	a
		pha
		jsl	NewHandle		
		pla
		sta	<handle
		sta	volumeNameHandle
		pla
		sta	<handle+2
		sta	volumeNameHandle+2
		bcs	@bad

		lda	[<handle]
		tax
		ldy	#2
		lda	[<handle],y
		
		pushlong #c1_volname		;DON'T do anything which could move
		pha				;memory inside of WStringCopy!
		phx
		jsl	WStringCopy

*** %%% - 1-Apr-93 JCM - Why are we doing this here, when we do the same thing down below at
***		         @localDisk? I'm confused again... I'll nuke it for 6.0.2.

		pushlong #C1_VolName
		pushlong #C1_PathName
		jsl	WStringCopy

		lda	#IconsName		; add 'ICONS' to pathname
		ldx	#IconsName>>16
		jsr	addName
		bcc	@LoadDesktopIcons
@bad		plb
		rtl


*** %%% - 1-Apr-93 JCM JCM

;
; first, try to load some -real- icons from rBundle resources in a desktop file which
; must be in the icons folder.
;
; As a side note, I'm doing this less than 10 hours before GM.  I re-arranged the order in which
; the chains are searched, and because of that, the first loaded stuff gets searched first on a
; particular volume, so the Desktop file HAS to be loaded first, then the regular icons.
;
; andy -- 2/9/92, 12:50 AM
;

@LoadDesktopIcons

*** Changed - 1-Apr-93 JCM - This is the confusing way it used to work. We now load icons from the
***		             Desktop file in @ if we're booted from an AppleShare server.

;		pha
;		pushlong #c1_volname		;if it's the boot volume, skip it
;		pushlong #c1_bootname
;		jsl	WStrCompare
;		pla
;		beq	@notBootVolume
;		
;		lda	fileSysID		;save the boot fst for later when we check 
;		sta	BootFST			;
;		bra	@AShareBoot		;@@@ used to be bra @doneLoading
;
;@notBootVolume	lda	fileSysID		;don't load icons from appleshare volumes unless it's 
;		cmp	#AppleShareFST		;their boot volume (which is done elsewhere)
;		beq	@doneLoading
;	
;@AShareBoot	pushlong #c1_volname
;		pushlong #c1_pathname
;		jsl	WStringCopy		
;		
;		pushlong #IconsName
;		pushlong #c1_pathname
;		jsl	PathAddName
;
;		jsl	loadNewIcons
;@doneLoading	

		lda	fileSysID		;save the boot FST for use by GetInfo.aii for comment cards
		sta	BootFST

		cmp	#AppleShareFST		;is this an AppleShare volume?
		bne	@localDisk		; nope, load both types of icons

* Since this disk is AppleShare, if it's not the boot volume, don't load any icons from a
* desktop file in the icons folder.

		pha
		pushlong #c1_volname
		pushlong #c1_bootname
		jsl	WStrCompare
		pla
		beq	@loadOldStyleIcons	; not boot vol, just do old icons

* Since we're net booted, load new-style icons from "@:Desktop".
		
		lda	#1
		sta	c1_pathname		;length of the string
		lda	#'@'
		sta	c1_pathname+2		;the pathname

		jsl	loadNewIcons		;load any icons in @:Desktop

* Load the new-style icons from "<c1_volname>:Icons:Desktop".
	
@localDisk	pushlong #c1_volname
		pushlong #c1_pathname
		jsl	WStringCopy		
		
		pushlong #IconsName
		pushlong #c1_pathname
		jsl	PathAddName

		jsl	loadNewIcons

@loadOldStyleIcons

*** End - 1-Apr-93 JCM

;
; --- Catalog :VOL:ICONS ------------------------
;
		PushLong #C1_PathName		; pass window's pathname
		ldx	#xStartCatalog
		jsl	MiscEntry
		bcc	@loop
		brl	@done

@loop		pha				; space for result
		pha
		ldx	#xNextCatalog
		jsl	MiscEntry
		pla
		plx
		bcc	@entryOK
		brl	@done			; done?
@entryOK

		sta	<work			; save pointer to directory entry
		stx	<work+2

		ldy	#DirFType		; pass filetype to addIconObj
		lda	[<work],y
		and	#$00FF
		cmp	#ICON_TYPE		; is the file the correct type?
		bne	@loop

		ldy	#DirAuxType		;see if we've already converted this icon file
		lda	[<work],y		;if it's got its high bit set, then its been
		bmi	@loop			;converted (or, don't load it)
		cmp	#$1000			;or, if it's a desktop file, don't convert(?!)
		beq	@loop			;it, don't even try...

		pha				;don't convert the Finder.Icons file
		PushLong #FindersICBlkN
		PushZLong <work
		jsl	PStringCompare
		pla
		bne	@loop

		pha				;don't convert the Finder.Icons.X file either
		pushlong #FindersICXBlkN
		pushZLong <work
		jsl	PStringCompare
		pla
		bne	@loop

;
; Filename isn't anything that we've converted to the new icon format, so load
; and convert it
;
		lda	#$1000-$400
		sta	rBundleSize
		stz	rBundleSize+2
		
		pha				Space for result.
		pha
		pushlong #$1000			;4k should be adequate for now
		lda	<MyID			;this will become a bundle resource (maybe)
		and	#$F0FF
		ora	#$0700
		pha
		pea	$8000			;attributes (locked)
		pha				;address, not used.
		pha
		_NewHandle
		pulllong <handle

*** Fixed - 31-Mar-93 JCM - We would die big-time if we got an error.

;;;		bcc	@ok
;;;		rts
	
		bcs	@done

*** End - 31-Mar-93 JCM

@ok
		ldy	#6
		lda	>BundleID
		sta	[<handle],y
		
		jsr	derefHandleToPtr

		lda	C1_PathName		Save length of current pathname.
		pha

		lda	<work			Add filename to	pathname.
		ldx	<work+2
		phx
		pha
		pea	C1_FileName>>16
		pea	C1_FileName
		jsl	PToWString		;to class 1

		lda	#C1_FileName
		ldx	#C1_FileName>>16
		jsr	addName

		jsr	convertOldIcons		;load and convert icon file
		bcc	@err

		pushZLong <handle
		jsl DisposeHandleGlue

@err		pla				;Restore length of pathname.
		sta	C1_PathName
		brl	@loop			;Next entry in icon directory.

@done		ldx	#xEndCatalog
		jsl	MiscEntry

		plb
		rtl

;
; LoadNewIcons, load a new set of icons out of someone's desktop file which is either in
; :Volume:ICONS:Desktop or @:Desktop (if we're the AppleShare boot volume) 
;.....................................................................

		EXPORT	LoadNewIcons
LoadNewIcons	name

		phb
		phk
		plb

		pushlong #DesktopName
		pushlong #c1_pathname
		jsl	PathAddName

		pha
		pha
		pea	3			;process all rbundles (preload them all and mark their maps as loaded)
		pea	0
		pea	$0040
		lda	<MyID
		ora	#$0100
		pha
		pushlong #c1_pathname
		jsl	LoadResources
		pulllong <handle
		bcc	@DesktopOK
		brl	@noRBundle
@DesktopOK
		
		lda	[<handle]
		sta	<ptr
		ldy	#2
		lda	[<handle],y
		sta	<ptr+2

		pha
		pea	1			;need only read access, ok to preload
		pushZLong <ptr
		pushlong #c1_pathname
		_OpenResourceFile
		
		php
		pushZLong <handle
		jsl DisposeHandleGlue
		plp
		
		pla
		sta	resourceFileID
		bcs	@noRBundle

		pha
		pea	1
		_SetResourceFileDepth
		pla
		sta	oldDepth

		lda	#1
		sta	rBundleIndex
		stz	rBundleIndex+2

@resLoadLoop	pha
		pha
		pea	$802B			;rBundle
		pushlong rBundleIndex
		_GetIndResource
		plx
		pla
		bcs	@doneResLoad

		stx	rBundleIndex
		sta	rBundleIndex+2

		pha				;space for rBundleHandle
		pha
		pea	0			;user icons, not finder icons
		pushlong volumeNameHandle
		pea	0			;we not doing this by handle
 		pushlong rBundleIndex		;resource ID we just got (and are going to load)
		jsl	loadRBundle
		pla
		pla

		inc	rBundleIndex
		bne	@resLoadLoop
		inc	rBundleIndex+2
		bra	@resLoadLoop

@doneResLoad	lda	resourceFileID
		pha
		_CloseResourceFile

		pha
		lda	oldDepth
		pha
		_SetResourceFileDepth
		pla

@noRBundle	pushlong #c1_pathname
		jsl	pathSubName

		plb
		rtl

;
; Install and show Trash can icon
;.....................................................................

		EXPORT 	InstallTrashcan
InstallTrashcan

		IMPORT	toDesktop
		IMPORT	toDeskPort
		IMPORT	addIconObj
		IMPORT	lockIc
		IMPORT	unlockIc
		IMPORT	drawIcon2
		IMPORT	addIconObj
		IMPORT	setOrgnMask
		import	wind_param
		import	wind_frame
		import	RectListPtr
		import	TrashWindowEnd
		import	TrashWindowStart
		import	wind_guts

		phb
		phk
		plb

		jsr	toDesktop		windBlk	= desktop icon list.
		jsr	toDeskPort		Switch to desktop port.

		lda	#TypeTrash		Empty Trash can	file type.
		sta	<filetype

		stz	auxtype

		lda	rectListPtr
		sta	ptr
		lda	rectListPtr+2
		sta	ptr+2
		
		ldy	#72+2
		lda	[<ptr],y
		sta	<yrat
		iny
		iny
		lda	[<ptr],y
		sta	<xrat

		ldy	#80+6+2			;move the trashcan window rectangle
		ldx	#6
@loop		lda	[<ptr],y
		sta	wind_pos,x
		dey
		dey
		dex
		dex
		bpl	@loop
		
		lda	#ICBACKCLR		Solid white background,	black outline.
		sta	ticonobj+icFlag
		lda	#ICREADABLE>>16
		sta	ticonobj+icFlag+2	;added DJB 12/06/88

;--- set the Trash's create date ---------------

		ldx	#6
@date		stz	ticonobj+icCDate,x
		stz	ticonobj+icMDate,x
		dey
		dey
		bpl	@date

		stz	<devNumber
		stz	ticonobj+icLocalAccess
		stz	ticonobj+icForked
		stz	ticonobj+icNetworkAccess
		stz	ticonobj+icNetworkAccess+2
		stz	ticonobj+icOptionList

		lda	#trashBlk+windMenuText	;Pass icon's name.
		ldx	#trashBlk+windMenuText>>16
		ldy	#0			;add icon to the head of the list
		jsr	addIconObj
		bcs	@to_error

		jsr	lockic
		
		ldy	#icDisk			;stuff our own icon handle into our icDisk field,
		lda	<icHand			;creating a reference to ourself as being a root
		sta	[<ic],y			;icon
		iny
		iny
		lda	<icHand+2
		sta	[<ic],y

		jsr	drawIcon2		;Draw the trash can.

		lda	<icHand			;Store the trash icon handle in the trash
		sta	>TrashIc		;window's info block as the icon that
		sta	>trashBlk+windDiskIc
		lda	<icHand+2		;opened into the window.
		sta	>TrashIc+2
		sta	>trashBlk+WindDiskIc+2

;
; Open an invisible Trash window
;		
		ldx	#TrashWindowEnd-TrashWindowStart
@loop2		lda	>TrashWindowStart,x
		sta	>wind_param,x
		dex
		dex
		bpl	@loop2
		lda	>TrashWindowStart
		sta	>wind_param
	
		lda	wind_frame
		and	#$FFDF
		sta	wind_frame
			
		pha				;Space for result.
		pha
		PushLong #wind_param		;Pass pointer to NewWindow parameter list.
		_NewWindow
@to_error	bcs	@error

		ldy	#icWind			Store pointer to Trash window in Trash
		pla				icon's open window field.
		sta	<TrashWind
		sta	<wind
		sta	[<ic],y
		iny
		iny
		pla
		sta	<TrashWind+2
		sta	<wind+2
		sta	[<ic],y

*** added 25-Mar-93 DAL (took the flag bits out of the wind_params template)
		pushlong #wind_guts+$C0000000
		pei <TrashWind+2
		pei <TrashWind
		_SetContentDraw
*** end 25-Mar-93

		jsr	unlockic		Leave with Trash icon unlocked.
		jsr	setOrgnMask

		clc
		
@error		lda	wind_frame
		ora	#$0020			;invisible bit for frame
		sta	wind_frame
		
		plb
		rtl
;
; locals
;
oldDepth	dc.w	0
rBundleIndex	dc.L	0
resourceFileID	dc.w	0
		EXPORT	volumeNameHandle
volumeNameHandle dc.L	0

; Convert old icons to the new 'desktop' icon file format
;
;   IN:	   C1_PathName 	= full pathname of ICONBLK file to load.
;	   handle	= handle to block for rBundle
;	   ptr		= pointer to block for rBundle
;
;  OUT:	   icBlkHand = ICONBLK's handle.
;.....................................................................

ConvertOldIcons
		IMPORT	IconHandleArray
		IMPORT	IconOffsetArray
		IMPORT	IconArrayUsed
		IMPORT	IconArraySize
		IMPORT	WStrCompare
		import	UnlockICBLKHAND		;22-Mar-93 JCM

		stz	lastRFPathHandle
		stz	lastRFPathHandle+2
		
		ldx	#C1_PathName		;lo-word
		stx	<work
		ldy	#C1_PathName>>16	;hi-word
		sty	<work+2

		lda	#1			; read access only
		jsr	open_file
		bcc	@openOK
		rts
;
; Allocate a block big enough to hold the entire icon file, then read the icon file into that
; block
;
@openOK		pha				;Space for result.
		pha
		lda	open_eof+2		Pass size of block needed.
		sta	read_size+2
		pha
		lda	open_eof
		sta	read_size
		pha
		lda	<MyID			;mark this with an icon file ID
		and	#$F0FF
		ora	#$0800
		pha
		pea	$c000			;attributes.
		pha				;address, not used.
		pha
		_NewHandle
		pulllong <icBlkHand
		bcc	@gotHandle
		rts
@gotHandle		

		lda	[<icBlkHand]
		sta	<icBlk
		ldy	#2
		lda	[<icBlkHand],y
		sta	<icBlk+2

;
; Now, read the icon file into memory
;
@fit		ldx	<icBlk			Buffer to read into.
		ldy	<icBlk+2
		jsr	read_file
		bcc	@readOK
		brl	errorOut2		Error?
@readOK

		jsr	close_file
		bcc	@closeOK
		brl	errorOut2		Error?
@closeOK

;
; do a quick check to see if this is really an genuine Apple IIGS Finder icon file
;
		ldy	#IBlkID			Check block's ID.
		lda	[<icBlk],y
		cmp	#$0001
		beq	@idOK
		brl	errorOut2		Error if wrong ID number.
@idOK

;
; initialize the rBundle resource
;
		lda	#$8000			;our version number is zero with the high
		sta	[<ptr]			;bit set to indicate that we were converted

		ldy	#2
		lda	#16			;offset to DocList structure
		sta	[<ptr],y

		ldy	#4			;rIcon ID for the App (NIL)
		lda	#0
@zLoop		sta	[<ptr],y		;zero the rBundle's Icon ID, rBundleID,
		iny				;volumeNameHandle, and number of OneDocs
		iny
		cpy	#18
		blt	@zLoop

		lda	#26
		clc
		adc	<icBlk
		sta	<icon
		lda	<icBlk+2
		adc	#0
		sta	<icon+2

		lda	ptr
		clc
		adc	#18
		sta	ptr2
		lda	ptr+2
		adc	#0
		sta	ptr2+2

		jsr	MakeArrayPtrs
		
;
; now, for each time through this loop, move the old icon stuff to the new icon format
;
@loop		lda	[<icon]
		bne	@anotherIcon
		brl	@done
@anotherIcon

		stz	matchFlags

		ldy	#66
		lda	[<icon],y
		tax
		and	#$00ff
		beq	@noFilename

		txa				;if we've got just a '*' for the filename to
		cmp	#$2a01			;match by, then don't include a filename field
		beq	@noFilename

		lda	#matchFilename
		ora	matchFlags
		sta	matchFlags
@noFilename

		ldy	#82
		lda	[<icon],y
		beq	@noFiletype

		lda	#matchFiletype
		ora	matchFlags
		sta	matchFlags
@noFiletype

		ldy	#84
		lda	[<icon],y
		beq	@noAuxtype

		lda	#matchAuxtype
		ora	matchFlags
		sta	matchFlags
@noAuxtype

;
; if we have a generic icon, then just go find the next icon in the list, otherwise
; stuff the old finder information into OneDoc structures
;
		lda	matchFlags
		bne	@notGeneric
		brl	@nextIcon
@notGeneric

		ldy	#2			;set the offset to the matchFlags field
		lda	#32
		sta	[<ptr2],y

		ldy	#4			;numResults = 4
		tya
		sta	[<ptr2],y

		ldy	#6			;don't launch this (yet)
		lda	#0
		sta	[<ptr2],y

		ldy	#32			;save the stuff which we match by
		lda	matchFlags
		sta	[<ptr2],y
		iny
		iny
		lda	#0
		sta	[<ptr2],y

;
; is there a filetype to match by?  if so, put it right after the matchflags field
;
		ldx	#36			;offset after matchFlags

		txy
		lda	#0			;zero out the filetype field so it can be
		sta	[<ptr2],y		;de-rezzed (which it never will be since it's an
						;internal data structure thing, but what why not?)
		lda	matchFlags
		and	#matchFiletype
		beq	@notByFiletype

		txy
		lda	#matchFiletypeID
		sta	[<ptr2],y

		inx
		inx
		ldy	#82
		lda	[<icon],y
		txy
		sta	[<ptr2],y

;
; is there an auxtype to match by?  if so, put it right after the end of the filetype
; field
;
@notByFiletype	inx
		inx

		txy
		lda	#0
		sta	[<ptr2],y

		lda	matchFlags
		and	#matchAuxtype
		beq	@notByAuxtype

		txy
		lda	#matchAuxtypeID
		sta	[<ptr2],y

		inx
		inx
		lda	#$FFFF
		txy
		sta	[<ptr2],y

		inx
		inx
		lda	#0
		txy
		sta	[<ptr2],y

		inx
		inx
		ldy	#84
		lda	[<icon],y
		txy
		sta	[<ptr2],y

		inx
		inx
		lda	#0
		txy
		sta	[<ptr2],y

;
; is there a name to match by?  is so, put it right after the end of the auxtype field
;
@notByAuxtype	inx
		inx

		txy
		lda	#0
		sta	[<ptr2],y

		lda	matchFlags
		and	#matchFilename
		beq	@doneWithFields

		txy
		lda	#matchFilenameID
		sta	[<ptr2],y

		inx
		inx
		phx

		lda	<icon			;source pstring
		clc
		adc	#66
		tay
		lda	<icon+2
		adc	#0
		pha
		phy

		txa				;destination pstring
		clc
		adc	<ptr2
		tay
		lda	<ptr2+2
		adc	#0
		pha
		phy
		jsl	PStringCopy

		plx				;how far into this onedoc we put this
		stx	namePtr			;wstring

		ldy	#66			;add the length of the pstring to our index
		lda	[<icon],y		;into the OneDoc
		and	#$00ff
		clc
		adc	namePtr
		tax
		dex

;
; now that we're done with the actual fields involved with the OneDoc structure, we need
; to update some pointers and then build the associated rFinderPath resource for this
; OneDoc structure (if it has one), and move the icons to their very own handles, saving
; the handles
;
@doneWithFields
		inx				;next location, please
		inx
		stx	nextOneDoc
		
		lda	<icon
		clc
		adc	#86			;+86 for offset into icon record
		sta	<ptr4
		lda	<icon+2
		adc	#0
		sta	<ptr4+2

		ldy	#20			;LargeIconReserved
		jsr	AddIconToList
		bcc	@LargeIconAdded
		brl	@done			;use what icons we were able to get
@LargeIconAdded

;
; now, save the offsets of the small icon into our offset array
;

;		ldy	#2
;		lda	[<ptr4],y		;size of the icon image in bytes
;		asl	a			;*2 to compensate for the image and its mask
;		clc
;		adc	#8			;+8 for the icon header data
;		adc	#86
;		adc	<icon
;		sta	<ptr4
;		lda	<icon+2
;		adc	#0
;		sta	<ptr4+2
*** fixed 11-Jan-93 DAL to propogate carry correctly
		ldy	#2
		lda	[<ptr4],y		;size of the icon image in bytes
		asl	a			;*2 to allow for image+mask
;;;		clc
		adc	<icon
		sta	<ptr4
		lda	<icon+2
		adc	#0
		sta	<ptr4+2

		clc
		lda	<ptr4
		adc	#86+8			;+8 for the icon header data
		sta	<ptr4
		bcc	@1
		inc	<ptr4+2
@1
*** end 11-Jan-93

		ldy	#28			;SmallIconReserved
		jsr	AddIconToList
		bcc	@SmallIconAdded
		brl	@done			;use what icons we were able to get
@SmallIconAdded

;
; now, after all that grief, make an rFinderPath if there is one to make
;
		ldy	#8			;rFinderPathID
		lda	#0
@fpzLoop	sta	[<ptr2],y
		iny
		iny
		cpy	#16
		blt	@fpzLoop

		ldy	#2
		lda	[<icon],y
		and	#$00ff
		beq	@goNoRFPath
		cmp	#2
		bge	@gotPath
		
		iny
		lda	[<icon],y
		and	#$007f
		cmp	#'*'
		beq	@goNoRFPath
		cmp	#':'
		beq	@goNoRFPath
		cmp	#'/'
		bne	@gotPath
@goNoRFPath	brl	@noRFinderPath
@gotPath

;
; Now, boys and girls, time for a really neat hack: look at the last rFinderPath handle that was allocated for
; this file, and if it matches the icon's boss pathname of the record we're looking at now, don't allocate another
; completely new handle for it -- this helps cut down the handle count because often many of the records in any
; icon file will, sequentially, have the same icon boss pathname
;
		lda	lastRFPathHandle+1
		beq	@noLastRFPath
		
		lda	lastRFPathHandle
		sta	<handle3
		lda	lastRFPathHandle+2
		sta	<handle3+2
		
		lda	[<handle3]		;deref the handle to the last rFinderPath
		sta	<ptr3
		ldy	#2
		lda	[<handle3],y
		sta	<ptr3+2
		
		lda	[<icon],y		;save the length of the icon record and the length of the icon boss
		pha
		lda	[<icon]			
		pha
		
		lda	[<icon],y		;get the length of the icon boss name now
		and	#$00FF
		dey
		sta	[<icon],y		;make it a wstring
		
		pha
		iny
		lda	[<ptr3],y		;last allocated rFinderPath pathname
		clc
		adc	<ptr3
		tax
		lda	<ptr3+2
		adc	#0
		pha
		phx
		
		ldx	<icon			;icon boss -1 to compensate for making this a wstring
		lda	<icon+2
		inx	
		bne	@nrIcon
		inc	a
@nrIcon		pha
		phx
		
		jsl	WStrCompare		
		plx				;0 = no match, 1 = match
		pla				
		sta	[<icon]			
		ldy	#2
		pla
		sta	[<icon],y		;restore the length of the icon record and the length of the icon boss
		txa
		beq	@noLastRFPath
		
		ldy	#12			;rFinderPathReserved
		lda	<handle3
		sta	[<ptr2],y
		iny
		iny
		lda	<handle3+2
		sta	[<ptr2],y
		brl	@noRFinderPath		;if the last rFinderPath and the new one are the same, don't allocate a
						;new one!

;
; Well, OK, if we end up here we need to allocate a new rFinderPath for this record (and maybe the records which
; follow it).
;
@noLastRFPath	ldy	#2
		lda	[<icon],y
		and	#$00ff
		clc				;6 for the rFinderPath stuff, 2 to make it
		adc	#8			;a wString

		pha				;Space for result.
		pha
		pha
		jsl	NewHandle
		pla
		sta	<handle3		;store the handle at our
		sta	lastRFPathHandle
		ldy	#12			;rFinderPathHandle
		sta	[<ptr2],y
		iny
		iny
		pla
		sta	<handle3+2
		sta	lastRFPathHandle+2
		sta	[<ptr2],y

		bcc	@finderPathOK
		brl	errorOut2		;memory error, ack!
@finderPathOK

		ldy	#6			;make the ID for an rFinderPath
		lda	>FinderPathID
		sta	[<handle3],y
		
		ldy	#6			;launch this
		lda	#1
		sta	[<ptr2],y

		lda	[<handle3]		;deref our handle
		tax
		ldy	#2
		lda	[<handle3],y
		sta	<ptr3+2
		stx	<ptr3

		lda	#0			;version
		sta	[<ptr3]

		ldy	#2
		lda	#6			;offset to pathname
		sta	[<ptr3],y

		iny				;pcount
		iny
		lda	#0
		sta	[<ptr3],y

		lda	<icon			;source
		clc
		adc	#2
		tax
		lda	<icon+2
		adc	#0
		pha
		phx

		lda	#6			;destination wstring
		clc
		adc	<ptr3
		tax
		lda	<ptr3+2
		adc	#0
		pha
		phx
		jsl	PToWString

;
; now that we're done fiddling with the rFinderPath resource, make the next offsets for
; the next icon record in the finder's old icons file, and the next offset for the next
; OneDoc structure
;
@noRFinderPath	lda	nextOneDoc		;set the size of this OneDoc
		sta	[<ptr2]

		lda	nextOneDoc
		clc
		adc	<ptr2
		sta	<ptr2
		bcc	@nextIcon
		inc	<ptr2+2
@nextIcon	

		lda	ptr2
		sec
		sbc	ptr
		sta	CurrentRBSize
		lda	ptr2+2
		sbc	ptr+2
		sta	CurrentRBSize+2
		
		lda	CurrentRBSize
		sec
		sbc	rBundleSize
		lda	CurrentRBSize+2
		sbc	rBundleSize+2
		bcc	@noResize
				
		ldy	#4			;unlock the handle to resize it
		lda	[<handle],y
		and	#$3FFF
		sta	[<handle],y
		
		lda	<ptr2			;only re-enable this code once we know how
		sec				;to grow the handle if the OneDoc gets
		sbc	<ptr			;larger
		tax
		lda	<ptr2+2
		sbc	<ptr+2
		pha
		phx

		txa
		clc
		adc	#$800
		sta	rBundleSize
		sta	1,s
		bcc	@nr
		lda	3,s
		inc	a
		sta	3,s
		inc	rBundleSize+2
@nr
		
		lda	rBundleSize
		sec	
		sbc	#$400
		sta	rBundleSize
		lda	rBundleSize+2
		sbc	#0
		sta	rBundleSize+2
		
		pushZLong <handle
		_SetHandleSize

		ldy	#4			;re-lock the handle after the resize
		lda	[<handle],y
		ora	#$8000
		sta	[<handle],y
		bcs	@done

		jsr	derefHandleToPtr

		lda	CurrentRBSize
		clc
		adc	<ptr
		sta	<ptr2
		lda	CurrentRBSize+2
		adc	<ptr+2
		sta	<ptr2+2
@noResize	

		lda	[<icon]			;go to the next icon record
		clc
		adc	<icon
		sta	<icon
		bcc	@nr2
		inc	<icon+2
@nr2
		ldy	#16			;we converted another to a OneDoc
		lda	[<ptr],y
		inc	a
		sta	[<ptr],y
		brl	@loop

;
; we're done converting all the icons for this file
;
@done
		ldy	#16			;first, see if we converted anything...
		lda	[<ptr],y
		bne	@haveSomeOneDocs
		brl	errorOut2
@haveSomeOneDocs

		ldy	#4			;unlock the handle to resize it
		lda	[<handle],y
;;;		and	#$7FFF
		asl a
		lsr a
		sta	[<handle],y
		
		lda	<ptr2			;only re-enable this code once we know how
		sec				;to grow the handle if the Bundle gets
		sbc	<ptr			;larger
		tax
		lda	<ptr2+2
		sbc	<ptr+2
		pha
		phx
		pushZLong <handle
		_SetHandleSize

		ldy	#4			;re-lock the handle after the resize
		lda	[<handle],y
		ora	#$8000
		sta	[<handle],y

		pha				;we don't care about the rBundleHandle
		pha
		pea	0			;user icons, not finder icons
		pushlong volumeNameHandle
		pea	1			;by handle
		pushZLong <handle
		jsl	loadRBundle
		pla
		pla

*** Scrunched - 21-Mar-93 JCM

;;;		ldy	#4
;;;		lda	[<icBlkHand],y
;;;		and	#$3FFF
;;;		sta	[<icBlkHand],y
;;;		rts
		
		brl	UnlockICBLKHAND		;it does the rts
		
*** End - 21-Mar-93 JCM

errorOut2	pushZLong <icBlkHand
		jsl DisposeHandleGlue
		
		sec
		rts


;
; Add the icon at <Ptr4 to the icon handle and offset arrays, and also stuff our index into
; the OneDoc at the offset in Y
;
; IN: (Y) contains the offset into our OneDoc to store the icon array index
;         (for the small or large icon)
;
AddIconToList	sty	OneDocResult		;we'll need this later

		lda	#0
		sta	[<ptr2],y
		iny
		iny
		sta	[<ptr2],y
		
		dey
		dey
		dey
		dey
		lda	#0			;zero out the resource ID for dave so it looks nice
		sta	[<ptr2],y		;in the data structure dumper
		dey
		dey
		sta	[<ptr2],y
				
		lda	>IconArrayUsed
		inc	a
		cmp	>IconArraySize
		bcs	@sizeAdjust
		brl	@noSizeAdjust
@sizeAdjust		
		
		clc
		adc	#200			;enough for 200 more icons
		stz	Offset+2

;
; we need to extend the IconListArrays by 4*(IconArraySize+200) apiece
;
		asl	a		
		rol	Offset+2
		asl	a		
		rol	Offset+2
		sta	Offset

		lda	>IconHandleArray
		sta	<handle3
		lda	>IconHandleArray+2
		sta	<handle3+2

		ldy	#4
		lda	[<handle3],y		;unlock and unfix the block
		and	#$3FFF
		sta	[<handle3],y

		pha				;get the old handle size and stretch
		pha				;it by a longword
		pushZLong <handle3
		_GetHandleSize			;and it had BETTER be unlocked at this
		pla				;point
		clc
		adc	Offset			;want to add enough for 'TotalIcons' more records
		tax
		pla
		adc	Offset+2
		pha
		phx
		pushZLong <handle3
		_SetHandleSize
		bcc	@HandleListExtended
		rts	
@HandleListExtended			
			
		lda	>IconOffsetArray
		sta	<handle3
		lda	>IconOffsetArray+2
		sta	<handle3+2
	
		ldy	#4
		lda	[<handle3],y	;unlock and unfix the block
		and	#$3FFF
		sta	[<handle3],y

		pha				;get the old handle size and stretch
		pha				;it by a longword
		pushZLong <handle3
		_GetHandleSize			;and it had BETTER be unlocked at this
		pla				;point
		clc
		adc	Offset			;want to add enough for 'TotalIcons' more records
		tax
		pla
		adc	Offset+2
		pha
		phx
		pushZLong <handle3
		_SetHandleSize
		bcc	@OffsetListExtended
		rts
@OffsetListExtended
				
		lda	>IconArrayUsed
		inc	a
		clc
		adc	#200			;enough for 200 more icons
		sta	>IconArraySize
@noSizeAdjust

		jsr	MakeArrayPtrs		;dereference the array ptrs again just in case... (sigh)		

;
; If we get this far, we either had enough room for the additional icon offset and handle records, or we
; succesfully extended the length of each of the handle and offset handles
;
		ldy	OneDocResult
		lda	>IconArrayUsed		;take our current index
		tax
		sta	[<ptr2],y
		iny
		iny
		lda	#0
		sta	[<ptr2],y
		stz	Offset+2
		txa
		
		asl	a			;Offset *= 4
		rol	Offset+2
		asl	a
		rol	Offset+2
		sta	Offset
		
		clc				;add the offset to the start of the offset list
		adc	OffsetArrayPtr
		sta	<handle3
		lda	Offset+2
		adc	OffsetArrayPtr+2
		sta	<handle3+2		;handle3 is now a pointer to our offset array record
		
		lda	Offset			;add the offset to the start of the handle list
		clc
		adc	HandleArrayPtr
		sta	<ptr3
		lda	Offset+2
		adc	HandleArrayPtr+2
		sta	<ptr3+2
		
		lda	<ptr4			;take the current icon pointer and make an offset
		sec				;from the beginning of the IconList
		sbc	<icBlk
		sta	[<handle3]		;keep in mind that handle3 is a pointer, not a handle here
		lda	<ptr4+2
		sbc	<icBlk+2
		ldy	#2
		sta	[<handle3],y

		lda	<icBlkHand		;store the handle of the block of our icon
		sta	[<ptr3]
		lda	<icBlkHand+2
		sta	[<ptr3],y

		lda	>IconArrayUsed
		inc	a
		sta	>IconArrayUsed		
		clc
		rts

;
; dereference the icon handle array and the icon offset array
;
MakeArrayPtrs
		lda	>IconHandleArray
		sta	<handle3
		lda	>IconHandleArray+2
		sta	<handle3+2
		
		lda	[<handle3]
		sta	HandleArrayPtr
		ldy	#2
		lda	[<handle3],y
		sta	HandleArrayPtr+2

		lda	>IconOffsetArray
		sta	<handle3
		lda	>IconOffsetArray+2
		sta	<handle3+2
		
		lda	[<handle3]
		sta	OffsetArrayPtr
		lda	[<handle3],y		;y is already 2
		sta	OffsetArrayPtr+2
		rts		
;
; locals
;
lastRFPathHandle dc.L	0			;last rFinderPath handle allocated
OffsetArrayPtr	dc.L	0
HandleArrayPtr	dc.L	0
Offset		dc.L	0
OneDocResult	dc.w	0

CurrentRBSize	dc.L	0
rBundleSize	dc.L	0
matchFlags	dc.w	0
namePtr		dc.w	0
nextOneDoc	dc.w	0

; derefHandleToPtr -- dereference 'handle' into 'ptr'
;.....................................................................

derefHandleToPtr
		lda	[<handle]
		tax
		ldy	#2
		lda	[<handle],y
		sta	<ptr+2
		stx	<ptr
		rts
		ENDP

;==============================================
		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Finder/fififione.aii b/IIGS.601.SRC/A.U.G/Finder/fififione.aii
new file mode 100644
index 0000000..5fc0230
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Finder/fififione.aii
@@ -0,0 +1 @@
+***************************************************************************
*
* The all-inclusive, setup-and-search Finder Filetype Finder
*  
* (FiFiFi for short)
*
* by Matt Deatherage and Dave Lyons, 5/17/89
* Copyright Apple Computer, Inc. 1989-1992
* All rights reserved.
*
* code tightened by Ron Lichty, 1/9/90
*
* Extensive thanks to Dave Lyons and Eric Soldan, who gave great input
* on this routine and on the data structures it searches, knowing their
* names would be immortalized within Finder Source Code until Jim and Don
* rewrite it all in Modula-2 Pascal Ada C Prolog Lisp ++.
*
* This routine has lots of equates and two entry points:
*
* JSL FiFiFi	; loads all type $42 files from the directory
*	; '*:Icons' and prepares for searching.
* JSL FiFiFiSearch	; takes a filetype/auxtype combination and returns
*	; a pointer to a Pascal String describing it.
*
* Of course there are input and output parameters.  They're discussed
*in the routines themselves.
*
***************************************************************************

	PRINT PUSH,OFF

	INCLUDE 'M16.Memory'
	INCLUDE 'M16.Misctool'
	INCLUDE 'M16.Util'
	INCLUDE 'M16.IntMath'
	include 'm16.gsos'

	PRINT POP

GSOS	equ $E100A8

ohVersion	equ 0	; offset to version in header
ohFlags	equ 2	; offset to flags
ohNumEntries	equ 4	; number of entries
ohReserved	equ 6	; reserved word (for our use)
ohIndRecSize	equ 8	; IndexRecordSize
ohOffsetToInd	equ 10	; offset to index

oFiletype	equ 0	; offset to filetype in each entry
oAuxtype	equ 2	; offset to auxtype
oFlags	equ 6	; offset to Flags
oOffset	equ 8	; offset to string offset
OurRecSize	equ 8	; the size of the records in the memory block
		; we create to show where to search

***************************************************************************
*
* FiFiFi entry point #1 - set everything up.
*
* This is the routine called at Finder startup time, which loads all the
* filetype descriptors it can find, sorts them, and prepares everything
* for entry point #2, which will do the searching.
*
* Input parameters:
*
* None, but the user ID will be gotten from _MMStartUp and ored with
* #$0300 for our use, and the prefix in the equate 'PrefixNum' will be
* used as the location for the Ftype files.
*
* Output:
*
* Carry is set if there was a fatal system error, and A contains the
* number.  Carry is clear if all went according to plan.
*
***************************************************************************

FiFiFi	PROC EXPORT
	IMPORT ListPtr

MaxFiles	equ 30	; maximum number of $42 files we accept

OurFType	equ $42	; filetype of our files
ReqAType	equ $0000	; auxtype of the required file (currently unused)

BufTooSmall	equ $4F	; GS/OS Buffer Too Small error
EndOfDir	equ $61	; GS/OS end of directory error

LFNSM	equ $C008	; locked, fixed and no special memory

Open	equ $2010	; GS/OS open call number
Close	equ $2014	; GS/OS close (etc., etc.)
SetPrefix	equ $2009
GetPrefix 	equ $200A
Read 	equ $2012
GetDirEntry	equ $201C

NoFtypeFiles	equ $4242	; error when no $42 files are found
NoAuxZero	equ $4243	; no file with auxtype zero

PrefixNum	equ 1	; search this prefix for the Ftype files

OurID	equ 0
DPScratch	equ OurID+2	; scratch space
DPScratch2	equ DPScratch+4
LLPointer	equ DPScratch2+4	; pointer to the list
Prefix	equ LLPointer+4	; the prefix to search
FileTemp	equ Prefix+2	; temporary file pointer
ScrapWord	equ FileTemp+4	; temporary word storage

Futz1Size	equ ScrapWord+2	; size of stack frame

;
; First, we want Futz1Size bytes of stack space to use as a stack frame / dir page
;
	phb
	phk
	plb		; switch data bank to this one
	phd
	tsc
	sta oldStack		; save original stack value for restore - rdl
	sec
	sbc #Futz1Size
	tcs
	inc a
	tcd

GetParms	pha		; space for result
	_MMStartUp
	pla
	ora #$0300		; and in the $x3xx nibble
	sta <OurID
	
;	lda #PrefixNum		; the prefix number to use
;	sta <Prefix



;
; Create the handle for the list.  It will have the following
; format:
;
; WORD - number of entries
; and for each entry:
;
; LONG - auxtype of this file
; LONG - pointer to file in memory
;
; We will handle a maximum of 30 files, so we create a handle with
; 30*8 + 2 = 242 bytes, and we'll lock it and keep the pointer on DP.
;

BuildLL	pha
	pha		; space for result
	lda #0		; -- 0 for NewHandle phaÕs  --rdl
	pha		; size of block: high word is 0  --rdl
	pea #MaxFiles*OurRecSize+2	; size of block: low word  --rdl
	pei <OurID		; our user ID
	pea LFNSM		; attributes
	pha		; 0  --rdl
	pha		; 0  --rdl; this is for Doug Davies' benefit --md
	_NewHandle
	bcs FatalHop1		; any error here is fatal
	pullLong <DPScratch
	lda [DPScratch]
	sta <LLPointer
	ldy #2
	lda [DPScratch],y
	sta <LLPointer+2		; handle now dereferenced
	
	ldy #MaxFiles*OurRecSize	; length of handle minus two
	lda #0
@loop1	sta [LLPointer],y
	dey
	dey
	bpl @loop1		; when done, the new memory block is zeroed
;
; Now open the directory to read.  The following commented-out code was changed 6/6/89
; to hard code the directory '*:Icons' instead of using a prefixed directory - MD
; Also changed storage like PrxLen from long to absolute addressing - RDL 1/10/90

;OpenDir	pei <Prefix		; the prefix number (for Int2Dec)
;	lda #3
;	sta >PfxLen		; the length
;	lda #'01'		; default prefix number
;	sta >PfxNum
;	lda #$003A		; ":"
;	sta >PfxNum+2
;	pushlong #PfxNum		; space for string in parameter block
;	pea 2		; two bytes long
;	pea 0		; unsigned
;	_Int2Dec
;	
;	lda >PfxNum
;	tay		; save a copy
;	and #$00FF		; strip off second character
;	cmp #$0020		; is the first character a space
;	bne @NoSpace		; no, so go on
;	tya 		; get the copy
;	and #$FF00		; strip out old character
;	ora #$0030		; or in a '0'
;	sta >PfxNum

@NoSpace
;*** added 4-Feb-92 DAL -- set sys prefs to prompt for disk if needed
;	_GetSysPrefsGS oldPrefs
;	lda theOldPrefs
;	and #$1fff
;	ora #$8000
;	sta theNewPrefs
;	_SetSysPrefsGS newPrefs
;*** end 4-Feb-92
*** 5-Oct-92 DAL -- use DoSysPrefs instead
	pha		;space for old prefs
	pea $E000		;bits to clear
	pea $8000		;bits to set
	ldx #$3f03
	jsl $e10000
;	_DoSysPrefs
	pla
	sta oldPrefs
*** end 5-Oct-92

	jsl GSOS
	dc.w Open		; class 1 open
	dc.l OpenParms		; parameter block:  *:Icons

;*** added 4-Feb-92 DAL -- restore sys prefs
;	php
;	pha	;dang, added 11-Feb-92 DAL
;	_SetSysPrefsGS oldPrefs
;	pla	;dang, added 11-Feb-92 DAL
;	plp
;*** end 4-Feb-92
*** 5-Oct-92 DAL -- restore using DoSysPrefs
	php
	pha

	pha	;space for result
	pea $ffff	;bits to clear
	lda oldPrefs
	pha	;bits to set
	ldx #$3f03
	jsl $E10000
;	_DoSysPrefs
	pla	;ignore old prefs

	pla
	plp
*** end 5-Oct-92


FatalHop1	bcs FatalHop		; fatal error if can't open directory
	
	lda OpenParms+2		; the reference number for *:Icons
	sta DirParms+2

;
; Last thing before the Big Loop - swap our prefix and prefix zero
;

;	lda <Prefix
;	beq BigLoop		;don't work if you can avoid it
	
; get prefix zero into parameter block one

	jsl GSOS
	dc.w GetPrefix		; class one get prefix
	dc.l PfxParms		; first parameter block
	
; now set prefix zero to our prefix

	jsl GSOS
	dc.w SetPrefix		; class one set prefix
	dc.l SPFxParms		; second parameter block

;
; And here's the Big Loop!
;

BigLoop	jsl GSOS
	dc.w GetDirEntry		; GetDirEntry (class 1)
	dc.l DirParms

	bcc contLoop
	cmp #BufTooSmall		; just buffer too small
	beq BigLoop		; go on to the next file
	cmp #EndOfDir		; end of directory?
	bne FatalHop
	brl EndSearch		; go close the directory
FatalHop	brl FatalError

contLoop	lda DirFtype
	cmp #OurFType
	bne BigLoop		; not a file type descriptor; go on to next file

;
; We've got one, so add it where it goes in the list.  First,
; read the file into a fixed handle and check to see if it's of proper
; version, etc.  Then, create a new LL entry.
;

AddFile	pha
	pha		; space for result
	pushlong DirEOF		; length equal to length of file
	pei <OurID		; our user ID
	pea LFNSM		; locked+fixed+noSpecialMemory
	lda #0
	pha
	pha		; no pointer to where
	_NewHandle
	bcs FatalHop		; errors here are fatal as well

	pullLong <DPScratch		; pull into file temporary storage
	lda [DPScratch]
	sta <FileTemp
	ldy #2
	lda [DPScratch],y
	sta <FileTemp+2		; pointer to handle is now in FileTemp

	jsl GSOS
	dc.w Open		; class one open on Ftype file
	dc.l OpenParms2
	bcs FatalHop

	lda OpenParms2+2
	sta ReadParms+2		; put the reference number in the read block

	lda <FileTemp+2
	sta ReadParms+6		; put the pointer as the read buffer
	lda <FileTemp
	sta ReadParms+4

	lda DirEOF+2
	sta ReadParms+10		; request count = file size
	lda DirEOF
	sta ReadParms+8

	jsl GSOS
	dc.w Read		; class one read of Ftype file
	dc.l ReadParms
	bcs FatalHop

	dec OpenParms2
	dec OpenParms2		; pcount = 1
	jsl GSOS
	dc.w Close		; class one close
	dc.l OpenParms2		; same used to open it
	inc OpenParms2
	inc OpenParms2		; put it back to 3

	lda [FileTemp]
	and #$0F00		; strip out all but major version
	cmp #$0100		; version 1.x?
	bne SkipFile
	ldy #ohFlags
	lda [FileTemp],y	; get flags word
;	and #$7FFF		; leave all but high bit

*** changed 1-Oct-92 DAL -- allow bit 0 to be set, and 1..6 while I'm at it
	and #$7f00		; skip file if any bits 14..8 are set
*** end 1-Oct-92
	bne SkipFile		; and skip if any of them are set 
			; (records other than filetype/any auxtype)
	iny
	iny
	lda [FileTemp],y
	beq SkipFile		; skip if 0 entries in file
	iny
	iny
	lda [FileTemp],y	; does this file have over 64K entries?
	bne SkipFile		; yes, so don't use it.

	bra AddList

SkipFile	pha
	pha		; space for result
	pei <FileTemp+2
	pei <FileTemp
	_FindHandle
	_DisposeHandle
;
; We're done with this one, so look at the next file
;
NextFile	brl BigLoop		; get the next directory entry

;
; Add it to the list.  First, put the TopOfIndex field in the memory block
;

AddList	pha
	pha		; space for result
	ldy #ohNumEntries
	lda [FileTemp],y		; get number of entries in file
	pha
	ldy #ohIndRecSize
	lda [FileTemp],y		; get size of each index entry
	pha
	_Multiply
	pla
	plx		; don't need high word
	ldy #ohOffsetToInd	; offset to OffsetToIndex
	clc
	adc [FileTemp],y
	ldy #ohReserved		; "reserved" word
	sta [FileTemp],y		; and keep it in memory


	lda [LLPointer]
	inc a
	sta [LLPointer]		; bump up the number of files by one
	
	dec a		; create index (zero-based)
	asl a
	asl a
	asl a		; multiply by eight
	inc a
	inc a		; and add two
	tay		; we've now got our index
	lda DirAuxtype
	sta [LLPointer],y
	lda DirAuxtype+2
	iny
	iny
	sta [LLPointer],y
	lda <FileTemp
	iny
	iny
	sta [LLPointer],y
	lda <FileTemp+2
	iny
	iny
	sta [LLPointer],y
	
	lda [LLPointer]
	cmp #MaxFiles		; have we gone as fur as we kin go?
	blt NextFile		; no, so keep looking

;
; We've finished the directory, so close it 
;

EndSearch	lda OpenParms
	sta <DPScratch		; save this for a second
	lda #1
	sta OpenParms
	
	jsl GSOS
	dc.w Close		; class one close on directory
	dc.l OpenParms
	
	lda <DPScratch
	sta OpenParms		; restore for restartableness
	
;
; Put prefix zero back the way it was.
;

UnSwapPfx	jsl GSOS
	dc.w SetPrefix
	dc.l PfxSParms		; original is back as well
;
; Did we find any files at all?
;

	lda [LLPointer]
	bne MakeList		; yes, we did
	lda #NoFTypeFiles 		; a telling error number
	brl FatalError		; no files in *:Icons: fatal error

;
; Now we bubble-sort the list so it's in descending order
;

MakeList	lda [LLPointer]		; get the count of files in the list
	cmp #1
	bne @ML1
	brl DoneSort		; don't sort if only one entry
@ML1	sta <ScrapWord		; and keep a work copy on DP
	sta BSort		; and another in our data area
	
NextPass	ldy #2		; we're going to get the first pointer
ReSort	tya
	clc
	adc <LLPointer
	sta <DPScratch
	lda #0
	adc <LLPointer+2
	sta <DPScratch+2
	
	tya
	clc
	adc #8
	clc		; and then the second pointer
	adc <LLPointer
	sta <DPScratch2
	lda #0
	adc <LLPointer+2
	sta <DPScratch2+2
	
Compare	ldy #0
	sec
	lda [DPScratch],y
	sbc [DPScratch2],y
	iny
	iny
	lda [DPScratch],y
	sbc [DPScratch2],y
	
; at this point, carry still set means [DPScratch] was bigger than [DPScratch2],
; and no swapping is necessary

	bcs BumpEntries

	ldy #0
Swap	lda [DPScratch],y
	tax
	lda [DPScratch2],y
	sta [DPScratch],y
	txa
	sta [DPScratch2],y
	iny
	iny
	cpy #8
	blt Swap
	
BumpEntries
	dec <ScrapWord
	lda <ScrapWord
	cmp #1
	beq BumpSort		; time to shrink and sort again
	lda #8		; length of an entry
	clc
	adc <DPScratch
	sta <DPScratch
	lda #0
	adc <DPScratch+2
	sta <DPScratch+2
	
	lda #8
	clc
	adc <DPScratch2
	sta <DPScratch2
	lda #0
	adc <DPScratch2+2
	sta <DPScratch2+2
	
	bra Compare
	
BumpSort	lda BSort
	dec a
	sta BSort
	cmp #1		; have we fully bubbled?
	beq DoneSort
	sta <Scrapword
	bra NextPass
	
DoneSort	lda <LLPointer
	sta >ListPtr
	lda <LLPointer+2
	sta >ListPtr+2

;
; make sure the system's filetype file (auxtype=0) was present
;
	lda [LLPointer]
	dec a
	asl a
	asl a
	asl a
	inc a
	inc a
	tay
	lda [LLPointer],y
	iny
	iny
	ora [LLPointer],y
	beq @auxZero
	lda #NoAuxZero		; the required file isn't here!
	bra FatalError
@auxZero

;
; Now Dave says I have to set the handle size of the LLPointer list
; to be as small as it can be and still retain its unique identity.
;

	lda [LLPointer]
	asl a
	asl a
	asl a		; multiply by eight
	inc a
	inc a		; and add two - now it's the size
	
	pea $0000
	pha		; the size of the handle
	
	pha
	pha		; space for _FindHandle result
	
	pei <LLPointer+2
	pei <LLPointer		; push the pointer to the list
	_FindHandle
	_SetHandleSize
	
;
; now unfutz the stack frame
;
	lda #0		; no error

FatalError	tax		; save the error code
	lda oldStack		; restore orig stack location - rdl
	tcs
	pld
	plb
	txa
	cmp #1		;set or clear the carry based on value in (A)
	rtl


;
; Data for use by this routine
;

oldStack	dc.w 0	; stack pointer after futz (for FatalError)

BSort	dc.w 0	; word for bubble sort's use

;*** added 4-Feb-92 DAL
;oldPrefs	dc.w 1
;theOldPrefs	dc.w 0
;
;newPrefs	dc.w 1
;theNewPrefs	dc.w 0
;*** end 4-Feb-92
oldPrefs	dc.w 0	;new for DoSysPrefs (5-Oct-92 DAL)


OpenParms	dc.w 3	; parameter count
	dc.w 0	; space for reference number
	dc.l PfxLen	; pointer to pathname buffer
	dc.w 1	; read access only, always

OpenParms2	dc.w 3	; parameter count
	dc.w 0	; space for reference number
	dc.l PathBuff2+2	; pointer to pathname buffer
	dc.w 1	; read access only, always

;
; Ignore these labels - this is the directory we use for the files
;

PfxLen	dc.w 7
PfxNum	dc.b '*:Icons'	; where to find our files

DirParms	dc.w 13	; 13 parameters
	dc.w 0	; reference number (stored later)
	dc.w 0	; flags
	dc.w 1	; base
	dc.w 1	; displacement
	dc.l PathBuff2	; pathname buffer #2
	dc.w 0	; entry number
DirFtype	dc.w 0	; filetype returned
DirEOF	dc.l 0	; EOF returned
	dc.l 0	; block count returned
	dc.l 0
	dc.l 0
	dc.l 0
	dc.l 0	; create and modify dates/times
	dc.w 0	; access returned
DirAuxtype	dc.l 0	; auxtype returned

PathBuff2	dc.w 36
	ds.b 34	; storage for GetDirEntry names.
	
ReadParms	dc.w 4
	dc.w 0	; reference number
	dc.l 0	; buffer pointer (filled in)
	dc.l 0	; request count (filled in)
	dc.l 0	; transfer count (result)
	
PfxParms	dc.w 2	; two parameters
	dc.w 0	; prefix number (always zero)
	dc.l PfxBuf	; pointer to prefix buffer
	
Pfx2Parms	dc.w 2
	dc.w 0
	dc.l PfxBuf2	; storage for our prefix
	
PfxSParms	dc.w 2
	dc.w 0	; the prefix number
	dc.l PfxBuf+2	; pointer to input string
	
SPFxParms	dc.w 2
	dc.w 0
	dc.l PfxLen	; pointer to our directory
	
PfxBuf	dc.w 67	; maximum of sixty-three
	ds.b 65	; sixty-five storage bytes (inc. count word)

PfxBuf2	dc.w 67	; maximum of sixty-three
	ds.b 65	; sixty-five storage bytes (inc. count word)

	EndP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Finder/fififitwo.aii b/IIGS.601.SRC/A.U.G/Finder/fififitwo.aii
new file mode 100644
index 0000000..9b5d492
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Finder/fififitwo.aii
@@ -0,0 +1 @@
+***************************************************************************
*
* The all-inclusive, setup-and-search Finder Filetype Finder
*
* (FiFiFi for short)
*
* by Matt Deatherage and Dave Lyons, 5/17/89
* Copyright Apple Computer, 1989.  All rights reserved.
*
* Extensive thanks to Dave Lyons and Eric Soldan, who gave great input
* on this routine and on the data structures it searches, knowing their
* names would be immortalized within Finder Source Code until Jim and Don
* rewrite it all in Modula-2 Pascal Ada C Prolog Lisp ++.
*
* This routine has lots of equates and two entry points:
*
*  JSL FiFiFi	; loads all type $42 files from *:Icons
*
*  JSL FiFiFiSearch	; takes a filetype/auxtype combination and returns
* 	; a pointer to a Pascal String describing it.
*
* Of course there are input and output parameters.  They're discussed
* in the routines themselves.
*
***************************************************************************
*
* REVISION HISTORY -- 6.0.1
*
* 1-Oct-92	Dave Lyons for 6.0.1d11
*   FiFiFiSearch now tries a 2nd time, masking bit 15 off the auxtype, if
*   it matched a generic filetype that can be inactivated, and bit 15
*   happens to be set in the target auxtype.
*
***************************************************************************

	PRINT OFF

	INCLUDE 'M16.Memory'
	INCLUDE 'M16.Util'
	INCLUDE 'M16.IntMath'
	INCLUDE 'Strings.Equ'	; for Finder's purposes
	INCLUDE 'Data.equ'
	INCLUDE 'Finder.equ'

	PRINT ON

GSOS	equ $E100A8

ohVersion	equ 0		; offset to version in header
ohFlags	equ 2		; offset to flags
ohNumEntries	equ 4		; number of entries
ohReserved	equ 6		; reserved word (for our use)
ohIndRecSize	equ 8		; IndexRecordSize
ohOffsetToInd	equ 10		; offset to index

oFiletype	equ 0		; offset to filetype in each entry
oauxtype	equ 2		; offset to auxtype
oFlags	equ 6		; offset to Flags
oOffset	equ 8		; offset to offset
OurRecSize	equ 8		; the size of the records in the memory block
			; we create to show where to search

***************************************************************************
*
* FiFiFi entry point #2 - find the given file.
*
* Here we take the filetype/auxtype in the registers and return,
* in the registers, a pointer to the string that matches.
*
* Inputs:
*   Filetype	A register	Word Filetype to match
*   auxtypeL	X register	Low word of auxtype to match
*   auxtypeH	Y register	High word of auxtype to match
*
* Outputs:
*   XA = Pointer to string
*   Y = flags from FTD entry (for example, 0 = generic type can be Inactive)
*
* *Some* string will always be returned; since everything is already
* set up, there can be no tool errors or anything of the sort.
*
***************************************************************************

;
; First, we need to set up the predefined stack space
;
Lists	equ 0		; DP pointer to lists
CurHand	equ Lists+4		; pointer to current file being searched
Count	equ CurHand+4		; number of files left to search
Adder	equ Count+2		; the shifted index to precalculate
Number	equ Adder+2		; the number of entries in the current file
RecSize	equ Number+2		; bytes/entry in current file
IndOffset	equ RecSize+2		; offset to first index entry in current file
Delta	equ IndOffset+2		; the delta to add/subtract from offset
PtrRec	equ Delta+2		; the pointer to the current record
TopOfIndex	equ PtrRec+2		; pointer to last record in current file
filetype	equ TopOfIndex+2		; filetype to match
Rauxtype	equ filetype+2		; auxtype to match

Futz2Size	equ Rauxtype+4

FiFiFiSearch	PROC EXPORT
	EXPORT ListPtr

*** added 1-Oct-92 DAL
	phd
	pha
	pha
	pha		;space for result we will return (3 words)

	pha		;filetype
	phy		;auxtype high
	phx		;auxtype low

@auxtype	equ 1
@filetype	equ @auxtype+4
@result	equ @filetype+2

	tsc
	tcd
	lda <@filetype

	jsr @Search2		;inputs = A YX
	tya
	and #$8001		;$8000=generic filetype, $0001=can be Inactive
	cmp #$8001		;generic+inactive = try again with masked one
	bne @done

	lda <@auxtype+2
	bne @done		;strange, don't mess with it
	lda <@auxtype
	bpl @done		;already active
	asl a
	lsr a
	tax		;auxtype & $7FFF
	ldy <@auxtype+2
	lda <@filetype
	jsr @Search2

@done	ply
	ply
	ply		;pulled filetype/auxtype
	pla		;result pointer low
	plx		;result pointer high
	ply		;result flags
	pld
	rtl

@Search2	jsl FiFiFiSearch2
	sty <@result+4
	stx <@result+2
	sta <@result
	rts
*** end 1-Oct-92


FiFiFiSearch2	phd
	phy		; auxtype+2
	phx		; auxtype
	pha		; filetype

	tsc
	sec
	sbc #Futz2Size-6
	tcs
	inc a
	tcd

	lda >ListPtr+2
	sta <Lists+2
	lda >ListPtr
	sta <Lists

	lda #0
	sta >ResultFlags		;1-Oct-92 DAL

;
; Finish the setup
;

	stz <Count		; initialize the count variable
	ldy #2

;
; Note the following is a slight adulteration of original Finder code to handle the
; fact that Finder treats devices as if they had filetypes greater than $FF
;

	lda <FileType		; get the filetype we're searching
;;;	cmp #$0100		; if > $FF then its a device
	cmp #$FF00		; if >= $FF00 it's special (1-Oct-92 DAL)
	blt SearchNextFile		; so if not, go find it

device	eor #$FFFF		;Compute index to Kind field string.
	asl a
	asl a
	tax
	lda >deviceKinds,x
	tay		;save in y for a moment
	lda >deviceKinds+2,x
	tax
	jmp ThisRecTwo

SearchNextFile	iny
	iny
	iny
	iny
	lda [Lists],y
	sta <CurHand
	iny
	iny
	lda [Lists],y
	sta <CurHand+2		; CurHand points to first file

BSloop			; (That's "Big Search Loop")
	ldy #ohNumEntries
	lda [CurHand],y		; get count of entries in this file
	sta <Number
	iny
	iny
	lda [CurHand],y		; get top of index we calculated in EntryOne
	sta <TopOfIndex
	iny
	iny
	lda [CurHand],y		; get index record size
	sta <RecSize
	iny
	iny
	lda [CurHand],y
	sta <IndOffset		; offset to first index entry

	lda <Number
	ldx #1
	stx <adder		; reinitialize the adder
	dex
@1	asl <adder		; shift the adder up
	inx
	lsr a		; shift the accumulator down
	bne @1		; do it again
	lsr <adder		; back it up by one
	dex		; x = number of ASLs made on adder
;
; At this point, the adder contains the index entry NUMBER to start with.
; We now have to convert that to an offset for indexed searching.  Since
; we know adder is a power of two, we kept track of how many shifts we did
; to create it and will shift the index size the same number of times.  This
; creates the offset from the start of the index to the index entry we want.
; Then we save this in "delta", and will use it in the loop to prevent
; having to do any math other than adding, subtracting and shifting.
;

	lda <RecSize
	txy
	beq @wasZero
@2	asl a
	dex
	bne @2
@wasZero	sta <Delta		; Delta is now set up

;
; We should be ready to actually start searching.
;
	clc
	adc <IndOffset
	sec
	sbc <RecSize
	sta <PtrRec		; keep this for Choose, if needed
	tay		; Y now has index, so

SSLoop	lda [CurHand],y		; check the filetype in the index
	cmp <FileType
	beq @SS1		; equal, check the auxtype
	blt TooSmall		; we need to go lower
	bra TooBig		; we need to go higher (makes sense)

@SS1	iny
	iny
	lda [CurHand],y		; check low byte of auxtype
	cmp <Rauxtype
	bne Choose		; decide which way to go next
	iny
	iny
	lda [CurHand],y		; check high byte of auxtype
	cmp <Rauxtype+2
	bne Choose		; decide which way to go next
	iny
	iny
	lda [CurHand],y     	; flags
	bmi TooSmall        	; generic counts as too small
	sta >ResultFlags
	iny
	iny		; got to offset
	brl ThisRecord		; we found it!

;
; An auxtype comparison has just failed.  We now do a quick four-byte
; subtraction to know whether the four-byte auxtype in the record is too big
; or too small.
;

Choose	ldy <PtrRec
	iny
	iny
	lda [CurHand],y		; low byte of auxtype
	sec
	sbc <Rauxtype
	iny
	iny
	lda [CurHand],y
	sbc <Rauxtype+2

;
; And, at this point, the carry is set if no borrow was needed, meaning that
; the index auxtype was greater than the desired auxtype (we already knew
; that it wasn't equal), so:
;
	bcs TooBig		; it was too big, or
	bcc TooSmall		; it was too small, or

;
; We know (at this point) the index record is too big, so we have to go
; to a smaller record.
;

TooBig	lsr <adder		; divide it in half
	beq @1
	lsr <delta		; this too

	sec
	lda <PtrRec
	sbc <delta
	sta <PtrRec		; PtrRec now points to the new value

@1	bra NextRecord		; check boundaries and loop

;
; We need to search bigger, so increase the record number.  Check to make
; sure we don't go over the top, then keep searching
;

TooSmall	lsr <adder		; divide this in half
	beq @1
	lsr <delta		; this too

	lda <delta		; get the delta
	clc
	adc <PtrRec
	cmp <TopOfIndex		; have we gone too far?
	blt @TS2
	lda <TopOfIndex
	sec
	sbc <RecSize
@TS2	sta <PtrRec		; no further than the top, please
@1
;	bra NextRecord

;
; Check the boundaries and see what's going on
;

NextRecord	lda <adder
	beq CheckGeneric	; no exact match here
	ldy <PtrRec
	brl SSLoop		; keep looking here!

;
; This is the one we want - [CurHand],y points to the offset to the string
;
; return XA = pointer to Pascal string
;
ThisRecord	clc
	lda [CurHand],y
	adc <CurHand
	ldx <CurHand+2
	bcc @1
	inx
@1	tay		;XY = ptr to string

ThisRecTwo	tsc
	clc
	adc #Futz2Size
	tcs
	pld

	lda >ResultFlags
	pha

	tya		;XA = ptr to string
	ply		;Y = result flags

	clc
	rtl

ResultFlags	dc.w 0

;
; There's no exact match, so check the generic record previous
;

CheckGeneric
	ldy #ohFlags
	lda [CurHand],y
	bpl NoGeneric		; bit $8000 = some generic auxtypes
ScanGeneric
	ldy <PtrRec
	lda [CurHand],y
	cmp <FileType
	blt NoGeneric
	bne ScanBackwards

;	ldy <PtrRec
	iny
	iny
	iny
	iny
	iny
	iny
	lda [CurHand],y
	bpl ScanBackwards		; bit $8000 = any auxtype
	sta >ResultFlags
	iny
	iny
	brl ThisRecord

ScanBackwards
	lda <PtrRec
	sec
	sbc <RecSize
	bcc NoGeneric		; searched back off end of table
	sta <PtrRec
	cmp <IndOffset
	blt NoGeneric
	sta <PtrRec
	bra ScanGeneric

NoGeneric
;
; There's no match in this file, so go to the next one.
;

NextTry	inc <Count		; bump the count
			; (don't you love comments like that?)
	lda <Count
	cmp [Lists]
	beq LastFile		; this was the last file

	asl a
	asl a
	asl a
	inc a
	inc a		; A := (A*8) +2
	tay

	brl SearchNextFile	; go do this again

;
; This was the last file, so point to the UNKNOWN string, which must be at
; the beginning of the index table in the last file (filetype 00, auxtype 0000)
;

LastFile	lda <IndOffset
	clc
	adc #8
	tay
	brl ThisRecord		; CurHand still points to the right file

;
; Static storage
;


ListPtr	dc.l 0		; pointer to list of file handles for searching

; --- Data for Get Info windows --------------------------------------

deviceKinds	DC.L trashBlk+windMenuText
	DC.L trashBlk+windMenuText
	DC.L HardKind
	DC.L flopKind
	DC.L miniKind
	DC.L ramKind
	DC.L flopKind		;not used
	DC.L cdromKind		;new kinds added 05/29/88 DJB
	DC.L tapeKind
	DC.L scsiKind
	DC.L serverKind
	DC.L networkKind
	DC.L hdPartKind
	DC.L cdPartKind
	DC.L scPartKind

	EndP
	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Finder/help.rez b/IIGS.601.SRC/A.U.G/Finder/help.rez
new file mode 100644
index 0000000..db5530d
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Finder/help.rez
@@ -0,0 +1 @@
+// --------------------------------------------------------------------
// help.REZ
// Copyright 1991-1993 Apple Computer, Inc.
// All Rights Reserved
//
// 2/12/91, andy, created today
// 2-Apr-93 JCM - Added a short description of magic routing.
// --------------------------------------------------------------------

// --- Control List Definitions

resource rControlList (CTLLST_00000002, $0000) {
       {
       CTLTMP_00001000,        // control 1
       CTLTMP_00001001,        // control 2
       };
};

// --- Control Templates

resource rControlTemplate (CTLTMP_00001000, $0000) {
       $00000001,              	// ID
       {  4,  8,  0,  0},      	// rect
       popUpControl {{
               $0040,          	// flag
               $1082,          	// moreFlags (drop triangle)
               $00000000,      	// refCon
               $0000,          	// titleWidth
               MENU_00001000,  	// menuRef
               0,      			// initialValue
               0               	// colorTableRef
       }};
};

resource rControlTemplate (CTLTMP_00001001, $0000) {
       $00000002,              	// ID
       { 20, -2,105,398},      	// rect
       editTextControl {{
               $0000,          	// flag
               $7400,          	// moreFlags
               $00000000,      	// refCon
               $07A80000,      	// textFlags
               {65535,65535,65535,65535},  // indentRect
               $FFFFFFFF,      	// vertBar
               $0000,          	// vertAmount
               $00000000,      	// horzBar
               $0000,          	// horzAmount
               $00000000,      	// styleRef
               0,          		// textDescriptor
               0,   			// textRef
               $00000000,      	// textLength
               $00000000,      	// maxChars
               $00000000,      	// maxLines
               $0000,          	// maxCharsPerLine
               $0000,          	// maxHeight
               0,              	// colorTableRef
               $0000,          	// drawMode
               $00000000       	// filterProcPtr
       }};
};

// --- rPString Templates

resource rPString (PSTR_00001000, $0010) {
       " Topic "
};

resource rPstring (PSTR_00001001, $0010) {
		"Using Help"
};

resource rPString (PSTR_00001002, $0010) {
       "Tunneling and Closing"
};

resource rPString (PSTR_00001003, $0010) {
       "Pop-ups in Window Titles"
};

resource rPString (PSTR_00001004, $0010) {
       "Dimmed Menu Commands"
};

resource rPString (PSTR_00001005, $0010) {
       "Selecting & Coloring icons"
};

resource rPString (PSTR_00001006, $0010) {
       "Disk Copying Options"
};

resource rPString (PSTR_00001007, $0010) {
       "Saving Window Positions"
};

resource rPString (PSTR_00001008, $0010) {
       "Moving Inactive Windows"
};

resource rPString (PSTR_00001009, $0010) {
       "File Copying Options"
};

resource rPString (PSTR_0000100A, $0010) {
       "Odds & Ends, Hints & Tips"
};


// --- Menu Definitions

resource rMenu (MENU_00001000, $0000) {
       $0001,                  // menuID
       $A000,                  // menuFlag
       PSTR_00001000, {        // menuTitleRef
               MENUITEM_00001000,
			   MENUITEM_000010FF,
               MENUITEM_00001001,
               MENUITEM_00001002,
               MENUITEM_00001003,
               MENUITEM_00001004,
               MENUITEM_00001005,
               MENUITEM_00001006,
               MENUITEM_00001007,
               MENUITEM_00001008,
			   MENUITEM_000010FF,
			   MENUITEM_00001009
       };
};

// --- Menu Item Definitions

resource rMenuItem (MENUITEM_00001000, 0) {
       $1000,                  // itemID
       "","",                  // itemChar, itemAltChar
       NIL,                    // itemCheck
       $8000,                  // itemFlag
       PSTR_00001001           // itemTitleRef
};

// dividing line between these two

resource rMenuItem (MENUITEM_00001001, 0) {
       $1001,                  // itemID
       "","",                  // itemChar, itemAltChar
       NIL,                    // itemCheck
       $8000,                  // itemFlag
       PSTR_00001002           // itemTitleRef
};

resource rMenuItem (MENUITEM_00001002, 0) {
       $1002,                  // itemID
       "","",                  // itemChar, itemAltChar
       NIL,                    // itemCheck
       $8000,                  // itemFlag
       PSTR_00001003           // itemTitleRef
};

resource rMenuItem (MENUITEM_00001003, 0) {
       $1003,                  // itemID
       "","",                  // itemChar, itemAltChar
       NIL,                    // itemCheck
       $8000,                  // itemFlag
       PSTR_00001004           // itemTitleRef
};

resource rMenuItem (MENUITEM_00001004, 0) {
       $1004,                  // itemID
       "","",                  // itemChar, itemAltChar
       NIL,                    // itemCheck
       $8000,                  // itemFlag
       PSTR_00001005           // itemTitleRef
};

resource rMenuItem (MENUITEM_00001005, 0) {
       $1005,                  // itemID
       "","",                  // itemChar, itemAltChar
       NIL,                    // itemCheck
       $8000,                  // itemFlag
       PSTR_00001006           // itemTitleRef
};

resource rMenuItem (MENUITEM_00001006, 0) {
       $1006,                  // itemID
       "","",                  // itemChar, itemAltChar
       NIL,                    // itemCheck
       $8000,                  // itemFlag
       PSTR_00001007           // itemTitleRef
};

resource rMenuItem (MENUITEM_00001007, 0) {
       $1007,                  // itemID
       "","",                  // itemChar, itemAltChar
       NIL,                    // itemCheck
       $8000,                  // itemFlag
       PSTR_00001008           // itemTitleRef
};

resource rMenuItem (MENUITEM_00001008, 0) {
       $1008,                  // itemID
       "","",                  // itemChar, itemAltChar
       NIL,                    // itemCheck
       $8000,                  // itemFlag
       PSTR_00001009           // itemTitleRef
};

// dividing line bewteen these two

resource rMenuItem (MENUITEM_00001009, 0) {
       $1009,                  // itemID
       "","",                  // itemChar, itemAltChar
       NIL,                    // itemCheck
       $8000,                  // itemFlag
       PSTR_0000100A           // itemTitleRef
};


resource rMenuItem (MENUITEM_000010FF, 0) {
       $10FF,                  // itemID
       "","",                  // itemChar, itemAltChar
       NIL,                    // itemCheck
       $8080,                  // itemFlag (dimmed)
       PSTR_000010FF           // itemTitleRef
};

resource rPString(PSTR_000010FF,0) {
		"-"
};

// --- Window Templates

resource rWindParam1 (WPARAM1_00000002, 0) {
       $C080,                  // plFrame (frame bits)
       PSTR_00000106,          // plTitle (title ID)
       $00000000,              // plRefCon
       {  0,  0,  0,  0},      // plZoomRect
       WCOLOR_07FF0001,        // plColorTable
       {$0000, $0000},         // plYOrigin, plXOrigin
       {$0000, $0000},         // plDataHeight, plDataWidth
       {$0000, $0000},         // plMaxHeight, plMaxWidth
       {$0000, $0000},         // plVerScroll, plHorScroll
       {$0000, $0000},         // plVerPage, plHorPage
       $00000000,              // plInfoText (info RefCon)
       $0000,                  // plInfoHeight
       { 62, 56,166,452},      // plPosition
       infront,                // plPlane
       CTLLST_00000002,        // plControlList
       $0A09                   // plInDesc
};

// --- rText Templates

resource rText (TXT_00001000, $0000) {
		"To get information on different Finder features, choose a "
		"feature from the pop-up menu above."
		"\$0d"
		"\$0d"
		"When there is more text than will fit in the window, you can "
		"use the scroll-bar on the right to see the rest."
};

resource rText (TXT_00001001, $0000) {
       "Double-clicking a folder while holding down the Option key "
       "opens the folder and then closes the window the folder is in.  "
       "This is called ÒTunneling.Ó"
	   "\$0D"
       "\$0D"
	   "Holding down the Option key while opening a group "
	   "of folders also allows Tunneling."
       "\$0D"
       "\$0D"
       "Holding down the "
	   "\$11"
	   " key while clicking a windowÕs "
	   "title displays a menu of the enclosing folders; the folder you choose "
	   "opens.  "
       "If you also hold down the Option key, the original window then closes.  "
       "This is called ÒReverse Tunneling.Ó"
       "\$0D"
       "\$0D"
       "Holding down the Option key while selecting a window from the Windows "
	   "menu closes the window instead of bringing it to the front."
       "\$0D"
       "\$0D"
	   "Holding down the Option key while selecting ÒCloseÓ or its Command "
	   "key equivalent ("
	   "\$11"
	   " W) has the same effect as ÒClose All.Ó"
};

resource rText (TXT_00001002, $0000) {
       "Holding down the "
	   "\$11"
	   " key while clicking the title of the "
       "active window shows you a pop-up menu listing the enclosing folders.  "
       "Choosing a folder opens the corresponding window."
};

resource rText (TXT_00001003, $0000) {
       "The Finder dims menu commands that canÕt"
       " be used right now.  Notice that when you select or deselect ic"
       "ons or windows, some menu items change from regular to dimm"
       "ed and vice versa.  If a menu command you want to use is dimmed,"
       " try selecting some icons until the menu item becomes active."
};

resource rText (TXT_00001004, $0000) {
       "To select icons that are grouped together, position the pointer "
       "outside one corner of the group of icons and drag to the opposite "
       "corner."
       "\$0D"
       "\$0D"
       "To select icons that arenÕt grouped together, select one icon by"
       " clicking it.  Then hold down the Shift key as you click each"
       " additional icon.  Deselect icons by holding down the Shift key "
       "and clicking selected icons."
	   "\$0D"
	   "\$0D"
	   "To select an icon by name, begin typing the name.  You can also use the "
	   "arrow keys.  Tab selects the next icon alphabetically; Shift-Tab selects "
	   "the previous icon alphabetically.  Esc deselects all icons and lets you "
	   "keyboard-select icons in the front window.  "
	   "\$11"
	   "-Esc deselects all "
	   "icons and lets you keyboard-select icons on the desktop."
       "\$0D"
       "\$0D"
	   "To color an icon, select an icon (by clicking it) "
	   "then choose a color from the Color menu.  To reverse the preference "
	   "setting for the portion of the icon to color (background or outline), "
	   "hold down the Control key while choosing a color from the Color menu."
};

resource rText (TXT_00001005, $0000) {
	   "To see a dialog box listing the different disk copy alternatives "
	   "hold down the Option key"
       " as you drag the source diskÕs icon onto the destination diskÕs "
       "icon or window."
};

resource rText (TXT_00001006, $0000) {
       "When you close a window or drag a disk icon into the Trash, the "
       "Finder creates a file on the disk that "
       "records"
       " the size and position of each affected window and the position "
       "and color of icons in each affected window."
       "\$0D"
       "\$0D"
	   "A check box in Preferences... allows you to turn this feature on "
	   "or off."
	   "\$0D"
       "\$0D"
	   "Holding down the Control key while closing a window reverses the "
	   "preference setting of ÒSave Finder information onto disk.Ó  The Control "
	   "key sequence can be combined with the other methods of closing a window."
};

resource rText (TXT_00001007, $0000) {
       "To move an inactive window without making it active, "
       "hold down the "
	   "\$11"
	   " key when you drag the window by its title bar."
};

// resource rText (TXT_00001008, $0000) {
//       "When copying or moving files from one location to another, the "
//       "destination disk or folder may already contain items with the sam"
//       "e names as those being copied.  Unless you request otherwise, the "
//	   "Finder asks you what to do about each duplicate individually."
//       "\$0D"
//       "\$0D"
//	   "To specify in advance how to handle all the duplicates, " 
//       "hold down the Option key while dragging the source file icons"
//       " onto the destination icon or onto the destination window."
// };

resource rText (TXT_00001008, $0000) {
		"When you drag files and folders to another location on the same disk, "
		"the Finder normally moves the items rather than making new copies."
		"\$0D"
		"\$0D"
		"To have the Finder make copies, hold down the Option key while dragging "
		"the icons."
		"\$0D"
		"\$0D"
		"When you drag certain kinds of files to the system folder icon, the "
		"Finder offers to automatically put them in the proper folders within "
		"the System folder."
};

resource rText (TXT_00001009, $0000) {
		"Option-Clean Up does ÒClean Up by NameÓ.  "
		"Clean Up by Name on a window viewed by icon places the icons onto the large "
		"icon grid  based on the width of the window.  Clean Up by Name on a window "
		"viewed by small icon places the icons into columns based on the height of "
		"the window.  Use this, itÕs cool."
        "\$0D"
        "\$0D"
		"You can click on Name, Size, Kind, or Last modified to change a windowÕs view."
        "\$0D"
        "\$0D"
	   	"Holding down the Control key while opening a folder makes the Finder "
	   	"ignore any saved Finder information for that folder, opening the folder "
	   	"quickly to a regular window position."
        "\$0D"
        "\$0D"
		"Folders which arenÕt on shared disks and which donÕt contain a Finder "
		"information file inherit the view of their parent window."
		"\$0D"
		"\$0D"
		"For more tips on the Finder and other parts of the system, open the "
		"Shortcuts file on SystemTools2."
};

\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Finder/icons.aii b/IIGS.601.SRC/A.U.G/Finder/icons.aii
new file mode 100644
index 0000000..6c428e9
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Finder/icons.aii
@@ -0,0 +1 @@
+;======================================
		TITLE	'Apple IIGS Finder      ICONS.aii'
;
; Copyright Apple Computer, Inc. 1986-1993
; All rights reserved.
;
; by Dan Oliver
;
;======================================

		STRING	ASIS
		BLANKS	OFF
		PRINT	OFF
		PRINT	NOGEN
		PRINT	NOSYM
		PRINT	NOPAGE
		PAGESIZE $FFFF,126
		
		INCLUDE	'e16.finder'
		INCLUDE	'E16.event'
		INCLUDE 'All.macros'
		INCLUDE	'special.macros'
		INCLUDE	'Finder.equ'
		INCLUDE	'Resource.equ'
		INCLUDE	'DP.equ'
		INCLUDE	'Data.equ'
		INCLUDE	'Strings.equ'
		INCLUDE	'GetInfo.equ'

		PRINT	ON

lockWidth	equ	16
lockHeight	equ	8
;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

		import DisposeHandleGlue
		
		IMPORT	DateToString
		IMPORT	DateFormat
		IMPORT	SizeToString
		
		IMPORT	ScreenLocInfo
		IMPORT	ScreenHandle
		IMPORT	ScreenRect
		IMPORT	ScreenImage
		IMPORT	HandleToPointer
		IMPORT	UnlockHandle
		
		IMPORT	dinfo_list		;in drives.aii
		IMPORT	dinfo_devnum
		IMPORT  BigError1
		IMPORT	PToWString
		IMPORT	WToPString
		IMPORT	INFO_TYPE
		IMPORT	INFO_AUX
		IMPORT	read_len
		IMPORT	read_size
		IMPORT	read_buff
		IMPORT	newDataSize2
		IMPORT	open_num
		IMPORT	write_num
		IMPORT	write_buff
		IMPORT	write_len
		IMPORT	WRITE_LIST
		IMPORT	file_type
		
		IMPORT	WalkGoto
		IMPORT	officon
		IMPORT	toCall			;in Util.aii
		IMPORT	FileEntry
		IMPORT	MiscEntry
		IMPORT	NewDialog
		IMPORT	addDataName
		IMPORT	allocate
		IMPORT	allocate2
		IMPORT	arrowCursor
		IMPORT	bigError1
		IMPORT	buildPath
		IMPORT	buildPath3
		IMPORT	buildRectList
		IMPORT	buildRects
		IMPORT	checkRectHit
		IMPORT	ckDataWrite
		IMPORT	ckMemory
		IMPORT	ckVolume		
		IMPORT	clearDisk
		IMPORT	SaveOffFlag
		IMPORT	clonePath
		IMPORT	close_file
		IMPORT	cur2windT
		IMPORT	cutNfree
		IMPORT	dayOfWeek
		IMPORT	derefHand
		IMPORT	deselectall
		IMPORT	doGetFileInfo
		IMPORT	doRead
		IMPORT	doSetMark
		IMPORT	doSetPrefix
		IMPORT	doWrite
		IMPORT	EmptyTrashMenu
		IMPORT	endDraw	
		IMPORT	findLastName
		IMPORT	findSelect
		IMPORT	getExtName
		IMPORT	getFrontWind
		IMPORT	getHeadIcon
		IMPORT	getIconPtr
		IMPORT	getIconRect
		IMPORT	getNextWind
		IMPORT	getRootName
		IMPORT	getWindID
		IMPORT	getWindID2
		IMPORT	getWindPath
		IMPORT	getWoffset
		IMPORT	geticNamePtr
		IMPORT	geticNamePtr2
		IMPORT	getwRefCon
		IMPORT	getwRefCon2
		IMPORT	hitIconName
		IMPORT	ifDesk
		IMPORT	killkids2
		IMPORT	killkids3
		IMPORT	lenError
		IMPORT	lockic
		IMPORT	makeField
		IMPORT	makeIcRoot
		IMPORT	markClosed
		IMPORT	markOpen
		IMPORT	matchIcName
		IMPORT	newDataSize
		IMPORT	noRename
		IMPORT	offIcon2
		IMPORT	onIcon
		IMPORT	open_file
		IMPORT	path2ticon
		IMPORT	ProDOSErr
		IMPORT	pullFields
		IMPORT	pushicName
		IMPORT	pushirect1
		IMPORT	pushirect2
		IMPORT	pushrect
		IMPORT	pushwork
		IMPORT	pushyrat
		IMPORT	pushzpage
		IMPORT	redrawText
		IMPORT	removeClone
		IMPORT	resetCTime
		IMPORT	restoreTemp
		IMPORT	saveTemp
		IMPORT	selectWind
		IMPORT	setInfo
		IMPORT	setInfo2
		IMPORT	setOrgnMask	
		IMPORT	setSmallRect
		IMPORT	setic
		IMPORT	seticBlk
		IMPORT	settemp
		IMPORT	sort
		IMPORT	startDraw
		IMPORT	startDraw2
		IMPORT	startHash
		IMPORT	toDeskPort
		IMPORT	trashDisk
		IMPORT	unlockBlk
		IMPORT	unlockic
		IMPORT	updateKs
		IMPORT	walkBack
		IMPORT	walkOfLife
		IMPORT	walkOfLife2
		IMPORT	walkOfLife3
		IMPORT	walkWindow
		IMPORT	walkback2
		IMPORT	watchCursor
		IMPORT	wind2top
		IMPORT	windRefCon
		IMPORT	windSpot
		IMPORT	dontDraw		; 4/13/90 fix (rdl)
		IMPORT	diffVolumes		; 4/13/90 fix (rdl)
		IMPORT	UpdateWindow		; 4/13/90 fix (rdl)

;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

		ENTRY	ckIfWind
		ENTRY	redrawList
		ENTRY	freeRectRgn
		ENTRY	freeTempRgn
		ENTRY	drawDeskIcon
		ENTRY	wind_guts
		ENTRY	normalColor
		ENTRY	saveAcross
		ENTRY	backAcross
		ENTRY	blinkOne
		ENTRY	drawIcon2
		ENTRY	ZoomRect2
		ENTRY	offsetRgn
		ENTRY	HeadIcon
		ENTRY	setIconHead
		ENTRY	desIsTrash
		ENTRY	cutOutIcon
		ENTRY	addFunctionKey
		ENTRY	cutIcon
		ENTRY	hitTest
		ENTRY	findDisk
		ENTRY	matchWindName
		ENTRY	openFolder2
		ENTRY	ckIfInTrash
		ENTRY	openAll
		ENTRY	padName
		ENTRY	growZoom2
		ENTRY	getBigRect
		ENTRY	getBigRect2
		ENTRY	getSmallRect
		ENTRY	doClose2
		ENTRY	killINfoWind
		ENTRY	freeInfoBlk
		ENTRY	ckExName
		ENTRY	findOwnerIc
		ENTRY	openIcon
		ENTRY	growZoom
		ENTRY	doClose
		ENTRY	addIconObj
		ENTRY	DrawDesk	
		ENTRY	info_guts
		ENTRY	blinkIcon
		ENTRY	drawIcon
		ENTRY	ZoomRect
		ENTRY	dragRects
;		ENTRY	clip_guts	
		ENTRY	DrawDevLock
		ENTRY	windClick


;======================================
;	   Add an ICONOBJ to
;	   the icon list.
;======================================
;
;   IN:	   wind	= window icon will belong to.
;	   windblk = pointer to	window's info block.
;	   a and x = pointer to	object's name.
;	   y = 0 to attach at head of list, nonzero for tail
;	   filetype = object's type.
;	   auxtype = Aux type to match.
;	   yrat	= icon's y position.
;	   xrat	= icon's x position.
;	   ExtCopy = TRUE for extended ICONOBJ.
;	   devNumber = icon's device number.
;	   AccessPriv = objects network access privileges Ñ added 12/6/88 DJB
;	   Oh, and tIconObj is used for some other stuff
;
;  OUT:	   icHand = handle of unlocked ICONOBJ.
;	   ic =	pointer	to ICONOBJ.
;	   carry set if allocation failed
;
;======================================
		EXPORT	addIconObj
addIconObj	PROCNAME
		
		IMPORT	matchFileToIcon
		IMPORT 	HalfRoundUp
		IMPORT	AtCatalogEntry
		IMPORT	OOMDump
		IMPORT	doAlertWindow
		IMPORT	FiFiFiSearch

; --- Move the name into the ICONOBJ template ------------------------

		sta	<ptr4
		stx	<ptr4+2
		sty	attachWhere		;attach to head or tail
		
		lda	[<ptr4]		;get length
		and	#$00FF
		tay
		and	#$0001			;is it even ?
		beq	lop6
		dey				;align to word
lop6		lda	[<ptr4],y
		sta	ticonobj+icName,y
		dey
		dey
		bpl	lop6

		lda	[<windblk]		;Get handle of current head of list.
		sta	<temp
		ldy	#windIcons+2
		lda	[<windblk],y
		sta	<temp+2

; --- Allocate an ICONOBJ ----------------------------------------------

		lda	#ICSIZE			;Number of bytes to allocate.
		ldx	ExtCopy			;Normal or extended ICONOBJ?
		beq	ok1
		
		lda	#icOwner
		clc
		adc	ticonObj+icOwner	;Size needed for extended ICONOBJ.
		inc	a
		inc	a

ok1		jsr	allocate		;Allocate an ICONOBJ record.
		bcc     UseIT
		
		jsl	OOMDump			;dump our stuff to try to ensure that we can display this
		bcc	@noWarning		;if we couldn't delete either of our memory blocks, whoa we are
						;in serious shit
		
		lda	#rasMemErr		;message, or die trying
		jsl	doAlertWindow
@noWarning	sec
		rts		
		
UseIT		sta	<icHand			;Keep the handle of the new ICONOBJ.
		stx	<icHand+2		;Store the ICONOBJ at the head of

; --- Initialize the ICONOBJ record --------------------------------------
		
		lda	<devNumber
		sta	ticonobj+icDevNum

		lda	<wind
		sta	ticonobj+icMom		;Window this icon belongs to
		lda	<wind+2
		sta	ticonobj+icMom+2

		lda	attachWhere
		beq	@atHead

		stz	ticonobj+icNext		;and say none follow
		stz	ticonobj+icNext+2

		lda	AtCatalogEntry
		bne	@notFirst	

		lda	<icHand			;say this is first
		sta	lasticonHandle
		sta	[<windBlk]
		ldy	#windIcons+2
		lda	<icHand+2
		sta	lastIconHandle+2
		sta	[<windBlk],y
		
		stz	ticonobj+icLast		;none precede this icon
		stz	ticonobj+icLast+2
		bra	skip1

@notFirst	lda	lastIconHandle
		sta	<temp
		sta	ticonobj+icLast		;say that the previous icon was the
		lda	lastIconHandle+2	;last icon
		sta	<temp+2
		sta	ticonobj+icLast+2
		jsr	settemp
		
		lda	<icHand			;now say that WE ARE the last icon
		sta	lastIconHandle		;which was allocated
		sta	[<temp]
		ldy	#icNext+2
		lda	<icHand+2
		sta	lastIconHandle+2
		sta	[<temp],y
		bra	skip1

;
; It's an old style attach, so we want to attach the icon to the head of the icon
; list for this window
;
@atHead		lda	<icHand			
		sta	[<windblk]		
		lda	<icHand+2
		ldy	#windIcons+2
		sta	[<windblk],y

		stz	ticonobj+icLast		;none precede this icon we are adding
		stz	ticonobj+icLast+2
		
		lda	<temp			;Next icon: What was the head of the list,
		sta	ticonobj+icNext		;is now the second one.
		lda	<temp+1
		sta	ticonobj+icNext+1
		beq	skip1			;Is there a second icon?

		jsr	settemp			;Yes, so dereference temp.
		ldy	#icLast			;Prev icon: Set the second ICONOBJ record's
		lda	<icHand			;last field to point to the new
		sta	[<temp],y		;head of the list.
		iny
		lda	<icHand+1
		sta	[<temp],y

skip1		lda	<filetype
		sta	ticonobj+icFType
		cmp	#TypeFolder		;added 12/06/88 DJB
		bne	skip2

; JAM 5/21/89 - make sure folder icon tab shows user as owner of new guy
; Check if we are going to the network, in which case we will need
; to modify AccessPriv and generate the folder auxtype.
		jsr	SeeIfDestWIsNetwork	; #ICNETWORK>>16 of dest is in Acc
		beq	Skip2			; JAM 5/22/89 - if not network, don't monkey auxtype
		tsb	ticonobj+icFlag+2	; @AuxSetup: we are going to the net
		tsb	AccessPriv		; so adjust privs, etc.
; end JAM 5/21/89

		jsr	MakeFolderAux		;fake an auxtype for network folders
		
skip2		lda	auxtype			;added 05/29/88 DJB
		sta	ticonobj+icFileInfo

		lda	AccessPriv		;added 12/06/88 DJB
		and	#ICNETACCESS>>16
		tsb	ticonobj+icFlag+2

; JAM 5/21/89 (Fixing BRC #46174)  -- this may now be redundant with above
		lda	ticonobj+icFType	; don't set network for disk icons
		cmp	#TypeLastOne		; first number in disk range
		bcs	@DoneAdjusting		; bra if a device or trash
		
		jsr	SeeIfDestWIsNetwork	; #ICNETWORK>>16 of dest is in Acc
		tsb	ticonobj+icFlag+2
@DoneAdjusting
; end JAM 5/21/89 (BRC #46174)

		ldy	<zero
		ldx	auxtype
		lda	<filetype
		jsl	FiFiFiSearch
		sta	ticonobj+icKind
		stx	ticonobj+icKind+2

		lda	<yrat
		sta	ticonobj+icy
		lda	<xrat
		sta	ticonobj+icx

		tsc
		sec
		sbc	#20			;put 5 longs on the stack
		tcs
		pea	$8000			;don't care about voting, match all
		pea	1			;match the first one
		pei	<filetype
		pei <zero
		lda	auxtype
		pha
		pushlong #ticonobj+icName
		pushlong #ticonobj+icCDate
		pushlong #ticonobj+icMDate
		lda	ticonobj+icLocalAccess
		pha
		lda	ticonobj+icForked
		pha
		pushlong #ticonobj+icOptionList
		pushlong ticonobj+icFBytes
		jsl	matchFileToIcon
		pulllong ticonobj+icOneDocOffset
		pulllong ticonobj+icRBundle
		pulllong ticonobj+icSmallIcon
		pulllong ticonobj+icIcon
		pla
		pla				;rFinderPath goes into hyperspace...

;
; find out if the NumResults field of this particular OneDoc includes a kind string
;
		pushZLong <handle
		pushZLong <ptr

		lda	ticonobj+icRBundle+1	;if there's no bundle, accept whatever FiFiFi gave us
		beq	@noKind
		
		lda	ticonobj+icRBundle
		sta	<handle
		lda	ticonobj+icRBundle+2
		sta	<handle+2
		
		lda	[<handle]
		clc
		adc	ticonobj+icOneDocOffset
		sta	<ptr
		ldy	#2
		lda	[<handle],y
		adc	ticonobj+icOneDocOffset+2
		sta	<ptr+2
		
		ldy	#4			;check numresults
		lda	[<ptr],y
		cmp	#5
		blt	@noKind
		
		stz	ticonobj+icKind
		stz	ticonobj+icKind+2
		
@noKind		pulllong <ptr
		pulllong <handle
		
;
; --- Set icTitleLen -----------------------------------------------------
;
		pha				Space for result.
		pushZLong <ptr4
		_StringWidth
		pla
		jsl	HalfRoundUp		; JAM
		sta	ticonobj+icTitleLen	remember half the title's width.

		jsr	setic			ic = (icHand)

		ldy	#ICSIZE-2		Move the ICONOBJ template into
;	  				        the allocated ICONOBJ record.

		lda	ExtCopy			Extended ICONOBJ?
		beq	@loop

		lda	#ICEXTENDED
		tsb	ticonobj+icFlag		;Mark as extended

		lda	ticonobj+icOwner	Compute	index to end of	extended ICONOBJ.
		clc				
		adc	#icOwner
		tay

@loop		lda	ticonobj,y
		sta	[<ic],y
		dey
		dey
		bpl	@loop
		
		lda	ticonobj		;always fix the bottom word (always)
		sta	[<ic]

;
; --- Link icon's open window back to new icon -----------------------------
;
reLink
		ldy	#icWind+1		Does icon have an open window?
		lda	[<ic],y
		beq	exit

		pei	<wind+2			Saves.
		pei	<wind
		pei	<windBlk+2
		pei	<windBlk

		iny				Get open window's info block.
		lda	[<ic],y
		tax
		dey
		dey
		lda	[<ic],y
		jsr	getwRefCon2

		ldy	#windIc			Tell window about the new icon handle
		lda	<icHand			the window opened from.
		sta	[<windBlk],y
		iny
		iny
		lda	<icHand+2
		sta	[<windBlk],y

		pla
		sta	<windBlk
		pla
		sta	<windBlk+2
		pla
		sta	<wind
		pla
		sta	<wind+2

exit		clc
		rts

;
; locals
;
attachWhere	dc.w	0
		EXPORT	lastIconHandle
lastIconHandle	dc.L	0
		EXPORT	AtCatalogEntry
AtCatalogEntry	dc.w	0

; *******************************
; JAM 5/20/89 (Fixing BRC #46174)
; This routine assumes that <windblk is valid, and returns
; icFlag.ICNETWORK>>16 (i.e., determines whether object is on net) for the
; icon that owns the window of <windblk
		EXPORT SeeIfDestWIsNetwork		; JAM 06/16/89 - for debugging purposes
SeeIfDestWIsNetwork					; ... make this label public for maps
		IMPORT NetworkBit
;
; Mensch 5/23/89
; First test to see if the pointer is valid before we use it.
		ldy 	#windic+1
		lda 	[<windblk],y
		bne 	@1

; JAM 5/25/89 (Attempting to really fix #46174 without causing other problems.)
; The leap of faith.  If windic isn't valid (almost guaranteed when I am
; called by OpenFolder) then gamble that NetworkBit is.  We are hoping that
; windic will be valid for the volume-mounting situations in which AddIconObj
; is called, and NetworkBit will be valid otherwise.

		lda 	NetworkBit
		and	#ICNETWORK>>16	; minimize damage if NetworkBit is ever invalid
		rts
@1
; End of Fix
		pha			; temp to hold result
		phd			; we will put DP on stack, remember old one
		ldy	#windic+2
		lda	[<windblk],y
		tax
		dey
		dey
		lda	[<windblk],y
		phx			; handle of owner icon (high)
		pha			; handle of owner icon (low)
		phx			; room for pointer of owner icon (high)
		pha			; room for pointer of owner icon (low)
		tsc
		tcd			; now DP is looking onto the stack

		ldy	#2		; dereference icon handle
		lda	[<5],y
		sta	<3
		lda	[<5]
		sta	<1
		ldy	#icFlag+2
		lda	[<1],y
		and	#ICNETWORK>>16
		sta	$000B,S		; put result in the result space

		pla
		pla
		pla
		pla
		pld
		pla			; get back return value
		rts
; end JAM 5/20/89 (BRC #46174)		

;===============================================
; Make an AuxType for network folders
;	$08 = Owner Folder
;	$04 = Drop Box
;
; IN:	AccessPriv
; OUT:	AuxType
;===============================================
MakeFolderAux
		stz	AuxType			; default (normal folder)
				
		lda	AccessPriv
		and	#$0007			; check user access bits
		cmp	#$0004			; is it a drop box ?
		bne	next			; no
		lda	#$04			; mark as a "drop box" folder
		sta	AuxType
		bra	done
		
next		lda	AccessPriv
		and	#$0008
		beq	done			; bit 4 set if owner
		lda	#$08			; mark as a "owner" folder
		sta	AuxType
done		rts
		ENDP
		
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =
;	   Draw	icons in window	or desktop.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =
;
;   IN:	   rectRgn = region to redraw.
;	   curWind = window to redraw in.
;

redrawList	PROCNAME	EXPORT

;
; --- Save walkOfLife variables	----------------------------------------
;
		lda	saveHand+2
		pha
		lda	saveHand
		pha
		pei	<curWind+2		Save state.
		pei	<curWind
		pei	<icHand+2
		pei	<icHand
		pei	<direction
		lda	tocall+1
		pha

		jsr	startDraw
		
;
; --- Redraw icon on desktop ---------------------------------
;
		jsr	ifDesk			Desktop	or window icon list?
		bne	enter1

		jsr	drawDeskIcon
		bra	skip1

;
; --- Redraw icon in window ----------------------------------
;
enter1		pei	<rectRgn+2
		pei	<rectRgn
		_EraseRgn

		pei	<rectRgn+2		Area to	be redrawn.
		pei	<rectRgn
		_InvalRgn			InvalRgn changes the region to global.

; --- Restore walkOfLife variables ------------------------------------------

skip1		jsr	endDraw
		pla				Restore	state.
		sta	tocall+1
		pla
		sta	<direction
		pla
		sta	<icHand
		pla
		sta	<icHand+2
		pla
		sta	<curWind
		pla
		sta	<curWind+2
		pla
		sta	saveHand
		pla
		sta	saveHand+2
		jsr	setic


		EXPORT	freeRectRgn
freeRectRgn	lda	<rectRgn+1		;Has it been freed already?
		beq	@done
		pei	<rectRgn+2		;Free the RECT region.
		pei	<rectRgn
		_DisposeRgn
		stz	<rectRgn+1		;Mark as free.
@done

		EXPORT	freeTempRgn
freeTempRgn	lda	<tempRgn+1		;Has it been freed already?
		beq	@done
		pei	<tempRgn+2		;Free the temp region.
		pei	<tempRgn
		_DisposeRgn
		stz	<tempRgn+1		;Mark as free.
@done		rts


; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	=
;	   Draw	icons on the desktop. 
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	=
;
;   IN:	   rectRgn = region to redraw.
; 
		EXPORT	drawDeskIcon
drawDeskIcon	pei	<rectRgn+2		Clobbered region,
		pei	<rectRgn
		lda	port+visRgn+2		but only what's visible on the desktop,
		pha
		lda	port+visRgn
		pha
		lda	port+ClipRgn+2		equals the region to clip to.
		pha
		lda	port+ClipRgn
		pha
		_SectRgn

		jsl	DrawDesk		Redraw the desktop area.

		pea	screen2>>16		Set clip to full screen.
		pea	screen2
		_ClipRect
		rts

		ENDP


;///////////////////////////////
;	   Draw	desktop.
;///////////////////////////////
;
;  This	routine	can be called from outside the Finder at the most
;  inopportune times.  Therefore, I try	to save	global values.
;
;///////////////////////////////
		EXPORT	DrawDesk
DrawDesk	PROC

		jsr	saveAcross		Save globals across call.

;--- Start DJB fix of BRC# 49643----------------
		lda	<deskport+1
		bne	@Valid
		brl	Exit100			; does BackAcross and returns
@valid
;--- end fix -----------------------------------

		lda	port+visRgn+2		Save handle to my vis region.
		pha
		lda	port+visRgn
		pha

		pha				Get Window Mgr's port and clip handle.
		pha
		_GetPort
		lda	1,s
		sta	<wind
		lda	3,s
		sta	<wind+2
		ldy	#ClipRgn		Replace	my vis handle with clobbered
		lda	[<wind],y		area handle.
		sta	port+visRgn
		iny
		iny
		lda	[<wind],y
		sta	port+visRgn+2

		jsr	toDeskPort		Switch to desktop port.

;--- Added 12/20/88 DJB ------------------------

		lda	zoomRefresh
		cmp	#2
		beq	@doGuts

		lda	ScreenHandle		; is there a desktop picture?
		ora	ScreenHandle+2
		beq	@noPic			; no
		
		pha
		pha
		PushLong ScreenHandle
		jsl	HandleToPointer
		PullLong ScreenImage		; get pointer to desktop picture
				
		PushLong #ScreenLocInfo		; LocInfo record
		PushLong #ScreenRect		; enclosing rect
		pei <zero			; X coordinate
		pei <zero			; Y coordinate
		PushWord #$0000			; penmode
		_PPToPort			; draw the picture
		
		PushLong ScreenHandle
		jsl	UnlockHandle		; unlock it

		bra	@doGuts
;--- End Add -----------------------------------

@noPic
;		pea	screen>>16
;		pea	screen
*** 10-Mar-92 DAL -- use screen2 (full screen, so HideMenuBar works right)
		pea screen2>>16
		pea screen2
*** end 10-Mar-92
		_EraseRect

@doGuts		lda	zoomRefresh
		cmp	#1
		beq	@noGuts	
		
		lda	<deskport
		ldx	<deskport+2
		jsr	drawGuts		Draw icons and rename field.

@noGuts		stz	zoomRefresh

		_SetPort			Restore	original port.

		pla				Restore	handle to my clip region.
		sta	port+visRgn
		pla
		sta	port+visRgn+2
		bra	exit100

;
; 2 = redraw only the icons
; 1 = redraw only the background pattern
; 0 = redraw both the back pattern and the icons
;
		EXPORT	zoomRefresh
zoomRefresh	dc.w	0

;
;///////////////////////////////////////////////
;	   Draw	document window	content.
;///////////////////////////////////////////////
;
;  This	routine	can be called from outside the Finder at the most
;  inopportune times.  Therefore, I try	to save	global values.
;
		EXPORT	wind_guts
wind_guts	jsr	saveAcross		Save state.

		pha				Find out which window this is.
		pha
		_GetPort
		pla
		plx

		jsr	drawGuts		Draw icons and rename field.

exit100		jsr	backAcross		Restore	original state.
		rtl


; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	=
;	   Set text color to black text
;	   on white background.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	=

		EXPORT	normalColor
normalColor	pea	15			;Background color to white.
		_SetBackColor
		pea 0				;Text color to black.
		_SetForeColor
		rts


; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	=
;	   Draw	icons and rename field.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	=

drawGuts	jsr	getwRefCon2		;windBlk = pointer to grafPort.
		sta	<icHand			;Get handle of first icon in list.
		stx	<icHand+2

		lda	#drawIcon2
		jsr	walkback2

		lda	<LErename+1		;Is there a line edit field?
		beq	exit200

;;; Opt 19-Feb-92 DAL
;		lda	<wind			Is this	the window that	has the	rename?
;		cmp	LEwind
;		bne	exit200
		lda	<wind+1			;Is this the window that has the rename?
		cmp	LEwind+1
		bne	exit200

		jsr	normalColor

		pei	<LErename+2
		pei	<LErename
		_LEUpdate
exit200		rts


; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	=
;	   Save/Restore	global values.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	=

		EXPORT	saveAcross
saveAcross	
		IMPORT	finderDPage
		
		plx				Get return address.

		phd				Save caller's direct page.
		phb				Save caller's data bank.

		phk				Switch to my data bank.
		plb

		lda	finderDpage			Switch to my direct page.
		tcd

		pei	<deref+2
		pei	<deref
		pei	<icHand+2
		pei	<icHand
		pei	<ic+2
		pei	<ic
		pei	<wind+2
		pei	<wind
		pei	<windBlk+2
		pei	<windBlk
		pei	<temp+2
		pei	<temp

		phx				;Return address back.
		rts


		EXPORT	backAcross
backAcross	plx				;Get return address.

		pla
		sta	<temp
		pla
		sta	<temp+2
		pla
		sta	<windBlk
		pla
		sta	<windBlk+2
		pla
		sta	<wind
		pla
		sta	<wind+2
		pla
		sta	<ic
		pla
		sta	<ic+2
		pla
		sta	<icHand
		pla
		sta	<icHand+2
		pla
		sta	<deref
		pla
		sta	<deref+2

		plb				;Return to caller's data bank.
		pld				;Return to caller's data bank.

		phx				;Return address back.
		rts

		ENDP


;////////////////////////////////////////////////
;	   Draw	information bar	guts.
;////////////////////////////////////////////////

info_guts	PROC EXPORT

		IMPORT	IBName
		IMPORT	IBSize
		IMPORT	IBKind
		IMPORT	IBDate
		IMPORT	DrawAccessIcons
		IMPORT	strUsed
		IMPORT	strAvailable
		IMPORT	pStringCat
		IMPORT	freeKString
		IMPORT	freeMBString
		IMPORT	usedKString
		IMPORT	usedMBString
		IMPORT	fstNameBuffer
		IMPORT	GetFSTBlockSize

theWindow	equ	7
infoRefCon	equ	theWindow+4
infoRect	equ	infoRefCon+4

		phb
		phk
		plb
		
		phd
		tsc
		tcd

		ldy	#windIc+1
		lda	[<infoRefCon],y		; get handle of opening icon
		bne	@haveIcons

;
; Info bar is being drawn for the first time, before we're really done opening it.
;
; If we will have a dotted dividing line, draw it now to be pretty.
;
		ldy	#windView
		lda	[<infoRefCon],y
		cmp	#viewByName
		blt	@done
		
		lda	prefer		
		and	#PREF_SHOWDISK
		beq	@done
		
		jsr	drawDivider		;draw the Divider and which view they're looking at
@done		brl	exit			;data not ready yet

;
; Draw Network Access Privilege Icons
;		
@haveIcons	jsr	NormalColor		; Black text, on a white background.

		lda	#6
		sta	startX+6		; default text starting position
		lda	#16
		sta	startX+14		; default text starting position
		
		lda	#dxViewName
		sta	dx
		lda	#8
		sta	dy

		ldy	#windView
		lda	[<infoRefCon],y
		sta	boldTitle

		cmp	#viewByName
		bge	@checkDiskInfo

		jsr	drawNetIcons
		jsr	iconView
		bra	exit

@checkDiskInfo	lda	prefer
		and	#PREF_SHOWDISK
		beq	@noShowDisk

		jsr	drawDivider

		jsr	iconView

		lda	#20			
		sta	dy

		jsr	drawNetIcons
		jsr	listView
		bra	exit

@noShowDisk	jsr	drawNetIcons
		jsr	listView

;
; exit
;
exit		
		pld
		plb

		lda 2,s
		sta 14,s
		lda 1,s
		sta 13,s
		tsc
		clc
		adc #12
		tcs
		rtl
		
; drawDivider -- if it's view by name and the PREF_SHOWDISK is set, then
;		 draw the dividing line
;.....................................................................

drawDivider	pushlong #oldMask
		_GetPenMask
		pushlong #dotMask
		_SetPenMask
		
		lda	#4
		ldy	#x1			Set position of	text.
		clc
		adc	[<infoRect],y
		pha
		lda	[<infoRect]
		clc
		adc	#10
		pha
		_MoveTo

		ldy	#x2
		lda	[<infoRect],y
		sec
		sbc	#8
		pha
		lda	[<infoRect]
		clc
		adc	#10
		pha
		_LineTo
		
		pushlong #oldMask
		_SetPenMask
		rts

;
; draw the network access icons if applicable
;
drawNetIcons	ldy	#windAccess		; Is icon from a network?
		lda	[<infoRefCon],y
		and	#ICNETWORK>>16
		beq	@done			; no
		lda	[<infoRefCon],y
		and	#ICNETACCESS>>16	; get user's access bits
		pha
		
		lda	dy
		clc
		adc	#6
		tay				; starting Y position
		ldx	#4			; starting X position
		pla
		jsr	DrawAccessIcons		; draw access privilege icons
		stx	startX+6		; new text starting position
		cpx	#16			; 'name' must be at least 16 pixels over
		bcc	@done
		stx	startX+14
		stx	dx
@done		rts

; List view info bar
;.....................................................................

listView	lda	boldTitle
		cmp	#viewByName
		bne	@notBoldName
		
		lda	#1
		jsr	setFace

@notBoldName	jsr	setPosition

		pushlong #IBName
		_DrawString

		lda	boldTitle
		cmp	#viewByName
		bne	@notName
		lda	#0
		jsr	SetFace
@notName

		lda	#dxViewSize		;set the x offset for the size field
		sta	DX			;(or the next field to be displayed)

;
; see if we should be displaying the size field at all
;
showSize
		lda	boldTitle
		cmp	#viewBySize
		bne	@notBoldSize
		
		lda	#1
		jsr	SetFace
		bra	@showSize
		
@notBoldSize	lda	prefer		
		and	#PREF_SHOWSIZE
		bne	@showSize
		bra	showKind

@showSize	jsr	setPosition

		pushlong #IBSize
		_DrawString
		
		lda	boldTitle
		cmp	#viewBySize
		bne	@notSize
		lda	#0
		jsr	SetFace
@notSize

		lda	#dxViewKind
		sta	dx
	
;
; see if we should be displaying the kind field at all
;
showKind
		lda	boldTitle
		cmp	#viewByKind
		bne	@notBoldKind
		
		lda	#1
		jsr	SetFace
		bra	@showKind
		
@notBoldKind	lda	prefer		
		and	#PREF_SHOWKIND
		bne	@showKind
		bra	showDate

@showKind	jsr	setPosition

		pushlong #IBKind
		_DrawString
		
		lda	boldTitle
		cmp	#viewByKind
		bne	@notKind
		lda	#4
		jsr	SetFace
@notKind

		lda	dx		
		clc
		adc	#(dxViewDate-dxViewKind)
		sta	dx
		
;
; see if we should be displaying the date field at all
;
showDate
		lda	boldTitle
		cmp	#viewByDate
		bne	@notBoldDate
		
		lda	#1
		jsr	SetFace
		bra	@showDate
		
@notBoldDate	lda	prefer		
		and	#PREF_SHOWDATE
		bne	@showDate
		bra	@noDate

@showDate	jsr	setPosition

		pushlong #IBDate
		_DrawString
		
		lda	boldTitle
		cmp	#viewByDate
		bne	@noDate
		lda	#0
		jsr	SetFace
@noDate		rts

;
; set the position of the text
;
setPosition	lda	dx
		ldy	#x1			Set position of	text.
		clc
		adc	[<infoRect],y
		pha
		lda	[<infoRect]
		clc
		adc	dy
		pha
		_MoveTo
		rts

; viewing by icon... first, find out the name of our file system for this window
;.....................................................................

iconView

		ldy	#windFST
		lda	[<infoRefCon],y
		asl	a
		tax
		
		lda	fstNames,x
		sta	strings+6
		
;
; convert number of items in window
;
		ldy	#windItems
		lda	[<infoRefCon],y
		pha				;Number of items in the window.
		PushLong #itemsStrg+1		;Where to store string.		
		pea	4			;Number of bytes in output string.
		pea	0			;Unsigned.
		_Int2Dec

;--- added the following hack to make Brenda happy...   DJB		
		sep	#$20
		LONGA	OFF
		lda	>itemsStrg
		tax				;length (ie, offset)
		lda	#'s'
		sta	>itemsStrg,x		;default is plural ('items')
		ldy	#windItems
		lda	[<infoRefCon],y
		cmp	#1
		bne	cont1
		lda	#' '
		sta	>itemsStrg,x		;make it singular ('item')
cont1		rep	#$20
		LONGA	ON

;
; GetBlocksIn1MB -- get the number of blocks in 1 megabyte
;
GetBlocksIn1MB	lda	#1048576/512		;assume 512 byte blocks
		sta	BlocksIn1MB
		
		ldy	#windFST
		lda	[<infoRefCon],y
		jsl	GetFSTBlockSize		
		cmp	#512
		beq	@notOddSize

		pha
		pha
		pha
		pha
		pushlong #1048576		;numerator = 1MB
		pea 0
		pha				;denominator = block size (will never be zero)
		_LongDivide
		pla
		sta	BlocksIn1MB
		plx
		plx
		plx
@notOddSize	

;
; Convert number of bytes used on disk
;
calcUsed	ldy	#windUsed+2
		lda	[<infoRefCon],y
		bne	@doUsedMegs
		tax
		dey
		dey
		ora	[<infoRefCon],y		Set notDiskFlag.  The trash window will
		sta	notDiskFlag		have 0 bytes used and should not print.
		lda	[<infoRefCon],y
		cmp	BlocksIn1MB
		bge	@doUsedMegs

		pushLong #usedKString
		phx
		pha
		pea	2			;type = K
		ldy	#windFST
		lda	[<infoRefCon],y
		jsl	GetFSTBlockSize
		pha
		jsl	sizeToString

		pushlong #strUsed		;src
		pushlong #usedKString		;dest
		jsl	PStringCat		
		
		lda	#usedKString
		sta	strings+2
		bra	calcFree

@doUsedMegs	pushLong #usedMBString
		ldy	#windUsed+2
		lda	[<infoRefCon],y
		pha				;Number of bytes used.
		dey
		dey
		ora	[<infoRefCon],y		;Set notDiskFlag.  The trash window will
		sta	notDiskFlag		;have 0 bytes used and should not print.
		lda	[<infoRefCon],y
		pha				;Far enough if zero bytes used.
		pea	8			;type = MB
		ldy	#windFST
		lda	[<infoRefCon],y
		jsl	GetFSTBlockSize
		pha
		jsl	sizeToString

		pushlong #strUsed		;src
		pushlong #usedMBString		;dest
		jsl	PStringCat		

		lda	#usedMBString
		sta	strings+2

;
; Convert number of bytes free on disk
;
calcFree
		ldy	#windFree+2
		lda	[<infoRefCon],y
		bne	@doFreeMegs
		tax
		dey
		dey
		lda	[<infoRefCon],y
		cmp	BlocksIn1MB
		bge	@doFreeMegs
		
		pushLong #freeKString
		phx
		pha
		pea	2			;type = K
		ldy	#windFST
		lda	[<infoRefCon],y
		jsl	GetFSTBlockSize
		pha
		jsl	sizeToString

		pushlong #strAvailable		;src
		pushlong #freeKString		;dest
		jsl	PStringCat		
		
		lda	#freeKString
		sta	strings
		bra	calcWidths

@doFreeMegs	pushLong #freeMBString
		ldy	#windFree+2
		lda	[<infoRefCon],y
		pha				;number of bytes free.
		dey
		dey
		lda	[<infoRefCon],y
		pha
		pea	8			;type = MB
		ldy	#windFST
		lda	[<infoRefCon],y
		jsl	GetFSTBlockSize
		pha
		jsl	sizeToString		

		pushlong #strAvailable
		pushlong #freeMBString
		jsl	pStringCat
		
		lda	#freeMBString
		sta	strings
		
;
; Compute the width of each string
;
calcWidths
		ldx	#6
lop1		phx

		pha
		pea	StringBase>>16		;get bank where strings are
		lda	strings,x
		pha
		_StringWidth
		pla
		plx
		clc
		adc	#8			;spacing.
		sta	stringsLen,x
		dex
		dex
		bpl	lop1

;
; Compute the position of each string relative to the bar's width
;

		lda	stringsLen		;how long is everything?
		clc
		adc	stringsLen+2
		clc
		adc	stringsLen+4
		clc
		adc	stringsLen+6
		sta	totalStringsLen
		
		ldy	#x2
		lda	[<infoRect],y
		ldy	#x1
		sec
		sbc	[<infoRect],y		That's the bar's width,
;		sec
;		sbc	startX+6		;remove padding for the left
		dec	a			;this is actually 3 pixels in the final
		dec	a
		sec				;analysis
		sbc	totalStringsLen
		bcc	@smashTogether
		
		pha
		pha
		pha
		pea	3			;divide the total amount of white space
		_UDivide			;by 3 for the 3 equal areas
		pla
		sta	whiteSpace
		plx
		cmp	#4
		blt	@smashTogether
		
		lda	startX+6
		clc
		adc	stringsLen+6
		adc	whiteSpace
		sta	startX+4
		
		clc
		adc	stringsLen+4
		adc	whiteSpace
		sta	startX+2
		
		clc
		adc	stringsLen+2
		adc	whiteSpace
		sta	startX
		bra	done1		

;
; we couldn't give everything an equivalent amount of whitespace, so we need to smash all
; the strings end-to-end
;
@smashTogether
		lda	startX+6
		clc
		adc	stringsLen+6
		adc	#4
		sta	startX+4
		
		clc
		adc	stringsLen+4
		adc	#4
		sta	startX+2
		
		clc
		adc	stringsLen+2
		adc	#4
		sta	startX

;
; Print the strings, checking first to see if the window is the trash window
;
done1		lda	notDiskFlag
		bne	@isDisk

		lda	startX+6
		ldy	#x1			;Set position of text.
		clc
		adc	[<infoRect],y
		pha
		lda	[<infoRect]
		clc
		adc	#8
		pha
		_MoveTo

		pea	StringBase>>16		;Pass string pointer to _DrawString.
		lda	strings+4
		pha
		_DrawString
		rts

@isDisk		ldx	#6			;Index into title table.
		ldy	#4			;Number of titles to print.
@loop		phy
		phx

		pea	StringBase>>16		;Pass string pointer to _DrawString.
		lda	strings,x
		pha

		lda	startX,x
		ldy	#x1			;Set position of text.
		clc
		adc	[<infoRect],y
		pha
		lda	[<infoRect]
		clc
		adc	#8
		pha
		_MoveTo

		_DrawString

		plx
		dex
		dex

		ply
		dey
		bne	@loop
		rts
		
;
; misc local routines
;
setFace		pha				;bold text face.
		_SetTextFace
		rts

;
; locals
;
BlocksIn1MB	dc.w	0

totalStringsLen	dc.w	0

whiteSpace	dc.w	0

fstNames	dc.w	nullName
		dc.w	ProDOSName
		dc.w	DOS33Name
		dc.w	DOS32Name
		dc.w	PascalName
		dc.w	MFSName
		dc.w	HFSName
		dc.w	LisaName
		dc.w	CPMName
		dc.w	nullName
		dc.w	MSDOSName
		dc.w	HighSierraName
		dc.w	ISO9660Name
		dc.w	AppleShareName
		dc.w	nullName
		dc.w	nullName
		
dx		dc.w	0
dy		dc.w	8		;depends on PREF_SHOWDISK

oldMask		ds.b	8
dotMask		dc.b	$00
		dc.b	$cc
		dc.b	$00
		dc.b	$cc
		dc.b	$00
		dc.b	$cc
		dc.b	$00
		dc.b	$cc
		ENDP


;===============================
;	   Blink Icon.
;===============================
;
;   IN:	   ic =	pointer	to locked icon to be blinked.
;
;===============================
		EXPORT	blinkIcon
blinkIcon	PROC

		ldx	#6			Number of state	changes, should	be even.
lop1		phx				Save blink counter.
		jsr	blinkOne
		plx				Get blink counter.
		dex
		bne	lop1			All done?
		rts


; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = =
;	   Change an icon's state and redraw.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = =
;
;   IN:	   ic =	pointer	to locked icon to be blinked.
;
		EXPORT	blinkOne
blinkOne	ldy	#icFlag			Flip selected state.
		lda	[<ic],y
		eor	#ICSELECTED
		sta	[<ic],y
		jsr	drawIcon2

		clc				Sometimes called from walkOfLife.
		rts

		ENDP


; drawIcon
;
;   IN:	   a = low word	pointer	to ICONOBJ (locked).
;	   x = high word pointer to ICONOBJ (locked).
;	   windBlk = pointer to	window information block.
;.....................................................................

drawIcon	PROC	EXPORT

		IMPORT	PStrClip
		IMPORT	GetFSTBlockSize

		sta	<ic			Save pointer to	ICONOBJ.
		stx	<ic+2

; drawIcon2
;
; IN: 	ic =	pointer	to ICONOBJ
;	windBlk = pointer to	window information block
;.....................................................................


		EXPORT	drawIcon2
drawIcon2	name
		
		IMPORT	zeroString
		IMPORT	CheckVisEdges
		IMPORT	GetIconRect3
		IMPORT	GetVisRECT
		
;
; first, get vis and check the top and bottom to see if we should be drawing or not
;
		jsr	GetVisRECT
		
		ldy	#windView
		lda	[<windBlk],y
		jsr	getIconPtr
						
		ldy	#windView
		lda	[<windBlk],y
		cmp	#viewByName
		bge	@notIconView
		tay

		ldx	#16-2
@saveLoop	lda	<irect1,x
		sta	irect1Save,x
		dex
		dex
		bpl	@saveLoop
		
		jsr	GetIconRect3		;Y = 0 for large icon, 1 for small icon
		jsr	CheckVisEdges
		
		php
		ldx	#16-2
@restoreLoop	lda	irect1Save,x
		sta	<irect1,x
		dex
		dex
		bpl	@restoreLoop
		plp
		bcc	@fastExit
		
		ldy	#windView		;get the view to draw for
		lda	[<windBlk],y
		brl	realDrawIcon

;
; this was not an icon view, so we need to check our edges a little differently to
; determine whether we're in the vertical visRgn or not
;
@notIconView	ldy 	#icTextY
		lda 	[<ic],y
		cmp 	<visRECT+y1
		bmi	@fastExit
		
		sec
		sbc	#15
		cmp 	<visRECT+y2
		beq	asText
		bmi 	asText

@fastExit	jsr	UnlockICBLKHAND

		clc
		rts

;
; Draw filename as text
;
asText		ldy	#icx
		lda	[<ic],y
		pha				;Save X position,
		lda	#textLeft		;change X position to absolute.
		sta	[<ic],y
		dey
		dey
		lda	[<ic],y
		pha				;Save Y position,
		ldy	#icTextY		;change to what's in icTextY field.
		lda	[<ic],y
		ldy	#icy
		sta	[<ic],y

		lda	#1			;Draw small flag.
		jsr	realDrawIcon

		ldy	#icy
		pla				;Restore Y position.
		sta	[<ic],y
		iny
		iny
		pla				;Restore X position.
		sta	[<ic],y

		ldy	#icFlag			;Check if the icon is selected.
		lda	[<ic],y			;If it is selected, the text color
		and	#ICSELECTED		;is set wrong and will have to be
		beq	@notSelected		;reset.

		jsr	NormalColor		;Black text, White background

@notSelected	lda	#dxViewSize		;set the x offset for the size field
		sta	DX			;(or the next field to be displayed)
		
;
; Draw Size field
;
drawSize
		ldy	#windView		;check the current view
		lda	[<windBlk],y
		cmp	#viewBySize		;if it's by size, then we must display the
		beq	@show			;size field

		lda	prefer		
		and	#PREF_SHOWSIZE
		bne	@show
		brl	showKind
@show		

		lda	dx
		cmp	<visRECT+x2
		blt	@visible
		beq	@visible
		
		clc
		rts
@visible	

		ldy	#icFType
		lda	[<ic],y
		cmp	#TypeFolder		; a folder?
		bne	ok2			; no
		
		lda	#3
		sta	>SizeStrg
		lda	#'--'			; folders don't show sizes here
		sta	>SizeStrg+1		; use "---" instead
		sta	>SizeStrg+3
		bra	sWidth
		
ok2		ldy	#icFBlocks
		lda	[<ic],y
		tax
		iny
		iny
		lda	[<ic],y
		bne	@bigNum
		txy	
		bne	@bignum
		
		pha				; space for width
		PushLong #zeroString
		_StringWidth

		lda	#dxViewKind-10
		sec
		sbc	1,s
		sta	1,s
		ldy	#icTextY
		lda	[<ic],y
		pha
		_MoveTo

		PushLong #zeroString
		_DrawString
		
		lda	#dxViewKind		;if we printed the size, we know
		sta	dx			;exactly where dx should be
		bra	showKind

@bigNum		pushLong #sizeStrg
		pha				;block size
		phx
		pea	2			;type = K
		ldy	#icFST
		lda	[<ic],y
		jsl	GetFSTBlockSize
		pha
		jsl	sizeToString		;SizeStrg = size of icon in ASCII

sWidth		pha				;space for width
		PushLong #SizeStrg
		_StringWidth

		lda	#dxViewKind-10
		sec
		sbc	1,s
		sta	1,s
		ldy	#icTextY
		lda	[<ic],y
		pha
		_MoveTo

		PushLong #SizeStrg
		_DrawString

		lda	#dxViewKind		;if we printed the size, we know
		sta	dx			;exactly where dx should be
		
;
; Draw Kind field
;
showKind	
		ldy	#windView		;check the current view
		lda	[<windBlk],y
		cmp	#viewByKind		;if it's by kind, we have to show
		beq	@show			;the kind

		lda	prefer
		and	#PREF_SHOWKIND
		bne	@show
		brl	showDate	
		
@show		lda	dx
		cmp	<visRECT+x2
		blt	@visible
		beq	@visible
		
		clc
		rts

@visible	lda	dx			;current x offset
		pha
		ldy	#icTextY
		lda	[<ic],y
		pha
		_MoveTo

		ldy	#icKind+1
		lda	[<ic],y
		bne	@normalKind
		
		pushZLong <handle
		pushZLong <ptr
		
		ldy	#icRBundle		;get the handle to the rBundle
		lda	[<ic],y
		sta	<handle
		iny
		iny
		lda	[<ic],y
		sta	<handle+2

		lda	[<handle]		;deref the handle to the rBundle
		sta	<ptr
		ldy	#2
		lda	[<handle],y
		sta	<ptr+2
		
;		ldy	#icOneDocOffset		;add the offset of the OneDoc to the pointer to
;		lda	[<ic],y			;the rBundle
;		clc
;		adc	<ptr
;		adc	#32			;offset +32 is the kind string
;		sta	<ptr
;		iny
;		iny
;		lda	[<ic],y
;		adc	<ptr+2
;		sta	<ptr+2
*** fixed 11-Jan-93 DAL to propogate the carry correctly
		ldy	#icOneDocOffset		;add the offset of the OneDoc to the pointer to
		lda	[<ic],y			;the rBundle
		clc
		adc	<ptr
		sta	<ptr
		iny
		iny
		lda	[<ic],y
		adc	<ptr+2
		sta	<ptr+2

		clc
		lda	<ptr
		adc	#32			;offset +32 is the kind string
		sta	<ptr
		bcc	@1
		inc	<ptr+2
@1
*** end 11-Jan-93

		ldy	#4			;lock the handle for drawing
		lda	[<handle],y
		ora	#$8000
		sta	[<handle],y
		
		ldx	<ptr+2
		lda	<ptr
		jsr	DrawKindField		;draw the kind field
		
		ldy	#4			;unlock the handle
		lda	[<handle],y
;;;		and	#$7FFF
		asl a
		lsr a
		sta	[<handle],y

		pulllong <ptr
		pulllong <handle
		bra	@showAllOfKind

@normalKind	ldy	#icKind+2		;get the pointer to the kind string
		lda	[<ic],y
		tax
		dey
		dey
		lda	[<ic],y
		jsr	DrawKindField

@showAllOfKind	lda	dx		
		clc
		adc	#(dxViewDate-dxViewKind)
		sta	dx
		
;
; Draw 'Last Modified' field
;
showDate	
		ldy	#windView		;check the current view
		lda	[<windBlk],y
		cmp	#viewByDate		;if it's by date, we HAVE to show
		beq	@show			;the date field

		lda	prefer
		and	#PREF_SHOWDATE
		beq	bingo
		
@show		

		lda	dx			;is this field going to be within the 
		cmp	<visRECT+x2		;right edge of our visRgn?
		blt	@visible
		beq	@visible		;if so, display it... 
		
		clc				;if not, don't display it
		rts
@visible	

		lda	dx
		pha
		ldy	#icTextY
		lda	[<ic],y
		pha
		_MoveTo

		add4	<ic,#icMDate,<temp
		
		PushLong #DateStrg		; ptr to dest. string
		PushLong <temp			; ptr to GS/OS date record
		PushWord DateFormat		; format
		jsl	DateToString
		
		PushLong #DateStrg
		_DrawString
						
bingo		clc				;and we are outta here!
		rts

;
; see if we really need to clip this thing -- because it's kind of pointless to clip the
; kind string if nothing else is going to be printed after the kind string, huh?
;
DrawKindField	
;		phx
;		pha
;		
;		ldy	#windView		;check the current view
;		lda	[<windBlk],y
;		cmp	#viewByDate		;if it's by date, then we're going
;		beq	@clipKind		;to have to clip always		
;
;		lda	prefer
;		and	#PREF_SHOWDATE
;		bne	@clipKind
;		
;		_DrawString			;draw what we got
;		rts
;
;@clipKind	pushLong #tempStrg1
;		pea	dxViewDate-dxViewKind-10 ; max pixel width
;		jsl	PStrClip		 ; clip string to fit in our space
;
;		pushLong #tempStrg1
;		_DrawString
;		rts
*** changed 24-Aug-92 DAL to use DrawStringWidth
		pea $6000			;flags for DrawStringWidth (truncate on right)
		phx
		pha				;pstring pointer

		ldx #dxViewDate-dxViewKind-10	;anticipate clipping width
		ldy #windView
		lda [<windBlk],y		;if it's by date, then we're going
		cmp #viewByDate			;to have to clip
		beq @clip
		lda prefer
		and #PREF_SHOWDATE
		bne @clip
		ldx #$3fff			;huge clip value (don't clip)
@clip		phx

;		_DrawStringWidth
		ldx #$1512
		jsl $e10000
		rts
*** end 24-Aug-92


;
; UnlockICBLKHAND -- unlock the icon block
;
		EXPORT	UnlockICBLKHAND
UnlockICBLKHAND
		ldy	#4
		lda	[<icBlkHand],y
		and	#$3FFF
		sta	[<icBlkHand],y
		rts

;
; locals
;
size		dc.w	0
dx		dc.w	0			;current x offset we're working with
irect1Save	ds.b	16			;saves both irect1 and irect2 which must be contiguous on DP

; = = =	= = = =	= = = =	= = = =	= =
;	   Real	draw icon.
; = = =	= = = =	= = = =	= = = =	= =
;
;   IN:	   a = 0 for large icon, 1 for small icon.
;	   ic =	pointer	to ICONOBJ.
;	   windBlk = pointer to	window information block.
;
; = = =	= = = =	= = = =	= = = =	= =
realDrawIcon	
		IMPORT	PStrClip

		sta	iconSize		Save which icon	size to	draw.

		pushZLong <icon			;ptr to icon

		ldy	#icFlag			Is the icon selected?
		lda	[<ic],y
		and	#$FF07
		pha				Pass mode.

		ldy	#icFlag+2		Is the icon readable?
		lda	[<ic],y
		and	#ICREADABLE>>16
		bne	cont
		lda	1,s
		ora	#ICOFFLINE		;change mode to fake an offline
		sta	1,s

cont		ldy	#icx
		lda	[<ic],y
		ldy	#imWidth
		sec
		sbc	[<icon],y
		pha

		ldy	#icy			Icon's y position,
		lda	[<ic],y
		ldy	#imHeight		less it's height.
		sec
		sbc	[<icon],y
		pha				equals icon's top side.
		_DrawIcon

; --- Print icon's title -----------------------

		lda	<icHand			Don't draw title for icon being renamed.
		cmp	LEicon
		bne	ok5
		lda	<icHand+1
		cmp	LEicon+1
		bne	ok5
		brl	exit5
 
;--- draw lock if icon is locked ---------------

ok5		ldy	#icFlag			; get locked status
		lda	[<ic],y
		and	#ICLOCKED
		beq	justText		; not locked

		ldx	#$0001			; normal draw
		ldy	#icFlag
		lda	[<ic],y
		and	#ICSELECTED		; if selected use inverted draw mode
		beq	saveMode
		ldx	#$8001			; inverted draw
saveMode	phx				; save draw mode

		lda	iconSize		; Large or Small icon?
		beq	big1

		ldy	#icx
		lda	[<ic],y
		clc
		adc	#16
		tax				; x is set
		ldy	#imHeight
		lda	[<icon],y
		sec
		sbc	#TITLE_H		; height of font
		bcs	ok4
		lda	<zero
ok4		pha
		ldy	#icy
		lda	[<ic],y
		clc				; a little extra
		sbc	1,s
		sec
		sbc	#7			; kludge
		ply
		tay				; y is set
		bra	enter5

big1		ldy	#icx
		lda	[<ic],y			; icon's x position
		ldy	#icTitleLen
		sec
		sbc	[<ic],y
		sec
		sbc	#lockWidth/2		; re-adjust for lock's width
		tax				; x is set
		ldy	#icy
		lda	[<ic],y			; icon's y position
		clc
		adc	#TITLE_H-7
		tay				; y is set
enter5		pla				; get draw mode
		jsr	DrawDevLock		; draw lock before text


;--- draw icon name in text --------------------

justText	lda	iconSize		; Large or Small icon?
		beq	big2

		ldy	#icx			; set title position for small icon
		lda	[<ic],y
		clc
		adc	#16
		pha				; push X position
		ldy	#imHeight
		lda	[<icon],y
		sec
		sbc	#TITLE_H		; height of font
		bcs	ok7
		lda	<zero
ok7		pha
		ldy	#icy
		lda	[<ic],y
		clc				; a little extra
		sbc	1,s
		plx
		pha				; push Y position
		bra	enter6

big2		ldy	#icx			; set title position for big icon
		lda	[<ic],y
		ldy	#icTitleLen
		sec
		sbc	[<ic],y
		pha				; push X position
		ldy	#icy
		lda	[<ic],y
		clc
		adc	#TITLE_H		; height of font
		pha				; push Y position
		
enter6		ldy	#icFlag			; get locked status
		lda	[<ic],y
		and	#ICLOCKED
		beq	move			; not locked
		lda	3,s			; else adjust X for lock width
		clc
		adc	#lockWidth/2
		ldx	iconSize
		beq	save
		adc	#lockWidth/2
save		sta	3,s
move		_MoveTo

		ldy	#icFlag			Set text color for selected or not.
		lda	[<ic],y
		and	#ICSELECTED
		beq	normal
		lda	#$000F			Selected color.
normal		pha
		eor	#$000F
		pha
		_SetBackColor
		_SetForeColor

		jsr	pushicName		; pass icon name ptr
		lda	iconSize
		beq	drawName

		ldy	#windView
		lda	[<windBlk],y
		cmp	#viewBySmallIcon
		beq	drawName

clip		PushLong #tempStrg1
		PushWord #dxViewSize-62
		jsl	PStrClip		; clip string to fit in our space
		PushLong #tempStrg1
drawName	_DrawString

;
; --- Unlock ICONBLK -----------------------------------------------
;
exit5		brl	UnlockICBLKHAND

iconSize	DC.W	0

		ENDP


;============================
;	   Zoom	RECT.
;============================
;
;  In:	   a = 0 to zoom down, not 0 to	zoom up.
;	   smallRect = small rect  (both in global coordinates)
;	   bigRect = big rect
;
;============================
		EXPORT	ZoomRect
ZoomRect	PROC

		IMPORT	smallRect
		IMPORT	bigRect

		tay
		beq	down
		lda	#$8000
down		pha		
		pei <zero
		pushlong #smallRect
		pushlong #bigRect
		_WhooshRect
		rts


;
; zoom to local coordinates (local port)
;
		EXPORT zoomRect2
zoomRect2
		tay
		beq	@down
		lda	#$8000
@down		ora	#$4000
		bra	down		

;
; zoomRectNoSound -- zoom quietly in current port
;
		EXPORT zoomRectNoSound
zoomRectNoSound lda #$E000	;bit 30 = current port, 29 = no sound
		bra down

		ENDP


;==============================================
;	   Custom draw drag routine.
;	   Called by DragRect.
;==============================================
;
;   IN:	   yrat, xrat =	starting point in local	coordinates.
;	   yoffset, xoffset = offset to	global coordinates.
;	   rectPtr = pointer to	RECT list.
;
;==============================================
		
dragRects	PROC EXPORT

		IMPORT	QDBank
		IMPORT	finderDPage

deltay		equ	7
deltax		equ	deltay+2
drawFlag	equ	deltax+2

rectCount	equ	work
rectIndex	equ	rectCount+2


		phd				Save original direct page.
		phb				Save original data bank.

		phk				Switch to my data bank.
		plb
		lda	finderDpage			Switch to my direct page.
		tcd

		lda	deltay,s		Set parameters.
		sta	dragDeltay
		lda	deltax,s
		sta	dragDeltax

		ldx	<drawCount
		lda	drawFlag,s		Am I being asked to draw?
		lsr	a
		bcc	store1		
;		and	#1
;		beq	store1

		inx
store1		txa
		and	#1
		sta	drawRequest


		jsr	hitDesIcon		;Check if cursor is over a destination
				 		;icon, or off of one.

		lda	drawFlag,s		Should RECTs really be drawn?
		lsr	a
		bcc	exit
;		and	#1
;		beq	exit

		lda	<drawCount		Has request already been made?
		and	#1
		cmp	drawRequest
		beq	exit

		jsr	drawRects		Draw the RECT list.


exit		plb
		pld

		lda	0,s			Move return address down stack.
		sta	6,s
		lda	2,s
		sta	8,s

		pla				Remove passed parameters.
		pla
		pla
		rtl				Return to DragRect.


; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =
;	   Hit test icons for dragging over
;	   possible destinations.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =
;
;   IN:	   TaskData = source window.
;
;  OUT:	   windTrack = destination window.
;
;
; Change History
;
; 21 Jul 87	 SEG from DanO
;
; Introduced BadDes variable for use in	determining if window is
; is a window that can be dragged to.
;
; 22 Jul 87	 SEG
;
; Allowed for dragging into the	trash window.
;
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =
hitDesIcon
		stz	BadDes
		
		pei	<xrat			Save current yrat and xrat.
		pei	<yrat
		pei	<yoffset		Save.
		pei	<xoffset

		jsr	pushyrat
		_GetMouse			yrat, xrat = current rat position (local).

		jsr	pushyrat		Make the position global.
		_LocalToGlobal

		stz	<curWind+1		Mark as	no window.

		pha
		lda	#curWind		Where to store found window.
		jsr	pushzpage
		pei	<xrat			Pass x point to	check.
		pei	<yrat			Pass y point to	check.
		_FindWindow
		pla
		bmi	next400
		
		cmp	#wInMenuBar
		bne	@NotMenu
		stz	<curWind		;added 08/08/88
		stz	<curWind+2		; used by dragit() (below)
		bra	@fallinhere

@NotMenu	cmp	#wInDesk		;On desktop?
		beq	@onDesktop	
		cmp	#wInContent		
		beq	next400
		
;
; if they end up here, they dragged onto either the title bar, or scroll bar, or info bar, or title controls.
;
		jsr	cur2windT		windTrack = curWind (save last window).
						
		lda	<curWind		;Get destination window's ID.
		ldx	<curWind+2
		jsr	getWindID
		bcs	@gotDirWind		;Desktop as destination is OK.
		cmp	#DirWindID
		beq	@gotDirWind
		cmp	#TrashWindID		;trash window is OK.
		beq	@gotDirWind
		inc	BadDes
		bra	wayOff			;Directory as destination is OK.
@gotDirWind	

		ldx	<IconTrack+1
		beq	@iconNotOn		;Is any icon being tracked?
		lda	<IconTrack		;If so, turn it OFF

		jsr	TurnIconOff
@iconNotOn	stz	<icHand+1		
		brl	exit401	
		
;
; they are dragging on the desktop...
;
@onDesktop	lda	<deskport		;Check desktop plane.
		sta	<curWind
		lda	<deskport+2
		sta	<curWind+2
@fallinhere	stz	<xoffset		No offset for desktop.
		stz	<yoffset

next400		jsr	cur2windT		windTrack = curWind (save last window).

		lda	<curWind+1		Over any window?
		beq	wayOff

		lda	<curWind		Get destination	window's ID.
		ldx	<curWind+2
		jsr	getWindID
		bcs	ok403			Desktop	as destination is OK.
		cmp	#DirWindID
		beq	ok403
		cmp	#TrashWindID		trash window is	OK.
		beq	ok403
		inc	BadDes
		bra	wayOff			Directory as destination is OK.

ok403		jsr	startDraw		Switch to window cursor	is over.

		jsr	pushyrat
		_GlobalToLocal

		jsr	endDraw			Put window's origin back to 0,0.

		lda	#hitTest		On an icon or miss?
		jsr	walkOfLife3
		bcs	iconHit400

wayOff		stz	<icHand+1		Set no hit flag.


; --------- Cursor over	an icon, check to deselect current icon	----------
iconHit400
		ldx	<IconTrack+1
		beq	skip400			Is any icon being tracked?

		lda	<IconTrack		Did we hit on the same icon currently
		cmp	<icHand			selected?
		bne	turnOff400
		cpx	<icHand+1
		bne	turnOff400
		brl	exit401			If yes,	done.

turnOff400	jsr	TurnIconOff

skip400		lda	<icHand+1
		beq	exit401			Is there a new icon?

		pushZLong <icHand		;save the current icon

		stz	NonRemovable		;init counters
		stz	iconSelected

		lda	#IsNonRemovable
		jsr	WalkOfLife3		;count icons & non-removable icons

		pulllong <icHand		;restore icon
		
		ldy	#4
		lda	[<icHand],y
		pha
		jsr	lockic			ic = (icHand).

		ldy	#icFlag			At this	point, any selected icons are the
		lda	[<ic],y			ones being dragged.
		and	#ICSELECTED
		bne	exit402			Is this	icon already selected?

		ldy	#icFType		Is this	an icon	that could be
		lda	[<ic],y			a destination icon?
		bmi	ok402			Trash can, device?
		cmp	#TypeFolder		Folder?
		bne	exit402			nope
				
		ldy	#icMom			;is your mama trash ?
		lda	[<ic],y
		cmp	<TrashWind
		bne	ok401			;no but maybe yours is
		iny
		iny
		lda	[<ic],y			;are you really sure?
		cmp	<TrashWind+2
		beq	exit402			;yes, she is		
		bra	ok401			;clean folders can be dest.
				
ok402		cmp	#TypeFDrive		Floppy drives cannot be	destinations.
		beq	exit402

		cmp	#TypeFTrash		;is destination the trash?
		bcc	ok401			;no
		lda	NonRemovable		;any non-removable devices?
		beq	ok401			;no
		cmp	iconSelected		;were they all non-removable ?
		beq	exit402			;yes

ok401		lda	<icHand			Remember icon being tracked.
		sta	<IconTrack
		ldx	<icHand+1
		stx	<IconTrack+1

		jsr	Ck2Erase		Erase RECTs if needed.
		jsr	startDraw
		jsr	onIcon			Select the icon.
		jsr	endDraw
		jsr	Ck2Draw			Draw RECTs if needed.

exit402		pla
		ldy	#4
		sta	[<icHand],y
		
; ------ Return	to proper port for dragging -------------------------------

exit401		jsr	toDeskPort		Switch to desktop port.

		pla				Restore.
		sta	<xoffset
		pla
		sta	<yoffset
		pla				Restore	yrat and xrat.
		sta	<yrat
		pla
		sta	<xrat
		rts

NonRemovable	DC.W	0			;true if source icon is non-removable 

;
; turn the icon off that we're tracking
;
; IN: A&X contain the handle of the icon we're looking at
;
TurnIconOff	pushZLong <icHand
		pushZLong <curWind

		sta	<icHand
		stx	<icHand+1

		ldy	#4
		lda	[<icHand],y
		pha
		jsr	lockic

		ldy	#icMom
		lda	[<ic],y
		sta	<curWind
		iny
		iny
		lda	[<ic],y
		sta	<curWind+2

		jsr	Ck2Erase		Erase RECTs if needed.
		jsr	startDraw
		jsr	offIcon2		Deselect and redraw the	old icon.
		jsr	endDraw
		jsr	Ck2Draw			Draw RECTs if needed.
		
		ldy	#4
		pla
		sta	[<icHand],y

		pulllong <curWind
		pulllong <icHand

		stz	<IconTrack+1		No longer tracking an icon.
		rts
		
;===============================================
;  Look for selected + non-removable icons.
;===============================================
;
;   IN:	   ic =	locked ICONOBJ to test.
;
;  OUT:	   Carry clear if not found (ie keep searching)
;
;===============================================

IsNonRemovable
		import	EjectNonRemovable
		
		ldy	#icFlag			;first check if icon selected
		lda	[<ic],y
		and	#ICSELECTED
		beq	@done			;not selected
		
		inc	iconSelected		;count selected icons

		ldy	#icFType		;now check the type of icon
		lda	[<ic],y
		bpl	@done			;not a device

		ldx	EjectNonRemovable
		beq	@noEject

		ldy	#icFtype		;see if it's a hard drive partition
		lda	[<ic],y
		cmp	#TypeHardPart
		beq	@done

@noEject	ldy	#icDevInfo		;if it's ejectable, exit
		lda	[<ic],y			;andy, 12/4/90
		and	#$0004
		bne	@done

		inc	NonRemovable		;count non-removable icons
	
@done		clc				;keep going flag
		rts

; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= =
;	   Erase RECTs from screen.
;  = = = = = = = = = = = = = = = = = = = = = = = = =
;
Ck2Erase	lda	<drawCount		Are the	RECTs on the screen?
		and	#1
		beq	exit300

		jsr	drawRects		Erase the RECTs	from the screen.
exit300		rts


Ck2Draw		lda	drawRequest		Were the RECTs requested off screen?
		beq	exit300			If yes,	no need	to draw	them.


; = = =	= = = =	= = = =	= = = =	= = =
;	   Draw	drag RECTs.
; = = =	= = = =	= = = =	= = = =	= = =
;
;   IN:	   dragDeltay =	deltay.
;	   dragDeltax =	deltax.
;	   rectPtr = pointer to	RECT list.
;
;  OUT:	   drawCount = bit #0 is zero if RECTs are not on screen.

drawRects	inc	<drawCount		Draw counter to	tell if	on screen.

		lda	[<rectPtr]		Get number of RECTs.
		sta	<rectCount
		bne	@haveRects		;our deep shit preventer
		rts
@haveRects		
		
		lda	SourceView
		cmp	#viewBySmallIcon
		bge	@byListView
		
		lda	[<rectPtr]		;if by Icon
		lsr	a
		sta	<rectCount
@byListView

		jsr	toDeskPort		Switch to desktop port.
		_HideCursor

		ldy	#2			Index to first RECT.

lop500		ldx	<zero			Clone RECT into	'irect1' and 'irect2'.
lop501		lda	[<rectPtr],y		Y1.
		clc
		adc	dragDeltay
		sta	table1,x
		sta	table1+4,x
		sta	table1+8,x
		sta	table1+28,x
		iny
		iny
		lda	[<rectPtr],y		X1.
		clc
		adc	dragDeltax
		sta	table1+2,x
		sta	table1+22,x
		sta	table1+26,x
		sta	table1+30,x
		iny
		iny
		lda	[<rectPtr],y		Y2.
		dec	a
		clc
		adc	dragDeltay
		sta	table1+12,x
		sta	table1+16,x
		sta	table1+20,x
		sta	table1+24,x
		iny
		iny
		lda	[<rectPtr],y		X2.
		clc
		adc	dragDeltax
		sta	table1+6,x
		sta	table1+10,x
		sta	table1+14,x
		sta	table1+18,x
		iny
		iny
		txa
		
		ldx	SourceView
		cpx	#viewBySmallIcon
		bge	drawSingleRect
		
		ldx	#32
		dec	a
		bpl	done500
		brl	lop501
		
done500		sty	<rectIndex
		ldy	#62
		bra	outsideLoop

;
; --- Draw the lines -----------------------------------------
;
drawSingleRect	sty	<rectIndex

		ldy	#30
outsideLoop	ldx	#x2
@loop		lda	table1,y
		sta	<irect1,x
		dey
		dey
		dex
		dex
		bpl	@loop

		phy

		lda	<irect1+y1
		cmp	<irect1+y2
		beq	@doHorizontal

		jsr	drawVer
		bra	@next

@doHorizontal	jsr	drawHor

@next		ply
		bpl	outsideLoop


		ldy	<rectIndex		Load up	index for next RECT.

		dec	<rectCount		Any more RECTs?
		beq	exit500
		brl	lop500

exit500		_ShowCursor
		rts


; = = =	= = = =	= = = =	= = = =	= = = =	= = =
;	   Draw	a horizontal line.
; = = =	= = = =	= = = =	= = = =	= = = =	= = =
;
;   IN:	   irect1 = points.

drawHor		lda	<irect1+y1		;Clip line.
		bmi	exit102
		cmp	#200
		bcc	ok103
exit102		rts

ok103		ldx	<irect1+x1
		bpl	ok101
		ldx	<zero
		stx	<irect1+x1
ok101		lda	<irect1+x2		;Always go from left to right.
		bpl	ok102
		lda	<zero
ok102		cmp	<irect1+x1
		beq	exit100			;Completely clipped?
		bcs	ok100
;				      		;x = x1
;				      		;a = x2
		tay				;y = x2
		txa				;a = what as x1, now x2.
		tyx				;x = what was x2, now x1.
;
;				      		;x = x1
ok100		tay				;y = x2
		beq	exit100
		cpx	#638
		bcs	exit100
		inc	a			;Little more, cause vertical is 2 wide.
		cmp	#638
		bcc	store100
		lda	#638
store100	stx	<irect1+x1
		sta	<irect1+x2

		and	#3
		asl	a
		tax
		lda	pixelMask2,x
		sta	<mask2

		lda	<irect1+x1
		and	#3
		tax
		eor	#3
		inc	a
		sta	<irect1+y2

		txa
		asl	a
		tax
		lda	pixelMask1,x
		sta	<mask1

		jsr	setupLine

		ldy	<zero			First part.
		lda	(<line1),y
		eor	<mask1
		sta	(<line1),y
		iny

		lda	<irect1+x2
		sec
		sbc	<irect1+x1
		sbc	<irect1+y2
		bmi	skip100
		sta	<mask1
		lsr	a
		lsr	a
		lsr	a
		tax				Number of pixels.
		bra	enter100

lop100		lda	(<line1),y
		eor	#$FFFF
		sta	(<line1),y
		iny
		iny
enter100	dex
		bpl	lop100

		lda	<mask1
		and	#4
		beq	skip100
		lda	(<line1),y
		eor	#$00FF
		sta	(<line1),y
		iny

skip100		lda	(<line1),y
		eor	<mask2
		sta	(<line1),y

exit101		plb
exit100		rts


; = = =	= = = =	= = = =	= = = =	= = = =	= = =
;	   Draw	a vertical line.
; = = =	= = = =	= = = =	= = = =	= = = =	= = =
;
;   IN:	   irect1 = points.
;
drawVer		lda	<irect1+x1		Completely clipped?
		bmi	exit200
		cmp	#638
		bcs	exit200

		ldx	<irect1+y1		Force top to bottom.
		bpl	ok201
		ldx	<zero
		stx	<irect1+y1
ok201		lda	<irect1+y2
		bpl	ok202
		lda	<zero
ok202		cmp	<irect1+y1
		bcs	ok203

		tay
		txa
		tyx

ok203		cpx	#200			Line completely	off bottom?
		bcs	exit200

		tay
		beq	exit200			Line completely	off top?

		cmp	#200			Line off botom?
		bcc	store200
		lda	#199			Clip to	bottom of screen.
store200	stx	<irect1+y1
		sta	<irect1+y2

ok200		lda	<irect1+x1
		and	#3
		asl	a
		tax
		lda	pixelMask3,x
		sta	<mask3

		jsr	setupLine

		lda	<irect1+y2
		sec
		sbc	<irect1+y1
		beq	exit201
		tax				Number of lines	to do.

		ldy	#160
		bra	enter200
lop200		lda	(<line1),y
		eor	<mask3
		sta	(<line1),y

		tya
		clc
		adc	#160
		tay

enter200	dex
		bne	lop200

exit201		plb				; restore data bank (pushed by setupLine)
exit200		rts

;
; --- Compute the scan line addresses ------------------------
;
setupLine	lda	<irect1+x1
		lsr	a
		lsr	a
		tax

		lda	<irect1+y1
		asl	a
		tay
		txa
		clc
		adc	[<lineAddrs],y
		sta	<line1

		plx				; get return address
		phb				; save the current data bank
		phx				; repush return address

; 2/1/90: djb/rdl fix for djb for CloseView: get QuickDrawÕs bank (1 or E1)
; (was previously hardcoded: pea $E1E1 ; change data bank to $E1, plb, plb)
		lda	QDBank			; change data bank to QDÕs scrn bank (1 or E1)
		pha				; saved, lo/hi, as QDÕs high/bank
		plb				; bogus
		plb				; QDÕs screen bank
; end djb/rdl fix

		rts

		ENDP

;///////////////////////////////////////////////
;	   Draw	clipboard window content.
;///////////////////////////////////////////////
;
;  This	routine	can be called from outside the Finder at the most
;  inopportune times.  Therefore, I try	to save	global values.
;
;///////////////////////////////////////////////
;		EXPORT	clip_guts
;clip_guts	PROC
;
;		jsr	saveAcross
;		
;;
;; --- Get clipboard window's RECT -------------------------------
;;
;		jsr	pushrect
;		_GetPortRect
;
;		jsr	pushrect		;added 10-Nov-90 DAL
;		_EraseRect			;added 10-Nov-90 DAL
;
;;
;; --- Draw scrap picture ----------------------------------------
;;
;		pha				Space for result.
;		pha
;		pea	1			Try for	a picture first.
;		_GetScrapHandle
;		pla				Get handle.
;		plx
;		bcs	next
;;
;		phx				Pass Handle of picture.
;		pha
;
;		jsr	derefHand		temp = (temp).
;
;		ldy	#8
;lop1		lda	[<temp],y
;		tyx
;		sta	<dRect-2,x
;		dey
;		dey
;		bne	lop1
;
;		lda	<dRect+y2		Adjust destination to be upper left
;		sec				corner of window.
;		sbc	<dRect+y1
;		sta	<dRect+y2
;		stz	<dRect+y1
;
;		lda	<dRect+x2
;		sec
;		sbc	<dRect+x1
;		sta	<dRect+x2
;		lda	<dRect+x1
;		and	#1
;		sta	<dRect+x1
;		beq	ok2
;		inc	<dRect+x2
;
;ok2		jsr	pushrect		Pass destination RECT.
;		_DrawPicture
;		bra	exit
;
;;
;; --- Print scrap text -----------------------------------------
;;
;next		pha				Space for result.
;		pha
;		pei <zero			Try for	text next.
;		_GetScrapHandle
;		pla				Get handle.
;		plx
;		bcs	exit
;
;		sta	<temp
;		stx	<temp+2
;					
;		pha				Space for result.
;		pha
;		phx				Pass handle.
;		pha
;		_GetHandleSize			Get size handle, which is size of text.
;		plx
;		pla				(Don't need high word.)
;
;		ldy	#4			Lock text handle.
;		lda	[<temp],y
;		pha				(Save handle's state.)
;		ora	#$8000
;		sta	[<temp],y
;
;		dey
;		dey
;		lda	[<temp],y		Pass pointer to	text.
;		pha
;		dey
;		dey
;		lda	[<temp],y
;		pha
;		phx				Pass length of text.
;		PushLong #textRect		; Pass pointer to RECT. Mensch 5/31/89 BRC #49178
;		pei <zero			Left justify.
;		_LETextBox2
;
;		ldy	#4			Restore	text handle's state.
;		pla
;		sta	[<temp],y
;
;exit		jsr	backAcross
;		rtl
;textRect	dc.W	2,4,16000,500		; Need valid static rect.  Mensch 5/31/89 BRC #49178
;		
;		ENDP

;==============================================
;	Draw a lock icon in a window		;added 06/07/88 DJB
;
; IN:	a = 0 to erase lock, non zero to draw lock
;	(hi bit set to draw inverted lock)
;	x = horizontal start position
;	y = vertical start position
;==============================================

DrawDevLock	PROC	EXPORT

		pha
		sty	PictYX			;set up rect
		stx	PictYX+2

		sty	PictRect2+y1
		tya
		clc
		adc	#lockHeight
		sta	PictRect2+y2
		stx	PictRect2+x1
		txa
		clc
		adc	#lockWidth
		sta	PictRect2+x2

		pla
		beq	erase
		and	#$8000
		tax				; save mode
		PushLong #PictInfo		; image
		PushLong #PictRect
		PushLong PictYX
		phx				; draw mode
		_PPToPort
		bra	exit
erase
		PushLong #PictRect2		;erase the lock
		_EraseRect
exit		rts

PictInfo	DC.W	$0080				;port SCB
		DC.L	PictLock			;picture ptr
		DC.W	4				;picture width (bytes)
PictRect	DC.W	0,0,lockHeight,lockWidth	;bounds rect

PictYX		DC.W	0,0				;coordinates

PictRect2	DC.W	0,0,0,0


		
PictLock 
		
		DC.B  $FF,$F0,$0F,$FF		;8 x 16 pixel lock image
		DC.B  $FF,$0F,$F0,$FF
		DC.B  $FF,$0F,$F0,$FF
		DC.B  $F0,$00,$00,$0F
		DC.B  $F0,$00,$00,$0F
		DC.B  $F0,$00,$00,$0F
		DC.B  $F0,$00,$00,$0F
		DC.B  $FF,$FF,$FF,$FF

		ENDP
		
;==============================================
;	Draw Access Priv. Icons			;added 12/17/88 DJB
;
; IN:	x,y-reg  have point to start drawing
;	a-reg has access rights of folder
; OUT:	x-reg has end of drawing
;==============================================

DrawAccessIcons	PROC

iconWidth	SET	28
iconHeight	SET	7

apSeeFolders	SET	1
apSeeFiles	SET	2
apMakeChanges	SET	4

		sta	Access
		sty	PictYX+y1			; set up rect
		stx	PictYX+x1
		
		lda	Access
		and	#apSeeFolders
		bne	next1				; user has see folder rights
		lda	#FolderPicture
		ldx	#FolderPicture>>16
		jsr	drawIt
		
next1		lda	Access
		and	#apSeeFiles
		bne	next2				; user has see file rights
		lda	#FilePicture
		ldx	#FolderPicture>>16
		jsr	drawIt
		
next2		lda	Access
		and	#apMakeChanges
		bne	done				; user has make change rights
		lda	#PencilPicture
		ldx	#FolderPicture>>16
		jsr	drawIt

done		ldx	PictYX+x1		
		rts
		
;------------------------------------------------------
drawIt		sta	PictImage
		stx	PictImage+2
		PushLong #PictInfo
		PushLong #PictRect
		PushLong PictYX
		PushWord #$0000				; draw mode
		_PPToPort
		
		lda	PictYX+x1
		clc
		adc	#iconWidth+2
		sta	PictYX+x1
		rts
;------------------------------------------------------

Access		DC.W	0				; access rights
PictInfo	DC.W	$0080				; port SCB
PictImage	DC.L	FolderPicture			; picture ptr
		DC.W	iconWidth/4			; picture width (bytes)
PictRect	DC.W	0,0,iconHeight,iconWidth	; bounds rect
PictYX		DC.W	0,0				; point

 	
FolderPicture	DC.B	$44,$F0,$00,$0F,$FF,$FF,$FF	;8 x 16 pixel lock image
		DC.B	$FF,$44,$FF,$F0,$00,$00,$FF
		DC.B	$FF,$0F,$44,$FF,$FF,$FF,$0F
		DC.B	$FF,$0F,$FF,$44,$FF,$FF,$0F
		DC.B	$FF,$0F,$FF,$FF,$44,$FF,$0F
		DC.B	$FF,$0F,$FF,$FF,$FF,$44,$0F
		DC.B	$FF,$00,$00,$00,$00,$00,$44

FilePicture	DC.B	$44,$FF,$00,$00,$0F,$FF,$FF
		DC.B	$FF,$44,$0F,$FF,$00,$FF,$FF
		DC.B	$FF,$FF,$44,$FF,$00,$0F,$FF
		DC.B	$FF,$FF,$0F,$44,$FF,$0F,$FF
		DC.B	$FF,$FF,$0F,$FF,$44,$0F,$FF
		DC.B	$FF,$FF,$0F,$FF,$FF,$44,$FF
		DC.B	$FF,$FF,$00,$00,$00,$0F,$44

PencilPicture	DC.B	$44,$FF,$FF,$FF,$00,$00,$FF
		DC.B	$FF,$44,$FF,$F0,$00,$0F,$FF
		DC.B	$FF,$FF,$44,$0F,$F0,$FF,$FF
		DC.B	$FF,$FF,$FF,$44,$0F,$FF,$FF
		DC.B	$FF,$FF,$F0,$FF,$44,$FF,$FF
		DC.B	$FF,$FF,$F0,$00,$FF,$44,$FF
		DC.B	$0F,$00,$00,$FF,$FF,$FF,$44

		ENDP
		
;===============================================
;	   Handle button down in
;	   window's content or desktop.
;===============================================
;
;   IN:	   TaskData = window that button went down in.
;	   yrat	= y position of	button down, in	global.
;	   xrat	= x position of	button down, in	global.
;
;===============================================
		EXPORT	windClick
windClick	PROC

		IMPORT 	pushTask
		IMPORT	doAlertWindow
		IMPORT	selectionIsChanging
		IMPORT	isReadOnly
		IMPORT	findDisk
		IMPORT	BuildPath3
		IMPORT	GetWindPath
		IMPORT	GetVolSizes
		IMPORT	UpdateRootSize
		
		IMPORT	magicToDo		;in data.aii - 18-Jan-93 JCM
		IMPORT	_VolumeChange		;in main.aii - 19-Jan 93 JCM

		jsl	selectionIsChanging	;tell extensions selection is about to change

		stz	OkToRename
		
; --- Change current window plane -----------------------------------------

*** opt 7-Jul-92 DAL
		lda <TaskData+1
		cmp <curWind+1
		beq ok1
*** end 7-Jul-92
		jsr	deselectall		;Deselect everything in current plane.
		jsr	pullTaskData		;curWind = TaskData.
ok1

;
; --- Hit test window's icon list --------------------------------------
;
		jsr	getWoffset		;Switch to current port, set origin.

		jsr	pushyrat		;Make position of button down local.
		_GlobalToLocal

		lda	#hitTest		;Check for button down on icon.
		jsr	walkOfLife
		bcc	notDoubleClick		;On an icon or miss?

		lda	<when			;Time of this click.
		sec
		sbc	<lastClick		;less time of last click,
		tax
		lda	<when+2
		sbc	<lastClick+2
		bne	iconHit
		cpx	doubleSpeed		;equals time inbetween.
		bcs	iconHit			;Is it a double click?

		lda	lastClickY		;Is position of new click near last?
		sec
		sbc	<yrat
		clc
		adc	#2
		cmp	#7
		bcs	iconHit

		lda	lastClickX
		sec
		sbc	<xrat
		clc
		adc	#3
		cmp	#11
		bcs	iconHit

		jsr	endDraw			;Put window's port back.
		jsr	norename		;Remove line edit field.
		jsr	startDraw		;Set up window's port again.
 
		jsr	unlockic		;Leave the icon unlocked.
		jsr	endDraw			;Return window's origin to 0,0.

;
; Tunneling, do they want to OPTION double-click to close the parent and open the child?
;
		pha
		pei <zero			;we want to know if they are
		jsr	pushTask		;holding down the option key for anti-tunneling
		_GetNextEvent
		pla

		jsr	openAll			;open all the selected icons and exit
		
		lda	modifiers		;did they want to tunnel?
		and	#$0800
		beq	@done
		
		jsr	doClose			;put away the parent			
@done		rts

;
; If they get here we haven't received notice of a double click (yet) and we also didn't hit
; an icon
;
notDoubleClick
		lda	<LErename+1		;Check if user pressed inside rename box.
		beq	ok19			;Is there a line edit field?

		pha				;Space for result.
		jsr	pushyrat		;Pass pointer to point.
		pea	viewRect>>16
		pea	viewRect		;Pass pointer to RECT.
		_PtInRect
		pla
		bne	inRename		;Handle button down in rename.

		jsr	endDraw			;Put window's port back.
		jsr	norename		;Remove line edit field.
		jsr	startDraw		;Set up window's port again.

ok19		brl	downInCont		;Button down on content region.

;
; They get here then there's been a hit on an icon, but not a double click (yet), so check
; exactly where they hit
;
iconHit		lda	nameHit			Was it a hit in	the icon's name?
		beq	ok11
		lda	<LErename+1		Is there a line	edit field?
		beq	ok2

		lda	<icHand			Is it a	hit on the icon	being renamed?
		cmp	LEicon
		bne	ok11
		lda	<icHand+2
		cmp	LEicon+2
		bne	ok11

inRename	jsr	hitIconName		Handle button down in line edit	field.
		brl	endDraw			Return window's origin and exit.

ok11		lda	<LErename+1		Is there a line	edit field?
		beq	ok2
		jsr	endDraw
		jsr	noRename		Cancel rename if there is a hit
		jsr	startDraw		outside	of the line edit field.
		
;
; --- Button down on an	icon to	select it ------------------------------
;
ok2		lda	<when			;Save time of this click for next time.
		sta	<lastClick
		lda	<when+2
		sta	<lastClick+2

		lda	<yrat			;Save position of click.
		sta	lastClickY
		lda	<xrat
		sta	lastClickX

;
; If Shift key is down:
;	   Do not deselect other icons.
;	   Flip	state of icon hit.
; Else:
;	   Deselect all	icons if hit icon is not yet selected.
;	   Select icon hit.
;
;
; ------ Check Shift key ------------------------------------------------
;
		lda	<modifiers		Shift key down?
		and	#shiftKey
		bne	shiftDown

;
; --------- Shift key NOT down ---------------------------------------
;
		ldy	#icFlag			Is the icon hit	already	selected?
		lda	[<ic],y
		and	#ICSELECTED
		bne	skip2			If selected, don't deselect others.

		pei	<icHand+2		Save handle of icon that was hit.
		pei	<icHand

		lda	#officon		Deselect all icons in window.
		jsr	walkBack

		pla
		sta	<icHand
		pla
		sta	<icHand+2
		jsr	lockic			Lock the icon.

;;;		inc	OkToRename		
*** 3-Jun-92 DAL -- try only renaming if they click on the name field
		lda	nameHit
		sta	OkToRename
*** end 3-Jun-92

		ldy	#icFlag
skip2		lda	[<ic],y
		ora	#ICSELECTED		Set selected flag.
		bra	store4

;
; --------- Shift key down -------------------------------------------
;
shiftDown	ldy	#icFlag			Flip the state of the icon.
		lda	[<ic],y
		eor	#ICSELECTED
store4		sta	[<ic],y

;
; ------ Move the selected icon	to the head of the list	----------------
;

*** Added - 22-Jan-93 JCM - Moved this code into a subroutine so key nav and the new
***			    active icon selection code can call it as well.

;;;		ldy	#icLast+1		Already	at head	of list?
;;;		lda	[<ic],y
;;;		beq	hiliteit
;;;
;;;		jsr	cutIcon			Remove icon from list.
;;;		jsr	HeadIcon		Add icon at head of list.

		jsr	cutIconToHead

*** End - 22-Jan-93 JCM

;
; ------ Redraw	the icon in its	new plane and state -------------------
;
hiliteit	jsr	drawIcon2

; -----------------------------------------------------------------------
; --- Wait to see if user dragging or just selecting --------------------
; -----------------------------------------------------------------------
;
;   current port = window that button is down in (origin set).
;   yrat = y position of button	down (local to window).
;   xrat = x position of button	down (local to window).
;   curWind = window button went down in.
;   TaskData = window button went down in.
;   windBlk = pointer to information block of window button went down in.
;   icHand = handle of icon button was pressed on (locked).
;   ic = (icHand).
;
		ldy	#icFlag			Only drag selected icons.
		lda	[<ic],y
		and	#ICSELECTED
		beq	exitDrag

ckdrag		lda	#4			Button up only.
		jsr	getNextEvent
		beq	doubleCk		Button up?

exitDrag	lda	OkToRename
		beq	realexit
		jsr	makeField		; make a line edit field
realexit	jsr	unlockic		; unlock ICONOBJ and exit

*** added 19-Aug-92 DAL -- Don't call SelectWindow on the desktop port
		lda	<TaskData+1
		cmp	<deskPort+1
		beq	@noSelect
*** end 19-Aug-92

		pha				;see if our front window is the window we're doing
		pha				;stuff in, and if it is, skip the selectwindow to 
		_FrontWindow			;increase the speed of response... (Gee, could TaskMaster
		pla				;do this internally for other apps Dave?).
		plx
		cmp	<TaskData
		bne	@selectIt
		cpx	<TaskData+2
		beq	@noSelect
		
@selectIt	pushZLong <taskData
		_SelectWindow
@noSelect	brl	endDraw

;
; --- Button has not come up yet, but double check ----------------------
;
doubleCk	pha
		pei <zero			;Button number.
		_Button				;Is the button currently up?
		pla
		beq	exitDrag


ckNewPos	lda	|eventRec+modifier	;Save state of function key.
		and	#$0800
		ora	functionKey
		sta	functionKey

		jsr	pushwork		;Pass place to store rat position.
		_GetMouse

		lda	#6			;Number of pixels needed to move.
		sta	<work+4

		ldx	#2
lop5		lda	<work+y1,x
		sec
		sbc	<yrat,x
		bcs	ok5
		eor	#$FFFF
		inc	a
ok5		cmp	<work+4			;Did the user move?
		bcs	dragit

		lsr	<work+4			;Half delta needed for vertical.
		dex
		dex
		bpl	lop5
		bra	ckdrag

; ----------------------------------------------------------------------
; --- Drag the icon around ---------------------------------------------
; ----------------------------------------------------------------------
;
;   current port = window that button is down in (origin set).
;   yrat = y position of button	down (local to window).
;   xrat = x position of button	down (local to window).
;   curWind = window button went down in.
;   TaskData = window button went down in.
;   windBlk = pointer to information block of window button went down in.
;   icHand = handle of icon button was pressed on (locked).
;   ic = (icHand).
;
; ----------------------------------------------------------------------

dragit		ldy	#windView		Remember view of source	window.
		ldx	<zero
		lda	[<windBlk],y
		sta	sourceView
		cmp	#viewByName
		bcc	store1
		dex
store1		stx	srcView

		jsr	buildRectList		rectHand = handle of RECT list.

;
; Historical Notes: 	We're doing a SetOrigin(0,0) here because there seem to be mysterious circumstances
;			under which a code path ends up here and the window is still in the shifted "StartDraw"
;			state.  This should fix the weird disconnected scroll bar/shifted visrgn
;			problems we've been seeing.
;
;			2/9/92, The day before SCM builds the 6.0 Golden Master.  Dave and andy, up-all-night.
;				Btw, I paid Matt Ackeret $100 for being able to duplicate this.  Really.
;
		jsr	endDraw			;ACK!!!!!
		
		pushZLong <deskport		;Switch to desktop port.
		_SetPort

		stz	<drawCount		Number of times	the RECTs are drawn.
		stz	<IconTrack+1		Handle of icon cursor is over.
		jsr	cur2windT		windTrack = curWind.

		stz	ExtCopy			Turn off extended flag.

		pha				Space for result.
		jsr	pushrect		Pass address of	RECT to	drag.
		pushlong #screen		Pass address of	screen RECT.
		jsr	pushrect		RECT to	drag shouldn't be larger
		_SectRect			than the screen.
		pla				Result,	TRUE if	RECT not empty (always).

		pha				Space for result.
		pha
		pushlong #dragRects		;Address of custom draw routine.
		pushlong #dragPatt		;Pass address of drag pattern
		lda	<xrat			Pass starting y	point as global.
		clc
		adc	<xoffset
		pha				Pass starting x	point as global.
		lda	<yrat
		clc
		adc	<yoffset
		pha				Pass starting y	point.
		jsr	pushrect		Pass address of	RECT to	drag.
		pushlong #screen		;Pass limit bounds
		pushlong #screen		;Pass slop bounds.
		pea	$0288			2 pixel	grid, pass draw	flag, custom draw.
		_DragRect
		pla
		sta	deltay			Save y delta.
		sta	deltay2
		pla
		sta	deltax			Save x delta.
		sta	deltax2

; --- Check what function key is at end	of drag	----------------------------

		jsr	addFunctionKey

; --- Free RECT	list, compute selected icon area ---------------------------

		pushZLong <rectHand		;Free handle to RECT list.
		jsl DisposeHandleGlue

; --- Compute source and destination information ----------------------------

		stz	<filetype		Destination filetype.
		stz	intoIcon		Clear 'dragging into icon' flag.
		stz	magicToDo		;assume that this isn't the System folder - 18-Jan-93 JCM

		lda	<IconTrack+1		Was a destination icon selected?
		beq	skip4

		jsr	getDesIcon		Compute	parameters for destination icon.
				      		;windTrack = des icon's window.
		inc	intoIcon		Set 'dragging into icon' flag.

skip4		

; if the windTrack is zero and IconTrack is zero we must have aborted
; (old way commented out below).

		lda	<WindTrack+1
		ora	<IconTrack+1
		beq	exit4
;		lda	deltax			Was drag aborted? (dragged into	menubar)
;		ora	deltay
;		beq	exit4			If yes,	then quit.

		lda	<windTrack		;Is the destination also the source?
		cmp	<TaskData
		bne	skip15
		lda	<windTrack+1
		cmp	<TaskData+1
		bne	skip15
						;Destination window is same as source.
		lda	<IconTrack+1		;Was user dragging to the same window's
		beq	skip13			;icon?
						;User must be confused, so quit the drag.
exit4		brl	pullTaskData		;curWind = TaskData (source window).

skip13		stz	<windTrack+1		;Same window plane flag.

;
; --- Set filetype to desktop if dragging to the desktop --------------------
;
skip15		lda	<windTrack		;Is destination window the desktop?
		cmp	<deskport
		bne	skip9
		lda	<windTrack+1
		cmp	<deskport+1
		bne	skip9

		lda	#1			;Copy to desktop flag.
		sta	ExtCopy			;Destination will be an extended icon.
		stz	<filetype		;Set destination type to desktop.

skip9		jsr	pullTaskData		curWind	= TaskData (source window).

;
; --- Is the destination window	a disk directory? --------------------------- 
;

		lda	<iconTrack+1		Is there already a destination icon?
		bne	skip16			bra if so
		lda	<windTrack+1		Is there a destination window to check?
		beq	skip16			bra if not
		lda	BadDes			Is the destination wdw ok to go to?
		bne	skip16			bra if bad dest - not ok

		lda	<windTrack
		ldx	<windTrack+2
		jsr	getwRefCon2		windBlk	= destination wind's info block.

		ldy	#windIC+2		Handle of icon that opened into	window.
		lda	[<windBlk],y
		tax
		dey
		dey
		lda	[<windBlk],y
		bne	ok16
		txy
		beq	skip16

ok16		sta	<iconTrack		Save handle, just in case.
		stx	<iconTrack+2
		jsr	derefHand		temp = pointer to icon.

		ldy	#icFType		Is dest window from a disk?
		lda	[<temp],y
		sta	<filetype
		bpl	done16			bra if dest wdw is from a folder
		cmp	#TypeFTrash		device of some type
		bcc	ok17			bra if not trash

		jsr	desIsTrash		
		bra	skip16

ok17		ldy	#icFlag			Is icon	really open?
		lda	[<temp],y
		and	#ICOPENED
		bne	skip16			bra if dest icon is open as wdw icon
 
done16		stz	<iconTrack		Not a disk icon.
		stz	<iconTrack+2

		lda	#TypeFolder		Window must have come from a folder.
		sta	<filetype

;
; --- Make sure	there aren't any drag conflicts ----------------------------
;
skip16		jsr	ckConflicts		Check for drag conflicts.
		bcc	ok10			Drag error?
		stz	ExtCopy
		rts				Quit drag if error.

;
; --- Recompute	the deltas if moving to	a new window plane ------------------
;
ok10		lda	ExtCopy			;if icon is going to trash or desktop, don't
		bne	@skip			;empty the trashcan... allow items to accumulate in trash
		
		lda	<iconTrack+1		;if we're going into an icon, empty it
		bne	@newPlane
		
		lda	<windTrack+1		;not going into an icon, and if we also aren't going into
		beq	@skip			;a window, don't empty it
		
		lda	<windTrack		;Is the destination also the source?
		cmp	<TaskData		;if the destination window is the same as the source window,
		bne	@newPlane		;don't empty the trash
		lda	<windTrack+1
		cmp	<TaskData+1
		beq	@skip

@newPlane	lda	<TrashWind		;do not empty Trash if source
		cmp	<TaskData		;is the Trash.
		bne	@empty
		lda	<TrashWind+1
		cmp	<TaskData+1
		beq	@skip
@empty		jsr	EmptyTrashMenu
@skip

		jsr	makeDesPos		;Compute destination point.
						;deltay & deltax = icon's position change.

		stz	diffVolumes		init: source & dest vols are the same

;
; --- Before calling CopyFiles,	make sure it is	a copy file ------------------
;
		lda	ExtCopy			;Extended copy?
		beq	@notExtended		;Not a disk copy if extended.
		brl	skipCopy		;but don't bring the window to the front
		
@select		pushZlong <taskData
		_SelectWindow
		brl	skipCopy
@notExtended		

		lda	<windTrack+1		;Just moving within the same window?
		ora	<IconTrack+1
		beq	@select			;If yes, no need to copy.

		lda	<filetype
		beq	RegularProgram		;bra if ???   (dragging to desktop, I think 7-Jul-92 DAL)
		bmi	RegularProgram		;bra if a device of some type
	
;		
; Now, we know we are going to a destination icon -- is it a drop folder?
;
		lda	<iconTrack+2
		sta	<icHand+2
		lda	<iconTrack
		sta	<icHand

		jsr	SetIc			;deref ichand		
		ldy	#icFileInfo
		lda	[<ic],y
		cmp	#$0004			; is it a drop box?
		bne	RegularProgram

;
; Now we are going to a drop box
;
		lda	#rasCantSee
		jsl	doAlertWindow
		bne	regularProgram
		sec				; cancel drag
		rts
RegularProgram
		lda	<filetype		;Is there a destination icon?
		bpl	doCopy			;Not if zero. Copy files if dest is a folder?

		lda	dragDisk		;Is a disk being dragged to the disk?
		bne	skipCopy		;If so, it's a dup disk.

;
; Copy files being dragged
;
doCopy		jsr	copyFiles		sets diffVolumes if source/dest vols diff

*** Added - 19-Jan-93 JCM - This forces all of the open windows on the boot volume (the one we just
***			    magic routed files on) to update. It's a heck of a lot smaller than
***			    trying to remember the individual windows to update, and it's a lot
***			    more reliable as well.

		IMPORT	GetBootVolume
		import	c1_bootname
		import	WStringCopy

		lda	magicToDo		;did we do any special routing?
		beq	noRouting

		jsl	GetBootVolume		;for UpdateBootWindows so we only need to call this once

		PushLong #c1_bootname
		PushLong #C1_PathName
		jsl	WStringCopy

		lda	#DirWindID		; find all directory windows
		ldx	#UpdateBootWindows		; from the boot volume only
		jsr	walkWindow

		clc
		
		rts
		
*===============================================*
* Update All Directory Windows for the Boot Volume	*
*						*
* Called by walkWindows				*		
*===============================================*
UpdateBootWindows NAME

		IMPORT	UpdateWindow
		IMPORT	matchRootName

		jsr	matchRootName
		bcc	@nextWindow

		jsr	UpdateWindow		; update this window always

@nextWindow	clc				; continue flag

		rts

noRouting	lda	diffVolumes

*** end - 19-Jan-93 JCM

		beq	@notCopy
		
		lda	<iconTrack+1
		beq	@notCopy
		lda	<windTrack+1
		bne	@notCopy

		lda	<iconTrack
		sta	<icHand
		lda	<iconTrack+2
		sta	<icHand+2
		
		jsr	setic			;deref it without locking it
		
		ldy	#icDisk			
		lda	[<ic],y
		sta	<icHand
		iny
		iny
		lda	[<ic],y
		sta	<icHand+2
		
		jsr	lockic
		
		ldy	#icFlag
		lda	[<ic],y
		and	#icOffline
		bne	@notCopy
		
		jsr	makeIcRoot		;pathname = separator + icName.		
		jsr	GetVolSizes
		jsr	UpdateRootSize
		jsr	unlockic
		
@notCopy	jsr	updateKs		Update info bars and info windows for all windows in path.
skipCopy	jsr	pullTaskData		curWind	= TaskData (source window).

;
;  curWind = source window plane.
;  windTrack = destination window plane.  windTrack+1 =	zero if	none.
;  IconTrack = destination icon	if no destination window, zero if none.
;
; Set up for creating extended icons
;
		ldx	ExtCopy			Is the destination the desktop or Trash?
		beq	skip1			If yes,	I need the source pathname.

		lda	dragDisk		No need	for all	this if	dragging disks.
		bne	skip1

		lda 	<curWind		;if this is from the desktop, no way to
		cmp	<deskPort		;get a source
		bne	@notToTrash
		lda	<curWind+2
		cmp	<deskPort+2
		beq	toTrash
		
@notToTrash	jsr	getwRefCon		windBlk	= source window	info block.
		jsr	getWindPath		pathname = pathname in current info block.
		jsr	path2ticon		ticonobj+icOwner = pathname.

		jsr	pullTaskData		curWind	= TaskData (source window).

		lda	ExtCopy			;Is the destination the Trash?
		bpl	skip1			;no...

toTrash		jsr	doRemove		Check if locked	files are being	tossed.
		bcc	skip1			Did user cancel	operation?
		sec
		stz	ExtCopy			Turn extended copy off.
		rts


skip1		jsr	pullTaskData		curWind	= TaskData (source window).
		jsr	getwRefCon		windBlk	= current window's info block.
		
		ldy	#windView		;Redraw only needed if view by icons.
		lda	[<windBlk],y
		cmp	#viewByName
		bcs	@skip
		lda	diffVolumes		;don't redraw if diffVolumes
		bne	@skip
		jsr	buildRects		Build region of	selected icons.
@skip

;
; rdl 4/13/90: fix BRC# 49639 / WS# DTS 89.0301 (also see fixes below below)
; bug: names with illegal chars are copied to ProDOS, where new icon has illegal name
; fix: the following code avoids drawing the new icon if volumes are different
;    by sending the var dontDraw to findSelect / moveIcons
;
		lda	diffVolumes		;if diff volumes:
		sta	dontDraw		;  redraw icons later (below)
		
		lda	#moveIcons		;Reposition all the selected icons.
		jsr	findSelect

		stz	dontDraw		;reset dontDraw var

;
; --- Recompute	info bar for source window if the source window had something stolen -------
;
		lda	DeleteFlag		;Were any files deleted from source?
		beq	skip401

		stz	DeleteFlag		;Reset flag.

		lda	<curWind		;Recompute info bar for source window.
		ldx	<curWind+2
		jsr	commonSetInfo

;
; --- Compute the region that needs to be redrawn ---------------
;
skip401		stz	ExtCopy			;Turn off extended flag.

		jsr	getwRefCon		;Get source window's info block.

		ldy	#windView		;Redraw only needed if view by icons.
		lda	[<windBlk],y
		cmp	#viewByName
		bcs	@skip
		lda	diffVolumes		;don't redraw if diffVolumes
		bne	@skip
		jsr	offsetRgn
@skip

;
; --- Redraw source window --------------------------------------------
;		
		ldy	#windView		;Redraw only needed if view by icons.
		lda	[<windBlk],y
		cmp	#viewByName
		bcs	skip12
		lda	diffVolumes		;don't redraw if diffVolumes
		bne	skip12

		jsr	redrawList		;Redraw region in 'rectRgn'.
		bra	setData

skip12		jsr	freeRectRgn		;Free the regions.

setData		lda	<curWind
		ldx	<curWind+2
		jsr	newDataSize		;Recompute source window.

;
; If there's no destination window, or if the destination window somehow got closed, don't do
; anything at all, just leave...
;
		lda	<windTrack+1
		beq	done

		lda	<windTrack
		ldx	<windTrack+2
		jsr	newDataSize		;Recompute dest window.

;
; rdl 4/13/90: fix BRC# 49639 / WS# DTS 89.0301  (also see fix above)
; bug: names with illegal chars are copied to ProDOS, where new icon has illegal name
; fix: UpdateWindow causes the new icon to be redrawn with its translated name
;         (if catalog names and icon names donÕt match, it calls AddWindowIcon)
;      walkback2 / drawIcon2 redraws ALL the icons in the window
;
		lda	<windTrack		;Recompute info bar for dest window.
		ldx	<windTrack+2
		jsr	commonSetInfo

		lda	<windTrack
		ldx	<windTrack+2
		jsr	getwRefCon2		;windBlk=dest wdw's info blk; wind=windTrack

		ldy	#windView
		lda	[<windBlk],y
		cmp	#ViewByName
		bge	@alwaysUpdate
		
		lda	diffVolumes		
		beq	done			;bra if same volume: no action necessary
		
@AlwaysUpdate	lda	<windTrack
		ldx	<windTrack+2
		jsr	getwRefCon2		;windBlk=dest wdw's info blk; wind=windTrack
		jsr	UpdateWindow		; update window to reflect new names
		
		lda	<windTrack
		ldx	<windTrack+2
		jsr	getwRefCon2		;windBlk=dest wdw's info blk; wind=windTrack
		sta	<icHand			;  store off handle to first ICONOBJ
		stx	<icHand+2
		pei	<wind+2			;switch drawing plane to our window
		pei	<wind
		_StartDrawing

		lda	#drawIcon2		;inputs: ic = ptr to ICONOBJ; windBlk
		jsr	walkback2		;draw all icons (converts icHand -> ic)
		jsr	endDraw			;restore drawing coords to 0,0
done		rts
; end of rdl 4/13/90 fix

;-----------------------------------------------
;   IN:	   curWind = window to remove from.
; ckDelFlag no longer in use (artifact of having had a Remove menu item in distant past)
; removed 2/15/90 rdl:  always 0 coming in here, so replaced with 0
;	   (ckDelFlag = flag to pass to DeleteFiles:
;			Bit 0 =	0 to just check	if files can be	deleted.
;				1 to actually delete files.
;			Bit 15 = 0 to process the entire list.
;				1 to process only the icon passed.)
;
;  OUT:	   Carry set if	user cancelled.
;
;-----------------------------------------------

doRemove	jsr	getwRefCon		;windBlk = current window's info block.
		ldy	#windID			;Removing from a directory window?
		lda	[<windBlk],y
		cmp	#DirWindID
		beq	ok66

;
; --- Remove from Trash, remove extended icons 
;
		lda	#removeExt
		jsr	walkOfLife3		;Must walk forward!
		rts				;Remove all the deleted icons.

;-----------------------------------------------
removeExt
		ldy	#icFlag			;Is this icon extended and selected?
		lda	[<ic],y
		and	#ICEXTENDED+ICSELECTED
		cmp	#ICEXTENDED+ICSELECTED
		clc
		bne	exit67

		jsr	getExtName		;C1_PathName = ic's icOwner field.
		bcs	exit67			;Pathname error?

		pei	<icHand+2		;Pass handle of icon to delete.
		pei	<icHand
		pea	C1_PathName>>16		;Pass pathname of owner window.
		pea	C1_PathName
		pei	<zero			;Pass flag not to do real remove.
		ldx	#xDeleteFiles
		jsl	FileEntry

exit67		rts				;return error from xDeleteFiles.


;
; --- Normal icon remove ------------------------
;
ok66		jsr	getWindPath		;C1_PathName = pathname of current window.

		ldy	#windIcons+2
		lda	[<windblk],y
		pha
		lda	[<windblk]
		pha
		pea	C1_PathName>>16
		pea	C1_PathName
		pei <zero			;Pass flag not to do real remove.
		ldx	#xDeleteFiles
		jsl	FileEntry

;--- Remove all deleted icons -----------------
		
		rts

; = = =	= = = =	= = = =	= = = =	= = = =	= = = =
;	   Set curWind with TaskData.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =
;
;  OUT:	   curWind = TaskData.
;
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =

pullTaskData
		lda	<TaskData		;Switch to new current plane.
		sta	<curWind
		lda	<TaskData+2
		sta	<curWind+2
		rts

OkToRename	DC.W	0

; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =
;	   Button down in directory window's
;	   content, but	not on an icon.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =
;
;   IN:	   current port	= window that button is	down in	(origin	set).
;	   yrat	= y position of	button down (local to window).
;	   xrat	= x position of	button down (local to window).
;	   curWind = window button went	down in.
;	   TaskData = window button went down in.
;	   modifiers = state of	modifier keys.
;
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =

downIncont

*** Experiment - 21-Jan-93 JCM - I'm now using the IcVisited bit during active selection to indicate
***				 whether the icon was in the previous selection rectangle. The bit
***				 shouldn't be set when we get here, but as Dave said, a little
***				 paranoia never hurt anyone.

		lda	#clearAllVisited	;clear all <curWind icons ICSELECTED bit
		jsr	walkOfLife
		
*** End - 21-Jan-93 JCM

		lda	<modifiers		;Shift key down?
		and	#shiftKey
		bne	skip600			;If yes, don't deselect others.

		lda	#officon		;Deselect all icons in window.
		jsr	walkBack

*** added 19-Aug-92 DAL -- Don't call SelectWindow on the desktop port
		lda	<TaskData+1
		cmp	<deskPort+1
		beq	@noSelect
*** end 19-Aug-92

		pushZLong <taskData		;bring it to front since we're doing
		_SelectWindow			;absolutely squat

@noSelect

;		
; --- Allow user to drag open a	rubber-band box	-------------------------
;
skip600		lda	<yrat			Initialize starting rubber-band	box.
		sta	<dRect+y1
		sta	<dRect+y2
		lda	<xrat
		sta	<dRect+x1
		sta	<dRect+x2

*** Experiment - 20-Jan-93 JCM - Active selection - whooo! :-)

;;		PushPtr DragPortRect
;;		_GetPortRect

		pha
		pha				;for final deltas
		pushlong #activeDragRect	;address of custom action procedure
;;;		lda	<zero
;;;		pha				Pass no	action procedure.
;;;		pha

*** End - 20-Jan-93 JCM

		pea	DragPatt>>16		Pass address of	drag pattern
		pea	DragPatt
		pei	<xrat			Pass starting point.
		pei	<yrat
		jsr	pushrect		Pass address of	RECT to	drag.
		pea	screen2>>16		Pass limit bounds.
		pea	screen2
		pea	screen2>>16		Pass slop bounds.
		pea	screen2
		pea	$0124			;one pixel, return RECT, rubber-band
		_DragRect
		pla				;deltas aren't needed
		pla
						;rect = rubber-band RECT
;
; ------ Select	all icons within the rubber-band box ------------------
;
		stz	iconSelected		Mark 'no icons selected' flag.

		lda	#ckRects		;actually, just see if any icons were selected actively
;;;		jsr	walkBack		;28-Jan-93 JCM - This is a bit speedier, and since we now are not
		jsr	walkOfLife		;28-Jan-93 JCM - selecting icons here, we'll have no problems

		lda	iconSelected		Were any icons selected?
		bne	exit600

; --------- Select the icon that the window came from ----------------

		jsr	ifDesk			Nothing	to select if on	the desktop.
		beq	exit600

		jsr	endDraw			Return selected	window to 0,0 origin.

		ldy	#windIc			Get the	icon that the window came from.
		lda	[<windBlk],y
		sta	<icHand
		iny
		iny
		lda	[<windBlk],y
		sta	<icHand+2
		jsr	lockic

		ldy	#icMom			Switch to that icon's window.
		lda	[<ic],y
		sta	<curWind
		iny
		iny
		lda	[<ic],y
		sta	<curWind+2
		jsr	getwRefCon		windBlk	= window's info block.

		ldy	#icFlag			Select it.
		lda	[<ic],y
		ora	#ICSELECTED
		sta	[<ic],y

		jsr	startDraw
		jsr	drawIcon2		Draw it	in its new state.
		jsr	unlockic

exit600		brl	endDraw			Return window to 0,0 origin (EXIT).

*** Experiment - 20-Jan-93 JCM - Make sure all icons have this bit clear before we start.

clearAllVisited	ldy	#icFlag+2
		lda	[<ic],y
		and	#Å(ICVISITED)>>16	;clear visited bit
		sta	[<ic],y
		
		clc				;check all icons

		rts

****************************************************************************************
*
* activeDragRect - This code is called as a custom action procedure by DragRect above.
*		   It handles auto icon selection much like Macintosh System 7 Finder.
*		   Its work-horse code is the walkOfLife-called function, 'checkActiveRects',
*		   which directly handles the icon selection/deselection.
*

activeDragRect	

		IMPORT	QDBank
		IMPORT	FinderDPage
	
@longReturn	equ	$4
@dataBank	equ	$3
@directPage	equ	$1

top		equ	0
left		equ	2
bottom		equ	4
right		equ	6

		phd				Save original direct page.
		
		phb				Save original data bank.

		phk				Switch to my data bank.
		plb

		lda	FinderDpage		Switch to my direct page.
		tcd
		
;;		PushPtr	CurMouseLoc
;;		_GetMouse
		
;;		pha
;;		PushPtr	CurMouseLoc
;;		PushPtr	DragPortRect
;;		_PtInRect
;;		pla
;;		bne	@noScrolling

;;		ldy	#0			;vert scroll distance
;;		tyx				;horz scroll distance
		
;;		lda	DragPortRect+bottom
;;		cmp	CurMouseLoc+top
;;		bge	@noVertScrolling
;;		bmi	@goingDown
		
;;		ldy	#-2
		
;;@goingDown	iny
		
;;@noVertScrolling lda	DragPortRect+right
;;		cmp	CurMouseLoc+left
;;		bge	@checkScroll
;;		bmi	@goingRight
		
;;		ldx	#-4
		
;;@goingRight	inx
;;		inx
		
* Now that we've checked in both the horizontal and vertical directions for scroll deltas, lets see if we
* actually have non-zero deltas. If we don't, then skip the scroll stuff entirely.
		
;;@checkScroll	tya		
;;		bne	@goScroll		;vertical is non-zero, so scroll
		
;;		txa
;;		beq	@noScrolling		;whoops, vert is zero too, don't scroll

;;@goScroll	pea	1			;scroll the content region
;;		phx
;;		phy

;;		jsr	ValidateMove

;;		jsr	redrawDragRect		;remove the rect because we don't want splooge on redraw below
		
;;		pei	<curWind+2		;window to check
;;		pei	<curWind
;;		_SetContentOrigin2
		
;;		jsr	redrawDragRect		;remove the rect because we don't want splooge on redraw below

@noScrolling	stz	removedDragRect		;we haven't removed the rect yet

;;		pei	<curWind+2		;window to check
;;		pei	<curWind
;;		_StartDrawing
		
		lda	#checkActiveRects	;check all icons to see if any of them are in the
		jsr	walkOfLife		; current drag rect

		lda	removedDragRect		;did checkActiveRects removed the xor box?
		beq	@exitActiveDrag		; nope, don't turn it off accidentally

		jsr	redrawDragRect		;turn it back on
	
@exitActiveDrag	plb
		
		pld

		rtl				;return to DragRect.

;;ValidateMove	NAME

;;		pha
;;		pha
;;		pei	<curWind+2
;;		pei	<curWind
;;		_GetContentOrigin
;;		pla
;;		sta	OrigOrigin+top
;;		sta	OrigOrigin+bottom
;;		pla
;;		sta	OrigOrigin+left
;;		sta	OrigOrigin+right

;;		pha
;;		pha
;;		pei	<curWind+2
;;		pei	<curWind
;;		_GetDataSize
;;		pla
;;		clc
;;		adc	OrigOrigin+bottom
;;		sta	OrigOrigin+bottom
;;		pla
;;		clc
;;		adc	OrigOrigin+right
;;		sta	OrigOrigin+right
		
;;		pha
;;		pha		
;;		lda	9,s			;delta horz
;;		clc
;;		adc	OrigOrigin+left
;;		pha
;;		lda	9,s			;delta vert
;;		clc
;;		adc	OrigOrigin+top
;;		pha
;;		PushPtr	OrigOrigin
;;		_PinRect
;;		pla
;;		sta	5,s			;new horz origin
;;		pla	
;;		sta	5,s			;new vert origin
		
;;		rts

redrawDragRect	pei	<dRect+x1		;get into place
		pei	<dRect+y1
		_MoveTo

		lda	<dRect+x2		;draw top
		dec	a
		dec	a
		pha
		pei	<dRect+y1
		_LineTo

		pea	0			;move down one
		pea	1
		_Move

		lda	<dRect+x2		;draw right
		dec	a
		dec	a
		pha
		lda	<dRect+y2
		dec	a
		pha
		_LineTo

		pea	-2			;move left two
		pea	0
		_move

		pei	<dRect+x1		;draw bottom
		lda	<dRect+y2
		dec	a
		pha
		_LineTo
	
		pea	0			;move up one
		pea	-1
		_Move

		pei	<dRect+x1		;draw left
		lda	<dRect+y1
		inc	a
		pha
		_LineTo
	
		rts

;;DragPortRect	DS.W	4
;;CurMouseLoc	DS.W	2
;;OrigOrigin	DS.W	4

****************************************************************************************
*
* checkActiveRects - This handles auto icon selection as the DragRect rubber-band
*		     is moved about the desktop or within a window. This works just
*		     like the Macintosh System 7 Finder.
*
* We do something like this:
*
* - Is icon in current rect?
* 	- Yes, was it in the rect last time (ICVISITED = 1)?
* 		- No, invert ICSELECTED & ICVISITED, redraw and exit
* 		- Yes, icon is already selected, do nothing and exit	
*
*	- No, was it in the rect last time (ICVISITED = 1)?
*		- Yes, invert ICSELECTED & ICVISITED, redraw and exit
*		- No, icon is already unselected, do nothing and exit
*
* So we don't have cursor splooge on the screen as we hilight and unhilight icons,
* we remove the rubber-band selection if the icon we are to redraw now falls within
* the rubber-band rectangle. %%% We could make this look a bit better by clipping to
* the intersection with the icon we are redrawing.
*

checkActiveRects

		IMPORT	OldCheckRectHit

		ldy	#-1			;gets rid of boundary cases where the rect is empty
		jsr	InsetDRect		; when the sides coincide

		jsr	OldCheckRectHit		;is icon in current rect?
		php				;I wish this bloody thing returned status in carry...

		ldy	#1			;we shouldn't destroy the rect
		jsr	InsetDRect

		ldy	#icFlag+2		;previous in-icon status
		lda	[<ic],y
	
		plp
		beq	@outOfCurRect		; nope, not in the current xor box

		and	#ICVISITED>>16		;were we previously in the rect?
		bne	@ignore			; yep, no need to redraw it the same way
		
		bra	@invertIt		; nope, we need to change the visible state
		
@outOfCurRect	and	#ICVISITED>>16		;were we in the rectangle last time?
		beq	@ignore			; nope, no need to redraw it the same way

* Whatever the icon's visible and in-selection-rectangle state were, make them the opposite, since
* we just moved into or out of the selection rectangle.

@invertIt	lda	[<ic],y			;icFlag+2
		eor	#ICVISITED>>16		;swap in-selection-rectangle-last-time flag
		tax
		dey
		dey
		lda	[<ic],y
		eor	#ICSELECTED		;swap the current hilight state

@saveNewBits	sta	[<ic],y			;icFlag
		iny
		iny
		txa
		sta	[<ic],y			;icFlag+2
		and	#ICVISITED>>16		;are we still in the rect?
		beq	@redrawIcon		; nope, no need to remove drag rect - no splooge possible
		
		bit	removedDragRect		;did we already remove it?
		bne	@redrawIcon		; yup, don't turn it back on yet

		sta	removedDragRect		;anything non-zero

		jsr	redrawDragRect		;remove the rect because we don't want splooge on redraw below
		
@redrawIcon	jsr	cutIconToHead		;%%% this may be bad if <ic isn't updated
		
		jsr	drawIcon2		;redraw it in its new state

@ignore		clc				;walk all of the icons
	
		rts

InsetDRect	pea	0			;gets rid of boundary cases where the rect is empty
		tdc				; when the sides coincide
		clc
		adc	#DRect
		pha
		phy
		phy
		_InsetRect

		rts

origDRectLeft	ds.w	1			;17-Mar-93 JCM
origDRectTop	ds.w	1			;2-Apr-93 JCM
removedDragRect	ds.w	1

*** End - 20-Jan-93 JCM

*******************************************************************************************************
*
* ckRects - See if any icons in the current window are selected. If they are, iconSelected will be
*	    non-zero, and will contain the count of icons that were selected. As the icons are checked,
*	    the IcVisited bit of each is cleared.
*
* NOTE: This is a function that is designed to be called by walkOfLife. 
*
		export	ckRects
ckRects		

*** Experiment - 20-Jan-93 JCM - So active icon selection above works.

;;;		IMPORT	OldCheckRectHit		; JAM 06/04/89  mod of DJB fix:  see util.aii
;;;		jsr	OldCheckRectHit		Check if this icon was in the box.
;;;		beq	exitck			Was there any intersection?
;;;
;;;selectit	ldy	#icFlag			Flip the icon's selection state.
;;;		lda	[<ic],y
;;;		eor	#ICSELECTED
;;;		sta	[<ic],y
;;;
;;;		jsr	drawIcon2		Redraw in new state.

*** End - 20-Jan-93 JCM

exitck		ldy	#icFlag			Do we end up with any selected icons?
		lda	[<ic],y
		and	#ICSELECTED
		beq	exitck2

		inc	iconSelected		There are selected icons in this window.

;;;exitck2	rts				;28-Jan-93 JCM - Let's do double-duty and clear all of the
exitck2		brl	clearAllVisited		;28-Jan-93 JCM - IcVisited bits while we're walking

; = = =	= = = =	= = = =	= = = =	= = =
;	   Offset rectRgn.
; = = =	= = = =	= = = =	= = = =	= = =
;
;   IN:	   rectRgn = handle of region to offset.
;	   tempRgn = handle of temp region.
;	   deltay2 = y offset.
;	   deltax2 = x offset.
;
; = = =	= = = =	= = = =	= = = =	= = =
		EXPORT	offsetRgn
offsetRgn		

		pei	<rectRgn+2		;Clone the original region.
		pei	<rectRgn
		pei	<tempRgn+2
		pei	<tempRgn
		_CopyRgn

		pei	<tempRgn+2		;Move the region to the new position.
		pei	<tempRgn
		lda	deltax2			;Delta x.
		pha
		lda	deltay2			;Delta y.
		pha
		_OffsetRgn

		pei	<rectRgn+2		;Add the region at the starting position
		pei	<rectRgn		;to the region at the new position.
		pei	<tempRgn+2		;The result is the total area that
		pei	<tempRgn		;needs to be redrawn.
		pei	<rectRgn+2
		pei	<rectRgn
		_UnionRgn
		
		jsr	freeTempRgn
		rts

; = = =	= = = =	= = = =	= = = =	= = = =	= = = =
;	   Update window's info
;	   and content if view by text.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =
;
;   IN:	   a and x = pointer to	window.
;
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =

		IMPORT	setInfo
		IMPORT	newDataSize2
commonSetInfo
		cmp	<deskport		Is the window the desktop?
		bne	ok500
		cpx	<deskport+2
		beq	exit500

ok500		jsr	setInfo2

		ldy	#windView		Resort and draw	destination window if
		lda	[<windBlk],y		view is	text.
		cmp	#viewByName
		bcc	exit500

		jsr	redrawText
		jsr	newDataSize2
exit500		rts

*** Added - 22-Jan-93 JCM - This code is now called by key nav and the new active icon selection
***			    stuff when an icon is selected.

		EXPORT	cutIconToHead

cutIconToHead	ldy	#icLast+1		Already	at head	of list?
		lda	[<ic],y
		beq	@exitCutToHead

		jsr	cutIcon			Remove icon from list.
		jsr	HeadIcon		Add icon at head of list.

@exitCutToHead	

		rts
	
*** End - 22-Jan-93 JCM	
	
; = = =	= = = =	= = = =	= = = =	= = = =	= =
;	   Add icon to head of list.
; = = =	= = = =	= = = =	= = = =	= = = =	= =
;
;   IN:	   ic =	icon to	place at head.
;	   icHand = ic's handle.
;	   curWind = window owner.
;
;  OUT:	   temp	= trash.
;
; = = =	= = = =	= = = =	= = = =	= = = =	= =

		EXPORT	HeadIcon
HeadIcon	
		jsr	getwRefCon		Get handle of first icon.
		sta	<temp
		stx	<temp+2

		sta	[<ic]
		ldy	#icNext+2
		txa
		sta	[<ic],y

		ldy	#icLast			Zero out icLast	field of new first icon.
		lda	<zero
		sta	[<ic],y
		iny
		sta	[<ic],y

		lda	<temp+1			Is there a first icon?
		beq	setHead

		jsr	derefTemp		temp = (temp).

		ldy	#icLast
		lda	<icHand
		sta	[<temp],y
		iny
		lda	<icHand+1
		sta	[<temp],y

setHead		ldx	<icHand+2		Replace	the handle of the first	icon
		lda	<icHand			in the window.


; = = =	= = = =	= = = =	= = = =	= = = =	=
;	   Set head of ICONOBJ list.
; = = =	= = = =	= = = =	= = = =	= = = =	=
;
;   IN:	   a = low word	of ICONOBJ handle.
;	   x = high word of ICONOBJ handle.
;	   curWind = window.
;
;  OUT:	   windblk = pointer to	window's info block.
;
; = = =	= = = =	= = = =	= = = =	= = = =	=

		EXPORT	setIconHead
setIconHead		
		pha				Save new head of ICONOBJ list.
		phx

		jsr	getwRefCon

		ldy	#windIcons+2		Set new	icon handle.
		pla
		sta	[<windblk],y
		pla
		sta	[<windblk]
		rts

; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= =
;	   Compute parameters for icon
;	   that	is destination of drag.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= =
;
;   IN:	   IconTrack = handle of icon that is destination icon.
;
;  OUT:	   IconTrack is	deselected (was	selected from tracking code).
;	   filetype = IconTrack's icFType field.
;	   windTrack = window that IconTrack has opened	into (could be zero).
;	   curWind = Trash.
;	   windBlk = Trash.
;
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= =

		IMPORT	magicToDo		;in data.aii - 18-Jan-93 JCM

getDesIcon

		lda	<IconTrack		Dereference destination	icon.
		sta	<icHand
		lda	<IconTrack+2
		sta	<icHand+2
		jsr	lockic

		ldy	#icMom			Destination icon's parent window.
		lda	[<ic],y
		sta	<curWind
		iny
		iny
		lda	[<ic],y
		sta	<curWind+2

		jsr	startDraw
		jsr	offIcon2		Deselect the icon the destination icon,
		jsr	endDraw			cause the track	routine	left it	on.

		jsr	unlockic		Unlock IconTrack.

		ldy	#icFType
		lda	[<ic],y
		sta	<filetype		Pass the des. filetype to moveIcons.
		cmp	#TypeFTrash		Trash can?
		bcc	skip7

		EXPORT	desIsTrash
desIsTrash		;		

		lda	#$FFFF
		sta	ExtCopy			Destination will be an extended	icon.

		lda	<TrashWind
		ldx	<TrashWind+2

		bra	store7
 
*** 18-Jan-93 JCM - This addition supports the magic routing code in file.aii. It tells it that
***		    the destination icon is or is not the System folder.
 
skip7		cmp	#$000F			;we're looking for the System folder, is this it?
		bne	getIconsWindow
		
		ldy	#icAuxType		;the System folder has a special auxType of $0002
		lda	[<ic],y			;let's see if this is it
		dec	a
		dec	a		
		bne	getIconsWindow

		dec	magicToDo		;signal to magic code that we're copying to the System folder

getIconsWindow	ldy	#icWind+2		;use its open window as the destination.

*** end 18-Jan-93 JCM

		lda	[<ic],y
		tax
		dey
		dey
		lda	[<ic],y
store7		sta	<windTrack
		stx	<windTrack+2
		
		rts

; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =
;	   Check drag conflicts, tell user.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =
;
;   IN:	   curWind = pointer to	source window.
;	   windTrack = destination window, zero	if same	as source.
;
;  OUT:	   Carry clear if OK, set if drag error.
;
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =
ckConflicts

		IMPORT	WStringCopy

;
; --- Count number of items being dragged, set flags for types ---------------
;
		stz	dragDisk		Initialize number being	dragged.
		stz	dragFile
		stz	dragTrash
		stz	dragExt
		stz	dragDrive
		stz	dragFolder
		stz	dragNetwork

		lda	#countDrag		Count types and	number of icons	dragged.
		jsr	findSelect

;
; --- Find out the destination type ------------------------------------------
;
		lda	<windTrack+1		Is there a destination window?
		beq	skip700

		lda	<windTrack
		ldx	<windTrack+2
		jsr	getWindID
		cmp	#NoWindID		Is the destination the desktop?
		bne	next700			If yes,	then OK.

		lda	dragNetwork		Network item being dragged todesktop?
		beq	skip700
		lda	#rasSharedVol		Tell user that can't be done.
		brl	err700

next700		cmp	#DirWindID		Is the destination a directory window?
		beq	skip700			If yes,	then OK.
		cmp	#TrashWindID		Is the destination the Trash window?
		beq	skip700			If yes,	then OK.

		lda	#rasDesErr		Icons can't be dragged on to windows...
goErr700	brl	err700

;
; --- Check for	dragging floppy	drives ------------------------------------- 
;
skip700		lda	<windTrack+1		Dragging to any	other plane?
		ora	<iconTrack+1
		beq	next701			If not,	ok to drag drives. 
;
; --- Floppy drive being dragged somewhere other than desktop --------------
; 
		lda	#rasDragErr4		'Drive icons cannot be moved onto...'
		ldx	dragDrive		Any drive icons	being dragged?
		bne	goErr700
;
; --- Trash icon being dragged somewhere other than desktop ----------------
; 
		lda	#rasDragErr1		"Trash can not be moved	to windows
		ldx	dragTrash
		bne	goErr700

;
; --- Check for dragging onto a disk icon which is locked ------------------
;
next701		lda	<Taskdata		;are they moving from the trash back to someplace else?
		cmp	<TrashWind	
		bne	@notFromTrash
		lda	<TaskData+2
		cmp	<TrashWind+2
		beq	@goDestNotIcon

@notFromTrash	lda	<windTrack+1
		beq	@CheckIconRO

		lda	<windTrack		;is the destination window the desktop?  If so, don't check
		cmp	<deskPort		;to see if the desktop is read-only or locked.
		bne	@notToDesktop
		lda	<windTrack+2
		cmp	<deskPort+2
		bne	@notToDesktop
@goDestNotIcon	brl	@destNotIcon

@notToDesktop	pushZLong <ic			;make ic into a pointer to the window block
						;(gak)
		pha
		pha
		pushZLong <windTrack
		_GetWRefCon
		pulllong <ic

		ldy	#windFST
		lda	[<ic],y
		tay
		jsl	IsReadOnly
		bcc	@windowNotRO
		
		lda	dragFile		;are we dragging files or folders to the
		ora	dragFolder		;read-only destination disk?
		bne	@readOnly		;if so, tell them they are naughty

		lda	dragDisk		;but, if we're dragging a disk to the RO dest disk,
		beq	@readOnly
@goDiskNotDest	brl	@diskNotDest		;then we can't warn them... because they might be doing disk-to-disk

@readOnly	lda	#windPath
		clc
		adc	<ic
		tax
		lda	<ic+2
		adc	<zero
		pha
		phx
		pushlong #c1_filename
		jsl	WStringCopy
		sec
		lda	#rasDragReadOnly
		brl	@out
;
; Now that we know the window we dragged into isn't a window connected to a disk with a read-only
; file system, see if the root icon for this window is locked.
;
@windowNotRO	ldy	#windDiskIc
		lda	[<ic],y
		tax
		iny
		iny
		lda	[<ic],y
		sta	<ic+2
		stx	<ic
		bra	@checkForLocked
	
;
; See if we dragged onto an icon, and if we did, check first to see if the icon is from a disk with a
; read-only file system.  Then check to see if the icon is on a disk which is currently locked.
;
@CheckIconRO	lda	<iconTrack+1
		bne	@destIsIcon
		brl	@destNotIcon
@destIsIcon
	
		pushZLong <ic
		
		lda	[<IconTrack]
		sta	<ic
		ldy	#2
		lda	[<IconTrack],y
		sta	<ic+2
	
		ldy	#icFST			;is the destination icon from a read-only file
		lda	[<ic],y			;system?
		tay
		jsl	isReadOnly
		bcc	@iconNotRO
	
		lda	dragFile		;are we dragging files or folders to the
		ora	dragFolder		;read-only destination disk?
		bne	@readOnly2		;if so, tell them they are naughty

		lda	dragDisk		;but, if we're dragging a disk to the RO dest disk,
		bne	@diskNotDest		;then we can't warn them...

@readOnly2	lda	#icName
		clc
		adc	<ic
		tax
		lda	<ic+2
		adc	<zero
		pha
		phx
		pushlong #c1_filename
		jsl	PToWString
		sec
		lda	#rasDragReadOnly
		bra	@out

;
; Now that we know the icon we dragged into isn't an icon connected to a disk with a read-only
; file system, see if the root icon for this icon is locked.
;
@iconNotRO	ldy	#icDisk			
		lda	[<ic],y
		tax
		iny
		iny
		lda	[<ic],y
		sta	<ic+2
		stx	<ic

@checkForLocked	lda	[<ic]
		tax
		ldy	#2
		lda	[<ic],y
		sta	<ic+2
		stx	<ic
				
		ldy	#icFlag
		lda	[<ic],y
		and	#icLocked
		beq	@diskNotDest

		lda	#icName
		clc
		adc	<ic
		tax
		lda	<ic+2
		adc	<zero
		pha
		phx
		pushlong #c1_filename
		jsl	PToWString
		sec
		lda	#rasDragLocked
		bra	@out
		
@diskNotDest	clc
@out		plx
		stx	<ic
		plx
		stz	<ic+2
		bcs	err700

;
; ------ Disk is being dragged ---------------------------------------------
;
@destNotIcon	lda	dragDisk		Are any	disk icons being dragged?
		beq	exit701

		lda	#rasDragErr2		"Only disk icons can be	dragged	in
;					       this operation."
; Disk dragged to desktop:
;
		ldx	<filetype
		beq	exit701			Is destination the desktop?
;
; Disk draggged	to Trash:
;
		ldx	<filetype
		cpx	#TypeFTrash
		bcs	ckFiles700		OK dragging to trash, if no files too.
;
; Disk dragged to folder:
; 

		cpx	#$000F
		beq	err700			Dragging to a folder is	an error.

;
; Disk being dragged to	another	disk:
;
		txy
		bpl	err700			;used to be err700
 
ckFiles700	lda	#rasDragErr3		'Files can not be draged with disks.'
		ldx	dragFolder		;can't drag folders with disks
		bne	err700
		ldx	dragFile		Dragging to another disk,
		beq	exit701			can only drag disks.

err700		jsl	doAlertWindow
		pla				; button value		
		sec				Quit drag flag.
		rts

exit701		clc				OK flag.
		rts
	
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = =
;	   Recompute the deltas	if moving
;	   to a	new window plane.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = =
;
;   IN:	   yrat	= local	y starting position.
;	   xrat	= local	x starting position.
;	   yoffset = source's y offset to global.
;	   xoffset = source's x offset to global.
;	   windTrack = destination window, zero	if none.
;	   iconTrack = destination icon, zero if none.
;	   deltay = amount cursor dragged vertically.
;	   deltax = amount cursor dragged horizontally.
;
;  OUT:	   deltay = change in vertical position	to new window plane.
;	   deltax = change in horizontal position to new window	plane.
;
makeDesPos

;
; --- Only use destination position if dragging	directly to another window ----
;
		lda	<windTrack+1		Is there even a	destination window?
		beq	exit800			If not,	can't be dragging directly.

		lda	intoIcon		Destination an icon?
		bne	exit800			If yes,	not dragging directly to window.
;
; ------ Compute position in destination window	------------------------------
;
		lda	<windTrack		Switch to destination window's coordinate
		ldx	<windTrack+2		system.
		jsr	startDraw2

		ldx	#x1
lop800		lda	<yrat,x			Starting position,
		clc
		adc	<yoffset,x		plus source offset equals global,
		clc
		adc	deltay,x		plus amount of change equals
		sta	deltay,x		destination global position.
		dex
		dex
		bpl	lop800

		pea	deltay>>16		Convert	the global destination
		pea	deltay			position into the destination
		_GlobalToLocal			local position.

		lda	deltay			The destination	local,
		sec
		sbc	<yrat			less the source	local,
		sta	deltay			equals the position change.

		lda	deltax
		sec
		sbc	<xrat
		sta	deltax

		jsr	endDraw

exit800		rts


; = = =	= = = =	= = = =	= = = =	= = = =
;	   Copy	dragged	icons.
; = = =	= = = =	= = = =	= = = =	= = = =
;
;   IN:	   TaskData = source window.
;	   windTrack = destination window, if there is one.
;	   IconTrack = destination icon, if there is one.
;
; = = =	= = = =	= = = =	= = = =	= = = =
copyFiles
		lda	<TaskData		Get info block for source window.
		ldx	<TaskData+2
		jsr	getwRefCon2

; --- Make sure	all extended icons being copied are from same disk ---------

		lda	dragExt			Are extended icons being copied?
		bne	doExtCopy
		brl	copyFiles3

doExtCopy	stz	C1_PathName		Mark 'no names checked'.

		lda	#sameDisk		Check if all from same disk.
		jsr	walkOfLife3
		bcs	exit950			If error, don't perform copy. 

		lda	#copyExt		Call copy file one at a	time.
		brl	walkOfLife3		Must walk forward!


; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= =
;	   Check if all	selected icons
;	   are extended	and from same disk.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= =
; Call by walkOfLife.
;
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= =
sameDisk
		IMPORT	PathGetRoot
		IMPORT	PathToPStr
		IMPORT	PStringCompare		
		
		ldy	#icFlag			; only check selected icons
		lda	[<ic],y
		and	#ICSELECTED
		beq	exit950

		lda	[<ic],y			; only extended icons can be moved
		and	#ICEXTENDED
		beq	error950

		lda	C1_PathName		; is this the first icon ?
		bne	skip950

		jsr	getExtName		; C1_PathName = icOwner field
		bcs	error950		; pathname error

		PushLong #C1_VolName
		PushLong #C1_PathName
		jsl	PathGetRoot		; get just the root name
		PushLong #C1_VolName
		PushLong #C1_TempPath
		jsl	PathToPStr		; convert to Pascal string
		bra	exit950

skip950		jsr	getExtName		; C1_PathName = icOwner field.
		bcs	error950		; Pathname error?
		jsr	getRootName		; lastName = pathname root, no separator, 

		pha
		PushLong #lastName
		PushLong #C1_TempPath
		jsl	PStringCompare
		pla
		beq	error950		; did not match

exit950		clc
		rts

;
; ERROR: dragging extended icons from different disks to a disk
;
error950	lda	#rasCopyErr
		jsl	doAlertWindow
		sec				; Quit walk
		rts

; = = =	= = = =	= = = =	= = = =	= = = =	=
;	   Copy	extended icons.
; = = =	= = = =	= = = =	= = = =	= = = =	=
; Call by walkOfLife.
;
; = = =	= = = =	= = = =	= = = =	= = = =	=

copyExt		ldy	#icFlag			Is this	icon extended and selected?
		lda	[<ic],y
		and	#ICEXTENDED+ICSELECTED
		cmp	#ICEXTENDED+ICSELECTED
		bne	exit900

		pei	<icHand+2		Save.
		pei	<icHand
		pei	<ic+2
		pei	<ic
		jsr	copyFiles2
		pla
		sta	<ic
		pla
		sta	<ic+2
		pla
		sta	<icHand
		pla
		sta	<icHand+2

		lda	functionKey		Let copy files know the	next time that
		ora	#$8000			I'm in a loop copying extended icons.
		sta	functionKey
		rts				Carry is returned from CopyFile.

exit900		clc
		rts

		INCLUDE	'Icons2.aii'
		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Finder/icons.rez b/IIGS.601.SRC/A.U.G/Finder/icons.rez
new file mode 100644
index 0000000..fc9d89c
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Finder/icons.rez
@@ -0,0 +1 @@
+
//-----------------------------------------------------------------------------------
// icons.rez
//
// Copyright 1991-93, Apple Computer, Inc.
//
// 3/16/91, andy
// 24-Mar-93 JCM - Added new icons for File Type Descriptor files
// 25-Mar-93 JCM - Added my DiskCopy icons.
// 
//-----------------------------------------------------------------------------------

// -- Icon Matching definitions

resource rBundle (1, Preload, noSpecialMemory) {
	1,								// rIcon ID for finder
	1,								// rBundle ID of this rBundle
	{								// OneDoc structures
			
	/*------------- icon for drop folder ----------------------------------------*/

			{
			DontLaunch,				// don't launch this
			{0},					// rFinderPath ID
			{ICON_00000013},		// rIcon ID for big icon
			{ICON_00000113}			// rIcon ID for small icon
			},
		
			FileType|NetworkAccess,		// match by filetype only for matchflags
			
			MatchFileType {{
				$0f				// match filetype for folder
			}},

			empty{},			// no auxtype stuff	
			empty{},			// no name
			empty{},			// no create date
			empty{},			// no mod date
			empty{},			// no access bits
			
			matchNetworkAccess {{
				$00000007,			// mask only user summary stuff
				$00000004,			// want 'make changes' & !see files !see folders
			}},
			
			empty{},			// no storage type
			empty{},			// no HFS filetype
			empty{},			// no HFS creator type
			empty{},			// no option_list stuff
			empty{};			// no eof stuff

	/*------------- icon for owner's folder ----------------------------------------*/
		
			{
			DontLaunch,				// don't launch this
			{0},					// rFinderPath ID
			{ICON_00000014},		// rIcon ID for big icon
			{ICON_00000114}			// rIcon ID for small icon
			},
		
			FileType|NetworkAccess,		// match by filetype only for matchflags
			
			MatchFileType {{
				$0f				// match filetype for folder
			}},
					
			empty{},			// no auxtype stuff	
			empty{},			// no name
			empty{},			// no create date
			empty{},			// no mod date
			empty{},			// no access bits

			matchNetworkAccess {{
				$00000080,			// mask only user summary stuff
				$00000080,			// want owner
			}},

			empty{},			// no storage type
			empty{},			// no HFS filetype
			empty{},			// no HFS creator type
			empty{},			// no option_list stuff
			empty{};			// no eof stuff

	/*------------- icon for system folder ----------------------------------------*/
		
			{
			DontLaunch,				// don't launch this
			{0},					// rFinderPath ID
			{ICON_00000012},		// rIcon ID for big icon
			{ICON_00000112}			// rIcon ID for small icon
			},
		
			FileType|AuxType,		// match by filetype only for matchflags
			
			MatchFileType {{
				$0f				// match filetype for folder
			}},
	
			MatchAuxType {{
				$0000FFFF,		// mask for only low word
				$00000002		// match for system file
			}},
				
			empty{},			// no name
			empty{},			// no create date
			empty{},			// no mod date
			empty{},			// no access bits
			empty{},			// no network access bits
			empty{},			// no storage type
			empty{},			// no HFS filetype
			empty{},			// no HFS creator type
			empty{},			// no option_list stuff
			empty{};			// no eof stuff

	/*------------- icon for regular folder ----------------------------------------*/
		
			{
			DontLaunch,				// don't launch this
			{0},					// rFinderPath ID
			{ICON_00000015},		// rIcon ID for big icon
			{ICON_00000115}			// rIcon ID for small icon
			},
		
			FileType,				// match by filetype only for matchflags
			
			MatchFileType {{
				$0f				// match filetype for folder
			}},

			empty{},			// no auxtype
			empty{},			// no name
			empty{},			// no create date
			empty{},			// no mod date
			empty{},			// no access bits
			empty{},			// no network access bits
			empty{},			// no storage type
			empty{},			// no HFS filetype
			empty{},			// no HFS creator type
			empty{},			// no option_list stuff
			empty{};			// no eof stuff

	/*------------- icon for fonts ------------------------------------------------*/
		
			{
			DontLaunch,				// don't launch this
			{0},					// rFinderPath ID
			{ICON_00000011},		// rIcon ID for big icon
			{ICON_00000111}			// rIcon ID for small icon
			},
		 
			FileType,				// match by filetype only for matchflags
			
			MatchFileType {{
				$c8				// match filetype for font
			}},
	
			empty{},			// no auxtype
			empty{},			// no name
			empty{},			// no create date
			empty{},			// no mod date
			empty{},			// no access bits
			empty{},			// no network access bits
			empty{},			// no storage type
			empty{},			// no HFS filetype
			empty{},			// no HFS creator type
			empty{},			// no option_list stuff
			empty{};			// no eof stuff

	/*------------- icon for File Type Descriptor file - Moof! ----------------------*/
		
			{
			DontLaunch,				// don't launch this
			{0},					// rFinderPath ID
			{ICON_0000003D},		// rIcon ID for big icon
			{ICON_00000135}			// rIcon ID for small icon
			},
		
			FileType,			// match by filetype only for matchflags
			
			MatchFileType {{
				$42				// match filetype for file type descriptors
			}},
	
			empty{},			// no auxType
			empty{},			// no name
			empty{},			// no create date
			empty{},			// no mod date
			empty{},			// no access bits
			empty{},			// no network access bits
			empty{},			// no storage type
			empty{},			// no HFS filetype
			empty{},			// no HFS creator type
			empty{},			// no option_list stuff
			empty{};			// no eof stuff

	/*------------- icon for DiskCopy document ----------------------*/
		
			{
			DontLaunch,				// don't launch this
			{0},					// rFinderPath ID
			{ICON_0000003E},		// rIcon ID for big icon
			{ICON_00000136}			// rIcon ID for small icon
			},
		
			FileType|AuxType,		// match by filetype and auxtype
			
			MatchFileType {{
				$E0				// match filetype for Archival library
			}},
	
			MatchAuxType {{
				$0000FFFF,		// mask for only low word
				$00000005		// match for DiskCopy doc
			}},
				
			empty{},			// no name
			empty{},			// no create date
			empty{},			// no mod date
			empty{},			// no access bits
			empty{},			// no network access bits
			empty{},			// no storage type
			empty{},			// no HFS filetype
			empty{},			// no HFS creator type
			empty{},			// no option_list stuff
			empty{};			// no eof stuff

	/*------------- icon for EasyMount doc ----------------------------------------*/
		
			{
			DontLaunch,				// don't launch this
			{0},					// rFinderPath ID
			{ICON_0000003A},		// rIcon ID for big icon
			{ICON_00000127}			// rIcon ID for small icon
			},
		
			FileType|AuxType,		// match by filetype only for matchflags
			
			MatchFileType {{
				$e2				// match filetype for folder
			}},
	
			MatchAuxType {{
				$0000FFFF,		// mask for only low word
				$0000ffff		// match for system file
			}},
				
			empty{},			// no name
			empty{},			// no create date
			empty{},			// no mod date
			empty{},			// no access bits
			empty{},			// no network access bits
			empty{},			// no storage type
			empty{},			// no HFS filetype
			empty{},			// no HFS creator type
			empty{},			// no option_list stuff
			empty{};			// no eof stuff

	/*------------- icon for teach document ----------------------------------------*/
		
			{
			LaunchThis|reads|writes|native|creator, // launch this
			{1},					// rFinderPath for this
			{ICON_00000037},		// rIcon ID for big icon
			{ICON_00000116}			// rIcon ID for small icon
			},
		
			FileType|AuxType,		// match by filetype and auxtype for matchflags
			
			MatchFileType {{
				$50				// match filetype for teach
			}},

			MatchAuxType {{
				$0000ffff,		// auxtype mask
				$00005445		// match auxtype for teach
			}},
			
			empty{},			// no name
			empty{},			// no create date
			empty{},			// no mod date
			empty{},			// no access bits
			empty{},			// no network access bits
			empty{},			// no storage type
			empty{},			// no HFS filetype
			empty{},			// no HFS creator type
			empty{},			// no option_list stuff
			empty{};			// no eof stuff

	/*------------- icon for installer script ------------------------------------*/
		
			{
			LaunchThis|reads|writes|native|creator,	// launch this
			{5},					// rFinderPath ID
			{ICON_0000001A},		// rIcon ID for big icon
			{ICON_0000011A}			// rIcon ID for small icon
			},
		
			FileType|AuxType,		// match by filetype and auxtype
			
			MatchFileType {{
				$b0				// match filetype for installer script
			}},

			MatchAuxType {{
				$0000FFFF,
				$00000017		// match auxtype
			}},
			
			empty{},			// no name
			empty{},			// no create date
			empty{},			// no mod date
			empty{},			// no access bits
			empty{},			// no network access bits
			empty{},			// no storage type
			empty{},			// no HFS filetype
			empty{},			// no HFS creator type
			empty{},			// no option_list stuff
			empty{};			// no eof stuff

	/*------------- icon for APW src file document ---------------------------------*/
		
			{
			LaunchThis|reads, 		// launch this
			{1},					// rFinderPath for this
			{ICON_00000017},		// rIcon ID for big icon
			{ICON_00000117} 		// rIcon ID for small icon
			},
		
			FileType,			// match by filetype for matchflags
			
			MatchFileType {{
				$b0				// match filetype for teach
			}},

			empty{},			// no auxtype
			empty{},			// no name
			empty{},			// no create date
			empty{},			// no mod date
			empty{},			// no access bits
			empty{},			// no network access bits
			empty{},			// no storage type
			empty{},			// no HFS filetype
			empty{},			// no HFS creator type
			empty{},			// no option_list stuff
			empty{};			// no eof stuff

	/*------------- icon for AppleWorks 3.0 WP doc for teach ----------------------*/
		
			{
			LaunchThis|reads|writes, // launch this
			{1},					 // rFinderPath for this
			{ICON_00000016},		 // rIcon ID for big icon
			{ICON_00000116} 		 // rIcon ID for small icon
			},
		
			FileType,			// match by filetype and auxtype for matchflags
			
			MatchFileType {{
				$1A				// match filetype for aworks
			}},

			empty{},			// no auxtype stuff	
			empty{},			// no name
			empty{},			// no create date
			empty{},			// no mod date
			empty{},			// no access bits
			empty{},			// no network access bits
			empty{},			// no storage type
			empty{},			// no HFS filetype
			empty{},			// no HFS creator type
			empty{},			// no option_list stuff
			empty{};			// no eof stuff

	/*------------- icon for AppleWorks GS WP doc for teach ----------------------*/
		
			{
			LaunchThis|reads|writes, // launch this
			{1},					// rFinderPath for this
			{ICON_00000016},		// rIcon ID for big icon
			{ICON_00000116}			// rIcon ID for small icon
			},
		
			FileType|AuxType,		// match by filetype and auxtype for matchflags
			
			MatchFileType {{
				$50				// match filetype for aworks gs
			}},

			MatchAuxType {{
				$0000ffff,		// auxtype mask
				$00008010		// match auxtype for aworks gs
			}},
			
			empty{},			// no name
			empty{},			// no create date
			empty{},			// no mod date
			empty{},			// no access bits
			empty{},			// no network access bits
			empty{},			// no storage type
			empty{},			// no HFS filetype
			empty{},			// no HFS creator type
			empty{},			// no option_list stuff
			empty{};			// no eof stuff

	/*------------- icon for MacWrite 5.0 WP doc for teach ----------------------*/
		
			{
			LaunchThis|reads|writes, // launch this
			{1},					// rFinderPath for this
			{ICON_00000016},		// rIcon ID for big icon
			{ICON_00000116},		// rIcon ID for small icon
			"MacWrite 5.0 Document" // string for document
			},
		
			HFSFileType|HFSCreator,	// match by filetype and auxtype for matchflags
			
			empty{},			// no filetype
			empty{},			// no auxtype
			empty{},			// no name
			empty{},			// no create date
			empty{},			// no mod date
			empty{},			// no access bits
			empty{},			// no network access bits
			empty{},			// no storage type
			
			matchHFSFiletype {{
				$44524f57		// HFS filetype ('WORD')
			}},
			
			matchHFSCreator {{
				$4143414d		// HFS creator ('MACA')
			}},
			empty{},			// no option_list stuff
			empty{};			// no eof stuff
	
		/*------------- icon for Macintosh application ----------------------*/
		
			{
			DontLaunch, 			// launch this
			{0},					// rFinderPath for this
			{0},					// rIcon ID for big icon
			{0},					// rIcon ID for small icon
			"Macintosh application" // string for document
			},

			HFSFileType,		// match by filetype and auxtype for matchflags
			
			empty{},			// no filetype
			empty{},			// no auxtype
			empty{},			// no name
			empty{},			// no create date
			empty{},			// no mod date
			empty{},			// no access bits
			empty{},			// no network access bits
			empty{},			// no storage type

			matchHFSFiletype {{
				$4C505041		// HFS filetype ('APPL')
			}},

			empty{},			// no HFS creator stuff
			empty{},			// no option_list stuff
			empty{};			// no eof stuff

	/*------------- icon for text file --------------------------------------------*/
		
			{
			LaunchThis|reads|writes|native,	// don't launch this
			{1},					// rFinderPath ID
			{ICON_00000017},		// rIcon ID for big icon
			{ICON_00000117}			// rIcon ID for small icon
			},
		
			FileType,				// match by filetype only for matchflags
			
			MatchFileType {{
				$04				// match filetype for text file
			}},

			empty{},			// no auxtype
			empty{},			// no name
			empty{},			// no create date
			empty{},			// no mod date
			empty{},			// no access bits
			empty{},			// no network access bits
			empty{},			// no storage type
			empty{},			// no HFS filetype
			empty{},			// no HFS creator type
			empty{},			// no option_list stuff
			empty{};			// no eof stuff

	/*------------- icon for applesoft file ----------------------------------------*/
		
			{
			LaunchThis,				// launch this
			{2},					// rFinderPath for this
			{ICON_00000018},		// rIcon ID for big icon
			{ICON_00000118}			// rIcon ID for small icon
			},
		
			FileType,				// match by filetype only for matchflags
			
			MatchFileType {{
				$fc				// match filetype for text file
			}},

			empty{},			// no auxtype
			empty{},			// no name
			empty{},			// no create date
			empty{},			// no mod date
			empty{},			// no access bits
			empty{},			// no network access bits
			empty{},			// no storage type
			empty{},			// no HFS filetype
			empty{},			// no HFS creator type
			empty{},			// no option_list stuff
			empty{};			// no eof stuff

	/*------------- icon for binary file ----------------------------------------*/
		
			{
			DontLaunch,				// don't launch this
			{0},					// rFinderPath ID
			{ICON_00000019},		// rIcon ID for big icon
			{ICON_00000119}			// rIcon ID for small icon
			},
		
			FileType,				// match by filetype only for matchflags
			
			MatchFileType {{
				$06				// match filetype for text file
			}},

			empty{},			// no auxtype
			empty{},			// no name
			empty{},			// no create date
			empty{},			// no mod date
			empty{},			// no access bits
			empty{},			// no network access bits
			empty{},			// no storage type
			empty{},			// no HFS filetype
			empty{},			// no HFS creator type
			empty{},			// no option_list stuff
			empty{};			// no eof stuff

	/*------------- icon for archiver TOC file ---------------------------------*/
		
			{
			LaunchThis|reads|writes|native|creator, // launch this
			{3},					// rFinderPath ID
			{ICON_00000035}			// rIcon ID for big icon, no small icon
			},
		
			FileType|AuxType,		// match by filetype and auxtype
			
			MatchFileType {{
				$5a					// match filetype for archiver TOC file
			}},

			MatchAuxType {{
				$0000FFFF,
				$00000007		// match auxtype
			}},
			
			empty{},			// no name
			empty{},			// no create date
			empty{},			// no mod date
			empty{},			// no access bits
			empty{},			// no network access bits
			empty{},			// no storage type
			empty{},			// no HFS filetype
			empty{},			// no HFS creator type
			empty{},			// no option_list stuff
			empty{};			// no eof stuff

	/*------------- icon for hypercard stack ---------------------------------*/

			{
			LaunchThis|reads|writes|native|creator, // launch this
			{4},					// rFinderPath ID
			{ICON_00000038},		// rIcon ID for big icon
			{ICON_00000133}			// rIcon ID for small icon
			},
		
			FileType|AuxType,		// match by filetype and auxtype
			
			MatchFileType {{
				$55					// match filetype for installer script
			}},

			MatchAuxType {{
				$0000FFFF,
				$00000001		// match auxtype
			}},
			
			empty{},			// no name
			empty{},			// no create date
			empty{},			// no mod date
			empty{},			// no access bits
			empty{},			// no network access bits
			empty{},			// no storage type
			empty{},			// no HFS filetype
			empty{},			// no HFS creator type
			empty{},			// no option_list stuff
			empty{};			// no eof stuff

	/*------------- icon for archiver data file ---------------------------------*/
		
			{
			LaunchThis|reads|writes|native|creator,	// launch this
			{3},					// rFinderPath ID (should be *:Archiver)
			{ICON_00000036}			// rIcon ID for big icon, no small icon
			},
		
			FileType|AuxType,		// match by filetype and auxtype
			
			MatchFileType {{
				$e0					// match filetype for installer script
			}},

			MatchAuxType {{
				$0000FFFF,
				$00000004		// match auxtype
			}},
			
			empty{},			// no name
			empty{},			// no create date
			empty{},			// no mod date
			empty{},			// no access bits
			empty{},			// no network access bits
			empty{},			// no storage type
			empty{},			// no HFS filetype
			empty{},			// no HFS creator type
			empty{},			// no option_list stuff
			empty{};			// no eof stuff

	/*------------- icon for Print Manager Printer driver ----------------------*/
		
			{
			DontLaunch,				// don't launch this
			{0},					// rFinderPath ID
			{ICON_0000001B},		// rIcon ID for big icon
			{ICON_0000011B},			// rIcon ID for small icon
			"Printer Driver" 		// string for document
			},
		
			FileType|AuxType,		// match by filetype for matchflags
			
			MatchFileType {{
				$BB				// match filetype for device driver
			}},

			MatchAuxType {{
				$00007FFF,		// auxtype and mask for auxtype
				$00000001
			}},

			empty{},			// no name
			empty{},			// no create date
			empty{},			// no mod date
			empty{},			// no access bits
			empty{},			// no network access bits
			empty{},			// no storage type
			empty{},			// no HFS filetype
			empty{},			// no HFS creator type
			empty{},			// no option_list stuff
			empty{};			// no eof stuff

	/*------------- icon for Print Manager Port driver -------------------------*/
		
			{
			DontLaunch,				// don't launch this
			{0},					// rFinderPath ID
			{ICON_0000001B},		// rIcon ID for big icon
			{ICON_0000011B},		// rIcon ID for small icon
			"Printer Port Driver" 	// string for document
			},
		
			FileType|AuxType,		// match by filetype for matchflags
			
			MatchFileType {{
				$BB				// match filetype for device driver
			}},

			MatchAuxType {{
				$00007FFE,		// auxtype and mask for auxtype
				$00000002
			}},

			empty{},			// no name
			empty{},			// no create date
			empty{},			// no mod date
			empty{},			// no access bits
			empty{},			// no network access bits
			empty{},			// no storage type
			empty{},			// no HFS filetype
			empty{},			// no HFS creator type
			empty{},			// no option_list stuff
			empty{};			// no eof stuff

	/*------------- icon for GS/OS driver ----------------------------------------*/
		
			{
			DontLaunch,				// don't launch this
			{0},					// rFinderPath ID
			{ICON_0000001B},		// rIcon ID for big icon
			{ICON_0000011B},		// rIcon ID for small icon
			"GS/OS Device Driver" 	// string for document

			},
		
			FileType|AuxType,		// match by filetype for matchflags
			
			MatchFileType {{
				$BB				// match filetype for device driver
			}},

			MatchAuxType {{
				$00007F00,		// auxtype and mask for auxtype
				$00000100
			}},

			empty{},			// no name
			empty{},			// no create date
			empty{},			// no mod date
			empty{},			// no access bits
			empty{},			// no network access bits
			empty{},			// no storage type
			empty{},			// no HFS filetype
			empty{},			// no HFS creator type
			empty{},			// no option_list stuff
			empty{};			// no eof stuff

	/*------------- icon for AppleTalk driver ----------------------------------------*/
		
			{
			DontLaunch,				// don't launch this
			{0},					// rFinderPath ID
			{ICON_0000001B},		// rIcon ID for big icon
			{ICON_0000011B},		// rIcon ID for small icon
			"AppleTalk Driver" 		// string for document
			},
		
			FileType|AuxType,		// match by filetype for matchflags
			
			MatchFileType {{
				$BB				// match filetype for device driver
			}},

			MatchAuxType {{
				$00007F00,		// auxtype and mask for auxtype
				$00000200
			}},

			empty{},			// no name
			empty{},			// no create date
			empty{},			// no mod date
			empty{},			// no access bits
			empty{},			// no network access bits
			empty{},			// no storage type
			empty{},			// no HFS filetype
			empty{},			// no HFS creator type
			empty{},			// no option_list stuff
			empty{};			// no eof stuff

	/*------------- icon for MIDI driver ----------------------------------------*/
		
			{
			DontLaunch,				// don't launch this
			{0},					// rFinderPath ID
			{ICON_0000001B},		// rIcon ID for big icon
			{ICON_0000011B},		// rIcon ID for small icon
			"MIDI Driver" 			// string for document

			},
		
			FileType|AuxType,		// match by filetype for matchflags
			
			MatchFileType {{
				$BB				// match filetype for device driver
			}},

			MatchAuxType {{
				$00007F00,		// auxtype and mask for auxtype
				$00000300
			}},

			empty{},			// no name
			empty{},			// no create date
			empty{},			// no mod date
			empty{},			// no access bits
			empty{},			// no network access bits
			empty{},			// no storage type
			empty{},			// no HFS filetype
			empty{},			// no HFS creator type
			empty{},			// no option_list stuff
			empty{};			// no eof stuff

	/*------------- icon for Media Control driver ---------------------------------*/
		
			{
			DontLaunch,				// don't launch this
			{0},					// rFinderPath ID
			{ICON_0000001B},		// rIcon ID for big icon
			{ICON_0000011B},		// rIcon ID for small icon
			"Media Control Driver" 	// string for document

			},
		
			FileType|AuxType,		// match by filetype for matchflags
			
			MatchFileType {{
				$BB				// match filetype for device driver
			}},

			MatchAuxType {{
				$00007F00,		// auxtype and mask for auxtype
				$00000400
			}},

			empty{},			// no name
			empty{},			// no create date
			empty{},			// no mod date
			empty{},			// no access bits
			empty{},			// no network access bits
			empty{},			// no storage type
			empty{},			// no HFS filetype
			empty{},			// no HFS creator type
			empty{},			// no option_list stuff
			empty{};			// no eof stuff

	/*------------- icon for device driver ----------------------------------------*/
		
			{
			DontLaunch,				// don't launch this
			{0},					// rFinderPath ID
			{ICON_0000001B},		// rIcon ID for big icon
			{ICON_0000011B}			// rIcon ID for small icon
			},
		
			FileType,				// match by filetype only for matchflags
			
			MatchFileType {{
				$BB				// match filetype for device driver
			}},

			empty{},			// no auxtype
			empty{},			// no name
			empty{},			// no create date
			empty{},			// no mod date
			empty{},			// no access bits
			empty{},			// no network access bits
			empty{},			// no storage type
			empty{},			// no HFS filetype
			empty{},			// no HFS creator type
			empty{},			// no option_list stuff
			empty{};			// no eof stuff
	
	/*------------- icon for CDA -------------------------------------------------*/
		
			{
			DontLaunch,				// don't launch this
			{0},					// rFinderPath ID
			{ICON_0000001C},		// rIcon ID for big icon
			{ICON_0000011C}			// rIcon ID for small icon
			},
		
			FileType,				// match by filetype only for matchflags
			
			MatchFileType {{
				$B9				// match filetype for CDA
			}},

			empty{},			// no auxtype
			empty{},			// no name
			empty{},			// no create date
			empty{},			// no mod date
			empty{},			// no access bits
			empty{},			// no network access bits
			empty{},			// no storage type
			empty{},			// no HFS filetype
			empty{},			// no HFS creator type
			empty{},			// no option_list stuff
			empty{};			// no eof stuff

	/*------------- icon for NDA ------------------------------------------------*/
		
			{
			DontLaunch,				// don't launch this
			{0},					// rFinderPath ID
			{ICON_0000001D},		// rIcon ID for big icon
			{ICON_0000011D}			// rIcon ID for small icon
			},
		
			FileType,				// match by filetype only for matchflags
			
			MatchFileType {{
				$B8				// match filetype for NDA
			}},

			empty{},			// no auxtype
			empty{},			// no name
			empty{},			// no create date
			empty{},			// no mod date
			empty{},			// no access bits
			empty{},			// no network access bits
			empty{},			// no storage type
			empty{},			// no HFS filetype
			empty{},			// no HFS creator type
			empty{},			// no option_list stuff
			empty{};			// no eof stuff
		
	/*------------- icon for control panels -------------------------------------*/
		
			{
			DontLaunch,				// don't launch this
			{0},					// rFinderPath ID
			{ICON_0000001E},		// rIcon ID for big icon
			{ICON_0000011E}			// rIcon ID for small icon
			},
		
			FileType,				// match by filetype only for matchflags
			
			MatchFileType {{
				$C7				// match filetype for control panels
			}},

			empty{},			// no auxtype
			empty{},			// no name
			empty{},			// no create date
			empty{},			// no mod date
			empty{},			// no access bits
			empty{},			// no network access bits
			empty{},			// no storage type
			empty{},			// no HFS filetype
			empty{},			// no HFS creator type
			empty{},			// no option_list stuff
			empty{};			// no eof stuff

	/*------------- icon for tool -------------------------------------------------*/
		
			{
			DontLaunch,				// don't launch this
			{0},					// rFinderPath ID
			{ICON_0000001F},		// rIcon ID for big icon
			{ICON_0000011F}			// rIcon ID for small icon
			},
		
			FileType,				// match by filetype only for matchflags
			
			MatchFileType {{
				$BA				// match filetype for tool
			}},

			empty{},			// no auxtype
			empty{},			// no name
			empty{},			// no create date
			empty{},			// no mod date
			empty{},			// no access bits
			empty{},			// no network access bits
			empty{},			// no storage type
			empty{},			// no HFS filetype
			empty{},			// no HFS creator type
			empty{},			// no option_list stuff
			empty{};			// no eof stuff
			
	/*------------- icon for GS/OS system files -----------------------------------*/
	
			{
			DontLaunch,				// don't launch this
			{0},					// rFinderPath ID
			{ICON_00000020},		// rIcon ID for big icon
			{ICON_00000120}			// rIcon ID for small icon
			},
		
			FileType,				// match by filetype only for matchflags
			
			MatchFileType {{
				$F9				// match filetype for system files
			}},

			empty{},			// no auxtype
			empty{},			// no name
			empty{},			// no create date
			empty{},			// no mod date
			empty{},			// no access bits
			empty{},			// no network access bits
			empty{},			// no storage type
			empty{},			// no HFS filetype
			empty{},			// no HFS creator type
			empty{},			// no option_list stuff
			empty{};			// no eof stuff

	/*------------- icon for 3.5" disk --------------------------------------------*/

			{
			DontLaunch,				// don't launch this
			{0},					// rFinderPath ID
			{ICON_00000021}			// rIcon ID for big icon, no small icon
			},
		
			FileType,				// match by filetype only for matchflags
			
			MatchFileType {{
				$FFFB				// match filetype for 3.5" disk
			}},

			empty{},			// no auxtype
			empty{},			// no name
			empty{},			// no create date
			empty{},			// no mod date
			empty{},			// no access bits
			empty{},			// no network access bits
			empty{},			// no storage type
			empty{},			// no HFS filetype
			empty{},			// no HFS creator type
			empty{},			// no option_list stuff
			empty{};			// no eof stuff

	/*------------- icon for RAM disk --------------------------------------------*/

			{
			DontLaunch,				// don't launch this
			{0},					// rFinderPath ID
			{ICON_00000022}			// rIcon ID for big icon, no small icon
			},
		
			FileType,				// match by filetype only for matchflags
			
			MatchFileType {{
				$FFFA				// match filetype for RAM disk
			}},

			empty{},			// no auxtype
			empty{},			// no name
			empty{},			// no create date
			empty{},			// no mod date
			empty{},			// no access bits
			empty{},			// no network access bits
			empty{},			// no storage type
			empty{},			// no HFS filetype
			empty{},			// no HFS creator type
			empty{},			// no option_list stuff
			empty{};			// no eof stuff

	/*------------- icon for 5.25" drive ------------------------------------------*/
	
			{
			DontLaunch,				// don't launch this
			{0},					// rFinderPath ID
			{ICON_00000023}			// rIcon ID for big icon, no small icon
			},
		
			FileType,				// match by filetype only for matchflags
			
			MatchFileType {{
				$FFF9				// match filetype for 5.25" drive
			}},

			empty{},			// no auxtype
			empty{},			// no name
			empty{},			// no create date
			empty{},			// no mod date
			empty{},			// no access bits
			empty{},			// no network access bits
			empty{},			// no storage type
			empty{},			// no HFS filetype
			empty{},			// no HFS creator type
			empty{},			// no option_list stuff
			empty{};			// no eof stuff

	/*------------- icon for 5.25" disk --------------------------------------------*/
		
			{
			DontLaunch,				// don't launch this
			{0},					// rFinderPath ID
			{ICON_00000024}			// rIcon ID for big icon
			},
		
			FileType,				// match by filetype only for matchflags
			
			MatchFileType {{
				$FFFC				// match filetype for 5.25" disk
			}},

			empty{},			// no auxtype
			empty{},			// no name
			empty{},			// no create date
			empty{},			// no mod date
			empty{},			// no access bits
			empty{},			// no network access bits
			empty{},			// no storage type
			empty{},			// no HFS filetype
			empty{},			// no HFS creator type
			empty{},			// no option_list stuff
			empty{};			// no eof stuff

	/*------------- icon for hard drive --------------------------------------------*/

			{
			DontLaunch,				// don't launch this
			{0},					// rFinderPath ID
			{ICON_00000025}			// rIcon ID for big icon
			},
		
			FileType,				// match by filetype only for matchflags
			
			MatchFileType {{
				$FFFD				// match filetype for hard drive
			}},

			empty{},			// no auxtype
			empty{},			// no name
			empty{},			// no create date
			empty{},			// no mod date
			empty{},			// no access bits
			empty{},			// no network access bits
			empty{},			// no storage type
			empty{},			// no HFS filetype
			empty{},			// no HFS creator type
			empty{},			// no option_list stuff
			empty{};			// no eof stuff
		
	/*------------- icon for hard drive partition ----------------------------------*/
	
			{
			DontLaunch,				// don't launch this
			{0},					// rFinderPath ID
			{ICON_00000026}			// rIcon ID for big icon
			},
		
			FileType,				// match by filetype only for matchflags
			
			MatchFileType {{
				$FFF3				// match filetype for hard drive partition
			}},

			empty{},			// no auxtype
			empty{},			// no name
			empty{},			// no create date
			empty{},			// no mod date
			empty{},			// no access bits
			empty{},			// no network access bits
			empty{},			// no storage type
			empty{},			// no HFS filetype
			empty{},			// no HFS creator type
			empty{},			// no option_list stuff
			empty{};			// no eof stuff

	/*------------- icon for file server --------------------------------------------*/
	
			{
			DontLaunch,				// don't launch this
			{0},					// rFinderPath ID
			{ICON_00000027}			// rIcon ID for big icon
			},
		
			FileType,				// match by filetype only for matchflags
			
			MatchFileType {{
				$FFF5				// match filetype for file server
			}},

			empty{},			// no auxtype
			empty{},			// no name
			empty{},			// no create date
			empty{},			// no mod date
			empty{},			// no access bits
			empty{},			// no network access bits
			empty{},			// no storage type
			empty{},			// no HFS filetype
			empty{},			// no HFS creator type
			empty{},			// no option_list stuff
			empty{};			// no eof stuff

	/*------------- icon for CD-ROM ------------------------------------------------*/
	
			{
			DontLaunch,				// don't launch this
			{0},					// rFinderPath ID
			{ICON_00000028}			// rIcon ID for big icon
			},
		
			FileType,				// match by filetype only for matchflags
			
			MatchFileType {{
				$FFF8				// match filetype for CD-ROM
			}},

			empty{},			// no auxtype
			empty{},			// no name
			empty{},			// no create date
			empty{},			// no mod date
			empty{},			// no access bits
			empty{},			// no network access bits
			empty{},			// no storage type
			empty{},			// no HFS filetype
			empty{},			// no HFS creator type
			empty{},			// no option_list stuff
			empty{};			// no eof stuff

	/*------------- icon for CD-ROM partition -------------------------------------*/
	
			{
			DontLaunch,				// don't launch this
			{0},					// rFinderPath ID
			{ICON_00000029}			// rIcon ID for big icon
			},
		
			FileType,				// match by filetype only for matchflags
			
			MatchFileType {{
				$FFF2				// match filetype for CD-ROM partition
			}},

			empty{},			// no auxtype
			empty{},			// no name
			empty{},			// no create date
			empty{},			// no mod date
			empty{},			// no access bits
			empty{},			// no network access bits
			empty{},			// no storage type
			empty{},			// no HFS filetype
			empty{},			// no HFS creator type
			empty{},			// no option_list stuff
			empty{};			// no eof stuff

	/*------------- icon for empty trash --------------------------------------------*/
		
			{
			DontLaunch,				// don't launch this
			{0},					// rFinderPath ID
			{ICON_0000002C}			// rIcon ID for big icon
			},
		
			FileType,				// match by filetype only for matchflags
			
			MatchFileType {{
				$FFFF				// match filetype for empty trash
			}},

			empty{},			// no auxtype
			empty{},			// no name
			empty{},			// no create date
			empty{},			// no mod date
			empty{},			// no access bits
			empty{},			// no network access bits
			empty{},			// no storage type
			empty{},			// no HFS filetype
			empty{},			// no HFS creator type
			empty{},			// no option_list stuff
			empty{};			// no eof stuff

	/*------------- icon for full trash --------------------------------------------*/
	
			{
			DontLaunch,				// don't launch this
			{0},					// rFinderPath ID
			{ICON_0000002D}			// rIcon ID for big icon
			},
		
			FileType,				// match by filetype only for matchflags
			
			MatchFileType {{
				$FFFE				// match filetype for full trash
			}},

			empty{},			// no auxtype
			empty{},			// no name
			empty{},			// no create date
			empty{},			// no mod date
			empty{},			// no access bits
			empty{},			// no network access bits
			empty{},			// no storage type
			empty{},			// no HFS filetype
			empty{},			// no HFS creator type
			empty{},			// no option_list stuff
			empty{};			// no eof stuff

	/*------------- icon for advanced disk util ------------------------------------*/
	
			{
			LaunchThis,				// launch this
			{0},					// rFinderPath ID
			{ICON_0000002E},		// rIcon ID for big icon
			{ICON_00000132}			// rIcon ID for small icon
			},
		
			FileType|FileName,		// match by filetype and filename for matchflags
			
			MatchFileType {{
				$B3				// match filetype for sys16 file
			}},

			empty{},			// no auxtype	

			MatchFileName {{
				"adv.disk.util"	// match name
			}},
			
			empty{},			// no create date
			empty{},			// no mod date
			empty{},			// no access bits
			empty{},			// no network access bits
			empty{},			// no storage type
			empty{},			// no HFS filetype
			empty{},			// no HFS creator type
			empty{},			// no option_list stuff
			empty{};			// no eof stuff

	/*------------- icon for archiver ------------------------------------*/
	
			{
			LaunchThis,				// launch this
			{0},					// rFinderPath ID
			{ICON_00000034},		// rIcon ID for big icon
			{ICON_00000132}			// rIcon ID for small icon
			},
		
			FileType|FileName,		// match by filetype and filename for matchflags
			
			MatchFileType {{
				$B3				// match filetype for sys16 file
			}},

			empty{},			// no auxtype	

			MatchFileName {{
				"archiver"		// match name
			}},
			
			empty{},			// no create date
			empty{},			// no mod date
			empty{},			// no access bits
			empty{},			// no network access bits
			empty{},			// no storage type
			empty{},			// no HFS filetype
			empty{},			// no HFS creator type
			empty{},			// no option_list stuff
			empty{};			// no eof stuff

	/*------------- icon for hypercard ------------------------------------*/
	
			{
			LaunchThis,				// launch this
			{4},					// rFinderPath ID
			{ICON_00000039},		// rIcon ID for big icon
			{ICON_00000132}			// rIcon ID for small icon
			},
		
			FileType|FileName,		// match by filetype and filename for matchflags
			
			MatchFileType {{
				$B3				// match filetype for sys16 file
			}},

			empty{},			// no auxtype	

			MatchFileName {{
				"HypercardIIGS"		// match name
			}},
			
			empty{},			// no create date
			empty{},			// no mod date
			empty{},			// no access bits
			empty{},			// no network access bits
			empty{},			// no storage type
			empty{},			// no HFS filetype
			empty{},			// no HFS creator type
			empty{},			// no option_list stuff
			empty{};			// no eof stuff

	/*------------- icon for finder itself ------------------------------------*/
	
			{
			LaunchThis,				// launch this
			{0},					// rFinderPath ID
			{ICON_00000001},		// rIcon ID for big icon
			{ICON_00000132}			// rIcon ID for small icon
			},
		
			FileType|FileName,		// match by filetype and filename for matchflags
			
			MatchFileType {{
				$B3				// match filetype for sys16 file
			}},

			empty{},			// no auxtype	

			MatchFileName {{
				"Finder"		// match name
			}},
			
			empty{},			// no create date
			empty{},			// no mod date
			empty{},			// no access bits
			empty{},			// no network access bits
			empty{},			// no storage type
			empty{},			// no HFS filetype
			empty{},			// no HFS creator type
			empty{},			// no option_list stuff
			empty{};			// no eof stuff

	/*------------- icon for installer --------------------------------------------*/
		
			{
			LaunchThis,				// launch this
			{5},					// rFinderPath ID
			{ICON_0000002F},		// rIcon ID for big icon
			{ICON_00000134}			// rIcon ID for small icon
			},
		
			FileType|FileName,		// match by filetype and filename for matchflags
			
			MatchFileType {{
				$B3				// match filetype for sys16 file
			}},

			empty{},			// no auxtype	

			MatchFileName {{
				"installer"		// match name
			}},
			
			empty{},			// no create date
			empty{},			// no mod date
			empty{},			// no access bits
			empty{},			// no network access bits
			empty{},			// no storage type
			empty{},			// no HFS filetype
			empty{},			// no HFS creator type
			empty{},			// no option_list stuff
			empty{};			// no eof stuff
	
	/*------------- icon for teach --------------------------------------------*/
	
			{
			LaunchThis,				// launch this
			{1},					// rFinderPath ID
			{ICON_00000030},		// rIcon ID for big icon
			{ICON_00000132}			// rIcon ID for small icon
			},
		
			FileType|FileName,		// match by filetype and filename for matchflags
			
			MatchFileType {{
				$B3				// match filetype for sys16 file
			}},

			empty{},			// no auxtype	

			MatchFileName {{
				"teach"			// match name
			}},
			
			empty{},			// no create date
			empty{},			// no mod date
			empty{},			// no access bits
			empty{},			// no network access bits
			empty{},			// no storage type
			empty{},			// no HFS filetype
			empty{},			// no HFS creator type
			empty{},			// no option_list stuff
			empty{};			// no eof stuff

	/*------------- icon for desktop s16 files ------------------------------------*/

			{
			LaunchThis,				// launch this
			{0},					// rFinderPathID
			{ICON_0000003B},		// rIcon ID for big icon
			{ICON_00000132}			// rIcon ID for small icon
			},
		
			FileType|AuxType,		// match by filetype for matchflags
			
			MatchFileType {{
				$B3				// match filetype for sys16 file
			}},

			MatchAuxType {{
				$0000FF02,		// auxtype and mask for auxtype
				$0000DB02
			}},
			
			empty{},			// no name
			empty{},			// no create date
			empty{},			// no mod date
			empty{},			// no access bits
			empty{},			// no network access bits
			empty{},			// no storage type
			empty{},			// no HFS filetype
			empty{},			// no HFS creator type
			empty{},			// no option_list stuff
			empty{};			// no eof stuff

	/*------------- icon for s16 files --------------------------------------------*/
	
			{
			LaunchThis,				// launch this
			{0},					// rFinderPathID
			{ICON_00000031},		// rIcon ID for big icon
			{ICON_00000132}			// rIcon ID for small icon
			},
		
			FileType,			// match by filetype for matchflags
			
			MatchFileType {{
				$B3				// match filetype for sys16 file
			}},

			empty{},			// no auxtype
			empty{},			// no name
			empty{},			// no create date
			empty{},			// no mod date
			empty{},			// no access bits
			empty{},			// no network access bits
			empty{},			// no storage type
			empty{},			// no HFS filetype
			empty{},			// no HFS creator type
			empty{},			// no option_list stuff
			empty{};			// no eof stuff

	/*------------- icon for sys files --------------------------------------------*/

			{
			LaunchThis,				// launch this
			{0},					// rFinderPath ID
			{ICON_00000032},		// rIcon ID for big icon
			{ICON_00000132}			// rIcon ID for small icon
			},
		
			FileType,			// match by filetype for matchflags
			
			MatchFileType {{
				$FF				// match filetype for sys file
			}},

			empty{},			// no auxtype
			empty{},			// no name
			empty{},			// no create date
			empty{},			// no mod date
			empty{},			// no access bits
			empty{},			// no network access bits
			empty{},			// no storage type
			empty{},			// no HFS filetype
			empty{},			// no HFS creator type
			empty{},			// no option_list stuff
			empty{};			// no eof stuff

	/*------------- icon for sound files ------------------------------------*/

			{
			DontLaunch,				// don't launch this
			{0},					// rFinderPathID
			{ICON_0000003C}			// rIcon ID for big icon
			},
		
			FileType|AuxType,		// match by filetype for matchflags
			
			MatchFileType {{
				$d8				// match filetype for sound file 
			}},

			MatchAuxType {{
				$0000FFFF,		// auxtype and mask for auxtype
				$00000003
			}},
			
			empty{},			// no name
			empty{},			// no create date
			empty{},			// no mod date
			empty{},			// no access bits
			empty{},			// no network access bits
			empty{},			// no storage type
			empty{},			// no HFS filetype
			empty{},			// no HFS creator type
			empty{},			// no option_list stuff
			empty{};			// no eof stuff

//	/*------------- icon for sys files above $be00 --------------------------------*/
//
//			{
//			LaunchThis,				// launch this
//			{0},					// rFinderPath ID
//			{0x3c},					// rIcon ID for big icon
//			{ICON_00000132}			// rIcon ID for small icon
//			},
//		
//			FileType|EOF,			// match by filetype for matchflags
//			
//			MatchFileType {{
//				$FF				// match filetype for sys file
//			}},
//
//			empty{},			// no auxtype
//			empty{},			// no name
//			empty{},			// no create date
//			empty{},			// no mod date
//			empty{},			// no access bits
//			empty{},			// no network access bits
//			empty{},			// no storage type
//			empty{},			// no HFS filetype
//			empty{},			// no HFS creator type
//			empty{},			// no option_list stuff
//
//			MatchEOF {{			
//				CompareAll|greater,		// anything greater than $be00
//				$0000be00
//			}};				
			
	};
};

// -- rFinderPath ($802C) resources for stuff we know about

resource rFinderPath (1,Preload, noSpecialMemory) {
		{},
		"*:Teach"				// application pathname
};

resource rFinderPath (2,Preload, noSpecialMemory) {
		{},
		"*:BASIC.System"		// application pathname
};

resource rFinderPath (3,Preload, noSpecialMemory) {
		{},
		"*:Archiver"			// application pathname
};

resource rFinderPath (4,Preload, noSpecialMemory) {
		{},
		"*:Hypercard:HypercardIIGS"	// application pathname
};

resource rFinderPath (5,Preload, noSpecialMemory) {
		{},
		"*:Installer"			// application pathname
};

// --- Special Icon Definitions
//
// Don't ever change the icon numbered below, because they are special since they
// are used if all of the match criteria fail
//

resource rIcon (ICON_00000010, Preload, noSpecialMemory) {
       $0000,                  // kind
       $0010,                  // height
       $0010,                  // width

       $"00000000000000FF"
       $"0FFFFFFFFFFF0F0F"
       $"0FFFFFFFFFFF0FF0"
       $"0FFFFFFFFFFF0000"
       $"0FFFFFFFFFFFFFF0"
       $"0FFFFFFFFFFFFFF0"
       $"0FFFFFFFFFFFFFF0"
       $"0FFFFFFFFFFFFFF0"
       $"0FFFFFFFFFFFFFF0"
       $"0FFFFFFFFFFFFFF0"
       $"0FFFFFFFFFFFFFF0"
       $"0FFFFFFFFFFFFFF0"
       $"0FFFFFFFFFFFFFF0"
       $"0FFFFFFFFFFFFFF0"
       $"0FFFFFFFFFFFFFF0"
       $"0000000000000000",

       $"FFFFFFFFFFFFFF00"
       $"FFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF";
};

resource rIcon (ICON_00000110, Preload, noSpecialMemory) {
       $0000,                  // kind
       $0008,                  // height
       $0008,                  // width

       $"0000000F"
       $"0FFFF0F0"
       $"0FFFF000"
       $"0FFFFFF0"
       $"0FFFFFF0"
       $"0FFFFFF0"
       $"0FFFFFF0"
       $"00000000",

       $"FFFFFFF0"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF";
};

// --- Normal Icon Definitions

resource rIcon (ICON_00000011, Preload, noSpecialMemory) {
       $8000,                  // kind
       $0011,                  // height
       $0010,                  // width

       $"FF0000000000000F"
       $"F0F0FFFFFFFFFF0F"
       $"0FF0FFFFFFFFFF0C"
       $"0000FFFFFFF33F0C"
       $"0FFFFFFFFF333F0C"
       $"0FFFFFFFF3333F0C"
       $"0FFFFFFF33F33F0C"
       $"0FFFFFF33FF33F0C"
       $"0FFFFF33FFF33F0C"
       $"0FFFF33333333F0C"
       $"0FFF33FFFFF33F0C"
       $"0FF33FFFFFF33F0C"
       $"0F33FFFFFFF33F0C"
       $"0C333FFFFF33330C"
       $"0FFFFFFFFFFFFF0C"
       $"000000000000000C"
       $"FCCCCCCCCCCCCCCC",

       $"00FFFFFFFFFFFFF0"
       $"0FFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"0FFFFFFFFFFFFFFF";
};

resource rIcon (ICON_00000012, Preload, noSpecialMemory) {
       $8000,                  // kind
       $000F,                  // height
       $0018,                  // width

       $"FF00000000FFFFFFFFFFFFFF"
       $"F0FFFFFFFF0FFFFFFFFFFFFF"
       $"00000000000000000000000F"
       $"0FFFFFFFFFFFFFFFFFFFFFF0"
       $"0FFFFFFFFFFFF8FFFFFFFFF0"
       $"0FFFFFFFFFFF8FFFFFFFFFF0"
       $"0FFFFFFFF88FF88FFFFFFFF0"
       $"0FFFFFFFEEEEEEEEFFFFFFF0"
       $"0FFFFFFF6666666FFFFFFFF0"
       $"0FFFFFFF4444444FFFFFFFF0"
       $"0FFFFFFFF5555555FFFFFFF0"
       $"0FFFFFFFFF11F11FFFFFFFF0"
       $"0FFFFFFFFFFFFFFFFFFFFFF0"
       $"0FFFFFFFFFFFFFFFFFFFFFF0"
       $"000000000000000000000000",

       $"00FFFFFFFF00000000000000"
       $"0FFFFFFFFFF0000000000000"
       $"FFFFFFFFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFF";
};

resource rIcon (ICON_00000013, Preload, noSpecialMemory) {
       $0000,                  // kind
       $0013,                  // height
       $0018,                  // width

       $"FFFFFFFFFFFFFFFF000FFFFF"
       $"FFFFFFFFFFFFFFFF000FFFFF"
       $"FFFFFFFFFFFFFF0000000FFF"
       $"FFFFFFFFFFFFFFF00000FFFF"
       $"FF00000000FFFFFF000FFFFF"
       $"F0FFFFFFFF0FFFFFF0FFFFFF"
       $"00000000000000000000000F"
       $"0FFFFFFFFFFFFFFFFFFFFFF0"
       $"0FFFFFFFFFFFFFFFFFFFFFF0"
       $"0FFFFFFFFFFFFFFFFFFFFFF0"
       $"0FFFFFFFFFFFFFFFFFFFFFF0"
       $"0FFFFFFFFFFFFFFFFFFFFFF0"
       $"0FFFFFFFFFFFFFFFFFFFFFF0"
       $"0FFFFFFFFFFFFFFFFFFFFFF0"
       $"0FFFFFFFFFFFFFFFFFFFFFF0"
       $"0FFFFFFFFFFFFFFFFFFFFFF0"
       $"0FFFFFFFFFFFFFFFFFFFFFF0"
       $"0FFFFFFFFFFFFFFFFFFFFFF0"
       $"000000000000000000000000",

       $"0000000000000000FFF00000"
       $"0000000000000000FFF00000"
       $"00000000000000FFFFFFF000"
       $"000000000000000FFFFF0000"
       $"00FFFFFFFF000000FFF00000"
       $"0FFFFFFFFFF000000F000000"
       $"FFFFFFFFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFF";
};

resource rIcon (ICON_00000014, Preload, noSpecialMemory) {
       $0000,                  // kind
       $000F,                  // height
       $0018,                  // width

       $"FF00000000FFFFFFFFFFFFFF"
       $"F0000000000FFFFFFFFFFFFF"
       $"00000000000000000000000F"
       $"0FFFFFFFFFFFFFFFFFFFFFF0"
       $"0FFFFFFFFFFFFFFFFFFFFFF0"
       $"0FFFFFFFFFFFFFFFFFFFFFF0"
       $"0FFFFFFFFFFFFFFFFFFFFFF0"
       $"0FFFFFFFFFFFFFFFFFFFFFF0"
       $"0FFFFFFFFFFFFFFFFFFFFFF0"
       $"0FFFFFFFFFFFFFFFFFFFFFF0"
       $"0FFFFFFFFFFFFFFFFFFFFFF0"
       $"0FFFFFFFFFFFFFFFFFFFFFF0"
       $"0FFFFFFFFFFFFFFFFFFFFFF0"
       $"0FFFFFFFFFFFFFFFFFFFFFF0"
       $"000000000000000000000000",

       $"00FFFFFFFF00000000000000"
       $"0FFFFFFFFFF0000000000000"
       $"FFFFFFFFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFF";
};

resource rIcon (ICON_00000015, Preload, noSpecialMemory) {
       $0000,                  // kind
       $000F,                  // height
       $0018,                  // width

       $"FF00000000FFFFFFFFFFFFFF"
       $"F0FFFFFFFF0FFFFFFFFFFFFF"
       $"00000000000000000000000F"
       $"0FFFFFFFFFFFFFFFFFFFFFF0"
       $"0FFFFFFFFFFFFFFFFFFFFFF0"
       $"0FFFFFFFFFFFFFFFFFFFFFF0"
       $"0FFFFFFFFFFFFFFFFFFFFFF0"
       $"0FFFFFFFFFFFFFFFFFFFFFF0"
       $"0FFFFFFFFFFFFFFFFFFFFFF0"
       $"0FFFFFFFFFFFFFFFFFFFFFF0"
       $"0FFFFFFFFFFFFFFFFFFFFFF0"
       $"0FFFFFFFFFFFFFFFFFFFFFF0"
       $"0FFFFFFFFFFFFFFFFFFFFFF0"
       $"0FFFFFFFFFFFFFFFFFFFFFF0"
       $"000000000000000000000000",

       $"00FFFFFFFF00000000000000"
       $"0FFFFFFFFFF0000000000000"
       $"FFFFFFFFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFF";
};

//resource rIcon (SoundFolder, $0000) {
//       $0000,                  // kind
//       $000F,                  // height
//       $0018,                  // width
//
//       $"FF00000000FFFFFFFFFFFFFF"
//       $"F0FFFFFFFF0FFFFFFFFFFFFF"
//       $"00000000000000000000000F"
//       $"0FFFFFFFFFFFFFFFFFFFFFF0"
//       $"0FFFFFFFFFFFFFFFFFFFFFF0"
//       $"0FFFFFFFF03FFF57FFFFFFF0"
//       $"0FFFFFFF003F5FF57FFFFFF0"
//       $"0FFFFF00003FD5FD5FFFFFF0"
//       $"0FFFFF00003FF5FF5FFFFFF0"
//       $"0FFFFF00003FD5FD5FFFFFF0"
//       $"0FFFFFFF003F5FF57FFFFFF0"
//       $"0FFFFFFFF03FFF57FFFFFFF0"
//       $"0FFFFFFFFFFFFFFFFFFFFFF0"
//       $"0FFFFFFFFFFFFFFFFFFFFFF0"
//       $"000000000000000000000000",
//
//       $"00FFFFFFFF00000000000000"
//       $"0FFFFFFFFFF0000000000000"
//       $"FFFFFFFFFFFFFFFFFFFFFFF0"
//       $"FFFFFFFFFFFFFFFFFFFFFFFF"
//       $"FFFFFFFFFFFFFFFFFFFFFFFF"
//       $"FFFFFFFFFFFFFFFFFFFFFFFF"
//       $"FFFFFFFFFFFFFFFFFFFFFFFF"
//       $"FFFFFFFFFFFFFFFFFFFFFFFF"
//       $"FFFFFFFFFFFFFFFFFFFFFFFF"
//       $"FFFFFFFFFFFFFFFFFFFFFFFF"
//       $"FFFFFFFFFFFFFFFFFFFFFFFF"
//       $"FFFFFFFFFFFFFFFFFFFFFFFF"
//       $"FFFFFFFFFFFFFFFFFFFFFFFF"
//       $"FFFFFFFFFFFFFFFFFFFFFFFF"
//       $"FFFFFFFFFFFFFFFFFFFFFFFF";
//};

resource rIcon (ICON_00000016, Preload, noSpecialMemory) {
       $8000,                  // kind
       $0010,                  // height
       $0010,                  // width

       $"00000000000000FF"
       $"0FFFFFFFFFFF0F0F"
       $"0F33F33FFFFF0FF0"
       $"0FFFFFFFFFFF0000"
       $"0F3333F3FFFFFFF0"
       $"0FFFFFFFFFFFFFF0"
       $"0F33F333F33F33F0"
       $"0FFFFFFFFFFFFFF0"
       $"0F3F33F33F3333F0"
       $"0FFFFFFFFFFFFFF0"
       $"0F33333F3333F3F0"
       $"0FFFFFFFFFFFFFF0"
       $"0F33F333FFFFFFF0"
       $"0FFFFFFFF333FFF0"
       $"0FFFFFFFFFFFFFF0"
       $"0000000000000000",

       $"FFFFFFFFFFFFFF00"
       $"FFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF";
};

resource rIcon (ICON_00000017, Preload, noSpecialMemory) {
       $0000,                  // kind
       $0010,                  // height
       $0010,                  // width

       $"00000000000000FF"
       $"0FFFFFFFFFFF0F0F"
       $"0F00F00FFFFF0FF0"
       $"0FFFFFFFFFFF0000"
       $"0F0000F0FFFFFFF0"
       $"0FFFFFFFFFFFFFF0"
       $"0F00F000F00F00F0"
       $"0FFFFFFFFFFFFFF0"
       $"0F0F00F00F0000F0"
       $"0FFFFFFFFFFFFFF0"
       $"0F00000F0000F0F0"
       $"0FFFFFFFFFFFFFF0"
       $"0F00F000FFFFFFF0"
       $"0FFFFFFFF000FFF0"
       $"0FFFFFFFFFFFFFF0"
       $"0000000000000000",

       $"FFFFFFFFFFFFFF00"
       $"FFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF";
};

resource rIcon (ICON_00000018, Preload, noSpecialMemory) {
       $8000,                  // kind
       $0010,                  // height
       $0010,                  // width

       $"00000000000000FF"
       $"0FFFFFFFFFFF0F0F"
       $"0FC0FF8F88FF0FF0"
       $"0FFFFFFFFFFF0000"
       $"0FC0FF888F8FFFF0"
       $"0FFFFFFFFFFFFFF0"
       $"0FC0FF6E6E6FFFF0"
       $"0FFFFFFFFFFFFFF0"
       $"0F00FF6666F666F0"
       $"0FFFFFFFFFFFFFF0"
       $"0F00FF44F4444FF0"
       $"0FFFFFFFFFFFFFF0"
       $"0F00FF5555F5FFF0"
       $"0FFFFFFFFFFFFFF0"
       $"0F00FF111F1FFFF0"
       $"0000000000000000",

       $"FFFFFFFFFFFFFF00"
       $"FFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF";
};

resource rIcon (ICON_00000019, Preload, noSpecialMemory) {
       $8000,                  // kind
       $0010,                  // height
       $0010,                  // width

       $"00000000000000FF"
       $"0FFFFFFFFFFF0F0F"
       $"0F0FC03F0FC00FF0"
       $"0F0F0F0F0F0F0000"
       $"0F0F0F0F0F0F0FF0"
       $"0F0FC03F0FC03FF0"
       $"0FFFFFFFFFFFFFF0"
       $"0FC03FC03F0FC030"
       $"0F0F0F0F0F0F0F00"
       $"0F0F0F0F0F0F0F00"
       $"0FC03FC03F0FC030"
       $"0FFFFFFFFFFFFFF0"
       $"0F0FF0FC03F0F0F0"
       $"0F0FF0F0F0F0F0F0"
       $"0F0FF0F0F0F0F0F0"
       $"0000000000000000",

       $"FFFFFFFFFFFFFF00"
       $"FFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF";
};

resource rIcon (ICON_0000001A, Preload, noSpecialMemory) {
       $0000,                  // kind
       $0010,                  // height
       $0010,                  // width

       $"F0000000000FFFFF"
       $"0F0FFFFFFFF0FFFF"
       $"0F0FFF000FF0FFFF"
       $"000FFF0000F0FFFF"
       $"FF00F00FF0F0FFFF"
       $"FFF0F000FFF00FFF"
       $"FFF0FF0000FF0FFF"
       $"FFF0FFFF000F0FFF"
       $"FFF00F0FF00F0FFF"
       $"FFFF0F00000F00FF"
       $"FFFF0FF000FFF0FF"
       $"FFFF0FFFFFFFF0FF"
       $"FFFF00F000000000"
       $"FFFFF0F0FFFFFFF0"
       $"FFFFF0F0FFFFFFF0"
       $"FFFFFF000000000F",

       $"0FFFFFFFFFF00000"
       $"FFFFFFFFFFFF0000"
       $"FFFFFFFFFFFF0000"
       $"FFFFFFFFFFFF0000"
       $"00FFFFFFFFFF0000"
       $"000FFFFFFFFFF000"
       $"000FFFFFFFFFF000"
       $"000FFFFFFFFFF000"
       $"000FFFFFFFFFF000"
       $"0000FFFFFFFFFF00"
       $"0000FFFFFFFFFF00"
       $"0000FFFFFFFFFF00"
       $"0000FFFFFFFFFFFF"
       $"00000FFFFFFFFFFF"
       $"00000FFFFFFFFFFF"
       $"000000FFFFFFFFF0";
};

resource rIcon (ICON_0000001B, Preload, noSpecialMemory) {
       $8000,                  // kind
       $0011,                  // height
       $0012,                  // width

       $"FF00000000000000FF"
       $"F0F0F555555FFFF0FF"
       $"0FF0FF0FF0FFFFF0CF"
       $"0000F0FFF0FFFFF0CF"
       $"0FFF0FFFFF0FFFF0CF"
       $"0FF0FFF00000FFF0CF"
       $"0F0FFF0FFFFF0FF0CF"
       $"0F0FFF0FFFFFF0F0CF"
       $"0F0FFFF000FFF0F0CF"
       $"0FF0FFFFFF0FF0F0CF"
       $"0FFF0FFFF0FF0FF0CF"
       $"0FFFF0000FF0FFF0CF"
       $"0FFFFF0FFF0FFFF0CF"
       $"0FFFFF0FF0FFFFF0CF"
       $"0FFFF555555FFFF0CF"
       $"0000000000000000CF"
       $"FCCCCCCCCCCCCCCCCF",

       $"00FFFFFFFFFFFFFF00"
       $"0FFFFFFFFFFFFFFF00"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"0FFFFFFFFFFFFFFFF0";
};

resource rIcon (ICON_0000001C, Preload, noSpecialMemory) {
       $8000,                  // kind
       $0011,                  // height
       $0012,                  // width

       $"FF00000000000000FF"
       $"F0F0111111111110FF"
       $"0FF0111111111110CF"
       $"0000111111111110CF"
       $"01FFFFFFFFFFFF10CF"
       $"01F3D3CC1FFFFF10CF"
       $"01F1111111111F10CF"
       $"01F1FFFFF1111F10CF"
       $"01F1CCC1C1C11F10CF"
       $"01F1CC1111111F10CF"
       $"01F1111111111F10CF"
       $"01F1111111111F10CF"
       $"01F13C11113C1F10CF"
       $"01FFFFFFFFFFFF10CF"
       $"0111111111111110CF"
       $"0000000000000000CF"
       $"FCCCCCCCCCCCCCCCCF",

       $"00FFFFFFFFFFFFFF00"
       $"0F0FFFFFFFFFFFFF00"
       $"F00FFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"0FFFFFFFFFFFFFFFF0";
};

resource rIcon (ICON_0000001D, Preload, noSpecialMemory) {
       $8000,                  // kind
       $0011,                  // height
       $0012,                  // width

       $"FF00000000000000FF"
       $"F0F0FFFFFFFFFFF0FF"
       $"0FF3000800FFFFF0CF"
       $"0003004400FFFFF0CF"
       $"0FFF00DD00FFFFF0CF"
       $"0000000000000000CF"
       $"0DD0FFFFFFFFF0D0CF"
       $"0DD0F0C0000CF0D0CF"
       $"0DD0F000C000F0D0CF"
       $"0DD0FFFFFFFFF0D0CF"
       $"0DD0F000C0C0F0D0CF"
       $"0DD0F0C00000F0D0CF"
       $"0DD0FFFFFFFFF0D0CF"
       $"0DD00000000000D0CF"
       $"0DDDDDDDDDDDDDD0CF"
       $"0000000000000000CF"
       $"FCCCCCCCCCCCCCCCCF",

       $"00FFFFFFFFFFFFFF00"
       $"0FFFFFFFFFFFFFFF00"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"0FFFFFFFFFFFFFFFF0";
};

resource rIcon (ICON_0000001E, Preload, noSpecialMemory) {
       $8000,                  // kind
       $0011,                  // height
       $0012,                  // width

       $"FF00000000000000FF"
       $"F0F0DDDDDDDDDDD0FF"
       $"0FF00000000000D0CF"
       $"0000FF0000FFF0D0CF"
       $"0D000000000000D0CF"
       $"0D0440FFFFFFF0D0CF"
       $"0D0440F000F0F0D0CF"
       $"0D0BB0FFFFFFF0D0CF"
       $"0D0BB0F000F0F0D0CF"
       $"0D0110FFFFFFF0D0CF"
       $"0D011000000000D0CF"
       $"0D0EE0DDDDDDD0D0CF"
       $"0D0EE0DDDDDDD0D0CF"
       $"0D000000000000D0CF"
       $"0DDDDDDDDDDDDDD0CF"
       $"0000000000000000CF"
       $"FCCCCCCCCCCCCCCCCF",

       $"00FFFFFFFFFFFFFF00"
       $"0FFFFFFFFFFFFFFF00"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"0FFFFFFFFFFFFFFFF0";
};

resource rIcon (ICON_0000001F, Preload, noSpecialMemory) {
       $8000,                  // kind
       $0011,                  // height
       $0012,                  // width

       $"FF00000000000000FF"
       $"F0F0FFFFFFFFFFF0FF"
       $"0FF0FFFFFFFFFFF0CF"
       $"0000F0FC0003FFF0CF"
       $"0FFFC00000000FF0CF"
       $"0FFFC000000000F0CF"
       $"0FFFC0FF000FF0F0CF"
       $"0FFFFFFF020FFFF0CF"
       $"0FFFFFFF020FFFF0CF"
       $"0FFFFFFF020FFFF0CF"
       $"0FFFFFFF020FFFF0CF"
       $"0FFFFFFF020FFFF0CF"
       $"0FFFFFFF020FFFF0CF"
       $"0FFFFFFF000FFFF0CF"
       $"0FFFFFFFFFFFFFF0CF"
       $"0000000000000000CF"
       $"FCCCCCCCCCCCCCCCCF",

       $"00FFFFFFFFFFFFFF00"
       $"0FFFFFFFFFFFFFFF00"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"0FFFFFFFFFFFFFFFF0";
};

resource rIcon (ICON_00000020, Preload, noSpecialMemory) {
       $8000,                  // kind
       $0011,                  // height
       $0010,                  // width

       $"0000000000000000"
       $"0CCCCCCCCCCCCCC0"
       $"0C4FFFFFFFFFFFC0"
       $"0CDDDDDDDDDDDDC0"
       $"0CDCCCCCCDDD3DC0"
       $"0CDFFFFFDDDDDDC0"
       $"0CDFFFFFDDDD3DC0"
       $"0CDFFFFFDDDDDDC0"
       $"0CDDDDDDDDDDDDC0"
       $"0CCCCCCCCCCCCCC0"
       $"0000000000000000"
       $"F0CCCCCCCCCCCC0F"
       $"F0CCCCCCCCCCCC0F"
       $"F0C4CCCCCCCCCC0F"
       $"F00000000000000F"
       $"F0CCCCCCCCCCCC0F"
       $"F00000000000000F",

       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"0FFFFFFFFFFFFFF0"
       $"0FFFFFFFFFFFFFF0"
       $"0FFFFFFFFFFFFFF0"
       $"0FFFFFFFFFFFFFF0"
       $"0FFFFFFFFFFFFFF0"
       $"0FFFFFFFFFFFFFF0";
};

resource rIcon (ICON_00000021, Preload, noSpecialMemory) {
       $8000,                  // kind
       $000E,                  // height
       $0012,                  // width

       $"000000000000000000"
       $"0F0FFFFFFFFFFFF0F0"
       $"0F0F33333F333FF0F0"
       $"0F0FFFFFFFFFFFF0F0"
       $"0F0F333F333333F0F0"
       $"0F0FFFFFFFFFFFF0F0"
       $"0F0FFFFFFFFFFFF0F0"
       $"0F00000000000000F0"
       $"0FFFFFFFFFFFFFFFF0"
       $"0FFFFCCCCCCCCFFFF0"
       $"0FFFFCCFCCCCCFFFF0"
       $"0FFFFCCFCCCCCFFFF0"
       $"F0FFFCCFCCCCCFFFF0"
       $"FF0000000000000000",

       $"FFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFF"
       $"0FFFFFFFFFFFFFFFFF"
       $"00FFFFFFFFFFFFFFFF";
};

resource rIcon (ICON_00000022, Preload, noSpecialMemory) {
       $8000,                  // kind
       $000B,                  // height
       $001E,                  // width

       $"FFFFF0000000000000000000000000"
       $"FFF00BBBBBBBBBBBBBBBBBBBBBBBB0"
       $"F00BB0B0B0B0B0B0B0B0B0B0B0B0B0"
       $"0BBBB0B0B0B0B0B0B0B0B0B0B0B0B0"
       $"0BBBBBBBBBBBBBBBBBBBBBBBBBBBB0"
       $"0BB0B0B0B0B0B0B0B0B0B0B0B0B0B0"
       $"0BB0B0B0B0B0B0B0B0B0B0B0B0B0B0"
       $"0BBBBBBBBBBBBBBBBBBBBBBBBBBBB0"
       $"0000000000000000000E0E0E0E0E00"
       $"FFFFFFFFFFFFFFFFFF0E0E0E0E0E0F"
       $"FFFFFFFFFFFFFFFFFF00000000000F",

       $"00000FFFFFFFFFFFFFFFFFFFFFFFFF"
       $"000FFFFFFFFFFFFFFFFFFFFFFFFFFF"
       $"0FFFFFFFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF"
       $"000000000000000000FFFFFFFFFFF0"
       $"000000000000000000FFFFFFFFFFF0";
};

resource rIcon (ICON_00000023, Preload, noSpecialMemory) {
       $8000,                  // kind
       $0009,                  // height
       $0018,                  // width

       $"000000000000000000000000"
       $"033333333333333333333330"
       $"033333333333333333344330"
       $"033333333000000333333330"
       $"033000000000000000000330"
       $"033333333000000333333330"
       $"033333333333333333333330"
       $"033333333333333333333330"
       $"000000000000000000000000",

       $"FFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFF";
};

resource rIcon (ICON_00000024, Preload, noSpecialMemory) {
       $8000,                  // kind
       $0011,                  // height
       $0016,                  // width

       $"0000000000000000000000"
       $"0FFFFFFFFFFFFFFFFFFFF0"
       $"0FFFFFFFFFFFFFFFFFF900"
       $"0FFFFFFFFFFFFFFFFFFFF0"
       $"0FFFFFFFFFFFFFFFFFFFF0"
       $"0FFFFFFFFFFFFFFFFFFFF0"
       $"0FFFFFFFFF000FFFFFFFF0"
       $"0FFFFFFFF00000FFFFFFF0"
       $"0FFFFFFFF00000FFFFFFF0"
       $"0FFFFFFFFF000FFFFFFFF0"
       $"0FFFFFFFFFFFFFFFFFFFF0"
       $"0FFFFFFFFFF0FFFFFFFFF0"
       $"0FFFFFFFFF000FFFFFFFF0"
       $"0FFFFFFFFF000FFFFFFFF0"
       $"0FFFFFFFFF000FFFFFFFF0"
       $"0FFFFFFFFFF0FFFFFFFFF0"
       $"0000000000000000000000",

       $"FFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFF";
};

resource rIcon (ICON_00000025, Preload, noSpecialMemory) {
       $8000,                  // kind
       $0009,                  // height
       $001E,                  // width

       $"F0000000000000000000000000000F"
       $"033333333333333333333333333330"
       $"0CCCCCCCCCCCCCCCCCCCCCCC444CC0"
       $"033333333333333333333333333330"
       $"033333333333333333333333333330"
       $"033333333333333333333333333330"
       $"033333333333333333333333333330"
       $"033333333333333333333333333330"
       $"F0000000000000000000000000000F",

       $"0FFFFFFFFFFFFFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF"
       $"0FFFFFFFFFFFFFFFFFFFFFFFFFFFF0";
};

resource rIcon (ICON_00000026, Preload, noSpecialMemory) {
       $8000,                  // kind
       $0010,                  // height
       $001E,                  // width

       $"FFFFFFFF33F33F3F3F3F3F3F3F33FF"
       $"FFFFFFF3FFFFFFFFFFFFFFFFFFFF3F"
       $"FFFFFFFFFFFFFFFFFFFFFFFF44FF3F"
       $"FFFFFFF3FFFFFFFFFFFFFFFFFFFFFF"
       $"FFFF333333333333333333333FFF3F"
       $"FFF3F3F3F3F3F3F3F3F3F3F3F3FFFF"
       $"FFF33F3F3F3F3F3F3F3F444F33FF3F"
       $"FFF3F3F3F3F3F3F3F3F3F3F3F3FF3F"
       $"F0000000000000000000003F33F3FF"
       $"03333333333333333333330FF3FFFF"
       $"0CCCCCCCCCCCCCCCCC44CC0F33FFFF"
       $"03333333333333333333330CF3FFFF"
       $"03333333333333333333330F3FFFFF"
       $"03333333333333333333330FFFFFFF"
       $"03333333333333333333330FFFFFFF"
       $"F000000000000000000000FFFFFFFF",

       $"00000000FFFFFFFFFFFFFFFFFFFF00"
       $"0000000FFFFFFFFFFFFFFFFFFFFFF0"
       $"0000000FFFFFFFFFFFFFFFFFFFFFF0"
       $"0000000FFFFFFFFFFFFFFFFFFFFFF0"
       $"0000FFFFFFFFFFFFFFFFFFFFFFFFF0"
       $"000FFFFFFFFFFFFFFFFFFFFFFFFFF0"
       $"000FFFFFFFFFFFFFFFFFFFFFFFFFF0"
       $"000FFFFFFFFFFFFFFFFFFFFFFFFFF0"
       $"0FFFFFFFFFFFFFFFFFFFFFFFFFFF00"
       $"FFFFFFFFFFFFFFFFFFFFFFFFFF0000"
       $"FFFFFFFFFFFFFFFFFFFFFFFFFF0000"
       $"FFFFFFFFFFFFFFFFFFFFFFFFFF0000"
       $"FFFFFFFFFFFFFFFFFFFFFFFFF00000"
       $"FFFFFFFFFFFFFFFFFFFFFFF0000000"
       $"FFFFFFFFFFFFFFFFFFFFFFF0000000"
       $"0FFFFFFFFFFFFFFFFFFFFF00000000";
};

resource rIcon (ICON_00000027, Preload, noSpecialMemory) {
       $8000,                  // kind
       $0013,                  // height
       $0018,                  // width

       $"FFFFFFFFFF0FF0000000FFFF"
       $"FFFFFFFFF0a0F0FFFFF00FFF"
       $"FFF0000F0aaa00FDDDF000FF"
       $"FF0eeee0000aa0FDDFFFF0FF"
       $"FF0eeeeeeee0aa0DDDDDF0FF"
       $"FF0eeeeeeee0aaa0FFFFF0FF"
       $"FF0eeeeeeee0aa0FDDDDF0FF"
       $"FF0eeeeeeee0a0FFFFFFF0FF"
       $"000000000000000000000000"
       $"F0333333333333333333330F"
       $"FF00000000000000000000FF"
       $"FFFFFFFFFFFFFFF030FFFFFF"
       $"FFFFFFFFFFFFFF00000FFFFF"
       $"FFFFFFFFFFFFFF0EEE0FFFFF"
       $"FFFFFFFFFFFFFF00000FFFFF"
       $"FFFFFFFFFFFFFF03030FFFFF"
       $"FF0F0000000000CC03300F0F"
       $"3F33333333333330F03333F3"
       $"0F0000000000000FFF000000",

       $"0000000000F00FFFFFFF0000"
       $"000000000FFF0FFFFFFFF000"
       $"000FFFF0FFFFFFFFFFFFFF00"
       $"00FFFFFFFFFFFFFFFFFFFF00"
       $"00FFFFFFFFFFFFFFFFFFFF00"
       $"00FFFFFFFFFFFFFFFFFFFF00"
       $"00FFFFFFFFFFFFFFFFFFFF00"
       $"00FFFFFFFFFFFFFFFFFFFF00"
       $"FFFFFFFFFFFFFFFFFFFFFFFF"
       $"0FFFFFFFFFFFFFFFFFFFFFF0"
       $"00FFFFFFFFFFFFFFFFFFFF00"
       $"000000000000000FFF000000"
       $"00000000000000FFFFF00000"
       $"00000000000000FFFFF00000"
       $"00000000000000FFFFF00000"
       $"00000000000000FFFFF00000"
       $"00F0FFFFFFFFFFFFFFFFF0F0"
       $"F0FFFFFFFFFFFFFF0FFFFFFF"
       $"F0FFFFFFFFFFFFF000FFFFFF";
};

resource rIcon (ICON_00000028, Preload, noSpecialMemory) {
       $8000,                  // kind
       $0011,                  // height
       $0014,                  // width

       $"F000000000000000000F"
       $"0333300FCFCFC0033330"
       $"03330CECFCFCFCF03330"
       $"0330AECECFCFCFCF0330"
       $"030CFAECFCFCFCFCF030"
       $"030FCFAFCFCFCFCFC030"
       $"00FCFCFA0FF0FCFCFC00"
       $"00CFCFC0FFFF0FCFCF00"
       $"00FCFCF0FFFF0CFCFC00"
       $"00CFCFCF0FF0CFCFCF00"
       $"030CFCFCFCFAFCFCF000"
       $"030FCFCFCFCFAECEC030"
       $"0330FCFCFCFCFAEC0330"
       $"03330FCFCFCFCEA03330"
       $"0333300CFCFCF0033330"
       $"0CCCCCCCCCCCCCCCCCC0"
       $"F000000FEFEFE000000F",

       $"0FFFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFF"
       $"0FFFFFFFFFFFFFFFFFF0";
};

resource rIcon (ICON_00000029, Preload, noSpecialMemory) {
       $8000,                  // kind
       $0018,                  // height
       $001A,                  // width

       $"FFFFFFF333F3F3F3F3F3F3F33F"
       $"FFFFFF3FFFF33FFFFFF33FFFF3"
       $"FFFFFFFFFF3FFFFFFFFFF3FFFF"
       $"FFFF333333333333333333FFF3"
       $"FFF3FFFFCCFCFCFCCCFFFF33FF"
       $"FFF3FFFCCFCFCFCFCFCFFF3FF3"
       $"FFF3FFCBBCFCFCFCFCFCFF3F3F"
       $"F000000000000000000FCF3F33"
       $"0333300FCFCFC0033330CF3F3F"
       $"03330CECFCFCFCF03330F33F33"
       $"0330AECECFCFCFCF0330F33F3F"
       $"030CFAECFCFCFCFCF030F333F3"
       $"030FCFAFCFCF3FCFC030F33FFF"
       $"00FCFCFA0FF0FCFCFC00C33FF3"
       $"00CFCFC0FFFF0FCFCF00CF3FFF"
       $"00FCFCF0FFFF0CFCFC00FF3FF3"
       $"00CFCFCF0FF0CFCFCF00FF3FF3"
       $"030CFCFCFCFAFCFCF000FF3F3F"
       $"030FCFCFCFCFAECEC030FF3FFF"
       $"0330FCFCFCFCFAEC0330FF3FFF"
       $"03330FCFCFCFCEA0333033FFFF"
       $"0333300CFCFCF0033330FFFFFF"
       $"0CCCCCCCCCCCCCCCCCC0FFFFFF"
       $"F000000FEFEFE000000FFFFFFF",

       $"0000000FFFFFFFFFFFFFFFFFF0"
       $"000000FFFFFFFFFFFFFFFFFFFF"
       $"000000FFFFFFFFFFFFFFFFFFFF"
       $"0000FFFFFFFFFFFFFFFFFFFFFF"
       $"000FFFFFFFFFFFFFFFFFFFFFFF"
       $"000FFFFFFFFFFFFFFFFFFFFFFF"
       $"000FFFFFFFFFFFFFFFFFFFFFFF"
       $"0FFFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFFFFFFFF000"
       $"FFFFFFFFFFFFFFFFFFFFFFF000"
       $"FFFFFFFFFFFFFFFFFFFFFF0000"
       $"FFFFFFFFFFFFFFFFFFFF000000"
       $"FFFFFFFFFFFFFFFFFFFF000000"
       $"0FFFFFFFFFFFFFFFFFF0000000";
};

resource rIcon (ICON_0000002C, Preload, noSpecialMemory) {
       $0000,                  // kind
       $0014,                  // height
       $0012,                  // width

       $"FFFFFFF000FFFFFFFF"
       $"FFFFFF0FFF0FFFFFFF"
       $"00000000000000000F"
       $"0FFFFFFFFFFFFFFF0F"
       $"F000000000000000FF"
       $"F0FFFFFFFFFFFFF0FF"
       $"F0F0F0FF0FF0F0F0FF"
       $"F0F0F0FF0FF0F0F0FF"
       $"F0F0F0FF0FF0F0F0FF"
       $"F0F0F0FF0FF0F0F0FF"
       $"F0F0F0FF0FF0F0F0FF"
       $"F0F0F0FF0FF0F0F0FF"
       $"F0F0F0FF0FF0F0F0FF"
       $"F0F0F0FF0FF0F0F0FF"
       $"F0F0F0FF0FF0F0F0FF"
       $"F0F0F0FF0FF0F0F0FF"
       $"F0F0F0FF0FF0F0F0FF"
       $"F0FFFFFFFFFFFFF0FF"
       $"F0FFFFFFFFFFFFF0FF"
       $"FF0000000000000FFF",

       $"0000000FFF00000000"
       $"000000FFFFF0000000"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"0FFFFFFFFFFFFFFF00"
       $"0FFFFFFFFFFFFFFF00"
       $"0FFFFFFFFFFFFFFF00"
       $"0FFFFFFFFFFFFFFF00"
       $"0FFFFFFFFFFFFFFF00"
       $"0FFFFFFFFFFFFFFF00"
       $"0FFFFFFFFFFFFFFF00"
       $"0FFFFFFFFFFFFFFF00"
       $"0FFFFFFFFFFFFFFF00"
       $"0FFFFFFFFFFFFFFF00"
       $"0FFFFFFFFFFFFFFF00"
       $"0FFFFFFFFFFFFFFF00"
       $"0FFFFFFFFFFFFFFF00"
       $"0FFFFFFFFFFFFFFF00"
       $"0FFFFFFFFFFFFFFF00"
       $"00FFFFFFFFFFFFF000";
};

resource rIcon (ICON_0000002D, Preload, noSpecialMemory) {
       $0000,                  // kind
       $0014,                  // height
       $0016,                  // width

       $"FFFFFFFFF000FFFFFFFFFF"
       $"FFFFFFFF0FFF0FFFFFFFFF"
       $"FF00000000000000000FFF"
       $"FF0FFFFFFFFFFFFFFF0FFF"
       $"FF00000000000000000FFF"
       $"FFF0FFFFFFFFFFFFF0FFFF"
       $"FF0F0FF0FFFFF0FF0F0FFF"
       $"FF0F0FF0FF0FF0FF0F0FFF"
       $"F0F0FF0FFF0FFF0FF0F0FF"
       $"F0F0FF0FFF0FFF0FF0F0FF"
       $"0F0FFF0FFF0FFF0FFF0F0F"
       $"0F0FFF0FFF0FFF0FFF0F0F"
       $"0F0FFF0FFF0FFF0FFF0F0F"
       $"0F0FFF0FFF0FFF0FFF0F0F"
       $"F0F0FF0FFF0FFF0FF0F0FF"
       $"F0F0FFF0FF0FF0FFF0F0FF"
       $"FF0F0FF0FF0FF0FF0F0FFF"
       $"FF0FF0FF0FFF0FF0FF0FFF"
       $"FFF0FFFFFFFFFFFFF0FFFF"
       $"FFFF0000000000000FFFFF",

       $"000000000FFF0000000000"
       $"00000000FFFFF000000000"
       $"00FFFFFFFFFFFFFFFFF000"
       $"00FFFFFFFFFFFFFFFFF000"
       $"00FFFFFFFFFFFFFFFFF000"
       $"000FFFFFFFFFFFFFFF0000"
       $"00FFFFFFFFFFFFFFFFF000"
       $"00FFFFFFFFFFFFFFFFF000"
       $"0FFFFFFFFFFFFFFFFFFF00"
       $"0FFFFFFFFFFFFFFFFFFF00"
       $"FFFFFFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFFFFFF0"
       $"0FFFFFFFFFFFFFFFFFFF00"
       $"0FFFFFFFFFFFFFFFFFFF00"
       $"00FFFFFFFFFFFFFFFFF000"
       $"00FFFFFFFFFFFFFFFFF000"
       $"000FFFFFFFFFFFFFFF0000"
       $"0000FFFFFFFFFFFFF00000";
};

resource rIcon (ICON_0000002E, Preload, noSpecialMemory) {
       $8000,                  // kind
       $0010,                  // height
       $0010,                  // width

       $"0000000000000000"
       $"0CCCCCCCCCCCCCC0"
       $"0C4CCCCCCCCCCCC0"
       $"0C00000000000CC0"
       $"0C0F0FFFFF0F0CC0"
       $"000F0FFFFF0F0000"
       $"FF0F0FFFFF0F0FFF"
       $"FF0F000000000000"
       $"FF0F00000000000F"
       $"FF0FF00000000000"
       $"FF0FF00000F00000"
       $"FFF000000FFF0000"
       $"FFFFF00000F00000"
       $"FFFFF00000000000"
       $"FFFFF00000000000"
       $"FFFFF00000000000",

       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"00FFFFFFFFFFF000"
       $"00FFFFFFFFFFFFFF"
       $"00FFFFFFFFFFFFF0"
       $"00FFFFFFFFFFFFFF"
       $"00FFFFFFFFFFFFFF"
       $"000FFFFFFFFFFFFF"
       $"00000FFFFFFFFFFF"
       $"00000FFFFFFFFFFF"
       $"00000FFFFFFFFFFF"
       $"00000FFFFFFFFFFF";
};

resource rIcon (ICON_0000002F, Preload, noSpecialMemory) {
       $8000,                  // kind
       $0013,                  // height
       $0012,                  // width

       $"FFFFFF8FFFFFFFFFFF"
       $"FFFFF8FFFFFFFFFFFF"
       $"FF88F888FFFFFFFFFF"
       $"FEEEEEEEEFFFFFFFFF"
       $"F6666666FFFFFFFFFF"
       $"F4444444FFFFFFFFFF"
       $"FF5555555FFFFFFFFF"
       $"4FF11F11FFFFFFFFFF"
       $"44FFFFFFFFFFFFFFFF"
       $"444FFFF00000000000"
       $"444FFFF0F0FFFFF0F0"
       $"444FF4FFF0FFFFF0F0"
       $"444FF44FF0FFFFF0F0"
       $"44444444F0000000F0"
       $"444444444FFFFFFFF0"
       $"F4444444FF333333F0"
       $"FFFFF44FFF3F3333F0"
       $"FFFFF4FF0F3F3333F0"
       $"FFFFFFFFF00000000F",

       $"000000F00000000000"
       $"00000F000000000000"
       $"00FF0FFF0000000000"
       $"0FFFFFFFF000000000"
       $"0FFFFFFF0000000000"
       $"0FFFFFFF0000000000"
       $"00FFFFFFF000000000"
       $"F00FF0FF0000000000"
       $"FF0000000000000000"
       $"FFF0000FFFFFFFFFFF"
       $"FFF0000FFFFFFFFFFF"
       $"FFF00F0FFFFFFFFFFF"
       $"FFF00FFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFF"
       $"0FFFFFFFFFFFFFFFFF"
       $"00000FFFFFFFFFFFFF"
       $"00000F00FFFFFFFFFF"
       $"000000000FFFFFFFF0";
};

resource rIcon (ICON_00000030, Preload, noSpecialMemory) {
       $8000,                  // kind
       $0015,                  // height
       $0018,                  // width

       $"FFFFFFFFFF00FFFFFFFFFFFF"
       $"FFFFFFFFF03C0FFFFFF00FFF"
       $"FFFFFFFF03FFC0FFFF0770FF"
       $"FFFFFFF03FF3FC0FF007770F"
       $"FFFFFF03FF3FF3C00E30770F"
       $"FFFFF03FF3FF3FF0E3E300FF"
       $"FFFF03FF3FFFFF0E3E3E0FFF"
       $"FFF03FFFFF3FF0E3E3E0FFFF"
       $"FF03FF3FF3FF0E3E3E00FFFF"
       $"F03FF3FF3FFF0EE3E0FC0FFF"
       $"03FF3FFFFF3300EE0FFFC0FF"
       $"F03FFF3FFFFF0000FFF30FFF"
       $"FF03F3FFF3FFFFFFFF30FFFF"
       $"FFF03FFF3FFFFFFFF30FFFFF"
       $"FFFF03F3FFFFFFFF30FFFFFF"
       $"FFFFF03FFFFFFFF30FFFFFFF"
       $"FFFFFF03FFFFFFC0FFFFFFFF"
       $"FFFFFFF03FFFFC0FFFFFFFFF"
       $"FFFFFFFF03FFC0FFFFFFFFFF"
       $"FFFFFFFFF03C0FFFFFFFFFFF"
       $"FFFFFFFFFF00FFFFFFFFFFFF",

       $"0000000000FF000000000000"
       $"000000000FFFF000000FF000"
       $"00000000FFFFFF0000FFFF00"
       $"0000000FFFFFFFF00FFFFFF0"
       $"000000FFFFFFFFFFFFFFFFF0"
       $"00000FFFFFFFFFFFFFFFFF00"
       $"0000FFFFFFFFFFFFFFFFF000"
       $"000FFFFFFFFFFFFFFFFF0000"
       $"00FFFFFFFFFFFFFFFFFF0000"
       $"0FFFFFFFFFFFFFFFFFFFF000"
       $"FFFFFFFFFFFFFFFFFFFFFF00"
       $"0FFFFFFFFFFFFFFFFFFFF000"
       $"00FFFFFFFFFFFFFFFFFF0000"
       $"000FFFFFFFFFFFFFFFF00000"
       $"0000FFFFFFFFFFFFFF000000"
       $"00000FFFFFFFFFFFF0000000"
       $"000000FFFFFFFFFF00000000"
       $"0000000FFFFFFFF000000000"
       $"00000000FFFFFF0000000000"
       $"000000000FFFF00000000000"
       $"0000000000FF000000000000";
};

resource rIcon (ICON_00000031, Preload, noSpecialMemory) {
       $0000,                  // kind
       $0015,                  // height
       $0018,                  // width

       $"FFFFFFFFFF00FFFFFFFFFFFF"
       $"FFFFFFFFF0FF0FFFFFFFFFFF"
       $"FFFFFFFF0FFFF0FFFFFFFFFF"
       $"FFFFFFF0FFFFFF0FFFFFFFFF"
       $"FFFFFF0FFFFFFFF0FFFFFFFF"
       $"FFFFF0FFFFFFFFFF0FFFFFFF"
       $"FFFF0FFFFFFFFFFFF0FFFFFF"
       $"FFF0FFFFFFFFFFFFFF0FFFFF"
       $"FF0FFFFFFFFFFF00FFF0FFFF"
       $"F0FFFFFFFFFFF0FF00FF0FFF"
       $"0FFFFFFFFFFF0F0FFF0FF0FF"
       $"F0FFFFFFFFF0F0F0FFF00FFF"
       $"FF0FFFFF00000000FFFF0000"
       $"FFF0FFFFFFF0F00FFFFFF000"
       $"FFFF0FFFFFFF0FFFFFFFF000"
       $"FFFFF0FFFFFFF00000000000"
       $"FFFFFF0FFFFFFFF0FFFFF000"
       $"FFFFFFF0FFFFFF0FFFFFFFFF"
       $"FFFFFFFF0FFFF0FFFFFFFFFF"
       $"FFFFFFFFF0FF0FFFFFFFFFFF"
       $"FFFFFFFFFF00FFFFFFFFFFFF",

       $"0000000000FF000000000000"
       $"000000000FFFF00000000000"
       $"00000000FFFFFF0000000000"
       $"0000000FFFFFFFF000000000"
       $"000000FFFFFFFFFF00000000"
       $"00000FFFFFFFFFFFF0000000"
       $"0000FFFFFFFFFFFFFF000000"
       $"000FFFFFFFFFFFFFFFF00000"
       $"00FFFFFFFFFFFFFFFFFF0000"
       $"0FFFFFFFFFFFFFFFFFFFF000"
       $"FFFFFFFFFFFFFFFFFFFFFF00"
       $"0FFFFFFFFFFFFFFFFFFFF000"
       $"00FFFFFFFFFFFFFFFFFFFFFF"
       $"000FFFFFFFFFFFFFFFFFFFFF"
       $"0000FFFFFFFFFFFFFFFFFFFF"
       $"00000FFFFFFFFFFFFFFFFFFF"
       $"000000FFFFFFFFFF00000FFF"
       $"0000000FFFFFFFF000000000"
       $"00000000FFFFFF0000000000"
       $"000000000FFFF00000000000"
       $"0000000000FF000000000000";
};

resource rIcon (ICON_00000032, Preload, noSpecialMemory) {
       $0000,                  // kind
       $0015,                  // height
       $0018,                  // width

       $"FFFFFFFFFF00FFFFFFFFFFFF"
       $"FFFFFFFFF0FF0FFFFFFFFFFF"
       $"FFFFFFFF0FFFF0FFFFFFFFFF"
       $"FFFFFFF0FFFFFF0FFFFFFFFF"
       $"FFFFFF0FFFFFFFF0FFFFFFFF"
       $"FFFFF0FFFFFFFFFF0FFFFFFF"
       $"FFFF0FFFFFFFFFFFF0FFFFFF"
       $"FFF0FF00FFFFFFFFFF0FFFFF"
       $"FF0FF0FF0FFFFF00FFF0FFFF"
       $"F0FFFF00FFFFF0FF00FF0FFF"
       $"0FFFF0FF0FFF0F0FFF0FF0FF"
       $"F0FFFF00FFF0F0F0FFF00FFF"
       $"FF0FFFFF00000000FFFF0000"
       $"FFF0FFFFFFF0F00FFFFFF000"
       $"FFFF0FFFFFFF0FFFFFFFF000"
       $"FFFFF0FFFFFFF00000000000"
       $"FFFFFF0FFFFFFFF0FFFFF000"
       $"FFFFFFF0FFFFFF0FFFFFFFFF"
       $"FFFFFFFF0FFFF0FFFFFFFFFF"
       $"FFFFFFFFF0FF0FFFFFFFFFFF"
       $"FFFFFFFFFF00FFFFFFFFFFFF",

       $"0000000000FF000000000000"
       $"000000000FFFF00000000000"
       $"00000000FFFFFF0000000000"
       $"0000000FFFFFFFF000000000"
       $"000000FFFFFFFFFF00000000"
       $"00000FFFFFFFFFFFF0000000"
       $"0000FFFFFFFFFFFFFF000000"
       $"000FFFFFFFFFFFFFFFF00000"
       $"00FFFFFFFFFFFFFFFFFF0000"
       $"0FFFFFFFFFFFFFFFFFFFF000"
       $"FFFFFFFFFFFFFFFFFFFFFF00"
       $"0FFFFFFFFFFFFFFFFFFFF000"
       $"00FFFFFFFFFFFFFFFFFFFFFF"
       $"000FFFFFFFFFFFFFFFFFFFFF"
       $"0000FFFFFFFFFFFFFFFFFFFF"
       $"00000FFFFFFFFFFFFFFFFFFF"
       $"000000FFFFFFFFFF00000FFF"
       $"0000000FFFFFFFF000000000"
       $"00000000FFFFFF0000000000"
       $"000000000FFFF00000000000"
       $"0000000000FF000000000000";
};

resource rIcon (ICON_00000034, Preload, noSpecialMemory) {
       $8000,                  // kind
       $0014,                  // height
       $0018,                  // width

       $"FF111111111113FFFFFFFFFF"
       $"F1333333333113F000FFFFFF"
       $"1111111111131307770FFFFF"
       $"11333333331310700770FFFF"
       $"111130000000000040770FFF"
       $"199111F0FFFFF07700777000"
       $"19999110FFFFF00777777000"
       $"19999911FFFFF0F007777000"
       $"19999991000000F0F0000000"
       $"19911991FFFFFFF0FFFFF000"
       $"191BB19133333FF0FFFFFFFF"
       $"191BB1913F333FF0FFFFFFFF"
       $"199119913F333FF0FFFFFFFF"
       $"1999999100000000FFFFFFFF"
       $"19999991331331FFFFFFFFFF"
       $"11999991331313FFFFFFFFFF"
       $"F119999111113FFFFFFFFFFF"
       $"FFF11991FFFFFFFFFFFFFFFF"
       $"FFFF1191FFFFFFFFFFFFFFFF"
       $"FFFFFF11FFFFFFFFFFFFFFFF",

       $"00FFFFFFFFFFF00000000000"
       $"0FFFFFFFFFFFF00FFF000000"
       $"FFFFFFFFFFFFF0FFFFF00000"
       $"FFFFFFFFFFFFFFFFFFFF0000"
       $"FFFFFFFFFFFFFFFFFFFFF000"
       $"FFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF0FFFFFFF"
       $"FFFFFFFFFFFFFFFF00000FFF"
       $"FFFFFFFFFFFFFFFF00000000"
       $"FFFFFFFFFFFFFFFF00000000"
       $"FFFFFFFFFFFFFFFF00000000"
       $"FFFFFFFFFFFFFFFF00000000"
       $"FFFFFFFFFFFFFF0000000000"
       $"FFFFFFFFFFFFF00000000000"
       $"0FFFFFFFFFFF000000000000"
       $"000FFFFF0000000000000000"
       $"0000FFFF0000000000000000"
       $"000000FF0000000000000000";
};

resource rIcon (ICON_00000035, Preload, noSpecialMemory) {
       $8000,                  // kind
       $0014,                  // height
       $0012,                  // width

       $"FF1111111111113FFF"
       $"F13333333333113FFF"
       $"111111111111313FFF"
       $"113333333331313FFF"
       $"11113000000000000F"
       $"199111FFFFFFFFFF0F"
       $"1999911FF33333FF0F"
       $"19999911FFFFFFFF0F"
       $"199999913333333F0F"
       $"19911991FFFFFFFF0F"
       $"191BB191FFF3333F0F"
       $"191BB191FFFFFFFF0F"
       $"19911991FF33333F0F"
       $"19999991FFFFFFFF0F"
       $"19999991000000000F"
       $"11999991333113FFFF"
       $"F119999111113FFFFF"
       $"FFF11991FFFFFFFFFF"
       $"FFFF1191FFFFFFFFFF"
       $"FFFFFF11FFFFFFFFFF",

       $"00FFFFFFFFFFFFF000"
       $"0FFFFFFFFFFFFFF000"
       $"FFFFFFFFFFFFFFF000"
       $"FFFFFFFFFFFFFFF000"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFF00000"
       $"0FFFFFFFFFFF000000"
       $"000FFFFF0000000000"
       $"0000FFFF0000000000"
       $"000000FF0000000000";
};

resource rIcon (ICON_00000036, Preload, noSpecialMemory) {
       $8000,                  // kind
       $0014,                  // height
       $0014,                  // width

       $"FF1111111111113FFFFF"
       $"F13333333333113FFFFF"
       $"111111111111313FFFFF"
       $"113333333331313FFFFF"
       $"1111300000000000FFFF"
       $"199111F0FFFFF0F0FFFF"
       $"19999110FFFFF0F000FF"
       $"19999911FFFFF0F0F0FF"
       $"19999991000000F0F000"
       $"19911991FFFFFFF0F0F0"
       $"191BB19133333FF0F0F0"
       $"191BB1913F333FF0F0F0"
       $"199119913F333FF0F0F0"
       $"1999999100000000F0F0"
       $"19999991FF3F333FF0F0"
       $"119999910000000000F0"
       $"F119999110FF3FF333F0"
       $"FFF11991F00000000000"
       $"FFFF1191FFFFFFFFFFFF"
       $"FFFFFF11FFFFFFFFFFFF",

       $"00FFFFFFFFFFFFF00000"
       $"0FFFFFFFFFFFFFF00000"
       $"FFFFFFFFFFFFFFF00000"
       $"FFFFFFFFFFFFFFF00000"
       $"FFFFFFFFFFFFFFFF0000"
       $"FFFFFFFFFFFFFFFF0000"
       $"FFFFFFFFFFFFFFFFFF00"
       $"FFFFFFFFFFFFFFFFFF00"
       $"FFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFF"
       $"0FFFFFFFFFFFFFFFFFFF"
       $"000FFFFF0FFFFFFFFFFF"
       $"0000FFFF000000000000"
       $"000000FF000000000000";
};

resource rIcon (ICON_00000037, Preload, noSpecialMemory) {
       $8000,                  // kind
       $0010,                  // height
       $0010,                  // width

       $"00000000000000FF"
       $"0FFFFFFFFFFF0F0F"
       $"0FCCCFCCFCCF0FF0"
       $"0FFFFFFFF00F0000"
       $"0FCFCCCF0770FCF0"
       $"0FFFFFF007770FF0"
       $"0FCCFC0EC0770CF0"
       $"0FFFF0ECEC00FFF0"
       $"0FCF0ECECE0FCCF0"
       $"0FF0ECECE0FFFFF0"
       $"0F0ECECE0FCCFCF0"
       $"0F0EECE0FFFFFFF0"
       $"0F00EE0CCCFCCFF0"
       $"0F0000FFFFFFFFF0"
       $"0FFFFFFFFFFFFFF0"
       $"0000000000000000",

       $"FFFFFFFFFFFFFF00"
       $"FFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF";
};

resource rIcon (ICON_00000038, Preload, noSpecialMemory) {
       $0000,                  // kind
       $000F,                  // height
       $0010,                  // width

       $"FFFFFFFF00FFFFFF"
       $"FFFFFFF0FF00FFFF"
       $"FFFFF00FFFFF00FF"
       $"FFFF0FFFFFFFFF00"
       $"FF00FFFFFFFFFFF0"
       $"F0FFFFFFFFFFFF00"
       $"0FFFFFFFFFFF00F0"
       $"00FFFFFFFFF0FF00"
       $"0F00FFFFF00F00F0"
       $"00FF00FF0FF0FF0F"
       $"0F00FF00F00F00FF"
       $"00FF00FF0FF0FFFF"
       $"FF00FF00F00FFFFF"
       $"FFFF00FF0FFFFFFF"
       $"FFFFFF00FFFFFFFF",

       $"00000000FF000000"
       $"0000000FFFFF0000"
       $"00000FFFFFFFFF00"
       $"0000FFFFFFFFFFFF"
       $"00FFFFFFFFFFFFFF"
       $"0FFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFF00"
       $"FFFFFFFFFFFF0000"
       $"00FFFFFFFFF00000"
       $"0000FFFFF0000000"
       $"000000FF00000000";
};

resource rIcon (ICON_00000039, Preload, noSpecialMemory) {
       $8000,                  // kind
       $000F,                  // height
       $0018,                  // width

       $"FFFFFFFF00FFFFFFFFFFFFFF"
       $"FFFFFFF0FF00FFFFFFFFFFFF"
       $"FFFFF00FFFFF00FFFFFFFFFF"
       $"FFFF0FFFFFFFFF00FFFFFFFF"
       $"FF00FFFFFFFFFFF00FFFFFFF"
       $"F0FFFFFFFFFFFF000FFFFFFF"
       $"0FFFFFFFFFFF007770FFFFFF"
       $"00FFFFFFFFF07700770FFFFF"
       $"0F00FFFFF00700F07770FFFF"
       $"00FF00F00000000007770000"
       $"0F00FF00F007707777770000"
       $"00FF00FF0FF0777777770000"
       $"FF00FF00F00F000000000000"
       $"FFFF00FF0FFFFFFFFFFF0000"
       $"FFFFFF00FFFFFFFFFFFFFFFF",

       $"00000000FF00000000000000"
       $"0000000FFFFF000000000000"
       $"00000FFFFFFFFF0000000000"
       $"0000FFFFFFFFFFFF00000000"
       $"00FFFFFFFFFFFFFFF0000000"
       $"0FFFFFFFFFFFFFFFF0000000"
       $"FFFFFFFFFFFFFFFFFF000000"
       $"FFFFFFFFFFFFFFFFFFF00000"
       $"FFFFFFFFFFFFFFFFFFFF0000"
       $"FFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFFFFFFFFFF"
       $"00FFFFFFFFF0FFFFFFFFFFFF"
       $"0000FFFFF00000000000FFFF"
       $"000000FF0000000000000000";
};

resource rIcon (ICON_0000003A, Preload, noSpecialMemory) {
	$8000,			// kind /* 25-Mar-93 SS */
	$0012,			// height
	$0012,			// width

	$"FFFF0F0F0F0F0F0F0F"
	$"FFFFFFFFFFFFFFFFFC"
	$"FF0F0FFFFFFFFFFF0C"
	$"FFFFFFFFFFFFFFFFFC"
	$"0F0F0FFFFFFFFFFF0C"
	$"FFFFFFFFFFFFFFFFFC"
	$"0FFFFFFFFFFFFFFF0C"
	$"FFFFFFFFFFFFFFFFFC"
	$"0FFFFFFFFFFFFFFF0C"
	$"FFFFFFFFFFFFFFFFFC"
	$"0FFFFFFFFFFFFFFF0C"
	$"FFFFFFFFFFFFFFFFFC"
	$"0FFFFFFFFFFFFFFF0C"
	$"FFFFFFFFFFFFFFFFFC"
	$"0FFFFFFFFFFFFFFF0C"
	$"FFFFFFFFFFFFFFFFFC"
	$"0F0F0F0F0F0F0F0F0C"
	$"FCCCCCCCCCCCCCCCCC",

	$"0000FFFFFFFFFFFFF0"
	$"000FFFFFFFFFFFFFFF"
	$"00FFFFFFFFFFFFFFFF"
	$"0FFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFF"
	$"0FFFFFFFFFFFFFFFFF";
};

resource rIcon (ICON_0000003B, Preload, noSpecialMemory) {
       $0000,                  // kind
       $0015,                  // height
       $0018,                  // width

       $"FFFFFFFFFF00FFFFFFFFFFFF"
       $"FFFFFFFFF0FF0FFFFFFFFFFF"
       $"FFFFFFFF0FFF00FFFFFFFFFF"
       $"FFFFFFF0FFF0FF0FFFFFFFFF"
       $"FFFFFF0FFF0FFFF0FFFFFFFF"
       $"FFFFF0FFF0FFFFFF0FFFFFFF"
       $"FFFF0FFF0FFFFFFFF0FFFFFF"
       $"FFF0F0F0FFFFFFFFFF0FFFFF"
       $"FF0F0F0FFFFFFF00FFF0FFFF"
       $"F0FFF0FFFFFFF0FF00FF0FFF"
       $"0F0F0FFFFFFF0F0FFF0FF0FF"
       $"F0F0FFFFFFF0F0F0FFF00FFF"
       $"FF0FFFFF00000000FFFF0000"
       $"FFF0FFFFFFF0F00FFFFFF000"
       $"FFFF0FFFFFFF0FFFFFFFF000"
       $"FFFFF0FFFFFFF00000000000"
       $"FFFFFF0FFFFFFFF0FFFFF000"
       $"FFFFFFF0FFFFFF0FFFFFFFFF"
       $"FFFFFFFF0FFFF0FFFFFFFFFF"
       $"FFFFFFFFF0FF0FFFFFFFFFFF"
       $"FFFFFFFFFF00FFFFFFFFFFFF",

       $"0000000000FF000000000000"
       $"000000000FFFF00000000000"
       $"00000000FFFFFF0000000000"
       $"0000000FFFFFFFF000000000"
       $"000000FFFFFFFFFF00000000"
       $"00000FFFFFFFFFFFF0000000"
       $"0000FFFFFFFFFFFFFF000000"
       $"000FFFFFFFFFFFFFFFF00000"
       $"00FFFFFFFFFFFFFFFFFF0000"
       $"0FFFFFFFFFFFFFFFFFFFF000"
       $"FFFFFFFFFFFFFFFFFFFFFF00"
       $"0FFFFFFFFFFFFFFFFFFFF000"
       $"00FFFFFFFFFFFFFFFFFFFFFF"
       $"000FFFFFFFFFFFFFFFFFFFFF"
       $"0000FFFFFFFFFFFFFFFFFFFF"
       $"00000FFFFFFFFFFFFFFFFFFF"
       $"000000FFFFFFFFFF00000FFF"
       $"0000000FFFFFFFF000000000"
       $"00000000FFFFFF0000000000"
       $"000000000FFFF00000000000"
       $"0000000000FF000000000000";
};

// resource rIcon(0x3c,Preload, noSpecialMemory) {
//	$8000,	/* kind */
//	18,	/* height */
//	24,	/* width */
//	
//	$"FFFFFC00000000000FFFFFFF"
//	$"FFFFC0444444444440FFFFFF"
//	$"FFFC044444404444440FFFFF"
//	$"FFC04444400F00444440FFFF"
//	$"FC0444440F0F0F0444440FFF"
//	$"C04444400F0F0F04444440FF"
//	$"C044440F0F0F0F04444440FF"
//	$"C044440F0F0F0F04044440FF"
//	$"C044440F0F0F0F00F04440FF"
//	$"C044440FFFFFFFF0F04440FF"
//	$"C044440FFFFF000FF04440FF"
//	$"C044440FFFF0FFFF044440FF"
//	$"C044440FFFFFFFF0444440FF"
//	$"FC044440FFFFFF0444440FFF"
//	$"FFC044440FFFF0444440FFFF"
//	$"FFFC044444444444440FFFFF"
//	$"FFFFC0444444444440FFFFFF"
//	$"FFFFFC00000000000FFFFFFF",
//	
//	$"00000FFFFFFFFFFFF0000000"
//	$"0000FFFFFFFFFFFFFF000000"
//	$"000FFFFFFFFFFFFFFFF00000"
//	$"00FFFFFFFFFFFFFFFFFF0000"
//	$"0FFFFFFFFFFFFFFFFFFFF000"
//	$"FFFFFFFFFFFFFFFFFFFFFF00"
//	$"FFFFFFFFFFFFFFFFFFFFFF00"
//	$"FFFFFFFFFFFFFFFFFFFFFF00"
//	$"FFFFFFFFFFFFFFFFFFFFFF00"
//	$"FFFFFFFFFFFFFFFFFFFFFF00"
//	$"FFFFFFFFFFFFFFFFFFFFFF00"
//	$"FFFFFFFFFFFFFFFFFFFFFF00"
//	$"FFFFFFFFFFFFFFFFFFFFFF00"
//	$"0FFFFFFFFFFFFFFFFFFFF000"
//	$"00FFFFFFFFFFFFFFFFFF0000"
//	$"000FFFFFFFFFFFFFFFF00000"
//	$"0000FFFFFFFFFFFFFF000000"
//	$"00000FFFFFFFFFFFF0000000";
//};

resource rIcon (ICON_0000003C, Preload, noSpecialMemory) {
       $8000,                  // kind
       $0010,                  // height
       $0010,                  // width

       $"00000000000000FF"
       $"0FFFFFFFFFFF0F0F"
       $"0FFFFFFFFFFF0FF0"
       $"0FFFFFFFFFFF0000"
       $"0FFFFFFFFFFFFFF0"
       $"0FFFFFFFFF5FFFF0"
       $"0FFFFF03FFF5FFF0"
       $"0FFFF003F5FF5FF0"
       $"0FF00003FF5F5FF0"
       $"0FF00003FF5F5FF0"
       $"0FFFF003F5FF5FF0"
       $"0FFFFF03FFF5FFF0"
       $"0FFFFFFFFF5FFFF0"
       $"0FFFFFFFFFFFFFF0"
       $"0FFFFFFFFFFFFFF0"
       $"0000000000000000",

       $"FFFFFFFFFFFFFF00"
       $"FFFFFFFFFFFFFFF0"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF"
       $"FFFFFFFFFFFFFFFF";
};

resource rIcon (ICON_0000003D, $0000) {
	$0000,			// kind
	$0016,			// height
	$001A,			// width

	$"FFFFF0FFFFFFFFFFFFFFFFFFFF"
	$"FFFF0F0F00FFFFFFFFFFFFFFFF"
	$"FFFF0F00F0FFFFFFFFFFFFFFFF"
	$"FFF0FFFFF0FFFFFFFFFFFFFFFF"
	$"FF0FF0FF0FFFFFFFFFFFFFFF0F"
	$"F0FFFFFF0FFFFFFFFFFFFFFF00"
	$"0FFFFFFFF0FFFFFFFFFFFFF0F0"
	$"F0000FFFFF00FFFFFFFFFF0FF0"
	$"FFFFF0FFFFFF0000000000FFF0"
	$"FFFFF0FFFFFF0000000FFFFF0F"
	$"FFFFFF00FFFFF000000FFFF0FF"
	$"FFFFFF000FFFFFF000FFFFF0FF"
	$"FFFFFF000FFFFFFFFFFFFF0FFF"
	$"FFFFFF00FFFFFFFFFFFFFF0FFF"
	$"FFFFFF0FFFFFFFFFFFFFFF0FFF"
	$"FFFFFF0FFF00000000FFFF0FFF"
	$"FFFFFF0FF0FFFFFFFF0FFFF0FF"
	$"FFFFFF0FF0FFFFFFFFF0FFF0FF"
	$"FFFFFF0FF0FFFFFFFFFF0FF0FF"
	$"FFFFFF0FF0FFFFFFFFFF0FF0FF"
	$"FFFFF0FF0FFFFFFFFFF0FF0FFF"
	$"FFFFF000FFFFFFFFFFF000FFFF",

	$"00000F00000000000000000000"
	$"0000FFF0FF0000000000000000"
	$"0000FFFFFF0000000000000000"
	$"000FFFFFFF0000000000000000"
	$"00FFFFFFF000000000000000F0"
	$"0FFFFFFFF000000000000000FF"
	$"FFFFFFFFFF0000000000000FFF"
	$"0FFFFFFFFFFF0000000000FFFF"
	$"00000FFFFFFFFFFFFFFFFFFFFF"
	$"00000FFFFFFFFFFFFFFFFFFFF0"
	$"000000FFFFFFFFFFFFFFFFFF00"
	$"000000FFFFFFFFFFFFFFFFFF00"
	$"000000FFFFFFFFFFFFFFFFF000"
	$"000000FFFFFFFFFFFFFFFFF000"
	$"000000FFFFFFFFFFFFFFFFF000"
	$"000000FFFFFFFFFFFFFFFFF000"
	$"000000FFFF00000000FFFFFF00"
	$"000000FFFF000000000FFFFF00"
	$"000000FFFF0000000000FFFF00"
	$"000000FFFF0000000000FFFF00"
	$"00000FFFF0000000000FFFF000"
	$"00000FFF00000000000FFF0000";
};

resource rIcon (ICON_0000003E, $0000) {
	$8000,			// kind
	$0011,			// height
	$0012,			// width

	$"00000000000000FFFF"
	$"0FFFFFFFFFFF0F0FFF"
	$"0FFFFFFFFFFF0FF0FF"
	$"0FFFFFFFFFFF0000CF"
	$"0FFFFFFFFFFFFFF0CF"
	$"0F00000000000FF0CF"
	$"0F0F0DFDFD0F0FF0CF"
	$"0F0F0FDFDF0F0FF0CF"
	$"0F0F0DFDFD0F0FF0CF"
	$"0F0F0000000F0FF0CF"
	$"0F0FFFFFFFFF0FF0CF"
	$"0F0FF00000FF0FF0CF"
	$"0FF0F0F000FF0FF0CF"
	$"0FFF000000000FF0CF"
	$"0FFFFFFFFFFFFFF0CF"
	$"0000000000000000CF"
	$"FCCCCCCCCCCCCCCCCF",

	$"FFFFFFFFFFFFFF0000"
	$"FFFFFFFFFFFFFFF000"
	$"FFFFFFFFFFFFFFFF00"
	$"FFFFFFFFFFFFFFFFF0"
	$"FFFFFFFFFFFFFFFFF0"
	$"FFFFFFFFFFFFFFFFF0"
	$"FFFFFFFFFFFFFFFFF0"
	$"FFFFFFFFFFFFFFFFF0"
	$"FFFFFFFFFFFFFFFFF0"
	$"FFFFFFFFFFFFFFFFF0"
	$"FFFFFFFFFFFFFFFFF0"
	$"FFFFFFFFFFFFFFFFF0"
	$"FFFFFFFFFFFFFFFFF0"
	$"FFFFFFFFFFFFFFFFF0"
	$"FFFFFFFFFFFFFFFFF0"
	$"FFFFFFFFFFFFFFFFF0"
	$"0FFFFFFFFFFFFFFFF0";
};

// --- Small Icon Definitions

resource rIcon (ICON_00000111, Preload, noSpecialMemory) {
       $8000,                  // kind
       $0008,                  // height
       $0008,                  // width

       $"F0000000"
       $"0F0FFFF0"
       $"000FFCF0"
       $"0FFFCCF0"
       $"0FFCFCF0"
       $"0FCCCCF0"
       $"0CFFFCF0"
       $"00000000",

       $"0FFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF";
};

resource rIcon (ICON_00000112, Preload, noSpecialMemory) {
       $8000,                  // kind
       $0008,                  // height
       $0008,                  // width

       $"FFFFFFFF"
       $"FFFFFFFF"
       $"F000FFFF"
       $"0FFF0000"
       $"0FFFFFF0"
       $"0FF00FF0"
       $"0FFFFFF0"
       $"00000000",

       $"00000000"
       $"00000000"
       $"0FFF0000"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF";
};

resource rIcon (ICON_00000113, Preload, noSpecialMemory) {
       $0000,                  // kind
       $0008,                  // height
       $0008,                  // width

       $"FFFFFF0F"
       $"FFFFFF0F"
       $"F000FFFF"
       $"0FFF000F"
       $"0FFFFFF0"
       $"0FFFFFF0"
       $"0FFFFFF0"
       $"00000000",

       $"000000F0"
       $"000000F0"
       $"0FFF0000"
       $"FFFFFFF0"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF";
};

resource rIcon (ICON_00000114, Preload, noSpecialMemory) {
       $0000,                  // kind
       $0008,                  // height
       $0008,                  // width

       $"FFFFFFFF"
       $"FFFFFFFF"
       $"0000FFFF"
       $"0000000F"
       $"0FFFFFF0"
       $"0FFFFFF0"
       $"0FFFFFF0"
       $"00000000",

       $"00000000"
       $"00000000"
       $"FFFF0000"
       $"FFFFFFF0"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF";
};

resource rIcon (ICON_00000115, Preload, noSpecialMemory) {
       $0000,                  // kind
       $0008,                  // height
       $0008,                  // width

       $"FFFFFFFF"
       $"FFFFFFFF"
       $"F000FFFF"
       $"0FFF000F"
       $"0FFFFFF0"
       $"0FFFFFF0"
       $"0FFFFFF0"
       $"00000000",

       $"00000000"
       $"00000000"
       $"0FFF0000"
       $"FFFFFFF0"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF";
};

resource rIcon (ICON_00000116, Preload, noSpecialMemory) {
       $8000,                  // kind
       $0008,                  // height
       $0008,                  // width

       $"0000000F"
       $"0FFFF0F0"
       $"0F33F000"
       $"0FFFFFF0"
       $"0F3F33F0"
       $"0FFFFFF0"
       $"0FF3F3F0"
       $"00000000",

       $"FFFFFFF0"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF";
};

resource rIcon (ICON_00000117, Preload, noSpecialMemory) {
       $0000,                  // kind
       $0008,                  // height
       $0008,                  // width

       $"0000000F"
       $"0FFFF0F0"
       $"0F00F000"
       $"0FFFFFF0"
       $"0F0F00F0"
       $"0FFFFFF0"
       $"0FF0F0F0"
       $"00000000",

       $"FFFFFFF0"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF";
};

resource rIcon (ICON_00000118, Preload, noSpecialMemory) {
       $8000,                  // kind
       $0008,                  // height
       $0008,                  // width

       $"0000000F"
       $"0FFFF0F0"
       $"0F8F8000"
       $"0FFFFFF0"
       $"0F4F4F40"
       $"0FFFFFF0"
       $"0F1F1110"
       $"00000000",

       $"FFFFFFF0"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF";
};

resource rIcon (ICON_00000119, Preload, noSpecialMemory) {
       $0000,                  // kind
       $0008,                  // height
       $0008,                  // width

       $"0000000F"
       $"0FFFF0F0"
       $"0F0FF000"
       $"0F0FFFF0"
       $"0FFFFFF0"
       $"0F0F0FF0"
       $"0F0F0FF0"
       $"00000000",

       $"FFFFFFF0"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF";
};

resource rIcon (ICON_0000011A, Preload, noSpecialMemory) {
       $0000,                  // kind
       $0008,                  // height
       $0008,                  // width

       $"F000000F"
       $"0FFFF0FF"
       $"0FFFF0FF"
       $"F0FFFF0F"
       $"F0FFFF0F"
       $"FF0FFFF0"
       $"FF0FFFF0"
       $"FF00000F",

       $"0FFFFFF0"
       $"FFFFFF00"
       $"FFFFFF00"
       $"0FFFFFF0"
       $"0FFFFFF0"
       $"00FFFFFF"
       $"00FFFFFF"
       $"00FFFFF0";
};

resource rIcon (ICON_0000011B, Preload, noSpecialMemory) {
       $8000,                  // kind
       $0008,                  // height
       $0008,                  // width

       $"F0000000"
       $"0F0F5550"
       $"000F0030"
       $"0FF0F0F0"
       $"0F0F0FF0"
       $"0C00FFF0"
       $"0555FFF0"
       $"00000000",

       $"0FFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF";
};

resource rIcon (ICON_0000011C, Preload, noSpecialMemory) {
       $8000,                  // kind
       $0008,                  // height
       $0008,                  // width

       $"F0000000"
       $"0FFFFFF0"
       $"0F1111F0"
       $"0F1FF1F0"
       $"0F1111F0"
       $"0F1111F0"
       $"0FFFFFF0"
       $"00000000",

       $"0FFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF";
};

resource rIcon (ICON_0000011D, Preload, noSpecialMemory) {
       $8000,                  // kind
       $0008,                  // height
       $0008,                  // width

       $"F0000000"
       $"0F00FFF0"
       $"0F0000F0"
       $"0F00F0F0"
       $"0F0F00F0"
       $"0F0000F0"
       $"0FFFFFF0"
       $"00000000",

       $"0FFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF";
};

resource rIcon (ICON_0000011E, Preload, noSpecialMemory) {
       $8000,                  // kind
       $0008,                  // height
       $0008,                  // width

       $"F0000000"
       $"0DDDDDD0"
       $"0D0000D0"
       $"0D0FF0D0"
       $"0D0FF0D0"
       $"0D0000D0"
       $"0DDDDDD0"
       $"00000000",

       $"0FFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF";
};

resource rIcon (ICON_0000011F, Preload, noSpecialMemory) {
       $8000,                  // kind
       $0008,                  // height
       $0008,                  // width

       $"F0000000"
       $"0F0FFFF0"
       $"000FFFF0"
       $"0FF00030"
       $"0FFF0300"
       $"0FFF03F0"
       $"0FFF03F0"
       $"00000000",

       $"0FFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF";
};

resource rIcon (ICON_00000120, Preload, noSpecialMemory) {
       $8000,                  // kind
       $0008,                  // height
       $0008,                  // width

       $"F000000F"
       $"F0DDDD0F"
       $"F0DDDD0F"
       $"F0DDDD0F"
       $"F000000F"
       $"00000000"
       $"0CCCCCC0"
       $"00000000",

       $"0FFFFFF0"
       $"0FFFFFF0"
       $"0FFFFFF0"
       $"0FFFFFF0"
       $"0FFFFFF0"
       $"FFFFFFFF"
       $"FFFFFFFF"
       $"FFFFFFFF";
};

resource rIcon (ICON_00000127, Preload, noSpecialMemory) {
	$8000,			// kind /* 25-Mar-93 SS */
	$0008,			// height
	$0008,			// width

	$"FF0F0F0F"
	$"FFFFFFFC"
	$"0F0FFF0C"
	$"FFFFFFFC"
	$"0FFFFF0C"
	$"FFFFFFFC"
	$"0F0F0F0C"
	$"FCCCCCCC",

	$"00FFFFF0"
	$"0FFFFFFF"
	$"FFFFFFFF"
	$"FFFFFFFF"
	$"FFFFFFFF"
	$"FFFFFFFF"
	$"FFFFFFFF"
	$"0FFFFFFF";
};

resource rIcon (ICON_00000132, Preload, noSpecialMemory) {
       $0000,                  // kind
       $0008,                  // height
       $0008,                  // width

       $"FFFFFFFF"
       $"FFF0FFFF"
       $"FF0F0FFF"
       $"F0FFF0FF"
       $"0FFFF00F"
       $"F0F00FF0"
       $"FF0FF000"
       $"FFF0FFFF",

       $"00000000"
       $"000F0000"
       $"00FFF000"
       $"0FFFFF00"
       $"FFFFFFF0"
       $"0FFFFFFF"
       $"00FFFFFF"
       $"000F0000";
};

resource rIcon (ICON_00000133, Preload, noSpecialMemory) {
       	$0000,                  // kind
       	$0008,                  // height
       	$0008,                  // width
	
		$"ffff00ff"		// ....**..
		$"ff00ff0f"		// ..**..*.
		$"00fffff0"		// **.....*
		$"0fffff00"		// *.....**
		$"00ff00f0"		// **..**.*
		$"0f00ff00"		// *.**..**
		$"00ff00ff"		// **..**..
		$"ff00ffff",	// ..**....

		$"0000ff00"
		$"00fffff0"
		$"ffffffff"
		$"ffffffff"
		$"ffffffff"
		$"ffffffff"
		$"ffffff00"
		$"00ff0000";
};

resource rIcon (ICON_00000134, Preload, noSpecialMemory) {
       $8000,                  // kind
       $0008,                  // height
       $0008,                  // width

       $"444FFFFF"
       $"444FFFFF"
       $"444FFFFF"
       $"444FF4FF"
       $"4444444F"
       $"44444444"
       $"D444444F"
       $"FFFFF4FF",

       $"FFF00000"
       $"FFF00000"
       $"FFF00000"
       $"FFF00F00"
       $"FFFFFFF0"
       $"FFFFFFFF"
       $"FFFFFFF0"
       $"00000F00";
};

resource rIcon (ICON_00000135, $0000) {
	$8000,			// kind
	$0008,			// height
	$0008,			// width

	$"0000000F"
	$"088880F0"
	$"0EEEE000"
	$"06666660"
	$"04444440"
	$"05555550"
	$"01111110"
	$"00000000",

	$"FFFFFFF0"
	$"FFFFFFFF"
	$"FFFFFFFF"
	$"FFFFFFFF"
	$"FFFFFFFF"
	$"FFFFFFFF"
	$"FFFFFFFF"
	$"FFFFFFFF";
};

resource rIcon (ICON_00000136, $0000) {
	$8000,			// kind
	$0008,			// height
	$0008,			// width

	$"0000000F"
	$"0FFFFF00"
	$"0F0000F0"
	$"0F0DD0F0"
	$"0F0FF0F0"
	$"0FF000F0"
	$"0FFFFFF0"
	$"00000000",

	$"FFFFFFF0"
	$"FFFFFFFF"
	$"FFFFFFFF"
	$"FFFFFFFF"
	$"FFFFFFFF"
	$"FFFFFFFF"
	$"FFFFFFFF"
	$"FFFFFFFF";
};
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Finder/icons2.aii b/IIGS.601.SRC/A.U.G/Finder/icons2.aii
new file mode 100644
index 0000000..fab7594
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Finder/icons2.aii
@@ -0,0 +1 @@
+

; = = =	= = = =	= = = =	= = = =	= =
;	   Call	CopyFile.
; = = =	= = = =	= = = =	= = = =	= =

		IMPORT	WStringCopy
		IMPORT	ZoomDiskToTrash
		IMPORT	EjectDisk
		import	wipeIcon
		import	EraseIcon
		import	CutNFree
		import	abortFind

copyFiles2	pei	<icHand+2		Pass handle of first icon.
		pei	<icHand

		ldx	<ic+2			Pass pointer to	source name.
		lda	<ic
		clc
		adc	#icOwner
		bra	chkHi			bra w carry intact to incr hi byte if nec.
;		bcc	store900		improved w above bra chkHi -- rdl: 3/9/90
;		inx				    "
;		bra	store900		    "
;
;
; --- Copy files ---------------------------------------------
; 
copyFiles3	ldy	#2			Pass hdl of 1st icon to FileEntry/xCopyFiles.
		lda	[<windblk],y
		pha
		lda	[<windblk]
		pha

		ldx	<windBlk+2
		lda	<windBlk
		clc
		adc	#windPath
chkHi		bcc	store900
		inx

store900	phx				Pass pointer to	source pathname.
		pha
		PushLong #C1_TempPath
		jsl	WStringCopy
		PushLong #C1_TempPath		push: FileEntry/xCopyFiles parameter

		lda	<windTrack+1		Is the destination a window?
		beq	ok900			bra if not a wdw

		lda	<windTrack
		ldx	<windTrack+2
		jsr	getwRefCon2		windblk	= pointer to window's info block.
		jsr	getWindPath		C1_PathName = destination window's pathname.
		bra	ok901

ok900		lda	<iconTrack+2
		sta	<icHand+2
		lda	<IconTrack
		sta	<icHand
		jsr	lockic

		ldy	#icFType		Is the destination on the desktop?
		lda	[<ic],y
		bpl	ok902			bra if file or folder
		jsr	makeIcRoot		else device/trash: C1_PathName = separator + icName.
		bra	ok901

ok902		jsr	buildPath3
		bcs	error101		Pathname error?


ok901		pea	C1_PathName>>16		Pass pointer to	destination pathname.
		pea	C1_PathName
		lda	functionKey		Pass secret key.
		pha
		ldx	#xCopyFiles
		jsl	FileEntry
error101	rts

; = = =	= = = =	= = = =	= = = =	= = = =	= = =
;	   Reposition icons.
;	   Called from walkOfLife.
; = = =	= = = =	= = = =	= = = =	= = = =	= = =
;
;   IN:	   deltay = delta y.
;	   deltax = delta x.
;	   filetype = destination filetype.
;
;	   IconTrack = handle of destination ICONOBJ if	the destination
;		       does not	have a window.
;	   windTrack = window of destination.
;
;	   curWind = source window.
;
;	   ExtCopy = negative if moving	to Trash
;		     greater than zero if to desktop.
;
;	   ticonobj+icOwner = source window pathname if	ExtCopy	is not zero.
;
;	   If both IconTrack+1 and windTrack+1 are zero, the icon is staying
;	   in the same window.
;
;	   intoIcon = TRUE if icon was dragged into an icon.
;
		IMPORT	C1_SystemName
		IMPORT	WStrCompare
		IMPORT	cknames
		import	cknames2
		IMPORT	PathAddName
		IMPORT	KillIcon
		IMPORT	walkExt2
		IMPORT	BuildPath3
		IMPORT	EjectNonRemovable
		
moveIcons	name
		
		lda	<windTrack+1		Is the destination the same as source?
		ora	<IconTrack+1
		bne	next300

;
; --- Reposition the icon in the same window ----------------------------------
;
		ldy	#icy
		lda	[<ic],y
		clc
		adc	deltay
		sta	[<ic],y

		iny
		iny
		lda	[<ic],y
		clc
		adc	deltax			Delta X.
		sta	[<ic],y

		clc				Continue flag.
		rts

;
; --- Move icon	into another icon -----------------------------------
;
;	   This	should only be executed	when files are dragged in a folder
;	   or disk that	does not have an open window.  Since the files have
;	   already been	copied,	all that's left is to erase the icons moved.
;
;modifier	equ	14
;
next300		lda	ExtCopy
		bmi	@copied
		bne	@copied
		
		ldy	#icFType		;if this thing we've "moving" is a disk, then
		lda	[<ic],y			;we'd better continue
		bmi	@copied
		
		ldy	#icFlag			;otherwise, they were moving some kind of file,
		lda	[<ic],y			;so it's safe to assume that they went through
		and	#icCopy			;CopyFiles before this and we can abort what went
		bne	@copied			;and what didn't go...
		clc
		rts
		
@copied		lda	<IconTrack+1		Did user drag into a disk or folder?
		bne	ok311
		brl	ckWind			If not,	check window.

ok311		lda	<filetype		Is the destination a disk?
		inc	a			(gets rid of the trash type.)
		inc	a
		bpl	ck300
		brl	ckDiskCopy

ck300		lda	<windTrack+1		Is there a destination window?
		beq	ok312
		brl	ckWind2

ok312		ldy	#icWind+1		Does icon have an open window?
		lda	[<ic],y
		beq	done310

; --- Copying open folder into an unopened directory ----------------------

		pei	<icHand+2		Saves.
		pei	<icHand
		pei	<wind+2
		pei	<wind
		pei	<windBlk+2
		pei	<windBlk

		iny
		lda	[<ic],y
		tax
		dey
		dey
		lda	[<ic],y
		jsr	getwRefCon2		windBlk	= icon's open window info block.
		jsr	getWindPath		C1_PathName = window's pathname (use later).
		jsr	clonePath		C1_TempPath = C1_PathName.
		jsr	findDisk		icHand = disk icon that	window came from.

		ldy	#windIc			Store new moma icon in window's info.
		lda	<icHand
		sta	[<windBlk],y
		iny
		iny
		lda	<icHand+2
		sta	[<windBlk],y

		pla				Restore.
		sta	<windBlk
		pla
		sta	<windBlk+2
		pla
		sta	<wind
		pla
		sta	<wind+2
		pla
		sta	<icHand
		pla
		sta	<icHand+2
		jsr	lockic

done310		ldy	#icFlag			Did the	icon replace a duplicate?
		lda	[<ic],y
		and	#ICDUP
		beq	@noClone

		jsr	removeClone		Remove the icon	that was replaced.
@noClone	brl	skip304			Check if source	icon needs to be erased.

ckDiskCopy	ldy	#icFType		Is the source also a disk?
		lda	[<ic],y
		inc	a			(gets rid of the trash type.)
		inc	a
		bmi	@ok
		brl	ck300			bra if file or folder or trash
@ok

		lda	<iconTrack		itÕs a device
		ldx	<iconTrack+2
		cmp	<icHand			Is the source and destination the same?
		bne	ok303
		cpx	<icHand+2
		beq	skip303			If same, then abort disk dup.


ok303		pei	<icHand+2		Save icon being	copied.
		pei	<icHand

		pei	<icHand+2		Pass handle of source disk.
		pei	<icHand

		sta	<icHand			Remember destination disk.
		stx	<icHand+2

		phx				Pass handle of destination disk.
		pha
		lda	FunctionKey		TRUE if	function key pressed.
		pha
		pei <zero			Pass block copy	preference.
		ldx	#xCopyDisk
		jsl	FileEntry
		bcc	ok307
				
;
; Cancel of ANY disk block-copy (one-drive or not) was leaving destination disk
;   with a different create date than when it started (and had the potential of
;   invalidating any open windows or extended icons that might have been on the
;   desktop prior to the copy operation).  Here, we clear the desktop and reset
;   the create date just as we do when the copy terminates normally.
;	
		cpx	#$8000
		beq	@trueAbort
		cpx	#$e000
		beq	@trueAbort
		cpx	#$c000
		beq	@trashReadOnly
		
		phx
		jsr	clearAndReset
		plx
		
@trueAbort	pulllong <icHand
		jsr	lockic			; dereference it

		cpx	#$8000			; were files copied to folder/root ?
		beq	moveIcon
		brl	exit301			; must have aborted copy

@trashReadOnly	lda	<iconTrack		;get handle of destination icon
		sta	<icHand
		lda	<iconTrack+2
		sta	<icHand+2
		
		jsr	lockic
		
		jsr	ZoomDiskToTrash
		jsr	wipeIcon
		
		stz	<iconTrack
		stz	<iconTrack+2
		stz	<windTrack		;there is NO destination window any more fellas!
		stz	<windTrack+2
		
		pulllong <icHand
		jsr	lockic			; dereference it
	
		inc	abortFind
		brl	exit301

ok307		jsr	clearAndReset

		pulllong <icHand
skip303		jsr	lockic			; dereference it
skip304		brl	ckDelete		; check if source icon should be deleted

moveIcon	inc	diffVolumes
		
		lda	diffVolumes
		sta	dontDraw
		
		lda	<windTrack+1		; is there a destination window?
		beq	exit300			; no
		stz	ExtCopy
		brl	replane300

; --- Move icon	to a new window	-------------------------------------------

ckWind		lda	<windTrack+1		Is there a destination window?
		beq	exit300

ckWind2		lda	ExtCopy			Is the destination window the trash?
		bpl	replane300		; bra if not trash

		ldy	#icFType		Disk going into	trash?
		lda	[<ic],y
		bpl	replane300		; bra if not a device

		ldx	EjectNonRemovable
		beq	@noEject

		ldy	#icFtype		;see if it's a hard drive partition
		lda	[<ic],y
		cmp	#TypeHardPart
		beq	cont300

@noEject	ldy	#icDevInfo
		lda	[<ic],y
		and	#$0004			;mask ejectable bit, andy, 12/4/90
		bne	cont300
		
		lda	#rasNonRemove
		jsl	doAlertWindow
		bra	exit300			;device is not removable
cont300

		pushZLong <icHand
		pushZLong <rectRgn
		pushZLong <tempRgn
		stz	<rectRgn+1
		stz	<tempRgn+1

		jsr	EmptyTrashMenu		; empty the trash before trashing

		pulllong <tempRgn
		pulllong <rectRgn
		pulllong <icHand
		jsr	lockic

		jsr	trashDisk		Handle disk icon dragged to trash
exit300		clc				Continue flag.
		rts


;
; remove the icons from this disk (ic) and reset its create time
;
clearAndReset	jsr	lockic			; ic = destination disk icon
		inc	SaveOffFlag		;Turn data file saving off.
		jsr	clearDisk		;Remove disk's every window and ext icon.
		stz	SaveOffFlag		;Turn data file saving back on.

		jsr	resetCTime		; update disk icon's create time/date
		brl	unlockic
		
; --- Move an icon to a	new window plane -----------------------------------
;
;  ic =	icon to	move.
;  icHand = icon's handle.
;  windTrack = new home.
;  curWind = source window.
;  ExtCopy = negative if moving	to Trash, greater than if to desktop.
;  ticonobj+icOwner = source window pathname if	ExtCopy	is not zero.
;  srcView = view type of source window.
;
;------------------------------------------------

		IMPORT	strSystem
		IMPORT	C1_BootName
		
replane300	lda	ExtCopy			Is the icon going to a place that
		beq	next301			requires an extended ICONOBJ?
		bpl	ok305

		ldy	#icFlag			Icons going to Trash must have delete
		lda	[<ic],y			bit set.
		and	#ICDELETE
		bne	ok306
		brl	exit301			If delete bit not set, skip this one.

ok306		pei	<TaskData+2
		pei	<TaskData
		jsr	killkids2
		pla
		sta	<TaskData
		pla
		sta	<TaskData+2

ok305		ldy	#icFlag			Is icon	already	extended?
		lda	[<ic],y
		ldy	#icy			Save icon's last position (just in case).
		and	#ICEXTENDED
		beq	ok304
				      		;Keep same extended pathname.
		jsr	getExtName		;C1_PathName = icon's icOwner field.
		bcs	error102		Pathname error?
		jsr	path2ticon		ticonobj+icOwner = C1_PathName

		ldy	#icOldPosY		Keep same old position.

ok304		lda	[<ic],y			Remember Y position.
		sta	ticonobj+icOldPosY
		iny
		iny
		lda	[<ic],y			Remember X position.
		sta	ticonobj+icOldPosX
		bra	ok301


next301		ldy	#icFlag			Should the icon	be copied?
		lda	[<ic],y
		and	#ICCOPY
		bne	ok301
error102	brl	ckDelete


ok301		pei	<icHand+2		;Saves.
		pei	<icHand
		pei	<filetype

		jsr	pullFields		;Pull common icon fields to be used
						;by the new icon.


		lda	<windTrack		;Destination window.
		ldx	<windTrack+2
		jsr	getwRefCon2		;wind = windTrack.
				      		;windBlk = windTrack's info block pointer.

;
; Manually fudge the FST value in the icon's option list to be whatever the destination window's FST is...
;
*** added 7-Jul-92 DAL -- Don't mess up the FST ID if we're just dragging to the desktop!
		lda <windTrack+1
		cmp <deskPort+1
		beq @noFSTchange
*** end 7-Jul-92
		ldy	#windFST
		lda	[<windBlk],y
		beq	@noFSTchange
		sta	ticonObj+icFST
@noFSTchange

		lda	diffVolumes		;anything moving to another volume is NOT marked as opened!
		beq	@notCopy
		
		lda	ticonobj+icFlag
		and	#_ICOPENED
		sta	ticonobj+icFlag
		
		stz	ticonobj+icWind
		stz	ticonobj+icWind+2
@notCopy
				
		ldy	#icFType		; kludge to make disk become folder
		lda	[<ic],y
		bpl	cont			; bra if not a device

		lda	#TypeFolder		; device: give it folder filetype
		sta	<filetype
		stz	auxType

;
; JAM 5/21/89 (Fixing BRC #49015)
;
; Kludge time again, kiddies.  In general, the Finder has no problems with
; copying the lock item over to duplicates or copies of locked folders, files, etc.
; This isn't exactly cool behavior, but it is harmless enough.  However, the lock
; SHOULD be maintained when moving the icon around on the same disk or within the
; same window.  (Actually, we should probably not allow a locked icon to be moved
; out of its home window, but it can be copied or duplicated to the same or different
; windows, with the clone losing its lock status.)  The real solution is to know
; whether one is simply copying/duplicating or moving, removing the lock in the
; former case and disallowing moves outside the current window in the latter (with
; moves from and to the desktop being weird cases).  IN THE CASE COVERED BY THIS BUG,
; (changing a disk icon to a folder) we know that we MUST be copying, so it is OK
; to blast the locked flag bit, may the powers that be have mercy on our souls.
;
		lda	#ICLOCKED		
		trb	ticonobj+icFlag				

cont		ldy	#icFlag			Did the	icon replace a duplicate?
		lda	[<ic],y
		and	#ICDUP
		beq	skip301

		jsr	removeClone		Remove the icon	that was replaced.

		lda	<windTrack		Destination window.
		ldx	<windTrack+2
		jsr	getwRefCon2		wind = windTrack.
;				      		windBlk = windTrack's info block pointer.

skip301		lda	intoIcon		Was original destination an icon?
		beq	ok300			bra if not

		stz	posFlag
		jsr	StartHash
		
		pei	<icHand+2		Save.
		pei	<icHand
		jsr	windSpot		User did not select a spot in the window.
		pla				Restore.
		sta	<icHand
		pla
		sta	<icHand+2
		jsr	lockic
		stz	spotHashOn

		lda	#moveIcons		Restore	walkOfLife to me.
		sta	tocall+1
		brl	skip302
;
;
; --- Give destination icon a position from the	position the user dragged to --
;
;  JAM 5/21/89 (addressing BRC #46908)
; Ignore the following commentary.  I ripped the fix out on 5/25/89 because the fixed
; behavior was worse than the original.  I am leaving the commentary so we can revisit
; this problem at a more convenient time.
;  This isn't precisely a "fix," since the behavior inherent in the original design is
;  clear, if unattractive to just about everyone seeing it.  Problem is, when copying
;  icons from textview to iconview, we would like them to plop down wherever we
;  finished the drag, such that those in a multiple-selection stay together.  Old design
;  did this, by relating the new, iconview y-position to the old, textview y-position.
;  (Actually, the x-position was relative to the textview x as well, but since textview
;  x position is constant, it is not the interesting item in this discussion.)  The net effect
;  was that copied icons were fanned out and somewhat overlapped in a vertical line, which many
;  found unpleasant.  Now, we will relate the new x and y to the old ICONVIEW x and y, which
;  should lead to some interesting behavior.  In a kinder, gentler world, we would compute
;  a neat grid in which to place the icons, relative the the place where the user quit
;  dragging.  If given time, we may just do that.

ok300		ldy	#icy
		ldx	srcView
		beq	ok309			bra if source window not viewed by text
		ldy	#icTextY
ok309		lda	[<ic],y
		clc
		adc	deltay
		sta	<yrat
;
		ldy	#icx
		lda	[<ic],y
		txy
		beq	ok308			bra if source window not viewed by text
		lda	#textLeft
ok308		clc
		adc	deltax
		sta	<xrat
;  end JAM 5/21/89 (BRC #46908)
;
;
; --- If destination is	desktop, make sure it's on the desktop ------------
;
		lda	ExtCopy			Going to desktop?
		dec	a
		bmi	skip302			bra if not
;
		lda	<xrat
		bpl	ok310
		lda	<zero
ok310		cmp	#640
		bcc	ok313
		lda	#640
ok313		sta	<xrat
;
		lda	<yrat
		bpl	ok314
		lda	<zero
ok314		cmp	#190
		bcc	ok315
		lda	#190
ok315		sta	<yrat

;
; Create the new icon
;
skip302		stz	<devNumber		Files and folders don't have device #.

;
; see if this is the icon for the system folder or not
;		
		lda	<filetype
		cmp	#$0f
		beq	@isFolder
		brl	@notSystem
		
@isFolder	stz	auxtype

		jsr	geticNamePtr		Get pointer to icon's name and pass.
		pha
		pushZLong <temp
		pushlong #strSystem
		jsl	PStringCompare
		pla
		beq	@notSystem

		lda	ExtCopy			;are we moving to the desktop?
		beq	@inWindow		;if not, then we're moving to a window...
		

;
; Find out if where we came from is the boot disk (we're going to the desktop).
;
		pushZLong <windBlk
		pushZLong <wind
		lda	<Taskdata		;source window
		ldx	<Taskdata+2
		jsr	getwRefCon2		;windBlk = icon's mom window info block.
		jsr	getWindPath
		pulllong <wind
		pulllong <windBlk		
		bra	@onDesktop
	
;
; Find out if we're going back to the boot disk
;
@inWindow	pushZLong <windBlk		;moving to a window...
		pushZLong <wind
		lda	<windTrack		;Destination window.
		ldx	<windTrack+2
		jsr	getwRefCon2		;windBlk = icon's mom window info block.
		jsr	getWindPath
		pulllong <wind
		pulllong <windBlk
@onDesktop	
		
		pha				;space for result
		PushLong #C1_PathName
		PushLong #C1_BootName
		jsl	WStrCompare		;is this the boot disk ?
		pla
		beq	@notSYSTEM		;no

		lda	#$0002			;yes, so mark system folder
		sta	auxtype
@notSYSTEM

;
; now, actually create the new icon object
;	
		ldy	#icDisk			;if we go to the desktop, we inherit our icDisk field
		lda	[<ic],y			;from the previous icon
		sta	ticonobj+icDisk
		iny
		iny
		lda	[<ic],y
		sta	ticonobj+icDisk+2
		
		lda	ExtCopy			;Going to desktop?
		bne	@toDesktop

		pushZLong <windBlk		;icon's root is now whichever icon owns this window
		pha
		pha
		pushZLong <windTrack
		_GetWRefCon
		pulllong <windBlk
		
		ldy	#windDiskIc
		lda	[<windBlk],y
		sta	ticonobj+icDisk
		iny
		iny
		lda	[<windBlk],y
		sta	ticonobj+icDisk+2
		pulllong <windBlk
@toDesktop

		jsr	geticNamePtr		;Get pointer to icon's name and pass.
		ldy	<zero			;add icon to the head of the list
		jsr	addIconObj		;move the existing icon object
		bcs	doneDraw

		lda	dontDraw		;ok to draw? (set in windClick)
		bne	doneDraw		;no; may be illegal chars

		lda	<windTrack
		ldx	<windTrack+2
		jsr	startDraw2		;Switch to proper port and origin.

		jsr	lockic			;Draw the icon in its new window.
		jsr	drawIcon2

		jsr	endDraw			;Set window's origin back to 0,0.

doneDraw	pla				;Restores from ok301
		sta	<filetype
		pla
		sta	<icHand
		pla
		sta	<icHand+2
		jsr	lockic			;ic = (icHand) locked.


ckDelete	lda	ExtCopy			;Extended copy?
		bne	cutOutIcon		;Always remove if to Trash or desktop.

		ldy	#icFlag			;Should the source icon be deleted?
		lda	[<ic],y
		and	#ICDELETE
		beq	exit301


		EXPORT	cutOutIcon
cutOutIcon
		inc	DeleteFlag		Set delete flag	to signal change.
		jsr	cutNfree		Take icon out of list (erased later).
		bra	exit302			Branch around cause icon is gone now.


exit301		ldy	#icFlag			Clear all copy related bits.
		lda	[<ic],y
		and	#Å(ICDUP+ICCOPY+ICDELETE)
		sta	[<ic],y

exit302		clc				Continue flag.
		rts

		
; fix all the existing windows and desktop icons to be from the proper places
;
; IN: 	c1_pathname = new pathname
;	c1_temppath = old pathname
;	(X) = low word of handle to icon which is changing
;	(Y) = hi word of handle to icon which is changing
;.....................................................................

		EXPORT	ChangePathFixPath
ChangePathFixPath
		
		import	finderDPage

		phb
		phk
		plb
		
		phd
		lda	finderDPage
		tcd
		
		pushZLong <TaskData
		pushZLong <ic
		pushZLong <icHand
		pushZLong <windBlk
		pushZLong <wind
		
		stx	<icHand			
		sty	<icHand+2
		
		lda	[<icHand]
		sta	<ic
		ldy	#2
		lda	[<icHand],y
		sta	<ic+2
		
		jsr	findLastName			;don't trash <iconTrack or <windTrack or you'll
		jsr	ckNames2			;be very sorry...
		
		pulllong <wind
		pulllong <windBlk
		pulllong <icHand
		pulllong <ic
		pulllong <TaskData
		
		pld
		plb
		rtl

; = = =	= = = =	= = = =	= = = =	= = = =	= = =
;	   Get next event.
; = = =	= = = =	= = = =	= = = =	= = = =	= = =
;
;   IN:	   a = event mask.
;
;  OUT:	   a = TRUE if event happened.
;	   eventRec = event record.
;
		EXPORT	getNextEvent
getNextEvent
		pha				Space for result.
		pha				Pass event mask.
		pea	eventRec>>16		Pass pointer to	event.
		pea	eventRec
		_GetNextEvent
		pla				Return event code.
		rts


; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = =
;	   Get current Function	key state.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = =

		EXPORT	addFunctionKey
addFunctionKey
		lda	<zero			Ask for	a null event.
		jsr	getNextEvent

		lda	|eventRec+modifier	Save state of function key.
		and	#$0800
		ora	functionKey
		sta	functionKey
		rts

; = = =	= = = =	= = = =	= = = =	= = = =	= = = =
;	   Count number	and types
;	   of icons being dragged.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =
;
;   Called by walkOfLife for every selected icon.
;
;   IN:	   ic =	pointer	to locked selected icon	being dragged.
;	   icHand = ic's handle.
;
;  OUT:	   dragDisk = number of	disk icons being dragged.
;	   dragDrive = number of drive icons being dragged. 
;	   dragFile = numnber of file icons being dragged.
;	   dragTrash = number of trash icons being dragged.
;
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =
countDrag
		lda	<icHand			Save the handle	of the selected	icon.
		sta	DragHandle
		lda	<icHand+2
		sta	DragHandle+2

		ldy	#icFST			Check if icon is from network.
		lda	[<ic],y
		cmp	#AppleShareFST
		bne	cont200
		inc	dragNetwork

cont200		ldy	#icFType		Check if icon dragged is special.
		lda	[<ic],y
		cmp	#TypeFolder
		bne	next200			bra if not a folder
		inc	dragFolder		had label inc200: not used (rdl 2/14/90)
		bra	ok200

next200		tax
		bmi	next201			bra if itÕs a device or trash
		inc	dragFile
		bra	ok200

next201		cmp	#TypeFTrash
		bcc	next202			bra if not trash
		inc	dragTrash
		bra	ok200

next202		cmp	#TypeFDrive		Floppy drive?
		bne	ok201
		inc	dragDrive
ok201		inc	dragDisk


ok200		ldy	#icFlag
		lda	[<ic],y
		and	#ICEXTENDED
		beq	exit200

		inc	dragExt
exit200		clc				Continue flag.
		rts

dragHandle	DS.B	4			Handle of selected icon, used when one.
dragFile	DS.B	2			Number of file icons being dragged.
dragDisk	DS.B	2			Number of disks	being dragged.
dragDrive	DS.B	2			Number of 5.25"	drives being dragged.
dragTrash	DS.B	2			Number of trash	cans being dragged.
dragExt		DS.B	2			Number of extended icons being dragged.
dragFolder	DS.B	2			Number of folders being	dragged.
dragNetwork	DS.B	2			Number of folders being	dragged.

; = = =	= = = =	= = = =	= = = =	= = = =	= =
;	   Cut icon out	of list.
; = = =	= = = =	= = = =	= = = =	= = = =	= =
;
;   IN:	   ic =	icon to	cut out	of list.
;	   curWind = window owner.
;
;  OUT:	   temp	= trash.
;
;	   temp	= ic.icLast
;	   if temp <> 0
;		 temp =	(temp)
;		 temp.icNext = ic.icNext
;	   else
;		 wind->icon list = ic.icNext
;
;	   temp	= ic.icNext
;	   if temp <> 0
;		 temp =	(temp)
;		 temp.icLast = ic.icLast
;
		EXPORT	cutIcon
cutIcon		
		ldy	#icLast			temp = (ic.icLast)
		jsr	geticPtr
		beq	newHead
;
		ldy	#icNext			temp.icNext = ic.icNext
		jsr	setValue
		bra	skip20
;
newHead		ldy	#icNext+2
		lda	[<ic],y
		tax
		dey
		dey
		lda	[<ic],y
		jsr	setIconHead
;
;
skip20		ldy	#icNext
		jsr	geticPtr
		beq	exit20
;
		ldy	#icLast
;
;
setValue	lda	[<ic],y
		sta	[<temp],y
		iny
		lda	[<ic],y
		sta	[<temp],y
exit20		rts
;
;
geticPtr	lda	[<ic],y
		sta	<temp
		iny
		lda	[<ic],y
		sta	<temp+1
		beq	exit30
;
;
; = = =	= = = =	= = = =	= = = =	= = = =	= = =
;	   Dereference temp handle.
; = = =	= = = =	= = = =	= = = =	= = = =	= = =
;
derefTemp
		lda	[<temp]
		tax
		ldy	#1
		lda	[<temp],y
		stx	<temp
		sta	<temp+1			Set not	equal flag.
exit30		rts



;????? somebody rewrite this for a little speed, please???  -- andy
;   |
;  \ /
;   V
;
; = = =	= = = =	= = = =	= = = =	= =
;	   Hit test icons.
; = = =	= = = =	= = = =	= = = =	= =
;
;   IN:	   ic =	locked ICONOBJ to hit test.
;	   yrat	= y poistion to	check.
;	   xrat	= x position to	check.
;	   windBlk = window's info block.
;
;  OUT:	   Carry clear if no hit.
;
; = = =	= = = =	= = = =	= = = =	= =
		EXPORT	hitTest
hitTest
		jsr	getIconRect		Get icon's enclosing RECT.

		ldy	#windView		Special	case view by text.
		lda	[<windBlk],y
		cmp	#viewByName
		bcc	ok40

		lda	#textLeft-8		When viewed by text, change the	area
		sta	<irect1+x1		RECT to	go from	one side of the	window
		lda	#640			to the other.
		sta	<irect1+x2

ok40		ldy	#irect2			Test hit in icon's title.
		jsr	testRect
		sta	nameHit			Remember if hit	on title.
		bne	hit

		ldy	#irect1			Test hit in icon's RECT.
		jsr	testRect
		beq	noHit
hit		sec				Terminate, icon	hit found.
		rts
   
noHit		clc				Keep going flag.
		rts


testRect
		pha				Space for result.
		jsr	pushyrat		Pass pointer to	point.
		tya
		jsr	pushzpage		Pass pointer to	RECT.
		_PtInRect
		pla
		rts
		
		ENDP
		
;====================================================
;	   Search for a	window's owner icon.
;====================================================
;
; This routine is called whenever a window is opened.  However,	it can be
; called for different reasons.
;
;	   1. The owner	icons for every	window must be rechecked whenever a
;	      window is	opened.	 This is the same as checking every icon in
;	      the new window to	see if they are	currently open.
;
;	   2. When a window is opened from a FINDER.ROOT file its owner	icon
;	      is unknown and must be found.
;
;  If the owner	icon is	not found, the disk icon is considered the owner.
;
;
;   IN:	   C1_PathName = pathname to find nearest icon owner.
;
;  OUT:	   icHand = icon owner.
;	   C1_PathName = trash.
;	   C1_TempPath = trash.
;	   NoRealMatch = TRUE if pathname did not match	an icon	and icHand is
;			 the handle of the disk	icon belonging to the path.
;
; rdl 2/14/90: fixing BRC #53066: provided weÕre only checking directory windows
; 		(not info wdws), then they can open only from folders or devices (incl trash).
;		Replacing call to matchIcName w call to new routine matchDevIconName.
;		It tests ag TypeFolder and TypeLastOne before going to matchIcName.
;====================================================

findOwnerIc	PROCNAME EXPORT

		stz	NoRealMatch		Clear flag.

		jsr	clonePath		C1_TempPath = C1_PathName


; --- Chop off last name -----------------------------------------

		jsr	chopLast
		beq	useDesk			Any pathname left to check?
;				      		lastName = last name in path.
;				      		tempPath = pathname less last name.

		lda	<deskic			Check devices on desktop.
		sta	<icHand
		lda	<deskic+2
		sta	<icHand+2

		pei	<direction
		lda	tocall+1
		pha
		lda	#matchExtIcName
		jsr	walkOfLife2		Carry set if match found (should have).
		bcs	foundIt
		pla
		sta	tocall+1
		pla
		sta	<direction

; --- First, try to find a window that the pathname matches -------------

		lda	#DirWindID		Directory windows only.
		ldx	#matchWindName
		jsr	walkWindow		Look for a window that matches C1_TempPath.

		ldy	#windIcons+2		Get handle of first icon in window,
		lda	[<windBlk],y		just in	case.
		tay
		lda	[<windBlk]
		bcs	ckIcList		Matching window	found?	Then find icon
;					        inside the window that matches lastName.

; ------ Now find icon in the window that matches 'C1_PathName' ---------------

;   IN:	   C1_TempPath = C1_PathName.

;  OUT:	   icHand = icon that matches first name in C1_TempPath.
;	   lastName = trash.
;	   C1_TempPath = trash.

		EXPORT	findDisk
findDisk		

@loop		jsr	chopLast		Chop off names until none are left.
		bne	@loop

		inc	NoRealMatch		Have to	match to root, not real	one.

;						lastName = root icon.
useDesk		lda	<deskic			Use disk icon instead.
		ldy	<deskic+2
		sta	<icHand			Handle of icon list to check.
		sty	<icHand+2

		pei	<direction
		lda	tocall+1
		pha

		lda	#matchDeviceName	send folder or device to matchIcName
		jsr	walkOfLife2		Carry set if match found.
		bcs	foundit
		bra	checkExtended
;
; ------ Now find icon in the window that matches 'lastName' ---------------
;
ckIcList	sta	<icHand			Handle of icon list to check.
		sty	<icHand+2

		pei	<direction
		lda	tocall+1
		pha

		lda	#matchDevIconName	send folder or device to matchIcName
		jsr	walkOfLife2		Carry set if match found.
		bcs	foundit

; 
; --------- Couldn't find the icon, maybe it's an extended icon	-------------
; 
checkExtended
		lda	<deskic			Check extended icons on	disktop.
		sta	<icHand
		lda	<deskic+2
		sta	<icHand+2
 
		lda	#matchExtIcName
		jsr	walkOfLife2		Carry set if match found (should have).

foundit		pla				; Exit with icHand = to owner icon.
		sta	tocall+1
		pla
		sta	<direction
		rts


;
; make sure itÕs a folder or a device before sending it to matchIcName.
;
matchDevIconName
		ldy	#icFType		;Only check folder or device icons.
		lda	[<ic],y
		cmp	#TypeFolder		;Folder?
		beq	okMatchIc
		cmp	#TypeLastOne		; first number in disk range
		bcc	exitmatchDev		; bra if not a device or trash
okMatchIc	brl	matchIcName
 
exitmatchDev	clc
		rts

;
; make sure itÕs a device ONLY before sending it to matchIcName.
;
matchDeviceName
		ldy	#icFType		Only check folder or device icons.
		lda	[<ic],y
		cmp	#TypeLastOne		; first number in disk range
		bcc	exitmatchDev		; bra if not a device or trash
		brl	matchIcName
 

; just match first window for which walkWindow is being called for
;
; IN: matchedFirst is reset
;
; OUT: matchedFirst is set
;.....................................................................

 		EXPORT	matchFirst
matchFirst	lda	#$FFFF
		sta	matchedFirst
		sec
		rts

		EXPORT	matchedFirst
matchedFirst	dc.w	0


; match second window for which walkWindow is being called for
;
; IN: matchedSecond is either 0 or 1
;
; OUT: matchedSecond is incremnted
;.....................................................................

 		EXPORT	matchSecond
matchSecond	inc	matchedSecond
		lda	matchedSecond
		cmp	#2
		bge	@done

		clc
		rts
		
@done		sec
		rts

		EXPORT	matchedSecond
matchedSecond	dc.w	0

;   IN:	   wind	= window to compare.
;	   C1_TempPath = C1_Pathname to compare.
;.....................................................................

		EXPORT	matchWindName
matchWindName				

		IMPORT	WStrCompare

		jsr	windRefCon		;windBlk = window's info block pointer.

		lda	<windBlk
		clc
		adc	#windPath
		ldx	<windBlk+2
enter100	bcc	@nr
		inx
@nr
		pha				;space for result

		phx				;ptr to 1st string
		pha
		PushLong #C1_TempPath		;ptr to 2nd string
		jsl	WStrCompare
		pla				;result (0 or 1)
		cmp	#1
		rts

; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = =
;	   Match extended icon to names. 
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = =
;
;   IN:	   C1_TempPath = name to match icOwner field.
;	   lastName = name to match icName field.
;
;  OUT:	   Carry set if	match. 
;
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = =
matchExtIcName

		ldy	#icFlag			Only check extended icons.
		lda	[<ic],y
		and	#ICEXTENDED
		beq	exit200


; --- First, check where icon came from	----------------------------- 

		ldx	<ic+2
		lda	<ic
		clc
		adc	#icOwner
		jsr	enter100
		bcc	exit200			No match?


; --- Now check	name ------------------------------------------------ 

		brl	matchIcName
 
exit200		clc
		rts


; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	=
;	   Chop	last name from C1_TempPath.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	=
;
; IN:	C1_TempPath = pathname.
;
; OUT:	lastName = last name in path (no separator).
;	C1_TempPath = original pathname	less last name and separator.
;	BEQ if C1_TempPath is a null string.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	=

chopLast
		sep	#$20
		LONGA	OFF

		ldx	C1_TempPath
		stz	C1_TempPath+2,x		;mark end of string
	
@loop		lda	C1_TempPath+1,x
		cmp	#SEPARATOR		;GS/OS separator character
		beq	gotit
		dex
		bne	@loop
		
		rep	#$20
		LONGA	ON
		rts
		LONGA	OFF

gotit		dex
		stx	C1_TempPath
		inx

		ldy	<zero
@loop2		inx
		iny
		lda	C1_TempPath+1,x
		sta	lastName,y
		bne	@loop2

		dey
		tya
		sta	lastName

		REP	#$20			
		LONGA	ON
		lda	C1_TempPath		Return Equal TRUE if no	more pathname.
		rts
		ENDP


;===============================
;	   Open	an icon.
;===============================
;
;   IN:	   ic =	pointer	to locked ICONOBJ to be	opened.
;	   windBlk = pointer to	icon window's info block.
;
;  OUT:	   AbortFind = not zero to quit.
;===============================

openIcon	PROCNAME EXPORT

		IMPORT	SaveDevStats
		IMPORT	PStringCompare
		IMPORT	PStringCopy
		IMPORT	WStringCopy
		IMPORT	doAlertWindow
		import	PendingDeselectAll

		inc	PendingDeselectAll	;5-Jun-92 DAL

		lda	OpenFlag		;Special flag?
		beq	ok$
		brl	openFolder		;I know the window has to be created.


; --- You can never tell if disk icons are already open	by their flag --------

ok$		ldy	#icFType		;Is this a disk icon being opened?
		lda	[<ic],y
		cmp	#TypeFDrive		;Floppy drive icon?
		bne	next2

;
; open floppy drive
;
		ldy	#icDevNum		;Pass the floppy drive's device number.
		lda	[<ic],y
		
		sta	dinfo_devnum
		pha				; space for result
		PushWord #app2Evt		; event code (application defined)
		PushWord #$0000			; event message (hi word) = Ejected Disk
		PushWord dinfo_devnum		; event message (lo word) = device #
		_PostEvent

		PushWord #app2Evt		; event code (application defined)
		PushWord #$8000			; event message (hi word) = Inserted Disk
		PushWord dinfo_devnum		; event message (lo word) = device #
		_PostEvent
		pla				; ignore result
		rts

;
; trash can opened
;
next2		cmp	#TypeFTrash		;Trash can?
		bcc	next3

;
; open trash can
;
		export OpenTheTrashCan
OpenTheTrashCan	jsr	markOpen		;Mark and draw trash icon as open.

;
; Check	if Trash window	already	visible:
;
		ldy	#icWind+2		;Place window pointer in icWind.
		ldx	<TrashWind+2
		txa
		sta	[<ic],y
		dey
		dey
		lda	<TrashWind
		sta	[<ic],y
		jmp	wind2top

;
; check if icon has read access
;
next3		ldy	#icFlag+2		;Is this icon readable?
		lda	[<ic],y
		and	#ICREADABLE>>16		
		bne	next4
		jsr	makeIcRoot		;C1_PathName = separator + icName
		
		stz	modifiers		;don't auto-close the window if they were tunneling
		
		lda	#rasNoAccess2
		jsl	doAlertWindow		;tell user they don't have access rights
		sec
		rts

;
; Check if a directory window already exists
;
next4		ldy	#icFType		;Is this	a folder being opened?
		lda	[<ic],y
		cmp	#TypeFolder		;Folder?
		beq	ok6
		tax
		bmi	ok6			;3.5', 5.25', RAM, Hard drive, other device?
						;else a document or application to be launched
		brl	launch			;If not, try application or document.

;
; open a folder or device into its window
;
ok6		jsr	getwRefCon		;windBlk = icon's window info block.
		jsr	buildPath		;C1_PathName = icon's pathname.
		bcs	error100		;Pathname error?
		lda	C1_PathName		;Open no windows without room for files.
		cmp	#MaxPathLen
		bcc	ok9
		
		stz	modifiers
		brl	lenError
error100	rts

ok9		jsr	clonePath		;C1_TempPath = C1_PathName.

		lda	#DirWindID		;Directory windows only.
		ldx	#matchWindName		;Check for match.
		jsr	walkWindow
		bcc	openFolder		;Create a window if it doesn't exist.

		brl	selectWind		;Call _SelectWindow with 'wind'.



; --- Open a new directory window ---------------------------------------
;
;   IN:	   curWind = window that owns icon being opened.
;	   icHand = handle of icon being opened.
;
;  OUT:	   Carry set if	unable to open window.	Open loop should be aborted.
;
;-----------------------------------------------
openFolder	name	

FinderInfo	RECORD	0
location	DS.W	2			; folder's location
windRect	DS.W	4			; folder's rectangle
windView	DS.W	1			; folder's view
windScroll	DS.W	2			; scroll position
		ENDR 

		IMPORT	c1_BootName
		IMPORT	AtCatalogEntry
		IMPORT	StrSystem
		IMPORT	WStrCompare
		IMPORT	ce_access
		IMPORT	ce_flags
		IMPORT	OptionBuff
		IMPORT	OptionBuffFST
		IMPORT	PStringCompare
		IMPORT	info_mdate
		IMPORT	GetFinderInfo
		IMPORT	PStringCompare
		IMPORT	findOwnerIc
		IMPORT	PStringAlphabetize
		IMPORT	read_file2
		IMPORT	oldZoom
		IMPORT	FolderColor
		IMPORT	AbortFind
		IMPORT	ckIfWindMax
		IMPORT	OOMDump

		jsr	ckIfWindMax		;Check if there is enough memory for a 
		bcs	exit3			;window to be created

		jsr	ckIfInTrash		Is the item in the Trash?
		bcc	ok1
exit3		rts				Abort opens in Trash.

ok1		jsr	lockic			;ic = (icHand) locked.
		jsr	getWoffset		;Set global offsets of port's origin.
		jsr	endDraw			;Put window back to 0,0.

;
; build the window's pathname, allocate a window info block for the window
;
		EXPORT	openFolder2
openFolder2	name	
		jsr	buildPath		;C1_PathName = window's pathname.
		bcc	@pathOK			;Pathname error?
		rts
@pathOK

		lda	C1_PathName		;Open no windows without room for files.
		cmp	#MaxPathLen
		bcc	@pathLenOK
		
		stz	modifiers
		brl	lenError

@pathLenOK		

;		lda	#windPath
;		clc
;		adc	c1_pathname
;		inc	a
;		inc	a			;Number of bytes to allocate

		lda 	#WINDBLKSIZE		;@@@ TEMPORARY! (Maybe)

		ldx	#$4000			;Fixed block, cause of window's title.
		jsr	allocate2		;Allocate the memory.
		bcc	@windBlkOK
		
		jsl	OOMDump
		bcc	@noDump
		lda	#rasMemErr
		jsl	doAlertWindow
@noDump		stz	modifiers		;make sure the desktop doesn't auto-close
						;a window if they were tunneling
		inc	abortFind
		sec
		rts
		
@windBlkOK	sta	<temp			;Save handle.
		stx	<temp+2
		jsr	setTemp			;Dereference 'temp'.

		sta	wind_ref		;RefCon = address of information block.
		stx	wind_ref+2
		sta	wind_infot		;Set info bar refCon also.
		stx	wind_infot+2

		clc				;Compute address of title.
		adc	#windTitle
		bcc	store1
		inx
store1		sta	wind_title
		stx	wind_title+2
		sta	<work			;Remember title's address.
		stx	<work+2

		lda	<zero			;Clear the info block.
		ldy	#windPath-2		;Number of bytes in block.
lop12		sta	[<temp],y
		dey
		dey
		bpl	lop12
		sta  	[<temp]			;in case of odd length

		jsr	geticNamePtr		;temp = pointer to ic's name

;
; add this window into the window's menu bar
;
		lda	wind_ref		;setup work to point to out menu item
		clc
		adc	#windMenuText
		sta	insertItemRef+10
		lda	wind_ref+2
		adc	<zero
		sta	insertItemRef+12

		pushZlong <temp 		;src (yes, the icon from which this is fetched must
		pushlong insertItemRef+10	;dest (still be around at this point, do tunneling
		jsl	PStringCopy		;afterwards)

		jsr	padName			;Build window's padded title

;
; now that we've allocated a window info block, start filling it in with all the
; important stuff
;
		EXPORT	openFolder3
openFolder3	name

		IMPORT	C1_PathNamePtr
		import	frqGlobalError
		IMPORT	C1_SystemName
		IMPORT	c1_source
		IMPORT	PathGetRoot
		IMPORT	RectListPtr
		IMPORT	info_access
		import	ce_file_type
		import	ce_aux_type
		import	ce_prodos_entry
		import	ce_mod_date
		import	ce_create_date
		import	AccessPriv
		import	FreeInfoBlk
		import	write_len
		import	FreeAllIcons
		import	textAlert
		import	MemoryFull
		import	OfflineMasks
		import	OnlineMasks
		import	ce_entry_num
		import	LotsOfFilesAlert
		import	Finfo
		import	walkback
		import	cutnfree
		import	LongGSOSError
		IMPORT	CloseThisWindow		;in Util.aii - 27-Jan-93 JCM
		
		jsr	setInfoPtr		;windBlk = wind_ref.
lop11		jsr	doGetFileInfo		;Check for valid pathname.
		sta	>frqGlobalError
		bcs	error
		
		lda	info_type		;Must be a folder or a volume.
		cmp	#TypeFolder
		beq	ok7

		lda	#frqErrFailed
		sta	>frqGlobalError

error		ldx	OpenFlag		;Ignore error when doing a special open.
		bne	cancel

		cmp	#$44
		beq	@notFound
		cmp	#$45
		beq	@notFound
		cmp	#$46
		beq	@notFound
		
		ldx	#GET_FILE_INFO+C1
		jsl	LongGSOSError
		bcs	cancel
		brl	lop11
		
@notFound	pushlong #c1_source		;c1_filename is root of c1_pathname
		pushlong #c1_pathname
		jsl	PathGetRoot

		lda	>c1_source
		and	#$00ff
		dec	a
		xba	
		sta	>c1_source+1

		lda	#rasInsertDiskorCancel8
		jsl	doAlertWindow
		beq	cancel
		brl	lop11

cancel
error101	jsl	arrowCursor
		brl	freeInfoBlk		;Free allocated info block and exit.

ok7		lda	info_access		;don't allow opening windows from
		and	#$0004			;invisible folders if the show invisible
		beq	@notInvisible		;files flag is OFF
		
		lda	prefer
		and	#pref_hdata		;hide invisibles?
		beq	@notInvisible		;nope, so allow it to be opened
		
		lda	#frqErrFailed		;otherwise, hide invisibles means you can't
		sta	>frqGlobalError		;open folders from one... ack!
		bra	cancel
		
@notInvisible	PushLong #C1_PathName
		lda	<windBlk
		clc
		adc	#windPath
		ldx	<windBlk+2
		bcc	@nr
		inx
@nr		phx
		pha
		jsl	WStringCopy		;move C1_PathName into info block

;
; set this window's mod date
;
		ldy	#windDate+6
		ldx	#6
@dateLoop	lda	info_mdate,x
		sta	[<windBlk],y
		dey
		dey
		dex
		dex
		bpl	@dateLoop

;
; use network finder info
;
		stz	typeOfFData		
		stz	read_len		;no finder.data yet
		stz	<posFile
		stz	<posFile+2

		lda	OptionBuff+4		;Check our FST
		cmp	#AppleShareFST
		beq	@onNetwork		; yes, so children will also be there
		stz	NetworkBit
		brl	localData		; no, so don't get Finder Info			
		
;
; don't even -TRY- putting the following inline.  I tried late one night and it was
; a large pain in the rear.  If are seriously considering this, they must not have
; given you enough work to do.  Call your manager and tell him to give you more work.
;
@onNetwork	lda	#icNetwork>>16
		sta	NetworkBit

		PushLong #C1_PathName		
		PushLong #FInfo
		jsl	GetFinderInfo
		bcc	good
		brl	ok2				; find window a position

good		ldx	#6				; set window's rect
@loop		lda	>FInfo+FinderInfo.windRect,x
		sta	wind_pos,x
		dex
		dex
		bpl	@loop
		
		lda	>FInfo+FinderInfo.windView	; set window's view
		ldy	#windView
		sta	[<windBlk],y

;		lda	>FInfo+FinderInfo.windScroll	; set scroll bar offsets
;		sta	wind_voff
;		lda	>FInfo+FinderInfo.windScroll+2
;		sta	wind_hoff

		stz	wind_voff			;force scroll bars to top
		stz	wind_hoff
		
		lda	wind_pos+y1
		ora	wind_pos+x1
		ora	wind_pos+y2
		ora	wind_pos+x2
		bne	cont3
		brl	ok2				; use default window position
cont3		brl	ok3


;
; try to read the directory's position file from finder.data
;
localData	lda	<modifiers
		and	#$1000
		beq	@noControlKey
		brl	ok2
@noControlKey
		
		lda	C1_PathName		Save current pathname's length.
		pha

		jsr	addDataName		Add name of finder data	filename.
		bcc	@ok
		pla
		sta	C1_PathName
		brl	error102		Pathname error?
@ok		
		lda	#FDataSize		;read the first bytes of a new style finder.data
		sta	read_size		;file (maybe not)
		stz	read_size+2
		ldx	#$8000			Allocated the buffer as	locked (not fixed!)
		jsr	allocate2		Allocate a buffer.
		sta	<posFile		Save handle.
		stx	<posFile+2
		bcs	@bad			Allocation error?
		jsr	derefHand		temp = (posFile).

		lda	<temp
		sta	read_buff
		lda	<temp+2
		sta	read_buff+2

		ldx	#C1_PathName
		ldy	#^C1_PathName
		lda	#$0001			; open read only
		jsr	open_file
@bad		pla
		sta	C1_PathName
		bcs	goOK2

		jsr	read_file2
		bcs	badRead

		lda	[<temp]
		sta	typeOfFData
		cmp	#FinderVer
		beq	newFinder
		cmp	#1
		bne	badRead
		brl	oldFinder

badRead		stz	read_len
		jsr	close_file
goOK2		brl	ok2

;
; newFinder -- read the remainder of the finder.data file into a buffer which we'll
; 	       resize to fit the amount of data yet to be read
;
newFinder	name

		ldy	#4			;unlock handle
		lda	[<posFile],y
;;;		and	#$7fff
		asl a
		lsr a
		sta	[<posFile],y

		ldy	#FDataStartAt
		lda	[<temp],y
		clc
		ldy	#FDataRecSize
		adc	[<temp],y
		tax
		iny
		iny
		lda	[<temp],y
		adc	<zero
		pha
		phx
		pei	<posFile+2
		pei	<posFile
		_SetHandleSize
		bcs	newFError

		ldy	#4			;lock the handle
		lda	[<posFile],y
		ora	#$8000
		sta	[<posFile],y

		lda	<posFile		;Save handle.
		ldx	<posFile+2
		jsr	derefHand		;temp = (posFile).

		ldy	#FDataStartAt		;set the mark to the beginning of our data
		lda	[<temp],y
		jsr	doSetMark

		ldy	#FDataRecSize
		lda	[<temp],y
		sta	read_size
		iny
		iny
		lda	[<temp],y
		sta	read_size+2
		
		ldy	#FDataStartAt
		lda	[<temp],y
		clc
		adc	<temp
		sta	read_buff
		lda	<temp+2
		adc	<zero
		sta	read_buff+2
		
		jsr	read_file2
		
		php
		jsr	close_file
		plp
		bcs	newFError
		brl	error102
		
newFError	pushZLong <posFile
		jsl DisposeHandleGlue
		stz	<posFile+1
		stz	read_len
		brl	ok2

;
; oldFinder -- read an old finder data file (given that we have one already open) 
;
oldFinder	name

		ldy	#4			;unlock handle
		lda	[<posFile],y
;;;		and	#$7fff
		asl a
		lsr a
		sta	[<posFile],y
		
		pei <zero
		pea FDataBufSize-FDataSize
		pei	<posFile+2
		pei	<posFile
		_SetHandleSize
		bcs	oldFError
		
		ldy	#4			;lock the handle
		lda	[<posFile],y
		ora	#$8000
		sta	[<posFile],y
		
		lda	<posFile		;Save handle.
		ldx	<posFile+2
		jsr	derefHand		;temp = (posFile).

		lda	#FDataBufSize-FDataSize
		sta	read_size
		stz	read_size+2
		
		lda	<temp
		clc
		adc	#FDataSize
		sta	read_buff
		lda	<temp+2
		adc	<zero
		sta	read_buff+2

		jsr	read_file2
	
		php
		jsr	close_file
		plp
		bcc	error102
		
oldFError	pushZLong <posFile
		jsl DisposeHandleGlue
		stz	<posFile+1
		stz	read_len
		brl	ok2

error102	lda	read_len		Is there anything in the buffer?
		beq	ok2			If not,	do a manual position.

		ldy	#x2+2			Set the	position and size of the window.
@loop		lda	[<temp],y
		sta	wind_pos-2,y
		dey
		dey
		bne	@loop

		ldy	#FDyOrg			Set window's starting origin.
		lda	[<temp],y
		sta	wind_voff
		iny
		iny
		lda	[<temp],y
		sta	wind_hoff

		iny				Set window's view.
		iny
		lda	[<temp],y
		ldy	#windView
		sta	[<windBlk],y		
		bra	ok3

;
; Find the window a position
;
WhichWindow	dc.w	0
ok2		
		stz	matchedFirst
		lda	#DirWindID+TrashWindID
		ldx	#matchFirst		
		jsr	walkWindow
		lda	matchedFirst
		bne	@notTopWindow
		
		stz	WhichWindow
		
@notTopWindow	stz	wind_voff
		stz	wind_hoff

		lda	WhichWindow
		and	#7
		asl	a
		asl	a
		asl	a
		inc	a
		inc	a
		tay
		
		lda	rectListPtr
		sta	<ptr
		lda	rectListPtr+2
		sta	<ptr+2
		
		ldx	<zero
@loop		lda	[<ptr],y
		sta	wind_pos,x
		iny
		iny
		inx
		inx
		cpx	#8
		blt	@loop

		inc	WhichWindow

;
; find out which icon owns this window (if any)
;
ok3		
		jsr	findOwnerIc

		lda	wind_ref		Get pointer to window's info block.
		sta	<windBlk
		lda	wind_ref+2
		sta	<windBlk+2

		ldy	#windIc+1		Mark 'this window's owner icon
		lda	<zero			has not	been found' flag
		sta	[<windBlk],y

		ldy	#windID			Directory window ID number.
		lda	#DirWindID
		sta	[<windBlk],y

		jsr	lockic			ic = (icHand) locked.

		ldy	#windAccess
		lda	<zero
		sta	[<windBlk],y
		
		lda	NetworkBit
		beq	@notOnNetwork
		 
		lda	OptionBuff+$2a		;our folder's privileges as gotten by GetFileInfo
		and	#icNetAccess>>16	;$000F
		ora	#icNetwork>>16		;add the network bit into this
		ldy	#windAccess
		sta	[<windBlk],y
@notOnNetwork

;
; Fill out the windDiskIc field from the DiskIc field of the owner icon
;
		ldy	#icDisk
		lda	[<ic],y
		ldy	#windDiskIc
		sta	[<windBlk],y
		
		ldy	#icDisk+2
		lda	[<ic],y
		ldy	#windDiskIc+2
		sta	[<windBlk],y

;
; make our window inherit the view of the parent if the window doesn't have a finder
; data file and if the window isn't on the network
;
		lda	read_len
		bne	@hasFinderData
		
		lda	NetworkBit		
		bne	@hasFinderData

		ldy	#icMom			;get the parent window of the
		lda	[<ic],y			;icon which opened into our window
		tax
		iny
		iny
		lda	[<ic],y

		cmp	<deskPort+2		;DON'T inherit if it's an icon
		bne	@notDesk		;without finder data right on the
		cpx	<deskPort		;desktop!
		beq	@hasFinderData
@notDesk
		pha
		pha
		pha
		phx
		_GetWRefCon			;get the refcon (could not be desktop)
		pulllong <temp
		
		ldy	#windView
		lda	[<temp],y
		cmp	#viewByKind+1
		bge	@hasFinderData		;crap protection
		sta	[<windBlk],y
;
; fudge the window's height to account for possible changes in "show disk info in
; header"
;
@hasFinderData
		lda	#11			;info bar's height is 11 by default.. unless..
		sta	wind_infoH
		
		ldy	#windView		;if it's not a list view, don't adjust nothin'
		lda	[<windBlk],y
		cmp	#viewByName
		blt	@byIcon

		lda	prefer			;if it's going to have the info bar, force the
		and	#PREF_SHOWDISK		;issue
		beq	@notDouble
		
		lda	#11+12
		sta	wind_infoH
		
		ldy	#6
@zLoop		lda	zoomWithInfo,y
		sta	wind_full,y
		dey
		dey
		bpl	@zLoop
		bra	@isDouble
@notDouble
		
		ldy	#6
@zLoop2		lda	zoomWithoutInfo,y
		sta	wind_full,y
		dey
		dey
		bpl	@zLoop2
		
@isDouble
		lda	typeOfFData
		cmp	#FinderVer
		beq	@newFinder
		
		lda	prefer
		and	#PREF_SHOWDISK
		bne	@makeLarger
		brl	@byIcon
		
@newFinder	ldy	#FDataInfoBar
		lda	[<temp],y
		eor	prefer
		and	#PREF_SHOWDISK
		beq	@byIcon			;if the prefs aren't different then don't change

		lda	prefer
		and	#PREF_SHOWDISK
		bne	@makeLarger

		lda	wind_pos+y1		;was ON last time, now is OFF
		sec
		sbc	#12
		sta	wind_pos+y1
		bra	@byIcon
		
@makeLarger	lda	wind_pos+y1		;move the content down a little to accomodate
		clc				;the larger information bar
		adc	#12
		sta	wind_pos+y1
@byIcon

;
; finally, clamp all our window values onto the screen so they don't do anything weird
;
		ldy	#windView
		lda	[<windBlk],y
		cmp	#viewByName
		blt	@checkMBar
		
		lda	prefer
		and	#PREF_SHOWDISK
		beq	@checkMBar
		
		lda	wind_pos+y1		;first, make SURE the window isn't up
		cmp	#30+12			;underneath the menu bar, ever
		bge	@noMBarPin
		lda	#30+12
		sta	wind_pos+y1
		bra	@noMBarPin
		
@checkMBar	lda	wind_pos+y1		;first, make SURE the window isn't up
		cmp	#30			;underneath the menu bar, ever
		bge	@noMBarPin
		lda	#30
		sta	wind_pos+y1
@noMBarPin

		lda	wind_pos+x2		;make sure the width of the window is at least
		sec				;127 pixels
		sbc	wind_pos+x1
		cmp	#99
		bge	@noWidthPin
		lda	wind_pos+x1
		clc
		adc	#99
		sta	wind_pos+x2
@noWidthPin		

		lda	wind_pos+y2		;no double-height info bar, so the window can
		sec				;be a measly 75 pixels in height
		sbc	wind_pos+y1
		cmp	#39
		bge	@noHeightPin
		lda	wind_pos+y1
		clc
		adc	#39
		sta	wind_pos+y2
@noHeightPin

;
; create the window, including the zoom effect
;
		lda	wind_pos+x1		;adjust for the true position of where our window will be
		sec
		sbc	#2
		sta	bigRect+x1
		
		lda	wind_pos+y1
		sec
		sbc	#23
		sta	bigRect+y1
		
		lda	wind_pos+x2
		clc
		adc	#26
		sta	bigRect+x2
		
		lda	wind_pos+y2
		clc
		adc	#13
		sta	bigRect+y2
		
		jsr	growZoom		;Draw zoom rect.

		pha				;Space for result.
		pha
		pea	wind_param>>16
		pea	wind_param
		_NewWindow
		tax
		pla
		sta	<wind
		sta	MyLocalWinPtr		
		pla
		sta	<wind+2
		sta	MyLocalWinPtr+2
		bcc	@ourWindowOK

		lda	<wind+1
		beq	@noWindow
		lda	<wind
		ldx	<wind+2
		jsl	CloseThisWindow

@noWindow	lda	<posFile+1
		beq	@noPosFile
		pushZLong <posFile
		jsl DisposeHandleGlue

@noPosFile	jsr	FreeInfoBlk

		jsl	OOMDump			;see if we can get rid of either handle
		bcc	@DeepMemoryErr		;if not, they get the text screen to avoid crashing	
		lda	#rasMemErr		;tell the user they're toast.
		jsl	doAlertwindow
		bra	@notSoDeep
		
@DeepMemoryErr	lda	#$FFFF
		ldx	#MemoryFull
		ldy	#MemoryFull>>16
		jsl	TextAlert

@notSoDeep	stz	modifiers		;make sure the desktop doesn't auto-close
						;a window if they were tunneling
		inc	AbortFind
		sec
		rts
		
;
; Our window was created OK, keep going...
;
@ourWindowOK	inc	myWindCount		;Increment windows I create counter.

		ldx	NoRealMatch		;if IC doesn't -really- own this window, then
		bne	@icNotOpen		;don't update the window it opened into field
		ldy	#icWind	
		lda	<wind
		sta	[<ic],y
		iny
		iny
		lda	<wind+2
		sta	[<ic],y
@icNotOpen

		jsr	unlockic

		jsr	setOrgnMask		;Set horizontal scroll mask so icons
						;won't fall on odd pixel boundaries.
;
; Create icons for window's directory
;
		lda	#$FFFF
		sta	row
		stz	rowbits
		stz	rowbits+2

		stz	positioned
		lda	#10			;defaults in case they don't have a finder.data
		sta	iconPos+y1		;file
		lda	#52+14
		sta	iconPos+x1

		ldy	#windView
		lda	[<windBlk],y
		cmp	#viewBySmallIcon
		bne	@notBySmall
		lda	#-10			;defaults in case they don't have a finder.data
		sta	iconPos+y1		;file
		lda	#14
		sta	iconPos+x1
@notBySmall		
		
		lda	typeOfFData
		cmp	#FinderVer
		bne	@notNew
		
		stz	lookingAt		;looking at first item
		
		lda	<posFile		;Save handle.
		ldx	<posFile+2
		jsr	derefHand		;temp = (posFile).

		ldy	#FDataItems		
		lda	[<temp],y
		sta	itemsInFData

		lda	<temp			;set temp to the beginning of the icon POS
		clc				;records
		ldy	#FDataStartAt
		adc	[<temp],y		
		tax
		lda	<temp+2
		adc	<zero
		sta	startOfRecords+2
		sta	lookingAtAddr+2
		stx	startOfRecords
		stx	lookingAtAddr
@notNew

		jsr	startHash		;Turn spot hashing on.

		jsr	getWindPath		;C1_PathName = pathname in current info block.
		jsr	path2ticon		;ticonobj+icOwner = C1_PathName

		stz	AtCatalogEntry		;start at entry #0

		PushLong #C1_PathName		;Pass window's pathname.
		ldx	#xStartCatalog
		jsl	MiscEntry
		bcc	@noStartError
		cmp	#$61
		beq	@noStartError
		
		ldx	#OPEN+C1
		jsl	LongGSOSError
		brl	iconAbort

@noStartError	lda	ce_entry_num
		sta	filesInFolder

		cmp	#500			;if there are >= 500 files, don't use the finder.data file
		blt	lop4
		
		lda	<posFile+1
		beq	@noPosFile2
		pushZLong <posFile		;if we have >= 500 files, DON'T use the Finder.data file
		jsl DisposeHandleGlue			;if there is one
		stz	<posFile+1
		stz	read_len
@noPosFile2	

		lda	filesInFolder
		jsl	lotsOfFilesAlert
		bcc	lop4
		brl	iconAbort		
		
lop4		pha				;Space for result.
		pha
		ldx	#xNextCatalog
		jsl	MiscEntry
		tay
		pla
		plx
		bcc	ok4			;Done?

		cpy	#$61
		beq	goDone4
		
		tya
		ldx	#GET_DIR_ENTRY+C1
		jsl	LongGSOSError
goDone4		brl	done4

ok4		sta	<work			;Save pointer to directory entry.
		stx	<work+2

		lda	ce_access		; get access value
		and	#$0004			; check the invisible bit
		beq	fType			; not set
		
		lda	prefer			; Should invisible files be hidden?
		and	#PREF_HDATA
		bne	lop4

fType		lda	ce_file_type		;pass filetype to addIconObj
		and	#$00FF
		sta	<filetype
		cmp	#DATAFTYPE		;Is this a Finder data file?
		bne	skip4			;no

		lda	prefer			;Hide Finder's data files ?
		and	#PREF_HDATA
		bne	lop4			;If yes, go to next catalog entry

skip4		ldx	ce_aux_type		;Pass aux type to addIconObj
		stx	auxtype			;also used for icFileInfo (DJB)

		ldx	#6			
@loop1		lda	ce_mod_date,x		; Get modified date
		sta	ticonobj+icMDate,x
		lda	ce_create_date,x	; Get create date
		sta	ticonobj+icCDate,x
		dex
		dex
		bpl	@loop1

		ldx	#ICBACKCLR
		lda	ce_access
		and	#$0080			Just checking destroy enable bit.
		bne	store2
		ldx	#ICLOCKED+ICBACKCLR
store2		stx	ticonobj+icFlag

		lda	<filetype
		cmp	#$0f
		bne	@notFolder

		lda	ticonobj+icFlag
		and	#$00FF
		ora	FolderColor
		sta	ticonobj+icFlag
@notFolder

		lda	ce_access
		and	#$0001			;check read enabled
		beq	set1			;not set !
		lda	#ICREADABLE>>16		;set our bit
set1		ora	NetworkBit		;add in network status
		sta	ticonobj+icFlag+2

		lda	ce_prodos_entry+DirSize	;get size in blocks
		sta	ticonobj+icFBlocks
		lda	ce_prodos_entry+DirSize+2
		sta	ticonobj+icFBlocks+2

		lda	ce_prodos_entry+DirEOF	;get size in bytes of data fork
		sta	ticonobj+icFBytes
		lda	ce_prodos_entry+DirEOF+2
		sta	ticonobj+icFBytes+2

		stz	ticonobj+icWind+1	;Icon has no open window.

;
; check to see if the file is on the desktop or in the trash before we do
; anything like run through all the different positions which might be already
; taken by any icons
;		
		jsr	ckOnDesk		;Check if file is on the desktop.
		bcs	@1
		brl	lop4
@1
		
		jsr	ckInTrash		;Check if file is in the Trash.
		bcs	@2
		brl	lop4
@2


;
; --- Stuff the WindDiskIc field into the icDisk field of the icon we're building ----------
;
		ldy	#windDiskIc
		lda	[<windBlk],y
		sta	ticonobj+icDisk
		iny
		iny
		lda	[<windBlk],y
		sta	ticonobj+icDisk+2

;
; --- Try to find icon in position file	buffer --------------------------
;
		lda	read_len		;Is there a buffer?
		sta	posFlag			;Set flag that tell 'windSpot' there is
		beq	@noFinderData
		brl	hasFinderData		;a position file pointed to be 'temp'.

;
; if there isn't a finder.data file to use to position the icons, do it by hand since we're not
; going to magically get a finder.data file halfway through this process, it's safe to just keep
; moving the icon positions to the right until we're out of the window, in which case we just
; move down and back over to the left.
;
@noFinderData
		ldy	#windView
		lda	[<windBlk],y
		cmp	#viewBySmallIcon
		beq	bySmallIcon
		brl	byLargeIcon

bySmallIcon	ldy	#20			;magic offset to window's portrect Y2
		lda	[<wind],y
		sec
		ldy	#16			;magic offset to window's portrect Y1
		sbc	[<wind],y
		sta	bottom

@nextRow	inc	row
		
		lda	row
		cmp	#64			;extra protection just in case
		bge	@newColumn
		
		lda	iconPos+y1
		clc
		adc	#10
		sta	iconPos+y1
		
		ldx	filesInFolder		;if we have >= 500 files, then always use columns of 64
		cpx	#500			;files so we don't overflow quickdraw's conceptual
		bge	@inWindow1		;drawing space (+16k, -16k)
			
		clc
		adc	#10
		cmp	bottom
		bcc	@inWindow1
		
@newColumn	stz	row
		
		lda	iconPos+x1
		clc
		adc	#150
		sta	iconPos+x1
		
		stz	iconPos+y1
		
@inWindow1	lda	row			;divide the row by 8 to use as an index
		lsr	a
		lsr	a
		lsr	a
		tay
		lda	row
		and	#$7
		tax
		
		sep	#$20
		LONGA OFF
		
		lda	rowbits,y		;find out if the last row intruded here
		and	>OnlineMasks,x
		
		pha
		lda	rowbits,y		;and reset the intrusion indicator
		and	>OfflineMasks,x
		sta	rowbits,y
		pla				

		LONGA ON
		rep	#$20			;if the last row to the left intruded into this column,
		bne	@nextRow		;then we need to try the next row down
		
		lda	iconPos+y1
		clc
		adc	#10
		sta	<yrat

		lda	iconPos+x1
		sta	<xrat
		
		pha				;now that we placed the icon, see if the name makes the
		pushZLong <work			;icon intrude in the next column
		_StringWidth
		pla
		cmp	#128
		blt	@goSkip20
		
		lda	row			;divide the row by 8 to use as an index
		lsr	a
		lsr	a
		lsr	a
		tay
		lda	row
		and	#$7
		tax
		
		sep	#$20
		LONGA OFF
		
		lda	rowbits,y
		ora	>OnlineMasks,x	
		sta	rowbits,y
		
		LONGA ON
		rep	#$20
@goSkip20	brl	skip20				

;
; locals for small icon positioning
;
row		dc.w	0
rowbits		ds.b	8			;if we have more than 64 rows, we've got problems
bottom		dc.w	0		
		
;
; If we end up here, the window is being viewed by icon or a list view, so we assign the default icon
; positions when the view is changed to be by small icon or icon
;
byLargeIcon	lda	positioned
		bne	@position
		inc	positioned
		bra	@inWindow
		
@position	lda	iconPos+x1		;look to the right
		clc
		adc	#106
		sta	iconPos+x1
		
		ldx	filesInFolder		;if there are >= 500 files, ignore thr right edge of the
		cpx	#500			;window and hopefully place a lot of files within the view
		blt	@widthCompare		
	
		cmp	#1000
		bcc	@inWindow
		bge	@atLeft
		
@widthCompare	ldy	#22			;magic offset to wind's portrect X2
		cmp	[<wind],y		;off right of window?
		bcc	@inWindow		
	
@atLeft		lda	#52+14			;Start again on left side if so
		sta	iconPos+x1

		lda	iconPos+y1		;next row down.
		clc
		adc	#32		
		sta	iconPos+y1		

@inWindow	lda	iconPos+y1
		clc
		adc	#10
		sta	<yrat

		lda	iconPos+x1
		sta	<xrat
		brl	skip20
hasFinderData		

		lda	typeOfFData
		cmp	#FinderVer
		beq	newFinderData
		brl	oldFinderData

;
; newFinderData -- match icon positions as if the new finder.data files is being
; 		   used
;
newFinderData	name
		
		lda	lookingAt
		sta	startedAt
		
@loop		lda	lookingAtAddr+2
		sta	<temp+2
		lda	lookingAtAddr
		sta	<temp

		clc
		adc	#iconPOSname
		tax
		lda	<temp+2
		adc	<zero
		pha
		pha
		phx
		pushZLong <work
		jsl	pStringCompare
		pla
		bne	matchedNew
		
		inc	lookingAt

		lda	lookingAt
		cmp	itemsInFData
		blt	@next

		stz	lookingAt
		
		lda	startOfRecords
		sta	lookingAtAddr	
		lda	startOfRecords+2
		sta	lookingAtAddr+2

		lda	lookingAt		;did we wrap around?
		cmp	startedAt
		beq	noMatchNew		;yep, so we failed to find the icon... bummer
		bra	@loop
		
@next		lda	lookingAt		;did we wrap around?
		cmp	startedAt
		beq	noMatchNew		;yep, so we failed to find the icon... bummer

		lda	<temp
		sec				;always add one more so we start at the (true)
		adc	[<temp]			;next record
		sta	lookingAtAddr
		lda	<temp+2
		adc	<zero
		sta	lookingAtAddr+2
		bra	@loop
		
noMatchNew	pushZLong <work
		jsr	windSpot		;Find the icon a spot in the window.
		pulllong <work
		brl	skip20
		
matchedNew	lda	ticonobj+icFlag		;Get lock flag,
		and	#$00FF			;and dump color.
		sta	ticonobj+icFlag

		ldy	#iconPOSColor		;Get index to ICONPOS record.
		lda	[<temp],y		;Get IPOSflag.
		tax				;Save flag.
		and	#$FF00			;Get color.
		ora	ticonobj+icFlag
		sta	ticonobj+icFlag		;Set color.
		iny
		iny
		lda	[<temp],y		;Get IPOSy,
		sta	<yrat
		iny
		iny
		lda	[<temp],y		;and IPOSx
		and	#$fffe			;always make it even -- andy, 1/15/91
		sta	<xrat

		inc	lookingAt
		
		lda	lookingAt
		cmp	itemsInFData
		blt	@next
		
		stz	lookingAt
		
		lda	startOfRecords
		sta	lookingAtAddr	
		lda	startOfRecords+2
		sta	lookingAtAddr+2
		brl	skip20
		
@next		lda	<temp
		sec				;one extra to get to next record
		adc	[<temp]
		sta	lookingAtAddr
		lda	<temp+2
		adc	<zero
		sta	lookingAtAddr+2
		brl	skip20

;
; local locals
;
filesInFolder dc.w	0			;total number of files in folder when we opened folder
positioned	dc.w	0			;did we position any icons yet?
iconPos		dc.w	0			;y
		dc.w	0			;x
typeOfFData	dc.w	0			;1 = old, 2 = new finder.data
itemsInFData	dc.w	0
lookingAt	dc.w	0
startedAt	dc.w	0
startOfRecords	dc.L	0
lookingAtAddr	dc.L	0
		
;
; oldFinderData -- match icon positions as if the old finder.data file is being used
;
oldFinderData
		lda	<posFile		;Save handle.
		ldx	<posFile+2
		jsr	derefHand		;temp = (posFile).

		ldy	#FDiconPos		;Offset to first icon in buffer.
lop20		lda	[<temp],y
		bne	ok22			;Any more icons?

		pei	<work+2
		pei	<work
		jsr	windSpot		;Find the icon a spot in the window.
		pla
		sta	<work
		pla
		sta	<work+2
		bra	skip20

ok22		ldx	<temp+2			;compute offset to name
		tya
		clc
		adc	<temp
		bcc	ok20
		inx
ok20		clc
		adc	#IPOSname
		bcc	nameCompare
		inx

;--- new way -----------------------------------
nameCompare	phy				;save index to ICONPOS record
		pha				;space for result
		phx				;pass pointer to icon's name
		pha
		PushZLong <work			;pass pointer to entry's name
		jsl	PStringCompare
		pla
		bne	match

		pla				;Next ICONPOS.
		clc
		adc	#IPOSSIZE
		tay
		bra	lop20

match		lda	ticonobj+icFlag		;Get lock flag,
		and	#$00FF			;and dump color.
		sta	ticonobj+icFlag

		ply				;Get index to ICONPOS record.
		lda	[<temp],y		;Get IPOSflag.
		tax				;Save flag.
		and	#$FF00			;Get color.
		ora	ticonobj+icFlag
		sta	ticonobj+icFlag		;Set color.
		iny
		iny
		lda	[<temp],y		;Get IPOSy,
		sta	<yrat
		iny
		iny
		lda	[<temp],y		;and IPOSx
		and	#$fffe			;always make it even -- andy, 1/15/91
		sta	<xrat

skip20		stz	<devNumber		;Files and folders don't have device #.

		lda	ce_access
		sta	ticonobj+icLocalAccess
		lda	ce_flags
		sta	ticonobj+icForked

		ldy	OptionBuff+2
@loop		lda	OptionBuff+2,y
		sta	ticonobj+icOptionList,y
		dey
		dey		
		bpl	@loop

		lda	OptionBuff+4
		cmp	#$0d
		bne	@notFromNetwork
		lda	<filetype
		cmp	#$0f
		bne	@notFromNetwork
		
		lda	OptionBuff+$2A		;munge the owner bit of the user summary byte into
		and	#$0080			;our icon flag stuff
		lsr	a
		lsr	a
		lsr	a
		lsr	a
		tsb	ticonobj+icFlag+2
		
		lda	OptionBuff+$2A
		and	#$000F			;is user icon's owner (on network)
		tsb	ticonobj+icFlag+2
		
		lda	ticonobj+icFlag+2
		and	#icNetAccess>>16
		sta	AccessPriv
		
		bra	@wasFromNetwork
@notFromNetwork	stz	ticonobj+icNetworkAccess
		stz	ticonobj+icNetworkAccess+2
@wasFromNetwork

;
; see if this is the icon for the system folder or not
;		
		lda	<filetype
		cmp	#$0F			;is icon a folder?
		bne	@notSYSTEM		;no
		
		stz	auxtype			

		pha
		pushZLong <work
		pushlong #strSystem
		jsl	PStringCompare
		pla
		beq	@notSystem

		pha				;space for result
		PushLong #C1_PathName
		PushLong #C1_BootName
		jsl	WStrCompare		;is this the boot disk ?
		pla
		beq	@notSYSTEM		;no
		
		lda	#$0002			;yes, so mark system folder
		sta	auxtype
@notSYSTEM

;
; now, make an icon object for our directory entry
;
		lda	<work			Pass pointer to	directory entry's name.
		ldx	<work+2
		ldy	#1			;add icons to the TAIL of the icon list
		jsr	addIconObj		;Create and add the icon to the window.
		bcc	@addIconOK

		lda	AtCatalogEntry
		beq	@goAbort
	
		pushZLong <curWind
		lda	<wind
		sta	<curWind
		lda	<wind+2
		sta	<curWind+2

		stz	iconsKilled		
		lda	#killAFewIcons
		jsr	walkBack
		
		pulllong <curWind
		
		lda	AtCatalogEntry
		beq	@goAbort
		cmp	#$FFFF
		beq	@goAbort
		
		lda	iconsKilled
		cmp	#24576/ICSIZE
		bcs	done4
@goAbort	brl	IconAbort

;
; We added the icon OK, so keep going...
;
@addIconOK	inc	AtCatalogEntry		;say we're at the next catalog entry
		brl	lop4			;^^ used by addIconObj

done4		lda	<posFile+1		Is there a position buffer to free?
		beq	skip2

		pei	<posFile+2		Free the position buffer.
		pei	<posFile
		jsl DisposeHandleGlue

skip2		ldx	#xEndCatalog
		jsl	MiscEntry

		stz	spotHashOn		Turn spot hashing off.

		ldy	#windView		Does the window	have a text view?
		lda	[<windBlk],y
		cmp	#viewByName
		bcc	skip3
		jsr	sort			Best do	a sort to set positions, order.

skip3		jsr	newDataSize2		Set window's data size.

;
; Finally, relink any windows on the desktop to icons in the window which we just
; opened
;	
		lda	#DirWindID		Directory windows only.
		jsr	getFrontWind		Get front most window.
		bne	lop300
		brl	done300			Are there any windows?

lop300		jsr	getWindPath		C1_PathName = window's pathname.

		pei	<windBlk+2
		pei	<windBlk
		pei	<wind+2
		pei	<wind
		jsr	findOwnerIc		Find the nearest icon that opened into
		pla				this window.
		sta	<wind
		pla
		sta	<wind+2
		pla
		sta	<windBlk
		pla
		sta	<windBlk+2

		ldy	#windIc+2		Get the	old icon that opened window.
		lda	[<windBlk],y
		tax
		dey
		dey
		lda	[<windBlk],y

		cmp	<icHand			Is it a	new icon?
		bne	newIcon
		cpx	<icHand+2
		beq	next1			If not,	there's nothing to do.

newIcon		phx				Save the old icon.
		pha

		lda	<icHand+1		;if the root icon couldn't be found then 
		bne	@ok			;DON'T MESS WITH IT
		pla
		plx
		bra	next1
@ok

		lda	<icHand			Save new opened	icon in	window.
		sta	[<windBlk],y
		iny
		iny
		lda	<icHand+2
		sta	[<windBlk],y

		lda	NoRealMatch		If this	icon isn't really the window's
		bne	skip5			icon then don't mark as open.

		jsr	lockic

		ldy	#icWind			Put icon's open window in icon record.
		lda	<wind
		sta	[<ic],y
		iny
		iny
		lda	<wind+2
		sta	[<ic],y

		jsr	markOpen		Mark and draw icon as open.
		jsr	unlockic

skip5		pla				Get icon that is no longer open.
		sta	<icHand
		pla
		sta	<icHand+2
		lda	<icHand+1		Valid handle?
		beq	next1

		jsr	lockic
		ldy	#icWind			Is this	really the icon's window?
		lda	[<ic],y
		cmp	<wind
		bne	skip6
		iny
		lda	[<ic],y
		cmp	<wind+1
		bne	skip6

		jsr	markClosed		Mark old icon as closed.
skip6		jsr	unlockic

next1		jsr	getNextWind		Get next directory window.
		beq	done300
		brl	lop300			Any more windows?

done300
		lda	MyLocalWinPtr
		ldx	MyLocalWinPtr+2
		jsr	setInfo2		Set window's information bar values.

		stz	posFlag			Reset flag to 'no position file'.


*** added 25-Mar-93 DAL -- Now it's safe to update our window in the background
		pushlong #wind_guts+$C0000000
		pushlong MyLocalWinPtr
		_SetContentDraw
*** end 25-Mar-93

;
; now we have to find out which item id is not used after $f000, so we have to linearly try them
; all until someone gives us an error -- dave astutely notes that this will be faster than walking
; the list of windows looking for the first unused menuItemID
;
; but don't worry about adding the checkmarks for which window is at front because that'll get done in
; the main loop by CheckFront
;.....................................................................

		EXPORT	addWindow2Menu
addWindow2Menu 	name

		ldx	#$f000
@nextItemID	phx

		pha				;put us in this loop until we run outta gas and find an open
		pha				;menu item ID
		phx
		_GetMItem
		pla
		pla
		plx
		bcs	@useThisOne
		inx
		cpx	#$ff00
		blt	@nextItemID
		rts				;don't insert it if we have a zillion windows open		

@useThisOne	stx	insertItemRef+2

		stz	matchedSecond
		lda	#DirWindID+InfoWindID+TrashWindID+ClipWindID+VerifyWindID+AboutWindID+HelpWindID
		ldx	#matchSecond		
		jsr	walkWindow
		lda	matchedSecond
		cmp	#2
		bge	@notAtFirst

		lda	wind_ref
		sta	<deref
		lda	wind_ref+2
		sta	<deref+2

		lda	insertItemRef+2		;save the window item we just got in our window block so that we can
		ldy	#windMenuItem		;go do neat stuff with it later
		sta	[<deref],y
		
		pea	idNoWindowsOpen		;yes, so get rid of that ugly "no windows open" stuff
		_DeleteMItem

		pei <zero			;refIsPtr
		pushlong #insertItemRef
		pea	idWindowsDivider	;add after the dividing line
		pea	idWindowsMenu
		_InsertMItem2
		bra 	@calcWindMenuSize

@notAtFirst	lda	wind_ref
		sta	<deref
		lda	wind_ref+2
		sta	<deref+2

		lda	insertItemRef+2		;save the window item we just got in our window block so that we can
		ldy	#windMenuItem		;go do neat stuff with it later
		sta	[<deref],y

		stz	windPtr			;say we initially compare against nada
		stz	windPtr+2
		lda	#idWindowsDivider	;say we should insert after the dividing line
		sta	windowID		;(initially, before our walk through the window list)
		
		lda	#DirWindID+InfoWindID+TrashWindID+ClipWindID+VerifyWindID+AboutWindID+HelpWindID
		ldx	#windCompare		
		jsr	walkWindow
						
		pei <zero			;refIsPtr
		pushlong #insertItemRef
		lda	windowID		;add after this window's ID
		pha
		pea	idWindowsMenu
		_InsertMItem2

@calcWindMenuSize
		lda <zero			;fix the windows menu for the new window
		pha
		pha
		pea	idWindowsMenu
		_CalcMenuSize
		clc
		rts		

;
; Two abort routines when opening Windows and we get into deep shit
;
IconAbort	stz	spotHashOn

		lda	#$FFFF
		sta	write_len
		jsr	FreeAllIcons		;get rid of all the icons in the window
		
		ldx	#xEndCatalog
		jsl	MiscEntry

		jsr	freeInfoBlk		;Free window's info block.

		dec	myWindCount		Decrement my window counter.

		lda	<wind
		ldx	<wind+2
		jsl	CloseThisWindow
		
		lda	<posFile+1		;Is there a position buffer to free?
		beq	@noPosFile
		pei	<posFile+2		;Free the position buffer.
		pei	<posFile
		jsl DisposeHandleGlue
		
@noPosFile	stz	modifiers		;make sure the desktop doesn't auto-close
						;a window if they were tunneling
		inc	abortFind
		sec
		rts


; KillAFewIcons -- walk backwards and kill 24K/ICSIZE icons
;.....................................................................

KillAFewIcons	lda	iconsKilled
		cmp	#24576/ICSIZE
		bge	@done

		lda	AtCatalogEntry
		cmp	#$FFFF
		beq	@done
		
		jsr	CutNFree
		inc	iconsKilled

		dec	AtCatalogEntry

@done		clc
		rts

;
; locals
;
iconsKilled	dc.w	0

; setDefaultWindowPos -- set the default window position before creating the window
;.....................................................................

setDefaultWindowPos
		lda	#dfltWinY1		;Reset the next window position.
		sta	nextWindPos+y1
		lda	#dfltWinX1	
		sta	nextWindPos+x1
		lda	#dfltWinY2
		sta	nextWindPos+y2
		lda	#dfltWinX2
		sta	nextWindPos+x2
		rts

; addIWindow2Menu -- add the info window to the menu
;.....................................................................

		EXPORT	addIWindow2Menu
addIWindow2Menu
		phb
		phk
		plb
		
		pushZLong <windBlk
		jsr	addWindow2Menu
		pulllong <windBlk
		
		plb
		rtl
		
;
; our window finder
;
;   IN:	   wind	= window to compare.
;
;   OUT:   windPtr = pointer to window which gives us the closest match
;	   windID = ID for window which gave us the closest match
;
; and remember, if windPtr is NIL, then we're just going to insert at the top of the list
;.....................................................................

windCompare	jsr	windRefCon		;windBlk = window's info block pointer.

		lda	<windBlk
		cmp	wind_ref
		bne	@notOurs
		lda	<windBlk+2
		cmp	wind_ref+2
		bne	@notOurs
		
		clc
		rts

;
; if we get this far, we know that at least we're not trying to compare against our own open window
;
@notOurs	lda	windPtr			;if windPtr is NIL, we're at the top of the window list
		ora	windPtr+2
		beq	@secondCompare
		
		pha				;space
		pei <zero			;flags
		
		lda	windPtr
		clc
		adc	#windMenuText
		tax
		lda	windPtr+2
		adc	<zero
		pha
		phx
		
		lda	<windBlk		;compare the old window which was closest alphabetically
		clc				;to the window which we're looking at now. if this window
		adc	#windMenuText		;is before our old closest match, then throw it out.  if
		tax				;this window is after the closest match so far, then
		lda	<windBlk+2		;check against the window which we're opening.
		adc	<zero
		pha
		phx
		_CompareStrings
		pla
		
		beq	@equal
		bmi	@secondCompare		;B>A, so it might be closer to wind_ref
		
@equal		clc				;if we fall through to here, the item entry we're comparing
		rts				;it against is no closer than the previous menu item's text
		

@secondCompare	
		pha
		pei <zero			;flags
		
		lda	<windBlk		;window which we got from walkWindow (which we're inside of)
		clc
		adc	#windMenuText
		tax
		lda	<windBlk+2
		adc	<zero
		pha
		phx
		
		lda	wind_ref		;info block of window which we're opening
		clc
		adc	#windMenuText
		tax
		lda	wind_ref+2
		adc	<zero
		pha
		phx
		_CompareStrings
		pla
		
		beq	@BgreaterA
		cmp	#1			;then A>B
		beq	@done
		
@BgreaterA	ldy	#windMenuItem		;say 'insert this new window after this windowID'
		lda	[<windBlk],y
		sta	windowID
		
		lda	<windBlk		;if our window is still alphabetically after the window
		sta	windPtr			;we got from this iteration through walkWindow, then
		lda	<windBlk+2		;this window must be closer alphabetically to the window
		sta	windPtr+2		;which we are opening, so say that
		
@done		clc
		rts

;
; locals
;
windPtr		dc.L	0			;needs to be set to zero each time we use windCompare
windowID	dc.w	0			;need to be set to the divider ID each time we use windCompare

		
		EXPORT	insertItemRef
insertItemRef	dc.w	0			;version
		dc.w	$f000			;itemID
		dc.w	0			;no keystroke characters
		dc.w	0			;no item check characters
		dc.w	0			;item flag (refIsPtr)
		dc.L	0			;title ref string (pstr)

;-----------------------------------------------
; Why doesn't the "@#$!*%?" finder use local variables ?????
; The _NewWindow call above puts the window pointer in a global
;  (wind) variable which some of the routines above decide to
; trash!! I don't want setInfo() to happen until everything is
; done so I now keep my window pointer in a LOCAL variable so
; that when I do reference it it is still valid. DJB
;

MyLocalWinPtr	DC.L	0
		STRING	PASCAL


; Launch an application 
;.....................................................................

		IMPORT	info_store
		IMPORT	IconsName
		IMPORT	DesktopName
		IMPORT	PathAddName
		IMPORT	AddBundle2Desktop
		IMPORT	BootFST
		IMPORT	KillStandardFile
		IMPORT	GetStandardFile
		IMPORT	GetBootVolume
		
launch		name
		lda	Printing
		sta	srqPrintFlag
	
*** Moved - 18-Mar-93 JCM - This would only let the correct modifiers be sent out with the first
***			    SendRequest. We now set them up outside of the launching loop.
		
;;;		lda	<modifiers		;get current modifiers to pass to finderSaysBeforeOpen
;;;		sta	launchModifiers
;;;		sta	srqModifiers
		
*** End - 18-Mar-93 JCM

		stz	modifiers		;don't do anything screwy if the launch fails for
						;any reason

		jsr	ckIfInTrash		Is the item in the Trash?
		bcc	ok24
		rts				Items in the Trash can't be opened.

ok24		stz	desRect			Make a null string.
		ldx	#desRect		Pass pointer to	null string.
		ldy	#desRect>>16
		jsr	doSetPrefix		Reset ProDOS prefix to null string.

		jsl	GetBootVolume

		ldy	#icFType		Is this	an application or document?
		lda	[<ic],y
		cmp	#$00FF			Older application?
		beq	@goRunApp
;		cmp	#$00B5			EXE file?
;		beq	@goRunApp
		cmp	#$00B3			New application?
		bne	runDoc
@goRunApp	brl	runApp


; ------ Launch	application from document -------------------------

		export 	srqOpenParms
srqOpenParms	dc.w	7		;oops, pcount was 6 in 6.0 (fixed 17-Feb-92 DAL)
		dc.l	C1_Pathname
srqRectangle	dc.l	srqTheRect
		export	srqFiletype
srqFiletype	dc.w	0
		export	srqAuxtype
srqAuxtype	dc.l	0
		export	srqModifiers
srqModifiers	dc.w	0
		export	srqIconHandle
srqIconHandle	dc.L	0
		export	srqPrintFlag
srqPrintFlag	dc.w	0

		EXPORT	srqTheRect
srqTheRect	dc.w	0,0,0,0

runDoc		
		IMPORT	temp2Path
		IMPORT  PathGetName
		IMPORT	WStringCopy
		IMPORT	doAlertWindow
		import	UnlockICBLKHAND		;22-Mar-93 JCM

;
; Now, before we do much of anything else, we have to make sure that the disk with the document on it
; is actually online.  If it's not, then there's no point in going any further or allowing them to
; update any icon links or desktop database links.
;
		jsr	buildPath
		bcs	@continue

		ldy	#icFlag			;if the disk isn't online, then we have to
		lda	[<ic],y			;ask the user nicely to put it back
		and	#icOffline
		beq	@online
	
@getDisk	jsr	PutOnline
		bcc	@PutOnline
		brl	CanceledSFDialog

@PutOnline	jsr	doGetFileInfo		;and if they don't put it back, then we have
		bcc	@online			;to ask them again... and again... and again...
		cmp	#$46
		beq	@getDisk
		cmp	#$45
		beq	@getDisk

;
; Let's send out the finderSaysBeforeOpen request
;
@online		jsr	doSaysBeforeOpen
		bcs	@continue

		jsl	ArrowCursor
		rts

@continue	ldy	#icRBundle+1
		lda	[<ic],y
		beq	@failed
		
		ldy	#icRBundle		;get the handle to the rBundle	
		lda	[<ic],y
		sta	<icBlkHand
		iny
		iny
		lda	[<ic],y
		sta	<icBlkHand+2
		
		lda	[<icBlkHand]		;deref it
		tax
		ldy	#2
		lda	[<icBlkHand],y
		sta	<icBlk+2
		stx	<icBlk
		
		lda	[<icBlk]		;high bit is set if converted
		sta	converted

		ldy	#icOneDocOffset
		lda	[<ic],y
		clc
		adc	<icBlk
		sta	<icBlk
		iny
		iny
		lda	[<ic],y
		adc	<icBlk+2
		sta	<icBlk+2
		
		ldy	#12			;rFinderPathHandle, might be empty
		lda	[<icBlk],y
		sta	<icBlkHand
		iny
		iny
		lda	[<icBlk],y
		sta	<icBlkHand+2

		lda	<icBlkHand+1		;see if there's really an rFinderPath handle
		beq	@failed
		brl	ok301
				
;
; Let's send the finderSaysOpenFailed request
;
@failed		
		pea	$0105			;finderSaysOpenFailed
		ldx	<zero
		pea	$8000			;how = send to first guy who accepts it
		phx
		phx				;target = nil
		pushlong #srqOpenParms
		phx
		phx				;dataOut = nil
		_SendRequest
		bcs	@cont2

		jsl	ArrowCursor
		rts
@cont2

; If the file has an rComment(2) resource, let's display it
; in an alert

		pha				;space for OpenResourceFile result
		pea 1				;request read access
		lda <zero
		pha
		pha				;map address = nil
		pushlong #C1_Pathname
		_OpenResourceFile
		plx
		bcc @1
		brl noComment2
@1
		phx				;save resource file number for CloseResourceFile

		pha				;space for 2nd SetResourceFileDepth result
		pha				;space for SetResourceFileDepth result
		pea 1				;new depth
		_SetResourceFileDepth

		pha
		pha				;space for result
		pea $802A			;rComment
		pei <zero
		pea 2
		_LoadResource
		pla
		sta rComment2Handle
		pla
		sta rComment2Handle+2

		pea $802a
		pei <zero
		pea 2
		_DetachResource

		_SetResourceFileDepth		;restore depth
		pla				;ignore original depth

		_CloseResourceFile		;resource file number already on stack

		lda rComment2Handle+1
		bne @2
		brl noComment2
@2

;
; grow handle by one byte (room for CString terminator)
;
		pha
		pha
		pushlong rComment2Handle
		_GetHandleSize
		lda 1,s
		inc a
		sta 1,s
		pushlong rComment2Handle
		_SetHandleSize

; dereference
		pushlong rComment2Handle
		phd
		tsc
		tcd
		ldy #2
		lda [3],y
		sta rCommentSubArray+2
		lda [3]
		sta rCommentSubArray
		pld
		_HLock

; put a CString terminator on the end
		phd
		pushlong rCommentSubArray
		tsc
		tcd
		pha
		pha
		pushlong rComment2Handle
		_GetHandleSize
		ply
		pla
		dey
		lda #0
		sep #$20
		sta [1],y
		rep #$20
		pla
		pla
		pld

*** Added 21-Jan-93 JCM

;;;		_InitCursor

		jsl	ArrowCursor
		
*** End - 21-Jan-93 JCM		
		
		pha				;space for result
		pea $0034			;by resource, C substitution strings, sound, cool button pos
		pushlong #rCommentSubArray
		pushlong #rasRComment2
		_AlertWindow
		pla

		pushlong rComment2Handle
		jsl DisposeHandleGlue

		rts

rComment2Handle	dc.l 0
rCommentSubArray dc.l 0

noComment2

		lda	#rasNoApplication
		jsl	doAlertWindow
error104	rts				;Quit the open.

;
; evidently, we have something to run, so try to run it
;
ok301		ldy	#4
		lda	[<icBlkHand],y
		ora	#$8000
		sta	[<icBlkHand],y
		
		lda	[<icBlkHand]		;deref it
		tax
		ldy	#2
		lda	[<icBlkHand],y
		sta	<icBlk+2
		stx	<icBlk

		ldy	#2
		lda	[<icBlk],y
		clc
		adc	<icBlk
		sta	<icBlk
		bcc	@nr
		inc	<icBlk+2
@nr
		pushZLong <icBlk
		pushlong #C1_Pathname
		jsl	WStringCopy

		pushZLong <icBlk
		jsr	sendPathMess		;Send names of documents to application.
		pulllong <icBlk

		pushZLong <icBlk
		pushlong #C1_Pathname
		jsl	WStringCopy

*** Scrunched - 21-Mar-93 JCM

;;;		ldy	#4
;;;		lda	[<icBlkHand],y
;;;		and	#$3FFF
;;;		sta	[<icBlkHand],y
		
		jsr	UnlockICBLKHAND
		
*** End - 21-Mar-93 JCM

;
; If the rBundle was a converted rBundle, then its kosher to get rid of all the slashes in the
; pathname which we're launching.  Otherwise, stripping the "/"'s would be a bad idea
;
		lda	converted
		bpl	@notConverted
		
		sep	#$20
		LONGA	OFF

		ldy	C1_PathName
@loop		lda	C1_PathName,y		;remap '/' to ':'
		cmp	#'/'
		bne	@ok
		lda	#SEPARATOR
		sta	C1_PathName,y
@ok		dey
		bpl	@loop

		rep	#$20
		LONGA	ON

@notConverted	lda	launchModifiers
		and	#optionKey
		beq	runlop

		ldx	#4			;second prompt
		brl	MakeIconLink

runlop		jsr	doGetFileInfo		;Is the application there?
		bcs	@lostApp
		
		lda	info_type		;it's also got to really BE an application
		cmp	#$B5
		beq	@launch

		cmp	#$B3			;and not just something like a folder
		beq	@launch
		
		cmp	#$FF
		bne	@lostApp

		jsr	CheckDocFST		;run it only from a prodos or appleshare volume
		bcs	@bogus

		jsr	CheckFST		;run it only off of a prodos or appleshare volume
		bcc	@launch

@bogus		brl	CanceledSFDialog

@launch		ldy	info_type		
		lda	info_aux		
		ldx	info_aux+2		
		jsr	FinderSaysBeforeApp	;send finderSaysBeforeOpen on this application
		bcs	@goLaunch		;nobody accepted the request

		rts

@goLaunch	brl	finishLaunch		;No error if file found.

@lostApp	PushLong #C1_FileName
		PushLong #C1_PathName
		jsl	PathGetName		;extract the application name

		lda	#rasNoApp
		jsl	doAlertWindow
		
		ldx	<zero			;first prompt
		cmp	#1
		beq	@goRunLop		;Try Again?

		blt	@bogus

		bra	Locate

@goRunLop	brl	runLop

;
; Nuts, they chose LOCATE, so we put up a SFGetFile dialog, then use that pathname as ours
;
Locate		
		IMPORT	iconsName
		IMPORT	desktopName
		IMPORT	PathAddName
		IMPORT	fileSysID
		
		lda	#controlKey+optionKey
		sta	launchModifiers
		
MakeIconLink	phx
		jsl	GetStandardFile
		plx
		bcc	@gotSF

		lda	#rasNoStandardFile
		jsl	doAlertWindow
		bra	@noStandardFile		;if we get an error, they're hosed

@gotSF		pea	120			;x
		pea	40			;y
		pea	2			;promptRefDesc (resource pstring)
		lda	SFGetFilePrompts+2,x
		pha
		lda	SFGetFilePrompts,x
		pha
		lda <zero
		pha
		pha				;filterProc
		pushlong #typeList
		pushlong #SFGetFileReply
		_SFGetFile2

		jsl	KillStandardFile
		
		lda	goodLocate
		bne	@noCancel
		
@noStandardFile	brl	CanceledSFDialog
@noCancel

		lda	pathRefLocate
		sta	<handle
		lda	pathRefLocate+2
		sta	<handle+2
		
		ldy	#2
		lda	[<handle],y
		tax
		lda	[<handle]
		clc			;it's a C1_Output string
		adc	#2
		bcc	@copyIt
		
		inx

@copyIt		phx
		pha
		pushlong #c1_pathname
		jsl	WStringCopy
		
		jsr	doGetFileInfo		;did they link it to something which isn't there? (huh?)
		bcs	@noStandardFile
		jsr	CheckFST		;did they link it to a P8 app on an HFS disk?
		bcs	@noStandardFile
		jsr	CheckDocFST
		bcs	@noStandardFile
		
		lda	launchModifiers
		and	#controlKey		;control held down?
		bne	relinkApp

*** Added - 9-Mar-93 JCM - Always make sure we send a finderSaysBeforeOpen no matter why or how
***			   we're attempting to launch an application.
		
SendSFGetAppReq	ldy	fileTypeLocate		
		lda	auxTypeLocate		
		ldx	auxTypeLocate+2		
		jsr	FinderSaysBeforeApp	;send finderSaysBeforeOpen on this application
		bcs	@goLaunch		;nobody accepted the request

		rts

*** End - 9-Mar-93 JCM

@goLaunch	brl	finishLaunch		;No error if file found.

relinkApp
		
;
; now that we have our complete pathname, see what kind of rBundle we actually
; were working with (converted or native).
;
	
		ldy	#icRBundle		;get the handle to the rBundle	
		lda	[<ic],y
		sta	<handle
		iny
		iny
		lda	[<ic],y
		sta	<handle+2
		
		lda	[<handle]		;deref it
		tax
		ldy	#2
		lda	[<handle],y
		sta	<ptr+2			;ptr points to our OneDoc (in just a second)
		stx	<ptr
		
		lda	[<ptr]			;high bit is set if converted
		sta	converted
		
		ldy	#12			;save the volume name's handle
		lda	[<ptr],y
		sta	volumeHandle
		iny
		iny
		lda	[<ptr],y
		sta	volumeHandle+2
		
		ldy	#icOneDocOffset
		lda	[<ic],y
		clc
		adc	<ptr
		sta	<ptr
		iny
		iny
		lda	[<ic],y
		adc	<ptr+2
		sta	<ptr+2

		jsr	OpenLocalOrBoot		;results in A&X
		bcc	@gotDatabase
;;;		brl	finishLaunch
		brl	SendSFGetAppReq		;9-Mar-93 JCM
	
@gotDatabase	txy				;check if we had to create a desktop file, and
		bpl	@lookConverted
		brl	@converted		;if so, always generate a new rBundle
		
@lookConverted	ldx	converted
		bpl	@native
		brl	@converted
	
;
; This isn't a converted icon, it's a native one, so we'll first try to write just the
; rFinderPath back to our original volume.  If that doesn't work, then we'll try writing
; a new rBundle back to the boot volume.
;
@native		tax
		bpl	@local			;is result is 0, then update the local
		brl	@converted
		
@local		pha
		pea	1
		_SetResourceFileDepth
		pla
		sta	oldDepth
		
		ldy	#8
		lda	[<ptr],y
		sta	rFinderPathID
		tax
		iny
		iny
		ora	[<ptr],y
		beq	@needNewFPath		;if we don't have an rFinderPath, don't remove
		lda	[<ptr],y		;one
		sta	rFinderPathID+2
		
		pea	$802c
		pha
		phx
		_RemoveResource
		bra	@useOldFPath
		
@needNewFPath	pha
		pha
		pei <zero
		pea	$802C			;rFinderPath
		_UniqueResourceID
		pla
		sta	rFinderPathID
		ldy	#8
		sta	[<ptr],y
		iny
		iny
		pla
		sta	rFinderPathID+2
		sta	[<ptr],y

@useOldFPath	jsr	addFPathToDatabase

		lda	resFileID
		ora	#$8000			;close it anyway
		pha
		_CloseResourceFile
		
		pha
		lda	oldDepth
		pha
		_SetResourceFileDepth
		pla
;;;		brl	finishLaunch
		brl	SendSFGetAppReq		;9-Mar-93 JCM

;
; this is a converted icon, so allocate memory for an rBundle, copy the OneDoc to the
; rBundle...
;	
@converted	pha				;Space for result.
		pha
		pei <zero
		lda	[<ptr]			;size of rBundle is size of OneDoc + 18
		clc
		adc	#18
		pha
		pei	<MyID
		pea	$8000			;attributes (locked)
		pha				;address, not used.
		pha
		_NewHandle
		pulllong <handle2
		bcc	@convertedOK
;;;		brl	finishLaunch
		brl	SendSFGetAppReq		;9-Mar-93 JCM
@convertedOK

		pha
		pea	1
		_SetResourceFileDepth
		pla
		sta	oldDepth
		
		lda	[<handle2]
		tax
		ldy	#2
		lda	[<handle2],y
		sta	<ptr2+2
		stx	<ptr2
	
		pushZLong <ptr			;source
		lda	<ptr2			;destination
		clc
		adc	#18
		ldx	<ptr2+2
		bcc	@nr
		inx
@nr		phx
		pha

		pei <zero		
		lda	[<ptr]			;how much (one OneDoc worth)
		pha
		_BlockMove
		
		lda	<zero			;rBundle version
		sta	[<ptr2]
		
		ldy	#4			;rIcon ID for this app (none)
		sta	[<ptr2],y
		iny
		iny
		sta	[<ptr2],y
		
		ldy	#12			;volumeNameHandle (used internally by us)
		sta	[<ptr2],y
		iny
		iny
		sta	[<ptr2],y

		ldy	#2			;offset to DocList
		lda	#16
		sta	[<ptr2],y

		ldy	#16			;Number of OneDocs (always one because we're making one)
		lda	#1
		sta	[<ptr2],y

		ldy	#18+4			;NumResults
		lda	[<ptr2],y
		cmp	#2			;if there's no space for an rFinderPath, just save the bundle
		bge	@haveRFPath
		brl	@saveBundle
@haveRFPath

		ldy	#18+12			;FinderPathReserved+18
		lda	<zero
		sta	[<ptr2],y
		iny
		iny
		sta	[<ptr2],y

		ldy	#18+4			;NumResults
		lda	[<ptr2],y
		cmp	#3			;if there's no space for the large icon, just save the
		blt	@saveRFPath		;rFinderPath and the bundle
		
		ldy	#18+20			;LargeIconReserved+18
		lda	<zero
		sta	[<ptr2],y
		iny
		iny
		sta	[<ptr2],y

		ldy	#18+4			;NumResults
		lda	[<ptr2],y
		cmp	#4			;if there's no space for the small icon, just save the
		blt	@saveLargeIcon		;rFinderPath, the large icon, and the bundle
		
		ldy	#18+28			;SmallIconReserved+18
		lda	<zero
		sta	[<ptr2],y
		iny
		iny
		sta	[<ptr2],y

;
; now that we have the desktop file open... add the large icon to the resource file
;
@saveLargeIcon	ldy	#18+4			;NumResults
		lda	[<ptr2],y
		cmp	#3
		blt	@saveRFPath

		ldx	#20			;our large icon's handle offset from source OneDoc
		lda	#18+16			;our large icon's ID stuffed into the rBundle clone
		jsr	addIconToDatabase
		bcc	@largeIconOK
		brl	@stopCSave
@largeIconOK

;
; add the small icon the to the desktop file
;
@saveSmallIcon	ldy	#18+4			;NumResults
		lda	[<ptr2],y
		cmp	#4
		blt	@saveRFPath
		
		ldx	#28			;our small icon's handle offset from source OneDoc
		lda	#18+24			;our small icon's ID stuffed into the rBundle clone
		jsr	addIconToDatabase
		bcc	@smallIconOK
		brl	@stopCSave
@smallIconOK

;
; add just the rFinderPath
;
@saveRFPath
		pha
		pha
		pei <zero
		pea	$802C			;rFinderPath
		_UniqueResourceID
		pulllong rFinderPathID

		jsr	addFPathToDatabase
		bcc	@addSmallOK
		brl	@stopCSave
@addSmallOK

		ldy	#18+8			;rFinderPathID+18
		lda	rFinderPathID
		sta	[<ptr2],y
		iny
		iny
		lda	rFinderPathID+2
		sta	[<ptr2],y

;
; now that we saved the rFinderPath, both rIcons, save the actual cloned rBundle
;
@saveBundle
		pha
		pha
		pea	$802B
		_CountResources
		pla
		plx
		
		pha
		pha
		pea	$802B
		phx
		pha
		_GetIndResource
		bcc	@gotFirstOK
		
		lda	<zero			;just to be sure, we can't depend on the return
		sta	1,s			;from getIndexedResource
		sta	3,s
		
@gotFirstOK	pla
		clc
		adc	#1			;next resource please
		plx
		bcc	@nr2
		inx	
@nr2	

		ldy	#8		;save the rBundle ID in itself
		sta	[<ptr2],y
		sta	BundleID
		iny
		iny
		txa
		sta	[<ptr2],y
		sta	BundleID+2
		
		pushZLong <handle2	;handle to our cloned rBundle
		pea	$0040		;Preload!
		pea	$802B
		pushlong BundleID
		_AddResource

@stopCSave	lda	resFileID
		ora	#$8000		;close it anyway
		pha
		_CloseResourceFile

		pha
		lda	oldDepth
		pha
		_SetResourceFileDepth
		pla
;;;		brl	finishLaunch
		brl	SendSFGetAppReq		;9-Mar-93 JCM

;
; try opening desktop file on the volume which contained this rBundle.  If we can't create
; a desktop file on that volume, try it on the boot volume
;
; OUT: carry set of bad, error in A
;      carry clear if good, A = 0 if on local volume
;     			    A = $FFFF if on boot volume
;			    X = 0 if opened RW
;			    X = $FFFF is desktop created
OpenLocalOrBoot
		lda	volumeHandle+1
		bne	@writeToVolume
		brl	@writeToBoot		;will also flag "create an rBundle"
@writeToVolume

		stz	which
		stz	how
		
		lda	volumeHandle
		sta	<handle3
		lda	volumeHandle+2
		sta	<handle3+2
		
		ldy	#4
		lda	[<handle3],y
		ora	#$8000
		sta	[<handle3],y
		
		lda	[<handle3]
		tax
		ldy	#2
		lda	[<handle3],y
		sta	<ptr3+2
		stx	<ptr3

		pha				;see if the volume which they want us to
		pushZLong <ptr3			;add to the desktop on is already the boot
		pushlong #c1_bootname		;volume -- if so, then we'll try to open it
		jsl	WStrCompare		;normally and not flag it as being our last
		pla				;resort -- ie, if it's able to open the desktop
		bne	@toBootAnyway		;file on boot, great! (don't write new stuff)

		pushZLong <ptr3
		pushlong #c1_tempPath
		jsl	WStringCopy
		
		jsr	CheckVolume		;see if we can write to the volume
		bcs	@writeToBoot		;(maybe not!)
		
		lda	>fileSysID		;check the volume's FST
		cmp	#AppleShareFST		;never write to an appleshare volume
		beq	@writeToBoot

		jsr	AddDatabaseName
		
@openLoop	jsr	OpenDatabase
		bcs	@problemWVolume
		brl	@cool
@problemWVolume		
	
		cmp	#$63
		beq	@createDatabase
		cmp	#$46
		beq	@createDatabase
		cmp	#$45
		beq	@writeToBoot
		sec
		rts
		
@writeToBoot	lda	#$FFFF
		sta	which
		
@toBootAnyway	pushlong #c1_bootname
		pushlong #c1_tempPath
		jsl	WStringCopy
		
		jsr	CheckVolume		;see if we can write to the volume
		bcs	@noHope			;(maybe not!)
		
		lda	>fileSysID		;check the boot volume's FST
		cmp	#AppleShareFST	
		bne	@canWriteToBoot
		
		lda	#1			;boot volume is AppleShare, so make the
		sta	>c1_tempPath		;database save to @:Desktop
		lda	#'@'
		sta	>c1_temppath+2

		jsr	addAppleShareName	;save to @:Desktop instead of @:icons:desktop
		bra	@bootWasAppleShare

@canWriteToBoot	jsr	AddDatabaseName
		
@bootWasAppleShare
		jsr	openDatabase
		bcc	@cool
		
		jsr	CreateDatabase		;if we can't create it on the boot volume,
		bcc	@openLoop		;then they don't get to save their link
		rts
		
@createDatabase		
		jsr	CreateDatabase
		bcc	@openLoop
		
		cmp	#$2b			;if regular volume is write-protected, try to
		beq	@writeToBoot		;write it to the boot volume
@writeProtected	sec
@noHope		rts
		
@cool		lda	which
		ldx	how
		clc
		rts
		
;
; OpenLocalOrBoot Locals
;
which		dc.w	0			;0 = local volume, $FFFF = boot volume
how		dc.w	0			;0 = opened RW, $FFFF = created


;
; check to see if the volume is either write-protected, read-only, and if the volume is
; actually online.  If we don't stand a chance of writing to this volume, return with the
; carry set
;
; IN: c1_temppath has the name of the volume
;
; OUT: carry clear if we can write to this volume
;      'fileSysID' contains the file system of the volume
;
CheckVolume
		IMPORT	GetDeviceNumber
		IMPORT	GetDeviceInfo
		IMPORT	GetVolumeInfo
		IMPORT	VolumeParams
		IMPORT	GetIconPtr2
		
		pha				;see if the volume is still around
		pushlong #c1_temppath
		jsl	GetDeviceNumber		;result on stack
		plx
		bcs	cvDone

		phx				; devNum
		PushLong #C1_DeviceName		; devNamePtr
		lda <zero
		pha
		pha				; skip devChar
		pha
		pha				; skip devBlocks
		pha
		pha				; skip devID
		jsl	GetDeviceInfo
		bcs	cvDone

		PushLong #C1_DeviceName		; pointer to device name
		lda <zero
		pha
		pha				; pointer to volume name
		pha
		pha				; pointer to total blocks
		pha
		pha				; pointer to free blocks
		PushLong #fileSysID		; pointer to file system ID
		pha
		pha				; skip block size
		jsl	GetVolumeInfo
		bcs	cvDone
		
		lda	>VolumeParams+$16
		and	#$0003			;is it write-protected or read-only?
		bne	cvBogus
cvDone		rts

cvBogus		lda	#$002b			;say it's write-protected
		sec
		rts
		
;
; AddDatabaseName -- add Icons:Desktop to c1_tempPath
;
AddDatabaseName
		pushlong #iconsName
		pushlong #c1_tempPath
		jsl	PathAddName

AddAppleShareName		
		pushlong #desktopName
		pushlong #c1_tempPath
		jsl	PathAddName
		rts

;
; OpenDatabase -- open the desktop database
;
OpenDatabase
		pha
		pea	$8003			;rw access, also no preload of anything
		lda <zero
		pha
		pha
		pushlong #c1_tempPath
		_OpenResourceFile
		plx
		stx	resFileID
		rts

;
; CreateDatabase -- create the resource file for the desktop database in c1_tempPath
;
CreateDatabase
		lda	#$FFFF
		sta	how

		pushlong #3
		pea	$c9
		pea	$c3
		pushLong #c1_tempPath
		_CreateResourceFile
		rts

;
; addFPathToDatabase
;
; IN: rFinderPathID = ID of resource for rFinderPath
;
addFPathToDatabase		
		pha				Space for result.
		pha
		pei <zero
		lda	c1_pathname
		clc
		adc	#8			;6 for the version, offset, and pcount,+2 for wstr
		pha
		pei	<MyID
		pea	$8000			;attributes (locked)
		pha				;address, not used.
		pha
		_NewHandle
		pulllong <handle3
		bcc	@newRFPOK
		rts
@newRFPOK
		
		lda	[<handle3]
		tax
		ldy	#2
		lda	[<handle3],y
		sta	<ptr3+2
		stx	<ptr3
		
		lda	<zero			;rFinderPath's version
		sta	[<ptr3]
		ldy	#4			;rFinderPath's pcount (0)
		sta	[<ptr3],y
		
		ldy	#2			;rFinderPath offset to pathname
		lda	#6
		sta	[<ptr3],y
		
		pushlong #c1_pathname
		lda	<ptr3
		clc
		adc	#6
		ldx	<ptr3+2
		bcc	@nr2
		inx
@nr2		phx
		pha
		jsl	WStringCopy
		
		pushZLong <handle3		;our rFinderPath's handle		
		pea	$0040			;Preload!
		pea	$802C
		pushlong rFinderPathID
		_AddResource
		bcc	@done
	
		pha
		pushlong <handle3
		jsl DisposeHandleGlue
		pla
		sec
@done		rts
		
;
; addIconToDatabase -- in, X = OffsetOfIndex, A = OffsetOfId
;
addIconToDatabase

		import	UnlockICBLKHAND		;22-Mar-93 JCM

		stx	OffsetOfIndex
		sta	OffsetOfID

		pha
		pha
		pei <zero
		pea	$8001			;rIcon
		_UniqueResourceID
		pulllong IconID

		ldy	OffsetOfIndex		
		lda	[<ptr],y
		jsr	GetIconPtr2		;make <icon point to the icon
		
		ldy	#2
		lda	[<icon],y
		asl	a
		clc
		adc	#8
		sta	handleSize
		ldx	<zero
		stz	handleSize+2
		
		phx				;Space for result
		phx
		phx				;exact clone
		pha
		pei	<MyID
		pea	$8000			;attributes (locked)
		pha				;address, not used.
		pha
		_NewHandle
		pulllong <handle3
		bcc	@newHandleOK
		
*** Scrunched - 21-Mar-93 JCM

;;;		ldy	#4
;;;		lda	[<icBlkHand],y
;;;		and	#$3FFF
;;;		sta	[<icBlkHand],y
;;;		rts
		
		brl	UnlockICBLKHAND		;it does the rts
		
*** End - 21-Mar-93 JCM

@newHandleOK

		pushZLong <icon
		pushZLong <handle3
		pushlong handleSize
		_PtrToHand
		
*** Scrunched - 21-Mar-93 JCM

;;;		ldy	#4
;;;		lda	[<icBlkHand],y
;;;		and	#$3FFF
;;;		sta	[<icBlkHand],y
		
		jsr	UnlockICBLKHAND
		
*** End - 21-Mar-93 JCM

		pushZLong <handle3
		pea	$0040			;Preload! (at least)
		pea	$8001
		pushlong IconID
		_AddResource
		bcc	@addSmallOK
		
		pha
		pushZLong <handle3
		jsl DisposeHandleGlue
		pla
		sec
		rts
@addSmallOK

		ldy	OffsetOfID
		lda	IconID
		sta	[<ptr2],y
		iny
		iny
		lda	IconID+2
		sta	[<ptr2],y
		clc
		rts

;
; locals
;
oldDepth	dc.w	0

SFGetFilePrompts
		dc.L	rPStringPrompt
		dc.L	rPStringPrompt2
		
launchModifiers	dc.w	0
converted	dc.w	0		;if high bit set, this icon was converted from old icons
volumeHandle	dc.L	0
BundleID	dc.L	0
resFileID	dc.w	0
IconID		dc.L	0
OffsetOfID	dc.w	0
OffsetOfIndex	dc.w	0
rFinderPathID	dc.L	0
handleSize	dc.L	0


;
; they cancelled the SF dialog, or they cancelled the first dialog saying that
; there wasn't an app to run in the first place
;
CanceledSFDialog				;Cancel selected.
		jsl	arrowCursor

goAway		pea	DelMessage		;get rid of anything we might have accumulated in
		pea	FilesMessage		;message center
		pha
		pha
		_MessageCenter

		pea	DelMessage		;get rid of anything we might have accumulated in
		pea	LongFilesMessage	;message center
		pha
		pha
		_MessageCenter		
		rts

********************************************************************************
*
* FinderSaysBeforeApp - Does a SendRequest on the application we are about to
*			launch. The application's pathname must be in C1_Pathname.
*			Pass fileType in Y and auxType in Acc (low), X (high).
*

FinderSaysBeforeApp

		sty	srqFiletype
		sta	srqAuxtype
		stx	srqAuxtype+2

		stz	srqIconHandle
		stz	srqIconHandle+2
		stz	srqPrintFlag

		pea	$0104			;finderSaysBeforeOpen
		ldx	<zero
		pea	$8000			;how = send to first guy who accepts it
		phx
		phx				;target = nil
		pushlong #srqOpenParms
		phx
		phx				;dataOut = nil
		_SendRequest

		rts

;
; ------ Launch	application -----------------------------------------------
;
runApp		ldy	#icMom+2
		lda	[<ic],y
		tax
		dey
		dey
		lda	[<ic],y
		jsr	getwRefCon2		;windBlk = ic's window info block.
		
		jsr	buildPath		;C1_PathName = ic's full pathname.
		bcs	goAway			;Pathname error?
	
		ldy	#icFlag			;if the disk isn't online, then we have to
		lda	[<ic],y			;ask the user nicely to put it back
		and	#icOffline
		beq	@online
	
@getDisk	jsr	PutOnline
		bcs	goAway
		
@online		jsr	doGetFileInfo		;and if they don't put it back, then we have
		bcc	@checkFST			;to ask them again... and again... and again...
		cmp	#$46
		beq	@getDisk
		cmp	#$45
		beq	@getDisk

@checkFST	jsr	CheckFST
		bcs	goAway	

		jsr	doSaysBeforeOpen		
		bcs	doQuit
		rts

;
; doQuit -- see if we're launching an extended file, and if so, try to add the app's rBundle to our
;           desktop database
;		
doQuit		jsl	WatchCursor
		
		lda	info_store
		cmp	#5
		beq	@isExtended
		brl	finishLaunch
@isExtended

		pushlong #c1_temppath
		pushlong #c1_pathname
		jsl	PathGetRoot
		
		pha
		pushlong #c1_bootname
		pushlong #c1_temppath
		jsl	WStrCompare
		pla
		bne	@writeToBoot2
		
		jsr	CheckVolume
		bcs	@writeToBoot
		
		lda	>fileSysID		;check the volume's FST, if it's AppleShare, don't
		cmp	#AppleShareFST		;write the Desktop to it, only to the boot volume
		beq	@writeToBoot

		jsr	addDatabaseName

		jsr	addBundle		
		beq	finishLaunch
		
		cmp	#$1e06			;rBundle or rVersion resource not found?
		beq	finishLaunch		;If so, don't try adding it again
		cmp	#fErrNotPrudent
		beq	finishLaunch
		cmp	#fErrBadBundle
		beq	finishLaunch
		cmp	#$48			;volume full?
		beq	finishLaunch
;
; if we couldn't write to the volume which the application is on, then try to create the Desktop
; file on the boot volume, even if it's AppleShare (but, if it's AppleShare, create it in the
; '@' prefix
;
@writeToBoot	pushlong #c1_bootname
		pushlong #c1_temppath
		jsl	WStringCopy

@writeToBoot2	jsr	CheckVolume		;see if the boot volume is around
		bcs	finishLaunch		;'cause if it's not, we have no hope of writing to boot

		lda	>fileSysID
		cmp	#AppleShareFST
		bne	@noAShareBoot
				
		lda	#1
		sta	>c1_temppath
		lda	#'@'
		sta	>c1_temppath+2
		
		jsr	addAppleShareName
		bra	@addBundle

@noAShareBoot	jsr	addDatabaseName				
@addBundle	jsr	addBundle		;if this fails, tough, keep going

;
; finish launching
;
finishLaunch	jsl	WatchCursor

		pushlong #c1_pathname
		pushlong #c1_quitname
		jsl	WStringCopy
				
		lda	#C1_QuitName
		sta	quit_path
		lda	#^C1_QuitName
		sta	quit_path+2
		
ZoomLaunch	jsr	getSmallRect		;from <ic, which better be there...
		
		lda	#4
		sta	bigRect+x1
		lda	#636
		sta	bigRect+x2
		lda	#16
		sta	bigRect+y1
		lda	#196
		sta	bigRect+y2
		
		lda	#1			;zoom up
		jsr	zoomRect

		lda	#$C000
		sta	quit_flags
		rts

;
; Let's send out the finderSaysBeforeOpen request
;
doSaysBeforeOpen
		lda	<icHand
		sta	srqIconHandle
		lda	<icHand+2
		sta	srqIconHandle+2
	
		ldy	#icFType
		lda	[<ic],y
		sta	srqFiletype
		ldy	#icFileInfo
		lda	[<ic],y
		sta	srqAuxtype
		iny
		iny
		lda	[<ic],y
		sta	srqAuxtype+2

		jsr	GetSmallRect

		ldy	#6
@rLoop		lda	smallrect,y
		sta	srqTheRect,y
		dey
		dey
		bpl	@rLoop
		
		pea	$0104			;finderSaysBeforeOpen
		ldx	<zero
		pea	$8000			;how = send to first guy who accepts it
		phx
		phx				;target = nil
		pushlong #srqOpenParms
		phx
		phx				;dataOut = nil
		_SendRequest
		rts

;
; add a bundle from c1_pathname to c1_temppath
;
addBundle
		pha
		pea	$8000
		pushlong #1
		pushlong #c1_temppath
		pushlong #c1_pathname
		jsl	AddBundle2Desktop	
		pla				;damn the errors, full speed ahead!
		rts

;
; checkFST -- if it's a P8 app, check the FST to make sure it's either ProDOS or AppleShare
;
		EXPORT	CheckFST
CheckFST	lda	info_type
		cmp	#$FF
		bne	GoodFST
		
		lda	OptionBuffFST
		cmp	#ProDOSFST
		beq	GoodFST
		cmp	#AppleShareFST
		beq	GoodFST
		
		lda	#rasWrongAppFST
		jsl	doAlertWindow
		sec
		rts
		
GoodFST		clc
		rts

;
; check the fst for the document icon
;
		EXPORT	CheckDocFST
CheckDocFST	lda	info_type		;is this a P8 app they linked to?
		cmp	#$FF
		bne	GoodFST
		
		ldy	#icOptionList+2		;it's a P8 app, but is the document on a server or prodos
		lda	[<ic],y			;volume?  if not, say that's a no-no
		cmp	#AppleShareFST
		beq	GoodFST
		cmp	#ProDOSFST
		beq	GoodFST
		
		lda	#rasWrongDocFST
		jsl	doAlertWindow
		sec
		rts


;
; See if our icon is online, and if not, ask for the disk's name which is the root of c1_pathname
;
; OUT: Carry clear if they pressed OK to insert or if the disk was already online
;
PutOnline	pushlong #C1_Source
		pushlong #C1_Pathname
		jsl	PathGetRoot
		
		lda	>c1_source
		dec	a
		xba	
		sta	>c1_source+1
		
		lda	#rasInsertDiskOrCancel8	;uses *8 as substitution string
		jsl	doAlertWindow
		clc
		bne	@online			;button 1 = OK
		sec
@online		rts
		
;
; locals
;
TypeList	dc.w	3			;entries in filetype list
		
		dc.w	$8000			;match filetype, any auxtype
		dc.w	$00FF
		dc.L	0
		
		dc.w	$8000			;match filetype, any auxtype
		dc.w	$00B3
		dc.L	0
		
		dc.w	$8000			;match filetype, any auxtype
		dc.w	$00B5
		dc.L	0

SFGetFileReply	
goodLocate	dc.w	0			;good or not
fileTypeLocate	dc.w	0			;filetype
auxTypeLocate	dc.L	0			;auxtype
nameRefDescLocate dc.w	3			;ref will be a handle
nameRefLocate	dc.L	0			;filename ref
pathRefDescLocate dc.w	3			;ref will be a handle
pathRefLocate	dc.L	0			;pathname ref

; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	=
;	   Check if opening something
;	   in the Trash.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	=

;   IN:	   curWind = window being checked.

;  OUT:	   Carry set if	curWind	is the Trash.

		EXPORT	ckIfInTrash
ckIfInTrash				

		jsr	getwRefCon		windblk	= pointer to curWind's info block.
		jsr	getWindID2		a = window's ID.
		cmp	#TrashWindID		Openning something in the Trash?
		clc				Not Trash flag,	just in	case.
		bne	exit150			If not in the Trash, then OK.

		stz	modifiers		;prevent trash from closing if they tried to tunnel


		lda	#rasInTrash
		jsl	doAlertWindow

		sec				Abort flag.
exit150		rts


; = = =	= = = =	= = = =	= = = =	= = = =	= = = =
;	   Move	wind_ref into windBlk. 
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =
 
setInfoPtr
		lda	wind_ref		Get the	address	of the window's
		sta	<windBlk		information block.
		lda	wind_ref+2
		sta	<windBlk+2
		rts


; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = =
;	   Send	message	with pathname of
;	   every selected document to application.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = =

sendPathMess	lda	#9			;Number of bytes to allocate.
		jsr	allocate
		sta	<temp
		stx	<temp+2

		lda	#10			;Number of bytes to allocate (1 extra for long message's
		jsr	allocate		;terminator)
		sta	<handle2
		stx	<handle2+2

		lda	[<temp]			;Dereference handle.
		sta	<work
		ldy	#2
		lda	[<temp],y
		sta	<work+2

		lda	[<handle2]		;Dereference handle.
		sta	<ptr2
		lda	[<handle2],y
		sta	<ptr2+2

		ldy	#7			;store the terminating zero if we get nothing
		lda	<zero
		sta	[<work],y
		iny
		sta	[<ptr2],y		;and the terminating zero WORD if we get nothing (???)

		ldy	#messType		;Set message type.
		lda	#FilesMessage
		sta	[<work],y
		lda	#LongFilesMessage
		sta	[<ptr2],y
		iny
		iny
		lda	Printing		;1 to print documents, else 0.
		sta	[<work],y
		sta	[<ptr2],y

		jsr	clonePath		;C1_TempPath = C1_PathName, pass to add2Message.

		lda	#add2Message
		jsr	findSelect

		pha
		pha
		pushZLong <temp
		_GetHandleSize
		pla
		plx
		bne	@addMessage1
		cmp	#9
		beq	@noMessage1

@addMessage1	pea	AddMessage		;Pass action value.
		pea	FilesMessage		;Pass type of message.
		pei	<temp+2			;Pass handle to MessageCenter.
		pei	<temp
		_MessageCenter

@noMessage1	pea	AddMessage		;Pass action value.
		pea	LongFilesMessage	;Pass type of message.
		pei	<handle2+2		;Pass handle to MessageCenter.
		pei	<handle2
		_MessageCenter
		rts


; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = =
;	   Add icon's pathname to message.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = =
;
;   IN:	   temp	= handle of message.
;	   ic =	selected icon.
;	   C1_TempPath = application's pathname.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = =

add2Message

;
; --- Check if this icon's boss is the same as the launching application -----
;		
		ldy	#icRBundle
		lda	[<ic],y
		sta	<icBlkHand
		iny
		iny
		lda	[<ic],y
		sta	<icBlkHand+2
		
		lda	[<icBlkHand]
		tax
		ldy	#2
		lda	[<icBlkHand],y
		sta	<icBlk+2
		stx	<icBlk
		
		ldy	#icOneDocOffset
		lda	[<ic],y
		clc
		adc	<icBlk
		sta	<icBlk
		iny
		iny
		lda	[<ic],y
		adc	<icBlk+2
		sta	<icBlk+2

		ldy	#12			;rFinderPathHandle
		lda	[<icBlk],y
		tax
		iny
		iny
		lda	[<icBlk],y
		sta	<icBlkHand+2
		stx	<icBlkHand
		
		lda	[<icBlkHand]		;deref it
		tax
		ldy	#2
		lda	[<icBlkHand],y
		sta	<icBlk+2
		stx	<icBlk

		ldy	#2			;add offset of pathname
		lda	[<icBlk],y
		clc
		adc	<icBlk
		sta	<icBlk
		bcc	@nr
		inc	<icBlk+2
@nr

		pha
		pushZLong <icBlk
		pushlong #c1_tempPath
		jsl	WStrCompare
		pla
		bne	@hasBoss
		brl	exit400			; icon doesn't have same boss
@hasBoss

;
; --- Add icon's pathname to message -------------------------------------
;
		jsr	buildPath		C1_PathName = ic's full pathname.
		bcc	@pathOK
		brl	exit400			Pathname error?
@pathOK

		lda	c1_Pathname
		cmp	#256
		bge	longPath
		tax				;check to see if this path contains a '/' and if it
@sLoop		lda	c1_pathname+1,x		;does, don't add it to the files message
		and	#$00FF
		cmp	#'/'
		beq	longPath
		dex
		bne	@sLoop

		pha				Space for handle's size.
		pha
		pei	<temp+2			Pass message handle.
		pei	<temp
		_GetHandleSize

		lda	1,s			Compute	next free spot in message.
		dec	a
		sta	<work

		lda	C1_PathName		Get size of name to add,
		sec				(plus one for length byte)
		adc	1,s			and add	to current message size.
		sta	1,s
		pei	<temp+2			Pass the handle	to grow.
		pei	<temp
		_SetHandleSize

		ldy	#2
		lda	[<temp],y
		tay
		lda	[<temp]			Dereference message handle.
		clc
		adc	<work			Next free spot.
		bcc	store400
		iny
store400	sta	<work
		sty	<work+2
		
		sep	#$30
		LONGA	OFF
		LONGI	OFF

		ldy	C1_PathName
		iny
		lda	<zero			;mark end of list
		bra	enter401
lop401		lda	C1_PathName+1,y
enter401	cmp	#SEPARATOR
		bne	kludge
		lda	#'/'
kludge		sta	[<work],y
		dey
		bne	lop401

		lda	c1_pathname
		sta	[<work]
		
		rep	#$30
		LONGA	ON
		LONGI	ON


;
; Now, add a long pathname to the LongFilesMessage
;
longPath	pha				;Space for handle's size.
		pha
		pushZLong <handle2
		_GetHandleSize

		lda	1,s			;next available spot
		sec
		sbc	#2
		sta	<ptr2
		lda	3,s
		sbc	<zero
		sta	<ptr2+2
		
;		lda	C1_PathName		;Get size of name to add,
;		clc				;(plus two for length word)
;		adc	1,s			;and add to current message size.
;		adc	#2
;		sta	1,s
;		lda	3,s
;		adc	<zero
;		sta	3,s
*** fixed 11-Jan-93 DAL
		clc
		lda	1,s
		adc	C1_Pathname
		sta	1,s
		lda	3,s
		adc	<zero
		sta	3,s
		clc
		lda	1,s
		adc	#2
		sta	1,s
		lda	3,s
		adc	<zero
		sta	3,s
*** end 11-Jan-93


		pushZLong <handle2
		_SetHandleSize

		ldy	#2
		lda	[<handle2],y
		tay
		lda	[<handle2]		;Dereference message handle.
		
		clc
		adc	<ptr2			;Next free spot.
		sta	<ptr2
		tya
		adc	<ptr2+2
		sta	<ptr2+2
		
		pushlong #C1_Pathname
		pushZLong <ptr2
		jsl	WStringCopy

		ldy	c1_pathname
		iny
		iny
		
		lda	<zero
		sta	[<ptr2],y
exit400		rts


; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = =
;	   Check if file already on desktop.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = =
;
;   IN:	   C1_PathName = directory pathname.
;	   work	= pointer to file name.
;
;  OUT:	   Carry clear if already on desktop.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = =

ckInTrash
		IMPORT	PStringCompare

		lda	>TrashBlk+2
		tay
		lda	>TrashBlk
		bra	enter700

		ENTRY	ckOnDesk		; JAM 06/09/89 (Fixing BRC #50497)
		EXPORT	ckOnDesk		;   ditto
ckOnDesk
		lda	<deskic
		ldy	<deskic+2
		bra	enter700

lop700		jsr	lockic

		jsr	ckExName		; compare 'C1_PathName' to icOwner
		bcc	next700			; not from 'C1_PathName'

		pei	<temp+2
		pei	<temp

		jsr	geticNamePtr2
		pha				; space for result
		phx				; pass pointer to ic's name
		pha
		PushZLong <work
		jsl	PStringCompare
		pla
		eor	#1			; flip it
		cmp	#1			; get carry flag (clr if match)

		pla
		sta	<temp
		pla
		sta	<temp+2
		bcc	exit700			; match found

next700		ldy	#icNext+2
		lda	[<ic],y
		tay
		lda	[<ic]

enter700	sta	<icHand			Store handle of	next ICONOBJ.
		sty	<icHand+2

		lda	<icHand+1		Any more in list?
		bne	lop700
		sec				Not on desktop.
exit700		rts


; = = =	= = = =	= = = =	= = = =	= = = =	= = = =
;	   Open	all the	selected icons.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =
;
;   IN:	   curWind = list to search.
;
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =
		EXPORT	openAll
openAll	
		jsl	WatchCursor		

*** Added - 18-Mar-93 JCM - Send out the proper modifiers with each icon we open, not just the first.

		lda	<modifiers		;get current modifiers to pass to finderSaysBeforeOpen
		sta	launchModifiers
		sta	srqModifiers
		
*** End - 18-Mar-93 JCM		
		
		lda	#openIcon		;Routine to call for every selected icon.
		jsr	findSelect

		lda	quit_flags		;if someone wants us to quit, don't draw the arrow cursor
		bne	@done			;AGAIN...
		
		jsl	arrowCursor
@done		rts

; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =
;	   Build space padded window title. 
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =
;
;   IN:	   temp	= pointer to name (no spaces on	ends).
;	   work	= pointer to area to store new name.
;
;  OUT:	   work	= pointer to name that is (temp) with leading and
;		  trailing space.
; 
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =
		EXPORT	padName
padName	
 
		sep	#$30
		LONGA	OFF
		LONGI	OFF

		lda	[<temp]			Length of icon's name,
		beq	@done
		tax				(save for length counter later)
		inc	a			plus room for leading space,
		inc	a			plus room for trailing space,
		sta	[<work]			will be	the length of the title.

		ldy	#1			Pad title with a leading space.
		lda	#' '
		sta	[<work],y

@loop		lda	[<temp],y		Move icon's name into title.
		iny
		sta	[<work],y
		dex				(x is icon's name length counter)
		bne	@loop

		lda	#' '			Pad title with trailing	space.
		iny
		sta	[<work],y

@done		rep	#$30
		LONGA	ON
		LONGI	ON
		rts
 		ENDP

;=====================================================
;	   Draw	a zoom RECT for	closing	window.
;=====================================================
;
;   IN:	   a = 0 to go down, not 0 to zoom up.
;	   ic =	destination icon.
;
;=====================================================

growZoom	PROC	EXPORT


		jsr	getSmallRect


;=====================================================
;   IN:	   smallRect = small RECT for zoom.
;=====================================================

		EXPORT	growZoom2
growZoom2	

		lda	#1			Up direction.
		brl	ZoomRect


; = = =	= = = =	= = = =	= = = =	= = = =	= = = =
;	   Get window's port RECT for zoom.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =
;
;   IN:	   a = lo address of window.
;	   x = hi address of window.
;
;  OUT:	   bigRect = window's port in global.
;
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =
		EXPORT	getBigRect
getBigRect	name

		sta	<wind
		stx	<wind+2


; = = =	= = = =	= = = =	= = = =	= = = =	= = = =
;   IN:	   wind	= window.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =

		EXPORT	getBigRect2
getBigRect2
		pha
		pha
		pushZLong <wind
		_GetStructRgn
		phd
		tsc
		tcd
		
		lda	[3]		;deref the handle to the region
		tax
		ldy	#2
		lda	[3],y
		sta	3+2
		stx	3

		ldy	#6+2		;no, don't fix this, it's not supposed to copy the first
@loop		lda	[3],y		;two bytes of the structure since the bounding rect of
		sta	bigRect-2,y	;the struct region is at offset +2
		dey			;andy and DAL, 1/7/91
		dey
		bne	@loop
		
		pld
		pla
		pla
		rts


; = = =	= = = =	= = = =	= = = =	= = = =	= = = =
;	   Get icon RECT for zoom.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =
;
;   IN:	   ic =	ICONOBJ	pointer.
;
;  OUT:	   smallRect = RECT over ic.
;
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =

		import	UnlockICBLKHAND	;22-Mar-93 JCM

		EXPORT	getSmallRect
getSmallRect	name

		pushZLong <windBlk
		pushZLong <curWind
		
		ldy	#icMom			Switch to window that opened icon is in.
		lda	[<ic],y
		sta	<curWind
		iny
		iny
		lda	[<ic],y
		sta	<curWind+2
		
		jsr	getWoffset		Get that window's global offsets.
		jsr	endDraw			Put origin back.
;		jsr	getSmallRect		smallRect = RECT around	Trash icon.
	
	
		lda	<curWind
		cmp	<deskPort
		bne	collapseIntoWind
		ldx	<curWind+2
		cpx	<deskPort+2
		bne	collapseIntoWind
		
		tdc
		clc
		adc	#deskic
		sta	<windBlk
		stz	<windBlk+2
 		bra	collapseOnDesktop
	
collapseIntoWind
		pha
		pha
		pushZLong <curWind
		_GetWRefCon
		pla
		sta	<windBlk
		pla
		sta	<windBlk+2
	
collapseOnDesktop
		ldy	#windView
		lda	[<windBlk],y
		cmp	#viewBySmallIcon
		beq	@viewBySmallIcon
		cmp	#viewByIcon
		bne	@viewByName
		brl	@viewByIcon
	
@viewByName	ldy	#icTextY
		lda	[<ic],y
		clc
		adc	<yoffset
		sta	smallRect+y2
		sec
		sbc	#TITLE_H		;subtract the height of our text (most of the time,
		sta	smallRect+y1		;this is also the height of our icon, and since we're
						;zooming back to the beginning of our text, we'll
						;come close, which is better than exists now)
						
		lda	#textLeft*2		;text's normal left position
		clc
		adc	<xoffset
		sec
		sbc	#2
		sta	smallRect+x2		;this is a rough approximation of the small icon's
		sec				;position on the screen
		sbc	#16
		sta	smallRect+x1		;ok, it's an ugly way to do it, but getIconRect
		brl	viewByAnythingElse	;doesn't work from here, so sue me -- andy 12/22/90
	
@viewBySmallIcon
		lda	#1
		jsr	GetIconPtr

*** Scrunched - 21-Mar-93 JCM

;;;		ldy	#4
;;;		lda	[<icBlkHand],y
;;;		and	#$3FFF
;;;		sta	[<icBlkHand],y
		
		jsr	UnlockICBLKHAND
		
*** End - 21-Mar-93 JCM

		ldy	#icx			;get small icon's x coordinates
		lda	[<ic],y
		clc
		adc	<xoffset
		adc	#2
		sta	smallRect+x2
		ldy	#imWidth
		sec
		sbc	[<icon],y
		sta	smallRect+x1

		ldy	#icy			;get small icon's y coordinates
		lda	[<ic],y
		clc
		adc	<yoffset
		sta	smallRect+y2
		ldy	#imHeight
		sec
		sbc	[<icon],y
		sta	smallRect+y1
		bra	viewByAnythingElse	

@viewbyIcon	
		
		lda	<zero
		jsr	GetIconPtr
		
*** Scrunched - 21-Mar-93 JCM

;;;		ldy	#4
;;;		lda	[<icBlkHand],y
;;;		and	#$3FFF
;;;		sta	[<icBlkHand],y
		
		jsr	UnlockICBLKHAND
		
*** End - 21-Mar-93 JCM
		
		ldy	#icy			;icY
		lda	[<ic],y
		clc
		adc	<yoffset		;Make global.
		sta	smallRect+y2		;icY -is- y1

		sec
		ldy	#imHeight
		sbc	[<icon],y		;add the height to get y2
		sta	smallRect+y1
		
		ldy	#icx
		lda	[<ic],y			;icX
		clc
		adc	<xoffset		;Make global
		sec
		ldy	#imWidth		;subtract the width, which is actually half the
		sbc	[<icon],y		;width (how convenient)
		sta	smallRect+x1
		
		clc
		adc	[<icon],y		;width of icon
		clc
		adc	[<icon],y		;add twice because it lies about the width
		sta	smallRect+x2		;or, says the width in 320 mode pixels
	
viewByAnythingElse
		pulllong <curWind
		pulllong <windBlk
		rts
		
;=====================================================
;	   Check if a window can be created.
;900==================================================

		EXPORT	ckIfWind
ckIfWind		

		IMPORT	doAlertWindow
		IMPORT	AbortFind
		IMPORT	OOMDump

; --- Check if there are already the max number	of open	windows	----------

		lda	#rasMaxWindows		No more	windows	can be opened.

		ldx	myWindCount		How many windows are open now?
		cpx	#WOpenMaximum
		bcs	abort900


; --- Check if there is	enough memory to open a	window -------------------

		jsr	ckMemory		a + x =	real free memory.
		bne	ok900
		cmp	#WOpenThreshhold	Is there enough	memory to open a window?
		bcs	ok900
; JAM (5/16/89)  48K is a lot of memory to require for opening a window, fellas!
;  Dan Oliver says that 32K was original threshhold that QuickDraw needed to keep going,
;  plus 16K for slop.  Steve Glass says this number has been reduced at least once
;  before.  It may not be wise to reduce it further at this time.  LetÕs pin this down.

		pha				; hiword for result
		pha				; loword for result
		phx				; size of segment is result of ckMemory
		pha				; lo-word of segment size
		pei <MyID		
		lda <zero
		pha				; don't care about attributes
		pha
		pha				; don't care about address
		_NewHandle
		ply				; make the stack safe for democracy
		plx
		bcs @AllocFailed
		phx				; put the handle back on the stack
		phy
		jsl DisposeHandleGlue			; allocation successful

@AllocFailed					; In any case, see if we shook loose any more RAM.
		jsr	ckMemory		a + x =	real free memory.
		bne	ok900
		cmp	#WOpenThreshhold	Is there NOW enough memory to open a window?
		bcs	ok900
		
; If we are here, we couldn't cajole enough memory out of the system.  Bummericus Maximus

		stz	modifiers		;make sure the desktop doesn't auto-close
						;a window if they were tunneling

		jsl	OOMDump			;just in case, so we can display this alert
		bcc	DeepMemoryErr

		lda	#rasMemErr		;Nope
abort900	jsl	doAlertWindow
		inc	AbortFind
		sec				;Abort opens.
		rts

ok900		clc
		rts

;=====================================================
;	   Check if a window can be created.
;=====================================================

		EXPORT	ckIfWindMax
ckIfWindMax		

		IMPORT	doAlertWindow
		IMPORT	AbortFind
		IMPORT	OOMDumped
		IMPORT	MemoryFull
		IMPORT	OOMDeepHandle
		IMPORT	TextAlert
		
;
; --- Check if there are already the max number	of open	windows	----------
;
		ldx	myWindCount		How many windows are open now?
		cpx	#WOpenMaximum
		bcc	@checkMem

		lda	#rasMaxWindows		No more	windows	can be opened.
		jsl	doAlertWindow
		
		stz	modifiers		;make sure the desktop doesn't auto-close
						;a window if they were tunneling

		inc	AbortFind
		sec				;Abort opens.
		rts

;
; Check out if we have enough memory to open the window
;
@checkMem	lda	>OOMDumped		;did the OOM queue dump yet?
		beq	ok900			;if not, everything probably will be OK later
		
		lda	>OOMDeepHandle+1
		beq	DeepMemoryErr
		
		pha
		pha
		_RealFreeMem
		pla
		plx				;if we have at least 1 bank, chance it and keep
		bne	ok900			;going...
		
		cmp	#32*1024		;if we have at least 32k free, chance it and hope that
		bge	ok900			;we use the OOMDeepHandle later to inform the user
		
		jsl	OOMDump			;see if we can get rid of either handle
		bcc	DeepMemoryErr		;if not, they get the text screen to avoid crashing

		stz	modifiers		;make sure the desktop doesn't auto-close
						;a window if they were tunneling
		
		lda	#rasMemErr		;tell the user they're toast.
		jsl	doAlertwindow
		
		inc	AbortFind
		sec
		rts
		
DeepMemoryErr	lda	#$FFFF
		ldx	#MemoryFull
		ldy	#MemoryFull>>16
		jsl	TextAlert

		stz	modifiers		;make sure the desktop doesn't auto-close
						;a window if they were tunneling

		inc	AbortFind
		sec
		rts
		ENDP

;================================
;	   Close window.
;================================
;
;   IN:	   TaskData = window to	close.
;
;  OUT:	   C1_PathName = trash.
;	   C1_TempPath = trash.
;
;================================

doClose		PROCNAME EXPORT

		jsl	WatchCursor
		jsr	noRename		Remove any rename field.

store1		jsr	doClose2
		jsl	arrowCursor
		rts


; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = =
;	   Close the window in TaskData.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = =

;   IN:	   TaskData = pointer to window	to close.

; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = =
		EXPORT	doClose2
		IMPORT	finderVersionHandle
		IMPORT	systemVersionHandle
		IMPORT	zoomRefresh
		IMPORT	closeAny
		IMPORT	create_access
		IMPORT	selectionIsChanging
		IMPORT	drawIconState
			
doClose2

;		
; --- Get the ID of the	closing	window ------------------------------
;
		lda	<TaskData		;Get pointer of window to close.
		ldx	<TaskData+2
		jsr	getWindID		;ID the window being closed.
						;wind = TaskData (window being closed).
						;windBlk = pointer to window's info block.
						;a = window's ID. (carry set if bogus, a=0)
		
		bcc	@goodWindow		;who knows, maybe we're trying to close the
		rts				;desktop (would be bad)
		
@goodWindow	sta	IDflag			;Remember window's ID.

;
; Get the icon that opened into the window
;
		ldy	#windIc			;Get the handle of the ICONOBJ
		lda	[<windBlk],y		;that opened into the window or NIL if it's not a
		sta	<icHand			;directory window
		iny
		iny
		lda	[<windBlk],y
		sta	<icHand+2

;
; dispatch to close routine for each type of window
;

		lda	IDflag
		
		ldx	<zero
@loop		cmp	@table,x
		beq	@dispatch
		inx
		inx
		cpx	#9*2
		blt	@loop
		jmp	closeWind
		
@dispatch	jmp	(@vectors,x)

@table		dc.w	NoWindID
		dc.w	SysWindID
		dc.w	DirWindID
		dc.w	TrashWindID
		dc.w	ClipWindID
		dc.w	InfoWindID
		dc.w	VerifyWindID
		dc.w	AboutWindID
		dc.w	HelpWindID
		
@vectors	dc.w	closeWind	;Window ID error
		dc.w	closeSys	;Close a system window
		dc.w	closeDir	;Close a directory window
		dc.w	closeTrash	;Close the Trash window (just hide)
		dc.w	closeClip	;Close the clip board window (hide)
		dc.w	closeInfo	;Close an 'Get Info' window
		dc.w	closeVerify	;Close a 'Verify' or 'Validate' window
		dc.w	closeAbout	;Close the about box
		dc.w	closeHelp	;Close the help window
		
;=========================================
;	   Close a system window.
;=========================================
;
;   IN:	   TaskData = window to	close.
;
;  OUT:
;
;=========================================
closeSys
		pei	<TaskData+2		Pointer	of window to close.
		pei	<TaskData
		_CloseNDAbyWinPtr		Close desk accessory window.
		rts


;============================================
;	   Close a directory window.
;BLOCK 700 ==================================

;   IN:	   TaskData = window to	close.
;	   wind	= window to close.
;	   windBlk = pointer to	window's info block.
;	   icHand = handle of icon that	opened into window (or disk icon).

;  OUT:
;============================================

closeDir	name
		IMPORT	matchedFirst
		IMPORT	matchedSecond
		IMPORT	matchFirst
		IMPORT	matchSecond
		IMPORT	walkWindow
		IMPORT	WhichWindow

		dec	myWindCount		Decrement my window counter.

; --- Mark the icon that opened	into this window as closed -------------------

		jsr	lockic			;ic = (icHand)		
		jsr	collapse		Collapse window	into mother icon, icon gets unlocked
		jsr	afterCollapse

; --- Every icon in the	closing	window that is opened will --------------
; --- have to be linked	back to	the mother disk	icon --------------------

		jsr	getWindPath		C1_pathname = window's pathname (use later).
		
		ldy	#windDiskIc		;icHand = disk icon to which this window belongs
		lda	[<windBlk],y
		sta	<icHand
		iny
		iny
		lda	[<windBlk],y
		sta	<icHand+2
		
		lda	[<icHand]		;deref the root device icon
		sta	<work
		ldy	#2
		lda	[<icHand],y
		sta	<work+2
				
		ldy	#icFlag			;see if it's write protected
		lda	[<work],y
		and	#icLocked		;if so, we'll skip trying to write
		sta	saveFinderData		;finder data

		lda	#icFlag			;also don't save finder data if it's offline
		lda	[<work],y
		and	#icOffline
		ora	saveFinderData
		sta	saveFinderData
		
		ldy	#icDevInfo
		lda	[<work],y		;look at the 'write allowed' bit
		and	#$0040
		eor	#$0040
		ora	saveFinderData		;include it with the write protected stuff
		sta	saveFinderData
		
		lda	<icHand			Pass handle of icon that open windows
		sta	<work			should be linked back to.
		lda	<icHand+2
		sta	<work+2

		lda	#linkBack
		jsr	walkOfLife3

		lda	<TaskData		;Get the window's information block.
		ldx	<TaskData+2
		jsr	getwRefCon2

		jsr	removeMenuItem		;take the window out of the windows menu
		
;
; Allocate a Finder.DATA buffer
;
		stz	write_len		Flag - 'write to position file'.

		jsr	ckDataWrite		Should data files be saved?
		bne	dontWrite
		
		lda	saveFinderData
		bne	dontWrite

		ldy	#windItems		;if there 500 items or more, don't write finder.data
		lda	[<windBlk],y
		cmp	#500
		bge	dontWrite
		
		pha
		pha
		ldy	#windItems
		lda	[<windBlk],y
		pha
		pea	iconPOSsize
		_Multiply
		pla
		plx
		bne	dontWrite		;if we need more than a bank (~>1000 icons)
		
		clc
		adc	#FDataSize		;allocate a buffer for this many items
		ldx	#$4000			;Allocated the buffer as locked.
		jsr	allocate2		;Allocate a buffer.
		sta	<posFile		;Save handle.
		stx	<posFile+2
		bcc	ok700			;Able to allocate buffer?

dontWrite	inc	write_len		;Flag - "don't write to position file".
		brl	enter700		;Skip storage to FINDER.DATA buffer.


;
; --- Build the	FINDER.DATA buffer ---------------------------------------
;
ok700		jsr	derefHand		temp = (posFile).


;
; FINDER.DATA version number
;
		lda	#FinderVer		Store ID number.
		sta	[<temp]
		
;
; FINDER.DATA position and size of window
;
		pha
		pha
		pushZLong <taskData
		_GetContentRgn
		pulllong <deref
		
		lda	[<deref]	;deref rgn handle
		tax
		ldy	#2
		lda	[<deref],y
		sta	<deref+2
		stx	<deref
		
		ldy	#x2+2		;no, don't fix this, it's not supposed to copy the first
@loop		lda	[<deref],y	;two bytes of the structure since the bounding rect of
		sta	[<temp],y	;the struct region is at offset +2
		dey			;andy and DAL, 1/7/91
		dey
		bne	@loop
		
		pha
		pha
		pei	<taskData+2		;get the zoom rectangle
		pei	<taskData
		_GetZoomRect
		pulllong <deref
		
		ldy	#6
		ldx	#FDataZoomRect+6
@zrLoop		lda	[<deref],y
		phy
		txy
		sta	[<temp],y
		ply
		dex
		dex
		dey
		dey
		bpl	@zrLoop

;
; FINDER.DATA window's origin
;
		pha				;Get the window's origin.
		pha
		pei	<TaskData+2
		pei	<TaskData
		_GetContentOrigin
		ldy	#FDataYOrigin		;Save window's origin.
		pla
		sta	[<temp],y
		pla
		iny
		iny
		sta	[<temp],y

		ldy	#windView		Save window's view.
		lda	[<windBlk],y
		ldy	#FDataView
		sta	[<temp],y

;
; see if they were looking at a list view with the double height info bar
;
		lda	prefer			;save the existing preferences
		ldy	#FDataInfoBar
		sta	[<temp],y

		ldy	#windItems		;save the number of items
		lda	[<windBlk],y
		ldy	#FDataItems
		sta	[<temp],y
		
		ldx	#6			;zero out the reserved spaces
		ldy	#FDataReserved2+2
		lda	<zero
@rLoop		sta	[<temp],y
		dey
		dey
		dex
		dex
		bpl	@rLoop	
		
		ldy	#FDataStartAt
		lda	#FDataSize
		sta	[<temp],y
		
; ------ Store the names and positions of all the icons	in the window -------
; ------ Also, free every ICONOBJ in the window	-----------------------------

enter700	lda	<temp
		clc
		adc	#FDataSize
		sta	<work
		lda	<temp+2
		adc	<zero
		sta	<work+2
		
		jsr	FreeAllIcons

; ------ Store the names and positions of all the icons	-------------------
; ------ on the	desktop	that belong to the window  ------------------------

		lda	write_len		Should I store to FINDER.DATA buffer?
		bne	freeWind

;
; Save position file to disk
;
		jsr	addDataName
		bcs	error700		Pathname error?

		lda	<temp			Pass address of	buffer to write.
		sta	write_buff
		lda	<temp+2
		sta	write_buff+2

		lda	<work
		sec
		sbc	<temp
		sta	write_len
		lda	<work+2
		sbc	<temp+2
		sta	write_len+2
		
		lda	write_len		;set the total length without the header
		sec
		sbc	#FDataSize		;FDataSize is the size of the header
		ldy	#FDataRecSize
		sta	[<temp],y
		lda	write_len+2
		sbc	<zero
		ldy	#FDataRecSize+2
		sta	[<temp],y		
		
		lda	write_len+2
		pha				Buffer's new size.
		lda	write_len
		pha
		pei	<posFile+2		Free posFile.
		pei	<posFile
		_SetHandleSize			Shrink buffer size. (ok on locked block)

		lda	#DATAFTYPE		Set create file	type to	Finder data file.
		sta	file_type		Just in	case data file is created.

		lda	#$0004			; set invisible bit (DJB - 12/17/88)
		tsb	create_access
		
		inc	NoDOSerr		Don't handle DOS errors.
		jsr	doWrite
		dec	NoDOSerr

		lda	#$0004			; clear invisible bit (DJB - 12/17/88)
		trb	create_access

error700	pei	<posFile+2		Free posFile.
		pei	<posFile
		jsl DisposeHandleGlue



freeWind	jsr	freeInfoBlk		Free window's info block.

;    (((((( Fall through to CloseWind ))))))


; = = =	= = = =	= = = =	= = = =	= =
;	   Window ID error.
; = = =	= = = =	= = = =	= = = =	= =
;
;   IN:	   TaskData = window to	close.
;
;  OUT:	   Window closed.
;
; = = =	= = = =	= = = =	= = = =	= =

		IMPORT	CloseThisWindow		;in Util.aii - 27-Jan-93 JCM

closeWind

		lda	quit_flags
		beq	@normal

		pha
		pei	<TaskData+2		Pass the window	pointer.
		pei	<TaskData
		_GetWFrame
		pla
		
		and	#Å(F_VIS)		; make it invisible
		
		pha
		pei	<TaskData+2		Pass the window	pointer.
		pei	<TaskData
		_SetWFrame			; fake a close window
		
@normal		ldx	<TaskData+2		Pass the window	pointer.
		lda	<TaskData
		jsl	CloseThisWindow

		rts

;
; Free all the icons allocated to our window, <windBlk
;
		EXPORT	FreeAllIcons
FreeAllIcons	jsr	getHeadIcon
		sta	<icHand
		stx	<icHand+2
		bra	enter701

lop701		jsr	lockic

		lda	write_len		Should I store to FINDER.DATA buffer?
		bne	skip701

		jsr	storePos

skip701		pei	<icHand+2		Pass handle to be freed.
		pei	<icHand

		jsr	killInfoWind		Close icon's info window, if any.

		ldy	#icNext+2
		lda	[<ic],y
		sta	<icHand+2
		dey
		dey
		lda	[<ic],y
		sta	<icHand			;Store handle of next ICONOBJ.

		jsl DisposeHandleGlue		;Free ICONOBJ.

enter701	lda	<icHand+1		;Any more in list?
		bne	lop701
		rts
		
;
; locals
;
menuItem2Remove	dc.w	0			;menu item we're removing right now
saveFinderData	dc.w	0

; hideWind
;
;     in: taskdata = window to hide
;
;    out:  window hidden
;.....................................................................

hideWind
		pei	<taskData+2
		pei	<taskData
		_HideWindow
		rts

; close the about box
;.....................................................................

closeAbout	
		IMPORT	aboutWindowPtr
		IMPORT	aboutWindow
		IMPORT	CloseThisWindow		;in Util.aii - 27-Jan-93 JCM

		jsr	setSmallRect
		
		pha
		pha
		pushZLong <taskData
		_GetStructRgn
		phd
		tsc
		tcd
		
		lda	[3]		;deref the handle to the region
		tax
		ldy	#2
		lda	[3],y
		sta	3+2
		stx	3

		ldy	#6+2		;no, don't fix this, it's not supposed to copy the first
@loop		lda	[3],y		;two bytes of the structure since the bounding rect of
		sta	bigRect-2,y	;the struct region is at offset +2
		dey			;andy and DAL, 1/7/91
		dey
		bne	@loop
		
		pld
		pla
		pla

		lda	#1		;only draw desktop
		sta	zoomRefresh
		
		jsr	hideWind
		
		lda	<zero		;collapse the zoom rect
		jsr	ZoomRect

		lda	#2		;only draw icons
		sta	zoomRefresh
		pushlong #bigRect
		_RefreshDesktop

		pushlong finderVersionHandle
		jsl DisposeHandleGlue
		
		pushlong systemVersionHandle
		jsl DisposeHandleGlue

		lda	<TaskData	;Get the window's information block.
		ldx	<TaskData+2
		jsr	getwRefCon2

		jsr	removeMenuItem	;take the about box out of the window menu

		lda	<taskData
		ldx	<taskData+2
		jsl	CloseThisWindow
		
		pha			;unload the dynamic segment for the About
		pha			;box (mark it as purgable) -- to be nice to
		pha			;DAL -- andy 1/9/91
		pushlong #aboutWindow
		_UnloadSeg
		pla			;memID
		pla			;file#
		pla			;seg #

		stz	aboutWindowPtr	;zero out aboutWindowPtr just in case
		stz	aboutWindowPtr+2
		rts		

; close the help window
;.....................................................................

closeHelp
		IMPORT	helpWindowPtr
		IMPORT	helpWindow
		IMPORT	CloseThisWindow		;in Util.aii - 27-Jan-93 JCM

		jsr	setSmallRect
		
		pha
		pha
		pushZLong <taskData
		_GetStructRgn
		phd
		tsc
		tcd
		
		lda	[3]		;deref the handle to the region
		tax
		ldy	#2
		lda	[3],y
		sta	3+2
		stx	3

		ldy	#6+2		;no, don't fix this, it's not supposed to copy the first
@loop		lda	[3],y		;two bytes of the structure since the bounding rect of
		sta	bigRect-2,y	;the struct region is at offset +2
		dey			;andy and DAL, 1/7/91
		dey
		bne	@loop
		
		pld
		pla
		pla

		lda	#1		;only draw desktop
		sta	zoomRefresh
		
		jsr	hideWind
		
		lda	<zero		;collapse the zoom rect
		jsr	ZoomRect

		lda	#2		;only draw icons
		sta	zoomRefresh
		pushlong #bigRect
		_RefreshDesktop

		lda	<TaskData	;Get the window's information block.
		ldx	<TaskData+2
		jsr	getwRefCon2

		jsr	removeMenuItem	;take the about box out of the window menu

		lda	<taskData
		ldx	<taskData+2
		jsl	CloseThisWindow
		
		pha			;unload the dynamic segment for the About
		pha			;box (mark it as purgable)
		pha				
		pushlong #helpWindow
		_UnloadSeg
		pla			;memID
		pla			;file#
		pla			;seg #
		
		stz	helpWindowPtr	;zero out aboutWindowPtr just in case
		stz	helpWindowPtr+2
		rts		

; remove the title of one of the info windows
;.....................................................................

		EXPORT	removeMenuInfoItem
removeMenuInfoItem
		phb
		phk
		plb

		pei	<windBlk+2
		pei	<windBlk
		
		stx	<windBlk
		sty	<windBlk+2
		jsr	removeMenuItem
		
		pla
		sta	<windBlk
		pla
		sta	<windBlk+2
		plb
		rtl

;
; now that we know where the window's info block is, get rid of the menu item ID for this window.  If it gets
; all the way down to $f-zero, then re-attach the "No Windows Open" resource to the window
;
		IMPORT	lastOnTop

		EXPORT	removeMenuItem
removeMenuItem	name
		pei	<windBlk
		pei	<windBlk+2

		ldy	#windMenuItem
		lda	[<windBlk],y
		sta	menuItem2Remove
		
		pha				;if there's currently a checkmark
		pha				;beside the little dude, then we need to
		_GetMItemMark			;force an update next time we get back to the
		pla				;main loop
		beq	@notChecked
		stz	lastOnTop
@notChecked
		
		lda	menuItem2Remove
		pha
		_DeleteMItem
		
		stz	matchedFirst
		lda	#DirWindID+InfoWindID+TrashWindID+ClipWindID+VerifyWindID+AboutWindID+HelpWindID
		ldx	#matchFirst		;don't check for anything, match the first open window
		jsr	walkWindow

		lda	matchedFirst
		bne	@doneMenu
		
		pea	2			;refIsResource
		pushlong #resNoWindowsOpen	;resource ID
		pea	$ffff			;add onto the end
		pea	idWindowsMenu
		_InsertMItem2
		
@doneMenu	lda <zero			;fix the windows menu's size since we lost a menu item
		pha
		pha
		pea	idWindowsMenu
		_CalcMenuSize

		pla
		sta	<windBlk+2
		pla
		sta	<windBlk
		rts	

; = = =	= = = =	= = = =	= = = =	= = = =	= = = =
;	   Close icon's info window.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =
;
;   IN:	   ic =	pointer	to icon.
;
;  OUT:	   if ic has info window, the window will be closed.
;
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =
		EXPORT	killINfoWind
killInfoWind			

		ldy	#icInfo+1
		lda	[<ic],y
		beq	exit700

		pei	<TaskData+2		Save.
		pei	<TaskData
		pei	<windBlk+2
		pei	<windBlk

		
; 2/26/90 rdl fix BRC#53087 / DTS 89.0398  &  BRC#60184 / MSF131FND
; highest byte of TaskData was nonzero, causing crash when emptying trash if an iconÕs
;   Info wdw was open
		stz	<TaskData+2
; end of 2/26/90 rdl fix
		sta	<TaskData+1		Pass pointer to	info window to close.
		dey
		lda	[<ic],y
		sta	<TaskData

		ldx	<TaskData+2		Get window's info block pointer.
		jsr	getwRefCon2
		
		dec	myWindCount		; JAM 7/14/88, to fix bug 25373
		
		jsr	hideWind		;hide the window, THEN free the info block
		jsr	removeMenuItem
		jsr	freeWind		;finally, free the info block for this window 

		pla				;Restore.
		sta	<windBlk
		pla
		sta	<windBlk+2
		pla
		sta	<TaskData
		pla
		sta	<TaskData+2
exit700		rts


;===============================================
;	   Close an 'Get Info' window.
;BLOCK 300 =====================================

;   IN:	   TaskData = window to	close.
;	   wind	= window to close.
;	   windBlk = pointer to	window's info block.
;	   icHand = handle of icon that	opened into window (or disk icon).

;  OUT:	   Window closed.
;	   Info	block freed.

;===============================================

closeInfo
		IMPORT	writeComment
		IMPORT	doAlertWindow
		IMPORT	pathGetRoot
		IMPORT	c1_source

		dec	myWindCount		Decrement my window counter.

		jsr	lockic			ic = (icHand)

;
; first, see if the icon came from the network and if it's already extended, and if it's
; already extended, if it has only a >GS< resource fork... if all of that is true, and we
; have some text to write back, then we'll ask about extending the file
;
; we ought to have a routine in here which can walk back to the disk icon to check if it's
; locked...
;

		ldy	#icFlag			;is it locked?
		lda	[<ic],y	
		and	#icLocked
		beq	@notLocked
		brl	@done			;if so, forget about writing anything

@notLocked	ldy	#windDirty
		lda	[<windBlk],y
;;;		and	#$7fff			;mask off the 'GS fork' bit
		asl a
		lsr a
		cmp	#5			;is it some kind of extended file?
		bne	@noFork			;nope, then we might have to ask them if they
		brl	@hasFork		;want it extended...

@noFork		ldy	#icFlag+2		;check if the icon's on the network
		lda	[<ic],y
		and	#icNetWork>>16
		bne	@goNetwork		
@goExit		brl	@done			;if it's not on the network, don't write squat
						;because it doesn't have a fork or a prayer to
						;get written as a comment

@goNetwork	ldy	#windAccess
		lda	[<windBlk],y
		and	#icInfoMakeChanges>>16	;make changes in order to ask them to extend it
		beq	@goExit			;exit if we can't make changes

;
; now, for a slight diversion -- if it's a SYS file on the network (ie, how we got here),
; and it's also a SYS file, then skip this step and only write the network comment
;
		ldy	#icFType		;if it's a SYS file, never ask if they want
		lda	[<ic],y			;a resource fork added
		cmp	#$00bd
		beq	@goHasFork
		cmp	#$00f9
		beq	@goHasFork
		cmp	#$00ff
		bne	@notSYSfile
@goHasFork	brl	@hasFork
@notSYSfile

		lda	[<ic],y			;if it's any kind of volume, don't ask
		bpl	@notVolume
		brl	@hasFork
@notVolume

		cmp	#$000f			;if it's a folder, don't ask...
		bne	@notFolder
		brl	@hasFork
@notFolder

		pha				; space for handle
		pha
		PushZLong <taskData
		pushlong #idCommentFld
		_GetCtlHandleFromID		;handle to TE record
		pla
		sta	<deref
		sta	teHandle
		pla
		sta	<deref+2
		sta	teHandle+2
		
		lda	[<deref]
		tax
		ldy	#2
		lda	[<deref],y
		sta	<deref+2
		stx	<deref
		
		ldy	#$16
		lda	[<deref],y
		cmp	#$8500			;textedit ctrlProc
		bne	@goExit
		dey
		dey
		lda	[<deref],y
		beq	@gotComment
		brl	@done

@gotComment	ldy	#$10			;check the textEdit dirty flag
		lda	[<deref],y
		and	#$0040
		beq	@goExit			;if it's not dirty, they didn't touch it
		
;
; If we don't already have a comment, would they like to add one?  If so, extend the
; file for them and write a new resource map out... if not, just save to the
; network database
;
; and, for a slight diversion, if there aren't any characters in the te control, then
; we're not going to ask them about extending it (kind of stupid to add a null comment)
;
		
		pushlong #teChars
		pea	1			;return 1 field
		pushlong teHandle
		_TEGetTextInfo

		lda	teChars
		ora	teChars+2
		beq	@hasFork

		lda	#rasServerComment	;do they really want to add the comment?
		jsl	doAlertWindow
		beq	@hasFork

@addResourceAgain
		pha				
		pha				;auxtype
		pha				;filetype
		pha				;access
		lda	#InfoBlock.windText.path ;fill in the path information for both
		clc				;calls
		adc	<windBlk
		tax
		lda	<windBlk+2
		adc	<zero
		pha
		phx
		_CreateResourceFile
		bcs	@badCreate
		
		ldy	#windDirty
		lda	#$8005
		sta	[<windBlk],y
		
		ldy	#icForked		;say that the icon is now extended
		lda	[<ic],y
		ora	#$8000
		sta	[<ic],y
		bra	@hasFork
		
;
; bad create -- we weren't able to finish creating the resource fork and map, so something
; is very wrong... they could be doing all sorts of evil things with the disk right now
;
@badCreate	cmp	#$46
		beq	@lostTheDisk
		
@lostTheDisk	pushlong #C1_Source
		lda	#InfoBlock.windText.path
		clc
		adc	<windBlk
		tax
		lda	<windBlk+2
		adc	<zero
		pha
		phx
		jsl	PathGetRoot		
		
		lda	>C1_Source
		and	#$00ff
		dec	a
		xba	
		sta	>C1_Source+1
		
		lda	#rasInsertDiskOrCancel8
		jsl	doAlertWindow
		beq	@done
		bra	@addResourceAgain	; nope ... try again to keep them honest
		
@hasFork	pushZLong <taskData
		pushZLong <windBlk
		pushZLong <ic
		jsl	writeComment
		
@done		ldy	#icInfo+1		Mark icon as not having	a Get Info window.
		lda	<zero
		sta	[<ic],y

		jsr	collapse		;Collapse window into mother icon while also hiding it

;
; last I looked, windBlk was still ok here
;
		pha				;get the control handle of the info window's
		pha				;icon button
		pushZLong <wind
		pushlong #$8029			;idIconButton
		_GetCtlHandleFromID
		pulllong <deref
		
		lda	[<deref]		;deref the icon button's handle
		tax
		ldy	#2
		lda	[<deref],y
		sta	<deref+2
		stx	<deref
		
		ldy	#$40+2			;from the icon button control record, dispose the
		lda	[<deref],y		;reference to the icon handle
		pha
		dey
		dey
		lda	[<deref],y
		pha
		jsl DisposeHandleGlue
		
		jsr	removeMenuItem		;get rid of the menu item for this
		brl	freeWind		Free info block, close window.

;
; local locals
;
teChars		dc.L	0			;# of chars in textedit control
teHandle	dc.L	0			;text edit handle

;===============================================
; Close a 'Verify' or 'Validate' window.    
;===============================================
;
;   IN:	   TaskData = window to	close.
;	   wind	= window to close.
;	   windBlk = pointer to	window's info block.
;	   icHand = handle of disk icon.
;
;  OUT:	   Window closed.
;	   Info	block freed.
;
;===============================================

		EXPORT	closeVerify
closeVerify	
		dec	myWindCount		;Decrement my window counter.
		
		jsr	hideWind
		jsr	removeMenuItem
		
		ldy	#windUsed+2
		lda	[<windBlk],y
		pha
		dey
		dey
		lda	[<windBlk],y
		pha
		jsl DisposeHandleGlue
		
		jmp	freeWind
		
		EXPORT	VerifyClose
VerifyClose	lda	<wind			;Get pointer of window to close.
		sta	<TaskData
		ldx	<wind+2
		stx	<TaskData+2
		jsr	getWindID		;ID the window being closed.
		jsr	closeVerify
		
		clc
		rts


;=======================================================
;	   Close the clip board	window (hide).
;=======================================================
;
;   IN:	   TaskData = window to	close.
;
;=======================================================
closeClip
		jsr	setSmallRect		;smallRect = point in upper left corner
					 	;of screen.
		jsr	collapse2
		jmp	removeMenuItem

;========================================================
;	   Close the Trash window (just	hide).
;BLOCK 600 ==============================================
;
;   IN:	   TaskData = window to	close.
;	   wind	= window to close.
;	   windBlk = pointer to	window's info block.
;	   icHand = handle of Trash icon.
;
;  OUT:
;
;========================================================
closeTrash
		jsr	lockic
		
		jsr	collapse
		jsr	afterCollapse		
		brl	removeMenuItem

; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =
;	   Zoom	window down to owner icon.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =
;
;   IN:	   TaskData = window to	collapse.
;	   wind	= window to close.
;	   windBlk = pointer to	window's info block.
;	   icHand = handle of icon that	opened into window (or disk icon).
;
;  OUT:	   Zoom	Rect called.
;	   Window hidden.
;
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =
		IMPORT	zoomRefresh
collapse	name
		
		jsr	getSmallRect
		jsr	unlockic		Leave opened icon unlocked.

; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =
;	   Zoom	window down to smallRect.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =
;
;   IN:	   smallRect = destination for zoom.
;	   TaskData = window to	collapse.
;	   wind	= window to collapse.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =

collapse2	
		IMPORT	GetRectRgn
		IMPORT	FreeRectRgn
		IMPORT	AddIconRgn
		IMPORT	StartDraw
		IMPORT	EndDraw
		IMPORT	pushzpage
		IMPORT	GetIconRect
		IMPORT	GetOnlyRectRgn
		IMPORT	DrawDeskIcon
		IMPORT	ToDesktop

		jsr	getBigRect2		;Get window's RECT for zoomRect.

		lda	quit_flags
		beq	@doCollapse
		brl	@skipIt			;don't collapse if we're shutting down
@doCollapse

		pha				;see if we are closing the front window
		pha
		_FrontWindow			;but leave the parms on the stack

		lda	1,s
		tax
		lda	3,s
		cmp	<taskData+2		;_RefreshDesktop
		bne	@notInFront
		cpx	<taskData
		bne	@notInFront
		
		lda	#1			;just erase to background
		sta	zoomRefresh
@notInFront	jsr	hideWind		;window's ptr

		lda	<icHand+1
		beq	@dontDraw
		
		jsr	lockic
		jsr	drawIconState		
		jsr	unlockic
@dontDraw

		lda	<zero			;Go down direction.
		jsr	zoomrect

		pla				;then check to see if the frontwindow was
		plx				;chosen -- if not, then don't do a special
		cmp	<taskData		;_RefreshDesktop
		bne	@skipIt
		cpx	<taskData+2
		bne	@skipIt

		pushZLong <curWind
		pushZLong <wind
		pushZLong <windBlk
		pushZLong <rectRgn
		
		jsr	toDesktop		; switch to desktop 
		jsr	toDeskPort		; switch to desktop port
		
		jsr	GetOnlyRectRgn
		
		pushZlong <rectRgn
		pushlong #bigRect
		_RectRgn
		
		lda	#2			;only draw icons
		sta	zoomRefresh

		jsr	DrawDeskIcon

		pushZLong <rectRgn
		_DisposeRgn
		
		pulllong <rectRgn
		pulllong <windBlk
		pulllong <wind
		pulllong <curWind
@skipIt		rts


; afterCollapse
;
; check to see if the icon needs to be redrawn a specific way (closed, highlighted, etc)
;.....................................................................

afterCollapse	
		IMPORT	IconCount
		IMPORT	findSelect
		IMPORT	findFirstIcon
		
		pei <zero			;don't redraw anything at all

		jsr	lockic

		ldy	#icWind			;Did the icon really come from
		lda	[<ic],y			;the closing window?
		cmp	<TaskData
		bne	@notClosing
		iny
		lda	[<ic],y
		cmp	<TaskData+1
		bne	@notClosing

		lda	<zero			;Clear icon's open window field.
		sta	[<ic],y
		dey
		sta	[<ic],y

		ldy	#icFlag			;say that the window isn't opened from this icon
		lda	[<ic],y			;any more
		and	#_icOpened
		sta	[<ic],y

		lda	#$FFFF			;say this must be redrawn
		sta	1,s

@notClosing

;;; Removed 3-Mar-93 DAL -- always select the icon we're closing into
;		lda	<curWind		;if we're closing the current window for selected icons,
;		cmp	<TaskData		;then we can safely highlight the icon which we're zooming
;		bne	@notClosingCurrent	;down to, and set the window which that icon is in to
;		lda	<curWind+2		;be curWind
;		cmp	<TaskData+2
;		beq	@closingCurrent
;
;@notClosingCurrent
;		stz	iconCount
;		
;		pushZLong <windBlk
;		pushZLong <wind
;		pushZLong <icHand
;		pushZLong <ic
;
;		lda	#findFirstIcon
;		jsr	findSelect
;		
;		pulllong <ic
;		pulllong <icHand
;		pulllong <wind
;		pulllong <windBlk
;		
;		lda	iconCount
;		bne	@currentHasIcons
;
;@closingCurrent

*** added 3-Mar-93 DAL
		pushzlong <wind
		pushzlong <windBlk
		pushzlong <ic
		pushzlong <icHand
		jsr	deselectAll
		pulllong <icHand
		pulllong <ic
		pulllong <windBlk
		pulllong <wind
*** end 3-Mar-93

		ldy	#icMom			;Switch to window that opened icon is in.
		lda	[<ic],y
		sta	<curWind
		iny
		iny
		lda	[<ic],y
		sta	<curWind+2
		
;;;		jsl	selectionIsChanging	;removed 3-Mar-93 DAL
				
		ldy	#icFlag			;mark the icon as selected
		lda	[<ic],y
		ora	#ICSELECTED
		sta	[<ic],y
				
		lda	#$FFFF
		sta	1,s

;;;@currentHasIcons

		jsr	lockic
		pla
		beq	@done

		jsr	drawIconState

@done		jsr	unlockic
		rts

; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= =
;	   Free	window info block record. 
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= =
;
;   IN:	   windBlk = pointer to	info block.
; 
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= =
		EXPORT	freeInfoBlk
freeInfoBlk	

		pha				;Space for result.
		pha
		pei	<windBlk+2		;Pass pointer to window info block.
		pei	<windBlk
		_FindHandle			;Find the handle of the info block,
		jsl DisposeHandleGlue		;and set it free (if it loves you	
		rts				;it will come back to you).

; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = =
;	   Compare 'pathname' to icOwner field.
;BLOCK 500  = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = =
;
;   IN:	   ic =	pointer	to icon.
;	   C1_PathName = name to compare to.
;
;  OUT:	   Carry clear if name doesn't match or not an extended icon.
;
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = =
		EXPORT	ckExName
ckExName	
		IMPORT	WStrCompare

		ldy	#icFlag
		lda	[<ic],y
		and	#ICEXTENDED		; only check extended icons
		clc
		beq	@done

		pha				; space for result flag
		lda	<ic
		clc
		adc	#icOwner
		ldx	<ic+2
		bcc	@nr
		inx
@nr		phx				; pass pointer to icon's name
		pha
		PushLong #C1_PathName
		jsl	WStrCompare
		pla
		cmp	#1			; return carry flag
@done		rts


; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= =
;	   Called by WalkOfLife	to link	open
;	   windows from	the closing window,
;	   to the icon that opened the closing window.
;BLOCK 100  = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= =
;
;   IN:	   work	= handle of icon opened	windows	can be linked back to.

linkBack	ldy	#icFlag			Is this	icon open?
		lda	[<ic],y
		and	#ICOPENED
		beq	exit100

		ldy	#icWind+2		Get the	window that icon opened	into.
		lda	[<ic],y
		tax
		dey
		dey
		lda	[<ic],y
		jsr	getwRefCon2

		ldy	#windIc			Icon that window is being linked back to.
		lda	<work
		sta	[<windBlk],y
		iny
		lda	<work+1
		sta	[<windBlk],y

exit100		clc				Continue flag.
		rts


; = = =	= = = =	= = = =	= = = =	= = = =	= = = =
;	   Store icon's name and
;	   position in posFile buffer.
;BLOCK 200  = =	= = = =	= = = =	= = = =	= = = =
;
;   Called from	walkOfLife.
;
;   IN:	   ic =	pointer	to locked ICONOBJ
;	   work	= pointer to locked posFile buffer
;
;  OUT:    work = pointer to next position in posFile buffer
;	          for next record
;
;	   work	= max number of	icon spaces in buffer
;	   work+2 = index into buffer.
; 1-May-89 JAM:  Made some changes so that file names are always saved upper-case
;    in the FINDER.DATA files for backwards compatibility to Finders prior to 1.3

		IMPORT  ToUpperCase		; we're in longa mode so this is the guy
storePos	name 

		ldy	#icName			;save how long this record is
		lda	[<ic],y		
		and	#$00ff
		clc
		adc	#8
		inc	a			;plus one for the length byte of the name! argh!
		sta	[<work]
		
		ldy	#icFlag			;Get icon's color.
		lda	[<ic],y
		and	#$FF00
		ora	#$0001			;Icon came from directory window.
	
		ldy	#IconPOSColor
		sta	[<work],y

		ldy	#icy			;save icon's y position
		lda	[<ic],y
		ldy	#IconPOSy
		sta	[<work],y

		ldy	#icx			;save icon's x position
		lda	[<ic],y
		ldy	#IconPOSx
		sta	[<work],y
				
		ldy	#icName			;save icon's name
		lda	[<ic],y
		and	#$00ff
		ldy	#IconPosName
		sta	[<work],y
		clc
		adc	#IconPosName
		sta	nameLength

		ldx	#iconPosName+1
		ldy	#icName+1
@loop		lda	[<ic],y
		jsl	ToUpperCase
		phy
		txy
		sep	#$20
		sta	[<work],y
		rep	#$20
		ply
		iny
		inx
		cpx	nameLength
		blt	@loop
		beq	@loop	
				
		lda	[<work]
		sec				;always add 1 more than we have to continue
		adc	<work			;at the next available spot in the file
		sta	<work
		bcc	@nr
		inc	<work+2
@nr
		
		clc				;Continue flag.
		rts

;
; locals
;
nameLength	dc.w	0
		ENDP


\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Finder/main.rez b/IIGS.601.SRC/A.U.G/Finder/main.rez
new file mode 100644
index 0000000..b07e026
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Finder/main.rez
@@ -0,0 +1 @@
+// --------------------------------------------------------------------
//
// main.REZ
//
// Copyright 1991-1992 Apple Computer, Inc.
// All Rights Reserved
//
// --------------------------------------------------------------------
//
// 6.0.1 REVISION HISTORY
//
// 17-Feb-92 Dave Lyons
//   Version 6.1d1.
//
// 19-Feb-92 DAL
//   Revert to rVersion 6.0.1 for a little while.
//
// 19-Feb-92 DAL
//   Oh, just kidding.  6.1d1 again.
//
// 4-Mar-92 DAL
//   Version 6.1d2.
//
// 10-Mar-92 DAL
//   Replaced LOTS of rMenuItem and rPString items with some rCString
//     menu strings.  Saved about 2K of disk space.
//
// 25-Mar-92 DAL (6.1d3)
//   Changed "volume" to "disk" in several messages.
//
// 3..4-Jun-92 DAL (6.0.1d5)
//   Include KeyboardNav:KeyboardNavRsrc as an rFinderExtension resource.
//
// 15-Jul-92 DAL
//   Version 6.0.1d7.
//
// 17-Jul-92 DAL
//   Version 6.0.1d8.
//
// 20-Jul-92 DAL
//   Version 6.0.1d9.
//
// 14-Aug-92 DAL
//   Version 6.0.1d10.
//
// 14-Sep-92 DAL
//   Version 6.0.1d11.
//
// 15-Oct-92 DAL
//   Version 6.0.1d12.
//
// 26-Oct-92 DAL
//   Uses dividing-line items in Finder Help pop-up.
//
// 16-Dec-92 DAL
//   Version 6.0.1d13.
//
// 18-Jan-93 JCM
//   Added two alerts for use by magic routing code.
//
// 17-Feb-93 JCM
//   Version 6.0.1d14.
//
// 3-Mar-93 DAL
//   Changed the About the Finder strings to About This Apple IIgs
//   (window title, Windows Menu string, and menu item).
//
// 4-Mar-93 JCM
//   Stuffed my name into the comment so Andy can yell at me. :-)
//
// 13-Mar-93 DAL
//   Version 6.0.1d15.
//
// 25-Mar-93 JCM
//   Simplified the routing alerts so that they're only two buttons now.
//
//  2-Apr-93 JCM
//   Version 6.0.1 release
//
// --------------------------------------------------------------------

#define rFinderExtension 0x0042

// -- rToolStartup tool table

resource rToolStartup(1,preload, noSpecialMemory) {
	$C080,	{		// videoMode (shadowing on)	
		 3,$0302,	// Misc Tools
		 4,$0308,	// QuickDraw II
		 5,$0304,	// Desk Manager
		 6,$0300,	// Event Manager
		14,$0303,	// Window Manager
		15,$0303,	// Menu Manager
		16,$0303,	// Control Manager
		18,$0304,	// QD Aux
		20,$0303,	// Line Edit
		21,$0304,	// Dialog Manager
		22,$0301,	// Scrap Manager
		28,$0303,	// List Manager
		27,$0303,	// Font Manager
		34,$0103	// Text Edit
	}
};

// --- rFinderExtension resources

read rFinderExtension (1,Convert,locked)  ":KeyboardNav:KeyboardNavRsrc";

// --- rPString Templates

resource rPString (PSTR_0000000A, Locked, Fixed, NoCrossBank, Preload, noSpecialMemory) {
       "  Extras  "
};

// --- rCString menu strings

resource rCString(2,locked,fixed,nocrossbank,preload,noSpecialMemory) {
	"--@\\XN300\n"
	">>About This Apple IIgs...\\N301\n"
	">>Help\\N302*?/\n"
	">>-\\DN65534\n"
	"."
};

resource rCString(3,locked,fixed,nocrossbank,preload,noSpecialMemory) {
	"--  File  \\DN350\n"
	">>New Folder\\DN351*Nn\n"
	">>Open\\DN352*Oo\n"
	">>Print\\DN353\n"
	">>Close\\DN354*Ww\n"
	">>Close All\\DN355\n"
	">>-\\DN65534\n"
	">>Duplicate...\\DN356*Dd\n"
	">>Put Away\\DN357*Yy\n"
	">>Validate\\DN358\n"
	"."
};

resource rCString(4,locked,fixed,nocrossbank,preload,noSpecialMemory) {
	"--  Edit  \\N400\n"
	">>Undo\\DN250*Zz\n"
	">>-\\DN65534\n"
	">>Cut\\DN251*Xx\n"
	">>Copy\\DN252*Cc\n"
	">>Paste\\DN253*Vv\n"
	">>Clear\\DN254\n"
	">>Select All\\N401*Aa\n"
	">>-\\DN65534\n"
	">>Show Clipboard\\N402\n"
	"."
};

resource rCString(5,locked,fixed,nocrossbank,preload,noSpecialMemory) {
	"--  Windows  \\DN450\n"
	">>Stack Windows\\DN451\n"
	">>-\\DN452\n"						// this dividing line ID is important
	">>No Finder Windows\\DN453\n"
	"."
};

resource rCString(6,locked,fixed,nocrossbank,preload,noSpecialMemory) {
	"--  View  \\DN500\n"
	">>by Icon\\DN501\n"
	">>by Small Icon\\DN502\n"
	">>-\\DN65534\n"
	">>by Name\\DN503\n"
	">>by Date\\DN504\n"
	">>by Size\\DN505\n"
	">>by Kind\\DN506\n"
	"."
};

resource rCString(7,locked,fixed,nocrossbank,preload,noSpecialMemory) {
	"--  Disk  \\DN550\n"
	">>Initialize...\\DN551\n"
	">>Erase...\\DN552\n"
	">>Verify\\DN553\n"
	">>-\\DN65534\n"
	">>Eject\\DN554*Ee\n"
	"."
};

resource rCString(8,locked,fixed,nocrossbank,preload,noSpecialMemory) {
	"--  Special  \\N600\n"
	">>Clean Up\\N601\n"
	">>Empty Trash\\DN602*Tt\n"
	">>Preferences...\\N603\n"
	">>-\\DN65534\n"
	">>Icon Info...\\DN604*Ii\n"
	">>-\\DN65534\n"
	">>Shut Down\\N605*Qq\n"
	"."
};

resource rCString(9,locked,fixed,nocrossbank,preload,noSpecialMemory) {
	"--  Colors  \\DN650\n"
	"."
};

// No Finder Windows stuff

resource rMenuItem (MENUITEM_00000015, Locked, Fixed, Preload, noSpecialMemory) {
       453,                    // itemID
       "","",                  // itemChar, itemAltChar
       NIL,                    // itemCheck
       $8080,                  // itemFlag
       PSTR_0000001E           // itemTitleRef
};

resource rPString (PSTR_0000001E, Locked, Fixed, NoCrossBank, Preload, noSpecialMemory) {
       "No Finder Windows"
};


// Clean Up stuff

resource rPString (PSTR_00000029, Locked, Fixed, NoCrossBank, Preload, noSpecialMemory) {
       "Clean Up"
};

resource rPString (PSTR_0000002E, Locked, Fixed, NoCrossBank, Preload, noSpecialMemory) {
       "Clean Up by Name"
};


//
// --- strings we use *A LOT*
//

resource rPString (PSTR_000000F9, Locked, Fixed, NoCrossBank, Preload, noSpecialMemory) {
       "Stop"
};

resource rPString (PSTR_000000FA, Locked, Fixed, NoCrossBank, Preload, noSpecialMemory) {
       "Skip"
};

resource rPString (PSTR_000000FB, Locked, Fixed, NoCrossBank, Preload, noSpecialMemory) {
       "Replace"
};

resource rPString (PSTR_000000FC, Locked, Fixed, NoCrossBank, Preload, noSpecialMemory) {
       ""
};

resource rPString (PSTR_000000FD, Locked, Fixed, NoCrossBank, Preload, noSpecialMemory) {
       "Accept"
};

resource rPString (PSTR_000000FE, Locked, Fixed, NoCrossBank, Preload, noSpecialMemory) {
       "Cancel"
};

resource rPString (PSTR_000000FF, Locked, Fixed, NoCrossBank, Preload, noSpecialMemory) {
       "OK"
};

//
// -- rPStrings for misc stuff in the finder (Trash, Clip, About)
//
// These don't need to be preloaded, but they need to be nailed down because
// we attempt to move them someplace safe in memory once we load them.  The
// largest size for each string is 31 characters.
//
// Actually, they don't need to be nailed down because we use pStringCopy to
// move them to their final resting spot and then dispose of them immediately
//

resource rPString (PSTR_00000100, Preload) {
       "  About This Apple IIgs  "
};

resource rPString (PSTR_00000101, Preload) {
       "About This Apple IIgs"
};
 
resource rPString (PSTR_00000102, Preload) {
       "  Trash  "
};

resource rPString (PSTR_00000103, Preload) {
       "Trash"
};

resource rPString (PSTR_00000104, Preload) {
       "  Clipboard  "
};

resource rPString (PSTR_00000105, Preload) {
       "Clipboard"
};

resource rPString (PSTR_00000106, Preload) {
       "  Finder Help  "
};

resource rPString (PSTR_00000107, Preload) {
       "Finder Help"
};

resource rPString (PSTR_00000108, Preload) {
       "  Bad Blocks On ÒÓ"
};

resource rPString (PSTR_00000109, Preload) {
       "Bad Blocks On ÒÓ"
};

resource rPString (PSTR_0000010A, Preload) {
       "  Damaged Files In ÒÓ"
};

resource rPString (PSTR_0000010B, Preload) {
       "Damaged Files In ÒÓ"
};

// -- rPstring for SFGetFile prompt

resource rPString (PSTR_00000200, $0000) {
       "Where is this application located?"
};

resource rPString (PSTR_00000201, $0000) {
       "Launch which application for this document?"
};


// --- Menu Definitions

// Extras menu
resource rMenu (MENU_00000009, Locked, Fixed, Preload, noSpecialMemory) {
       1000,                  	// menuID
       $A008,                  	// menuFlag
       PSTR_0000000A, {        	// menuTitleRef
       };
};


// --- rVersion templates

resource rVersion(1,locked, fixed, preload, noSpecialMemory) {
	{ 
	  $6,				/* major version in BCD */
	  $0,				/* minor version in BCD */
	  $1,				/* bug version		    */
	  release,
	  $00,				/* # */
	 },
	verUS,
	"Finder",
	"Copyright 1987-93, Apple Computer, Inc."
};

// -- rComment template

resource rComment(1,0) { 
	"The Apple IIGS Finder"
	"\$0d"
	"\$0d"
	"by Jim Murphy, Andy Nicholas, and Dave Lyons with special thanks to those who have walked "
	"this path..."
	"\$0d"
	"\$0d"
	"Ron Lichty, Don J. Brady, Jim Merritt, Steve Glass, Mensch, "
	"Matt Deatherage, Andy Stadler, Cheryl Ewy, and Dan Oliver"
};

// -- rWindColor resource

resource rWindColor(1,locked,fixed,preload) {
		$0000,		
		$0F00,									// default folder colors
		$020F,
		$F0F0,
		$00F0
};

resource rWindColor(2,locked,fixed,preload) {
		$0000,		
		$0F00,									// default getinfo colors
		$020F,
		$F0F0,
		$00F0
};

// -- rRectList resource

resource rRectList(1,locked,fixed,preload) {
  {
	{ 39, 14,103,358},		/* first default window position 	*/
	{ 49, 24,113,368},		/* second default window position 	*/
	{ 59, 34,123,378},		/* third default window position 	*/
	{ 69, 44,133,388},		/* fourth default window position 	*/
	{ 79, 54,143,398},		/* fifth default window position 	*/
	{ 89, 64,153,408},		/* sixth default window position 	*/
	{ 99, 74,163,418},		/* seventh default window position 	*/
	{109, 84,173,428},		/* eighth default window position 	*/

	{$e000,$002c,$FFFF,  0},
							/* Y1 = default folder background and outline color */
							/* X1 = international comma character				*/
							/* Y2 = default preference settings					*/
							/* X2 = default quit setting (low 2 bits, 6.0.1)	*/
	
	{180,570,  0,  0},		/* default trashcan position			*/
	{120, 20,180,500},		/* default trash window position		*/
	
	{ 120,20,180,500},		/* default clipboard window position 	*/
	
	{$dddd,$dddd,$dddd,$dddd}, /* default desktop pattern			*/
	{$dddd,$dddd,$dddd,$dddd}	
  }
};
	
	
	
//
// --- rAlertString Templates
//

resource rAlertString (ALERT_00000001, $0000) {
       "64~The filename Ò*0Ó is unacceptable to the destination file system.~^#6"
       "\$00"
};

resource rAlertString (ALERT_00000002, $0000) {
       "64~Are you sure you want to change the owner for "
       "Ò*0Ó"
       "?~#1~^#0"
       "\$00"
};

resource rAlertString (ALERT_00000003, $0000) {
       "52~The changes to some folders could not be applied."
       " Only the owner can change make changes.~^#0"
       "\$00"
};

resource rAlertString (ALERT_00000005, preload,locked,fixed,noSpecialMemory) {
       "56~Please insert the disk Ò*0Ó."
       "~#1~^#0"
       "\$00"
};

resource rAlertString (ALERT_00000006, $0000) {
       "62~There was a problem while using Ò*0Ó.  The disk may be physically"
       " damaged.~^#6"
       "\$00"
};

resource rAlertString (ALERT_00000007, $0000) {
       "64~You do no have the access privileges to change "
       "Ò*0Ó.  Only the owner can change the access privileges."
       "~^#6"
       "\$00"
};

resource rAlertString (ALERT_0000000B, $0000) {
       "62~The name "
       "Ò*0Ó"
       " is already taken.  Please use a different name.~^#6"
       "\$00"
};

resource rAlertString (ALERT_0000000C, $0000) {
       "52~The changes could not be applied."
       "\$0D"
       "(unknown user)~^#6"
       "\$00"
};

resource rAlertString (ALERT_0000000D, $0000) {
       "52~The changes could not be applied."
       "\$0D"
       "(unknown group)~^#6"
       "\$00"
};

resource rAlertString (ALERT_0000000E, $0000) {
       "52~The changes could not be applied."
       "\$0D"
       "(the pathname is too long)~^#6"
       "\$00"
};

resource rAlertString (ALERT_0000000F, $0000) {
       "52~This operation could not be completed because a file on the disk is "
       "open.~^#1"
       "\$00"
};

resource rAlertString (ALERT_00000010, $0000) {
       "62~Items in the trash canÕt be opened.  Please drag the items ba"
       "ck into a disk icon or folder window, or onto the desktop.~^#6"
       "\$00"
};

resource rAlertString (ALERT_00000011, $0000) {
       "52~The disk directory is full.  This operation canÕt be completed.~^"
       "#1"
       "\$00"
};

resource rAlertString (ALERT_00000012, $0000) {
       "52~The disk is full.  This operation canÕt be completed.~^#1"
       "\$00"
};

resource rAlertString (ALERT_00000013, $0000) {
       "63~The disk Ò*0Ó is write protected.~#1~^#4"
       "\$00"
};

resource rAlertString (ALERT_00000015, $0000) {
       "62~You do not have the access privileges needed to use (or make changes"
       " to) all the selected items.~^#6"
       "\$00"
};

resource rAlertString (ALERT_00000017, $0000) {
       "52~The Trash icon canÕt be moved into a window or onto another "
       "icon.~^#6"
       "\$00"
};

resource rAlertString (ALERT_00000018, $0000) {
       "52~Disk icons can be dragged only onto other disk icons.~^#6"
       "\$00"
};

resource rAlertString (ALERT_00000019, $0000) {
       "52~Disk icons canÕt be dragged with file or folder icons for"
       " this operation.~^#6"
       "\$00"
};

resource rAlertString (ALERT_0000001A, $0000) {
       "52~5.25-inch disk drive icons canÕt "
       "be moved into a window or onto another icon.~^#0"
       "\$00"
};

resource rAlertString (ALERT_0000001B, $0000) {
       "62~Icons can only be dragged into directory windows, the Trash"
       " window, or onto the desktop.~^#6"
       "\$00"
};

resource rAlertString (ALERT_0000001C, $0000) {
       "52~Items from file servers may not be moved onto the desktop.~^#6"
       "\$00"
};

resource rAlertString (ALERT_0000001D, $0000) {
       "63~The folder Ò*2Ó canÕt be moved into itself or into one of"
	   " its own folders.~#1~^Skip"
       "\$00"
};

resource rAlertString (ALERT_0000001E, $0000) {
       "72~There was a problem while using Ò*8Ó.  The disk may be physically"
       " damaged.  This operation canÕt be completed.~^#1"
       "\$00"
};

resource rAlertString (ALERT_0000001F, preload,locked,fixed,noSpecialMemory) {
       "62~Ò*8Ó was ejected while being used.  This operation canÕt"
       " be completed.~^#1"
       "\$00"
};

resource rAlertString (ALERT_00000020, $0000) {
       "52~That item could not be moved (an item with that name already "
       "exists).~^#1"
       "\$00"
};

resource rAlertString (ALERT_00000021, $0000) {
       "62~Your access privileges do not permit you to perform that oper"
       "ation on the selected item(s).~^#6"
       "\$00"
};

resource rAlertString (ALERT_00000022, $0000) {
       "62~You do not have the access privileges necessary to open Ò*0Ó."
	   "  Only the owner can change the access privileges.~^#6"
       "\$00"
};

resource rAlertString (ALERT_00000023, preload,locked,fixed,noSpecialMemory) {
       "72~System Error ($*7).  This operation canÕt be completed."
	   "\$0d"
	   "\$0d"
       "*9.~^#1\$00"
};

resource rAlertString (ALERT_00000024, $0000) {
       "62~Finder canÕt copy more than 800 items from the same folder at the same"
	   " time.  Try dragging the items in smaller groups.~^#1"
       "\$00"
};

resource rAlertString (ALERT_00000025, $0000) {
       "52~No more windows can be opened.~^#1"
       "\$00"
};

resource rAlertString (ALERT_00000026, preload,locked,fixed,noSpecialMemory) {
       "82~There isnÕt enough memory remaining to complete this operation."
	   "\$0d"
	   "\$0d"
	   "Closing windows will help this situation immediately.  Inactivating Icon files, "
	   "Desk Accessories, and Setup files will help the next time the system is restarted."
       "~^#1"
       "\$00"
};

resource rAlertString (ALERT_00000027, $0000) {
       "64~You do not have the necessary access privileges to see all of"
       " the items you are putting into this folder/disk.~#1~^#6"
       "\$00"
};

resource rAlertString (ALERT_00000028, $0000) {
       "62~The disk Ò*0Ó is already on the desktop.  There canÕt"
       " be two disks with the same name on the desktop.~^#6"
       "\$00"
};

resource rAlertString (ALERT_00000029, $0000) {
       "72~The 5.25-inch drive Ò*0Ó is already on the desktop.  There canÕt"
       " be another icon with the same name as Ò*0Ó on the desktop.~^#6"
       "\$00"
};

resource rAlertString (ALERT_0000002A, $0000) {
       "63~The item Ò*8Ó canÕt be copied because its access privileges wonÕt "
	   "allow it to be read.~#1~^Skip"
       "\$00"
};

resource rAlertString (ALERT_0000002B, $0000) {
       "63~The disk Ò*8Ó is write protected.~#1~^#4"
       "\$00"
};

resource rAlertString (ALERT_0000002C, $0000) {
       "52~These items are from separate disks.  Please move them separately."
       "~^#6"
       "\$00"
};

resource rAlertString (ALERT_0000002F, $0000) {
       "52~The pathname is too long to complete this operation.~^#1"
       "\$00"
};

resource rAlertString (ALERT_00000032, $0000) {
       "52~An application canÕt be found for this document.~^#1"
       "\$00"
};

resource rAlertString (ALERT_00000033, $0000) {
       "63~You cannot replace Ò*2Ó because a folder cannot be replaced by "
	   "an item it contains.~#1~^Skip"
       "\$00"
};

resource rAlertString (ALERT_00000034, $0000) {
       "54~You are attempting to replace a file with a folder or vice versa."
       "  Should it be replaced?~#1~Skip~^Replace"
       "\$00"
};

resource rAlertString (ALERT_00000035, $0000) {
       "74~Completely replace the contents of Ò*1Ó with the contents of Ò*0Ó"
       "?~#1~^Replace"
       "\$00"
};

resource rAlertString (ALERT_00000036, $0000) {
       "74~The two disks are different sizes, so the contents of Ò*0Ó will"
       " be placed in a folder on Ò*1Ó.~#1~^#0"
       "\$00"
};

resource rAlertString (ALERT_00000037, $0000) {
       "74~The item Ò*2Ó"
       " already exists and is locked (or contains items that are locked"
       ").  Replace it anyway?~#1~Skip~^Replace"
       "\$00"
};

resource rAlertString (ALERT_00000038, $0000) {
       "74~The item Ò*2Ó"
       " is locked (or contains items that are locked).  Remove it anyway?"
       "~#1~Skip~^Remove"
       "\$00"
};

resource rAlertString (ALERT_00000039, $0000) {
       "72~There is not enough room on Ò*1Ó to copy the contents of Ò*0Ó.~^#1"
       "\$00"
};

resource rAlertString (ALERT_0000003B, $0000) {
       "62~The application Ò*2Ó canÕt be found for this document.~#1~#4~^Locate..."
       "\$00"
};

resource rAlertString (ALERT_0000003C, $0000) {
       "52~Non-removable devices canÕt be dragged into the trash.~^#0"
       "\$00"
};

resource rAlertString (ALERT_0000003D, $0000) {
       "62~There are no more ÒuntitledÓ"
       " names available for this window.  Please rename some icons if you"
       " wish to create more folders.~^#6"
       "\$00"
};

resource rAlertString (ALERT_0000003E, $0000) {
       "74~Unless this file is placed on a server, attaching a comment to"
	   " it makes it unusable by any application which uses ProDOS 8."
	   "~#1~^Attach"
       "\$00"
};

resource rAlertString (ALERT_00000040, $0000) {
       "84~Your comment is about to be recorded on the server.  You can also "
	   "attach the comment to the file itself, but this will make the file "
	   "unusable by ProDOS 8 if the file is dragged off the server."
	   "\$0d"
	   "\$0d"
	   "The comment will be limited to 199 characters if it is not attached to the file."
	   "~DonÕt Attach~^Attach"
       "\$00"
};

resource rAlertString (ALERT_00000043, $0000) {  /* this is for rComment(2) */
       "83~*0~^#1"
       "\$00"
};

resource rAlertString (ALERT_00000044, $0000) {
       "53~All disk blocks are good on disk Ò*0Ó."
       "~^#0"
       "\$00"
};

resource rAlertString (ALERT_00000045, $0000) {
       "73~Some disk blocks are bad on disk Ò*0Ó.  "
       "Do you want a summary of the bad blocks?~#1~^#0"
       "\$00"
};

resource rAlertString (ALERT_00000046, $0000) {
       "53~The file structure of Ò*3Ó seems to be OK."
       "~^#0"
       "\$00"
};

resource rAlertString (ALERT_00000047, $0000) {
       "73~Some bad items were found in Ò*3Ó.  "
       "Do you want a summary of the bad items?~#1~^#0"
       "\$00"
};

resource rAlertString (ALERT_00000048, preload, locked, fixed,noSpecialMemory) {
       "56~Please insert the disk Ò*8Ó."
       "~#1~^#0"
       "\$00"
};

resource rAlertString (ALERT_00000049, $0000) {
       "64~The item Ò*2Ó already exists.  Replace this item?"
       "~#1~^Replace"
       "\$00"
};

resource rAlertString (ALERT_0000004A, preload, locked, fixed,noSpecialMemory) {
       "94~The Finder is dangerously low on memory."
	   "\$0d"
	   "\$0d"
	   "Closing windows will help this situation immediately.  Inactivating Icon files and "
	   "removing ÒDesktopÓ files from Icons folders will help when the Finder "
	   "is launched again.  Inactivating Desk Accessories and Setup files will help the "
	   "next time the system is restarted."
       "~^#6"
       "\$00"
};

resource rAlertString (ALERT_0000004C, 0) {
       "62~The Standard File toolset could not be started.  This operation canÕt be "
	   "completed."
       "~^#1"
       "\$00"
};

resource rAlertString (ALERT_0000004D, 0) {
       "62~ProDOS 8 applications can only be launched from AppleShare or ProDOS disks."
       "~^#1"
       "\$00"
};

resource rAlertString (ALERT_0000004E, 0) {
       "62~Documents which launch ProDOS 8 applications must reside on AppleShare or "
	   "ProDOS disks."
       "~^#1"
       "\$00"
};

resource rAlertString (ALERT_0000004F, 0) {
       "62~You cannot change the contents of the disk Ò*2Ó, because the disk "
	   "is locked."
       "~^#1"
       "\$00"
};

resource rAlertString (ALERT_00000050, 0) {
       "62~You cannot change the contents of the disk Ò*2Ó, because the disk "
	   "uses a read-only file system."
       "~^#1"
       "\$00"
};

resource rAlertString (ALERT_00000051, 0) {
       "63~The file Ò*5Ó canÕt be copied because itÕs too large for the *6 file system."
       "~#1~^Skip"
       "\$00"
};

resource rAlertString (ALERT_00000052, 0) {
       "74~This folder contains *5 items.  Opening this folder requires about *6.  "
	   "About *9 is available.  Opening this folder may take a long time.  "
	   "Open this folder anyway?"
       "~#1~^#6"
       "\$00"
};

// resource rAlertString (ALERT_00000053, 0) {		// %%% The buttons will change
//       "64~Some of these items belong in special places inside the System "
//	   "folder.  Put them where they belong?"
//      "~#1~DonÕt Place~^Place\$00"
// };
//
// resource rAlertString (ALERT_00000054, 0) {		// %%% This string will change
//        "64~This item belongs in a special place inside the System folder.  "
// 	   "Put it where it belongs?"
//        "~#1~DonÕt Place~^Place\$00"
// };

resource rAlertString (ALERT_00000053, 0) {		// %%% The buttons will change
       "64~Some of these items belong in special places inside the System "
	   "folder.  Put them where they belong?"
       "~#1~^Continue\$00"
};

resource rAlertString (ALERT_00000054, 0) {		// %%% This string will change
       "64~This item belongs in a special place inside the System folder.  "
	   "Put it where it belongs?"
       "~#1~^Continue\$00"
};
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Finder/map b/IIGS.601.SRC/A.U.G/Finder/map
new file mode 100644
index 0000000..8e9b978
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Finder/map
@@ -0,0 +1 @@
+---------------------------------------------------------------------------------
0001 Load Segment "FINDER" relocatable LENGTH=$DF15 KIND=$6000 (Private,Position Independent)
---------------------------------------------------------------------------------
0001 00000000 00000318 INIT
0002 00000318 00000024 WALKBLKS
0003 0000033C 000003AA FINDER
0004 000006E6 00000455 HANDLEEVENT
0005 00000B3B 00000213 MAKEFIELD
0006 00000D4E 00000049 GETPATTERN
0007 00000D97 0000004F FINDERSAVEALL
0008 00000DE6 00000095 NEWDIALOG
0009 00000E7B 0000001E GETNAME
000A 00000E99 00000010 LENERROR
000B 00000EA9 0000006E UPDATEINFOWIN
000C 00000F17 000001BF ADDICONOBJ
000D 000010D6 000000D4 ERASEICON
000E 000011AA 000000F0 DRAWDESK
000F 0000129A 00000193 INFO_GUTS
0010 0000142D 0000001B BLINKICON
0011 00001448 000002F9 DRAWICON
0012 00001741 00000019 ZOOMRECT
0013 0000175A 0000039D DRAGRECTS
0014 00001AF7 000000A3 CLIP_GUTS
0015 00001B9A 00000217 GETINFO_GUTS
0016 00001DB1 0000006D DRAWDEVLOCK
0017 00001E1E 00000A63 WINDCLICK
0018 00002881 000000D6 FINDOWNERIC
0019 00002957 0000071E OPENICON
001A 00003075 0000007C GROWZOOM
001B 000030F1 000002EB DOCLOSE
001C 000033DC 00000084 HNDLMENU
001D 00003460 00000EFD ID_ABOUT
001E 0000435D 0000025C CKMENUS
001F 000045B9 000002C5 MENUDATA
0020 0000487E 000001C2 FLIPSCREEN
0021 00004A40 00000126 DOS_VAR
0022 00004B66 00000018 MAKEDEVNAME
0023 00004B7E 000000B9 CKVOLUME
0024 00004C37 00000033 FINDDISKDEV
0025 00004C6A 00000013 FINDVOL
0026 00004C7D 00000023 CKDEVICE
0027 00004CA0 00000076 GETVOLNAME
0028 00004D16 0000001D FORMATDISK
0029 00004D33 000001E2 NEWDEVICE
002A 00004F15 0000003A DUPDEVICE
002B 00004F4F 00000026 MATCHDEVICE
002C 00004F75 00000079 TYPEDEVICE
002D 00004FEE 0000008F READROOT
002E 0000507D 000000BA OPENEXTICON
002F 00005137 00000049 OPENWINDOW
0030 00005180 00000049 FETCHPATH
0031 000051C9 0000001B MATCHICNAME
0032 000051E4 0000004C EJECTMEDIA
0033 00005230 000000F6 DEVICESCAN
0034 00005326 00000054 SAVEDEVSTATS
0035 0000537A 00000035 MATCHDEV
0036 000053AF 000000FC LOADICONS
0037 000054AB 00000024 SETVOLPREFIX
0038 000054CF 00000014 DOSETMARK
0039 000054E3 0000000B DOGETFILEINFO
003A 000054EE 0000002D LOCKFILE
003B 0000551B 00000015 INACTFILE
003C 00005530 0000004F DOCREATE
003D 0000557F 000000C7 DOREAD
003E 00005646 000000B4 LOADBLK
003F 000056FA 00000044 CHKPARTITION
0040 0000573E 00000053 GETICONPTR
0041 00005791 000001A8 SORT
0042 00005939 0000002E KINDTOSTRING
0043 00005967 0000003D COMPARESTRINGS
0044 000059A4 00000010 WATCHCURSOR
0045 000059B4 000000B2 SETINFO2
0046 00005A66 0000007D WALKWINDOW
0047 00005AE3 00000009 CUR2WINDT
0048 00005AEC 0000001D GETWOFFSET
0049 00005B09 0000002A CHECKRECTHIT
004A 00005B33 000000EF BUILDRECTS
004B 00005C22 00000033 STARTDRAW2
004C 00005C55 0000000B IFDESK
004D 00005C60 0000000C ALLOCATERGN
004E 00005C6C 00000029 PUSHYRAT
004F 00005C95 00000048 FINDSELECT
0050 00005CDD 000000CE WALKOFLIFE
0051 00005DAB 000000AF GETICONRECT
0052 00005E5A 00000010 PUSHICNAME
0053 00005E6A 00000054 LOCKICBLK
0054 00005EBE 00000018 ALLOCATE
0055 00005ED6 00000039 PULLFIELDS
0056 00005F0F 0000003A CLEARDISK
0057 00005F49 00000148 DESKSPOT
0058 00006091 000000FA MARKOPEN
0059 0000618B 00000057 SAVETEMP
005A 000061E2 0000018A WRITEALLROOTS
005B 0000636C 00000037 WRITEDEF
005C 000063A3 00000024 GETICNAMEPTR
005D 000063C7 00000037 ADDDATANAME
005E 000063FE 0000001E GETWINDPATH
005F 0000641C 0000001C PATH2TICON
0060 00006438 00000029 FINDLASTNAME
0061 00006461 00000020 GETROOTNAME
0062 00006481 00000025 MAKEICROOT
0063 000064A6 000000A9 BUILDPATH3
0064 0000654F 00000027 GETEXTNAME
0065 00006576 0000002E CLONEPATH
0066 000065A4 00000090 CLOSEKIDS
0067 00006634 00000122 TRASHDISK
0068 00006756 0000002D FINDROOTIC
0069 00006783 00000034 DESELECTALL
006A 000067B7 000000BE KILLKIDS3
006B 00006875 00000028 RESETCTIME
006C 0000689D 00000017 CKDATAWRITE
006D 000068B4 0000000F SETORGNMASK
006E 000068C3 00000019 MENUHELP
006F 000068DC 0000005C WIND2TOP
0070 00006938 00000195 NEWDATASIZE2
0071 00006ACD 00000051 UPDATEKS
0072 00006B1E 0000007C REMOVECLONE
0073 00006B9A 0000004F KILLICON
0074 00006BE9 0000002F BIGERROR1
0075 00006C18 0000000C CKMEMORY
0076 00006C24 00000018 GETVOLSIZES
0077 00006C3C 000010FD RAM
0078 00007D39 00000014 FILEROUTINES
0079 00007D4D 00000384 FRDATA
007A 000080D1 0000001E FILEENTRY
007B 000080EF 0000001B FILESTARTUP
007C 0000810A 00000214 COPYFILES
007D 0000831E 000004CE COPYDISK
007E 000087EC 00000041 GETCREATEDATE
007F 0000882D 000000F9 DELETEFILES
0080 00008926 00000183 DUPFILES
0081 00008AA9 00000444 DOFILECOPY
0082 00008EED 000000CE GETNEXTFILE
0083 00008FBB 00000033 GETBUFFER
0084 00008FEE 0000001A ALLOCATEMEM
0085 00009008 00000020 CATALOGSRC
0086 00009028 00000066 MAKEPATHNAME
0087 0000908E 00000037 MAKESRCNAME
0088 000090C5 00000022 MAKEFILENAME
0089 000090E7 00000039 MAKEDSTNAME
008A 00009120 0000010B CHECKDSTNAME
008B 0000922B 00000010 ADDSRCSLASH
008C 0000923B 00000010 ADDDSTSLASH
008D 0000924B 00000034 GETNEXTICON
008E 0000927F 00000023 MAKEINAMEPTR
008F 000092A2 00000016 LOCKICON
0090 000092B8 0000000B UNLOCKICON
0091 000092C3 0000000E CHECKKEY
0092 000092D1 0000002B CREATEFILE
0093 000092FC 0000001E DESTROYFILE
0094 0000931A 0000002A OPENFILE
0095 00009344 0000001A CLOSEFILE
0096 0000935E 00000014 READFILE
0097 00009372 0000002A WRITEFILE
0098 0000939C 00000012 GETFILEINFO
0099 000093AE 0000001A GETVOLSIZES
009A 000093C8 00000014 GETFILEINFO2
009B 000093DC 00000020 GETFILEINFO3
009C 000093FC 0000002A SETFILEINFO
009D 00009426 00000014 GETMARK
009E 0000943A 0000002A SETMARK
009F 00009464 00000014 GETEOF
00A0 00009478 00000028 CHANGEPATH
00A1 000094A0 00000014 READBLOCK
00A2 000094B4 00000014 WRITEBLOCK
00A3 000094C8 00000014 GETDEVNUM
00A4 000094DC 00000014 GETDEVINFO
00A5 000094F0 00000014 GETVOLINFO
00A6 00009504 00000014 ERASEDISK
00A7 00009518 00000019 PRODOSCALL
00A8 00009531 00000202 PRODOSERR
00A9 00009733 00000037 DODIALOG
00AA 0000976A 00000006 STARTMSG
00AB 00009770 00000016 CHANGEMSG
00AC 00009786 00000006 ENDMSG
00AD 0000978C 0000001F MSGCALL
00AE 000097AB 00000006 OSTDEND0
00AF 000097B1 00000014 STDEND
00B0 000097C5 00000030 RESTARTSESSION
00B1 000097F5 00000038 MISCROUTINES
00B2 0000982D 00000004 MRDATA
00B3 00009831 0000001E MISCENTRY
00B4 0000984F 0000001B MISCSTARTUP
00B5 0000986A 00000006 STDEND0
00B6 00009870 00000006 STDEND4
00B7 00009876 00000006 STDEND6
00B8 0000987C 00000015 STDEND
00B9 00009891 00000010 SETUP
00BA 000098A1 000002B9 CATDATA
00BB 00009B5A 0000000D STARTCATALOG
00BC 00009B67 0000000E NEXTCATALOG
00BD 00009B75 00000009 ENDCATALOG
00BE 00009B7E 000000A7 STARTCAT
00BF 00009C25 0000031D CATALOG
00C0 00009F42 00000012 GETFILEINFO
00C1 00009F54 00000012 DOOPEN
00C2 00009F66 00000018 DOCLOSE
00C3 00009F7E 0000003D GETENTRY
00C4 00009FBB 00000036 PRODOSERR
00C5 00009FF1 00000026 DODIALOG
00C6 0000A017 0000001C ALLOCATE
00C7 0000A033 00000259 DIADATA
00C8 0000A28C 0000009F CALLDIALOG
00C9 0000A32B 00000007 NEWDIALOG
00CA 0000A332 00000077 STARTDIALOG
00CB 0000A3A9 0000001E CHANGEDIALOG
00CC 0000A3C7 00000018 MODIFYMLDIALOG
00CD 0000A3DF 00000029 ENDDIALOG
00CE 0000A408 00000020 UPDATEDIALOG
00CF 0000A428 00000012 KILLLE
00D0 0000A43A 00000044 SAVELETEXT
00D1 0000A47E 0000056C DRAWDIAGUTS
00D2 0000A9EA 000001A1 MONITORDIA
00D3 0000AB8B 0000005B CK_LE
00D4 0000ABE6 00000001 UPDATEEVENT
00D5 0000ABE7 00000023 GETNAME
00D6 0000AC0A 00000013 SETRADIOBTN
00D7 0000AC1D 00000014 SETDIALMAX
00D8 0000AC31 00000016 GETRADIOBTN
00D9 0000AC47 00000009 GETDATA
00DA 0000AC50 00000015 PUSHYRAT
00DB 0000AC65 000012AE DIALOGS
00DC 0000BF13 00000040 CALLZOOM
00DD 0000BF53 00000158 ZOOMRECT
00DE 0000C0AB 00000000 COMMON
00DF 0000C0AB 0000004B STRIP
00E0 0000C0F6 000000C4 MYDATA
00E1 0000C1BA 00000179 SETUP
00E2 0000C333 00000032 DRAWINDICATOR
00E3 0000C365 00000032 ERASEINDICATOR
00E4 0000C397 00000081 DRAWCONTROL
00E5 0000C418 00000016 NEWVALUE
00E6 0000C42E 00000008 RECORDSIZE
00E7 0000C436 00000005 DEFAULT
00E8 0000C43B 00000049 THERMODIALPROC
00E9 0000C484 0000002A CALCPIXELS
00EA 0000C4AE 0000005A SYSALERTSOFF
00EB 0000C508 00000215 COLORMENUDEF
00EC 0000C71D 00000CF2 VERIFYDATA
00ED 0000D40F 000001CD VERIFYMEDIUM
00EE 0000D5DC 000000A1 VALIDATEFILE
00EF 0000D67D 0000018D READFILES
00F0 0000D80A 00000078 DOREAD
00F1 0000D882 000000C7 COUNTFILES
00F2 0000D949 00000012 OPENFILE
00F3 0000D95B 00000015 CLOSEFILE
00F4 0000D970 0000001E GETDIRENTRY
00F5 0000D98E 00000012 GETDEVNUMBER
00F6 0000D9A0 0000004D GSOSERROR
00F7 0000D9ED 00000052 PATHADDNAME
00F8 0000DA3F 00000023 PATHSUBNAME
00F9 0000DA62 0000004B PATHGETNAME
00FA 0000DAAD 00000044 DODIALOG
00FB 0000DAF1 0000008D GETVERIFYGUTS
00FC 0000DB7E 000000F2 GETVERIFYINFO
00FD 0000DC70 000000B2 GETVALIDGUTS
00FE 0000DD22 000000F6 GETVALIDINFO
00FF 0000DE18 00000024 COPYPATH
0100 0000DE3C 00000032 CONVERT0TO1
0101 0000DE6E 00000042 CONVERT1TO0
0102 0000DEB0 00000034 SETSHIFT
0103 0000DEE4 00000031 DOALERT
---------------------------------------------------------------------------------
0002 Load Segment "DATA" relocatable LENGTH=$2331 KIND=$2000 (Position Independent)
---------------------------------------------------------------------------------
0001 00000000 00002331 STRINGBASE
---------------------------------------------------------------------------------
0003 Load Segment "STACK" relocatable LENGTH=$1400 KIND=$0012 (Direct Page/Stack)
---------------------------------------------------------------------------------
0001 00000000 00001400 STACK

Output Load File "START" contains 3 Load Segments with a total length of $11646 bytes.

-----------------------
Symbol Table
-----------------------
                                  Object                   Load              
Name                Type  Filenum Segnum Offset    Filenum Segnum Offset    Value

ABORTFIND            GD      06     77  000002A0      01     01  00006EDC
ABORTFLAG            PD      07     79  0000015E      01     01  00007EAB
ABORTFLAG            PD      0A     EC  000008E4      01     01  0000D001
ACCMENU              GD      03     1F  0000000A      01     01  000045C3
ADDDATANAME          GD      05     5D  00000000      01     01  000063C7
ADDDSTSLASH          PD      07     8C  00000000      01     01  0000923B
ADDFILENAME          PD      08     BF  00000260      01     01  00009E85
ADDFLAG              GD      06     77  00000334      01     01  00006F70
ADDFUNCTIONKEY       GD      02     17  00000972      01     01  00002790
ADDICONOBJ           GD      02     0C  00000000      01     01  00000F17
ADDICONRGN           GD      05     4A  00000032      01     01  00005B65
ADDIRECT2            GD      05     4A  0000003B      01     01  00005B6E
ADDNAME              PD      08     BF  000002D8      01     01  00009EFD
ADDNAME              GD      05     5D  0000000B      01     01  000063D2
ADDNAME2             GD      05     5D  00000008      01     01  000063CF
ADDRGN               GD      05     4A  0000003E      01     01  00005B71
ADDROOTNAME          GD      05     5D  00000005      01     01  000063CC
ADDSRCSLASH          PD      07     8B  00000000      01     01  0000922B
ALLOCATE             GD      05     54  00000000      01     01  00005EBE
ALLOCATE             PD      08     C6  00000000      01     01  0000A017
ALLOCATE2            PD      08     C6  00000003      01     01  0000A01A
ALLOCATE2            GD      05     54  00000003      01     01  00005EC1
ALLOCATEMEM          PD      07     84  00000000      01     01  00008FEE
ALLOCATERGN          GD      05     4D  00000000      01     01  00005C60
ALLOFFLINE           GD      05     58  00000065      01     01  000060F6
ALLONLINE            GD      05     58  0000006A      01     01  000060FB
APPICON              GD      06     77  0000035F      01     01  00006F9B
APPNAME              GD      06     77  0000033E      01     01  00006F7A
APPOFFSET            GD      06     77  00000363      01     01  00006F9F
ARROWCURSOR          GD      05     44  00000005      01     01  000059A9
ASTRG                GD      06     77  00000C5F      01     01  0000789B
AUTOTRACK            PD      09     E7  00000000      01     01  0000C436
AUXSTRG              GD      0B     01  00001B7E      01     02  00001B7E
AUXTYPE              GD      06     77  0000033A      01     01  00006F76
BACKACROSS           GD      02     0E  000000CD      01     01  00001277
BADBLKBUF            PD      0A     EC  00000AEA      01     01  0000D207
BADBLOCKS            PD      0A     EC  00000CEA      01     01  0000D407
BADDES               GD      06     77  00000258      01     01  00006E94
BADFILEBUF           PD      0A     EC  000008EA      01     01  0000D007
BADFILES             PD      0A     EC  000008E6      01     01  0000D003
BADICONFILE          GD      06     77  00000B26      01     01  00007762
BIGERROR1            GD      05     74  00000000      01     01  00006BE9
BIGRECT              PD      08     DD  00000130      01     01  0000C083
BIGRECT              GD      06     77  000006BA      01     01  000072F6
BITMASKS             PD      07     79  0000013E      01     01  00007E8B
BLINKICON            GD      02     10  00000000      01     01  0000142D
BLINKONE             GD      02     10  0000000C      01     01  00001439
BLOCKSIZE            PD      0A     EC  000000CC      01     01  0000C7E9
BLOCKSIZE            GD      04     21  000000DE      01     01  00004B1E
BOLDTABLE            GD      06     77  00000E63      01     01  00007A9F
BOLDTITLE            GD      06     77  00000E61      01     01  00007A9D
BOOTVOL_LIST         GD      04     21  000000C4      01     01  00004B04
BOXRECT              PD      08     DB  00000C82      01     01  0000B8E7
BOXRECT2             PD      08     DB  00000DBA      01     01  0000BA1F
BOXRENAME            GD      01     05  00000123      01     01  00000C5E
BPATTERN             PD      09     E0  00000020      01     01  0000C116
BUFFERHAND           PD      0A     EC  00000026      01     01  0000C743
BUFFERSIZE           PD      0A     EC  000000D0      01     01  0000C7ED
BUILDPATH            PD      08     BF  000002BB      01     01  00009EE0
BUILDPATH            GD      05     63  00000010      01     01  000064B6
BUILDPATH2           GD      05     63  00000032      01     01  000064D8
BUILDPATH3           GD      05     63  00000000      01     01  000064A6
BUILDRECTLIST        GD      05     4A  00000060      01     01  00005B93
BUILDRECTS           GD      05     4A  00000000      01     01  00005B33
BUILDRECTS2          GD      05     4A  00000005      01     01  00005B38
BUSYEC               GD      09     DF  00000000      01     01  0000C0AB
BUSYERR              GD      09     DF  00000003      01     01  0000C0AE
C1_DEVICENAME        PD      07     79  000000C6      01     01  00007E13
C1_DEVICENAME        GD      06     77  0000091A      01     01  00007556
C1_DEVNAMEBUF        PD      07     79  000000C4      01     01  00007E11
C1_DEVNAMEBUF        GD      06     77  00000918      01     01  00007554
C1_DSTPATHNAME       PD      07     79  00000261      01     01  00007FAE
C1_FILENAME          GD      06     77  00000960      01     01  0000759C
C1_FILENAMEBUF       GD      06     77  0000095E      01     01  0000759A
C1_ICONNAME          PD      07     79  00000362      01     01  000080AF
C1_PATH              PD      08     BA  000001B8      01     01  00009A59
C1_PATHNAME          GD      06     77  00000714      01     01  00007350
C1_PATHNAMEBUF       GD      06     77  00000712      01     01  0000734E
C1_QUITNAME          GD      06     77  00000982      01     01  000075BE
C1_SRCPATHNAME       PD      07     79  00000160      01     01  00007EAD
C1_TEMPPATH          GD      06     77  00000817      01     01  00007453
C1_TEMPPATHBUF       GD      06     77  00000815      01     01  00007451
C1_VOLNAME           GD      06     77  0000093C      01     01  00007578
CALCPIXELS           PD      09     E9  00000000      01     01  0000C484
CALCULATERECT        PD      09     E7  00000000      01     01  0000C436
CALLDIALOG           PD      08     C8  00000000      01     01  0000A28C
CALLZOOM             PD      08     DC  00000000      01     01  0000BF13
CANCELEMPTY          GD      06     77  0000029E      01     01  00006EDA
CATALOG              PD      08     BF  00000000      01     01  00009C25
CATALOGSRC           PD      07     85  00000000      01     01  00009008
CATDATA              PD      08     BA  00000000      01     01  000098A1
CAUTION              PD      08     DB  000001FC      01     01  0000AE61
CDAY                 GD      06     77  00000C6D      01     01  000078A9
CDPARTKIND           GD      0B     01  0000221D      01     02  0000221D
CDROMKIND            GD      0B     01  000021C9      01     02  000021C9
CE_ACCESS            PD      08     BA  00000052      01     01  000098F3
CE_AUX_TYPE          PD      08     BA  00000054      01     01  000098F5
CE_BASE              PD      08     BA  0000002E      01     01  000098CF
CE_BLKS_USED         PD      08     BA  0000003E      01     01  000098DF
CE_CLOSE_LIST        PD      08     BA  00000024      01     01  000098C5
CE_CLOSE_NUM         PD      08     BA  00000026      01     01  000098C7
CE_CREATE_DATE       PD      08     BA  00000042      01     01  000098E3
CE_DISP              PD      08     BA  00000030      01     01  000098D1
CE_ENTRY_NUM         PD      08     BA  00000036      01     01  000098D7
CE_EOF               PD      08     BA  0000003A      01     01  000098DB
CE_FILE_TYPE         PD      08     BA  00000038      01     01  000098D9
CE_GET_DIR_LIST      PD      08     BA  00000028      01     01  000098C9
CE_GET_DIR_NUM       PD      08     BA  0000002A      01     01  000098CB
CE_MOD_DATE          PD      08     BA  0000004A      01     01  000098EB
CE_NAME              PD      08     BA  0000005C      01     01  000098FD
CE_NAME_BUFFER       PD      08     BA  00000058      01     01  000098F9
CE_NAME_LEN          PD      08     BA  0000005A      01     01  000098FB
CE_OPEN_LIST         PD      08     BA  0000001C      01     01  000098BD
CE_OPEN_NUM          PD      08     BA  0000001E      01     01  000098BF
CE_PATH_NAME         PD      08     BA  00000020      01     01  000098C1
CE_PRODOS_ENTRY      PD      08     BA  0000008E      01     01  0000992F
CE_TRANSLATE         PD      08     BE  0000004B      01     01  00009BC9
CHANGEDIALOG         PD      08     CB  00000000      01     01  0000A3A9
CHANGEDIALOG         GD      01     08  00000019      01     01  00000DFF
CHANGEMSG            PD      07     AB  00000000      01     01  00009770
CHANGEPATH           PD      07     A0  00000000      01     01  00009478
CHECKDIA             PD      08     D2  00000007      01     01  0000A9F1
CHECKDSTNAME         PD      07     8A  00000000      01     01  00009120
CHECKKEY             PD      07     91  00000000      01     01  000092C3
CHECKMLDIALOG        PD      08     D2  0000000B      01     01  0000A9F5
CHECKMLDIALOG        GD      01     08  0000000A      01     01  00000DF0
CHECKRECTHIT         GD      05     49  00000000      01     01  00005B09
CHKPARTITION         GD      04     3F  00000000      01     01  000056FA
CKDATAERROR          GD      05     74  0000001D      01     01  00006C06
CKDATAWRITE          GD      05     6C  00000000      01     01  0000689D
CKDELFLAG            GD      06     77  00000662      01     01  0000729E
CKDEVICE             GD      04     26  00000000      01     01  00004C7D
CKEXNAME             GD      02     1B  00000253      01     01  00003344
CKFOREXT             GD      05     67  000000E5      01     01  00006719
CKIFINTRASH          GD      02     19  00000542      01     01  00002E99
CKIFWIND             GD      02     1A  0000005D      01     01  000030D2
CKMEMORY             GD      05     75  00000000      01     01  00006C18
CKMENUS              GD      03     1E  00000000      01     01  0000435D
CKROOTS              GD      05     66  00000049      01     01  000065ED
CKSELECT             GD      05     4F  0000000C      01     01  00005CA1
CKVOLUME             GD      04     23  00000000      01     01  00004B7E
CK_LE                PD      08     D3  00000000      01     01  0000AB8B
CLEARDISK            GD      05     56  00000000      01     01  00005F0F
CLIPBLK              GD      06     77  00000111      01     01  00006D4D
CLIPWINTITLE         GD      0B     01  00002309      01     02  00002309
CLIP_END             GD      06     77  00000111      01     01  00006D4D
CLIP_GUTS            GD      02     14  00000000      01     01  00001AF7
CLIP_PARAM           GD      06     77  000000C3      01     01  00006CFF
CLONEPATH            GD      05     65  00000000      01     01  00006576
CLOSEFILE            PD      0A     F3  00000000      01     01  0000D95B
CLOSEFILE            PD      07     95  00000000      01     01  00009344
CLOSEKIDS            GD      05     66  00000000      01     01  000065A4
CLOSEPARAMS          PD      0A     EC  00000064      01     01  0000C781
CLOSE_FILE           GD      04     3D  0000009B      01     01  0000561A
CLOSE_LIST           PD      08     BA  00000008      01     01  000098A9
CLOSE_LIST           GD      04     21  00000032      01     01  00004A72
CLOSE_NUM            GD      04     21  00000034      01     01  00004A74
CLOSE_NUM            PD      08     BA  0000000A      01     01  000098AB
CMENUPATS            GD      06     77  00000EF5      01     01  00007B31
CMENURECTS           GD      06     77  00000E7D      01     01  00007AB9
COLORBACK            PD      09     E0  0000004A      01     01  0000C140
COLORIBACK           PD      09     E0  0000004E      01     01  0000C144
COLORIFORE           PD      09     E0  0000004C      01     01  0000C142
COLORMENU            GD      06     77  000010D5      01     01  00007D11
COLORMENUDEF         GD      09     EB  00000000      01     01  0000C508
COLORPEN             PD      09     E0  00000048      01     01  0000C13E
COLORS               PD      09     E0  00000048      01     01  0000C13E
COMMON               PD      09     DE  00000000      01     01  0000C0AB
COMPARESTRINGS       GD      05     43  00000000      01     01  00005967
CONT1                PD      08     DB  00000AD0      01     01  0000B735
CONT2                PD      08     DB  000009E8      01     01  0000B64D
CONT3                PD      08     DB  00000AA4      01     01  0000B709
CONT4                PD      08     DB  00000A10      01     01  0000B675
CONT5                PD      08     DB  00000C3C      01     01  0000B8A1
CONVERT0TO1          GD      0A    100  00000000      01     01  0000DE3C
CONVERT1TO0          GD      0A    101  00000000      01     01  0000DE6E
COPYDISK             PD      07     7D  00000000      01     01  0000831E
COPYFILES            PD      07     7C  00000000      01     01  0000810A
COPYPATH             GD      0A     FF  00000000      01     01  0000DE18
COUNTER              PD      0A     EC  000000DE      01     01  0000C7FB
COUNTFILES           PD      0A     F1  00000000      01     01  0000D882
CPATH_LIST           PD      04     21  0000011C      01     01  00004B5C
CPREFNUM             PD      0A     EC  00000066      01     01  0000C783
CP_NEWPTR            PD      07     79  00000024      01     01  00007D71
CP_OLDPTR            PD      07     79  00000020      01     01  00007D6D
CP_PARAMS            PD      07     79  0000001E      01     01  00007D6B
CREATEFILE           PD      07     92  00000000      01     01  000092D1
CREATEICON           GD      06     77  00000387      01     01  00006FC3
CREATE_ACCESS        GD      04     21  0000005C      01     01  00004A9C
CREATE_AUX           GD      04     21  00000060      01     01  00004AA0
CREATE_LIST          GD      04     21  00000056      01     01  00004A96
CREATE_NAME          GD      04     21  00000058      01     01  00004A98
CUR2WINDT            GD      05     47  00000000      01     01  00005AE3
CURCURSOR            GD      06     77  00000332      01     01  00006F6E
CURFILE              PD      0A     EC  000000D8      01     01  0000C7F5
CUTICON              GD      02     17  000009DA      01     01  000027F8
CUTNFREE             GD      05     67  0000001C      01     01  00006650
CUTOUTICON           GD      02     17  00000947      01     01  00002765
C_PARAMS             PD      07     79  00000002      01     01  00007D4F
C_REF                PD      07     79  00000004      01     01  00007D51
DATABUFFER           PD      0A     EC  000000E4      01     01  0000C801
DATESTRG             GD      0B     01  00001B63      01     02  00001B63
DAYS                 GD      06     77  00000C95      01     01  000078D1
DEBUGTABLE           GD      06     77  00000B4C      01     01  00007788
DEFAULT              PD      09     E7  00000000      01     01  0000C436
DEFAULTCHG           GD      06     77  00000369      01     01  00006FA5
DEFAULTNAME          GD      06     77  00000058      01     01  00006C94
DELETEFILES          PD      07     7F  00000000      01     01  0000882D
DELETEFLAG           GD      06     77  000005D2      01     01  0000720E
DELETEWARN           GD      01     0A  0000000A      01     01  00000EA3
DELTAX               GD      06     77  000005CC      01     01  00007208
DELTAX2              GD      06     77  000005D0      01     01  0000720C
DELTAY               GD      06     77  000005CA      01     01  00007206
DELTAY2              GD      06     77  000005CE      01     01  0000720A
DEREFHAND            GD      05     53  00000043      01     01  00005EAD
DEREFICON            PD      07     8F  0000000A      01     01  000092AC
DESELECTALL          GD      05     69  00000000      01     01  00006783
DESISTRASH           GD      02     17  000004E0      01     01  000022FE
DESKPAT              GD      06     77  00000073      01     01  00006CAF
DESKPIC              PD      06     77  00000083      01     01  00006CBF
DESKSPOT             GD      05     57  00000000      01     01  00005F49
DESKSTATE            GD      06     77  00000596      01     01  000071D2
DESRECT              PD      08     DB  00000692      01     01  0000B2F7
DESRECT              GD      06     77  00000377      01     01  00006FB3
DESTROYFILE          PD      07     93  00000000      01     01  000092FC
DESTROY_LIST         GD      04     21  00000066      01     01  00004AA6
DEVICEKINDS          GD      06     77  00000C7B      01     01  000078B7
DEVICENAME           GD      06     77  00000A63      01     01  0000769F
DEVICESCAN           GD      04     33  00000000      01     01  00005230
DEVNAME              PD      0A     EC  00000006      01     01  0000C723
DEVNAME              PD      04     21  000000CC      01     01  00004B0C
DEVNAMEBUFF          PD      0A     EC  00000004      01     01  0000C721
DEVNUMBER            PD      0A     EC  00000092      01     01  0000C7AF
DEVNUM_LIST          GD      06     77  00000C13      01     01  0000784F
DEVNUM_NAME          PD      06     77  00000C15      01     01  00007851
DEVNUM_NUM           GD      06     77  00000C19      01     01  00007855
DEVSTATUSTBL         GD      06     77  0000025C      01     01  00006E98
DIAADDRS             PD      08     DB  00000544      01     01  0000B1A9
DIADATA              PD      08     C7  00000000      01     01  0000A033
DIALCOLOR            PD      08     C7  00000203      01     01  0000A236
DIALHANDLE           PD      08     C7  000001FF      01     01  0000A232
DIALMAX              PD      08     C7  000001FD      01     01  0000A230
DIALOGS              PD      08     DB  00000000      01     01  0000AC65
DIALVALUE            PD      08     C7  000001FB      01     01  0000A22E
DIAW_CLR             PD      08     C7  0000021F      01     01  0000A252
DIAW_DATAH           PD      08     C7  00000227      01     01  0000A25A
DIAW_DATAW           PD      08     C7  00000229      01     01  0000A25C
DIAW_DEF             PD      08     C7  0000023D      01     01  0000A270
DIAW_DRAW            PD      08     C7  00000245      01     01  0000A278
DIAW_END             PD      08     C7  00000259      01     01  0000A28C
DIAW_FRAME           PD      08     C7  0000020D      01     01  0000A240
DIAW_FULL            PD      08     C7  00000217      01     01  0000A24A
DIAW_HOFF            PD      08     C7  00000225      01     01  0000A258
DIAW_HPAGE           PD      08     C7  00000235      01     01  0000A268
DIAW_HSCRL           PD      08     C7  00000231      01     01  0000A264
DIAW_INFO            PD      08     C7  00000241      01     01  0000A274
DIAW_INFOH           PD      08     C7  0000023B      01     01  0000A26E
DIAW_INFOT           PD      08     C7  00000237      01     01  0000A26A
DIAW_MAX_H           PD      08     C7  0000022B      01     01  0000A25E
DIAW_MAX_W           PD      08     C7  0000022D      01     01  0000A260
DIAW_PARAM           PD      08     C7  0000020B      01     01  0000A23E
DIAW_PLANE           PD      08     C7  00000251      01     01  0000A284
DIAW_POS             PD      08     C7  00000249      01     01  0000A27C
DIAW_REC             PD      08     C7  00000255      01     01  0000A288
DIAW_REF             PD      08     C7  00000213      01     01  0000A246
DIAW_SIZE            PD      08     C7  0000020B      01     01  0000A23E
DIAW_TITLE           PD      08     C7  0000020F      01     01  0000A242
DIAW_VOFF            PD      08     C7  00000223      01     01  0000A256
DIAW_VPAGE           PD      08     C7  00000233      01     01  0000A266
DIAW_VSCRL           PD      08     C7  0000022F      01     01  0000A262
DINFOPARAMS          PD      0A     EC  00000094      01     01  0000C7B1
DINFO_DEVCHAR        GD      04     21  0000010A      01     01  00004B4A
DINFO_DEVID          GD      04     21  00000116      01     01  00004B56
DINFO_DEVNUM         GD      04     21  00000104      01     01  00004B44
DINFO_LIST           GD      04     21  00000102      01     01  00004B42
DIPBLOCKS            PD      0A     EC  0000009E      01     01  0000C7BB
DIPDEVNUMBER         PD      0A     EC  00000096      01     01  0000C7B3
DIRECTPARAMS         PD      0A     EC  00000068      01     01  0000C785
DIRFULLERR           GD      06     77  00000B77      01     01  000077B3
DISKICON             PD      08     DB  00000000      01     01  0000AC65
DISPOSECONTROL       PD      09     E7  00000000      01     01  0000C436
DI_DEVNAME           PD      07     79  000000B4      01     01  00007E01
DI_DEVNUM            PD      07     79  000000B2      01     01  00007DFF
DI_PARAMS            PD      07     79  000000B0      01     01  00007DFD
DNUMPARAMS           PD      0A     EC  0000008C      01     01  0000C7A9
DOALERT              GD      0A    103  00000000      01     01  0000DEE4
DOBBWIND             PD      0A     EC  000000E2      01     01  0000C7FF
DOCLOSE              PD      08     C2  00000000      01     01  00009F66
DOCLOSE              GD      02     1B  00000000      01     01  000030F1
DOCLOSE2             GD      02     1B  00000027      01     01  00003118
DOCREATE             GD      04     3C  00000000      01     01  00005530
DODIALOG             PD      0A     FA  00000000      01     01  0000DAAD
DODIALOG             PD      08     C5  00000000      01     01  00009FF1
DODIALOG             PD      07     A9  00000000      01     01  00009733
DOFILECOPY           PD      07     81  00000000      01     01  00008AA9
DOFORMAT             GD      04     28  00000008      01     01  00004D1E
DOGETFILEINFO        GD      04     39  00000000      01     01  000054E3
DOOPEN               PD      08     C1  00000000      01     01  00009F54
DOREAD               PD      0A     F0  00000000      01     01  0000D80A
DOREAD               GD      04     3D  00000000      01     01  0000557F
DOREMOVE             GD      03     1D  00000529      01     01  00003989
DOSETMARK            GD      04     38  00000000      01     01  000054CF
DOSETPREFIX          GD      04     37  00000010      01     01  000054BB
DOSETPREFIX2         GD      04     37  0000000A      01     01  000054B5
DOSHIFT              PD      0A    102  00000010      01     01  0000DEC0
DOS_VAR              GD      04     21  00000000      01     01  00004A40
DOUBLESPEED          GD      06     77  00000338      01     01  00006F74
DOVOLUME             GD      04     27  00000015      01     01  00004CB5
DOWRITE              GD      04     3D  0000003E      01     01  000055BD
DPBASE               PD      0A     EC  0000006E      01     01  0000C78B
DPDISP               PD      0A     EC  00000070      01     01  0000C78D
DPENTRYNUM           PD      0A     EC  00000076      01     01  0000C793
DPFILETYPE           PD      0A     EC  00000078      01     01  0000C795
DPREFNUM             PD      0A     EC  0000006A      01     01  0000C787
DRAGCONTROL          PD      09     E7  00000000      01     01  0000C436
DRAGDELTAX           GD      06     77  0000031E      01     01  00006F5A
DRAGDELTAY           GD      06     77  0000031C      01     01  00006F58
DRAGPATT             GD      06     77  0000002A      01     01  00006C66
DRAGRECTS            GD      02     13  00000000      01     01  0000175A
DRAWCONTROL          PD      09     E4  00000000      01     01  0000C397
DRAWDESK             GD      02     0E  00000000      01     01  000011AA
DRAWDESKICON         GD      02     0D  000000A7      01     01  0000117D
DRAWDEVLOCK          GD      02     16  00000000      01     01  00001DB1
DRAWDIAGUTS          PD      08     D1  00000000      01     01  0000A47E
DRAWICON             GD      02     11  00000000      01     01  00001448
DRAWICON2            GD      02     11  00000004      01     01  0000144C
DRAWINDICATOR        PD      09     E2  00000000      01     01  0000C333
DRAWREQUEST          GD      06     77  0000031A      01     01  00006F56
DREADPARAMS          PD      0A     EC  000000A2      01     01  0000C7BF
DRECT                PD      08     DB  00000C72      01     01  0000B8D7
DRECT2               PD      08     DB  00000DAA      01     01  0000BA0F
DRIVETEXT            GD      0B     01  00001AE7      01     02  00001AE7
DRPBLOCK             PD      0A     EC  000000AE      01     01  0000C7CB
DRPBLOCKSIZE         PD      0A     EC  000000B2      01     01  0000C7CF
DRPDATAPTR           PD      0A     EC  000000A6      01     01  0000C7C3
DRPDEVNUMBER         PD      0A     EC  000000A4      01     01  0000C7C1
DRPREQBYTES          PD      0A     EC  000000AA      01     01  0000C7C7
DRPTRANBYTES         PD      0A     EC  000000B4      01     01  0000C7D1
DSTAT_DATA           GD      04     21  000000FC      01     01  00004B3C
DSTAT_DEVNUM         GD      04     21  000000EC      01     01  00004B2C
DSTAT_LIST           GD      04     21  000000EA      01     01  00004B2A
DTABOUT              PD      08     DB  000006AA      01     01  0000B30F
DTANYWIND            PD      08     DB  0000073E      01     01  0000B3A3
DTBADNAME            PD      08     DB  00000CA2      01     01  0000B907
DTCANNTDUP           PD      08     DB  00000FE0      01     01  0000BC45
DTCHPATH             PD      08     DB  00000960      01     01  0000B5C5
DTCOPYERR            PD      08     DB  00000F82      01     01  0000BBE7
DTCOPYING            PD      08     DB  00000978      01     01  0000B5DD
DTCOPYING2           PD      08     DB  0000099C      01     01  0000B601
DTDAMAGED            PD      08     DB  00001298      01     01  0000BEFD
DTDCOPY              PD      08     DB  00000AE2      01     01  0000B747
DTDESERR             PD      08     DB  00001028      01     01  0000BC8D
DTDIRFULL            PD      08     DB  00000930      01     01  0000B595
DTDIRWIND            PD      08     DB  00000712      01     01  0000B377
DTDISKIN             PD      08     DB  00000782      01     01  0000B3E7
DTDISKNAME           PD      08     DB  0000066A      01     01  0000B2CF
DTDISKON             PD      08     DB  00000FF8      01     01  0000BC5D
DTDRAGERR1           PD      08     DB  00000810      01     01  0000B475
DTDRAGERR2           PD      08     DB  00000826      01     01  0000B48B
DTDRAGERR3           PD      08     DB  0000083A      01     01  0000B49F
DTDRAGERR4           PD      08     DB  00000FCA      01     01  0000BC2F
DTDRAGFOLD           PD      08     DB  000010C2      01     01  0000BD27
DTDRAGOFF            PD      08     DB  0000076A      01     01  0000B3CF
DTDUPDEV             PD      08     DB  0000100E      01     01  0000BC73
DTDUPVOLERR          PD      08     DB  00000F20      01     01  0000BB85
DTEDIT               PD      08     DB  000006FC      01     01  0000B361
DTERASE              PD      08     DB  000007D4      01     01  0000B439
DTFCOPY              PD      08     DB  00000B80      01     01  0000B7E5
DTFILLTRASH          PD      08     DB  00000798      01     01  0000B3FD
DTFOLDER             PD      08     DB  00000A86      01     01  0000B6EB
DTGETBOOT            PD      08     DB  00000F98      01     01  0000BBFD
DTHELP               PD      08     DB  00000DC2      01     01  0000BA27
DTHELP1              PD      08     DB  00000E1E      01     01  0000BA83
DTHELP2              PD      08     DB  00000E4A      01     01  0000BAAF
DTHELP3              PD      08     DB  00000E68      01     01  0000BACD
DTHELP4              PD      08     DB  00000E82      01     01  0000BAE7
DTHELP5              PD      08     DB  00000EA4      01     01  0000BB09
DTHELP6              PD      08     DB  00000EBE      01     01  0000BB23
DTHELPMAIN           PD      08     DB  00000DC6      01     01  0000BA2B
DTINIT               PD      08     DB  000005FC      01     01  0000B261
DTINIT2              PD      08     DB  00000EDC      01     01  0000BB41
DTINITERR1           PD      08     DB  00000638      01     01  0000B29D
DTINITERR2           PD      08     DB  00000652      01     01  0000B2B7
DTINSDISK            PD      08     DB  000008A0      01     01  0000B505
DTINTRASH            PD      08     DB  00000622      01     01  0000B287
DTIOERR              PD      08     DB  000010A8      01     01  0000BD0D
DTLOCKED1            PD      08     DB  00000A4E      01     01  0000B6B3
DTLOCKED2            PD      08     DB  00000A6C      01     01  0000B6D1
DTMAXWINDS           PD      08     DB  00001094      01     01  0000BCF9
DTMEMERR             PD      08     DB  00001056      01     01  0000BCBB
DTNAMEDUP            PD      08     DB  00000C28      01     01  0000B88D
DTNAMEUSED           PD      08     DB  00000C8A      01     01  0000B8EF
DTNOAPP              PD      08     DB  00000BBE      01     01  0000B823
DTNOAPP2             PD      08     DB  000007BC      01     01  0000B421
DTNOMEDIA            PD      08     DB  00000F06      01     01  0000BB6B
DTNOMEM              PD      08     DB  00000B6A      01     01  0000B7CF
DTNONAMES            PD      08     DB  00000CB6      01     01  0000B91B
DTNONREMOVE          PD      08     DB  00000CCC      01     01  0000B931
DTNOREAD1            PD      08     DB  00000946      01     01  0000B5AB
DTNOREAD2            PD      08     DB  00000F42      01     01  0000BBA7
DTNOROOM             PD      08     DB  00000AB6      01     01  0000B71B
DTNUMBLKS            PD      08     DB  00000BDA      01     01  0000B83F
DTNUMBLKS2           PD      08     DB  00000C08      01     01  0000B86D
DTODDCOUPLE          PD      08     DB  0000106C      01     01  0000BCD1
DTPARENTS            PD      08     DB  000009D4      01     01  0000B639
DTPREFER             PD      08     DB  00000CE0      01     01  0000B945
DTRENAMEERR          PD      08     DB  00000F5E      01     01  0000BBC3
DTRENAMEERR2         PD      08     DB  00000FB2      01     01  0000BC17
DTRENAMEERR3         PD      08     DB  0000103E      01     01  0000BCA3
DTRENAMEERR4         PD      08     DB  00001080      01     01  0000BCE5
DTREPDISK            PD      08     DB  00000A2A      01     01  0000B68F
DTREPFILE            PD      08     DB  000008CA      01     01  0000B52F
DTSELFILE            PD      08     DB  00000754      01     01  0000B3B9
DTSELICON            PD      08     DB  00000728      01     01  0000B38D
DTSHUTDOWN           PD      08     DB  00001188      01     01  0000BDED
DTSHUTDOWN2          PD      08     DB  00001264      01     01  0000BEC9
DTSYSERR             PD      08     DB  00000850      01     01  0000B4B5
DTTOOLONG            PD      08     DB  000007FC      01     01  0000B461
DTTOOMANY            PD      08     DB  000010D6      01     01  0000BD3B
DTTRANSFILE          PD      08     DB  00000D48      01     01  0000B9AD
DTTYPE               PD      08     DB  000009FE      01     01  0000B663
DTUNKNOWN            PD      08     DB  00000B52      01     01  0000B7B7
DTVALID              PD      08     DB  000011CE      01     01  0000BE33
DTVALID2             PD      08     DB  000011FC      01     01  0000BE61
DTVALIDBAD           PD      08     DB  0000123E      01     01  0000BEA3
DTVALIDGOOD          PD      08     DB  00001220      01     01  0000BE85
DTVERIFY             PD      08     DB  000010EC      01     01  0000BD51
DTVERIFY2            PD      08     DB  0000111C      01     01  0000BD81
DTVERIFYBAD          PD      08     DB  0000115E      01     01  0000BDC3
DTVERIFYGOOD         PD      08     DB  0000113C      01     01  0000BDA1
DTVOLFULL            PD      08     DB  0000091A      01     01  0000B57F
DTWARNDEL            PD      08     DB  00000D30      01     01  0000B995
DTWP                 PD      08     DB  00000876      01     01  0000B4DB
DUMPEXTICON          GD      05     6A  00000061      01     01  00006818
DUPDEVICE            GD      04     2A  00000000      01     01  00004F15
DUPDEVICE2           GD      04     2A  00000009      01     01  00004F1E
DUPFILES             PD      07     80  00000000      01     01  00008926
DUPICON              GD      06     77  00000314      01     01  00006F50
D_NAME               PD      07     79  000000BA      01     01  00007E07
D_PARAMS             PD      07     79  000000B8      01     01  00007E05
EDITMENU             GD      03     1F  000000FB      01     01  000046B4
EJECTALL             GD      04     32  00000020      01     01  00005204
EJECTDISK2           GD      04     23  000000B4      01     01  00004C32
EJECTMEDIA           GD      04     32  00000000      01     01  000051E4
EMPTYTRASH           GD      03     1D  00000089      01     01  000034E9
ENDCALL              GD      09     DF  00000009      01     01  0000C0B4
ENDCAT               PD      08     BE  000000A4      01     01  00009C22
ENDCATALOG           PD      08     BD  00000000      01     01  00009B75
ENDDIALOG            PD      08     CD  00000000      01     01  0000A3DF
ENDDIALOG            GD      01     08  00000014      01     01  00000DFA
ENDDRAW              GD      05     4B  00000026      01     01  00005C48
ENDDYNAMRAM          GD      06     77  000006F0      01     01  0000732C
ENDINFOBLK           GD      06     77  0000018B      01     01  00006DC7
ENDINITRAM           GD      06     77  00000662      01     01  0000729E
ENDMSG               PD      07     AC  00000000      01     01  00009786
ENDSAVEBLK           GD      06     77  00000918      01     01  00007554
ENDVALIDATEBLK       GD      06     77  0000024C      01     01  00006E88
ENDVERIFYBLK         GD      06     77  0000020F      01     01  00006E4B
ENDZERORAM           GD      06     77  000005D4      01     01  00007210
ENTERHELP            PD      08     DB  00000E42      01     01  0000BAA7
ENTERINIT            PD      08     DB  0000060E      01     01  0000B273
ENTERINIT2           PD      08     DB  0000061C      01     01  0000B281
ENTRYCOUNT           PD      0A     EC  000000D6      01     01  0000C7F3
EOF_BASE             GD      04     21  000000BE      01     01  00004AFE
EOF_LIST             GD      04     21  000000BA      01     01  00004AFA
EOF_NUM              GD      04     21  000000BC      01     01  00004AFC
EOF_PLACE            GD      04     21  000000C0      01     01  00004B00
ERASE                GD      04     3D  000000AC      01     01  0000562B
ERASEDISK            PD      07     A6  00000000      01     01  00009504
ERASEICON            GD      02     0D  00000000      01     01  000010D6
ERASEINDICATOR       PD      09     E3  00000000      01     01  0000C365
ERASE_DEVNAME        GD      04     21  000000AE      01     01  00004AEE
ERASE_FILESYS        GD      04     21  000000B8      01     01  00004AF8
ERASE_LIST           GD      04     21  000000AC      01     01  00004AEC
ERASE_VOLNAME        GD      04     21  000000B2      01     01  00004AF2
ERRORTABLE           GD      06     77  00000A85      01     01  000076C1
ERROR_CODE           PD      08     B2  00000002      01     01  0000982F
ERROUT               GD      09     DF  0000000C      01     01  0000C0B7
EVENTREC             GD      06     77  0000038D      01     01  00006FC9
EVENTREC             PD      07     79  0000010C      01     01  00007E59
EXITMENU             GD      03     1C  0000002E      01     01  0000340A
EXTCOPY              GD      06     77  00000592      01     01  000071CE
EXTFUNC              GD      05     67  00000117      01     01  0000674B
E_DEVNAME            PD      07     79  00000070      01     01  00007DBD
E_FILESYS            PD      07     79  00000078      01     01  00007DC5
E_PARAMS             PD      07     79  0000006E      01     01  00007DBB
E_REQFILESYS         PD      07     79  0000007A      01     01  00007DC7
E_VOLNAME            PD      07     79  00000074      01     01  00007DC1
FDEVNAME             GD      04     21  000000A2      01     01  00004AE2
FETCHPATH            PD      04     30  00000000      01     01  00005180
FILECOUNT            PD      0A     EC  000000DA      01     01  0000C7F7
FILEENTRY            GD      07     7A  00000000      01     01  000080D1
FILEMENU             GD      03     1F  00000041      01     01  000045FA
FILENAME             PD      07     79  000000EA      01     01  00007E37
FILENAMEBUFF         PD      07     79  000000E8      01     01  00007E35
FILEROUTINES         PD      07     78  00000000      01     01  00007D39
FILESTARTUP          PD      07     7B  00000000      01     01  000080EF
FILESYS0             GD      0B     01  00001BD5      01     02  00001BD5
FILESYS1             GD      0B     01  00001BDD      01     02  00001BDD
FILESYS2             GD      0B     01  00001BE4      01     02  00001BE4
FILESYS3             GD      0B     01  00001BEC      01     02  00001BEC
FILESYS4             GD      0B     01  00001BF8      01     02  00001BF8
FILESYS5             GD      0B     01  00001C08      01     02  00001C08
FILESYS6             GD      0B     01  00001C12      01     02  00001C12
FILESYS7             GD      0B     01  00001C1C      01     02  00001C1C
FILESYS8             GD      0B     01  00001C21      01     02  00001C21
FILESYSA             GD      0B     01  00001C2C      01     02  00001C2C
FILESYSB             GD      0B     01  00001C33      01     02  00001C33
FILESYSC             GD      0B     01  00001C3F      01     02  00001C3F
FILESYSID            GD      04     21  000000DC      01     01  00004B1C
FILESYSNAMES         GD      06     77  00000DE1      01     01  00007A1D
FILE_TYPE            GD      04     21  0000005E      01     01  00004A9E
FILLRECT             PD      09     E0  000000BC      01     01  0000C1B2
FINDDISK             GD      02     18  0000001E      01     01  0000289F
FINDDISKDEV          GD      04     24  00000000      01     01  00004C37
FINDDISKDEV2         GD      04     24  00000014      01     01  00004C4B
FINDER               PD      01     03  00000000      01     01  0000033C
FINDERSAVEALL        GD      01     07  00000000      01     01  00000D97
FINDERSICBLKN        GD      06     77  00000064      01     01  00006CA0
FINDLASTNAME         GD      05     60  00000000      01     01  00006438
FINDOWNERIC          GD      02     18  00000000      01     01  00002881
FINDROOTIC           GD      05     68  00000000      01     01  00006756
FINDSELECT           GD      05     4F  00000000      01     01  00005C95
FINDVOL              GD      04     25  00000000      01     01  00004C6A
FI_ACCESS            PD      07     79  00000048      01     01  00007D95
FI_ATYPE             PD      07     79  0000004C      01     01  00007D99
FI_BLKSUSED          PD      07     79  0000006A      01     01  00007DB7
FI_CDATE             PD      07     79  00000052      01     01  00007D9F
FI_EOF               PD      07     79  00000066      01     01  00007DB3
FI_FTYPE             PD      07     79  0000004A      01     01  00007D97
FI_MDATE             PD      07     79  0000005A      01     01  00007DA7
FI_NAME              PD      07     79  00000044      01     01  00007D91
FI_OPTION            PD      07     79  00000062      01     01  00007DAF
FI_PARAMS            PD      07     79  00000042      01     01  00007D8F
FI_STYPE             PD      07     79  00000050      01     01  00007D9D
FLIPSCREEN           PD      03     20  00000000      01     01  0000487E
FLOPCOUNT            GD      06     77  00000326      01     01  00006F62
FLOPKIND             GD      0B     01  000021A3      01     02  000021A3
FORMATDISK           GD      04     28  00000000      01     01  00004D16
FORMAT_LIST          GD      04     21  000000A0      01     01  00004AE0
FRDATA               PD      07     79  00000000      01     01  00007D4D
FREEBLKS             GD      04     21  000000D8      01     01  00004B18
FREEINFOBLK          GD      02     1B  00000222      01     01  00003313
FREERECTRGN          GD      02     0D  00000084      01     01  0000115A
FREESTRG             GD      0B     01  00001BA6      01     02  00001BA6
FRIDAY               GD      0B     01  0000218D      01     02  0000218D
FSYSID               GD      04     21  000000AA      01     01  00004AEA
FUNCTIONKEY          GD      06     77  0000036B      01     01  00006FA7
FVOLNAME             GD      04     21  000000A6      01     01  00004AE6
GDN_DEVNUM           PD      07     79  000000AE      01     01  00007DFB
GDN_NAME             PD      07     79  000000AA      01     01  00007DF7
GDN_PARAMS           PD      07     79  000000A8      01     01  00007DF5
GDN_PARAMS           GD      06     77  0000024C      01     01  00006E88
GETBIGPTR            GD      05     40  0000002F      01     01  0000576D
GETBIGRECT           GD      02     1A  00000009      01     01  0000307E
GETBIGRECT2          GD      02     1A  0000000D      01     01  00003082
GETBUFFER            PD      07     83  00000000      01     01  00008FBB
GETCREATEDATE        PD      07     7E  00000000      01     01  000087EC
GETDATA              PD      08     D9  00000000      01     01  0000AC47
GETDESKWINDBLK       GD      05     50  00000098      01     01  00005D75
GETDEVINFO           PD      07     A4  00000000      01     01  000094DC
GETDEVNUM            PD      07     A3  00000000      01     01  000094C8
GETDEVNUMBER         PD      0A     F5  00000000      01     01  0000D98E
GETDIRENTRY          PD      0A     F4  00000000      01     01  0000D970
GETDSTFILESYS        PD      07     7C  00000132      01     01  0000823C
GETENTRY             PD      08     C3  00000000      01     01  00009F7E
GETEOF               PD      07     9F  00000000      01     01  00009464
GETEXTNAME           GD      05     64  00000000      01     01  0000654F
GETFILEINFO          PD      08     C0  00000000      01     01  00009F42
GETFILEINFO          PD      07     98  00000000      01     01  0000939C
GETFILEINFO2         PD      07     9A  00000000      01     01  000093C8
GETFILEINFO3         PD      07     9B  00000000      01     01  000093DC
GETFRONTWIND         GD      05     46  00000018      01     01  00005A7E
GETHEADICON          GD      05     50  000000B9      01     01  00005D96
GETICNAMEPTR         GD      05     5C  00000000      01     01  000063A3
GETICNAMEPTR2        GD      05     5C  00000018      01     01  000063BB
GETICONPTR           GD      05     40  00000000      01     01  0000573E
GETICONRECT          GD      05     51  00000000      01     01  00005DAB
GETINFO_GUTS         GD      02     15  00000000      01     01  00001B9A
GETMARK              PD      07     9D  00000000      01     01  00009426
GETNAME              GD      01     09  00000000      01     01  00000E7B
GETNAME              PD      08     D5  00000000      01     01  0000ABE7
GETNEXTCAT           PD      07     82  00000044      01     01  00008F31
GETNEXTFILE          PD      07     82  00000000      01     01  00008EED
GETNEXTICON          PD      07     8D  00000000      01     01  0000924B
GETNEXTWIND          GD      05     46  0000002E      01     01  00005A94
GETNUMENTRIES        PD      08     C3  00000013      01     01  00009F91
GETPATTERN           GD      01     06  00000000      01     01  00000D4E
GETRADIOBTN          PD      08     D8  00000000      01     01  0000AC31
GETRECTRGN           GD      05     4A  00000023      01     01  00005B56
GETROOTNAME          GD      05     61  00000000      01     01  00006461
GETSELICON           PD      07     8D  00000022      01     01  0000926D
GETSMALLPTR          GD      05     40  0000003C      01     01  0000577A
GETSMALLRECT         GD      02     1A  0000003B      01     01  000030B0
GETVALIDGUTS         GD      0A     FD  00000000      01     01  0000DC70
GETVALIDINFO         GD      0A     FE  00000000      01     01  0000DD22
GETVERIFYGUTS        GD      0A     FB  00000000      01     01  0000DAF1
GETVERIFYINFO        GD      0A     FC  00000000      01     01  0000DB7E
GETVOLINFO           PD      07     A5  00000000      01     01  000094F0
GETVOLNAME           GD      04     27  00000000      01     01  00004CA0
GETVOLSIZES          PD      05     76  00000000      01     01  00006C24
GETVOLSIZES          PD      07     99  00000000      01     01  000093AE
GETWINDID            GD      05     46  00000048      01     01  00005AAE
GETWINDID2           GD      05     46  00000075      01     01  00005ADB
GETWINDPATH          GD      05     5E  00000000      01     01  000063FE
GETWOFFSET           GD      05     48  00000000      01     01  00005AEC
GETWOFFSET2          GD      05     48  00000003      01     01  00005AEF
GETWREFCON           GD      05     50  00000088      01     01  00005D65
GETWREFCON2          GD      05     50  0000008C      01     01  00005D69
GE_NUMBYTES          PD      07     79  0000002C      01     01  00007D79
GE_PARAMS            PD      07     79  00000028      01     01  00007D75
GE_REF               PD      07     79  0000002A      01     01  00007D77
GM_PARAMS            PD      07     79  00000030      01     01  00007D7D
GM_POSITION          PD      07     79  00000034      01     01  00007D81
GM_REF               PD      07     79  00000032      01     01  00007D7F
GRABEXTEND           GD      02     1B  0000024A      01     01  0000333B
GROWZOOM             GD      02     1A  00000000      01     01  00003075
GROWZOOM2            GD      02     1A  00000003      01     01  00003078
GSICONS              GD      06     77  00000044      01     01  00006C80
GSOSERROR            PD      0A     F6  00000000      01     01  0000D9A0
HANDERR1             GD      06     77  00000B93      01     01  000077CF
HANDERR2             GD      06     77  00000BBB      01     01  000077F7
HANDERR3             GD      06     77  00000BE5      01     01  00007821
HANDLEEVENT          GD      01     04  00000000      01     01  000006E6
HARDKIND             GD      0B     01  00002199      01     02  00002199
HDPARTKIND           GD      0B     01  00002209      01     02  00002209
HEADICON             GD      02     17  00000470      01     01  0000228E
HILITEMENU           GD      03     1C  0000001E      01     01  000033FA
HITICONNAME          GD      01     05  000001F5      01     01  00000D30
HITTEST              GD      02     17  00000A24      01     01  00002842
HNDLMENU             GD      03     1C  00000000      01     01  000033DC
IBKIND               GD      0B     01  00001BC6      01     02  00001BC6
IBLASTTIME           GD      0B     01  00001BB8      01     02  00001BB8
IBNAME               GD      0B     01  00001BD0      01     02  00001BD0
IBSIZE               GD      0B     01  00001BCB      01     02  00001BCB
ICONSELECTED         GD      06     77  00000365      01     01  00006FA1
IDFLAG               GD      06     77  00000328      01     01  00006F64
ID_ABOUT             PD      03     1D  00000000      01     01  00003460
ID_BYDATE            GD      03     1D  00000782      01     01  00003BE2
ID_BYICON            GD      03     1D  00000778      01     01  00003BD8
ID_BYKIND            GD      03     1D  0000078C      01     01  00003BEC
ID_BYNAME            GD      03     1D  0000077D      01     01  00003BDD
ID_BYSICON           GD      03     1D  00000773      01     01  00003BD3
ID_BYSIZE            GD      03     1D  00000787      01     01  00003BE7
ID_CLEANUP           GD      03     1D  00000816      01     01  00003C76
ID_CLEAR             GD      03     1D  000006FA      01     01  00003B5A
ID_CLOSE             GD      03     1D  000002D2      01     01  00003732
ID_CLSALL            GD      03     1D  00000BCC      01     01  0000402C
ID_COPY              GD      03     1D  000006F0      01     01  00003B50
ID_CUT               GD      03     1D  000006EB      01     01  00003B4B
ID_DUP               GD      03     1D  0000043D      01     01  0000389D
ID_EJECT             GD      03     1D  000006B4      01     01  00003B14
ID_EMPTY             GD      03     1D  00000083      01     01  000034E3
ID_ERASE             GD      03     1D  00000A57      01     01  00003EB7
ID_FORMAT            GD      03     1D  00000AEE      01     01  00003F4E
ID_GETINFO           GD      03     1D  000002EC      01     01  0000374C
ID_HELP              GD      03     1D  0000003F      01     01  0000349F
ID_NFOLDER           GD      03     1D  000001B4      01     01  00003614
ID_OPEN              GD      03     1D  000002C5      01     01  00003725
ID_PASTE             GD      03     1D  000006F5      01     01  00003B55
ID_PREFER            GD      03     1D  00000BEA      01     01  0000404A
ID_PRINT             GD      03     1D  00000073      01     01  000034D3
ID_PUTBACK           GD      03     1D  000005DE      01     01  00003A3E
ID_QUIT              GD      03     1D  00000BDD      01     01  0000403D
ID_REMOVE            GD      03     1D  00000516      01     01  00003976
ID_RENAME            GD      03     1D  00000C40      01     01  000040A0
ID_SCLIP             GD      03     1D  00000769      01     01  00003BC9
ID_SELALL            GD      03     1D  0000071C      01     01  00003B7C
ID_SHUTDOWN          GD      03     1D  00000DAC      01     01  0000420C
ID_UNDO              GD      03     1D  000006E6      01     01  00003B46
ID_VALIDATE          GD      03     1D  00000E50      01     01  000042B0
ID_VERIFY            GD      03     1D  00000CA2      01     01  00004102
IFDESK               GD      05     4C  00000000      01     01  00005C55
INACTFILE            GD      04     3B  00000000      01     01  0000551B
INACTTITLE           GD      0B     01  00001AA1      01     02  00001AA1
INDEX                PD      0A     EC  00000CEE      01     01  0000D40B
INFOBLK              GD      06     77  00000175      01     01  00006DB1
INFOBLKPTR           GD      06     77  0000012F      01     01  00006D6B
INFOWINDCOUNT        GD      06     77  00000254      01     01  00006E90
INFOWINTITLE         GD      0B     01  00002315      01     02  00002315
INFOWRECT            GD      06     77  00000165      01     01  00006DA1
INFO_ACCESS          GD      04     21  0000007A      01     01  00004ABA
INFO_ACCESS          PD      08     BA  00000012      01     01  000098B3
INFO_AUX             GD      04     21  0000007E      01     01  00004ABE
INFO_AUX             PD      08     BA  00000016      01     01  000098B7
INFO_BLOCKS          GD      04     21  0000009C      01     01  00004ADC
INFO_CDATE           GD      04     21  00000084      01     01  00004AC4
INFO_END             GD      06     77  00000175      01     01  00006DB1
INFO_EOF             GD      04     21  00000098      01     01  00004AD8
INFO_GUTS            GD      02     0F  00000000      01     01  0000129A
INFO_LIST            PD      08     BA  0000000C      01     01  000098AD
INFO_LIST            GD      04     21  00000074      01     01  00004AB4
INFO_MDATE           GD      04     21  0000008C      01     01  00004ACC
INFO_NAME            GD      04     21  00000076      01     01  00004AB6
INFO_OPTION          GD      04     21  00000094      01     01  00004AD4
INFO_PARAM           GD      06     77  00000127      01     01  00006D63
INFO_PATH            PD      08     BA  0000000E      01     01  000098AF
INFO_STORAGE         PD      08     BA  0000001A      01     01  000098BB
INFO_STORE           GD      04     21  00000082      01     01  00004AC2
INFO_TYPE            GD      04     21  0000007C      01     01  00004ABC
INFO_TYPE            PD      08     BA  00000014      01     01  000098B5
INIT                 PD      01     01  00000000      01     01  00000000
INITCONTROL          PD      09     E7  00000000      01     01  0000C436
INTOICON             GD      06     77  00000336      01     01  00006F72
IPATTERN             PD      09     E0  00000000      01     01  0000C0F6
ISRAMDISK            GD      06     77  00000324      01     01  00006F60
ITEMSSTRG            GD      0B     01  00001B84      01     02  00001B84
ITEMSTRG             GD      0B     01  00001B8F      01     02  00001B8F
JUSTROOTNAME         GD      05     45  00000060      01     01  00005A14
KILLICON             GD      05     73  00000000      01     01  00006B9A
KILLINFOWIND         GD      02     1B  000001A0      01     01  00003291
KILLKIDS2            GD      05     6A  00000022      01     01  000067D9
KILLKIDS3            GD      05     6A  00000000      01     01  000067B7
KILLLE               PD      08     CF  00000000      01     01  0000A428
KINDTOSTRING         GD      05     42  00000000      01     01  00005939
KSTRG                GD      06     77  00000C5B      01     01  00007897
LASTCLICKX           GD      06     77  0000059C      01     01  000071D8
LASTCLICKY           GD      06     77  0000059A      01     01  000071D6
LASTNAME             GD      06     77  000006F0      01     01  0000732C
LASTSCRAPCOUNT       GD      06     77  0000029C      01     01  00006ED8
LASTSTATE            GD      06     77  00000598      01     01  000071D4
LEBOX                PD      08     DB  000006A2      01     01  0000B307
LEICON               GD      06     77  00000371      01     01  00006FAD
LENERROR             GD      01     0A  00000000      01     01  00000E99
LENGTH               PD      09     E0  00000042      01     01  0000C138
LEVELARRAY           PD      08     BA  000000D7      01     01  00009978
LEWIND               GD      06     77  0000036D      01     01  00006FA9
LOADBLK              GD      04     3E  00000000      01     01  00005646
LOADBLK2             GD      04     3E  00000006      01     01  0000564C
LOADDATAERR          GD      06     77  00000A8F      01     01  000076CB
LOADICONS            GD      04     36  00000000      01     01  000053AF
LOADTOOLSERR         GD      06     77  00000AC1      01     01  000076FD
LOCKFILE             GD      04     3A  00000000      01     01  000054EE
LOCKIC               GD      05     53  00000016      01     01  00005E80
LOCKICBLK            GD      05     53  00000000      01     01  00005E6A
LOCKICON             PD      07     8F  00000000      01     01  000092A2
LOCKTITLE            GD      0B     01  00001A9A      01     02  00001A9A
LSTRG                GD      06     77  00000C77      01     01  000078B3
MAKEAUX              GD      02     11  00000111      01     01  00001559
MAKEDATE             GD      02     11  0000015C      01     01  000015A4
MAKEDEVNAME          GD      04     22  00000000      01     01  00004B66
MAKEDEVNAME2         GD      04     22  00000002      01     01  00004B68
MAKEDSTNAME          PD      07     89  00000000      01     01  000090E7
MAKEFIELD            GD      01     05  00000000      01     01  00000B3B
MAKEFILENAME         PD      07     88  00000000      01     01  000090C5
MAKEFILESYS          GD      02     11  00000149      01     01  00001591
MAKEICROOT           GD      05     62  00000000      01     01  00006481
MAKEINAMEPTR         PD      07     8E  00000000      01     01  0000927F
MAKEKIND             GD      02     11  00000140      01     01  00001588
MAKEPATHNAME         PD      07     86  00000000      01     01  00009028
MAKESIZE             GD      02     11  000000CF      01     01  00001517
MAKESRCNAME          PD      07     87  00000000      01     01  0000908E
MARKCLOSED           GD      05     58  0000001A      01     01  000060AB
MARKOFFLINE          GD      05     58  00000005      01     01  00006096
MARKONLINE           GD      05     58  00000015      01     01  000060A6
MARKOPEN             GD      05     58  00000000      01     01  00006091
MARK_LIST            GD      04     21  000000E0      01     01  00004B20
MARK_NUM             GD      04     21  000000E2      01     01  00004B22
MARK_POS             GD      04     21  000000E6      01     01  00004B26
MATCHDEV             PD      04     35  00000000      01     01  0000537A
MATCHDEVICE          PD      04     2B  00000000      01     01  00004F4F
MATCHICNAME          GD      04     31  00000000      01     01  000051C9
MATCHIMAGE           GD      02     0C  00000105      01     01  0000101C
MATCHROOTNAME        GD      05     58  000000B5      01     01  00006146
MATCHWINDNAME        GD      02     18  00000052      01     01  000028D3
MAXLENGTH            GD      06     77  00000330      01     01  00006F6C
MDAY                 GD      06     77  00000C73      01     01  000078AF
MENUDATA             GD      03     1F  00000000      01     01  000045B9
MENUDIMFLAG          GD      06     77  00000318      01     01  00006F54
MENUHELP             GD      05     6E  00000000      01     01  000068C3
MENULIST             GD      03     1F  00000000      01     01  000045B9
MINIFLIP             PD      03     20  000000AF      01     01  0000492D
MINIKIND             GD      0B     01  000021B2      01     02  000021B2
MISCENTRY            GD      08     B3  00000000      01     01  00009831
MISCROUTINES         PD      08     B1  00000000      01     01  000097F5
MISCSTARTUP          PD      08     B4  00000000      01     01  0000984F
MODIFYMLDIALOG       PD      08     CC  00000000      01     01  0000A3C7
MONDAY               GD      0B     01  00002175      01     02  00002175
MONITORDIA           PD      08     D2  00000000      01     01  0000A9EA
MONITORDIALOG        PD      08     D2  00000018      01     01  0000AA02
MONITORDIALOG        GD      01     08  0000000F      01     01  00000DF5
MONTHNAMES           GD      06     77  00000CA3      01     01  000078DF
MOVECONTROL          PD      09     E7  00000000      01     01  0000C436
MRDATA               PD      08     B2  00000000      01     01  0000982D
MSGCALL              PD      07     AD  00000000      01     01  0000978C
MYCOLORTBL           PD      09     E0  000000B4      01     01  0000C1AA
MYDATA               PD      09     E0  00000000      01     01  0000C0F6
MYDPAGE              GD      06     77  0000038B      01     01  00006FC7
MYWINDCOUNT          GD      06     77  000002A2      01     01  00006EDE
NAMEHIT              GD      06     77  00000375      01     01  00006FB1
NETWORKKIND          GD      0B     01  000021F9      01     02  000021F9
NEWDATASIZE          GD      05     70  0000000A      01     01  00006942
NEWDATASIZE2         GD      05     70  00000000      01     01  00006938
NEWDATASIZE3         GD      05     70  00000006      01     01  0000693E
NEWDEVICE            PD      04     29  00000000      01     01  00004D33
NEWDIALOG            GD      01     08  00000000      01     01  00000DE6
NEWDIALOG            PD      08     C9  00000000      01     01  0000A32B
NEWPENSTATE          PD      09     E0  00000082      01     01  0000C178
NEWVALUE             PD      09     E5  00000000      01     01  0000C418
NEWVIEW              GD      03     1D  000007FC      01     01  00003C5C
NEXTCAT              PD      08     BE  00000022      01     01  00009BA0
NEXTCATALOG          PD      08     BC  00000000      01     01  00009B67
NEXTWINDPOS          GD      06     77  000006E8      01     01  00007324
NODOSERR             GD      06     77  00000320      01     01  00006F5C
NOREALMATCH          GD      06     77  00000367      01     01  00006FA3
NORENAME             GD      01     05  0000013E      01     01  00000C79
NORMALCOLOR          GD      02     0E  00000068      01     01  00001212
NOTDISKFLAG          GD      06     77  00000E7B      01     01  00007AB7
NOTEICON             PD      08     DB  00000314      01     01  0000AF79
NOTENOK              PD      08     DB  000007AA      01     01  0000B40F
NOTENOUGHMEM         GD      06     77  00000AF1      01     01  0000772D
NOTINDRIVESTRG       GD      0B     01  00002320      01     02  00002320
NULLSTRG             GD      0B     01  00002287      01     02  00002287
NUMBER               PD      0A     EC  00000000      01     01  0000C71D
NUMBLKS              GD      04     21  000000D4      01     01  00004B14
OBUSYEC              GD      09     DF  0000003D      01     01  0000C0E8
OBUSYERR             GD      09     DF  00000040      01     01  0000C0EB
OENDCALL             GD      09     DF  00000046      01     01  0000C0F1
OERROUT              GD      09     DF  0000000D      01     01  0000C0B8
OFFICON              GD      05     69  0000001E      01     01  000067A1
OFFICON2             GD      05     69  0000001B      01     01  0000679E
OFFSETRGN            GD      02     17  00000421      01     01  0000223F
OKBUTT               PD      08     DB  000007AE      01     01  0000B413
OKSTOP               PD      08     DB  00000FC2      01     01  0000BC27
OLDPENSTATE          PD      09     E0  00000050      01     01  0000C146
ONICON               GD      05     69  0000000C      01     01  0000678F
ONLYDISK             GD      06     77  0000033C      01     01  00006F78
OPENALL              GD      02     19  000006C2      01     01  00003019
OPENEXTICON          PD      04     2E  00000000      01     01  0000507D
OPENFILE             PD      07     94  00000000      01     01  0000931A
OPENFILE             PD      0A     F2  00000000      01     01  0000D949
OPENFLAG             GD      06     77  000005C2      01     01  000071FE
OPENFOLDER           GD      02     19  00000078      01     01  000029CF
OPENFOLDER2          GD      02     19  0000008C      01     01  000029E3
OPENICON             GD      02     19  00000000      01     01  00002957
OPENPARAMS           PD      0A     EC  0000002A      01     01  0000C747
OPENWINDOW           PD      04     2F  00000000      01     01  00005137
OPEN_ACCESS          GD      04     21  0000000C      01     01  00004A4C
OPEN_AUX             GD      04     21  00000010      01     01  00004A50
OPEN_BLKS            GD      04     21  0000002E      01     01  00004A6E
OPEN_CDATE           GD      04     21  00000016      01     01  00004A56
OPEN_EOF             GD      04     21  0000002A      01     01  00004A6A
OPEN_FILE            GD      04     3D  00000016      01     01  00005595
OPEN_LIST            PD      08     BA  00000000      01     01  000098A1
OPEN_LIST            GD      04     21  00000000      01     01  00004A40
OPEN_MDATE           GD      04     21  0000001E      01     01  00004A5E
OPEN_NAME            GD      04     21  00000004      01     01  00004A44
OPEN_NAME            PD      08     BA  00000004      01     01  000098A5
OPEN_NUM             GD      04     21  00000002      01     01  00004A42
OPEN_NUM             PD      08     BA  00000002      01     01  000098A3
OPEN_OPTION          GD      04     21  00000026      01     01  00004A66
OPEN_REQUEST         GD      04     21  00000008      01     01  00004A48
OPEN_RESOURCE        GD      04     21  0000000A      01     01  00004A4A
OPEN_STORE           GD      04     21  00000014      01     01  00004A54
OPEN_TYPE            GD      04     21  0000000E      01     01  00004A4E
OPEOF                PD      0A     EC  00000054      01     01  0000C771
OPSTORAGETYPE        PD      0A     EC  0000003E      01     01  0000C75B
OSTDEND0             PD      07     AE  00000000      01     01  000097AB
O_NAMEPTR            PD      07     79  0000000A      01     01  00007D57
O_PARAMS             PD      07     79  00000006      01     01  00007D53
O_REF                PD      07     79  00000008      01     01  00007D55
PADNAME              GD      02     19  000006FF      01     01  00003056
PATH2TICON           GD      05     5F  00000000      01     01  0000641C
PATHADDNAME          GD      0A     F7  00000000      01     01  0000D9ED
PATHGETNAME          GD      0A     F9  00000000      01     01  0000DA62
PATHINDEX            GD      06     77  000005C4      01     01  00007200
PATHSUBNAME          GD      0A     F8  00000000      01     01  0000DA3F
PENPATTERN           PD      09     E0  0000008C      01     01  0000C182
PENWIDTH             PD      09     E0  00000088      01     01  0000C17E
PIXELMASK1           GD      06     77  00000DFB      01     01  00007A37
PIXELMASK2           GD      06     77  00000E03      01     01  00007A3F
PIXELMASK3           GD      06     77  00000E0B      01     01  00007A47
PIXELS               PD      09     E0  00000040      01     01  0000C136
PNAME                PD      08     C7  0000000C      01     01  0000A03F
POP12                PD      08     DC  0000003A      01     01  0000BF4D
PORT                 GD      06     77  0000039D      01     01  00006FD9
POSFLAG              GD      06     77  00000389      01     01  00006FC5
POSTCONTROL          PD      09     E7  00000000      01     01  0000C436
PREFER               GD      06     77  00000071      01     01  00006CAD
PREFIX_LIST          GD      04     21  0000006C      01     01  00004AAC
PREFIX_NAME          GD      04     21  00000070      01     01  00004AB0
PREFIX_NUM           GD      04     21  0000006E      01     01  00004AAE
PRINTING             GD      06     77  0000032E      01     01  00006F6A
PRODOSCALL           PD      07     A7  00000000      01     01  00009518
PRODOSERR            GD      04     3C  00000011      01     01  00005541
PRODOSERR            PD      08     C4  00000000      01     01  00009FBB
PRODOSERR            PD      07     A8  00000000      01     01  00009531
PULLFIELDS           GD      05     55  00000000      01     01  00005ED6
PULLLERECT           GD      01     05  000001D5      01     01  00000D10
PUSHICNAME           GD      05     52  00000000      01     01  00005E5A
PUSHIRECT1           GD      05     4E  00000005      01     01  00005C71
PUSHIRECT2           GD      05     4E  0000000A      01     01  00005C76
PUSHRECT             GD      05     4E  00000019      01     01  00005C85
PUSHTASK             PD      08     DA  00000005      01     01  0000AC55
PUSHTASK             GD      05     4E  00000014      01     01  00005C80
PUSHWORK             GD      05     4E  0000000F      01     01  00005C7B
PUSHYRAT             PD      08     DA  00000000      01     01  0000AC50
PUSHYRAT             GD      05     4E  00000000      01     01  00005C6C
PUSHZPAGE            PD      08     DA  00000008      01     01  0000AC58
PUSHZPAGE            GD      05     4E  0000001C      01     01  00005C88
QUIT_FLAGS           GD      06     77  00000C11      01     01  0000784D
QUIT_LIST            GD      06     77  00000C0B      01     01  00007847
QUIT_PATH            GD      06     77  00000C0D      01     01  00007849
QUOTENAME            GD      06     77  0000059E      01     01  000071DA
RAM                  PD      06     77  00000000      01     01  00006C3C
RAMKIND              GD      0B     01  000021C0      01     02  000021C0
READ2                GD      04     3D  00000006      01     01  00005585
READBLOCK            PD      07     A1  00000000      01     01  000094A0
READDIR              PD      08     BF  000001B8      01     01  00009DDD
READFILE             PD      07     96  00000000      01     01  0000935E
READFILES            PD      0A     EF  00000000      01     01  0000D67D
READPARAMS           PD      0A     EC  0000007A      01     01  0000C797
READROOT             PD      04     2D  00000000      01     01  00004FEE
READ_BUFF            GD      04     21  0000003A      01     01  00004A7A
READ_FILE            GD      04     3D  00000027      01     01  000055A6
READ_FILE2           GD      04     3D  0000002D      01     01  000055AC
READ_LEN             GD      04     21  00000042      01     01  00004A82
READ_LIST            GD      04     21  00000036      01     01  00004A76
READ_NUM             GD      04     21  00000038      01     01  00004A78
READ_SIZE            GD      04     21  0000003E      01     01  00004A7E
RECORDSIZE           PD      09     E6  00000000      01     01  0000C42E
RECTHIT2             GD      05     49  00000003      01     01  00005B0C
RECTX1               PD      09     E0  000000BE      01     01  0000C1B4
RECTX2               PD      09     E0  000000C2      01     01  0000C1B8
RECTY1               PD      09     E0  000000BC      01     01  0000C1B2
RECTY2               PD      09     E0  000000C0      01     01  0000C1B6
REDRAWDIAGUTS        PD      08     D1  00000028      01     01  0000A4A6
REDRAWLIST           GD      02     0D  00000020      01     01  000010F6
REDRAWTEXT           GD      03     1D  000007CB      01     01  00003C2B
REFNUM               PD      0A     EC  0000002C      01     01  0000C749
REMOVECLONE          GD      05     72  00000000      01     01  00006B1E
REQBLOCKS            PD      0A     EC  000000CE      01     01  0000C7EB
RESETCTIME           GD      05     6B  00000000      01     01  00006875
RESOLUTION           GD      06     77  0000066C      01     01  000072A8
RESTARTSESSION       PD      07     B0  00000000      01     01  000097C5
RESTORETEMP          GD      05     59  00000023      01     01  000061AE
RPDATAPTR            PD      0A     EC  0000007E      01     01  0000C79B
RPREFNUM             PD      0A     EC  0000007C      01     01  0000C799
RPREQBYTES           PD      0A     EC  00000082      01     01  0000C79F
RPTRANBYTES          PD      0A     EC  00000086      01     01  0000C7A3
RUNNINGSTRG          GD      0B     01  00002272      01     02  00002272
RWB_ACTUAL           PD      07     79  000000A4      01     01  00007DF1
RWB_BLOCKNUM         PD      07     79  0000009C      01     01  00007DE9
RWB_BLOCKSIZE        PD      07     79  000000A0      01     01  00007DED
RWB_BUFPTR           PD      07     79  00000094      01     01  00007DE1
RWB_COUNT            PD      07     79  00000098      01     01  00007DE5
RWB_DEVNUM           PD      07     79  00000092      01     01  00007DDF
RWB_PARAMS           PD      07     79  00000090      01     01  00007DDD
RW_ACTUAL            PD      07     79  0000001A      01     01  00007D67
RW_BUFPTR            PD      07     79  00000012      01     01  00007D5F
RW_PARAMS            PD      07     79  0000000E      01     01  00007D5B
RW_REF               PD      07     79  00000010      01     01  00007D5D
RW_SIZE              PD      07     79  00000016      01     01  00007D63
SATURDAY             GD      0B     01  00002193      01     02  00002193
SAVEACROSS           GD      02     0E  000000AE      01     01  00001258
SAVEDEVSTATS         GD      04     34  00000000      01     01  00005326
SAVEHAND             GD      06     77  000005C6      01     01  00007202
SAVELETEXT           PD      08     D0  00000000      01     01  0000A43A
SAVEMENUID           GD      06     77  000002A4      01     01  00006EE0
SAVEOFFFLAG          GD      06     77  000002AA      01     01  00006EE6
SAVETEMP             GD      05     59  00000000      01     01  0000618B
SCPARTKIND           GD      0B     01  0000222E      01     02  0000222E
SCREEN               GD      06     77  00000664      01     01  000072A0
SCREEN2              PD      08     C7  00000004      01     01  0000A037
SCREEN2              GD      06     77  00000022      01     01  00006C5E
SCREENSIZE           PD      08     C7  00000000      01     01  0000A033
SCSIKIND             GD      0B     01  000021E0      01     02  000021E0
SELECTWIND           GD      05     6F  0000003D      01     01  00006919
SELECTWIND2          GD      05     6F  00000041      01     01  0000691D
SERVERKIND           GD      0B     01  000021ED      01     02  000021ED
SESSION_CALL         PD      07     79  000000BE      01     01  00007E0B
SESSION_LIST         PD      07     79  000000C0      01     01  00007E0D
SESSION_STAT         PD      07     79  000000C2      01     01  00007E0F
SETDIALMAX           PD      08     D7  00000000      01     01  0000AC1D
SETFILEINFO          PD      07     9C  00000000      01     01  000093FC
SETIC                GD      05     53  00000020      01     01  00005E8A
SETICBLK             GD      05     53  00000037      01     01  00005EA1
SETICONHEAD          GD      02     17  000004A1      01     01  000022BF
SETINFO              GD      05     45  00000004      01     01  000059B8
SETINFO2             GD      05     45  00000000      01     01  000059B4
SETITEMS             GD      05     45  00000050      01     01  00005A04
SETKS                GD      05     45  00000078      01     01  00005A2C
SETMARK              PD      07     9E  00000000      01     01  0000943A
SETORGNMASK          GD      05     6D  00000000      01     01  000068B4
SETPARAMS            PD      09     E7  00000000      01     01  0000C436
SETRADIOBTN          PD      08     D6  00000000      01     01  0000AC0A
SETSHIFT             PD      0A    102  00000000      01     01  0000DEB0
SETSMALLRECT         GD      05     6F  0000004B      01     01  00006927
SETTEMP              GD      05     53  00000047      01     01  00005EB1
SETUP                PD      09     E1  00000000      01     01  0000C1BA
SETUP                PD      08     B9  00000000      01     01  00009891
SETVOLPREFIX         GD      04     37  00000000      01     01  000054AB
SET_FILE             GD      04     3A  00000013      01     01  00005501
SHUTDOWN_FLAG        GD      06     77  00000C09      01     01  00007845
SHUTDOWN_LIST        GD      06     77  00000C07      01     01  00007843
SHUTITDOWN           GD      03     1D  00000DDC      01     01  0000423C
SIZESTRG             GD      0B     01  00001B58      01     02  00001B58
SMALLRECT            PD      08     DD  00000138      01     01  0000C08B
SMALLRECT            GD      06     77  0000058A      01     01  000071C6
SM_BASE              PD      07     79  0000003C      01     01  00007D89
SM_DISPLACE          PD      07     79  0000003E      01     01  00007D8B
SM_PARAMS            PD      07     79  00000038      01     01  00007D85
SM_REF               PD      07     79  0000003A      01     01  00007D87
SORT                 GD      05     41  00000000      01     01  00005791
SPECMENU             GD      03     1F  000001D5      01     01  0000478E
SPOTCOUNT            GD      06     77  000002AC      01     01  00006EE8
SPOTHASH             GD      06     77  000002B0      01     01  00006EEC
SPOTHASHON           GD      06     77  000002AE      01     01  00006EEA
SRCIMAGE             GD      06     77  0000066E      01     01  000072AA
SRCMODE              GD      06     77  0000066C      01     01  000072A8
SRCRECT              GD      06     77  00000674      01     01  000072B0
SRCVIEW              GD      06     77  000002A6      01     01  00006EE2
SRCWIDTH             GD      06     77  00000672      01     01  000072AE
SSTRG                GD      06     77  00000C63      01     01  0000789F
STACK                GD      0C     01  00000000      01     03  00000000
STARTCAT             PD      08     BE  00000000      01     01  00009B7E
STARTCATALOG         PD      08     BB  00000000      01     01  00009B5A
STARTDIALOG          GD      01     08  0000001E      01     01  00000E04
STARTDIALOG          PD      08     CA  00000000      01     01  0000A332
STARTDRAW            GD      05     4B  00000012      01     01  00005C34
STARTDRAW2           GD      05     4B  00000000      01     01  00005C22
STARTDYNAMRAM        GD      06     77  00000662      01     01  0000729E
STARTHASH            GD      05     57  00000111      01     01  0000605A
STARTINITRAM         GD      06     77  000005D4      01     01  00007210
STARTMLDIALOG        GD      01     08  00000005      01     01  00000DEB
STARTMLDIALOG        PD      08     CA  00000004      01     01  0000A336
STARTMSG             PD      07     AA  00000000      01     01  0000976A
STARTSAVEBLK         GD      06     77  000006F0      01     01  0000732C
STARTSTACK           PD      0A     EC  000000D4      01     01  0000C7F1
STARTUPFLAG          GD      06     77  00000322      01     01  00006F5E
STARTX               GD      06     77  00000E67      01     01  00007AA3
STARTZERORAM         GD      06     77  00000254      01     01  00006E90
STDEND               PD      07     AF  00000000      01     01  000097B1
STDEND               PD      08     B8  00000000      01     01  0000987C
STDEND0              PD      08     B5  00000000      01     01  0000986A
STDEND4              PD      08     B6  00000000      01     01  00009870
STDEND6              PD      08     B7  00000000      01     01  00009876
STOPICON             PD      08     DB  0000042C      01     01  0000B091
STORAGE_TYPE         GD      04     21  00000064      01     01  00004AA4
STRG2CR              GD      0B     01  00000076      01     02  00000076
STRGABORT            GD      0B     01  00000524      01     02  00000524
STRGAGAIN            GD      0B     01  00000011      01     02  00000011
STRGAND              GD      0B     01  000007AE      01     02  000007AE
STRGAUTHORS          GD      0B     01  00000179      01     02  00000179
STRGAUTHORS2         GD      0B     01  000001A9      01     02  000001A9
STRGBACK2WIND        GD      0B     01  00001635      01     02  00001635
STRGBADNAME          GD      0B     01  000009FE      01     02  000009FE
STRGBCOPY            GD      0B     01  00000BB9      01     02  00000BB9
STRGCANCEL           GD      0B     01  00000003      01     02  00000003
STRGCANNTDUP2        GD      0B     01  00001629      01     02  00001629
STRGCHPATH           GD      0B     01  0000067A      01     02  0000067A
STRGCOLOR            GD      0B     01  00000B3D      01     02  00000B3D
STRGCONTENTS         GD      0B     01  00000833      01     02  00000833
STRGCOPYERR1         GD      0B     01  00001540      01     02  00001540
STRGCOPYERR2         GD      0B     01  00001568      01     02  00001568
STRGCOPYING          GD      0B     01  000006B6      01     02  000006B6
STRGCR               GD      0B     01  00000074      01     02  00000074
STRGDAMAGED          GD      0B     01  00001A78      01     02  00001A78
STRGDATA             GD      0B     01  00000B76      01     02  00000B76
STRGDCOPY1           GD      0B     01  0000088A      01     02  0000088A
STRGDCOPY2           GD      0B     01  000008A3      01     02  000008A3
STRGDCOPY3           GD      0B     01  000008AA      01     02  000008AA
STRGDCOPY4           GD      0B     01  000008BB      01     02  000008BB
STRGDCOPY5           GD      0B     01  000008C0      01     02  000008C0
STRGDIRFULL          GD      0B     01  0000061B      01     02  0000061B
STRGDRAG1            GD      0B     01  00000456      01     02  00000456
STRGDRAG2            GD      0B     01  00000474      01     02  00000474
STRGDRAG3            GD      0B     01  00000499      01     02  00000499
STRGDRAG4            GD      0B     01  000004C9      01     02  000004C9
STRGDRAG5            GD      0B     01  000015C3      01     02  000015C3
STRGDRAG6            GD      0B     01  00000501      01     02  00000501
STRGDRAG7            GD      0B     01  000016F0      01     02  000016F0
STRGDRAG8            GD      0B     01  0000172C      01     02  0000172C
STRGDRAGFOLD         GD      0B     01  0000186A      01     02  0000186A
STRGDUMBTEACH        GD      0B     01  00000214      01     02  00000214
STRGDUPDEV1          GD      0B     01  00001689      01     02  00001689
STRGDUPDEV2          GD      0B     01  00001695      01     02  00001695
STRGDUPDEV3          GD      0B     01  000016C0      01     02  000016C0
STRGDUPVOLERR        GD      0B     01  00001478      01     02  00001478
STRGEJECT            GD      0B     01  00000025      01     02  00000025
STRGERASE1           GD      0B     01  00000036      01     02  00000036
STRGERASE2           GD      0B     01  000003FF      01     02  000003FF
STRGEXTRASPACE       GD      0B     01  0000007F      01     02  0000007F
STRGFCOPY            GD      0B     01  00000930      01     02  00000930
STRGFOLDER1          GD      0B     01  0000080A      01     02  0000080A
STRGFOLDER2          GD      0B     01  00000844      01     02  00000844
STRGFORMAT           GD      0B     01  0000002B      01     02  0000002B
STRGGETNAME          GD      0B     01  0000011F      01     02  0000011F
STRGHELP             GD      0B     01  00000CA8      01     02  00000CA8
STRGHELP1            GD      0B     01  00000CB4      01     02  00000CB4
STRGHELP1A           GD      0B     01  00000D3F      01     02  00000D3F
STRGHELP1B           GD      0B     01  00000D7C      01     02  00000D7C
STRGHELP1C           GD      0B     01  00000DAF      01     02  00000DAF
STRGHELP1D           GD      0B     01  00000DEE      01     02  00000DEE
STRGHELP1E           GD      0B     01  00000E2C      01     02  00000E2C
STRGHELP1F           GD      0B     01  00000E3E      01     02  00000E3E
STRGHELP2            GD      0B     01  00000CC9      01     02  00000CC9
STRGHELP2A           GD      0B     01  00000E40      01     02  00000E40
STRGHELP2B           GD      0B     01  00000ECA      01     02  00000ECA
STRGHELP3            GD      0B     01  00000CD9      01     02  00000CD9
STRGHELP3A           GD      0B     01  00000FA6      01     02  00000FA6
STRGHELP4            GD      0B     01  00000CF0      01     02  00000CF0
STRGHELP4A           GD      0B     01  0000107C      01     02  0000107C
STRGHELP4B           GD      0B     01  0000115C      01     02  0000115C
STRGHELP4C           GD      0B     01  000011B5      01     02  000011B5
STRGHELP5            GD      0B     01  00000D12      01     02  00000D12
STRGHELP5A           GD      0B     01  000011EF      01     02  000011EF
STRGHELP6            GD      0B     01  00000D2A      01     02  00000D2A
STRGHELP6A           GD      0B     01  00001263      01     02  00001263
STRGHELP6B           GD      0B     01  0000134A      01     02  0000134A
STRGINACT1           GD      0B     01  000002A5      01     02  000002A5
STRGINACT10A         GD      0B     01  00000244      01     02  00000244
STRGINACT10B         GD      0B     01  0000027A      01     02  0000027A
STRGINACT11          GD      0B     01  00001673      01     02  00001673
STRGINACT3           GD      0B     01  000002CD      01     02  000002CD
STRGINACT4           GD      0B     01  000002E1      01     02  000002E1
STRGINACT5           GD      0B     01  000002F1      01     02  000002F1
STRGINACT6           GD      0B     01  00000317      01     02  00000317
STRGINACT7A          GD      0B     01  0000032B      01     02  0000032B
STRGINACT7B          GD      0B     01  00000360      01     02  00000360
STRGINACT8           GD      0B     01  0000037C      01     02  0000037C
STRGINACT9           GD      0B     01  000003A3      01     02  000003A3
STRGINIT5            GD      0B     01  00001405      01     02  00001405
STRGINIT6            GD      0B     01  00001413      01     02  00001413
STRGINITERR          GD      0B     01  000000E5      01     02  000000E5
STRGINSDISK          GD      0B     01  00000567      01     02  00000567
STRGINTRASH          GD      0B     01  000000C1      01     02  000000C1
STRGIOERR            GD      0B     01  00001838      01     02  00001838
STRGLAUNCH           GD      0B     01  00001987      01     02  00001987
STRGLOCKED1          GD      0B     01  000007B3      01     02  000007B3
STRGLOCKED2          GD      0B     01  000007E5      01     02  000007E5
STRGLOCKED3          GD      0B     01  000007F8      01     02  000007F8
STRGMAXWIND          GD      0B     01  00001819      01     02  00001819
STRGMEMFULL1         GD      0B     01  00001753      01     02  00001753
STRGMEMFULL2         GD      0B     01  00001788      01     02  00001788
STRGMHELP            GD      0B     01  00000AE6      01     02  00000AE6
STRGNAMEDUP1         GD      0B     01  000009B5      01     02  000009B5
STRGNAMEDUP2         GD      0B     01  000009D2      01     02  000009D2
STRGNAMEERR          GD      0B     01  0000174A      01     02  0000174A
STRGNAMEERR4         GD      0B     01  000017F0      01     02  000017F0
STRGNAMEUSED1        GD      0B     01  000009DC      01     02  000009DC
STRGNAMEUSED2        GD      0B     01  000009EB      01     02  000009EB
STRGNO               GD      0B     01  0000000E      01     02  0000000E
STRGNOAPP1           GD      0B     01  00000963      01     02  00000963
STRGNOAPP2           GD      0B     01  00000974      01     02  00000974
STRGNOAPP3           GD      0B     01  000003CE      01     02  000003CE
STRGNOMEDIA          GD      0B     01  00001457      01     02  00001457
STRGNOMEM            GD      0B     01  0000091E      01     02  0000091E
STRGNONAMES1         GD      0B     01  00000A29      01     02  00000A29
STRGNONAMES2         GD      0B     01  00000A67      01     02  00000A67
STRGNONREMOVE        GD      0B     01  00000AA5      01     02  00000AA5
STRGNOREAD           GD      0B     01  00000645      01     02  00000645
STRGNOREAD1          GD      0B     01  00000666      01     02  00000666
STRGNOREAD2          GD      0B     01  000014DE      01     02  000014DE
STRGNOROOM1          GD      0B     01  00000864      01     02  00000864
STRGNOROOM2          GD      0B     01  00000880      01     02  00000880
STRGNULL             GD      0B     01  00000073      01     02  00000073
STRGNUM0             PD      08     C7  0000002E      01     01  0000A061
STRGNUM1             PD      08     C7  0000002F      01     01  0000A062
STRGNUMBLKS          GD      0B     01  00000997      01     02  00000997
STRGNUMFILES         GD      0B     01  000006C1      01     02  000006C1
STRGODDCOUPLE        GD      0B     01  000017BF      01     02  000017BF
STRGOK               GD      0B     01  00000000      01     02  00000000
STRGONDESK           GD      0B     01  000015ED      01     02  000015ED
STRGPARENTS          GD      0B     01  0000070C      01     02  0000070C
STRGPERIOD           GD      0B     01  00000079      01     02  00000079
STRGPREFER           GD      0B     01  00000ADA      01     02  00000ADA
STRGPROTECT          GD      0B     01  000000FC      01     02  000000FC
STRGQUESTION         GD      0B     01  0000007D      01     02  0000007D
STRGRAMDISK          GD      0B     01  00000BF4      01     02  00000BF4
STRGREADING          GD      0B     01  00001A64      01     02  00001A64
STRGREMAIN           GD      0B     01  000006E6      01     02  000006E6
STRGRENAMEERR        GD      0B     01  0000150E      01     02  0000150E
STRGRENAMEERR2       GD      0B     01  00001588      01     02  00001588
STRGRENAMEERR3       GD      0B     01  000014EA      01     02  000014EA
STRGREPDISK1         GD      0B     01  00000793      01     02  00000793
STRGREPDISK2         GD      0B     01  000007A7      01     02  000007A7
STRGREPFILE          GD      0B     01  00000589      01     02  00000589
STRGREPFILE1         GD      0B     01  00000599      01     02  00000599
STRGREPFILE2         GD      0B     01  000005B2      01     02  000005B2
STRGREPFILE3         GD      0B     01  000005C5      01     02  000005C5
STRGREPFILE4         GD      0B     01  000005E8      01     02  000005E8
STRGREPFILE5         GD      0B     01  00000947      01     02  00000947
STRGRESTART          GD      0B     01  0000197F      01     02  0000197F
STRGRIGHTS1          GD      0B     01  000001D6      01     02  000001D6
STRGRIGHTS3          GD      0B     01  000001FF      01     02  000001FF
STRGSD               GD      0B     01  0000003C      01     02  0000003C
STRGSDATA            GD      0B     01  00000B9B      01     02  00000B9B
STRGSHUTDOWN         GD      0B     01  00001969      01     02  00001969
STRGSHUTDOWN2        GD      0B     01  000019A7      01     02  000019A7
STRGSKIP             GD      0B     01  0000001B      01     02  0000001B
STRGSKIPALL          GD      0B     01  00000046      01     02  00000046
STRGSYSERR1          GD      0B     01  00000516      01     02  00000516
STRGSYSERR2          GD      0B     01  00000543      01     02  00000543
STRGTHEDISK          GD      0B     01  00000546      01     02  00000546
STRGTHEFF            GD      0B     01  00000578      01     02  00000578
STRGTHEFILE          GD      0B     01  0000063B      01     02  0000063B
STRGTHEFOLDER        GD      0B     01  0000066E      01     02  0000066E
STRGTHROW            GD      0B     01  00000B0D      01     02  00000B0D
STRGTITLE            GD      0B     01  00000141      01     02  00000141
STRGTOOLONG          GD      0B     01  00000422      01     02  00000422
STRGTOOMANY          GD      0B     01  00001895      01     02  00001895
STRGTRANALL          GD      0B     01  0000005A      01     02  0000005A
STRGTRANSFILE1       GD      0B     01  00000C5F      01     02  00000C5F
STRGTRANSFILE2       GD      0B     01  00000C76      01     02  00000C76
STRGTYPE1            GD      0B     01  00000738      01     02  00000738
STRGTYPE2            GD      0B     01  0000076F      01     02  0000076F
STRGUNREAD1          GD      0B     01  00000084      01     02  00000084
STRGUNREAD2          GD      0B     01  000000A3      01     02  000000A3
STRGUNREAD3          GD      0B     01  000008C5      01     02  000008C5
STRGUNREAD4          GD      0B     01  00000902      01     02  00000902
STRGUNTITLED         GD      0B     01  00000138      01     02  00000138
STRGVALIDBAD1        GD      0B     01  00001A1D      01     02  00001A1D
STRGVALIDBAD2        GD      0B     01  00001A40      01     02  00001A40
STRGVALIDFILE        GD      0B     01  000019C8      01     02  000019C8
STRGVALIDGOOD        GD      0B     01  000019F1      01     02  000019F1
STRGVERIFYBAD1       GD      0B     01  00001920      01     02  00001920
STRGVERIFYBAD2       GD      0B     01  00001944      01     02  00001944
STRGVERIFYBLK        GD      0B     01  000018E0      01     02  000018E0
STRGVERIFYGOOD       GD      0B     01  000018FC      01     02  000018FC
STRGVERIFYVOL        GD      0B     01  000018CA      01     02  000018CA
STRGVERSION          GD      0B     01  00000158      01     02  00000158
STRGVOLFULL          GD      0B     01  00000605      01     02  00000605
STRGWARNDEL          GD      0B     01  00000C2B      01     02  00000C2B
STRGWP               GD      0B     01  00000552      01     02  00000552
STRGWRITING          GD      0B     01  00001A6E      01     02  00001A6E
STRGYES              GD      0B     01  0000000A      01     02  0000000A
STRINGBASE           GD      0B     01  00000000      01     02  00000000
STRINGS              GD      06     77  00000E53      01     01  00007A8F
STRINGSLEN           GD      06     77  00000E75      01     01  00007AB1
STRIP                GD      09     DF  00000000      01     01  0000C0AB
STRIPES              GD      06     77  0000003A      01     01  00006C76
STYLE                PD      09     E0  00000044      01     01  0000C13A
SUNDAY               GD      0B     01  0000216F      01     02  0000216F
SVALUE               PD      09     E0  00000046      01     01  0000C13C
SWAPICON             PD      08     DB  000000E4      01     01  0000AD49
SYSALERTSOFF         GD      09     EA  00000000      01     01  0000C4AE
SYSALERTSON          GD      09     EA  00000022      01     01  0000C4D0
TABLE1               GD      06     77  00000E13      01     01  00007A4F
TABLEERR             GD      06     77  00000B56      01     01  00007792
TAPEKIND             GD      0B     01  000021D5      01     02  000021D5
TAUX                 GD      0B     01  00002243      01     02  00002243
TCREATED             GD      0B     01  00002255      01     02  00002255
TEMP2PATH            GD      05     65  00000016      01     01  0000658C
TEMPSAVED            GD      06     77  0000032A      01     01  00006F66
TEMPSTRG1            GD      0B     01  00002289      01     02  00002289
TEMPSTRG2            GD      0B     01  000022C9      01     02  000022C9
TESTCONTROL          PD      09     E7  00000000      01     01  0000C436
TESTINACT2           GD      03     1D  00000C83      01     01  000040E3
TEXTSTR              PD      08     C7  00000039      01     01  0000A06C
TFILESYS             GD      0B     01  00002268      01     02  00002268
THERMODIALPROC       GD      09     E8  00000000      01     01  0000C43B
THUMBCONTROL         PD      09     E7  00000000      01     01  0000C436
THURSDAY             GD      0B     01  00002187      01     02  00002187
TICONOBJ             GD      06     77  00000447      01     01  00007083
TITLES               GD      06     77  00000C5B      01     01  00007897
TITLEX               GD      06     77  00000C3B      01     01  00007877
TITLEY               GD      06     77  00000C1B      01     01  00007857
TKIND                GD      0B     01  0000223D      01     02  0000223D
TMODIFIED            GD      0B     01  0000225E      01     02  0000225E
TOCALL               GD      05     50  0000004E      01     01  00005D2B
TODESKPORT           GD      05     50  000000C2      01     01  00005D9F
TODESKTOP            GD      05     50  00000082      01     01  00005D5F
TOOLTABLE            GD      06     77  00000000      01     01  00006C3C
TRANSLATEDNAME       PD      07     79  0000011C      01     01  00007E69
TRASHBLK             GD      06     77  000006CA      01     01  00007306
TRASHDISK            GD      05     67  00000000      01     01  00006634
TRASHIC              GD      06     77  000006D2      01     01  0000730E
TRASHNAME            GD      0B     01  00002281      01     02  00002281
TRASHNUM             GD      06     77  000006D6      01     01  00007312
TRASHTEXT            GD      0B     01  00001AAA      01     02  00001AAA
TRASHTITLE           GD      06     77  000006E0      01     01  0000731C
TRYAGAIN             PD      08     DB  0000088E      01     01  0000B4F3
TSIZE                GD      0B     01  00002248      01     02  00002248
TUESDAY              GD      0B     01  0000217B      01     02  0000217B
TWHERE               GD      0B     01  0000224E      01     02  0000224E
TYPE00               GD      0B     01  00001C48      01     02  00001C48
TYPE01               GD      0B     01  00001C50      01     02  00001C50
TYPE02               GD      0B     01  00001C5A      01     02  00001C5A
TYPE03               GD      0B     01  00001C66      01     02  00001C66
TYPE04               GD      0B     01  00001C72      01     02  00001C72
TYPE05               GD      0B     01  00001C7D      01     02  00001C7D
TYPE06               GD      0B     01  00001C89      01     02  00001C89
TYPE07               GD      0B     01  00001C90      01     02  00001C90
TYPE08               GD      0B     01  00001C95      01     02  00001C95
TYPE09               GD      0B     01  00001CA5      01     02  00001CA5
TYPE0A               GD      0B     01  00001CB9      01     02  00001CB9
TYPE0B               GD      0B     01  00001CCD      01     02  00001CCD
TYPE0C               GD      0B     01  00001CE1      01     02  00001CE1
TYPE0F               GD      0B     01  00001CEC      01     02  00001CEC
TYPE10               GD      0B     01  00001CF3      01     02  00001CF3
TYPE11               GD      0B     01  00001CFC      01     02  00001CFC
TYPE12               GD      0B     01  00001D06      01     02  00001D06
TYPE13               GD      0B     01  00001D18      01     02  00001D18
TYPE14               GD      0B     01  00001D28      01     02  00001D28
TYPE15               GD      0B     01  00001D39      01     02  00001D39
TYPE16               GD      0B     01  00001D48      01     02  00001D48
TYPE19               GD      0B     01  00001D56      01     02  00001D56
TYPE1A               GD      0B     01  00001D6A      01     02  00001D6A
TYPE1B               GD      0B     01  00001D80      01     02  00001D80
TYPE50               GD      0B     01  00001D97      01     02  00001D97
TYPE51               GD      0B     01  00001DA6      01     02  00001DA6
TYPE52               GD      0B     01  00001DB2      01     02  00001DB2
TYPE53               GD      0B     01  00001DBB      01     02  00001DBB
TYPE54               GD      0B     01  00001DC4      01     02  00001DC4
TYPE55               GD      0B     01  00001DD7      01     02  00001DD7
TYPE56               GD      0B     01  00001DE2      01     02  00001DE2
TYPE57               GD      0B     01  00001DF3      01     02  00001DF3
TYPE58               GD      0B     01  00001DFE      01     02  00001DFE
TYPE59               GD      0B     01  00001E03      01     02  00001E03
TYPE5A               GD      0B     01  00001E12      01     02  00001E12
TYPEA0               GD      0B     01  00001E2C      01     02  00001E2C
TYPEA1               GD      0B     01  00001E41      01     02  00001E41
TYPEA2               GD      0B     01  00001E53      01     02  00001E53
TYPEA3               GD      0B     01  00001E64      01     02  00001E64
TYPEA4               GD      0B     01  00001E75      01     02  00001E75
TYPEA5               GD      0B     01  00001E85      01     02  00001E85
TYPEAB               GD      0B     01  00001E9C      01     02  00001E9C
TYPEAC               GD      0B     01  00001EAD      01     02  00001EAD
TYPEAD               GD      0B     01  00001EBE      01     02  00001EBE
TYPEB0               GD      0B     01  00001ECC      01     02  00001ECC
TYPEB1               GD      0B     01  00001ED7      01     02  00001ED7
TYPEB2               GD      0B     01  00001EE2      01     02  00001EE2
TYPEB3               GD      0B     01  00001EEE      01     02  00001EEE
TYPEB4               GD      0B     01  00001F04      01     02  00001F04
TYPEB5               GD      0B     01  00001F19      01     02  00001F19
TYPEB6               GD      0B     01  00001F2B      01     02  00001F2B
TYPEB7               GD      0B     01  00001F44      01     02  00001F44
TYPEB8               GD      0B     01  00001F5D      01     02  00001F5D
TYPEB9               GD      0B     01  00001F70      01     02  00001F70
TYPEBA               GD      0B     01  00001F87      01     02  00001F87
TYPEBB               GD      0B     01  00001F8C      01     02  00001F8C
TYPEBC               GD      0B     01  00001F9A      01     02  00001F9A
TYPEBD               GD      0B     01  00001FAC      01     02  00001FAC
TYPEBF               GD      0B     01  00001FC9      01     02  00001FC9
TYPEC0               GD      0B     01  00001FD8      01     02  00001FD8
TYPEC1               GD      0B     01  00001FEE      01     02  00001FEE
TYPEC2               GD      0B     01  00002006      01     02  00002006
TYPEC3               GD      0B     01  00002020      01     02  00002020
TYPEC5               GD      0B     01  00002033      01     02  00002033
TYPEC9               GD      0B     01  00002046      01     02  00002046
TYPECA               GD      0B     01  00002052      01     02  00002052
TYPED5               GD      0B     01  0000205E      01     02  0000205E
TYPED6               GD      0B     01  0000206D      01     02  0000206D
TYPED7               GD      0B     01  0000207E      01     02  0000207E
TYPEDEVICE           PD      04     2C  00000000      01     01  00004F75
TYPEE1               GD      0B     01  0000208C      01     02  0000208C
TYPEE2               GD      0B     01  0000209B      01     02  0000209B
TYPEEE               GD      0B     01  000020AA      01     02  000020AA
TYPEEF               GD      0B     01  000020BB      01     02  000020BB
TYPEF0               GD      0B     01  000020C7      01     02  000020C7
TYPEF1               GD      0B     01  000020D8      01     02  000020D8
TYPEF9               GD      0B     01  000020E5      01     02  000020E5
TYPEFA               GD      0B     01  000020F2      01     02  000020F2
TYPEFB               GD      0B     01  00002108      01     02  00002108
TYPEFC               GD      0B     01  0000211B      01     02  0000211B
TYPEFD               GD      0B     01  00002133      01     02  00002133
TYPEFE               GD      0B     01  00002148      01     02  00002148
TYPEFF               GD      0B     01  0000215A      01     02  0000215A
TYPEFLAG             GD      06     77  000002A8      01     01  00006EE4
TYPENAMES            GD      06     77  00000CD3      01     01  0000790F
UNDERLINE            PD      08     DB  00000E0E      01     01  0000BA73
UNDERLINE2           PD      08     DB  00000E16      01     01  0000BA7B
UNLOCKBLK            GD      05     53  0000000B      01     01  00005E75
UNLOCKIC             GD      05     53  0000002C      01     01  00005E96
UNLOCKICON           PD      07     90  00000000      01     01  000092B8
UPDATEDIALOG         PD      08     CE  00000000      01     01  0000A408
UPDATEEVENT          PD      08     D4  00000000      01     01  0000ABE6
UPDATEINFOWIN        GD      01     0B  00000000      01     01  00000EA9
UPDATEINFOWIN2       GD      01     0B  00000008      01     01  00000EB1
UPDATEKS             GD      05     71  00000000      01     01  00006ACD
USEDSTRG             GD      0B     01  00001B99      01     02  00001B99
VALIDATEBLK          GD      06     77  0000020F      01     01  00006E4B
VALIDATEDATA         GD      06     77  0000021D      01     01  00006E59
VALIDATEFILE         GD      0A     EE  00000000      01     01  0000D5DC
VALIDATENAME         GD      06     77  0000023C      01     01  00006E78
VALIDATETITLE        GD      06     77  00000225      01     01  00006E61
VERIFYBLK            GD      06     77  000001D9      01     01  00006E15
VERIFYBLKPTR         GD      06     77  00000193      01     01  00006DCF
VERIFYDATA           PD      0A     EC  00000000      01     01  0000C71D
VERIFYDATA           GD      06     77  000001E7      01     01  00006E23
VERIFYGUTSPROC       GD      06     77  000001C5      01     01  00006E01
VERIFYINFOPROC       GD      06     77  000001C1      01     01  00006DFD
VERIFYINFOREF        GD      06     77  000001B7      01     01  00006DF3
VERIFYMEDIUM         GD      0A     ED  00000000      01     01  0000D40F
VERIFYNAME           GD      06     77  000001FF      01     01  00006E3B
VERIFYTITLE          GD      06     77  000001EF      01     01  00006E2B
VERIFYTPTR           GD      06     77  0000018F      01     01  00006DCB
VERIFYWRECT          GD      06     77  000001C9      01     01  00006E05
VERIFY_END           GD      06     77  000001D9      01     01  00006E15
VERIFY_PARAM         GD      06     77  0000018B      01     01  00006DC7
VERWINDCOUNT         GD      06     77  00000256      01     01  00006E92
VIEWMENU             GD      03     1F  00000169      01     01  00004722
VIEWRECT             GD      06     77  0000037F      01     01  00006FBB
VIEWRECT             PD      08     DB  0000069A      01     01  0000B2FF
VOLUMEPARAMS         PD      0A     EC  000000B8      01     01  0000C7D5
VOLUME_LIST          GD      04     21  000000CA      01     01  00004B0A
VRECT                PD      08     DB  00000C7A      01     01  0000B8DF
VRECT2               PD      08     DB  00000DB2      01     01  0000BA17
V_BLOCKS             PD      07     79  00000086      01     01  00007DD3
V_DEVNAME            PD      07     79  0000007E      01     01  00007DCB
V_FILESYS            PD      07     79  0000008E      01     01  00007DDB
V_FREE               PD      07     79  0000008A      01     01  00007DD7
V_PARAMS             PD      07     79  0000007C      01     01  00007DC9
V_VOLNAME            PD      07     79  00000082      01     01  00007DCF
WALKBACK             GD      05     50  00000019      01     01  00005CF6
WALKBACK2            GD      05     50  00000022      01     01  00005CFF
WALKBLKS             GD      01     02  00000000      01     01  00000318
WALKEXT              GD      05     67  0000009B      01     01  000066CF
WALKEXT2             GD      05     67  000000A2      01     01  000066D6
WALKGOTO             GD      05     4F  00000024      01     01  00005CB9
WALKOFLIFE           GD      05     50  00000000      01     01  00005CDD
WALKOFLIFE2          GD      05     50  0000000F      01     01  00005CEC
WALKOFLIFE3          GD      05     50  00000006      01     01  00005CE3
WALKWINDOW           GD      05     46  00000000      01     01  00005A66
WATCHCURSOR          GD      05     44  00000000      01     01  000059A4
WEDNESDAY            GD      0B     01  00002181      01     02  00002181
WIND2TOP             GD      05     6F  00000000      01     01  000068DC
WINDCLICK            GD      02     17  00000000      01     01  00001E1E
WINDOWID             GD      06     77  00000594      01     01  000071D0
WINDREFCON           GD      05     50  000000A6      01     01  00005D83
WINDSPOT             GD      05     57  0000000B      01     01  00005F54
WIND_CLR             GD      06     77  00000690      01     01  000072CC
WIND_DATAH           GD      06     77  00000698      01     01  000072D4
WIND_DATAW           GD      06     77  0000069A      01     01  000072D6
WIND_DEF             GD      06     77  000006AE      01     01  000072EA
WIND_DRAW            GD      06     77  000006B6      01     01  000072F2
WIND_END             GD      06     77  000006CA      01     01  00007306
WIND_FRAME           GD      06     77  0000067E      01     01  000072BA
WIND_FULL            GD      06     77  00000688      01     01  000072C4
WIND_GUTS            GD      02     0E  00000053      01     01  000011FD
WIND_HOFF            GD      06     77  00000696      01     01  000072D2
WIND_HPAGE           GD      06     77  000006A6      01     01  000072E2
WIND_HSCRL           GD      06     77  000006A2      01     01  000072DE
WIND_INFO            GD      06     77  000006B2      01     01  000072EE
WIND_INFOH           GD      06     77  000006AC      01     01  000072E8
WIND_INFOT           GD      06     77  000006A8      01     01  000072E4
WIND_MAX_H           GD      06     77  0000069C      01     01  000072D8
WIND_MAX_W           GD      06     77  0000069E      01     01  000072DA
WIND_PARAM           GD      06     77  0000067C      01     01  000072B8
WIND_PLANE           GD      06     77  000006C2      01     01  000072FE
WIND_POS             GD      06     77  000006BA      01     01  000072F6
WIND_REC             GD      06     77  000006C6      01     01  00007302
WIND_REF             GD      06     77  00000684      01     01  000072C0
WIND_SIZE            GD      06     77  0000067C      01     01  000072B8
WIND_TITLE           GD      06     77  00000680      01     01  000072BC
WIND_VOFF            GD      06     77  00000694      01     01  000072D0
WIND_VPAGE           GD      06     77  000006A4      01     01  000072E0
WIND_VSCRL           GD      06     77  000006A0      01     01  000072DC
WIPEICON             GD      05     67  00000095      01     01  000066C9
WRAP                 GD      06     77  0000025A      01     01  00006E96
WRITEALLROOTS        GD      05     5A  00000000      01     01  000061E2
WRITEBLOCK           PD      07     A2  00000000      01     01  000094B4
WRITEDEF             GD      05     5B  00000000      01     01  0000636C
WRITEFILE            PD      07     97  00000000      01     01  00009372
WRITEROOT            GD      05     5A  00000046      01     01  00006228
WRITE_BUFF           GD      04     21  0000004A      01     01  00004A8A
WRITE_LEN            GD      04     21  0000004E      01     01  00004A8E
WRITE_LIST           GD      04     21  00000046      01     01  00004A86
WRITE_NUM            GD      04     21  00000048      01     01  00004A88
WRITTEN              GD      04     21  00000052      01     01  00004A92
WSTRG                GD      06     77  00000C67      01     01  000078A3
ZEROPAGE             PD      08     B2  00000000      01     01  0000982D
ZEROPAGE             PD      07     79  00000000      01     01  00007D4D
ZOOMRECT             PD      08     DD  00000000      01     01  0000BF53
ZOOMRECT             GD      02     12  00000000      01     01  00001741
ZOOMRECT2            GD      02     12  00000003      01     01  00001744
ZOOMRECT2            PD      08     DD  00000012      01     01  0000BF65

1468 symbols are in Symbol Table and require 49912 bytes of memory
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Finder/match.aii b/IIGS.601.SRC/A.U.G/Finder/match.aii
new file mode 100644
index 0000000..d668cfd
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Finder/match.aii
@@ -0,0 +1 @@
+;.....................................................................
; File:		Match.aii
; Project:	GS Finder
; Author:	Andy Nicholas
; Build file:	Finder.Make
;
; ©ÊCopyright Apple Computer, Inc. 1991-93
; All rights reserved.
;
; Global Routines:
; ----------------
;
; AllocateChains()
; LoadResources()
; KillChains()		-- commented out
; LoadRBundle()
; MatchFileToIcon()
; QueryDatabase()
; AddBundles2Desktop()
;.....................................................................
;
; 12-Jun-92 DAL for 6.0.1
;   Use DisposeHandleGlue instead of _DisposeHandle.
;
; 24-Mar-93 JCM - Fixed setupCompare which is used by matchCreateDateTime and
;		  matchModDateTime to copy the timeRec out of the oneDoc. It used
;		  to copy too many bytes to the wrong location, which just about
;		  guaranteed that the two match types would always fail.
;
;  2-Apr-93 JCM - Fixed AddBundle2Desktop to correctly draw the destination disk
;		  name if the pathname is @:Desktop.
;
;.....................................................................

		LONGA	ON
		LONGI	ON
		STRING	PASCAL

NIL		equ	0

		seg	'Match'

		PRINT	OFF
		PRINT	NOSYM
		INCLUDE	'ALL.MACROS'
		INCLUDE	'Pascal.MACROS'
		INCLUDE	'SPECIAL.MACROS'
		INCLUDE	'DP.equ'
		INCLUDE	'match.equ'
		INCLUDE 'e16.finder'
		PRINT	ON

MaxChains	equ	200			;Maximum # of chains for each chunk of the Chain Table
MaxArrayIcons	equ	200			;Maximum # of icons in each chunk of the IconOffsetList
						;and IconHandleList

		import DisposeHandleGlue

;
; MatchGlobals -- things that get used by any of these routines and anyone
;		  outside
;.....................................................................

MatchGlobals	PROCNAME EXPORT

		IMPORT	AllowTellFinderCalls

; -----------------------------------------------------------------------------------------------
; DO NOT, I repeat, DO NOT change the order and offsets of these fields.  People other than
; the Finder will really depend on them!
; -----------------------------------------------------------------------------------------------

		EXPORT StartofDebugInfo
StartofDebugInfo
		EXPORT	NameChain		;don't change the order these
NameChain	dc.L	0			;are in, the request stuff copies
		EXPORT	fTypeListPtr		;them in this order for debug info
fTypeListPtr	dc.L	0
		EXPORT	dTypeListPtr
dTypeListPtr	dc.L	0
		EXPORT	MasterChain
MasterChain	dc.L	0
		EXPORT	rFPListHandle
rFPListHandle	dc.L	0
		EXPORT	rFPCount
rFPCount	dc.w	0			;if you have more than 64k apps, you're
						;outta your mind!

		EXPORT	NameChainInsert
NameChainInsert	dc.L	0
		dc.L	0			;unused for now (1/10/92), not removed to leave debug info intact

		EXPORT	MasterChainInsert
MasterChainInsert dc.L	0
		dc.L	0			;unused for now (1/10/92), not removed to leave debug info intact

		EXPORT	ChainTable
ChainTable 	dc.L	0			;handle to chain table
		EXPORT	IconOffsetArray
IconOffsetArray	dc.L	0
		EXPORT	IconHandleArray
IconHandleArray	dc.L	0
		EXPORT	IconArrayUsed
IconArrayUsed	dc.w	0
		EXPORT	IconArraySize
IconArraySize	dc.w	0

		dc.L	AllowTellFinderCalls

		EXPORT	EndOfDebugInfo
EndOfDebugInfo
;
; END of super-important chain and handle stuff
; ---------------------------------------------------------------------------------------------

		EXPORT	GenericSIconHandle
GenericSIconHandle dc.L	0
		EXPORT	GenericIconHandle
GenericIconHandle dc.L	0

		EXPORT	FinderPathID
FinderPathID	dc.w	0
		EXPORT	BundleID
BundleID	dc.w	0
		EXPORT	IconListID
IconListID	dc.w	0

		EXPORT	rFPMax
rFPMax		dc.w	0			;how many records we have room for...
		ENDP

;
; allocateChains -- allocate the handle chains that are used throughout the
;                   lifetime of the finder
;
; OUT: carry set if we couldn't allocate a memory block we needed
;.....................................................................

allocateChains  PROCNAME EXPORT

		IMPORT	NewHandle
		IMPORT	HandleToPointer
		IMPORT	LoadRBundle
		IMPORT	IconListID
		IMPORT	BundleID
		IMPORT	FinderPathID
		IMPORT	IconOffsetArray
		IMPORT	IconHandleArray
		IMPORT	fileTypeList
		IMPORT	deviceTypeList
		IMPORT	fTypeListPtr
		IMPORT	dTypeListPtr
		IMPORT	fTypeInsertList

		phb
		phk
		plb
		
		lda	<MyID				;icons have ID's of this type
		and	#$F0FF
		ora	#$0700
		sta	BundleID

		and	#$F0FF
		ora	#$0800
		sta	IconListID

		and	#$F0FF
		ora	#$0900
		sta	FinderPathID
		
;
; allocate the chain table
;
		lda	#16*MaxChains
		ldx	#$0008
		jsr	NewHandleAttribs		
		stx	ChainTable
		stx	<deref
		sta	ChainTable+2
		sta	<deref+2
		bcc	@gotChains
@goBogus	brl	@bogus
@gotChains

		lda	[<deref]
		tax
		ldy	#2
		lda	[<deref],y
		sta	<deref+2
		stx	<deref

		ldy	#10				;zero out the first entry (important)
		lda	#0
@zLoop		sta	[<deref],y
		dey
		dey
		bpl	@zLoop

		lda	#1				;one record in the table so far
		sta	[<deref]

		ldy	#4
		lda	#MaxChains			;say we have room for 'MaxChains' records currently
		sta	[<deref],y
		
		stz	NameChain
		stz	NameChain+2
		stz	NameChainInsert
		stz	NameChainInsert+2
		
		stz	MasterChain
		stz	MasterChain+2
		stz	MasterChainInsert
		stz	MasterChainInsert+2
		
;
; allocate and zero out the filetype and devicetype lists (devicetype list is at the top of the
; filetype list) and also the ftype insertion list and the dtype insertion list
;
		ldx	#((256*4)*4)-2			;zero out the lists (we might have been restarted)
		lda	#0
@loop		sta	>fileTypeList,x
		dex
		dex
		bpl	@loop

		lda	#fileTypeList
		sta	fTypeListPtr
		lda	#fileTypeList>>16
		sta	fTypeListPtr+2

		lda	#deviceTypeList
		sta	dTypeListPtr
		lda	#deviceTypeList>>16
		sta	dTypeListPtr+2

;
; allocate both the IconOffsetArray and the IconHandleList and set their sizes for 200 icons
; as unlocked, unfixed, and unpurgable, and no special memory
;		
		lda	#4*MaxArrayIcons		;# of records
		ldx	#$0008				;no special memory
		jsr	NewHandleAttribs
		stx	IconHandleArray
		sta	IconHandleArray+2
		bcs	@bogus	
		
		lda	#4*MaxArrayIcons		;# of records
		ldx	#$0008				;no special memory
		jsr	NewHandleAttribs
		stx	IconOffsetArray
		sta	IconOffsetArray+2
		bcs	@bogus		

;
; setup MaxArrayIcons and IconArrayUsed HERE before we add anything else to the arrays
;
		lda	#MaxArrayIcons
		sta	IconArraySize
		lda	#2
		sta	IconArrayUsed
				
;
; allocate the rFinderPath list
;
		lda	#40*32
		ldx	#$0008				;no special memory
		jsr	NewHandleAttribs
		stx	rFPListHandle
		sta	rFPListHandle+2
		bcs	@bogus

		stz	rFPCount			;number of rFinderPath records
		lda	#40				;when we get here, start resizing
		sta	rFPMax
		
@bogus		tya					;error code was in Y if SEC
		plb
		rtl					;return SEC/A=error


;
; NewHandleAttribs -- allocate a new handle of (A) bytes, but use (X) as the attributes
;
; Returns SEC/Y=error
;
NewHandleAttribs
		pha					;Space for result.
		pha
		pea	0				;Pass size of block needed.
		pha				
		pei	<MyID
		phx					;attributes
		pha					;Pass address, not used.
		pha
		_NewHandle
		tay					;error code in Y
		plx
		pla
		rts
		ENDP

;
; Now that the icon file is open, load the Generic icons and load all the rest of the icons
;
; OUT: 	A&X contain the handle of the rBundle which was loaded for the Finder or NIL
;	if we had a disaster
;
; Also, on error we return SEC and Y=error code (12-Aug-92 DAL)
;
;.....................................................................

SetupLoad	PROCNAME	EXPORT

		IMPORT	GenericIconHandle
		IMPORT	GenericSIconHandle
		IMPORT	IconOffsetArray
		IMPORT	IconHandleArray
		IMPORT	LoadRBundle
		IMPORT	fileTypeList
		IMPORT	fTypeInsertList
		
		phb
		phk
		plb
		
		pha
		pha
		pea	$8001			;rIcon
		pushLong #$00000010
		_LoadResource
		tay
		pulllong GenericIconHandle
		bcc	@loadOK
@goBogus	brl	@bogus
@loadOK

		pha
		pha
		pea	$8001			;rIcon
		pushLong #$00000110
		_LoadResource
		tay
		pulllong GenericSIconHandle
		bcs	@goBogus

;
; stuff the handles of each of the generic icons into the handle array
;
		lda	IconHandleArray
		sta	<handle
		lda	IconHandleArray+2
		sta	<handle+2
		
		lda	[<handle]
		sta	<ptr
		ldy	#2
		lda	[<handle],y
		sta	<ptr+2
		
		lda	GenericIconHandle
		sta	[<ptr]
		lda	GenericIconHandle+2
		sta	[<ptr],y
		
		ldy	#4
		lda	GenericSIconHandle
		sta	[<ptr],y
		iny
		iny
		lda	GenericSIconHandle+2
		sta	[<ptr],y

;
; stuff the offsets to each of the generic icons into the offset array
;
		lda	IconOffsetArray
		sta	<handle
		lda	IconOffsetArray+2
		sta	<handle+2
		
		lda	[<handle]
		sta	<ptr
		ldy	#2
		lda	[<handle],y
		sta	<ptr+2

		lda	#0
		sta	[<ptr]
		sta	[<ptr],y
		iny
		iny
		sta	[<ptr],y
		iny
		iny
		sta	[<ptr],y

;
; now, walk through the rBundle and load everything we didn't load before 
;
		pha				;space for the rBundleHandle
		pha
		pea	$8000			;we're loading the Finder's stuff
		pushlong #0			;zero == Finder's resources
		pea	0			;by resource ID
		pushlong #1			;get finder's RBundle resource
		jsl	LoadRBundle		;result from LoadRBundle stays on stack

		tay				;possible error code in Y

		ldx	#((256*4)*2)-2		;zero the insertion offset lists
		lda	#0			;so that we start inserting at the head of the list
@loop		sta	>fTypeInsertList,x		
		dex
		dex
		bpl	@loop

		stz	NameChainInsert
		stz	NameChainInsert+2
		
		stz	MasterChainInsert
		stz	MasterChainInsert+2

;
; Exit with A&X set (or not set), but definitely exit this way!
;
		pla				;result from LoadRBundle
		plx				;rBundle handle goes into hyperspace

		beq @bogus

		plb
		clc				;no error
		rtl

@bogus		lda	#0			;Y = error code
		tax
		plb
		sec
		rtl

		ENDP

;
; LoadResources		Load all resource of the specified type and attributes
;			from the resource file, return the handle to the resource fork, file still
;			open if successful
;
; IN:	|  space  |	long, space for the resource map handle
;	|  flags  |	word, if bit 0 == 1 then process rBundle(1), if bit 1 == 1 then process all rBundles
;	|  type   |	word, if NIL then load all types
;	|  attr	  |	word, attributes to match to decide whether to load or not
;	|  memID  |	word, memory ID	to assign to everything that gets NewHandled
;	|  path   |	long, pathname of application
;	----------- <- SP
;
; OUT:  |  long	  |	resource fork handle
;	----------- <- SP 
;	
;	(A) contains either zero or an error code, carry set if error
;
; ERRORS: $1E02 if the resource fork either isn't a GS resource fork, or if the map is toast
;.....................................................................

LoadResources	PROCNAME EXPORT

		IMPORT	rFPListHandle
		IMPORT	rFPCount
		IMPORT	WStringCopy
		IMPORT	PathAddName
		IMPORT	WStrCompare
		IMPORT	c1_path
		IMPORT	DesktopName
		IMPORT	IconListID
		IMPORT	IconsName
		IMPORT	IconArrayUsed
		IMPORT	IconArraySize
		IMPORT	IconHandleArray
		IMPORT	IconOffsetArray

GSOSStackCall	equ	$e100b0
Move_Info	equ	$e10200

rFileVersion	equ	0
rFileToMap	equ	4
rFileMapSize	equ	8
		
mapNext		equ	0
mapFlag		equ	4
mapOffset	equ	6
mapSize		equ	10
mapToIndex	equ	14
mapFileNum	equ	16
mapID		equ	18

resType		equ	0
resID		equ	2
resOffset	equ	6
resAttr		equ	10
resSize		equ	12
resHandle	equ	16
resRecSize	equ	20

		DefineStack
LastSmallIconIndex word
LastLargeIconIndex word
LastIconIndex	word
LastIconID	long
LastSmallIconID long
LastLargeIconID long
resourceType	word
resourceID	long
OffsetListPtr	long
OffsetListStart	long
OffsetListHandle long
HandleListPtr	long
HandleListStart	long
HandleListHandle long
IconHandleSize	long
TotalIconCount	word
TotalIconCount4 long
IconList	long
IconListHandle	long
IconListPtr	long
DocListPtr	long
OneDocPtr	long
OneDocCount	word
BundleResRefRec	long
ResRefRec	long
ResRefRecStart	long
DestPtr		long
DestHandle	long
DestSize	long
rMapSize	long
rMap		long
Offset		long
rFork		long
error		word
CloseParms	block	4
ReadParms	block	$10
OpenParms	block	$3a
retAddr		block	3
pathname	long
memoryID	word
attributes	word
type		word
flags		word
rForkHandle	long

inParms		SET	12
locParms	SET	122+$3a+$10+$4

		tsc
		sec
		sbc	#locParms		;allocate extra DP space for local DP
		tcs
		phb				;preserve data bank
		phd
		tcd				;set DP to stack

		phk
		plb

;
; first, get a memory block as large as the file's resource fork
;
		lda	#15			;pcount
		sta	<OpenParms
		
		lda	<pathname
		sta	<OpenParms+4
		lda	<pathname+2
		sta	<OpenParms+6
		
		lda	#1			
		sta	<OpenParms+8		;requestAccess
		sta	<OpenParms+10		;resource number (resource fork)

		stz	OpenParms+$26		;zero out the option list
		stz	OpenParms+$26+2
		
		pea	0			;address of parm block
		tdc
		clc
		adc	#OpenParms
		pha
		pea	$2010			;_OpenGS
		jsl	GSOSStackCall
		bcc	@openOK
		brl	errorExit
@openOK

		pha
		pha
		pushZLong <openParms+$32	;get enough for the resource fork's EOF
		pei	<MemoryID
		pea	$8000			;locked
		pha
		pha
		_NewHandle
		plx
		stx	<rForkHandle
		plx
		stx	<rForkHandle+2
		bcc	@gotForkHandle
		brl	closeExit
		
@gotForkHandle	lda	[<rForkHandle]
		tax
		ldy	#2
		lda	[<rForkHandle],y
		
		sta	<rFork+2		;put the resource fork here	
		sta	<readParms+6
		stx	<rFork
		stx	<readParms+4
		
;
; now, read the entire resource fork into the memory block we just allocated
;
		lda	#4
		sta	<ReadParms		;pcount
		
		lda	<OpenParms+2		;refnum
		sta	<ReadParms+2
		
		lda	<OpenParms+$32		;howmuch
		sta	<ReadParms+8
		lda	<OpenParms+$34
		sta	<ReadParms+10
		
		pea	0
		tdc
		clc
		adc	#ReadParms
		pha
		pea	$2012			;_ReadGS
		jsl	GSOSStackCall
		bcc	@readOK
		brl	DisposeFork
@readOK

;
; Well, that's it for the disk access we'll have to do -- from now on it's just NewHandle calls
; and a lot of memory moves as we walk the resource map
;
		lda	[<rFork]
		bne	@notGSFork
		ldy	#2
		lda	[<rFork],y
		beq	@gotGSFork
		
@notGSFork	lda	#$1e02			;resBadFormat
		brl	CloseExit
@gotGSFork

		ldy	#rFileToMap
		lda	[<rFork],y
		clc
		adc	<rFork
		sta	<rMap
		iny
		iny
		lda	[<rFork],y
		adc	<rFork+2
		sta	<rMap+2

;
; check the offset of our resource map
;
		ldy	#rFileToMap
		lda	[<rFork],y
		sta	<Offset			;Offset to Map
		iny
		iny
		lda	[<rFork],y
		sta	<Offset+2
		
		ldy	#mapOffset
		lda	[<rMap],y
		cmp	<Offset
		bne	@goDisposeFork
		iny
		iny
		lda	[<rMap],y
		cmp	<Offset+2
		bne	@goDisposeFork

;
; check the size of our resource map
;
		ldy	#rFileMapSize
		lda	[<rFork],y
		sta	<rMapSize
		iny
		iny
		lda	[<rFork],y
		sta	<rMapSize+2
		
		ldy	#mapSize
		lda	[<rMap],y
		cmp	<rMapSize
		bne	@goDisposeFork
		iny
		iny
		lda	[<rMap],y
		cmp	<rMapSize+2
		beq	@validOffset
@goDisposeFork	lda	#$1e02			;resBadFormat
		brl	DisposeFork
@validOffset

;
; Now that we move the map into its own handle, walk the map and move the resources into
; separate handles which match our input criteria
;
		lda	#0			;zero rMapNext
		sta	[<rMap]
		ldy	#mapNext+2
		sta	[<rMap],y
		
		iny				;zero mapFlag
		iny
		sta	[<rMap],y

		ldy	#mapFileNum		;setup the file number for this file
		lda	OpenParms+2
		sta	[<rMap],y
		
		ldy	#mapToIndex		;set resRefRec to the beginning of the resource
		lda	[<rMap],y		;reference record list
		clc
		adc	<rMap
		sta	<resRefRec
		sta	<resRefRecStart
		lda	<rMap+2
		adc	#0
		sta	<resRefRec+2
		sta	<resRefRecStart+2
		
;
; loop back here for every resRefRec
;
ResRefRecLoop	lda	[<resRefRec]
		bne	@notLastResRefRec
		brl	@lastResRefRec
@notLastResRefRec

		ldy	#resHandle		;start by zeroing out the resRefRec handle
		lda	#0
		sta	[<resRefRec],y
		iny
		iny
		sta	[<resRefRec],y

		lda	<type			;check our resource type to see if we should allocate
		beq	@loadAllTypes		;a handle for it
		cmp	[<ResRefRec]
		bne	@nextResRefRec
@loadAllTypes

		lda	<attributes		;check our resource attributes to see if we should
		cmp	#$FFFF			;allocate a handle for it
		beq	@loadAllAttr
		ldy	#resAttr
		and	[<resRefRec],y
		beq	@nextResRefRec		
@loadAllAttr

		lda	flags			;if we are dealing with a file that has Bundles, DO NOT
		and	#3			;preload all the icons and rBundles, do that later into one
		beq	@noBundles		;big list

		lda	[<ResRefRec]
		cmp	#$802B			;rBundle ID
		beq	@nextResRefRec
		cmp	#$8001			;rIcon ID
		beq	@nextResRefRec

@noBundles	jsr	MoveRefRecToHandle
		bcs	ErrorExit
		
@nextResRefRec	ldy	#resAttr		;ALWAYS clear the preload bit (we're preloading it now)
		lda	[<resRefRec],y
		and	#$FFBF			
		sta	[<resRefRec],y

		lda	<resRefRec
		clc
		adc	#ResRecSize
		sta	<resRefRec
		bcc	@goResRecLoop
		inc	<resRefRec+2
@goResRecLoop	brl	ResRefRecLoop

;
; we're done!  say we did have any errors
;
@lastResRefRec	stz	<error

		lda	flags			;are we dealing with a fork which has rBundles and rIcons?
		and	#3
		beq	done
		
		jsr	GlueIcons		;if so, glue them all together in a big mess
		bcs	ErrorExit
		bra	done

;
; DisposeFork -- get rid of the handle that contains the entire resource fork
;
DisposeFork
		pha
		pushZlong <rForkHandle
		jsl DisposeHandleGlue
		pla
;
; exit path for errors which need to close the resource fork
;
CloseExit	sta	<error
		
		lda	#1			;pcount
		sta	CloseParms
		
		lda	OpenParms+2
		sta	CloseParms+2
		
		pea	0
		tdc
		clc
		adc	#CloseParms
		pha
		pea	$2014			;_CloseGS
		jsl	GSOSStackCall
		bra	done
		
;
; exit path for errors
;
ErrorExit	sta	<error
		
;
; all done, exit
;
done		ldy	<error

		pld
		plb
		lda	retAddr+1,s		;clean up stack
		sta	retAddr+inParms+1,s
		lda	retAddr,s
		sta	retAddr+inParms,s
		tsc
		clc
		adc	#inParms+locParms
		tcs

		tya
		cmp	#1			;set or clear carry based on (A)
		rtl

;
; Move what's in this ResRefRec into a handle of its own with the attributes it asked for
;
MoveRefRecToHandle
		pha
		pha
		ldy	#resSize+2		;how much
		lda	[<resRefRec],y
		sta	<DestSize+2
		pha
		dey
		dey
		lda	[<resRefRec],y
		sta	<DestSize
		pha

		pei	<MemoryID		;memory ID
		ldy	#resAttr
		lda	[<resRefRec],y		;attributes
		and	#$c31f			;mask for valid memory manager values
		pha
		pha				;no fixed location
		pha
		_NewHandle
		plx
		stx	<DestHandle
		plx
		stx	<DestHandle+2
		bcs	@done			;if we're out of memory, do the next resRefRec

		ldy	#resOffset		;make our source pointer
		lda	[<resRefRec],y
		clc
		adc	<rFork
		tax
		iny
		iny
		lda	[<resRefRec],y
		adc	<rFork+2
		pha
		phx

		ldy	#2			;deref the destination handle and use as dest ptr
		lda	[<DestHandle],y
		pha
		lda	[<DestHandle]
		pha

		pushZLong <DestSize
		pea	$0805
		jsl	Move_Info

		ldy	#resHandle
		lda	<DestHandle
		sta	[<resRefRec],y
		iny
		iny
		lda	<DestHandle+2
		sta	[<resRefRec],y
		clc
@done		rts

;
; Glue all the icons together for either all the rBundles or rBundle(1)
;
GlueIcons	stz	<IconHandleSize
		stz	<IconHandleSize+2
		stz	<TotalIconCount
		
		lda	flags			;if bit 1 is set, we have to add the icons from all the bundles
		and	#2
		bne	@addAllBundles

		lda	#$802B
		ldx	#1
		ldy	#0
		jsr	findResource
		bcc	@noMoveToHandle

		lda	<ResRefRec		;save the pointer to our rBundle
		sta	<BundleResRefRec
		lda	<ResRefRec+2
		sta	<BundleResRefRec+2
		
		ldy	#resOffset
		lda	[<ResRefRec],y
		clc
		adc	<rFork
		sta	<DestPtr
		iny
		iny
		lda	[<ResRefRec],y
		adc	<rFork+2
		sta	<DestPtr+2

		lda	#addIconSizeToHandle
		jsr	WalkBundle
		
		lda	<BundleResRefRec
		sta	<ResRefRec
		lda	<BundleResRefRec+2
		sta	<ResRefRec+2
		
		jsr	MoveRefRecToHandle
		bcc	@addDone
		rts
		
;
; add all sizes of all the icons in all the rBundles in this resource fork into IconHandleSize
; also add the total number of icons which are really used by all the rBundles we're using
;
@addAllBundles	lda	#$802B
		ldx	#0
		txy
		jsr	findResource
		bcc	@addDone

		lda	<ResRefRec		;save the pointer to our rBundle
		sta	<BundleResRefRec
		lda	<ResRefRec+2
		sta	<BundleResRefRec+2
		
@addLoop	lda	[<BundleResRefRec]
		beq	@addDone
		cmp	#$802B
		bne	@addDone
						
		ldy	#resOffset
		lda	[<BundleResRefRec],y
		clc
		adc	<rFork
		sta	<DestPtr
		iny
		iny
		lda	[<BundleResRefRec],y
		adc	<rFork+2
		sta	<DestPtr+2

		lda	#addIconSizeToHandle
		jsr	WalkBundle
		
		lda	<BundleResRefRec
		sta	<ResRefRec
		lda	<BundleResRefRec+2
		sta	<ResRefRec+2
		
		jsr	MoveRefRecToHandle
		bcc	@noMoveToHandle
		rts

@noMoveToHandle	lda	<BundleResRefRec
		clc
		adc	#ResRecSize
		sta	<BundleResRefRec
		lda	<BundleResRefRec+2
		adc	#0
		sta	<BundleResRefRec+2
@goAddLoop	bra	@addLoop		

;
; now that we've added up the size of all the icons in either all the rBundles or just rBundle(1),
; allocate enough memory for the new icon list
;
@addDone	lda	<IconHandleSize
		ora	<IconHandleSize+2
		bne	@haveIcons
		clc
		rts
@haveIcons

		pha
		pha
		pushZLong <IconHandleSize
		lda	IconListID
		pha				;memory ID
		
		ldx	#$0000			;if flags isn't 3, then most likely we're starting up the
		lda	flags			;finder, so DON'T put our handle list on top of the SHR screen
		and	#2
		bne	@all
		ldx	#$0008	

@all		phx				;attributes
		pha
		pha
		_NewHandle
		plx
		stx	<IconListHandle
		plx
		stx	<IconListHandle+2
		bcc	@gotHandle
		rts
@gotHandle

		lda	IconHandleArray
		sta	<HandleListHandle
		lda	IconHandleArray+2
		sta	<HandleListHandle+2

		lda	IconOffsetArray
		sta	<OffsetListHandle
		lda	IconOffsetArray+2
		sta	<OffsetListHandle+2

		lda	IconArrayused
		clc
		adc	<TotalIconCount
		cmp	IconArraySize
		blt	@noSizeAdjust
		
		inc	a
		sta	<TotalIconCount4
		stz	<TotalIconCount4+2

;
; we need to extend the IconListArrays by 4*TotalIconCount apiece
;
		asl	<TotalIconCount4		
		rol	<TotalIconCount4+2
		asl	<TotalIconCount4		
		rol	<TotalIconCount4+2

		ldy	#4
		lda	[<HandleListHandle],y	;unlock and unfix the block
		and	#$3FFF
		sta	[<HandleListHandle],y

		pha				;get the old handle size and stretch
		pha				;it by a longword
		pushZLong <HandleListHandle
		_GetHandleSize			;and it had BETTER be unlocked at this
		pla				;point
		clc
		adc	<TotalIconCount4	;want to add enough for 'TotalIcons' more records
		tax
		pla
		adc	<TotalIconCount4+2
		pha
		phx
		pushZLong <HandleListHandle
		_SetHandleSize
		bcc	@HandleListExtended
		rts
@handleListExtended
				
		ldy	#4
		lda	[<OffsetListHandle],y	;unlock and unfix the block
		and	#$3FFF
		sta	[<OffsetListHandle],y

		pha				;get the old handle size and stretch
		pha				;it by a longword
		pushZLong <OffsetListHandle
		_GetHandleSize			;and it had BETTER be unlocked at this
		pla				;point
		clc
		adc	<TotalIconCount4	;want to add enough for 'TotalIcons' more records
		tax
		pla
		adc	<TotalIconCount4+2
		pha
		phx
		pushZLong <OffsetListHandle
		_SetHandleSize
		bcc	@OffsetListExtended
		rts
@OffsetListExtended

		lda	IconArrayUsed		;say what the new size that we have available really is
		clc
		adc	<TotalIconCount
		inc	a
		sta	IconArraySize
@noSizeAdjust

;
; IMPORTANT -- past this point, don't do anything that could move memory!  The fork, Icon List,
;	       icon list arrays must not move!
;

		lda	[<IconListHandle]	;pointer the first available spot in the icon handle
		sta	<IconListPtr
		sta	<IconList
		ldy	#2
		lda	[<IconListHandle],y
		sta	<IconListPtr+2
		sta	<IconList+2
		
;
; setup the pointer to the offset list
;		
		lda	[<OffsetListHandle]
		sta	<OffsetListStart
		ldy	#2
		lda	[<OffsetListHandle],y
		sta	<OffsetListStart+2

;
; setup the pointer to the handle list
;
		lda	[<HandleListHandle]
		sta	<HandleListStart
		ldy	#2
		lda	[<HandleListHandle],y
		sta	<HandleListStart+2

;
; Now either move just the single rBundle(1)'s icons into the Icon List which we just allocated, or
; move the icons from EVERY index rBundle in this resource fork
;
		lda	flags
		and	#2			;if bit 1 is set, we have to move the icons from all the bundles
		bne	@moveAllBundles

		lda	#$802B
		ldx	#1
		ldy	#0
		jsr	findResource
		bcc	@moveDone

		ldy	#resHandle
		lda	[<ResRefRec],y
		sta	<DestHandle
		iny
		iny
		lda	[<ResRefRec],y
		sta	<DestHandle+2
		
		lda	[<DestHandle]
		sta	<DestPtr
		ldy	#2
		lda	[<DestHandle],y
		sta	<DestPtr+2
		
		lda	#addIconToHandle
		jsr	WalkBundle
		clc
		rts

@moveAllBundles	lda	#$802B
		ldx	#0
		txy
		jsr	findResource
		bcc	@moveDone

		lda	<ResRefRec		;save the pointer to our rBundle
		sta	<BundleResRefRec
		lda	<ResRefRec+2
		sta	<BundleResRefRec+2
				
@moveLoop	lda	[<BundleResRefRec]
		beq	@moveDone
		cmp	#$802B
		bne	@moveDone
		
		ldy	#resHandle
		lda	[<BundleResRefRec],y
		sta	<DestHandle
		iny
		iny
		lda	[<BundleResRefRec],y
		sta	<DestHandle+2
		
		lda	[<DestHandle]
		sta	<DestPtr
		ldy	#2
		lda	[<DestHandle],y
		sta	<DestPtr+2

		lda	#addIconToHandle
		jsr	WalkBundle

		lda	<BundleResRefRec
		clc
		adc	#ResRecSize
		sta	<BundleResRefRec
		lda	<BundleResRefRec+2
		adc	#0
		sta	<BundleResRefRec+2
		bra	@moveLoop		

@moveDone	clc
		rts		
		
		
;
; WalkBundle -- walk through the given rBundle ID, move the rBundle into a separate handle,
;	        and move its icons into the IconList, marking their offsets and handles in the
;	        rBundle as we go (or NIL if the rIcon can't be found).
;
; IN:  	(A) = local address to call for both the small icon and large icon in each OneDoc
;	<DestPtr points to the Bundle
;
WalkBundle	sta	address

		stz	<LastLargeIconID
		stz	<LastLargeIconID+2
		
		stz	<LastSmallIconID
		stz	<LastSmallIconID+2

		stz	<LastLargeIconIndex
		stz	<LastSmallIconIndex
		
		ldy	#2
		lda	[<DestPtr],y
		clc
		adc	<DestPtr
		sta	<DocListPtr
		lda	<DestPtr+2
		adc	#0
		sta	<DocListPtr+2
		
		lda	<DocListPtr
		clc
		adc	#2
		sta	<OneDocPtr
		lda	<DocListPtr+2
		adc	#0
		sta	<OneDocPtr+2

		stz	<OneDocCount
		
		lda	[<DocListPtr]		;are there any OneDocs?
		bne	@loop
		rts

;
; every time through this loop, add the size of the icons in the resource, or add the icon data into
; the icon list
;
@loop		ldy	#4			;NumResults
		lda	[<OneDocPtr],y
		cmp	#3
		blt	@next

		jsr	SaveLarge		
		ldy	#16			;LargeIconResourceID
		ldx	#0
		jsr	(address,x)
		jsr	RestoreLarge
		bcc	@NoNewLarge
		inc	<TotalIconCount
@NoNewLarge

		ldy	#4			;NumResults
		lda	[<OneDocPtr],y
		cmp	#4
		blt	@next
		
		jsr	SaveSmall
		ldy	#24			;SmallIconResourceID
		ldx	#0
		jsr	(address,x)
		jsr	RestoreSmall
		bcc	@noNewSmall
		inc	<TotalIconCount
@NoNewSmall


@next		lda	[<OneDocPtr]
		clc
		adc	<OneDocPtr
		sta	<OneDocPtr
		bcc	@nr
		inc	<OneDocPtr+2
@nr		
		inc	<OneDocCount
		lda	<OneDocCount
		cmp	[<DocListPtr]
		blt	@loop
		rts

;
; DON'T do anything in the following 4 routines which might change the carry!
;
SaveLarge	lda	<LastLargeIconID
		sta	<LastIconID
		lda	<LastLargeIconID+2
		sta	<LastIconID+2
		lda	<LastLargeIconIndex
		sta	<LastIconIndex
		rts
		
RestoreLarge	lda	<LastIconID
		sta	<LastLargeIconID
		lda	<LastIconID+2
		sta	<LastLargeIconID+2
		lda	<LastIconIndex
		sta	<LastLargeIconIndex
		rts

SaveSmall	lda	<LastSmallIconID
		sta	<LastIconID
		lda	<LastSmallIconID+2
		sta	<LastIconID+2
		lda	<LastSmallIconIndex
		sta	<LastIconIndex
		rts

RestoreSmall	lda	<LastIconID
		sta	<LastSmallIconID
		lda	<LastIconID+2
		sta	<LastSmallIconID+2
		lda	<LastIconIndex
		sta	<LastSmallIconIndex
		rts		
		
;
; addIconSizeToHandle -- add the size of the icon at the offset in (Y) in the OneDoc to the
; 			 total size needed for all of our icons 
;
; IN: (Y) contains the offset into the OneDoc to  look for an rIcon resource
;
AddIconSizeToHandle
		phy
		lda	[<OneDocPtr],y		;is the rIcon ID == NIL?
		iny
		iny
		ora	[<OneDocPtr],y
		clc
		beq	@noResource		;if so, leave
		
		dey
		dey
		lda	[<OneDocPtr],y
		tax
		iny
		iny
		lda	[<OneDocPtr],y
		cmp	<LastIconID+2
		bne	@notSameID
		cpx	<LastIconID
		bne	@notSameID
		
		ply				;balance the stack!
		iny
		iny
		iny
		iny
		lda	#0			;this code just in case the LAST icon wasn't able to be found!
		cpy	#21			;is this for the large icon?
		blt	@large1			;if so, zero is index into offset table
		inc	a			;is not, 1 is index into offset table
@large1		sta	[<OneDocPtr],y
		iny
		iny
		lda	#0
		sta	[<OneDocPtr],y
		clc				;if we're the same as the last time, don't add any more to our size
		rts
		
@notSameID	dey
		dey
		lda	[<OneDocPtr],y
		sta	<LastIconID
		tax
		iny
		iny
		lda	[<OneDocPtr],y
		sta	<LastIconID+2
		tay
		lda	#$8001
		jsr	findResource
@noResource	ply
		bcs	@foundResource

		lda	#0			;zero out the rIcon ID and the icon handle and
		sta	[<OneDocPtr],y		;offset into the icon handle table and icon
		iny				;offset table
		iny
		sta	[<OneDocPtr],y
		iny
		iny
		cpy	#21			;is this for the large icon?
		blt	@large			;if so, zero is index into offset table
		inc	a			;is not, 1 is index into offset table
@large		sta	[<OneDocPtr],y
		iny
		iny
		lda	#0
		sta	[<OneDocPtr],y
		clc
		rts

@foundResource	ldy	#resSize
		lda	[<resRefRec],y
		clc
		adc	<IconHandleSize
		sta	<IconHandleSize
		iny
		iny
		lda	[<resRefRec],y
		adc	<IconHandleSize+2
		sta	<IconHandleSize+2
		sec
		rts

;
; addIconToHandle -- add the icon at the offset in (Y) in the OneDoc to the
; 		     handle just allocated for all our icons 
;
; IN: (Y) contains the offset into the OneDoc to  look for an rIcon resource
;
AddIconToHandle
		phy
		lda	[<OneDocPtr],y		;is the rIcon ID == NIL?
		iny
		iny
		ora	[<OneDocPtr],y
		clc
		beq	@noResource		;if so, leave

		dey
		dey
		lda	[<OneDocPtr],y
		tax
		iny
		iny
		lda	[<OneDocPtr],y
		cmp	<LastIconID+2
		bne	@notSameID
		cpx	<LastIconID
		bne	@notSameID
		
		ply
		iny				;the RESULT goes a longword hence our resource ID
		iny
		iny
		iny
		lda	<LastIconIndex		;store the index into the icon handle and offsets arrays
		sta	[<OneDocPtr],y		;in the OneDoc
		iny
		iny
		lda	#0
		sta	[<OneDocPtr],y
		clc				;if we're the same as the last time, don't add any more to our size
		rts
		
@notSameID	dey
		dey
		lda	[<OneDocPtr],y
		sta	<LastIconID
		tax
		iny
		iny
		lda	[<OneDocPtr],y
		sta	<LastIconID+2
		tay
		lda	#$8001
		jsr	findResource
@noResource	ply
		bcs	@foundResource
		rts

@foundResource	iny				;the RESULT goes a longword hence our resource ID
		iny
		iny
		iny
		lda	IconArrayUsed		;store the index into the icon handle and offsets arrays
		sta	<LastIconIndex
		sta	[<OneDocPtr],y		;in the OneDoc
		iny
		iny
		lda	#0
		sta	[<OneDocPtr],y

		ldy	#resOffset		;make our source pointer
		lda	[<resRefRec],y
		clc
		adc	<rFork
		tax
		iny
		iny
		lda	[<resRefRec],y
		adc	<rFork+2
		pha
		phx

		pushZLong <IconList		;destination pointer (it moves)
		
		ldy	#resSize+2		;the size to move
		lda	[<resRefRec],y
		pha
		dey
		dey
		lda	[<resRefRec],y
		pha
	
		pea	$0805
		jsl	Move_Info
		
		lda	IconArrayUsed		;make an index into our list of icon handles and
		sta	<Offset
		stz	<Offset+2
		
		asl	<Offset			;Offset *= 4
		rol	<Offset+2
		asl	<Offset
		rol	<Offset+2
		
		lda	<Offset			;add the offset to the start of the offset list
		clc
		adc	<OffsetListStart
		sta	<OffsetListPtr
		lda	<Offset+2
		adc	<OffsetListStart+2
		sta	<OffsetListPtr+2
		
		lda	<Offset			;add the offset to the start of the handle list
		clc
		adc	<HandleListStart
		sta	<HandleListPtr
		lda	<Offset+2
		adc	<HandleListStart+2
		sta	<HandleListPtr+2

		lda	<IconList		;take the current icon pointer and make an offset
		sec				;from the beginning of the IconList
		sbc	<IconListPtr
		sta	[<OffsetListPtr]
		lda	<IconList+2
		sbc	<IconListPtr+2
		ldy	#2
		sta	[<OffsetListPtr],y

		lda	<IconListHandle		;store the handle of the block of our icon
		sta	[<HandleListPtr]
		lda	<IconListHandle+2
		sta	[<HandleListPtr],y

		inc	IconArrayUsed
		
		ldy	#resSize		;point to the next spot to stuff an icon
		lda	[<resRefRec],y		;into our handle
		clc
		adc	<IconList
		sta	<IconList
		iny
		iny
		lda	[<resRefRec],y
		adc	<IconList+2
		sta	<IconList+2
		sec
		rts
		
;
; findResource -- given a type and ID, walk the resRefRec array and see if a resource type
;		   and ID exist
;
; IN:  (A) = resource type
;      (X) = resource ID, low word    \ if resource ID == 0, find first resource of that type
;      (Y) = resource ID, high word   /
;
; OUT: SEC if resource found, <RESREFREC points to it resRefRec
;      CLC if resource not found
;
findResource	sta	<resourceType
		stx	<resourceID
		sty	<resourceID+2

		lda	<resRefRecStart
		sta	<resRefRec
		lda	<resRefRecStart+2
		sta	<resRefRec+2
		
@ResRefRecLoop	lda	[<resRefRec]
		bne	@haveResRefRec
		clc
		rts
		
@haveResRefRec	cmp	<resourceType
		bne	@nextResRefRec
		
		lda	<resourceID		;if resourceID == 0, we've found the first one
		ora	<resourceID+2
		beq	@gotIt
		
		ldy	#resID
		lda	[<resRefRec],y
		cmp	<resourceID
		bne	@nextResRefRec
		iny
		iny
		lda	[<resRefRec],y
		cmp	<resourceID+2
		beq	@gotIt

@nextResRefRec	lda	<resRefRec
		clc
		adc	#ResRecSize
 		sta	<resRefRec
		bcc	@goResRecLoop
		inc	<resRefRec+2
@goResRecLoop	brl	@ResRefRecLoop
		
@gotIt		sec
		rts
		

;
; local (makes it non-romable, but oh well)
;
address		dc.w	0
		ENDP
		
;
; LoadRBundle
;
; load the given RBundle resource and put its constituent pieces (OneDocs)
; in their proper places.
;
;	IN:
;		---stack---
;		|  long   |	space for the rBundleHandle
;		|  word	  |	flag, bundle is the Finder's if = $8000, otherwise must be 0000!
;		|  long   |	handle to the volume name
;		|  word   |	flag, boolean, rBundle is a resource (0) or handle (1)
;		|  long	  |	rBundle resource #
;		| 3 bytes |	return address
;		----------- <-SP
;
;	OUT:
;		---stack---
;		|  long   |	rBundleHandle (unlocked when done) or NIL if error
;		| 3 bytes |	return address
;		----------- <-SP
;
; Return error code in A.
;
;.....................................................................

LoadRBundle	PROCNAME EXPORT

		IMPORT	fileTypeList
		IMPORT	deviceTypeList
		IMPORT	fTypeInsertList
		IMPORT	dTypeInsertList
		IMPORT	NewHandle
		IMPORT	HandleToPointer
		IMPORT	BundleID
		IMPORT	FinderPathID
		
		DefineStack
PriorItemOffset long				;offset to prior item in chain
PriorItemPtr	long
NextItemOffset 	long				;offset to next item in chain
NextItemPtr	long				
ItemPtr		long
ItemOffset	long				;offset of the item which we're adding to chain
ChainInsert	long				;ptr to offset to insertion point in chain
ChainStart	long				;ptr to offset to start of chain
TablePtr	long
TableHandle	long
rFPathID	long				;ID for rFinderPath resource
rVersID		long				;ID for rVersion  resource
rVersHandle	long
rIconHandle	long
rFPList		long
OneDocOffset	long
rFinderHandle	long
MatchFlags	long
rBundle		long
DocList		long
OneDoc		long
rFinderPath	long
handleSize	long
retAddr		block 3
resource	long
handleFlag	word
volumeNameHandle long
finderFlag	word
rBundleHandle	long

inParms		SET	12	;14-1 long
locParms	SET	92

		tsc
		sec
		sbc	#locParms
		tcs

		phb				;preserve data bank
		phd
		tcd				;set DP to stack

		phk
		plb

;
; now that our stack frame is all setup, get the resource and scatter its
; component OneDOC's through a whole bunch of handles...
;
		lda	<resource		;move this to rBundleHandle in case
		sta	<rBundleHandle		;this is actually a handle and not
		ldx	<resource+2		;a resource ID
		stx	<rBundleHandle+2
		
		ldy	handleFlag		;if we've got a handle, don't load
		bne	goodRBundle		;anything
		
		pha
		pea	1
		_SetResourceFileDepth
		pla
		sta	oldDepth

		pha
		pha
		pea	$802B			;rBundle
		pushZLong <resource
		_LoadResource
		tay
		pla
		sta	<rBundleHandle
		plx
		stx	<rBundleHandle+2
		bcc	goodRBundle
		
		stz	<rBundleHandle
		stz	<rBundleHandle+2
		brl	done_error		;not loaded, so nothing to release
goodRBundle

		pha
		pha
		phx
		pha
		jsl	handleToPointer		;this also locks it down (very good)
		pulllong <rBundle

		ldy	#6			;say this bundle is MINE!
		lda	BundleID
		sta	[<rBundleHandle],y

		ldy	#4			;only set the purge level to zero if it's not
		lda	[<rBundleHandle],y	;already
		and	#$0300
		beq	@noPurge
		
		pea	0			;set the purge level of the handle to zero
		pushZLong <rBundleHandle	;so it won't leave
		_SetPurge
@noPurge

;
; first, check the version to make sure we can handle it (currently version == 0)
;
		lda	[<RBundle]
		beq	versionWeKnow
		bmi	versionWeKnow
		
		jsr	detachRBundle
		jsr	disposeRBundle
		brl	done			;detach 'em and dispose 'em
versionWeKnow

		ldy	handleFlag		;if we've got a handle, save the rBundle's ID
		bne	@noRBundleID		

		ldy	#8			;rBundleID
		lda	<resource
		sta	[<rBundle],y
		iny
		iny
		lda	<resource+2
		sta	[<rBundle],y
@noRBundleID
		
		ldy	#12			;rBundleVolumeHandle
		lda	<volumeNameHandle
		sta	[<rBundle],y
		iny
		iny
		lda	<volumeNameHandle+2
		sta	[<rBundle],y
	
		ldy	#2
		lda	[<rBundle],y		;offset to oneDocs
		clc
		adc	<rBundle
		sta	<DocList
		lda	<rBundle+2
		adc	#0
		sta	<DocList+2

		lda	[<DocList]		;if we don't have any OneDocs, then
		sta	countOfONEdocs		;we're not going to do squat
		bne	@haveSomeOneDocs
		
		jsr	detachRBundle
		jsr	disposeRBundle
		brl	done			;detach 'em and dispose 'em
@haveSomeOneDocs

		lda	<DocList
		clc
		adc	#2
		sta	<OneDoc
		lda	<DocList+2
		adc	#0
		sta	<OneDoc+2

;
; now, go through each ONEdoc structure, moving each structure out of the RBundle
; resource into the match chain for each filetype or into the master match list
; for anything else
;
; the idea here is fairly simple -- there is one master chain, and our oneDoc handle
;				    gets added on...
;
nextOneDoc	
		lda	<OneDoc			;calculate the offset of our OneDoc from
		sec				;the beginning of the rBundle handle
		sbc	<rBundle		
		sta	<OneDocOffset
		lda	<OneDoc+2
		sbc	<rBundle+2
		sta	<OneDocOffset+2
		
		ldy	#4			;get rFinderPath (if there is one)
		lda	[<OneDOC],y
		cmp	#2
		bge	@givePath
		brl	@noIconAtAll

@givePath	lda	<handleFlag		;if we're doing things by handle, then
		beq	@rFPathIsID		;we've already got this loaded... (or not)
		
		ldy	#12
		lda	[<OneDOC],y
		sta	<rFinderHandle
		iny
		iny
		lda	[<OneDOC],y
		sta	<rFinderHandle+2
		
		ora	<rFinderHandle		;if we got a handle..
		bne	@rFPathIsHandle		;then we can use that handle
		brl	@noIconAtAll		;if not, ignore that handle
		
@rFPathIsID	ldy	#12
		lda	#0
		sta	[<OneDOC],y		;zero out the rFinderPathHandle
		iny
		iny
		sta	[<OneDOC],y

		ldy	#8			;but only get it if there is one
		lda	[<OneDOC],y
		bne	@loadRFinderPath
		iny
		iny
		ora	[<OneDOC],y
		bne	@loadRFinderPath
		brl	@noIconAtAll

@loadRFinderPath
		pha
		pha
		pea	$802C			;rFinderPath
		ldy	#10			;rFinderPathID+2
		lda	[<OneDOC],y
		sta	<rFPathID+2
		pha
		dey
		dey
		lda	[<OneDOC],y
		sta	<rFPathID
		pha
		_LoadResource
		tay
		pla
		plx
		bcs	@errorRFinderPath
		ldy	#12			;rFinderPathHandle
		sta	[<OneDOC],y
		sta	<rFinderHandle
		iny
		iny
		txa
		sta	[<OneDOC],y
		sta	<rFinderHandle+2
		
;
; drop down here if the rFPath is already loaded -- we need to change its memory ID and make
; it non-purgable
;
@rFPathIsHandle	ldy	#6
		lda	FinderPathID
		sta	[<rFinderHandle],y

		ldy	#4
		lda	[<rFinderHandle],y
		and	#$0300
		beq	@loadRVersion
		
		pea	0			;set the purge level of the handle to zero
		pushZLong <rFinderHandle	;so it won't leave
		_SetPurge
		bra	@loadRVersion

@errorRFinderPath
		cpy	#$1e06			;if we couldn't find that icon, mark it as generic
		beq	@noRFinderPath		;but, if we had some other kind of error, just
		brl	errorResource		;leave, don't dispose anything, but mark as error
		
@noRFinderPath	lda	#0			;if we got an error getting the
		
		ldy	#8			;rFinderPathID
		sta	[<OneDOC],y
		iny
		iny
		sta	[<OneDOC],y
		
		iny
		iny
		sta	[<OneDOC],y		;rFinderPathHandle
		iny
		iny
		sta	[<OneDOC],y
		brl	@noIconAtAll

;
; now that we've grabbed the rFinderPath, grab the rVersion from the rFinderPath
;
@loadRVersion
		stz	<rVersID
		stz	<rVersID+2
		
		stz	<rVersHandle
		stz	<rVersHandle+2
		
		ldy	#4			;lock the rFinderPath down for a moment
		lda	[<rFinderHandle],y	;while we get the rVersion referenced
		ora	#$8000			;by it...
		sta	[<rFinderHandle],y

		lda	[<rFinderHandle]	;deref rFinderPath's handle
		tax
		ldy	#2
		lda	[<rFinderHandle],y
		sta	<rFinderPath+2
		stx	<rFinderPath

		ldy	#4			;find out if there really is an
		lda	[<rFinderPath],y	;rVersion reference
		cmp	#1
		bge	@hasRVersion
		
		jsr	unlockRFPath
		brl	@noIconAtAll
@hasRVersion

		lda	#0
		ldy	#10			;zero out the rVersionHandle
		sta	[<rFinderPath],y
		iny
		iny
		sta	[<rFinderPath],y

		ldy	#6			;if there is, see if it's non-zero
		lda	[<rFinderPath],y
		bne	@loadRVers
		iny
		iny
		ora	[<rFinderPath],y
		bne	@loadRVers
		
		jsr	unlockRFPath
		brl	@noIconAtAll

@loadRVers	pha
		pha
		pea	$8029			;rVersion
		ldy	#8			;rVersionID+2
		lda	[<rFinderPath],y
		sta	<rVersID+2
		pha
		dey
		dey
		lda	[<rFinderPath],y
		sta	<rVersID
		pha
		_LoadResource
		tay
		pla
		plx
		bcs	@errorRVersion
		ldy	#10			;rVersionHandle
		sta	[<rFinderPath],y
		sta	<rVersHandle
		iny
		iny
		txa
		sta	[<rFinderPath],y
		sta	<rVersHandle+2

		ldy	#6
		lda	FinderPathID
		sta	[<rVersHandle],y

		ldy	#4			;if the purge level is already zero, then
		lda	[<rVersHandle],y	;don't set the purge level again
		and	#$0300
		beq	@unlockRFPath
		
		pea	0			;set the purge level of the handle to zero
		pushZLong <rVersHandle		;so it won't leave
		_SetPurge

@unlockRFPath	jsr	unlockRFPath
		bra	@addRFPToList

@errorRVersion	cpy	#$1e06			;if we couldn't find that icon, mark it as generic
		beq	@noRVersion		;but, if we had some other kind of error, just
		brl	errorResource		;leave, don't dispose anything, but mark as error
		
@noRVersion	lda	#0
		ldy	#10			;rVersionHandle
		sta	[<rFinderPath],y
		iny
		iny
		sta	[<rFinderPath],y

		jsr	unlockRFPath
		brl	@noIconAtAll		;don't add us to the rFinderPathList
		
;
; addRFPToList -- add our rFinderPath's handle, ID, rVersion handle, rVersion ID,
;             	  rBundle handle, OneDoc offset, and volume handle to the rFinderPath
;       	  list
;
@addRFPToList	
		lda	rFPCount
		cmp	rFPMax
		blt	@rFPNotFull
		inc	rFPMax

		inc	a			;always allocate enough space
		sta	rFPIndex
		stz	rFPIndex+2
		
		ldx	#4			;multiply by 32
@xLoop		asl	rFPIndex
		rol	rFPIndex+2
		dex
		bpl	@xLoop

		pushlong rFPIndex		;add 32 onto the end of our handle
		pushlong rFPListHandle
		_SetHandleSize
		bcc	@rFPNotFull		;if it added, then we're OK
		
		dec	rFPMax			;didn't work, so don't ad any more rFPaths to memory
		brl	@noIconAtAll		
		
@rFPNotFull	lda	rFPListHandle		;get the handle to the rFinderPath
		sta	<rFPList		;list
		lda	rFPListHandle+2
		sta	<rFPList+2

		lda	[<rFPList]		;deref	
		tax
		ldy	#2
		lda	[<rFPList],y
		sta	<rFPList+2
		stx	<rFPList

		lda	rFPCount		;find our current index
		sta	rFPIndex
		stz	rFPIndex+2
		inc	rFPCount		;always one more
		
		ldx	#4			;multiply by 32
@iLoop		asl	rFPIndex
		rol	rFPIndex+2
		dex
		bpl	@iLoop
		
		lda	rFPIndex		;add index to ptr
		clc
		adc	<rFPList
		sta	<rFPList
		lda	rFPIndex+2
		adc	<rFPList+2
		sta	<rFPList+2
		
		lda	<rFinderHandle		;rFinderPath's handle first
		sta	[<rFPList]
		ldy	#2
		lda	<rFinderHandle+2
		sta	[<rFPList],y
		
		iny				;rFinderPath's ID next
		iny
		lda	<rFPathID
		sta	[<rFPList],y
		iny
		iny
		lda	<rFPathID+2
		sta	[<rFPList],y
		
		iny				;rBundle's handle next
		iny
		lda	<rBundleHandle
		sta	[<rFPList],y
		iny
		iny
		lda	<rBundleHandle+2
		sta	[<rFPList],y

		iny				;OneDocOffset next
		iny
		lda	<OneDocOffset
		sta	[<rFPList],y
		iny
		iny
		lda	<OneDocOffset+2
		sta	[<rFPList],y

		iny				;rVersion handle next
		iny
		lda	<rVersHandle
		sta	[<rFPList],y
		iny
		iny
		lda	<rVersHandle+2
		sta	[<rFPList],y

		iny				;rVersion ID next
		iny
		lda	<rVersID
		sta	[<rFPList],y
		iny
		iny
		lda	<rVersID+2
		sta	[<rFPList],y

		iny				;handle of volume name is last
		iny
		lda	<volumeNameHandle
		sta	[<rFPList],y
		iny
		iny
		lda	<volumeNameHandle+2
		sta	[<rFPList],y
		
;
; now, decide which list this onedoc is going to go into... either the name !filetype
; chain, or the filetype chain, or the everything else (master) chain.
;
@noIconAtAll
		ldy	#2			;get the offset to the matchflags
		lda	[<oneDoc],y
		clc
		adc	<OneDoc
		sta	<matchFlags
		lda	<OneDoc+2
		adc	#0
		sta	<matchFlags+2

		lda	ChainTable
		sta	<TableHandle
		lda	ChainTable+2
		sta	<TableHandle+2
		
		lda	[<tableHandle]
		sta	<tablePtr
		ldy	#2
		lda	[<tableHandle],y
		sta	<tablePtr+2

		lda	[<matchFlags]		;see if we're going to be matching
		and	#matchFiletype		;by filetype
		bne	@typeMatchList

		lda	[<matchFlags]		;see if we're going to be matching
		and	#matchFilename		;by filename
		bne	@nameMatchList

;
; ouch, there is no match by prodos filetype criteria, so, we stick it into the
; master match list and move this oneDoc structure to the beginning of the chain
;
@masterMatchList
		lda	#MasterChainInsert
		sta	<ChainInsert
		lda	#MasterChainInsert>>16
		sta	<ChainInsert+2		

		lda	#MasterChain
		sta	<ChainStart
		lda	#MasterChain>>16
		sta	<ChainStart+2		
		brl	@checkChain
		
;
; ouch, there is no match by prodos filetype criteria, so, we stick it into the
; name match list and move this oneDoc structure to the beginning of the chain
;
@nameMatchList
		lda	#NameChainInsert
		sta	<ChainInsert
		lda	#NameChainInsert>>16
		sta	<ChainInsert+2

		lda	#NameChain
		sta	<ChainStart
		lda	#NameChain>>16
		sta	<ChainStart+2
		brl	@checkChain

;
; anything after here gets stuck in the filetype list -- we put the OneDoc structure
; in a chain of handles for that filetype, each of which has to be looked through
; before saying something matched or not...
;
@typeMatchList
		ldy	#4			;see if the ID for this matchXXX
		lda	[<MatchFlags],y		;field is correct for matchFiletype
		cmp	#matchFiletypeID
		bne	@masterMatchList

		ldy	#6
		lda	[<MatchFlags],y
		bmi	@deviceType

		and	#$00FF			;just in case (who knows what it is?)
		asl	a			;a = a*4
		asl	a
		
		tax
		clc
		adc	#fTypeInsertList
		sta	<ChainInsert
		lda	#fTypeInsertList>>16
		adc	#0
		sta	<ChainInsert+2

		txa
		clc
		adc	#fileTypeList
		sta	<ChainStart
		lda	#fileTypeList>>16
		adc	#0
		sta	<ChainStart+2
		bra	@checkChain

;
; the OneDoc is for a device (filetype is negative), so put the OneDoc into the
; devicetype list
;
@deviceType	and	#$00FF			;just in case (who knows what it is?)
		asl	a			;a = a*4
		asl	a
		
		tax
		clc
		adc	#dTypeInsertList
		sta	<ChainInsert
		lda	#dTypeInsertList>>16
		adc	#0
		sta	<ChainInsert+2

		txa
		clc
		adc	#deviceTypeList
		sta	<ChainStart
		lda	#deviceTypeList>>16
		adc	#0
		sta	<ChainStart+2
;
; if the chain table is full, extend it by another 'MaxChains' records if possible
;
@checkChain	ldy	#4			;does the number we have size for match the number
		lda	[<tablePtr]		;which we've used so far?
		cmp	[<tablePtr],y
		blt	@noExtend
		
		lda	[<tableHandle],y	;unlock and unfix the block
		and	#$3FFF
		sta	[<tableHandle],y

		pha				;get the old handle size and stretch
		pha				;it by a longword
		pushZLong <tableHandle
		_GetHandleSize			;and it had BETTER be unlocked at this
		pla				;point
		sta	<handleSize
		clc
		adc	#16*MaxChains		;want to add enough for 'MaxChains' more records
		tax
		pla
		sta	<handleSize+2
		adc	#0
		pha
		phx
		pushZLong <tableHandle
		_SetHandleSize

		lda	[<tableHandle]		;deref the new handle to our chain table
		sta	<tablePtr
		ldy	#2
		lda	[<tableHandle],y
		sta	<tablePtr+2

		iny				;say we can handle 'MaxChains' more records
		iny
		lda	[<tablePtr],y
		clc
		adc	#MaxChains
		sta	[<tablePtr],y

;
; now that we're sure we have enough space to add the extra record, add it
;
@noExtend	lda	[<tablePtr]
		sta	<ItemOffset
		stz	<ItemOffset+2
		
		ldx	#3			;add the record onto 16*recordCount
@rolLoop	asl	<ItemOffset
		rol	<ItemOffset+2
		dex
		bpl	@rolLoop

		stz	<NextItemOffset
		stz	<NextItemOffset+2

;
; find out where the item in front of the item we're adding is -- and if it doesn't exist, there's no way
; to change its backwards link to point to us, and there's also no way to adjust the item PRIOR to the
; the item we're adding to have its forward link point to the item being added.
;
		lda	[<ChainInsert]
		sta	<PriorItemOffset
		ldy	#2
		lda	[<ChainInsert],y
		sta	<PriorItemOffset+2		
		ora	<PriorItemOffset
		bne	@linkForward

		ldx	#0
		lda	[<ChainStart]
		ora	[<ChainStart],y
		beq	@first
		
		lda	[<ChainStart]
		sta	<NextItemOffset
		lda	[<chainStart],y
		sta	<NextItemOffset+2
		inx
@first		

		lda	<ItemOffset		;if there's no next item, then the item we're adding
		sta	[<ChainStart]		;goes to the head of the list and we need to make the
		lda	<ItemOffset+2		;start of the chain point to it
		sta	[<ChainStart],y
		
		txa
		beq	@noLinkForward
		bra	@linkAtFront
		
;
; if there actually is a "prior" item in our list, after saving that prior item's forwards pointer, we need
; to adjust the "prior" item's forwards link to point to the item which we're adding... 
;
@linkForward	lda	<PriorItemOffset	;take our next chain offset and make a pointer to the forward
		clc				;chain with it.
		adc	<TablePtr
		sta	<PriorItemPtr
		lda	<PriorItemOffset+2
		adc	<TablePtr+2
		sta	<PriorItemPtr+2
		
		lda	[<PriorItemPtr]
		sta	<NextItemOffset
		ldy	#2
		lda	[<PriorItemPtr],y
		sta	<NextItemOffset+2
		
		lda	<ItemOffset+2		;make our forward item link back to the item which we're
		sta	[<PriorItemPtr],y	;adding to the list
		dey
		dey
		lda	<ItemOffset
		sta	[<PriorItemPtr],y
		
;
; Make the backwards pointer of the next item point to the item which we're inserting into the list
; only if there actually IS a next item to point back to us...
;
		lda	<NextItemOffset		;if there's no next item, then don't try to add us anywhere
		ora	<NextItemOffset+2
		beq	@noLinkForward

@linkAtFront	lda	<NextItemOffset
		clc
		adc	<TablePtr
		sta	<NextItemPtr
		lda	<NextItemOffset+2
		adc	<TablePtr+2
		sta	<NextItemPtr+2
				
		ldy	#12
		lda	<itemOffset
		sta	[<NextItemPtr],y
		iny
		iny
		lda	<itemOffset+2
		sta	[<NextItemPtr],y

;
; Now, put the offset to the item we're adding into the beginning of our chain (which either resides in the
; filetype insert list, the device type insert list, the name chain insert, or the master chain insert.
;
@noLinkForward
		lda	<ItemOffset		;put the offset to our new item into the insert pointer
		sta	[<ChainInsert]		;for this particular chain to the new record
		ldy	#2
		lda	<ItemOffset+2
		sta	[<ChainInsert],y

		lda	<ItemOffset
		clc
		adc	<TablePtr
		sta	<ItemPtr
		lda	<ItemOffset+2
		adc	<TablePtr+2
		sta	<ItemPtr+2

;
; Move the OneDoc information (bundle handle and offset into bundle) into the 16 byte item,
; including the offset of the next item and prior item (if it existed)
;
		lda	<NextItemOffset		;move the old offset to my first record in the chain
		sta	[<ItemPtr]		;into this record
		lda	<NextItemOffset+2
		sta	[<ItemPtr],y		;y is already 2

		iny
		iny
		lda	<rBundleHandle		;use this first OneDoc structure
		sta	[<ItemPtr],y		;as first in chain
		iny
		iny
		lda	<rBundleHandle+2	;put our rBundle handle first
		ora	finderFlag		;either $8000 or $0000
		sta	[<ItemPtr],y

		iny				;then, put the OneDoc's offset in the
		iny				;new item
		lda	<OneDocOffset
		sta	[<ItemPtr],y
		iny
		iny
		lda	<OneDocOffset+2
		sta	[<ItemPtr],y

		iny				;then put the prior item's offset into 
		iny				;the new item
		lda	<PriorItemOffset
		sta	[<ItemPtr],y
		iny
		iny
		lda	<PriorItemOffset+2
		sta	[<ItemPtr],y

		lda	[<tablePtr]		
		inc	a			;say we got one more record in the chain table
		sta	[<tablePtr]

		lda	<OneDoc			;make ptr to next OneDoc structure
		clc
		adc	[<OneDoc]		;yes, this is only a word folks...
		sta	<OneDoc
		bcc	@nr
		inc	<OneDoc+2
@nr

		dec	countOfOneDocs
		beq	doneWithResource
		brl	nextOneDoc

;
; we're done fiddling with this rBundle resource, so we can release it, reset the
; resource depth and we'll be on our way shortly
;
doneWithResource
		jsr	detachRBundle
		jsr	detachAllFromBundle
		
		ldy	#4			;unlock and unfix the rBundle resource
		lda	[<rBundleHandle],y
		and	#$3fff
		sta	[<rBundleHandle],y

done		ldy #0

done_error	lda	handleFlag		;if we've got a handle, don't load
		bne	@wasByHandle

		phy

		pha				;reset the file depth before leaving
		lda	oldDepth
		pha
		_SetResourceFileDepth
		pla
		ply
@wasByHandle

		pld
		plb
		lda	retAddr+1,s		;clean up stack
		sta	retAddr+inParms+1,s
		lda	retAddr,s
		sta	retAddr+inParms,s
		tsc
		clc
		adc	#inParms+locParms
		tcs
		tya				;error code if stack result = NIL
		rtl

;
; detachAllFromBundle -- detach all the rFinderPath's, all the rVersions attached to the rFinderPath's,
;                        and all the rIcons attached to this rBundle
;
detachAllFromBundle
		lda	<handleFlag		;if this is being done by handle, don't detach squat
		bne	@leave
		
		lda	[<DocList]		;if we don't have any OneDocs, then
		sta	countOfONEdocs		;we're not going to do squat
		bne	@haveSomeOneDocs
@leave		rts

@haveSomeOneDocs
		lda	<DocList
		clc
		adc	#2
		sta	<OneDoc
		lda	<DocList+2
		adc	#0
		sta	<OneDoc+2

;
; see if we have an rFinderPath and also an rVersion attached to the rFinderPath and detach either.
;
@loop		ldy	#4			;get rFinderPath (if there is one)
		lda	[<OneDOC],y		;check numResults
		cmp	#2
		bge	@givePath
		brl	@nextOneDoc

@givePath	ldy	#8			;but only get it if there is one
		lda	[<OneDOC],y
		bne	@hasRFinderPath
		iny
		iny
		ora	[<OneDOC],y
		bne	@hasRFinderPath
		brl	@nextOneDoc

@hasRFinderPath	ldy	#12+1			;did we get a handle for the rFinderPath?
		lda	[<OneDOC],y
		beq	@nextOneDoc		;if not, then don't detach anything
		
		pea	$802C			;rFinderPath
		ldy	#10
		lda	[<OneDOC],y
		pha
		dey
		dey
		lda	[<OneDOC],y
		pha
		_DetachResource
		
		ldy	#12
		lda	[<OneDOC],y
		sta	<rFinderHandle
		iny
		iny
		lda	[<OneDOC],y
		sta	<rFinderHandle+2
		
		ldy	#4			;lock the rFinderPath down for a moment
		lda	[<rFinderHandle],y	;while we get the rVersion referenced
		ora	#$8000			;by it...
		sta	[<rFinderHandle],y

		lda	[<rFinderHandle]	;deref rFinderPath's handle
		tax
		ldy	#2
		lda	[<rFinderHandle],y
		sta	<rFinderPath+2
		stx	<rFinderPath

		ldy	#4			;find out if there really is an
		lda	[<rFinderPath],y	;rVersion reference
		cmp	#1
		bge	@hasRVersion
		
		jsr	unlockRFPath
		bra	@nextOneDoc
@hasRVersion

		ldy	#6			;if there is, see if it's non-zero
		lda	[<rFinderPath],y
		bne	@detachRVersion
		iny
		iny
		ora	[<rFinderPath],y
		bne	@detachRVersion
		
		jsr	unlockRFPath
		bra	@nextOneDoc

@detachRVersion	ldy	#10+1			;did we get a handle for this?
		lda	[<rFinderPath],y
		beq	@nextOneDoc		;if not, don't detach anything
		
		pea	$8029			;rVersion
		ldy	#8
		lda	[<rFinderPath],y
		pha
		dey
		dey
		lda	[<rFinderPath],y
		pha
		_DetachResource

		jsr	unlockRFPath
;
; look at the next OneDoc
;
@nextOneDoc	lda	<OneDoc			;make ptr to next OneDoc structure
		clc
		adc	[<OneDoc]		;yes, this is only a word folks...
		sta	<OneDoc
		bcc	@nr
		inc	<OneDoc+2
@nr
		dec	countOfOneDocs
		beq	@done
		brl	@loop

@done		rts


;
; unlock the rFinderPath
;
unlockRFPath
		ldy	#4			;unlock the rFinderPath's handle
		lda	[<rFinderHandle],y
		and	#$7FFF
		sta	[<rFinderHandle],y
		rts
		
;
; detach the RBundle resource if we're not doing this by handle
;
detachRBundle
		lda	<handleFlag		if it's by handle, don't detach anything
		bne	@noDetach
		
		pea	$802B			;detach this rBundle
		pushZLong <resource
		_DetachResource
@noDetach	rts


;
; dispose the RBundle handle if we're not doing this by handle
;
disposeRBundle
		lda	<handleFlag		;if it's by handle, don't detach anything
		bne	@noDetach

		pushZLong <rBundleHandle	;get rid of the rBundle because we're
		jsl DisposeHandleGlue		;not going to use it at all...
		
@noDetach	stz	<rBundleHandle		;flag as an error
		stz	<rBundleHandle+2
		rts			

;
; errorResource -- maybe we ran out of memory, so detach the rBundle and everything in it
;		   but under NO CIRCUMSTANCES should anything in the rBundle be disposed because
;		   we don't know how much made it into memory and how much got added to any of the
;		   chains (and we don't care to walk the chains to find out).
;
errorResource
		jsr	detachRBundle
		jsr	detachAllFromBundle
		
		ldy	#4			;unlock the rBundle resource
		lda	[<rBundleHandle],y
		and	#$7fff
		sta	[<rBundleHandle],y
		
		stz	<rBundleHandle		;say we had an accident so maybe someone can compensate
		stz	<rBundleHandle+2
		brl	done
		
;
; locals
;
rFPIndex	dc.L	0			;index into rFinderPath list
deviceTypeToMatch dc.w	0			;these are here for
filetypeToMatch dc.w	0			;clarity's sake
oldDepth	dc.w	0
countOfONEdocs	dc.w	0

		ENDP

;
; matchFileToIcon
;
; Given the following parameters, look through all the loaded icon files and see
; if there is a match.  If there isn't a match, then NIL is returned as the OneDOC
; ptr and the handle returned is to the generic document icon.
;
; The method if searching is simple -- we first look through the master match list
; of stuff which isn't going to match by filetype.  If nothing in the master match list
; wants the file, then we go look at the filetype index table to see if anything
; matches.  If no OneDOC structures exist for the given filetype (ie, handle to
; chain is NIL), then the generic icon is used.
;
; The 'whichMatch' parameter is used so that if we couldn't find the application which
; normally opens this document, we can suggest an alternative to the user by suggesting
; that "I can't find app xxx, would you like to use app yyy instead?"  This assumes
; that we go out and find app yyy before showing the user the dialog.
;
;	IN:
;		|  long  |   	space
;		|  long  |	space
;		|  long  |	space
;		|  long  |	space
;		|  long  |	space
;		|  word  |	voting bits (4-7) we want ($8000 = don't care)
;		|  word  |	which match we want (1 or higher)
;		|  word  |	filetype
;		|  long  |	auxtype
;		|  long  |	ptr to filename to match against
;		|  long  |	ptr to create date/time
;		|  long  |	ptr to mod date/time
;		|  word  |	local access word
;		|  word  |	extended (high bit)
;		|  long  |	ptr to option_list or NIL
;		|  long  |	eof to match against
;		---------- <-SP
;
;	OUT:
;		|  long  |	handle to rFinderPath or NIL if no one owns icon
;		|  long  |	Index to Large Icon to use (can be NIL)
;		|  long  |	Index to Small Icon to use (can be NIL)
;		|  long  |	handle to rBundle structure which matches or NIL
;		|  long	 |	offset to OneDoc structure which matches or NIL
;		---------- <-SP
;.....................................................................

matchFileToIcon PROCNAME EXPORT

		IMPORT	fileTypeList
		IMPORT	deviceTypeList

		DefineStack
SourceValue	block 8	
CompareValue	block 8	
matchPtr	long	
matchFlagsPtr	long	
OneDocPtr	long	
TablePtr	long
TableHandle	long	
ChainOffset	long
ChainPtr	long	
rBundlePtr	long	
retAddr		block 3	
DataForkEOF	long				4
optionListPtr	long				8
ExtendedType	word				10
localAccess	word				12
ModDatePtr	long				16
CreateDatePtr	long				20
FilenamePtr	long				24
Fauxtype	long				28
Ffiletype	word				30
whichMatch	word				32
votingBits	word				34
OneDocOffset	long				38
rBundleHandle	long				42
SmallIconIndex	long				46
LargeIconIndex	long				50
FinderPathHandle long				54	

inParms		SET	34			;54-5 longs
locParms	SET	48
		
		tsc
		sec
		sbc	#locParms		;allocate extra DP space for local DP
		tcs
		phb				;preserve data bank
		phd
		tcd				;set DP to stack

		phk
		plb

;
; now that we have the stack setup, go searchin'
;
		stz	<FinderPathHandle	;but we might not have a place get the
		stz	<FinderPathHandle+2	;finder path handle

		stz	<LargeIconIndex		;might not have something specifying
		stz	<LargeIconIndex+2	;the large icon's handle, either

		lda	#1			;might not have anything specifying
		sta	<SmallIconIndex		;the small icon's handle either
		stz	<SmallIconIndex+2

		lda	ChainTable
		sta	<TableHandle
		lda	ChainTable+2
		sta	<TableHandle+2
		
		lda	[<TableHandle]
		sta	<TablePtr
		ldy	#2
		lda	[<TableHandle],y
		sta	<TablePtr+2

;
; NOTE: Each record in the chain table is composed of 4 longs, the first being the offset of the
;	next record in the chain.  The second long being the rBundle for an icon, the third being
;	the offset into the rBundle for the OneDoc for the icon, and the last being the offset of
;	the previous record in the chain (or nil if no previous record).
;
		lda	NameChain		;find out where the name chain
		sta	<chainOffset		;is (and don't make any tool calls which
		lda	NameChain+2		;could move memory or you'll be sorry)
		sta	<chainOffset+2

@nameLoop	ora	<ChainOffset
		beq	@lookAtFiletypes

		lda	<TablePtr
		clc
		adc	<ChainOffset
		sta	<ChainPtr
		lda	<TablePtr+2
		adc	<ChainOffset+2
		sta	<ChainPtr+2

		jsr	findMatch
		bcs	@matchedInName

@nextName	lda	[<chainPtr]
		sta	<ChainOffset
		ldy	#2
		lda	[<ChainPtr],y
		sta	<ChainOffset+2
		bra	@nameLoop

;
; matchedInName -- we found a match in the name list, but before we leave, we need
;		   to be sure that this is the match that we were asked for...
;
@matchedInName
		dec	<whichMatch
		bne	@nextName
		brl	@matched

;
; we're done looking through all the stuff in the master list of stuff to match
; against
;
@lookAtFiletypes
		lda	<FfileType
		bpl	@filetype

		lda	#deviceTypeList		;get the pointer to the 1K deviceType
		sta	<chainPtr		;list of handles
		lda	#deviceTypeList>>16
		sta	<chainPtr+2
		bra	@deviceType

@fileType	lda	#fileTypeList		;get the pointer to the 1K filetype list
		sta	<chainPtr		;of handles
		lda	#fileTypeList>>16
		sta	<chainPtr+2

@deviceType	lda	<Ffiletype
		and	#$00FF
		asl	a
		asl	a
		tay
		
		lda	[<chainPtr],y		;if there is, then get the handle
		sta	<ChainOffset
		iny
		iny
		lda	[<chainPtr],y
		sta	<ChainOffset+2

@filetypeLoop	ora	<ChainOffset
		beq	@lookAtMaster
		
		lda	<TablePtr
		clc
		adc	<ChainOffset
		sta	<ChainPtr
		lda	<TablePtr+2
		adc	<ChainOffset+2
		sta	<ChainPtr+2
		
		jsr	findMatch		;see if the OneDOC structure matches
		bcs	@matchedInTypes

@nextType	lda	[<ChainPtr]
		sta	<ChainOffset
		ldy	#2
		lda	[<ChainPtr],y
		sta	<ChainOffset+2
		bra	@filetypeLoop

;
; matchedInTypes -- we found a match in the types list, but before we leave, we need
;		    to be sure that this is the match that we were asked for...
;
@matchedInTypes
		dec	<whichMatch
		bne	@nextType
		brl	@matched

;
; lookAtMaster -- look through the master list as a 'catch all' of anything that didn't
;		  already match through filetypes or by name
;
@lookAtMaster
		lda	MasterChain		;find out where the master chain
		sta	<ChainOffset		;is (and don't make any tool calls which
		lda	MasterChain+2		;could move memory or you'll be sorry)
		sta	<ChainOffset+2

@masterLoop	ora	<ChainOffset
		beq	@nothing

		lda	<TablePtr
		clc
		adc	<ChainOffset
		sta	<ChainPtr
		lda	<TablePtr+2
		adc	<ChainOffset+2
		sta	<ChainPtr+2

		jsr	findMatch
		bcs	@matchedInMaster

@nextMaster	lda	[<chainPtr]
		sta	<ChainOffset
		ldy	#2
		lda	[<ChainPtr],y
		sta	<ChainOffset+2
		bra	@masterLoop

;
; matchedInMaster -- we found a match in the master list, but before we leave, we need
;		     to be sure that this is the match that we were asked for...
;
@matchedInMaster
		dec	<whichMatch
		bne	@nextMaster

;
; if it matched, then retrieve the large icon, small icon, rFinderPath (if there is any)
; and onedoc handle -- oneDoc handle is already filled out for us after the 'findMatch'
; routine.
;
@matched	lda	<OneDocPtr		;calculate the offset
		sec
		sbc	<rBundlePtr
		sta	<OneDocOffset
		lda	<OneDocPtr+2
		sbc	<rBundlePtr+2
		sta	<OneDocOffset+2

		ldy	#4			;see if they have a place for us to
		lda	[<OneDOCPtr],y		;get the finderpath handle from
		cmp	#2
		blt	@done

		ldy	#12			;rFinderPathHandle
		lda	[<OneDocPtr],y
		sta	<FinderPathHandle
		iny
		iny
		lda	[<OneDocPtr],y
		sta	<FinderPathHandle+2

		ldy	#4			;do they have a place for us to
		lda	[<OneDOCPtr],y		;get the large icon from?
		cmp	#3
		blt	@done

		ldy	#20			;Index to find large icon
		lda	[<OneDocPtr],y
		sta	<LargeIconIndex
		iny
		iny
		lda	[<OneDocPtr],y
		sta	<LargeIconIndex+2

		ldy	#4			;do they have a place for us to
		lda	[<OneDOCPtr],y		;get the small icon from?
		cmp	#4
		blt	@done

		ldy	#28			;Index to find small icon
		lda	[<OneDocPtr],y
		sta	<SmallIconIndex
		iny
		iny
		lda	[<OneDocPtr],y
		sta	<SmallIconIndex+2
		bra	@done

;
; we didn't match squatola, so set the icons to the generic icon set and NIL for
; everything else -- the generic icons are setup on the way in
;
@nothing	stz	<OneDocOffset
		stz	<OneDocOffset+2

		stz	<rBundleHandle
		stz	<rBundleHandle+2
		
;
; we be chillin', we're finished
;
@done		pld
		plb
		lda	retAddr+1,s		;clean up stack
		sta	retAddr+inParms+1,s
		lda	retAddr,s
		sta	retAddr+inParms,s
		tsc
		clc
		adc	#inParms+locParms
		tcs
		rtl

;
; findMatch -- see if the OneDOC structure that chainPtr is a pointer to a handle to
;	       really matches the criteria
;
findMatch	ldy	#4
		lda	[<chainPtr],y		;get the rBundle handle
		tax
		iny
		iny
		lda	[<chainPtr],y
		
		cmp	#$FFFF			;check to see if the entry was removed
		bne	@notRemoved		;(rbundle handle is $FFFFFFFF is so)
		cpx	#$FFFF
		bne	@notRemoved
		clc
		rts
		
@notRemoved	and	#$7FFF			;mask bit 31 off of the rBundle's handle
		sta	<rBundleHandle+2
		stx	<rBundleHandle
		
		lda	[<rBundleHandle]	;deref the handle
		tax
		ldy	#2			
		lda	[<rBundleHandle],y
		sta	<rBundlePtr+2
		stx	<rBundlePtr
		
		ldy	#8			;add the offset to the derefed handle
		lda	[<chainPtr],y
		clc
		adc	<rBundlePtr
		sta	<OneDocPtr
		iny
		iny
		lda	[<chainPtr],y
		adc	<rBundlePtr+2
		sta	<OneDocPtr+2

		bit	<votingBits
		bmi	@letItVote

		ldy	#6			;see if any of the voting bits match
		lda	[<OneDocPtr],y		;the voting level that we asked for
		and	#$00F0			;if the high bit is set, always let it
		and	<votingBits		;vote
		bne	@letItVote
		clc
		rts

@letItVote	ldy	#2			;add offset to matchFlags
		lda	[<OneDocPtr],y
		clc
		adc	<OneDocPtr
		sta	<matchFlagsPtr
		lda	<OneDocPtr+2
		adc	#0
		sta	<matchFlagsPtr+2

		lda	<matchFlagsPtr		;skip over the flags longword
		clc
		adc	#4
		sta	<matchPtr
		lda	<matchFlagsPtr+2
		adc	#0
		sta	<matchPtr+2

		stz	matched			;nothing matched so far

		ldx	#0
		lda	[<matchFlagsPtr]
		and	#$0FFF			;current used bits
@loop		lsr	a
		pha
		bcc	@nr

@zLoop		lda	[<matchPtr]
		bne	@gotit

		lda	<matchPtr
		clc
		adc	#2
		sta	<matchPtr
		bcc	@zLoop
		inc	<matchPtr+2
		bra	@zLoop

@gotit		phx				;dispatch to match routine,
		jsr	(addr,x)		;on return, carry set if matched,
		plx				;carry clear if no match
		bcs	@next
		pla
		rts

@next		clc
		adc	<matchPtr
		sta	<matchPtr
		bcc	@nr
		inc	<matchPtr+2
@nr
		pla
		beq	@done
		inx
		inx
		bra	@loop

@done		sec
		rts

;
; lookFiletype -- see if there's a matchFiletype structure, and if there is, see if
;		  our filetype matches
;
lookFiletype
		lda	[<matchPtr]
		cmp	#matchFiletypeID	;0x1
		beq	@look
		clc
		rts

@look		ldy	#2
		lda	[<matchPtr],y
		cmp	<FfileType
		beq	@matched
		clc
		rts

@matched	lda	#4
		sec
		rts

;
; lookAuxtype -- see if there's a matchAuxtype structure, and if there is, see if
;		 our auxtype matches
;
lookAuxtype	lda	[<matchPtr]
		cmp	#matchAuxtypeID		;0x2
		beq	@look			;safety check, if we find anything other
		clc
		rts				;than the ID, just abort

@look		lda	<Fauxtype
		ldy	#2
		and	[<matchPtr],y
		ldy	#6
		cmp	[<matchPtr],y
		bne	@noMatch

		lda	<Fauxtype+2
		ldy	#4
		and	[<matchPtr],y
		ldy	#8
		cmp	[<matchPtr],y
		beq	@matched
@noMatch	clc
		rts

@matched	lda	#10
		sec
		rts

;
; lookFilename -- see if there's a matchFiletype structure, and if there is, see if
;		  our filetype matches
;
lookFilename

		lda	[<matchPtr]
		cmp	#matchFilenameID	;0x3
		beq	@look
		clc
		rts

@look		lda	<matchPtr
		clc
		adc	#2
		sta	<matchPtr
		bcc	@nr
		inc	<matchPtr+2
@nr

		sep	#$30
		LONGA	off
		LONGI	off

		lda	[<filenamePtr]
		sta	filenameChars

		ldy	#1
		lda	[<matchPtr],y
		cmp	#'*'
		beq	lastToFirst

;
; hey, what about the 'abc*xyz' possibility?
;
; match first to last (we know there's at least 1 character in the match string, and
; the first is not a wildcard
;
firstToLast	ldx	#0
@loop		inx
		lda	[<matchPtr],y
		cmp	#'*'			;if wildcard, then all other match
		beq	@matched		;following chars, if any, match wildcard
		cpx	filenameChars		;done with name?
		blt	@checkTarget		;if no, go ahead with comparison scan
		bne	@noMatch		;if yes, no match because template longer

@checkTarget	jsr upcaseA8	;2-Apr-92 DAL
;		cmp	#'a'
;		bcc	@alreadyUpper
;		cmp	#'z'+1			; is it a lower-case letter?
;		bcs	@alreadyUpper
;		sec
;		sbc	#$20			; yes, convert it to upper case
;@alreadyUpper
		pha
		phy
		txy
		lda	[<filenamePtr],y
;		cmp	#'a'
;		bcc	@alreadyUpper2
;		cmp	#'z'+1			; is it a lower-case letter?
;		bcs	@alreadyUpper2
;		sec
;		sbc	#$20			; yes, convert it to upper case
		jsr upcaseA8	;2-Apr-92 DAL
;@alreadyUpper2
		sta	char
		ply
		pla				;target char same as template char?
		cmp	char
		bne	@noMatch		;if no, no match
		tya
		cmp	[<matchPtr]		;done with template?
		beq	@doneWithMatch
		iny
		bra	@loop
@doneWithMatch	cpx	filenameChars		;done with name also?
		beq	@matched

@noMatch	rep	#$30
		LONGA	ON
		LONGI	ON
		clc
		rts

@matched	rep	#$30
		LONGA	ON
		LONGI	ON

		lda	[<matchPtr]
		and	#$00ff
		inc	a
		sec
		rts

;
; match last to first (we know that the match string contains at least one character
; and that the first (perhaps only) character in it is a wildcard
;
		longa off
		longi off

lastToFirst	ldx	filenameChars
		lda	[<matchPtr]
		tay
@loop		lda	[<matchPtr],y
		cmp	#'*'			;if wildcard then the rest matches
		beq	@matched
		pha
		phy
		txy
		lda	[<filenamePtr],y
;		cmp	#'a'
;		bcc	@alreadyUpper
;		cmp	#'z'+1			; is it a lower-case letter?
;		bcs	@alreadyUpper
;		sec
;		sbc	#$20			; yes, convert it to upper case
		jsr upcaseA8	;2-Apr-92 DAL
;@alreadyUpper
		ply
		sta	char
		pla
		jsr upcaseA8	;2-Apr-92 DAL
		cmp	char
		bne	@noMatch
		dey
		dex
;;;		bne	@loop
		bpl	@loop		;9-Apr-92 DAL -- Leading wildcard matches zero or more chars

@noMatch	rep	#$30
		longa on
		longi on
		clc
		rts

@matched	rep	#$30
		longa on
		longi on
		lda	[<matchPtr]
		and	#$00ff
		inc	a
		sec
		rts

*** added 2-Apr-92 DAL
		longa off
upcaseA8	cmp #'a'
		bcc @alreadyUpper
		cmp #'z'+1
		bcs @alreadyUpper
		and #$df
@alreadyUpper	rts
		longa on
*** end 2-Apr-92
;
; lookCreateDateTime -- see if there's a matchCreateDateTime structure, and if there is,
;		        see if our filetype matches
;
lookCreateDateTime
		lda	[<matchPtr]
		cmp	#matchCreateDateTimeID	;0x4
		beq	@look
		clc
		rts

@look		ldy	#6			;move the value we're comparing
		ldx	#6
@sLoop		lda	[<CreateDatePtr],y	;against
		sta	<CompareValue,x
		dey
		dey
		dex
		dex
		bpl	@sLoop

		jsr	setupCompare
		jsr	doCompare

		lda	#12
		rts

;
; lookModDateTime -- see if there's a matchModDateTime structure, and if there is, see
;		     if our modDateTime matches
;
lookModDateTime
		lda	[<matchPtr]
		cmp	#matchModDateTimeID	;0x5
		beq	@look
		clc
		rts

@look		ldy	#6			;move the value we're comparing
		ldx	#6
@sLoop		lda	[<ModDatePtr],y		;against
		sta	<CompareValue,x
		dey
		dey
		dex
		dex
		bpl	@sLoop

		jsr	setupCompare
		jsr	doCompare

		lda	#12
		rts

;
; lookLocalAccess -- see if there's a matchAccess structure, and if there is, see if
;		     our access matches
;
lookLocalAccess
		lda	[<matchPtr]
		cmp	#matchLocalAccessID	;0x6
		beq	@look
		clc
		rts

@look		lda	<localAccess		;mask the access word off
		ldy	#2
		and	[<matchPtr],y
		ldy	#4
		cmp	[<matchPtr],y		;then do the comparison
		beq	@matched
		clc
		rts

@matched	lda	#6
		sec
		rts

;
; lookNetworkAccess -- see if there's a matchAccess structure, and if there is, see if
;		     our access matches
;
lookNetworkAccess
		lda	[<matchPtr]
		cmp	#matchNetworkAccessID	;0x7
		beq	@look
		clc
		rts

@look		lda	<ffiletype		;our file has to be a folder in order
		cmp	#$0f			;for this to work
		beq	@isFolder
		cmp	#$fff5			;or a server
		bne	@noMatch

@isFolder	lda	<OptionListPtr+1
		beq	@noMatch
		
		ldy	#2			;our file also has to have come from
		lda	[<optionListPtr],y	;AppleShare
		cmp	#$0d
		bne	@noMatch

		ldy	#$28			;$28 offset into the option list
		lda	[<optionListPtr],y	;mask the access word off
		ldy	#2
		and	[<matchPtr],y
		ldy	#6
		cmp	[<matchPtr],y		;then do the comparison
		bne	@noMatch

		ldy	#$2A
		lda	[<optionListPtr],y	;mask the access word off
		ldy	#4
		and	[<matchPtr],y
		ldy	#8
		cmp	[<matchPtr],y
		beq	@matched
@noMatch	clc
		rts

@matched	lda	#10
		sec
		rts

;
; lookExtended -- see if there's a matchExtended structure, and if there is, see
;		     if our StorageType matches
;
lookExtended
		lda	[<matchPtr]
		cmp	#matchExtendedID	;0x8
		beq	@look
		clc
		rts

@look		lda	<ExtendedType
		ldy	#2
		and	[<matchPtr],y
		iny
		iny
		cmp	[<matchPtr],y
		bne	@matched
		clc
		rts

@matched	lda	#6
		sec
		rts

;
; lookHFSFiletype -- see if there's a matchHFSFiletype structure, and if there is, see
;		     if our filetype matches
;
lookHFSFiletype
		lda	#4
		sta	filetypeOffset

		lda	[<matchPtr]
		cmp	#matchHFSFiletypeID	;0x9
		beq	lookHFS
		clc
		rts

;
; lookHFSCreator -- see if there's a matchHFSCreator structure, and if there is, see if
;		    our filetype matches
;
lookHFSCreator
		lda	#8
		sta	filetypeOffset

		lda	[<matchPtr]
		cmp	#matchHFSCreatorID	;0xA
		beq	lookHFS
		clc
		rts

lookHFS		lda	<ffiletype		;if they are a folder, there's no
		cmp	#$0F			;way we can match because the info
		beq	@noMatch		;we need isn't there...
		cmp	#$fff5
		beq	@noMatch		;same for a server

		lda	<OptionListPtr+1
		beq	@noMatch
		
		lda	[<optionListPtr]
		cmp	#10			;gotta at least have the filetype
		blt	@noMatch		;and creator fields

		ldy	#2
		lda	[<OptionListPtr],y
		cmp	#1
		beq	@try
		cmp	#6
		beq	@try
		cmp	#$0d
		bne	@noMatch

@try		ldy	#2
		lda	[<matchPtr],y
		ldy 	filetypeOffset
		cmp	[<optionListPtr],y
		bne	@noMatch
		ldy	#4
		lda	[<matchPtr],y
		ldy	filetypeOffset
		iny
		iny
		cmp	[<optionListPtr],y
		beq	@matched
@noMatch	clc
		rts

@matched	lda	#6
		sec
		rts

;
; lookOptionList -- see if there's a matchOptionList structure, and if there is, see if
;		    our filetype matches
;
; incidently, the 'offset into the optionlist' is the offset from reqSize, the word
; before the FST id
;
lookOptionList
		lda	<OptionListPtr+1
		beq	@noOptionList
		
		lda	[<matchPtr]
		cmp	#matchOptionListID	;0xB
		beq	@look
@noOptionList	clc
		rts

@look		lda	[<optionListPtr]
		cmp	#2
		bge	@haveList
		clc
		rts

@haveList	sec
		sbc	#2
		sta	sizeOfOptionList	;make sure we have enough so that
						;we don't compare against garbage
		ldy	#2
		lda	[<matchPtr],y
		sta	fstGroupOptions

		lda	<matchPtr
		clc
		adc	#2
		sta	<matchPtr
		bcc	@nr
		inc	<matchPtr+2
@nr
		stz	currentGroupOption

;
; now, look through all the FSTGroupOptions one at a time (while we also check each FST
; specified for each GroupOption).  This little nightmare courtesy of Dave A. Lyons
;
@nextGroupOption
		lda	[<matchPtr]
		asl	a
		tay

@loop		lda	[<matchPtr],y
		tyx
		ldy	#2			;check FileSysID
		cmp	[<optionListPtr],y
		beq	@gotFileSystem
		txy
		dey
		dey
		bne	@loop

		inc	currentGroupOption
		lda	currentGroupOption
		cmp	fstGroupOptions
		blt	@nextGroup
		clc
		rts

@nextGroup	lda	[<matchPtr]
		asl	a
		clc
		adc	#14
		clc
		adc	<matchPtr
		sta	<matchPtr
		bra	@nextGroupOption

@gotFileSystem	lda	[<matchPtr]		;get all the values ahead of time so
		inc	a			;that we don't have to save and restore
		asl	a			;a whole bunch of indices
		tay
		lda	[<matchPtr],y
		sta	optionOffset
		iny
		iny
		lda	[<matchPtr],y
		sta	optionMask
		iny
		iny
		lda	[<matchPtr],y
		sta	optionMask+2
		iny
		iny
		lda	[<matchPtr],y
		sta	SourceValue
		iny
		iny
		lda	[<matchPtr],y
		sta	SourceValue+2
		iny
		iny
		lda	[<matchPtr],y
		sta	compare

		ldy	optionOffset		;apply the mask
		cpy	sizeOfOptionList
		beq	@thisGroup
		bge	@nextGroup

@thisGroup	lda	[<OptionListPtr],y
		and	optionMask
		sta	CompareValue
		iny
		iny
		lda	[<OptionListPtr],y
		and	optionMask+2
		sta	CompareValue+2

		jsr	doCompare
		bcc	@nextGroup
		lda	#14
		rts

;
; lookEOF -- see if there's a matchEOF structure, and if there is, see if it matches the one we're
;	     comparing things against
;
lookEOF		
		lda	[<matchPtr]
		cmp	#matchEOFID		;0xC
		beq	@look
		clc
		rts

@look		lda	<DataForkEOF		;setup the value to compare against
		sta	<CompareValue
		lda	<DataForkEOF+2
		sta	<CompareValue+2
		
		stz	<CompareValue+4
		stz	<CompareValue+6

		ldy	#2			;setup the state of the comparison
		lda	[<matchPtr],y
		sta	compare

		iny
		iny
		lda	[<matchPtr],y
		sta	<sourceValue
		iny
		iny
		lda	[<matchPtr],y
		sta	<sourceValue+2

		stz	<sourceValue+4
		stz	<sourceValue+6

		jsr	doCompare

		lda	#8
		rts

;
; setupCompare -- setup the comparison for the time routines
;
setupCompare

		ldy	#2			;setup the state of the comparison
		lda	[<matchPtr],y
		sta	compare

		ldy	#4+6			;move the value we're comparing from
;;;		ldx	#4+6			;24-Mar-93 JCM - whoagus (thought-provokingly bogus)
		ldx	#6			;24-Mar-93 JCM - copy the right number of bytes
@loop		lda	[<matchPtr],y

*** Maximally bogus - 24-Mar-93 JCM - This used to copy 10 bytes (instead of 8) to a fundamentally
***				      wrong location. Since <SourceValue is at the beginning of our
***				      DP, the "-4" caused us to store at $FD,x, which overwrote unknown
***				      values way up the caller's stack. This caused matchCreateDateTime
***				      and matchModeDateTime to fail unless you were _extremely_ lucky.

;;;		sta	<SourceValue-4,x
		sta	<SourceValue,x		;stick the date/time in the right place

*** End - 24-Mar-93 JCM

		dey
		dey
		dex
		dex
		bpl	@loop

		rts

;
; Compare 'SourceValue' with 'CompareValue' based on the CompareSpec in 'compare'
;
doCompare	lda	compare			;mask off the proper bytes for this
		and	#$000F			;comparison
		asl	a
		asl	a
		tax
		lda	<CompareValue
		and	masks,x
		sta	<CompareValue
		lda	<CompareValue+2
		and	masks+2,x
		sta	<CompareValue+2

		lda	compare			;mask off the proper bytes for this
		and	#$00F0			;comparison
		lsr	a
		lsr	a			;quick multiply by 4 of this nybble
		tax
		lda	<CompareValue+4
		and	masks,x
		sta	<CompareValue+4
		lda	<CompareValue+6
		and	masks+2,x
		sta	<CompareValue+6

		lda	compare			;dispatch to the correct comparison
		xba
		and	#$0003
		asl	a
		tax
		jsr	(@comparisons,x)

		lda	compare			;see if the 'invert comparison' bit is on
		and	#$0400
		beq	@dontInvert
		bcs	@noMatch
		sec
		rts

@noMatch	clc
@dontInvert	rts

@lessThan	ldx	#6
@ltLoop		lda	<SourceValue,x
		cmp	<CompareValue,x
		bne	@ltNotEqual
		dex
		dex
		bpl	@ltLoop
		sec
		rts

@ltNotEqual	sec				;is the long in the source time
		lda	<SourceValue		;less than or equal to ours?
		sbc	<CompareValue
		lda	<SourceValue+2
		sbc	<CompareValue+2
		lda	<SourceValue+4
		sbc	<CompareValue+4
		lda	<SourceValue+6
		sbc	<CompareValue+6
		bcc	@noMatch		;borrow not required
		sec				;no borrow required, so optValue =< value
		rts

@equalTo	ldx	#6			;is the long in the source time equal
@eqLoop		lda	<SourceValue,x		;to ours?
		cmp	<CompareValue,x
		bne	@noMatch
		dex
		dex
		bpl	@eqLoop
		sec
		rts

@greaterThan	sec				;is the long in the source time
		lda	<SourceValue		;less than or equal to ours?
		sbc	<CompareValue
		lda	<SourceValue+2
		sbc	<CompareValue+2
		lda	<SourceValue+4
		sbc	<CompareValue+4
		lda	<SourceValue+6
		sbc	<CompareValue+6
		bcs	@noMatch		;no borrow required
		sec				;optValue > value, borrow required
		rts

@comparisons	dc.w	@lessThan
		dc.w	@equalTo
		dc.w	@greaterThan
		dc.w	@noMatch

;
; locals
;
filetypeOffset	dc.w	0
filenameChars	dc.w	0
char		dc.w	0

masks		dc.L	$00000000	;0
		dc.L	$000000FF	;1
		dc.L	$0000FF00	;2
		dc.L	$0000FFFF	;3
		dc.L	$00FF0000	;4
		dc.L	$00FF00FF	;5
		dc.L	$00FFFF00	;6
		dc.L	$00FFFFFF	;7
		dc.L	$FF000000	;8
		dc.L	$FF0000FF	;9
		dc.L	$FF00FF00	;10
		dc.L	$FF00FFFF	;11
		dc.L	$FFFF0000	;12
		dc.L	$FFFF00FF	;13
		dc.L	$FFFFFF00	;14
		dc.L	$FFFFFFFF	;15

value		dc.L	0

compare		dc.w	0
optionValue	dc.L	0
optionMask	dc.L	0
optionOffset	dc.w	0
sizeOfOptionList dc.w	0
fstGroupOptions dc.w	0
currentGroupOption dc.w	0

matched		dc.w	0			;boolean, did we match?

addr		dc.w	lookFiletype
		dc.w	lookAuxtype
		dc.w	lookFilename
		dc.w	lookCreateDateTime
		dc.w	lookModDateTime
		dc.w	lookLocalAccess
		dc.w	lookNetworkAccess
		dc.w	lookExtended
		dc.w	lookHFSFileType
		dc.w	lookHFSCreator
		dc.w	lookOptionList
		dc.w	lookEOF
		
		ENDP

; QueryDatabase
;
; Given a pointer to an rVersion string which is in a memory block which is
; locked, this routine checks the list of Applications in the Finder's rFinderPath
; list, finding out whether the Finder knows about that app or not.
;
; Each entry in the rFinderPath list looks like this:
;
; 	rFinderPathHandle	long	+0
; 	rFinderPathID		long	+4
; 	rBundleHandle		long	+8
; 	OneDocOffset		long	+12
; 	rVersionHandle		long	+16
; 	rVersionID		long	+20
; 	volumeHandle		long	+24
;
; If an entry is updated, the 'Desktop' file in the 'Icons' folder on the volume found
; in the volume handle is used (if possible).  Also, any rBundles which are out-of-date
; are removed from their respective volumes if possible.
;
;   IN: |  word  |	space	
;	|  word  |	space
;	|  word  |	match how, bit 15 allows removing outdated rBundle or updating the rFinderPath for an exact match
;	|  long  |	ptr to pathname to use for update or NIL if no update (new path for rFinderPath resource)
;	|  long  |	ptr to rVersion resource to compare against (must be locked)
;	---------- <-SP
;
;  OUT:	|  word  |	boolean, 0 if no match found, $FFFF if exact match found, $8000 if newer rVersion found
;	|  word  |	0 if no error, non-zero if error
;	---------- <-SP
;
; USES: c1_filename
;	c1_path
;.....................................................................

QueryDatabase	PROCNAME EXPORT

		IMPORT	rFPListHandle
		IMPORT	rFPCount
		IMPORT	WStringCopy
		IMPORT	PathAddName
		IMPORT	WStrCompare
		IMPORT	c1_path
		IMPORT	DesktopName
		IMPORT	IconsName
	
		DefineStack
rBundleID	long
rBundlePtr	long
rBundleHandle	long
oldDepth	word
volumePtr	long
volumeHandle	long
nextCount	word
nextPtr		long
fileID		word
rFPathID	long
rFPathHandle	long
rFPathPtr	long
vPtr		long
vHandle		long
count		word
listPtr		long
listHandle	long
retAddr		block	3
rVersionPtr	long			
pathnamePtr	long			
matchHow	word
error		word			
matchFound	word			

inParms		SET	10
locParms	SET	60

		tsc
		sec
		sbc	#locParms		;allocate extra DP space for local DP
		tcs
		phb				;preserve data bank
		phd
		tcd				;set DP to stack

		phk
		plb

;
; first, dereference and lock the rFPListHandle
;
		stz	<error			;say no error
		stz	<matchFound		;say no match found
		
		lda	rFPListHandle
		sta	<listHandle
		lda	rFPListHandle+2
		sta	<listHandle+2
		
		lda	[<listHandle]
		tax
		ldy	#2
		lda	[<listHandle],y
		sta	<listPtr+2
		stx	<listPtr
		
		ldy	#4
		lda	[<listHandle],y
		ora	#$8000
		sta	[<listHandle],y
		
		stz	<count

*** opt 7-Jul-92 DAL -- We already did this above
;;;		stz	<matchFound		;say we didn't find anything by default

		lda	rFPCount		;if there aren't any entries, just
		bne	@loop			;say we're done
		brl	@done
		
;
; now, from entry zero in the list, look at all the rVersions in each record all the
; way up to rFPCount
;
@loop		
		ldy	#16			;the handle of the rVersion resource
		lda	[<listPtr],y		;is at offset +16 in the record
		sta	<vHandle
		iny
		iny
		lda	[<listPtr],y
		sta	<vHandle+2
		
		lda	[<vHandle]		;deref the handle
		tax
		ldy	#2
		lda	[<vHandle],y
		sta	vPtr+2
		stx	vPtr

		lda	#0			;clear both A and B sides of accumulator
		
		SEP	#$20
		LONGA	OFF
		
		ldy	#6			;first, see if the pstring lengths are
		lda	[<rVersionPtr],y	;the same
		cmp	[<vPtr],y
		bne	@goNextRecord
		
		tax
		
@compare	iny
		lda	[<rVersionPtr],y
		cmp	[<vPtr],y
		beq	@nextc
@goNextRecord	brl	@nextRecord
		
@nextc		dex
		bne	@compare
		
		REP	#$20
		LONGA	ON

;
; Now, check to see if the version of this thing in the in-memory database is the same or
; less than the one we're checking it against
;
; A quick explanation of the way this is supposed to work: 
;
; (1) If the database's rVersion is less than our rVersion, then we need to remove the database's rBundle.
;
; (2) If the database's rVersion is greater than our rVersion, then we need to keep going, but mark matchFound
;  	as having found a newer version than the thing we were looking for.
;
; (3) If the database's rVersion is equal to our rVersion, then we need to say we found an exact match and we
;  	need to update the rFinderPath if possible.
;
		ldy	#2
		lda	[<vPtr],y		;is the one we're looking at >= the one in the
		cmp	[<rVersionPtr],y	;database?  If so, then it matched
		beq	@2			;if they're ==, check the prototype stuff
		bge	@MarkAsNewer
		bra	@markOutOfDate

@2		lda	[<vPtr]			;if the numbers are equal, but the develop number
		cmp	[<rVersionPtr]		;is less, then we don't have a match
		beq	@matchFound
		bge	@MarkAsNewer
		
@markOutOfDate	lda	<matchHow
		bpl	@noRemove
		
		jsr	RemoveOutOfDate
@noRemove	brl	@nextRecord

;
; MarkAsNewer -- mark 'matchHow' with $8000 to indicate that we found a newer version of the rVersion
;		 in the database.
;
@MarkAsNewer	lda	#$8000
		sta	<matchFound
		brl	@nextRecord
		
;
; we found we have a match for the rVersion, so depending on what 'matchHow' says,
; we'll either update their rFinderPath, return and say we found the match
;
@matchFound	lda	#$FFFF			;say we found a match for the rVersion we were
		sta	<matchFound		;looking for

		lda	<matchHow
		bmi	@update	
		brl	@done

;
; we found we have a match for the rVersion, so see if their rFinderPath matches the path that
; we're about to use or launch.  if the path matches, then we don't need to do an update.  if the
; pathname doesn't match, then we'll have to do an update (arghhh...) if they ask for it.
;		
@update		lda	[<listPtr]
		sta	<rFPathHandle
		ldy	#2
		lda	[<listPtr],y
		sta	<rFPathHandle+2
		
		lda	[<rFPathHandle]
		tax
		lda	[<rFPathHandle],y	;y is already 2
		sta	<rFPathPtr+2
		stx	<rFPathPtr
		
		pha
		lda	[<rFPathPtr],y		;y is already 2
		clc
		adc	<rFPathPtr		;get the offset of the actual pathname in the
		tax				;rFinderPath
		lda	<rFPathPtr+2
		adc	#0
		pha
		phx
		pushZlong <pathnamePtr		;are the pathnames already the same?
		jsl	WStrCompare
		pla
		beq	@needsUpdate		;if not, then update the rFinderPath
		brl	@nextRecord
@needsUpdate	

		lda	[<listPtr]
		sta	<rFPathHandle
		ldy	#2
		lda	[<listPtr],y
		sta	<rFPathHandle+2
		
		ldy	#4
		lda	[<rFPathHandle],y	;unlock and unfix the handle
		and	#$3FFF
		sta	[<rFPathHandle],y
		
		pea	0		
		lda	[<pathnamePtr]
		clc
		adc	#16			;14 for the version, offset, and pcount,+2 for wstr
		pha
		pushZLong <rFPathHandle
		_SetHandleSize
		bcc	@resizeOK
		brl	@nextRecord
@resizeOK
		
		lda	[<rFPathHandle]
		tax
		ldy	#2
		lda	[<rFPathHandle],y
		sta	<rFPathPtr+2
		stx	<rFPathPtr
		
		lda	#0			;rFinderPath's version
		sta	[<rFPathPtr]

		ldy	#4			;rFinderPath's pcount (1)
		lda	#1
		sta	[<rFPathPtr],y

		ldy	#20
		lda	[<listPtr],y
		ldy	#6			;move the rVersion ID from list to rFinderPath
		sta	[<rFPathPtr],y
		
		ldy	#22
		lda	[<listPtr],y
		ldy	#8
		sta	[<rFPathPtr],y
		
		ldy	#2			;rFinderPath offset to pathname
		lda	#6
		sta	[<ptr3],y
		
		pushZLong <pathnamePtr
		lda	<rFPathPtr
		clc
		adc	#14
		ldx	<rFPathPtr+2
		bcc	@nr2
		inx
@nr2		phx
		pha
		jsl	WStringCopy

		ldy	#24
		lda	[<listPtr],y
		sta	<volumeHandle
		iny
		iny
		lda	[<listPtr],y
		sta	<volumeHandle+2
		ora	<volumeHandle
		bne	@haveVolume
		brl	@nextRecord
		
@haveVolume	jsr	OpenVolumeForWrite
		bcs	@addError

; @@@ 7-Jul-92 DAL.  The error handling here looks bogus to me.  Won't we use a random fileID for updateDesktop???
		
		pha
		pea	1
		_SetResourceFileDepth
		pla
		sta	<oldDepth
		
		ldy	#4
		lda	[<listPtr],y
		sta	<rFPathID
		iny
		iny
		lda	[<listPtr],y
		sta	<rFPathID+2
		
		pea	$802c			;kill the old reference to
		pushZLong <rFPathID		;the rFinderPath
		_RemoveResource
		bcc	@removedOK
		bra	@addError
		
@removedOK	pushZLong <rFPathHandle		;our rFinderPath's handle		
		pea	$0040			;Preload!
		pea	$802C
		pushZLong <rFPathID
		_AddResource
		bcc	@addedOK
@addError	sta	<error

		jsr	updateDesktop		;updateDesktop falls into detachRFPath
		
		pushZLong <rFPathHandle
		jsl DisposeHandleGlue
		bra	@done

@addedOK	jsr	updateDesktop
		
;
; look at the next record in the rFinderPathList
;
@nextRecord	REP	#$20
		LONGA	ON

		inc	<count
		
		lda	<count
		cmp	rFPCount
		bge	@done
		
		lda	<listPtr
		clc
		adc	#32
		sta	<listPtr
		bcc	@nr
		inc	<listPtr+2
@nr		brl	@loop	

;
; we be chillin', we're finished
;
@done		
		ldy	#4			;unlock the rFinderPathlist
		lda	[<listHandle],y
		and	#$7FFF
		sta	[<listHandle],y

		pld
		plb
		lda	retAddr+1,s		;clean up stack
		sta	retAddr+inParms+1,s
		lda	retAddr,s
		sta	retAddr+inParms,s
		tsc
		clc
		adc	#inParms+locParms
		tcs
		rtl

;
; updateDesktop -- update the resource file we've got open
;
updateDesktop
		pei	<fileID
		_UpdateResourceFile

		pea	$802C			;rFinderPath
		pushZLong <rFPathID		;rFinderPathID
		_DetachResource
				
		lda	<fileID
		ora	#$8000
		pha
		_CloseResourceFile
		
		pha
		pei	<oldDepth
		_SetResourceFileDepth
		pla
		rts
		
;
; RemoveOutOfDate -- remove the out of date rBundle resource from the volume in this record
;
RemoveOutOfDate
		ldy	#24
		lda	[<listPtr],y
		sta	<volumeHandle
		iny
		iny
		lda	[<listPtr],y
		sta	<volumeHandle+2
		ora	<volumeHandle
		bne	@haveVolume
		rts
		
@haveVolume	ldy	#8			;get the rBundle's handle
		lda	[<listPtr],y
		sta	<rBundleHandle
		iny
		iny
		lda	[<listPtr],y
		sta	<rBundleHandle+2
		ora	<rBundleHandle
		beq	@done			;be paranoid
		
		lda	[<rBundleHandle]	
		sta	<rBundlePtr
		ldy	#2
		lda	[<rBundleHandle],y
		sta	<rBundlePtr+2
		
		ldy	#8
		lda	[<rBundlePtr],y
		sta	<rBundleID
		iny
		iny
		lda	[<rBundlePtr],y
		sta	<rBundleID+2
		ora	<rBundleID
		beq	@done			;be really paranoid

		jsr	OpenVolumeForWrite
		bcs	@done

		pha
		pea	1
		_SetResourceFileDepth
		pla
		sta	<oldDepth		
				
		pea	$802B			;rBundle
		pushZLong <rBundleID		
		_RemoveResource

		lda	<fileID			;close it the hell anyway, regardless
		ora	#$8000
		pha
		_CloseResourceFile
		
		pha
		pei	<oldDepth
		_SetResourceFileDepth
		pla
@done		rts

;
; OpenVolumeForWrite -- open the Desktop file in the volume in volumeHandle for writing
;
; IN: VolumeHandle contains the handle of the volume whose desktop file we want write access to
;
; OUT: <fileID contains the resource file id
;      Carry set if error opening, error in (A)
;
OpenVolumeForWrite
		lda	[<volumeHandle]		;get the volume name
		tax
		ldy	#2
		lda	[<volumeHandle],y
		sta	<volumePtr+2
		stx	<volumePtr

		pushZLong <volumePtr
		pushlong #c1_path
		jsl	WStringCopy
		
		pushlong #IconsName		;add 'Icons' to it
		pushlong #c1_path
		jsl	PathAddName
		
		pushlong #DesktopName		;add 'Desktop' to it
		pushlong #c1_path
		jsl	PathAddName
		
		pha
		pea	$8003			;we NEED write access, gotta have write access+no preload
		pushlong #0
		pushLong #c1_path
		_OpenResourceFile
		plx
		bcs	@done
		stx	<fileID
@done		rts		
		ENDP
		
; AddBundle2Desktop
;
; Given a pointer to a c1_pathname, open that path, look for 1 and only 1 rBundle, copy the
; contents of the rBundle either to the 'DESKTOP' file of the volume this file came from, or
; to the 'DESKTOP' file on the boot volume.  If the desktop file doesn't exist, it is created if
; possible.
;
; NOTE: We'll trust that the user isn't trying to update a network volume's database (which don't
;       get loaded anyway.
;
; NOTE: This routine explicitly forbids adding any version of the Finder's resources to the
;	'Desktop' database via looking at the rVersion(1) resource and seeing if it says
;	'Finder' and if so, issues error $4206, fErrNotPrudent (all the references to
;	rFinderPaths in the Finder's resource fork would be changed to point to the Finder
;	that's being launched, causing things like Teach files to become linked to the Finder.
;
; NOTE: The source file is opened read-only.
;
; NOTE: Any segments in the pathname to the desktop file which don't exist are created.
;
;   IN: |  word  |   	space
;	|  word	 |	flag, high bit = update if exists
;	|  long  |	rBundle ID to put into desktop database, or zero for first ID
;	|  long	 |	ptr to pathname for desktop file to add rBundle
;	|  long  |	ptr to pathname to examine
;	---------- <-SP
;
;  OUT: |  word  |	result, non-zero if error
;	---------- <-SP
;
; USES: c1_devicename
;.....................................................................

AddBundle2Desktop PROCNAME EXPORT

		IMPORT	C1_DeviceName
		IMPORT	C1_Filename
		IMPORT	strgReading
		IMPORT	strgWritingTo
		IMPORT	GetDeviceStatus
		IMPORT	GetDeviceNumber
		IMPORT	PathGetRoot
		IMPORT	PathGetName
		IMPORT	WStringCopy
		IMPORT	NewHandle
		IMPORT	CloseThisWindow		;in Util.aii - 27-Jan-93 JCM
		IMPORT	c1_temppath		;2-Apr-93 JCM

*** Added - 2-Apr-93 JCM - These are really defined in finder.equ, but there are a bunch of
***			   conflicts from this file to things defined in there.

MaxFileName	equ	31
MaxPathLen	equ	1022-MaxFileName

*** End - 2-Apr-93 JCM

		DefineStack
LastIconID	long
LastIconHandle	long
LastSmallIconID long
LastLargeIconID long
LastSmallIconHandle long
LastLargeIconHandle long
desktopPathLen	word
thermo		word
ourPort		long
uniqueID	long
iconOffset	word
rIconHandle	long
rIconID		long
rVersionID	long
rVersionPtr	long
rVersionHandle	long
rFinderPathID	long
rFinderPathPtr	long
rFinderPathHandle long
OneDocCount	word
OneDocPtr	long
DocListPtr	long
rBundlePtr	long
rBundleHandle	long
desktopFileID	word			
sourceFileID	word
retAddr		block 3			
pathnamePtr	long			
desktopPathPtr	long			
rBundleID	long
updateFlag	word
error		word	

inParms		SET	14		
locParms	SET	92		

		tsc
		sec
		sbc	#locParms		;allocate extra DP space for local DP
		tcs
		phb				;preserve data bank
		phd
		tcd				;set DP to stack

		phk
		plb

		stz	<error			;no errors unless we say so
		stz	addBundleWindowPtr+1	;flag we have no window to close (unless we do)

;
; first, before anything else, open the file as read-only
;
		pha	
		pea	$8001			;open how (no preload, read-only)			
		pushlong #0			;res map addr (NIL)
		pushZLong <pathnamePtr
		_OpenResourceFile
		plx
		stx	<sourceFileID
		bcc	@loadRBundle

		sta	<error
		brl	@done

;
; now, load the specified rBundle by maybe searching for it
;
@loadRBundle
		pha
		_GetCurResourceFile
		pla
		sta	finderFileID

		pha
		pea	1
		_SetResourceFileDepth
		pla
		sta	oldDepth
		
		lda	<rBundleID
		ora	<rBundleID+2
		bne	@noSearchForID

		pha
		pha
		pea	$802B			;rBundle
;;;		pushlong #0			;get the first rBundle
		pushlong #1			;get first rBundle (was 0, 26-May-92 DAL)
		_GetIndResource
		plx
		stx	<rBundleID
		plx
		stx	<rBundleID+2
		bcc	@noSearchForID		;if there aren't any, then time's up
		brl	@sourceClose		
		
@noSearchForID
		pha
		pea	$802B			;rBundle
		pushZLong <rBundleID
		_GetResourceAttr		;see if resource exists from map, not disk
		plx				
		bcc	@grabRVersion
		brl	@sourceClose

;
; try to load the rVersion(1) resource -- we'll need it for all sorts of stuff
;
@grabRVersion
		pha
		pha
		pea	$8029			;rVersion
		pushlong #1
		_LoadResource
		pulllong <rVersionHandle
		bcc	@gotRVersion

		jsr	forceSource		;say we don't have an rVersion (morons, ugh)
		brl	@resetDepth
@gotRVersion

		lda	[<rVersionHandle]	;deref the handle to see if the file we're
		tax				;looking through is
		ldy	#2
		lda	[<rVersionHandle],y
		sta	<rVersionPtr+2
		stx	<rVersionPtr

		ldy	#6		
		lda	[<rVersionPtr],y
		cmp	#$4606			;length byte, capital 'F'
		bne	@notFinder
		
		iny
		lda	[<rVersionPtr],y
		cmp	#$6946			;capital 'F', lowercase 'i'
		bne	@notFinder
		
		iny
		iny
		lda	[<rVersionPtr],y
		cmp	#$646e			;lowercase 'n', lowercase 'd'
		bne	@notFinder
		
		iny
		iny
		lda	[<rVersionPtr],y
		cmp	#$7265			;lowercase 'e', lowercase 'r'
		bne	@notFinder
		
		lda	#fErrNotPrudent
		brl	@sourceClose		;@@@ UNCOMMENT THIS

@notFinder	pea	$8029			;rVersion
		pushlong #1
		_DetachResource

;
; check the in-memory database against the file we're launching
;
		lda	<updateFlag
		bpl	@openDestLoop

		pha
		pha
		pea	$8000			;if match found, do update
		pushZLong <pathnamePtr
		pushZLong <rVersionPtr
		jsl	QueryDatabase
		pla				;error
		plx				;matchFound (boolean)
		beq	@openDestloop		;if no match is found, update the database
		
		jsr	forceSource		;match found, update done (we hope)
		brl	@resetDepth
		
;
; now, open the desktop file we're going to be putting this stuff in
;
@openDestLoop	pushlong #c1_deviceName
		pushZLong <desktopPathPtr
		jsl	PathGetRoot
		
		pha
		pushlong #c1_deviceName
		jsl	GetDeviceNumber		;result on stack
		plx
		bcs	@destOpenErr		;if there's no volume around with this name, exit
		
		phx
		phx				;same here, if there's no volume around, exit
		jsl	GetDeviceStatus	
		plx
		bcs	@destOpenErr	
		
		txa
		and	#$0003			;is it write-protected or read-only?
		beq	@openDest
		
		lda	#$002b			;fake a write-protected error
		brl	@sourceClose

@openDest	pha
		pea	$8000			;as allowed, don't preload anything!
		pushlong #0			;res map addr (NIL)
		pushZLong <desktopPathPtr
		_OpenResourceFile
		plx
		stx	<desktopFileID
		bcc	@stealRVersion

		cmp	#$44
		beq	@createPaths
		cmp	#$46			;if it's not found, and since there's a device 
		bne	@destOpenErr		;which we can write to around, try to create it...
		
@createDest	pushlong #3			;auxtype
		pea	$c9			;filetype
		pea	$c3			;access
		pushZLong <desktopPathPtr
		_CreateResourceFile
		bcc	@openDest		
@destOpenErr	brl	@sourceClose


;
; yuk. try to create all the segments in the pathname or exit 
;
@createPaths	lda	<desktopPathPtr
		sta	CreateParms+2
		lda	<desktopPathPtr+2
		sta	CreateParms+2+2
			
		lda	[<desktopPathPtr]
		sta	<desktopPathLen

		ldy	#1
@cLoop		iny
@createLoop	iny
		lda	[<desktopPathPtr],y
		and	#$00ff
		cmp	#':'
		beq	@createSegment
	
		dey
		cpy	<desktopPathLen
		blt	@cLoop

		lda	<desktopPathLen
		sta	[<desktopPathPtr]
		bra	@createDest

@createSegment	dey
		dey
		tya
		sta	[<desktopPathPtr]
		
		_CreateGS CreateParms
		bcs	@createError
		
@nextSegment	lda	[<desktopPathPtr]
		inc	a
		inc	a
		tay
		bra	@createLoop

@createError	cmp	#$47
		beq	@nextSegment
		cmp	#$40
		beq	@nextSegment
		
		lda	<desktopPathLen
		sta	[<desktopPathPtr]

		lda	#$44
		brl	@sourceClose
		
;
; now, load the rVersion(1) resource out of the source file, but check to see if it's the Finder
; we're trying to launch, 'cause if it is, we just wanna get out of here quickly...
;
@stealRVersion
		pha
		pha
		pea	$0002			;anything in $0002xxx, but definitely not 0x00000001
		pea	$8029
		_UniqueResourceID
		plx
		stx	<rVersionID
		plx
		stx	<rVersionID+2
		bcc	@hasUniqueRVersion
		brl	@errorClose
		
@hasUniqueRVersion
		pushZLong <rVersionHandle
		pea	$0040			;preload
		pea	$8029
		pushZLong <rVersionID
		_AddResource
		bcc	@lookRBundle
		brl	@errorClose

;
; lookRBundle -- go load the RBundle and have our way with it
;
@lookRBundle
		jsr	setSourceFile
		
		pha				;load the rBundle again
		pha
		pea	$802B			;rBundle
		pushZLong <rBundleID
		_LoadResource
		plx
		stx	<rBundleHandle
		plx
		stx	<rBundleHandle+2
		bcc	@lookRBundleAgain
		
		sta	<error
		brl	@errorClose
@lookRBundleAgain

		ldy	#4			;lock it
		lda	[<rBundleHandle],y
		ora	#$8000
		sta	[<rBundleHandle],y
		
		lda	[<rBundleHandle]	;dereference the handle
		tax
		ldy	#2
		lda	[<rBundleHandle],y
		sta	<rBundlePtr+2
		stx	<rBundlePtr

		lda	[<rBundlePtr]
		beq	@buildRFinderPath
		
		lda	#fErrBadBundle
		brl	@errorClose

;
; now, add a built rFinderPath (one, and only one rFinderPath please Vasili) to the Desktop
;
; Finder Trivia: because only 1 rFinderPath will get added for multiple things to match against,
; when the Finder updates that single rFinderPath, all the paths from multiple icons
; get simultaneously updated.
;
@buildRFinderPath
		pha
		pha
		lda	[<pathnamePtr]
		clc
		adc	#16			;14 for the version, offset, and pcount,+2 for wstr
		pha
		jsl	NewHandle		;offset, and enough for a bunch of
		plx
		stx	<rFinderPathHandle
		plx
		stx	<rFinderPathHandle+2
		bcc	@newRFPOK
		brl	@errorClose
@newRFPOK

;		ldy	#4			;actually, we don't care if this moves once we
;		lda	[<rFinderPathHandle]	;move the important stuff into it
;		ora	#$8000
;		sta	[<rFinderPathHandle]
		
		lda	[<rFinderPathHandle]
		tax
		ldy	#2
		lda	[<rFinderPathHandle],y
		sta	<rFinderPathPtr+2
		stx	<rFinderPathPtr
		
		lda	#0			;rFinderPath's version
		sta	[<rFinderPathPtr]
		
		ldy	#2			;rFinderPath offset to pathname
		lda	#14
		sta	[<rFinderPathPtr],y

		ldy	#4			;rFinderPath's pcount (1)
		lda	#1
		sta	[<rFinderPathPtr],y
		
		ldy	#6			;rFinderPath's rVersion
		lda	<rVersionID
		sta	[<rFinderPathPtr],y
		iny
		iny
		lda	<rVersionID+2
		sta	[<rFinderPathPtr],y
		
		iny				;space for the rVersion handle
		iny
		lda	#0
		sta	[<rFinderPathPtr],y
		iny
		iny
		sta	[<rFinderPathPtr],y
		
		pushZLong <pathnamePtr
		lda	<rFinderPathPtr
		clc
		adc	#14
		ldx	<rFinderPathPtr+2
		bcc	@nr2
		inx
@nr2		phx
		pha
		jsl	WStringCopy

		jsr	setDesktopFile

		pha
		pha
		pea	$0002			;anything in $0002xxx, but definitely not 0x1
		pea	$802C
		_UniqueResourceID
		plx
		stx	<rFinderPathID
		plx
		stx	<rFinderPathID+2
		bcs	@noUniqueRFPath
		
		pushZLong <rFinderPathHandle	;our rFinderPath's handle		
		pea	$0040			;Preload!
		pea	$802C
		pushZlong <rFinderPathID
		_AddResource
		bcc	@walkRBundle
	
@noUniqueRFPath	pha
		pushlong <rFinderPathHandle
		jsl DisposeHandleGlue
		pla
		brl	@errorClose
	
;
; if we get this far, life is good.  We have a resource fork, definite desktop file, we've created
; an rFinderPath for this application, and stolen its rVersion(1) resource, and we have an
; rBundle to walk through
;
@walkRBundle
		ldy	#2			;make the pointer to the DocList
		lda	[<rBundlePtr],y
		clc
		adc	<rBundlePtr
		sta	<DocListPtr
		lda	<rBundlePtr+2
		adc	#0
		sta	<DocListPtr+2

		lda	<DocListPtr		;make the pointer to the first OneDoc struct
		clc
		adc	#2
		sta	<OneDocPtr
		lda	<DocListPtr+2
		adc	#0
		sta	<OneDocPtr+2

		stz	<OneDocCount

		lda	[<DocListPtr]		;only show the updating window for 4 OneDocs and up
		bne	@haveSomeOneDocs
		brl	@doneWithOneDocs	;if we don't have any OneDocs, leave
@haveSomeOneDocs

		cmp	#4			
		bge	@ShowWindow
		brl	@doneWindow
		
;
; put up the window with the thermo control and a stat text item
;			
@ShowWindow	lda	finderFileID
		pha
		_SetCurResourceFile

		pha				;set the depth deep enough to get the
		lda	oldDepth		;thermo control defproc
		pha
		_SetResourceFileDepth
		pla

		pha
		pha
		pushlong #0			;titlePtr
		pushlong #0			;refCon is ptr to our window info block
		pushlong #AddBundleUpdate	;content draw proc
		pushlong #0			;window defproc
		pea	2			;refIsResource
		pushlong #$11			;window resoure "Updating Desktop Database..."
		pea	$800e			;rWindParam1
		_NewWindow2
		pulllong addBundleWindowPtr
		bcc	@windowOK

		sta	<error
		
		lda	addBundleWindowPtr+1
		beq	@noWindow
		
		lda	addBundleWindowPtr
		ldx	addBundleWindowPtr+2
		jsl	CloseThisWindow

@noWindow	brl	@errorClose


@windowOK	pha
		pha
		_GetPort
		pulllong <ourPort
		
		pushLong addBundleWindowPtr
		_SetPort

		pha
		pha
		pushLong addBundleWindowPtr
		pushlong #3
		_GetCtlHandleFromID

		lda	[<DocListPtr]		;# of items
		inc	a			;plus 2 extra for read or rBundle and write of same
		asl	a

		ply
		plx
		pea	0
		pha				;max value for dial
		phx
		phy
		_SetCtlTitle			;set the scale

		pushlong #c1_filename
		pushZlong <pathnamePtr
		jsl	PathGetName
		
		lda	>c1_filename
		xba
		sta	>c1_filename
		
		pea	12
		pea	26
		_MoveTo

		pushlong #strgReading
		_DrawString

		pushlong #c1_filename+1
		_DrawString
		
		jsl	AddBundleUpdate		;draw the bundle stuff

		lda	#1			;say we read the rBundle
		jsr	DrawThermo
		
		pha
		pea	1
		_SetResourceFileDepth
		pla

;
; now that we're done putting up the window for the user to yawn at, get about the more serious
; business of copying all the stuff out of the source fork into the destination fork.
;
@doneWindow	jsr	setSourceFile

		stz	<LastLargeIconID
		stz	<LastLargeIconID+2
		stz	<LastSmallIconID
		stz	<LastSmallIconID+2
				
;
; loadLoop -- walk all of the OneDocs, loading the rIcons into memory and marking them unpurgable
;
@loadLoop
		ldy	#4			;check numResults
		lda	[<OneDocPtr],y
		cmp	#3
		blt	@nextOneDocLoad
		
		jsr	SaveLarge		
		ldy	#16			;load the large icon
		jsr	loadIcon
		jsr	RestoreLarge
		
		bcc	@loadSmallIcon
		brl	@errorClose
		
@loadSmallIcon	ldy	#4			;check numResults
		lda	[<OneDocPtr],y
		cmp	#4
		blt	@nextOneDocLoad

		jsr	SaveSmall		
		ldy	#24			;load the small icon
		jsr	loadIcon
		jsr	RestoreSmall
		
		bcc	@nextOneDocLoad
		brl	@errorClose
		
;
; process the next OneDoc structure
;
@nextOneDocLoad
		inc	<OneDocCount

		lda	addBundleWindowPtr+1
		beq	@noThermoLoad

		lda	<OneDocCount
		inc	a
		jsr	DrawThermo
@noThermoLoad		
		
		lda	<OneDocCount
		cmp	[<DocListPtr]
		bge	@doneWithLoad
		
		lda	[<OneDocPtr]
		clc
		adc	<OneDocPtr	
		sta	<OneDocPtr
		bcc	@goLoadLoop
		inc	<OneDocPtr+2
@goLoadLoop	brl	@loadLoop


;
; doneWithLoad -- we're done loading all the rIcons.  They're sitting around in memory, hopefully
;		  very movable at this point
;
@doneWithLoad
		stz	<LastLargeIconHandle	;start off with the 'last' handles set to zero so they don't
		stz	<LastLargeIconHandle+2	;match any 'last' handle...
		stz	<LastSmallIconHandle
		stz	<LastSmallIconHandle+2
		
		lda	<DocListPtr		;make the pointer to the first OneDoc struct
		clc
		adc	#2
		sta	<OneDocPtr
		lda	<DocListPtr+2
		adc	#0
		sta	<OneDocPtr+2

		stz	<OneDocCount

		jsr	setDesktopFile

		lda	[<DocListPtr]		;only show the updating window for 4 OneDocs and up
		cmp	#4
		blt	@saveLoop

*** Added - 2-Apr-93 JCM - Make sure @ is expanded so we have a real volume name to show.

		lda	#MaxPathLen+MaxFileName+4
		sta	c1_temppath-2

		lda	<desktopPathPtr
		sta	sourcePath
		lda	<desktopPathPtr+2
		sta	sourcePath+2

		_ExpandPathGS expandDesktopParms

*** End - 2-Apr-93 JCM

		pushlong #c1_filename
		pushZlong <desktopPathPtr
		jsl	PathGetRoot
		
		lda	>c1_filename
		dec	a			;get rid of the colon
		xba
		sta	>c1_filename+1
		
		pushlong #nameRect
		_EraseRect

		pea	12
		pea	26
		_MoveTo
		
		pushlong #strgWritingTo
		_DrawString
		
		pushlong #c1_filename+2
		_DrawString

;
; saveLoop -- walk all of the OneDocs, detaching and saving the rIcons as we go
;
@saveLoop	ldy	#4			;check numResults
		lda	[<OneDocPtr],y
		cmp	#2			;is there at least 2 result fields?
		bcs	@have2Results
		brl	@nextOneDocSave		;if not, look at the next one
@have2Results

		pei	<rFinderPathID+2
		pei	<rFinderPathID
		
		ldy	#6
		lda	[<OneDocPtr],y
		and	#$0001			;launchThis?
		bne	@launchThis		
		
		lda	#0
		sta	1,s
		sta	3,s
		
@launchThis	ldy	#8			;stuff our created rFinderPath ID into the
		lda	1,s			;the rFinderPath result field
		sta	[<OneDocPtr],y
		iny
		iny
		lda	3,s
		sta	[<OneDocPtr],y

		pla
		pla

		jsr	zeroHandle		;sero the next longword in the OneDoc
		
;
; now, add the large and small rIcons to the desktop file
;
		ldy	#4			;check numResults
		lda	[<OneDocPtr],y
		cmp	#3
		blt	@nextOneDocSave
		
		jsr	SaveLarge
		ldy	#16			;save the large icon
		jsr	saveIcon
		jsr	RestoreLarge
		
		bcc	@saveSmallIcon
		brl	@errorClose
		
@saveSmallIcon	ldy	#4			;check numResults
		lda	[<OneDocPtr],y
		cmp	#4
		blt	@nextOneDocSave
	
		jsr	SaveSmall		
		ldy	#24			;load the small icon
		jsr	saveIcon
		jsr	RestoreSmall
		
		bcc	@nextOneDocSave
		brl	@errorClose
		
;
; process the next OneDoc structure
;
@nextOneDocSave
		inc	<OneDocCount
		
		lda	addBundleWindowPtr+1
		beq	@noThermoSave

		lda	<OneDocCount
		clc
		adc	[<DocListPtr]		;(A) on stack for _SetCtlValue
		inc	a
		jsr	DrawThermo
@noThermoSave

		lda	<OneDocCount
		cmp	[<DocListPtr]
		bge	@doneWithOneDocs
		
		lda	[<OneDocPtr]
		clc
		adc	<OneDocPtr	
		sta	<OneDocPtr
		bcc	@goSaveLoop
		inc	<OneDocPtr+2
@goSaveLoop	brl	@saveLoop

;
; done walking all the OneDocs and writing out all the attached information (at this point the
; user should be bored to tears) so write out the rBundle and close everything
;
@doneWithOneDocs
		jsr	setSourceFile
		
		pea	$802B
		pushZLong <rBundleID
		_DetachResource

		jsr	setDesktopFile

		pha
		pha
		pea	$802B
		_CountResources
		pla
		plx
		
		pha
		pha
		pea	$802B
		phx
		pha
		_GetIndResource
		bcc	@gotFirstOK
		
		lda	#0			;just to be sure, we can't depend on the return
		sta	1,s			;from getIndexedResource
		sta	3,s
		
@gotFirstOK	pla
		clc
		adc	#1			;next resource please
		plx
		bcc	@nr
		inx	
@nr		stx	<UniqueID+2
		sta	<UniqueID

		ldy	#4			;zero the rIcon for this app field
		lda	#0
		sta	[<rBundlePtr],y
		iny
		iny
		sta	[<rBundlePtr],y
		
		iny				;save the unique ID for the rBundle inside of the
		iny				;rBundle itself
		lda	<uniqueID
		sta	[<rBundlePtr],y
		iny
		iny
		lda	<uniqueID+2
		sta	[<rBundlePtr],y
		
		pushZLong <rBundleHandle
		pea	$0040
		pea	$802B
		pushZLong <UniqueID
		_AddResource
		bcc	@addRBundleOK
		
@errorClose	sta	<error
		jsr	forceBoth
		bra	@resetDepth

@sourceClose	sta	<error
		jsr	forceSource
		bra	@resetDepth

@addRBundleOK	jsr	closeBoth
		bcc	@resetDepth		;if we get an error closing, close them again
						;really hard
		sta	<error
		jsr	forceBoth

;
; reset the resource search path depth and leave
;
@resetDepth
		pha
		lda	oldDepth
		pha
		_SetResourceFileDepth
		pla

		lda	finderFileID
		pha
		_SetCurResourceFile
		
		lda	addBundleWindowPtr+1
		beq	@noClose

		lda	<OneDocCount
		clc
		adc	[<DocListPtr]		
		inc	a
		inc	a
		jsr	DrawThermo		;draw the last segment in the thermo bar

		pha				;wait half a second for this to register in the
		pea	0			;user's eyeball
		pea	$01e0			;30 ticks, half a second
		_WaitUntil
		pla

		pushZLong <ourPort
		_SetPort

		lda	addBundleWindowPtr
		ldx	addBundleWindowPtr+2
		jsl	CloseThisWindow

@noClose
		
;
; we be chillin', we're finished
;
@done		
		pld
		plb
		lda	retAddr+1,s		;clean up stack
		sta	retAddr+inParms+1,s
		lda	retAddr,s
		sta	retAddr+inParms,s
		tsc
		clc
		adc	#inParms+locParms
		tcs
		rtl

*** Added - 2-Apr-93 JCM - For expanding @.

expandDesktopParms dc.w 3			;pCount
sourcePath	dc.L 0				;inputPath ptr
		dc.L c1_temppath-2		;outputPath ptr
		dc.w 0				;flags - don't uppercase chars

*** End - 2-Apr-93 JCM

;
; DrawThermo -- update the thermometer bar
;
; IN: (A) = value for thermo bar
;
DrawThermo	sta	<thermo
		
		pha
		_GetCurResourceFile
		pea	1
		_SetCurResourceFile

		pei	<thermo			;(A) on stack for _SetCtlValue
		pha
		pha
		pushlong addBundleWindowPtr
		pushlong #3
		_GetCtlHandleFromID
		_SetCtlValue			;set the thermo dial
		_SetCurResourceFile
		rts

;
; DON'T do anything in the following 4 routines which might change the carry!
;
SaveLarge	lda	<LastLargeIconHandle
		sta	<LastIconHandle
		lda	<LastLargeIconHandle+2
		sta	<LastIconHandle+2
		
		lda	<LastLargeIconID
		sta	<LastIconID
		lda	<LastLargeIconID+2
		sta	<LastIconID+2
		rts
		
RestoreLarge	lda	<LastIconID
		sta	<LastLargeIconID
		lda	<LastIconID+2
		sta	<LastLargeIconID+2

		lda	<LastIconHandle
		sta	<LastLargeIconHandle
		lda	<LastIconHandle+2
		sta	<LastLargeIconHandle+2
		rts

SaveSmall	lda	<LastSmallIconHandle
		sta	<LastIconHandle
		lda	<LastSmallIconHandle+2
		sta	<LastIconHandle+2
		
		lda	<LastSmallIconID
		sta	<LastIconID
		lda	<LastSmallIconID+2
		sta	<LastIconID+2
		rts

RestoreSmall	lda	<LastIconID
		sta	<LastSmallIconID
		lda	<LastIconID+2
		sta	<LastSmallIconID+2

		lda	<LastIconHandle
		sta	<LastSmallIconHandle
		lda	<LastIconHandle+2
		sta	<LastSmallIconHandle+2
		rts		
;
; load the icon located at offset in Y in the current OneDoc, save the handle at offset Y+4
;
loadIcon	sty	<iconOffset

		lda	[<OneDocPtr],y
		sta	<rIconID
		iny
		iny
		lda	[<OneDocPtr],y
		sta	<rIconID+2
		ora	<rIconID
		bne	@hasIcon

		clc
		rts
@hasIcon

		lda	<LastIconID
		cmp	<rIconID
		bne	@genuineLoad
		lda	<LastIconID+2
		cmp	<rIconID+2
		bne	@genuineLoad
		
		lda	<LastIconHandle
		sta	<rIconHandle
		lda	<LastIconHandle+2
		sta	<rIconHandle+2
		bra	@alreadyLoaded

@genuineLoad	pha
		pha
		pea	$8001
		pushZLong <rIconID
		_LoadResource
		plx
		stx	<rIconHandle
		stx	<LastIconHandle
		plx
		stx	<rIconHandle+2
		stx	<LastIconHandle+2
		bcc	@loadedicon
		rts
@loadedIcon

		lda	<rIconID
		sta	<LastIconID
		lda	<rIconID+2
		sta	<LastIconID+2
		
		pea	$8001
		pushZLong <rIconID
		_DetachResource

		ldy	#4			;unlock the handle, let it float
		lda	[<rIconHandle],y
		and	#$7fff
		sta	[<rIconHandle],y

		and	#$0300
		beq	@noPurge

		pea	0			;set the purge level of the handle to zero
		pushZLong <rIconHandle		;so it won't leave until we write it
		_SetPurge
@noPurge

@alreadyLoaded	ldy	<iconOffset		;save the rIcon's handle
		iny
		iny
		iny
		iny
		
		lda	<rIconHandle
		sta	[<OneDocPtr],y
		iny
		iny
		lda	<rIconHandle+2
		sta	[<OneDocPtr],y
		
		clc
		rts

;
; save the icon located at offset in Y in the current OneDoc
;
saveIcon	sty	<iconOffset		;is there an icon there?
		lda	[<OneDocPtr],y
		iny
		iny
		ora	[<OneDocPtr],y
		bne	@hasIcon		;if so, save it
	
		jsr	zeroHandle		;if not, zero the handle space also
		clc
		rts
@hasIcon
		
		iny				;has the icon, so get its handle from the OneDoc
		iny
		lda	[<OneDocPtr],y
		sta	<rIconHandle
		iny
		iny
		lda	[<OneDocPtr],y
		sta	<rIconHandle+2
		
		cmp	<LastIconHandle+2
		bne	@needNewID
		lda	<rIconHandle
		cmp	<LastIconHandle
		bne	@needNewID
		
		ldy	<iconOffset		;save the unique ID we just made into the OneDoc
		lda	<LastIconID
		sta	[<OneDocPtr],y
		iny
		iny
		lda	<LastIconID+2
		sta	[<OneDocPtr],y
		
		jsr	zeroHandle		;and zero the handle space
		bra	@addRIconOK
		
@needNewID	lda	<rIconHandle
		sta	<LastIconHandle
		lda	<rIconHandle+2
		sta	<LastIconHandle+2
		
		pha
		pha
		pea	$FFFF			;application valid range
		pea	$8001
		_UniqueResourceID
		plx
		stx	<uniqueID
		stx	<LastIconID
		plx
		stx	<uniqueID+2
		stx	<LastIconID+2
		bcc	@hasUniqueRIcon
		rts
@hasUniqueRIcon

		ldy	<iconOffset		;save the unique ID we just made into the OneDoc
		lda	<uniqueID
		sta	[<OneDocPtr],y
		iny
		iny
		lda	<uniqueID+2
		sta	[<OneDocPtr],y
		
		jsr	zeroHandle		;and zero the handle space

		pushZLong <rIconHandle
		pea	$0040			;preload
		pea	$8001
		pushZLong <UniqueID
		_AddResource
		bcc	@addRIconOK
		rts

@addRIconOK	clc
		rts


;
; set source resource file
;
setSourceFile
		pei	<sourceFileID
		_SetCurResourceFile
		rts

;
; set desktop resource file
;
setDesktopFile
		pei	<desktopFileID
		_SetCurResourceFile
		rts

;
; zeroHandle -- zero the next handle address in Y
;
zeroHandle
		iny				;zero the handle space
		iny
		lda	#0
		sta	[<OneDocPtr],y
		iny
		iny
		sta	[<OneDocPtr],y
		rts
		
;
; close both resource files
;
closeBoth
		pei	<sourceFileID
		_CloseResourceFile
		
		pei	<desktopFileID
		_CloseResourceFile
		rts

;
; damn well close both files unconditionally, no ifs and, or buts
;
forceBoth
		lda	<desktopFileID
		ora	#$8000
		pha
		_CloseResourceFile
		
forceSource
		lda	<sourceFileID
		ora	#$8000
		pha
		_CloseResourceFile
		rts


;
; addBundleUpdate -- draw the controls in the "Updating the desktop file" window
;
addBundleUpdate
		phb
		phk
		plb
		
		pha
		_GetCurResourceFile
		
		lda	finderFileID
		pha
		_SetCurResourceFile

		pha				;set the depth deep enough to get the
		lda	oldDepth
		pha				;thermo control defproc
		_SetResourceFileDepth

		pushlong addBundleWindowPtr
		_DrawControls
		
		lda	1,s
		pha
		_SetResourceFileDepth
		pla
		
		_SetCurResourceFile
		
		plb
		rtl
		
;
; locals
;
CreateParms	dc.w	4			;pcount
		dc.L	0			;ptr to pathname
		dc.w	$c3			;access
		dc.w	$0f			;filetype
		dc.L	0			;auxtype
		
nameRect	dc.w	16,12,26+1,343		;added 1, 13-Jul-92 DAL

finderFileID	dc.w	0
oldDepth	dc.w	0
characteristics dc.w	0
addBundleWindowPtr dc.L	0
		END

\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Finder/match.equ b/IIGS.601.SRC/A.U.G/Finder/match.equ
new file mode 100644
index 0000000..a27ad1b
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Finder/match.equ
@@ -0,0 +1 @@
+matchFiletype	equ	$0001
matchAuxtype	equ	$0002
matchFilename	equ	$0004
matchCreateDateTime equ $0008
matchModDateTime equ	$0010
matchAccess	equ	$0020
matchExtended	equ	$0040
matchHFSFileType equ	$0080
matchHFSCreator	equ	$0100
matchOptionList	equ	$0200
matchEOF	equ	$0400

matchFiletypeID	equ	$1
matchAuxtypeID	equ	$2
matchFilenameID	equ	$3
matchCreateDateTimeID equ $4
matchModDateTimeID equ	$5
matchLocalAccessID equ	$6
matchNetworkAccessID equ $7
matchExtendedID equ	$8
matchHFSFiletypeID equ 	$9
matchHFSCreatorID equ	$A
matchOptionListID equ	$B
matchEOFID	equ	$C
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Finder/matchIIGS.r b/IIGS.601.SRC/A.U.G/Finder/matchIIGS.r
new file mode 100644
index 0000000..82e40d3
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Finder/matchIIGS.r
@@ -0,0 +1 @@
+/* equates for rAppInfo */

#define rAppInfo			$802B
#define rFinderPath			$802C

#define LaunchThis			$1
#define DontLaunch			$0

#define reads				$10
#define writes				$20
#define native				$40
#define creator				$80

#define Filetype			$1
#define	AuxType				$2
#define Filename			$4
#define CreateDateTime		$8
#define ModDateTime			$10
#define LocalAccess			$20
#define NetworkAccess		$40
#define Where				$80
#define HFSFileType			$100
#define HFSCreator			$200
#define OptionList			$400

/*------------------------------ rAppInfo ----------------------------------------*/
type rAppInfo {
start:
		integer = 0;				/* version must be zero 			*/
		integer = (list-start)/8;	/* offset to document list 			*/
		longint;					/* rIcon ID for application 		*/
list:
		integer = $$countOf(OneDocs);
		array OneDocs {
startOneDoc:
			integer = (end[$$ArrayIndex(OneDocs)]-startOneDoc[$$ArrayIndex(OneDocs)])/8;		
												/* size in bytes of this structure 	*/
			
			integer = (matchFlags[$$ArrayIndex(OneDocs)]-startOneDoc[$$ArrayIndex(OneDocs)])/8;
												/* offset to MatchFlags field from */

			integer = $$optionalCount(Results);
												/* pCount for results			*/
			optional Results {
				integer;			/* bit 0 = launch this = boolean			*/
									/* bits 4-7 = voting clout					*/
				longint;			/* rFinderPath ID for this document			*/
				longint;			/* rIcon ID for large icon for this doc		*/
				longint;			/* rIcon ID for small icon for document		*/
				pstring;			/* string to describe this type of document */
			};
			
matchFlags: 
			longint;				/* actually, just bits to say what follows so that
									   andy doesn't have to traverse the following fields
									   trying to determine what's there			*/

/*------------------- first field -----------------------------*/

				switch {
			
				case MatchFileType:
					key integer = 0x1;
					array [1] {
						integer;			/* filetype to match 			*/ 
					};
	
				case empty:
					key integer = 0x0;
				};
				
/*--------------------- second field -------------------------*/
				
				switch {
			
				case MatchAuxType:
					key integer = 0x2;
					array [1] {
						longint;			/* auxtype mask					*/
						longint;			/* auxtype to match 			*/
				
					};
				
				case empty:
					key integer = 0x0;

				};

/*--------------------- third field -------------------------*/
				
				switch {
							
				case MatchFileName:
					key integer = 0x3;
					array [1] {
						pstring;					/* filename string 				*/
					};

				case empty:
					key integer = 0x0;
					
				};

/*--------------------- fourth field -------------------------*/
				
				switch {
			
				case MatchCreateDate:
					key integer = 0x4;
					array [1] {
						bitstring[16]	CompareSecond 	= 0x1,	/* do the comparison */
										CompareMinute 	= 0x2,	/* how?				 */
										CompareHour		= 0x4,
										CompareYear		= 0x8,
										CompareDay		= 0x10,
										CompareMonth	= 0x20,
										CompareWeekday	= 0x80,
										lessThan		= 0x0,
										equal			= 0x0100,
										greater			= 0x0200,
										not				= 0x0400;	
						hex string [8];						/* the date and time	*/
					};
				
				case empty:
					key integer = 0x0;

				};

				
/*--------------------- fifth field -------------------------*/
				
				switch {
							
				case MatchModDate:
					key integer = 0x5;
					array [1] {
						bitstring[16]	CompareSecond 	= 0x1,	/* do the comparison */
										CompareMinute 	= 0x2,	/* how?				 */
										CompareHour		= 0x4,
										CompareYear		= 0x8,
										CompareDay		= 0x10,
										CompareMonth	= 0x20,
										CompareWeekday	= 0x80,
										lessThan		= 0x0,
										equal			= 0x0100,
										greater			= 0x0200,
										not				= 0x0400;	
						hex string [8];						/* the date and time	*/
					};
				
				case empty:
					key integer = 0x0;

				};
				
				
/*--------------------- sixth field -------------------------*/
				
				switch {
							
				case MatchLocalAccess:
					key integer = 0x6;
					array [1] {
						integer;					/* access word mask				*/
						integer;					/* access word comparison value */
					};
		
				case empty:
					key integer = 0x0;

				};
				
/*--------------------- seventh field -------------------------*/
				
				switch {
							
				case MatchNetworkAccess:
					key integer = 0x7;
					array [1] {
						longint;					/* access word mask				*/
						longint;					/* access word comparison value */
					};
		
				case empty:
					key integer = 0x0;

				};

/*--------------------- eighth field -------------------------*/
				
				switch {
							
				case MatchWhere:
					key integer = 0x8;
					array [1] {
						integer;					/* is the file extended? 		*/
					};
					
				case empty:
					key integer = 0x0;

				};

/*--------------------- ninth field -------------------------*/
				
				switch {
							
				case MatchHFSFileType:
					key integer = 0x9;
					array [1] {
						longint;					/* hfs filetype 				*/
					};
					
				case empty:
					key integer = 0x0;
	
				};

				
/*--------------------- tenth field -------------------------*/
				
				switch {
							
				case MatchHFSCreator:
					key integer = 0xA;
					array [1] {
						longint;					/* hfs creator type 			*/
					};

				case empty:
					key integer = 0x0;
	
				};

/*--------------------- eleventh field -------------------------*/
				
				switch {
							
				case MatchFSTOptions:
					key integer = 0xB;
					array [1] {
						integer = $$countof(GroupOptions);
						array GroupOptions {
							integer = $$countof(filesystems);
							array filesystems {
								integer;			/* file sys ID 					*/
							};
						integer;				/* offset into option_list 				*/
						longint;				/* mask for long fetched from option_list 	*/
						longint;				/* comparison value for the masked long	*/
						bitstring[16];			/* comparison specification				*/
						};
					};
					
				case empty:
					key integer = 0x0;

				};

/*------------------------------------------------------------*/
				
end:
		};
};

/*------------------------------ rFinderPaths ----------------------------------------*/
type rFinderPath {
start:
		integer = 0;				/* version must be zero 				*/
		integer = (path-start)/8;	/* offset to pathname 					*/
		integer = $$optionalCount(stuff);
		optional Stuff {
				longint;			/* rVersion ID of the owner app			*/
		};
path:
		wstring;					/* wstring for application pathname		*/
};
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Finder/menu.aii b/IIGS.601.SRC/A.U.G/Finder/menu.aii
new file mode 100644
index 0000000..c7f9c6b
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Finder/menu.aii
@@ -0,0 +1 @@
+*===============================================*
*						*
* File:		Menu.aii			*
* Project:	GS Finder			*
* Orig Authors:	Don J. Brady & Dan Oliver	*
* Build file:	Finder.Make			*
*						*
* © Copyright Apple Computer, Inc. 1986-1992	*
* All rights reserved.				*
*===============================================*
* Global Routines:				*
*						*
*===============================================*

		STRING	ASIS
		BLANKS	OFF
		
		PRINT	OFF		
		PRINT	NOGEN
		PRINT	NOSYM

		INCLUDE 'All.macros'
		INCLUDE	'special.macros'
		INCLUDE	'Finder.equ'
		INCLUDE	'Resource.equ'
		INCLUDE	'DP.equ'
		INCLUDE	'Data.equ'
		INCLUDE	'Strings.equ'

		PRINT	ON


;------------------------------------------
;
; Equates from procedure menudata
;
;------------------------------------------
ret		equ	13
CancelID	equ	$FFFF
OKID		equ	$0001

;------------------------------------------
;
;   Imported addresses
;
;------------------------------------------
		
			
		IMPORT	updateInfoWin		;in main.aii
		IMPORT	shutdown_list		;in data.aii
		IMPORT	shutdown_flag		;in data.aii
		IMPORT	FinderSaveAll		;in main.aii

		IMPORT	ValidateFile		;in Verify.aii
		IMPORT	GetVerifyGuts		;in Verify.aii
		IMPORT	GetVerifyInfo		;in verify.aii
		IMPORT	GetValidGuts		;in Verify.aii
		IMPORT	GetValidInfo		;in verify.aii
		IMPORT	PtoWString		;in utility.aii
		IMPORT	PathAddName		;in verify.aii
		IMPORT	FileSysID
		
		IMPORT	matchWindName
		IMPORT	info_access
		IMPORT	info_mtime
		IMPORT	info_mdate
		IMPORT	info_ctime
		IMPORT	info_cdate
		IMPORT	info_blocks
		IMPORT	storage_type
		IMPORT	ChangeDialog
		IMPORT	EndDialog
		IMPORT	MonitorDialog		Wait for selection.
		IMPORT	ProDOSerr		Handle any ProDOS error.
		IMPORT	StartDialog
		IMPORT	VerifyMedium
		IMPORT	addFunctionKey		Check function at end of Menu track.
		IMPORT	addIconObj		Add a new icon to the window.
		IMPORT	addIconRgn		Add the	extended icon's area to region.
		IMPORT	addRgn
		IMPORT	blinkOne
		IMPORT	ckIfWind			;Is there enough memory for a window?
		IMPORT	cutOutIcon		Remove the extended icon's record.
		IMPORT	doClose			Close the top most window.
		IMPORT	doCreate		pathname = path	of folder to create.
		IMPORT	drawDeskIcon		Draw the icon (Trash) where Trash was.
		IMPORT	drawIcon2
		IMPORT	dupDevice2		Check if the new name is taken.
		IMPORT	erase			Ask ProDOS to erase disk.
		IMPORT	FSysID
		IMPORT	freeRectRgn
		IMPORT	freeTempRgn
		IMPORT	getName			pathname = new name.
		IMPORT	getRectRgn		Allocate rectRgn and tempRgn.
		IMPORT	matchImage		Find offset to Trash icon image.
		IMPORT	menuHelp		Set new	menu help state.
		IMPORT	newDataSize3		Compute	new data size for window.
		IMPORT	offsetRgn		rectRgn	= old rectRgn +	new rectRgn.
		IMPORT	openAll			Open all the selected icons.
		IMPORT	pushTask		;pass pointer to Task record.
		IMPORT	redrawList		Redraw hole left by deleted icons.
		IMPORT	selectWind2		;Bring window to top and exit
		IMPORT	setItems		Update number of icons in window info bar.
		IMPORT	toDesktop		Switch to desktop. 
		IMPORT	wipeIcon		Cut icon out of	icon list add to redraw.
		IMPORT	zoomRect2
		import	zoomRectNoSound
		IMPORT	INFO_TYPE
		IMPORT	read_len
		IMPORT	read_size
		IMPORT	read_buff
		IMPORT	newDataSize2
		IMPORT	open_num
		IMPORT	write_num
		IMPORT	write_buff
		IMPORT	write_len
		IMPORT	WRITE_LIST
		IMPORT	file_type
		
		IMPORT	WalkGoto
		IMPORT	officon
		IMPORT	toCall			;in Util.aii
		IMPORT	FileEntry
		IMPORT	MiscEntry
		IMPORT	NewDialog
		IMPORT	addDataName
		IMPORT	allocate
		IMPORT	allocate2
		IMPORT	arrowCursor
		IMPORT	bigError1
		IMPORT	boxRename
		IMPORT	buildPath
		IMPORT	buildPath3
		IMPORT	buildRectList
		IMPORT	buildRects
		IMPORT	checkRectHit
		IMPORT	ckDataWrite
		IMPORT	ckMemory
		IMPORT	ckVolume		
		IMPORT	clearDisk
		IMPORT	clonePath
		IMPORT	close_file
		IMPORT	cur2windT
		IMPORT	dayOfWeek
		IMPORT	derefHand
		IMPORT	deselectall
		IMPORT	doGetFileInfo
		IMPORT	doRead
		IMPORT	doSetPrefix
		IMPORT	doWrite
		IMPORT	endDraw	
		IMPORT	findLastName
		IMPORT	findSelect
		IMPORT	getExtName
		IMPORT	getFrontWind
		IMPORT	getHeadIcon
		IMPORT	getIconPtr
		IMPORT	getIconRect
		IMPORT	getNextWind
		IMPORT	getRootName
		IMPORT	getWindID
		IMPORT	getWindID2
		IMPORT	getWindPath
		IMPORT	getWoffset
		IMPORT	geticNamePtr
		IMPORT	geticNamePtr2
		IMPORT	getwRefCon
		IMPORT	getwRefCon2
		IMPORT	hitIconName
		IMPORT	ifDesk
		IMPORT	killkids2
		IMPORT	killkids3
		IMPORT	lenError
		IMPORT	lockic
		IMPORT	makeField
		IMPORT	makeIcRoot
		IMPORT	markClosed
		IMPORT	markOpen
		IMPORT	matchIcName
		IMPORT	newDataSize
		IMPORT	noRename
		IMPORT	offIcon2
		IMPORT	onIcon
		IMPORT	open_file
		IMPORT	path2ticon
		IMPORT	pullFields
		IMPORT	pushicName
		IMPORT	pushirect1
		IMPORT	pushirect2
		IMPORT	pushrect
		IMPORT	pushwork
		IMPORT	pushyrat
		IMPORT	pushzpage
		IMPORT	removeClone
		IMPORT	resetCTime
		IMPORT	restoreTemp
		IMPORT	saveTemp
		IMPORT	selectWind
		IMPORT	setInfo
		IMPORT	setInfo2
		IMPORT	setOrgnMask	
		IMPORT	setSmallRect
		IMPORT	setic
		IMPORT	seticBlk
		IMPORT	settemp
		IMPORT	sort
		IMPORT	startDraw
		IMPORT	startDraw2
		IMPORT	startHash
		IMPORT	toDeskPort
		IMPORT	trashDisk
		IMPORT	unlockBlk
		IMPORT	unlockic
		IMPORT	updateKs
		IMPORT	walkBack
		IMPORT	walkOfLife
		IMPORT	walkOfLife2
		IMPORT	walkOfLife3
		IMPORT	walkWindow
		IMPORT	walkback2
		IMPORT	watchCursor
		IMPORT	wind2top
		IMPORT	windRefCon
		IMPORT	windSpot

;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

;		ENTRY	menudata	
;		ENTRY	menuList
;		ENTRY	accmenu
;		ENTRY	filemenu
;		ENTRY	editmenu
;		ENTRY	viewmenu
;		ENTRY	volmenu
;		ENTRY	specmenu

		ENTRY	redrawText
		ENTRY	newView

;		ENTRY	menudata

*===============================================*
*	Local Static Data for menus		*		
*===============================================*

LocalData	PROC

		ENTRY	DeskIconState
DeskIconState	DC.W	0

		EXPORT	DeskWindState
DeskWindState	DC.W	0

		ENTRY	LastIconState
LastIconState	DC.W	0

		ENTRY	LastWindState
LastWindState	DC.W	0

		ENTRY	MenuChange
MenuChange	DC.W	0

		ENDP


; Initialize the Finder's menus
;
; IN: nothing
;
; OUT: nothing
;.....................................................................


MenuInit	PROC	EXPORT

		IMPORT	colorMenuFlag
		IMPORT	screen
		IMPORT	colorMenuDef
		
;		pha
;		pha
;		_GetMenuBar			;get the current system menu bar
;
;		pha
;		pha
;		pea	2			;refIsResource
;		pushlong #1			;ID of menuBar resource
;		pushlong #0			;NIL for system menu bar
;		_NewMenuBar2
;		
;		lda	1,s
;		sta	menuBarHandle
;		lda	3,s
;		sta	menuBarHandle+2
;		_SetSysBar
;		pushlong #0
;		_SetMenuBar
;		_DisposeHandle			;dispose of the old system menu bar
*** 10-Mar-92 DAL -- use CString-based menu strings
;
; Create and insert all our menus, right to left
; (rCString 9 down to 2)
;
		lda #9
@make1menu	pha

		pha
		pha			;space for NewMenu

		pha
		pha			;space for LoadResource
		pea $801d		;rCString
		pei <zero
		pha			;ID
		_LoadResource
		phd
		tsc
		tcd
		ldy #2
		lda [3],y
		tax
		lda [3]
		sta <3
		stx <5
		pld

		_NewMenu
		pei <zero		;at beginning
		_InsertMenu

		pla
		dec a
		cmp #2
		bcs @make1menu
*** end 10-Mar-92

		pha
		pha
		pea	idColorMenu
		_GetMHandle
		pulllong <deref
		
		lda	[<deref]
		tax
		ldy	#2
		lda	[<deref],y
		sta	<deref+2
		stx	<deref
		
		ldy	#6
		lda	#colorMenuDef
		sta	[<deref],y
		iny
		iny
		lda	#colorMenuDef>>16
		sta	[<deref],y

;
; this is also presented in the data.aii file
;
cellV		equ	12			; height of a cell
cellH		equ	40			; width of a cell
gapV		equ	2			; height of gap between cells
gapH		equ	5			; width of gap between cells

		pea	5*gapH+3*cellH		;width
		pea	7*gapV+5*cellV		;height
		pea	idColorMenu		;calc the color menu
		_CalcMenuSize
		
		pea	idAppleMenu
		_FixAppleMenu

*** added 24-Jul-91 DAL
		pha
		_GetNumNDAs
		pla
		bne @someNDAs
		pea $fffe
		_DeleteMItem
@someNDAs
***

		pha
		_FixMenuBar
		pla
		sta	screen+y1		; save height of menu bar

		pei <zero			; auto calc width
		pei <zero			; auto calc height
		pea	idAppleMenu		; pass ID of Apple menu
		_CalcMenuSize

		_DrawMenubar			; draw the system menu bar

		stz	LastIconState		; init local data
		stz	LastWindState
		stz	DeskWindState
		stz	DeskIconState
		rts
		
;		EXPORT menuBarHandle
;menuBarHandle	dc.L	0

		ENDP

; Do the color menus
;.....................................................................

ColorMenus	PROCNAME

		IMPORT	SelectionIsChanging
		
newColor	equ	work
colorMask	equ	newColor+2
		
		sec
		sbc	#idColor_0
		and	#$000F
		xba
		sta	<newColor
		
		lda	<modifiers		;Save state of function key.
		and	#$1000
		tay

		ldx	#_ICFORECLR
		lda	prefer			Key down to select back	or foreground?
		and	#PREF_COLOR
		bne	ok2

		tya				Flip the key state.
		eor	#$1000
		tay

ok2		tya
		and	#$1000
		bne	ok1
		ldx	#_ICBACKCLR
		asl	<newColor
		asl	<newColor
		asl	<newColor
		asl	<newColor
ok1		stx	<colorMask

		bra	aroundFRQ
;
; At this point, we need Y=new color value and X=color mask value
;
		export frqColorEntry
frqColorEntry	sty	<newColor
		stx	<colorMask

aroundFRQ	jsl	SelectionIsChanging
		jsr	NoRename		; JAM 5/18/89 to fix title inversion prob.

;
; Set the port and origin AFTER the norename call.  This fix brought to you by Andy, about 12 hours
; before 6.0 GM, 2/9/92.
;
		jsr	startDraw		Switch to proper port and origin.


		lda	#colorIcons		Routine	to call	for every selected icon.
		jsr	findSelect
		brl	endDraw			Put origin back.

*===============================================*
colorIcons
		ldy	#icFlag
		lda	[<ic],y
		and	<colorMask
		ora	<newColor
		sta	[<ic],y
		
		brl	blinkOne
	
		ENDP


; Do the new about window
;.....................................................................

AboutMenu	PROC export
		IMPORT	insertItemRef
		IMPORT	aboutWindowPtr
		IMPORT	AboutWindow
		IMPORT	setSmallRect
		IMPORT	bigRect
		IMPORT	zoomRect
		IMPORT	aboutBlk
		IMPORT	addWindow2Menu
		IMPORT	pickAWindow
		IMPORT	GetBigRect

		lda	aboutWindowPtr+1
		beq	@notOpen
		brl	@alreadyOpen

@notOpen	jsl	AboutWindow		; new About window

		lda	aboutWindowPtr+1
		bne	@open
		rts
		
@open		jsr	setSmallRect
		
		pushlong bigRect
		pushlong bigRect+4

		lda	aboutWindowPtr
		ldx	aboutWindowPtr+2
		jsr	GetBigRect
				
		lda	#1		;zoom out
		jsr	ZoomRect
		
		pulllong bigRect+4
		pulllong bigRect

		pushlong aboutWindowPtr
		_ShowWindow
		
		lda	#aboutBlk
		sta	wind_ref		
		clc
		adc	#windMenuText
		sta	insertItemRef+10
		lda	#aboutBlk>>16
		sta	wind_ref+2
		adc	<zero
		sta	insertItemRef+12		

		jmp	addWindow2Menu		;add the trash to the windows menu

;
; fix the windows menu to put the about box in it
;
@alreadyOpen	pushlong aboutWindowPtr
		_SelectWindow
		rts
		ENDP

; Do the help window
;.....................................................................

HelpMenu	PROC
		IMPORT	insertItemRef
		IMPORT	helpWindowPtr
		IMPORT	helpWindow
		IMPORT	setSmallRect
		IMPORT	bigRect
		IMPORT	zoomRect
		IMPORT	helpBlk
		IMPORT	addWindow2Menu

		lda	helpWindowPtr+1
		beq	@notOpen
		brl	@alreadyOpen

@notOpen	jsl	helpWindow		; do the help window

		lda	helpWindowPtr+1
		bne	@open
		rts
		
@open		jsr	setSmallRect
		
		pushlong bigRect
		pushlong bigRect+4

		pha
		pha
		pushlong helpWindowPtr
		_GetStructRgn
		phd
		tsc
		tcd
		
		lda	[3]		;deref the handle to the region
		tax
		ldy	#2
		lda	[3],y
		sta	3+2
		stx	3

		ldy	#6+2		;no, don't fix this, it's not supposed to copy the first
@loop		lda	[3],y		;two bytes of the structure since the bounding rect of
		sta	bigRect-2,y	;the struct region is at offset +2
		dey			;andy and DAL, 1/7/91
		dey
		bne	@loop
		
		pld
		pla
		pla
		
		lda	#1		;zoom out
		jsr	ZoomRect
		
		pulllong bigRect+4
		pulllong bigRect

		pushlong helpWindowPtr
		_ShowWindow

		lda	#helpBlk
		sta	wind_ref		
		clc
		adc	#windMenuText
		sta	insertItemRef+10
		lda	#helpBlk>>16
		sta	wind_ref+2
		adc	<zero
		sta	insertItemRef+12		

		jmp	addWindow2Menu		;add the name to the windows menu

;
; fix the windows menu to put the help window in it
;
@alreadyOpen	pushlong helpWindowPtr
		_SelectWindow
		rts
		ENDP


; Do the print menu
;.....................................................................


PrintMenu	PROC

		IMPORT	OpenMenu

		jsr	noRename		Remove any rename field.

		inc	Printing		Set print flag.
		jsr	OpenMenu		Act like Open was selected.
		stz	Printing		Clear Print flag.

exit12		rts

		ENDP


; Do the empty trash menu
;.....................................................................


EmptyTrashMenu	PROCNAME EXPORT			; can be call from other files

		IMPORT	WStringCopy
		IMPORT	putBack2
		IMPORT	MenschTemp
		IMPORT	ProDOSErr
		IMPORT	ClearWindDirty

		lda	>TrashBlk+1		Is there anything in the Trash?
		bne	ok
		brl	exit			If not,	just quit.

ok		pea	$8043
		_SysBeep2

		jsr	noRename		Remove any rename field.

		pei	<TaskData+2		Save.
		pei	<taskData
		pei	<windBlk+2
		pei	<windBlk
		pei	<curWind+2
		pei	<curWind
		pei	<icHand+2
		pei	<icHand
		pei	<rectRgn+2
		pei	<rectRgn
		pei	<tempRgn+2
		pei	<tempRgn

		lda	<TrashWind		Switch to the Trash plane.
		sta	<curWind
		lda	<TrashWind+2
		sta	<curWind+2

		jsr	getwRefCon		Get the	window's info block.

		stz	<tempRgn+1		Mark as	free cause I saved them.
		stz	<rectRgn+1
		jsr	getRectRgn		Allocate regions.
		
; Mensch 5/18/89 (Fixing BRC #48301)
		lda	<zero
		sta	>MenschTemp
		
		lda	#hackEmpty		; (ORIG) Delete each icon in Trash.
		jsr	walkOfLife3		; (ORIG)
		
		bcs	@RealError
		lda	>MenschTemp
;;;		and	#$7FFF
		asl a
		lsr a
		cmp	#$50
		beq	@BusyError
		clc
		bra	@RealError
@BusyError
;;;		lda	#$50			;19-Feb-93 JCM - redundant - Acc = $50 from above
;;;		sec				;19-Feb-93 JCM - carry is set on cmp #$50 as well
		jsr	ProDOSErr
		sec
@RealError
; end Mensch 5/18/89 (BRC #48301)
; NOTE:  two lines marked (ORIG) above would go here if rest of Mensch fix were not here

		stz	cancelEmpty
		bcc	ok10
		inc	cancelEmpty		Tells me that the empty	was cancelled.

ok10		lda	#dumpIcon		Cut all	the deleted icons from list.
		jsr	walkOfLife3

		jsr	freeRectRgn

		jsr	startDraw		Erase the content region.

		stz	<dRect+y1
		stz	<dRect+x1
		lda	#200
		sta	<dRect+y2
		lda	#640
		sta	<dRect+x2

		jsr	pushrect
		_EraseRect

		jsr	pushrect
		_InvalRect

		jsr	endDraw

; --- Put Back every icon in Trash if empty was	cancelled --------------------

		lda	cancelEmpty
		beq	ok11

		lda	<TrashWind		Switch to the Trash plane.
		sta	<curWind
		lda	<TrashWind+2
		sta	<curWind+2

		lda	#justSelect
		jsr	walkOfLife

		lda	ExtCopy			Save.
		pha
		pei	<filetype
		jsr	putBack2
		pla
		sta	<filetype
		pla				Restore.
		sta	ExtCopy

ok11		lda	prefer
		and	#PREF_SHOWDISK
		bne	@updateAllWinds

		ldy	#windView		update info bars on trash and everything
		lda	[<windBlk],y		else.
		cmp	#viewByName
		bcs	skip10

@updateAllWinds	jsr	clearWindDirty
		jsr	setItems		New number of items.
		pei	<TrashWind+2
		pei	<TrashWind
		_DrawInfoBar

skip10		stz	C1_PathName		Update info bars for every window.
		jsr	updateKs		Update info bars for all window	in path.

		pla
		sta	<tempRgn
		pla
		sta	<tempRgn+2
		pla
		sta	<rectRgn
		pla
		sta	<rectRgn+2
		pla
		sta	<icHand
		pla
		sta	<icHand+2
		pla
		sta	<curWind
		pla
		sta	<curWind+2
		pla
		sta	<windBlk
		pla
		sta	<windBlk+2
		pla
		sta	<TaskData
		pla
		sta	<TaskData+2
		jsr	getwRefCon
exit		rts

;----------------------------------------------
justSelect	ldy	#icFlag
		lda	[<ic],y
		ora	#ICSELECTED
		sta	[<ic],y
		clc
		rts

;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
;	   Hack	Empty Trash
;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

hackEmpty	
		ldy	#icFlag			Select icon.
		lda	[<ic],y
		ora	#ICSELECTED
		sta	[<ic],y


		lda	<ic
		clc
		adc	#icOwner
		ldx	<ic+2
		bcc	@nr
		inx
@nr		phx
		pha
		pushlong #c1_pathname
		jsl	WStringCopy

		pushZLong <icHand		;Pass handle of icon to delete.
		pushlong #c1_pathname		;Pathname to extended icons
		pea	EmptyFlag
		ldx	#xDeleteFiles
		jsl	FileEntry

		ldy	#icFlag			Deselect icon.
		lda	[<ic],y
		and	#_ICSELECTED
		sta	[<ic],y
		rts				Carry flag set from xDeleteFiles.

; 
; Remove all deleted icons.
;
dumpIcon	ldy	#icFlag			Is the icon's delete flag set?
		lda	[<ic],y
		and	#ICDELETE
		beq	exit65			If not,	don't delete.

		ldy	#icFType		Is this	a folder?
		lda	[<ic],y
		cmp	#TypeFolder
		bne	skip66

		jsr	killKids2		Delete folder's windows/extended icons

skip66		jsr	wipeIcon		Cut icon out of	icon list add to redraw.
exit65		clc				Continue flag.
		rts

		ENDP
		

; Do the new folder menu
;.....................................................................

NewFolderMenu	PROCNAME	

		IMPORT	info_store
		IMPORT	OptionList
		IMPORT	OptionBuff
		IMPORT	GetTopLeft
		IMPORT	NewUntitled
		IMPORT	GetFileInfo
		IMPORT	GetPrivileges
		IMPORT	LenError		; From GSOS.aii  Mensch 5/15/89 fix
		IMPORT	startHash
		IMPORT	posFlag
		IMPORT	windSpot
		IMPORT	doAlertWindow
		IMPORT	FolderColor
		IMPORT	setInfo
		IMPORT	SpotHashOn
		
		jsr	noRename		;remove any rename field

		lda	#$000F			;directory file type
		sta	file_type
lop20
		jsr	deselectall		;deselect icons in the current plane

		lda	#DirWindID		;directory window only.
		jsr	getFrontWind		;wind = pointer to front most window

		lda	<wind			;make front window the current plane
		sta	<curWind
		lda	<wind+2
		sta	<curWind+2

		jsr	getwRefCon		;windBlk = front window's info block
		jsr	getWindPath		;C1_PathName = front window's pathname

		PushLong #strgUntitled
		PushLong #C1_TempPath		;C1_TempPath <-- 'UNTITLED'
		jsl	PtoWString	
		PushLong #C1_TempPath
		PushLong #C1_PathName		;C1_PathName <-- C1_PathName + 'UNTITLED'
		jsl	PathAddName
		bcc	lop23
		jsr	lenError
		bra	exit22

lop23
		lda	#$000D			;directory storage type
		sta	storage_type

		jsr	doCreate		;C1_PathName = path of folder to create.

		ldy	#$0001			;set back to seedling storage type
		sty	storage_type

		bcc	ok20			;Was there an error on create?
		cpx	#2			;Was a Try Again returned after error?
		beq	lop23			;If yes, try to create the folder again
next20
		cmp	#$0047			; duplicate pathname?
		bne	exit22			; some unhandled error, just abort
		jsr	NewUntitled		; if duplicate name, try another name
		bcc	lop23			; try again

		lda	#rasNoNames
		jsl	doAlertWindow		; 'There are no more "UNTITLED" names...'
		sec
exit22		rts


; --- Folder created, make icon	------------------------------

ok20
		jsr 	startHash		; JAM 5/21/89
		
		stz	posFlag			; don't use position buffer
		jsr	WindSpot
		stz	spotHashOn

		lda	#$000F
		sta	<filetype

		lda	FolderColor		;Solid white background, black outline.
		ora	#icSelected
		sta	ticonobj+icFlag

		PushLong #C1_PathName		; pass ptr to pathname/Untitled
		PushLong #info_access		; pass ptr to access word
		lda <zero
		pha
		pha				; skip file type
		pha
		pha				; skip aux type
		PushLong #info_store		; skip storage type
		PushLong #info_cdate		; pass ptr to create date
		PushLong #info_mdate		; pass ptr to modify date
		pha
		pha				; skip byte count
		pha
		pha				; skip block count
		PushLong #FileSysID		; pass ptr to file system ID (need OptionList)
		jsl	GetFileInfo

		stz	ticonobj+icFBlocks
		stz	ticonobj+icFBlocks+2
		stz	ticonobj+icFBytes
		stz	ticonobj+icFBytes+2
		
		ldy	#6
dateLoop	lda	info_cdate,y
		sta	ticonobj+icCDate,y
		lda	info_mdate,y		; changed 06/29/88 DJB
		sta	ticonobj+icMDate,y
		dey
		dey
		bpl	dateLoop
				
		stz	ticonobj+icFileInfo	; added 05/31/88 DJB
		stz	auxtype

		lda	<zero
		ldx	info_store
		cpx	#5
		bne	@standard
		lda	#$8000
@standard	sta	ticonObj+icForked

		lda	info_access
		sta	ticonobj+icLocalAccess
		and	#$0001			; check read enabled
		beq	set1			; not set !
		lda	#ICREADABLE>>16		; set our bit
set1		sta	ticonobj+icFlag+2

		lda	>OptionList-2
		tax
@loop		lda	>OptionList-2,x
		sta	ticonobj+icOptionList,x
		dex
		dex
		bpl	@loop
		
		lda	ticonobj+icFST
		cmp	#$0d
		bne	@notNetwork

		lda	ticonobj+icNetworkAccess
		and	#$000F			; is user icon's owner (on network)
		tsb	ticonobj+icFlag+2
		
		lda	#ICASOWNER		; force "owner" folder icon
		sta	auxtype
		tsb	ticonobj+icFlag+2
		
		lda	#ICNETWORK>>16
		tsb	ticonobj+icFlag+2
		bra	@wasNetwork

@notNetwork	stz	ticonobj+icNetworkAccess
		stz	ticonobj+icNetworkAccess+2
@wasNetwork

		jsr	findLastName		
		lda	#lastName
		ldx	#lastName>>16
		ldy	<zero			; add to head of icon list
		jsr	addIconObj		; allocate and assign an ICONOBJ
		bcc	@addOK
		rts				;we're hosed if they got a memory error inside addIconObj
			
@addOK		jsr	lockic

		ldy	#windDiskIc		;move our root icon in here
		lda	[<windBlk],y
		ldy	#icDisk
		sta	[<ic],y
		ldy	#windDiskIc+2
		lda	[<windBlk],y
		ldy	#icDisk+2
		sta	[<ic],y

		ldy	#windView
		lda	[<windBlk],y
		cmp	#viewByName
		bcc	ok25

		PushZLong <ic
		PushZLong <icHand
		jsr	redrawText		; sort and draw view
		PullLong <icHand
		PullLong <ic

		jsr	makeField		; give icon an edit field
		bra	exit21

ok25		jsr	startDraw		; draw new icon
		jsr	drawIcon2
		jsr	makeField		; give icon an edit field
		jsr	endDraw

exit21		jsr	unlockic
		jsr	setItems		; update number of icons in window info bar
		jsr	newDataSize3		; compute new data size for window
		brl	updateKs		; update window info bars

		ENDP


; Do the Open menu
;.....................................................................


OpenMenu	PROC

		jsr	noRename		Remove any rename field.

		stz	nameHit			Clear hit on title flag	to stop	rename.
		
		pei	<curWind+2
		pei	<curWind
		
		jsr	openAll			;open all the selected icons and exit

		plx
		ply

		lda	<modifiers
		and	#$0800
		beq	@done	
			
		stx	<taskData
		sty	<taskData+2

		jsr	doClose
@done		rts
		ENDP


; Do the Close menu
;.....................................................................


CloseMenu	PROC	 export

		IMPORT	closeAllMenu

		jsr	noRename		Remove any rename field.

		lda	<modifiers
		and	#$0800
		beq	close1Window	
		brl	closeAllMenu		;if it's OPTION close, close everything


;
; close a single window -- this routine is called in a loop by CloseAllMenu
;
		EXPORT	close1Window
close1Window	
		lda	#$FFFF			Any visible window.
		jsr	getFrontWind		wind = pointer to top window.
		beq	exit500			????Has	to be a	window up?????

		lda	<wind			Pass pointer to	top window in TaskData.
		sta	<TaskData
		lda	<wind+2
		sta	<TaskData+2

		jsr	doClose			Close the top most window.

exit500		rts				BEQ if no window, BNE if window	closed.

		ENDP


; Do the Icon Info menu
;.....................................................................


IconInfoMenu	PROC

;
; just in case, lets turn off the rename field when we bring this window up
;
		jsr noRename

		stz	infoWindCount		;added 05/18/88 DJB

		jsr	noRename		;Remove any rename field.

		lda	#makeInfo		;Rountine to create info window.
		brl	findSelect		;Create a 'Get Info' window for on icons.

; Create a 'Get Info' window
;
; IN: ic = ptr to selected icon
;.....................................................................

makeInfo

;
; --- Bring info window	to the top if icon already has one -----------------
;
		ldy	#icInfo+1		;Does the icon have an info window?
		lda	[<ic],y
		beq	ok51

		iny				;Pass pointer to window to select
		lda	[<ic],y
		tax
		dey
		dey
		lda	[<ic],y
		brl	selectWind2		;Bring window to top and exit

;
; --- Create a New Information Window ---
;
ok51
		IMPORT	NewInfoWindow

		jsr	ckIfWind		; enough memory for a window?
		bcs	error50			; no

		jsr	buildPath3		;C1_PathName = icon's full pathname.
		bcs	exit50			;Pathname error!

		PushLong <icHand
		PushLong #C1_PathName
		jsl	NewInfoWindow
		bcs	error50
		inc	myWindCount		;Increment my window counter
exit50		rts
error50		inc	abortFind		;Abort FindSelect
		rts
		ENDP

*===============================================*
*	Do the Duplicate Menu			*		
*===============================================*

DuplicateMenu	PROC

		IMPORT	OptionBuff
		IMPORT	IsFSTUpperCase
		IMPORT	GetVolumeInfo
		IMPORT	GetDeviceName
		IMPORT	doAlertWindow

		lda	#mustBeSelect		Make sure there	is at least one
		jsr	walkOfLife		selected icon in the list.
		bcs	ok61
		rts

ok61		jsr	EmptyTrashMenu

		jsr	noRename		Remove any rename field.

;
; Duplicate each selected icon
;
		stz	ExtCopy			Create normal icons.

		lda	<curWind		Pass pointer to	window.
		ldx	<curWind+2
		jsr	getWindID
		cmp	#DirWindID		Must be	a directory window.
		beq	@ok

;		lda	#rasCantDup
;		jsl	doAlertWindow
		rts				;Icons in the Trash and	desktop	cannt...
 
				      		;windBlk = pointer to window's info block.
@ok		jsr	getHeadIcon
		phx				Pass handle to first icon in list.
		pha
		jsr	getWindPath		C1_PathName = curWind's pathname.

;
; Duplicate the file by hook or by crook
;
		pea	C1_PathName>>16		Pass pointer to	destination pathname.
		pea	C1_PathName
		pea	makeDup>>16
		pea	makeDup
		ldx	#xDupFiles
		jsl	FileEntry

;
; --- Finish drawing --------------------------------------
;
		ldy	#windView
		lda	[<windBlk],y
		cmp	#viewByName
		blt	@byIcon

		jsr	redrawText

@byIcon		jsr	setItems		New number of items.
		jsr	newDataSize3		Compute	new data size for window.
		brl	updateKs		Update window info bars.

; Make a duplicate icon
;.....................................................................

makeDup
		IMPORT	PStrToUpper
		IMPORT	finderDPage

saveDbank	equ	1
saveDpage	equ	saveDbank+1
returnAddr	equ	saveDpage+2
newName		equ	returnAddr+3		;Pointer to new file's name.
duppedIc	equ	newName+4		;Handle of icon that was duplicated.

		phd				;Save direct page.
		phb				;Save data bank.
 
		phk				;Switch to my data bank.
		plb
		lda	finderDPage		;Switch to my direct page.
		tcd

		jsr	getwRefCon		;wind = curWind, windBlk = info block.
 
		lda	duppedIc,s
		sta	<icHand
		lda	duppedIc+2,s
		sta	<icHand+2
		jsr	setic			;ic = (icHand)

		ldy	#icFType		;Same file type.
		lda	[<ic],y
		sta	<filetype

		ldy	#icKind			;same kind
		lda	[<ic],y
		sta	ticonobj+icKind
		iny
		iny
		lda	[<ic],y
		sta	ticonobj+icKind+2
		
		ldy	#icLocalAccess
		lda	[<ic],y
		sta	ticonobj+icLocalAccess
		
		ldy	#icForked
		lda	[<ic],y
		sta	ticonobj+icForked
		
		ldy	#icOptionList		
		lda	[<ic],y
		tax
		clc
		adc	#icOptionList		;access is copied with the icon
		tay
@loop		lda	[<ic],y
		sta	ticonobj+icOptionList,x
		dey
		dey
		dex
		dex
		bpl	@loop

		ldy	#icy			Same position, offset to the right.
		lda	[<ic],y
		clc
		adc	#11			; was 0
		sta	<yrat
		iny
		iny
		lda	[<ic],y
		clc
		adc	#48			; was 106
		sta	<xrat

		ldy	#icFlag			Same color.
		lda	[<ic],y
		and	#$FF80			(Not selected.)
		sta	ticonobj+icFlag

		ldy	#icFlag+2		;added DJB 12/06/88
		lda	[<ic],y
		and	#(ICREADABLE+ICNETWORK)>>16
		ora	#ICASOWNER		; JAM 5/21/89 (dups should be owned by user)
		sta	ticonobj+icFlag+2

		ldy	#icFBlocks		Give duplicate icon the	same sizes
lop60		lda	[<ic],y			create and mod date and	time as	the
		sta	ticonobj,y		original.
		iny
		iny
		cpy	#icMDate+8
		bcc	lop60

		ldy	#icFileInfo		;Same FileInfo (added 05/29/88 DJB)
		lda	[<ic],y
		sta	auxtype
		ldx	<fileType
		cpx	#$0F			; is this the system folder kludge ?
		bne	upper
		cmp	#2
		bne	upper
		stz	auxtype			; yes so make it zero (only one allowed)
		
upper		lda	newName+2,s		;Pass pointer to icon's name.
		tax
		lda	newName,s
		ldy	<zero			;add to head of icon list
		jsr	addIconObj		;Create a new icon based on the old one
		bcs	exit60			;hosed?  Us?  Nahh...

;
; --- Draw the new icon	--------------------------------------------------
;
		jsr	lockic
		ldy	#windDiskIc		;move our root icon in here
		lda	[<windBlk],y
		ldy	#icDisk
		sta	[<ic],y
		
		ldy	#windDiskIc+2
		lda	[<windBlk],y
		ldy	#icDisk+2
		sta	[<ic],y
		jsr	unlockic

		ldy	#windView
		lda	[<windBlk],y
		cmp	#viewByName
		bcs	exit60			Don't draw now if view by text.

		jsr	lockic			Lock the new icon.
		jsr	startDraw
		jsr	drawIcon2		Draw the icon in its new state.
		jsr	endDraw
		jsr	unlockic		Leave new icon unlocked.

exit60		plb				Restore	original data bank.
		pld				Restore	original direct	page.
		rtl

;
; Find first selected icon
; 
mustBeSelect	ldy	#icFlag
		lda	[<ic],y
		and	#ICSELECTED
		bne	@gotIt
		clc				;This one not selected, keep looking.
		rts
@gotIt		sec				;Selected icon found, stop looking.
		rts

		ENDP


; Do the Put Away menu
;.....................................................................

PutAwayMenu	PROCNAME
		
		IMPORT	strSystem
		IMPORT	WStrCompare
		IMPORT	PStringCompare
		IMPORT	C1_SystemName
		IMPORT	C1_BootName
		IMPORT	moveIconObj
		IMPORT	WStringCopy
		IMPORT	ClearDisk
		IMPORT	Eject80
		IMPORT	WipeIcon
		import	SelectionIsChanging
		import	writeRoot
		import	getSmallRect
		import	lockic
		import	unlockic
		import	zoomrect
		import	smallrect
		import	bigrect
		import	ZoomDiskToTrash
		import	setInfo
		import	clearWindDirty
		import	getWrefCon2
		import	getwindpath
		import	findowneric
		import	CheckOpenFiles

		jsl	SelectionIsChanging	;14-Jul-91 DAL

		jsr	noRename		;Remove any rename field

		ENTRY	putBack2
		
putBack2	lda	#putIconBack
		jsr	findSelect		;Call for every selected icon

		lda	#DirWindID		;Type of windows to accept
		ldx	#redrawDirty		;redraw all the dirty windows
		jsr	walkWindow

;
; Redraw Info bar if put back from Trash
;
		jsr	ifDesk
		beq	exit70

		lda	<TrashWind		Pass pointer of	window to update.
		ldx	<TrashWind+2
		jsr	setInfo2		Update Trash window's information bar.

		lda	<TrashWind		08 Aug DanO pass pointer to window to update
		ldx	<TrashWind+2
		jsr	newDataSize		update trash window's scroll bars

		ldy	#windView		If viewed by icons, then done.
		lda	[<windBlk],y
		cmp	#viewByName
		bcc	exit70

		jsr	redrawText		Sort and draw view.
		jsr	newDataSize2
		
		jsr	clearWindDirty
		jsr	setInfo
exit70		rts


; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = =
;	   Routine to move extended icons back home.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = =
;
;   IN:	   ic =	pointer	to locked selected icon.
;	   curWind = plane that	icon is	in.
;
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = =
putIconBack
		IMPORT	EjectNonRemovable
		
		ldy	#icFtype
		lda	[<ic],y
		bpl	PutIconBack2
		
		ldx	EjectNonRemovable
		beq	@noEject

		ldy	#icFtype		;see if it's a hard drive partition
		lda	[<ic],y
		cmp	#TypeHardPart
		beq	@allowPutAway

@noEject	ldy	#icDevInfo		;andy, 12/4/90, after borrowing jack's
		lda	[<ic],y			;syquest removable
		and	#$0004			;mask ejectable bit
		beq	@noPutAway			
@allowPutAway

;
; --- Save the pathname	of every open directory	on disk	----------------------
;
		jsr	writeRoot		Save the pathnames of all open windows.

;
; only unmount the disk if it didn't have any open files on it
;
		lda	<ic
		clc
		adc	#icName
		tax
		lda	<ic+2
		adc	<zero
		jsl	CheckOpenFiles
		bcc	@noOpenFiles

		ldy	#icFtype		;see if it's a hard drive partition
		lda	[<ic],y
		cmp	#TypeHardPart
		beq	@noejectipoo

		jsr	eject80
		
@noejectipoo	clc
		rts

@noOpenFiles	jsr	clearDisk		Remove disk's every window and ext icon.
		jsr	eject80

		jsr	ZoomDiskToTrash
		
		jsr	getRectRgn		;Allocate regions.
		jsr	WipeIcon		;Remove the extended icon's record.
		jsr	redrawList		;Redraw the area where the icon was.

@noPutAway	clc
		rts

;
; put a regular icon back
;
		EXPORT	PutIconBack2
PutIconBack2	ldy	#icFlag			Is this	icon an	extended icon?
		lda	[<ic],y
		and	#ICEXTENDED
		bne	ok70			Only extended icons can	be put back.
		clc
		rts

; --- Find window that icon belongs to -----------------------------------

ok70		lda	<ic
		clc
		adc	#icOwner
		ldx	<ic+2
		bcc	@nr
		inx
@nr		phx
		pha
		PushLong #C1_TempPath
		jsl	WStringCopy

		lda	#DirWindID		Type of	windows	to accept.
		ldx	#matchWindName		Match windows' pathname to C1_TempPath.
		jsr	walkWindow
		bcs	@ok			Was an owner window found?
		brl	orphan70
		
; --- Add the icon to the window --------------------------------------
;
;  wind	= owner	window.
;  windBlk = owner window's info block.
;
@ok
		pei	<curWind+2		;Save current plane.
		pei	<curWind
		pei	<icHand+2		;Save handle of this icon.
		pei	<icHand

		lda	<wind			;Make owner window the current plane.
		sta	<curWind
		lda	<wind+2
		sta	<curWind+2

		stz	ExtCopy			;This will not be an extended icon.

		ldy	#icOldPosY		;Same position as before.
		lda	[<ic],y
		sta	<yrat
		iny
		iny
		lda	[<ic],y
		sta	<xrat

		ldy	#windFST		;manually fudge the FST value to be whatever the destination window
		lda	[<windBlk],y		;is...
		sta	ticonobj+icFST

		jsr	pullFields		;Pull common icon fields to be used by the new icon

;
; see if it's the system folder we're puttin' back
;
		lda	<filetype
		cmp	#$0f
		bne	@notSystem
		
		jsr	geticNamePtr		;A and X = pointer to icon's name.
		pha
		pushZLong <temp
		pushlong #strSystem
		jsl	PStringCompare
		pla
		beq	@notSystem

		pha				;space for result
		PushLong #C1_TempPath
		PushLong #C1_BootName
		jsl	WStrCompare		;is this the boot disk ?
		pla
		beq	@notSYSTEM		;no
		
		lda	#$0002			;yes, so mark system folder
		sta	auxtype

;
; now that everything's square, add the new icon
;
@notSYSTEM
		jsr	geticNamePtr		;A and X = pointer to icon's name.
		ldy	<zero			;add to head of list
		jsr	addIconObj		;move old icon obj to the window.
		bcc	@addOK
		brl	redrawDirty		;oh, we are toast now boy
		
@addOK		jsr	lockic			;Lock the new icon for drawing.

		ldy	#windDiskIc		;move our root icon in here
		lda	[<windBlk],y
		ldy	#icDisk
		sta	[<ic],y
		
		ldy	#windDiskIc+2
		lda	[<windBlk],y
		ldy	#icDisk+2
		sta	[<ic],y

		ldy	#windDirty
		lda	#$8000
		ora	[<windBlk],y
		sta	[<windBlk],y

		jsr	getRectRgn		Allocate regions.
		jsr	addIconRgn		Add the	new icon's area to redraw region.
		jsr	redrawList		Redraw the new icon.

ok73		jsr	unlockic		Leave the new icon unlocked.

		pla				Restore	current	icon.
		sta	<icHand
		pla
		sta	<icHand+2
		pla
		sta	<curWind
		pla
		sta	<curWind+2
		jsr	lockic

; --- Remove the extended icon ----------------------------------------

orphan70	ldy	#icWind
		lda	[<ic],y
		sta	iconWindow
		iny
		iny
		lda	[<ic],y
		sta	iconWindow+2	
		
		jsr	getwRefCon		Get this window's info block again.

		ldy	#windView		Viewed by icon or text?
		lda	[<windBlk],y
		cmp	#viewByName
		bcc	ok71			Special	case view by text, redraw later.

		jsr	cutOutIcon		Remove the extended icon's record.
		bra	connectWindow

ok71		jsr	getRectRgn		Allocate regions.
		jsr	addIconRgn		Add the	extended icon's area to region.
		jsr	cutOutIcon		Remove the extended icon's record.
		jsr	redrawList		Redraw the area	where the icon was.

connectWindow	lda	iconWindow+1
		beq	@done

		ldx	iconWindow+2
		lda	iconWindow
		jsr	GetWRefCon2
		
		jsr	GetWindPath		

		jsr	findOwnerIC
		
		ldx	iconWindow+2
		lda	iconWindow
		jsr	GetWRefCon2

		ldy	#windIc
		lda	<icHand
		sta	[<windBlk],y
		iny
		iny
		lda	<icHand+2
		sta	[<windBlk],y
		
@done		clc
		rts

;
; called by WalkWindow
;
redrawDirty	ldy	#windDirty		;clear windDirty
		lda	[<windBlk],y
		tax
;;;		and	#$7fff
		asl a
		lsr a
		sta	[<windBlk],y
		txa
		bpl	@done

		jsr	setInfo			;Update the destination window's info bar.
		jsr	newDataSize2		;update destination window's scroll bars

		ldy	#windView		;Viewed by icons or text?
		lda	[<windBlk],y		
		cmp	#viewByName		;if by icon, already done, if by text then
		bcc	@done			;sort and redraw ONCE

		jsr	redrawText		;Sort and draw view.

@done		clc
		rts

;
; locals
;
iconWindow	dc.L	0	
		ENDP

*===============================================*
*	Do the Eject Menu			*		
*===============================================*

EjectMenu	PROCNAME	

		IMPORT	EjectDisk
		IMPORT	CheckOpenFiles
		IMPORT	EjectNonRemovable
		
		lda	#eject80		Routine	to call	for every selected icon.
		jsr	findSelect
exit85
		rts

;===============================================
		EXPORT	Eject80
eject80
		
		lda	<ic
		clc
		adc	#icName
		tax
		lda	<ic+2
		adc	<zero
		jsl	CheckOpenFiles
		bcc	@noOpenFiles

		ldy	#icFtype
		lda	[<ic],y
		cmp	#typeServer		;don't allow server partitions with open fioles to be ejected!
		beq	exit80
		cmp	#typeHardPart		;don't allow HD partitions with open files to be ejected!
		beq	exit80
		
@noOpenFiles	ldx	EjectNonRemovable
		beq	@noEject

		ldy	#icFtype		;see if it's a hard drive partition
		lda	[<ic],y
		cmp	#TypeHardPart
		beq	@allowEject

@noEject	ldy	#icDevInfo		;andy, 12/4/90, after borrowing jack's
		lda	[<ic],y			;syquest removable
		and	#$0004			;mask ejectable bit
		beq	exit80			

@allowEject	ldy	#icDevNum
		lda	[<ic],y
		beq	exit80			Already	ejected!

		pha
		jsl	EjectDisk		; say goodbye

exit80		clc				Continue flag.
		rts

		ENDP

*===============================================*
*	Do the Edit Menus			*		
*===============================================*

EditMenus	PROC

		sec
		sbc	#idUndo

		rts

		ENDP

*===============================================*
*	Do the Select All Menus			*		
*===============================================*

SelectAllMenu	PROCNAME
		
		IMPORT	SelectionIsChanging
		
		jsl	SelectionIsChanging
	
		jsr	noRename		Remove any rename field.

		lda	#$FFFF			Take anything.
		jsr	getFrontWind
		tax				Desktop?
		beq	ok140
		and	#DirWindID+TrashWindID
;;;		beq	exit140			------ Should never happen ----
		beq SelAllMaybeTextEdit		;windID is in X

ok140		lda	<wind			New current plane?
		ldx	<wind+2
		cmp	<curWind
		bne	new140
		cpx	<curWind+2
		beq	same140

new140		phx				Save new plane.
		pha
		jsr	deselectall		Deselect current plane.
		pla
		plx

		sta	<curWind		New current plane.
		stx	<curWind+2

same140		jsr	startDraw		Set the	port's origin again.
		lda	#select140
		jsr	walkBack
		brl	endDraw


select140	ldy	#icFlag
		lda	[<ic],y			;Is the icon already selected?
		and	#ICSELECTED
		bne	exit140

		lda	[<ic],y
		ora	#ICSELECTED		;Set selected flag.
		sta	[<ic],y

		jsr	drawIcon2		;Redraw icon in its new state.

exit140		clc				;Continue flag.
		rts

SelAllMaybeTextEdit
		txa
		and #infoWindID
		bne @selAllinfoWindow
		txa
		and #helpWindID
		bne @selAllHelpWindow
		clc
		rts

@selAllHelpWindow
		lda <zero
		pha
		pha	;pushed $00000000 = selStart
		dec a
		pha
		pha	;pushed $ffffffff = selEnd
		pha
		pha	;space for GetCtlHandleFromID
		pha
		pha
		_FrontWindow	;window for GetCtlHandleFromID
		pei <zero
		pea 2	;ctl ID of Text Edit control
		_GetCtlHandleFromID
		_TESetSelection
		clc
		rts

@selAllInfoWindow
		pha
		pha	;space for GetCtlHandleFromID
		pha
		pha
		_FrontWindow
		pei <zero
		pea $E	;ctl ID of Text Edit control (OR simple button!)
		_GetCtlHandleFromID
		pla
		sta <handle
		pla
		sta <handle+2
		ldy #2
		lda [<handle],y
		sta <ptr+2
		lda [<handle]
		sta <ptr
		ldy #$0016	;offset to high word of ctlProc
		lda [<ptr],y
		cmp #$8500
		bne @notTE
		ldy #$0010	;offset to ctlFlag (bit 7 = invisible)
		lda [<ptr],y
		and #$0080
		bne @teInvisible

		lda <zero
		pha
		pha
		dec a
		pha
		pha
		pei <handle+2
		pei <handle
		_TESetSelection

@teInvisible
@notTE		clc
		rts

		ENDP


; do the show clipboard menu
;.....................................................................


ShowClipMenu	PROCNAME export

*** Rewritten 19-Aug-92 DAL to use ShowClipboard in the Scrap Manager
;		import	GetBigRect
;		import	SetSmallRect
;		import	zoomrect

		import	RectListPtr
		
		jsr	noRename		;Remove any rename field.

;*** Thanks, Dave (4-Sep-91)
;		pha
;		pei	<clipWind+2
;		pei	<clipWind
;		_GetWFrame
;		pla
;		and	#$0020			;fVis
;		bne	@alreadyVis
;*** You're welcome, Andy
;
;		jsr	SetSmallRect
;		
;		lda	<clipWind		;Pass window to check.
;		ldx	<clipWind+2
;		jsr	GetBigRect
;
;		lda	#1			;zoom out
;		jsr	ZoomRect
;
;@alreadyVis	lda	<clipWind		;Pass window to check.
;		ldx	<clipWind+2
;		brl	wind2top

		pha
		pha
		pea $8000			;flags = open
		clc
		lda >rectListPtr
		adc #88+6+2
		tax
		lda >rectListPtr+2
		adc #0
		pha
		phx				;rectangle pointer
;		_ShowClipboard
		ldx #$1516
		jsl $e10000
		pla
		pla	;window pointer (ignore)
		rts

		ENDP


; stack the windows (cool man, we get the move everything around!)
;.....................................................................

StackWindows	PROCNAME
	
		IMPORT	walkWindow
		IMPORT	saveCursor
		IMPORT	restoreCursor
		IMPORT	watchCursor

		jsl	saveCursor
		jsl	watchCursor
			
		stz	stackCount

		lda	#4
		sta	dx
		sta	firstX
		lda	#38
		sta	firstY
		sta	dy

		lda	#DirWindID+InfoWindID+TrashWindID+ClipWindID+VerifyWindID+AboutWindID+HelpWindID
		ldx	#walkToFirst		;walk to first window
		jsr	walkWindow		;we don't want opened sys windows

		lda	#DirWindID+InfoWindID+TrashWindID+ClipWindID+VerifyWindID+AboutWindID+HelpWindID
		ldx	#walkToEnd		;walk all the way
		jsr	walkWindow		;we don't want opened sys windows

@loop		lda	#DirWindID+InfoWindID+TrashWindID+ClipWindID+VerifyWindID+AboutWindID+HelpWindID
		ldx	#walkToLast	
		jsr	walkWindow		;we don't want opened sys windows
		
		pha
		pha
		pushZLong <wind	
		_GetWRefCon
		pla
		sta	<temp
		pla
		sta	<temp+2
		
		ldy	#windID
		lda	[<temp],y
		and	#TrashWindID+DirWindID
		bne	@HasInfoBar
		
		lda	dy
		sec
		sbc	#10
		tax
		bra	@notList
		
@HasInfoBar	ldx	dy
		
		ldy	#windView
		lda	[<temp],y
		cmp	#viewByName
		blt	@notList
	
		lda	prefer			;if 'show disk info' is on
		and	#PREF_SHOWDISK
		beq	@notList
		
		txa
		clc	
		adc	#12
		tax
		
@notList	lda	dx			;x
		pha				;y
		phx
		pushZLong <wind
		_MoveWindow
		
		inc	stackCount
		
		lda	stackCount
		cmp	#10
		blt	@next
	
		stz 	stackCount
		
		lda	firstY
		clc
		adc	#6
		sta	dy
		sta	firstY
		
		lda	firstX
		clc
		adc	#40
		sta	firstX
		sta	dx
		bra	@nextWindow
		
@next		lda	dx
		clc
		adc	#20
		sta	dx

		lda	dy
		clc
		adc	#12
		sta	dy
		
@nextWindow	lda	<wind			;is the window that we've reached
		cmp	first			;the one we knew to be in front of
		bne	@goLoop			;the rest when we started?
		lda	<wind+2
		cmp	first+2
		beq	@done
@goLoop		brl	@loop			;if not, then loop

@done		jsl	restoreCursor		
		rts			

;
; walkToFirst -- walk to the end of the window list and mark that window as the last
;
walkToFirst
		lda	<wind
		sta	first
		lda	<wind+2
		sta	first+2

		sec			;stop at first window
		rts

;
; walkToEnd -- walk to the end of the window list and mark that window as the last
;
walkToEnd
		lda	<wind
		sta	last
		lda	<wind+2
		sta	last+2	

		clc			;keep going
		rts
		
;
; walkToLast -- walk until we see that we're at the last window
;
walkToLast
		lda	<wind		;is this window the one we knew to be the
		cmp	last		;last one?
		bne	@notLast
		lda	<wind+2
		cmp	last+2
		bne	@notLast
		
		lda	previous	;now, make sure we'll back up next time
		sta	last		;through...
		lda	previous+2
		sta	last+2
		
		sec
		rts

@notLast	lda	<wind		;it's not the last, so mark window as the
		sta	previous	;previous window
		lda	<wind+2
		sta	previous+2		
		
		clc				;keep going
		rts

;
; locals
;	
first		dc.L	0		;first window (wind ptr) we encountered
last		dc.L	0		;last window (wind ptr)
previous	dc.L	0		;window before the last (wind ptr)
stackCount	dc.w	0		;number of windows we've stacked
firstX		dc.w	0		;first X coordinate for the current stack
firstY		dc.w	0		;first Y coordinate for the current stack
dx		dc.w	0		;amount to offset X by
dy		dc.w	0		;amount to offset Y by
		ENDP


; PickAWindow, they selected the menu item for a window in the windows menu,
; so we have to walk the directory windows list looking for a window which
; matches the menu item ID the user selected.  Then, bring the window to the
; front with _SelectWindow and re-order the windows menu if it says it needs
; to be re-ordered front-to-back
;
; IN: (A) contains the menu item for which we are looking for a match
;.....................................................................

		EXPORT	PickAWindow
PickAWindow	PROCNAME

		IMPORT	ListBy
		IMPORT	matchedFirst
		IMPORT	walkWindow
		IMPORT	matchFirst
		IMPORT	matchSecond
		
		sta	ourWindow
		
		stz	matchedFirst
		lda	#DirWindID+InfoWindID+TrashWindID+ClipWindID+VerifyWindID+AboutWindID+HelpWindID
		ldx	#matchFirst		;don't check for anything, match the first open dir window
		jsr	walkWindow		;we don't want opened sys windows

		lda	matchedFirst		;did we match for the first window?
		bne	@haveSomeWindows
		rts

@haveSomeWindows		
		ldy	#windMenuItem		;check to see that if we already are the in-front window		
		lda	[<windBlk],y
		cmp	ourWindow
		bne	@goingToFront
		
		pushZLong <wind			;if we already are in front, move it anyway to put it in front
		_SelectWindow			;of DAs
		rts
		
@goingToFront	stz	matchedFirst
		lda	#DirWindID+InfoWindID+TrashWindID+ClipWindID+VerifyWindID+AboutWindID+HelpWindID
		ldx	#matchWindByID		;don't check for anything, match the first open window
		jsr	walkWindow
		
		pushZLong <wind
		_SelectWindow
		
		lda	ListBy			;if it's done alphabetically, don't bother doing squat
		bne	@alpha
		
		lda	ourWindow
		pha
		_DeleteMItem
		
		lda	<windBlk		;where our title is (and will stay put)
		clc
		adc	#windMenuText
		sta	insertItemRef+10
		lda	<windBlk+2
		adc	<zero
		sta	insertItemRef+12
		
		pei <zero			;refIsPtr
		pushlong #insertItemRef
		pea	idWindowsDivider	;insert after
		pea	idWindowsMenu		;insert into
		_InsertMItem2
		
		pei <zero			;fix the windows menu's size since we lost a menu item
		pei <zero
		pea	idWindowsMenu
		_CalcMenuSize
@alpha		rts
		
;
; our window finder
;
;   IN:	   wind	= window to compare.
;
matchWindByID	jsr	windRefCon		;windBlk = window's info block pointer.

		ldy	#windMenuItem		;is it our window?
		lda	[<windBlk],y
		cmp	ourWindow
		beq	@gotit			;exit with our window pointer in <wind
		clc
		rts

@gotit		sec
		rts

		EXPORT	ListBy
ListBy		dc.w	1			;default listBy parameter

insertItemRef	dc.w	0			;version
ourWindow	dc.w	$f000			;itemID
		dc.w	0			;no keystroke characters
		dc.w	0			;no item check characters
		dc.w	0			;item flag (refIsPtr)
		dc.L	0			;title ref string (pstr)

; CloseAWindow, they selected the menu item for a window in the windows menu,
; and just our luck -- they happened to be holding down option when they did it
;
; so we have to walk the directory windows list looking for a window which
; matches the menu item ID the user selected.  Then, close the window
; re-order the windows menu if it says it needs to be re-ordered front-to-back
;
; IN: (A) contains the menu item for which we are looking for a match
;.....................................................................

		EXPORT	CloseAWindow
CloseAWindow	NAME

		sta	ourWindow
			
		stz	matchedFirst		
		lda	#DirWindID+InfoWindID+TrashWindID+ClipWindID+VerifyWindID+AboutWindID+HelpWindID
		ldx	#matchWindByID		;don't check for anything, match OUR open window
		jsr	walkWindow

		ldy	#windMenuItem		;check to see that if we already are the in-front window		
		lda	[<windBlk],y
		pei <zero			;uncheck the prior first window (if we were the first window)
		pha
		_CheckMItem

		lda	<wind
		sta	<taskData
		lda	<wind+2
		sta	<taskData+2
		jsr	doClose

		stz	matchedFirst
		lda	#DirWindID+InfoWindID+TrashWindID+ClipWindID+VerifyWindID+AboutWindID+HelpWindID
		ldx	#matchFirst		;don't check for anything, match the first open dir window
		jsr	walkWindow		;we don't want opened sys windows

		ldy	#windMenuItem		;check to see that if we already are the in-front window		
		lda	[<windBlk],y

		pea	$FFFF			;put a checkmark beside what we just moved to front
		lda	ourWindow		;in case we actually made someone else cometofront
		pha
		_CheckMItem

		rts
		ENDP
		
; do the view menus
;.....................................................................

ViewMenus	PROCNAME EXPORT

		IMPORT	resizeInfoBar
		IMPORT	infoSizes
		IMPORT	contentRECT
		IMPORT	CurView
		IMPORT	SaveCursor
		IMPORT	RestoreCursor
		IMPORT	WatchCursor
		
		sec
		sbc	#idByIcon		
		sta	<work
		
		jsl	SaveCursor
		jsl	WatchCursor
		
		jsr	noRename		;Remove any rename field.

		lda	<TaskData		;Pass selected item's ID.
		jsr	newView

		lda	#DirWindID+TrashWindID	;Accept directory or Trash window.
		jsr	getFrontWind
		bne	@ok
		brl	@done			;---- Should never happen ------

@ok		jsr	windRefCon		;windBlk = window's info block.

		ldy	#windView		;Set window's view.
		lda	[<windBlk],y		;Get old view for later.
		sta	oldViewBy
		lda	<work			;Set new view.
		sta	[<windBlk],y
		sta	newViewBy

		stz	drawInfoFlag		;we had the double-height info bar setup
		lda	#1
		sta	resize			;worry...

		lda	prefer			;first, if we don't have anything double-height,
		and	#PREF_SHOWDISK		;then don't worry about anything at all
		beq	@noResize

		lda	oldViewBy
		cmp	#viewByName
		blt	@largeGoingTo
		
		lda	newViewBy		;only resize if they changed from list -> icon
		cmp	#viewByName		;or icon -> list view
		blt	@resizeDown
		bra	@noResize
		
@largeGoingTo	lda	newViewBy		
		cmp	#viewByName
		bge	@resize
		bra	@noResize
		
@resizeDown	dec	resize		
@resize		

		lda	resize
		jsr	resizeInfoBar
				
		inc	drawInfoFlag
		
@noResize	pei	<wind+2			;Pass window pointer.
		pei	<wind
		_StartDrawing			;Setup window for drawing.

		jsr	sort			;Sort files by window's view.

		pea	screen2>>16		;Force redraw of window.
		pea	screen2
		_EraseRect

		pea	screen2>>16		;Force redraw of window.
		pea	screen2
		_InvalRect
		jsr	endDraw

		lda	oldViewBy
		cmp	#2			;Was the old view by icon?
		bcs	@redraw			;If not, don't reset origin.
		lda	newViewBy
		cmp	#2			;Is the new view by text?
		bcc	@redraw			;If not, don't reset origin.

		lda	<zero			;Set window's origin to 0,0 when view is
		pha				;changed from icon to text.
		pha
		pei	<wind+2			;Pass window to change.
		pei	<wind
		_SetContentOrigin
@redraw

		jsr	newDataSize2		;Recompute window's data size.

		lda	drawInfoFlag
		bne	@done
		
		ldy	#windDirty		;mark it as a dirty old window
		lda	[<windBlk],y
		ora	#$8000
		sta	[<windBlk],y
		
		jsr	setInfo			;Redraw info bar.

@done		jsl	RestoreCursor
		rts

;-----------------------------------------------
;
; IN:	wind = pointer to window
;	windBlk = pointer to window's info block
;
;-----------------------------------------------
		EXPORT	redrawText
redrawText		

		pei	<wind+2			Pass window pointer.
		pei	<wind
		_StartDrawing			Setup window for drawing.

		jsr	sort			Sort files by window's view.

		pea	screen2>>16		Force redraw of	window.
		pea	screen2
		_EraseRect

		pea	screen2>>16		Force redraw of	window.
		pea	screen2
		_InvalRect

		brl	endDraw
		
;-----------------------------------------------
		EXPORT	newView
newView		pea	$FF			Check flag.
		pha				New view, to be	checked.

		pei <zero			Uncheck	flag.
		ldx	curView			;Old view, to be unchecked.
		phx
		sta	curView			Remember new view.

		_CheckMItem			Uncheck	the the	old view.
		_CheckMItem			Check the new view.
		rts


;
; locals
;
resize		dc.w	0
drawInfoFlag	dc.w	0			;boolean
oldViewBy	dc.w	0
newViewBy	dc.w	0
		ENDP

*===============================================*
*	Do the Clean Up Menu			*		
*===============================================*

CleanUpByNameMenu PROCNAME

		import	OfflineMasks
		import	OnlineMasks
		import	GetVisRECT
		
		lda	#$FFFF
		sta	CleanUpByNameFlag
		bra	ByName

		EXPORT CleanUpMenu
CleanUpMenu	NAME	

		stz	CleanUpByNameFlag

ByName		jsr	noRename		Remove any rename field.

		lda	#$FFFF			Take any window	on top.
		jsr	getFrontWind		Get the	front most window.
		sta	onDesktop
		tax				Desktop	is OK.
		beq	@ok
		and	#DirWindID+TrashWindID	Directory or Trash is OK.
		bne	@ok
		brl	exit170
@ok		


		ldy	#windView		;check to see if the window's view is by icon or small icon, which
		lda	[<windBlk],y		;are the only two views which can be cleaned up normally or by name.
		cmp	#viewByName		;this check is needed because it's possible to be cruel and hold down
		blt	@cleanUpOK		;the option key and then change views, etc.
		rts
@cleanUpOK
		
;
; Continue cleaning up...
;
		pei	<curWind+2		Save current plane.
		pei	<curWind

		lda	<wind			Switch to front	most window plane.
		sta	<curWind
		lda	<wind+2
		sta	<curWind+2

;
; now, check if the modifiers bit for the option key is set, and if it is, sort by name, then run
; through the icon list and re-assign everyone's icx and icy coordinates.
;
		lda	onDesktop		;if this is on the desktop, we don't do "cleanup all" (yet)
		beq	@doNormal

		lda	CleanUpByNameFlag
		bmi	@byName
@doNormal	brl	normalCleanup
@byName

		jsl	WatchCursor
		
		pei	<wind+2			Pass window pointer.
		pei	<wind
		_StartDrawing			Setup window for drawing.

		lda	#$FFFF
		sta	row
		stz	rowbits
		stz	rowbits+2

		ldy	#20			;magic offset to window's portrect Y2
		lda	[<wind],y
		sec
		ldy	#16			;magic offset to window's portrect Y1
		sbc	[<wind],y
		sta	bottom
		
		ldy	#22			;magic offset to window's portrect X2
		lda	[<wind],y
		sec
		ldy	#18			;magic offset to window's portrect X1
		sbc	[<wind],y
		sta	right

		ldy	#windView
		lda	[<windBlk],y
		pha
		
		lda	#viewByName
		sta	[<windBlk],y
		jsr	sort			Sort files by window's view.
		pla
		ldy	#windView
		sta	[<windBlk],y

		stz	positioned
		lda	#10			;defaults 
		sta	iconPos+y1		
		lda	#52+14
		sta	iconPos+x1

		ldy	#windView
		lda	[<windBlk],y
		cmp	#viewBySmallIcon
		bne	@notBySmall
		lda	#-10			;defaults in case they don't have a finder.data
		sta	iconPos+y1		;file
		lda	#14
		sta	iconPos+x1
@notBySmall		
		
		lda	#cleanupByName
		jsr	walkOfLife

		pea	screen2>>16		;Force redraw of window.
		pea	screen2
		_EraseRect

		pea	screen2>>16		;Force redraw of window.
		pea	screen2
		_InvalRect

		jsr	endDraw

		pei <zero			;reset the window to 0,0
		pei <zero
		pushZLong <wind
		_SetContentOrigin

		jsr	newDataSize2		Recompute window's data size.
		jsl	ArrowCursor

		pla				Restore	original plane.
		sta	<curWind
		pla
		sta	<curWind+2
		rts

;
; routine called by walkOfLife to quickly reposition all the icons in a window
;
cleanupByName	ldy	#windView
		lda	[<windBlk],y
		cmp	#viewBySmallIcon
		bge	@bySmallIcon
		brl	@byLargeIcon
@bySmallIcon	
@nextRow	inc	row
		
		lda	row
		cmp	#64			;extra protection just in case
		bge	@newColumn
		
		lda	iconPos+y1
		clc
		adc	#10
		sta	iconPos+y1

		tax
		ldy	#windItems
		lda	[<windBlk],y
		cmp	#500
		bge	@inWindow1		
		txa
		
		clc
		adc	#10
		cmp	bottom
		bcc	@inWindow1
		
@newColumn	stz	row
		stz	iconPos+y1

		lda	iconPos+x1
		clc
		adc	#150
		sta	iconPos+x1
				
@inWindow1	lda	row			;divide the row by 8 to use as an index
		lsr	a
		lsr	a
		lsr	a
		tay
		lda	row
		and	#$7
		tax
		
		sep	#$20
		LONGA OFF
		
		lda	rowbits,y		;find out if the last row intruded here
		and	>OnlineMasks,x
		
		pha
		lda	rowbits,y		;and reset the intrusion indicator
		and	>OfflineMasks,x
		sta	rowbits,y
		pla				

		LONGA ON
		rep	#$20			;if the last row to the left intruded into this column,
		bne	@nextRow		;then we need to try the next row down
		
		pha				;now that we placed the icon, see if the name makes the
		lda	#icName			;icon intrude in the next column
		clc
		adc	<ic
		tax
		lda	<ic+2
		adc	<zero
		pha
		phx
		_StringWidth
		pla
		cmp	#128
		blt	@inWindow
		
		lda	row			;divide the row by 8 to use as an index
		lsr	a
		lsr	a
		lsr	a
		tay
		lda	row
		and	#$7
		tax
		
		sep	#$20
		LONGA OFF
		
		lda	rowbits,y
		ora	>OnlineMasks,x	
		sta	rowbits,y
		
		LONGA ON
		rep	#$20
		bra	@inWindow

;
; cleanup by large icon
;
@byLargeIcon	lda	positioned
		bne	@position
		inc	positioned
		bra	@inWindow
		
@position	lda	iconPos+x1		;look to the right
		clc
		adc	#106
		sta	iconPos+x1

		tax				;if we've got a lot of items, try really hard not to grid them
		ldy	#windItems		;wrong
		lda	[<windBlk],y
		cmp	#500
		blt	@realRight		
		
		cpx	#1000
		bcc	@inWindow
		bge	@atLeft

@realRight	txa
		cmp	right			;off right of window?
		bcc	@inWindow		
	
@atLeft		lda	#52+14			;Start again on left side if so
		sta	iconPos+x1

		lda	iconPos+y1		;next row down.
		clc
		adc	#32			
		sta	iconPos+y1		

@inWindow	lda	iconPos+y1
		clc
		adc	#10
		ldy	#icy
		sta	[<ic],y

		lda	iconPos+x1
		ldy	#icx
		sta	[<ic],y

		ldy	#icFlag			;deselect the icon
		lda	[<ic],y
		and	#$FFFF-icSelected
		sta	[<ic],y

		clc
		rts

;
; locals for cleanupByName
;
row		dc.w	0
rowbits		ds.b	8
bottom		dc.w	0
right		dc.w	0

CleanUpByNameFlag dc.w	0
onDesktop	dc.w	0
positioned	dc.w	0
iconPos		dc.w	0
		dc.w	0

;
; cleanup the normal way
;
normalCleanup	jsl	WatchCursor
		jsr	startDraw

		ldx	#4			Index for desktop, just	in case.
		ldy	#windID
		lda	[<windBlk],y
		beq	enter172		Cleaning up the	desktop?

		ldy	#windView		Index for window.
		lda	[<windBlk],y
		asl	a
		tax				0 for large icons, 2 for small icons.

enter172	lda	startGridys,x		Initialize clean-up parameters.
		sta	startGridy
		lda	nextGridys,x
		sta	nextGridy
		lda	adjustGridys,x
		sta	adjustGridy
		lda	startGridxs,x
		sta	startGridx
		lda	nextGridxs,x
		sta	nextGridx
		lda	adjustGridxs,x
		sta	adjustGridx
		lda	maxYgrids,x
		sta	maxYgrid

		stz	wrap			Clear wrap counter.

;
; get the visRgn for the window which is going to be cleaned up
; so that while we are cleaning up, we can check to see if we should
; draw the icon being moved or not (because, if the icon isn't visible,
; it's dumb to draw it)
;
		jsr	GetVisRECT
		
;
; now that we have the visRgn's boundsrect, continue cleaning up
;
		lda	#cleanup		For each icon, do clean-up.
		jsr	walkOfLife

		jsr	endDraw
		jsr	newDataSize2		Compute	new data size for window.
		jsl	arrowCursor

		pla				Restore	original plane.
		sta	<curWind
		pla
		sta	<curWind+2

exit170		rts

; = = =	= = = =	= = = =	= = = =	= = = =
;	   Place icon's on grid.
; = = =	= = = =	= = = =	= = = =	= = = =
;
;   IN:	   ic =	pointer	to icon	to clean-up.
;	   startGrid = minimum grid coordinates.
;	   nextGrid = amounts between grids.
;	   windBlk = pointer to	window's info block.
;
; = = =	= = = =	= = = =	= = = =	= = = =

		import	UnlockICBLKHAND		;22-Mar-93 JCM

cleanup
		pei	<direction
		lda	tocall+1
		pha
		lda	<icHand
		sta	saveIc
		lda	<icHand+2
		sta	saveIc+2

		lda	wrap			Did I already wrap?
		bmi	next170
		lda	#1			Start wrap counter over.
		sta	wrap

; --- Find closest Y grid ------------------------------------------

		lda	startgridy
		ldy	#icy
		bra	enter170
lop170		lda	gridy
		clc
		adc	nextGridy
enter170	sta	gridy
		lda	[<ic],y
		cmp	gridy
		bcs	lop170

; --- Find closest X grid ------------------------------------------

		lda	startGridx
		ldy	#icx
		bra	enter171
lop171		lda	gridx
		clc
		adc	nextGridx
		cmp	#630
		bcs	done171
enter171	sta	gridx
		lda	[<ic],y
		cmp	gridx
		bcs	lop171
done171

; --- Compute grid coordinate (centers on a grid coordinate) -------------

lop174		lda	gridy
		sec
		sbc	adjustGridy
		sta	gridy

		lda	gridx
		sec
		sbc	adjustGridx
		sta	gridx

; --- Check if some other icon is on that grid ---------------------------
;
; gridy, gridx = closest grid coordinate.
;
lop172		lda	wrap			Is special 'no check icon' flag	set?
		bmi	gotit170

		lda	#ckGrid			Check every icon.
		jsr	walkOfLife
		bcc	gotit170

; ------ Check next grid coordinate (moving left to right and down) ---------

next170		lda	gridx			Check coordinate to right.
		clc
		adc	nextGridx
		sta	gridx
		ldy	#22			;magic offset to window's portrect X2
		cmp	[<wind],y		;too far?
		bcc	lop172

		lda	startGridx		Start again on the left	side,
		sec
		sbc	adjustGridx
		sta	gridx

		lda	gridy			and move down one grid line.
		clc
		adc	nextGridy
		sta	gridy
		cmp	maxYgrid
		bcc	lop172
						; This only happens on desktop.
		lda	startgridy		Start over at top.
		sta	gridy

		dec	wrap			Second time through here for this icon?
		bpl	lop172

		lda	#36			Start over at top.
		sta	gridy
		lda	startGridx
		sta	gridx
		bra	lop174

gotit170	lda	saveIc
		sta	<icHand
		lda	saveIc+2
		sta	<icHand+2
		jsr	lockic

; --- Move icon	to new position	-----------------------------------------------

		ldy	#icy			Compute	the deltas.
		lda	gridy
		sec
		sbc	[<ic],y
		sta	deltay2
		iny
		iny
		lda	gridx
		sec
		sbc	[<ic],y
		sta	deltax2
		ora	deltay2
		bne	@checkVis
		brl	skip171
;
; first, check the top and bottom to see if we should be drawing or not
; based on our visrgn
;		
@checkVis	
		ldy	#windView
		lda	[<windBlk],y
		beq	@viewByIcon
		cmp	#1
		beq	@viewBySmall
		brl	@continue		;if it's not by icon or small icon, split!

@viewByIcon	jsr 	getIconPtr

*** Scrunched - 21-Mar-93 JCM

;;;		ldy	#4			;unlock icon, no need to lock it
;;;		lda	[<icBlkHand],y
;;;		and	#$3FFF
;;;		sta	[<icBlkHand],y
		
		jsr	UnlockICBLKHAND
		
*** End - 21-Mar-93 JCM
		
;
; check to see if the icon -currently- is or isn't in our visRgn, because
; if it currently is, then we need to show it immediately
;
		ldy 	#icy
		lda 	[<ic],y
		clc
		adc	#TITLE_H
		cmp	<visRECT+y1
		bmi	@fastExit
		
		sec
		ldy	#imHeight
		sbc	[<icon],y
		sec
		sbc	#TITLE_H
		cmp 	<visRECT+y2
		beq	@continue
		bmi 	@continue

;
; then, check to see if the icon isn't going to be moved into our visRgn,
; because if it is, then we need to show it immediately
;
		lda 	gridy
		clc
		adc	#TITLE_H
		cmp	<visRECT+y1
		bmi	@fastExit
		
		sec
		ldy	#imHeight
		sbc	[<icon],y
		sec
		sbc	#TITLE_H
		cmp 	<visRECT+y2
		beq	@continue
		bmi 	@continue

@fastExit	ldy	#icy
		lda	gridy
		sta	[<ic],y
		iny
		iny
		lda	gridx
		sta	[<ic],y
		brl	skip171

;
; viewBySmall -- clip to vis for view By Small Icon
;
@viewBySmall
		ldy 	#icy
		lda 	[<ic],y
		clc
		adc	#TITLE_H
		cmp	<visRECT+y1
		bmi	@fastExit
		
;		sec
;		ldy	#imHeight
;		sbc	[<icon],y
		sec
		sbc	#15		;used to be TITLE_H, but wasn't big enough
		cmp 	<visRECT+y2
		beq	@continue
		bmi 	@continue

;
; now, we need to check if this icon is about to appear in our
; visRgn, and if it is, then show it moving into our visRgn
;
		lda 	gridy
		clc
		adc	#TITLE_H
		cmp	<visRECT+y1
		bmi	@fastExit
		
;		sec
;		ldy	#imHeight
;		sbc	[<icon],y
		sec
		sbc	#15		;used to be TITLE_H, but wasn't big enough
		cmp 	<visRECT+y2
		bne	@fastExit
		bpl	@fastExit

;
; end of vertical vis Clipping stuff
;
@continue	jsr	getRectRgn		Allocate rectRgn and tempRgn.
		jsr	addIconRgn		Make rectRgn = icon's area.
		jsr	offsetRgn		rectRgn	= old rectRgn +	new rectRgn.

		ldx	#x2
lop173		lda	<irect1,x
		sta	smallRect,x
		sta	bigRect,x
		dex
		dex
		bpl	lop173

		pea	bigRect>>16
		pea	bigRect
		lda	deltax2
		pha
		lda	deltay2
		pha
		_OffsetRect

;		ldx	#1			Use current port.
;		txa				Zoom from small	to big.
;		jsr	zoomRect2
		jsr	zoomRectNoSound		;21-Apr-91 DAL

		ldy	#icy
		lda	gridy
		sta	[<ic],y
		iny
		iny
		lda	gridx
		sta	[<ic],y

		pei	<rectRgn+2		Redraw just what's needed.
		pei	<rectRgn
		_SetClip

*** added 12-Dec-91 DAL
*** If this is the desktop and we have a picture, do a PPToPort instead of an EraseRect
		import ScreenHandle,ScreenLocInfo,HandleToPointer,UnlockHandle
		import ScreenRect,ScreenImage

		lda	<curWind+1
		cmp	<deskPort+1
		bne	@justErase
		lda	ScreenHandle+1
		beq	@justErase

		pha
		pha
		PushLong ScreenHandle
		jsl	HandleToPointer
		PullLong ScreenImage		; get pointer to desktop picture
				
		PushLong #ScreenLocInfo		; LocInfo record
		PushLong #ScreenRect		; enclosing rect
		ldx <zero
		phx				; X coordinate
		phx				; Y coordinate
		phx				; penmode
		_PPToPort			; draw the picture
		
		PushLong ScreenHandle
		jsl	UnlockHandle		; unlock it
		bra	@didBackground
*** end 12-Dec-91

@justErase	pei	<rectRgn+2
		pei	<rectRgn
		_EraseRgn
@didBackground


;		jsr	drawIcon2
		
		lda	#drawIcon2
		jsr	walkback2

		pea	screen2>>16		Set clip to full screen.
		pea	screen2
		_ClipRect

		jsr	freeRectRgn

skip171		pla
		sta	tocall+1
		pla
		sta	<direction
		lda	saveIc
		sta	<icHand
		lda	saveIc+2
		sta	<icHand+2
		jsr	unlockic		;6/13/91, andy

		clc				Continue flag.
		rts


gridy		DS.B	2
startGridy	DS.B	2
nextGridy	DS.B	2
adjustGridy	DS.B	2
maxYgrid	DS.B	2

gridx		DS.B	2
startGridx	DS.B	2
nextGridx	DS.B	2
adjustGridx	DS.B	2

saveIc		DS.B	4

startGridys	DC.W	35			;Large icons.
		DC.W	15			;Small icons.
		DC.W	46+8			;Desktop icons.	changed - DJB 08/03/88
nextGridys	DC.W	32
		DC.W	10
		DC.W	35			;changed from 31 - DJB 08/03/88
adjustGridys	DC.W	14
		DC.W	5
		DC.W	14
maxYgrids	DC.W	$7FFF
		DC.W	$7FFF
		DC.W	200

startGridxs	DC.W	120
		DC.W	88
		DC.W	94
nextGridxs	DC.W	106
		DC.W	150
		DC.W	106
adjustGridxs	DC.W	54
		DC.W	74
		DC.W	54

ckGrid		ldy	#icy
		lda	[<ic],y
		cmp	gridy
		bne	cont170
		iny
		iny
		lda	[<ic],y
		cmp	gridx
		bne	cont170
		lda	<icHand			Same icon?
		cmp	saveIc
		bne	err170
		lda	<icHand+2
		cmp	saveIc+2
		beq	cont170
err170		sec				Error, this icon is on the grid.
		rts
cont170		clc
		rts

		ENDP

*===============================================*
* Build Device name from pathname		*		
*===============================================*

BuildDevName	PROC

		IMPORT	GetDeviceNumber
		IMPORT	GetDeviceInfo

		jsr	buildPath		; C1_PathName = icon's name with a separator.
		bcs	exit			; pathname error?

		pha				; space for devNum
		PushLong #C1_PathName
		jsl	GetDeviceNumber
		pla
		bcs	exit
		pha				; devNum
		PushLong #C1_DeviceName		; devNamePtr
		lda <zero
		pha
		pha				; skip devChar
		pha
		pha				; skip devBlocks
		pha
		pha				; skip devID
		jsl	GetDeviceInfo
		
exit		rts

		ENDP
	
; do the erase menu
;.....................................................................

EraseMenu	PROCNAME

		IMPORT	NewIconName
		IMPORT	GetDeviceInfo

		jsr	noRename		; remove any rename field

		lda	#erase180
		brl	findSelect		; erase all selected disks

; erase a prodos device
;
; IN: ic = pointer to ICONOBJ
;
; assertion: only unlock +online disks can get to here (no file servers either)
;.....................................................................

erase180
		IMPORT	EraseDisk
		IMPORT	saveCursor
		IMPORT	restoreCursor
		IMPORT	watchCursor

		ldy	#icDevNum
		lda	[<ic],y
		pha				; pass device number
		PushLong #C1_DeviceName		; pointer to device name
		lda <zero
		pha
		pha				; skip characteristics
		pha
		pha				; skip total blocks
		pha
		pha				; skip device ID
		jsl	GetDeviceInfo
		bcs	@done

		jsr	buildPath		; C1_PathName = icon's name with a separator.
		bcs	@done			; pathname error?

		jsl	saveCursor
		jsl	WatchCursor
		
		PushLong #C1_DeviceName
		PushLong #C1_PathName
		jsl	EraseDisk
		
		php
		jsl	restoreCursor
		plp
		bcs	@done			; unhandled error so exit
		
		jsr	NewIconName		; update icon stuff

		clc
@done		rts
		ENDP

; do the format menu
;.....................................................................

FormatMenu	PROCNAME
	
		IMPORT	PStringCopy
		IMPORT	FormatDisk
		IMPORT	GetDeviceInfo

		jsr	noRename		Remove any rename field.

		lda	#format190		Routine	to call	for every selected icon.
		brl	findSelect

; assertion: only unlocked and online disks get get to here (no file servers either)
;.....................................................................

format190
		IMPORT	saveCursor
		IMPORT	restoreCursor
		IMPORT	watchCursor
		
		ldy	#icDevNum		; pass device name to dialog
		lda	[<ic],y
		pha				; pass device number
		PushLong #C1_DeviceName		; pointer to device name
		lda <zero
		pha
		pha				; skip characteristics
		pha
		pha				; skip total blocks
		pha
		pha				; skip device ID
		jsl	GetDeviceInfo
		bcs	@done
		
		jsr	buildPath		; C1_PathName = icon's name with a separator.
		bcs	@done

		jsl	saveCursor
		jsl	watchCursor
		
		PushLong #C1_DeviceName
		PushLong #C1_PathName
		jsl	FormatDisk
		
		php
		jsl	restoreCursor
		plp
		bcs	@done
		
		jsr	NewIconName		; no error (and no cancel)
		bcs	@done
		
		pea	$8005			;task accomplished
		_SysBeep2
@done		rts


; Change icon's name
;.....................................................................

		ENTRY	NewIconName
NewIconName	name

		IMPORT	PStrToUpper
		IMPORT	IsFSTUpperCase
		IMPORT	HalfRoundUp
		IMPORT	GetVolumeInfo
		IMPORT	GetFileInfo
		IMPORT	GetDeviceNumber
		IMPORT	EjectDisk
		IMPORT	WipeIcon
		IMPORT	C1_PathNamePtr
		IMPORT	doAlertWindow
		IMPORT	updateInfoWin
		IMPORT	AddIconRgn
		IMPORT	GetRectRgn
		IMPORT	RedrawList
		IMPORT	ZoomDiskToTrash
		IMPORT	VolumeParams
		import	DupDevice

		inc	SaveOffFlag		Turn data file saving off.
		jsr	clearDisk		Remove disk's every window and ext icon.
		stz	SaveOffFlag		Turn data file saving back on.

@tryAgain
		pushlong #C1_DeviceName		;given the device ID
		pushlong #C1_PathName		;get the volume name
		
		lda	<ic			;get the total blocks		
		clc
		adc	#icFBytes
		ldx	<ic+2
		bcc	@totalNR
		inx
@totalNR	phx
		pha				

		lda	<ic			;get the blocks free		
		clc
		adc	#icFBlocks
		ldx	<ic+2
		bcc	@freeNR
		inx
@freeNR		phx
		pha				

		lda	<ic
		clc
		adc	#icFileInfo
		ldx	<ic+2
		bcc	@fstNR
		inx
@fstNR		phx
		pha				;get the file sys ID
		lda <zero
		pha
		pha				;don't get the block size
		jsl	GetVolumeInfo

		ldy	#icFBlocks		;we got blocks free, convert to blocks
		lda	[<ic],y			;used
		sec
		ldy	#icFBytes
		sbc	[<ic],y
		ldy	#icFBlocks
		sta	[<ic],y
		iny
		iny
		lda	[<ic],y
		ldy	#icFBytes+2
		sbc	[<ic],y
		ldy	#icFBlocks+2
		sta	[<ic],y
	
		pushlong #c1_pathname		;pathname
		lda <zero
		pha
		pha				;access
		pha
		pha				;filetype
		pha
		pha				;auxtype
		pha
		pha				;storagetype

		lda	<ic			;create date
		clc
		adc	#icCDate
		ldx	<ic+2
		bcc	@cDateNR
		inx
@cDateNR	phx
		pha
		
		lda	<ic			;mod date
		clc
		adc	#icMDate
		ldx	<ic+2
		bcc	@mDateNR
		inx
@mDateNR	phx
		pha

		lda <zero		
		pha
		pha				;bytes
		pha
		pha				;blocks
*** 18-Jul-92 DAL -- update icon's file system
;;;		pha
;;;		pha				;file system
		lda <ic
		clc
		adc #icFST
		ldx <ic+2
		bcc @1
		inx
@1		phx
		pha
*** end 18-Jul-92 DAL
		jsl	GetFileInfo
	
;
; see if the user made a boo-boo by naming their disk something that exists
;
		ldy	#icDevNum
		lda	[<ic],y
		tay				;skip our device and don't mark as duplicate
		jsr	CheckDupDevice
		bcc	@good
				
		pha				;space for result flags
		pha				;space for result device number
		pea 	$4400			;flag = simulate dup-volume error
		ldy	#icDevNum
		lda	[<ic],y
		pha
		_HandleDiskInsert
		pla
		plx
		tax
		bcs	@error			;got an error, so just vaporize the icon and split
		beq	@error
		brl 	@tryAgain		;be super paranoid, but get the new name
		
@error		jsr	getRectRgn		Allocate regions.
		jsr	ZoomDiskToTrash
		jsr	WipeIcon		Remove the extended icon's record.
		jsr	redrawList		Redraw the area	where the icon was.
		sec
		rts

@good		jsr	getRectRgn		;Allocate regions for where the icon region WAS
		jsr	addIconRgn
		
		jsr	findLastName		lastName = volume name,	no leading separator.

		pushlong #lastName		; move new name into icon name
		lda	<ic
		clc
		adc	#icName
		tax
		lda	<ic+2
		adc	<zero
		pha
		phx
		jsl	PStringCopy

;
; Move the new device characteristics into the icDevInfo field and change the write protected status if it's
; somehow changed
;
		lda	>VolumeParams+$16	;get the new device info stuff
		ldy	#icDevInfo
		sta	[<ic],y
		
		ldy	#icFlag
		and	#$0003			;check the write protected bit AND the read-only file system bit
		bne	@locked			;(awwww, who knows, just check it anyway)
		
		lda	[<ic],y
		and	#_icLocked
		sta	[<ic],y
		bra	@unlocked
		
@locked		lda	[<ic],y
		ora	#icLocked
		sta	[<ic],y
@unlocked			

;
; recompute the icon's icTitleLen field
;
		pha				Space for result.
		pea	lastName>>16		Pass pointer to	icon's new name.
		pea	lastName
		_StringWidth
		pla
		jsl	HalfRoundUp		;acc := (acc DIV 2) + (acc MOD 2)
		ldy	#icTitleLen
		sta	[<ic],y			remember half the title's width.

;
; erase the old icon and put the new one in its place
;
		jsr	addIconRgn
		jsr	redrawList
		
		jsr	resetCTime		Update disk icon's create time and date.
		
		clc
		rts

;
; Check for a duplicate device
;
CheckDupDevice
		pushZLong <icHand
		pushZLong <ic
		jsr	DupDevice
		pulllong <ic
		pulllong <icHand
		rts
		ENDP

*===============================================*
*	Do the Close All Menu			*		
*===============================================*

		EXPORT CloseAllMenu
CloseAllMenu	PROC	

		IMPORT	close1Window

		jsr	noRename		Remove any rename field.

		jsl	WatchCursor
lop200		jsr	Close1Window
		bne	lop200
		jsl	arrowCursor
		rts

		ENDP

*===============================================*
*	Do the Preferences Menu			*		
*===============================================*

PreferMenu	PROCNAME

		IMPORT	defaultChg
		IMPORT	UpdateWindow
;;;		IMPORT	CheckAnyDWindow		;11-Feb-93 JCM - only used in main.aii
		IMPORT	WindowGlobalON
		IMPORT	WindowGlobalOFF
		IMPORT	CloseThisWindow		;in Util.aii - 27-Jan-93 JCM

		_WaitCursor
		
		jsl	WindowGlobalON
		
		pha
		pha
		lda <zero
		pha
		pha				;titlePtr
		pha
		pha				;refCon is ptr to our window info block
		pha
		pha				;content draw proc
		pha
		pha				;window defproc
		pea	2			;refIsResource
		pushlong #3			;window resource we want
		pea	$800e			;rWindParam1
		_NewWindow2
		jsl	WindowGlobalOFF
		pulllong prefsWindowPtr
		bcc	@ok
	
;
; close the window only if something bad happened and we actually have a window pointer
; because something could have happened when we went to add controls (but didn't
; get created because we couldn't find the disk or the resource)
;
		lda	prefsWindowPtr+1
		beq	@leave

@done		lda	prefsWindowPtr
		ldx	prefsWindowPtr+2
		jsl	CloseThisWindow
		
*** Added 21-Jan-93 JCM

;;;@leave		_InitCursor

@leave		jsl	ArrowCursor
		
*** End - 21-Jan-93 JCM		
		
		rts


;
; cool.  we got the resources we needed and have a window -- so set everyone's control values before
; anything gets drawn
;
@ok		
		ldy	#8			;start at control #8
@ctlSetLoop	phy
		
		tya
		dec	a
		asl	a
		tax
		lda	prefer
		and	ctlMatchTable,x	
		bne	@set

		stz	ctlValue
		bra	@reset		
		
@set		lda	#1
		sta	ctlValue
		
@reset		pha
		pha
		pushlong prefsWindowPtr		;get them from the prefs window
		pei <zero
		phy
		_GetCtlHandleFromID
		pha
		lda	3,s			;move the handle to be at the proper point for
		sta	1,s			;_GetCtlValue
		lda	5,s
		sta	3,s
		lda	ctlValue
		sta	5,s
		_SetCtlValue
		ply
		dey
		bne	@ctlSetLoop		;stop at control #1 (no control #0)


;
; now that we've set all the controls values, use DoModalWindow to play with everything
;
*** Added 21-Jan-93 JCM

;;;		_InitCursor

		jsl	ArrowCursor
		
*** End - 21-Jan-93 JCM		

dmPrefsLoop	pha
		pha
		jsr	pushTask	;push the task record's ptr
		lda <zero
		pha
		pha			;update proc
		pea $8000
		pha			;eventHook $80000000
		pha
		pha			;beep proc
		pea	$c010		;flags
		_DoModalWindow

		pla
		plx
		cmp	#9		;stat text under disk info
		beq	@toggleDiskInfo
		cmp	#10		;stat text under color
		beq	@toggleColor
		cmp	#17
		beq	@accept
		cmp	#16
		bne	dmPrefsLoop

		lda	prefsWindowPtr
		ldx	prefsWindowPtr+2
		jsl	CloseThisWindow

		rts
		
;
; toggle disk info, item ID #8
;
@toggleDiskInfo	lda	#8
		bra	@toggle

;
; toggle color stuff, item ID #4
;
@toggleColor	lda	#4


;
; they hit a checkbox (indirectly by smacking someone's stattext), but not on the checkbox, so toggle it
;
; IN: (A) contains item ID to toggle
;
@toggle		pha
		pha
		ldx	prefsWindowPtr+2
		phx
		ldx	prefsWindowPtr
		phx
		pei <zero
		pha
		_GetCtlHandleFromID
		pha
		lda	3,s			;move the handle to be at the proper point for
		sta	1,s			;_GetCtlValue
		sta	ctlHandle
		lda	5,s
		sta	3,s
		sta	ctlHandle+2
		_GetCtlValue
		pla
		and	#1
		eor	#1
		pha
		pushlong ctlHandle
		_SetCtlValue
		brl	dmPrefsLoop

;
; they decided to hit the accept button, so go through all of the controls (ID's 1-9)
;

@accept
		ldx	#8			;start at control #8
@ctlLoop	phx
		
		pha
		pha
		pushlong prefsWindowPtr		;get them from the prefs window
		pei <zero
		phx
		_GetCtlHandleFromID
		pha
		lda	3,s			;move the handle to be at the proper point for
		sta	1,s			;_GetCtlValue
		lda	5,s
		sta	3,s
		_GetCtlValue
		pla
		bne	@set

@reset		lda	1,s			;get the control ID
		dec	a
		asl	a
		tax
		lda	ctlMatchTable,x	
		eor	#$FFFF
		and	newPrefer
		sta	newPrefer
		bra	@next
		
@set		lda	1,s
		dec	a
		asl	a
		tax	
		lda	ctlMatchTable,x
		ora	newPrefer
		sta	newPrefer

@next		plx
		dex
		bne	@ctlLoop		;stop at control #1 (no control #0)

;
; now, see what's new -- because if they changed the way the list views are done, we gotta
; redraw all the windows (with list views) to reflect the new list view settings
;
		lda	prefer
		sta	oldPrefer

		lda	prefsWindowPtr
		ldx	prefsWindowPtr+2
		jsl	CloseThisWindow

		lda	newPrefer
		eor	prefer
		and	#PREF_HDATA
		beq	@noInvisiChange

		lda	newPrefer
		sta	prefer

		lda	#DirWindID		; directory windows only.
		ldx	#UpdateWindow
		jsr	walkWindow
		
		lda	oldPrefer
		sta	prefer
		
@noInvisiChange	lda	newPrefer
		eor	prefer			
		and	#PREF_SHOWDISK+PREF_SHOWDATE+PREF_SHOWKIND+PREF_SHOWSIZE
		beq	@bingo			

		lda	newPrefer
		sta	prefer		

		lda	#DirWindID+TrashWindID
		ldx	#redrawListViews		
		jsr	walkWindow

@bingo		lda	newPrefer
		sta	prefer

		lda	#$FFFF
		sta	defaultChg
		rts

;
; redrawListViews -- called by walkWindows, after checking whether or not this is a list
; view, will redraw the window (inval it all)
;
;   IN:	   wind	= window to compare.
;
;   OUT:   windPtr = pointer to windowBlk
;
redrawListViews
		jsr	windRefCon		;stuff refcon into windBlk
		
		ldy	#windView
		lda	[<windBlk],y
		cmp	#viewByName
		bge	@listView
		clc
		rts

@listView
		lda	oldPrefer
		eor	newPrefer
		and	#PREF_SHOWDISK
		bne	@noBar
		
		pei	<wind+2
		pei	<wind
		_DrawInfoBar
		brl	@noChange
@noBar

		lda	prefer
		and	#PREF_SHOWDISK
		jsr	resizeInfoBar
@noChange

		pei	<wind+2			Pass window pointer.
		pei	<wind
		_StartDrawing			Setup window for drawing.
		
		ldy	#visRgnOffset		;get our visRgn's handle
		lda	[<wind],y
		sta	<deref
		iny
		iny
		lda	[<wind],y
		sta	<deref+2
		
		lda	[<deref]		;deref it
		tax
		ldy	#2
		lda	[<deref],y
		sta	<deref+2
		stx	<deref
		
		ldy	#8			;move the rgn's boundsrect to a place we can
		ldx	#6
@loop		lda	[<deref],y		;play with it
		sta	<visRECT,x
		dey
		dey
		dex
		dex
		bpl	@loop		
		
		lda	<visRECT+2		;don't redraw the names field since it's
		clc				;never affected
		adc	#dxViewSize-2
		sta	<visRECT+2

		pei <zero
		tdc
		clc
		adc	#visRECT
		pha
		
		pei <zero
		pha
		_EraseRect
		_InvalRect

		jsr	endDraw

@done		clc
		rts


;
; resizeInfoBar -- resize the info bar by growing or shrinking the content
;		   info is resized according to what the preferences say that the
;		   the info bar should contain
;
; IN: (A) = non-zero if adding double, zero if removing double
;
		EXPORT	resizeInfoBar
resizeInfoBar	
		sta	resize
		
		pha				;make the window invisible
		pushZLong <wind
		_GetWFrame
		pla
		and	#$ffdf
		pha
		pushZLong <wind
		_SetWFrame

		pha				;get the content region
		pha
		pushZLong <wind
		_GetContentRgn
		pulllong <deref
		
		lda	[<deref]		;deref it
		tax
		ldy	#2
		lda	[<deref],y
		sta	<deref+2
		stx	<deref
		
		ldy	#8			;move the rgn's boundsrect to a place we can
		ldx	#6
@cLoop		lda	[<deref],y		;play with it
		sta	contentRECT,x
		dey
		dey
		dex
		dex
		bpl	@cLoop		

		lda	resize
		beq	@removeDuble

		pushlong #zoomWithInfo
		pei	<wind+2
		pei	<wind
		_SetZoomRect
		
		lda	contentRECT+y1
		clc
		adc	#12
		sta	contentRECT+y1
		
		lda	contentRECT+y2		;remember, the window WITH the double height
		sec				;info bar MUST be a minimu of 87 pixels tall, or
		sbc	contentRECT+y1		;we might lose the thumb for the scroll bar
		cmp	#39
		bge	@newBar
		
		lda	contentRECT+y1		;if it's not 87 pixels, force the issue
		clc
		adc	#39
		sta	contentRECT+y2
		bra	@newBar
		
@removeDuble	pushlong #zoomWithoutInfo
		pei	<wind+2
		pei	<wind
		_SetZoomRect

		lda	contentRECT+y1
		sec
		sbc	#12
		sta	contentRECT+y1
		
@newBar		pei <zero
		pushlong #contentRECT
		pushZLong <wind
		_ResizeWindow
		
		ldx	<zero
		lda	resize
		beq	@small
		
		ldx	#2
@small		pei <zero
		lda	infoSizes,x
		pha
		pushZLong <wind
		_ResizeInfoBar
		
		pushZLong <wind
		_ShowWindow
		
@noChange	rts	

;
; locals
;
resize		dc.w	0

		EXPORT	contentRECT
contentRECT	ds.b	8
		
		EXPORT	infoSizes
infoSizes	dc.w	11			;no double height info bar
		dc.w	11+12			;double height bar
		
oldPrefer	dc.w	0			;the old preferences settings
newPrefer	dc.w	0			;the new preferences settings

redrawRECT	dc.L	0			;what we need to redraw
		dc.L	0
		
prefsWindowPtr	dc.L	0			;pointer to our preferences window, or NIL

ctlHandle	dc.L	0
ctlValue	dc.w	0

ctlMatchTable	dc.w	PREF_DATA
		dc.w	PREF_HDATA
		dc.w	PREF_AUTO525
		dc.w	PREF_COLOR
		dc.w	PREF_SHOWDATE
		dc.w	PREF_SHOWSIZE
		dc.w	PREF_SHOWKIND
		dc.w	PREF_SHOWDISK
		ENDP

*===============================================*
*	Do the Verify Menu			*		
*===============================================*

VerifyMenu	PROC
	
		IMPORT	doAlertWindow
		IMPORT	PathGetRoot
		IMPORT	InsertItemRef
		IMPORT	AddWindow2Menu
		IMPORT	VerifyHeight
		IMPORT	VerifyWidth

		stz	verWindCount

		jsr	noRename			;Remove any rename field.

		lda	#Verify250
		brl	findSelect			;Verify all selected disks.

; = = =	= = = =	= = = =	= = = =	= = = =	= = =
;	   Verify a Volumn's Medium.  Added 5/5/88 DJB
; = = =	= = = =	= = = =	= = = =	= = = =	= = =
;
;   IN:	   ic =	pointer	to ICONOBJ.
;
; = = =	= = = =	= = = =	= = = =	= = = =	= = =
Verify250
		ldy	#icFType			;an icon that can be verified?
		lda	[<ic],y
		bpl	exit250				;not a device icon
		cmp	#TypeFTrash			;Trash can?
		bcs	exit250
		cmp	#TypeFDrive			;5.25 Floppy Drive?
		beq	exit250
		cmp	#TypeServer			;Server volume?
		beq	exit250
		cmp	#TypeNetwork			;Network?
		beq	exit250

		ldy	#icFlag				;make sure it's online
		lda	[<ic],y
		and	#ICOFFLINE
		bne	exit250

		jsl	WatchCursor

		jsr	buildPath			;C1_PathName = icon's name with a separator.
		bcs	exit250				;Pathname error?

		PushLong #C1_FileName
		PushLong #C1_PathName
		jsl	PathGetRoot			;get name of "root"

		pha
		pha
		PushLong #C1_PathName 
		jsl	VerifyMedium
		
		jsl	arrowCursor

		pla
		sta	>verifyData
		sta	<temp
		pla
		bmi	exit250				;user aborted
		sta	>verifyData+2
		sta	<temp+2
		ora	>verifyData
		bne	window250

		pea	$C005				;task accomplished
		_SysBeep2

		lda	#rasVerifyGood			;tell the user they're lucky
		jsl	doAlertWindow
		clc
exit250		rts

;--- Allocate info block for Bad Block window -----------------------
window250
		lda	#rasVerifyBad			; ask user for summary
		jsl	doAlertWindow
		clc
		beq	exit250

		jsr	ckIfWind			;Is there enough memory for a window?
		bcs	exit250				;no

		lda	[<temp]
		tax
		ldy	#2
		lda	[<temp],y
		sta	<temp+2
		stx	<temp
		
		pha
		pha
		lda	[<temp]
		pha
		pea	9
		_Multiply
		pla
		sta	>VerifyHeight
		pla
		sta	>VerifyHeight+2

		lda	#60
		sta	>verifyWidth
		lda	<zero
		sta	>verifyWidth+2

;
; find out where the first Ò starts and store our name and enclosing quote after it for the window's title
;
		sep	#$20
		LONGA OFF
		ldx	<zero
@vLoop1		inx
		lda	>verifyBlk+windTitle,x
		cmp	#'Ò'
		bne	@vLoop1	
		stx	<work
		rep	#$20
		LONGA ON
		
		txa
		clc
		adc	#verifyBlk+windTitle
		sta	<temp
		lda	#verifyBlk>>16
		sta	<temp+2

		lda	<zero
		
		sep	#$20
		LONGA OFF	
		ldy	#icName
		lda	[<ic],y
		clc
		adc	<work		
		inc	a				;+1 for closing Ó
		inc	a				;+1 for closing space
		sta	>verifyBlk+windTitle		;new length of the title

		ldy	#icName
		lda	[<ic],y
		tax
		clc
		adc	#icName
		tay
		
@vLoop2		lda	[<ic],y	
		phy
		txy
		sta	[<temp],y
		ply
		dey
		dex
		bne	@vLoop2
		
		ldy	#icName
		lda	[<ic],y
		clc
		adc	<work
		tax
		
		lda	#'Ó'
		sta	>verifyBlk+windTitle+1,x
		lda	#' '
		sta	>verifyBlk+windTitle+2,x
		rep	#$20
		LONGA ON

;
; find out where the first Ò starts and store our name and enclosing quote after it for the window's title
;
		sep	#$20
		LONGA OFF
		ldx	<zero
@vLoop3		inx
		lda	>verifyBlk+windMenuText,x
		cmp	#'Ò'
		bne	@vLoop3	
		stx	<work
		rep	#$20
		LONGA ON
		
		txa
		clc
		adc	#verifyBlk+windMenuText
		sta	<temp
		lda	#verifyBlk>>16
		sta	<temp+2

		lda	<zero
		
		sep	#$20
		LONGA OFF	
		ldy	#icName
		lda	[<ic],y
		clc
		adc	<work		
		inc	a				;+1 for closing Ó
		sta	>verifyBlk+windMenuText		;new length of the title

		ldy	#icName
		lda	[<ic],y
		tax
		clc
		adc	#icName
		tay
		
@vLoop4		lda	[<ic],y	
		phy
		txy
		sta	[<temp],y
		ply
		dey
		dex
		bne	@vLoop4
		
		ldy	#icName
		lda	[<ic],y
		clc
		adc	<work
		tax
		
		lda	#'Ó'
		sta	>verifyBlk+windMenuText+1,x
		rep	#$20
		LONGA ON

;
; OK, allocate the memory for the verify block now
;
		lda	#endVerifyBlk-verifyBlk		;size of info block for window.
		ldx	#$4000				;Locked, anywhere.
		jsr	allocate2			;Allocate an info block.
		
		jsr	derefHand			;Dereference the handle.
		sta	>verifyBlkPtr			;refCon = window's info block.
		sta	>verifyInfoRef			;infoRefCon = window's info block.
		tay
		txa
		sta	>verifyBlkPtr+2
		sta	>verifyInfoRef+2

		tya
		clc					;Store pointer to window's title in
		adc	#windTitle			;window parameter table.
		bcc	store250
		inx
store250	sta	>verifyTPtr			;Pointer to window's title.
		txa
		sta	>verifyTPtr+2

		lda	#^GetVerifyInfo			;set Draw procedures up
		sta	>verifyInfoProc+2
		lda	#GetVerifyInfo
		sta	>verifyInfoProc

		lda	#^GetVerifyGuts
		ora	#$C000
		sta	>verifyGutsProc+2
		lda	#GetVerifyGuts
		sta	>verifyGutsProc

		lda	<zero
		sta	>verifyBlk+windIcons
		sta	>verifyBlk+windIc
		sta	>verifyBlk+windIcons+2
		sta	>verifyBlk+windIc+2

		ldy	#(endVerifyBlk-verifyBlk)-2	;Initialize info block.
@loop		tyx
		lda	>verifyBlk,x
		sta	[<temp],y
		dey
		dey
		bpl	@loop

;
; --- Create Verify window ----------------------------------------------
;
		ENTRY	open250
open250
		inc	verWindCount
		lda	verWindCount
		asl	a
		asl	a
		asl	a			;times 8 pixels
		tax
		clc
		adc	#verifyY1
		sta	>verifywRect+y1
		txa
		clc
		adc	#verifyY2
		sta	>verifywRect+y2
		txa
		asl	a			;times 16 pixels
		tax
		clc
		adc	#verifyX1
		sta	>verifywRect+x1
		txa
		clc
		adc	#verifyX2
		sta	>verifywRect+x2

		pha				;Space for result.
		pha
		pushlong #verify_param		;ptr to NewWindow parameter list.
		_NewWindow
		pla
		plx
		inc	myWindCount		;keep track of windows.

;
; Now that the window's been created, add it into the Windows menu
;
		pha
		pha
		phx
		pha
		_GetWRefCon
		pulllong wind_ref
		
		lda	wind_ref
		clc
		adc	#windMenuText
		sta	insertItemRef+10
		lda	wind_ref+2
		adc	<zero
		sta	insertItemRef+12		
		
		jmp	addWindow2Menu		;add the trash to the windows menu
		ENDP

*===============================================*
*	Do the Shut Down Menu			*		
*===============================================*

ShutDownMenu	PROCNAME

		IMPORT 	setGSOSAlerts,ejectAllDisks
		import 	sayGoodbyeToExtensions
		import	WindowGlobalON,WindowGlobalOFF
		import	defaultQuitMethod
		IMPORT	CloseThisWindow		;in Util.aii - 27-Jan-93 JCM

		jsl	WindowGlobalON
		
		pha
		pha
		lda <zero
		pha
		pha				;titlePtr
		pha
		pha				;refCon is ptr to our window info block
		pha
		pha				;content draw proc
		pha
		pha				;window defproc
		pea	2			;refIsResource
		pushlong #4			;window resource we want
		pea	$800e			;rWindParam1
		_NewWindow2
		jsl	WindowGlobalOFF
		pulllong <deref
		bcc	@ok
	
;
; close the window only if something bad happened and we actually have a window pointer
; because something could have happened when we went to add controls (but didn't
; get created because we couldn't find the disk or the resource)
;
		lda	<deref+1		;check the middle 2 bytes of the pointer
		beq	@leave

@done		lda	<deref
		ldx	<deref+2
		jsl	CloseThisWindow

*** Added 21-Jan-93 JCM

;;;@leave	_InitCursor

@leave		jsl	ArrowCursor
		
*** End - 21-Jan-93 JCM		
		
		rts


;
; cool.  we got the resources we needed and have a window -- so call DoModalWindow
;
*** Added 21-Jan-93 JCM

;;;@ok		_InitCursor

@ok		jsl	ArrowCursor
		
*** End - 21-Jan-93 JCM		
		

*** added 23-Jun-92 DAL -- do default choice for Quit dialog
		pha
		pha
		_GetPort
		pha
		pha
		_FrontWindow
		_SetPort
		_HidePen
		lda defaultQuitMethod
		and #$0003
		beq @normalDefault
		tax
		jsr setCtlID
@normalDefault	_ShowPen
		_SetPort
*** end 23-Jun-92

@dmLoop		pha
		pha
		jsr	pushTask	;push the task record's ptr
		lda <zero
		pha
		pha			;update proc
		pea $8000
		pha			;eventHook $80000000
		pha
		pha			;beep proc
		pea	$c010		;flags
		_DoModalWindow

		pla
		plx
		tay
		bne	@notNIL
		txy
		bne	@notNIL	

		lda	<what
		cmp	#3
		beq	@gotKEY
		cmp	#5
		bne	@dmLoop
	

;
; we got a keypress back in our null events
;
@gotKEY		lda	<message
		and	#$00ff
		cmp	#$0B		;is it up arrow?
		beq	@up
		cmp	#$0A		;is it down arrow?
		bne	@dmLoop
	
;
; Down-arrow
;
@down		jsr	getRadButton
		cmp	#2
		beq	@dmLoop

		inc	a
		tax
		jsr	setCtlID
		bra	@dmLoop
	
;
; Up-arrow
;
@up		jsr	getRadButton
		beq	@dmLoop

		dec	a
		tax
		jsr	setCtlID
		bra	@dmLoop
		
;
; they actually hit a control (ie, don't number them from zero)
;
@notNIL		cmp	#5
		blt	@dmLoop
		bne	@radButton
		brl	@done

@radButton	jsr 	getRadButton		;0, 1, or 2
		asl 	a			;0, 2, or 4
		pha				;save doubled index

		lda	<deref
		ldx	<deref+2
		jsl	CloseThisWindow
		
		plx				;pre-doubled index
		jmp	(@addr,x)

;
; addresses for shutdown routines
;
@addr		dc.W	ShutItDown		;rad button 0
		dc.W	Restart270		;rad button 1
		dc.W	ID_QUIT			;rad button 2

;
; set the ID in (X) to <ON>
;
setCtlID	pha
		pha
		pushZlong <deref
		pei <zero
		phx
		_GetCtlHandleFromID
		pea	1
		lda	3,s
		sta	1,s
		lda	5,s
		sta	3,s
		_SetCtlValue
		rts

;
; get our radio button
;
getRadButton	pha
		pushZlong <deref
		pei <zero
		_FindRadioButton
		pla
		rts

; shutdown routines
;.....................................................................

		EXPORT	ShutItDown
		EXPORT	RealShutdown
		EXPORT	RealRestart
ShutItDown					; Shut Down selected
		stz	quit_path		; Mark "no name to quit to..."
		stz	quit_path+2
		
		lda	#$C001
		sta	quit_flags		; let event loop handle this baby
		rts
		
RealShutDown	stz	shutdown_flag		; flag = power down

goodbye

		jsl SayGoodbyeToExtensions	;10-Jul-91 DAL

		_DeskShutdown			; shutdown the Desk Manager.

		pei <zero
		jsl	SetGSOSAlerts		; enable GS/OS alerts - 02/17/89
		
		jsl	Prodos
		DC.W	OS_SHUTDOWN+C1
		DC.L	shutdown_list
		rts				; it should never come back!!

;-----------------------------------------------
Restart270	stz	quit_path		; Mark "no name to quit to..."
		stz	quit_path+2
		
		lda	#$C003
		sta	quit_flags		; let event loop handle this baby
		rts
		
RealRestart	lda	#1
		sta	shutdown_flag		; flag = cold boot
		bra	goodbye

StopTick	DC.L	0
;-----------------------------------------------

		EXPORT	ID_QUIT		
ID_QUIT		stz	quit_path		Mark 'no name to quit to'.
		stz	quit_path+2

		lda	#$C000
		sta	quit_flags
		rts

		ENDP

*===============================================*
*	Do the Validate Menu			*		
*===============================================*

ValidateMenu	PROC

		IMPORT	verifyWidth
		IMPORT	verifyHeight

		jsr	noRename		;Remove any rename field.

		lda	#Validate280		;Rountine to do Validation.
		brl	findSelect		;do it for each icon.

; = = =	= = = =	= = = =	= = = =	= = = =	= = =
;	   Validate a File System.  Added 5/24/88 DJB
; = = =	= = = =	= = = =	= = = =	= = = =	= = =
;
;   IN:	   ic =	pointer	to ICONOBJ.
;
; = = =	= = = =	= = = =	= = = =	= = = =	= = =
Validate280
		ldy	#icFType		;an icon that can be validated?
		lda	[<ic],y
		cmp	#TypeFTrash		;Trash can?
		bcs	exit280
		cmp	#TypeFDrive		;5.25 Floppy Drive?
		beq	exit280

		jsl	WatchCursor

		jsr	buildPath		;C1_PathName = icon's name with a separator.
		bcs	exit280			;Pathname error?

		jsl	ValidateFile		; pointer to bad data
		bcc	@imdone
		jsr	window280
@imdone		

		jsl	arrowCursor
		clc
exit280		rts
	
;	
; --- Allocate info block for Bad Files window -----------------------
;
window280	sta	>validateData			;handle to verify data buffer
		sta	<work
		txa
		sta	>validateData+2
		sta	<work+2
		
		lda	[<work]				;dereference this handle
		tax
		ldy	#2
		lda	[<work],y
		sta	<work+2
		stx	<work
		
		pha
		pha
		lda	[<work]
		pha
		pea	9
		_Multiply
		pla
		sta	>verifyHeight
		pla
		sta	>verifyHeight+2
		
		lda	#280
		sta	>verifyWidth
		lda	#280>>16
		sta	>verifyWidth+2

;
; find out where the first Ò starts and store our name and enclosing quote after it for the window's title
;
		sep	#$20
		LONGA OFF
		ldx	<zero
@vLoop1		inx
		lda	>validateBlk+windTitle,x
		cmp	#'Ò'
		bne	@vLoop1	
		stx	<work
		rep	#$20
		LONGA ON
		
		txa
		clc
		adc	#validateBlk+windTitle
		sta	<temp
		lda	#validateBlk>>16
		sta	<temp+2

		lda	<zero
		
		sep	#$20
		LONGA OFF	
		ldy	#icName
		lda	[<ic],y
		clc
		adc	<work		
		inc	a				;+1 for closing Ó
		inc	a				;+1 for closing space
		sta	>validateBlk+windTitle		;new length of the title

		ldy	#icName
		lda	[<ic],y
		tax
		clc
		adc	#icName
		tay
		
@vLoop2		lda	[<ic],y	
		phy
		txy
		sta	[<temp],y
		ply
		dey
		dex
		bne	@vLoop2
		
		ldy	#icName
		lda	[<ic],y
		clc
		adc	<work
		tax
		
		lda	#'Ó'
		sta	>validateBlk+windTitle+1,x
		lda	#' '
		sta	>validateBlk+windTitle+2,x
		rep	#$20
		LONGA ON

;
; find out where the first Ò starts and store our name and enclosing quote after it for the window's title
;
		sep	#$20
		LONGA OFF
		ldx	<zero
@vLoop3		inx
		lda	>validateBlk+windMenuText,x
		cmp	#'Ò'
		bne	@vLoop3	
		stx	<work
		rep	#$20
		LONGA ON
		
		txa
		clc
		adc	#validateBlk+windMenuText
		sta	<temp
		lda	#validateBlk>>16
		sta	<temp+2

		lda	<zero
		
		sep	#$20
		LONGA OFF	
		ldy	#icName
		lda	[<ic],y
		clc
		adc	<work		
		inc	a				;+1 for closing Ó
		sta	>validateBlk+windMenuText	;new length of the title

		ldy	#icName
		lda	[<ic],y
		tax
		clc
		adc	#icName
		tay
		
@vLoop4		lda	[<ic],y	
		phy
		txy
		sta	[<temp],y
		ply
		dey
		dex
		bne	@vLoop4
		
		ldy	#icName
		lda	[<ic],y
		clc
		adc	<work
		tax
		
		lda	#'Ó'
		sta	>validateBlk+windMenuText+1,x
		rep	#$20
		LONGA ON


;
; OK, allocate the memory for the window...
;
		jsr	ckIfWind			;Is there enough memory for a window?
		bcc	@ok
		rts					;no
@ok

		lda	#endValidateBlk-validateBlk	;size of info block for window.
		ldx	#$8000				;Locked, anywhere.
		jsr	allocate2			;Allocate an info block.
		jsr	derefHand			;Dereference the handle.
		
		sta	>verifyBlkPtr			;refCon = window's info block.		
		sta	>verifyInfoRef			;infoRefCon = window's info block.
		tay
		txa
		sta	>verifyInfoRef+2
		sta	>verifyBlkPtr+2

		tya
		clc					;Store pointer to window's title in
		adc	#windTitle			;window parameter table.
		bcc	store280
		inx
store280	sta	>verifyTPtr			;Pointer to window's title.
		txa
		sta	>verifyTPtr+2
		
		lda	#^GetValidInfo			;set Draw procedures up
		sta	>verifyInfoProc+2
		lda	#GetValidInfo
		sta	>verifyInfoProc
		
		lda	#^GetValidGuts
		ora	#$C000
		sta	>verifyGutsProc+2
		lda	#GetValidGuts
		sta	>verifyGutsProc

		lda	<zero
		sta	>validateBlk+windIcons
		sta	>validateBlk+windIc
		sta	>validateBlk+windIcons+2
		sta	>validateBlk+windIc+2

		ldy	#(endValidateBlk-validateBlk)-2	;Initialize info block.
@loop		tyx
		lda	>validateBlk,x
		sta	[<temp],y
		dey
		dey
		bpl	@loop
			
		brl	open250				; borrow code from Verify
		ENDP
		
*===============================================
*	Get a new UNTITLED name.
*
* Appends an '.a', '.b', '.c'...
*
* IN:	C1_PathName (ending in "untitled")
*
* OUT:	C1_PathName (ending in "untitled.a")
*	carry set if no more names
*
* 13-Jan-93 DAL: Made suffixes lowercase
*
*===============================================

NewUntitled	PROC	EXPORT

		ldy	C1_PathName		;offset to '.X' suffix
		lda	C1_PathName,y
		tax
		and	#$00FF
		cmp	#'.'			;have we started appending ?
		bne	next
		txa
		bra	skip
next
		inc	C1_PathName		;increase length by two
		inc	C1_PathName

		lda	#$602E			;'.a', '.b', '.c',...
skip
;;;		clc
;;;		adc	#$0100
*** optimized 13-Jan-93 DAL
		xba
		inc	a
		xba
*** end 13-Jan-93
		cmp	#$7B2E			; passed '.z' ?
		bcs	exit
		
		ldy	C1_PathName		; offset to '.x' suffix
		sta	C1_PathName,y		
;;;		clc
exit		rts

		ENDP

;==============================================
;	Set menu items to state of desktop
;==============================================
;
; IN:	curWind = current selected window plane
;
;==============================================

CheckMenus	PROCNAME EXPORT

		IMPORT	IconStates
		IMPORT	ChangeMenus
		IMPORT	matchedFirst
		IMPORT	matchFirst
		IMPORT	walkWindow
		IMPORT	findDisk
		
		lda	DeskIconState		; remember last state
		sta	LastIconState
		lda	DeskWindState
		sta	LastWindState

		stz	DeskIconState		; start with state flags cleared
		stz	DeskWindState

;--- Find out state of	icons ------------------

		lda	>TrashBlk+1		; any items in trash window ?
		beq	chkIcons

		lda	#winTrashFull		; set 'something in Trash'
		tsb	DeskWindState

chkIcons	lda	#IconStates
		jsr	findSelect


;--- Find out state of windows	----------------

		stz	matchedFirst
		lda	#DirWindID+InfoWindID+TrashWindID+ClipWindID+VerifyWindID+AboutWindID+HelpWindID
		ldx	#matchFirst		;don't check for anything, match the first open dir window
		jsr	walkWindow		;we don't want opened sys windows

		lda	matchedFirst		;did we match for the first window?
		bne	@hasFinderWindows

		lda	#winNoFinder
		tsb	DeskWindState

@hasFinderWindows lda	#$FFFF			; any front window ?
		jsr	getFrontWind
		bne	winType
		lda	#winDeskTop		; set desktop only (no windows)
		tsb	DeskWindState
		brl	done			; all done

winType		tax
		cpx	#DirWindID
		bne	chkTrash

		ldy	#windDiskIc		;icHand = disk that icon came from
		lda	[<windBlk],y
		sta	<icHand
		iny
		iny
		lda	[<windBlk],y
		sta	<icHand+2

		lda	[<icHand]
		sta	<ic
		ldy	#2
		lda	[<icHand],y
		sta	<ic+2
		
		ldy	#icFlag
		lda	[<ic],y
		and	#icOffline
		beq	@notOffline
		
		lda	#winOffline
		tsb	DeskWindState
		
@notoffline	lda	[<ic],y
		and	#icLocked
		beq	@notLocked
		
		lda	#winLocked
		tsb	DeskWindState
@notLocked
		
;
; look at the icon which opened into this window and see if we're able to write to it
; if we get here, we're definitely a directory window
;
		ldy	#icFlag+2		;look at the network bit first from the original disk
		lda	[<ic],y
		and	#icNetwork>>16
		beq	@notFromNetwork		;if not a network volume, don't continue

		ldy	#windAccess		;see if this icon says we can make changes
		lda	[<windBlk],y
		and	#icMakeChanges
		bne	@notFromNetwork
		
		lda	#winLocked		;if not, say winLocked
		tsb	DeskWindState
@notFromNetwork

		ldy	#windView		; Is directory window viewed by text?
		lda	[<windBlk],y
		cmp	#viewByName
		bcc	noText

		lda	#winTopDir+winTopText	; view by text directory window on top
		bra	setIt

noText		lda	#winTopDir		; view by icon directory window on top
		bra	setIt

;--- Check Trash and Clipboard ----------------

chkTrash	cpx	#TrashWindID		; is it the trash window ?
		bne	notTrash		; No, try clipboard.
		ldy	#windView		; see if it viewed by text
		lda	[<windBlk],y
		cmp	#viewByName
		bcc	TrashByIcon
		lda	#winTopTrash+winTopText
		bra	setIt
TrashByIcon	lda	#winTopTrash
		bra	setIt

notTrash	lda	#winTopClip		; Clip window on top (just in case)
		cpx	#ClipWindID
		beq	setIt

		lda	#winTopInfo		; Info window on top (just in case)
		cpx	#InfoWindID
		beq	setIt

		lda	#winTopAbout		; about window on top (just in case)
		cpx	#AboutWindID
		beq	setIt
		
		lda	#winTopHelp		; about window on top (just in case)
		cpx	#HelpWindID
		beq	setIt

		lda	#winTopVerify
		cpx	#VerifyWindID
		beq	setIt

		cpx	#SysWindID
		bne	any

		lda	#winTopSys		; system window on top
setIt		tsb	DeskWindState

any		lda	#winAny			; there must be some window up
		tsb	DeskWindState

done		brl	ChangeMenus

		ENDP
		
*===============================================*
*	Change the state of menu items		*
*						*
* IN:	DeskIconState				*
*	LastIconState				*
*	DeskWindState				*
*	LastWindState				*
*						*
* Out:	none					*
*===============================================*

ChangeMenus	PROCNAME

		IMPORT	SetMenuFlag
		IMPORT	FixMenuTitles
		IMPORT	FixTrash
		
		stz	MenuChange

		lda	DeskIconState		; have there been any icon changes?
		eor	LastIconState
		beq	testWind
		sta	LastIconState		; remember bits that changed
		
		inc	MenuChange

;
; --- Do Color menu by hand ---------------------
;
		lda	#iconAny
		and	LastIconState		; has the state changed?
		beq	iconMenus		; no

		ldy	#MENUENABLE
		lda	#iconAny
		and	DeskIconState		; is change to enable or disable?
		bne	store
		ldy	#MENUDISABLE
store		lda	#idColorMenu		; pass menu id		
		jsr	SetMenuFlag

;
; --- Icon Menu Items ---------------------------
;
iconMenus
		ldx	#(endIconItem-iconItemTbl)-2
loop1		lda	iconItemTbl-2,x		; get the enable bits
		and	LastIconState		; has the state changed?
		bne	change1			; yes
		lda	iconItemTbl,x		; get the over ride bits
		beq	next1			; none
		and	LastIconState		; has the state changed?
		beq	next1			; no

change1		ldy	#ITEMENABLE
		lda	iconItemTbl-2,x		; get the enable bits again
		and	DeskIconState		; were any of ours set?
		beq	forceDim1		; no
		lda	iconItemTbl,x		; get the over ride bits
		beq	ok1
		and	DeskIconState		; were any of ours set?		
		beq	ok1			; no
forceDim1	ldy	#ITEMDISABLE

ok1		phx				; save index

		phy				; pass flag change
		lda	iconItemTbl-4,x
		pha				; pass item's ID number
		_SetMItemFlag

		plx				; restore index
next1		dex
		dex
		dex
		dex
		dex
		dex
		bpl	loop1

;
; --- Check window related menu items -----------
;
testWind	lda	DeskWindState		; have there been any window changes?
		eor	LastWindState
		bne	delta
		brl	done			; no changes, so exit

delta		inc	MenuChange	
		sta	LastWindState		; remember bits that changed
		and	#winTrashFull		; has the state of the Trash changed?
		beq	windMenus

		jsr	FixTrash
	
;		
; --- Window Menu Items -------------------------
;
windMenus	ldx	#(endWindItem-windItemTbl)-2

loop2		lda	windItemTbl-2,x		; get the enable bits
		and	LastWindState		; has the state changed?
		bne	change2			; yes
		lda	windItemTbl,x		; get the over ride bits
		beq	next2			; none
		and	LastWindState		; has the state changed?
		beq	next2			; no

change2		ldy	#ITEMENABLE
		lda	windItemTbl-2,x		; get the enable bits again
		and	DeskWindState		; were any of ours set?
		beq	forceDim2		; no
		lda	windItemTbl,x		; get the over ride bits
		beq	ok2
		and	DeskWindState		; were any of ours set?		
		beq	ok2			; no
forceDim2	ldy	#ITEMDISABLE

ok2		phx				; save index

		phy				; pass flag change
		lda	windItemTbl-4,x
		pha				; pass item's ID number
		_SetMItemFlag

		plx				; restore index

next2		dex
		dex
		dex
		dex
		dex
		dex
		bpl	loop2

done		lda	MenuChange		; any changes ?
		beq	exit
		jsr	FixMenuTitles

exit		rts


;-------------------------------------------------------
; menu item table format:
; menu id, enable bits, disablebits (overides enable bits)
;-------------------------------------------------------

;--- menu items related strictly to icon states

iconItemTbl	dc.W	idOpen,iconAny,iconOffline+iconNoAccess
		dc.W	idPrint,iconDocument,iconOffline+iconNoAccess
		dc.W	idIconInfo,iconAny,0
		dc.W	idDuplicate,iconFile,iconOffline+iconNoAccess+iconTrash+iconDrive+iconDisk+iconInLocked+iconInTrash+iconExtended
		dc.W	idPutAway,iconExtended+iconRemovable,iconTrash+iconDrive
		dc.W	idEject,iconRemovable,iconOffline+iconFloppy
		dc.W	idErase,iconDisk,iconOffline+iconLocked+iconServer+iconTrash+iconDrive
		dc.W	idFormat,iconDisk,iconOffline+iconLocked+iconServer+iconTrash+iconDrive
		dc.W	idVerify,iconDisk,iconOffline+iconServer+iconTrash+iconDrive
		dc.W	idValidate,iconDisk+iconFile,iconOffline+iconNoAccess+iconTrash+iconDrive
endIconItem

;--- menu items related strictly to window states

windItemTbl	dc.W	idClose,winAny,0
		dc.W	idCloseAll,winAny,0
		dc.W	idNewFolder,winTopDir,winOffline+winLocked
		dc.W	idUndo,winTopSys,0
		dc.W	idCut,winTopSys+winTopInfo,0
		dc.W	idCopy,winTopSys+winTopHelp+winTopInfo,0
		dc.W	idPaste,winTopSys+winTopInfo,0
		dc.W	idClear,winTopSys+winTopInfo,0
		dc.W	idEmptyTrash,winTrashFull,0
		dc.W	idSelectAll,winDeskTop+winTopDir+winTopTrash+winTopHelp+winTopInfo,0
		dc.W	idCleanUp,winDeskTop+winTopDir+winTopTrash,winTopText
		dc.W	idByIcon,winTopDir+winTopTrash,0
		dc.W	idByTinyIcon,winTopDir+winTopTrash,0
		dc.W	idByName,winTopDir+winTopTrash,0
		dc.W	idByDate,winTopDir+winTopTrash,0
		dc.W	idBySize,winTopDir+winTopTrash,0
		dc.W	idByKind,winTopDir+winTopTrash,0
		dc.W	idStackWindows,winTopDir+winTopInfo+winTopTrash+winTopClip+winTopAbout+winTopHelp+winTopSys+winTopVerify,winNoFinder
endWindItem

		ENDP
		
*===============================================*
*	Fix State of Menu Titles		*
*						*
* IN:	a-reg = menu id				*
*	y-reg = menu flag			*
*						*
* OUT:	none					*
*===============================================*

SetMenuFlag	PROC

		sta	<temp			; save menu id
		phy				; pass menu flag
		pha				; pass menu id
		_SetMenuFlag

		pei <zero			; pass unhilite flag
		PushZWord <temp			; pass menu id
		_HiliteMenu
		rts

		ENDP

*=======================================*
*	Fix State of Menu Titles	*
*					*
* IN:	none				*
* OUT:	none				*
*=======================================*

FixMenuTitles	PROC

		ldx	<zero		; x is index into table

menuLoop	lda	MenuItems,x
		beq	exit		; no more titles
		sta	<work		; remember title's id
		inx
		inx
		lda	#ITEMDISABLE	; assume disabled to start
		sta	<temp

itemLoop	lda	MenuItems,x
		beq	setTitle
		ldy	<temp		; have we found an enabled item?
		cpy	#ITEMENABLE
		beq	next
		phx			; save x
		pha			; space for flag
		pha			; pass id
		_GetMItemFlag
		pla			; check item's flag
		plx
		and	#ITEMDISABLE	; is it disabled ?
		bne	next		; yes, so on to next item
		lda	#ITEMENABLE	; change our assumption	
		sta	<temp		
next		inx
		inx
		bra	itemLoop	; check next item
		
setTitle	phx			; save x

		pha			; space for flag
		PushZWord <work		; pass id
		_GetMenuFlag
		pla			; check current menu flag
		and	#ITEMDISABLE
		bne	check
		lda	#ITEMENABLE
check		cmp	<temp		; already set ?
		beq	endSet

		ldy	<temp		; menu flag
		lda	<work		; menu id
		jsr	SetMenuFlag

endSet		plx			; restore x
		inx
		inx
		bra	menuLoop	; process next title		

exit		rts


;-----------------------------------------------

MenuItems	DC.W	idFileMenu
		DC.W	idNewFolder
		DC.W	idOpen
		DC.W	idPrint
		DC.W	idClose
		DC.W	idCloseAll
		DC.W	idDuplicate
		DC.W	idPutAway
		DC.W	idValidate
		DC.W	0
		dc.W	idWindowsMenu
		dc.W	idStackWindows
		dc.W	0
		DC.W	idViewMenu
		DC.W	idByIcon
		DC.W	idByTinyIcon
		DC.W	idByName
		DC.W	idByDate
		DC.W	idBySize
		DC.W	idByKind
		DC.W	0
		DC.W	idDiskMenu
		DC.W	idFormat
		DC.W	idErase
		DC.W	idVerify
		DC.W	idEject
		DC.W	0,0
		
		ENDP

*=======================================*
*	Fix State of Menu Titles	*
*					*
* IN:	DeskWindState			*
*	TrashIc				*
* OUT:	none				*
*=======================================*

FixTrash	PROCNAME

		IMPORT	MatchFileToIcon
		IMPORT	AddIconRgn
		IMPORT	GetRectRgn
		IMPORT	RedrawList

		pushZLong <curWind
		
		lda	>TrashIc		; Get handle of Trash icon
		sta	<icHand
		lda	>TrashIc+2
		sta	<icHand+2
		jsr	lockic

		jsr	toDesktop		; Switch to desktop 
		jsr	toDeskPort		; Switch to desktop port

		lda	<deskport		Switch to desktop.
		sta	<curWind
		lda	<deskport+2
		sta	<curWind+2

		jsr	GetRectRgn
		jsr	AddIconRgn
				
		ldx	#TypeTrash		; empty trash file type
		lda	DeskWindState
		and	#winTrashFull		; empty or not?
		beq	store2
		dex
		phx
		pea	$8042			
		_SysBeep2
		plx
store2		stx	<filetype		; store type of icon to match

		stz	auxtype
		stz	ticonobj+icOptionList	;nobody home
		stz	ticonObj+icLocalAccess
		stz	ticonobj+icForked
		
;
; andy and dave -- fix the trashcan disappearing and sometimes turning into an apple
;                  folder bug.

		longa off
		longi off
		sep #$30
		
		lda	>trashBlk+windMenuText
		tax
@tLoop		lda	>trashBlk+windMenuText,x
		sta	ticonobj+icName,x	;added ,x 17-Oct-92 DAL
		dex
		bpl	@tLoop

		longa on
		longi on
		rep #$30
;end fix

		tsc
		sec
		sbc	#20			;put 5 longs on the stack
		tcs
		pea	$8000			;don't care about voting, match all
		pea	1			;match the first one
		pei	<filetype
		lda <zero
		pha
		pha				;auxtype
		pushlong #ticonobj+icName
		pushlong #ticonobj+icCDate
		pushlong #ticonobj+icMDate
		pha				;ticonobj+icLocalAccess
		pha				;ticonobj+icForked
		pha
		pha				;ticonobj+icOptionList
		pha
		pha				;no eof
		jsl	matchFileToIcon
		pla
		ldy	#icOneDocOffset
		sta	[<ic],y
		iny
		iny
		pla
		sta	[<ic],y

		pla
		ldy	#icRBundle
		sta	[<ic],y
		iny
		iny
		pla
		sta	[<ic],y

		pla
		ldy	#icSmallIcon
		sta	[<ic],y
		iny
		iny
		pla
		sta	[<ic],y

		pla
		ldy	#icIcon
		sta	[<ic],y
		iny
		iny
		pla
		sta	[<ic],y
		
		pla
		pla		
		
		jsr	AddIconRgn
		jsr	RedrawList
					
		jsr	unlockic		; leave Trash icon unlocked

		lda	<filetype
		cmp	#TypeTrash		; did we go to an empty trash ?
		bne	exit

		lda	<TrashWind		; switch to the Trash plane
		sta	<curWind
		lda	<TrashWind+2
		sta	<curWind+2
		jsr	getwRefCon		; get the window's info block

		ldy	#windItems		; set number of items in window
		lda	[<windBlk],y
		beq	exit			; already empty
		lda	<zero
		sta	[<windBlk],y

		jsr	startDraw		; erase the content region

		stz	<dRect+y1
		stz	<dRect+x1
		lda	#200
		sta	<dRect+y2
		lda	#640
		sta	<dRect+x2
		jsr	pushrect
		_EraseRect

		jsr	endDraw

		pei	<TrashWind+2
		pei	<TrashWind
		_DrawInfoBar			; redraw info bar item count
		
exit		pulllong <curWind
		rts
		ENDP

*===============================================*
* Set DeskIconState bits for selected icons	*
* --> Called from findSelect			*
*						*
* IN:	ic = pointer to selected ICONOBJ	*
*						*
* OUT:	DeskIconState is updated		*
*===============================================*

IconStates	PROCNAME

		IMPORT	GetWindPath
		IMPORT	ClonePath
		IMPORT	FindDisk
		IMPORT	isReadOnly
		IMPORT	EjectNonRemovable

		ldy	#icMom+2
		lda	[<ic],y
		tax
		dey
		dey
		lda	[<ic],y
		
		jsr	GetWRefCon2		;setup wind and windBlk

		ldy	#icFlag			; is this an extended icon ?
		lda	[<ic],y
		and	#ICEXTENDED
		beq	@notExtended
		lda	#iconExtended		; an extended icon is selected
		tsb	DeskIconState
@isDiskIcon	brl	@isReadOnly	

@notExtended	ldy	#icFType		;don't check this stuff for disk icons		
		lda	[<ic],y
		bmi	@isDiskIcon

		pushZLong <icHand
		pushZLong <ic
		
		ldy	#windDiskIc		;icHand = disk icon that window came from
		lda	[<windBlk],y
		sta	<icHand
		iny
		iny
		lda	[<windBlk],y
		sta	<icHand+2
		
		lda	[<icHand]
		sta	<ic
		ldy	#2
		lda	[<icHand],y
		sta	<ic+2
	
		ldy	#icFlag			
		lda	[<ic],y
		and	#icLocked
		beq	@notLocked
		
		lda	#iconInLocked		
		tsb	DeskIconState		

@notLocked	pulllong <ic
		pulllong <icHand

		ldy	#icFlag+2		;look at the network bit first
		lda	[<ic],y
		and	#icNetwork>>16
		beq	@isReadOnly

		ldy	#icFType		; is the icon a disk ?
		lda	[<ic],y
		bmi	@isReadOnly		; bra if a disk icon

		lda	<wind+2
		cmp	<TrashWind+2		;see if it's in the trashcan
		bne	@notInTrash
		lda	<wind
		cmp	<TrashWind
		bne	@notInTrash
		
		lda	#iconInTrash
		tsb	DeskIconState
@NotInTrash

		ldy	#windAccess		;see if we can make changes
		lda	[<windBlk],y
		and	#icMakeChanges
		bne	@isReadOnly
		
		lda	#iconInLocked		;say icon is in a locked window on a server
		tsb	DeskIconState
	
;
; see if the icon came from a window which is from a read-only disk
;
@isReadOnly	
		ldy	#windFST		;get the window which contains this icon, get its FST
		lda	[<windBlk],y
		tay
		jsl	isReadOnly
		bcc	@isOnline
		
		lda	#IconInLocked		;mark it as being an icon in a window which is locked (can't write)
		tsb	DeskIconState
		
;
; see if our disk is online
;
@isOnline	ldy	#icFlag
		lda	[<ic],y			; is the icon offline ?
		and	#ICOFFLINE
		beq	@isNoAccess
		lda	#iconOffline		; an offline icon is selected
		tsb	DeskIconState

;@isLocked	lda	[<ic],y			; is the icon locked ?
;		and	#ICLOCKED
;		beq	@isNoAccess
;		lda	#iconLocked		; a locked icon is selected
;		tsb	DeskIconState

@isNoAccess	ldy	#icFlag+2		; is the icon readable ?
		lda	[<ic],y
		and	#ICREADABLE>>16
		bne	@isDisk			; yes
		lda	#iconNoAccess		; a no-access icon is selected
		tsb	DeskIconState

@isDisk		ldy	#icFType		; is the icon a disk ?
		lda	[<ic],y
		bpl	file			; bra if a file/folder icon

;--- Trash and 5.25 Drive are not disks! -------

		cmp	#TypeFTrash		; Trash icon selected ?
		bcc	@notTrash
		lda	#iconTrash		; trash icon is selected
		tsb	DeskIconState
		brl	done

@notTrash	cmp	#TypeFloppy		;5.25 floppy disk icon selected?
		bne	@isDrive
		lda	#iconFloppy
		tsb	DeskIconState
		bra	disk

@isDrive	cmp	#TypeFDrive		; Floppy drive icon selected ?
		bne	@isServer
		lda	#iconDrive		; 5.25 drive icon is selected
		tsb	DeskIconState
		bra	done

@isServer	cmp	#TypeServer		;is this a server volume icon ?
		bne	disk
		lda	#iconServer		;a server icon is selected
		tsb	DeskIconState

disk		lda	#iconDisk		; a disk icon is selected
		tsb	DeskIconState

;
; --- Is the disk icon REALLY write-protected? --------------
;
		ldy	#icDevInfo
		lda	[<ic],y
		and	#$0002
		beq	@isRemovable
		
		lda	#iconLocked
		tsb	DeskIconState
		
;
; --- Is the disk icon removable ? --------------
;
@isRemovable	ldx	EjectNonRemovable
		beq	@noEject

		ldy	#icFtype		;see if it's a hard drive partition
		lda	[<ic],y
		cmp	#TypeHardPart
		beq	done

@noEject	ldy	#icDevInfo		;12/2/90, andy
		lda	[<ic],y
		and	#$0004			;mask the removable (ejectable) bit
		beq	done			;if it's not set, then we can't get rid of it

remove		lda	#iconRemovable		; a removable icon is selected
		tsb	DeskIconState
		bra	done			; all done with disk type attributes
		
;--- Is the icon a document icon ? -------------

file		cmp	#$000F			; find out what it isn't
		beq	justFile		; folders aren't documents
		cmp	#$00FF			; P8 applications aren't documents
		beq	justFile
		cmp	#$00B3			; GS/OS applications aren't documents
		beq	justFile

		lda	#iconDocument		; must be a document icon
		tsb	DeskIconState

justFile	lda	#iconFile		; file/folder icon is selected
		tsb	DeskIconState

done		lda	#iconAny		; always mark 'some icon' selected
		tsb	DeskIconState
		clc
		rts		

		ENDP

*===============================================*
*	Process A Menu Selection		*
*						*
* IN:	TaskRecord data				*
*						*
* OUT:	none					*
*===============================================*

ProcessMenu	PROC	EXPORT

		IMPORT	pushTask
		import	SayExtrasChosen
		import	controlKeyStatus
		import	shiftKeyStatus
		import	functionKey
		import	openAppleKey
		import	allowTellFinderCalls

		pei	<modifiers		;Dave 'sez OR the modifiers together!

		pha
		pei <zero			;we want to know if they are
		jsr	pushTask		;holding down the option key for tunneling
		_GetNextEvent
		pla

		pla
		ora	<modifiers
		and	#$feff			;get rid of the apple key
		sta	<modifiers
		sta	srqMenuParms+6

		jsr	SetupFunctionKeys
		
		lda	<TaskData+2		; remember menu ID number
		sta	saveMenuID
		sta	srqMenuParms+4

		lda	<TaskData		; a <-- menu item's ID number
		cmp	#$f000			;is it something that was added to the
		blt	@notWindowsItem		;windows menu?

		lda	FunctionKey		
		bne	@optionSelect	
		
		lda	<taskData
		jsr	PickAWindow
		bra	unHilite

@optionSelect	lda	<taskData
		jsr	CloseAWindow
		bra	unHilite

;
; if we get this far, it's not a Windows menu item
;
@notWindowsItem
		cmp	#$e000
		bcc	@notExtrasItem
*** added 24-Mar-93 DAL -- preserve SaveMenuID
		tax
		lda SaveMenuID
		pha
		txa
*** end 24-Mar-93
		jsl	SayExtrasChosen		;in request.aii
*** added 24-Mar-93 DAL
		pla
		sta	SaveMenuID
*** end 24-Mar-93
		bra	unHilite

@notExtrasItem
;
; if we get this far, it's a regular menu item in the table
;
		sta	srqMenuParms+2
		stz	srqMenuOutParms+2

		lda	>allowTellFinderCalls
		pha
		lda	#$ffff
		sta	>allowTellFinderCalls

		pea	$0103			;finderSaysMItemSelected
		ldx	<zero
		phx				;how = send to everyone
		phx
		phx				;target = nil
		pushlong #srqMenuParms
		pushlong #srqMenuOutParms	;dataOut = keep going or not
		_SendRequest

		pla
		sta	>allowTellFinderCalls

		bcs	tellFinderSelectMItemEntry

		lda	srqMenuOutParms+2
		bne	unhilite

;
; finder extensions telling the Finder to select a menu item enter here
;
; TaskData, modifiers, and SaveMenuID are already valid at this point
;
		EXPORT	tellFinderSelectMItemEntry
tellFinderSelectMItemEntry
		lda	<TaskData
		ldx	<zero
@loop		cmp	MenuMap,x		; is this an item I know about?
		beq	found			; yes
		inx
		inx
		inx
		inx
		cpx	#EndMenuMap-MenuMap
		bcc	@loop
		bra	exit			; unknown menu id
		
found		jsr	(MenuMap+2,x)		; a-reg has item's id

unHilite	lda	SaveMenuID		; pass menu ID
		beq	exit
		pei <zero			; pass Unhilite flag
		pha
		_HiliteMenu

exit		rts
	
;
; srqMenuParms and srqMenuOutParms
;
srqMenuParms	dc.w	3			;pcount
		dc.w	0			;menu item id
		dc.w	0			;menu id
		dc.w	0			;modifiers
srqMenuOutParms	dc.w	0			;recvCount
		dc.w	0			;handledIt flag
		
;-----------------------------------------------
MenuMap		DC.W	idAbout,AboutMenu
		DC.W	idHelp,HelpMenu
		DC.W	idNewFolder,NewFolderMenu
		DC.W	idOpen,OpenMenu
		DC.W	idPrint,PrintMenu
		DC.W	idClose,CloseMenu
		DC.W	idCloseAll,CloseAllMenu
		DC.W	idDuplicate,DuplicateMenu
		DC.W	idPutAway,PutAwayMenu
		DC.W	idValidate,ValidateMenu
		DC.W	idUndo,EditMenus
		DC.W	idCut,EditMenus
		DC.W	idCopy,EditMenus
		DC.W	idPaste,EditMenus
		DC.W	idClear,EditMenus
		DC.W	idSelectAll,SelectAllMenu
		DC.W	idShowClip,ShowClipMenu
		dc.W	idStackWindows,StackWindows
		DC.W	idByIcon,ViewMenus
		DC.W	idByTinyIcon,ViewMenus
		DC.W	idByName,ViewMenus
		DC.W	idByDate,ViewMenus
		DC.W	idBySize,ViewMenus
		DC.W	idByKind,ViewMenus
		DC.W	idFormat,FormatMenu
		DC.W	idErase,EraseMenu
		DC.W	idVerify,VerifyMenu
		DC.W	idEject,EjectMenu
		DC.W	idCleanUp,cleanUpMenu
		DC.W	idEmptyTrash,EmptyTrashMenu
		DC.W	idPreferences,PreferMenu
		DC.W	idIconInfo,IconInfoMenu
		DC.W	idShutDown,ShutDownMenu
		DC.W	idCleanUpByName,CleanUpByNameMenu
		DC.W	idColor_0,ColorMenus
		DC.W	idColor_1,ColorMenus
		DC.W	idColor_2,ColorMenus
		DC.W	idColor_3,ColorMenus
		DC.W	idColor_4,ColorMenus
		DC.W	idColor_5,ColorMenus
		DC.W	idColor_6,ColorMenus
		DC.W	idColor_7,ColorMenus
		DC.W	idColor_8,ColorMenus
		DC.W	idColor_9,ColorMenus
		DC.W	idColor_A,ColorMenus
		DC.W	idColor_B,ColorMenus
		DC.W	idColor_D,ColorMenus
		DC.W	idColor_E,ColorMenus
		DC.W	idColor_F,ColorMenus
EndMenuMap

;
; setup the function keys by reading the modifiers field and checking the
; resultant bits in the modifiers...
;
		EXPORT	setupFunctionKeys
SetupFunctionKeys
		stz	openAppleKey
		
		lda	<modifiers
		and	#$0200
		sta	shiftKeyStatus
		
		lda	<modifiers
		and	#$1000
		sta	controlKeyStatus

		lda	<modifiers
		and	#$0800			;mask for option key
		sta	functionKey
		rts
		
		ENDP		
		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Finder/prefs.rez b/IIGS.601.SRC/A.U.G/Finder/prefs.rez
new file mode 100644
index 0000000..3d46226
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Finder/prefs.rez
@@ -0,0 +1 @@
+// --------------------------------------------------------------------
// prefs.REZ
// Copyright 1991 Apple Computer, Inc.
// All Rights Reserved
//
// 2/13/91, andy, created today
// --------------------------------------------------------------------

// --- Control List Definitions

resource rControlList (CTLLST_00000003, $0000) {
       {
       CTLTMP_00002000,        // control 1
       CTLTMP_00002001,        // control 2
       CTLTMP_00002002,        // control 3
       CTLTMP_00002003,        // control 4
       CTLTMP_00002004,        // control 5
       CTLTMP_00002005,        // control 6
       CTLTMP_00002006,        // control 7
       CTLTMP_00002007,        // control 8
       CTLTMP_00002008,        // control 9
       CTLTMP_00002009,        // control 10
       CTLTMP_0000200A,        // control 11
       CTLTMP_0000200C,        // control 13
	   CTLTMP_0000200D,        // control 14
	   CTLTMP_0000200E,		   // control 15
	   CTLTMP_0000200F,        // control 16
	   CTLTMP_00002010		   // control 17
       };
};

// --- Control Templates

resource rControlTemplate (CTLTMP_00002000, $0000) {
       $00000001,              // ID
       { 20,194, 29,462},      // rect
       checkControl {{
               $0000,          // flag
               $3002,          // moreFlags
               $00000000,      // refCon
               PSTR_00002001,  // titleRef
               $0001,           // initialValue
			   0,              // colorTableRef
               {"S","s",$0000,$0000}  // key equivalents

       }};
};

resource rControlTemplate (CTLTMP_00002001, $0000) {
       $00000002,              // ID
       { 33,194, 42,366},      // rect
       checkControl {{
               $0000,          // flag
               $3002,          // moreFlags
               $00000000,      // refCon
               PSTR_00002002,  // titleRef
               $0001,           // initialValue
			   0,              // colorTableRef
               {"H","h",$0000,$0000}  // key equivalents

       }};
};

resource rControlTemplate (CTLTMP_00002002, $0000) {
       $00000003,              // ID
       { 46,194, 55,480},      // rect
       checkControl {{
               $0000,          // flag
               $3002,          // moreFlags
               $00000000,      // refCon
               PSTR_00002003,  // titleRef
               $0001,          // initialValue
               0,              // colorTableRef
               {"5","5",$0000,$0000}  // key equivalents
       }};
};

resource rControlTemplate (CTLTMP_00002003, $0000) {
       $00000004,              // ID
       { 59,194, 68,456},      // rect
       checkControl {{
               $0000,          // flag
               $3002,          // moreFlags
               $00000000,      // refCon
               PSTR_00002004,  // titleRef
               $0001,          // initialValue
               0,              // colorTableRef
               {"C","c",$0000,$0000}  // key equivalents
       }};
};

resource rControlTemplate (CTLTMP_00002005, $0000) {
       $00000005,              // ID
       { 29, 21, 38,140},      // rect
       checkControl {{
               $0000,          // flag
               $3002,          // moreFlags
               $00000000,      // refCon
               PSTR_00002006,  // titleRef
               $0001,           // initialValue
               0,              // colorTableRef
               {"1","1",$0000,$0000}  // key equivalents

       }};
};

resource rControlTemplate (CTLTMP_00002006, $0000) {
       $00000006,              // ID
       { 42, 21, 51,120},      // rect
       checkControl {{
               $0000,          // flag
               $3002,          // moreFlags
               $00000000,      // refCon
               PSTR_00002007,  // titleRef
               $0001,           // initialValue
               0,              // colorTableRef
               {"2","2",$0000,$0000}  // key equivalents
       }};
};

resource rControlTemplate (CTLTMP_00002007, $0000) {
       $00000007,              // ID
       { 55, 21, 64,122},      // rect
       checkControl {{
               $0000,          // flag
               $3002,          // moreFlags
               $00000000,      // refCon
               PSTR_00002008,  // titleRef
               $0001,           // initialValue
               0,              // colorTableRef
               {"3","3",$0000,$0000}  // key equivalents
       }};
};

resource rControlTemplate (CTLTMP_00002004, $0000) {
       $00000008,              // ID
       { 68, 21, 77,152},      // rect
       checkControl {{
               $0000,          // flag
               $3002,          // moreFlags
               $00000000,      // refCon
               PSTR_00002005,  // titleRef
               $0001,           // initialValue
			   0,              // colorTableRef
               {"4","4",$0000,$0000}  // key equivalents

       }};
};

resource rControlTemplate (CTLTMP_00002008, $0000) {
       $00000009,              // ID
       { 78, 48, 87,122},      // rect
       statTextControl {{
               $000C,          // flag
               $1002,          // moreFlags
               $00000000,      // refCon
               LETXTBOX_00002003,     // textRef
               0, 				// textSize
               $0000           // just
       }};
};

resource rControlTemplate (CTLTMP_00002009, $0000) {
       $0000000A,              // ID
       { 69,222, 78,383},      // rect
       statTextControl {{
               $000C,          // flag
               $1002,          // moreFlags
               $00000000,      // refCon
               LETXTBOX_00002000,     // textRef
               0, 				// textSize
               $0000           // just
       }};
};

resource rControlTemplate (CTLTMP_0000200A, $0000) {
       $0000000B,              // ID
       { 16, 31, 25,114},      // rect
       statTextControl {{
               $0004,          // flag
               $1002,          // moreFlags
               $00000000,      // refCon
               LETXTBOX_00002001,     // textRef
               0, 				// textSize
               $0000           // just
       }};
};

resource rControlTemplate (CTLTMP_0000200C, $0000) {
       $0000000D,              // ID
       { 20,12, 91,162},      // rect
       rectangleControl {{
               $ff02,          // flags
               $1000,          // moreFlags
               $00000000,      // refCon
			   1,				// height
			   2,				// width
			   $"cc00cc00cc00cc00" // pen mask
       }};
};

resource rControlTemplate (CTLTMP_0000200D, $0000) {
       $0000000E,              // ID
	   {  2, 12, 11,220},      // rect
       statTextControl {{
               $0000,          // flag
               $1002,          // moreFlags
               $00000000,      // refCon
               LETXTBOX_00002002,     // textRef
               0, 				// textSize
               $0000           // just
       }};
};

resource rControlTemplate (CTLTMP_0000200E, $0000) {
       $0000000F,              // ID
       { 12,12, 13,480},      // rect
       rectangleControl {{
               $ff02,          // flags
               $1000,          // moreFlags
               $00000000,      // refCon
			   1,				// height
			   2,				// width
			   $"FFFFFFFFFFFFFFFF", // pen mask
			   $"3333333333333333" // penpat
			   $"3333333333333333"
			   $"3333333333333333"
			   $"3333333333333333"
       }};
};

resource rControlTemplate (CTLTMP_0000200F, $0000) {
       $00000010,              // ID
       { 87,282, 100,372},      // rect
       simpleButtonControl {{
               $0000,          // flag
               $3002,          // moreFlags
               $00000000,      // refCon
               PSTR_000000FE,  // titleRef
               0,              // colorTableRef
               {"\$1B", "\$1B",$0000,$0000}  // key equivalents
       }};
};

resource rControlTemplate (CTLTMP_00002010, $0000) {
       $00000011,              // ID
       { 87,386, 100,476},      // rect
       simpleButtonControl {{
               $0001,          // flag
               $3002,          // moreFlags
               $00000000,      // refCon
               PSTR_000000FD,  // titleRef
               0,              // colorTableRef
               {"\$0D", "\$0D",$0000,$0000}  // key equivalents
       }};
};

// --- rPString Templates

resource rPString (PSTR_00002001, $0000) {
       "Save Finder information onto disk"
};

resource rPString (PSTR_00002002, $0000) {
       "Hide invisible files"
};

resource rPString (PSTR_00002003, $0000) {
       "Check 5.25\$22 drives on Finder start"
};

resource rPString (PSTR_00002004, $0000) {
       "Color selected iconÕs background"
};

resource rPString (PSTR_00002005, $0000) {
       "Show disk info"
};

resource rPString (PSTR_00002006, $0000) {
       "Show date"
};

resource rPString (PSTR_00002007, $0000) {
       "Show size"
};

resource rPString (PSTR_00002008, $0000) {
       "Show kind"
};

resource rPString (PSTR_00002009, $0000) {
       " Initial View "
};


// --- rTextForLETextBox2 Templates

resource rTextForLETextBox2 (LETXTBOX_00002000, $0000) {
       "instead of its outline"
};

resource rTextForLETextBox2 (LETXTBOX_00002001, $0000) {
       " List Views "
};

resource rTextForLETextBox2 (LETXTBOX_00002002, $0000) {
       "\$01"
       "F"
       "\$FE"
       "\$FF"
       "\$01"
       "\$08"
       "Finder Preferences"
};

resource rTextForLETextBox2 (LETXTBOX_00002003, $0000) {
       "in header"
};

// --- Window Templates

resource rWindParam1 (WPARAM1_00000003, $0000) {
       $2020,                  // plFrame (frame bits)
       NIL,          		   // plTitle (title ID)
       $00000000,              // plRefCon
       {  0,  0,  0,  0},      // plZoomRect
       0,        			   // plColorTable
       {$0000, $0000},         // plYOrigin, plXOrigin
       {$0000, $0000},         // plDataHeight, plDataWidth
       {$0000, $0000},         // plMaxHeight, plMaxWidth
       {$0000, $0000},         // plVerScroll, plHorScroll
       {$0000, $0000},         // plVerPage, plHorPage
       $00000000,              // plInfoText (info RefCon)
       $0000,                  // plInfoHeight
       { 34, 75,138,565},      // plPosition
       infront,                // plPlane
       CTLLST_00000003,        // plControlList
       $0A09                   // plInDesc
};
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Finder/request.aii b/IIGS.601.SRC/A.U.G/Finder/request.aii
new file mode 100644
index 0000000..60c841d
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Finder/request.aii
@@ -0,0 +1 @@
+;.....................................................................
;
; Request.aii
;
; Copyright 1991-1993, Apple Computer, Inc.
; All rights reserved
;
; by andy nicholas and Dave Lyons
;
;.....................................................................
;
; 6.1 REVISION HISTORY
;
; xx-Feb-92 DAL
;   finderSaysIdle passes the idle ticks as dataIn.
;
; 24-Feb-92 DAL
;   finderSaysHello dataIn has a flags word (for disabling KeyboardNav init).
;   tellFinderSetSelectedIcons bit 31 now works with a nonzero pathname count.
;     (In 6.0 you have to do select zero icons and then select the ones you
;      really want).
;   tellFinderGetSelectedIcons/tellFinderGetWindowIcons now skips the bad
;      code for returning icon height and width.  (The fields are never
;      stored to, but at least it doesn't access random memory.)
;   tellFinderSpecialPreferences now returns finderResult $0000 (it was
;      returning the dragFlag value as the finderResult in 6.0)
;   tellFinderRemoveFromExtras(0) was removing the first menu item in the
;      menu bar!  Now I validate the item to be $Exxx before removing it.
;
; 4-Mar-92 DAL (6.0.1d2)
;   tellFinderOpenWindow had a bad exit path if ExpandPath returned an error.
;     It was failing to do a PLD on the way out (ka-boom).  Fixed, and even
;     saved 4 bytes.
;
; 5-Jun-92 DAL (6.0.1d5)
;   Added a STZ PendingDeselectAll in tellFinderSetSelectedIcons.
;
; 19-Jan-93 DAL (6.0.1d13)
;   Added handling for srqQuit ($0011).
;
; 5-Mar-93 JCM (6.0.1d14)
;   Made tellFinderSetSelectedIcons not deselect the current icon if there is only one,
;   and we're being asked to reselect it. This stops Keyboard Navigation from flickering
;   when you navigate to the currently selected icon.
;
; 22-Mar-93 JCM (6.0.1d15)
;  Fixed tellFinderGetSelectedIcons (extended) to properly return the icon height and
;  icon widths. Coolness has been reached. Now to fix Keyboard Nav. Thanks Dave. :-)
;
; 29-Mar-93 JCM/DAL (6.0.1d16)
;  Made tellFinderLaunchThis zero out the modifiers on the Finder's direct page in case any
;  random mods happend to be down when the request was made to us. 
;
;.....................................................................
	PRINT GEN
	PRINT NOSYM
	PRINT NOPAGE
	string asis
	blanks off

	include 'all.macros'
	include 'special.macros'
	include 'Finder.equ'
	include 'DP.equ'
	include 'Data.equ'
	include 'E16.Finder'

oldDPage	equ 1
RTL1	equ 3
DataOut	equ 6
DataIn	equ 10
Request	equ 14
Result	equ 16

;.....................................................................
;
; Get the SendRequest stuff, process it
;.....................................................................

requestProc	procname export

	IMPORT finderDPage

	IMPORT tFinderDebug
	IMPORT tFinderAreYouThere
	IMPORT tFinderOpenWindow
	IMPORT tFinderCloseWindow
	IMPORT tFinderGetSelectedIcons
	IMPORT tFinderSetSelectedIcons
	IMPORT tFinderLaunchThis
	IMPORT tFinderShutDown
	IMPORT tFinderEmptyTrash
	IMPORT tFinderPutInTrash
	IMPORT tFinderPutOnDesktop
	IMPORT tFinderAddBundle
	IMPORT tFinderInformOfChange
	IMPORT tFinderCleanUp
	IMPORT tFinderColorSelection
	IMPORT tFinderAddToExtras
	IMPORT tFinderAddDesktopIcon
	IMPORT tFinderIdleHowLong
	import tFinderGetWindowIcons
	import tFinderGetWindowInfo
	import tFinderRemoveFromExtras
	import tFinderAdjustHelpTopics
	import tFinderSelectMItem
	import allowTellFinderCalls
	import tFinderMatchFileToIcon
	import tFinderCheckDatabase
	import tFinderSpecialPreferences
	import NewDeskPatFlag

	phd
	tsc
	tcd

	phb
	phk
	plb

	lda <dataIn+2		;set bit31 negative if it's set
	tax
	and #$8000
	sta bit31
	txa
;;;	and #$7fff
	asl a
	lsr a
	sta <dataIn+2

	lda <Request
	bpl @notFinderSpecific
	cmp #tellFinderGetDebugInfo
	beq @noTest
	cmp #tellFinderIdleHowLong
	beq @noTest
	
	ldx allowTellFinderCalls
	bne @noTest
	
	lda #fErrBusy
	clc
	bra @exit

@noTest	asl a		;isn't that cool, bit 15 dies!
	tax
	cpx #reqHandlersEnd-reqHandlers
	bcs @exit

	jsr PreserveImportantStuff	;doesn't mess up A/X/P
	jsr (reqHandlers,x)
	jsr RestoreImportantStuff	;doesn't mess up A/X/P

;
; We come back from the request handler with
;
;  SEC = we didn't handle the request
;  CLC = we handled it
;        A = error code (zero if no problem)
;
@exit	bcs @bogus		;we couldn't handle it
	ldy #2		;offset to finderError field
	sta [dataOut],y
	lda #$8000
	sta <Result
	bra @leaving

;
; Handle request codes in the global range ($0001..7FFF)
;
; $0008 is systemSaysNewDeskMessage (there is a new desktop pattern/pic)
;
@notFinderSpecific	cmp #8	;systemSaysNewDeskMsg
	bne @notNewDeskMsg
	lda #$ffff
	sta >NewDeskPatFlag
	lda #$8000
	sta <Result
	bra @leaving	;added 19-Jan-93 DAL
@notNewDeskMsg

*** added 19-Jan-93 DAL
	import handleQuit
	cmp #$0011	;srqQuit
	bne @notQuit
	jsr handleQuit
	lda #$8000
	sta <Result
@notQuit
*** end 19-Jan-93


@leaving
@bogus	plb

	pld
	lda 2,s
	sta 12,s
	lda 1,s
	sta 11,s
	ply
	ply
	ply
	ply
	ply
	rtl

;
; PreserveImportantStuff -- save the resource app and menu bar
;   (on stack, under RTS addr)
;
PreserveImportantStuff
	sta theAvalue
	stx theXvalue
	php
	php
	pla
	sta thePvalue
	pla
	sta theRTSaddr

	pha
	_GetCurResourceApp
	pha
	pha
	_GetMenuBar

	pha
	_MMStartUp
	_SetCurResourceApp
	ldx #0
	phx
	phx
	_SetMenuBar

	lda theRTSaddr
	pha
	lda thePvalue
	pha
	lda theAvalue
	ldx theXvalue
	plp
	plp
	rts

;
; RestoreImportantStuff -- restore the resource app and menu bar
;   (data is on stack under RTS addr)
;
RestoreImportantStuff
	sta theAvalue
	stx theXvalue
	php
	php
	pla
	sta thePvalue
	pla
	sta theRTSaddr

	_SetMenuBar
	_SetCurResourceApp

	lda theRTSaddr
	pha
	lda thePvalue
	pha
	lda theAvalue
	ldx theXvalue
	plp
	plp
	rts

theRTSaddr	dc.w 0
theAvalue	dc.w 0
theXvalue	dc.w 0
thePvalue	dc.w 0
	EXPORT bit31
bit31	dc.w 0

reqHandlers	dc.w tFinderDebug		;$8000
	dc.w tFinderAreYouThere	;$8001
	dc.w tFinderOpenWindow	;$8002
	dc.w tFinderCloseWindow	;$8003
	dc.w tFinderGetSelectedIcons	;$8004
	dc.w tFinderSetSelectedIcons	;$8005
	dc.w tFinderLaunchThis	;$8006
	dc.w tFinderShutDown	;$8007
	dc.w tFinderSelectMItem	;$8008
	dc.w tFinderAreYouThere	;$8009 (instead of tFinderLoadBundle)
	dc.w tFinderMatchFileToIcon	;$800A
	dc.w tFinderAddBundle	;$800B
	dc.w tFinderInformOfChange	;$800C
	dc.w tFinderCheckDatabase	;$800D
	dc.w tFinderColorSelection	;$800E
	dc.w tFinderAddToExtras	;$800F
	dc.w tFinderAddDesktopIcon	;$8010 (not in 6.0)
	dc.w tFinderIdleHowLong	;$8011
	dc.w tFinderGetWindowIcons	;$8012
	dc.w tFinderGetWindowInfo	;$8013
	dc.w tFinderRemoveFromExtras	;$8014
	dc.w tFinderSpecialPreferences	;$8015
;	dc.w tFinderAdjustHelpTopics	;$8016 (not in 6.0)
reqHandlersEnd

	EndP

;.....................................................................
;
; tFinderDebug -- get debug information
;.....................................................................

tFinderDebug	procname
	IMPORT finderDPage
	IMPORT StartOfDebugInfo
	IMPORT EndOfDebugInfo

	ldy #4
	lda #9
	sta [dataOut],y

	ldy #6
	lda >finderDPage
	tax
	sta [dataOut],y

	iny
	iny
	lda >deskic,x
	sta [dataOut],y
	lda >deskic+2,x
	iny
	iny
	sta [dataOut],y

	ldx #0		;copy the major chain lists out
@loop	iny
	iny
	lda >StartofDebugInfo,x
	sta [dataOut],y
	inx
	inx
	cpx #EndOfDebugInfo-StartOfDebugInfo
	blt @loop

	clc
	lda #0		;no problem
	rts

	EndP

;.....................................................................
;
; tFinderAreYouThere() -- tell the requestor that the Finder is awake
;.....................................................................

tFinderAreYouThere	procname
	clc
	lda #0		;no problem
	rts

	EndP

;.....................................................................
;
; tFinderOpenWindow() -- open a window given a full pathname from dataIn
;
; dataIn = pathname of window to open
;
; dataOut:
;  +000 = recvCount
;  +002 = finder result
;  +004 = window pointer (long)
;.....................................................................

tFinderOpenWindow	procname
	IMPORT frqOpen
	IMPORT WStringCopy
	IMPORT finderDPage
	import frqGlobalError
	import OpenTheTrashCan
	import ShowClipMenu
	import AboutMenu
	import lockic
	import unlockic
	import OpenFlag
	import CheckMenus

	phd

	lda <dataIn
	sta expandParms+2
	lda <dataIn+2
	sta expandParms+4

	pushzlong <dataIn
	pushlong #c1_pathname
	jsl WStringCopy
	
	lda >finderDPage
	tcd

	stz modifiers		;so that they don't accidently tunnel
	stz OpenFlag

	lda #0
	sta >frqGlobalError

;
; need to check for "Trash", "Clip", and "About"
;
	jsr OpenSpecialWindow
	bcc @success

	_ExpandPathGS expandParms
	bcc @goodExpand
	sta >frqGlobalError
	bra @exit

@goodExpand	lda >c1_pathname		;see if they have a null pathname
	bne @havePath
	lda #fErrBadInput
	sta >frqGlobalError
	bra @success
	
@havePath	lda #1		;tell it to ignore errors and NOT prompt for disk insertions
	sta OpenFlag
	pushzlong <curWind
	jsr frqOpen		;open C1_PathName to be new front window
	pla
	sta <curWind
	pla
	sta <curWind+2
	stz OpenFlag

@success	jsr CheckMenus

@exit	pld

	ldx #0
	txy		;anticipate NIL window pointer
	lda >frqGlobalError
	bne @returnWindPtr
	pha
	pha
	_FrontWindow
	ply
	plx		;windPtr in XY
@returnWindPtr	tya		;windPtr in XA
	ldy #4
	sta [<dataOut],y
	iny
	iny
	txa
	sta [<dataOut],y

	clc
	lda >frqGlobalError

	rts


;
; expandParms -- always, always, always expand the pathname we're working with before sending
;                stuff to the Finder!
;
expandParms	dc.w 3
	dc.L 0
	dc.L c1_pathname-2
	dc.w 0

;
; OpenSpecialWindow
;
; Input: C1_PathName
;        Finder direct page is set
; Output: CLC if we opened a special window
;
OpenSpecialWindow
; check for Trash
	lda C1_Pathname
	cmp #5	;length of Trash and About
	bne @checkClip
	lda C1_PathName+2
	cmp #$7254	;"Tr"
	bne @notTrash
	lda C1_PathName+4
	cmp #$7361	;"as"
	bne @notTrash
	lda C1_PathName+5
	cmp #$6873	;"sh"
	bne @notTrash
; open trash
	lda >TrashIc+2
	sta <icHand+2
	lda >TrashIc
	sta <icHand
	jsr lockic
	jsr OpenTheTrashCan
	jsr unlockic
	clc
	rts

@notTrash	lda C1_PathName+2
	cmp #$6241	;"Ab"
	bne @notAbout
	lda C1_PathName+4
	cmp #$756F	;"ou"
	bne @notAbout
	lda C1_PathName+5
	cmp #$7475	"ut"
	bne @notAbout
; open About window
	jsr AboutMenu
	clc
	rts

@notAbout
@checkClip	lda C1_PathName
	cmp #4
	bne @notClip
	lda C1_PathName+2
	cmp #$6C43	;"Cl"
	bne @notClip
	lda C1_PathName+4
	cmp #$7069	;"ip"
	bne @notClip
; open clipboard
	jsr ShowClipMenu
	clc
	rts
@notClip
@notSpecial	sec
	rts

	EndP

;.....................................................................
;
; tFinderCloseWindow(pathnamePtr/4)
;.....................................................................

tFinderCloseWindow	procname
	IMPORT doClose
	IMPORT finderDPage
	IMPORT matchWindName
	IMPORT walkWindow
	IMPORT WStringCopy
	import aboutWindowPtr
	import DeselectAll
	import CheckMenus

	pushzlong <dataIn
	pushlong #C1_TempPath
	jsl WStringCopy

	ldx <dataIn
	ldy <dataIn+2

	phd
	lda >finderDPage
	tcd

	pushZLong <taskData		;save everything
	pushZLong <wind

	stx closeExpandParms+2	;was dataIn
	sty closeExpandParms+4	;was dataIn+2

	jsr DeselectAll		;calls SelectionIsChanging

;
; check for special window names: Trash/Clip/About
;
	jsr CloseSpecialWindow
	bcc @success

	_ExpandPathGS closeExpandParms
	tax
	bcs @nothing


	lda #DirWindID		;Directory windows only.
	ldx #matchWindName		;Check for against C1_TempPath
	jsr walkWindow
	ldx #frqErrFailed
	bcc @nothing		;we didn't match squat, so don't do squat

	lda <wind
	sta <taskData
	lda <wind+2
	sta <taskdata+2

	jsr doClose		;hope that this doesn't change much...

@success	jsr CheckMenus
	ldx #frqErrNoError

@nothing	pulllong <wind
	pulllong <taskdata

	pld

	clc		;handled the request
	txa		;error code
	rts


;
; closeExpandParms -- always, always, always expand the pathname we're working with before sending
;                stuff to the Finder!
;
closeExpandParms	dc.w 3
	dc.L 0
	dc.L c1_temppath-2
	dc.w 0

;
; CloseSpecialWindow
;
; Input: window name in C1_TempPath
;        Finder direct page is set
; Output: CLC if we closed a special window
;
CloseSpecialWindow
; check for Trash
	lda C1_TempPath
	cmp #5	;length of Trash and About
	bne @checkClip
	lda C1_TempPath+2
	cmp #$7254	;"Tr"
	bne @notTrash
	lda C1_TempPath+4
	cmp #$7361	;"as"
	bne @notTrash
	lda C1_TempPath+5
	cmp #$6873	;"sh"
	bne @notTrash
; close trash
	lda <trashWind+2
	ldx <trashWind

; closeAX -- close window in AX, if it's visible
@closeAX	sta <taskData+2
	stx <taskData

	pha	;space for GetWFrame
	pha
	phx	;window pointer
	_GetWFrame
	pla
	and #$0020
	bne @canClose	;it's visible!
	sec
	rts
@canClose	jsr doClose
	clc
	rts

@notTrash	lda C1_TempPath+2
	cmp #$6241	;"Ab"
	bne @notAbout
	lda C1_TempPath+4
	cmp #$756F	;"ou"
	bne @notAbout
	lda C1_TempPath+5
	cmp #$7475	"ut"
	bne @notAbout
; close About window
	lda >aboutWindowPtr+1
	bne @isOpen
	clc
	rts
@isOpen	lda >aboutWindowPtr
	tax
	lda >aboutWindowPtr+2
	bra @closeAX

@notAbout
@checkClip	lda C1_TempPath
	cmp #4
	bne @notClip
	lda C1_TempPath+2
	cmp #$6C43	;"Cl"
	bne @notClip
	lda C1_TempPath+4
	cmp #$7069	;"ip"
	bne @notClip
; close clipboard
;	lda <clipWind+2
;	ldx <clipWind
;	bra @closeAX
*** changed 19-Aug-92 DAL -- clipboard window is now done with Scrap Manager
	pha
	pha
	pea $4000	;flag to close clipboard
	pei <zero
	pei <zero
;	_ShowClipboard
	ldx #$1516
	jsl $e10000
	pla
	pla
	clc
	rts
*** end 19-Aug-92
@notClip
@notSpecial	sec
	rts

	EndP


;.....................................................................
;
; tFinderGetSelectedIcons -- get the selected icons from the current port
;	as output we specify the full paths of all the selected
;	icons.
;
; dataOut:
;  +000 = recvCount
;  +002 = finderResult
;  +004 = pointer to window, NIL for desktop
;  +008 = new stringList handle
;
; StringList format:
;  +000 = number of pathnames following
;  +002 = wString1
;  +xxx = wString2
;  +xxx = ...
;
; Extended StringList format:
;  +000 = number of pathnames following
;  +002 = Offset to WString1 (Offset from start of record)
;  +004 = y coordinate of icon
;  +006 = x coordinate of icon
;  +008 = y coordinate of icon's text if list view
;  +xxx = wString1
;  +xxx = Offset to wString2 (offset from start of this record)
;  +xxx = y coordinate of icon
;  +xxx = x coordinate of icon
;  +xxx = y coordinate of icon's text if list view
;  +xxx = wString1
;.....................................................................

tFinderGetSelectedIcons procname
	import FinderDPage
	import allocate
	import FindSelect
	import buildpath3
	import bit31
	import getIconPtr	;22-Mar-93 JCM
	import UnlockICBLKHAND ;22-Mar-93 JCM

	phd
	lda >FinderDPage
	tcd

	lda #2
	jsr allocate
	stx <temp+2
	sta <temp

; set the string count to zero
	ldy #2
	lda [<temp],y
	sta <work+2
	lda [<temp]
	sta <work
	lda #0
	sta [<work]

	lda #addToHandle
	jsr FindSelect

	lda <temp
	ldx <temp+2	;new handle in XA

	pld

	ldy #8
	sta [<dataOut],y
	iny
	iny
	txa
	sta [<dataOut],y

; anticipate that the icons were on the desktop
	ldy #4
	lda #0
	sta [<dataOut],y
	iny
	iny
	sta [<dataOut],y

; see if Finder's <curWind = <deskPort.  If not, return the window pointer.
	lda >FinderDPage
	tax
	lda >curWind,x
	cmp >deskPort,x
	bne @returnWindow
	lda >curWind+2,x
	cmp >deskPort+2,x
	beq @isDesktop
@returnWindow	lda >curWind,x
	ldy #4
	sta [<dataOut],y
	iny
	iny
	lda >curWind+2,x
	sta [<dataOut],y
@isDesktop
	clc
	lda #0

	rts
*
* addToHandle
*
* Input:
*   ic = selected icon
*   temp = handle to strings
*
	export addToHandle
addToHandle	pushZLong <temp

	jsr buildPath3		;input=ic, output=C1_Pathname

; if the icon is the trash or an Extension, kill the leading ":"
	ldy #icFType
	lda [<ic],y
	cmp #TypeTrash
	beq @killColon
	cmp #TypeFTrash
	beq @killColon
	cmp #TypeExtension
	bne @noKill

@killColon	pushlong #C1_Pathname+3
	pushlong #C1_Pathname+2
	pea 0
	lda C1_Pathname
	pha
	_BlockMove
	dec C1_Pathname
	bra @continue

@noKill
; if the icon is a 5.25 drive, change the ":" to a "."
	ldy #icFType
	lda [<ic],y
	cmp #TypeFDrive
	bne @continue

	lda #$2e	;'.'
	sep #$20
	sta C1_Pathname+2
	rep #$20

@continue	pha
	pha
	pei <temp+2
	pei <temp
	_GetHandleSize
	pla
	plx

	stx old_size+2
	sta old_size

	clc
	adc C1_Pathname
	bcc @1
	inx
@1	clc
	adc #2
	bcc @2
	inx
	
@2	bit bit31	;are we using an extended stringlist?
	bpl @3	;if not, then don't add 16

	clc
	adc #16
	bcc @3
	inx
	
@3	phx
	pha
	pei <temp+2
	pei <temp
	_SetHandleSize

	ldy #2
	lda [<temp],y
	sta <work+2
	lda [<temp]
	sta <work

	lda [<work]
	inc a
	sta [<work]

	pushlong #C1_Pathname
	
	bit bit31
	bmi @coordinates
	
	clc
	lda <work
	adc old_size
	tax
	lda <work+2
	adc old_size+2
	brl @move
	
@coordinates	clc	;put coordinates in extended stringlist handle
	lda <work
	adc old_size
	sta <work
	lda <work+2
	adc old_size+2
	sta <work+2
	
	lda #16	;offset to wstring is 16
	sta [<work]
	
	ldy #icy	;icy
	lda [<ic],y
	ldy #2
	sta [<work],y
	
	ldy #icx	;icx
	lda [<ic],y
	ldy #4
	sta [<work],y
	
	ldy #icTextY	;icTextY
	lda [<ic],y
	ldy #6
	sta [<work],y

*** THE FOLLOWING CODE IS IN 6.0, AND IT'S TOAST.  The icon handle is not
*** stored at icIcon (the index number is).  KeyboardNav init for 6.0 patches
*** this to be:
***    ldy #10
***    bra @goodCode (offset $3F)
;	ldy #icIcon	;get the icon handle
;	lda [<ic],y
;	sta <temp
;	iny
;	iny
;	lda [<ic],y
;	sta <temp+2
;
;	ldy #windView
;	lda [<windBlk],y
;	cmp #viewByName
;	blt @byIcon
;
;	ldy #icSmallIcon	;get the small icon handle
;	lda [<ic],y
;	sta <temp
;	iny
;	iny
;	lda [<ic],y
;	sta <temp+2
;@byIcon
;
;	lda [<temp]	;dereference it
;	tax
;	ldy #2
;	lda [<temp],y
;	sta <temp+2
;	stx <temp
;	
;	ldy #4	;get the icon height
;	lda [<temp],y
;	ldy #8
;	sta [<work],y
;	
;	ldy #6	;get the icon width
;	lda [<temp],y
;	ldy #10
;	sta [<work],y
;
;@goodCode
*** end of bad 6.0 code

*** will fix this for real later -- for now, don't trash memory (24-Feb-92 DAL)
*** (the iconHeight and iconWidth fields are not set)
;;;	ldy #10	;21-Mar-93 JCM - fixed below
*** end of temp fix

*** Added - 21-Mar-93 JCM - Let's really return the icon height and width.

	ldx #0	;assume big icon view

	ldy #windView
	lda [<windBlk],y
	cmp #viewBySmallIcon
	blt @byIcon
	
	inx	;nope, we want the small one

@byIcon	txa	;0 = get big icon, 1 = small

	jsr getIconPtr	;get ptr to locked icon data in <icon
	jsr UnlockICBLKHAND	;no need to keep it locked

* The iconHeight is at +4 and the iconWidth is at +6.

	ldy #4	;get the icon height
	lda [<icon],y
	ldy #8
	sta [<work],y
	
	dey	;get the icon width (+6)
	dey
	lda [<icon],y
	ldy #10
	sta [<work],y

*** End - 21-Mar-93 JCM

	iny	;save the icon record's handle
	iny
	lda <icHand
	sta [<work],y
	iny
	iny
	lda <icHand+2
	sta [<work],y
	
	lda <work	;add 16 onto where we want the pathname moved
	clc
	adc #16
	tax
	lda <work+2
	adc #0
	
@move	pha
	phx
	pea 0
	lda C1_Pathname
	clc
	adc #2
	pha
	_BlockMove

	pulllong <temp
	rts

old_size	dc.l 0

	EndP


;.....................................................................
;
; tFinderGetWindowIcons --
;.....................................................................
tFinderGetWindowIcons procname
	import FinderDPage
	import allocate
	import walkOfLife
	import addToHandle

	ldy <dataIn+2
	ldx <dataIn	;YX = window pointer (dataIn)

	phd
	lda >FinderDPage
	tcd

; preserve curWind
	pei <curWind+2
	pei <curWind

; set curWind to input pointer (translate NIL into deskPort)
	txa
	bne @notDesktop
	tya
	bne @notDesktop
	ldy <deskPort+2
	ldx <deskPort
@notDesktop	sty <curWind+2
	stx <curWind

; allocate StringList handle holding zero strings (just a word of zero)
	lda #2
	jsr allocate
	stx <temp+2
	sta <temp

; set the string count to zero
	ldy #2
	lda [<temp],y
	sta <work+2
	lda [<temp]
	sta <work
	lda #0
	sta [<work]

	lda #addToHandle
	jsr walkOfLife

; restore curWind
	pla
	sta <curWind
	pla
	sta <curWind+2

; return new handle
	lda <temp
	ldx <temp+2	;new handle in XA

	pld

	ldy #4	;offset to result handle
	sta [<dataOut],y
	iny
	iny
	txa
	sta [<dataOut],y

	lda #0
	clc
	rts

	EndP


;.....................................................................
;
; tFinderSetSelectedIcons -- set the selected icons for a given window
;
; dataIn = StringList handle of icons to select
;
; uses: c1_tempPath
;       c1_filename
;.....................................................................

tFinderSetSelectedIcons procname
	import FinderDPage,DeselectAll,CheckMenus
	import wstringcopy
	import pathSubName
	import walkwindow
	import wstrcompare
	import pathgetname
	import pstringcompare
	import walkOfLife
	import windRefCon
	import drawIcon2
	import startDraw
	import endDraw
	import drawIconState
	import selectionIsChanging
	import PendingDeselectAll
	import ckRects	;5-Mar-93 JCM - for counting selected icons

	stz PendingDeselectAll  ;5-Jun-92 DAL
	stz DidDeselectFlag	;5-Mar-93 JCM
	stz iconSelected	;5-Mar-93 JCM

	jsl selectionIsChanging

	ldy #4	;lock the stringlist handle
	lda [<dataIn],y
	ora #$8000
	sta [<dataIn],y

	ldx <dataIn
	ldy <dataIn+2

	phd
	lda >FinderDPage
	tcd

	sty <temp+2
	stx <temp
	
	lda <temp+1
	beq @deselect
	
	ldy #2
	lda [<temp],y
	tax
	lda [<temp]
	sta <temp
	stx <temp+2

	lda [<temp]
	sta strings
	sta strings2	;5-Mar-93 JCM - this one isn't a decremented counter
	bne @select
	
@deselect	jsr deselect
	brl done

;
; We have some icons, so first find the window for the first icon in the stringList
;

@select	lda bit31
	bpl @noDeselect
		
*** Added - 5-Mar-93 JCM - This hack helps to not reselect an icon if it's the only
***	       one selected and we're being asked to select it again.
***	       This is helpful for Keyboard Navigation when you type a
***	       series of keys within the tick limit which cause the same icon
***	       to be reselected. This puts an end to the flashing you would
***	       see.

	lda strings	;number of icons they want us to select
	dec a	;do they want a single icon to be selected?
	bne @select2	; nope, don't do anything different this time
	
	lda #ckRects	;count the number of selected icons in this plane
	jsr walkOfLife	;if there are more than 1, deselect them all first

	lda iconSelected	;how many are selected?		
	dec a	
	beq @noDeselect	; only 1, so defer the deselection for now

	lda #1
	tsb DidDeselectFlag ;we deselected more than one icon here

@select2	jsr deselect

*** End - 5-Mar-93 JCM

@noDeselect
		
	lda <temp
	clc
	adc #2
	sta <ptr
	lda <temp+2
	adc #0
	sta <ptr+2

;
; every time through this loop, look through all the icons on the desktop and see 
; if we have a match against our pathname
;
nextPathLoop	pushZLong <curWind

	lda <deskPort
	sta <curWind
	lda <deskPort+2
	sta <curWind+2
	
	lda #setDeskIcon
	jsr WalkofLife

	pulllong <curWind
	bcc lookAtWindows	;didn't find it on the desktop
	
	lda <deskPort
	cmp <curWind
	bne @deselect
	lda <deskPort+2
	cmp <curWind+2
	beq @goNextpath

@deselect	jsr deselect	;deselect everything in the current plane before
		;setting the current window to the desktop
	lda <deskPort	
	sta <curWind
	lda <deskPort+2
	sta <curWind+2
	
@goNextPath	brl nextPath
	
;
; every time through this loop, look through all the open windows and see if we have a match
; against our pathname
;
lookAtWindows	lda [<ptr]
	pha
	
	pushZLong <ptr
	jsl PathSubName
	
	lda [<ptr]
	cmp 1,s
	bne @notDisk
	clc
	bra @diskIcon
	
@notDisk	lda #DirWindID	;Type of windows to accept.
	ldx #matchWindow	;Match windows' pathname to C1_TempPath.
	jsr walkWindow

@diskIcon	pla
	sta [<ptr]	
	bcc nextPath	;Was an owner window found?  if not, next path please...
		
;
; found owner window, set all the icons in the list to ON
;
inWindow	pushZLong <curWind

	lda <wind
	sta <curWind
	ldx <wind+2
	stx <curWind+2
	
	pushlong #c1_filename
	pushZLong <ptr
	jsl PathGetName
	
	lda >c1_filename	;make the end segment a pstr
	xba
	sta >c1_filename
		
	lda #setWindowIcon	;turn the icon ON and draw it ON
	jsr walkOfLife	;if it didn't draw it, too bad...
	
	pulllong <curWind
	bcc nextPath
	
	lda <wind
	cmp <curWind
	bne @deselect
	lda <wind+2
	cmp <curWind+2
	beq nextPath

@deselect	jsr deselect	;calls SelectionIsChanging

	lda <wind
	sta <curWind
	lda <wind+2
	sta <curWind+2
	
;
; go to the next pathname in the stringList
;
nextPath	lda [<ptr]
	inc a
	inc a
	clc
	adc <ptr
	sta <ptr
	bcc @1
	inc <ptr+2
@1	

	dec strings
	beq done
	brl nextPathLoop
	
;
; whoopee!  we're done setting (or not) all the icons
;
done	

*** Added - 5-Mar-93 JCM - If someone asks us to select a single icon, but we can't find
***	       it, we need to make sure we deselect the icon if they allow us
***	       to deselect them. In that case, we wouldn't have already done
***	       the deselection.

	lda bit31
	bpl @fixMenus
	
	lda DidDeselectFlag ;did we match any icons to select?
	bmi @fixMenus	; yep, so don't deselect here

	jsr deselect	;make sure we behave just like 6.0

@fixMenus

*** End - 5-Mar-93 JCM

	jsr CheckMenus

	clc
	lda #frqErrNoError
	pld
	rts


;
; deselect everything, but preserve <wind!
;
deselect	pushZLong <ic	;5-Mar-93 JCM
	pushZLong <icHand	;5-Mar-93 JCM
	pushZLong <wind
	pushZLong <temp	;24-Feb-92 DAL for 6.1
	jsr deselectAll
	pulllong <temp	;24-Feb-92 DAL for 6.1
	pulllong <wind
	pulllong <icHand	;5-Mar-93 JCM
	pulllong <ic	;5-Mar-93 JCM
	rts

;
; IN: wind = window to compare
;     <ptr = wstring pathname to compare
;
matchWindow				
	jsr windRefCon	;windBlk = window's info block pointer.

	lda <windBlk
	clc
	adc #windPath
	ldx <windBlk+2
	bcc @nr
	inx
@nr
	pha				;space for result
	phx				;ptr to 1st string
	pha
	pushZlong <ptr 	;ptr to 2nd string
	jsl WStrCompare
	pla				;result (0 or 1)
	cmp #1
	rts

;
; see if the icon pointed to by <ic matches our pstring at <ptr2
;
setWindowIcon	pha
	lda <ic
	clc
	adc #<icName
	tax
	lda <ic+2
	adc #0
	pha
	phx
	pushlong #c1_filename+1
	jsl PStringCompare
	pla
	bne setIcon
	clc
	rts
	
	IMPORT cutIconToHead

setIcon	lda #$8000	;5-Mar-93 JCM
	tsb DidDeselectFlag	;5-Mar-93 JCM
	
	ldy #icFlag
	lda [<ic],y
	and #icSelected
	bne @done
	
*** Added - 5-Mar-93 JCM - This stops keyboard navigation flicker if the same icon is to be
***	       reselected.
	
@doSingleIconStuff	lda strings2	;how many icons are we to select?
	dec a	;only one?
	bne @setIt	; nope, we've already deselected the icons

	lda DidDeselectFlag	;have we already deselected the old icons?
	and #1
	bne @setIt
	
	jsr deselect

	lda #1
	tsb DidDeselectFlag

	ldy #icFlag

@setIt

*** End - 5-Mar-93 JCM	

	lda [<ic],y
	ora #icSelected
	sta [<ic],y
	
	jsr DrawIconState
	
	jsr cutIconToHead
	
@done	sec
	rts

;
; see if the desktop icon pointed to by <ic matches our wstring at <ptr2
;
setDeskIcon	ldy #icFlag	;if we're walking the desktop icons, and 
	lda [<ic],y	;we're not extended, see if we're a disk name or device
	and #icExtended
	beq  @notExtended

;
; we'll take a look at this extended icon
;
	ldy #2	
  	lda [<ptr],y
	and #$00ff
	cmp #'.'	;no extended icon can match a disk device
	beq @done
	cmp #':'
	bne @done
	
	pushlong #c1_filename ;get the last section of the pathname
	pushZLong <ptr
	jsl PathGetName
	
	lda >c1_filename	;make it a pstr
	xba
	sta >c1_filename
	
	pha	;compare the name of the icon and the last portion of
	pushlong #c1_filename+1 ;our pathname segment
	lda <ic
	clc
	adc #icName
	tax
	lda <ic+2
	adc #0
	pha
	phx
	jsl PStringCompare
	pla	;if the name of the icon and last segment of our pathname
	beq @done	;don't match, then don't select this
	
	lda [<ptr]	;save our path's length
	pha
	
	pushZLong <ptr	;remove last pathname segment
	jsl PathSubName
	
	lda [<ptr]	;see if we were actually able to remove the segment
	cmp 1,s
	bne @havePath	;if we were, then compare the owner path and our path
	pla
	sta [<ptr]
	bra @done
@havePath

	pha
	lda <ic
	clc
	adc #<icOwner
	tax
	lda <ic+2
	adc #0
	pha
	phx
	pushZLong <ptr
	jsl WStrCompare
	plx
	
	pla
	sta [<ptr]
	
	txa
	beq @done
	brl seticon
	
@done	clc
	rts

;
; take a look at this non-extended icon
;
@notExtended	ldy #2
  	lda [<ptr],y
	and #$00ff
	cmp #'.'	;if it's something that begins with a dot "." then it's
	beq @device	;probably an AppleDisk 5.25
	cmp #':'
	bne @notDisk
	
	lda [<ptr]	;see if we can remove a segment from this pathname
	pha
	
	pushZLong <ptr
	jsl pathSubName
	
	pla	
	cmp [<ptr]
	sta [<ptr]	;if we can remove a segment, it's NOT a volume name
	bne @done

@device	lda [<ptr]
	dec a
	xba
	ldy #1
	sta [<ptr],y

	pha	;compare our icon+icName against a manufactured
	lda <ic	;pstring at [<ptr]+2
	clc
	adc #<icName
	tax
	lda <ic+2
	adc #0
	pha
	phx
	lda <ptr
	ldx <ptr+2
	clc
	adc #2
	bne @nr
	inx
@nr	phx
	pha
	jsl PStringCompare
	
	ldy #1	;restore the beginning of our string
	lda [<ptr],y
	xba
	inc a
	sta [<ptr]
	xba
	and #$00ff
	ora #$3a00
	sta [<ptr],y
	
	pla
	beq @done
	brl setIcon

@notDisk	lda [<ptr]	;make a pstring
	xba
	sta [<ptr]
	
	pha	;compare our icon+icName against a manufactured
	lda <ic	;pstring at [<ptr]+1
	clc
	adc #<icName
	tax
	lda <ic+2
	adc #0
	pha
	phx
	lda <ptr
	ldx <ptr+2
	inc a
	bne @nr2
	inx
@nr2	phx
	pha
	jsl PStringCompare
	
	lda [<ptr]
	xba
	sta [<ptr]
	
	pla
	beq @done2
	brl setIcon

@done2	clc
	rts
		
;
; locals
;
strings	dc.w 0
strings2	dc.w 0	;5-Mar-93 JCM
DidDeselectFlag	dc.w 0	;5-Mar-93 JCM

	EndP

;.....................................................................
;
; tFinderLaunchThis -- launch a document or an app
;
;	input parm block consists of a word (0=launch, 1=print)
;	followed by a pointer to the pathname we want to launch
;.....................................................................

tFinderLaunchThis	procname
	IMPORT  quit_flags
	IMPORT WStringCopy
	IMPORT info_type
	import doGetFileInfo
	import srqOpenParms
	import srqIconHandle
	import srqTheRect
	import srqFiletype
	import srqAuxtype
	import srqPrintFlag
	import info_aux
	import srqModifiers
	import CheckFST
	import finderDPage	;29-Mar-93 JCM

*** Added - 29-Mar-93 JCM - Make sure the mods are zero.

	lda >finderDPage
	tax
	lda #0
	sta >modifiers,x

*** End - 29-Mar-93 JCM

	ldy #4
	lda [<dataIn],y
	pha
	dey
	dey
	lda [<dataIn],y
	pha
	pushlong #C1_QuitName
	jsl WStringCopy

	_ExpandPathGS expandParms ;both expand it and...
	bcc @expandOK
@goDone	brl @done

@expandOK	jsr doGetFileInfo	;check to see if it's really there
	bcs @goDone
	
	lda #$005c	;not system file GSOS error
	ldx info_type
	cpx #$FF
	beq @launch
	cpx #$B3
	beq @launch
	cpx #$B5
	bne @done

@launch	jsr CheckFST
	bcs @done
		
	lda info_type		
	sta srqFiletype
	lda info_aux		
	sta srqAuxtype
	lda info_aux+2		
	sta srqAuxtype+2

	stz srqIconHandle
	stz srqIconHandle+2
	stz srqPrintFlag
	stz srqModifiers
	
	ldx #6
@rLoop	stz srqTheRect,x
	dex
	dex
	bpl @rLoop

	pea $0104	;finderSaysBeforeOpen
	ldx #0
	pea $8000	;how = send to first guy who accepts it
	phx
	phx				;target = nil
	pushlong #srqOpenParms
	phx
	phx				;dataOut = nil
	_SendRequest
	bcs @goLaunch
	
	lda #0
	rts

@goLaunch	pushlong #c1_pathname
	pushlong #c1_quitname
	jsl WStringCopy

	lda #C1_QuitName	;tell it to launch from here
	sta quit_path
	lda #C1_QuitName>>16
	sta quit_path+2

	lda #$c000
	sta quit_flags

	lda #0	;no problem

@done	clc	;moved CLC here 19-Aug-91 DAL, because we want to
	rts	;handle the request even though there was an error

;
; expandParms -- always, always, always expand the pathname we're working with before sending
;                stuff to the Finder!
;
expandParms	dc.w 3
	dc.L c1_quitname
	dc.L c1_pathname-2
	dc.w 0

	EndP

;.....................................................................
;
; tFinderShutDown -- dataIn was 0, 1, or 2
;.....................................................................

tFinderShutDown	procname
	IMPORT quit_path
	IMPORT quit_flags

	lda <dataIn
	beq sdTurnOff
	cmp #1
	beq sdRestart
	cmp #2
	bne sdBogus

;
; just tell the main event loop to quit
;
	export handleQuit
handleQuit
@quit	lda #$c000
	sta quit_flags
	bra sdDone


;
; tell the main event loop to restart
;
sdRestart	lda #$c003
	sta quit_flags
	bra sdDone

;
; tell the main event loop to shut off the system power (if it could)
;
sdTurnOff	lda #$C001
	sta quit_flags

sdDone	stz quit_path
	stz quit_path+2

	clc
	lda #0		;no problem
	rts

sdBogus	clc
	lda #frqErrBadInput
	rts

	EndP


; tFinderCheckDatabase
;.....................................................................

tFinderCheckDatabase procname
	import QueryDatabase

	pha
	pha
	ldy #0
@loop	lda [<dataIn],y
	pha
	iny
	iny
	cpy #10
	blt @loop
	
	jsl QueryDatabase

	pla
	ldy #4
	sta [<dataOut],y
	plx
	
	clc		;handled the request
	rts

	EndP


; tFinderMatchFileToIcon
;
; +000 Word	pcount (11), minimum of 10
; +002 Word	Voting bits (4-7) we want ($8000 = donÕt care)
; +004 Word	Which match we want (1 or higher)
; +006 Word	filetype
; +008 Long	auxtype
; +012 Long	pointer to filename to match against
; +016 Long	pointer to create date/time, GS/OS format
; +020 Long	pointer to mod date/time, GS/OS format
; +024 Word	local access word
; +026 Word	flags, bit 15 = extended file, all other bits reserved
; +028 Long	pointer to  option_list or NIL
; +032 Long	Combined (resource and data fork) EOF
;.....................................................................

tFinderMatchFileToIcon procname
	import MatchFileToIcon
	
	ldx #fErrBadInput
	
	lda [<dataIn]
	cmp #12
	bge @bogus
	cmp #10
	blt @bogus
	
	tsc
	sec
	sbc #20		;put 5 longs on the stack
	tcs

	ldy #2
@stuff	lda [<dataIn],y
	pha
	iny
	iny
	cpy #32
	blt @stuff

	lda [<dataIn]
	cmp #11
	blt @min
	
	lda [<dataIn],y
	pha
	iny
	iny
	lda [<dataIn],y
	pha
	bra @match

@min	pea 0
	pea 0
	
@match	jsl MatchFileToIcon

	ldy #4
@pull	pla
	sta [<dataOut],y
	iny
	iny
	cpy #24
	blt @pull

	ldx #frqErrNoError		;error code
@bogus	txa
	clc		;handled the request
	rts

	EndP
	
;.....................................................................
;
; tFinderAddBundle -- tell the finder to examine the contents of the path and
;	  add to memory or desktop as necessary
;
; dataIn = +000 bit 15 = add to desktop, bit 14 = add to memory
;          +002 ptr to source pathname
;          +006 ptr to dest pathname
;          +010 rBundle ID to get
;.....................................................................

tFinderAddBundle 	procname
	import UpdateWindow		;input=<wind
	IMPORT finderDPage
	IMPORT matchWindName
	IMPORT walkWindow
	IMPORT WStringCopy
	IMPORT AddBundle2Desktop

	ldy #2		;expand the source pathname
	lda [<dataIn],y
	sta expandSource+2
	iny
	iny
	lda [<dataIn],y
	sta expandSource+4
	
	_ExpandPathGS expandSource
	tax
	bcs @nothing

	ldy #6		;expand the destination pathname
	lda [<dataIn],y
	sta expandDest+2
	iny
	iny
	lda [<dataIn],y
	sta expandDest+4
	
	lda #MaxPathLen+MaxFileName+4
	sta c1_temppath-2
	
	_ExpandPathGS expandDest
	tax
	bcs @nothing

	pha
	pea $8000		;always update link if possible
	ldy #12
	lda [<dataIn],y
	pha
	dey
	dey
	lda [<dataIn],y
	pha
	pushlong #c1_temppath
	pushlong #c1_pathname
	jsl AddBundle2Desktop
	plx
	bne @nothing

	ldx #frqErrNoError
@nothing	clc		;handled the request
	txa		;error code
	rts

;
; expandParms -- always, always, always expand the pathname we're working with before sending
;                stuff to the Finder Dave!  The Dave-man, D-D-D-Dave!, Daverino!
;
expandSource	dc.w 3
	dc.L 0
	dc.L c1_pathname-2
	dc.w 0
	
expandDest	dc.w 3
	dc.L 0
	dc.L c1_temppath-2
	dc.w 0

	EndP

;.....................................................................
;
; tFinderInformOfChange -- tell the finder that the xxx path has changed
; (handle tellFinderAboutChange)
;
;.....................................................................

tFinderInformOfChange procname
	import UpdateWindow		;input=<wind
	IMPORT finderDPage
	IMPORT matchWindName
	IMPORT walkWindow
	IMPORT WStringCopy

*** 21-Aug-92 DAL -- replace code with return-no-error (Volume Changed events should be enough)
	lda #0
	clc
	rts
*** end 21-Aug-92
;	ldx <dataIn
;	ldy <dataIn+2
;
;	phd
;	lda >finderDPage
;	tcd
;
;	pushZLong <wind
;	pushzlong <curWind
;
;	phy		;source W string
;	phx
;	pushlong #C1_Pathname	;dest W string
;	jsl WStringCopy
;
;	lda #MaxPathLen+MaxFileName+4
;	sta c1_temppath-2
;
;	_ExpandPathGS expandParms
;	tax
;	bcs @nothing
;
;	lda #DirWindID		;Directory windows only.
;	ldx #matchWindName		;Check for against C1_TempPath
;	jsr walkWindow
;	ldx #frqErrFailed
;	bcc @nothing		;we didn't match squat, so don't do squat
;
;; window pointer is now in <wind, where UpdateWindow expects it
;	jsr UpdateWindow
;
;	ldx #frqErrNoError
;
;@nothing	pulllong <curWind
;	pulllong <wind
;
;	pld
;
;	clc		;handled the request
;	txa		;error code
;	rts
;
;;
;; expandParms -- always, always, always expand the pathname we're working with before sending
;;                stuff to the Finder Dave!  The Dave-man, D-D-D-Dave!, Daverino!
;;
;expandParms	dc.w 3
;	dc.L c1_pathname
;	dc.L c1_temppath-2
;	dc.w 0

	EndP


;.....................................................................
;
; tFinderColorSelection -- color the current selected icons the given color
;
; Low word of dataIn = new color values ($xy00)
; High word of dataIn = color mask ($xy00)
;
;.....................................................................

tFinderColorSelection procname
	import FinderDPage
	import frqColorEntry
	import CheckMenus
	import bit31

	lda <dataIn+2		;this is the mask word
	ora bit31
	ora #$00ff		;don't let them change the other flags
	tax

	lda <dataIn		;this is the new color word
	and #$ff00		;don't let them change the other flags
	tay

	phd
	lda >finderDPage
	tcd

	jsr frqColorEntry	;Y=newColor, X=colorMask
	jsr CheckMenus

	pld

	clc
	lda #frqErrNoError
	rts

	EndP


;.....................................................................
;
; doIdleHowLong -- return the # of ticks since we had an event
;.....................................................................

tFinderIdleHowLong	procname
	IMPORT idleTicks

	ldy #4
	lda >idleTicks
	sta [<dataOut],y

	iny
	iny
	lda >idleTicks+2
	sta [<dataOut],y

	clc
	lda #0	;no problem

	rts

	EndP


;.....................................................................
;
; tFinderGetWindowInfo --
;
; dataIn = pointer to a Finder window
;
; dataOut = pointer to a buffer:
;  +000: recvCount
;  +002: finderResult
;  +004: windID (type of window: 2=directory, 4=trash, 8=clipboard,
;                $10=info, $20=verify, $40=about, $80=help)
;  +006: windView (0=Icon, 1=small icon, 2=name, 3=date, 4=size, 5=kind)
;  +008: windFST
;  +010: windTitle (PTR to PString)
;  +014: windPath (PTR to WString)
;
;.....................................................................
tFinderGetWindowInfo procname
	import FinderDPage,clipBlk

	lda >FinderDPage
	tax
	lda <dataIn
	sta >temp,x
	lda <dataIn+2
	sta >temp+2,x
	lda <dataOut
	sta >ptr,x
	lda <dataOut+2
	sta >ptr+2,x

	phd
	txa
	tcd	;<temp is dataIn, <ptr is dataOut

	lda <temp
	ora <temp+2
	beq @badInput	;NIL is bad

*** added 20-Aug-92 DAL -- Pretend the clipboard window is ours.
	pha
	pha	;space for ShowClipboard
	lda #0
	pha	;flags (just return pointer)
	pha
	pha	;rect pointer (nil)
;	_ShowClipboard
	ldx #$1516
	jsl $e10000
	plx
	ply
	cpy <temp+2
	bne @notClipboard
	cpx <temp
	bne @notClipboard
	ldy #clipBlk>>16
	ldx #clipBlk
	bra @windBlkYX
@notClipboard
*** end 20-Aug-92

	pha	;space for GetSysWFlag
	pei <temp+2
	pei <temp
	_GetSysWFlag
	pla
	beq @appWindow

@badInput	lda #frqErrBadInput
	bra @exit

@appWindow	pha
	pha
	pei <temp+2
	pei <temp
	_GetWRefCon
	plx
	ply
@windBlkYX	stx <temp
	sty <temp+2	;temp is now windBlk

	lda <temp+1
	beq @badInput	;if refcon is 0, this is some weird window (modal?)

	ldy #windID
	lda [<temp],y
	ldy #4
	sta [<ptr],y

	ldy #windView
	lda [<temp],y
	ldy #6
	sta [<ptr],y

	ldy #windFST
	lda [<temp],y
	ldy #8
	sta [<ptr],y

	clc
	lda <temp
	adc #windTitle
	ldy #10
	sta [<ptr],y
	lda <temp+2
	adc #0
	iny
	iny
	sta [<ptr],y

	clc
	lda <temp
	adc #windPath
	ldy #14
	sta [<ptr],y
	lda <temp+2
	adc #0
	iny
	iny
	sta [<ptr],y

	lda #0	;no problem
@exit	clc
	pld
	rts

	EndP


;.....................................................................
;
; tFinderAddToExtras -- add the following title and dispatch point to
;                     the Extras menu
;
;
; dataIn points to a menu item template.  Bit 15 of the item version
;   is set if this is the *first* item being inserted in this group.
;
; dataOut points to a result buffer:
;    recvCount
;    result code
;    result item ID
;
; Item numbering scheme for the Extras menu:
;
; Menu Item IDs $Exxx are reserved for Extras.
; Actual items have odd numbered IDs (E001, E003, ...)
; The first item in each group has a dividing line associated
;   with it (above it).  The dividing line item ID is one less
;   than the item ID.
;
;.....................................................................

tFinderAddToExtras	procname
	import FixUpExtrasMenu,noHiliteKludge

	lda #0
	ldy #4
	sta [<dataOut],y		;pre-zero item id
	iny
	iny
	sta [<dataOut],y		;pre-zero menu id

	lda [<dataIn]		;flag bits in 14&15
	sta oldMenuVersionField
	and #$3FFF		;clear bits 14 and 15
	sta [<dataIn]

*** create the Extras menu if it doesn't already exist
	lda numExtrasItems
	bne @alreadyHere

	pha
	pha
	pea 2		;refIsResource
	pea 0
	pea 9		;menu resource ID 9 = Extras
	_NewMenu2
	plx
	ply
	bcs @error0
	phy
	phx
	pea 650		;after Color menu
	_InsertMenu
	bcs @error0

	pha
	_FixMenuBar
	pla

@alreadyHere
*** done creating the menu

	inc numExtrasItems

*** check for a specific insertAfter value
	lda #$ffff
	sta afterWhatID
	lda oldMenuVersionField
	and #$4000	;bit 14 = insert after specified item
	beq @boring
	ldy #2
	lda [<dataIn],y	;get the ID to insert after
	sta afterWhatID
@boring

*** Now look for a free item ID to use (odd numbers from $E001 for items; the
*** even numbers are reserved for dividing lines)

	ldx #$e001
@nextItemID	phx

	pha		;put us in this loop until we run outta gas and find an open
	pha		;menu item ID
	phx
	_GetMItem
	pla
	pla
	plx
	bcs @useThisOne
	inx
	inx
	cpx #$f000
	bcc @nextItemID
	lda #frqErrFailed
@error0	brl @error

@useThisOne	stx nextExtraID
	txa
	ldy #2
	sta [<dataIn],y		;stuff a new item ID in their template

*** If necessary, insert a dividing line before this item
	dec a
	sta thisDividingID

	lda numExtrasItems
	dec a
	beq @noDividingLine		;first item in menu --> no dividing line

	lda oldMenuVersionField
	bpl @noDividingLine		;bit 15 of template version = dividing line flag

	pea 0		;pointer
	pushlong #dividingLineTmpl
	lda afterWhatID
	pha
	pea 1000
	_InsertMItem2		;if it doesn't work, too bad

	lda thisDividingID
	sta afterWhatID

@noDividingLine

*** Insert the actual item
	pea 0		;pointer
	pei <dataIn+2
	pei <dataIn
	lda afterWhatID
	pha
	pea 1000		;Extras menu ID
	_InsertMItem2
*** restore the template flag bits! ***
	php
	pha
	lda oldMenuVersionField
	sta [<dataIn]
	pla
	plp
*** done restoring the version field
	bcs @error

	pea 0
	pea 0
	pea 1000
	_CalcMenuSize

	lda nextExtraID		;store the menu item id
	ldy #4
	sta [<dataOut],y

	lda #1000		;store the Extras menu ID
	ldy #6
	sta [<dataOut],y

	lda NumExtrasItems
	dec a
	bne @notFirst
	inc noHiliteKludge		;18-Nov-91 DAL
@notFirst	jsr FixUpExtrasMenu
	stz noHiliteKludge		;18-Nov-91 DAL

*** If the Extras menu has just appeared, Hilite it once to make it draw
	lda NumExtrasItems
	dec a
	bne @noHiliteNeeded

;;	pea 0
;;	pea 1000
;;	_HiliteMenu
*** added 14-Nov-91 DAL -- instead of hiliting the menu, call DrawMenuBar, so
*** TrasnProg will show up right (and anybody else who is patching DrawMenuBar)
	jsr ClippedDrawMenuBar
*** end 14-Nov-91

@noHiliteNeeded

	lda #frqErrNoError
@error	clc
	rts

	export numExtrasItems
numExtrasItems	dc.w 0
nextExtraID	dc.w 0

dividingLineTmpl	dc.w 0	;version
thisDividingID	dc.w 0	;menu item id
	dc.b 0,0	;key equivs
	dc.w 0	;check char
	dc.w $0080	;flags = disabled
	dc.l divideString

divideString	dc.b 1,'-'

oldMenuVersionField	dc.w 0
afterWhatID	dc.w 0

;.....................................................................
;
; ClippedDrawMenuBar -- refresh the menu bar from Extras over
;
;.....................................................................
ClippedDrawMenuBar	name
	pha
	pha
	_GetPort	;preserve port
	pha
	pha
	_GetMenuMgrPort
	_SetPort	;set to Menu Mgr port

	pha
	pha
	_NewRgn
	lda 3,s
	pha
	lda 3,s
	pha	;duplicate the handle
	_GetClip

	jsr FindExtrasCoordinate
	sta myClipRect+2

	pushlong #myClipRect
	_ClipRect

	_DrawMenuBar	;refresh just from Extras over

	_SetClip	;old clip region on stack
	_SetPort	;restore port
	rts

myClipRect	dc.w 0,0,10000,10000

*
* Walk through the menu bar adding up the widths of the menus, until
* we get to Extras.  Return X coordinate in A.
*
FindExtrasCoordinate
	phd
	pha
	pha	;space for menu handle
	pha
	pha	;space for menu bar handle/ptr
	_GetMenuBar
	pha
	_GetMTitleStart
	tsc
	tcd
@position	equ 1
@bar	equ @position+2
@menu	equ @bar+4

	ldy #2
	lda [<@bar],y
	tax
	lda [<@bar]
	sta <@bar
	stx <@bar+2

	ldy #$28-4	;offset to first menu (minus 4)
@addOneMenu	iny
	iny
	iny
	iny
	phy
	lda [<@bar],y
	sta <@menu
	iny
	iny
	lda [<@bar],y
	sta <@menu+2
	ldy #2	;got a menu handle; now deref it
	lda [<@menu],y
	tax
	lda [<@menu]
	sta <@menu
	stx <@menu+2

	lda [<@menu]	;get menu ID
	cmp #1000	;Extras menu ID
	beq @done
	ldy #$0E	;offset to menu width
	clc
	lda <@position
	adc [<@menu],y
	sta <@position

	ply
	bra @addOneMenu

@done	ply	;discard menu index
	pla	;pull position (return in A)
	ply
	ply	;discarded bar ptr
	ply
	ply	;discarded menu ptr
	pld
	rts

	EndP

;.....................................................................
;
; tFinderRemoveFromExtras
;.....................................................................
tFinderRemoveFromExtras procname
	import numExtrasItems,ExtensionsShuttingDown,FixUpExtrasMenu

*** added 24-Feb-92 DAL -- Validate the item ID (must be $Exxx)
	lda <dataIn
	and #$f000
	cmp #$e000
	sec
	bne @bcsFailed
*** end 24-Feb-92

	pha
	pha
	pei <dataIn
	_GetMItem
	plx
	plx
@bcsFailed	bcs @failed

*** Remove the dividing line above this item, if there is one
	lda <dataIn
	dec a
	pha
	_DeleteMItem	;if it doesn't work, that's ok

	pei <dataIn
	_DeleteMItem
	bcs @failed

	lda numExtrasItems
	cmp #2
	bcc @dying
	jsr KillOrphanedDivLine  ;15-Sep-91 DAL
@dying

	lda #0
	pha	;new width
	pha	;new height
	pea 1000	;Extras menu ID
	_CalcMenuSize

	dec numExtrasItems
	bmi @nothingToRemove
	bne @done

	pha
	pha
	pea 1000	;Extras menu ID
	_GetMHandle	;leave handle on stack for DisposeMenu

	pea 1000
	_DeleteMenu

	_DisposeMenu	;handle already on stack

	lda ExtensionsShuttingDown
	bne @dontDrawMBar

	pha
	_FixMenuBar
	pla
	_DrawMenuBar

@done	jsr FixUpExtrasMenu
@dontDrawMBar
	lda #frqErrNoError
	clc
	rts

@nothingToRemove	stz numExtrasItems
@failed	lda #frqErrFailed
	clc
	rts

;.....................................................................
;
; KillOrphanedDivLine
;
; If removing an item left the very first item in the menu a dividing
; line (an even-numbered item) then delete it!
;
; Look at offset $0018 in the Extras menu handle to find the item ID
; of the first item.  This is cheating, but who cares?
;
;.....................................................................
KillOrphanedDivLine	phd
	pha
	pha	;space for GetMHandle
	pea 1000
	_GetMHandle
	tsc
	tcd
	ldy #2
	lda [1],y
	tax
	lda [1]
	sta <1
	stx <3
	ldy #$0018	;offset to ID of first menu item
	lda [1],y
	tax
	lsr a
	bcs @exit	;odd number = fine
	phx
	_DeleteMItem
@exit	pla
	pla
	pld
	rts

	EndP


;.....................................................................
;
; tFinderSelectMItem
;.....................................................................
tFinderSelectMItem procname
	import SaveMenuID,FinderDPage,tellFinderSelectMItemEntry,allowTellFinderCalls
	import setupFunctionKeys,CheckMenus

	lda >FinderDPage
	tax

	ldy #2
	lda [<dataIn],y
	and #$feff
	sta >modifiers,x

	lda [<dataIn]
	sta >TaskData,x
	
	ldx #0
@loop	cmp MenuIDMap,x	;is this an item I know about?
	beq @found	;yes
	inx
	inx
	inx
	inx
	cpx #EndMenuIDMap-MenuIDMap
	bcc @loop
	
	lda #fErrBadInput
	clc
	rts

@found	lda MenuIDMap+2,x
	sta SaveMenuID

	cmp #idColorMenu
	bne @notColorMenu
	
	pha
	pha
	_GetMenuFlag
	bra @commonCode

@notColorMenu	lda [<dataIn]
	pha
	pha
	_GetMItemFlag
@commonCode	pla
	and #$0080
	beq @enabled
	
	lda #FErrDimmed
	clc
	rts

@enabled	ldy #4
	lda [<dataIn],y
	bpl @noHilite
		
	pea $FFFF	; pass hilite flag
	lda SaveMenuID
	pha	; pass menu ID
	_HiliteMenu
	bra @hilite
	
@noHilite	stz SaveMenuID

@hilite	phd
	lda >finderDPage
	tcd

	lda >allowTellFinderCalls
	pha
	lda #0
	sta >allowTellFinderCalls

	jsr SetupFunctionKeys
	jsr tellFinderSelectMItemEntry
	jsr CheckMenus

	pla
	sta >allowTellFinderCalls

	pld
	
	lda #fErrNoError
	clc
	rts
	
MenuIDMap	DC.W idAbout,idAppleMenu
	DC.W idHelp,idAppleMenu
	DC.W idNewFolder,idFileMenu
	DC.W idOpen,idFileMenu
	DC.W idPrint,idFileMenu
	DC.W idClose,idFileMenu
	DC.W idCloseAll,idFileMenu
	DC.W idDuplicate,idFileMenu
	DC.W idPutAway,idFileMenu
	DC.W idValidate,idFileMenu
	DC.W idUndo,idEditMenu
	DC.W idCut,idEditMenu
	DC.W idCopy,idEditMenu
	DC.W idPaste,idEditMenu
	DC.W idClear,idEditMenu
	DC.W idSelectAll,idEditMenu
	DC.W idShowClip,idEditMenu
	dc.W idStackWindows,idWindowsMenu
	DC.W idByIcon,idViewMenu
	DC.W idByTinyIcon,idViewMenu
	DC.W idByName,idViewMenu
	DC.W idByDate,idViewMenu
	DC.W idBySize,idViewMenu
	DC.W idByKind,idViewMenu
	DC.W idFormat,idDiskMenu
	DC.W idErase,idDiskMenu
	DC.W idVerify,idDiskMenu
	DC.W idEject,idDiskMenu
	DC.W idCleanUp,idSpecialMenu
	DC.W idEmptyTrash,idSpecialMenu
	DC.W idPreferences,idSpecialMenu
	DC.W idIconInfo,idSpecialMenu
	DC.W idShutDown,idSpecialMenu
	DC.W idCleanUpByName,idSpecialMenu
	DC.W idColor_0,idColorMenu
	DC.W idColor_1,idColorMenu
	DC.W idColor_2,idColorMenu
	DC.W idColor_3,idColorMenu
	DC.W idColor_4,idColorMenu
	DC.W idColor_5,idColorMenu
	DC.W idColor_6,idColorMenu
	DC.W idColor_7,idColorMenu
	DC.W idColor_8,idColorMenu
	DC.W idColor_9,idColorMenu
	DC.W idColor_A,idColorMenu
	DC.W idColor_B,idColorMenu
	DC.W idColor_D,idColorMenu
	DC.W idColor_E,idColorMenu
	DC.W idColor_F,idColorMenu
EndMenuIDMap

	EndP

; tellFinderSpecialPreferences
;.....................................................................

tFinderSpecialPreferences procname
	import EjectNonRemovable

	ldy #2
	lda [<dataIn],y
	sta EjectNonRemovable

	lda #0	;finderResult (added 24-Feb-92 DAL)
@done	clc
	rts

;.....................................................................
;
; SayExtrasChosen -- send out the finderSaysExtrasChosen message
;
; Input: Menu ID in A
;
; Call with JSL
;
;.....................................................................
SayExtrasChosen	procname export
	import allowTellFinderCalls
	
	tax
	lda #$FFFF
	sta >allowTellFinderCalls
	txa

	ldx #0		;a handy zero

	pea finderSaysExtrasChosen
	pea $8000		;stop after one acceptance
	phx
	phx		;target=nil (everybody)
	phx		;high word of dataIn (reserved)
	pha		;low word of dataIn (menu item number)
	phx
	phx		;dataOut = nil
	_SendRequest
	bcc @accepted
	pea $000C		;sbOperationFailed
	_SysBeep2
@accepted	lda #0
	sta >allowTellFinderCalls
	rtl

	EndP


;.....................................................................
;
; SayIdle -- send out the finderSaysIdle message
;
; Input: Nothing
;
; Call with JSL
;
;.....................................................................
SayIdle	procname export
	import allowTellFinderCalls,pushtask
	import idleTicks

	pha		;space
	pea $f000		;application events pending? (like disk inserts)
	jsr pushTask		;ptr to task record (same as event record)
	_EventAvail
	pla
	bne @done

	ldx #0		;a handy zero

	pea finderSaysIdle
	phx		;don't stop (oooo, oooo)
	phx
	phx		;target=nil (everybody)
;;;	phx		;high word of dataIn (reserved)
;;;	pha		;low word of dataIn (reserved) in 6.0 (zero)
*** changed 17-Feb-92 -- pass the idle time as dataIn to finderSaysIdle in 6.0.1
	lda >idleTicks+2
	pha
	lda >idleTicks
	pha
*** end 17-Feb-92
	phx
	phx		;dataOut = nil
	_SendRequest
@done	rtl

	EndP

;.....................................................................
;
; SayHelloToExtensions -- send out the finderSaysHello message
;
; Call with JSL
;
; dataIn passed to SendRequest points to a buffer in this format:
;   +000 Word  parameter count (at least 2)
;   +002 Long  rVersion word
;   +006 Word  Finder's memory ID for SetCurResourceApp
;
;.....................................................................
SayHelloToExtensions procname export
	import selectionIsChanging
	import allowTellFinderCalls
	import LoadExtensions,KillExtensions

	jsl LoadExtensions		;6-Nov-91 DAL

	lda #$FFFF
	sta >allowTellFinderCalls

	jsl selectionIsChanging
	lda #0
	sta >ExtensionsShuttingDown

	pha
	_MMStartUp
	pla
	sta >helloMemID

	pha
	pha
	pea $8029		;rVersion(1)
	pushlong #1
	_LoadResource
	phd
	tsc
	tcd
	ldy #2
	lda [3],y
	tax
	lda [3]
	sta <3
	stx <5		;dereferenced rVersion handle
	lda [3]		;grab first longword = version
	sta >helloVersion
	lda [3],y
	sta >helloVersion+2
	pld
	pla
	pla

	pea finderSaysHello		;request code
	ldx #0
	phx		;send to everybody who wants it
	phx
	phx		;target=nil (everybody)
	pushlong #helloDataIn	;data in
	phx
	phx		;data out
	_SendRequest

	lda #0
	sta >allowTellFinderCalls
	rtl

;
; once the finder is started up, DON'T move the helloDataIn values or change them.  Matt Deatherage
; is depending on them staying around
;
helloDataIn	dc.w 4	;4 for 6.0.1 (3 parameters in 6.0)
helloVersion	dc.l 0
helloMemID	dc.w 0
	dc.w ICSIZE	;3rd parm = size of non-extended icon (for finding extended fields)
*** Fields added for 6.0.1
helloFlags	dc.w $0001	;bit 0 disables the 6.0 KeyboardNav init (2-Jun-92 DAL)
*** end of 6.0.1 fields

	export SayGoodbyeToExtensions
SayGoodbyeToExtensions
	lda #1
	sta >ExtensionsShuttingDown
	lda #finderSaysGoodbye
	jsl SendSomeReq		;6-Nov-91 DAL
	jsl KillExtensions		;6-Nov-91 DAL
	rtl		;6-Nov-91 DAL

	entry SendSomeReq
SendSomeReq	tax		;save request code in X
	lda >allowTellFinderCalls
	pha
	lda #$FFFF
	sta >allowTellFinderCalls
	txa		;A = request code

	pha		;push reqCode
	ldx #0		;a handy zero
	phx		;send to everybody who wants it
	phx
	phx		;target=nil (everybody)
	phx		;
	phx		;dataIn = nil
	phx
	phx		;dataOut = nil
	_SendRequest
	
	pla
	sta >allowTellFinderCalls
	rtl

	export ExtensionsShuttingDown
ExtensionsShuttingDown dc.w 0

	EndP

;.....................................................................
;
; selectionIsChanging
;.....................................................................

selectionIsChanging procname export
	lda #$FFFF
	sta >changed
	rtl

;.....................................................................
;
; CheckSelectionChanged -- called by main loop
;
; If the selection has changed, tell all the extensions about it
;
;.....................................................................
	export CheckSelectionChanged
CheckSelectionChanged
	lda >changed
	bne @itChanged
	rtl

@itChanged	lda #0
	sta >changed
	lda #finderSaysSelectionChanged
	jsl SendSomeReq
	phb
	phk
	plb
	jsr FixUpExtrasMenu
	plb
	rtl

changed	dc.w 0		;boolean, has the selection changed?


*
* FixUpExtrasMenu -- disable menu if all items are disabled
*
	export FixUpExtrasMenu
FixUpExtrasMenu	lda numExtrasItems
	beq @noExtras

	ldx #$dfff
@checkNextItem	pha

	jsr GetNextItemFlag
	ldy #$ff7f	;enable menu
	and #$0080
	beq @enabled

	pla
	dec a
	bne @checkNextItem
	pha
	ldy #$0080	;disable menu

@enabled	pla	;discard item count

	jsr mySetMenuFlag	;input in Y

@noExtras	rts

*
* mySetMenuFlag -- new menu flag value in Y (menu ID = 1000, Extras menu)
*
mySetMenuFlag	phy

	pha
	pea 1000
	_GetMenuFlag
	pla
	eor 1,s
	and #$0080
	beq @noHilite

	lda 1,s
	pha
	pea 1000
	_SetMenuFlag

	lda noHiliteKludge
	bne @noHilite	;18-Nov-91 DAL

	pea 0
	pea 1000
	_HiliteMenu
@noHilite	ply
	rts

	export noHiliteKludge
noHiliteKludge	dc.w 0

*
* GetNextItemFlag -- Running Item ID in X, return flag in A
*
* Remember, real items have odd-numbered item IDs, and dividing
* lines have even-numbered IDs.  We assume all the dividing lines
* are disabled (duh), and only look at the real items.
*
GetNextItemFlag	phx
@tryNext	plx
	inx
	inx
	phx
	pha
	pha	;space for GetMItem
	phx
	_GetMItem
	pla
	pla	;discard result
	bcs @tryNext

	plx
	phx
	pha	;space for GetMItemFlag
	phx	;item id
	_GetMItemFlag
	pla

	plx
	rts

	EndP


;=====================================================================
;
; THE FOLLOWING FINDER REQUESTS ARE NOT IMPLEMENTED IN 6.0
;
;=====================================================================

;.....................................................................
;
; tFinderAdjustHelpTopics --
;
; Provides a way for Finder Extensions to add their Help items to
; the Finder's pop-up Help menu.
;
;.....................................................................
tFinderAdjustHelpTopics proc
	EndP

;.....................................................................
;
; tFinderAddDesktopIcon -- oo, ick.
;
; Concept:  Add a brand new icon to the desktop (not corresponding
;           to a file).  When people do things to this icon (like
;           opening it or dragging files onto it), the extension that
;           created it gets to handle it.
;
;.....................................................................
tFinderAddDesktopIcon proc
	EndP

;.....................................................................
;
; tFinderPutInTrash -- put a file from a full pathname into the trash
;.....................................................................
tFinderPutInTrash	proc
	EndP

;.....................................................................
;
; tFinderPutOnDesktop -- put a file from a full path onto the desktop
;
; This would be really handy for Find File!
;
;.....................................................................
tFinderPutOnDesktop proc
	clc
	lda #frqErrNotImp
	rts

	EndP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Finder/resource.equ b/IIGS.601.SRC/A.U.G/Finder/resource.equ
new file mode 100644
index 0000000..983371d
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Finder/resource.equ
@@ -0,0 +1 @@
+; resource ID equates
;.....................................................................


;
; rMItems for menus
;

rMItemCleanup	equ	$29
rMItemCleanUpByName equ	$2E

;
; rPStrings
;
rPStringPrompt	equ	$200
rPStringPrompt2	equ	$201
rPStringStop	equ	$f9

resNoWindowsOpen equ	$15			;resource ID for no windows open menu

;
; resource alert strings
;
rasBadFilename	equ	$01
rasChangeOwner	equ	$02
rasCouldntApply equ	$03
rasInsertDiskOrCancel equ $05	;*0 used as the replacement string
rasMayBeDamaged	equ	$06
rasChangeNoAccess equ	$07
rasChangeBadUser equ	$0C
rasChangeBadGroup equ	$0D
rasChangePathTooLong equ $0E
rasFileBusy	equ	$0F
rasInTrash	equ	$10
rasDirFull	equ	$11
rasDiskFull	equ	$12
rasWriteProtected equ	$13
rasNoAccess	equ	$15
rasDragErr1	equ	$17
rasDragErr2	equ	$18
rasDragErr3	equ	$19
rasDragErr4	equ	$1A
rasDesErr	equ	$1B
rasSharedVol	equ	$1C
rasChangePath	equ	$1D
rasIOErr	equ	$1E
rasNoMedia	equ	$1F
rasCantMove	equ	$20
rasNoPrivs	equ	$21
rasNoAccess2	equ	$22
rasSysErr	equ	$23
rasTooMany	equ	$24
rasMaxWindows	equ	$25
rasMemErr	equ	$26
rasCantSee	equ	$27
rasDupDev	equ	$28
rasDup525	equ	$29
rasNoRead	equ	$2A
rasWriteProtected8 equ	$2B
rasCopyErr	equ	$2C
rasWarnDelete	equ	$2E
rasPathTooLong	equ	$2F
rasNoApplication equ	$32
rasParents	equ	$33
rasType		equ	$34
rasReplaceDisk	equ	$35
rasDiskInFolder	equ	$36
rasLocked1	equ	$37
rasLocked2	equ	$38
rasNoRoom	equ	$39
rasNoApp	equ	$3B
rasNonRemove	equ	$3C
rasNoNames	equ	$3D
rasAddComment	equ	$3E
rasServerComment equ	$40
rasRComment2	equ	$43
rasVerifyGood	equ	$44
rasVerifyBad	equ	$45
rasValidGood	equ	$46
rasValidBad	equ	$47
rasInsertDiskOrCancel8 equ $48	;*8 is used as replacement string
rasRepFile	equ	$49
rasOutOfMemory	equ	$4A
rasLowMem	equ	$4B
rasNoStandardFile equ	$4C
rasWrongAppFST	equ	$4D
rasWrongDocFST	equ	$4E
rasDragLocked	equ	$4F
rasDragReadOnly	equ	$50
rasFileTooBig	equ	$51
rasLotsOfFiles	equ	$52
rasRoutingMultiple equ	$53
rasRoutingSingle equ	$54	;must follow rasRoutingMultiple sequentially
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Finder/shutdown.rez b/IIGS.601.SRC/A.U.G/Finder/shutdown.rez
new file mode 100644
index 0000000..1084cac
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Finder/shutdown.rez
@@ -0,0 +1 @@
+// --------------------------------------------------------------------
// shutdown.REZ
// Copyright 1991 Apple Computer, Inc.
// All Rights Reserved
//
// 2/12/91, andy, created today
// --------------------------------------------------------------------

// --- Control List Definitions

resource rControlList (CTLLST_00000004, $0) {
       {
       CTLTMP_00003000,        // control 1
       CTLTMP_00003001,        // control 2
       CTLTMP_00003002,        // control 3
       CTLTMP_00003003,        // control 4
       CTLTMP_00003004,        // control 5
       CTLTMP_00003005,        // control 6
       CTLTMP_00003006,        // control 7
       };
};

// --- Control Templates

resource rControlTemplate (CTLTMP_00003000, $0) {
       $00000000,              // ID
       { 28, 28, 39,300},      // rect
       radioControl {{
               $0000,          // flag
               $3002,          // moreFlags
               $00000000,      // refCon
               PSTR_00003000,  // titleRef
               $0001,          // initialValue
               0,              // colorTableRef
               {"S","s",$0000,$0000}  // key equivalents
       }};
};

resource rControlTemplate (CTLTMP_00003001, $0) {
       $00000001,              // ID
       { 41, 28, 50,110},      // rect
       radioControl {{
               $0000,          // flag
               $3002,          // moreFlags
               $00000000,      // refCon
               PSTR_00003001,  // titleRef
               $0000,          // initialValue
               0,              // colorTableRef
               {"R","r",$0000,$0000}  // key equivalents
       }};
};

resource rControlTemplate (CTLTMP_00003002, $0) {
       $00000002,              // ID
       { 53, 28, 63,264},      // rect
       radioControl {{
               $0000,          // flag
               $3002,          // moreFlags
               $00000000,      // refCon
               PSTR_00003002,  // titleRef
               $0000,          // initialValue
               0,              // colorTableRef
               {"Q","q",$0000,$0000}  // key equivalents
       }};
};

resource rControlTemplate (CTLTMP_00003003, $0) {
       $00000003,              // ID
       { 4, 22, 24, 52},      // rect
       iconButtonControl {{
               $000C,          // flag
               $1020,          // moreFlags
               $00000000,      // refCon
               ICON_07FF0003,  // iconRef
               0,              // titleRef
               0,              // colorTableRef
               $0000           // displayMode
       }};
};

resource rControlTemplate (CTLTMP_00003004, $0) {
       $00000004,              // ID
       {  6, 94, 19,327},      // rect
       statTextControl {{
               $0000,          // flag
               $1002,          // moreFlags
               $00000000,      // refCon
               LETXTBOX_00003000,     // textRef
               0, 				// textSize
               $0000           // just
       }};
};

resource rControlTemplate (CTLTMP_00003005, $0) {
       $00000005,              // ID
       { 69,174, 82,264},      // rect
       simpleButtonControl {{
               $0000,          // flag
               $3002,          // moreFlags
               $00000000,      // refCon
               PSTR_000000FE,  // titleRef
               0,              // colorTableRef
               {"\$1B", "\$1B",$0000,$0000}  // key equivalents
       }};
};

resource rControlTemplate (CTLTMP_00003006, $0) {
       $00000006,              // ID
       { 69,274, 82,364},      // rect
       simpleButtonControl {{
               $0001,          // flag
               $3002,          // moreFlags
               $00000000,      // refCon
               PSTR_000000FF,  // titleRef
               0,              // colorTableRef
               {"\$0D", "\$0D",$0000,$0000}  // key equivalents
       }};
};

// --- rPString Templates

resource rPString (PSTR_00003000, $0) {
       "Shut Down (turn off system power)"
};

resource rPString (PSTR_00003001, $0) {
       "Restart"
};

resource rPString (PSTR_00003002, $0) {
       "Quit to previous application"
};

// --- rTextForLETextBox2 Templates

resource rTextForLETextBox2 (LETXTBOX_00003000, $0) {
       "\$01"
       "F"
       "\$FE"
       "\$FF"
       "\$09"
       "\$08"
       "\$01"
       "B"
       "\$FF"
       "\$FF"
       "Finder Shut Down Options"
};

// --- Window Templates

resource rWindParam1 (WPARAM1_00000004, $0) {
       $2020,                  // plFrame (frame bits)
       NIL,                    // plTitle (no Title)
       $00000000,              // plRefCon
       {  0,  0,  0,  0},      // plZoomRect
       NIL,                    // plColorTable (standard colors)
       {$0000, $0000},         // plYOrigin, plXOrigin
       {$0000, $0000},         // plDataHeight, plDataWidth
       {$0000, $0000},         // plMaxHeight, plMaxWidth
       {$0000, $0000},         // plVerScroll, plHorScroll
       {$0000, $0000},         // plVerPage, plHorPage
       $00000000,              // plInfoText (info RefCon)
       $0000,                  // plInfoHeight
       { 45,130,131,510},      // plPosition
       infront,                // plPlane
       CTLLST_00000004,        // plControlList
       $0009                   // plInDesc
};

\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Finder/special.macros b/IIGS.601.SRC/A.U.G/Finder/special.macros
new file mode 100644
index 0000000..b2b03fe
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Finder/special.macros
@@ -0,0 +1 @@
+;---------------------------------------------------------

	macro
&lab	SetMode16
&lab
	rep #$30
	longa on
	longi on
	ENDM

	macro
&lab	SetMode8
&lab
	sep #$30
	longa off
	longi off
	ENDM

	MACRO
&lab	PushPtr &addr
&lab
	dc.B $F4
	dc.W (&addr)>>16
	dc.B $F4
	dc.W &addr
	MEND

;---------------------------------------------------------

	MACRO
	PushZPtr &A
		pea  $0000
		tdc
		clc
		adc  #&A
		pha
	MEND

;---------------------------------------------------------

	MACRO
	PushZLong &A
		pei &A+2
		pei &A
	MEND

;---------------------------------------------------------

	MACRO
	PushZWord &A
		pei  &A
	MEND

;---------------------------------------------------------------

;-----------------------------------------------------------
;
; This is the template for statTextControl.
;
StatTextTemplate	RECORD  0

pCount	ds.w  1	;parameter count (7 or 8)
ID	ds.l  1	;ID for the control 
Rect	ds.w  4	;bounding rectangle
ProcRef	ds.l  1	;StatTextControl = $81000000
Flag	ds.w  1	;low 2 bits refer to TextRef
MoreFlags	ds.w  1	;must be 0
RefCon	ds.l  1	;application defined
TextRef	ds.l  1	;Pointer, Handle, resourceID, or Offset
TextSize	ds.w  1	;If text is ref'ed by ptr or offset, this is valid
Just	ds.w  1	;Initial justification word to be passed to LETextBox2
RecordSize
	ENDR


;-----------------------------------------------------------
;
; This is the template for LineEdit controls
;
LineEditTemplate	RECORD  0

pCount	ds.w  1	;parameter count (8)
ID	ds.l  1	;ID for the control 
Rect	ds.w  4	;bounding rectangle
ProcRef	ds.l  1	;LineEditControl = $83000000
Flag	ds.w  1	;old style flag word
MoreFlags	ds.w  1	;new flag word
RefCon	ds.l  1	;application defined
MaxLen	ds.w  1	;maximum length of input line
IVRef	ds.l  1	;Reference to initial value
RecordSize
	ENDR
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Finder/util.aii b/IIGS.601.SRC/A.U.G/Finder/util.aii
new file mode 100644
index 0000000..38e0e96
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Finder/util.aii
@@ -0,0 +1 @@
+;=====================================================================
		TITLE	'Apple IIGS Finder          UTIL.aii'
;
;	   Copyright Apple Computer, Inc. 1986-1992
;	   All rights reserved.
;
;	   By Dan Oliver
;
; Modification History for Version 1.2:
; -------------------------------------
;
; 05/17/88 DJB	- change call to EjectMedia for hack
;		- added types $FFF4-$FFF8 to "cutNFree" 
; 08/01/88 JAM	- Changed Sort (byDate) to deal properly
;		- with class 1 date and time records
; 08/06/88 DJB	- Removed DayofWeek() routine (no longer needed).
; 08/05/88 JAM	- BUG DAC044FND Changed Sort (byKind)
;		- to order Kinds according to alphabetic
;		- kind string rather than integer kind value.
; 08/10/88 DJB	- Changed KindToString to use more strings
;=====================================================================
;
; 6.0 work mostly by Andy Nicholas, late 1990 to early 1992
;
;=====================================================================
;
; 6.0.1 work mostly by Dave Lyons, 1992.
;
;   Most changes marked with "DAL"
;
; 1-Mar-93 JCM - For 6.0.1d14 - Fixed the problem where emptying the
;		 trash with file Icon Info windows open would cause
;		 them all to update as though they were disk info
;		 windows.
;
; 18-Mar-93 JCM - Fixed my 1-Mar fix to updateInfoWind. One branch was
; 		  logically backwards and it was going to the wrong spot.
;		  When it branched, it pulled a word from that stack that
;		  hadn't yet pushed. Whoops. This was a cool one in that if
;		  you renamed devices with an info window open, you would get
;		  the "Finder needs a FType file..." message. Coolness. :-)
;
;=====================================================================

		STRING	ASIS
		BLANKS	OFF
		
		PRINT	OFF
		
		PRINT	NOGEN
		PRINT	NOSYM
		PRINT	NOPAGE
		PAGESIZE $FFFF,126
		INCLUDE 'All.macros'
		INCLUDE	'special.macros'
		INCLUDE	'Pascal.MACROS'
		INCLUDE	'Finder.equ'
		INCLUDE	'Resource.equ'
		INCLUDE	'DP.equ'
		INCLUDE	'Data.equ'
		
		PRINT	ON


;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

		import DisposeHandleGlue

		IMPORT	StringBase
		IMPORT	WStringCopy
		IMPORT	makeDevName
		IMPORT	doVolume
		IMPORT	PathAddName
		IMPORT	PtoWString
		IMPORT	doGetFileInfo
		IMPORT	FreeBlks
		IMPORT	NumBlks
		IMPORT	fileSysID		
		IMPORT	redrawList		
		IMPORT	drawIcon2		
		IMPORT	write_buff		
		IMPORT	write_len	
		IMPORT	file_type
		IMPORT	create_access		
		IMPORT	doWrite		
		IMPORT	lenError		
		IMPORT	doClose2		
		IMPORT	killInfoWind
		IMPORT	cutIcon
		IMPORT	info_ctime
		IMPORT	info_cdate		
		IMPORT	getBigRect
		IMPORT	growZoom
		IMPORT	NewDialog

;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

		ENTRY	UpdateRootSizeW
		ENTRY	UpdateRootSize
		ENTRY	GetVolSizes
		ENTRY	GETWINDPATH
		ENTRY	GETICONRECT
		ENTRY	ALLOCATERGN
		ENTRY	ALLOCATERGN
		ENTRY	GETICONRECT
		ENTRY	GETICONRECT
		ENTRY	CLOSEKIDS
		ENTRY	MAKEICROOT
		ENTRY	CKDATAWRITE
		ENTRY	FINDLASTNAME
		ENTRY	GETEXTNAME
		ENTRY	KILLICON


		ENTRY	allocate2		
		ENTRY	derefHand
		ENTRY	ifDesk
		ENTRY	clonePath
		ENTRY	findRootIc
		ENTRY	setInfo
		ENTRY	setItems
		ENTRY	justRootName
		ENTRY	setKs
		ENTRY	getFrontWind
		ENTRY	getNextWind
		ENTRY	getWindID
		ENTRY	getWindID2
		ENTRY	getWoffset2
		ENTRY	RectHit2
		ENTRY	buildRects2
		ENTRY	getRectRgn
		ENTRY	addIconRgn
		ENTRY	addirect2
		ENTRY	addRgn
		ENTRY	buildRectList
		ENTRY	StartDraw
		ENTRY	endDraw
		ENTRY	pushirect1
		ENTRY	pushirect2
		ENTRY	pushwork
		ENTRY	pushTask
		ENTRY	pushrect
		ENTRY	pushzpage
		ENTRY	WalkGoto
		ENTRY	walkOfLife3
		ENTRY	walkOfLife2
		ENTRY	walkBack
		ENTRY	walkBack2
		ENTRY	tocall
		ENTRY	toDesktop
		ENTRY	getwRefCon
		ENTRY	getwRefCon2
		ENTRY	getDeskWindBlk
		ENTRY	windRefCon
		ENTRY	getHeadIcon
		ENTRY	toDeskPort
		ENTRY	lockic
		ENTRY	setic
		ENTRY	unlockic
		ENTRY	setTemp
		ENTRY	windSpot
		ENTRY	startHash
		ENTRY	markOffLine
		ENTRY	markOnLine
		ENTRY	markClosed
		ENTRY	allOffLine
		ENTRY	allOnLine
		ENTRY	matchRootName
		ENTRY	geticNamePtr2
		ENTRY	addRootName
		ENTRY	addName
		ENTRY	getRootName
		ENTRY	buildPath
		ENTRY	buildPath2
		ENTRY	temp2path
		ENTRY	ckRoots
		ENTRY	cutNfree
		ENTRY	wipeIcon
		ENTRY	walkExt
		ENTRY	walkExt2
		ENTRY	ckForExt
		ENTRY	extFunc
		ENTRY	onIcon
		ENTRY	officon2
		ENTRY	officon
		ENTRY	killKids2
		ENTRY	dumpExtIcon
		ENTRY	selectWind
		ENTRY	selectWind2
		ENTRY	setSmallRect
		ENTRY	newDataSize3
		ENTRY	newDataSize
		ENTRY	WriteRoot

;
; GetIconPtr
;
;   IN:	   ic =	pointer	to ICONOBJ.
;	   a = 0 for big ICON, 1 for small ICON.
;
;  OUT:	   icBlkHand 	= LOCKED handle of ICONBLK.
;	   icBlk 	= pointer to ic's ICONDATA. - 22-Mar-93 JCM - this isn't set, dunno why not
;	   icon 	= pointer to icon data
;
; STACK:   | word |	RTS
;	   | long |	LocalHandle
;	   | long |	LocalPtr
;	   | long |	LocalHandle2
;	   | long |	LocalPtr2
;	   | long |	LocalOffset
;	   -------- <- SP
;.....................................................................

getIconPtr	PROC	EXPORT

		IMPORT	IconHandleArray
		IMPORT	IconOffsetArray

LocalHandle	equ	17
LocalPtr	equ	13
LocalHandle2	equ	9
LocalPtr2	equ	5
LocalOffset	equ	1
	
		tay
		bne	@small

		ldy	#icIcon			;Get handle of icon
		lda	[<ic],y
;;;		sta	IconIndex		;22-Mar-93 JCM - save some bytes
;;;		bra	GetHandles		;22-Mar-93 JCM
		bra	GetIconPtr2		;22-Mar-93 JCM

@small		ldy	#icSmallIcon		;Get handle of small icon
		lda	[<ic],y
		

;
; GetIconPtr2 -- (A) contains the index to the icon we want
;
		EXPORT	GetIconPtr2
GetIconPtr2			
		sta	IconIndex

GetHandles	phd
		tsc
		sec
		sbc	#20			;5 longs
		tcs
		tcd

		lda	>IconHandleArray	;get the handle to the array of icon handles
		sta	<LocalHandle
		lda	>IconHandleArray+2
		sta	<LocalHandle+2

		lda	[<LocalHandle]		;deref
		sta	<LocalPTR
		ldy	#2
		lda	[<LocalHandle],y
		sta	<LocalPTR+2

		lda	>IconOffsetArray	;get the handle to the array of icon offsets
		sta	<LocalHandle2
		lda	>IconOffsetArray+2
		sta	<LocalHandle2+2
		
		lda	[<LocalHandle2]		;deref
		sta	<LocalPTR2
		lda	[<LocalHandle2],y
		sta	<LocalPTR2+2

		lda	IconIndex
		sta	<LocalOffset
		stz	<LocalOffset+2
		
		asl	<LocalOffset		;multiply our index by 4
		rol	<LocalOffset+2
		asl	<LocalOffset
		rol	<LocalOffset+2

		lda	<LocalOffset		;add our index to the handle array pointer
		clc
		adc	<LocalPTR
		sta	<LocalPTR
		lda	<LocalOffset+2
		adc	<LocalPTR+2
		sta	<LocalPTR+2

		lda	<LocalOffset		;add our index to the offset array pointer
		clc
		adc	<LocalPTR2
		sta	<LocalPTR2
		lda	<LocalOffset+2
		adc	<LocalPTR2+2
		sta	<LocalPTR2+2

		lda	[<LocalPTR]		;from the handle array, get the handle our icon
		sta	<LocalHandle		;resides in
		sta	IconListHandle
		ldy	#2
		lda	[<LocalPTR],y
		sta	<LocalHandle+2
		sta	IconListHandle+2
		
		lda	[<LocalHandle]		;deref the handle which contains our icon
		sta	<LocalPTR
;		sta	IconListPtr
		lda	[<LocalHandle],y
		sta	<LocalPTR+2
;		sta	IconListPtr+2

		lda	<LocalPTR		;add the offset to our icon to the pointer to	
		clc				;the handle containing our icon
		adc	[<LocalPTR2]
		sta	IconPtr
		lda	<LocalPTR+2
		adc	[<LocalPTR2],y
		sta	IconPtr+2

		tsc
		clc
		adc	#20
		tcs
		pld

		lda	IconListHandle
		sta	<icBlkHand
		lda	IconListHandle+2
		sta	<icBlkHand+2

;		lda	IconListPtr
;		sta	<icBlk
;		lda	IconListPtr+2
;		sta	<icBlk+2
		
		lda	IconPtr
		sta	<icon
		lda	IconPtr+2
		sta	<icon+2
		
		ldy	#4			;lock the handle which contains our icon
		lda	[<icBlkHand],y
		ora	#$8000
		sta	[<icBlkHand],y
		rts

;
; locals
;
IconListHandle	dc.L	0
IconPtr		dc.L	0
IconIndex	dc.w	0

		ENDP

;===========================================
;	   Sort	files in a window.
;===========================================
;
;   IN:	   wind	= pointer to window to sort.
;	   windBlk = pointer to	window's info block.
;
;===========================================

sort		PROC	EXPORT

ySpot		equ	work
topIcHand	equ	ySpot+2
topIc		equ	topIcHand+4
tempIcHand	equ	topIc+4
tempIc		equ	tempIcHand+4
		
		
		ldy	#windView
		lda	[<windBlk],y
		sec
		sbc	#viewByName		;View by icon?
		bcc	exit			If view	by icon, nothing to sort.

		asl	a			Get address of sort procedure.
		tax
		cpx 	#SortProcsEnd-SortProcs
		bcs 	exit
		lda	sortProcs,x
		sta	sortGuy+1

		lda	#10			Starting Y position.
		sta	<work

		lda	#sortem
		brl	walkOfLife3		Walk list, front to back.

exit		rts


sortem		lda	<icHand
		ldx	<icHand+2

lop101		sta	<topIcHand
		stx	<topIcHand+2
		jsr	derefHand
		sta	<topIc
		stx	<topIc+2
		sta	<tempIc
		stx	<tempIc+2

lop100		lda	[<tempIc]
		sta	<tempIcHand
		ldy	#icNext+2
		lda	[<tempIc],y
		sta	<tempIcHand+2
		ora	<tempIcHand		End of list?
		beq	done100

		lda	[<tempIcHand]
		sta	<tempIc
		lda	[<tempIcHand],y
		sta	<tempIc+2

sortGuy		jsr	$1111			Is tempIc less than topIc?
		bcs	lop100

		lda	<tempIcHand		New icon to compare with.
		ldx	<tempIcHand+2
		bra	lop101


done100		lda	<topIcHand		Was a lesser icon found?
		cmp	<icHand
		bne	swap
		lda	<topIcHand+1
		cmp	<icHand+1
		beq	noswap


swap		ldy	#icLast+1
		lda	[<ic],y
		bne	ok100

		lda	<topIcHand
		sta	[<windBlk]
		lda	<topIcHand+2
		ldy	#windIcons+2
		sta	[<windBlk],y

ok100		ldy	#icLast+2		Swap icNext and	icLast fields.
lop102		lda	[<topIc],y
		tax
		lda	[<ic],y
		sta	[<topIc],y
		txa
		sta	[<ic],y
		dey
		dey
		bpl	lop102

		lda	[<topIc]		Special	case if	side by	side.
		cmp	<topIcHand
		bne	ok101
		ldy	#icNext+2
		lda	[<topIc],y
		cmp	<topIcHand+2
		bne	ok101

		lda	<icHand
		sta	[<topIc]
		lda	<icHand+2
		sta	[<topIc],y
		iny
		iny
		lda	<topIcHand
		sta	[<ic],y
		iny
		iny
		lda	<topIcHand+2
		sta	[<ic],y

ok101		jsr	Neighbor

		lda	<topIcHand
		sta	<icHand
		lda	<topIcHand+2
		sta	<icHand+2
		jsr	setic
		jsr	Neighbor


noSwap		ldy	#icTextY		;Give the icon a position.
		lda	<ySpot
		sta	[<ic],y
		clc
		adc	#10
		sta	<ySpot

		clc				;Continue flag.
		rts


Neighbor	ldy	#icLast+2
		lda	#icNext
		jsr	flip

		ldy	#icNext+2
		lda	#icLast

flip		pha
		lda	[<ic],y
		tax
		dey
		dey
		lda	[<ic],y
		bne	ok200
		txy
		beq	exit200

ok200		jsr	derefHand

		lda	1,s
		tay
		lda	<icHand
		sta	[<temp],y
		iny
		iny
		lda	<icHand+2
		sta	[<temp],y

exit200		pla
		rts


sortProcs	DC.W	byName
		DC.W	byDate
		DC.W	bySize
		DC.W	byKind
sortProcsEnd

;
;   IN:	   topIc = pointer to ICONOBJ.
;	   tempIc = pointer to other ICONOBJ.
;
;  OUT:	   Carry set if	tempIc should not be swapped with topIc.
;
byName		 
		pha
		pei <zero
		
		lda	#icName
		clc
		adc	<topIc
		ldx	<topIc+2
		bcc	@nr
		inx
@nr		phx
		pha
		
		lda	#icName
		clc
		adc	<tempIc
		ldx	<tempIc+2
		bcc	@nr2
		inx
@nr2		phx
		pha
		_CompareStrings
		pla
		cmp	#$FFFF
		rts

byDate						; JAM 8/1/88 - class 1 comparison
		sep	#$20			; short accumulator
		LONGA	OFF

		ldy	#icMDate+OSDateYear
		lda	[<topIc],y
		cmp	[<tempIc],y
		bcc	exitbydate
		bne	exitbydate
		ldy	#icMDate+OSDateMonth
		lda	[<topIc],y
		cmp	[<tempIc],y
		bcc	exitbydate
		bne	exitbydate
		ldy	#icMDate+OSDateDay
		lda	[<topIc],y
		cmp	[<tempIc],y
		bcc	exitbydate
		bne	exitbydate
		ldy	#icMDate+OSDateHour
		lda	[<topIc],y
		cmp	[<tempIc],y
		bcc	exitbydate
		bne	exitbydate
		ldy	#icMDate+OSDateMinute
		lda	[<topIc],y
		cmp	[<tempIc],y
		bcc	exitbydate
		bne	exitbydate
		ldy	#icMDate+OSDateSecond
		lda	[<topIc],y
		cmp	[<tempIc],y
		LONGM
		beq	byname		
exitbydate	LONGM
		rts

bySize
		ldy	#icFBlocks+2
enter400	lda	[<topIc],y
		cmp	[<tempIc],y
		bcc	exit400
		bne	exit400
		dey
		dey
		lda	[<topIc],y
		cmp	[<tempIc],y
		bne	exit400
		brl	byname
exit400		rts


byKind		
		pha
		pei <zero
		
		jsr	pushTemp		;get address of tempIc's kind string
		pha
		phx
		
		jsr	pushTop			;get address of topic's kind string
		pha
		phx
		
		_CompareStrings

		jsr	afterTemp		;possibly unlock tempIc's rBundle
		jsr	afterTop		;possibly unlock topIc's rBundle
		
		pla
		beq	@goByName
		eor	#$8000
		asl	a
		rts
@goByName	brl	byName
	
;
; pushTemp -- return AX = the kind string used by <tempIc
;
pushTemp	ldy	#icKind+1
		lda	[<tempic],y
		bne	@normalKind

		ldy	#icRBundle
		lda	[<tempIc],y
		sta	<temp
		iny
		iny
		lda	[<tempIc],y
		sta	<temp+2
		
		ldy	#4
		lda	[<temp],y
		ora	#$8000
		sta	[<temp],y

		lda	[<temp]
		tax
		ldy	#2
		lda	[<temp],y
		sta	<temp+2
		stx	<temp
		
;		ldy	#icOneDocOffset
;		lda	[<tempIc],y
;		clc
;		adc	<temp
;		adc	#32
;		sta	<temp
;		tax
;		iny
;		iny
;		lda	[<tempIc],y
;		adc	<temp+2
;		sta	<temp+2
*** fixed 11-Jan-93 DAL to propogate carry correctly
		ldy	#icOneDocOffset		;add the offset to the OneDoc to the address of the
		lda	[<tempIc],y		;rBundle
		clc
		adc	<temp
		sta	<temp
		iny
		iny
		lda	[<tempIc],y
		adc	<temp+2
		sta	<temp+2

		clc
		lda	<temp
		adc	#32
		tax
		lda	<temp+2
		adc	#0
*** end 11-Jan-93
		rts

@normalKind	ldy	#icKind
		lda	[<tempIc],y
		tax
		iny
		iny
		lda	[<tempIc],y
		rts		

;
; pushTop -- return AX = kind string used by <tempIc
;
pushTop		ldy	#icKind+1
		lda	[<topIc],y
		bne	@normalKind

		ldy	#icRBundle		;get the handle of the rBundle
		lda	[<topIc],y
		sta	<temp
		iny
		iny
		lda	[<topIc],y
		sta	<temp+2

		ldy	#4			;lock it
		lda	[<temp],y
		ora	#$8000
		sta	[<temp],y
		
		lda	[<temp]			;deref the rBundle's handle
		tax
		ldy	#2
		lda	[<temp],y
		sta	<temp+2
		stx	<temp
		
;		ldy	#icOneDocOffset		;add the offset to the OneDoc to the address of the
;		lda	[<topIc],y		;rBundle
;		clc
;		adc	<temp
;		adc	#32
;		sta	<temp
;		tax
;		iny
;		iny
;		lda	[<topIc],y
;		adc	<temp+2
;		sta	<temp+2
*** fixed 9-Jan-93 DAL to propogate carry correctly
		ldy	#icOneDocOffset		;add the offset to the OneDoc to the address of the
		lda	[<topIc],y		;rBundle
		clc
		adc	<temp
		sta	<temp
		iny
		iny
		lda	[<topIc],y
		adc	<temp+2
		sta	<temp+2

		clc
		lda	<temp
		adc	#32
		tax
		lda	<temp+2
		adc	#0
*** end 9-Jan-93
		rts				;return AX = pointer to string

@normalKind	ldy	#icKind			;address of FiFiFi kind string
		lda	[<topIc],y
		tax
		iny
		iny
		lda	[<topIc],y
		rts		

;
; afterTemp -- if the icon referenced by <tempIc has its kind string in the OneDoc, unlock the rBundle
;
afterTemp	ldy	#icKind+1
		lda	[<tempIc],y
		bne	@done
		
		ldy	#icRBundle
		lda	[<tempIc],y
		sta	<temp
		iny
		iny
		lda	[<tempIc],y
		sta	<temp+2
		
		ldy	#4
		lda	[<temp],y
;;;		and	#$7FFF
		asl a
		lsr a
		sta	[<temp],y
@done		rts

;
; afterTop -- if the icon referenced by <topIc has its kind string in the OneDoc, unlock the rBundle
;
afterTop	ldy	#icKind+1
		lda	[<topIc],y
		bne	@done
		
		ldy	#icRBundle
		lda	[<topIc],y
		sta	<temp
		iny
		iny
		lda	[<topIc],y
		sta	<temp+2
		
		ldy	#4
		lda	[<temp],y
;;;		and	#$7FFF
		asl a
		lsr a
		sta	[<temp],y
@done		rts
		ENDP
				
;	   Set information bar fields in window.
;
;   IN:	   a = low word	of window to set values	for.
;	   x = high word of window to set values for.
;
;  OUT:	   Fields in window's info block set to:
;		 windFST = FST id of window's file-system
;		 windItems = number of items in	window.
;		 windUsed = number of kilobytes	used on	disk window came from.
;		 windFree = number of kilobytes	free on	disk window came from.
;
;	   wind	= given	window pointer.
;	   windBlk = wind's info block.
;	   curWind = same as in.
;.....................................................................

setInfo2	PROCNAME EXPORT

		sta	<wind
		stx	<wind+2

		jsr	clearWindDirty
		
;
;   IN:	   wind	= window to set	values for.
;
;  OUT:	   Fields in window's info block set to:
;		 windFST = FST id of window's file-system
;		 windItems = number of items in	window.
;		 windUsed = number of kilobytes	used on	disk window came from.
;		 windFree = number of kilobytes	free on	disk window came from.
;.....................................................................

		EXPORT	setInfo
setInfo	

;
; Number of items in window
;
		pei	<curWind+2
		pei	<curWind

		lda	<wind
		sta	<curWind
		lda	<wind+2
		sta	<curWind+2

		jsr	ifDesk			If desktop, just quit.
		bne	ok2
		brl	exit2
;
ok2		jsr	getwRefCon

;
; Initialize info bar for icons
;
		jsr	setItems		Count icons in window.

;
; Get volume information
;
		ldy	#windID
		lda	[<windBlk],y
		cmp	#DirWindID		Must be	a directory window for the rest.
		bne	exit1

		jsr	getWindPath		C1_Pathname = windPath in info block.
		jsr	justRootName		C1_Pathname = pathname's root only.
		
		jsr	GetVolSizes		Get sizes for volume.
		bcs	exit2

		lda	fileSysID
		ldy	#windFST
		cmp	[<windBlk],y
		beq	@notSameFST
		sta	[<windBlk],y

		ldy	#windDirty
		lda	#$8000
		ora	[<windBlk],y
		sta	[<windBlk],y
@notSameFST

		jsr	setKs			Set amount used	and free on disk.
		bcs	exit1

		ldy	#windDirty
		lda	[<windBlk],y
		bpl	exit2
		
;
; Draw the new information only if the window info bar is dirty and needs to be updated
;
exit1		pei	<wind+2
		pei	<wind
		_DrawInfoBar			;do _ShowWindow here in ver 1.3

exit2		ldy	#windDirty		;clear out the high bit
		lda	[<windBlk],y
;;;		and	#$7fff
		asl a
		lsr a
		sta	[<windBlk],y
		
		pla
		sta	<curWind
		pla
		sta	<curWind+2
		rts

; Count icons in window.
;
;   IN:	   windBlk = pointer to	window's info block.
;
;  OUT:	   windItems field in info block set to	number of icons	in window.
;	   high bit of windDirty's field is SET if before count didn't match after
;	   count 
;.....................................................................

		EXPORT	setItems
setItems    
		ldy	#windItems
		lda	[<windBlk],y
		pha

		stz	<work			Initialize icon	counter.
		lda	#countIcons
		jsr	walkOfLife3		Count icons in window.

		ldy	#windItems		Set number of items in window.
		lda	<work
		sta	[<windBlk],y
		
		cmp	1,s
		bne	@dirty
		pla
		rts
		
@dirty		pla
		ldy	#windDirty
		lda	#$8000
		ora	[<windBlk],y
		sta	[<windBlk],y
		rts


;
; clear the high bit of the windDirty field
;

		EXPORT	clearWindDirty
clearWindDirty
		ldy	#windDirty
		lda	[<windBlk],y
;;;		and	#$7fff
		asl a
		lsr a
		sta	[<windBlk],y
		rts
		

; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =	=
;	   Get just the	root name from pathname.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =	=
;
;   IN:	   C1_PathName = full pathname.
;
;  OUT:	   C1_PathName = only the root name of given
;		pathname with separator.
;
; = = =	= = = =	= = = =	= = = =	= = = =	= =
		EXPORT	justRootName
justRootName					;	        

		sep	#$20			Use just the root name.
		LONGA	OFF

		ldx	<zero
lop1		inx
		cpx	C1_PathName		Don't exceed total length.
		bcs	done1
		lda	C1_PathName+2,x
		cmp	#SEPARATOR		;GS/OS separator character
		bne	lop1
		stx	C1_PathName		Set length word to be just root.

done1		rep	#$20
		LONGA	ON
		rts

		
; Set windUsed	and windFree fields in window info block.
;
;   IN:	   FreeBlks = number of blocks free.
;	   NumBlks = total number of blocks on disk.
;
;   OUT:   SEC if the amount of free blocks in windFree and windUsed
;	   was different from the amount on the way in to this routine
;	   
;          CLC if the number of free blocks in windFree and windUsed
;	   was the same from the amount on the way in to this routine
;.....................................................................

		EXPORT	setKs
setKs	        
		ldy	#windFree		;if the amount free and used before is the same
		lda	[<windBlk],y		;as the amount free and used after, then
		sta	free			;nothing has changed, so don't update squat
		iny
		iny
		lda	[<windBlk],y
		sta	free+2
		
		ldy	#windUsed
		lda	[<windBlk],y
		sta	used
		iny
		iny
		lda	[<windBlk],y
		sta	used+2

		ldy	#windFree
		lda	FreeBlks
		sta	[<windBlk],y
		iny
		iny
		lda	FreeBlks+2
		sta	[<windBlk],y

		lda	NumBlks			Total number of	blocks on disk,
		sec
		sbc	FreeBlks		less those free,
		tax				equals number used.
		lda	NumBlks+2
		sbc	FreeBlks+2

		ldy	#windUsed+2
		sta	[<windBlk],y
		dey
		dey
		txa
		sta	[<windBlk],y

		ldy	#windUsed
		lda	[<windBlk],y
		cmp	used
		bne	@drawInfo
		iny
		iny
		lda	[<windBlk],y
		cmp	used+2
		bne	@drawInfo
		
		ldy	#windFree
		lda	[<windBlk],y
		cmp	free
		bne	@drawInfo
		iny
		iny
		lda	[<windBlk],y
		cmp	free+2
		beq	@done

@drawInfo	jsr	UpdateRootSizeW
		sec
		rts

@done		jsr	UpdateRootSizeW
		clc
		rts

;
; locals
;
free		dc.L	0
used		dc.L	0

; = = =	= = = =	= = = =	= = = =	= = = =
;	   Increment counter.
; = = =	= = = =	= = = =	= = = =	= = = =

countIcons	inc	<work			Increment icon counter.
		clc				Continue flag.
		rts

		ENDP


;=====================================
;	   Walk	window list.
;=====================================
;
;   IN:	   a = type of windows to accept.
;	   x = routine to call for every window.
;
;  OUT:	   Carry clear if entire list walked,
;	   set if terminated by	given routine.
;
;  Routine will	be passed the window pointer in	'wind'.
;  Routine should return clear to continue down	list, or set to	terminate.
;  On return 'wind' will be used to find the next window.
;
;=====================================

walkWindow	PROC	EXPORT

		stx	routine+1

		jsr	getFrontWind
		bcs	exit1			exit if no windows at all
		beq	next1			If this oneÕs nil, try next one.

*** 16-Oct-92 DAL: Modified to preserve, routine+1 and windowID, so that the
***                subroutine we call can safely call walkWindow recursively!

loop		ldy	routine+1
		phy
		ldy	windowID
		phy
routine		jsr	$1111
		ply
		sty	windowID
		ply
		sty	routine+1
		bcs	exit2			Did routine wish to terminate?

next1		jsr	getNextWind
		bne	loop

exit1		clc				Entire window list walked flag.
exit2		rts



; getFrontWind -- get frontmost window
;
;
;   IN:	   a = mask for	window ID.
;
;  OUT:	   Carry set if	at the desktop level, wind = deskport.
;	   wind	= pointer to top most visible window, desktop if no windows.
;	   a = window ID with mask applied.
;	   x = front window's ID no matter what the mask.
;	   If a	Finder window, then
;		 windBlk = pointer to window's info block.
;.....................................................................

		EXPORT	getFrontWind
getFrontWind	sta	windowID		Save type of window the	caller wants.

		pha				;Get front most visible window.
		pha				;we don't care about invisible windows
		_FrontWindow			;at this point (yet)
		pla
		plx
		jsr	getWindID
		tax				Return front window's ID in X.
		and	windowID		Return ID with mask applied and	A.
		rts


; getNextWind -- get next window
;
;   IN:	   windowID = mask for window ID.
;
;  OUT:	   Carry set if	at the desktop level, wind = deskport.
;	   wind	= pointer to top most visible window, desktop if no windows.
;	   a = window ID. (BEQ if no windows left.)
;.....................................................................

		EXPORT	getNextWind
getNextWind 

@loop
		pha
		pha
		pei	<wind+2
		pei	<wind
		
		_GetNextWindow
		pla
		plx
		jsr	getWindID		Get window's ID number.
		bcs	@done			At the desktop level?
		and	windowID		Is this	window acceptable?
		beq	@loop			Loop until acceptable window found.
		
		pha
		pei	<wind+2
		pei	<wind
		_GetWFrame
		pla
		and	#$0020			;visible?
		beq	@loop
		
@done		rts


; getWindID -- determine a window's ID
;
;   IN:	   a = low word	pointer	of window.
;	   x = high word pointer of window.
;
;  OUT:	   Carry set if	null pointer passed.
;	   a = window's ID number (equal flag is set to a).
;	   wind	= pointer of window.
;	   If a	Finder window, then
;		 windBlk = pointer to window's info block.
;.....................................................................

		IMPORT	aboutWindowPtr
		EXPORT	getWindID
		
getWindID  

		sta	<wind
		stx	<wind+2
		ora	<wind+2
		bne	ok300			Is there a visible window?

; ------ No visible windows, so	use desktop --------------------------

theDesktop	jsr	toDesktop		wind = deskport, windBlk = desktop info.

		lda	#NoWindID
		sec				Null pointer passed flag.
		rts

; --- Check if front most window is the	desktop	------------------

ok300		lda	<wind			Is the window the desktop?
		cmp	<deskport
		bne	ok301
		cpx	<deskport+2
		beq	theDesktop

; --- Check if front most window is a system window ------------------

ok301		pha				Space for result.
		phx				Pass window pointer.
		pha
		_GetSysWFlag
		lda	#SysWindID		System window flag.
		plx				Application or System window?
		bne	gotit300
		
; --- It's an application window, find out which kind ----------------

		jsr	windRefCon		windBlk	= pointer to window's info block.
 
		EXPORT	getWindID2
getWindID2        

		ldy	#windID			Return window's ID number.
		lda	[<windBlk],y

gotit300	tax
		clc				There is a window flag.
		rts

		ENDP


;==================================================
;	   Move	curWind	into windTrack.
;==================================================
;
;   IN:	   curWind = value to move into	windTrack.
;
;  OUT:	   windTrack = curWind.
;	   a = low word	of curWind and windTrack.
;	   x = high word of curWind and	windTrack.
;
;==================================================

cur2windT	PROC	EXPORT


		lda	<curWind
		sta	<windTrack
		ldx	<curWind+2
		stx	<windTrack+2
		rts
		
		ENDP

;=============================================
;	   Get window's origin offset.
;=============================================
;
;   IN:	   curWind = window to get offset for.
;
;  OUT:	   yoffset, yoffset2, xoffset, xoffset2	are set.
;	   port	= curWind, origin set.
;
;=============================================

getWoffset	PROC	EXPORT


		jsr	startDraw		Switch to window's port.


		EXPORT	getWoffset2
getWoffset2   

		ldy	#BoundsRect+y1
		lda	[<curWind],y
		eor	#$FFFF
		inc	a
		sta	<yoffset
		sta	<yoffset2		(in two	places for easy	RECT offsets).
		iny
		iny
		lda	[<curWind],y
		eor	#$FFFF
		inc	a
		sta	<xoffset
		sta	<xoffset2

		rts
		
		ENDP

;======================================================
;	   Check if icon is within 'rect'.
;======================================================
;
;   IN:	   rect	= RECT to check.
;	   ic =	icon to	check.
;
;  OUT:	   Equal is FALSE if hit (a not	0).
;
;======================================================
; JAM 06/04/89 - Partially undoing DJB fix for BRC #45692 in the case that we are
;   checking to see if we are rubberbanding a bunch of icons for multiple selection.
;   Don's fix had the undesirable property of rubberbanding as if the window was
;   view-by-icon even if it was view-by-text.  So, you ended up not selecting what
;   you thought you were selecting in a view-by-text rubberband ("snaggletooth selection").
; Don, do we really need to fake view by big icon???
OldCheckRectHit	PROC	EXPORT
		jsr	GetIconRect
		bra	RectHit2
		ENTRY	checkRectHit
; end JAM 06/04/89 - Partially undoing DJB fix for BRC #45692
checkRectHit
;--- Start DJB fix for BRC 45692 ---------------
		IMPORT	getIconRect2
		ldy	#windView
		lda	[<windBlk],y
		cmp	#viewByName		; view by text?
		bcc	@Get
		lda	<zero			; fake view by big icon
@Get		jsr	getIconRect2		;irect1 = icon's enclosing RECT.
;--- end fix -----------------------------------
						;irect2 = icon title's RECT.
		EXPORT	RectHit2
RectHit2 

		pha				Space for result.
		jsr	pushrect		Pass pointer to	rubber-band RECT.
		jsr	pushirect1		Pass pointer to	icon's RECT.
		jsr	pushwork		Pass pointer to	temp RECT for result.
		_SectRect			Intersect RECTs.
		pla
		bne	exit			Was there any intersection?

		pha				Space for result.
		jsr	pushrect		Pass pointer to	rubber-band RECT.
		jsr	pushirect2		Pass pointer to	title's RECT.
		jsr	pushwork		Pass pointer to	temp RECT for result.
		_SectRect			Intersect RECTs.
		pla
exit		rts

		ENDP
 
;.....................................................................
;
; Now, just a minute before we add you to the rectList mr. selected icon.  We need to
; check and see if any of your pieces parts protrude into the visRgn.  If any part of
; <irect1 or <irect2 are inside of our visRgn, then we'll add it to the list, but if
; the whole icon image is outside the visRgn, then forget about adding it to the rectList
; because we don't need to be dragging around more than we really need to be.
;
; OUT: carry set if in visrgn, the boundsrect of which is defined by <visRect
;      carry clear if not in the boundsrect of the visrgn
;.....................................................................

CheckVisEdges	PROC	EXPORT

		lda	<irect2+y2
		cmp	<visRECT+y1
		bmi 	@exit
		
		lda	<irect1+y1
		cmp 	<visRECT+y2
		beq	@inVerticalVis
		bpl	@exit

;
; now that we know it's inside the vertical visRgn, we need to check the horizontal
; coordinates and see if the whole of the icon is outside of the visRgn's right and
; left edges
;
; NOTE: if we're viewing something by name, it's possible to drag something which is
;	completely outside the horizontal portion of our visrgn, so we should -not- check
;	the horizontal portion if we're dragging from a list view.
;
@inVerticalVis	ldy	#windView		
		lda	[<windBlk],y
		cmp	#viewByName		;don't check horizontal vis if list view
		bge	@inHorizontalVis

		lda	<irect1+x2		;check the left edge of the visRgn
		cmp	<visRECT+x1		;against the right edge of our icon and
		bpl	@checkRightEdge		;our icon's name
		
		lda	<irect2+x2
		cmp	<visRECT+x1
		bmi	@exit
		
@checkRightEdge	lda	<irect1+x1		;check the right edge of the visRgn
		cmp 	<visRECT+x2		;against the left edge of our icon and
		beq	@inHorizontalVis	;our icon's name
		bmi	@inHorizontalVis

		lda	<irect2+x1
		cmp 	<visRECT+x2
		beq	@inHorizontalVis
		bmi	@inHorizontalVis	

@exit		clc
		rts
		
@inHorizontalVis sec
		rts
		ENDP

;==================================================
;	   Build a RECT	list of
;	   all the selected icons.
;==================================================
;
;   IN:	   windBlk = info block	for icon list.
;	   yoffset = amount to added to	top and	bottom sides of	RECTs.
;	   xoffset = amount to added to	left and right sides of	RECTs.
;
;  OUT:	   rectRgn = handle of region containing all the icons.
;	   tempRgn = handle of a work region.
;
;==================================================

buildRects	PROC	EXPORT

		import	deltax2
		import	deltay2
		import	bothRects
		
		lda	#ICSELECTED		Add all	selected icons to region.
		bra	store1

		EXPORT	buildRects2
buildRects2

		lda	#ICDELETE		Add all	deleted	icons to region.
store1		sta	addFlag			Set types of icons to add to region.


; --- Allocate regions ----------------------------------------------------

		jsr	getRectRgn		Allocate rectRgn and tempRgn.

;
; get the visRgn for the window which we're dragging stuff from, so that we only have
; to show any of the icons that are inside of our visRgn, not all the stuff outside of
; vis
;
		jsr	StartDraw
		
		ldy	#visRgnOffset
		lda	[<curWind],y
		sta	<handle
		iny
		iny
		lda	[<curWind],y
		sta	<handle+2

		lda	[<handle]		;deref it
		tax
		ldy	#2
		lda	[<handle],y
		sta	<ptr+2
		stx	<ptr
		
		ldy	#8			;move the rgn's boundsrect to a place we can
		ldx	#6
@loop		lda	[<ptr],y		;play with it
		sta	<visRECT,x
		dey
		dey
		dex
		dex
		bpl	@loop		
		
		jsr	EndDraw
		
		lda	#addRects
		brl	walkOfLife3


; =  =	=  =  =	 =  =  =  =  =	=  =  =	 =  =  =  =  =	=
;	   Add selected	icon's area to rectRgn.
; =  =	=  =  =	 =  =  =  =  =	=  =  =	 =  =  =  =  =	=
;
;   IN:	   rectRgn = handle of region to accumulate icon area into.
;	   tempRgn = handle of work region.
;	   ic =	pointer	to icon.
;
; =  =	=  =  =	 =  =  =  =  =	=  =  =	 =  =  =  =  =	=
addRects
		ldy	#icFlag			;Is this icon selected?
		lda	[<ic],y
		and	addFlag
		bne	@addIconsRect		
		clc
		rts

;
; See if the icon which has not been moved is in vis
;
@addIconsRect	jsr	getIconRect
		
		jsr	CheckVisEdges		;is any part of this icon visible?
		bcs	@addIcon		;if yes, add icon to our region		
		
;
; Now, see if the icon's new position is in vis, and if it is, add that part into the
; region
;
		ldx	#16-2
@iLoop1		lda	<irect1,x
		sta	>bothRects,x
		dex
		dex
		bpl	@iLoop1

		lda	<irect1+x1		;offset the x coordinates of <irect1
		clc
		adc	deltax2
		sta	<irect1+x1
		lda	<irect1+x2
		clc
		adc	deltax2
		sta	<irect1+x2

		lda	<irect1+y1		;offset the y coordinates of <irect1
		clc
		adc	deltay2
		sta	<irect1+y1
		lda	<irect1+y2
		clc
		adc	deltay2
		sta	<irect1+y2
		
		lda	<irect2+x1		;offset the x coordinates of <irect2
		clc
		adc	deltax2
		sta	<irect2+x1
		lda	<irect2+x2
		clc
		adc	deltax2
		sta	<irect2+x2

		lda	<irect2+y1		;offset the y coordinates of <irect2
		clc
		adc	deltay2
		sta	<irect2+y1
		lda	<irect2+y2
		clc
		adc	deltay2
		sta	<irect2+y2

		jsr	CheckVisEdges		;is any part of this shifted icon visible?
		bcc	@exit			;if not, we're outta here!			

		ldx	#16-2			;copy both rects back like they were
@iLoop2		lda	>bothRects,x
		sta	<irect1,x
		dex
		dex
		bpl	@iLoop2

@addIcon	jsr	addIconRgn2		;Add icon's region to rectRgn.

@exit		clc				;Continue flag.
		rts

; =  =	=  =  =	 =  =  =  =  =	=  =  =	 =  =  =
;	   Allocate two	regions.
; =  =	=  =  =	 =  =  =  =  =	=  =  =	 =  =  =
;
;  OUT:	   tempRgn = handle of region.
;	   rectRgn = handle of region.
;
; =  =	=  =  =	 =  =  =  =  =	=  =  =	 =  =  =
		EXPORT	getRectRgn
getRectRgn  	jsr	allocateRgn		;Allocate a work region.
		sta	<tempRgn
		stx	<tempRgn+2

		EXPORT	getOnlyRectRgn
getOnlyRectRgn	jsr	allocateRgn		;Allocate a region.
		sta	<rectRgn
		stx	<rectRgn+2
		rts

; =  =	=  =  =	 =  =  =  =  =	=  =  =	 =  =  =
;	   Add an icon's area to rectRgn.
; =  =	=  =  =	 =  =  =  =  =	=  =  =	 =  =  =
;
;   IN:	   rectRgn = handle of region that accumulates icon areas.
;	   tempRgn = handle of work area region.
;	   ic =	pointer	to ICONOBJ.
;	   windBlk = pointer to	icon's window info block.
;
; =  =	=  =  =	 =  =  =  =  =	=  =  =	 =  =  =

		EXPORT	addIconRgn
addIconRgn	jsr	getIconRect		Compute	RECTs for icon and its title.

addIconRgn2	ldy	#windView
		lda	[<windBlk],y
		cmp	#viewBySmallIcon
		bne	@bothRegions
		
@oneRegion	lda	#irect1
		jsr	pushzpage
		lda	#irect2
		jsr	pushzpage
		lda	#irect2
		jsr	pushzpage
		_UnionRect
		bra	addirect2

@bothRegions	lda	#irect1			Add icon's RECT to rectRgn.
		jsr	addRgn

		EXPORT	addirect2
addirect2    	lda	#irect2			Add icon's title RECT to rectRgn.

; =  =	=  =  =	 =  =  =  =  =	=  =  =	 =  =  =
;
;   IN:	   a = direct page offset of RECT to add to rectRgn.
;
; =  =	=  =  =	 =  =  =  =  =	=  =  =	 =  =  =
		EXPORT	addRgn
addRgn		pei	<tempRgn+2		Pass handle of work region.
		pei	<tempRgn
		jsr	pushzpage		Pass pointer to	RECT.
		_RectRgn			tempRgn	= irect1.
		
		pei	<rectRgn+2
		pei	<rectRgn
		pei	<tempRgn+2
		pei	<tempRgn
		pei	<rectRgn+2
		pei	<rectRgn
		_UnionRgn
		rts

; GetVisRECT -- put the boundsrect of the visrgn into <visRECT
;.....................................................................

		EXPORT	GetVisRECT
GetVisRECT	pushZLong <deref

;;; Opt 20-Feb-92 DAL (new way takes one more byte of code here but saves DP space & cycles)
;		ldy	#$24			;get the pointer to our port
;		lda	[<QuickDrawDP],y
;		sta	<deref
;		iny
;		iny
;		lda	[<QuickDrawDP],y
;		sta	<deref+2
***
		ldx <QuickDrawDP
		lda >$000024,x
		sta <deref
		lda >$000026,x
		sta <deref+2
***

		ldy	#visRgnOffset		;get the offset to the grafport's visrgn handle
		lda	[<deref],y
		tax
		iny
		iny
		lda	[<deref],y
		sta	<deref+2
		stx	<deref
		
		lda	[<deref]		;deref the visrgn's handle
		tax
		ldy	#2
		lda	[<deref],y
		sta	<deref+2
		stx	<deref
		
		ldy	#8			;move the rgn's boundsrect to a place we can
		ldx	#6
@loop		lda	[<deref],y		;play with it
		sta	<visRECT,x
		dey
		dey
		dex
		dex
		bpl	@loop
		
		pulllong <deref
		rts
		
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= =
;	   Build a RECT	list of
;	   all the selected icons.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= =
;
;   IN:	   windBlk = info block	for icon list.
;	   yoffset = amount to added to	top and	bottom sides of	RECTs.
;	   xoffset = amount to added to	left and right sides of	RECTs.
;
;  OUT:	   rectHand = handle of	RECT list.
;	   rectPtr = (rectHand).
;	   rect	= bounds of all	RECTs added to list (in	global).
;
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= =
		EXPORT	buildRectList
buildRectList					;	        

maxNumber	equ	100			Max number of RECTS that can be	in list.


; --- Allocate RECT list buffer	-------------------------------------------

		ldx	#$4000			Locked,	I won't need it that long.
		lda	#(maxNumber*16)+2	Number bytes needed for	RECT list.
		jsr	allocate2		Allocate a buffer for the RECTs.
		sta	<rectHand		Remember handle.
		stx	<rectHand+2
		jsr	derefHand		temp = memory block pointer.
		sta	<rectPtr		Save pointer to	RECT list.
		stx	<rectPtr+2

		lda	<zero			Zero RECT count.
		sta	[<rectPtr]
		
;
; get the visRgn for the window which we're dragging stuff from, so that we only have
; to show any of the icons that are inside of our visRgn, not all the stuff outside of
; vis -- startdrawing already done here, so it's ok to get vis.
;
		jsr	GetVisRECT

		lda	#addRectList
		brl	walkOfLife3


; =  =	=  =  =	 =  =  =  =  =	=  =  =	 =  =  =
;	   Add icon to RECT list.
; =  =	=  =  =	 =  =  =  =  =	=  =  =	 =  =  =

addRectList
		ldy	#icFlag			Is this	icon selected?
		lda	[<ic],y
		and	#ICSELECTED
		bne	@selected
		clc
		rts
		
@selected	jsr	getIconRect		Compute	RECTs for icon and its title.
		jsr	CheckVisEdges
		bcs	@inVis
		brl	exit100
		
;
; Our icon was in both the vertical and horizontal visRgn's boundsRect, so it's OK
; to add it to the list of icon rectangles to be drawn
;
@inVis		lda	#2			;normally add 2 rects unless by some other view
		sta	addHowManyRects		;other than by Icon
		
		ldy	#windView		
		lda	[<windBlk],y
		cmp	#viewBySmallIcon	
		blt	@byIcon
		
		jsr	pushirect1
		jsr	pushirect2
		jsr	pushirect1
		_UnionRect

		lda	#1
		sta	addHowManyRects
		
;
; If the view is by small icon or large icon, then the rectangles need to be drawn
; for both the icon and the name.  
;		
@byIcon		lda	[<rectPtr]		Get current number of RECTs.
		cmp	#maxNumber		RECT list already full?
		bcs	exit101
		asl	a			Times 8	(size of RECT).
		asl	a
		asl	a
		inc	a			Plus two for the count WORD.
		inc	a
		tay				That the index to the next open	spot.

		ldx	<zero			;Store icon RECTs in RECT list as global.
lop100		phx
		txa
		and	#3
		tax
		lda	<yoffset,x
		plx
		clc
		adc	<irect1,x
		sta	<irect1,x		;also transform irect1 and irect2 to be global
		sta	[<rectPtr],y
		iny
		iny
		inx
		inx
		cpx	#16
		bcc	lop100

		lda	[<rectPtr]		Increment the RECT counter.
		bne	skip100			First RECT?

		ldx	<irect1+y1		Initialize bounds RECT.
		stx	<dRect+y1
		ldx	<irect1+x1
		stx	<dRect+x1
		ldx	<irect2+y2
		stx	<dRect+y2
		ldx	<irect1+x2
		stx	<dRect+x2

skip100		clc	
		adc	addHowManyRects
		sta	[<rectPtr]


; --- Compute bounds --------------------------------------------------------

		jsr	pushirect1
		jsr	pushirect2
		jsr	pushirect1
		_UnionRect

		jsr	pushirect1
		jsr	pushrect
		jsr	pushrect
		_UnionRect

exit100		clc				Continue flag.
exit101		rts

;
; locals
;
addHowManyRects	dc.w	0
		ENDP

;============================================
;	   Setup window	for drawing.
;============================================
;
;   IN:	   a = low word	of window plane	to set.
;	   x = high word of window plane to set.
;
;============================================

startDraw2	PROC	EXPORT


		pei	<curWind+2
		pei	<curWind

		sta	<curWind
		stx	<curWind+2

		jsr	startDraw

		pla
		sta	<curWind
		pla
		sta	<curWind+2
		rts

;============================================
;
;   IN:	   CurWind = window pointer.
;
;============================================
		EXPORT	StartDraw
StartDraw        

		jsr	ifDesk
		bne	ok1

		brl	toDeskPort		Switch to the desktop port.

ok1		pei	<curWind+2
		pei	<curWind
		_StartDrawing
		rts


		EXPORT	endDraw
endDraw 

		lda	<zero
		pha
		pha
		_SetOrigin
		rts
		
		ENDP


;=======================================================
;	   Test	if curWind is the desktop port.
;=======================================================
;
;   IN:	   curWind = port to check.
;	   deskport = address of desktop port.
;
;  OUT:	   a = low address of desktop port.
;	   x = hi address of desktop port.
;	   Equal flag is TRUE if curWind = deskport.
;
;=======================================================

ifDesk		PROC	EXPORT


		lda	<deskport
		ldx	<deskport+2
		cmp	<curWind
		bne	exit
		cpx	<curWind+2
exit		rts

		ENDP


;=====================================
;	   Allocate a region.
;=====================================
;
;  OUT:	   a = lo region handle.
;	   x = hi region handle.
;
;=====================================

allocateRgn	PROC	EXPORT

		pha
		pha
		_NewRgn
		pla
		plx
		rts
		
		ENDP


;=========================================
;	   Push	a direct page
;	   address on the stack.
;=========================================
;
;   IN:	   a = direct page offset.
;
;=========================================

pushyrat	PROC	EXPORT


		lda	#yrat
		bra	pushzpage

		EXPORT	pushirect1
pushirect1        

		lda	#irect1
		bra	pushzpage

		EXPORT	pushirect2
pushirect2        

		lda	#irect2
		bra	pushzpage

		EXPORT	pushwork
pushwork    

		lda	#work
		bra	pushzpage

		EXPORT	pushTask
pushTask     

		lda	#TaskRec
		bra	pushzpage

		EXPORT	pushrect
pushrect        

		lda	#dRect

		EXPORT	pushzpage
pushzpage        

		plx

		pei <zero

		pha
		tdc
		clc
		adc	1,s
		sta	1,s

		phx
		rts
		
		ENDP


;==================================================
;	   Find	all the	selected icons.
;==================================================
;
;   IN:	   a = routine to call with found selected icon.
;	   curWind = list to search.
;
;==================================================

findSelect	PROCNAME EXPORT

		ldx	WalkGoto+1
		phx		
		sta	WalkGoto+1
		pushlong saveHand
		lda	abortFind
		pha

		stz	abortFind		Clear abort flag.

		lda	#ckSelect
		jsr	walkBack
		
		pla
		sta	abortFind
		pulllong saveHand
		plx
		stx	WalkGoto+1
		rts
		

ckSelect        ldy	#icFlag			Is this	icon selected?
		lda	[<ic],y
		and	#ICSELECTED
		beq	exit			Nothing	to do if not.

		lda	<icHand+2		Save place in list.
		sta	saveHand+2		Saved in a global place	so it can
		lda	<icHand			changed	like when the icon is cut
		sta	saveHand		out of the list.

		pei	<curWind+2
		pei	<curWind

		EXPORT	WalkGoto
WalkGoto        jsr	$1111			Call the given routine.

		pla
		sta	<curWind
		pla
		sta	<curWind+2

		lda	saveHand
		sta	<icHand
		lda	saveHand+2
		sta	<icHand+2
		jsr	lockic

		lda	abortFind		Should walk be aborted?
		bne	exit1
		lda	quit_flags		Something cause	a quit?
		beq	exit
exit1		sec				Abort flag.
		rts

exit		clc				Continue flag.
		rts
		ENDP


;===========================================
;	   Walk	window's icon list.
;===========================================
;
;   IN:	   wind	= window to walk. (Actually it's curWind! DAL)
;	   a = address of routine to call.
;
;  OUT:	   Carry clear if entire list walked.
;	   Carry set if	terminated by given routine, ICONOBJ still locked.
;
;===========================================

walkOfLife	PROC	EXPORT

		pha
		jsr	getwRefCon		Get handle of first icon in list.
		bra	enter1


		EXPORT	walkOfLife3
walkOfLife3       

		pha
		jsr	getHeadIcon
enter1		sta	<icHand
		stx	<icHand+2
		pla


		EXPORT	walkOfLife2
walkOfLife2

		sta	tocall+1		Save address to	call.

		ldy	#icNext+2
		sty	<direction
		bra	enter2


		EXPORT	walkBack
walkBack

		pha				Save address to	call.

		lda	#findEnd
		jsr	walkOfLife
		bra	skip1

		EXPORT	walkBack2
walkBack2

		pha
		lda	#findEnd
		jsr	walkOfLife2

skip1		ldy	#icLast+2		Walk list from back to front.
		sty	<direction

		pla				Get address to call.
		sta	tocall+1		Set address to call.
		bra	enter2


; --- Walk list	---------------------------------------------------------

lop1
		ldy	#4			Lock ICONOBJ.
		lda	[<icHand],y
		ora	#$8000
		sta	[<icHand],y

		dey				Dereference icon's handle.
		dey
		lda	[<icHand],y
		sta	<ic+2
		lda	[<icHand]
		sta	<ic

*** added 30-Sep-92 DAL -- If icHand dereferenced to itself, we're in trouble ($ABABABAB, etc)
		cmp	<icHand
		bne	@valid
		lda	<ic+1
		cmp	<icHand+1
		bne	@valid
		jsr	WalkOfLifeWarning
		clc
		rts
@valid
*** end 30-Sep-92

; --- Call given routine -----------------------------
;
;   ic = pointer to locked ICONOBJ.
;   icHand = handle of ic.
;   wind = ic's owner window.
;
		pei	<direction
		lda	tocall+1
		pha
		
		EXPORT	tocall	
tocall   	jsr	$1111			;*** self-modifying ***
		pla
		sta	tocall+1
		pla
		sta	<direction
		bcs	exit

		ldy	#4			Unlock ICONOBJ.
		lda	[<icHand],y
;;;		and	#$7FFF
		asl a
		lsr a
		sta	[<icHand],y

;
; "A little paranoia never hurt anyone.  Did It?!" - DAL, quoted by andy
;
		lda	[<icHand]		;just for kicks, dereference the handle again JUST
		sta	<ic			;in case <ic managed to move while inside of WalkOfLife
		ldy	#2			;(can you say, aieee?!?!)
		lda	[<icHand],y
		sta	<ic+2			
			
		ldy	<direction		Get handle of the next ICONOBJ.
		lda	[<ic],y
		tax
		dey
		dey
		lda	[<ic],y

		sta	<icHand			Store handle of	ICONOBJ.
		stx	<icHand+2

enter2		lda	<icHand+1		Any more in list?
		bne	lop1

		clc				Entire list walked.
exit		rts


findend	
		ldy	#icNext+1		Any more icons in list?
		lda	[<ic],y
		beq	thatsend
		clc				Continue.
		rts
thatsend	sec				This is	the last icon in the list.
		rts

*** added 30-Sep-92 DAL -- Complain about hitting an infinite loop.
WalkOfLifeWarning
		pha				;space for button number
		lda #^warning1
		pha
		pea warning1
		pha
		pea warning2
		pha
		pea warning3
		pha
		pea warning4
		_TLTextMountVolume
		pla
		rts

warning1	str 'Warning: Infinite loop while'
warning2	str 'walking icon list.'
warning3	str 'Hit Return'
warning4	str ''

*** end 30-Sep-92

; = = =	= = = =	= = = =	= = = =	= = = =	=
;	   Get window's RefCon.
; = = =	= = = =	= = = =	= = = =	= = = =	=
;
;  get:	   a = low window.
;	   x = high window.
;
;  OUT:	   a = low word	of first ICONOBJ.
;	   x = high word of first ICONOBJ.
;	   windBlk = window information	block.
;
;
; = = =	= = = =	= = = =	= = = =	= = = =	=
		EXPORT	toDesktop
toDesktop	        

		lda	<deskPort
		ldx	<deskPort+2
		bra	getwRefCon2


		EXPORT	getwRefCon
getwRefCon	        

		lda	<curWind
		ldx	<curWind+2


		EXPORT	getwRefCon2
getwRefCon2	        

		sta	<wind
		stx	<wind+2

		cmp	<deskport		Desktop	or window?
		bne	ok1
		cpx	<deskport+2
		bne	ok1

; = = =	= = = =	= = = =	= = = =	= = = =	=
;
;  OUT:	   windBlk = pointer to	desktop	window block.
;
; = = =	= = = =	= = = =	= = = =	= = = =	=
		EXPORT	getDeskWindBlk
getDeskWindBlk	        

		tdc
		clc
		adc	#deskic
		sta	<windBlk
		stz	<windBlk+2

		lda	<deskic			Return handle of first icon on desktop.
		ldx	<deskic+2
		rts

; = = =	= = = =	= = = =	= = = =	= = = =	=
;
;   IN:	   wind	= window to get	refCon for.
;
; = = =	= = = =	= = = =	= = = =	= = = =	=
		EXPORT	windRefCon
windRefCon        

ok1		pha				Space for result.
		pha
		pei	<wind+2			Pass pointer of	window.
		pei	<wind
		_GetWRefCon
		pla				Get pointer to window info block.
		sta	<windblk
		pla
		sta	<windblk+2

		EXPORT	getHeadIcon
getHeadIcon        

		ldy	#windIcons+2		Get handle of first icon in list.
		lda	[<windblk],y
		tax
		lda	[<windblk]
		rts

; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	=
;	   Switch to the desktop port.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	=
;
		EXPORT	toDeskPort
toDeskPort       

		pei	<deskPort+2
		pei	<deskPort
		_SetPort
		rts

		ENDP

;=================================================
;	   Compute icon	and title RECTs.
;=================================================
;
;   IN:	   ic =	pointer	to ICONOBJ.
;	   windBlk = pointer to	icon's window info block.
;
;  OUT:	   irect1 = icon's RECT.
;	   irect2 = icon title's RECT.
;	   temp	= trash.
;
;=================================================
lockWidth	equ	16
lockHeight	equ	8

getIconRect	PROCNAME EXPORT


		ldy	#windView
		lda	[<windBlk],y
		cmp	#viewByName		View by	text?
		bcc	getIconRect2

; --- Small icon, text view ---------------------------------------------

		ldy	#icx
		lda	[<ic],y
		pha				Save icon x position.
		lda	#textLeft		Force text x position.
		sta	[<ic],y
		dey
		dey
		lda	[<ic],y
		pha				Save icon y position.
		ldy	#icTextY		Set text's y position.
		lda	[<ic],y
		ldy	#icy
		sta	[<ic],y

		lda	#1			Compute	RECTs as if a small icon.
		jsr	GetIconRect2

		ldy	#icy			Restore	icon's position.
		pla
		sta	[<ic],y
		iny
		iny
		pla
		sta	[<ic],y
		rts

; --- View by icon (large or small) ---------------------------------------
;
;  a = 0 for large, 1 for small.
;
;=================================================

		import	UnlockICBLKHAND		;22-Mar-93 JCM

		ENTRY	getIconRect2
getIconRect2


		pha				Save state.
		jsr	getIconPtr		icon = pointer to ICON.
		ply
		jsr	GetIconRect3
		
*** Scrunched - 21-Mar-93 JCM
		
;;;		ldy	#4			;unlock the icon block handle
;;;		lda	[<icBlkHand],y
;;;		and	#$3FFF
;;;		sta	[<icBlkHand],y
;;;		rts

		brl	UnlockICBLKHAND		;it does the rts

*** End - 21-Mar-93 JCM
	
;
; Just calculate the rectangles for the icons -- used by drawIcon2, so do NOT trash anything
; other than irect1 and irect2
; 
; IN: (Y) = 0 for large icon, non-zero for small icon
;
		EXPORT	GetIconRect3
GetIconRect3	phy
		
;		
; ------ Get RECT for image part of icon ---------------------------------
;
		ldy	#icy
		lda	[<ic],y
		sta	<irect1+y2		Bottom of icon.

		iny
		iny
		lda	[<ic],y
		ldy	#imWidth
		sec
		sbc	[<icon],y
		sta	<irect1+x1		Left side.
		clc
		adc	[<icon],y		Left side plus width,
		adc	[<icon],y		(Double	for 640	mode.)
		sta	<irect1+x2		equals right side.

		ldy	#imHeight
		lda	<irect1+y2		Bottom,
		sec
		sbc	[<icon],y		less height,
		sta	<irect1+y1		equals top side.

; --- Compute icon's title rect (top and bottom already set) -------------

		pla				Large or Small icon?
		bne	smallIcon

		lda	<irect1+y2
		dec	a
		sta	<irect2+y1
		clc
		adc	#TITLE_H+2
		sta	<irect2+y2

		ldy	#icx			From the icon's x position,
		lda	[<ic],y
		ldy	#icTitleLen
		sec				subtract half the title's length,
		sbc	[<ic],y			to get the title's x1 position.
		sta	<irect2+x1		Title's left side.

		ldy	#icFlag			;get locked status
		lda	[<ic],y
		and	#ICLOCKED
		bne	lock			;adjust for lock
		lda	<irect2+x1		;Title's left side.
		bra	enter1
lock		lda	<irect2+x1
		sec
		sbc	#lockWidth/2		;re-adjust for lock
		sta	<irect2+x1
		bra	enter1

smallIcon	ldy	#imHeight
		lda	[<icon],y
		sec
		sbc	#TITLE_H		Height of font.
		bcs	ok1
		lda	<zero
ok1		pha
		lda	<irect1+y2
		sec
		sbc	1,s
		sta	<irect2+y2
		sbc	#TITLE_H
		sta	<irect2+y1
		pla

		lda	<irect1+x2
		sta	<irect2+x1		Title's left side,

		ldy	#icx
		lda	[<ic],y
		clc
		adc	#16

enter1		ldy	#icTitleLen		; a-reg has x1
		sec				(A little extra.)
		adc	[<ic],y			plus half the title's length,
		adc	[<ic],y			plus the other half,
		sta	<irect2+x2		equals the title's right side.

		ldy	#icFlag			;get locked status
		lda	[<ic],y
		and	#ICLOCKED
		beq	exit			;not locked
		lda	<irect2+x2
		clc
		adc	#lockWidth		;re-adjust for lock
		sta	<irect2+x2
exit		rts
		
		ENDP

;========================================================
;	   Push	pointer	to icon's name on stack.
;========================================================
;
;   IN:	   ic =	pointer	to ICONOBJ.
;
;  OUT:	   pointer to icon's name on stack.
;
;========================================================

pushicName	PROC	EXPORT


		ply				Get return address.

		ldx	<ic+2
		lda	<ic
		clc
		adc	#icName
		bcc	store2
		inx
store2		phx
		pha

		phy				Put return address back.
		rts
		
		ENDP

; = = =	= = = =	= = = =	= = = =	= = = =
;	   Lock	icHand.
; = = =	= = = =	= = = =	= = = =	= = = =
;
;   IN:	   icHand = handle to lock.
;
;  OUT:	   icHand  is locked.
;	   ic =	(icHand).
;
; = = =	= = = =	= = = =	= = = =	= = = =

lockic      	PROC	EXPORT

		ldy	#4			Lock handle.
		lda	[<icHand],y
		ora	#$8000
		sta	[<icHand],y


; = = =	= = = =	= = = =	= = = =	= = = =
;	   Dereference icHand.
; = = =	= = = =	= = = =	= = = =	= = = =
;
;   IN:	   icHand = handle of ICONOBJ.
;
;  OUT:	   ic =	pointer	to ICONOBJ.
;
; = = =	= = = =	= = = =	= = = =	= = = =
		EXPORT	setic
setic

		lda	[<icHand]
		sta	<ic
		ldy	#2
		lda	[<icHand],y
		sta	<ic+2
		rts


; = = =	= = = =	= = = =	= = = =	= = = =
;	   Unlock icHand.
; = = =	= = = =	= = = =	= = = =	= = = =

		EXPORT	unlockic
unlockic 

		ldy	#4
		lda	[<icHand],y
		and	#$7FFF
		sta	[<icHand],y
		rts

; = = =	= = = =	= = = =	= = = =	= = = =	= = =
;	   Dereference a handle.
; = = =	= = = =	= = = =	= = = =	= = = =	= = =
;
;   IN:	   a = lo word of handle.
;	   x = hi word of handle.
;
;  OUT:	   temp	= dereferenced handle.
;	   a = temp.
;	   x = temp+2
;
; = = =	= = = =	= = = =	= = = =	= = = =	= = =
		EXPORT	derefHand
derefHand    

		sta	<temp
		stx	<temp+2

; = = =	= = = =	= = = =	= = = =	= = = =
;	   Dereference temp.
; = = =	= = = =	= = = =	= = = =	= = = =
;
;   IN:	   temp	= handle.
;
;  OUT:	   a = low word	of pointer.
;	   x = high word of pointer.
;	   temp	= pointer
;
; = = =	= = = =	= = = =	= = = =	= = = =
		EXPORT	setTemp
setTemp    

		ldy	#2
		lda	[<temp],y
		tax
		lda	[<temp]
		sta	<temp
		stx	<temp+2
		rts
		
		ENDP


;====================================================
;	   Allocate a movable memory block.
;====================================================
;
;   IN:	   a = number of bytes to allocate.
;
;  OUT:	   a = low word	of handle.
;	   x = high word of handle.
;
;====================================================

allocate	PROC	EXPORT


		ldx	<zero			Anything, anywhere attributes.

;====================================================
;
;   IN:	   x = attributes.
;
;====================================================
		EXPORT	allocate2
allocate2    

		pha				Space for result.
		pha
		pei <zero			Pass size of block needed.
		pha
		pei	<MyID
		phx				Pass attributes.
		pha				Pass address, not used.
		pha
		_NewHandle
		pla
		plx
		rts
		
		ENDP

;============================================
;	   Pull	common icon fields.
;============================================
;
;   IN:	   ic =	pointer	to icon	being duplicated.
;
;  OUT:	   filetype = icFType field.
;	   ticonobj+icLocalAccess = icLocalAccess field
;	   ticonobj+icNetworkAccess = icNetworkAccess field
;	   ticonobj+icIcon = icIcon field
;	   ticonobj+icSmallIcon = icSmallIcon field
;	   ticonobj+icOneDoc = icOneDoc field
;	   ticonobj+icFlag = icFlag field, color, locked and open states
;	   ticonobj+icFBlocks = icFBlocks field
;	   ticonobj+icFBytes = icFBytes field
;	   ticonobj+icCDate = icCDate field
;	   ticonobj+icMDate = icMDate field
;	   ticonobj+icWind = icWind field
;	   ticonobj+icOptionList = icOptionList field
;
;============================================

PullFields	PROC	EXPORT

		IMPORT	 PullFieldsLong

		jsl	PullFieldsLong		;save some main segment space
		rts
		ENDP

;====================================================
;	   Remove every	window and extended
;	   icon	that came from the disk.
;====================================================
;
;   IN:	   icHand = handle of disk icon	being cleared.
;
;====================================================

clearDisk	PROC	EXPORT
		jsr	ClearAll
		stz	<windTrack+1		Destination window may have closed.
		rts
		
		EXPORT ClearAll
ClearAll	pei	<rectRgn+2
		pei	<rectRgn
		pei	<tempRgn+2
		pei	<tempRgn
		lda	saveHand+2
		pha
		lda	saveHand
		pha

		stz	<rectRgn+1		Mark as	freed, cause I saved them.
		stz	<tempRgn+1

		jsr	getRectRgn		Allocate rectRgn and tempRgn.

		lda	#wipeIcon		Routine	to erase and free icons.
		jsr	walkExt

		jsr	redrawList		Redraw hole left by deleted icons.
		jsr	closeKids		Close every window from	disk.

		pla
		sta	saveHand
		pla
		sta	saveHand+2
		pla
		sta	<tempRgn
		pla
		sta	<tempRgn+2
		pla
		sta	<rectRgn
		pla
		sta	<rectRgn+2
		rts
		
		ENDP


;=======================================================
;	   Find	the next open spot for an icon.
;=======================================================
;
;   IN:	   windBlk = pointer to	window info block.
;	   posFlag = TRUE if 'temp' points to a	position buffer.
;
;  OUT:	   yrat	= y position.
;	   xrat	= x position.
;	   icHand = trash.
;	   ic =	trash.		      
;
;=======================================================

DeskSpot	PROC	EXPORT

		import	spotHash

;topRow		equ	22
;vertOffset	equ	35			;added 07/26/88 DJB
;leftSide	equ	52
;rightSide	equ	576

desktopTopRow	equ	20+10
topRow		equ	21
vertOffset	equ	32
desktopVertOffset equ	35
leftSide	equ	52
rightSide	equ	570



;
; Because spot hashing is turned on INSIDE this routine for the desktop, deskspot can never be
; expected to give a lot of performance if we were positioning a ton of icons on the desktop in
; succession.
;
		stz	spotFlag		Set desktop flag.
		stz	posFlag		

		jsr	StartHash		;setup spot hashing
		
		lda	#DesktopTopRow
		ldx	#rightSide
		bra	enter1

		EXPORT	windSpot
windSpot	
		lda	#$FFFF
		sta	spotflag

		ldy	#windView
		lda	[<windBlk],y
		cmp	#viewBySmallIcon
		blt	@byLargeIcon

		lda	<zero
		ldx	#14
		bra	enter1

@byLargeIcon	lda	#topRow-10
		ldx	#leftSide+14

;=======================================================
;
;   IN:	   x = horizontal starting position.
;	   a = vertical	starting position.
;	   spotFlag = TRUE if finding a	spot in	a window.
;
;=======================================================

enter1
		stx	<dRect+x1
		sta	<dRect+y1

		stz	spotCount		;Initialize hash counter.

lop1		lda	<dRect+y1		;Compute coordinates to check.
		clc
		adc	#20
		sta	<dRect+y2
		lda	<dRect+x1
		clc
		adc	#40
		sta	<dRect+x2

		ldy	#windView
		lda	[<windBlk],y
		cmp	#viewBySmallIcon
		blt	@byLargeIcon

		lda	<dRect+y1		;Compute coordinates to check for small icon view
		clc
		adc	#9
		sta	<dRect+y2
		lda	<dRect+x1
		clc
		adc	#142
		sta	<dRect+x2
@byLargeIcon

;
; --- Check to see if any icon is within the RECT spot being checked --------
;
		lda	spotHashOn		Is hashing on? (rdl: I think itÕs off during FinderInit)
		beq	skip1

		jsr	getHashIndex		Check if already taken.
		bcs	skip1			Range error?

		and	>spotHash,x
		bne	nextspot		If already taken, no need to check.

skip1		jsr	getHeadIcon		Start with first icon.
		sta	<icHand
		stx	<icHand+2

		pei	<direction		save direction across walkOfLife2 call
		lda	tocall+1		save walkOfLifeÕs current jsr value
		pha
		lda	#findspot		will be stored to tocall+1
		jsr	walkOfLife2
		pla
		sta	tocall+1		restore
		pla
		sta	<direction		restore

		bcs	nextSpot		Were all icons check without a hit?
		brl	gotit		

;
; --- Go to next spot -------------------------------------------------------
;
nextSpot
		lda	spotHashOn		Is hashing on?
		beq	@nextSpot

		jsr	getHashIndex
		bcs	@nextSpot		Range error?

		ora	>spotHash,x
		sta	>spotHash,x

@nextSpot	inc	spotCount

		lda	spotFlag		Looking	on desktop or window?
		beq	onDesk

;
; --------- Next spot in window	-----------------------
;
		ldy	#windView
		lda	[<windBlk],y
		cmp	#viewBySmallIcon
		blt	byLargeIcon
		
bySmallIcon	ldy	#20
		lda	[<wind],y
		sec
		ldy	#16
		sbc	[<wind],y
		sta	bottom
		
		lda	<dRect+y1
		clc
		adc	#10
		sta	<dRect+y1
		clc
		adc	#10
		cmp	bottom
		blt	@goLop1
		
		stz	<dRect+y1
		
		lda	<dRect+x1
		clc
		adc	#150
		sta	<dRect+x1
@goLop1		brl	lop1
		
byLargeIcon	lda	<dRect+x1		Look to	the right,
		clc
		adc	#106
		sta	<dRect+x1
		ldy	#22			; JAM 06/04/89 magic offset to wind's portrect X2
		cmp	[<wind],y		; off right of window? (JAM 06/04/89 was #600)
		bcc	@goLop1
	
		lda	#leftSide+14		; Start again on left side
		sta	<dRect+x1
	
		lda	<dRect+y1		next row down.
		clc
		adc	#vertOffset		;changed from 31 DJB 07/26/88
		sta	<dRect+y1		About 12,684 icons would cause
@goLop1		brl	lop1			this to	be an infinite loop.

;
; --------- Next spot on desktop -----------------------
;
onDesk		lda	<dRect+y1
		clc
		adc	#desktopVertOffset	;changed from 31 DJB 07/26/88
		sta	<dRect+y1
		cmp	#190
		bcc	@goLop1

		lda	#desktopTopRow
		sta	<dRect+y1

		lda	<dRect+x1
		sec
		sbc	#106
		bcc	gotit			Out of room?
		sta	<dRect+x1
@goLop1		brl	lop1

;
; --- Open spot	found ----------------------------------------------------
;
gotit		lda	posFlag			Use icons or position file?
		beq	ok1

		jsr	spotInBuff		Find a spot using a position file.
		bcc	ok1
		brl	nextSpot		Spot is	used in	buffer,	try again.

ok1		lda	<dRect+y1
		clc
		adc	#10
		sta	<yrat

		lda	<dRect+x1
		sta	<xrat
		rts

;
; locals
;
spotFlag	DS.B	2
bottom		dc.w	0


; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= =
;	   Check spot in position buffer.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= =
;
;   IN:	   rect	= spot.
;	   posFile = handle of FINDER.DATA position file.
;
;  OUT:	   Carry clear if icon is not in spot.
;	   Carry set if	icon is	in the spot.
;
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= =

spotInBuff

		lda	<posFile		Save handle.
		ldx	<posFile+2
		jsr	derefHand		temp = (posFile).

		lda	[<temp]
		cmp	#2
		bge	@new
		brl	@old

@new		ldy	#FDataItems
		lda	[<temp],y
		sta	items
		
		ldy	#FDataStartAt
		lda	[<temp],y
		clc
		adc	<temp
		sta	<temp
		bcc	@loop
		inc	<temp+2

@loop		ldy	#windView
		lda	[<windBlk],y
		cmp	#viewBySmallIcon
		bne	@byLargeIcon
		
@bySmallIcon	ldy	#IconPosY		;irect2 contains the rect for the name
		lda	[<temp],y		;irect2 contains the rect for the icon
		sta	<irect1+y2
		sta	<irect2+y2
		sec
		sbc	#8
		sta	<irect1+y1
		sta	<irect2+y1
		iny
		iny
		lda	[<temp],y
		sec
		sbc	#4
		sta	<irect1+x1
		sta	<irect2+x1
		clc
		adc	#145+4
		sta	<irect1+x2
		sta	<irect2+x2
		bra	@checkForHit
				
@byLargeIcon	ldy	#IconPosY
		lda	[<temp],y
		sta	<irect1+y2
		sta	<irect2+y1
		adc	#8
		sta	<irect2+y2
		sbc	#20
		sta	<irect1+y1
		iny
		iny
		lda	[<temp],y
		sta	<irect1+x1
		adc	#24
		sta	<irect1+x2
		adc	#16
		sta	<irect2+x2
		sbc	#56
		sta	<irect2+x1

@checkForHit	jsr	RectHit2
		tax
		bne	hit

		dec	items
		beq	noHit
		
		lda	[<temp]
		sec				;add one more to skip beyond
		adc	<temp			;the end of the current record
		sta	<temp
		bcc	@loop
		inc	<temp+2	
		bra	@loop

;
; look through an old Finder.Data file
;	
@old
		ldy	#16			Offset to first	icon data part.
lop100		lda	[<temp],y
		beq	noHit			No more	icons to check?

		phy

		iny
		iny
		lda	[<temp],y
		sta	<irect1+y2
		sta	<irect2+y1
		adc	#8
		sta	<irect2+y2
		sbc	#20
		sta	<irect1+y1
		iny
		iny
		lda	[<temp],y
		sta	<irect1+x1
		adc	#24
		sta	<irect1+x2
		adc	#16
		sta	<irect2+x2
		sbc	#56
		sta	<irect2+x1

		jsr	RectHit2
		ply
		tax
		bne	hit

		tya
		clc
		adc	#22
		tay
		bra	lop100


;
; locals
;
items		dc.w	0			;number of items in finder data

; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= =
;
;   IN:	   rect	= spot.
;	   ic =	icon to	check if in spot.
;
;  OUT:	   Carry clear if icon is not in spot.
;	   Carry set if	icon is	in the spot.
;
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= =

findspot
		jsr	checkRectHit
		bne	hit

noHit		clc				This icon isn't in 'rect', try another
		rts				icon.

hit		sec				There's an icon here, try another spot.
		rts

; = = =	= = = =	= = = =	= = = =	= = =
;	   Clear hash table.
; = = =	= = = =	= = = =	= = = =	= = =
;
;  OUT:	   spotHashOn =	TRUE for hashing on.
;
; = = =	= = = =	= = = =	= = = =	= = =
		EXPORT	startHash
startHash

		ldx	#198
		lda	<zero
@loop		sta	>spotHash,x
		dex
		dex
		bpl	@loop
		
		stx	spotHashOn		Turn spot hash on.
		rts


; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= =
;	   Compute index into hash table.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= =
;
;   IN:	   spotCount = spot number.
;
;  OUT:	   Carry set if	spotCount is out of range.
;	   a = mask.
;	   y = index to	mask.
;	   x = index to	byte in	hash table.
;
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= =

getHashIndex

		lda	spotCount
		lsr	a
		lsr	a
		lsr	a
		tax				Index to hash byte.
		cpx	#200
		bcs	exit300

		lda	spotCount
		and	#$0007
		asl	a
		tay
		lda	spotMasks,y		Mask to	hash bit.
		clc				spotCount is in	range.
exit300		rts

spotMasks	DC.W	$0080,$0040,$0020,$0010,$0008,$0004,$0002,$0001

		ENDP


;=========================================================
;	   Change icon's state (for tax reasons).
;=========================================================
;
;   IN:	   ic =	pointer	to locked ICONOBJ.
;
;=========================================================

markOpen	PROC	EXPORT


		lda	#ICOPENED		Set 'opened' bit.
		bra	set


		EXPORT	markOffLine
markOffLine       

		lda	#ICOFFLINE

set		ldy	#icFlag			Set bit	in icon's flag.
		tax
		and	[<ic],y			Already	set?
		bne	exit2
		txa
		ora	[<ic],y
		bra	exit


		EXPORT	markOnLine
markOnLine

		lda	#_ICOFFLINE
		bra	clear

		EXPORT	markClosed
markClosed

		lda	#_ICOPENED		Clear 'opened' bit.

clear		ldy	#icFlag			Clear bit in icon's flag.
		tax

		eor	#$FFFF			Already	clear?
		and	[<ic],y
		beq	exit2

		txa
		and	[<ic],y


exit		sta	[<ic],y


;
; redraw the icon in its new state (close, open, whatever)
;
		EXPORT	drawIconState
drawIconState	
		pei	<curWind+2		Save current window plane.
		pei	<curWind
		pei	<windBlk+2		Save.
		pei	<windBlk
		pei	<wind+2
		pei	<wind

		ldy	#icMom			Set draw plane to icon's.
		lda	[<ic],y
		sta	<curWind
		iny
		iny
		lda	[<ic],y
		sta	<curWind+2

		jsr	getwRefCon		windBlk	= curWind's info block.
		jsr	startDraw
		jsr	drawIcon2		Draw the icon in its new state.
		jsr	endDraw

		pla
		sta	<wind
		pla
		sta	<wind+2
		pla
		sta	<windBlk
		pla
		sta	<windBlk+2
		pla
		sta	<curWind
		pla
		sta	<curWind+2

exit2		rts


; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= =
;	   Mark	all icons in every window
;	   that	came from an offline icon
;	   as off line.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= =
; This can be called while in a	walkOfLife loop.
;
;   IN:	   ic =	icon that is off line.
;
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= =
		EXPORT	allOffLine
allOffLine     

		lda	#markOffLine
		bra	store1


; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= =
;	   Mark	all icons in every window
;	   that	came from an on	line icon
;	   as on line.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= =
; This can be called while in a	walkOfLife loop.
;
;   IN:	   ic =	icon that is on	line.
;
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= =
		EXPORT	allOnLine
allOnLine    

		lda	#markOnLine

store1		sta	function


		pei	<curWind+2
		pei	<curWind
		pei	<direction		Save walkOfLife	stuff.
		lda	toCall+1
		pha
		pei	<icHand+2
		pei	<icHand

		jsr	makeIcRoot		C1_PathName = disk icon's pathname.


		lda	#DirWindID		Directory windows only.
		ldx	#ckParents		Perform	operation on all windows that
		jsr	walkWindow		from the disk that changed states.

		pla				Restore	walkOfLife stuff.
		sta	<icHand			Icon that's being changed.
		pla
		sta	<icHand+2

		lda	function		Perform	operation on all extended icons
		jsr	walkExt			that came from disk.

		pla
		sta	toCall+1
		pla
		sta	<direction
		pla
		sta	<curWind
		pla
		sta	<curWind+2
		brl	windRefCon		windBlk	= window's info block.

function	DS.B	2


; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	=
;	   Make	all windows that came
;	   from	a disk icon the	same state
;	   as the disk icon.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	=
;
;   IN:	   C1_PathName = disk's volume name (length byte, separator, name).
;	   wind	= window to check.
;
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	=

ckParents	name

		jsr	matchRootName
		bcc	exit1			Did the	window come from pathname?

		lda	function		the window.
		jsr	walkback2

exit1		clc				Continue flag.
		rts


; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	=
;	   Match window's root name.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	=
;
;   IN:	   C1_PathName = disk's volume name (length word, separator, name).
;
;  OUT:	   Carry set if	window came from volume	name in	pathname.
;
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	=
		EXPORT	matchRootName
matchRootName	name

		jsr	windRefCon		windBlk	= window's info block.
		sta	<icHand			Save handle of first icon in window.
		stx	<icHand+2

; --- Match disk's name to start of window's name ------------------------

		ldy	#windPath
		lda	[<windBlk],y		Get length of window's pathname
		cmp	C1_PathName		Compare	to length of disk name.
		bcc	sorry			Disk name can't be longer than window's.

		lda	C1_PathName		Number of characters to	check.
		sta	chars
		
		ldx	<zero
		iny
loop1		iny
		lda	[<windBlk],y
		and	#$00FF
		cmp	#'a'
		bcc	@1
		cmp	#'z'+1			; is it a lower-case letter?
		bcs	@1
		sec
		sbc	#$20			; yes - so convert it to upper case	
@1		sta	<temp

		lda	C1_PathName+2,x
		and	#$00FF
		cmp	#'a'
		bcc	@2
		cmp	#'z'+1			; is it a lower-case letter?
		bcs	@2
		sec
		sbc	#$20			; yes - so convert it to upper case	
@2		cmp	<temp
		bne	sorry
		inx
		dec	chars
		bne	loop1

		iny				OK if next character is	separator.
		lda	[<windBlk],y
		and	#$00FF
		cmp	#SEPARATOR		;GS/OS separator character
		beq	ok1

		ldy	#windPath		If next	character isn't separator
		lda	[<windBlk],y		then the lengths must match.
		cmp	C1_PathName
		bne	sorry			If not,	no match. 

ok1		sec				Match found flag.
		bra	done1
sorry		clc
done1		rts

;
; locals
;
chars		dc.w	0
		ENDP


;================================================
;	   Save	contents of pathname,
;	   C1_TempPath and lastName.
;================================================
;
;  OUT:	   tempSaved = handle of saved block.
; 
;================================================
		EXPORT	saveTemp
saveTemp	PROC



		lda	#endSaveBlk-startSaveBlk 	;Numberof bytes to save.
		jsr	allocate
		sta	tempSaved
		stx	tempSaved+2

  
		pea	startSaveBlk>>16	  	;Source = C1_TempPath.
		pea	startSaveBlk
		jsr	pushHandle		  	;Destination = saved handle.
		pei <zero
		pea	endSaveBlk-startSaveBlk	  	;Number of bytes to save.
		_PtrtoHand
		rts


; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= =
;	   Restore contents of pathname,
;	   C1_TempPath, lastName.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= =
;
;   IN:	   tempSaved = handle to saved block.
;
;  OUT:	   Block restored.
;	   tempSaved = freed.
;
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= =
		EXPORT	restoreTemp
restoreTemp       


; --- Restore C1_TempPath -----------------------------------------------------

		lda	tempSaved+1		Is there a saved handle?
		beq	exit100

		jsr	pushHandle		Source = saved handle.
		pea	startSaveBlk>>16	Destination = C1_TempPath.
		pea	startSaveBlk
		pei <zero
		pea	endSaveBlk-startSaveBlk	Number of bytes	to save.
		_HandtoPtr			Move saved data	into C1_TempPath.
;
;
; --- Free handle used for save	---------------------------------------------
;
		jsr	pushHandle
		jsl DisposeHandleGlue

		stz	tempSaved+1		Mark handle as gone.

exit100		rts


; = = =	= = = =	= = = =	= = = =	= = = =	= = = =
;	   Push	save handle on stack.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =
;
;  OUT:	   y = unchanged.
;
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =

pushHandle
		plx				Get return address.

		lda	tempSaved+2		Push save handle on stack.
		pha
		lda	tempSaved
		pha

		phx				Put return address back,
		rts				and exit.

		ENDP

;=======================================================
;	   Save	the pathname of	every open
;	   window that came from disk icon.
;=======================================================
;
;   IN:	   ic =	locked disk icon record.
;
;  OUT:	   FINDER.ROOT file created and	saved.
;
;  Format of FINDER.ROOT file:
;
;	   WORD	  ID number.
;	   BLOCK  Array	of data	types:
;		     WORD  Opcode: 0 - no more opcodes.
;				   1 - open window's data follows (obsolete)
;				   2 - extended icon data follows (obsolete)
;				   3 - open window's data follows:
;
;					   WSTR	pathname ('*' for volume name).
; 
;				   4 - extended	icon data follows:
; 
;					   WORD	icFlag
;					   WORD	icy 
;					   WORD	icx 
;					   WORD	icOldPosY 
;					   WORD	icOldPosX
;					   WSTR	icon's pathname ('*' for vol).
;
;=======================================================

writeAllRoots	PROC	EXPORT			;added 06/20/88 DJB

		lda	<deskport		;switch to desktop.
		sta	<curWind
		lda	<deskport+2
		sta	<curWind+2

		lda	#saveRoot
		jsr	walkBack
		rts
		
;-----------------------------------------------
saveRoot
		ldy	#icFlag			;the disk must be online.
		lda	[<ic],y
		and	#icOffline
		bne	exitSave

		ldy	#icFlag			;see if it's write protected
		lda	[<ic],y			;if so, we'll skip trying to write
		and	#icLocked		
		bne	exitSave
		
		ldy	#icDevInfo
		lda	[<ic],y			;look at the 'write allowed' bit
		and	#$0040
		beq 	exitSave
		
		ldy	#icFType		;only disk icons.
		lda	[<ic],y
		cmp	#TypeHard
		beq	saveIt
		cmp	#TypeHardPart
		beq	saveIt
		cmp	#TypeSCSI
		beq	saveIt
		cmp	#TypeSCSIPart
		beq	saveIt
		cmp	#TypeFloppy
		beq	saveIt
		cmp	#Type3_5
		beq	saveIt
		cmp	#TypeRAM
		bne	exitSave
saveIt
		jsr	writeRoot		;write FINDER.ROOT file.
exitSave
		clc
		rts


;=======================================================
		EXPORT	writeRoot
writeRoot

		jsr	ckDataWrite		Should data files be saved?
		bne	exit

; --- Allocate a buffer	for pathnames ---------------------------------------

		lda	#2000			Buffer large enough for	about 32 windows.
		ldx	#$4000			Allocated the buffer as	locked.
		jsr	allocate2		Allocate a buffer.
		sta	<posFile		Save handle.
		stx	<posFile+2
		bcc	ok2
exit		rts

ok2		jsr	derefHand		temp = (posFile).
		sta	<rootBuffer		rootBuffer = temp.
		stx	<rootBuffer+2

		sta	write_buff
		stx	write_buff+2

		lda	#RootVer		Store my ID number.
		sta	[<rootBuffer]
 
		lda	#2			Index to next free byte.
		sta	<rootOffset

; --- Save data	about all extended icons belonging to disk ---------------

		lda	#storeExt		Routine	to store extended info.
		jsr	walkExt

; --- Save pathnames of	all windows that belong	to disk	icon ------------------

		lda	#DirWindID		Directory windows only.
		jsr	getFrontWind		Start with front most window.
		bcs	done1			Are there any windows at all?
		beq	next1			Front window not a directory?

lop1		pei	<wind+2			Save this window pointer.
		pei	<wind

		lda	<wind			Pass pointer to	window to check.
		ldx	<wind+2
		jsr	findRootIc		Check if the window came the trashed icon

		pla
		sta	<wind
		sta	<TaskData
		pla
		sta	<wind+2
		sta	<TaskData+2

next1		php				Save 'window from icon'	flag.
		jsr	getNextWind		'A' will equal window's ID.
		plp				Restore	'window from icon' flag.
		pha				Save window's ID.
		bcc	skipClose

; ----- Save window's pathname:

		pei	<wind+2			Save pointer to	next window.
		pei	<wind
		pei	<icHand+2		Save icon's handle.
		pei	<icHand

		lda	<TaskData		Get window's info block.
		ldx	<TaskData+2
		jsr	getwRefCon2

		jsr	getWindPath		C1_PathName = window's pathname.

		ldy	<rootOffset		Index to next avialable	byte.
		lda	#3			Open window data follows.
		sta	[<rootBuffer],y
		iny
		iny

		jsr	putPath			Move pathname into root	buffer.

		pla				Restore	handle of icon I'm checking.
		sta	<icHand
		pla
		sta	<icHand+2
		pla				Restore	pointer	to next	window.
		sta	<wind
		pla
		sta	<wind+2

skipClose
		pla				Get next window's ID.
		bne	lop1			Any more windows?


; --- Save the pathname	list to	the icon's root directory -----------------

done1		lda	<zero
		ldy	<rootOffset		Pass length of pathname	buffer.
		cpy	#2
		beq	store1			Were there any windows open?

		sta	[<rootBuffer],y		Mark end.
		iny
		iny
		tya
store1		sta	write_len
		stz	write_len+2

		jsr	setic			ic = (icHand)
		jsr	makeIcRoot		C1_PathName = separator + icName.

		jsr	addRootName		C1_PathName = C1_PathName + :FINDER.ROOT
		bcs	error101		Pathname error?

		lda	#DATAFTYPE		Set create file	type to	Finder data file.
		sta	file_type		Just in	case data file is created.

		lda	#$0004			; set invisible bit (DJB - 12/17/88)
		tsb	create_access

		inc	NoDOSerr		; Don't handle DOS errors
		jsr	doWrite
		dec	NoDOSerr

		lda	#$0004			; clear invisible bit (DJB - 12/17/88)
		trb	create_access

error101	pei	<posFile+2
		pei	<posFile
		jsl DisposeHandleGlue
exit1
		rts

; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = =
;	   Store extended icon info in root buffer. 
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = =
;
;   IN:	   ic =	extended icon that came	from disk being	saved.
;	   rootBuffer =	pointer	to root	buffer.
;	   rootOffset =	index into root	buffer of next free byte. 
;
;  OUT:	   C1_PathName = same as in.
;	   rootOffset =	incremented to next free byte.
;	   Extended icon data record placed in root buffer:
;
;		 WORD  Opcode -	4.
;		 WORD  icFlag
;		 WORD  icy 
;		 WORD  icx 
;		 WORD  icOldPosY 
;		 WORD  icOldPosX
;		 WSTR  icon's pathname.
;
;
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = =

storeExt
		
		ldx	#10			Index to field indexes.
		ldy	<rootOffset		Next free space.
		lda	#4			Extended icon data flag.
		bra	enter120

lop120		phy
		ldy	icIndexes,x
		lda	[<ic],y
		cpy	#icFlag
		bne	ok120
		and	#ICBACKCLR+ICFORECLR
ok120		ply
enter120	sta	[<rootBuffer],y
		iny
		iny
		dex
		dex
		bpl	lop120

		phy				Save offset.
		jsr	clonePath		C1_TempPath = C1_PathName (save).
		jsr	buildPath		C1_PathName = pathname to ic.
		
		ply
		bcs	error102		Pathname error?

		jsr	putPath			Move pathname into root	buffer.

error102	jsr	temp2Path		C1_PathName = C1_TempPath (restore).
 		clc
		rts

icIndexes	DC.W	icOldPosX,icOldPosY,icx,icy,icFlag


; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = =
;	   Put pathname	into root buffer.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = =
;
;   IN:	   y = index of	where to put name in root buffer.
;	   rootBuffer =	pointer	to root	buffer.
;	   C1_PathName = pathname to store.
;
;  OUT:	   Name	stored is pathname where first name is replaced	by '*'
;	   rootOffset =	index to next free byte.
;
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = =

putPath		phy				;save index to length
		iny				;space for length (word)
		iny
		lda	#'*'			;store character that means 'current vol'
		sta	[<rootBuffer],y
		iny

		ldx	C1_PathName
		inx
		inx
		stz	C1_PathName,x		;mark end of string

		sep	#$20
		LONGA	OFF

		ldx	#2			;skip over first separator char
@skip		inx
		lda	C1_PathName,x
		cmp	#SEPARATOR		;GS/OS separator character
		bne	@skip
		
		cpx	C1_PathName
		beq	@loop
		bcs	@next			;path is just root
		
@loop		lda	C1_PathName,x		;now copy icon's pathname into root buffer
		beq	@next
		sta	[<rootBuffer],y
		inx
		iny
		bra	@loop

@next		rep	#$20
		LONGA	ON
		
		sty	<rootOffset		;update next free byte
		dey
		tya
		sec
		sbc	1,s			;compute length
		ply				;index to start of string
	
		dec	a	
		sta	[<rootBuffer],y		;set pathname's length
		rts
		ENDP

;================================================
; This will create a Finder.Def file if any of the
; the defaults (preferences, pattern) have changed.
; added 06/20/88 DJB
;================================================

writeDef	PROC	EXPORT

		lda	defaultChg		;have the preferences changed?
		beq	exit			;if not, no reason to save

		lda	#DEF_SIZE
		sta	write_len
		stz	write_len+2
		
		lda	#prefer
		sta	write_buff
		lda	#prefer>>16
		sta	write_buff+2

		PushLong #defaultName
		PushLong #C1_PathName
		jsl	WStringCopy
		
		lda	#DATAFTYPE		Set create file	type to	Finder data file.
		sta	file_type		Just in	case data file is created.

		lda	#$0004			; set invisible bit (DJB - 12/17/88)
		tsb	create_access

		inc	NoDOSerr		;don't handle DOS errors
		jsr	doWrite			;write finder.def file
		dec	NoDOSerr

		lda	#$0004			; clr invisible bit (DJB - 12/17/88)
		trb	create_access

exit		rts
		ENDP

;==================================================
;	   Compute pointer to icon's name.
;==================================================
;
;   IN:	   ic =	pointer	to ICONOBJ.
;
;  OUT:	   temp	= pointer to ICONOBJ->icName field.
;	   a = temp
;	   x = temp+2
;
;==================================================

geticNamePtr	PROC	EXPORT


		lda	OpenFlag		Special	global flag.
		beq	ok1

;
; --- Special --- Name is the last name	in a pathname in 'pathname' --------
;
		jsr	findLastName		Compute	index to last name.
		lda	#lastName
		ldx	#lastName>>16
		bra	store
;
;
; --- Get name from icon's name --------------------------------------------
;
ok1		jsr	geticNamePtr2
store		sta	<temp
		stx	<temp+2
		rts
;
;
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =
;	   Compute pointer to icName field in ICONOBJ.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =
;
;   IN:	   ic =	pointer	to ICONOBJ.
;
;  OUT:	   a = low word	pointer	to ICONOBJ's icName field.
;	   x = high word pointer to ICONOBJ's icName field.
;
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =
		EXPORT	geticNamePtr2
geticNamePtr2

		ldx	<ic+2
		lda	<ic
		clc
		adc	#icName
		bcc	exit100
		inx
exit100		rts

		ENDP


;===================================================
;	   Append finder data filename
;	   to pathname.
;===================================================
;
;   IN:	   C1_PathName = pathname to apend to.
;
;  OUT:	   Carry set if	pathname error.
;	   C1_PathName = C1_PathName + :FINDER.DATA
;
;===================================================

addDataName	PROC	EXPORT
	
		IMPORT	DataName
		IMPORT	RootName
		IMPORT	LongPathAddName

;
; AddDataName must be able to work when the folder name is close to maxPathLen,
; so call the new LongPathAddName routine for it instead of PathAddName.
; This allows finder.data to be read and written when you open too many windows.
;		
		
		lda	#DataName		; lo-word
		ldx	#DataName>>16		; hi-word
		phx
		pha
		PushLong #C1_PathName
		jsl	LongPathAddName
		bcc	@exit
		brl	lenError		; report length error
@exit
		rts
		

		EXPORT	addRootName
addRootName  	lda	#RootName		;lo-word
		ldx	#RootName>>16		;hi-word

; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	=
;	   Add name to pathname. 
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	=
; 
;   IN:	   a+x = pointer to name to add	to pathname.
;
;  OUT:	   Carry set if	pathname error.
;	   C1_PathName = C1_PathName + separator + given name.
; 
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	=
		EXPORT	addName
addName	        phx
		pha
		PushLong #C1_PathName
		jsl	PathAddName
		bcc	exit
		brl	lenError		;report length error
exit		rts
		ENDP


;===========================================
;	   Move	window's pathname
;	   into	'C1_PathName'.
;===========================================
;
;   IN:	   windBlk = window's info block.
;
;  OUT:	   C1_PathName = window's pathname.
;
;===========================================

getWindPath	PROC	EXPORT

		lda	#windPath
		clc
		adc	<windBlk
		ldx	<windBlk+2
		bcc	@nr
		inx
@nr		phx
		pha
		pushlong #c1_pathname
		jsl	WStringCopy
		rts
		ENDP


;===================================================
;	   Move	'C1_PathName' into icon template.
;===================================================

path2ticon	PROC	EXPORT

		lda	C1_PathName
		cmp	#MaxPathLen-1		;Length too big?
		bcs	@exit

		pushlong #c1_pathname
		pushlong #ticonobj+icOwner
		jsl	WStringCopy
		
		clc
@exit		rts
		
		ENDP


;================================================
;	   Get last name from pathname.
;================================================
;
;   IN:	   C1_PathName = pathname to parse.
;
;  OUT:	   C1_PathName = not changed. 
;	   lastName = last name	in pathname, length byte first,	zero at	end,
;		      no separators. 
;
;================================================

findLastName	PROC	EXPORT

		sep	#$20
		LONGA	OFF
		
		ldx	<zero
		ldy	C1_PathName
skip
		lda	C1_PathName+1,y
		cmp	#SEPARATOR		;start of last name ?
		beq	loop
		dey
		bra	skip

loop
		lda	C1_PathName+2,y
		sta	lastName+1,x
		inx
		iny
		cpy	C1_PathName		;end of pathname ?
		bcc	loop

		txa
		sta	lastName		;set length byte
		stz	lastName+1,x		;set end of string

		rep	#$20
		LONGA	ON
		
		rts
		
		ENDP
		
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	=
;	   Get root name from pathname. 
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	=
; 
;   IN:	   C1_PathName = pathname to parse.
;
;  OUT:	   C1_PathName = not changed. 
;	   lastName = first name in pathname, length byte first, zero at end,
;		      no separators. 
;
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	=

getRootName	PROC	EXPORT  

		sep	#$20
		LONGA	OFF
		
		ldx	#1
loop
		lda	C1_PathName+2,x
		cmp	#SEPARATOR		;end of root name ?
		beq	done
		sta	lastName,x
		inx
		cpx	C1_PathName		;end of pathname ?
		bcc	loop
done
		dex
		txa
		sta	lastName		;set length byte
		stz	lastName+1,x		;set end of string

		rep	#$20
		LONGA	ON
		
		rts
		ENDP

;==============================================
;	   Make	a root name from icon.
;==============================================
;
; IN:	ic = pointer to ICONOBJ
;
; OUT:	C1_PathName = separator + icon name
;
;==============================================

makeIcRoot	PROC	EXPORT


		ldy	#icName
		lda	[<ic],y
		and	#$00FF
		inc	a
		sta	C1_PathName		;set length word
		lda	#SEPARATOR		;GS/OS separator character
		sta	C1_PathName+2		;add it in

		iny
		ldx	<zero
loop						;copy icon's name
		lda	[<ic],y
		sta	C1_PathName+3,x
		iny
		iny
		inx
		inx
		cpx	C1_PathName
		bcc	loop

		rts
		
		ENDP

;===============================================
;	   Build pathname for ICONOBJ.
;===============================================
;
;   IN:	   icHand = handle of ICONOBJ (extended	icon is	OK, desktop icon OK).
;	   windBlk = pointer to	ICONOBJ's window information block.
;
;  OUT:	   Carry set if	pathname error.
;	   C1_PathName = full pathname to, and including, 'ic'.
;
;===============================================

buildPath3	PROC	EXPORT

		jsr	lockic
		ldy	#icMom+2		Get info block of icon's mom window.
		lda	[<ic],y
		tax
		dey
		dey
		lda	[<ic],y
		jsr	getwRefCon2		windBlk	= icon's mom window info block.


		EXPORT	buildPath
buildPath	        

		lda	OpenFlag		Special	flag?
		clc				OK flag, just in case
		beq	ok222
		brl	exit			Already	in pathname if special flag set.
ok222
		pei	<temp+2			Save.
		pei	<temp

		jsr	geticNamePtr		temp = pointer to ic's name
		lda	<temp
		sta	NamePtr
		lda	<temp+2
		sta	NamePtr+2
		
		pla				Restore.
		sta	<temp
		pla
		sta	<temp+2
		bra	enter1
		
;===============================================
;
;   IN:	   lastName = icon's name.
; 
;===============================================
		EXPORT	buildPath2
buildPath2	        
		lda	#lastName
		sta	NamePtr
		lda	#lastName>>16
		sta	NamePtr+2

; --- Move ic's window's pathname into 'C1_PathName' -------------------

enter1		stz	C1_PathName		In case	there is no window.

		ldy	#icFlag			Is this	an extended icon?
		lda	[<ic],y
		and	#ICEXTENDED
		beq	ok1

		jsr	getExtName		C1_PathName = icon's icOwner field.
		bcs	exit			Pathname error?
		bra	skip1

ok1		lda	<windBlk+2		Is the ic on the desktop?
		bne	ok2
		tdc
		clc
		adc	#deskic
		cmp	<windBlk
		beq	skip1			Must be	volume ic if on	desktop.

ok2
		lda	#windPath
		clc
		adc	<windBlk
		ldx	<windBlk+2
		bcc	@nr
		inx
@nr		phx
		pha
		pushlong #c1_pathname
		jsl	WStringCopy
		
; --- Add ic's name -----------------------------------------------

skip1
		PushLong NamePtr
		PushLong #C1_FileName
		jsl	PtoWString
		
		PushLong #C1_FileName
		PushLong #C1_PathName
		jsl	PathAddName

		bcc	ok3
		jsr	lenError		Report length error.
		bra	exit
ok3
		clc				OK flag.
exit		rts


NamePtr		DC.L	0			;points to file name

		ENDP

;============================================================
;	   Move	icon's icOwner field into 'C1_PathName'.
;============================================================
;
;   IN:	   ic =	pointer	to extended ICONOBJ.
;
;  OUT:	   Carry set if	pathname too long.
;	   C1_PathName = ic's icOwner field.
;
;============================================================

getExtName	PROC	EXPORT


		ldy	#icOwner
		lda	[<ic],y			;Check for too long a name
		cmp	#MaxPathLen-1
		bcc	@ok
		brl	lenError
@ok	

		lda	<ic
		clc
		adc	#icOwner
		ldx	<ic+2
		bcc	@nr
		inx
@nr		phx
		pha
		pushlong #c1_pathname
		jsl	WStringCopy
		
		clc				;OK flag.
		rts
		
		ENDP


;=======================================================
;	   Clone 'C1_PathName' into 'C1_TempPath'
;=======================================================
;
;   IN:	   C1_PathName = pathname to clone.
;
;  OUT:	   C1_TempPath = C1_PathName.
;
;=======================================================

clonePath	PROC	EXPORT
		
		IMPORT	WStringCopy
		
		PushLong #C1_PathName
		PushLong #C1_TempPath
		jsl	WStringCopy		
		clc
		rts


; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =
;	   Clone 'C1_TempPath' into 'C1_PathName'.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =
;
;   IN:	   C1_TempPath = name to move into	'C1_PathName'.
;
;  OUT:	   C1_PathName = C1_TempPath.
;
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =
		EXPORT	temp2path
temp2path	        

		IMPORT	WStringCopy
		
		PushLong #C1_TempPath
		PushLong #C1_PathName
		jsl	WStringCopy		
		clc
		rts
		
		ENDP


;===============================================================
;	   Close every window that came	from an	icon.
;===============================================================
;
;   IN:	   icHand = Handle of icon being closed.
;
; Some of the variables	trashed:
;
;	   C1_PathName
;	   wind
;	   windBlk
;	   TaskData
;
;===============================================================

closeKids	PROC 	EXPORT

		jsr	buildPath3		C1_PathName = icon's pathname.
		bcs	exit			Pathname error?

		lda	#DirWindID		Directory windows only.
		jsr	getFrontWind
		bcs	exit			Any windows at all?
		beq	next1			Front window not a directory?

lop1		pei	<wind+2			Save this window pointer.
		pei	<wind

		jsr	ckRoots			See if window came from	icon.

		pla
		sta	<wind
		sta	<TaskData		Save possible window to	close.
		pla
		sta	<wind+2
		sta	<TaskData+2

next1
		php				;Save 'close window' flag.
		jsr	getNextWind		;Get the next window in the list
						;cause I might close one and break
						;the list.
		plp				;Restore 'close window' flag.
		pha				;Save next window's ID.
		bcc	skip1			;Should window be closed?

		pei	<wind+2
		pei	<wind
		pei	<icHand+2		Save icon's handle.
		pei	<icHand

		jsr	doClose2		Close the window in TaskData.

		pla
		sta	<icHand
		pla
		sta	<icHand+2
		jsr	buildPath3		C1_PathName = icon's pathname.
		pla
		sta	<wind
		pla
		sta	<wind+2
skip1
		pla				Get the	next window's ID.
		bne	lop1			Is there another window?
exit
		rts

; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	=
;	   Check if window's pathname
;	   came	from 'C1_PathName'.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	=
;
;   IN:	   wind	= window to check.
;	   C1_PathName = pathname to check.
;
;  OUT:	   Carry clear if window did not come from 'C1_PathName'.
;
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	=
		EXPORT	ckRoots
ckRoots	    	NAME    

		lda	<wind			Pass window.
		ldx	<wind+2
		jsr	getwRefCon2		windBlk	= info block.
		
		ldy	#windPath		Window's path must be equal to or greater
		lda	[<windBlk],y		in length than the name	to check.
		cmp	C1_PathName
		bcc	noKidOmine		If window name is shorter, then	no match.

		iny
		iny
		ldx	<zero
		
lop100		lda	[<windBlk],y
		and	#$00FF
		cmp	#'a'
		bcc	@1
		cmp	#'z'+1			; is it a lower-case letter?
		bcs	@1
		sec
		sbc	#$20			; yes - so convert it to upper case	
@1		sta	<work

		lda	C1_PathName+2,x
		and	#$00FF
		cmp	#'a'
		bcc	@2
		cmp	#'z'+1			; is it a lower-case letter?
		bcs	@2
		sec
		sbc	#$20			; yes - so convert it to upper case	
@2		cmp	<work
		bne	noKidOmine
		iny
		inx
		cpx	C1_PathName		All checked?
		bcc	lop100
		
		lda	[<windBlk],y
		and	#$00FF
		cmp	#SEPARATOR		;GS/OS separator character
		sec
		beq	ok100
		
		ldy	#windPath
		lda	[<windBlk],y
		cmp	C1_PathName
		sec				Set 'matched' flag, just in case.
		beq	ok100

noKidOmine	clc				Return 'no match' flag.
ok100		rts

		ENDP

; ZoomDiskToTrash -- zoom the current icon into the trashcan
;
; IN: ic is the icon to zoom into the trashcan
;.....................................................................

ZoomDiskToTrash	PROC	EXPORT

		import	getSmallRect
		import	ZoomRect

		jsr	getSmallRect
		
		ldx	#6
@rLoop		lda	smallRect,x
		sta	bigRect,x
		dex
		dex
		bpl	@rLoop

		pushZLong <icHand
		pushZLong <ic
		
		pha
		pha
		pushZLong <TrashWind
		_GetWRefCon
		pulllong <ptr
		
		ldy	#WindIc			;windIC is the icon which opened into this
		lda	[<ptr],y		;window -- the trashcan icon
		sta	<icHand
		iny
		iny
		lda	[<ptr],y
		sta	icHand+2
		
		jsr	lockIc		
		jsr	getSmallRect
		jsr	unlockIc
		pulllong <ic
		pulllong <icHand
		
		lda	<zero			;zoom down
		jsr	ZoomRect
		rts
		ENDP
		
;========================================
;	   Disk	put in trash.
;========================================
;
; Might	be called from walkOfLife walking backwards.
; Called for each disk on shutdown.
;
;   IN:	   ic =	locked ICONOBJ of disk icon moved into trash.
;
;  OUT:	   Save	the pathnames of all open windows from the disk	in root	file.
;	   Close all open windows from the disk.
;	   Eject disk.
;	   ic =	removed	from list, deallocated and erased from screen.
;
;========================================

trashDisk	PROC	EXPORT

		IMPORT	EjectDisk
		import	SelectionIsChanging
		import	CheckOpenFiles

		jsl	SelectionIsChanging	;14-Jul-91 DAL

;
; --- Save the pathname	of every open directory	on disk	----------------------
;
		jsr	writeRoot		Save the pathnames of all open windows.

;
; only unmount the disk if it didn't have any open files on it
;
		lda	<ic
		clc
		adc	#icName
		tax
		lda	<ic+2
		adc	<zero
		jsl	CheckOpenFiles
		bcc	@noOpenFiles
		
		ldy	#icFtype		;DO NOT eject servers with open files!!
		lda	[<ic],y
		cmp	#typeServer
		beq	@offline
		cmp	#typeHardPart		;DO NOT eject hard disk partitions with open files!!
		beq	@offline
		
		ldy	#icDevNum		;Eject the disk.
		lda	[<ic],y
		beq	@offline		;Is the disk offline already?
						;If offline, no need to eject it.
		pha
		jsl	EjectDisk
@offline	rts
@noOpenFiles	

;
; --- Remove any extended icons	that may have come from	disk ------------
;
		lda	#wipeIcon		Routine	to erase and free icons.
		jsr	walkExt
		
;
; --- Close every window that came from	disk or	its kids ---------------------
;
		jsr	closeKids


; --- Eject the	disk ---------------------------------------------------------

		jsr	lockic			;ic = (icHand) locked.

		ldy	#icDevNum		;Eject the disk.
		lda	[<ic],y
		beq	skip1			;Is the disk offline already?
						;If offline, no need to eject it.
		pha
		jsl	EjectDisk

skip1		inc	onlyDisk		;Set 'remove only disks' flag.

		jsr	ZoomDiskToTrash
		
; --- Remove the disk icon ----------------------------------------------

; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = =
;	   Take	ICONOBJ	out of icon list and free. 
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = =
;
;   IN:	   ic =	pointer	to icon	to remove.
;	   onlyDisk = TRUE if only 3.5' and 5.25' disk should be cut. 
;
;  OUT:	   onlyDisk = zero.
; 
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = =

		EXPORT	cutNfree
cutNfree	        
		IMPORT	EjectNonRemovable
		
;
; Fix both the forward and backwards links to the next and previous icon, so that if we happen to be
; walking either forwards or backwards in WalkOfLife.
;
		ldy	#icNext+2		Fix up walkOfLife cause	I'm going
		lda	[<ic],y			to cut this icon out of	the list.
		sta	dummyIc+icNext+2
		dey
		dey
		lda	[<ic],y
		sta	dummyIc+icNext

		ldy	#icLast+2		Fix up walkOfLife cause	I'm going
		lda	[<ic],y			to cut this icon out of	the list.
		sta	dummyIc+icLast+2
		dey
		dey
		lda	[<ic],y
		sta	dummyIc+icLast

		jsr	killInfoWind		Close icon's info window, if any.

		ldy	#icMom			Plane that icon	will be	cut from.
		lda	[<ic],y
		sta	<curWind
		iny
		iny
		lda	[<ic],y
		sta	<curWind+2

		lda	onlyDisk		Should only disk icons be cut?
		beq	doit200

		stz	onlyDisk		Reset flag.

		ldx	EjectNonRemovable
		beq	@noEject

		ldy	#icFtype		;see if it's a hard drive partition
		lda	[<ic],y
		cmp	#TypeHardPart
		beq	doit200

@noEject	ldy	#icDevInfo		;12/4/90, andy, remove the icon
		lda	[<ic],y			;only if it's ejectable bit is
		and	#$0004			;set
		beq	exit
		
doit200		pei	<icHand+2		;Save icon's handle,
		pei	<icHand			;and passed to DisposeHandle.

		jsr	cutIcon			;Remove icon from the icon list.

		jsl DisposeHandleGlue		;Free ICONOBJ record (alreay on stack).

skip200		lda	#dummyHand		;Reset the saved handle used by findSelect.
		sta	saveHand
		sta	<icHand
		ldx	#dummyHand>>16
		stx	saveHand+2
		stx	<icHand+2

exit		rts

dummyHand	DC.L	dummyIc
		DC.W	0

dummyic		DC.L	0			icNext (not used).
		DC.L	0			icLast (fixed up).


;
; Below is a really bad hack to preserve the contents of c1_pathname around the call
; to closekids.  WipeIcon can be called by 'WalkExt' which walsk the extended icons
; on the desktop, comparing them to c1_pathname.  So, once WalkExt calls wipeIcon,
; c1_pathname has to be preserved.  Here, since CloseKids can close a window which
; destroys c1_temppath as well as c1_pathname, c1_pathname is copied to c1_path which
; is only used by the file copying routines, not any time wipeIcon is called. -- andy
;
		EXPORT	wipeIcon
wipeIcon	name        
		
		IMPORT	C1_Path
		
		pushlong #c1_pathname		;c1_pathname copied to c1_path
		pushlong #c1_path		;c1_path is only used by copying routines,
		jsl	WStringCopy		;not by anyone else during the close process
		
		pushZLong <wind
		pushZLong <windBlk
		jsr	closeKids
		pulllong <windBlk
		pulllong <wind
		jsr	lockIc			;deref ic again, sigh

		pushlong #c1_path
		pushlong #c1_pathname
		jsl	WStringCopy
		
		jsr	addIconRgn		Add the	icon to	the update region.
		jsr	cutNfree		Delete the icon	from the list. 
		rts

; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= =
;	   Walk	desktop	icons for extended icons. 
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= =
; 
;   IN:	   a = address of function to call for every extended icon that
;	       came from the icon pointed to by	icHand.
;	   icHand = owner of extended icons.
;
;  OUT:	   C1_PathName = pathname of owner icon.
;
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= =
		EXPORT	walkExt
walkExt        

		pha				Save function address.
		jsr	buildPath3		C1_PathName = ic's full patname.
		pla				Restore.
		bcs	exit			Pathname error?

; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= =
;   IN:	   C1_PathName = name to match.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= =
		EXPORT	walkExt2
walkExt2        

		sta	extFunc+1		Store address of function to call.

		pei	<icHand+2		Save icon to match.
		pei	<icHand
		pei	<curWind+2
		pei	<curWind
		pei	<direction
		lda	toCall+1
		pha

; --- Check icons on desktop ---------------------------------------------

		lda	<deskport		Switch to desktop.
		sta	<curWind
		lda	<deskport+2
		sta	<curWind+2

		lda	#ckForExt
		jsr	walkBack

; --- Check icons in Trash  ---------------------------------------------

		lda	<TrashWind		Handle of first	icon in	Trash window.
		sta	<curWind
		lda	<TrashWind+2
		sta	<curWind+2

		lda	#ckForExt
		jsr	walkBack

		pla
		sta	toCall+1
		pla
		sta	<direction
		pla
		sta	<curWind
		pla
		sta	<curWind+2
		pla
		sta	<icHand
		pla
		sta	<icHand+2
		brl	lockic

; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	=
;	   Remove extended icons that
;	   came	from trashed disk. 
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	=
;
;   IN:	   C1_PathName = name to check.
;	   extFunc+1 = address to call.
;
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	=
		EXPORT	ckForExt
ckForExt      

		ldy	#icFlag			Only check extended icons.
		lda	[<ic],y
		and	#ICEXTENDED
		beq	exit100

; --- Did icon come from name in 'C1_PathName' -------------------------

		ldx	<zero
		ldy	#IcOwner+2
lop100		lda	[<ic],y
		and	#$00FF
		cmp	#'a'
		bcc	@2
		cmp	#'z'+1			;is it a lower-case letter?
		bcs	@2
		sec
		sbc	#$20			;yes - so convert it to upper case	
@2		sta	<work	

		lda	C1_PathName+2,x		;C1_PathName = icon's root
		and	#$00FF
		cmp	#'a'
		bcc	@1
		cmp	#'z'+1			; is it a lower-case letter?
		bcs	@1
		sec
		sbc	#$20			; yes - so convert it to upper case	
@1		cmp	<work
		bne	exit100			; not a match
		iny
		inx
		cpx	C1_PathName
		bcc	lop100

		lda	[<ic],y
		and	#$00FF
		cmp	#SEPARATOR		;GS/OS separator character
		beq	done100

		ldy	#icOwner
		lda	[<ic],y
		cmp	C1_PathName
		bne	exit100			;Was there a match?
		
done100

		EXPORT	extFunc
extFunc		jsr	$1111

		lda	<icHand+1		;Is there another icon?
		bne	exit100
		sec
		rts

exit100		clc
		rts

		ENDP

;===============================================
;	   Find	root icon of window.
;===============================================
;
;   IN:	   a = low word	of window.
;	   x = high word of window.
;	   icHand = handle of icon to check if window, or its kids, came from.
;
;  OUT:	   Carry clear if window did not come from icHand, carry set if	it did.
;
;===============================================
		EXPORT	findRootIc
findRootIc	PROC
		
		IMPORT	PathGetRoot
		IMPORT	GetDeviceNumber
		
lop1		jsr	getwRefCon2
		ldy	#windIc+2		Get handle of icon that	opened into
		lda	[<windBlk],y		this window.
		tax
		dey
		dey
		lda	[<windBlk],y

		cmp	<icHand			Is the open icon the icon being	trashed?
		bne	next1
		cpx	<icHand+2
		bne	next1
		sec
		rts

next1		jsr	derefHand		temp = a and x dereferenced.

		ldy	#icFType		Have I hit the desktop level?
		lda	[<temp],y
		bpl	@match
		clc				bra if device or trash
		rts
		
@match		ldy	#icMom+2		Go back	another	window until the desktop
		lda	[<temp],y
		tax
		dey
		dey
		lda	[<temp],y
		
		cpx	<deskPort+2		;hey bud, if we look all the way back to
		bne	lop1			;the desktop, then we gotta split and say
		cmp	<deskPort		;that our window didn't come from icHand,
		bne	lop1			;ya dig? -- andy, 1/8/91

;
; if we get here it's kind of like 'oh shit, we're on the desktop and we still haven't"
; found the root icon (ie, folder on the desktop, now what?)"
;
		lda	#icOwner
		clc
		adc	<temp
		ldx	<temp+2
		bcc	@nr
		inx
@nr		phx
		pha
		pushlong #C1_Pathname
		jsl	WStringCopy
		
		pushlong #c1_devicename
		pushlong #C1_PathName
		jsl	PathGetRoot

		pha
		pushlong #c1_devicename
		jsl	GetDeviceNumber
		pla
		sta	devNum
		bcs	noMatch

		lda	<icHand			;walkExt trashes icHand, and we want to
		sta	<temp			;see if icHand is the same as the
		lda	<icHand+2		;handle to the root icon for this
		sta	<temp+2			;window...
		
		lda	<deskport		;switch to desktop.
		sta	<curWind
		lda	<deskport+2
		sta	<curWind+2

		lda	#findDeviceIc		
		jsr	walkBack

		lda	<icHand
		cmp	<temp
		bne	@noMatch
		lda	<icHand+2
		cmp	<temp+2
		bne	@noMatch

		lda	<temp
		sta	<icHand
		lda	<temp+2
		sta	<icHand+2		
		sec
		rts
		
@noMatch	lda	<temp
		sta	<icHand
		lda	<temp+2
		sta	<icHand+2		

noMatch		clc
		rts


;
; find the device icon in 'devNum'
;
findDeviceIc	lda	devNum
		ldy	#icDevNum
		cmp	[<ic],y
		bne	@next
		
		ldy	#icFType	;check filetype for device type
		lda	[<ic],y		;who knows, it could be trash (defensive coding)
		bpl	@next
		sec
		rts
		
@next		clc
		rts

;
; locals
;
devNum		dc.w	0		;device number
		ENDP

;===========================================
;	   Deselect all	selected
;	   icon's in wind.
;===========================================
;
;   IN:	   curWind = window to deselect.
;
;===========================================
		EXPORT	deselectall
deselectall	PROC
		IMPORT	NoRename	
		IMPORT	SelectionIsChanging
		
		jsl	SelectionIsChanging
		
		jsr	NoRename		
		jsr	startDraw		Switch to proper plane with proper origin.
		lda	#officon
		jsr	walkBack
		brl	endDraw			Return the port's origin back to 0,0.


		EXPORT	onIcon
onIcon					        

		jsr	getwRefCon		Get icon window's info block.

		ldy	#icFlag
		lda	[<ic],y
		and	#ICSELECTED
		bne	exit100			Already	selected?
		bra	enter100

;
; This entry point shouldn't be used by walk-of-life.
;
		EXPORT	officon2
officon2	jsr	getwRefCon		Get icon window's info block.

		EXPORT	officon
officon		ldy	#icFlag			Is this	icon selected?
		lda	[<ic],y
		and	#ICSELECTED
		beq	exit100			Nothing	to do if not.

enter100	lda	[<ic],y
		eor	#ICSELECTED		Deselect it.
		sta	[<ic],y

		jsr	drawIcon2		Redraw in new state.

exit100		clc				Continue flag.
		rts
		ENDP

; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =
;	   Delete all windows and extended
;	   icons that came from	folder.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =
;
;   IN:	   ic =	pointer	to folder icon.
;
;  OUT:	   icHand = same as in.
;	   ic =	same as	in.
;	   curWind = same as in.
;	   windBlk = same as in.
;
;	   All windows and extended icons that are descendants of icon are
;	   removed from	the desktop.
;
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =
;		EXPORT	killKids2

killKids2	PROC	EXPORT        

		lda	<icHand
		sta	saveHand3
		lda	<icHand+2
		sta	saveHand3+2

		pei	<curWind+2
		pei	<curWind

		lda	#dumpExtIcon1		Remove extended	icons that came	from ic.
		jsr	walkExt
		jsr	closeKids		Remove windows that came from ic.

		pla
		sta	<curWind
		pla
		sta	<curWind+2

		lda	saveHand3
		sta	<icHand
		lda	saveHand3+2
		sta	<icHand+2

		jsr	getwRefCon
		brl	lockic

saveHand3	DS.B	4


; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =	=
;	   Remove icon from face of the	earth.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =	=
;
;   IN:	   ic =	icon to	dump.
;
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =	=
dumpExtIcon1 

		lda	<icHand			Don't delete parent icon.
		cmp	saveHand3
		bne	dumpExtIcon
		lda	<icHand+1
		cmp	saveHand3+1
		beq	exit68


		EXPORT	dumpExtIcon
dumpExtIcon	        

		pei	<curWind+2
		pei	<curWind
		pei	<rectRgn+2
		pei	<rectRgn
		pei	<tempRgn+2
		pei	<tempRgn
		pei	<direction
		lda	toCall+1
		pha

		ldy	#icMom			Switch to icon's window.
		lda	[<ic],y
		sta	<curWind
		iny
		iny
		lda	[<ic],y
		sta	<curWind+2
		jsr	getwRefCon

		stz	<rectRgn+1		Mark as	freed, cause I saved them.
		stz	<tempRgn+1

		jsr	getRectRgn		Allocate rectRgn and tempRgn.
		jsr	wipeIcon		Cut icon out of	icon list add to redraw.

		pei	<icHand+2		Icon is	now the	next icon.
		pei	<icHand
		jsr	redrawList		Redraw icon's (erases icon).
		pla
		sta	<icHand
		pla
		sta	<icHand+2

		pla
		sta	toCall+1
		pla
		sta	<direction
		pla
		sta	<tempRgn
		pla
		sta	<tempRgn+2
		pla
		sta	<rectRgn
		pla
		sta	<rectRgn+2
		pla
		sta	<curWind
		pla
		sta	<curWind+2
		jsr	getwRefCon

		lda	<icHand+1		Is there a next	icon?
		beq	exit68
		jsr	lockic
exit68		rts

		ENDP

;============================================================
;	   Update disk icon's create time and date.
;============================================================

resetCTime	PROC	EXPORT

		IMPORT	updateInfoWin
		
		jsr	makeIcRoot		;pathname = separator + icName.
		jsr	doGetFileInfo		;get destination disk's new create time.

		ldy	#icCDate		;update new create time in icon.
@loop		lda	|info_cdate-icCDate,y
		sta	[<ic],y
		iny
		iny
		cpy	#icCDate+8
		bcc	@loop
		
		jsr	GetVolSizes
		bcs	exit
		
		lda	fileSysID
		ldy	#icFileInfo
		sta	[<ic],y
		
		ldy	#icFBytes		; update new size in icon.
		lda	NumBlks			; total blocks
		sta	[<ic],y
		iny
		iny
		lda	NumBlks+2
		sta	[<ic],y

		ldy	#icFBlocks		; update new size in icon.
		lda	NumBlks			; used blks = total blks - free blks
		sec
		sbc	FreeBlks
		sta	[<ic],y
		iny
		iny
		lda	NumBlks+2
		sbc	FreeBlks+2
		sta	[<ic],y

		jsr	UpdateRootSize		
exit		jsr	updateInfoWin
		rts		
		ENDP

; UpdateRootSize -- update the size of the root icon for <ic from NumBlks and FreeBlks
;.....................................................................

UpdateRootSizeW	PROC	EXPORT

		pushZLong <handle
		
		ldy	#windDiskIc
		lda	[<windBlk],y
		sta	<handle
		iny
		iny
		lda	[<windBlk],y
		sta	<handle+2
		bra	UpdateSize

		EXPORT	UpdateRootSize
UpdateRootSize	

		pushZLong <handle
		
		ldy	#icDisk
		lda	[<ic],y
		sta	<handle
		iny
		iny
		lda	[<ic],y
		sta	<handle+2

UpdateSize	lda	[<handle]
		tax
		ldy	#2
		lda	[<handle],y
		sta	<handle+2
		stx	<handle
			
		ldy	#icFType		;if this isn't a disk icon, we're in deep...
		lda	[<handle],y		;(just some protection)
		bpl	@done
				
		lda	NumBlks			;Total number of blocks on disk,
		sec
		sbc	FreeBlks		;less those free,
		tax				;equals number used.
		lda	NumBlks+2
		sbc	FreeBlks+2

		ldy	#icFBlocks+2		;used blocks
		sta	[<handle],y
		dey
		dey
		txa
		sta	[<handle],y
		
		ldy	#icFBytes		;total blocks
		lda	NumBlks
		sta	[<handle],y
		iny
		iny
		lda	NumBlks+2
		sta	[<handle],y
		
@done		pulllong <handle
		rts
		ENDP

;===============================================
;	   Should data files be	saved?
;===============================================
;
;   IN:	   SaveOffFlag = TRUE to over rule prefer and functionKey to not save.
;	   functionKey = special key state from	GetNextEvent.
;	   prefer = global preference for saving data files.
;
;  OUT:	   BNE if data file should not be saved.
;
;===============================================

ckDataWrite	PROC	EXPORT

		IMPORT	controlKeyStatus
		IMPORT	IsReadOnly
		
		ldy	#icFST
		lda	[<ic],y
		tay
		jsl	IsReadOnly
		bcc	@notReadOnly
		ldx	#1
		bra	ok1
@notReadOnly

;---- Temp Patch to keep Finder.data files off servers ---- DJB

		ldy	#ICFLAG+2
		lda	[<ic],y
		and	#ICNETWORK>>16
		tax
		bne	ok1

;---- Temp Patch #2 to skip offline volumes

		ldy	#ICFLAG
		lda	[<ic],y
		and	#ICOFFLINE
		tax
		bne	ok1
;-----------------------------------------------

		ldx	SaveOffFlag		Is saving turned off by	the Finder?
		bne	ok1

		ldx	controlKeyStatus		Was the	secret abort key down?

		lda	prefer			Is the save data file turned off?
		and	#PREF_DATA
		bne	ok1

		txa
		eor	#$1000			Flip the function key state.
		tax				;(state of control key)

ok1		txa				Should the data	file be	written?
		rts		
		ENDP

;========================================================
;	   Set horizontal scroll mask so icons
;	   won't fall on odd pixel boundaries.
;========================================================
;
;   IN:	   wind	= pointer to window to set.
;
;========================================================
		EXPORT	SetOrgnMask
SetOrgnMask	PROC


		pea	$FFFE
		pei	<wind+2
		pei	<wind
		_SetOriginMask
		rts
		
		ENDP

;=======================================================
;	   Bring a invisible window to the top.
;=======================================================
;
;   IN:	   a = low word	pointer	of Trash or Clip Board window only.
;	   x = high word pointer of Trash or Clip Board	window only.
;
;=======================================================
		EXPORT	wind2top
wind2top	PROC
		IMPORT	addWindow2Menu
		IMPORT	insertItemRef
	
*		using	equates
*		using	RAM


		sta	<wind			Save window pointer.
		stx	<wind+2

		pha				Space for result.
		phx				Pass pointer to	Trash window.
		pha
		_GetWFrame
		pla				Get window's frame flag.
		and	#F_VIS			Is the window visible?
		bne	selectWind		If visible, bring it to	the front.

; --- Window being made	visible	---------------------------------------
;
		pei	<wind+2			Make the window	topmost	before making
		pei	<wind			it visible so it doesn't draw twice.
		_BringToFront

; ------ Draw zoom box for Trash window	------------------------------

		lda	<wind			Set bigRect to window's port for
		cmp	<TrashWind		zoomRect call.
		bne	showIt
		ldx	<wind+2
		cpx	<TrashWind+2
		bne	showIt
		jsr	getBigRect

		jsr	growZoom

; ------ Make the window visible ------------------------------------

showIt		pei	<wind+2			Make the window	visible.
		pei	<wind
		_ShowWindow
		
		pha
		pha
		pushZLong <wind
		_GetWRefCon
		pulllong wind_ref

		lda	wind_ref
		clc
		adc	#windMenuText
		sta	insertItemRef+10
		lda	wind_ref+2
		adc	<zero
		sta	insertItemRef+12		
		
		jmp	addWindow2Menu		;add the trash to the windows menu


; = = =	= = = =	= = = =	= = = =	= = =
;	   Call	_SelectWindow.
; = = =	= = = =	= = = =	= = = =	= = =
;
;   IN:	    wind = pointer to window.
;
; = = =	= = = =	= = = =	= = = =	= = =
		EXPORT	selectWind
selectWind	        

		lda	<wind			Pass icon's window for select.
		ldx	<wind+2


; = = =	= = = =	= = = =	= = = =	= = =
;	   Call	_SelectWindow.
; = = =	= = = =	= = = =	= = = =	= = =
;
;   IN:	   a = low word	pointer	to window.
;	   x = high word pointer to window.
;
; = = =	= = = =	= = = =	= = = =	= = =
		EXPORT	selectWind2
selectWind2	        

		IMPORT	PickAWindow

		phx
		pha
		
		pha
		pha
		phx
		pha
		_GetWRefCon
		pulllong deref
		
		ldy	#windMenuItem
		lda	[deref],y
		jsr	pickAWindow
		
		_SelectWindow
		rts

; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	=
;	   Set smallRect to area in
;	   upper left corner of	screen.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	=

		EXPORT	setSmallRect
setSmallRect	        

		lda	#14			Set small RECT for clipboard window.
		sta	smallRect+y1
		sta	smallRect+x1
		inc	a
		sta	smallRect+y2
		sta	smallRect+x2
		rts

		ENDP

;================================================
;	   Compute window's data size.
;================================================
;
;   IN:	   wind	= window pointer.
;
;  OUT:	   Window's data size reset and frame redrawn if needed.
;
;================================================
		EXPORT	newDataSize2
newDataSize2	PROC

*		using	equates

maxY		equ	work
maxX		equ	maxY+2
minY		equ	maxX+2
minX		equ	minY+2
windsView	equ	minX+2
curYorg		equ	windsView+2
curXorg		equ	curYorg+2


		lda	<wind
		ldx	<wind+2
		bra	newDataSize


		EXPORT	newDataSize3
newDataSize3	        

		lda	<curWind
		ldx	<curWind+2
		
;================================================
;
;   IN:	   a+x = low+high words	of window pointer.
;
;  OUT:	   Window's data size reset and frame redrawn if needed.
;
;================================================
		EXPORT	newDataSize
newDataSize	        

		pei	<curWind+2		Save.
		pei	<curWind

		sta	<curWind
		stx	<curWind+2
		lda	<curWind+1		Valid window?
		beq	toexit

		jsr	ifDesk			Is the window the desktop?
		bne	ok3
toexit		brl	exit			If yes,	no need	to recompute data size.

; --- Find maximum right and bottom sides from icon positions -----------------

ok3		pha				Max data size must start with the size
		pha				of the content region.
		pei	<curWind+2
		pei	<curWind
		_GetContentRgn
		pla
		plx
		jsr	derefHand

		ldy	#6
		lda	[<temp],y
		ldy	#2
		sec
		sbc	[<temp],y
		sta	<maxY			Height of window's content region.
		ldy	#8
		lda	[<temp],y
		ldy	#4
		sec
		sbc	[<temp],y
		sta	<maxX			Width of window's content region.

		lda	#$7FFF
		sta	<minY
		sta	<minX

		lda	#findMaxPos
		jsr	walkOfLife

; --- Bring in any icon's lost off top or left sides --------------------------

		lda	<minY
		cmp	#$8000
		beq	justSize
 
		pha				Space for result.
		pha
		pei	<curWind+2		Pass window to change.
		pei	<curWind
		_GetContentOrigin
		pla				Get current Y origin.
		sta	<curYorg
		pla				Get current X origin.
		sta	<curXorg

		stz	<windsView		Flag to	set data size first.

		ldx	#2
lop1		ldy	<zero
		lda	<curYorg,x
		cmp	<minY,x			Is min less than curorg?
		bcc	ok5			If yes,	no adjustment needed.

		lda	<minY,x			Tighten	origin up as much as possible.
		bra	enter1
 
ok5		lda	<minY,x			Is min out of bounds?
		bmi	enter1			If yes,	add amount to everything.
		lda	<curYorg,x		If min in bounds, make origin zero.
enter1		eor	#$FFFF
		inc	a
		tay
store1		sty	<minY,x			Amount to add to icon positions.

		tya
		clc
		adc	<maxY,x
		sta	<maxY,x			New data size.

		tya
		clc
		adc	<curYorg,x
		sta	<curYorg,x		New origin.

		bcc	next1
		dec	<windsView		Flag to	set origin first.
 
next1		dex
		dex
		bpl	lop1

		lda	<minX			Do icon	positions need to be changed?
		ora	<minY
		beq	skip2
 
		lda	#resetIconPos		Add minY and minX to icon positions.
		jsr	walkOfLife

; --- Set the window's data size and origin ----------------------------------

skip2		lda	<windsView		Set origin or data size	first?
		bmi	ok4

		jsr	setDataSize		Data size got bigger, so set data size
		jsr	setOrigin		and then the origin.
		bra	exit

ok4		jsr	setOrigin		Data size got smaller, so shrink origin
justSize	jsr	setDataSize		before data size.

 
exit		pla				Restore.
		sta	<curWind
		pla
		sta	<curWind+2
		rts


; = = =	= = = =	= = = =	= = = =	= = = =
;	   Set window's origin. 
; = = =	= = = =	= = = =	= = = =	= = = =
 
setOrigin	pei <zero			Don't move content region.
		pei	<curXorg		Pass new origin.
		pei	<curYorg
		pei	<curWind+2		Pass window to change.
		pei	<curWind
		_SetContentOrigin2
		rts


; = = =	= = = =	= = = =	= = = =	= = = =	= = =
;	   Set window's data size.
; = = =	= = = =	= = = =	= = = =	= = = =	= = =
; modified 11/08/88 (VOTE) DJB 
setDataSize

		pha				;space for result
		pha
		pei	<curWind+2		;window to check
		pei	<curWind
		_GetDataSize

;--- added DJB 11/11/88 ------------------------
		lda	<curWind		;check view first, if it's view by name
		sta	<wind			;then we force X data size to be zero.
		lda	<curWind+2
		sta	<wind+2
		jsr	WindRefCon
		ldy	#windView
		lda	[<windBlk],y		;get current view
		
		ply				;get current height
		plx				;get current width
		
		cmp	#viewByName		;was it view by name ?
		bcc	cont200			;no
		stz	<maxX			;yes, use zero to force a solid thumb
		bra	ok200
;-----------------------------------------------
cont200		cpy	<maxY			; has the height changed?
		bne	ok200
		cpx	<maxX			; has the width changed?
		beq	exit200			; If neither changed, then done.

ok200		pei	<maxX			; pass new width
		pei	<maxY			; pass new height
		pei	<curWind+2		; pass window to change
		pei	<curWind
		_SetDataSize

exit200		rts


; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =	=
;	   Find	maximum	icon positions.
;	   Called for each icon	in a list.
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =	=
;
;   IN:	   maxY	= current maximum y position.
;	   maxX	= current maximum x position.
;	   minY	= current minimum y position.
;	   minX	= current minimum x position.
;	   ic =	locked ICONOBJ.
;	   windBlk = window's info block.
;
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =	=

findMaxPos
		ldy	#windView		By icon, or text?
		lda	[<windBlk],y
		sta	<windsView
		beq	bigIcon
		dec	a
		beq	smallIcon


; --- View by text --------------------------------------------- 

		stz	<minY
		stz	<minX

		lda	#640
		sta	<maxX

		ldy	#icTextY
		lda	#15
		bra	checkY

; --- View by big icon -----------------------------------------

bigIcon		lda	#80
		bra	enter100


; --- View by small icon ---------------------------------------

smallIcon	lda	#160
enter100	ldy	#icx
		clc
		adc	[<ic],y
		bmi	checkMin
		cmp	<maxX
		bcc	checkMin
		sta	<maxX


; --- Find minimum values --------------------------------------

checkMin	ldy	#icx
		ldx	#2
 
lop100		phx

		lda	bigOffset-icy,y
		ldx	<windsView
		beq	ok105
		lda	smallOffset-icy,y
ok105		plx
		clc
		adc	[<ic],y
		phy
		bmi	skip102

		ldy	<minY,x			If min is already negative, 
		bmi	next100			it can be beat by a positive.
		cmp	<minY,x			Is this	minimum	less than current?
		bcc	store100
		bra	next100
 
skip102		ldy	<minY,x			If min is positive,
		bpl	store100		then it	is beat	by a negative. 
		cmp	<minY,x
		bcs	next100
store100	sta	<minY,x

next100		ply
		dey
		dey
		dex
		dex
		bpl	lop100


		lda	#15
		ldy	#icy

checkY		clc
		adc	[<ic],y
		bmi	exit100
		cmp	<maxY
		bcc	exit100
		sta	<maxY

exit100		clc				Continue flag.
		rts

bigOffset	DC.W	-21,-66
smallOffset	dc.w	-10,-14

; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =
;	   Reset the position of every icon. 
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =
;
;   IN:	   ic =	icon to	reposition.
;	   minY	= amount to add	to Y position. 
;	   minX	= amount to add	to X position.
;
;  Icon	positions are changed, but so is the window's origin.  So, nothing
;  moves inside	the content, only the scroll bars move.
; 
; = = =	= = = =	= = = =	= = = =	= = = =	= = = =	= = = =

resetIconPos
		ldy	#icy
		lda	[<ic],y
		clc
		adc	<minY
		sta	[<ic],y

		iny
		iny
		lda	[<ic],y
		clc
		adc	<minX
		sta	[<ic],y
		clc
		rts

		ENDP

;================================================================
;	   Update memory used and available in info bars.
;================================================================
;
;
;   IN:	   C1_PathName = pathname (only root name used) of windows needing
;		      to be updated.  First word zero for all windows.
;
;================================================================

updateKs	PROCNAME EXPORT

		import	_UpdateInfoWin		
		import	ClonePath
		import	WStrCompare

		lda	C1_PathName		All windows?
		beq	@skip

		jsr	justRootName		C1_PathName = pathname's root name.
		jsr	ClonePath		;c1_temppath = c1_pathname

; 19-Feb-93 JCM - The change to "bcs badUpdate" fixes a fatal bug if GetVolSizes ever
;		  returns with the carry set (indicating an error). We'd previously
;		  restore <curWind from the stack but we hadn't pushed it yet.

		jsr	GetVolSizes		Get sizes for disk.
;;;		bcs	@bad			;19-Feb-93 JCM - a little optimization
		bcs	badUpdate
		
@skip		pei	<curWind+2		Save.
		pei	<curWind

		lda	#DirWindID
		ldx	#updateWind
		jsr	walkWindow

*** Added - 19-Feb-93 JCM - Optimized out about 14 bytes with this change.

		bra	UpdateInfos2		
		
;;;		lda	#InfoWindID
;;;		ldx	#updateInfoWind
;;;		jsr	walkWindow
;;;
;;;@bad		pla				Restore.
;;;		sta	<curWind
;;;		pla
;;;		sta	<curWind+2
;;;		rts

;
; update the info windows in c1_temppath
;
		EXPORT	UpdateInfos
UpdateInfos	pei	<curWind+2		Save.
		pei	<curWind

UpdateInfos2	lda	#InfoWindID		;19-Feb-93 JCM - for optimization
		ldx	#updateInfoWind
		jsr	walkWindow

		pla				;Restore
		sta	<curWind
		pla
		sta	<curWind+2
badUpdate	rts				;19-Feb-93 JCM - for optimization

;
; called by WalkWindow to update the directory windows
;
updateWind	lda	prefer
		and	#PREF_SHOWDISK
		bne	@listHasInfo
		
		ldy	#windView		;Nothing to do if viewed by text.
		lda	[<windBlk],y
		cmp	#viewByName
		bcs	next1

@listHasInfo	lda	C1_PathName		;All windows?
		bne	checkit

		jsr	getWindPath		;C1_PathName = window's pathname.
		jsr	justRootName		;C1_PathName = pathname's root name.
		jsr	GetVolSizes		;Get sizes for disk.
		bcs	next1
		stz	C1_PathName		;Put pathname mark back to all windows.
		bra	ok1

checkit		jsr	matchRootName
		bcc	next1

ok1		jsr	setKs			;windBlk = pointer to window's info block
		bcs	@drawInfo
		
		ldy	#windDirty
		lda	[<windBlk],y
		bpl	next1
		
@drawInfo	pei	<wind+2			;Draw the new info bar.
		pei	<wind
		_DrawInfoBar

next1		ldy	#windDirty		;clear our high bit
		lda	[<windBlk],y
;;;		and	#$7fff
		asl a
		lsr a
		sta	[<windBlk],y
		
		clc				;Continue flag.
		rts
		
;
; Called by WalkWindow to update any info windows from c1_temppath. If the length word
; of c1_pathname is zero, then all root disk icon info windows are updated.
;

updateInfoWind	
		pushZLong <wind
		pushZLong <icHand
		pushZLong <ic
		
		lda	c1_pathname
		beq	@updateInfo
		
		jsr	BuildInfoPath		
;;;		bcs	@next			;26-Feb-93 JCM
		bcc	@doThisOne		;26-Feb-93 JCM
		brl	@next			;26-Feb-93 JCM

@doThisOne	jsr	justRootName		;C1_PathName = pathname's root name.

		pha
		pushlong #c1_temppath
		pushlong #c1_pathname
		jsl	WStrCompare
		pla
		beq	@next
		
@updateInfo	jsr	BuildInfoPath
		bcs	@next

		jsr	doGetFileInfo		;folder or file's new create & mod time
		bcc	@goodInfo
		brl	@next

@goodInfo	ldy	#icCDate		;update new create time, mod time in icon
@loop		lda	|info_cdate-icCDate,y
		sta	[<ic],y
		iny
		iny
		cpy	#icCDate+16
		bcc	@loop

*** Added - 1-Mar-93 JCM - This fixes the problem where non-disk info windows would
***			   suddenly get K values from their parent disk when files
***			   were emptied from the trash.

		ldy	#icFType
		lda	[<ic],y
		cmp	#TypeLastOne
;;;		bcs	@doingFileInfo	;18-Mar-93 JCM - your logic was backwards, butthead
		blt	@doingFileInfo	;18-Mar-93 JCM - (that was me anyway :-)

*** End - 1-Mar-93 JCM

		lda	c1_pathname
		pha
		
		jsr	JustRootName
		jsr	GetVolSizes
		bcs	@next
		
		ldy	#icFBytes		; update new size in icon.
		lda	NumBlks			; total blocks
		sta	[<ic],y
		iny
		iny
		lda	NumBlks+2
		sta	[<ic],y

		ldy	#icFBlocks		; update new size in icon.
		lda	NumBlks			; used blks = total blks - free blks
		sec
		sbc	FreeBlks
		sta	[<ic],y
		iny
		iny
		lda	NumBlks+2
		sbc	FreeBlks+2
		sta	[<ic],y

;;;@doingFileInfo	pla			;1-Mar-93 JCM
		pla				;18-Mar-93 JCM - if we branch here, we haven't pushed it yet
		sta	c1_pathname

@doingFileInfo	ldy	#windIc+2		;18-Mar-93 JCM
		lda	[<windBlk],y
		pha
		dey
		dey
		lda	[<windBlk],y
		pha
		PushLong #C1_PathName
		jsl	_UpdateInfoWin		

@next		pulllong <ic
		pulllong <icHand
		pulllong <wind
		clc				;Continue flag.
		rts


;
; c1_pathname = path of icon which opened into this window
;
BuildInfoPath	ldy	#windIc+2
		lda	[<windBlk],y
		sta	<icHand+2
		dey
		dey
		lda	[<windBlk],y
		sta	<icHand

		lda	[<icHand]
		sta	<ic
		ldy	#2
		lda	[<icHand],y
		sta	<ic+2
		
		ldy	#icFlag
		lda	[<ic],y
		and	#icOffline
		bne	@next
		
		ldy	#icFType
		lda	[<ic],y
		cmp	#TypeFTrash
		bge	@next
		cmp	#TypeFDrive
		beq	@next
		cmp	#TypeExtension
		beq	@next

		pushZLong <wind
		pushZLong <windBlk
		
		jsr	BuildPath3		;c1_pathname = icon's pathname
		
		pulllong <windBlk
		pulllong <wind
		rts
		
@next		sec
		rts
		
;
; locals
;
free		dc.L	0
used		dc.L	0
		ENDP

;================================================
;	   Remove a duplicate icon.
;================================================
;
; Called from moveIcons, which is called from walkOfLife.
;
;   IN:	   ic =	pointer	to icon	being copied into another window.
;	   windTrack = destination window.
;	   wind	= windTrack.
;	   windBlk = destination window	info block.
;
;  OUT:	   Duplicate icon in destination window	is removed along with any
;	   of its kids.
;
;================================================

removeClone	PROC 	EXPORT
		import 	clearAll
		import	BuildPath3

;
; --- Find duplicate icon --------------------------------------------------
;
		lda	saveHand+2
		pha
		lda	saveHand
		pha
		pei	<curWind+2		Save state.
		pei	<curWind
		pei	<icHand+2
		pei	<icHand
		pei	<direction
		lda	tocall+1
		pha

		lda	<windTrack+1
		bne	@haveWindow
		
		pushlong <icHand
		
		pushlong #c1_pathname
		pla
		pla
		
		lda	<iconTrack
		sta	<icHand
		lda	<iconTrack+2
		sta	<icHand+2
		jsr	lockic
		
		jsr	buildPath3
		jsr	unlockic

		pulllong <icHand
		jsr	lockic	
		
		lda	<ic			Pass point to icon to match in 'temp'.
		sta	<temp
		lda	<ic+2
		sta	<temp+2
		bra	@walkDesk

@haveWindow	lda	<ic			Pass point to icon to match in 'temp'.
		sta	<temp
		lda	<ic+2
		sta	<temp+2

		lda	#matchName		Find the duplicate icon.
		jsr	walkOfLife3
		bcs	KillIt

;
; Change by SEG	per DanO 21 Jul	87
;
		jsr	GetWindPath		C1_PathName = destwindow
		
@walkDesk	lda	#matchExtend
		jsr	walkExt2
		bra	exit

KillIt		

		jsr	NukeIt
		
exit		pla				Restore	state.
		sta	tocall+1
		pla
		sta	<direction
		pla
		sta	<icHand
		pla
		sta	<icHand+2
		pla
		sta	<curWind
		pla
		sta	<curWind+2
		pla
		sta	saveHand
		pla
		sta	saveHand+2
		brl	setic

matchExtend	jsr	MatchName
		bcc	exit200

NukeIt		pushZLong <icHand
		jsr	lockic

		pushZlong <wind
		pushZLong <windBlk
		pha
		pha
		_GetPort
		jsr	toDesktop		; switch to desktop 
		jsr	toDeskPort		; switch to desktop port
		
		pushZLong <curWind

		lda	<deskport		; switch to desktop
		sta	<curWind
		lda	<deskport+2
		sta	<curWind+2

		jsr	ClearAll
		
		pulllong <curWind
		_SetPort
		pulllong <windBlk
		pulllong <wind
		pulllong <icHand
		jsr	lockic
		jsr	killIcon		Erase and delete the duplicate icon.
		
		sec
exit200		rts

;
; Kill the extended icon if the name matches...
;
;matchExtend	jsr	MatchName
;		bcc	exit200
;		
;		jsr	dumpExtIcon
;		sec
;		rts
		
;-----------------------------------------------
; does new name match old name ?
;
; IN:	temp = pointer to icon to match
;	<ic = current icon in walk
;
; OUT:	carry set if names match
;-----------------------------------------------
matchName

		IMPORT	PStringCompare

		pha				; space for result
		clc
		lda	<temp
		adc	#icName
		tay
		lda	<temp+2
		adc	<zero
		pha				; ptr to 1st sring
		phy
		clc
		lda	<ic
		adc	#icName
		tay
		lda	<ic+2
		adc	<zero
		pha
		phy				; ptr to 2nd string
		jsl	PStringCompare
		pla
		cmp	#1
		rts
		
		ENDP

;========================================================
;	   Take	icon off screen, delete
;	   from	list, and dispose of record.
;========================================================
;
;   IN:	   icHand = icon to kill.
;	   ic =	(icHand).
;
;  OUT:	   ic =	no longer valid.
;	   icHand = freed handle.
;	   wind	= trash.
;	   windBlk = trash.
;	   irect1 = trash.
;	   irect2 = trash.
;
;========================================================
		EXPORT	killIcon
killIcon	PROC

		ldy	#icMom+2		Get icon's mother window.
		lda	[<ic],y
		tax
		dey
		dey
		lda	[<ic],y
		jsr	getwRefCon2

		ldy	#icFlag
		lda	[<ic],y
		and	#icExtended
		beq	@inWindow		
		brl	dumpExtIcon

@inWindow	ldy	#windView		View by	text don't need to be redrawn.
		lda	[<windBlk],y
		cmp	#viewByName
		bcs	exit

		lda	<wind			Setup to draw in window.
		ldx	<wind+2
		jsr	startDraw2

		jsr	getIconRect		Get icon's RECT.

		jsr	pushirect1
		_EraseRect

		jsr	pushirect2
		_EraseRect

		jsr	pushirect1
		_InvalRect

		jsr	pushirect2
		_InvalRect

		jsr	endDraw

exit		brl	cutNfree		Cut icon and free record.
		ENDP

;==================================================
;	   Get amount of free memory.
;==================================================
;
;  OUT:	   a = low word	amount of free memory.
;	   x = high word, flags	set to high value.
;
;==================================================

ckMemory	PROC	EXPORT

		pha
		pha
		_RealFreeMem
		pla
		plx
		rts

		ENDP

;==============================================
;
; IN:	C1_PathName
; OUT:	FreeBlks and NumBlks
;==============================================

GetVolSizes	PROC	EXPORT			;added 07/13/88 DJB
	
		IMPORT	GetDeviceInfo
		IMPORT	GetDeviceNumber
		IMPORT	GetVolumeInfo
		IMPORT	IgnoreGSOSError
		IMPORT	IgnoreErrors
		
		stz	fileSysID
		stz	NumBlks
		stz	NumBlks+2
		stz	FreeBlks
		stz	FreeBlks+2

		lda	>IgnoreErrors
		pha
		jsl	IgnoreGSOSError
		
		pha				; space for devNum
		PushLong #C1_PathName
		jsl	GetDeviceNumber
		pla
		bcs	exit

		pha				; devNum
		PushLong #C1_DeviceName		; devNamePtr
		lda <zero
		pha
		pha				; skip devChar
		pha
		pha				; skip devBlocks
		pha
		pha				; skip devID
		jsl	GetDeviceInfo
		bcs	exit

		PushLong #C1_DeviceName		; pointer to device name
		PushLong #C1_VolName		; pointer to volume name
		PushLong #NumBlks		; pointer to total blocks
		PushLong #FreeBlks		; pointer to free blocks
		PushLong #fileSysID		; pointer to file system ID
		lda <zero
		pha
		pha				; skip block size
		jsl	GetVolumeInfo

exit		pla
		sta	>IgnoreErrors
		rts
		
		ENDP

*=======================================*
*	Fix State of an Icon's Lock	*
* - called from GetInfo module		*
*					*
* IN:	a,x = pointer to IconObj	*
*					*
* OUT:	none				*
*=======================================*

FixIconLock	PROC 	EXPORT

		IMPORT	toDesktop
		IMPORT	toDeskPort
		IMPORT	getRectRgn
		IMPORT	freeRectRgn
		IMPORT	addRgn
		IMPORT	getIconRect
		IMPORT	drawDeskIcon
	
		phb
		phk
		plb

		pei	<ic+2			; preserve this variable
		pei	<ic
		
		sta	<ic
		stx	<ic+2
		
		ldy	#icFlag
		lda	[<ic],y
		and	#ICEXTENDED		; extended icons are on the desktop
		bne	onDesk

		ldy	#icFType		;fundamental assertion: if it's a 
		lda	[<ic],y			;device, it's on the desktop
		bmi	onDesk

		ldy	#icMom+2		; get icon's mother window
		lda	[<ic],y
		tax
		dey
		dey
		lda	[<ic],y
		jsr	getwRefCon2

		lda	<wind		 	; setup to draw in window
		ldx	<wind+2
		jsr	startDraw2
		jsr	getIconRect		; get icon's RECT

	
; we no longer need to calculate any slop around the edges because the lock icon stuff
; now erases the region for the original 
;
;		lda	<irect2+x1		; a little extra on the sides
;		sbc	#10
;		sta	<irect2+x1
;		lda	<irect2+x2
;		adc	#10
;		sta	<irect2+x2

		ldy	#windView
		lda	[<windBlk],y
		cmp	#viewBySmallIcon	;anything other than view by big icon?
		bcs	notByIcon
		inc	<irect2+y1		; just the text...
notByIcon

		jsr	pushirect2
		_EraseRect
		jsr	pushirect2
		_InvalRect

		jsr	endDraw
		bra	exit

onDesk		jsr	toDesktop		; switch to desktop 
		jsr	toDeskPort		; switch to desktop port
		jsr	getRectRgn		; allocate rectRgn and tempRgn
		jsr	getIconRect		; irect1 and irect2 = trash area

		lda	<irect2+x1		; a little extra on the sides
		sbc	#10
		sta	<irect2+x1
		lda	<irect2+x2
		adc	#10
		sta	<irect2+x2
		inc	<irect2+y1		; just the text...

		lda	#irect2
		jsr	addRgn
 
		jsr	drawDeskIcon		; redraw the icon's text
		jsr	freeRectRgn		; free allocated regions

exit		pla
		sta	<ic			; restore variable
		plx
		stx	<ic+2
		plb
		rtl

		ENDP
		
; Called from lots of places to reduce the _CloseWindow macros to 1 - here.
; This saves 3 bytes per call.
		
		EXPORT	CloseThisWindow
		
;;;		IMPORT	fileWindowPtr ;orig window code is currently commented out
		IMPORT	copyWindowPtr
		IMPORT	diskWindowPtr
		IMPORT	dupWindowPtr
		IMPORT	transWindowPtr
		IMPORT	repWindowPtr
		
CloseThisWindow	PROC

		phx
		pha
		_CloseWindow

		rtl

;;;		EXPORT	CloseFileWindow ;orig window code is currently commented out
;;;CloseFileWindow	
;;;
;;;		lda	fileWindowPtr
;;;		ldx	fileWindowPtr+2
;;;
;;;		bra	CloseThisWindow

		EXPORT	CloseCopyWindow
CloseCopyWindow	

		lda	copyWindowPtr
		ldx	copyWindowPtr+2

		bra	CloseThisWindow

		EXPORT	CloseDiskWindow
CloseDiskWindow	

		lda	diskWindowPtr
		ldx	diskWindowPtr+2

		bra	CloseThisWindow

		EXPORT	CloseDupWindow
CloseDupWindow	

		lda	dupWindowPtr
		ldx	dupWindowPtr+2

		bra	CloseThisWindow

		EXPORT	CloseTransWindow
CloseTransWindow	

		lda	transWindowPtr
		ldx	transWindowPtr+2

		bra	CloseThisWindow

		EXPORT	CloseRepWindow
CloseRepWindow	

		lda	repWindowPtr
		ldx	repWindowPtr+2

		bra	CloseThisWindow

		ENDP

;==============================================
		END		
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Finder/verify.aii b/IIGS.601.SRC/A.U.G/Finder/verify.aii
new file mode 100644
index 0000000..e418c1c
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Finder/verify.aii
@@ -0,0 +1 @@
+*===============================================*
* File:		Verify.aii			*
* Project:	IIGS Finder			*
* Build file:	Finder.Make			*
*						*
* Copyright Apple Computer, Inc. 1988-1992	*
* All rights reserved.				*
*===============================================*

		LONGA	ON
		LONGI	ON
		STRING	ASIS
		
		PRINT	OFF		
		PRINT	NOGEN
		PRINT	NOSYM
		
		INCLUDE	'DP.equ'
		INCLUDE	'ALL.MACROS'
		INCLUDE	'Pascal.macros'		
		INCLUDE	'special.macros'		
		INCLUDE	'GSOS.equ'
		INCLUDE	'Resource.equ'
		INCLUDE	'windowBlk.equ'
		include 'E16.Event'


		SEG	'Verify'
		
		PRINT	ON

; --- RECT record offsets ------------------------------------------------
y1		equ	0
x1		equ	y1+2
y2		equ	x1+2
x2		equ	y2+2
RECTSIZE	equ	x2+2

CancelID	equ	$FFFF
OKID		equ	$0001
TryAgainID	equ	$0002

slowBlocks	equ	32			; blocks per "pass" for slow drives
fastBlocks	equ	128			; blocks per "pass" for fast drives
buffSize	equ	$FFFF*2

DataBuffer	EQU	$FE0000			; ROM space to READ to

;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

		IMPORT	C1_PathName		;in data.aii
		IMPORT	C1_FileName		;in data.aii
		IMPORT	C1_FileNameBuf		;in data.aii
		
;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------
		
		ENTRY	OpenFile
		ENTRY	CloseFile
		ENTRY	GetDirEntry
		ENTRY	GSOSError
		ENTRY	DoRead
		ENTRY	CountFiles	
		ENTRY	ReadFiles

		
*===============================================*		
*	Data For Verify/Validate Routines	*
*===============================================*

VerifyData	PROC

		ENTRY	numberStr
numberStr	ds.b	10
		ENTRY	numberWidth
numberWidth	dc.w	0

		EXPORT vTaskRecord		
vTaskRecord	dc.w	0			;what
		dc.L	0			;message
		dc.L	0			;when
		dc.L	0			;where
		dc.w	0			;modifiers
		dc.L	0			;taskData
		dc.L	$00038006		;taskMask
		dc.L	0			;lastClickTick
		dc.w	0			;clickCount
		dc.L	0			;taskData2
		dc.L	0			;taskData3
		dc.L	0			;taskData4
		dc.L	0			;lastClickPoint

		STRING	PASCAL	
		ENTRY	OpenParams
OpenParams	DC.W  	15			;pcount
		ENTRY	RefNum
RefNum		DC.W 	 0			;ref num
		DC.L  	C1_PathName		;pathname
		DC.W  	$0001			;request access
		ENTRY	ResourceNumber
ResourceNumber	DC.W  	0			;resource number
		DC.W  	0			;access
		DC.W  	0			;file type
		DC.L  	0			;aux type
		ENTRY	opStorageType
opStorageType	DC.W  	0			;storage type
		DC.L  	0,0			;create date/time
		DC.L  	0,0			;mod date/time
		DC.L  	0			;option list
		ENTRY	DataEOF
DataEOF		DC.L  	0			;end of file (bytes)
		DC.L  	0			;blocks used
		ENTRY	ResourceEOF
ResourceEOF	DC.L  	0			;resource eof
		DC.L  	0			;resource blocks


		ENTRY	CloseParams
CloseParams	DC.W  	1			;pcount
		ENTRY	cpRefNum
cpRefNum	DC.W  	0			;ref. num


		ENTRY	DirectParams
DirectParams	DC.W  	12			;pcount
		ENTRY	dpRefNum
dpRefNum	DC.W  	0			;ref num
		DC.W  	0			;flag
		ENTRY	dpBase
dpBase		DC.W 	 0			;base
		ENTRY	dpDisp
dpDisp		DC.W  	0			;displacement
		DC.L  	C1_FileNameBuf		;name ptr
		ENTRY	dpEntryNum
dpEntryNum	DC.W  	0			;entry number
		ENTRY	dpFileType
dpFileType	DC.W  	0			;file type
dpEOF		dc.L	0
dpBlockCount	dc.L	0
dpCTime		dc.L	0,0
dpMTime		dc.L	0,0
		ENTRY	dpAccess		; access privileges flags
dpAccess	dc.L	0
	
		ENTRY	ReadParams
ReadParams	DC.W  	4			;pcount
		ENTRY	rpRefNum
rpRefNum	DC.W  	0			;ref num
		ENTRY	rpDataPtr
rpDataPtr	DC.L  	0			;data buffer ptr
		ENTRY	rpReqBytes
rpReqBytes	DC.L  	0			;request count (bytes)
		ENTRY	rpTranBytes
rpTranBytes	DC.L  	0			;transfer count (bytes)
		

		ENTRY	StartStack
StartStack	DC.W  	0
		ENTRY	EntryCount
EntryCount	DC.W  	0			;number of directory entries
		ENTRY	CurFile
CurFile		DC.W  	0

		ENTRY	FileCount
FileCount	DC.L	0			;number of files on volume
		ENTRY	Counter
Counter		DC.L	0			;temp counter


		ENTRY	AbortFlag
AbortFlag	DC.W	0			;flag ­Ê0 means Abort requested

		ENTRY	BadFiles
BadFiles	DC.L	0			;number of bad files encountered

		ENTRY	numRect
numRect		dc.w	5,328,14,410

		ENTRY	numRectLeft
numRectLeft	dc.w	5,328,14,410
		ENTRY	numRectRight
numRectRight	dc.w	5,328,14,410
		ENTRY	nameRect
nameRect	dc.w	20,$54,31,364	;first x coordinate gets blasted
		ENTRY	thePoint
thePoint	dc.L	0

		ENTRY	LevelParms
LevelParms	dc.w	1			;parameters for get/set level
		dc.w	0
		ENDP

*===============================================
*
* FUNCTION VerifyMedium (pathName: Ptr) : Handle;
*
*===============================================

VerifyMedium	PROC	EXPORT

		InitFrame

errStrPtr	Local	LongInt
volName		Local	34
curBlock	Local	LongInt
nextBlock	Local	LongInt
badBlocks	Local	Integer			; count (and index) of bad blocks
reqBlocks	Local	Integer			; blocks to read per pass
tranBytes	Local	LongInt			; bytes actually read
reqBytes	Local	LongInt			; bytes to read per pass
totalBlocks	Local	LongInt
devName		Local	34
devNum		Local	Integer
devID		Local	Integer
dataPtr		Local	LongInt			; pointer to our summary data
oldDP		Local	Integer

pathName	Param	Ptr			; input parameters

dataHand	Result	Handle			; handle to our summary data


		IMPORT	GetDeviceNumber		; imported routines
		IMPORT	GetVolumeInfo
		IMPORT	GetDeviceInfo
		IMPORT	GetFileInfo
		IMPORT	doAlertWindow
		IMPORT	DeviceRead
		IMPORT	WToPString
		IMPORT	WStringCopy
		IMPORT	PStringCopy
		IMPORT	NewHandle
		IMPORT	HandleToPointer
		IMPORT	SizeToString

		IMPORT	strBadBlocks		; in string segment
		IMPORT	nullStrg
		IMPORT	vTaskRecord
		IMPORT	WindowGlobalON
		IMPORT	WindowGlobalOFF
		IMPORT	DrawItemsLeft
		import	DisposeHandleGlue
		entry	vTaskMaster
				
		tdc				; stash old DP in x
		tax
		
		EntryCode
;----------------------------------------------
Begin
		phb
		phk
		plb

		stx	<oldDP			; remember old DP
				
		stz	<curBlock		; start at block 0
		stz	<curBlock+2

		stz	<badBlocks		; no errors yet
		stz	<dataHand
		stz	<dataHand+2
		lda	#nullStrg
		sta	<errStrPtr
		lda	#nullStrg>>16
		sta	<errStrPtr+2

		jsr	GetDeviceStuff
		bcs	abort			; fatal error so abort
		
		jsr	InitDialog		; open status dialog
		bcs	abort
repeat
		clc
		lda	<curBlock		; nextBlock <-- curBlock + reqBlocks
		adc	<reqBlocks
		sta	<nextBlock
		lda	<curBlock+2
		adc	#0
		sta	<nextBlock+2
		
		lda	<totalBlocks		; is totalBlocks ³ nextBlock ?
		cmp	<nextBlock
		lda	<totalBlocks+2
		sbc	<nextBlock+2
		bcs	read			; yes, so ok to read
		jsr	AdjustBlocks		; no, so adjust for last pass

read		jsr	ReadBlocks		; read reqBlocks worth of blocks
		bcc	ok
		jsr	ReadAgain		; try to find the error
		bcs	abort

ok		jsr	RedoDialog		; update status dialog
		cmp	#CancelID		; did user cancel ?
		beq	abort

		lda	<nextBlock		; if curBlock ­ totalBlocks then repeat
		sta	<curBlock
		ldx	<nextBlock+2
		stx	<curBlock+2
		cmp	<totalBlocks
		bne	Repeat
		cpx	<totalBlocks+2
		bne	Repeat		

		jsr	KillDialog		; remove status dialog

End		plb		
		ExitCode			; dataHand is returned
 
;----------------------------------------------
abort		jsr	KillDialog		; remove status dialog

		lda	<dataHand		; get rid of any summary data
		ora	<dataHand+2
		beq	mark
		PushZLong <dataHand
		jsl DisposeHandleGlue
		stz	<dataHand
mark		lda	#$8000			; mark as "abort"
		sta	<dataHand+2
		bra	End
 
;===============================================
;	Adjust variables for last pass
;===============================================
AdjustBlocks
		sec
		lda	<totalBlocks		; reqBlocks <-- (totalBlocks - curBlock)
		sbc	<curBlock
		sta	<reqBlocks
		sta	<reqBytes
		stz	<reqBytes+2

		ldx	#9			; reqBytes <-- (reqBlocks * 512)
@loop		asl	<reqBytes
		rol	<reqBytes+2
		dex
		bne	@loop

		clc
		lda	<curBlock		; nextBlock <-- (curBlock + reqBlocks)
		adc	<reqBlocks
		sta	<nextBlock
		lda	<curBlock+2
		adc	#0
		sta	<nextBlock+2
		rts

;===============================================
;	Read Block by Block to find error
;===============================================
ReadAgain
		PushZLong <reqBytes		; preserve reqBytes
		lda	#512
		sta	<reqBytes		; read one block only
		stz	<reqBytes+2
		
		ldy	<reqBlocks		; re-read each block
readLoop	phy
		
		jsr	ReadBlocks
		bcc	readNext
		jsr	BlockError		; handle this error
		bcs	readBad
		
readNext	ply
		dey
		beq	readDone
		inc	<curBlock
		bne	readLoop
		inc	<curBlock+2
		bra	readLoop

readBad		ply
		pulllong <reqBytes
		sec
		rts

readDone	PullLong <reqBytes
		clc
		rts
		
;===============================================
;	Handle a block error (a-reg)
;===============================================
BlockError

		cmp	#$0027
		beq	realError
		cmp	#$002D
		beq	realError
		sec
		rts				


realError	lda	<badBlocks
		inc	a
		cmp	#100-2			; we can only handle this many...
		bcs	endError
		sta	<badBlocks

		jsr	DrawError

		lda	<dataHand		; do we have a data buffer?
		ora	<dataHand+2
		bne	saveBlock
		pha
		pha
		pea	400			; space for 100 blocks
		jsl	NewHandle
		PullLong <dataHand
		pha
		pha
		PushZLong <dataHand
		jsl	HandleToPointer
		PullLong <dataPtr
		
		lda	#0			; init count to zero
		ldy	#2
		sta	[<dataPtr]
		sta	[<dataPtr],y

saveBlock	lda	<badBlocks		; get index into data
		sta	[<dataPtr]		; save count in summary
		asl	a
		asl	a
		tay
		lda	<curBlock		; save the block number
		sta	[<dataPtr],y
		iny
		iny
		lda	<curBlock+2
		sta	[<dataPtr],y
		
endError	clc
		rts

;===============================================
DrawError
		pei	<badBlocks		; unsigned number of bad blocks
		pea	strBadBlocks>>16	; bank of string
		lda	>strBadBlocks
		and	#$00FF			; get length
		sec
		sbc	#4			; backup 4 chars (for 5 digits)
		clc
		adc	#strBadBlocks
		pha				; offset into end of string
		pea	5			; number of digits
		pea	0			; value is unsigned
		_Int2Dec

		lda	#strBadBlocks
		sta	<errStrPtr
		lda	#strBadBlocks>>16
		sta	<errStrPtr+2
		rts
		
;===============================================
;	Get information about the device
;===============================================
GetDeviceStuff
		pha				; space for number
		PushZLong <pathName		; pointer to pathname
		jsl	GetDeviceNumber
		PullWord <devNum
		bcs	@goEndGDS

		PushZWord <devNum		; device number
		PushZPtr <devName		; pointer to device name
		PushLong #0			; skip characteristics
		PushZPtr <totalBlocks		; pointer to total blocks
		PushZPtr <devID			; pointer to device ID
		jsl	GetDeviceInfo
@goEndGDS	bcs	endGDS

		PushZPtr <devName		; pointer to device name
		pushZPtr <volName
		lda	#0
		pha
		pha
		pha
		pha
		
		pha
		pha
		pha
		pha
		jsl	GetVolumeInfo
		bcs	endGDS
						
		lda	<devID			; is it a slow device?
		cmp	#DiskII
		beq	slowDev
		cmp	#Disk3_5
		beq	slowDev
		cmp	#FloppyDisk
		beq	slowDev
		cmp	#MFMFloppyDisk
		beq	slowDev

		lda	#fastBlocks		; set request blocks to 128
		ldx	#fastBlocks>>16
		bra	doneGDS
		
slowDev		lda	#slowBlocks		; limit request blocks to 32
		ldx	#slowBlocks>>16

doneGDS		sta	<reqBlocks
		sta	<reqBytes
		stx	<reqBlocks+2
		stx	<reqBytes+2
		
		ldx	#9			; reqBytes <-- (reqBlocks * 512)
@loop		asl	<reqBytes
		rol	<reqBytes+2
		dex
		bne	@loop

		clc		
endGDS		rts

;===============================================
;	Read blocks from the device
;===============================================
ReadBlocks
		pha				; space for result
		pha
		PushZWord <devNum		; our device number
		PushLong #DataBuffer		; pointer to read buffer
		PushZLong <reqBytes		; number of bytes to read
		PushZLong <curBlock		; starting block number
		pea	512			; block size of our device
		jsl	DeviceRead
		plx
		stx	<tranBytes		; bytes actually transfered
		plx
		stx	<tranBytes+2
		rts				; A has error
		
;===============================================
;	Startup feedback dialog box
;===============================================

		IMPORT	CloseThisWindow		;in Util.aii - 27-Jan-93 JCM

InitDialog	pushZLong <pathname
		pushlong #c1_pathname
		jsl	WStringCopy
			
		lda	>c1_pathname
		and	#$00ff
		dec 	a
		xba
		sta	>c1_pathname+1
				
		jsl	WindowGlobalON
		
		pha
		pha
		pushlong #0			;titlePtr
		pushlong #0			;refCon is ptr to our window info block
		pushlong #verifyRedraw+$C0000000 ;content draw proc
		pushlong #0			;window defproc
		pea	2			;refIsResource
		pushlong #$f			;window resource we want
		pea	$800e			;rWindParam1
		_NewWindow2
		jsl	WindowGlobalOFF
		pulllong verifyWindowPtr
		bcc	@openOK
	
;
; close the window only if something bad happened and we actually have a window pointer
; because something could have happened when we went to add controls (but didn't
; get created because we couldn't find the disk or the resource)
;
		lda	verifyWindowPtr+1
		beq	@leave 

@done		lda	verifyWindowPtr
		ldx	verifyWindowPtr+2
		jsl	CloseThisWindow

@leave		sec
		rts

;
; cool.  we got the resources we needed and have a window -- so set everyone's control values before
; anything gets drawn
;
@openOK		
		pha
		pha
		_GetPort
		pulllong OurPort		
		pushlong verifyWindowPtr
		_SetPort

		pha
		pha
		pushlong verifyWindowPtr
		pushlong #3
		_GetCtlHandleFromID
		ply
		plx
		pea	0
		pea	280			;max value for dial
		phx
		phy
		_SetCtlTitle			;set the scale
		
		lda	<TotalBlocks+2
		ldx	<TotalBlocks
		jsr	DrawItemsLeft

@getDisk	pushlong verifyWindowPtr
		_BeginUpdate
		
		jsl	verifyRedraw	
		
		pushlong verifyWindowPtr
		_EndUpdate

		pushZPtr <volName
		lda	#0
		pha				; access pointer
		pha
		
		pha				; filetype pointer
		pha
		
		pha				; auxtype pointer
		pha
		
		pha				; storagetype pointer
		pha
		
		pha				; create date pointer
		pha
		
		pha				; mod date pointer
		pha
		
		pha				; bytes pointer
		pha
		
		pha				; blocks pointer
		pha
		
		pha				; file system pointer
		pha
		jsl	GetFileInfo
		bcc	@noSkip
		
		cmp	#$45
		bne	@error
		
		lda	#rasInsertDiskOrCancel
		jsl	doAlertWindow
		pla
		bne	@getDisk

@error		sec
		rts

@noskip		clc
		rts

;
; verify window content update routine
;
verifyRedraw	phb
		phk
		plb

		pushlong verifyWindowPtr
		_DrawControls
		
		plb
		rtl
;
; locals
;
verifyWindowPtr	dc.L	0
ourPort		dc.L	0
		
;===============================================
;	Update the feedback dialog box
;===============================================
RedoDialog	jsr	ScaleValue
		
		pha
		pha
		pha
		pushlong verifyWindowPtr
		pushlong #3
		_GetCtlHandleFromID
		_SetCtlValue
		
		lda	<TotalBlocks
		sec
		sbc	<nextBlock
		tax
		lda	<TotalBlocks+2
		sbc	<NextBlock+2
		jsr	DrawItemsLeft
		
@loop
;		pha				; space for result
;		pea	$056E			; event mask
;		pushlong #vTaskRecord
;		_TaskMaster
;		pla
*** 12-Jun-92 DAL
		jsr vTaskMaster
*** end 12-Jun-92
		beq	@done
		
		cmp	#6			;wInUpdate
		beq	@done		
		cmp	#$21			;wInControl
		bne	@loop

		lda	vTaskRecord+$26		;wmTaskData4
		cmp	#4
		bne	@loop
		lda	vTaskRecord+$26+2
		bne	@loop
		
		lda	#CancelID
		rts
		
@done		lda	#0
		rts

;
; vTaskMaster--call TaskMaster and turn Command-period into Esc
;
vTaskMaster	pha				; space for result
		pea	$056E			; event mask
		pushlong #vTaskRecord
		_TaskMaster
; If it's a Command-period, make it an Esc
		lda vTaskRecord
		cmp #keyDownEvt
		bne @notCmdPeriod
		lda vTaskRecord+2
		cmp #'.'
		bne @notCmdPeriod
		lda vTaskRecord+14		;modifiers
		and #appleKey
		beq @notCmdPeriod

		lda #27
		sta vTaskRecord+2

; use TaskMaster result space for SendEventToCtl result
		pea 0				;targetOnly = false
		pha
		pha
		_FrontWindow
		pushlong #vTaskRecord
		_SendEventToCtl
		pla
		beq @rts
		lda #$21			;wInControl
		rts

@notCmdPeriod	pla
@rts		rts

;===============================================
;	Remove the feedback dialog box
;===============================================

		IMPORT	CloseThisWindow		;in Util.aii - 27-Jan-93 JCM

KillDialog	pushlong ourPort
		_SetPort
		lda	verifyWindowPtr
		ldx	verifyWindowPtr+2
		jsl	CloseThisWindow

		rts

;
; ScaleValue -- scale the number of blocks to 100% (Actually, # of parts per 280)
;
;		 NumItems is how many blocks we've both read and written so far
;		 SrcSize*2 is the total number of blocks which have to be both read and written
;
; IN: 'nextblock' contains # of blocks done so far
;     'totalBlocks' contains # of blocks total
;
; OUT: (A) contains value of counter/filecount scaled to parts per 280 pixels (width of thermo)
;.....................................................................

ScaleValue	pha
		pha
		pha
		pha
		pushZLong <NextBlock		;multiply the numerator by 280 to get parts per 280
		pushlong #280
		_LongMul
		pla
		plx
		ply
		ply

		pha
		pha
		pha
		pha
		phx				;numerator
		pha				
		pushZLong <TotalBlocks		;denominator
		_LongDivide
		pla				
		ply				;quotient
		ply				
		ply				;remainder
		rts
		ENDP

;
; DrawItemsLeft -- draw the number of items left
;
; IN: (A) = high word of count to display
;     (X) = low word of count to display
;.....................................................................

drawItemsLeft	PROC	EXPORT	

		IMPORT	sizeToString

		pushlong #numberStr
		pha
		phx
		pea	0			;plain
		pea	512			;blocksize (doesn't matter)
		jsl	SizeToString
		
		pha
		pushlong #numberStr
		_StringWidth
		pla
		lsr	a
		sta	numberWidth

		lda	#369			;find the left side of the number
		sec
		sbc	numberWidth
		sta	numRectLeft+6

		pushlong #numRectLeft		;erase from the left edge to the left side of the number
		_EraseRect

		lda	numRectLeft+6
		pha
		pea	13
		_MoveTo

		pushlong #numberStr		;draw the number
		_DrawString
		
		pushlong #thePoint		;erase from the right side of the number to the end of
		_GetPen				;our old rectangle
		
		lda	thePoint+2
		sta	numRectRight+2
		pushlong #numRectRight
		_EraseRect
		rts
		ENDP
		
*===============================================*
* 	   Validate a File System		*
*						*
* - Does a recursive file by file validation	*
*						*
* In:	C1_PathName (in file data.aii)		*
*						*
* Out:	ptr to summary data or nil		*
*	carry flag is set if there is data	*
*===============================================*

ValidateFile	PROC	EXPORT

		IMPORT	C1_source
		IMPORT	WToPString
		IMPORT	PathGetName
		IMPORT	ANameTooLong		; Mensch 06/05/89 Fixing BRC #50354
		IMPORT	doAlertWindow
		IMPORT	finderTaskRecord
		IMPORT	SizeToString
		IMPORT	WindowGlobalON
		IMPORT	WindowGlobalOFF
		IMPORT	WatchCursor
		IMPORT	ArrowCursor
		IMPORT	DrawItemsLeft
		IMPORT	strValidate
		IMPORT	CloseThisWindow		;in Util.aii - 27-Jan-93 JCM

		phb
		phk
		plb

		stz	BadFiles
		stz	AbortFlag
		stz	FileCount

		lda 	#0
		sta 	>ANameTooLong
				
		PushLong #C1_FileName
		PushLong #C1_PathName
		jsl	PathGetName		;get name of "root"

		pushlong #c1_filename
		pushlong #c1_source+1
		jsl	WToPString
		
		jsl	WindowGlobalON
		
		pha
		pha
		pushlong #0			;titlePtr
		pushlong #0			;refCon is ptr to our window info block
		pushlong #validRedraw+$C0000000	;content draw proc
		pushlong #0			;window defproc
		pea	2			;refIsResource
		pushlong #$10			;window resource we want
		pea	$800e			;rWindParam1
		_NewWindow2

		jsl	WindowGlobalOFF
		pulllong validWindowPtr
		bcc	@openOK
	
;
; close the window only if something bad happened and we actually have a window pointer
; because something could have happened when we went to add controls (but didn't
; get created because we couldn't find the disk or the resource)
;
		lda	validWindowPtr+1
		beq	@leave 

@done		lda	validWindowPtr
		ldx	validWindowPtr+2
		jsl	CloseThisWindow

@leave		sec
		plb
		rtl

;
; cool.  we got the resources we needed and have a window -- so set everyone's control values before
; anything gets drawn
;
@openOK		pha
		pha
		_GetPort
		pulllong ourPort
		
		pushlong validWindowPtr
		_SetPort
		
		pushlong validWindowPtr
		_BeginUpdate
		
		jsl	validRedraw	

		ldx	#0			;say zero files to copy
		txa
		jsr	DrawItemsLeft

		pea	15			;Reading: <filename>
		pea	30
		_MoveTo
		pushlong #strValidate		;"Preparing to validate..."
		_DrawString
		
		pushlong validWindowPtr
		_EndUpdate

		_GetLevelGS LevelParms
		inc	LevelParms+2		;next level, sir
		_SetLevelGS LevelParms

;
; Now that the dialog has been drawn, make preparing to validate actually work...
;
		pha
		pushlong #0
		_WaitUntil
		pla
		sta	lastTick

		jsr	CountFiles
		bcc	@okCount
		
		jsr	SetPortClose
		lda	BadFiles
		beq	done
		brl	badFile
		
@okCount	pha				;wait at least half a second for this to register in the
		lda	lastTick		;user's eyeball
		pha
		pea	$0200			;30+ ticks, ~half a second
		_WaitUntil
		pla

		pha
		pha
		pushlong validWindowPtr
		pushlong #3
		_GetCtlHandleFromID
		ply
		plx
		pea	0
		pea	280			;max value for dial
		phx
		phy
		_SetCtlTitle			;set the scale

		lda	badfiles
		beq	startRead
		brl	badFile			;error while counting

startRead	jsr	ReadFiles
		jsr	SetPortClose
		
		lda	AbortFlag
		bne	done			;user selected 'Cancel'
		lda	BadFiles
		bne	badfile

goodFile	pea	$C005			;task accomplished
		_SysBeep2

		PushLong #C1_FileName
		PushLong #C1_PathName
		jsl	PathGetName		;get name of "root"
	
		lda	#rasValidGood
		jsl	doAlertWindow
		
done		dec	LevelParms+2		;next level down, sir
		_SetLevelGS LevelParms
		
		lda	<handle
		ldx	<handle+2
		
		ldy	BadFiles
		cpy	#1			;return carry flag

		plb
		rtl
					
badFile	 	jsr	SetPortClose

		lda	#rasValidBad
		jsl	doAlertWindow
		bne	done			;OK selected
		stz	BadFiles		;cancel was selected 
		bra	done

;
; SetPortClose -- set the port to our old port and close the window
;
SetPortClose	lda	validWindowPtr+1
		beq	@done
		
		pushlong ourPort
		_SetPort
		lda	validWindowPtr
		ldx	validWindowPtr+2
		jsl	CloseThisWindow
		
		stz	validWindowPtr+1
@done		rts
		
;
; redraw the validate window
;
validRedraw	phb
		phk
		plb

		pushlong validWindowPtr
		_DrawControls
		
		plb
		rtl
;
; locals
;
		EXPORT	validWindowPtr
validWindowPtr	dc.L	0
ourPort		dc.L	0
lastTick	dc.w	0
		ENDP

;
; ScaleThermo -- scale the number of blocks to 100% (Actually, # of parts per 280)
;
;		 NumItems is how many blocks we've both read and written so far
;		 SrcSize*2 is the total number of blocks which have to be both read and written
;
; IN: 'counter' contains # of files done so far
;     'fileCount' contains # of files total
;
; OUT: (A) contains value of counter/filecount scaled to parts per 280 pixels (width of thermo)
;.....................................................................

ScaleThermo	PROC	EXPORT

		pha
		pha
		pha
		pha
		pushlong counter		;multiply the numerator by 280 to get parts per 280
		pushlong #280
		_LongMul
		pla
		plx
		ply
		ply

		pha
		pha
		pha
		pha
		phx				;numerator
		pha				
		pushlong fileCount		;denominator
		_LongDivide
		pla				
		ply				;quotient
		ply				
		ply				;remainder
		rts

*===============================================*
*	   	Read Files			*
* - Reads the data of each file from the "root"	*
*						* 
* INPUT:	none				*
*						*
* OUTPUT:	none				*	
*						*
*===============================================*

ReadFiles	PROC

		IMPORT	C1_source
		IMPORT	WToPString
		IMPORT	PathSubName
		IMPORT	PathAddName
		IMPORT	PathGetName
		IMPORT	SizeToString
		IMPORT	validWindowPtr
		IMPORT	vTaskRecord

		stz	Counter
		stz	Counter+2
		
		tsc
		sta	StartStack		;remember for recursion	
		
		lda	#<DataBuffer		;set up data buffer
		sta	rpDataPtr
		lda	#DataBuffer>>16
		sta	rpDataPtr+2

		
doOpen		stz	ResourceNumber		;open data fork
		_OpenGS	OpenParams		;open the file
		bcc	cont1
	
;		
; If the open failed, we should mark this guy as never opened.
; Previously, this was not the case.
;
		lda	#$FFFF
		sta	opStorageType		; flag as never opened

;
; Insert test here to see if the error was access privilege.  If so, then assume
; it must be meant not to be read and do not count the error.  Instead, just skip
; to the next file in the chain.
;
		cmp	#$4E			; access error!
		beq	cont1			; so don't count it

		jsr	errorHand

cont1		lda	FileCount
		beq	@abort2
		sec
		sbc	Counter
		bcs	@noAbort
@abort2		brl	abort			; overflow !!

@noAbort	jsr	showValidCount
		
		inc	Counter
		bne	@loop
		inc	Counter+2
		
@loop
;		pha				; space for result
;		pea	$056E			; event mask
;		pushlong #vTaskRecord
;		_TaskMaster
;		pla
*** 12-Jun-92 DAL
		jsr vTaskMaster
*** end 12-Jun-92
		beq	check
		
		cmp	#6			;wInUpdate
		beq	check		
		cmp	#$21			;wInControl
		bne	@loop

		lda	vTaskRecord+$26		;wmTaskData4
		cmp	#4
		bne	@loop
		lda	vTaskRecord+$26+2
		bne	@loop
		
		lda	#CancelID
@abort		brl	abort

check		lda	opStorageType		;check for a directory
		cmp	#$0F
		beq	directory
		cmp	#$0D
		beq	directory
		cmp	#$FFFF
		bne	else
		brl	terminate		;was never opened!
else		brl	file			;just a file


directory	lda	RefNum
		sta	dpRefNum
		stz	dpBase
		stz	dpDisp
		
		_GetDirEntryGS DirectParams	;get number of entries
		bcc	cont2
		jsr	errorHand
		bra	doClose			;don't continue from here...

cont2		lda	#1
		sta	CurFile			;start at first entry
		lda	dpEntryNum
		sta	EntryCount
		beq	doClose			;no files to check
	
while						;loop for each file entry
		lda	RefNum
		sta	dpRefNum
		stz	dpBase
		lda	CurFile
		sta	dpDisp

		_GetDirEntryGS DirectParams
		bcc	cont3

		jsr	errorHand
		bra	doClose			;don't continue from here...
	
cont3

; Test here for entries that are not read-access.  If we get one, then simply
; ignore it and go to the next file.

		lda	dpAccess		; get the file access privileges
		lsr	a
		bcs	@GoodEntry		; carry set means it should be OK to read
		bra	contWhile		; else just skip this guy
@GoodEntry
		PushLong #C1_FileName
		PushLong #C1_PathName
		jsl	PathAddName
		bcs 	contwhile

		lda	RefNum			;save for recursion
		pha
		lda	CurFile
		pha
		lda	EntryCount
		pha
		brl	doOpen			;start recursion

contWhile	lda	CurFile			;return from recursion
		cmp	EntryCount
		bcs	doClose			;end of loop
		inc	CurFile
		bra	while	

file		jsr	DoRead			;read the file
		bcc	doClose
		jsr	errorHand

doClose		lda	AbortFlag
		beq	@noAbort
		brl	abort

@noAbort	lda	RefNum
		sta	cpRefNum
		_CloseGS CloseParams		;close the file

terminate	PushLong #C1_PathName		;remove file from path
		jsl	PathSubName
		tsc				;check for termination
		cmp	StartStack
		beq	done
		PullWord EntryCount		;data from recursion
		PullWord CurFile
		PullWord RefNum
		bra	contWhile		;continue where we left off!
done
		lda	fileCount
		sta	Counter
		lda	fileCount+2
		sta	Counter+2
		jsr	showValidCount	
exit		rts

;
; abort the whole thing
;
abort		lda  	StartStack		;reset stack pointer
		tcs
		stz	cpRefNum

		_CloseGS CloseParams		;close all files

		lda	#$FFFF
		sta	AbortFlag
		lda	#0
		clc
		bra	exit			;go home

;
; handle the error
;
errorHand	cmp	#$004E			;read-protected
		beq	openErr
		cmp	#$0050			;file is open
		beq	openErr
		bra	Add1BadFile
		
		lda  	StartStack		;reset stack pointer
		tcs
		stz	cpRefNum
		
		_CloseGS CloseParams		;close all files
		bra	exit			;go home

openErr		lda	#$FFFF
		sta	opStorageType		;mark as not opened


;
; Add 1 Bad file name to our bad file buffer which has the format
;
; +0       = word, # of entries
; +2       = pstring #1
; +32+2    = pstring #2, etc.
;
		IMPORT	NewHandle
		ENTRY	Add1BadFile
Add1BadFile		
		lda	BadFiles
		bne	@haveBadFiles
		
		pha
		pha
		pea	#32+2			;# of files+name of this file+this entry
		jsl	NewHandle
		pla
		sta	<handle
		pla
		sta	<handle+2
		
		lda	#32
		sta	<ptr2
		stz	<ptr2+2
		bra	@gotHandle
		
@haveBadFiles	lda	BadFiles
		inc	a
		sta	<ptr2
		stz	<ptr2+2
		
		ldx	#4
@rLoop		asl	<ptr2
		rol	<ptr2+2
		dex
		bpl	@rLoop

		lda	<ptr2
		clc
		adc	#2
		tax
		lda	<ptr2+2
		adc	#0
		pha
		phx
		pushZLong <handle
		_SetHandleSize

@gotHandle	inc	BadFiles
		
		lda	<ptr2		;backtrack 32-2 bytes
		sec
		sbc	#30
		sta	<ptr2
		lda	<ptr2+2
		sbc	#0
		sta	<ptr2+2
		
		lda	[<handle]
		sta	<ptr
		ldy	#2
		lda	[<handle],y
		sta	<ptr+2
		
		lda	BadFiles
		sta	[<ptr]
		
		lda	<ptr
		clc
		adc	<ptr2
		sta	<ptr2
		lda	<ptr+2
		adc	<ptr2+2
		sta	<ptr2+2
				
		lda	>c1_filename
		tax
		tay
		
		sep	#$20
		LONGA	OFF
		txa
		sta	[<ptr2]			;save the length byte
		
@copy		lda	>c1_filename+1,x
		sta	[<ptr2],y
		dey
		dex
		bne	@copy
		
		rep	#$20
		LONGA	ON
errorEnd	rts

;
; showValidCount -- display the number of items, etc
;.....................................................................

showValidCount	
		IMPORT	strgReading
		
		jsr	ScaleThermo
		
		pha
		pha
		pha
		pushlong validWindowPtr
		pushlong #3
		_GetCtlHandleFromID
		_SetCtlValue			;set the thermo dial

		lda	fileCount
		sec
		sbc	counter
		tax
		lda	fileCount+2
		sbc	counter+2
		jsr	DrawItemsLeft			;say how many left
		
;
; now just redraw the file's name which we're verifying
;
		pea	15			;Reading: <filename>
		pea	30
		_MoveTo
		pushlong #strgReading
		_DrawString

		lda	>c1_filename
		xba
		sta	>c1_filename
		
		pushlong #c1_filename+1
		_DrawString
		
		lda	>c1_filename
		xba
		sta	>c1_filename
		
		pushlong #thePoint		;finally, erase to the end of the rectangle
		_GetPen

		lda	thePoint+2
		sta	nameRect+2
		
		pushlong #nameRect
		_EraseRect		
		rts
		ENDP
	
*===============================================*
*		Read a File			*
* 						*
* INPUT:	none				*
*						*
* OUTPUT:	GS/OS ErrorCode (A-Reg)		*	
*		carry (set on error)		*	
*						*
*===============================================*

DoRead		PROC
		
		lda	DataEOF
		sta	bytes
		lda	DataEOF+2
		sta	bytes+2

		stz	whichFork		;data fork
		
loop
;		pha				; space for result
;		pea	$056E			; event mask
;		pushlong #vTaskRecord
;		_TaskMaster
;		pla
*** 12-Jun-92 DAL
		jsr vTaskMaster
*** end 12-Jun-92
		beq	@done
		
		cmp	#6			;wInUpdate
		beq	@done		
		cmp	#$21			;wInControl
		bne	loop

		lda	vTaskRecord+$26		;wmTaskData4
		cmp	#4
		bne	loop
		lda	vTaskRecord+$26+2
		bne	loop

		lda	#CancelID
		brl	abort
		
@done		lda	bytes
		ora	bytes+2
		bne	@notDone
		
		lda	whichFork
		bne	@goDone
		lda	opStorageType
		cmp	#5
		beq	@resourceFork
@goDone		brl	done
		
@resourceFork	lda	refNum
		sta	cpRefNum
		_CloseGS CloseParams
		
		lda	#1
		sta	ResourceNumber
		sta	whichFork
		_OpenGS OpenParams
		bcs	exit
		
		lda	ResourceEOF
		sta	bytes
		lda	ResourceEOF+2
		sta	bytes+2
		
@notDone	lda	bytes
		cmp	#<buffSize		;4-byte compare
		lda	bytes+2
		sbc	#buffSize>>16
		bcc	lastOne			;EOF < buffSize
		
		lda	#<buffSize		;ReqBytes <-- buffSize
		sta	rpReqBytes
		lda	#BuffSize>>16
		sta	rpReqBytes+2
		
		lda	bytes			;EOF <-- (EOF - buffSize)
		sec
		sbc	#<buffSize
		sta	bytes
		lda	bytes+2
		sbc	#buffSize>>16
		sta	bytes+2
		bra	read

lastOne		lda	bytes			;ReqButes <-- EOF
		sta	rpReqBytes
		lda	bytes+2
		sta	rpReqBytes+2
		
		stz	bytes			;EOF <-- 0
		stz	bytes+2

read		lda	RefNum
		sta	rpRefNum
		
		_ReadGS	ReadParams		;read the file
		bcs	exit			;error occured
		brl	loop

done		lda	#0			;okay
		clc
exit		stz	ResourceNumber
		rts
	

abort		lda	#$FFFF
		sta	AbortFlag
		bra	done

;
; locals
;
bytes		dc.L	0
whichFork	dc.w	0
		ENDP
	
*===============================================*
*		Count Files			*
* - Counts the number of files/folders below	*
*   the current "root".				*
* 						*
* INPUT:	none				*
*						*
* OUTPUT:	carry set on error		*	
*						*
*===============================================*

CountFiles	PROC
		
		IMPORT	PathSubName
		IMPORT	PathAddName
	
		tsc
		sta	StartStack		;remember for recursion
	
		lda	#1			;count the "root"
		sta	FileCount		;initialize counter
		stz	FileCount+2
		jsr	OpenFile		;open the first file
		bcc	cont1
		brl	error

cont1		lda	opStorageType
		cmp	#$000D			;directory file?
		beq	cont2
		cmp	#$000F			;root directory file?
		beq	cont2
		brl	doClose

doOpen		jsr	OpenFile		;open the file
		bcc	cont2
		brl	error	

cont2		ldx	#0			;base <-- 0
		lda	#0			;displacement <-- 0
		jsr	GetDirEntry		;get number of entries
		bcc	cont3
		brl	error
cont3		
		lda	#1
		sta	CurFile			;start at first entry
		lda	dpEntryNum
		sta	EntryCount
		beq	doClose			;no files to check
		clc
		adc	FileCount
		sta	FileCount
		lda	#0
		adc	FileCount+2
		sta	FileCount+2
		
		ldx	FileCount
		lda	FileCount+2
		jsr	DrawItemsLeft
		
while						;loop for each file entry
		ldx	#0			;base <-- 0
		lda	CurFile			;displacement <-- CurFile
		jsr	GetDirEntry
		bcs	error
		
		lda	dpFileType		;don't open regular files
		cmp	#$0F
		bne	contWhile

;		
; Modified to check a directory's privileges before adding it to the list.
; If the directory does not support read access then no need to recurse and
; its entry need not be added to the list.
;
		lda	dpAccess		; get the access word
		lsr	a			; put access bit into carry
		bcs	directory		; carry set means we can read it
		bra	contWhile		; otherwise, skip him
	
;
; first test to see if we can add this file name and make it longer
;
directory	PushLong #C1_FileName
		PushLong #C1_PathName
		jsl	PathAddName
		bcc 	@CanRecurse		; if carry clear then no error

;
; If we execute the following code, its because we can not add the pathname,
; so recursion must now stop!
;
		lda 	#$FFFF			; flag a name too long occured
		sta 	>ANameTooLong
		bra 	contwhile
@CanRecurse
		lda	RefNum			;save for recursion
		pha
		lda	CurFile
		pha
		lda	EntryCount
		pha
		brl	doOpen			;start recursion

contWhile	lda	CurFile			;return from recursion
		cmp	EntryCount
		bcs	doClose			;end of loop
		inc	CurFile
		bra	while
doClose
		lda	RefNum			;close file(refNum)
		jsr	CloseFile
		bcs	error
		tsc				;check for termination
		cmp	StartStack
		beq	done
		PushLong #C1_PathName
		jsl	PathSubName	
		PullWord EntryCount		;data from recursion
		PullWord CurFile
		PullWord RefNum
		bra	contWhile		;continue where we left off

done		clc
exit		rts
	
;
; Bad news, and we are outta here!
;
error		lda	StartStack
		tcs
		sec
		rts
		
		EXPORT	ANameTooLong
ANameTooLong	ds.W 1
		ENDP
	
*===============================================*
*	Open up a file				*
*===============================================*
OpenFile	PROC

		stz	ResourceNumber
		_OpenGS	OpenParams
		bcc	exit
		jsr	GSOSError
		bcc	OpenFile		;try again
exit		rts
		
		ENDP
		
*===============================================*
*	Close up a file				*
*===============================================*
CloseFile	PROC

		sta	cpRefNum		;A-reg has ref number
		
		_CloseGS CloseParams
		bcc	exit
		jsr	GSOSError
		bcc	CloseFile		;try again
exit		rts

		ENDP
		
*===============================================*
*	Read a directory entry			*
*===============================================*
GetDirEntry	PROC

		stx	dpBase			; X-reg has base
		sta	dpDisp			; Y-reg has displacement
		lda	RefNum			; use refnum from OPEN
		sta	dpRefNum
		
		_GetDirEntryGS DirectParams
		bcc	exit
		jsr	GSOSError
		bcc	GetDirEntry		;try again
exit		rts
		
		ENDP
				
*===============================================*
*	Handle a GS/OS error			*
*===============================================*
GSOSError	PROC

		IMPORT	C1_source
		IMPORT	PathGetRoot
		IMPORT	C1_PathNamePtr
		IMPORT	doAlertWindow
		
		cmp	#$45			;volume offline?
		beq	InsertDisk

		jsr	Add1BadFile
		
		sec
		rts

InsertDisk	lda	#rasInsertDiskOrCancel
		jsl	doAlertWindow
		
		pla
		bne	@noskip
		sec
		rts

@noskip		clc
		rts
		ENDP

*===============================================*
*	Draw the guts of a Verify Window	*
*===============================================*

GetVerifyGuts	PROC	EXPORT

		InitFrame

vTemp		Local	Ptr
string		Local	10
yPos		Local	Integer
count		Local	Integer
dataHand	Local	Handle			; handle to our summary data
dataPtr		Local	Ptr			; pointer to our summary data

		IMPORT	HandleToPointer
		IMPORT	UnlockHandle

		EntryCode
;----------------------------------------------
Begin		
		lda	#8
		sta	<yPos
		
		lda	#8
		sta	<string			; set length of Pascal string

		pha				; space for refCon
		pha
		pha				; space for window ptr
		pha
		_GetPort
		_GetWRefCon
		PullLong <vTemp			; pointer to window info block

		ldy	#windUsed
		lda	[<vTemp],y		; get handle to summary data
		sta	<dataHand
		iny
		iny
		lda	[<vTemp],y
		sta	<dataHand+2
		
		pha
		pha
		PushZLong <dataHand
		jsl	HandleToPointer
		PullLong <dataPtr		; pointer to summary data
		
		lda	[<dataPtr]		; header has count of bad blocks
		sta	<count

@loop		lda	<count
		asl	a
		asl	a
		tay

		lda	[<dataPtr],y
		tax
		iny
		iny
		lda	[<dataPtr],y
		pha				; bad block number
		phx
		PushZPtr <string+1		; where to store string
		pea	8			; number of bytes in output string
		pea	0			; unsigned
		_Long2Dec

		pea	10			; horizontal offset
		pei	<yPos			; vertical offset	
		_MoveTo	
		PushZPtr <string
		_DrawString
		
		lda	<yPos
		clc
		adc	#9
		sta	<yPos
		dec	<count
		bne	@loop
		
		PushZLong <dataHand		; unlock summary data handle
		jsl	UnlockHandle
End
;-----------------------------------------------
		ExitCode

		ENDP

*===============================================*
*	Draw the info bar in Verify window	*
*===============================================*

GetVerifyInfo	PROC	EXPORT

		InitFrame

dataHand	Local	Handle			; handle to our summary data
dataPtr		Local	Ptr			; pointer to our summary data
sLen1		Local	Integer
sLen2		Local	Integer
width		Local	Integer

theWindow	Param	Ptr
infoRefCon	Param	Ptr
infoRectPtr	Param	Ptr

		IMPORT	HandleToPointer
		IMPORT	UnlockHandle
		IMPORT	PStringCat
		IMPORT	strBlkNumbers
		IMPORT	strTotal
		IMPORT	tempStrg1
		
		EntryCode
;----------------------------------------------
Begin		
		lda	#5
		sta	>tempStrg1		; set length of Pascal string

		ldy	#x1			; set position of text
		lda	[<infoRectPtr],y
		clc
		adc	#10
		pha				; horizontal offset
		lda	[<infoRectPtr]
		clc
		adc	#8
		pha				; vertical offset
		_MoveTo	
		PushLong #strBlkNumbers
		_DrawString			; draw "Block numbers"
		
		ldy	#windUsed		; get handle to summary data
		lda	[<infoRefCon],y
		sta	<dataHand
		iny
		iny
		lda	[<infoRefCon],y
		sta	<dataHand+2

		pha
		pha
		PushZLong <dataHand
		jsl	HandleToPointer
		PullLong <dataPtr		; pointer to summary data

		lda	[<dataPtr]		; header has count of bad blocks
		pha
		PushLong #tempStrg1+1		; where to store string
		pea	5			; number of bytes in output string
		pea	0			; unsigned
		_Int2Dec

		PushLong #strTotal		; add in "Total"
		PushLong #tempStrg1
		jsl	PStringCat

		ldy	#x2
		lda	[<infoRectPtr],y
		ldy	#x1
		sec
		sbc	[<infoRectPtr],y
		sta	<width			; Info bar's width

		pha
		PushLong #strBlkNumbers
		_StringWidth			
		pla
		sta	<sLen1			; 1st string's width

		pha
		PushLong #tempStrg1
		_StringWidth
		pla
		sta	<sLen2			; 2nd string's width
		clc
		adc	<sLen1
		adc	#40			; space between them
		cmp	<width
		bcc	leftJust
		lda	<sLen1
		clc
		adc	#20
		bra	move
leftJust	lda	<width
		sec
		sbc	<sLen2
		sbc	#10
move
		ldy	#x1			; set position of text
		clc
		adc	[<infoRectPtr],y
		pha				; horizontal offset
		lda	[<infoRectPtr]
		clc
		adc	#8
		pha				; vertical offset
		_MoveTo

		PushLong #tempStrg1
		_DrawString			; draw "12345 total"

		PushZLong <dataHand		; unlock summary data handle
		jsl	UnlockHandle
End
;-----------------------------------------------
		ExitCode
		ENDP

*===============================================*
*	Draw the guts of a Validate Window	*
*===============================================*

GetValidGuts	PROC	EXPORT

vTemp		equ	1			;stack/dp offsets
vCount		equ	vTemp+4
yPos		equ	vCount+2
vHandle		equ	yPos+2

		phb
		phk
		plb
		phd
		
		pha				;temp workspace
		pha
		pha
		pha
		pha
		pha
		
		tsc
		tcd

		lda	#8
		sta	<yPos
		
		pha				;find out which window this is.
		pha
		_GetPort
		pla
		plx
		
		pha				;space for result
		pha
		phx
		pha
		_GetWRefCon
		pla
		sta	<vTemp
		pla
		sta	<vTemp+2

		ldy	#windUsed
		lda	[<vTemp],y		;get pointer to data buffer
		tax
		iny
		iny
		lda	[<vTemp],y
		sta	<vHandle+2
		stx	<vHandle
		
		ldy	#4
		lda	[<vHandle],y
		ora	#$8000
		sta	[<vHandle],y
		
		lda	[<vHandle]
		tax
		ldy	#2
		lda	[<vHandle],y
		sta	<vTemp+2
		stx	<vTemp
		
		lda	[<vTemp]		;header has count of bad blocks
		sta	<vCount
		
		lda	<vTemp
		clc
		adc	#2
		sta	<vTemp
		bcc	@loop
		inc	<vTemp+2

;
; draw all of the bad filenames 1 per every 32 bytes excluding the 2 byte header
;
@loop		pea	10			;horizontal offset
		pei	<yPos			;vertical offset	
		_MoveTo	
		PushZLong <vTemp
		_DrawString


		lda	<vTemp
		clc
		adc	#32
		sta	<vTemp
		bcc	@nr
		inc	<vTemp+2
@nr
		
		lda	<yPos
		clc
		adc	#9
		sta	<yPos
		
		dec	<vCount
		bne	@loop
		
;
; done, we're outta here
;
		ldy	#4
		lda	[<vHandle],y
		and	#$7fff
		sta	[<vHandle],y
		
		pla				;clean up
		pla
		pla
		pla
		pla
		pla

		pld
		plb
		rtl
		ENDP

*===============================================*
*	Draw the info bar in Validate window	*
*===============================================*

GetValidInfo	PROC	EXPORT

		IMPORT	ValidateCountString
		IMPORT	ValidateFileString
		
theWindow	equ	6
infoRefCon	equ	theWindow+4
infoRect	equ	infoRefCon+4


		phd				;setup 
		tsc
		tcd
		phb
		phk
		plb

		ldy	#x1			;Set position of text.
		lda	[<infoRect],y
		clc
		adc	#10
		pha				;horizontal offset
		lda	[<infoRect]
		clc
		adc	#8
		pha				;vertical offset
		_MoveTo	
		PushLong #validateFileString
		_DrawString
	
		ldy	#windUsed
		lda	[<infoRefCon],y
		sta	<theWindow		;use theWindow as scratch space
		iny
		iny
		lda	[<infoRefCon],y
		sta	<theWindow+2

		lda	[<theWindow]
		tax
		ldy	#2
		lda	[<theWindow],y
		sta	<theWindow+2
		stx	<theWindow
		
		lda	[<theWindow]		;header has count of bad blocks
		
		pha				;Number of bad files.
		PushLong #ValidateCountString+1	;where to store string.
		pea	5			;length of output string.
		pea	0			;unsigned.
		_Int2Dec

		ldy	#x2
		lda	[<infoRect],y
		ldy	#x1
		sec
		sbc	[<infoRect],y
		sta	width			;Info bar's width

		pha
		PushLong #validateFileString
		_StringWidth			
		pla
		sta	sLen1			;1st string's width

		pha
		PushLong #validateCountString
		_StringWidth
		pla
		sta	sLen2			;2nd string's width
		clc
		adc	sLen1
		adc	#40			;space between them
		cmp	width
		bcc	leftJust
		lda	sLen1
		clc
		adc	#20
		bra	move
leftJust	lda	width
		sec
		sbc	sLen2
		sbc	#10
move
		ldy	#x1			;Set position of text.
		clc
		adc	[<infoRect],y
		pha				;horizontal offset
		lda	[<infoRect]
		clc
		adc	#8
		pha				;vertical offset
		_MoveTo

		PushLong #validateCountString
		_DrawString
exit
		plb				;Clean up and exit	
		pld
		lda	2,s
		sta	14,s
		lda	0,s
		sta	12,s
		tsc
		clc
		adc	#12
		tcs
		rtl

sLen1		DC.W	0
sLen2		DC.W	0
width		DC.W	0

		ENDP
		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Finder/windowBlk.equ b/IIGS.601.SRC/A.U.G/Finder/windowBlk.equ
new file mode 100644
index 0000000..8a5cb77
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Finder/windowBlk.equ
@@ -0,0 +1 @@
+;
; --- Block pointed to by RefCon (called window's info block) -----------
;
windIcons	equ	0			;Handle of first icon in window.
windID		equ	windIcons+4		;Window's ID number.
windView	equ	windID+2		;0-5, icon, small, name, size, date, kind.
windIc		equ	windView+2		;Handle of ICONOBJ that opened into.
windDiskIc	equ	windIc+4		;Handle of disk icon that originally owns this
						;(the root icon)
windItems	equ	windDiskIc+4		;Number of items in window.
windUsed	equ	windItems+2		;Number of bytes used in window.
windFree	equ	windUsed+4		;Numnber of bytes free on disk.
windFST		equ	windFree+4		;FST ID of this window
windAccess	equ	windFST+2		;AppleShare access bits
windDirty	equ	windAccess+2		;  bit 15 = window's info bar needs to be written back
						;  bits 14-0 are reserved and 0
						;(Icon Info windows have their own uses for windDirty)
windTitle	equ	windDirty+2		;Window's title (padded with spaces).
						;Damaged Files On "", maximum name
windMenuItem	equ	windTitle+54		;Window's menu item #
windMenuText	equ	windMenuItem+2		;Window's title for the menu item
						;Damaged Files On "", maximum name
windDate	equ	windMenuText+52		;Window's date
windPath	equ	windDate+8		;Complete pathname to window.
WINDBLKSIZE	equ	windPath+MaxPathLen
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/GSCalcNDA/BuildEverything b/IIGS.601.SRC/A.U.G/GSCalcNDA/BuildEverything
new file mode 100644
index 0000000..2469554
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/GSCalcNDA/BuildEverything
@@ -0,0 +1 @@
+#
# BuildAll {Parmeters}
#
# This builds the GSCalc.NDA that Dan Hitchens programmed.
#
# All options are passed on the BuildProgram script.
#
##################################################################


# The following code permits this script to be executed from
#   anywhere, and for subsidiary scripts to do anything they
#   want to the directory prefixes without messing up the
#   overall build.
# CRUCIAL ASSUMPTION: All subdirectories containing control panel
#   source are in the directory containing this script file.
# Jim Merritt thanks Jim Mensch for digging up the regular expression
#   in the evaluate command below, and John Dance for supplying
#   a foolproof way for a shellscript to come up with its own full
#   pathname.  Wotta great bunch of guys!

set myparent `files -f {Command}`
(evaluate "{myparent}" =~ /(([Â:]*:)+)¨1[Â:]*/ ) > Dev:Null
set myparent "{¨1}"
IF "{myparent}" == ""
  echo "*** ERROR:  Cannot determine script home directory."
  exit
END


directory {myparent}:
BuildProgram {Parameters} GSCalcNDA


directory {myparent}
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/GSCalcNDA/GSCalcNDA.pii b/IIGS.601.SRC/A.U.G/GSCalcNDA/GSCalcNDA.pii
new file mode 100644
index 0000000..08414bd
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/GSCalcNDA/GSCalcNDA.pii
@@ -0,0 +1 @@
+{ 
------------------------------------------------------------------------------------
REVISION HISTORY

System 6.0

  1.0d19	DDH
	-First official build
  1.0d20	DDH
  	-Changed 'Ok' to 'OK' on dialog button
	-Changed copyright to reflect 1989-90
  1.0d22	DAL (Dave Lyons) 11..13-Dec-90
	-Converted to Max Pascal
	-Added SetOriginMask on the window
	-Removed TML copyright from the about box (we're in Max Pascal now)
	-Sets window background pattern instead of doing a PaintRect at Update time
	-Draws controls in update, never in Activate
	-Doesn't unload tools at NDA Close time
	-SANE direct page is page-aligned and has the NDA's memory ID (not $5A00)
	-now properly shuts down SANE and disposes of handle at DeskShutDown time
	-Apple-W and Apple-w close the NDA
	-Improved timing of hiliting buttons on keyboard operations
	-Cleaned up source code quite a bit
	-Centered the about box and made it fully visible in 320 mode
	-"h" or "H" toggles in and out of Hex mode
	-Apple-c and Apple-x are key equivalents to Copy and Cut (put result onto clipboard)
	-Fixed bug where decimal point would show up inside "INF" and "NaN(00x)" results
	-Beeps twice if we don't have the right system version (QD must be at least 3.7)
	-First attempt at allowing chaining (3 * 2 = = gives 12)
	-The buttons no longer go inactive when the window isn't in front (updates faster)
	- / = is now a reciprocal function (1/x)
  1.0d22	DAL 6-Jan-91
    -Make the Hex key controls have capital letters for their names.
  1.0d23	DAL 17-Jan-91
    -Made the About box really on the screen in 320 mode this time.
	-Changed "NAN" display to read "Not a number".
	-Changed "INF" display to read "Infinity".
	-Hitting "0" after "Clear" no longer beeps.
	-The background is now red in both 640 and 320 now (it was blue in 320 before).
  1.0d24	DAL 27-Jan-91
    -Calls WindowGlobal around the about box to make the main window stay hilited.
  1.0d24	DAL 28-Jan-91
    -Fix the 320-mode About window again.  This time it was off the top of the
	 screen.
  1.0d28    DAL 5-Mar-91
    -Changed the menu name and window title from "GS Calculator" to "Calculator".
  1.0d33	DAL 18-Apr-91
    -Add zoom box to reveal hex keys.  Updates own zoom rectangle during run
	 events!  Z zooms window.
	-This moves coordinates up by $22 for the regular buttons and the display.
	-Move initial window position down by $11 pixels.
	-Changed some SysBeep calls into SysBeep2 calls.
  1.0d35	DAL 5-May-91
    -Moved initialization of calcMode to work correctly on open.
  1.0d40	DAL 17-Jun-91
    -No longer masking off bit 7 of key strokes, so Option-x keys don't do
	 weird stuff any more.
  1.0d41	DAL 23-Jun-91
    -Fixed bug where we would forget we started SANE (or Integer Math) on the
	 second time we are opened.
	-Removed code for loading and starting Integer Math, since it isn't really
	 needed at present.
	-Removed some old crusty I-changed-this-today comments.
	-The about box updates now.
  1.0d43	DAL 4-Jul-91
    -Handle our own window zooming by accepting Action code number 10, instead
	 of kludging our zoom rectangle during Run events.
  1.0d45	DAL 24-Jul-91
    -Set my window's FontFlags to $0004 to allow 16-color text, and set the
	 text background color to yellow around all the display DrawString calls.
  1.0d52	DAL 2-Oct-91
    -Allow Pasting of text.
	-Window opens in same zoom state as last time you closed it.
	-Fixed a mess of bugs where the display would be out of sync with
	 what it would update to, if you forced it to update.
  1.0d53	DAL 11-Oct-91
    -Changed two Rounds to Truncs so that Hex calculations don't round up.
  1.0d55	DAL 25-Oct-91
    -Hitting Clear in Hex mode no longer gives you "0." (which was converting
	 into -2 if you switched to decimal or hit equals).
	-No longer initializes calcMode to decimal on open (mode is preserved).
  1.0d60	DAL 2-Dec-91
    -Cut now does a Clear.
	-Command-V now works reliably for paste.
  1.0d60	DAL 4-Dec-91
    -Changed ScrapStatus to myScrapStatus so I can check _toolErr!
  1.0		DAL 5-Feb-92 (for 6.0d70)
    -Changed version to 1.0, copyright to include 92.
------------------------------------------------------------------------------------
System 6.0.1  

  1.1d12	23-Nov-92 DAL
    -Changed version to 1.1d12.
	-Disables the Undo item in the Edit menu (if it's not there or has a
	 nonstandard item ID, no big loss, nothing happens).
	 
  1-Apr-93 SS -- Changed version to 1.1 (release)
}

UNIT GSCalc;

INTERFACE

USES
	Types, Locator, Memory, MiscTool, QuickDraw, Events, IntMath, SANE, Controls,
    Windows, Menus, Dialogs, Scrap, Desk;

{$Z+} { Export these procedures and functions. These are in the assembly file. }
  FUNCTION NDAOpen: WindowPtr;  
  PROCEDURE NDAClose;  
  FUNCTION NDAAction(code: integer; param: EventRecordPtr): integer;
  PROCEDURE NDAInit(code: integer);
{$Z-}

IMPLEMENTATION

CONST

	windowHeight = 117;
	windowTop    =  50;
	windowBottom = 167;	

	DisplayCol	=  20;
	DisplayRow	=  16;

	Row1		=  26;
	Row2		=  43;
	Row3		=  60;
	Row4		=  77;
	Row5		=  94;

	Column1		=  20;
	Column2		=  60;
	Column3		= 100;
	Column4		= 140;

	Column5		= 200;
	Column6		= 240;

	NumButtons	=  25;

	ctlFlags	=  2;	{ square buttons for most digits }

	Enter		=  13;
	CtrlX		=  24;
	ESC			=  27;

	beepBadKey	=  8;
	beepBadInputValue = 9;
	beepFieldFull = 10;
	beepImpossible = 11;

TYPE
	SysClickRecPtr = ^SysClickRec;
	SysClickRec = RECORD
		result: integer;
		FindWindowValue: integer;
		Window: WindowPtr;
		Event: EventRecordPtr;
	END;

procedure	MakeCtrls;		forward;
procedure	Conv2Dec;		forward;
procedure	Conv2Hex;		forward;
procedure	SwitchCMode;	forward;
procedure	BlankDisplay;	forward;
procedure	ShowResults;	forward;
procedure	ConvertVal;		forward;
procedure	DoFunction(Operator: integer; ChainFlag: boolean); forward;
procedure	DoPlus;			forward;
procedure	DoMinus;		forward;
procedure	DoMultiply;		forward;
procedure	DoDivide;		forward;
procedure	DoEqual;		forward;
procedure	DoHexChrs;		forward;
procedure	DoClear;		forward;
procedure	DoPeriod;		forward;
procedure   DoAbout;		forward;
procedure   CLoadTools;		forward;
procedure   CUnloadTools;	forward;
procedure	DoEditCopy;		forward;
function	DoEditPaste: boolean;	forward;

PROCEDURE mySANEStartUp(dPageAddr:Integer);	INLINE $020AA2,$E1000022;
PROCEDURE mySANEShutDown;					INLINE $030AA2,$E1000022;
FUNCTION  mySANEStatus : Integer;
			INLINE $060AA2,$E1000022,$03B0,$0000A9,$8F,'_toolErr';
FUNCTION  myScrapStatus: Integer;
			INLINE $0616A2,$E1000022,$03B0,$0000A9,$8F,'_toolErr';

procedure debug; inline $0000;

VAR
	myWindOpen:  boolean;
	myWind:	     ParamList;
	myWindPtr:   WindowPtr;

	myWindowTitle: string[20];

	windowZoomed: boolean;
	RectPtrX:	rect;
	Chandle:	array[0..25] of CtlRecHndl;
	DataString:	DecStr;
	DataString2: string;
	IData:		integer;
	theKey, LastKey:	signedbyte;
	NumPeriods:	integer;
	MyLong:		longint;
	MyReal1, MyReal2, ChainConstant: extended;
	OtherKey:	integer;
	CalcMode:	(modeDecimal, modeHex);
	Myrect:		rect;
	Operator, ChainOperator: integer; { operation to perform }
	MinusKey:	integer;
	GotFirstOperand:	boolean;
	ITemp:		integer;
	AppleMenuStr:	Str255;
	WeStartedSANE: boolean;
	ToolZP:			Handle;
	statustool: 	integer;

	btnA, btnB, btnC, btnD, btnE, btnF: String[1];
	btnDec, btnHex, btnClr: String[3];
	btn0, btn1, btn2, btn3, btn4, btn5, btn6, btn7, btn8, btn9, btnDot, btnEqual,
		btnMinus, btnPlus, btnTimes, btnDivide, btnEqual2: String[1];
	btnOK: string[2];


procedure DrawTheWindow;	forward;
procedure DrawTheDisplay;	forward;
procedure ClearAll;			forward;
procedure AddInKey;			forward;


function BadSystemVersion: boolean;
var
	qdVers: integer;
begin
	qdVers := band($0fff,QDVersion);
	BadSystemVersion := (qdVers < $0307);
end;

{ required the port set to my window }
procedure ToggleWindowSize;
var
	r: rect;
	newWidth: integer;
	pt: point;
begin
	GetPortRect(r);
	if r.right < 280 then begin
		newWidth := 292;
		windowZoomed := true;
	end else begin
		newWidth := 198;
		windowZoomed := false;
	end;
	SizeWindow(newWidth,r.bottom,myWindPtr);

	pt.h := 0; pt.v := 0;
	LocalToGlobal(pt);
	if (pt.h + newWidth) < 20 then begin { oops, off left edge! }
		if band(GetMasterSCB,$80)<>0 then pt.h := 50 else pt.h := 14;
		MoveWindow(pt.h,pt.v,myWindPtr);
	end;
end;


function NDAOpen: WindowPtr;
var
	origPort: GrafPortPtr;
begin
	if BadSystemVersion then begin
		NDAOpen := nil;
		SysBeep;
		SysBeep;
		exit(NDAOpen);
	end;

	origPort := GetPort;

	myWindowTitle := ' Calculator ';
	with myWind do begin
		paramLength  := sizeof(ParamList);
		wFrameBits	  := $C188; { zoom box = $0100! }
		wTitle	      := @myWindowTitle;
		wRefCon      := 0;
		wZoom.top    := 0;
		wZoom.left   := 0;
		wZoom.bottom := 0;
		wZoom.right  := 0;
		wColor	     := nil;
		wYOrigin     := 0;
		wXOrigin     := 0;
		wDataH	     := 0;
		wDataW	     := 0;
		wMaxH	     := 0;
		wMaxW	     := 0;
		wScrollVer   := 0;
		wScrollHor   := 0;
		wPageVer     := 0;
		wPageHor     := 0;
		wInfoRefCon  := 0;
		wInfoHeight  := 0;
		wFrameDefProc:= nil;
		wInfoDefProc := nil;
		wContDefProc := nil;
		wPosition.top    := windowTop;
		wPosition.left   := 50;
		wPosition.bottom := windowBottom; { 191; }
		if windowZoomed then
			wPosition.right := 342 { 292+50 }
		else
			wPosition.right := 248 { 50+198 };
		if band(GetMasterSCB,$80)=0 then OffsetRect(wPosition,14-50,0);

		wPlane	   	  := WindowPtr(-1);
		wStorage	  := nil;
	end;

	myWindPtr := NewWindow(myWind);
	SetPort(myWindPtr);
	SetSysWindow(myWindPtr);
	SetFontFlags(4); { allow 16-color text }
	SetOriginMask($fffe,myWindPtr);

	if band(GetMasterSCB,$0080)<>0 then
		SetBackPat(PatternPtr(LongInt(Get640Colors)+4*32)^)  { color 4 in 640 mode = red }
	else
		SetBackPat(PatternPtr(LongInt(Get640Colors)+7*32)^);	{ color 7 in 320 mode = red }

	CLoadTools;

	MakeCtrls; { Make the controls and load tools }

	ShowWindow(myWindPtr);

	DoClear;				{ 13-Dec-90 DAL }
{	CalcMode := modeDecimal; removed 25-Oct-91 DAL }

	ShowResults;

	NDAOpen    := myWindPtr;
	myWindOpen := true;
	SetPort(origPort);
end; { of NDAOpen }


procedure NDAClose;
var Mcount:	integer;
begin
   CloseWindow(myWindPtr);
   myWindOpen := false;
end;


procedure DoKeyDown(param: EventRecordPtr);
var
	theAppleKey: boolean;
begin
	lastKey := theKey;
	theKey := band(LoWord(param^.message),$00ff);
	theAppleKey := band(param^.modifiers,$0100)<>0; { Apple key }

	if theAppleKey then begin
		if (theKey=integer('?')) or (theKey=integer('/')) then begin
			DoAbout;
			exit(DoKeyDown);
		end;
{
		if (theKey=integer('w')) or (theKey=integer('W')) then begin
			CloseNDAByWinPtr(myWindPtr);
			exit(DoKeyDown);
		end;
}
		if (theKey=integer('c')) or (theKey=integer('C')) then begin
			DoEditCopy;
			exit(DoKeyDown);
		end;
		if (theKey=integer('x')) or (theKey=integer('X')) then begin
			DoEditCopy;
			DoClear;
			exit(DoKeyDown);
		end;
		if (theKey=integer('v')) or (theKey=integer('V')) then begin
			if not DoEditPaste then SysBeep2(beepImpossible);
			exit(DoKeyDown);
		end;
		if (theKey=integer('z')) or (theKey=integer('Z')) then begin
			SysBeep2(beepImpossible);
			exit(DoKeyDown);
		end;
		exit(DoKeyDown);
	end;

	{ First check for numbers 0-9 }
	if (theKey>=integer('0')) and (theKey<=integer('9')) then begin
		ITemp := theKey-integer('0');
		HiliteControl(2,CHandle[ITemp]);
		AddInKey;
		HiliteControl(0,CHandle[ITemp]);
		MinusKey := 1;	
		exit(DoKeyDown);
	end; { of 48 to 58 }

	if (theKey>=integer('a')) and (theKey<=integer('f')) then
		theKey := integer(theKey)-32;

	if ((theKey>=integer('A')) and (theKey<=integer('F'))) then begin
		DoHexChrs;
		exit(DoKeyDown);
	end;

	{ Now check for 'Clear' }
	if (theKey=CtrlX) or (theKey=ESC) then begin
		HiliteControl(2,Chandle[16]);
		DoClear;
		HiliteControl(0,Chandle[16]);
		exit(DoKeyDown);
	end;
					
	if theKey=integer('=') then begin
		HiliteControl(2,Chandle[17]);
		DoEqual;
		HiliteControl(0,Chandle[17]);
		exit(DoKeyDown);
	end;

	if theKey=Enter then begin
		HiliteControl(2,Chandle[23]);
		DoEqual;
		HiliteControl(0,Chandle[23]);
{		OtherKey := 1; }
{		theKey := 0;   }
		exit(DoKeyDown);
	end;
			
	if theKey=integer('/') then begin
		HiliteControl(2,Chandle[18]);
		DoDivide;
		HiliteControl(0,Chandle[18]);
		exit(DoKeyDown);
	end;
			
	if theKey=integer('*') then begin
		HiliteControl(2,Chandle[19]);
		DoMultiply;
		HiliteControl(0,Chandle[19]);
		exit(DoKeyDown);
	end;
		
	if theKey=integer('+') then begin
		HiliteControl(2,Chandle[20]);
		DoPlus;
		HiliteControl(0,Chandle[20]);
		exit(DoKeyDown);
	end;
		
	if theKey=integer('-') then begin
		HiliteControl(2,Chandle[21]);
		DoMinus;
		HiliteControl(0,Chandle[21]);
		exit(DoKeyDown);
	end;
		
	if theKey=integer('.') then begin
		HiliteControl(2,Chandle[22]);
		DoPeriod;
		HiliteControl(0,Chandle[22]);
		exit(DoKeyDown);
	end;

	if (theKey=integer('h')) or (theKey=integer('H')) then begin
		SwitchCMode;
		exit(DoKeyDown);
	end;

	if (theKey=integer('z')) or (theKey=integer('Z')) then begin
		ToggleWindowSize;
		exit(DoKeyDown);
	end;

end; { of DoKeyDown }



procedure DoMouseDown(param: EventRecordPtr);
var
	ptx:		integer;
	pty:		integer;
	WhichWin:	integer;
	FoundWin:	WindowPtr;
	I:			integer;
	FoundPart: integer;
	FoundCP:	CtlRecHndl;
	Ptxy:		point;
begin
	lastKey := theKey;
	theKey := 0;

	ptx := param^.where.h;
	pty := param^.where.v;
	WhichWin := FindWindow(FoundWin,ptx,pty);
	WhichWin := band(WhichWin,$7fff);
	if WhichWin = wInContent then begin
		FoundPart := FindControl(FoundCP,ptx,pty,myWindPtr);
		case FoundPart of
			2: begin { 2 is simple button part code }
				for i := 0 to NumButtons do begin
					if FoundCP = CHandle[i] then begin
						if TrackControl(ptx,pty,nil,CHandle[i])=2 then begin
							theKey := integer('0')+i;
							if i>9 then theKey := theKey+7;

							HiliteControl(0,CHandle[i]);						

							if i=22 then theKey := integer('.');
							if i=21 then theKey := integer('-');
							if (i=23) or (i=17) then theKey := integer('=');
							if (i=18) then theKey := integer('/');

							if (i<16) then begin	
								AddInKey;
								OtherKey := 0;
							end;
							{ ### What's going on here?  Are we handling '.' and '-' twice? }
							case i of
								16:DoClear;
								17:DoEqual;
								18:DoDivide;
								19:DoMultiply;
								20:DoPlus;
								21:DoMinus;
								22:DoPeriod;
								23:DoEqual;
								24:SwitchCMode;
								25:SwitchCMode;
							end; { of case }
						end; { of trackcontrol }
					end; { of if CHandle }	
				end; { of for i }
			end; { of case 2 }
		end; { of case FoundPart }

		{ ### should really use GlobalToLocal here--it's possible to slide onto the Apple }
		GetMouse(ptxy);
		ptx := Ptxy.h;
		pty := Ptxy.v;
		if (ptx<18) and (pty>106 ) then DoAbout;
	end; { of if in wInContent }
end; { of mousedown }


{
  DoEditCopy -- put the contents of the display onto the clipboard as a Text scrap,
                if the Scrap Manager is active
}
procedure DoEditCopy;
var
	started: integer;
begin
	{ copy the result onto the clipboard }
	started := myScrapStatus;
	if (_toolErr<>0) or (started=0) then exit(DoEditCopy);

	ZeroScrap;
	PutScrap( integer(DataString2[0]), textScrap, @DataString2[1] );
end;


{
  DoEditPaste -- use the clipboard contents as keyboard input,
  				 return True if successful
}
function DoEditPaste: boolean;
type
	CharArray = packed array[1..65535] of char;
	CharArrayPtr = ^CharArray;
	CharHandle = ^CharArrayPtr;
var
	started: integer;
	i, size: longint;
	theText: CharHandle;
	eventRec: EventRecord;
begin
	DoEditPaste := false; { anticipate failure }
	started := myScrapStatus;
	if (_toolErr<>0) or (started=0) then exit(DoEditPaste);
	size := GetScrapSize(0);
	if (_toolErr<>0) then exit(DoEditPaste);

	eventRec.what := keyDownEvt;
	eventRec.modifiers := 0; { 2-Dec-91 DAL }

	theText := CharHandle(GetScrapHandle(0));
	for i := 1 to size do begin
		eventRec.message := integer(theText^^[i]);
		DoKeyDown(@eventRec);
	end;

	DoEditPaste := true;
end;


function NDAAction(Code: Integer; Param: EventRecordPtr): integer;
var
	currPort:	GrafPortPtr;
	p: SysClickRecPtr;
begin
	NDAAction := 0;
	currPort := GetPort;
	SetPort(GrafPortPtr(myWindPtr));

	case Code of
		eventAction: begin
			Case param^.what of
				updateEvt: begin
					BeginUpdate(myWindPtr);
					DrawTheWindow;
					EndUpdate(myWindPtr);
				end; { of UpdateEvt }
				keyDownEvt, autoKeyEvt:
					DoKeyDown(param);
				mouseDownEvt:
					DoMouseDown(param);
				activateEvt:
					DisableMItem(250); { disable the Undo item }
			end; { of Case What }
		end; { of case eventAction }

		undoAction: begin
			SysBeep2(beepImpossible);
			NDAAction := 1;
		end;

		cutAction: begin
			DoEditCopy;
			DoClear;
			NDAAction := 1;
		end;

		copyAction: begin
			DoEditCopy;
			NDAAction := 1;
		end;

		pasteAction: begin
			NDAAction := 1;
			if not DoEditPaste then
				SysBeep2(beepImpossible);
		end;
		
		clearAction: begin
			DoClear;
			NDAAction := 1;
		end;

		10 { sysClickAction } : begin
			p := SysClickRecPtr(param);
			if p^.findWindowValue = $0017 { wInZoom } then begin
				if TrackZoom(p^.Event^.where.h,p^.Event^.where.v,myWindPtr) then
					ToggleWindowSize;
				p^.result := 1;
			end;
			NDAAction := 0; { doesn't matter }
		end;

	end;
	SetPort(currPort);
end; { of DAAction }


procedure NDAInit(Code: Integer);
begin
   if Code = 0 then begin
      {	A DeskShutDown Call, chk that my window	is closed }
      if myWindOpen then NDAClose;
      CUnLoadTools; {unload the toolset if we loaded it last}
   end else	begin
      {	A DeskStartUp Call }
	  WeStartedSANE := false;
      myWindOpen := false;
   end;
end;


procedure DrawTheWindow;
var
	i: 	integer;
begin
	MoveTo(6,115);  { was 6,149 }
	SetTextMode(4);
	SetForeColor($ffff);
	DrawChar(chr(17));
	SetForeColor(0);
	SetTextMode(0);

	DrawControls(MyWindPtr);
	BlankDisplay; { draw blank display area }
	DrawTheDisplay;
end;



{--------------------------------------------------------------
Name:		MakeCtrls;
Purpose:	To make the button controls
---------------------------------------------------------------}
procedure MakeCtrls;
var
	ll:	integer;
	kk:	ptr;
	myccolor: bttnColors;
	mycptr: ptr;
	hexHilite: integer;  { added 25-Oct-91 DAL }

begin
	if calcMode = modeDecimal then
		hexHilite := $FF02 { dimmed }
	else
		hexHilite := $0002;

	{--Do Buttons--}
	kk := Pointer($00000000); {Button type control}
	mycptr := @myccolor;
	myccolor.bttnOutline := $ffff;
	myccolor.bttnNorBack := $ffff;
	myccolor.bttnSelBack := $ffff;
	myccolor.bttnNorText := $ffff;
	myccolor.bttnSelText := $ffff;
	
	btnA := 'A';
	btnB := 'B';
	btnC := 'C';
	btnD := 'D';
	btnE := 'E';
	btnF := 'F';
	btn0 := '0';
	btn1 := '1';
	btn2 := '2';
	btn3 := '3';
	btn4 := '4';
	btn5 := '5';
	btn6 := '6';
	btn7 := '7';
	btn8 := '8';
	btn9 := '9';
	btnDec := 'Dec';
	btnHex := 'Hex';
	btnClr := 'Clr';
	btnDot := '.';
	btnEqual := '=';
	btnMinus := '-';
	btnPlus := '+';
	btnTimes := '*';
	btnDivide := '/';
	btnEqual2 := '=';
	
	SetRect(RectPtrX,Column5,Row2,0,0);
	Chandle[10] := NewControl(myWindPtr,RectPtrX,@btnA,hexHilite,0,0,100,kk,ll,nil);
	
	SetRect(RectPtrX,Column6,Row2,0,0);
	Chandle[11] := NewControl(myWindPtr,RectPtrX,@btnB,hexHilite,0,0,100,kk,ll,nil);
	
	SetRect(RectPtrX,Column5,Row3,0,0);
	Chandle[12] := NewControl(myWindPtr,RectPtrX,@btnC,hexHilite,0,0,100,kk,ll,nil);
	
	SetRect(RectPtrX,Column6,Row3,0,0);
	Chandle[13] := NewControl(myWindPtr,RectPtrX,@btnD,hexHilite,0,0,100,kk,ll,nil);
	
	SetRect(RectPtrX,Column5,Row4,0,0);
	Chandle[14] := NewControl(myWindPtr,RectPtrX,@btnE,hexHilite,0,0,100,kk,ll,nil);
	
	SetRect(RectPtrX,Column6,Row4,0,0);
	Chandle[15] := NewControl(myWindPtr,RectPtrX,@btnF,hexHilite,0,0,100,kk,ll,nil);
	
	SetRect(RectPtrX,Column5,Row1,Column5+37,Row1+14);
	Chandle[24] := NewControl(myWindPtr,RectPtrX,@btnDec,band($ff00,hexHilite),0,0,100,kk,ll,nil);
	
	SetRect(RectPtrX,Column6,Row1,Column6+37,Row1+14);
	Chandle[25] := NewControl(myWindPtr,RectPtrX,@btnHex,$ff00-band($ff00,hexhilite),0,0,100,kk,ll,nil);

	
	SetRect(RectPtrX,Column1,Row1,Column1+37,Row1+14);
	Chandle[16] := NewControl(myWindPtr,RectPtrX,@btnClr,ctlFlags,0,0,100,kk,ll,nil);
	
	SetRect(RectPtrX,Column2,Row1,0,0);
	Chandle[17] := NewControl(myWindPtr,RectPtrX,@btnEqual,ctlFlags,0,0,100,kk,ll,nil);
	
	SetRect(RectPtrX,Column3,Row1,0,0);
	Chandle[18] := NewControl(myWindPtr,RectPtrX,@btnDivide,ctlFlags,0,0,100,kk,ll,nil);
	
	SetRect(RectPtrX,Column4,Row1,0,0);
	Chandle[19] := NewControl(myWindPtr,RectPtrX,@btnTimes,ctlFlags,0,0,100,kk,ll,nil);
	
	SetRect(RectPtrX,Column1,Row2,0,0);
	Chandle[7] := NewControl(myWindPtr,RectPtrX,@btn7,ctlFlags,0,0,100,kk,ll,nil);
	
	SetRect(RectPtrX,Column2,Row2,0,0);
	Chandle[8] := NewControl(myWindPtr,RectPtrX,@btn8,ctlFlags,0,0,100,kk,ll,nil);
	
	SetRect(RectPtrX,Column3,Row2,0,0);
	Chandle[9] := NewControl(myWindPtr,RectPtrX,@btn9,ctlFlags,0,0,100,kk,ll,nil);
	
	SetRect(RectPtrX,Column4,Row2,0,0);
	Chandle[20] := NewControl(myWindPtr,RectPtrX,@btnPlus,ctlFlags,0,0,100,kk,ll,nil);
	
	SetRect(RectPtrX,Column1,Row3,0,0);
	Chandle[4] := NewControl(myWindPtr,RectPtrX,@btn4,ctlFlags,0,0,100,kk,ll,nil);
	
	SetRect(RectPtrX,Column2,Row3,0,0);
	Chandle[5] := NewControl(myWindPtr,RectPtrX,@btn5,ctlFlags,0,0,100,kk,ll,nil);
	
	SetRect(RectPtrX,Column3,Row3,0,0);
	Chandle[6] := NewControl(myWindPtr,RectPtrX,@btn6,ctlFlags,0,0,100,kk,ll,nil);
	
	SetRect(RectPtrX,Column4,Row3,0,0);
	Chandle[21] := NewControl(myWindPtr,RectPtrX,@btnMinus,ctlFlags,0,0,100,kk,ll,nil);
	
	SetRect(RectPtrX,Column1,Row4,0,0);
	Chandle[1] := NewControl(myWindPtr,RectPtrX,@btn1,ctlFlags,0,0,100,kk,ll,nil);
	
	SetRect(RectPtrX,Column2,Row4,0,0);
	Chandle[2] := NewControl(myWindPtr,RectPtrX,@btn2,ctlFlags,0,0,100,kk,ll,nil);
	
	SetRect(RectPtrX,Column3,Row4,0,0);
	Chandle[3] := NewControl(myWindPtr,RectPtrX,@btn3,ctlFlags,0,0,100,kk,ll,nil);
	
	SetRect(RectPtrX,Column1,Row5,Column1+77,Row5+14);
	Chandle[0] := NewControl(myWindPtr,RectPtrX,@btn0,ctlFlags,0,0,100,kk,ll,nil);
	
	SetRect(RectPtrX,Column3,Row5,Column3+38,Row5+14);
	Chandle[22] := NewControl(myWindPtr,RectPtrX,@btnDot,ctlFlags,0,0,100,kk,ll,nil);
	
	SetRect(RectPtrX,Column4,Row4,Column4+38,Row5+14);
	Chandle[23] := NewControl(myWindPtr,RectPtrX,@btnEqual2,ctlFlags,0,0,100,kk,ll,nil);
end;


procedure AddInKey;
	label 100;
var
	KeysMax: integer;
begin
	if CalcMode=modeDecimal then
		keysmax := 19
	else
		keysmax := 8;

	if OtherKey<>0 then begin
		BlankDisplay;
		OtherKey := 0;
		IData := 0;
		NumPeriods := 0;
	end;

	if theKey=integer('.') then NumPeriods := 1;
		
	if IData<Keysmax then begin
		if (theKey=integer('0')) and (DataString='0') then begin
			{ MoveTo(167,DisplayRow); }
			goto 100;
		end else begin
		    IData := IData+1;
		    DataString[0] := Chr(IData);
	    	DataString[IData] := Chr(theKey);
	    end;

{
		if NumPeriods=0 then
			moveto(175-(8*IData),DisplayRow)
		else
	   		moveto(178-(8*IData),DisplayRow);
}
100:	MoveTo(175-StringWidth(DataString),DisplayRow);

{100:}	SetBackColor($eeee);
		DrawString(DataString);
		SetBackColor($ffff);
		DataString2 := DataString; { DAL 13-Dec-90 ### }
	end else
		SysBeep2(beepFieldFull);
end; { of AddInKey }


Procedure ClearAll;
var
	ii:	integer;
	BlankString: string;
begin
	IData := 0;
	NumPeriods := 0;
	MyReal1 := 0.0;
	MyReal2 := 0.0;	
	DataString[0] := Chr(IData);
	MinusKey := 0;
	MyLong := 0;
	GotFirstOperand := false;
	OtherKey := 0;
	BlankDisplay;
end; { of procedure ClearAll }


Procedure BlankDisplay;
begin
	SetRect(myRect,DisplayCol-10,DisplayRow-10,DisplayCol+167,DisplayRow+4);
	Set640Color(14);
	SetBackColor($eeee);
	PaintRRect(myrect,15,15);
	if CalcMode=modeHex then begin
		MoveTo(DisplayCol,DisplayRow);
	    DrawString('Hex:');
	end;
	SetBackColor($ffff);
end;


procedure DrawTheDisplay;
begin
	If CalcMode=modeDecimal then
{		MoveTo(182-(8*ord(DataString2[0])),DisplayRow) {+9}
		MoveTo(175-StringWidth(DataString2),DisplayRow) { 2-Oct-91 DAL }
	else
		MoveTo(175-(8*ord(DataString2[0])),DisplayRow);
	SetBackColor($eeee);
	DrawString(DataString2);
	SetBackColor($ffff);
end;


{ Input to ShowResults = MyReal2 }

procedure ShowResults;
	label 700,800,900;
var
	power: 	integer;
	i:	integer;
	j:	integer;
	theFormat: decform;
begin
	BlankDisplay;
	if CalcMode=modeDecimal then begin
		theFormat.style := FLOATDECIMAL;
		theFormat.digits := 10;
		Num2Str(theFormat, MyReal2, DataString);
	end else begin
		MyLong := Trunc(MyReal2);
		Conv2Hex;
	end;

	DataString2 := DataString;	    	
	if CalcMode=modeDecimal then begin {if decimal mode}

		if(ord(DataString[0])=4) then begin
			DataString2 := 'Infinity';
			goto 900;
		end;
		if(ord(DataString[0])=9) then begin
			DataString2 := 'Not a number';
			goto 900;
		end;

		{First determine power value}
		if ord(DataString[0]) > 15 then goto 900;
		power := ord(DataString[15])-48;
		if DataString[14] = '-' then power := -power;
		if (power>9) or (power<-9) then goto 900;
		if power >= 0 then begin
			for i := 4 to 3+power do DataString2[i-1] := DataString2[i];
			DataString2[3+power] := '.';
			DataString2[0] := chr(12);
			for i := 1 to 12 do begin
				if DataString2[13-i]<>'0' then goto 800;
				end; { of do }
			800:DataString2[0] := chr(13-i);
		end {of power>=0} else begin {of power <0}
			DataString2[2] := '.';
			j := 2;
			if power<>-1 then begin
				{add in front zeros}
				for i := 1 to -power-1 do begin
					j := j+1;
					DataString2[j] := '0';
					end; { of do }
				end; { of power<>-1 }
				j := j+1;
				DataString2[j] := DataString[2]; { leading decimal }
				for i := 1 to 9 do begin
					j := j+1;
					DataString2[j] := DataString[3+i];
					end; { of do 1,9 }
				for i := 1 to 9 do begin
					if DataString2[j]='0' then j := j-1 else
						goto 700;
					end; { of do 1,9 }
				700:DataString2[0] := chr(j);		
		end; { of power<0 }
	end; { of other display mode }

900: DrawTheDisplay;

	OtherKey := 1;
 end;    		


procedure SwitchCMode;
var
	i:	integer;
begin
	if CalcMode=modeHex then begin {if Hex mode}
		for i := 10 to 15 do HiliteControl(255,CHandle[i]);
		HiliteControl(255,CHandle[24]);
		HiliteControl(0,CHandle[25]);
		Conv2Dec; { convert to decimal }
		MyReal2 := MyLong;
		CalcMode := modeDecimal;
		SetFontFlags(4);
		BlankDisplay;
		ShowResults;
		OtherKey := 1; { 2-Oct-91 DAL }
	end else begin {if Decimal mode}
		for i := 10 to 15 do
			HiliteControl(0,CHandle[i]);
		HiliteControl(0,CHandle[24]);
		HiliteControl(255,CHandle[25]);
		CalcMode := modeHex;
		SetFontFlags(6); { monospaced flag since "E" and "F" }
		{first convert to real}
		
		MyReal2 := Str2Num(DataString);
		
		{now convert to integer}
		MyLong := Trunc(MyReal2);
		BlankDisplay;
		Conv2Hex;
		OtherKey := 1;  { 2-Oct-91 DAL }
		MoveTo(175-StringWidth(DataString),DisplayRow);
		SetBackColor($eeee);
		DrawString(DataString);
		DataString2 := DataString;
		SetBackColor($ffff);
	end; { of decimal mode }
end;


procedure Conv2Hex;
var
	i, j, k, l:	integer;
	XLong:		longint;
	divResult:	LongDivRec;
begin
	XLong := MyLong;
	datastring[0] := chr(8);
	i := 8;
	for l := 1 to 8 do begin
		k := band($000f,LoWord(XLong));
		if K>9 then k := k + 7;
		datastring[i] := chr(k+48);
		{ XLong := XLong div 16; }
		divResult := LongDivide(XLong,$10);
		XLong := divResult.quotient;
		i := i - 1;
	end; { of for }
end;


procedure Conv2Dec;
var
	k:	integer;
	n:	integer;
	m:	integer;
begin
	MyLong := 0;
	m := ord(datastring[0]);
	for k := 1 to m do begin
		n := ord(datastring[k]);
		if datastring[k]>chr(71) then n := n - 32;
		if datastring[k]>chr(57) then n := n - 7;
		n := n - 48;
		MyLong := 16 * MyLong + n;
	end;
end; { of Conv2Dec }


PROCEDURE ConvertVal;
begin
	if CalcMode=modeDecimal then
		MyReal2 := Str2Num(DataString)
	else begin
		Conv2dec;
		MyReal2 := MyLong;
	end;
end;


procedure DoFunction(Operator: integer; ChainFlag: boolean);
begin
	if OtherKey=0 then begin
		MyReal1 := MyReal2;
		if ChainFlag then
			MyReal2 := ChainConstant
		else begin
			ConvertVal;
			ChainConstant := MyReal2;
		end;

		if GotFirstOperand then begin	    		
			case Operator of
				21:  MyReal2 := MyReal1 - MyReal2;
				20:  MyReal2 := MyReal1 + MyReal2;
				19:  MyReal2 := MyReal1 * MyReal2;
				18:  MyReal2 := MyReal1 / MyReal2;
			end;
		end;
		ShowResults;
		GotFirstOperand := true;
		NumPeriods := 0;  { added 2-Oct-91 DAL }
	end;
	OtherKey := 1;
end;


Procedure DoHexChrs;
begin
	if CalcMode=modeHex then begin {if in Hex mode}
		ITemp := theKey-55;
		if ITemp>15 then ITemp := ITemp-32;
		HiliteControl(2,CHandle[ITemp]);
		AddInKey;
		HiliteControl(0,CHandle[ITemp]);
	end else
		SysBeep2(beepBadKey);
end;


procedure DoClear;
begin
	ClearAll;
	if calcMode = modeDecimal then
		DataString := '0.'
	else
		DataString := '00000000';
	DataString2 := DataString;
	MoveTo(175-StringWidth(DataString),DisplayRow);
	SetBackColor($eeee);
	DrawString(DataString);
	SetBackColor($ffff);
		
	Operator := 0;
	GotFirstOperand := true;
	OtherKey := 1;
	ChainConstant := 0.0;
	ChainOperator := 0;
	
	theKey := 0;
end;


procedure DoEqual;
begin
	OtherKey := 0;

	if (LastKey=integer('=')) or (LastKey=Enter) then begin
		DoFunction(ChainOperator,true)
	end else begin

		if LastKey=integer('/') then begin
			MyReal2 := 1.0;
		end;
		
		ChainOperator := Operator;
		DoFunction(Operator,false);
		Operator := 0;

	end;

	GotFirstOperand := true;
	OtherKey := 1;
end;


procedure DoDivide;
begin
	DoFunction(Operator,false);
	Operator := 18;
end;


procedure DoMultiply;
begin
	DoFunction(Operator,false);
	Operator := 19;
end;


procedure DoPlus;
begin
	DoFunction(Operator,false);
	Operator := 20;
end;


procedure DoMinus;
begin
	DoFunction(Operator,false);
	Operator := 21;

	{ What's this stuff? --DAL }
	{if OtherKey=1 then begin
		if MinusKey=0 then begin
			OtherKey := 1;
			AddInKey;
			MinusKey := 1;
		
		end else begin
		Operator := 21;
			OtherKey := 1;
			MinusKey := 0;
			DoFunction(Operator,false);
		end;
		end
	 else begin
			Operator := 21;
			OtherKey := 1;
			MinusKey := 0;
			DoFunction(Operator,false);
			end;}
end;


procedure DoPeriod;
begin
	if (CalcMode=modeDecimal) and (NumPeriods=0) then
		AddInKey
	else
		SysBeep2(beepBadKey);
	NumPeriods := 1;
end;


procedure myTextItem(theDialog: ptr; theItem: integer);
begin
	MoveTo(10,14);  DrawString('Calculator');
	MoveTo(10,18);  Line(215,0);

	MoveTo(10,30);  DrawString('Programmed by Dan Hitchens');
	MoveTo(10,41);	DrawString('and Dave Lyons');

	MoveTo(10,52);  DrawString('Version 1.1');
	MoveTo(10,56);  Line(215,0);

	MoveTo(10,69);  DrawString('Copyright 1989-93');
	MoveTo(10,79);  DrawString('Apple Computer, Inc.');
	MoveTo(10,84);  Line(215,0);
end;

procedure DoAbout;
var
	aboutDlog: DialogPtr;
	r:		   Rect;
	itemHit:   Integer;
	dummy:	   integer;
begin
	dummy := WindowGlobal(1);

	SetRect(r,0,0,240,125);
	if band(GetMasterSCB,$0080)=0 then
		OffsetRect(r,(320-240) div 2,30)  { 320 mode }
	else
		OffsetRect(r,(640-240) div 2,30); { 640 mode }

	aboutDlog := NewModalDialog(r,true,0);
	SetPort(aboutDlog);
	
	btnOK := 'OK';
	SetRect(r,175,105,0,0);
	NewDItem(aboutDlog,1,r,10,@btnOK,0,0,nil);
	SetRect(r,0,0,200,100);
	NewDItem(aboutDlog,2,r,$8014{userItem},@myTextItem,0,0,nil);

	itemHit := ModalDialog(nil);

	CloseDialog(aboutDlog);
	
	dummy := WindowGlobal($fffe);
	
end;


Procedure CLoadTools;
begin
	{ Load SANE if it isn't here }
	StatusTool := integer(mySANEStatus);  if _toolErr<>0 then StatusTool := 0;

	if StatusTool=0 then begin
		LoadOneTool(10,$300);
		ToolZP := NewHandle(256,MMStartUp,$c015,nil);
		MyLong := Ord4(ToolZP^);
		StatusTool := LoWord(MyLong);
		mySANEStartup(StatusTool);	
		WeStartedSANE := true;
	end;
end;


Procedure CUnloadTools;
begin
	if WeStartedSANE then begin
		mySANEShutdown;
		DisposeHandle(ToolZP);
		UnloadOneTool(10);
		WeStartedSANE := false;
	end;
end;

end.
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/GSCalcNDA/NDAHeader.aii b/IIGS.601.SRC/A.U.G/GSCalcNDA/NDAHeader.aii
new file mode 100644
index 0000000..582a6a2
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/GSCalcNDA/NDAHeader.aii
@@ -0,0 +1 @@
+*******************************************************************************
*
* GS Calculator NDA header
* Based on DTS sample code MAX Pascal NDA header
*
* Copyright 1990-1991 Apple Computer, Inc
* All Rights Reserved
*
*******************************************************************************
*
* xx-xxx-90 Dave Lyons
*   Ported Dan Hitchens' TML Pascal source to MAX Pascal.
*
* 5-Mar-91 DAL
*   Changed the menu name of this NDA from "GS Calculator" to "Calculator"
*
*******************************************************************************
*
* Developer Technical Support Sample Code
*
* This is a simple standard header for MPWIIGS Pascal NDAs.  It must be linked
* first to the Pascal NDA code.
*
* Stack Note: This header cannot be used with NDAs that require large amounts
*             of stack space.  The NDA will share the application's stack.
*
* SANE Note:  If your NDA is using any real data types (i.e., real, single,
*             double, extended, comp, or computational types) or if you are
*             using any built in procedures or functions that support real
*             data types (i.e., Readln, Writeln, Trunc, Round, etc.), you
*             cannot use this header with your NDA.
*
* Three lines in this header should be changed before you build your NDA.
* The three lines are labeled NDAPeriod, NDAEventMask and NDAMenuLine.
* See the Apple IIGS Toolbox Reference: Volume 1 for information on the
* values of these three parameters.
*
* The Pascal NDA must have two procedures (NDAClose and NDAInit) and
* two functions (NDAOpen and NDAAction).  These procedures and functions must
* be identified to the linker as external with the $Z+ compiler directive.
*
* The required functions and procedures (NDAOpen, NDAClose, NDAAction and
* NDAInit) are described the Desk Manager chapter of the Apple IIGS Toolbox
* Reference: Volume 1.  Here is the description of how they must be declared
* and used in your Pascal NDA:
*
*****
* The NDAOpen Function
*
* Syntax:  FUNCTION NDAOpen: WindowPtr;
*
* The NDAOpen function is called when the NDA is selected from the Apple
* menu.  NDAOpen returns a pointer to the NDA's window.
*
*****
* The NDAClose Procedure
*
* Syntax:  PROCEDURE NDAClose;
*
* The NDAClose procedure has no inputs or outputs and must be able to work
* even if the desk accessory is not open.
*
*****
* The NDAAction Function
*
* Syntax:  FUNCTION NDAAction(code: Integer;
*                             evntRecPtr: EventRecordPtr): integer;
*
* The NDAAction function is called whenever there is an action or event the
* NDA needs to handle.  The action code is passed in the code variable.  If the
* code is eventAction, the the variable evntRecPtr is a pointer to the event
* record.  NDAAction returns a integer indicating whether the edit Action
* commands (undoAction, cutAction, copyAction, pasteAction, clearAction) were
* handled (non-zero = NDA handled edit Action).
*
*****
* The NDAInit Procedure
*
* Syntax:  PROCEDURE NDAInit(code: Integer);
*
* The NDAInit procedure is called every time DeskStartUp or DeskShutDown is
* called.  The code variable indicates which call was made.  A zero value
* indicates a DeskShutDown call; a non-zero value indicates a DeskStartUp
* call.
*
*******************************************************************************

                    CASE OBJ
                    
NDAHEADER           PROC EXPORT

; Procedures and Functions in UPPER case
                    IMPORT NDAOPEN,NDACLOSE,NDAACTION,NDAINIT

                    dc.l NDAOPEN        ; Pointer to the open routine
                    dc.l NDACLOSE       ; Pointer to the close routine
                    dc.l AsmAction      ; Pointer to the action routine glue
                    dc.l AsmInit        ; Pointer to the init routine glue
NDAPeriod           dc.w $FFFF          ; How often the NDA gets run actions (never)
NDAEventMask        dc.w $AFFF          ; Describes what events the NDA wants
                    dc.b '**'           ; two place-holding characters
NDAMenuLine         dc.b 'Calculator'
                    dc.b '\H**'         ; \H and two place-holding characters
                    dc.b 0              ; The menu item string terminator
                    
AsmAction           pha                 ; reserve space for integer result
                    pha                 ; push the action code
                    phy                 ; push high word of event record addr
                    phx                 ; push low word of event record addr
                    jsl NDAACTION       ; call the action routine
                    pla                 ; get the integer result
                    rtl                 ; and return
                    
AsmInit             pha                 ; push the init code
                    jsl NDAINIT         ; call the init routine
                    rtl                 ; and return

                    ENDP

                    END
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/GSCalcNDA/Release Notes.GSCalcNDA b/IIGS.601.SRC/A.U.G/GSCalcNDA/Release Notes.GSCalcNDA
new file mode 100644
index 0000000..cfcce36
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/GSCalcNDA/Release Notes.GSCalcNDA	
@@ -0,0 +1 @@
+GSCalc PROJECT 6.0d19
Dan Hitchens x43117

OVERVIEW:
This is the initial build of the GS Calculator.
 
MISCELLANEOUS CHANGES:
	None
	
BRC BUG FIXES:
	None
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/GSCalcNDA/makefile b/IIGS.601.SRC/A.U.G/GSCalcNDA/makefile
new file mode 100644
index 0000000..592ecc0
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/GSCalcNDA/makefile
@@ -0,0 +1 @@
+App	=	GSCalc.NDA

Objects	=	NDAHeader.aii.obj	¶
		GSCalcNDA.pii.obj


{App} ÄÄ {Objects}
	linkiigs	-t NDA		¶
		{Objects}		¶
		-lib "{PIIGSLibraries}"PLib ¶
		-o {App}
#	DuplicateIIGS -y -mac "{App}" "{App}"
	if {AutoDuplicate} == 1
		DuplicateIIGS -y -mac GSCalc.NDA Calculator
	End


.aii.obj Ä .aii
	AsmIIGS  {default}.aii 

.pii.obj Ä .pii 
	#Always use the -r option when creating a desk accessory
	PascalIIGS  -r {default}.pii


#
#.pii.aii.obj	Ä	.pii	
#	TMLPascal {default}.pii
#	asmiigs {default}.pii.aii
#
#.usym		Ä	.pii
#	TMLPascal {default}.pii
#
#.aii.obj		Ä	.aii
#	asmiigs {default}.aii
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Installer/Data.asm b/IIGS.601.SRC/A.U.G/Installer/Data.asm
new file mode 100644
index 0000000..ddac655
Binary files /dev/null and b/IIGS.601.SRC/A.U.G/Installer/Data.asm differ
diff --git a/IIGS.601.SRC/A.U.G/Installer/Install.asm b/IIGS.601.SRC/A.U.G/Installer/Install.asm
new file mode 100644
index 0000000..0d30419
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Installer/Install.asm
@@ -0,0 +1 @@
+* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
*			                  *
*      A P P L E   I I g s   I N S T A L L E R   P R O G R A M   V  2 . 0     *
*                                                                             *
*                              by "Jay" Schaffer                              *
*                               and  Ron Lichty                               *
*			                  *
*  Copyright Apple Computer, Inc. 1987-1991              All Rights Reserved  *
*			                  *
* * * * * * * * * *	* * * * * * * * * *	* * * * * * * * * *	* * * * * * * * * *
*
* NOTE:  External routines, which may be located in another bank, must be sure
*        they set the proper bank register values or use long addressing as
*        needed.
*
* * * * * * * * * *	* * * * * * * * * *	* * * * * * * * * *	* * * * * * * * * *
	Print Push
	Print Off
	Include 'Installer.Equates'
	include 'Installer.Records'
	Print Pop

	Seg 'Install'
	SegAttr Dynamic
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
; After compaction, the SuperScript will consist of a series of file
; specification fields, each separated by the Field Separation Character.
; Format of each field is as follows:
;
;    00-01       02-03     04-07       08-09          0A-0B	    0C-0F
; [FlagsWord] [FileType] [AuxType] [CreationDate] [CreationTime] [SourceSize]
; <LengthWord>[Full SourcePathname]       ¥Ê¥Ê¥ ¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥
; <LengthWord>[Full DestinationPathname]  ¥ÊNOTE:StandardUpdate script uses ¥
; <FieldSeparatorChar>                    ¥   partial destination pathname  ¥
;		  ¥   relying on system prefix for  ¥
;		  ¥   the destination volume name.  ¥
; Format of the FlagWord is as follows:   ¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥
;                                              (D) (U) (F) (C) (B)
; _15__14__13__12__11__10__09__08__07__06__05__04__03__02__01__00_
; \      /\                                  /  |   |   |   |   |
;  \    /  \ - - -   R e s e r v e d  - - - /   |   |   |   |   |
;   \  /                                        |   |   |   |   |
;    \/   Delete if file's Creation date/time   |   |   |   |   |
;    \/     is earlier than FileSpec date/time -    |   |   |   |
;    \/		            |   |	|   |
;    \/       Update only if destination exists ----    |	|   |
;    \/		                |	|   |
;    \/     FileType/AuxType must match	source file ----	|   |
;    \/			|   |
;    \/       Creation date/time must match source file ----    |
;    \/			    |
;    \/	   File is boot code for blocks 0 and 1	----
;    \/
;(1) 00 = INSTALL -	delete and copy, REMOVE - delete
;
;(2) 01 = INSTALL -	delete and copy, REMOVE - ignore
;
;(3) 10 = INSTALL -	delete only,     REMOVE - delete
;
;(4) 11 = INSTALL -	delete only,     REMOVE - ignore
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
*
* Equates used throughout the Install and Remove routines.
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

FlagsWord	equ $00	; Offsets to entries in FileSpecField
FileTypeWord	equ $02
AuxTypeLWord	equ $04
CreationDate	equ $08
CreationTime	equ $0A
SourceSize	equ $0C
Pathnames	equ $10

FieldSeparator	equ '~'	; FileSpec field separator character
CommentChar	equ '*'	; Character that designates a comment

Flag1	equ %0000000000000000
Flag2	equ %0100000000000000
Flag3	equ %1000000000000000
Flag4	equ %1100000000000000
FlagB	equ %0000000000000001
FlagC	equ %0000000000000010
FlagF	equ %0000000000000100
FlagU	equ %0000000000001000
FlagD	equ %0000000000010000

BootCodeSize	equ 1024


; Equates associated with the header of a LoadFile

ByteCnt	equ $00	; Segment size (longWord)
Length	equ $08	; Memory requirement (longWord)
DispName	equ $28	; Offset to LoadName (Word)
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
InstallRemoveData	Proc
*
* Description:	Data used by the Install and Remove routines.
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
	Entry RemoveFlag
RemoveFlag	ds.w 1	; Hi-bit set = REMOVE pressed
	Entry FreeSpace
FreeSpace	ds.l 1	; Free Space on destination volume
	Entry TotalBlocksForInstall
TotalBlocksForInstall ds.l 1	; ThermoDial's maximum value
	Entry OldMemSize	; Size of memory containing already
OldMemSize	ds.l 1	;  compacted scripts.
	Entry ReadBufEnd
ReadBufEnd	ds.l 1	; Address of end of	ReadBuffer
	Entry ScriptSize
ScriptSize	ds.l 1	; Size of individual script
	Entry ScriptFlag
ScriptFlag	ds.w 1	; Storage for the ScriptFlag word

	Entry ExecFlag
ExecFlag	ds.w 1	; Set if a script has actually executed

; GS/OS Parameter tables

	Entry OpenParms
	Entry OpenSParms
OpenParms
OpenSParms	dc.w 0002	; OPEN parms for the source file
	Entry OpenRefNum
	Entry OpenSRefNum
OpenRefNum
OpenSRefNum	ds.w 1	; Reference number
	Entry OpenPath
	Entry OpenSPath
OpenPath
OpenSPath	ds.l 1	; Pathname pointer

	Entry OpenDParms
OpenDParms	dc.w 0002	; OPEN parms for the destination file
	Entry OpenDRefNum
OpenDRefNum	ds.w 1	; Reference number
	Entry OpenDPath
OpenDPath	ds.l 1	; Pathname pointer

	Entry ReadParms
ReadParms	dc.w 0004	; pCount
	Entry ReadRefNum
ReadRefNum	ds.w 1	; Reference number
	Entry ReadBuffer
ReadBuffer	ds.l 1	; Data buffer
	Entry ReadRequest
ReadRequest	ds.l 1	; Request count
	Entry ReadTransfer
ReadTransfer	ds.l 1	; Transfer count

	Entry CloseParms
CloseParms	dc.w 0001	; pCount
	Entry CloseRefNum
CloseRefNum	ds.w 1	; Reference number

	Entry GetInfoParms
GetInfoParms	dc.w 0012	; pCount
	Entry GetInfoPath
GetInfoPath	ds.l 1	; Pathname pointer
	Entry GetInfoAccess
GetInfoAccess	ds.w 1	; Access
	Entry GetInfoFileType
GetInfoFileType	ds.w 1	; File type
	Entry GetInfoAuxType
GetInfoAuxType	ds.l 1	; Aux type (on file name)
	ds.w 1	; Storage type
	Entry GetInfoCreation
GetInfoCreation	ds.l 2	; Creation date and time
	ds.l 2	; Modification date	and time
	dc.l 00000000	; Option List
	Entry GetInfoEOF
GetInfoEOF	ds.l 1	; End of file
	Entry GetInfoUsed
GetInfoUsed	ds.l 1	; Blocks used (total on volume name)
	Entry GetInfoResEOF
GetInfoResEOF	ds.l 1	; Resource end of file
	Entry GetInfoResUsed
GetInfoResUsed	ds.l 1	; Resource blocks used

	Entry GetInfoDate1
GetInfoDate1	ds.w 1	; ProDOS format creation date
	Entry GetInfoTime1
GetInfoTime1	ds.w 1	; ProDOS format creation time

	Entry GetEOFParms
GetEOFParms	dc.w 0002	; pCount
	Entry GetEOFRefNum
GetEOFRefNum	ds.w 1	; Reference number
	Entry GetEOFEOF
GetEOFEOF	ds.l 1	; End-of-file value

	Entry GetLevelParms
GetLevelParms	dc.w 0002	; pCount
	dc.w 0000	; level
	dc.w 0000	; level_mode

	Entry ExpandPathParms
ExpandPathParms	dc.w 0003	; pCount
	Entry ExpandInputPath
ExpandInputPath	ds.l 1	; inputPath
	Entry ExpandOutputPath
ExpandOutputPath	ds.l 1	; outputPath
	dc.w 0	; not upper case
	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
CurFileInfo	Proc
*
* Description:	Temporary location of the data during compaction
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

	Entry ThisFlagWord
ThisFlagWord	ds.w 1
	Entry ThisFileType
ThisFileType	ds.w 1
	Entry ThisAuxFileType
ThisAuxFileType	ds.l 1
	Entry ThisFileDate
ThisFileDate	ds.l 1
	Entry ThisSrcSize
ThisSrcSize	ds.l 1
	Entry EndOfThisData
EndOfThisData

	Entry NoMoreFileSpecs
NoMoreFileSpecs	ds.w 1
	Entry NumberOfFileSpecs
NumberOfFileSpecs	ds.w 1
	Entry ScriptParentLevel
ScriptParentLevel	ds.w 1
	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
StandardUpdateSub	Proc Export
*
* Description:	This is the entry point when the "Easy (Standard) Update"
*	button is pressed.  It loads a special "invisible" script
*	into memory, makes some determinations about the system
*	disk drives and the System:Start file and then patches
*	the script before executing it.
*
* Inputs:	none
*
* Outputs:	cFlag clear: No errors.
*
*	cFlag set:   A-reg contains error code which has been
*	             reported to the user.
*
* External Refs:
	Import Error	; From MainSub.asm
*
	Import MyID	; From Data.asm
	Import UpdateFlag
*
	Import CalcAndCopy
	Import CloseMsgWindow
	Import Dereference
	Import DoneMessage
	Import InstallRemoveData ;<---¥¥¥¥¥
	Import OpenInstMsgWdw
	Import ReadParms
	Import RestoreLevel
	Import Setup
	Import EliminateDuplicates	;(ELC 12/3/91)
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

	phb	; Preserve callers b-reg
	phk	;  and set our's
	plb

; Load the Standard Update script into memory.

BeginStdUpdate	pha	; Space for result
	pha
	pea rStdUpdateScript ; resourceType
	pea StdUpdateScriptID>>16 ; resourceID
	pea |StdUpdateScriptID
	ldx #LoadResource
	jsl ToolLocator
	plx
	ply
	bcc ExecuteScript

	lda #$0090	; Oops couldn't load the script
ReportError	jsl Error

	pha	; Save error code
	php	;  and cFlag
	brl NoMsgExit

; Set everything up for script execution.

ExecuteScript	stx <ScriptHdl	; Store the handle
	sty <ScriptHdl+2

	phy	; push ScriptHdl for HLock
	phx
	ldx #HLock	; Lock the handle: ScriptHdl pushed previously
	jsl ToolLocator

	pei <ScriptHdl+2	; Dereference the handle
	pei <ScriptHdl
	jsl Dereference
	pla
	sta <ScriptPtr
	pla
	sta <ScriptPtr+2

;       Complete the setup process.

	lda #$0000	; RemoveFlag: this is an installation
	jsr Setup	; Initialize variables & set level.

	lda #'R'
	sta ScriptFlag

;       Let user know we are up to something

	jsr OpenInstMsgWdw

; At this point, we want to take care of any script amendments that may be
; required.

	jsr Amendments	; Amend as needed

;       We've got to fake the DeleteField routine into thinking that
;       we've read the script into the ReadBuffer.  It needs a value
;       for ReadBufEnd so it can figure out how many bytes to move
;       down during the field deletion operation.

	pha	; Get the script's size
	pha
	pei <ScriptHdl+2
	pei <ScriptHdl
	ldx #GetHandleSize
	jsl ToolLocator

	clc
	pla
	adc <ScriptPtr
	sta ReadBufEnd
	pla
	adc <ScriptPtr+2
	sta ReadBufEnd+2

; Execute the script!  Perform space calculations and copy and/or delete
; files, notifying the user if anything goes wrong.


	lda #$C000	; Indicate that script execution
	sta >UpdateFlag	;   is in progress.

;	jsr EliminateDuplicates ; removed, eliminated too much (ELC 12/12/91)
	
	jsr CalcAndCopy
	php	; save carry flag result

	lda #$0000	; Indicate that script execution
	sta >UpdateFlag	;   is finished

; Unload the script by releasing the resource and disposing of its handle
; (do not keep it around; some of its filespecs have probably been deleted).

	pei <ScriptHdl+2	; Unlock the handle
	pei <ScriptHdl
	ldx #HUnlock
	jsl ToolLocator

	pea disposeNow	; purgeLevel
	pea rStdUpdateScript ; resourceType
	pea StdUpdateScriptID>>16 ; resourceID
	pea |StdUpdateScriptID
	ldx #ReleaseResource
	jsl ToolLocator

	plp	; get result of CalcAndCopy
	bcs RestoreExit	; if carry set, abort occurred

	jsr DoneMessage	; if carry clear, tell user install complete

; Restore everything and exit.

RestoreExit	php	; Save cFlag
	pha	;  and error code, if any

	jsr RestoreLevel

	jsr CloseMsgWindow

NoMsgExit	pla	; Restore error code, if any
	plp	;  and cFlag

	plb
	rtl
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
Amendments	Name
;
; Description:	Easy Update:
;	Checks the user's destination disk and the hardware
;	environment to determine if the script needs amending.
;	Possible amendments are to install:
;
;	     "Start", the SetStartup launcher file
;	     "Finder", the Finderª application
;	     "Finder as Start", the Finder stored as filename Start
;	     "FastFonts", install and update only on devices larger than 1 meg (ELC 12/18/91)
;	     "UniDisk3.5", the UniDisk 3.5 driver, if it exists
;	     if SCSI card exists,
;	         "SCSI.Manager", the S.C.S.I. manager
;	         "SCSIHD.Driver", the S.C.S.I. hard disk driver
;	     if AppleShare FST exists,
;	         "CDEVs:Network"
;	         "EasyMount"
;	     else if AppleTalk (ATInit) exists,
;	         "SCC.Manager"
;	         "ATP1.ATROM"
;	         "ATP2.ATRAM"
;	         "ATResponder"
;
; Inputs:	None
;
; Outputs:	cFlag clear: no errors
;	cFlag set: error!  A-reg contains error code.
;
	Import D_TargetDevID
	Import GetTargetDInfo
	Import GotSCSICard
	Import VolTotalBlocks  ; from MainSub.asm: CheckVolume
;
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

; by default, UPDATE the SetStart CDEV file (will change to INSTALL if install START)

	lda #Flag2+FlagU
	sta SetStartFlag

; Very first thing, check to see if a SYSTEM folder exists on the
; destination disk.  If not, we'll need to add the SYSTEM:START
; and SYSTEM:FINDER FileSpecFields to the script or, if it's an 800K,
; add the Finder under the name SYSTEM:START.

	lda #SystemFolder
	sta GetInfoPath
	lda #^SystemFolder
	sta GetInfoPath+2

	jsl GSOS
	dc.w Get_File_Info
	dc.l GetInfoParms
	bcc CheckSystemStart  ; bra if SYSTEM folder exists

	cmp #FileNotFound
	bne OopsError

; no SYSTEM folder on destination disk: must create one
; what size is the target volume: if 3.5" 800K, install Finder as START; else install SetStart

	brl Update1or3

; There is a SYSTEM folder.  We must check to determine what the SYSTEM:START
; file "really" is.

CheckSystemStart

;       Open and load the first portion of the START file using partial pathname
;       and the system prefix (Prefix8).

OpenSystemStart	lda #SystemStart	; Setup pathname pointer
	sta OpenPath
	lda #^SystemStart
	sta OpenPath+2

	jsl GSOS	; Open the file
	dc.w Open
	dc.l OpenParms
	bcc ReadTheFile

	cmp #FileNotFound	; If the error was NOT "File Not Found"
	beq jUpdateSetStart ; else no START file, so don't install Finder or Start

OopsError	jsl Error	;   if NOT "File Not Found" then report error
jUpdateSetStart	brl UpdateSetStart	; don't install Finder or Start
	

ReadTheFile	lda OpenRefNum	; Distribute the reference number
	sta ReadRefNum
	sta CloseRefNum

	lda #ReadBuf	; Setup the read buffer pointer
	sta ReadBuffer
	lda #^ReadBuf
	sta ReadBuffer+2

	lda #ReadBufSize	; Setup the read request to read the
	sta ReadRequest	;   first $100 bytes of the file.
	lda #^ReadBufSize
	sta ReadRequest+2

	jsl GSOS	; Read the file
	dc.w Read
	dc.l ReadParms

	php	; Save the cFlag
	pha	;   and the return code
	
	jsl GSOS	; Close the file
	dc.w Close
	dc.l CloseParms

	pla	; Restore the previous return code
	plp	;   and cFlag

	bcs OopsError

;         Set up pointers, etc. so we can check the "LoadName" field of the
;         LoadFile's header.

CheckTheFile	ldy #DispName	; "DispName" contains offset to LoadName
	clc	; Set the "<ZPTemp2" pointer to
	lda ReadBuffer	;   point to the "LoadName" field.
	adc ReadBuf,y
	sta <ZPTemp2
	lda ReadBuffer+2
	adc #0000
	sta <ZPTemp2+2

;       Is it the Finder from early system 6.0 prototypes?  If so, and there's room, 
;       replace it with the new SYSTEM:START and blindly install SYSTEM:FINDER, assuming
;       it wasn't there before.

	ldy #$0008	; Check all ten bytes
CheckLoop1	lda [<ZPTemp2],y
	cmp Finder,y
	bne Check4SetStart
	dey
	dey
	bpl CheckLoop1
	bra Update1or3	; INSTALL SetStart & SetStart CDEV if there's room

;       Is it the SetStart program?  If so, only UPDATE SYSTEM:FINDER!
;       Since we're updating, only UPDATE SYSTEM:CDEVs:SetStart

Check4SetStart	ldy #$0008	; Check all ten bytes
CheckLoop2	lda [<ZPTemp2],y
	cmp SetStartFlnm,y
	bne Check4Old
	dey
	dey
	bpl CheckLoop2

;       START is SetStart. Update to new one.  
;       Finder will be updated if it exists (Installer.R script has Update for Finder.)

	bra UpdateStart

;       If neither of the above, we need to check for older version of the
;       FINDER.  We do this by looking at the "ByteCnt" and "Length" fields
;       in the START LoadFiles's header and comparing against known values for
;       versions 1.0, 1.1, 1.2, and 1.3 of the FINDER.

Check4Old	ldy #ByteCnt	; Get ByteCnt --> A-reg
	lda ReadBuf,y	;  and Length --> X-Reg
	ldy #Length
	ldx ReadBuf,y

	cmp #$0111	; Finder V1.0 and V1.1
	bne NextVersion	;   ByteCnt = $00000111
	cpx #$00A6	;    Length = $000000A6
	beq Update1or3	; Old Finder exists: update Finder, Start, SetStart if room

NextVersion	cmp #$E42B	; Finder V1.2
	bne NextVersion01	;   ByteCnt = $0000E42B
	cpx #$DF15	;    Length = $0000DF15
	beq Update1or3	; Old Finder exists: update Finder, Start, SetStart if room

NextVersion01	cmp #$E5BC	; Finder V1.2 (French Version)
	bne NextVersion1	;   ByteCnt = $0000E5BC
	cpx #$E067	;    Length = $0000E067
	beq Update1or3	; Old Finder exists: update Finder, Start, SetStart if room

NextVersion1	cmp #$025E	; Finder V1.3
	bne UpdateSetStart	;   ByteCnt = $0000025E
	cpx #$0215	;    Length = $00000215
	bne UpdateSetStart

; Old Finder exists: update Finder, Start, SetStart if room
; what size is the target volume?

Update1or3	lda >VolTotalBlocks+2
	bne InstallSetStart ; bra if enough rm: INSTALL Start, Finder, SetStart

	lda >VolTotalBlocks
	cmp #2048	; 1 megabyte
	bcs InstallSetStart ; bra if enough rm: INSTALL Start, Finder, SetStart

; 3.5" disk: for minimum space, add Finder as START; do not install Start or SetStart

	ldx #FinderAsStartSpec ; install Finder as START
	ldy #^FinderAsStartSpec
	jsr AmendScript
	bra UpdateSetStart	; just UPDATE SetStart CDEV

; 1-meg or larger (not 800K 3.5" disk) and: SYSTEM:START is an old Finder, or Start and Finder both exist.
;   Install all three files (SetStart as START, SetStart CDEV, and Finder).

InstallSetStart	lda #Flag2	; force INSTALL of SetStart CDEV (not just UPDATE)
	sta SetStartFlag

; larger than 3.5" disk and: SYSTEM:START is an old Finder, or Start and Finder both exist.
;   Install both files (Start and Finder).

	ldx #FinderSpec	; install the FINDER
	ldy #^FinderSpec
	jsr AmendScript

UpdateStart	ldx #StartSpec	; Then (or just) install the START program,
	ldy #^StartSpec
	jsr AmendScript

; all options reconverge here: SetStart CDEV is either updated or installed depending on
;   code settings from previous code tests

UpdateSetStart	ldx #SetStartSpec	; Install/Update SetStart
	ldy #^SetStartSpec
	jsr AmendScript
	Eject

; Update Fast Fonts only if on volume greater than 800K (ELC1)
; 1st, what size is the target volume: if 3.5" 800K, delete FastFonts; else install FastFonts (ELC)

	lda >VolTotalBlocks
	cmp #2048	; 1 megabyte
	bcc Check4UniDisk   ; bra if enough rm: INSTALL FastFont

UpdateFastFont	ldx #FastFontStartSpec	; Install/Update FastFont
	ldy #^FastFontStartSpec
	jsr AmendScript
	
	
; UniDisk 3.5: Check for the presence of the UniDisk 3.5 driver.

Check4UniDisk
	lda #UniDisk	; Setup pathname pointer
	sta GetInfoPath
	lda #^UniDisk
	sta GetInfoPath+2

	jsl GSOS
	dc.w Get_File_Info
	dc.l GetInfoParms
	bcc Check4RAM5	; cFlag clear = file exists.  Go on.

;       Got an error!  Assume driver was not found!  Check to see if
;       UniDisk 3.5" drive is present.

; NOTE:  There is no way to identify UniDisk3.5 drives with GS/OS calls.
;        SmartPort calls MUST be avoided because they ALL cause a patch
;        to be executed which can cause GS/OS to lose some of its data
;        structures.
;
;        The ONLY safe way to identify a UniDisk3.5 drive is by examining
;        the SmartPort subtype entry in the Device Infomation Block (DIB).
;        As long as we're doing that, we can avoid making d_Info calls as
;        well to look for generic 3.5 drives since that is also contained
;        in the DIB.

;        The following code marches through all the DIBs looking for the
;        correct Device ID Number and SmartPort subtype for positive
;        identification of a UniDiskDrive.

; ¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥
; ¥¥¥¥¥¥¥¥¥¥ May need code to find GS/OS dPage which might change! ¥¥¥¥¥¥¥¥¥¥
; ¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥

DevListPointer	equ $0000BD24	; GS/OS dPage location
DevListHeaderSize	equ 4	; 4 byte header
DevListFieldSize	equ 8	; 8 byte device fields
DevIDNumber	equ $0034	; Offset to Device ID Number in DIB
Generic3_5	equ 0003	;  Generic 3.5 Device ID Number
DevCharacteristics	equ $0008	; Offset to Device Characteristics word in DIB
GeneratedDriverBit	equ $4000	;  Bit 14: 1=generated driver (no SmartPort subtype word
SmartPortSubtype	equ $0044	; Offset to SmartPort subtype in DIB
UniDisk3_5	equ 0000	;  UniDisk3.5 SmartPort subtype

;        The GS/OS Device List Pointer is at $00/BD24.

	lda >DevListPointer
	sta <ZPTemp1
	lda >DevListPointer+2
	sta <ZPTemp1+2

;       Get the number of Device Information Blocks (DIBs) from the Device
;       List Header then update <ZPTemp1 to point to the first DIB pointer.
;	 __________________
;       DeviceList	|_ No. of devices _|  LongWord
;	|__________________|
;	|_ 1st DIB pointer_|  LongWord
;	|__              __|
;	|_    Other data  _|  4 bytes
;	|__________________|
;	|                  |
;	          :
;	|__________________|
;	|_Last DIB pointer_|  LongWord
;	|__              __|
;	|_    Other data  _|  4 bytes
;	|__________________|

	lda [<ZPTemp1]
	sta NumberOfDevices

	stz DeviceCounter	; Initialize our device counter

	clc	; Move pointer to 1st Device field
	lda <ZPTemp1
	adc #DevListHeaderSize
	sta <ZPTemp1
	lda <ZPTemp1+2
	adc #^DevListHeaderSize
	sta <ZPTemp1+2

;       Check all DIBs to see if any are for a UniDisk3.5

UniDiskLoop	lda [<ZPTemp1]	; Get the DIB pointer into <ZPTemp2
	sta <ZPTemp2
	ldy #0002
	lda [<ZPTemp1],y
	sta <ZPTemp2+2

	ldy #DevIDNumber
	lda [<ZPTemp2],y
	cmp #Generic3_5	; is it a 3.5 drive
	bne NextDevice	;   bra if not

	ldy #DevCharacteristics
	lda [<ZPTemp2],y
	bit #GeneratedDriverBit  ; is it a generated driver?
	bne NextDevice	     ;    bra if so

	ldy #SmartPortSubtype
	lda [<ZPTemp2],y
	cmp #UniDisk3_5	; Is it a UniDisk3.5 drive
	beq InstallUniDiskDriver   ; install if so

NextDevice	clc	; Move pointer to next Device field
	lda <ZPTemp1
	adc #DevListFieldSize
	sta <ZPTemp1
	lda <ZPTemp1+2
	adc #^DevListFieldSize
	sta <ZPTemp1+2

	inc DeviceCounter	; Increment our device counter
	lda DeviceCounter
	cmp NumberOfDevices	;  and see if we've got them all yet.
	bne UniDiskLoop	; loop
	bra Check4RAM5	;   else didn't find UniDisk, so don't install driver

;       Found UniDisk 3.5" drive.  Add the driver.

InstallUniDiskDriver ldx #UniDiskSpec
	 ldy #^UniDiskSpec
	 jsr AmendScript
	 Eject
*** added 24-Mar-93 SS
Check4RAM5	pha
	pea $37
;	_ReadBParam
	ldx #$0c03
	jsl $e10000
	pla	; if Max RAM disk then install
	beq Check4SCSI	;   else didn't find RAM5, so don't install driver

;       Found RAM5 drive.  Add the driver.

InstallRAM5Driver	ldx #RAM5Spec
	ldy #^RAM5Spec
	jsr AmendScript

; SCSI: Check for presence of the S.C.S.I. hard disk driver.

Check4SCSI	lda #SCSIHD	; Setup pathname pointer
	sta GetInfoPath
	lda #^SCSIHD
	sta GetInfoPath+2

	jsl GSOS
	dc.w Get_File_Info
	dc.l GetInfoParms
	bcc Check4SCSIdone	; cFlag clear = file exists.  Go on.

;       Got an error!  Assume driver was not found!  Check to see if a
;       S.C.S.I. card is present.

	lda >GotSCSICard	; SCSI card in system?
	beq Check4SCSIdone	;   bra if no SCSI card

	ldx #SCSISpec
	ldy #^SCSISpec
	jsr AmendScript
Check4SCSIdone

; AppleShare: Check for presence of AppleShare FST.

	lda #AppleShareFST	; Setup pathname pointer
	sta GetInfoPath
	lda #^AppleShareFST
	sta GetInfoPath+2

	jsl GSOS
	dc.w Get_File_Info
	dc.l GetInfoParms
	bcs Check4AppleShareDone ; cFlag set = file doesn't exist. Do nothing.

;       File exists! Install CDEVs:Network and EasyMount
	
	ldx #AppleShareSpec
	ldy #^AppleShareSpec
	jsr AmendScript
	bra Check4AppleTalkdone ; if AppleShare, then AppleTalk is done
Check4AppleShareDone
	
; AppleTalk: Check for presence of ATInit.

	lda #ATInit	; Setup pathname pointer
	sta GetInfoPath
	lda #^ATInit
	sta GetInfoPath+2

	jsl GSOS
	dc.w Get_File_Info
	dc.l GetInfoParms
	bcs Check4AppleTalkdone ; cFlag set = file doesn't exist. Do nothing.


;       File exists! Install SCC.Manager, ATP1.ATROM, ATP2.ATRAM, ATResponder

	ldx #AppleTalkSpec1
	ldy #^AppleTalkSpec1
	jsr AmendScript

	ldx #AppleTalkSpec2
	ldy #^AppleTalkSpec2
	jsr AmendScript
Check4AppleTalkdone

AmendmentExit	rts
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
AmendScript
;
; Description:	Amends the indicated FileSpecField to the SuperScript
;	currently in memory.
;
; Inputs:	X and Y contain pointer to FileSpecField to add.
;
; Outputs:	cFlag clear: no errors.
;	cFlag set: error!  Error code in A-reg.
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

	stx <ZPTemp2
	sty <ZPTemp2+2

; Begin by resizing the script's memory and setting up a pointer to the
; position of the second tilde character, which marks the end of the script,
; so we will overwrite it when we perform the append.

	pha	; Get the size
	pha
	pei <ScriptHdl+2
	pei <ScriptHdl
	ldx #GetHandleSize
	jsl ToolLocator	; Leave result on stack

	pei <ScriptHdl+2	; Unlock the file
	pei <ScriptHdl
	ldx #HUnlock
	jsl ToolLocator

	clc	; Calculate new memory size
	lda [<ZPTemp2]
	and #$00FF	; lo byte only
	adc 1,s	; add to handleSize still on the stack
	tax
	lda 3,s
	adc #0000

	cpx #0000	; Need to knock off one (we're
	bne @noHiDec	;   eliminating one tilde)
	dec a
@noHiDec	dex

	pha	; newSize
	phx
	pei <ScriptHdl+2	; handle
	pei <ScriptHdl
	ldx #SetHandleSize
	jsl ToolLocator
	bcc @Continue

	pla	; Clean up stack
	pla
	lda #$0081	; Out of memory
	jsl Error
	bra AmendFieldExit

@Continue	ldx #CompactMem	; By compacting now, we'll have
	jsl ToolLocator	;  less fragmentation later

	jsr GetScriptPtr	; Lock and dereference the handle

	clc	; Add the former handle size to the
	pla	;  new pointer to get a pointer to
	adc <ScriptPtr	;  the end of the script.
	tax
	pla
	adc <ScriptPtr+2

	cpx #0000	; Subtract off one so we will
	bne @noHiDec2	;  effectively delete the second
	dec a	;  tilde character marking the end
@noHiDec2	dex	;  of the script.

	stx <ZPTemp1	; Store the pointer to the point to
	sta <ZPTemp1+2	;  append the new FileSpecField.

; Append the FileSpecField.  Pointer to FileSpecField is in <ZPTemp2.
; Pointer to end of script is in <ZPTemp1.

	lda [<ZPTemp2]	; Get FileSpecField's length byte,
	and #$00FF	;  mask off extra byte, and
	dec a	;  use as index.
	dec a
	tay

	inc <ZPTemp2	; Adjust pointer to past lengthByte
	bne @noHiInc
	inc <ZPTemp2+2
@noHiInc

AppendLoop	lda [<ZPTemp2],y	; Append the field.
	sta [<ZPTemp1],y
	dey
	dey
	bpl AppendLoop

	lda [<ZPTemp2]	; Be sure last byte got moved.
	sta [<ZPTemp1]

	clc	; Indicate no errors
AmendFieldExit	rts
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
GetScriptPtr
;
; Description:	Locks, dereferences and stores the pointer to the
;	SuperScript.
;
; Inputs:	none
;
; Outputs:	none
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

	lda <ScriptHdl	; If handle is null, done
	ora <ScriptHdl+2
	beq Done

	ldy #4	; Lock the handle
	lda [<ScriptHdl],y
	ora #attrLocked
	sta [<ScriptHdl],y

	lda [<ScriptHdl]	; Dereference the handle
	sta <ScriptPtr
	ldy #2
	lda [<ScriptHdl],y
	sta <ScriptPtr+2

Done	rts
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

; FileSpecFields that can be appended to the end of the StandardUpdateScript.

StartSpec	dc.b StartEnd-*+1	; (A FileSpecField length byte)
	dc.w Flag2	; Install
	dc.w 0000	; fileType
	dc.l 00000000	; auxType
	dc.l 00000000	; createDateTime
	dc.l 00000000	; sourceSize
	dc.w SystemStart-*-2 ;sourcePathname
	dc.b ':Install:System:Start'
SystemStart	dc.w StartEnd-*-2
	dc.b 'System:Start'
StartEnd	dc.b '~~'

SetStartSpec	dc.b SetStartEnd-*+1 ; (A FileSpecField length byte)
SetStartFlag	dc.w Flag2+FlagU	; Install or Update (modified by code)
	dc.w 0000	; fileType
	dc.l 00000000	; auxType
	dc.l 00000000	; createDateTime
	dc.l 00000000	; sourceSize
	dc.w SetStart-*-2 ;sourcePathname
	dc.b ':Install:System:CDevs:SetStart'
SetStart	dc.w SetStartEnd-*-2
	dc.b 'System:CDevs:SetStart'
SetStartEnd	dc.b '~~'

FinderSpec	dc.b FinderEnd-*+1	; (A FileSpecField length byte)
	dc.w Flag2	; Install
	dc.w 0000	; fileType
	dc.l 00000000	; auxType
	dc.l 00000000	; createDateTime
	dc.l 00000000	; sourceSize
	dc.w SystemFinder-*-2 ;sourcePathname
	dc.b ':SystemTools1:System:Finder'
SystemFinder	dc.w FinderEnd-*-2
	dc.b 'System:Finder'
FinderEnd	dc.b '~~'


FinderAsStartSpec	dc.b FinderAsStartEnd-*+1 ; (A FileSpecField length byte)
	dc.w Flag2	; Install
	dc.w 0000	; fileType
	dc.l 00000000	; auxType
	dc.l 00000000	; createDateTime
	dc.l 00000000	; sourceSize
	dc.w FinderAsStart-*-2 ;sourcePathname
	dc.b ':SystemTools1:System:Finder'
FinderAsStart	dc.w FinderAsStartEnd-*-2
	dc.b 'System:Start'
FinderAsStartEnd	dc.b '~~'

FastFontStartSpec	dc.b FastFontEnd-*+1 ; (A FileSpecField length byte)
	dc.w Flag2	; Install
	dc.w 0000	; fileType
	dc.l 00000000	; auxType
	dc.l 00000000	; createDateTime
	dc.l 00000000	; sourceSize
	dc.w FastFontStart-*-2 ;sourcePathname
	dc.b ':Install:System:Fonts:FastFont'
FastFontStart	dc.w FastFontEnd-*-2
	dc.b 'System:Fonts:FastFont'
FastFontEnd	dc.b '~~'

UniDiskSpec	dc.b UniEnd-*+1	; (A FileSpecField length byte)
	dc.w Flag2	; Install
	dc.w 0000	; fileType
	dc.l 00000000	; auxType
	dc.l 00000000	; createDateTime
	dc.l 00000000	; sourceSize
	dc.w Unidisk-*-2	; sourcePathname
	dc.b ':Install:System:Drivers:UniDisk3.5'
Unidisk	dc.w UniEnd-*-2
	dc.b 'System:Drivers:UniDisk3.5'
UniEnd	dc.b '~~'

RAM5Spec	dc.b RAM5End-*+1	; (A FileSpecField length byte)
	dc.w Flag2	; Install
	dc.w 0000	; fileType
	dc.l 00000000	; auxType
	dc.l 00000000	; createDateTime
	dc.l 00000000	; sourceSize
	dc.w RAM5-*-2	; sourcePathname
	dc.b ':SystemTools1:System:Drivers:RAM5'
RAM5	dc.w RAM5End-*-2
	dc.b 'System:Drivers:RAM5'
RAM5End	dc.b '~~'

;       SCSI: These two FileSpecFields can be added together, all at once.

SCSISpec	dc.b SCSIEnd-*+1	; (A FileSpecField length byte)
	dc.w Flag2	; Install
	dc.w 0000	; fileType
	dc.l 00000000	; auxType
	dc.l 00000000	; createDateTime
	dc.l 00000000	; sourceSize
	dc.w SCSIHD-*-2	; sourcePathname
	dc.b ':Install:System:Drivers:SCSIHD.Driver'
SCSIHD	dc.w SCSIHDEnd1-*-2	; destinationPathname
	dc.b 'System:Drivers:SCSIHD.Driver'
SCSIHDEnd1	dc.b '~'

	dc.w Flag2	; Install
	dc.w 0000	; fileType
	dc.l 00000000	; auxType
	dc.l 00000000	; createDateTime
	dc.l 00000000	; sourceSize
	dc.w SCSIMgr-*-2	; sourcePathname
	dc.b ':Install:System:Drivers:SCSI.Manager'
SCSIMgr	dc.w SCSIEnd-*-2
	dc.b 'System:Drivers:SCSI.Manager'
SCSIEnd	dc.b '~~'

;       AppleShare: These two FileSpecFields can be added together, all at once.

AppleShareFST	dc.w AppleShareFSTEnd-*-2 ; destinationPathname
	dc.b 'System:FSTs:AppleShare.FST'
AppleShareFSTEnd

AppleShareSpec	dc.b AppleShareEnd-*+1 ; (A FileSpecField length byte)
	dc.w Flag2	; Install  (ELC 12/3/91)
	dc.w 0000	; fileType
	dc.l 00000000	; auxType
	dc.l 00000000	; createDateTime
	dc.l 00000000	; sourceSize
	dc.w NetCP-*-2	; sourcePathname
	dc.b ':SystemTools2:System:CDevs:Network'
NetCP	dc.w NetCPEnd1-*-2	; destinationPathname
	dc.b 'System:CDevs:Network'
NetCPEnd1	;;;dc.b '~'
;*** moved to Easy Install as an 'Install' 24-Mar-93 SS
;	dc.w Flag2	; Install  (ELC 12/3/91)
;	dc.w 0000	; fileType
;	dc.l 00000000	; auxType
;	dc.l 00000000	; createDateTime
;	dc.l 00000000	; sourceSize
;	dc.w EasyMount-*-2	; sourcePathname
;	dc.b ':SystemTools2:System:System.Setup:EasyMount'
;EasyMount	dc.w AppleShareEnd-*-2
;	dc.b 'System:System.Setup:EasyMount'
AppleShareEnd	dc.b '~~'

;       AppleTalk: These four FileSpecFields can be added together, two at a time.

ATInit	dc.w ATInitEnd-*-2	; destinationPathname
	dc.b 'System:System.Setup:ATInit'
ATInitEnd

AppleTalkSpec1	dc.b ATP1End1-*+1	; (A FileSpecField length byte)
	dc.w Flag2	; Install
	dc.w 0000	; fileType
	dc.l 00000000	; auxType
	dc.l 00000000	; createDateTime
	dc.l 00000000	; sourceSize
	dc.w SCCmgr-*-2	; sourcePathname
	dc.b ':SystemTools2:System:Drivers:SCC.Manager'
SCCmgr	dc.w SCCmgrEnd-*-2	; destinationPathname
	dc.b 'System:Drivers:SCC.Manager'
SCCmgrEnd	dc.b '~'

	dc.w Flag2	; Install
	dc.w 0000	; fileType
	dc.l 00000000	; auxType
	dc.l 00000000	; createDateTime
	dc.l 00000000	; sourceSize
	dc.w ATP1-*-2	; sourcePathname
	dc.b ':SystemTools2:System:Drivers:ATP1.ATROM'
ATP1	dc.w ATP1End1-*-2	; destinationPathname
	dc.b 'System:Drivers:ATP1.ATROM'
ATP1End1	dc.b '~~'

AppleTalkSpec2	dc.b AppleTalkEnd-*+1 ; (A FileSpecField length byte)
	dc.w Flag2	; Install
	dc.w 0000	; fileType
	dc.l 00000000	; auxType
	dc.l 00000000	; createDateTime
	dc.l 00000000	; sourceSize
	dc.w ATP2-*-2	; sourcePathname
	dc.b ':SystemTools2:System:Drivers:ATP2.ATRAM'
ATP2	dc.w ATP2End1-*-2	; destinationPathname
	dc.b 'System:Drivers:ATP2.ATRAM'
ATP2End1	dc.b '~'

	dc.w Flag2	; Install
	dc.w 0000	; fileType
	dc.l 00000000	; auxType
	dc.l 00000000	; createDateTime
	dc.l 00000000	; sourceSize
	dc.w ATResponder-*-2 ; sourcePathname
	dc.b ':SystemTools2:System:System.Setup:ATResponder'
ATResponder	dc.w AppleTalkEnd-*-2
	dc.b 'System:System.Setup:ATResponder'
AppleTalkEnd	dc.b '~~'

; Miscellaneous pathnames, etc.

SystemFolder	dc.w SystemFolderEnd-*-2
	dc.b 'System'
SystemFolderEnd

Finder	dc.b 'Finder    '	; Exactly 10 bytes long

SetStartFlnm	dc.b 'SetStart  '	; Exactly 10 bytes long

; Other Local data

NumberOfDevices	ds.w 1	; Number of DIBs in GS/OS device list
DeviceCounter	ds.w 1

;;;FreeMemory	ds.l 1
;;;CopyBufferSize	ds.l 1

;;;SavePrefixParms	dc.w 0002	; pCount
;;;	dc.w 0008	; prefixNum
;;;SavePrefixPath	ds.l 1	; pathname
;;;
;;;SetPrefixParms	dc.w 0002	; pCount
;;;	dc.w 0008	; prefixNum
;;;SetPrefixPath	ds.l 1	; pathname

ReadBuf	ds.b $100	; To hold LoadFile header
ReadBufSize	equ *-ReadBuf

; Shared GS/OS call parameter tables

		; GET_FILE_INFO|CREATE     |OPEN(dest)
dParameters	ds.w 1	;                          |pCount
dRefNum
Parameters	ds.w 1	;pCount        |pCount     |refNum
Pathname	ds.l 1	;pathname      |pathname   |pathname
Access	ds.w 1	;access        |access
	ds.w 1	;fileType      |fileType
	ds.l 1	;auxType       |auxType
                    ds.w 1	;storageType   |storageType
dEOF	ds.l 2	;createDateTime|EOF


rwParameters		;OPEN(src)     |READ/WRITE
sParameters	ds.w 1	;pCount        |pCount
sRefNum		;              |
rwRefNum	ds.w 1	;refNum        |refNum	
sPathname		;pathname      |buffer
Buffer	ds.l 1	;    "         |   "
RequestCnt	ds.w 1	;requestAccess |request
	ds.w 1	;resourceNumber|   "
TransferCnt	ds.w 1	;access        |transfer
	ds.w 1	;fileType      |   "
	ds.l 1	;auxType
	ds.w 1	;storageType
	ds.l 2	;createDateTime
	ds.l 2	;modDateTime
	dc.l OptionList	;optionList
sEOF	ds.l 1	;EOF

OptionList	dc.w 0006,0000,0000

CloseSource	dc.w 0001
sourceRefNum	ds.w 1

CloseDest	dc.w 0001
destRefNum	ds.w 1

BufferHandle	ds.l 1

ReturnCode	ds.w 1
	EndP ;{StandardUpdateSub}
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
InstallRemoveSubs	Proc
*
	Export Install
	Export Remove
*
* Description:	These are the main entry points for all Customized 
*	installation and removal functions.
*
*	The Script Interpreter is called by the User Interface
*	portion of the Installer program once the user has
*	identified the script(s) to execute and the directory
*	where Installation or Removal should take place.
*
*	Upon entry, CurDirPtr must point to the full pathname, of
*	a GS/OS Class 1 input string, of the directory where
*	installation or removal should take place.  CurrentVolume
*	must contain the volume name where the current directory
*	is located.
*
* Inputs:	none
*
* Outputs:	none
*
* External Refs:
	Import CancelStr	     ; From Data.asm
	Import ContinueStr	     ; From Data.asm
	Import CopyProc	     ; From Data.asm
	Import SpaceCalc	     ; From Data.asm
	Import UpdateFlag
*
	Import Error	     ; From MainSub.asm
	Import FlushEventQueue   ; From MainSub.asm
	Import UpdateMainDialog  ; From MainSub.asm
	Import Volume_Parms	     ; From MainSub.asm
*
	Import BuildSuperScript
	Import CalcAndCopy
	Import CheckForInterrupt
	Import CloseMsgWindow
	Import DoneMessage
	Import DirSelReq
	Import EliminateDuplicates
	Import GetAppDirPtr	   ; From MainSub.asm
	Import GetCurDirPtr	   ; From MainSub.asm
	Import GStrToGStr
	Import MakeNewList
	Import OpenInstMsgWdw
	Import RemoveFlag
	Import ResizeCurDirBuf
	Import UnlockCurDirHdl
	Import UnlockAppDirHdl
	Import RestoreLevel
	Import Setup
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
	Eject
;=================================================

; Enter here to process user request for install
; (Set high bit of RemoveFlag correctly for installing)

Install	lda #$0000	; RemoveFlag: this is an installation
	bra StoreFlag

;=================================================

; Enter here to process user request for remove.
; (Set high bit of RemoveFlag correctly for removing)

Remove	lda #$8000	; RemoveFlag: this is a removal

;=================================================

; Install and Remove join again here.

StoreFlag	
	phb	; Preserve callers b-reg
	phk	;  and set ours
	plb

	jsr Setup	; Initialize variables, etc.
	bcc BuildScript
	pha
	bra ScriptErrorExit2

; Build the SuperScript

BuildScript	jsr OpenInstMsgWdw	; Let user know we are up to something

	lda #$8000	; Indicate that a script is being read
	sta >UpdateFlag

; Consolidate all the selected scripts, allocate ScriptHdl

	jsr BuildSuperScript
	bcs ScriptErrorExit

	sec	; (Don't display 'Unknown Mix" dialog)
	jsr CheckForInterrupt ; Did user press OpenApple-<period>?
	bcs ScriptErrorExit

	jsr EliminateDuplicates ; Delete duplicate FileSpec fields

	sec	; (Don't display "Unknown Mix" dialog)
	jsr CheckForInterrupt ; Did user press OpenApple-<period>?
	bcs ScriptErrorExit

BeginCalcAndCopy	jsr CalcAndCopy	; Space calculation & copy and/or delete
	bcs ScriptErrorExit

; Clean up and exit

ScriptExit	lda #0000	; Script execution is ended.
	sta >UpdateFlag

	jsr GetRidOfHandle
	jsr CloseMsgWindow	; Close off message window

	lda >DirSelReq	
	bpl @1	; bra if directory selection not required

	jsl GetAppDirPtr
	jsl GetCurDirPtr

@2	pei <AppDirPtr+2
	pei <AppDirPtr
	pei <CurDirPtr+2
	pei <CurDirPtr
	jsl GStrToGStr	; restore CurDirPtr to original value

	jsl ResizeCurDirBuf
	bcs @2

	jsl UnlockCurDirHdl	; Let <CurDirHdl float til needed again
	jsl UnlockAppDirHdl	; Let <AppDirHdl float til needed again

	jsl MakeNewList	; build new folder selection list for right wdw
@1

; We're all finished processing the script.

	bit ExecFlag	; Check to see if a script was
	bpl @Exit	;  actually executed

	jsl UpdateMainDialog
	jsr DoneMessage

@Exit	jsr RestoreLevel
	jsl FlushEventQueue
	plb
	clc	; Everything went OK
	rtl	; All done

; Error exit

ScriptErrorExit	pha	; Save the error code
	jsr GetRidOfHandle
	jsr CloseMsgWindow
ScriptErrorExit2	jsr RestoreLevel
	jsl FlushEventQueue

	lda #0000	; Script execution is ended.
	sta >UpdateFlag

	pla	; A = error code
	cmp #0001	; Notify caller of error
	plb
	rtl
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
GetRidOfHandle	; Local subroutine
; 
; Description:	A little local subroutine to dispose of the handle used
;	for the SuperScript.
;
; Inputs:	none
;
; Outputs:	none
;
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

	lda <ScriptHdl+2	; Release memory containing script
	pha
	lda <ScriptHdl
	pha
	ldx #DisposeHandle
	jsl ToolLocator

	stz <ScriptHdl
	stz <ScriptHdl+2
	rts
	EndP ;{InstallRemoveSub}
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
SetUp	Proc
*
* Description:	Initializes variables and set file level.
*
* Inputs:	A-reg: $0000 if Install pressed
*	       $8000 if Remove pressed
*
* Outputs:	cFlag clear: no errors
*	cFlag set:   error!  A-reg holds error code and user has
*	             been notified.
*
* External Refs:
	Import Error
*
	Import GetLevelParms
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

	sta RemoveFlag	; Initialize variables
	stz ExecFlag

; Set the file level to its maximum value so that when we
; do a "close-all" later, we will only close what we opened.

	jsl GSOS
	dc.w Get_Level
	dc.l GetLevelParms
	bcc @2

@1	jsl Error
	rts

@2	jsl GSOS
	dc.w Set_Level
	dc.l SetLevelParms
	bcs @1

	rts

SetLevelParms	dc.w 0002	; pCount
	dc.w $00FF	; level
	dc.w $8000	; level_mode (user_level)
	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
BuildSuperScript	Proc
*
* Description:	This is the subroutine to put together a SuperScript
*	from all of the user's individually selected scripts.
*	It first looks for a script whose name begins with
*	" System " and begins with it.  Then it appends the
*	FileSpec fields from all the other scripts.
*
* Inputs:	none
*
* Outputs:	none
*	(Allocates ScriptHdl).
*
* External Refs:
	Import CautionBtn1	    ; From Data.asm
	Import CautionBtn2	    ; From Data.asm
	Import DrawCautionIcon
	Import LatestSys	    ; From Data.asm
	Import LatestSysEnd	    ; From Data.asm
	Import ScriptListCtlHdl ; From Data.asm
	Import ScriptVer
*
	Import Allocate	    ; From MainSub.asm
	Import Error	    ; From MainSub.asm
*
	Import CheckForInterrupt
	Import CloseParms
	Import CloseRefNum
	Import CompactScript
	Import CurScriptFile
	Import GetEOFParms
	Import GetEOFEOF
	Import GetEOFRefNum
	Import OldMemSize
	Import OpenSParms
	Import OpenSPath
	Import OpenSRefNum
	Import ReadBuffer
	Import ReadParms
	Import ReadRefNum
	Import ReadRequest
	Import ResizeScriptMemory
	Import ScriptSize
	Import SpaceCalc
	Import UpdateMsgWindow
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

	stz ScriptFlag	; init ScriptFlag to zero
	stz CurrentMember

; Get the first selected member.

	jsr GetNextMember
	beq BuildScript
	sta Temp

; We know we've got at least one selected item, so get an empty handle for
; the memory we'll need to store the superScript.

	lda #0000
	jsl Allocate
	stx <ScriptHdl
	sty <ScriptHdl+2

	stz OldMemSize	; Indicate current memory size is zero
	stz OldMemSize+2
	bra @Continue

; Get the next selected member

@SearchLoop	jsr GetNextMember
	bne @StoreValue

	lda #0000
	bra BuildScript

@StoreValue	sta Temp

; Temp now contains the member's position in the list.

@Continue	dec Temp	; Returned itemNum is "one" based
		; We want "zero" based
	lda Temp	; List has six bytes per member
	asl a	;  ( X2 )\
	clc	;         \
	adc Temp	;  ( +1 ) /  = X6 (Record size)
	asl a	;  ( X2 )/
	sta Temp

	ldy Temp
	lda [ScriptListPtr],y
	sta <ZPTemp
	iny
	iny
	lda [ScriptListPtr],y
	sta <ZPTemp+2

; Check every selected member to see if any of them are a " System " file.

	ldx #0000	; Initialize index
	txy
@CompareLoop	iny
	inx
	cpy #LatestSysEnd-LatestSys
	beq @Match
	lda [<ZPTemp],y
	cmp >LatestSys-1,x
	beq @CompareLoop

	bra @SearchLoop	; This entry didn't match
@Match
	lda CurrentMember	; Begin the SuperScript with the "Latest
	jsr SuperScript	; Sys" file.
	bcs BuildSuperScriptEnd

	sec	; (Don't display "Unknown Mix" dialog)
	jsr CheckForInterrupt ; Did user press OpenApple-<period>?
	bcs BuildSuperScriptEnd

	lda CurrentMember

; Were now ready to build (or continue building, if we already started with a
; " System " file) the SuperScript.  Begin with the itemNum found in the
; A-reg.  Continue calling GetNextMember skipping the value we're storing in
; "LatestSysMember", below.  (If value is $FFFF, we'll get back to zero
; without ever reaching it.

BuildScript	sta LatestSysMember	; (Non-zero value = " System " itemNum)

	stz CurrentMember	; Starting at the beginning of the list...

BuildScriptLoop	jsr GetNextMember	; Get the next selected member.

	sta CurrentMember
	beq BuildSuperScriptExit ; If there are no more, we're donw.

	cmp LatestSysMember ;   If it's the " System " item,
	beq BuildScriptLoop	;     skip it.

	jsr SuperScript	; Add it to the SuperScript.

	bra BuildScriptLoop	; Continue til we've got them all.

; Append a second trailing tilde to designate the end of the script.

BuildSuperScriptExit
	pha
	pha
	pei <ScriptHdl+2
	pei <ScriptHdl
	ldx #GetHandleSize
	jsl ToolLocator
	plx
	ply

;       If the memory size is more than $0000FFFF, the script is too big.

	beq CheckMemorySize

ScriptTooLarge	lda #$0084	; Script Too large!
	jsl Error
	bra BuildSuperScriptEnd

;       If the memory is still zero, there is no SuperScript.  The user must
;       have cancelled.

CheckMemorySize	cpx #0000
	bne ResizeMemory
	sec
	bra BuildSuperScriptEnd

;       If everything is OK, append the second trailing tilde.

ResizeMemory	stx Temp

	inx	; Make the segment one byte larger
	beq ScriptTooLarge

	jsr ResizeScriptMemory
	bcs BuildSuperScriptEnd

AppendTilde	ldy Temp

	sep #$0020
	LongA Off

	lda #'~'
	sta [<ScriptPtr],y

	LongA On
	rep #$0020
	
BuildSuperScriptEnd	rts
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
GetNextMember
;
; Description:	Gets the next selected member in the ScriptList and
;	returns it's itemNum.
;
; Inputs:	none
;
; Outputs:	A-reg contains itemNum of next selected item in ScriptList.
;
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

	pha	; Room for result
	lda CurrentMember	; itemNum
	pha
	lda >ScriptListCtlHdl+2 ; ctlHandle
	pha
	lda >ScriptListCtlHdl
	pha
	ldx #NextMember2
	jsl ToolLocator
	pla
	sta CurrentMember
	rts
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
SuperScript
;
; Description:	This local subroutine displays the caution alert, if so
;	directed by the header flags, and then adds the
;	FileSpecFields from the specified list member onto the
;	SuperScript, if the user did not cancel the script
;	during the caution, if any.
;
; Inputs:	A-reg = itemNum of list member to add to SuperScript.
;
; Outputs:	c-flag clear: no errors
;	c-flag set: A-reg contains error code returned by whoever
;	            generated encountered the error.  User HAS
;	            been notified.
;
; NOTES:	Each FileSpecField requires 16 bytes plus space for two
;	GS/OS Class 1 input strings for FULL source and destination
;	pathnames.
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

	sta ThisItemNum

; Get some memory to read in this script

	lda #0000
	jsl Allocate
	stx <ScriptHandle
	sty <ScriptHandle+2
	bcc ReadScript

	lda #$0084
	jsl Error
	bcs SSErrorExit

; Read in the script and look at the header

ReadScript	lda ThisItemNum
	jsr ReadWholeScriptFile
	bcs SSErrorExit

; Before continuing, we need to check to see if the script wants us to caution
; the user before continuing.

	jsr Caution
	bcs SSExit

; Compact and verify the script instructions, then append to the SuperScript.

	lda #ScriptVer	; Keep user up to date.
	jsr UpdateMsgWindow

	jsr CompactScript
	bcs SSErrorExit

SSExit	lda #0000
	clc

SSErrorExit	php
	pha

; Finally dispose of the memory where the compacted script is.

	pei <ScriptHandle+2
	pei <ScriptHandle
	ldx #DisposeHandle
	jsl ToolLocator

	lda NewMemSize
	sta OldMemSize
	lda NewMemSize+2
	sta OldMemSize+2

	pla
	plp
	rts
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
ReadWholeScriptFile
;
; Description:	Reads the script file into memory.  Makes full pathname,
;	Opens File, Gets EOF, resizes ScriptHandle, Reads file
;	into handle, and Calculates ReadBufEnd.
;
; Inputs:	A-reg contains member's number
;
; Outputs:	cFlag clear: no errors
;	cFlag set: error if any stored in A-reg.
;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

; Point the OPEN parameter to the full pathname in the ScriptFileList
;;;
;;;	pha	; Save the itemNum
;;;
;;;	pla	; Restore the itemNum

;       A-reg now contains the member's position in the list.

	dec a	; (We're "zero" based.)
	sta Temp	; List has six bytes per member
	asl a	;  ( X2 )\
	clc	;         \
	adc Temp	;  ( +1 ) /  = X6 (Record size)
	asl a	;  ( X2 )/
	tay
	lda [<ScriptFilePtr],y
	sta OpenSPath
	sta <ScriptFilename
	iny
	iny
	lda [<ScriptFilePtr],y
	sta OpenSPath+2
	sta <ScriptFilename+2

; OPEN the script and determine it's size.

@0	jsl GSOS
	dc.w Open
	dc.l OpenSParms
	bcc @1

	ldx OpenSPath
	ldy OpenSPath+2
	jsl Error
	bcc @0
	bra ErrorExitJJ

@1	lda OpenSRefNum
	sta GetEOFRefNum
	sta ReadRefNum
	sta CloseRefNum

@2	jsl GSOS
	dc.w Get_EOF
	dc.l GetEOFParms
	bcc @3

	ldx OpenSPath
	ldy OpenSPath+2
	jsl Error
	bcc @2
	bra ErrorExitJJ
@3

; Check that we have not exceeded $0000FFFF, the largest script file we can handle

	lda GetEOFEOF+2	; Hi-word MUST be zero!
	beq Continue

ScriptTooBig	lda #$0084	; Script was too big
	jsl Error
ErrorExitJJ	bra ErrorExitJ

; Resize script's memory to hold the script

Continue	sta ReadRequest+2	; Store the space needed in ReadRequest
	sta ScriptSize+2	;   and ScriptSize, then push on stack
	pha	;   for _SetHandleSize call.
	lda GetEOFEOF
	sta ReadRequest
	sta ScriptSize
	pha

	ldy #4	; Unlock the handle
	lda [<ScriptHandle],y
	and #$FFFF-attrLocked
	sta [<ScriptHandle],y

	pei <ScriptHandle+2	; Resize the memory
	pei <ScriptHandle
	ldx #SetHandleSize
	jsl ToolLocator
	bcs ScriptTooBig

MemoryOK	ldy #4	; Lock the handle
	lda [<ScriptHandle],y
	ora #attrLocked
	sta [<ScriptHandle],y

	lda [<ScriptHandle]	; Dereference the handle
	sta <ZPTemp
	sta ReadBuffer
	ldy #0002
	lda [<ScriptHandle],y
	sta <ZPTemp+2
	sta ReadBuffer+2

; READ the script into the memory

@0	jsl GSOS
	dc.w Read
	dc.l ReadParms
	bcc ReadOK

	ldx OpenSPath
	ldy OpenSPath+2
	jsl Error
	bcc @0
ErrorExitJ	bra ErrorExit

ReadOK

; CLOSE the Script file

@2	jsl GSOS
	dc.w Close
	dc.l CloseParms
	bcc @3

	ldx OpenSPath
	ldy OpenSPath+2
	jsl Error
	bcc @2
	bra ErrorExit
@3

; We'll need to know where the end of the ReadBuffer is later.

	clc
	lda <ZPTemp
	adc ScriptSize
	sta ReadBufEnd
	lda <ZPTemp+2
	adc ScriptSize+2	; (always zero)
	sta ReadBufEnd+2

	lda #0000
ErrorExit	cmp #0001
	rts
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
Caution
;
; Description:	This routine will check the ScriptFlagField to determine if
;	the user should receive a caution before the script
;	is added to the SuperScript (indicated by 2nd char being lowercase)
;
; Inputs:	none
;
; Outputs:	cFlag clear if user wishes to execute the script
;	cFlag set if user wishes to abort execution of the script.
;
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

	sep #$30
	LongA Off
	LongI Off
	
	ldy #ScriptFlagField+1 ; Get the ScriptFlag; save y for @Caution
	lda [<ZPTemp],y
	cmp #'r'	; if lower case, display caution
	beq @Caution
	cmp #'n'	; if lower case, display caution
	beq @Caution

	LongA On
	LongI On
	rep #$30

	clc
	bra @Exit

; Set up an alert box with the contents of the script's ScriptHelp field and
; buttons to go ahead or abort the execution of the script.
; First, find the ScriptHelp field by searching past 3 crÕs (2 after flags, 1 after name).
; Still using Y from above.

@Caution
	LongA Off	; still 8-bit registers here
	LongI Off
	ldx #3	; looking for 3 crÕs (2 after flags, 1 after name)
@LengthLoop	lda [<ZPTemp],y	; Y set up above
	iny
	cmp #Return
	bne @LengthLoop
	dex
	bne @LengthLoop

	LongA On
	LongI On
	rep #$30

	phy	; (Save offset to ScriptHelp field)

	ldx #0000	; Determine length of ScriptHelp field.
@HelpLenLoop	lda [<ZPTemp],y	;   by searching for a "//" word.
	iny
	inx
	cmp #ScriptHelpEnd	; (Check for end of ScriptHelp field)
	bne @HelpLenLoop
	dex
	stx HelpFieldLength

	clc	; Calculate beginning of Help field
	pla	;   Offset to beginning of Help field
	adc <ZPTemp	; + Buffer Address
	sta HelpFieldPtr
	lda #0
	adc <ZPTemp+2
	sta HelpFieldPtr+2

	ldx #InitCursor
	jsl ToolLocator

; (Use an _Alert rather than a _CautionAlert, and define our own Caution Icon
; so we can color the icon yellow.

	pha	; Room for result
	pea AlertTemplate>>16
	pea |AlertTemplate
	pea 0000	; Filter procedure
	pea 0000
	ldx #Alert	; Leave item hit on stack
	jsl ToolLocator

	ldx #WaitCursor
	jsl ToolLocator

	pla	; Now, get the item hit from stack
	cmp #0003	; Check ItemHit ID (ID#2 < 3, carry clear, so execute)
@Exit	rts
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
; Caution dialog template

aWidth    equ 400
aHeight   equ 104
aBtnWidth equ 160

aTop      equ (200/2)-(aHeight/2)
aLeft     equ (640/2)-(aWidth/2)
aBottom   equ aTop+aHeight
aRight    equ aLeft+aWidth

AlertTemplate	dc.w aTop,aLeft,aBottom,aRight
	dc.w $ABCD	 ; AlertID
	dc.b $81,$81,$81,$81 ; Stage1, Stage2, Stage3, Stage4
	dc.l FirstItem	 ; First item template
	dc.l SecondItem	 ; Second item template: Perform
	dc.l ThirdItem	 ; Third item template: Skip
	dc.l FourthItem	 ; Fourth item template
	dc.l 00000000

FirstItem	dc.w 0001		; ItemID
	dc.w 5,75,aHeight-21,aWidth-20	; ItemRect
	dc.w LongStatText2+ItemDisable	; ItemType
HelpFieldPtr	dc.l 00000000		; ItemDescr
HelpFieldLength	dc.w 0000		; ItemValue
	dc.w 0000		; ItemFlag
	dc.l 00000000		; ItemColor

SecondItem	dc.w 0002		; ItemID
	dc.w aHeight-18,3*aWidth/4-(aBtnWidth/2) ;ItemRect
	dc.w aHeight-6,3*aWidth/4+(aBtnWidth/2)
	dc.w ButtonItem		; ItemType
	dc.l CautionBtn2		; ItemDescr: ÔPerform this updateÕ
	dc.w 0000		; ItemValue
	dc.w 0000		; ItemFlag
	dc.l 00000000		; ItemColor

ThirdItem	dc.w 0003		; ItemID
	dc.w aHeight-18,aWidth/4-(aBtnWidth/2)	; ItemRect
	dc.w aHeight-6,aWidth/4+(aBtnWidth/2)
	dc.w ButtonItem		; ItemType
	dc.l CautionBtn1		; ItemDescr: ÔSkip This UpdateÕ
	dc.w 0000		; ItemValue
	dc.w 0000		; ItemFlag
	dc.l 00000000		; ItemColor

FourthItem	dc.w 0004		; ItemID
	dc.w 5,16,25,74		; ItemRect
	dc.w UserItem+ItemDisable 	; ItemType
	dc.l DrawCautionIcon	; ItemDescr
	dc.w 0000		; ItemValue
	dc.w 0000		; ItemFlag
	dc.l 00000000		; ItemColor

Temp	ds.w 1
OldSize	ds.l 1
CurrentMember	ds.w 1
ThisItemNum	ds.w 1	; itemNum of item to add to "Super"
NewMemSize	ds.l 1

LatestSysMember	ds.w 1	; Member with name beginning " System "
	EndP ;{BuildSuperScript}
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
EliminateDuplicates	Proc
*
* Description:	Identifies FileSpec fields in the SuperScript that deal
*	with identical source and destination pathnames, resolves
*	differing options and deletes one of the fields.
*
* Inputs:	none
*
* Outputs:	none
*
* External Refs:
	Import DeleteField1
	Import ReadBufEnd
	Import ResizeScriptMemory
	Import UpperCase8bit
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
* NOTES:	When duplicate FileSpec fields are encountered, the first
*	is the one that must be deleted since the second one may
*	come from a script that took other actions first before
*	handling this FileSpec for some specific reason.
*
*	For instance, at the time this routine was implemented,
*	the SCSI.Hard.Disk script deleted all the tutorial stuff
*	before moving the SCSI.Manager to be sure there would be
*	room.  If the SuperScript also included the CDROM script,
*	it would come first and would cause the SCSI.Manager to be
*	installed BEFORE the SCSI.Hard.Disk script had deleted
*	the tutorial stuff, which might be needed to make room.
*
*	Boot code replacement FileSpec must be first!  Therefore,
*	it is the sole exception to the above rule.  In this case,
*	the first occurrence MUST be retained and any others
*	deleted!
*
*	<ZPtemp is used as the pointer to the first FileSpec
*	which is the one that will be deleted when duplicates
*	are found.
*
*	<ZPTemp1 points to the second FileSpec field.
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

; Start at the beginning of the SuperScript.

	lda <ScriptPtr
	sta <ZPTemp
	sta <ZPTemp1
	lda <ScriptPtr+2
	sta <ZPTemp+2
	sta <ZPTemp1+2

; DeleteField1 uses ReadBufEnd to know how many bytes to move when it deletes
; a field.  So be sure to let ReadBufEnd point to the end of our script.

	clc
	ldy #0008	; Get the Handle size
	lda [<ScriptHdl],y
	adc <ScriptPtr
	sta ReadBufEnd
	lda #0000
	adc <ScriptPtr+2
	sta ReadBufEnd+2
	bra InnerLoop

; This is the outer loop which updates the pointer to the first FileSpec.

OuterLoop	clc	; Update <ZPTemp to point the
	ldy #Pathnames	;   destination pathname first...
	lda [<ZPTemp],y	;  (size of source filespec)
	adc <ZPTemp
	adc #Pathnames+2	;  (plus 2: length of size word)
	sta <ZPTemp
	lda #0000
	adc <ZPTemp+2
	sta <ZPTemp+2

	clc	; Now update both pointers to point
	lda [<ZPTemp]	;   to the byte following the field
	adc <ZPTemp	;   separator character.
	adc #0003
	sta <ZPTemp
	sta <ZPTemp1
	lda #0000
	adc <ZPTemp+2
	sta <ZPTemp+2
	sta <ZPTemp1+2

;       NOTE: If the first character is a field separator character, we've
;             reached the end of the script!

Check4Separator	lda [<ZPTemp]
	and #$00FF
	cmp #FieldSeparator
	bne InnerLoop
	brl Exit

; This is the inner loop which updates the pointer to the second FileSpec.

InnerLoop	clc	; Update <ZPTemp1 to point the
	ldy #Pathnames	;   destination pathname first...
	lda [<ZPTemp1],y	;  (size of source filespec)
	adc <ZPTemp1
	adc #Pathnames+2	;  (plus 2: length of size word)
	sta <ZPTemp1
	lda #0000
	adc <ZPTemp1+2
	sta <ZPTemp1+2

	clc	; Now update it to point to the byte
	lda [<ZPTemp1]	;   following the field separator
	adc <ZPTemp1	;   character.
	adc #0003	;  (plus 3: length of size word + field sep)
	sta <ZPTemp1
	lda #0000
	adc <ZPTemp1+2
	sta <ZPTemp1+2

;       NOTE: If the first character is a field separator character, we've
;             reached the end of the script!

Check4Separator1	lda [<ZPTemp1]
	and #$00FF
	cmp #FieldSeparator
	beq OuterLoop

; Begin comparing pathnames.  If we have a match up through and including
; the FieldSeparator character both pathnames are identical.

	sep #$0020
	LongA Off

	ldy #Pathnames-1
CompareLoop	iny
	lda [<ZPTemp1],y
	jsl UpperCase8bit	; (Comparison must be case insensitive)
	sta ElimTemp
	lda [<ZPTemp],y
	jsl UpperCase8bit
	cmp ElimTemp
	bne NoMatch	; No match

	cmp #FieldSeparator
	bne CompareLoop

;       They match!  Resolve the options and delete one of the FileSpecFields.
;       (NOTE:  If we kept a BootCodeReplacement FileSpecField--the first
;               FileSpecField in the SuperScript--and are deleting a second
;               occurrence, we need to continue the InnerLoop as if the
;               pointer had just been updated, by checking for a
;               FieldSeparator character -- so branch.

	LongA On
	rep #$0020

	jsr ResolveOptions
	bcs Check4Separator1

;       After deleting the first occurrence of a FileSpec field, <ZPTemp will
;       already be pointing at the next field, so we don't need to update the
;       pointer, but we do need to set <ZPtemp1 = <ZPTemp and see if we're at
;       the end of the script.

	lda <ZPTemp
	sta <ZPTemp1
	lda <ZPTemp+2
	sta <ZPTemp1+2

	bra Check4Separator

;       Strings don't match.

NoMatch
	LongA On
	rep #$0020
	bra InnerLoop	; No match

; Before exiting, "blindly" resize the SuperScript's handle for the final
; size in case we shrank it a bit.

Exit	sec	; We're pointing at the 2nd
	lda <ZPTemp	;   FieldSeparator...
	sbc <ScriptPtr
	tax
	lda <ZPTemp+2
	sbc <ScriptPtr+2
	tay

	inx	; ...so add one to the difference.
	bne *+3
	iny

	jsr ResizeScriptMemory

	rts

ElimTemp	ds.b 1
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
ResolveOptions
;
; Description:	When two FileSpecFields are found that reference the
;	same source and destination pathnames, control comes
;	here to resolve conflicting options, if any, before
;	one of them is deleted.
;
; Inputs:	none  (<ZPTemp points to the second FileSpecField)
;	      (<ZPTemp1 points to the first FileSpecField)
;
; Outputs:	cFlag clear: First occurrence of a duplicate FileSpecField
;	             was eliminated.
;	cFlag set:   Second occurrance of a duplicate boot code
;	             replacement FileSpecField was deleted.
;
; Side Effects:	A FileSpecField is deleted and the rest of the script
;	is moved down.  Memory is NOT resized here!
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

; If the FileSpec flags do not both contain a "B" flag, we must resolve the
; differences.  (Ignore any other flags.)

	lda [<ZPTemp1]	; Get 1st FileSpec flag
	and #FlagB	;   and isolate "B" flag bit
	sta Temp
	lda [<ZPTemp]	; Get 2nd FileSpec flag
	and #FlagB	;   and isolate "B" flag bit
	cmp Temp
	bne Resolve	; If they're different, gotta resolve em

;       We have duplicate boot code replacement requests.  Delete the second
;       FileSpecField and we're DONE!

;       Need the pointer to the field to be deleted in <ZPTemp.

	pei <ZPTemp+2	; Temporarily save on stack
	pei <ZPTemp

	lda <ZPTemp1	; Put the second FileSpecField
	sta <ZPTemp	;   pointer into <ZPTemp
	lda <ZPTemp1+2
	sta <ZPTemp+2

	jsr DeleteField1	; Delete the second FileSpecField

	pla	; Restore original <ZPTemp
	sta <ZPTemp
	pla
	sta <ZPTemp+2

	sec	; Signify 2nd FileSpecField deleted
	brl ResolveDone
	Eject

; Check to see if both flags are the same.  (We've pre-checked to catch them
; if they were both a "B".)

Resolve	lda [<ZPTemp1]
	cmp [<ZPTemp]
	beq DeleteFirst

; The flags are not the same, we've got to resolve the differences!  Begin
; with the optional flags.

; If first FileSpec flag contains "D" flag, we can blindly delete it.

	lda [<ZPTemp1]	; Get 1st FileSpec flag
	and #FlagD	;   and isolate "D" flag bit
	bne DeleteFirst	; If 1st DOES contain a "D"...

; If second FileSpec flag contains "D" flag, we'll move the first 14 bytes of
; data from the first FileSpecField to the second before deleteing the first,
; thus using the flags and options in the first.

	lda [<ZPTemp]	; Get 2nd FileSpec flag
	and #FlagD	;   and isolate "D" flag bit
	beq CheckFlagU	; If 2nd does NOT contain a "D"...

	ldy #0012
MoveLoop	lda [<ZPTemp1],y	; Move data from 1st FileSpecField
	sta [<ZPTemp],y	;   to 2nd FileSpecField
	dey
	dey
	bpl MoveLoop
DeleteFirst1	bra DeleteFirst

; If second FileSpec flag contains "U" flag and first does NOT, remove it
; from the second flag word.

CheckFlagU	lda [<ZPTemp]	; Get 2nd FileSpec flags
	and #FlagU	;   and isolate "U" flag bit
	beq RequiredFlags	; If 2nd does NOT contain a "U"...

;       Second FileSpec flag DOES contain a "U".  Check the first.

	lda [<ZPTemp1]	; Get 1st FileSpec flags
	and #FlagU	;   and isolate "U" flag bit
	bne RequiredFlags	; If 1st DOES contaIn a "U"...

;       First FileSpec flag does NOT contain a "U".  Therefore, we must
;       remove it from the second FileSpec flag.

	lda [<ZPTemp]
	and #$FFFF-FlagU
	sta [<ZPTemp]
	Eject
; Isolate the required flags so we can resolve conflicts in them.

RequiredFlags	lda [<ZPTemp]	; Get 2nd FileSpec flag
	and #%1100000000000000 ; Isolate required flags
	sta SecondFlag

	lda [<ZPTemp1]	; Get 1st FileSpec flag
	and #%1100000000000000 ; Isolate required flags
	sta FirstFlag

;       "2" flag takes precedence over "1", "3", or "4".

	cmp #Flag2	; If 1st FileSpec flag is a "2",
	beq Update2ndFlag	;   write it to the 1st FileSpec flag

	lda SecondFlag	; If 2nd FileSpec flag is a "2",
	cmp #Flag2	;   delete the 1st FileSpecField
	beq DeleteFirst

;       "1" flag takes precedence over "3" or "4".

	lda FirstFlag
	cmp #Flag1	; If 1st FileSpec flag is a "1",
	beq Update2ndFlag	;   write it to the 1st FileSpec flag

	lda SecondFlag	; If 2nd FileSpec flag is a "1",
	cmp #Flag1	;   delete the 1st FileSpecField
	beq DeleteFirst

;       "4" flag takes precedence over "4".

	lda FirstFlag
	cmp #Flag4	; If 1st FileSpec flag is a "4",
	beq Update2ndFlag	;   write it to the 1st FileSpec flag

	lda SecondFlag	; If 2nd FileSpec flag is a "4",
	cmp #Flag4	;   delete the 1st FileSpecField
	beq DeleteFirst

;       If first FileSpec required flag takes precedence over the second
;       FileSpec required flag, store the first FileSpec required flag in
;       the second FileSpec flag.

Update2ndFlag	lda [<ZPTemp]	; Get the 2nd FileSpec flag
	and #%0011111111111111 ; Clear the required bits
	ora FirstFlag	; Store 1st FileSpec's required flag
	sta [<ZPTemp]	;   in 2nd FileSpec flag.

; Delete the first FileSpecField and we're DONE!

DeleteFirst	jsr DeleteField1
	clc	; Signify 2nd FileSpecField deleted.
ResolveDone	rts

FirstFlag	ds.w 1
SecondFlag
Temp	ds.w 1
	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
CalcAndCopy	ProcName
*
* Description:	Performs space calculation and then copies and/or
*	deletes files according to the script instructions.
*	(This subroutine is common to both InstallRemoveSubs and
*	StandardUpdateSub - both Customized Install and Easy Update.)
*
* Inputs:	none
*
* Outputs:	carry set indicates error.
*
* External Refs:
	Import CopyProc
	Import CancelStr
	Import ContinueStr
	Import CurrentVol
	Import NotProDOS
	Import NotProDOSEnd
	Import SpaceCalc
	Import SimpleKeyFilter
	Import File_Sys_ID
	Import CalculateSpace
	Import CheckForInterrupt
	Import CopyAndDeleteFiles
	Import ExecFlag
	Import GetFreeSpaceOnDest
	Import SortSource
	Import UpdateMsgWindow
	Import TotalBlocksForInstall
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
*** moved to here 24-Mar-93 SS
	stz TotalBlocksForInstall
	stz TotalBlocksForInstall+2
*** end 24-Mar-93 SS
; Can only do a space calculation on a ProDOS volume

	lda >File_Sys_ID	; Get the file system ID
	cmp #ProDOSFileSys
	beq CalcSpace

; The volume is NOT ProDOS.  We can't calculate the space requirements.

	ldx #InitCursor
	jsl ToolLocator

; specify the non-ProDOS volume name as the ^1 substitution string for the Alert.

	lda >CurrentVol	; get length of Current Volume name
	xba	; swap length word to make it a length byte
	sta >CurrentVol

	pea CurrentVol>>16	; string ^0: the non-ProDOS volume name
	lda #CurrentVol	; low word
	inc a	; point to length byte, not length word
	pha
	pea #0000	; string ^1: no change
	pea #0000
	pea #0000	; string ^2: no change
	pea #0000
	pea #0000	; string ^3: no change
	pea #0000
	ldx #ParamText
	jsl ToolLocator

; Let the user decide whether to continue.

	pha	    ; Space for result
	pea AlertTemplate1>>16  ; alertTemplatePtr
	pea |AlertTemplate1
	pea SimpleKeyFilter>>16 ; filterProcPtr
	pea |SimpleKeyFilter
	ldx #Alert
	jsl ToolLocator	    ; Leave result on stack

	ldx #WaitCursor
	jsl ToolLocator

	lda >CurrentVol	; put back word length of Current Volume name
	xba	; swap length byte to make it a length word
	sta >CurrentVol

	pla	; Now, retrieve the result
	cmp #0001	; If user hit OK, go ahead
	beq CopyAndDelete
	lda #-1
	sec
	bra Exit	; If user hit Cancel, we're done

; Get free space on destination volume.

CalcSpace	jsr GetFreeSpaceOnDest
	bcs Exit

	sec	; (Don't display "Unknown Mix" dialog)
	jsr CheckForInterrupt ; Did user press OpenApple-<period>?
	bcs Exit

; Calculate space requirements

	lda #SpaceCalc	; More info for user.
	jsr UpdateMsgWindow

	jsr SortSource	; organize scattered source disk FileSpecs together
	bcs Exit	; exit if error

	jsr CalculateSpace	; (and delete unneeded Update fields (no target))
	bcs Exit	; canÕt proceed if not enough space on dest disk

	sec	; (Don't display "Unknown Mix" dialog)
	jsr CheckForInterrupt ; Did user press OpenApple-<period>?
	bcs Exit

; Delete and/or copy files

CopyAndDelete	lda #CopyProc	; Continue to keep user up to date
	jsr UpdateMsgWindow

	jsr CopyAndDeleteFiles
	bcs Exit

	sec	; Indicate that one or more scripts
	ror ExecFlag	;  were executed.

Exit	rts
	Eject
; This is the AlertTemplate for the dialog notifying the user that their
; destination volume is NOT a ProDOS volume and, therefore, we cannot
; determine the space requirements of the update.

AlertTemplate1

@Width    equ 370		; Local equates for the alert template
@Height   equ 78
@BtnWidth equ 80
@MarginWid equ 20

@Top      equ (200/2)-(@Height/2)+12
@Left     equ (640/2)-(@Width/2)
@Bottom   equ @Top+@Height
@Right    equ @Left+@Width

	dc.w @Top,@Left,@Bottom,@Right
	dc.w $6789	 ; AlertID
	dc.b $80,$80,$80,$80 ; Stage1, Stage2, Stage3, Stage4
	dc.l @FirstItem	 ; First item template
	dc.l @SecondItem	 ; Second item template
	dc.l @ThirdItem	 ; Third item template
	dc.l 00000000

@FirstItem	dc.w 0001		; ItemID
	dc.w @Height-20		; ItemRect
	dc.w @Width-@MarginWid-@BtnWidth-2
	dc.w @Height-8
	dc.w @Width-@MarginWid-2
	dc.w ButtonItem		; ItemType
	dc.l ContinueStr		; ItemDescr
	dc.w 0000		; ItemValue
	dc.w 0000		; ItemFlag
	dc.l 00000000		; ItemColor

@SecondItem	dc.w 0002		; ItemID
	dc.w @Height-20		; ItemRect
	dc.w @Width-@MarginWid-@MarginWid-@BtnWidth-@BtnWidth-4
	dc.w @Height-8
	dc.w @Width-@MarginWid-@MarginWid-@BtnWidth-4
	dc.w ButtonItem		; ItemType
	dc.l CancelStr		; ItemDescr
	dc.w 0000		; ItemValue
	dc.w 0000		; ItemFlag
	dc.l 00000000		; ItemColor

@ThirdItem	dc.w 0003		; ItemID
	dc.w 5,@MarginWid,@Height-21,@Width-@MarginWid  ; ItemRect
	dc.w LongStatText2+ItemDisable	; ItemType
	dc.l NotProDOS		; ItemDescr
	dc.w NotProDOSEnd-NotProDOS	; ItemValue
	dc.w 0000		; ItemFlag
	dc.l 00000000		; ItemColor

	EndP ;{CalcAndCopy}
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
GetFreeSpaceOnDest	Proc
*
* Description:	Determine amount of free space on destination volume
*
* Inputs:	none
*
* Outputs:	none
*
 Export	GetTargetDInfo
*
* Description:	get device info of the target by first getting 
*	device number of CurrentVol, then doing DInfo
*
* Inputs:	none
*
* Outputs:	carry set if error from either GetDevNum or DInfo call
*
* External Refs:
	Import CurrentVol	; From Data.asm
*
	Import Error	; From MainSub.asm
*
	Import FreeSpace
	Import GetInfoParms
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

; Check if the destination is write-protected.

@1	jsr GetTargetDInfo
	bcs @Exit

	jsl GSOS
	dc.w D_Status
	dc.l D_Status_Parms
	bcs @2

	lda StatusList
	and #%0000000000000100 ; Check "write protected" bit
	beq @01
	lda #WriteProtected
	sec
	bra @2

; We're not write protected.  Get free space.

; The only way I can see to get freeBlocks on the volume, with class 1 calls,
; is to:
;
;       GetDevNumber  (volName --> devNum)          <-- [ALREADY DONE, ABOVE]
;       D_Info        (devNum  --> devName)
;       Volume        (devName --> freeBlocks)

@01	jsl GSOS
	dc.w Volume
	dc.l Volume_Parms
	bcc @3

@2	ldx #CurrentVol	; Oops!
	ldy #^CurrentVol
	jsl Error
	bcc @1
	rts

@3	lda VolFreeBlocks
	sta FreeSpace
	lda VolFreeBlocks+2
	sta FreeSpace+2

	lda #0000
	clc
@exit	rts
	Eject
; ENTRY:
; get device info of the target by first getting device number of CurrentVol

GetTargetDInfo	lda #CurrentVol	; Set up pathname pointer
	sta GetDevNumName
	lda #^CurrentVol
	sta GetDevNumName+2

@1	jsl GSOS
	dc.w Get_Dev_Num
	dc.l GetDevNumParms	; Borrow this parameter table
	bcs @2

	lda GetDevNumNum	; Contains the device number
	sta D_Status_DevNum
	sta D_Info_devNum

	jsl GSOS
	dc.w D_Info
	dc.l D_Info_Parms
	bcc @done

@2	ldx #CurrentVol	; Oops!
	ldy #^CurrentVol
	jsl Error
	bcc @1
@done	rts
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

GetDevNumParms	dc.w 0002	; pCount
GetDevNumName	ds.l 1	; devName  (Volume name)
GetDevNumNum	ds.w 1	; devNum

D_Status_Parms	dc.w 0005	; pCount
D_Status_DevNum	ds.w 1	; devNumber
D_Status_StatCode	dc.w 0000	; code
D_Status_StatPtr	dc.l StatusList	; list
D_Status_ReqCnt	dc.l 00000006	; requestCount
D_Status_TranCnt	ds.l 1	; transferCount

	Export D_TargetDevID
D_Info_Parms	dc.w 0008	; pCount
D_Info_devNum	ds.w 1	; devNum  (Device name)
D_Info_devName	dc.l devName	; devName
	ds.w 1	; characteristics
	ds.l 1	; totalBlocks
	ds.w 1	; slotNum
	ds.w 1	; unitNum
	ds.w 1	; version
D_TargetDevID	ds.w 1	; deviceID

Volume_Parms	dc.w 0004	; pCount
VolDevName	dc.l devName+2	; devName
VolVolName	dc.l volName	; volName
VolTotalBlocks	ds.l 1	; totalBlocks
VolFreeBlocks	ds.l 1	; freeBlocks

StatusList	ds.b 6

devName	dc.w 35
	ds.b 33

volName	dc.w 35
	ds.b 33
	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
CompactScript	Proc
*
* Description:	The following code compacts the Script file by stripping
*	off the header, discarding all comments, and pre-processing
*	the File Specification Fields.
*
* Inputs:	none
*
* Outputs:	none
*
* External Refs:
	Import CurrentVolBuf   ; From Data.asm
	Import MyID	   ; From Data.asm
*
	Import Dereference	   ; From MainSub.asm
	Import Error	   ; From MainSub.asm
	Import GetAppDirPtr	   ; From MainSub.asm
	Import GetCurDirPtr	   ; From MainSub.asm
	Import ResizeCurDirBuf ; From MainSub.asm
*
	Import C1InpToGStr	   ; From GString.lib
	Import GStrDispose	   ; From GString.lib
	Import GStrNew	   ; From GString.lib
	Import GStrResize	   ; From GString.lib
	Import GStrToC1INP	   ; From GString.lib
	Import GStrToGStr	   ; From GString.lib
*
	Import ExpandPathParms
	Import ExpandInputPath
	Import ExpandOutputPath
*
	Import CurFileInfo
	import DeleteField
	Import InstallVol
	Import OldMemSize
	Import ResizeScriptMemory
	Import ScriptFlag
	Import ScriptSize
*
	Import CurFileInfo
	Import EndOfThisData
	Import NoMoreFileSpecs
	Import NumberOfFileSpecs
	Import ScriptParentLevel
	Import ThisFlagWord
	Import ThisFileType
	Import ThisAuxFileType
	Import ThisFileDate
	Import ThisSrcSize
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
	Eject
	stz NoMoreFileSpecs	; Clear these flags first
	stz NumberOfFileSpecs
	lda #$FFFF	; default if no ScriptParentFlag
	sta ScriptParentLevel

	jsl GetAppDirPtr
	jsl GetCurDirPtr

; Check the ScriptFlag word to be sure it is valid.  (I know...we already
; accepted it once when we built the list of scripts at Installer startup.
; but we didn't check it very well then.)

; check the third flag, ScriptParentFlag, for validity:  digit, dash, or return
; set ScriptParentLevel based on this

	ldy #ScriptFlagField+2
	lda [<ZPTemp],y
	and #$FF
	cmp #Return
	beq @testFirst2Flags  ; no 3rd or subsequent flags
	cmp #'-'
	beq @testFlag4  ; no-action 3rd flag: leave $FFFF in ScriptParentLevel
	cmp #'0'
	bcc @setError	; lower than '0': error
	cmp #'9'+1
	bcs @setError	; higher than '9': error
	and #$000F	; convert '0'-'9' to 0-9
	sta ScriptParentLevel

; check the fourth flag, PreventBootFlag, for validity:  ÔbÕ, ÔBÕ or return

@testFlag4	iny	; ScriptFlagField+3
	lda [<ZPTemp],y
	and #$FF
	cmp #Return
	beq @testFirst2Flags  ; no 4th or subsequent flags
	and #%1111111111011111 ; (Make 2nd char case insensitive)
	cmp #'B'
	bne @setError	; error if not ÔbÕ or ÔBÕ 

; Check the first two flags for validity
@testFirst2Flags	ldy #ScriptFlagField
	lda [<ZPTemp],y
	tax
	lda ScriptFlag
	and #$00DF	; Look at 2nd char (UPPER case): 'X' or 'R'
	cmp #'R'	; Is directory selection required?
	beq @DontSetX	; bra if already 'R': don't reset it to 'X'
	stx ScriptFlag	; else store whatever we've got now
@DontSetX	txa	; get ScriptFlagField back
	xba	; 1st char was in lo byte; swap to hi byte for easy reading
	and #%1111111111011111 ; Make 2nd char case insensitive
	cmp #'RR'	; Check for all legal combinations
	beq @0
	cmp #'XR'
	beq @1
	cmp #'RN'
	beq @0
	cmp #'XN'
	beq @1

@setError	sec
	lda #$008D
	jsl Error
	brl ErrorExit

; The script header specifies that the installation must occur in the root
; directory of the user's currently specified volume.  So, move contents of
; CurrentVolBuf into location pointed to by CurDirPtr for processing.


@0	pea CurrentVolBuf>>16
	pea |CurrentVolBuf
	pei <CurDirPtr+2
	pei <CurDirPtr
	jsl GStrToGStr

	jsl ResizeCurDirBuf
	bcs @0
	bra @2

; The script header specifies that the installation must occur in the
; user's specified Application directory.  So, move contents referenced by
; AppDirHdl into location pointed to by CurDirPtr for processing.

@1	pei <AppDirPtr+2
	pei <AppDirPtr
	pei <CurDirPtr+2
	pei <CurDirPtr
	jsl GStrToGStr

	jsl ResizeCurDirBuf
	bcs @1

; Remove the first part of the header field up to and including the 
; return before the source prefix entry.

@2	jsr RemoveHeader

; Extract the src prefix and delete the remainder of the header by moving
; everything down so we are positioned at the beginning of the first FileSpec field

	jsr ExtractSrcPrefix

; Process each of the file specs in the script.

	bra Check4FileSpec

Loop	jsr ProcessFileSpec
	bcs ErrorExit
	lda NoMoreFileSpecs	; if last flag word was zero then we are done.
	bne FinishCompacting

; Find next FileSpec.  If the current <ZPTemp is pointing at an asterisk, we're
; looking at a comment field, so delete it and try again.

Check4FileSpec	lda [<ZPTemp]
	and #$00FF
	cmp #CommentChar
	bne Loop

	ldy #0	; seek to next field separator and delete
	jsr SeekPastSeparator ; this field
	jsr DeleteField
	bra Check4FileSpec

; Find out if we actually processed any FileSpec fields.  If not, terminate
; processing.

FinishCompacting	lda NumberOfFileSpecs
	bne @0
	brl ErrorExit
@0

; We've now stripped the header and all comments from the script and compacted
; it into a smaller	space.  No need to resize the memory, upon return, the
; calling routine will eventually dispose of it.

;;;	lda #FieldSeparator
;;;	sta [<ZPTemp]
;;;
;;;	inc <ZPTemp
;;;	bne @1
;;;	inc <ZPTemp+2
;;;@1
;;;	lda [<ScriptHandle]	; Dereference the handle to find the
;;;	sta <ZPTemp1	;   start of the script again
;;;	ldy #0002
;;;	lda [<ScriptHandle]
;;;	sta <ZPTemp1+2
;;;
;;;	sec	; Calculate size of	compacted script
;;;	lda <ZPTemp
;;;	sbc <ZPTemp1
;;;	sta ScriptSize
;;;	lda <ZPTemp+2
;;;	sbc <ZPTemp1+2
;;;	sta ScriptSize+2
;;;
	rts

ErrorExit	sec
	rts

	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
RemoveHeader
;
; Description:	Deletes all the characters in the script file from the
;	beginning up to and including the first RETURN past the
;	end of the comment field.
;
;	<ZPTemp is unchanged, but points to different data in
;	the script.
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

	ldy #0000	; Find the double back-slash that
BackSlashLoop	lda [<ZPTemp],y	;  terminates the ScriptHelp
	cmp #'\\'
	beq FoundBackSlash
	iny
	bne BackSlashLoop

FoundBackSlash	iny
	iny

	jsr SeekPastReturn	; Now get past the return character

	jsr DeleteField

	rts
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
ExtractSrcPrefix
;
; Description:	If ScriptParentLevel is 0-9, extracts script directory (0),
;	its parent (1), its grandparent (2), ... (9).
;
;	Then extracts the text from the point pointed to by <ZPTemp
;	until the first field separator is reached, and appends it.
;
;	If there is neither ScriptParentLevel nor source prefix 
;	specified in the script, we copy the name of the volume
;	the installer is running from into the SrcPrefix.
;
;	SourcePfx is a memory segment obtained from the memory
;	manager and the prefix is stored as a GStr.
;
;	After extracting the prefix we delete the rest of the
;	header field and move everything down so that the first
;	FileSpec is now at the beginning of the
;	buffer.
;
; Inputs:	none
;
; Outputs:	none
;
; Uses:	ScriptParentLevel	(set to 0-9 to append a parent pathname or $FFFF)
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

; Get some memory to hold the source prefix

	pha	; Room for result
	pha
	pea 0000	; (use GStr's default length)
	lda >MyID
	pha
	jsl GStrNew	; Get a new, locked buffer
	plx
	stx <SourcePfxPtr
	ply
	sty <SourcePfxPtr+2
	bcc ExtractPrefix	; bra based on GStrNew success/failure

EPMemoryError	lda #$0081	; Out of memory
	jsl Error
	brl Done

; Does ScriptParentLevel hold a parent level # of the current script to use as a prefix?

ExtractPrefix
	ldx #0000	; 0 length so far
	lda ScriptParentLevel
	cmp #HighestParent+1  ; valid values of ScriptParentLevel: 0-9
	bcs NoParentPrefix	; bra if no parent directory requested; X has 0 len

; Use a parent of the directory the script is in
; ScriptFilename holds a pathname like xx:Volume:path:scriptname where xx is length

	tax	; save parentlevel
	lda [<ScriptFilename]  ; get length of script filename
	tay

; Y holds length of ScriptFilename; X holds ScriptParentLevel

FindParentLoop	lda [<ScriptFilename],y  ; start at 2nd-to-last char (y-1th char)
	and #$00FF	; char in lo byte only
	dey	; yth character in string itself
	cpy #1	; limit: weÕre at the leading colon
	beq CopyParent
	cmp #SeparatorChar	; is char in lo byte a colon?
	bne FindParentLoop	; loop if not a separator char

	dex	; found a colon
	bpl FindParentLoop	; loop if still looking for more parents

; Parent prefix is the first Y chars of ScriptFilename
; copy to SourcePfxPtr (GS/OS output string: xx:xx:Volume:path)

CopyParent
	dey	; donÕt include trailing colon
	tyx	; save length in X
CopyParentLoop	lda [<ScriptFilename],y  ; get word starting 2 bytes before trailing colon
	iny	; past output string overhead (bufferlen)
	iny
	sta [<SourcePfxPtr],y
	dey	; unto output string overhead
	dey
	dey	; go to previous word
	dey
	bpl CopyParentLoop

; Now append the source prefix in the script to the scriptParentPrefix already in SourcePfxPtr
; X reg holds current length of SourcePfxPtr string

	sep #$20
	LongA Off

	lda [<ZPTemp]	; get the first char
	cmp #FieldSeparator
	beq EndOfPrefix	; bra if no prefix in script header (done)

; check for initial separator on scriptPrefix

	cmp #'/'	; compare 1st char
	beq ExtractLoopInit	; if initial separator, can append to scriptParent ok
	cmp #SeparatorChar
	beq ExtractLoopInit

; no initial separator: add a trailing separator to scriptParent before appending scriptPrefix

	inx	; increment length for separator
	txy
	iny	; increment past output string overhead
	iny
	iny
	lda #SeparatorChar	
	sta [<SourcePfxPtr],y

; now move scriptPrefix from ZPTemp
; X reg holds current length of SourcePfxPtr string

NoParentPrefix	sep #$20
	LongA Off

ExtractLoopInit	ldy #0000	; init ZPTemp index & length

ExtractLoop
	lda [<ZPTemp],y
	cmp #FieldSeparator
	beq EndOfPrefix
	cmp #'/'	; Gotta change '/' to SeparatorChar
	bne @1
	lda #SeparatorChar
@1	phy	; save ZPTemp index
	inx	; increment length
	txy
	iny	; increment past output string overhead
	iny
	iny
	sta [<SourcePfxPtr],y
	ply	; restore ZPTemp index
	iny
	bra ExtractLoop

; X reg holds length of SourcePfxPtr string

EndOfPrefix	rep #$20
	LongA ON

	txa	; Put length into A so can store

; If source prefix is of len zero, there was no source prefix specified in the script.
; (or a scriptParent flag drove the parent level higher than the volume name!)

	bne GotPrefix
	ldx ScriptParentLevel
	cpx #HighestParent+1  ; valid values of ScriptParentLevel: 0-9
	bcs UseVolumeName	; bra if no parent directory requested

GotPrefix	ldy #0002	;   length word
	sta [<SourcePfxPtr],y

	pha	; If it didn't fit the first time,
	pha	;   try again.
	pei <SourcePfxPtr+2
	pei <SourcePfxPtr
	jsl GStrResize
	pla
	sta <SourcePfxPtr
	pla
	sta <SourcePfxPtr+2
	bcc PrefixOK

	cmp #0004	; GStrBufferError ?
	bne EPMemoryErrorJ
	brl ExtractPrefix

; If the source prefix is of length zero, there was no source prefix
; specified in the script, so use the Installer program's volume name

UseVolumeName	lda <SourcePfxPtr	; Get prefix #9 (the directory from
	sta GetPfxPath	;   which the Installer was launched).
	lda <SourcePfxPtr+2
	sta GetPfxPath+2
@0
	jsl GSOS
	dc.w Get_Prefix
	dc.l GetPfxParms

	pha	; If it didn't fit the first time,
	pha	;   try again.
	pei <SourcePfxPtr+2
	pei <SourcePfxPtr
	jsl GStrResize
	pla
	sta <SourcePfxPtr
	pla
	sta <SourcePfxPtr+2
	bcc BeginSearch

	cmp #0004	; GStrBufferError ?
	beq @0

EPMemoryErrorJ	brl EPMemoryError

BeginSearch

; Change the length word to truncate the prefix to just a volume name (strip path).

	ldy #0004	; Skip leading separator character (iny yields 5)
@Search	iny
	lda [<SourcePfxPtr],y
	and #$00FF	; just char in low byte
	cmp #SeparatorChar
	bne @Search

; found the volumeÕs trailing separator char

	tya	; Convert index into length word
	sec
	sbc #0004	; subtract 4th to not include trailing colon
	ldy #0002	;   and store back into the GStr
	sta [<SourcePfxPtr],y

	pha	; Resize the memory for perfect fit.
	pha
	pei <SourcePfxPtr+2
	pei <SourcePfxPtr
	jsl GStrResize
	pla
	sta <SourcePfxPtr
	pla
	sta <SourcePfxPtr+2

; Moving right along...  Delete the remainder of the header.

PrefixOK	jsr SeekPastSeparator ; (No comments permitted.)

	jsr DeleteField

Done	rts
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
SeekPastReturn
;
; Description:	Starting at current y-reg, look at the characters in the
;	buffer and find the next return (0D).  Return with the
;	y-reg set to one past the first return.
;
;	If seeking past the next return should for some reason
;	get us past the end of the script, an error is displayed
;	and this routine exits through an escape hatch in the
;	main InstallSub that cleans up the stack.
;
; Inputs:	none
;
; Outputs:	cFlag clear: no error
;	cFlag set: no return found before reaching end of script.
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

	sep #$20
	LongA Off

@Loop	lda [<ZPTemp],y
	cmp #Return
	beq @GotIt

	iny
	cpy ScriptSize
	bne @Loop

; If we get to this point, we went to far in the script.

	rep #$20
	LongA On

	lda #$0085	; Display the error
	sec
	jsl Error
	rts

@GotIt	iny

	rep #$20
	LongA On

	clc
	rts
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
SeekPastSeparator
;
; Description:	Starting at current y-reg, look at the characters in
;	the buffer and find the next separator character (~).
;	Return with the y-reg set to one past the first separator.
;
;	If seeking past the next separator should for some reason
;	get us past the end of the script, an error is displayed
;	and this routine exits through an escape hatch in the
;	main InstallSub that cleans up the stack.
;
; Inputs:	Y is index into ZPTemp.
;
; Outputs:	cFlag clear: no error
;	    Y is index into ZPTemp, set to one past the separator char.
;	cFlag set: no separator found before reaching end of script.
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

	sep #$20
	LongA Off

@Loop	lda [<ZPTemp],y
	cmp #FieldSeparator
	beq @GotIt

	iny
	cpy ScriptSize
	bne @Loop

; If we get to this point, we went too far in the script.

	rep #$20
	LongA On

	lda #$0085	; Display the error
	sec
	jsl Error
	rts

@GotIt	iny

	rep #$20
	LongA On

	clc
	rts
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
ProcessFileSpec	Name
;
; Description:	<ZPTemp Points to the first byte of a file spec (after
;	the separator).
;
;	This routine processes the file spec by putting all the
;	information  into the temporary fields at the top of
;	this file.
;
;	Slashes in filenames are translated to colons.
;
;	After the information is extracted, it's copied back
;	into the script in this compacted form.
;
; Inputs:	none
;
; Outputs:	cFlag Clear: no errors
;	cFlag Set: error occurred
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

; Start by zeroing out all the current variables

	ldx #EndOfThisData-CurFileInfo-2
@1	stz CurFileInfo,x
	dex
	dex
	bpl @1
	stz CurFileInfo	; (Just in case the data was not
		;   an even number of bytes...)
	stz ReqFlag	; Zero the Required Flag too

; Get the first character of the field.  If it's not a FieldSeparator, there
; is more script to process.

	lda [<ZPTemp]
	and #$00FF
	cmp #FieldSeparator
	bne MoreScriptToGo

; There's no more script to process.

	lda #True
	sta NoMoreFileSpecs
	clc
	rts

; There is more script to process!

MoreScriptToGo	inc NumberOfFileSpecs
	ldy #FlagsWord+$10	; Initial Y-reg to process the flags

FlagLoop	lda [<ZPTemp],y	; Last flag is followed by a <return>
	and #$00FF
	cmp #Return
	beq DoneWithFlags

	phy
	jsr UpdateFlagWord
	ply
	bcc @1
	brl Exit
@1
	jsr SeekPastReturn	; Must return y

	bra FlagLoop

; We've handled all the flags.  Now check that the rules were followed...
;      1.)  There is a required flag
;      2.)  "U" flag requires a "1" or "2" flag.
;      3.)  "B" flag requires a "2" flag.
;      4.)  "D" flag requires a "4" flag.

DoneWithFlags	bit ReqFlag
	bmi BadFormat

	lda ThisFlagWord	; Get the flag word
	bit #FlagU	; Check for "U" flag
	beq @1	; If "U" flag not set, go on
	bit #%1011111111111111 ; Check for other than "1" or "2" flag
	beq BadFormat	; If other than "1" or "2" set, bad format

@1	bit #FlagD	; Check for "D" flag
	beq @2	; If "D" flag not set, go on
	bit #Flag4	; Check for "4" flag
	beq BadFormat	; If "4" not set, bad format

@2	bit #FlagB	; Check for "B" flag
	beq FlagsOK	; If "B" flag not set, go on
	bit #Flag2	; Check for "2" flag
	bne FlagsOK	; If "2" is set, we're OK

BadFormat	lda #$0086	; Oops...bad script	format
	sec
	jsl Error
	brl Exit

FlagsOK	iny	; Bump y past last return

; Process the type information (if any)

	phy
	jsr ProcessTypeInfo
	ply

	jsr SeekPastReturn

; Process the date

	phy
	jsr ProcessDateInfo
	ply

	jsr SeekPastReturn
	sty Index

; Extract the pathnames

;       Get some memory to save the prefix

	pha	; Room for result
	pha
	pea 0000	; (use GStr's default length)
	lda >MyID
	pha
	jsl GStrNew	; Get a new, locked buffer
	plx
	stx SavePfxPath
	ply
	sty SavePfxPath+2
	bcs PFSMemoryError

;       Save the current system prefix

SavePrefix	jsl GSOS
	dc.w Get_Prefix
	dc.l SavePfxParms

;       If it didn't fit, resize the buffer and try again.

	pha	; If it didn't fit, resize the buffer
	pha	;   and try again.
	lda SavePfxPath+2
	pha
	lda SavePfxPath
	pha
	jsl GStrResize
	pla
	sta SavePfxPath
	pla
	sta SavePfxPath+2
	bcc @NoError

	cmp #0004	; GStrBufferError ?
	beq SavePrefix

	bra PFSMemoryError

;       Get some memory for the source pathname

@NoError	pha	; Room for result
	pha
	pea 0000	; (use GStr's default length)
	lda >MyID
	pha
	jsl GStrNew	; Get a new, locked buffer
	plx
	stx <SourcePtr
	ply
	sty <SourcePtr+2
	bcc PFSNoMemoryError

PFSMemoryError	lda #$0081	; Out of memory
	jsl Error
	brl Exit
PFSNoMemoryError

;       Build us a full pathname in SourcePtr.

; First move SourcePfxPtr (the prefix) into SourcePtr

ExpandSourceName	pei <SourcePfxPtr+2
	pei <SourcePfxPtr
	pei <SourcePtr+2
	pei <SourcePtr
	jsl GStrToGStr

;       The source pathname in the script is a <return> terminated string.
;       Make it a GS/OS Class 1 input string.  (We can overwrite
;       stuff ahead of it--we're through with that info.)
;       Also count chars, and convert '/'s to ':'s.

	clc	; Point to the input pathname
	lda <ZPTemp
	adc Index
	tax
	lda <ZPTemp+2
	adc #0000

	pha
	phx
	jsr FixPathname	; convert to C1, count chars, substitute colons
	pha	; push the length (pointer to C1 string already on stack)

; Is the script pathname a full pathname or a partial pathname?

	ldy Index	; Point to the input pathname
	lda [<ZPTemp],y	; get first char
	and #$00FF	; lo byte only
	cmp #SeparatorChar
	beq GotFullPath

; No separator at start of scriptPath;
; so add separator to end of prefix, then append scriptPath.
	
	ldy #0002
	lda [SourcePtr],y	; get prefix length
	tax	; save previous (prefix) length in X

	pla	; length of scriptPath
	inc a	; add 1 to count separator char we'll add
	clc
	adc [SourcePtr],y	; add prefix length
	sta [SourcePtr],y	; new combined length
	ply	; (discard pointer to C1 string)
	ply	; (hi)
	dec a	; (equal becomes less, for branch)
	cmp [SourcePtr]	; check combined length-1 against size of buffer
	bcs ResizeBuff	; if new leng is bigger (len-1 is >=), resize buffer
	
	sep #$20
	longa off
	inx	; X has length of previous (prefix) in SourcePtr
	inx	; increment to point to next available buffer position
	inx	; (make it an index)
	lda #SeparatorChar	; store a colon before appending scriptPath
	ldy Index	; offset in ZPTemp to scriptPath

CopyScriptPathLoop	phy	; save ZPTemp index
	inx	; point result index to next free byte
	txy
	sta [SourcePtr],y	; store the char
	ply
	lda [<ZPTemp],y	; get scriptPath char
	iny	; point source index to next char
	cmp #Return	; ReturnChar doesnÕt get moved
	bne CopyScriptPathLoop

	rep #$20
	longa on

	bra ResizeBuff
	
; Separator at start of script; this is a full pathname.
; Copy it whole (no prefix) to SourcePtr.
; Length of scriptPath & Pointer to C1 version of scriptPath are still on the stack.
GotFullPath	pla	; pull scriptPath len off stack (discard)
	pei <SourcePtr+2	; (pointer to scriptPath is already on stack)
	pei <SourcePtr
	jsl C1InpToGStr

ResizeBuff	pha	; If it didn't fit, resize the buffer
	pha	;   and try again.
	pei <SourcePtr+2
	pei <SourcePtr
	jsl GStrResize
	pla
	sta <SourcePtr
	pla
	sta <SourcePtr+2
	bcc GetDestName

	cmp #0004	; GStrBufferError ?
	beq ExpandSourceName

PFSMemoryError1	brl PFSMemoryError

;       Get some memory for the destination pathname.

GetDestName
	pha	; Room for result
	pha
	pea 0000	; (use GStr's default length)
	lda >MyID
	pha
	jsl GStrNew	; Get a new, locked buffer
	plx
	stx <DestPtr
	ply
	sty <DestPtr+2
	bcs PFSMemoryError1

;       Let GS/OS build us a full pathname.

	clc	; Point to the strings lengthWord
	lda <CurDirPtr
	adc #0002
	sta SetPrefixPath
	lda <CurDirPtr+2
	adc #0000
	sta SetPrefixPath+2

	jsl GSOS	; Set the system prefix
	dc.w Set_Prefix
	dc.l SetPrefixParms

	ldy Index
	jsr SeekPastReturn
	sty Index

	clc	; Point to the input pathname
	lda <ZPTemp
	adc Index
	tax
	lda <ZPTemp+2
	adc #0000

	pha
	phx
	jsr FixPathname	; convert to C1, count chars, substitute colons
	pla
	sta ExpandInputPath
	pla
	sta ExpandInputPath+2

ExpandDestName	lda <DestPtr	; Point to the output pathname buffer
	sta ExpandOutputPath
	lda <DestPtr+2
	sta ExpandOutputPath+2

	jsl GSOS	; Build a full pathname in the memory
	dc.w Expand_Path
	dc.l ExpandPathParms

	pha	; If it didn't fit, resize the buffer
	pha	;   and try again.
	pei <DestPtr+2
	pei <DestPtr
	jsl GStrResize
	pla
	sta <DestPtr
	pla
	sta <DestPtr+2
	bcc StoreData

	cmp #0004	; GStrBufferError ?
	beq ExpandDestName

PFSMemoryError3	brl PFSMemoryError

; Resize the SuperScript's memory to hold the acquired information:
; 16 bytes (data) + 4 bytes (2 lengthWords) + source pathname + destination name.

StoreData	ldy #4	; Unlock the handle
	lda [<ScriptHdl],y
	and #$FFFF-attrLocked
	sta [<ScriptHdl],y

; Save the old memory size in "Temp" and calculate the new memory size needed.
; Then resize the memory and get the pointer,

	pha	; Get current SuperScript memory size
	pha
	pei <ScriptHdl+2
	pei <ScriptHdl
	ldx #GetHandleSize
	jsl ToolLocator

	clc	; Calculate new memory size
	pla
	sta Temp
	adc #0021	; Data size + 2 lengthWords + tilde
	ldy #0002
	adc [<SourcePtr],y	; Source pathname size
	adc [<DestPtr],y
	tax
	pla
	sta Temp+2
	adc #0000
	tay

	jsr ResizeScriptMemory
	bcc @GoAhead
	brl Exit
@GoAhead
	lda <ScriptPtr
	sta <ZPTemp
	lda <ScriptPtr+2
	sta <ZPTemp+2

; Set up <ZPTemp2 as the pointer to the beginning of the new FileSpec in the
; SuperScript.

	clc
	lda <ZPTemp
	adc Temp
	sta <ZPTemp2
	lda <ZPTemp+2
	adc Temp+2
	sta <ZPTemp2+2

; Copy the extracted information back into the script

	lda ThisFlagWord	; Flag word
	sta [<ZPTemp2]

	ldy #FileTypeWord	; File type
	lda ThisFileType
	sta [<ZPTemp2],y

	iny	; Aux File Type
	iny
	lda ThisAuxFileType
	sta [<ZPTemp2],y
	iny
	iny
	lda ThisAuxFileType+2
	sta [<ZPTemp2],y

	iny	; The File date
	iny
	lda ThisFileDate
	sta [<ZPTemp2],y
	iny
	iny
	lda ThisFileDate+2
	sta [<ZPTemp2],y

	iny	; The Src Size
	iny
	lda #0
	sta [<ZPTemp2],y
	iny
	iny
	sta [<ZPTemp2],y

	clc	; The source pathname
	lda #Pathnames
	adc <ZPTemp2
	tax
	lda #0000
	adc <ZPTemp2+2

	pei <SourcePtr+2
	pei <SourcePtr
	pha
	phx
	jsl GStrToC1Inp

	clc	; The destination pathname
	lda #Pathnames+2
	adc <ZPTemp2
	ldy #0002
	adc [<SourcePtr],y
	tax
	lda #0000
	adc <ZPTemp2+2

	pei <DestPtr+2
	pei <DestPtr
	pha
	phx
	jsl GStrToC1Inp

; Get the index to just past the end of the new FileSpecField

	clc
	lda #Pathnames+4
	ldy #0002
	adc [SourcePtr],y
	adc [DestPtr],y
	tay

; Put in the new separator

	sep #$20
	LongA Off

	lda #FieldSeparator
	sta [<ZPTemp2],y

	LongA On
	rep #$20

; Restore the system prefix

	inc SavePfxPath	; Point to lengthWord
	bne *+5
	inc SavePfxPath+2
	inc SavePfxPath
	bne *+5
	inc SavePfxPath+2

	jsl GSOS
	dc.w Set_Prefix
	dc.l SavePfxParms

; Dispose of the memory used by the pathnames and prefixs

Exit	pha	; Preserve error code and cFlag
	php

	pei <SourcePtr+2
	pei <SourcePtr
	jsl GStrDispose

	pei <DestPtr+2
	pei <DestPtr
	jsl GStrDispose

	lda SavePfxPath+2
	pha
	lda SavePfxPath
	pha
	jsl GStrDispose

; Set <ZPTemp to point to the current individual script again.

	pei <ScriptHandle+2
	pei <ScriptHandle
	jsl Dereference
	pla
	sta <ZPTemp
	pla
	sta <ZPTemp+2

	ldy #0000
	jsr SeekPastSeparator ; sets Y for DeleteField

	jsr DeleteField	; delete from current y to beg. of next field

	plp	; Restore error code and cFlag
	pla
	rts

	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
UpdateFlagWord
;
; Description:	Translates an ASCII flag from the script into an
;	"on" bit in the FlagsWord
;
; Inputs:	A-reg the flag byte from the script that must be
;	translated into a bit in the flag words
;
; Outputs:
;	none
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

	sep #$20
	LongA Off

; Check char to be sure it is a legal flag.

	ldx #FlagListSize
@FlagLoop	dex
	bmi BadFlag
	cmp FlagList,x
	bne @FlagLoop

; It's a legal flag.  We can have one, and only one, of the required flags.
; If this is a mandatory flag, check to	see if it is the ONLY one.

	cpx #RequiredFlag	; Was match a required flag?
	bcs NotRequired	; No
	bit ReqFlag	; Yes!  Was there a	previous match?
	bmi BadFlag	; Yes!  That's too many!  No good!
	sec	; Set c-flag to '1'
	ror ReqFlag	; Rotate c-flag (1)	into ReqFlag
NotRequired	bra GoodFlag

BadFlag	rep #$20
	LongA On

	lda #$0086	; Notify user of script error 
	sec
	jsl Error
	rts

; It is a good flag, so store it's bit pattern in the FlagWord

GoodFlag	rep #$20
	LongA On

	txa	; Double the index
	asl a
	tax
	lda FlagBits,x
	tsb ThisFlagWord

	clc
	rts
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
ProcessTypeInfo
;
; Description:	It parses the type information and and puts it into
;	the global variables ThisFileType and ThisAuxFileType.
;
;	If an error occurs during parsing, a new error message
;	is displayed (number 89 which tells the user that the
;	type information could not be parsed).
;
; Inputs:	none
;
; Outputs:	none
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

; Check to see if we have a null entry for the FileType/Auxtype

	lda [<ZPTemp],y
	and #$00FF
	cmp #Return
	bne ThereIsTypeInfo

	clc
	rts

ThereIsTypeInfo	sty Temp

; Move the FileType	and AuxType entry down by using the Integer Math tools to
; both convert the entry to a hex longword and move it.

	pha	; Room for result

	clc	; Calculate location of FileType string
	lda <ZPTemp
	adc Temp
	tax
	lda <ZPTemp+2
	adc #0000
	pha	; Pointer to FileType string
	phx

	pea 0004	; Length of FileType string

	ldx #Hex2Int
	jsl ToolLocator
	bcs Error2

	pla
	sta ThisFileType

	ldy Temp
	iny
	iny
	iny
	iny	; Point to next char
	sty Temp	;  and save the search index

	pha	; Room for result
	pha

	clc	; Calculate location of AuxType string
	lda <ZPTemp
	adc Temp
	tax
	lda <ZPTemp+2
	adc #0000

	pha	; Pointer to AuxType string
	phx

	pea 0008	; Length of AuxType	string

	ldx #Hex2Long
	jsl ToolLocator
	bcs Error4

	pla
	sta ThisAuxFileType
	pla
	sta ThisAuxFileType+2

	clc
	rts

Error4	plx
Error2	plx

	lda #$0089
	sec
	jsl Error

	rts
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
ProcessDateInfo
;
; Description:	It parses the date information and and puts it into the
;	global variable ThisFileDate.
;
; Inputs:	none
;
; Outputs:	none
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

	lda [<ZPTemp],y
	and #$00FF
	cmp #Return
	bne ThereIsADate

	clc
	rts

; Convert the script's Creation entry to the proper bit pattern

ThereisADate	sty Temp	; Save current offset in temp

;       First the day

	pha	; Space for result

	clc	; Calculate location of day string
	tya
	adc <ZPTemp
	tax
	lda #0000
	adc <ZPTemp+2

	pha	; Pointer to string
	phx
	pea 0002	; String length
	pea 0000	; Un-signed
	ldx #Dec2Int
	jsl ToolLocator
	pla
	sta ThisFileDate
	bcs BadFormat1

;       Now the month--move it left 5 bits before combining with day

	ldy Temp	; Restore search index
	iny	; Advance to month string
	iny
	iny
	sty Temp

	ldx #0000
	lda [<ZPTemp],y	; Get 1st two char of month
	and #%0101111101011111 ; Make both char	case insensitive
MonthLoop	inx
	inx
MonthLoop1	inx
	inx
	cpx #12*4+1	; (No of months * 4) + 1
	bcs BadFormat1
	cmp Months-4,x
	bne MonthLoop

	inx	; 1st two characters match,
	inx	;  check next two
	iny
	iny
	lda [<ZPTemp],y	; Get 2nd two char of month
	and #%0111111101011111 ; Make 1st char case insensitive
	cmp Months-4,x
	beq FoundMonth

	dey	; 2nd two characters didn't match,
	dey	;  restore 1st two characters & continue
	lda [<ZPTemp],y
	and #%0101111101011111 ; Make both char	case insensitive
	bra MonthLoop1

FoundMonth	dex	; Found a match
	dex	;  so back up
	txa
	asl a	; Already shifted 2	places,
	asl a	;  so shift 3 more
	asl a

	ora ThisFileDate
	sta ThisFileDate

	ldy Temp	; Restore search index,
	iny	;  and update to next
	iny
	iny
	iny
	sty Temp

;       Finally, the year--move it left 9 bits before combining with day/month

	pha	; Space for result

	clc	; Calculate location of year string
	tya
	adc <ZPTemp
	tax
	lda #0000
	adc <ZPTemp+2

	pha	; Pointer to string
	phx
	pea 0002	; String length
	pea 0000	; not signed
	ldx #Dec2Int
	jsl ToolLocator
	pla	; Get result
	bcc YearOK

BadFormat1	lda #$0086	; Oops...bad script	format
	sec
	jsl Error
	rts

YearOK	xba	; Move result up 9 bits
	asl a
	ora ThisFileDate
	sta ThisFileDate

; So we have the day, lets get the time.
; First, the hours in the high order byte of CreationTime

	ldy Temp	; Get the search index
	iny	;  and update it
	iny
	iny
	sty Temp

	pha	; Space for result

	clc	; Calculate location of hours string
	tya
	adc <ZPTemp
	tax
	lda #0000
	adc <ZPTemp+2

	pha	; Pointer to string
	phx
	pea 0002	; String length
	pea 0000	; Un-signed
	ldx #Dec2Int
	jsl ToolLocator
	pla	; Get result
	bcs BadFormat1

	xba	; Move to high byte
	sta ThisFileDate+2

; Finally, the hours in the high order byte of CreationTime

	ldy Temp	; Get search index
	iny	;  and update it
	iny
	iny
	sty Temp

	pha	; Space for result

	clc	; Calculate location of minute string
	tya
	adc <ZPTemp
	tax
	lda #0000
	adc <ZPTemp+2

	pha	; Pointer to string
	phx
	pea 0002	; String length
	pea 0000	; Un-signed string
	ldx #Dec2Int
	jsl ToolLocator
	pla	; Get result
	bcs BadFormat1

	ora ThisFileDate+2
	sta ThisFileDate+2

	clc
	rts
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
FixPathname
;
; Description:	Creates a GS/OS Class 1 input string from a <return>
;	terminated string, pointed to by parameter on stack, by
;	adding a lengthWord ahead of the string then replacing
;	the parameter on the stack with a new pointer that points
;	to the lengthWord.  Also translates '/' to ':'.
;
; Inputs:	Pointer to the <return> terminated string.
;
; Outputs:	Pointer to the GS/OS Class 1 input string.
;	Accum still holds length word.
;
; NOTE:	This routine assumes that the two bytes ahead of the
;	<return> terminated string can safely be overwritten!
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

	phd
	tsc
	tcd

	sep #$20
	Longa Off

	ldy #$0000
@Loop
	lda [$05],y	; Search for the <return>
	cmp #'/'
	bne @notSep
	lda #SeparatorChar	; if '/', replace with ':'
	sta [$05],y
@notSep	cmp #Return
	beq @FoundReturn
	iny
	bne @Loop
@FoundReturn
	LongA On
	rep #$20

	phy	; Save the lengthWord

	lda $05	; Back the pointer up to point
	bne *+4	;   to the lengthWord we're going
	dec $07	;   to create
	dec $05
	bne *+4
	dec $07
	dec $05

	pla
	sta [$05]

	pld
	rts

; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

; Local data for CompactScript


; These are the legal flags that may be	found in a script.

FlagList	dc.b '1234'	; All the legal FlagSpec flags
RequiredFlag	equ *-FlagList
	dc.b 'BCFUD'
FlagListSize	equ *-FlagList

; These are the bit	patterns associated	with the above flags.

	Entry FlagBits
FlagBits
	dc.w Flag1	; '1' flag
	dc.w Flag2	; '2' flag
	dc.w Flag3	; '3' flag
	dc.w Flag4	; '4' flag
	dc.w FlagB	; 'B' flag
	dc.w FlagC	; 'C' flag
	dc.w FlagF	; 'F' flag
	dc.w FlagU	; 'U' flag
	dc.w FlagD	; 'D' flag

; These are the months of the year

Months	dc.b 'JAN '
	dc.b 'FEB '
	dc.b 'MAR '
	dc.b 'APR '
	dc.b 'MAY '
	dc.b 'JUN '
	dc.b 'JUL '
	dc.b 'AUG '
	dc.b 'SEP '
	dc.b 'OCT '
	dc.b 'NOV '
	dc.b 'DEC '

ReqFlag	ds.w 1	; Hi-bit set = A required flag was found
Temp	ds.w 1
Index	ds.w 1

GetPfxParms	dc.w 0002	; pCount
	dc.w 0009	; prefixNum
GetPfxPath	ds.l 1	; pathname

SavePfxParms	dc.w 0002	; pCount
	dc.w 0008	; prefixNum
SavePfxPath	ds.l 1

SetPrefixParms	dc.w 0002	; pCount
	dc.w 0008	; prefixNum
SetPrefixPath	ds.l 1	; pathname
	EndP ;{CompactScript}
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
CalculateSpace	ProcName
*
* Description:	A compacted script is now in memory.  We must now
*	determine the space required to be sure the destination
*	volume has enough space.
*
*	First, we'll make a pass through the source disk getting
*	the number of blocks for every source file.  Then, we'll
*	make a pass through the destination volume while keeping
*	a running talley of blocks to be freed up and additional
*	blocks needed.  If we can't make it, we'll notify the
*	user.
*
* Inputs:	none
*
* Outputs:	carry clear unless thereÕs a space problem.
*
* External Refs:
	Import Err88Blocks	; From Data.asm
	Import MyID
	Import UpdateFlag
*
	Import Dereference	; From MainSub.asm
	Import Error
*
	Import C1InpToC1Inp	; From GString.lib
*
	Import CloseParms
	Import CloseRefNum
	Import ConvertDateTime
	Import CurDirectory
	Import DeleteField1
	Import FreeSpace
	Import GetInfoParms
	Import GetInfoDate1
	Import GetInfoTime1
	Import NextFileSpec
	Import OpenRefNum
	Import OpenParms
	Import OpenPath
	Import RemoveFlag
	Import TotalBlocksForInstall
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
	Eject
; If we're REMOVEing, there is nothing to do.

	bit RemoveFlag
	bpl @1
	brl SpaceEnd

; Initialize everything

@1
;	stz TotalBlocksForInstall  ;*** moved earlier in time 24-Mar-93 SS
;	stz TotalBlocksForInstall+2

	stz DataHandle	; Clear the handle to the 1st data
	stz DataHandle+2	;  structure

	stz LargestSize	; Zero-out size
	stz LargestSize+2
;
	lda <ScriptPtr	; Put the script pointer in
	sta <ZPTemp	;  ZPTemp
	lda <ScriptPtr+2
	sta <ZPTemp+2

; This is the main loop for checking size of source files.

SourceSpaceLoop

; If the FlagWord has Flag3 set, we're just going to delete the destination
; file, if it exists, and there is no source pathname.

	lda [<ZPTemp]	; Get the FlagsWord
	and #Flag3
	beq @00	; If hi-bit clear, go on

; It is a deletion request.  The source file doesn't exist (size = zero)

	stz GetInfoUsed	; Source file is size = zero
	stz GetInfoUsed+2
	stz GetInfoResUsed
	stz GetInfoResUsed+2
	brl StoreBlocks

; Find out about the file.

@00
	clc	; Calculate the address of the source
	lda <ZPtemp	;   pathname
	adc #Pathnames
	sta GetInfoPath
	lda <ZPTemp+2
	adc #0000
	sta GetInfoPath+2
@0
	jsl GSOS
	dc.w Get_File_Info
	dc.l GetInfoParms
	bcc @1

	ldx GetInfoPath
	ldy GetInfoPath+2
	jsl Error
	bcc @0

	brl ErrorExit

; Check to see if this file is bigger than the largest size we have
; stored so far.

@1	clc	; Add data and resource sizes together
	lda GetInfoEOF	; (data fork EOF)
	adc GetInfoResEOF
	sta TotalFileSize
	lda GetInfoEOF+2
	adc GetInfoResEOF+2
	sta TotalFileSize+2
	
	lda TotalFileSize
	cmp LargestSize
	lda TotalFileSize+2
	sbc LargestSize+2
	bcc CheckFlagWord

	lda TotalFileSize
	sta LargestSize
	lda TotalFileSize+2
	sta LargestSize+2

; Check the FlagsWord and see if Creation Date/Time must match.

CheckFlagWord	lda [<ZPTemp]	; Get FlagsWord
	and #FlagC	; Must the creation	match?
	beq NextFlag

;       The Creation Date/Time must match (First convert to ProDOS format)

	jsr ConvertDateTime

	ldy #CreationDate	; Check CreationDate
	lda [<ZPTemp],y
	cmp GetInfoDate1
	bne Oops
	ldy #CreationTime	; Check CreationTime
	lda [<ZPTemp],y
	cmp GetInfoTime1
	beq NextFlag

Oops	sec	; If any required match fails, notify user
	lda #$0087
	jsl Error
	brl ErrorExit

; Check the FlagsWord and see if File/Aux Type must match.

NextFlag	lda [<ZPTemp]	; Get FlagsWord
	and #FlagF	; Must the file/aux	type match?
	beq StoreBlocks

;       The File/Aux types must match

	ldy #FileTypeWord	; Check FileType
	lda [<ZPTemp],y
	cmp GetInfoFileType
	bne Oops
	ldy #AuxTypeLWord	; Check AuxType
	lda [<ZPTemp],y
	cmp GetInfoAuxType
	bne Oops
	iny
	iny
	lda [<ZPTemp],y
	cmp GetInfoAuxType+2
	bne Oops

; Get the number of	blocks and store it

StoreBlocks	clc
	ldy #SourceSize
	lda GetInfoUsed
	adc GetInfoResUsed
	sta [<ZPTemp],y
	iny
	iny
	lda GetInfoUsed+2
	adc GetInfoResUsed+2
	sta [<ZPTemp],y

; Update Total blocks for install

	clc
	lda GetInfoUsed
	adc GetInfoResUsed
	adc TotalBlocksForInstall
	sta TotalBlocksForInstall
	lda GetInfoUsed+2
	adc GetInfoResUsed+2
	adc TotalBlocksForInstall+2
	sta TotalBlocksForInstall+2

; Update zero page pointer to point to next FileSpec field and loop until all
; FileSpec fields have been checked

	jsr NextFileSpec
	bcs @1
	brl SourceSpaceLoop


@1
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
;
; We now have verified that source files meet matching criteria
; and have stored the size of each file	in our compacted script.
; The next major step is to go through the destination names and
; determine space to be freed through deletions and space needed
; through copies.  Don't forget to figure in additional directories
; that must be created.
;................................................................

; Initialize enerything

	stz NegativeFlag	; Clear variables and flags
	stz NegSpace
	stz NegSpace+2

	lda <ScriptPtr	; Put pointer to beginning of the
	sta <ZPTemp	;  SuperScript into <ZPTemp
	lda <ScriptPtr+2
	sta <ZPTemp+2

; First, get the index to the destination pathname

SpaceLoop	ldy #Pathnames
	lda [<ZPTemp],y	; Get length word of source name...
	inc a
	inc a
	sta Temp
	clc	; Calculate offset to destination name
	tya
	adc Temp
	pha	; Save on stack

; Calculate offset to destination name for NewFile subroutine

	clc
	tya
	adc Temp
	adc <ZPTemp
	sta <ZPTemp1
	lda #$0000
	adc <ZPTemp+2
	sta <ZPTemp1+2

; Put the destination pathname pointer the Get_File_Info parameter table and
; make the call

	clc
	pla	; Get index from stack (see above)
	adc <ZPTemp
	sta GetInfoPath
	lda #0000
	adc <ZPTemp+2
	sta GetInfoPath+2

	stz CallFailedFlag
@0
	jsl GSOS
	dc.w Get_File_Info
	dc.l GetInfoParms
	bcc @3

	cmp #VolumeNotFound
	bne @2

	ldx GetInfoPath
	ldy GetInfoPath+2
	jsl Error
	bcc @0
	brl ErrorExit

; The call failed.  If the flag was a "3" or "4", we're simply removing and
; we can ignore the error.  Likewise, if the flag was a "B", it's boot code
; replacement, and, again, we can just ignore the error

@2	sec	; Set the CallFailed flag
	ror CallFailedFlag

	tax	; Save the error code

	lda [<ZPTemp]	; Get the FlagsWord
	and #%1000000000000000 ; Was flag a "3" or "4"?
	bne @3

	lda [<ZPTemp]	; Get the FlagsWord
	and #FlagB	; Was flag a "B"?
	bne @3

	txa	; Restore the error code

	brl CallFailed
@3

; The call was successful.  SourceSize longword of the current FileSpec field in
; memory has the size of the source file, GetInfoUsed has the size of the
; destination file,	and FreeSpace contains the free space on the volume.

;       Check REMOVE flag to see if we're REMOVEing or INSTALLing.

	bit RemoveFlag
	bpl CheckForDFlag	; We're INSTALLing--always delete destination

;       We're REMOVEing, so check the FlagWords to see if the file
;       should be deleted

	lda [<ZPTemp]	; Get FlagsWord
	and #%0100000000000000 ; Check bit 14
	bne DontDelete

;       Check for the "D" flag, a conditional deletion, and determine if
;       file is really to be deleted or not.

CheckForDFlag	lda [<ZPTemp]
	bit #FlagD	; Check for "D" flag
	beq DeleteIt

; If "D" flag is set, we have to compare dates and times and only delete
; the file if it is older than the FileSpec's creation date/time

;       First convert to ProDOS format

	lda GetInfoCreation+4 ; Get Month/Day
	and #$00FF	; Mask off month
	inc a	; (Day returned as 0-30 not 1-31!)
	sta GetInfoDate1	; Save the day in prodos format
	lda GetInfoCreation+5 ; Get Null/Month
	and #$00FF	; Mask off null
	inc a	; (Month returned as 0-11 not 1-12!)
	asl a
	asl a
	asl a
	asl a
	asl a	; Shift to correct position
	ora GetInfoDate1	; Month is now happy
	sta GetInfoDate1
	lda GetInfoCreation+3 ; Get Day/Year
	and #$00FF	; Mask off day
	xba
	asl a	; Shift year to upper 7 bits
	ora GetInfoDate1
	sta GetInfoDate1

	lda GetInfoCreation+1 ; Get Hour/Minutes
	and #$00FF	; Mask off hour
	sta GetInfoTime1
	lda GetInfoCreation+2 ; Get Year/Hour
	and #$00FF	; Mask off year
	xba
	ora GetInfoTime1
	sta GetInfoTime1

;       Now, do the comparison.

	bit RemoveFlag
	bmi DontDelete	; Ignore "D" on REMOVE

	ldy #CreationTime
	lda GetInfoTime1
	cmp [<ZPTemp],y
	dey
	dey
	lda GetInfoDate1
	sbc [<ZPTemp],y
	bcs DontDelete

;       The destination file is to be removed.  Add its size to FreeSpace
;       unless call failed is set.

DeleteIt	bit CallFailedFlag
	bmi DontDelete

	clc
	lda FreeSpace
	adc GetInfoUsed
	adc GetInfoResUsed
	sta FreeSpace
	lda FreeSpace+2
	adc GetInfoUsed+2
	adc GetInfoResUsed+2
	sta FreeSpace+2
DontDelete

;       Re-check the REMOVE flag to see if we're REMOVEing or INSTALLing.

	bit RemoveFlag
	bmi GetNextFileSpec	; If REMOVEing, we're done

;       We're INSTALLing so check the FlagsWord to see if we must copy
;       the source file over.

	lda [<ZPTemp]	; Get FlagsWord
	and #%1000000000000000 ; Check bit 15
	bne GetNextFileSpec	; If set, no file to copy.

;       We're going to copy the source file so deduct its size from
;       the FreeSpace value.

CopySource	ldy #SourceSize
	lda [<ZPTemp],y	; Get the source file size
	sta Temp
	iny
	iny
	lda [<ZPTemp],y
	sta Temp+2

	sec	; Keep a running talley of free space
	lda FreeSpace
	sbc Temp
	sta FreeSpace
	lda FreeSpace+2
	sbc Temp+2
	sta FreeSpace+2
	bmi NoSpace	; If negative space, won't fit

; Update <ZPTemp to point to the next FileSpec field

GetNextFileSpec	jsr NextFileSpec
	bcs SpaceExit1	; End-of-script
	brl SpaceLoop	; Keep looping
SpaceExit1
	brl SpaceExit

;       Oops!  The FreeSpace value went negative!  We can't perform the
;       desired operation on this disk.  Notify the user.

NoSpace	sec	; Set NegativeFlag
	ror NegativeFlag

	lda NegSpace	; Is NegSpace still zero?
	bne @1
	lda NegSpace+2
	beq @2

@1	lda FreeSpace	; Are we more negative than the last?
	cmp NegSpace
	lda FreeSpace+2
	sbc NegSpace+2
	bcs GetNextFileSpec	; If not, continue

@2	lda FreeSpace	; Maintain the MOST	negative value we
	sta NegSpace	;  encounter so we can report how much
	lda FreeSpace+2	;  more space is needed when we finish
	sta NegSpace+2
	bra GetNextFileSpec

; Oops!  The call failed!

CallFailed	cmp #PathNotFound	; Couldn't find the path?
	beq NoFile
	cmp #FileNotFound	; Couldn't find the file?
	beq NoFile
	sec	; Some other kind of error
	jsl Error
	brl ErrorExit

; Couldn't find the file or the path, one or the other.  In either case, the
; file doesn't exist.  There is no FreeSpace to be gained.  We don't have to
; copy the source file if the 'update only' (U) flag has been set.

NoFile	lda [<ZPTemp]	; Get the FlagsWord
	and #FlagU
	bne @1	; If FlagU set, the field is moot.

;       The 'update only' flag is NOT set.  We're going to create a new
;       file on the destination volume.  We must check to see if the
;       directory is going to grow a block as a result.

	jsr NewFile

;       Now use existing routines to take care of updating the talley
;       for the file's needs, and continue.

	bra CopySource	; If FlagU clear, we must copy source file

;       There is no destination file and the 'update only' flag is set.
;       We must subtract this fileÕs size from the total size.
;       Then we can delete this FileSpec field since there is absolutely
;       nothing for us to do.

@1	sec
	ldy #SourceSize
	lda TotalBlocksForInstall
	sbc [<ZPTemp],y	; subtract # of blocks in this filespec
	sta TotalBlocksForInstall
	iny
	iny
	lda TotalBlocksForInstall+2
	sbc [<ZPTemp],y	; subtract # of blocks in this filespec
	sta TotalBlocksForInstall+2

	jsr DeleteField1
	bcs SpaceExit	; End-of-script
	brl SpaceLoop	; Keep looping

; We've finished checking the space requirements.  If our FreeSpace value went
; negative at any time, notify the user	of the additional space needed and
; do not continue with the requested operation.

SpaceExit	bit NegativeFlag
	bmi Error1
	jsr DisposeMemory
SpaceEnd	lda #0000
	clc
	rts

;       Calculate the additional space required, plug the value in at
;       Err88Blocks (four ASCII bytes), and display the message.

Error1	sec
	lda #0000
	sbc NegSpace	; This value is in blocks.
	lsr a	; Divide by 2 to get KiloBytes.
	inc a	; Be sure value is NEVER zero
		; Convert the value to ASCII
	pha	; wordValue
	pea Err88Blocks>>16	; strPtr
	pea |Err88Blocks
	pea 0005	; strLength
	pea False	; signedFlag
	ldx #Int2Dec
	jsl ToolLocator

	sep #$30
	LongA Off
	LongI Off

	ldy #$FF	; Pad left end of string with spaces
	tyx
@1	inx
	lda >Err88Blocks,x
	bne @2
	lda #' '
	sta >Err88Blocks,x
	bra @1
@2
	LongI On
	LongA On
	rep #$30

	sec	; Display the message string
	lda #$0088
	jsl Error

ErrorExit	pha
	jsr DisposeMemory
	pla
	sec
	rts
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
DisposeMemory
;
; Description:	DisposeMemory is a local subroutine to dispose of all
;	the little memory segments created by the NewFile
;	subroutine, below.
;
; Inputs:	none
;
; Outputs:	none
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

; Put the contents of DataHandle in a zero page location for later indirect 
; access and also push it onto the stack for a _DisposeHandle call.

	lda DataHandle
	sta <ZPTemp
	pha
	lda DataHandle+2
	sta <ZPTemp+2
	pha

; Before disposing of the memory segment, get the handle to the next segment
; and store it in DataHandle

	lda [<ZPTemp]
	sta DataHandle
	ldy #0002
	lda [<ZPTemp],y
	sta DataHandle+2

; Now we're ready to delete the memory segment

	ldx #DisposeHandle
	jsl ToolLocator

; As long as we get no error, keep deleting

	bcc DisposeMemory

; We finally got an error!  Must have gotten them all.

	rts
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
NewFile
;
; Description:	NewFile is called when a File Not Found or Path Not Found
;	error occurs, indicating that a new file is to be added
;	to an existing directory.  It will check the directory to
;	see if it will grow a block with the addition of the new
;	file.  If it will, it will decrement our FreeSpace value.
;
;	A little data structure in memory is maintained for each
;	directory which contains the handle to the next structure,
;	the number of entries and the full pathname of the direc-
;	tory.  The format of the structure is:
;
;	   $00-$03 = Handle to next data structure
;	   $04-$05 = Number of entries in this directory
;	   $06-    = Full pathname of the directory
;	             (GS/OS Class 1 input string)
;
;	Handle to the first data structure is in DataHandle.
;	DO NOT forget to _DisposeHandle of all segments when
;	finished!
;
; Inputs:	none (<ZPTemp1 expected to point to destination name)
;
; Outputs:	c-flag clear if no errors occured
;	c-flag set & A-reg contains error code if error
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

	lda [<ZPTemp1]	; Save LengthWord
	sta OriginalLength	; for later restoration
	lda <ZPTemp1+2	; ...and pointer
	sta TempPointer+2
	lda <ZPTemp1
	sta TempPointer

	stz StackCounter	; Initialize stack counter

; Drop the last name off of the destination name and our full pathname to
; create the pathname for the directory.

DropName	lda [ZPTemp1]
	tay	; Back up to previous slash
	iny

	sep #$0020
	LongA Off

@1	lda [<ZPTemp1],y
	cmp #SeparatorChar
	beq DropDone
	dey
	bne @1

; If we fell through to here, we're dealing with a partial pathname from the
; Standard Update SuperScript that lacks a volume name.  We can safely
; assume that the root directory will not grow.  (It's four blocks long to
; begin with and will generate a "Directory Full" error if we overflow it.

	LongA On
	rep #$0020
	brl AnyMoreVariables

; We've drop the last hierarchical level in the pathname.

DropDone
	LongA On
	rep #$0020

	dey
	dey
	tya
	sta [<ZPTemp1]	; New lengthWord of destination name

; Check the pathname against all the names we are holding in data structures to
; see if we have previously encountered this directory.

;       If DataHandle is zero, we have no stored data yet and we know we
;       have nothing to search.

	lda DataHandle+2
	ora DataHandle
	beq DoesDirExist

	lda DataHandle
	ldx DataHandle+2

;       We have stored data.  Let <ZPTemp2 point to the 1st pathname.

MainSearchLoop	phx
	pha
	jsl Dereference	; Dereference the handle and...
	clc	;  ...set up <ZPTemp2 to point to the
	pla	;  pathname in the data structure
	adc #$0006
	sta <ZPTemp2
	pla
	adc #$0000
	sta <ZPTemp2+2

;       Compare name in data structure to one we want

	lda [<ZPTemp1]	; Name we want to find
	cmp [<ZPTemp2]	; Name in current data structure
	bne NextSearch

	tay
	iny

	sep #$0020
	LongA Off

SearchLoop	dey
	beq GottaMatch
	lda [<ZPTemp1],y
	cmp [<ZPTemp2],y
	beq SearchLoop

	LongA On
	rep #$0020
NextSearch

;       This one didn't match...set up for next one, if there is one.

	jsr Point2Beginning	; Re-set <ZPTemp2 to point to beginning
	ldy #$0002	;  of the data structure.
	lda [<ZPTemp2],y
	tax
	lda [<ZPTemp2]
	bne MainSearchLoop	; If handle is non-null, there's more
	cpx #0000
	beq DoesDirExist	; No more
	bra MainSearchLoop
GottaMatch
	LongA On
	rep #$0020

	lda TempPointer	; Restore original pointer, if changed
	sta <ZPTemp1
	lda TempPointer+2
	sta <ZPTemp1+2

	lda OriginalLength	;  ...and length word
	sta [<ZPTemp1]

;       Re-set <ZPTemp2 to point to the beginning of the data structure.

	jsr Point2Beginning
	brl IncrementCnt
	
; No we haven't encountered this directory before.  See if it exists.

DoesDirExist	lda <ZPTemp1
	sta GetInfoPath
	lda <ZPTemp1+2
	sta GetInfoPath+2
	jsl GSOS
	dc.w Get_File_Info
	dc.l GetInfoParms
	bcc PathnameExists
	
	cmp #FileNotFound
	beq FileDoesntExist
	cmp #PathNotFound
	beq FileDoesntExist
	
	jsl Error
	brl NewFileErrExit

; The pathname does not exit.  Store the length word on the stack and
; start all over again.

FileDoesntExist	lda [<ZPTemp1]	; Save current length word
	pha

	lda <ZPTemp1+2	; Save current pointer
	pha
	lda <ZPTemp1
	pha

	inc StackCounter
	brl DropName

; The pathname exists.  Build it's data structure

PathnameExists

;       Get a block of memory large enough to hold pathname + 9 bytes
;       (LengthWord, LongWord Handle, Word FileCount, trailing null added
;       by the GStr routines.)

	pha	; Space for result
	pha

	clc	; Calculate memory block size needed
	lda [<ZPTemp1]	; Get the LengthWord
	adc #0009	;  and add on 9 bytes
	tax
	lda #0000
	adc #0000
	pha	; Size of block to create
	phx
	
	lda >MyID	; ID of program owning the block
	pha
	pea %0000000000010000 ; Attributes
	pea 0000	; Push location needed
	pea 0000
	ldx #NewHandle
	jsl ToolLocator
	bcc @MemoryOK

	pla	; Oops, not enought memory
	pla

	lda #$008B
	jsl Error
	brl NewFileErrExit
@MemoryOK

;       If DataHandle is zero, we have no stored data yet so store the
;       data handle in "DataHandle".

	lda DataHandle+2
	ora DataHandle
	bne @1

	pla
	sta DataHandle	; Store the handle is "DataHandle"
	tax
	pla
	sta DataHandle+2
	bra @2

;       There is previous data stored, so store the handle to the new
;       memory segment in the previous data structure.

@1	pla
	sta [<ZPTemp2]	; Store the handle in last data structure
	tax
	ldy #0002
	pla
	sta [<ZPTemp2],y

;       Get the pointer to the pathname into <ZPTemp2

@2	pha
	phx
	jsl Dereference
	clc
	pla
	adc #0006
	sta <ZPTemp2
	pla
	adc #0000
	sta <ZPTemp2+2

;       Store the full pathname

	pei <ZPTemp1+2
	pei <ZPTemp1
	pei <ZPTemp2+2
	pei <ZPTemp2
	jsl C1InpToC1Inp

;       Set <ZPTemp2 to point to the beginning of the memory block

	jsr Point2Beginning

;       Be sure the Handle to the next data structure and the File Count
;       word is initially zero

	lda #0000
	ldy #0004
@0	sta [<ZPTemp2],y
	dey
	dey
	bpl @0

;       OPEN the directory.  If we get a "Path Not Found" error, we know
;       it does not exist and we'll be adding the first file.

	lda <ZPTemp1
	sta OpenPath
	lda <ZPTemp1+2
	sta OpenPath+2

	jsl GSOS
	dc.w OPEN
	dc.l OpenParms
	bcc HowManyFiles
	
	cmp #FileNotFound
	beq PathNotFoundErr
	cmp #PathNotFound
	beq PathNotFoundErr
	
	LDX OpenPath
	LDY OpenPath+2
	jsl Error
	brl NewFileErrExit

PathNotFoundErr	ldy #0004	; Gotta a "Path Not Found" error
	lda #0001	;   so we'll be adding a directory
	sta [<ZPTemp2],y
	bra NeedABlock

;       Find out how many current files and store the file count.

HowManyFiles	lda OpenRefNum
	sta GetDirRefNum
	sta CloseRefNum

	jsl GSOS	; Name buffer for this call is of
	dc.w Get_Dir_Entry	;   size zero because we are not
	dc.l GetDirParms	;   interested in the filename.
		; Ignore error!
	jsl GSOS
	dc.w Close
	dc.l CloseParms
	bcc @3
	
;       If the calls failed, we assume it's a new directory and this
;       will be the first entry

	lda #1
	ldy #0004
	sta [<ZPTemp],y
	bra NeedABlock

;       If the calls succeeded, we need to find out how many entries
;       are now in the directory, increment it by one, and determine
;       if the directory will grow a block.
	
@3	lda GetDirEntNum
	ldy #0004
	sta [<ZPTemp2],y

; Increment the file count in this directory and see if another block is needed.
; [NOTE: 12 entries in the first block and 13 in all the others.]

IncrementCnt	ldy #0004
	lda [<ZPTemp2],y
	inc a
	sta [<ZPTemp2],y

; Check to see if the directory is going to need to link on another block

	inc a	; Add 1 to make up for directory header
	sec	; Divide by 13 by successive subtraction
DivLoop	sbc #13
	beq NeedABlock
	bpl DivLoop
	bra AnyMoreVariables

; We need another block, so decrement the FreeSpace value.

NeedABlock	lda FreeSpace
	bne @1
	dec FreeSpace+2
@1	dec FreeSpace

; Are there any more variables on the stack?

AnyMoreVariables	lda StackCounter
	beq RestoreName

	dec StackCounter

	pla
	sta <ZPTemp1	; Get previous pointer
	pla
	sta <ZPTemp1+2

	pla	; Get previous length word
	sta [<ZPTemp1]

	brl PathnameExists

; We're done.  Restore the original length word (and first character)

RestoreName	lda TempPointer
	sta <ZPTemp1
	lda TempPointer+2
	sta <ZPTemp1+2
	lda OriginalLength
	sta [<ZPTemp1]

NewFileExit	lda #0000
NewFileErrExit	cmp #0001
	rts
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
Point2Beginning
; 
; Description:	Local subroutine to re-set <ZPTemp2 to point to the
;	beginning of the data structure after it has been
;	pointing to the pathname.
;
; Inputs:	none
;
; Outputs:	none
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

	sec
	lda <ZPTemp2
	sbc #0006
	sta <ZPTemp2
	lda <ZPTemp2+2
	sbc #0000
	sta <ZPTemp2+2
	rts
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

; Data for NewFile subroutine.

StackCounter	ds.l 1
TempPointer	ds.l 1
OriginalLength	ds.w 1

Temp	ds.l 1
TotalFileSize	ds.l 1
LargestSize	ds.l 1	; Store size of largest file here

CallFailedFlag	ds.w 1
DataHandle	ds.l 1	; Handle to 1st directory data structure
NegativeFlag	ds.w 1	; Hi-bit set = Not enough space for update
NegSpace	ds.l 1	; The maximum negative space overflow

GetDirParms	dc.w 0006
GetDirRefNum	ds.w 1	; Reference number
	ds.w 1	; Flags
GetDirBase	ds.w 1	; Base
GetDirDisp	ds.w 1	; Displacement
GetDirName	dc.l JunkName	; Name pointer
GetDirEntNum	ds.w 1	; Entry number/number of files

JunkName	dc.w 0000	; We don't want a name here.
	EndP ;{CalculateSpace}
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
SortSource	Procname
*
* Description:	A compacted script is now in memory,
*	but any particular source disk may be scattered
*	through the filespecs.
*	Organize the filespecs so that scattered source file disks 
*	are together.
*	Get another piece of memory the same size as the script,
*	move delete filespecs there, one by one,
*	then move copy filespecs there, one by one.
*	Finally, move the reassembled script back to original location.
*
* Note:	Temporarily uses SourceSize area of FileSpec as a marker
*	($FFFF indicates the FileSpec has already been moved);
*	This is overwritten when new script overwrites the old.
*
* Inputs:	none
*
* Outputs:	c-flag set if error
*
* External Refs:
	Import Allocate
	Import Dereference
	Import Error
	Import NextFileSpec
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

OurMarkLoc	equ SourceSize
OurMark	equ $FFFF


; If we're REMOVEing, there is nothing to do.

	bit RemoveFlag
	bpl @1
	brl SortEnd
@1

; get scriptÕs size worth of space to move it into

	pha	; Get the script's size
	pha
	pei <ScriptHdl+2
	pei <ScriptHdl
	ldx #GetHandleSize
	jsl ToolLocator
	pla	; low word: this is it
	plx	;  (throw away high word)
	sta ScriptLen	; calculate length of script

	jsl Allocate	; get memory block the length of script (in A)
	bcc @ok2
	brl SortEnd	; if not enough memory, then stick with orig script

@ok2	sty NewScriptHandle+2 ; store for disposeHandle later
	stx NewScriptHandle

	phy	; Handle for _HLock
	phx

	phy	; Handle for Dereference
	phx

	ldx #HLock
	jsl ToolLocator

	jsl Dereference
	plx
	ply

	stx <ZPTemp2	; dest loc for next filespec
	stx NewScriptPtr
	sty <ZPTemp2+2
	sty NewScriptPtr+2

; Initialize everything

	lda <ScriptPtr	; Put the script pointer in ZPTemp
	sta <ZPTemp	; scouting location: looking for section to move
	lda <ScriptPtr+2
	sta <ZPTemp+2

; First move the delete filespecs; theyÕll all end up at the beginning of the new script
; (theyÕre probably already there, except possibly in the case of the Easy Update script).

	stz NotYetMovedSet	; NotYetMoved location not yet valid

@Again	lda [<ZPTemp]	; Get the FlagsWord of this FileSpec
	and #Flag3
	beq @NoCopy	; If hi-bit clr, bra: not a delete, so no copy
	jsr CopyFileSpec	;  else copy filespec at ZPTemp into ZPTemp2
	bra @MoveOn

@NoCopy	lda NotYetMovedSet
	bne @MoveOn	; bra if itÕs already been set
	inc NotYetMovedSet	; else set flag and
	lda <ZPTemp	;  set NotYetMoved
	sta NotYetMoved	;  (this is the 1st filespec not copied)
	lda <ZPTemp+2
	sta NotYetMoved+2

@MoveOn	jsr NextFileSpec	; advance ZPTemp to next filespec
	bcc @Again	; loop until reach end of script

; All deletion filespecs moved

; This is the main loop for finding and moving (sorting) copying filespecs
; NotYetMoved and ZPTemp point to old script
; ZPTemp2 points to position for next filespec in new script

; OuterLoop:
; reset ZPTemp to first FileSpec that hasnÕt been moved (@NotYetMoved)
; find and get the first source prefix, using ZPTemp to point at each FileSpec
; Ignore any FileSpecs that have been marked, ignore delete-only, etc.
; if end of script, done
; clear flag: NotYetMoved location not yet valid
; copy source filename to SourceToSortOn
;  InnerLoop:
;  copy and mark filespec
;  advance ZPTemp (ignore delete-only, etc.)
;    copy and mark each matching filespec
;    if not match, then if NotYetMoved is not set, then set it
;  if end of script,
;    if NotYetMoved is not set, then weÕre done (all the filespecs matched)
;    else bra to OuterLoop

OuterLoop

; reset ZPTemp to first FileSpec that hasnÕt been moved

	lda NotYetMoved
	sta <ZPTemp
	lda NotYetMoved+2
	sta <ZPTemp+2

; find and get the first source prefix, using ZPTemp to point at each FileSpec
; Ignore any FileSpecs that have been marked, ignore delete-only, etc.

	jsr GetCopyingFileSpec ; (does not advance if current filespec qualifies)

; if end of script, done

	bcs DoneSorting	; ZPTemp is on 2nd tilde: done


; clear flag: NotYetMoved location not yet valid

 	stz NotYetMovedSet	; NotYetMoved location not yet valid

; copy source filename to SourceToSortOn

	ldx #0
	ldy #Pathnames+2	; past pathname length (we need prefix length)
@CopyPrefix	lda [<ZPTemp],y	; get a word of the prefix
	sta SourceToSortOn,x
	and #$FF00	; check second byte
	cmp #SeparatorChar*$100
	beq @HavePrefix
	inx
	cpx #MaxPrefixLen+1	; out of bounds (buffer is sized MaxPrefixLen+2)
	bcc @inBounds

	lda #$008F	; invalid pathname syntax
	jsl Error
	brl SortErrEnd	; bad error: script is broken

@inBounds	iny
	bra @CopyPrefix
@HavePrefix

; done copying to SourceToSortOn

InnerLoop

;  copy and mark filespec

	jsr CopyFileSpec	; copy filespec at ZPTemp into ZPTemp2 & mark it

;  advance ZPTemp (ignore delete-only)
;    copy and mark each matching filespec

@FindNext	jsr NextFileSpec	; advance ZPTemp to next filespec
	bcs HitEndOfScript	; bra if no more filespecs (end of script)
	lda [<ZPTemp]	; Get the FlagsWord
	and #Flag3
	bne @FindNext	; bra if hi-bit set: deletion, so get another
	jsr CompareSrcePfx	; same source prefix as SourceToSortOn?
	beq InnerLoop	; loop back if prefix matches SourceToSortOn

;    if not match, then if NotYetMoved is not set, then set it

	lda NotYetMovedSet
	bne @FindNext	; bra if itÕs already been set
	inc NotYetMovedSet	; else set flag and
	lda <ZPTemp	;  set NotYetMoved
	sta NotYetMoved	;  (this is the 1st filespec not yet copied)
	lda <ZPTemp+2
	sta NotYetMoved+2
	bra @FindNext	; bra to get next filespec

; ZPTemp is on the second FieldSeparator (~), indicating end-of-Script

HitEndOfScript

;  if end of script,

;    if NotYetMoved is not set, then weÕre done (all the filespecs matched)

	lda NotYetMovedSet
	beq DoneSorting

;    else bra to OuterLoop

	bra OuterLoop

; Script is now sorted at NewScriptPtr:
; move sorted compacted script back to ScriptPtr & release NewScriptPtr memory
; (if Standard Update, a resource handle points at ScriptPtrÕs memory, but if
;  Customized Install, something else points here, 
;  so we canÕt just release ScriptPtr to use NewScriptPtr, but must stick with ScriptPtr.)

DoneSorting	lda NewScriptPtr+2	; source
	pha
	lda NewScriptPtr
	pha
	pei <ScriptPtr+2	; dest
	pei <ScriptPtr
	pea 0	; size
	lda ScriptLen
	dec a	; didnÕt move second tilde
	pha
	ldx #BlockMove	; move the script back to ScriptPtr
	jsl ToolLocator
	clc	; clear carry: ok

; release NewScriptPtr memory
CleanUp	php	; save carry (ok / not ok)
	lda NewScriptHandle+2
	pha
	lda NewScriptHandle
	pha
	ldx #DisposeHandle
	jsl ToolLocator
	plp	; restore carry (ok / not ok)
	rts

SortEnd	clc
	rts

SortErrEnd	sec	; set carry: error
	bra CleanUp

NewScriptHandle	ds.l 1
NewScriptPtr	ds.l 1
NotYetMoved	ds.l 1	; lowest original-script byte not yet moved
NotYetMovedSet	ds.w 1	; true=NotYetMoved is valid for this pass
ScriptLen	ds.w 1
SourceToSortOn	ds.b MaxPrefixLen+2	; HFS max (27) + leading/trailing colons
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
GetCopyingFileSpec
;
; Description:	Advance, if necessary, to a FileSpec that copies a file 
;	(one with a source prefix), 
;	using ZPTemp to point at each FileSpec.
;	Ignore any FileSpecs that have been marked.
;	Ignore delete-only (no source prefix)
;
;	Note: does not advance if the current FileSpec qualifies.
;
; Inputs:	none
;
; Outputs:	c-flag set if we have reached the end of the script
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

; If the FlagWord has Flag3 set, we're just going to delete the destination
; file, if it exists, and there is no source pathname.

GetNextLoop	lda [<ZPTemp]	; Get the FlagsWord
	and #Flag3
	bne @Next	; If hi-bit set: deletion, so go on

; so this is a filespec that copies a file (one with a source prefix)
; If it is marked, ignore it anyway

	ldy #OurMarkLoc	; temporarily used as a marker to indicate
	lda [<ZPTemp],y	;   file has already been moved
	cmp #OurMark
	bne @GotOne	; bra if weÕre done (not previously marked)

; previously marked; go on to the next

@Next	jsr NextFileSpec	; advance ZPTemp to next filespec
	bcc GetNextLoop	; bra if not at end of script
	rts

@GotOne	clc
	rts
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
CompareSrcePfx
;
; Description:	Compare source prefix in FileScript pointed to by ZPTemp 
;	to SourceToSortOn.
;
; Inputs:	none
;
; Outputs:	z-flag set if they match (caller can beq)
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
	
	ldx #0
	ldy #Pathnames+2	; past pathname length (we need prefix length)
@CmpPrefix	lda [<ZPTemp],y	; get a word of the prefix
	cmp SourceToSortOn,x
	bne @CmpExit
	and #$FF00	; check second byte
	cmp #SeparatorChar*$100
	beq @CmpExit
	inx
	iny
	bra @CmpPrefix

@CmpExit	rts
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
CopyFileSpec
;
; Description:	Copy the current FileSpec at ZPTemp into memory at ZPTemp2.
;	Update ZPTemp2 to next available location.
;	Mark the current FileSpec to indicate itÕs been moved.
;
; Inputs:	none
;
; Outputs:	none
;
;
; External Refs:
	Import FindSeparator
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

	jsr FindSeparator	; get FileSpec length into Y
	phy	; save for later (to adjust ZPTemp2)
	dey	; adjust index for 0-based arrays
	dey	; adjust index for word moves

@move	lda [<ZPTemp],y
	sta [<ZPTemp2],y
	tyx	; test index for zero
	beq @moveEnd	; bra if zero: done moving
	dey
	beq @move	; bra if zero: move lowest (0-based) word
	dey
	bra @move	; move another word

@moveEnd	ldy #OurMarkLoc	; temporarily used to 
	lda #OurMark	;   store a marker to
	sta [<ZPTemp],y	;   indicate file has already been moved

	pla	; get length of filespec we just moved

	clc	; add the value in the accum into ZPTemp2
	adc <ZPTemp2
	sta <ZPTemp2
	lda #0000
	adc <ZPTemp2+2
	sta <ZPTemp2+2
	rts
	
	EndP ;{SortSource}
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
CopyAndDeleteFiles	ProcName ; (1987 - TEMPORARY ONLY - to be replaced.)
*
* Description:	These routines are for demonstrating the Installer only!
*	They will be replaced with externally provided routines,
*	as soon as they are written.
*
*	These routines will take care of the file deletions and
*	transfers.  However, on a single disk system, disk
*	swapping for EVERY file will be required.
*
*	1987 - Requirement that the system have sufficient free
*	memory to transfer the largest file has been removed.
*	large files will be broken into pieces for transfer.
*
*	To be replaced by the Finder Filer Toolkit as soon as it
*	is available.
*
*	1990 - Revised to work with scripts with full GS/OS class
*	1 input strings for pathnames.
*
*	(This subroutine is common to both InstallRemoveSubs and
*	StandardUpdateSub - both Customized Install and Easy Update.)
*
* Inputs:	none
*
* Outputs:	none
*
* External Refs:
	Import MyID	; From Data.asm
	Import QuitFlag	; From Data.asm
	Import UpdateFlag	; From Data.asm
	Import VolStrBuffer	; From Data.asm
*
	Import Dereference	; From MainSub.asm
	Import Error	; From MainSub.asm
	Import GetCurDirPtr	; From MainSub.asm
	Import UnlockCurDirHdl
*
	Import GStrConcat	; From GString.Lib
	Import GStrDispose	; From GString.Lib
	Import GStrNew	; From GString.Lib
	Import GStrReSize	; From GString.Lib
	Import GStrToGStr	; From GString.Lib
*
	Import CheckForInterrupt
	Import CloseParms
	Import ConvertDateTime
	Import CreateDial
	Import ExpandPathParms
	Import ExpandInputPath
	Import ExpandOutputPath
	Import GetInfoDate1
	Import GetInfoParms
	Import GetInfoPath
	Import GetInfoTime1
	Import NextFileSpec
	Import RemoveFlag
	Import ScriptFlag
	Import UpdateMsgWindowRead
	Import UpdateMsgWindowSkip
	Import UpdateMsgWindowWrite
	Import UpperCase8bit
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
	Eject
; First, check to be sure we're not dealing with an empty script

	lda <ScriptPtr
	sta <ZPTemp
	lda <ScriptPtr+2
	sta <ZPTemp+2

	lda [<ZPTemp]
	and #$00FF
	cmp #FieldSeparator
	bne @0
	clc
	rts

; Initialize pointers and variables

	stz fileHandle
	stz fileHandle+2

; Stuff to show progress

@0
	bit RemoveFlag
	bpl @GetMaxBlock
	brl Check4SysInstall

;       Installing:
;       Ask for the largest block and be sure that it is at least
;       32K less than the machineÕs total free memory (for GS/OS use).

@GetMaxBlock	jsr CreateDial	; show dial only if we're installing

	pei <ScriptHdl+2	; Let the script float
	pei <ScriptHdl
	ldx #HUnlock
	jsl ToolLocator

	ldx #CompactMem
	jsl ToolLocator

	pha	; Space for result
	pha
	ldx #FreeMem
	jsl ToolLocator
	sec	; Subtract off 32K for GS/OS
	pla
	sbc #$8000
	sta FreeMemory
	pla
	sbc #$0000
	sta FreeMemory+2
	bmi @NoMemoryError

	pha	; Space for result
	pha
	ldx #MaxBlock
	jsl ToolLocator
	plx
	ply

	cpx FreeMemory	; Is MaxBlock smaller than FreeMemory?
	tya
	sbc FreeMemory+2
	bcc @AllocateMemory	; Yes it is.  Ask for "MaxBlock" bytes.

	ldx FreeMemory	; No it isn't!  Ask for "FreeMemory"
	ldy FreeMemory+2	;  bytes.

@AllocateMemory	stx CopyBufferSize
	sty CopyBufferSize+2

	pha	; Space for result
	pha
	phy	; Size of block to create
	phx
	lda >MyID	; ID of program owning the block
	pha
	pea 0000	; Attributes
	pha	; Push location needed
	pha	;  (any value ignored)
	ldx #NewHandle
	jsl ToolLocator
	ply
	plx
	bcc @GotHandle

@NoMemoryError	lda #$008B	; Not enough memory
	jsl Error
	brl CopyExit1

@GotHandle	sty FileHandle	; Get the handle
	stx FileHandle+2

;       Lock everything down, dereference the ScriptHdl into <ZPTemp,
;       and dereference the FileHandle into the parameter tables for
;       reading and writing the file's data fork.

	phx
	phy
	ldx #HLock
	jsl ToolLocator

	pei <ScriptHdl+2
	pei <ScriptHdl
	ldx #HLock
	jsl ToolLocator

	pei <ScriptHdl+2	; We may have moved things during
	pei <ScriptHdl	;   compaction.
	jsl Dereference
	pla
	sta <ScriptPtr
	sta <ZPTemp
	pla
	sta <ScriptPtr+2
	sta <ZPTemp+2

	lda FileHandle+2
	pha
	lda FileHandle
	pha
	jsl Dereference
	pla
	sta ReadDBuffer
	sta WriteDBuffer
	pla
	sta ReadDBuffer+2
	sta WriteDBuffer+2

; If this is a system file install/removal on the boot disk, we must set the "ReBoot"
; bit of the QuitFlag.
; First, shut down all New Desk Accessories so they don't cause a 'File Open' error

Check4SysInstall
	ldx #CloseAllNDAs
	jsl ToolLocator

	jsr CheckForReBoot

; Get the FlagsWord	and store it where we can easily check it.

CopyLoop	lda [<ZPTemp]	; Get FlagsWord and	put it where we
	sta OurFlagsWord	;  can check it easily.

; Determine if we're INSTALLing or REMOVEing

	bit RemoveFlag
	bpl Installing

; We're REMOVEing, so determine if we should ignore the FileSpec field

	lda OurFlagsWord
	and #%0100000000000000 ; bit 14 = 1 : ignore
	bne GetNextField

; Delete the file

	jsr DeleteFile
	bcs CopyExit0

; Update pointers to point to next FileSpec field.  If it is not the end,
; continue looping until all done.

GetNextField	jsr NextFileSpec
	bcs NoMore	; cFlag set = no more

;        there are more files; but first, did user ask to stop?

	clc	; (Do display the "Unknown Mix" dialog)
	jsr CheckForInterrupt ; Check for open-apple-<period>
	bcs CopyExit0	; bra if user asked to stop
	bra CopyLoop

NoMore	clc	; No more: don't let cFlag indicate error
CopyExit0	brl CopyExit	; We're done
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

; We're Installing.

Installing

; Check to see if this is a boot-code replacement.

	lda OurFlagsWord	; Check FlagsWord
	bit #FlagB	; Is "B" flag set?
	bne BootCode
	brl NotBootCode

;       Before continuing, be sure that the required flag was "2", be sure
;       BootCode file is exact 1024 bytes long.  Then get memory, read in
;       the file, close the file.  Block write the file's contents to blocks
;       zero and one.

BootCode	bit #Flag2	; Is "2" flag set?
	bne @BootCode

	lda #$0086	; Bad script file format
	jsl Error
	brl CopyExit1
@BootCode
	clc	; Point to the source file name
	lda #Pathnames
	adc <ZPTemp
	sta OpenSPath
	sta OpenDPath	; (UpdateMsgWindowWrite expects a
	lda #0000	;  pathname in OpenDPath)
	adc <ZPTemp+2
	sta OpenSPath+2
	sta OpenDPath+2
;
@OpenAgain	jsl GSOS	; OPEN the file
	dc.w Open
	dc.l OpenSParms
	bcc @OpenOK

	ldx OpenSPath
	ldy OpenSPath+2
	jsl Error
	bcc @OpenAgain
	brl CopyExit
@OpenOK
	lda OpenSRefNum	; Distribute the reference number
	sta GetEOFRefNum
	sta ReadRefNum
	sta CloseRefNum

@GetEOFAgain	jsl GSOS
	dc.w Get_EOF
	dc.l GetEOFParms
	bcc @GetEOFOK

	ldx OpenSPath
	ldy OpenSPath+2
	jsl Error
	bcc @GetEOFAgain
	brl CopyExit

@GetEOFOK	lda GetEOFEOF+2	; The file MUST be exactly 1024 bytes!
	bne @Oops
	lda #BootCodeSize
	cmp GetEOFEOF
	beq @C

@Oops	jsl GSOS
	dc.w Close
	dc.l CloseParms	; Boot code file is the wrong size!

	lda #$008C
	sec
	jsl Error
	brl CopyExit1

@C	sta ReadRequest
	stz ReadRequest+2

	pha	; Space for result
	pha
	pea $0400	; Get 1024 bytes of Memory
	pea 0000
	lda >MyID	; ID of program owning the block
	pha
	pea %0000000000010000 ; Attributes
	pea 0000	; Push location needed
	pea 0000
	ldx #NewHandle
	jsl ToolLocator
	plx
	stx BootCodeBuffer
	pla
	sta BootCodeBuffer+2
	bcc @GotMemoryOK

	lda #$008B	; Insufficient memory
	jsl Error
	brl CopyExit1
@GotMemoryOK
	pha	; Get the buffer address
	phx
	jsl Dereference
	pla
	sta ReadBuffer
	sta DWriteBuffer
	pla
	sta ReadBuffer+2
	sta DWriteBuffer+2

	jsr UpdateMsgWindowRead ; Update ThermoDial
@ReadAgain
	jsl GSOS
	dc.w Read
	dc.l ReadParms	; Read the File
	bcc @ReadOK

	ldx OpenSPath
	ldy OpenSPath+2
	jsl Error
	bcc @ReadAgain
	brl CopyExit
@ReadOK
	jsl GSOS
	dc.w Close
	dc.l CloseParms	; Close the File

		; Isolate the destination's volume name
	lda [<CurDirPtr]	;   Save original length word
	sta OriginalLength

	sep #$0020
	LongA Off

	ldy #0003	;   Search for 2nd SeparatorChar
@A	lda [<CurDirPtr],y
	cmp #SeparatorChar
	beq @B
	tya
	cmp [<CurDirPtr]	;   Don't search past end of string
	beq @D
	iny
	bra @A
@B
	LongA On
	rep #$0020

	dey
	tya
	sta [<CurDirPtr]	;   Store new length word
@D
	lda <CurDirPtr	; Set up pathname pointer
	STA GetInfoPath
	lda <CurDirPtr+2
	STA GetInfoPath+2

@GetDevAgain	jsl GSOS
	dc.w Get_Dev_Num
	dc.l GetInfoParms	; Borrow this parameter table
	bcc @GetDevOK

	ldx OpenSPath
	ldy OpenSPath+2
	jsl Error
	bcc @GetDevAgain
	brl CopyExit

@GetDevOK	lda OriginalLength	; Restore CurDirectory's original
	sta [CurDirPtr]	;   length word

	lda GetInfoAccess	; Get the device number
	sta DWriteDevNum

;       ###############################################
;       ###  NOTE: If user pulls the disk off-line  ###
;       ###  after we get the device number, we're  ###
;       ###  in BIG trouble!!!!!                    ###
;       ###############################################

	jsr UpdateMsgWindowWrite

	jsl GSOS
	dc.w D_Write
	dc.l DWriteParms	; Block write boot code. Ignore errors.

	lda BootCodeBuffer+2 ; Release the memory
	pha
	lda BootCodeBuffer
	pha
	ldx #DisposeHandle
	jsl ToolLocator

	brl GetNextField	; GetNextField
NotBootCode

;       UpdateMsgWindowRead expects a pathname pointer in OpenSPath

	clc	; Calculate location of source pathname
	lda #Pathnames
	adc <ZPTemp
	sta OpenSPath
	lda #0000
	adc <ZPTemp+2
	sta OpenSPath+2

;       UpdateMsgWindowWrite expects a pathname pointer in OpenDPath

	ldy #Pathnames	; Calculate position of destination name
	lda [<ZPTemp],Y
	clc
	adc #Pathnames+2
	adc <ZPTemp
	sta OpenDPath
	lda #0000
	adc <ZPTemp+2
	sta OpenDPath+2

; For all others, begin by expanding both pathnames and see if they are
; the same.

	jsr CompareNames
	bcs @100

; If they are the same, we're being ask to copy the source file onto itself.
; Just simply update the thermodial, if appropriate and go to the next field
; as if the copy had been successfully completed.

	bit RemoveFlag
	bmi @NoDial1

	jsr UpdateMsgWindowRead

	jsr UpdateMsgWindowWrite

@NoDial1	brl GetNextField

; The names are different.  If this is a system file installation on the
; boot disk, we must set the "ReBoot" bit of the QuitFlag.

@100
;rdl 9/91 commented out as redundant!	jsr CheckForReBoot

; Delete the destination file, if any.

	jsr DeleteFile
	bcs CopyExit00

; Check the FlagsWord to see if we should copy the source file.

	lda OurFlagsWord	; Check FlagsWord
	bit #%1000000000000000
	beq BeginSource	; (branch too long)
	brl GetNextField	; bit 15 = 1: no copy required
	Eject

; Begin source file processing.

BeginSource
	clc
	lda <ZPTemp
	adc #Pathnames
	sta GetInfoPath
	lda <ZPTemp+2
	adc #0000
	sta GetInfoPath+2

	jsl GSOS
	dc.w Get_File_Info
	dc.l GetInfoParms	; Get source file's info (for later
	bcc CheckRemoveFlag ;   destination file info updating)

	ldx OpenSPath
	ldy OpenSPath+2
	jsl Error
	bcc BeginSource
CopyExit00	brl CopyExit

;       Put up reading message and update thermometer then OPEN the file
;       and Get_EOF

CheckRemoveFlag	bit RemoveFlag
	bmi @OpenData
	jsr UpdateMsgWindowRead
@OpenData
	jsl GSOS
	dc.w Open
	dc.l OpenSDParms	; Open the source data fork
	bcc @OpenDataDone

; user can cancel here!!!!!

	ldx OpenSPath
	ldy OpenSPath+2
	jsl Error
	bcc @OpenData
	brl CopyExit
@OpenDataDone

;       Put parameters returned by _OPEN into the CreateDParms table for
;       creating the destination directory entry later on.

;;;	lda OpenSDPath	; Need the pathname pointer too
;;;	sta CreateDPath
;;;	lda OpenSDPath+2
;;;	sta CreateDPath+2
;;;
	lda OpenSDParms+12	; Access
	ora #%0000000011100011 ; Want the resulting file unlocked
	sta CreateDParms+6
	lda OpenSDParms+14	; FileType
	sta CreateDParms+8
	lda OpenSDParms+16	; AuxType
	sta CreateDParms+10
	lda OpenSDParms+18
	sta CreateDParms+12
	lda OpenSDParms+20	; StorageType
	sta CreateDParms+14

; Read the source file's data forks

	lda CopyBufferSize	; Set request count
	sta ReadDReqCnt
	lda CopyBufferSize+2
	sta ReadDReqCnt+2

	lda OpenSDRefNum	; Distribute reference number
	sta ReadDRefNum
	sta CloseSDRefNum

@ReadData	jsl GSOS
	dc.w Read
	dc.l ReadDParms	; Read the file's data fork
	bcc @CheckBufferSize

	cmp #EndOfFile	; If data fork is empty...
	beq @CloseData	;  ...go on.

	ldx OpenSPath
	ldy OpenSPath+2
	jsl Error
	bcc @ReadData
	brl CopyExit
	Eject
;¥ ¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥
;¥         \			               ¥
;¥\---------\   STOP RIGHT HERE and determine whether we were able to read ¥
;¥ > L O O K >  in the file's entire data and resource fork.  If so, we'll ¥
;¥/---------/   skip over closing the data fork and reading the resources  ¥
;¥         /    at this time.		               ¥
;¥ ¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥

@CheckBufferSize	lda CopyBufferSize+2 ; If file's EOF = Buffer size
	cmp OpenSDEOF+2	 ;   GOTO @CloseData
	bne @CheckBufferSize1
	lda CopyBufferSize
	cmp OpenSDEOF
	beq @CloseData

@CheckBufferSize1	lda CopyBufferSize ; If file's EOF < Buffer size
	cmp OpenSDEOF	 ;   GOTO @CloseData
	lda CopyBufferSize+2
	sbc OpenSDEOF+2
	bcc @BufferTooSmall

	stz TooSmallFlag
	bra @CloseData

@BufferTooSmall	sec	; Set a flag for later
	ror TooSmallFlag
	brl BeginDestination

@CloseData	jsl GSOS
	dc.w Close
	dc.l CloseSDParms	; Close the file's data fork
	bcc @CheckForResources

	ldx OpenSPath
	ldy OpenSPath+2
	jsl Error
	bcc @CloseData
	brl CopyExit

@CheckForResources	lda OpenSDStoreType	; Check if there's a resource fork
	cmp #ExtendedType
	beq OpenResources
	brl BeginDestination

OpenResources	jsl GSOS
	dc.w Open
	dc.l OpenSRParms	; Open the file's resource fork
	bcc @ReadResources

	ldx OpenSPath
	ldy OpenSPath+2
	jsl Error
	bcc OpenResources
	brl CopyExit
@ReadResources
	sec	; Make sure the resources will fit into
	lda CopyBufferSize	;  the buffer.
	sbc OpenSDEOF	; First subtract off the portion of the
	tax	;  buffer that was used for the data
	lda CopyBufferSize+2 ; fork..
	sbc OpenSDEOF+2
	tay

	txa	; Then see if what's left can hold the
	cmp OpenSDResourceEOF ; resource fork.
	tya
	sbc OpenSDResourceEOF+2
	bcs @OK

	sec	; Set a flag for later
	ror TooSmallFlag
	brl BeginDestination

@OK	lda OpenSDResourceEOF ; We can get the size of the resource
	sta ReadRReqCnt	  ;  fork from the parameters when we
	sta WriteRReqCnt	  ;  opened the data fork.
	lda OpenSDResourceEOF+2
	sta ReadRReqCnt+2
	sta WriteRReqCnt+2

	clc	; Calculate where to begin writing the
	lda ReadDBuffer	;  resources into the transfer buffer
	adc ReadDTrnCnt
	sta ReadRBuffer
	sta WriteRBuffer
	lda ReadDBuffer+2
	adc ReadDTrnCnt+2
	sta ReadRBuffer+2
	sta WriteRBuffer+2

	lda OpenSRRefNum	; Get the reference number
	sta ReadRRefNum
	sta CloseSRRefNum

	jsl GSOS
	dc.w Read
	dc.l ReadRParms	; Read the file's resource fork
	bcc @CloseResources

	ldx OpenSPath
	ldy OpenSPath+2
	jsl Error
	bcc @ReadResources
	brl CopyExit
@CloseResources
	jsl GSOS
	dc.w Close
	dc.l CloseSRParms
	bcc BeginDestination

	ldx OpenSPath
	ldy OpenSPath+2
	jsl Error
	bcc @CloseResources
	brl CopyExit
	Eject

; Begin destination file processing.

BeginDestination

;       Get the pointer to the destination pathname

	clc
	ldy #Pathnames
	lda [<ZPTemp],y
	adc <ZPTemp
	adc #Pathnames+2
	sta CreateDPath
	lda #0000
	adc <ZPTemp+2
	sta CreateDPath+2

;       Create a directory entry.

CreateDFile	jsl GSOS
	dc.w Create
	dc.l CreateDParms	; Create the destination entry
	bcc @UpdateThermoDial

	cmp #VolumeNotFound
	beq @VolNotFoundError
	brl CheckError
@VolNotFoundError
	ldx OpenDPath
	ldy OpenDPath+2
	jsl Error
	bcc CreateDFile

;       Put up writing message and update thermometer.  Then open the
;       destination file's data fork.

@UpdateThermoDial	bit RemoveFlag
	bmi @OpenData
	jsr UpdateMsgWindowWrite
@OpenData
	jsl GSOS
	dc.w Open
	dc.l OpenDDParms	; Open the destination data fork
	bcc @OpenDataDone

	ldx OpenDPath
	ldy OpenDPath+2
	jsl Error
	bcc @OpenData
@CopyExit1	brl CopyExit
@OpenDataDone
	Eject
;¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥ ¥
;¥         \			               ¥
;¥\---------\  STOP RIGHT HERE and determine whether we were able to read  ¥
;¥ > L O O K > in the file's entire data and resource fork.  If not, we'll ¥
;¥/---------/  use our "SmallBuffer" routines to move the file.            ¥
;¥         /			               ¥
;¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥

	bit TooSmallFlag
	bpl @WriteData0
	jsr SmallBuffer
	bcs @CopyExit1
	stz TooSmallFlag	; Gotta clear this flag here in case the
	brl SetDestFileInfo	;  next file has resources only (CDev).

;       Write the destination file's data fork.

@WriteData0	lda OpenDDRefNum
	sta WriteDRefNum
	sta CloseDDRefNum

	lda ReadDTrnCnt
	sta WriteDReqCnt
	lda ReadDTrnCnt+2
	sta WriteDReqCnt+2

@WriteData	jsl GSOS
	dc.w Write
	dc.l WriteDParms	; Write the destination data fork
	bcc @CloseData

	ldx OpenDPath
	ldy OpenDPath+2
	jsl Error
	bcc @WriteData
	brl CopyExit
@CloseData
	jsl GSOS
	dc.w Close
	dc.l CloseDDParms	; Close the destination data fork
	bcc @ProcessResources

	ldx OpenDPath
	ldy OpenDPath+2
	jsl Error
	bcc @CloseData
	brl CopyExit
	Eject

; Process the file's resource fork

@ProcessResources	lda OpenSDStoreType	; Determine if there are any resouces
	cmp #ExtendedType
	bne SetDestFileInfo

;       Open the destination file's resource fork.

@OpenResource	jsl GSOS
	dc.w Open
	dc.l OpenDRParms	; Open the destination resource fork
	bcc @OpenResourceDone

	ldx OpenDPath
	ldy OpenDPath+2
	jsl Error
	bcc @OpenResource
	brl CopyExit
@OpenResourceDone

;       Write the destination file's resource fork.

	lda OpenDRRefNum
	sta WriteRRefNum
	sta CloseDRRefNum

	lda ReadRTrnCnt
	sta WriteRReqCnt
	lda ReadRTrnCnt+2
	sta WriteRReqCnt+2
@WriteResource
	jsl GSOS
	dc.w Write
	dc.l WriteRParms	; Write the destination resource fork
	bcc @CloseResource

	ldx OpenDPath
	ldy OpenDPath+2
	jsl Error
	bcc @WriteResource
	brl CopyExit
@CloseResource
	jsl GSOS
	dc.w Close
	dc.l CloseDRParms	; Close the destination resource fork
	bcc SetDestFileInfo

	ldx OpenDPath
	ldy OpenDPath+2
	jsl Error
	bcc @CloseResource
	brl CopyExit

; Set file info to values from original file.

SetDestFileInfo	ldy #Pathnames
	lda [<ZPTemp],y	; Get source pathname lengthWord
	inc a	;   and add on two (for lengthWord)
	inc a
	clc	; Add on the pointer to the source
	adc GetInfoPath	;   pathname to get a pointer to
	sta GetInfoPath	;   the destination pathname
	lda #0000
	adc GetInfoPath+2
	sta GetInfoPath+2

	jsl GSOS
	dc.w Set_File_Info
	dc.l GetInfoParms	; Set new destination file's info
	bcc @GetNextField

	ldx OpenDPath
	ldy OpenDPath+2
	jsl Error
	bcc SetDestFileInfo
	brl CopyExit
;
@GetNextField	brl GetNextField

;       We couldn't CREATE the file!  Why?

CheckError	cmp #PathNotFound	; If it's not a 'Path not found', oops!
	beq SaveStack

Error2	sec
	jsl Error
	brl CopyExit
	Eject

;       Oops!  Gotta create a subdirectory and try again

;       We're going to keep backing up until we can create a directory
;       or we get an error.  BUT! We're going to keep adding stuff to
;       the stack as we go.  SO, we need to store the stack pointer here
;       so that if we have to bail out before we have unwound the stack,
;       we can set it back to where it was.

SaveStack	tsc
	sta Temp

CreateDir	lda OpenDPath	; Drop last name by changing length
	sta <ZPTemp1
	lda OpenDPath+2
	sta <ZPTemp1+2

	lda [<ZPTemp1]
	tay

	sep #$0020
	LongA Off

	sty OriginalLength
NameCutLoop	lda [<ZPTemp1],y
	cmp #SeparatorChar
	beq FoundSlash
	dey
	bne NameCutLoop
FoundSlash	dey

	LongA On
	rep #$0020

	tya	; Store the new length word
	sta [<ZPTemp1]

;       We have now dropped off the last name, so try creating this directory

	lda <ZPTemp1
	sta CreatePath
	lda <ZPTemp1+2
	sta CreatePath+2

CreateCall	jsl GSOS
	dc.w Create
	dc.l CreateParms
	bcc DirCreated

	cmp #PathNotFound	; If it's not a 'Path not found', oops!
	beq @1

	ldx CreatePath
	ldy CreatePath+2
	jsl Error
	bcc CreateCall

	tax	; Preserve the error code
	lda Temp	; Restore the stack
	tcs
	txa	; Restore the error code
	brl CopyExit

;       We couldn't create the directory, so save length and back up again

@1	lda [<ZPTemp1]	; Get length word
	pha	;   and save it
	lda OriginalLength	; Get "OriginalLength"
	pha	;   and save it too
	inc StackDepth	
	brl CreateDir	; Keep trying

;       We created the directory sucessfully.  Check to see if we need to
;       create any more.

DirCreated	lda StackDepth	; Is there more on the stack?
	beq CreateDest	; No, CREATE, OPEN,	and WRITE the file
	pla	; Yeah, restore previous stuff and go back
	sta OriginalLength	;   and CREATE another directory
	pla
	sta [<ZPTemp1]
	dec StackDepth
	bra CreateCall

CreateDest	lda OriginalLength	; Restore the original length word
	sta [<ZPTemp1]
	brl CreateDFile

; If we got an error, deallocate memory	and drop through to	CopyExit

CopyExit	php
	pha
	lda FileHandle
	ora FileHandle+2
	beq @NoDispose

	lda FileHandle+2
	pha
	lda FileHandle
	pha
	ldx #DisposeHandle
	jsl ToolLocator
	stz FileHandle+2
	stz FileHandle
@NoDispose
	bra CopyExit2

CopyExit1	php
	pha

CopyExit2	stz CloseParms+2
	jsl GSOS
	dc.w Close
	dc.l CloseParms
	pla
	plp
	rts
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
CheckForReBoot	Name
;
; Description:	Checks for system file operations on the boot disk.  If
;	system files are being installed to the boot disk, this
;	routine performs the following operations:
;	  1.) Set the "ReBoot bit in the QuitFlag.
;	  2.) Shuts down classic and new desk accessories.
;
; Inputs:	none
;
; Outputs:	none
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

	lda >QuitFlag	; If "ReBoot" bit set, nothing to do
	and #%0100000000000000
	bne @jReturn

	lda ScriptFlag
	and #$00DF	; Look at 1st character (UPPER case)
	cmp #'R'	; Is directory selection required?
	beq @Continue
@jReturn	brl @Return
@Continue

;       It's a system file installation, so compare the boot volume
;       name with CurDirectory.

	phb	; save b reg so it can be used to pop bytes
	pha	; temporary storage

	jsl GetCurDirPtr	; Get the pointer and lock it down

	ldx #0002
	lda >VolStrBuffer,x	; length of boot volume name
	tax	; (Must use x for indexed long addressing)

	inx
	inx
	inx

	cmp [<CurDirPtr],y	; same length? (possibly also just boot volume)
	beq @CompareName
	bcs @PopTempStore	; if boot vol name is longer, then cannot be the same

; boot volume name is shorter: next 

	txy
	lda [<CurDirPtr],y
	and #$FF00
	cmp #SeparatorChar*$100
	bne @PopTempStore	; if not separator, then cannot be the same

@CompareName	txy	; (Must use y for indirect indexed long addressing)
@NameCompareLoop	lda >VolStrBuffer,x
	and #$00DF	; coerce to upper
	sta 1,s	; put in temp
	lda [<CurDirPtr],y
	and #$00DF	; coerce to upper
	cmp 1,s
	bne @PopTempStore
	dey
	dex
	cpx #4
	bcs @NameCompareLoop
	bra @TheyreTheSame
@PopTempStore	pla	; pop temp storage
	plb	; and restore bank pointer, no PSW change
	brl @Exit

;       They're the same.  Set the "ReBoot" bit in QuitFlag

@TheyreTheSame	pla	; pop temp storage
	plb	; and restore bank pointer, no PSW change

	lda >QuitFlag
	ora #%0100000000000000
	sta >QuitFlag
	Eject

; We can no longer guarantee that desk accessories can operate since we may
; have old tools in memory that expect to find compatible old tools on the
; disk.

; First, shut down all New Desk Accessories

	pha	; Space for result
	ldx #GetNumNDAs	; How many NDAs in menu
	jsl ToolLocator
	pla
	sta NumOfItems
	beq @ClassicShutdown

@NDADisableLoop	pha
	ldx #DisableMItem
	jsl ToolLocator

	dec NumOfItems
	lda NumOfItems
	bne @NDADisableLoop	;  About Installer... items

; Now, shut down all Classic Desk Accessories

@ClassicShutdown	pea %1111101111111111
	ldx #SetEventMask
	jsl ToolLocator

@Exit	jsl UnlockCurDirHdl
@Return	rts
	eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
SmallBuffer
;
; Description:	SmallBuffer is a local subroutine to copy files that are
;	too large to fit in the buffer we got from the
;	MemoryManager.  It copies the data fork in as many passes
;	as is necessary and then copies the resource fork in an
;	many passes as is necessary.
;
;	The file's data fork should already be open with the data
;	in the parameter table, OpenSDParms, available.  The first
;	"chunk" of the data fork (possibly all) has been read and
;	the destination files has been created along with all
;	required subdirectories.
;
; Inputs:	none
;
; Outputs:	cFlag clear and A-reg = zero if file copied OK
;	cFlag set and A-reg = ErrorCode if file not copied
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

	lda OpenDDRefNum
	sta WriteDRefNum
	sta CloseDDRefNum
	bra @WriteData

; Read a "chunk" of the data fork

@ReadData
	jsl GSOS
	dc.w Read
	dc.l ReadDParms
	bcc @WriteData

	cmp #EndOfFile
	beq @CloseData

	ldx OpenSPath
	ldy OpenSPath+2
	jsl Error
	bcc @ReadData
	brl @Finished

; Write out the "chunk" of data.

@WriteData
	lda ReadDTrnCnt
	sta WriteDReqCnt
	lda ReadDTrnCnt+2
	sta WriteDReqCnt+2

@WriteData1	jsl GSOS
	dc.w Write
	dc.l WriteDParms
	bcc @ReadData

	ldx OpenDPath
	ldy OpenDPath+2
	jsl Error
	bcc @WriteData1
	brl @Finished

; Close the source and destination data forks

@CloseData	jsl GSOS	; (Source prefix already set)
	dc.w Close
	dc.l CloseSDParms
	bcc @CloseData1

	ldx OpenSPath
	ldy OpenSPath+2
	jsl Error
	bcc @CloseData
	brl @Finished
@CloseData1
	jsl GSOS
	dc.w Close
	dc.l CloseDDParms
	bcc @CheckForResources

	ldx OpenDPath
	ldy OpenDPath+2
	jsl Error
	bcc @CloseData1
	brl @Finished

; Check for resources

@CheckForResources	lda OpenSDStoreType	; Determine if there are any resouces
	cmp #ExtendedType
	beq @OpenResources

	lda #0000	; Indicate no errors
	clc
	brl @Finished

; Open the source and destination resource forks

@OpenResources
	jsl GSOS
	dc.w Open
	dc.l OpenSRParms
	bcc @OpenResources1

	ldx OpenSPath
	ldy OpenSPath+2
	jsl Error
	bcc @OpenResources
	brl @Finished
@OpenResources1
	jsl GSOS
	dc.w Open
	dc.l OpenDRParms
	bcc @DoResources

	ldx OpenDPath
	ldy OpenDPath+2
	jsl Error
	bcc @OpenResources1
	brl @Finished

; Read a "chunk" of the resource fork

@DoResources	lda ReadDBuffer
	sta ReadRBuffer
	lda ReadDBuffer+2
	sta ReadRBuffer+2

	lda WriteDBuffer
	sta WriteRBuffer
	lda WriteDBuffer+2
	sta WriteRBuffer+2

	lda CopyBufferSize
	sta ReadRReqCnt
	lda CopyBufferSize+2
	sta ReadRReqCnt+2

	lda OpenSRRefNum
	sta ReadRRefNum
	sta CloseSRRefNum

	lda OpenDRRefNum
	sta WriteRRefNum
	sta CloseDRRefNum
@ReadResources
	jsl GSOS
	dc.w Read
	dc.l ReadRParms
	bcc @WriteResources

	cmp #EndOfFile
	beq @CloseResources

	ldx OpenSPath
	ldy OpenSPath+2
	jsl Error
	bcc @ReadResources
	brl @Finished

; Write the "chunk" of resources

@WriteResources
	lda ReadRTrnCnt
	sta WriteRReqCnt
	lda ReadRTrnCnt+2
	sta WriteRReqCnt+2

@WriteResources1	jsl GSOS
	dc.w Write
	dc.l WriteRParms
	bcc @ReadResources

	ldx OpenDPath
	ldy OpenDPath+2
	jsl Error
	bcc @WriteResources1
	brl @Finished

; Close the source and destination resource forks

@CloseResources	jsl GSOS	;;; (Source prefix already set)
	dc.w Close
	dc.l CloseSRParms
	bcc @CloseResources1

	ldx OpenSPath
	ldy OpenSPath+2
	jsl Error
	bcc @CloseResources
	brl @Finished

@CloseResources1
	jsl GSOS
	dc.w Close
	dc.l CloseDRParms
	bcc @Finished

	ldx OpenDPath
	ldy OpenDPath+2
	jsl Error
	bcc @CloseResources1
	brl @Finished

@Finished	rts
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
CompareNames
;
;Description:	This is a local subroutine to compare the full source and
;	destination pathnames.  They are already fully expanded
;	unless we're running the Standard Update script!  In that
;	case, only the source pathname is fully expanded.
;
; Inputs:	none (It will get the names from the proper places in the
;	current FileSpec field.)
;
; Outputs:	c-flag clear if names are identical.
;	c-flag set if names are different.
;
; NOTES:          ¥ <ZPTemp points to the beginning of the current FileSpecField.
;                 ¥ P
athnames is the offset to the source pathname, a GSOS
;	class 1 input string.  The destination pathname follows
;	the source pathname.
;                 ¥ <ZPTemp1 is setup to point to the source pathname.
;                 ¥ <ZPtemp2 is setup to point to the destination pathname.
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

; Set up the source pathname pointer.  This is also a good chance to put
; the pointers into the appropriate OPEN parameter tables.

	clc
	lda <ZPtemp
	adc #Pathnames
	sta <ZPTemp1
	sta OpenSDPath
	sta OpenSRPath
	lda <ZPTemp+2
	adc #0000
	sta <ZPTemp1+2
	sta OpenSDPath+2
	sta OpenSRPath+2


;       Set up the destination pathname pointer.  This is also a good chance
;       to put the pointers into the appropriate OPEN parameter tables.

	clc	; Calculate location of dest pathname
	lda [<ZPtemp1]	; length of source pathname string
	adc #0002	; Add on lengthWord
	adc <ZPtemp1	; + loc of str yields loc just past source path str
	sta <ZPTemp2	;   (yields loc of unexpanded dest path str)
	sta OpenDDPath
	sta OpenDRPath
	sta ExpandInputPath
	lda #0000
	adc <ZPTemp1+2
	sta <ZPTemp2+2
	sta OpenDDPath+2
	sta OpenDRPath+2
	sta ExpandInputPath+2

; If the Standard Update script is executing, we don't have a full destination
; pathname.

	lda >UpdateFlag
	and #%0100000000000000
	beq DoCompare

;       The Standard Update script IS running.  We do not have a full pathname.
;       We'll need to get some memory and build a full pathname for comparing.
;       ZPTemp2, set earlier, is not valid (points to partial pathname only)

	jsl GetCurDirPtr

	pha	; Room for result
	pha
	pea 0000	; (use GStr's default length)
	lda >MyID
	pha
	jsl GStrNew	; Get a new, locked buffer
	plx
	stx <ZPTemp2
	stx ExpandOutputPath
	ply
	sty <ZPTemp2+2
	sty ExpandOutputPath+2
	bcc @ExpandDestPath

	lda #$0081	; Oops!  Out of memory.
	jsl Error	
	bra Different1

@ExpandDestPath	jsl GSOS
	dc.w Expand_Path
	dc.l ExpandPathParms

	pha	; If it didn't fit, resize the buffer
	pha	;   and try again.
	pei <ZPTemp2+2	; address of buffer
	pei <ZPTemp2
	jsl GStrResize
	sta temp	; remember error code
	pla	; pull new address of buffer
	sta <ZPTemp2
	sta ExpandOutputPath
	pla
	sta <ZPTemp2+2
	sta ExpandOutputPath+2
	bcc @AdjustPointer	; bra if no error

	lda temp	; get error code
	cmp #0004	; GStrBufferError ?
	beq @ExpandDestPath	; wasnÕt big enough 1st time; now is; retry

@AdjustPointer	inc <ZPTemp2	; Adjust pointer to point at lengthWord
	bne @NoAdjustHi
	inc <ZPTemp2+2
@NoAdjustHi	inc <ZPTemp2
	bne @NoAdjustHi2
	inc <ZPTemp2+2
@NoAdjustHi2

; Compare the two strings, byte for byte

DoCompare	lda [<ZPTemp1]	; Use source's length word
	cmp [<ZPTemp2]	; But first, be sure theyÕre the same
	bne Different1
	tay
	iny

	sep #$0020
	LongA Off

CompareLoop	lda [<ZPTemp1],y
	jsl UpperCase8bit	; (Comparison must be case insensitive)
	sta temp
	lda [<ZPTemp2],y
	jsl UpperCase8bit
	cmp Temp
	bne Different
	dey
	bpl CompareLoop

; They are the same!

	LongA On
	rep #$0020
	jsr DisposeMemory
	clc
	rts

; They're different!

Different
	LongA On
	rep #$0030
Different1	jsr DisposeMemory
	sec
	rts

; if Standard Update, we got memory; now dispose of it
DisposeMemory	lda >UpdateFlag
	and #%0100000000000000
	beq @NoDispose	; bra if not Standard Update
	lda ExpandoutputPath+2
	pha
	lda ExpandOutputPath
	pha
	jsl GStrDispose
@NoDispose	rts
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
DeleteFile
;
; Description:	DeleteFile will delete the destination file specified in
;	the FileSpec field pointed to by <ZPTemp.
;
; Inputs:	none
;
; Outputs:	c-flag clear if everything went OK
;	c-flag set if an error occured and A-reg contains
; 	   the error code.
;
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

; Calculate offset to destination name

	clc
	ldy #Pathnames	; Get offset to source pathname
	lda [<ZPTemp],y	; Get length word
	adc #Pathnames+2
	adc <ZPTemp
	sta GetInfoPath
	sta DestroyPath
	lda #$0000
	adc <ZPTemp+2
	sta GetInfoPath+2
	sta DestroyPath+2

	stz GetInfoDate1	; Clear out old values
	stz GetInfoTime1

GetFileInfo	jsl GSOS
	dc.w Get_File_Info
	dc.l GetInfoParms
	bcc CheckFlagWord

	cmp #PathNotFound	; These error leave us with nothing
	beq NoErrorExit	;   to do and can be ignored
	cmp #FileNotFound
	beq NoErrorExit
	bra ErrorExit	; Report all others

; Check the FlagsWord

CheckFlagWord	lda [<ZPTemp]
	bit #FlagD	; Check for "D" flag
	beq UnlockFile

; If "D" flag is set, we have to compare dates and times and only delete
; the file if it is older than the FileSpec's creation date/time

	jsr ConvertDateTime	; Convert to ProDOS format

	lda GetInfoDate1	; If Date/Time is null,
	ora GetInfoTime1	;   there's no file to delete
	beq NoErrorExit

	bit RemoveFlag
	bmi NoErrorExit	; Ignore "D" on REMOVE

	ldy #CreationTime
	lda GetInfoTime1
	cmp [<ZPTemp],Y
	dey
	dey
	lda GetInfoDate1
	sbc [<ZPTemp],Y
	bcs NoErrorExit

; Unlock the file.  (If it's already unlocked, it won't hurt.)

UnlockFile	lda #%0000000011100011
	sta GetInfoAccess

	jsl GSOS
	dc.w Set_File_Info
	dc.l GetInfoParms

	cmp #VolumeNotFound
	bne DestroyFile

	ldx GetInfoPath
	ldy GetInfoPath+2
	jsl Error
	bcc UnlockFile
	bra Exit

; Delete the file

DestroyFile	jsl GSOS	; Delete the file
	dc.w Destroy
	dc.l DestroyParms
	bcc Exit

;       Some possible returned errors can be ignored.

	cmp #PathNotFound
	beq NoErrorExit
	cmp #FileNotFound
	beq NoErrorExit
	cmp #invalidAccess	; network error, or folder still has stuff in it
	beq NoErrorExit

ErrorExit	sec
ErrExit	jsl Error	; Report the error
	rts

NoErrorExit	clc
Exit	rts
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
;
; Local Data

Temp	ds.w 1
FreeMemory	ds.l 1
CopyBufferSize	ds.l 1
TooSmallFlag	ds.w 1
OurFlagsWord	ds.w 1
FileHandle	ds.l 1	; Handle to file copy buffer
BootCodeBuffer	ds.l 1
OriginalLength	ds.w 1	; Original name length word
StackDepth	ds.w 1	; Depth of variables on stack

DestroyParms	dc.w 0001	; pCount
DestroyPath	ds.l 1	; pathname

SysPrefParms	dc.w 0001	; pCount
	dc.w 0000	; preferences

Preferences	dc.w 0000

NumOfItems	ds.w 1

DWriteParms	dc.w 0006	; pCount
DWriteDevNum	ds.w 1	; devNum
DWriteBuffer	ds.l 1	; buffer
	dc.l 00001024	; requestCount
	dc.l 00000000	; startingBlock
	dc.w 0512	; blockSize
	ds.l 1	; transferCount

; Parameters for creating subdirectories.

CreateParms	dc.w 0007	; pCount
CreatePath	ds.l 1	; Pathname pointer
	dc.w %11100011	; Access
	dc.w $000F	; File type
	dc.l $00000000	; Aux type
	dc.w $000D	; Storage type
	ds.w 1	; Creation date
	ds.w 1	; Creation time

; Parameters for creating the destination file directory entry.

CreateDParms	dc.w 0007	; PCount
CreateDPath	ds.l 1	; Pathname
	dc.w 0000	; Access
	dc.w 0000	; File_Type
	dc.l 00000000	; Aux_Type
CreateDStoreType	dc.w 0000	; Storage_Type
	dc.l 00000000	; Data_EOF
	dc.l 00000000	; Resource_EOF

; Parameters for opening the source file data fork and getting ALL the
; information about the file.

OpenSDParms 	dc.w 0014	; PCount
OpenSDRefNum	ds.w 1	; Ref_Num
OpenSDPath	ds.l 1	; Pathname
	dc.w RequestRead	; Request_Access
	dc.w 0000	; Resource_Number
	dc.w 0000	; Access
	dc.w 0000	; File_Type
	dc.l 00000000	; Aux_Type
OpenSDStoreType	dc.w 0000	; Storage_Type ($05 = extended)
	dc.l 00000000,00000000 ; Create_Date_Time
	dc.l 00000000,00000000 ; Mod_Date_Time
	dc.l 00000000	; Option_List
OpenSDEOF	dc.l 00000000	; EOF
	dc.l 00000000	; Blocks_Used
OpenSDResourceEOF	dc.l 00000000	; Resource_EOF

; Parameters for opening the source file resource fork.

OpenSRParms 	dc.w 0004	; PCount
OpenSRRefNum	ds.w 1	; Ref_Num
OpenSRPath	ds.l 1	; Pathname
	dc.w RequestRead	; Request_Access
	dc.w 0001	; Resource_Number

; Parameters for opening the destination file data fork.

OpenDDParms 	dc.w 0004	; PCount
OpenDDRefNum	ds.w 1	; Ref_Num
OpenDDPath	ds.l 1	; Pathname
	dc.w RequestWrite	; Request_Access
	dc.w 0000	; Resource_Number

; Parameters for opening the destination file resource fork.

OpenDRParms 	dc.w 0004	; PCount
OpenDRRefNum	ds.w 1	; Ref_Num
OpenDRPath	ds.l 1	; Pathname
	dc.w RequestWrite	; Request_Access
	dc.w 0001	; Resource_Number

; Parameters for reading source file data fork.

ReadDParms	dc.w 0004	; PCount
ReadDRefNum	dc.w 0000	; Ref_Num
ReadDBuffer	dc.l 00000000	; Data_Buffer
ReadDReqCnt	dc.l 00000000	; Request_Count
ReadDTrnCnt	dc.l 00000000	; Transfer_Count

; Parameters for reading source file resource fork.

ReadRParms	dc.w 0004	; PCount
ReadRRefNum	dc.w 0000	; Ref_Num
ReadRBuffer	dc.l 00000000	; Data_Buffer
ReadRReqCnt	dc.l 00000000	; Request_Count
ReadRTrnCnt	dc.l 00000000	; Transfer_Count

; Parameters for writing destination file data fork.

WriteDParms	dc.w 0004	; PCount
WriteDRefNum	dc.w 0000	; Ref_Num
WriteDBuffer	dc.l 00000000	; Data_Buffer
WriteDReqCnt	dc.l 00000000	; Request_Count
	dc.l 00000000	; Transfer_Count

; Parameters for writing destination file resource fork.

WriteRParms	dc.w 0004	; PCount
WriteRRefNum	dc.w 0000	; Ref_Num
WriteRBuffer	dc.l 00000000	; Data_Buffer
WriteRReqCnt	dc.l 00000000	; Request_Count
	dc.l 00000000	; Transfer_Count

; Parameters for closing source file data fork.

CloseSDParms	dc.w 0001	; PCount
CloseSDRefNum	dc.w 0000	; Ref_Num

; Parameters for closing source file resource fork.

CloseSRParms	dc.w 0001	; PCount
CloseSRRefNum	dc.w 0000	; Ref_Num

; Parameters for closing destination file data fork.

CloseDDParms	dc.w 0001	; PCount
CloseDDRefNum	dc.w 0000	; Ref_Num

; Parameters for closing destination file resource fork.

CloseDRParms	dc.w 0001	; PCount
CloseDRRefNum	dc.w 0000	; Ref_Num
	EndP ;{CopyAndDeleteFiles}
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
RestoreLevel	Proc
*
* Description:	Restore the file level using the GetLevelParms
*
* Inputs:	none
*
* Outputs:	none
*
* External Refs:
	Import GetLevelParms
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

	jsl GSOS
	dc.w Set_Level
	dc.l GetLevelParms
	rts
	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
MsgWindow	Proc
*
* Description:	Routines to maintain a message window.
*
* Inputs:	none
*
* Outputs:	none
*
* External Refs:
	Import InstallStandBy ; From Data.asm  ** NOTE: ScriptVer
	Import ReadingString  ; From Data.asm  ** Provides the hi
	import ScriptVer	  ; From Data.asm  ** byte of address
	Import SkippingString ; From Data.asm  ** for all the
	Import TerminationMsg ; From Data.asm  ** strings!
	Import WritingString
*
	Import OpenDPath
	import OpenSPath
	Import ThermoDialProc
	Import TotalBlocksForInstall
* Entry Points:
	Entry CloseMsgWindow
	Entry CreateDial
	Entry DrawMessage
	Entry OpenInstMsgWdw
	Entry UpdateMsgWindow
	Entry UpdateMsgWindowRead
	Entry UpdateMsgWindowSkip
	Entry UpdateMsgWindowWrite
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
OpenInstMsgWdw	; Local subroutine to this file
;
; Description:	Opens the alert window and draws the first msg.
;	Pointer to window is left in WindowGrafPort.
;
; Inputs:	none
;
; Outputs:	none
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

; CurrentPort is maintained.

	pha
	pha
	ldx #GetPort
	jsl ToolLocator	; Store the current port on the stack

	pha	; Room for result
	pha
	pea WindowTemplate>>16
	pea |WindowTemplate
	ldx #NewWindow
	jsl ToolLocator
	pla
	sta WindowGrafPort
	pla
	sta WindowGrafPort+2

; Tell the user how to get out of INSTALL/REMOVE

	jsr DrawMessage

; Tell the user to hang in there

	lda #InstallStandBy
	jsr UpdateMsgWindow

	ldx #SetPort
	jsl ToolLocator	; Restore original port

	rts
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
DrawMessage
;
; Description:	Subroutine to redraw the message explaining how
;	to terminate further script processing.  It also
;	reframes the thermodial.
;
; Inputs:	none
;
; Outputs:	none
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

	pha
	pha
	ldx #GetPort
	jsl ToolLocator

	lda WindowGrafPort+2
	pha
	lda WindowGrafPort
	pha
	ldx #SetPort
	jsl ToolLocator

	pea 0008	; Horizontal position
	pea 0009	; Vertical position
	ldx #MoveTo	; Position pen
	jsl ToolLocator

	pea TerminationMsg>>16 ; Re-draw the message
	pea |TerminationMsg
	ldx #DrawString
	jsl ToolLocator

;;;	pea DialRect>>16	; Re-frame the thermodial in case
;;;	pea |DialRect	;   it got erased during another
;;;	ldx #FrameRect	;   message (such as a GS/OS request
;;;	jsl ToolLocator	;   to mount a volume).

	ldx #SetPort
	jsl ToolLocator
	rts	; Return to caller
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
CloseMsgWindow
;
; Description:	Closes window whose pointer is in WindowGrafPort
;	CurrentPort is maintained.
;
; Inputs:	none (expects value in WindowGrafPort)
;
; Outputs:	any errors return by tool call
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

	lda WindowGrafPort+2
	pha
	lda WindowGrafPort
	pha
	ldx #CloseWindow
	jsl ToolLocator

	rts
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
UpdateMsgWindow
;
; Description:	Updates the message window by drawing a new message in
;	the window.
;
;	CurrentPort is maintained.
;
; Inputs:	a-reg contains low word of pointer to msg string
;
; Outputs:	none
;
; NOTE:	All strings to be printed this way must be in the same
;	bank as "ScriptVer".
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

	pha	; Save the input word on stack

	pha	; Get the current port
	pha
	ldx #GetPort
	jsl ToolLocator

	lda WindowGrafPort+2
	pha
	lda WindowGrafPort
	pha
	ldx #SetPort
	jsl ToolLocator

	jsr DrawMessage	; Tell the user how to get out of INSTALLREMOVE

	lda 5,s	; Get input word back off stack
	pea ScriptVer>>16	; Push high word of pointer to string
	pha	; Push low word (passed in a-reg)

	jsr EraseMsg	; Clear old msg & position pen

	ldx #DrawString
	jsl ToolLocator	; Print the string (using pointer on stack)

	ldx #SetPort
	jsl ToolLocator	; Restore port

	pla	; pull input word back off stack.
	rts
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
CreateDial
;
; Description:	Creates the custom control and sets the
;	TotalBlocksForInstall as the number that is used for
;	the dial's maximum value.
;
;	It also causes the control to be drawn.
;
; Inputs:	none
;
; Outputs:	none
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

	pha	; Get the current port
	pha
	ldx #GetPort
	jsl ToolLocator

	lda WindowGrafPort+2
	pha
	lda WindowGrafPort
	pha
	ldx #SetPort
	jsl ToolLocator

	pha	; Room for result
	pha
	lda WindowGrafPort+2
	pha
	lda WindowGrafPort
	pha
	pea DialRect>>16
	pea |DialRect
	lda TotalBlocksForInstall+2 ; max size of dial
	pha
	lda TotalBlocksForInstall
	pha
	pea 0001	; type of dial
	pea 0000	; starting value
	pea 0000	; ignore
	pea 0000	; ignore
	pea ThermoDialProc>>16 ; dial's definition procdure
	pea |ThermoDialProc
	pea 0000
	pea 0000
	pea ThermoDialColor>>16 ; color table ptr
	pea |ThermoDialColor
	ldx #NewControl
	jsl ToolLocator
	pla
	sta DialHandle
	pla
	sta DialHandle+2

*** added 24-Mar-93 SS -- if no total, hide the thermometer
	lda TotalBlocksForInstall
	ora TotalBlocksForInstall+2
	bne @ok
	lda DialHandle+2
	pha
	lda DialHandle
	pha
	ldx #HideControl
	jsl ToolLocator	
@ok
*** end 24-Mar-93 SS
	lda WindowGrafPort+2
	pha
	lda WindowGrafPort
	pha
	ldx #Drawcontrols
	jsl ToolLocator

	stz RunningCount

	ldx #SetPort
	jsl ToolLocator

	rts
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
UpdateMsgWindowRead
;
; Description:	Displays the name of the file being read and updates
;	the progress dial by an amount equal to 1/2 the size
;	of the file.
;
;	Uses the size and name from the FileSpec in the compacted
;	script.
;
; Inputs:	none
;
; Outputs:	none
;
; NOTE:	Expects <ZPTemp to point to the current FileSpecField
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

	pha	; get the current port
	pha
	ldx #GetPort
	jsl ToolLocator

	lda WindowGrafPort+2
	pha
	lda WindowGrafPort
	pha
	ldx #SetPort
	jsl ToolLocator

	jsr EraseMsg	; Clear old msg & position pen

	ldy #SourceSize
	lda [<ZPTemp],y
	lsr a
	clc
	adc RunningCount
	sta RunningCount

	pea ReadingString>>16
	pea |ReadingString
	ldx #DrawString
	jsl ToolLocator	; Print the string (using pointer on stack)

	lda OpenSPath+2	; Print only the filename to prevent
	pha	;   overflowing the box.
	lda OpenSPath
	pha
	jsr DrawFilename

	jsr DrawMessage

	lda RunningCount
	pha
	lda DialHandle+2
	pha
	lda DialHandle
	pha
	ldx #SetCtlValue
	jsl ToolLocator


	ldx #SetPort
	jsl ToolLocator	; restore port

	rts
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
UpdateMsgWindowWrite
;
; Description:	Displays the name of the file being written and updates
;	the progress dial by an amount equal to the 1/2 the
;	size of the file.
;
;	Uses the size and name from the FileSpec in the compacted
;	script.
;
; Inputs:	none
;
; Outputs:	none
;
; NOTE:	Expects <ZPTemp to point to the surrent FileSpecField
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

	pha	; get the current port
	pha
	ldx #GetPort
	jsl ToolLocator

	lda WindowGrafPort+2
	pha
	lda WindowGrafPort
	pha
	ldx #SetPort
	jsl ToolLocator

	jsr EraseMsg	; Clear old msg & position pen

	ldy #SourceSize
	lda [<ZPTemp],y
	lsr a
	bcc @1	; (If the number was odd, we need
	inc a	; to make up the extra block here
	clc	; so dial will finish at end.)
@1	adc RunningCount
	sta RunningCount

	pea WritingString>>16
	pea |WritingString
	ldx #DrawString	; Print the string (using pointer on stack)
	jsl ToolLocator

	lda OpenDPath+2	; Print only the filename to prevent
	pha	;   overflowing the box.
	lda OpenDPath
	pha
	jsr DrawFilename

	jsr DrawMessage

	lda RunningCount
	pha
	lda DialHandle+2
	pha
	lda DialHandle
	pha
	ldx #SetCtlValue
	jsl ToolLocator

	ldx #SetPort	; restore port
	jsl ToolLocator

	rts
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
UpdateMsgWindowSkip
;
; Description:	Displays the name of the file being skipped and updates
;	the progress dial by an amount equal to the 1/2 the
;	size of the file.
;
;	Uses the size and name from the FileSpec in the compacted
;	script.
;
; Inputs:	none
;
; Outputs:	none
;
; NOTE:	Expects <ZPTemp to point to the surrent FileSpecField
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

	pha	; get the current port
	pha
	ldx #GetPort
	jsl ToolLocator

	lda WindowGrafPort+2
	pha
	lda WindowGrafPort
	pha
	ldx #SetPort
	jsl ToolLocator

	jsr EraseMsg	; Clear old msg & position pen

	ldy #SourceSize
	lda [<ZPTemp],y
	lsr a
	bcc @1	; (If the number was odd, we need
	inc a	; to make up the extra block here
	clc	; so dial will finish at end.)
@1	adc RunningCount
	sta RunningCount

	pea SkippingString>>16
	pea |SkippingString
	ldx #DrawString	; Print the string (using pointer on stack)
	jsl ToolLocator

	lda OpenDPath+2	; Print only the filename to prevent
	pha	;   overflowing the box.
	lda OpenDPath
	pha
	jsr DrawFilename

	jsr DrawMessage

	lda RunningCount
	pha
	lda DialHandle+2
	pha
	lda DialHandle
	pha
	ldx #SetCtlValue
	jsl ToolLocator

	ldx #SetPort	; restore port
	jsl ToolLocator

	rts
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
EraseMsg
; 
; Description:	EraseMsg clears the message portion of the user
;	notification window and positions the pen in preparation
;	for drawing the next message.
;
; Inputs:	none
;
; Outputs:	none
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

	pea 0008	; Horizontal position
	lda MsgRect+4	; Vertical position
	dec a
	pha
	ldx #MoveTo	; Position pen
	jsl ToolLocator

	pea MsgRect>>16	; Message rectangle
	pea |MsgRect
	ldx #EraseRect	; Erase rectangle
	jsl ToolLocator

	rts
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
DrawFilename
;
; Description:	Draws the filename portion of the specified full pathname.
;
; Inputs:	Pointer to the full pathname on the stack.
;
; Outputs:	none
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

	phd
	tsc
	tcd

; Find the filename portion of the full pathname GS/OS class 1 input string.

	ldx #0000	; Initialize character counter
	lda [05]	; Initialize index
	tay
	iny

	sep #$0020
	LongA Off

SearchLoop	lda [05],y
	cmp #SeparatorChar
	beq SearchDone
	dey
	inx
	cpy #0001
	bne SearchLoop
SearchDone

; Move the substring into the String Buffer.

	stx StringLength	; Length word for comparison
	stx StringBuffer	; To become Pascal string length byte
	ldx #0000
MoveLoop	inx
	iny
	lda [05],y
	sta StringBuffer,x
	cpx StringLength
	bne MoveLoop

; Draw the string.

DrawTheString	rep #$0020
	LongA On

	pea StringBuffer>>16
	pea |StringBuffer
	ldx #DrawString
	jsl ToolLocator

	pld	; Restore called d-Page

	lda 1,s	; Move the return address up
	sta 5,s

	pla	; Pull the inputs off the stack
	pla

	rts
	Eject

; Stuff associated with the message window that lets user know what's happening

WindowTemplate	dc.w WinTempLen	; paramLength
	dc.w %0010000000100000 ; wFrame
	dc.l 00000000	; wTitle
	dc.l 00000000	; wRefCon
	dcb.b 8,0000000000000000 ; wZoom
	dc.l 00000000	; wColor
	dc.w 0000	; wYOrigin
	dc.w 0000	; wXOrigin
	dc.w 0000	; wDataH
	dc.w 0000	; wDataW
	dc.w 0000	; wMaxH
	dc.w 0000	; wMaxW
	dc.w 0000	; wScrollVer
	dc.w 0000	; wScrollHor
	dc.w 0000	; wPageVer
	dc.w 0000	; wPageHor
	dc.l 00000000	; wInforRefCon
	dc.w 0000	; wInfoHeight
	dc.l 00000000	; wFrameDefProc
	dc.l 00000000	; wInfoDefProc
	dc.l 00000000	; wContDefProc
WindowPosition	dc.w 111,135,151,505 ; wPosition
	dc.l $FFFFFFFF	; wPlane
	dc.l 00000000	; wStorage
WinTempLen	equ *-WindowTemplate

MsgTop	equ 15
MsgLeft	equ 0
MsgBottom	equ MsgTop+12
MsgRight	equ 370

MsgRect	dc.w MsgTop,MsgLeft,MsgBottom,MsgRight	; Message rectangle

WindowGrafPort	ds.l 1

DialHandle	dc.l 00000000
DialRect	dc.w 30,30,38,335
ThermoDialColor	dc.w %0000000000000000 ; bits 0-3: outline color (black)
	dc.w %0000000000001111 ; bits 0-3: interior color (white)
	dc.w %0000000000000000 ; bits 0-3: foreground color (black)
	dc.w %0000000000000001 ; bits 0-3: background color (red)
		   ;   bit 15: 1 = dotted, 0 = solid
RunningCount	dc.w 0

StringLength	ds.w 1

StringBuffer	ds.b 33	; Room for 32 character Pascal string
	EndP ;{MsgWindow}
	Eject
;===============================================================
;=============== General Install.asm Subroutines ===============
;===============================================================
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
CheckForInterrupt	Proc
*
* Description:	Calls the event manager and looks for the
*	"Apple-Period" command.
*
* Inputs:	c-flag clear = display "Unknown Mix" dialog if
*	     Apple-<period> pressed
*	c-flag set = don't display "Unknown Mix" dialog
*
* Outputs:	c-flag set = user wants to interrupt, clear if not.
*
* External Refs:
	Import ContinueStr	    ; From Data.asm
	Import DrawStopIcon
	Import EndUnknownMixMsg ; From Data.asm
	Import HaltStr	    ; From Data.asm
	Import Task:TaskRecord  ; From Data.asm
	Import UnknownMixMsg    ; From Data.asm
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

	php	; Save c-flag

	pha	; Space for result
	pea #keyDownMask+autoKeyMask+deskAccMask
	pea Task>>16
	pea |Task
	ldx #GetNextEvent
	jsl ToolLocator
	pla	; Get the TaskCode
	beq @Done

	lda >Task.Modifiers
	and #AppleKey
	beq @Done

	lda >Task.Message
	and #$00FF
	cmp #'.'
	bne @Done

; There WAS an interrupt request from the user!  If the call was made with
; the c-flag clear, we must display the "Unknown Mix" dialog.

	plp
	bcs @1

	ldx #InitCursor
	jsl ToolLocator

	jsr UnknownMix	; c-flag set on HALT, clear on CONTINUE
	php

	ldx #WaitCursor
	jsl ToolLocator

	jsr DrawMessage
	plp
@1	rts

@Done	plp
	clc
	rts
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
UnknownMix
;
; Description:	UnknownMix - This routine will present a dialog box
;	notifying the user that an unknown mix of files may
;	be present on the destination disk if they stop the
;	current process.  It should be called when
;	Open-Apple-<period> is pressed.
;
; Inputs:	none
;
; Outputs:	c-flag set = "Halt" was selected
;	c-flag clear = "Continue" was selected
;
; External references:
	import DialogFlag
	import UpdateMainDialog
	import UpdateEasyDialog

;
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

	pha	; Space for result
	pea UnknownMixTemplate>>16 ; Pointer to template
	pea |UnknownMixTemplate
	pea 0000	; Filter procedure
	pea 0000
	ldx #Alert
	jsl ToolLocator
	pla	; Get the item hit ID

	cmp #0002	; Clear the c-flag if "Continue" was hit
	php	; Set the c-flag if "Halt" was hit

; update window
	lda >DialogFlag
	bmi @doEasy	; bra if Easy Update
	jsl UpdateMainDialog ; update
	bra @unknownDone

@doEasy	jsl UpdateEasyDialog ; update	

@unknownDone	plp
	rts
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
; Dialog template: installation only partially complete: unknown mix of files installed

uWidth    equ 377
uHeight   equ 62

uTop      equ (200/2)-(uHeight/2)-8
uLeft     equ (640/2)-(uWidth/2)
uBottom   equ uTop+uHeight
uRight    equ uLeft+uWidth

UnknownMixTemplate	dc.w uTop,uLeft,uBottom,uRight
	dc.w 5555	; ID
	dc.b $81
	dc.b $81
	dc.b $81
	dc.b $81
	dc.l ContinueButton
	dc.l HaltButton
	dc.l MessageItem
	dc.l Icon
	dc.l 00000000

ContinueButton	dc.w 1	; ID
	dc.w uHeight-20,uWidth-112  ; Bounds rect for button
	dc.w uHeight-8,uWidth-22
	dc.w ButtonItem	; Type
	dc.l ContinueStr	; Item descriptor
	dc.w 0000	; Item value
	dc.w 0001	; Item flag
	dc.l 00000000	; Item color

HaltButton	dc.w 2	; ID
	dc.w uHeight-20,uWidth-224  ; Bounds rect for button
	dc.w uHeight-8,uWidth-134
	dc.w ButtonItem	; Type
	dc.l HaltStr	; Item descriptor
	dc.w 0000	; Item value
	dc.w 0000	; Item flag
	dc.l 00000000	; Item color

MessageItem	dc.w 3333	; ID
	dc.w 7,83,uHeight-28,uWidth-16  ; Bounds rect for text
	dc.w LongStatText2+ItemDisable ; Type
	dc.l UnknownMixMsg  ; Item descriptor
	dc.w EndUnknownMixMsg-UnknownMixMsg ; Item value
	dc.w 0000	; Item flag
	dc.l 00000000	; Item color

Icon	dc.w 0004	; ItemID
	dc.w 8,18,28,76	; ItemRect
	dc.w UserItem+ItemDisable ; ItemType
	dc.l DrawStopIcon	; ItemDescr
	dc.w 0000	; ItemValue
	dc.w 0000	; ItemFlag
	dc.l 00000000	; ItemColor

	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
GetScriptMem	Proc
*
* Description:	Allocates memory of the specified size, locks it,
*	dereferences it, and returns the pointer.
*
* Inputs:	A-reg contains size of memory segment to create.
*
* Outputs:	X and Y contain pointer to the segment.
*	cFlag Clear: no errors
*	cFlag Set: error!  Error code in A-reg.
*
* External Refs:
	Import Allocate	; From MainSub
	Import Dereference	; From MainSub
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

	jsl Allocate	; (A-reg contains size)
	bcs GetScriptExit

	phy	; Handle for _HLock
	phx

	phy	; Handle for Dereference
	phx

	ldx #HLock
	jsl ToolLocator

	jsl Dereference
	plx
	ply

GetScriptExit	rts
	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
DeleteField1	Proc
*
	Entry DeleteField
*
* Description:	DeleteField1 will search for the next FieldSeparator
*	character and delete the current field. DeleteField assumes that
*	<ZPTemp points to the beginning of the field and that the
*	Y-reg is pointing at the next FieldSeperator character.
*	If it is not, make the call to DeleteField1, which will
*	adjust Y to point to the next FieldSeparator character.
*
* Inputs:	none  (For "DeleteField" entry point, Y-reg must have been set.)
*
* Outputs:	cFlag Clear: there are more fields following
*	cFlag Set: there are no more fields following
*
* External Refs:
	Import FindSeparator
	Import ReadBufEnd
*
* Side Effects:	A field is deleted by moving the remainder of the script
*	down in memory, over-writing the field to be deleted.
*	Note that the memory is NOT resized at this point.
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

; If the Y-reg is not already pointing at the next FieldSeparator character,
; we have to take care of that first.

	jsr FindSeparator

; We want to delete	the field to the left of the Y index.  <ZPTemp points to the
; location we want to move things down to and <ZPTemp+Y points to the location
; we want to move things down from.  GetEOFEOF-Y is the number of bytes to move.
; (Update GetEOFEOF	to represent the number of bytes moved so it is ready for
; the next loop.)

DeleteField	sty Temp
	clc	; Calculate location of start of bytes
	tya	;  to be copied.
	adc <ZPTemp
	tax
	lda #0000
	adc <ZPTemp+2

	pha	; PushLong source
	phx
	pei <ZPTemp+2	; PushLong destination
	pei <ZPTemp

	sec	; Calculate number of bytes to move
	lda ReadBufEnd
	sbc <ZPTemp
	tax
	lda ReadBufEnd+2
	sbc <ZPTemp+2
	tay
	sec
	txa
	sbc Temp	; (Temp = Y index)
	tax
	tya
	sbc #0

	pha	; PushLong count
	phx

	ldx #BlockMove	; Move the stuff down
	jsl ToolLocator

; Be sure that there is another field left.

	lda [<ZPTemp]	; A field beginning with the
	and #$00FF
	cmp #FieldSeparator	;  FieldSeperator char = end of script
	bne @1
	sec	; No more fields left
	rts

@1	clc	; More fields left
	rts

Temp	ds.w 1

	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
FindSeparator	Proc	; rdl-reviewed
*
* Description:	FindSeparator will position Y at the beginning of the
*	next FileSpecField.
*
* Inputs:	none  (value passed in Y is ignored)
*	(ZPTemp points to current field.)
*
* Outputs:	Y-reg contains position of next field separator.
*	cFlag Clear: no errors
*	cFlag Set: No-end-of-script error
*
* External Refs:
	Import Error	; From MainSub.asm
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

	ldy #Pathnames	; Index is offset to pathnames
	lda [<ZPTemp],y	; Get the Source pathname lengthWord

	clc	; Add on the offset to the pathnames
	adc #Pathnames+2	;  plus two for the length word
	tay	; Use as index to destination pathname
	clc
	adc [<ZPTemp],y	; Get the Destination pathname lengthWord
	tay
	iny	; Add two more for length word
	iny

	lda [<ZPTemp],y	; Be certain that there is a separator
	and #$00FF	; (Mask off extra byte.)
	iny
	cmp #FieldSeparator
	beq Exit

; Report errors.

Oops	lda #$0085	; Notifiy user there is no end-of-FileSpec
	jsl Error	;  mark!
	sec
	rts

Exit	clc
	rts
	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
NextFileSpec	Proc
*
* Description:	NextFileSpec will update the value in <ZPTemp to point
*	to the next FileSpec field in the compacted script held
*	in memory.
*
* Inputs:	Y-reg is ignored
*
* Outputs:	c-flag clear if there is another FileSpec field
*	c-flag set if we have reached the end of the script
*
* External Refs:
	Import FindSeparator
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

	jsr FindSeparator	; Find the next FieldSeparator

	clc	; Update <ZPTemp
	tya
	adc <ZPTemp
	sta <ZPTemp
	lda #0000
	adc <ZPTemp+2
	sta <ZPTemp+2

	lda [<ZPTemp]	; Check to see if it is a null field
	and #$00FF	; Mask off extra character
	cmp #FieldSeparator
	bne NotNull
	sec	; Set c-flag!  It's a null field! End of script!
	rts
;
NotNull	clc	; Clear c-flag.  There's another field.
	rts

	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
ConvertDateTime	Proc
*
* Description:	Converts date and time returned by GS/OS into the
*	old ProDOS format.
*
* Inputs:	none  (Get values from GetInfoCreation)
*
* Outputs:	none  (Stores values in GetInfoDate1 and GetInfoTime1.)
*
* External Refs:
	Import GetInfoCreation
	Import GetInfoDate1
	Import GetInfoTime1
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

	lda GetInfoCreation+4 ; Get Month/Day
	and #$00FF	; Mask off month
	inc a	; (Day returned as 0-30 not 1-31!)
	sta GetInfoDate1	;save the day in prodos format
	lda GetInfoCreation+5 ; Get Null/Month
	and #$00FF	; Mask off null
	inc a	; (Month returned as 0-11 not 1-12!)
	asl a
	asl a
	asl a
	asl a
	asl a	;shift to correct position
	ora GetInfoDate1	;month is now happy
	sta GetInfoDate1
	lda GetInfoCreation+3 ; Get Day/Year
	and #$00FF	; Mask off day
	xba
	asl a	;shift year to upper 7 bits
	ora GetInfoDate1
	sta GetInfoDate1

	lda GetInfoCreation+1 ; Get Hour/Minutes
	and #$00FF	; Mask off hour
	sta GetInfoTime1
	lda GetInfoCreation+2 ; Get Year/Hour
	and #$00FF	; Mask off year
	xba
	ora GetInfoTime1
	sta GetInfoTime1
	rts
	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
ResizeScriptMemory	ProcName
*
* Description:	Resizes the memory used by the SuperScript, dereferences
*	the handle into "ScriptPtr" and returns with the memory
*	locked.
*
* Inputs:	X and Y contain new size
*
* Outputs:	cFlag clear: no errors
*	cFlag set: memory manager error in A-reg
*
* External Refs:
	Import Error	; From MainSub.asm
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

	stx NewSize
	sty NewSize+2

	ldy #4	; Unlock the handle
	lda [<ScriptHdl],y
	and #$FFFF-attrLocked
	sta [<ScriptHdl],y

	ldy NewSize+2
	phy
	ldx NewSize
	phx
	pei <ScriptHdl+2	; Resize the memory
	pei <ScriptHdl
	ldx #SetHandleSize
	jsl ToolLocator
	bcc MemoryOK

	lda #$0084
	jsl Error
	bra Exit

MemoryOK	ldy #4	; Lock the handle
	lda [<ScriptHdl],y
	ora #attrLocked
	sta [<ScriptHdl],y

	lda [<ScriptHdl]	; Dereference the handle
	sta <ScriptPtr
	ldy #0002
	lda [<ScriptHdl],y
	sta <ScriptPtr+2

Exit	rts

NewSize	ds.l 1
	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
DoneMessage	Proc
*
* Description:	Displays the message letting the user know that script
*	execution has been completed.
*
* Inputs:	none
*
* Outputs:	none
*
* External Refs:
	Import EndInstallDoneMsg ; From Data.asm
	Import EndRemoveDoneMsg  ; From Data.asm
	Import InstallDoneMsg    ; From Data.asm
	Import OKStr	     ; From Data.asm
	Import RemoveDoneMsg     ; From Data.asm
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

	bit RemoveFlag
	bpl @Install

	lda #RemoveDoneMsg
	sta MessageStr
	lda #^RemoveDoneMsg
	sta MessageStr+2
	lda #EndRemoveDoneMsg-RemoveDoneMsg
	sta MessageLength
	bra @DoIt

@Install	lda #InstallDoneMsg
	sta MessageStr
	lda #^InstallDoneMsg
	sta MessageStr+2
	lda #EndInstallDoneMsg-InstallDoneMsg
	sta MessageLength

@DoIt	ldx #InitCursor
	jsl ToolLocator

	pea doneBeep	; beep when Alert is drawn
	ldx #SysBeep2
	jsl ToolLocator

	pha	   ; Room for result
	pea AlertTemplate>>16 ; Pointer to alert template
	pea |AlertTemplate
	pea 0000	   ; Pointer to filter proc. (none)
	pea 0000
	ldx #Alert
	jsl ToolLocator
	pla	   ; Discard result

	rts
	Eject

; This is the AlertTemplate for the dialog to notify the user that the
; Installation or Removal is complete.

AlertTemplate

@Width    equ 300		; Local equates for the alert template
@Height   equ 47
@BtnWidth equ 80

@Top      equ (200/2)-(@Height/2)
@Left     equ (640/2)-(@Width/2)
@Bottom   equ @Top+@Height
@Right    equ @Left+@Width

	dc.w @Top,@Left,@Bottom,@Right
	dc.w $6789	 ; AlertID
	dc.b $80,$80,$80,$80 ; Stage1, Stage2, Stage3, Stage4
	dc.l @FirstItem	 ; First item template
	dc.l @SecondItem	 ; Second item template
	dc.l 00000000

; OK Button
@FirstItem	dc.w 0001		; ItemID 
	dc.w @Height-18,@Width/2-(@BtnWidth/2)	; ItemRect
	dc.w @Height-6,@Width/2+(@BtnWidth/2)
	dc.w ButtonItem		; ItemType
	dc.l OKStr		; ItemDescr
	dc.w 0000		; ItemValue
	dc.w 0000		; ItemFlag
	dc.l 00000000		; ItemColor

; text
@SecondItem	dc.w 0002		; ItemID
	dc.w 4,20,@Height-20,@Width-20	; ItemRect
	dc.w LongStatText2+ItemDisable	; ItemType
MessageStr	dc.l 00000000		; ItemDescr
MessageLength	dc.w 0000		; ItemValue
	dc.w 0000		; ItemFlag
	dc.l 00000000		; ItemColor

	EndP
	End
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Installer/Installer b/IIGS.601.SRC/A.U.G/Installer/Installer
new file mode 100644
index 0000000..b147296
Binary files /dev/null and b/IIGS.601.SRC/A.U.G/Installer/Installer differ
diff --git a/IIGS.601.SRC/A.U.G/Installer/Installer.Dev b/IIGS.601.SRC/A.U.G/Installer/Installer.Dev
new file mode 100644
index 0000000..3032ce2
Binary files /dev/null and b/IIGS.601.SRC/A.U.G/Installer/Installer.Dev differ
diff --git a/IIGS.601.SRC/A.U.G/Installer/Installer.Equates b/IIGS.601.SRC/A.U.G/Installer/Installer.Equates
new file mode 100644
index 0000000..2d31e2e
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Installer/Installer.Equates
@@ -0,0 +1 @@
+* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
*			                  *
*      A P P L E   I I g s   I N S T A L L E R   P R O G R A M   V  2 . 0     *
*                                                                             *
*                                by Ron Lichty                                *
*                              and "Jay" Schaffer                             *
*			                  *
*  Copyright Apple Computer, Inc. 1987-1991              All Rights Reserved  *
*			                  *
* * * * * * * * * *	* * * * * * * * * *	* * * * * * * * * *	* * * * * * * * * *

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* Installer Equates
*
* Description:	This file includes global equates for:
*
*	     Direct page assignments
*	     GS/OS calls
*	     Tool calls
*	     Miscellaneous
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

; use debugging names, when necessary, by setting debugSymbols to 1.
; turn off names generation by setting debugSymbols to 0.

	Include 'm16.debug'
debugSymbols	equ 1

; Direct page assignments

ZPTemp	equ 0	; 00
ZPTemp1	equ ZPTemp+4	; 04
ZPTemp2	equ ZPTemp1+4	; 08
ErrMsgTemp	equ ZPTemp2+4	; 0C
NameTemp	equ ErrMsgTemp+4	; 10
HelpBuffer	equ NameTemp+4	; 14
CurDirHdl	equ HelpBuffer+4	; 18 \ (GStr)
CurDirPtr	equ CurDirHdl+4	; 1C /
AppDirHdl	equ CurDirPtr+4	; 20 \ (GStr)
AppDirPtr	equ AppDirHdl+4	; 24 /
PopUpStringPtr	equ AppDirPtr+4	; 28
NotInUse	equ PopUpStringPtr+4 ;2C no longer in use
PathBuf	equ NotInUse+4	; 30
ZPDeRef	equ PathBuf+4	; 34 zero page temp for DeRef routine

PrefixHandle	equ ZPDeRef+4	; 38 Handle storage (so we can use PEI)

ScriptListPtr	equ PrefixHandle+4	; 3C Pointer to the script name list
ScriptFilePtr	equ ScriptListPtr+4	; 40 Pointer to script's filename list

ScriptHdl	equ ScriptFilePtr+4	; 44 Handle to SuperScript
ScriptPtr	equ ScriptHdl+4	; 48 Pointer to SuperScript
ScriptHandle	equ ScriptPtr+4	; 4C Handle to current individual script
SourcePfxPtr	equ ScriptHandle+4	; 50 Pointer to script's source prefix.
SourcePtr	equ SourcePfxPtr+4	; 54 Pointer to full source pathname
DestPtr	equ SourcePtr+4	; 58 Pointer to full destination pathname
ScriptFilename	equ DestPtr+4	; 5C Pointer to scriptÕs prefix
DiskNamesHdl	equ ScriptFilename+4 ;60 Handle to DiskNames resource
DiskNamesPtr	equ DiskNamesHdl+4	; 64 Pointer to DiskNames resource
OurChar	equ DiskNamesPtr+4	; 68 1 byte for NoCaseCompare8bit (Subroutines.asm)

	Eject
;................................................................

; GS/OS equates

GSOS	equ $E100A8	; GS/OS entry point

Create	equ $2001	; GS/OS system call numbers
Destroy	equ $2002
OS_ShutDown	equ $2003
Set_File_Info	equ $2005
Get_File_Info	equ $2006
Volume	equ $2008
Set_Prefix	equ $2009
Get_Prefix	equ $200A
Set_Sys_Pref	equ $200C
Expand_Path	equ $200E
Get_Sys_Pref	equ $200F
Open	equ $2010
Read	equ $2012
Write	equ $2013
Close	equ $2014
Get_EOF	equ $2019
Set_Level	equ $201A
Get_Level	equ $201B
Get_Dir_Entry	equ $201C
Get_Dev_Num	equ $2020
Format	equ $2024
EraseDisk	equ $2025
Get_Boot_Vol	equ $2028
Quit	equ $2029
Get_Version	equ $202A
D_Info	equ $202C
D_Status	equ $202D
D_Control	equ $202E
D_Write	equ $2030

; GS/OS error codes

InvalidDevNum	equ $11
drvrIOError	equ $27	; I/O error (unformatted disk?)
WriteProtected	equ $2B
PathSyntax	equ $40
PathNotFound	equ $44
VolumeNotFound	equ $45
FileNotFound	equ $46
DupPathname	equ $47
EndOfFile	equ $4C
invalidAccess	equ $4E
BufferTooSmall	equ $4F
FileIsOpen	equ $50
NotProDOSDisk	equ $52
DuplicateVolume	equ $57
EndOfDir	equ $61
QInitIt	equ $96	; query for ErrorWindow: Initialize it?
QInitFormatted	equ $97	; query for ErrorWdw: Disk is formatted but...

; Device characteristics definition

ReadAllowed	equ %0000000000100000
WriteAllowed	equ %0000000001000000
BlockDevice	equ %0000000010000000

; File system IDs for formatting

proDOSfsID EQU $0001  ; ProDOS/SOS 

; Format (OS call) flags

fFormatEdit	equ $8000	; bit 15: name is editable
fFormatSelect	equ $4000	; bit 14: all file systems are selectable

; D_Info call device ID
D_5_25Drive	equ $0000	; Apple 5.25 drive (includes UniDisk, DuoDisk, Disk II)
D_3_5Drive	equ $0003	; Apple 3.5 drive (includes UniDisk 3.5)

; maximum volume name length: ProDOS 15, ProDOS 27
MaxPrefixLen	equ 27

	Eject
;................................................................

; Tool call equates

ToolLocator	equ $E10000
		; Tool Locator
TLStartup	equ $0201
TLShutDown	equ $0301
TLTextMountVolume	equ $1201
MessageCenter	equ $1501
StartUpTools	equ $1801
ShutDownTools	equ $1901
		; Memory Manager
MMStartup	equ $0202
MMShutDown	equ $0302
NewHandle	equ $0902
DisposeHandle	equ $1002
DisposeAll	equ $1102
GetHandleSize	equ $1802
SetHandleSize	equ $1902
FindHandle	equ $1A02
FreeMem	equ $1B02
MaxBlock	equ $1C02
CompactMem	equ $1F02
HLock	equ $2002
HUnlock	equ $2202
SetPurge	equ $2402
BlockMove	equ $2B02
		; Miscellaneous Tools
SysFailMgr	equ $1503
SysBeep	equ $2C03
SysBeep2	equ $3803
		; QuickDraw II
GetMasterSCB	equ $1704
SetPort	equ $1B04
GetPort	equ $1C04
GetPortRect	equ $2004
ClipRect	equ $2604
SetPenSize	equ $2C04
SetPenMode	equ $2E04
SetPenPat	equ $3004
PenNormal	equ $3604
SetSolidPenPat	equ $3704
SetSolidBackPat	equ $3804
MoveTo	equ $3A04
Move	equ $3B04
FrameRect	equ $5304
PaintRect	equ $5404
EraseRect	equ $5504
InvertRect	equ $5604
HideCursor	equ $9004
ShowCursor	equ $9104
GetFontInfo	equ $9604
SetTextFace	equ $9A04
SetTextMode	equ $9C04
SetForeColor	equ $A004
SetBackColor	equ $A204
DrawString	equ $A504
DrawText	equ $A704
StringWidth	equ $A904
TextWidth	equ $AB04
InitCursor	equ $CA04
		; Desk Manager
GetNumNDAs	equ $1B05
CloseAllNDAs	equ $1D05
FixAppleMenu	equ $1E05
		; Event Manager
GetNextEvent	equ $0A06
GetMouse	equ $0C06
WaitMouseUp	equ $0F06
TickCount	equ $1006
GetDblTime	equ $1106
FlushEvents	equ $1506
SetEventMask	equ $1806
		; Integer Math
Multiply	equ $090B
Int2Hex	equ $220B
Hex2Int	equ $240B
Hex2Long	equ $250B
Int2Dec	equ $260B
Dec2Int	equ $280B
		; Window Manager
NewWindow	equ $090E
CloseWindow	equ $0B0E
FrontWindow	equ $150E
TaskMaster	equ $1D0E
BeginUpdate	equ $1E0E
EndUpdate	equ $1F0E
GetWKind	equ $2B0E
ValidRect	equ $3C0E
InvalRect	equ $3A0E
NewWindow2	equ $610E
ErrorWindow	equ $620E
DoModalWindow	equ $640E
HandleDiskInsert	equ $6B0E
		; Menu Manager
GetMenuBar	equ $0A0F
DeleteMItem	equ $100F
SetSysBar	equ $120F
FixMenuBar	equ $130F
CalcMenuSize	equ $1C0F
SetMenuFlag	equ $1F0F
DrawMenuBar	equ $2A0F
HiLiteMenu	equ $2C0F
EnableMItem	equ $300F
DisableMItem	equ $310F
SetMenuBar	equ $390F
SetMItemName	equ $3A0F
InsertMItem2	equ $3F0F
NewMenuBar2	equ $430F
InsertPathMItems	equ $500F
		; Control Manager
NewControl	equ $0910
HideControl	equ $0E10
ShowControl	equ $0F10
DrawControls	equ $1010
HiliteControl	equ $1110
FindControl	equ $1310
TrackControl	equ $1510
SetCtlValue	equ $1910
GetCtlValue	equ $1A10
SetCtlParams	equ $1B10
SetCtlAction	equ $2010
SetCtlRefCon	equ $2210
DrawOneCtl	equ $2510
MakeNextCtlTarget	equ $2710
SendEventToCtl	equ $2910
GetCtlHandleFromID	equ $3010
SetCtlParamPtr	equ $3410
		; System Loader
UnloadSeg	equ $0E11
lGetOPathName2	equ $2211
		; QuickDraw Auxilary
CopyPixels	equ $0912
WaitCursor	equ $0A12
DrawIcon	equ $0B12
GetSysIcon	equ $0F12
		; Line Edit
LETextBox2	equ $2014
		; Dialog Manager
CloseDialog	equ $0C15
ModalDialog	equ $0F15
Alert	equ $1715
StopAlert	equ $1815
ParamText	equ $1B15
GetControlDItem	equ $1E15
GetIText	equ $1F15
GetNewModalDialog	equ $3215
		; List Manager
NextMember	equ $0F1C
DrawMember2	equ $111C
NextMember2	equ $121C
SelectMember2	equ $141C
SortList2	equ $151C
NewList2	equ $161C
		; Resource Manager
ResourceShutDown	equ $031E
OpenResourceFile	equ $0A1E
CloseResourceFile	equ $0B1E
LoadResource	equ $0E1E
ReleaseResource	equ $171E
	Eject
;................................................................

; Miscellaneous Tool Error Codes

mesNotFoundErr	equ $0111	; Message center message not found.

;................................................................

; Miscellaneous misc. Equates

doneBeep	equ $4005	; beep by default, oper. complete, defer to GetNextEvent

; Miscellaneous Memory Manager Equates

; attrBank	equ $0001	; Handle Attribute Bits - 1 = fixed bank  
; attrPage	equ $0004	; Handle Attribute Bits - 1 = page aligned
attrNoCross	equ $0010	; Handle Attribute Bits - 1 = no bank boundary crossing
; attrFixed	equ $4000	; Handle Attribute Bits - 1 = not movable
attrLocked	equ $8000	; Handle Attribute Bits - 1 = locked

purgeLevel3	equ $0003	; Indicates memory will be 1st purged
disposeNow	equ $FFFF	; dispose resource handle (ReleaseResource) now
;................................................................

; Event Misc. Equates

Message	equ  2	; Offset to message in event record
Modifiers	equ 14	; Offset to modifiers in event record
KeyDownEvent	equ $0003	; Event code
btn1State	equ $0040	; Event/Task Modifiers: set if btn 1 up
btn0State	equ $0080	;   set if button 0 up
appleKey	equ $0100	;   set if Apple key down
shiftKey	equ $0200	;   set if shift key down
capsLock	equ $0400	;   set if caps lock key down
optionKey	equ $0800	;   set if option key down
controlKey	equ $1000	;   set if Control key down
keyPad	equ $2000	;    set if keypress from key pad

keyDownMask	equ $0008
autoKeyMask	equ $0020
deskAccMask	equ $0400

; Control Misc. Equates

recSize	equ $000C	; DefProc - Return record size command.

; Control Record Offsets

octlRect	equ $08	; Rect    - CtlRec - Enclosing rectangle.
octlHilite	equ $11	; Byte    - CtlRec - Active/Inactive & hiliting flag
octlValue	equ $12	; Integer - CtlRec - Control's value.
octlData	equ $1C	; Longint - CtlRec - Reserved for CtrlProc's use.
octlRefCon	equ $20	; Longint - CtlRec - Reserved for application's use.
octlColor	equ $24	; Pointer - CtlRec - Pointer to appropriate color table.

; Part codes for the Control Manager

SimpleButton	equ 2	; highlighted button ("active" is unhighlighted)
UpArrow	equ 5
DownArrow	equ 6
PageUp	equ 7
PageDown	equ 8
Thumb	equ 129
;................................................................

; Item definitions for the Dialog Manager

ButtonItem	equ $000A
StatText	equ $000F
LongStatText	equ $0010
EditLine	equ $0011
IconItem	equ $0012
UserItem	EQU $0014
LongStatText2	equ $0016
ItemDisable	equ $8000
;................................................................

; EventMask and TaskMask equates

emDeskAcc	equ %0000010000000000
emActivate	equ %0000000100000000
emUpdate	equ %0000000001000000
emAutoKey	equ %0000000000100000
emKeyDown	equ %0000000000001000
emMouseUp	equ %0000000000000100
emMouseDown	equ %0000000000000010

tmContentControls	equ %0000000000000001   ; TaskMask+2 bit definitions
tmControlKey	EQU %0000000000000010

tmInfo	equ %1000000000000000   ; TaskMask bit definitions
tmInactive	equ %0100000000000000
tmCReDraw	equ %0010000000000000
tmSpecial	equ %0001000000000000
tmContent	equ %0000000010000000
tmDragW	equ %0000000001000000
tmSysClick	equ %0000000000100000
tmOpenNDA	equ %0000000000010000
tmMenuSel	equ %0000000000001000
tmFindW	equ %0000000000000100
tmUpdate	equ %0000000000000010
tmMenuKey	equ %0000000000000001
	eject

; Event and Task what field values
mouseDownEvt EQU $0001

;................................................................

; Window manager equates

ErrorW_Pascal	equ $0001

;................................................................
; Menu manager equates

; for SetMenuFlag
enableMenu	equ $FF7F
disableMenu	equ $0080

;................................................................

; Resource equates

rIcon	equ $8001	; resourceType
rControlTemplate	equ $8004
rWindParam1	equ $800E

ScriptListCtl	equ $030C	; ctlID
PopUpMenuID	equ $000E
FirstItemID	equ $0001	; menu item in popup for top item

rListFlags	equ $12
rListMoreFlags	equ $14
rListRefCon	equ $16
rListSize	equ $1A
rListView	equ $1C
rListType	equ $1E
rListStart	equ $20
rListDraw	equ $22
rListMemHeight	equ $26
rListMemSize	equ $28
rListRef	equ $2A
rListColorRef	equ $2E

p1ContDefProc	equ $3A

rIconStopID	equ $07FF0002	; stop sign in Sys.Resources
rIconNoteID	equ $07FF0003	; talking head
rIconCautionID	equ $07FF0004	; caution sign

; Equates associated with the Standard Update superScript resource

rStdUpdateScript	equ $0001	; Resource type for our StdUpdateScript
StdUpdateScriptID	equ $00000001	; Resource ID for our StdUpdateScript

; Equates associated with the DiskNames resources
rDiskNames	equ $0002	; Resource type for DiskNames resource
DiskNames	equ $00000001	; Resource ID for DiskNames resource
	eject
;................................................................

; Script Definitions
; Suggestion: if you add a flag to ScriptFlag field, validate it in CompactScript

ScriptVerField	equ 9	; ScriptVersion field location in script
ScriptFlagField	equ 15	; ScriptFlags field	location in script
ScriptFlagPrvtBoot  equ 18	; loc of PreventBoot flag in script
ScriptFlagEnd	equ $0d0d	; 2 crÕs indicate end of Flag field
ScriptHelpEnd	equ '\\'	; Designates end of ScriptHelp field
HighestParent	equ 9 	; valid values of ScriptParentLevel: 0-9
;................................................................

; Customized Installation Pseudo Dialog Box - Dimensions
;	  NOTE: Height and Width can be changed	and the
; 	        resulting box will still be centered and
;	        all of the controls will be within the box,
;	        however, overlapping controls may appear
;	        if the box is too small.

; WARNING!  MANY OF THESE EQUATES MUST BE DUPLICATED IN THE RESOURCE
;           DEFINITION WHICH DOESN'T RECOGNIZE ASSEMBLER SYNTAX!

Width	equ 636
Height	equ 142

Top	equ 105-Height/2
Left	equ 320-Width/2
Bottom	equ Top+Height
Right	equ Left+Width

ButtonLeft	equ 272	; Left side of the "center" buttons
ButtonWidth	equ 100	; Width of the buttons
AppWindowLeft	equ Width-256	; Left side of Application Selection window
;;;RightMargin	equ 0	; Right margin for buttons below app window
;................................................................

; Easy Update Window - Dimensions

; WARNING!  MANY OF THESE EQUATES MUST BE DUPLICATED IN THE RESOURCE
;           DEFINITION WHICH DOESN'T RECOGNIZE ASSEMBLER SYNTAX!

eWidth	equ 496
eHeight	equ 115

eTop	equ 105-eHeight/2
eLeft	equ 320-eWidth/2
eBottom	equ eTop+eHeight
eRight	equ eLeft+eWidth

;................................................................

; Menu Equates

AppleMenuID	equ 1
FileMenuID	equ 2
EditMenuID	equ 3
HelpMenuID	equ 4

UndoItemID	equ 250	; These next 6 are standard and
CutItemID	equ 251	; required for DA support under
CopyItemID	equ 252	; TaskMaster.
PasteItemID	equ 253
ClearItemID	equ 254
CloseWItemID	equ 255

AboutItemID	equ $100	; These are our own	responsibility
QuitItemID	equ $101
ShortcutsItemID	equ $103
EraseDiskItemID	equ $104
HelpItemID	equ $105
CreatingItemID	equ $106
UpdatingItemID	equ $107
HardDiskItemID	equ $108

ItemChar	equ ' '
EndOfMenu	equ '.'
	Eject
;................................................................

; internal data word for keeping ScriptFlags with each script before SuperScript is built
bDirReq	equ %1000000000000000     ; script requires selecting a directory to install to
; NOTE: THE FOLLOWING IS THE SAME AS InstallRemoveMode: bit 13
bNoRemove	equ %0010000000000000     ; remove not permitted
; NOTE: THE FOLLOWING IS THE SAME AS InstallRemoveMode: bit 12
bPreventBoot	equ %0001000000000000     ; prevent install to Boot disk: bit 12

; InstallRemoveMode: other values (besides two just above)
bWriteProtect	equ %1000000000000000     ; current vol is write-protected
bNoVols	equ %0100000000000000     ; no volumes on line
; bNoRemove	equ %0010000000000000     ; remove not permitted
; bPreventBoot	equ %0001000000000000     ; prevent install to Boot disk: bit 12
bNoScripts	equ %0000100000000000     ; No Scripts selected: turn Install/Remove off

; AlertMsgNo: possible values for Talking Head to use in AlertMsg routine
AlertNoMsg	equ 0
AlertMsg1	equ 1
AlertMsg2	equ 2
AlertMsg3	equ 3
AlertMsg4	equ 4
AlertMsg5	equ $8005	; keep alert on screen for a while
AlertMsg6	equ 6
AlertRemain	equ $8000	; keep alert on screen for a while: OR in

; Miscellaneous equates

;;;NotUsed	equ %1000000000000000     ; ControlFlag bit definitions
NoVolOnLine	equ %0100000000000000
RemoveNotPermitted	equ %0010000000000000
NewListNeeded	equ %0001000000000000
;;;NotUsed	equ %0000100000000000
;;;NotUsed	equ %0000010000000000
;;;NotUsed	equ %0000001000000000
InstallButton	equ %0000000100000000
RemoveButton	equ %0000000010000000
SelectionWindow	equ %0000000001000000
ScriptWindow	equ %0000000000100000
EjectButton	equ %0000000000010000
NewFolderButton	equ %0000000000001000
OpenButton	equ %0000000000000100
DiskButton	equ %0000000000000010
HelpButton	equ %0000000000000001

MaxAttempts	equ 14	; Maximum attempts to find a volume

HelpBufferSize	equ 2048

ListFileType	equ $400F	; Flag and file type for Dir_Reader

RequestWrite	equ %0000000000000010
RequestRead	equ %0000000000000001

ProDOSFileSys	equ $0001	; ProDOS FileSystem ID
NetworkFileSys	equ $000D	; Network FileSystem ID

FileServer	equ $0010	; Generic file server Device_ID
AppleShareFileServ	equ $001E	; AppleShare file server Device_ID

RAMorROMdisk	equ %1000000000000000 ; D_Info characteristic bits
RemovableMedia	equ %0000000000000100 ; D_Info characteristic bits
FormatableMedia	equ %0000000000001000 ; D_Info characteristic bits

ExtendedType	equ $0005	; Extended file storage type
SubDirectory	equ $000F	; SubDirectory file type

True	equ $8000
False	equ $0000

RightArrowKey	equ $15	; ASCII codes
LeftArrowKey	equ $08
DownArrowKey	equ $0A
UpArrowKey	equ $0B
Tab	equ $09
Return	equ $0D
Escape	equ $1B
Delete	equ $7F

SeparatorChar	equ ':'	; Hierarchical separator character
GStrOverhead	equ 4	; BufferSize word + StringLength word

Active	equ $00
Inactive	equ $FF

HelpCustButtonID	equ $1	; id of Custom Help's OK button
HelpStdButtonID	equ $B	; id of Standard Help's OK button

HelpHardDiskBtnID	equ $3	; id of Hard Disk Init Help's OK button
HelpNewDiskBtnID	equ $6	; id of New System Disk Help's OK button
HelpUpdateDiskBtnID	equ $9	; id of Update Disk Help's OK button
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Installer/Installer.I b/IIGS.601.SRC/A.U.G/Installer/Installer.I
new file mode 100644
index 0000000..00584c1
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Installer/Installer.I
@@ -0,0 +1 @@
+* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
*			                  *
*      A P P L E   I I g s   I N S T A L L E R   P R O G R A M   V  2 . 0     *
*                                                                             *
*                              by "Jay" Schaffer                              *
*                               and  Ron Lichty                               *
*			                  *
*  Copyright Apple Computer, Inc. 1987-1990              All Rights Reserved  *
*			                  *
* * * * * * * * * *	* * * * * * * * * *	* * * * * * * * * *	* * * * * * * * * *

;	* * * * * * * * * * * * * * * * * * * * * *
;	* * * * * * * * * * * * * * * * * * * * * *
;	* *		* *
;	* *  NOTE:  FileType must be $CA	* *
;	* *         AuxType must be $0000	* *
;	* *		* *
;	* * * * * * * * * * * * * * * * * * * * * *
;	* * * * * * * * * * * * * * * * * * * * * *

Icon	Record
	org $0000

; Script icon description file.  This file defines the icons the finder
; will use when it finds "new" scripts and the information needed to launch
; the Installer program when script files are "OPEN"ed.

iBlkNext	dc.l 00000000	; (must be zero)

iBlkID	dc.w 0001	; (must be 0001)

iBlkPath	dc.l 00000000	; (must be zero)

iBlkName	dc.b iBlkNameEnd-iBlkName-1 ; (iBlkName field must be
	dc.b ''	        ;  exactly 16 bytes long.)
iBlkNameEnd	ds.b 16-(*-iBlkName)

iBlkIcons

;-------------------- FIRST ICON RECORD --------------------

iDataLen	dc.w iDataEnd-*

iDataBoss	dc.b iDataBossEnd-iDataBoss-1
	dc.b '/Install/Installer'
iDataBossEnd	ds.b 64-(*-iDataBoss)

iDataName	dc.b iDataNameEnd-iDataName-1
	dc.b '*'
iDataNameEnd	ds.b 16-(*-iDataName)

iDataType	dc.w $00B0	; Filetype

iDataAux	dc.w $0017	; Auxtype
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

iDataBig	dc.w $0000		; Icon type
	dc.w $0080		; Icon size
	dc.w $0010		; Icon height
	dc.w $0010		; Icon width

	dc.b $F0,$00,$00,$00,$00,$0F,$FF,$FF	; Icon
	dc.b $0F,$0F,$FF,$FF,$FF,$F0,$FF,$FF
	dc.b $0F,$0F,$FF,$00,$0F,$F0,$FF,$FF
	dc.b $00,$0F,$FF,$00,$00,$F0,$FF,$FF
	dc.b $FF,$00,$F0,$0F,$F0,$F0,$FF,$FF
	dc.b $FF,$F0,$F0,$00,$FF,$F0,$0F,$FF
	dc.b $FF,$F0,$FF,$00,$00,$FF,$0F,$FF
	dc.b $FF,$F0,$FF,$FF,$00,$0F,$0F,$FF
	dc.b $FF,$F0,$0F,$0F,$F0,$0F,$0F,$FF
	dc.b $FF,$FF,$0F,$00,$00,$0F,$00,$FF
	dc.b $FF,$FF,$0F,$F0,$00,$FF,$F0,$FF
	dc.b $FF,$FF,$0F,$FF,$FF,$FF,$F0,$FF
	dc.b $FF,$FF,$00,$F0,$00,$00,$00,$00
	dc.b $FF,$FF,$F0,$F0,$FF,$FF,$FF,$F0
	dc.b $FF,$FF,$F0,$F0,$FF,$FF,$FF,$F0
	dc.b $FF,$FF,$FF,$00,$00,$00,$00,$0F

	dc.b $0F,$FF,$FF,$FF,$FF,$F0,$00,$00	; Icon mask
	dc.b $FF,$FF,$FF,$FF,$FF,$FF,$00,$00
	dc.b $FF,$FF,$FF,$FF,$FF,$FF,$00,$00
	dc.b $FF,$FF,$FF,$FF,$FF,$FF,$00,$00
	dc.b $00,$FF,$FF,$FF,$FF,$FF,$00,$00
	dc.b $00,$0F,$FF,$FF,$FF,$FF,$F0,$00
	dc.b $00,$0F,$FF,$FF,$FF,$FF,$F0,$00
	dc.b $00,$0F,$FF,$FF,$FF,$FF,$F0,$00
	dc.b $00,$0F,$FF,$FF,$FF,$FF,$F0,$00
	dc.b $00,$00,$FF,$FF,$FF,$FF,$FF,$00
	dc.b $00,$00,$FF,$FF,$FF,$FF,$FF,$00
	dc.b $00,$00,$FF,$FF,$FF,$FF,$FF,$00
	dc.b $00,$00,$FF,$FF,$FF,$FF,$FF,$FF
	dc.b $00,$00,$0F,$FF,$FF,$FF,$FF,$FF
	dc.b $00,$00,$0F,$FF,$FF,$FF,$FF,$FF
	dc.b $00,$00,$00,$FF,$FF,$FF,$FF,$F0
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

iDataSmall	dc.w $0000		; Icon type
	dc.w $0020		; Icon size
	dc.w $0008		; Icon height
	dc.w $0008		; Icon width

	dc.b $00,$00,$00,$00	; Icon
	dc.b $0F,$FF,$F0,$00
	dc.b $0F,$FF,$F0,$00
	dc.b $00,$FF,$FF,$00
	dc.b $00,$FF,$FF,$00
	dc.b $00,$0F,$FF,$F0
	dc.b $00,$0F,$FF,$F0
	dc.b $00,$00,$00,$00

	dc.b $0F,$FF,$FF,$F0	; Icon mask
	dc.b $FF,$FF,$FF,$00
	dc.b $FF,$FF,$FF,$00
	dc.b $0F,$FF,$FF,$F0
	dc.b $0F,$FF,$FF,$F0
	dc.b $00,$FF,$FF,$FF
	dc.b $00,$FF,$FF,$FF
	dc.b $00,$FF,$FF,$F0
iDataEnd
;------------------- SECOND ICON RECORD -------------------

iDataLen2	dc.w $0000	; No 2nd icon!
	EndR
	End
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Installer/Installer.Records b/IIGS.601.SRC/A.U.G/Installer/Installer.Records
new file mode 100644
index 0000000..689edbc
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Installer/Installer.Records
@@ -0,0 +1 @@
+* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
*			                  *
*      A P P L E   I I g s   I N S T A L L E R   P R O G R A M   V  2 . 0     *
*                                                                             *
*                              by "Jay" Schaffer                              *
*                               and  Ron Lichty                               *
*			                  *
*  Copyright Apple Computer, Inc. 1987-1991              All Rights Reserved  *
*			                  *
* * * * * * * * * *	* * * * * * * * * *	* * * * * * * * * *	* * * * * * * * * *

; TaskMaster Record Definition

TaskRecord	Record 0
What	ds.w 1	; EventMgr's event code
Message	ds.l 1	; EventMgr's event message
When	ds.l 1	; EventMgr's tick count
Where	ds.l 1	; EventMgr's mouse location
Modifiers	ds.w 1	; EventMgr's modifier flags
Data	ds.l 1	; TaskMaster return data
Mask	ds.l 1	; Flags controlling TaskMaster functions
LastClickTick	ds.l 1	; System tick value at last mouse click
ClickCount	ds.w 1	; Number of clicks since last call
Data2	ds.l 1	; Additional TaskMaster return data
Data3	ds.l 1	; Additional TaskMaster return data
Data4	ds.l 1	; Additional TaskMaster return data
LastClickPt	ds.w 2	; Location of last mouse click
	EndR

; Rectangle Record Definition

Rectangle	Record 0
Rect
Top	ds.w 1
Left	ds.w 1
Bottom	ds.w 1
Right	ds.w 1
	EndR

; Time Record Definition for GS/OS System Calls

TimeRec	Record 0
second 	ds.b 1	; Byte -
minute 	ds.b 1	; Byte -
hour 	ds.b 1	; Byte -
year 	ds.b 1	; Byte -
day 	ds.b 1	; Byte -
month 	ds.b 1	; Byte -
extra 	ds.b 1	; Byte -
weekDay 	ds.b 1	; Byte -
	EndR

; Get_File_Info and Set_File_Info Parameter Table Definition

FileInfoRec_C1	Record 0
pcount	ds.b 2	; Word -
pathname	ds.b 4	; InString255Ptr_C1 -
access	ds.b 4	; WordPtr -
fileType	ds.b 2	; Word -
totalBlocks
auxType	ds.b 4	; Longint -
storageType	ds.b 2	; Word - must be 0 for SetFileInfo
createDateTime	ds TimeRec	; TimeRec -
modDateTime	ds TimeRec	; TimeRec -
optionList	ds.b 4	; Long -
eof	ds.b 4	; Long -
blocksUsed	ds.b 4	; Long - must be 0 for SetFileInfo
resourceEOF	ds.b 4	; Long - must be 0 for SetFileInfo
resourceBlocks	ds.b 4	; Long - must be 0 for SetFileInfo
	EndR

; Volume call Parameter Table Definition

VolumeRecGS	Record 0
pCount	ds.b 2	; Word - 
devName	ds.b 4	; GSString32Ptr - 
volName	ds.b 4	; ResultBuf255Ptr - 
totalBlocks	ds.b 4	; Long - 
freeBlocks	ds.b 4	; Long - 
fileSysID	ds.b 2	; Word - 
blockSize	ds.b 2	; Word - 
	EndR
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Installer/Installer.r b/IIGS.601.SRC/A.U.G/Installer/Installer.r
new file mode 100644
index 0000000..44c96d5
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Installer/Installer.r
@@ -0,0 +1 @@
+/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
/*			              									   */
/*  A P P L E   I I g s   I N S T A L L E R   P R O G R A M   V  2 . 1   */
/*                                                                       */
/*                              by Ron Lichty                            */
/*                            and "Jay" Schaffer                         */
/*			    						             			   */
/*  Copyright Apple Computer, Inc. 1987-1993        All Rights Reserved  */
/*														   */
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */

/*  NOTE:  Partial pathnames use the system prefix which is set to the
           user's selected "Disk to Update:".                            */

#define FirstDisk  ":Install"   /* Source disk volume names without terminating colon. */
#define SecondDisk ":SystemTools1"
#define ThirdDisk  ":SystemTools2"
#define FourthDisk ":Fonts"
#define FifthDisk  ":synthLAB"

#define rInstallScript	0x0001      /* Our rInstallScript resource type number. */
#define rDiskNames		0x0002      /* Our rDiskName resource type number. */

#define fieldSeparator 0x7E     /* ASCII tilde character field separator. */
#define Date 0xFFFF        /* Date for "Delete if older than:" comparison */

#define Flag2 0b0100000000000000                  /* Flag bit definitions */
#define Flag4 0b1100000000000000
#define FlagU 0b0000000000001000
#define FlagD 0b0000000000010000

#if defined SystemSoftware

type rDiskNames {
	integer = $$Countof(StringArray);
		array StringArray {
			wstring;								/* wordLen String */
		};
};

resource rDiskNames (1) { 
	{ FirstDisk,SecondDisk,ThirdDisk,FourthDisk,FifthDisk; };
};

type rInstallScript {
   array OpCodes {
      switch {
         case Delete:
            key integer = Flag4;                     /* FlagsWord -  Delete */
            integer = 0x0000;                        /* FileType - not used */
            longInt = 0x00000000;                     /* AuxType - not used */
            integer = 0x0000;                    /* CreationDate - not used */
            integer = 0x0000;                    /* CreationTime - not used */
            longInt = 0x00000000;     /* SourceSize - to be filled in later */
            integer = 0x0000;       /* SourcePath - null GS/OS input string */
            wString;                                 /* DestPath - pathname */
            byte = fieldSeparator;     /* FileSpecFiled separator character */
         case DeleteOld:
            key integer = Flag4+FlagD; /* FlagsWord -  Delete if older than */
            integer = 0x0000;                        /* FileType - not used */
            longInt = 0x00000000;                     /* AuxType - not used */
            integer;       /* CreationDate - Delete if older than this date */
            integer = 0x0000;                    /* CreationTime - not used */
            longInt = 0x00000000;     /* SourceSize - to be filled in later */
            integer = 0x0000;       /* SourcePath - null GS/OS input string */
            wString;                                 /* DestPath - pathname */
            byte = fieldSeparator;     /* FileSpecFiled separator character */
         case Install:
            key integer = Flag2;                    /* FlagsWord -  Install */
            integer = 0x0000;                        /* FileType - not used */
            longInt = 0x00000000;                     /* AuxType - not used */
            integer = 0x0000;                    /* CreationDate - not used */
            integer = 0x0000;                    /* CreationTime - not used */
            longInt = 0x00000000;     /* SourceSize - to be filled in later */
            wString;                               /* SourcePath - pathname */
            wString;                                 /* DestPath - pathname */
            byte = fieldSeparator;     /* FileSpecFiled separator character */
         case Update:
            key integer = Flag2+FlagU; /* FlagsWord -  Update existing file */
            integer = 0x0000;                        /* FileType - not used */
            longInt = 0x00000000;                     /* AuxType - not used */
            integer = 0x0000;                    /* CreationDate - not used */
            integer = 0x0000;                    /* CreationTime - not used */
            longInt = 0x00000000;     /* SourceSize - to be filled in later */
            wString;                               /* SourcePath - pathname */
            wString;                                 /* DestPath - pathname */
            byte = fieldSeparator;     /* FileSpecFiled separator character */
      };
   };
   byte = fieldSeparator;            /* EndOfScript-2nd separator character */
};

/* ------------------------------------------------------------------------ */
resource rInstallScript (1,nocrossbank) {
   {

/* * * * * * * *  Unconditionally delete the following old artifacts if they exist. * * * * * * * */

   Delete { "BASIC.Launcher" },
   Delete { "Dialog.Icons" },
   Delete { "Finder.Def" },
   Delete { "AppleTalk:Chooser:Chooser.0" },
   Delete { "AppleTalk:Chooser:Chooser1.OVR" },
   Delete { "AppleTalk:Chooser:Chooser2.OVR" },
   Delete { "AppleTalk:Chooser:Chooser3.OVR" },
   Delete { "AppleTalk:Chooser:Chooser4.OVR" },
   Delete { "AppleTalk:Chooser:Chooser5.OVR" },
   Delete { "AppleTalk:Chooser:Chooser.II" },
   Delete { "AppleTalk:Chooser:IWEM" },
   Delete { "AppleTalk:Chooser:MTXABS.0" },
   Delete { "AppleTalk:Chooser:Finder.Data" },
   Delete { "AppleTalk:Chooser" },
   Delete { "AppleTalk:Namer:Namer.0" },
   Delete { "AppleTalk:Namer:Namer.II" },
   Delete { "AppleTalk:Namer:MtxAbs.0" },
   Delete { "AppleTalk:Namer" },
   Delete { "System:Launcher" },
   Delete { "System:CDevs:Alphabet" },
   Delete { "System:CDevs:ATIWriter" },
   Delete { "System:CDevs:ATLQIWriter" },
   Delete { "System:CDevs:ATLWriter" },
   Delete { "System:CDevs:Mouse" },
   Delete { "System:Desk.Accs:CtlPanel.NDA" },
   Delete { "System:Desk.Accs:Cache.NDA" },
   Delete { "System:Drivers:AppleMidi" },
   Delete { "System:Drivers:ATP2.ATPatch" },
   Delete { "System:Drivers:ATP4.PFILoad" },
   Delete { "System:Drivers:ATP5.ATStart" },
   Delete { "System:Drivers:LaserPrep" },
   Delete { "System:Drivers:Passport" },
   Delete { "System:Drivers:SCSI.Driver" },
   Delete { "System:System.Setup:ATPatch" },
   Delete { "System:System.Setup:ATROM" },
   Delete { "System:System.Setup:ATSetup" },
   Delete { "System:System.Setup:ATStart" },
   Delete { "System:System.Setup:CDEV.Init" },
   Delete { "System:System.Setup:PFILoad" },
   Delete { "System:System.Setup:Sound.Init" },
   Delete { "System:System.Setup:SPLoad" },
   Delete { "System:System.Setup:QuickConsole" },
   Delete { "Icons:Finder.Icons" },
   Delete { "Icons:Finder.Icons.X" },
   Delete { "Icons:FType.Main" },
   Delete { "Icons:FType.Aux" },
   Delete { "System:System.Setup:CloseView.Init" },	/* 6.0 name changes */
   Delete { "System:System.Setup:EasyAccess.Init" },
   Delete { "System:ExpressLoad" },				/* eliminated 8/16/91 */
   Delete { "System:Fonts:FastFont" },				/* ELC  eliminated to make room 12/18/91 */

/* * * * * * Delete the following old artifacts if they exist and are older than "date".* * * * * */

   DeleteOld { Date, "System:Drivers:Printer.Setup" },

/* * * * * * Unconditionally "Install" files, overwriting any old file by the same name,  * * * * */
/* * * * * * or "Update" files that already exist, without adding one if they don't.      * * * * */

   /* NOTE: AppleDisk5.25, SCSIHD.Driver, SCSI.Manager, and UniDisk3.5 will be updated, if they
            exist.  System:Finder will be updated if it exists as System:Finder (not Start).

		  System:Start is not included in this script!

            Installer code that executes before the script has executed will check to see if an
            AppleDisk5.25, a S.C.S.I. card, and/or UniDisk3.5 can be found and will amend the script
            to "Install" their driver if appropriate.
            
            The Installer code will determine whether to replace System:Start
            and install System:Finder based on evaluation of contents of the
            System:Start file (is it the Finder?) and amend the script as is appropriate.     */

/*           FULL source pathname                    Partial destination pathname w/o volume name */
/*           --------------------                    ---------------------------------------------*/
   Install { FirstDisk":ProDOS",                                                          "ProDOS" },
   Install { FirstDisk":System:Start.GS.OS",                                  "System:Start.GS.OS" },
   Install { FirstDisk":System:GS.OS",                                              "System:GS.OS" },
   Install { FirstDisk":System:Error.Msg",                                      "System:Error.Msg" },
   Install { FirstDisk":System:GS.OS.Dev",                                      "System:GS.OS.Dev" },
   Install { FirstDisk":System:FSTs:Pro.FST",                                "System:FSTs:Pro.FST" },
   Install { FirstDisk":System:FSTs:Char.FST",                              "System:FSTs:Char.FST" },
   Install { FirstDisk":System:Drivers:AppleDisk3.5",                "System:Drivers:AppleDisk3.5" },
   Install { FirstDisk":System:Drivers:AppleDisk5.25",              "System:Drivers:AppleDisk5.25" },
   Install { FirstDisk":System:Drivers:Console.Driver",            "System:Drivers:Console.Driver" },
   Update  { FirstDisk":System:Drivers:SCSIHD.Driver",              "System:Drivers:SCSIHD.Driver" },
   Update  { FirstDisk":System:Drivers:SCSI.Manager",                "System:Drivers:SCSI.Manager" },
   Update  { FirstDisk":System:Drivers:UniDisk3.5",                    "System:Drivers:UniDisk3.5" },
   Install { FirstDisk":System:System.Setup:Tool.Setup",          "System:System.Setup:Tool.Setup" },
   Install { FirstDisk":System:System.Setup:TS2",                        "System:System.Setup:TS2" },
   Install { FirstDisk":System:System.Setup:TS3",                        "System:System.Setup:TS3" },
   Install { FirstDisk":System:System.Setup:Resource.Mgr",      "System:System.Setup:Resource.Mgr" },
   Install { FirstDisk":System:System.Setup:Sys.Resources",    "System:System.Setup:Sys.Resources" },
   Install { FirstDisk":System:CDevs:General",                              "System:CDevs:General" },
   Install { FirstDisk":System:CDevs:RAM",                                      "System:CDevs:RAM" },
   Install { FirstDisk":System:Desk.Accs:ControlPanel",            "System:Desk.Accs:ControlPanel" },
   Install { FirstDisk":System:Tools:Tool014",                              "System:Tools:Tool014" },
   Install { FirstDisk":System:Tools:Tool015",                              "System:Tools:Tool015" },
   Install { FirstDisk":System:Tools:Tool016",                              "System:Tools:Tool016" },
   Install { FirstDisk":System:Tools:Tool018",                              "System:Tools:Tool018" },
   Install { FirstDisk":System:Tools:Tool019",                              "System:Tools:Tool019" },
   Install { FirstDisk":System:Tools:Tool020",                              "System:Tools:Tool020" },
   Install { FirstDisk":System:Tools:Tool021",                              "System:Tools:Tool021" },
   Install { FirstDisk":System:Tools:Tool022",                              "System:Tools:Tool022" },
   Install { FirstDisk":System:Tools:Tool023",                              "System:Tools:Tool023" },
   Install { FirstDisk":System:Tools:Tool027",                              "System:Tools:Tool027" },
   Install { FirstDisk":System:Tools:Tool028",                              "System:Tools:Tool028" },
   Install { FirstDisk":System:Tools:Tool034",                              "System:Tools:Tool034" },
/*   Install  { FirstDisk":System:Fonts:FastFont",                            "System:Fonts:FastFont" },   ELC Change from Install to make room 12/17/91*/
   Install { FirstDisk":System:P8",                                                    "System:P8" },
   Install { FirstDisk":Icons:FType.Apple",                                    "Icons:FType.Apple" },

   Install { SecondDisk":BASIC.System",                                             "BASIC.System" },
   Update  { SecondDisk":System:CDevs:DirectConnect",                 "System:CDevs:DirectConnect" },
   Update  { SecondDisk":System:CDevs:Keyboard",                           "System:CDevs:Keyboard" },
   Update  { SecondDisk":System:CDevs:Modem",                                 "System:CDevs:Modem" },
   Update  { SecondDisk":System:CDevs:Monitor",                             "System:CDevs:Monitor" },
   Install { SecondDisk":System:CDevs:Printer",                             "System:CDevs:Printer" },
   Install { SecondDisk":System:CDevs:Slots",                                 "System:CDevs:Slots" },
   Update  { SecondDisk":System:CDevs:Sound",                                 "System:CDevs:Sound" },
   Update  { SecondDisk":System:CDevs:Time",                                   "System:CDevs:Time" },
   Update  { SecondDisk":System:Drivers:ImageWriter",                 "System:Drivers:ImageWriter" },
   Update  { SecondDisk":System:Drivers:Modem",                             "System:Drivers:Modem" },
   Update  { SecondDisk":System:Drivers:Printer",                         "System:Drivers:Printer" },
   Update  { SecondDisk":System:Finder",                                           "System:Finder" },
   Update  { SecondDisk":System:Fonts:Courier.09",                       "System:Fonts:Courier.09" },
   Update  { SecondDisk":System:Fonts:Courier.10",                       "System:Fonts:Courier.10" },
   Update  { SecondDisk":System:Fonts:Courier.12",                       "System:Fonts:Courier.12" },
   Update  { SecondDisk":System:Fonts:Courier.14",                       "System:Fonts:Courier.14" },
   Update  { SecondDisk":System:Fonts:Courier.18",                       "System:Fonts:Courier.18" },
   Update  { SecondDisk":System:Fonts:Courier.24",                       "System:Fonts:Courier.24" },
   Update  { SecondDisk":System:Fonts:Geneva.10",                         "System:Fonts:Geneva.10" },
   Update  { SecondDisk":System:Fonts:Geneva.12",                         "System:Fonts:Geneva.12" },
   Update  { SecondDisk":System:Fonts:Geneva.14",                         "System:Fonts:Geneva.14" },
   Update  { SecondDisk":System:Fonts:Geneva.16",                         "System:Fonts:Geneva.16" },
   Update  { SecondDisk":System:Fonts:Geneva.18",                         "System:Fonts:Geneva.18" },
   Update  { SecondDisk":System:Fonts:Geneva.20",                         "System:Fonts:Geneva.20" },
   Update  { SecondDisk":System:Fonts:Geneva.24",                         "System:Fonts:Geneva.24" },
   Update  { SecondDisk":System:Fonts:Helvetica.09",                   "System:Fonts:Helvetica.09" },
   Update  { SecondDisk":System:Fonts:Helvetica.10",                   "System:Fonts:Helvetica.10" },
   Update  { SecondDisk":System:Fonts:Helvetica.12",                   "System:Fonts:Helvetica.12" },
   Update  { SecondDisk":System:Fonts:Helvetica.14",                   "System:Fonts:Helvetica.14" },
   Update  { SecondDisk":System:Fonts:Helvetica.18",                   "System:Fonts:Helvetica.18" },
   Update  { SecondDisk":System:Fonts:Helvetica.24",                   "System:Fonts:Helvetica.24" },
   Update  { SecondDisk":System:Fonts:Shaston.16",                       "System:Fonts:Shaston.16" },
   Update  { SecondDisk":System:Fonts:Times.09",                           "System:Fonts:Times.09" },
   Install  { SecondDisk":System:Fonts:Times.10",                           "System:Fonts:Times.10" },
   Update  { SecondDisk":System:Fonts:Times.12",                           "System:Fonts:Times.12" },
   Update  { SecondDisk":System:Fonts:Times.14",                           "System:Fonts:Times.14" },
   Update  { SecondDisk":System:Fonts:Times.18",                           "System:Fonts:Times.18" },
   Update  { SecondDisk":System:Fonts:Times.24",                           "System:Fonts:Times.24" },
   Update  { SecondDisk":System:Fonts:Venice.12",                         "System:Fonts:Venice.12" },
   Update  { SecondDisk":System:Fonts:Venice.14",                         "System:Fonts:Venice.14" },
   Update  { SecondDisk":System:Fonts:Venice.24",                         "System:Fonts:Venice.24" },
   Update  { SecondDisk":System:Tools:Tool025",                             "System:Tools:Tool025" },
   Update  { SecondDisk":System:Tools:Tool026",                             "System:Tools:Tool026" },
   Update  { SecondDisk":System:Tools:Tool029",                             "System:Tools:Tool029" },
   Update  { SecondDisk":System:Tools:Tool032",                             "System:Tools:Tool032" },
   Update  { SecondDisk":System:Drivers:Apple.Midi",                   "System:Drivers:Apple.Midi" },
   Update  { SecondDisk":System:Drivers:Card6850.Midi",             "System:Drivers:Card6850.Midi" },
   Update  { SecondDisk":System:Drivers:Epson",                             "System:Drivers:Epson" },
   Update  { SecondDisk":System:Drivers:ImageWriter.LQ",           "System:Drivers:ImageWriter.LQ" },
   Update  { SecondDisk":System:Drivers:Parallel.Card",             "System:Drivers:Parallel.Card" },
   Update  { SecondDisk":System:Drivers:SCSICD.Driver",             "System:Drivers:SCSICD.Driver" },
   Update  { SecondDisk":System:Drivers:SCSIScan.Driver",         "System:Drivers:SCSIScan.Driver" },
   Update  { SecondDisk":System:Drivers:SCSITape.Driver",         "System:Drivers:SCSITape.Driver" },
   Update  { SecondDisk":System:Drivers:A2.RAMCard",                   "System:Drivers:A2.RAMCard" },
   Update  { SecondDisk":System:Drivers:RAM5",                   		  "System:Drivers:RAM5" },
   Update  { SecondDisk":System:Drivers:StyleWriter",                 "System:Drivers:StyleWriter" },
   Update  { SecondDisk":System:FSTs:DOS3.3.FST",                         "System:FSTs:DOS3.3.FST" },
   Update  { SecondDisk":System:FSTs:HFS.FST",                               "System:FSTs:HFS.FST" },
   Update  { SecondDisk":System:FSTs:HS.FST",                                 "System:FSTs:HS.FST" },
   Update  { SecondDisk":System:FSTs:Pascal.FST",                         "System:FSTs:Pascal.FST" },
   Update  { SecondDisk":System:FSTs:MSDOS.FST",                           "System:FSTs:MSDOS.FST" }, /* 3-Jun-92 DAL */
   Update  { SecondDisk":System:Desk.Accs:CDRemote",                   "System:Desk.Accs:CDRemote" },
   Update  { SecondDisk":System:Desk.Accs:FindFile",                   "System:Desk.Accs:FindFile" },
   Update  { SecondDisk":System:Desk.Accs:Calculator",               "System:Desk.Accs:Calculator" },

   Update  { ThirdDisk":AppleTalk:Display.0",                                "AppleTalk:Display.0" },
   Update  { ThirdDisk":AppleTalk:QuickLogoff",                  "System:System.Setup:QuickLogoff" },
   Update  { ThirdDisk":System:CDevs:AppleShare",                        "System:CDevs:AppleShare" },
   Update  { ThirdDisk":System:CDevs:FolderPriv",                        "System:CDevs:FolderPriv" },
   Update  { ThirdDisk":System:CDevs:MediaControl",                    "System:CDevs:MediaControl" },
   Update  { ThirdDisk":System:CDevs:Namer",                                  "System:CDevs:Namer" },
   Update  { ThirdDisk":System:CDevs:NetPrinter",                        "System:CDevs:NetPrinter" },
/*   Update  { ThirdDisk":System:CDevs:Network",                              "System:CDevs:Network" }, ELC 12/4/91*/
   Update  { ThirdDisk":System:Desk.Accs:MediaControl",            "System:Desk.Accs:MediaControl" },
   Update  { ThirdDisk":System:Desk.Accs:VideoKeyboard",          "System:Desk.Accs:VideoKeyboard" },
   Update  { ThirdDisk":System:Desk.Accs:VideoMix",                    "System:Desk.Accs:VideoMix" },
   Update  { ThirdDisk":System:Drivers:AppleTalk",                      "System:Drivers:AppleTalk" },
   Update  { ThirdDisk":System:Drivers:ATalk",                              "System:Drivers:Atalk" },
   Update  { ThirdDisk":System:Drivers:ATP1.ATROM",                    "System:Drivers:ATP1.ATROM" },
   Update  { ThirdDisk":System:Drivers:ATP2.ATRAM",                    "System:Drivers:ATP2.ATRAM" },
/*   Update  { ThirdDisk":System:Drivers:ETalk",                              "System:Drivers:ETalk" }, /* removed 6-May-93 DAL */
   Update  { ThirdDisk":System:Drivers:IWEM",                                "System:Drivers:IWEM" },
   Update  { ThirdDisk":System:Drivers:LaserWriter",                  "System:Drivers:LaserWriter" },
   Update  { ThirdDisk":System:Drivers:SCC.Manager",                  "System:Drivers:SCC.Manager" },
   Update  { ThirdDisk":System:Drivers:Media.Control:AppleCDSC",
                                                         "System:Drivers:Media.Control:AppleCDSC" },
   Update  { ThirdDisk":System:Drivers:Media.Control:Pioneer2000",
                                                       "System:Drivers:Media.Control:Pioneer2000" },
   Update  { ThirdDisk":System:Drivers:Media.Control:Pioneer4200",
                                                       "System:Drivers:Media.Control:Pioneer4200" },
   Update  { ThirdDisk":System:FSTs:AppleShare.FST",                  "System:FSTs:AppleShare.FST" },
   Update  { ThirdDisk":System:System.Setup:AppleIIVOC",          "System:System.Setup:AppleIIVOC" },
   Update  { ThirdDisk":System:System.Setup:ATResponder",        "System:System.Setup:ATResponder" },
   Update  { ThirdDisk":System:System.Setup:ATInit",                  "System:System.Setup:ATInit" },
   Update  { ThirdDisk":System:System.Setup:CloseView",            "System:System.Setup:CloseView" },
   Update  { ThirdDisk":System:System.Setup:EasyAccess",          "System:System.Setup:EasyAccess" },
   Install  { ThirdDisk":System:System.Setup:EasyMount",            "System:System.Setup:EasyMount" }, /* 24-Mar-93 SS */
   Update  { ThirdDisk":System:Tools:Tool033",                              "System:Tools:Tool033" },
   Update  { ThirdDisk":System:Tools:Tool038",                              "System:Tools:Tool038" },
   };
};
#endif

/* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
/* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
/* - - These equates MUST be duplicated in the Installer.Equates file!!! - - */
/* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
/* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */

		/* Definitions for the Custom Installation Dialog */

#define Width			636
#define Height			142

#define Top			105-Height/2
#define Left			320-Width/2
#define Bottom			Top+Height
#define Right			Left+Width

#define ButtonLeft		273	  /* Left side of the "center" buttons		  */
#define ButtonWidth		 99	  /* Width of the "center" buttons			  */
#define ButtonWidth2	123	  /* Width of the wide buttons		       */
#define AppWindowLeft Width-256 /* Left side of Application Selection window */
#define RightMargin		  0	  /* Right margin for buttons below app window */

		/* Definitions for the Standard Installation Dialog */

/* NOTE:  CHANGE THESE COORDINATES, AND YOU MUST ALSO CHANGE COORDINATES IN
   DiskEasyCoords & DiskBtnCoords IN DATA.ASM */

#define aWidth			496
#define aHeight		115

#define aTop			105-aHeight/2
#define aLeft			320-aWidth/2
#define aBottom		aTop+aHeight
#define aRight			aLeft+aWidth

#define StdButtonRight	aWidth-14				/* right side of Std Update buttons */
#define StdButtonLeft	StdButtonRight-156		/* left side of Std Update buttons */
#define StdButtonHeight	 13		/* height of buttons */

/* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */

/* Menu related equates */

#define fTitleRefIsResource	0b1000000000000000
#define fMenuDisabled		0b0000000010000000

#define fDontDrawTitle		0b0000000000010000	/* PopUpCtl Flags */

#define fCtlProcNotPtr		0b0001000000000000	/* PopUpCtl moreFlags */
#define fDrawIconInResult	0b0000000000100000
#define fDrawArrowIcon		0b0000000010000000
#define MenuRefIsResource     0b0000000000000010

#define fCtlCanBeTarget		0b0100000000000000	/* ListCtl moreFlags */
#define fCtlWantEvents		0b0010000000000000

#define AppleMenuID		0x0001
#define FileMenuID		0x0002
#define EditMenuID		0x0003
#define HelpMenuID		0x0004

#define UndoItemID		0x00FA			/* These next 6 are standard and */
#define CutItemID		0x00FB			/* required for DA support under */
#define CopyItemID		0x00FC			/* TaskMaster.				   */
#define PasteItemID		0x00FD
#define ClearItemID		0x00FE
#define CloseWItemID	0x00FF

#define AboutItemID		0x0100			/* These are our own responsibility */
#define QuitItemID		0x0101
#define DividingLineID	0x0102
#define ShortcutsItemID	0x0103
#define EraseDiskItemID	0x0104
#define HelpItemID		0x0105
#define CreatingItemID	0x0106
#define UpdatingItemID	0x0107
#define HardDiskItemID	0x0108

/* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  */

/* Control ID's (ID - 0x300 = real control ID) for the Customized
   Installation Dialog.

   ¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê IMPORTANT  ¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥
   ¥ The file "Data.Asm" provides control handle     ¥
   ¥ storage.  Each control, below, must have a      ¥
   ¥ matching 4-byte handle storage location under   ¥
   ¥ "HandleTable" in the same order as below!       ¥
   ¥ ¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥Ê¥
											*/
#define InstallCtl		0x0301	/* simpleButtonControl */
#define RemoveCtl		0x0302
#define HelpCtl		0x0303
#define QuitCtl		0x0304
#define DiskCtl		0x0305
#define OpenCtl		0x0306
#define EjectCtl		0x0307
#define NewFolderCtl	0x0308
#define StatText1Ctl	0x0309	/* statTextControl */
#define StatText2Ctl	0x030A
#define PictureCtl		0x030B	/* pictureControl */
#define ScriptListCtl	0x030C	/* listControl */
#define SelectListCtl	0x030D
#define PopUpCtl		0x030E	/* popupControl */
#define Standard2Ctl	0x030F	/* iconControl */

/* Control ID's (ID - 0x300 = real control ID) for the Standard
   Installation Dialog. */

#define VolumeCtl		0x0401	/* simpleButtonControl */
#define StandardCtl		0x0402
#define CustomCtl		0x0403
#define Eject2Ctl		0x0404
#define Help2Ctl		0x0405
#define Quit2Ctl		0x0406
#define EasyTextCtl		0x0407
#define EasyTextVsCtl	0x0408

/* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  */

/* ---------------------------------------------------------------------------- */
/*																*/
/*                         Resource Type Definitions						*/
/*																*/
/* -----------------------------------------------------------------------------*/
#define rIcon			0x8001
#define rPicture 		0x8002
#define rControlList	0x8003
#define rControlTemplate	0x8004
#define rPString		0x8006
#define rMenuBar		0x8008
#define rMenu			0x8009
#define rMenuItem		0x800A
#define rTextForLETextBox2 0x800B
#define rCtlColorTbl	0x800D
#define rWindParam1 	0x800E
#define rWindColor		0x8010
#define rToolStartup	0x8013
#define rVersion		 $8029

#define word			integer
#define KeyEquiv		array[1]{ char; char; word; word; }

/* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  */

type	rToolStartup {

	integer = 0x0000;				/* flags - must be set to zero		*/
	integer mode320 = 0x0000,mode640 = 0x0080; /* videoMode - 640 mode		*/
	integer = 0x0000;				/* resFileID - set by StartUpTools		*/
	longInt = 0x00000000;			/* dPageHandle - set by StartUpTools	*/
	integer = $$Countof(ToolRecs);	/* numTools - No. of tools in toolArray	*/
		array ToolRecs {
			integer; integer;		/* Tool number; version	*/
		};
};

type rMenuBar {
	integer = 0x0000;				/* version - must be set to zero		*/
	integer = 0b1000000000000000;		/* menuFlag - resource				*/
	array { longInt; };				/* menuRefArray					*/
	longInt = 0x00000000;			/* end-of-array marker				*/
};

type rMenu {
	integer = 0x0000;				/* version - must be set to zero		*/
	integer;						/* menuID							*/
	integer;						/* menuFlag						*/
	longInt;						/* menuTitleRef					*/
	  array { longInt; }; 			/* itemRefArray					*/
	longInt = 0x00000000;			/* end-of-array marker				*/
};

type rMenuItem {
	integer = 0x0000;				/* version - must be set to zero		*/
	integer;						/* itemID							*/
	char;						/* itemChar						*/
	char;						/* itemAltChar						*/
	integer = 0x0000;				/* itemCheck						*/
	integer;						/* itemFlag						*/
	longInt;						/* itemTitleRef					*/
};

type rWindParam1 {
	integer	= 0x50;			/* length of parameter list, should be 0x50 */
	integer;					/* p1FrameBits */
	longint;					/* p1Title */
	longint;					/* p1RefCon */
	rect;					/* p1ZoomRect	*/
	longint;					/* Color ID */
	point;					/* Origin */
	point;					/* data size */
	point;					/* max height-width */
	point;					/* scroll ver hors */
	point;					/* page vers horiz */
	longint;					/* p1infoRefcon */
	integer;					/* p1InfoHeight */
	fill long[3];				/* p1FrameDefProc,p1InfoDefProc,p1ContDefProc */
	rect;					/* p1position */
	longint behind=0,infront=-1;	/* p1Plane */
	longint;					/* p1Storage */
	integer;					/* p1InVerb */
};

type rWindColor {
	integer;			/* frameColor */
	integer;			/* titleColor */
	integer;			/* tbarColor */
	integer;			/* growColor */
	integer;			/* infoColor */
};

type rControlList {
		array {
			longint;
			};
		longint = 0;
};

type rControlTemplate {
		integer = 3+$$optionalcount (Fields);	/* pCount  (at least 6) */
		longint;							/* ID     (control's ID)*/
		rect;							/* rect                 */
		switch {
		
		case SimpleButtonControl:
			key longint = 0x80000000;		/* procRef         */
			optional Fields {
				integer;					/* flags           */
				integer;					/* moreFlags       */
				longint;					/* refCon          */
				longint;					/* titleRef        */
				longint;					/* colorTableRef   */
				KeyEquiv;
			};

		case statTextControl:
			key longint = 0x81000000;		/* procRef */
			optional Fields {
				integer;					/* flags */
				integer;					/* more flags */
				longint;					/* refcon */
				longint;					/* Text Ref */
				integer;					/* text size */
				integer;					/* text justification */
			};
					
		case CheckControl:
			key longint = 0x82000000;		/* procRef         */
			optional Fields {
				integer;					/* flags           */
				integer;					/* moreFlags       */
				longint;					/* refCon          */
				longint;					/* titleRef        */
				integer;					/* initialValue    */
				longint;					/* color table ref */
				KeyEquiv;
			};
					
		case editLineControl:
			key longint = 0x83000000;		/* procRef         */
			optional Fields {
				integer;					/* flags           */
				integer;					/* moreFlags       */
				longint;					/* refCon          */
				integer;					/* maxSize         */
				longint;					/* defaultRef        ? ? ? */
/* ? ? ?			longint;					/* resource ID of the text */
/* ? ? ?			integer;					/* Text Size         ? ? ? */
			};
										
		case RadioControl:
				key longint = 0x84000000;	/* procRef         */
			optional Fields {
				integer;					/* flags           */
				integer;					/* moreFlags       */
				longint;					/* refCon          */
				longint;					/* titleRef        */
				integer;					/* initialValue    */
				longint;					/* colorTableRef   */
				KeyEquiv;
			};	

		case editTextControl:
			key longint = 0x85000000;		/* procRef         */
			optional Fields {
				integer;					/* flags           */
				integer;					/* moreFlags       */
				longint;					/* refCon          */
				longint;					/* textFlags       */
				rect;					/* indentRect      */
				longint;					/* vertBar         */
				integer;					/* vertAmount      */
				longint;					/* horzBar         */
				integer;					/* horzAmount      */
				longint;					/* styleRef        */
				integer;					/* textDescriptor  */
				longint;					/* textRef         */
				longint;					/* textLength      */
				longint;					/* maxChars        */
				longint;					/* maxLines        */
				integer;					/* maxCharsPerLine */
				integer;					/* maxHeight       */
				longint;					/* colorRef        */
				integer;					/* drawMode        */
				LongInt;					/* filterProcPtr   */
			};
										
		case scrollControl:
			key longint = 0x86000000;		/* procRef         */
			optional Fields {
				integer;					/* flags           */
				integer;					/* moreFlags       */
				longint;					/* refCon          */
				integer;					/* maxSize         */
				integer;					/* viewSize        */
				integer;					/* initialValue    */
				longint;					/* colorTableRef   */
			};
			
		case PopUpControl:
			key longint = 0x87000000;		/* procRef         */
			optional Fields {
				integer;					/* flags           */
				integer;					/* moreFlags       */
				longint;					/* refCon          */
				integer;					/* titleWidth      */
				longint;					/* menuRef         */
				integer;					/* initialValue    */
				longint;					/* colorTableRef   */
			};
					
		case growControl:
			key longint = 0x88000000;		/* procRef         */
			optional Fields {
				integer;					/* flags           */
				integer;					/* moreFlags       */
				longint;					/* refCon          */
				longint;					/* colorTableRef   */
			};

		case ListControl:
			key longint = 0x89000000;		/* procRef         */
			optional Fields {
				integer;					/* flags           */
				integer;					/* moreFlags       */
				longint;					/* refCon          */
				integer;					/* listSize        */
				integer; 					/* listView        */
				integer;					/* listType        */
				integer;					/* listStart       */
				longint;					/* listDraw        */
				integer;					/* listMemHeight   */
				integer;					/* listMemSize     */
				longint;					/* listRef         */
				longint;					/* colorTableRef   */
			};

			    /* There is no 0x8A000000, 0x8B000000, 0x8C000000 */
					
		case PictureControl:
			key longint = 0x8D000000;		/* procRef         */
			optional Fields {
				integer;					/* flags           */
				integer;					/* moreFlags       */
				longint;					/* refCon          */
				longint;					/* pictureRef      */
			};

		case IconButtonControl:
			key longint = 0x07FF0001;		/* procRef         */
			optional Fields {
				integer;					/* flags           */
				integer;					/* moreFlags       */
				longint;					/* refCon          */
				longint;					/* iconRef         */
				longint;					/* titleRef        */
				longint;					/* colorTableRef   */
				integer;					/* displayMode     */
				KeyEquiv;
			};
		};
};

type rCtlColorTbl {
				integer;		/* outline color */
				integer;		/* interior color when not hilited */
				integer;		/* interior color when hilited */
				integer;		/* text color when not hilited */
				integer;		/* text color when not hilited */
};

type rPString { PString; };

type rTextForLETextBox2 { string; };

type rIcon {
			hex integer;				/* Icon Type bit 15  1 = color, 0 = mono */
	image:
			integer	= (Mask-Image)/8 - 6;/* size of icon data in bytes */
			integer;					/* height of icon in pixels */
			integer;					/* width of icon in pixels */
			hex string [$$Word(image)];	/* icon image */
	mask:
			hex string;					/* icon mask */
};

#define	Region		verUS, verFrance, verBritain, verGermany,			\
					verItaly, verNetherlands, verBelgiumLux,			\
					verFrBelgiumLux = 6, verSweden, verSpain,			\
					verDenmark, verPortugal, verFrCanada, verNorway,	\
					verIsrael, verJapan, verAustralia, verArabia,		\
					verArabic=16, verFinland, verFrSwiss, verGrSwiss,	\
					verGreece, verIceland, verMalta, verCyprus,			\
					verTurkey, verYugoslavia, verYugoCroatian = 25,		\
					verIndia = 33, verIndiaHindi = 33, verPakistan,		\
					verLithuania = 41, verPoland, verHungary,			\
					verEstonia, verLatvia, verLapland, verFaeroeIsl,	\
					verIran, verRussia, verIreland = 50, verKorea,		\
					verChina, verTaiwan, verThailand					\

/*------------------- rVersion ------------------*/
type rVersion {
	ReverseBytes{
		hex byte;											// Major revision in BCD
		hex bitstring[4];									// Minor vevision in BCD
		hex bitstring[4];									// Bug version
		hex byte		development = 0x20,						// Release stage		
					alpha = 0x40,
					beta = 0x60,
					Final = 0x80, /* or */ 
					release = 0xA0;
		hex byte;											// Non-final release #
	};
	integer	Region;										// Region code
	pstring;												// Short version number
	pstring;												// Long version number
};

/* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
	PictIIgs.r -- Type Declaration for RezIIgs and DeRezIIgs
	
	Copyright Apple Computer, Inc. 1986, 1987
	All rights reserved.

	This Picture resource definition should probably used
	for DeRezÕing purposes only.
	
	- Change history -
	12/21/88	- Mensch: created.
	10/05/89	- "Jay" : a couple of minor fixes
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */

type rPicture {
	integer Mode320 = 0x0000, Mode640 =0x0080;	/* SCB for picture */
	Rect;								/* Bounds of picture */
	Integer = 0x8211;						/* version */
		array OpCodes {
			switch {
				case Clip:
					key integer = $0001;
	ClipStart:		integer = (ClipEnd[$$ArrayIndex(OpCodes)] - ClipStart[$$ArrayIndex(OpCodes)]) >> 3;
					Rect;				/* region's enclosing rect */
					hex string [$$Word(ClipStart[$$ArrayIndex(OpCodes)]) - 10];
	ClipEnd:
				case BkPat:
					key integer = $0002;
					hex string [32];
						
				case TxFont:
					key integer = $0003;
					Longint;				/* font */
						
				case TxFace:
					key integer = $0004;
					unsigned hex Integer;	/* text face */
						
				case TxMode:
					key integer = $0005;
					integer		srcCopy, srcOr, srcXor, srcBic,	/* mode */
								notSrcCopy, notSrcOr, notSrcXor,
								notSrcBic, patCopy, patOr, patXor,
								patBic, notPatCopy, notPatOr, notPatBic;
						
				case SpExtra:
					key integer = $0006;
					unsigned hex longint;
						
				case PnSize:
					key integer = $0007;
					Point;
						
				case PnMode:
					key integer = $0008;
					unsigned hex integer;
						
				case PnPat:
					key integer = $0009;
					hex string [32];
						
				case FillPat:
					key integer = $000A;
					hex string [32];
						
				case OvSize:
					key integer = $000B;
					Point;
						
				case Origin:
					key integer = $000C;
					integer;				/* dh */
					integer;				/* dv */
						
				case TxSize:
					key integer = $000D;
					integer;
						
				case FgColor:
					key integer = $000E;
					Integer;
						
				case BkColor:
					key integer = $000F;
					Integer;
						
				case UNUSED10:
					key integer = $0010;
					Point;				/* numer */
					Point;				/* denom */
						
				case Version:
					key integer = $8211;

				case ChExtra:
					key integer = $0012;
					LongInt;

				case PnMask:
					key integer = $0013;
					hex string [8];

				case ArcRot:
					key integer = $0014;
					integer;
						
				case FontFlags:
					key integer = $0015;
					unsigned hex integer;
						
				case AppleReserved0016:
					key integer = $0016;
						
				case AppleReserved0017:
					key integer = $0017;
							
				case AppleReserved0018:
					key integer = $0018;
							
				case AppleReserved0019:
					key integer = $0019;
						
				case AppleReserved001A:
					key integer = $001A;
						
				case Line:
					key integer = $0020;
					Point;					/* pnLoc */
					Point;					/* newPt */
							
				case LineFrom:
					key integer = $0021;
					Point;					/* newPt */
						
				case ShortLine:
					key integer = $0022;
					Point;					/* pnLoc */
					byte;					/* dh */
					byte;					/* dv */
						
				case ShortLineFrom:
					key integer = $0023;
					byte;					/* dh */
					byte;					/* dv */
						
				case AppleReserved0024:
					key integer = $0024;
		AR24:		unsigned integer = (AR24End - AR24) / 8 - 2;
					hex string [$$Word(AR24)];
		AR24End:
						
				case AppleReserved0025:
					key integer = $0025;
		AR25:		unsigned integer = (AR25End - AR25) / 8 - 2;
					hex string [$$Word(AR25)];
		AR25End:
						
				case AppleReserved0026:
					key integer = $0026;
		AR26:		unsigned integer = (AR26End - AR26) / 8 - 2;
					hex string [$$Word(AR26)];
		AR26End:
						
				case AppleReserved0027:
					key integer = $0027;
		AR27:		unsigned integer = (AR27End - AR27) / 8 - 2;
					hex string [$$Word(AR27)];
		AR27End:
						
				case LongText:
					key integer = $0028;
					Point;				/* txLoc */
					pstring;				/* text */
						
				case DHText:
					key integer = $0029;
					byte;				/* dh */
					pstring;				/* text */

				case DVText:
					key integer = $002A;
					byte;				/* dv */
					pstring;				/* text */

				case DHDVText:
							key integer = $002B;
							byte;				/* dh */
							byte;				/* dv */
							pstring;			/* text */

						case RealLongText:
							key integer = $002C;
							point;
				AR2C:		unsigned integer = (AR2CEnd - AR2C) / 8 - 2;
							hex string [$$Word(AR2C)];
				AR2CEnd:
						
						case AppleReserved002D:
							key integer = $002D;
				AR2D:		unsigned integer = (AR2DEnd - AR2D) / 8 - 2;
							hex string [$$Word(AR2D)];
				AR2DEnd:
						
						case AppleReserved002E:
							key integer = $002E;
				AR2E:		unsigned integer = (AR2EEnd - AR2E) / 8 - 2;
							hex string [$$Word(AR2E)];
				AR2EEnd:
						
						case AppleReserved002F:
							key integer = $002F;
				AR2F:		unsigned integer = (AR2FEnd - AR2F) / 8 - 2;
							hex string [$$Word(AR2F)];
				AR2FEnd:
						
						case FrameRect:
							key integer = $0030;
							Rect;
							
						case PaintRect:
							key integer = $0031;
							Rect;
							
						case EraseRect:
							key integer = $0032;
							Rect;
							
						case InvertRect:
							key integer = $0033;
							Rect;
							
						case FillRect:
							key integer = $0034;
							Rect;
							
						case AppleReserved0035:
							key integer = $0035;
							Rect;
							
						case AppleReserved0036:
							key integer = $0036;
							Rect;
							
						case AppleReserved0037:
							key integer = $0037;
							Rect;
						
						case FrameSameRect:
							key integer = $0038;
						
						case PaintSameRect:
							key integer = $0039;
						
						case EraseSameRect:
							key integer = $003A;
						
						case InvertSameRect:
							key integer = $003B;
						
						case FillSameRect:
							key integer = $003C;
						
						case AppleReserved003D:
							key integer = $003D;
						
						case AppleReserved003E:
							key integer = $003E;
						
						case AppleReserved003F:
							key integer = $003F;
						
						case FrameRRect:
							key integer = $0040;
							Rect;
							
						case PaintRRect:
							key integer = $0041;
							Rect;
							
						case EraseRRect:
							key integer = $0042;
							Rect;
							
						case InvertRRect:
							key integer = $0043;
							Rect;
							
						case FillRRect:
							key integer = $0044;
							Rect;
							
						case AppleReserved0045:
							key integer = $0045;
							Rect;
							
						case AppleReserved0046:
							key integer = $0046;
							Rect;
							
						case AppleReserved0047:
							key integer = $0047;
							Rect;
						
						case FrameSameRRect:
							key integer = $0048;
						
						case PaintSameRRect:
							key integer = $0049;
						
						case EraseSameRRect:
							key integer = $004A;
						
						case InvertSameRRect:
							key integer = $004B;
						
						case FillSameRRect:
							key integer = $004C;
						
						case AppleReserved004D:
							key integer = $004D;
						
						case AppleReserved004E:
							key integer = $004E;
						
						case AppleReserved004F:
							key integer = $004F;
						
						case FrameOval:
							key integer = $0050;
							Rect;
							
						case PaintOval:
							key integer = $0051;
							Rect;
							
						case EraseOval:
							key integer = $0052;
							Rect;
							
						case InvertOval:
							key integer = $0053;
							Rect;
							
						case FillOval:
							key integer = $0054;
							Rect;
							
						case AppleReserved0055:
							key integer = $0055;
							Rect;
							
						case AppleReserved0056:
							key integer = $0056;
							Rect;
							
						case AppleReserved0057:
							key integer = $0057;
							Rect;
						
						case FrameSameOval:
							key integer = $0058;
						
						case PaintSameOval:
							key integer = $0059;
						
						case EraseSameOval:
							key integer = $005A;
						
						case InvertSameOval:
							key integer = $005B;
						
						case FillSameOval:
							key integer = $005C;
						
						case AppleReserved005D:
							key integer = $005D;
						
						case AppleReserved005E:
							key integer = $005E;
						
						case frameArc:
							key integer = $0060;
							Rect;
							integer;				/* startAngle */
							integer;				/* arcAngle */
						
						case paintArc:
							key integer = $0061;
							Rect;
							integer;				/* startAngle */
							integer;				/* arcAngle */
						
						case eraseArc:
							key integer = $0062;
							Rect;
							integer;				/* startAngle */
							integer;				/* arcAngle */
						
						case invertArc:
							key integer = $0063;
							Rect;
							integer;				/* startAngle */
							integer;				/* arcAngle */
						
						case fillArc:
							key integer = $0064;
							Rect;
							integer;				/* startAngle */
							integer;				/* arcAngle */
						
						case AppleReserved0065:
							key integer = $0065;
							Rect;
							integer;				/* startAngle */
							integer;				/* arcAngle */
						
						case AppleReserved0066:
							key integer = $0066;
							Rect;
							integer;				/* startAngle */
							integer;				/* arcAngle */
						
						case AppleReserved0067:
							key integer = $0067;
							Rect;
							integer;				/* startAngle */
							integer;				/* arcAngle */
						
						case frameSameArc:
							key integer = $0068;
							integer;				/* startAngle */
							integer;				/* arcAngle */

						case paintSameArc:
							key integer = $0069;
							integer;				/* startAngle */
							integer;				/* arcAngle */

						case eraseSameArc:
							key integer = $006A;
							integer;				/* startAngle */
							integer;				/* arcAngle */

						case invertSameArc:
							key integer = $006B;
							integer;				/* startAngle */
							integer;				/* arcAngle */

						case fillSameArc:
							key integer = $006C;
							integer;				/* startAngle */
							integer;				/* arcAngle */
						
						case AppleReserved006D:
							key integer = $006D;
							integer;				/* startAngle */
							integer;				/* arcAngle */
						
						case AppleReserved006E:
							key integer = $006E;
							integer;				/* startAngle */
							integer;				/* arcAngle */
						
						case AppleReserved006F:
							key integer = $006F;
							integer;				/* startAngle */
							integer;				/* arcAngle */
						
						case framePoly:
							key integer = $0070;
							integer = $$CountOf(framePoly) * 4 + 10;
							Rect;					/* enclosing rectangle */
							array framePoly {
								Point;
							};
						
						case paintPoly:
							key integer = $0071;
							integer = $$CountOf(framePoly) * 4 + 10;
							Rect;					/* enclosing rectangle */
							array framePoly {
								Point;
							};
						
						case erasePoly:
							key integer = $0072;
							integer = $$CountOf(framePoly) * 4 + 10;
							Rect;					/* enclosing rectangle */
							array framePoly {
								Point;
							};
						
						case invertPoly:
							key integer = $0073;
							integer = $$CountOf(framePoly) * 4 + 10;
							Rect;					/* enclosing rectangle */
							array framePoly {
								Point;
							};
						
						case fillPoly:
							key integer = $0074;
							integer = $$CountOf(framePoly) * 4 + 10;
							Rect;					/* enclosing rectangle */
							array framePoly {
								Point;
							};
						
						case AppleReserved0075:
							key integer = $0075;
							integer = $$CountOf(framePoly) * 4 + 10;
							Rect;					/* enclosing rectangle */
							array framePoly {
								Point;
							};
						
						case AppleReserved0076:
							key integer = $0076;
							integer = $$CountOf(framePoly) * 4 + 10;
							Rect;					/* enclosing rectangle */
							array framePoly {
								Point;
							};
						
						case AppleReserved0077:
							key integer = $0077;
							integer = $$CountOf(framePoly) * 4 + 10;
							Rect;					/* enclosing rectangle */
							array framePoly {
								Point;
							};
						
						case frameSamePoly:
							key integer = $0078;
	
						case paintSamePoly:
							key integer = $0079;
	
						case eraseSamePoly:
							key integer = $007A;
	
						case invertSamePoly:
							key integer = $007B;
	
						case fillSamePoly:
							key integer = $007C;
	
						case AppleReserved007D:
							key integer = $007D;
	
						case AppleReserved007E:
							key integer = $007E;
	
						case AppleReserved007F:
							key integer = $007F;
	
						case frameRgn:
							key integer = $0080;
	frameRgnStart2:			integer = (frameRgnEnd2[$$ArrayIndex(OpCodes)] - frameRgnStart2[$$ArrayIndex(OpCodes)]) >> 3;
							Rect;				/* region's enclosing rect */
							hex string [$$Word(frameRgnStart2[$$ArrayIndex(OpCodes)]) - 10];
	frameRgnEnd2:
						case paintRgn:
							key integer = $0081;
	paintRgnStart2:			integer = (paintRgnEnd2[$$ArrayIndex(OpCodes)] - paintRgnStart2[$$ArrayIndex(OpCodes)]) >> 3;
							Rect;				/* region's enclosing rect */
							hex string [$$Word(paintRgnStart2[$$ArrayIndex(OpCodes)]) - 10];
	paintRgnEnd2:
						case eraseRgn:
							key integer = $0082;
	eraseRgnStart2:			integer = (eraseRgnEnd2[$$ArrayIndex(OpCodes)] - eraseRgnStart2[$$ArrayIndex(OpCodes)]) >> 3;
							Rect;				/* region's enclosing rect */
							hex string [$$Word(eraseRgnStart2[$$ArrayIndex(OpCodes)]) - 10];
	eraseRgnEnd2:
						case invertRgn:
							key integer = $0083;
	invertRgnStart2:		integer = (invertRgnEnd2[$$ArrayIndex(OpCodes)] - invertRgnStart2[$$ArrayIndex(OpCodes)]) >> 3;
							Rect;				/* region's enclosing rect */
							hex string [$$Word(invertRgnStart2[$$ArrayIndex(OpCodes)]) - 10];
	invertRgnEnd2:
						case fillRgn:
							key integer = $0084;
	fillRgnStart2:			integer = (fillRgnEnd2[$$ArrayIndex(OpCodes)] - fillRgnStart2[$$ArrayIndex(OpCodes)]) >> 3;
							Rect;				/* region's enclosing rect */
							hex string [$$Word(fillRgnStart2[$$ArrayIndex(OpCodes)]) - 10];
	fillRgnEnd2:
						case AppleReserved0085:
							key integer = $0085;
	AppleReserved0085Start:integer = (AppleReserved0085End[$$ArrayIndex(OpCodes)] - AppleReserved0085Start[$$ArrayIndex(OpCodes)]) >> 3;
							Rect;				/* region's enclosing rect */
							hex string [$$Word(AppleReserved0085Start[$$ArrayIndex(OpCodes)]) - 10];
	AppleReserved0085End:
						case AppleReserved0086:
							key integer = $0086;
	AppleReserved0086Start:	integer = (AppleReserved0086End[$$ArrayIndex(OpCodes)] - AppleReserved0086Start[$$ArrayIndex(OpCodes)]) >> 3;
							Rect;				/* region's enclosing rect */
							hex string [$$Word(AppleReserved0086Start[$$ArrayIndex(OpCodes)]) - 10];
	AppleReserved0086End:
						case AppleReserved0087:
							key integer = $0087;
	AppleReserved0087Start:	integer = (AppleReserved0087End[$$ArrayIndex(OpCodes)] - AppleReserved0087Start[$$ArrayIndex(OpCodes)]) >> 3;
							Rect;				/* region's enclosing rect */
							hex string [$$Word(AppleReserved0087Start[$$ArrayIndex(OpCodes)]) - 10];
	AppleReserved0087End:
						case frameSameRgn:
							key integer = $0088;

						case paintSameRgn:
							key integer = $0089;

						case eraseSameRgn:
							key integer = $008A;

						case invertSameRgn:
							key integer = $008B;

						case fillSameRgn:
							key integer = $008C;

						case AppleReserved008D:
							key integer = $008D;

						case AppleReserved008E:
							key integer = $008E;

						case AppleReserved008F:
							key integer = $008F;

						case BitsRect:
							key integer = $0090;
							integer;		/* originSCB */
							integer;		/* B/W vs Color */
	BitsRectpMapRowBytes:	Integer;		/*width of pixel image	*/
	BitsRectBounds2:		rect;													/* Bitmap bounds		*/
							Rect;						/* srcRect */
							Rect;						/* destRect */
							integer		srcCopy, srcOr, srcXor, srcBic,	/* mode */
										notSrcCopy, notSrcOr, notSrcXor,
										notSrcBic, patCopy, patOr, patXor,
										patBic, notPatCopy, notPatOr, notPatBic,
										blend = 32, addPin, addOver, subPin,
										adMax = 37, subOver, adMin;
	BitsRectBits:			hex string [$$BitField(BitsRectpMapRowBytes[$$ArrayIndex(OpCodes)],0,13) *
										($$BitField(BitsRectBounds2[$$ArrayIndex(OpCodes)],32,16)
										- $$BitField(BitsRectBounds2[$$ArrayIndex(OpCodes)],0,16))];
						
						
						case BitsRgn:
							key integer = $0091;
							integer;		/* originSCB */
							integer;		/* B/W vs Color */
	BitsRgnpMapRowBytes:	integer;		/* width of pixel image */
	BitsRgnBounds2:			rect;			/* bounds rect */
							rect;			/* src rect */
							rect;			/* destrect */
							integer		srcCopy, srcOr, srcXor, srcBic,	/* mode */
										notSrcCopy, notSrcOr, notSrcXor,
										notSrcBic, patCopy, patOr, patXor,
										patBic, notPatCopy, notPatOr, notPatBic;
			BitsRectStart:	integer = (BitsRectEnd[$$ArrayIndex(OpCodes)] - BitsRectStart[$$ArrayIndex(OpCodes)]);
							hex string[$$Word(BitsRectStart[$$ArrayIndex(OpCodes)])];
			BitsRectEnd:
		
	BitsRgnStart2:			integer = (BitsRgnEnd2[$$ArrayIndex(OpCodes)] - BitsRgnStart2[$$ArrayIndex(OpCodes)]) >> 3;
							Rect;				/* region's enclosing rect */
							hex string [$$Word(BitsRgnStart2[$$ArrayIndex(OpCodes)]) - 10];
	BitsRgnEnd2:			hex string [$$PackedSize(BitsRgnEnd2[$$ArrayIndex(OpCodes)],
										$$BitField(BitsRgnpMapRowBytes[$$ArrayIndex(OpCodes)],0,13),
										($$BitField(BitsRgnBounds2[$$ArrayIndex(OpCodes)],32,16)
										- $$BitField(BitsRgnBounds2[$$ArrayIndex(OpCodes)],0,16)))];

						
						case LongComment:
							key integer = $00A1;
							integer;							/* comment kind */
	longCommentStart2:		integer = (longCommentEnd2[$$ArrayIndex(OpCodes)] - longCommentStart2[$$ArrayIndex(OpCodes)] - 16) >> 3;
							hex string [$$Word(longCommentStart2[$$ArrayIndex(OpCodes)])];
	longCommentEnd2:
						
				};
		};
};

/* ---------------------------------------------------------------------------- */
/*																*/
/*                               S t r i n g s							*/
/*																*/
/* -----------------------------------------------------------------------------*/


/* Strings for the menus */

resource rPString (AppleMenuID)  { "@" };
resource rPString (FileMenuID)   { "  File  " };
resource rPString (EditMenuID)   { "  Edit  " };
resource rPString (HelpMenuID)   { "  Help  " };

resource rPString (DividingLineID)   { "-" };
resource rPString (AboutItemID)  { "About the Installer..." };
resource rPString (CloseWItemID) { "Close" };
resource rPString (EraseDiskItemID) { "Erase Disk..." };
resource rPString (QuitItemID)   { "Quit" };
resource rPString (UndoItemID)   { "Undo" };
resource rPString (CutItemID)    { "Cut" };
resource rPString (CopyItemID)   { "Copy" };
resource rPString (PasteItemID)  { "Paste" };
resource rPString (ClearItemID)  { "Clear" };
resource rPString (ShortcutsItemID)  { "Keyboard Shortcuts" };
resource rPString (HelpItemID)  { "Installer Help" };

#if defined SystemSoftware

/* Menu strings for the Easy Update dialog */

resource rPString (CreatingItemID)  { "Creating a New System Disk" };
resource rPString (UpdatingItemID)  { "Updating an Existing System Disk" };
resource rPString (HardDiskItemID)  { "Hard Drive Initialization" };

/* Strings for the Easy Update dialog */

resource rPString (VolumeCtl)    { "Change Disk" };
resource rPString (StandardCtl)  { "Easy Update" };
resource rPstring (CustomCtl)	   { "Customize" };
resource rTextForLETextBox2 (EasyTextCtl) {
       "Click ÒEasy UpdateÓ to install Apple IIGS System Software version 6.0.1 on the disk Ò*0Ó."
       "\$0D"
       "\$0D"
       "Click ÒChange DiskÓ if ÒEasy UpdateÓ is disabled.  ÒEasy UpdateÓ canÕt"
       " modify the current startup disk, the Installer disks, or non-ProDOS disks."
};
resource rTextForLETextBox2 (EasyTextVsCtl) { "v2.1" };

#endif


/* Strings for the Customized Installation dialog */

resource rPString (InstallCtl)   { "Install" };
resource rPString (RemoveCtl)    { "Remove" };
resource rPString (NewFolderCtl) { "New Folder..." };
resource rPString (DiskCtl)      { "Disk" };
resource rPString (OpenCtl)      { "Open" };
resource rPString (Standard2Ctl) { "Easy Update" };

resource rTextForLETextBox2 (StatText1Ctl) { " Application Folder Selection " };
resource rTextForLETextBox2 (StatText2Ctl) { " Update Selection " };

/* Strings shared by both dialogs */

resource rPString (HelpCtl)      { "Help" };
resource rPString (QuitCtl)      { "Quit" };
resource rPString (EjectCtl)     { "Eject" };

/* Miscellaneous strings */

resource rPString (PopUpCtl)	   { "" };

/* ---------------------------------------------------------------------------- */
/*                        S t a r t S t o p R e c o r d					*/
/*																*/
/*   Used by the ToolLocator for loading, starting up, and shutting down tools. */
/*      (Minimum tool versions are those found on system.disk 6.0)			*/
/* ---------------------------------------------------------------------------- */

resource rToolStartup (1) {

	0x0080,					/* videoMode	*/
	   {	0x0003,0x0302;				/* Misc. Tools					*/
		0x0004,0x0307;				/* Quickdraw					*/
		0x0005,0x0304;				/* Desk Manager				*/
		0x0006,0x0300;				/* Event Manager				*/
		0x000B,0x0300;				/* Integer Math				*/
		0x000E,0x0303;				/* Window Manager				*/
		0x000F,0x0303;				/* Menu Manager				*/
		0x0010,0x0303;				/* Control Manager				*/
		0x0012,0x0304;				/* QuickDraw Aux				*/
		0x0014,0x0303;				/* Line Edit					*/
		0x0015,0x0304;				/* Dialog Manager				*/
		0x0016,0x0301;				/* Scrap Manager (to support NDAs)	*/
		0x001B,0x0303;				/* Font Manager				*/
		0x001C,0x0303;				/* List Manager				*/
		0x001E,0x0102; };			/* Resource Manager 			*/
};

/* ---------------------------------------------------------------------------- */
/*                         M e n u B a r T e m p l a t e					*/
/*																*/
/*                          Defines the system menu bar.					*/
/* ---------------------------------------------------------------------------- */

resource rMenuBar (1,preload) {
	{ AppleMenuID,FileMenuID,EditMenuID,HelpMenuID; };
};

resource rMenu (AppleMenuID,preload) {
	AppleMenuID,0b1010000000001000,AppleMenuID,
		{ AboutItemID,DividingLineID; };
};

resource rMenu (FileMenuID,preload) {
	FileMenuID,0b1010000000001000,FileMenuID,
		{ CloseWItemID;EraseDiskItemID;DividingLineID;QuitItemID; };
};

resource rMenu (EditMenuID,preload) {
	EditMenuID,0b1010000010001000,EditMenuID, {
		UndoItemID,
		DividingLineID,
		CutItemID,
		CopyItemID,
		PasteItemID,
		DividingLineID,
		ClearItemID; };
};

resource rMenu (HelpMenuID,preload) {
	HelpMenuID,0b1010000000001000,HelpMenuID,
	   { HelpItemID;
#if defined SystemSoftware
		CreatingItemID;
		UpdatingItemID;
		HardDiskItemID;
#endif
		ShortcutsItemID;
					 };
};

resource rMenuItem (DividingLineID,preload)
	{DividingLineID,"","",
		fTitleRefIsResource+fMenuDisabled,
		DividingLineID;};

resource rMenuItem (AboutItemID,preload)
	{AboutItemID,"","",
		fTitleRefIsResource,
		AboutItemID;};

resource rMenuItem (CloseWItemID,preload)
	{CloseWItemID,"W","w",
		fTitleRefIsResource+fMenuDisabled,
		CloseWItemID;};

resource rMenuItem (EraseDiskItemID,preload)
	{EraseDiskItemID,"","",
		fTitleRefIsResource+fMenuDisabled,
		EraseDiskItemID;};

resource rMenuItem (QuitItemID,preload)
	{QuitItemID,"Q","q",
		fTitleRefIsResource,
		QuitItemID;};

resource rMenuItem (UndoItemID,preload)
	{UndoItemID,"Z","z",
		fTitleRefIsResource,
		UndoItemID;};

resource rMenuItem (CutItemID,preload)
	{CutItemID,"X","x",
		fTitleRefIsResource,
		CutItemID;};

resource rMenuItem (CopyItemID,preload)
	{CopyItemID,"C","c",
		fTitleRefIsResource,
		CopyItemID;};

resource rMenuItem (PasteItemID,preload)
	{PasteItemID,"V","v",
		fTitleRefIsResource,
		PasteItemID;};

resource rMenuItem (ClearItemID,preload)
	{ClearItemID,"","",
		fTitleRefIsResource,
		ClearItemID;};

resource rMenuItem (ShortcutsItemID,preload)
	{ShortcutsItemID,"","",
		fTitleRefIsResource,
		ShortcutsItemID;};

resource rMenuItem (HelpItemID,preload)
	{HelpItemID,"?","/",
		fTitleRefIsResource,
		HelpItemID;};

#if defined SystemSoftware

resource rMenuItem (CreatingItemID,preload)
	{CreatingItemID,"","",
		fTitleRefIsResource,
		CreatingItemID;};

resource rMenuItem (UpdatingItemID,preload)
	{UpdatingItemID,"","",
		fTitleRefIsResource,
		UpdatingItemID;};

resource rMenuItem (HardDiskItemID,preload)
	{HardDiskItemID,"","",
		fTitleRefIsResource,
		HardDiskItemID;};

#endif

/* ---------------------------------------------------------------------------- */
/*																*/
/*      C u s t o m i z e d   I n s t a l l a t i o n   D i a l o g   B o x     */
/*																*/
/*																*/
/*             Includes window definition complete with all controls            */
/* ---------------------------------------------------------------------------- */

resource rWindParam1 (1) {
	0b1000000010101000,			/* p1FrameBits (fTitle+fMove+fVis+fCtrlTie) */
	0x00000000,				/* p1Title */
	0x00000000,				/* p1RefCon */
	{ 0x0000,0x0000,0x0000,0x0000 }, /* p1Zoom */
	0x07ff0001,				/* p1Color */
	{ 0x0000,0x0000 },			/* p1YOrigin,p1XOrigin */
	{ 0x0000,0x0000 },			/* p1DataH,p1DataW */
	{ 0x0000,0x0000 },			/* p1MaxH,p1MaxW */
	{ 0x0000,0x0000 },			/* p1ScrollVer,p1ScrollHor */
	{ 0x0000,0x0000 },			/* p1PageVer,p1PageHor */
	0x00000000,				/* p1InforRefCon */
	0x0000,					/* p1InfoHeight */
	{ Top,Left,Bottom+20,Right },	/* p1Position */
	inFront,					/* p1Plane */
	0x00000001,				/* p1ControlList */
	0b0000100000001001,			/* p1Verb - everything is in resources */
};							/*          except title.		    */


resource rControlList (1) {
	{ 
	  SelectListCtl;
	  ScriptListCtl;
	  InstallCtl;
	  RemoveCtl;
	  HelpCtl;
	  QuitCtl;
	  DiskCtl;
	  OpenCtl;
	  EjectCtl;
	  NewFolderCtl;
	  Standard2Ctl;
	  StatText1Ctl;
	  StatText2Ctl;
	  PictureCtl;
	  PopUpCtl;     };
};


resource rControlTemplate (InstallCtl) {
	InstallCtl-0x0300,			/* Application defined ID */
	{ Height-113,				/* Control's bounding rectangle */
	  ButtonLeft,
	  Height-101,
	  ButtonLeft+ButtonWidth },
	SimpleButtonControl {{
	  0x0000,					/* flags */
	  0b0011000000000010,		/* more flags: wantKEvents */
	  0x00000000,				/* refcon */
	  InstallCtl,				/* Title Ref */
	  0x00000000,				/* color table ref */
	  { "I","i",0x0100,0x0100 },	/* keyEquiv */
     }};
};

resource rControlTemplate (RemoveCtl) {
	RemoveCtl-0x0300,			/* Application defined ID */
	{ Height-90,				/* Control's bounding rectangle */
	  ButtonLeft,
	  Height-78,
	  ButtonLeft+ButtonWidth },
	SimpleButtonControl  {{
	  0x0000,					/* flags */
	  0b0011000000000010,		/* more flags: wantKeyEvents */
	  0x00000000,				/* refcon */
	  RemoveCtl,				/* Title Ref */
	  0x00000000,				/* color table ref */
	  { "R","r",0x0100,0x0100 },	/* keyEquiv */
	}};
};

resource rControlTemplate (HelpCtl) {
	HelpCtl-0x0300,			/* Application defined ID */
	{ Height-67,				/* Control's bounding rectangle */
	  ButtonLeft,
	  Height-55,
	  ButtonLeft+ButtonWidth },
	SimpleButtonControl {{
	  0x0000,					/* flags */
	  0b0011000000000010,		/* more flags: wantKeyEvents */
	  0x00000000,				/* refcon */
	  HelpCtl,				/* Title Ref */
	  0x00000000,				/* color table ref */
	  { "?","/",0x0100,0x0100 },	/* keyEquiv */
	}};
};

resource rControlTemplate (QuitCtl) {
	QuitCtl-0x0300,			/* Application defined ID */
	{ Height-50,				/* Control's bounding rectangle */
	  ButtonLeft,
	  Height-38,
	  ButtonLeft+ButtonWidth },
	SimpleButtonControl {{
	  0x0000,					/* flags */
	  0b0001000000000010,		/* more flags (key events go thru menu item) */
	  0x00000000,				/* refcon */
	  QuitCtl,					/* Title Ref */
	  0x00000000,				/* color table ref */
	  { "","",0x0000,0x0000 },	/* keyEquiv */
	}};
};

resource rControlTemplate (DiskCtl) {
	DiskCtl-0x0300,			/* Application defined ID */
	{ Height-32,				/* Control's bounding rectangle */
	  AppWindowLeft,
	  Height-20,
	  AppWindowLeft+ButtonWidth2 },
	SimpleButtonControl {{
	  0x0000,					/* flags */
	  0b0011000000000010,		/* more flags: wantKeyEvents */
	  0x00000000,				/* refcon */
	  DiskCtl,				/* Title Ref */
	  0x00000000,				/* color table ref */
	  { "\t","",0x0100,0x0100 },	/* keyEquiv: apple-tab */
	}};
};

resource rControlTemplate (OpenCtl) {
	OpenCtl-0x0300,			/* Application defined ID */
	{ Height-32,				/* Control's bounding rectangle */
	  Width-5-RightMargin-ButtonWidth2,
	  Height-20,
	  Width-5-RightMargin },
	SimpleButtonControl {{
	  0x0000,					/* flags */
	  0b0011000000000010,		/* more flags: wantKeyEvents */
	  0x00000000,				/* refcon */
	  OpenCtl,				/* Title Ref */
	  0x00000000,				/* color table ref */
	  { "O","o",0x0100,0x0100 },	/* keyEquiv */
	}};
};

resource rControlTemplate (EjectCtl) {
	EjectCtl-0x0300,			/* Application defined ID */
	{ Height-16,				/* Control's bounding rectangle */
	  AppWindowLeft,
	  Height-4,
	  AppWindowLeft+ButtonWidth2 },
	SimpleButtonControl {{
	  0x0000,					/* flags */
	  0b0011000000000010,		/* more flags: wantKeyEvents */
	  0x00000000,				/* refcon */
	  EjectCtl,				/* Title Ref */
	  0x00000000,				/* color table ref */
	  { "E","e",0x0100,0x0100 },	/* keyEquiv */
	}};
};

resource rControlTemplate (NewFolderCtl) {
	NewFolderCtl-0x0300,		/* Application defined ID */
	{ Height-16,				/* Control's bounding rectangle */
	  Width-5-RightMargin-ButtonWidth2,
	  Height-4,
	  Width-5-RightMargin },
	SimpleButtonControl {{
	  0x0000,					/* flags */
	  0b0011000000000010,		/* more flags: wantKeyEvents */
	  0x00000000,				/* refcon */
	  NewFolderCtl,			/* title ref */
	  0x00000000,				/* color table ref */
	  { "N","n",0x0100,0x0100 },	/* keyEquiv */
	}};
};

resource rControlTemplate (StatText1Ctl) {
	StatText1Ctl-0x0300,		/* Application defined ID */
	{ Height-43,				/* Control's bounding rectangle */
	  Width-239,
	  Height-34,
	  Width-23 },
	StatTextControl {{
       $0004,					// flag: blastText
	  0b0001000000000010,		/* more flags */
	  0x00000000,				/* refcon */
	  StatText1Ctl,			/* textRef */
	  $0000,					// textLength
	  $0000					// just
	}};
};

resource rControlTemplate (StatText2Ctl) {
	StatText2Ctl-0x0300,		/* Application defined ID */
	{ Height-43,				/* Control's bounding rectangle */
	  68,
	  Height-34,
	  199 },
	StatTextControl {{
       $0004,					// flag: blastText
	  0b0001000000000010,		/* more flags */
	  0x00000000,				/* refcon */
	  StatText2Ctl,			/* textRef */
	  $0000,					// textLength
	  $0000					// just
	}};
};

resource rControlTemplate (PictureCtl) {
	PictureCtl-0x0300,			/* Application defined ID */
	{ Top,Left,Bottom,Right },	/* control's bounding rectangle */
	pictureControl {{
	  0b1111111100000000,		/* flags */
	  0b0001000000000010,		/* more flags */
	  0x00000000,				/* refcon */
	  PictureCtl,				/* picture ref */
	}};
};

resource rControlTemplate (ScriptListCtl) {
	ScriptListCtl-0x0300,		/* Application defined ID */
	{ Height-116,5,Height-44,241 }, /* Control's bounding rectangle */
	ListControl {{
	  0x0000,					/* flags           */
	  0b0001010000000000+fCtlCanBeTarget+fCtlWantEvents,		/* moreFlags       */
	  0x00000000,				/* refCon          */
	  0x0000,					/* listSize        */
	  0x0007, 				/* listView        */
	  0b0000000000000000,		/* listType        */
	  0x0001,					/* listStart       */
	  0x00000000,				/* listDraw        */
	  0x000A,					/* listMemHeight   */
	  0x0006,					/* listMemSize     */
	  0x00000000,				/* listRef         */
	  0x00000000,				/* colorTableRef   */
	}};
};

resource rControlTemplate (SelectListCtl) {
	SelectListCtl-0x0300,		/* Application defined ID */
	{ Height-116,				/* Control's bounding rectangle */
	  AppWindowLeft,
	  Height-44,
	  Width-29 },
	ListControl {{
	  0x0000,					/* flags           */
	  0b0001010000000000+fCtlCanBeTarget+fCtlWantEvents,		/* moreFlags       */
	  0x00000000,				/* refCon          */
	  0x0000,					/* listSize        */
	  0x0007, 				/* listView        */
	  0b0000000000000010,		/* listType        */
	  0x0001,					/* listStart       */
	  0x00000000,				/* listDraw        */
	  0x000A,					/* listMemHeight   */
	  0x0005,					/* listMemSize     */
	  0x00000000,				/* listRef         */
	  0x00000000,				/* colorTableRef   */
	}};
};

resource rPicture (PictureCtl) {
	Mode640,					/* SCB for picture */
	{ Top,Left,Bottom,Right },	/* Bounds of picture */
		{					/* OpCode array */
		Clip {{0xD000,0xD000,0x3FFF,0x3FFF},""},

		/* The double lines for the left list window */

		Line {{Height-40,5},{Height-40,263}},
		Line {{Height-36,5},{Height-36,263}},

		/* The double lines for the right list window */

		Line {{Height-40,AppWindowLeft},{Height-40,Width-7}},
		Line {{Height-36,AppWindowLeft},{Height-36,Width-7}},

		/* The miscellaneous dotted lines */

		PnPat { "\0x0F\0x0F\0xF0\0xF0\0x0F\0x0F\0xF0\0xF0"
			   "\0x0F\0x0F\0xF0\0xF0\0x0F\0x0F\0xF0\0xF0" },
		ShortLine {{Height-96,ButtonLeft-2},0,ButtonWidth+4},
		ShortLine {{Height-73,ButtonLeft-2},0,ButtonWidth+4},
		Line {{Height-2,0},{Height-2,Width-1}},
		};
};

resource rControlTemplate (PopUpCtl) {
	PopUpCtl-0x0300,			/* Application defined ID */
	{ Height-131,				/* Control's bounding rectangle */
	  AppWindowLeft-90,				/* Change width definition for _CalcMenuSize	*/
	  Height-119,					/* in MainSub.asm also to alter PopUp size!	*/
	  Width-1 },
	PopUpControl {{
	  fDontDrawTitle,			/* flags           */
	  fCtlProcNotPtr+MenuRefIsResource+fDrawIconInResult+fDrawArrowIcon, /* moreFlags */
	  0x00000000, 				/* refCon          */
	  0x0000, 				/* titleWidth      */
	  PopUpCtl,				/* menuRef         */
	  0x0001, 				/* initialValue    */
	  0x00000000,				/* colorTableRef   */
	}};
};

resource rMenu (PopUpCtl) {
	PopUpCtl-0x0300,			/* menu ID	    */
	fTitleRefIsResource,		/* flags		    */
	PopUpCtl,					/* menuTitleRef    */
	{ 0x00000000 };			/* itemRefArray    */
};

resource rControlTemplate (Standard2Ctl) {
	Standard2Ctl-0x0300,		/* Application defined ID */
	{ Height-31,1,				/* Control's bounding rectangle */
	  Height-2,134 },
	IconButtonControl {{
	  0b0000000000000000,		/* flags */
	  0b0011000000100010,		/* more flags: wantKeyEvents */
	  0x00000000,				/* refcon */
	  Standard2Ctl,			/* icon ref */
	  Standard2Ctl,			/* title ref */
	  0x00000000,				/* color table ref */
       0b0000000000000000,		/* display mode */
	  { "\0x08","",0x0000,0x1000 },	/* keyEquiv: leftArrow, not ctrl-something */
	}};
};

resource rIcon (Standard2Ctl) {
	0x0000,					/* kind */
	11,						/* height */
	50,						/* width */

	$"FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFF0FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFF00FF000000000000000000000000000000000000000000"
	$"FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0"
	$"00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0"
	$"FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0"
	$"FFFF00FF000000000000000000000000000000000000000000"
	$"FFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFF0FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF",

	$"00000000000000000000000000000000000000000000000000"
	$"00000000000000000000000000000000000000000000000000"
	$"00000000F00000000000000000000000000000000000000000"
	$"000000FFF00000000000000000000000000000000000000000"
	$"0000FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	$"00FF000000000000000000000000000000000000000000000F"
	$"FF00000000000000000000000000000000000000000000000F"
	$"00FF000000000000000000000000000000000000000000000F"
	$"0000FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	$"000000FFF00000000000000000000000000000000000000000"
	$"00000000F00000000000000000000000000000000000000000"
};

resource rVersion (1) {
	{
		2,1,0,			// major, minor, and bug fix version levels
		release, 0x00	// release #
	},
	verUS,				// US version
	"Apple IIGS Installer",	/* the application's name */
	"Copyright Apple Computer, Inc., 1988-93\nAll Rights Reserved."; /* addl info string */
};


#if defined SystemSoftware

/* ---------------------------------------------------------------------------- */
/*																*/
/*              S t a n d a r d   U p d a t e   D i a l o g   B o x             */
/*																*/
/*																*/
/*             Includes window definition complete with all controls            */
/* ---------------------------------------------------------------------------- */

resource rWindParam1 (2) {
	0b1000000010101000,			/* p1FrameBits (fTitle+fMove+fVis+fCtrlTie) */
	0x00000000,				/* p1Title */
	0x00000000,				/* p1RefCon */
	{ 0x0000,0x0000,0x0000,0x0000 }, /* p1Zoom */
	0x07ff0001,				/* p1Color */
	{ 0x0000,0x0000 },			/* p1YOrigin,p1XOrigin */
	{ 0x0000,0x0000 },			/* p1DataH,p1DataW */
	{ 0x0000,0x0000 },			/* p1MaxH,p1MaxW */
	{ 0x0000,0x0000 },			/* p1ScrollVer,p1ScrollHor */
	{ 0x0000,0x0000 },			/* p1PageVer,p1PageHor */
	0x00000000,				/* p1InforRefCon */
	0x0000,					/* p1InfoHeight */
	{aTop,aLeft,aBottom,aRight},	/* p1Position */
	inFront,					/* p1Plane */
	0x00000002,				/* p1ControlList */
	0b0000100000001001,			/* p1Verb - everything is in resources */
};							/*          except title.		    */

resource rControlList (2) {
	{ 
	  Help2Ctl;
	  StandardCtl;
	  VolumeCtl;
	  Eject2Ctl;
	  CustomCtl;
	  Quit2Ctl;
	  EasyTextCtl;
	  EasyTextVsCtl;
	};
};

resource rControlTemplate (Eject2Ctl) {
	Eject2Ctl-0x0400,			/* Application defined ID */
	{ 59,StdButtonLeft,59+StdButtonHeight,StdButtonRight },	/* Control's bounding rect */
	SimpleButtonControl {{
	  0b0000000000000000,		/* flags */
	  0b0011000000000010,		/* more flags: wantKeyEvents */
	  0x00000000,				/* refcon */
	  EjectCtl,				/* Title Ref */
	  0x00000000,				/* color table ref */
	  { "E","e",0x0100,0x0100 },	/* keyEquiv */
     }};
};

resource rControlTemplate (Help2Ctl) {
	Help2Ctl-0x0400,			/* Application defined ID */
	{ 97,97,97+StdButtonHeight,253 },	/* Control's bounding rect */
	SimpleButtonControl  {{
	  0b0000000000000000,		/* flags */
	  0b0011000000000010,		/* more flags: wantKeyEvents */
	  0x00000000,				/* refcon */
	  HelpCtl,				/* Title Ref */
	  0x00000000,				/* color table ref */
	  { "?","/",0x0100,0x0100 },	/* keyEquiv */
	}};
};

resource rControlTemplate (Quit2Ctl) {
	Quit2Ctl-0x0400,			/* Application defined ID */
	{ 97,StdButtonLeft,97+StdButtonHeight,StdButtonRight },	/* Control's bounding rect */
	SimpleButtonControl {{
	  0b0000000000000000,		/* flags */
	  0b0001000000000010,		/* more flags (key events go thru menu item) */
	  0x00000000,				/* refcon */
	  QuitCtl,				/* Title Ref */
	  0x00000000,				/* color table ref */
	  { "","",0x0000,0x0000 },	/* keyEquiv */
	}};
};

/* NOTE:  CHANGE THESE COORDINATES, AND YOU MUST ALSO CHANGE COORDINATES IN
   DiskBtnCoords IN DATA.ASM */

resource rControlTemplate (VolumeCtl) {
	VolumeCtl-0x0400,			/* Application defined ID */
	{ 43,StdButtonLeft,43+StdButtonHeight,StdButtonRight },	/* Control's bounding rect */
	SimpleButtonControl {{
	  0b0000000000000000,		/* flags */
	  0b0011000000000010,		/* more flags: wantKeyEvents */
	  0x00000000,				/* refcon */
	  VolumeCtl,				/* Title Ref */
	  0x00000000,				/* color table ref */
	  { "\t","",0x0000,0x1000 },	/* keyEquiv: tab, not ctrl-I */
     }};
};

resource rControlTemplate (StandardCtl) {
	StandardCtl-0x0400,			/* Application defined ID */
	{ 7,StdButtonLeft,22,StdButtonRight },	/* Control's bounding rect */
	SimpleButtonControl  {{
	  0b0000000000000001,		/* flags: default button */
	  0b0011000000100010,		/* more flags: wantKeyEvents */
	  0x00000000,				/* refcon */
	  StandardCtl,				/* Title Ref */
	  0x00000000,				/* color table ref */
	  { "\$0D","\$0D",0x0000,0x0000 },	/* keyEquiv */
	}};
};

resource rControlTemplate (CustomCtl) {
	CustomCtl-0x0400,			/* Application defined ID */
	{ 81,StdButtonLeft,81+StdButtonHeight,StdButtonRight },	/* Control's bounding rect */
	SimpleButtonControl {{
	  0b0000000000000000,		/* flags: default button */
	  0b0011000000100010,		/* more flags: wantKeyEvents */
	  0x00000000,				/* refcon */
	  CustomCtl,				/* title ref */
	  0x00000000,				/* color table ref */
	  { "\0x15","",0x0000,0x1000 },	/* keyEquiv: rightArrow, not ctrl-something */
	}};
};

resource rControlTemplate (EasyTextCtl) {
       EasyTextCtl-0x0400,    // ID
       { 6,12,91,StdButtonLeft-15 },	// rect
       statTextControl {{
               $0003,         // flag: substitution string
               $1002,         // moreFlags
               $00000000,     // refCon
               EasyTextCtl,   // textRef
			$0000,		// textLength
			$0002		// fully justified
       }};
};

resource rControlTemplate (EasyTextVsCtl) {
       EasyTextVsCtl-0x0400,		// ID
       { 101,12,110,61 },			// rect
       statTextControl {{
               $0004,			// flag: blastText
               $1002,			// moreFlags
               $00000000,		// refCon
               EasyTextVsCtl,		// textRef
			$0000,			// textLength
			$0000			// just
       }};
};

#endif
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Installer/Main.asm b/IIGS.601.SRC/A.U.G/Installer/Main.asm
new file mode 100644
index 0000000..2061461
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Installer/Main.asm
@@ -0,0 +1 @@
+* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
*			                  *
*      A P P L E   I I g s   I N S T A L L E R   P R O G R A M   V  2 . 0     *
*                                                                             *
*                              by "Jay" Schaffer                              *
*                               and  Ron Lichty                               *
*			                  *
* This program permits adding, replacing, and/or deleting files on a volume   *
* based on instructions contained in a 'script' file.	                  *
*			                  *
*  Copyright Apple Computer, Inc. 1987-1991              All Rights Reserved  *
*			                  *
* * * * * * * * * *	* * * * * * * * * *	* * * * * * * * * *	* * * * * * * * * *

* Note:  Release Notes have been moved to Release Notes.Installer.

	Eject

	String AsIs
	Blanks Off
	Print Push
	Print Off
	include 'Installer.Equates'
	include 'Installer.Records'
	Include 'Version.Macros'
	Print Pop
	Seg 'Main'
	SegAttr Static
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
Installer	Proc
*
* Description:	Main entry point for the installer program.  Also contains
*	copyright notice and version information.
*
* Inputs:	none
*
* Outputs:	none
*
* External Refs:
	Import Allocate
	Import CantPrintMsg
	Import ContinueStr
	Import CursorArrowOn
	Import CursorWatchOn
	Import CustomProgram
	Import D_DeviceNum
	Import DeathMsg
	Import DeReference
	Import DialogFlag
	Import DispDisk2Update2
	Import EndCantPrintMsg
	Import EraseDiskState
	Import GotSCSICard
	Import GStrAsC1Inp
	Import HaltStr
	Import Help_GotoEasy  ; delete if no Easy Update (no RDiskNames resource)
	Import Help_LeftArrow
	Import InitPrefix
	Import InitVolume
	Import InstallRemoveMode
	Import loadDiskNames
	Import messageHandle
	Import MyID
	Import MyToolID
	Import NextDevice1
	Import Preferences
	Import PrefixPointer
	Import QuitFlag
	Import SavePrefix0
	Import ScriptListBuilt
	Import ScriptListFlag
	Import ScriptListSize
	Import TargetSetUpComplete
	Import StandardNo
	Import StandardProgram
	Import StandardSetupComplete
	Import SysPrefParms
	Import TargetIsOpen
	Import ToolStartup
	Import WindowSetupComplete
	Import WindowType
*
* Entry Points:
	Export AllDone
	Export AlmostAllDone
	Export cVersion
	Export MoreDone
	Export startStopRecRefRet
	Export SysDeath
	Export wTitleCustom
	Export wTitleStd
	Export wVersion
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

	brl Real_Start
;---------------------------------------------------------------
	dc.b '(c) Copyright Apple Computer, Inc. 1987-1993'

wTitleStd	dc.b wTitleStdEnd-*-1
	dc.b ' Apple IIGS Installer - Easy Update ' ; (Leading and trailing spaces)
wTitleStdEnd

wTitleCustom	dc.b wTitleCustomEnd-*-1
	dc.b ' Apple IIGS Installer v2.1 - Customized Installation ' ; (Leading and trailing spaces)
wTitleCustomEnd

wVersion
	InstallerVersion	; Macro inserts current version here

cVersion	dc.b '1.00'	; Script compatibility version numbers
	dc.b '1.10'
	dc.b '2.00'
;---------------------------------------------------------------
 	Eject
Real_Start	phk	; Save the bank we're running from
		;   so we can set the B-reg later.
; Initialize variables as needed.
	phk
	plb	; Set our data bank register first

	sec	; Signify "Easy Update" dialog
	ror DialogFlag	;   is currently running.
	stz TargetSetUpComplete
	stz TargetIsOpen	; no target volume yet
	stz ScriptListSize	; Initialize the ScriptListSize value
	stz ScriptListFlag	;   and ScriptListFlag
	stz ScriptListBuilt
	stz QuitFlag
	stz InstallRemoveMode
	stz WindowType	; save current window type: 0 in bit 15 = Installer wdw
	ldx #EnableMItem
	stx EraseDiskState

; Startup tools as needed and initialize the device list.

	jsl ToolStartup	; Startup "everything"

	pha	; Unload 'StartUp' segment
	pha	; 3-words for results
	pha
	pea ToolStartup>>16
	pea |ToolStartup
	ldx #UnloadSeg
	jsl ToolLocator
	pla	; discard UserID
	pla	; discard loadFileNum
	pla	; discard loadSegNum

	plb	; Set our data bank register

	jsr InitPrefix	; Initialize the system prefix

	jsr InitVolume	; Initialize Volume_Parm table

;rdl redundant: set in InitVolume	lda #0001	; Initialize device number
;	sta D_DeviceNum

	jsr loadDiskNames	; load DiskName resources; if none, set StandardNo (goto Custom)

; Check StandardNo (no DiskName resource)
; if clear, Easy Update: put 'Hard Drive Init' menu only if SCSI exists

	lda StandardNo
	bne @ChkMsgCtr	; bra if Developer Version of Installer (no Easy Update)

	lda GotSCSICard	; existence of SCSI card tested in ToolStartup routine
	bne @ChkMsgCtr	; got SCSI card: full-featured Easy Update
	jsr noSCSI	; if no SCSI card: remove 'Hard Drive Init' menu item 

; Check with the message center to see if there is a message for us.  (Pass the
; message center an empty handle and it'll resize it to hold the message, if any.)

@ChkMsgCtr	lda #0000	; Size of block to create
	jsl Allocate

	stx MessageHandle
	sty MessageHandle+2
	bcs @Oops

	pea 0002	; action (Get)
	pea 0001	; type (File Info)
	phy	; messageHandle
	phx
	ldx #MessageCenter
	jsl ToolLocator
	bcc ExamineMessage
	cmp #mesNotFoundErr	; Specified message not found?
	beq NoMessage	; No message.

@Oops	brl AllDone
	
; We got a message.  If it isn't an "OPEN", we need to get further instructions
; from the user about how to proceed.

ExamineMessage	ldy MessageHandle+2
	ldx MessageHandle

	phy	; Push handle to dereference
	phx

	phy	; Push Handle to lock
	phx
	ldx #HLock	; Lock the handle
	jsl ToolLocator

	jsl Dereference	; Dereference the handle
	pla
	sta <ZPTemp
	pla
	sta <ZPTemp+2

	ldy #0006
	lda [<ZPTemp],y	; messageData: 0="Open", 1="Print"
	bne @0
	brl ToCustom	; If OPEN, GOTO Customized dialog
@0

; The user asked us to print the selected scripts.  We can't do that!  Respond
; with a dialog asking what to do...

	jsr CursorArrowOn	; Get an arrow cursor.

	pha	; Room for result
	pea StopAlert1>>16	; alertTemplatePtr
	pea |StopAlert1
	pea 0000	; filterProcPtr
	pea 0000
	ldx #StopAlert
	jsl ToolLocator

	jsr CursorWatchOn	; Get the watch cursor back before
		;   checking to see what was hit.

	pla	; ID of item hit
	cmp #0002	; "HALT" button ?
	beq AllDone
	bra ToCustom	; "CONTINUE" was hit.
	Eject

; We had no messages.  Dispose of the handle we passed to the message center
; and fall through to Standard Installation routines.

NoMessage	lda MessageHandle+2
	pha
	lda MessageHandle
	pha
	ldx #DisposeHandle
	jsl ToolLocator
	stz MessageHandle
	stz MessageHandle+2

; Check StandardNo (no DiskName resource): if set, go to Custom (3rd party developer feature)

	lda StandardNo
	bne @NoEasy2	; bra if Developer Version of Installer (no Easy Update)

; We know we're going to Easy Update

	jsr NextDevice1	; find a target volume to which we can Install (not dimmed)
	sec
	ror TargetSetUpComplete ; done setting up
	bra Standard	; Easy Update

; no Easy Update!
; remove ÔGo to Easy UpdateÕ from Keyboard Shortcuts Help dialog
@NoEasy2
	stz Help_GotoEasy	; delete (no Easy Update--no RDiskNames resource)
	stz Help_GotoEasy+2
	stz Help_LeftArrow
	stz Help_LeftArrow+2

ToCustom	sec
	ror TargetSetUpComplete ; going to Custom, for the first time
	bra Custom	; now put up the Customized Installation window

; No Messages.  DiskName resource exists.  Bring up the Standard Installation dialog.
;   Then switch between Standard and Custom as user chooses.

Standard	jsl StandardProgram
	bit QuitFlag
	bmi AllDone

; We had an OPEN message in the message center.  Bring up the Customized
; Installation dialog with the proper scripts hilited.

Custom	jsl CustomProgram
	bit QuitFlag
	bpl Standard

; Shut down everything and make a GS/OS QUIT call

AllDone	pea $0001	; startStopDesc - handle
	lda startStopRecRefRet+2 ; startStopRecRef
	pha
	lda startStopRecRefRet
	pha
	ldx #ShutDownTools
	jsl ToolLocator

; Restore the system preferences and the caller's original prefix, then quit

AlmostAllDone	lda Preferences
	sta SysPrefParms+2
	jsl GSOS
	dc.w Set_Sys_Pref
	dc.l SysPrefParms

	pei <PrefixHandle+2	; Lock the prefix's buffer
	pei <PrefixHandle
	ldx #HLock
	jsl ToolLocator

	pha	; long for GStrAsC1Inp to use for its result
	pha
	pei <PrefixHandle+2	; Dereference the prefix's handle
	pei <PrefixHandle
	jsl Dereference	; leave ptr on stack for GStrAsC1Inp to use
; Use GStrAsC1Inp to fix the pointer just dereferenced (& still on stack) to point to 
;   the Class 1 input string portion of the Class 1 output string (GStr).
	jsl GStrAsC1Inp
	pla
	sta PrefixPointer
	pla
	sta PrefixPointer+2

	jsl GSOS	; Restore the system prefix
	dc.w Set_Prefix
	dc.l SavePrefix0

MoreDone	lda MyID	; Dispose of any memory still allocated
	pha
	ldx #DisposeAll
	jsl ToolLocator

	lda MyToolID
	pha
	ldx #DisposeAll
	jsl ToolLocator

	lda MyID	; Shut down the last two tools
	and #$F0FF
	pha
	ldx #MMShutDown
	jsl ToolLocator

	ldx #TLShutDown
	jsl ToolLocator

	jsl GSOS	; The End!
	dc.w Quit
	dc.l QuitParams

; Use this entry point when we encounter a fatal error that might prevent the
; system from even recovering after a QUIT call.

SysDeath	pea DeathMsg>>16
	pea |DeathMsg
	ldx #SysFailMgr
	jsl ToolLocator
	Eject

; Template for the StopAlert

StopAlert1

@Height	equ 75
@Width	equ 340

	dc.w 100-@Height/2		; atBoundsRect - top
	dc.w 320-@Width/2		;              - left
	dc.w 100+@Height/2		;              - bottom
	dc.w 320+@Width/2		;              - right
	dc.w 0001		; atAlertID
	dc.b $80,$80,$80,$80	; atStage1...atStage4
	dc.l @Item1		; item1Ptr
	dc.l @Item2		; item2Ptr
	dc.l @Item3		; item3Ptr
	dc.l 00000000		; terminator

@item1	dc.w 0001		; itemID
	dc.w @Height-17		; itemRect - top
	dc.w @Width-110		;          - left
	dc.w @Height-5		;          - bottom
	dc.w @Width-13		;          - right
	dc.w ButtonItem		; itemType
	dc.l ContinueStr		; itemDescr (title string)
	dc.w 0000		; itemValue
	dc.w 0000		; itemFlag
	dc.l 00000000		; itemColor

@Item2	dc.w 0002		; itemID
	dc.w @Height-17		; itemRect - top
	dc.w 10		;          - left
	dc.w @Height-5		;          - bottom
	dc.w 110		;          - right
	dc.w ButtonItem		; itemType
	dc.l HaltStr		; itemDescr (title string)
	dc.w 0000		; itemValue
	dc.w 0000		; itemFlag
	dc.l 00000000		; itemColor

@Item3	dc.w 0003		; itemID
	dc.w 26		; itemRect - top
	dc.w 10		;          - left
	dc.w @Height-20		;          - bottom
	dc.w @Width-10		;          - right
	dc.w LongStatText2+itemDisable	; itemType
	dc.l CantPrintMsg		; itemDescr (title string)
	dc.w EndCantPrintMsg-CantPrintMsg	; itemValue
	dc.w 0000		; itemFlag
	dc.l 00000000		; itemColor
	
; Parameter table for the GS/OS QUIT call.

QuitParams	dc.w 0002	; pCount
	dc.l $00000000	; pathname
	dc.w $0000 ;<--- ¥¥¥¥ NOT restartable in memory ¥¥¥¥ <---
;;;	dc.w $4000	; Restartable in memory

; Handle to startStopRecRef

startStopRecRefRet	dc.l 1
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
noSCSI		; local
*
* Description:	remove ÔHard Disk InitializationÕ menu item & recalculate menu size
*
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
	pea HardDiskItemID
	ldx #DeleteMItem
	jsl ToolLocator

;         recalculate menu size

	pea 0	; let Menu Manager calculate width & height (0,0)
	pea 0
	pea HelpMenuID	; resize Help menu
	ldx #CalcMenuSize
	jsl ToolLocator
	rts
	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
StandardProgram	Proc
*
* Description:	The Standard Update dialog program loop.
*
	Export ConditionBtns
	Export Help2Sub
	Export StandardDrawProc
	Export TestTopWindow
*
* Description:	Draws the contents of the Easy Update dialog.
*
* Inputs:	none
*
* Outputs:	none
*
* External Refs:
	Import BeginStdControl
	Import BootVolTest
	Import CheckCharacter
	Import CheckHilite
	Import CheckVolume
	Import CurrentVol
	Import CursorArrowOn
	Import CursorWatchOn
	Import D_Cont_DevNum
	Import D_Cont_Parms
	Import D_DeviceNum
	Import D_Info_Parms
	Import DialogFlag
	Import DiskNamesTest
	Import EasyBtnActive
	Import EasyBtnDim
	Import Eject2Control
	Import Eject2CtlHdl
	Import EjectSub
	Import Error
	Import File_Sys_ID
	Import FlushEventQueue
	Import Help2CtlHdl
	Import HelpSub
	Import hLineHead
	Import hLineHeadEnd
	Import hLine1
	Import hLine1End
	Import hLine2
	Import hLine2End
	Import hLine3
	Import hLine3End
	Import hLine4
	Import hLine4End
	Import inMenu
	Import InstallerIcon
	Import InstallRemoveMode
	Import MyZP
	Import NextDevice1
	Import OKStr
	Import OneSimpleKeyFilter
	Import QuitFlag
	Import QuitSub
	Import ReBootDialog
	Import scanDevices
	Import SetPrefixCurrVol
	Import ScriptListBuilt
	Import StandardDialog
	Import StandardHdlTable
	Import StandardPort
	Import StandardSetupComplete
	Import StandardUpdateSub
	Import SystemIcon
	Import Task:TaskRecord
	Import VolumeCtlHdl
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

	phb

	stz StandardSetupComplete

	jsr SetPrefixCurrVol ; set prefix to CurrentVol

; Call the dynamic segment that does the one-time chores of creating the
; window with its controls.  Then, dump the segment.

	jsl StandardDialog	; Create the window w/ controls
	php	; Preserve cFlag
	pha	;   and error code
	bcc @0
	jsl Error	; Report errors
@0
	pha	; Unload 'Standard' segment
	pha	; 6-bytes for results
	pha
	pea StandardDialog>>16
	pea |StandardDialog
	ldx #UnloadSeg
	jsl ToolLocator
	pla	; discard UserID
	pla	; discard loadFileNum
	pla	; discard loadSegNum

	pla	; Restore error code
	plp	;   and cFlag
	plb	; Restore our data bank register
	bcc @1
	brl AllDone
@1

; Initialize variables, flags, D_Info parameters, and task record.

;	jsr DispDisk2Update2

	sec	; Signify "Standard Update" dialog
	ror DialogFlag	;   is currently running.

	lda QuitFlag	; Clear all but ReBoot bit.
	and #%0100000000000000
	sta QuitFlag

	jsl GSOS	; Initialize D_Info_Parms returned values
	dc.w D_Info
	dc.l D_Info_Parms

	jsr CheckCharacter	; Condition "Eject" button, "Erase" menu item

; condition ÔBegin Std UpdateÕ button & set var InstallRemoveModeÕs hi bit

	jsr ConditionBtns

		; Define wmTaskMask
	lda #tmInfo+\	;  Don't activate inactive window on click in info bar
	     tmInactive+\	;  Return "wInactMenu" when user selects inactive menu item
	     tmCReDraw+\	;  Redraw controls upon activate event
	     tmSpecial+\	;  Handle special menu events
	     tmContent+\	;  Activate inactive window upon click in content region
	     tmDragW+\	;  DragWindow called
	     tmSysClick+\	;  System click called
	     tmOpenNDA+\	;  OpenNDA called
	     tmMenuSel+\	;  MenuSelect called
	     tmFindW+\	;  FindWindow called
	     tmUpdate+\	;  Update events handled
	     tmMenuKey	;  MenuKey called
	sta Task.Mask
	lda #tmContentControls+\  ; let TaskMaster handle controls
	     tmControlKey	;  give controls key equivalents
	sta Task.Mask+2

; Finally, if there were no volumes previously on line, try finding one.  The
; user surely had to put the Install disk back in to get here from Customized
; Installation, if that's where he came from.

	lda InstallRemoveMode ; Are there any volumes on line
	and #bNoVols	; Isolate "no volumes on line" bit
	beq StandardLoop1

	jsr NextDevice1

	Eject
StandardLoop1
	jsl FlushEventQueue
	jsr CursorArrowOn

StandardLoop	lda #$0001	; Always check the QuitFlag
	bit QuitFlag	; Exit if SwitchDialogBit is set.
	bne AllDone1

	bpl @1	; Go on if QuitBit is clear.
	bvc AllDone1	; Exit if QuitBit set & ReBootBit clear
		; Else tell user he must reboot to quit.  If
	jsr ReBootDialog	;  subroutine returns, he cancelled.

@1	jsr scanDevices	; (if insert, returns carry set, pointer to 

	jsr TestTopWindow	; our window or a DA?

; Call TaskMaster to find out what is happening, if anything

	pha	; Space for result
	pea emDeskAcc+\	; Define EventMask TaskMaster will use
	    emActivate+\	;  to call the EventManager
	    emUpdate+\
	    emKeyDown+\
	    emMouseUp+\
	    emMouseDown+\
	    emAutoKey
	pea Task>>16
	pea |Task
	ldx #TaskMaster
	jsl ToolLocator
	pla	; Get the TaskCode
	beq StandardLoop	; Loop until something happens

; Something Happened!

	asl a	; Convert code to dispatch index
	tax
	jsr (TaskTable,x)	;   and dispatch the event
	bcc StandardLoop1

;       If the error is No Volumes on line, just ignore it and continue.

	cmp #$008A
	beq StandardLoop1

;       If the error is anything else, set the QuitFlag

	lda QuitFlag
	ora #$8000
	sta QuitFlag
AllDone1
; rdl: error flags not used by caller, so commented out
;	clc	; Indicate no errors
;	lda #0000
AllDone
;	php	; Preserve cFlag
;	pha	;   and error code

	stz DialogFlag	; Standard Update is done

	lda StandardPort+2	; Close its window
	pha
	lda StandardPort
	pha
	ldx #CloseWindow
	jsl ToolLocator

;	pla	; Restore error code
;	plp	;   and cFlag
	rtl	; Return to caller
	Eject

; TaskMaster Dispatch Table

TaskTable	dc.w Ignore	;00=null	\
	dc.w Ignore	;01=mouse down	 \
	dc.w Ignore	;02=mouse up	  \
	dc.w Ignore	;03=key down           \
	dc.w Ignore	;04=undefined	    \
	dc.w Ignore	;05=auto-key down	     \
	dc.w Ignore ;StandardDrawProc ;06=update event\
	dc.w Ignore	;07=undefined	       \   Event
	dc.w Ignore	;08=activate	        >  Manager
	dc.w Ignore	;09=switch	       /   Events
	dc.w Ignore	;0A=desk acc	      /
	dc.w Ignore	;0B=device driver	     /
	dc.w Ignore	;0C=application	    /
	dc.w Ignore	;0D=application	   /
	dc.w Ignore	;0E=application	  /
	dc.w Ignore	;0F=application	 /

	dc.w Ignore	;10=in desk	 \
	dc.w inMenu	;11=in MenuBar	  \
	dc.w Ignore	;12=in system window   \
	dc.w Ignore	;13=in content of window\
	dc.w Ignore	;14=in drag	     \
	dc.w Ignore	;15=in grow	      \
	dc.w Ignore	;16=in GoAway	       |
	dc.w Ignore	;17=in zoom	       |
	dc.w Ignore	;18=in info bar	       \ TaskMaster
	dc.w Ignore	;19=in special menu	item   / Events
	dc.w Ignore	;1A=in OpenNDA	       |
	dc.w Ignore	;1B=in frame	       |
	dc.w Ignore	;1C=in inactive menu item /
	dc.w Ignore	;1D=wClosedNDA	     /
	dc.w Ignore	;1E=wCalledSysEdit	    /
	dc.w Ignore	;1F=wTrackZoom	   /
	dc.w Ignore	;20=wHitFrame	  /
	dc.w inControl	;21=wInControl	 /

Ignore	rts	; 'Do nothing' subroutine
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
StandardDrawProc	; (External Entry Point)
;
;	Draws the Standard Update dialog.
;	(Parameter to NewWindow2.)
;
; Inputs:	none
;
; Outputs:	none
;
; External References:
	Import UpdateFlag
;
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

	lda >StandardSetupComplete
	bmi Begin
	lda #$8000
	sta >StandardSetUpComplete

; Save caller's registers and set them for us

Begin	phd	; Save caller's direct register
	phb	; Save caller's bank register

	phk	; Reset bank register...
	plb	;  ...to current bank

	lda MyZP	; Reset direct register...
	tcd	;  ...to Installer's zero page

	lda CurrentVol	; convert GS/OS input string
	xba
	sta CurrentVol	;  ...to pstring

; Draw the controls

	lda StandardPort+2
	pha
	lda StandardPort
	pha
	ldx #DrawControls
	jsl ToolLocator

	lda CurrentVol	; convert pstring back
	xba
	sta CurrentVol	;  ...to GS/OS input string

	lda UpdateFlag
	bne @UpdateInProgress ; bra if script currently being executed
	jsr NormalChangeDisk ; condition ÔChange DiskÕ button to normal state
	bra @DrawProcDone

@UpdateInProgress	jsr DimChangeDisk	; condition 'Change Disk' button to dimmed state

; Restore caller's registers and return

@DrawProcDone	plb	; Restore caller's bank register
	pld	; Restore caller's direct register
	rtl	; Return to caller
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
TestTopWindow	; (External Entry Point)
;
;	Has the top window changed between ours & a DA?.
;	Calls DoSysChange to change menus to match.
;
; Inputs:	none
;
; Outputs:	none
;
; External Refs:
	Import WindowType
;
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

	pha	; room for long result
	pha
	ldx #FrontWindow
	jsl ToolLocator
	plx	; front WdwPtr
	ply

	bne @TestContinue
	txa
	beq TestExit
@TestContinue

	pha	; room for word result
	phy	; front WdwPtr
	phx
	ldx #GetWKind
	jsl ToolLocator
	pla	; get window type

	cmp WindowType	; compare to previous window type
	beq TestExit

	sta WindowType	; save current window type
	jsr DoSysChange	; window type changed: change menus to match

TestExit	rts
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
DoSysChange	; (local)
;
;	The top window has changed between ours & a DA.
;	Change menus to match.
;
; Inputs:	accum: window type: bit 15 set if top window is a system window.
;
; Outputs:	none
;
; Externals:
	Import EraseDiskState
;
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

	tax
	bpl AppToFront	; bra if change was to bring app window to front

; else system window just became the front window
;    disable Help menu;
;    enable Edit menu
;    enable Close menu item
;    disable Erase Disk... menu item

	pea disableMenu
	pea HelpMenuID
	ldx #SetMenuFlag
	jsl ToolLocator
	
	pea enableMenu
	pea EditMenuID
	ldx #SetMenuFlag
	jsl ToolLocator

	pea CloseWItemID
	ldx #EnableMItem
	jsl ToolLocator
	
	pea EraseDiskItemID
	ldx #DisableMItem
	jsl ToolLocator

	bra updateMenuBar
	
; Installer window just became the front window
;    enable Help menu;
;    disable Edit menu
;    disable Close menu item
;    restore Erase Disk... menu item to last setting

AppToFront	pea enableMenu
	pea HelpMenuID
	ldx #SetMenuFlag
	jsl ToolLocator
	
	pea disableMenu
	pea EditMenuID
	ldx #SetMenuFlag
	jsl ToolLocator
	
	pea CloseWItemID
	ldx #DisableMItem
	jsl ToolLocator
	
	pea EraseDiskItemID
	ldx EraseDiskState	; set in DisableEraseDiskMenu / EnableEraseDiskMenu
	jsl ToolLocator

updateMenuBar	ldx #DrawMenuBar
	jsl ToolLocator

	rts
	
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
inControl	; (Local subroutine)
;
; Description:	inControl event handler...checks to see if we went down
;	in an active control and blinks it if we did.   
;
; Inputs:	none
;
; Outputs:	cFlag clear: no errors...A-reg zero.
;	cFlag set: error...A-reg contains error code.
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .



; MouseUp occurred in the same control we went down in.
; ControlID is in Task.Data4; ControlHandle is in Task.Data2.
; Dispatch the control request.

	ldy #0000	; Initial index
CompareLoop	lda StandardHdlTable,y
	iny
	iny
	cmp Task.Data2
	bne NextCtlPtr
	lda StandardHdlTable,y
	cmp Task.Data2+2
	beq FoundControl
NextCtlPtr	iny
	iny
	bra CompareLoop

; Dispatch the user	control request

FoundControl	dey	; Back the index up	to the beginning of
	dey	;   the handle.
	tya	; Move to A-reg
	lsr a	; Divide by two to form index
	pha	; Save on stack...

	jsr CursorWatchOn	; ...change to watch cursor...

	plx	;    ...pull index into X-reg...
	jsr (CtlDispTbl,x)	;       ...and dispatch the request.
inControlDone
;;;	jsr CursorArrowOn	; Restore arrow cursor

	rts
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

; The following subroutine dispatch table must be in the same order as the
; handle table (HandleTable) found in 'Data.Asm'.

CtlDispTbl
	dc.w VolumeSub
	dc.w StandardSub
	dc.w CustomSub
	dc.w Eject2Sub
	dc.w Help2Sub
	dc.w QuitSub
	dc.w Ignore	; EasyTextCtl
	dc.w Ignore	; EasyTextVsCtl
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
VolumeSub	; (Local subroutine)
;
; Description:	Advances to the next on-line volume and sets controls
;	appropriately.
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

	lda #SimpleButton	; hilite button to indicate button-down
	jsr VolumeControl

	jsr NextDevice1	; Advance to next device
	bcs NormalChangeDisk ; bra if did not advance, or no volumes at all

; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
ConditionBtns	
;
; Description:	condition ÔBegin Std UpdateÕ button & 
;	  set var InstallRemoveModeÕs hi bit.
;	(Easy Update counterpart to SetInstallRemove)
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

;       Each time we enter, we need to check the characteristics of the
;       current volume to determine whether "Begin Standard Update" should
;       active or inactive.

	jsr BootVolTest	; is target the Boot volume?
	beq DimInstall	; bra if target is Boot volume: prevent installation
	
	jsr DiskNamesTest	; is target one of the Installer disks (listed in rDiskNames)?
	beq DimInstall	; bra if target is an Installer disk: prevent installation

	lda D_Info_Parms+20	; Check device identification
	beq DimInstall	; ID = zero = DISK ][ (5.25) : prevent installation

; target is not boot volume or an Installer disk

	jsl CheckVolume	; check CurrentVol
	bmi DeactivateIt	; bra if write-protected: dim control
	bvc Continue	; bra if not write-protected AND not foreign format

; write-protected OR foreign format: dim control
DeactivateIt
	lda InstallRemoveMode
	ora #bWriteProtect	; set WriteProtect bit
	sta InstallRemoveMode

DimInstall	jsr EasyBtnDim	; Deactivate "Easy Update"
	bra ConditionExit

Continue	lda InstallRemoveMode
	and #bWriteProtect--$FFFF ; clear WriteProtect bit
	sta InstallRemoveMode

	jsr EasyBtnActive	; normal ÔEasy UpdateÕ

ConditionExit	rts

; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
NormalChangeDisk
;
; Description:	condition ÔChange DiskÕ button to its normal state. 
;
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

	lda #Active	; button normal (button no longer down)
	jsr VolumeControl
	rts

; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
DimChangeDisk
;
; Description:	condition ÔChange DiskÕ button to its normal state. 
;
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

	lda #Inactive	; button dimmed (during installation)
	jsr VolumeControl
	rts

VolumeControl	pha	; hilite/unhilite ÔChange DiskÕ
	lda VolumeCtlHdl+2
	pha
	lda VolumeCtlHdl
	pha
	ldx #HiliteControl
	jsl ToolLocator
	rts
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
StandardSub	Name	; (Local subroutine)
;
; Description:	Performs a "standard" installation.
;
	Import InstallControlOff
	Import InstallControlOn
;
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

	jsr EasyBtnDim	; dim Easy Update button
	jsr DimChangeDisk	; dim Change Disk button

	phb

	jsl StandardUpdateSub

	pha	; Unload 'StartUp' segment
	pha	; 3-words for results
	pha
	pea StandardUpdateSub>>16
	pea |StandardUpdateSub
	ldx #UnloadSeg
	jsl ToolLocator
	pla	; discard UserID
	pla	; discard loadFileNum
	pla	; discard loadSegNum

	plb
	jsr EasyBtnActive	; restore Easy Update button
	jsr NormalChangeDisk  ; restore Change Disk button

	rts
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
CustomSub	; (Local subroutine)
;
; Description:	Custom Installation requests merely sets the low bit of
;	the QuitFlag and return.
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

	lda QuitFlag	; Set the QuitFlag
	ora #%0000000000000001
	sta QuitFlag

	lda #0000
	rts
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
Eject2Sub	; (Local subroutine)
;
; Description:	Ejects the current disk and advances to the next disk.
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

	lda #SimpleButton
	jsr Eject2Control

	lda D_DeviceNum	; Get the device number
	sta D_Cont_DevNum	;  and put in parameters

	jsl GSOS
	dc.w D_Control
	dc.l D_Cont_Parms

	jsr NextDevice1	; Advance to next device
	bcs Eject2Exit

Eject2Exit	rts
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
Help2Sub
;
; Description:	Displays the Help screen for Standard Install.
;
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

	pha	; Space for result
	pha
	pea DialogTemplate>>16 ; dialogTemplatePtr
	pea |DialogTemplate
	ldx #GetNewModalDialog
	jsl ToolLocator	; Leave theDialogPtr on the stack

	jsr CursorArrowOn

	pha	; Room for result
	pea OneSimpleKeyFilter>>16 ; filterProcPtr
	pea |OneSimpleKeyFilter
	ldx #ModalDialog
	jsl ToolLocator
	pla	; Only one response possible

	ldx #CloseDialog	; Close the dialog
	jsl ToolLocator	;  (theDialogPtr still on stack)

	rts
	Eject
; The dialog template for the Standard Update help

dHeight	equ 174
dWidth	equ 524

dTop	equ 107-dHeight/2
dLeft	equ 320-dWidth/2
dBottom	equ 107+dHeight/2
dRight	equ 320+dWidth/2

DialogTemplate	dc.w dTop,dLeft,dBottom,dRight	; dtBoundsRect
	dc.w $FFFF		; dtVisible
	dc.l 00000000		; dtRefCon
	dc.l Item1		; item1Ptr
	dc.l ItemHead8
	dc.l Item2		; item2Ptr
	dc.l Item3		; item3Ptr
	dc.l Item4		; item4Ptr
	dc.l Item5		; Item5Ptr
	dc.l Item6		; Item6Ptr
	dc.l Item7
	dc.l 00000000		; terminator

Item1	dc.w 0001		; itemID
	dc.w dHeight-18,dWidth-80	; itemRect
	dc.w dHeight-7,dWidth-15
	dc.w ButtonItem		; itemType
	dc.l OKStr		; itemDescr
	dc.w 0000		; itemValue
	dc.w 0000		; itemFlag
	dc.l 00000000		; itemColor

ItemHead8	dc.w 0008		; itemID
	dc.w 5,50,17,dWidth-50	; itemRect
	dc.w LongStatText2+ItemDisable	; itemType
	dc.l hLineHead		; itemDescr
	dc.w hLineHeadEnd-hLineHead	; itemValue
	dc.w 0000		; itemFlag
	dc.l 00000000		; itemColor

Item2	dc.w 0002		; itemID
	dc.w 14,12,33,48		; itemRect
	dc.w IconItem+ItemDisable	; itemType
	dc.l @IconHandle		; Installer's (disk) icon
	dc.w 0000		; itemValue
	dc.w 0000		; itemFlag
	dc.l 00000000		; itemColor

@IconHandle	dc.l InstallerIcon	        ; Handle to InstallerIcon

Item3	dc.w 0003		; itemID
	dc.w 23,73,32,dWidth-10	; itemRect
	dc.w LongStatText+ItemDisable	; itemType
	dc.l hLine1		; text right of Installer icon
	dc.w hLine1End-hLine1	; itemValue
	dc.w 0000		; itemFlag
	dc.l 00000000		; itemColor

Item4	dc.w 0004		; itemID
	dc.w 39,10,60,dWidth-95	; itemRect
	dc.w LongStatText2+ItemDisable	; itemType
	dc.l hLine2		; text left of folder
	dc.w hLine2End-hLine2	; itemValue
	dc.w 0000		; itemFlag
	dc.l 00000000		; itemColor

Item5	dc.w 0005		; itemID
	dc.w 38,dWidth-66,53,dWidth-12	; itemRect
	dc.w IconItem+ItemDisable	; itemType
	dc.l @IconHandle		; picture of folder
	dc.w 0000		; itemValue
	dc.w 0000		; itemFlag
	dc.l 00000000		; itemColor

@IconHandle	dc.l SystemIcon	        ; Handle to SystemIcon

Item6	dc.w 0006		; itemID
	dc.w 55,dWidth-66,64,dWidth-12	; itemRect
	dc.w LongStatText2+ItemDisable	; itemType
	dc.l hLine3		; "System" under folder
	dc.w hLine3End-hLine3	; itemValue
	dc.w 0000		; itemFlag
	dc.l 00000000		; itemColor

Item7	dc.w 0007		; itemID
	dc.w dHeight-109,10,dHeight-6,dWidth-10	; itemRect
	dc.w LongStatText2+ItemDisable	; itemType
	dc.l hLine4		; paragraphs of text at bottom
	dc.w hLine4End-hLine4	; itemValue
	dc.w 0000		; itemFlag
	dc.l 00000000		; itemColor

	EndP {StandardProgram}
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
CustomProgram	ProcName
*
* Description:	The Customized Installation dialog program loop.
*
 Export CustomDrawProc
*
* Description:	The re-drawing routine for the Custom Installation
*	dialog.
*
* Inputs:	none
*
* Outputs:	none
*
* External Refs:
	Import AlertMsg
	Import AlertMsgNo
	Import Allocate
	Import CheckCharacter
	Import CheckVolume
	Import CurDirBottom
	Import CurDirRect
	Import CurVolBottom
	Import CurVolRect
	Import CursorArrowOn
	Import CursorWatchOn
	Import CustomDialog
	Import D_Info_Parms
	Import DialogFlag
	Import DialogPort
	Import DirSelReq
	Import DispDir2Update
	Import DispDisk2Update
	Import MakeNewList
	Import Error
	Import GetAccessParms #####
	Import HelpControl
	Import inControl
	Import inMenu
	Import InstallRemoveMode
	Import KeyDown
	Import AppFolderListHdl
	Import ScriptListSub
	Import MenuItemHdl
	Import MenuItemID
	Import NextDevice
	Import NextDevice1
	Import OldMsgNo
	Import QuitFlag
	Import ReBootDialog
	Import ScanDevices
	Import SetInstallRemove
	Import SetPrefix
	Import Task:TaskRecord
	Import TestTopWindow
	Import Volume_Parms
	Import WindowSetUpComplete
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

	phb	; Save our data bank register

	stz DialogFlag	; Customized Installation
	stz WindowSetUpComplete

	jsr SetPrefix	; set prefix to CurDirPtr (CurDir)

; Call the dynamic segment that does the one-time chores of creating the
; window with its controls.  Then, dump the segment.

	jsl CustomDialog	; Create the dialog & build the script list
	php	; Preserve cFlag
	pha	;   and error code

	pha	; Unload 'Custom' segment
	pha	; 6-bytes for results
	pha
	pea CustomDialog>>16
	pea |CustomDialog
	ldx #UnloadSeg
	jsl ToolLocator
	pla	; discard UserID
	pla	; discard loadFileNum
	pla	; discard loadSegNum

	pla	; Restore error code
	plp	;   and cFlag
	plb	; Set our data bank register
	bcc @1
	brl CustomExit
@1

; Initialize flags and TaskRecord

	stz <PopUpStringPtr
	stz <PopUpStringPtr+2
	stz AppFolderListHdl
	stz AppFolderListHdl+2

	lda QuitFlag	; Clear all but ReBoot bit.
	and #%0100000000000000
	sta QuitFlag

	stz DirSelReq

	stz MenuItemID

	jsl GSOS	; Initialize D_Info_Parms returned values
	dc.w D_Info
	dc.l D_Info_Parms

; Initialize "InstallRemoveMode".

	jsl GSOS
	dc.w Volume
	dc.l Volume_Parms

;       Check that it is "WriteAllowed"

	lda D_Info_Parms+8	; Check the characteristics
	and #WriteAllowed
	beq @NotWriteEnabled

;       Activate/deactivate INSTALL and/or REMOVE buttons based on
;       whether the volume is write-protected or write-enabled.

	jsl CheckVolume	; check CurrentVol
	bmi @NotWriteEnabled ; If write-protected, dim control

	jsl GSOS
	dc.w Get_File_Info
	dc.l GetAccessParms

	lda GetAccessParms+6
	and #%0000000000000010 ; Isolate write bit
	bne @WriteEnabled

;       The volume is NOT write-enabled!  Deactivate INSTALL and REMOVE
;       and notify the user that the disk is not writeable.

@NotWriteEnabled	lda InstallRemoveMode
	ora #bWriteProtect	; force WriteProtect flag to 1
	bra InitTaskMaster

;       The volume is write enabled!  Activate INSTALL and REMOVE.

@WriteEnabled	lda InstallRemoveMode
	and #bWriteProtect--$FFFF ; clear WriteProtect bit
InitTaskMaster	sta InstallRemoveMode

	lda #tmInfo+\	;  Don't activate inactive window on click in info bar
	     tmInactive+\	;  Return "wInactMenu" when user selects inactive menu item
	     tmCReDraw+\	;  Redraw controls upon activate event
	     tmSpecial+\	;  Handle special menu events
	     tmContent+\	;  Activate inactive window upon click in content region
	     tmDragW+\	;  DragWindow called
	     tmSysClick+\	;  System click called
	     tmOpenNDA+\	;  OpenNDA called
	     tmMenuSel+\	;  MenuSelect called
	     tmFindW+\	;  FindWindow called
	     tmUpdate+\	;  Update events handled
	     tmMenuKey	;  MenuKey called
	sta Task.Mask
	lda #tmContentControls  ; let TaskMaster handle controls
	sta Task.Mask+2

; Always check the characteristics of the initial device.

	jsr CheckCharacter	; (¥¥¥ Draws Eject button, enables Erase menu item ¥¥¥)

; Set up all the controls based on the currently selected script(s).

	jsr ScriptListSub	; Set up Update Selection window
		; (¥¥¥ Draws Open button ¥¥¥ )

; Always start with Alert Message #1, unless it's set to Alert Message #6

	lda AlertMsgNo
	cmp #AlertMsg6
	beq @noChange
	lda #AlertMsg1
	sta AlertMsgNo
	lda #$FFFF
	sta OldMsgNo
@noChange

	jsr AlertMsg	; (¥¥¥ Draws Alert message ¥¥¥)

	jsr CursorArrowOn

	lda #Active
	jsr HelpControl

; Finally, if there were no volumes previously on line, try finding one.  The
; user surely had to put the Install disk back in to get here.

	lda InstallRemoveMode ; Are there any volumes on line
	and #bNoVols ; Isolate "no volumes on line" bit
	beq MainLoop1

	jsr NextDevice1

	Eject
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
; Loop back to here if something happened

MainLoop1	stz <ZPTemp
	stz <ZPTemp+2

; If we've shut down desk accessories, notify the user what has happened.

	bit QuitFlag
	bvc MainLoop
	lda #AlertMsg5	; 'desk accessories are shut down'
	sta AlertMsgNo
	jsr AlertMsg

; Always check the flag bits of the QuitFlag first.  Here is the order:

;   bit  0: (Switch dialogs flag)
;           If set, clear the bit and go to the Standard Update dialog.
;           if clear, check bit 15.
;   bit 15: (Quit flag)
;           If set, check bit 14.
;           If clear, continue in the event loop.
;   bit 14: (ReBoot flag)
;           If set, force a re-boot.
;           If clear, all done.

MainLoop	lda #$0001	; Loop back to here if nothing happened
	bit QuitFlag	; Check SwitchDialogFlag (bit 0)
; If "Switch dialogs flag" is set, user has asked to go to the Standard Update dialog.
	bne AllDone	; bra to goto Standard Update

	bpl @1	; bra if "Quit flag" is clear: go on
	bvc AllDone	; bra if "Re-Boot flag" is not set: quit

; "Re-Boot flag" is set: ask user to reboot or cancel
	jsr ReBootDialog	; If we return, user cancelled quit.

; Check for disk insertions.  If a new volume has been added, look for scripts
; add them to the list if they're not duplicate (from re-inserting the same
; volume), and redraw the list.

@1	jsr scanDevices	; (if insert, returns carry set, pointer to 

	jsr TestTopWindow	; our window or a DA?

; Call TaskMaster to find out what is happening, if anything

	pha	; Space for result
	pea emDeskAcc+\	; Define EventMask TaskMaster will use
	    emActivate+\	;  to call the EventManager
	    emUpdate+\
	    emKeyDown+\
	    emMouseUp+\
	    emMouseDown+\
	    emAutoKey
	pea Task>>16
	pea |Task
	ldx #TaskMaster	; (¥¥¥ Does NOT draw controls 1st time ¥¥¥)
	jsl ToolLocator

	pla	; Get the TaskCode
	beq MainLoop	; Loop until something happens

; Something Happened!

	asl a	; Convert code to dispatch index
	tax
	jsr (TaskTable,x)	;   and dispatch the event
	bcc MainLoop1

;             If we got a "Volume Not Found" error and the user clicked on "Cancel",
;             we need to advance to the next device if that was the one we were
;             asking for.

	cmp #VolumeNotFound
	bne MainLoop1
	jsr CursorWatchOn
	jsr NextDevice	; Advance conditionally
	bcc @3
	beq MainLoop1	; If we didn't advance, don't continue
;;;	jsl Error
	brl MainLoop1
@3
;             Now update the display

	bit DirSelReq
	bmi DirDisplay

	jsr DispDisk2Update
	brl MainLoop1

DirDisplay	jsl MakeNewList
	jsr DispDir2Update
	brl MainLoop1

;       Clear the "Switch dialogs flag", close the window. 

AllDone	jsr CloseCustomWindow
	rtl	; Return to caller

CloseCustomWindow	lda DialogPort+2
	pha
	lda DialogPort
	pha
	ldx #CloseWindow
	jsl ToolLocator
CustomExit	rts
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

TaskTemp        ds.w 1              ; ¥¥¥¥¥ TESTING ONLY ¥¥¥¥¥

; TaskMaster Dispatch Table

TaskTable	dc.w Ignore	;00=null	\
	dc.w Ignore	;01=mouse down	 \
	dc.w Ignore	;02=mouse up	  \
	dc.w KeyDown	;03=key down           \
	dc.w Ignore	;04=undefined	    \
	dc.w Ignore	;05=auto-key down	     \
	dc.w Ignore ;CustomDrawProc ;06=update event  \
	dc.w Ignore	;07=undefined	       \   Event
	dc.w Ignore	;08=activate	        >  Manager
	dc.w Ignore	;09=switch	       /   Events
	dc.w Ignore	;0A=desk acc	      /
	dc.w Ignore	;0B=device driver	     /
	dc.w Ignore	;0C=application	    /
	dc.w Ignore	;0D=application	   /
	dc.w Ignore	;0E=application	  /
	dc.w Ignore	;0F=application	 /

	dc.w Ignore	;10=in desk	 \
	dc.w inMenu	;11=in MenuBar	  \
	dc.w Ignore	;12=in system window   \
	dc.w Ignore	;13=in content of window\
	dc.w Ignore	;14=in drag	     \
	dc.w Ignore	;15=in grow	      \
	dc.w Ignore	;16=in GoAway	       |
	dc.w Ignore	;17=in zoom	       |
	dc.w Ignore	;18=in info bar	       \ TaskMaster
	dc.w Ignore	;19=in special menu	item   / Events
	dc.w Ignore	;1A=in OpenNDA	       |
	dc.w Ignore	;1B=in frame	       |
	dc.w Ignore	;1C=in inactive menu item /
	dc.w Ignore	;1D=wClosedNDA	     /
	dc.w Ignore	;1E=wCalledSysEdit	    /
	dc.w Ignore	;1F=wTrackZoom	   /
	dc.w Ignore	;20=wHitFrame	  /
	dc.w inControl	;21=wInControl	 /

Ignore	rts	; 'Do nothing' subroutine
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
CustomDrawProc	; (Local subroutine)
;
; Description:	Draws almost all of contents of the Customized Installation
;	dialog box and is called by the Window Manager in full
;	native mode with a jsl instruction from an unknown bank.
;
; Inputs:	none
;
; Outputs:	none
;
; External Refs:
	Import AlertMsg
	Import AlertMsgNo
	Import CursorArrowOn
	Import DialogPort
	Import Dir2Rect
	Import Dir2Update
	Import DirSelReq
	Import DispDir2Update
	Import Disk2Rect
	Import Disk2Update
	Import DrawNewList
	Import MyZP
	Import OldMsgNo
	Import UpdatePopUp
*
* Entry Points:
*	none
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

; Save caller's registers and set them for us

	phd	; Save caller's direct register
	phb	; Save caller's bank register

	phk	; Reset bank register...
	plb	;  ...to current bank

	lda MyZP	; Reset direct register...
	tcd	;  ...to Installer's zero page

	bit WindowSetupComplete
	bmi DrawTheControls

	jsr UpdatePopUp

	sec
	ror WindowSetupComplete

; Draw the controls

DrawTheControls	lda DialogPort+2
	pha
	lda DialogPort
	pha
	ldx #DrawControls
	jsl ToolLocator

; Draw the Update stuff.

	bit DirSelReq	; Are we displaying	directory or volume?
	bmi DispDir

	jsr DispDisk2Update
	bra DrawAlert
DispDir
	jsr DispDir2Update

; Redraw the alert message, if any

DrawAlert
	lda OldMsgNo
	sta AlertMsgNo
	stz OldMsgNo
	jsr AlertMsg

	jsr CursorArrowOn	; Re-init cursor just in case this
		;  called after "AskForVolume".

; Restore caller's registers and return

	plb	; Restore caller's bank register
	pld	; Restore caller's direct register
	rtl	; Return to caller
	EndP {CustomProgram}
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* *			* *
* *               E V E N T   H A N D L E R S               * *
* *			* *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
KeyDown	Proc
*
* Description:	Handles key-presses in Custom Install.  
*	Menus and controls handle most keypresses. 
*	Remaining key presses of interest:
*	open-apple-tab ÑÑ swaps textEdit boxes as ctlTarget
*	open-apple-DownArrow ÑÑ same as hitting the OPEN button
*	open-apple-UpArrow ÑÑ shift target directory up hierarchy to parent
*
*	NOTE: open-apple-"Q" is handled through the menuMgr since
*	      QUIT is also a menu item.
*
* Inputs:	none
*
* Outputs:	none
*
* External Refs:
	Import AdjustDir
	Import CheckHilite
	Import CloseDir
	Import CursorArrowOn
	Import DialogPort
	Import DirSelReq
	Import inControl
	Import MenuItemID
	Import OpenCtlHdl
	Import OpenSub
	Import PopOne
	Import Task:TaskRecord
	Import UpdatePopUp
*
* Entry Points:
*	none
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

	ldy Task.Message	; Get the keypress

; Is it the rightArrow key? (throw it away)

	cpy #RightArrowKey	; since we're using left arrow, don't let 
	beq KeyDownExitj	;  other arrow through to Target control

; Check for remaining key presses based on if AppleKey is down.

NextKey
	lda Task.Modifiers	; Only want to look	at AppleKey
	and #appleKey	; Is AppleKey down?
	bne GotAppleKey

; Apple key is not down

	cpy #Tab
	bne notTab

; is it TAB? (tab swaps list boxes as ctlTarget)
	bit DirSelReq	; Appl Folder Selection list 
	bpl KeyDownExitj	;   is only active when directory selection is required.

	pha	; ok:  swap textEdit boxes as ctlTarget
	pha
	ldx #MakeNextCtlTarget
	jsl ToolLocator
	pla
	pla	; donÕt care which control: there are only 2
KeyDownExitj	bra KeyDownExit
notTab

; Is it the Escape key? (shifts target directory up hierarchy to its parent directory)

	cpy #Escape
	beq FoundUpArrow	; same as apple-UpArrow

	bra ListKey	; else send key to controls: equivalent?

; Apple key is down
GotAppleKey
; is it apple-DownArrow? (opens the selected folder)
	cpy #DownArrowKey
	bne notDownArrow

	ldx OpenCtlHdl	; Check the control to see if it is active
	ldy OpenCtlHdl+2
	jsr CheckHilite
	beq KeyDownExit

	jsr OpenSub
	bra Done
notDownArrow

; is it apple-UpArrow? (shifts target directory up hierarchy to its parent directory)
	cpy #UpArrowKey
	bne notUpArrow

FoundUpArrow	lda MenuItemID	; can only go up if more than 1 item in popup
	cmp #2
	bcc KeyDownExit
	jsr PopOne	; Remove one name from CurDirectory
	jsr AdjustDir	; make new list in App Folder Selection window
	bra doPopUp
notUpArrow

; is it apple-Esc? (shifts target directory to root directory)
	cpy #Escape
	bne notAppleEsc

	lda MenuItemID	; can only go up if more than 1 item in popup
	cmp #2
	bcc KeyDownExit	; bra if less than 2
	lda #1	; back to root level
	jsr CloseDir	; Back prefix up to root & display new dir list
doPopUp	jsr UpdatePopUp	; update the popup itself
	bra KeyDownExit
notAppleEsc

; done with apple-x commands

; Send all remaining keys to the target control
ListKey
	pha	; space for result
	pea 0	; send to all control
	lda DialogPort+2	; Window to check
	pha
	lda DialogPort
	pha
	pea Task>>16
	pea |Task
	ldx #SendEventToCtl
	jsl ToolLocator
	pla	; was key accepted?

	bne inControl	; bra if key was a key equivalent of control

Done	jsr CursorArrowOn

KeyDownExit	lda #0000
	clc
	rts
	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
CheckHilite	Proc
*
* Description:	Accesses the control's record and check the ctlHilit
*	value to see if it is active or not.
*
* Inputs:	X & Y contain handle to the control record
*
* Outputs:	zFlag set: control is inactive (beq Inactive)
*	zFlag clear: contorl is active (bne Active)
*
* External Refs:
	Import Dereference
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

	phy
	phx
	jsl Dereference
	pla
	sta <ZPTemp
	pla
	sta <ZPTemp+2
	ldy #octlHilite
	lda [<ZPTemp],y
	and #$00FF
	cmp #$00FF
	rts
	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
inControl	Proc
*
* Description:	inControl event handler...checks to see if we went down
*	in an active control and blinks it if we did.   
*
* Inputs:	none
*
* Outputs:	none
*
* External Refs:
	Import CursorArrowOn
	Import CursorWatchOn
	Import DialogPort
	Import DiskSub
	Import EjectSub
	Import HandleTable
	Import HelpSub
	Import InstallSub
	Import ScriptListSub
	Import FolderListSub
	Import NewFolderSub
	Import PopUpSub
	Import OpenSub
	Import RemoveSub
	Import QuitSub
	Import Standard2Sub
	Import Task:TaskRecord
*
* Entry Points:
*	none
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

; MouseUp occurred in the same control we went down in.
; ControlID is in Task.Data4; ControlHandle is in Task.Data2.
; Dispatch the control request.

	ldy #0000	; Initial index
CompareLoop	lda HandleTable,y
	iny
	iny
	cmp Task.Data2
	bne NextCtlPtr
	lda HandleTable,y
	cmp Task.Data2+2
	beq FoundControl
NextCtlPtr	iny
	iny
	bra CompareLoop

; Dispatch the user	control request

FoundControl	dey	; Back the index up	to the beginning of
	dey	;   the handle.
	tya	; Move to A-reg
	lsr a	; Divide by two to form index
	pha	; Save on stack...

	jsr CursorWatchOn	; ...change to watch cursor...

	plx	;    ...pull index into X-reg...
	jsr (CtlDispTbl,x)	;       ...and dispatch the request.

	jsr CursorArrowOn	; Restore arrow cursor
Ignore	rts	; ('Do-nothing' subroutine)
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

; The following subroutine dispatch table must be in the same order as the
; handle table (HandleTable) found in 'Data.Asm'.

CtlDispTbl
	dc.w InstallSub	;	      	00
	dc.w RemoveSub	;	      	02
	dc.w HelpSub	;	      	04
	dc.w QuitSub	;	      	06
	dc.w DiskSub	;	      	08
	dc.w OpenSub	;	      	0A
	dc.w EjectSub	;	      	0C
	dc.w NewFolderSub	;	      	0E
	dc.w Ignore	; Hit in StatText1Ctl     	10
	dc.w Ignore	; Hit in StatText2Ctl     	12
	dc.w Ignore	; Hit in PictureCtl       	14
	dc.w ScriptListSub	; Hit in Script selection window	16
	dc.w FolderListSub	; Hit in Directory List selection wdw	18
	dc.w PopUpSub	;	      	1A
	dc.w Standard2Sub	;                         	1B
	dc.w Ignore	; Hit in List1 scroll bar 	1C
	dc.w Ignore	; Hit in List2 scroll bar 	1E

	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
InMenu	Proc
*
* Description:	inMenu event handler:
*	   'About Installer...'
*	   'Initialize Disk...'
*	   'Quit' 
*	   'Installer Help'
*	   'Creating a New System Disk'
*	   'Updating an Existing Disk'
*	   'Hard Disk Initialization'
*	   'Keyboard Shortcuts'
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
	Import AboutMsg
	Import CloseTarget
	Import CreatingSub
	Import CurrentVol
	Import Dev_Name
	Import DialogFlag
	Import DirSelReq
	Import EndAboutMsg
	Import Error
	Import HardDiskSub
	Import HelpSub
	Import Help2Sub
	Import MakeNewList
	Import NextSameDevice
	Import OneSimpleKeyFilter
	Import OKStr
	Import QuitSub
	Import ShortcutsSub
	Import Task:TaskRecord
	Import ThisMode
	Import UpdatingSub

*
* Entry Points:
*	none
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

	lda Task.Data	; ID of menu item
	cmp #EraseDiskItemID ; If it is our 'Erase Disk...'
	beq DoEraseDisk	;   put up dialog to erase disk
	cmp #ShortcutsItemID ; If it is our 'Keyboard Shortcuts'
	beq HelpKbdShortcuts ;   build a dialog
	cmp #HelpItemID	; If it is our 'Installer Help...'
	beq HelpDialog	;   do the same as is done for Help button
	cmp #CreatingItemID	; If it is 'Creating a New System Disk'
	beq CreatingDialog
	cmp #UpdatingItemID	; If it is 'Updating an Existing Disk'
	beq UpdatingDialog
	cmp #HardDiskItemID	; If it is 'Hard Disk Initialization'
	beq HardDiskDialog
	cmp #AboutItemID	; If it is our 'About Installer...'
	beq AboutInstaller	;   build a dialog

	cmp #QuitItemID	; If it is QUIT, then QUIT
	bne Unhilite	;   else, we're not interested

	jsr QuitSub
	bra UnHilite

; Put up Help dialog for Installer, based on which dialog we're in

HelpDialog	bit DialogFlag
	bmi @StandardDialog
	jsr HelpSub	; Custom Update
	bra UnHilite
@StandardDialog	jsr Help2Sub	; Easy Update (Standard Install)
	bra UnHilite

; Erase the target disk

DoEraseDisk	jsr CloseTarget	; close root directory (no open files allowed during erase)
	jsl GSOS
	dc.w EraseDisk
	dc.l Erase_Parms
	bcc CheckForNewName
	tax	; check for zero (user pressed Cancel)
	beq SkipDisplay

	jsl Error

CheckForNewName	jsr NextSameDevice	; check current device: update name, controls
	bcs SkipDisplay	; Oops! No on-line volumes!

; Change the List to contain the root directory of the new volume

	bit DirSelReq
	bpl SkipDisplay

	jsl MakeNewList
SkipDisplay	bra UnHilite

; Put up 'Creating a New System Disk' dialog

CreatingDialog	jsr CreatingSub
	bra UnHilite

; Put up 'Updating an Existing Disk' dialog

UpdatingDialog	jsr UpdatingSub
	bra UnHilite

; Put up 'Hard Disk Initialization' dialog

HardDiskDialog	jsr HardDiskSub
	bra UnHilite

; Put up keyboard shortcuts help dialog

HelpKbdShortcuts	jsr ShortcutsSub

; NOTE: The special	menu above the directory selection window must be redrawn
; as a separate action.

UnHilite	pea Active	; unhilite it (normal)
	lda Task.Data+2	; ID of menu
	pha
	ldx #HiliteMenu
	jsl ToolLocator

	lda #0000
	clc
	rts

Erase_Parms	dc.w 5	; Parameter count
	dc.l Dev_Name+2	; Device name pointer
	dc.l CurrentVol	; supplied volume name: the current target
	dc.w 00	; result (fileSysID)
	dc.w proDOSfsID	; default file system: ProDOS
Erase_Flags	dc.w fFormatEdit+fFormatSelect ; flags: editable name, selectable file sys
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

; User has asked for information about the Installer Program.

AboutInstaller	pha	; Room for result
	pha
	pea AboutTemplate>>16
	pea |AboutTemplate
	ldx #GetNewModalDialog
	jsl ToolLocator	; (Leave pointer on stack for CloseDialog)

	pha	; Room for result
	pea OneSimpleKeyFilter>>16 ; filterProcPtr
	pea |OneSimpleKeyFilter
	ldx #ModalDialog
	jsl ToolLocator
	pla	; Only one response possible

	ldx #CloseDialog	; Close the dialog
	jsl ToolLocator	;  (pointer still on stack)

	bra UnHilite
;................................................................

AboutTemplate
AboutRect	dc.w 60,160,150,480	; Bounds rect
	dc.w $FFFF	; Visible
	dc.l 00000000	; Ref con
	dc.l Item1
	dc.l Item2
	dc.l 00000000

Item1	dc.w 1	; ID
	dc.w 74,210,86,285	; Bounds rect for button
	dc.w ButtonItem	; Type
	dc.l OKStr	; Item descriptor
	dc.w 00	; Item value
	dc.w 00	; Item flag
	dc.l 00000000	; Item color

Item2	dc.w 2	; ID
	dc.w 4,5,135,295	; Item bounding rect
	dc.w LongStatText2+ItemDisable ; Type
	dc.l AboutMsg	; Item descriptor
	dc.w EndAboutMsg-AboutMsg ; Item value
	dc.w 0	; Item flag
	dc.l 0	; Item color

	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
CreatingSub	Proc
*
* Description:	Put up 'Creating a New System Disk' dialog
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
	Import Task
	Import WdwT_NewDiskHelp
*
* Entry Points:
*	none
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

; Open the window

	pha	; NewWindow2: Space for result
	pha
	pea 0	; pointer to replacement title
	pea 0
	pea 0	; RefCon to replace value in template
	pea 0
	pea 0	; ptr to replacement content draw routine
	pea 0
	pea 0	; ptr to replacement window definition procedure
	pea 0
	pea 0	; paramTableRef is a ptr to a window template

	pea WdwT_NewDiskHelp>>16 ; paramTableRef
	pea |WdwT_NewDiskHelp

	pea $800E	; rWindParam1
	ldx #NewWindow2
	jsl ToolLocator	; leave grafPortPtr on stack

loop	pha	; space for result
	pha
	pea Task>>16	; pointer to extended task record
	pea |Task
	pea 0	; pointer to update proc (NIL for std)
	pea 0
	pea $8000	; ptr to event hook rtn (hi bit: Apple-period->Esc)
	pea 0	; (NIL for none)
	pea 0	; pointer to beep procedure
	pea 0
	pea 0	; flags word
	ldx #DoModalWindow
	jsl ToolLocator
	pla	; Get ID of control selected
	plx
	bne loop	; buttons have high word of 0
	cmp #HelpNewDiskBtnID ; check low word
	bne loop	; Loop until button is hit

@done	ldx #CloseWindow
	jsl ToolLocator

	rts
	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
UpdatingSub	Proc
*
* Description:	Put up 'Updating an Existing Disk' dialog
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
	Import Task
	Import WdwT_UpdateDiskHelp
*
* Entry Points:
*	none
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

; Open the window

	pha	; NewWindow2: Space for result
	pha
	pea 0	; pointer to replacement title
	pea 0
	pea 0	; RefCon to replace value in template
	pea 0
	pea 0	; ptr to replacement content draw routine
	pea 0
	pea 0	; ptr to replacement window definition procedure
	pea 0
	pea 0	; paramTableRef is a ptr to a window template

	pea WdwT_UpdateDiskHelp>>16 ; paramTableRef
	pea |WdwT_UpdateDiskHelp

	pea $800E	; rWindParam1
	ldx #NewWindow2
	jsl ToolLocator	; leave grafPortPtr on stack

loop	pha	; space for result
	pha
	pea Task>>16	; pointer to extended task record
	pea |Task
	pea 0	; pointer to update proc (NIL for std)
	pea 0
	pea $8000	; ptr to event hook rtn (hi bit: Apple-period->Esc)
	pea 0	; (NIL for none)
	pea 0	; pointer to beep procedure
	pea 0
	pea 0	; flags word
	ldx #DoModalWindow
	jsl ToolLocator
	pla	; Get ID of control selected
	plx
	bne loop	; buttons have high word of 0
	cmp #HelpUpdateDiskBtnID ; check low word
	bne loop	; Loop until button is hit

@done	ldx #CloseWindow
	jsl ToolLocator

	rts
	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
HardDiskSub	Proc
*
* Description:	Put up 'Hard Disk Initialization' dialog
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
	Import Task
	Import WdwT_HardDiskHelp
*
* Entry Points:
*	none
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

; Open the window

	pha	; NewWindow2: Space for result
	pha
	pea 0	; pointer to replacement title
	pea 0
	pea 0	; RefCon to replace value in template
	pea 0
	pea 0	; ptr to replacement content draw routine
	pea 0
	pea 0	; ptr to replacement window definition procedure
	pea 0
	pea 0	; paramTableRef is a ptr to a window template

	pea WdwT_HardDiskHelp>>16 ; paramTableRef
	pea |WdwT_HardDiskHelp

	pea $800E	; rWindParam1
	ldx #NewWindow2
	jsl ToolLocator	; leave grafPortPtr on stack

loop	pha	; space for result
	pha
	pea Task>>16	; pointer to extended task record
	pea |Task
	pea 0	; pointer to update proc (NIL for std)
	pea 0
	pea $8000	; ptr to event hook rtn (hi bit: Apple-period->Esc)
	pea 0	; (NIL for none)
	pea 0	; pointer to beep procedure
	pea 0
	pea 0	; flags word
	ldx #DoModalWindow
	jsl ToolLocator
	pla	; Get ID of control selected
	plx
	bne loop	; buttons have high word of 0
	cmp #HelpHardDiskBtnID ; check low word
	bne loop	; Loop until button is hit

@done	ldx #CloseWindow
	jsl ToolLocator

	rts
	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
ShortcutsSub	Proc
*
* Description:	Put up Keyboard Shortcuts Help dialog
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
	Import DialogFlag
	Import Task
	Import WdwTemplate_ShortCutsCust
	Import WdwTemplate_ShortCutsStd
*
* Entry Points:
*	none
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

; Open the window

	pha	; NewWindow2: Space for result
	pha
	pea 0	; pointer to replacement title
	pea 0
	pea 0	; RefCon to replace value in template
	pea 0
	pea 0	; ptr to replacement content draw routine
	pea 0
	pea 0	; ptr to replacement window definition procedure
	pea 0
	pea 0	; paramTableRef is a ptr to a window template

	bit DialogFlag
	bmi @StandardDialog

	pea WdwTemplate_ShortCutsCust>>16 ; paramTableRef
	pea |WdwTemplate_ShortCutsCust
	bra @doNewWindow

@StandardDialog	pea WdwTemplate_ShortCutsStd>>16 ; paramTableRef
	pea |WdwTemplate_ShortCutsStd

@doNewWindow	pea $800E	; rWindParam1
	ldx #NewWindow2
	jsl ToolLocator	; leave grafPortPtr on stack

loop	pha	; space for result
	pha
	pea Task>>16	; pointer to extended task record
	pea |Task
	pea 0	; pointer to update proc (NIL for std)
	pea 0
	pea $8000	; ptr to event hook rtn (hi bit: Apple-period->Esc)
	pea 0	; (NIL for none)
	pea 0	; pointer to beep procedure
	pea 0
	pea 0	; flags word
	ldx #DoModalWindow
	jsl ToolLocator
	pla	; Get ID of control selected
	plx
	bne loop	; buttons have high word of 0
	cmp #HelpCustButtonID ; check low word
	beq @done
	cmp #HelpStdButtonID ; check low word
	bne loop	; Loop until button is hit

@done	ldx #CloseWindow
	jsl ToolLocator

	rts
	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* *			* *
* *             C O N T R O L   H A N D L E R S             * *
* *			* *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
ControlSub	Proc
*
* Description:	These are the subroutines to handle control
*	requests associated	with each of the psuedo
*	dialog controls.
*
* Inputs:	none
*
* Outputs:	none
*
* External Refs:
	Import AlertMsg
	Import AlertMsgNo
	Import Allocate
	Import BuildDirName
	Import C1InpToGStr
	Import CancelStr
	Import CheckCharacter
	Import CheckScript
	Import Concat
	Import CurrentMember
	Import CurScriptFile
	Import CursorArrowOn
	Import CursorWatchOn
	Import D_Cont_DevNum
	Import D_Cont_Parms
	Import D_DeviceNum
	Import Dereference
	Import DialogFlag
	Import DialogPort
	Import DirSelReq
	Import DiskControl
	Import DispDir2Update
	Import DispDisk2Update
	Import DrawNewList
	Import EjectControl
	Import Eject2Control
	Import EndHelpScreenMsg
	Import Error
	Import FlushEventQueue
	Import GetAppDirPtr
	Import GetCurDirPtr
	Import GetInfo:FileInfoRec_C1
	Import GetMemPointer
	Import GStrBuffer
	Import GStrAsC1Inp
	Import GStrToGStr
	Import HelpControl
	Import HelpScreenMsg
	Import Install
	Import InstallRemoveMode
	Import AppFolderListHdl
	Import ListPointer2
	Import MakeNewList
	Import MemberNum
	Import MenuItemID
	Import MyPopUpCtlHdl
	Import MyZP
	Import NewFolderMsg
	Import NextDevice1
	Import NumOfSelections
	Import NoHelpToDisplay
	Import EndNoHelpToDisplay
	Import NoVolumes
	Import OKStr
	Import OneSimpleKeyFilter
	Import OpenControl
	Import PStrToC1Inp
	Import PStrToGStr
	Import QuitFlag
	Import Remove
	Import ResizeAppDirBuf
	Import ResizeCurDirBuf
	Import SelectListCtlHdl
	Import SetInstallRemove
	Import SetPrefix
	Import SimpleKeyFilter
	Import Task:TaskRecord
	Import UnlockAppDirHdl
	Import UnlockCurDirHdl
	Import UpdateMainDialog
	Import UpdatePopup
	Import WindowSetUpComplete
* Entry Points:
	Export AdjustDir
	Export CloseDir
	Export DiskSub
	Export DiskSub1
	Export EjectSub
	Export FolderListSub
	Export HelpSub
	Export InstallSub
	Export NewFolderSub
	Export OpenSub
	Export PopOne
	Export PopUpSub
	Export QuitSub
	Export RemoveSub
	Export Standard2Sub
	Export ScriptListSub
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
InstallSub
;
; Calls the dynamic "Install" segment and then unloads it when finished.
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

	jsl Install

	bra InstallRemoveExit

; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
RemoveSub
;
; Calls the dynamic "Install" segment and then unloads it when finished.
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

	jsl Remove

InstallRemoveExit	pha	; Unload 'StartUp' segment
	pha	; 3-words for results
	pha
	pea Install>>16
	pea |Install
	ldx #UnloadSeg
	jsl ToolLocator
	pla	; discard UserID
	pla	; discard loadFileNum
	pla	; discard loadSegNum

	bit DirSelReq	; Update the application folder
	bpl @1	;  selection window only if we
		;  installed to it.

@1
	lda #0000
	brl ControlSubExit
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
HelpSub

; HelpSub opens the	script file and extracts the help field	and
; displays it in an	alert box.
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

	lda NumOfSelections	; how many scripts are selected?
	beq NoSelections
	dec a
	beq OneSelection

; else more than one selection
; or no scripts selected
; use help message from Data.asm

NoSelections	lda #NoHelpToDisplay
	sta HelpField
	lda #NoHelpToDisplay>>16
	sta HelpField+2

	lda #EndNoHelpToDisplay-NoHelpToDisplay
	sta HelpLength

	brl FieldIsSetUp

; Get a block of memory and fill it with the ScriptHelp field

OneSelection	lda #HelpBufferSize	; Size of block to create
	jsl Allocate
	stx HelpFieldHdl
	sty HelpFieldHdl+2

; Dereference the handle to the memory for the help field.

	phy
	phx
	jsl Dereference
	pla
	sta <HelpBuffer
	sta ReadDataBuf
	pla
	sta <HelpBuffer+2
	sta ReadDataBuf+2

; Get the Help field

;       Put the CurScriptFile pointer into the OPEN call parameter table

	lda CurScriptFile
	sta OpenPAth
	lda CurScriptFile+2
	sta OpenPath+2

;       Open the script file and read in a block

@0	jsl GSOS
	dc.w Open
	dc.l OpenParm
	bcc @1
	ldx OpenPath
	ldy OpenPath+2
	jsl Error
	bcc @0
	bcs @4
@1
	lda OpenRefNum	; Move reference number
	sta ReadRefNum
	sta CloseRefNum
	lda #HelpBufferSize
	sta ReadRequest
	stz ReadRequest+2
@2
	jsl GSOS
	dc.w Read
	dc.l ReadParm
	bcc @3
	ldx OpenPath
	ldy OpenPath+2
	jsl Error
	bcc @2
@3

; We've got the help field and then some.

@4	php	; Preserve c-flag
	jsl GSOS
	dc.w Close
	dc.l CloseParm
	plp	; Restore c-flag
	bcc @5
	brl HelpExit
@5

; Skip over the ScriptFlag and ScriptName fields: Find beginning of ScriptHelpField

	sep #$30
	LongA Off
	LongI Off
	
	ldy #ScriptFlagField+2  ; minimum 2 flags in ScriptFlag field
	ldx #3	; looking for 3 crÕs (2 after flags, 1 after name)
LengthLoop	lda [<HelpBuffer],y
	iny
	cmp #Return
	bne LengthLoop
	dex
	bne LengthLoop

	LongA On
	LongI On
	rep #$30

	sty ScriptHelpField	; store offset to beginning of ScriptHelpField

; Determine length of ScriptHelp field.

	ldx #0000
HelpLenLoop	lda [<HelpBuffer],y
	iny
	inx
	cmp #ScriptHelpEnd	; Check for end of ScriptHelp field
	bne HelpLenLoop
	dex
	stx HelpLength

; Store the pointer.

	clc	; Calculate beginning of Help field
	lda ScriptHelpField	;   Offset to beginning of Help field
	adc <HelpBuffer	; + Buffer Address
	sta HelpField
	lda #0000
	adc <HelpBuffer+2
	sta HelpField+2

; HelpField and HelpLength are now set up.
; Open a dialog window, write the ScriptHelp text into it, and let the user tell
; us when he/she is	finished reading it.

FieldIsSetUp	jsr CursorArrowOn

	pha	; Room for result
	pha
	pea HelpTemplate>>16 ; Help alert window template
	pea |HelpTemplate
	ldx #GetNewModalDialog
	jsl ToolLocator	; leave pointer to Help dialog on stack for CloseDialog

	pha	; Room for result
	pea OneSimpleKeyFilter>>16 ; filterProcPtr
	pea |OneSimpleKeyFilter
	ldx #ModalDialog
	jsl ToolLocator
	pla	; Only Return and Escape and mouse-on-button

; Close the dialog window, reset the grafport, redraw the Installer window,
; and  release the memory

	ldx #CloseDialog	; Close the dialog
	jsl ToolLocator	;  (pointer to Help dialog left on stack by GetNewModalDialog)

	jsr CursorWatchOn

	lda NumOfSelections	; how many scripts are selected?
	dec a
	bne NoHandle

HelpExit	lda HelpFieldHdl+2	; Release the memory
	pha
	lda HelpFieldHdl
	pha
	ldx #DisposeHandle
	jsl ToolLocator

NoHandle	jsl FlushEventQueue

	lda #0000
	brl ControlSubExit
	Eject
; . . . . . . . . .	. . . . . . . . . .	. . . . . . . . . .	. . .

; Data for HelpSub

hHeight	equ 168
hWidth	equ 596

hTop	equ 105-hHeight/2
hLeft	equ 320-hWidth/2
hBottom	equ 105+hHeight/2
hRight	equ 320+hWidth/2

HelpTemplate	dc.w hTop,hLeft,hBottom,hRight	; BoundsRect
	dc.w $FFFF	; dtVisible
	dc.l 00000000	; dtRefCon
	dc.l OKTemp	; 1st item template
	dc.l HelpScreen	; 2nd item template
	dc.l HelpScript	; 3rd item template
	dc.l 00000000	; (terminator)

OKTemp	dc.w 1	; ID
	dc.w hHeight-15,hWidth-90,hHeight-4,hWidth-10 ; Bounds rect
	dc.w ButtonItem	; Type
	dc.l OKStr	; Item descriptor
	dc.w 0000	; Item value
	dc.w 0000	; Item flag
	dc.l 00000000	; Item color

; Both titles, in large outline type, and Installer generic help message
HelpScreen	dc.w 2	; ID
	dc.w 2,10,87,hWidth-10 ; Bounds rect
	dc.w LongStatText2+ItemDisable ; Type
	dc.l HelpScreenMsg	; Item descriptor
	dc.w EndHelpScreenMsg-HelpScreenMsg ; Item value
	dc.w 0000	; Item flag
	dc.l 00000000	; Item color

; The scriptÕs Help message
HelpScript	dc.w 3	; ID
HelpScriptRect	dc.w hHeight-82,10,hHeight-17,hWidth-10
	dc.w UserItem+ItemDisable ; Type
	dc.l DrawHelpScript	; Pointer to ScriptHelp buffer
HelpLength	ds.w 1	; Help string length (cheap place to put it) (Item value not used by UserItem)
	dc.w 0000	; Item flag
	dc.l 00000000	; Item color

HelpField	ds.l 1	; Pointer to ScriptHelp buffer

HelpFieldHdl	ds.b 4	; Handle to ScriptHelp buffer



ScriptHelpField	ds.b 2	; Offset to beginning of ScriptHelp field

Pathname	dc.w PathnameEnd-Pathname-1,'9:SCRIPTS:'
pathnameEnd	ds.b 32	; Length word + DefaultName + 32 characters

OpenParm	dc.w 0002	; pCount
OpenRefNum	ds.w 1	; Reference number
OpenPath	dc.l Pathname	; Pathname pointer

ReadParm	dc.w 0004	; pCount
ReadRefNum	ds.w 1	; Reference number
ReadDataBuf	ds.l 1	; Data buffer
ReadRequest	dc.l HelpBufferSize	; Request count
	ds.l 1	; Transfer count

CloseParm	dc.w 0001	; pCount
CloseRefNum	ds.w 1	; Reference number
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
DrawHelpScript	Name
;
; DrawHelpScript draws the selected scriptÕs help text into the Help Dialog.
; Called only by Dialog Manager, when itÕs implementing the Help dialog template.
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

	lda >HelpField+2	; Text pointer
	pha
	lda >HelpField
	pha
	lda >HelpLength	; Text length
	pha
	pea HelpScriptRect>>16 ; Text rectangle
	pea HelpScriptRect
	pea 0002	; Text justification (2 = fill)
	ldx #LETextBox2
	jsl ToolLocator

	lda 1,s	; get return address
	sta 7,s	; move to proper location
	lda 2,s	;  above input parameters
	sta 8,s

	pla	; move stack pointer up
	pla	;  to new return address location
	pla
	rtl
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
QuitSub
;
; Quit requests merely set the hi-bit of the QuitFlag and return
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

	lda QuitFlag	; Set the QuitFlag
	ora #%1000000000000000
	sta QuitFlag

	lda #0000
	brl ControlSubExit
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
DiskSub
;
; DiskSub will advance to the next connected device and retrieve
; the volume name, place the volume name at '<CurDirPtr' and redraw
; the PopUp control.  A new list for the List Window will be created
; if directory selection is required, and _NewList will be called.
; (After 14 attempts to get another volume, NextDevice1 will give up
; and issue an error.)
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

; Now get the next volume name and move	it into <CurDirPtr.

DiskSub1	jsr NextDevice1	; Advance always
	bcs DiskExit	; Oops! No on-line volumes!

; If we previously had no volumes on line, we need to get deactivated
; buttons set up again by checking the script's needs.

	bit NoVolumes
	bpl @1
	stz NoVolumes
	jsr CheckScript
@1

; Change the List to contain the root directory of the new volume

	bit DirSelReq
	bpl @SkipDisplay

	jsl MakeNewList
@SkipDisplay

; Dim or activate the Eject Button based on the characteristics of the drive

	clc	; Indicate everything went OK
	lda #0000

; Make the control normal (unhilited) again.

DiskExit	pha	; Preserve the A-reg

	jsl FlushEventQueue

	pla	; Restore error code, if any
	brl ControlSubExit
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
OpenSub
;
; OpenSub opens the currently selected folder.
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

; Check to see which item in the list is selected.

@1	pha	; Room for result
	pea 0000	; Start at beginning of list
	lda SelectListCtlHdl+2 ; Control's handle
	pha
	lda SelectListCtlHdl
	pha
	ldx #NextMember2
	jsl ToolLocator
	pla
	sta CurrentMember ; Member that just got hit

; If returned value	was null, nothing was selected.

	beq OpenFinished

; If we "got something", we need to get the pointer to the string into
; "CurrentMember".

GotSomething

;       Dereference the List's handle

	lda AppFolderListHdl+2
	pha
	lda AppFolderListHdl
	pha
	jsl Dereference
	pla
	sta ListPointer2
	pla
	sta ListPointer2+2

;       Multiply member's number by the record size (5) and add it to
;       ListPointer2

	dec CurrentMember	; NextMember is "1" based...
	lda CurrentMember	;  ...we're "0" based
	asl a
	asl a
	clc
	adc CurrentMember

	clc
	adc ListPointer2
	sta CurrentMember
	lda #0000
	adc ListPointer2+2
	sta CurrentMember+2

; Add it to the current directory and display the new directory

	jsr AddToDir
	bcc OpenFinished

OpenFinished	pha
	jsl FlushEventQueue

	pla
;;;	lda #0000
	brl ControlSubExit
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
NewFolderSub
;
; NewFolderSub will	display a dialog box for the user to name
; the new folder to	be created at the current directory level.
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

Access	equ %0000000011100011
FileType	equ $000F
AuxType	equ $00000000
StorageType	equ $000D
Creation	equ $00000000

; Create a dialog box

	pha	; Room for results
	pha
	pea DiaTemplate>>16
	pea |DiaTemplate
	ldx #GetNewModalDialog
	jsl ToolLocator
	pla
	sta NewFolderPort
	pla
	sta NewFolderPort+2

InputLoop1	jsr CursorArrowOn

; Get the user response
; Filter proc ptr: bit 30 forces ibeam cursor over lineedit field

InputLoop	pha	; Room for results
	lda #SimpleKeyFilter>>16
	ora #$4000	; bit 30 forces ibeam cursor over lineedit field
	pha	; Filter proc ptr
	pea |SimpleKeyFilter
	ldx #ModalDialog
	jsl ToolLocator
	ply	; Item hit
	beq InputLoop

; Exit if 'Cancel' is hit.

	cpy #0002	; Was it Item 2 (Cancel) ?
	bne @1
	brl NewFolderExit

@1	cpy #0001	; Was it Item 1 ( OK ) ?
	bne InputLoop

; It was 'OK'.  Get	the text from EditLine and CREATE a new	folder.

OKHit	lda NewFolderPort+2
	pha
	lda NewFolderPort
	pha
	pea EditLineID
	pea FolderPath>>16
	pea |FolderPath
	ldx #GetIText
	jsl ToolLocator

; Check for any colons in the user's requested new folder name

	sep #$0030
	LongA Off
	LongI Off

	ldy FolderPath
@0	lda FolderPath,y
	cmp #SeparatorChar
	beq @Oops
@00	dey
	bne @0
	bra @BuildName

; There was a separator character in the folder name

@Oops	rep #$0030
	LongA On
	LongI On
	lda #$008F
	jsl Error
	bra InputLoop1	; Try again

; Build a full path name for the user requested folder name.
; (<CurDirPtr + FolderPath)

@BuildName	rep #$0030
	LongA On
	LongI On

;       Lock and dereference <CurDirHdl, placing the pointer in <CurDirPtr,
;       and convert FolderPath to a GStr in FolderPathBuf

	jsl GetCurDirPtr

	ldy #0002	; (Get the length word in case we
	lda [<CurDirPtr],y	;  get an error and have to go
	sta OldLength	;  back to the original name.)

	pea FolderPath>>16
	pea |FolderPath
	pea GStrBuffer>>16
	pea |GStrBuffer
	jsl PStrToGStr

;       Check for trailing separator character and if there is none, add one.

	ldy #0002	; Get the lengthWord
	lda [<CurDirPtr],y
	clc
	adc #GStrOverhead-1	; Add on GStr buffer overhead
	tay	;  and use as index to last character
	lda [<CurDirPtr],y
	and #$00FF
	cmp #SeparatorChar
	beq @Concat

;       Gotta add a trailing separator before we can concatenate.

	pea SeperatorBuf>>16 ; First GStr buffer pointer
	pea |SeperatorBuf
	pei <CurDirPtr+2	; Destination GStr buffer pointer
	pei <CurDirPtr
	jsl Concat

;       Concatenate "FolderPath" onto the pathname at "<CurDirPtr"

@ConCat
	pea GStrBuffer>>16
	pea |GStrBuffer
	pei <CurDirPtr+2	; Destination GStr buffer pointer
	pei <CurDirPtr
	jsl Concat

; Attemp to create the new folder

	pha	; Space for result
	pha
	pei <CurDirPtr+2	; GStr buffer pointer
	pei <CurDirPtr
	jsl GStrAsC1Inp
	pla	; C1Inp buffer pointer
	sta CreatePath
	pla
	sta CreatePath+2

@1	jsl GSOS
	dc.w Create
	dc.l CreateParms
	bcc NewFolderOpen	; All OK

; Oops!  We got an error!  Notify the user

	cmp #DupPathname	; Remap "Duplicate Filename" to...
	bne @2
	lda #$008E	;  ..."Duplicate Folder Name."

@2	cmp #PathSyntax	; Remap syntax error w/ source:<name>...
	bne @2a
	lda #$008F	;  ... syntax error w/o source:<name>

; Gotta special case an incorrect error that can be returned by GS/OS if
; the user ask for a NewFolder name starting with a period.

@2a	cmp #$0010	; Remap "Device Not Found" to...
	bne @3
	lda #$008F	;  ... syntax error w/o source:<name>

; Gotta special case an incorrect error that can be returned by GS/OS if
; the user ask for a NewFolder name containing a colon.

@3	cmp #PathNotFound	; Remap "Path Not Found" to...
	bne @4
	lda #$008F	;  ... syntax error w/o source:<name>

@4	ldx CreateParms
	ldy CreateParms+2
	jsl Error
	php
	pha

; What ever the pathname was, it generated an error!  Take off the last level
; of the pathname by restoring the old length word and resizing the buffer.

	ldy #0002
	lda OldLength
	sta [<CurDirPtr],y
	jsl ResizeCurDirBuf

; When we get an error handler dialog, we need to force the window to re-draw

	jsl UpdateMainDialog

	pla
	plp
	bcc @1

; Now, process any error conditions returned by the CreateFolder routine

	cmp #VolumeNotFound
	beq NewFolderExit
	brl InputLoop1	; Oops, didn't create the folder

; We got the new folder.  Now copy the current directory to the application
; directory.

NewFolderOpen	pei <CurDirPtr+2
	pei <CurDirPtr
	pei <AppDirPtr+2
	pei <AppDirPtr
	jsl GStrToGStr

	jsl ResizeAppDirBuf
	bcs NewFolderOpen

; Perform additional housekeeping chores as needed.

	jsr SetPrefix
	jsl MakeNewList
	jsr DrawNewList
	jsr DispDir2Update
	jsr UpdatePopUp

NewFolderExit	pha	; Preserve error code

	lda NewFolderPort+2
	pha
	lda NewFolderPort
	pha
	ldx #CloseDialog	; Close the dialog
	jsl ToolLocator

	jsl FlushEventQueue

	pla	; Restore error code, if any
	brl ControlSubExit

OldLength	ds.w 1
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

CreateParms	dc.w 0006
CreatePath	ds.l 1	; Pathname
	dc.w Access	; Access
	dc.w FileType	; File Type
	dc.l AuxType	; Aux Type
	dc.w StorageType	; Storage Type
	dc.l Creation	; Creation Date and	Time

SeperatorBuf	dc.w 0005
	dc.w 0001
	dc.b SeparatorChar
	Eject

	Eject
; . . . . . . . . .	. . . . . . . . . .	. . . . . . . . . .	. . .
;
NewFolderPort	ds.b 4
;
; template for New Folder dialog

dWidth    equ 331
dHeight   equ 64

dTop      equ (200/2)-(dHeight/2)+22
dLeft     equ (640/2)-(dWidth/2)
dBottom   equ dTop+dHeight
dRight    equ dLeft+dWidth

DiaTemplate	dc.w dTop,dLeft,dBottom,dRight ; Bounds rect
	dc.w $FFFF	; Visible
	dc.l 00000000	; Ref con
	dc.l Item1
	dc.l Item2
	dc.l Item3
	dc.l Item4
	dc.l 00000000	; End of Item list marker

Item1	dc.w 1	; ID
	dc.w dHeight-19,dWidth-83 ; itemRect
	dc.w dHeight-8,dWidth-18
	dc.w ButtonItem	; Type
	dc.l OKStr	; Item descriptor
	dc.w 0000	; Item value
	dc.w 0000	; Item flag
	dc.l 00000000	; Item color

Item2	dc.w 2	; ID
	dc.w dHeight-19,dWidth-169 ; itemRect
	dc.w dHeight-8,dWidth-104
	dc.w ButtonItem	; Type
	dc.l CancelStr	; Item descriptor
	dc.w 0000	; Item value
	dc.w 0000	; Item flag
	dc.l 00000000	; Item color

Item3	dc.w 3	; ID
	dc.w 7,16,18,186	; Item bounding rect
	dc.w StatText+ItemDisable ; Type
	dc.l NewFolderMsg	; Item descriptor
	dc.w 0000	; Item value
	dc.w 0000	; Item flag
	dc.l 00000000	; Item color

Item4		; 
EditLineID	equ 4
	dc.w EditLineID	; ID
	dc.w 23,18,36,dWidth-18 ; Item bounding rect
	dc.w EditLine+ItemDisable ; Type
	dc.l DefaultString	; Item descriptor
	dc.w 0031	; Item value
	dc.w 0000	; Item flag
	dc.l 00000000	; Item color

DefaultString	dc.b DefaultStrEnd-DefaultString-1,'untitled'
DefaultStrEnd

FolderPath	ds.b 33	; Room for LengthByte + 32 bytes
	Eject
; . . . . . . . . .	. . . . . . . . . .	. . . . . . . . . .	. . .
EjectSub
;
; EjectSub will eject a disk from any drive that can accept eject requests.
; . . . . . . . . .	. . . . . . . . . .	. . . . . . . . . .	. . .

Begin	lda D_DeviceNum	; Get the device number
	sta D_Cont_DevNum	;  and put in parameters

	jsl GSOS
	dc.w D_Control
	dc.l D_Cont_Parms

	brl DiskSub1	; Move on to the next device just as if
		;  someone pressed the DISK button
	Eject
; . . . . . . . . .	. . . . . . . . . .	. . . . . . . . . .	. . .
ScriptListSub	Name
;
; ScriptListSub is called when the mouse is clicked in the Script
; selection window.	 We must go thru the list of selected scripts
; and determine
; ¥ if none are selected: turn off help, install, remove buttons
; ¥ if any of them require directory selection.  If
;   so, we need to activate the directory selection window.
; . . . . . . . . .	. . . . . . . . . .	. . . . . . . . . .	. . .

	stz DifferentTypes	; Initialize flag
	stz NumOfSelections
	stz <ZPTemp	; (NOTE: <ZPTemp = zero)
	stz <ZPTemp+2
	stz MemberNum

	jsr GetNextFlag	; Get first members flag
	sta SelectedScriptFlags
	bcc @SomeMemberSelected

; There is NO member selected at all!!!  Deactivate Install, Remove, and Help.

	lda #AlertMsg1
	sta AlertMsgNo

	lda InstallRemoveMode ; Dim the Install & Remove Controls
	ora #bNoScripts	; no scripts selected
	stz DirSelReq	; keep Application Folder Selection list clear
	sta InstallRemoveMode

	brl SetControls2

; There is at least one member selected.

@SomeMemberSelected
	lda InstallRemoveMode ; Dim the Install & Remove Controls
	and #ÅbNoScripts	; force bit to 0
	sta InstallRemoveMode

	lda <ZPTemp
	sta CurrentMember
	lda <ZPTemp+2
	sta CurrentMember+2

	lda SelectedScriptFlags
	bra MidLoop

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Now start looking for more selections

SearchLoop	jsr GetNextFlag	; Get next member flag
	bcs NoMoreSelected
MidLoop	tax	; Save current flag
	inc NumOfSelections	; Increment the number of selections

; Check if the selections are of the same "type".
; If the hi-bit of the two ScriptFlags does not match:
;   both 'select-application' and 'system' scripts have been selected;
;   set hi bit of DifferentTypes as flag 
;     to let the "talking head" explain the rules of the game before we exit.

	eor SelectedScriptFlags ; Do hi-bits match
	bpl @doneTypeCheck
	sta DifferentTypes	; store 1 in hi bit if they don't match
@doneTypeCheck

;       We must save in SelectedScriptFlags, if ANY selected script has it set:  
;            bit 15: directory selection needed
;            bit 14: disable REMOVE as a valid command
;            bit 13: prevent installation to Boot disk

	txa	; check current flag
	and #bDirReq|bPreventBoot|bNoRemove  ; bits to OR into SelectedScriptFlags
	ora SelectedScriptFlags
	sta SelectedScriptFlags

;       We must save in SelectedScriptFlags, only if ALL selected scripts have it set:
;            bit 14: disable REMOVE as a valid command
; REMOVE THIS CODE IF WORKS WITHOUT IT!!!!!!!!!!!!!!!!!!!!!!!!!!!
;	txa	; check current flag
;	ora #ÅbNoRemove	; EOR bit (now %11011...): get bit to AND into SelectedScriptFlags
;	and SelectedScriptFlags
;	sta SelectedScriptFlags

	bra SearchLoop

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; DO ACTIONS;;;;;;;;;;;;;;;;;;;;;;;;;;
; We've found all the selected members
NoMoreSelected

; INSTALL & REMOVE BUTTONS....................................................
; if PreventBoot flag set & VolStr (boot volume) = CurrentVol (current volume)
;     turn off Install & Remove buttons 

	lda SelectedScriptFlags
	and #bPreventBoot	; Is PreventBoot valid?
	beq @BootOK

;       PreventBoot is valid: if VolStr = CurrentVol, turn Install button off

	ora InstallRemoveMode ; set Prevent bit
	bra @DonePrevent

@BootOK	lda #bPreventBoot--$FFFF ; clear Prevent bit
	and InstallRemoveMode ; clear Prevent bit
@DonePrevent	sta InstallRemoveMode

; Activate or deactivate the REMOVE button as is appropriate based on Remove flag.

	lda SelectedScriptFlags
	and #bNoRemove	; Is RemovePrevent flag set?
	beq @ActivateRemove

	ora InstallRemoveMode ; set Remove bit
	bra @DoneRemove

@ActivateRemove	lda #bNoRemove--$FFFF ; clear Remove bit
	and InstallRemoveMode ; clear Remove bit
@DoneRemove	sta InstallRemoveMode

; TALKING HEAD......................................................
; are there both 'select-application' and 'system' scripts selected?
	bit DifferentTypes	; If all are the same type...
	bpl @NoMsgNeeded	;  ...we can continue

;       Both types of scripts are in the list.  Let the "talking head" explain...

	lda #AlertMsg3	; Alert user: some require directory selection, some not
	bra @DisplayMsg

;       Only one type of script in list.  No message needed.

@NoMsgNeeded	lda #AlertNoMsg
@DisplayMsg	sta AlertMsgNo

; HELP ............................................................
; Script HELP can only be provided when one and only one script is selected.

	lda NumOfSelections	; Was there only one selected?
	cmp #0001
	bne @AppFolder

;       There is only one script selected.  The HelpSub routine
;       needs the filename in CurScriptFile

	ldx #0000	; Identify the member's position in
	clc	;   the list
	lda <ScriptListPtr
@SearchLoop1	cmp CurrentMember	; (we can ignore hi-word)
	beq @GotIt
	inx
	adc #0006	; (each record is 6 bytes long)
	bra @SearchLoop1

;       X-reg now contains the member's position in the list.  Its
;       filename will be in the same position in the ScriptFileName
;       list.  (The records in the ScriptFileName list are exactly
;       16 bytes long.)

@GotIt	stx Temp	; Multiply member's position X 6
	txa
	asl a
	clc
	adc Temp
	asl a
	tay
	lda [<ScriptFilePtr],y
	sta CurScriptFile
	iny
	iny
	lda [<ScriptFilePtr],y
	sta CurScriptFile+2

; APPLICATION FOLDER SELECTION LIST................................................
; Get the <CurDirPtr set and fix CurDirectory so that it holds the proper pathname.

@AppFolder	jsl GetCurDirPtr

	bit DirSelReq
	php	; save previous setting: needed folder selection?

	lda SelectedScriptFlags ; save off bit 15 (ignore rest): need folder selection?
	sta DirSelReq
	bpl SetControls

;       Directory selection is required. Move Application Directory into buffer
;       at <CurDirPtr.

	jsl GetAppDirPtr
@TryAgain
	pei <AppDirPtr+2
	pei <AppDirPtr
	pei <CurDirPtr+2
	pei <CurDirPtr
	jsl GStrToGStr

	jsl ResizeCurDirBuf
	bcs @TryAgain

;       Do NOT recreate the list if directory selection was previously required (it's ok).

	plp	; saved previous setting: needed folder selection?
	php
	bmi @SkipMakeNewList ; branch if previous DirSelReq flag was set

	jsl MakeNewList

@SkipMakeNewList	jsr BuildDirName	; build short vs. of name for display purposes

	jsl UnlockCurDirHdl	; Let it float til needed again
	
; Many of the controls depend on the script's requirements

SetControls	plp
SetControls2
; set Install and Remove buttons based on InstallRemoveMode flags
	jsr SetInstallRemove 

	bit WindowSetupComplete ; Don't draw it til set up complete
	bpl @SkipAlertMsg

	jsr AlertMsg
@SkipAlertMsg

	jsr CheckScript

;;;	jsr CursorArrowOn

	lda #0000
	brl ControlSubExit

; bit 15 set = Directory Selection needed; bit 14 set = REMOVE is valid
SelectedScriptFlags	ds.w 1	

DifferentTypes	ds.w 1	; bit 15 set = different types of scripts
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
GetNextFlag
;
; Description:	GetNextFlag is a local subroutine for ScriptListSub.
;	It puts the pointer to the next member in <ZPTemp, the
;	pointer to the next member's string in <ZPTemp1, and
;	returns the member's ScriptFlag value in the A-reg.
;
; Inputs:	MemberNum contains the memNumber to start searching from.
;
; Outputs:	if carry is clear:
;	    A-reg = Member's ScriptFlag value
;	    <ZPTemp1 = Pointer to next member
;	    <ZPTemp = Pointer to next member's string
;	    status flags = value from loading ScriptFlag value
;	if carry is set: no more members selected
;	    <ZPTemp = 0
; External Ref:
	Import MemberNum
	Import ScriptListCtlHdl
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

; Begin the search from the member who's identified in "MemberNum"

	pha	; Room for result
	lda MemberNum	; MemNumber to start search from
	pha
	lda ScriptListCtlHdl+2 ; Handle to control
	pha
	lda ScriptListCtlHdl
	pha
	ldx #NextMember2
	jsl ToolLocator
	pla
	sta MemberNum

; If the returned member number is zero, there were no more members selected.

	bne SetUpPointer
	stz <ZPTemp
	stz <ZPTemp+2
	sec
	bra GetNextDone

; There are more marked.  Set up <ZPTemp to point to the member and <ZPTemp1 to
; point to the member's ScriptName string.

SetUpPointer	dec a	; Index beginning at zero, not one
	sta Temp

	asl a	; Multiply by six to calculate offset
	clc
	adc Temp
	asl a

	clc
	adc <ScriptListPtr
	sta <ZPTemp
	lda #0000
	adc <ScriptListPtr+2
	sta <ZPTemp+2

	lda [<ZPTemp]	; Get the pointer to the member string
	sta <ZPTemp1
	ldy #0002
	lda [<ZPTemp],y
	sta <ZPTemp1+2

; Get the ScriptFlags word from the end of the member's ScriptName string

	lda [<ZPTemp1]	; Get the lengthbyte + 1st character
	and #$00FF	; Mask off the 1st character
	inc A	; Point position following string
	tay	; Use as index...
	lda [<ZPTemp1],y	;  ...to access ScriptFlags word
	clc
GetNextDone	rts

; Miscellaneous Local data
		; bit 15 set = directory selection required
Temp	ds.w 1
	Eject
; . . . . . . . . .	. . . . . . . . . .	. . . . . . . . . .	. . .
FolderListSub
;
; FolderListSub is	called when the mouse is clicked in the
; Directory List scrolling window.  So,	checks to see if the hit
; was on the same list member as the last hit and then checks to
; see if the elapsed time since the last hit is within the limits
; set in the Control Panel.  If it is not a legitimate "double
; click", the list member that was hit and the tick count are
; recorded for comparison the next time.
;
	Import NoMemberSelected
; . . . . . . . . .	. . . . . . . . . .	. . . . . . . . . .	. . .

; First check to see if we hit the same	item a second time.

	pha	; Room for result
	pea 0000	; Start at beginning of list
	lda SelectListCtlHdl+2 ; Control's handle
	pha
	lda SelectListCtlHdl
	pha
	ldx #NextMember2
	jsl ToolLocator
	pla

;       If the member item number is null, nothing was hit.

	bne @1
	brl Finished

;       Get the member's pointer

@1	jsr GetMemPointer
	stx <ZPTemp
	stx CurrentMember
	sta <ZPTemp+2
	sta CurrentMember+2

;       Did we hit a disabled member?  If we did, nothing will be hilited, so
;       be sure to disable the Open control.

	ldy #0004	; Pick up the MemFlag byte
	lda [<ZPTemp],y
	and #%0000000011000000 ; Is it an 'invalid value'
	cmp #%0000000011000000
	bne Enabled

	sec
	ror NoMemberSelected ; (and set flag <>0)
	lda #Inactive	; Yeah!  Disable the OPEN button
	jsr OpenControl
	brl Finished	;  ...and we're done

; It is enabled.  Was it made with the mouse or the keyboard?

Enabled	lda Task.what
	cmp #mouseDownEvt
	beq MouseClick 
	stz OldMember	; key selection: donÕt allow following mouse
	stz OldMember+2	;   click to be considered a double-click
	bra ItsActive

; Made by mouse.  Was it a double click?
MouseClick	lda <ZPTemp
	ldx <ZPTemp+2

	cmp OldMember	; Is it the same as	OldMember?
	bne NotTheSame
	cpx OldMember+2
	beq TheSame

; They're not the same, so move CurrentMember to OldMember, record tick
; and be sure the OPEN button is active.

NotTheSame	sta OldMember
	stx OldMember+2

	lda Task.When
	sta OldTick
	lda Task.When+2
	sta OldTick+2

ItsActive	stz NoMemberSelected ; set flag for CheckScript
	lda #Active
	jsr OpenControl
	brl Finished

; They're the same.  Now get the difference between Task.When and the OldTick.
; Then compare it with the Control Panel setting.

TheSame	sec
	lda Task.When
	sbc OldTick
	sta TickDiff
	lda Task.When+2
	sbc OldTick+2
	sta TickDiff+2

	pha	; Room for result
	pha
	ldx #GetDblTime
	jsl ToolLocator
	pla
	sta DoubleTime	; Get maximum double-click time
	plx
	stx DoubleTime+2

	cmp TickDiff	;  ...compare the difference
	lda DoubleTime+2
	sbc TickDiff+2
	bcs @1	; It is a legitimate double click

@setupNotSame	lda CurrentMember	; Too long to be legitimate double click
	ldx CurrentMember+2
	bra NotTheSame
@1
; It IS a legitimate double click!  Concatenate the name of	CurrentMember to the
; CurrentDir name and build and display	the new list.

	jsr AddToDir
;
Finished	lda #0000
	brl ControlSubExit

; A few local variables used by ScriptListSub and FolderListSub

OldMember	ds.b 4
OldTick	ds.b 4
TickDiff	ds.b 4
DoubleTime	ds.b 4
	Eject
; . . . . . . . . .	. . . . . . . . . .	. . . . . . . . . .	. . .
AddToDir	Name
;
; AddToDir is a local subroutine.  First it will check the access
; privileges of the folder.  If we have both read and write
; privileges, it will concatenate CurrentMember to the GStr at
; <CurDirPtr, adjust the names in the special menu above the
; directory selection window, and build and display the new list.
; . . . . . . . . .	. . . . . . . . . .	. . . . . . . . . .	. . .

	lda #0002	; Get_File_Info pCount
	sta GetInfo.pCount	;  (only need pathname & access)

;       The List Mgr list is made up of Pascal Strings.  We must move the PStr
;       into our little filename buffer as a class 1 input string.

	lda CurrentMember+2	; PStr buffer handle
	pha
	lda CurrentMember
	pha
	jsl Dereference
	pea FileNameBuffer>>16 ; C1Inp buffer pointer
	pea |FileNameBuffer
	jsl PStrToC1Inp

	lda #FileNameBuffer
	sta GetInfo.pathname
	lda #^FileNameBuffer
	sta GetInfo.pathname+2

	jsr SetPrefix

	jsl GSOS
	dc.w Get_File_Info
	dc.l GetInfo
	bcc CheckAccess
	ldx GetInfo+2
	ldy GetInfo+4
	jsl Error
Exit1	brl Exit

;       Check access privileges

CheckAccess	lda GetInfo.Access
	and #%0000000000000011
	cmp #%0000000000000011 ; Read and write enabled?
	beq writeable

; Oops!  Not writeable!

	lda #AlertMsg2	   
	bra StoreAlertMsg

; writeable

writeable	lda #AlertNoMsg
StoreAlertMsg	sta AlertMsgNo
	jsr AlertMsg

; Concatenate CurrentMember to the CurDirectory name.

Concatenate
	jsl GetCurDirPtr	; Lock and dereference <CurDirHdl

	lda CurrentMember+2	; PStr buffer handle
	pha
	lda CurrentMember
	pha
	jsl Dereference
	pea GStrBuffer>>16	; GStr buffer pointer
	pea |GStrBuffer
	jsl PStrToGStr
	
	pea GStrBuffer>>16	; String to concatenate
	pea |GStrBuffer
	pei <CurDirPtr+2	; String to concatenate onto
	pei <CurDirPtr
	jsl Concat

;       Now give us a copy in Application Directory

	jsl GetAppDirPtr

@TryAgain	pei <CurDirPtr+2	; GStr source buffer
	pei <CurDirPtr
	pei <AppDirPtr+2	; GStr destination buffer
	pei <AppDirPtr
	jsl GStrToGStr

	jsl ResizeAppDirBuf
	bcs @TryAgain

	jsl UnlockAppDirHdl

	jsr BuildDirName
	jsr DispDir2Update

	jsl UnlockCurDirHdl	; Let it float til needed again

; Update the pop-up menu and display the new list.

	jsr UpdatePopUp
	jsl MakeNewList	; (always)
	bcs Exit
	jsr SetPrefix
Exit
	rts

DirLevel	ds.b 2

FileNameBuffer	ds.b 34
	Eject
; . . . . . . . . .	. . . . . . . . . .	. . . . . . . . . .	. . .
PopUpSub
;
; PopUpSub is called when the hit occured in the special PopUp
; menu above the Directory List Window.
;
; The volume name is menu item #1.  Each successive level in the hierarchy is
; the next successive menu item ID.  MenuItemID contains the ID of the last
; menu item created.  To remove items, we merely start with the item ID returned
; by GetCtlValue and keep incrementing in a loop until we get up to the value
; contained in MenuItemID.
; . . . . . . . . .	. . . . . . . . . .	. . . . . . . . . .	. . .

; First be sure that the menu is supposed to be active

	bit DirSelReq	; Is directory selection required?
	bpl PopUpDone

	pha	; The control value tells us which menu
	lda MyPopUpCtlHdl+2	;   item the user hit.
	pha
	lda MyPopUpCtlHdl
	pha
	ldx #GetCtlValue
	jsl ToolLocator
	pla	; If user selected last item created,
	cmp MenuItemID	;   there's nothing to do.
	beq PopUpDone

	jsr CloseDir	; Back up to the selected level
		;  and display new list
	jsr UpdatePopUp

PopUpDone	lda #0000
	brl ControlSubExit
	Eject
;. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
CloseDir
;
;  CloseDir is a subroutine to back-up (n) levels in the
;  directory structure as directed by the user when he makes a
;  selection in the	special menu above the directory selection
;  window.
;
;   Inputs:  A-reg contains the ID of the menu item selected.
;
;. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

CloseDirLoop	pha	; Back up, one at a time
	jsr PopOne	; Remove one name from CurDirectory
	pla
	inc a
	cmp MenuItemID
	bne CloseDirLoop

AdjustDir	jsl MakeNewList	; (always)
	jsr DispDir2Update
	bcs CloseDirExit
	jsr SetPrefix

CloseDirExit	rts
	Eject
;. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
PopOne
;	
; Search backwards for the preceeding SeparatorChar in CurDirectory
; and reset the length word to this new length
;. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

	jsl GetCurDirPtr
	jsl GetAppDirPtr

	lda [<CurDirPtr]	; Get buffer size and adjust to form
	dec a	;   index to last "real" character
	dec a	;   (ignore trailing null & separator character)
	tay

NotYet	dey
	dex
	lda [<CurDirPtr],y
	and #$00FF
 	cmp #SeparatorChar
	bne NotYet
		; Found the separator
	tya	; Convert index back to LengthWord
	dec a
	dec a
	dec a
	ldy #0002
	sta [<CurDirPtr],y
	sta [<AppDirPtr],y

	jsl ResizeCurDirBuf
	jsl ResizeAppDirBuf

	sep #$0020
	LongA Off

	LongA On
	rep #$0020

	jsl UnlockCurDirHdl	; Let it float til needed again.

	rts
	Eject
; . . . . . . . . .	. . . . . . . . . .	. . . . . . . . . .	. . .
Standard2Sub
;
; Sets bit zero of the QuitFlag
;
; . . . . . . . . .	. . . . . . . . . .	. . . . . . . . . .	. . .
	lda QuitFlag
	ora #%0000000000000001
	sta QuitFlag
	
	lda #0000	; Fall thru to ControlSubExit, below

; . . . . . . . . .	. . . . . . . . . .	. . . . . . . . . .	. . .
ControlSubExit
;
; This is the all purpose exit routine.  
; Error Code is in accumulator.
;
; . . . . . . . . .	. . . . . . . . . .	. . . . . . . . . .	. . .
	cmp #$0001	; Condition cFlag
	rts

	EndP
	End
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Installer/MainSub.asm b/IIGS.601.SRC/A.U.G/Installer/MainSub.asm
new file mode 100644
index 0000000..ce61b44
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Installer/MainSub.asm
@@ -0,0 +1 @@
+* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
*			                  *
*      A P P L E   I I g s   I N S T A L L E R   P R O G R A M   V  2 . 0     *
*                                                                             *
*                              by "Jay" Schaffer                              *
*                               and  Ron Lichty                               *
*			                  *
*  Copyright Apple Computer, Inc. 1987-1991              All Rights Reserved  *
*			                  *
* * * * * * * * * *	* * * * * * * * * *	* * * * * * * * * *	* * * * * * * * * *

	Print Push
	Print Off
	Include 'Installer.Equates'
	Print Pop

	Seg 'Main'
	SegAttr Static

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
*
* Small but commonly called procedures
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

CursorWatchOn	Proc Export
	ldx #WaitCursor	; Switch to the "watch" cursor.
	jsl ToolLocator
	rts
	EndP

CursorArrowOn	Proc Export
	ldx #InitCursor	; Switch cursor arrow back on.
	jsl ToolLocator
	rts
	EndP

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
CheckCharacter	Proc Export
*
* Description:	CheckCharacter is a subroutine to examine the
*	characteristics word obtained during a D_Info call
*	and activate/deactivate the EJECT button accordingly,
*	as well as enable/disable the ERASE DISK menu item.
*	The ERASE DISK menu item is also disabled if the
*	target disk is the boot disk or the launch disk.
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
	Import CurrentVolBuf
	Import D_DeviceID
	Import D_Info_Parms
	Import DialogFlag
	Import DisableEraseDiskMenu
	Import EjectControl
	Import Eject2Control
	Import EnableEraseDiskMenu
	Import GStrCompare
	Import LaunchVolStrBuffer
	Import VolStrBuffer
*
* Entry Points:
*	none
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
	lda D_Info_Parms+8	; Check the characteristics
	and #FormatableMedia ;  of the current drive
	beq notEraseable	; bra if not formatable

; disk is formattable: enable Erase Disk menu item? Check for boot or launch disk.

	pha	; word space for result
	pea CurrentVolBuf>>16 ; compare target
	pea |CurrentVolBuf
	pea VolStrBuffer>>16 ;  ...to boot volume
	pea |VolStrBuffer
	jsl GStrCompare
	pla
	beq notEraseable	; bra: don't erase boot volume (files open)
	
	pha	; word space for result
	pea CurrentVolBuf>>16 ; compare target
	pea |CurrentVolBuf
	pea LaunchVolStrBuffer>>16 ;  ...to launch volume
	pea |LaunchVolStrBuffer
	jsl GStrCompare
	pla
	beq notEraseable	; bra: don't erase launch volume (files open)
	
	jsr EnableEraseDiskMenu
	bra checkEject

; disable Erase Disk menu item
notEraseable	jsr DisableEraseDiskMenu

checkEject	lda D_Info_Parms+8	; Check the characteristics
	and #RemovableMedia	;  of the current drive
	beq @NotEjectable	; If media is not removable...
	lda D_Info_Parms+8
	and #RAMorROMdisk
	bne @NotEjectable	; bra if media is RAM or ROM disk

	lda D_Info_Parms+20	; Check device identification
	beq @NotEjectable	; ID = zero---means it's a DISK ][

	cmp #AppleShareFileServ ; Dim the Eject button on any
	beq @NotEjectable	    ; kind of file server.
	cmp #FileServer
	beq @NotEjectable

	lda #Active	; Else, activate the Eject button
	bra @2
@NotEjectable	lda #Inactive	; Dim the Eject button

@2	bit DialogFlag	; Which dialog is running?
	bmi @3

	jsr EjectControl
	rts

@3	jsr Eject2Control
	rts
	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
FlushEventQueue	Proc Export
*
* Description:	FlushEventQueue is called by any routine that should not
*	accept double clicks.
*
* Inputs:	none
*
* Outputs:	none
*
* External Refs:	none
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

	pha	; Flush the event queue
	pea emKeyDown+\
	    emUpdate+\
	    emMouseUp+\
	    emMouseDown+\
	    emDeskAcc
	pea 0000	; Flush everything (StopMask)
	ldx #FlushEvents
	jsl ToolLocator
	pla	; Disregard result
	rtl
	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
Dir_Reader	Proc Export
*
* Description:	Dir_Reader will find all the files within a specified
*	directory.  A file type may be specified if only files of a
*	given type are of interest.  A list of member pointers and
*	members in List Manager format is built and the handle to
*	the list and the number of members is returned.
*
*	The FileType word shall contain a ProDOS file type in the
*	low order byte.  If bit 15 is set, all files will be listed
*	and the file type will be ignored.  If bit 14 is set, all
*	files will be listed with those of the desired file type
*	marked active and the rest inactive.
*
* Inputs:	Push five parameters on the stack:
*	   Room for handle to results buffer     (4 bytes)
*	   Room for number of members value      (2 bytes)
*	   UserID (so we can call MemMgr)        (2 bytes)
*	   <CurDirPtr (current directory pointer)(4 bytes)
*	   File type (See comments above)        (2 bytes)
*
* Outputs:	Pull two parameters from stack:
*	   Number of members                    (2 bytes)
*	   Handle to buffer containing results  (4 bytes)
*	   (Results will be in List Manager format.)
*
* External Refs:
	Import Allocate
	Import BuildDirName
	Import CursorArrowOn
	Import CursorWatchOn
	Import DeRef
	Import DeReference
	Import GetCurDirPtr
	Import GetPfxName
	Import GetPfxParms
	Import UnlockCurDirHdl
	Import VNameBuffer
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

; Local Equates

MemoryHandle	equ 23	; 4-byte Handle to member buffer
NoOfMembers	equ 21	; 2-byte Number of members (result)
UserID	equ 19	; 2-byte user ID
CurDirPointer	equ 15	; 4-byte ptr to Directory name; Class 1 input; locked
FileType	equ 13	; 2-byte file type
ReturnAddress	equ 11	; 2-byte return address

Pointer	equ 7	; 4-byte pointer
FileNamePtr	equ 3	; 4-byte pointer
; D-Reg Store 	equ 1	; 2-byte D-reg storage


; Push some dummy long words on the stack so we can use them for direct-page
; pointers

	pha
	pha
	pha
	pha

	phd	; Save the Direct-Reg

; Relocate our direct page to the stack	area so we can conveniently work with
; the caller's parameters

	tsc	; Make the stack our direct-page
	tcd

; Initialize variables

	stz NoOfMembers
	stz OurCounter
	stz MemorySize
	stz MemorySize+2

; Get a handle from	the Memory Manager but don't allocate any space yet.

	lda #0000	; Size of block needed
	jsl Allocate
	stx MemoryHandle	; Store handle to results buffer
	sty MemoryHandle+2	;    (not locked)

; Set up the pathname pointer in the OPEN parameter table to point to the
; caller's directory name and OPEN the requested directory

	lda #0003	; pCount for Open call
	sta Open_Parm

	lda CurDirPointer	; already locked
	sta OpenPathname
	lda CurDirPointer+2
	sta OpenPathname+2

@1	jsl GSOS
	dc.w Open
	dc.l Open_Parm
	bcc Continue1

	jsr AskForVolume
	bcc @1
	brl Exit

; Move the reference number to the Get_Dir_Parm table

Continue1	lda OpenRefNum
	sta GetDirRefNum
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
;
; Get a directory entry - The Main Loop
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

Next_Entry
	jsl GSOS
	dc.w Get_Dir_Entry
	dc.l Get_Dir_Parm
	bcc Continue2
	cmp #EndOfDir	; No more entries?
	bne Oops
	brl BuildPointers
Oops		; We're assuming that if it isn't an
	jsr AskForVolume	;  "OutOfEntries" error, it MUST be
	bcc Next_Entry	;  a "VolumeNotFound"!!!
	brl Exit

; Check to see that	it is of a filetype	that the caller is interested in and
; if it isn't, go back and get the next entry

Continue2	bit Filetype	; Does caller want all filetypes?
	bmi Continue3	; Yes!
	bvs Continue3	; Yes!
	lda Filetype
	and #$00FF
	cmp File_Type
	bne Next_Entry
Continue3
	lda Access	; Check if file is visible
	and #%0000000000000100
	bne Next_Entry	; File is invisible

; Call the Memory Manager to make room in a buffer for it.

;       Save the current memory size as OldMemorySize for later use as
;       the offset into the buffer for the current entry

	clc
	lda MemorySize
	sta OldMemorySize
	adc LengthWord
	adc #0002	; One extra byte for a flag...
	sta MemorySize	;  ...and one for the length byte
	tax
	lda MemorySize+2
	sta OldMemorySize+2
	adc #0000
	sta MemorySize+2
	pha	; Push NewSize
	phx
	pei MemoryHandle+2	; Push the Handle
	pei MemoryHandle
	ldx #SetHandleSize
	jsl ToolLocator

; Dereference the handle, add on the index to the next entry, get the filename,
; move the filename	into the buffer, and go get the next entry

	jsr DeRefHandle	; MemoryHandle --> Pointer (not locked)

	clc
	lda Pointer
	adc OldMemorySize
	sta Pointer
	lda Pointer+2
	adc OldMemorySize+2
	sta Pointer+2

;       If we reverse the two bytes of the LengthWord, we can move over
;       one position and use it as a length byte.

	lda LengthWord
	xba
	sta LengthWord

	sep #$0030	; (Use 8-bit memory	to move bytes)
	LongA Off
	LongI Off

	ldy EntryPath	; Move the pathname
MoveLoop	lda EntryPath,y
	sta [Pointer],y
	dey
	bpl MoveLoop

; Now, figure out if this should be active or inactive.
; Bit 6, a List Manager ÒinactiveÓ flag will be transferred to memFlag in Member Record.
; Bit 0, our inactive folder flag, will remain at end of string for display routine to use.

	bit Filetype+1
	bmi ItsActive	; bit 7 on = all active
	lda File_Type	; get fileÕs type
	cmp Filetype	; compare to input parameter
	beq ItsActive	; if the same, then consider it active regardless
ItsInactive	lda #%01000000	; else doesnÕt match param: mark it inactive
	ldx File_Type	; If it's an inactive folder, set the
	cpx #SubDirectory	;  lo-bit as a flag for our display routine
	bne MarkIt
	lda #%01000001	; Mark it inactive
	bra MarkIt

ItsActive	lda Access	; Now, check privileges
	and #%00000001	; Must be readable
	cmp #%00000001
	bne ItsInactive
	lda #%00000000	; Mark it active

MarkIt	ldy EntryPath	; Put the flag at the end of the string for now
	iny
	sta [Pointer],y

	LongI On	; (Finished moving bytes)
	LongA On
	rep #$0030

	inc NoOfMembers	; Keep a running count of files
	brl Next_Entry	; Go get the next entry
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
;
; End of Main Directory Reader Loop
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
	Eject
; Before doing anything else, CLOSE the	directory and determine if
; we got any entries at all

BuildPointers	lda #0001	; pCount for Close call
	sta Open_Parm
	jsl GSOS
	dc.w Close
	dc.l Open_Parm	; Close the directory using OpenRefNum

	lda NoOfMembers	; Are there none?
	bne Continue4

; There are NO members, so no list is needed.  Simply pass back
; zero as the number of members in the list.

	brl Finished

; Build the List MgrÕs Member Record list (4 byte pointer to string, 1 memFlag byte)

;       Re-size the memory segment to make room for the pointers

Continue4	lda MemorySize
	sta OldMemorySize
	lda MemorySize+2
	sta OldMemorySize+2

	lda NoOfMembers	; Need five bytes per member
	asl a	;  ( X2 ) \
	asl a	;  ( X2 )  > = X5
	clc	;         /
	adc NoOfMembers	;  ( +1 )/
	sta PointerSize	; (Need this later for block move call)
; NOTE LIMIT:  1 word (64K) of pointers and filenames
; NOTE: this limit is implicit in putting them in the same no-cross-bank block anyway

	clc
	adc MemorySize
	sta MemorySize
	tax
	lda #0000
	adc MemorySize+2
	sta MemorySize+2

	pha	; Push NewSize
	phx
	pei MemoryHandle+2
	pei MemoryHandle
	ldx #SetHandleSize
	jsl ToolLocator

;             Move all the file name strings up to the top of the segment

	ldx MemoryHandle+2
	lda MemoryHandle
	jsl DeRef	; Dereference the handle and lock it
	sta Pointer
	stx Pointer+2

	phx	; Push source address
	pha
	clc
	adc PointerSize	; (Pointer + PointerSize)
	sta FileNamePtr
	tay
	txa	; (Pointer+2)
	adc #0000
	sta FileNamePtr+2
	pha	; Push destination address (FileNamePtr)
	phy
	lda OldMemorySize+2	; Push number of bytes
	pha
	lda OldMemorySize
	pha
	ldx #BlockMove	; source & dest of move based on now-locked hdl
	jsl ToolLocator

;       Build the pointer list

	ldy #0000
PointerLoop	lda FileNamePtr	; Move the 4-byte pointer
	sta [Pointer],y
	iny
	iny
	lda FileNamePtr+2
	sta [Pointer],y
	iny
	iny

;       Now, move that extra 'flag' byte we tacked on to the
;       end of each string, on to the end of each pointer
;       (but not bit 0, which is our disabled folder flag, not a List Mgr flag).

	lda #0000	; Clear both bytes of A-reg

	sep #$20
	LongA Off

	phy	; Save the Y register
	lda [FileNamePtr]	; Get the length byte...
	tay	;  ...put it in Y-reg...
	iny	;  ...and set it to	the 'flag' byte
	lda [FileNamePtr],y ; Get the 'Flag'...
	ply	; Restore the Y register
	and #$FE	; and out low bit: itÕs our flag, not List MgrÕs
	sta [Pointer],y	; Put flag at end of pointer

	rep #$20
	LongA On

	inc OurCounter
	lda OurCounter
	cmp NoOfMembers
	beq Finished

;       Update all the pointers and stuff for next entry

	lda [FileNamePtr]	; Get length byte
	and #$00FF	; Mask off first character
	clc
	adc FileNamePtr
	adc #0002	; Don't forget length & flag bytes
	sta FileNamePtr
	lda #0000
	adc FileNamePtr+2
	sta FileNamePtr+2
	iny
	bra PointerLoop

; Now build a name (shortened, if necessary) in CurrentDir to be displayed.

Finished	jsr BuildDirName
	jsl UnlockCurDirHdl

; Fix the stack by moving the return address down next to the results and
; adjusting the stack pointer

	lda #0000	; No errors
Exit	tax	; Save error code
	lda ReturnAddress
	sta NoOfMembers-2
	pld	; Restore caller's Direct-Reg
	tsc	; Fix the stack pointer by 'removing'
	clc	;  our work space and extra parameters
	adc #0016
	tcs
	txa	; Restore the error code
	cmp #0001	; Set/clear c-flag depending on error code
	rts
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
;
; ProDOS16 parameter tables and local storage
;
Open_Parm	dc.w 0003	; pCount
OpenRefNum	dc.w 0000	; Reference Number
OpenPathname	dc.l 00000000	; Path Name Pointer
	dc.l 00000000	; I/O Buffer Pointer

Get_Dir_Parm	dc.w 0014	; pCount
GetDirRefNum	dc.w 0000	; Reference Number
	dc.w 0000	; (reserved, must be zero)
	dc.w 0001	; Base
	dc.w 0001	; Displacement
Entry_Path	dc.l NameBuffer	; Path Name Pointer
Entry_Num	dc.w 0000	; Entry Number
File_Type	dc.w 0000	; File Type
	dc.l 00000000	; EOF
	dc.l 00000000	; Block Count
	dcb.b 8,0000000000000000 ; Creation Date and Time
	dcb.b 8,0000000000000000 ; Modification Date and Time
Access	dc.w 0000	; Access
	dc.l 00000000	; Aux Type
	dc.w 0000	; File System ID

NameBuffer	dc.w 35	; 35 bytes  (big enough for AppleShare)
LengthWord	ds.b 1	; Length word + pathname
EntryPath	ds.b 32

MemorySize	ds.b 4	; Size of memory block
OldMemorySize	ds.b 4	; Offset to next buffer entry
PointerSize	ds.b 2	; Size of seg holding member pointers
OurCounter	ds.b 2	; Loop counter
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
DeRefHandle
;
; Local subroutine to dereference the handle to the filename buffer
;
;    Inputs:  None (Handle expected in 'MemoryHandle')
;
;   Outputs:  None (Pointer stored in 'Pointer')
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

	pei MemoryHandle+2	; Dereference the handle
	pei MemoryHandle
	jsl Dereference
	pla
	sta Pointer
	pla
	sta Pointer+2
	rts
	Eject
;................................................................
AskForVolume
;
; Local subroutine to ask user to insert the needed volume if it 
; cannot be found.  (This routine is needed here because I wanted
; to make Dir_Reader as completely self contained as possible.
;................................................................
		;¥¥¥¥¥¥¥¥
	lda #VolumeNotFound	;       ¥
	sec	;       ¥
	rts	;       ¥
;¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥
	Import SimpleKeyFilter
	Import VolumeTemplate

	pha	; Save the GrafPort
	pha	;  (Don't pull the result.  Leave it on the
	ldx #GetPort	;   stack for _SetPort call upon exit.)
	jsl ToolLocator

; The address of the pathname used when the "Volume not Found" error
; was encountered is in "Pathname".

	ldx OpenPathname
	ldy OpenPathname+2
	stx Pointer
	sty Pointer+2

; Clear the NameBuffer to all spaces

	ldy #0014
	lda #$2020	; (two spaces)
@0	sta VNameBuffer,y
	dey
	dey
	bpl @0

; If the pathname begins with a number, make the appropriate Get_Prefix
; call to get a pathname that will include the volume name.

	sep #$0030
	LongA Off
	LongI Off

	ldy #01
	lda [Pointer],y
	cmp #'0'
	bcc @1
	cmp #'9'+1
	bcs @1

	LongI On
	LongA On
	rep #$0030

	and #%0000000000001111 ; Convert ASCII digit 0..8 to hex
	sta GetPfxParms+2	; Store prefix number
	bra @2

; If the pathname does not begin with a SeparatorChar the volume name
; is not included.  Make a Get_Prefix call to get a pathname that will
; include the volume name and move the name to our message buffer.

	LongA Off
	LongI Off

@1	cmp #SeparatorChar
	beq @3

	LongI On
	LongA On
	rep #$0030

	stz GetPfxParms+2	; Ask for prefix number zero
@2	jsl GSOS
	dc.w Get_Prefix
	dc.l GetPfxParms
	lda GetPfxName-1
	xba
	sta GetPfxName-1

	sep #$0030
	longA Off
	LongI Off

	ldy #1	; Skip over length byte
	lda GetPfxName,y
	sta VNAmeBuffer-1,y
	iny	; Skip over leading slash
@25	lda GetPfxName,y	; Search for 2nd slash
	cmp #SeparatorChar
	beq @5
	sta VNameBuffer-1,y
	iny
	bra @25

; We have a name that includes the desired volume name.  Move only the
; volume name to our name buffer

@3	sta VNameBuffer-1,y
@4	iny
	lda [Pointer],y
	cmp #SeparatorChar
	beq @5
	sta VNameBuffer-1,y
	tya
	cmp [Pointer]
	bne @4
@5
	LongI On
	LongA On
	rep #$0030

; Present the dialog to the user.

	jsr CursorArrowOn

	pha	; Space for result
	pea VolumeTemplate>>16 ; Pointer to template
	pea |VolumeTemplate
	pea SimpleKeyFilter>>16 ; Filter procedure
	pea |SimpleKeyFilter
	ldx #Alert
	jsl ToolLocator

	jsr CursorWatchOn	; Put the watch cursor back up

	pla	; Get ModalDialog's response
	cmp #0001
	beq HitOK

; If user hit cancel, return with the "Volume not Found" error cade in
; the A-reg and the carry set since we know the error still exists.
; Otherwise, zero the A-reg and clear the carry so the call that sent
; us here can be attempted again.

	ldx #SetPort	; ("GrafPort" is still on the stack.)
	jsl ToolLocator

	lda #VolumeNotFound
	sec
	rts

HitOK	ldx #SetPort	; ("GrafPort" is still on the stack.)
	jsl ToolLocator

	lda #0000
	clc
	rts
	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
NewList	ProcName Export
*
* Description:	Folder List:
*	NewList is a subroutine to dump the previous memory segment
*	and build a new list in a new memory segment.
*
* Inputs:	None  (Uses MyID, CurDirectory, ListFileType)
*
* Outputs:	None  (Stores ListSize2)
*
* External Refs:
	Import GetCurDirPtr
	Import GStrAsC1Inp
	Import AppFolderListHdl
	Import ListSize2
	Import MyID
	Import UnlockCurDirHdl
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

; Begin by dumping the previous memory segment.  If this is	the first time,
; there is NO previous memory segment to dump.  In that case, AppFolderListHdl
; will still point to a null pointer and _DisposeHandle WILL return an error!
; Just ignore it!

	lda AppFolderListHdl+2
	pha
	lda AppFolderListHdl
	pha
	ldx #DisposeHandle
	jsl ToolLocator

	jsl GetCurDirPtr	; Get the pointer to the GStr buffer

	pha	; Room for result
	pha
	pei <CurDirPtr+2	; Get the pointer to the sub-string
	pei <CurDirPtr	;  that constitutes a Class 1 input
	jsl GStrAsC1Inp	;  string.
	plx
	ply

 	pha	; Room for List Handle
	pha
	pha	; Room for No. of members
	lda MyID
	pha	; My ID for calling Memory Manager
	phy	; Pointer to directory name
	phx
	pea ListFileType	; File type of interest
	jsr Dir_Reader
	plx	; Don't change A-reg...it has an error code
	stx ListSize2	;  value in it.
	plx
	stx AppFolderListHdl
	plx
	stx AppFolderListHdl+2

	pha	; Save error code

	jsl UnlockCurDirHdl

	pla	; Restore error code

	rts
	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
MakeNewList	ProcName Export
*
*  Description:	Folder List:
*	MakeNewList will build a new list for the List Manager,
*	but does NOT display it.  (Uses CurDirectory.)                            *
*
*  Inputs:	None
*
*  Outputs:	None
*
* External Refs:
	Import DeReference
	Import DirSelReq
	Import DispCurrentDir
	Import DispCurrentVol
	Import DiskControl
	Import GetCurDirPtr
	Import AppFolderListHdl
	Import ListStart2
	Import NewList2Call
	Import NoMemberSelected
	Import OpenControl
	Import SelectListCtlHdl
	Import SelectWindow
	Import WindowSetUpComplete
	Import UnlockCurDirHdl
*
*  Side Effects:	The old memory segment is dumped and a new segment is
*	obtained to hold the new list.
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

	jsl GetCurDirPtr

	ldy #0002
	lda [<CurDirPtr],y	; If current directory is null, we're done
	php	; Save processor status

	jsl UnlockCurDirHdl

	plp	; Restore processor status
	bne @1

	rtl

; We've got something to do!
; but first handle data bank register in case we were called from another bank

@1	phb
	phk
	plb

	bit DirSelReq	; Are we displaying	directory or volume?
	bmi BuildList

	lda #Inactive	; Deactivate application folder selection
	jsr SelectWindow	;  window, its scroll bar, and PopUp menu
	brl Exit
;
BuildList	jsr NewList	; Build the list & store ListSize2
	bcc GoAhead
	brl Exit
;
GoAhead	jsr NewList2Call
	lda AppFolderListHdl+2	; De-reference the handle
	pha
	lda AppFolderListHdl
	pha
	jsl Dereference
	pla
	sta <ZPTemp	;  and put pointer into <ZPTemp
	pla
	sta <ZPTemp+2

; The NewList tool is TOO dumb to know that an inactive member cannot be
; selected!  So, we've got to look at the flags byte of the first member and
; determine if it is active and handle this stuff ourselves!

	bne GotAPointer	; If de-referencing	the handle returned
	lda <ZPTemp	;  a null pointer, we have a null list
	beq NoMember

GotAPointer	clc
	ror NoMemberSelected
	ldy #0004	; Check the 'active' bit
	lda [<ZPTemp],y
	and #%0000000001000000
	beq ItsOK

NoMember	sec
	ror NoMemberSelected
	lda #Inactive	; No mem selected--make OPEN inactive
	jsr OpenControl

	stz ListStart2	; No member selected
	bra ItsNotOK

ItsOK	lda [<ZPTemp],y	; Mark first member as "selected"
	ora #%0000000010000000
	sta [<ZPTemp],y

	lda #Active	; activate OPEN button
	jsr OpenControl

	lda #0001	; First member to be selected 
	sta ListStart2

ItsNotOK	
	bit WindowSetUpComplete
	bpl Exit

	lda #Active	; set it to normal (not dimmed)
	jsr DiskControl

Exit	plb	; restore the previous data bank
	rtl
	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
DeReference	Proc Export
*
* Description:	DeReference is a general purpose handle de-referencing
*	subroutine.  Simply push a handle and get back a pointer.
*
* Inputs:	Push one LongWord on the stack containing the handle to be
*	de-referenced.
*
* Outputs:	Pull one LongWord from the stack which will contain the
*	pointer associated with the above handle.
*
* External Refs:	none
*
* Side Effects:	A, X, and Y are scrambled.
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

; D-Reg Store	equ $01	; 2-bytes to save Direct-Register
; ReturnAddress	equ $03	; 3-byte return address
Pointer	equ $06	; 4-byte parameter
Handle	equ $06	; 4-byte parameter
;
	phd	; Save the caller's Direct-Register value
	tsc	; Move the stack pointer...
	tcd	;   ...into the Direct-Register
;
; The stack is now our zero-page
;
	lda [Handle]	; Get the contents of the handle
	tax
	ldy #2
	lda [Handle],y
	stx Pointer	;   and store in Pointer
	sta Pointer+2
;
; Restore the caller's Direct-Register, and we're finished.
;
	pld
	rtl
;
	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
DeRef	Proc Export
*
* Description:	DeRef locks and dereferences the handle passed in A, X (hi).
*	Results are passed back in A, X (hi).  (Stolen from HodgePodge.)
*
* Inputs:	A-reg and X-reg (hi) contain handle to dereference.
*
* Outputs:	A-reg and X-reg (hi) contain pointer.
*
* External Refs:
	Import MyZP
*
* Side Effects:	
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
	tay

	phd
	lda >MyZP
	tcd

	sty <ZPDeRef	; Store the handle
	stx <ZPDeRef+2

	ldy #4	; Lock the handle
	lda [<ZPDeRef],y
	ora #$8000
	sta [<ZPDeRef],y

	dey	; Retrieve the pointer
	dey
	lda [<ZPDeRef],y
	tax
	lda [<ZPDeRef]

	pld
	rtl

	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
CheckScript	ProcName Export
*
* Description:	CheckScript checks the current script file and determines
*	if it requires directory selection and then activates
*	and/or deactivates controls and StaticText as needed.
*
* Inputs:	none
*
* Outputs:	none
*
* External Refs:
	import CurrentVol
	Import DirSelReq
	Import DispDir2Update
	Import DispDisk2Update
	Import GetCurDirPtr
	Import InstallRemoveMode
	Import NewFolderActive
	Import NewFolderDim
	Import NoMemberSelected
	Import NoVolumes
	Import NumOfSelections
	Import OpenControl
	Import ResizeCurDirBuf
	Import SelectWindow
	Import UnlockCurDirHdl
	Import UpdatePopUp
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

; First simply check to see if there are any selections

	lda NumOfSelections
	beq NoSelectionExit

; Check DirSelReq to see whether the script needs a directory name.

	bit DirSelReq
	bmi Directory	; hi-bit set=directory name required

; hi-bit clear=The script does NOT require a directory name.

;       Erase 'Folder to Update:' and the Directory Name.  Then display 'Disk
;       to Update:' and the Volume Name

NoDirectory	jsr DispDisk2Update

;       Deactivate controls associated with directory selection

NoSelectionExit	jsr NewFolderDim

	lda #Inactive
	jsr OpenControl

;       Deactivate the directory selection window and special menu

	lda #Inactive
	jsr SelectWindow

;       Set the pop-up menu back to the first level and set current directory
;       back to the volume name.

	jsl GetCurDirPtr

	lda CurrentVol	; Set CurDirectory back to the Volume name
	ldy #0002
	sta [<CurDirPtr],y

	jsl ResizeCurDirBuf	; Resize the memory

	jsl UnlockCurDirHdl

	jsr UpdatePopUp	; Update the PopUp menu

	rts

; Script DOES require a directory name

;       Erase 'Disk to Update:' and the Volume Name.  Then display 'Directory
;       to Update:' and the Directory Name

Directory	jsr DispDir2Update

;       Activate the OPEN only if some destination folder is selected

	bit NoMemberSelected ; Activate ONLY if something is selected
	bmi @10
	lda #Active
	bra @20
@10	lda #Inactive
@20	jsr OpenControl

;       Activate the NEW FOLDER button only if non-write-protected volume is on line

	bit NoVolumes	; Activate ONLY if there's a volume on-line
	bmi @50
	lda InstallRemoveMode ; Activate INSTALL if appropriate
	and #bWriteProtect
	bne @50	  ; bra if set, should be inactive

	jsr NewFolderActive
@50
;       Activate the directory selection window and special menu

	lda #Active
	jsr SelectWindow
	jsr UpdatePopUp

	rts
	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
ReBootDialog	Proc Export
*
* Description:	ReBootDialog will display a dialog notifying the user that
*	they have replaced system files on the boot disk and must
*	re-boot the system.  If this routine returns to the caller,
*	it is because they have cancelled the quit.
*
* Inputs:	none
*
* Outputs:	none
*
* External Refs:
	Export DrawCautionIcon
	Export DrawStopIcon

	Import CancelStr
	Import CautionIconPtr
	Import EndReBootMsg
	Import QuitFlag
	Import ReBootStr
	Import ReBootMsg
	Import SimpleKeyFilter
	Import StopIconPtr
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

	pha	; Space for result
	pea ReBootTemplate>>16 ; Pointer to template
	pea |ReBootTemplate
	pea SimpleKeyFilter>>16 ; Filter procedure
	pea |SimpleKeyFilter
	ldx #Alert
	jsl ToolLocator
	pla	; Get the item hit ID

	cmp #0002	; Clear the QuitFlag if Cancel
	bcc @ReBootSystem	; ReBoot if Restart hit

	lda QuitFlag
	and #%0111111111111111 ; Clear "Quit" bit, preserve 
	sta QuitFlag	;  "ReBoot" bit
	rts

@ReBootSystem	jsl GSOS	   ; This call never returns
	dc.w OS_ShutDown
	dc.l OSShutDownParm
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

OSShutDownParm	dc.w 1	   ; pCount
	dc.w %0000000000000001 ; shutdown_flag  ReBoot w/RAM disk intact

rWidth    equ 411
rHeight   equ 62

rTop      equ (200/2)-(rHeight/2)
rLeft     equ (640/2)-(rWidth/2)+1
rBottom   equ rTop+rHeight
rRight    equ rLeft+rWidth

ReBootTemplate	dc.w rTop,rLeft,rBottom,rRight
	dc.w 5555	; ID
	dc.b $81
	dc.b $81
	dc.b $81
	dc.b $81
	dc.l ReBootButton
	dc.l CancelButton
	dc.l ReBootMessage
	dc.l Icon
	dc.l 00000000

ReBootButton	dc.w 1	; ID
	dc.w rHeight-20,rWidth-146  ; Bounds rect for button
	dc.w rHeight-8,rWidth-22
	dc.w ButtonItem	; Type
	dc.l ReBootStr	; Item descriptor
	dc.w 0000	; Item value
	dc.w 0001	; Item flag
	dc.l 00000000	; Item color

CancelButton	dc.w 2	; ID
	dc.w rHeight-20,rWidth-277  ; Bounds rect for button
	dc.w rHeight-8,rWidth-167
	dc.w ButtonItem	; Type
	dc.l CancelStr	; Item descriptor
	dc.w 0000	; Item value
	dc.w 0000	; Item flag
	dc.l 00000000	; Item color

ReBootMessage	dc.w 3333	; ID
	dc.w 7,81,rHeight-28,rWidth-10  ; Bounds rect for text
	dc.w LongStatText2+ItemDisable ; Type
	dc.l ReBootMsg	; Item descriptor
	dc.w EndReBootMsg-ReBootMsg ; Item value
	dc.w 0000	; Item flag
	dc.l 00000000	; Item color

Icon	dc.w 0004		; ItemID
	dc.w 8,16,27,74		; ItemRect
	dc.w UserItem+ItemDisable ; ItemType
	dc.l DrawStopIcon	; ItemDescr
	dc.w 0000		; ItemValue
	dc.w 0000		; ItemFlag
	dc.l 00000000		; ItemColor

	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
DrawStopIcon	Name
;
; Draws the stop sign icon into the Dialog.
; DrawCautionIcon draws the caution sign icon into the Dialog.
; Called only by Dialog Manager, when itÕs implementing various dialog templates.
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

	lda >StopIconPtr+2	; Stop Sign icon pointer
	pha
	lda >StopIconPtr
	pha
	bra doIcon

DrawCautionIcon	lda >CautionIconPtr+2 ; Caution Sign icon pointer
	pha
	lda >CautionIconPtr
	pha

doIcon	pea 0	; DisplayMode
	lda #18	; Horizontal position (LEFT)
	pha
	lda #8	; Vertical position	(TOP)
	pha
	ldx #DrawIcon
	jsl ToolLocator

	lda 1,s	; get return address
	sta 7,s	; move to proper location
	lda 2,s	;  above input parameters
	sta 8,s

	pla	; move stack pointer up
	pla	;  to new return address location
	pla
	rtl
	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
Error	Proc Export
*
* Description:	This routine will display an alert box identifying the
*	error.  NOTE that BadScriptFormat is special cased and
*	will also display volume/path name information.  Also,
*	VolumeNotFound is not handled here, GS/OS handles it.
*
* Inputs:	A-reg: Contains error code.
*	(Expects <ZPTemp to point to current FileSpec field.)
*
* Outputs:	c-flag: set=error was reported, clear=no error
*
* External Refs:
	Import CursorArrowOn
	Import CursorWatchOn
	Import DestMsg
	Import DrawStopIcon
*	Import Err(nn)
	Print Push
	Print Off
	Import Err27
	Import Err28
	Import Err2B
	Import Err2E
	Import Err40
	Import Err43
	Import Err44
	Import Err45
	Import Err46
	Import Err47
	Import Err48
	Import Err49
	Import Err4A
	Import Err4B
	Import Err4C
	Import Err4D
	Import Err4E
	Import Err50
	Import Err51
	Import Err52
	Import Err57
	Import Err81
	Import Err82
	Import Err83
	Import Err84
	Import Err85
	Import Err86
	Import Err87
	Import Err88
	Import Err89
	Import Err8A
	Import Err8B
	Import Err8C
	Import Err8D
	Import Err8E
	Import Err8F
	Import Err90
	Print Pop
	Import GetPfxName
	Import GetPfxParms
	Import InstallRemoveMode
	Import Msg
	Import OKStr
	Import OneSimpleKeyFilter
	Import PatchErrorHere
	Import SimpleKeyFilter
	Import SourceMsg
	Import UpdateFlag
	Import VNameBuffer
	Import VolumeTemplate
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

; Since we are now letting GS/OS handle all the "Ask For Volume" stuff, we
; never need to handle a "Volume Not Found" error.

	cmp #VolumeNotFound
	bne @GoAhead1
@IgnoreIt	sec
	rtl

; There is also another special error condition we can ignore.  When there are
; no volumes on line, GS/OS calls that need the volume name will fail because
; the Installer nulls them out.  So we can let syntax errors pass on through
; if there are no volumes on line.

@GoAhead1	cmp #PathSyntax
	bne @GoAhead2

	tax	; Save the error code
	lda >InstallRemoveMode ; Are there any volumes on line
	and #bNoVols	; Isolate "no volumes on line" bit
	php	; preserve the status flags
	txa	; restore the error code
	plp	; restore the status flags
	bne @IgnoreIt

; We've got a real-live, honest-to-goodness error to report!

@GoAhead2	phb	; Save callers bank
	phk
	plb	;  and set to current bank

; The error code is in the A-reg and the address of the pathname used when the 
; "Volume not Found" error was encountered is in X and Y.

	sta Error_Code
	stx <NameTemp	; Used only for "AskForVolume"
	sty <NameTemp+2

	jsr CursorArrowOn

	pha	; Save the GrafPort
	pha	;  (Don't pull the result.  Leave it on the
	ldx #GetPort	;   stack for _SetPort call upon exit.)
	jsl ToolLocator

; If we have a "Bad Script Format", "Pathname Syntax", or "File Not Found"
; error, we want to handle that special by identifying the source and
; destination pathnames.

	lda Error_Code
	cmp #$0086
	beq @00
	cmp #FileNotFound
	beq @00
	cmp #PathNotFound
	beq @00
	cmp #PathSyntax
	bne @0
@00	jsr DispNames
	bra ReportError

; If we have a "Volume not Found" error, we want to handle that special with a
; dialog asking for the correct volume.

@0	cmp #VolumeNotFound
	bne ReportError
	brl AskForVolume

; An error occurred.

ReportError	lda Error_Code	; get error code back into a-reg

	sep #$0030	; Go into 8 bit A &	X for this
	LongA Off
	LongI Off

	ldy #00	; Try to identify the error
Loop	cmp ErrNums,y
	beq KnownErr	; We know it - say something smart
	iny
	bcs Loop

	LongI On	; Back to 16 bit mode
	LongA On
	rep #$0030

; Use a generic message

	pha	; Unsigned integer to be converted
	pea PatchErrorHere>>16 ; Pointer to output string
	pea |PatchErrorHere
	pea 0004	; Length of output string
	ldx #Int2Hex
	jsl ToolLocator

	lda Msg
	and #$00FF	; Keep only length byte
	sta ErrMsgLength
	lda #Msg+1
	sta ErrMsgPtr
	lda #^Msg+1
	sta ErrMsgPtr+2
	bra ShowDialog

; Display a pre-defined error message

KnownErr
	LongI On	; Back to 16 bit mode
	LongA On
	rep #$0030

	tya
	asl a
	asl a
	tay

	lda ErrPtrs,y
	sta <ErrMsgTemp
	sta ErrMsgPtr
	lda ErrPtrs+2,y
	sta <ErrMsgTemp+2
	sta ErrMsgPtr+2

	lda [<ErrMsgTemp]	; First set up the message length
	and #$00FF
	sta ErrMsgLength

	inc ErrMsgPtr	; Then set up the message pointer
	bne ShowDialog
	inc ErrMsgPtr+2

; Also, display the source and destination pathname info, if appropriate.

ShowDialog	stz SourceMsgItemPtr
	stz SourceMsgItemPtr+2

	lda Error_Code
	cmp #$0086
	beq @00
	cmp #FileNotFound
	beq @00
	cmp #PathSyntax
	bne @000

@00	lda >UpdateFlag	; If an update script is NOT currently
	bpl @000	;   executing, don't display names!

	lda #SourceMsgItem
	sta SourceMsgItemPtr
	lda #^SourceMsgItem
	sta SourceMsgItemPtr+2

;;;	lda PathnamesMsg	; Get the LengthByte
;;;	and #$00FF	; Mask off first character
;;;	sta Pathnames_Length ; Store in template

@000	pha	; Space for result
	pea StopTemplate>>16 ; Pointer to template
	pea |StopTemplate
	pea OneSimpleKeyFilter>>16 ; Filter procedure
	pea |OneSimpleKeyFilter
	ldx #Alert
	jsl ToolLocator
	pla	; Get the item hit and ignore it.

	jsr CursorWatchOn	; Put watch cursor back up.

; The "port" upon entry is still on the stack

	ldx #SetPort
	jsl ToolLocator

	lda Error_Code	; restore error code
	sec	; keep carry set
	plb
	rtl
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
; Error dialog template

sWidth  equ 500
sHeight equ 100

sTop      equ (200/2)-(sHeight/2)
sLeft     equ (640/2)-(sWidth/2)
sBottom   equ sTop+sHeight
sRight    equ sLeft+sWidth

StopTemplate 	dc.w sTop,sLeft,sBottom,sRight
	dc.w 6666	; ID
	dc.b $81
	dc.b $81
	dc.b $81
	dc.b $81
	dc.l OKButton
	dc.l Icon
	dc.l ErrorMsgItem
SourceMsgItemPtr	dc.l SourceMsgItem
	dc.l SourcePathnameItem
	dc.l DestMsgItem
	dc.l DestPathnameItem
;;;	dc.l Pathnames_Msg
	dc.l 00000000

OKButton	dc.w 0001	; ID
	dc.w sHeight-19,sWidth-87  ; Bounds rect for button
	dc.w sHeight-8,sWidth-22
	dc.w ButtonItem	; Type
	dc.l OKStr	; Item descriptor
	dc.w 0000	; Item value
	dc.w 0001	; Item flag
	dc.l 00000000	; Item color

Icon	dc.w 0002		; ItemID
	dc.w 8,18,28,76		; ItemRect
	dc.w UserItem+ItemDisable	; ItemType
	dc.l DrawStopIcon		; ItemDescr
	dc.w 0000		; ItemValue
	dc.w 0000		; ItemFlag
	dc.l 00000000		; ItemColor

ErrorMsgItem	dc.w 0003	; ID
	dc.w 32,18,50,sWidth-16  ; Bounds rect for text
	dc.w LongStatText2+ItemDisable ; Type
ErrMsgPtr	dc.l Msg	; Item descriptor
ErrMsgLength	dc.w 0000	; Item value
	dc.w 0000	; Item flag
	dc.l 00000000	; Item color

SourceMsgItem	dc.w 0004	; ID
	dc.w 50,18,60,71	; Bounds rect for text
	dc.w StatText+ItemDisable ; Type
	dc.l SourceMsg	; Item descriptor
	dc.w 0000	; Item value
	dc.w 0000	; Item flag
	dc.l 00000000	; Item color

SourcePathnameItem	dc.w 0005	; ID
	dc.w 50,76,60,sWidth-16  ; Bounds rect for text
	dc.w LongStatText+ItemDisable ; Type
SourcePathname	dc.l 00000000	; Item descriptor
SourcePathLength	dc.w 0000	; Item value
	dc.w 0000	; Item flag
	dc.l 00000000	; Item color

DestMsgItem	dc.w 0006	; ID
	dc.w 60,18,70,71	; Bounds rect for text
	dc.w StatText+ItemDisable ; Type
	dc.l DestMsg	; Item descriptor
	dc.w 0000	; Item value
	dc.w 0000	; Item flag
	dc.l 00000000	; Item color

DestPathnameItem	dc.w 0007	; ID
	dc.w 60,76,70,sWidth-16  ; Bounds rect for text
	dc.w LongStatText+ItemDisable ; Type
DestPathname	dc.l 00000000	; Item descriptor
DestPathLength	dc.w 0000	; Item value
	dc.w 0000	; Item flag
	dc.l 00000000	; Item color
;;;
;;;Pathnames_Msg	dc.w 3	; ID
;;;	dc.w 50,18,70,sWidth-16  ; Bounds rect for text
;;;	dc.w LongStatText2+ItemDisable ; Type
;;;Pathnames_Pointer dc.l PathnamesMsg+1 ; Item descriptor
;;;Pathnames_Length	dc.w 81	; Item value
;;;	dc.w 0000	; Item flag
;;;	dc.l 00000000	; Item color

Error_Code	ds.b 2

ErrNums	dc.b $27,$28,$2B,$2E,$40,$43,$44,$45,$46 ; ProDOS errors
	dc.b $47,$48,$49,$4A,$4B,$4C,$4D,$4E,$50
	dc.b $51,$52,$57

	dc.b $81,$82,$83,$84,$85,$86,$87,$88,$89 ; Internal errors
	dc.b $8A,$8B,$8C,$8D,$8E,$8F,$90
	dc.b $FF		; End of list flag

ErrPtrs	dc.l Err27,Err28,Err2B,Err2E,Err40,Err43,Err44,Err45,Err46
	dc.l Err47,Err48,Err49,Err4A,Err4B,Err4C,Err4D,Err4E,Err50
	dc.l Err51,Err52,Err57

	dc.l Err81,Err82,Err83,Err84,Err85,Err86,Err87,Err88,Err89
	dc.l Err8A,Err8B,Err8C,Err8D,Err8E,Err8F,Err90
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
;
; This is the special routine used to build and display the
; source and destination pathnames for certain errors.
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

Pathnames	equ $0010	; Offset to pathnames after script compaction

DispNames	lda >UpdateFlag	; If an update script is NOT currently
	bmi @Continue	;   executing, don't display names!

	stz SourceMsgItemPtr
	stz SourceMsgItemPtr+2

	rts
@Continue
	lda #SourceMsgItem
	sta SourceMsgItemPtr
	lda #^SourceMsgItem
	sta SourceMsgItemPtr+2

	lda <ZPTemp	; If <ZPTemp=zero, forget it!
	ora <ZPTemp+2
	beq @Exit

; Store the pathname length and point to the source pathname

	ldy #Pathnames
	lda [<ZPTemp],y
	sta SourcePathLength

	clc	; Get pointer to string
	lda <ZPtemp
	adc #Pathnames+2
	sta SourcePathName
	lda <ZPTemp+2
	adc #0000
	sta SourcePathname+2

;;;	sep #$20
;;;	LongA Off
;;;
;;;	ldy #Pathnames	; Point to pathnames
;;;	ldx #$FFFF	; Move the source pathname
;;;	lda [<ZPTemp],y
;;;	sta NameLength
;;;@3	iny
;;;	inx
;;;	lda [<ZPTemp],y
;;;	sta SourcePathname,x
;;;	cpx NameLength
;;;	beq @4
;;;	cpx #(PathSize/2)-1
;;;	beq @MoveDest
;;;	bra @3
;;;
;;;@4	lda #' '	; Pad remainder with spaces
;;;@5	sta SourcePathname,x
;;;	inx
;;;	cpx #PathSize/2
;;;	bne @5

; Store the pathname length and point to the destination pathname

	clc	; Get pointer to class 1 string
	lda <ZPtemp
	adc #Pathnames+2
	adc SourcePathLength
	sta <ZPTemp2
	lda <ZPTemp+2
	adc SourcePathLength+2
	sta <ZPTemp2+2

	lda [<ZPtemp2]	; Store string lenght
	sta DestPathLength

	
	ldx <ZPTemp2	; Adjust pointer to beginning of string
	lda <ZPTemp2+2
	inx
	bne *+3
	inc a
	inx
	bne *+3
	inc a

	stx DestPathName	; Store the pointer
	sta DestPathname+2
;;;
;;;@MoveDest	ldx #$FFFF	; Move the destination pathname
;;;	lda [<ZPTemp],y
;;;	and #$00FF
;;;	sta NameLength
;;;@6	iny
;;;	inx
;;;	lda [<ZPTemp],y
;;;	sta DestPathname,x
;;;	cpx NameLength
;;;	beq @7
;;;	cpx #(PathSize/2)-1
;;;	beq @Done
;;;	bra @6
;;;
;;;@7	lda #' '	; Pad remainder with spaces
;;;@8	sta DestPathname,x
;;;	inx
;;;	cpx #PathSize/2
;;;	bne @8
;;;@Done	
;;;	LongA On
;;;	rep #$0020
@Exit	rts

NameLength	dc.w 0000

	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
;
; This is the special routine used to ask the user to insert the
; missing volume when a "Volume not Found" error is encountered.
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

AskForVolume		;¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥
	ldx #SetPort	; ("GrafPort" is still on the stack¥
	jsl ToolLocator	;   for resetting the port.)       ¥
		;                                  ¥
	lda #VolumeNotFound	;                                  ¥
	sec	;                                  ¥
	rts	;                                  ¥
;¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥
; Clear the NameBuffer to all spaces

	ldy #0014
	lda #$2020	; (two spaces)
@0	sta VNameBuffer,y
	dey
	dey
	bpl @0

; If the pathname begins with a number, make the appropriate Get_Prefix
; call to get a pathname that will include the volume name.

	sep #$0030
	LongA Off
	LongI Off

	lda #01
	lda [<NameTemp],y
	cmp #'0'
	bcc @1
	cmp #'9'+1
	bcs @1

	LongI On
	LongA On
	rep #$0030

	and #%0000000000001111 ; Convert ASCII digit 0..8 to hex
	sta GetPfxParms+2	; Store prefix number
	bra @2

; If the pathname does not begin with a SeparatorChar the volume name
; is not included.  Make a Get_Prefix call to get a pathname that will
; include the volume name and move the name to our message buffer.

	LongA Off
	LongI Off

@1	cmp #SeparatorChar
	beq @3

	LongI On
	LongA On
	rep #$0030

	stz GetPfxParms+2	; Ask for prefix number zero
@2	jsl GSOS
	dc.w Get_Prefix
	dc.l GetPfxParms
	lda GetPfxName-1
	xba
	sta GetPfxName-1

	sep #$0020
	LongA Off
	LongI Off

	ldy #1	; Skip over length byte
	lda GetPfxName,y
	sta VNameBuffer-1,y
	iny	; Skip over leading slash
@25	lda GetPfxName,y	; Search for 2nd slash
	cmp #SeparatorChar
	beq @5
	sta VNameBuffer-1,y
	iny
	bra @25

; We have a name that includes the desired volume name.  Move only the
; volume name to our name buffer

@3	sta VNameBuffer-1,y
@4	iny
	lda [<NameTemp],y
	cmp #SeparatorChar
	beq @5
	sta VNameBuffer-1,y
	tya
	cmp [<NameTemp]
	bne @4
@5
	LongI On
	LongA On
	rep #$0030

; Present the dialog to the user.

	pha	; Space for result
	pea VolumeTemplate>>16 ; Pointer to template
	pea |VolumeTemplate
	pea SimpleKeyFilter>>16 ; Filter procedure
	pea |SimpleKeyFilter
	ldx #Alert
	jsl ToolLocator

	jsr CursorWatchOn	; Put the watch cursor back up

	pla	; Get ModalDialog's response
	cmp #0001
	beq HitOK

; If user hit cancel, return with the "Volume not Found" error cade in
; the A-reg and the carry set since we know the error still exists.
; Otherwise, zero the A-reg and clear the carry so the call that sent
; us here can be attempted again.

	ldx #SetPort	; ("GrafPort" is still on the stack
	jsl ToolLocator	;   for resetting the port.)

	lda #VolumeNotFound
	sec
	rts

HitOK	ldx #SetPort	; ("GrafPort" is still on the stack
	jsl ToolLocator	;   for resetting the port.)

	lda #0000
	clc
	rts
	ENDP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
AlertMsg	Proc Export
*
* Description:	AlertMsg is a routine to draw the 'talking head' Icon followed
*	by an alert message at the bottom of the Installer window.
*
*
*   Inputs:	none    AlertMsgNo must contain new message number
*	        hi-bit used to indicate if message should
*	        remain until changed (hi-bit on) or be
*	        erased on next action (hi-bit clear).
*
* Outputs:	none
*
* External Refs:
	Import AlertMsgNo
	Import AlertPtrs
	Import DialogFlag
	Import DialogPort
	Import Msg1
	Import Msg2
	Import Msg3
	Import Msg4
	Import Msg5
	import OldMsgNo
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

; Don't attempt to draw into the Standard Update Dialog!

	bit DialogFlag
	bpl Begin
	brl AlertDone

Begin	pha	; Space for result
	pha
	ldx #GetPort	; Get current GrafPort
	jsl ToolLocator	; leave result on stack for SetPort at end

; Same message, or new one?

	lda AlertMsgNo
	beq SetGrafPort	; branch if no message
	cmp OldMsgNo
	bne RedrawAlert1	; branch if new message
	bra AlertDone1	; done if same message

; No message at all: erase old message unless its hi bit is set.
; Set grafPort to our's

SetGrafPort	lda DialogPort+2
	pha
	lda DialogPort
	pha
	ldx #SetPort
	jsl ToolLocator

; Check the hi-bit to see if the message should be continuously displayed
; until changed.

	lda OldMsgNo
	bmi AlertDone1

; Erase the old message

	pea IconRect>>16
	pea |IconRect
	ldx #EraseRect
	jsl ToolLocator

	pea Box>>16
	pea |Box
	ldx #EraseRect
	jsl ToolLocator

	stz OldMsgNo

AlertDone1	bra AlertExit

; New message (different from last message)
; Check to see if we need to print anything

RedrawAlert1	sta OldMsgNo	; AlertMsgNo -> OldMsgNo
	pha	; save message number value

; First, display the 'talking head' Icon.

	pha	; space for result
	pha
	pea rIcon
	pea rIconNoteID>>16
	pea |rIconNoteID
	ldx #LoadResource
	jsl ToolLocator	; handle of resource left on stack

	jsl DeReference	; pointer to talking head icon left on stack

	pea 0	; DisplayMode
	lda IconRect+2	; Horizontal position (LEFT)
	pha
	lda IconRect	; Vertical position	(TOP)
	pha
	ldx #DrawIcon
	jsl ToolLocator

; Set up the correct message pointer and length

	pla	; recover message number value
	dec a
	asl a	; Get the string pointer into a
	asl a	;  temporary zero page location
	tay
	lda AlertPtrs,y
	sta <ZPTemp
	iny
	iny
	lda AlertPtrs,y
	sta <ZPTemp+2

	lda [<ZPTemp]	; Retrieve the length byte
	and #$00FF	; Eliminate extra byte
	tax	; save message length in x

	inc <ZPTemp	; Point to 1st character of string
	bne LocalLabel
	inc <ZPTemp+2
LocalLabel

; Now display the desired message

	lda <ZPTemp+2	; Text pointer
	pha
	lda <ZPTemp
	pha
	phx	; Text length
	pea Box>>16	; Rectangle pointer
	pea |Box
	pea 0002	; Justification (0=left)
	ldx #LETextBox2
	jsl ToolLocator

AlertExit	ldx #SetPort	; port left on stack by GetPort above
	jsl ToolLocator

AlertDone	rts
	Eject

; Data for the above subroutine

IconTop	equ Height
IconLeft	equ 2
IconHeight	equ 20
IconWidth	equ 24

IconRect	dc.w IconTop,IconLeft,IconTop+IconHeight,IconLeft+(IconWidth*2)

Box	dc.w IconTop-1,IconWidth*2+IconLeft+2,Height+20,Width-2

	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
UpdateMainDialog	Proc Export
*
* Description:	This routine will force an update of the Installer's 
*	Customized Installation pseudo dialog window.
*
* Inputs:	none
*
* Outputs:	none
*
* External Refs:
	Import BoxRect
	Import CustomDrawProc
	Import DialogPort
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

	pea BoxRect>>16	; Mark the entire pseudo dialog window
	pea |BoxRect	;  as invalid to force redrawing
	ldx #InvalRect	;  everything.
	jsl ToolLocator

	lda >DialogPort+2
	pha
	lda >DialogPort
	pha
	ldx #BeginUpdate
	jsl ToolLocator

	jsl CustomDrawProc

	lda >DialogPort+2
	pha
	lda >DialogPort
	pha
	ldx #EndUpdate
	jsl ToolLocator

	rtl
	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
UpdateEasyDialog	Proc Export
*
* Description:	This routine will force an update of the Installer's
*	Easy Update window.
*
* Inputs:	none
*
* Outputs:	none
*
* External Refs:
	Import eBoxRect
	Import StandardDrawProc
	Import StandardPort
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

	pha	; Space for result
	pha
	ldx #GetPort	; (Save current GrafPort)
	jsl ToolLocator	; (and leave on stack)

	lda >StandardPort+2
	pha
	lda >StandardPort
	pha
	ldx #SetPort
	jsl ToolLocator

	pea eBoxRect>>16	; Mark the entire pseudo dialog window
	pea |eBoxRect	;  as invalid to force redrawing
	ldx #InvalRect	;  everything.
	jsl ToolLocator

	lda >StandardPort+2
	pha
	lda >StandardPort
	pha
	ldx #BeginUpdate
	jsl ToolLocator

	jsl StandardDrawProc

	lda >StandardPort+2
	pha
	lda >StandardPort
	pha
	ldx #EndUpdate
	jsl ToolLocator

	ldx #SetPort	; (Restore the GrafPort)
	jsl ToolLocator	; (pointer still on stack)

	rtl
	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
MakeColon	Proc Export
*
* Description:	This routine will convert all "slash" pathname separators
*	into colons.
*
* Inputs:	PushLong {Pascal string pathname pointer}
*
* Outputs:	none
*
* External Refs:	none
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

StringPtr	equ 6
ReturnAddress	equ 3
; D-reg storage	equ 1

	phd
	tsc
	tcd

	sep #$0020
	longA Off
	LongI Off

	ldx #':'
	lda [StringPtr]
	tay
@Loop	lda [StringPtr],y
	cmp #'/'
	bne @1
	txa
	sta [StringPtr],y
@1	dey
	bne @Loop

	LongI On
	LongA On
	rep #$0030

	lda ReturnAddress,s	; Move the return address up
	sta StringPtr+1,s	;  past the parameters that were
	lda ReturnAddress+1,s ; passed on the stack.
	sta StringPtr+2,s

	pld
	tsc
	clc
	adc #StringPtr-2
	tcs
	rtl
	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
NextDevice	ProcName Export
*
* Description:	This code will pre-check that VNameBuffer and CurrentVol
*	contain the same volume name before falling through to
*	NextEntry1.
*
* Inputs:	none
*
 Export NextDevice1
*
* Description:	This entry point will advance to the next on-line device
*	that is a readable/writeable block device and set controls
*	as appropriate for whichever dialog is currently running.
*
*	TargetSetUpComplete: 0 = first time into Easy Update:
*	   looking only for installable media (writeable, not boot or install disks, ...).
*
* Inputs:	none
*
 Export NextSameDevice
*
* Description:	This entry point will check the on-line device
*	that was previously online, and set controls
*	as appropriate for whichever dialog is currently running.
*	If not acceptable, it will advance to the next on-line device
*	as described above.
*
* Inputs:	none
*
 Export NextThisDevice
*
* Description:	This entry point will advance to the on-line device
*	specified by the device number in the accumulator, provided
*	that it is a readable/writeable block device, and set controls
*	as appropriate for whichever dialog is currently running.
*	If not acceptable, it will advance to the next on-line device
*	as described above.
*
* Inputs:	A = devnum
*
*
*
* Outputs:	carry set if did not advance to another disk, or if no disks online
*
* External Refs:
	Import AlertMsgNo
	Import BootVolTest
	Import CheckCharacter
	Import CheckVolume
	Import ConditionBtns
	Import CurrentDir
	Import CurrentVol
	Import CurrentVolBuf
	Import CursorArrowOn
	Import CursorWatchOn
	Import D_Cont_DevNum
	Import D_Cont_Parms
	Import D_DeviceNum
	Import D_Info_Parms
	Import DialogFlag
	Import Dev_Name
	Import DiskNamesTest
	Import DispDir2Update
	Import DispDisk2Update
	Import DispDiskEasy
	Import DirSelReq
	Import EasyBtnDim
	Import EjectControl
	Import Eject2Control
	Import GetAppDirPtr
	Import GetCurDirPtr
	Import GStrToGStr
	Import InstallRemoveMode
	Import ListSize2
	Import ListStart2
	Import MyPopUpControl
	Import MyPopUpCtlHdl
	Import NewFolderDim
	Import NewList2Call
	Import NoVolumesOnLine
	Import NumOfSelections
	Import OpenControl
	Import ResizeAppDirBuf
	Import ResizeCurDirBuf
	Import SelectWindow
	Import SetInstallRemove
	Import SetPrefix
	Import TargetSetUpComplete
	Import UnlockAppDirHdl
	Import UnlockCurDirHdl
	Import UpdatePopUp
	Import VNameBuffer
	Import VolumesOnLine
	Import WindowSetUpComplete
*
* Exports:
	Export GetAccessParms
	Export File_Sys_ID
	Export Volume_Parms
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
	Eject

; This entry point must check the volume name in VNameBuffer against
; the volume name in CurDirectory and be sure they are the same
; before falling through to "NextDevice1", below.

	sep #$0030
	LongA Off
	LongI Off

	ldy #00
@Loop	iny
	cpy CurrentVol
	beq @NextDevice1
	lda CurrentVol+1,y ; (Skip length byte)
	cmp #SeparatorChar
	beq @NextDevice1
	cmp #'a'	; Convert to UPPERcase if necessary
	bcc @StoreTemp
	cmp #'z'+1
	bcs @StoreTemp
	and #%11011111
@StoreTemp	sta Temporary
	lda VNameBuffer,y	; (No length byte)
	cmp #'a'
	bcc @Compare
	cmp #'z'+1
	bcs @Compare
	and #%11011111
@Compare	cmp Temporary
	beq @Loop

	LongI On
	LongA On
	rep #$0030

	lda #0000	; Signify: did not advance
	sec
	rts
@NextDevice1
	LongI On
	LongA On
	rep #$0030
	Eject

; Set a counter which will count down to zero after it has been incremented
; twice so we can stop the search if no volumes are on line.

NextThisDevice	sta D_DeviceNum	; store device number to D_Info parameters
NextSameDevice	lda #0002
	sta SearchFlag
	bra GetDeviceInfo

NextDevice1	Name	; ENTRY POINT & debugging Name for NiftyList
	lda #0002
	sta SearchFlag

; Make a GS/OS D_Info call to the next device

GetDInfo	inc D_DeviceNum

GetDeviceInfo	jsl GSOS
	dc.w D_Info
	dc.l D_Info_Parms
	bcs @1
	brl NoError

; If we got back an "InvalidDevNum" error, we're out of devices, so 
; set the D_Info_DevNum back to 0 and try again.

@1	stz D_DeviceNum
	dec SearchFlag
	bne GetDInfo

; We've been through the complete list and then some: no devices to be found!
;         If pre-setup: no installable media: point at boot device

	jsr NoVolumesOnLine	; Indicate no Volumes on line

	lda TargetSetUpComplete
	bmi @ItsRunning
	stz D_DeviceNum	; make next device number incr to boot volume
	bra @OutaHere

;         Not during setup: Dim the Install and Remove buttons
;          and notify the user there are no volumes on line.

@ItsRunning	lda #$008A	; Notify the user
	jsl Error

	jsr DisableEraseDiskMenu ; disable the Erase Disk menu item

	bit DialogFlag
	bmi @StandardDialog

; The Customized Installation Dialog is running.

	lda #Inactive	; Dim the Eject button
	jsr EjectControl

	lda #Inactive	; Dim the Open button
	jsr OpenControl

	jsr NewFolderDim	; Dim the New Folder button

	lda #Inactive
	jsr SelectWindow

	jsr NullListAndPopup ; null list, popup
	bra @NoVolumesExit

;        The Standard Update Dialog is currently running.

@StandardDialog	jsr EasyBtnDim	; Dim the "Begin Standard Update" button

	lda #Inactive	; Dim the "Eject" button
	jsr Eject2Control

@NoVolumesExit
	jsl GetCurDirPtr	; Dereference & lock <CurDirHdl
	jsl GetAppDirPtr	; Dereference & lock <CurDirHdl
	ldy #0002	; Clear the volume name
	lda #0000
	sta [<CurDirPtr],y
	sta [<AppDirPtr],y
	stz CurrentVol
	jsl UnlockCurDirHdl	; Let <CurDirHdl float til needed again
	jsl UnlockAppDirHdl	; Let <AppDirHdl float til needed again

	bit DialogFlag
	bpl @DispCustom	; bra if Custom Install

	jsr DispDiskEasy	; Easy Update: invalidate rect
	bra @Done

@DispCustom	jsr DispDisk2Update	; Custom: Redisplay "Disk to Update:"

@Done	lda #$008A	; Report the error to the caller
	sec
@OutaHere	rts

; We got back a legitimate device name.  Get the volume name and update
; CurDirectory to show the new volume as the current directory too.
; Then update the pop-up menu.

NoError	jsl GSOS
	dc.w Volume
	dc.l Volume_Parms
	bcc @GotAVolume

@GetDInfo1	brl GetDInfo	; Got an error, try next device

;       Check that it is a readable block device

@GotAVolume	lda D_Info_Parms+8	; Check the characteristics
	and #ReadAllowed+BlockDevice
	cmp #ReadAllowed+BlockDevice
	bne @GetDInfo1	; Can't install on this, try again

;              condition the Eject buttons

	lda TargetSetUpComplete ; first time into Easy Update,
	beq @noConditioning	;   not conditioning buttons

	jsr CheckCharacter	; condition Eject button, Erase menu item (either screen)

;              If it is NOT writeable, disable INSTALL and REMOVE and notify the user.

@noConditioning	lda D_Info_Parms+8
	and #WriteAllowed
	beq @NotWriteEnabled

;              Last thing, check the access privileges.

	jsl GSOS
	dc.w Get_File_Info
	dc.l GetAccessParms

;              If not read-enabled, forget it!

	lda GetAccessParms+6
	and #%0000000000000001 ; Read enabled ?
	beq @GetDInfo1	   ; No, try next device

;       Activate/deactivate INSTALL and/or REMOVE buttons based on
;       whether the volume is write-protected or write-enabled.

	jsl CheckVolume	; check CurrentVol
	bmi @NotWriteEnabled ; If write-protected, dim control
	bvc @ProDOSVol	; ProDOS writeable media always ok to continue

;             non-ProDOS volume: not installable by Easy Update

	lda TargetSetUpComplete ; first time into Easy Update, looking for
	beq @GetDInfo1	;   installable media only; look at next device

;             ProDOS or non-ProDOS volume: continue

@ProDOSVol	lda GetAccessParms+6
	and #%0000000000000010 ; Isolate write bit
	bne @WriteEnabled

;              The volume is NOT write-enabled!  Deactivate INSTALL and REMOVE
;              and notify the user that the disk is not writeable.

@NotWriteEnabled	lda TargetSetUpComplete ; first time into Easy Update, looking for
@beqGetDInfo1	beq @GetDInfo1	;   installable media only

	lda InstallRemoveMode
	ora #bWriteProtect	; force WriteProtect flag to 1
	sta InstallRemoveMode

	bit DialogFlag
	bmi @StandardDialog1

	jsr SetInstallRemove ; custom install

	lda #$0004
	bra @1

;             Standard Install
@StandardDialog1	jsr EasyBtnDim
	bra @2

;              The volume is write enabled!  Activate INSTALL and REMOVE.

@WriteEnabled	lda InstallRemoveMode
	and #bWriteProtect--$FFFF ; clear WriteProtect bit
	sta InstallRemoveMode

	bit DialogFlag
	bmi @StandardDialog2

	jsr SetInstallRemove ; custom install: condition Install & Remove btns
	lda AlertMsgNo
	cmp #AlertMsg3	; 'Folder Selection window is above'
	beq @2
	cmp #AlertMsg6	; ÔCanÕt install to active Boot diskÕ
	beq @2
	lda #AlertNoMsg	; No alert message needed
	bit WindowSetupComplete ; Don't draw into window if setup
	bpl @2	;       is not complete.
@1	sta AlertMsgNo
	jsr AlertMsg
	bra @2

;             Standard Install
@StandardDialog2	lda TargetSetUpComplete ; first time into Easy Update, looking for
	bne @DoCondition	;   installable media only; don't condition btns

	jsr BootVolTest	; is target the Boot volume?
	beq @beqGetDInfo1	; bra if target is Boot volume: not installable
	
	jsr DiskNamesTest	; is target one of the Installer disks (listed in rDiskNames)?
	beq @beqGetDInfo1	; bra if target is an Installer disk: not installable

	lda D_Info_Parms+20	; Check device identification
	beq @beqGetDInfo1	; ID = zero = DISK ][ (5.25) : not installable

	jsr SetCurrentVol

	bra NextDone

@DoCondition	jsr ConditionBtns	; write enabled: check volumes for BootPrevent, ...

;       Make "everything" = CurrentVol   (NOTE: CurrentDir must be PStr)

@2	jsr SetCurrentVol

; Activate the PopUp control, if appropriate.

	bit DialogFlag	; Don't do anything if Standard Update
	bmi DispEasyDisk	;   is currently running.

	lda NumOfSelections	; Don't activate if no scripts selected
	beq NextDeviceExit

;rdl: moved 10/16 to NextDone:	jsr VolumesOnLine	; There ARE volumes on line

; Activate the popup menu control

	bit DirSelReq
	bpl NextDeviceExit

	lda #Active
	jsr MyPopUpControl

; Pass the Device_ID to the PopUp menu custom control so it can display
; the proper icon and update the pop-up menu

NextDeviceExit	lda WindowSetupComplete ; DON'T fiddle with a control
	beq NextDone	; that isn't ready for fiddling!!!

	pea 0000	; (CtlRefCon is a LongWord)
	lda D_Info_Parms+20	; (Device_ID)
	pha
	lda MyPopUpCtlHdl+2
	pha
	lda MyPopUpCtlHdl
	pha
	ldx #SetCtlRefCon
	jsl ToolLocator

	jsr UpdatePopUp

; Display the proper message at the top of the screen

	bit DialogFlag
	bpl DispCustom	; bra if Custom Install

DispEasyDisk	jsr DispDiskEasy	; Easy Update: invalidate rect
	bra NextDone

DispCustom	bit DirSelReq	; Are we displaying	directory or volume?
	bmi DispDir

	jsr DispDisk2Update
	bra NextDone
DispDir
	jsr DispDir2Update

; Set the prefix to CurDirectory

NextDone	jsr SetPrefix

	jsr VolumesOnLine	; There ARE volumes on line

	rts
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* Description:	Disable/Enable the Erase Disk menu item
* Inputs:	
	Import EraseDiskState
*
* Outputs:	None
	Export DisableEraseDiskMenu
	Export DoEraseDiskMenu
	Export EnableEraseDiskMenu
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
DisableEraseDiskMenu ldx #DisableMItem
	bra DoEraseDiskMenu
EnableEraseDiskMenu	ldx #EnableMItem
DoEraseDiskMenu	stx EraseDiskState
	pea EraseDiskItemID
	jsl ToolLocator
	rts
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
; Customized Installation: no disk online: null list, popup

NullListAndPopup	stz ListSize2	; Deactivate the 2nd list window
	stz ListStart2	; (temporarily zero this out)

	jsr NewList2Call

	inc ListStart2	; (put it back to "1")

;	lda #Inactive
;	jsr SelectWindow

	jsl GetCurDirPtr	; Dereference & lock <CurDirHdl

	lda #0000
	ldy #0002
	sta [<CurDirPtr],y	; Null out directory name
	jsl ResizeCurDirBuf	; Resize the memory

	stz CurrentVol	; Null out volume name

	jsl UnlockCurDirHdl	; Let <CurDirHdl float til needed again

	pea 0000	; hi-word (CtlRefCon is a LongWord)
	lda #0032	; A non-existant device number to
;;; rdl: redundant?	sta D_Info_Parms+20
	pha	;   force a null icon.
	lda MyPopUpCtlHdl+2
	pha
	lda MyPopUpCtlHdl
	pha
	ldx #SetCtlRefCon
	jsl ToolLocator

	jsr UpdatePopup
	rts
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
; Make "everything" = CurrentVol   (NOTE: CurrentDir must be PStr)

SetCurrentVol	
	sep #$0020
	LongA Off

	ldy CurrentVol
	beq LoopDone	; If length byte = zero, done

	iny	; Increment the length word and...
	sty CurrentVol	
	lda #SeparatorChar	;   add a trailing separator char
	iny
	sta CurrentVol,y

Loop	lda CurrentVol,y
	sta CurrentDir-1,y	; (Vol names will always fit display)
	dey
	bne Loop

LoopDone	lda CurrentVol
	sta CurrentDir	; Store lengthByte here (a PStr)
	LongA On
	rep #$0020

	jsl GetAppDirPtr

@TryAgain1	pea CurrentVolBuf>>16
	pea |CurrentVolBuf
	pei <AppDirPtr+2
	pei <AppDirPtr
	jsl GStrToGStr

	jsl ResizeAppDirBuf
	bcs @TryAgain1

	jsl UnLockAppDirHdl

	jsl GetCurDirPtr	; Dereference & lock <CurDirHdl

@TryAgain	pea CurrentVolBuf>>16 ; Handle storage at <CurDirPtr
	pea |CurrentVolBuf	;   separately using GStr tools
	pei <CurDirPtr+2
	pei <CurDirPtr
	jsl GStrToGStr

	jsl ResizeCurDirBuf	; Resize buffer to fit
	bcs @TryAgain	; Try again if we didn't get it all

	jsl UnlockCurDirHdl	; Let CurDir float again

	lda CurrentVol	; get length
	beq @GoOn
	dec CurrentVol	; remove trailing separator char
@GoOn

	rts
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

Volume_Parms	dc.w 5	; Parameter count
Dev_Name_Ptr	dc.l Dev_Name+2	; Device name pointer
Vol_Name_Ptr	dc.l CurrentVolBuf	; Volume name pointer
	ds.l 1	; Total blocks (not used)
Free_Blocks	ds.l 1	; Free blocks
File_Sys_ID	ds.w 1	; File system identification

GetAccessParms	dc.w 0002	; Parameter count
	dc.l CurrentVol	; Volume name pointer
	dc.w 0000	; Access

SearchFlag	ds.b 2

Temporary	ds.b 1	
	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
BuildDirName	ProcName Export
*
* Description:	BuildDirName is a subroutine to build a shortened version
*	of the full pathname.  The full pathname is expected to be
*	at '<CurDirPtr' and the shortened version for display will
*	be in "CurrentDir.  The shortened display will be of the
*	form:
*
*	: <volume_name> :...: <dir_name> : <dir_name> : <dir_name> :
*
* NOTE:	This routine is called from a subroutine that DOES NOT use
*	the Installer's d-page.  It has set d-page to be its stack!
*	<CurDirPtr is NOT accessible until we reset dPage reg.
*
* Inputs:	None (<CurDirPtr expected to point to a "GStr" which is a
*	      full pathname.)
*
* Outputs:	None (CurrentDir will contain a Pascal string for display)
*
* External Refs:
	Import CurrentDir
	Import Dir2Rect
	Import Dir2Width
	Import GetCurDirPtr
	Import GStrToPStr
	Import MyZP
	Import UnlockCurDirHdl
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

	phd	; Save caller's d-page
	lda MyZP	;  and set Installer's d-page
	tcd

; First, simply check to see if the full name will fit in the available space.

	sec	; Calculate the available space
	lda #Right-30	;  (right side of dialog box with margin)
	sbc Dir2Rect+2	;  (- beginning of Dir2Update string	)
	sbc Dir2Width	;  (- width of Dir2Update string	)
	sta MaxWidth

	jsl GetCurDirPtr

;       CurDirPtr points to a GStr!  The StringWidth tool ONLY knows about
;       Pascal strings!  If the length is greater than 255 bytes, we know
;       it isn't going to fit.

	ldy #0002
	lda [<CurDirPtr],y
	cmp #255
	bcs NoFit

;       It's less than 255 characters, so...  Temporarily convert the GStr
;       to a PStr for the tool call, then convert it back to a GStr for
;       everything that follows.

	xba	; Form a length byte from the length
	sta [<CurDirPtr],y	;  word

	clc	; Set up a pointer to point to the
	lda <CurDirPtr	;  length byte
	adc #0003
	sta <ZPTemp
	lda <CurDirPtr+2
	adc #0000
	sta <ZPTemp+2

	pha	; Room for result
	pei <ZPTemp+2	; String pointer
	pei <ZPTemp
	ldx #StringWidth
	jsl ToolLocator
	plx
	stx StringWidth1	; String length

	ldy #0002	; Restore the length word
	lda [<CurDirPtr],y
	xba
	sta [<CurDirPtr],y

	cpx MaxWidth	; FINALLY!  Will it fit?
	bcs NoFit

; The full name will fit in the space, so simply move it to	CurrentDir.

	pei <CurDirPtr+2	; Source pointer
	pei <CurDirPtr
	pea CurrentDir>>16	; Destination pointer
	pea |CurrentDir
	jsl GStrToPStr

	brl Finished
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

; The full pathname	won't fit.  So, begin by finding the second
; SeparatorChar

NoFit	sep #$0030
	LongA Off
	LongI Off

	ldy #GStrOverhead+1	; Skip first SeparatorChar & next char
ScanLoop	iny
	lda [<CurDirPtr],y	; Look for next SeparatorChar
	sta CurrentDir-3,y	; (CurrentDir is a PStr)
	cmp #SeparatorChar
	bne ScanLoop

; We've got ': <volume_name> :'.  Now store a space, three periods, a space,
; and a SeparatorChar

	iny
	lda #' '
	sta CurrentDir-3,y
	lda #'.'
	iny
	sta CurrentDir-3,y
	iny
	sta CurrentDir-3,y
	iny
	sta CurrentDir-3,y
	iny
	lda #' '
	sta CurrentDir-3,y
	iny
	lda #SeparatorChar
	sta CurrentDir-3,y
	dey	; Deduct (GStrOverhead -1) because
	dey	;  CurrentDir is a PStr
	dey
	sty CurrentDir	; Store interim length

	LongA On
	LongI On
	rep #$0030

; We've got ': <volume_name> : ... :'.  Now find out how wide the string is and
; how much room we have left for the remainder of the string.

	pha	; Space for result
	pea CurrentDir>>16	; String pointer
	pea |CurrentDir
	ldx #StringWidth
	jsl ToolLocator
	pla
	sta StringWidth1 ; Length of 'front end' string

	sec
	lda MaxWidth
	sbc StringWidth1
	sta StringWidth2

; Now start at end of string, picking up a name at a time and checking to see
; if it will fit in	the remaining space, until we have the largest string that
; will fit.

	stz FirstPassFlag
	stz String2Length	; Zero the character counter

	ldy #0002	; Get the length word
	lda [<CurDirPtr],y
	inc a	; Add on GStr overhead
	inc a
	inc a
	inc a
	tay

	sep #$0020
	LongA Off

	dey	; #####
BuildLoop	dey
	inc String2Length
	lda [<CurDirPtr],y
	cmp #SeparatorChar
	bne BuildLoop

	sty String2Pos	; Store index into string

	LongA On
	rep #$0020

	pha	; Room for result
	clc
	lda <CurDirPtr
	adc String2Pos
	tax
	lda <CurDirPtr+2
	adc #0
	pha	; Push text pointer
	phx
	lda String2Length	; Push text length
	pha
	ldx #TextWidth
	jsl ToolLocator
	pla

	cmp StringWidth2
	bcs TooLong
	ldy String2Pos	; Store the old values before trying again
	sty OldPos
	lda String2Length
	sta OldLength

	sec	; Indicate we've completed the 1st pass
	ror FirstPassFlag

	sep #$0020
	LongA Off

	bra BuildLoop

; The last try was too long.  If this was the first pass through the remainder
; of the name, we've got a problem.

	LongA On

TooLong	bit FirstPassFlag	; Is this the first pass?
	bmi BackUpOne

; Oh Oh!  We've got a real problem!  The volume name plus the folder name
; produces a name that is still too long!  So...  We can only display the
; folder name with three periods preceeding it.

	sep #$0020
	LongA Off

	ldy String2Pos
	ldx #0001
	lda #'.'
	sta CurrentDir,x
	inx
	sta CurrentDir,x
	inx
	sta CurrentDir,x
	inx
	lda #' '
	sta CurrentDir,x
	inx
	lda #SeparatorChar
	sta CurrentDir,x
FilenameLoop	inx
	iny
	lda [<CurDirPtr],y
	sta CurrentDir,x
	cmp #SeparatorChar
	bne FilenameLoop

	txa	; transfer count to 8-bit register
	sta CurrentDir	; p-string: 8-bit count
	bra FinalExit

; We've already backed up more than one level, so back up to the previous
; SeparatorChar

BackUpOne
	LongA On

	ldy #02
	lda [<CurDirPtr],y
	inc a
	inc a
	sta <ZPTemp

	lda #0000	; clear hi accum

	sep #$0020
	LongA Off

	lda CurrentDir	; get byte count of folder name already there
	tax	; transfer 0/byteCount -> X
	ldy OldPos

FinalLoop
	inx
	iny
	lda [<CurDirPtr],y
	sta CurrentDir,x
	cpy <ZPTemp
	bne FinalLoop

	txa	; move count to 8-bit register
	sta CurrentDir	; p-string: 8-bit count
FinalExit
	LongA On
	rep #$0020
;
Finished	pld	; Restore caller's d-page
	rts
;
FirstPassFlag	ds.b 2
MaxWidth	ds.b 2
StringWidth1	ds.b 2
StringWidth2	ds.b 2
String2Pos	ds.b 2
String2Length	ds.b 2
OldPos	ds.b 2
OldLength	ds.b 2
	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
InitPrefix	Proc Export
*
* Description:	Clears prefix zero and falls through to "SetPrefix".
*
 Export SetPrefix
*
* Description:	Sets the system prefix (prefix eight) to contents of
*	<CurDirPtr.
*
 Export SetPrefixCurrVol
*
* Description:	Sets the system prefix (prefix eight) to contents of
*	CurrentVol.
*
* Inputs:	none
*
* Outputs:	none
*
* External Refs:
	Import CurrentVol
	Import GetCurDirPtr
	Import UnlockCurDirHdl
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

	lda #0001	; Null out prefix 1 so that GS/OS will
	sta PrefixNumber	;  use prefix 8 as the system prefix.
		; (Prefix 8 permits unlimited length.)
	lda #NullString
	sta PrefixPath
	lda #^NullString
	sta PrefixPath+2

	jsl GSOS
	dc.w Set_Prefix
	dc.l PrefixParms

	lda #0008
	sta PrefixNumber
SetPrefix
	jsl GetCurDirPtr

	clc
	lda <CurDirPtr
	adc #0002
	sta PrefixPath
	lda <CurDirPtr+2
	adc #0000
	sta PrefixPath+2

	jsl GSOS
	dc.w Set_Prefix
	dc.l PrefixParms

	jsl UnlockCurDirHdl

	rts

SetPrefixCurrVol
	lda #CurrentVol
	sta PrefixPath
	lda #CurrentVol>>16
	sta PrefixPath+2

	jsl GSOS
	dc.w Set_Prefix
	dc.l PrefixParms

	rts

PrefixParms	dc.w 0002	; pCount
PrefixNumber	ds.w 1	; Prefix number
PrefixPath	ds.l 1	; Prefix pathname

NullString	dc.w 0000

	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
InitVolume	Proc Export
*
* Description:	Initializes the Volume_Parms table so we will have
*	valid data there upon startup.
*
* Inputs:	none
*
* Outputs:	none
*
* External Ref:
	Import D_DeviceNum
	Import D_Info_Parms
	Import OpenTarget
	Import Volume_Parms
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
	lda #0001	; 1st device is always boot device
	sta D_DeviceNum

	jsl GSOS
	dc.w D_Info
	dc.l D_Info_Parms
	bcs Exit

	jsl GSOS
	dc.w Volume
	dc.l Volume_Parms
	bcs Exit

; Open Target volume's directory to protect against duplicate-named disks

	jsr OpenTarget

Exit	rts
	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
UpdatePopUp	ProcName Export
*
* Description:	Updating is accomplished using InsertPathMItems, resulting in
*	the GString at <CurDirPtr becoming the last entry in the
*	PopUp menu with the volume name as item number one at the
*	bottom of the menu (each successive level progressing up the
*	menu).
*
*	NOTE:  If directory selection is NOT required, this routine
*	simply deletes all entries in the PopUp menu so that it
*	will not display any entry while inactive.
*
* Inputs:	none
*
* Outputs:	none
*
* External Refs:
	Import DirSelReq
	Import GetCurDirPtr
	Import MyPopUpCtlHdl
	Import QuitFlag
	Import UnlockCurDirHdl
*
* Entry Points:
	Export MenuItemID
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

; Make the PopUp the current menu bar

@DoUpdate	pha	; Get the current menu bar
	pha
	ldx #GetMenuBar
	jsl ToolLocator	;   and leave it on the stack

	lda MyPopUpCtlHdl+2	; Set PopUp as current menu bar
	pha
	lda MyPopUpCtlHdl
	pha
	ldx #SetMenuBar
	jsl ToolLocator

	lda MenuItemID
	beq ReleaseMemory
	Eject
; Clear all entries from the PopUp menu releasing the memory.

DeleteLoop	lda MenuItemID
	pha
	ldx #DeleteMItem
	jsl ToolLocator

	dec MenuItemID
	bne DeleteLoop

;     delete the handles in InsertPathMItems' structure.
	lda InsertHandle1+2
	pha
	lda InsertHandle1
	pha
	ldx #DisposeHandle
	jsl ToolLocator

	lda InsertHandle2+2
	pha
	lda InsertHandle2
	pha
	ldx #DisposeHandle
	jsl ToolLocator

	stz InsertHandle1	; zero out handles to protect system
	stz InsertHandle2
	stz InsertHandle1+2
	stz InsertHandle2+2

; If directory selection is NOT required, there is no need to build up a new
; PopUp menu.  So, skip to the exit.

ReleaseMemory	bit DirSelReq
	bpl Exit

; get the current directory, and set the popup menu to it.

CreateCopy	jsl GetCurDirPtr	; gets & locks Current Directory

;     popup flags: device @ bottom (0); (0); open folders icons (1); use routine (0);
;        fully expanded pathPtr (1)
	lda #$0014	; flags
	pha
	clc	; Point to the strings lengthWord
	lda <CurDirPtr
	adc #0002
	tax
	lda <CurDirPtr+2
	adc #0000
	pha
	phx
	pea 0	; device number (using routine to get it)
	pea PopUpMenuID	; menuID: the menu to insert into (popup)
	pea 0	; afterID: insert at end of list
	pea 1	; startingID: start numbering items with #1
	pea InsertResults>>16
	pea |InsertResults
	ldx #InsertPathMItems
	jsl ToolLocator

	jsl UnlockCurDirHdl

	lda MenuItemID	; This is the way to get the Menu Mgr
	pha	;   to draw the proper item into the
	lda MyPopUpCtlHdl+2	;   the PopUp control.
	pha
	lda MyPopUpCtlHdl
	pha
	ldx #SetCtlValue
	jsl ToolLocator

Exit	ldx #SetMenuBar	; Restore the previous current menu
	jsl ToolLocator	;   bar from handle left on stack

	rts

InsertResults
MenuItemID	dc.w $0000	   ; itemID
InsertHandle1	ds.l 1
InsertHandle2	ds.l 1

	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
SimpleKeyFilter	ProcName Export
*
	export OneSimpleKeyFilter
*
* Description:	SimpleKeyFilter 
*	traps <Return> and maps it as a hit on ID #1, and 
*	traps <Escape> and cmd-. and maps it as a hit on ID #2.
*	NOTE: This proc only called by dialog manager.
*
* Description:	OneSimpleKeyFilter 
*	traps <Return> and maps it as a hit on ID #1, and 
*	traps <Escape> and cmd-. and maps it as a hit on ID #1.
*	NOTE: This proc only called by dialog manager.
*
* Inputs:	Word space for result
*	Longword pointer to dialog's grafPort
*	Longword pointer to the event
*	Longword pointer to the item hit
*
* Outputs:	Boolean word: TRUE = ignore
*
* External Refs:	none
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

Result	equ 20	; 2-byte boolean (TRUE=ignore)
TheDialogPtr	equ 16	; 4-byte pointer to the dialog's GrafPort
EventPtr	equ 12	; 4-byte pointer to the event
ItemHitPtr	equ  8	; 4-byte pointer to the item hit
ReturnAddress	equ  5	; 3-byte return address
EscapeDoes	equ  3	; 2-byte mapping of Esc key to OK or Cancel
; D-Reg storage	equ  1	; 2-byte D-reg storage


	lda #0002	; two-button dialog: map Esc to Cancel button
	bra mapEscape

; filter for one-button dialogs to allow Escape in addition to Return to get rid of dialog

OneSimpleKeyFilter	lda #0001	; one-button dialog: map Esc to OK button

mapEscape	pha	; push mapping of Esc key onto the stack

; Set up stack as our direct page

	phd
	tsc
	tcd

; Check for key down events.  Everything else, we'll just pass on for
; processing.

	lda [EventPtr]
	cmp #KeyDownEvent
	bne @NotHandledHere

; We got a KeyDown event.  First get the key.
; Then look at the key modifiers.  If certain
; modifier keys were pressed, we want to ignore the key.

	ldy #Message
	lda [<EventPtr],y	; get the key
	tax	; save in X

	ldy #Modifiers
	lda [<EventPtr],y	; get the modifiers
	and #ControlKey+OptionKey+AppleKey
	beq @RegChar

	and #AppleKey
	beq @NotHandledHere	; not handled if control or option key

; got AppleKey down: If it is Apple-. , indicate a hit on the "Cancel" button
	cpx #'.'
	beq @Cancel	; same as Escape key
	bra @NotHandledHere	; no other Command-keys handled

; Look at a nonmodified key
;   If it is the <Escape> character, indicate a hit on the "Cancel" button
;   If it is the <Return> character, indicate a hit on the "OK" button

@RegChar
	cpx #Return
	beq @OK
	cpx #Escape
	bne @NotHandledHere

; Escape key or Cmd-. hit
@Cancel	lda <EscapeDoes	; ID of item to pass back: 
	bra @StoreValues	;   mapped to  Cancel (if one-button, mapped to OK)

@OK	lda #0001	; ID of item to hit
@StoreValues	sta [ItemHitPtr]	; indicate to calling routine which item was hit

; Get handle of button corresponding to ID in accum
	pha	; Room for result
	pha
	pei TheDialogPtr+2	; Dialog's GrafPort
	pei TheDialogPtr
	pha	; Item for which handle is desired
	ldx #GetControlDItem
	jsl ToolLocator
	plx	; Item's handle
	ply

; Now blink the button
	pea #0000	; push parameters for second HiliteControl
	phy	; ItemÕs handle
	phx

	pea SimpleButton	; push parameters for first
	phy
	phx
	ldx #HiliteControl
	jsl ToolLocator

	ldx #HiliteControl	; parameters previously pushed
	jsl ToolLocator

; The calling routine should ignore the key down event (handled here).

@HandledHere	lda #$FFFF
	bra @StoreResult

; The calling routine should process the key down event (not handled here).

@NotHandledHere	lda #$0000
@StoreResult	sta Result

; Restore callers environment.

	lda ReturnAddress
	sta Result-3
	lda ReturnAddress+1
	sta Result-2
	pld
	tsc
	clc
	adc #0014
	tcs
	lda #0000
	clc
	rtl
	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
HelpControl	Proc Export
*
* Description:	Activates or deactivates the Help control.
*
* Inputs:	A-reg = #Active: Control will be activated
*	A-reg = #Inactive: Control will be deactivated
*
* Outputs:
*	none
*
* External Refs:
	Import HelpCtlHdl
*
* Entry Points:
*	none
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
	pha	; Push active/inactive flag
	lda HelpCtlHdl+2
	pha
	lda HelpCtlHdl
	pha
	ldx #HiliteControl
	jsl ToolLocator
	rts
	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
BootVolTest	ProcName Export
*
* Description:	Installing to Boot volume?
* 	Compares VolStr (boot volume) with CurrentVol (current volume).
*
* Inputs:	none
*
* Outputs:	beq: they're the same (installing to Boot volume).
*	bne: they're not the same (not installing to Boot volume).
*
* External Refs:
	Import VolStr
	Import CurrentVol
*
* Entry Points:
*	none
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
	lda CurrentVol	; get current volumename len
	cmp VolStr
	beq CompareStr
	tax	; save index to get last char
	dec a	; see if there's a separator at end of CurrentVol
	cmp VolStr
	bne BootEnd	; bra if they're not the same: no match
	tay	; save VolStr's len
	lda CurrentVol,x
	and #$FF00	; just last char
	cmp #SeparatorChar*$100
	bne BootEnd	; bra if there's not a separator at end: no match
	tya	; retrieve VolStr's len

CompareStr	tax
BootLoop	lda VolStr,x	; 2 bytes, so don't have to inx to get past len
	cmp CurrentVol,x
	bne BootEnd
	dex
	cpx #1
	bne BootLoop

BootEnd	rts
	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
DiskNamesTest	ProcName Export
*
* Description:	Installing to one of the Installer disks (listed in rDiskNames)?
* 	Compares rDiskNames (DiskNamesHdl) with CurrentVol (current volume).
*
* Inputs:	none
*
* Outputs:	beq: they're the same (installing to Boot volume).
*	bne: they're not the same (not installing to Boot volume).
*
* External Refs:
	Import CurrentVol
	Import NoCaseCompare8bit
	Import StandardNo
*
* Entry Points:
*	none
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
	lda StandardNo	; rDiskNames found and loaded?
	bne NamesEnd	; bra if not found -- they're not the same

	ldx <DiskNamesHdl+2
	lda <DiskNamesHdl
	jsl DeRef
	sta <DiskNamesPtr
	stx <DiskNamesPtr+2

	lda [<DiskNamesPtr]	; # of disknames in resource
	dec a	; 0-base #
	sta temp
	inc <DiskNamesPtr	; point to first string
	inc <DiskNamesPtr

; loop through all disknames
NamesLoop	lda [<DiskNamesPtr]	; length of this diskname
	cmp CurrentVol
	beq DoCompare
	inc a	; see if there's a separator at end of CurrentVol
	cmp CurrentVol
	bne NameEnd	; bra if not the same len; do next diskname
	tax
	lda CurrentVol,x
	and #$FF00	; just last char
	cmp #SeparatorChar*$100
	bne NameEnd	; bra if there's not a separator at end: no match
	lda [<DiskNamesPtr]	; get len of this diskname again

DoCompare	inc a	; incr to index last char
	tay	; save index in X, Y
	tax

; loop through this diskname
	sep #$0020
	LongA Off

NameLoop	lda  [<DiskNamesPtr],y ; get char
	xba
	lda CurrentVol,x	; get other char
	jsl NoCaseCompare8bit ; compare, not case-sensitive
	bne NameEnd16
	dex
	dey
	cpy #1	; done? (with chars 2 thru len+1)
	bne NameLoop

	LongA On
	rep #$0020
	bra NamesEndUnlock	; every character matched!: return beq in z flag

; advance to next diskname
NameEnd16
	LongA On
	rep #$0020
NameEnd	lda [<DiskNamesPtr]	; length of diskname we just finished with
	inc a	; incr to len of diskname + length word
	inc a
	clc
	adc <DiskNamesPtr
	sta <DiskNamesPtr
	bcc noBankIncr	; branch if no carry into bank byte
	inc <DiskNamesPtr+2
noBankIncr	dec temp
	bpl NamesLoop	; 0-based: bra if not thru all disknames
		;   else no matches: z flag clear ($FFFF=bne)

NamesEndUnlock	php	; save z flag
	pei <DiskNamesHdl+2	; Unlock the handle
	pei <DiskNamesHdl
	ldx #HUnlock
	jsl ToolLocator	
	plp	; retrieve z flag

NamesEnd	rts

temp	ds.w 1
	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
SetInstallRemove	ProcName Export
*
* Description:	Customized Dialog:
*	SetInstallRemove Activates the Install and Remove controls
*	only if InstallRemoveMode flags are properly set.
*
* Inputs:	none
*
* Outputs:	none
*
* External Refs:
	Import AlertMsgNo
	Import DirSelReq
	Import InstallCtlHdl
	Import InstallRemoveMode
	Import NewFolderActive
	Import NewFolderDim
	Import RemoveCtlHdl
	Import WindowSetupComplete

	Export InstallControlOn
	Export InstallControlOff
*
* NOTE: see Installer.Equates for InstallRemoveMode bit assignments
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

; if PreventBoot flag set & VolStr (boot volume) = CurrentVol (current volume)
;      turn off Install & Remove buttons 

	lda InstallRemoveMode ; Activate INSTALL if appropriate
	and #bPreventBoot
	beq TestBits	  ; bra if PreventBoot not set

;      PreventBoot flag set: test for VolStr = CurrentVol

	jsr BootVolTest
	bne TestBits	; not installing to Boot volume

;      Boot Disk: Prevent Install/Remove: put Talking Head message, then dim buttons

	lda #AlertMsg6
	sta AlertMsgNo
	bit WindowSetupComplete ; Don't draw it til set up complete
	bpl @SkipAlertMsg
	jsr AlertMsg
@SkipAlertMsg
	bra InstallRemoveOff

TestBits	lda AlertMsgNo
	cmp #AlertMsg6
	bne @TestBits1
	lda #AlertNoMsg	; if ÒBoot DiskÓ message was up, remove it
	sta AlertMsgNo

; activate New Folder if appropriate

@TestBits1	lda InstallRemoveMode ; Activate INSTALL if appropriate
	and #bWriteProtect
	bne NewFolderOff	  ; bra if set, should be inactive
	bit DirSelReq
	bpl NewFolderOff	; hi-bit set=directory name required
	jsr NewFolderActive	; make New Folder button active
	bra SetInstall
NewFolderOff	jsr NewFolderDim	; dim New Folder button

; activate Install if appropriate

SetInstall	lda InstallRemoveMode ; Activate INSTALL if appropriate
	and #bWriteProtect|bNoVols|bNoScripts
	bne InstallOff	  ; anything set, should be inactive
	jsr InstallControlOn  ; everything clear, should be active
	bra SetRemove
InstallOff	jsr InstallControlOff

; and activate Remove if appropriate

SetRemove	lda InstallRemoveMode ; Activate REMOVE if appropriate
	and #bWriteProtect|bNoVols|bNoScripts|bNoRemove
	bne RemoveOff	  ; anything set, should be inactive
	jsr RemoveControlOn  ; everything clear, should be active
	bra SetDone
RemoveOff	jsr RemoveControlOff

SetDone	rts

; deactivate the INSTALL and REMOVE controls

InstallRemoveOff	jsr InstallControlOff
	jsr RemoveControlOff
	rts

; Turn the INSTALL control on.

InstallControlOn	ldx #Active
	bra InstallControl

; Turn the INSTALL control off.

InstallControlOff	ldx #Inactive

InstallControl	phx	; Push active/inactive flag
	lda InstallCtlHdl+2
	pha
	lda InstallCtlHdl
	pha
	ldx #HiliteControl
	jsl ToolLocator
	rts

; Turn the REMOVE control on provided Remove "should" not be inactive.

RemoveControlOn	ldx #Active
	bra RemoveControl

; Turn the REMOVE control off.

RemoveControlOff	ldx #Inactive

RemoveControl	phx	; Push active/inactive flag
	lda RemoveCtlHdl+2
	pha
	lda RemoveCtlHdl
	pha
	ldx #HiliteControl
	jsl ToolLocator
	rts
	EndP ;{SetInstallRemove}
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
DiskControl	Proc Export
*
* Description:	Activates or deactivates the Disk control.
*
* Inputs:	A-reg = #Active: Control will be activated
*	A-reg = #Inactive: Control will be deactivated
*
* Outputs:
*	none
*
* External Refs:
	Import DiskCtlHdl
*
* Entry Points:
*	none
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
	pha	; Push active/inactive flag
	lda DiskCtlHdl+2
	pha
	lda DiskCtlHdl
	pha
	ldx #HiliteControl
	jsl ToolLocator
	rts
	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
OpenControl	Proc Export
*
* Description:	Activates or deactivates the Open control.
*
* Inputs:	A-reg = #Active: Control will be activated
*	A-reg = #Inactive: Control will be deactivated
*
* Outputs:
*	none
*
* External Refs:
	Import OpenCtlHdl
*
* Entry Points:
*	none
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
	pha	; Push active/inactive flag
	lda OpenCtlHdl+2
	pha
	lda OpenCtlHdl
	pha
	ldx #HiliteControl
	jsl ToolLocator
	rts
	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
EjectControl	Proc Export
*
* Description:	Activates or deactivates the Eject control.
*
* Inputs:	A-reg = #Active: Control will be activated
*	A-reg = #Inactive: Control will be deactivated
*
* Outputs:
*	none
*
* External Refs:
	Import EjectCtlHdl
*
* Entry Points:
*	none
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
	pha	; Push active/inactive flag
	lda EjectCtlHdl+2
	pha
	lda EjectCtlHdl
	pha
	ldx #HiliteControl
	jsl ToolLocator
	rts
	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
NewFolderActive	Proc Export
*
* Description:	Activates or deactivates the New Folder control.
*
* Inputs:	A-reg = #Active: Control will be activated
*	A-reg = #Inactive: Control will be deactivated
*
* Outputs:
*	none
*
* External Refs:
	Import NewFolderCtlHdl
*
* Entry Points:
	Export NewFolderDim
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

	lda #Active
	bra NewFolderControl

NewFolderDim	lda #Inactive

NewFolderControl	pha	; Push active/inactive flag
	lda NewFolderCtlHdl+2
	pha
	lda NewFolderCtlHdl
	pha
	ldx #HiliteControl
	jsl ToolLocator
	rts
	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
SelectWindow	Proc Export
*
* Description:	Folder List:
*	Activates or deactivates the application folder selection
*	window, its scroll bar, and the popup menu above it.
*
* Inputs:	A-reg = #Active: window and scroll bar will be activated
*	A-reg = #Inactive: window and scroll bar will be deactivated
*
* Outputs:	none
*
* External Refs:
	Import ListSize2
	Import MenuItemID
	Import MyPopUpCtlHdl
	Import NewList2Call
	Import SelectListBarHdl
	Import SelectListCtlHdl
	import WindowSetUpComplete
* Entry Points:
	Export MyPopUpControl
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
	pha	; Push active/inactive flag for 4th action
	pha	; Push active/inactive flag for 3rd action
	pha	; Push active/inactive flag for 2nd action
	pha	; Push active/inactive flag for 1st action

	bne NullList

; If we activating, create a new list,

	jsr NewList2Call

	bra SkipNullList

; If we deactivating, create a null list.

NullList	lda ListSize2	; Preserve the old ListSize
	pha

	stz ListSize2
	jsr NewList2Call

	pla
	sta ListSize2

;;;	pea PrintListMem>>16 ;drawPtr     (member drawing routine)
;;;	pea |PrintListMem
;;;	pea 0000	; listStart   (item number)
;;;	lda AppFolderListHdl+2	; listRef     (handle)
;;;	pha
;;;	lda AppFolderListHdl
;;;	pha
;;;	pea 0001	; listRefDesc (listRef is a handle)
;;;	pea 0000	; listSize
;;;	lda SelectListCtlHdl+2 ; ctlHandle
;;;	pha
;;;	lda SelectListCtlHdl
;;;	pha
;;;	ldx #NewList2
;;;	jsl ToolLocator
SkipNullList

; Now go ahead and activate/deactivate the controls as required.

		; Active/inactive flag already on stack
	lda SelectListCtlHdl+2
	pha
	lda SelectListCtlHdl
	pha
	ldx #HiliteControl
	jsl ToolLocator
		; Active/inactive flag already on stack
	lda SelectListBarHdl+2
	pha
	lda SelectListBarHdl
	pha
	ldx #HiliteControl
	jsl ToolLocator

	pla	; If were activating, mark rect "valid"
	bne SkipValidRect	;  but ONLY If window setup is complete!
	bit WindowSetUpComplete
	bpl SkipValidRect

	pea RectPointer>>16
	pea |RectPointer
	ldx #ValidRect
	jsl ToolLocator
SkipValidRect
		; Active/inactive flag already on stack
	pla	; get last of them

; Active/inactive flag is in accum
MyPopUpControl	ldx MyPopUpCtlHdl+2
	phx
	ldx MyPopUpCtlHdl
	phx
	tax	; check flag
	beq @activate
	ldx #HideControl
	bra @doit
@activate	ldx #ShowControl
@doit	jsl ToolLocator
	rts

RectPointer	dc.w Height-117,AppWindowLeft,Height-45,Width-29
	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
EasyBtnDim	Proc Export
*
* Description:	Activates or deactivates the "Begin Easy Update" control
*	in the Easy Update dialog window.
*
* Outputs:	none
*
* External Refs:
	Import StandardCtlHdl

	Export EasyBtnActive
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

	lda #Inactive
	bra BeginStdControl

EasyBtnActive	lda #Active

BeginStdControl	pha
	lda StandardCtlHdl+2
	pha
	lda StandardCtlHdl
	pha
	ldx #HiliteControl
	jsl ToolLocator
	rts
	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
Eject2Control	Proc Export
*
* Description:	Activates or deactivates the "Eject" control in the
*	in the Easy Update dialog window.
*
* Inputs:	A-reg = #Active: window and scroll bar will be activated
*	A-reg = #Inactive: window and scroll bar will be deactivated
*
* Outputs:	none
*
* External Refs:
	Import Eject2CtlHdl
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

	pha
	lda Eject2CtlHdl+2
	pha
	lda Eject2CtlHdl
	pha
	ldx #HiliteControl
	jsl ToolLocator
	rts
	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
DispDiskEasy	ProcName Export
*
* Description:	Invalidates the disk-rect in the Easy Update window,
*	causing the Window Update Proc (StandardDrawProc) to be called.
*
* Inputs:	none (Expects volume name in CurrentVol)
*
* Outputs:	none
*
* External Refs:
	Import DiskBtnCoords
	Import DiskEasyCoords1
	Import DiskEasyCoords2
	Import StandardPort
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

	lda StandardPort+2	; Reset the grafport
	pha
	lda StandardPort
	pha
	ldx #SetPort
	jsl ToolLocator

	pea DiskEasyCoords1>>16
	pea |DiskEasyCoords1
	ldx #InvalRect
	jsl ToolLocator

	pea DiskEasyCoords2>>16
	pea |DiskEasyCoords2
	ldx #InvalRect
	jsl ToolLocator

	pea DiskBtnCoords>>16
	pea |DiskBtnCoords
	ldx #InvalRect
	jsl ToolLocator

	rts
	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
DispDisk2Update	ProcName Export
*
* Description:	Erases the top of the Custom Install window and displays:
*	"Disk to Update: <volume name>".
*
* Inputs:	none (Expects volume name in CurrentVol)
*
* Outputs:	none
*
* External Refs:
	Import Disk2Rect
	Import Disk2Update
	Import CurVolBottom
	Import CurVolRect
	Import CurrentVol
	Import EraseUpdateRect
	Import UpdateRect
*
* Entry Points:
	Entry DispCurrentVol
*
* Description:	Erases only the <volume name> and replaces it with
*	the contents of CurrentVol.
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

	jsr EraseUpdateRect	; Set GrafPort and erase update rect
	clc	; Calculate the pen	position
	lda Disk2Rect+2
	pha
	lda Disk2Rect
	adc #0008
	pha
	ldx #MoveTo	; Move the pen
	jsl ToolLocator

	pea Disk2Update>>16
	pea |Disk2Update
	ldx #DrawString	; Draw the string
	jsl ToolLocator
	bra DrawCurrentVol

DispCurrentVol
	inc CurVolBottom	; Fix "Bottom" to erase everything

	pea CurVolRect>>16
	pea |CurVolRect
	lda #EraseRect
	jsl ToolLocator

	dec CurVolBottom	; Restore original "Bottom" value

DrawCurrentVol	clc	; Calculate the pen	position
	lda CurVolRect+2
	pha	; Horizontal position
	lda CurVolRect
	adc #0008
	pha	; Vertical position
	ldx #MoveTo	; Move the pen
	jsl ToolLocator

; DrawString tool can't handle GS/OS strings, so we must manually change
; the string to a PStr and then change it back.

	lda CurrentVol
	xba
	sta CurrentVol

	pea CurrentVol+1>>16
	pea |CurrentVol+1
	ldx #DrawString	; Draw the string
	jsl ToolLocator

	lda CurrentVol
	xba
	sta CurrentVol

	rts
	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
DispDir2Update	Proc Export
*
* Description:	Erases the top of the Installer window and displays:
*	"Application folder: <pathname>".
*
* Inputs:	none (Expects pathname in CurrentDir)
*
* Outputs:	none
*
* External Refs:
	Import Dir2Rect
	Import Dir2Update
	Import CurDirBottom
	Import CurDirRect
	Import CurrentDir
	Import EraseUpdateRect
	Import UpdateRect
* Entry Points:
	Entry DispCurrentDir
*
* Description:	Erases only the old <pathname> and replaces it with
*	the contents of CurrentDir.
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

	jsr EraseUpdateRect	; Set GrafPort and erase update rect

	clc	; Calculate pen position
	lda Dir2Rect+2
	pha
	lda Dir2Rect
	adc #0008
	pha
	ldx #MoveTo	; Move the pen
	jsl ToolLocator

	pea Dir2Update>>16
	pea |Dir2Update
	ldx #DrawString	; Draw the string
	jsl ToolLocator
	bra DrawCurrentDir

DispCurrentDir	inc CurDirBottom	; (So we can erase decenders.)

	pea CurDirRect>>16
	pea |CurDirRect
	ldx #EraseRect
	jsl ToolLocator

	dec CurDirBottom

DrawCurrentDir	clc	; Calculate pen position
	lda CurDirRect+2
	pha
	lda CurDirRect
	adc #0008
	pha
	ldx #MoveTo	; Move the pen
	jsl ToolLocator

	pea CurrentDir>>16
	pea |CurrentDir
	ldx #DrawString	; Draw the string
	jsl ToolLocator

	rts
	EndP
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
EraseUpdateRect	Proc Export
*
* Description:	Sets the GrafPort to the Custom Installation dialog's window and
*	erases the top portion in preparation for redisplaying
*	the Disk/volume to update information
*
* Inputs:	none
*
* Outputs:	none
*
* External Refs:
	Import DialogFlag
	Import DialogPort
	Import UpdateRect
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

	bit DialogFlag	; Which dialog is running
	bmi Exit	; ignore if Std Update

	lda DialogPort+2	; Reset the grafport
	pha
	lda DialogPort
	pha
	ldx #SetPort
	jsl ToolLocator

	pea UpdateRect>>16	; Erase top of Installer window
	pea |UpdateRect
	ldx #EraseRect
	jsl ToolLocator

Exit	rts
	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
GetCurDirPtr	Proc Export
*
* Description:	Locks and dereferences <CurDirHdl placing the pointer
*	into <CurDirPtr
*
* Inputs:	none (Expects valid handle in <CurDirHdl.)
*
* Outputs:	none (Places pointer to the current directory pathname,
*	      a GS/OS Class 1 Output String, into <CurDirPtr)
*
* External Refs:
	Import MyZP
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

	phd	; Need to return to REAL dPage
	lda >MyZP
	tcd

	lda <CurDirHdl	; If handle is null, done
	ora <CurDirHdl+2
	beq Done

	ldy #4	; Lock the handle
	lda [<CurDirHdl],y
	ora #attrLocked
	sta [<CurDirHdl],y

	lda [<CurDirHdl]	; Dereference the handle
	sta <CurDirPtr
	ldy #2
	lda [<CurDirHdl],y
	sta <CurDirPtr+2

Done	pld	; Restore caller's dPage
	rtl
	EndP
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
GetAppDirPtr	Proc Export
*
* Description:	Locks and dereferences <AppDirHdl placing the pointer
*	into <AppDirPtr
*
* Inputs:	none (Expects valid handle in <AppDirHdl.)
*
* Outputs:	none (Places pointer to the current director pathname,
*	      a GS/OS Class 1 Output String, into <AppDirPtr)
*
* External Refs:
	Import MyZP
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

	phd	; Need to return to REAL dPage
	lda >MyZP
	tcd

	lda <AppDirHdl	; If handle is null, done
	ora <AppDirHdl+2
	beq Done

	ldy #4	; Lock the handle
	lda [<AppDirHdl],y
	ora #attrLocked
	sta [<AppDirHdl],y

	lda [<AppDirHdl]	; Dereference the handle
	sta <AppDirPtr
	ldy #2
	lda [<AppDirHdl],y
	sta <AppDirPtr+2

Done	pld	; Restore caller's dPage
	rtl
	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
UnlockCurDirHdl	Proc Export
*
* Description:	Marks <CurDirHdl as free to move.
*	NOTE: Call with JSL!
*
* Inputs:	none (Expects valid handle in <CurDirHdl.)
*
* Outputs:	none
*
* External Refs:
	Import MyZP
*
* Entry Points:
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

	phd	; Need to return to REAL dPage
	lda >MyZP
	tcd

	lda <CurDirHdl	; If handle is null, done
	ora <CurDirHdl
	beq Done

	ldy #4	; Unlock the handle
	lda [<CurDirHdl],y
	and #$FFFF-attrLocked
	sta [<CurDirHdl],y

Done	pld	; Restore caller's dPage
	rtl
	EndP
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
UnlockAppDirHdl	Proc Export
*
* Description:	Marks <AppDirHdl as free to move.
*	NOTE: Call with JSL!
*
* Inputs:	none (Expects valid handle in <AppDirHdl.)
*
* Outputs:	none
*
* External Refs:
	Import MyZP
*
* Entry Points:
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

	phd	; Need to return to REAL dPage
	lda >MyZP
	tcd

	lda <AppDirHdl	; If handle is null, done
	ora <AppDirHdl
	beq Done

	ldy #4	; Unlock the handle
	lda [<AppDirHdl],y
	and #$FFFF-attrLocked
	sta [<AppDirHdl],y

Done	pld	; Restore caller's dPage
	rtl
	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
Concat	Proc Export
*
* Description:	Concatenates a GStr onto the end of the current directory
*	string found at <CurDirPtr.  The buffer is resized as needed.
*
* Inputs:	Pointer to GStr to concatenate to current directory string
*	Pointer to current directory buffer (to be concatenated)
*
* Errors:	As returned by MemoryMgr and GSOString.lib.
*
* External Refs:
	Import GStrConcat
	Import MyZP
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

DestBufferSize	equ $01	; Local variables
NeededSize	equ DestBufferSize+2
Handle	equ NeededSize+2

RtnAddr	equ Handle+4

CurDir	equ RtnAddr+3	; Input parameters
String	equ CurDir+4

Variables	equ String

; Provide space for local variables and make stack our D-page.

	pha
	pha
	pha
	pha

	tsc
	phd
	tcd

; Check if the final string will fit in the designated destination buffer.

	lda [CurDir]	; Get the destination buffer size
	sta DestBufferSize

	ldy #0002	; Calculated the needed size
	clc
	lda [String],y
	adc [CurDir],y
	inc a	; Include the GStr buffer overhead
	inc a
	inc a
	inc a
	inc a	; one extra byte for trailing seperator
	inc a	; one extra byte for trailing zero
	sta NeededSize

	cmp DestBufferSize	; How about it?
	bcc ItFits
	beq ItFits

; It won't fit, so resize the memory before concatenating.

;       Get the handle to the buffer

	pha
	pha
	pei CurDir+2
	pei CurDir
	ldx #FindHandle
	jsl ToolLocator
	plx	; A-reg contains error code
	ply
	stx Handle
	sty Handle+2
	bcs Finished

;       Unlock the memory (if its locked)

	ldy #0004	; (faster than calling HUnlock)
	lda [Handle],y
	and #%0111111111111111 ; attrLocked = 0
	sta [Handle],y

;       Resize the buffer

	pea 0000
	pei NeededSize
	pei Handle+2
	pei Handle
	ldx #SetHandleSize
	jsl ToolLocator
	bcs Finished

;       Lock the buffer

	ldy #0004	; (faster than calling HLock)
	lda [Handle],y
	ora #%1000000000000000 ;  attrLocked = 1
	sta [Handle],y

;       Dereference the handle and update the current directory pointer.

	lda [Handle]
	tax
	ldy #0002
	lda [Handle],Y
	tay
	stx CurDir
	sty CurDir+2

	phd
	lda MyZP	; Also update <CurDirPtr
	tcd
	stx <CurDirPtr
	sty <CurDirPtr+2
	pld

;       Store the new buffer size

	lda NeededSize
	sta [CurDir]

; It will fit, so perform the concatenation.

ItFits
	pei String+2
	pei String
	pei CurDir+2
	pei CurDir
	pei CurDir+2
	pei CurDir
	jsl GStrConCat

; Now, add the trailing seperator character followed by a null.  Then store
; the incremented string length

	ldy #0002
	lda [CurDir],y	; Increment the length word
	inc a
	sta [CurDir],y
	inc a	; Add on GStr overhead
	inc a
	inc a
	tay
	lda #SeparatorChar
	sta [CurDir],y

; Restore the environment

	lda #0000
Finished	sta OurErrorCode
	pld	; Restore D-page
	lda RtnAddr+1,s	; Move return address...
	sta RtnAddr+9,s	;  ...past 8 bytes of inputs
	lda RtnAddr,s
	sta RtnAddr+8,s
	tsc	;  ...and eliminate inputs & variables
	clc
	adc #Variables	; (bytes of inputs + variables)
	tcs
	lda OurErrorCode	; Restore the error code
	cmp #0001	; Condition the cFlag
	rtl

OurErrorCode	ds.w 1
	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
ResizeCurDirBuf	Proc Export
*
* Description:	Resizes the buffer at <CurDirPtr so that it is exactly
*	the right size to hold the string.  If the buffer is
*	sized down, the c-flag is clear.  If the buffer is
*	sized larger (the string wasn't all there) the c-flag
*	is set.  <CurDirPtr is always updates with the new
*	value, if any.
*
* Inputs:	none (Expects valid pointer in <CurDirPtr)
*
* Outputs:	c-flag clear: String is all there--buffer sized downward.
*	c-flag set:   String not all there--buffer was sized
*	              upward.  Try again.
*
* External Refs:
	Import GStrResize
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

	pha	; Space for result
	pha
	pei <CurDirPtr+2
	pei <CurDirPtr
	jsl GStrResize
	pla
	sta <CurDirPtr
	pla
	sta <CurDirPtr+2
	rtl
	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
ResizeAppDirBuf	Proc Export
*
* Description:	Resizes the buffer at <AppDirPtr so that it is exactly
*	the right size to hold the string.  If the buffer is
*	sized down, the c-flag is clear.  If the buffer is
*	sized larger (the string wasn't all there) the c-flag
*	is set.  <AppDirPtr is always updates with the new
*	value, if any.
*
* Inputs:	none (Expects valid pointer in <AppDirPtr)
*
* Outputs:	c-flag clear: String is all there--buffer sized downward.
*	c-flag set:   String not all there--buffer was sized
*	              upward.  Try again.
*
* External Refs:
	Import GStrResize
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

	pha	; Space for result
	pha
	pei <AppDirPtr+2
	pei <AppDirPtr
	jsl GStrResize
	pla
	sta <AppDirPtr
	pla
	sta <AppDirPtr+2
	rtl
	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
VolumesOnLine	ProcName Export
*
* Description:	Marks flags to indicate that one or more volumes ARE on-line
* 	Also opens root directory of target volume so a second
*	volume of the same name on line will not screw up the user
*	(installation to the wrong volume or something).
*
* Inputs:	none
*
* Outputs:	none
*
* External Refs:
	Import TargetIsOpen
	Import InstallRemoveMode
*
	Export CloseTarget
	Export NoVolumesOnLine
	Export OpenTarget
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

; first close previous target's root directory (but only if it's already open)

	jsr CloseTarget

	jsr OpenTarget	; open target volume's root directory

	lda InstallRemoveMode ; There ARE volumes on line
	and #ÅbNoVols	; force NoVolumes flag to 0
	bra FinishUp
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
NoVolumesOnLine	
*
* Description:	Marks flags to indicate that there are NO volumes on-line
* 	Also closes root directory of previous target volume.
*
* Inputs:	none
*
* Outputs:	none
*
* External Refs:
	Import NoVolumes
	Import SetInstallRemove
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

	jsr CloseTarget

	sec	; Set the NoVolumes flag
	ror NoVolumes

	lda InstallRemoveMode
	ora #bNoVols
FinishUp	sta InstallRemoveMode

	jsr SetInstallRemove
	rts

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
OpenTarget
*
*External References:
	Import CurrentVol
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
	
	jsl GSOS
	dc.w Open
	dc.l Open_Parm
	bcs @done

	lda OpenRefNum
	sta CloseRefNum

	sec
	ror TargetIsOpen

@done	rts

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
CloseTarget
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

	lda TargetIsOpen
	beq @NotOpen

	jsl GSOS
	dc.w Close
	dc.l Close_Parm

	stz TargetIsOpen
@NotOpen	rts
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
;
; GS/OS parameter tables and local storage
;
Open_Parm	dc.w 0002	; pCount
OpenRefNum	dc.w 0000	; Reference Number
OpenPathname	dc.l CurrentVol	; Path Name Pointer

Close_Parm	dc.w 0001	; pCount
CloseRefNum	dc.w 0000	; Reference Number

	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
NewList2Call	Proc Export
*
* Description:	Folder List:
*	Makes a NewList2 tool call using variables maintained
*	in lieu of a memory based ListRecord
*
* Inputs:	none (Uses ListStart2, ListSize2, and AppFolderListHdl.
*
* Outputs:	Returns ListMgr errors
*
* External Refs:
	Import DialogPort
	Import AppFolderListHdl
	Import ListSize2
	Import ListStart2
	Import PrintListMem
	Import SelectListCtlHdl
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

; call NewList2 with the new list: start pushing parameters

	pea PrintListMem>>16   ;drawPtr    (member drawing routine)
	pea |PrintListMem
	pea 0001	   ; listStart: start with item number 1)

; SortList2 unlocks AppFolderListHdl; so pass it as a pointer so it wonÕt be unlocked

	ldx AppFolderListHdl+2
	lda AppFolderListHdl
	jsl DeRef	; Deref the hdl (already locked, but locks it)
	phx	; listRef: push pointer to the new list
	pha

; push rest of params

	pea 0000	; listRefDesc (listRef is a pointer)
	lda ListSize2	; listSize
	pha
	lda SelectListCtlHdl+2 ; ctlHandle of list control returned by NewControl2
	pha
	lda SelectListCtlHdl
	pha
	ldx #NewList2
	jsl ToolLocator

; now sort the list

	pea 0	; use standard comparison routine:
	pea 1	;   do case insensitive sort ($0001)
	lda SelectListCtlHdl+2 ; ctlHandle of list control
	pha
	lda SelectListCtlHdl
	pha
	ldx #SortList2
	jsl ToolLocator

	rts
	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
PrintListMem	Proc Export
*
* Description:	Folder List:
*	PrintListMem will print a member of the Directory List
*	when asked to do so by the ListMgrÑÑif, and only ifÑÑthe
*	current script requires directory selection
*
* Inputs: (on stack):
*	Pointer to bounding rectangle
*	Pointer to member record
*	Handle to list control record (cannot be used: MemPtr overwrites it)
*
* Outputs:	none
*
* External Refs:
	Import DirSelReq
	Import Pattern
*
* Entry Points:
*	none
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

OrigD	equ 1	; (not used)
RTLAdr	equ OrigD+2	; (not used)
CHandle	equ RTLAdr+3	; (value not used; overwritten by string location)
MemPtr	equ CHandle	; (overwrites CHandle)
MemberPtr	equ CHandle+4	; (handle is locked) (drawing: Toolbox Ref p.11-5)
RectPtr	equ MemberPtr+4

; Save the registers and make the stack	our zero-page.

	phd	; Save the direct register
	tsc	; Make the stack...
	tcd	;  ...our direct page
	phb	; Save the bank register
	phk	; Set the bank register...
	plb	;  ...to where we are now

; Does the current script require directory selection?

	bit DirSelReq
	bmi Start
	brl Finished

; need to access byte past end of string; used for disabled folder flag

Start	ldy #0002	; get memPtr (ptr to string) from Member Record
	lda [MemberPtr],y
	sta MemPtr+2	; overwrite CHandleÕs storage location
	lda [MemberPtr]
	sta MemPtr

; Clear whatever is	in the member's rectangle (in case it was previously
; inverse and is now to become normal).

	pei RectPtr+2	; Pointer to member's rectangle
	pei RectPtr
	ldx #EraseRect	; Erase the member's rectangle
	jsl ToolLocator

; Move the pen to the proper location

	ldy #0002	; Calculate the horizontal position
	lda [RectPtr],y	; Get the rectangle's 'LEFT' value
	clc	;  and move over enough to make room
	adc #0035	;  for the icon.
	pha

	ldy #0004	; Calculate the vertical position
	lda [RectPtr],y	; Get the rectangle's 'BOTTOM' value
	dec a	;  and back up two dots.
	dec a
	pha

	ldx #MoveTo	; Move the pen
	jsl ToolLocator

; Determine whether	the list member is a subdirectory or something else, then
; set up to show correct icon and print	name as active or inactive.

	lda [MemPtr]	; get string length (lo byte)
	and #$00FF	; get lo byte
	inc a	; point to flag beyond end of string
	tay
	lda [MemPtr],y
	bit #%0000000000000001 ; If bit 0=1, it's a disabled folder
	bne InactiveFolder

	ldy #0004
	lda [MemberPtr],y	; Get the flags byte & one other byte
	and #%0000000001000000 ; If bit 6=1, it's disabled (not folder)
	beq ActiveFolder

;       It's NOT a folder.  Set up to display the 'grayed-out' Document Icon

	sec	; Set a flag to indicate that icon...
	php	;  ...should be grayed-out.

	pha	; space
	pha
	pea 0	; document icon by file type
	pea $00	; file type of a document
	pea 0	; aux type (ignore)
	pea 0
	ldx #GetSysIcon	; get system icon of folder
	jsl ToolLocator	; leave icon pointer on the stack

;               Print the Icon; Icon pointer already pushed

	pea 0000	; Display mode

	ldy #0002	; Calculate the horizontal position
	lda [RectPtr],y	; Get the rectangle's 'LEFT' value
	clc	;  and move over three dots.
	adc #0001
	pha
		; Calculate the vertical position
	lda [RectPtr]	; Get the rectangle's 'TOP' value
	bra PrintIt

;        It IS a folder!  Set up to display the folder Icon.

ActiveFolder	clc	; Clear a flag to indicate that icon...
	bra Folder	;  ...should appear active.

InactiveFolder	sec	; Set a flag to indicate that icon...
Folder	php	;  ...should be grayed-out.

	pha	; space
	pha
	pea 0	; closed folder icon by file type
	pea $0F	; file type of a folder
	pea 0	; aux type (ignore)
	pea 0
	ldx #GetSysIcon	; get system icon of folder
	jsl ToolLocator	; leave icon pointer on the stack

;               Print the Icon; Icon pointer already pushed

	pea 0000	; Display mode

	ldy #0002	; Calculate the horizontal position
	lda [RectPtr],y	; Get the rectangle's 'LEFT' value
	clc	;  and move over three dots.
	adc #0002
	pha
		; Calculate the vertical position
	lda [RectPtr]	; Get the rectangle's 'TOP' value
	inc a
PrintIt	pha

	ldx #DrawIcon
	jsl ToolLocator

; Print the string

	pea -0008	; Horizontal displacement
	pea 0000	; Vertical displacement
	ldx #Move	; Back up eight dots
	jsl ToolLocator

	pei MemPtr+2
	pei MemPtr
	ldx #DrawString
	jsl ToolLocator

; If the item is NOT a folder, 'gray-out' the item

	plp	; Restore the gray-it-out flag
	bcc CheckSel	; bra if not to be grayed out

; gray out the item

	pea Pattern>>16	; Pointer to pen pattern
	pea |Pattern
	ldx #SetPenPat	; Set the pen pattern
	jsl ToolLocator

	pea $8001	; Indicate 'notOR'
	ldx #SetPenMode	; Set pen mode
	jsl ToolLocator

	pei RectPtr+2	; Pointer to rectangle
	pei RectPtr
	ldx #PaintRect	; Paint the rectangle
	jsl ToolLocator

	ldx #PenNormal	; Restore normal pen
	jsl ToolLocator

	bra Finished	; That's all folks!!!

;       Check to see if the entry is selected, and inverse it if it is.

CheckSel	ldy #0004
	lda [MemberPtr],y	; Get the flags byte & one other byte
	and #%0000000010000000 ; If bit 7=1, it's selected
	beq Finished

	pea #$0000	; Color number
	ldx #SetSolidPenPat	; Set the pen solid	pen pattern
	jsl ToolLocator

	pea $8002	; Indicate "notXOR"
	ldx #SetPenMode	; Set pen mode
	jsl ToolLocator

	pei RectPtr+2	; Pointer to rectangle
	pei RectPtr
	ldx #PaintRect	; Paint the rectangle
	jsl ToolLocator

	ldx #PenNormal	; Restore normal pen
	jsl ToolLocator

; Restore registers, fix the stack, and	exit

Finished	plb	; Restore the bank register
	pld	; Restore the direct register
	lda 1,S	; Move the return address up
	sta 13,S
	lda 2,S
	sta 14,S
	tsc	; Adjust the stack pointer
	clc
	adc #12
	tcs
	rtl
	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
GetMemPointer	Proc Export
*
* Description:	Folder List:
*	Given a List2 (Folder selection list) member's item number,
*	this call returns a pointer to the member's entry in the
*	List.
*
* Inputs:	A-reg contains member's item number
*
* Outputs:	X and A-reg contain pointer to member's list entry
*
* External Refs:
	Import AppFolderListHdl
	Import ListPointer2
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

	dec a	; We're zero based, not "1" based
	sta Temp

; Dereference the handle to List2

	lda AppFolderListHdl+2
	pha
	lda AppFolderListHdl
	pha
	jsl Dereference
	pla
	sta ListPointer2
	pla
	sta ListPointer2+2

	lda Temp
	asl a
	asl a
	clc
	adc Temp

	clc
	adc ListPointer2
	tax
	lda #0000
	adc ListPointer2+2
	rts

Temp	ds.w 1
	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
DrawNewList	Proc Export
*
* Description:	Folder List:
*	Forces the application folder selection List control
*	to be re-drawn
*
* Inputs:	none
*
* Outputs:	none
*
* External Refs:
	Import SelectListCtlHdl
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

	lda SelectListCtlHdl+2 ; ctlHandle
	pha
	lda SelectListCtlHdl
	pha
	ldx #DrawOneCtl
	jsl ToolLocator
	rts
	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
OpenMsgWindow	Proc Export
*
* Description:	Opens a window with no controls that can be used to let
*	the user know what is going on when we're going to be busy
*	for a while.
*
* Inputs:	X and Y contain address of message string.
*
* Outputs:	none
*
* External Refs:
	Import CursorArrowOn
	Import CursorWatchOn
*
* Entry Points:
	Export CloseMsgWindow
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

; Message window height and width definitions.  (To change window size, change
; these definitions only.  The window will be automatically centered.

MsgHeight	equ 45
MsgWidth	equ 320

; Message window rectangle definition.

MsgTop	equ 100-MsgHeight/2
MsgLeft	equ 320-MsgWidth/2
MsgBottom	equ 100+MsgHeight/2
MsgRight	equ 320+MsgWidth/2
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

; This routine is called by StartUp which is a dynamic segment which will
; probably be running in another bank!  So set the environment for this
; subroutine to guarantee it won't store data in unwanted locations.

Begin	phb	; save caller's data bank
	phk
	plb

; Get everything set up.  X and Y point to a LETextBox2 type string, prefixed
; by a length word.

	stx <ZPTemp	; Store the pointer
	sty <ZPTemp+2

	lda [<ZPTemp]	; Get the string length
	sta textLength

	inx	; Calculate position where string begins
	bne @0
	iny
@0	inx
	bne @00
	iny
@00	stx textPtr
	sty textPtr+2

	pha	; Space for result
	pha
	ldx #GetPort	; (Save current GrafPort)
	jsl ToolLocator	; (and leave on stack)

	jsr CursorWatchOn	; Switch to the "watch" cursor.

; Open the window

	pha	; Space for result
	pha
	pea StandByTemplate>>16 ; paramListPtr
	pea |StandByTemplate
	ldx #NewWindow
	jsl ToolLocator
	plx	; Get window's grafPortPtr
	ply
	stx StandByWindow
	sty StandByWindow+2

	phy	; Set the GrafPort
	phx
	ldx #SetPort
	jsl ToolLocator

; Draw the "talking head" icon

	pha	; space for result
	pha
	pea rIcon
	pea rIconNoteID>>16
	pea |rIconNoteID
	ldx #LoadResource
	jsl ToolLocator	; handle of resource left on stack

	jsl DeReference	; pointer to talking head icon left on stack

	pea 0	; DisplayMode
	pea 0010	    ; Horizontal position (LEFT)
	pea 0004	    ; Vertical position (TOP)
	ldx #DrawIcon
	jsl ToolLocator

; Display the message

	lda textPtr+2	; textPtr
	pha
	lda textPtr
	pha
	lda textLength	; textLength
	pha
	pea TextRect>>16	; rectPtr
	pea |TextRect
	pea 0000	; just (left justified)
	ldx #LETextBox2
	jsl ToolLocator

	ldx #SetPort	; (Restore the GrafPort)
	jsl ToolLocator	; (pointer still on stack)

	plb	; Restore caller's data bank
	rtl
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

; Routine to dispose of the window created above.

CloseMsgWindow	phb
	phk
	plb

	lda StandByWindow+2
	pha
	lda StandByWindow
	pha
	ldx #CloseWindow
	jsl ToolLocator

; Restore the arrow cursor.

	jsr CursorArrowOn

	plb
	rtl
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

; Local Data

StandByTemplate	dc.w StandByEnd-*	     ; paramLength
	dc.w %0010000000100000   ; wFrameBits (fAlert + fVis)
	dc.l 00000000	     ; wTitle
	dc.l 00000000	     ; wRefCon
	dc.w 0000,0000,0000,0000 ; wZoom
	dc.l 00000000	     ; wColor
	dc.w 0000,0000	     ; wYOrigin, wXOrigin
	dc.w 0000,0000	     ; wDataH, wDataW
	dc.w 0000,0000	     ; wMaxH, wMaxW
	dc.w 0000,0000	     ; wScrollVer, wScrollHor
	dc.w 0000,0000	     ; wPageVer, wPageHor
	dc.l 00000000	     ; wInfoRefCon
	dc.w 0000	     ; wInfoHeight
	dc.l 00000000	     ; wFrameDefProc
	dc.l 00000000	     ; wInfoDefProc
	dc.l 00000000	     ; wContDefProc
	dc.w MsgTop,MsgLeft	     ; wPosition
	dc.w MsgBottom,MsgRight
	dc.l $FFFFFFFF	     ; wPlane
	dc.l 00000000	     ; wStorage
StandByEnd

textPtr	ds.l 1	; LETextBox2 string pointer
textLength	ds.w 1	; LETextBox2 string length
textRect	dc.w 0004	; LETextBox2 rectangle
	dc.w 0065
	dc.w MsgBottom-MsgTop-4
	dc.w MsgRight-MsgLeft-10

StandByWindow	ds.l 1	; GrafPort of the "Stand By..." window

	EndP
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
Allocate	Proc Export
*
* Description:	Allocates memory of requested size up to $FFFF.
*	Block will not cross a bank boundary.
*
* Inputs:	A-reg contains memory size to allocate
*
* Outputs:	cFlag clear = no errors
*	cFlag set = error,  A-reg contains error code
*	X & Y contain handle of new memory segment.
*
* External Refs:
	Import MyID
*
* Entry Points:	none
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

	pha	; Room for result
	pha

	pea 0000	; Block size
	pha

	lda >MyID	; UserID (long addressing because may
	pha	;         be called from StartUp.)

	pea attrNoCross	; Attributes (don't cross boundary)

	pea 0000	; Location pointer
	pea 0000

	ldx #NewHandle
	jsl ToolLocator

	plx
	ply

	rtl

	EndP
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
scanDevices	ProcName Export
;
; Description:	Called during the main event loop to watch for disk
;	insertions or removals.
;
; Inputs:	none
;
; Outputs:	cFlag:  Clear no errors
;	        Set = error
;	cursor: set to arrow before exit
;
; External Refs:
	Import AddScripts
	Import Alphabetize
	Import CheckScript
	Import D_Cont_Parms
	Import D_Cont_DevNum
	Import D_DeviceNum
	Import DialogFlag
	Import DirSelReq
	Import NextThisDevice
	Import NoVolumes
	Import ScriptListBuilt
	Import ScriptListCtlHdl
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
	
	pha	; space for result
	pha
	pea $D000	; flags: scan devices, Volume call, inserts/ejects
	pea 0	; devnum
	ldx #HandleDiskInsert
	jsl ToolLocator
	plx	; devnum: device inserted or ignored
	pla	; flags

; any insertions or ejections?
	txy
	beq ScanDevDoneClr	; branch if no insertions or ejections

	lsr a	; bit 0: 1=ejection
	bcc Insertion

; ejection occurred: was device ejected the current device?

	cpx D_DeviceNum	; Compare against current device
	bne ScanDevDoneClr	; Don't advance to next device unless
		;   just removed disk was current disk.
	jsr NextDevice1	; advance to next device
	bra CheckList

; insertion occurred

Insertion	lsr a	; bit 1: 1=newly formatted
	bcs @Init	; bra if just newly initialized

;        previously initialized disk was inserted

	lda NoVolumes
	beq @PrevVols	; bra if vols previously on line

;            it's the only disk online, so advance to it

	phx	; save devnum
	txa	
	jsr NextThisDevice	; advance to this device
	plx	; retrieve devnum

@PrevVols	txa	; pass devnum in a
	jsr ckVolume	; get volume name to pass along in X/Y
	bcs scanDevDoneErr	; bra if got an error!
	ldx #VolNameBuffer
	ldy #^VolNameBuffer

;            it might have new scripts on it, to add to the list

	bit ScriptListBuilt	; Check to see if there's list to update
	bpl @2

	jsl AddScripts	; volume name just inserted in X & Y
	bvc @2	; Skip the rest if no scripts added.

;            new scripts added to list!

	jsl Alphabetize	; Re-alphabetize the list

	bit DialogFlag	; (hi-bit clear: Customized Installation)
	bmi @2	; bra if Easy Update

;            script list is visible: update it

	lda ScriptListCtlHdl+2 ; Redraw the script list control.
	pha
	lda ScriptListCtlHdl
	pha
	ldx #DrawOneCtl
	jsl ToolLocator

@2
	bra CheckNone

;        blank disk was inserted and user elected to initialize it

@Init	txa
	jsr NextThisDevice	; advance to this device

;        if no disks previously online, update any deactivated buttons in Custom

CheckNone	bit NoVolumes
	bpl @1
	stz NoVolumes
	bit DialogFlag	; (hi-bit clear: Customized Installation)
	bmi @1	; bra if Easy Update
	jsr CheckScript	; else update controls
@1

; changed devices, so may have to update application selection window (right list)

CheckList	jsr CursorArrowOn	; return to arrow cursor.

;               If we're currently in Customized Installation and directory
;               selection is required, we must also update the Application
;               Folder Selection window.

	bit DialogFlag	; (hi-bit clear: Customized Installation)
	bmi ScanDevDoneClr

	bit DirSelReq	; (hi-bit set: Directory selection needed)
	bpl ScanDevDoneClr

	jsl MakeNewList	; make new list of folders (right list)

ScanDevDoneClr	clc
scanDevDoneErr	ldx #0000
	ldy #0000
ScanDevDone	rts
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
getD_INFO	; (Local subroutine)
;
; Description:	Performs a GS/OS D_Info call.
;
; Inputs:	none
;
; Outputs:	none
;
; Uses:	parameters - D_Info parameter table
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

	jsl GSOS
	dc.w D_Info
	dc.l parameters
	rts
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

parameters	dc.w 8
devNum	ds.w 1	;INPUT: Device number to get info about.
	dc.l devName
devInfo	ds.w 1
	ds.b 10
devID	ds.w 1	;OUTPUT: Device ID number.

devName	dc.w 0035,0000
	ds.b 31
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
ckVolume	; (Local subroutine)
;
; Descriptions:	Check if there is a volume in the device.
;
; Inputs:	a = device number.
;
; Outputs:	Carry clear if OK, set if bad device number.
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

; --- Make volume call to device ----------------------------------------

	jsr getVolName	;Get volume name in device.
	bcc ckVolumeExit
	cmp #$11	;No more devices?
	beq BadDevice
	cmp #$28	;No floppy drive connected?
	beq NoError
	cmp #$2F	;No disk in 3.5" drive?
	beq NoError
	cmp #$52	;Was the disk initialized by another OS?
	beq wrongOS
	cmp #$27	;Disk never been initialized/No disk.
	beq uninitialized
	tax	;Some other error?
	beq newDevice

NoError	clc	;Device number was OK.
ckVolumeExit	rts

BadDevice		;Bad device error.

; --- Formatted media of an unknown OS is inserted ---------------------

wrongOS

; --- Uninitialized	media inserted --------------------------------------

uninitialized

; --- New device on line -----------------------------------------------

newDevice	sec
	rts
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
getVolName	; (Local subroutine)
;
; Description:	Get volume name in a device
;
; Inputs:	a = device number.
;
; Outputs:	none
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

; --- Get device name ----------------------------------------

	sta devNum	;Pass device number.
	jsr getD_INFO

; --- Get volume name in device ------------------------------

	jsl GSOS
	dc.w Volume
	dc.l getVol
	bcc @1

	cmp #DuplicateVolume
	bne @1

; If we reported a duplicate volume on-line, eject the disk and continue

	lda parameters+2	; Get the device number
	sta D_Cont_DevNum	;  and put in parameters

	jsl GSOS
	dc.w D_Control
	dc.l D_Cont_Parms

@1	rts


getVol	dc.w 2
	dc.l devName+2	;INPUT: Pointer to device name.
volName	dc.l volNameBuffer	;INPUT: Pointer to output name buffer.

volNameBuffer	dc.w 0036,0000
	ds.b 0032

	ENDP
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
CheckVolume	ProcName Export
*
* Description:	Checks CurrentVol's characteristics and notifies
*	the caller if it is locked or a non-ProDOS volume.
*
* Inputs:	none.
*
* Outputs:	cFlag set: GS/OS error.  A-reg contains GS/OS return code.
*	cFlag clear:  No GS/OS errors.  A-reg contains zero
*	nFlag set:  Current volume is locked.
*	nFlag clear:  Current volume is unlocked.
*	vFlag set:  Current volume is non-ProDOS format.
*	vFlag clear:  Current folume is ProDOS format.
*
* External Refs:	
	import CurrentVol
	export VolTotalBlocks  ; for use by Install.asm:Amendments
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

	ldx #CurrentVol
	ldy #^CurrentVol

; Initialize our flag

	stz Flag

; Check if the destination is write-protected.

	stx GetDevNumName	; Set up pathname pointer
	sty GetDevNumName+2

;       Using the volume name, get the device number

@1	jsl GSOS
	dc.w Get_Dev_Num
	dc.l GetDevNumParms
	bcs Oops

;       Using the device number, get the device name.

	lda GetDevNumNum
	sta D_Info_devNum

	jsl GSOS
	dc.w D_Info
	dc.l D_Info_Parms
	bcs Oops

;       Using the device name, get the volume info

	ldx D_Info_devName
	ldy D_Info_devName+2

	inx	; Change pointer from pointing to the
	bne *+3	;   buffer size word, to pointing to
	iny	;   the string's length word.
	inx
	bne *+3
	iny

	stx VolDevName
	sty VolDevName+2

	jsl GSOS
	dc.w Volume
	dc.l Volume_Parms
	bcs Oops

;       Now check for write-protection

	lda VolCharacteristics
	and #$0003	; write protection & read-only FST bits
	beq @2	; bra if not write-protected (both are 0)

	sec
	ror Flag
@2

; Now check the file system

;       Check the file system ID

	lda VolFileSysID
	cmp #ProDOSFileSys
	beq Exit

	lda Flag
	ora #%0100000000000000
	sta Flag

Exit	lda #0000
	bit Flag
	clc
	rtl

Oops	jsl Error
	rtl
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

GetDevNumParms	dc.w 0002	; pCount
GetDevNumName	ds.l 1	; devName  (Volume name)
GetDevNumNum	ds.w 1	; devNum

D_Info_Parms	dc.w 0002	; pCount
D_Info_devNum	ds.w 1	; devNum  (Device name)
D_Info_devName	dc.l devName	; devName

Volume_Parms	dc.w 0007	; pCount
VolDevName	dc.l devName+2	; devName
VolVolName	dc.l volName	; volName
VolTotalBlocks	ds.l 1	; totalBlocks
VolFreeBlocks	ds.l 1	; freeBlocks
VolFileSysID	ds.w 1	; fileSysID
	ds.w 1	; blockSize
VolCharacteristics	ds.w 1	; characteristics

devName	dc.w 35
	ds.b 33

volName	dc.w 35
	ds.b 33

Flag	ds.w 1
	EndP
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
LoadDiskNames	Proc Export
*
* Description:	load DiskName resources; if none, set StandardNo (goto Custom).
*	
* Inputs:	none
*
* Outputs:	carry: error
*
* External Refs:	
	import StandardNo
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

	stz StandardNo	; initialize
	pha	; Space for result
	pha
	pea rDiskNames ; resourceType
	pea DiskNames>>16 ; resourceID
	pea |DiskNames
	ldx #LoadResource
	jsl ToolLocator
	plx	; handle of resource
	ply
	ror StandardNo 	; if can't find resource: set StandardNo
	stx <DiskNamesHdl	;   use Custom only
	sty <DiskNamesHdl+2
	rts
	EndP
	End
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Installer/MakeFile b/IIGS.601.SRC/A.U.G/Installer/MakeFile
new file mode 100644
index 0000000..2377f27
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Installer/MakeFile
@@ -0,0 +1 @@
+################################################
###  MakeFile for Apple IIGS Installer V2.0  ###
###  © Copyright Apple Computer, Inc., 1990  ###
################################################

Obj = :Objects:

all		ÄÄ	Installer Installer.Dev
		  duplicateIIGS -y -mac Installer		Installer
		  duplicateIIGS -y -mac Installer.Dev	Installer.Dev

Installer   		ÄÄ  {Obj}Installer.Load				¶
						{Obj}Installer.Res
		  delete -i				Installer
		  duplicate		-y -d	{Obj}Installer.Load Installer
		  duplicate		-y -r	{Obj}Installer.Res  Installer

Installer.Dev		ÄÄ  {Obj}Installer.Load				¶
						{Obj}Installer.Res.d
		  delete -i				Installer.Dev
		  duplicate		-y -d	{Obj}Installer.Load  Installer.Dev
		  duplicate		-y -r	{Obj}Installer.Res.d Installer.Dev

{Obj}Installer.Res		Ä	Installer.r
			rezIIGS			Installer.r  -o {Obj}Installer.Res			¶
						-d	SystemSoftware	#define this so Easy Update is activated

{Obj}Installer.Res.d	Ä	Installer.r
			rezIIGS			Installer.r  -o {Obj}Installer.Res.d

{Obj}Installer.Load		Ä	MakeFile					¶
							{Obj}Main.asm.obj			¶
							{Obj}MainSub.asm.obj		¶
							{Obj}Startup.asm.obj		¶
							{Obj}Install.asm.obj		¶
							{Obj}Subroutines.asm.obj	¶
							{Obj}Data.asm.obj			¶
							{Obj}GSOString.lib
			linkIIGS     -t $B3 -at $DB07               ¶
					   		{Obj}Main.asm.obj			¶
							{Obj}MainSub.asm.obj		¶
							{Obj}Startup.asm.obj		¶
							{Obj}Install.asm.obj		¶
							{Obj}Subroutines.asm.obj	¶
							{Obj}Data.asm.obj			¶
					   -lib {Obj}GSOString.lib			¶
						 -o {Obj}Installer.Load

{Obj}Main.asm.obj		Ä	Main.asm				¶
							Installer.Equates		¶
							Installer.Records		¶
							Version.Macros
			asmIIGS		 -o {Obj} Main.asm

{Obj}MainSub.asm.obj	Ä	MainSub.asm			¶
							Installer.Equates		¶
							Installer.Records
			asmIIGS		 -o {Obj} MainSub.asm

{Obj}Startup.asm.obj 	Ä	Startup.asm			¶
							Installer.Equates
			asmIIGS		  -o {Obj} Startup.asm

{Obj}Install.asm.obj 	Ä	Install.asm			¶
							Installer.Equates
			asmIIGS		  -o {Obj} Install.asm
							
{Obj}Subroutines.asm.obj Ä	Subroutines.asm		¶
							Installer.Equates
			asmIIGS		  -o {Obj} Subroutines.asm

{Obj}Data.asm.obj		Ä	Data.asm				¶
							Installer.Equates		¶
							Installer.Records		¶
							Version.Macros
			asmIIGS		  -o {Obj} Data.asm

{Obj}GSOString.lib		Ä	GString.lib
			asmIIGS		 -o {Obj} GString.lib
			Delete		 -i {Obj}GSOString.lib
			makelibIIGS	 -l {Obj}GSOString.lib			¶
						 -r {Obj}GString.lib.obj
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Installer/Objects/Installer.Load b/IIGS.601.SRC/A.U.G/Installer/Objects/Installer.Load
new file mode 100644
index 0000000..3032ce2
Binary files /dev/null and b/IIGS.601.SRC/A.U.G/Installer/Objects/Installer.Load differ
diff --git a/IIGS.601.SRC/A.U.G/Installer/Objects/Installer.Res.d b/IIGS.601.SRC/A.U.G/Installer/Objects/Installer.Res.d
new file mode 100644
index 0000000..e69de29
diff --git a/IIGS.601.SRC/A.U.G/Installer/Release Notes.Installer b/IIGS.601.SRC/A.U.G/Installer/Release Notes.Installer
new file mode 100644
index 0000000..1c6454a
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Installer/Release Notes.Installer	
@@ -0,0 +1 @@
+* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
*			                  *
*      A P P L E   I I g s   I N S T A L L E R   P R O G R A M   V  2 . 1     *
*                                                                             *
*                              by "Jay" Schaffer                              *
*                               and  Ron Lichty                               *
*			                  *
* This program permits adding, replacing, and/or deleting files on a volume   *
* based on instructions contained in a 'script' file.	                  *
*			                  *
*  Copyright Apple Computer, Inc. 1987-1992              All Rights Reserved  *
*			                  *
* * * * * * * * * *	* * * * * * * * * *	* * * * * * * * * *	* * * * * * * * * *

;______________________________________________________________________________
;
;          B U I L D - D A Y    I N S T R U C T I O N S
;______________________________________________________________________________

Release Notes.Installer  update to note Installer/System versions and build date.

Version.macros	update Installer version and build date.
Installer.r	update Installer rVersion.

Search for 'brk'.
Do a build or a full build:  Prove itÕs working.

Project / Mount A.U.G.
	Double-click Installer (in Check-Out Window)

Project / Check In...
	Select All
	Keep Modifiable (unless you're going out of town)

Build / Installer -> Pasta for Testing

Version.macros	update Installer version and build date.
Installer.r	update Installer rVersion.

rewrite Release Notes.Installer to Word document
	Alfredo: Release Notes: 6.1 Release Notes: 6.1 Release Notes

;______________________________________________________________________________
;
;          E R S - R E L E A S E    I N S T R U C T I O N S
;______________________________________________________________________________

Update:
	cut in any graphics
	date and version on front cover
	date and Installer version on Revision History
	Appendix E (the Standard Update Script)
	Appendix G (Testing Recommendations)

print a copy

review for page breaks

redo Table of Contents for new page numbers

print Table of Contents

2 single-sided copies for me

original -> Kirk for distribution, double-sided, including one to my archives

electronic -> Lee, Kirk

;______________________________________________________________________________
;
;          R E V I S I O N   H I S T O R Y   V e r s i o n   2 . 0
;______________________________________________________________________________

; V2.0 is an almost total rewrite of the Installer program.  The biggest changes
; include conversion to GS/OS Class 1 calls, elimination of macros (except for
; 'Version.Macros', addition of program segmentation, and the extensive use of
; resources.
;______________________________________________________________________________

; 20 Mar 90 V2.0d1	Initial release for user interface testing of the Custom
;	Installation dialog.  Code is still pretty shaky but every-
;	thing is there and sort-of working.  (DESIGINATED V2.0X)
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
; 20 Mar 90	Converted ApplicationDir to a dynamically allocated GStr in
;	preparation to eliminating hierarchy depth limitations.

; 21 Mar 90	Filetype $04 still recognized as script, however,
;	filetype $B0 with auxtype $0017 or $0018 is also recognized.

;  3 Apr 90	Completed implementation of:
;	  - new data structures for storing full pathnames of script
;	    files.
;	  - use of prefix #8 to permit l-o-n-g prefixes.
;	  - eliminated hierarchical depth limitations.

;  4 Apr 90 V2.0d2	Fixed a bug connected with triple clicking on a destination
;	folder name.

;	Implemented Icons in the PopUp menu.
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
; 12 Apr 90 V2.0d3	Worked with Harry to fix MenuMgr and made alterations in my
;	implementation of PopUp menus with icons to match.
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
; 16 Apr 90	Added a general purpose talking-head message box that can
;	be used to notify user of what's happening when there are
;	delays in continuing (such as: stand-by...searching for scripts.

; 17 Apr 90	Fixed a bug that was causing the open button not to be
;	activated and deactivated properly in all cases.

; 23 Apr 90	Added a null field to the end of the icon file so that the
;	Finder wouldn't go off to never-never land looking for the
;	next icon.

; 25 Apr 90	Added code to create a null list when deactivating the
;	application selection window and to create a legitimate
;	list during activation.

;	Added code to delete all PopUp menu items when the PopUp
;	is deactivated.

;	Fixed a bug that was preventing the New Folder control from
;	properly becoming active.

; 26 Apr 90 V2.0d4	Added code to declare the Application Folder Selection
;	window as a "ValidRect" after the list is redrawn so that
;	Taskmaster will not redraw it a second time.
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
;  7 May 90	Implemented code to add scripts found in the root directory
;	of any on-line volume.

;  8 May 90	Reinstalled the old original Heapsort--something is wrong
;	with the later one that doesn't sort properly.

; 14 May 90 V2.0d5	Finished implementing script searching to include adding
;	scripts to the list that were double clicked.
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
; 23 May 90	Implemented disk scanning and adding scripts from "just-
;	inserted" volumes.

; 29 May 90	Moved everything to /Install6.0 disk and changed Icons file.

; -- --- --	Much testing and bug fixing!

;  2 Jul 90 V2.0d6	Added code to permit any readable block device to appear
;	as a potential destination volume, but with INSTALL and
;	REMOVE dimmed if the the volume is not write-enabled.
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

;  7 Jul 90	Added the Standard Update help screen.

; 20 Jul 90	Re-sized both dialogs and added key-equivalent info to
;	buttons, as appropriate.  Added arrow buttons for switching
;	back and forth between the two dialogs.

; 23 Jul 90 V2.0d7	Revised initialization so that current disk and current
;	volume remain unchanged when switching back and forth
;	between the two dialogs.

; NOTE:  Version number was accidently NOT updated.  This release appears as
;        V2.0d6 dated 23 Jul 90!
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
; 30 Jul 90	Added code to dim "Begin Standard Update" when disk cannot
;	be installed upon.

;  1 Aug 90	Eliminated call to alter GS/OS preferences.  (Let GS/OS ask
;	for disks as needed.

; 13 Aug 90	Added code to catch duplicate disk insertions.

; 25 Sep 90	Install.asm now operational with full SuperScript implemen-
;	tation!  Begin Standard Update is the only major piece left.

; 26 Sep 90	Found an error in DrawFilename (called by UpdateMsgWindowRead
;	and UpdateMsgWindowWrite) that was setting the GrafPort back
;	to an invalid address.

; 26 Sep 90 V2.0d8	BRC #73799 - Left out an AND #$00FF in NewFolderSub when I
;	was looking for a trailing SeparatorChar.  Thus, I kept
;	appending another separator everytime the user tried again
;	to correct a bad name.
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
; 29 Sep 90	BRC #74101 - Removed an extra PHA when calling _Alert on a
;	script that requires that the help field be displayed.

;  3 Oct 90	BRC #74112 - Eliminated requirement that there must be a
;	"9:SCRIPTS" folder.  "No scripts found" is only reported
;	now after all possible script locations have been searched.

;  3 Oct 90	BRC #74102 - Added code at beginning of Error handler to
;	assure it will do absolutely nothing if it receives a
;	"Volume Not Found" error (GS/OS is handling that now).

; 10 Oct 90	Got the "Begin Standard Update" button running, installing
;	from a script resource in the Installer program.  {THE LAST
;	FEATURE IS NOW IN PLACE.}

; 17 Oct 90 V2.0d9	Got the first part of the supporting code to operate.  I
;	can install System:Start and System:Finder appropriately.
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
; 24 Oct 90 V2.0d10 Reimplemented the code to support the StandardUpdateScript
;	such that it appends FileSpecFields to the end of the
;	script as needed to install Start, Finder, UniDisk3.5,
;	SCSIHD.Driver, and SCSI.Manager.  Revised script to reflect
;	new volume name of ":Install:" and new locations of some
;	files.
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
; 31 Oct 90	Repaired a bug in reading the SYSTEM:START file to determine
;	what it contains.

;  1 Nov 90	BRC #69391 - Widened the Standard Update dialog box to handle
;	the longest possible HFS volume name.

;  	BRC #74115 - Replaced an erroneous JSL with the proper JSR.

;  2 Nov 90	Added some missing variable initialization that was preventing
;	a Standard Update from taking place if the user merely ran
;	the Installed and hit "Begin Standard Update" button to install
;	on the the boot disk.

;  3 Nov 90	The SYS.RESOURCES file on the boot disk CAN NO LONGER be
;	closed--it is being used by tools that the Installer relies
;	on and will cause a fatal error if it is closed.
;	     Therefore,  if we get a "Duplicate File" error, it is
;	assumed that we have encountered the SYS.RESOURCES file on
;	the boot disk, since we should be able to delete anything
;	else before we try to _CREATE a new file.
;	     Whenever a "Duplicate File" error is encountered, a
;	write is simulated to keep the thermometer dial on track
;	but the write never actually occurs!

;	Amazing!  GS/OS _Volume call returns a "Not a ProDOS disk"
;	error on an HFS volume even though the HFS.FST is present!
;	On the disk scan, I've special-cased o ignore this error.

;	Added ReBootDialog to StandardUpdate quit sequence.  (Not
;	sure how I overlooked that before!)

;  4 Nov 90 V2.0d11	(It appears that V2.0d10 released as a disk image did not
;	get saved correctly.  Everyone has had trouble with it.  So
;	I am re-releasing today as a new version.)
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
;  6 Nov 90	Changed StandardUpdate script so that all fonts except
;	FastFont and Tools 025, 026, and 029 are "Update"s.

;	Fixed a bug in the ScanDevices routine with Dave Lyons'
;	help.  Pointer needed one more dereference to be safe.

;	Removed the WindowColor as a resource from the rWindParam1
;	resources.  Dave Lyons descovered a bug in the Window Mgr
;	when trying to deal with a color table as a resource.

;	ReadBufEnd was being set before the StandardUpdate script
;	was being amended!  That goofed up DeleteField's _BlockMove!

;  7 Nov 90 V2.0d12	{Released after midnight.} A component of System 6.0d19.
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
; 12 Nov 90	Added code to prevent using "Begin Standard Update" button
;	if the destination is anything other than a ProDOS format
;	disk.

;	Made right and left arrow keys active for going back and
;	forth between the two dialogs.

; 13 Nov 90	Fixed a bug in Check4Scripts that was not testing for the
;	correct script FileType and AuxType.

; 14 Nov 90 V2.0d13	Released directly to testing.  Not part of a system release.
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
; 15 Nov 90	Added code to NewFolderSub to set the system prefix to the
;	full pathname describing the just-created folder and added
;	code to move the name into application directory name.
;	{{¥¥¥This may have fixed a whole bunch of bugs!¥¥¥}}

; 19 Nov 90	Fixed a mess associated with the dialog to notify the user
;	we calculate space on 'foreign' volumes.

;	Converted the "Done" message to a subroutine so it could be
;	added to Standard Update.

; 20 Nov 90	Changed wording of completion messages in hopes of
;	clarifying what has really happened.

;	Added a missing dereference ahead of an <AppDirPtr access.
;	This fixed the bugs pertaining to system hang when clicking
;	on the ADU script.

;	Added a little subroutine to check volume for write-protect
;	and foreign format.

;	Utilized the old "Installer's volume" bit (15) in the
;	InstallRemoveMode word to indicate write-protection.

; 21 Nov 90	Fixed MakeFile to create Installer with FileType = $B3 and
;	AuxType = $DB07.

; 21 Nov 90 V2.0d14	Released directly to testing.  Not part of a system release.
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
; 27 Nov 90	Widened the PopUp menu to accomodate the longest possible
;	HFS volume name without truncating.  (NOTE: Change the
;	rectagle definition in resourced AND the width definition
;	for _CalcMenuSize in MainSub.asm to change PopUp size.)

;	Added code to skip script list building if there are no
;	scripts in the SCRIPTS folder.

; 28 Nov 90	Changed a BNE to a BCC in the UpdatePopUp code which was
;	causing a crash if there were no volumes on line and the
;	CurDir name was null.

; 28 Nov 90 V2.0d15	Signed into Projector to be included on system build 2.0d20.
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
; 30 Nov 90	Added to code to switch to "watch" cursor whenever the
;	OpenMsgWindow is called and to switch to the "arrow"
;	cursor when CloseMsgWindow is called.

;	Added delay code to pace device scanning at about 1 sec.

;  3 Dec 90	PopUp menu still not wide enough to display icon and longest
;	possible folder name.  Boy!  It REALLY looks silly now!

;  4 Dec 90	Changed "startup" to "start up" in help screen.

;  5 Dec 90	Fixed a bug in the InstallSUB/RemoveSub error exit routines.
;	If the script got cancelled, things really got screwed up!

;  5 Dec 90 V2.0d16	Released directly to testing.  Not part of a system release.
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
;  5 Dec 90	Corrected an oversight in the CompareNames subroutine.  The
;	destination pathname is NOT fully expanded when the Standard
;	Update script is running.  Therefore, it is necessary to get
;	a temporary buffer and fully expand it to make the comparison.
;
;  5 Dec 90 V2.0d17	Part of system 6.0d21 release.
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
; 10 Dec 90	Fixed a bug in the routine to compare the current directory
;	with the boot volume name during system level installations.
;
;	Removed the SimpleKeyFilter as an input parameter to the
;	ReBoot dialog's _Alert call.  It caused a bomb.  Need a
;	logic analyzer to trouble shoot it.

;	Removed and erroneous error handler call in the ScanDevices
;	subroutine that was causing errors to be reported on such
;	things as a "Device not connected" when there was a CDROM
;	drive on line but nothing mounted

; 12 Dec 90	Added code to advance to the next online when the current
;	disk is manually ejected.

; 12 Dec 90 V2.0d18	Released directly to testing.  Not part of a system release.
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
; 13 Dec 90	Discovered that if a file was too large to copy in one pass
;	and the TooSmallFlag was being set, it was not getting
;	cleared again if the next file had an empty data fork, such
;	as a CDev.

; 13 Dec 90 V2.0d19	Released directly to testing.  Not part of a system release.
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
; 13 Dec 90	Added code to determine if a "File is already open" error is
;	caused by attempt to delete Sys.Resources on boot volume.
;	If so, file is closed and deleted and Sys.Resources on the
;	:Install disk is opened for read only.

; 14 Dec 90	Fixed a bug in the AmendScript routine that was not properly
;	adding the START and FINDER FileSpec fields to the script
;	when appropriate.

;	Revised DeleteFile so that it could return some errors
;	rather than ignore all errors.  (Of course, only a few could
;	possibly occur by this time, but we only really wanted to
;	ignore those generated if there was no file to delete.)

; 14 Dec 90 V2.0d20	Released directly to testing.  Not part of a system release.
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
; 17 Dec 90	Fixed a bug in Startup.asm that was removing the trailing
;	separator character from the boot volume name string, then
;	spreading the faulty string around to everyone, including
;	the PopUp, which didn't like it at all!

; 18 Dec 90 V2.0d21	Released directly to testing.  Not part of a system release.
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
; 18 Dec 90	Not in the right bank when the QuitFlag was initially cleared
;	as the Installer is first starting up.  Changed to long
;	address.

;	Fixed a typographical error in operand syntax when loading
;	registers to call CheckVolume.

;	Oops!  I created a bug with my fix of the ScanDevice routine
;	to make it advance to the next on removals.  Now OK.

; 18 Dec 90 V2.0d22	Released directly to testing.  Not part of a system release.
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
; 20 Dec 90	Added code to build a new list for the Application Folder
;	selection window following a manual disk ejection.

;	Added code to do a NewList2 call after adding more scripts
;	to the list following a disk insertion.

;	Converted CurrentVol to a string with a trailing colon.  (It
;	was inconsistent before and causing problems.)  Identified
;	every routine using CurrentVol and modified as needed.

;	Implemented a work-around for a problem presented by the
;	ResourceMgr when I wanted to shut-down the Sys.Resources
;	file.  Seems it was part of another resource search path
;	and everything was getting screwed up by the time I finished
;	trying to switch to the Install disk's Sys.Resources file.

; 20 Dec 90 V2.0d23	Released directly to testing.  Not part of a system release.
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
; 21 Dec 90	Back-tracked to eliminate Converting CurrentVol to include
;	a trailing colon.  It really should have been done, but to
;	try and do it now breaks far too many things!  Must find
;	another way to fix the comparison in CheckForReboot.

;	Removed the trailing colon from the VolStr (boot volume
;	name) after distributing it to everyone so it would be of
;	the correct format for comparing with the string at
;	CurDirPtr later.

; 21 Dec 90 V2.0d24	Released directly to testing.  Not part of a system release.
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
;  2 Jan 91	Revised BuildDirName to handle the situation where the
;	volume name and the final folder name are too long to fit,
;	as they might be with very long HFS names.

;  3 Jan 91	Changed all copyright notices to include 1991.

;	Oops!  I should have used long addressing to remove the
;	trailing colon in VolStr (see above) because the StartUp
;	segment may not be in the same bank with Data.asm.

;  3 Jan 91 V2.0d25	Released directly to testing.  Not part of a system release.
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
;  3 Jan 91	Added a GetCurDirPtr call to CheckForReboot to be sure that
;	CurDirPtr is set correctly everytime through.

;	String at CurDir should be stored without a trailing colon.
;	String at AppDir should be stored with a trailing colon.

;	Added code to handle no volumes on line when switching
;	between the dialogs.

;  3 Jan 91 V2.0d26	Released directly to testing.  Not part of a system release.
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
;  4 Jan 91	Fixed a bug that came from the days of Customized Install as
;	the only dialog where I was initializing the 1st PopUp menu
;	item with the contents of <CurDirPtr.  Changed to contents
;	of CurrentVol since <CurDirPtr could point to a full path
;	when re-entering Customized Installation and we wanted only
;	the volume name.

;  4 Jan 91 V2.0d27	Released directly to testing.  Not part of a system release.
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
;	Added a long address in GetCurDirPtr since it may be called
;	from another bank.

;  4 Jan 91 V2.0d28	Part of system 6.0d22 release.
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
;   First fixes by rdl.
;   Optimized GStrNew and GStrResize.
;   Fixed bugs in CompareNames and rewrote it for size: 1st bug Greg Branche found,
;handle that was being allocated under Standard Update, but was being disposed of 
;regardless of Standard Update or not.  Second bug involves failed call to GStrResize
;due to string sent to Expand_Path being longer than buffer available to put it in.
;Lots of optimizations.
;   Fixed bug in GStrNew: string size was being sign-extended rather than zero-extended.

; 22 Jan 91 V2.0d29	Part of system 6.0d23 release.
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
; 23 Jan 91	Install.Asm: Fixed bug: that occasionally caused
;	8-minute delays between "Stand by..." message and "Calculating
;	space" message: Just after NextDevice, DeviceCounter was
;	being incremented in memory but not loaded to accum before
;	accum was compared with NumberOfDevices.

;	Main.asm: Fixed bug: in AllDone, long for result was not pushed
;	prior to call to GStrAsC1Inp, resulting in use of stack above
;	allocated stack space.  Also optimized, by leaving result of
;	Dereference on stack for use by GStrAsC1Inp, rather than pull/push.

; 24 Jan 91	Installer.r: Added a space on either side of File and Edit menus.

; 25 Jan 91	Main.asm & MainSub.asm:  ldy #^CurrentVol+2  ->  ldy #^CurrentVol

;	Main.asm:  stz DialogFlag at beginning of CustomProgram to indicate 
;	customized installation (previously assumed init to zero).

; 28 Jan 91 V2.0d30	Released directly to testing.  Not part of a system release.
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

; 29 Jan 91	MainSub.asm: Remove ÔExport NoErrorÕ thatÕs not being called.
;	(It loops back to GetDInfo, which decrements SearchFlag,
;	 which is not initialized coming in through NoError!)

; 	Main.asm: @ Real_Start: phk/plb, then stz absolute (not lda #0, sta >long ).

;	Main.asm: early in StandardProgram: call to new label ConditionBtns (in VolumeSub).
;	It does virtually the same, except it also calls #Active on BeginStdControl
;	and it calls #Active on ÔChange Disk to UpdateÕ control (used to unhilite btn presses)
;	and it conditions hi bit of var InstallRemoveMode (which may be a bug fix).
;	(The rest is an optimization.)

; 30 Jan 91	Installer.r:  fix bug:  rToolStartup:  Font Manager wasnÕt being started.
;	BRC#81223: Then updated minimum version numbers to 6.0 version numbers.

;	Main.asm: fix bug: KeyDown for Std Install: accum different values (anded Task.Modifiers
;	and Task.Message) on two branches to Check4Arrow.  Also optimized.  Now
;	Task.Message is loaded into Y, while Task.Modifiers is loaded into accum.

; 30 Jan 91 V2.0d31	Released directly to testing.  Not part of a system release.
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

; 30 Jan 91	Oops.  EventMgr is not at 3.01. ItÕs 3.00 on ROM 01 machines. Crashes/hangs them.
;	Change Installer.r back.

;	Data.asm: Change Line1/Line2 text box to ÔYou must start up from System 6.0 
;	or later to run the Installer.Õ (prev. specified a version of GS/OS).

;	Startup.asm: bug fix (above): Have error from StartUpTools put dialog, not crash/hang.
;	Add label Requires6_0 to call to TLTextMountVolume.
;	BRC#81308: Change GSOS version to 3.04 to signify System 6.0 minimum.
;	Change unused button from Button2 (left) to Button1 (right).
;	Make OKStr be button2 & use local version; make it right button by pushing it 
;	left with spaces.  Do that because escape chars are counted in Button1Õs 
;	right justification & we added them to use MouseText returnChar after OK.
;	Add label @noStartToolErr: after call to StartUpTools, if no error, bra here;
;	else (error) bra to Requires6_0.
;	Main.Asm: Add label MoreDone to shutdown code AFTER AllDone (after toolsShutdown,
;	systemPrefs are reset, and prefixHandle is locked, dereffed, and set.
;	Startup.asm: if GSOS version call isnÕt high enough, jump to MoreDone,
;	since tools not started, prefs not got, prefixHandle of system not got.
;	Also jump to MoreDone if GStrNew fails in resizing PrefixPointer--same stuff not done.
;	Move GSOS Set_Sys_Pref call to below GStrNew call so previous sentence is true.

; 31 Jan 91	Oops. Startup.asm: Bank was not being restored before jml AllDone & jml MoreDone.
;	This was also true in CustomDialog. (No plbÕs before jmlÕs anywhere in Installer.)

;	Main.asm:  remove StandardDrawExit (not being used).

;	Startup.asm / Main.asm:  Turns out that ShutDownTools does NOT do the right
;	thing if error in StartUpTools returns a bogus-enough answer.
;	So if error in StartUpTools, do jump to new label AlmostAllDone, which
;	is AFTER call to ShutDownTools (rather than jump to AllDone).

;	Note: ResourceShutdown is no longer called in the one case when
;	the OS is the correct version but the tools are not.  Leaving the resource
;	fork of the Installer open after the program quits (meaning you canÕt
;	copy a new version over the top of the old one).

; 31 Jan 91 V2.0d32	Released directly to testing.  Not part of a system release.
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

;  4 Feb 91	Installer.r: start Scrap Manager to support NDAs.

;	Installer.r: 
;	BRC#81533: Standard Update: update FolderPriv CDEV
;	BRC#81735: Standard Update: update VideoKeyboard DA
;	BRC#81736: Standard Update: update StyleWriter driver
;	BRC#81734: Standard Update: do not update ADU
;	BRC#81739: Standard Update: do not update Shaston 16

;	Installer.asm: AmendScript: bug fix: limit add of FileSpecField size to a byte
;	(load from [<ZPTemp2] first, then and #$00FF, then add 1,s).

;  4 Feb 91 V2.0d33	Part of system 6.0d24 release.
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

;  4 Feb 91	WS#BK285: Std Update: Installer.r: change CDEV to CDevs in delete scripts.

;	Installer.r: Add fDrawIconInResult and fDrawArrowIcon to 
;	rControlTemplate(popUpCtl)Õs ctlMoreFlags field.

;	Installer.r: Add fCtlCanBeTarget and fCtlWantEvents to
;	rControlTemplate(SelectListCtl) and (ScriptListCtl)Õs ctlMoreFlags fields.
;	Rearrange picture to make room for TargetControl emboldening of lists.

;	Main.asm: Remove not-in-control beeping.

;  5 Feb 91	Main.asm: apple-tab to swap list controls as the target in custom install.
;	Fix bug: KeyDown for Custom Install: accum different values (anded Task.Modifiers
;	and Task.Message) on two branches to Check4Arrow.  Also optimized.  Now
;	Task.Message is loaded into Y, while Task.Modifiers is loaded into accum.

;	Main.asm: fix bug: Custom KeyDown: Apple-Shift-O was branching to Eject,
;	not Open.

;  6 Feb 91	Main.asm: commented out, at StandardProgramÕs AllDone, saving error codes/status;
;	not used by calling routine, Real_Start.

;	Main.asm: fix bug: Custom: after @NotWriteEnabled, code branches to InitControls;
;	branch should have been to InitTaskMaster.
;	Optimized CustomProgram.

;	Main.asm: in CustomProgramÕs KeyDown, add SendEventToCtl for keystrokes
;	not used elsewhere (to allow moving up and down the two lists).

;	Sort Application Folder list:
;	MainSub.asm: add call to SortList2 after call to NewList2 in NewList2Call.
;	In MakeNewList, move call to NewList2Call to before 1st member is selected (or
;	not, depending on whether itÕs active or dimmed).

;	replace ListHandle2 with AppFolderListHdl.

;	Main.asm: add emAutoKey to event mask TaskMaster is looking for in both event loops.

;  7 Feb 91	Main.asm: remove phb/plb pair from InstallSub / RemoveSub.
;	They were there because the routines call the dynamic Install/Remove segment.
;	But Both routines called in that segment themselves do phb/plb.
;	And the plb in Main.asm is after several vars are accessed, (a bug).

;	Main.asm & data.asm: remove var PartCode (antiquated and misleading references).

;  8 Feb 91	Install.asm: Install/Remove: remove ScriptErrorExit1 & ScriptErrorExit10.
;	(Originally, CalcAndCopy must have allocated ScriptHdl; these two
;	labels branched around GetRidOfHandle; but now BuildSuperScript
;	allocates ScriptHdl, so it wasn't getting deallocated in certain error
;	conditions.)


; 10 Feb 91	Main.asm: pulled InstallSubÕs 7 Feb phb (naturally, it was crashing).

; 11 Feb 91	Install.asm: StandardUpdateSub: bcc UnloadScript branches to #ReleaseResource;
;	but the resource still needs releasing under an error condition;
;	fix is to push result of CalcAndCopy, do ReleaseResource, pull previous result.

;	Main.asm: Custom's KeyDown: send all keys we're not using to target control
;	(had been limiting to nonmodified chars).

; 11 Feb 91 V2.0d34	Released directly to testing.  Not part of a system release.
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

; 12 Feb 91	Allow ScriptNameField location to vary by having variable number of
;	flag fields: specifically, allow a 3rd flag: digit 0-9 indicates the 
;	number of levels above the directory script is in to use as a source
;	prefix to the prefix in sourcePrefix field (or Ô-Õ for Ôno actionÕ).
;	Main.asm: HelpSub: search for Help string based on ScriptFlagField,
;	not ScriptNameField; look for char past three carriage returns.
;	Install.asm: Caution: same thing.
;	Install.asm: Check flags for validity: add check for digit or dash.
;	Install.asm: Added var: ScriptParentLevel: values (not ASCII) 0-9 or $FFFF.
;	Install.asm: CompactScript: init ScriptParentLevel to $FFFF;
;	check for 3rd flag: if not there (cr) or '-', leave ScriptParentLevel @ $FFFF;
;	if '0' to '9' then convert to 0 to 9 and store to ScriptParentLevel;
;	else report error.
; 13 Feb 91	Subroutines.asm: Check4Scripts: remove unused label ItsOK.
;	Data.asm: Add word var oScriptNameField.
;	Installer.Equates: Remove equ ScriptNameField.
;	Subroutines.asm: ReadScriptHeader: determine location of ScriptName field
;	and store to oScriptNameField.
;	Subroutines.asm: Check4Scripts: replace Immediate references 
;	to ScriptNameField with Absolute references to oScriptNameField.

; 	Subroutines.asm: Check4Scripts: fix bug: adds three using increment: 
;	inx / bne around next instruction / inc a
;	- except that third inc a (after @000) is an iny (perhaps high was in Y once?).
;	Change iny to inc a.

; 	Subroutines.asm: Check4Scripts: fix bug: jsr to GetScriptNameLength
;	is followed by sta and txa.  GetScriptNameLength is only documented
;	as returning accum.  Turns out last instruction in GetScriptNameLength
;	is a txa, so this currently works.  Removed the txa in Check4Scripts.

; 	Subroutines.asm: Check4Scripts: optimizations: in repeated cases,
;	accum is used to pull both low and hi, then they are reloaded for an 
;	addition.  After @1 after CheckTheEntry, change to pull hi with X, add to 
;	existing lo in accum, txa to get hi for hi add.  In another case (above 
;	MoveLoop2), not only was this being done, but the final store was to the 
;	interim store location.  Change to clear carry, pull lo into accum, add and 
;	store; pull hi into accum, add hi and store.

;	Install.asm: Optimization: Removed routine Upper from CompareNames.
;	Renamed UpperCase8bit, made it long (rtl and jslÕs to it), moved
;	to Subroutines.asm.  Removed code in Subroutines.asm, replacing with
;	jsl UpperCase8bit.

;	Main.asm: FolderListSub (called by KeyDown): bug fix: Targetable list
;	is seeing repeated alpha-char-folder-selection as double-click.
;	Add check for mouse before calling double-clickÕs action.

;	Data.asm: in strings: replaced dumb quotes ("") with smart quotes (ÒÓ).

;	Data.asm: bug fix (kind of): CurScriptFile was allocated 16 bytes of
;	storage; however, these days, only a pointer to a file is stored to it.
;	Replaced with ds.L.

;	Mid-version Projector checkin.

; 18 Feb 91 V2.0d35	Part of system 6.0d25 release.
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

; 15 Feb 91	Install.asm: optimized FindSeparator (was pushing value, then adding from stack!).

;	Part 2 of process begun 12 Feb: use ScriptParentLevel to get extra
;	prefix if ScriptParentLevel is other than $FFFF.
;	Install.asm: ExtractSrcPrefix: at ExtractPrefix, first check ScriptParentLevel
;	and determine and move script parentÕs directory before moving prefix 
;	in ZPTemp (both to SourcePfxPtr).
;	Install.asm: store pointer to script pathname to Scriptfilename.
; 17 Feb 91	(more of the same)

;	Install.asm: ExtractSrcPrefix: Fixed bug at CheckLength: accum was being 
;	compared with #0, but accum had a pointer word, not the source prefix length 
;	as documented and expected.  Now load src prefix length.
;	Install.asm: ExtractSrcPrefix: Fixed bugs at @Search: Made no sense at all.
;	Was switched to 8-bit (SEP) with no LONGA OFF to assembler; because of
;	bug at CheckLength, described above, this code was never executed; else
;	the cmp #SeparatorChar would have been executed in 8-bit but compiled in
;	16-bit and would have crashed.
;	As would have the jsl GStrResize.
;	LDA in 8-bit lost the high byte of the stringÕs length.
;	TAY in 8-bit accum risked passing a garbage high byte to the index register.
;	Length was loaded, then used as an index into the same buffer, then
;	incremented multiple times! (Looking at text past end of buffer!)
; 18 Feb 91	Install.asm: CompactScript: Fixed bug: var Index was declared, but with no
;	storage, so it was using the next labelÕs storage, GetPfxParms, leaving a 0 
;	in the parameter count field when GSOS was called for a GetPrefix call!
;	Prevented no-prefix-specified-so-use-InstallerÕs-prefix code from working.
; 19 Feb 91	Install.asm: Fixed bug: Prefix being sought to get InstallerÕs prefix 
;	was 1 instead of 9.

;	Continuation of work to implement ScriptParent.
;	Previous method of appending headerPrefix and fileSpecPath used GetPrefix.
;	But a Parent may rise to a null prefix, which can't be set, or expanded from.
;	Install.asm: Rewriting ProcessFileSpec to build full pathnames by hand
;	(or using help of GString.Lib).
; 20 Feb 91	(More of the same.)
; 21 Feb 91	(More of the same.)

; 21 Feb 91 V2.0d36	Released directly to testing.  Not part of a system release.
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

; 22 Feb 91	Subroutines.asm: Fixed bug in old routines that nixed new routines
;	with scripts double-clicked on in Finder: Scripts were being passed
;	in with slashes rather than colons and never translated to colons.
;	In CheckMsgCenter: translate slashes to colons in scriptnames from
;	Message Center.

; 24 Feb 91	Add disk initialization for unformatted disks.
;	Mainsub.asm: NextDevice: If error from Volume call is drvrIOError
;	(i/o error), then offer to format the disk (by calling Format).
;	If user cancels or format fails, eject disk and go on.

; 25 Feb 91	Installer.r: Update Std Update script:
;	Sound, Slots, and Keyboard CDevs moved to SecondDisk;
;	Update-only for SetStart (decreases size of minimum Std Install);
;	update Shaston 16 font;
;	WS#BK327: Update more Courier fonts;
;	WS#BK328: Update more Geneva fonts;
;	WS#BK326: Update more Helvetica fonts (note:no updates using fourth disk);
;	WS#BK329: Update more Times fonts (note:no updates using fourth disk);
;	WS#BK330: Update more Venice fonts (note:update Venice 24, not the 14 in bug report);
;	Delete, not Install, for System.Setup:CDEV.Init (no longer needed --Dave Lyone).

;	Startup.asm: Require GSOS vs 4.0 (up from 3.4) to support new Format call.

; 25 Feb 91 V2.0d37	Part of system 6.0d26 release.
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

; 28 Feb 91	Installer.r: Changed Standard Update script: 
;	WS#BK337: GSCalc.NDA to Calculator.NDA.

;  1 Mar 91	BRC#82707: Fixed NetWork:Server Startup script.
;	BRC#80388: Fixed Installer ERS screen shot.

;  3 Mar 91	Install.asm: StandardUpdateSub: Fixed bug: ReleaseResource is  
;	called to get rid of the StdUpdateScript, but the handle wasnÕt 
;	unlocked first.  Now unlock it.

;  4 Mar 91 V2.0d38	Part of system 6.0d27 release.
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

;  4 Mar 91	Installer.r:  Replaced flag-specified Dividing Line in menus with 
;	string-specified disabled-dash Dividing Line to match other
;	system 6.0 application menus.

;	Main.asm:  Fixed bug: In Custom Install, Apple-Tab would switch
;	target lists even when the right (folder selection) list was
;	inactive.  Now test DirSelReq flag before make window switch.

;  5 Mar 91	Installer.r: CompactScript: Validated new PreventBootFlag ScriptFlag.

;	Mainsub.asm: Fixed bug: (reading code): Dir_Reader: only a word
;	was being stored to PointerSize, but PointerSize+2 was being added
;	to determine end of block.  Changed PointerSize+2 to #0000.
;	Changed PointerSize from ds.b 4 to ds.b 2 (given that block is
;	allocated as noBankCross, the size must be <64K anyway.

;	Mainsub.asm: Fixed bug: found by Dave Lyons: The Installer was
;	ÒborrowingÓ bit 0 of the Member Flags byte in list Member Records
;	to flag inactive folders (AppleShare, I think).  This was an
;	unused bit in Toolbox Ref Vol 1 (p.11-6), but reserved.  And now
;	is used, along with bit 1, by the List Manager to flag items as
;	being handles or resource IDs rather than pointers for SortList2.
;	ÒJayÓ had a spare byte following every string with the flag
;	already in it: heÕd built an array of strings and flag bytes
;	first, then built an array of Member Records, transferring the
;	flag byte from one array to the other.  
;	Fix:  Dir_Reader:  ANDed out bit 0 during the transfer;
;	PrintListMem:  look to flag at end of string for inactive folder flag.

;	WS#MS435INS: Data.Asm: Changed dialog (re not able to determine space) 
;	text from ÒÔforeignÕ formatÓ to Ònon-ProDOS diskÓ.
;	Remove: ÔThe ÒDisk to Update:ÓÕ from beginning of the text; substitute
;	^0 for substitution with the volume name.
;  6 Mar 91	Install.asm: CalcAndCopy: Use ParamText to set substitution text
;	to the volume name.
;	Modified dialogÕs alertTemplate to meet Human Interface Note #10.

;	Mainsub.asm: SimpleKeyFilter: Fixed bug: Had RTS, not RTL at end.
;	Optimized SimpleKeyFilter.

;	Install.asm: CalcAndCopy: Reinstalled SimpleKeyFilter as an input 
;	parameter to the non-ProDOS-disk dialog.

; 10 Mar 91	Data.asm: Changed 'Latest Sys' to ' System ' as the partial name
;	that a script's ScriptName should begin with in order for that
;	script to be the first selected script to be read in (if boot code,
;	must be first FileSpec; remaining filespecs are arranged so that
;	boot disk created will boot with optimal speed).  Updated all doc
;	to match.

; 11 Mar 91	Mainsub.asm: Reinstalled SimpleKeyFilter as an input parameter to the
;	ReBoot dialog (see 6 Mar fix).

;	Mainsub.asm: Add SimpleKeyFilter as input parameter to
;	the Error dialog (allow Esc to make Error dialog go away).

;	Install.asm: WS#MS438INS: Caution: increase size of Caution
;	dialog box to accomodate more text.  Modified dialogÕs 
;	alertTemplate to meet Human Interface Note #10.

; 11 Mar 91 V2.0d39	Part of system 6.0d28 release.
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

; 12 Mar 91	MainSub.asm: scanDevices: doc says it returns carry to
;	indicate insertion occurred.  But carry was only being set,
;	never cleared, so on disk removal of LAST (lowest-numbered)
;	device online, carry was returned set, so calling routine
;	tries to open the Ônewly insertedÕ (but really just
;	ejected) disk, and GS/OS finds the disk out and asks
;	for reinsertion.  Fixed by inserting clc before returning.

; 13 Mar 91	Installer.r: Name changes in StdUpdate script for Media Control:
;	MediaCtlNDA -> MediaControl, MediaCtrl (CDEV) -> MediaControl;
;	added temporary lines to DELETE old-named files.

;	Data.asm:  re WS#MS435INS: Added ÔThe disk Õ to beginning of
;	dialog (re not able to determine space because non-ProDOS disk)
;	and put ÒquotesÓ around disk name.  Added Ô?Õ to end of
;	ÔDo you want to continue?Õ question.

;	Mainsub.asm:  Error dialog: Modified dialogÕs 
;	alertTemplate to meet Human Interface Note #10.

;	Mainsub.asm:  Modified SimpleKeyFilter so it eats only
;	<return> and <esc>, returning all other keys and events
;	for processing by Alert toolcall.  (Fix Dave Lyons-reported bug.)
;	Further optimized SimpleKeyFilter.

;	Mainsub.asm:  Modified Reboot dialog to meet Human Interface 
;	Note #10.

;	Install.asm:  Modified DoneMessage dialog to meet Human Interface 
;	Note #10.  

;	Install.asm:  Modified UnknownMix dialog to meet Human Interface 
;	Note #10.  (This dialog responds to user trying to quit 
;	mid-installation.)

;	Install.asm:  Added call to SysBeep2 to beep when DoneMessage
;	alert has been drawn: Operation-complete beep, deferred til
;	GetNextEvent, beep by default.

; 14 Mar 91	Main.asm:  Changed Custom InstallÕs Help dialogÕs script text
;	to a modal dialog User Item to make VideoKeyboard work with
;	Help dialogs (VideoKeyboard was erasing the script-specific
;	help text).
; 15 Mar 91	Optimized Help dialog code, and installed OneSimpleKeyFilter as 
;	filter parameter (allow Esc to make Help dialog go away).

;	Main.asm: Created OneSimpleKeyFilter to map both Return and Esc
;	onto ÔOKÕ button in one-button dialogs.

;	MainSub.asm: Changed SimpleKeyFilter to OneSimpleKeyFilter for Error dialog.

;	Main.asm: StdInstall Help: Added OneSimpleKeyFilter as filter parameter
;	(allow Esc to make Help dialog go away).

;	Main.asm: About Box: Added OneSimpleKeyFilter as filter parameter
;	(allow Esc to make Help dialog go away).

;	Main.asm: both KeyDown routines: Fixed bug with VideoKeyboard:
;	Clicking Cmd-? on VideoKeyboard was not being accepted the
;	same as typing Cmd-?.  KeyDown had been coded restrictively
;	to require both mouse buttons up in addition to command down.
;	Changed to require only command-key down.

;	Mainsub.asm: made Command-period the same as Esc in
;	SimpleKeyFilter and OneSimpleKeyFilter.

;	Installer.r:  Standard Update script:  Changed filenames:
;	Sys.Tools1 to SystemTools1,
;	Sys.Tools2 to SystemTools2,
;	Calculator.NDA to Calculator,
;	VideoMix.NDA to VideoMix,
;	CtlPanel.NDA to ControlPanel.
;	Added temporary lines to DELETE old-named files.

; 15 Mar 91 V2.0d40	Released directly to testing.  Not part of a system release.
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

17 Mar 91	Main.asm: Custom Install: Add Command-DownArrow as equivalent
	to Cmd-O (open folders).

	WS# MS439INS: Fixed: Main.asm: New-Folder button: Set bit 30 of 
	filter proc to force ibeam cursor over lineedit field;
	increase height of lineedit box by 2 pixels.
	Modify dialog to meet Human Interface Note #10.
	Change text from <text>... to <text>:.
	Substitute SimpleKeyFilter for existing filterproc to
	allow cmd-period in addition to Esc.
	Delete previous filterproc.
	Change case of default folder name from UNTITLED to Untitled.
	BRC# 80617/WS# BK254:  Fixed maximum characters bug, so that
	new folder names are limited to 31 characters, the HFS maximum.
	
	Fixed bug: Error dialog button text was set too high or too low:
	buttons must be declared with an odd-pixel height for text to center.
	
19 Mar 91	Install.asm: Amendments: removed label Oops (not used).

	Install.asm: AmendScript: Change Sys.Tools1 to SystemTools1
	for location of Finder file being amended to Standard Update script.
	Change *+3 to @noHiDec, *+4 to @noHiInc.	

	Install.asm: StandardUpdateSub: Fixed bug: If you ran standard
	update and cancelled, then ran standard update again, a
	save of the Finder and Start are appended to the end of the
	script a second and then a third and then a fourth time and so on.
	Standard Update resource was being loaded and its handle
	increased in size.  The next time it was loaded it was already
	in memory so LoadResource returned the already-enlarged handle.
	Fix was to get the original size and save it; then after calling
	LoadResource, if there's a saved value, use it to SetHandleSize.

; 20 Mar 91 V2.0d41	Part of system 6.0d29 release.
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

22 Mar 91	Main.asm: ScriptListSub: optimize.  (Sets controls based
	on scripts selected.)

25 Mar 91	Main.asm: ScriptListSub:  Optimize.
	Remove redundant code in REMOVE button section.
	Remove code redundant with CheckScript.
	Dim Install button if PreventBoot flag set & 
	VolStr (boot volume) = CurrentVol (current volume).
	WS# MS437INS: Fixed: turn on Install button on transition
	from no scripts to some scripts.
	Subroutines.asm: Check4Scripts: (builds list of scriptNames
	and flags for each script):
	convert flags to new symbols in Installer.Equates (bDirReq,
	bNoRemove, bPreventBoot); add bPreventBoot flag coding.

	MainSub.asm: removed InstallRemove & SetRemoveControl: not in use.
	MainSub.asm: optimized RemoveControlOn / Off by calling RemoveControl.

26 Mar 91	MainSub.asm: removed RemoveControl: not in use.
	Removed redundant RemoveControlOn / Off.
	Fixed logic errors in Install and Remove.
	Added logic to SetInstallRemove to check for bPreventBoot bit
	in InstallRemoveMode and to check for boot volume.
	Generally rewrote all of Install/Remove button subsystem.

27 Mar 91	Changed routine names from ListWindow2Sub to FolderListSub,
	and from ListWindowSub to ScriptListSub.
	
	Continued rewrite of Install/Remove button subsystem.
	Implemented BootVolTest: check if target volume is Boot volume.
	Added Talking Head alert message: 'One or more of the updates
	you have selected cannot be installed to this disk
	because it is in use as your active boot disk.'

	Added BootVolTest to Standard Install.
	
	Installer.r: added type rDiskName and resources to specify names
	of the four Install disks.

28 Mar 91	Installer.r: Changed disk names to not have ':' at end, and
	added ':' into each Delete/Install/Update; disk names can then
	be used for rDiskNames for comparison with target disk.
	
	Install.asm: Removed Sys.Resources can't-delete-it-because-it's-open
	weird close-it-open-it code (since can no longer install system
	files to Boot disk).
	Startup.asm: Removed code that shut down our resource file and
	opened a new resource path (since can no longer install system
	files to Boot disk).
	WS# MS444INS: Fixed by above.
	
	Changed window titles from both the same to add ' - Customized
	Installation ' and ' - Standard Update '.
	
	Data.asm: Changed Talking Head message by prefixing words 
	ÔOnly those selectedÕ:
	ÔOnly those selected updates that require folder selection will use the
	ÒApplication FolderÓ shown above.Õ

29 Mar 91	Mainsub.asm: Load rDiskNames resource.  If none, set StandardNo.

31 Mar 91	Installer.r: Added rVersion resource (please test with Finder 
	when Finder has this capability).

	Installer.r: Forced Standard Update Script to not be loaded 
	across banks.
	
	Main.asm: If no rDiskNames resource, go directly to Custom.
	
	Startup.asm: If no rDiskNames resource, disable StandardUpdate
	button.
	
	Main.asm:  ConditionBtns: call new routine DiskNamesTest.
	Mainsub.asm: DiskNamesTest: compare target volume with names
	in rDiskNames, the names of the Installer disks.
	Subroutines.asm: Created NoCaseCompare8bit to compare two bytes
	with no case sensitivity.

 1 Apr 91	Change disable of StandardUpdate button to hide of button
 	on no rDiskNames resource.
	
	BRC# 82840 / WS# BK300: Lengthened popup to fit longest HFS
	folder name.
	
	The following bugs are fixed in 6.0d30:
	WS#s: BK287, MS429INS, MS436INS, MS437INS, MS444INS.
	BRC#s: 81669, 81670, 82039, 82840.
	WS# BK334 is not a bug.
	Also fixed WS# MS440INS and BRC# 81063.
	
	Installer.r: Standard Update script: 
	add ÔDelete System:CDevs:CDev.Data.2.0 (for Dave Lyons).

;  1 Apr 91 V2.0d42	Part of system 6.0d30 release.
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

 2 Apr 91	Mainsub.asm: call ConditionBtns in DiskSwitch if writeEnabled;
 	make sure itÕs not boot disk or one of Installer disks; 
	makes ÔBegin Standard UpdateÕ and ÔEjectÕ buttons work
	correctly on manual eject of disks.
	
	Mainsub.asm: Fixed bug with Eject button on manual eject of disks:
	NextDevice1: call CheckCharacter to condition Eject button properly.
	
	Main.asm: Conditionbtns: Remove conditioning of Eject button
	(redundant).
	
	Main.asm: Conditionbtns: Check for 5.25Ó & if so, then
	dim ÔBegin Standard UpdateÕ (no Standard Update to 5.25Ó).
	
 3 Apr 91	Startup.asm: CustomDialog: remove extensive apparently redundant
	code used to initialize the popup menu, along with the
	data buffer MenuItemName in Data.asm.
	
	BRC# 82839: Fixed so Standard Install is not to the subdirectory
	that has been set in Customized Installation:
	Mainsub.asm: added routine SetPrefixCurrVol to set the 
	current prefix (8) to CurrentVol (normally set to CurDirPtr).
	Main.asm: StandardProgram: call SetPrefixCurrVol.
	Main.asm: CustomProgram: call SetPrefix	to set prefix 
	to CurDirPtr.
	
	Mainsub.asm: SetCurrentVol: return CurrentVol to length without
	trailing separator char (Õ:Õ) for consistency.
	
	Startup.asm: ToolStartup: set CurDirectory to length *with*
	trailing separator char (Õ:Õ) for consistency.
	
	Main.asm: ScriptListSub: remove call to FlushEventQueue @ end.
	Allows typing multiple keys to select scripts in script window.

 4 Apr 91	Added Cmd-I for Install and Cmd-R for Remove (Custom Install).
 	Main.asm: Rewrote inContent as inControl for both windowÕs main 
	event loops (now ignore inContent).
	Added tmContentControls & tmControlKey to StdÕs TaskMask.
	Added tmContentControls to Custom InstallÕs TaskMask.
	Removed Standard InstallÕs KeyDown routine entirely.
	Removed most of Custom InstallÕs KeyDown routine, before
	calling SendEventToCtl and, if valid for control, passing
	the record to InControl to handle.
	Installer.r: Modified almost all control resources to take
	key equivalents.
	Cut hundreds of bytes of code.
	And made all key equivalents blink the appropriate buttons.

5 Apr 91	Main.asm: Added key shortcuts:
	Cmd-uparrow: shifts target directory up hierarchy to its parent dir;
	Escape: shifts target directory up hierarchy to its parent dir;
	Cmd-escape: shifts target directory to root dir.
	
	Data.asm: Changed Customized Help text to reveal that this is 
	the Customized Installation part of the program.  Changed the
	heads from Outlined style to Bold.
	Changed Standard Help to reveal that this is Standard Install.
	Expanded the explanation in Standard Help and redesigned the
	dialog to fit.

 6 Apr 91	Mainsub.asm: NextDevice1: Expanded disk initialization:
 	WS# BK338: Tests for and only initializes 3.5Ó disks.
	Blank 3.5Ó disks: Puts a dialog that the disk is unformatted;
	if click ÔInitializeÕ, puts up full GSOS Format dialog
	except, if Standard Update, forces ProDOS format (since 
	thatÕs all that Standard Update can write to).
	MSDOS, HFS, etc.-initialized disks when FST not installed: Puts
	a dialog that it recognizes the disk is formatted but canÕt
	work with it and prompts to initialize or eject;
	if click ÔInitializeÕ, puts up full GSOS Format dialog
	except, if Standard Update, forces ProDOS format (since 
	thatÕs all that Standard Update can write to).

 7 Apr 91	Mainsub.asm: NextDevice1: During initialization in Custom,
	erase ÔDisk to updateÕ name and popup so theyÕre not
	seen (and misleading) when initialization dialog is
	put up.
	
	Mainsub.asm: NextDevice1 and SetInstallRemove: fixed
	ÒcanÕt install to Boot diskÓ message not to blink.

;  8 Apr 91 V2.0d43	Part of system 6.0d31 release.
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

 8 Apr 91	Add ÔMore HelpÕ menu and ÔKeyboard ShortcutsÕ menu item.
 	Connect to help windows.
 9 Apr 91	Same.
10 Apr 91	Same.

12 Apr 91	Move Keyboard Shortcuts dialog data from Main.asm to Data.asm.
	
	Mainsub.asm: startDevices: Remove FirstPassFlag (set but
	never read).
	
	Mainsub.asm: substitute new HandleDiskInsert tool call for lots
	of code in ScanDevices.  If it indicates a new disk was inserted
	_and formatted_, advance target to the newly formatted disk.
	Main.asm: remove call to startDevices; no longer needed.
	
	BRC# 86274: Main.asm: heightened Standard Update help, added line,
	Ô  - It cannot install to the active boot disk or to 
	the Installer disks.Õ
	
	Main.asm and Mainsub.asm: convert lots of InitCursor and
	WaitCursor tool calls to jsrs to subroutines that make the calls.
	
	Fixed WS# BK391, BK396.

14 Apr 91	Mainsub.asm: remove lots of no longer used code at
	startDevices and scanDevices.
	
	Mainsub.asm: NextDevice1: Remove formatting code upon tabbing
	to an uninitialized disk or a disk with an unknown format.
	
; 15 Apr 91 V2.0d44	Part of system 6.0d32 release.
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

16 Apr 91	Install.asm: Fixed bug (code reading): RemoveFlag was not
	being cleared (Install, not Remove) before Standard Update;
	(worked because high word of 4-byte address is always zero).
	
	Change D_Info_Parms+2 to D_DeviceNum.
	
	Install.asm: pull GetTargetDInfo out of GetFreeSpaceOnDest
	and make it a separate entry point to get device info of the 
	target by first getting device number of CurrentVol.
	Install.asm: Amendments: add call to GetTargetDInfo for DeviceID:
	if target is a 3.5" (DeviceID=3) with no existing SYSTEM folder, 
	then install Finder as START and do not install SetStart.
	
	Install.r: remove UPDATE of SetStart.
	Install.asm: Amendments: UPDATE SetStart always,  
	except INSTALL SetStart if: 1) install new Start (System 
	folder didn't exist); or 2) if Finder was Start, so we're
	installing new Start (and Finder as Finder).
	
	Major bug discovered:
	Standard Update resource is loaded, then amended, then
	compacted, then released and unlocked; but a second Standard
	Update will not reload the resource, so it starts with
	whatever remnants are in memory based on the target of the
	previous Standard Update, and this time makes any amendments
	to the end of the original length way beyond the current
	end of the script.  In other words, it's bogus!
	Fixed by calling DisposeHandle on ScriptHdl at end of 
	each Standard Update.
	And remove code added to remember size of resource, used to fix
	the half of bug found on March 19 (the resource could grow; I
	missed the fact that it could also shrink).

17 Apr 91	Install.asm: Remove yesterdayÕs DisposeHandle and replace
	PurgeLevel3 with DisposeNow as the Purge Level to the
	ReleaseResource call on the Standard Update script.
	
	Installer.r: 
	change Slinky to A2.RAMCard;
	add line to delete Finder.Icons.
	
; 17 Apr 91 V2.0d45	Not part of a system build release.
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

	Installer.r: Add line to delete A2.Slinky.

19 Apr 91	BRC# 80868 / WS# BK257: Install.asm: Subtract from 
	TotalBlocksForInstall, used for the total for the
	thermometer, filespecs being deleted due to 
	unnecessary updates.  Thermometer now updates correctly.
	
	Install.asm: Fixed bug found reading code: CalculateSpace:
	On Remove, all thatÕs executed is a BIT and a bra to RTS.
	But caller expects carry clear unless thereÕs a problem.
	Now bra is to lda #0000 / clc.
	
	Install.asm: add SortSource:
	A compacted script is in memory,
	but any particular source disk may be scattered
	through the filespecs.
	Organize the filespecs so that scattered source file disks 
	are together.
	Get another piece of memory the same size as the script
	and move filespecs there, one by one.
	If not enough memory is available, stick with the original
	script.

20 Apr 91	SortSource.

21 Apr 91	Brand new Standard Update interface, designed by Matt
	Deatherage (who in DTS also supports the Mac Installer),
	complete with a name change from Standard Update to Easy Update,
	button name changes, 
	making the "Install" button the default button,
	converting the "Customize" button from an icon to a simple button,
	changes to the Easy Update help screen,
	and adding a modicum of help text in the window itself.
	It now better matches the Macintosh Easy Update user interface,
	and feels much cleaner.
	Disk name is a substitution string, and updated in
	an entirely different manner from before.

22 Apr 91	Turn blastText bits on in many Custom Keyboard Shortcuts strings
	to reduce code and display help screen faster.
	Add a few pixels space in new Easy Update screen.
	Change button name from ÒInstallÓ to ÒEasy UpdateÓ and
	screen and help text to match.
	Removed Òv2.0Ó from window title (itÕs now in lower left corner).
	
23 Apr 91	Turn blastText bits on in two Customized Installation and
	one Easy Update (Òv2.0Ó) strings.
	BRC# 78832 / WS# BK238: Fixed.
	Adjusted center button size / location so theyÕre centered
	between the two lists.

24 Apr 91	Easy Update script:
	Fixed ÒSystem.CDevs:NamerÓ to ÒSystem:CDevs:NamerÓ update;
	Removed Tool037 update (Animation Tool Set, no longer
	linked to 6.0).

23 Apr 91	Data.asm: changed sort scriptnames leading characters for
	system software scripts from Ò System Ó to Ò*System Ó.
	
; 23 Apr 91 V2.0d46	Part of system 6.0d33 release.
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

25 Apr 91	MainSub.asm: Fixed bug with new Easy Update dialog:
	all disks offline was writing message to menu bar.
	
	Install.r / Data.asm: Increased width of Easy Update
	dialog 14 pixels so disk name is on line by itself;
	invalidated *two* rects, so that internationalization
	will be easier if a disk name does *not* occur on a line break.
	
	Main.asm: Made ÔChange DiskÕ button highlight until disk
	name has been updated.
	
 6 May 91	Install.r: Removed delete of AppleShare.Prep re: Dave & Mark.
	
	BRC# 87684: Version.Macros: Change 'V' to 'v'.
	Main.asm: Change 'V' to 'v'.
	
;  6 May 91 V2.0d47	Part of system 6.0d35 release.
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

 6 May 91	Scripts: Update help for all Media Control scripts, for
 	VideoMix script, for HFS script,
	and for CloseView script (BRC# 87683).

10 May 91	Main.asm: Optimized code in Customized Install Help dialog
	(3 PLAs and no CLC / LDA #0 at end, as in Tech Note #91 revision.)
	
15 May 91	Install.asm: finish SortSource, begun April 19th, to
	organize the filespecs so that scattered source file disks 
	are together.  (BRC# 81671)

16 May 91	Install.asm: CopyAndDeleteFiles: clean up and optimize.

18 May 91	Make Help button work under all conditions, not solely when
	a single script has been selected. (BRC# 87368).
	Main.asm: ScriptListSub: remove help flag being set -- it wasnÕt
	being used anywhere anyway; change ÒinactiveÓ to ÒactiveÓ as
	Help button setting under ALL conditions.
	Data.asm: Set up a separate help message for zero or too many 
	scripts selected.
19 May 91	Main.asm: HelpSub: Check NumOfSelections: if zero or >one,
	do parallel track to getting scriptÕs help message by setting
	pointer to the help message to new message in Data.asm.
20 May 91	Data.asm: Update help message.
	Main.asm: ScriptListSub: Merge 3 "Active" Help button sets to one
	and move to Custom's initialization area.
	
; 20 May 91 V2.0d48	Part of system 6.0d37 release.
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

21 May 91	Installer.r & Installer.equates: Added menu item 'Erase Disk...'.
	Main.asm: Added code to add erase behavior to menu item.
	Mainsub.asm: NextDevice1: Disabled menu item if no disks online.
	Mainsub.asm: CheckCharacter: Enabled menu item if formatting allowed;
	else disabled menu item.

	Main.asm: Commented out two calls to CheckCharacter, already
	called by NextDevice1 (should have been redundant).
	
22 May 91	Installer.r: Update Finder regardless (added to Easy Update script).
	
	Installer.r & Installer.equates: Added menu item 'Installer Help...'
	that has duplicate functionality to Help Button.
	
	WS# MS456INS: Installer.asm: Fixed bug with SortSource, wherein 
	the length of the super script was miscalculated for
	multiple scripts with duplicate filespecs
	(now GetHandleSize of ScriptHdl, not use ReadBufEnd).
	
	Main.asm: HelpSub: remove reset of port to DialogPort
	(artifact from when we drew directly into the dialog).
	
	Main.asm: HelpSub: remove calls to highlight help button
	(artifact from before it was handled automatically 
	by the Control Manager).
	Remove calls to highlight Disk, Open, New Folder, and Eject
	buttons, too (shortens their highlighted life, but means they
	don't blink with unhighlight/highlight sequence).
	
	Fixed Erase Disk bugs: wasn't clearing Application Folder Selection
	list after doing an erase; put up error message if user
	canceled from Erase Disk dialog.

23 May 91	Startup.asm: Replaced only call to Check4Scripts 
	with AddScripts (very similar code)l
	Should fix BRC# 82706.
	
	BRC# 88354: Startup.asm: moved check for 'B' flag
	from Check4Scripts to AddScripts.
	
	BRC#s 78084, 78618: Fixed bug found by Dave about 2/22/91:
	If no update scripts were available, after the 'No updates
	found' alert, the arrow cursor flickers (because the
	'Searching for update scripts' window is accidentally
	still open!, but hiding behind the Easy Update window).

24 May 91	Erase Disk menu item:
	Mainsub.asm: CheckCharacter: Disabled Erase Disk menu item if 
	target is boot disk.
	
28 May 91	BRC# 87290: Startup.asm: SetSystemPref: Set to $8000, not OR in 
	$8000 (which has been recently resulting in value of $C000,
	which does not put a Cancel button in Volume Mount dialogs).

	Erase Disk menu item:
	Startup.asm: Get the launch volume into LaunchVolStrBuffer.
	Mainsub.asm: CheckCharacter: Disabled Erase Disk menu item if
	target is launch disk.
	
; 28 May 91 V2.0d49	Part of system 6.0d38 release.
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

29 May 91	BRC# 82838: Fixed all-upper-case of installed-files bug.
	Install.asm: ExpandPath's parameter list was only two parameters;
	it requires three parameters, the third a flags word,
	to force upper-and-lower-case (ProcessFileSpec).
	Also fixed dupe elimination to ignore case (EliminateDuplicates).

30 May 91	MainSub.asm: NextDevice: prevent potential dangling handle:
	in case of no devices online, call GetCurDirPtr and GetAppDirPtr
	before setting their length to zero, then unlock them.
	
	MainSub.asm and Main.asm: convert GetAppDirPtr to a long routine,
	and all jsr's to jsl's.
	
	Install.asm: CheckForReBoot: Fixed bug where restart 
	was not forced after installing system software in one case:
	when an application is, alphabetically, the last script installed;
	compare was between CurDirPtr and VolStrBuffer;
	changed to use length of VolStrBuffer.

31 May 91	Easy Update script: remove deletion of Finder.Def file, at
	request of Dave.
	
	Install.asm:  Fixed bug: restart was not forced when last
	script is an application, due to ScriptFlag having an 'X'
	in it (direct store of each filespec's flag to ScriptFlag):
	init ScriptFlag to 0; store current filespec's flag to ScriptFlag
	only if there's not already an 'R' (root: system file) there.
	CheckForReBoot: change compare to 'R' and beq (from 'X' / bne).
	
	BRC# 89035: Installing application and non-application, where
	non-app is last, left CurDirPtr with volume, not folder name.
	Install.asm: restore CurDirPtr with AppDirPtr before putting up
	'Install went ok' message.
	
	BRC# 78835: garbage in folder selection window when 'Install
	went ok' message is up:
	MainSub.asm: converted MakeNewList to long (rts -> rtl).
	Install.asm: call MakeNewList before putting up DoneMessage.
	
	BRC# 82553: enhancement request not possible (not within
	design of Installer) (as designed).
	
	Easy Update script: Made Easy Update fit on a floppy 
	(at least with SCSI altho perhaps not with UniDisk 3.5)
	by changing from Install to Update the following:
	CDEVs: Direct Connect
	Drivers: ImageWriter
	Drivers: Modem
	Drivers: Printer
	Easy Access

 7 June 91	Fix crash: was occurring after Easy Update -> hard disk followed
 	by Custom of an application to hard disk (one folder down, tho
	I don't think that makes a difference).  My conversion of 
	GetAppDirPtr and MakeNewList to long changed RTS->RTL, but didn't
	deal with bank register (either force long addressing of vars,
	or phb/phk/plb).

10 June 91	Swap functionality of Tab and Apple-Tab in Customized;
	swap Keyboard Shortcuts listings for Tab and Apple-Tab.
	
	MainSub.asm: MakeNewList: removed 2 superfluous DirSelReq
	checks, inactivate of OPEN button, & jsr DisCurrentVol
	(couldn't have gotten this far--DirSelReq check above prevents).
	
	BRC# 79188: no longer a bug.
	
; 10 Jun 91 V2.0d50	Part of system 6.0d39 release.
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

11 June 91	MainSub.asm: move set of NoVolumes to NoVolumesOnLine.
	scanDevices: if no disks online when a disk is inserted,
	advance target to it (BRC# 87097).
	
	BRC# 88814: Open button can become dimmed when folder selected:
	Mainsub.asm: CheckScript is depending on NoMemberSelected to
	determine what to do with Open; so set/clear NoMemberSelected in
	Main.asm:FolderListSub as folder is selected/deselected.

12 June 91	Easy Update script: add EasyMount update.
	
	Main.asm & Mainsub.asm: moved CurrentVol into CheckVolume subr.
	
	BRC# 88908: "Install" button in Custom doesn't dim for Pascal/DOS:
	change MainSub.asm:CheckVolume to use system 6.0 extended Volume
	call to check for both media write protection and the new
	read-only FST check (removing use of DStatus:GetDeviceStatus).

14 June 91	Fixed bug: wasn't picking up scripts in root:
	Replacement of Check4Scripts with AddScripts lost set of
	flag ScriptListBuilt.
	
	Corrected ellipses: removed them from the two help menu commands;
	added ellipses to New Folder... button.
	
17 June 91	BRC# 87291: Not inserting Install disk during Easy Update caused
	crash.  Found OS bug: contrary to bug instructions, OS was putting
	up a Cancel button in its ExpressLoad dialog; Greg returned it to
	just OK.  Fixed bug by moving branch-on-error of load-resource 
	call to not attempt to close a window that's not yet up.
	
	BRC# 87709: Won't update 4.0 system.  Add error 
	$4E (invalidAccess) to errors we ignore when doing deletions
	(folder still had 8-bit app Chooser.II in it, and could conceivably
	have Finder.Data in it -- and this could occur elsewhere;
	then add to Easy Update script: delete Chooser.II and Finder.Data
	(part of the bug was that Installer was trying to delete
	Chooser.II by the name ChooserII -- change was to add the period).
	
	Improvement: At Dave's suggestion, pop up menu is now hidden
	rather than unhilited when there's no application to select:
	changed Mainsub.asm:SelectWindow to use HideControl/ShowControl;
	eliminated calls to enable and disable the menu.
	Also fixed BRC# 86275.
	
; 18 Jun 91 V2.0d51	Part of system 6.0d40 release.
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

20 June 91	MainSub.asm: Dir_Reader @ Finished: remove jsl GetCurDirPtr before
	call to BuildDirName (which does the lock itself; other calls
	to BuildDirName don't pre-lock).
	
	Easy Update script: Added update of System:CDevs:Network
	from SystemTools2 disk.
	
	Fixed bug: Scrambler scrambled my right list (folder selection):
	in Dir_Reader, lock MemoryHandle (which will 
	soon be AppFolderListHdl) during final dereference;
	NewList2Call calls SortList2, during which AppFolderListHdl,
	a parameter, is unlocked (toolbox bug?), so relock it after.
	
; 21 Jun 91 V2.0d52	Part of system 6.0d41 release.
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

23 July 91	MainSub.asm: Dir_Reader: after DeRef implemented 20 June,
	push registers rather than PEAs.
	
	MainSub.asm: NewList2Call: since SortList2 is unlocking
	AppFolderListHdl (unforgiveably but, Dave claims, acceptably),
	pass it a pointer to the AppFolderList instead 
	(DaveÕs workaround: the AppFolderList MUST remain locked,
	since itÕs a structure of pointers to list members
	IN THE SAME MEMORY BLOCK!).
		
; 24 Jul 91 V2.0d53	Part of system 6.0d44 release.
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

25 July 91	BRC# 80869, Install.asm: Amendments: 
	earlier Finders not being updated because of logic error in code:
	reverse bne's to beq's @ Check4Old to fix.
	
	Rework disk-size check so that Easy Updates to 3.5" 800K floppies
	don't install SetStart as START (new disk installations already
	were installing Finder as START).
	NOTE: Test carefully: there are lots of cases!, including: 
	
	No System folder: create one; if 800K, install Finder as Start;
	  else >800K, so install SetStart as START, Finder, SetStart CDEV.
	System folder but no START: don't install Finder orSetStart as START,
	  but update Finder and SetStart CDEV if they exist.
	Early 6.0 Finder is START: 
	  if 800K, install Finder as Start, update SetStart if it exists;
	  else >800K, so install SetStart as START, Finder, SetStart CDEV.
	Finder 1.0, Finder 1.1, Finder 1.2, or Finder 1.3 is START:
	  use 800K test above (test each case separately!).
	SetStart is START: update START with new SetStart;
	  also update SetStart CDEV and Finder if they exist.
	Unique (third-party) START: update SetStart CDEV and Finder
	  only if they exist; don't touch START.

26 July 91	Moved test for SCSI card from Install.Asm to Startup.Asm
	(StartTools); store result in new var GotSCSICard.

30 July 91	Added Help menu items for ÔCreating a New System DiskÕ, 
	ÔUpdating an Existing DiskÕ, ÔHard Disk InitializationÕ.
	Main.asm: Installer: delete the three items if 
	the RDiskNames resource is missing (developer feature:
	no Easy Update, therefore no system disk creation special help).
	
	BRC# 86766 / WS# BK400 fixed (canÕt get to Easy Update
	when no RDiskNames resource).
	
	BRC# 87096 / WS# BK418: Main.asm: Installer: write a zero
	to Help_GotoEasy & Help_LeftArrow, the last dialog items in 
	the Customized Keyboard Shortcuts Help 
	dialog, ÔGo to Easy UpdateÕ, if thereÕs no RDiskNames resource, 
	since then thereÕs no Easy Update to go to.

31 July 91	Attach windows to new Help menu items.

2 August 91	BRC# 1009240: Eject bug: Mainsub.asm: CheckCharacter:
	logical AND was being made with equate RAMorROMdisk
	but immediate addressing mode wasn't used, so value came from
	random memory; then beq was used instead of bne!
	how this worked as often as it did...
	
	Put up 'Hard Drive Initialization' menu command only if
	SCSI Manager/SCSI.HD driver and SCSI card are installed.
	
	Release new ERS.
	
	Easy Update script: At Tim Swihart's behest, remove QuickConsole:
	Delete { "System:System.Setup:QuickConsole" }.
	
	Easy Update script: Remove the deletions put in during March
	and April to delete file names used prior to those months but
	renamed.
		
; 5 Aug 91 V2.0d54	Part of system 6.0d45 release.
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

5 August 91	Startup.asm: BuildScriptList remove unneeded sec 
	just before ReportError.
	BRC# :Add clc just before BuildListExit to indicate no error!

6 August 91	Data.asm: Hard Drive Init help message: move period before paren
	(per Dave's observation).
	
	Data.asm: Changed 'OK' to 'Quit' in 'you must use sys 6.0'
	dialog.
	
	Installer.r: Added Integer math (vs. 0300) to tools being
	started up.

7 August 91	Scrambler bug reading scripts going from Easy to Customize
	(hangs or puts invalid pathname dialog):
	Jay was using his GString library:
	Startup.asm: FindScripts: GStrNew passes back a pointer; 
	GStrResize passes back a pointer; 
	but he passed the pointer in registers to a 
	subroutine, AddScripts, that called GStrResize but never passed 
	the new pointer back --
	making both the next use of outputPath, and the GStrDispose invalid
	(actually, there was a possibly correct GStrDispose on the pointer
	where it was stored by the subroutine, but it was followed by
	another GStrDispose on the original pointer, which at that
	point could have been attached to ANY handle)!
	So get the handle right after creating the GString from its pointer.
	And reestablish the pointer after each AddScripts call
	(Startup.asm: FindScripts).

8 August 91	BRC# 88355: Subroutines.asm: AddScripts:
	tested ScriptListSize to determine if any scripts were seen 
	before setting flag ScriptListBuilt.

12 August 91	Cut uncalled code: Check4Scripts.

14 August 91	BRC# 80867: Install.asm: ResizeScriptMemory: was unlocking
	the handle ScriptHandle, then resizing and relocking ScriptHdl!

15 August 91	Installer.r: Add preload attribute flag to menu-related 
	resources.
	
	Installer.r: Add #if defined SystemSoftware around Easy Update
	resources (not needed for Developer Version).
	
	MakeFile: Updated to build both Installer and Installer.Dev
	(the developer version).

16 August 91	Updated Greg's Make script to build Installer.Dev.

	Updated AUG:BuildEverything to build Installer.Dev.
	
	BRC# 1010027: Fixed Matt Ackeret-found bug:
	UniDisk3.5 driver was being installed every time by 
	Easy Update! (Original code missing a branch.)
	
	Easy Update script: add line to Delete { "System:ExpressLoad" }.
	
	Main.asm: Installer: For build of developer version: 
	Remove code @ NoEasy that removes three Help menu items,
	since they're no longer being created as resources.
		
; 19 Aug 91 V2.0d55	Part of system 6.0d46 release.
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

23 August 91	Install.asm: Updated UniDisk3.5 check to look at the
	DIB's DevCharacteristics word for the GeneratedDriver bit 
	before testing the SmartPort word for UniDisk3.5 value
	(it's only in extended DIBS, which don't exist with
	generated drivers).
	
	BRC# 1010027: Install.asm: Jay was adding DevListHeaderSize,
	not the correct DevListFieldSize, between DIB records.

26 August 91	BRC# 80870: Mainsub.asm: BuildDirName:
	index registers were being set to 8-bit, preventing them
	from counting & indexing pathnames longer than 255 characters.

27 August 91	BRC# 86277: Data.asm: interchange 9's and E's to swap
	yellow and green in RAMdisk icon, and add black teeth into
	the connector.
	
	BRC# 86276: Main.asm: set up AlertMsg after (not before)
	checking the selected scripts (ScriptListSub).

30 August 91	BRC# 87838: Main.asm: dim/restore to active: the Easy Update
	and Change Disk buttons around the call to the routine that
	handles the Easy Update installation. Subroutinize EasyBtnDim
	and EasyBtnActive.
	
	BRC# 89036: MainSub.asm: Subroutinize NewFolderDim and
	NewFolderActive.
	MainSub.asm: SetInstallRemove: check for bWriteProtect bit
	in InstallRemoveMode and check DirSelReq and set New Folder
	button accordingly.
	MainSub.asm: CheckScript: also check bWriteProtect bit
	in InstallRemoveMode before making New Folder button active.

3 September 91	BRC# 89037: Main.asm: Each time through both event loops,
	check the front window to see if there's been a change between
	Installer and DA windows. If change to DA window: disable Help 
	menu; enable Edit menu; enable Close menu item. If change to
	Installer window, do the opposite: enable Help menu; 
	disable Edit menu; disable Close menu item.
	Create routines TestTopWindow and DoSysChange.
		
; 3 Sep 91 V2.0d56	Part of system 6.0d47 release.
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

9 September 91	Disable Erase Disk... menu item when DA is front window:
	Main.asm: DoSysChange: disable, restore;
	Main.asm: Installer: initialize new var EraseDiskState;
	Mainsub.asm: DisableEraseDiskMenu / EnableEraseDiskMenu:
	store DisableMItem / EnableMItem to EraseDiskState for
	restore in DoSysChange.

11 September 91	Issued ERS 2.0-8.

12 September 91	Subroutines.asm: CheckMsgCenter: optimized while looking for
	bug: brl->bne; comment out sty right after ldy.

13 September 91	BRC# 82706: Subroutines.asm: CheckMsgCenter: 
	while matching Message Center script names against those already
	found, in 8-bit accumulator/memory mode, the indexes were
	being incremented in memory -- but of course only 8 bits of them!
	(inc ySrc; inc yDest).
	Also optimized: A second comparison with "/" for conversion
	to ":" was being done after the entire script from 
	the Message Center had already been converted to have ":"s.
	Also fix latent bug: a Message Center script name, if it didn't
	match any already listed script names, would be checked
	against random memory in the last check: the index was off by
	one.

16 September 91	Install.asm: CheckForReBoot: optimized plb/plb -> pla in
	removing temporary storage from the stack.
	
	BRC# 1006431: Install.asm: CheckForReBoot: improved the
	check of CurDirPtr vs. VolStrBuffer (boot volume).
	
	Left list (script list) is being trashed because 
	scanDevices: DrawOneCtl unlocks the ScriptListHdl.
	It's Subroutines.asm: Alphabetize that passes ScriptListHdl 
	to NewList2; instead pass ScriptListPtr.
		
; 16 Sep 91 V2.0d57	Part of system 6.0d49 release.
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

19 September 91	Brenda's low-mem ScriptList-gets-trashed-while-being-built
	before-it's-alphabetized-even bug:
	Subroutines.asm: AddToList: Lock ScriptListHdl after
	calling ReBuildPointers; unlock earlier, before dereferencing
	ScriptListHdl into OrigPtr.
	
	BRC# 1008656: MainSub.asm: NextDevice:
	add test for valid Application Folder Selection
	list requirement before activating the popup control.
		
; 19 Sep 91 V2.0d58	Part of system 6.0d50 release.
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

19 September 91	Brenda's low-mem ScriptList-gets-zeroed-going-to-Easy-Update,
	doing-Easy-Update, and-coming-back bug:
	Subroutines.asm: Alphabetize:
	Test flag for Customized window before assigning newly
	alphabetized list to the Control's handle (since that handle
	doesn't exist when the Customized window is closed).
20 September 91	Startup.asm: move from BuildScriptList to CustomDialog
	(so it gets executed EVERY time the customized window is
	put up, not just the first time): code to load the
	ScriptList's resource template (& add code to set its
	purge level to unpurgeable (0)), and stuff the address of the list
	and the list item to scroll to into the control's template 
	information.
	
	Now the low-memory situation breaks the list of script files, 
	a data structure just like the list of script names and the 
	list of files and folders in the directory to install to:
	six-byte pointers and flags followed by the names themselves.
	(The major difference is that this data structure is not attached
	to an on-screen scrollable list, but is sorted at the same time
	as the list of scripts is so they're in sync.)
	Subroutines.asm: AddToList: Lock ScriptFileHdl after
	calling ReBuildPointers; unlock earlier, before dereferencing
	ScriptFileHdl into OrigPtr.

23 September 91	Install.asm: CopyAndDeleteFiles: optimize.

	BRC# 87649: move CloseAllNDAs call from CheckForReboot 
	to CopyAndDeleteFiles, so that NDAs are ALWAYS shut down 
	for EVERY installation and removal to prevent 'File Open' errors.
	
	Install.asm: CopyAndDeleteFiles: remove redundant call
	to CheckForReboot.

24 September 91	MainSub.asm: UpdatePopUp: modify to use InsertPathMItems,
	which also results in use of system icons in popup and cuts
	lots of code.
	Delete most of the DeleteLoop (deletes all menu items from
	previous popup); add 2 DisposeHandle calls on 
	InsertPathMItems' data structure.
	Delete copying of CurDirPtr into PopUpStringPtr.
	Replace the entire building of the list and popup with
	a single call to InsertPathMItems.
	Data.asm: delete MenuItemHdl.
	Installer.equates: delete MenuItemPtr.
	Main.asm: CustomProgram: remove code to get memory 
	to initialize MenuItemHdl.
	Data.asm: delete all icons for volume devices.
	Fixed BRC# 1011342.
	
25 September 91	Mainsub.asm: PrintListMem: substitute GetSysIcon call
	for table lookup in the Installer's own data space of
	folder and document icons for the right list (folder selection).
	Data.asm: delete folder and document icons.

26 September 91	Installer.r: Easy Update script: change a number of CDEVs 
	from Install to Update to fit an 800K install.
		
; 26 Sep 91 V2.0d59	Part of system 6.0d51 release.
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

3 October 91	Installer.r: Easy Update script: Now do delete of Finder
	artifact Finder.Def (at root).
	
	Install.asm: Change name of 'local' routine (it's an ENTRY!)
	that is a dupe of a routine name in MainSub.asm
	from OpenMsgWindow to OpenInstMsgWdw throughout this file.
	
	BRC# 1012403:
	Mainsub.asm: Updated OpenMsgWindow and AlertMsg to use
	the icon in Sys.Resources. Data.asm: Removed the Talking Head icon.
	
4 October 91	BRC# 89541:
	Startup.asm: ToolStartup: Load Stop Sign resource and 
	save handle to StopIconPtr.
	Data.asm: Added StopIconPtr.
	Mainsub.asm: Added UserProc routine DrawStopIcon.
	Install.asm: UnknownMix (halt mid-installation), and
	MainSub.asm: Error (most errors), and
	MainSub.asm: ReBootDialog:
	changed iconItem to userItem, with DrawStopIcon as userProc.
	Data.asm: Removed the Stop Sign icon.
	
	Use caution icon from Sys.Resources, also:
	Startup.asm: ToolStartup: Load Caution Sign resource and 
	save handle to CautionIconPtr.
	Data.asm: Added CautionIconPtr.
	Install.asm: Caution:
	changed iconItem to userItem, with DrawCautionIcon as userProc.
	Data.asm: Removed the Caution Sign icon.
	
	BRC# 1013602:
	Install.asm: CopyAndDeleteFiles:
	Zero out FileHandle after disposing of it, since the check on
	whether to dispose of it or not is based on whether it's zero.
	
	BRC# 1013684:
	Startup.asm: StandardDialog: Fixed random error number:
	accumulator was not being saved and restored, unlike status reg.
	Startup.asm: FindScripts: In the case of a mounted file server
	that's no longer shared (privileges removed), searching each
	volume by device number makes it thru the Volume call, at which\
	point it calls:
	Subroutines.asm: AddScripts: which attempts to open the 
	directory. A directory open failure was passed back and aborted
	the window switch to Customized.
	Changed AddScripts to put up an error message but go on 
	to next device.

7 October 91	BRC# 1006936:
	Data.asm: changed 'Creating a New System Disk' help message
	to specify that new system disks must be 'ProDOS-formatted only'.
	Also added '1.4-Meg' after 'FDHD' to help identify it.
		
; 7 Oct 91 V2.0d60	Part of system 6.0d52 release.
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

7 October 91	Changed 'cancel' to 'stop' in dialog message, 'To stop hold
	down the <apple> key and type a period (.).', consistent with
	Finder messages.
	
	Main.asm: Installer routine: remove D_DeviceNum=1 (redundant:
	already set to 1 by previous code, a jsr to InitVolume).
	
	Main.asm: move SCSI test and subsequent removal of 'Hard
	Drive Init' help menu higher so it will be removed in 
	appropriate cases even when scripts are double-clicked.

8 October 91	BRC# 89220:
	Main.asm: init new var SetupComplete to zero prior to
	calling NextDevice1.
	Mainsub.asm: NextDevice1: modify to advance to first *installable*
	media, and not set any buttons (no dialog is up if SetupComplete=0).
	Testing: Do lots of testing!
	Testing: Please test removal of 'Hard Drive Init' menu if no
	SCSI card -- both launching directly into Easy Update and 
	when Installer is launched by double-clicking a script.

9 October 91	Upgrade 5.0 systems with AppleShare (if AppleShare.FST exists,
	install CDEVs:Network & EasyMount).
	Upgrade 3.2 and 4.0 systems with AppleTalk (if ATInit exists,
	install SCC.Manager, ATP1.ATROM, ATP2.ATRAM, and ATResponder).
	Install.asm: Amendments.
		
; 10 Oct 91 V2.0d61	Part of system 6.0d53 release.
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

13 October 91	BRC# 1013287:
	Easy Update's delete was of "System:CDevs:CtlPanel.NDA".
	Changed to delete of "System:Desk.Accs:CtlPanel.NDA".
	(I presume there was never a "System:CDevs:CtlPanel.NDA"
	that also needs to be deleted.)
	
	BRC# 1014074 and 1013996:
	MainSub.asm: CheckVolume: export VolTotalBlocks.
	Install.asm: Amendments: evaluate VolTotalBlocks: 
	Install SetStart if media is greater than 1 meg (2048 blocks).
	Testing: I tested using RAM disk; please test with Mustang.
	
	Install.asm: after each filespec is read and copied,
	the code called CheckForInterrupt *before* seeing if there
	is another filespec; this resulted in the 'Unknown-Mix'
	message (unknown mixture of system versions) when nothing
	more needed to be done (after the final filespec or, if only
	one filespec, after it was installed) even though the
	installation was complete.
	Reversed the order, to see if filespecs remained *before*
	calling CheckForInterrupt (user pressing Cmd-period).
	
	BRC# 1008391:
	Install.asm: UnknownMix: move 'Unknown-Mix' dialog up and
	widen it slightly to 1) not cover the thermometer and 2) make
	what is going on clearer (the view of the thermometer should
	help the user see that the process is indeed not done and
	the thermometer indeed not full).
	In addition, UnknownMix also, after dismissing itself,
	now calls UpdateMainDialog or UpdateEasyDialog 
	to update the window that it covered.

15 October 91	BRC# 1014315: Mainsub.asm: NextDevice1:
	Had set D_DeviceNum to #0001 but not done GS/OS calls
	to update; now also set InstallRemoveMode no-volumes-online
	bit to force a device update once the window is available.
16 October 91	Set D_DeviceNum to #0000 so that device update will increment
	to 1.
	Moved JSR VolumesOnLine to label NextDone so that
	Easy Update updates the flag once it forces the device update
	(only Customized Install was previously updating the flag).
	
	BRC# 1011446:
	MainSub.asm: VolumesOnLine: Open target volume's root directory
	(close previous target volume's root directory if necessary).
	NoVolumesOnLine: Close target volume's root directory.
17 October 91	Main.asm: InMenu: call CloseTarget before erasing a disk.
	Mainsub.asm: InitVolume: initialization: call OpenTarget 
	after D_Info and Volume calls on initial volume.
	
	BRC# 1008693:
	Install.asm: CreateDial: Change initial value of thermometer to 0.
		
; 17 Oct 91 V2.0d62	Part of system 6.0d54 release.
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

;______________________________________________________________________________
;
;          R E V I S I O N   H I S T O R Y   V e r s i o n   2 . 1
;______________________________________________________________________________
17 March 92	Dave Lyons
	Obvious changes for 6.1.

24-Mar-93 	Steve Stephenson
	for 6.0.1d15
	Install.asm- Added amendment for RAM5 driver and test
	code to see if one is present.  Removed EasyMount from
	the AppleShare amendment.  Added special case code to
	hide the thermometer when installing on a non-ProDOS
	disk, rather than showing and not updating it.
	Installer.r- Added Easymount as 'install' always.
	Added RAM5 as 'update'.  Bumped the rVersion to 2.1d15.
	Scripts- Added ETalk driver to Network:Server Startup.
	Added EasyMount to INSTAL.SYS.FILE and INST.SYSF.NOFIN.
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Installer/Startup.asm b/IIGS.601.SRC/A.U.G/Installer/Startup.asm
new file mode 100644
index 0000000..57d383f
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Installer/Startup.asm
@@ -0,0 +1 @@
+* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
*			                  *
*      A P P L E   I I g s   I N S T A L L E R   P R O G R A M   V  2 . 1     *
*                                                                             *
*                              by "Jay" Schaffer                              *
*                               and  Ron Lichty                               *
*			                  *
*  Copyright Apple Computer, Inc. 1987-1992              All Rights Reserved  *
*			                  *
* * * * * * * * * *	* * * * * * * * * *	* * * * * * * * * *	* * * * * * * * * *
*
* NOTE:  External routines, which may be located in another bank, must be sure
*        they set the proper bank register values or use long addressing as
*        needed.
*
*        Code in Startup.asm calls the following external routines:
*
*	AddScripts	- From Subroutines.asm
*	Allocate	- From MainSub.asm
*	Alphabetize	- From Subroutines.asm
*	BuildScriptList	- From Seg 'BuildList' in Startup.asm
*	Check4Scripts	- From Subroutines.asm
*	CheckMsgCenter	- From Subroutines.asm
*	CloseMsgWindow	- From MainSub.asm
*	DeRef	- From MainSub.asm
*	Error	- From MainSub.asm
*	OpenMsgWindow	- From MainSub.asm
*	ResizeAppDirBuf	- From MainSub.asm
*	UnlockAppDirHdl	- From MainSub.asm
*	UnlockCurDirHdl	- From MainSub.asm
*
* * * * * * * * * *	* * * * * * * * * *	* * * * * * * * * *	* * * * * * * * * *

	Print Push
	Print Off
	Include 'Installer.Equates'
	Print Pop
	Seg 'StartUp'
	SegAttr Dynamic

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
ToolStartup	Proc Export
*
* Description:	Starts up tools needed for the Installer program and
*	creates the system menu bar.
*
* Inputs:	none
*
* Outputs:	none
*
* External Refs:
	Import AllDone
	Import AlmostAllDone
	Import CautionIconPtr	; from Data.asm
	Import CurDirStart
	Import CurVolStart
	Import CurrentVolBuf
	Import Dereference
	Import Dir2Update
	Import Dir2Width
	Import Disk2Update
	Import Disk2Width
	Import GotSCSICard
	Import GStrDispose
	Import GStrNew
	Import GStrResize
	Import GStrToGStr
	Import Line1
	Import Line2
	Import MoreDone
	Import MyID
	Import MyToolID
	Import MyZP
	Import LaunchVolStrBuffer
	Import OKStrText
	Import PrefixPointer
	Import Prefix9Pointer
	Import Preferences
	Import ProgramVersion
	Import ResizeAppDirBuf
	Import ResizeCurDirBuf
	Import SavePrefix0
	Import SavePrefix9
	Import startStopRecRefRet
	Import StopIconPtr		; from Data.asm
	Import SysDeath
	Import SysPrefParms
	Import UnlockCurDirHdl
	Import UnlockAppDirHdl
	Import VolStr
	Import VolStrBuffer
	Import VolSubstArray
	Import wVersion
*
* Entry Points:	none
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
	Eject
; Set the data bank to the current code bank

	phb
	phk
	plb

; Save the address of our zero page

	tdc
	sta >MyZP

; Startup the Tool Locator and Memory Manager

	ldx #TLStartup
	jsl ToolLocator
	bcc Continue
SysDeath1	jml SysDeath
Continue
	pha	; Room for result
	ldx #MMStartup
	jsl ToolLocator
	bcs SysDeath1
	pla
	ora #$0100	; (So we can do a dispose all on every-
	sta >MyID	;   thing we allocate before we exit.)
	ora #$0200	; (So memory allocated by tools in my
	sta >MyToolID	;   name is easily identifiable.)

; Verify that we are running under the appropriate GS/OS version

	jsl GSOS
	dc.w Get_Version
	dc.l VersionParms
	lda VersionParms+2
	and #%0111111111111111 ; Mask off "prototype" bit
	cmp #$0400	; Version 4.0 minimum because of
	bcs SetSystemPref	;  Installer's use of resources & Format call.
	jsr Requires6_0	; put text dialog: requires 6.0
jMoreDone	plb
	jml MoreDone	; jump to shutdown code

;         Mini-subroutine:
;         We're not running under the required minimum version of GS/OS!
;         Notify the user and terminate.

Requires6_0	pha	; Space for result
	pea Line1>>16	; Pointer to first line of text
	pea |Line1
	pea Line2>>16	; Pointer to second line of text
	pea |Line2
	pea Button1>>16	; Pointer to button 1 text (not used)
	pea |Button1
	pea OKStrText>>16	; Pointer to button 2 text (OK) 
	pea |OKStrText	;  (this is button 2, but spaces right-justify it!)
	ldx #TLTextMountVolume
	jsl ToolLocator
	pla	; Ignore result
	rts

; We're running under GS/OS.  Get the current system preferences and save them.
; Then set the flag that instructs GS/OS to display the mount volume dialog
;   and to put up both OK and Cancel buttons.

SetSystemPref
	jsl GSOS
	dc.w Get_Sys_Pref
	dc.l SysPrefParms

	lda >SysPrefParms+2
	sta >Preferences	; save for restoration later

	lda #%1000000000000000 ; use mount dialog
	sta >SysPrefParms+2

; Get the present system prefix and save it for later restoration.

	pha
	pha
	pea 0000	; (use GStr's default length)
	lda >MyID
	pha
	jsl GStrNew	; Get a new, locked buffer
	tax	; Preserve error code
	pla
	sta >PrefixPointer
	pla
	sta >PrefixPointer+2
	txa	; Restore error code
	bcs jMoreDone	; jump to shutdown code

	jsl GSOS	; set new system prefs w mount dialog
	dc.w Set_Sys_Pref
	dc.l SysPrefParms

@GetPrefix	jsl GSOS	; Put the prefix in it
	dc.w Get_Prefix
	dc.l SavePrefix0

	pha	; Space for result
	pha
	lda >PrefixPointer+2 ; Resize the buffer for perfect fit
	pha
	lda >PrefixPointer
	pha
	jsl GStrResize
	pla
	sta >PrefixPointer
	pla
	sta >PrefixPointer+2

	bcs @GetPrefix	; Try again if we didn't get it all

	pha	; Space for result
	pha
	lda >PrefixPointer+2 ; Get the handle
	pha
	lda >PrefixPointer
	pha
	ldx #FindHandle
	jsl ToolLocator
	pla	; Ignore errors
	sta <PrefixHandle
	pla
	sta <PrefixHandle+2
	
	pha
	pei <PrefixHandle
	ldx #HUnlock	; Let the buffer float til needed again
	jsl ToolLocator

; Clear prefix zero so that GS/OS will be forced to use prefix eight which can
; handle lÑoÑnÑg prefixes.

	jsl GSOS
	dc.w Set_Prefix
	dc.l PrefixParms

; Put the version information in the 'About Installer...' dialog

	sep #$0030
	LongA Off
	LongI Off
	lda >wVersion
	tax
@VersionLoop	lda >wVersion,x
	sta >ProgramVersion-1,x
	dex
	bne @VersionLoop	; (don't move length byte)
	LongI On
	LongA On
	rep #$0030

; Load and initialize the tools we'll need

	pha	; Space for result
	pha
	lda >MyToolID
	pha	; userID = MyToolID
	pea $0002	; startStopDesc = resource
	pea $0000	; startStopRecRef = rToolStartup ID=1
	pea $0001
	ldx #StartUpTools
	jsl ToolLocator
	pla
	sta >startStopRecRefRet
	pla
	sta >startStopRecRefRet+2
	bcc @noStartToolErr	; continue if no error
	jsr Requires6_0	; if error, not booted from Sys 6.0
	plb
	jml AlmostAllDone	; jump to shutdown code but no shutdown!

@noStartToolErr
; We now have a desktop with a blank menu bar.  Well need a real Apple Logo
; Menu for New Desk Accessories and 'About Installer...' and File and Edit
; to support desk accessories.

	pha	; Space for result
	pha
	pea $0002	; refDescriptor - resource
	pea $0000	; menuBarTRef - rMenuBar ID=1
	pea $0001
	pea $0000	; windowPtr - nill=system menu bar
	pea $0000
	ldx #NewMenuBar2
	jsl ToolLocator
		; Leave Menu's handle on stack
	ldx #SetSysBar
	jsl ToolLocator

	pea $0000	; barHandle - nil=system menu bar
	pea $0000
	ldx #SetMenuBar
	jsl ToolLocator

	pea $0001	; Call the Desk Accessory Manager to
	ldx #FixAppleMenu	;  install the list	of NDAs
	jsl ToolLocator

	pha	; Room for returned	bar height
	ldx #FixMenuBar	; Initialize menu bar/menus sizes
	jsl ToolLocator
	pla	; Discard result (generally of no use)

	ldx #DrawMenuBar	; Draw the menu bar	and menu titles
	jsl ToolLocator

; Get the launch volume.

	pha
	pha
	pea 0000	; (use GStr's default length)
	lda >MyID
	pha
	jsl GStrNew	; Get a new, locked buffer: temporary
	tax	; Preserve error code
	pla
	sta >Prefix9Pointer
	pla
	sta >Prefix9Pointer+2
	txa	; Restore error code
	bcs bcsjAllDone	; jump to shutdown code bcs puddle-jump

@GetPrefix9	jsl GSOS	; Put the prefix in it
	dc.w Get_Prefix
	dc.l SavePrefix9

	pha	; Space for result
	pha
	lda >Prefix9Pointer+2 ; Resize the buffer for perfect fit
	pha
	lda >Prefix9Pointer
	pha
	jsl GStrResize
	pla
	sta >Prefix9Pointer
	pla
	sta >Prefix9Pointer+2

	bcs @GetPrefix9	; Try again if we didn't get it all

	lda >Prefix9Pointer+2
	tax
	phx
	lda >Prefix9Pointer
	pha
	phx	; second set for GStrToGStr source
	pha
	phx	; third set for GStrDispose
	pha
	jsr GStrJustVolume	; reduce to just volume, not whole prefix

	pea LaunchVolStrBuffer>>16 ; (Prefix9Pointer alr on stack)
	pea |LaunchVolStrBuffer
	jsl GStrToGStr	; copy just volume, not whole prefix

	jsl GStrDispose	; dispose of prefix memory (Prefix9Pointer alr on stack)

; Initialize "Everything" to be the boot volumeÑÑCurDir, CurrentVol, and
; ApplicationDir.

GetBootVol	jsl GSOS	; Get the boot volume name into
	dc.w Get_Boot_Vol	;   VolStrBuffer / VolStr
	dc.l GetBootVolParms

;       Copy boot volume name into AppDirectory (with trailing separator char)

	pha	; Initialize Application Directory
	pha	; Space for result
	pea 0000	; (use GStr's default length)
	lda >MyID
	pha
	jsl GStrNew	; Get a new, locked buffer
	plx
	stx <AppDirPtr
	plx
	stx <AppDirPtr+2
bcsjAllDone	bcs jAllDone	; jump to shutdown code

	pea VolStrBuffer>>16 ;Put a copy into AppDirectory
	pea |VolStrBuffer
	pei <AppDirPtr+2
	pei <AppDirPtr
	jsl GStrToGStr

	jsl ResizeAppDirBuf

;       Copy boot volume name into CurDirectory.

	pha	; Space for result
	pha
	pea 0000	; (use GStr's default length)
	lda >MyID
	pha
	jsl GStrNew	; Get a new, locked buffer
	plx
	stx <CurDirPtr
	plx
	stx <CurDirPtr+2
	bcc CopyTheString
jAllDone	plb
	jml AllDone	; jump to shutdown code

CopyTheString	pea VolStrBuffer>>16 ;Put a copy into CurDirectory
	pea |VolStrBuffer
	pei <CurDirPtr+2
	pei <CurDirPtr
	jsl GStrToGStr

	jsl ResizeCurDirBuf

;       Copy boot volume name into CurrentVol.
;       Get_Boot_Vol returns the volume name with a trailing separator char.
;       We don't want one on CurrentVol, so delete it by decrementing 
;       the string length.

	lda >VolStr
	dec a
	sta >VolStr


	pea VolStrBuffer>>16 ;Put a copy into CurrentVol
	pea |VolStrBuffer
	pea CurrentVolBuf>>16
	pea |CurrentVolBuf
	jsl GStrToGStr

;       Set CurrentVol as the substitution string for Easy UpdateÕs message.

	pea VolSubstArray>>16
	pea |VolSubstArray
	ldx #SetCtlParamPtr
	jsl ToolLocator

;       Store the handles to CurDirectory and AppDirectory and let them float
;       until they're needed again.

	pha	; Get the handle
	pha
	pei <CurDirPtr+2
	pei <CurDirPtr
	ldx #FindHandle
	jsl ToolLocator
	pla	; Ignore errors
	sta <CurDirHdl
	pla
	sta <CurDirHdl+2

	pha	; Get the handle
	pha
	pei <AppDirPtr+2
	pei <AppDirPtr
	ldx #FindHandle
	jsl ToolLocator
	pla	; Ignore errors
	sta <AppDirHdl
	pla
	sta <AppDirHdl+2

	jsl UnlockCurDirHdl	; Let it float til needed
	jsl UnlockAppDirHdl

; Find out how much room we need for the Disk/Volume to update text and fix the
; rectangle definitions.

	pha	; Room for result
	pea Disk2Update>>16	; String pointer
	pea |Disk2Update
	ldx #StringWidth
	jsl ToolLocator

	clc
	pla	; Get the width
	adc #0018	; Add 18 to the width...
	sta >Disk2Width	;  ...and store the result
	sta >CurVolStart	;  ...and set start of volume name

	pha	; Room for result
	pea Dir2Update>>16	; String pointer
	pea |Dir2Update
	ldx #StringWidth
	jsl ToolLocator

	clc
	pla	; Get the width
	adc #0018	; Add 18 to the width...
	sta >Dir2Width	;  ...and store the result
	sta >CurDirStart	;  ...and set start of directory name

; Check to see if a SCSI card is present (for Missing Disk? menu item & Easy Update use)

	lda #0
	sta >GotSCSICard	; initialize: none

SlotROM	equ $00E0C000
ID1	equ $05	; Must = $00
ID2	equ $07	; Must = $03
ID3	equ $0B	; Must = SCSICard ir hsSCSICard

SCSICard	equ $08D8	; ID word for original S.C.S.I. card
hsSCSICard	equ $0570	; ID word for hi-speed S.C.S.I. card

;       Initialize the slot pointer to non-existent peripheral slot zero.

	lda #<SlotROM
	sta <ZPTemp2
	lda #^SlotROM
	sta <ZPTemp2+2

;       Advance the slot pointer to the next slot and check to see if we've
;       done all seven slots yet.

SCSILoop	clc	; Set up for next slot
	lda <ZPTemp2
	adc #$0100
	sta <ZPTemp2
	tax
	lda <ZPTemp2+2
	adc #$0000
	sta <ZPTemp2+2

	cpx #$C800	; Have we checked all the slots?
	beq NoSCSI	; If so, we're finished looking!

	ldy #ID1	; First two ID bytes are the same for
	lda [<ZPTemp2],y	;  either S.C.S.I. card.
	and #$00FF	; (only checking bytes)
	cmp #$0003	; If 1st ID byte ­ $03, next slot
	bne SCSILoop

	ldy #ID2
	lda [<ZPTemp2],y
	and #$00FF	; (only checking bytes)
	bne SCSILoop	; If 2nd ID byte ­ $00, next slot

	ldy #ID3
	lda [<ZPTemp2],y
	cmp #SCSICard	; Check for original S.C.S.I. card
	beq FoundSCSICard
	cmp #hsSCSICard	; Check for high speed S.C.S.I. card
	bne SCSILoop

;       Found a S.C.S.I. card.  The presence of this card is assumed to
;       indicate the existence of a S.C.S.I. hard disk.  Add the driver.

FoundSCSICard	lda #$FFFF
	sta >GotSCSICard
NoSCSI

; Get handle to Stop Sign resource and save for dialogs.

	pha	; space for result
	pha
	pea rIcon
	pea rIconStopID>>16
	pea |rIconStopID
	ldx #LoadResource
	jsl ToolLocator	; handle of resource left on stack
	jsl DeReference
	pla	; pointer to resource
	sta >StopIconPtr
	pla
	sta >StopIconPtr+2

; Get handle to Caution Sign resource and save for dialogs.

	pha	; space for result
	pha
	pea rIcon
	pea rIconCautionID>>16
	pea |rIconCautionID
	ldx #LoadResource
	jsl ToolLocator	; handle of resource left on stack
	jsl DeReference
	pla	; pointer to resource
	sta >CautionIconPtr
	pla
	sta >CautionIconPtr+2

	plb
	rtl
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
GStrJustVolume	; (local)
*
* Description:	Resets the length of a GStr to just the volume length
*	(without trailing separator).
*
* Inputs:	Pointer to GStr
*
* Outputs:	none
*
* Errors:	none
*
* External Refs:	none
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

; stack -> direct page frame

StrLen	equ $01	; Local var

RtnAddr	equ StrLen+2	; Subroutine return address

Src	equ RtnAddr+2	; Pointer to GString

Variables	equ Src	; Bytes of variables

; Provide space for local variable and make stack our D-page.

	pha	; 2 bytes of local variables
	tsc
	phd
	tcd

; Get length; check for a null string.

	ldy #2	; length word
	lda [Src],y
	beq JustFinished	; branch if string is null
	inc a	; transform to value to compare with
	inc a
	inc a
	inc a
	sta StrLen	; value to compare with

; Walk the string past initial separator char

	ldy #5	; 2nd char: 1st char past leading colon
JustLoop	lda [Src],y
	and #$00FF	; look at just first char
	cmp #SeparatorChar
	beq VolumeEnd
	iny
	cpy StrLen
	bcc JustLoop
	bra JustFinished	; no trailing colon: leave length alone

; found end of volume name; store new length

VolumeEnd	dey	; subtract 4 (don't count trailing separator char)
	dey
	dey
	dey
	tya
	ldy #2	; length word
	sta [Src],y

; Restore the environment

JustFinished	pld	; Restore D-page
	pla	; Remove local var
	pla	; Move return address...
	sta 3,s	;  ...past 4 bytes of inputs
	pla

	rts
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

PrefixParms	dc.w 0002	; pCount
PrefixNumber	dc.w 0000	; Prefix number
PrefixPath	dc.l PrefixNumber	; Prefix pathname (null string)

Button1	dc.b 00	; Button 1 is not used

VersionParms	dc.w 0001	; pCount
	ds.w 1	; GS/OS Version number

GetBootVolParms	dc.w 0001	; pCount
GetBootVolBufPtr	dc.l VolStrBuffer	; data buffer pointer
	EndP
	Eject
	Seg 'Standard'
	SegAttr Dynamic
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
StandardDialog	Proc Export
*
* Description:	Creates the Standard Update dialog window.
*
* Inputs:	none
*
* Outputs:	none
*
* External Refs:
	Import StandardDrawProc
	Import StandardHdlTable
	Import StandardPort
	Import wTitleStd
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

	phb
	phk
	plb

; Open the Standard Update window and install all controls.

	pha	; Space for result
	pha
	pea wTitleStd>>16	; titlePtr
	pea |wTitleStd
	pea 0000	; refCon
	pea 0000
	pea StandardDrawProc>>16 ; contentDrawPtr
	pea |StandardDrawProc
	pea 0000	; defProcPtr
	pea 0000
	pea 0002	; paramTableDesc (2=resource)
	pea 0000	; paramTableRef (resourceID)
	pea 0002
	pea rWindParam1
	ldx #NewWindow2
	jsl ToolLocator
	plx	; Get window's grafPortPtr
	ply

	bcs @Done
	txa
	sta >StandardPort
	tya
	sta >StandardPort+2

;;;	phy	; #####################################
;;;	phx	; ### Does this cause the controls  ###
;;;	ldx #DrawControls	; ### to be drawn twice on startup? ###
;;;	jsl ToolLocator	; #####################################

; Get the handles for all the controls that we will want to enable/disable
; and store them for ready access.

	lda #0001	; Initialize loop counter
	sta Temp
@HandleLoop
	pha	; Space for result
	pha
	lda >StandardPort+2	; windowPtr
	pha
	lda >StandardPort
	pha
	pea 0000	; ctrlID
	lda Temp
	pha
	ldx #GetCtlHandleFromID
	jsl ToolLocator
	bcs @done

	lda Temp
	asl a
	asl a
	tax
	pla	; Begin storing at the "zero-th"
	sta >StandardHdlTable-4,x ; location, not the first.
	inx
	inx
	pla
	sta >StandardHdlTable-4,x
	inc Temp
	bra @HandleLoop
@Done
	pla	; Clean up the stack
	pla
	plb
	lda #0000
	clc
	rtl

Temp	ds.w 1
	EndP
	Eject
	Seg 'Custom'
	SegAttr Dynamic
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
CustomDialog	ProcName Export
*
* Description:	Creates the customized installation dialog window
*	and builds the script list if necessary.
*
* Inputs:	none
*
* Outputs:	cFlag clear: no errors
*	cFlag set: error - a-Reg contains error code
*
* External Refs:
	Import AllDone
	Import BuildScriptList
	Import C1InpToPStr
	Import CurrentVol
	Import CustomDrawProc
	Import DeRef
	Import DialogPort
	Import Error
	Import GStrNew
;;;	Import GStrToPStr
	Import GStrResize
	Import HandleTable
	Import MenuItemName
	Import MyPopUpCtlHdl
	Import MyPopUpCtlHdl
	Import PointerSize
	Import ScriptListBarHdl
	Import ScriptListCtlHdl
	Import ScriptListFlag
	Import ScriptListSize
	Import SelectListBarHdl
	Import SelectListCtlHdl
	Import StandardNo
	Import StandardUpdateHdl
	Import wTitleCustom
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

	phb
	phk
	plb

; If we haven't built a script list yet, do it now, otherwise, go on.

	lda >ScriptListFlag
	bmi @0

	jsl BuildScriptList
	php	; Save cFlag
	pha	; Save error code, if any

	pha	; Unload 'BuildList' segment
	pha	; 6-bytes for results
	pha
	pea BuildScriptList>>16
	pea |BuildScriptList
	ldx #UnloadSeg
	jsl ToolLocator
	pla	; discard UserID
	pla	; discard loadFileNum
	pla	; discard loadSegNum

	pla	; Restore error code, if any
	plp	; Restore cFlag
	bcc @00

@jCustomExit	brl CustomExit
@00
	lda #$8000	; Indicate that the script list is
	sta >ScriptListFlag	;   now built!
@0



; Every time we switch to the Customize window, we must reconnect the script list control.
; We found some scripts.  Fix the ListControl resource template to point to the fixed
; ListRecord in the 'Main' segment, so when the control is created it will too.

	pha	; Load the ListControl resource into memory
	pha	; space for result
	pea rControlTemplate ;resource type
	pea 0000	; resource ID
	pea ScriptListCtl
	ldx #LoadResource
	jsl ToolLocator
	sta Temp	; Save error code

	pla	; Lock and dereference the handle
	plx

	ldy Temp	; Restore error code
	beq SkipError
	jsl Error
	bra @jCustomExit
SkipError

	phx	; save the control resource's handle
	pha

	pea 0000	; set purge level to 0: not purgeable
	phx	; control resource's handle
	pha	;  (we want it to be around when control is created
	ldx #SetPurge
	jsl ToolLocator

	pla	; Lock & dereference the control resource's handle
	plx
	jsl DeRef
	sta <ZPTemp
	stx <ZPTemp+2

	ldy #rListRef	; Update the ListRecord pointer.
	lda <ScriptListPtr	; script list pointer
	sta [<ZPTemp],y	; into the resource
	iny
	iny
	lda <ScriptListPtr+2
	sta [<ZPTemp],y

	ldy #rListSize	; Update the ListSize value.
	lda >ScriptListSize	; script list size
	sta [<ZPTemp],y

; Determine which Item(s) are selected and always be sure that if one or more
; items are selected, that the first selected item appears as the first item
; in the display.  (We have to do this manually!  The list control has not been
; installed yet, so we have no handle to make a call to the list manager.)

	ldx #0000	; Initialize item counter
	ldy #0000	; Initialize index
SelectionSearchLoop
	inx	; Next item
	iny	; Position on the flags
	iny
	iny
	iny
	lda [<ScriptListPtr],y
	iny	; Position on next entry
	iny
	and #$0080	; Look at the selection bit
	bne MarkListStart
	tya
	cmp >PointerSize
	bcc SelectionSearchLoop
	ldx #0001	; Start at first item if nothing selected
MarkListStart
	ldy #rListStart
	txa
	sta [<ZPTemp],y





; Open a Window for	use as a pseudo Dialog Box and install all controls.
; Substitute our fixed 'ContDefProc' in segment 'Main' in place of the null
; pointer in the resource.

	pha	; Space for result
	pha
	pea wTitleCustom>>16 ; titlePtr
	pea |wTitleCustom
	pea 0000	; refCon
	pea 0000
	pea CustomDrawProc>>16 ; contentDrawPtr
	pea |CustomDrawProc
	pea 0000	; defProcPtr
	pea 0000
	pea 0002	; paramTableDesc (2=resource)
	pea 0000	; paramTableRef (resourceID)
	pea 0001
	pea rWindParam1
	ldx #NewWindow2
	jsl ToolLocator
	plx	; Get window's grafPortPtr
	ply

	bcc @1
	plb
	jml AllDone	; jump to shutdown code
@1
	txa
	sta >DialogPort
	tya
	sta >DialogPort+2

	phy
	phx
	ldx #SetPort
	jsl ToolLocator

; Get the handles for all the controls that we will want to enable/disable
; and store them for ready access.

	lda #0001	; Initialize loop counter
	sta Temp
@HandleLoop
	pha	; Space for result
	pha
	lda >DialogPort+2	; windowPtr
	pha
	lda >DialogPort
	pha
	pea 0000	; ctrlID
	lda Temp
	pha
	ldx #GetCtlHandleFromID
	jsl ToolLocator
	bcs @done
	lda Temp
	asl a
	asl a
	tax
	pla	; Begin storing at the "zero-th"
	sta >HandleTable-4,x ; location, not the first.
	inx
	inx
	pla
	sta >HandleTable-4,x
	inc Temp
	bra @HandleLoop
@Done
	pla	; Clean up the stack
	pla

; Gotta get the list window scroll bars separately since we didn't create them
; or give them a ctlID

	lda >ScriptListCtlHdl+2
	tax
	lda >ScriptListCtlHdl
	jsl DeRef
	sta <ZPTemp
	stx <ZPTemp+2

	ldy #$0034	; Offset to ctlListBar
	lda [<ZPTemp],y
	sta >ScriptListBarHdl
	iny
	iny
	lda [<ZPTemp],Y
	sta >ScriptListBarHdl+2

	lda >SelectListCtlHdl+2
	tax
	lda >SelectListCtlHdl
	jsl DeRef
	sta <ZPTemp
	stx <ZPTemp+2

	ldy #$0034	; Offset to ctlListBar
	lda [<ZPTemp],y
	sta >SelectListBarHdl
	iny
	iny
	lda [<ZPTemp],Y
	sta >SelectListBarHdl+2
	clc	; return ÔokÕ to caller

; Perform a few remaining miscellaneous chores and we'll be all setup.

;     Check StandardNo; if set, hide Standard Update button

	lda >StandardNo
	beq CustomExit

	lda >StandardUpdateHdl+2
	pha
	lda >StandardUpdateHdl
	pha
	ldx #HideControl
	jsl ToolLocator

CustomExit	plb
	rtl

; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

Temp	ds.w 1
	EndP
	Eject
	Seg 'BuildList'
	SegAttr Dynamic
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
BuildScriptList	Proc
*
* Description:	Called once to build a list of all scripts found in the
*	SCRIPTS folder and the root directory of each on-line
*	volume.  It checks the memory whose handle is stored in
*	"MessageCenterHdl" and adds them to the list if needed
*	with them hilited.
*
* Inputs:	none
*
* Outputs:	cFlag clear: no errors
*	cFlag set: error - a-Reg contains error code
*
* External Refs:
	Import AddScripts
	Import Allocate
	Import Alphabetize
	Import Check4Scripts
	Import CheckMsgCenter
	Import CloseMsgWindow
	Import D_DeviceNum
	Import D_Info_Parms
	Import DeRef
	Import Dev_Name
	Import Error
	Import GStrDispose
	Import GStrNew
	Import GStrResize
	Import MyID
	Import OpenMsgWindow
	Import PointerSize
	Import ScriptFileHdl
	Import ScriptListHdl
	Import ScriptListSize
	Import StandBy
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

	phb
	phk
	plb

; Check to see if we can find any scripts, and quit if we can't.  (This
; subroutine creates the lists for the list manager in the 'main' segment.)

;       Get a null block of memory to put ScripName info in

	lda #0000	; Size of block to create
	jsl Allocate
	txa
	sta >ScriptListHdl
	tya
	sta >ScriptListHdl+2

;       Get a null block of memory to put Script filename info in

	lda #0000	; Size of block to create
	jsl Allocate
	txa
	sta >ScriptFileHdl
	tya
	sta >ScriptFileHdl+2

	jsr FindScripts
	bcs ReportError	; Did an error occur?
	lda >ScriptListSize	; Did we find any scripts?
	bne SkipAllDone

	lda #$0082	; If no scripts were found, let user know
ReportError	jsl Error	; Notify user of errors
	bra BuildListExit
SkipAllDone

	clc	; no error
BuildListExit	plb
	rtl
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
FindScripts
;	Script List:
;	A local subroutine to find ALL online scripts by
;	calling AddScripts to get everything in the SCRIPTS
;	folder and then repeatedly calling AddScripts while
;	passing the names of all directories that can legally
;	contain script files.
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

; This may take a while, so put up a notification for the user.

	ldx #StandBy
	ldy #^StandBy
	jsl OpenMsgWindow

; get a buffer to use for pathnames

	pha	; Room for result
	pha
	pea 0000	; Size
	lda >MyID
	pha	; ID
	jsl GStrNew
	plx
	stx outputPath
	pla
	sta outputPath+2

; Get the handle to the buffer, since the pointer may change in jsl AddScripts

	pha
	pha
	pha	; GStr to get handle to
	phx
	ldx #FindHandle
	jsl ToolLocator
	plx	; A-reg contains error code: should be none
	ply
	stx outputPathHdl
	sty outputPathHdl+2

; Expand the name "9:SCRIPTS" and check there.

	jsl GSOS
	dc.w Expand_Path
	dc.l Expand_Parms

	pha	; Room for result
	pha
	lda outputPath+2	; Pointer to GStr to resize
	pha
	lda outputPath	; NOTE: GStrNew creates a 1K buffer.
	pha	;       the full pathname is
	jsl GStrResize	;       assumed to always be smaller!
	plx	; new pointer to GStr
	ply

; Check for scripts in the SCRIPTS folder.  Ignore any errors.  (We still may
; find other scripts whether this folder exists or not or we got some other
; error.)
; Pass pointer to GStr in x/y.

	jsl AddScripts	; rdl: 5/23/91 replace Check4Scripts
	ldx outputPathHdl+2	; Reestablish the ptr in outputPath
	lda outputPathHdl	;   (AddScripts may have moved it)
	jsl DeRef
	sta outputPath
	stx outputPath+2
	Eject

; Now start with device #1 and check the root directories of all volumes.

	lda >D_DeviceNum	; Save the current device number
	sta Temp

	lda #0000	; Set current device to zero
	sta >D_DeviceNum

;       Make a GS/OS D_Info call to the next device

GetDInfo	lda >D_DeviceNum
	inc a
	sta >D_DeviceNum

GetDeviceInfo	jsl GSOS
	dc.w D_Info
	dc.l D_Info_Parms
	bcc NoError

;       If we got back an "InvalidDevNum" error, we're out of devices.

@1	cmp #InvalidDevNum
	bne GetDInfo

;       If we've been through the whole device list, we're done.

	lda Temp	; Restore the current device number
	sta >D_DeviceNum
	bra SearchDone

;       Get the volume's name.

NoError
	lda outputPath
	sta Vol_Name_Ptr
	lda outputPath+2
	sta Vol_Name_Ptr+2

	jsl GSOS
	dc.w Volume
	dc.l Volume_Parms
	bcc ResizeBuffer
	cmp #BufferTooSmall
	bne GetDInfo	; Got an error, try next device

ResizeBuffer
	pha	; Room for result
	pha
	lda outputPath+2	; Pointer to GStr to resize
	pha
	lda outputPath
	pha
	jsl GStrResize
	plx
	stx outputPath
	ply
	sty outputPath+2
	bcs NoError	; Try again if it didn't fit before

;       Check the volume for root level scripts.

	jsl AddScripts	; X & Y point to full pathname of directory
	php	; save carry flag
	pha	; save any error value

	ldx outputPathHdl+2	; Reestablish the ptr in outputPath
	lda outputPathHdl	;   (AddScripts may have moved it)
	jsl DeRef
	sta outputPath
	stx outputPath+2

	pla	; restore error value
	plp	; restore carry flag

;       Keep checking til all online volumes have been checked.

	bcc GetDInfo
	brl ErrorExit
	Eject

; Dispose of the pathname buffer

SearchDone	lda outputPath+2
	pha
	lda outputPath
	pha
	jsl GStrDispose

; Now check the message center and see if there were scripts to be "OPEN"ed.
; If so, they must be added to the script lists no matter where they are
; located and they will be the hilited scripts.

	jsl CheckMsgCenter
	bcs ErrorExit
	sta MsgCenterStatus	; Save the non-error return status

; We've got all the scripts we're going to get.  If our memory segment is
; still empty, we didn't find any scripts at all!  Notify the user and we're
; done...the Customized Installation dialog can't do anything without a script.

	pha
	pha
	lda >ScriptFileHdl+2
	pha
	lda >ScriptFileHdl
	pha
	ldx #GetHandleSize
	jsl ToolLocator
	pla
	sta TempA
	pla
	ora TempA
	bne AlphabetizeList

	lda #$0082	; Oops!  No scripts were found at all!
	sec
	bra ErrorExit

; Alphabetize the list.

AlphabetizeList
	jsl Alphabetize	; sets <ScriptListPtr & >ScriptListSize

; If there were no scripts to be "OPENed, set the flags byte on the first
; member to $80 so it will be hilited.

	lda MsgCenterStatus	; Recover the non-error return status
	bmi CloseTheWindow	; If status = -1, don't hilite first

	lda <ScriptListPtr
	sta <ZPTemp
	lda <ScriptListPtr+2
	sta <ZPTemp+2

	sep #$0020
	LongA Off

	ldy #0004	; Offset to member's flag byte
	lda #$80	; Desired flag value
	sta [<ZPTemp],y	; Store it.

	LongA On
	rep #$0020

; Close the user notification box and we're done.

CloseTheWindow	jsl CloseMsgWindow

	clc
	rts

ErrorExit	pha
	php
	jsl CloseMsgWindow
	plp
	pla
	rts
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

; Local Data

Expand_Parms	dc.w 0003	; pCount
	dc.l inputPath	; inputPath
outputPath	dc.l 00000000	; outputPath
	dc.w $8000	; flags

outputPathHdl	ds.l 1	; handle to outputPath pointer

inputPath	dc.w inputPathEnd-*-2
	dc.b '9:SCRIPTS'
inputPathEnd

MsgCenterStatus	ds.w 1

Temp	ds.w 1	; Temporary local storage
TempA	ds.w 1

Volume_Parms	dc.w 0002	; Parameter count
Dev_Name_Ptr	dc.l Dev_Name+2	; Device name pointer
Vol_Name_Ptr	dc.l 00000000	; Volume name pointer
	EndP
	End
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Installer/Subroutines.asm b/IIGS.601.SRC/A.U.G/Installer/Subroutines.asm
new file mode 100644
index 0000000..41cfcf9
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Installer/Subroutines.asm
@@ -0,0 +1 @@
+* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
*			                  *
*      A P P L E   I I g s   I N S T A L L E R   P R O G R A M   V  2 . 0     *
*                                                                             *
*                              by "Jay" Schaffer                              *
*                               and  Ron Lichty                               *
*			                  *
*  Copyright Apple Computer, Inc. 1987-1991              All Rights Reserved  *
*			                  *
* * * * * * * * * *	* * * * * * * * * *	* * * * * * * * * *	* * * * * * * * * *
	Print Push
	Print Off
	Include 'Installer.Equates'
	Print Pop

	Seg 'Main'
	SegAttr Static
* * * * * * * * * * * * * * * * * * * * * * * * *
*		        *
* Thermometer Dial (A Custom Control)	        *
* 		        *
* Date:	02/24/88 (created)	        *
* Author:	Don Brady	        *
*		        *
* Copyright APPLE Computer, Inc. 1987,1990      *
*		        *
* Modification History:	        *
* 02/24/88  Created today	        *
* 03/xx/88  first release  (.01)	        *
* 03/14/88  second release (.02)	        *
*                --- "Jay" ---                  *
* 9 Mar 90  Removed all external references     *
* * * * * * * * * * * * * * * * * * * * * * * * * 

; Tool Call Equates

ToolCall	equ  $E10000

_Multiply	equ  $090B	; Integer Math
_UDivide	equ  $0B0B
_LongDivide	equ  $0D0B

_SetPort	equ  $1B04	; Quick Draw II
_GetPort	equ  $1C04
_GetMasterSCB	equ  $1704
_SetPenState	equ  $2A04
_GetPenState	equ  $2B04
_FrameRect	equ  $5304
_FillRect	equ  $5704

; Miscellaneous Equates
	
ctrlPtr	equ  1	; stack & DP offsets
colorPtr	equ  ctrlPtr+4
retAddr	equ  colorPtr+3	
ctrlHandle	equ  retAddr+4
ctrlParam	equ  ctrlHandle+4
ctrlMessage	equ  ctrlParam+4
retValue	equ  ctrlMessage+2
retAddr2	equ  retValue-4

paramSize	equ  10	; bytes used by parameters

ctlRecSize	equ  40	; bytes used by control record

ctlOwner	equ  4	; control record offsets
ctlRect	equ  8
ctlFlag	equ  16
ctlValue	equ  18
ctlData	equ  28
ctlColor	equ  36

numMessages	equ  13	; number of control messages

patternMask	equ  $0FFC
	Eject
*===============================================*
*            Data for custom control	        *
*===============================================*
MyData	RECORD

	ENTRY  Pixels:DATA
	ENTRY  Length:DATA
	ENTRY  SValue:DATA
	ENTRY  Style:DATA
	ENTRY  FillRect:DATA
	ENTRY  RectY1:DATA
	ENTRY  RectX1:DATA
	ENTRY  RectY2:DATA
	ENTRY  RectX2:DATA
	ENTRY  BPattern:DATA
	ENTRY  IPattern:DATA
	ENTRY  Colors:DATA
	ENTRY  ColorPen:DATA
	ENTRY  ColorBack:DATA
	ENTRY  ColorIFore:DATA
	ENTRY  ColorIBack:DATA
	ENTRY  OldPenState:DATA
	ENTRY  NewPenState:DATA
	ENTRY  PenWidth:DATA
	ENTRY  PenPattern:DATA
	ENTRY  MyColorTbl:DATA
	
IPattern	DS.B  32	; indicator pattern
BPattern	DS.B  32	; background (interior) pattern	

Pixels	dc.w  0	; number of pixels to draw
Length	dc.w  0	; length of rect
Style	dc.w  0	; 0 = vertical, 1 = horizontal
SValue	dc.w  0	; scaled value

Colors
ColorPen	dc.w  0	; outline
ColorBack	dc.w  0	; interior
ColorIFore	dc.w  0	; indicator foreground
ColorIBack	dc.w  0	; indicator background (& solid)

OldPenState	DS.B  50	; space for PenState record

NewPenState	dc.w  0,0	; pen location
	dc.w  1	; pen height
PenWidth	dc.w  1	; pen width
	dc.w  $0000	; pen mode
PenPattern	dc.w  $0000,$0000,$0000,$0000	; pen pattern
	dc.w  $0000,$0000,$0000,$0000
	dc.w  $0000,$0000,$0000,$0000
	dc.w  $0000,$0000,$0000,$0000
	dc.b  $FF,$FF,$FF,$FF	; pen mask
	dc.b  $FF,$FF,$FF,$FF
	
MyColorTbl	dc.w  $0000,$000F,$0000,$800F	; default color table

FillRect		; indicator boundry rect
RectY1	dc.w  0
RectX1	dc.w  0
RectY2	dc.w  0
RectX2	dc.w  0

	ENDR
	Eject
*===============================================*
*          Setup Data for Custom Control        *
* - Calculates Length	        *
* - Scales indicator value (SValue)	        *
* - Creates QD Patterns:	        *
*       Pen (PenPattern)	        *
*       Background (BPattern)	        *
*       Indicator (IPattern)	        *
* 		        *
* INPUT:	--- In Direct Page ---      *
*	ctrlParam  (Long)	        *
*	ctrlHandle (Long)	        *
*		        *
* OUTPUT:	--- In Direct Page ---      *	
*	retValue   (Long)	        *
*		        *
*===============================================*
SetUp	PROC

	ldy  #2	; dereference handle
	lda  [ctrlHandle],y
	sta  ctrlPtr+2
	lda  [ctrlHandle]
	sta  ctrlPtr
	
	ldy  #ctlFlag	; get style flag
	lda  [ctrlPtr],y
	and  #$0001
	sta  Style
	
	pea  0	; scale current value
	pea  0
	ldy  #ctlValue
	lda  [ctrlPtr],y
	ldy  #ctlData
	cmp  [ctrlPtr],y	; value < max ?
	bcc  scale	; yes, use value
	lda  [ctrlPtr],y	; no, use max
scale	pha
	pea  100
	ldx  #_Multiply	; value * 100
	jsl  ToolCall
	plx
	ply
	pha
	pha
	pha
	pha
	phy	; dividend
	phx
	pea  0	; divisor (high word)
	ldy  #ctlData
	lda  [ctrlPtr],y	; divisor (low word)
	pha
	ldx  #_LongDivide	; (value * 100) / max
	jsl  ToolCall
	pla
	sta  SValue
	pla	; result high-word (ignore)
	pla	; remainder (ignore)
	pla

	ldy  #ctlColor	; get color table ptr
	lda  [ctrlPtr],y
	sta  colorPtr
	iny
	iny
	lda  [ctrlPtr],y
	sta  colorPtr+2	
	ora  colorPtr
	bne  setColors
	lda  #^MyColorTbl	; use default table
	sta  colorPtr+2
	lda  #MyColorTbl
	sta  colorPtr
setColors
	ldy  #0
@loop	lda  [colorPtr],y
	and  #$000F
	pha
	asl  a
	asl  a
	asl  a
	asl  a
	ora  1,s
	sta  1,s
	xba
	ora  1,s
	sta  Colors,y
	pla
	iny
	iny
	cpy  #4*2
	bcc  @loop
	
	ldy  #6	; check use-pattern flag
	lda  [colorPtr],y
	and  #$8000
	bne  setPattern
	lda  ColorIBack	; for a solid pattern
	sta  ColorIFore
setPattern		; create indicator pattern
	lda  #patternMask
	and  ColorIFore
	pha
	lda  #patternMask
	eor  #$FFFF
	and  ColorIBack
	ora  1,s
	sta  IPattern	
	pla
	
	ldy  #30	; create fill patterns
@loop	lda  ColorPen
	sta  PenPattern,y
	lda  ColorBack
	sta  BPattern,y
	dey
	dey
	bpl  @loop
	
setRect		; calculate fill rect
	ldy  #ctlRect
	lda  [ctrlPtr],y	; Y1
	inc  a
	sta  RectY1
	iny
	iny
	lda  [ctrlPtr],y	; X1
	inc  a
	sta  RectX1
	iny
	iny
	lda  [ctrlPtr],y	; Y2
	dec  a
	sta  RectY2
	iny
	iny
	lda  [ctrlPtr],y	; X2
	dec  a
	sta  RectX2

	lda  #1
	sta  PenWidth
	pha
	ldx  #_GetMasterSCB	; check for 640 mode
	jsl  ToolCall
	pla
	and  #$0080
	beq  pattern320
	inc  RectX1	; 640 mode has 2-pixel hort lines
	dec  RectX2
	inc  PenWidth
pattern640	lda  IPattern	
	sta  IPattern+4	; 640 pattern (8x8)
	sta  IPattern+8	
	sta  IPattern+12
	sta  IPattern+16	
	sta  IPattern+20	
	sta  IPattern+24	
	sta  IPattern+28
	xba	; shift pattern by 2 pixels
	sta  IPattern+2	
	sta  IPattern+6	
	sta  IPattern+10	
	sta  IPattern+14
	sta  IPattern+18	
	sta  IPattern+22	
	sta  IPattern+26
	sta  IPattern+30
	bra  setLength
pattern320	lda  IPattern	
	sta  IPattern+2	; 320 pattern (8x8)
	sta  IPattern+8	
	sta  IPattern+10
	sta  IPattern+16	
	sta  IPattern+18	
	sta  IPattern+24	
	sta  IPattern+26
	xba	; shift pattern by 2 pixels
	sta  IPattern+4	
	sta  IPattern+6	
	sta  IPattern+12	
	sta  IPattern+14
	sta  IPattern+20	
	sta  IPattern+22	
	sta  IPattern+28	
	sta  IPattern+30
setLength		; calculate length
	lda  Style
	asl  a
	tay
	lda  FillRect+4,y
	sec
	sbc  FillRect,y
	sta  Length
exit	rts
	
	ENDP
	Eject
*===============================================*
*              Draw Indicator Part	        *
* 		        *
* INPUT:	none	        *
*		        *
* OUTPUT:	none	        *	
*		        *
*===============================================*
DrawIndicator	PROC

	IMPORT  CalcPixels

	jsr  CalcPixels
	
	lda  Style	; set pixel length
	bne  hort
vert	lda  RectY2
	sec
	sbc  Pixels
	sta  RectY1
	bra  fill
hort	lda  RectX1
	clc
	adc  Pixels
	sta  RectX2	
fill	pea  FillRect>>16
	pea  |FillRect
	pea  IPattern>>16
	pea  |IPattern
	ldx  #_FillRect
	jsl  ToolCall
	rts
	
	ENDP
	Eject
*===============================================*
*            Erase Part of Indicator	        *
* 		        *
* INPUT:	none	        *
*		        *
* OUTPUT:	none	        *	
*		        *
*===============================================*
EraseIndicator	PROC

	IMPORT  CalcPixels

	jsr  CalcPixels
	
	lda  Style	; set pixel length
	bne  hort
vert	lda  RectY2
	sec
	sbc  Pixels
	sta  RectY2
	bra  fill
hort	lda  RectX1
	clc
	adc  Pixels
	sta  RectX1	
fill	pea  FillRect>>16
	pea  |FillRect
	pea  BPattern>>16
	pea  |BPattern
	ldx  #_FillRect
	jsl  ToolCall
	rts
	
	ENDP
	Eject
*===============================================*
*            Draw the Custom Control	        *
* 		        *
* INPUT:	--- In Direct Page ---      *
*	ctrlParam  (Long)	        *
*	ctrlHandle (Long)	        *
*		        *
* OUTPUT:	--- In Direct Page ---      *	
*	retValue   (Long)	        *
*		        *
*===============================================*
DrawControl	Proc

	jsr  SetUp

	pea  0
	pea  0
	ldx  #_GetPort
	jsl  ToolCall
	ldy  #ctlOwner+2
	lda  [ctrlPtr],y
	pha
	dey
	dey
	lda  [ctrlPtr],y
	pha
	ldx  #_SetPort
	jsl  ToolCall

	pea  OldPenState>>16 ; save their settings
	pea  |OldPenState
	ldx  #_GetPenState
	jsl  ToolCall
	pea  NewPenState>>16 ; use our settings
	pea  |NewPenState
	ldx  #_SetPenState
	jsl  ToolCall
	
	lda  ctrlPtr	; get pointer to rect
	clc
	adc  #ctlRect	; offset
	tax
	lda  ctrlPtr+2
	adc  #0
	pha
	phx
	ldx  #_FrameRect	; draw dial's frame ¥¥¥¥ Hang ¥¥¥¥
	jsl  ToolCall
	
	pea  FillRect>>16
	pea  |FillRect
	pea  BPattern>>16
	pea  |BPattern
	ldx  #_FillRect	; draw dial's interior
	jsl  ToolCall

	jsr  DrawIndicator

	pea  OldPenState>>16 ; restore settings
	pea  |OldPenState
	ldx  #_SetPenState
	jsl  ToolCall
	ldx  #_SetPort
	jsl  ToolCall
	stz  retValue
	stz  retValue+2
	rts
	
	ENDP
	Eject
*===============================================*
*              Process a new Value	        *
* 		        *
* INPUT:	--- In Direct Page ---      *
*	ctlParam   (Long)	        *
* 		        *
* OUTPUT:	--- In Direct Page ---      *	
*	retValue   (Long)	        *
* 		        *
*===============================================*
NewValue	PROC

	jsr  SetUp
	lda  ctrlParam	; new value
	cmp  ctrlParam+2	; previous value
	bcs  grow
	jsr  EraseIndicator
	bra  exit
grow	jsr  DrawIndicator
	stz  retValue
	stz  retValue+2
exit	rts

	ENDP
	Eject
*===============================================*
*           Return Control Record Size	        *
*		        *
* INPUT:	none	        *
* 		        *
* OUTPUT:	--- In Direct Page ---      *	
*	retValue   (Long)	        *
* 		        *
*===============================================*
RecordSize	PROC

	lda  #ctlRecSize	; record size
	sta  retValue
	stz  retValue+2
	rts
	
	ENDP
*===============================================*
*  The following Routines are not really used.  *
*  In most cases the "default" action is taken. *
*  They are included for completeness.	        *
* 		        *
* INPUT:	none	        *
* 		        *
* OUTPUT:	--- In Direct Page ---      *	
*	retValue (Long) <-- 0       *
* 		        *
*===============================================*
Default	PROC

	ENTRY  CalculateRect
	ENTRY  TestControl
	ENTRY  InitControl
	ENTRY  DisposeControl
	ENTRY  PostControl
	ENTRY  ThumbControl
	ENTRY  DragControl
	ENTRY  AutoTrack
	ENTRY  SetParams
	ENTRY  MoveControl

CalculateRect		; use entire control (default rect)
TestControl		; this control is always inactive
InitControl		; no initialization needed
DisposeControl		; continue disposal (default)
PostControl		; not used
ThumbControl		; not used
DragControl		; use default dragging
AutoTrack		; not used
SetParams		; ??? should this be used?
MoveControl		; no calculations needed
	stz  retValue
	stz  retValue+2
	rts
	
	ENDP
	Eject
*===============================================*
*        Thermometer-Dial Custom Control        *
*         Control Definition Procedure	        *
*		        *
* INPUT:	--- On the Stack ---        *
*	longSpace  (Long)	        *
*	ctrlMessage (Word)	        *
*	ctrlParam  (Long)	        *
*	ctrlHandle (Long)	        *
* 		        *
* 		        *
* OUTPUT:	--- On the Stack ---        *	
*	retValue   (Long)	        *
* 		        *
*===============================================*
	EXPORT  ThermoDialProc
ThermoDialProc	PROC

	pea  0	; work space
	pea  0
	pea  0
	pea  0
	tsc
	phd
	phb
	phk
	plb
	tcd	; set DP to stack


	lda  ctrlMessage
	cmp  #numMessages
	bcs  exit
	asl  a
	tax
	jsr  (tOperation,x)

exit	plb
	pld
	lda  retAddr,s
	sta  retAddr2,s
	lda  retAddr+2,s
	sta  retAddr2+2,s
	tsa	; clean up stack
	clc
	adc  #paramSize+8
	tas
	rtl
	
	
tOperation	dc.w  DrawControl
	dc.w  CalculateRect
	dc.w  TestControl
	dc.w  InitControl
	dc.w  DisposeControl
	dc.w  PostControl
	dc.w  ThumbControl
	dc.w  DragControl
	dc.w  AutoTrack
	dc.w  NewValue
	dc.w  SetParams
	dc.w  MoveControl
	dc.w  RecordSize

	ENDP
	Eject
*===============================================*
*              Calculate Pixels	        *
* 		        *
* Pixels <--- (SValue * Length)/100	        *
* 		        *
* INPUT:	none	        *
* 		        *
* OUTPUT:	none	        *	
* 		        *
*===============================================*
CalcPixels	PROC

	pea  0
	pea  0
	lda  SValue	; Note: 0 ² SValue ² 100
	pha
	lda  Length	;       0 ² Length ² 640
	pha
	ldx  #_Multiply	; SValue * Length
	jsl  ToolCall
	pla	; result
	pea  0
	pha	; dividend
	pea  100	; divisor
	ldx  #_UDivide	; (SValue * Length) / 100
	jsl  ToolCall
	pla
	sta  Pixels
	pla	; remainder (ignore)
	rts
	
	ENDP
	Eject
*===============================================*
	Eject
* TML Pascal (MPW IIGS Cross Compiler) Version 1.50
* Copyright TML Systems, Inc. 1988
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
InitHeapsort	PROC EXPORT
*
* Description:	Stores values is our data table.
*
* Inputs:	LongWord - Pointer to ScriptName list
*	LongWord - Pointer to pathname list
*	Word - Number of members minus one (not used)
*
* Outputs:	none
*
* External Refs:
	Import DataArray
	Import DatArr2
	Import MaxTaInx
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

ScriptListPointer	equ $FC
PathnameListPointer	equ $F8
MembersMinusOne	equ $F6

	phd
	tsc
	sec
	sbc #$00F0
	tcd
	clc
	adc #$00DC
	tcs

	lda MembersMinusOne
	sta MaxTaInx
	lda ScriptListPointer
	sta DataArray
	lda ScriptListPointer+2
	sta DataArray+2
	lda PathnameListPointer
	sta DatArr2
	lda PathnameListPointer+2
	sta DatArr2+2

	tdc
	clc
	adc #$00F0
	tcs
	pld
	lda $02,s
	sta $0C,s
	lda $01,s
	sta $0B,s
	tsc
	clc
	adc #$000A
	tcs
	rtl
	ENDPROC
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
moveRecord	PROC
*
* Description:	Swaps the position of two records in both the script name
*	list and the script pathname list.
*
* Inputs:	word ; Index to first member (-1 indicates aux storage)
*	word ; Index to second member (-1 indicates aux storage)
*
* Outputs:	none
*
* External Refs:
	IMPORT AuxEl
	IMPORT AuxEl2
	IMPORT DataArray
	IMPORT DatArr2
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

Src	equ $FE	; Source index (input)
Dest	equ $FC	; Destination index (input)

Pointer	equ $F3	; Zero page pointer to data array
Pointer2	equ $EF	; Zero page pointer to data array 2

Script_Record	equ $E0	; Script list record temp storage
Path_Record	equ $DA	; Pathname list record temp storage

; Set up our environment.

	phd
	tsc
	sec
	sbc #$00F6
	tcd
	clc
	adc #$00CD
	tcs

; If the "Src" value is -1, the source is the auxiliary storage location.

	lda Src
	bpl L0001

;       Move 4-byte pointers and 2-byte flags from auxilary storage to
;       internal temporary storage.

	lda AuxEl	; Script list stuff
	sta Script_Record
	lda AuxEl+2
	sta Script_Record+2
	lda AuxEl+4
	sta Script_Record+4

	lda AuxEl2	; Pathname list stuff
	sta Path_Record
	lda AuxEl2+2
	sta Path_Record+2
	lda AuxEl2+4
	sta Path_Record+4
	bra L0002

; If the "Src" value is positive, it's a legitimate index to a location.

L0001

;       Move 4-byte pointers and 2-byte flags, from source location to
;       internal temporary storage.

	jsr GetPointers

	lda Src	; Multiply the index by six, the
	asl a	;   size of a record.
	clc
	adc Src
	asl a
	tay

	lda [Pointer],y
	sta Script_Record
	lda [Pointer2],y
	sta Path_Record
	iny
	iny 
	lda [Pointer],y
	sta Script_Record+2
	lda [Pointer2],y
	sta Path_Record+2
	iny
	iny 
	lda [Pointer],y
	sta Script_Record+4
	lda [Pointer2],y
	sta Path_Record+4

; If the "Dest" value is -1, the destination is the auxiliary storage location.

L0002	lda Dest
	bpl L0003

	lda Script_Record	; Script list stuff
	sta AuxEl
	lda Script_Record+2
	sta AuxEl+2
	lda Script_Record+4
	sta AuxEl+4

	lda Path_Record	; Pathname list stuff
	sta AuxEl2
	lda Path_Record+2
	sta AuxEl2+2
	lda Path_Record+4
	sta AuxEl2+4

	bra L0004

; If the "Dest" value is positive, it's a legitimate index to a location.

L0003	jsr GetPointers

	lda Dest	; Multiply the index by six, the
	asl a	;   size of a record.
	clc
	adc Dest
	asl a
	tay

	lda Script_Record
	sta [Pointer],y
	lda Path_Record
	sta [Pointer2],y
	iny
	iny 
	lda Script_Record+2
	sta [Pointer],y
	lda Path_Record+2
	sta [Pointer2],y
	iny
	iny 
	lda Script_Record+4
	sta [Pointer],y
	lda Path_Record+4
	sta [Pointer2],y

; We're done.  Restore the environment

L0004	tdc
	clc
	adc #$00F6
	tcs
	pld
	lda $02,s
	sta $06,s
	lda $01,s
	sta $05,s
	tsc
	clc
	adc #$0004
	tcs
	rtl

; Local subroutine to load pointers into variables.

GetPointers	lda DataArray	; Script list stuff
	sta Pointer
	lda DataArray+2
	sta Pointer+2

	lda DatArr2	; Pathname list stuff
	sta Pointer2
	lda DatArr2+2
	sta Pointer2+2

	rts
	ENDPROC
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
compare	PROC
*
* Description:
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

	phd
	tsc
	sec
	sbc	#$00F4
	tcd
	clc
	adc	#$00C8
	tcs
	lda	$FC
	sec
	sbc	#$0000
	bvs	*+$0005
	eor	#$8000
	bpl	*+$0005
	brl	L0001
	IMPORT	auxel
	lda	auxel
	sta	$D7
	IMPORT	auxel
	lda	auxel+$0002
	sta	$D9
	IMPORT	auxel
	lda	auxel+$0004
	sep	#$0020
	LONGA	OFF
	sta	$DB
	rep	#$0020
	LONGA	ON
	brl	L0002
L0001
	LONGA	ON
	IMPORT	dataarray
	lda	dataarray
	IMPORT	dataarray
	ldx	dataarray+$0002
	sta	$F1
	stx	$F3
	lda	$FC
; to get proper index, multiply it by rec size (6)
	pha			; temp location
	asl a			; index * 2
	clc			; set up add, usually unnecessary, BUT...
	adc 1,s			; index * 3
	asl a			; index * 6
	tay			; now we are ready to go
	pla			; balance stack
	iny
	iny
	lda	[$F1],y
	tax
	dey
	dey
	lda	[$F1],y
	sta	$D7
	stx	$D9
	IMPORT	dataarray
	lda	dataarray
	IMPORT	dataarray
	ldx	dataarray+$0002
	sta	$F1
	stx	$F3
	lda	$FC
; to get proper index, multiply it by rec size (6)
	pha			; temp location
	asl a			; index * 2
	clc			; set up add, usually unnecessary, BUT...
	adc 1,s			; index * 3
	asl a			; index * 6
	tay			; now we are ready to go
	pla			; balance stack
	iny
	iny
	iny
	iny
	lda	[$F1],y
	sep	#$0020
	LONGA	OFF
	sta	$DB
	rep	#$0020
	LONGA	ON
L0002
	lda	$FA
	sec
	sbc	#$0000
	bvs	*+$0005
	eor	#$8000
	bpl	*+$0005
	brl	L0003
	IMPORT	auxel
	lda	auxel
	sta	$DC
	IMPORT	auxel
	lda	auxel+$0002
	sta	$DE
	IMPORT	auxel
	lda	auxel+$0004
	sep	#$0020
	LONGA	OFF
	sta	$E0
	rep	#$0020
	LONGA	ON
	brl	L0004
L0003
	LONGA	ON
	IMPORT	dataarray
	lda	dataarray
	IMPORT	dataarray
	ldx	dataarray+$0002
	sta	$F1
	stx	$F3
	lda	$FA
; to get proper index, multiply it by rec size (6)
	pha			; temp location
	asl a			; index * 2
	clc			; set up add, usually unnecessary, BUT...
	adc 1,s			; index * 3
	asl a			; index * 6
	tay			; now we are ready to go
	pla			; balance stack
	iny
	iny
	lda	[$F1],y
	tax
	dey
	dey
	lda	[$F1],y
	sta	$DC
	stx	$DE
	IMPORT	dataarray
	lda	dataarray
	IMPORT	dataarray
	ldx	dataarray+$0002
	sta	$F1
	stx	$F3
	lda	$FA
; to get proper index, multiply it by rec size (6)
	pha			; temp location
	asl a			; index * 2
	clc			; set up add, usually unnecessary, BUT...
	adc 1,s			; index * 3
	asl a			; index * 6
	tay			; now we are ready to go
	pla			; balance stack
	iny
	iny
	iny
	iny
	lda	[$F1],y
	sep	#$0020
	LONGA	OFF
	sta	$E0
	rep	#$0020
	LONGA	ON
L0004
	lda	#$0001
	sta	$C9
	stz	$D1
	lda	[$D7]
	and	#$00FF
	sta	$CD
	lda	[$DC]
	and	#$00FF
	sta	$CF
	lda	$CD
	sec
	sbc	$CF
	bvs	*+$0005
	eor	#$8000
	bpl	*+$0005
	brl	L0005
	lda	$CD
	sta	$CB
	brl	L0006
L0005
	LONGA	ON
	lda	$CF
	sta	$CB
L0006
L0007
	lda	$CB
	sec
	sbc	$C9
	bvs	*+$0005
	eor	#$8000
	sep	#$0020
	LONGA	OFF
	bmi	*+$0006
	lda	#$00
	bra	*+$0004
	lda	#$01
	sta	$F1
	rep	#$0020
	LONGA	ON
	lda	$D1
	cmp	#$0000
	sep	#$0020
	LONGA	OFF
	beq	*+$0006
	lda	#$00
	bra	*+$0004
	lda	#$01
	and	$F1
	bit	#$01
	bne	*+$0005
	brl	L0008
	rep	#$0020
	LONGA	ON
	lda	$C9
	tay
	lda	[$D7],y
	and	#$00FF
	sta	$D3
	lda	$C9
	tay
	lda	[$DC],y
	and	#$00FF
	sta	$D5
	lda	$D3
	sec
	sbc	#$0061
	bvs	*+$0005
	eor	#$8000
	sep	#$0020
	LONGA	OFF
	bmi	*+$0006
	lda	#$00
	bra	*+$0004
	lda	#$01
	sta	$F1
	rep	#$0020
	LONGA	ON
	lda	#$007A
	sec
	sbc	$D3
	bvs	*+$0005
	eor	#$8000
	sep	#$0020
	LONGA	OFF
	bmi	*+$0006
	lda	#$00
	bra	*+$0004
	lda	#$01
	and	$F1
	bit	#$01
	bne	*+$0005
	brl	L0009
	rep	#$0020
	LONGA	ON
	lda	$D3
	sec
	sbc	#$0020
	sta	$D3
	sep	#$0020
	LONGA	OFF
L0009
	rep	#$0020
	LONGA	ON
	lda	$D5
	sec
	sbc	#$0061
	bvs	*+$0005
	eor	#$8000
	sep	#$0020
	LONGA	OFF
	bmi	*+$0006
	lda	#$00
	bra	*+$0004
	lda	#$01
	sta	$F1
	rep	#$0020
	LONGA	ON
	lda	#$007A
	sec
	sbc	$D5
	bvs	*+$0005
	eor	#$8000
	sep	#$0020
	LONGA	OFF
	bmi	*+$0006
	lda	#$00
	bra	*+$0004
	lda	#$01
	and	$F1
	bit	#$01
	bne	*+$0005
	brl	L000A
	rep	#$0020
	LONGA	ON
	lda	$D5
	sec
	sbc	#$0020
	sta	$D5
	sep	#$0020
	LONGA	OFF
L000A
	rep	#$0020
	LONGA	ON
	lda	$D3
	cmp	$D5
	beq	*+$0005
	brl	L000B
	inc	$C9
	brl	L000C
L000B
	LONGA	ON
	lda	$D3
	sec
	sbc	$D5
	bvs	*+$0005
	eor	#$8000
	bpl	*+$0005
	brl	L000D
	lda	#$FFFF
	sta	$D1
	brl	L000E
L000D
	LONGA	ON
	lda	#$0001
	sta	$D1
L000E
L000C
	brl	L0007
L0008
	LONGA	OFF
	rep	#$0020
	LONGA	ON
	lda	$D1
	sta	$FE
	lda	$D1
	cmp	#$0000
	sep	#$0020
	LONGA	OFF
	beq	*+$0006
	lda	#$00
	bra	*+$0004
	lda	#$01
	sta	$F1
	rep	#$0020
	LONGA	ON
	lda	$CD
	cmp	$CF
	sep	#$0020
	LONGA	OFF
	bne	*+$0006
	lda	#$00
	bra	*+$0004
	lda	#$01
	and	$F1
	bit	#$01
	bne	*+$0005
	brl	L000F
	rep	#$0020
	LONGA	ON
	lda	$CD
	sec
	sbc	$CF
	bvs	*+$0005
	eor	#$8000
	bpl	*+$0005
	brl	L0010
	lda	#$FFFF
	sta	$FE
	brl	L0011
L0010
	LONGA	ON
	lda	#$0001
	sta	$FE
L0011
	sep	#$0020
	LONGA	OFF
L000F
	rep	#$0020
	LONGA	ON
	tdc
	clc
	adc	#$00F4
	tcs
	pld
	lda	$02,s
	sta	$06,s
	lda	$01,s
	sta	$05,s
	tsc
	clc
	adc	#$0004
	tcs
	rtl
	ENDPROC
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
Sift	PROC
*
* Description:
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

	phd
	tsc
	sec
	sbc	#$00F6
	tcd
	clc
	adc	#$00DD
	tcs
	ldy	#$00DF
	lda	[$FC],y
	sta	$DF
	lda	$DF
	clc
	adc	$DF
	ldy	#$00FE
	sec
	sbc	[$FC],y
	inc	a
	sta	$E1
	pei	$DF
	pea	$FFFF
	IMPORT	moveRecord
	jsl	>moveRecord
	sep	#$0020
	LONGA	OFF
	stz	$DE
L0001
	rep	#$0020
	LONGA	ON
	ldy	#$00E1
	lda	[$FC],y
	sec
	sbc	$E1
	bvs	*+$0005
	eor	#$8000
	bpl	*+$0005
	brl	L0002
	lda	#$0001
	sep	#$0020
	LONGA	OFF
	sta	$DE
	rep	#$0020
	LONGA	ON
	brl	L0003
L0002
	LONGA	ON
	lda	$E1
	ldy	#$00E1
	sec
	sbc	[$FC],y
	bvs	*+$0005
	eor	#$8000
	bpl	*+$0005
	brl	L0004
	pha
	pei	$E1
	lda	$E1
	inc	a
	pha
	IMPORT	compare
	jsl	>compare
	pla
	sec
	sbc	#$0000
	bvs	*+$0005
	eor	#$8000
	bpl	*+$0005
	brl	L0005
	lda	$E1
	inc	a
	sta	$E1
L0005
L0004
	pha
	pea	$FFFF
	pei	$E1
	IMPORT	compare
	jsl	>compare
	pla
	sec
	sbc	#$0000
	bvs	*+$0005
	eor	#$8000
	bmi	*+$0005
	brl	L0006
	lda	#$0001
	sep	#$0020
	LONGA	OFF
	sta	$DE
	rep	#$0020
	LONGA	ON
	brl	L0007
L0006
	LONGA	ON
	pei	$E1
	pei	$DF
	IMPORT	moveRecord
	jsl	>moveRecord
	lda	$E1
	sta	$DF
	lda	$DF
	clc
	adc	$DF
	ldy	#$00FE
	sec
	sbc	[$FC],y
	inc	a
	sta	$E1
L0007
L0003
	lda	$DE
	bit	#$0001
	sep	#$0020
	LONGA	OFF
	bne	*+$0005
	brl	L0001
	pea	$FFFF
	pei	$DF
	rep	#$0020
	LONGA	ON
	IMPORT	moveRecord
	jsl	>moveRecord
	tdc
	clc
	adc	#$00F6
	tcs
	pld
	lda	$02,s
	sta	$06,s
	lda	$01,s
	sta	$05,s
	tsc
	clc
	adc	#$0004
	tcs
	rtl
	ENDPROC
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
Sort	PROC EXPORT
*
* Description:
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

	phd
	tsc
	sec
	sbc	#$00F6
	tcd
	clc
	adc	#$00DE
	tcs

	lda	$FC
	sec
	sbc	$FE
	inc	a
	sta	$DF
	lda	$DF
	lsr	a
	sta	$DF
	lda	$DF
	clc
	adc	$FE
	sta	$DF
	lda	$FC
	sta	$E1
L0001
	lda	$FE
	sec
	sbc	$DF
	bvs	*+$0005
	eor	#$8000
	bpl	*+$0005
	brl	L0002
	lda	$DF
	dec	a
	sta	$DF
	pea	$0000
	phd
	IMPORT	sift
	jsl	>sift
	brl	L0001
L0002
	LONGA	ON
L0003
	lda	$FE
	sec
	sbc	$E1
	bvs	*+$0005
	eor	#$8000
	bpl	*+$0005
	brl	L0004
	pei	$FE
	pea	$FFFF
	IMPORT	moveRecord
	jsl	>moveRecord
	pei	$E1
	pei	$FE
	IMPORT	moveRecord
	jsl	>moveRecord
	pea	$FFFF
	pei	$E1
	IMPORT	moveRecord
	jsl	>moveRecord
	lda	$E1
	dec	a
	sta	$E1
	pea	$0000
	phd
	IMPORT	sift
	jsl	>sift
	brl	L0003
L0004
	LONGA	ON
	tdc
	clc
	adc	#$00F6
	tcs
	pld
	lda	$02,s
	sta	$06,s
	lda	$01,s
	sta	$05,s
	tsc
	clc
	adc	#$0004
	tcs
	rtl
	ENDPROC
	Eject
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
~heapsort1	PROC EXPORT
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

	EXPORT maxtainx
maxtainx	DS $0002	; Number of members minus one (not used)
	EXPORT datarr2
datarr2	DS $0004	; Pointer to pathname list
	EXPORT dataarray
dataarray	DS $0004	; Pointer to ScriptName list
	EXPORT auxel2
auxel2	DS $0006	; Temp storage for pathname entry
	EXPORT auxel
auxel	DS $0006	; Temp storage for ScriptName entry
	ENDPROC
	Eject

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
*			                  *
* The following is a set of routines with four entry points:                  *
*			                  *
*   1)  Check4Scripts - Called once by StartUp to build the initial script    *
*	list based on the contents of the SCRIPTS folder in the   *
*	directory from which the Installer was launched.          *
;;;;;;;;;;;;;;;;;;;; NOTE: Check4Scripts is no longer called ;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;; Replaced by calling AddScripts every time ;;;;;;;;;;;;;;;;
*			                  *
*   2)  AddScripts - Called by StartUp and Main whenever a new directory is   *
*	to be checked for scripts.  Scripts found are added to    *
*	list already begun by Check4Scripts.	                  *
*			                  *
*   3)  Alphabetize - Always called before displaying a new script list.      *
*	This is the routine that locks down the lists, tells us   *
*	where it is located, and how many members it contains.    *
*			                  *
*   4)  CheckMsgCenter - Called once by StartUp to determine if the user      *
*	requested OPENing any of the script files in which case   *
*	they are added to the list, if not currently there, and   *
*	marked "selected" in the customized installation display. *
*			                  *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
AddScripts	Procname Export
*
* Description:	AddScripts searches the specified directory for SCRIPT
*	files.  If scripts are found, they are added to the
*	existing script list.  (The list is not re-alphabetized.)
*
*        NOTE:	Old scripts  = filetype $04, auxtype $0000, contains "SCRIPT"
*	Scripts V1.n = filetype $B0, auxtype $0017, contains "SCRIPT"
*
* Inputs:	X and Y-reg contain pointer to FULL pathname of directory
*	to scan, a GS/OS Class 1 output string.
*
* Outputs:	c-flag clear: no errors
*	c-flag set: A-reg contains error and user has been alerted.
*	v-flag clear: no scripts added
*	v-flag set: scripts were added to the list.
* External Refs:
	Import Aux_Type
	Import ColonBuf
	Import cVersion
	Import DeReference
	Import DialogFlag
	Import Error
	Import File_Type
	Import Get_Dir_Parms
	Import GStrConcat
	Import GStrResize
	Import GStrToC1Inp
	Import InitHeapsort
	Import messageHandle
	Import NameBuffer
	Import oScriptNameField
	Import PointerSize
	Import ScriptFileHdl
	Import ScriptListBuilt
	Import ScriptListCtlHdl
	Import ScriptListHdl
	Import ScriptListSize
	Import Sort
	Import WindowSetupComplete
*
* Entry Points:
	Export Alphabetize
	Export CheckMsgCenter
	Export NoCaseCompare8bit
	Export UpperCase8bit
*
* Side Effects:	This routine will build a list of pointers and ScriptName
*	strings for the List Manager (see ControlData) and a list
*	of script filenames for later script execution.
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

OldScriptType	equ $04	; Script filetype (ASCII text)
NewScriptType	equ $B0	; APW Source file
ScriptAux	equ $0017	; APW Language (OldScript)
	Eject

	phb
	phk
	plb

	stz ScriptAddFlag

; Store the Directory's pathname pointer (GS/OS Class 1 output string buffer).

	stx <PathBuf
	sty <PathBuf+2

; Open the directory and initialize Get_Dir_Parms.

	inx	; Point to strings length word
	bne @0001
	iny
@0001	inx
	bne @0002
	iny
@0002
	stx Open_Path
	sty Open_Path+2

	jsl GSOS
	dc.w Open
	dc.l OpenParms
	bcc @continue

	jsl error	; inform the user
	clc	; then pretend there's no error
	bra ScriptOops

@continue	lda OpenParms+2
	sta Get_Dir_Parms+2

	lda #0001
	sta Get_Dir_Parms+6	; (base)
	sta Get_Dir_Parms+8	; (displacement)

	jsr AddColon

; Store the pathname's length (so we can back up to the directory's pathname
; after each script filename concatenation).

	ldy #0002
	lda [<PathBuf],y
	sta DirPathLength

; In a loop call Get_Dir_Entry

ScriptSearchLoop	jsl GSOS	; Call GS/OS to...
	dc.w Get_Dir_Entry	; ...get a directory entry
	dc.l Get_Dir_Parms
	bcc CheckScriptEntry

	cmp #EndOfDir	; No more entries?
	bne ScriptOops
	brl AddScriptsDone

ScriptOops	brl ScriptExit	; Pass errors on

; Check the entry to determine if it is a legitimate script file

CheckScriptEntry	ldy #0002
	lda DirPathLength	; Put directory's length word back
	sta [<PathBuf],y

	jsr CheckEntry
	bcs ScriptSearchLoop
	Eject
; It is a legitimate script file!  Make sure it isn't already in the list.
; (The user may have re-inserted a volume that was previously off-line.)

;       Initialize variables.  If accessing the SCRIPTS folder failed or it
;       contained no scripts, the first time through here, the memory to
;       hold the script list and the memory to hold the script filenames
;       will still be empty and the pointers will be null.

	stz StringCounter
	jsr GetScriptFilePtr

	lda <ScriptFilePtr	; Make sure the pointer is not null
	ora <ScriptFilePtr+2
	bne @Continue
	brl @NoMatch
@Continue
	ldy #0002	; Offset to the pathname in <PathBuf
	sty SrcY

	lda ScriptListSize
	jsr MultiplyBy6	; Multiply by entry size.
	sta DestY

;       Go through the ScriptFileList looking for a matching string.

@StringCompareLoop	ldy Desty
	sty YDest
	ldy SrcY

;       First check the length words.  If they don't match, we don't need
;       to check any further.

	lda [<PathBuf],y	; Get lengthWord from <PathBuf
	sty YSrc
	ldy YDest
	cmp [<ScriptFilePtr],y ; Compare lengthWord from pathname list
	bne @NextString1

;       The length words match, so start checking the strings byte by byte.

	sta StringLength	; Save the length
	inc YSrc	; Move past lengthWord
	inc YSrc
	inc YDest
	inc YDest
	ldx #0000	; Initialize character counter

	sep #$0020
	LongA Off

;       This must be a case in-sensitive comparison.

@StringCompareLoop1	ldy YSrc
	lda [<PathBuf],y	; Get a character from <PathBuf
	jsl UpperCase8bit	; If char is lower case, convert it to upper case
	sta Character

	ldy YDest	; Get a character from the ScriptFileList
	lda [<ScriptFilePtr],y
	jsl UpperCase8bit	; If char is lower case, convert it to upper case
	cmp Character	; Compare the characters
	bne @NextString	; Didn't match

	inc YSrc	; Character matched.  Adjust offsets.
	inc YDest

	inx	; Increment character counter and
	cpx StringLength	;   check for end of string.
	bne @StringCompareLoop1

;       The strings matched!  We don't need to add this item to the list.

	LongA On
	rep #$0020
	brl ScriptSearchLoop

;       The strings didn't match.  Update DestY to point to the next string
;       in the ScriptFileList and reset YSrc back to the beginning of the
;       string in <PathBuf.

@NextString
	LongA On
	rep #$0020
@NextString1
	clc
	ldy DestY
	lda [<ScriptFilePtr],y ; Get lengthWord
	adc DestY	;   Add on the previous offset
	inc a	; Add two for lengthWord
	inc a
	inc a	; Add one for trailing null
	sta DestY

	ldy SrcY
	sty YSrc

	lda StringCounter	; Have we check against all strings?
	cmp ScriptListSize
	beq @NoMatch
	inc StringCounter
	brl @StringCompareLoop
@NoMatch
	Eject
; The script is not a duplicate.  We want to add the script to our list.
; Be sure the script lists' memory is unlocked and add the entry to the lists.
; (<PathBuf contains the full pathname of the script file to be added.)

	lda ScriptListHdl+2
	pha
	lda ScriptListHdl
	pha
	ldx #HUnlock
	jsl ToolLocator

	lda ScriptFileHdl+2
	pha
	lda ScriptFileHdl
	pha
	ldx #HUnlock
	jsl ToolLocator

	jsr AddToList
	lda #%0100000000000000
	sta ScriptAddFlag

	brl ScriptSearchLoop

; There are no more directory entries.

AddScriptsDone	lda ScriptListSize	; donÕt set flag if no scripts yet
	beq @noScriptsYet	;   (bra if no scripts)

	lda #$8000	; Indicate list is built
	sta >ScriptListBuilt

@noScriptsYet	lda #0000	; Flag "no errors"
	clc

; Close the directory

ScriptExit	pha
	php

	lda Get_Dir_Parms+2	; Get the reference number
	sta CloseParms+2

	jsl GSOS
	dc.w Close
	dc.l CloseParms

	plp
	pla
	bit ScriptAddFlag	; Condition vFlag
	plb
	rtl

ScriptAddFlag	ds.w 1
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
AddToList	; (Local subroutine)
;
; Description:	Adds one entry to the ScriptNameList and ScriptFileList
;	each time it is called.
;
;	WARNING: Resizes the memory used by both of these lists.
;	         Memory segments may get moved!
;
; Inputs:	none
;
; Outputs:	cFlag clear: no errors
;	cFlag set: MemoryMgr error code in A-reg.
;
; Uses:	<PathBuf - Directory entry's full pathname
;	Read_Buffer - Contains script's header including ScriptName
;	ScriptListHdl - Handle to ScriptName list
;	ScriptFileHdl - Handle to script's pathname list
;
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

	inc ScriptListSize	; One more script member

	lda ScriptListSize	; Need six bytes per member
	asl a	;  ( X2 )\
	clc	;         \
	adc ScriptListSize	;  ( +1 ) /  = X6
	asl a	;  ( X2 )/
	sta PointerSize
	Eject

; Begin with the ScriptName list

;       Determine the current size of the memory segment holding the
;       ScriptList and add on the additional size needed for the new
;       entry. Then resize the memory and get a pointer to it.

	jsr GetScriptNameLength
	sta ScriptNameLen

	pha	; Get the current size
	pha
	lda ScriptListHdl+2
	pha
	lda ScriptListHdl
	pha
	ldx #GetHandleSize
	jsl ToolLocator
	pla
	plx
	bcs AddToError1

	clc	; Add on additional needed
	sta ScriptIndex	; (Save the current size)
	adc ScriptNameLen	; (Pathname length)
	adc #0009	; (List entry size + flags + len-byte)
	tay
	txa
	sta ScriptIndex+2
	adc #0000

	sty NewSize
	sta NewSize+2

	lda ScriptListHdl+2	; Save the old pointer for later use
	pha	;   when the pointer table is rebuilt
	lda ScriptListHdl
	pha
	jsl Dereference
	pla
	sta OrigPtr
	pla
	sta OrigPtr+2

	lda ScriptListHdl+2	; Unlock the list...
	pha
	lda ScriptListHdl
	pha
	ldx #HUnlock
	jsl ToolLocator

	lda NewSize+2
	pha
	lda NewSize
	pha
	lda ScriptListHdl+2
	pha
	lda ScriptListHdl
	pha
	ldx #SetHandleSize
	jsl ToolLocator
	bcc AddToListContinue
AddToError1	brl AddToDone
AddToListContinue
	lda ScriptListHdl+2 ; Get pointer to the ScriptList
	pha
	lda ScriptListHdl
	pha
	jsl Dereference
	pla
	sta <ZPTemp
	sta <ScriptListPtr
	pla
	sta <ZPTemp+2
	sta <ScriptListPtr+2

; Add the new ScriptName to the end of the ScriptNameList.

	clc	; Calculate location of ScripName field
	lda #Read_Buffer
	adc oScriptNameField ; Posn of ScriptName field set by ReadScriptHeader
	sta <ZPTemp1
	lda #^Read_Buffer
	adc #0000
	sta <ZPTemp1+2

	lda #-1	; Initialize counter
	sta SrcY

	sep #$0020
	LongA Off

	ldy ScriptIndex	; Store the length byte
	lda ScriptNameLen
	sta [<ZPTemp],y

ScriptNameStoreLoop	iny
	tyx
	ldy SrcY	; (Can't just "inc SrcY" because
	iny	;  LongA is off!)
	sty SrcY
	lda [<ZPTemp1],y
	cmp #Return
	beq ScriptNameStoreDone
	txy
	sta [<ZPTemp],y
	bra ScriptNameStoreLoop
ScriptNameStoreDone
	LongA On
	rep #$0020

	txy
	ldx #ScriptFlagField
	lda Read_Buffer,x	; Get the flags word
	pha	; Save the flags
	and #$00FF	; Look at 2nd character
	cmp #'X'	; Is directory selection required?
	bne @NoDirectory
	lda #bDirReq
	bra @StoreIt
@NoDirectory	lda #%0000000000000000
@StoreIt	sta [<ZPTemp],y
	pla	; Restore the flags
	and #$DF00	; Look at 1st character (upper case)
	cmp #'R'*$100	; Is REMOVE command valid?
	beq @NoRemove
	lda [<ZPTemp],y
	ora #bNoRemove	; else prevent REMOVE button
	sta [<ZPTemp],y

@NoRemove	ldx #ScriptFlagPrvtBoot
	lda Read_Buffer,x	; Get the word
	and #$00FF	; Look at PreventBoot flag
	cmp #'B'	; prevent installation of script to Boot disk?
	bne @BootOK
	lda [<ZPTemp],y
	ora #bPreventBoot
	sta [<ZPTemp],y

@BootOK	jsr ReBuildPointers	; Rebuild the pointers

	lda ScriptListHdl+2	; Lock the list back down...
	pha
	lda ScriptListHdl
	pha
	ldx #Hlock
	jsl ToolLocator
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
; Now take care of the ScriptFile list

;       Determine the current size of the memory segment holding the
;       ScriptFileList and add on the additional size needed for the
;       new entry. Then resize the memory and get a pointer to it.

	pha	; Get the current size
	pha
	lda ScriptFileHdl+2
	pha
	lda ScriptFileHdl
	pha
	ldx #GetHandleSize
	jsl ToolLocator
	pla
	plx
	bcc @Continue
	brl AddToDone

@Continue	clc	; Add on additional needed
	sta ScriptIndex
	ldy #0002
	adc [<PathBuf],y	; (Pathname length)
	adc #0009	; (List entry size + length word
	tay	;      + trailing null)
	txa
	sta ScriptIndex+2
	adc #0000
	sty NewSize
	sta NewSize+2

	lda ScriptFileHdl+2	; Save the old pointer for later use
	pha	;   when the pointer table is rebuilt
	lda ScriptFileHdl
	pha
	jsl Dereference
	pla
	sta OrigPtr
	pla
	sta OrigPtr+2

	lda ScriptFileHdl+2	; Unlock the list...
	pha
	lda ScriptFileHdl
	pha
	ldx #HUnlock
	jsl ToolLocator

	lda NewSize+2
	pha
	ldy NewSize
	phy
	lda ScriptFileHdl+2
	pha
	lda ScriptFileHdl
	pha
	ldx #SetHandleSize
	jsl ToolLocator
	bcs AddToDone
	
	lda ScriptFileHdl+2	; Get pointer to the ScriptFileList
	pha
	lda ScriptFileHdl
	pha
	jsl Dereference
	pla
	sta <ZPTemp
	sta <ScriptFilePtr
	pla
	sta <ZPTemp+2
	sta <ScriptFilePtr+2

; Add the new pathname to the end of the ScriptFileList.

	pei <PathBuf+2	; Source pointer
	pei <PathBuf

	clc
	lda <ZPTemp
	adc ScriptIndex
	tax
	lda <ZPTemp+2
	adc #0000

	pha	; Destination pointer
	phx
	jsl GStrToC1Inp

	jsr ReBuildPointers	; Rebuild the pointers

	lda ScriptFileHdl+2	; Lock the list back down...
	pha
	lda ScriptFileHdl
	pha
	ldx #Hlock
	jsl ToolLocator
AddToDone	rts
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
ReBuildPointers	Name	; (Local subroutine)
;
; Description:	Rebuilds the pointer table on OUR lists (not anyone else's)
;	when ONE new member has been added to the end of the list
;	by moving the list up 6 bytes (to make room for one more
;	pointer/flags entry).  The scheme is to correct the
;	pointers by adding 6 bytes and correcting for any
;	relocation that took place when the memory segment grew.
;
; Inputs:	none
;
; Outputs:	cFlag set on errors w/ aReg containing error code
;
; Uses:	OrgiPtr - Pointer to list before it was resized.
;	<ZPTemp - must point to the list.
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

; This is really tricky!  When we resized, the list may have been relocated!
; After we're done moving, calculate the "correction factor" for each address
; (the amount of the relocation + 6 bytes).

	jsr MoveListUp	; Move strings up to make room for
		;  another pointer

	lda OrigPtr	; If the original pointer was null,
	ora OrigPtr+2	;   no correction is needed.
	bne CalculateCorrection

	lda #0000
	tax
	bra StoreCorrection

CalculateCorrection	sec
	lda OrigPtr
	sbc <ZPTemp
	tax
	lda OrigPtr+2
	sbc <ZPTemp+2
	tay

	sec
	txa
	sbc #0006
	tax
	tya
	sbc #0000

StoreCorrection	sta Correction+2
	stx Correction

; Initialize things

	stz DestY
	ldy PointerSize	; Offset to first string

; We need to calculate the address of each string as we go ONLY so we'll
; have the address to the last string (the one just added) when we get to
; the end.

PointerLoop	clc	; Calculcate address of the string
	tya
	adc <ZPTemp
	tax
	lda #0000
	adc <ZPTemp+2

	sty SrcY	; Store the index to the string

; Add correction to each pointer.

	sec
	ldy DestY
	lda [<ZPTemp],y
	sbc Correction
	sta [<ZPTemp],y
	iny
	iny
	lda [<ZPTemp],y
	sbc Correction+2
	sta [<ZPTemp],y

;       If we're just now starting the list with one and only one string,
;       we've gotta do things a bit different.

	lda ScriptListSize
	cmp #0001
	bne SetupIndex

	stz DestY
	lda #0006
	bra SetFirstPointer

SetupIndex	clc	; Set up index for next pointer
	lda DestY
	adc #0012
	cmp PointerSize	; More to go?
	bcs LastPointer
	sec
	sbc #0006
	sta DestY

	ldy SrcY	; Find the next string
	lda [<ZPTemp],y	; Get length byte
	and #$00FF	;  and eliminate extra byte
	clc
	adc SrcY
	tay
	iny	; Add on one for length byte
	iny	;  and two for my flags word
	iny
	bra PointerLoop

; The last string (just added) needs a pointer.

LastPointer	sec
	sbc #0006
	sta DestY

	ldy SrcY	; Find the next string
	lda [<ZPTemp],y	; Get length byte
	and #$00FF	;  and eliminate extra byte
	clc
	adc SrcY
	inc a	; Add on one for length byte
	inc a	;  and two for my flags word
	inc a

SetFirstPointer	clc	; Calculate address of the last string
	adc <ZPTemp
	tax
	lda #0000
	adc <ZPTemp+2

	ldy DestY	; Store the pointer to the last string
	iny
	iny
	sta [<ZPTemp],y
	txa
	dey
	dey
	sta [<ZPTemp],y
	rts

OrigPtr		; Both variables can use same space
Correction	ds.l 1
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
MoveListUp	; (Local subroutine)
;
;	Moves the string portion of the list up to make room
;	for an addition 6-byte entry.
;
; Inputs:	none
;
; Outputs:	none
;
; Uses:	PointerSize - Size of 6-byte entry area preceeding strings
;	<ZPTemp - contains pointer to list
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

; Calculate the beginning address of the strings

	sec
	lda PointerSize
	sbc #0006	; Don't include the one we're adding

	clc
	adc <ZPTemp
	tay
	lda #0000
	adc <ZPTemp+2

	pha	; Starting address of bytes to copy
	phy

; Calculate the destination of the strings (6 bytes higher)

	clc
	lda 1,s
	adc #$0006	; (Entry size)
	tay
	lda 3,s
	adc #$0000

	pha	; Starting address where bytes will
	phy	;   be written

; Calculate the number of bytes to be moved.

	sec
	lda NewSize
	sbc PointerSize
	tay
	lda NewSize+2
	sbc #$0000

	pha	; Number of bytes to be copied
	phy

	ldx #BlockMove
	jsl ToolLocator

; Zero the pointer field just below the strings.

	ldy PointerSize
	dey
	dey
	lda #0000
	sta [<ZPTemp],y
	dey
	dey
	sta [<ZPTemp],y
	dey
	dey
	sta [<ZPTemp],y

	rts
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
UpperCase8bit	; (External entry point)
;
; Description:	convert 8-bit accum to upper case.
;
; Special notes:	Accumulator has already been set to 8 bits by caller.
;	Called with jsl.
;
; Inputs:	8-bit value in accumulator.
;
; Outputs:	8-bit value in accumulator.
;
; Uses:	-
;
; Side Effects:	SEE SPECIAL NOTES.
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
	longA Off
	cmp #'a'	
	bcc @noUpper
	cmp #'z'+1
	bcs @noUpper
	and #$DF	; else ÔaÕ-ÕzÕ -> ÔAÕ-ÕZÕ (zero bit 5)
@noUpper	rtl
	longA On
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
NoCaseCompare8bit	; (External entry point)
;
; Description:	compare 8-bit char in A with 8-bit char in B
;
; Special notes:	Accumulator has already been set to 8 bits by caller.
;	Called with jsl.
;
; Inputs:	8-bit value in accumulator A, 8-bit value in accumulator B.
;
; Outputs:	z flag reflects compare
;
; Uses:	Direct page.  (Does not use X or Y).
;
; Side Effects:	SEE SPECIAL NOTES.
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
	longA Off
	jsl UpperCase8bit
	sta <OurChar
	xba	; get second char into A
	jsl UpperCase8bit
	cmp <OurChar
	rtl
	longA On

	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
Alphabetize	; (External entry point)
;
; Description:	Script List:
;	Locks down the lists, alphabetizes them, resets the list
;	size in ctlData (causing a redraw) and returns pointer and
;	size information.
;
; Inputs:	none
;
; Outputs:	X & Y contains the script list pointer
;	A contains the script list size
;
; Uses:	ScriptFileHdl - Handle to script pathname list
;	ScriptFileHdl - Handle to script pathname list
;	ScriptListHdl - Handle to ScriptName list
;	ScriptListSize - number of members
;
; Side Effects:	Makes a _NewList2 call to change the list size value which
;	causes the list to be redrawn.
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

	phb	; Called by StartUp segment
	phk
	plb

	lda ScriptListHdl+2	; Lock the list down...
	pha
	lda ScriptListHdl
	pha
	ldx #Hlock
	jsl ToolLocator

	lda ScriptFileHdl+2	; Lock the list down...
	pha
	lda ScriptFileHdl
	pha
	ldx #Hlock
	jsl ToolLocator

	jsl GetListPointers

; Alphabetize the list of ScriptName pointers and shuffle the list of
; ScriptFilename records to match.

	pei <ScriptListPtr+2 ; Pointer to list of ScriptName pointers
	pei <ScriptListPtr
	pei <ScriptFilePtr+2 ; Pointer to list of pathname pointers
	pei <ScriptFilePtr
	lda ScriptListSize
	dec a
	pha	; Maximum index (list size - 1)
	jsl InitHeapsort

	pea 0000	; Lo-index = zero
	lda ScriptListSize
	dec a
	pha	; Hi-index = list size - 1
	jsl Sort

; If the window setup is complete, we're adding scripts from a disk that was
; just now inserted.  Resize the list control.

	bit WindowSetupComplete
	bpl AlphabetizeExit

	bit DialogFlag	; Don't do anything if Easy Update
	bmi AlphabetizeExit	;   is currently running.

	pea 0000	;drawPtr     (member drawing routine)
	pea 0000
	pea $FFFF	; listStart   (item number)
	lda <ScriptListPtr+2 ;listRef     (handle)
	pha
	lda <ScriptListPtr
	pha
	pea 0000	; listRefDesc (listRef is a pointer)
	lda ScriptListSize	; listSize
	pha
	lda ScriptListCtlHdl+2 ; ctlHandle
	pha
	lda ScriptListCtlHdl
	pha
	ldx #NewList2
	jsl ToolLocator

; Set up return values and exit.

AlphabetizeExit	ldx <ScriptListPtr
	ldy <ScriptListPtr+2
	lda ScriptListSize

	plb
	rtl
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
AddColon	; (Local subroutine)
;
; Description:	Adds a trailing colon to a string (volume name) so that
;	we can concatenate filenames to it.
;
; Inputs:	none
;
; Outputs:	none
;
; Uses:	<PathBuf - Location of string (volume name)
;	PathLength - String length after colon is added
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

	pea ColonBuf>>16	; Concatenate a colon to the directory
	pea |ColonBuf	;   name.  (The buffer always has a
	pei <PathBuf+2	;   trailing null, so this concatenation
	pei <PathBuf	;   will always fit.)
	pei <PathBuf+2
	pei <PathBuf
	jsl GStrConcat

	ldy #0002
	lda [<PathBuf],y	;   and the pathname's new length word
	sta PathLength

	rts
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
CheckEntry	; (Local subroutine)
;
; Description:	Checks the current directory entry in Get_Dir_Entry
;	parameter table and then opens the file and reads in
;	its header to see if it is a legitimate script file
;	that is compatible with the current Installer.
;
;	NOTE:  This routine appends the script filename onto
;	       <PathBuf (the directory's full pathname).  Be
;	       sure to restore the directory's length byte
;	       before calling this routine again!
;
; Inputs:	none
;
; Outputs:	c-flag clear: no errors
;	c-flag set: error occurred or file is incompatible or not
;	            a script file.  A-reg contains error code, if
;	            any.
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

; First check the filetype and auxtype.

	lda File_Type	; Is it a script file?
	ldx Aux_Type
	cmp #OldScriptType	; Is it an old TXT file?
	beq FoundOne
	cmp #NewScriptType
	bne @0
	cpx #ScriptAux
	beq FoundOne
@0	brl NotAScript

; We must OPEN the file and check its header to see if it is really a script file.

FoundOne	pea NameBuffer>>16	; Concatenate filename to directory name
	pea |NameBuffer
	pei <PathBuf+2
	pei <PathBuf
	pei <PathBuf+2
	pei <PathBuf
	jsl GStrConcat
	bcs @0
	ldx <PathBuf
	ldy <PathBuf+2
	bra OpenTheFile
@0
	pha
	pha
	pei <PathBuf+2
	pei <PathBuf
	jsl GStrResize
	plx
	stx <PathBuf
	ply
	sty <PathBuf+2
	bcc OpenTheFile

	lda PathLength	; Oops, the concatenation failed the
	ldy #0002	;   first time.  Restore the original
	sta [<PathBuf],y	;   length word and try again.
	bra FoundOne

;       Open the file and read in the header.

OpenTheFile	inx	; Adjust buffer ptr to point to
	bne @00	;   class 1 input string.
	iny
@00	inx
	bne @000
	iny

@000	stx <ZPTemp	; Store the pathname pointer
	sty <ZPTemp+2

	jsr ReadScriptHeader
	rts
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
ReadScriptHeader	; (Local subroutine)
;
;	Reads the header of a suspected script file and checks it
;	to verify that it is truely a script and compatible with
;	this version of the Installer.
;
; Inputs:	X & Y contain pointer to the full pathname
;
; Outputs:	cFlag clear if it is a compatible script.
;	cFlag set if it is incompatible or not a script.
;	Sets oScriptNameField to offset of ScriptNameField.
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
 
	stx Open_Path
	sty Open_Path+2

	jsl GSOS	; Open the script file
	dc.w Open
	dc.l OpenParms
	bcs NotAScript

	lda Open_Ref_Num	; Distribute the reference number
	sta Read_Ref_Num
	sta Close_Ref_Num

	jsl GSOS
	dc.w Read
	dc.l ReadParms
	pha	; Save the error code

	jsl GSOS
	dc.w Close
	dc.l CloseParms

	pla
	bne NotAScript

;       Check to see if it is REALLY a script file

	lda Read_Buffer	; Does it begin:
	cmp #'CS'	;  'SCRIPT<return><return>' ?
	bne NotAScript
	lda Read_Buffer+2
	cmp #'IR'
	bne NotAScript
	lda Read_Buffer+4
	cmp #'TP'
	bne NotAScript
	lda Read_Buffer+6
	cmp #$0D0D
	bne NotAScript

; We've found a script file.  Will it run with this version of the Installer?

FoundScript	ldy #ScriptVerField
	lda Read_Buffer,y
	iny
	iny
	ldx Read_Buffer,y

	cmp cVersion	; 1.00 ?
	bne Next1
	cpx cVersion+2
	beq GoodScript
Next1
	cmp cVersion+4	; 1.10 ?
	bne Next2
	cpx cVersion+6
	beq GoodScript
Next2
	cmp cVersion+8	; 2.00 ?
	bne NotAScript
	cpx cVersion+10
	bne NotAScript

; If it is a compatible script file, 
; find offset of ScriptName field and store to oScriptNameField;

GoodScript
	ldy #ScriptFlagField+2 ; past fewest ScriptFlags (2)
FindNameLoop	lda Read_Buffer,y
	iny
	cmp #ScriptFlagEnd	; check for 2 trailing returnChars
	bne FindNameLoop
	iny	; point to char past returnChars (NameField)
	sty oScriptNameField  ; loc of ScriptName field

; then clear the cFlag and return.

	clc
	rts

; If it is incompatible or not a script file, set the cFlag and return.

NotAScript	sec
	rts
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
GetScriptNameLength	; (Local subroutine)
;
;	Determines the length of the ScriptName found in the
;	header of the script file (in the Read_Buffer).
;
; Inputs:	none
;
; Outputs:	A-reg contains length
;
; Uses:	Read_Buffer - contains script header and then some.
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

	sep #$0020
	LongA Off
	ldx #0000	; Initialize character counter
	ldy oScriptNameField ; Posn of ScriptName field set by ReadScriptHeader
LengthLoop	lda Read_Buffer,y	; Get a character
	cmp #Return	; Is it the end-of-name marker?
	beq LengthDone
	iny	; Increment index and...
	inx	;   ...character counter
	bra LengthLoop
LengthDone
	LongA On
	rep #$0020

	txa	; Store the length
	rts
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
CheckMsgCenter	; (External Entry Point)
;
;	A subroutine to query the message center and get a list
;	of pathnames.  If "OPEN" is requested on one or more
;	pathnames, we guarantee that they are included in the
;	script lists and are marked "selected" upon entry into
;	the customized installation dialog.
;
;       Inputs:	None
;
;      Outputs:	cFlag: set = error,      A-reg: contains error code.
;	       clear = no error, A-reg: 0000 = no OPEN message.
;		            FFFF = OPEN Message
;
; What does it mean?  If cFlag set, error returned (probably memory error).
;	  if cFlag clear & A-reg=zero, go to the automatic
;	     installation dialog.
;	  If cFlag clear & A-reg=minus, go to the customized
;	     installation dialog and but do NOT hilite first
;	     entry.
;
;         Uses:	<ZPTemp
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

	phb
	phk
	plb

; If messageHandle is null, there is no message.

	lda messageHandle
	ora messageHandle
	beq MsgNoErrorExit1

; Check the size of the messageHandle segment.  If it's still zero, there
; is no message.

	pha
	pha
	lda messageHandle+2
	pha
	lda messageHandle
	pha
	ldx #GetHandleSize
	jsl ToolLocator
	plx
	ply
	bne OpenRequest
	cpx #0000
	bne GetPointer
MsgNoErrorExit1	brl MsgNoErrorExit

GetPointer	lda messageHandle+2
	pha
	lda messageHandle
	pha
	jsl Dereference
	pla
	sta <ZPTemp
	pla
	sta <ZPTemp+2

; The user asked us to OPEN the selected scripts.  The message format is:

;   dc.l nextHandle          ; Handle of next message
;   dc.w messageType         ; must be 0001 (get information)
;   dc.w messageData         ; 0000=open the files, 0001=print the files
;   dc.b <length>'string(1)' ; 1st full pathname (Pascal string)
;     :      :       :
;   dc.b <length>'string(n)' ; nth full pathname (Pascal string)
;   dc.b 00	         ; null Pascal string

OpenRequest	jsl GetListPointers	; Lists aren't locked yet

	ldy #0007	; Offset to the first string -1
	sty SrcY

	stz StringCounter

; Calculate the offset in the ScriptFileList to the beginning of the strings.

	lda ScriptListSize	; Get the number of members
	asl a	; X2 = X2         Multiply by entry size (6)
	clc
	adc ScriptListSize	; +1 = X3
	asl a	; X2 = X6
	sta StringBegin

; We can convert each string into a GS/OS Class 1 input string because we
; are always finished with the data preceeding each string as we work on
; each string.

StringSearchLoop	ldy StringBegin
	sty DestY

	ldy SrcY	; Get the index -1 to the Pascal string
	lda [<ZPTemp],y	; Get length byte & preceeding byte
	and #$FF00	; Clear the preceeding byte
	xba	; Exchange them to form a length word
	sta [<ZPTemp],y	; and store it back.

*** - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ***
***     NOTE:  The message center strings contain slashes (ASCII $2F)     ***
***            as separator characters!  Everything in the Installer      ***
***            deals with colons (ASCII $3A).  So, everytime we find a    ***
***            slash, we need to replace it with a colon.                 ***
***			              ***
***            ALSO, the comparison must be case insensitive!             ***
*** - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ***

	tax	; length: initialize character counter
	iny	; move index past length word
	iny

	sep #$0020
	LongA Off

SlashLoop	lda [<ZPTemp],y	; Get a character from MessageCenter
	cmp #'/'	; replace slashes with colons
	bne @NotSlashSep	; (messages from messageCenter have slashes)
	lda #SeparatorChar
	sta [<ZPTemp],y	; Store colon back to the MessageCenter
@NotSlashSep	iny
	dex
	bne SlashLoop

	LongA On
	rep #$0020

; Go through the ScriptFileList looking for a matching string.

StringCompareLoop

;       First check the length words.  If they don't match, we don't need
;       to check any further.

	ldy SrcY
	sty YSrc
	lda [<ZPTemp],y	; Get lengthWord from MessageCenter
	ldy DestY
	sty YDest
	cmp [<ScriptFilePtr],y ; Compare lengthWord from pathname list
	bne NextString1

;       The length words match, so start checking the strings byte by byte.

	sta StringLength	; Save the length
	inc ySrc	; Move past length word
	inc ySrc
	inc yDest
	inc yDest
	ldx StringLength	; Initialize character counter

	sep #$0020
	LongA Off

StringCompareLoop1
	ldy ySrc
	lda [<ZPTemp],y	; Get a character from MessageCenter

	jsl UpperCase8bit	; If char is lower case, convert it to upper case
	sta Character

	ldy yDest	; Get a character from script pathname
	lda [<ScriptFilePtr],y
	jsl UpperCase8bit	; If char is lower case, convert it to upper case
	cmp Character	; Compare the characters
	bne NextString	; Didn't match.

	rep #$0020	; 16-bit memory mode for increments
	inc ySrc	; Character matched.  Adjust offsets.
	inc yDest
	sep #$0020	; and back to 8-bit accum/mem before anyone notices

	dex	; decr character counter and check for end of string.
	bne StringCompareLoop1

;       The strings matched!  We don't need to add this item to the list,
;       but we do want to mark it as "selected"!  Update SrcY to point to
;       the next messageCenter string if there is one.

	LongA On
	rep #$0020

;               Identify the item that matched and mark it "selected".

	lda StringCounter	; This contains item number -1
	jsr MarkAsSelected
NextMessage
	clc
	ldy SrcY
	lda [<ZPTemp],y	; Get the length word
	adc SrcY	; Add on the previous offset
	inc a	; Add one (not two) to position
	sta SrcY	;  us at next string -1

	tay
	iny
	lda [<ZPTemp],y	; Get next length byte
	and #$00FF
	bne @1	; If itÕs non-null, continue
	lda #$FFFF	; If itÕs null, no more message strings
	brl MsgNoErrorExit	;   so, indicate OPEN message found
@1		;   and processed satisfactorily.
	stz StringCounter
	brl StringSearchLoop

;       The string didn't match.  Update DestY to point to the next string
;       in the ScriptFileList and reset ySrc back to the beginning of the
;       current messageCenter string.

NextString
	LongA On
	rep #$0020
NextString1
	clc
	ldy DestY
	lda [<ScriptFilePtr],y ; Get length word
	adc DestY	;   Add on the previous offset
	inc a	; Add two for length word
	inc a
	inc a	; Add one for trailing null
	sta DestY

	ldy SrcY
	sty ySrc

	inc StringCounter
	lda StringCounter	; Have we checked against all strings?
	cmp ScriptListSize
	beq NoMatch
	brl StringCompareLoop

; The string from the messageCenter was not found in the ScriptFileList.
; We must open the file, extract it's ScriptName and add ScriptName and its
; full pathname to the respective lists.  Then check for more messages

NoMatch

;       NOTE:  ReadScriptHeader requires a pointer to the full pathname as a
;              GS/OS Class 1 input string in X and Y.

	clc
	lda <ZPTemp
	adc SrcY
	pha
	tax
	lda <ZPTemp+2
	adc #0000
	pha
	tay

;       NOTE:  AddToList requires a pointer to the full pathname as a GS/OS
;              Class 1 output string in <PathBuf, a dPage location.

	txa	; Simulate a GStr by backing up the
	bne @1	;   pointer a couple of bytes.
	dey
@1	dex
	bne @2
	dey
@2	dex
	stx <PathBuf
	sty <PathBuf+2

	lda #$FFFF	; The GStr buffer size must "appear"
	sta [<PathBuf]	;   large enough to hold the GStr.

	ply
	plx

;       NOTE:  We must preserve our SrcY and pointer in <ZPTemp and restore
;              them later.  (I know--not good programming practice!!!)

	lda SrcY	; NOTE:  We must preserve our SrcY and
	pha	;   pointer in <ZPTemp, which will get
	pei <ZPTemp+2	;   altered below, so we can restore.
	pei <ZPTemp	;   (Lousy programming--I know!!!)

	jsr ReadScriptHeader
	bcs NextMessage1

; The script to be OPENed is indeed a legitimate and compatible script.

	jsr AddToList

	lda ScriptListSize
	dec a
	jsr MarkAsSelected
NextMessage1
	pla	; Restore the stuff we saved above.
	sta <ZPTemp
	pla
	sta <ZPTemp+2
	ply
	sty SrcY

	brl NextMessage

; Exit routines.  Don't forget to dipose of the messageCenter data memory.

MsgNoErrorExit	clc

MsgErrorExit	pha
	php

	lda MessageHandle+2
	pha
	lda MessageHandle
	pha
	ldx #DisposeHandle
	jsl ToolLocator

	plp
	pla
	plb
	rtl
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
GetListPointers	; (Internal entry point)
;
;	Dereferences the handle to both lists and placed the
;	pointers in the proper dPage locations
;
; GetScriptFilePtr	Dereferences the handle to the ScriptFileList only.
;
; GetScriptListPtr	Dereferences the handle to the ScriptNameList only.
;
; Inputs:	none
;
; Outputs:	none
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
;;;	phb
;;;	phk
;;;	plb

	jsr GetScriptFilePtr
	jsr GetScriptListPtr

;;;	plb
	rtl

GetScriptFilePtr
	lda ScriptFileHdl+2
	pha
	lda ScriptFileHdl
	pha
	jsl Dereference
	pla
	sta <ScriptFilePtr
	pla
	sta <ScriptFilePtr+2
	rts
GetScriptListPtr
	lda ScriptListHdl+2
	pha
	lda ScriptListHdl
	pha
	jsl Dereference
	pla
	sta <ScriptListPtr
	pla
	sta <ScriptListPtr+2
	rts
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
MarkAsSelected	; (Local subroutine)
;
;	Marks the specifiec item as selected in the ScriptList
;
; Inputs:	A-reg: Item number -1
;
; Outputs:	none
;
; Uses:	<ScriptListPtr - Pointer to the script list
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

	pha
	clc	; Multiply by 6
	asl a	;   ( X2 = X2 )
	adc 1,s	;   ( +1 = X3 )
	asl a	;   ( X2 = X6 )
	tay
	pla

	iny	; We now have the index to the entry
	iny	; The flags-byte is four bytes further
	iny
	iny

	lda [<ScriptListPtr],y ; Get the flags-byte + next byte
	ora #%0000000010000000 ; Mark the proper bit
	sta [<ScriptListPtr],y ; And, store it back in the list

	rts
	Eject
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
MultiplyBy6	; (Local subroutine)
;
; Description:	Multiplies the value in the A-reg by six and returns
;	the resulting value in the A-reg
;
; Inputs:	A-reg contains value to be multiplied by six.
;
; Outputs:	A-reg contains the result of the multiplication.
; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
	pha
	asl a
	clc
	adc 1,s
	asl a
	ply
	rts
	Eject
;................................................................

; OPEN call parameters

OpenParms	dc.w 0002	; pCount
Open_Ref_Num	ds.w 1	; Reference number
Open_Path	ds.l 1	; Pathname pointer

; READ call parameters

ReadParms	dc.w 0004	; pCount
Read_Ref_Num	ds.w 1	; Reference number
	dc.l Read_Buffer	; Data buffer pointer
	dc.l ReadBufSize	; Request count
	ds.l 1	; Transfer count

Read_Buffer	ds.b $800
ReadBufSize	equ *-Read_Buffer

; CLOSE call parameters

CloseParms	dc.w 0001	; pCount
Close_Ref_Num	ds.w 1	; Reference number

; Miscellaneous

PathLength	ds.w 1	; Length of directory's full pathname
MemorySize	ds.l 1	; Size of the script list buffer
OldMemorySize	ds.l 1	; Previous size of script list buffer
OldFileSize	ds.l 1	; Previous size of script filename buffer
OurCounter	ds.w 1	; Loop counter

ScriptNameLen	ds.w 1	; Length of current	ScriptName string

DirPathLength	ds.w 1	; Length of the directory's full pathname

ScriptIndex	ds.l 1
NewSize	ds.l 1

SrcY	ds.w 1
DestY	ds.w 1
ySrc	ds.w 1
yDest	ds.w 1

StringLength	ds.w 1
StringCounter	ds.w 1
StringBegin	ds.w 1
Character	ds.b 1
	EndP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/Installer/Version.Macros b/IIGS.601.SRC/A.U.G/Installer/Version.Macros
new file mode 100644
index 0000000..fa3a1b8
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/Installer/Version.Macros
@@ -0,0 +1 @@
+******************************************
*
*  Apple IIgs Installer
*
*  Date and Version
*
******************************************

	MACRO
&lab	InstallerVersion
	dc.b @WXYZ-*-1
	dc.b 'v2.1    '
@WXYZ
	MEND


	MACRO
&lab	InstallerDate
	dc.b ' 2 Apr 93'
;;;	SystemDate
	MEND

	MACRO
&lab	SYSTEMDATE
&lab
	LCLC &EIB	; declare a temporary var to hold current string setting
&EIB	SETC &SETTING('STRING') ; put	current string	setting into temp
	STRING ASIS	; Set string type to ASIS.
	DC.B '&SysDate' ; make the string
	STRING &EIB	; restore orig	string settings
	MEND
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/InstallerScripts/ADV.DISK.UTIL b/IIGS.601.SRC/A.U.G/InstallerScripts/ADV.DISK.UTIL
new file mode 100644
index 0000000..5aff1c6
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/InstallerScripts/ADV.DISK.UTIL
@@ -0,0 +1 @@
+SCRIPT

V2.00

XR2

Application: Adv. Disk Utility
The script ÒApplication: Adv. Disk UtilityÓ installs the files necessary to update the Advanced Disk Utility program.  These files will be installed in the selected folder.\\
:SystemTools1~*

~:::Workspace:::
1



Adv.Disk.Util
Adv.Disk.Util
~~
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/InstallerScripts/APPLE.MIDI b/IIGS.601.SRC/A.U.G/InstallerScripts/APPLE.MIDI
new file mode 100644
index 0000000..53e4a54
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/InstallerScripts/APPLE.MIDI
@@ -0,0 +1 @@
+SCRIPT

V2.00

RR2

Media: Apple Midi
The script ÒMedia: Apple MidiÓ installs the files necessary for you to use Apple MIDI (Musical Instrument Digital Interface).  The selected disk must be a startup disk.\\
:SystemTools1~*

~:::Workspace:::
1



System:Tools:Tool032
System:Tools:Tool032
~:::Workspace:::
1



System:Drivers:Apple.Midi
System:Drivers:Apple.Midi
~~
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/InstallerScripts/APPLEDISK5.25 b/IIGS.601.SRC/A.U.G/InstallerScripts/APPLEDISK5.25
new file mode 100644
index 0000000..4911505
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/InstallerScripts/APPLEDISK5.25
@@ -0,0 +1 @@
+SCRIPT

V2.00

RR2

Drive: Apple Disk 5.25
The script ÒDrive: Apple Disk 5.25Ó installs the files necessary for you to use Apple 5.25 drives.  The selected disk must be a startup disk.\\
:Install~*

~:::Workspace:::
1



System:Drivers:AppleDisk5.25
System:Drivers:AppleDisk5.25
~~
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/InstallerScripts/APPLESHARE b/IIGS.601.SRC/A.U.G/InstallerScripts/APPLESHARE
new file mode 100644
index 0000000..07f9d91
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/InstallerScripts/APPLESHARE
@@ -0,0 +1 @@
+SCRIPT

V2.00

RR2

Network: AppleShare
The script ÒNetwork: AppleShareÓ installs the files necessary for you to use AppleShare on your AppleTalk network system.  The selected disk must be a startup disk.\\
:SystemTools2~*

~:::Workspace:::
4




System:System.Setup:ATPatch
~:::Workspace:::
4




System:System.Setup:ATROM
~:::Workspace:::
4




System:System.Setup:ATSetup
~:::Workspace:::
4




System:System.Setup:ATStart
~:::Workspace:::
4




System:System.Setup:PFILoad
~:::Workspace:::
4




System:System.Setup:SPLoad
~:::Workspace:::
3




System:System.Setup:AppleShare.Prep
~:::Workspace:::
1



System:Drivers:ATalk
System:Drivers:ATalk
~:::Workspace:::
1



System:Drivers:SCC.Manager
System:Drivers:SCC.Manager
~:::Workspace:::
1



System:Drivers:ATP1.ATROM
System:Drivers:ATP1.ATROM
~:::Workspace:::
1



System:Drivers:ATP2.ATRAM
System:Drivers:ATP2.ATRAM
~:::Workspace:::
1



System:System.Setup:ATResponder
System:System.Setup:ATResponder
~:::Workspace:::
1



System:System.Setup:ATInit
System:System.Setup:ATInit
~:::Workspace:::
1



System:System.Setup:EasyMount
System:System.Setup:EasyMount
~:::Workspace:::
1



System:FSTs:AppleShare.FST
System:FSTs:AppleShare.FST
~:::Workspace:::
1



System:CDevs:AppleShare
System:CDevs:AppleShare
~:::Workspace:::
1



System:CDevs:Network
System:CDevs:Network
~:::Workspace:::
1



System:CDevs:FolderPriv
System:CDevs:FolderPriv
~~
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/InstallerScripts/ATIMAGEWRITER b/IIGS.601.SRC/A.U.G/InstallerScripts/ATIMAGEWRITER
new file mode 100644
index 0000000..bfe24e6
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/InstallerScripts/ATIMAGEWRITER
@@ -0,0 +1 @@
+SCRIPT

V2.00

RR2

Printer: ATalk ImageWriter
The script ÒPrinter: ATalk ImageWriterÓ installs the files necessary for you to use an ImageWriter II printer that's part of your AppleTalk network system.  The selected disk must be a startup disk.\\
:SystemTools2~*

~:::Workspace:::
3




System:CDevs:ATIWriter
~:::Workspace:::
4




System:System.Setup:ATPatch
~:::Workspace:::
4




System:System.Setup:ATROM
~:::Workspace:::
4




System:System.Setup:ATSetup
~:::Workspace:::
4




System:System.Setup:ATStart
~:::Workspace:::
4




System:System.Setup:PFILoad
~:::Workspace:::
4




System:System.Setup:SPLoad
~:::Workspace:::
1



:SystemTools1:System:Drivers:ImageWriter
System:Drivers:ImageWriter
~:::Workspace:::
1



System:Drivers:AppleTalk
System:Drivers:AppleTalk
~:::Workspace:::
1



System:CDevs:NetPrinter
System:CDevs:NetPrinter
~:::Workspace:::
2



System:Drivers:ATalk
System:Drivers:ATalk
~:::Workspace:::
2



System:Drivers:SCC.Manager
System:Drivers:SCC.Manager
~:::Workspace:::
2



System:Drivers:ATP1.ATROM
System:Drivers:ATP1.ATROM
~:::Workspace:::
2



System:Drivers:ATP2.ATRAM
System:Drivers:ATP2.ATRAM
~:::Workspace:::
2



System:System.Setup:ATResponder
System:System.Setup:ATResponder
~:::Workspace:::
2



System:System.Setup:ATInit
System:System.Setup:ATInit
~~
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/InstallerScripts/ATIMAGEWRITERLQ b/IIGS.601.SRC/A.U.G/InstallerScripts/ATIMAGEWRITERLQ
new file mode 100644
index 0000000..b516948
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/InstallerScripts/ATIMAGEWRITERLQ
@@ -0,0 +1 @@
+SCRIPT

V2.00

RR2

Printer: ATalk ImageWriter LQ
The script ÒPrinter: ATalk ImageWriter LQÓ installs the files necessary for you to use an ImageWriter LQ printer that's part of your AppleTalk network system.  The selected disk must be a startup disk.\\
:SystemTools2~*

~:::Workspace:::
4




System:System.Setup:ATPatch
~:::Workspace:::
4




System:System.Setup:ATROM
~:::Workspace:::
4




System:System.Setup:ATSetup
~:::Workspace:::
4




System:System.Setup:ATStart
~:::Workspace:::
4




System:System.Setup:PFILoad
~:::Workspace:::
4




System:System.Setup:SPLoad
~:::Workspace:::
3




System:CDevs:ATLQIWriter
~:::Workspace:::
2



System:Drivers:ATalk
System:Drivers:ATalk
~:::Workspace:::
2



System:Drivers:SCC.Manager
System:Drivers:SCC.Manager
~:::Workspace:::
2



System:Drivers:ATP1.ATROM
System:Drivers:ATP1.ATROM
~:::Workspace:::
2



System:Drivers:ATP2.ATRAM
System:Drivers:ATP2.ATRAM
~:::Workspace:::
2



System:System.Setup:ATResponder
System:System.Setup:ATResponder
~:::Workspace:::
2



System:System.Setup:ATInit
System:System.Setup:ATInit
~:::Workspace:::
1



System:Drivers:AppleTalk
System:Drivers:AppleTalk
~:::Workspace:::
1



System:CDevs:NetPrinter
System:CDevs:NetPrinter
~:::Workspace:::
1



:SystemTools1:System:Drivers:ImageWriter.LQ
System:Drivers:ImageWriter.LQ
~~
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/InstallerScripts/All.Drivers b/IIGS.601.SRC/A.U.G/InstallerScripts/All.Drivers
new file mode 100644
index 0000000..3b1b95f
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/InstallerScripts/All.Drivers
@@ -0,0 +1 @@
+SCRIPT

V2.00

RR2

All Drivers
This script installs the files necessary for you to update all drivers.  The selected disk must be a startup disk.\\
:SCSI.UTILITIES~*
 This is the Installer script necessary to move the drivers files from :SCSI.UTILITIES to the userÕs startup disk.
~:::Workspace:::
2



AppleIIGS.Files:Drivers:SCSI.Manager
System:Drivers:SCSI.Manager
~:::Workspace:::
1



AppleIIGS.Files:Drivers:SCSICD.DRIVER
System:Drivers:SCSICD.DRIVER
~:::Workspace:::
1



AppleIIGS.Files:Desk.Accs:CDRemote
System:Desk.Accs:CDRemote
~:::Workspace:::
1



AppleIIGS.Files:Drivers:SCSIHD.DRIVER
System:Drivers:SCSIHD.DRIVER
~:::Workspace:::
2



AppleIIGS.Files:System:Start.GS.OS
System:Start.GS.OS
~:::Workspace:::
2



AppleIIGS.Files:System:GS.OS
System:GS.OS
~:::Workspace:::
2



AppleIIGS.Files:System:GS.OS.Dev
System:GS.OS.Dev
~~
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/InstallerScripts/Animation.Tool b/IIGS.601.SRC/A.U.G/InstallerScripts/Animation.Tool
new file mode 100644
index 0000000..30a8139
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/InstallerScripts/Animation.Tool
@@ -0,0 +1 @@
+SCRIPT

V2.00

RR2

Tool set: Animation
This script installs the Animation Tool Set (Tool037).  The selected disk must be a startup disk.\\
:SystemTools1~*

~:::Workspace:::
1



System:Tools:Tool037
System:Tools:Tool037
~~
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/InstallerScripts/Apple.Bowl b/IIGS.601.SRC/A.U.G/InstallerScripts/Apple.Bowl
new file mode 100644
index 0000000..9326153
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/InstallerScripts/Apple.Bowl
@@ -0,0 +1 @@
+SCRIPT

V2.00

XR2

Application: Apple Bowl
The script ÒApplication: Apple BowlÓ installs the Apple Bowl game in the selected folder.\\
:Fonts~*

~:::Workspace:::
1



Goodies:Apple.Bowl
Apple.Bowl
~~
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/InstallerScripts/AppleShare3.5 b/IIGS.601.SRC/A.U.G/InstallerScripts/AppleShare3.5
new file mode 100644
index 0000000..149683c
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/InstallerScripts/AppleShare3.5
@@ -0,0 +1 @@
+SCRIPT

V2.00

Rr2B

Network: AppleShare, 3.5" Disk
WARNING:  The script ÒNetwork: AppleShare, 3.5" DiskÓ makes an 800K or 1440K disk into a Network Startup disk.  Files will be removed.  Install any printer driver you want (only one will fit on the 800K disk).

Do not install this on your only copy of the system disk.\\
:Install~*

~:::Workspace:::
3




System:P16
~:::Workspace:::
3




System:Finder
~:::Workspace:::
3




System:Drivers:Passport
~:::Workspace:::
3




System:Drivers:AppleMidi
~:::Workspace:::
3




Dialog.Icons
~:::Workspace:::
3




Finder.Def
~:::Workspace:::
3




System:Launcher
~:::Workspace:::
3




System:Desk.Accs:VideoMix.NDA
~:::Workspace:::
3




System:System.Setup:Sound.Init
~:::Workspace:::
3




System:Drivers:LaserPrep
~:::Workspace:::
3




System:Fonts:Font.Lists
~:::Workspace:::
3




System:Desk.Accs:Cache.NDA
~:::Workspace:::
3




System:Desk.Accs:CtlPanel.NDA
~:::Workspace:::
3




System:CDevs:Alphabet
~:::Workspace:::
3




System:CDevs:General
~:::Workspace:::
3




System:CDevs:Keyboard
~:::Workspace:::
3




System:CDevs:Modem
~:::Workspace:::
3




System:CDevs:Monitor
~:::Workspace:::
3




System:CDevs:Mouse
~:::Workspace:::
3




System:CDevs:Printer
~:::Workspace:::
3




System:CDevs:Slots
~:::Workspace:::
3




System:CDevs:Sound
~:::Workspace:::
3




System:CDevs:Time
~:::Workspace:::
3




System:CDevs:DirectConnect
~:::Workspace:::
3




System:CDevs:NetPrinter
~:::Workspace:::
3




System:Fonts:Courier.10
~:::Workspace:::
3




System:Fonts:Courier.12
~:::Workspace:::
3




System:Fonts:Geneva.10
~:::Workspace:::
3




System:Fonts:Helvetica.10
~:::Workspace:::
3




System:Fonts:Helvetica.12
~:::Workspace:::
3




System:Fonts:Times.10
~:::Workspace:::
3




System:Fonts:Times.12
~:::Workspace:::
3




System:Fonts:Venice.14
~:::Workspace:::
3




System:Fonts:FastFont
~:::Workspace:::
3




System:Tools:Tool032
~:::Workspace:::
3




System:Drivers:ImageWriter
~:::Workspace:::
3




System:Drivers:Printer
~:::Workspace:::
3




System:Drivers:Modem
~:::Workspace:::
3




Icons:Finder.Icons.X
~:::Workspace:::
3




Icons:Finder.Icons
~:::Workspace:::
3




Icons:FType.Main
~:::Workspace:::
3




Icons:FType.Aux
~:::Workspace:::
3




BASIC.System
~:::Workspace:::
3




BASIC.Launcher
~:::Workspace:::
3




System:System.Setup:ATPatch
~:::Workspace:::
3




System:System.Setup:ATROM
~:::Workspace:::
3




System:System.Setup:ATSetup
~:::Workspace:::
3




System:System.Setup:ATStart
~:::Workspace:::
3




System:System.Setup:PFILoad
~:::Workspace:::
3




System:System.Setup:SPLoad
~:::Workspace:::
3




System:System.Setup:AppleShare.Prep
~:::Workspace:::
3




System:System.Setup:CDev.Init
~:::Workspace:::
3




System:Drivers:SCSI.Driver
~:::Workspace:::
3




System:Drivers:IWEM
~:::Workspace:::
3




System:ExpressLoad
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Drivers:Apple.MIDI
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Drivers:Card6850.MIDI
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Drivers:ImageWriter.LQ
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Drivers:Epson
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Drivers:Parallel.Card
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Drivers:LaserWriter
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Drivers:AppleTalk
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Drivers:UniDisk3.5
~:::Workspace:::
4
D


01 Jan 89 00:00

System:FSTS:HS.FST
~:::Workspace:::
4
D


01 Jan 89 00:00

System:System.Setup:ATResponder
~:::Workspace:::
4
D


01 Jan 89 00:00

AppleTalk:Chooser:Chooser.0
~:::Workspace:::
4
D


01 Jan 89 00:00

AppleTalk:Chooser:Chooser1.OVR
~:::Workspace:::
4
D


01 Jan 89 00:00

AppleTalk:Chooser:Chooser2.OVR
~:::Workspace:::
4
D


01 Jan 89 00:00

AppleTalk:Chooser:Chooser3.OVR
~:::Workspace:::
4
D


01 Jan 89 00:00

AppleTalk:Chooser:Chooser4.OVR
~:::Workspace:::
4
D


01 Jan 89 00:00

AppleTalk:Chooser:Chooser5.OVR
~:::Workspace:::
4
D


01 Jan 89 00:00

AppleTalk:Chooser:Chooser.II
~:::Workspace:::
4
D


01 Jan 89 00:00

AppleTalk:Chooser:MTXABS.0
~:::Workspace:::
4
D


01 Jan 89 00:00

System:CDevs:Namer
~:::Workspace:::
4
D


01 Jan 89 00:00

Adv.Disk.Util
~:::Workspace:::
1



ProDOS
ProDOS
~:::Workspace:::
1



System:Start.GS.OS
System:Start.GS.OS
~:::Workspace:::
1



System:GS.OS
System:GS.OS
~:::Workspace:::
1



System:Error.Msg
System:Error.Msg
~:::Workspace:::
1



System:GS.OS.Dev
System:GS.OS.Dev
~:::Workspace:::
1



System:FSTs:Pro.FST
System:FSTs:Pro.FST
~:::Workspace:::
1



System:Start
System:Start
~:::Workspace:::
1



System:Drivers:AppleDisk3.5
System:Drivers:AppleDisk3.5
~:::Workspace:::
1



System:Drivers:Console.Driver
System:Drivers:Console.Driver
~:::Workspace:::
1



System:FSTs:Char.FST
System:FSTs:Char.FST
~:::Workspace:::
1



System:System.Setup:Tool.Setup
System:System.Setup:Tool.Setup
~:::Workspace:::
1



System:System.Setup:TS2
System:System.Setup:TS2
~:::Workspace:::
1



System:System.Setup:TS3
System:System.Setup:TS3
~:::Workspace:::
1



System:System.Setup:Resource.Mgr
System:System.Setup:Resource.Mgr
~:::Workspace:::
1



System:System.Setup:Sys.Resources
System:System.Setup:Sys.Resources
~:::Workspace:::
1



Icons:FType.Apple
Icons:FType.Apple
~:::Workspace:::
1



System:Desk.Accs:ControlPanel
System:Desk.Accs:ControlPanel
~:::Workspace:::
1



System:Tools:Tool014
System:Tools:Tool014
~:::Workspace:::
1



System:Tools:Tool015
System:Tools:Tool015
~:::Workspace:::
1



System:Tools:Tool016
System:Tools:Tool016
~:::Workspace:::
1



System:Tools:Tool018
System:Tools:Tool018
~:::Workspace:::
1



System:Tools:Tool019
System:Tools:Tool019
~:::Workspace:::
1



System:Tools:Tool020
System:Tools:Tool020
~:::Workspace:::
1



System:Tools:Tool021
System:Tools:Tool021
~:::Workspace:::
1



System:Tools:Tool022
System:Tools:Tool022
~:::Workspace:::
1



System:Tools:Tool027
System:Tools:Tool027
~:::Workspace:::
1



System:Tools:Tool028
System:Tools:Tool028
~:::Workspace:::
1



System:CDevs:SetStart
System:CDevs:SetStart
~:::Workspace:::
1



System:CDevs:General
System:CDevs:General
~:::Workspace:::
1



System:Tools:Tool034
System:Tools:Tool034
~:::Workspace:::
1



System:Tools:Tool023
System:Tools:Tool023
~:::Workspace:::
1



System:P8
System:P8
~:::Workspace:::
1



:SystemTools1:Basic.System
Basic.System
~:::Workspace:::
1



:SystemTools1:System:Fonts:Geneva.10
System:Fonts:Geneva.10
~:::Workspace:::
1



:SystemTools1:System:Fonts:Courier.10
System:Fonts:Courier.10
~:::Workspace:::
1



:SystemTools1:System:Fonts:Times.10
System:Fonts:Times.10
~:::Workspace:::
1



:SystemTools1:System:Fonts:Helvetica.10
System:Fonts:Helvetica.10
~:::Workspace:::
1



:SystemTools2:System:Drivers:ATalk
System:Drivers:ATalk
~:::Workspace:::
1



:SystemTools2:System:Drivers:SCC.Manager
System:Drivers:SCC.Manager
~:::Workspace:::
1



:SystemTools2:System:Drivers:ATP1.ATROM
System:Drivers:ATP1.ATROM
~:::Workspace:::
1



:SystemTools2:System:Drivers:ATP2.ATRAM
System:Drivers:ATP2.ATRAM
~:::Workspace:::
1



:SystemTools2:System:System.Setup:ATResponder
System:System.Setup:ATResponder
~:::Workspace:::
1



:SystemTools2:System:System.Setup:ATInit
System:System.Setup:ATInit
~:::Workspace:::
1



:SystemTools2:System:FSTs:AppleShare.FST
System:FSTs:AppleShare.FST
~:::Workspace:::
1



:SystemTools2:System:CDevs:AppleShare
System:CDevs:AppleShare
~:::Workspace:::
1



:SystemTools2:System:CDevs:FolderPriv
System:CDevs:FolderPriv
~:::Workspace:::
1



:SystemTools2:System:CDevs:Network
System:CDevs:Network
~~
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/InstallerScripts/ArchiverGS b/IIGS.601.SRC/A.U.G/InstallerScripts/ArchiverGS
new file mode 100644
index 0000000..cb3fa1a
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/InstallerScripts/ArchiverGS
@@ -0,0 +1 @@
+SCRIPT

V2.00

XR2

Application: Archiver
The script ÒApplication: ArchiverÓ installs the files necessary to update the Archiver Backup program.  These files will be installed in the selected folder.\\
:SystemTools2~*

~:::Workspace:::
1



Archiver
Archiver
~~
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/InstallerScripts/Aristotle.Patch b/IIGS.601.SRC/A.U.G/InstallerScripts/Aristotle.Patch
new file mode 100644
index 0000000..4a46584
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/InstallerScripts/Aristotle.Patch
@@ -0,0 +1 @@
+SCRIPT

V2.00

XN2

Network: Aristotle Update
The script ÒNetwork: Aristotle UpdateÓ updates Aristotle Menu Display to allow quick logoff.  The file Display.0 will be updated if itÕs located in the selected folder.\\
:SystemTools2:AppleTalk~*
~:::Workspace:::
2
U



Display.0
Display.0
~~
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/InstallerScripts/CARD6850.MIDI b/IIGS.601.SRC/A.U.G/InstallerScripts/CARD6850.MIDI
new file mode 100644
index 0000000..d6af8a9
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/InstallerScripts/CARD6850.MIDI
@@ -0,0 +1 @@
+SCRIPT

V2.00

RR2

Media: Card 6850 MIDI
The script ÒMedia: Card 6850 MIDIÓ installs the files necessary for you to use a 6850 Musical Instrument Digital Interface (MIDI) card.  The selected disk must be a startup disk.\\
:SystemTools1~*

~:::Workspace:::
1



System:Tools:Tool032
System:Tools:Tool032
~:::Workspace:::
1



System:Drivers:Card6850.Midi
System:Drivers:Card6850.Midi
~~
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/InstallerScripts/CD.Driver b/IIGS.601.SRC/A.U.G/InstallerScripts/CD.Driver
new file mode 100644
index 0000000..749bbc7
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/InstallerScripts/CD.Driver
@@ -0,0 +1 @@
+SCRIPT

V2.00

RR2

SCSI CD ROM
This script installs the files necessary for you to use CD ROM Drives.  The selected disk must be a startup disk.\\
:SCSI.UTILITIES~*
 This is the Installer script necessary to move the CD ROM driver files from :SCSI.UTILITIES to the userÕs startup disk.
~:::Workspace:::
2



AppleIIGS.Files:Drivers:SCSI.Manager
System:Drivers:SCSI.Manager
~:::Workspace:::
1



AppleIIGS.Files:Drivers:SCSICD.Driver
System:Drivers:SCSICD.Driver
~:::Workspace:::
1



AppleIIGS.Files:Desk.Accs:CDRemote
System:Desk.Accs:CDRemote
~:::Workspace:::
2



AppleIIGS.Files:System:Start.GS.OS
System:Start.GS.OS
~:::Workspace:::
2



AppleIIGS.Files:System:GS.OS
System:GS.OS
~:::Workspace:::
2



AppleIIGS.Files:System:GS.OS.Dev
System:GS.OS.Dev
~~
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/InstallerScripts/CDROM b/IIGS.601.SRC/A.U.G/InstallerScripts/CDROM
new file mode 100644
index 0000000..a8d6381
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/InstallerScripts/CDROM
@@ -0,0 +1 @@
+SCRIPT

V2.00

RR2

Drive: CD-ROM
The script ÒDrive: CD-ROMÓ installs the files necessary for you to use CD-ROM drives.  The selected disk must be a startup disk.\\
:Install~*

~:::Workspace:::
2



System:Drivers:SCSI.Manager
System:Drivers:SCSI.Manager
~:::Workspace:::
3




System:Drivers:SCSI.Driver
~:::Workspace:::
1



:SystemTools1:System:FSTs:HS.FST
System:FSTs:HS.FST
~:::Workspace:::
1



:SystemTools1:System:Drivers:SCSICD.Driver
System:Drivers:SCSICD.Driver
~:::Workspace:::
1



:SystemTools1:System:Desk.Accs:CDRemote
System:Desk.Accs:CDRemote
~~
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/InstallerScripts/CloseView.Init b/IIGS.601.SRC/A.U.G/InstallerScripts/CloseView.Init
new file mode 100644
index 0000000..3f69074
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/InstallerScripts/CloseView.Init
@@ -0,0 +1 @@
+SCRIPT

V2.00

RR2

Special Aids: CloseView
The script ÒSpecial Aids: CloseViewÓ installs the CloseView new desk accessory, which lets you choose an area of the screen to magnify from 2 to 12 times normal size.

CloseView will appear under the Apple menu of applications that support NDAs.  The selected disk must be a startup disk.\\
:SystemTools2~*

~:::Workspace:::
1



System:System.Setup:CloseView
System:System.Setup:CloseView
~~
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/InstallerScripts/DCIMAGEWRITER b/IIGS.601.SRC/A.U.G/InstallerScripts/DCIMAGEWRITER
new file mode 100644
index 0000000..964e82e
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/InstallerScripts/DCIMAGEWRITER
@@ -0,0 +1 @@
+SCRIPT

V2.00

RR2

Printer: ImageWriter
The script ÒPrinter: ImageWriterÓ installs the files necessary for you to use an ImageWriter II printer connected directly to the printer port rather than through AppleTalk. The selected disk must be a startup disk.\\
:SystemTools1~*

~:::Workspace:::
1



System:Drivers:ImageWriter
System:Drivers:ImageWriter
~:::Workspace:::
1



System:Drivers:Printer
System:Drivers:Printer
~:::Workspace:::
1



System:Drivers:Modem
System:Drivers:Modem
~:::Workspace:::
1



System:CDevs:DirectConnect
System:CDevs:DirectConnect
~~
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/InstallerScripts/DCIMAGEWRITERLQ b/IIGS.601.SRC/A.U.G/InstallerScripts/DCIMAGEWRITERLQ
new file mode 100644
index 0000000..4e55115
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/InstallerScripts/DCIMAGEWRITERLQ
@@ -0,0 +1 @@
+SCRIPT

V2.00

RR2

Printer: ImageWriter LQ
The script ÒPrinter: ImageWriter LQÓ installs the files necessary for you to use an ImageWriter LQ printer connected directly to the printer port rather than through AppleTalk.  The selected disk must be a startup disk.\\
:SystemTools1~*

~:::Workspace:::
1



System:Drivers:ImageWriter.LQ
System:Drivers:ImageWriter.LQ
~:::Workspace:::
1



System:Drivers:Printer
System:Drivers:Printer
~:::Workspace:::
1



System:Drivers:Modem
System:Drivers:Modem
~:::Workspace:::
1



System:CDevs:DirectConnect
System:CDevs:DirectConnect
~~
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/InstallerScripts/DOS3.3.FST b/IIGS.601.SRC/A.U.G/InstallerScripts/DOS3.3.FST
new file mode 100644
index 0000000..0503076
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/InstallerScripts/DOS3.3.FST
@@ -0,0 +1 @@
+SCRIPT

V2.00

RR2

File System: DOS 3.3 FST
The script ÒFile System: DOS 3.3 FSTÓ installs the files necessary for you to use Apple II DOS 3.3 disks (not MS-DOS disks).  The selected disk must be a startup disk.\\
:SystemTools1~*

~:::Workspace:::
1



System:FSTS:DOS3.3.FST
System:FSTS:DOS3.3.FST
~~
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/InstallerScripts/EPSON b/IIGS.601.SRC/A.U.G/InstallerScripts/EPSON
new file mode 100644
index 0000000..05473e1
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/InstallerScripts/EPSON
@@ -0,0 +1 @@
+SCRIPT

V2.00

RR2

Printer: Epson
The script ÒPrinter: EpsonÓ installs the files necessary for you to use an Epson Printer connected to your system through a parallel interface card (Practical Peripherals' GraphiCard or compatible).  These files must be installed on the startup disk.\\
:SystemTools1~*

~:::Workspace:::
1



System:Drivers:Epson
System:Drivers:Epson
~:::Workspace:::
1



System:Drivers:Parallel.Card
System:Drivers:Parallel.Card
~:::Workspace:::
1



System:Drivers:Printer
System:Drivers:Printer
~:::Workspace:::
1



System:Drivers:Modem
System:Drivers:Modem
~:::Workspace:::
1



System:CDevs:DirectConnect
System:CDevs:DirectConnect
~~
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/InstallerScripts/Easy.Access b/IIGS.601.SRC/A.U.G/InstallerScripts/Easy.Access
new file mode 100644
index 0000000..b124de3
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/InstallerScripts/Easy.Access
@@ -0,0 +1 @@
+SCRIPT

V2.00

RR2

Special Aids: Easy Access
The script ÒSpecial Aids: Easy AccessÓ installs the Easy Access components, Sticky Keys and Mouse Keys, to assist you in typing modifier keys and controlling the mouse from the keyboard.

When you restart your Apple IIGS, Easy Access will be loaded into memory and activated for immediate use.  The selected disk must be a startup disk.\\
:SystemTools2~*

~:::Workspace:::
1



System:System.Setup:EasyAccess
System:System.Setup:EasyAccess
~~
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/InstallerScripts/EtherTalk b/IIGS.601.SRC/A.U.G/InstallerScripts/EtherTalk
new file mode 100644
index 0000000..210c2b9
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/InstallerScripts/EtherTalk
@@ -0,0 +1 @@
+SCRIPT

V2.00

RR2

Network: Ethernet
The script ÒNetwork: EthernetÓ installs the files necessary for you to use the Apple II Ethernet Card.  The selected disk must be a startup disk.\\
:SystemTools2~*

~:::Workspace:::
4




System:System.Setup:ATPatch
~:::Workspace:::
4




System:System.Setup:ATROM
~:::Workspace:::
4




System:System.Setup:ATSetup
~:::Workspace:::
4




System:System.Setup:ATStart
~:::Workspace:::
4




System:System.Setup:PFILoad
~:::Workspace:::
4




System:System.Setup:SPLoad
~:::Workspace:::
1



System:Drivers:SCC.Manager
System:Drivers:SCC.Manager
~:::Workspace:::
1



System:Drivers:ETalk
System:Drivers:ETalk
~:::Workspace:::
1



System:CDevs:Network
System:CDevs:Network
~~
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/InstallerScripts/FONTS b/IIGS.601.SRC/A.U.G/InstallerScripts/FONTS
new file mode 100644
index 0000000..58468cd
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/InstallerScripts/FONTS
@@ -0,0 +1 @@
+SCRIPT

V2.00

RR2

Fonts: Minimum
The script ÒFonts: MinimumÓ installs the recommended minimum font set onto the selected disk.\\
:SystemTools1~*

~:::Workspace:::
1



System:Fonts:Courier.10
System:Fonts:Courier.10
~:::Workspace:::
1



System:Fonts:Courier.12
System:Fonts:Courier.12
~:::Workspace:::
1



System:Fonts:Geneva.10
System:Fonts:Geneva.10
~:::Workspace:::
1



System:Fonts:Geneva.12
System:Fonts:Geneva.12
~:::Workspace:::
1



System:Fonts:Helvetica.10
System:Fonts:Helvetica.10
~:::Workspace:::
1



System:Fonts:Helvetica.12
System:Fonts:Helvetica.12
~:::Workspace:::
1



System:Fonts:Shaston.16
System:Fonts:Shaston.16
~:::Workspace:::
1



System:Fonts:Times.10
System:Fonts:Times.10
~:::Workspace:::
1



System:Fonts:Times.12
System:Fonts:Times.12
~:::Workspace:::
1



System:Fonts:Venice.14
System:Fonts:Venice.14
~~
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/InstallerScripts/Find.File.NDA b/IIGS.601.SRC/A.U.G/InstallerScripts/Find.File.NDA
new file mode 100644
index 0000000..754b3ef
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/InstallerScripts/Find.File.NDA
@@ -0,0 +1 @@
+SCRIPT

V2.00

RR2

Desk Acc: Find File
The script ÒDesk Acc: Find FileÓ installs the Find File New Desk Accessory, which appears under the Apple menu of applications that support NDAs.  The selected disk must be a startup disk.\\
:SystemTools1~*

~:::Workspace:::
1



System:Desk.Accs:FindFile
System:Desk.Accs:FindFile
~~
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/InstallerScripts/Fonts.Max b/IIGS.601.SRC/A.U.G/InstallerScripts/Fonts.Max
new file mode 100644
index 0000000..e55890f
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/InstallerScripts/Fonts.Max
@@ -0,0 +1 @@
+SCRIPT

V2.00

RR2

Fonts: All
The script ÒFonts: AllÓ installs all fonts onto the selected disk.\\
:Fonts~*


~:::Workspace:::
1



:SystemTools1:System:Fonts:Courier.09
System:Fonts:Courier.09
~:::Workspace:::
1



:SystemTools1:System:Fonts:Courier.10
System:Fonts:Courier.10
~:::Workspace:::
1



:SystemTools1:System:Fonts:Courier.12
System:Fonts:Courier.12
~:::Workspace:::
1



:SystemTools1:System:Fonts:Courier.14
System:Fonts:Courier.14
~:::Workspace:::
1



:SystemTools1:System:Fonts:Courier.18
System:Fonts:Courier.18
~:::Workspace:::
1



:SystemTools1:System:Fonts:Courier.20
System:Fonts:Courier.20
~:::Workspace:::
1



:SystemTools1:System:Fonts:Courier.24
System:Fonts:Courier.24
~:::Workspace:::
1



System:Fonts:Courier.27
System:Fonts:Courier.27
~:::Workspace:::
1



System:Fonts:Courier.28
System:Fonts:Courier.28
~:::Workspace:::
1



System:Fonts:Courier.30
System:Fonts:Courier.30
~:::Workspace:::
1



System:Fonts:Courier.36
System:Fonts:Courier.36
~:::Workspace:::
1



System:Fonts:Courier.42
System:Fonts:Courier.42
~:::Workspace:::
1



:SystemTools1:System:Fonts:Geneva.10
System:Fonts:Geneva.10
~:::Workspace:::
1



:SystemTools1:System:Fonts:Geneva.12
System:Fonts:Geneva.12
~:::Workspace:::
1



:SystemTools1:System:Fonts:Geneva.14
System:Fonts:Geneva.14
~:::Workspace:::
1



:SystemTools1:System:Fonts:Geneva.16
System:Fonts:Geneva.16
~:::Workspace:::
1



:SystemTools1:System:Fonts:Geneva.18
System:Fonts:Geneva.18
~:::Workspace:::
1



:SystemTools1:System:Fonts:Geneva.20
System:Fonts:Geneva.20
~:::Workspace:::
1



:SystemTools1:System:Fonts:Geneva.24
System:Fonts:Geneva.24
~:::Workspace:::
1



:SystemTools1:System:Fonts:Helvetica.09
System:Fonts:Helvetica.09
~:::Workspace:::
1



:SystemTools1:System:Fonts:Helvetica.10
System:Fonts:Helvetica.10
~:::Workspace:::
1



:SystemTools1:System:Fonts:Helvetica.12
System:Fonts:Helvetica.12
~:::Workspace:::
1



:SystemTools1:System:Fonts:Helvetica.14
System:Fonts:Helvetica.14
~:::Workspace:::
1



:SystemTools1:System:Fonts:Helvetica.18
System:Fonts:Helvetica.18
~:::Workspace:::
1



:SystemTools1:System:Fonts:Helvetica.20
System:Fonts:Helvetica.20
~:::Workspace:::
1



:SystemTools1:System:Fonts:Helvetica.24
System:Fonts:Helvetica.24
~:::Workspace:::
1



System:Fonts:Helvetica.27
System:Fonts:Helvetica.27
~:::Workspace:::
1



System:Fonts:Helvetica.28
System:Fonts:Helvetica.28
~:::Workspace:::
1



System:Fonts:Helvetica.30
System:Fonts:Helvetica.30
~:::Workspace:::
1



System:Fonts:Helvetica.36
System:Fonts:Helvetica.36
~:::Workspace:::
1



System:Fonts:Helvetica.42
System:Fonts:Helvetica.42
~:::Workspace:::
1



System:Fonts:Helvetica.48
System:Fonts:Helvetica.48
~:::Workspace:::
1



System:Fonts:Helvetica.60
System:Fonts:Helvetica.60
~:::Workspace:::
1



System:Fonts:Helvetica.72
System:Fonts:Helvetica.72
~:::Workspace:::
1



System:Fonts:Helvetica.96
System:Fonts:Helvetica.96
~:::Workspace:::
1



:SystemTools1:System:Fonts:Shaston.16
System:Fonts:Shaston.16
~:::Workspace:::
1



:SystemTools1:System:Fonts:Times.09
System:Fonts:Times.09
~:::Workspace:::
1



:SystemTools1:System:Fonts:Times.10
System:Fonts:Times.10
~:::Workspace:::
1



:SystemTools1:System:Fonts:Times.12
System:Fonts:Times.12
~:::Workspace:::
1



:SystemTools1:System:Fonts:Times.14
System:Fonts:Times.14
~:::Workspace:::
1



:SystemTools1:System:Fonts:Times.18
System:Fonts:Times.18
~:::Workspace:::
1



:SystemTools1:System:Fonts:Times.20
System:Fonts:Times.20
~:::Workspace:::
1



:SystemTools1:System:Fonts:Times.24
System:Fonts:Times.24
~:::Workspace:::
1



System:Fonts:Times.27
System:Fonts:Times.27
~:::Workspace:::
1



System:Fonts:Times.28
System:Fonts:Times.28
~:::Workspace:::
1



System:Fonts:Times.30
System:Fonts:Times.30
~:::Workspace:::
1



System:Fonts:Times.36
System:Fonts:Times.36
~:::Workspace:::
1



System:Fonts:Times.42
System:Fonts:Times.42
~:::Workspace:::
1



System:Fonts:Times.48
System:Fonts:Times.48
~:::Workspace:::
1



System:Fonts:Times.60
System:Fonts:Times.60
~:::Workspace:::
1



System:Fonts:Times.72
System:Fonts:Times.72
~:::Workspace:::
1



System:Fonts:Times.96
System:Fonts:Times.96
~:::Workspace:::
1



:SystemTools1:System:Fonts:Venice.12
System:Fonts:Venice.12
~:::Workspace:::
1



:SystemTools1:System:Fonts:Venice.14
System:Fonts:Venice.14
~:::Workspace:::
1



:SystemTools1:System:Fonts:Venice.24
System:Fonts:Venice.24
~~
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/InstallerScripts/Fonts.Std b/IIGS.601.SRC/A.U.G/InstallerScripts/Fonts.Std
new file mode 100644
index 0000000..320ba57
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/InstallerScripts/Fonts.Std
@@ -0,0 +1 @@
+SCRIPT

V2.00

RR2

Fonts: Standard
The script ÒFonts: StandardÓ installs Courier 9 - 24, Geneva 10 - 24, Helvetica 10 - 24, Shaston 16, Times 9 - 24 and Venice 12, 14 & 24 fonts onto the selected disk.\\
:SystemTools1~*

~:::Workspace:::
1



System:Fonts:Courier.09
System:Fonts:Courier.09
~:::Workspace:::
1



System:Fonts:Courier.10
System:Fonts:Courier.10
~:::Workspace:::
1



System:Fonts:Courier.12
System:Fonts:Courier.12
~:::Workspace:::
1



System:Fonts:Courier.14
System:Fonts:Courier.14
~:::Workspace:::
1



System:Fonts:Courier.18
System:Fonts:Courier.18
~:::Workspace:::
1



System:Fonts:Courier.20
System:Fonts:Courier.20
~:::Workspace:::
1



System:Fonts:Courier.24
System:Fonts:Courier.24
~:::Workspace:::
1



System:Fonts:Geneva.10
System:Fonts:Geneva.10
~:::Workspace:::
1



System:Fonts:Geneva.12
System:Fonts:Geneva.12
~:::Workspace:::
1



System:Fonts:Geneva.14
System:Fonts:Geneva.14
~:::Workspace:::
1



System:Fonts:Geneva.16
System:Fonts:Geneva.16
~:::Workspace:::
1



System:Fonts:Geneva.18
System:Fonts:Geneva.18
~:::Workspace:::
1



System:Fonts:Geneva.20
System:Fonts:Geneva.20
~:::Workspace:::
1



System:Fonts:Geneva.24
System:Fonts:Geneva.24
~:::Workspace:::
1



System:Fonts:Helvetica.09
System:Fonts:Helvetica.09
~:::Workspace:::
1



System:Fonts:Helvetica.10
System:Fonts:Helvetica.10
~:::Workspace:::
1



System:Fonts:Helvetica.12
System:Fonts:Helvetica.12
~:::Workspace:::
1



System:Fonts:Helvetica.14
System:Fonts:Helvetica.14
~:::Workspace:::
1



System:Fonts:Helvetica.18
System:Fonts:Helvetica.18
~:::Workspace:::
1



System:Fonts:Helvetica.20
System:Fonts:Helvetica.20
~:::Workspace:::
1



System:Fonts:Helvetica.24
System:Fonts:Helvetica.24
~:::Workspace:::
1



System:Fonts:Shaston.16
System:Fonts:Shaston.16
~:::Workspace:::
1



System:Fonts:Times.09
System:Fonts:Times.09
~:::Workspace:::
1



System:Fonts:Times.10
System:Fonts:Times.10
~:::Workspace:::
1



System:Fonts:Times.12
System:Fonts:Times.12
~:::Workspace:::
1



System:Fonts:Times.14
System:Fonts:Times.14
~:::Workspace:::
1



System:Fonts:Times.18
System:Fonts:Times.18
~:::Workspace:::
1



System:Fonts:Times.20
System:Fonts:Times.20
~:::Workspace:::
1



System:Fonts:Times.24
System:Fonts:Times.24
~:::Workspace:::
1



System:Fonts:Venice.12
System:Fonts:Venice.12
~:::Workspace:::
1



System:Fonts:Venice.14
System:Fonts:Venice.14
~:::Workspace:::
1



System:Fonts:Venice.24
System:Fonts:Venice.24
~~
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/InstallerScripts/GSCalc.NDA b/IIGS.601.SRC/A.U.G/InstallerScripts/GSCalc.NDA
new file mode 100644
index 0000000..f4b6cd1
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/InstallerScripts/GSCalc.NDA
@@ -0,0 +1 @@
+SCRIPT

V2.00

RR2

Desk Acc: Calculator
The script ÒDesk Acc: CalculatorÓ installs the Calculator New Desk Accessory, which appears under the Apple menu of applications that support NDAs.  The selected disk must be a startup disk.\\
:SystemTools1~*

~:::Workspace:::
1



System:Desk.Accs:Calculator
System:Desk.Accs:Calculator
~~
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/InstallerScripts/HD.Driver b/IIGS.601.SRC/A.U.G/InstallerScripts/HD.Driver
new file mode 100644
index 0000000..76c7035
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/InstallerScripts/HD.Driver
@@ -0,0 +1 @@
+SCRIPT

V2.00

RR2

SCSI HD Driver
The script ÒSCSI HD DriverÓ installs the files necessary for you to use SCSI HD Drives.  The selected disk must be a startup disk.\\
:Install6.0~*

~:::Workspace:::
2



:Sys.Tools1:System:Drivers:SCSI.Manager
System:Drivers:SCSI.Manager
~:::Workspace:::
1



:Sys.Tools1:System:Drivers:SCSIHD.Driver
System:Drivers:SCSIHD.Driver
~:::Workspace:::
2



System:Start.GS.OS
System:Start.GS.OS
~:::Workspace:::
2



System:GS.OS
System:GS.OS
~:::Workspace:::
2



System:GS.OS.Dev
System:GS.OS.Dev
~~
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/InstallerScripts/HFS.FST b/IIGS.601.SRC/A.U.G/InstallerScripts/HFS.FST
new file mode 100644
index 0000000..96b61f4
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/InstallerScripts/HFS.FST
@@ -0,0 +1 @@
+SCRIPT

V2.00

RR2

File System: HFS FST
The script ÒFile System: HFS FSTÓ installs the files necessary for you to use HFS disks.  HFS is a file system commonly used on the Macintosh.  The selected disk must be a startup disk.\\
:SystemTools1~*

~:::Workspace:::
1



System:FSTS:HFS.FST
System:FSTS:HFS.FST
~~
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/InstallerScripts/INST.SYS.MIN b/IIGS.601.SRC/A.U.G/InstallerScripts/INST.SYS.MIN
new file mode 100644
index 0000000..09061c0
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/InstallerScripts/INST.SYS.MIN
@@ -0,0 +1 @@
+SCRIPT

V2.00

RR2B

*System 6: On 800K Disk
The script ÒSystem 6: On 800K DiskÓ installs and updates the minimum system files from the System Software disk set that will fit on and start up from an 800K disk.

Note that this update replaces any application that may be named SYSTEM/START.  Please consider carefully, whether to Install this update on a turnkey application disk.\\
:Install~*


~:::Workspace:::
3




System:System.Setup:CDev.INIT
~:::Workspace:::
3




System:System.Setup:QuickConsole
~:::Workspace:::
3




System:Desk.Accs:VideoMix.NDA
~:::Workspace:::
3




System:Desk.Accs:CtlPanel.NDA
~:::Workspace:::
3




System:P16
~:::Workspace:::
3




System:Finder
~:::Workspace:::
3




System:Drivers:Passport
~:::Workspace:::
3




System:Drivers:Apple.Midi
~:::Workspace:::
3




Dialog.Icons
~:::Workspace:::
3




Finder.Def
~:::Workspace:::
3




System:Launcher
~:::Workspace:::
3




System:System.Setup:Sound.Init
~:::Workspace:::
3




System:Drivers:LaserPrep
~:::Workspace:::
3




System:Desk.Accs:Cache.NDA
~:::Workspace:::
3




System:Drivers:SCSI.Driver
~:::Workspace:::
3




Icons:Finder.Icons.X
~:::Workspace:::
3




Icons:Finder.Icons
~:::Workspace:::
3




Icons:FType.Main
~:::Workspace:::
3




Icons:FType.Aux
~:::Workspace:::
3




BASIC.Launcher
~:::Workspace:::
3




System:CDevs:Alphabet
~:::Workspace:::
3




System:CDevs:Modem
~:::Workspace:::
3




System:CDevs:General
~:::Workspace:::
3




System:CDevs:Slots
~:::Workspace:::
3




System:CDevs:RAM
~:::Workspace:::
3




System:CDevs:Sound
~:::Workspace:::
3




System:CDevs:Monitor
~:::Workspace:::
3




System:CDevs:Keyboard
~:::Workspace:::
3




System:CDevs:Mouse
~:::Workspace:::
3




System:ExpressLoad
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Drivers:Card6850.MIDI
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Drivers:ImageWriter
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Drivers:Printer
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Drivers:Modem
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Drivers:ImageWriter.LQ
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Drivers:Printer.Setup
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Drivers:Epson
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Drivers:Parallel.Card
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Drivers:LaserWriter
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Drivers:AppleTalk
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Drivers:UniDisk3.5
~:::Workspace:::
4
D


01 Jan 89 00:00

System:FSTS:HS.FST
~:::Workspace:::
4
D


01 Jan 89 00:00

System:System.Setup:ATSetup
~:::Workspace:::
4
D


01 Jan 89 00:00

System:System.Setup:ATResponder
~:::Workspace:::
4
D


01 Jan 89 00:00

System:System.Setup:ATStart
~:::Workspace:::
4
D


01 Jan 89 00:00

System:System.Setup:ATRom
~:::Workspace:::
4
D


01 Jan 89 00:00

System:System.Setup:ATPatch
~:::Workspace:::
4
D


01 Jan 89 00:00

System:System.Setup:SPLoad
~:::Workspace:::
4
D


01 Jan 89 00:00

AppleTalk:Chooser:Chooser.0
~:::Workspace:::
4
D


01 Jan 89 00:00

AppleTalk:Chooser:Chooser1.OVR
~:::Workspace:::
4
D


01 Jan 89 00:00

AppleTalk:Chooser:Chooser2.OVR
~:::Workspace:::
4
D


01 Jan 89 00:00

AppleTalk:Chooser:Chooser3.OVR
~:::Workspace:::
4
D


01 Jan 89 00:00

AppleTalk:Chooser:Chooser4.OVR
~:::Workspace:::
4
D


01 Jan 89 00:00

AppleTalk:Chooser:Chooser5.OVR
~:::Workspace:::
4
D


01 Jan 89 00:00

AppleTalk:Chooser:Chooser.II
~:::Workspace:::
4
D


01 Jan 89 00:00

AppleTalk:Chooser:MTXABS.0
~:::Workspace:::
4
D


01 Jan 89 00:00

AppleTalk:Chooser:IWEM
~:::Workspace:::
4
D


01 Jan 89 00:00

Adv.Disk.Util
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Tools:Tool032
~:::Workspace:::
1



ProDOS
ProDOS
~:::Workspace:::
1



System:Start.GS.OS
System:Start.GS.OS
~:::Workspace:::
1



System:GS.OS
System:GS.OS
~:::Workspace:::
1



System:Error.Msg
System:Error.Msg
~:::Workspace:::
1



System:GS.OS.Dev
System:GS.OS.Dev
~:::Workspace:::
1



System:FSTs:Pro.FST
System:FSTs:Pro.FST
~:::Workspace:::
1



System:Drivers:AppleDisk3.5
System:Drivers:AppleDisk3.5
~:::Workspace:::
1



System:Drivers:AppleDisk5.25
System:Drivers:AppleDisk5.25
~:::Workspace:::
1



System:Drivers:Console.Driver
System:Drivers:Console.Driver
~:::Workspace:::
1



System:FSTs:Char.FST
System:FSTs:Char.FST
~:::Workspace:::
1



System:System.Setup:Tool.Setup
System:System.Setup:Tool.Setup
~:::Workspace:::
1



System:System.Setup:TS2
System:System.Setup:TS2
~:::Workspace:::
1



System:System.Setup:TS3
System:System.Setup:TS3
~:::Workspace:::
1



System:System.Setup:Resource.Mgr
System:System.Setup:Resource.Mgr
~:::Workspace:::
1



System:System.Setup:Sys.Resources
System:System.Setup:Sys.Resources
~:::Workspace:::
1



System:Desk.Accs:ControlPanel
System:Desk.Accs:ControlPanel
~:::Workspace:::
1



System:Fonts:FastFont
System:Fonts:FastFont
~:::Workspace:::
1



System:Tools:Tool014
System:Tools:Tool014
~:::Workspace:::
1



System:Tools:Tool015
System:Tools:Tool015
~:::Workspace:::
1



System:Tools:Tool016
System:Tools:Tool016
~:::Workspace:::
1



System:Tools:Tool018
System:Tools:Tool018
~:::Workspace:::
1



System:Tools:Tool019
System:Tools:Tool019
~:::Workspace:::
1



System:Tools:Tool020
System:Tools:Tool020
~:::Workspace:::
1



System:Tools:Tool021
System:Tools:Tool021
~:::Workspace:::
1



System:Tools:Tool022
System:Tools:Tool022
~:::Workspace:::
1



System:Tools:Tool023
System:Tools:Tool023
~:::Workspace:::
1



System:Tools:Tool027
System:Tools:Tool027
~:::Workspace:::
1



System:Tools:Tool028
System:Tools:Tool028
~:::Workspace:::
1



System:Tools:Tool034
System:Tools:Tool034
~:::Workspace:::
1



System:P8
System:P8
~:::Workspace:::
1



Icons:FType.Apple
Icons:FType.Apple
~:::Workspace:::
1



:SystemTools1:System:Finder
System:Start
~:::Workspace:::
1



:SystemTools1:System:CDevs:Printer
System:CDevs:Printer
~:::Workspace:::
1



:SystemTools1:System:CDevs:Time
System:CDevs:Time
~:::Workspace:::
1



:SystemTools1:System:Tools:Tool025
System:Tools:Tool025
~:::Workspace:::
1



:SystemTools1:BASIC.System
BASIC.System
~~
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/InstallerScripts/INST.SYSF.NOFIN b/IIGS.601.SRC/A.U.G/InstallerScripts/INST.SYSF.NOFIN
new file mode 100644
index 0000000..aafd6e6
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/InstallerScripts/INST.SYSF.NOFIN
@@ -0,0 +1 @@
+SCRIPT

V2.00

RR2B

*System 6: No "Start" Update
The script ÒSystem 6: No ÔStartÕ UpdateÓ does not modify any application that may be named System/Start, and so is a safe update for certain turnkey application disks.

This updates the Finder only if it exists.  This installs and updates all other system files.\\
:Install~*

~:::Workspace:::
3




System:System.Setup:CDev.INIT
~:::Workspace:::
3




System:System.Setup:QuickConsole
~:::Workspace:::
3




System:P16
~:::Workspace:::
3




System:Desk.Accs:CtlPanel.NDA
~:::Workspace:::
3




System:Desk.Accs:VideoMix.NDA
~:::Workspace:::
3




System:Drivers:Passport
~:::Workspace:::
3




System:Drivers:Apple.Midi
~:::Workspace:::
3




Dialog.Icons
~:::Workspace:::
3




Finder.Def
~:::Workspace:::
3




System:Launcher
~:::Workspace:::
3




System:System.Setup:Sound.Init
~:::Workspace:::
3




System:Drivers:LaserPrep
~:::Workspace:::
3




System:Desk.Accs:Cache.NDA
~:::Workspace:::
3




System:Drivers:SCSI.Driver
~:::Workspace:::
3




Icons:Finder.Icons.X
~:::Workspace:::
3




Icons:Finder.Icons
~:::Workspace:::
3




Icons:FType.Main
~:::Workspace:::
3




Icons:FType.Aux
~:::Workspace:::
3




BASIC.Launcher
~:::Workspace:::
3




System:CDevs:Alphabet
~:::Workspace:::
3




System:CDevs:Mouse
~:::Workspace:::
3




System:ExpressLoad
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Drivers:Card6850.MIDI
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Drivers:ImageWriter
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Drivers:Printer
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Drivers:Modem
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Drivers:ImageWriter.LQ
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Drivers:Printer.Setup
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Drivers:Epson
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Drivers:Parallel.Card
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Drivers:LaserWriter
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Drivers:AppleTalk
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Drivers:UniDisk3.5
~:::Workspace:::
4
D


01 Jan 89 00:00

System:FSTS:HS.FST
~:::Workspace:::
4
D


01 Jan 89 00:00

System:System.Setup:ATSetup
~:::Workspace:::
4
D


01 Jan 89 00:00

System:System.Setup:ATResponder
~:::Workspace:::
4
D


01 Jan 89 00:00

System:System.Setup:ATStart
~:::Workspace:::
4
D


01 Jan 89 00:00

System:System.Setup:ATRom
~:::Workspace:::
4
D


01 Jan 89 00:00

System:System.Setup:ATPatch
~:::Workspace:::
4
D


01 Jan 89 00:00

System:System.Setup:SPLoad
~:::Workspace:::
4
D


01 Jan 89 00:00

AppleTalk:Chooser:Chooser.0
~:::Workspace:::
4
D


01 Jan 89 00:00

AppleTalk:Chooser:Chooser1.OVR
~:::Workspace:::
4
D


01 Jan 89 00:00

AppleTalk:Chooser:Chooser2.OVR
~:::Workspace:::
4
D


01 Jan 89 00:00

AppleTalk:Chooser:Chooser3.OVR
~:::Workspace:::
4
D


01 Jan 89 00:00

AppleTalk:Chooser:Chooser4.OVR
~:::Workspace:::
4
D


01 Jan 89 00:00

AppleTalk:Chooser:Chooser5.OVR
~:::Workspace:::
4
D


01 Jan 89 00:00

AppleTalk:Chooser:Chooser.II
~:::Workspace:::
4
D


01 Jan 89 00:00

AppleTalk:Chooser:MTXABS.0
~:::Workspace:::
4
D


01 Jan 89 00:00

AppleTalk:Chooser:IWEM
~:::Workspace:::
4
D


01 Jan 89 00:00

Adv.Disk.Util
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Tools:Tool032
~:::Workspace:::
1



ProDOS
ProDOS
~:::Workspace:::
1



System:Start.GS.OS
System:Start.GS.OS
~:::Workspace:::
1



System:GS.OS
System:GS.OS
~:::Workspace:::
1



System:Error.Msg
System:Error.Msg
~:::Workspace:::
1



System:GS.OS.Dev
System:GS.OS.Dev
~:::Workspace:::
1



System:FSTs:Pro.FST
System:FSTs:Pro.FST
~:::Workspace:::
1



System:Drivers:AppleDisk3.5
System:Drivers:AppleDisk3.5
~:::Workspace:::
1



System:Drivers:AppleDisk5.25
System:Drivers:AppleDisk5.25
~:::Workspace:::
1



System:Drivers:Console.Driver
System:Drivers:Console.Driver
~:::Workspace:::
1



System:Drivers:SCSIHD.Driver
System:Drivers:SCSIHD.Driver
~:::Workspace:::
1



System:Drivers:SCSI.Manager
System:Drivers:SCSI.Manager
~:::Workspace:::
1



System:FSTs:Char.FST
System:FSTs:Char.FST
~:::Workspace:::
1



System:System.Setup:Tool.Setup
System:System.Setup:Tool.Setup
~:::Workspace:::
1



System:System.Setup:TS2
System:System.Setup:TS2
~:::Workspace:::
1



System:System.Setup:TS3
System:System.Setup:TS3
~:::Workspace:::
1



System:System.Setup:Resource.Mgr
System:System.Setup:Resource.Mgr
~:::Workspace:::
1



System:System.Setup:Sys.Resources
System:System.Setup:Sys.Resources
~:::Workspace:::
1



Icons:FType.Apple
Icons:FType.Apple
~:::Workspace:::
1



System:Desk.Accs:ControlPanel
System:Desk.Accs:ControlPanel
~:::Workspace:::
1



System:Fonts:FastFont
System:Fonts:FastFont
~:::Workspace:::
1



System:Tools:Tool014
System:Tools:Tool014
~:::Workspace:::
1



System:Tools:Tool015
System:Tools:Tool015
~:::Workspace:::
1



System:Tools:Tool016
System:Tools:Tool016
~:::Workspace:::
1



System:Tools:Tool018
System:Tools:Tool018
~:::Workspace:::
1



System:Tools:Tool019
System:Tools:Tool019
~:::Workspace:::
1



System:Tools:Tool020
System:Tools:Tool020
~:::Workspace:::
1



System:Tools:Tool021
System:Tools:Tool021
~:::Workspace:::
1



System:Tools:Tool022
System:Tools:Tool022
~:::Workspace:::
1



System:Tools:Tool027
System:Tools:Tool027
~:::Workspace:::
1



System:Tools:Tool028
System:Tools:Tool028
~:::Workspace:::
1



System:Tools:Tool034
System:Tools:Tool034
~:::Workspace:::
1



System:Tools:Tool023
System:Tools:Tool023
~:::Workspace:::
1



System:CDevs:General
System:CDevs:General
~:::Workspace:::
1



System:CDevs:RAM
System:CDevs:RAM
~:::Workspace:::
1



System:P8
System:P8
~:::Workspace:::
2
U



:SystemTools1:System:Finder
System:Finder
~:::Workspace:::
1



:SystemTools1:BASIC.System
BASIC.System
~:::Workspace:::
1



:SystemTools1:System:CDevs:Modem
System:CDevs:Modem
~:::Workspace:::
1



:SystemTools1:System:CDevs:Keyboard
System:CDevs:Keyboard
~:::Workspace:::
1



:SystemTools1:System:CDevs:Slots
System:CDevs:Slots
~:::Workspace:::
1



:SystemTools1:System:CDevs:Sound
System:CDevs:Sound
~:::Workspace:::
1



:SystemTools1:System:CDevs:Monitor
System:CDevs:Monitor
~:::Workspace:::
1



:SystemTools1:System:CDevs:Printer
System:CDevs:Printer
~:::Workspace:::
1



:SystemTools1:System:CDevs:Time
System:CDevs:Time
~:::Workspace:::
1



:SystemTools1:System:CDevs:DirectConnect
System:CDevs:DirectConnect
~:::Workspace:::
1



:SystemTools1:System:Fonts:Courier.09
System:Fonts:Courier.09
~:::Workspace:::
1



:SystemTools1:System:Fonts:Courier.10
System:Fonts:Courier.10
~:::Workspace:::
1



:SystemTools1:System:Fonts:Courier.12
System:Fonts:Courier.12
~:::Workspace:::
1



:SystemTools1:System:Fonts:Courier.14
System:Fonts:Courier.14
~:::Workspace:::
1



:SystemTools1:System:Fonts:Courier.18
System:Fonts:Courier.18
~:::Workspace:::
1



:SystemTools1:System:Fonts:Courier.24
System:Fonts:Courier.24
~:::Workspace:::
1



:SystemTools1:System:Fonts:Geneva.10
System:Fonts:Geneva.10
~:::Workspace:::
1



:SystemTools1:System:Fonts:Geneva.12
System:Fonts:Geneva.12
~:::Workspace:::
1



:SystemTools1:System:Fonts:Geneva.14
System:Fonts:Geneva.14
~:::Workspace:::
1



:SystemTools1:System:Fonts:Geneva.16
System:Fonts:Geneva.16
~:::Workspace:::
1



:SystemTools1:System:Fonts:Geneva.18
System:Fonts:Geneva.18
~:::Workspace:::
1



:SystemTools1:System:Fonts:Geneva.20
System:Fonts:Geneva.20
~:::Workspace:::
1



:SystemTools1:System:Fonts:Geneva.24
System:Fonts:Geneva.24
~:::Workspace:::
1



:SystemTools1:System:Fonts:Helvetica.09
System:Fonts:Helvetica.09
~:::Workspace:::
1



:SystemTools1:System:Fonts:Helvetica.10
System:Fonts:Helvetica.10
~:::Workspace:::
1



:SystemTools1:System:Fonts:Helvetica.12
System:Fonts:Helvetica.12
~:::Workspace:::
1



:SystemTools1:System:Fonts:Helvetica.14
System:Fonts:Helvetica.14
~:::Workspace:::
1



:SystemTools1:System:Fonts:Helvetica.18
System:Fonts:Helvetica.18
~:::Workspace:::
1



:SystemTools1:System:Fonts:Helvetica.24
System:Fonts:Helvetica.24
~:::Workspace:::
1



:SystemTools1:System:Fonts:Shaston.16
System:Fonts:Shaston.16
~:::Workspace:::
1



:SystemTools1:System:Fonts:Times.09
System:Fonts:Times.09
~:::Workspace:::
1



:SystemTools1:System:Fonts:Times.10
System:Fonts:Times.10
~:::Workspace:::
1



:SystemTools1:System:Fonts:Times.12
System:Fonts:Times.12
~:::Workspace:::
1



:SystemTools1:System:Fonts:Times.14
System:Fonts:Times.14
~:::Workspace:::
1



:SystemTools1:System:Fonts:Times.18
System:Fonts:Times.18
~:::Workspace:::
1



:SystemTools1:System:Fonts:Times.24
System:Fonts:Times.24
~:::Workspace:::
1



:SystemTools1:System:Fonts:Venice.12
System:Fonts:Venice.12
~:::Workspace:::
1



:SystemTools1:System:Fonts:Venice.14
System:Fonts:Venice.14
~:::Workspace:::
1



:SystemTools1:System:Fonts:Venice.24
System:Fonts:Venice.24
~:::Workspace:::
1



:SystemTools1:System:Tools:Tool025
System:Tools:Tool025
~:::Workspace:::
1



:SystemTools1:System:Tools:Tool026
System:Tools:Tool026
~:::Workspace:::
1



:SystemTools1:System:Tools:Tool029
System:Tools:Tool029
~:::Workspace:::
1



:SystemTools1:System:Drivers:Printer
System:Drivers:Printer
~:::Workspace:::
1



:SystemTools1:System:Drivers:Modem
System:Drivers:Modem
~:::Workspace:::
1



:SystemTools1:System:Desk.Accs:FindFile
System:Desk.Accs:FindFile
~:::Workspace:::
1



:SystemTools1:System:Desk.Accs:Calculator
System:Desk.Accs:Calculator
~:::Workspace:::
1U



:SystemTools2:System:System.Setup:EasyAccess
System:System.Setup:EasyAccess
~:::Workspace:::
1



:SystemTools2:System:System.Setup:EasyMount
System:System.Setup:EasyMount
~~
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/InstallerScripts/INSTAL.SYS.FILE b/IIGS.601.SRC/A.U.G/InstallerScripts/INSTAL.SYS.FILE
new file mode 100644
index 0000000..fb310ca
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/InstallerScripts/INSTAL.SYS.FILE
@@ -0,0 +1 @@
+SCRIPT

V2.00

Rr2B

*System 6: Hard Disk or FDHD
The script ÒSystem 6: Hard Disk or FDHDÓ installs and updates a useable system for the selected Hard Disk or FDHD (high density disk).   Note: This update requires 1 meg of disk space and a 2 Megabyte system configuration.  Select additional items that you wish to install from the "Update Selections" list.\\
:Install~*


~:::Workspace:::
3




System:System.Setup:CDev.INIT
~:::Workspace:::
3




System:System.Setup:QuickConsole
~:::Workspace:::
3




System:P16
~:::Workspace:::
3




System:Desk.Accs:CtlPanel.NDA
~:::Workspace:::
3




System:Desk.Accs:VideoMix.NDA
~:::Workspace:::
3




System:Drivers:Passport
~:::Workspace:::
3




System:Drivers:Apple.Midi
~:::Workspace:::
3




Dialog.Icons
~:::Workspace:::
3




Finder.Def
~:::Workspace:::
3




System:Launcher
~:::Workspace:::
3




System:System.Setup:Sound.Init
~:::Workspace:::
3




System:Drivers:LaserPrep
~:::Workspace:::
3




System:Desk.Accs:Cache.NDA
~:::Workspace:::
3




System:Drivers:SCSI.Driver
~:::Workspace:::
3




Icons:Finder.Icons.X
~:::Workspace:::
3




Icons:Finder.Icons
~:::Workspace:::
3




Icons:FType.Main
~:::Workspace:::
3




Icons:FType.Aux
~:::Workspace:::
3




BASIC.Launcher
~:::Workspace:::
3




System:CDevs:Alphabet
~:::Workspace:::
3




System:CDevs:Mouse
~:::Workspace:::
3




System:ExpressLoad
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Drivers:Card6850.MIDI
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Drivers:ImageWriter
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Drivers:Printer
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Drivers:Modem
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Drivers:ImageWriter.LQ
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Drivers:Printer.Setup
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Drivers:Epson
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Drivers:Parallel.Card
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Drivers:LaserWriter
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Drivers:AppleTalk
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Drivers:UniDisk3.5
~:::Workspace:::
4
D


01 Jan 89 00:00

System:FSTS:HS.FST
~:::Workspace:::
4
D


01 Jan 89 00:00

System:System.Setup:ATSetup
~:::Workspace:::
4
D


01 Jan 89 00:00

System:System.Setup:ATResponder
~:::Workspace:::
4
D


01 Jan 89 00:00

System:System.Setup:ATStart
~:::Workspace:::
4
D


01 Jan 89 00:00

System:System.Setup:ATRom
~:::Workspace:::
4
D


01 Jan 89 00:00

System:System.Setup:ATPatch
~:::Workspace:::
4
D


01 Jan 89 00:00

System:System.Setup:SPLoad
~:::Workspace:::
4
D


01 Jan 89 00:00

AppleTalk:Chooser:Chooser.0
~:::Workspace:::
4
D


01 Jan 89 00:00

AppleTalk:Chooser:Chooser1.OVR
~:::Workspace:::
4
D


01 Jan 89 00:00

AppleTalk:Chooser:Chooser2.OVR
~:::Workspace:::
4
D


01 Jan 89 00:00

AppleTalk:Chooser:Chooser3.OVR
~:::Workspace:::
4
D


01 Jan 89 00:00

AppleTalk:Chooser:Chooser4.OVR
~:::Workspace:::
4
D


01 Jan 89 00:00

AppleTalk:Chooser:Chooser5.OVR
~:::Workspace:::
4
D


01 Jan 89 00:00

AppleTalk:Chooser:Chooser.II
~:::Workspace:::
4
D


01 Jan 89 00:00

AppleTalk:Chooser:MTXABS.0
~:::Workspace:::
4
D


01 Jan 89 00:00

AppleTalk:Chooser:IWEM
~:::Workspace:::
4
D


01 Jan 89 00:00

Adv.Disk.Util
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Tools:Tool032
~:::Workspace:::
1



ProDOS
ProDOS
~:::Workspace:::
1



System:Start.GS.OS
System:Start.GS.OS
~:::Workspace:::
1



System:GS.OS
System:GS.OS
~:::Workspace:::
1



System:Error.Msg
System:Error.Msg
~:::Workspace:::
1



System:GS.OS.Dev
System:GS.OS.Dev
~:::Workspace:::
1



System:FSTs:Pro.FST
System:FSTs:Pro.FST
~:::Workspace:::
1



System:Drivers:SCSIHD.Driver
System:Drivers:SCSIHD.Driver
~:::Workspace:::
1



System:Drivers:SCSI.Manager
System:Drivers:SCSI.Manager
~:::Workspace:::
1



System:Drivers:AppleDisk3.5
System:Drivers:AppleDisk3.5
~:::Workspace:::
1



System:Drivers:AppleDisk5.25
System:Drivers:AppleDisk5.25
~:::Workspace:::
1



System:Drivers:Console.Driver
System:Drivers:Console.Driver
~:::Workspace:::
1



System:FSTs:Char.FST
System:FSTs:Char.FST
~:::Workspace:::
1



System:System.Setup:Tool.Setup
System:System.Setup:Tool.Setup
~:::Workspace:::
1



System:System.Setup:TS2
System:System.Setup:TS2
~:::Workspace:::
1



System:System.Setup:TS3
System:System.Setup:TS3
~:::Workspace:::
1



System:System.Setup:Resource.Mgr
System:System.Setup:Resource.Mgr
~:::Workspace:::
1



System:System.Setup:Sys.Resources
System:System.Setup:Sys.Resources
~:::Workspace:::
1



Icons:FType.Apple
Icons:FType.Apple
~:::Workspace:::
1



System:Desk.Accs:ControlPanel
System:Desk.Accs:ControlPanel
~:::Workspace:::
1



System:Start
System:Start
~:::Workspace:::
1



System:Fonts:FastFont
System:Fonts:FastFont
~:::Workspace:::
1



System:Tools:Tool014
System:Tools:Tool014
~:::Workspace:::
1



System:Tools:Tool015
System:Tools:Tool015
~:::Workspace:::
1



System:Tools:Tool016
System:Tools:Tool016
~:::Workspace:::
1



System:Tools:Tool018
System:Tools:Tool018
~:::Workspace:::
1



System:Tools:Tool019
System:Tools:Tool019
~:::Workspace:::
1



System:Tools:Tool020
System:Tools:Tool020
~:::Workspace:::
1



System:Tools:Tool021
System:Tools:Tool021
~:::Workspace:::
1



System:Tools:Tool022
System:Tools:Tool022
~:::Workspace:::
1



System:Tools:Tool027
System:Tools:Tool027
~:::Workspace:::
1



System:Tools:Tool028
System:Tools:Tool028
~:::Workspace:::
1



System:Tools:Tool023
System:Tools:Tool023
~:::Workspace:::
1



System:Tools:Tool034
System:Tools:Tool034
~:::Workspace:::
1



System:CDevs:SetStart
System:CDevs:SetStart
~:::Workspace:::
1



System:CDevs:General
System:CDevs:General
~:::Workspace:::
1



System:CDevs:RAM
System:CDevs:RAM
~:::Workspace:::
1



System:P8
System:P8
~:::Workspace:::
1



:SystemTools1:System:Finder
System:Finder
~:::Workspace:::
1



:SystemTools1:System:CDevs:Modem
System:CDevs:Modem
~:::Workspace:::
1



:SystemTools1:System:CDevs:Keyboard
System:CDevs:Keyboard
~:::Workspace:::
1



:SystemTools1:System:CDevs:Slots
System:CDevs:Slots
~:::Workspace:::
1



:SystemTools1:System:CDevs:Sound
System:CDevs:Sound
~:::Workspace:::
1



:SystemTools1:System:CDevs:Monitor
System:CDevs:Monitor
~:::Workspace:::
1



:SystemTools1:System:CDevs:Printer
System:CDevs:Printer
~:::Workspace:::
1



:SystemTools1:System:CDevs:Time
System:CDevs:Time
~:::Workspace:::
1



:SystemTools1:System:CDevs:DirectConnect
System:CDevs:DirectConnect
~:::Workspace:::
1



:SystemTools1:System:Fonts:Courier.09
System:Fonts:Courier.09
~:::Workspace:::
1



:SystemTools1:System:Fonts:Courier.10
System:Fonts:Courier.10
~:::Workspace:::
1



:SystemTools1:System:Fonts:Courier.12
System:Fonts:Courier.12
~:::Workspace:::
1



:SystemTools1:System:Fonts:Courier.14
System:Fonts:Courier.14
~:::Workspace:::
1



:SystemTools1:System:Fonts:Courier.18
System:Fonts:Courier.18
~:::Workspace:::
1



:SystemTools1:System:Fonts:Courier.20
System:Fonts:Courier.20
~:::Workspace:::
1



:SystemTools1:System:Fonts:Courier.24
System:Fonts:Courier.24
~:::Workspace:::
1



:SystemTools1:System:Fonts:Geneva.10
System:Fonts:Geneva.10
~:::Workspace:::
1



:SystemTools1:System:Fonts:Geneva.12
System:Fonts:Geneva.12
~:::Workspace:::
1



:SystemTools1:System:Fonts:Geneva.14
System:Fonts:Geneva.14
~:::Workspace:::
1



:SystemTools1:System:Fonts:Geneva.16
System:Fonts:Geneva.16
~:::Workspace:::
1



:SystemTools1:System:Fonts:Geneva.18
System:Fonts:Geneva.18
~:::Workspace:::
1



:SystemTools1:System:Fonts:Geneva.20
System:Fonts:Geneva.20
~:::Workspace:::
1



:SystemTools1:System:Fonts:Geneva.24
System:Fonts:Geneva.24
~:::Workspace:::
1



:SystemTools1:System:Fonts:Helvetica.09
System:Fonts:Helvetica.09
~:::Workspace:::
1



:SystemTools1:System:Fonts:Helvetica.10
System:Fonts:Helvetica.10
~:::Workspace:::
1



:SystemTools1:System:Fonts:Helvetica.12
System:Fonts:Helvetica.12
~:::Workspace:::
1



:SystemTools1:System:Fonts:Helvetica.14
System:Fonts:Helvetica.14
~:::Workspace:::
1



:SystemTools1:System:Fonts:Helvetica.18
System:Fonts:Helvetica.18
~:::Workspace:::
1



:SystemTools1:System:Fonts:Helvetica.20
System:Fonts:Helvetica.20
~:::Workspace:::
1



:SystemTools1:System:Fonts:Helvetica.24
System:Fonts:Helvetica.24
~:::Workspace:::
1



:SystemTools1:System:Fonts:Shaston.16
System:Fonts:Shaston.16
~:::Workspace:::
1



:SystemTools1:System:Fonts:Times.09
System:Fonts:Times.09
~:::Workspace:::
1



:SystemTools1:System:Fonts:Times.10
System:Fonts:Times.10
~:::Workspace:::
1



:SystemTools1:System:Fonts:Times.12
System:Fonts:Times.12
~:::Workspace:::
1



:SystemTools1:System:Fonts:Times.14
System:Fonts:Times.14
~:::Workspace:::
1



:SystemTools1:System:Fonts:Times.18
System:Fonts:Times.18
~:::Workspace:::
1



:SystemTools1:System:Fonts:Times.20
System:Fonts:Times.20
~:::Workspace:::
1



:SystemTools1:System:Fonts:Times.24
System:Fonts:Times.24
~:::Workspace:::
1



:SystemTools1:System:Fonts:Venice.12
System:Fonts:Venice.12
~:::Workspace:::
1



:SystemTools1:System:Fonts:Venice.14
System:Fonts:Venice.14
~:::Workspace:::
1



:SystemTools1:System:Fonts:Venice.24
System:Fonts:Venice.24
~:::Workspace:::
1



:SystemTools1:System:Tools:Tool029
System:Tools:Tool029
~:::Workspace:::
1



:SystemTools1:System:Tools:Tool025
System:Tools:Tool025
~:::Workspace:::
1



:SystemTools1:System:Tools:Tool026
System:Tools:Tool026
~:::Workspace:::
1



:SystemTools1:System:Drivers:Printer
System:Drivers:Printer
~:::Workspace:::
1



:SystemTools1:System:Drivers:Modem
System:Drivers:Modem
~:::Workspace:::
1



:SystemTools1:BASIC.System
BASIC.System
~:::Workspace:::
1



:SystemTools1:System:Desk.Accs:FindFile
System:Desk.Accs:FindFile
~:::Workspace:::
1



:SystemTools1:System:Desk.Accs:Calculator
System:Desk.Accs:Calculator
~:::Workspace:::
1



:SystemTools2:System:Sounds:Ahh
System:Sounds:Ahh
~:::Workspace:::
1



:SystemTools2:System:Sounds:Droplet
System:Sounds:Droplet
~:::Workspace:::
1



:SystemTools2:System:Sounds:Frog
System:Sounds:Frog
~:::Workspace:::
1



:SystemTools2:System:Sounds:Eastern
System:Sounds:Eastern
~:::Workspace:::
1



:SystemTools2:System:Sounds:PipeOrgan
System:Sounds:PipeOrgan
~:::Workspace:::
1



:SystemTools2:System:Sounds:SimpleBeep
System:Sounds:SimpleBeep
~:::Workspace:::
1



:SystemTools2:System:Sounds:Sosumi
System:Sounds:Sosumi
~:::Workspace:::
1



:SystemTools2:System:Sounds:Swish
System:Sounds:Swish
~:::Workspace:::
1



:SystemTools2:System:Sounds:Trumpets
System:Sounds:Trumpets
~:::Workspace:::
1U



:SystemTools2:System:System.Setup:EasyAccess
System:System.Setup:EasyAccess
~:::Workspace:::
1



:SystemTools2:System:System.Setup:EasyMount
System:System.Setup:EasyMount
~~
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/InstallerScripts/LASERWRITER b/IIGS.601.SRC/A.U.G/InstallerScripts/LASERWRITER
new file mode 100644
index 0000000..e4eea73
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/InstallerScripts/LASERWRITER
@@ -0,0 +1 @@
+SCRIPT

V2.00

RR2

Printer: LaserWriter
The script ÒPrinter: LaserWriterÓ installs the files necessary for you to use a LaserWriter printer.  The selected disk must be a startup disk.\\
:SystemTools2~*

~:::Workspace:::
4




System:System.Setup:ATPatch
~:::Workspace:::
4




System:System.Setup:ATROM
~:::Workspace:::
4




System:System.Setup:ATSetup
~:::Workspace:::
4




System:System.Setup:ATStart
~:::Workspace:::
4




System:System.Setup:PFILoad
~:::Workspace:::
4




System:System.Setup:SPLoad
~:::Workspace:::
4




System:Drivers:ATP3.SPLoad
~:::Workspace:::
4




System:Drivers:ATP2.ATPatch
~:::Workspace:::
4




System:Drivers:ATP4.PFILoad
~:::Workspace:::
3




System:CDevs:ATLWriter
~:::Workspace:::
4




System:Drivers:ATP5.ATStart
~:::Workspace:::
2



System:Drivers:ATalk
System:Drivers:ATalk
~:::Workspace:::
2



System:Drivers:SCC.Manager
System:Drivers:SCC.Manager
~:::Workspace:::
2



System:Drivers:ATP1.ATROM
System:Drivers:ATP1.ATROM
~:::Workspace:::
2



System:Drivers:ATP2.ATRAM
System:Drivers:ATP2.ATRAM
~:::Workspace:::
2



System:System.Setup:ATResponder
System:System.Setup:ATResponder
~:::Workspace:::
2



System:System.Setup:ATInit
System:System.Setup:ATInit
~:::Workspace:::
1



System:Drivers:LaserWriter
System:Drivers:LaserWriter
~:::Workspace:::
1



System:Drivers:IWEM
System:Drivers:IWEM
~:::Workspace:::
1



System:Drivers:AppleTalk
System:Drivers:AppleTalk
~:::Workspace:::
1



System:CDevs:NetPrinter
System:CDevs:NetPrinter
~~
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/InstallerScripts/Local.Net.Boot b/IIGS.601.SRC/A.U.G/InstallerScripts/Local.Net.Boot
new file mode 100644
index 0000000..a783e3c
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/InstallerScripts/Local.Net.Boot
@@ -0,0 +1 @@
+SCRIPT

V2.00

Rr2B

Network: Local Startup
WARNING: The script ÒNetwork: Local StartupÓ installs the system files for starting up over the network. This update should only be used for local disks.   

Some files, including the Finder/Start, are removed.  Proceed with caution.\\
:Install~*

~:::Workspace:::
3




System:System.Setup:CDev.Init
~:::Workspace:::
3




System:P16
~:::Workspace:::
3




System:Desk.Accs:CtlPanel.NDA
~:::Workspace:::
3




System:Desk.Accs:VideoMix.NDA
~:::Workspace:::
3




System:Finder
~:::Workspace:::
3




System:Start
~:::Workspace:::
3




System:Drivers:Passport
~:::Workspace:::
3




System:Drivers:AppleMidi
~:::Workspace:::
3




Dialog.Icons
~:::Workspace:::
3




Finder.Def
~:::Workspace:::
3




System:Launcher
~:::Workspace:::
3




System:System.Setup:Sound.Init
~:::Workspace:::
3




System:Drivers:LaserPrep
~:::Workspace:::
3




System:Fonts:Font.Lists
~:::Workspace:::
3




System:Drivers:Printer.Setup
~:::Workspace:::
3




System:CDevs:Alphabet
~:::Workspace:::
3




System:CDevs:General
~:::Workspace:::
3




System:CDevs:Keyboard
~:::Workspace:::
3




System:CDevs:Modem
~:::Workspace:::
3




System:CDevs:Monitor
~:::Workspace:::
3




System:CDevs:Mouse
~:::Workspace:::
3




System:CDevs:Printer
~:::Workspace:::
3




System:CDevs:Slots
~:::Workspace:::
3




System:CDevs:Sound
~:::Workspace:::
3




System:CDevs:Time
~:::Workspace:::
3




System:CDevs:DirectConnect
~:::Workspace:::
3




System:Fonts:Courier.10
~:::Workspace:::
3




System:Fonts:Courier.12
~:::Workspace:::
3




System:Fonts:Geneva.10
~:::Workspace:::
3




System:Fonts:Helvetica.10
~:::Workspace:::
3




System:Fonts:Helvetica.12
~:::Workspace:::
3




System:Fonts:Times.10
~:::Workspace:::
3




System:Fonts:Times.12
~:::Workspace:::
3




System:Fonts:Venice.14
~:::Workspace:::
3




System:Fonts:FastFont
~:::Workspace:::
3




System:Tools:Tool032
~:::Workspace:::
3




System:Drivers:ImageWriter
~:::Workspace:::
3




System:Drivers:Printer
~:::Workspace:::
3




System:Drivers:Modem
~:::Workspace:::
3




Icons:Finder.Icons.X
~:::Workspace:::
3




Icons:Finder.Icons
~:::Workspace:::
3




Icons:FType.Main
~:::Workspace:::
3




Icons:FType.Aux
~:::Workspace:::
3




BASIC.System
~:::Workspace:::
3




BASIC.Launcher
~:::Workspace:::
3




System:System.Setup:ATPatch
~:::Workspace:::
3




System:System.Setup:ATROM
~:::Workspace:::
3




System:System.Setup:ATSetup
~:::Workspace:::
3




System:System.Setup:ATStart
~:::Workspace:::
3




System:System.Setup:PFILoad
~:::Workspace:::
3




System:System.Setup:SPLoad
~:::Workspace:::
3




System:ExpressLoad
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Drivers:Apple.MIDI
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Drivers:Card6850.MIDI
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Drivers:ImageWriter.LQ
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Drivers:Epson
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Drivers:Parallel.Card
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Drivers:LaserWriter
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Drivers:AppleTalk
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Drivers:UniDisk3.5
~:::Workspace:::
4
D


01 Jan 89 00:00

System:FSTS:HS.FST
~:::Workspace:::
4
D


01 Jan 89 00:00

System:System.Setup:ATResponder
~:::Workspace:::
4
D


01 Jan 89 00:00

AppleTalk:Chooser:Chooser.0
~:::Workspace:::
4
D


01 Jan 89 00:00

AppleTalk:Chooser:Chooser1.OVR
~:::Workspace:::
4
D


01 Jan 89 00:00

AppleTalk:Chooser:Chooser2.OVR
~:::Workspace:::
4
D


01 Jan 89 00:00

AppleTalk:Chooser:Chooser3.OVR
~:::Workspace:::
4
D


01 Jan 89 00:00

AppleTalk:Chooser:Chooser4.OVR
~:::Workspace:::
4
D


01 Jan 89 00:00

AppleTalk:Chooser:Chooser5.OVR
~:::Workspace:::
4
D


01 Jan 89 00:00

AppleTalk:Chooser:Chooser.II
~:::Workspace:::
4
D


01 Jan 89 00:00

AppleTalk:Chooser:MTXABS.0
~:::Workspace:::
4
D


01 Jan 89 00:00

AppleTalk:Chooser:IWEM
~:::Workspace:::
4
D


01 Jan 89 00:00

Adv.Disk.Util
~:::Workspace:::
4
D


01 Jan 89 00:00

system:tools:tool032
~:::Workspace:::
1



ProDOS
ProDOS
~:::Workspace:::
1



System:Start.GS.OS
System:Start.GS.OS
~:::Workspace:::
1



System:GS.OS
System:GS.OS
~:::Workspace:::
1



System:Error.Msg
System:Error.Msg
~:::Workspace:::
1



System:GS.OS.Dev
System:GS.OS.Dev
~:::Workspace:::
1



System:FSTs:Pro.FST
System:FSTs:Pro.FST
~:::Workspace:::
1



System:Drivers:AppleDisk3.5
System:Drivers:AppleDisk3.5
~:::Workspace:::
1



System:Drivers:Console.Driver
System:Drivers:Console.Driver
~:::Workspace:::
1



System:FSTs:Char.FST
System:FSTs:Char.FST
~:::Workspace:::
1



System:System.Setup:Tool.Setup
System:System.Setup:Tool.Setup
~:::Workspace:::
1



System:System.Setup:TS2
System:System.Setup:TS2
~:::Workspace:::
1



System:System.Setup:TS3
System:System.Setup:TS3
~:::Workspace:::
1



System:System.Setup:Resource.Mgr
System:System.Setup:Resource.Mgr
~:::Workspace:::
1



System:System.Setup:Sys.Resources
System:System.Setup:Sys.Resources
~:::Workspace:::
1



Icons:FType.Apple
Icons:FType.Apple
~:::Workspace:::
1



System:Desk.Accs:ControlPanel
System:Desk.Accs:ControlPanel
~:::Workspace:::
1



System:Tools:Tool014
System:Tools:Tool014
~:::Workspace:::
1



System:Tools:Tool015
System:Tools:Tool015
~:::Workspace:::
1



System:Tools:Tool016
System:Tools:Tool016
~:::Workspace:::
1



System:Tools:Tool018
System:Tools:Tool018
~:::Workspace:::
1



System:Tools:Tool019
System:Tools:Tool019
~:::Workspace:::
1



System:Tools:Tool020
System:Tools:Tool020
~:::Workspace:::
1



System:Tools:Tool021
System:Tools:Tool021
~:::Workspace:::
1



System:Tools:Tool022
System:Tools:Tool022
~:::Workspace:::
1



System:Tools:Tool023
System:Tools:Tool023
~:::Workspace:::
1



System:Tools:Tool027
System:Tools:Tool027
~:::Workspace:::
1



System:Tools:Tool028
System:Tools:Tool028
~:::Workspace:::
1



System:Tools:Tool034
System:Tools:Tool034
~:::Workspace:::
1



System:P8
System:P8
~:::Workspace:::
1



System:CDevs:RAM
System:CDevs:RAM
~:::Workspace:::
1



:SystemTools1:System:Fonts:Geneva.12
System:Fonts:Geneva.12
~:::Workspace:::
1



:SystemTools1:System:Fonts:Shaston.16
System:Fonts:Shaston.16
~:::Workspace:::
1



:SystemTools1:System:Tools:Tool029
System:Tools:Tool029
~:::Workspace:::
1



:SystemTools1:System:Tools:Tool025
System:Tools:Tool025
~:::Workspace:::
1



:SystemTools1:System:Tools:Tool026
System:Tools:Tool026
~:::Workspace:::
1



:SystemTools2:System:Drivers:ATalk
System:Drivers:ATalk
~:::Workspace:::
1



:SystemTools2:System:Drivers:SCC.Manager
System:Drivers:SCC.Manager
~:::Workspace:::
1



:SystemTools2:System:Drivers:ATP1.ATROM
System:Drivers:ATP1.ATROM
~:::Workspace:::
1



:SystemTools2:System:Drivers:ATP2.ATRAM
System:Drivers:ATP2.ATRAM
~:::Workspace:::
1



:SystemTools2:System:System.Setup:ATResponder
System:System.Setup:ATResponder
~:::Workspace:::
1



:SystemTools2:System:System.Setup:ATInit
System:System.Setup:ATInit
~:::Workspace:::
1



:SystemTools2:System:FSTs:AppleShare.FST
System:FSTs:AppleShare.FST
~:::Workspace:::
1



:SystemTools2:System:CDevs:AppleShare
System:CDevs:AppleShare
~:::Workspace:::
1



:SystemTools2:System:CDevs:FolderPriv
System:CDevs:FolderPriv
~:::Workspace:::
1



:SystemTools2:System:CDevs:Network
System:CDevs:Network
~:::Workspace:::
1



:SystemTools2:AppleTalk:Start
System:Start
~~
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/InstallerScripts/MEDIACTRL b/IIGS.601.SRC/A.U.G/InstallerScripts/MEDIACTRL
new file mode 100644
index 0000000..6386c6b
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/InstallerScripts/MEDIACTRL
@@ -0,0 +1 @@
+SCRIPT

V2.00

RR2

Media Control: Everything
The script ÒMedia Control: EverythingÓ installs the files necessary for you to use the Media Control Desk Accessory, Control Panel, and Toolset with an AppleCD SC CD-ROM drive, a Pioneer 2000 laser disc player, and a Pioneer 4200 laser disc player.  The selected disk must be a startup disk.\\
:SystemTools2~*

~:::Workspace:::
3




System:Drivers:SCSI.Driver
~:::Workspace:::
1



System:Desk.Accs:MediaControl
System:Desk.Accs:MediaControl
~:::Workspace:::
1



System:Tools:Tool038
System:Tools:Tool038
~:::Workspace:::
1



System:CDevs:MediaControl
System:CDevs:MediaControl
~:::Workspace:::
1



System:Drivers:Media.Control:Pioneer4200
System:Drivers:Media.Control:Pioneer4200
~:::Workspace:::
1



System:Drivers:Media.Control:Pioneer2000
System:Drivers:Media.Control:Pioneer2000
~:::Workspace:::
1



System:Drivers:Media.Control:AppleCDSC
System:Drivers:Media.Control:AppleCDSC
~:::Workspace:::
2



:Install:System:Drivers:SCSI.Manager
System:Drivers:SCSI.Manager
~:::Workspace:::
2



:SystemTools1:System:Drivers:SCSICD.Driver
System:Drivers:SCSICD.Driver
~~
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/InstallerScripts/MSDOS.FST b/IIGS.601.SRC/A.U.G/InstallerScripts/MSDOS.FST
new file mode 100644
index 0000000..378dc56
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/InstallerScripts/MSDOS.FST
@@ -0,0 +1 @@
+SCRIPT

V2.00

Rr2

File System: MS-DOS FST
The script ÒFile System: MS-DOS FSTÓ installs the files needed for reading MS-DOS disks.

Note:  To read MS-DOS disks, you need an Apple SuperDrive connected to an Apple II SuperDrive Card, or other hardware that can read MS-DOS disks.\\
:SystemTools1~*

~:::Workspace:::
1



System:FSTS:MSDOS.FST
System:FSTS:MSDOS.FST
~~
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/InstallerScripts/MediaCtrl.CDSC b/IIGS.601.SRC/A.U.G/InstallerScripts/MediaCtrl.CDSC
new file mode 100644
index 0000000..a26ca19
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/InstallerScripts/MediaCtrl.CDSC
@@ -0,0 +1 @@
+SCRIPT

V2.00

RR2

Media Control: AppleCD SC
The script ÒMedia Control: AppleCD SCÓ installs the files necessary for you to use the Media Control Desk Accessory, Control Panel, and Toolset with an AppleCD SC CD-ROM drive.  The selected disk must be a startup disk.\\
:SystemTools2~*

~:::Workspace:::
3




System:Drivers:SCSI.Driver
~:::Workspace:::
1



System:Desk.Accs:MediaControl
System:Desk.Accs:MediaControl
~:::Workspace:::
1



System:Tools:Tool038
System:Tools:Tool038
~:::Workspace:::
1



System:CDevs:MediaControl
System:CDevs:MediaControl
~:::Workspace:::
1



System:Drivers:Media.Control:AppleCDSC
System:Drivers:Media.Control:AppleCDSC
~:::Workspace:::
2



:Install:System:Drivers:SCSI.Manager
System:Drivers:SCSI.Manager
~:::Workspace:::
2



:SystemTools1:System:Drivers:SCSICD.Driver
System:Drivers:SCSICD.Driver
~~
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/InstallerScripts/MediaCtrl.P2000 b/IIGS.601.SRC/A.U.G/InstallerScripts/MediaCtrl.P2000
new file mode 100644
index 0000000..c7f2682
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/InstallerScripts/MediaCtrl.P2000
@@ -0,0 +1 @@
+SCRIPT

V2.00

RR2

Media Control: Pioneer 2000
The script ÒMedia Control: Pioneer 2000Ó installs the files necessary for you to use the Media Control Desk Accessory, Control Panel, and Toolset with a Pioneer 2000 laser disc player.  The selected disk must be a startup disk.\\
:SystemTools2~*

~:::Workspace:::
1



System:Desk.Accs:MediaControl
System:Desk.Accs:MediaControl
~:::Workspace:::
1



System:Tools:Tool038
System:Tools:Tool038
~:::Workspace:::
1



System:CDevs:MediaControl
System:CDevs:MediaControl
~:::Workspace:::
1



System:Drivers:Media.Control:Pioneer2000
System:Drivers:Media.Control:Pioneer2000
~~
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/InstallerScripts/MediaCtrl.P4200 b/IIGS.601.SRC/A.U.G/InstallerScripts/MediaCtrl.P4200
new file mode 100644
index 0000000..155b1bc
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/InstallerScripts/MediaCtrl.P4200
@@ -0,0 +1 @@
+SCRIPT

V2.00

RR2

Media Control: Pioneer 4200
The script ÒMedia Control: Pioneer 4200Ó installs the files necessary for you to use the Media Control Desk Accessory, Control Panel, and Toolset with a Pioneer 4200 laser disc player.  The selected disk must be a startup disk.\\
:SystemTools2~*

~:::Workspace:::
1



System:Desk.Accs:MediaControl
System:Desk.Accs:MediaControl
~:::Workspace:::
1



System:Tools:Tool038
System:Tools:Tool038
~:::Workspace:::
1



System:CDevs:MediaControl
System:CDevs:MediaControl
~:::Workspace:::
1



System:Drivers:Media.Control:Pioneer4200
System:Drivers:Media.Control:Pioneer4200
~~
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/InstallerScripts/NAMER b/IIGS.601.SRC/A.U.G/InstallerScripts/NAMER
new file mode 100644
index 0000000..b086316
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/InstallerScripts/NAMER
@@ -0,0 +1 @@
+SCRIPT

V2.00

RR2

Network: Printer Namer
The script ÒNetwork: Printer NamerÓ installs the files necessary for you to rename a network printer.  You must also install AppleShare.\\
:SystemTools2~*

~:::Workspace:::
3




Namer:Namer.0
~:::Workspace:::
3




Namer:Namer.II
~:::Workspace:::
3




Namer:MtxAbs.0
~:::Workspace:::
1



System:CDevs:Namer
System:CDevs:Namer

~~
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/InstallerScripts/Pascal.FST b/IIGS.601.SRC/A.U.G/InstallerScripts/Pascal.FST
new file mode 100644
index 0000000..d4af9ff
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/InstallerScripts/Pascal.FST
@@ -0,0 +1 @@
+SCRIPT

V2.00

RR2

File System: Pascal FST
The script ÒFile System: Pascal FSTÓ installs the files necessary for you to use Apple Pascal file system disks.  The selected disk must be a startup disk.\\
:SystemTools1~*

~:::Workspace:::
1



System:FSTS:Pascal.FST
System:FSTS:Pascal.FST
~~
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/InstallerScripts/Quick.Logoff b/IIGS.601.SRC/A.U.G/InstallerScripts/Quick.Logoff
new file mode 100644
index 0000000..60fefc2
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/InstallerScripts/Quick.Logoff
@@ -0,0 +1 @@
+SCRIPT

V2.00

RR2

Network: Server Quick Logoff
The script ÒNetwork: Server Quick LogoffÓ allows you to quickly log off and back on when booting over the network.  Install on the shared disk or on your Local Startup disk.\\
:SystemTools2:AppleTalk~*

~:::Workspace:::
1



QuickLogoff
System:System.Setup:QuickLogoff
~~
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/InstallerScripts/QuickerGraph b/IIGS.601.SRC/A.U.G/InstallerScripts/QuickerGraph
new file mode 100644
index 0000000..b4b779a
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/InstallerScripts/QuickerGraph
@@ -0,0 +1 @@
+SCRIPT

V2.00

RR2

Tool set: QuickerGraph
This script installs the QuickerGraph setup file.  QuickerGraph will speed up several graphics operations, at the expense of using more memory for the system.  The selected disk must be a startup disk.\\
:SystemTools2~*

~:::Workspace:::
1



System:System.Setup:QuickerGraph
System:System.Setup:QuickerGraph
~~
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/InstallerScripts/RAM5 b/IIGS.601.SRC/A.U.G/InstallerScripts/RAM5
new file mode 100644
index 0000000..9c504dd
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/InstallerScripts/RAM5
@@ -0,0 +1 @@
+SCRIPT

V2.00

RR2

Drive: RAM5
The script ÒDrive: RAM5Ó installs the RAM5 driver, which improves performance when using the ÒRAM5Ó RAM disk.\\
:SystemTools1~*

~:::Workspace:::
1



System:Drivers:RAM5
System:Drivers:RAM5
~~
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/InstallerScripts/SCSI.HARD.DISK b/IIGS.601.SRC/A.U.G/InstallerScripts/SCSI.HARD.DISK
new file mode 100644
index 0000000..1b1e46a
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/InstallerScripts/SCSI.HARD.DISK
@@ -0,0 +1 @@
+SCRIPT

V2.00

RR2

Drive: SCSI Hard Disk
The script ÒDrive: SCSI Hard DiskÓ copies the SCSI manager and the SCSI hard disk driver to your startup disk.
 
If you REMOVE this update, you may need to reinstall updates, such as CD-ROM, which require the SCSI manager.\\
:Install~*

~:::Workspace:::
3




System:Drivers:SCSI.Driver
~:::Workspace:::
1



System:Drivers:SCSI.Manager
System:Drivers:SCSI.Manager
~:::Workspace:::
1



System:Drivers:SCSIHD.Driver
System:Drivers:SCSIHD.Driver
~~
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/InstallerScripts/Scan6.0 b/IIGS.601.SRC/A.U.G/InstallerScripts/Scan6.0
new file mode 100644
index 0000000..e7b8867
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/InstallerScripts/Scan6.0
@@ -0,0 +1 @@
+SCRIPT

V2.00

RR2

Driver: Scanner
The script ÒDriver: ScannerÓ installs the files necessary for you to use the Apple Scanner.  The selected disk must be a startup disk.\\
:SystemTools1~*

~:::Workspace:::
3




System:Drivers:SCSI.Driver
~:::Workspace:::
1



:Install:System:Drivers:SCSI.Manager
System:Drivers:SCSI.Manager
~:::Workspace:::
1



System:Drivers:SCSIScan.Driver
System:Drivers:SCSIScan.Driver

~~
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/InstallerScripts/Scanner.Driver b/IIGS.601.SRC/A.U.G/InstallerScripts/Scanner.Driver
new file mode 100644
index 0000000..7a60e7a
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/InstallerScripts/Scanner.Driver
@@ -0,0 +1 @@
+SCRIPT

V2.00

RR2

Scanner Driver
This script installs the files necessary for you to use Scanners.  The selected disk must be a startup disk.\\
:SCSI.UTILITIES~*
 This is the Installer script necessary to move the Scanner files from :SCSI.UTILITIES to the user's startup disk.
~:::Workspace:::
2



AppleIIGS.Files:Drivers:SCSI.Manager
System:Drivers:SCSI.Manager
~:::Workspace:::
1



AppleIIGS.Files:Drivers:SCSIScan.Driver
System:Drivers:SCSIScan.Driver
~:::Workspace:::
2



AppleIIGS.Files:System:Start.GS.OS
System:Start.GS.OS
~:::Workspace:::
2



AppleIIGS.Files:System:GS.OS
System:GS.OS
~:::Workspace:::
2



AppleIIGS.Files:System:GS.OS.Dev
System:GS.OS.Dev
~~
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/InstallerScripts/Server.Sys.File b/IIGS.601.SRC/A.U.G/InstallerScripts/Server.Sys.File
new file mode 100644
index 0000000..d23b11c
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/InstallerScripts/Server.Sys.File
@@ -0,0 +1 @@
+SCRIPT

V2.00

Rr2B

Network: Server Startup
WARNING: The script ÒNetwork: Server StartupÓ installs system files to the file server for starting up over the network.

Some files, including ProDOS, are removed from the file server.  Proceed with caution.\\
:Install~*

~:::Workspace:::
3




System:System.Setup:CDev.Init
~:::Workspace:::
3




System:Desk.Accs:CtlPanel.NDA
~:::Workspace:::
3




System:Desk.Accs:VideoMix.NDA
~:::Workspace:::
3




System:P16
~:::Workspace:::
3




System:Drivers:Passport
~:::Workspace:::
3




System:Drivers:Apple.Midi
~:::Workspace:::
3




Dialog.Icons
~:::Workspace:::
3




Finder.Def
~:::Workspace:::
3




System:Launcher
~:::Workspace:::
3




System:System.Setup:Sound.Init
~:::Workspace:::
3




System:Drivers:LaserPrep
~:::Workspace:::
3




Icons:Finder.Icons.X
~:::Workspace:::
3




Icons:Finder.Icons
~:::Workspace:::
3




Icons:FType.Main
~:::Workspace:::
3




Icons:FType.Aux
~:::Workspace:::
3




ProDOS
~:::Workspace:::
3




BASIC.Launcher
~:::Workspace:::
3




System:Drivers:ATP1.ATROM
~:::Workspace:::
3




System:Drivers:ATP2.ATRAM
~:::Workspace:::
3




System:System.Setup:ATPatch
~:::Workspace:::
3




System:System.Setup:ATROM
~:::Workspace:::
3




System:System.Setup:ATSetup
~:::Workspace:::
3




System:System.Setup:ATStart
~:::Workspace:::
3




System:System.Setup:PFILoad
~:::Workspace:::
3




System:System.Setup:SPLoad
~:::Workspace:::
3




System:ExpressLoad
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Drivers:Card6850.MIDI
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Drivers:Imagewriter
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Drivers:Printer
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Drivers:Modem
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Drivers:ImageWriter.LQ
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Drivers:Printer.Setup
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Drivers:Epson
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Drivers:Parallel.Card
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Drivers:LaserWriter
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Drivers:AppleTalk
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Drivers:UniDisk3.5
~:::Workspace:::
4
D


01 Jan 89 00:00

System:FSTS:HS.FST
~:::Workspace:::
4
D


01 Jan 89 00:00

System:System.Setup:ATResponder
~:::Workspace:::
4
D


01 Jan 89 00:00

AppleTalk:Chooser:Chooser.0
~:::Workspace:::
4
D


01 Jan 89 00:00

AppleTalk:Chooser:Chooser1.OVR
~:::Workspace:::
4
D


01 Jan 89 00:00

AppleTalk:Chooser:Chooser2.OVR
~:::Workspace:::
4
D


01 Jan 89 00:00

AppleTalk:Chooser:Chooser3.OVR
~:::Workspace:::
4
D


01 Jan 89 00:00

AppleTalk:Chooser:Chooser4.OVR
~:::Workspace:::
4
D


01 Jan 89 00:00

AppleTalk:Chooser:Chooser5.OVR
~:::Workspace:::
4
D


01 Jan 89 00:00

AppleTalk:Chooser:Chooser.II
~:::Workspace:::
4
D


01 Jan 89 00:00

AppleTalk:Chooser:MTXABS.0
~:::Workspace:::
4
D


01 Jan 89 00:00

AppleTalk:Chooser:IWEM
~:::Workspace:::
4
D


01 Jan 89 00:00

Adv.Disk.Util
~:::Workspace:::
4
D


01 Jan 89 00:00

System:Tools:Tool032
~:::Workspace:::
3




System:CDevs:Alphabet
~:::Workspace:::
3




System:CDevs:Mouse
~:::Workspace:::
1



System:Start.GS.OS
System:Start.GS.OS
~:::Workspace:::
1



System:GS.OS
System:GS.OS
~:::Workspace:::
1



System:Error.Msg
System:Error.Msg
~:::Workspace:::
1



System:GS.OS.Dev
System:GS.OS.Dev
~:::Workspace:::
1



System:FSTs:Pro.FST
System:FSTs:Pro.FST
~:::Workspace:::
1



System:Drivers:AppleDisk3.5
System:Drivers:AppleDisk3.5
~:::Workspace:::
1



System:Drivers:Console.Driver
System:Drivers:Console.Driver
~:::Workspace:::
1



System:FSTs:Char.FST
System:FSTs:Char.FST
~:::Workspace:::
1



System:System.Setup:Tool.Setup
System:System.Setup:Tool.Setup
~:::Workspace:::
1



System:System.Setup:TS2
System:System.Setup:TS2
~:::Workspace:::
1



System:System.Setup:TS3
System:System.Setup:TS3
~:::Workspace:::
1



System:System.Setup:Resource.Mgr
System:System.Setup:Resource.Mgr
~:::Workspace:::
1



System:System.Setup:Sys.Resources
System:System.Setup:Sys.Resources
~:::Workspace:::
1



Icons:FType.Apple
Icons:FType.Apple
~:::Workspace:::
1



System:Desk.Accs:ControlPanel
System:Desk.Accs:ControlPanel
~:::Workspace:::
1



System:Tools:Tool014
System:Tools:Tool014
~:::Workspace:::
1



System:Tools:Tool015
System:Tools:Tool015
~:::Workspace:::
1



System:Tools:Tool016
System:Tools:Tool016
~:::Workspace:::
1



System:Tools:Tool018
System:Tools:Tool018
~:::Workspace:::
1



System:Tools:Tool019
System:Tools:Tool019
~:::Workspace:::
1



System:Tools:Tool020
System:Tools:Tool020
~:::Workspace:::
1



System:Tools:Tool021
System:Tools:Tool021
~:::Workspace:::
1



System:Tools:Tool022
System:Tools:Tool022
~:::Workspace:::
1



System:Tools:Tool023
System:Tools:Tool023
~:::Workspace:::
1



System:Tools:Tool027
System:Tools:Tool027
~:::Workspace:::
1



System:Tools:Tool028
System:Tools:Tool028
~:::Workspace:::
1



System:Tools:Tool034
System:Tools:Tool034
~:::Workspace:::
1



System:CDevs:SetStart
System:CDevs:SetStart
~:::Workspace:::
1



System:CDevs:General
System:CDevs:General
~:::Workspace:::
1



System:CDevs:RAM
System:CDevs:RAM
~:::Workspace:::
1



System:Start
System:SetStart.Sys16
~:::Workspace:::
1



System:P8
System:P8
~:::Workspace:::
1



:SystemTools2:System:Drivers:ATalk
System:Drivers:ATalk
~:::Workspace:::
1



:SystemTools2:System:Drivers:SCC.Manager
System:Drivers:SCC.Manager
~:::Workspace:::
1



:SystemTools2:System:System.Setup:ATResponder
System:System.Setup:ATResponder
~:::Workspace:::
1



:SystemTools2:System:System.Setup:ATInit
System:System.Setup:ATInit
~:::Workspace:::
1



:SystemTools2:System:FSTs:AppleShare.FST
System:FSTs:AppleShare.FST
~:::Workspace:::
1



:SystemTools2:System:CDevs:AppleShare
System:CDevs:AppleShare
~:::Workspace:::
1



:SystemTools2:System:CDevs:FolderPriv
System:CDevs:FolderPriv
~:::Workspace:::
1



:SystemTools2:System:CDevs:Network
System:CDevs:Network
~:::Workspace:::
1



:SystemTools2:AppleTalk:Start
System:Start
~:::Workspace:::
1



:SystemTools2:AppleTalk:Boot.Driver
System:Drivers:Boot.Driver
~:::Workspace:::
1



:SystemTools1:System:Finder
System:Finder
~:::Workspace:::
1



:SystemTools1:System:Fonts:Courier.10
System:Fonts:Courier.10
~:::Workspace:::
1



:SystemTools1:System:Fonts:Courier.12
System:Fonts:Courier.12
~:::Workspace:::
1



:SystemTools1:System:Fonts:Geneva.10
System:Fonts:Geneva.10
~:::Workspace:::
1



:SystemTools1:System:Fonts:Geneva.12
System:Fonts:Geneva.12
~:::Workspace:::
1



:SystemTools1:System:Fonts:Helvetica.10
System:Fonts:Helvetica.10
~:::Workspace:::
1



:SystemTools1:System:Fonts:Helvetica.12
System:Fonts:Helvetica.12
~:::Workspace:::
1



:SystemTools1:System:Fonts:Shaston.16
System:Fonts:Shaston.16
~:::Workspace:::
1



:SystemTools1:System:Fonts:Times.10
System:Fonts:Times.10
~:::Workspace:::
1



:SystemTools1:System:Fonts:Times.12
System:Fonts:Times.12
~:::Workspace:::
1



:SystemTools1:System:Fonts:Venice.14
System:Fonts:Venice.14
~:::Workspace:::
1



System:Fonts:FastFont
System:Fonts:FastFont
~:::Workspace:::
1



:SystemTools1:System:Tools:Tool025
System:Tools:Tool025
~:::Workspace:::
1



:SystemTools1:System:Tools:Tool026
System:Tools:Tool026
~:::Workspace:::
1



:SystemTools1:System:Tools:Tool029
System:Tools:Tool029
~:::Workspace:::
1



:SystemTools1:System:Drivers:ImageWriter
System:Drivers:ImageWriter
~:::Workspace:::
1



:SystemTools1:System:Drivers:Printer
System:Drivers:Printer
~:::Workspace:::
1



:SystemTools1:System:Drivers:Modem
System:Drivers:Modem
~:::Workspace:::
1



:SystemTools1:System:CDevs:Modem
System:CDevs:Modem
~:::Workspace:::
1



:SystemTools1:System:CDevs:Keyboard
System:CDevs:Keyboard
~:::Workspace:::
1



:SystemTools1:System:CDevs:Slots
System:CDevs:Slots
~:::Workspace:::
1



:SystemTools1:System:CDevs:Sound
System:CDevs:Sound
~:::Workspace:::
1



:SystemTools1:System:CDevs:Monitor
System:CDevs:Monitor
~:::Workspace:::
1



:SystemTools1:System:CDevs:Printer
System:CDevs:Printer
~:::Workspace:::
1



:SystemTools1:System:CDevs:Time
System:CDevs:Time
~:::Workspace:::
1



:SystemTools1:System:CDevs:DirectConnect
System:CDevs:DirectConnect
~:::Workspace:::
1



:SystemTools1:BASIC.System
BASIC.System
~~
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/InstallerScripts/Slinky b/IIGS.601.SRC/A.U.G/InstallerScripts/Slinky
new file mode 100644
index 0000000..83e07eb
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/InstallerScripts/Slinky
@@ -0,0 +1 @@
+SCRIPT

V2.00

RR2

Drive: Standard RAM Card
The script ÒDrive: Standard RAM CardÓ installs a file that will improve performance while accessing an Apple II Memory Expansion Card.\\
:SystemTools1~*

~:::Workspace:::
1



System:Drivers:A2.RAMCard
System:Drivers:A2.RAMCard
~~
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/InstallerScripts/Sounds.All b/IIGS.601.SRC/A.U.G/InstallerScripts/Sounds.All
new file mode 100644
index 0000000..7b1f424
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/InstallerScripts/Sounds.All
@@ -0,0 +1 @@
+SCRIPT

V2.00

RR2

Control Panel: Sounds
The script ÒControl Panel: SoundsÓ installs the Sound Control Panel and assorted sample sounds.\\
:SystemTools1~*

~:::Workspace:::
1



System:CDevs:Sound
System:CDevs:Sound
~:::Workspace:::
1



:SystemTools2:System:Sounds:Ahh
System:Sounds:Ahh
~:::Workspace:::
1



:SystemTools2:System:Sounds:DoorBell
System:Sounds:DoorBell
~:::Workspace:::
1



:SystemTools2:System:Sounds:Droplet
System:Sounds:Droplet
~:::Workspace:::
1



:SystemTools2:System:Sounds:Eastern
System:Sounds:Eastern
~:::Workspace:::
1



:SystemTools2:System:Sounds:Frog
System:Sounds:Frog
~:::Workspace:::
1



:SystemTools2:System:Sounds:PipeOrgan
System:Sounds:PipeOrgan
~:::Workspace:::
1



:SystemTools2:System:Sounds:Quack
System:Sounds:Quack
~:::Workspace:::
1



:SystemTools2:System:Sounds:SimpleBeep
System:Sounds:SimpleBeep
~:::Workspace:::
1



:SystemTools2:System:Sounds:Sosumi
System:Sounds:Sosumi
~:::Workspace:::
1



:SystemTools2:System:Sounds:Swish
System:Sounds:Swish
~:::Workspace:::
1



:SystemTools2:System:Sounds:Trumpets
System:Sounds:Trumpets
~:::Workspace:::
1



:SystemTools2:System:Sounds:Whoosh
System:Sounds:Whoosh
~~
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/InstallerScripts/Tape.Driver b/IIGS.601.SRC/A.U.G/InstallerScripts/Tape.Driver
new file mode 100644
index 0000000..e65e35c
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/InstallerScripts/Tape.Driver
@@ -0,0 +1 @@
+SCRIPT

V2.00

RR2

SCSI Tape Driver
This script installs the files necessary for you to use Tape Drives.  The selected disk must be a startup disk.\\
:SCSI.UTILITIES~*

~:::Workspace:::
2



AppleIIGS.Files:Drivers:SCSI.Manager
System:Drivers:SCSI.Manager
~:::Workspace:::
1



AppleIIGS.Files:Drivers:SCSITAPE.Driver
System:Drivers:SCSITAPE.Driver
~:::Workspace:::
2



AppleIIGS.Files:System:Start.GS.OS
System:Start.GS.OS
~:::Workspace:::
2



AppleIIGS.Files:System:GS.OS
System:GS.OS
~:::Workspace:::
2



AppleIIGS.Files:System:GS.OS.Dev
System:GS.OS.Dev
~~
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/InstallerScripts/Tape6.0 b/IIGS.601.SRC/A.U.G/InstallerScripts/Tape6.0
new file mode 100644
index 0000000..33610b5
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/InstallerScripts/Tape6.0
@@ -0,0 +1 @@
+SCRIPT

V2.00

RR2

Drive: SCSI Tape
The script ÒDrive: SCSI TapeÓ installs the files necessary for you to use the Apple Tape drive.  The selected disk must be a startup disk.\\
:SystemTools1~*

~:::Workspace:::
3




System:Drivers:SCSI.Driver
~:::Workspace:::
1



:Install:System:Drivers:SCSI.Manager
System:Drivers:SCSI.Manager
~:::Workspace:::
1



System:Drivers:SCSITape.Driver
System:Drivers:SCSITape.Driver
~~
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/InstallerScripts/TeachGS b/IIGS.601.SRC/A.U.G/InstallerScripts/TeachGS
new file mode 100644
index 0000000..fd9be60
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/InstallerScripts/TeachGS
@@ -0,0 +1 @@
+SCRIPT

V2.00

XR2

Application: Teach
The script ÒApplication: TeachÓ installs the files necessary to update the Teach program.  It also installs ÒRead.MeÓ, ÒShortcutsÓ, and ÒWhats.NewÓ.  These files will be installed in the selected folder.\\
:SystemTools2~*

~:::Workspace:::
1



Teach
Teach
~:::Workspace:::
1



Read.Me
Read.Me
~:::Workspace:::
1



Shortcuts
Shortcuts
~:::Workspace:::
1



Whats.New
Whats.New
~~
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/InstallerScripts/UNIDISK3.5 b/IIGS.601.SRC/A.U.G/InstallerScripts/UNIDISK3.5
new file mode 100644
index 0000000..3e295e0
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/InstallerScripts/UNIDISK3.5
@@ -0,0 +1 @@
+SCRIPT

V2.00

RR2

Drive: UniDisk 3.5
The script ÒDrive: UniDisk 3.5Ó installs the files necessary for you to use UniDisk 3.5-inch disk drives.  The selected disk must be a startup disk.\\
:Install~*

~:::Workspace:::
1



System:Drivers:UniDisk3.5
System:Drivers:UniDisk3.5
~~
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/InstallerScripts/VIDEOMIX b/IIGS.601.SRC/A.U.G/InstallerScripts/VIDEOMIX
new file mode 100644
index 0000000..4b036e1
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/InstallerScripts/VIDEOMIX
@@ -0,0 +1 @@
+SCRIPT

V2.00

RR2

Media: VideoMix
The script ÒMedia: VideoMixÓ installs the files necessary for you to use the VideoMix new desk accessory, in conjunction with the Video Overlay Card.  The selected disk must be a startup disk.\\
:SystemTools2~*

~:::Workspace:::
3




System:Desk.Accs:VideoMix.NDA
~:::Workspace:::
1



System:Desk.Accs:VideoMix
System:Desk.Accs:VideoMix
~:::Workspace:::
1



System:Tools:Tool033
System:Tools:Tool033
~:::Workspace:::
1



System:System.Setup:AppleIIVOC
System:System.Setup:AppleIIVOC
~~
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/InstallerScripts/VideoKeyboard b/IIGS.601.SRC/A.U.G/InstallerScripts/VideoKeyboard
new file mode 100644
index 0000000..2ccb2c3
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/InstallerScripts/VideoKeyboard
@@ -0,0 +1 @@
+SCRIPT

V2.00

RR2

Special Aids: VideoKeyboard
The script ÒSpecial Aids: VideoKeyboardÓ installs the Video Keyboard new desk accessory, which displays a keyboard on the screen to let you enter text using the mouse or another pointing device.

Video Keyboard will appear under the Apple menu of applications that support NDAs.  The selected disk must be a startup disk.\\
:SystemTools2~*

~:::Workspace:::
1



System:Desk.Accs:VideoKeyboard
System:Desk.Accs:VideoKeyboard
~~
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/InstallerScripts/stuff b/IIGS.601.SRC/A.U.G/InstallerScripts/stuff
new file mode 100644
index 0000000..a8fddf0
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/InstallerScripts/stuff
@@ -0,0 +1 @@
+this is a test
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/InstallerScripts/stylewriter b/IIGS.601.SRC/A.U.G/InstallerScripts/stylewriter
new file mode 100644
index 0000000..b16c22a
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/InstallerScripts/stylewriter
@@ -0,0 +1 @@
+SCRIPT

V2.00

RR2

Printer: StyleWriter
The script ÒPrinter: StyleWriterÓ installs the files necessary for you to use the StyleWriter printer connected directly to the printer/modem port.  The selected disk must be a startup disk.\\
:SystemTools1~*

~:::Workspace:::
1



System:Drivers:StyleWriter
System:Drivers:StyleWriter
~:::Workspace:::
1



System:Drivers:Printer
System:Drivers:Printer
~:::Workspace:::
1



System:Drivers:Modem
System:Drivers:Modem
~:::Workspace:::
1



System:CDevs:DirectConnect
System:CDevs:DirectConnect
~~
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/InstallerScripts/synthLAB b/IIGS.601.SRC/A.U.G/InstallerScripts/synthLAB
new file mode 100644
index 0000000..d24535f
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/InstallerScripts/synthLAB
@@ -0,0 +1 @@
+SCRIPT

V2.00

Rr2

Application: synthLAB
The script ÒApplication: synthLABÓ installs the files necessary for you to use the synthLAB application.  Install this on your System 6 startup disk.\\
:synthLAB~*

~:::Workspace:::
1



MIDI
System:Cdevs:MIDI
~:::Workspace:::
1



Tool035
System:Tools:Tool035
~:::Workspace:::
1



Icons:SL.Icons
Icons:SL.Icons
~:::Workspace:::
1



synthLAB
synthLAB:synthLAB
~:::Workspace:::
1



Seq.and.Instr:Combo.bnk
synthLAB:Seq.and.Instr:Combo.bnk
~:::Workspace:::
1



Seq.and.Instr:Demo.bnk
synthLAB:Seq.and.Instr:Demo.bnk
~:::Workspace:::
1



Seq.and.Instr:Orch.bnk
synthLAB:Seq.and.Instr:Orch.bnk
~:::Workspace:::
1



Seq.and.Instr:Piano.bnk
synthLAB:Seq.and.Instr:Piano.bnk
~:::Workspace:::
1



Seq.and.Instr:Bee.Seq
synthLAB:Seq.and.Instr:Bee.Seq
~:::Workspace:::
1



Seq.and.Instr:Capri.Seq
synthLAB:Seq.and.Instr:Capri.Seq
~:::Workspace:::
1



Seq.and.Instr:Fugue.Seq
synthLAB:Seq.and.Instr:Fugue.Seq
~:::Workspace:::
1



Seq.and.Instr:Midsummer.Seq
synthLAB:Seq.and.Instr:Midsummer.Seq
~:::Workspace:::
1



Seq.and.Instr:Rhythm.Seq
synthLAB:Seq.and.Instr:Rhythm.Seq
~:::Workspace:::
1



Seq.and.Instr:Sonata.Seq
synthLAB:Seq.and.Instr:Sonata.Seq
~:::Workspace:::
1



Seq.and.Instr:COMBO.Wav
synthLAB:Seq.and.Instr:COMBO.Wav
~:::Workspace:::
1



Seq.and.Instr:Demo.Wav
synthLAB:Seq.and.Instr:Demo.Wav
~:::Workspace:::
1



Seq.and.Instr:Piano.Wav
synthLAB:Seq.and.Instr:Piano.Wav
~:::Workspace:::
1



Seq.and.Instr:Orch.Wav
synthLAB:Seq.and.Instr:Orch.Wav
~:::Workspace:::
1



Seq.and.Instr:Synth.Bnk
synthLAB:Seq.and.Instr:Synth.Bnk
~:::Workspace:::
1



Seq.and.Instr:Synth.Wav
synthLAB:Seq.and.Instr:Synth.Wav
~:::Workspace:::
1



Seq.and.Instr:Synth.Seq
synthLAB:Seq.and.Instr:Synth.Seq
~~
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/MediaCtl/AppleCDSC/AppleCDSC.aii b/IIGS.601.SRC/A.U.G/MediaCtl/AppleCDSC/AppleCDSC.aii
new file mode 100644
index 0000000..33be972
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/MediaCtl/AppleCDSC/AppleCDSC.aii
@@ -0,0 +1 @@
+****************************************************************
*
*	This is the Apple CD-SC Multi Media Driver 
*
****************************************************************
*	Copyright Apple Computer, Inc. 1989,1990
*	All rights reserved.
*
*	Programmed by: Dan Hitchens, Feb. 1990
*
****************************************************************
*******************************************************************************
*
* Revision History
*
* 1.0d9	4/4/90
*DDH		-Changed aux type to media control driver aux type $0420 (the $20 part
*			 reflects SCSI device.)
*			-Just more development.
*
* 1.0d11 4/26/90
*DDH		-McSetAudio now works.
*			-Changed the way McPlay works.
*
* 1.0d12 5/24/90
*DDH		-Added code to support time searches (not yet finished)
*			-Fixed so MCDShutDown shuts down correctly without errors
*        7/9/90
;			-Added MCGetFeatures routine
* 1.0d15 8/23/90
*DDH		-Added code to set to end of disc when stop is set for play type commands
*           -Added more code to MCGetFeatures
*           -MCStop command to tables
* 1.0d16 9/13/90
*DDH		-Took out MCGetDiscTitle, MCSetDiscTitle,MCGetTrackTitle, MCSetTrackTitle,
*			 MCGetProgram, and MCSetProgram.
*           -McGetDiscID now works
*           -McGetDiscTOC has changed and now works
*			_McSearchTo now works correctly for track searches (pass track as binary)
*			-Driver should now be alpha
* 1.0d19 (DDH)
*			-Changed MCGetName, MCGetSpeeds to pass the string pointer to
*			 where you want the resutant string to go instead of using TML
*			 pascal's string function method.
*
* 1.0d20 (DDH)
*			-Fixed MCControl where mcCUnLockDev and mcCLockDev didn't work.
*			-Changed MCPlay command to always check for playing before start of
*			 audio part of disc (searchs are not accurate and can place head
*			 before start of audio portion +-75 frames. If before audio portion we now
*			 set it to the start of the audio portion.
*			-Fixed MCJogN bug where it was crashing because it did an EXIT12
*			 instead of an EXIT10.
*			-Rewrote MCJogN inTimes to work correctly (was giving strange errors.)
*
* D21 (DDH)
*			-Fixed MCGetname to be restartable.
*
* D23 (DDH)
*			-Added MCWaitRawData call (was left out for some reason.)
*			-Added MCSetVolume call
*			-Fixed so will default to not report disk switched errors.
*			-MCGetFeatures (mcFVolume will return 0=old CD drive, 1=new CD drive)
*
* D24 (DDH)
*			-Added jsl DecBusyFlg routine to dynamic exits because were not reenterant.
*			-Fixed bugs in MCJog where it would only allow jogging max of seven
*			 tracks (took out and #0007?)
*			-Fixed bug where MCJog was returning $2612 for min., sec. equal zero
*			 (was only checking low 16-bits for zero, should have check all 32 bits.)
*
* D28 (DDH)
*			-Fixed MCGetStatus where it wasn't able to determine the play status
*			 when it played to the end of the disc.  (we now returned still)
*
* D31 (DDH)
*			-Fixed mixed mode CD problems with $FE02, $7E02, and $00f1 errors.
*
* D35 (DDH)
*			-Fixed MCGetTimes, remaining disk returning incorrect values.
*			-McGetStatus calls will now return offline, diskswitched etc. errors.
*
* F3 (DDH)
*			-Fixed McJogN with chapters not joging correctly backwards
*
* F4 (DDH
*			-Fixed McJogN when at the last track problem.
*
*******************************************************************************
			include 'all.macros'
			include 'E16.GSOS'
			
			Entry	EntryStuff
			Entry	MCGetName
			Entry	MCDStartUp
			Entry	MCDShutDown
			Entry	MCGetFeatures
			Entry	MCPlay
			Entry	MCPause
			Entry	MCSendRawData
			Entry	CvtTime2ASCII
			Entry	MCGetStatus
			Entry	MCControl
			Entry	MCScan
			Entry	MCGetSpeeds
			Entry	MCSpeed
			Entry	MCStopAt
			Entry	MCJogN
			Entry	McSearchTo
			Entry	McSearchDone
			Entry	McSearchWait
			Entry	MCGetPosition
			Entry	McSetAudio
			Entry	McGetTimes
			Entry	McGetNoTracks
			Entry	McGetDiscTOC
			Entry	McGetDiscID
			Entry	McRecord
			Entry	McStop
			Entry	McWaitRawData
			Entry	McSetVolume
			
			Entry	CR
			Entry	ScratchStr
			Entry	MyBCDTime
			Entry	CurrSpeed
			Entry	BlankNextVideo
			Entry	AudioMode
			Entry	AudioSField
			Entry	GetAudioStat
			Entry	PlayAtCurr
			Entry	DoPause
			Entry	StopFlag
			Entry	TOCData
			Entry	StopType
			Entry	StopAddr
			Entry	StopDNum
			Entry	StopDCtrlBlk
			Entry	DSFlag
             	
***************************************************************
*
* Direct page equates
*
***************************************************************
DirectStack	equ 10
DS3			equ	DirectStack+3	;direct stack plus phd and phb

DirectPage	equ 0
DP0			equ 0
DP1			equ 1
DP2			equ 2
DP3			equ 3
DP4			equ 4
DP5			equ 5
DP6			equ 6
DP7			equ 7
DP8			equ 8
DP9			equ 9

DataTrack	equ $00f1
DataTrack2	equ $fe02
DataTrack3	equ $7e02

***************************************************************
*
* Equates
*
***************************************************************
DecBusyFlg 	equ $e10068				;Dec. busy flag routine
VersionNo	equ $0100	;version no. 1.00
InChapters	equ 1
InFrames	equ 2
InTimes		equ 3

;------------------------------
;Control values for MCControl
;------------------------------
mcCInit		equ 1					;initilize player
mcCEject	equ 2					;eject disc
mcCVideoOn	equ 3					;turn video on
mcCVideoOff	equ 4					;turn video off
mcCDisplayOn equ 5					;turn video position display off
mcCDisplayOff equ 6					;turn vidoe position display on
mcCBlankVideo equ 7					;blank video for next MCSearchTo
mcCDefaultCom equ 8					;set default communications
mcCLockDev 	equ 9		 			;set the device to locked
mcCUnLockDev equ 10					;unlock the device

mcC8Data1Stop equ 40				;set 8-data 1-stop bit
mcC7Data1Stop equ 41				;set 7-data 1-stop bit
mcC6Data1Stop equ 42				;set 6-data 1-stop bit
mcC5Data1Stop equ 43				;set 5-data 1-stop bit
mcC8Data2Stop equ 44				;set 8-data 2-stop bit
mcC7Data2Stop equ 45				;set 7-data 2-stop bit
mcC6Data2Stop equ 46				;set 6-data 2-stop bit
mcC5Data2Stop equ 47				;set 5-data 2-stop bit

mcCBaudDflt	equ 50					;set baud rate to control panel setting
mcCBaud50	equ 51					;set 50 baud
mcCBaud75	equ 52					;set 75 baud
mcCBaud110	equ 53					;set 110 baud
mcCBaud134	equ 54					;set 134.5 baud
mcCBaud150	equ 55					;set 150 baud
mcCBaud300	equ 56					;set 300 baud
mcCBaud600	equ 57					;set 600 baud
mcCBaud1200	equ 58					;set 1200 baud
mcCBaud1800	equ 59					;set 1800 baud
mcCBaud2400 equ 60					;set 2400 baud
mcCBaud3600	equ 61					;set 3600 baud
mcCBaud4800 equ 62					;set 4800 baud
mcCBaud7200	equ 63					;set 7200 baud
mcCBaud9600 equ	64					;set 9600 baud
mcCBaud19200 equ 65					;set 19200 baud

mcCModem	equ 100					;set to modem port
mcCPrinter	equ 101					;set to printer port

mcCIgnoreDS	equ 200					;Ignore disk switched errors (dont report them to user)
mcCReportDS	equ 201					;Report disk switched errors to user

;------------------------------
;Status values for MCGetStatus
;------------------------------
mcSUnknown		equ 0				;player unable to determine this status
mcSDeviceType	equ $0000			;device type selector
mcSLaserDisc	equ 1
mcSCDAudio		equ 2
mcSLaserCD		equ 3
mcSVCR			equ 4
mcSCamCorder	equ 5
mcSPlayStatus	equ $0001			;play status selector value
mcSPlaying		equ 1
mcSStill		equ 2
mcSParked		equ 3
mcSDoorStatus	equ $0002			;players door status
mcSDoorOpen		equ 1
mcSDoorClosed	equ 2
mcSDiscType		equ	$0003			;disc type selector value
mcS_CLV			equ 1
mcS_CAV			equ	2
mcS_CDV			equ 3
mcS_CD			equ 4
mcSDiscSize		equ $0004			;disc size selector value
mcSDisc3inch	equ 3
mcSDisc5inch	equ 5
mcSDisc8inch	equ 8
mcSDisc12inch	equ 12
mcSDiscSide		equ $0005			;disc side selector value
mcSSideOne		equ 1
mcSSideTwo		equ 2
mcSVolumeL		equ $0006			;left volume value
mcSVolumeR		equ $0007			;right volume value

;------------------------------
;Audio values
;------------------------------
AudioOff	equ 0		;Audio Off
AudioRight	equ 1		;Audio Right channel only
AudioLinR	equ 2		;Audio left in right only
AudioMinR	equ 3		;Audio mixed in right only
AudioRinL	equ 4		;Audio right in left only
AudioRinLR	equ 5		;Audio right in left and right
AudioReverse equ 6		;Audio right in left, left in right
AudioRinLMR	equ 7		;Audio right in left, mixed in right
AudioLeft	equ 8		;Audio left channel only
AudioStereo	equ 9		;Audio Both Channels (Stereo)
AudioLinLR	equ 10		;Audio left in left and right
AudioLinLMR	equ 11		;Audio left in left, mixed in right
AudioMinL	equ 12		;Audio mixed in left only
AudioMinLRinR equ 13	;Audio mixed in left, right in right
AudioMinLLinR equ 14	;Audio mixed in left, left in right
AudioMonaural equ 15	;Audio mixed in left and right (monaural)

;------------------------------
;McGetTimes values
;------------------------------
mcElapsedTrack equ 0	;Elapsed time on current track/chapter
mcRemainTrack equ 1		;Remaining time on curr. track/chapter
mcElapsedDisc equ 2		;Elapsed time on disc
mcRemainDisc equ 3		;Remaining time on disc
mcTotalDisc	equ 4		;Total run time on disc

mcTotalFrames equ 5		;Returns total no. of frames on disc
mcTracks	equ 6		;Returns the first and last track numbers
mcDiscID	equ 7		;Returns a disc identifier


***************************************************************
*
* Error Equates
*
***************************************************************
UnImp		equ $2601			;Unimplemented for this device
NotApplic	equ UnImp			;Not applicable to this device
BadSpeed	equ $2602			;Invalid speed specified
BadUnitType	equ $2603			;Invalid unit type specified
TimeOutErr	equ $2604			;Timed out during device read
NotLoaded	equ $2605			;Driver was not loaded?
BadAudio	equ $2606			;Invalid Audio Value
DevRtnError	equ $2607			;Device returned error (unable to perform)
UnRecStatus	equ $2608			;Unrecognizable status from device
BadSelector	equ $2609			;Invalid selector value specified
FunnyData	equ	$260a			;funny data receive (retry again)
InvalidPort	equ $260b			;invalid port specified
OnlyOnce	equ $260c			;scans only once
NoResMgr	equ $260d			;Resource manager not active
ItemNotFound equ $260e			;Item Not found in database
WasShutdown equ $260f			;tool was already shutdown
WasStarted	equ $2610			;tool was already started
BadChannel	equ $2611			;invalid channel number
InvalidParam equ $2612			;Invalid Parameter
CallNotSupported equ $2613		;call not supported error

***************************************************************
*
* Driver Header and Vectors Routine
*
***************************************************************
AppleCDSCDrvr PROC
			longi on
			longa on
			DC.W	0				;Driver Marker
			DC.W	(EndVector-DriverVtrs)/4	;count of calls supported

			jmp		EntryStuff
			DC.W	VersionNo			;Drivers version number (version 1.0)
			str 'AppleCDSC'				;Drivers name
			
			Export DriverVtrs
DriverVtrs
			DC.L	MCGetName			;0 Gets the drivers name and version
			DC.L	MCDStartUp			;1 Starts up the driver
			DC.L	MCDShutDown			;2 Shuts down the driver
			DC.L	MCGetFeatures		;3 Gets features
			DC.L	MCPlay				;4 Play the device
			DC.L	MCPause				;5 Pause device
			DC.L	MCSendRawData		;6 Send raw data to the device
			DC.L	MCGetStatus			;7 Return device status info
			DC.L	MCControl			;8 Sets device control info
			DC.L	MCScan				;9 Scan forward or reverse
			DC.L	MCGetSpeeds			;10 Returns Valid Speeds
			DC.L	MCSpeed  			;11  Sets Speed for MCPlay
			DC.L	MCStopAt			;12  Sets stopping point
			DC.L	MCJogN				;13  Jog device n units
			DC.L	MCSearchTo			;14  Search to location
			DC.L	MCSearchDone		;15  Status of if done
			DC.L	MCSearchWait		;16  Waits for search to finish
			DC.L	MCGetPosition		;17  Returns current position
			DC.L	MCSetAudio			;18  Controls audio
			DC.L	MCGetTimes			;19  Gets disc times
			DC.L	MCGetDiscTOC		;20  Gets discs table of contents
			DC.L	MCGetDiscID			;21  Gets discs ID
			DC.L	MCGetNoTracks		;22	 Gets discs no. of tracks
			DC.L	MCRecord			;23	 Puts device into record mode
			DC.L	MCStop				;24  Stops the device
			DC.L	MCWaitRawData		;25  Waits for raw data
			DC.L	MCSetVolume			;26  Sets the volume

EndVector
			ENDP
			longi on
			longa on

;-------------------------------------------------------------------
;
;  NAME:		EntryStuff
;
;  PURPOSE:		To save registers and setup direct page on stack space
;
;  PASSED:		(X-reg.)= offset into "GPortVtrs" to called routine
;
;  RETURNED:	None (vectors directly to called routine)
;
;-------------------------------------------------------------------
EntryStuff	PROC
			Definestack

			phd							;save direct page
			phb							;save bank register
;set bank register (B-reg.) to programs bank (K-register)
			phk
			plb
;reserve 10 bytes from stack for direct page
			tsc							;get stack value
			sec
			sbc #DirectStack			;reserve 10 bytes for d-page
			tcs
			inc a						;inc. by one for d-page start
			tcd							;set direct page address

			jmp (DriverVtrs,x)			;vector to called routine
			ENDP

;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;
; Dynamic Exits
;
;
; Each dynamic exit	takes 2 RTL's and moves them some number of bytes up the
; stack.
;
;------------------------------------------------------------------------------
;-----------------------------------------------------------------------------

DynamicExits	PROC EXPORT
	EXPORT exit20
exit20
	tax
;Restore B-reg.
	lda DirectStack,s		;get saved B-reg. into bits 7-4
	pha						;save onto stack
	plb						;get rid of 8-bits
	plb						;now restore the b-register	
;Restore D-reg.
	lda DirectStack+2,s
	tcd

	lda DS3+5,s
	sta DS3+25,s
	lda DS3+3,s
	sta DS3+23,s
	lda DS3+1,s
	sta DS3+21,s
	tsc
	clc
	adc #20
	tcs
	brl exit0x

	EXPORT Exit16
Exit16
	tax
;Restore B-reg.
	lda DirectStack,s		;get saved B-reg. into bits 7-4
	pha						;save onto stack
	plb						;get rid of 8-bits
	plb						;now restore the b-register	
;Restore D-reg.
	lda DirectStack+2,s
	tcd

	lda DS3+5,s
	sta DS3+21,s
	lda DS3+3,s
	sta DS3+19,s
	lda DS3+1,s
	sta DS3+17,s
	tsc
	clc
	adc #16
	tcs
	brl Exit0x

	EXPORT Exit14
Exit14
	tax
;Restore B-reg.
	lda DirectStack,s		;get saved B-reg. into bits 7-4
	pha						;save onto stack
	plb						;get rid of 8-bits
	plb						;now restore the b-register	
;Restore D-reg.
	lda DirectStack+2,s
	tcd

	lda DS3+5,s
	sta DS3+19,s
	lda DS3+3,s
	sta DS3+17,s
	lda DS3+1,s
	sta DS3+15,s
	tsc
	clc
	adc #14
	tcs
	brl Exit0x

	EXPORT Exit12
Exit12
	tax
;Restore B-reg.
	lda DirectStack,s		;get saved B-reg. into bits 7-4
	pha						;save onto stack
	plb						;get rid of 8-bits
	plb						;now restore the b-register	
;Restore D-reg.
	lda DirectStack+2,s
	tcd

	lda DS3+5,s
	sta DS3+17,s
	lda DS3+3,s
	sta DS3+15,s
	lda DS3+1,s
	sta DS3+13,s
	tsc
	clc
	adc #12
	tcs
	brl Exit0x



	EXPORT Exit10
Exit10
	tax
;Restore B-reg.
	lda DirectStack,s		;get saved B-reg. into bits 7-4
	pha						;save onto stack
	plb						;get rid of 8-bits
	plb						;now restore the b-register	
;Restore D-reg.
	lda DirectStack+2,s
	tcd

	lda DS3+5,s
	sta DS3+15,s
	lda DS3+3,s
	sta DS3+13,s
	lda DS3+1,s
	sta DS3+11,s
	pla
	pla
	pla
	pla
	pla
	brl exit0x


	EXPORT Exit8
Exit8
	tax
;Restore B-reg.
	lda DirectStack,s		;get saved B-reg. into bits 7-4
	pha						;save onto stack
	plb						;get rid of 8-bits
	plb						;now restore the b-register	
;Restore D-reg.
	lda DirectStack+2,s
	tcd

	lda DS3+5,s
	sta DS3+13,s
	lda DS3+3,s
	sta DS3+11,s
	lda DS3+1,s
	sta DS3+9,s
	pla
	pla
	pla
	pla
	brl Exit0x



	EXPORT Exit6
Exit6
	tax
;Restore B-reg.
	lda DirectStack,s		;get saved B-reg. into bits 7-4
	pha						;save onto stack
	plb						;get rid of 8-bits
	plb						;now restore the b-register	
;Restore D-reg.
	lda DirectStack+2,s
	tcd

	lda DS3+5,s
	sta DS3+11,s
	lda DS3+3,s
	sta DS3+9,s
	lda DS3+1,s
	sta DS3+7,s
	pla
	pla
	pla
	brl Exit0x


	EXPORT Exit4
Exit4
	tax
;Restore B-reg.
	lda DirectStack,s		;get saved B-reg. into bits 7-4
	pha						;save onto stack
	plb						;get rid of 8-bits
	plb						;now restore the b-register	
;Restore D-reg.
	lda DirectStack+2,s
	tcd

	lda DS3+5,s
	sta DS3+9,s
	lda DS3+3,s
	sta DS3+7,s
	lda DS3+1,s
	sta DS3+5,s
	pla
	pla
	bra Exit0x


	EXPORT Exit2
Exit2
	tax
;Restore B-reg.
	lda DirectStack,s		;get saved B-reg. into bits 7-4
	pha						;save onto stack
	plb						;get rid of 8-bits
	plb						;now restore the b-register	
;Restore D-reg.
	lda DirectStack+2,s
	tcd

	lda DS3+5,s
	sta DS3+7,s
	lda DS3+3,s
	sta DS3+5,s
	lda DS3+1,s
	sta DS3+3,s
	pla
	bra Exit0x

;
;This clears up the stack and restores registers
;
	EXPORT Exit0
Exit0
	tax						;save A-reg in X-reg
;Restore B-reg.
	lda DirectStack,s		;get saved B-reg. into bits 7-4
	pha						;save onto stack
	plb						;get rid of 8-bits
	plb						;now restore the b-register	
;Restore D-reg.
	lda DirectStack+2,s
	tcd

Exit0x
;Get rid of direct page from stack
	tsc						;get stack pointer
	clc
	adc #DS3				;take out direct page area and D & B reg. saves
	tcs
	
	txa						;restore A-reg.
;Dec. busy flag because were not reentereant
	pha						;save error for return
	jsl DecBusyFlg			;dec. busy flag
	pla						;restore error

	cmp #1					;sets carry if A-reg. not zero
	rtl
	ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCGetName
;
;  PURPOSE:		Returns the drivers name and version number.
;
;  PASSED:		McChannelNo		WORD	;channel number
;				NameStrPtr		LONG	;string buffer ptr to returned driver name & version no.
;
;
;  RETURNED:	NONE
;-------------------------------------------------------------------
MCGetName 	PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
RetName 	long
ChannelNo	word

;Copy over the name and version of the driver
			PushLong #DriverNamStr
;Get the destiniation from the passed RetName
			lda RetName+6,s
			pha
			lda RetName+6,s
			pha
;Now get the no. of bytes from the string
			lda #0
			pha
			lda DriverNamStr	;get length of string
			and #$00ff			;mask only length
			inc a				;for length byte
			pha
			_blockmove			;move it

			lda #0
			jmp Exit6
			
;NOTE: ConnectPort must follow DriverNamStr (dont add anything between.)
			EXPORT DriverNamStr
DriverNamStr str 'MCToolkit AppleCDSC 1.0'
			EXPORT ConnectPort
ConnectPort	dcb.b 36,0			;Connected ports name(stuffed by MCDStartUp)
			EXPORT DriverNLen
DriverNLen	dc.w ConnectPort-DriverNamStr-1

			ENDP
;-------------------------------------------------------------------
;
;  NAME:		MCDStartUp & MCDShutdown
;
;  PURPOSE:		Initializes and starts up the media device driver
;
;  PASSED:		McChannelNo		WORD	;channel number
;				PortNamePtr		LONG	;pointer to port name string
;				UserID			WORD	;drivers userid
;
;  RETURNED:	None
;
;-------------------------------------------------------------------
MCDStartUp 	PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
USERID		word
PortNamePtr	long
ChannelNo	word


;First lets see if its already been opened
			lda BeenOpen
			beq NotOpened		;branch if not open
			brl AlreadyOpen		;jmp if already opened
			
;Now init. a few things
NotOpened
			lda USERID,s
			sta DUserID			;save drivers userid
			
			lda #0				;init. device number to zero
			sta DIDevNum
			sta CloseRefNum		;init to zero incase we dont open ok

;First copy over the selected ports name for MCGetName
			lda PortNamePtr+2,s	;get the high bytes of pointer
			pha
			lda PortNamePtr+2,s	;get the low bytes of pointer
			pha
			pushlong #ConnectPort	;destination
			pushlong #36		;no. of bytes to move
			_blockmove			;move it
;Now adjust the string length bytes and put a blank in the ports length
			lda ConnectPort		;get port name length
			and #$00ff			;only want length
			sec					;because we want one more (for blank)
			adc DriverNLen		;add to drivers name length
			sep #$30			;8-bit mode
			sta DriverNamStr
			rep #$30			;back to 16-bit mode
			lda ConnectPort
			and #$ff00			;and out ports length byte
			ora #$0020			;or in a blank char.
			sta ConnectPort

;Now copy over the selected ports name for opening.
			lda PortNamePtr+2,s	;get the high bytes of pointer
			pha
			lda PortNamePtr+2,s	;get the low bytes of pointer
			pha
			pushlong #DIDevName+3	;destination
			pushlong #36		;no. of bytes to move
			_blockmove			;move it
			
			lda DIDevName+3		;now convert from P-string to GS/OS string
			and #$00ff
			sta DIDevName+2
			beq InvalErr		;branch if null name specified
;Now see what was specified (GS/OS device name starts with period) or (M) or (P)
			lda DIDevName+4
			and #$007f
			cmp #46				;see if its a period
			bne InvalErr		;error if not
;We arrive here if it starts with a period (GS/OS device)
;Now we need to determine the device number from its device name
			_GetDevNumberGS MyDevNumBlk
			bcs errOutjmp		;branch if error
			lda MyGetDevID		;get the returned device ID
			bra SelGSOSDev		;branch if selected a gsos device

			
InvalErr	lda #InvalidPort
errOutjmp	jmp NotFound		;else return with invalid port error

;We arrive here when we have found the ports device ID
SelGSOSDev
			sta MyDevID			;save it for now
			inc BeenOpen
;Now that its opened
			lda DIDevNum
			sta CtrlDevNum		;stuff device number

AlreadyOpen
			lda #0
NotFound
        	jmp Exit8
			
;--------------------------------------------------------------------
; MCDShutDown Code
;--------------------------------------------------------------------
			EXPORT MCDShutDown
MCDShutDown
			lda #0
;			ldx CloseRefNum		;get the opened files ref. no.
;			beq DidntOpen		;branch if never opened
			sta BeenOpen		;clear flag so we know its closed
			
;			_CloseGS MyCloseBlk	;close the opened file
DidntOpen
			jmp Exit2			
;=====================================================================

BeenOpen	dc.w	0			;flag to determine if this driver is open (0=closed)
			EXPORT DUserID
DUserID		dc.w	0			;saved drivers userid
			EXPORT MyDevID
MyDevID		dc.w	0			;saved opened device ID
MyError		dc.w	0
WantGSID	dc.w	0			;wanted GSOS device ID
;=====================================================================
DInfoBlock	dc.w	8			;Passed parameter count (PCount)
DIDevNum	dc.w	0			;Passed Device Number
			dc.l	DIDevName	;Passed Addr. of returned device name
DIstics		dc.w	0			;returned characteristics
DITotalBlks	dc.l	0			;returned total no. of blocks
DISlotNo	dc.w	0			;returned slot no.
DIUnitNo	dc.w	0			;returned unit no.
DIVersion	dc.w	0			;returned version no.
DIDevID		dc.w	0			;returned device ID

DIDevName	dc.w	36			;GSOS returned device name string
			dcb.b	38,0
;-------------------------
MyDevNumBlk	dc.w	2			;Passed PCount
			dc.l	DIDevName+2	;passed addr. of device name
MyGetDevID	dc.w	0			;returned device ID
;-------------------------
			EXPORT MyOpenBlk
MyOpenBlk	dc.w	3			;Passed PCount
MyRefNum	dc.w	0			;Returned File reference number
			dc.l	DIDevName+2	;Address of device name
			dc.w	3			;Passed requestAccess (Read, Write)
;-------------------------
MyCloseBlk	dc.w	1			;Passed PCount
CloseRefNum	dc.w	0			;Stuffed opened file ref. number
;-------------------------
MyCtrlBlk	dc.w	5			;Passed PCount
CtrlDevNum	dc.w	0			;Stuffed device control number
CtrlCode	dc.w	$0004		;SetWaitStatus
CtrlList	dc.l	MyCtrlList	;Control list addr.	
			dc.l	2			;request count
			dc.l	0			;Returned transfer count

MyCtrlList	dc.w	$8000		;Set to No Wait Mode
;-------------------------
MyReadBlk	dc.w	4			;Passed PCount
ReadRefNum	dc.w	0			;Stuffed Ref. number
			dc.l	RBuffer 	;Read Buffer Address
			dc.l	1			;Read Request count
ReadXCount	dc.l	0			;Returned transfer count

RBuffer 	dc.w	0			;Read buffer area (room for one byte)
;-------------------------

			ENDP


;-------------------------------------------------------------------
;
;  NAME:		MovePString
;
;  PURPOSE:		To Move a P-String indirectly from DP0 to DP2
;
;  PASSED:		DP4			;pointer to p-string destination area
;				DP0			;pointer to p-string source area
;
;  RETURNED:	None
;
;-------------------------------------------------------------------
MovePString PROC
			
;Now Send the Data back
			sep #$30				;set to 8-bit mode
			longa off
			longi off
			lda [DP0]				;get source strings length
			tay
			iny			
CopyLoop	dey
			lda [DP0],y
			sta [DP4],y
			cpy #0
			bne CopyLoop
			longa on
			longi on
			rep #$30
			rts
			ENDP

;-------------------------------------------------------------------
;
;  NAME:		CvtTime2ASCII
;
;  PURPOSE:		To convert a BCD time value to an ASCII string.
;				Long of MMSSFF00 BCD to MMSSFF ASCII string
;
;  PASSED:		Stuffed MyBCDTime (LONG) with BCD time value to convert
;
;  RETURNED:	ScratchStr will have the resultant ASCII P-string
;
;-------------------------------------------------------------------
CvtTime2ASCII PROC
			
;Now do the real work in 8-bit mode
			sep #$30				;set to 8-bit mode
			longa off
			longi off
			lda #6
			sta ScratchStr			;init byte count
;First do minutes (tens position)
			lda MyBCDTime
			lsr A
			lsr A
			lsr A
			lsr A
			ora #$30				;make ascii
			sta ScratchStr+1
;Now do minutes (ones position)
			lda MyBCDTime
			and #$0f
			ora #$30
			sta ScratchStr+2
;Now do Seconds (tens position)
			lda MyBCDTime+1
			lsr A
			lsr A
			lsr A
			lsr A
			ora #$30
			sta ScratchStr+3
;Now do Seconds (ones position)
			lda MyBCDTime+1
			and #$0f
			ora #$30
			sta ScratchStr+4
;Now do frames (tens position)
			lda MyBCDTime+2
			lsr A
			lsr A
			lsr A
			lsr A
			ora #$30
			sta ScratchStr+5
;Now do frames (ones position)
			lda MyBCDTime+2
			and #$0f
			ora #$30
			sta ScratchStr+6
			longa on
			longi on
			rep #$30				;set 16-bit mode
			rts
			
			EXPORT MyBCDTime
MyBCDTime	dc.l	0				;storage space for BCD Time
			EXPORT ScratchStr
ScratchStr	ds.b	256				;scratch string space area
			ENDP

;-------------------------------------------------------------------
;
;  NAME:		GetLocation
;
;  PURPOSE:		To get the current Q-Subcode location from the disc
;
;  PASSED:		None
;
;  RETURNED:	Carry=set if error; (A-reg.)=error number
;
;-------------------------------------------------------------------
GetLocation PROC
			lda MyDevID
			sta QSubDNum		;set device number			

			_DStatusGS QSubDStatBlk ;perform an ReadQSubcode call
			rts
;=====================================================================
;This is the DControl data block
QSubDStatBlk dc.w	5			;Passed parameter count (PCount)
QSubDNum	dc.w	0			;Passed device number (Stuffed)
QSubCode	dc.w	$80C2		;Passed code (ReadQSubcode)
			dc.l	QSubList	;Passed list pointer
			dc.l	9			;Passed request count
			dc.l	0			;Returned transfer count
;This is the status control list
QSubList	dc.w	0			;Passed zeros (reserved)
			dc.b	$C2			; 0 SCSI command
			dc.b	$00			; 1 SCSI flags
			dc.b	$00			; 2 
			dc.b	$00			; 3 
			dc.l	0			; 4 
			dc.b	0			; 8 
			dc.b	0			; 9 
			dc.w	0			; 10 
			dc.l	QSubData	;Buffer Pointer
			
QSubData
			EXPORT QCtrlField		
QCtrlField	dc.b	0
			EXPORT QTrack
QTrack		dc.b	0
			EXPORT QIndex
QIndex		dc.b	0
			EXPORT QMin
QMin		dc.b	0
			EXPORT QSec
QSec		dc.b	0
			EXPORT QFrame
QFrame		dc.b	0
			EXPORT QAMin
QAMin		dc.b	0
			EXPORT QASec
QASec		dc.b	0
			EXPORT QAFrame
QAFrame		dc.b	0
			ENDP

;-------------------------------------------------------------------
;
;  NAME:		GetTOC
;
;  PURPOSE:		To get the table of contents from the disc
;
;  PASSED:		(A-reg.)= TOCType byte
;
;  RETURNED:	Carry=set if error; (A-reg.)=error number
;
;-------------------------------------------------------------------
GetTOC PROC
			sta TOCType			;save type
			
			lda MyDevID
			sta TOCDNum			;set device number			

			_DStatusGS ReadTOCBlk ;perform a ReadTOC call
			rts
;=====================================================================
;This is the DControl data block
ReadTOCBlk 	dc.w	5			;Passed parameter count (PCount)
TOCDNum		dc.w	0			;Passed device number (Stuffed)
TOCCode		dc.w	$80C1		;Passed code (ReadQSubcode)
			dc.l	TOCList		;Passed list pointer
			dc.l	4			;Passed request count
			dc.l	0			;Returned transfer count
;This is the status control list
TOCList		dc.w	0			;Passed zeros (reserved)
			dc.b	$C1			; 0 SCSI command
			dc.b	$00			; 1 SCSI flags
			EXPORT TOCTrack
TOCTrack	dc.b	$00			; 2 Track number
			EXPORT TOCByte3
TOCByte3	dc.b	$00			; 3 
			dc.b	0			; 4
TOCType		dc.b	$40			; 5 TOC type byte
			dc.b	0			; 6
			EXPORT TOCByte7
TOCByte7	dc.b	0			; 7
			dc.b	0			; 8 
			dc.b	0			; 9 
			dc.w	0			; 10 
			dc.l	TOCData		;Buffer Pointer
			
			EXPORT TOCData
TOCData
			dc.l	0			;table of contents data area
			ENDP

;-------------------------------------------------------------------
;
;  NAME:		GetAudioStat
;
;  PURPOSE:		To get the current audio status
;
;  PASSED:		(A-reg.)= Status Type, (0=regular, 1=audio volume)
;
;  RETURNED:	Carry=set if error; (A-reg.)=error number
;
;-------------------------------------------------------------------
GetAudioStat PROC
			sta StatusType
			lda MyDevID
			sta AudioDNum		;set device number			

			_DStatusGS AudioStatBlk ;perform an AudioStatus call
			rts
;=====================================================================
;This is the DControl data block
AudioStatBlk dc.w	5			;Passed parameter count (PCount)
AudioDNum	dc.w	0			;Passed device number (Stuffed)
AudioSCode	dc.w	$80CC		;Passed code (AudioStatus)
			dc.l	AudioList	;Passed list pointer
			dc.l	6			;Passed request count
			dc.l	0			;Returned transfer count
;This is the status control list
AudioList	dc.w	0			;Passed zeros (reserved)
			dc.b	$CC			; 0 SCSI command
			dc.b	$00			; 1 SCSI flags
			dc.b	$00			; 2 
StatusType	dc.b	$00			; 3 
			dc.l	0			; 4 
			dc.b	0			; 8 
			dc.b	0			; 9 
			dc.w	0			; 10 
			dc.l	AudioSData	;Buffer Pointer
			
AudioSData
			EXPORT AudioSField
AudioSField	dc.b	0			;Audio Status Field
			dc.b	0			;Audio Play Mode
			dc.b	0			;Audio Control Field of next track
			dc.b	0			;Current Q-subcode (AMIN)
			dc.b	0			;Current Q-subcode (ASEC)
			dc.b	0			;Current Q-subcode (AFRAME)
			
			ENDP

;-------------------------------------------------------------------
;
;  NAME:		BCD2Dec
;
;  PURPOSE:		To convert a BCD to binary
;
;  PASSED:		(A)=word of BCD value to convert
;
;  RETURNED:	(A)=binary value
;
;-------------------------------------------------------------------
BCD2Dec 	PROC
			sta SaveIt
;First do ones digit
			and #$000f
			sta MyDecVal	;init and set to ones digit
;Now tens digit
			lsr SaveIt		;only rotate 3 bits (because word table)
			lsr SaveIt
			lsr SaveIt
			lda SaveIt
			and #$001E
			tax				;use as index
			lda X10,x		;get binary value
			clc
			adc MyDecVal	;add it in
			sta MyDecVal
;Now hundreds digit
			lsr SaveIt		;rotate 4-bits
			lsr SaveIt
			lsr SaveIt
			lsr SaveIt
			lda SaveIt
			and #$001E
			tax				;use as index
			lda X100,x		;get binary value
			clc
			adc MyDecVal	;add it in
			sta MyDecVal			
;Now thousands digit
			lsr SaveIt		;rotate 4-bits
			lsr SaveIt
			lsr SaveIt
			lsr SaveIt
			lda SaveIt
			and #$001E
			tax				;use as index
			lda X1000,x		;get binary value
			clc
			adc MyDecVal	;add it in
			sta MyDecVal			
			rts
			
SaveIt		dc.w	0		;save area for BCD value
MyDecVal	dc.w	0		;converted decimal value

X10			dc.w	0
			dc.w	10
			dc.w	20
			dc.w	30
			dc.w	40
			dc.w	50
			dc.w	60
			dc.w	70
			dc.w	80
			dc.w	90
X100		dc.w	0
			dc.w	100
			dc.w	200
			dc.w	300
			dc.w	400
			dc.w	500
			dc.w	600
			dc.w	700
			dc.w	800
			dc.w	900
x1000		dc.w	0
			dc.w	1000
			dc.w	2000
			dc.w	3000
			dc.w	4000
			dc.w	5000
			dc.w	6000
			dc.w	7000
			dc.w	8000
			dc.w	9000
			ENDP
;-------------------------------------------------
;
;	Name:		AddTime
;
;	Purpose:	To add passed value to AddData
;
;	Passed:		(X,A-reg.) BCD Value (HHMMSSFF)
;				stuff AddData with value to add (HHMMSSFF)
;
;	Returned:	(X,A-reg.) BCD Value (HHMMSSFF)
;-------------------------------------------------
AddTime	PROC
;Do this because 65816 stores low then high
		xba
		sta AddData2+2
		txa
		xba
		sta AddData2
;Now do the add
		sep #$38			;put into BCD 8-bit mode
		longa off
		longi off

;
;First do the Frames (0-74)
;
		lda AddData+3
		clc
		adc AddData2+3
		bcs CT1
;If no carry thru, then check to see if over 74
		cmp #$75
		bcc NCT1			;branch if less than
		sec
		sbc #$75			;if over, subtract out diff.
		sec					;make sure carry is set
		bra NCT1
;If we have a carry thru then we need to add 25
CT1		adc #$24			;remember carry is set
		sec		
NCT1	sta AddData2+3	

;
;Now do the Seconds (0-59)
;
		lda AddData+2
		adc AddData2+2
		bcs CT2
;If no carry thru, then check to see if over 59
		cmp #$60
		bcc NCT2			;branch if less than
		sec
		sbc #$60			;if over, subtract out diff.
		sec					;make sure carry is set
		bra NCT2
;If we have a carry thru then we need to add 40
CT2		adc #$39			;remember carry is set
		sec		
NCT2	sta AddData2+2

;
;Now do the Minutes (0-99)
;
		lda AddData+1
		adc AddData2+1
NCT3	sta AddData2+1

		rep #$38			;back to 16-bits and binary mode
		longa on
		longi on
		lda AddData2
		xba
		tax
		lda AddData2+2
		xba
		rts
		EXPORT AddData		
AddData	ds.l	1			;The add data area
		EXPORT AddData2
AddData2 ds.l	1			;The other add data area
		ENDP
		
;-------------------------------------------------
;
;	Name:		SubTime
;
;	Purpose:	To subtract passed value from AddData
;
;	Passed:		(X,A-reg.) BCD Value (HHMMSSFF)
;				stuff AddData with value to add (HHMMSSFF)
;
;	Returned:	(X,A-reg.) BCD Value (HHMMSSFF)
;-------------------------------------------------
SubTime	PROC
;Do this because 65816 stores low then high
		xba
		sta AddData2+2
		txa
		xba
		sta AddData2
;Now do the add
		sep #$38			;put into BCD 8-bit mode
		longa off
		longi off

;
;First do the Frames (0-74)
;
		lda AddData+3
		sec
		sbc AddData2+3
		bcs NCT1
;If carry=0 then subtract 75
		sec
		sbc #$25
		clc
NCT1	php					;save carry
;if greater than 75 then we must subtract out 25
		cmp #$75
		bcc XT1
		sec
		sbc #$25
XT1		plp
		sta AddData2+3	

;
;Now do the Seconds (0-59)
;
		lda AddData+2

		sbc AddData2+2
		bcs NCT2
;If carry=0 then subtract 40
		sec
		sbc #$40
		clc
NCT2	php					;save carry
;if greater than 60 then we must subtract out 40
		cmp #$60
		bcc XT2
		sec
		sbc $40
XT2		plp
		sta AddData2+2	


;
;Now do the Minutes (0-99)
;
		lda AddData+1

		sbc AddData2+1
		bcs NCT3
;If carry=0 then subtract 40
		sec
		sbc #$40
		clc
NCT3
XT3		
		sta AddData2+1	



		rep #$38			;back to 16-bits and binary mode
		longa on
		longi on
		lda AddData2
		xba
		tax
		lda AddData2+2
		xba
		rts

		ENDP
		
;-------------------------------------------------------------------
;
;  NAME:		RidStop
;
;  PURPOSE:		To get rid of stop location
;
;  PASSED:		(A-reg.)			WORD	;media channel no.
;
;  RETURNED:	Carry=set if error; (A-reg.)=error number
;
;-------------------------------------------------------------------
RidStop		PROC

;We now check to see if we've set a stop condition just before this command
;If we have, Inc. stop flag one so we will know that the next time we do a
;play type command that we need to reset the stop condition to the end of the
;disk.
			sta ChannelNo			;save passed channel no.
			lda stopflag			;get stop flag
			beq noprev				;branch if no previous stop (return no errors)
;There has been a previous stop condition
			cmp #1
			bne notfirst			;branch if more than first one
			inc stopflag			;inc. so we will know we've done one
			bra noprev
;We arrive here when we have done more than one play type command, we need to reset
;stop condition to the end of the disc
notfirst
			lda #$0040				;for absolute BCD Min-Sec-Frame
			jsr GetTOC				;go get end of audio portion
			bcs goterrx				;branch if errors

;Now dec. by one the TOC lead out area number
;Remeber: The BCD digits are stored high to low at TOCData,+1,+2 only.
			sep #$38				;to 8-bit mode with decimal mode
			longa off
			longi off
			sec
			lda TOCData+2
			sbc #1					;subtract one
			sta TOCData+2
			lda TOCData+1
			sbc #0
			sta TOCData+1
			lda TOCData
			sbc #0
			sta TOCData
;Now go through and fix time borrow problems
			lda TOCData+2
			cmp #$75
			bcc Ok1
			sbc #$25				;we know carry is set from branch
			sta TOCData+2
Ok1
			lda TOCData+1
			cmp #$60
			bcc Ok2
			sbc #$40				;we know carry is set from branch
			sta TOCData+1
Ok2
			rep #$38				;back to 16-bit and binary mode
			longa on
			longi on
			
			lda #$0040				;set for absolute time stop
			sta StopType

			lda MyDevID				;set the device ID
			sta StopDNum
			lda TOCData-1			;minus one for min. in high byte (so stores zero)
			and #$FF00				;only want minutes (high byte)
			sta StopAddr
			lda TOCData+1
			sta StopAddr+2

			_DControlGS StopDCtrlBlk ;perform a stoplocation 

			bcs goterrX				;branch if got error (so will try again)
			stz StopFlag



goterrX
			rts
noprev
			lda #0
			clc
			rts
		
ChannelNo	ds.w	1				;space for pased MCChannel number
			ENDP

;
;-------------------------------------------------------------------
;
;  NAME:		PlayAtCurr
;
;  PURPOSE:		To start playing at current location
;
;  PASSED:		None
;
;  RETURNED:	Carry=set if error; (A-reg.)=error number
;
;-------------------------------------------------------------------
PlayAtCurr 	PROC
			
			lda #3
			sta RetryIt				;set retry counter to 3
PlayAgain			
			lda AudioMode			;get audio mode
			sta PlayAudioM			;set the audio mode here
			lda MyDevID
			sta PlayDNum			;set device number

			jsr GetLocation			;go get current location
			bcs XOut2				;branch if error occured
			lda QAMin-1				;get absolute location
			and #$ff00
			sta PlayBackAdr			;stuff for play command
			lda QAMin+1
			sta PlayBackAdr+2

;First check to see if we are before the first track of the disc
			lda #1
TryFirst
			sta TOCTrack			;set the track no.
			lda #$0004
			sta TOCByte7			;set size of buffer to long (4 bytes)
			lda #$0080				;for track starting address
			jsr GetTOC				;go get track start
			ldx TOCTrack			;get current track
			stz TOCTrack			;zero out track no.
			stz TOCByte7			;zero out length words
			bcs XOutOfPlayC			;branch if error occured
			lda TOCData
			and #$000D				;only want control field
			cmp #$0004				;see if data track
			bne IsAudio				;branch if audio track
;We arrive here with a digital track for the first track
;So inc. by one until we hit an error or an audio track
			sep #$38				;to 8-bit mode with decimal mode
			longa off
			longi off
			txa						;get current track no.
			clc
			adc #1
			sta TOCTrack
			rep #$38				;back to 16-bit binary mode
			longa on
			longi on
			
			bne TryFirst			;loop unless carry through
			lda #DataTrack
Xout2		bra XOutOfPlayC			;branch if error occured
			
IsAudio
			lda TOCData+2			;get BCD sec, frame
			xba
			sta XXX
			lda TOCData				;get BCD minutes
			xba
			and #$00ff				;because CD's dont have hours
			sta XXX+2
;Now do the compare
			lda PlayBackAdr+1			;first minutes,sec
			xba
			cmp XXX+1
			bcc WasLess				;branch if less than
			beq ChkFrames			;branch if same, need to check frames
			bcs CheckEnd			;not before start, go check for past end
ChkFrames	lda PlayBackAdr+2		;get sec., frames
			xba
			cmp XXX					;compare sec., frames
			bcs GoOn				;branch if same are greater (should be ok)
;We arrive here if we are less than the first track, so set it to the first track
WasLess
			lda XXX					;get frames, sec
			xba
			sta PlayBackAdr+2		;store frames, sec
			lda XXX+1				;get sec, min
			xba
			sta PlayBackAdr+1			;store sec. frames

;Now see if we are at the end of the disc
CheckEnd
			lda #$0040				;for absolute BCD Min-Sec-Frame
			jsr GetTOC				;get the table of contents (max. audio loc.)
XOutOfPlayC	bcs OutOfPlayC			;branch if error
			
			lda TOCData				;get Min, sec.
			xba						;fix byte sex
			sta XXX					;save for comparing
			lda PlayBackAdr+1		;get current Min, sec.
			xba						;fix byte sex
			cmp XXX					;now do compare
			bcc GoOn				;branch if less than
;We arrive here if we are at the leadout area of the disc (so we set to start of disc)
			lda #0
			jsr GetTOC				;get table of contents (first user track no.)
			bcs OutOfPlayC			;branch if error occured
			lda #$0080
			sta PlayAdrType			;set address type to Track No. format
			lda TOCData
			and #$00ff				;only want first track no.
			xba						;want in high byte location
			sta PlayBackAdr+2		
			stz PlayBackAdr
			lda #$0080				;we want track no. format
			bra GoOn2
			
GoOn
			lda #$0040
GoOn2
			sta PlayAdrType			;set address type for absolute positioning			

			_DControlGS PlayDCtrlBlk ;perform an audio play command
			bcs OutOfPlayC			;branch if error
OutOK
			lda #0					;return no errors
			clc
			rts
OutOfPlayC
			cmp #drvrDiskSwitch
			beq JustOut
			dec RetryIt				;do retrys unless disk switched error
			bmi JustOut
			jmp PlayAgain			;go retry it
JustOut
			sec
			rts
			
XXX			ds.l	1				;place to store for compare
RetryIt		ds.w	1				;retry counter area


;=====================================================================
;This is the DControl data block for a Play Command
PlayDCtrlBlk dc.w	5			;Passed parameter count (PCount)
PlayDNum	dc.w	0			;Passed device number (Stuffed)
PlayCode	dc.w	$80C8		;Passed code (Audio Search Play)
PlayListPtr	dc.l	PlayList	;Passed list pointer
			dc.l	18			;Passed request count
			dc.l	0			;Returned transfer count
;This is the control list
PlayList	dc.w	0			;Passed zeros (reserved)
			dc.b	$C8			; 0 SCSI command
			dc.b	$00			; 1 SCSI flags
			dc.b	$10			; 2 Stop flag (playbackadr is start addr)
PlayAudioM	dc.b	$09			; 3 Play mode (stereo)
			EXPORT PlayBackAdr
PlayBackAdr	dc.l	0			; 4 Playback address
PlayAdrType	dc.b	$40			; 8 Address type (specified in AMin, ASec, AFrame)
			dc.b	0			; 9 Reserved
			dc.w	0			; 10 Reserved
			dc.l	0			;Buffer Pointer (reserved)
			ENDP
			

;-------------------------------------------------------------------
;
;  NAME:		DoPause
;
;  PURPOSE:		To do an AudioPause command 
;
;  PASSED:		(X)=pause flag
;
;  RETURNED:	Carry=set if error; (A-reg.)=error number
;
;-------------------------------------------------------------------
DoPause 	PROC

			lda MyDevID
			sta PauseDNum		;set device number
			stx PauseFlag		;set pause flag
			
			_DControlGS PauseDCtrlBk ;perform an audio play command

			rts

;=====================================================================
;This is the DControl data block
PauseDCtrlBk dc.w	5			;Passed parameter count (PCount)
PauseDNum	dc.w	0			;Passed device number (Stuffed)
PauseCode	dc.w	$80CA		;Passed code (Audio Pause)
PauseListPtr dc.l	PauseList	;Passed list pointer
			dc.l	18			;Passed request count
			dc.l	0			;Returned transfer count

;This is the Pause control list
PauseList	dc.w	0			;Passed zeros (reserved)
			dc.b	$CA			; 0 SCSI command
			dc.b	$00			; 1 SCSI flags
PauseFlag	dc.b	$00			; 2 Pause flag (start/release pause)
			dc.b	0			; 3
			dc.l	0			; 4
			dc.l	0			; 8
			
			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCGetFeatures
;
;  PURPOSE:		Returns the drivers features
;
;  PASSED:		Result			LONG	;space for result
;				Selector		WORD	;feature selector value
;
;  RETURNED:	FeatureVal		LONG	;returned driver feature value
;
;-------------------------------------------------------------------
MCGetFeatures 	PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
Selector	word
ChannelNo	word
FeatureVal 	long		

			lda Selector,s			;get feature selector value
			asl a					;times 4 for longs
			asl a
			tax						;use as index into table
			cmp #36					;see if volume feature wanted
			bne notvolume			;branch if not
;This special cases the mcFVolume feature
;Because this driver will work with the old and new CD player,
;we need to determine if volume control is supported.
			lda MyDevID
			sta InqDNum				;set device number			

			_DStatusGS InqDataBlk 	;perform an inquiry data call
;Now compare to see if its the new CD+ player
			sep #$30				;8-bit mode for compare
			longa off
			longi off
			ldx #1					;index into InqIDString
			ldy #16					;start of ID
			
IDCmpLoop	lda InqIDString,x
			cmp InqDataData,y
			clc						;assume not same (carry clear for exit)
			bne OutID				;branch with carry set when not equal
			inx
			iny
			cpy #31
			bcc IDCmpLoop			;we fall thru with carry set when equal
OutID						
			rep #$30				;16-bit mode now
			longa on
			longi on
			lda #1
			bcs HaveFeature			;branch if no errors (have feature)
			lda #0
HaveFeature	
			sta FeatureVal,s
			lda #0
			bra FinishUp			

notvolume
			lda #BadSelector		;assume selector value is bad
			cpx #MaxFeature			;is it beyond max value?
			bcs OutOfHere			;branch if bad
		
			lda FeatureTbl,x		;get return value
			sta FeatureVal,s
			lda FeatureTbl+2,x
FinishUp
			sta FeatureVal+2,s
			lda #0
OutOfHere	jmp Exit4
FeatureTbl
			dc.l	5				;mcFTypes -does frames, times and chapters
			dc.l	0				;mcFStep -Max. step value
			dc.l	0				;mcFRecord -record
			dc.l	0				;mcFVideo -does video function
			dc.l	1				;mcFEject -does eject function
			dc.l	1				;mcFLock -does user key lock
			dc.l	0				;mcFVDisplay -does video location display
			dc.l	0				;mcFVOverlay -No. of lines of char. video overlay
			dc.l	0				;mcFVOChars -Video overlay no. of chars. per line
			dc.l	1				;mcFVolume -Supports volume
MaxFeature	equ *-FeatureTbl


;=====================================================================
;This is the DControl data block
InqDataBlk 	dc.w	5			;Passed parameter count (PCount)
InqDNum		dc.w	0			;Passed device number (Stuffed)
			dc.w	$8012		;Passed code (AudioStatus)
			dc.l	InqList		;Passed list pointer
			dc.l	36			;Passed request count
			dc.l	0			;Returned transfer count
;This is the status control list
InqList		dc.w	0			;Passed zeros (reserved)
			dc.b	$12			; 0 SCSI command
			dc.b	$00			; 1 SCSI flags
			dc.b	$00			; 2 
			dc.b	$00			; 3 
			dc.l	0			; 4 
			dc.b	0			; 8 
			dc.b	0			; 9 
			dc.w	0			; 10 
			dc.l	InqDataData	;Buffer Pointer
			
InqDataData
			ds.b	36
InqIDString	str 'CD-ROM CDU-8002'
			ENDP
			
;-------------------------------------------------------------------
;
;  NAME:		MCPlay
;
;  PURPOSE:		To put the device in play mode
;
;  PASSED:		McChannelNo		WORD	;channel number
;
;  RETURNED:	None
;
;-------------------------------------------------------------------
MCPlay  	PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
ChannelNo	word

			lda #2
			sta RetryCntr
DSRedo
;First see if we need to clear out a previous stop location
			lda ChannelNo,s			;pass channel no.
			jsr RidStop				;get rid of current stop if need to
			bcs ErrorOut			;branch if error
			lda #0					;want regular audio status
			jsr GetAudioStat		;get current audio status
			bcc ASGood				;branch if no error
			cmp #DataTrack			;see if fe02 error (data area)
			beq JustPlay			;if in data area, just play
			cmp #DataTrack2
			beq JustPlay
			cmp #DataTrack3
			beq JustPlay
			bra ErrorOut

ASGood
			lda AudioSField
			and #$0007
			cmp #5				;see if error
			bne JustPlay

;We arrive here when the unit is paused

			ldx  #0				;release pause
			jsr DoPause
			bra ErrorOut

;Now we know we are in play mode (so issue a play command with audio new audio)
JustPlay
			jsr	PlayAtCurr			;Start playing at current location
			bcs ErrorOut
OutOK
			lda #0
ErrorOut

;Now check for being on data track errors
			cmp #DataTrack			;see if fe02 error (data area)
			beq TryStop				;if in data area, just play
			cmp #DataTrack2
			beq TryStop
			cmp #DataTrack3
			beq TryStop
			bra SeeDS
;if we arrive here, we have a $fe02, $7e02, or $00f1 error (beyond audio portion)
TryStop
			dec RetryCntr
			beq SeeDS
;Now just try a stop to force the heads back to an audio portion
			lda ChannelNo,s			;get channel no.
			pha						;pass as parameter
			ldx #$2b26
			jsl >$E10000
;			_MCStop					;convert binary value to time BCD
			bcc ReDoJmp				;redo command if no error


;This code checks to see if we want to ignore disk switched errors.
;If we want to ignore disk switched errors and one occurs, we redo the command.
SeeDS
			cmp #drvrDiskSwitch		;see if disk switche error
			bne DSExit				;just exit if not
			ldx DSFlag				;get disk switched flag
			bne DSExit				;branch if want disk switched errors
ReDoJmp		jmp DSReDo				;go redo the command
DSExit
			jmp Exit2


RetryCntr	ds.w	1

			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCPause
;
;  PURPOSE:		To put the device in "pause" mode
;
;  PASSED:		McChannelNo		WORD	;channel number		
;
;  RETURNED:	None
;
;-------------------------------------------------------------------
MCPause  	PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
ChannelNo	word

DSReDo			
;First see if we need to clear out a previous stop location
			lda ChannelNo,s			;pass channel no.
			jsr RidStop				;get rid of current stop if need to
			bcs ErrorOut			;branch if error

			ldx #$0010				;set pause						
			jsr DoPause				;do a pause command
			
ErrorOut
;This code checks to see if we want to ignore disk switched errors.
;If we want to ignore disk switched errors and one occurs, we redo the command.
			cmp #drvrDiskSwitch		;see if disk switche error
			bne DSExit				;just exit if not
			ldx DSFlag				;get disk switched flag
			bne DSExit				;branch if want disk switched errors
			jmp DSReDo				;go redo the command
DSExit

			jmp	Exit2
			
			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCSendRawData
;
;  PURPOSE:		To send raw data commands to the device
;
;  PASSED:		mcChannelNo		WORD	;channel number
;				NativePtr		LONG	;pointer to string to send
;
;  RETURNED:	None
;
;-------------------------------------------------------------------
MCSendRawData  	PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
RawData		LONG
ChannelNo	word

			lda #UnImp			;unimplemented for this device
			jmp	Exit6
			
			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCGetStatus
;
;  PURPOSE:		To return status about the device
;
;  PASSED:		returned		WORD	;space for returned word
;				McChannelNo		WORD	;channel number
;				MCStatusSel		WORD	;Status Selector value
;
;  RETURNED:	StatusInfo		WORD	;Status information
;
;-------------------------------------------------------------------
MCGetStatus PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
StatusSel	word
ChannelNo	word
Returned	word

DSReDo
			lda StatusSel,s			;get status selector value
			cmp #mcSDeviceType
			bne TryNext0
;------------------------------------------
; mcSDeviceType: This determines the device type (CD audio)
;------------------------------------------
			ldx #mcSCDAudio			;return CD audio device
			bra ExitOut
TryNext0			

			cmp #mcSPlayStatus
			bne TryNext1
;------------------------------------------
; mcSPlayStatus: This determines the devices play status
;------------------------------------------
			lda #0					;want regular aduio status
			jsr GetAudioStat		;get the status of the player
			bcc NoRegErr			;branch if no errors
			cmp #$002f				;look for offline error
			bne ExitOutX			;exit out if error reading
;We arrive here with an offline error
			ldx #mcSParked			;lets return saying its parked then
			bra ExitOut
NoRegErr
			lda AudioSField			;get status field			
			and #$000f
;Now see if its playing
			ldx #mcSPlaying			;assume its playing
			cmp #0
			beq ExitOut
			cmp #2
			beq ExitOut
;Now see if its still
			ldx #mcSStill			;assume it still
			cmp #1
			beq ExitOut
			cmp #3
			beq ExitOut				;its at the end of the play, so its still
			ldx #mcSUnKnown			;we dont know what its doing
;We arrive here x-reg. equal to returned value
ExitOut
			txa
			sta Returned,s			;set returned value
			lda #0
ExitOutX
			jmp ErrorOutX				;return

;------------------------------------------
; mcSDoorStatus: This does the door status (this device doesnt return such status)
;------------------------------------------
TryNext1
			ldx #mcSUnknown			;assume mcDoorStatus selected
			cmp #mcSDoorStatus
			beq ExitOut
;------------------------------------------
; mcSDiscType: This determines the discs status selected commands
;------------------------------------------
			lda StatusSel,s			;get status selector value again
			cmp #mcSDiscType		;is it a disc type selector value
			bne TryNext2
;We now do the Disc type
			lda #0					;want regular aduio status
			jsr GetAudioStat		;get the status of the player
			bcs ExitOutX			;branch if errors
			ldx #mcS_CD				;Its a CD

ExitOutJ	jmp ExitOut

TryNext2
			cmp #mcSDiscSize
			bne TryNext3
;------------------------------------------
; mcSDiscSize: We now do the Disc Size
;------------------------------------------
			lda #0					;want regular aduio status
			jsr GetAudioStat		;get the status of the player
			bcs ExitOutX			;branch if errors
			ldx #mcSDisc5inch		;assume 5 inch disc
			bra ExitOutJ
			
TryNext3
			cmp #mcSDiscSide
			bne TryNext4			;branch, try volume
;------------------------------------------
; mcSDiscSide: We now do the Disc Side
;------------------------------------------
			lda #0					;want regular aduio status
			jsr GetAudioStat		;get the status of the player
			bcs ExitOutX			;branch if errors
			ldx #mcSSideOne			;assume side one (only one side on CD)
			bra ExitOutJ
TryNext4
			cmp #mcSVolumeL
			bne TryNext5			;branch, try right volume
;------------------------------------------
; mcSVolumeL: We now do the left volume value
;------------------------------------------
			lda #1					;Want volume audio values
			jsr GetAudioStat		;get current audio status
			pha						;save status
			lda AudioSField-1		;get left volume level in high nibble
VolStuff
			and #$ff00				;because its only 8-bits on this device
			plx						;get status back
			sta Returned,s			;set return value
			txa
			bra DSExit

TryNext5
			cmp #mcSVolumeR
			bne InvalidSel			;branch, invalid selector
;------------------------------------------
; mcSVolumeR: We now do the right volume value
;------------------------------------------
			lda #1					;Want volume audio values
			jsr GetAudioStat		;get current audio status
			pha						;save status from call
			lda AudioSField			;get right volume level in high nibble
			bra VolStuff			;finish up


;We arrive here with an invalid selector value
InvalidSel
			lda #BadSelector
ErrorOutX
;This code checks to see if we want to ignore disk switched errors.
;If we want to ignore disk switched errors and one occurs, we redo the command.
			cmp #drvrDiskSwitch		;see if disk switche error
			bne DSExit				;just exit if not
			ldx DSFlag				;get disk switched flag
			bne DSExit				;branch if want disk switched errors
			jmp DSReDo				;go redo the command
DSExit

			jmp Exit4
			
			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCControl
;
;  PURPOSE:		To issue information to control the device
;
;  PASSED:		McChannelNo		WORD	;channel number
;				CtlCommand		WORD	;control command value
;
;  RETURNED:	None
;
;-------------------------------------------------------------------
MCControl 	PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
CtlCommand	word
ChannelNo	word

DSReDo
			lda CtlCommand,s
			cmp #mcCInit			;see if its an init
			bne Try2
;Its Init time
			lda #0
			sta BlankNextVideo		;set not to blank next video search
			lda #30 
			sta CurrSpeed			;set current speed to 30 fps (normal)
			bra NoErrors
			
			
Try2		cmp #mcCEject			;see if its an eject command
			bne Try3
;Its Eject time
;First make sure were unlocked
			ldx #0
			stx PAllowFlag			;clear lock flag on DCtrlBlk
			lda MyDevID
			sta PRemDNum			;set device number			
			_DControlGS PRemDCtrlBlk ;perform a prevent removal command
			bcs ExitOutJ			;branch if error occured
			lda MyDevID
			sta EjectDNum			;set device number			

			_DControlGS EjectDCtrlBlk ;perform an audio play command
			bra ExitOutJ
NoErrors
			lda #0			
ExitOutJ	jmp	Done
NotThisDev	lda #NotApplic			;get error (not applicable to this device)
			bra ExitOutj
			
Try3		
			cmp #mcCDefaultCom+1
			bcs Try9X
			jmp NotThisDev
Try9X
			cmp #mcC8Data1Stop
			bcc Try9
			cmp #mcC5Data2Stop+1
			bcs Try9
			jmp NotThisDev

Try9		cmp #mcCBaudDflt
			bcc Try10
			cmp #mcCBaud19200+1
			bcs Try10
			jmp NotThisDev
	
Try10		cmp #mcCLockDev
			bne Try11
;Lock user access button
			ldx #$0001				;set lock user access button
FinishLock
			stx PAllowFlag			;set lock flag on DCtrlBlk
			lda MyDevID
			sta PRemDNum			;set device number			
			_DControlGS PRemDCtrlBlk ;perform a prevent removal command
			bra Done

Try11		cmp #mcCUnLockDev
			bne Try12
;UnLock user access button
			ldx #0					;set for unlock
			bra FinishLock

;Now check modem and printer specified
Try12
			cmp #mcCModem
			bne Try13
			jmp NotThisDev
Try13
			cmp #mcCPrinter
			bne Try14
			jmp NotThisDev
;This checks for the mcCIgnoreDS and mcCReportDS commands
Try14
			cmp #mcCIgnoreDS
			bne Try15
			stz DSFlag				;clear disk switched wanted flag
ExitNE
			lda #0
			bra Done
Try15
			cmp #mcCReportDS
			bne TryX
			sta DSFlag				;set the disk switched wanted flag
			bra ExitNE

			
;We arrive here with an invalid command
TryX		lda #BadSelector
Done
;This code checks to see if we want to ignore disk switched errors.
;If we want to ignore disk switched errors and one occurs, we redo the command.
			cmp #drvrDiskSwitch		;see if disk switche error
			bne DSExit				;just exit if not
			ldx DSFlag				;get disk switched flag
			bne DSExit				;branch if want disk switched errors
			jmp DSReDo				;go redo the command
DSExit

			jmp Exit4
			
			EXPORT DSFlag
DSFlag		dc.w 0					;Want disk switched error reported flag			

			EXPORT BlankNextVideo
BlankNextVideo dc.w	0				;blank next video flag (0=no, 1=yes)

;=====================================================================
;This is the DControl data block ejecting the disc
;EjectDCtrlBlk dc.w	5			;Passed parameter count (PCount)
;EjectDNum	dc.w	0			;Passed device number (Stuffed)
;EjectCode	dc.w	$00C0		;Passed code (Eject) was 0002
;			dc.l	0			;Passed list pointer
;			dc.l	0			;Passed request count
;			dc.l	0			;Returned transfer count
;=====================================================================
;This is the DControl data block
EjectDCtrlBlk dc.w	5			;Passed parameter count (PCount)
EjectDNum	dc.w	0			;Passed device number (Stuffed)
EjectCode	dc.w	$80C0		;Passed code (Eject Disc)
			dc.l	EjectList	;Passed list pointer
			dc.l	14			;Passed request count
			dc.l	0			;Returned transfer count

;This is the Eject control list
EjectList	dc.w	0			;Passed zeros (reserved)
			dc.b	$C0			; 0 SCSI command
			dc.b	$00			; 1 SCSI flags
			dc.b	$00			; 2 X
			dc.b	0			; 3
			dc.l	0			; 4
			dc.l	0			; 8


;=====================================================================
;This is the DControl data block for a Prevent Removal Command
PRemDCtrlBlk dc.w	5			;Passed parameter count (PCount)
PRemDNum	dc.w	0			;Passed device number (Stuffed)
			dc.w	$801E		;Passed code (Prevent Removal)
			dc.l	PRemList	;Passed list pointer
			dc.l	18			;Passed request count
			dc.l	0			;Returned transfer count
;This is the control list
PRemList	dc.w	0			;Passed zeros (reserved)
			dc.b	$1E			; 0 SCSI command
			dc.b	$00			; 1 SCSI flags
			dc.w	0			; 2-3 Reserved
PAllowFlag	dc.b	$00			; 4 Reserved
			dc.b	$00			; 5 Reserved
			dc.l	0			; 6-9 Reserved
			dc.w	0			; 10 Reserved
			dc.l	0			;Buffer Pointer (reserved)

			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCScan
;
;  PURPOSE:		To scan forward or reverse.
;
;  PASSED:		McChannelNo		WORD	;channel number
;				ScanDir			WORD	;scan direction (Pos fwd, neg. rev.)
;
;  RETURNED:	None
;
;-------------------------------------------------------------------
MCScan  	PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
ScanDir 	Word
ChannelNo	word

;First see if we need to clear out a previous stop location
			lda #1
			sta ScanCntr		;init scan counter
DSReDo			
			lda ChannelNo,s		;pass channel no.
			
			jsr RidStop			;get rid of current stop if need to
			bcs ErrorOut		;branch if error

			lda MyDevID
			sta ScanDNum		;set device number			

			ldx #0				;assume scan forward
			lda ScanDir,s		;get direction of scan
			bpl	GoForward		;branch if forward
			ldx #$0010			;else set to reverse			
GoForward
			stx XScanDir		;set scan direction
			jsr GetLocation		;go get current location
			bcs OutOfScan		;branch if error occured	
			lda QAMin-1			;get absolute location
			and #$ff00
			sta ScanStrtAdr
			lda QAMin+1
			sta ScanStrtAdr+2
ScanLoop
			_DControlGS ScanDCtrlBlk ;perform an audio scan command
			bcc ErrorOut		;branch if no errors
;This fixes the problem of if MCScan is the first command to be executed
;on the disc (the location is bogus.)  What we do is first issue a play,
;then do the scan using addr. from play(this makes sure the address is within bounds.)
			cmp #DataTrack
			beq GOn
			cmp #DataTrack2
			beq GOn
			cmp #DataTrack3
			bne ErrorOut
GOn
			dec ScanCntr		;dec. scan counter
			bmi ErrorOut		;bail out if second time

			jsr PlayAtCurr		;this will set the good start address

			lda PlaybackAdr		;now get play start addr and addr. type
			sta ScanStrtAdr
			lda PlaybackAdr+2
			sta ScanStrtAdr+2
			lda PlaybackAdr+3	;this picks up the addr. type
			sta ScanStrtAdr+3
			bra ScanLoop		;now go do the scan command
			
			
OutOfScan
ErrorOut
;This code checks to see if we want to ignore disk switched errors.
;If we want to ignore disk switched errors and one occurs, we redo the command.
			cmp #drvrDiskSwitch		;see if disk switche error
			bne DSExit				;just exit if not
			ldx DSFlag				;get disk switched flag
			bne DSExit				;branch if want disk switched errors
			jmp DSReDo				;go redo the command
DSExit


			jmp Exit4
			
ScanCntr	ds.w	1			;repeat on error counter

;=====================================================================
;This is the DControl data block
			EXPORT ScanDCtrlBlk
ScanDCtrlBlk dc.w	5			;Passed parameter count (PCount)
ScanDNum	dc.w	0			;Passed device number (Stuffed)
ScanCode	dc.w	$80CD		;Passed code (Audio Scan)
			dc.l	ScanList	;Passed list pointer
			dc.l	18			;Passed request count
			dc.l	0			;Returned transfer count
;This is the control list
ScanList	dc.w	0			;Passed zeros (reserved)
			dc.b	$CD			; 0 SCSI command
			dc.b	$00			; 1 SCSI flags
XScanDir	dc.b	$00			; 2 Scan direction ($00 ffwd, $10 frev) 
			dc.b	$00			; 3 
ScanStrtAdr dc.l	0			; 4 Scan starting address 
			dc.b	$40			; 8 Address type (specified in AMin, ASec, AFrame)
			dc.b	0			; 9 Reserved
			dc.w	0			; 10 Reserved
			dc.l	0			;Buffer Pointer (reserved)

			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCGetSpeeds
;
;  PURPOSE:		To return a list of available speeds that can be played
;
;  PASSED:		mcChannelNo		WORD	;channel number
;				PStringPtr		LONG	;P string pointer to buffer for returned speeds
;
;  RETURNED:	NONE
;
;-------------------------------------------------------------------
MCGetSpeeds PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
PStringPtr	Long
ChannelNo	word

			lda #UnImp			;return unimplemented for this device
			jmp	Exit6
			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCSpeed
;
;  PURPOSE:		To set the speed for the next mcPlay command
;
;  PASSED:		mcChannelNo		WORD	;channel number
;				Speed			WORD	;speed value(+ or -)
;
;  RETURNED:	none
;
;-------------------------------------------------------------------
MCSpeed PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
Speedval	word
ChannelNo	word

			lda #UnImp			;return unimplemented for this device			
			jmp Exit4
			EXPORT CurrSpeed
CurrSpeed	dc.w	30			;current speed setting
			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCStopAt
;
;  PURPOSE:		To set the point the device is to stop at
;
;  PASSED:		McChannelNo		WORD	;channel number
;				McUnitType		WORD	;unit type
;				StopLoc			Long	;stop location
;
;  RETURNED:	None
;
;-------------------------------------------------------------------
MCStopAt  	PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
StopLoc		Long
mcUnitType	word
ChannelNo	word
			
DSReDo			
			lda mcUnitType,s		;get unit type
			cmp #InFrames
			bne TryChap				;branch if not chapters
;We arrive here if its specified as a frame location
			lda #UnImp				;this device doesn't do frames
OutJmp
;This code checks to see if we want to ignore disk switched errors.
;If we want to ignore disk switched errors and one occurs, we redo the command.
			cmp #drvrDiskSwitch		;see if disk switche error
			bne DSExit				;just exit if not
			ldx DSFlag				;get disk switched flag
			bne DSExit				;branch if want disk switched errors
			bra DSReDo				;go redo the command
DSExit

			jmp Exit8

;--------------------------------------------------------------			
TryChap
			cmp #InChapters
			bne TryTimes			;branch if not in time
;We arrive here if its specified as chapters
			lda #$0080				;set for chapter stop
			sta StopType
			lda #1
			sta Stopflag			;set stop flag
;This checks first to see if we are at chapter 1 or zero
			lda StopLoc,s
			cmp #2
			bcs OkNormal			;branch if normal
;We arrive here if chapter 1 or zero was specified
;First set the stop type to absolute time because we want to set the
;stop at to the beginning of the disc
			lda #$0040				;set for absolute time stop
			sta StopType

			lda #1
			sta TOCTrack			;set the track no.
			lda #$0004
			sta TOCByte7			;set size of buffer to long (4 bytes)
			lda #$0080				;for track starting address
			jsr GetTOC				;go get track start
			stz TOCTrack			;zero out track no.
			stz TOCByte7			;zero out length words
			bcs OutJmp				;branch if error occured
			lda TOCData+2			;get BCD sec, frame
			sta StopAddr+2
			lda TOCData				;get BCD minutes
			and #$00ff				;because CD's dont have hours
			bra GoOn4			
OkNormal
;First we need to convert the binary chapter no. to BCD
;and decrement by one to be compatible with other devices
			pha						;space for result long
			pha
			lda StopLoc+6,s
			pha						;push high word
			lda StopLoc+6,s			;now dec. low word and push
			dec a
			pha
			ldx #$0d26
			jsl >$E10000
;			_MCCvtgBin2Time			;convert binary value to time BCD
			pla						;get low word
			plx						;get high word
			xba
			sta StopAddr+2
			txa
			bra GoOn3

;--------------------------------------------------------------
TryTimes	cmp #InTimes
			bne InError				;branch if not one of the above
;We arrive here if its specified as time
			lda #$0040				;set for absolute time stop
			sta StopType

GoOn
			lda #1					;flag
			sta StopFlag			;set stop flag (we now know we've done a stop)
GoOn2
			lda StopLoc,s			;set search address
			xba						;need motorola format msb:lsb stored
			sta StopAddr+2
			lda StopLoc+2,s
GoOn3
			xba

GoOn4
			sta StopAddr
			
			lda MyDevID
			sta StopDNum			;set device number			

			_DControlGS StopDCtrlBlk ;perform an audio play command

			jmp OutJmp


;=====================================================================
;This is the DControl data block for a Play Command
			EXPORT StopDCtrlBlk
StopDCtrlBlk dc.w	5			;Passed parameter count (PCount)
			EXPORT StopDNum
StopDNum	dc.w	0			;Passed device number (Stuffed)
StopCode	dc.w	$80CB		;Passed code (Audio Search Play)
StopListPtr	dc.l	StopList	;Passed list pointer
			dc.l	18			;Passed request count
			dc.l	0			;Returned transfer count
;This is the control list
StopList	dc.w	0			;Passed zeros (reserved)
			dc.b	$CB			; 0 SCSI command
			dc.b	$00			; 1 SCSI flags
			EXPORT StopAddr
StopAddr	dc.l	0			; 2-5 Stop Addr. (MSB first)
			EXPORT StopType
StopType	dc.b	$40			; 6 Address type (specified in AMin, ASec, AFrame)
			dc.w	0			; 7-8 Reserved
			dc.b	0			; 9 Reserved
			dc.w	0			; 10 Reserved
			dc.l	0			;Buffer Pointer (reserved)


;We arrive here with an invalid unit specified type
InError
			lda #BadUnitType
			jmp OutJmp
			
			EXPORT StopFlag
StopFlag	dc.w	0			;stop flag (0, no stop before play commands)




;=====================================================================
;This is the DControl data block for a Play Command
;StopDCtrlBlk dc.w	5			;Passed parameter count (PCount)
;StopDNum	dc.w	0			;Passed device number (Stuffed)
;PlayCode	dc.w	$80C8		;Passed code (Audio Search Play)
;PlayListPtr dc.l	PlayList	;Passed list pointer
			dc.l	18			;Passed request count
			dc.l	0			;Returned transfer count
;This is the control list
;PlayList	dc.w	0			;Passed zeros (reserved)
			dc.b	$C8			; 0 SCSI command
			dc.b	$00			; 1 SCSI flags
			dc.b	$40			; 2 Stop flag (playbackadr is stop addr)
;PlayAudioM	dc.b	$09			; 3 Play mode (stereo)
;StopAddr	dc.l	0			; 4 Playback address
;StopType	dc.b	$40			; 8 Address type (specified in AMin, ASec, AFrame)
			dc.b	0			; 9 Reserved
			dc.w	0			; 10 Reserved
			dc.l	0			;Buffer Pointer (reserved)
			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCJogN
;
;  PURPOSE:		To jog njog units forward or backwards.
;
;  PASSED:		McChannelNo		WORD	;channel number
;				mcUnitType		Word	;unit type
;				nJog			Long	;units to jog
;				jogrepeat		WORD	;repeat counter (+=fwd., -=rev.)
;
;  RETURNED:	None
;
;-------------------------------------------------------------------
MCJogN  	PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
JogRepeat	word
nJog		Long
mcUnitType	word
ChannelNo	word

DSReDo
			
;This checks that the nJog value and JogRepeat aren't zero
;			lda nJog,s
;			ora nJog+2,s
;			beq ValuesBad			;branch if njog is zero
			lda JogRepeat,s
			bne ValuesOK			;branch out if jogrepeat not zero
ValuesBad
			lda #InvalidParam		;return with invalid parameter error
			jmp ExitOut
ValuesOK

			lda MyDevID
			sta JogDNum				;set device number			
;Remember JogAudio is only a byte long
			lda AudioMode			;get the current audio mode setting
			sta JogAudio			;set the audio mode for search

;First see if we need to clear out a previous stop location
			lda ChannelNo,s			;pass channel no.
			jsr RidStop				;get rid of current stop if need to
			bcc GoOn				;branch if no errors

			jmp ExitOut				;else return with error value

GoOn
			lda mcUnitType,s		;get unit type
			cmp #InFrames
			beq ItsFrames
			jmp NotFrames
;---------------------------------------
;We do frame jog here
;---------------------------------------
ItsFrames
			lda #DevRtnError		;we dont understand frames on CD's
			jmp ExitOut				;dont do anything

NotFrames
			cmp #InTimes
			beq DoDaTimes			;branch if times
			jmp NotTime
;---------------------------------------
;We do time mode here
;---------------------------------------
DoDaTimes
			lda #$0040				;jog absolute time
			sta JogType				;set for jog time
			lda JogRepeat,s			;get repeat value
			sta XCounter
			bmi RevDirTime			;branch if reverse direction
;Going forward (Time)
FwdTime
			lda #$0040				;for absolute BCD Min-Sec-Frame
			jsr GetTOC				;get lead out time value
			bcs OutJmpC2
			jsr GetLocation			;get current location
			bcs OutJmpC2			;branch if error

			stz JogAddrBlk
			stz JogAddrBlk+2

;Now we add the values together
			lda nJog,s				;get jog value and store at AddData
			xba
			sta AddData+2
			lda NJog+2,s
			xba
			sta AddData
			lda QAMin				;get current location in (X,A-regs.)
			and #$00ff
			tax
			lda QASec
			xba
			jsr AddTime				;add jog value to current location
			
;--------
			xba
			sta JogAddrBlk+2		;save for jog
			txa
			xba
			sta JogAddrBlk

			txa
			and #$ff00
			bne OutRangeVal5		;branch if any hours (CD's dont do hours)
;Now comapre to see if went beyond lead out area of disc
			sep #$30				;set 8-bit mode (for compare)
			longa off
			longi off
			ldx #0
TimeILoop
			lda JogAddrBlk+1,x		;now compare against lead out time
			cmp TOCData,x
			beq OKITry				;continue compare if equal
			bcc FineTimeI			;if less than, then ok value
			bcs OutRangeVal5		;if greater, then out of range
OKITry
			inx
			cpx #3
			bne TimeILoop
			bra FineTimeI

OutRangeVal5
			rep #$38				;back to 16-bit binary
			jmp OutRangeVal			

FineTimeI
			rep #$38				;back to 16-bit binary
			longa on
			longi on
			_DControlGS JogDCtrlBlk ;perform an audio play command
			bcs OutJmpC2				;branch if error
			dec XCounter			;dec. counter
			bne FwdTime				;loop until done
			lda #0
OutJmpC2	jmp	ExitOut

;Going Reverse (Time)
RevDirTime	

;First we need to determine the start of the disc by looking at the start
;of the first track.
			lda #0					;for first last track no.
			sta TOCTrack			;make sure track was cleared
			jsr GetTOC				;get first track no.
			bcs OutJmpC2

			lda TOCData				;get first track no.
			and #$00ff
			sta TOCTrack			;get start of very first track
			lda #$0080				;for start of track
			jsr GetTOC				;get tracks abusolute time start vale
			stz TOCTrack
			bcs OutJmpC2
RevDirLoop
			jsr GetLocation			;get current location
			bcs OutJmpC2			;branch if error

			stz JogAddrBlk
			stz JogAddrBlk+2

;Now we subtract the values
			lda QASec				;first set current location at AddData
			sta AddData+2
			lda QAMin
			and #$00ff
			xba
			sta AddData
			lda Njog+2,s				;now get value to subtract in (X,A-reg.)
			tax
			lda NJog,s
			jsr SubTime				;subtract njog value from current time


;-------------
			xba
			sta JogAddrBlk+2		;save for jog
			txa
			xba
			sta JogAddrBlk

			txa
			and #$ff00
			bne OutTimeVal2		;branch if any hours (CD's dont do hours)
;Now see if went beyond first track location
			sep #$38				;set 8-bit mode (for compare)
			longa off
			longi off
			ldx #0
TimeDLoop
			lda JogAddrBlk+1,x		;now compare to see if before start of disc
			cmp TOCData,x			;comapre against 1st track start
			beq OKDTry				;equal, keep looking
			bcc OutTimeVal2			;less than, error out
			bcs FineTime			;grater than, then ok value
OKDTry
			inx
			cpx #3
			bne TimeDLoop
			bra FineTime

OutTimeVal2
			rep #$38				;back to 16-bit binary
			jmp OutRangeVal			

FineTime
			rep #$38				;back to 16-bit binary
			longa on
			longi on

			_DControlGS JogDCtrlBlk ;perform an audio play command
			bcs ExitOut4
			inc XCounter
			beq FinNoErr			;branch when done
			jmp RevDirLoop			;else loop again
FinNoErr
			lda #0					;return no errors
ExitOut4	jmp ExitOut


NotTime
			cmp #InChapters
			beq DoDaChapter
;---------------------------------------
;We do Chapter mode here
;---------------------------------------
;
; We arrive here with an invalid unit specified type
;
InError		lda #BadUnitType
			jmp ExitOut
			
DoDaChapter
			lda #$0080				;for tracks
			sta JogType				;set for jog tracks
			lda JogRepeat,s			;get low word
			sta XCounter
			bmi RevDirChp			;branch if reverse direction
;Going forward (Chapters)
			lda #0
			jsr GetTOC				;get table of contents (first & last track)
			bcs OutJmpC
			jsr GetLocation			;get current location
			bcs OutJmpC				;branch if error

			stz JogAddrBlk
			stz JogAddrBlk+2
;First check to see if nJog is zero (we want to go to start of current track)
			lda nJog,s				;get jog value
			beq FwdChpts
;First check to see if on the last track, if we are just return with error
			sep #$38				;8-bit
			lda QTrack
			cmp TOCData+1
			rep #$38				;back to 16-bit
			beq FErrorJ
FwdChpts
			sep #$38				;set decimal adj. mode
			longa off
			longi off
			lda nJog,s				;get jog value
			clc
			adc QTrack				;add to next value
			sta QTrack				;save for next add...
			
			bcs OutRangeVal			;branch if carry through (out of range)
			sta JogAddrBlk+3		;save new track no.
			cmp TOCData+1			;compare to last track on disc			
			rep #$38				;back to binary mode
			longa on
			longi on
			beq OKTrackVal			;branch ok if last track
			bcc OKTrackVal			;branch if less than last track
OutRangeVal
			sep #$38
			lda TOCData+1
			sta JogAddrBlk+3		;set to last track
			rep #$38
			_DControlGS JogDCtrlBlk ;perform an audio play command
			bcs OutJmpC				;branch if error
FErrorJ
			lda #DevRtnError		;return error value
			bra OutJmpC

OKTrackVal
			dec XCounter			;dec. counter
			bne FwdChpts			;loop until done
DoLastT
			_DControlGS JogDCtrlBlk ;perform an audio play command
			bcs OutJmpC				;branch if error
OutJmpC		jmp	ExitDOut



;Going Reverse (Chapters)
RevDirChp	
			lda #0
			jsr GetTOC				;get table of contents (first & last track)
			bcs OutJmpC
			jsr GetLocation			;get current location
			bcs OutJmpC				;branch if error

			stz JogAddrBlk
			stz JogAddrBlk+2
RevChp

			sep #$38				;set decimal adj. mode
			longa off
			longi off
			lda QTrack				;get current track
			sec
			sbc nJog,s				;subtract down to next value
			sta QTrack
			bcc OutRangeVal2		;branch if no carry through (out of range)
			sta JogAddrBlk+3		;save new track no.
			cmp TOCData				;compare with first track on disc			
			rep #$38				;back to binary mode
			longa on
			longi on
			beq OKTrackVal2			;branch ok if first track
			bcs OKTrackVal2			;branch if greater than first track
OutRangeVal2
			sep #$38
			lda TOCData				;get first track no.
			sta JogAddrBlk+3		;set to first track
			rep #$38

			_DControlGS JogDCtrlBlk ;perform an audio play command
			bcs ExitDOut
			lda #DevRtnError		;return error value
			bra ExitDOut		
	
OKTrackVal2
			inc XCounter
			bne RevChp
DoLastT2

			_DControlGS JogDCtrlBlk ;perform an audio play command
ExitDOut
;This is a delay loop to cause things to settle down when joging by track.
;This is needed to insure we are indeed to the track (not on the raw edge, where
;sometimes we are in the wanted track and sometimes not.)
;			ldx #$4fff
;DLoop
;			nop
;			nop
;			dex
;			bne DLoop

ExitOut
;This code checks to see if we want to ignore disk switched errors.
;If we want to ignore disk switched errors and one occurs, we redo the command.
			cmp #drvrDiskSwitch		;see if disk switche error
			bne DSExit				;just exit if not
			ldx DSFlag				;get disk switched flag
			bne DSExit				;branch if want disk switched errors
			jmp DSReDo				;go redo the command
DSExit

			jmp Exit10


;=====================================================================
;This is the DControl data block
JogDCtrlBlk dc.w	5			;Passed parameter count (PCount)
JogDNum		dc.w	0			;Passed device number (Stuffed)
PlayCode	dc.w	$80C8		;Passed code (Audio Search)
PlayListPtr	dc.l	PlayList	;Passed list pointer
			dc.l	18			;Passed request count
			dc.l	0			;Returned transfer count
;This is the control list
PlayList	dc.w	0			;Passed zeros (reserved)
			dc.b	$C8			; 0 SCSI command
			dc.b	$00			; 1 SCSI flags
			dc.b	$10			; 2 Stop flag (playbackadr is start addr)
JogAudio	dc.b	$09			; 3 Play mode (stereo)
JogAddrBlk	dc.l	0			; 4 Playback address
JogType		dc.b	$80			; 8 Address type (specified in tracks)
			dc.b	0			; 9 Reserved
			dc.w	0			; 10 Reserved
			dc.l	0			;Buffer Pointer (reserved)


			EXPORT CR
CR			dc.b	2,13,10			;string composed of 1 byte
XCounter	dc.w	0
MyLongTemp	ds.l	1				;just a long temporary area


			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCSearchTo
;
;  PURPOSE:		To start a search to searchloc.
;
;  PASSED:		McChannelNo		WORD	;channel number
;				mcUnitType		Word	;unit type
;				SearchLoc		Long	;units to jog
;
;  RETURNED:	None
;
;-------------------------------------------------------------------
MCSearchTo  PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
SearchLoc	Long
mcUnitType	word
ChannelNo	word

DSReDo
;First see if we need to clear out a previous stop location
			lda ChannelNo,s			;pass channel no.
			jsr RidStop				;get rid of current stop if need to
			bcs OutOK				;branch if error

;First lets set the audio mode
			lda AudioMode			;get audio mode
			sta SrchAudioM			;set the audio mode here

			lda mcUnitType,s		;get unit type
			cmp #InFrames
			bne NotFrames			;branch if not frames
;---------------------------------------
;We do frame search here
;---------------------------------------
ItsFrames
			lda #UnImp				;this device doesn't do frames
			jmp OutOK

NotFrames
			cmp #InTimes
			bne NotTime
;---------------------------------------
;We do time search here
;---------------------------------------
			lda #$0040				;set for absolute time search
			sta SearchType
			jmp GoSearch

NotTime
			cmp #InChapters
			bne InError
;---------------------------------------
;We do Chapter search here
;---------------------------------------
			lda #$0080				;set for track/chapter search
			sta SearchType
;We first must convert the Chapter/track no. to BCD for the search

			lda SearchLoc,s			;push high word
			tax
			lda SearchLoc+2,s		;get high word
			tay
			pha						;space for result
			pha						;space for result
			phy						;push high word
			phx						;push low word
			ldx #$0d26
			jsl >$E10000
;			_MCCvtgBin2Time			;convert binary value to time BCD
			pla						;get low word
			plx						;get high word
			xba
			sta SearchAdr+2			;store ss:ff
			txa
			xba
			sta SearchAdr			;store xx:mm
			bra GoSearch2
;
; We arrive here with an invalid unit specified type
;
InError		lda #BadUnitType
			jmp OutOK


;---------------------------------------
; This is where we do the actual search command
;---------------------------------------
GoSearch
			lda SearchLoc,s			;set search address
			xba						;need motorola format msb:lsb stored
			sta SearchAdr+2
			lda SearchLoc+2,s
			xba
			sta SearchAdr
			
GoSearch2
			lda MyDevID
			sta SrchDNum			;set device number			

			_DControlGS SrchDCtrlBlk ;perform an audio play command
OutOK
;This code checks to see if we want to ignore disk switched errors.
;If we want to ignore disk switched errors and one occurs, we redo the command.
			cmp #drvrDiskSwitch		;see if disk switche error
			bne DSExit				;just exit if not
			ldx DSFlag				;get disk switched flag
			bne DSExit				;branch if want disk switched errors
			jmp DSReDo				;go redo the command
DSExit

			
			jmp Exit8

;=====================================================================
;This is the DControl data block for a Play Command
SrchDCtrlBlk dc.w	5			;Passed parameter count (PCount)
SrchDNum	dc.w	0			;Passed device number (Stuffed)
PlayCode	dc.w	$80C8		;Passed code (Audio Search then pause)
PlayListPtr	dc.l	SrchList	;Passed list pointer
			dc.l	18			;Passed request count
			dc.l	0			;Returned transfer count
;This is the control list
SrchList	dc.w	0			;Passed zeros (reserved)
			dc.b	$C8			; 0 SCSI command
			dc.b	$00			; 1 SCSI flags
			dc.b	$00			; 2 Stop flag (playbackadr is start addr)
SrchAudioM	dc.b	$09			; 3 Play mode (stuffed, default stereo)
SearchAdr	dc.l	0			; 4 Search address
SearchType	dc.b	$40			; 8 Address type (specified in AMin, ASec, AFrame)
			dc.b	0			; 9 Reserved
			dc.w	0			; 10 Reserved
			dc.l	0			;Buffer Pointer (reserved)

			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCSearchDone
;
;  PURPOSE:		To return status if search command is completed
;
;  PASSED:		returned		WORD	;space for result
;				McChannelNo		WORD	;channel number
;
;  RETURNED:	DoneStatus		WORD	;status if done (not zero
;										; inficates done)
;
;-------------------------------------------------------------------
MCSearchDone PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
ChannelNo	word
DoneStatus	word		;returned done status
			
			lda #1
			sta DoneStatus,s	;always report done
			lda #0
			jmp	Exit2
			ENDP
			

;-------------------------------------------------------------------
;
;  NAME:		MCSearchWait
;
;  PURPOSE:		To wait until device has completed search command.
;
;  PASSED:		McChannelNo		WORD	;channel number
;
;  RETURNED:	None
;
;-------------------------------------------------------------------
MCSearchWait  	PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
ChannelNo	word


			lda #0
			jmp	Exit2

			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCGetPosition
;
;  PURPOSE:		To return current position of device
;
;  PASSED:		returned		LONG	;space for result
;				McChannelNo		WORD	;channel number
;				mcUnitType		WORD	;passed unit type
;
;  RETURNED:	CurrPos			LONG	;Current Position
;
;-------------------------------------------------------------------
MCGetPosition	PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
mcUnitType	word
ChannelNo	word
CurrPos		long		;returned current position

			lda #1
			sta RetryCntr			;init retry counter
DSReDo			
			jsr GetLocation			;go get location
			sta TheError
				
			lda mcUnitType,s
			cmp #InFrames			;want frames?
			bne TryTime
;-------------------------------------------------
;We return the Frame position here
;-------------------------------------------------
			lda #UnImp				;we dont do frame stuff
			bra GotError
			
			
			
DoRest
			jsr CvtTime2ASCII		;convert bcd to ascii
			pha						;space for result
			pha
			PushLong #ScratchStr+1
			lda ScratchStr
			and #$00ff
			pha
			PushWord #0				;because it needs a long
			_Dec2Long				;convert to decimal
			bcs GotErr
ISOK
			pla
			sta CurrPos+2,s
ISOK2
			pla
			sta CurrPos+2,s
			lda #0					;no error exit
GotError	jmp JustExit
;We arrive here if we receive some type of error trying to convert value?
GotErr		pla
			pla
GotErr2		lda #FunnyData
			cpx TheError			;get location error
			beq GotErrX				;branch if no error
			txa						;else use that one
GotErrX
			jmp JustExit

TryTime
			cmp #InTimes
			bne TryChapters
;--------------------------------------------------
;We get the time position here
;--------------------------------------------------
	
			lda QAMin
			and #$00ff			;there are no hours
			sta CurrPos+2,s
			lda QASec
			xba
			sta CurrPos,s

NoErrs
			lda #0
			jmp	JustExit
			
TryChapters
			cmp #InChapters
			bne WrongSpec
;--------------------------------------------------
;We get the track position here
;--------------------------------------------------
			lda QTrack
			and #$00ff
			sta MyBCDTime+2
			lda #0
			sta MyBCDTime		
			jmp DoRest

WrongSpec

			lda #BadUnitType
OutErrC1	
JustExit		
;This code checks to see if we want to ignore disk switched errors.
;If we want to ignore disk switched errors and one occurs, we redo the command.
			cmp #drvrDiskSwitch		;see if disk switche error
			bne DSExit				;just exit if not
			ldx DSFlag				;get disk switched flag
			bne DSExit				;branch if want disk switched errors
ReDoJmp		jmp DSReDo				;go redo the command
DSExit

			cmp #DataTrack			;see if fe02 error (data area)
			beq TryStop				;if in data area, just play
			cmp #DataTrack2
			beq TryStop
			cmp #DataTrack3
			beq TryStop
JustOut		jmp Exit4
;if we arrive here, we have a $fe02, $7e02, or $00f1 error (beyond audio portion)
TryStop
			dec RetryCntr
			beq JustOut
;Now just try a stop to force the heads back to an audio portion
			lda ChannelNo,s			;get channel no.
			pha						;pass as parameter
			ldx #$2b26
			jsl >$E10000
;			_MCStop					;convert binary value to time BCD
			bcc ReDoJmp				;redo command if no error
			bra JustOut				;else just return with the error


RetryCntr	ds.w	1
TheError	ds.w	1				;save error no.
			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCSetAudio
;
;  PURPOSE:		To control the audio portion
;
;  PASSED:		McChannelNo		WORD	;channel number
;				AudioCtrl		WORD	;audio control command no.
;
;  RETURNED:	None
;
;-------------------------------------------------------------------
MCSetAudio 	PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
AudioCtrl	word
ChannelNo	word

DSReDo
			lda AudioCtrl,s			;get audio control value
			
;First see if its a valid audio command
NotAudio	cmp #AudioMonaural+1
			bcc ValidAudio			;branch if valid

			lda #BadAudio			;else invalid audio value error
			bra JustExit

;We arrive here with a valid audio value
ValidAudio
			sta AudioMode			;set the audio mode for next command

			lda #0					;Want regular audio values
			jsr GetAudioStat		;get current audio status
			bcs JustExit			;branch if go error
			lda AudioSField			;get audio status field
			and #$0007
			beq InPlayMode			;branch if currently playing
			cmp #2					;branch if playing but muted
			bne OutOK				;branch if not currently playing
;Now we know we are in play mode (so issue a play command with audio new audio)
InPlayMode
			jsr	PlayAtCurr			;Start playing at current location
			bcs JustExit			;branch if error
OutOK
			lda #0
JustExit
;This code checks to see if we want to ignore disk switched errors.
;If we want to ignore disk switched errors and one occurs, we redo the command.
			cmp #drvrDiskSwitch		;see if disk switche error
			bne DSExit				;just exit if not
			ldx DSFlag				;get disk switched flag
			bne DSExit				;branch if want disk switched errors
			jmp DSReDo				;go redo the command
DSExit

			jmp Exit4
			
			EXPORT AudioMode
AudioMode	dc.w	AudioStereo		;audio mode (startup default stereo)
			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCGetTimes
;
;  PURPOSE:		To return time value
;
;  PASSED:		returned		LONG	;space for result
;				McChannelNo		WORD	;channel number
;				mcTimeSelect	WORD	;passed time info selector
;
;  RETURNED:	TimeInfo		LONG	;Time information
;
;-------------------------------------------------------------------
MCGetTimes	PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
mcTimeSelect word
ChannelNo	word
TimeInfo	long		;returned time

DSReDo
			lda mcTimeSelect,s	;get time selector value
;-----------------------------------------
; McElapsedTrack 0
;-----------------------------------------
			cmp #mcElapsedTrack
			bne Try1
			jsr GetLocation		;get the current location
			bcs ErrorOutJ		;branch if error
			lda QSec			;get seconds and frame no.
			xba
			sta TimeInfo,s
			lda QMin
			and #$00ff			;only want minutes (no hours)
			sta TimeInfo+2,s
			
			jmp Done
ErrorOutJ	jmp ErrorOut
;-----------------------------------------
; McRemainTrack 1
;-----------------------------------------
Try1
			cmp #mcRemainTrack
			beq OK1
			jmp Try2			;jmp if not mcRemainTrack
OK1
			jsr GetLocation		;get the current location
			bcs ErrorOutJ		;branch if error
			lda #0				;get first and last track numbers
			jsr GetToc			;get toc
			bcs ErrorOutJ		;branch if error
			lda TOCData+1		;get last track no.
			and #$00ff
			sta TimeInfo,s		;save for compare
			lda QTrack
			and #$00ff
;Now we get the starting address of the next track for the calculation
			cmp TimeInfo,s		;see if on last track
			bne NotLastTrk		;branch if not on last track
;We arrive here if we are on the last track, use end of disc for calculation
OnLastTrk
			lda #$0040			;get lead out area addr (end of disc)
			jsr GetToc			;get TOC
			stz TOCTrack		;zero the track
			bcs ErrorOutJ		;branch if error occured

			lda TocData			;remember min=tocdata
			and #$00ff			;and out unwanted byte
			xba
			sta AddData
			lda TocData+1
			sta AddData+2
			bra ContX
NotLastTrk
			sep #$38			;8-bit and decimal moce
			longa off
			longi off
			clc
			adc #1
			sta TOCTrack		;set track number
			rep #$38			;back to 16-bits and binary mode
			longa on
			longi on

			lda #$0080
			jsr GetToc			;get TOC
			stz TOCTrack		;zero the track
			bcs ErrorOutJ		;branch if error occured

;Now we do the subtraction
NowDoSub

			lda TocData			;remember min=tocdata+1
			and #$ff00			;and out unwanted byte
			sta AddData
			lda TocData+2
			sta AddData+2
ContX
			lda QAMin
			and #$00ff
			tax
			lda QAMin+1
			xba
			jsr SubTime			;subtract QAMin from TocData			

			stx TOCData			;store things for return
			xba
			sta TOCData+1
RetTOCStuff
			lda TOCData+1
			xba
			sta TimeInfo,s
			lda TOCData
			and #$00ff
			sta TimeInfo+2,s

			jmp Done

;-----------------------------------------
; McElapsedDisc 2
;-----------------------------------------
Try2
			cmp #mcElapsedDisc
			bne Try3
			jsr GetLocation		;get the current location
			bcs ErrorOut		;branch if error
			lda QASec			;get seconds and frame no.
			xba
			sta TimeInfo,s
			lda QAMin
			and #$00ff			;only want minutes (no hours)
			sta TimeInfo+2,s
			jmp Done

;-----------------------------------------
; McRemainDisc 3
;-----------------------------------------
Try3
			cmp #mcRemainDisc
			bne Try4
			jsr GetLocation		;get the current location
			bcs ErrorOut		;branch if error
			jmp OnLastTrk		;do the rest

;-----------------------------------------
; McTotalDisc 4
;-----------------------------------------
Try4
			cmp #mcTotalDisc
			bne Try5
			bra IDStuff			;do the same as the ID routine

;-----------------------------------------
; McTotalFrames 5
;-----------------------------------------
Try5
			cmp #mcTotalFrames
			bne Try6
			lda #UnImp			;not implemented for CD-rom drives
			jmp ErrorOut

;-----------------------------------------
; McTracks 6
;-----------------------------------------
Try6
			cmp #mcTracks
			bne Try7
			lda #0
			jsr GetTOC			;get TOC for first and last track numbers
			bcs ErrorOut		;branch if error
			lda TOCData
			and #$00ff
			jsr BCD2Dec
			sta TimeInfo,s
			lda TOCData+1
			and #$00ff
			jsr BCD2Dec
			sta TimeInfo+2,s
			jmp Done

;-----------------------------------------
; McDiscID 7
;-----------------------------------------
Try7
			cmp #mcDiscID
			beq IDStuff
			lda #BadSelector
			bra ErrorOut
IDStuff
			lda #$0040			;get lead out starting address
			jsr GetToc			;get toc
			bcs ErrorOut		;branch if error
			jmp RetTOCStuff		;go return the info



Done
			lda #0
ErrorOut
;This code checks to see if we want to ignore disk switched errors.
;If we want to ignore disk switched errors and one occurs, we redo the command.
			cmp #drvrDiskSwitch		;see if disk switche error
			bne DSExit				;just exit if not
			ldx DSFlag				;get disk switched flag
			bne DSExit				;branch if want disk switched errors
			jmp DSReDo				;go redo the command
DSExit

			jmp Exit4
			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCGetNoTracks
;
;  PURPOSE:		To return no. of tracks/chapters on the disc.
;
;  PASSED:		returned		WORD	;space for result
;				McChannelNo		WORD	;channel number
;
;  RETURNED:	Tracks			WORD	;Tracks/Chapters on the disc
;
;-------------------------------------------------------------------
MCGetNoTracks PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
ChannelNo	word
Tracks		word		;result no. of tracks/chapters

DSReDo			
			lda MyDevID
			sta ReadTOCDNum			;set device number			

			_DStatusGS ReadTOCBlk 	;perform a ReadTOC call
			bcs ErrorOut

			sep #$38			;8-bit and decimal moce
			longa off
			longi off
			clc
			lda TOCLast
			sbc TOCFirst		;now we have no. of tracks minus one
			adc #1				;add one for true number of tracks
			sta TOCLast			;save back to last
			rep #$38			;back to 16-bits and binary mode
			longa on
			longi on
			and #$00ff
			jsr BCD2Dec			;convert to decimal

			sta Tracks,s		;set return value
			lda #0
ErrorOut
;This code checks to see if we want to ignore disk switched errors.
;If we want to ignore disk switched errors and one occurs, we redo the command.
			cmp #drvrDiskSwitch		;see if disk switche error
			bne DSExit				;just exit if not
			ldx DSFlag				;get disk switched flag
			bne DSExit				;branch if want disk switched errors
			jmp DSReDo				;go redo the command
DSExit

			jmp Exit2
			
;=====================================================================
;This is the DControl data block
ReadTOCBlk 	dc.w	5			;Passed parameter count (PCount)
ReadTOCDNum	dc.w	0			;Passed device number (Stuffed)
ReadTOCCode	dc.w	$80C1		;Passed code (ReadQSubcode)
			dc.l	ReadTOCList	;Passed list pointer
			dc.l	4			;Passed request count
			dc.l	0			;Returned transfer count
;This is the status control list
ReadTOCList	dc.w	0			;Passed zeros (reserved)
			dc.b	$C1			; 0 SCSI command
			dc.b	$00			; 1 SCSI flags
ReadTOCTrk	dc.b	$00			; 2
			dc.w	0			; 3-4 (reserved)
ReadTOCType	dc.b	0			; 5 TOC type
			dc.w	0			; 6-7
			dc.b	0			; 8 
			dc.b	0			; 9 
			dc.w	0			; 10 
			dc.l	ReadTOCData	;Buffer Pointer
			
ReadTOCData
TOCFirst	ds.b	1			;First track no. (BCD)
TOCLast		ds.b	1			;Last track no. (BCD)
			ds.w	1			;reserved

			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCGetDiscTOC
;
;  PURPOSE:		To get a discs TOC (Table of Contents)
;
;  PASSED:		returned		LONG	;resultant start of track address
;				McChannelNo		WORD	;channel number
;				TrackNo			WORD	;track no.
;
;  RETURNED:	DiscTOC			LONG	;Discs TOC info. string
;
;-------------------------------------------------------------------
MCGetDiscTOC PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
TrackNo		word
ChannelNo	word
TrackTOC	long			;returned start of track


DSReDo
;We first must convert the Chapter/track no. to BCD for the search

			lda TrackNo,s			;get track no.
			pha						;space for result
			pha						;space for result
			pea 0					;push high word of zero
			pha						;push low word
			ldx #$0d26
			jsl >$E10000
;			_MCCvtgBin2Time			;convert binary value to time BCD
			pla						;get low word
			plx						;get high word

			and #$00ff				;because track max.=99 BCD
			sta TOCTrack			;set the track no.
			lda #$0004
			sta TOCByte7			;set sizer of buffer to long (4 bytes)
			lda #$0080				;for track starting address
			jsr GetTOC				;go get track start
			stz TOCTrack			;zero out track no.
			stz TOCByte7			;zero out length words
			bcs ErrorOut			;branch if error occured
			lda TOCData+2
			xba
			sta TrackTOC,s			;return the start addr. of track
			lda TOCData+1			;get BCD minutes
			and #$00ff				;because CD's dont have hours
			sta TrackTOC+2,s
			lda #0					;return no errors			
ErrorOut
;This code checks to see if we want to ignore disk switched errors.
;If we want to ignore disk switched errors and one occurs, we redo the command.
			cmp #drvrDiskSwitch		;see if disk switche error
			bne DSExit				;just exit if not
			ldx DSFlag				;get disk switched flag
			bne DSExit				;branch if want disk switched errors
			jmp DSReDo				;go redo the command
DSExit

			jmp	Exit4

			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCGetDiscID
;
;  PURPOSE:		To get a discs unique ID
;
;  PASSED:		returned		LONG	;space for result
;				McChannelNo		WORD	;channel number
;
;  RETURNED:	DiscTOC			LONG	;Discs ID
;
;-------------------------------------------------------------------
MCGetDiscID PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
ChannelNo	word
DiscID		long		;returned discs ID
			
DSReDo
			lda #$0040				;for lead out addr. BCD Min-Sec-Frame
			jsr GetTOC				;go get end of audio portion
			bcs ErrorOut			;branch if error occured
			lda TOCData+1
			xba
			sta DiscID,s			;return the lead out area as unique disc ID
			lda TOCData				;get BCD minutes
			and #$00ff				;because CD's dont have hours
			sta DiscID+2,s
			lda #0					;return no errors
			
ErrorOut
;This code checks to see if we want to ignore disk switched errors.
;If we want to ignore disk switched errors and one occurs, we redo the command.
			cmp #drvrDiskSwitch		;see if disk switche error
			bne DSExit				;just exit if not
			ldx DSFlag				;get disk switched flag
			bne DSExit				;branch if want disk switched errors
			jmp DSReDo				;go redo the command
DSExit

			jmp	Exit2

			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCRecord
;
;  PURPOSE:		To put the device in record mode
;
;  PASSED:		McChannelNo		WORD	;channel number
;
;  RETURNED:	None
;
;-------------------------------------------------------------------
MCRecord  	PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
ChannelNo	word

			lda #UnImp			;We cant record on a CD
			jmp	Exit2
			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCStop
;
;  PURPOSE:		To put the device in "stop" mode
;
;  PASSED:		McChannelNo		WORD	;channel number		
;
;  RETURNED:	None
;
;-------------------------------------------------------------------
MCStop  	PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
ChannelNo	word

DSReDo			
;First see if we need to clear out a previous stop location
			lda ChannelNo,s			;pass channel no.
			jsr RidStop				;get rid of current stop if need to
			bcs ErrorOut			;branch if error

;Now put the player in pause mode
;			ldx #$0010				;set pause						
;			jsr DoPause				;do a pause command
;			bcs ErrorOut			;branch if error
;Now search to track 1
;Now determine first audio track no.
			
			lda #0
			jsr GetTOC				;get TOC for first and last track numbers
			bcs ErrorOut			;branch if error
			lda TOCData
			and #$00ff				;just want first track no.
			jsr BCD2Dec				;convert to decimal
			sta StartTrk			;save starting track
			
FirstAudio
			lda ChannelNo,s
			pha						;pass channel no.
			PushWord #InChapters	;location specified as chapter
			PushWord #0				;push high word of track wanted
			PushWord StartTrk
			ldx #$2126
			jsl >$E10000			;perform _MCSearchTo
;			_MCSearchTo
			cmp #DataTrack			;see if digital data
			beq GoOnX
			cmp #DataTrack2			;see if digital data
			beq GoOnX
			cmp #DataTrack3
			bne ErrorOut
GoOnX
			inc StartTrk
			lda StartTrk
			cmp #$0099				;compare so we wont loop forever
			bcc FirstAudio
			lda #DataTrack			;restore DataTrack error
			
ErrorOut
;This code checks to see if we want to ignore disk switched errors.
;If we want to ignore disk switched errors and one occurs, we redo the command.
			cmp #drvrDiskSwitch		;see if disk switche error
			bne DSExit				;just exit if not
			ldx DSFlag				;get disk switched flag
			bne DSExit				;branch if want disk switched errors
			jmp DSReDo				;go redo the command
DSExit

			jmp	Exit2
			
StartTrk	ds.w	1				;starting track
			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCWaitRawData
;
;  PURPOSE:		To wait for raw data from the device
;
;  PASSED:		McChannelNo		WORD	;channel number
;				GSOSStringPtr	LONG	;pointer to gs/os resultant string tr.
;				TickWait		Word	;no. of ticks before timeout error
;				Term_Mask		Word	;terminal char. and mask char.
;
;  RETURNED:	None
;
;-------------------------------------------------------------------
MCWaitRawData PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
Term_Mask	word
TickWait	word
GSOSString	long				;pointer to result
ChannelNo	word

			lda GSOSString,s
			sta DP0
			lda GSOSString+2,s
			sta DP2
;Just set the no. of characters read to zero
			lda #0
			ldy #2
			sta [DP0],y			;set transfer count into GS/OS string

			lda #Unimp			;return with unimplemented error
			jmp Exit8

			ENDP


;-------------------------------------------------------------------
;
;  NAME:		MCSetVolume
;
;  PURPOSE:		To set the volume on the device
;
;  PASSED:		McChannelNo		WORD	;channel number
;				LeftVolume		WORD	;Left volume value
;				RightVolume		WORD	;Right volume value
;
;  RETURNED:	None
;
;-------------------------------------------------------------------
MCSetVolume PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
RightVolume word
LeftVolume	word
ChannelNo	word


;Remember the volume values are 16-bit values so all we want are the
;top 8-bits for the CD player
			lda MyDevID
			sta PlayDNum			;set device number

DSReDo
			lda RightVolume,s
			sta L_volume			;set the right volume value
			lda LeftVolume,s
			xba						;get high byte into low byte
			sep #$30					;8-bit mode
			sta L_volume			;set the left volume value
			rep #$30					;back to 16-bit mode
			_DControlGS AudioDCtlBlk ;perform an audio control command


JustExit
;This code checks to see if we want to ignore disk switched errors.
;If we want to ignore disk switched errors and one occurs, we redo the command.
			cmp #drvrDiskSwitch		;see if disk switche error
			bne DSExit				;just exit if not
			ldx DSFlag				;get disk switched flag
			bne DSExit				;branch if want disk switched errors
			jmp DSReDo				;go redo the command
DSExit

			jmp Exit6


;=====================================================================
;This is the DControl data block for a Audio Control Command
AudioDCtlBlk dc.w	5			;Passed parameter count (PCount)
PlayDNum	dc.w	0			;Passed device number (Stuffed)
PlayCode	dc.w	$80CE		;Passed code (Audio Control)
PlayListPtr	dc.l	PlayList	;Passed list pointer
			dc.l	4			;Passed request count
			dc.l	0			;Returned transfer count
;This is the control list
PlayList	dc.w	0			;Passed zeros (reserved)
			dc.b	$CE			; 0 SCSI command
			dc.b	$00			; 1 SCSI flags
			dc.b	$00			; 2 Stop flag 
PlayAudioM	dc.b	$00			; 3 Play mode
PlayBackAdr	dc.l	0			; 4 Playback address
			dc.b	$00			; 8 Address type (specified in AMin, ASec, AFrame)
			dc.b	0			; 9 Reserved
			dc.w	0			; 10 Reserved
			dc.l	VolumeData	;Buffer Pointer (reserved)
			
VolumeData
L_volume	dc.b	$00			;L-channel volume
R_volume	dc.b	$00			;R-channel volume
			dc.w	0			;reserved

			ENDP

		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/MediaCtl/AppleCDSC/AppleCDSC.make b/IIGS.601.SRC/A.U.G/MediaCtl/AppleCDSC/AppleCDSC.make
new file mode 100644
index 0000000..9e72650
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/MediaCtl/AppleCDSC/AppleCDSC.make
@@ -0,0 +1 @@
+#   File:       AppleCDSC.make
#   Target:     AppleCDSC
#   Sources:    AppleCDSC.aii 
#   Created:    Thursday, February 15, 1990 10:56:01 PM

AppleCDSC ÄÄ AppleCDSC.make ¶
		AppleCDSC.aii.obj
	LinkIIGS ¶
		AppleCDSC.aii.obj ¶
		-o AppleCDSC -t $BB -at $0420
AppleCDSC.aii.obj Ä AppleCDSC.make AppleCDSC.aii
	AsmIIGS AppleCDSC.aii
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/MediaCtl/BuildEverthing b/IIGS.601.SRC/A.U.G/MediaCtl/BuildEverthing
new file mode 100644
index 0000000..40364e2
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/MediaCtl/BuildEverthing
@@ -0,0 +1 @@
+#
# BuildAll {Parmeters}
#
# This builds the medica control drivers that Dan H. builds, its CDev
# and NDA.
#
# All options are passed on the BuildProgram script.
#
##################################################################


# The following code permits this script to be executed from
#   anywhere, and for subsidiary scripts to do anything they
#   want to the directory prefixes without messing up the
#   overall build.
# CRUCIAL ASSUMPTION: All subdirectories containing control panel
#   source are in the directory containing this script file.
# Jim Merritt thanks Jim Mensch for digging up the regular expression
#   in the evaluate command below, and John Dance for supplying
#   a foolproof way for a shellscript to come up with its own full
#   pathname.  Wotta great bunch of guys!

set myparent `files -f {Command}`
(evaluate "{myparent}" =~ /(([Â:]*:)+)¨1[Â:]*/ ) > Dev:Null
set myparent "{¨1}"
IF "{myparent}" == ""
  echo "*** ERROR:  Cannot determine script home directory."
  exit
END


directory {myparent}P4200:
BuildProgram {Parameters} P4200
directory {myparent}Pioneer2000:
BuildProgram {Parameters} P2000
directory {myparent}AppleCDSC:
BuildProgram {Parameters} AppleCDSC
directory {myparent}MediaCtlCDev:
BuildProgram {Parameters} MediaCtrl
directory {myparent}MediaCtlNDA:
BuildProgram {Parameters} MediaCtlNDA


directory {myparent}
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/MediaCtl/MediaCtlCDev/MediaCtrl.aii b/IIGS.601.SRC/A.U.G/MediaCtl/MediaCtlCDev/MediaCtrl.aii
new file mode 100644
index 0000000..e2d802c
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/MediaCtl/MediaCtlCDev/MediaCtrl.aii
@@ -0,0 +1 @@
+*******************************************************************************
*
*			Media Control CDEV
*
*
*		Copyright 1988,1989,1990 Apple Computer, Inc.
*			All rights reserved
*
*
*		Written by :	Dan Hitchens
*
*				with code from:
*				Tim Harrington
*				     and
*				Scott Kuechle
*
*
*******************************************************************************
*
* Revision History
*
* 1.0dx     9/1/89   DDH	-Took directconnect CDEV and started modifying
*
* 1.0d8	    3/15/90  DDH	-Fixed so that Modem and Printer ports show up
*				 correctly even if ports are configured 
*				 differently (i.e. modem as printer port)
*				-Added code for SCSI port to show up if any SCSI
*				 device is in system.
*
* 1.0d9	    3/20/90  DDH	-Changed so that CDEV will only display media
*				 control file aux type devices $04xx.
*				-We now on closeCDev, shutdown and unload drivers
* 1.0d11    4/26/90  DDH	-Finally should build on the build system
* 1.0d12    5/23/90  DDH	-Modified so will only unload changed drivers on
*				 specific channels instead of all drivers each time
*				 CDev was terminated.
* 1.0d13	6/5/90		-Cleaned up some source code names and documentation
* 1.0d17	10/8/90		-Added "Media.Control" subdirectory level
* 1.0d20	11/25/90	-Changed "NONE" to "GAME PORT"
* 				-Added checking for only selecting driver or port error
*				 and putting up alert window when occurs.
* 1.0d21	11/30/90	-Added colored radio buttons indicating connection made
*				-Changed alert messages on only selecting a driver or port
*				-Added code for appleshare networked booting (looks in users file)
*				-Added alert indicating media.setup was locked whenever the
*				 user trys to change something.
* 1.0d28	3/5/91		-Added CLEAR button to clear colored radio button
*				-Added any selection will color the radio button
* 1.1		7/26/91		-Fixed problem of channel turning red with using tab on
*				port or drive list.
*******************************************************************************
		msb	off
		string	asis

		INCLUDE	'M16.UTIL'
		INCLUDE	'M16.GSOS'
		INCLUDE	'M16.CONTROL'
		INCLUDE	'M16.MISCTOOL'
		INCLUDE	'M16.MEMORY'
		INCLUDE	'M16.INTMATH'
		INCLUDE	'M16.PRINT'
		INCLUDE	'M16.LIST'
		INCLUDE 'M16.Quickdraw'
		INCLUDE 'M16.Locator'
		INCLUDE 'M16.Dialog'
		INCLUDE	'M16.Window'

		ENTRY	bogusCDEV,\
			InitCDEV,\
			CloseCDEV,\
			CreateCDEV,\
			MyHitCDEV,\
			AboutCDEV,\
			SetupChann,\
			SaveChann,\
			FromListD,\
			FindSelected,\
			FromListP
		ENTRY	FindSelected2
		ENTRY	MyRectCDEV
		ENTRY	AlertConns
		ENTRY	C2Device,CPort
		ENTRY	OldDriversName
		ENTRY	OldPortsName
		ENTRY	WriteData
		
		ENTRY	MMDriver
		ENTRY	MMPort
		ENTRY	MMChannel
		ENTRY	XSetupTable
		ENTRY	MMCmpDriver
		ENTRY	MMCmpPort
		ENTRY	TheWindPtr
		ENTRY	MyCtrlListH1
		ENTRY	MyCtrlListH2
		ENTRY	List1Control
		ENTRY	List2Control
		ENTRY	SetupErr
		ENTRY	MSCreateErr
		ENTRY	AddColor
		ENTRY	TheHandle
		ENTRY	ForceColor


zp0		equ	0		;Zero page use
zp1		equ	zp0+4
zpsize		equ	zp1+4		;Length of zero page.

MemRecSize	equ	5		;Size of each member record.

*##############################################################################
*
* Below is the main entry point for this CDEV.  All messages (commands)
* passed to the CDEV by the Control Panel go through this point.  This CDEV
* handles only 5 of the standard CDEV calls.  These are listed below:
*
*	Call Name	Call Number
*	---------	-----------
*	INIT		4
*	CLOSE		5
*	CREATE		7
*	ABOUT		8
*
* ON ENTRY:	C,X,Y =	Unknown
*		Stack =	Result Space (Long)
*			Message (Word)
*			Data1 (Long)
*			Data2 (Long)
*			Return Address (3 Bytes)
*
*			Message = Call Number
*			Data1 = Window Grafport
*			Data2 = Unused
*
* ON EXIT	C,X,Y =	Changed
*		Stack =	Result (Long)
*
*			Result = 0 (always)
*
*##############################################################################

main		PROC

		ENTRY	Data1,Data2
		ENTRY	List1Control
		ENTRY	List2Control
		ENTRY	ControlList
		ENTRY	MyRect
		ENTRY	AboutList
		ENTRY	MErrorList
		ENTRY	Mem1RecH,Mem2RecH
		ENTRY	MyID
		ENTRY	List1Count,List2Count
		ENTRY	List1ID,List2ID
		ENTRY	CreateError

		phb			;Save old data reg
		phk			;Set data reg = prog reg
		plb

		lda	5,s		;Load DATA2 off the stack
		sta	Data2		;and store it locally.
		lda	7,s
		sta	Data2+2
		lda	9,s		;Load DATA1 off the stack
		sta	Data1		;and store it locally.
		lda	11,s
		sta	Data1+2
		lda	13,s		;Load MESSAGE off the
		sta	Message		;stack and store it locally.

		lda	1,s		;Bump the stack up to prepare
		sta	11,s		;to take off the 3 parameters
		lda	3,s		;that we stored about.
		sta	13,s

		PullWord		;Get rid of MESSAGE space
		PullLong		;Get rid of DATA1 space
		PullLong		;Get rid of DATA2 space

		lda	Message		;Load the call number
		cmp	#12		;Compare againts max+1
		bcs	ret_addr	;If >= max+1, just leave.

		pea	ret_addr-1	;Push our return address
		asl	a		;Times 2 into word table
		tax			;Move into index reg
		lda	cdev_calls,x	;Load the address of call handler
		pha			;Push the address of routine on the stack
		rts			;Jump to the call handler

ret_addr	lda	#0		;Make sure we return zeros.
		sta	5,s
		sta	7,s

		plb			;Restore NDAs data bank register
		rtl			;Return to Control Panel NDA.

Message		dc.w	0		;Local storage for MESSAGE
Data1		dc.l	0		;Local storage for DATA1
Data2		dc.l	0		;Local storage for DATA2

MyID		dc.w	0

CreateError	dc.w	0		;0 = no error, 1 = error

;-------------------------------------------------------------------------
;
; CDEV Vectors
;
;-------------------------------------------------------------------------

cdev_calls	dc.w	bogusCDEV-1	;0	;Null
		dc.w	bogusCDEV-1	;1	;MachineCDEV
		dc.w	bogusCDEV-1	;2	;BootCDEV
		dc.w	bogusCDEV-1	;3	;ShutdownCDEV
		dc.w	InitCDEV-1	;4
		dc.w	CloseCDEV-1	;5
		dc.w	bogusCDEV-1	;6	;EventsCDEV
		dc.w	CreateCDEV-1	;7
		dc.w	AboutCDEV-1	;8
		dc.w	bogusCDEV-1	;9	;RectCDEV
		dc.w	myHitCDEV-1	;10	;HitCDEV
		dc.w	bogusCDEV-1	;11	;RunCDEV
		

;---------------------------------------------------------------------------
;
; Control Definitions
;
;---------------------------------------------------------------------------

ControlList

		dc.l	Radio1Control	;Radio button1
		dc.l	Radio2Control	;Radio button2
		dc.l	Radio3Control	;Radio button3
		dc.l	Radio4Control	;Radio button4
		dc.l	Radio5Control	;Radio button5
		dc.l	Radio6Control	;Radio button6
		dc.l	Radio7Control	;Radio button7
		dc.l	Radio8Control	;Radio button8
		dc.l	SText1Control	;Port:
		dc.l	SText2Control	;Printer:
		dc.l	SText3Control	;'Select a Media Channel' text
		dc.l	SimpButton	;Simple "Clear Channel" button
		dc.l	0


LeftEdge	equ	10
RightEdge	equ	190
TL1Vert		equ	18+35
BR1Vert		equ	60+35
TL2Vert		equ	79+30
BR2Vert		equ	121+30
TL3Vert		equ	8+35
BR3Vert		equ	18+35
TL4Vert		equ	69+30
BR4Vert		equ	79+30

List1Control	dc.w	14		;PCount
List1ID		dc.l	1		;ID number
		dc.w	TL2Vert
		dc.w	LeftEdge
		dc.w	BR2Vert
		dc.w	RightEdge
		dc.l	$89000000	;listcontrol ID
		dc.w	0		;Flag
		dc.w	$7401		;More Flags
		dc.l	0		;Ref con
List1Count	dc.w	0
		dc.w	0		;Number seen
		dc.w	6		;Single selection Pascal strings
List1Start	dc.w	1		;1st member seen
		dc.l	0		;Draw routine
		dc.w	10		;Height
		dc.w	5		;List record size
Mem1RecH	dc.l	0

List2Control	dc.w	14		;PCount
List2ID		dc.l	2		;ID number
		dc.w	TL1Vert
		dc.w	LeftEdge
		dc.w	BR1Vert
		dc.w	RightEdge
		dc.l	$89000000	;listcontrol ID
		dc.w	0		;Flag
		dc.w	$7401		;More Flags
		dc.l	0		;Ref con
List2Count	dc.w	0
		dc.w	0		;Number seen
		dc.w	6		;Single selection Pascal strings
List2Start	dc.w	1		;1st member seen
		dc.l	0		;Draw routine
		dc.w	10		;Height
		dc.w	5		;List record size
Mem2RecH	dc.l	0

SText1Control	dc.w	8		;PCount
		dc.l	3		;ID number
		dc.w	TL4Vert
		dc.w	LeftEdge
		dc.w	BR4Vert
		dc.w	RightEdge
		dc.l	$81000000	;Static text
		dc.w	1		;Flag
		dc.w	$1000		;More flag
		dc.l	0
		dc.l	SText1
		dc.w	SText1Len

SText2Control	dc.w	8		;PCount
		dc.l	4		;ID number
		dc.w	TL3Vert
		dc.w	LeftEdge
		dc.w	BR3Vert
		dc.w	RightEdge
		dc.l	$81000000	;Static text
		dc.w	1		;Flag
		dc.w	$1000		;More flag
		dc.l	0
		dc.l	SText2
		dc.w	SText2Len

SText1		dc.b	'Select a Port:'
SText1Len	equ	*-SText1
SText2		dc.b	'Select a Media Device:'
SText2Len	equ	*-SText2

radiocontrol	equ	$84000000
FctlProcRefNotPtr equ	$1000

rc1h		equ	15
rc2h		equ	28
rc1v		equ	25
rc2v		equ	65
rc3v		equ	105
rc4v		equ	145
RadioTitle1	str	'1'
Radio1Control	dc.w	8
		dc.l	5
		dc.w	rc1h,rc1v,0,0
		dc.l	radiocontrol
		dc.w	1
		dc.w	FctlProcRefNotPtr
		dc.l	0
		dc.l	RadioTitle1
		dc.w	1

		EXPORT MyRadio1Color
MyRadio1Color
		dc.w	0			;reserved
		dc.w	$00f0			;radNOR
		dc.w	$00f0			;radSel
		dc.w	$00f4			;radTitle
		EXPORT MyColorAddr
MyColorAddr	dc.l	MyRadio1Color
DefaultClr

		dc.w	0			;reserved
		dc.w	$00f0			;radNOR
		dc.w	$00f0			;radSel
		dc.w	$00f0			;radTitle
		EXPORT MyDColorAddr
MyDColorAddr	dc.l	DefaultClr		

		
RadioTitle2	str	'2'
Radio2Control	dc.w	8
		dc.l	6
		dc.w	rc1h,rc2v,0,0
		dc.l	radiocontrol
		dc.w	1
		dc.w	FctlProcRefNotPtr
		dc.l	0
		dc.l	RadioTitle2
		dc.w	0
		
RadioTitle3	str	'3'
Radio3Control	dc.w	8
		dc.l	7
		dc.w	rc1h,rc3v,0,0
		dc.l	radiocontrol
		dc.w	1
		dc.w	FctlProcRefNotPtr
		dc.l	0
		dc.l	RadioTitle3
		dc.w	0
		
RadioTitle4	str	'4'
Radio4Control	dc.w	8
		dc.l	8
		dc.w	rc1h,rc4v,0,0
		dc.l	radiocontrol
		dc.w	1
		dc.w	FctlProcRefNotPtr
		dc.l	0
		dc.l	RadioTitle4
		dc.w	0


RadioTitle5	str	'5'
Radio5Control	dc.w	8
		dc.l	9
		dc.w	rc2h,rc1v,0,0
		dc.l	radiocontrol
		dc.w	1
		dc.w	FctlProcRefNotPtr
		dc.l	0
		dc.l	RadioTitle5
		dc.w	0
		
RadioTitle6	str	'6'
Radio6Control	dc.w	8
		dc.l	10
		dc.w	rc2h,rc2v,0,0
		dc.l	radiocontrol
		dc.w	1
		dc.w	FctlProcRefNotPtr
		dc.l	0
		dc.l	RadioTitle6
		dc.w	0
		
RadioTitle7	str	'7'
Radio7Control	dc.w	8
		dc.l	11
		dc.w	rc2h,rc3v,0,0
		dc.l	radiocontrol
		dc.w	1
		dc.w	FctlProcRefNotPtr
		dc.l	0
		dc.l	RadioTitle7
		dc.w	0
		
RadioTitle8	str	'8'
Radio8Control	dc.w	8
		dc.l	12
		dc.w	rc2h,rc4v,0,0
		dc.l	radiocontrol
		dc.w	1
		dc.w	FctlProcRefNotPtr
		dc.l	0
		dc.l	RadioTitle8
		dc.w	0
		
		
SText3Control	dc.w	8		;PCount
		dc.l	13		;ID number
		dc.w	3
		dc.w	LeftEdge
		dc.w	13
		dc.w	RightEdge
		dc.l	$81000000	;Static text
		dc.w	1		;Flag
		dc.w	$1000		;More flag
		dc.l	0
		dc.l	SText3
		dc.w	SText3Len

SText3		dc.b	'Select a Media Channel:'
SText3Len	equ	*-SText3

SimpButton	dc.w	7		;PCount
		dc.l	14		;ID number
		dc.w	157
		dc.w	LeftEdge+23
		dc.w	0
		dc.w	0
		dc.l	$80000000	;Static text
		dc.w	0		;Flag
		dc.w	$1000		;More flag
		dc.l	0
		dc.l	SButtonText
		
SButtonText	str	'Clear Channel'


MyRect		dc.w	15,leftedge,50,rightedge


AboutList	dc.w	8		;Pcount
		dc.l	1		;ID
		dc.w	38,5,138,280
		dc.l	$81000000
		dc.w	1
		dc.w	$1000
		dc.l	0
		dc.l	AboutText
		dc.w	AboutTextLen
AboutText	dc.b	'The Media Control''s control panel '
		dc.b	'allows you to specify a media control channel for '
		dc.b	'controlling multimedia devices. '
		dc.b	'Only those media device drivers and '
		dc.b	'their associated port drivers present '
		dc.b	'in your system are listed.'
AboutTextLen	equ	*-AboutText

MErrorList	dc.w	8		;Pcount
		dc.l	1		;ID
		dc.w	TL1Vert
		dc.w	LeftEdge
		dc.w	BR2Vert
		dc.w	RightEdge
		dc.l	$81000000
		dc.w	1
		dc.w	$1000
		dc.l	0
		dc.l	MErrorText
		dc.w	MErrorTextLen
MErrorText	dc.b	'An error occured while trying to allocate '
		dc.b	'memory.  This CDEV requires some free '
		dc.b	'memory in order to operate.'
MErrorTextLen	equ	*-MErrorText

		ENDP

*##############################################################################
*			Below are the CDEV handler routines		      *
*##############################################################################

bogusCDEV	PROC
		rts
		ENDP

;##############################################################################		
InitCDEV	PROC
		lda	data1
		sta	TheWindPtr
		lda	data1+2
		sta	TheWindPtr+2	
		
		
		rts
		ENDP
;##############################################################################		
MyRectCDEV	PROC

		rts
		ENDP
;##############################################################################		
MyHitCDEV	PROC

		lda data1
		ora data1+2
		beq @AllDone


		lda data2		;get button id
		cmp #3			;see if hit in one of the lists
		bcs NotLst		;branch if not
		
;We arrive here if we have an event in one of the lists
;Check to see if we want an alert because unable to create media.setup
		lda MSCreateErr
		beq @NoAlert		;branch if no alert needed
		ldx #4			;want unalbe to create alert
		bra @ForceBack
;Check to see if we want an alert dialog because media.setup was locked
@NoAlert
		lda SetupErr		;get read media.setup file error if any
		cmp #$004e		;was it access denyed (file was locked?)
		bne @AllDone		;branch if not

		ldx #0
@ForceBack
		jsr AlertConns		;send up an alert message
;Now force back to the current channel so it will redraw without the item selected
		lda MMChannel		;get current channel
		jmp GoodSel		;go redo the channel selection in the list
		
@AllDone	
;Now set the radio button color
;		jsr SaveChann
;		lda MMDriver
;		ora MMPort
;		beq NothinSel		;branch if nothing selected
		ldx	List1ID		;Look at list #1
		jsr	FindSelected2	;Find selected member	
		bne	@FoundIt	;Branch if we found one!

		ldx	List2ID		;Look at list #2
		jsr	FindSelected2	;Find selected member			
		beq	NothinSel	;branch if nothing selected
@FoundIt

		inc ForceColor		;indicate to force color
NothinSel

		jmp SetTheColor

NotLst		cmp #5
		bcc exit		;branch if less than 5
		cmp #13
		bcc ValidRB		;branch if 12 or less
		cmp #14
		bne exit		;branch if not clear channel button

		
;We arrive here if its the "Clear Channel" simple button that was hit
ClearChanX
;Now check to see if the media.setup file was locked and display dialog if it was.
		lda SetupErr		;get read media.setup file error
		cmp #$004e		;see if access denyed error
		bne ClearOK		;branch if not 
		ldx #0
		jsr AlertConns		;put up alert
		bra exit		;exit without clearing
ClearOK		
		lda	MMChannel	;get channel were working with
		asl	a		;time 2 (two bytes per entry in table)
		tax			;use as index into table
		lda	XSetuptable,x	;get offset
		tax

		lda #0			;clear out device and port names
		sta C2Device,x
		sta CPort,x

		jsr SetupChann		;go setup channel selection list as not sel.
		bra SetTheColor
		
;We arrive here with a valid radio button hit
ValidRB
		sec
		sbc #5
	
		pha			;save the new selected channel on stack
		jsr SaveChann		;Save the channel from list
		pla			;get new selected channel
		bcc GoodSel		;branch if a good selection made

		ldx #20			;normal alert
		jsr AlertConns		;put up the alert

		lda MMChannel		;use current channel
		clc
		adc #5			;calculate controls ID no.
		tay
		pha			;space for long result
		pha
		pushlong #0		;top window
		pushWord #0		;high word of desired control ID
		phy			;ID of desired control
		_GetCtlHandleFromID	;get the controls handle
		
		ply			;get low word of handle
		plx			;get high word of handle
		pushword #1		;want radio selected
		phx			;push controls handle back on
		phy
		_SetCtlValue		;set back to the old control value
		lda MMChannel
GoodSel		
		sta MMChannel
		
		jsr SetupChann		;setup new channel selection in list  
		
exit
		rts
SetTheColor
;Now set the radio button color
		lda MMChannel		;get channel were working with
		jsr AddColor		;add color to radio button
		stz ForceColor		;turn off force color if was on
		PushLong TheHandle	
		_EraseControl		;make the radio button invisible
		PushLong TheHandle
		_ShowControl		;redraw with color the new radio button
		bra exit		
		
		ENDP

*##############################################################################
*******************************************************************************
* AddColor
*
* This routine will set the color of the radio button to red if the channel
* has something selected or black if not.
*
*******************************************************************************
AddColor	PROC
		
;First lets get the handle to the control
		sta TheRButton		;save the radio button were working with
		clc
		adc #5			;calculate controls ID no.
		tay
		pha			;space for long result
		pha
		ldx CZFlag
		bne UseZero
		PushLong Data1		;use passed window pointer
		bra OverZero
UseZero
		pushlong #0		;want top window
OverZero
		pushWord #0		;high word of desired control ID
		phy			;ID of desired control
		_GetCtlHandleFromID	;get the controls handle
		PullLong TheHandle	;retrieve the handle to the control

;Now lets see which mode were in and set the color correctly
		pha			;space for result
		_GetMasterSCB		;get the master SCB
		pla
		ldx #$00f4		;assume 640 red
		and #$0080
		bne Its640		;branch if its 640 mode
		ldx #$00f7		;for 320 mode red
Its640
		stx MyRadio1Color+6	;set the color table to red

;Now lets look and see if there was anything set for this channel
		lda ForceColor		;see if force color flag is set
		bne JustForceIt
		stz TheColorAdr		;assume nothing setup
		stz TheColorAdr+2
		lda TheRButton
		asl a			;time two
		tax
		lda XSetupTable,x	;get offset into tables
		tax
		lda C2Device,x
		ora CPort,x
		and #$00ff		;only look at byte length
JustForceIt
		beq JustBW		;branch if assumption correct
;here we get the address setup to the color table ready
		ldx MyColorAddr
		ldy MyColorAddr+2
		bra OverBW
JustBW
		ldx MyDColorAddr
		ldy MyDColorAddr+2
OverBW
		stx TheColorAdr
		sty TheColorAdr+2
;
;Now create some zero page to dereference the handle
;
		phd				;Save the old D reg.
		tsc				;*Stack -> C reg.
		sec				;Add 12 bytes
		sbc	#zpsize			; (actually minus)
		tcs				;C reg. -> *Stack
		ina
		tcd				;C reg. -> *DPage
		
		lda TheHandle		;copy the handle to zero page
		sta zp0
		lda TheHandle+2
		sta zp0+2
		ldy #0
;Now get the pointer to the record
		lda [zp0],y		;now get the pointer to control record
		sta ThePtr
		iny
		iny
		lda [zp0],y
		sta ThePtr+2
;Now setup the pointer in zp0
		lda ThePtr
		sta zp0
		lda ThePtr+2
		sta zp0+2
;Now set the pointer to the color table or nill
		lda TheColorAdr
		ldy #$24
		sta [zp0],y
		iny
		iny
		lda TheColorAdr+2
		sta [zp0],y

;Now get rid of the zero page bytes from stack
		tsc				;*Stack -> C reg.
		clc				;Subtract 12 bytes.
		adc	#zpsize			; (actually plus)
		tcs				;C reg. -> *Stack
		pld				;Restore old D reg.

		rts
TheRButton	ds.w	1		;the controls id no.
		EXPORT TheHandle
Thehandle	ds.l	1		;the handle to the control
ThePtr		ds.l	1		;pointer to the control record
TheColorAdr	ds.l	1		;pointer to color table or nil
		EXPORT CZFlag
CZFlag		dc.w	1		;create zero flag
		EXPORT ForceColor
ForceColor	dc.w	0		;force 
		ENDP
*******************************************************************************
* AlertConns
*
* This routine will send up an alert indicating that the channel needs a port
* and a driver selected or that the channel needs to be cleared.
* (X-reg.)=0	;Locked alert with changes cannot be made
*         =4	;Unable to create media.setup alert
*	  =8	;I/O error alert
*	  =12	;Insert startup volume disk alert
*	  =16	;Locked alert with no changes made
*	  =20 	;For normal switching between media channel alert
*         =28	;For when leaving this cdev (goawaybox or another CDev selected.)
*******************************************************************************
AlertConns	PROC
;First lets set the type of message we want to convey.
		cpx #20			;see if want modified alert
		bcc WasDrvr		;branch if just want normal alert
		lda MMPort		;get port selection
		beq wasDrvr		;branch if something selected
		inx			;inc. index to next long table (dev. problem)
		inx
		inx
		inx
WasDrvr
		lda TheErrTable2,x
		sta TheErrPtr2		;stuff the pointer
		lda TheErrTable2+2,x
		sta TheErrPtr2+2

		lda TheErrTable3,x
		sta TheErrPtr3		;stuff the pointer
		lda TheErrTable3+2,x
		sta TheErrPtr3+2
;Now lets see which video mode we are in
		pha			;space for result
		_GetMasterSCB		;get the master SCB
		pla
		ldx #0
		and #$0080
		bne Its640		;branch if its 640 mode
		inx			;its 320 mode
		inx
Its640
;Now stuff the correct left and right coordinates for the alert depending on mode
		lda Alert640L,x
		sta MyAlertTemp+2
		lda Alert640R,x
		sta MyAlertTemp+6
		lda OK640,x
		sta Item1Rec+2
		lda AText640L,x
		sta Item2Rec+2
		sta Item3Rec+2
		lda AText640R,x
		sta Item2Rec+6
		sta Item3Rec+6

		pha			;space for result
		pha
		_GetCursorAdr
		PullLong OldCursor	;save the old cursor addr
		_InitCursor		;Init the cursor back to the arrow
		
		PushWord #0		;space for result
		PushLong #MyAlertTemp
		PushLong #0		;nil filter proc
		_CautionAlert
		pla
		
		PushLong OldCursor	;get the old cursor value
		_SetCursor

		rts
OldCursor	dc.l 1			;old cursor save area

Alert640L	dc.w 130
		dc.w 5
Alert640R	dc.w 510
		dc.w 315
OK640		dc.w 320
		dc.w 210
AText640L	dc.w 72
		dc.w 48
AText640R	dc.w 639
		dc.w 319
		

MYAlertTemp
		dc.w 30			;alert rectangle
		dc.w 120		;alert rectangle
		dc.w 85
		dc.w 520
		dc.w 1500		;alerts id
		dc.b $85		;stage byte (1st)
		dc.b $85		;stage byte (2nd)
		dc.b $85		;stage byte (3rd)
		dc.b $85		;stage byte (4th)
		dc.l Item1Temp
		dc.l Item2Temp
		dc.l Item3Temp
		dc.l 0
		
Item1Temp
		dc.w 1			;item ID
Item1Rec	dc.w 36			;items rectangel
		dc.w 335
		dc.w 0
		dc.w 0
		dc.w 10			;type of item (simple button)
		dc.l OKString		;pointer to item description
		dc.w 0			;item value
		dc.w 0			;bit flag
		dc.l 0			;color table (nil)

OKString	str 'OK'

Item2Temp
		dc.w 2			;item ID
Item2Rec	dc.w 11			;items rectangel
		dc.w 72
		dc.w 21
		dc.w 639
		dc.w $800f		;type of item 
TheErrPtr2
		dc.l ErrString2		;pointer to item description
		dc.w 0			;item value
		dc.w 0			;bit flag
		dc.l 0			;color table (nil)

ErrString2	str 'No Port was selected!'
ErrString2X	str 'No Media Device was selected!'
ErrString2y	str 'The media channel has been cleared!'
LockedStr2	str 'The Media.Setup file is Locked!'
NoSpace2	str 'The disk is full!'
IOError2	str 'I/O error!'
ReInsert2	str 'Please insert your startup disk.'

Item3Temp
		dc.w 3			;item ID
Item3Rec	dc.w 22			;items rectangel
		dc.w 72
		dc.w 32
		dc.w 639
		dc.w $800f		;type of item 
TheErrPtr3
		dc.l ErrString3		;Stuffed pointer to item description
		dc.w 0			;item value
		dc.w 0			;bit flag
		dc.l 0			;color table (nil)


ErrString3	str 'Select a port or clear channel.'
ErrString3X	str 'Select a device or clear channel.'
LockedStr3	str 'Changes cannot be made.'
IOError3	str 'Changes cannot be saved.'
Noth3		str ' '
NoChngs3	str 'No changes were made.'

TheErrTable2	dc.l	LockedStr2
		dc.l	NoSpace2
		dc.l	IOError2
		dc.l	ReInsert2
		dc.l	LockedStr2
		dc.l	ErrString2
		dc.l	ErrString2X
		dc.l	ErrString2Y
		dc.l	Errstring2Y


TheErrTable3	dc.l	LockedStr3
		dc.l	IOError3
		dc.l	IOError3
		dc.l	Noth3
		dc.l	NoChngs3
		dc.l	ErrString3
		dc.l	ErrString3X
		dc.l	ErrString2
		dc.l	ErrString2X


		ENDP
****************************************************************************************************
*
* MySetPrefix - This sets the prefix 8 correctly to support booting on a local volume
* or over the network.
*
* This routine save the old prefix 8 but doesn't restore it ( you need to restore when done.)
*
****************************************************************************************************
MySetPrefix	Proc	Export

;First lets get the old prefix 8 and save it for restoring later.
		_GetPrefixGS OldPfixParms	;get the old prefix 8 
		bcs	oops

		_DInfoGS infoParms		;get the device name for the boot device
		bcs	oops
		_VolumeGS volParms		;now do a Volume call to get the ID of the boot FST
		bcs	oops
		lda	fst_id			;get the ID number of the boot FST
		cmp	#$000D			;is it AppleShare?
		bne	local_boot		;no, must have been a local boot

aShare_boot
		_FSTSpecific fstParms		;do an FSTSpecific GetUserPath call
		bcs	oops			;punt if we can't determine the pathname of the user's folder
		ldx	userPfx			;get the pointer to the prefix
		ldy	userPfx+2
		bra	do_setPfx		;go set the prefix

local_boot
		ldx	#localPfx		;get the pointer to the local prefix
		ldy	#localPfx>>16

do_setPfx
		stx	prefix			;store the pointer to the prefix to use
		sty	prefix+2
		_SetPrefixGS pfxParms		;set the prefix to the correct location

oops
		rts				;return to caller, carry set if an error occurred

infoParms	dc.w	2			;pCount
		dc.w	1			;device number (boot device is ALWAYS device 1)
		dc.l	devName			;pointer to result buffer for device name

devName		dc.w	36			;buffer length
devName2	dc.w	0			;string length
		ds.b	32			;buffer for device name

volParms	dc.w	5			;pCount
		dc.l	devName2		;pointer to device name
		dc.l	volname			;pointer to volume name buffer
		dc.l	0			;total blocks
		dc.l	0			;free blocks
fst_id		dc.w	0			;FST ID number

volname		dc.w	36			;buffer length
volname2	dc.w	0			;string length
		ds.b	32			;string buffer

fstParms	dc.w	3			;pCount
		dc.w	$000d			;FST ID number (AppleShare)
		dc.w	8			;command number (GetUserPath)
userPfx		ds.l	1			;space for the prefix pointer

pfxParms	dc.w	2			;pCount
		dc.w	8			;prefix number
prefix		ds.l	1			;space for the prefix pointer

localPfx	dc.w	31
		dc.b	'*:System:Drivers:Media.Control:'

OldPfixParms	dc.w	2			;pCount
		dc.w	8			;prefix number (8)
		dc.l	OldPrefixS		;ptr to prefix output string area

OldPrefixS	dc.w	84			;buffer length
		EXPORT OldPrefix
OldPrefix	dc.w	0			;length of prefix
		ds.b	80			;prefix buffer

		EXPORT RestorePFix
RestorePFix	dc.w	2			;pcount
		dc.w	8			;prefix number (8)
		dc.l	OldPrefix		;saved prefix buffer


		ENDP

*******************************************************************************
* Times5
*
* This routine will multiply the number in X with 5 and return the result
* in the variable AddIndex.
*
* Inputs: X = Number to mulitiply
*
* Outputs: AddIndex = Result (long)
*******************************************************************************

Times5		PROC

		ENTRY	AddIndex

		PushLong #0		;Result space
		phx			;Item number
		PushWord #5		;Item length
		_Multiply
		PullLong AddIndex	;Offset into member list
		rts

AddIndex	dc.l	0

		ENDP

;##############################################################################		
CloseCDEV	PROC

		phd				;Save the old D reg.
		tsc				;*Stack -> C reg.
		sec				;Add 4 bytes
		sbc	#4			; (actually minus)
		tcs				;C reg. -> *Stack
		ina
		tcd				;C reg. -> *DPage

		jsr SaveChann			;Save the channel from list if changed
		bcc GoodSel			;branch if good selection
;We arrive here with a bad selection (only port or driver selected.)
		ldx #28			;want alert with clearing message
		jsr AlertConns		;put up the alert
;Now lets clear the channel

		lda	MMChannel	;get channel were working with
		asl	a		;time 2 (two bytes per entry in table)
		tax			;use as index into table
		lda	XSetuptable,x	;get offset
		tax

		lda #0			;clear out device and port names
		sta C2Device,x
		sta CPort,x

		jsr SetupChann		;go setup channel selection list as not sel.

		
GoodSel
		lda	CreateError
		beq	@CloseIt
		jmp	Exit

@CloseIt
		jsr	WriteData	;write data to Media.setup
		bcc	@MSOK		;branch if created media.setup ok
		cmp	#$002e		;see if got disk switched error
		beq	@CloseIt	;retry if got disk switched error
		ldx	#16		;assume write-protected disk
		cmp	#$002B		;see if write protected disk
		beq	@DoAlert	;do the write-protect alert
		cmp	#$004e		;see if invalid access
		beq	@DoAlert	;branch use write-protected if invalid access
		ldx 	#4		;assume volume full alert
		cmp	#$0048		;see if volume full error trying to write
		beq	@DoAlert	;do the disk full alert
		cmp	#$0046		;see if file not found error
		beq	@DoAlert	;use volume full error (was unable to create)
		ldx	#8		;assume I/O error
		cmp	#$0027		;see if it was an I/O error
		beq	@DoAlert	;do the I/O error alert
		cmp	#$0045		;see if it was a volume not found error
		bne	@DoAlert
		ldx	#12		;volume not found error
		jsr	AlertConns	;put up the insert startup volume disk
		bra	@CloseIt	;go try again

@DoAlert
		jsr AlertConns		;put up the alert dialog
@MSOK

		stz WeLoadedTool	;init indicating we didnt load tool
		stz WeStartedTool	;init indicating we didnt start tool
		
		PushWord #0		;Result space
		ldx #$0626
		jsl >$E10000
;		_MCStatus		;Is the media ctrl tool running?
		pla			;0=no
		bcs	ItsNotLoaded	;branch if we have an error
		beq	ItsLoaded	;branch if its loaded but not started
		bra	ItsReady	;branch if loaded and started
;We arrive here when we have an error doing MCStatus (we must load and startup tool)
ItsNotLoaded
		PushWord #38		;pass tool number
		PushWord #0		;pass minimum tool version
		_LoadOneTool		;load it up
		bcc LOK			;branch if no error
		jmp Exit		;jump if go an error
LOK
		inc WeLoadedTool	;flag that we loaded tool
;We arrive here when the tool is loaded but not started
ItsLoaded
		PushWord MyID		;pass my user id
		ldx #$0226
		jsl >$E10000
;		_MCStartUp
		bcs CheckOut		;branch if we got an error
		inc WeStartedTool	;flag that we started up tool
;Its loaded and started, Now we need to shutdown and unload all media ctrl drivers
;that have changed
ItsReady		
		lda #8
		sta UnLoadChan		;init unload channel no.
UnloadLoop
;First we need to see if the drivers name has changed		
		lda UnLoadChan
		dec a			;because we want to be zero based here
		asl a			;times 2
		tax			;use as index
		lda XSetuptable,x	;get index into tables
		tax
		lda #0			;so b-reg. will be zero		
		sep 	#$20		;short a-reg.
		longa 	off		
		lda OldDriversName,x	;get length of old driver name
		cmp C2Device,x		;compare with new length
		bne UnLoadDriver	;unload if not same
		cmp #0			;are they both zero?
		beq UnloadDriver	;unload if they are
;Both names have the same length; now compare strings chars.
		tay			;remember b-reg. was cleared above
		inx
CmpLoop
		lda OldDriversName,x
		cmp C2Device,x
		bne UnLoadDriver	;branch if they are different
		inx
		dey
		bne CmpLoop		;loop through all of string
		rep #$20		;back to 16-bit a-reg.
		longa on

;Now we need to see if the Ports name has changed		
		lda UnLoadChan
		dec a			;because we want to be zero based here
		asl a			;times 2
		tax			;use as index
		lda XSetuptable,x	;get index into tables
		tax
		lda #0			;so b-reg. will be zero		
		sep 	#$20		;short a-reg.
		longa 	off		
		lda OldPortsName,x	;get length of old ports name
		cmp CPort,x		;compare with new length
		bne UnLoadDriver	;unload if not same
		cmp #0			;are they both zero?
		beq UnloadDriver	;unload if they are
;Both names have the same length; now compare strings chars.
		tay			;remember b-reg. was cleared above
		inx
PCmpLoop
		lda OldPortsName,x
		cmp CPort,x
		bne UnLoadDriver	;branch if they are different
		inx
		dey
		bne PCmpLoop		;loop through all of string
		rep #$20		;back to 16-bit a-reg.
		longa on
		bra NextChann		;branch if same string (dont unload)
UnLoadDriver		
		rep #$20		;back to 16-bit a-reg.
		longa on
		PushWord UnLoadChan	;pass channel no. 
		ldx #$0b26
		jsl >$E10000
;		_MCUnloadDriver		;Shutdown and unload driver
NextChann
		dec UnLoadChan		;dec. channel
		bne UnLoadLoop		;loop through all channels (8 to 0)
		
;Here we check to see if we started up the tool
CheckOut
		lda WeStartedTool
		beq CheckUnload		;branch if we didnt startup the tool
		ldx #$0326
		jsl >$E10000
;		_MCShutdown		;shutdown the tool since we started it
;Here we check to see if we loaded the tool
CheckUnLoad
		lda WeloadedTool
		beq Exit		;branch if we didnt load it
		PushWord #38
		_UnloadOneTool		;unload the tool since we loaded it


;Now we just exit out of here
Exit		
		_SetPrefixGS RestorePFix	;restore the prefix-8
		
		tsc				;*Stack -> C reg.
		clc				;Subtract 4 bytes.
		adc	#4			; (actually plus)
		tcs				;C reg. -> *Stack
		pld				;Restore old D reg.

		lda	MyID
		beq	@NoID

		PushWord MyID			;Dispose of all our memory
		_DisposeAll

		PushWord MyID			;Dispose of our
		_DeleteID			;memory ID.

@NoID		rts
UnLoadChan	dc.w	8
WeLoadedTool	dc.w	0		;flag indicating we loaded tool
WeStartedTool	dc.w	0		;flag indicating we started tool

*******************************************************************************
* FindSelected
*
* This routine will call the list manager tool to find the selected member
* of the specified list and return it in X.
*
* Inputs: X = List number
*
* Outputs: X = Item number ( 0 = no item selected)
*******************************************************************************
		ENTRY	FindSelected
FindSelected	PushWord #0		;Result space (for _ResetMember2)

;------------------------------------------------------------------------------
; Below we get the control handle for list #n and put it on the stack
; for the _ResetMember2 call.
;------------------------------------------------------------------------------

		PushLong #0		;Result space
		PushLong TheWindPtr	;Window pointer
		PushWord #0		;Push high word of list #
		phx			;Push low word of list #
		_GetCtlHandleFromID
		bcs	@BadExit

;------------------------------------------------------------------------------
; After the above code, the control handle is on the stack for use in the
; next call.
;------------------------------------------------------------------------------

		ldx	#$131C
		jsl	>$E10000	;_ResetMember2
		plx			;Pull item number
		bcs	@BadExit
		rts

@BadExit	lda	#0
		rts

*******************************************************************************
* FindSelected
*
* This routine will call the list manager tool to find the selected member
* of the specified list and return it in X.
*
* Inputs: X = List number
*
* Outputs: X = Item number ( 0 = no item selected)
*******************************************************************************
		ENTRY	FindSelected2
FindSelected2	PushWord #0		;Result space (for _ResetMember2)
		PushWord #0		;item no. for _NextMemeber2

;------------------------------------------------------------------------------
; Below we get the control handle for list #n and put it on the stack
; for the _ResetMember2 call.
;------------------------------------------------------------------------------

		PushLong #0		;Result space
		PushLong TheWindPtr	;Window pointer
		PushWord #0		;Push high word of list #
		phx			;Push low word of list #
		_GetCtlHandleFromID
		bcs	@BadExit

;------------------------------------------------------------------------------
; After the above code, the control handle is on the stack for use in the
; next call.
;------------------------------------------------------------------------------

		ldx	#$121C
		jsl	>$E10000	;_NextMember2
		plx			;Pull item number
		bcs	@BadExit
		rts

@BadExit	lda	#0
		rts

		ENDP

*##############################################################################

AboutCDEV	PROC
		PushLong #0			;Space for result
		PushLong Data1			;Grafport
		PushWord #0			;Ptr to single
		PushLong #AboutList
		_NewControl2
		PullLong

		rts
		ENDP
		
*##############################################################################
SetupChann	PROC

;first get 4 bytes of stack space for Dpage
		phd				;Save the old D reg.
		tsc				;*Stack -> C reg.
		sec				;Add 4 bytes
		sbc	#4			; (actually minus)
		tcs				;C reg. -> *Stack
		ina
		tcd				;C reg. -> *DPage

;First copy the current Driver and Port strings to MMCmpDriver and MMCmpPort
		lda	MMChannel	;get channel were working with
		asl	a		;times 2 (two bytes per entry in table)
		tax			;use as index into table
		lda	XSetuptable,x	;get offset
		tax
		
		sep 	#$20		;short a-reg.
		longa 	off
		
		ldy 	#0
transloop	lda 	C2Device,x
		sta 	MMCmpDriver,y
		lda 	CPort,x
		sta 	MMCmpPort,y
		lda 	#0
		sta 	MMDriver,y	;zero out incase no driver
		sta 	MMPort,y	;zero out incase no port (will be written out)
		inx
		iny
		cpy 	#33
		bne 	transloop
		
		rep 	#$30		;long everything
		longa	on
;
;First do the Driver Selection
;

;Now check to see if there really is a previously picked driver and port in the file
		jmp	OKn		;--------------------&&&****((((*&*&
		
ExitJ1		jmp	Exit
OKn
		
		ldx	List2Count
		beq	ExitJ1		;exit if no drivers in list
		stx 	CurrInList	;set current entry in list

;Now get the drivers string at MMDriver and compare with MMCmpDriver for a match
CheckLoop1	ldx 	CurrInList	;get current list entry to look at
		jsr	FromListD	;copy list item over to MMDriver

		sep 	#$30		;short a-reg. and index regs.
		longa 	off
		longi	off
		
		
		
		
		
		ldx	MMCmpDriver	;get length of string
		cpx	MMDriver
		bne	notsame
cpdrvrloop
		lda	MMDriver,x
		cmp	MMCmpDriver,x
		bne	notsame
		dex
		bne	cpdrvrloop
		jmp	SameName
notsame		rep	#$30
		longa	on
		longi	on
		dec	CurrInList	;goto next item in loop
		bne	CheckLoop1
;We arrive here when the driver name from Media.Setup is not found in the list
		sep	#$30
		longa	off
		longi	off
		ldx	#33
nfloop		lda	MMCmpDriver,x	;copy chars.
		sta	MMDriver,x
		dex
		bpl	nfloop
		rep	#$30
		longa	on
		longi	on
		
		PushWord #0		;space for result
		PushLong MyCtrlListH2
		ldx	#$131c
		jsl	>$e10000
;		_resetmemeber2		;deselect if something already selected
		PullWord		;get returned number

		PushWord #0		;redraw all in list
		PushLong MyCtrlListH2
		Ldx	#$111c
		jsl	>$e10000
;		_drawmember2		;redraw list

		jmp	PortSelStuff	;go do the port stuff
;We arrive here when we have a match of the Drivers names
SameName
		
		rep	#$30
		longa	on
		longi	on


		PushWord CurrInList
		PushLong MyCtrlListH2
		ldx	#$141c
		jsl	>$e10000
;		_SelectMember2			;select the found driver name in list
;
;Now do the Port Selection
;
PortSelStuff
;Now check to see if there really is a previously picked in the file
		jmp	OKn2
ExitJ2		jmp	Exit
OKn2		ldx	List1Count
		beq	ExitJ2		;exit if no Ports in list
		stx 	CurrInList	;set current entry in list

;Now get the Ports string at MMPort and compare with MMCmpPort for a match
CheckLoop2	ldx 	CurrInList	;get current list entry to look at
		jsr	FromListP	;copy list item over to MMPort
				
		sep 	#$30		;short a-reg. and index regs.
		longa 	off
		longi	off
		ldx	MMCmpPort	;get length of string
		cpx	MMPort
		bne	notsame2
cpdrvrloop2
		lda	MMPort,x
		cmp	MMCmpPort,x
		bne	notsame2
		dex
		bne	cpdrvrloop2
		jmp	SameName2
notsame2	rep	#$30
		longa	on
		longi	on
		dec	CurrInList	;goto next item in loop
		bne	CheckLoop2
;We arrive here when the driver name from Media.Setup is not found in the list

		sep	#$30
		longa	off
		longi	off
		ldx	#33		;get length byte
nfloop2		lda	MMCmpPort,x	;copy chars.
		sta	MMPort,x
		dex
		bpl	nfloop2
		rep	#$30
		longa	on
		longi	on

		
		PushWord #0		;space for result
		PushLong MyCtrlListH1
		ldx	#$131c
		jsl	>$e10000
;		_resetmemeber2		;deselect if something already selected
		PullWord		;get returned number

		PushWord #0		;redraw all in list
		PushLong MyCtrlListH1
		Ldx	#$111c
		jsl	>$e10000
;		_drawmember2		;redraw list

		jmp	Exit
;We arrive here when we have a match of the Drivers names
SameName2
		rep	#$30
		longa	on
		longi	on
		PushWord CurrInList
		PushLong MyCtrlListH1
		ldx	#$141c
		jsl	>$e10000
;		_SelectMember2			;select the found driver name in list
		
		
Exit
		tsc				;*Stack -> C reg.
		clc				;Subtract 4 bytes.
		adc	#4			; (actually plus)
		tcs				;C reg. -> *Stack
		pld				;Restore old D reg.
		rts
CurrInList	dc.w	1
		ENDP	

*##############################################################################
SaveChann	PROC
		longa on
		longi on
		rep #$30
;first get 4 bytes of stack space for Dpage
		phd				;Save the old D reg.
		tsc				;*Stack -> C reg.
		sec				;Add 4 bytes
		sbc	#4			; (actually minus)
		tcs				;C reg. -> *Stack
		ina
		tcd				;C reg. -> *DPage

;first default MMDriver and MMPort to null (incase nothing was selected)
		stz	MMDriver
		stz	MMPort
		
;Now look for selections
		ldx	List2ID		;Look at list #1
		jsr	FindSelected	;Find selected member
	
		bne	@FoundOne	;Branch if we found one!
		stz	MMDriver
		bra	TryPortSl	;try a port selection
;		jmp	Exit0		;No member selected! (just leave)

@FoundOne

		jsr	FromListD	;get driver name from list	

;------------------------------------------------------------------------------
; Now we do the same thing to list #2 that we did for list #1
;------------------------------------------------------------------------------
TryPortSl
		ldx	List1ID
		jsr	FindSelected
		beq	Exit0

		jsr	FromListP	;get port name from list		
;------------------------------------------------------------------------------
;Now copy MMPort to file record
;------------------------------------------------------------------------------
Exit0

		
		lda	MMChannel	;get channel were working with
		asl	a		;time 2 (two bytes per entry in table)
		tax			;use as index into table
		lda	XSetuptable,x	;get offset
		tax
		
		sep 	#$20		;short a-reg.
		longa 	off
		
		ldy 	#0
transloop	lda 	MMDriver,y
		sta 	C2Device,x
		lda 	MMPort,y
		sta 	CPort,x
		inx
		iny
		cpy 	#33
		bne 	transloop
		
		rep	#$30		;long everything
		longa	on
		
Exit
		PushWord #0
		PushLong MyCtrlListH1
		ldx #$111c
		jsl >$e10000
;		_DrawMember2

		Pushword #0
		PushLong MyCtrlListH2
		ldx #$111c
		jsl >$e10000
;		_DrawMember2

		tsc				;*Stack -> C reg.
		clc				;Subtract 4 bytes.
		adc	#4			; (actually plus)
		tcs				;C reg. -> *Stack
		pld				;Restore old D reg.

;Now set the color of the radio button to indicate whether we have something selected
		lda MMChannel		;get channel were working with
		jsr AddColor		;add color to radio button
		PushLong TheHandle	
		_EraseControl		;make the radio button invisible
		PushLong TheHandle
		_ShowControl		;redraw with color the new radio button

;Now clear the carry indicating that both a port and a driver were selected or nothing was.
		
		lda MMDriver
		ora MMPort
		beq OKSelect		;branch if nothing selected
		lda MMDriver
		beq BadSelect		;branch if not selected
		lda MMPort
		beq BadSelect		;branch if not selected

OKSelect	clc			;we arrive here with a good selection
		rts
BadSelect	sec			;we arrive here with a bad selection
		rts

		ENDP

*##############################################################################
FromListD	PROC
		dex			;Minus 1 for multiply
		jsr	Times5		;Times 5 for each record.

;------------------------------------------------------------------------------
; Below we add the offset for this record number (# times 5) to the
; base location to the member pointer list.
;------------------------------------------------------------------------------

		PushLong Mem2RecH
		_HLock

		lda	Mem2RecH
		sta	zp0
		lda	Mem2RecH+2
		sta	zp0+2
		ldy	#2
		lda	[zp0]
		tax
		lda	[zp0],y
		sta	zp0+2
		stx	zp0

		clc
		lda	AddIndex	;Load low word of offset
		adc	zp0		;Add it to low word of base
		sta	zp0		;Store on zero page.
		lda	AddIndex+2	;Now do the same for the
		adc	zp0+2		;high word.
		sta	zp0+2

		ldy	#2		;Zero page location 00-03 now
		lda	[zp0]		;points to a value that is a
		tax			;pointer to the string to move.
		lda	[zp0],y		;Get this pointer and hold it
		pha			;in the X and Y registers.
					;Pushlong pointer to string.
		phx			;Must go onto the stack high-low!

;------------------------------------------------------------------------------
; Below we move the name of the file from our member list into the
; Media.SETUP file buffer for writting out.  We're falling through here
; with the source address pointer on the stack.
;------------------------------------------------------------------------------

		PushLong #MMDriver
		PushLong #33
		_BlockMove

		PushLong Mem2RecH
		_HUnlock
		rts

*##############################################################################
FromListP	PROC
		dex
		jsr	Times5

;------------------------------------------------------------------------------
; Below we add the offset for this record number (# times 5) to the
; base location to the member pointer list.
;------------------------------------------------------------------------------

		PushLong Mem1RecH
		_HLock

		lda	Mem1RecH
		sta	zp0
		lda	Mem1RecH+2
		sta	zp0+2
		ldy	#2
		lda	[zp0]
		tax
		lda	[zp0],y
		sta	zp0+2
		stx	zp0

		clc
		lda	AddIndex	;Load low word of offset
		adc	zp0		;Add it to low word of base
		sta	zp0		;Store on zero page.
		lda	AddIndex+2	;Now do the same for the
		adc	zp0+2		;high word.
		sta	zp0+2

		ldy	#2		;Zero page location 00-03 now
		lda	[zp0]		;points to a value that is a
		tax			;pointer to the string to move.
		lda	[zp0],y		;Get this pointer and hold it
		pha			;in the X and Y registers.
					;Pushlong pointer to string.
		phx			;Must go onto the stack high-low!

;------------------------------------------------------------------------------
; Below we move the name of the file from our member list into the
; Media.SETUP file buffer for writting out.  We're falling through here
; with the source address pointer on the stack.
;------------------------------------------------------------------------------

		PushLong #MMPort
		PushLong #33
		_BlockMove

		PushLong Mem1RecH
		_HUnlock
		rts
		ENDP

*##############################################################################

CreateCDEV	PROC
;First lets set the prefix
		jsr MySetPrefix			;go set prefix depending on
;						;local or network booted volume.

		PushWord #0			;Result space
		PushWord #$5000			;DA type
		_GetNewID
		PullWord MyID
		bcc	@GotID
		jmp	@MemoryError1
@ME2Jmp		jmp	@MemoryError2

@GotID		PushLong #0			;Result space
		PushLong #1			;Size of block
		PushWord MyID			;User ID
		PushWord #$8018			;Attributes
		PushLong #0			;Pointer to mem
		_NewHandle
		PullLong Mem1RecH
		bcs	@ME2Jmp

		PushLong #0			;Result space
		PushLong #1			;Size of block
		PushWord MyID			;User ID
		PushWord #$8018			;Attributes
		PushLong #0			;Pointer to mem
		_NewHandle
		PullLong Mem2RecH
		bcs	@ME2Jmp

		stz	List1Count
		stz	List2Count

		stz	PrePickFlag		;0 = don't pre-pick
		jsr	ReadMSetup

		bcs	@L1
		lda	CFlag			
		bne	@L1			;pick, don't search.
		inc	PrePickFlag		;Try to pre-pick selections.

;------------------------------------------------------------------------------
; Below we add zpsize bytes to the stack and point the direct page register
; there.  We need zpsize bytes of zero page in SCAN4DRIVERS.
;------------------------------------------------------------------------------

@L1		phd				;Save the old D reg.
		tsc				;*Stack -> C reg.
		sec				;Add 12 bytes
		sbc	#zpsize			; (actually minus)
		tcs				;C reg. -> *Stack
		ina
		tcd				;C reg. -> *DPage

		jsr	Scan4Drivers

		tsc				;*Stack -> C reg.
		clc				;Subtract 12 bytes.
		adc	#zpsize			; (actually plus)
		tcs				;C reg. -> *Stack
		pld				;Restore old D reg.

		
		PushLong #0			;Space for result
		PushLong Data1			;WindPort
		PushWord #0			;Ptr to Ptrs
		PushLong #List1Control		;Ptr to control list
		_NewControl2
		PullLong MyCtrlListH1		
		
		PushLong #0			;Space for result
		PushLong Data1			;WindPort
		PushWord #0			;Ptr to Ptrs
		PushLong #List2Control		;Ptr to control list
		_NewControl2
		PullLong MyCtrlListH2		

		PushLong #0			;Space for result
		PushLong Data1			;WindPort
		PushWord #3			;Ptr to Ptrs
		PushLong #ControlList		;Ptr to control list
		_NewControl2
		PullLong			;Discard zeros

		stz	CreateError		;Flag no error!
;Now sort the lists
		Pushlong #0
		PushLong MyCtrlListH1
		_SortList2			;sort the list
		
		PushLong #0
		PushLong MyCtrlListH2
		_SortList2

;Now change the color of the radio buttons depending if something was previously selected
		stz CZFlag
		lda #7			;set button no. (7-0)

@RBCLoop	
		pha			;save button no. on stack
		jsr AddColor		;go add the color to the radio button
		pla			;restore button no.
		dec a			;dec. button no.
		bpl @RBCLoop		;loop through all radio buttons
		lda #1
		sta CZFlag

		rts


;We arrive here with and error condition occuring

@MemoryError1	stz	MyID		;Flag no ID
@MemoryError2	lda	#0001		;Flag error!
		sta	CreateError

		PushLong #0		;Space for result
		PushLong Data1		;WindPort
		PushWord #0		;Ptr to single
		PushLong #MErrorList	;Ptr to control
		_NewControl2
		PullLong		;Discard
		rts

;------------------------------------------------------------------------------
; ReadMSetup
;
; This routine reads in the Media.SETUP file in the system folder.  If it
; doesn't exist, it will create one.
;
; Inputs: NONE
; Outputs: NONT - Global data only
;------------------------------------------------------------------------------

		ENTRY	WriteData

ReadMSetup	stz 	SetupErr	;init with no setup errors
		stz	MSCreateErr	;init with no crete setup error

OpenAgain	_OpenGS OpenMBlock	;Open the file. 
		bcs	@L2		;Branch if error.

		lda	OPRef		;Transfer reference number
		sta	RPRef		;to the read and close call
		sta	CRef		;blocks.

		_ReadGS ReadMBlock	;Read the file.
@L00		php			;Save the read/write error if any

;Now copy the media.setup drivers names and port names for comparing to
;see if they changed when we close the CDev.
		PushLong #C2Device	;source
		PushLong #OldDriversName ;Destination
		PushLong #528		;No. of bytes to move
		_BlockMove


		_CloseGS CloseBlock	;Close the file

		plp			;Restore read error flag
@L1		ldx #3
		stx MOpenReq		;Restore read/write flag
		rts

@L2
;We arrive here if we get an error trying to open the media.setup file
		ldx	SetupErr	;get old setup error
		sta 	SetupErr	;save new error
		bne	@ErrOut		;branch out with error if second time
;Now see if it was an access-not-allowed error
		cmp	#$004e		;was it access not allowed
		bne	@NotANA		;branch if not
;We arrive here with an access-not-allowed error (try reopening with read only access)
		ldx	#$0001		;set access to read only then
		stx	MOpenReq	;set open request
		bra	OpenAgain	;go retry this time with read only access
@NotANA
;Now see if file-not-found error (so we can go and create one if not there)
		cmp	#$0046		;File not found error?
		
@ErrOut		sec			;Assume branch condition
		bne	@L1		;Branch if not

		_CreateGS CreateMBlock	;Try to create the file
		bcs	@CErr		;Branch on error


		jsr	WriteData
		bcc	@L1
@CErr		ldx	#1
		stx	MSCreateErr	;set flag indicating create setup error
		bra @L1

		EXPORT MSCreateErr
MSCreateErr	ds.w	1
		EXPORT SetupErr
SetupErr	ds.w	1
;------------------------------------------------------------------------------
; WriteData
;
; This routine writes the Media.SETUP file to the Drivers file in the system
; system folder.
;------------------------------------------------------------------------------
WriteData	_OpenGS OpenMBlock	;Open the file.
		bcs	@L1		;Branch on error

		lda	OPRef		;Transfer reference number
		sta	RPRef		;to the write and close call
		sta	CRef		;blocks.

		stz	CFlag		;Zero DC/ATALK flag in write buffer

		_WriteGS ReadMBlock	;Write the file.
		php			;Save the read/write error if any
		pha

		_CloseGS CloseBlock	;Close the file
		pla

		plp			;Restore write error flag
@L1		rts

;------------------------------------------------------------------------------
; SCAN4DRIVERS
;
; This routine will scan the DRIVERS directory on the system disk in order
; to find all the media control device drivers.  It will include the file names
; into the appropriate list.  This routine will also scan the GS/OS devices in order
; to find all the applicable ports and put them into their appropriate list.
;
; Inputs: NONE - Global data only
; Outputs: NONE - Global data only
;------------------------------------------------------------------------------

Scan4Drivers	_OpenGS OpenDBlock
		bcc	@L1
		rts

@L1		lda	ODRef
		sta	GDERef
		sta	CRef

ScanLoop	_GetDirEntryGS GetDirEntryBlock
		bcc	@L00

		cmp	#$004F		;Is the name just too big?
		beq	ScanLoop	;Branch if yes.
		jmp	ScanExit	;Else, error out.

@L00		lda	FPath+2		;Load length of string
		cmp	#0033		;Is the file name too large?
		bcs	ScanLoop	;Branch if file name too large
		xba			;Turn string into Pascal type
		sta	FPath+2		;string.

		lda	GDEFileType	;Is the file a driver?
		cmp	#$00BB		;$BB = driver
		bne	ScanLoop	;Branch if not.

		lda	GDEAUXType	;Is it a media control driver?
		and	#$ff00		;look only at media control major part
		cmp	#$0400
		bne	Back2Scan	;Branch if not.

		jsr	MoveDevice	;move the name
		bcs	Back2Scan	;branch if unsuccessful adding name

		inc	List2Count	;Bump our valid driver counter.

Back2Scan	jmp	ScanLoop	;Go back for more!

TryPortType	



ScanExit	_CloseGS CloseBlock
;Now add 'NONE' to port list
		pushlong #NoneString
		pushlong #FPath+3
		Pushlong #10
		_BlockMove

;Now move it into the list
		jsr MovePort		;move port name into port list
		inc List1Count		;inc. item count in list

;----------------------------------------------------------------------------------
;Now do the GS/OS ports lists
;----------------------------------------------------------------------------------
		lda #0			;init. device number to zero
		sta DIDevNum
			
FindDevNum	inc DIDevNum		;inc. to next device no.
		lda #36
		sta DIDevName		;reset max. buffer size for try
		_DInfoGS DInfoBlock
		bcc GotOne		;branch if found some kind of device at number
		rts
;We arrive here with the InfoBlock filled with data about a device
GotOne
		lda DIDevID		;get returned Device ID
		cmp #$0020		;see if greater than currently defined ID's
		bcs UseGSString		;go ahead and put into list (for future devices)
;Now scan checking to see if its a valid multimedia type device
ScanMMTbl	ldx #GSMMLength+2
CKDevIDLoop
		dex
		dex
		bmi FindDevNum		;branch if not a valid media device
		cmp GSMMIDTable,x	;check table for valid media device
		bne CKDevIDLoop		;branch if not a match
;We arrive here with a valid media device
;Now see if its a 'Modem'
		cmp #9			;see if its the modem port
		bne tryPrinter		;branch if not
;
;Now see if its really the modem port and not the printer port as a modem
;
		lda DISlotNo		;get the slot number
		and #$0007
		cmp #2
		bne WasPrinter		;branch if was really the printer port
WasModem	PushLong #ModemString	;use 'Modem' string
		bra MoveString
;
;Now see if its a 'Printer'
;
tryPrinter	cmp #$000B		;now see if its a printer port
		bne UseGSString		;branch if not (just use GS/OS retruned string)
;Now see if its really the printer port and not the modem port as a printer
		lda DISlotNo
		and #$0007
		cmp #1			;see if printer port
		bne WasModem		;branch if wasnt in printer port slot
WasPrinter	PushLong #PrinterString
		bra MoveString
;If not modem or printer, turn GS/OS returned string to P-string starting at DIDevName
UseGSString
		lda	DIDevName+2	;Load length of string
		cmp	#0033		;Is the file name too large?
		bcs	FindDevNum	;Branch if file name too large
		xba			;Turn string into Pascal type
		sta	DIDevName+2	;string.
		PushLong #DIDevName+3
;Now move the string to FPath+3 for everything to work
MoveString
		PushLong #FPath+3	;destination addr
		PushLong #33		;length of string
		_BlockMove
;Now move it into the list
		jsr MovePort		;move port name into port list
		inc List1Count		;inc. item count in list
		bcs notfound		;branch if nothing found
		brl FindDevNum		;go look for more devices

notfound
		rts
;=====================================================================
DInfoBlock	dc.w	8			;Passed parameter count (PCount)
DIDevNum	dc.w	0			;Passed Device Number
		dc.l	DIDevName		;Passed Addr. of returned device name
DIstics		dc.w	0			;returned characteristics
DITotalBlks	dc.l	0			;returned total no. of blocks
DISlotNo	dc.w	0			;returned slot no.
DIUnitNo	dc.w	0			;returned unit no.
DIVersion	dc.w	0			;returned version no.
DIDevID		dc.w	0			;returned device ID

DIDevName	dc.w	36
			dcb.b	38,0
;Valid GS/OS media device ID numbers
GSMMIDTable
		dc.w	$0004		;SCSI device (generic)
		dc.w	$0006		;SCSI tape drive???
		dc.w	$0007		;CD-SC
		dc.w	$0009		;Modem
		dc.w	$000B		;Printer
		dc.w	$0015		;Tape drive (generic)??
		dc.w	$0016		;Character device (generic)
		dc.w	$0019		;Sequential access device (generic)
GSMMLength	equ *-GSMMIDTable-2

NoneString	str	'GAME PORT'
ModemString	str	'MODEM'
PrinterString	str	'PRINTER'
SCSIString	str	'SCSI'

*******************************************************************************
* MoveDevice
*
* Adds the name to the list record and copies into a new memory segment
* and returns with the carry clear.
*
* Inputs:	None
*
* Outputs:	Carry -clear if successfull; -set it unsuccessfull
*
*******************************************************************************

MoveDevice	php
		sep	#$30
		longa	off
		longi	off


		rep	#$30
		longa	on
		longi	on

		lda	List2Count
		ldx	Mem2RecH
		ldy	Mem2RecH+2
		jsr	BumpMemRec
		bcs	DeviceBExit

		longa	off
		longi	off

		lda	PrePickFlag
		beq	DeviceGExit

		ldy	FPath+3
@L1		lda	FPath+3,y
		cmp	C2Device,y
		bne	DeviceGExit
		dey
		bpl	@L1

		ldy	#4
		lda	#$80
		sta	[zp1],y

DeviceGExit	plp
		clc
		rts
DeviceBExit	plp
		sec
		rts

		longa	on
		longi	on

*******************************************************************************
* MovePort
*
* This routine will add the name at DIDevName
* to the list record and copies into a new memory segment
* and returns with the carry clear.
*
* Inputs:	None
*
* Outputs:	Carry:	Clear = String copied and valid
*
*******************************************************************************

MovePort	php



		lda	List1Count
		ldx	Mem1RecH
		ldy	Mem1RecH+2
		jsr	BumpMemRec
		bcs	PortBExit	;Branch on error

		longa	off
		longi	off


		ldy	FPath+3
@L1		lda	FPath+3,y
		cmp	CPort,y
		bne	PortGExit
		dey
		bpl	@L1

		ldy	#4
		lda	#$80
		sta	[zp1],y

PortGExit	plp
		clc
		rts

PortBExit	plp
		sec
		rts

		longa	on
		longi	on

*******************************************************************************
* BumbMemRec
*
* This routine will bump the member record list, move the file name pointed
* to by FPATH+3 into a new memory handle, update the new member record to
* point to the new memory handle containing the file name and zero the
* selection byte for the new member record..
*
* Inputs:	A:	ListCount for this record
*		X:	Low word of MemberList handle
*		Y:	High word of MemberList handle
*
* Outputs:	Carry:	Clear = String copied
*	  		Set   = Memory allocation error
*		Long C,X,Y if error
*		Short C,X,Y if no error
*
*******************************************************************************

BumpMemRec	sta	zp0		;Store the ListCount
		stx	zp1		;Store the handle (low word)
		sty	zp1+2		;Store the handle (high word)

;-----------------------------------------------------------------------------
; Below we first try to unlock the handle of the member record list.  Then
; get the old size, add the length of a new record, and the re-size the
; handle.  After that, we just lock it down.  If we get any errors, we leave
; the BUMPMEMREC routine with the carry set.
;-----------------------------------------------------------------------------

		PushLong zp1		;Push handle
		_HUnlock		;Unlock the handle
		bcc	@OKUnlock	;Branch if no error
@ShortExit	jmp	@Exit		;Else we exit with carry set.

@OKUnlock	PushLong #0		;Result space
		PushLong zp1		;Push handle
		_GetHandleSize		;Get the current handle size
		tay			;Save the error state for now

					;We fall through with the current
					;size of the handle on the stack.

		clc			;Add in the length of the new
		pla			;member record item so we can
		adc	#MemRecSize	;re-size the member record list.
		tax
		pla
		adc	#0

		phy			;Save the error state on the stack.

		pha			;Push the new length of the
		phx			;handle onto the stack.
		PushLong zp1		;Push the handle
		_SetHandleSize		;Set the new size
		pha			;Save the error state on the stack.

		PushLong zp1		;Push the handle
		_HLock			;Lock the sucker.

		plx			;Pull error on SetHandleSize
		ply			;Pull error on GetHandleSize
		bcs	@ShortExit	;Branch if error on _HLock
		sec			;Assume error
		bne	@ShortExit	;Branch if error on GetHandleSize
		cpx	#0		;Error on SetHandleSize?
		bne	@ShortExit	;Branch if yes.

;-----------------------------------------------------------------------------
; Below we ask for a segment of memory that will hold the file name in
; FPATH+3.
;-----------------------------------------------------------------------------

		PushLong #0		;Result space
		PushWord #0		;High word of size of block
		lda	FPath+3
		and	#$00FF
		ina
		pha			;Low word of size of block
		PushWord MyID		;User ID
		PushWord #$C018		;Attributes
		PushLong #0		;Pointer to mem
		_NewHandle
		plx			;Pull the result off the stack
		ply			;and hold it in X and Y regs.
		bcs	@Exit		;Branch if we didn't get the memory.

		pei	zp0		;Push the ListCount for later use.

		stx	zp0		;Store handle to file name
		sty	zp0+2		;buffer on zero page.
		ldy	#2		;De-reference the handle
		lda	[zp0]		;and store it back on to
		tax			;the zero page at ZP0.
		lda	[zp0],y
		sta	zp0+2
		stx	zp0

		ldy	#2		;Dereference handle that
		lda	[zp1]		;points to the beginning of
		tax			;the member record list and
		lda	[zp1],y		;put the result back into the
		sta	zp1+2		;zero page location ZP1.
		stx	zp1

		plx			;Pull the ListCount back off
		jsr	Times5		;and multiply it by 5.

		clc			;Add the offset to the address
		lda	AddIndex	;of the beginning of the buffer
		adc	zp1		;to get new pointer to member
		sta	zp1		;record and put it back into
		lda	AddIndex+2	;the zero page location ZP1.
		adc	zp1+2
		sta	zp1+2

		ldy	#2		;Dereference handle that points
		lda	zp0		;to the location to put the
		sta	[zp1]		;file name into and put it back
		lda	zp0+2		;into the zero page location ZP0.
		sta	[zp1],y

		sep	#$30		;Short everything
		longa	off
		longi	off

		ldy	#4		;Force the selection byte to
		lda	#0		;force not selected
		sta	[zp1],y

		ldy	FPath+3		;Load the length byte
@CopyLoop	lda	FPath+3,y	;Move the entire string including
		sta	[zp0],y		;the length byte into buffer pointed
		dey			;to by ZPO
		bpl	@CopyLoop

		clc			;No error!
@Exit		rts			;RETURN
;----------------------------------------------------------------------

		longa	on
		longi	on

		ENTRY	C2Device
		ENTRY	CPort
		ENTRY	MMDriver
		ENTRY	MMPort
		ENTRY	MMChannel
		ENTRY	XSetupTable
		ENTRY	MMCmpDriver
		ENTRY	MMCmpPort
		ENTRY	TheWindPtr
		ENTRY	MyCtrlListH1
		ENTRY	MyCtrlListH2
		ENTRY	OldDriversName
		ENTRY	OldPortsName



PrePickFlag	dc.w	0

OpenDBlock	dc.w	3		;PCount
ODRef		dc.w	0
		dc.l	DPath		;Pathname pointer
		dc.w	0001		;Request access
DPath		dc.w	DPathLen
		dc.b	'*:System:Drivers:Media.Control:'
DPathLen	equ	*-DPath-2

GetDirEntryBlock dc.w	13		;PCount
GDERef		dc.w	0
		dc.w	0		;Flags
		dc.w	1		;Base
		dc.w	1		;Displacement
		dc.l	FPath
		dc.w	0		;Entry number
GDEFileType	dc.w	0		;FileType
		dc.l	0		;EOF
		dc.l	0		;Block count
		dc.l	0,0		;Create date/time
		dc.l	0,0		;Mod date/time
		dc.w	0		;Access
GDEAUXType	dc.l	0		;AUX type

FPath		dc.w	FPathLen
		dc.w	0
		ds.b	32
FPathLen	equ	*-FPath

CreateMBlock	dc.w	4		;PCount
		dc.l	MPath		;Pathname pointer
		dc.w	$C3		;Access byte
		dc.w	$005c		;File type
		dc.l	$00000100	;AUX type

OpenMBlock	dc.w	3		;PCount
OPRef		dc.w	0
		dc.l	MPath		;Pathname pointer
MOpenReq	dc.w	0003		;Request access (R/W)
MPath		dc.w	MPathLen
		dc.b	'8:Media.Setup'
MPathLen	equ	*-MPath-2

ReadMBlock	dc.w	4		;PCount
RPRef		dc.w	0
		dc.l	ReadMBuffer
		dc.l	RBufferLength	;Request count
		dc.l	0		;Transfer count

CloseBlock	dc.w	1		;PCount
CRef		dc.w	0

;----------------------------------------------------------------------
;File format for MEDIA.SETUP
;----------------------------------------------------------------------
ReadMBuffer
CFlag		dcb.b	2,0
C2Device	dcb.b	33,0		;Device name1
		dcb.b	231,0		;Device name2-name8
CPort		dcb.b	33,0
		dcb.b	231,0
RBufferLength	equ	*-ReadMBuffer

MMDriver	dcb.b	33,0		;intermediate storage for media driver name
MMPort		dcb.b	33,0		;intermediate storage for media port name
MMCmpDriver	dcb.b	33,0		;compare driver string storage
MMCmpPort	dcb.b	33,0		;compare port string storage
MMChannel	dc.w	0		;current media channel were working with

OldDriversName	dcb.b	264,0		;Old drivers name from read in Media.setup file
OldPortsName	dcb.b	264,0		;Old ports names from read in Media.setup file

XSetupTable	dc.w	0
		dc.w	33
		dc.w	66
		dc.w	99
		dc.w	132
		dc.w	165
		dc.w	198
		dc.w	231
TheWindPtr	dc.l	0		;the window pointer
MyCtrlListH1	dc.l	0		;list control handle1
MyCtrlListH2	dc.l	0		;list control handle2

		ENDP

		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/MediaCtl/MediaCtlCDev/MediaCtrl.make b/IIGS.601.SRC/A.U.G/MediaCtl/MediaCtlCDev/MediaCtrl.make
new file mode 100644
index 0000000..21ae6d9
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/MediaCtl/MediaCtlCDev/MediaCtrl.make
@@ -0,0 +1 @@
+
CDEV = MediaCtrl



{CDEV}			 	Ä				{CDEV}.Load 	¶
									{CDEV}.r
	reziigs {CDEV}.r -o {CDEV} -t "C7  " -c "pdos"


{CDEV}.Load		Ä	¶
			MediaCtrl.aii.obj
	LinkIIGS MediaCtrl.aii.obj ¶
			 -o {CDEV}.Load
		
		
MediaCtrl.aii.obj	Ä	MediaCtrl.aii
	asmiigs  MediaCtrl.aii
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/MediaCtl/MediaCtlCDev/MediaCtrl.r b/IIGS.601.SRC/A.U.G/MediaCtl/MediaCtlCDev/MediaCtrl.r
new file mode 100644
index 0000000..373180c
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/MediaCtl/MediaCtlCDev/MediaCtrl.r
@@ -0,0 +1 @@
+/*******************************************************************/
/*
/* DIRECTCONNECT.r
/*
/* Copyright (C) 1988-1989
/* Apple Computer, Inc.
/* All Rights Reserved
/*
/* This file contains the source of the resources needed to build the 
/* Direct Connect CDEV.
/*
/*******************************************************************/


/*  work:busybox:busybox.r   */
/* "hd:mpw:riigsincludes:typesiigs.r"   */

#include "typesiigs.r" 

resource rIcon (1) {
	  0x8000,							/* Kind */
	  20,								/* Height */
	  28,								/* Width */

         $"0000000F000000000000F0EEEEE0"
         $"FFFFF30FFFFFFFFFFFFFF0000000"
         $"DDDDD30FFF0000FFF00FF0EEEEE0"
         $"DDDDD30FF000E00F0FF0F0EEEEE0"
         $"DDDDD30F00E00E000FF0F0EEEEE0"
         $"DDDDD30F00000000FFF0F0EEEEE0"
         $"3333330F00E00E00FF0FF0000000"
         $"0000000FF00E000FF0FFF0EEEEE0"
         $"333330FFFF0000FF0FFFF0EEEEE0"
         $"333330FFFFFFFFF00FFFF0EEEEE0"
         $"000000FFFFFFFFF0FFFFF0EEEE0F"
         $"333330F000FFFF0E0FFFF000000F"
         $"FFFFFFF000000FF00FFF0EEEEE0F"
         $"0FFFFFF0FF000FF0E0FF0EEEE0FF"
         $"0FFFFFF0FFFF0FF000F0000000F0"
         $"0FFFFFF0FFFF0FFF0E0EEEE0FFF0"
         $"0FFFF000FFFF0FFFF00000FFFFF0"
         $"0FFF0000FF000FFFFFFFFFFFFFF0"
         $"0FFF000FF0000FFFFFFFFFFFFFF0"
         $"000FFFFFF000FF00000000000000",
		
	  $"ffffffffffffffffffffffffffff"
	  $"ffffffffffffffffffffffffffff"
	  $"ffffffffffffffffffffffffffff"
	  $"ffffffffffffffffffffffffffff"
	  $"ffffffffffffffffffffffffffff"
	  $"ffffffffffffffffffffffffffff"
	  $"ffffffffffffffffffffffffffff"
	  $"ffffffffffffffffffffffffffff"
	  $"ffffffffffffffffffffffffffff"
	  $"ffffffffffffffffffffffffffff"
	  $"ffffffffffffffffffffffffffff"
	  $"ffffffffffffffffffffffffffff"
	  $"ffffffffffffffffffffffffffff"
	  $"ffffffffffffffffffffffffffff"
	  $"ffffffffffffffffffffffffffff"
	  $"ffffffffffffffffffffffffffff"
	  $"ffffffffffffffffffffffffffff"
	  $"ffffffffffffffffffffffffffff"
	  $"ffffffffffffffffffffffffffff"
	  $"ffffffffffffffffffffffffffff";
};

read rCDEVCode (1,Convert) "MediaCtrl.Load";


resource rCDEVFlags (1) {
	wantInit+wantClose+wantCreate+wantAbout+wantHit, /* CDEV Flags */
	1,											/* Enabled */
	1,											/* Version */
	1,											/* Machine */
	4,											/* System */
	{0,0,175,200},								/* DataRect {0,0,160,200} 131*/
	"Media Ctrl",								/* Name */
	"Dan D. Hitchens",							/* Author */
	"v1.1";										/* VersStr */
};

resource rVersion(1, $0000) {
	{ 
	  $1,				/* major version in BCD */
	  $1,				/* minor version in BCD */
	  $0,				/* bug version		    */
	  alpha,
	  $00,				/* # */
	 },
	verUS,
	"Media Control",
	"Copyright 1989-91, Apple Computer, Inc."
};

resource rComment(1, $0000) {
	"Media Control CDev for the Apple IIGS."
	"\$0d"
	"\$0d"
	"By Dan Hitchens "
	"\$0d"
	"\$0d"
	"\$0d"
	"Quality assured by Margarita Sang "
	"\$0d"
};




\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/MediaCtl/MediaCtlNDA/MediaCtlNDA.make b/IIGS.601.SRC/A.U.G/MediaCtl/MediaCtlNDA/MediaCtlNDA.make
new file mode 100644
index 0000000..5d9953c
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/MediaCtl/MediaCtlNDA/MediaCtlNDA.make
@@ -0,0 +1 @@
+Objects =		¶
				MediaCtlUNIT.pii.aii.obj ¶
				MediaCtlNDA.pii.aii.obj


MediaCtlNDA			Ä	  {Objects}		¶
							MediaCtlNDA.rii
	linkiigs	MediaCtlNDA.pii.aii.obj ¶
	            MediaCtlUNIT.pii.aii.obj  ¶
		-lib "{PIIGSLibrary}"PIIGSRuntime.obj ¶
		-o MediaCtlNDA -t $B8
	reziigs MediaCtlNDA.rii -o MediaCtlNDA.res
	duplicate -r -y MediaCtlNDA.res MediaCtlNDA


.pii.aii.obj				Ä	.pii	
	TMLPascal {default}.pii
	asmiigs {default}.pii.aii

.usym						Ä	.pii
	TMLPascal {default}.pii

.aii.obj					Ä	.aii
	asmiigs {default}.aii

\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/MediaCtl/MediaCtlNDA/MediaCtlNDA.pii b/IIGS.601.SRC/A.U.G/MediaCtl/MediaCtlNDA/MediaCtlNDA.pii
new file mode 100644
index 0000000..f375135
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/MediaCtl/MediaCtlNDA/MediaCtlNDA.pii
@@ -0,0 +1 @@
+{$DeskAcc 3 -1	'Media Controller' }
{$LongGlobals+}
Program MediaCtrl;
{ 	1.0d15
	1.0d16
		-Changed AddColons routine to work with MPW TML correctly on returning time string
		-Updated MCStop to be tool 38,43 
	1.0d19
		-Changed buttons styles; 0,1 to +,-;  added current channel to display of driver;
		-Added alert windows for errors from MC calls.
		-Added alert window for validation of in and out points
		-Changed display toggeling
		-Added Speed button name.
	2.0d22
		-Changed MCGetName call number
		-Some changes to alert window for errors from MC calls.
}

USES	QDIntf,
	ConsoleIO,
	GSIntf,
	FontMgr,
	MiscTools,
	MCUnit;
procedure DoAButton(i:integer); forward;
function AlertForError(TheError:integer):boolean; forward;
Procedure AlertString(TheErr:string); forward;
Procedure ScrollVolume(FoundCPX:ControlHandle;TheChange:integer); forward;
procedure GetLEPoint(iLE:integer); forward;
function DAOpen: WindowPtr;
Var 	MyBackPat:	Pattern;
	OldBackPat:	Pattern;
	currPort:	GrafPtr;
begin
   if myWindOpen then
      SelectWindow(myWindPtr)

   else begin
      with myWind do begin
         param_length := sizeof(NewWindowParamBlk);
         wFrame	      := $C088;
         wTitle	      := @'Media Controller';
         wRefCon      := 0;
         wZoom.top    := 0;
         wZoom.left   := 0;
         wZoom.bottom := 0;
         wZoom.right  := 0;
         wColor	      := nil;
         wYOrigin     := 0;
         wXOrigin     := 0;
         wDataH	      := 0;
         wDataW	      := 0;
         wMaxH	      := 0;
         wMaxW	      := 0;
         wScrollVer   := 0;
         wScrollHor   := 0;
         wPageVer     := 0;
         wPageHor     := 0;
         wInfoRefCon  := 0;
         wInfoHeight  := 0;
         wFrameDefProc:= nil;
         wInfoDefProc := nil;
         wContDefProc := nil;
         wPosition.top    := DAWTop+30;
         wPosition.left   := DAWLeft+50;
         wPosition.bottom := DAWBottom+30;
         wPosition.right  := DAWRight+50;
         wPlane	   := -1;
         wStorage	   := nil;
         end;

      MyId:=GetNewID($5000);   
      CloadTools;
      NDAMode:=1;
      NDAModeFlag:=false;
      myWindPtr := NewWindow(myWind);
      currPort := GetPort;
      SetPort(GrafPtr(myWindPtr));
      StuffHex(@MyBackPat,'0000000000000000000000000000000000000000000000000000000000000000');
      GetBackPat(OldBackPat);
      SetBackPat(MyBackPat);
      ShowWindow(myWindPtr);
      SetBackPat(OldBackPat);
      
      SetSysWindow(myWindPtr);
      CurrentRadio:=RadioCS;
      McChannel:=1; 
      For i:=1 to 8 do begin
       		MyInPoint[i]:=0;
       		MyOutPoint[i]:=0;
       		AudioS[i]:=AudioStereo;
       		CurrSpeed[i]:=30;
       		displaytog[i]:=McInTimes;
       		end;{of for i}
      myOldChapter:=99;
      MyOldString1:='XXXXXXXXXX';
      VideoTog:=1;
      MakeCtrls;
      JustOpened:=true;
      AreActive:=true;
      ActiveCtr:=0;
      SetPort(GrafPtr(CurrPort));
      end;

   DAOpen     := myWindPtr;
   myWindOpen := true;
end; { of DAOpen }

procedure DAClose;
begin

   CloseWindow(myWindPtr);
   myWindOpen := false;
   
   CUnloadTools;
end; { of DAClose }

procedure DAAction(Code: Integer; Param: Longint);
label 327;
var   currPort:	GrafPtr;
      MyModifier: integer;
      MyKey:	signedbyte;
      MyKeyI:	integer;
      XMyKeyI:	integer;
      ITemp:	integer;
      BTemp:	integer;
      ptx:	integer;
      pty:	integer;
      WhichWin:	integer;
      FoundWin:	WindowPtr;
      I:	integer;
      III:	integer;
      FoundPart: integer;
      FoundCP:	controlhandle;
      Ptxy:	point;
      TaskHandled:integer;
      MyToolErrNum:integer;
begin
currPort := GetPort;
SetPort(GrafPtr(myWindPtr));
      MyExtTaskRec.wmTaskMask:=$001f0004;
      MyExtTaskRec.wmWhat:=EventRecordPtr(param)^.what;
      MyExtTaskRec.wmMessage:=EventRecordPtr(param)^.Message;
      MyExtTaskRec.wmWhen:=EventRecordPtr(param)^.when;
      MyExtTaskRec.wmWhere:=EventRecordPtr(param)^.where;
      MyExtTaskRec.wmModifiers:=EventRecordPtr(param)^.modifiers;
      MyExtTaskRec.wmTaskData:=EventRecordPtr(param)^.taskdata;
                 
      {Since LineEdit controls dont differentiate Apple control keys, exception it out}
      if BitAnd(MyExtTaskRec.wmModifiers,$1f00)<>$1100 then begin
      	
      		TaskHandled:=MyTaskMstrDA($ffff,Pointer(@MyExtTaskRec));
      		
      		end;

   case	Code of
      DAEvent: begin
	 Case EventRecordPtr(param)^.what of
	    UpdateEvt: begin
	    	BeginUpdate(myWindPtr);	
	    	EndUpdate(myWindPtr);
	    	If justOpened=false then begin
			If MyToolsActive then DrawTime 
				else begin
				CLoadTools;
				DrawTime;
				CUnLoadTools;
				end;
	    		end;
	    	justopened:=false;
	    	end;{of UpdateEvt}
	    ActivateEvt: begin
	    	if BitAnd(EventRecordPtr(param)^.modifiers,activeflag)=activeflag then
	    		begin
	    			CLoadTools;
	    			AreActive:=true;
	    			ForceDsply:=true;
	    			{MyOldChapter:=99;} 
	    			If justopened=false then begin
	    				
	    				{justopened:=true;}
	    				end   		
	    			else justopened:=false;
	    		end else begin
	    			
	    			{DrawControls(myWindPtr);}
	    			GetLEPoint(LineEditCS);
	    			GetLEPoint(LineEditCS+1);
	    			justopened:=false;
	    			CUnloadTools;
	    			AreActive:=false;
	    			end;
	    	end;{of ActivateEvt}

	    KeyDown: begin
	    	MyKey:=BitAnd(LoWord(EventRecordPtr(param)^.message),$007f);
	    	
	    	MyModifier:=BitAnd(EventRecordPtr(param)^.modifiers,$0100);
	    	if (MyModifier=$0100) and (MyKey=63) then DoAbout;
	    	{First check for numbers 0-9}
	    	if MyModifier=$0100 then begin
			MyKeyI:=-2;
	    		if (MyKey>48) and (MyKey<57) then begin
	    			
	    			SwitchChann(MyKey-49+RadioCS);
	    			if NDAMode=4 then begin
	    				if CActive[ScrollCS] then ScrollVolume(Chandle[ScrollCS],0);
	    				if CActive[ScrollCE] then ScrollVolume(Chandle[ScrollCE],0);
	    				end;
	    				
	    			
	    			MyKeyI:=-1;
				end;{of long if}
			case chr(MyKey) of
				'<': MykeyI:=1;
				' ': MyKeyI:=2;
				'>': MyKeyI:=3;
				'[': MyKeyI:=5;	
				']': MyKeyI:=9;		
				'X': MykeyI:=10;
				'A','a': MykeyI:=13;
				'B','b': MykeyI:=14;
				'#': MykeyI:=15;
				'V','v': MykeyI:=16;					
				'M','m': MykeyI:=17;
				'I','i': MykeyI:=18;
				'O','o': MykeyI:=19;
				'R','r': MykeyI:=20;
				';': MyKeyI:=21;
				':': MyKeyI:=22;
				'"': MyKeyI:=24;
				'`': MyKeyI:=35;
				'\': MyKeyI:=36;
				'~': MyKeyI:=37;
				'|': MyKeyI:=38;
				'W': MyKeyI:=-3;
				'w': MyKeyI:=-3;
				
			{Note: this otherwise case is only here because
			you cant case on chars and integers}
				otherwise case MyKey of
				10: MyKeyI:=0;				
				11: MyKeyI:=4;
				8 : MyKeyI:=6;
				13: MyKeyI:=7;
				21: MyKeyI:=8;
				127: MykeyI:=11;
				27: MykeyI:=12;
				39: MyKeyI:=23;

					end;{of otherwise case}
				end;{of case MyKey}
			if (MyKeyI>-1)then begin
				XMyKeyI:=MyKeyI;
				If MyKeyI>36 then MyKeyI:=MyKeyI-2;
				if CActive[MyKeyI] then begin
					if MyKeyI<35 then HiliteControl(2,CHandle[MyKeyI]);
					DoAButton(XMyKeyI);
					end else sysbeep;
				end;
	    		If MyKeyI =-2 then sysbeep;
	    		If MyKeyI =-3 then CloseNDAByWinPtr(myWindPtr);
			end;{of MyModifier}
	    	end;{of KeyDown}
	    Mousedown: begin
	    	ptx:=EventRecordPtr(param)^.where.h;
	    	pty:=EventRecordPtr(param)^.where.v;
	    	WhichWin:=FindWindow(FoundWin,ptx,pty);
	    	WhichWin:=BitAnd(WhichWin,$7fff);
	    	if WhichWin = wInContent then begin
	    		
	    		if TaskHandled<>$0021 then begin
	    			LEDeactivate(Pointer(GetCtlTitle(chandle[LineEditCS])));
				SetCtlMoreFlags(bitand($7fff,GetCtlMoreFlags(chandle[LineEditCS])),chandle[LineEditCS]);
				LEDeactivate(Pointer(GetCtlTitle(chandle[LineEditCS+1])));
				SetCtlMoreFlags(bitand($7fff,GetCtlMoreFlags(chandle[LineEditCS+1])),chandle[LineEditCS+1]);
				end;
			
			{FoundPart:=FindControl(FoundCP,ptx,pty,myWindPtr);}
		if TaskHandled=wInControl then begin
			FoundCP:=ControlHandle(MyExtTaskRec.wmTaskData2);
			
			FoundPart:=HiWord(MyExtTaskRec.wmTaskData3);
	    		Case FoundPart of
	    			14,2 :begin {simple button hit}
	    				for i:=0 to NoButtons do begin
	    					if FoundCP=CHandle[i] then DoAButton(i);{do code for the button}
	    					end;{of for i}
	    				end;{of case 2}
	    			4 :begin {radio button hit}
	    				for i:=RadioCS to RadioCE do begin
	    					if FoundCP=CHandle[i] then SwitchChann(i);
	    					end;{of for i}
	    				end;{of case 4}
	    			5:begin {Up arrow on volume}
	    				ScrollVolume(FoundCP,-5);
	    				end;{of case 5}
	    			6:begin {Down arrow on volume}
	    				ScrollVolume(FoundCP,5);
	    				end;{of case 6}
	    			7:begin {Page up on volume}
	    				ScrollVolume(FoundCP,-25);
	    				end;{of case 6}
	    			8:begin {Page down on volume}
	    				ScrollVolume(FoundCP,25);
	    				end;{of case 8}
				$81:begin {Thumb on volume}
	    				ScrollVolume(FoundCP,1000);
	    				end;{of case 8}
	    			end;{of case FoundPart}
	    		end;{of if winControl}
	    			{GetMouse(ptxy);}
	    			Ptxy.h:=ptx;
	    			Ptxy.v:=pty;
	    			GlobalToLocal(Ptxy);
	    			ptx:=Ptxy.h; pty:=Ptxy.v;
	    			if (ptx>(DAWRight-15)) and (pty<13) then begin
	    				DoAbout;
	    			end;{of ptx and pty}
	    			
	    		end;{of if in wInContent}


	    	end;{of mousedown}
	    	otherwise justopened:=false;
	    end;{of Case What}
	if MyToolError<>0 then WantDisplay[McChannel]:=0;

	 end;{of DAEvent}
      DARun: begin
	   {********* This was added to make the compiler work (does nothing)}
		WantDisplay[McChannel]:=WantDisplay[McChannel];
 	if AreActive=false then begin
 		ActiveCtr:=ActiveCtr-1;
 		if ActiveCtr<0 then ActiveCtr:=8
 			else goto 327;
 		end;
 
      	if ILoadedMCT then RunLoaded:=0
      		else begin CloadTools; RunLoaded:=1; end;
	if WantDisplay[McChannel]=1 then begin
		myLong:=MCReadPos(MCChannel,displaytog[McChannel]);
		myToolErrNum:=ToolErrorNum;
		if myToolErrNum=$2604 then begin
			While AlertForError(myToolErrNum)=false do begin
				waitcursor;
				myLong:=MCReadPos(MCChannel,displaytog[McChannel]);
				myToolErrNum:=ToolErrorNum;
				end;
			initcursor;
			end;
		if myToolErrNum<>0 then begin 
			
			WantDisplay[McChannel]:=0;
			end;
		if ((myToolErrNum=$2607) or (myToolErrNum=$2601)) then begin
			Case displaytog[McChannel] of
				McInFrames:myLong:=MCReadPos(MCChannel,McInTimes);
				McInTimes:myLong:=MCReadPos(MCChannel,McInFrames);
				end;{of case }

			myToolErrNum:=ToolErrorNum;
			WantDisplay[McChannel]:=1;
			if myToolErrNum<>0 then WantDisplay[McChannel]:=0
				else DoDisplayTog;
			end;
		setforecolor($000f);
		setbackcolor($0000);
		if myToolerrNum=0 then begin
			if displaytog[McChannel]=McInTimes then
				myLong:=MCCvtTime2Bin(myLong);

			myOldLong:=myLong;
			
			MyString:=LongIntToString(MyLong);
			MyString:=AddColons(MyString,displaytog[McChannel]);
			{This adds leading blanks to make it 10 chars long}
			if MyString[0]<chr(10) then begin
				j:=ord(MyString[0]);
				XMyString:='          ';
				for i:=j downto 1 do
					XMyString[10-j+i]:=MyString[i];
				for i:=1 to 10-j do
					XMyString[i]:=chr(32);
					MyString:=XMyString;
				end;{of if}
			
			for i:=1 to 10 do
				if MyOldString1[i]<>MyString[i] then begin
					j:=8*i;
					{this forces the blank or colon to be wide enough to cover old char}
					if ((MyString[i]=chr(32)) or (MyString[i]=chr(58)) or (MyString[i]=chr(59))) then begin
						moveto(Column2+3+j,Row3-23);
						
						drawchar(chr(32));
						
						end;{of if}
					moveto(Column2+j,Row3-23);
					
					
					{setDithColor(0);
					setTextMode($0000);
					setforecolor($000f);}

					
					drawchar(MyString[i]);
					end;{of if}
				end;{of for}
			myOldString1:=MyString;

{This is for the Chapter no.}	
	if myToolErrNum<>$2604 then begin
		myLong:=MCReadPos(MCChannel,mcInChapters);
		if toolerrornum<>0 then begin MyLong:=myOldChapter; ForceDsply:=true; end;
		if ((myOldChapter<>myLong) or (ForceDsply)) then begin
			ForceDsply:=false;
			myOldChapter:=MyLong;
			if toolerrornum<>0 then MyString:='--' else begin
				if MyLong>99 then MyLong:=MyLong mod 100; {fixes more than 2 char screen screw up bug}
				MyString:=LongIntToString(MyLong);
				{This checks for one digit, moves it over}
				if MyString[0]=chr(1) then begin
					MyString[2]:=MyString[1];
					MyString[1]:=chr(48);
					MyString[0]:=chr(2);
					end;{of if}
				end;{of if error}
			Xinstallfont($1000fffe,0);
			SetTextFace(1);		
			moveto(Column2-30,Row3-23);
			drawstring(MyString);
			Xinstallfont($0800fffe,0);
			SetTextFace(0);
		end;{of if}
	end;{of if not $2604}
	end;{if wantdisplay}
	setforecolor($0000);
	setbackcolor($000f);
	If RunLoaded=1 then CUnloadTools;
327:	 end;
      DACursor:	;
      DAMenu: begin
	 { HiWord(param) is MenuID
	   LoWord(param) is ItemID }
	 end;
      DAUndo,
      DACut,
      DACopy,
      DAPaste,
      DAClear:	Code :=	1;
   end;{of case code}
   setport(currport);
end; { of DAAction }


procedure DAInit(Code: Integer);
var III:	integer;
begin
   if Code = 0 then begin
      {	A DeskShutDown Call, chk that my window	is closed }
      if myWindOpen then DAClose;
      CUnloadTools;{unload the tools if we loaded them last}
      end
   else	begin
      {	A DeskStartUp Call, init myWindOpen flag }
      myWindOpen := false;
      ILoadedMCT:=false;
      IStartedMCT:=false;
      ILoadedFonts:=false;
      IStartedFonts:=false;
      ILoadedQDAux:=false;
      IStartedQDAux:=false;
      HaveLoadErrors:=false;
      KeepTools:=false;
      WantCancel:=false;
      IconDraw:=false;
      ForceDsply:=false;
      For iii:=1 to 8 do WantDisplay[iii]:=0;
      end;
end; { of DAInit }
procedure DoAButton(i:integer);
var 	si:	integer;
	OldWant: integer;
	AWord: integer;
label 	550,333,444;
begin
	si:=i;
	if i>36 then i:=i-2; {to handle scroll bar key equivalents}
	if CActive[i]=false then sysbeep else begin
	    							HiliteControl(0,CHandle[i]);
	    							
	    							MyOldString1:='XXXXXXXXXX';
	    							MyToolError:=0;
								WaitCursor;
								OldWant:=WantDisplay[McChannel];
								WantDisplay[McChannel]:=1;
								Case si of
	    								0: Begin
	    									Repeat begin
	    										McJogN(McChannel,mcInChapters,1,-1);
	    										If ((ToolErrorNum=$2607) or (ToolErrorNum=-510) or (ToolErrorNum=$7e02) or (ToolErrorNum=$27)) then McJogN(McChannel,mcInChapters,0,-1);
	    										end
	    										Until AlertForError(ToolErrorNum);
	    									333:Repeat McPlay(McChannel)
	    										Until AlertForError(ToolErrorNum);
										end;
	    								1: Repeat McScan(McChannel,-1)
	    									Until AlertForError(ToolErrorNum);
	    								2: Begin
										Repeat McPause(McChannel)
											Until AlertForError(ToolErrorNum);
										Repeat MyToolError:=ToolErrorNum;
											Until AlertForError(ToolErrorNum);
										end;
	    								3: Repeat McScan(McChannel,1)
	    									Until AlertForError(ToolErrorNum);
	    								4: Begin
	    									Repeat begin
	    										McJogN(McChannel,mcInChapters,1,1);
	    										if ((ToolErrorNum=$2607)or(ToolErrorNum=-510) or (ToolErrorNum=$7e02) or (ToolErrorNum=$27)) then begin
	    										 	McJogN(McChannel,mcInChapters,0,1); goto 444; end;
	    										end
	    										Until AlertForError(ToolErrorNum);
	    									444:Repeat McPlay(McChannel)
	    										Until AlertForError(ToolErrorNum);
	    									end;
	    								5: Begin
										repeat
											CurrSpeed[McChannel]:=CurrSpeed[McChannel]+1;
											if CurrSpeed[McChannel]>120 then CurrSpeed[McChannel]:=1;
											MCSpeed(McChannel,-CurrSpeed[McChannel]);
											MyToolError:=ToolErrorNum;
										until MyToolError<>$2602;
										Repeat McPlay(McChannel)
											Until AlertForError(ToolErrorNum);
										end;
	    								6: Repeat McJogN(McChannel,mcInFrames,1,-1)
	    									Until AlertForError(ToolErrorNum);
	    								7: Begin
	    										Repeat McPlay(McChannel)
	    											Until AlertForError(ToolErrorNum);
	    										
	    										end;{of play}
	    								8: Repeat McJogN(McChannel,mcInFrames,1,1)
	    									Until AlertForError(ToolErrorNum);
	    								9: begin
										repeat
											CurrSpeed[McChannel]:=CurrSpeed[McChannel]+1;
											if CurrSpeed[McChannel]>120 then CurrSpeed[McChannel]:=1;
											MCSpeed(McChannel,CurrSpeed[McChannel]);
											MyToolError:=ToolErrorNum;
										until MyToolError<>$2602;
										Repeat McPlay(McChannel)
											Until AlertForError(ToolErrorNum);
										end;
									10: Repeat MCRecord(McChannel)
										Until AlertForError(ToolErrorNum); {Record}

	    								11: begin
	    									WantDisplay[McChannel]:=0;
	    									Repeat McControl(McChannel,mcCEject)
	    										Until AlertForError(ToolErrorNum)=true;
										end;
									12: Repeat McStop(McChannel)
										Until AlertForError(ToolErrorNum);{STOP}
									13: begin {audio A> button}
										case AudioS[McChannel] of
											AudioOff:AudioS[McChannel]:=AudioLeft;
											AudioLeft:AudioS[McChannel]:=AudioOff;
											AudioRight:AudioS[McChannel]:=AudioStereo;
											AudioStereo:AudioS[McChannel]:=AudioRight;
											end;{of case}
										Repeat McSetAudio(McChannel,AudioS[McChannel])
											Until AlertForError(ToolErrorNum);
										end;
									14: begin {audio <B button}
										case AudioS[McChannel] of
											AudioOff:AudioS[McChannel]:=AudioRight;
											AudioLeft:AudioS[McChannel]:=AudioStereo;
											AudioRight:AudioS[McChannel]:=AudioOff;
											AudioStereo:AudioS[McChannel]:=AudioLeft;
											end;{of case}
										Repeat McSetAudio(McChannel,AudioS[McChannel])
											Until AlertForError(ToolErrorNum);
										end;
									15: begin {Display Button}
											DoDisplayTog;
											end;
	    								16: begin
	    									if VideoTog=1 then begin
	    										VideoTog:=0;
	    										Repeat MCControl(McChannel,mcCVideoOff)
	    											Until AlertForError(ToolErrorNum);
	    									end else begin
	    										VideoTog:=1;
	    										Repeat MCControl(McChannel,mcCVideoOn)
	    											Until AlertForError(ToolErrorNum);
	    										end;
	    									end;{of 16}
	    								17: begin {MORE button}
	    									WantDisplay[McChannel]:=OldWant;
	    									if NDAMode=2 then begin
	    										GetLEPoint(LineEditCS);
	    										GetLEPoint(LineEditCS+1);
	    										end;
	    									NewNDAMode(NDAMode);
	    									NDAModeFlag:=true;
	    									drawtime;
	    									NDAModeFlag:=false;
	    									
	    									
	    									end;{of 17}
	    								18: begin {In button}
	    									Repeat MyInPoint[MCChannel]:=MCReadPos(MCChannel,displaytog[McChannel])
	    										Until AlertForError(ToolErrorNum);
	    									if displaytog[McChannel]=McInTimes then
											MyInPoint[McChannel]:=MCCvtTime2Bin(MyInPoint[McChannel]);

	    									MyPutLEText(MyInPoint[MCChannel],LineEditCS);
	    									end;
	    								19: begin {Out button}
	    									Repeat MyOutPoint[MCChannel]:=MCReadPos(MCChannel,displaytog[McChannel])
	    										Until AlertForError(ToolErrorNum);
	    									if displaytog[McChannel]=McInTimes then
	    										MyOutPoint[McChannel]:=McCvtTime2Bin(MyOutPoint[McChannel]);
	    									MyPutLEText(MyOutPoint[MCChannel],LineEditCS+1);
	    									end;{of 19}
	    								
	    								20: begin {Run button}
	    									{first get LE points}
	    									GetLEPoint(LineEditCS);
	    									if ValidPoint(MyString)=false then begin
	    										sysbeep;
	    										AlertString('Invalid IN Point Specified!');
	    										goto 550;
	    										end;
	    									MyInPoint[McChannel]:=StringToLongInt(MyString);
	    									GetLEPoint(LineEditCS+1);
	    									if ValidPoint(MyString)=false then begin
	    										sysbeep;
	    										AlertString('Invalid OUT Point Specified!');
	    										goto 550;
	    										end;
	    									MyOutPoint[McChannel]:=StringToLongInt(MyString);
	    										
	    									if MyOutPoint[McChannel]<=MyInPoint[McChannel] then begin
	    										sysbeep;
	    										AlertString('OUT Point less than IN Point!');
	    										goto 550;
	    										end
	    									else begin
	    										XXLong:=MyInPoint[McChannel];
	    										if displaytog[McChannel]=McInTimes then 
	    											XXLong:=MCCvtBin2Time(MyInPoint[McChannel]);
	    										Repeat begin McSearchTo(McChannel,displaytog[McChannel],XXLong);
	    											If ((ToolErrorNum=$2607) or (ToolErrorNum=-510) or (ToolErrorNum=$7e02) or (ToolErrorNum=$27)) then McSTOP(McChannel);
	    											end;
	    											Until AlertForError(ToolErrorNum);
	    										McSearchWait(McChannel);
	    										XXLong:=MyOutPoint[McChannel];
	    										if displaytog[McChannel]=McInTimes then
	    											XXLong:=MCCvtBin2Time(MyOutPoint[McChannel]);
	    										Repeat  begin McStopAt(McChannel,displaytog[McChannel],XXLong);
	    											If ((ToolErrorNum=$2607) or (ToolErrorNum=-510) or (ToolErrorNum=$7e02) or (ToolErrorNum=$27)) then ToolErrorNum:=0;
	    											end;
	    											Until AlertForError(ToolErrorNum);
	    										Repeat McPlay(McChannel)
	    											Until AlertForError(ToolErrorNum);
	    										550:end;{of else}
	    									end;{of 20}
	    									
	    									21:begin {unLock device}
	    										Repeat MCControl(McChannel,10)
	    											Until AlertForError(ToolErrorNum);	
	    										end;{of 21}
	    									22: begin {Lock device}
	    										Repeat McControl(McChannel,9)
	    											Until AlertForError(ToolErrorNum);
	    										end;{of 22}
	    									23: begin {video display off}
	    										Repeat McControl(McChannel,6)
	    											Until AlertForError(ToolErrorNum);
	    										end;{of 23}
	    									24: begin  {video display on}
	    										Repeat McControl(McChannel,5)
	    											Until AlertForError(ToolErrorNum);
	    										end;{of 24}
	    									35: ScrollVolume(Chandle[35],-5);
	    									36: ScrollVolume(Chandle[36],-5);
	    									37: ScrollVolume(Chandle[35],5);
	    									38: ScrollVolume(Chandle[36],5);
	    										
	    							end; {of case i}
	    							InitCursor;
	    							if TheAErrNum=$2604 then WantDisplay[McChannel]:=0;		
	    							AWord:=MCGetStatus(MCChannel,1);
								if toolerrornum<>0 then WantDisplay[McChannel]:=0;
		
		end;{of if CActive}	    				
end;{of DoAButton}
Function AlertForError(TheErr:integer):boolean;
var

	itemClicked:	integer;
	currentItem1:	ItemTemplate;
	currentItem2:	ItemTemplate;
	currentItem3:	ItemTemplate;
	currentItem4:	ItemTemplate;
	ourAlert:	AlertTemplate;
	ourErrStr:	Str255;
	ourString:	Str255;
	getMsgStr:	Str255;

begin
	V320Mode:=(BitAnd(GetMasterSCB,$0080)=0);{0=320}
	TheAErrNum:=TheErr;
	ourErrStr:='XXXX';
	AlertForError:=True;{assume no error, dont repeat command}
	if TheAErrNum=0 then WantDisplay[McChannel]:=1;
	if TheAErrNum<>0 then begin
	with ourAlert do begin
		SetRect(atBoundsRect,120,30,520,95);
		atAlertID:=1500;
		atStage12:=$8080;
		atStage34:=$8080;
		atItem1:=@currentItem1;
		atItem2:=@currentItem2;
		atItem3:=@currentItem3;
		atItem4:=@currentItem4;
		atItem5:=nil;
		end;
	with currentItem1 do begin
		ItemId:=1;
		SetRect(itemRect,315,46,0,0);
		ItemType:=10; {button item constant}
		ItemDescr:=@'Retry';
		ItemValue:=0;
		ItemFlag:=0;
		ItemColor:=nil;
		end;

	with currentItem2 do begin
		ItemId:=2;
		SetRect(itemRect,72,11,639,21);
		ItemType:=15+$8000;
		ItemDescr:=@ourString;
		ItemValue:=0;
		ItemFlag:=0;
		ItemColor:=nil;
		end;
	with currentItem3 do begin
		ItemId:=3;
		SetRect(itemRect,35,27,639,37);
		ItemType:=15+$8000;
		ItemDescr:=@getMsgStr;
		ItemValue:=0;
		ItemFlag:=0;
		ItemColor:=nil;
		end;
		
	with currentItem4 do begin
		ItemId:=4;
		SetRect(itemRect,200,46,0,0);
		ItemType:=10; {button item constant}
		ItemDescr:=@'Cancel';
		ItemValue:=0;
		ItemFlag:=0;
		ItemColor:=nil;
		end;
		if V320Mode then begin
			SetRect(ourAlert.atBoundsRect,5,30,315,95);
			SetRect(currentItem1.itemRect,210,46,0,0);
			SetRect(currentItem2.itemRect,50,11,315,21);
			SetRect(currentItem3.itemRect,7,27,315,37);
			SetRect(currentItem4.itemRect,100,46,0,0);
			end;
		
		myInt2Hex(TheAErrNum,@ourErrStr[1],4);
		ourString:=concat('Error Reported: $',ourErrStr,'.');
		getMsgStr:=' ';
		MCGetErrorMsg(TheErr,@getMsgStr);
		
		If TheErr=$002E then getMsgStr:='Disk switched Error?';
		If TheErr=$002f then getMsgStr:='Device off line.';
		If TheErr=$0027 then getMsgStr:='I/O error!';
		If ((TheErr=-510) or (TheErr=$7e02) or (TheErr=$00F1)) then getMsgStr:='Not an audio track.';
		InitCursor;
		WantDisplay[McChannel]:=0;
		KeepTools:=true;
		itemClicked:=CautionAlert(@ourAlert,nil);
		KeepTools:=false;
		if itemClicked=1 then begin
			AlertForError:=False; {repeat if hit repeat button}
			if TheAErrNum=$2604 then begin {if timeout error}
				WantCancel:=true;
				AlertString('Try default serial port settings?');
				WantCancel:=false;
				if ItemClicked=1 then MCControl(MCChannel,8); {set default comm.}
				end;
			WantDisplay[McChannel]:=0;
			end; {of itemClicked=1}	
		end;
WaitCursor;
end;{of AlertForError}
Procedure AlertString(TheErr:string);
var

	currentItem1:	ItemTemplate;
	currentItem2:	ItemTemplate;
	currentItem3:	ItemTemplate;

begin
	V320Mode:=(BitAnd(GetMasterSCB,$0080)=0);{0=320}
	with ourAlert do begin
		SetRect(atBoundsRect,120,30,520,95);
		atAlertID:=1500;
		atStage12:=$8080;
		atStage34:=$8080;
		atItem1:=@currentItem1;
		atItem2:=@currentItem2;
		atItem3:=@currentItem3;
		atItem4:=nil;
		end;
	with currentItem1 do begin
		ItemId:=1;
		SetRect(itemRect,335,46,0,0);
		ItemType:=10; {button item constant}
		ItemDescr:=@'OK';
		ItemValue:=0;
		ItemFlag:=0;
		ItemColor:=nil;
		end;

	with currentItem2 do begin
		ItemId:=2;
		SetRect(itemRect,72,11,639,21);
		ItemType:=15+$8000;
		ItemDescr:=@TheErr;
		ItemValue:=0;
		ItemFlag:=0;
		ItemColor:=nil;
		end;
	with currentItem3 do begin
		ItemId:=3;
		SetRect(itemRect,200,46,0,0);
		ItemType:=10; {button item constant}
		ItemDescr:=@'Cancel';
		ItemValue:=0;
		ItemFlag:=0;
		ItemColor:=nil;
		end;

	If V320Mode then begin
		SetRect(OurAlert.atBoundsRect,5,30,315,95);
		SetRect(CurrentItem1.itemRect,205,46,0,0);
		SetRect(CurrentItem2.itemRect,50,11,315,21);
		SetRect(currentItem3.itemRect,100,46,0,0);
		end;
	if WantCancel then OurAlert.atItem3:=@currentItem3
		else OurAlert.atItem3:=nil;
	KeepTools:=true;
	InitCursor;
	itemClicked:=CautionAlert(@ourAlert,nil);
	KeepTools:=false;
	WaitCursor;
		
end;{of AlertString}
Procedure ScrollVolume(FoundCPX:ControlHandle;TheChange:integer);
Var
LeftVol:	integer;
RightVol:	integer;
I:		integer;
HaveError:	boolean;
begin
	HaveError:=false;
	LeftVol:=MCGetStatus(McChannel,6);
	if IsToolError then begin {LeftVol:=0;} HaveError:=true; end;
	RightVol:=MCGetStatus(McChannel,7);
	if IsToolError then begin {RightVol:=0;} HaveError:=true; end;
	if FoundCPX=Chandle[ScrollCS] then CurVol:=LeftVol
		else CurVol:=RightVol;
	for I:=1 to 8 do CurVol:=BitSr(CurVol);
	If HaveError=false then CurVol:=CurVol+TheChange;
	If TheChange=1000 then CurVol:=GetCtlValue(FoundCPX);{if thumb wheel}
	if CurVol<0 then CurVol:=0;
	if CurVol>255 then CurVol:=255;
	SetCtlValue(CurVol,FoundCPX);
	CurVol:=CurVol*256;
	if FoundCPX=Chandle[ScrollCS] then LeftVol:=CurVol
		else RightVol:=CurVol;
	McSetVolume(McChannel,LeftVol,RightVol);
	
end;{of ScrollVolume}
procedure GetLEPoint(iLE:integer);
begin
	MyString[0]:=Chr(LEGetTextLen(Pointer(GetCtlTitle(chandle[iLE]))));
	HandToPtr(LEGetTextHand(Pointer(GetCtlTitle(chandle[iLE]))),@MyString[1],ord(MyString[0]));
	MyString:=StripColons(MyString);
	Case iLE of
		LineEditCS:if ValidPoint(MyString)=false then MyInPoint[McChannel]:=0
			else MyInPoint[McChannel]:=StringToLongInt(MyString);
		LineEditCE:if ValidPoint(MyString)=false then MyOutPoint[McChannel]:=0
			else MyOutPoint[McChannel]:=StringToLongInt(MyString);
		end;{of case}
end;{of GetLEPoint}
begin
   { no	main program}
end.
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/MediaCtl/MediaCtlNDA/MediaCtlNDA.rii b/IIGS.601.SRC/A.U.G/MediaCtl/MediaCtlNDA/MediaCtlNDA.rii
new file mode 100644
index 0000000..8e05ff6
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/MediaCtl/MediaCtlNDA/MediaCtlNDA.rii
@@ -0,0 +1 @@
+/*--------------------------------------------------------------*/
/*	resources for MediaCtrlNDA				by: Dan Hitchens	*/
/*--------------------------------------------------------------*/


#include "Typesiigs.r"

resource rVersion(1, $0000) {
	{ 
	  $1,				/* major version in BCD */
	  $1,				/* minor version in BCD */
	  $0,				/* bug version		    */
	  release,
	  $00,				/* # */
	 },
	verUS,
	"MediaController",
	"Copyright 1989-91, Apple Computer, Inc."
};

resource rComment(1, $0000) {
	"Media Controller, a Multimedia NDA for the Apple IIGS."
	"\$0d"
	"\$0d"
	"By Dan Hitchens "
	"\$0d"
	"\$0d"
	"\$0d"
	"Quality assured by Margarita Sang "
	"\$0d"
};

\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/MediaCtl/MediaCtlNDA/MediaCtlUNIT.pii b/IIGS.601.SRC/A.U.G/MediaCtl/MediaCtlNDA/MediaCtlUNIT.pii
new file mode 100644
index 0000000..24c4226
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/MediaCtl/MediaCtlNDA/MediaCtlUNIT.pii
@@ -0,0 +1 @@
+unit MCUnit;
{$LongGlobals+}
INTERFACE
USES	QDIntf,ConsoleIO,GSIntf,FontMgr,MiscTools;
CONST
	mcInChapters	=1;
	mcInFrames	=2;
	mcInTimes	=3;
	mcCEject	=2;
	mcCVideoOn	=3;
	mcCVideoOff	=4;
	mcFTypes	=0;
	mcFStep		=1;
	mcFRecord	=2;
	mcFVideo	=3;
	mcFEject	=4;
	mcFLock		=5;
	mcFVDisplay	=6;
	mcFVolume	=9;
	AudioOff	=0;
	AudioLeft	=8;
	AudioRight	=1;
	AudioStereo	=9;	
	DAWTop		=0;
	DAWLeft		=0;
	DAWBottom 	=160;
	DAWRight	=238;
	RBRow0		=12;
	RBRow1		=24;
	RBCol1		=10;
	RBCol2		=50;
	RBCol3		=90;
	RBCol4		=130;
	
	Row1		=142;
	Row2		=116;
	Row3		=90;
	Row4		=59;
	Row5		=35;
	Row6		=11;
	Row7		=20;
	Row8		=4;
	Row9		=12;
	
	Cdisp		=50;
	Column1		=5;
	Column2		=51;
	Column3		=97;
	Column4		=143;
	Column5		=189;
	ColumnZ		=181;
	ColumnX		=49;
	ColumnXX	=8;
	ColumnXXX	=86;
	ColumnY0	=13;
	ColumnY1	=35;
	ButtonW01	=20;
	ButtonWidth	=44;
	RowHeigth	=15;
	NoLButtons	=17;
	NoM2BStart	=18;
	NoM2BEnd	=20;
	NoM3BStart	=21;
	NoM3BEnd	=24;
	NoButtons	=NoM3BEnd;
	RadioCS		=25;
	RadioCE		=32;
	LineEditCS	=33;
	LineEditCE	=34;
	ScrollCS	=35;
	ScrollCE	=36;
	NoControls	=ScrollCE;
	BetweenDelay	=2;
	wInControl	=$21;
TYPE
MyIcon=
	RECORD
		iconType:	Integer;
		iconSize:	Integer;
		iconHeight:	Integer;
		iconWidth:	Integer;
		Image:		Packed Array[1..35] of Byte;
		Mask:		Packed Array[1..35] of Byte;
	end;	
MyIconCtrl=
	RECORD
		pcount:		integer;
		UserAsgID:	longint;
		LERectTop:	integer;
		LERectLeft:	integer;
		LERectBot:	integer;
		LERectRight:	integer;
		ProcRef:	longint;
		Flag:		integer;
		MoreFlags:	integer;
		refcon:		longint;
		iconref:	ptr;
		titleref:	ptr;
		colorref:	ptr;
	end;	

AlertTemplate=
	RECORD
		atBoundsRect:	rect;
		atAlertID:	Integer;
		atStage12:	Integer;
		atStage34:	Integer;
		atItem1:	ptr;
		atItem2:	ptr;
		atItem3:	ptr;
		atItem4:	ptr;
		atItem5:	ptr;
		end;
ItemTemplate=
	RECORD
		itemID:		integer;
		itemRect:	Rect;
		itemType:	integer;
		itemDescr:	Ptr;
		itemValue:	Integer;
		itemFlag:	Integer;
		itemColor:	Ptr;
		end;
MyLEControl=
	RECORD
		pcount:		integer;
		UserAsgID:	longint;
		LERectTop:	integer;
		LERectLeft:	integer;
		LERectBot:	integer;
		LERectRight:	integer;
		ProcRef:	longint;
		Flag:		integer;
		MoreFlags:	integer;
		refcon:		longint;
		maxsize:	integer;
		defaultref:	ptr;
		colortbl:	ptr;
	end;	
ExtTaskRec=
	RECORD
		wmWhat:		integer;
		wmMessage:	longint;
		wmWhen:		longint;
		wmWhere:	point;
		wmModifiers:	integer;
		wmTaskData:	longint;
		wmTaskMask:	longint;
		wmLaskClick:	longint;
		wmClickCount:	integer;
		wmTaskData2:	longint;
		wmTaskData3:	longint;
		wmTaskData4:	longint;
		wmLastClickPt:	point;
	end;

VAR
	NDAMode:	integer;
	NDAModeFlag:	boolean;
	myWindOpen:  boolean;
	myWind:	     NewWindowParamBlk;
	myWindPtr:   WindowPtr;
	RectPtrX:	rect;
	Chandle:	array[0..NoControls] of Controlhandle;
	CActive:	array[0..NoControls] of boolean;
	RunLoaded:	integer;
	KeepTools:	boolean;
	MyToolsActive:	boolean;
	IloadedMCT:	boolean;
	IStartedMCT:	boolean;
	ILoadedFonts:	boolean;
	IStartedFonts:	boolean;
	IloadedQDAux:	boolean;
	IStartedQDAux:	boolean;
	HaveLoadErrors:	boolean;
	MyLoadErrMC:	integer;
	MyLoadErrFM:	integer;
	MyID:		integer;
	ToolZP2:	handle;
	CurrentRadio:	integer;
	McChannel:	integer;
	MyLong:		longint;
	MyWord:		integer;
	MyBool:		boolean;
	MyString:	str255;
	XMyString:	str255;
	MyOldString1:	str255;
	MyOldChapter:	longint;
	I:		integer;
	J:		integer;
	WantDisplay:	array [1..8] of integer;
	RadioCtrlColor:	ControlColorTbl;
	ButtonCtrlColor: ControlColorTbl;
	BtnCtrlColor:	ControlColorTbl;
	ScrollColor:	ControlColorTbl;
	IBtnCtrlColor:	ControlColorTbl;
	myOldLong:	longint;
	myrect:		rect;
	DisplayTog:	array [1..8] of integer;
	XXLong:		longint;
	VideoTog:	integer;
	JustOpened:	boolean;
	AreActive:	boolean;
	ActiveCtr:	integer;
	MyToolError:	integer;
	MyLETemple:	MyLEControl;
	MyIconTemp:	MyIconCtrl;
	MyIconTemp2:	MyIconCtrl;
	IconL:		MyIcon;
	IconR:		MyIcon;
	MyLEDefault:	str255;
	MyExtTaskRec:	ExtTaskRec;
	MyInPoint:	array [1..8] of longint;
	MyOutPoint:	array [1..8] of longint;
	AudioS:		array [1..8] of integer;
	CurrSpeed:	array [1..8] of integer;
	MyNameStr:	str255;
	CurVol:		integer;
	TheAErrNum:	integer;
	ourAlert:	AlertTemplate;
	itemClicked:	integer;
	WantCancel:	boolean;
	IconDraw:	boolean;
	ForceDsply:	boolean;
	V320Mode:	boolean;
Procedure Abort; inline $00;
Procedure Abort1; inline $01;
Procedure Abort2; inline $02;
procedure MyInt2Hex(wordval:integer;strPtr:Ptr;length:Integer); Tool 11,34;	
function MyTaskMstrDA(EventMask:integer;ExtTaskPtr:ptr):integer; Tool 14,95;
function MyNewCtrl2(Owner:WindowPtr;RefDesc:integer;Ref:Ptr):Controlhandle;Tool 16,49;	
procedure MakeCtrls;forward;
procedure DoAbout;forward;
procedure DrawTime;forward;
procedure MyDrawChar(xx:integer);Tool 4,164;
procedure MCStartup(UserID:integer);Tool 38,2;
procedure MCShutdown;Tool 38,3;
function MCStatus:boolean;Tool 38,6;
procedure MCGetErrorMsg(TheError:integer;TheString:ptr); Tool 38,9;
function MCCvtTime2Bin(TimeVal:longint):longint; Tool 38,12;
function MCCvtBin2Time(BinVal:Longint):longint; Tool 38,13;
procedure MCGetName(McChann:integer;FeatStrPtr:ptr); Tool 38,45;
function MCGetFeatures(McChann,McSel:integer):Longint; Tool 38,22;
procedure MCPlay(McChann:integer);Tool 38,23;
procedure McPause(McChann:integer);Tool 38,24;
procedure McSendRawData(McChann:integer;TheData:string); Tool 38,25;
function McGetStatus(McChann,McSel:integer):integer; Tool 38,26;
procedure McControl(McChann,McCtlCommand:integer); Tool 38,27;
procedure McScan(McChann,McScanDir:integer); Tool 38,28;
procedure McSpeed(McChann,McSpeedVal:integer); Tool 38,30;
procedure MCStopAt(Channel,UnitType:integer;StopAt:longint); Tool 38,31;
procedure McJogN(McChann,MCUnitType:integer;N:longint;mcRepeat:integer); Tool 38,32;
procedure MCSearchTo(Channel,UnitType:integer;SearchLoc:LongInt); Tool 38,33;
procedure MCSearchWait(Channel:integer); Tool 38,35;
function McReadPos(McChann,MCUnitType:integer):longint; Tool 38,36;
procedure McSetAudio(McChann,McAudioVal:integer); Tool 38,37;
procedure McRecord(Chann:integer); Tool 38,42;
procedure McStop(Chann:integer); Tool 38,43;
procedure McSetVolume(Chann,leftvol,rightvol:integer); Tool 38,46;
procedure XInstallFont(ID:LongInt;SW:integer); Tool 27,14;
procedure NewNDAMode(OldMode:integer);forward;
procedure DrawInName;	forward;
procedure DrawInDMode;	forward;
procedure CloadTools;	forward;
procedure CUnloadTools;	forward;
function AddColons(TString:string;MCUnitType:integer):string; forward;
function ValidPoint(TString:string):boolean; forward;
function StripColons(TString:string):string; forward;
procedure SetHilites; forward;
procedure DoDisplayTog; forward;
procedure SwitchChann(i:integer); forward;
procedure MyPutLEText(Point:longint;HdlIndex:integer); forward;
procedure SetCtlMoreFlags(F:integer;H:Controlhandle); Tool 16,47;
function GetCtlMoreFlags(H:Controlhandle):integer; Tool 16,46;
IMPLEMENTATION
procedure NewNDAMode(OldMode:integer);
var	III:	integer;
begin
{First erase old modes controls}
Case OldMode of
	1:begin {case first (default startup)}
		for III:=RadioCS to RadioCE do begin
			EraseControl(Chandle[III]);
		end;{of for III}
		NDAMode:=2;
	end;{of 1:}
	2:begin
		for III:=NoM2BStart to NoM2BEnd do begin
			EraseControl(Chandle[III]);
		end;{of for III}
		for III:=LineEditCS to LineEditCE do begin
			EraseControl(Chandle[III]);
		end; {of for III}
		LEDeactivate(Pointer(GetCtlTitle(chandle[LineEditCS])));
		SetCtlMoreFlags(bitand($7fff,GetCtlMoreFlags(chandle[LineEditCS])),chandle[LineEditCS]);
		LEDeactivate(Pointer(GetCtlTitle(chandle[LineEditCS+1])));
		SetCtlMoreFlags(bitand($7fff,GetCtlMoreFlags(chandle[LineEditCS+1])),chandle[LineEditCS+1]);
		NDAMode:=3;
	end;{of 2}
	3:begin
		for III:=NoM3BStart to NoM3BEnd do begin
			EraseControl(Chandle[III]);
		end;{of for III}

		NDAMode:=4;
	end;{of case 3}	
	4:begin {Volume mode}
		EraseControl(Chandle[ScrollCS]);
		EraseControl(Chandle[ScrollCE]);
		NDAMode:=1;
	end;{of case 4}
end;{of case NDAmode}
end;{of NewNDAMode}

procedure DrawTime;
var   	III: 		integer;
	LeftVol:	integer;
	RightVol:	integer;
begin
{paint window black}
if NDAModeFlag then begin
	with myrect do begin
		top:= 0; left:=0; bottom:=37; right:=DAWRight-69;
		end;
end else begin
	with myrect do begin
		top:= 0; left:=0; bottom:=DAWBottom; right:=DAWRight;
		end;
	end;{of else}
	setdithcolor(00);
	paintrect(myrect);
{Now do outline window with white}
	setdithcolor(15);
	with myrect do begin
		top:= 0; left:=1; bottom:=DAWBottom-1; right:=DAWRight-1;
		end;
	framerect(myrect);
	with myrect do begin
		top:= 0; left:=2; bottom:=DAWBottom-1; right:=DAWRight-2;
		end;
	framerect(myrect);
	setTextMode($0004);
	setforecolor($000f);
	moveto(DAWRight-12,10);
	DrawChar(chr(17)); {apple character}
	moveto(ColumnZ+6,Row6-1);
	drawstring('MORE');
	
	moveto(DAWLeft+2,Row3-14);
	line(DAWRight-4,0);
{Now frame around radio buttons}
	with myrect do begin
		top:= 0; left:=2; bottom:=Row3-13; right:=rbcol4+40;;
		end;
	framerect(myrect);
	with myrect do begin
		top:= 0; left:=2; bottom:=Row3-13; right:=rbcol4+41;;
		end;
	framerect(myrect);
	
{do display window}
	with myrect do begin
		top:= rbRow1+13; left:=12; bottom:=Row3-18; right:=rbcol4+30;;
		end;
	frameRrect(myrect,30,15);
	
	moveto(ColumnZ-5,Row4-1);
	drawstring('DISPLAY');
	moveto(ColumnZ+3,Row5-1);
	drawstring('VIDEO');
	DrawInName;
	DrawInDMode;
	MyOldString1:='XXXXXXXXXX';
	ForceDsply:=true;
Case NDAMode of

1:begin
	moveto(RBCol1,RBRow0-2);
	drawstring('CHANNEL');
	if NDAModeFlag then begin
		for III:=RadioCS to RadioCE do begin
			ShowControl(Chandle[III]);
		end;{of for III}
	end else begin
		for III:=RadioCS to RadioCE do begin
			DrawOneCtl(Chandle[III]);
		end;{of for III}
		end;{of else}

end;{of NDAmode=1}

2:begin
	MyString:=LongIntToString(MyInPoint[MCChannel]);
	MyString:=AddColons(MyString,displaytog[McChannel]);
	LESetText(Pointer(@MyString[1]),Ord(MyString[0]),Pointer(GetCtlTitle(chandle[LineEditCS])));
	MyString:=LongIntToString(MyOutPoint[MCChannel]);
	MyString:=AddColons(MyString,displaytog[McChannel]);
	LESetText(Pointer(@MyString[1]),Ord(MyString[0]),Pointer(GetCtlTitle(chandle[LineEditCS+1])));
	if NDAModeFlag then begin
		for III:=LineEditCS to LineEditCE do begin
			ShowControl(Chandle[III]);
		end;{of for III}
		for III:=NoM2BStart to NoM2BEnd do begin
			ShowControl(Chandle[III]);
		end;{of for III}

	end else begin
		for III:=LineEditCS to LineEditCE do begin
			DrawOneCtl(Chandle[III]);
		end;{of for III}
		for III:=NoM2BStart to NoM2BEnd do begin
			DrawOneCtl(Chandle[III]);
		end;{of for III}
		end;{of else}

end;{of NDAMode=2}
3: begin
	moveto(ColumnY1+27,Row8+10);
	drawstring('Access Lock');
	moveto(ColumnY1+27,Row7+10);
	drawstring('Video Display');

		if NDAModeFlag then begin
		for III:=NoM3BStart to NoM3BEnd do begin
			ShowControl(Chandle[III]);
		end;{of for III}
	end else begin
		for III:=NoM3BStart to NoM3BEnd do begin
			DrawOneCtl(Chandle[III]);
		end;{of for III}
		end;{of else}

end;{of NDAMode=3}
4:begin {volume mode}
	moveto(RBCol1,RBRow0-2);
	drawstring('VOLUME');
	moveto(145,20);
	drawstring('L');
	moveto(145,32);
	drawstring('R');

	LeftVol:=MCGetStatus(McChannel,6);

	RightVol:=MCGetStatus(McChannel,7);
	for III:=1 to 8 do begin
		RightVol:=BitSR(RightVol);
		LeftVol:=BitSR(LeftVol);
		end; {of for II}
	if CActive[ScrollCS] then SetCtlValue(LeftVol,Chandle[ScrollCS])
		else SetCtlValue(0,CHandle[ScrollCS]);
	if CActive[ScrollCE] then SetCtlValue(RightVol,Chandle[ScrollCE])
		else SetCtlValue(0,CHandle[ScrollCE]);		
	if NDAModeFlag then begin
		ShowControl(Chandle[ScrollCS]);
		ShowControl(Chandle[ScrollCE]);
		end else begin
			DrawOneCtl(Chandle[ScrollCS]);
			DrawOneCtl(Chandle[ScrollCE]);
		end;{of else}
end;{of NDAMode=4}
end;{of case NDAmode}

{Do lower part}
if NDAModeFlag=false then begin
	moveto(Column1+9,Row3-1);
	drawstring('REC.');
	moveto(Column2+3,Row3-1);
	drawstring('EJECT');
	moveto(Column3+6,Row3-1);
	drawstring('STOP');
	moveto(Column5-24,Row3-1);
	drawstring('AUDIO');
	moveto(Column1+2,Row2-1);
	drawstring('SPEED');
	moveto(Column2+6,Row2-1);
	drawstring('STEP');
	moveto(Column3+6,Row2-1);
	drawstring('PLAY');
	moveto(Column4+6,Row2-1);
	drawstring('STEP');
	moveto(Column5+2,Row2-1);
	drawstring('SPEED');
	moveto(Column1+1,Row1-1);
	drawstring('TRACK');
	moveto(Column2+6,Row1-1);
	drawstring('SCAN');
	moveto(Column3+3,Row1-1);
	drawstring('PAUSE');
	moveto(Column4+6,Row1-1);
	drawstring('SCAN');
	moveto(Column5+1,Row1-1);
	drawstring('TRACK');
	SetHilites;
end;{of NDAModeFlag}	
	setforecolor($0000);
	setTextMode($0000);
end; { of DrawTime }
procedure MakeCtrls;
var 	ll:	integer;
	kk:	ptr;
	MyLong:	longint;
begin
{Do Buttons}
ButtonCtrlColor.SimpOutline:=$00f0;
ButtonCtrlColor.SimpNorBack:=$0000;
ButtonCtrlColor.SimpSelBack:=$00f0;
ButtonCtrlColor.SimpNorText:=$000f;
ButtonCtrlColor.SimpSelText:=$00f0;

BtnCtrlColor.SimpOutline:=$00f0;
BtnCtrlColor.SimpNorBack:=$0000;
BtnCtrlColor.SimpSelBack:=$00f0;
BtnCtrlColor.SimpNorText:=$000f;
BtnCtrlColor.SimpSelText:=$00f0;

IBtnCtrlColor.SimpOutline:=$00f0;
IBtnCtrlColor.SimpNorBack:=$0000;
IBtnCtrlColor.SimpSelBack:=$00ff;
IBtnCtrlColor.SimpNorText:=$000f;
IBtnCtrlColor.SimpSelText:=$00f0;

kk:=Pointer($00000000); {Button type control}

SetRect(RectPtrX,Column1,Row1,Column1+ButtonWidth,Row1+RowHeigth);
Chandle[0]:=NewControl(myWindPtr,RectPtrX,'|<<',2,0,0,100,kk,ll,@BtnCtrlColor);

SetRect(RectPtrX,Column2,Row1,Column2+ButtonWidth,Row1+RowHeigth);
Chandle[1]:=NewControl(myWindPtr,RectPtrX,'<<',2,0,0,100,kk,ll,@BtnCtrlColor);

SetRect(RectPtrX,Column3,Row1,Column3+ButtonWidth,Row1+RowHeigth);
Chandle[2]:=NewControl(myWindPtr,RectPtrX,'||',2,0,0,100,kk,ll,@BtnCtrlColor);

SetRect(RectPtrX,Column4,Row1,Column4+ButtonWidth,Row1+RowHeigth);
Chandle[3]:=NewControl(myWindPtr,RectPtrX,'>>',2,0,0,100,kk,ll,@BtnCtrlColor);

SetRect(RectPtrX,Column5,Row1,Column5+ButtonWidth,Row1+RowHeigth);
Chandle[4]:=NewControl(myWindPtr,RectPtrX,'>>|',2,0,0,100,kk,ll,@BtnCtrlColor);

SetRect(RectPtrX,Column1,Row2,Column1+ButtonWidth,Row2+RowHeigth);
Chandle[5]:=NewControl(myWindPtr,RectPtrX,'<n||',2,0,0,100,kk,ll,@BtnCtrlColor);

SetRect(RectPtrX,Column2,Row2,Column2+ButtonWidth,Row2+RowHeigth);
Chandle[6]:=NewControl(myWindPtr,RectPtrX,'<||',2,0,0,100,kk,ll,@BtnCtrlColor);

SetRect(RectPtrX,Column3,Row2,Column3+ButtonWidth,Row2+RowHeigth);
Chandle[7]:=NewControl(myWindPtr,RectPtrX,'>',2,0,0,100,kk,ll,@BtnCtrlColor);

SetRect(RectPtrX,Column4,Row2,Column4+ButtonWidth,Row2+RowHeigth);
Chandle[8]:=NewControl(myWindPtr,RectPtrX,'||>',2,0,0,100,kk,ll,@BtnCtrlColor);

SetRect(RectPtrX,Column5,Row2,Column5+ButtonWidth,Row2+RowHeigth);
Chandle[9]:=NewControl(myWindPtr,RectPtrX,'||n>',2,0,0,100,kk,ll,@BtnCtrlColor);

SetRect(RectPtrX,Column1,Row3,Column1+ButtonWidth,Row3+RowHeigth);
Chandle[10]:=NewControl(myWindPtr,RectPtrX,'×',2,0,0,100,kk,ll,@BtnCtrlColor);

SetRect(RectPtrX,Column2,Row3,Column2+ButtonWidth,Row3+RowHeigth);
Chandle[11]:=NewControl(myWindPtr,RectPtrX,'Æ',2,0,0,100,kk,ll,@BtnCtrlColor);

SetRect(RectPtrX,Column3,Row3,Column3+ButtonWidth,Row3+RowHeigth);
Chandle[12]:=NewControl(myWindPtr,RectPtrX,'[]',2,0,0,100,kk,ll,@BtnCtrlColor);

{ICON Buttons}
IconL.IconType:=0;
IconL.IconSize:=35;
IconL.IconHeight:=7;
IconL.IconWidth:=10;
StuffHex(@IconL.Image[1],'0F000F0000');
StuffHex(@IconL.Image[6],'f00f0ff000');
StuffHex(@IconL.Image[11],'f0f00ffff0');
StuffHex(@IconL.Image[16],'f0f00ffff0');
StuffHex(@IconL.Image[21],'f0f00ffff0');
StuffHex(@IconL.Image[26],'f00f0ff000');
StuffHex(@IconL.Image[31],'0f000f0000');

StuffHex(@IconL.Mask[1],'ffffffffff');
StuffHex(@IconL.Mask[6],'ffffffffff');
StuffHex(@IconL.Mask[11],'ffffffffff');
StuffHex(@IconL.Mask[16],'ffffffffff');
StuffHex(@IconL.Mask[21],'ffffffffff');
StuffHex(@IconL.Mask[26],'ffffffffff');
StuffHex(@IconL.Mask[31],'ffffffffff');

MyIconTemp.pcount:=9;
MyIconTemp.UserAsgID:=260;
MyIconTemp.LERectTop:=Row3-2;
MyIconTemp.LERectBot:=Row3+RowHeigth+2;
V320Mode:=(BitAnd(GetMasterSCB,$0080)=0);{0=320}
if V320Mode then MyIconTemp.LERectLeft:=Column4-3 else MyIconTemp.LERectLeft:=Column4-4;
if V320Mode then MyIconTemp.LERectRight:=Column4+ButtonWidth+3 else MyIconTemp.LERectRight:=Column4+ButtonWidth+4;
MyIconTemp.ProcRef:=$07ff0001;
MyIconTemp.Flag:=$0002;
MyIconTemp.MoreFlags:=$1000;
MyIconTemp.refcon:=0;
MyIconTemp.IconRef:=pointer(@IconL);
MyIconTemp.TitleRef:=nil;
MyIconTemp.ColorRef:=pointer(@IBtnCtrlColor);
Chandle[13]:=MyNewCtrl2(myWindPtr,0,@MyIconTemp);

MyIconTemp2:=MyIconTemp;
IconR.IconType:=0;
IconR.IconSize:=35;
IconR.IconHeight:=7;
IconR.IconWidth:=10;
StuffHex(@IconR.Image[1],'000f000f00');
StuffHex(@IconR.Image[6],'00ff0f00f0');
StuffHex(@IconR.Image[11],'ffff00f0f0');
StuffHex(@IconR.Image[16],'ffff00f0f0');
StuffHex(@IconR.Image[21],'ffff00f0f0');
StuffHex(@IconR.Image[26],'00ff0f00f0');
StuffHex(@IconR.Image[31],'000f000f00');

StuffHex(@IconR.Mask[1],'ffffffffff');
StuffHex(@IconR.Mask[6],'ffffffffff');
StuffHex(@IconR.Mask[11],'ffffffffff');
StuffHex(@IconR.Mask[16],'ffffffffff');
StuffHex(@IconR.Mask[21],'ffffffffff');
StuffHex(@IconR.Mask[26],'ffffffffff');
StuffHex(@IconR.Mask[31],'ffffffffff');

MyIconTemp2.UserAsgID:=261;
MyIconTemp2.IconRef:=pointer(@IconR);
if V320Mode then MyIconTemp2.LERectLeft:=Column5-3 else MyIconTemp2.LERectLeft:=Column5-4;
if V320Mode then MyIconTemp2.LERectRight:=Column5+ButtonWidth+3 else MyIconTemp2.LERectRight:=Column5+ButtonWidth+4;
Chandle[14]:=MyNewCtrl2(myWindPtr,0,@MyIconTemp2);
{Column buttons}
SetRect(RectPtrX,ColumnZ,Row4+1,ColumnZ+ButtonWidth,Row4+RowHeigth-3);
Chandle[15]:=NewControl(myWindPtr,RectPtrX,'#',0,0,0,100,kk,ll,@ButtonCtrlColor);
SetRect(RectPtrX,ColumnZ,Row5+1,ColumnZ+ButtonWidth,Row5+RowHeigth-3);
Chandle[16]:=NewControl(myWindPtr,RectPtrX,'V',0,0,0,100,kk,ll,@ButtonCtrlColor);
SetRect(RectPtrX,ColumnZ,Row6+1,ColumnZ+ButtonWidth,Row6+RowHeigth-3);
Chandle[17]:=NewControl(myWindPtr,RectPtrX,'...',0,0,0,100,kk,ll,@ButtonCtrlColor);
{Mode buttons2}
SetRect(RectPtrX,ColumnX,Row8+1,ColumnX+ButtonWidth-10,Row8+RowHeigth-3);
Chandle[18]:=NewControl(myWindPtr,RectPtrX,'IN',$0082,0,0,100,kk,ll,@ButtonCtrlColor);
SetRect(RectPtrX,ColumnX,Row7+1,ColumnX+ButtonWidth-10,Row7+RowHeigth-3);
Chandle[19]:=NewControl(myWindPtr,RectPtrX,'OUT',$0082,0,0,100,kk,ll,@ButtonCtrlColor);
SetRect(RectPtrX,ColumnXX,Row8+1,ColumnXX+ButtonWidth-7,Row7+RowHeigth-3);
Chandle[20]:=NewControl(myWindPtr,RectPtrX,'Run',$0080,0,0,100,kk,ll,@ButtonCtrlColor);

{Mode buttons3}
SetRect(RectPtrX,ColumnY0,Row8+1,ColumnY0+ButtonW01,Row8+RowHeigth-3);
Chandle[21]:=NewControl(myWindPtr,RectPtrX,'-',$0082,0,0,100,kk,ll,@ButtonCtrlColor);
SetRect(RectPtrX,ColumnY1,Row8+1,ColumnY1+ButtonW01,Row8+RowHeigth-3);
Chandle[22]:=NewControl(myWindPtr,RectPtrX,'+',$0082,0,0,100,kk,ll,@ButtonCtrlColor);
SetRect(RectPtrX,ColumnY0,Row7+1,ColumnY0+ButtonW01,Row7+RowHeigth-3);
Chandle[23]:=NewControl(myWindPtr,RectPtrX,'-',$0082,0,0,100,kk,ll,@ButtonCtrlColor);
SetRect(RectPtrX,ColumnY1,Row7+1,ColumnY1+ButtonW01,Row7+RowHeigth-3);
Chandle[24]:=NewControl(myWindPtr,RectPtrX,'+',$0082,0,0,100,kk,ll,@ButtonCtrlColor);


{Radio Buttons}
RadioCtrlColor.RadioResv:=0;
RadioCtrlColor.RadioNorColor:=$000f;
RadioCtrlColor.RadioSelColor:=$000f;
RadioCtrlColor.RadioTitleColor:=$000f;

kk:=Pointer($04000000); {Button type control}
SetRect(RectPtrX,RBCol1,RBRow0,0,0);
CHandle[RadioCS]:=NewControl(myWindPtr,RectPtrX,'1',1,1,0,0,kk,ll,@RadioCtrlColor);
SetRect(RectPtrX,RBCol2,RBRow0,0,0);
CHandle[RadioCS+1]:=NewControl(myWindPtr,RectPtrX,'2',1,0,0,0,kk,ll,@RadioCtrlColor);
SetRect(RectPtrX,RBCol3,RBRow0,0,0);
CHandle[RadioCS+2]:=NewControl(myWindPtr,RectPtrX,'3',1,0,0,0,kk,ll,@RadioCtrlColor);
SetRect(RectPtrX,RBCol4,RBRow0,0,0);
CHandle[RadioCS+3]:=NewControl(myWindPtr,RectPtrX,'4',1,0,0,0,kk,ll,@RadioCtrlColor);

SetRect(RectPtrX,RBCol1,RBRow1,0,0);
CHandle[RadioCS+4]:=NewControl(myWindPtr,RectPtrX,'5',1,0,0,0,kk,ll,@RadioCtrlColor);
SetRect(RectPtrX,RBCol2,RBRow1,0,0);
CHandle[RadioCS+5]:=NewControl(myWindPtr,RectPtrX,'6',1,0,0,0,kk,ll,@RadioCtrlColor);
SetRect(RectPtrX,RBCol3,RBRow1,0,0);
CHandle[RadioCS+6]:=NewControl(myWindPtr,RectPtrX,'7',1,0,0,0,kk,ll,@RadioCtrlColor);
SetRect(RectPtrX,RBCol4,RBRow1,0,0);
CHandle[RadioCS+7]:=NewControl(myWindPtr,RectPtrX,'8',1,0,0,0,kk,ll,@RadioCtrlColor);
MyLEDefault:='0';
MyLeTemple.pcount:=8;
MyLeTemple.UserAsgID:=256;
MyLeTemple.LERectTop:=4;
MyLeTemple.LERectLeft:=ColumnXXX;
MyLeTemple.LERectBot:=17;
MyLeTemple.LERectRight:=ColumnXXX+80;
MyLeTemple.ProcRef:=$83000000;
MyLeTemple.Flag:=$0080;
MyLeTemple.MoreFlags:=$7000;
MyLeTemple.refcon:=0;
MyLeTemple.maxsize:=10;
MyLeTemple.defaultref:=pointer(@myLEDefault);
chandle[LineEditCS]:=MyNewCtrl2(myWindPtr,0,@MyLETemple);
MyLeTemple.UserAsgID:=257;
MyLeTemple.LERectTop:=20;
MyLeTemple.LERectBot:=33;
chandle[LineEditCS+1]:=MyNewCtrl2(myWindPtr,0,@MyLETemple);

{Scroll bar Control}
With ScrollColor do begin
	ScrollOutLine:=$00f0;
	ArrowNorColor:=$000F;
	ArrowSelcolor:=$00F0;
	ArrowBackColor:=$0000;
	ThumbNorColor:=$0000;
	ScrollResv:=$0000;
	PageRgnColor:=$01f0;
	InactiveColor:=$0000;
	end;
MyLeTemple.pcount:=10;
MyLeTemple.UserAsgID:=258;
MyLeTemple.LERectTop:=11;
MyLeTemple.LERectLeft:=10;
MyLeTemple.LERectBot:=22;
MyLeTemple.LERectRight:=ColumnXXX+50;
MyLeTemple.ProcRef:=$86000000;
MyLeTemple.Flag:=$009c;
MyLeTemple.MoreFlags:=$1000;
MyLeTemple.refcon:=0;
MyLeTemple.maxsize:=256;
MyLeTemple.defaultref:=Pointer($00ff0019);
MyLeTemple.colortbl:=@ScrollColor;

chandle[ScrollCS]:=MyNewCtrl2(myWindPtr,0,@MyLETemple);

MyLeTemple.UserAsgID:=259;
MyLeTemple.LERectTop:=23;
MyLeTemple.LERectLeft:=10;
MyLeTemple.LERectBot:=34;
MyLeTemple.LERectRight:=ColumnXXX+50;
chandle[ScrollCE]:=MyNewCtrl2(myWindPtr,0,@MyLETemple);
end;{of MakeCtrls}
procedure myTextItem(theDialog:ptr; theItem: integer);
begin
   SetForeColor(0);
   SetBackColor(15);
   MoveTo(10,14);  DrawString('Media Controller          v1.1');
   MoveTo(10,16);  LineTo(225,16);
   MoveTo(10,26);  DrawString('Programmed by Dan Hitchens');  
   MoveTo(10,37);  DrawString('Tested by Margarita, Anil, Jan');
   MoveTo(10,39);  LineTo(225,39);
   
   MoveTo(10,50);  DrawString('Copyright 1989-1992');
   MoveTo(10,60);  DrawString('Apple Computer, Inc.');
   MoveTo(10,62);  LineTo(225,62);

   MoveTo(10,73);  DrawString('Copyright (c) 1987');
   MoveTo(10,83);  DrawString('TML Systems, Inc.');
   MoveTo(10,93);  DrawString('Certain portions of');
   MoveTo(10,103); DrawString('this software are');
   MoveTo(10,113); DrawString('copyrighted by');
   MoveTo(10,123); DrawString('TML Systems, Inc.');
   MoveTo(10,133); DrawString('All Rights Reserved.');
end;
procedure DoAbout;
var	aboutDlog: DialogPtr;
	r:	   Rect;
	r2:    Rect;
	itemHit:   Integer;
begin
   if BitAnd(GetMasterSCB,$0080)=$0080 then
   SetRect(r,180,30,420,170) else SetRect(r,40,30,280,170);
{   r2:=r; removed 22-Jan-92 DAL }
   aboutDlog :=	NewModalDialog(r,true,0);
   SetPort(aboutDlog);

   SetRect(r,175,120,0,0);
   NewDItem(aboutDlog,1,r,10,@'OK',0,0,nil);
   SetRect(r2,0,0,1000,1000); { added 22-Jan-92 DAL }
   NewDItem(aboutDlog,2,r2,$8014{userItem},@myTextItem,0,0,nil);


   itemHit := ModalDialog(nil);
   CloseDialog(aboutDlog);
end; { of DoAbout }
procedure DrawInName;
var III: integer;
begin
	MCGetName(McChannel,@MyNameStr);
	if ToolErrorNum=0 then begin
		For III:=1 to 50 do begin
			if MynameStr[III+10]=chr(32) then leave;
			MyNameStr[III+2]:=MyNameStr[III+10];
			end;
		MyNameStr[0]:=chr(III+1);
		end else begin
			MyNameStr:='#-No Connection!';
			if ToolErrorNum=$260B then MyNameStr:='#-Invalid Port!';
			end;{of if else}
	MyNameStr[1]:=chr(McChannel+48);{put in channel no.}
	MyNameStr[2]:=chr(45);{put in -}
	moveto(Column1+20,Row3-43);
	drawstring(MyNameStr);

end;{of DrawInName}
procedure DrawInDMode;
var MyDrect: rect;
begin;
	case displaytog[McChannel] of
		McInFrames:MyNameStr:='F';
		McInTimes:MyNameStr:='T';
		end;{of case}
	setdithcolor(0);
	SetRect(myDrect,Column4,Row3-33,Column4+10,Row3-23);
	paintrect(myDrect);

	moveto(Column4,Row3-23);

	drawstring(MyNameStr);

end;{of DrawInDMode}
procedure CLoadTools;
 var
 	statustool:boolean;
 	IStatusTool:integer;
begin
MyToolsActive:=true;
HaveLoadErrors:=false;
MyLoadErrMC:=0;
MyLoadErrFM:=0;
if IloadedMCT=false then begin
	StatusTool:=MCStatus;
	if ISToolError then begin
		loadonetool(38,0);
		if IsToolError then begin
			HaveLoadErrors:=true;
			MyLoadErrMC:=ToolErrorNum;
			end else ILoadedMCT:=true;
		end;{of toolerrornum<>0}
	end;{of IloadedMCT=false}
	
if IStartedMCT=false then begin
	if ((IloadedMCT=true) or (MyLoadErrMC=0)) then begin
		StatusTool:=MCStatus;
		if IsToolError=false then begin
			if StatusTool=false then begin
				MyLoadErrMC:=0;
				MCStartup(MyID);
				if IsToolError then begin
					HaveLoadErrors:=true;
					MyLoadErrMC:=ToolErrorNum;
					end;
				IStartedMCT:=true;
				end;{of statustool=false}
			end;{ofIsToolError=false}
		end;{of compound if}			
	end;{of if IStartedMCT}
if IloadedFonts=false then begin
	IStatusTool:=FMStatus;
	if IsToolError then begin
		loadonetool(27,0);
		if IsToolError then begin
			HaveLoadErrors:=true;
			MyLoadErrFM:=ToolErrorNum;
			end else ILoadedFonts:=true;
		end;
	end;{of Iloadedfonts=false}
	
if IStartedFonts=false then begin
	if ((IloadedFonts=true) or (MyLoadErrFM=0)) then begin
		IStatusTool:=FMStatus;
		if IsToolError=false then begin
			if IStatusTool=0 then begin
				MyLoadErrFM:=0;
				ToolZP2:=NewHandle(512,MyID,fixedBank+fixedblk+locked,ptr(0));
				MyLong:=Ord4(ToolZP2^);
				IStatusTool:=LoWord(MyLong);
				FMStartup(MyID,IStatusTool);
				if IsToolError then begin
					HaveLoadErrors:=true;
					MyLoadErrFM:=ToolErrorNum;
					end;
				IStartedFonts:=true;
				end;{of statustool=false}
			end;{of IsToolError=false}
		end;{of compound if}		
	
	end;{of if IStartedFonts}
if IloadedQDAux=false then begin	
	IStatusTool:=QDAuxStatus;
	if ISToolError then begin
		loadonetool(18,0);
		if IsToolError then begin
			HaveLoadErrors:=true;
			MyLoadErrMC:=ToolErrorNum;
			end else ILoadedQDAux:=true;
		end;{of toolerrornum<>0}
	end;{of IloadedQDAux=false}
	
if IStartedQDAux=false then begin
	if ((IloadedQDAux=true) or (MyLoadErrMC=0)) then begin
		IStatusTool:=QDAuxStatus;
		if IsToolError=false then begin
			if IStatusTool=0 then begin
				MyLoadErrMC:=0;
				QDAuxStartup;
				if IsToolError then begin
					HaveLoadErrors:=true;
					MyLoadErrMC:=ToolErrorNum;
					end;
				IStartedQDAux:=true;
				end;{of statustool=false}
			end;{ofIsToolError=false}
		end;{of compound if}		
	end;{of if IStartedMCT}
end;{of CLoadTools}
procedure CUnloadTools;
 var
 	statustool:boolean;
 	IStatusTool:integer;
begin
if KeepTools=false then begin
MyToolsActive:=false;
	if IStartedMCT then begin
		MCShutdown;
		IStartedMCT:=false;
		end;
	if ILoadedMCT then begin
		statustool:=MCStatus;
		if IsToolError=false then Unloadonetool(38);
		ILoadedMCT:=false;
		end;{of if}
	if IStartedFonts then begin
		FMShutdown;
		DisposeHandle(ToolZP2);
		IStartedFonts:=false;
		end;
	if ILoadedFonts then begin
		Istatustool:=FMStatus;
		if IsToolError=false then Unloadonetool(27);
		ILoadedFonts:=false;
		end;{of sane}
	if IStartedQDAux then begin
		QDAuxShutdown;
		IStartedQDAux:=false;
		end;
	if ILoadedQDAux then begin
		Istatustool:=QDAuxStatus;
		if IsToolError=false then Unloadonetool(18);
		ILoadedQDAux:=false;
		end;{of if}

end;{of KeepTools=false}
end;{of CUnloadTools}
function AddColons(TString:string;MCUnitType:integer):string;
var x,y:integer;
	TempStr:str255;
begin
	TempStr:=TString;
	if MCUnitType=MCInTimes then begin
		TempStr:='0:00:00.00';
		x:=ord(TString[0]);
		y:=10;
		repeat
			begin
				TempStr[y]:=Tstring[x];
				x:=x-1;
				y:=y-1;
				if ((y=8) or (y=5) or (y=2)) then y:=y-1;
			end;
		until x=0;
		end;{of if}
	AddColons:=TempStr;
end;{of AddColons}
function ValidPoint(TString:string):boolean;
var i:integer;
begin
	ValidPoint:=false;
	i:=ord(TString[0]);
	if i=0 then Exit;
	for j:=1 to i do
		if ((TString[j]<chr(48))or (TString[j]>chr(57)))
			then Exit;
	ValidPoint:=true;
end;{of ValidPoint}
function StripColons(TString:string):string;
var i,x,y:integer;
	SString:string;
begin
		i:=ord(TString[0]);
		if i=0 then begin
			StripColons:='';
			EXIT;
			end;
		x:=1;
		y:=0;
		repeat
			begin
				if ((Tstring[x]=chr(58)) or (Tstring[x]=chr(46)) or (Tstring[x]=chr(59))) then 
					 x:=x+1
					 else
				begin
					y:=y+1;
					SString[y]:=Tstring[x];
					x:=x+1;
					end;
			end;
		until x=(i+1);
		SString[0]:=chr(y);
		StripColons:=SString;	
end;{of StripColons}
procedure SetHilites;
var CABool: boolean;
III: integer; ll: longint; AWord: integer;
Label 100;
begin
	MCGetName(MCChannel,@MyString);{check for error, no driver}
	if IsToolError then begin {force all buttons inactive}
		for III:=0 to NoControls do begin
			if III=13 then begin
				V320Mode:=(BitAnd(GetMasterSCB,$0080)=0);{0=320}
				if V320Mode then AWord:=$1000 else AWord:=$3000;
				IconDraw:=true;
				DisposeControl(Chandle[14]); DisposeControl(Chandle[13]);
				SetRect(RectPtrX,Column4,Row3,Column4+ButtonWidth,Row3+RowHeigth);
				Chandle[13]:=NewControl(myWindPtr,RectPtrX,'',2,0,0,100,Pointer($00000000),ll,@BtnCtrlColor);
				SetRect(RectPtrX,Column5,Row3,Column5+ButtonWidth,Row3+RowHeigth);
				Chandle[14]:=NewControl(myWindPtr,RectPtrX,'',2,0,0,100,Pointer($00000000),ll,@BtnCtrlColor);
			end;
			if ((III=17) or ((III>=RadioCS) and (III<=RadioCE)))  then CActive[III]:=true
			else begin
				if III < ScrollCS then HiliteControl(255,CHandle[III])
					else Begin
						SetCtlParams(0,0,Chandle[III]);
						SetCtlValue(0,CHandle[III]);
						end;
				CActive[III]:=false;
				end;{of if else}
			DrawOneCtl(Chandle[III]);
			end;{of do}
		end else {set buttons as needed by driver}
		for III:=0 to NoControls do  begin		
			CABool:=true;
			case III of		
				5,6,8,9: begin if MCGetFeatures(MCChannel,mcFStep)=0 then 
					CABool:=false; end;
				10: begin if MCGetFeatures(MCChannel,mcFRecord)=0 then 
		 			CABool:=false; end;
				13: begin if IconDraw then begin
					DisposeControl(Chandle[13]);
					Chandle[13]:=MyNewCtrl2(myWindPtr,0,@MyIconTemp);
					end; end;
				14: begin if IconDraw then begin
					IconDraw:=false;
					DisposeControl(Chandle[14]);
					Chandle[14]:=MyNewCtrl2(myWindPtr,0,@MyIconTemp2);
					end; end;
				16: begin if MCGetFeatures(MCChannel,mcFVideo)=0 then
					CABool:=false; end;
				21,22: begin if MCGetFeatures(MCChannel,mcFLock)=0 then
					CABool:=false; end;
				23,24: begin if MCGetFeatures(MCChannel,mcFVDisplay)=0 then
					CABool:=false; end;
				ScrollCS,ScrollCE: begin 
					if MCGetFeatures(MCChannel,mcFVolume)=0 then begin
						SetCtlParams(0,0,Chandle[III]);
						SetCtlValue(0,Chandle[III]);
						CABool:=false;
					end else SetCtlParams(255,25,Chandle[III]);
						HiliteControl(0,Chandle[III]);
					Goto 100;
					end;
				end;{of case}
			if CABool=false then begin
		 			HiliteControl(255,Chandle[III]);
		 			end
		 		else begin
		 			HiliteControl(0,Chandle[III]);
		 			end;
			100:CActive[III]:=CABool;
			DrawOneCtl(Chandle[III]);
		end;{of do}
		if IconDraw then begin
if V320Mode then begin DrawIcon(@IconL,AWord,Column4+17,Row3+4);DrawIcon(@IconR,AWord,Column5+17,Row3+4);end else
begin DrawIcon(@IconL,AWord,Column4+12,Row3+4);DrawIcon(@IconR,AWord,Column5+12,Row3+4);end; end;
end;{of SetHilites}

procedure DoDisplayTog;
Var AWord: integer;
begin
Case displaytog[McChannel] of
		McInFrames:begin
			displaytog[McChannel]:=McInTimes;
			end;
		McInTimes:begin
			displaytog[McChannel]:=McInFrames;
			end;
	end;{of case displaytog[McChannel]}
	setDithColor(0);
	setTextMode($0004);
	setforecolor($000f);
	with myrect do begin top:= rbRow1+28; left:=16; bottom:=Row3-20; right:=rbcol4+26; end;
	PaintRrect(myrect,30,15);
	DrawInDMode;
	setTextMode($0000);
	setforecolor($0000);
	setDithColor(15);
	MyOldString1:='XXXXXXXXXX';
	AWord:=MCGetStatus(MCChannel,1);
		if toolerrornum<>0 then WantDisplay[McChannel]:=0;
	MyOldChapter:=99;
end;{of DoDisplayTog}
procedure SwitchChann(i:integer);
var III:integer;
begin
	    MyOldString1:='XXXXXXXXXX';
	    ForceDsply:=true;
	    SetCtlValue(0,CHandle[CurrentRadio]);
	    CurrentRadio:=i;
	    MCChannel:=1+(CurrentRadio-RadioCS);
	    SetCtlValue(1,CHandle[CurrentRadio]);
	    SetHilites;
	    {Now clear display window}
	    	setdithcolor(0);
		with myrect do begin
			top:= rbRow1+13; left:=12; bottom:=Row3-18; right:=rbcol4+30;;
			end;
		PaintRrect(myrect,30,15);
		setTextMode($0004);
		setforecolor($000f);
		DrawInName;
		DrawInDMode;		
		setTextMode(0);
		setforecolor(0);
		setdithcolor(15);
		frameRrect(myrect,30,15);
		MyPutLEText(MyInPoint[McChannel],LineEditCS);
		MyPutLEText(MyOutPoint[MCChannel],LineEditCS+1);
end;{of SwitchChann}
procedure MyPutLEText(Point:Longint;HdlIndex:integer);
begin
	MyString:=LongIntToString(Point);
	MyString:=AddColons(MyString,displaytog[McChannel]);
	LESetText(Pointer(@MyString[1]),Ord(MyString[0]),Pointer(GetCtlTitle(chandle[HdlIndex])));
	DrawOneCtl(chandle[HdlIndex]);
end;{of MyPutLEText1}
end.
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/MediaCtl/P4200/P4200.aii b/IIGS.601.SRC/A.U.G/MediaCtl/P4200/P4200.aii
new file mode 100644
index 0000000..c70cdd6
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/MediaCtl/P4200/P4200.aii
@@ -0,0 +1 @@
+****************************************************************
*
*	This is the Pioneer 4200 Driver
*
****************************************************************
*	Copyright Apple Computer, Inc. 1989
*	All rights reserved.
*
*	Programmed by: Dan Hitchens Aug.1989  
*
****************************************************************
;
; REVISION HISTORY
; 
; D8 (DDH)
; 3/15/90   -Added code to support InTimes selector value for the following routines:
;	   		 MCStopAt, MCJogN, MCSearchTo, MCReadPos.
;	 		-Added Driver ID Marker and version number to beginning of code.
;			-Fixed MCDStartUp so that Modem and Printer ports are found correctly even if
;	 		 they are configured differently (i.e. modem as printer port.)
; D11 (DDH)
; 4/23/90	-Fixed MCSearchWait to work correctly.
;			-McSetAudio now works
; D12 (DDH)
; 5/24/90	-MCDStartup and MCDShutdown were modified to work correctly.
; D13 (DDH)
; 6/5/90	-MCSendRawData now uses GS/OS strings.
;			-MCGetName now returns the port name (MCDStartup was modified)
; 7/9/90	-Added MCGetFeatures routine
; D15 (DDH)
; 8/23/90	-Added more data to MCGetFeatures
;			-MCStop now does something
;
; 9/26/90
; D16 (DDH)
;			-Took out all resource commands (MCGetTitle, MCGetProgram, etc.)
;			-Added MCWaitRawData command that works
;
; 10/1/90
; D17 (DDH)
;			-Fixed _long2dec problem where we assumed it returned a p-string (wrong)
; 10/24/90
; D18 (DDH)
;			-Changed MCStop to do a reject instead of a MCPause command.
; D19 (DDH)
;			-Changed MCGetName, MCGetSpeeds to pass pointer to returned string buffer instead
;    		 of using TML Pascal's string function routine method.
;
; D20 (DDH)
;			-Added calls to the serial firmware routines to determine if data is available
;			 before doing a read to prevent hanging until data is there (fixes problem
;			 of not having wait/nowait feature available for the serial GS/OS driver.)
;			-Fixed MCJogN bug with it jumping to EXIT12 instead of EXIT10 causing a crash.
;			-MCGetDiscID now will actually return an ID.
;
; D21 (DDH)
;			-Fixed MCGetname to be restartable.
; D22 (DDH)
;			-Fixed MCControl for changing baud rate and data/stop bits to correctly
;			 work with both modem and printer ports (control char. is different on
;			 the printer than modem.)
;			-Fixed problem with MCWaitRawData where it wasn't setting the tick value,
;			 and mask/terminal character.
; D24 (DDH)
;			-Added jsl DecBusyFlg routine to dynamic exits because were not reenterant.
;			-Fixed bug where MCJog was returning $2612 for min., sec. equal zero
;			 (was only checking low 16-bits for zero, should have check all 32 bits.)
; D27 (DDH)
;			-Fixed MCStopAt command with time specified bug(wasn't setting time mode.)
;			-Fixed McGetDiscId to work from parked position.
;
; D29 (DDH)	-Fixed MCGetStatus calls so they will work when the device is first started.
;			-Fixed MCGetTimes call to perform mcTotalDisc and mcTotalFrames.
;			-Fixed MCStop so it would do a start after a reject.  This fixes the
;			 problem of MCGetPosition returning the wront positon after MCStop.
;
; D49 (DDH) -Fixed timeout bug where it would timeout periodically  when it shouldn't
;
; 1/16/92 (DDH)-Fixed MCSpeed problem of going half the specified speed.
;
;***************************************************************
			include 'all.macros'
			
			Entry	EntryStuff
			Entry	MCGetName
			Entry	MCDStartUp
			Entry	MCGetFeatures
			Entry	MCDShutDown
			Entry	MCPlay
			Entry	MCPause
			Entry	MCSendRawData
			Entry	MCWritePStr
			Entry	CvtTime2ASCII
			Entry	MCGetStatus
			Entry	MCControl
			Entry	MCScan
			Entry	MCGetSpeeds
			Entry	MCSpeed
			Entry	MCStopAt
			Entry	MCJogN
			Entry	McSearchTo
			Entry	McSearchDone
			Entry	McSearchWait
			Entry	McGetPosition
			Entry	McSetAudio
			Entry	McGetTimes
			Entry	McGetNoTracks
			Entry	McGetDiscTOC
			Entry	McGetDiscID
			Entry	McRecord
			Entry	MCStop
			Entry	MCWaitRawData
			Entry	MCSetVolume
			
			Entry	PlayString
			Entry	CR
			Entry	ScratchStr
			Entry	SetFrame
			Entry	SetChapter
			Entry	SetTime
			Entry	MyBCDTime
			Entry	CurrSpeed
			Entry	BlankNextVideo
             	
***************************************************************
*
* Direct page equates
*
***************************************************************
DirectStack	equ 10
DS3			equ	DirectStack+3	;direct stack plus phd and phb

DirectPage	equ 0
DP0			equ 0
DP1			equ 1
DP2			equ 2
DP3			equ 3
DP4			equ 4
DP5			equ 5
DP6			equ 6
DP7			equ 7
DP8			equ 8
DP9			equ 9

***************************************************************
*
* Equates
*
***************************************************************
IncBusyFlg	equ $e10064
DecBusyFlg 	equ $e10068				;Dec. busy flag routine
DriverID	equ $3883				;Media Control Driver ID
VersionNo	equ $0100				;version no. 1.00
InChapters	equ 1					;Selector value for Chapters
InFrames	equ 2					;Selector value for Frames
InTimes		equ 3					;Selector value for Times

;------------------------------
;Control values for MCControl
;------------------------------
mcCInit			equ 1				;initilize player
mcCEject		equ 2				;eject disc
mcCVideoOn		equ 3				;turn video on
mcCVideoOff		equ 4				;turn video off
mcCDisplayOn 	equ 5				;turn video position display off
mcCDisplayOff 	equ 6				;turn vidoe position display on
mcCBlankVideo 	equ 7				;blank video for next MCSearchTo
mcCDefaultCom 	equ 8				;set default communications
mcCLockDev 		equ 9				;set the device to locked
mcCUnLockDev	equ 10				;unlock the device

mcC8Data1Stop equ 40				;set 8-data 1-stop bit
mcC7Data1Stop equ 41				;set 7-data 1-stop bit
mcC6Data1Stop equ 42				;set 6-data 1-stop bit
mcC5Data1Stop equ 43				;set 5-data 1-stop bit
mcC8Data2Stop equ 44				;set 8-data 2-stop bit
mcC7Data2Stop equ 45				;set 7-data 2-stop bit
mcC6Data2Stop equ 46				;set 6-data 2-stop bit
mcC5Data2Stop equ 47				;set 5-data 2-stop bit

mcCBaudDflt	equ 50					;set baud rate to control panel setting
mcCBaud50	equ 51					;set 50 baud
mcCBaud75	equ 52					;set 75 baud
mcCBaud110	equ 53					;set 110 baud
mcCBaud134	equ 54					;set 134.5 baud
mcCBaud150	equ 55					;set 150 baud
mcCBaud300	equ 56					;set 300 baud
mcCBaud600	equ 57					;set 600 baud
mcCBaud1200	equ 58					;set 1200 baud
mcCBaud1800	equ 59					;set 1800 baud
mcCBaud2400 equ 60					;set 2400 baud
mcCBaud3600	equ 61					;set 3600 baud
mcCBaud4800 equ 62					;set 4800 baud
mcCBaud7200	equ 63					;set 7200 baud
mcCBaud9600 equ	64					;set 9600 baud
mcCBaud19200 equ 65					;set 19200 baud

mcCModem	equ 100					;set to modem port
mcCPrinter	equ 101					;set to printer port

mcCIgnoreDS	equ 200					;Ignore disk switched errors (dont report them to user)
mcCReportDS	equ 201					;Report disk switched errors to user

;------------------------------
;Status values for MCGetStatus
;------------------------------
mcSUnknown		equ 0				;player unable to determine this status
mcSDeviceType	equ $0000			;device type selector
mcSLaserDisc	equ 1
mcSCDAudio		equ 2
mcSLaserCD		equ 3
mcSVCR			equ 4
mcSCamCorder	equ 5
mcSPlayStatus	equ $0001			;play status selector value
mcSPlaying		equ 1
mcSStill		equ 2
mcSParked		equ 3
mcSDoorStatus	equ $0002			;players door status
mcSDoorOpen		equ 1
mcSDoorClosed	equ 2
mcSDiscType		equ	$0003			;disc type selector value
mcS_CLV			equ 1
mcS_CAV			equ	2
mcS_CDV			equ 3
mcS_CD			equ 4
mcSDiscSize		equ $0004			;disc size selector value
mcSDisc3inch	equ 3
mcSDisc5inch	equ 5
mcSDisc8inch	equ 8
mcSDisc12inch	equ 12
mcSDiscSide		equ $0005			;disc side selector value
mcSSideOne		equ 1
mcSSideTwo		equ 2
mcSVolumeL		equ $0006			;left volume value
mcSVolumeR		equ $0007			;right volume value

;------------------------------
;Audio values
;------------------------------
AudioOff	equ 0		;Audio Off
AudioRight	equ 1		;Audio Right channel only
AudioLinR	equ 2		;Audio left in right only
AudioMinR	equ 3		;Audio mixed in right only
AudioRinL	equ 4		;Audio right in left only
AudioRinLR	equ 5		;Audio right in left and right
AudioReverse equ 6		;Audio right in left, left in right
AudioRinLMR	equ 7		;Audio right in left, mixed in right
AudioLeft	equ 8		;Audio left channel only
AudioStereo	equ 9		;Audio Both Channels (Stereo)
AudioLinLR	equ 10		;Audio left in left and right
AudioLinLMR	equ 11		;Audio left in left, mixed in right
AudioMinL	equ 12		;Audio mixed in left only
AudioMinLRinR equ 13	;Audio mixed in left, right in right
AudioMinLLinR equ 14	;Audio mixed in left, left in right
AudioMonaural equ 15	;Audio mixed in left and right (monaural)


;------------------------------
;McGetTimes values
;------------------------------
mcElapsedTrack equ 0	;Elapsed time on current track/chapter
mcRemainTrack equ 1		;Remaining time on curr. track/chapter
mcElapsedDisc equ 2		;Elapsed time on disc
mcRemainDisc equ 3		;Remaining time on disc
mcTotalDisc	equ 4		;Total run time on disc

mcTotalFrames equ 5		;Returns total no. of frames on disc
mcTracks	equ 6		;Returns the first and last track numbers
mcDiscID	equ 7		;Returns a disc identifier


***************************************************************
*
* Error Equates
*
***************************************************************
UnImp		equ $2601			;Unimplemented for this device
NotApplic	equ UnImp
BadSpeed	equ $2602			;Invalid speed specified
BadUnitType	equ $2603			;Invalid unit type specified
TimeOutErr	equ $2604			;Timed out during device read
NotLoaded	equ $2605			;No Driver is currently loaded
BadAudio	equ $2606			;Invalid Audio Value
DevRtnError	equ $2607			;Device returned error (unable to perform)
UnRecStatus	equ $2608			;Unrecognizable status from device
BadSelector	equ $2609			;Invalid selector value specified
FunnyData	equ	$260a			;funny data receive (retry again)
InvalidPort	equ $260b			;invalid port specified
OnlyOnce	equ $260c			;Scans only once
NoResMgr	equ $260d			;Resource manager not active
ItemNotThere equ $260e			;Item Not found in database
WasShutdown equ $260f			;tool was already shutdown
WasStarted	equ $2610			;tool was already started
BadChannel	equ $2611			;invalid channel number
InvalidParam equ $2612			;Invalid Parameter
CallNotSupported equ $2613		;call not supported error

***************************************************************
*
* Driver Header and Vectors Routine
*
***************************************************************
P4200Drvr 	PROC
			longi on
			longa on
			DC.W	DriverID			;Drivers ID Marker (Media Ctrl driver)
			DC.W	(EndVector-DriverVtrs)/4	;count of calls supported

			jmp		EntryStuff
			DC.W	VersionNo			;Drivers version number (version 1.0)
			str 'PIONEER4200'			;Drivers name
			
			Export DriverVtrs
DriverVtrs
			DC.L	MCGetName			;0 Gets the drivers name and version
			DC.L	MCDStartUp			;1 Starts up the driver
			DC.L	MCDShutDown			;2 Shuts down the driver
			DC.L	MCGetFeatures		;3 Gets features
			DC.L	MCPlay				;4 Play the device
			DC.L	MCPause				;5 Pause device
			DC.L	MCSendRawData		;6 Send raw data to the device
			DC.L	MCGetStatus			;7 Return device status info
			DC.L	MCControl			;8 Sets device control info
			DC.L	MCScan				;9 Scan forward or reverse
			DC.L	MCGetSpeeds			;10 Returns Valid Speeds
			DC.L	MCSpeed  			;11  Sets Speed for MCPlay
			DC.L	MCStopAt			;12  Sets stopping point
			DC.L	MCJogN				;13  Jog device n units
			DC.L	MCSearchTo			;14  Search to location
			DC.L	MCSearchDone		;15  Status of if done
			DC.L	MCSearchWait		;16  Waits for search to finish
			DC.L	MCGetPosition		;17  Returns current position
			DC.L	MCSetAudio			;18  Controls audio
			DC.L	MCGetTimes			;19  Gets disc times
			DC.L	MCGetDiscTOC		;20  Gets discs table of contents
			DC.L	MCGetDiscID			;21  Gets discs ID
			DC.L	MCGetNoTracks		;22	 Gets discs no. of tracks
			DC.L	MCRecord			;23	 Puts device into record mode
			DC.L	MCStop				;24  Stops the device
			DC.L	MCWaitRawData		;25  Waits for raw data from device
			DC.L	MCSetVolume			;26	 Set Volume

EndVector
			ENDP
			longi on
			longa on
			
;-------------------------------------------------------------------
;
;  NAME:		EntryStuff
;
;  PURPOSE:		To save registers and setup direct page on stack space
;
;  PASSED:		(X-reg.)= offset into "GPortVtrs" to called routine
;
;  RETURNED:	None (vectors directly to called routine)
;
;-------------------------------------------------------------------
EntryStuff	PROC
			Definestack

			phd							;save direct page
			phb							;save bank register
;set bank register (B-reg.) to programs bank (K-register)
			phk
			plb
;reserve 10 bytes from stack for direct page
			tsc							;get stack value
			sec
			sbc #DirectStack			;reserve 10 bytes for d-page
			tcs
			inc a						;inc. by one for d-page start
			tcd							;set direct page address

			jmp (DriverVtrs,x)			;vector to called routine
			ENDP

;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;
; Dynamic Exits
;
;
; Each dynamic exit	takes 2 RTL's and moves them some number of bytes up the
; stack.
;
;------------------------------------------------------------------------------
;-----------------------------------------------------------------------------

DynamicExits	PROC EXPORT
	EXPORT exit20
exit20
	tax
;Restore B-reg.
	lda DirectStack,s		;get saved B-reg. into bits 7-4
	pha						;save onto stack
	plb						;get rid of 8-bits
	plb						;now restore the b-register	
;Restore D-reg.
	lda DirectStack+2,s
	tcd

	lda DS3+5,s
	sta DS3+25,s
	lda DS3+3,s
	sta DS3+23,s
	lda DS3+1,s
	sta DS3+21,s
	tsc
	clc
	adc #20
	tcs
	brl exit0x

	EXPORT Exit16
Exit16
	tax
;Restore B-reg.
	lda DirectStack,s		;get saved B-reg. into bits 7-4
	pha						;save onto stack
	plb						;get rid of 8-bits
	plb						;now restore the b-register	
;Restore D-reg.
	lda DirectStack+2,s
	tcd

	lda DS3+5,s
	sta DS3+21,s
	lda DS3+3,s
	sta DS3+19,s
	lda DS3+1,s
	sta DS3+17,s
	tsc
	clc
	adc #16
	tcs
	brl Exit0x

	EXPORT Exit14
Exit14
	tax
;Restore B-reg.
	lda DirectStack,s		;get saved B-reg. into bits 7-4
	pha						;save onto stack
	plb						;get rid of 8-bits
	plb						;now restore the b-register	
;Restore D-reg.
	lda DirectStack+2,s
	tcd

	lda DS3+5,s
	sta DS3+19,s
	lda DS3+3,s
	sta DS3+17,s
	lda DS3+1,s
	sta DS3+15,s
	tsc
	clc
	adc #14
	tcs
	brl Exit0x

	EXPORT Exit12
Exit12
	tax
;Restore B-reg.
	lda DirectStack,s		;get saved B-reg. into bits 7-4
	pha						;save onto stack
	plb						;get rid of 8-bits
	plb						;now restore the b-register	
;Restore D-reg.
	lda DirectStack+2,s
	tcd

	lda DS3+5,s
	sta DS3+17,s
	lda DS3+3,s
	sta DS3+15,s
	lda DS3+1,s
	sta DS3+13,s
	tsc
	clc
	adc #12
	tcs
	brl Exit0x



	EXPORT Exit10
Exit10
	tax
;Restore B-reg.
	lda DirectStack,s		;get saved B-reg. into bits 7-4
	pha						;save onto stack
	plb						;get rid of 8-bits
	plb						;now restore the b-register	
;Restore D-reg.
	lda DirectStack+2,s
	tcd

	lda DS3+5,s
	sta DS3+15,s
	lda DS3+3,s
	sta DS3+13,s
	lda DS3+1,s
	sta DS3+11,s
	pla
	pla
	pla
	pla
	pla
	brl exit0x


	EXPORT Exit8
Exit8
	tax
;Restore B-reg.
	lda DirectStack,s		;get saved B-reg. into bits 7-4
	pha						;save onto stack
	plb						;get rid of 8-bits
	plb						;now restore the b-register	
;Restore D-reg.
	lda DirectStack+2,s
	tcd

	lda DS3+5,s
	sta DS3+13,s
	lda DS3+3,s
	sta DS3+11,s
	lda DS3+1,s
	sta DS3+9,s
	pla
	pla
	pla
	pla
	brl Exit0x



	EXPORT Exit6
Exit6
	tax
;Restore B-reg.
	lda DirectStack,s		;get saved B-reg. into bits 7-4
	pha						;save onto stack
	plb						;get rid of 8-bits
	plb						;now restore the b-register	
;Restore D-reg.
	lda DirectStack+2,s
	tcd

	lda DS3+5,s
	sta DS3+11,s
	lda DS3+3,s
	sta DS3+9,s
	lda DS3+1,s
	sta DS3+7,s
	pla
	pla
	pla
	brl Exit0x


	EXPORT Exit4
Exit4
	tax
;Restore B-reg.
	lda DirectStack,s		;get saved B-reg. into bits 7-4
	pha						;save onto stack
	plb						;get rid of 8-bits
	plb						;now restore the b-register	
;Restore D-reg.
	lda DirectStack+2,s
	tcd

	lda DS3+5,s
	sta DS3+9,s
	lda DS3+3,s
	sta DS3+7,s
	lda DS3+1,s
	sta DS3+5,s
	pla
	pla
	bra Exit0x


	EXPORT Exit2
Exit2
	tax
;Restore B-reg.
	lda DirectStack,s		;get saved B-reg. into bits 7-4
	pha						;save onto stack
	plb						;get rid of 8-bits
	plb						;now restore the b-register	
;Restore D-reg.
	lda DirectStack+2,s
	tcd

	lda DS3+5,s
	sta DS3+7,s
	lda DS3+3,s
	sta DS3+5,s
	lda DS3+1,s
	sta DS3+3,s
	pla
	bra Exit0x

;
;This clears up the stack and restores registers
;
	EXPORT Exit0
Exit0
	tax						;save A-reg in X-reg
;Restore B-reg.
	lda DirectStack,s		;get saved B-reg. into bits 7-4
	pha						;save onto stack
	plb						;get rid of 8-bits
	plb						;now restore the b-register	
;Restore D-reg.
	lda DirectStack+2,s
	tcd

Exit0x
;Get rid of direct page from stack
	tsc						;get stack pointer
	clc
	adc #DS3				;take out direct page area and D & B reg. saves
	tcs
;Dec. busy flag because were not reentereant
	pha						;save error for return
	jsl DecBusyFlg			;dec. busy flag
	pla						;restore error
	
	txa						;restore A-reg.
	cmp #1					;sets carry if A-reg. not zero
	rtl
	ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCGetName
;
;  PURPOSE:		Returns the drivers name and version number.
;
;  PASSED:		McChannelNo		WORD	;channel number
;				NameStrPtr		LONG	;string ptr to buffer for
;										;returned driver name & version no.
;
;  RETURNED:	NONE
;
;-------------------------------------------------------------------
MCGetName 	PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
RetName 	long
ChannelNo	word

;Copy over the name and version of the driver
			PushLong #DriverNamStr
;Get the destiniation from the passed RetName
			lda RetName+6,s
			pha
			lda RetName+6,s
			pha
;Now get the no. of bytes from the string
			lda #0
			pha
			lda DriverNamStr	;get length of string
			and #$00ff			;mask only length
			inc a				;for strings length byte
			pha
			_blockmove			;move it

			lda #0
			jmp Exit6
			
;NOTE: ConnectPort must follow DriverNamStr (dont add anything between.)
			EXPORT DriverNamStr
DriverNamStr str 'MCToolkit PIONEER4200 1.0' ;NOTE: leave no trailing blank			
			EXPORT ConnectPort
ConnectPort	dcb.b 36,0			;Connected ports name(stuffed by MCDStartUp)
			EXPORT DriverNLen
DriverNLen	dc.w ConnectPort-DriverNamStr-1

			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCDStartUp & MCDShutdown
;
;  PURPOSE:		Initializes and starts up the media device driver
;
;  PASSED:		McChannelNo		WORD	;channel number
;				PortNamePtr		LONG	;pointer to port name string
;				UserID			WORD	;drivers userid
;
;  RETURNED:	None
;
;-------------------------------------------------------------------
MCDStartUp 	PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
UserID		word
PortNamePtr	long
ChannelNo	word

;First lets see if its already been opened
			lda BeenOpen
			beq NotOpened		;branch if not open
			brl AlreadyOpen		;jmp if already opened
			
;Now init. a few things
NotOpened
			lda UserID,s
			sta DUserID			;save the drivers userid
			lda #0				;init. device number to zero
			sta DIDevNum
			sta CloseRefNum		;init to zero incase we dont open ok
;First copy over the selected ports name for MCGetName
			lda PortNamePtr+2,s	;get the high bytes of pointer
			pha
			lda PortNamePtr+2,s	;get the low bytes of pointer
			pha
			pushlong #ConnectPort	;destination
			pushlong #36		;no. of bytes to move
			_blockmove			;move it
;Now adjust the string length bytes and put a blank in the ports length
			lda ConnectPort		;get port name length
			and #$00ff			;only want length
			sec					;because we want one more (for blank)
			adc DriverNLen		;add to drivers name length
			sep #$30			;8-bit mode
			sta DriverNamStr
			rep #$30			;back to 16-bit mode
			lda ConnectPort
			and #$ff00			;and out ports length byte
			ora #$0020			;or in a blank char.
			sta ConnectPort

;Now copy over the selected ports name for opening
			lda PortNamePtr+2,s	;get the high bytes of pointer
			pha
			lda PortNamePtr+2,s	;get the low bytes of pointer
			pha
			pushlong #DIDevName+3	;destination
			pushlong #36		;no. of bytes to move
			_blockmove			;move it
			
			lda DIDevName+3		;now convert from P-string to GS/OS string
			and #$00ff
			sta DIDevName+2
			beq InvalErr		;branch if null name specified
;Now see what was specified (GS/OS device name starts with period) or (M) or (P)			
			lda DIDevName+4
			and #$007f
			cmp #46				;see if its a period
			bne TryP			;branch if not
;We arrive here if it starts with a period (GS/OS device)
;Now we need to determine the device number from its device name
			_GetDevNumberGS MyDevNumBlk
			bcs errOutjmp		;branch if error
			lda MyGetDevID		;get the returned device ID
			bra SelGSOSDev		;branch if selected a gsos device
;Now see if the passed name starts with 'P' for printer
TryP
			ldx #$0001			;first assume its printer slot we want
			cmp #80				;see if selected 'P' for printer
			beq wantjmp			;branch if 'p'
;Now see if the passed name starts with 'M' for modem
			ldx #$0002			;assume its modem port slot we want
			cmp #77				;compare with 'M'
			beq wantjmp
			
InvalErr	lda #InvalidPort
errOutjmp	jmp NotFound		;else return with invalid port error

wantjmp
			stx WantGSID		;set device ID we want
			
FindDevNum	inc DIDevNum		;inc. to next device no.
			lda #36
			sta DIDevName		;reset max. buffer size for try
			_DInfoGS	DInfoBlock
			bcs InvalErr		;branch if never found device
;We arrive here with the InfoBlock filled with data about a device
			lda DISlotNo		;get returned Devices slot number
			and #$0007
			cmp WantGSID		;see if its the devices slot we want
			bne FindDevNum
;At this point we have found the devices slot, now see if its really a
;modem or printer.
			lda DIDevID
			cmp #9				;see if modem type
			beq SelGSOSDev
			cmp #$000b			;see if printer type
			bne InvalErr		;error if not one
			
;We arrive here when we have found the ports device ID
SelGSOSDev
;Now we must open the device

			_OpenGS MyOpenBlk
			bcs InvalErr		;branch if invalid port
;We arrive here if we were able to open
			lda MyRefNum		;get the opened file (device) ref. no.
			sta WriteRefNum 	;stuff it into the write block
			sta CloseRefNum		;stuff it for when we close
			sta ReadRefNum		;stuff it for the read
			inc BeenOpen
;Now that its opened, set to No Wait Mode for reads
			lda DIDevNum
			sta CtrlDevNum		;stuff device number
			_DControlGS MyCtrlBlk

;-------------------
;We set things up here for doing firmware calls to see if a char. is available.
;This is needed because wait/nowait doesn't currenly work correctly (see
;code below also.)
;-------------------
			lda DISlotNo		;get returned Devices slot number
			and #$0007
			xba					;put slot no. in bits 11-8
			tax					;put into x-reg.
;first lets get the optional control routine offset at $00cn12 to add $cn00 to
			lda >$00c012,x
			lda >$00c012,x		;do it twice to make sure
			and #$00ff
			clc
			adc #$c000			;now we have the dispatch address
			stx RoutineAddr		;save the $0n00 value
			adc RoutineAddr		;add in the $0n00 for routines address
			sta RoutineAddr		;store the firmware addr. of routine

;Now determine if buffering was turned on
			lda #$0003			;want a GetModeBits call
			jsr MyFWCall		;do the firmware call
			lda MyCmdList+4		;get returned status bits
			and #$4000			;look at bit-14 (I/O buffering enabled)
			sta BufrngFlg

AlreadyOpen
			lda #0
NotFound
        	jmp Exit8
			EXPORT CtrlERROR
CtrlERROR	dc.W	0			;*******************************			
			
;--------------------------------------------------------------------
; MCDShutDown Code
;--------------------------------------------------------------------
			EXPORT MCDShutDown
MCDShutDown
			lda #0
			ldx CloseRefNum		;get the opened files ref. no.
			beq DidntOpen		;branch if never opened
			sta BeenOpen		;clear flag so we know its closed
			
			_CloseGS MyCloseBlk	;close the opened file
DidntOpen
			jmp Exit2
			
;--------------------------------------------------------------------
; MCReadPStr Code
;--------------------------------------------------------------------
			EXPORT MCReadPStr
MCReadPStr
			lda #255
			sta Max_Chars		;set max. no. of chars. to 255
			lda #1
			sta Buff_Index		;want chars. starting at offset of one
			stz GSOS_Str		;indicate p-string
			lda #ReceiveStr
			sta DP0
			lda #^ReceiveStr
			sta DP2				;set pointer to where to store received chars.
			ldx #$007f			;default mask to $7f
			lda #13				;default term. char. to CR
			ldy #900			;default timeout to 900/60ths (15 Sec.)

;--------------------------------------------------------------------
;MCReadPStr2:This is another entry point used by MCGetRawData routine
;--------------------------------------------------------------------
			EXPORT MCReadPStr2
MCReadPStr2
;First init. a few things
			sta TermChar
			stx TermMask
			sty TimeOut

			stz Chars_Read		;init. no. of chars. read
GetAnother
;Now get start tick value
			pha
			pha					;space for result
			_GetTick			;get current tick value
			PullLong Test_Tick
			stz over_flag		;init over flag
			lda TimeOut			;get specified no of ticks wait period
			clc
			adc Test_Tick
			sta Test_Tick		;add to tick for termination tick value
			lda Test_Tick+2
			adc #0
			sta Test_Tick+2
			bcc Try_Read
			inc over_flag
Try_Read
			jsr CkRxChar		;go check to see if theres a char. to read
			beq NoCharRx		;branch if no char. available
;Now we know a char is available to read, so we know we wont hang
CharRx
			_ReadGS MyReadBlk	;try to read char.
			bcs ReadErrorX
;Check to see if we got a char
			lda ReadXCount
			bne GotAChar		;branch if got one
;We didn't get a char., so check for timeout
NoCharRx
			pha
			pha
			_GetTick			;get current tick count
			PullLong Curr_Tick
;Now compare tick values
			lda over_flag		;get overflow flag
			beq notov			;branch if not
			lda Curr_Tick+2		;look at high word
			cmp #$ffff
			beq Try_Read		;go try reading again 
notov
			lda Curr_Tick+2
			cmp Test_Tick+2
			beq KeepTrying		;if high words same, keep trying
			bcs Time_over		;if greater, error
			bcc Try_Read		;if less, try reading again ;DDH 9/26
KeepTrying
			lda Curr_Tick
			cmp Test_Tick
			bcs Time_over		;branch if exceeded time
			bra Try_Read
			
;We arrive here when we have received a char.
GotAChar
			ldy Buff_Index		;get current offset into string

			sep #$20
			longa off			;just want 8-bit accumulator
			lda RBuffer			;get the char. read
;
;This code if left in would strip out null characters
;
;			bne NotNull
;			rep #$30
;			jmp GetAnother
;NotNull
			sta [DP0],y
			and TermMask		;and with terminating mask char.
			cmp TermChar		;see if terminal character
			longa on
			longi on
			rep #$30
			beq RAllDone		;branch if terminal char
			inc Buff_Index		;inc. offset for next char.
			inc Chars_Read		;inc. no. of chars. read
			lda #0				;assume no errors
			ldx Chars_Read
			cpx Max_Chars		;see if max. chars. reached
			bcs RAllDone2		;branch out if max. chars. reached
			jmp GetAnother		;else, get another character
			
RAllDone
			inc Chars_Read		;inc. chars. read (for last terminating char)
			lda #0				;indicate no errors
RAllDone2
ReadErrorX	
			ldx GSOS_Str		;get gsos flag
			bne WantGSOS		;branch if gsos
;We arrive here if want p-string
			ldx Chars_Read
			sep #$30
			longa off
			longi off
			stx ReceiveStr		;set length byte of receive string
			rep #$30
			longa on
			longi on
WantGSOS
			ldx Chars_Read		;return with (a-reg.=no. chars. transfered)
			cmp #1				;this will set the carry to indicate any errors
			rts
Time_over	
			lda #TimeOutErr
			bra RAllDone2

;--------------------------------------------------------------------------------
;This code is needed because the _ReadGS call will hang until a character is read.
;When wait/nowait is correctly implemented for the serial driver, then we can remove
;all of this code.  So, to tell if a char. is available, we do some firmware calls
;to determine if a character has been received.
;
; Upon return from this routine, the zero flag indicates if a char. is available
; 0=no char., 1=char. available
;--------------------------------------------------------------------------------
			ENTRY CkRxChar
CkRxChar
			lda BufrngFlg
			beq NoBuffer		;branch if no buffering
;We arrive here if buffering was enabled
			lda #$1604			;want a InQStatus firmware call
			jsr MyFWCall		;do the firmware call
			lda MyCmdList+4		;get no. of chars in receive queue
			bra FWCkDone		;equal flag has result
;We arrive here if buffereing was disabled
NoBuffer
			lda #$0603			;want GetPortStat
			jsr MyFWCall		;do the firmware call
			lda MyCmdList+4		;get serial channels status bits
			and #$0001			;look only at bit-0 (char. available) 0=no. char.			
FWCkDone
			rts

;------------------------------------------------------------------------------
;Firmware call routine (used to call firmware routine for serial status)
;------------------------------------------------------------------------------
			ENTRY MyFWCall
MyFWCall
			sta MyCmdList		;setup no. of parameters and command code			
			pha					;word space for result
			pha					;word space for result
			pha					;word space for result
			pha					;word space for result
			ldx ListPtr			;push low byte of list addr.
			phx
			ldx ListPtr+1		;push mid byte of list addr.
			phx
			ldx ListPtr+2		;push high byte of list addr.
			phx
			lda RoutineAddr		;get routines address
			pha					;push routines address
			_FWEntry
			pla					;pull stuff off (dont need)
			pla
			plx
			ply	
			rts

MyCmdList	dc.b	0			;Firmware call: no. of parameters
			dc.b	0			;Firmware call: Command code
			dc.w	0			;Firmware call: Result code
			EXPORT NumCharsX
NumCharsX
			dc.w	0
			dc.w	0
			
BufrngFlg	dc.w	0			;Buffering enabled flag
ListPtr		dc.l	MyCmdList	;points the the command list
RoutineAddr	ds.w	1

;------------------------------------------------------------------------------

Chars_Read	ds.w	1			;indicates no. of chars. read
			EXPORT GSOS_Str
GSOS_Str	ds.w	1			;gs/os string flag (0=p-str, not zero=GS/OS)
			EXPORT Buff_Index
Buff_Index	ds.w	1			;buffer index
			EXPORT Max_Chars
Max_Chars	ds.w	1			;max. chars. want to read
			EXPORT TermChar
TermChar	dc.w 	13			;termination character
TermMask	dc.w	$007f		;termination mask value
			EXPORT ErrorChr
ErrorChr	dc.w	69			;Devices Error character
over_flag	dc.w	0			;over flag
			EXPORT ReceiveStr
ReceiveStr	ds.b	256			;received string buffer
Test_Tick	ds.l	1
Curr_Tick	ds.l	1
			EXPORT TimeOut
TimeOut		dc.w	60			;stuffed timeout tick count
			EXPORT ScratchStr
ScratchStr	ds.b	255			;scracth string buffer area

;--------------------------------------------------------------------
; MCWritePStr Code
;--------------------------------------------------------------------
			EXPORT MCWritePStr
MCWritePStr
			DefineStack
			block	DirectStack
			block	1
			block	2
			block	3
			block	3
PStringPtr	long	
			
			EXPORT MCWritePStr2
MCWritePStr2
;All this funky code sets up the stack to look like it was a tool entry
;so we can call this routine from either assembly or Pascal.


;First put an extra RTL onto stack (that when RTL'd to will just RTL to
;where we want to actually return to)
			jsl ExtraRTl
			rtl
ExtraRTL
;
;Now save the direct page, bank and setup stack frame (like tool entry would)
;
			jsl IncBusyFlg				;inc. busy flag
			phd							;save direct page
			phb							;save bank register
;set bank register (B-reg.) to programs bank (K-register)
			phk
			plb
;reserve 10 bytes from stack for direct page
			tsc							;get stack value
			sec
			sbc #DirectStack			;reserve 10 bytes for d-page
			tcs
			inc a						;inc. by one for d-page start
			tcd							;set direct page address

			lda GSOSFlag		;Is this a GS/OS or P_String?
			beq WantPStr		;branch if want P_String
;We arrive here if we are passing a GSOS string
			lda PStringPtr,s
			sta DP0
			clc
			adc #2				;inc. past length word
			sta WBuffAddr
			lda PStringPtr+2,s
			sta DP0+2
			adc #0
			sta WBuffAddr+2
			lda [DP0]			;get length count
			sta WreqCount		;set request count
			bra go_on

;We arrive here if we are passing a P_string.
;Now get passed Pstring pointer off stack and set buffer addr and count
WantPStr
			lda PStringPtr,s
			sta DP0
			inc a				;inc. past byte count
			sta WBuffAddr
			lda PStringPtr+2,s
			sta DP0+2
			sta WBuffAddr+2
			lda [DP0]			;get byte count
			and #$00ff
			sta WreqCount		;set request count
			
go_on
			_WriteGS MyWriteBlk
			bcs WriteError
			lda NeedWait
			beq nwError			;branch if not looking for response
			jsr MCReadPStr		;wait for response
			bcs WriteError
			lda ReceiveStr+1	;get first character
			and #$007f
			cmp ErrorChr		;see if its an error character
			bne nwError
			lda #DevRtnError	;set device returned error message
			sec
			bra WriteError
nwError		lda #0				;not an error return
			clc
WriteError
			stz NeedWait		;default back to not waiting
			stz GSOSFlag		;default back to p_strings
			jmp Exit4



;--------------------------------------------------------------------
; Subroutine WaitResponse
;--------------------------------------------------------------------
			EXPORT WaitResponse
WaitResponse
			jsr MCReadPStr		;wait for response
			bcs WRError
			lda ReceiveStr+1	;get first character
			and #$007f
			cmp ErrorChr		;see if its an error character
			bne noWRError
			lda #DevRtnError	;set device returned error message
			sec
WRError
			rts
noWRError	lda #0				;not an error return
			clc
			rts
			
			EXPORT NeedWait
NeedWait	dc.w	0			;if set will cause wait for response
			EXPORT GSOSFlag
GSOSFlag	dc.w	0			;if set, will assume GSOS passed string
;=====================================================================

BeenOpen	dc.w	0			;flag to determine if this driver is open (0=closed)
			EXPORT DUserID
DUserID		dc.w	0			;saved drivers userid
MyError		dc.w	0
WantGSID	dc.w	0			;wanted GSOS device ID
;=====================================================================
DInfoBlock	dc.w	8			;Passed parameter count (PCount)
DIDevNum	dc.w	0			;Passed Device Number
			dc.l	DIDevName	;Passed Addr. of returned device name
DIstics		dc.w	0			;returned characteristics
DITotalBlks	dc.l	0			;returned total no. of blocks
DISlotNo	dc.w	0			;returned slot no.
DIUnitNo	dc.w	0			;returned unit no.
DIVersion	dc.w	0			;returned version no.
DIDevID		dc.w	0			;returned device ID

DIDevName	dc.w	36			;GSOS returned device name string
			dcb.b	38,0
;-------------------------
MyDevNumBlk	dc.w	2			;Passed PCount
			dc.l	DIDevName+2	;passed addr. of device name
MyGetDevID	dc.w	0			;returned device ID
;-------------------------
			EXPORT MyOpenBlk
MyOpenBlk	dc.w	3			;Passed PCount
MyRefNum	dc.w	0			;Returned File reference number
			dc.l	DIDevName+2	;Address of device name
			dc.w	3			;Passed requestAccess (Read, Write)
;-------------------------
MyCloseBlk	dc.w	1			;Passed PCount
CloseRefNum	dc.w	0			;Stuffed opened file ref. number
;-------------------------
MyCtrlBlk	dc.w	5			;Passed PCount
CtrlDevNum	dc.w	0			;Stuffed device control number
CtrlCode	dc.w	$0004		;SetWaitStatus
CtrlList	dc.l	MyCtrlList	;Control list addr.	
			dc.l	2			;request count
			dc.l	0			;Returned transfer count

MyCtrlList	dc.w	$8000		;Set to No Wait Mode
;-------------------------
MyReadBlk	dc.w	4			;Passed PCount
ReadRefNum	dc.w	0			;Stuffed Ref. number
			dc.l	RBuffer 	;Read Buffer Address
			dc.l	1			;Read Request count
ReadXCount	dc.l	0			;Returned transfer count

RBuffer 	dc.w	0			;Read buffer area (room for one byte)
;-------------------------
			EXPORT MyWriteBlk
MyWriteBlk	dc.w	4			;Passed parameter count (Pcount)
WriteRefNum	dc.w	0			;Passed File Ref. number
			EXPORT WBuffAddr
WBuffAddr	dc.l	DWMyDataBuff ;Passed buffer address
			EXPORT WreqCount
WreqCount	dc.l	25			;Passed no. of bytes to write
ActualCount	dc.l	0

DWMyDataBuff dc.b	'Testing One, Two, Three! '
WeOpened	str		'Called by assembley OK! '
;-------------------------

			ENDP

;-------------------------------------------------------------------
;
;  NAME:		WriteWaitPStr
;
;  PURPOSE:		Write a P-String and wait for response from device
;
;  PASSED:		P-String		Pointer	;pointer to p-string for output
;
;  RETURNED:	carry=clear if no errors (device responded OK)
;
;-------------------------------------------------------------------
WriteWaitPStr  	PROC
			DefineStack
RTL1		block	3
PStringPtr 	long

			lda #1
			sta NeedWait		;flag need to wait for response
			jmp MCWritePStr

 
			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MovePString
;
;  PURPOSE:		To Move a P-String indirectly from DP0 to DP2
;
;  PASSED:		DP4			;pointer to p-string destination area
;				DP0			;pointer to p-string source area
;
;  RETURNED:	None
;
;-------------------------------------------------------------------
MovePString PROC
			
;Now Send the Data back
			sep #$30				;set to 8-bit mode
			longa off
			longi off
			lda [DP0]				;get source strings length
			tay
			iny			
CopyLoop	dey
			lda [DP0],y
			sta [DP4],y
			cpy #0
			bne CopyLoop
			longa on
			longi on
			rep #$30
			rts
			ENDP

;-------------------------------------------------------------------
;
;  NAME:		CvtTime2ASCII
;
;  PURPOSE:		To convert a BCD time value to an ASCII string.
;				Long of HHMMSS00 BCD to HMMSS ASCII string
;
;  PASSED:		Stuff MyBCDTime (LONG) with BCD time value to convert
;
;  RETURNED:	ScratchStr will have the resultant ASCII P-string
;
;-------------------------------------------------------------------
CvtTime2ASCII PROC
			
;Now do the real work in 8-bit mode
			sep #$30				;set to 8-bit mode
			longa off
			longi off
			lda #5
			sta ScratchStr			;init byte count
;First do hours
			lda MyBCDTime+3
			and #$0f				;this player can only do max 9 hours
			ora #$30				;make ascii
			sta ScratchStr+1
;Now do minutes (tens position)
			lda MyBCDTime+2
			lsr A
			lsr A
			lsr A
			lsr A
			ora #$30				;make ascii
			sta ScratchStr+2
;Now do minutes (ones position)
			lda MyBCDTime+2
			and #$0f
			ora #$30
			sta ScratchStr+3
;Now do Seconds (tens position)
			lda MyBCDTime+1
			lsr A
			lsr A
			lsr A
			lsr A
			ora #$30
			sta ScratchStr+4
;Now do Seconds (ones position)
			lda MyBCDTime+1
			and #$0f
			ora #$30
			sta ScratchStr+5
			longa on
			longi on
			rep #$30				;set 16-bit mode
			rts
			
			EXPORT MyBCDTime
MyBCDTime	dc.l	0				;storage space for BCD Time
			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCGetFeatures
;
;  PURPOSE:		Returns the drivers features
;
;  PASSED:		Result			LONG	;space for result
;				Channel			WORD	;channel no.
;				Selector		WORD	;feature selector value
;
;  RETURNED:	FeatureVal		LONG	;returned driver feature value
;
;-------------------------------------------------------------------
MCGetFeatures 	PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
Selector	word
ChannelNo	word
FeatureVal 	long		

			lda Selector,s			;get feature selector value
			asl a					;times 4 for longs
			asl a
			tax						;use as index into table
			lda #BadSelector		;assume selector value is bad
			cpx #MaxFeature			;is it beyond max value?
			bcs OutOfHere			;branch if bad
			
			lda FeatureTbl,x		;get return value
			sta FeatureVal,s
			lda FeatureTbl+2,x
			sta FeatureVal+2,s
			lda #0
OutOfHere	jmp Exit4
FeatureTbl
			dc.l	7				;mcFTypes -does frames, times and chapters
			dc.l	255				;mcFStep -Max. step value
			dc.l	0				;mcFRecord -record
			dc.l	1				;mcFVideo -does video function
			dc.l	1				;mcFEject -does eject function
			dc.l	1				;mcFLock -does user key lock
			dc.l	1				;mcFVDisplay -does video location display
			dc.l	12				;mcFVOverlay -No. of lines of char. video overlay
			dc.l	20				;mcFVOChars -Video overlay no. of chars. per line
			dc.l	0				;mcFVolume -doesn't support volume

MaxFeature	equ *-FeatureTbl
			ENDP


;-------------------------------------------------------------------
;
;  NAME:		MCPlay
;
;  PURPOSE:		To put the device in play mode
;
;  PASSED:		McChannelNo		WORD	;channel number
;
;  RETURNED:	None
;
;-------------------------------------------------------------------
MCPlay  	PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
ChannelNo	word

			lda CurrSpeed				;get current speed
			cmp #60						;see if its a normal speed
			bne NotNormal
;We arrive here if its just a normal speed play forward
			PushLong #PlayString
			jsl MCWritePStr
			PushLong #CR
			jsl WriteWaitPStr
FinishUp
			ldx #60
			stx CurrSpeed				;default speed back to 30 fps
			jmp	Exit2
NotNormal
;We arrive here with a speed other than 30 fps

;First we need to determine if the player is playing or parked.  If its
;parked, we need to do a play command first to get things going.

			
			lda ChannelNo,s			;get channel no.
			pha						;space for results
			pha
			
			PushWord #McSPlayStatus	;we want play status
			ldx #$1A26
			jsl >$E10000			;do _MCGetStatus call
			plx						;get results in x-reg.
			bcs FinishUp			;branch if error
			cpx #mcSParked			;Is it parked?
			bne WasMoving
;This disc is parked, so we need to issue a play command to get thing going.
			PushLong #PlayString
			jsl MCWritePStr
			PushLong #CR
			jsl WriteWaitPStr
			bcs FinishUp			;branch if error
			
WasMoving			
			lda CurrSpeed
			bpl IsPlus				;branch if plus
			eor #$ffff				;else make plus
			inc a
IsPlus
			pha						;push value to be converted
			lda #5
			sta ScratchStr			;set length because doesn't return p-string
			PushLong #ScratchStr+1
			PushWord #5
			PushWord #0
			_Int2Dec				;convert to ASCII decimal string			
			bcs FinishUp			;branch if error
			
;Now we have the speed in ASCII
			PushLong #ScratchStr
			jsl MCWritePStr			;write the speed
			PushLong #SpeedCmd
			jsl MCWritePStr			;write the speed setting command
			PushLong #CR
			jsl WriteWaitPStr
     		bcs FinishUp

;Now send multispeed forward or reverse
			lda CurrSpeed
			bmi GoRev				;branch if reverse speed
			PushLong #SpeedFwd		;go multi speed forward
			bra Cont1
GoRev
			PushLong #SpeedRev		;go multi speed reverse
Cont1
			jsl MCWritePStr
			PushLong #CR
			jsl WriteWaitPStr			
			jmp	FinishUp

			EXPORT PlayString
PlayString	str		'PL'
SpeedCmd	str		'SP'
SpeedFwd	str		'MF'
SpeedRev	str		'MR'
			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCPause
;
;  PURPOSE:		To put the device in "pause" mode
;
;  PASSED:		McChannelNo		WORD	;channel number		
;
;  RETURNED:	None
;
;-------------------------------------------------------------------
MCPause  	PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
ChannelNo	word

;First try still command (some discs are unable to be stilled and will
;cause an error.)
			PushLong #StillStr
			jsl MCWritePStr
			PushLong #CR
			jsl WriteWaitPStr
			bcs TryXPause		;branch if device returned error
			jmp	Exit2

;Else try real Pause command
TryXPause
			PushLong #PauseStr
			jsl MCWritePStr
			PushLong #CR
			jsl WriteWaitPStr
			jmp	Exit2

StillStr	str		'ST'		;We do a STILL instead of PAUSE
PauseStr	str		'PA'		;We will do actual PAUSE
			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCSendRawData
;
;  PURPOSE:		To send raw data commands to the device
;
;  PASSED:		mcChannelNo		WORD	;channel number
;				NativePtr		LONG	;pointer to string to send
;
;  RETURNED:	None
;
;-------------------------------------------------------------------
MCSendRawData  	PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
RawData		LONG
ChannelNo	word

;Just get the Raw Data GSOS-string pointer from stack to pass on
			lda RawData+2,s
			pha
			lda RawData+2,s			;plus 2 because we just pushed 2
			pha
			lda #1
			sta GSOSFlag			;set flag indicating gsos string
			jsl MCWritePStr
			
			jmp	Exit6
			
			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCGetStatus
;
;  PURPOSE:		To return status about the device
;
;  PASSED:		returned		WORD	;space for returned word
;				McChannelNo		WORD	;channel number
;				MCStatusSel		WORD	;Status Selector value
;
;  RETURNED:	StatusInfo		WORD	;Status information
;
;-------------------------------------------------------------------
MCGetStatus PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
StatusSel	word
ChannelNo	word
Returned	word
			
			stz RetryCtr
RetryLoop			
;First lets set the return status to 0 incase we get an error
			lda #0
			sta Returned,s
			
			lda StatusSel,s			;get status selector value
;------------------------------------------
; mcSDeviceType: This determines the device type (CD audio)
;------------------------------------------
			cmp #mcSDeviceType
			bne TryNext0
			ldx #mcSLaserDisc
			bra ExitOut
TryNext0			
			cmp #mcSPlayStatus
			bne TryNext1
;------------------------------------------
; mcSPlayStatus: This determines the devices play status
;------------------------------------------
			PushLong #GetPlayerStat
			jsl MCWritePStr			;write the command
			PushLong #CR			;write a CR
			jsl WriteWaitPStr		;wait for response
			bcs ExitOutX
			lda ReceiveStr+1
			and #$007f
			cmp #'P'
			beq Cont1
			jmp ErrorOut
Cont1
			ldx #mcSParked			;lets assume its parked
			lda ReceiveStr+3		;now look at status
			and #$007f
;First see if its parked
			cmp #'0'
			beq ExitOut	
			cmp #'1'
			beq ExitOut
;Now see if its playing
			ldx #mcSPlaying			;assume its playing
			cmp #'4'
			beq ExitOut
			cmp #'9'
			beq ExitOut
;Now see if its still
			ldx #mcSStill			;assume it still
			cmp #'5'
			beq ExitOut
			cmp #'6'
			beq ExitOut
			ldx #mcSUnKnown			;we dont know what its doing
;We arrive here x-reg. equal to returned value
ExitOut
			txa
			sta Returned,s			;set returned value
			lda #0
ExitOutX
			jmp ExitR				;return

;------------------------------------------
; mcSDoorStatus: This does the door status (this device doesnt return such status)
;------------------------------------------
TryNext1
			ldx #mcSUnknown			;assume mcDoorStatus selected
			cmp #mcSDoorStatus
			beq ExitOut
			cmp #mcSVolumeL
			bcs TryNext4

;------------------------------------------
; mcSDiscType: This determines the discs status selected commands
;------------------------------------------
			PushLong #GetDiscStat
			jsl MCWritePStr			;write the command
			PushLong #CR			;write a CR
			jsl WriteWaitPStr		;wait for response
			bcs ExitOutX
			lda StatusSel,s			;get status selector value again
			cmp #mcSDiscType		;is it a disc type selector value
			bne TryNext2
;We now do the Disc type
			lda ReceiveStr+2
			and #$007f
			ldx #mcS_CAV			;assume CAV
			cmp #'0'
			beq ExitOut
			ldx #mcS_CLV			;assume CLV
			cmp #'1'
			beq ExitOut
			lda #DevRtnError		;must have been an error?
			jmp ExitR
UnKOut
			ldx #mcSUnKnown			;dont know what it is?
ExitOutJ	jmp ExitOut

TryNext2
			cmp #mcSDiscSize
			bne TryNext3
;------------------------------------------
; mcSDiscSize: We now do the Disc Size
;------------------------------------------
			lda ReceiveStr+3
			and #$007f
			ldx #mcSDisc12inch		;assume 12 inch
			cmp #'0'
			beq ExitOutJ
			ldx #mcSDisc8inch		;assume 8 inch
			cmp #'1'
			beq ExitOutJ
			bra UnKOut
			
TryNext3
			cmp #mcSDiscSide
			bne TryNext4			;branch, must be an invalid selector
;------------------------------------------
; mcSDiscSide: We now do the Disc Side
;------------------------------------------
			lda ReceiveStr+4
			and #$007f
			ldx #mcSSideOne			;assume side one
			cmp #'0'
			beq ExitOutJ
			ldx #mcSSideTwo			;assume side two
			cmp #'1'
			beq ExitOutJ
			bra UnKOut

TryNext4
			cmp #mcSVolumeL
			bne TryNext5			;branch, try right volume
;------------------------------------------
; mcSVolumeL: We now do the left volume value
;------------------------------------------
			lda #UnImp
			bra ExitR				;return

TryNext5
			cmp #mcSVolumeR
			bne InvalidSel			;branch, invalid selector
;------------------------------------------
; mcSVolumeR: We now do the right volume value
;------------------------------------------
			lda #UnImp
			bra ExitR

;We arrive here with an invalid selector value
InvalidSel
			lda #BadSelector
			bra ExitR
			
ErrorOut 	lda #UnRecStatus	;return unrecognizable status from device

EXITR
			cmp #DevRtnError
			bne JustExit
;We arrive here with a drive returned error so lets do a start command and retry
			dec RetryCtr
			beq JustExit
			PushLong #StartCmd
			jsl MCWritePStr			;write the command
			PushLong #CR			;write a CR
			jsl WriteWaitPStr		;wait for response
			bcs JustExit			;exit with error
			jmp RetryLoop			;go retry it

JustExit
			jmp	Exit4

RetryCtr	ds.w	1				;retry counter
GetDiscStat	str	'?D'
GetPlayerStat str '?P'
			EXPORT StartCmd
StartCmd	str 'SA'
			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCControl
;
;  PURPOSE:		To issue information to control the device
;
;  PASSED:		McChannelNo		WORD	;channel number
;				CtlCommand		WORD	;control command value
;
;  RETURNED:	None
;
;-------------------------------------------------------------------
MCControl 	PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
CtlCommand	word
ChannelNo	word

			lda CtlCommand,s
			cmp #mcCInit			;see if its an init
			bne Try2
;
;mcCInit - Its Init time
;
			lda #0
			sta BlankNextVideo		;set not to blank next video search
			lda #60 
			sta CurrSpeed			;set current speed to 30 fps (normal)
			pushlong #InitCmd
			bra FinishOut
			
			
Try2		cmp #mcCEject			;see if its an eject command
			bne Try3
;
;mcCEject - Its Eject time
;
			PushLong #RejectCmd
FinishOut
			jsl MCWritePStr			;write the command
			PushLong #CR			;write a CR
			jsl WriteWaitPStr		;wait for response
			bcs ExitOutJ
NoErrors
			lda #0			
ExitOutJ	jmp	Exit4

Try3		cmp #mcCVideoOn
			bne Try4
;
;mcCVideoOn - Turn video On time
;
			pushLong #VideoOnCmd
			bra FinishOut
			
Try4		cmp #mcCVideoOFF
			bne Try5
;
;mcCVideoOff - Turn video Off time
;
			pushLong #VideoOffCmd
			bra FinishOut
			
Try5		cmp #mcCDisplayOn
			bne Try6
;
;mcCDisplayOn - Turn location video display On
;
			pushlong #DisplayOnCmd
			bra FinishOut
			
Try6		cmp #mcCDisplayOff
			bne Try7
;
;mcCDisplayOff - Turn location video display Off
;
			pushlong #DisplayOffCmd
			bra FinishOut

Try7		cmp #mcCBlankVideo
			bne Try8
;
;mcCBlankVideo - Turn display off on next search command
;
			lda #1
			sta BlankNextVideo		;turn blank video on
			jmp NoErrors			;exit with no errors
			
Try8
			cmp #mcCDefaultCom
			bne Try9
;
;mcCDefalultCom - Do default communications here
;
			jsr SetCtlByte			;set the correct control byte
			PushLong #DefaultCmd1	;set baud rate to 4800
			jsl MCWritePStr			;write the command to controller
			PushLong #DefaultCmd2	;set 8-data, 1-stop bits
			jsl MCWritePStr			;write the command to controller
			PushLong #DefaultCmd3	;set Parity to NONE
			jsl MCWritePStr			;write the command to controller
			PushLong #DefaultCmd4	;set ignore XOFF characters
			jsl MCWritePStr			;write the command to controller
			PushLong #DefaultCmd5	;disable auto linefeed after CR
			jsl MCWritePStr			;write the command to controller
			PushLong #DefaultCmd6	;disable line formatting
			jsl MCWritePStr			;write the command to controller
			jmp NoErrors

Try9		cmp #mcCBaudDflt
			bcc TryDSBits
			cmp #mcCBaud19200+1
			bcs TryDSBits

;
;mcCBaud... - Change baud rate
;
;What we do is send a command to the SCC in the form of:
;  Ctrl-I nB CR  (where n is an ascii number of 0 to 15)
;	i.e. 300 baud n=7, 9600 buad n=14
			sec
			sbc #50					;because command is offset 50
			cmp #10
			bcc lessten				;branch if we pass one numeral
;we need to pass a two ascii character number
			sec
			sbc #10
			clc
			adc #$30				;make ascii
			adc #$4200				;add 'B'
			sta BaudStr0+3
			PushLong #BaudStr0
ContBaud
			jsr SetCtlByte			;first set the correct control byte
			jsl MCWritePStr			;write the command to controller
			jmp NoErrors
;we need to pass only one ascii character number
lessten		clc
			adc #$30				;make ascii
			adc #$4200				;add 'B' character
			sta BaudStr1+2
			PushLong #BaudStr1
			bra ContBaud
;
;mcCxDataxStop - Now see if want to set the data and stop bits
;
TryDSBits	cmp #mcC8Data1Stop		;see if withing range of data stop selector
			bcc Try10
			cmp #mcC5Data2Stop+1
			bcs Try10
;This sets the start and stop bits
			sec
			sbc #40					;subtract out base number
			ora #$4430				;make ascii and or in 'D'
			sta DataStopStr+2		;set the number in string
			PushLong #DataStopStr	;pass the strings address
			bra ContBaud			;got write the string to the device

Try10		cmp #mcCModem			;see if modem port selection
			bne Try11				;branch if not
;
;mcCModem - switch to modem port	
;
;First shutdown the currently started connection
			lda ChannelNo,s			;get channel no.
			pha						;pass to MCDShutDown
			ldx #$1526
			jsl >$E10000			;perform _MCDShutDown
			bcs ExitJ				;branch if error
;Now cause a startup with the modem port specified
			lda ChannelNo,s			;get channel no.
			pha						;pass to MCDStartUp
			pushlong #ModemStr		;pass to MCDStartUp
FinishSw
			pushword DUserID		;pass drivers userID
			ldx #$1426
			jsl >$E10000			;perform _MCDStartUp
			bra ExitJ				;Exit out
			

Try11		cmp #mcCPrinter			;see if printer port selection
			bne Try12				;branch if not
;
;mcCPrinter - switch to printer port
;
;First shutdown the currently started connection
			lda ChannelNo,s			;get channel no.
			pha						;pass to MCDShutDown
			ldx #$1526
			jsl >$E10000			;perform _MCDShutDown
			bcs ExitJ				;branch if error
;Now cause a startup with the printer port specified
			lda ChannelNo,s			;get channel no.
			pha						;pass to MCDStartUp
			pushlong #PrinterStr	;pass to MCDStartUp
			bra FinishSw			;go finish up

Try12		cmp #mcCLockDev
			bne Try13
;
;mcCLockDev - Lock device from user control
;
			pushLong #LockOnCmd
			jmp FinishOut

Try13		cmp #mcCUnLockDev
			bne Try14
;
;mcCUnLockDev - UnLock device for user control
;
			pushLong #LockOffCmd
			jmp FinishOut
Try14
;
;mcCIgnoreDS
;
			cmp #mcCIgnoreDS
			beq DSOut

;
;mcCReportDS
;
			cmp #mcCReportDS
			bne TryX
DSOut
			lda #UnImp
			bra ExitJ


;
;We arrive here with an invalid command
;
TryX		lda #BadSelector

ExitJ		jmp Exit4

;-----------------
;This routine sets the correct control code character (Ctrl-I [$09] for printer,
;Ctrl-A [$01] for modem port.
;-----------------
SetCtlByte
;First determine if modem or printer mode
			lda #$0003				;we want GetModeBits firmware call
			sei						;turn off interrupts (needed to avoid race conditions)
			jsr MyFWCall			;do the firmware call
			cli						;enable interrupts
			lda NumCharsX
			and #$0001				;only look at comm. or printer mode bit
			bne wasComm				;branch if was communication mode
			lda #9					;its printer mode, want Ctrl-A
wasComm
;Now we have the correct control value in a-reg.
;now store it into the strings
			sep #$30				;set 8-bit mode
			sta DefaultCmd1+1
			sta DefaultCmd2+1
			sta DefaultCmd3+1
			sta DefaultCmd4+1
			sta DefaultCmd5+1
			sta DefaultCmd6+1
			sta BaudStr0+1
			sta BaudStr1+1
			sta DataStopStr+1
			rep #$30				;set 16-bit mode
			rts


			
ModemStr	str 'MODEM'
PrinterStr	str 'PRINTER'

;NOTE: The CR isn't sent because it was being sent through and not needed.
DefaultCmd1	dc.b 4,9,49,50,66,13	;set baud to 4800 baud (ctrl-i,'12B',CR)
DefaultCmd2	dc.b 3,9,48,68,13		;set 8-data, 1-stop (ctrl-i,'0D',CR)
DefaultCmd3	dc.b 3,9,50,80,13		;set parity to None (ctrl-i,'2P',CR)
DefaultCmd4 dc.b 3,9,88,68,13		;ignore XOFF (ctrl-i,'XD',CR)
DefaultCmd5 dc.b 3,9,76,68,13		;no lf after CR (ctrl-i,'LD',CR)
DefaultCmd6 dc.b 3,9,67,68,13		;no line formatting (ctrl-i,'CD',CR)


BaudStr0	dc.b 4,9,49,0,66,13		;str. length, ctrl-i,'1',#,'B',CR
BaudStr1	dc.b 3,9,0,66,13		;str. length, ctrl-i,#,'B',CR
DataStopStr	dc.b 3,9,0,68,13		;str. length, ctrl-i,#,'D',CR
			
InitCmd		str 'SA'				;start command?
RejectCmd	str 'RJOP'				;reject disc open door
VideoOnCmd	str	'1VD'				;turn video on
VideoOffCmd	str	'0VD'				;turn video off
DisplayOnCmd str '1DS'				;turn location display on
DisplayOffCmd str '0DS'				;turn location display off
LockOnCmd	str '1KL'				;turn lock on
LockOffCmd	str '0KL'				;turn lock off

			EXPORT BlankNextVideo
BlankNextVideo dc.w	0				;blank next video flag (0=no, 1=yes)
			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCScan
;
;  PURPOSE:		To scan forward or reverse.
;
;  PASSED:		McChannelNo		WORD	;channel number
;				ScanDir			WORD	;scan direction (Pos fwd, neg. rev.)
;
;  RETURNED:	None
;
;-------------------------------------------------------------------
MCScan  	PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
ScanDir 	Word
ChannelNo	word

			
			lda ScanDir,s			;get direction of scan
			bmi	GoReverse			;branch if reverse			
			PushLong #ScanFwdCmd	;Send scan forward command
Cont1
			jsl MCWritePStr			;write the command
			PushLong #CR			;write a CR
			jsl WriteWaitPStr		;wait for response
			jmp	Exit4
GoReverse
			PushLong #ScanRevCmd	;Send scan reverse command
			bra Cont1
			
ScanFwdCmd	str 'NF'
ScanRevCmd	str	'NR'
			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCGetSpeeds
;
;  PURPOSE:		To return a list of available speeds that can be played
;
;  PASSED:		mcChannelNo		WORD	;channel number
;				PStringPtr		LONG	;P string pointer to returned speeds
;
;  RETURNED:	NONE
;
;-------------------------------------------------------------------
MCGetSpeeds PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
PStringPtr	Long
ChannelNo	word

;Copy over the available speeds
			PushLong #SpeedStr
;Get the destiniation from the passed PStringPtr
			lda PStringPtr+6,s
			pha
			lda PStringPtr+6,s
			pha
;Now get the no. of bytes from the string
			lda #0
			pha
			lda SpeedStr		;get length of string
			and #$00ff			;mask only length
			inc a				;for strings length byte
			pha
			_blockmove			;move it

			jmp	Exit6			;exit
			
SpeedStr	str	'1,2,3,4,5,6,7,8,9,10,15,20,30,60,90,120,255'
			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCSpeed
;
;  PURPOSE:		To set the speed for the next mcPlay command
;
;  PASSED:		mcChannelNo		WORD	;channel number
;				Speed			WORD	;speed value(+ or -)
;
;  RETURNED:	none
;
;-------------------------------------------------------------------
MCSpeed PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
Speedval	word
ChannelNo	word

			
			lda Speedval,s			;get the speed value
			bpl IsPlus				;branch if forward
			eor #$ffff				;minus, make plus
			inc a
IsPlus
;Now check to see if its a vaild speed
			ldx #VSpeedsEnd-ValidSpeeds-2
ChkLoop		cmp ValidSpeeds,x
			beq SpeedOK				;branch if valid speed
			dex
			dex
			bpl ChkLoop
			lda #BadSpeed			;speed not valid error
			jmp Exit4
SpeedOK
			lda NewSpeeds,x
			tax						;save new speed in x for now
			lda Speedval,s
			bpl NewPlus				;see if specified speed is plus or minus
			txa						;get new speed
			eor #$ffff				;if neg. speed, make new speed minus
			inc a
			tax						;put back in x
NewPlus
			stx CurrSpeed			;save as current speed setting
			lda #0
			jmp Exit4

ValidSpeeds
			dc.w	1
			dc.w	2
			dc.w	3
			dc.w	4
			dc.w	5
			dc.w	6
			dc.w	7
			dc.w	8
			dc.w	9
			dc.w	10
			dc.w	15
			dc.w	20
			dc.w	30
			dc.w	60
			dc.w	90
			dc.w	120
			dc.w	255
VSpeedsEnd	
NewSpeeds
			dc.w	2
			dc.w	4
			dc.w	6
			dc.w	8
			dc.w	10
			dc.w	12
			dc.w	14
			dc.w	16
			dc.w	18
			dc.w	20
			dc.w	30
			dc.w	40
			dc.w	60
			dc.w	120
			dc.w	180
			dc.w	240
			dc.w	255

		
			EXPORT CurrSpeed
CurrSpeed	dc.w	60			;current speed setting
			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCStopAt
;
;  PURPOSE:		To set the point the device is to stop at
;
;  PASSED:		McChannelNo		WORD	;channel number
;				McUnitType		WORD	;unit type
;				StopLoc			Long	;stop location
;
;  RETURNED:	None
;
;-------------------------------------------------------------------
MCStopAt  	PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
StopLoc		Long
mcUnitType	word
ChannelNo	word

			
			lda mcUnitType,s		;get unit type
			cmp #InFrames
			bne TryChap				;branch if not chapters
;
;We arrive here if its specified as a FRAME location
;
			PushLong #SetFrame		;set to frame mode
GoOn
			jsl McWritePStr
			PushLong #CR
			jsl WriteWaitPStr
			bcs ErrorOut

;NOTE: The returned integer string isn't a p-string (string length
;is returned, right justified with leading blanks)
;We use 5 as the normal and max. value: HMMSS and FFFFF for frame values
			lda #5
			sta ScratchStr			;so set the length to the max.
			
			lda StopLoc+2,s			;get high word
			pha						;push value to be converted
			lda StopLoc+2,s
			pha
			PushLong #ScratchStr+1
			PushWord #5
			PushWord #0
			_Long2Dec				;convert to ASCI decimal string			
;So now we have a true P-string at ScratchStr

FinishOut
			PushLong #ScratchStr
			jsl MCWritePStr			;write the stop address
			PushLong #StopAtCmd
			jsl MCWritePStr			;write the command
			PushLong #CR
			jsl WriteWaitPStr
			
ErrorOut	jmp	Exit8
TryChap
			cmp #InChapters
			bne TryTimes			;branch if not in time
;
;We arrive here if its specified as CHAPTERS
;
			PushLong #SetChapter	;set chapter mode
			bra GoOn

TryTimes	cmp #InTimes
			bne InError				;branch if not one of the above
;
;We arrive here if its specified as TIME
;
			PushLong #SetTime		;set to time mode
			jsl McWritePStr
			PushLong #CR			;send carriage return to finish up command
			jsl WriteWaitPStr		;wait for response
			bcs ErrorOut

			lda StopLoc,s			;get stop location (ffss)
			sta MyBCDTime			;stuff for routine
			lda StopLoc+2,s			;get stop location (mmhh)
			sta MyBCDTime+2			;stuff for routine
			jsr CvtTime2ASCII		;convert BCD time to ASCII string at ScratchStr
			bra FinishOut			;finish up
;
;We arrive here with an invalid unit specified type
;
InError
			lda #BadUnitType
			jmp Exit8
			
StopAtCmd	str ' SM'
			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCJogN
;
;  PURPOSE:		To jog njog units forward or backwards.
;
;  PASSED:		McChannelNo		WORD	;channel number
;				mcUnitType		Word	;unit type
;				nJog			Long	;units to jog
;										; for InFrames, no. of frames to jog
;										; for InChapters, no. of chapters to jog
;										; for InTimes, (HHMMSSxx) jog distance
;				jogrepeat		WORD	;repeat counter
;										;(if negative value, jog reverse nJog units)
;
;  RETURNED:	None
;
;-------------------------------------------------------------------
MCJogN  	PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
JogRepeat	word
nJog		Long
mcUnitType	word
ChannelNo	word


;This checks that the nJog value and JogRepeat aren't zero
			lda nJog,s
			ora nJog+2,s
			beq ValuesBad			;branch if njog is zero
			lda JogRepeat,s
			bne ValuesOK			;branch out if jogrepeat not zero
ValuesBad
			lda #InvalidParam		;return with invalid parameter error
			jmp Exit10
ValuesOK

			lda JogRepeat,s
			sta RCounter			;init repeat counter
			
			lda mcUnitType,s		;get unit type
			cmp #InFrames
			beq ItsFrames
			jmp NotFrames
;---------------------------------------
;
;We do FRAME jog here
;
;---------------------------------------
ItsFrames
			PushLong #SetFrame
			jsl MCWritePStr
			PushLong #CR
			jsl WriteWaitPStr
			bcs OutJmp
FrameLoop
			lda nJog,s				;get low word
			sta XCounter
			lda JogRepeat,s
			bmi RevDir				;branch if reverse direction
;Going forward
FwdFrames	PushLong #StepFwd
			jsl MCWritePStr
			PushLong #CR
			jsl WriteWaitPStr
			bcs OutJmp
			dec XCounter			;dec. njog counter
			bne FwdFrames
			dec RCounter			;dec. repeat counter
			bne FrameLoop			;do another
OutJmp		jmp Exit10
;Going Reverse (Frames)
RevDir		PushLong #StepRev
			jsl MCWritePStr
			PushLong #CR
			Jsl WriteWaitPStr
			bcs OutJmp
			dec XCounter			;dec. njog counter
			bne RevDir
			inc RCounter			;dec repeat counter
			bne FrameLoop			;do another
			jmp Exit10

NotFrames
			cmp #InTimes
			beq DoTimeMode			;branch if time mode selected
			jmp NotTime
;---------------------------------------
;
;We do TIME mode jog here
;
;---------------------------------------
DoTimeMode

;first get current location (HHMMSSxx)
			lda ChannelNo,s
			pha
			pha						;first space for resultant long
			pha						;now channel no.
			pushword #InTimes		;in time mode
			ldx #$2426				; _mcGetPosition call
			jsl $e10000
			plx						;now get returned long time value
			stx MyBCDTime			;do low word
			plx
			stx MyBCDTime+2			;do high word
			bcs OutJmp				;branch if error

			lda nJog+2,s
			lda JogRepeat,s
			bmi TimeRev				;branch if bit-32 set (jog reverse)
;
;Jog Forward code
;
TimeFwdLoop
;Now add the nJog value to it
			sep #$38				;set to 8-bit & BCD mode
			longa off
			longi off

;This does the seconds part
			clc
			lda nJog+1,s			;get njog seconds
			adc MyBCDTime+1			;add to current time location
			cmp #$60				;see if over 60 seconds
			bcc nosecs				;branch if no carry over
			sbc #$60				;subtract out one minute leaving over seconds
			sec						;set for carry over
nosecs		sta MyBCDTime+1			;save the new seconds location
;This does the minutes part
			lda nJog+2,s			;get njog minutes
			adc MyBCDTime+2			;add to current time minutes
			cmp #$60				;see if over 60 minutes
			bcc nomins				;branch if no carry over to hours
			sbc #$60				;subtract out one hour leaving over minutes
			sec						;set for carry over
nomins		sta MyBCDTime+2			;save the new minutes
;This does the hour part
			lda nJog+3,s			;get njog hour value
			adc MyBCDTime+3			;add to current time hours
			sta MyBCDTime+3			;save the new hour value
			
			rep #$38				;set back to 16-bit & binary mode
			longa on
			longi on

;Now cause a search to the location and wait for it to complete
			lda ChannelNo,s			;get channel no.
			pha
			pushWord #InTimes
			pushLong MyBCDTime
			ldx #$2126
			jsl $e10000				;_mcSearchTo call
			bcs TOut2
			jsr WaitResponse		;wait for search completion
			bcs TOut2
;Now dec. the repeat counter to see if we are done
			dec RCounter			;dec. the repeat counter
			bne TimeFwdLoop			;branch if not done yet
TOut2		jmp Exit10
;
;Reverse Time mode here
;
TimeRev
TimeRevLoop
;Now subtract the nJog value to it
			sep #$38				;set to 8-bit & BCD mode
			longa off
			longi off

;This does the seconds part
			sec
			lda MyBCDTime+1			;get current seconds location
			sbc nJog+1,s			;subtract out njog seconds
			bcs rnosecs				;branch if no borrow
			sbc #$39				;subtract out difference of borrow ($100-$60-1=$39)
			clc						;clear for borrow over
rnosecs		sta MyBCDTime+1			;save the new seconds location
;This does the minutes part
			lda MyBCDTime+2			;get current minutes
			sbc nJog+2,s			;subtract out njog minutes
			bcs rnomins				;branch if no borrow
			sbc #$39				;subtract out differece of borrow ($39 because clc)
			clc						;clear for borrow over
rnomins		sta MyBCDTime+2			;save the new minutes
;This does the hour part
			lda MyBCDTime+3			;get current hour value
			sbc nJog+3,s			;subtract out njog hour value
			sta MyBCDTime+3			;save the new hour value
			
			rep #$38				;set back to 16-bit & binary mode
			longa on
			longi on

;Now cause a search to the location and wait for it to complete
			lda ChannelNo,s			;get channel no.
			pha
			pushWord #InTimes
			pushLong MyBCDTime
			ldx #$2126
			jsl $e10000				;_mcSearchTo call
			bcs TOut
			jsr WaitResponse		;wait for search completion
			bcs TOut
;Now dec. the repeat counter to see if we are done
			inc RCounter			;dec. the repeat counter
			bne TimeRevLoop			;branch if not done yet
TOut		jmp Exit10


NotTime
			cmp #InChapters
			beq DoDaChapter
;---------------------------------------
;
;We do Chapter mode jog here
;
;---------------------------------------
;
; We arrive here with an invalid unit specified type
;
InError		lda #BadUnitType
			jmp Exit10
DoDaChapter
			PushLong #SetChapter
			jsl MCWritePStr
			PushLong #CR
			jsl WriteWaitPStr
			bcs OutJmpC
ChapterLoop
			lda nJog,s				;get low word
			sta XCounter
			lda JogRepeat,s
			bmi RevDirChp			;branch if reverse direction
;Going forward (Chapters)
FwdChpts	lda ChannelNo,s
			pha
			pha						;first space for resultant long
			pha						;now channel no.
			pushword #InChapters
			ldx #$2426				; _mcGetPosition call
			jsl $e10000
			bcs OutJmpC
			pullLong MyLongTemp		;get current chapter location
			inc MyLongTemp			;inc. to next chapter (dont fret about long)
			lda ChannelNo,s			;get channel no.
			pha
			pushWord #InChapters
			pushLong MyLongTemp
			ldx #$2126
			jsl $e10000				;_mcSearchTo call
			bcs OutJmpC
			jsr WaitResponse		;wait for search completion
			bcs OutJmpC
			dec XCounter
			bne FwdChpts
			dec RCounter			;dec. repeat counter
			bne ChapterLoop
OutJmpC		jmp Exit10
;Going Reverse (Chapters)
RevDirChp	lda ChannelNo,s
			pha
			pha						;first space for resultant long
			pha						;now channel no.
			pushword #InChapters
			ldx #$2426				; _mcGetPosition call
			jsl $e10000
			bcs OutJmpC
			pullLong MyLongTemp		;get current chapter location
			lda MyLongTemp
			beq ToStart				;branch out if at the start of the disc
			dec MyLongTemp			;dec. to prev. chapter (dont fret because long)
ToStart		lda ChannelNo,s			;get channel no.
			pha
			pushWord #InChapters
			pushLong MyLongTemp
			ldx #$2126
			jsl $e10000				;_mcSearchTo call
			bcs OutJmpC
			jsr WaitResponse		;wait for search completion
			bcs OutJmpC
			dec XCounter
			bne RevDirChp
			inc RCounter			;dec. repeat counter
			beq ExitOut
			jmp ChapterLoop			;do another
ExitOut		jmp Exit10

StepFwd		str		'SF'
StepRev		str		'SR'
			EXPORT CR
CR			dc.b	2,13,10			;string composed of 1 byte
XCounter	dc.w	0				;intermediate counter
RCounter	dc.w	0				;repeat counter
MyLongTemp	ds.l	1				;just a long temporary area

			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCSearchTo
;
;  PURPOSE:		To start a search to searchloc.
;
;  PASSED:		McChannelNo		WORD	;channel number
;				mcUnitType		Word	;unit type
;				SearchLoc		Long	;units to jog
;
;  RETURNED:	None
;
;-------------------------------------------------------------------
MCSearchTo  PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
SearchLoc	Long
mcUnitType	word
ChannelNo	word

			lda mcUnitType,s		;get unit type
			cmp #InFrames
			beq ItsFrames
			jmp NotFrames
;---------------------------------------
;We do frame search here
;---------------------------------------
ItsFrames
			PushLong #SetFrame
			jsl MCWritePStr
GoOn
			PushLong #CR
			jsl WriteWaitPStr
			bcs OutJmp


;NOTE: The returned integer string from _Long2Dec isn't a p-string (string length
;is returned, right justified with leading blanks)
;We use 5 as the normal and max. value: HMMSS and FFFFF for frame values
			lda #5
			sta ScratchStr			;so set the length to the max.

			lda SearchLoc,s				;get location
			tax
			lda SearchLoc+2,s
			pha
			txa
			pha
			PushLong #ScratchStr+1		;where to put string
			PushWord #5				;max. no of chars
			PushWord #0
			_Long2Dec
;So now we have a true P-string value at ScratchStr

			bcs OutJmp
GoOn2
			PushLong #ScratchStr
			jsl MCWritePStr
			PushLong #SearchCmd
			jsl MCWritePStr
			PushLong #CR
			jsl MCWritePStr				;write but dont wait
OutJmp		jmp Exit8
NotFrames
			cmp #InTimes
			bne NotTime
;---------------------------------------
;We do time search here
;---------------------------------------
			PushLong #SetTime			;set to time mode
			jsl MCWritePStr
			PushLong #CR
			jsl WriteWaitPStr
			bcs OutJmp
;Now convert BCD time to ASCII time for device
			lda SearchLoc,s
			sta MyBCDTime
			lda SearchLoc+2,s
			sta MyBCDTime+2
			jsr CvtTime2ASCII			;convert BCD time to ASCII string
			bra GoOn2

NotTime
			cmp #InChapters
			bne InError
;---------------------------------------
;We do Chapter search here
;---------------------------------------
			PushLong #SetChapter
			jsl MCWritePStr
			jmp GoOn
;
; We arrive here with an invalid unit specified type
;
InError		lda #BadUnitType
			jmp Exit8
			EXPORT SetFrame
SetFrame	str		'FR'
			EXPORT SetTime
SetTime		str		'TM'
			EXPORT SetChapter
SetChapter 	str		'CH'
SearchCmd	str		'SE'
			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCSearchDone
;
;  PURPOSE:		To return status if search command is completed
;
;  PASSED:		returned		WORD	;space for result
;				McChannelNo		WORD	;channel number
;
;  RETURNED:	DoneStatus		WORD	;status if done (not zero
;										; inficates done)
;
;-------------------------------------------------------------------
MCSearchDone PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
ChannelNo	word
DoneStatus	word		;returned done status
			

;First just see if there's a char. to be read
			jsr CkRxChar		;go check to see if theres a char. to read
			bne GotChars		;branch if there's data to read
			lda #0
			bra Exit			;else return not done yet

;Now just pick up the rest of the message and determine if an error occured
GotChars
			jsr MCReadPStr		;wait for response
			ldx #0				;assume no errors
			bcs JustOut
			lda ReceiveStr+1	;get first character
			and #$007f
			cmp ErrorChr		;see if its an error character
			bne Done			;branch if not
			ldx #DevRtnError	;set device returned error message

Done
			lda #1
Exit
			sta DoneStatus,s	;set boolean to done
			txa					;get error return value
JustOut		jmp	Exit2

			ENDP
			

;-------------------------------------------------------------------
;
;  NAME:		MCSearchWait
;
;  PURPOSE:		To wait until device has completed search command.
;
;  PASSED:		McChannelNo		WORD	;channel number
;
;  RETURNED:	None
;
;-------------------------------------------------------------------
MCSearchWait  	PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
ChannelNo	word


			jsr MCReadPStr		;wait for response
			bcs WriteError
			lda ReceiveStr+1	;get first character
			and #$007f
			cmp ErrorChr		;see if its an error character
			bne nwError
			lda #DevRtnError	;set device returned error message
			bra WriteError
nwError		lda #0				;not an error return
WriteError

			jmp	Exit2

			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCGetPosition
;
;  PURPOSE:		To return current position of device
;
;  PASSED:		returned		LONG	;space for result
;				McChannelNo		WORD	;channel number
;				mcUnitType		WORD	;passed unit type
;
;  RETURNED:	CurrPos			LONG	;Current Position
;
;-------------------------------------------------------------------
MCGetPosition PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
mcUnitType	word
ChannelNo	word
CurrPos		long		;returned current position
			
			
			lda #2
			sta RetryCntr			;setup retry counter
StartIt				
			lda mcUnitType,s
			cmp #InFrames			;want frames?
			bne TryTime
;-------------------------------------------------
;
;We return the Frame position here
;
;-------------------------------------------------
			PushLong #GetFrameStr
			jsl MCWritePStr
			PushLong #CR
			jsl WriteWaitPStr
			bcs OutErr1
;Now lets look at the data
			lda ReceiveStr
			and #$00ff
			cmp #6
			bne	GotErr2				;should have gotten atleat a CR
			lda ReceiveStr+1
			and #$007f
			cmp #48
			bcc GotErr2				;branch if less than '0'
			cmp #58
			bcs GotErr2				;branch if greater than '9'
DoRest
			pha						;space for result
			pha
			PushLong #ReceiveStr+1
			lda ReceiveStr
			and #$00ff
			sec
			sbc #1
			pha
			PushWord #0
			_Dec2Long				;convert to decimal
			bcs GotErr
ISOK
			pla
			sta CurrPos+2,s
ISOK2
			pla
			sta CurrPos+2,s
			lda #0					;no error exit
			jmp Exit4
;We arrive here if we receive some type of error trying to convert value?
GotErr		pla
			pla
GotErr2		lda #FunnyData
			dec RetryCntr
			bmi OutErr1
			jmp StartIt
OutErr1		jmp Exit4

TryTime
			cmp #InTimes
			bne TryChapters
;--------------------------------------------------
;
;We get the time position here
;
;--------------------------------------------------
			PushLong #GetTimeStr
			jsl MCWritePStr
			PushLong #CR
			jsl WriteWaitPStr
			bcs OutErr1

;Now convert ascii string to BCD string
;(ReceiveStr looks like this HMMSS, H=hours, MM=minutes, SS=Seconds
			sep #$30				;into 8-bit mode
			longa off
			longi off

;Lets first and out ascii part of each character
			ldx #4
BCDLoop
			lda ReceiveStr+1,x
			and #$0f				;and out ascii part
			sta ReceiveStr+1,x
			dex
			bpl BCDLoop

;Move high order part of minutes and seconds to high nibble
			ldx #4
Loop1
			asl ReceiveStr+4		;do seconds
			asl ReceiveStr+2		;do minutes
			dex
			bne Loop1
			
;Now combine minutes
			lda ReceiveStr+3		;get low nibble of minutes
			ora ReceiveStr+2		;or with high nibble
			sta ReceiveStr+0		;store here for now
			
;Now combines seconds SS00
			lda ReceiveStr+5		;get low nibble of seconds
			ora ReceiveStr+4		;or with high nibble of seconds
			sta ReceiveStr+5		;save here for now
			stz ReceiveStr+4		;for frames (set zero)

			longa on
			longi on
			rep #$30				;back to 16-bit mode
	
;Now everthing is BCD when we pick them up for return
			lda ReceiveStr+4		;get 00SS (frame and seconds)
			sta CurrPos,s			;for return value
			lda ReceiveStr			;get MM0H (minutes and hours)
			sta CurrPos+2,s			;for return value

			lda #0					;return no error
			jmp	Exit4
			
TryChapters
			cmp #InChapters
			bne WrongSpec
;--------------------------------------------------
;
;We get the chapter position here
;
;--------------------------------------------------
			PushLong #GetChapStr
			jsl MCWritePStr
			PushLong #CR
			jsl WriteWaitPStr
			bcs OutErrC1
			jmp DoRest
WrongSpec
			lda #BadUnitType
OutErrC1	jmp Exit4
			
GetFrameStr	str '?F'
GetTimeStr	str '?T'
GetChapStr	str '?C'

RetryCntr	ds.w	1
			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCSetAudio
;
;  PURPOSE:		To control the audio portion
;
;  PASSED:		McChannelNo		WORD	;channel number
;				AudioCtrl		WORD	;audio control command no.
;
;  RETURNED:	None
;
;-------------------------------------------------------------------
MCSetAudio 	PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
AudioCtrl	word
ChannelNo	word

			lda AudioCtrl,s			;get audio control value
			cmp #AudioOff
			bne NotOff
			PushLong #AdOFF
			jsl MCWritePStr
			bra FinAudio
NotOff
			cmp #AudioLeft
			beq WantLeft
			cmp #AudioLinLR
			bne Not1On
WantLeft
			PushLong #Ad1ON
			jsl MCWritePStr
			bra FinAudio
Not1On
			cmp #AudioRight
			beq WantRight
			cmp #AudioRinLR
			bne Not2On
WantRight
			PushLong #Ad2On
			jsl MCWritePStr
			bra FinAudio
Not2On
			cmp #AudioStereo
			bne NotAudio
DefaultSt
			PushLong #AdStereo
			jsl MCWritePStr
FinAudio
			PushLong #AudioCmd
			jsl MCWritePStr
			PushLong #CR
			jsl WriteWaitPStr 
			jmp	Exit4

;Now see if its a valid audio command
NotAudio	cmp #AudioMonaural+1
			ldx #BadAudio			;assume bad audio value
			bcs ExitOut				;branch if bad audio value selected
			ldx #UnImp				;else return unimplemented for this device
ExitOut		txa						;put error into a-reg.
			jmp Exit4

AdOFF		str '0'
Ad1ON		str '1'
Ad2ON		str	'2'
AdStereo	str '3'

AudioCmd	str ' AD'
			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCGetTimes
;
;  PURPOSE:		To return time value
;
;  PASSED:		returned		LONG	;space for result
;				McChannelNo		WORD	;channel number
;				mcTimeSelect	WORD	;passed time info selector
;
;  RETURNED:	TimeInfo		LONG	;Time information
;
;-------------------------------------------------------------------
MCGetTimes	PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
mcTimeSelect word
ChannelNo	word
TimeInfo	long		;returned time

			lda mcTimeSelect,s	;get time selector value
;-----------------------------------------
; McTotalFrames
;-----------------------------------------
			cmp #mcTotalFrames
			bne TryDisc
			jsr GetDiscType		;get disc type
			bcs ErrorOut		;branch if error
			lda #DevRtnError	;assume wrong type of disc
			cpx #mcS_CAV		;is it CAV?
			bne ErrorOut		;error if not
GoOn
			lda ChannelNo,s	;get channel no.
			pha					;space for long result
			pha

			pha					;push channel no.
			ldx #$2826
			jsl >$E10000		;perform _MCGetDiscID
			ply
			plx
			bcs ErrorOut
			tya
			sta TimeInfo,s
			txa
			sta TimeInfo+2,s
			lda #0
			bra ErrorOut
;-----------------------------------------
; McTotalDisc
;-----------------------------------------
TryDisc
			cmp #mcTotalDisc
			bne NoCanDo
			jsr GetDiscType		;get disc type
			bcs ErrorOut		;branch if error
			lda #DevRtnError	;assume wrong type of disc
			cpx #mcS_CLV		;is it CLV?
			bne ErrorOut		;error if not
			bra GoOn
						
			
NoCanDo
			lda #UnImp			;This routine is unimplemented in this driver
ErrorOut	jmp Exit4

GetDiscType
;-----------------
;Now, lets determine what type of disc we have playing
;-----------------
			lda ChannelNo+2,s			;get channel no.
			pha						;space for result
			pha						;pass channel no.
			PushWord #mcSDiscType	;want disc type
			ldx #$1A26
			jsl >$E10000			;perform _MCGetStatus
			plx						;get result
			rts

			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCGetNoTracks
;
;  PURPOSE:		To return no. of tracks/chapters on the disc.
;
;  PASSED:		returned		WORD	;space for result
;				McChannelNo		WORD	;channel number
;
;  RETURNED:	Tracks			WORD	;Tracks/Chapters on the disc
;
;-------------------------------------------------------------------
MCGetNoTracks PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
ChannelNo	word
Tracks		word		;result no. of tracks/chapters
			
			lda #UnImp			;This routine is unimplemented in this driver
			jmp	Exit2
			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCGetDiscTOC
;
;  PURPOSE:		To get a discs TOC (Table of Contents)
;
;  PASSED:		returned		LONG	;resultant BCD start of track value
;				McChannelNo		WORD	;channel number
;				TrackNo			WORD	;track no.
;
;  RETURNED:	DiscTOC			LONG	;BCD start of track value
;
;-------------------------------------------------------------------
MCGetDiscTOC PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
TrackNo		word
ChannelNo	word
DiscTOC		long				;resultant BCD start of track value
			
			lda #UnImp			;This routine is unimplemented in this driver
			jmp	Exit4
			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCGetDiscID
;
;  PURPOSE:		To get a discs unique ID
;
;  PASSED:		returned		LONG	;space for result
;				McChannelNo		WORD	;channel number
;
;  RETURNED:	DiscTOC			LONG	;Discs ID
;
;-------------------------------------------------------------------
MCGetDiscID PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
ChannelNo	word
DiscID		long		;returned discs ID
						
;The method of determining a unique ID is to search to the last frame
;or time location on disc and use that number as the unique ID.
;-----------------
;First lets look to see if the player is playing or paused
;-----------------
			stz PlayingFlg			;default, its paused
			lda ChannelNo,s
			pha						;passed word space for result
			pha						;passed channel no.
			PushWord #mcSPlayStatus
			ldx #$1a26
			jsl >$E10000			;perform _MCGetStatus
			plx						;get returned status value
			bcc GotStatOK			;branch if no errors getting status
			cmp #TimeOutErr			;if error, see if timeout?
			bne IssuePlay
			jmp ExitTime
GotStatOK
			cpx #mcSPlaying
			bne NotPlaying
			inc PlayingFlg			;set playing flag
NotPlaying
			cpx #mcSParked			;see if parked
			bne Notparked			;branch if not parked
;-----------------
;We arrive here if the disc is parked, we first must issue a play for things
;to work correctly.
;-----------------
IssuePlay
			PushLong #PlayString	;do a play command
			jsl MCWritePStr
			PushLong #CR
			jsl WriteWaitPStr

NotParked
;-----------------
;Now, lets determine what type of disc we have playing
;-----------------
			lda ChannelNo,s			;get channel no.
			pha						;space for result long
			pha						;pass channel no.
			PushWord #mcSDiscType	;want disc type
			ldx #$1A26
			jsl >$E10000			;perform _MCGetStatus
			plx						;get result
			bcc NoErOv				;branch if no error
EOJmp		jmp ErrorOut			;branch if got an error
NoErOv
			stx DiscType			;save disc type for later
;-----------------
;Now lets get the current location so we can restore back there when done
;-----------------
			lda ChannelNo,s
			pha						;space for long result
			pha
			pha						;pass the channel no.
			lda DiscType			;get disc type
			cmp #mcS_CAV			;is it CAV?
			beq SItsCAV				;branch if its CAV

;Its a CLV disc
			PushWord #InTimes		;pass type
			bra SGetLoc
;Its a CAV disc 
SItsCAV
			PushWord #InFrames		;pass type
SGetLoc
			ldx #$2426
			jsl >$E10000			;perform _MCGetPosition
			plx						;save old location so we can restore
			stx OldLocation
			plx
			stx OldLocation+2
			
			bcs EOJmp				;branch if got an error

;-----------------			
;Now do a search to last time or frame number
;-----------------
			lda ChannelNo,s			;get channel no.
			pha						;pass to MCSearchTo
			lda DiscType			;get disc type
			cmp #mcS_CAV			;is it CAV?
			beq ItsCAV				;branch if its CAV

;Its CLV (search InTimes to 9:59:59:00)
			PushWord #InTimes		;pass search type
			PushLong #$09595900		;pass search location
			bra DoSearch
;Its CAV (searh InFrames to 55000)
ItsCAV
			PushWord #InFrames		;pass search type
			PushLong #55000			;pass search location
DoSearch
			ldx #$2126
			jsl >$E10000			;perform _MCSearchTo
			bcs EOJmp
;Now do an MCSearchWait
			lda ChannelNo,s			;get channel no.
			pha						;space for result long
			ldx #$2326
			jsl >$E10000			;perform _MCSearchWait
			bcs EOJmp

;-----------------						
;We were able to search there without an error, so now lets pause it for things
;to settle down (must first pause for machine to respond with last location?)
;-----------------			

			lda ChannelNo,s
			pha
			ldx #$1826
			jsl >$E10000			;perform _MCPause
			bcs EOJmp				;branch if error

;-----------------			
;Now we can try and read the last location on disc as the unique ID
;-----------------			
			lda ChannelNo,s
			pha						;space for long result
			pha
			pha						;pass the channel no.
			lda DiscType			;get disc type
			cmp #mcS_CAV			;is it CAV?
			beq ItsCAV2				;branch if its CAV

;Its a CLV disc
			PushWord #InTimes		;pass search type
			bra GetLoc
;Its a CAV disc 
ItsCAV2
			PushWord #InFrames		;pass search type
GetLoc
			ldx #$2426
			jsl >$E10000			;perform _MCGetPosition
			pla						;get returned position
			plx
			bcs ErrorOut			;branch if got an error
;
;Now check to see if CAV because we need to convert from binary to BCD
;
			ldy DiscType
			cpy #mcS_CAV			;is it CAV
			bne NoNeed				;branch if no need to convert
			
			phx						;long space for result
			phx
			phx						;pass binary frame no.
			pha
			
			ldx #$0D26
			jsl >$E10000			;perform _MCCvtBin2Time
			bcs ErrorOut			;branch if error
			pla
			plx
;Now set the return values on stack
NoNeed
			sta DiscID,s			;set returned unique ID
			txa
			sta DiscID+2,s

;-----------------			
;Now search back to the location we started from
;-----------------
			lda ChannelNo,s			;get channel no.
			pha						;pass to MCSearchTo
			lda DiscType			;get disc type
			cmp #mcS_CAV			;is it CAV?
			beq RItsCAV				;branch if its CAV

;Its CLV (search InTimes)
			PushWord #InTimes		;pass search type
			bra RDoSearch
;Its CAV (searh InFrames)
RItsCAV
			PushWord #InFrames		;pass search type
RDoSearch
			PushLong OldLocation	;pass search location
			ldx #$2126
			jsl >$E10000			;perform _MCSearchTo
			bcs ErrorOut
;Now do an MCSearchWait
			lda ChannelNo,s			;get channel no.
			pha						;space for result long
			ldx #$2326
			jsl >$E10000			;perform _MCSearchWait
			bcs ErrorOut

;-----------------			
;Now set back to playing if was playing when we started
;-----------------
			lda PlayingFlg
			beq NoRPlaying			;branch if wasnt playing

			lda ChannelNo,s
			pha						;pass channel no.
			ldx #$1726
			jsl >$E10000			;perform _MCPlay
			bcs ErrorOut
NoRPlaying
			lda #0					;return no errors
			bra ExitTime			



ErrorOut	lda #DevRtnError		;return error; unable to perform

ExitTime			
			jmp	Exit2

DiscType	ds.w	1				;disc type storage
OldLocation	ds.l	1				;old location storage
PlayingFlg	ds.w	1				;playing mode flag
			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCRecord
;
;  PURPOSE:		To put the device in record mode
;
;  PASSED:		McChannelNo		WORD	;channel number
;
;  RETURNED:	None
;
;-------------------------------------------------------------------
MCRecord  	PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
ChannelNo	word



			lda #UnImp			;This routine is unimplemented in this driver
			jmp	Exit2
			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCStop
;
;  PURPOSE:		To stop the device
;
;  PASSED:		McChannelNo		WORD	;channel number
;
;  RETURNED:	None
;
;-------------------------------------------------------------------
MCStop      PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
ChannelNo	word


			PushLong #StopStr
			jsl MCWritePStr
			PushLong #CR
			jsl WriteWaitPStr
			bcs ExitR
			PushLong #StartCmd
			jsl MCWritePStr
			PushLong #CR
			jsl WriteWaitPStr
ExitR
			jmp	Exit2

StopStr		str	'RJ'			;We do a Reject command for a stop
			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCWaitRawData
;
;  PURPOSE:		To wait for raw data from the device
;
;  PASSED:		McChannelNo		WORD	;channel number
;				GSOSStringPtr	LONG	;pointer to gs/os resultant string tr.
;				TickWait		Word	;no. of ticks before timeout error
;				Term_Mask		Word	;terminal char. and mask char.
;
;  RETURNED:	None
;
;-------------------------------------------------------------------
MCWaitRawData PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
Term_Mask	word
TickWait	word
GSOSString	long				;pointer to result
ChannelNo	word

			lda GSOSString,s
			sta DP0
			lda GSOSString+2,s
			sta DP2
			lda [DP0]			;get length of gs/os buffer
			sta Max_Chars		;set max. no. of chars. to read
			lda #4
			sta Buff_Index		;want chars. starting at offset of one
			sta GSOS_Str		;indicate GS/OS string
			lda TickWait,s
			tay					;set tick wait timeout counter
			lda Term_Mask,s
			and #$00ff
			tax					;set mask
			lda Term_Mask,s
			xba
			and #$00ff			;set term. char.

;Now read the data
			jsr MCReadPStr2		;go read the string
			tay					;save error code if any in y-reg.
			txa					;get transfer count into a-reg.
			tyx					;save error code if any in x-reg.
			ldy #2
			sta [DP0],y			;set transfer count into GS/OS string
			txa					;get error code back into a-reg.
			jmp Exit8

			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCSetVolume
;
;  PURPOSE:		To set the volume on the device
;
;  PASSED:		McChannelNo		WORD	;channel number
;				LeftVolume		WORD	;Left volume value
;				RightVolume		WORD	;Right volume value
;
;  RETURNED:	None
;
;-------------------------------------------------------------------
MCSetVolume PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
RightVolume word
LeftVolume	word
ChannelNo	word


			lda #UnImp			;retun unimplemented
			jmp Exit6

			ENDP


		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/MediaCtl/P4200/P4200.make b/IIGS.601.SRC/A.U.G/MediaCtl/P4200/P4200.make
new file mode 100644
index 0000000..d8c3749
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/MediaCtl/P4200/P4200.make
@@ -0,0 +1 @@
+



Objects =		¶
				P4200.aii.obj





P4200			Ä	  {Objects}
	reziigs P4200.r -o P4200  -c "pdos"
	linkiigs -x	P4200.aii.obj ¶
		-o P4200 -t $BB -at $0410



.aii.obj					Ä	.aii
	asmiigs  {default}.aii

\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/MediaCtl/P4200/P4200.r b/IIGS.601.SRC/A.U.G/MediaCtl/P4200/P4200.r
new file mode 100644
index 0000000..46a756b
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/MediaCtl/P4200/P4200.r
@@ -0,0 +1 @@
+/*******************************************************************/
/*
/* New.r
/*
/* Copyright (C) 1989
/* Apple Computer, Inc.
/* All Rights Reserved
/*
/* This file contains the source of the resources needed to build the 
/* New Media Control Driver.
/*
/*******************************************************************/


/* "hd:mpw:riigsincludes:typesiigs.r"   */

#include "typesiigs.r" 

resource rPstring (1) {"This is resource string 1."};



\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/MediaCtl/P4200/P4200Unit.pii b/IIGS.601.SRC/A.U.G/MediaCtl/P4200/P4200Unit.pii
new file mode 100644
index 0000000..6505f57
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/MediaCtl/P4200/P4200Unit.pii
@@ -0,0 +1 @@
+Unit NewUnit;
{$LongGlobals+}
interface

uses
  QDIntf,
  GSIntf,
  MiscTools;
  
procedure break; inline $00;
procedure NoOp;	inline $EA;
procedure MCWritePStr(OutString: string); external;

Implementation


	function speeds: str255;
		{ Return the valid speed for this player. }

		begin
			speeds := '1,2,3,4,5,6,7,8,9,10,15,20,30,60,90,120';			
		end;				


procedure PMCPlay(MCChannel:Integer);
Var 
 XXString: Str255;
 MyString: Str255;
 YYString: Str255;
 zzString: Str255;
 

 
 
  begin
		NoOp;
		NoOp;
  	MyString:=Speeds;	
		NoOp;
		NoOp;
	if MCChannel=1 then Sysbeep;
	
	MCWritePStr('PASCAL Output!!!!!!');
		NoOp;
		NoOp;
		NoOp;
		NoOp;
		NoOp;
	end;


end.
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/MediaCtl/Pioneer2000/P2000.aii b/IIGS.601.SRC/A.U.G/MediaCtl/Pioneer2000/P2000.aii
new file mode 100644
index 0000000..de7ecda
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/MediaCtl/Pioneer2000/P2000.aii
@@ -0,0 +1 @@
+****************************************************************
*
*	This is the Pioneer 2000 Driver (CLD-3030) 
*
****************************************************************
*	Copyright Apple Computer, Inc. 1989, 1990
*	All rights reserved.
*
*	Programmed by: Dan Hitchens Aug.1989  
*
****************************************************************
;
; REVISION HISTORY
; 
; 8/21/90	-Took Pioneer 4200 as basis for this driver
;***************************************************************
;
; Pioneer 2000 particulars
;
; -Pioneer 2000 players are passive (only determinable status is whether
;  the command has completed or not.
; -A multi-format disc player such as the CLD-3030 has the following differences:
;	-CD's don't step, must do a pause then step to handle (for MCPause command)
;	-CD's don't have an absolute time search value (value is offset from
;    start of current track.
;	-CD's don't have the ability to do a stop at location (MCStopAt is useless)
; -This video display is weird on this device
;	-The Display command toggles on/off the display
;	-There is a Display-Squelch and a Display-Normal commands
;	-There is no way to effectively handle the mcCDispalyOn and mcCDisplayOff
;    commands  (We just toggle the dispaly on and off (may seem unpredictable
;	 to the user because it may go off when we want it to go on, and on when
;	 we want it to go off.)
; 10/23/90 DDH D18
;	-Changed MCStop to do a reject instead of a pause command.
; D19 (DDH)
;	-Changed MCGetName, MCGetSpeeds to pass pointer to returned string buffer instead
;    of using TML Pascal's string function routine method.
; D20 (DDH)
;	-Fixed bug with MCJogN where it would crash because it was jumping to EXIT12
;	 instead of EXIT10.
;	-Fixed strange error return from MCJogN (did clc, lda #0 in SendCmd to fix it.);
;
; D21 (DDH)
;			-Fixed MCGetname to be restartable.
;
; D23 (DDH)
;			-Fixed bug where it wasn't checking for "GAME PORT" on startup.
;
; D24 (DDH)
;			-Added jsl DecBusyFlg routine to dynamic exits because were not reenterant.
;			-Fixed bug where MCJog was returning $2612 for min., sec. equal zero
;			 (was only checking low 16-bits for zero, should have check all 32 bits.)
;			-Fixed bug with MCGetPos where it wasn't returning zero result (was storing
;			 who knows where in direct page.)
; D26 (DDH)
;			-Fixed mcCInit MCControl call to do one reject command to reset the disc.
;
;	  (DDH)	12/9/91
;			-Fixed busyflag problem (added IncBusyFlg to correct stack stuff.)
;
;---------------------------------------------------------------
			include 'all.macros'
			
			Entry	EntryStuff
			Entry	MCGetName
			Entry	MCDStartUp
			Entry	MCGetFeatures
			Entry	MCDShutDown
			Entry	MCPlay
			Entry	MCPause
			Entry	MCSendRawData
			Entry	MCWritePStr
			Entry	CvtTime2ASCII
			Entry	MCGetStatus
			Entry	MCControl
			Entry	MCScan
			Entry	MCGetSpeeds
			Entry	MCSpeed
			Entry	MCStopAt
			Entry	MCJogN
			Entry	McSearchTo
			Entry	McSearchDone
			Entry	McSearchWait
			Entry	McGetPosition
			Entry	McSetAudio
			Entry	McGetTimes
			Entry	McGetNoTracks
			Entry	McGetDiscTOC
			Entry	McGetDiscID
			Entry	McRecord
			Entry	MCStop
			Entry	MCWaitRawData
			Entry	McSetVolume			
			Entry	CR
			Entry	ScratchStr
			Entry	SetFrame
			Entry	SetChapter
			Entry	SetTime
			Entry	MyBCDTime
			Entry	CurrSpeed
			Entry	BlankNextVideo
			
			Entry	EndVector
			Entry	DriverVtrs
			Entry	P2000Steps
			Entry	ConnectPort
             	
***************************************************************
*
* Direct page equates
*
***************************************************************
DirectStack	equ 10
DS3			equ	DirectStack+3	;direct stack plus phd and phb

DirectPage	equ 0
DP0			equ 0
DP1			equ 1
DP2			equ 2
DP3			equ 3
DP4			equ 4
DP5			equ 5
DP6			equ 6
DP7			equ 7
DP8			equ 8
DP9			equ 9

***************************************************************
*
* Equates
*
***************************************************************
IncBusyFlg	equ $e10064				;Inc. busy flag routine
DecBusyFlg 	equ $e10068				;Dec. busy flag routine
DriverID	equ $3883				;Media Control Driver ID
VersionNo	equ $0100				;version no. 1.00
InChapters	equ 1					;Selector value for Chapters
InFrames	equ 2					;Selector value for Frames
InTimes		equ 3					;Selector value for Times

;------------------------------
;Control values for MCControl
;------------------------------
mcCInit			equ 1				;initilize player
mcCEject		equ 2				;eject disc
mcCVideoOn		equ 3				;turn video on
mcCVideoOff		equ 4				;turn video off
mcCDisplayOn 	equ 5				;turn video position display off
mcCDisplayOff 	equ 6				;turn vidoe position display on
mcCBlankVideo 	equ 7				;blank video for next MCSearchTo
mcCDefaultCom 	equ 8				;set default communications
mcCLockDev 		equ 9				;set the device to locked
mcCUnLockDev	equ 10				;unlock the device

mcC8Data1Stop equ 40				;set 8-data 1-stop bit
mcC7Data1Stop equ 41				;set 7-data 1-stop bit
mcC6Data1Stop equ 42				;set 6-data 1-stop bit
mcC5Data1Stop equ 43				;set 5-data 1-stop bit
mcC8Data2Stop equ 44				;set 8-data 2-stop bit
mcC7Data2Stop equ 45				;set 7-data 2-stop bit
mcC6Data2Stop equ 46				;set 6-data 2-stop bit
mcC5Data2Stop equ 47				;set 5-data 2-stop bit

mcCBaudDflt	equ 50					;set baud rate to control panel setting
mcCBaud50	equ 51					;set 50 baud
mcCBaud75	equ 52					;set 75 baud
mcCBaud110	equ 53					;set 110 baud
mcCBaud134	equ 54					;set 134.5 baud
mcCBaud150	equ 55					;set 150 baud
mcCBaud300	equ 56					;set 300 baud
mcCBaud600	equ 57					;set 600 baud
mcCBaud1200	equ 58					;set 1200 baud
mcCBaud1800	equ 59					;set 1800 baud
mcCBaud2400 equ 60					;set 2400 baud
mcCBaud3600	equ 61					;set 3600 baud
mcCBaud4800 equ 62					;set 4800 baud
mcCBaud7200	equ 63					;set 7200 baud
mcCBaud9600 equ	64					;set 9600 baud
mcCBaud19200 equ 65					;set 19200 baud

mcCModem	equ 100					;set to modem port
mcCPrinter	equ 101					;set to printer port

mcCIgnoreDS	equ 200					;Ignore disk switched errors (dont report them to user)
mcCReportDS	equ 201					;Report disk switched errors to user

;------------------------------
;Status values for MCGetStatus
;------------------------------
mcSUnknown		equ 0				;player unable to determine this status
mcSDeviceType	equ $0000			;device type selector
mcSLaserDisc	equ 1
mcSCDAudio		equ 2
mcSLaserCD		equ 3
mcSVCR			equ 4
mcSCamCorder	equ 5
mcSPlayStatus	equ $0001			;play status selector value
mcSPlaying		equ 1
mcSStill		equ 2
mcSParked		equ 3
mcSDoorStatus	equ $0002			;players door status
mcSDoorOpen		equ 1
mcSDoorClosed	equ 2
mcSDiscType		equ	$0003			;disc type selector value
mcS_CLV			equ 1
mcS_CAV			equ	2
mcS_CDV			equ 3
mcS_CD			equ 4
mcSDiscSize		equ $0004			;disc size selector value
mcSDisc3inch	equ 3
mcSDisc5inch	equ 5
mcSDisc8inch	equ 8
mcSDisc12inch	equ 12
mcSDiscSide		equ $0005			;disc side selector value
mcSSideOne		equ 1
mcSSideTwo		equ 2
mcSVolumeL		equ $0006			;left volume value
mcSVolumeR		equ $0007			;right volume value

;------------------------------
;Audio values
;------------------------------
AudioOff	equ 0		;Audio Off
AudioRight	equ 1		;Audio Right channel only
AudioLinR	equ 2		;Audio left in right only
AudioMinR	equ 3		;Audio mixed in right only
AudioRinL	equ 4		;Audio right in left only
AudioRinLR	equ 5		;Audio right in left and right
AudioReverse equ 6		;Audio right in left, left in right
AudioRinLMR	equ 7		;Audio right in left, mixed in right
AudioLeft	equ 8		;Audio left channel only
AudioStereo	equ 9		;Audio Both Channels (Stereo)
AudioLinLR	equ 10		;Audio left in left and right
AudioLinLMR	equ 11		;Audio left in left, mixed in right
AudioMinL	equ 12		;Audio mixed in left only
AudioMinLRinR equ 13	;Audio mixed in left, right in right
AudioMinLLinR equ 14	;Audio mixed in left, left in right
AudioMonaural equ 15	;Audio mixed in left and right (monaural)

***************************************************************
*
* Error Equates
*
***************************************************************
UnImp		equ $2601			;Unimplemented for this device
NotApplic	equ UnImp
BadSpeed	equ $2602			;Invalid speed specified
BadUnitType	equ $2603			;Invalid unit type specified
TimeOutErr	equ $2604			;Timed out during device read
NotLoaded	equ $2605			;No Driver is currently loaded
BadAudio	equ $2606			;Invalid Audio Value
DevRtnError	equ $2607			;Device returned error (unable to perform)
UnRecStatus	equ $2608			;Unrecognizable status from device
BadSelector	equ $2609			;Invalid selector value specified
FunnyData	equ	$260a			;funny data receive (retry again)
InvalidPort	equ $260b			;invalid port specified
OnlyOnce	equ $260c			;Scans only once
NoResMgr	equ $260d			;Resource manager not active
ItemNotThere equ $260e			;Item Not found in database
WasShutdown equ $260f			;tool was already shutdown
WasStarted	equ $2610			;tool was already started
BadChannel	equ $2611			;invalid channel number
InvalidParam equ $2612			;Invalid Parameter
CallNotSupported equ $2613		;call not supported error


***************************************************************
*
* CLD303 Specific Equates
*
***************************************************************
CYAReg		equ $00C036				;has speed bit
AnnLow		equ $00C058				;annuciator off
AnnHigh		equ	$00C059				;annuciator on
BUTN0		equ $00C061
BUTN1		equ $00C062
BUTN2		equ $00C063				;button-2 input switch addr.
BUTN3		equ $00C060


***************************************************************
*
* Driver Header and Vectors Routine
*
***************************************************************
P2000Drvr PROC
			longi on
			longa on
			DC.W	DriverID			;Drivers ID Marker (Media Ctrl driver)
			DC.W	(EndVector-DriverVtrs)/4	;count of calls supported

			jmp		EntryStuff
			DC.W	VersionNo			;Drivers version number (version 1.0)
			str 'PIONEER2000'			;Drivers name

;-------------------------------------------------------------------
; WARNING:  This code is located here so we are certain that it doesn't
;           cross over a page boundary causing extra cycles.
;-------------------------------------------------------------------
;
;  NAME:		Delay
;
;  PURPOSE:		To delay x*.5ms
;
;  PASSED:		(X-reg.)= no. of .5ms to delay
;
;  RETURNED:	None
;
;-------------------------------------------------------------------
Delay	PROC
		longa off
		longi off
;This loop is .5ms (1 cycle is 1.023us)
		nop
@2		ldy #101 					;2
@1		dey							;2
		bne @1						;3 or 2
		dex 						;2
		bne @2
		rts
		longa on
		longi on
		ENDP
;-------------------------------------------------------------------
; WARNING:  This code is located here so we are certain that it doesn't
;           cross over a page boundary causing extra cycles.
;-------------------------------------------------------------------
;
;  NAME:		Delay5
;
;  PURPOSE:		To delay .5ms
;
;  PASSED:		None
;
;  RETURNED:	None
;
;-------------------------------------------------------------------
Delay5	PROC
		longa off
		longi off
		nop
;This loop is .5ms 
@2		ldy #99 					;2
@1		dey							;2
		bne @1						;3 or 2
		rts
		longa on
		longi on
		ENDP
;-------------------------------------------------------------------
;
;  NAME:		SendCmd
;
;  PURPOSE:		To set things up and send one command to the device.
;
;  PASSED:		(A-reg.)= character to send
;
;  RETURNED:	None
;
;-------------------------------------------------------------------
SendCmd	PROC

;and delay long enough to force new command (delay-B)		
		ldx #140					;delay for atleast 60ms (70ms)

		EXPORT SendCmd2
SendCmd2
;This entry point is used for when you want to specify in the X-reg. the
;delay count before a command (needed to continously hold a command like the
;search fwd or rev. commands.)  Normally you would pass a value of 60 for a 
;delay-A value of 30.)

		longi off
        longa off
		sep #$30					;put into 8-bit mode
		
		sta SaveCmd					;save the command
;********Force into slow speed, so we know speed.
		lda >CYAReg					;get speed bit soft switch
		and #$80					;first look only a speed bit
		pha							;save speed bit soft switch value
		lda >CYAReg					;get it again
		and #$7f					;force slow
		sta >CYAReg					;store so to take effect

;first make sure the pulse is high
		lda >AnnHigh
;Note: X-reg. holds repeat delay count
		jsr	Delay
		
;Now send commands
		ldx SaveCmd					;get saved command
		jsr SendIt					;send command and wait Delay-A

		lda >CYAReg					;get speed byte register
		and #$7f
		sta SaveCmd					;save it temporarilly
		pla
		ora SaveCmd
		sta >CYAReg					;restore CYAReg
		rep #$30					;back to 16-bit
		longa on
		longi on
		clc							;return no errors
		lda #0		
		rts

;-------------------------------------------------------------------
;
;  NAME:		SendIt
;
;  PURPOSE:		To send one command out to the device.
;
;  PASSED:		(X-reg.)= character to send
;
;  RETURNED:	None
;
;-------------------------------------------------------------------
		longa off
		longi off
SendIt
		stx SaveCmd					;save the command
		
		php							;save processor status
		sei							;*****disable interrupts***
;send leader
		lda >AnnLow					;perform leader down
		ldx #16						;delay for 8ms
		jsr Delay
		lda >AnnHigh					;perform leader high for 4ms
		ldx #8
		jsr Delay

;Now send $A8
		ldx #$A8
		jsr SendByte
;Now send $57
		ldx #$57
		jsr SendByte
;Now send command
		ldx SaveCmd
		jsr SendByte
;Now send complement of command
		lda SaveCmd
		eor #$ff					;complement bits
		tax
		jsr SendByte
		
;Now send Delay-A
		lda >AnnLow					;pulse down for .5ms
		jsr Delay5
		lda >AnnHigh					;pulse up for 19.5
		
		plp							;****restore interrupts****

		ldx #39
		jsr Delay
		
		rts

;-------------------------------------------------------------------
;
;  NAME:		SendByte
;
;  PURPOSE:		To send one byte out to the device.
;
;  PASSED:		(X-reg.)= byte to send
;
;  RETURNED:	None
;
;  NOTE:		The low order bits are always transferred first
;-------------------------------------------------------------------
SendByte
		stx ByteSave
		ldy #8
		sty BitCtr					;init bit counter
@8
;send down pulse (both 0 and 1 have same down pulse length)
		lda >AnnLow					;force low ***MM change
		jsr Delay5					;delay .5ms
		lda >AnnHigh				;force high ***MM change
		lsr ByteSave				;get bit to send in carry
		bcc @0						;branch if one bit
		jsr Delay5
		jsr Delay5
;We arrive here with a 0 bit
@0		jsr Delay5
		dec BitCtr
		bne @8						;loop for all 8 bits
		rts

;-------------------------------------------------------------------
;
; DATA AREA
;
;-------------------------------------------------------------------

		STRING PASCAL			;we want pascal strings

SaveCmd	ds.b 1					;space to save command byte
ByteSave ds.b 1					;space to save byte
BitCtr	ds.b 1					;bit counter storage

         ENDP

;-------------------------------------------------------------------
;
;  NAME:		CheckDone
;
;  PURPOSE:		To check to see if the last command has completed
;
;  PASSED:		None
;
;  RETURNED:	(Carry) =  0 if not done
;						=  1 if done
;
;-------------------------------------------------------------------
CheckDone	PROC
			sep #$30			;8-bit mode
			longa off
			longi off
			clc					;assume off
			lda >BUTN0
			lda >BUTN1
			lda >BUTN3
			lda >BUTN2			;get switch value  
			
			bpl IsOff			;branch if off
			sec					;else it was on
IsOff
			rep #$30			;back to 16-bit mode
			longa on
			longi on
			rts
			ENDP

;-------------------------------------------------------------------
;
; Command Vectors AREA
;
;-------------------------------------------------------------------
JustVectors PROC			
			Export DriverVtrs
DriverVtrs
			DC.L	MCGetName			;0 Gets the drivers name and version
			DC.L	MCDStartUp			;1 Starts up the driver
			DC.L	MCDShutDown			;2 Shuts down the driver
			DC.L	MCGetFeatures		;3 Gets features
			DC.L	MCPlay				;4 Play the device
			DC.L	MCPause				;5 Pause device
			DC.L	MCSendRawData		;6 Send raw data to the device
			DC.L	MCGetStatus			;7 Return device status info
			DC.L	MCControl			;8 Sets device control info
			DC.L	MCScan				;9 Scan forward or reverse
			DC.L	MCGetSpeeds			;10 Returns Valid Speeds
			DC.L	MCSpeed  			;11  Sets Speed for MCPlay
			DC.L	MCStopAt			;12  Sets stopping point
			DC.L	MCJogN				;13  Jog device n units
			DC.L	MCSearchTo			;14  Search to location
			DC.L	MCSearchDone		;15  Status of if done
			DC.L	MCSearchWait		;16  Waits for search to finish
			DC.L	MCGetPosition		;17  Returns current position
			DC.L	MCSetAudio			;18  Controls audio
			DC.L	MCGetTimes			;19  Gets disc times
			DC.L	MCGetDiscTOC		;20  Gets discs table of contents
			DC.L	MCGetDiscID			;21  Gets discs ID
			DC.L	MCGetNoTracks		;22	 Gets discs no. of tracks
			DC.L	MCRecord			;23	 Puts device into record mode
			DC.L	MCStop				;24  Stops the device
			DC.L	MCWaitRawData		;25  Waits for raw data from device
			DC.L	MCSetVolume			;26	 Set Volume

			EXPORT EndVector
EndVector
			ENDP
			longi on
			longa on
			
;-------------------------------------------------------------------
;
;  NAME:		EntryStuff
;
;  PURPOSE:		To save registers and setup direct page on stack space
;
;  PASSED:		(X-reg.)= offset into "GPortVtrs" to called routine
;
;  RETURNED:	None (vectors directly to called routine)
;
;-------------------------------------------------------------------
EntryStuff	PROC
			Definestack

			phd							;save direct page
			phb							;save bank register
;set bank register (B-reg.) to programs bank (K-register)
			phk
			plb
;reserve 10 bytes from stack for direct page
			tsc							;get stack value
			sec
			sbc #DirectStack			;reserve 10 bytes for d-page
			tcs
			inc a						;inc. by one for d-page start
			tcd							;set direct page address

			jmp (DriverVtrs,x)			;vector to called routine
			ENDP

;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;
; Dynamic Exits
;
;
; Each dynamic exit	takes 2 RTL's and moves them some number of bytes up the
; stack.
;
;------------------------------------------------------------------------------
;-----------------------------------------------------------------------------

DynamicExits	PROC EXPORT
	EXPORT exit20
exit20
	tax
;Restore B-reg.
	lda DirectStack,s		;get saved B-reg. into bits 7-4
	pha						;save onto stack
	plb						;get rid of 8-bits
	plb						;now restore the b-register	
;Restore D-reg.
	lda DirectStack+2,s
	tcd

	lda DS3+5,s
	sta DS3+25,s
	lda DS3+3,s
	sta DS3+23,s
	lda DS3+1,s
	sta DS3+21,s
	tsc
	clc
	adc #20
	tcs
	brl exit0x

	EXPORT Exit16
Exit16
	tax
;Restore B-reg.
	lda DirectStack,s		;get saved B-reg. into bits 7-4
	pha						;save onto stack
	plb						;get rid of 8-bits
	plb						;now restore the b-register	
;Restore D-reg.
	lda DirectStack+2,s
	tcd

	lda DS3+5,s
	sta DS3+21,s
	lda DS3+3,s
	sta DS3+19,s
	lda DS3+1,s
	sta DS3+17,s
	tsc
	clc
	adc #16
	tcs
	brl Exit0x

	EXPORT Exit14
Exit14
	tax
;Restore B-reg.
	lda DirectStack,s		;get saved B-reg. into bits 7-4
	pha						;save onto stack
	plb						;get rid of 8-bits
	plb						;now restore the b-register	
;Restore D-reg.
	lda DirectStack+2,s
	tcd

	lda DS3+5,s
	sta DS3+19,s
	lda DS3+3,s
	sta DS3+17,s
	lda DS3+1,s
	sta DS3+15,s
	tsc
	clc
	adc #14
	tcs
	brl Exit0x

	EXPORT Exit12
Exit12
	tax
;Restore B-reg.
	lda DirectStack,s		;get saved B-reg. into bits 7-4
	pha						;save onto stack
	plb						;get rid of 8-bits
	plb						;now restore the b-register	
;Restore D-reg.
	lda DirectStack+2,s
	tcd

	lda DS3+5,s
	sta DS3+17,s
	lda DS3+3,s
	sta DS3+15,s
	lda DS3+1,s
	sta DS3+13,s
	tsc
	clc
	adc #12
	tcs
	brl Exit0x



	EXPORT Exit10
Exit10
	tax
;Restore B-reg.
	lda DirectStack,s		;get saved B-reg. into bits 7-4
	pha						;save onto stack
	plb						;get rid of 8-bits
	plb						;now restore the b-register	
;Restore D-reg.
	lda DirectStack+2,s
	tcd

	lda DS3+5,s
	sta DS3+15,s
	lda DS3+3,s
	sta DS3+13,s
	lda DS3+1,s
	sta DS3+11,s
	pla
	pla
	pla
	pla
	pla
	brl exit0x


	EXPORT Exit8
Exit8
	tax
;Restore B-reg.
	lda DirectStack,s		;get saved B-reg. into bits 7-4
	pha						;save onto stack
	plb						;get rid of 8-bits
	plb						;now restore the b-register	
;Restore D-reg.
	lda DirectStack+2,s
	tcd

	lda DS3+5,s
	sta DS3+13,s
	lda DS3+3,s
	sta DS3+11,s
	lda DS3+1,s
	sta DS3+9,s
	pla
	pla
	pla
	pla
	brl Exit0x



	EXPORT Exit6
Exit6
	tax
;Restore B-reg.
	lda DirectStack,s		;get saved B-reg. into bits 7-4
	pha						;save onto stack
	plb						;get rid of 8-bits
	plb						;now restore the b-register	
;Restore D-reg.
	lda DirectStack+2,s
	tcd

	lda DS3+5,s
	sta DS3+11,s
	lda DS3+3,s
	sta DS3+9,s
	lda DS3+1,s
	sta DS3+7,s
	pla
	pla
	pla
	brl Exit0x


	EXPORT Exit4
Exit4
	tax
;Restore B-reg.
	lda DirectStack,s		;get saved B-reg. into bits 7-4
	pha						;save onto stack
	plb						;get rid of 8-bits
	plb						;now restore the b-register	
;Restore D-reg.
	lda DirectStack+2,s
	tcd

	lda DS3+5,s
	sta DS3+9,s
	lda DS3+3,s
	sta DS3+7,s
	lda DS3+1,s
	sta DS3+5,s
	pla
	pla
	bra Exit0x


	EXPORT Exit2
Exit2
	tax
;Restore B-reg.
	lda DirectStack,s		;get saved B-reg. into bits 7-4
	pha						;save onto stack
	plb						;get rid of 8-bits
	plb						;now restore the b-register	
;Restore D-reg.
	lda DirectStack+2,s
	tcd

	lda DS3+5,s
	sta DS3+7,s
	lda DS3+3,s
	sta DS3+5,s
	lda DS3+1,s
	sta DS3+3,s
	pla
	bra Exit0x

;
;This clears up the stack and restores registers
;
	EXPORT Exit0
Exit0
	tax						;save A-reg in X-reg
;Restore B-reg.
	lda DirectStack,s		;get saved B-reg. into bits 7-4
	pha						;save onto stack
	plb						;get rid of 8-bits
	plb						;now restore the b-register	
;Restore D-reg.
	lda DirectStack+2,s
	tcd

Exit0x
;Get rid of direct page from stack
	tsc						;get stack pointer
	clc
	adc #DS3				;take out direct page area and D & B reg. saves
	tcs
	
	txa						;restore A-reg.

;Dec. busy flag because were not reentereant
	pha						;save error for return
	jsl DecBusyFlg			;dec. busy flag
	pla						;restore error

	cmp #1					;sets carry if A-reg. not zero
	rtl
	ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCGetName
;
;  PURPOSE:		Returns the drivers name and version number.
;
;  PASSED:		McChannelNo		WORD	;channel number
;				NameStrPtr		LONG	;string ptr to buffer for returned
;										;driver name & version no.
;
;  RETURNED:	NONE
;
;-------------------------------------------------------------------
MCGetName 	PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
RetName 	long
ChannelNo	word

;Copy over the name and version of the driver
			PushLong #DriverNamStr
;Get the destiniation from the passed RetName
			lda RetName+6,s
			pha
			lda RetName+6,s
			pha
;Now get the no. of bytes from the string
			lda #0
			pha
			lda DriverNamStr	;get length of string
			and #$00ff			;mask only length
			inc a				;for strings length byte
			pha
			_blockmove			;move it

			lda #0
			jmp Exit6

;NOTE: ConnectPort must follow DriverNamStr (dont add anything between.)
			EXPORT DriverNamStr
DriverNamStr str 'MCToolkit PIONEER2000 1.0' ;NOTE: leave no trailing blank
			EXPORT ConnectPort
ConnectPort	dcb.b 36,0			;Connected ports name(stuffed by MCDStartUp)
			EXPORT DriverNLen
DriverNLen	dc.w ConnectPort-DriverNamStr-1

			ENDP
;-------------------------------------------------------------------
;
;  NAME:		MCDStartUp & MCDShutdown
;
;  PURPOSE:		Initializes and starts up the media device driver
;
;  PASSED:		McChannelNo		WORD	;channel number
;				PortNamePtr		LONG	;pointer to port name string
;				UserID			WORD	;drivers userid
;
;  RETURNED:	None
;
;-------------------------------------------------------------------
MCDStartUp 	PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
UserID		word
PortNamePtr	long
ChannelNo	word

;First lets see if its already been opened
			lda BeenOpen
			beq NotOpened		;branch if not open
			brl AlreadyOpen		;jmp if already opened
			
;Now init. a few things
NotOpened
			lda UserID,s
			sta DUserID			;save the drivers userid
;First copy over the selected ports name for MCGetName
			lda PortNamePtr+2,s	;get the high bytes of pointer
			pha
			lda PortNamePtr+2,s	;get the low bytes of pointer
			pha
			pushlong #ConnectPort	;destination
			pushlong #36		;no. of bytes to move
			_blockmove			;move it
;Now adjust the string length bytes and put a blank in the ports length
			lda ConnectPort		;get port name length
			and #$00ff			;only want length
			sec					;because we want one more (for blank)
			adc DriverNLen		;add to drivers name
			sep #$30			;8-bit mode
			sta DriverNamStr
			rep #$30			;back to 16-bit mode
			lda ConnectPort
			and #$ff00			;and out ports length byte
			ora #$0020			;or in a blank char.
			sta ConnectPort

;Now copy over the selected ports name for opening
			lda PortNamePtr+2,s	;get the high bytes of pointer
			pha
			lda PortNamePtr+2,s	;get the low bytes of pointer
			pha
			pushlong #DIDevName+3	;destination
			pushlong #36		;no. of bytes to move
			_blockmove			;move it

;Now see that "Game Port" was specified.
			sep #$30
			longa off
			longi off
			ldx GamePortStr		;get length of string
ChkPortLoop
			lda GamePortStr,x
			cmp DIDevName+3,x
			bne InValErr
			dex
			bpl ChkPortLoop
			
			longa on
			longi on
			rep #$30
;Correct port was selected for this driver, Now finish up
			lda DIDevName+3		;now convert from P-string to GS/OS string
			and #$00ff
			sta DIDevName+2
			beq InvalErr		;branch if null name specified
			bra SelGSOSDev		;branch 
			
InvalErr
			rep #$30			;make sure 16-bit mode
			lda #InvalidPort
errOutjmp	bra NotFound		;else return with invalid port error

SelGSOSDev
;Now we have opened the device
			inc BeenOpen

AlreadyOpen
			lda #0
NotFound
        	jmp Exit8
			
			EXPORT CtrlERROR
CtrlERROR	dc.W	0			;*******************************
GamePortStr	str 'GAME PORT'
			
;--------------------------------------------------------------------
; MCDShutDown Code
;--------------------------------------------------------------------
			EXPORT MCDShutDown
MCDShutDown
			stz BeenOpen		;clear flag so we know its closed
			jmp Exit2
			
;--------------------------------------------------------------------
; MCReadPStr Code
;
; P-2000 NOTE: A bunch of this isn't needed, all we really want to do is
; return with carry clear if command is completed within TimeOut value
; and carry set and (A-reg.)=error value if not completed in time.
;--------------------------------------------------------------------
			EXPORT MCReadPStr
MCReadPStr
			lda #255
			sta Max_Chars		;set max. no. of chars. to 255
			lda #1
			sta Buff_Index		;want chars. starting at offset of one
			stz GSOS_Str		;indicate p-string
			lda #ReceiveStr
			sta DP0
			lda #^ReceiveStr
			sta DP2				;set pointer to where to store received chars.
			ldx #$007f			;default mask to $7f
			lda #13				;default term. char. to CR
			ldy #60				;default timeout to 60/60ths (1 sec.)

;First init. a few things
			sta TermChar
			stx TermMask
			sty TimeOut
;--------------------------------------------------------------------
;MCReadPStr2:This is another entry point used by MCGetRawData routine
;--------------------------------------------------------------------
			EXPORT MCReadPStr2
MCReadPStr2
			stz Chars_Read		;init. no. of chars. read
GetAnother
;Now get start tick value
			pha
			pha					;space for result
			_GetTick			;get current tick value
			PullLong Test_Tick
			stz over_flag		;init over flag
			lda TimeOut			;get specified no of ticks wait period
			clc
			adc Test_Tick
			sta Test_Tick		;add to tick for termination tick value
			lda Test_Tick+2
			adc #0
			sta Test_Tick+2
			bcc Try_Read
			inc over_flag
Try_Read
;Now see if the command has completed
			jsr CheckDone		;see if command was done
			bcs GotAChar		;branch if command is done
;We didn't completed the command, so check for timeout
			pha
			pha
			_GetTick			;get current tick count
			PullLong Curr_Tick
;Now compare tick values
			lda over_flag		;get overflow flag
			beq notov			;branch if not
			lda Curr_Tick+2		;look at high word
			cmp #$ffff
			beq Try_Read		;go try reading again 
notov
			lda Curr_Tick+2
			cmp Test_Tick+2
			beq KeepTrying
			bcs Time_over
KeepTrying
			lda Curr_Tick
			cmp Test_Tick
			bcs Time_over		;branch if exceeded time
			jmp Try_Read
			
;We arrive here when the command has completed
GotAChar

			clc
ReadErrorX	rts
Time_over	sec
			lda #TimeOutErr
			rts
			
Chars_Read	ds.w	1			;indicates no. of chars. read
			EXPORT GSOS_Str
GSOS_Str	ds.w	1			;gs/os string flag (0=p-str, not zero=GS/OS)
			EXPORT Buff_Index
Buff_Index	ds.w	1			;buffer index
			EXPORT Max_Chars
Max_Chars	ds.w	1			;max. chars. want to read
			EXPORT TermChar
TermChar	dc.w 	13			;termination character
TermMask	dc.w	$007f		;termination mask value
			EXPORT ErrorChr
ErrorChr	dc.w	69			;Devices Error character
over_flag	dc.w	0			;over flag
			EXPORT ReceiveStr
ReceiveStr	ds.b	256			;received string buffer
Test_Tick	ds.l	1
Curr_Tick	ds.l	1
			EXPORT TimeOut
TimeOut		dc.w	60			;stuffed timeout tick count
			EXPORT ScratchStr
ScratchStr	ds.b	255			;scracth string buffer area

;--------------------------------------------------------------------
; MCWritePStr Code
;--------------------------------------------------------------------
			EXPORT MCWritePStr
MCWritePStr
			DefineStack
			block	DirectStack
			block	1
			block	2
			block	3
			block	3
PStringPtr	long	
			
			EXPORT MCWritePStr2
MCWritePStr2
;All this funky code sets up the stack to look like it was a tool entry
;so we can call this routine from either assembly or Pascal.


;First put an extra RTL onto stack (that when RTL'd to will just RTL to
;where we want to actually return to)
			jsl ExtraRTl
			rtl
ExtraRTL
;
;Now save the direct page, bank and setup stack frame (like tool entry would)
;
			jsl IncBusyFlg				;inc. busy flag
			phd							;save direct page
			phb							;save bank register
;set bank register (B-reg.) to programs bank (K-register)
			phk
			plb
;reserve 10 bytes from stack for direct page
			tsc							;get stack value
			sec
			sbc #DirectStack			;reserve 10 bytes for d-page
			tcs
			inc a						;inc. by one for d-page start
			tcd							;set direct page address

			lda GSOSFlag		;Is this a GS/OS or P_String?
			beq WantPStr		;branch if want P_String
;We arrive here if we are passing a GSOS string
			lda PStringPtr,s
			sta DP0
			clc
			adc #2				;inc. past length word
			sta WBuffAddr
			lda PStringPtr+2,s
			sta DP0+2
			adc #0
			sta WBuffAddr+2
			lda [DP0]			;get length count
			sta WreqCount		;set request count
			bra go_on

;We arrive here if we are passing a P_string.
;Now get passed Pstring pointer off stack and set buffer addr and count
WantPStr
			lda PStringPtr,s
			sta DP0
			inc a				;inc. past byte count
			sta WBuffAddr
			lda PStringPtr+2,s
			sta DP0+2
			sta WBuffAddr+2
			lda [DP0]			;get byte count
			and #$00ff
			sta WreqCount		;set request count
			
go_on
;Here is where we output each character to the device
			sep #$30			;want 8-bit mode
			longa off
			longi off

			ldy #1
Out_loop
			lda [DP0],y			;get character
			phy					;save location
			
			rep #$30			;want 16-bit mode for this call
			jsr SendCmd			;send it to the device
			sep #$30			;back to 8-bit mode
			
			ply					;restore location index
			iny					;inc. to next byte
			tya
			cmp [DP0]			;see if at the end
			beq Out_loop		;loop for last char.
			bcc Out_loop		;loop for all chars. in string
			rep #$30
			longa on
			longi on
			
			lda NeedWait
			beq nwError			;branch if not looking for response
			jsr MCReadPStr		;wait for command to complete or timeout
			bcs WriteError
nwError		lda #0				;not an error return
			clc
WriteError
			stz NeedWait		;default back to not waiting
			stz GSOSFlag		;default back to p_strings
			jmp Exit4



;--------------------------------------------------------------------
; Subroutine WaitResponse
;--------------------------------------------------------------------
			EXPORT WaitResponse
WaitResponse
			jsr MCReadPStr		;wait for response
			bcc noWRError
			rts
noWRError	lda #0				;not an error return
			rts
			
			EXPORT NeedWait
NeedWait	dc.w	0			;if set will cause wait for response
			EXPORT GSOSFlag
GSOSFlag	dc.w	0			;if set, will assume GSOS passed string
;=====================================================================

BeenOpen	dc.w	0			;flag to determine if this driver is open (0=closed)
			EXPORT DUserID
DUserID		dc.w	0			;saved drivers userid
MyError		dc.w	0
WantGSID	dc.w	0			;wanted GSOS device ID

DIDevName	ds.w	36			;GSOS returned device name string
			EXPORT WBuffAddr
WBuffAddr	dc.l	0			;passed buffer address
			EXPORT WreqCount
WreqCount	dc.l	0			;Passed no. of bytes to write

			ENDP

;-------------------------------------------------------------------
;
;  NAME:		WriteWaitPStr
;
;  PURPOSE:		Write a P-String and wait for response from device
;
;  PASSED:		P-String		Pointer	;pointer to p-string for output
;
;  RETURNED:	carry=clear if no errors (device responded OK)
;
;-------------------------------------------------------------------
WriteWaitPStr  	PROC
			DefineStack
RTL1		block	3
PStringPtr 	long

			lda #1
			sta NeedWait		;flag need to wait for response
			jmp MCWritePStr

 
			ENDP

;-------------------------------------------------------------------
;
;  NAME:		CvtTime2ASCII
;
;  PURPOSE:		To convert a BCD time value to an ASCII string.
;				Long of HHMMSS00 BCD to HMMSS ASCII string
;
;  PASSED:		Stuff MyBCDTime (LONG) with BCD time value to convert
;
;  RETURNED:	ScratchStr will have the resultant ASCII P-string
;
;-------------------------------------------------------------------
CvtTime2ASCII PROC
			
;Now do the real work in 8-bit mode
			sep #$30				;set to 8-bit mode
			longa off
			longi off
			lda #5
			sta ScratchStr			;init byte count
;First do hours
			lda MyBCDTime+3
			and #$0f				;this player can only do max 9 hours
			ora #$30				;make ascii
			sta ScratchStr+1
;Now do minutes (tens position)
			lda MyBCDTime+2
			lsr A
			lsr A
			lsr A
			lsr A
			ora #$30				;make ascii
			sta ScratchStr+2
;Now do minutes (ones position)
			lda MyBCDTime+2
			and #$0f
			ora #$30
			sta ScratchStr+3
;Now do Seconds (tens position)
			lda MyBCDTime+1
			lsr A
			lsr A
			lsr A
			lsr A
			ora #$30
			sta ScratchStr+4
;Now do Seconds (ones position)
			lda MyBCDTime+1
			and #$0f
			ora #$30
			sta ScratchStr+5
			longa on
			longi on
			rep #$30				;set 16-bit mode
			rts
			
			EXPORT MyBCDTime
MyBCDTime	dc.l	0				;storage space for BCD Time
			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCGetFeatures
;
;  PURPOSE:		Returns the drivers features
;
;  PASSED:		Result			LONG	;space for result
;				Channel			WORD	;channel no.
;				Selector		WORD	;feature selector value
;
;  RETURNED:	FeatureVal		LONG	;returned driver feature value
;
;-------------------------------------------------------------------
MCGetFeatures 	PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
Selector	word
ChannelNo	word
FeatureVal 	long		

			lda Selector,s			;get feature selector value
			asl a					;times 4 for longs
			asl a
			tax						;use as index into table
			lda #BadSelector		;assume selector value is bad
			cpx #MaxFeature			;is it beyond max value?
			bcs OutOfHere			;branch if bad
			
			lda FeatureTbl,x		;get return value
			sta FeatureVal,s
			lda FeatureTbl+2,x
			sta FeatureVal+2,s
			lda #0
OutOfHere	jmp Exit4
FeatureTbl
			dc.l	7				;mcFTypes -does frames, times and chapters
			dc.l	90				;mcFStep -Max. step value
			dc.l	0				;mcFRecord -record
			dc.l	1				;mcFVideo -does video function
			dc.l	1				;mcFEject -does eject function
			dc.l	0				;mcFLock -doesnt do user key lock
			dc.l	1				;mcFVDisplay -does video location display
			dc.l	0				;mcFVOverlay -No. of lines of char. video overlay
			dc.l	0				;mcFVOChars -Video overlay no. of chars. per line
			dc.l	0				;mcFVolume -doesn't support volume
MaxFeature	equ *-FeatureTbl
			ENDP


;-------------------------------------------------------------------
;
;  NAME:		MCPlay
;
;  PURPOSE:		To put the device in play mode
;
;  PASSED:		McChannelNo		WORD	;channel number
;
;  RETURNED:	None
;
;-------------------------------------------------------------------
MCPlay  	PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
ChannelNo	word


			lda CurrSpeed				;get current speed
			cmp #30
			bne NotNormal
;We arrive here if its just a normal speed play forward
			lda #$0017					;get play command
FinishUp
			jsr SendCmd					;set play command
			lda #30
			sta CurrSpeed				;default current speed back to normal
			lda #0
			jmp	Exit2
NotNormal
;We arrive here when we have done an MCSpeed previously
;First we need to put the p2000 into step mode so the speed wont change
;while we calibrate where we are.
			lda #$0054
			jsr SendCmd
			lda LastStep				;get last step value
;			bpl NoCalNeeded				;branch if no calibration needed
;Now, we need to calibrate to the highest speed X3
			lda #9
			sta CalCtr
CalLoop
			lda #$47					;do a speed up
			jsr SendCmd
			dec CalCtr
			bne CalLoop
			stz LastStep				;now set last step to where we are
;Now we know we are at the highest speed X3, so now we can
;set the device to the correct speed
NoCalNeeded
			lda LastStep				;get last step value
			sec
			sbc P2000Steps				;subtract where we want to go
			sta CalCtr					;set counter
			beq Finish					;branch if already there
			bmi GoDown			
SetLoopD
			lda #$0047					;speed up
			jsr SendCmd
			dec CalCtr
			bne SetLoopD				;loop for no. of times need to change

;Now we are at the correct speed, now just do a mulit speed fwd. or rev.
Finish
			lda P2000Steps
			sta LastStep				;set last step to where we are
			lda #$0058					;default multi fwd.
			ldx CurrSpeed
			bpl FinishUp
			lda #$0055					;else multi rev.
			bra FinishUp
;Here we need to speed things down
GoDown
			lda #$0046					;speed down
			jsr SendCmd
			inc CalCtr
			bpl Finish					;branch when done
			bra GoDown
			
			
CalCtr		ds.w	1					;calibtration counter area
			EXPORT LastStep
LastStep	dc.w	-1					;default for when just loaded
			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCPause
;
;  PURPOSE:		To put the device in "pause" mode
;
;  PASSED:		McChannelNo		WORD	;channel number		
;
;  RETURNED:	None
;
;-------------------------------------------------------------------
MCPause  	PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
ChannelNo	word



;First we do a pause command and then a still
;(This pause is for CD's, they'll ignore the step command)
			lda #$0018			;pause command
			jsr SendCmd
;Now we do the step command (because video doesn't go to blue screen)
			lda #$0054			;get still command
			jsr SendCmd			;set pause command
			lda #0
			jmp	Exit2

			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCSendRawData
;
;  PURPOSE:		To send raw data commands to the device
;
;  PASSED:		mcChannelNo		WORD	;channel number
;				NativePtr		LONG	;pointer to string to send
;
;  RETURNED:	None
;
;-------------------------------------------------------------------
MCSendRawData  	PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
RawData		LONG
ChannelNo	word

;Just get the Raw Data GSOS-string pointer from stack to pass on
			lda RawData+2,s
			pha
			lda RawData+2,s			;plus 2 because we just pushed 2
			pha
			lda #1
			sta GSOSFlag			;set flag indicating gsos string
			jsl MCWritePStr
			
			jmp	Exit6
			
			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCGetStatus
;
;  PURPOSE:		To return status about the device
;
;  PASSED:		returned		WORD	;space for returned word
;				McChannelNo		WORD	;channel number
;				MCStatusSel		WORD	;Status Selector value
;
;  RETURNED:	StatusInfo		WORD	;Status information
;
;-------------------------------------------------------------------
MCGetStatus PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
StatusSel	word
ChannelNo	word
Returned	word

			ldx #mcSUnknown			;This device doesn't return any status
			lda StatusSel,s			;get status selector value
;------------------------------------------
; mcSDeviceType: This determines the device type 
;------------------------------------------
			cmp #mcSDeviceType
			bne TryNext0
			lda #mcSLaserCD			;return combination type player
			sta Returned,s
			lda #0
			bra ExitOutX
TryNext0			
			cmp #mcSPlayStatus
			bne TryNext1
;------------------------------------------
; mcSPlayStatus: This determines the devices play status
;------------------------------------------
;We arrive here x-reg. equal to returned value
ExitOut
			txa
			sta Returned,s			;set returned value
			lda #UnImp				;return unimplemented error
ExitOutX
			jmp Exit4				;return

;------------------------------------------
; mcSDoorStatus: This does the door status (this device doesnt return such status)
;------------------------------------------
TryNext1
			cmp #mcSDoorStatus
			beq ExitOut

;------------------------------------------
; mcSDiscType: This determines the discs status selected commands
;------------------------------------------
			cmp #mcSDiscType		;is it a disc type selector value
			bne TryNext2
			bra ExitOut

TryNext2
			cmp #mcSDiscSize
			bne TryNext3
;------------------------------------------
; mcSDiscSize: We now do the Disc Size
;------------------------------------------
			bra ExitOut
			
TryNext3
			cmp #mcSDiscSide
			bne TryNext4			;branch, must be an invalid selector
;------------------------------------------
; mcSDiscSide: We now do the Disc Side
;------------------------------------------
			bra ExitOut
TryNext4
			cmp #mcSVolumeL
			bne TryNext5			;branch, try right volume
;------------------------------------------
; mcSVolumeL: We now do the left volume value
;------------------------------------------
			jmp ExitOut
TryNext5
			cmp #mcSVolumeR
			bne InvalidSel			;branch, invalid selector
;------------------------------------------
; mcSVolumeR: We now do the right volume value
;------------------------------------------
			jmp ExitOut
;We arrive here with an invalid selector value
InvalidSel
			lda #BadSelector
			jmp Exit4
			
			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCControl
;
;  PURPOSE:		To issue information to control the device
;
;  PASSED:		McChannelNo		WORD	;channel number
;				CtlCommand		WORD	;control command value
;
;  RETURNED:	None
;
;-------------------------------------------------------------------
MCControl 	PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
CtlCommand	word
ChannelNo	word

			lda CtlCommand,s
			cmp #mcCInit			;see if its an init
			bne Try2
;
;mcCInit - Its Init time
;
			lda #0
			sta BlankNextVideo		;set not to blank next video search
			lda #30 
			sta CurrSpeed			;set current speed to 30 fps (normal)
			bra OneRejCmd			;do just one reject command			
			
Try2		cmp #mcCEject			;see if its an eject command
			bne Try3
;
;mcCEject - Its Eject time
;
			lda #$0016				;do a reject command
			jsr SendCmd
OneRejCmd
			lda #$0016				;do it twice to eject disc
FinishOut
			jsr SendCmd				;do command

NoErrors
			lda #0			
ExitOutJ	jmp	Exit4

Try3		cmp #mcCVideoOn
			bne Try4
;
;mcCVideoOn - Turn video On time
;
			lda #$005f				;do ESC
			jsr SendCmd
			lda #$0003				;Video Normal
			bra FinishOut
			
Try4		cmp #mcCVideoOFF
			bne Try5
;
;mcCVideoOff - Turn video Off time
;
			lda #$005f				;do ESC
			jsr SendCmd
			lda #$0002				;Video Squelch
			bra FinishOut
			
Try5		cmp #mcCDisplayOn
			bne Try6
;
;mcCDisplayOn - Turn location video display On
;
			lda #$005f				;do ESC
			jsr SendCmd
			lda #$0007				;Display Normal (un-squelched)
			jsr SendCmd
			lda #$0043				;toggle display (hopefully on)
			jmp FinishOut
			
Try6		cmp #mcCDisplayOff
			bne Try7
;
;mcCDisplayOff - Turn location video display Off
;
			lda #$005f				;do ESC
			jsr SendCmd
			lda #$0006				;Display Squelched
			jsr SendCmd
			lda #$0043				;toggle display (should be off)
			jmp FinishOut

Try7		cmp #mcCBlankVideo
			bne Try8
;
;mcCBlankVideo - Turn display off on next search command
;
			lda #1
			sta BlankNextVideo		;turn blank video on
			jmp NoErrors			;exit with no errors
			
Try8
			cmp #mcCDefaultCom
			bne Try9
;
;mcCDefalultCom - Do default communications here
;
;Note: No default comm stuff required
			jmp ErrorOut

Try9		cmp #mcCBaudDflt
			bcc TryDSBits
			cmp #mcCBaud19200+1
			bcs TryDSBits
;
;mcCBaud... - Change baud rate
;

TryDSBits	cmp #mcC8Data1Stop		;see if withing range of data stop selector
			bcc Try10
			cmp #mcC5Data2Stop+1
			bcs Try10
			bra ErrorOut

Try10		cmp #mcCModem			;see if modem port selection
			bne Try11				;branch if not
;
;mcCPrinter - switch to printer port
;
			bra ErrorOut

Try11		cmp #mcCPrinter			;see if printer port selection
			bne Try12				;branch if not
;
;mcCPrinter - switch to printer port
;
			bra ErrorOut

Try12		cmp #mcCLockDev
			bne Try13
;
;mcCLockDev - Lock device from user control
;
			bra ErrorOut
			
Try13		cmp #mcCUnLockDev
			beq ErrorOut
;
;mcCUnLockDev - UnLock device for user control
;

;
;mcCIgnoreDS
;
			cmp #mcCIgnoreDS
			beq ErrorOut
;
;mcCReportDS
;
			cmp #mcCReportDS
			beq ErrorOut


;
;We arrive here with an invalid command
;
TryX		lda #BadSelector

ExitJ		jmp Exit4
ErrorOut	lda #Unimp
			bra ExitJ
			
			EXPORT BlankNextVideo
BlankNextVideo dc.w	0				;blank next video flag (0=no, 1=yes)
			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCScan
;
;  PURPOSE:		To scan forward or reverse.
;
;  PASSED:		McChannelNo		WORD	;channel number
;				ScanDir			WORD	;scan direction (Pos fwd, neg. rev.)
;
;  RETURNED:	None
;
;-------------------------------------------------------------------
MCScan  	PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
ScanDir 	Word
ChannelNo	word

			
			ldx #20
			stx RepeatCtr			;init. repeat counter

Loop
			lda ScanDir,s			;get direction of scan
			bmi	GoReverse			;branch if reverse			


			lda #$0010				;get scan fwd command
Cont1
;We need to continously assert this command for a few times so we
;must use a delay-A value between commands.  (This tells the device
;that we like holding down the button and want to skip fwd. or rev. until
;we let up.)
			ldx #40					;for a delay of 20 ms (delay-A)
			jsr SendCmd2			;do scan fwd command
			dec RepeatCtr			;dec. counter
			bne Loop				;loop until zero

			lda #0
			jmp	Exit4
GoReverse
			lda #$0011				;get scan rev. command
			bra Cont1
			
RepeatCtr	dc.w	1				;repeat counter
			
			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCGetSpeeds
;
;  PURPOSE:		To return a list of available speeds that can be played
;
;  PASSED:		mcChannelNo		WORD	;channel number
;				PStringPtr		LONG	;P string pointer to returned speeds
;
;  RETURNED:	NONE
;
;-------------------------------------------------------------------
MCGetSpeeds PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
PStringPtr	Long
ChannelNo	word

;Copy over the available speeds
			PushLong #SpeedStr
;Get the destiniation from the passed PStringPtr
			lda PStringPtr+6,s
			pha
			lda PStringPtr+6,s
			pha
;Now get the no. of bytes from the string
			lda #0
			pha
			lda SpeedStr		;get length of string
			and #$00ff			;mask only length
			inc a				;for strings length byte
			pha
			_blockmove			;move it

			jmp	Exit6			;exit
			
SpeedStr	str	'1,2,4,8,15,30,60,90'
			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCSpeed
;
;  PURPOSE:		To set the speed for the next mcPlay command
;
;  PASSED:		mcChannelNo		WORD	;channel number
;				Speed			WORD	;speed value(+ or -)
;
;  RETURNED:	none
;
;  NOTE:*****	Could add stopping address to this command?
;-------------------------------------------------------------------
MCSpeed PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
Speedval	word
ChannelNo	word

			
			lda Speedval,s			;get the speed value
			bpl IsPlus				;branch if forward
			eor #$ffff				;minus, make plus
			inc a
IsPlus
;Now check to see if its a vaild speed
			ldx #VSpeedsEnd-ValidSpeeds-2
ChkLoop		cmp ValidSpeeds,x
			beq SpeedOK				;branch if valid speed
			dex
			dex
			bpl ChkLoop
			lda #BadSpeed			;speed not valid error
			jmp Exit4
SpeedOK
			lda P2000Trans,x
			sta P2000Steps			;set no. of steps
			
			lda Speedval,s
			sta CurrSpeed			;save as current speed setting
			lda #0
			jmp Exit4

ValidSpeeds
			dc.w	1
			dc.w	2
			dc.w	4
			dc.w	8
			dc.w	15
			dc.w	30
			dc.w	60
			dc.w	90
VSpeedsEnd

P2000Trans
			dc.w	7
			dc.w	6
			dc.w	5
			dc.w	4
			dc.w	3
			dc.w	2
			dc.w	1
			dc.w	0
			
			EXPORT P2000Steps
P2000Steps	dc.w	2			;assume 30 fps (normal)
			EXPORT CurrSpeed
CurrSpeed	dc.w	30			;current speed setting
			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCStopAt
;
;  PURPOSE:		To set the point the device is to stop at
;
;  PASSED:		McChannelNo		WORD	;channel number
;				McUnitType		WORD	;unit type
;				StopLoc			Long	;stop location
;
;  RETURNED:	None
;
;-------------------------------------------------------------------
MCStopAt  	PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
StopLoc		Long
mcUnitType	word
ChannelNo	word

			
;To set an auto stop location on the Pioneer-2000 player we
;need to send the following command sequence
;		$5f $00 $digits $54 $42 {ESC 00 digits step_fwd search} for frames
;		$5f $01 $digits $54 $42 {ESC 01 digits step_fwd search} for chapters

;First lets do the ESC command
			lda #$005f				;esc
			jsr SendCmd				;do esc command

			lda mcUnitType,s		;get unit type
			cmp #InFrames
			bne TryChap				;branch if not chapters
;
;We arrive here if its specified as a FRAME location
;
			lda #0					;esc 0 means auto stop on frame
GoOn
			jsr SendCmd				;do command
;Now do the step fwd command
			
;NOTE: The returned integer string isn't a p-string (string length
;is returned, right justified with leading blanks)
;We use 5 as the normal and max. value: HMMSS and FFFFF for frame values
			lda #5
			sta ScratchStr			;so set the length to the max.
			
			lda StopLoc+2,s			;get high word
			pha						;push value to be converted
			lda StopLoc+2,s
			pha
			PushLong #ScratchStr+1
			PushWord #5
			PushWord #0
			_Long2Dec				;convert to ASCI decimal string
;Now we have a real p-string a ScratchStr
			bcs ErrorOut			

FinishOut
;Now we need to change from ascii to hex digits by anding out high bits
			sep #$30
			longa off
			longi off
			ldx ScratchStr				;get length byte
CHexLoop
			lda ScratchStr,x
			and #$0f					;make hex
			sta ScratchStr,x
			dex
			bne CHexLoop
			rep #$30
			longa on
			longi on

;This sends the address value to the device
			PushLong #ScratchStr
			jsl MCWritePStr			;write the stop address
			
;And this finishes off with the step fwd and search command to make it happen
			lda #$0054				;now do the stepfwd command
			jsr SendCmd				;set step fwd command
			lda #$0042
			jsr SendCmd				;do a search command

			lda #0					;return no errors			
ErrorOut	jmp	Exit8
TryChap
			cmp #InChapters
			bne TryTimes			;branch if not in time
;
;We arrive here if its specified as CHAPTERS
;
			lda #1					;for chapters
			bra GoOn

TryTimes	cmp #InTimes
			bne InError				;branch if not one of the above
;
;We arrive here if its specified as TIME
;
			lda StopLoc,s			;get stop location (ffss)
			sta MyBCDTime			;stuff for routine
			lda StopLoc+2,s			;get stop location (mmhh)
			sta MyBCDTime+2			;stuff for routine
			jsr CvtTime2ASCII		;convert BCD time to ASCII string at ScratchStr
			lda #0					;esc 0 means auto stop on frame/time
			jsr SendCmd				;do command

			bra FinishOut			;finish up
;
;We arrive here with an invalid unit specified type
;
InError
			lda #BadUnitType
			jmp Exit8
			
			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCJogN
;
;  PURPOSE:		To jog njog units forward or backwards.
;
;  PASSED:		McChannelNo		WORD	;channel number
;				mcUnitType		Word	;unit type
;				nJog			Long	;units to jog
;										; for InFrames, no. of frames to jog
;										; for InChapters, no. of chapters to jog
;										; for InTimes, (HHMMSSxx) jog distance
;				jogrepeat		WORD	;repeat counter
;										;(if negative value, jog reverse nJog units)
;
;  RETURNED:	None
;
;-------------------------------------------------------------------
MCJogN  	PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
JogRepeat	word
nJog		Long
mcUnitType	word
ChannelNo	word


;This checks that the nJog value and JogRepeat aren't zero
			lda nJog,s
			ora nJog+2,s
			beq ValuesBad			;branch if njog is zero
			lda JogRepeat,s
			bne ValuesOK			;branch out if jogrepeat not zero
ValuesBad
			lda #InvalidParam		;return with invalid parameter error
			jmp Exit10
ValuesOK


			lda JogRepeat,s
			sta RCounter			;init repeat counter
			
			lda mcUnitType,s		;get unit type
			cmp #InFrames
			beq ItsFrames
			jmp NotFrames
;---------------------------------------
;
;We do FRAME jog here
;
;---------------------------------------
ItsFrames
FrameLoop
			lda nJog,s				;get jog word
			sta XCounter
			lda JogRepeat,s
			bmi RevDir				;branch if reverse direction
;Going forward
FwdFrames	lda #$0054				;do a step forward command
			jsr SendCmd				;send it
			dec XCounter			;dec. njog counter
			bne FwdFrames
			dec RCounter			;dec. repeat counter
			bne FrameLoop			;do another
OutJmp		jmp Exit10
;Going Reverse (Frames)
RevDir		lda #$0050				;do a step rev. command			
			jsr SendCmd				;send it
			bcs OutJmp
			dec XCounter			;dec. njog counter
			bne RevDir
			inc RCounter			;dec repeat counter
			bne FrameLoop			;do another
			jmp Exit10

NotFrames
			cmp #InTimes
			beq DoTimeMode			;branch if time mode selected
			jmp NotTime
;---------------------------------------
;
;We do TIME mode jog here
;
;---------------------------------------
DoTimeMode
			jmp ItsFrames			;do same as frames


NotTime
			cmp #InChapters
			beq DoDaChapter
;---------------------------------------
;
;We do Chapter mode jog here
;
;---------------------------------------
;
; We arrive here with an invalid unit specified type
;
InError		lda #BadUnitType
			jmp Exit10
DoDaChapter
ChapterLoop
			lda nJog,s				;get jog word
			sta XCounter
			lda JogRepeat,s
			bmi RevDirChp			;branch if reverse direction
;Going forward (Chapters)
FwdChpts	
			lda #$0052				;do a chapt skip fwd
			jsr SendCmd				;send it
			
			dec XCounter
			bne FwdChpts
			dec RCounter			;dec. repeat counter
			bne ChapterLoop
OutJmpC		jmp Exit10

;Going Reverse (Chapters)

RevDirChp	
			lda #$0053				;do a chapter skip rev.
			jsr SendCmd				;send it

			dec XCounter
			bne RevDirChp
			inc RCounter			;dec. repeat counter
			bne ChapterLoop
			lda #0
ExitOut		jmp Exit10

			EXPORT CR
CR			dc.b	2,13,10			;string composed of 1 byte
XCounter	dc.w	0				;intermediate counter
RCounter	dc.w	0				;repeat counter

			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCSearchTo
;
;  PURPOSE:		To start a search to searchloc.
;
;  PASSED:		McChannelNo		WORD	;channel number
;				mcUnitType		Word	;unit type
;				SearchLoc		Long	;units to jog
;
;  RETURNED:	None
;
;-------------------------------------------------------------------
MCSearchTo  PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
SearchLoc	Long
mcUnitType	word
ChannelNo	word

			lda mcUnitType,s		;get unit type
			cmp #InFrames
			beq ItsFrames
			jmp NotFrames
;---------------------------------------
;We do frame search here
;---------------------------------------
ItsFrames
			lda #$0041					;set to frame/time mode
			jsr SendCmd					;do command
GoOn
;NOTE: The returned integer string isn't a p-string (string length
;is returned, right justified with leading blanks)
;We use 5 as the normal and max. value: HMMSS and FFFFF for frame values
			lda #5
			sta ScratchStr				;so set the length to the max.
			
			lda SearchLoc,s				;get location
			tax
			lda SearchLoc+2,s
			pha
			txa
			pha
			PushLong #ScratchStr+1		;where to put string
			PushWord #5					;max. no of chars
			PushWord #0
			_Long2Dec
;So now we have a real p-string at ScratchStr
			bcs OutJmp
			
GoOn2
;now we need to change from ascii to hex digits
			sep #$30
			longa off
			longi off
			ldx ScratchStr				;get length byte
CHexLoop
			lda ScratchStr,x
			and #$0f					;make hex
			sta ScratchStr,x
			dex
			bne CHexLoop
			rep #$30
			longa on
			longi on
;Now output the location string
			PushLong #ScratchStr
			jsl MCWritePStr
;Finish up by outputing a search command
			lda #$0042					;for serach command
			jsr SendCmd					;do command
			lda #$00					;return no errors
OutJmp		jmp Exit8
NotFrames
			cmp #InTimes
			bne NotTime
;---------------------------------------
;We do time search here
;---------------------------------------
			lda #$0041					;set to frame/time mode
			jsr SendCmd					;do command

;Now convert BCD time to ASCII time for device
			lda SearchLoc,s
			sta MyBCDTime
			lda SearchLoc+2,s
			sta MyBCDTime+2
			jsr CvtTime2ASCII			;convert BCD time to ASCII string
			bra GoOn2

NotTime
			cmp #InChapters
			bne InError
;---------------------------------------
;We do Chapter search here
;---------------------------------------
			lda #$0040					;set to chapter mode
			jsr SendCmd					;do command
			jmp GoOn
;
; We arrive here with an invalid unit specified type
;
InError		lda #BadUnitType
			jmp Exit8
			EXPORT SetFrame
SetFrame	str		'FR'
			EXPORT SetTime
SetTime		str		'TM'
			EXPORT SetChapter
SetChapter 	str		'CH'
SearchCmd	str		'SE'
			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCSearchDone
;
;  PURPOSE:		To return status if search command is completed
;
;  PASSED:		returned		WORD	;space for result
;				McChannelNo		WORD	;channel number
;
;  RETURNED:	DoneStatus		WORD	;status if done (not zero
;										; indicates done)
;
;-------------------------------------------------------------------
MCSearchDone PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
ChannelNo	word
DoneStatus	word		;returned done status
			

			jsr CheckDone		;see if done
			lda #1				;assume done
			bcs IsDone			;branch if done
			lda #0				;else it wasnt done
IsDone		
			sta DoneStatus,s	;set return status
			lda #0				;cant return any errors
			jmp Exit2

			ENDP
			

;-------------------------------------------------------------------
;
;  NAME:		MCSearchWait
;
;  PURPOSE:		To wait until device has completed search command.
;
;  PASSED:		McChannelNo		WORD	;channel number
;
;  RETURNED:	None
;
;-------------------------------------------------------------------
MCSearchWait  	PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
ChannelNo	word



NotDone
			jsr CheckDone		;see if done
			bcc NotDone			;loop until done
			lda #0
			jmp	Exit2

			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCGetPosition
;
;  PURPOSE:		To return current position of device
;
;  PASSED:		returned		LONG	;space for result
;				McChannelNo		WORD	;channel number
;				mcUnitType		WORD	;passed unit type
;
;  RETURNED:	CurrPos			LONG	;Current Position
;
;-------------------------------------------------------------------
MCGetPosition PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
mcUnitType	word
ChannelNo	word
CurrPos		long		;returned current position
			
			
			lda #0
			sta CurrPos,s				;init. returned curr. position
			sta CurrPos+2,s
			
			lda mcUnitType,s
			cmp #InFrames			;want frames?
			bne TryTime
;-------------------------------------------------
;
;We return the Frame position here
;
;-------------------------------------------------
NoError		lda #UnImp
OutErr1		jmp Exit4

TryTime
			cmp #InTimes
			bne TryChapters
;--------------------------------------------------
;
;We get the time position here
;
;--------------------------------------------------
			bra NoError
			
TryChapters
			cmp #InChapters
			bne WrongSpec
;--------------------------------------------------
;
;We get the chapter position here
;
;--------------------------------------------------
			bra NoError

WrongSpec
			lda #BadUnitType
OutErrC1	jmp Exit4
			
			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCSetAudio
;
;  PURPOSE:		To control the audio portion
;
;  PASSED:		McChannelNo		WORD	;channel number
;				AudioCtrl		WORD	;audio control command no.
;
;  RETURNED:	None
;
;-------------------------------------------------------------------
MCSetAudio 	PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
AudioCtrl	word
ChannelNo	word

			lda AudioCtrl,s			;get audio control value
			cmp #AudioOff
			bne NotOff

			lda #$005f				;set ESC
			jsr SendCmd				;send command
			lda #$0004				;set audio squelch
			bra FinAudio
			
NotOff
			cmp #AudioLeft
			beq WantLeft
			cmp #AudioLinLR
			bne Not1On
WantLeft
;First un-squelch (incase it was squelched before)
			lda #$005f				;set ESC
			jsr SendCmd				;send command
			lda #$0005				;set normal (not squelched)
			jsr SendCmd				;send command

			lda #$004b				;set Audio 1/left
			bra FinAudio
Not1On
			cmp #AudioRight
			beq WantRight
			cmp #AudioRinLR
			bne Not2On
WantRight
;First un-squelch (incase it was squelched before)
			lda #$005f				;set ESC
			jsr SendCmd				;send command
			lda #$0005				;set normal (not squelched)
			jsr SendCmd				;send command

			lda #$0049				;set Audio 2/right
			bra FinAudio
Not2On
			cmp #AudioStereo
			bne NotAudio
DefaultSt
;First un-squelch (incase it was squelched before)
			lda #$005f				;set ESC
			jsr SendCmd				;send command
			lda #$0005				;set normal (not squelched)
			jsr SendCmd				;send command
			lda #$004a				;set stereo
FinAudio
			jsr SendCmd				;send the command

			lda #0					;return no errors
			jmp	Exit4

;Now see if its a valid audio command
NotAudio	cmp #AudioMonaural+1
			ldx #BadAudio			;assume bad audio value
			bcs ExitOut				;branch if bad audio value selected
			ldx #UnImp				;else return unimplemented for this device
ExitOut		txa						;put error into a-reg.
			jmp Exit4


			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCGetTimes
;
;  PURPOSE:		To return time value
;
;  PASSED:		returned		LONG	;space for result
;				McChannelNo		WORD	;channel number
;				mcTimeSelect	WORD	;passed time info selector
;
;  RETURNED:	TimeInfo		LONG	;Time information
;
;-------------------------------------------------------------------
MCGetTimes	PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
mcTimeSelect word
ChannelNo	word
TimeInfo	long		;returned time

			lda #UnImp			;This routine is unimplemented in this driver
			jmp Exit4
			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCGetNoTracks
;
;  PURPOSE:		To return no. of tracks/chapters on the disc.
;
;  PASSED:		returned		WORD	;space for result
;				McChannelNo		WORD	;channel number
;
;  RETURNED:	Tracks			WORD	;Tracks/Chapters on the disc
;
;-------------------------------------------------------------------
MCGetNoTracks PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
ChannelNo	word
Tracks		word		;result no. of tracks/chapters
			
			lda #UnImp			;This routine is unimplemented in this driver
			jmp	Exit2
			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCGetDiscTOC
;
;  PURPOSE:		To get a discs TOC (Table of Contents)
;
;  PASSED:		returned		LONG	;resultant BCD start of track value
;				McChannelNo		WORD	;channel number
;				TrackNo			WORD	;track no.
;
;  RETURNED:	DiscTOC			LONG	;BCD start of track value
;
;-------------------------------------------------------------------
MCGetDiscTOC PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
TrackNo		word
ChannelNo	word
DiscTOC		long				;resultant BCD start of track value
			
			lda #UnImp			;This routine is unimplemented in this driver
			jmp	Exit4
			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCGetDiscID
;
;  PURPOSE:		To get a discs unique ID
;
;  PASSED:		returned		LONG	;space for result
;				McChannelNo		WORD	;channel number
;
;  RETURNED:	DiscTOC			LONG	;Discs ID
;
;-------------------------------------------------------------------
MCGetDiscID PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
ChannelNo	word
DiscID		long		;returned discs ID
			
			lda #UnImp			;This routine is unimplemented in this driver
			jmp	Exit2
			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCRecord
;
;  PURPOSE:		To put the device in record mode
;
;  PASSED:		McChannelNo		WORD	;channel number
;
;  RETURNED:	None
;
;-------------------------------------------------------------------
MCRecord  	PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
ChannelNo	word



			lda #UnImp			;This routine is unimplemented in this driver
			jmp	Exit2
			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCStop
;
;  PURPOSE:		To stop the device
;
;  PASSED:		McChannelNo		WORD	;channel number
;
;  RETURNED:	None
;
;-------------------------------------------------------------------
MCStop      PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
ChannelNo	word

			lda #$0016
			jsr SendCmd			;now do a reject command
			lda #0
			jmp Exit2

			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCWaitRawData
;
;  PURPOSE:		To wait for raw data from the device
;
;  PASSED:		McChannelNo		WORD	;channel number
;				GSOSStringPtr	LONG	;pointer to gs/os resultant string tr.
;				TickWait		Word	;no. of ticks before timeout error
;				Term_Mask		Word	;terminal char. and mask char.
;
;  RETURNED:	None
;
;-------------------------------------------------------------------
MCWaitRawData PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
Term_Mask	word
TickWait	word
GSOSString	long				;pointer to result
ChannelNo	word

			lda GSOSString,s
			sta DP0
			lda GSOSString+2,s
			sta DP2
			lda #0				;set transfer count to zero
			ldy #2
			sta [DP0],y			;set transfer count into GS/OS string
			lda #UnImp			;return unimplemented error status
			jmp Exit8

			ENDP

;-------------------------------------------------------------------
;
;  NAME:		MCSetVolume
;
;  PURPOSE:		To set the volume on the device
;
;  PASSED:		McChannelNo		WORD	;channel number
;				LeftVolume		WORD	;Left volume value
;				RightVolume		WORD	;Right volume value
;
;  RETURNED:	None
;
;-------------------------------------------------------------------
MCSetVolume PROC
			DefineStack
ZPBlock		block	DirectStack
OrigB		byte
OrigD		word
RTL1		block	3
RTL2		block	3
RightVolume word
LeftVolume	word
ChannelNo	word


			lda #UnImp			;retun unimplemented
			jmp Exit6

			ENDP


		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/MediaCtl/Pioneer2000/P2000.make b/IIGS.601.SRC/A.U.G/MediaCtl/Pioneer2000/P2000.make
new file mode 100644
index 0000000..ba75a9e
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/MediaCtl/Pioneer2000/P2000.make
@@ -0,0 +1 @@
+#   File:       P2000.make
#   Target:     P2000
#   Sources:    P2000.aii 
#   Created:    Thursday, October 5, 1989 11:36:58 AM

P2000 ÄÄ P2000.make ¶
		P2000.aii.obj
	LinkIIGS  ¶
		P2000.aii.obj ¶
		-o P2000 -t $BB -at $0430
P2000.aii.obj Ä P2000.make P2000.aii
	AsmIIGS P2000.aii
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/MediaCtl/Release Notes.MediaCtl b/IIGS.601.SRC/A.U.G/MediaCtl/Release Notes.MediaCtl
new file mode 100644
index 0000000..d4b5644
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/MediaCtl/Release Notes.MediaCtl	
@@ -0,0 +1 @@
+MEDIA CONTROL PROJECT 6.0d51
Dan Hitchens x4-3117

OVERVIEW:
Fixed a few bugs.
 
MISCELLANEOUS CHANGES:
 ¥ APPLE CDSC Driver:
	-No changes this build
 ¥ Pioneer4200 Driver:
	-Fixed random timeout error bug.
 ¥ Pioneer2000 Driver:
	-No changes this build
 ¥ CDEV:
	-No changes this build
 ¥ MEDIACTL.NDA:
	-Fixed chapter/track display bug where it would become more than two digits
	 causing the display to overwite the time or frame information.
 ¥ Installer Scripts
	-No changes this build
	
BRC BUG FIXES:
 ¥ Apple CDSC Driver:
	
 ¥ Pioneer4200 Driver:
 	
 ¥ Pioneer2000 Driver:
 	
 ¥ CDEV:

 ¥ MEDIACTL.NDA:
	
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/VideoKeyboard/Key.a b/IIGS.601.SRC/A.U.G/VideoKeyboard/Key.a
new file mode 100644
index 0000000..66d42a8
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/VideoKeyboard/Key.a
@@ -0,0 +1 @@
+;_______________________________________________________
;
; File:		Key.a
; Project:	Video Keyboard
; Author:	Don J. Brady
;
; Copyright © Apple Computer, Inc. 1990-1991
; All rights reserved.
;_______________________________________________________

		
		PRINT	OFF

		INCLUDE	'M16.Event'			; toolbox macros
		INCLUDE	'M16.QuickDraw'
		INCLUDE	'M16.Resources'
		INCLUDE	'M16.MiscTool'
		INCLUDE	'M16.ADB'

		INCLUDE	'E16.Event'			; toolbox equates
		INCLUDE	'E16.QuickDraw'
		INCLUDE	'E16.MiscTool'
		INCLUDE	'E16.ADB'
		INCLUDE	'Key.equ'
		
		PRINT	ON



		IMPORT	_ownerid			; external data
		IMPORT	layouts
		IMPORT	KeyData
		IMPORT	keyWidths
		IMPORT	keyWidths_320
		IMPORT	decimalPoints
		IMPORT	modState
		IMPORT	keyWidth
		IMPORT	keyWidthReturn
		IMPORT	keyWidthESC
		IMPORT	use640
		IMPORT	start
		IMPORT	end
		IMPORT	temp
		IMPORT	currentKey
		IMPORT	newTime
		IMPORT	oldTime
		IMPORT	dblTime
		IMPORT	modKeys
		IMPORT	ADBFinished


		IMPORT	GetMouseTime			; external routines
		IMPORT	KillMouseEvent
		IMPORT	OkToUseCDAMenu

		ENTRY	MakeIndex			; forward referenced routines
		ENTRY	DrawKeyLegends
		ENTRY	InvertKey
		ENTRY	SelectKey
		ENTRY	ReleaseKey
		ENTRY	PostKey
		


;_______________________________________________________
; In:	none
;
; Out:	none
;
;_______________________________________________________

KeyStartUp	PROC	EXPORT

		LONGA	ON
		LONGI	ON

		
StackFrame	RECORD	1,INCR

index		DS.W	1			; local variables
sum		DS.W	1
lastRow		DS.W	1
hStart		DS.W	1
kTransID	DS.W	1
tempID		DS.W	1
language	DS.W	1
kTransRef	DS.L	1
kTransArray	DS.L	1
langMap		DS.L	1
doKeyTrans	DS.W	1
keyWidthsPtr	DS.L	1

_localSize	EQU	*-1
dSave		DS.W	1
rtlAddr		DS.B	3
_paramBegin	EQU	*
_paramSize	EQU	*-_paramBegin

		ENDR 
		
		IMPORT	dblTime
		IMPORT	keyboardRect:Rect
		IMPORT	keypadRect:Rect
		IMPORT	keys:Key
		IMPORT	strPER

		WITH	StackFrame

		phd				; allocate our stack frame
		tsc
		sec
		sbc	#_localSize
		tcs
		tcd

;--- begin ---
		stz	<doKeyTrans
		stz	<index

		pha
		_GetKeyTranslation
		pla
		and	#$00FF
		sta	<kTransID
		beq	getLanguage
		
		pha
		_GetCurResourceApp
		pla
		sta	<tempID

		lda	_ownerid
		pha
		_ResourceStartup

		pha
		pha
		pea	rKeyTrans
		pea	$0FFF
		lda	<kTransID
		ora	#$0600
		pha
		_GetROMResource
		pla
		plx
		sta	<kTransRef
		stx	<kTransRef+2
		ora	<kTransRef+2
		beq	getLanguage
		
		lda	[<kTransRef]		; dereference handle
		sta	<kTransArray
		ldy	#2
		lda	[<kTransRef],y
		sta	<kTransArray+2
		inc	<doKeyTrans

getLanguage
		pha
		pea	kyBdLang
		_ReadBParam
		pla
		and	#$000F
		sta	<language

		asl	a			; table of words
		tay
		lda	layouts,y
		sta	<langMap
		lda	#KeyData>>16
		sta	<langMap+2
	
		pha
		_GetMasterSCB
		pla
		and	#mode640
		sta	use640
		beq	@320
@640
		lda	#kbH2
		sta	keyboardRect.right
		lda	#kpH1
		sta	keypadRect.left
		lda	#kpH2
		sta	keypadRect.right
		lda	#kwRet
		sta	keyWidthReturn
		lda	#kwEsc
		sta	keyWidthESC
		lda	#kWidth
		sta	keyWidth
		lda	#keyWidths
		bra	@cont
@320
		lda	#kbH2_320
		sta	keyboardRect.right
		lda	#kpH1_320
		sta	keypadRect.left
		lda	#kpH2_320
		sta	keypadRect.right
		lda	#kwRet_320
		sta	keyWidthReturn
		lda	#kwEsc_320
		sta	keyWidthESC
		lda	#kWidth_320
		sta	keyWidth
		lda	#keyWidths_320
@cont
		sta	<keyWidthsPtr
		lda	#KeyData>>16
		sta	<keyWidthsPtr+2

		lda	#kRowY1
		sta	lastRow
		
		lda	keyboardRect.left
		sta	hStart
		sta	<sum
		
;--- init the printable legends based on the
;    language selected and translation resource:

		lda	#0
keyLoop	
		sta	<index
		jsr	MakeIndex
		
		lda	keys.keyFlag,x
		and	#kPrintable			; is this a printable key?
		beq	next				; no, so skip
		
		lda	<index
		jsr	GetASCIIValue
		sep	#$20
		sta	keys.keyLegends+kPlain,x
		tya
		sta	keys.keyLegends+kPlain+kOption,x
		rep	#$20

		lda	<index
		clc
		adc	#numBoardKeys
		jsr	GetASCIIValue
		sep	#$20
		sta	keys.keyLegends+kShift,x
		tya
		sta	keys.keyLegends+kShift+kOption,x
		rep	#$20

		lda	<index
		clc
		adc	#numBoardKeys*2
		jsr	GetASCIIValue
		sep	#$20
		sta	keys.keyLegends+kCaps,x
		tya
		sta	keys.keyLegends+kCaps+kOption,x	
		rep	#$20

;--- init keyWidth field:

next
		ldy	<index
		lda	[<keyWidthsPtr],y
		and	#$00FF
		sta	keys.keyWidth,x
	
;--- calculate keyOffset.h field by adding up key widths:

		jsr	CheckBounds

		lda	<sum
		sta	keys.keyOffset.h,x
		clc
		adc	keys.keyWidth,x
		sta	<sum
		
		lda	keys.keyOffset.v,x
		sta	<lastRow

		lda	<index
		inc	a
		cmp	#numTotalKeys
		bcc	keyLoop

		ldy	<language
		lda	decimalPoints,y
		and	#$00FF
		ora	#$2000
		sta	strPER+2

		lda	<kTransID
		beq	@double
		lda	<doKeyTrans
		beq	@skip

		pea	rKeyTrans
		pea	$0FFF
		lda	<kTransID
		ora	#$0600
		pha
		_ReleaseROMResource
@skip
		_ResourceShutdown

		lda	<tempID
		pha
		_SetCurResourceApp

@double	
		pha				; fetch the double-click time
		pha
		_GetDblTime
		pla
		sta	>dblTime
		pla
		sta	>dblTime+2

; bug fix, check if real caps lock key is down:

		sep	#$20
		lda	>KEYMODREG		; check the hardware register
		rep	#$20
		and	#kmrCapsLock		; is the capslock key down?
		beq	@end			; no, so skip

		lda	#iCapsLock
		jsr	MakeIndex
		lda	keys.keyFlag,x
		ora	#kSticky+kDown		; make capslock key sticky and down
		sta	keys.keyFlag,x
		lda	#kCaps
		sta	modState		; remember that capslock modifier is down
@end
;--- end ---		
		lda	<rtlAddr		; adjust return address
		sta	<rtlAddr+_paramSize
		lda	<rtlAddr+1
		sta	<rtlAddr+_paramSize+1
		
		tsc				; remove our stack frame and params
		clc
		adc	#_localSize+_paramSize
		tcs
		pld
		rtl

;------------------------------------------------
;
; In:	a-reg has key offset
;
; Out:	a-reg has acsii value for key
;	y-reg has ascii value for key+option
;	x-reg preserved
;------------------------------------------------

GetASCIIValue
		tay
		lda	[<langMap],y
		and	#$00FF				; get the ascii character for this key
	
		pha
		pha
		
		ldy	<doKeyTrans			; should we translate?
		beq	@done				; no

		tay
		lda	[<kTransArray],y		; translate char
		and	#$00FF
		sta	1,s
		tya
		clc
		adc	#128				; 2nd half of table has option chars
		tay
		lda	[<kTransArray],y		; translate char+option
		and	#$00FF
		sta	3,s
@done		
		pla
		ply
		rts

;------------------------------------------------
CheckBounds		
		lda	<index
		cmp	#numBoardKeys			; have we reached the keypad keys?
		bne	@nope

		lda	#kRowY1				; account for keypad now
		sta	<lastRow
		lda	keypadRect.left
		sta	<hStart
		sta	<sum
@nope
		lda	<lastRow
		cmp	keys.keyOffset.v,x		; have we reached a new row?
		bcs	@skip

		lda	<hStart				; start over
		sta	<sum
@skip		
		rts


		ENDP


;_______________________________________________________
;
; INPUT:	none
;
; OUTPUT:	none
;
;_______________________________________________________

KeyShutDown	PROC	EXPORT

		LONGA	ON
		LONGI	ON
		
talkR2A2	SET	talk+$22		; talk register 2 at address 2 (keyboard)

kMask		SET	((Å(kDown+kSticky))<<16)>>16

		IMPORT	PostKey
		IMPORT	R2Completion
		IMPORT	keys:Key

; first check if real capslock key is down
; if its not, then our data will also think its up

		lda	ModState		; do we think its down?
		and	#kCaps
		beq	@skip			; no, so skip rest of check
		
		stz	ADBFinished

		pea	R2Completion>>16	; completion routine
		pea	R2Completion
		pea	talkR2A2		; adb command
		_AsyncADBReceive		; install completion routine to check ADB reg 2
		bcs	@skip			; error, so skip
		
		lda	>TickCount
		clc
		adc	#3
		sta	Temp			; timeout time
@wait
		lda	>TickCount
		cmp	Temp			; have we timed out yet?
		bcs	@skip			; yes, so skip
		lda	ADBFinished		; has completion routine finished?
		beq	@wait			; no, keep waiting
@skip

;--- release any keys that are down:

		ldx	#0
@loop		
		phx
		txa
		jsr	MakeIndex
		
		lda	keys.keyFlag,x
		and	#kDown				; is the key down?
		beq	@next				; no, so try next key

		lda	keys.keyFlag,x
		and	#kMask				; clear kDown and kSticky flags
		sta	keys.keyFlag,x

		lda	keys.keyRawCode,x
		ldx	#keyUp
		jsr	PostKey				; post key up to ADB micro		
@next
		plx
		inx
		cpx	#numTotalKeys
		bcc	@loop

		lda	#iRightShift			; force right shift key up
		jsr	MakeIndex

		lda	keys.keyFlag,x
		and	#kMask				; clear kDown and kSticky flags
		sta	keys.keyFlag,x

		stz	modState

		rtl

		ENDP


;_______________________________________________________
;
; In:	a-reg has modifiers to set
;
; Out:	a-reg has new modifiers
;
;_______________________________________________________

ModifiersToSet	PROC

		LONGA	ON
		LONGI	ON

		tax

		and	#kControl			; if control key, then turn off all mods
		beq	noControl
		
		ldx	#0
		bra	done	
noControl
		txa
		and	#kModMask
		tax
		and	#kShift+kCaps			; if shift + caps, then turn off caps
		cmp	#kShift+kCaps
		bne	done

		txa
		and	#Å(kCaps)
		tax
done
		txa
		rtl

		ENDP
		

;_______________________________________________________
; INPUT:	a_reg has draw flag
;		(bit 0: keyboard, bit 1: keypad)
;
; OUTPUT:	none
;
;_______________________________________________________

DrawKeyboard	PROC	EXPORT

		LONGA	ON
		LONGI	ON

		IMPORT	DrawStaticLegends
		IMPORT	DrawKeyRects
		IMPORT	DrawkeyLegends

		cmp	#drawBoard
		beq	@board
		cmp	#drawPad
		beq	@pad
		cmp	#drawBoth
		bne	exit
@both
		ldx	#0				; start
		ldy	#numBoardKeys+numPadKeys-1	; end
		bra	draw

@board
		ldx	#0				; start
		ldy	#numBoardKeys-1			; end
		bra	draw
@pad
		ldx	#numBoardKeys			; start
		ldy	#numBoardKeys+numPadKeys-1	; end

draw							; x = start, y = end
		stx	start
		sty	end
		jsl	DrawStaticLegends

		ldx	start
		ldy	end
		jsl	DrawKeyRects

		lda	modState
		jsl	ModifiersToSet
		ldx	start
		ldy	end
		jsl	DrawKeyLegends
exit
		rtl

start		DS.W	1
end		DS.W	1

		ENDP


;_______________________________________________________
; INPUT:	none
;
; OUTPUT:	none
;
;_______________________________________________________

DrawKeyCaps	PROC	EXPORT

		LONGA	ON
		LONGI	ON
		
		IMPORT	DrawPrintableLegends
		IMPORT	DrawKeyLegends
		
		lda	modState
		jsl	ModifiersToSet
		jsl	DrawPrintableLegends
		
		ldx	#iPadPeriod			; start
		ldy	#iPadPeriod			; end
		lda	#0				; mods
		jsl	DrawKeyLegends

		rtl

		ENDP


;_______________________________________________________
;
; INPUT:	x-reg has starting index
;		y-reg has ending index
;
; OUTPUT:	none
;
;_______________________________________________________

DrawStaticLegends PROC

		LONGA	ON
		LONGI	ON

		IMPORT	genevaFont
		IMPORT	keys:Key

		stx	start
		sty	end
		
;--- if geneva font was installed then draw the static legends:
		
		lda	>genevaFont
		ora	>genevaFont+2
		beq	exit

		pha
		pha
		_GetFont				; save current font (on stack)
		
		lda	>genevaFont+2
		pha
		lda	>genevaFont
		pha
		_SetFont				; use  geneva font

		lda	use640
		beq	@320
@640
		lda	#6				; inset value
		bra	@set
@320
		lda	#3				; inset value
@set
		sta	inset
		
		lda	start
@loop
		sta	index
		jsr	MakeIndex
		
		lda	keys.keyFlag,x
		and	#kStatic			; is this a static legend?
		beq	@next
		
		lda	keys.keyDataPtr+1,x
		beq	@next

		lda	keys.keyDataPtr+2,x
		pha
		lda	keys.keyDataPtr,x
		pha

		lda	keys.keyOffset.h,x
		clc
		adc	inset
		pha
		lda	keys.keyOffset.v,x
		clc
		adc	#kHeight-1
		pha
		_MoveTo
		_DrawString
@next
		lda	index
		inc	a
		cmp	end
		bcc	@loop
		beq	@loop

		_SetFont				; restore current font (from stack)

exit
		rtl

start		DS.W	1
end		DS.W	1
index		DS.W	1
inset		DS.W	1

		ENDP

		
;_______________________________________________________
; INPUT:	x_reg = start
;		y_reg = end
;		a_reg = set
; Out:	none
;_______________________________________________________

DrawKeyLegends	PROC

		LONGA	ON
		LONGI	ON
		
		IMPORT	keys:Key
		IMPORT	picInfo:LocInfo

		stx	start
		sty	end
		sta	set

		lda	#picDX
		ldx	#$0080
		ldy	use640
		bne	@ok
		lsr	a				; a/2
		ldx	#$0000
@ok
		sta	picInfo.boundsRect.right
		stx	picInfo.portSCB


		lda	start
loop
		sta	i
		jsr	MakeIndex

		lda	keys.keyFlag,x
		and	#kPrintable			; is this a printable key?
		beq	picture				; no, so skip
		
		txa
		clc
		adc	set
		tay
		lda	keys.keyLegends,y
		and	#$00FF
		sta	c
		pha
		pha
		_CharWidth
		pla
		sta	w

		lda	i
		jsr	MakeIndex

		lda	keys.keyWidth,x
		sec
		sbc	w
		lsr	a				; a/2
		clc
		adc	keys.keyOffset.h,x
		adc	#2
		pha					; h = keyOffset.h + ((keyWidth - w)/2) + 2
		lda	keys.keyOffset.v,x
		clc
		adc	#kHeight-2			; v = keyOffset.v + kHeight - 2
		pha
		_MoveTo
		
		lda	c
		pha
		_DrawChar
		brl	invert

picture
		lda	keys.keyFlag,x
		and	#kPicture			; is this a picture?
		beq	plain				; no, so skip

		lda	keys.keyDataPtr,x
		sta	picInfo.ptrToPixImage
		lda	keys.keyDataPtr+2,x
		sta	picInfo.ptrToPixImage+2
		
		pea	picInfo>>16
		pea	picInfo
		pea	picInfo.boundsRect>>16
		pea	picInfo.boundsRect
		lda	keys.keyWidth,x
		sec
		sbc	picInfo.boundsRect.right
		lsr	a				; a/2
		clc
		adc	keys.keyOffset.h,x
		adc	#3
		pha					; h = keyOffset.h + 3 + ((keyWidth - picInfo.boundsRect.h2)/2);
		lda	keys.keyHeight,x
		clc
		adc	keys.keyOffset.v,x
		sec
		sbc	#picDY+2
		pha					; v = keyOffset.v + keyHeight - picDY - 2
		pea	modeCopy
		_PPToPort
		bra	invert

plain
		lda	keys.keyFlag,x
		and	#kStatic			; is this a non-static legend?
		bne	invert				; no, so skip

		lda	keys.keyDataPtr+1,x		; is ptr valid ?
		beq	invert				; no, so skip

		phx					; save key offset on stack

		pha
		lda	keys.keyDataPtr+2,x
		pha
		lda	keys.keyDataPtr,x
		pha
		_StringWidth
		pla
		sta	w
		
		lda	1,s
		tax

		lda	keys.keyWidth,x
		sec
		sbc	w
		lsr	a				; a/2
		clc
		adc	keys.keyOffset.h,x
		adc	#2
		pha					; h = keyOffset.h + ((keyWidth - w)/2) + 2;
		lda	keys.keyOffset.v,x
		clc
		adc	#kHeight-2
		pha					; v = keyOffset.v + kHeight - 2;
		_MoveTo

		plx

		lda	keys.keyDataPtr+2,x
		pha
		lda	keys.keyDataPtr,x
		pha
		_DrawString

invert
		lda	i
		jsr	MakeIndex

		lda	keys.keyFlag,x
		and	#kDown				; if key is down then invert it
		beq	next

		lda	i
		jsl	InvertKey

next		
		lda	i
		inc	a
		cmp	end				; i ² end ?
		beq	@loop
		bcs	exit
@loop
		brl	loop
exit
		rtl


i		DS.W	1
start		DS.W	1
end		DS.W	1
set		DS.W	1
c		DS.W	1
w		DS.W	1

		ENDP


;_______________________________________________________
;
; INPUT:	a_reg has index into keyLegends
;_______________________________________________________

DrawPrintableLegends PROC

		LONGA	ON
		LONGI	ON

		IMPORT	keys:Key
		IMPORT	temp:Rect

		sta	set

		lda	#0
loop
		sta	i
		jsr	MakeIndex

		lda	keys.keyFlag,x
		and	#kPrintable
		bne	print
		brl	next
print
		lda	#$2003
		sta	str
		lda	#$2020
		sta	str+2

		txa
		clc
		adc	set
		tay
		lda	keys.keyLegends,y
		sep	#$20
		sta	str+2
		rep	#$20

		phx
		
		pha
		pea	str>>16
		pea	str
		_StringWidth
		pla
		sta	w
		
		plx

		lda	keyWidth			; make sure string will fit
		sec
		sbc	#3
		cmp	w
		bcc	tooWide				; string is too wide, adjust it

		lda	keys.keyWidth,x			; center string inside of key
		sec
		sbc	w
		lsr	a
		clc
		adc	keys.keyOffset.h,x
		adc	#2
		sta	temp.left				; temp.h = keyOffset.h + ((keyWidth - w)/2) + 2;

		lda	keys.keyOffset.v,x
		clc
		adc	#kHeight-2
		sta	temp.top
		
		lda	temp.left
		pha
		lda	temp.top
		pha
		_MoveTo

		pea	str>>16
		pea	str
		_DrawString
		bra	next
tooWide
		phx
		
		pha
		lda	str+2
		and	#$00FF
		pha
		_CharWidth
		pla
		sta	w

		plx

		lda	keys.keyOffset.v,x		; calculate Rect for this key
		inc	a
		sta	temp.top
		clc
		adc	keys.keyHeight,x
		dec	a
		sta	temp.bottom
		lda	keys.keyOffset.h,x
		clc
		adc	#2
		sta	temp.left
		adc	keys.keyWidth,x
		sec
		sbc	#2
		sta	temp.right
		
		phx
		
		pea	temp>>16
		pea	temp
		_EraseRect
		
		plx
		
		lda	keys.keyWidth,x
		sec
		sbc	w
		lsr	a				; a/2
		clc
		adc	keys.keyOffset.h,x
		adc	#2
		pha					; h = keyOffset.h + ((keyWidth - w)/2) + 2
		lda	keys.keyOffset.v,x
		clc
		adc	#kHeight-2			; v = keyOffset.v + kHeight - 2
		pha
		_MoveTo
		
		lda	str+2
		and	#$00FF
		pha
		_DrawChar
		
next
		lda	i
		inc	a
		cmp	#numBoardKeys
		bcs	exit
		brl	loop
exit		
		rtl


set		DS.W	1
i		DS.W	1
w		DS.W	1
str		DS.B	6

		ENDP


;_______________________________________________________
;
; INPUT:	x_reg has starting key
;		y_reg has ending key
;
; OUTPUT:	none
;_______________________________________________________

DrawKeyRects	PROC
	
		LONGA	ON
		LONGI	ON
		
		IMPORT	grayPattern
		IMPORT	grayPattern_320
		IMPORT	keys:Key
		IMPORT	keyboardRect:Rect
		IMPORT	keypadRect:Rect
		IMPORT	temp:Rect


		stx	start
		sty	end
	
		lda	use640
		beq	@320
@640
		lda	#grayPattern
		ldx	#3
		bra	@set
@320
		lda	#grayPattern_320
		ldx	#2
@set
		pea	grayPattern>>16
		pha					; ptr to pattern

		phx					; pen width
		pea	1				; pen height
		_SetPenSize
		_SetPenPat
		
		lda	start
@loop1
		sta	index
		jsr	MakeIndex

		pea	0
		lda	keys.keyHeight,x
		dec	a
		pha

		lda	keys.keyOffset.h,x
		pha
		lda	keys.keyOffset.v,x
		pha
		_MoveTo
		_Line
		
		lda	index
		inc	a
		cmp	end
		bcc	@loop1
		beq	@loop1

; --- include key board ---
	
		lda	start
		beq	board
		brl	skip
board
		lda	keyboardRect.right
		pha
		pea	kbV1
		_MoveTo

		pea	0
		pea	kbHeight
		_Line


		lda	#kbV1
@loop2
		sta	index

		lda	keyboardRect.left
		pha
		lda	index
		pha
		_MoveTo

		lda	keyboardRect.right
		dec	a
		pha
		lda	index
		pha
		_LineTo
		
		lda	index
		clc
		adc	#kHeight
		cmp	#kbV1+(kRows+1)*kHeight
		bcc	@loop2

		lda	#kRowY3
		sta	temp.top
		inc	a
		sta	temp.bottom
		lda	keyboardRect.right
		sta	temp.right
		sec
		sbc	keyWidthESC
		inc	a
		sta	temp.left
		
		pea	temp>>16
		pea	temp
		_EraseRect				; erase line through our return key

		lda	#kRowY2+1
		sta	temp.top
		adc	#kHeight-1
		sta	temp.bottom
		lda	keyboardRect.right
		clc
		sbc	keyWidthReturn			; keyboardRect.right - keyWidthReturn - 1
		sta	temp.left
		clc
		adc	#4
		sta	temp.right

		pea	temp>>16
		pea	temp
		_EraseRect				; erase line through our ']' key 

		lda	keyboardRect.right
		sec
		sbc	keyWidthESC
		pha
		pea	kRowY2
		_MoveTo

		pea	0
		pea	kHeight
		_Line					; draw right line of ']' key

skip

; --- include key pad ---
		
		lda	end
		cmp	#numTotalKeys-1
		bcs	pad
		brl	exit
pad
		lda	keypadRect.right
		pha
		pea	kpV1
		_MoveTo

		pea	0
		pea	kbHeight
		_Line

		lda	#kbV1
@loop3
		sta	index

		lda	keypadRect.left
		pha
		lda	index
		pha
		_MoveTo

		lda	keypadRect.right
		dec	a
		pha
		lda	index
		pha
		_LineTo
		
		lda	index
		clc
		adc	#kHeight
		cmp	#kbV1+(kRows-1)*kHeight
		bcc	@loop3

		sta	index

; --- enter-key is special case ---

		lda	keypadRect.left
		pha
		lda	index
		pha
		_MoveTo

		lda	keypadRect.right
		clc
		sbc	keyWidth			; keypadRect.right - keyWidth -1
		pha
		lda	index
		pha
		_LineTo
		
		lda	keypadRect.left
		pha
		lda	index
		clc
		adc	#kHeight
		sta	index
		pha
		_MoveTo

		lda	keypadRect.right
		dec	a
		pha
		lda	index
		pha
		_LineTo
	
exit
		rtl

start		DS.W	1
end		DS.W	1
index		DS.W	1

		ENDP

;_______________________________________________________
;
; In:	y_reg has vert position	(local coord)
;	x_reg has hort position (local coord)
;
; Out:	a_reg true to keep tracking
;
;_______________________________________________________

CheckKey	PROC	EXPORT

		LONGA	ON
		LONGI	ON

		IMPORT	temp:Point
		IMPORT	keys:Key
		IMPORT	keyboardRect:Rect

		sty	temp.v
		stx	temp.h
		stz	track

		cpx	keyboardRect.right			; is temp.h > keyboardRect.h2 ?
		bcc	else
		beq	else
		
		ldx	#numBoardKeys;
		ldy	#numTotalKeys-1
		bra	set
else
		ldx	#0;
		ldy	#numBoardKeys-1
set	
		stx	start
		sty	end


		lda	start
@loop		
		sta	index
		jsr	MakeIndex

		lda	keys.keyOffset.h,x
		cmp	temp.h				; is temp.h > keyOffset.h ?
		bcs	@next

		adc	keys.keyWidth,x
		inc	a
		cmp	temp.h				; is temp.h ² (keyOffset.h + keyWidth + 1) ?
		bcc	@next

		lda	keys.keyOffset.v,x
		cmp	temp.v				; is temp.v > keyOffset.v ?
		bcs	@next

		adc	keys.keyHeight,x
		cmp	temp.v				; pt.v ² (keyOffset.v + keyHeight) ?
		bcc	@next
		
		lda	index
		jsr	MakeIndex
		bra	found
@next
		lda	index
		inc	a
		cmp	end
		bcc	@loop
		beq	@loop

		brl	done

found
		lda	keys.keyFlag,x
		sta	flag
		and	#kModifier			; is this a modifier key?
		bne	modifier			; yes

		lda	index
		jsl	SelectKey
		
		pha
		pea	0				; check button 0
		_StillDown				; is mouse still down ?
		pla
		sta	track
		beq	kill				; no, so kill it
		brl	done				; yes, so we're done
kill		
		jsl	KillMouseEvent			; eat this mouse event
		lda	index
		jsl	ReleaseKey
		bra	done


;--- check for double click on a modifier:

modifier
		jsl	GetMouseTime			; get the time of the 2nd click
		sta	newTime
		stx	newTime+2
				
		lda	flag
		and	#kDown				; is this modifier key down already?
		beq	selectMod			; no

		lda	currentKey			; is this the current key?
		cmp	index
		bne	releaseMod			; no
		
		lda	newTime				; get the time interval
		sec
		sbc	oldTime
		tax
		lda	newTime+2
		sbc	oldTime+2

		cpx	dblTime				; is interval < dblTime ?, ie double click
		sbc	dblTime+2
		bcc	double				; yes
releaseMod
		lda	index
		jsl	ReleaseKey
		bra	time
double
		lda	index
		jsr	MakeIndex

		lda	keys.keyFlag,x			; set the sticky bit for this key
		ora	#kSticky
		sta	keys.keyFlag,x

		and	#kShift				; is this a shift key?
		beq	time				; no

		lda	#iLeftShift			; switch to twin key
		cmp	index
		bne	@switch
		lda	#iRightShift
@switch
		jsr	MakeIndex
		lda	keys.keyFlag,x
		ora	#kSticky			; set the sticky bit for twin key
		sta	keys.keyFlag,x
		bra	time
selectMod
		lda	index
		jsl	SelectKey
time		
		lda	newTime				; save time of the 1st click
		sta	oldTime
		lda	newTime+2
		sta	oldTime+2
done	

		lda	track
		cmp	#1				; carry flag is set if true

		rtl
		
track		DS.W	1
index		DS.W	1
start		DS.W	1
end		DS.W	1
flag		DS.W	1

		ENDP


;_______________________________________________________
;
; INPUT:	a_reg has key number
;
; OUTPUT:	none
;
;_______________________________________________________

ReleaseKey	PROC

		LONGA	ON
		LONGI	ON

kMask		SET	((Å(kDown+kSticky))<<16)>>16	; mask for clearing kDown and kSticky
		
		IMPORT	keys:Key
		
		ldx	modState
		stx	oldModState

		sta	index

		jsr	release				; release this keyÉ

		lda	index
		jsr	MakeIndex

; --- if non-modifier key was just released then
;     release any non-sticky modifier keys

		lda	modState			; are there mod keys down?
		beq	done				; none, so skip

		lda	keys.keyFlag,x
		and	#kModifier			; is this key a mod key?
		bne	done				; yes, so skip

		ldy	#numModKeys-1		
@loop
		phy
		tya
		asl	a
		tax
		lda	modKeys,x
		sta	index
		jsr	MakeIndex

		lda	keys.keyFlag,x
		and	#kDown+kSticky
		cmp	#kDown				; is it down but not sticky?
		bne	@next				; no, so skip it

		lda	index
		jsr	release				; release this modifier keyÉ
@next
		ply
		dey
		bpl	@loop

done
		lda	modState
		cmp	oldModState
		beq	exit				; no change, so we're done
		jsl	ModifiersToSet
		jsl	DrawPrintableLegends		; redraw the key legends
exit
		rtl


; release the key in a_reg:

release
		jsr	MakeIndex
		
		lda	keys.keyFlag,x
		and	#kDown
		beq	@end

		lda	keys.keyFlag,x
		and	#kMask				; clear kDown and kSticky flags
		sta	keys.keyFlag,x

		phx

		lda	keys.keyRawCode,x
		ldx	#keyUp
		jsr	PostKey
		
		lda	index
		jsl	InvertKey

		plx

		lda	modState			; are there mod keys down?
		beq	@end				; none, so skip

		lda	keys.keyFlag,x
		tay
		and	#kModTypeMask
		trb	modState			; remove it from the list

		tya
		and	#kShift				; is it a shift key?
		beq	@end				; no
		
		lda	#iLeftShift			; switch to twin
		cmp	index
		bne	@switched
		lda	#iRightShift
@switched
		sta	index
		jsl	InvertKey			; release the sister key

		lda	index
		jsr	MakeIndex

		lda	keys.keyFlag,x
		and	#kMask				; clear kDown and kSticky flags
		sta	keys.keyFlag,x
@end
		rts


index		DS.W	1
oldModState	DS.W	1

		ENDP
		
		
;_______________________________________________________
;
; INPUT:	a_reg has key number
;
; OUTPUT:	none
;
;_______________________________________________________

SelectKey	PROC

		LONGA	ON
		LONGI	ON


		IMPORT	keys:Key
	
		sta	index
		jsl	InvertKey			; hilite this key

		lda	index
		jsr	MakeIndex

		lda	keys.keyFlag,x
		ora	#kDown				; mark this key as being down
		sta	keys.keyFlag,x

; --- check if CDA menu sequence is about to occur ---
	
		lda	keys.keyRawCode,x
		cmp	#_ESC				; is this the escape key?
		bne	normal
		
		lda	modState
		and	#kApple+kControl
		cmp	#kApple+kControl		; are the Apple and Control keys down?
		bne	normal
		
		phx
		jsl	OkToUseCDAMenu			; alert user about 40/80 column text screen
		plx
		bcs	normal				; the user chose to cancel
		
		lda	keys.keyFlag,x
		and	#((ÅkDown)<<16)>>16		; clear kDown flag
		sta	keys.keyFlag,x

		lda	index
		jsl	InvertKey			; un-hilite the escape key		
		bra	exit

normal
		lda	keys.keyRawCode,x
		ldx	#keyDown
		jsr	PostKey				; post key to ADB micro

		lda	index
		sta	currentKey
		jsr	MakeIndex

		lda	keys.keyFlag,x
		tay
		and	#kModifier			; is this a modifier key?
		beq	exit				; no, so we're done
		
		tya
		and	#kModTypeMask
		tsb	modState

		tya
		and	#kCaps				; is it the capsLock key?
		beq	shiftTwin			; no
		
		lda	keys.keyFlag,x
		ora	#kSticky			; make capslock key sticky (always)
		sta	keys.keyFlag,x

shiftTwin
		tya
		and	#kShift				; is it a shift key?	
		beq	skip				; no
		
		lda	#iLeftShift			; switch to the twin's index
		cmp	index
		bne	@switched	
		lda	#iRightShift		
@switched
		sta	index
		jsl	InvertKey			; invert the twin key
		
		lda	index
		jsr	MakeIndex
		lda	keys.keyFlag,x
		ora	#kDown				; set the twin's kDown flag
		sta	keys.keyFlag,x

skip
		lda	modState
		cmp	#kControl			; is the control key down?
		beq	exit
		cmp	#kApple				; is the Apple key down?
		beq	exit
		jsl	ModifiersToSet
		jsl	DrawPrintableLegends		; redraw the key legends

exit
		rtl

index		DS.W	1

		ENDP


;_______________________________________________________
;
;_______________________________________________________

ReleaseLastKey	PROC	EXPORT

		LONGA	ON
		LONGI	ON

		lda	currentKey
		jsl	ReleaseKey
		rtl
		
		ENDP

;_______________________________________________________
;
; INPUT:	a_reg has key number
;
; OUTPUT:	none
;
;_______________________________________________________

InvertKey	PROC

		LONGA	ON
		LONGI	ON

		IMPORT	temp:Rect
		IMPORT	keys:Key
		IMPORT	keyboardRect:Rect


		jsr	MakeIndex
	
		lda	#3
		sta	slop
		lda	use640
		bne	@ok
		dec	slop
@ok

		lda	keys.keyRawCode,x		; is this the return key?
		cmp	#_CR
		beq	special				; yes, so treat it special

		lda	keys.keyOffset.v,x		; calculate Rect for this key
		inc	a
		sta	temp.top
		clc
		adc	keys.keyHeight,x
		dec	a
		sta	temp.bottom
		
		lda	keys.keyOffset.h,x
		clc
		adc	slop
		sta	temp.left
		adc	keys.keyWidth,x
		sec
		sbc	slop
		sta	temp.right
		bra	invert

special		
		lda	#kRowY2+1			; top piece of return key
		sta	temp.top
		clc
		adc	#kHeight
		sta	temp.bottom
		
		lda	keyboardRect.right
		sec
		sbc	keyWidthESC
		clc
		adc	slop
		sta	temp.left
		adc	keyWidthESC
		sec
		sbc	slop
		sta	temp.right
		
		pea	temp>>16
		pea	temp
		_InvertRect

		lda	#kRowY3+1			; bottom piece of return key
		sta	temp.top
		clc
		adc	#kHeight-1
		sta	temp.bottom

		lda	keyboardRect.right
		sec
		sbc	keyWidthReturn
		clc
		adc	slop
		sta	temp.left
		adc	keyWidthReturn
		sec
		sbc	slop
		sta	temp.right
invert		
		pea	temp>>16
		pea	temp
		_InvertRect

		_ShowCursor				; cursor was obscured during _InvertRect
		rtl

slop		DS.W	1

		ENDP


;_______________________________________________________
;
; INPUT:	y_reg has vert position	(local coord)
;		x_reg has hort position (local coord)
;
; OUTPUT:	a_reg true to keep tracking
;		carry also set if true
;_______________________________________________________

TrackKey	PROC	EXPORT

		LONGA	ON
		LONGI	ON

		IMPORT	temp:Point
		IMPORT	keys:Key

		sty	temp.v
		stx	temp.h

; --- check if mouse is ouside of the key ---

		lda	currentKey
		jsr	MakeIndex

		lda	keys.keyOffset.h,x		; is temp.h < keyOffset.h ?
		cmp	temp.h
		bcs	release
		
		adc	keys.keyWidth,x			; is temp.h > (keyOffset.h + keyWidth)?
		cmp	temp.h
		bcc	release
		
		lda	keys.keyOffset.v,x		; is temp.v < keyOffset.v ?
		cmp	temp.v
		bcs	release
		
		adc	keys.keyHeight,x		; is temp.v > (keyOffset.v + keyHeight)?
		cmp	temp.v
		bcc	release
		
		lda	#1				; keep tracking
		bra	exit
release	
		lda	currentKey
		jsl	ReleaseKey

		lda	#0				; stop tracking	
exit
		cmp	#1
		rtl

		ENDP


;_______________________________________________________
;
; INPUT:	a_reg has key code
;		x_reg = up or down flag
;
; OUTPUT:	none
;
;_______________________________________________________

PostKey		PROC

		LONGA	ON
		LONGI	ON

		sta	temp
		
		txa
		pha
		and	#keyDown
		beq	next
	
		pea	1				; bytes to send
		pea	temp>>16			; ptr to data
		pea	temp
		pea	keyCode				; adb command
		_SendInfo
next
		pla
		and	#keyUp
		beq	exit
		
		lda	#$0080				; set "key up" bit
		tsb	temp

		pea	1				; bytes to send
		pea	temp>>16			; ptr to data
		pea	temp
		pea	keyCode				; adb command
		_SendInfo

exit
		rts

		ENDP


;_______________________________________________
;
; INPUT:	a_reg has key number
; OUTPUT:	x_reg has offset to key data
;
;_______________________________________________

MakeIndex	PROC

		LONGA	ON
		LONGI	ON

		asl	a
		asl	a
		asl	a
		pha
		asl	a
		adc	1,s
		tax					; x <-- a*8 + a*16 = a*24	
		pla
		rts

		ENDP

*===============================================*
*						*
*	Our Sync Completion Routine		*
*						*
*===============================================*

R2Completion	PROC

dataBank	SET	1			; stack offsets
dirPage		SET	dataBank+1
rtlAddr		SET	dirPage+2
dataPtr		SET	rtlAddr+3

r2Delete	set	%01000000
r2CapsLock	set	%00100000
r2Reset		set	%00010000
r2Control	set	%00001000
r2Shift		set	%00000100
r2Option	set	%00000010
r2Command	set	%00000001

kMask		SET	((Å(kDown+kSticky))<<16)>>16	; mask for clearing kDown and kSticky


		LONGA	OFF			; completion uses 8-bit mode
		LONGI	OFF

		IMPORT	keys:Key

		phb				; save these guys
		phd

		tsc				; make a stack frame
		tcd

		phk				; use local addressing
		plb

		lda	[<dataPtr]
		beq	exit
		
		ldy	#1
		lda	[<dataPtr],y		; get register 2 data
		eor	#$FF
		and	#r2CapsLock		; is capslock key down?
		beq	exit			; no, so skip

		rep	#$30			; need 16-bit registers
		LONGA	ON
		LONGI	ON
		
		lda	ModState
		and	#Å(kCaps)		; clear capslock bit
		sta	ModState

		lda	#iCapsLock
		jsr	MakeIndex
		lda	keys.keyFlag,x
		and	#kMask			; clear sticky and down flags
		sta	keys.keyFlag,x
		
		sep	#$30			; back to 8-bit registers
		LONGA	OFF
		LONGI	OFF
exit
		inc	ADBFinished		; signal that we're done
		
		pld
		plb
		clc
		rtl
		
		ENDP
	
		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/VideoKeyboard/Key.equ b/IIGS.601.SRC/A.U.G/VideoKeyboard/Key.equ
new file mode 100644
index 0000000..2bbfded
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/VideoKeyboard/Key.equ
@@ -0,0 +1 @@
+*===============================================*
*						*
* File:		Key.equ				*
* Project:	Video Keyboard			*
* Author:	Don J. Brady			*
* Build file:	MakeFile			*
*						*
* Copyright © Apple Computer, Inc. 1989,1990	*
* All rights reserved.				*
*===============================================*


Point		RECORD	0			; QuickDrawII point record

v		ds.W	1
h		ds.W	1 

		ENDR 

Rect		RECORD	0			; QuickDrawII rectangle record

top		ds.W	1
left		ds.W	1 
bottom		ds.W	1
right		ds.W	1

		ENDR 

LocInfo		RECORD	0			; QuickDrawII LocInfo record

portSCB		ds.W	1
ptrToPixImage	ds.L	1
width		ds.W	1
boundsRect	ds	Rect

		ENDR 


PaintParam	RECORD 0			; Quickdraw

ptrToSourceLocInfo	ds.L	1
ptrToDestLocInfo	ds.L	1
ptrToSourceRect		ds.L	1
ptrToDestPoint		ds.L	1
mode			ds.W	1
maskHandle  		ds.L	1

  		ENDR

ParamList	RECORD	0		; Window

paramLength 	ds.W	1
wFrameBits	ds.W	1
wTitle		ds.L	1
wRefCon		ds.L	1
wZoom		DS Rect
wColor		ds.L	1
wYOrigin	ds.W	1
wXOrigin	ds.W	1
wDataH		ds.W	1
wDataW		ds.W	1
wMaxH		ds.W	1
wMaxW		ds.W	1
wScrollVer	ds.W	1
wScrollHor	ds.W	1
wPageVer	ds.W	1
wPageHor	ds.W	1
wInfoRefCon	ds.L	1
wInfoHeight	ds.W	1 
wFrameDefProc	ds.L	1
wInfoDefProc	ds.L	1
wContDefProc	ds.L	1
wPosition	DS	Rect
wPlane		ds.L	1
wStorage	ds.L	1

  		ENDR


Key		RECORD	0			; key object

keyFlag		DS.W	1			; 0		
keyRawCode	DS.W	1			; 2
keyHeight	DS.W	1			; 4
keyWidth	DS.W	1			; 6
keyWidth320	DS.W	1			; 8
keyOffset	DS	Point			; 10
keyDataPtr	DS.L	1			; 14
keyLegends	DS.B	6			; 18

		ENDR
		
sizeOfKey	equ	24
	

drawBoard	equ	$01
drawPad		equ	$02
drawBoth	equ	drawBoard+drawPad

kHeight		equ	11
kWidth		equ	24			; width must be even!

kwEsc		equ	kWidth			; special key widths
kwTab		equ	kWidth+kWidth/2
kwCtrl		equ	kWidth+(kWidth*3)/4
kwShift		equ	2*kWidth+kWidth/4

kwCap		equ	kWidth+kWidth/4
kwOpt		equ	kWidth+kWidth/4
kwCmnd		equ	kWidth+kWidth/2
kwSpace		equ	4*kWidth+kWidth/2
kwDel		equ	kwTab
kwRet		equ	kwCtrl

kbHeight	equ	kHeight*5
kbWidth		equ	kwEsc+kWidth*12+kwDel


;--- widths for 320 mode resolution ---

kWidth_320	equ	20
kwEsc_320	equ	kWidth_320+2
kwTab_320	equ	kWidth_320+kWidth_320/2+2
kwCtrl_320	equ	kWidth_320+(kWidth_320*3)/4+2
kwShift_320	equ	2*kWidth_320+kWidth_320/4+2

kwCap_320	equ	kWidth_320+kWidth_320/4
kwCmnd_320	equ	kWidth_320+kWidth_320/2+2
kwSpace_320	equ	4*kWidth_320+kWidth_320/2+2
kwDel_320	equ	kwTab_320
kwRet_320	equ	kwCtrl_320
kwOpt_320	equ	kwCap_320

kbWidth_320	equ	kwEsc_320+kWidth_320*12+kwDel_320


kRows		equ	5

dx		equ	2			; offsets inside window
dy		equ	7

kbV1		equ	dy
kbV2		equ	kbV1+kbHeight
kbH1		equ	dx
kbH2		equ	kbH1+kbWidth
kbH2_320	equ	kbH1+kbWidth_320

kRowY1		equ	kbV1			; vertical start offsets 
kRowY2		equ	kRowY1+kHeight
kRowY3		equ	kRowY2+kHeight
kRowY4		equ	kRowY3+kHeight
kRowY5		equ	kRowY4+kHeight

kpWidth		equ	kWidth*4
kpV1		equ	kbV1
kpV2		equ	kbV2
kpH1		equ	kbH2+16
kpH2		equ	kpH1+kpWidth

kpWidth_320	equ	kWidth_320*4
kpH1_320	equ	kbH2_320+8
kpH2_320	equ	kpH1_320+kpWidth_320


;--- Key Flag Bits ---

; bits 0-11 is key type

kPlain		equ	$00
kOption		equ	$01
kShift		equ	$02
kCaps		equ	$04
kApple		equ	$08
kControl	equ	$10

kModMask	equ	kShift+kOption+kCaps
kModTypeMask	equ	kShift+kOption+kCaps+kApple+kControl

kPicture	equ	$20			; key legend is a picture
kPrintable	equ	$40			; key legend is dynamic
kStatic		equ	$80			; key legend is static (geneva font)

kModifier	equ	$0100			; key is a modifier
kKeypad		equ	$0200			; key is on keypad

kMShift		equ	kModifier+kShift
kMOption	equ	kModifier+kOption
kMCaps		equ	kModifier+kCaps
kMApple		equ	kModifier+kApple
kMControl	equ	kModifier+kControl

; Hi nibble is key state
kDown		equ	$8000			; key is down
kSticky		equ	$4000			; key is stuck (modifiers only)




;--- ADB Key Events ---

keyUp		equ	1
keyDown		equ	2
keyPress	equ	3		; both (keyUp followed by a keyDown)


;--- ADB Raw Key Codes ---

_ESC		equ	$35
_1		equ	$12
_2		equ	$13
_3		equ	$14
_4		equ	$15
_5		equ	$17
_6		equ	$16
_7		equ	$1A
_8		equ	$1C
_9		equ	$19
_0		equ	$1D
_MIN		equ	$1B		; '-'
_EQU		equ	$18		; '='
_DEL		equ	$33

_TAB		equ	$30
_Q		equ	$0C
_W		equ	$0D
_E		equ	$0E
_R		equ	$0F
_T		equ	$11
_Y		equ	$10
_U		equ	$20
_I		equ	$22
_O		equ	$1F
_P		equ	$23
_LB		equ	$21		;  '[' 
_RB		equ	$1E		;  ']' 

_CTL		equ	$36		;  CONTROL 
_A		equ	$00
_S		equ	$01
_D		equ	$02
_F		equ	$03
_G		equ	$05
_H		equ	$04
_J		equ	$26
_K		equ	$28
_L		equ	$25
_SC		equ	$29		;  ';' 
_QT		equ	$27		;  ''' 
_CR		equ	$24		;  RETURN 

_LSF		equ	$38		;  LEFT SHIFT 
_Z		equ	$06
_X		equ	$07
_C		equ	$08
_V		equ	$09
_B		equ	$0B
_N		equ	$2D
_M		equ	$2E
_COM		equ	$2B		;  ',' 
_PER		equ	$2F		;  '.' 
_DIV		equ	$2C		;  '/' 
_RSF		equ	$38		; RIGHT SHIFT

_CAP		equ	$39		; CAPS LOCK
_OPT		equ	$3A		; OPTION	
_CMD		equ	$37		; COMMAND	
_BQT		equ	$32		; '`'		
_SPC		equ	$31		; SPACE	
_BSL		equ	$2A		; '\'		
_LAW		equ	$3B		; LEFT ARROW
_RAW		equ	$3C		; RIGHT ARROW
_DAW		equ	$3D		; DOWN ARROW
_UAW		equ	$3E		; UP ARROW	

_padCLR		equ	$47		; keypad CLEAR
_padEQU		equ	$51		; keypad '='
_padDIV		equ	$4B		; keypad '/'
_padMUL		equ	$43		; keypad '*'

_pad7		equ	$59		; keypad '7'
_pad8		equ	$5B		; keypad '8'
_pad9		equ	$5C		; keypad '9'
_padPLU		equ	$45		; keypad '+'

_pad4		equ	$56		; keypad '4'
_pad5		equ	$57		; keypad '5'
_pad6		equ	$58		; keypad '6'
_padMIN		equ	$4E		; keypad '-'

_pad1		equ	$53		; keypad '1'
_pad2		equ	$54		; keypad '2'
_pad3		equ	$55		; keypad '3'
_padENT		equ	$4C		; keypad ENTER

_pad0		equ	$52		; keypad '0'
_padPER		equ	$41		; keypad '.'


numBoardKeys	equ	62
numPadKeys	equ	18
numTotalKeys	equ	numBoardKeys+numPadKeys
numModKeys	equ	5


;--- Mod Key Keyboard indexes ---

iDelete		equ	13
iControl	equ	27
iLeftShift	equ	40
iRightShift	equ	51
iCapsLock	equ	52
iOption		equ	53
iCommand	equ	54

iPadPeriod	equ	17+numBoardKeys


;--- Keyboard languages	---	

maxLanguages	equ	10

klUSA		equ	0
klUK		equ	1
klFrench	equ	2
klDanish	equ	3
klSpanish	equ	4
klItalian	equ	5
klGerman	equ	6
klSwedish	equ	7
klDvorak	equ	8
klCanadian	equ	9



picDY		equ	8
picDX		equ	16
picDX_320	equ	8



rKeyTrans	EQU	$8021

;--- mod key bits for KEYMODREG:

KEYMODREG	equ	$E1C025

kmrApple	equ	%10000000
kmrOption	equ	%01000000
kmrKeypad	equ	%00010000
kmrRepeat	equ	%00001000
kmrCapsLock	equ	%00000100
kmrControl	equ	%00000010
kmrShift	equ	%00000001

TickCount	equ	$E100DC			; global tick count
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/VideoKeyboard/KeyData.a b/IIGS.601.SRC/A.U.G/VideoKeyboard/KeyData.a
new file mode 100644
index 0000000..e8067f5
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/VideoKeyboard/KeyData.a
@@ -0,0 +1 @@
+*===============================================
*
* File:		Main.a
* Project:	Video Keyboard
* Author:	Don J. Brady
* Build file:	MakeFile
*
* Copyright © Apple Computer, Inc. 1989,1990
* All rights reserved.
*===============================================

 		PRINT	OFF
		
		INCLUDE	'Key.equ'

		PRINT	ON
		
		STRING	ASIS

*===============================================

KeyData		PROC	EXPORT

		EXPORT	decimalPoints
decimalPoints
		DC.B	'.'			; USA
		DC.B	'.'			; UK
		DC.B	','			; French
		DC.B	','			; Danish
		DC.B	','			; Spanish
		DC.B	','			; Italian
		DC.B	','			; German
		DC.B	','			; Swedish
		DC.B	'.'			; Dovorak
		DC.B	'.'			; Canadian

layoutUSA	
		DC.B	'¥1234567890-=¥'	; plain
		DC.B	'¥qwertyuiop[]'
		DC.B	'¥asdfghjkl;''¥'
		DC.B	'¥zxcvbnm,./¥'
		DC.B	'¥¥¥`¥\¥¥¥¥'

		DC.B	'¥!@#$%^&*()_+¥'	; shift
		DC.B	'¥QWERTYUIOP{}'
		DC.B	'¥ASDFGHJKL:"¥'
		DC.B	'¥ZXCVBNM<>?¥'
		DC.B	'¥¥¥~¥|¥¥¥¥'

		DC.B	'¥1234567890-=¥'	; caps
		DC.B	'¥QWERTYUIOP[]'
		DC.B	'¥ASDFGHJKL;''¥'
		DC.B	'¥ZXCVBNM,./¥'
		DC.B	'¥¥¥`¥\¥¥¥¥'

layoutFrench
		DC.B	'¥&{"''(]}!\@)-¥'	; plain
		DC.B	'¥azertyuiop^$'
		DC.B	'¥qsdfghjklm|¥'
		DC.B	'¥wxcvbn,' , ';:=¥'
		DC.B	'¥¥¥<¥`¥¥¥¥'

		DC.B	'¥1234567890[_','¥'	; shift
		DC.B	'¥AZERTYUIOP~*'
		DC.B	'¥QSDFGHJKLM%¥'
		DC.B	'¥WXCVBN?./+¥'
		DC.B	'¥¥¥>¥#¥¥¥¥'	

		DC.B	'¥1234567890[_','¥'	; caps
		DC.B	'¥AZERTYUIOP~*'
		DC.B	'¥QSDFGHJKLM%¥'
		DC.B	'¥WXCVBN?./+¥'
		DC.B	'¥¥¥>¥#¥¥¥¥'

layoutDanish
		DC.B	'¥1234567890-=¥'	; plain
		DC.B	'¥qwertyuiop}'''
		DC.B	'¥asdfghjkl{|¥'
		DC.B	'¥zxcvbnm,./¥'
		DC.B	'¥¥¥;¥`¥¥¥¥'

		DC.B	'¥!@#$%^&*()_+¥'	; shift
		DC.B	'¥QWERTYUIOP]"'
		DC.B	'¥ASDFGHJKL[\¥'
		DC.B	'¥ZXCVBNM<>?¥'
		DC.B	'¥¥¥:¥~¥¥¥¥' 

		DC.B	'¥1234567890-=¥'	; caps	
		DC.B	'¥QWERTYUIOP}'''
		DC.B	'¥ASDFGHJKL{|¥'
		DC.B	'¥ZXCVBNM,./¥'
		DC.B	'¥¥¥;¥`¥¥¥¥' 

layoutSpanish
		DC.B	'¥1234567890-=¥'	; plain
		DC.B	'¥qwertyuiop''`'
		DC.B	'¥asdfghjkl|;¥'
		DC.B	'¥zxcvbnm,.}¥'
		DC.B	'¥¥¥<¥~¥¥¥¥'

		DC.B	'¥[]#$%/&*()_+¥'	; shift
		DC.B	'¥QWERTYUIOP{^'
		DC.B	'¥ASDFGHJKL\:¥'
		DC.B	'¥ZXCVBNM?!"¥'
		DC.B	'¥¥¥>¥@¥¥¥¥' 

		DC.B	'¥1234567890-=¥'	; caps
		DC.B	'¥QWERTYUIOP''`'
		DC.B	'¥ASDFGHJKL|;¥'
		DC.B	'¥ZXCVBNM,.}¥'
		DC.B	'¥¥¥<¥~¥¥¥¥' 

layoutItalian
		DC.B	'¥&"''(\})#{]-=¥'	; plain
		DC.B	'¥qzertyuiop~$'
		DC.B	'¥asdfghjklm`¥'
		DC.B	'¥wxcvbn,;:|¥'
		DC.B	'¥¥¥<¥@¥¥¥¥'

		DC.B	'¥1234567890_+¥'	; shift
		DC.B	'¥QZERTYUIOP^*'
		DC.B	'¥ASDFGHJKLM%¥'
		DC.B	'¥WXCVBN?./!¥'
		DC.B	'¥¥¥>¥[¥¥¥¥' 

		DC.B	'¥1234567890-=¥'	; caps
		DC.B	'¥QZERTYUIOP~$'
		DC.B	'¥ASDFGHJKLM`¥'
		DC.B	'¥WXCVBN,;:|¥'
		DC.B	'¥¥¥<¥@¥¥¥¥' 

layoutGerman
		DC.B	'¥1234567890~''¥'	; plain
		DC.B	'¥qwertzuiop}+'
		DC.B	'¥asdfghjkl|{¥'
		DC.B	'¥yxcvbnm,.-¥'
		DC.B	'¥¥¥<¥#¥¥¥¥'

		DC.B	'¥!"@$%&/()=?`¥'	; shift
		DC.B	'¥QWERTZUIOP]*'
		DC.B	'¥ASDFGHJKL\[¥'
		DC.B	'¥YXCVBNM;:_¥'
		DC.B	'¥¥¥>¥^¥¥¥¥' 

		DC.B	'¥1234567890~''¥'	; caps
		DC.B	'¥QWERTZUIOP}+'
		DC.B	'¥ASDFGHJKL|{¥'
		DC.B	'¥YXCVBNM,.-¥'
		DC.B	'¥¥¥<¥#¥¥¥¥' 

layoutSwedish
		DC.B	'¥1234567890+''¥'	; plain
		DC.B	'¥qwertyuiop}~'
		DC.B	'¥asdfghjkl|{¥'
		DC.B	'¥zxcvbnm,.-¥'
		DC.B	'¥¥¥<¥@¥¥¥¥'

		DC.B	'¥!"#$%&/()=?`¥'	; shift
		DC.B	'¥QWERTYUIOP]^'
		DC.B	'¥ASDFGHJKL\[¥'
		DC.B	'¥ZXCVBNM;:_¥'
		DC.B	'¥¥¥>¥*¥¥¥¥' 

		DC.B	'¥1234567890+''¥'	; caps
		DC.B	'¥QWERTYUIOP}~'
		DC.B	'¥ASDFGHJKL|{¥'
		DC.B	'¥ZXCVBNM,.-¥'
		DC.B	'¥¥¥<¥@¥¥¥¥' 

layoutDvorak
		DC.B	'¥1234567890[]¥'	; plain
		DC.B	'¥'',.pyfgcrl/='
		DC.B	'¥aoeuidhtns-¥'
		DC.B	'¥;qjkxbmwvz¥'
		DC.B	'¥¥¥`¥\¥¥¥¥'

		DC.B	'¥!@#$%^&*(){}¥'	; shift
		DC.B	'¥"<>PYFGCRL?+'
		DC.B	'¥AOEUIDHTNS_¥'
		DC.B	'¥:QJKXBMWVZ¥'
		DC.B	'¥¥¥~¥|¥¥¥¥' 

		DC.B	'¥1234567890[]¥'	; caps
		DC.B	'¥'',.PYFGCRL/='
		DC.B	'¥AOEUIDHTNS-¥'
		DC.B	'¥;QJKXBMWVZ¥'
		DC.B	'¥¥¥`¥\¥¥¥¥' 

layoutCanadian
		DC.B	'¥1234567890-=¥'	; plain
		DC.B	'¥qwertyuiop@|'
		DC.B	'¥asdfghjkl;''¥'
		DC.B	'¥zxcvbnm,.{¥'
		DC.B	'¥¥¥~¥`¥¥¥¥'

		DC.B	'¥![#$%]&*()_+¥'	; shift
		DC.B	'¥QWERTYUIOP}^'
		DC.B	'¥ASDFGHJKL:"¥'
		DC.B	'¥ZXCVBNM<>\¥'
		DC.B	'¥¥¥/¥?¥¥¥¥' 

		DC.B	'¥1234567890-=¥'	; caps
		DC.B	'¥QWERTYUIOP@|'
		DC.B	'¥ASDFGHJKL;''¥'
		DC.B	'¥ZXCVBNM,.{¥'
		DC.B	'¥¥¥~¥`¥¥¥¥' 


		EXPORT	layouts
layouts
		DC.W	layoutUSA
		DC.W	layoutUSA		; UK has same layout as USA */
		DC.W	layoutFrench
		DC.W	layoutDanish
		DC.W	layoutSpanish
		DC.W	layoutItalian
		DC.W	layoutGerman
		DC.W	layoutSwedish
		DC.W	layoutDvorak
		DC.W	layoutCanadian

; strings for special key legends:

		STRING	PASCAL

strESC		DC.B	'esc'
strDEL		DC.B	'delete'
strTAB		DC.B	'tab'
strCTRL		DC.B	'control'
strSHIFT	DC.B	'shift'
strCAPS		DC.B	'caps'
strOPT		DC.B	'opt'
strCLR		DC.B	'clr'
strAPPLE	DC.B	1,17			; apple symbol

strEQU		DC.B	'='
strDIV		DC.B	'/'
strMUL		DC.B	'*'
strMIN		DC.B	'-'
strPLUS		DC.B	'+'
		EXPORT	strPER
strPER		DC.B	' . '

str9		DC.B	'9'
str8		DC.B	'8'
str7		DC.B	'7'
str6		DC.B	'6'
str5		DC.B	'5'
str4		DC.B	'4'
str3		DC.B	'3'
str2		DC.B	'2'
str1		DC.B	'1'
str0		DC.B	'0'

		DC.B	0


		EXPORT	keys
keys						; keyboard is an array of keys
;--- row 1 (14 keys) ---

		DC.W	kStatic, _ESC, kHeight, kwEsc, kwEsc_320, kRowY1, kbH1
		DC.L	strESC
		DC.B	0,0,0,0,0,0

		DC.W	kPrintable, _1, kHeight, kWidth, kWidth_320, kRowY1, kbH1+kwEsc
		DC.L	0
		DC.B	0,0,0,0,0,0
		
		DC.W	kPrintable, _2, kHeight, kWidth, kWidth_320, kRowY1, kbH1+kwEsc+kWidth*1
		DC.L	0
		DC.B	0,0,0,0,0,0
		
		DC.W	kPrintable, _3, kHeight, kWidth, kWidth_320, kRowY1, kbH1+kwEsc+kWidth*2
		DC.L	0
		DC.B	0,0,0,0,0,0
		
		DC.W	kPrintable, _4, kHeight, kWidth, kWidth_320, kRowY1, kbH1+kwEsc+kWidth*3
		DC.L	0
		DC.B	0,0,0,0,0,0
		
		DC.W	kPrintable, _5, kHeight, kWidth, kWidth_320, kRowY1, kbH1+kwEsc+kWidth*4
		DC.L	0
		DC.B	0,0,0,0,0,0
		
		DC.W	kPrintable, _6, kHeight, kWidth, kWidth_320, kRowY1, kbH1+kwEsc+kWidth*5
		DC.L	0
		DC.B	0,0,0,0,0,0
		
		DC.W	kPrintable, _7, kHeight, kWidth, kWidth_320, kRowY1, kbH1+kwEsc+kWidth*6
		DC.L	0
		DC.B	0,0,0,0,0,0
		
		DC.W	kPrintable, _8, kHeight, kWidth, kWidth_320, kRowY1, kbH1+kwEsc+kWidth*7
		DC.L	0
		DC.B	0,0,0,0,0,0
		
		DC.W	kPrintable, _9, kHeight, kWidth, kWidth_320, kRowY1, kbH1+kwEsc+kWidth*8
		DC.L	0
		DC.B	0,0,0,0,0,0
		
		DC.W	kPrintable, _0, kHeight, kWidth, kWidth_320, kRowY1, kbH1+kwEsc+kWidth*9
		DC.L	0
		DC.B	0,0,0,0,0,0
		
		DC.W	kPrintable, _MIN, kHeight, kWidth, kWidth_320, kRowY1, kbH1+kwEsc+kWidth*10
		DC.L	0
		DC.B	0,0,0,0,0,0
		
		DC.W	kPrintable, _EQU, kHeight, kWidth, kWidth_320, kRowY1, kbH1+kwEsc+kWidth*11
		DC.L	0
		DC.B	0,0,0,0,0,0
		
		DC.W	kStatic,    _DEL, kHeight, kwDel, kwDel_320, kRowY1, kbH1+kwEsc+kWidth*12
		DC.L	strDEL
		DC.B	0,0,0,0,0,0
	
;--- row 2 (13 keys) ---

		DC.W	kStatic, _TAB, kHeight, kwTab, kwTab_320, kRowY2, kbH1
		DC.L	strTAB
		DC.B	0,0,0,0,0,0

		DC.W	kPrintable, _Q, kHeight, kWidth, kWidth_320, kRowY2, kbH1+kwTab
		DC.L	0
		DC.B	0,0,0,0,0,0

		DC.W	kPrintable, _W, kHeight, kWidth, kWidth_320, kRowY2, kbH1+kwTab+kWidth*1
		DC.L	0
		DC.B	0,0,0,0,0,0

		DC.W	kPrintable, _E, kHeight, kWidth, kWidth_320, kRowY2, kbH1+kwTab+kWidth*2
		DC.L	0
		DC.B	0,0,0,0,0,0

		DC.W	kPrintable, _R, kHeight, kWidth, kWidth_320, kRowY2, kbH1+kwTab+kWidth*3
		DC.L	0
		DC.B	0,0,0,0,0,0

		DC.W	kPrintable, _T, kHeight, kWidth, kWidth_320, kRowY2, kbH1+kwTab+kWidth*4
		DC.L	0
		DC.B	0,0,0,0,0,0

		DC.W	kPrintable, _Y, kHeight, kWidth, kWidth_320, kRowY2, kbH1+kwTab+kWidth*5
		DC.L	0
		DC.B	0,0,0,0,0,0

		DC.W	kPrintable, _U, kHeight, kWidth, kWidth_320, kRowY2, kbH1+kwTab+kWidth*6
		DC.L	0
		DC.B	0,0,0,0,0,0

		DC.W	kPrintable, _I, kHeight, kWidth, kWidth_320, kRowY2, kbH1+kwTab+kWidth*7
		DC.L	0
		DC.B	0,0,0,0,0,0

		DC.W	kPrintable, _O, kHeight, kWidth, kWidth_320, kRowY2, kbH1+kwTab+kWidth*8
		DC.L	0
		DC.B	0,0,0,0,0,0

		DC.W	kPrintable, _P, kHeight, kWidth, kWidth_320, kRowY2, kbH1+kwTab+kWidth*9
		DC.L	0
		DC.B	0,0,0,0,0,0

		DC.W	kPrintable, _LB, kHeight, kWidth, kWidth_320, kRowY2, kbH1+kwTab+kWidth*10
		DC.L	0
		DC.B	0,0,0,0,0,0

		DC.W	kPrintable, _RB, kHeight, kWidth, kWidth_320, kRowY2, kbH1+kwTab+kWidth*11
		DC.L	0
		DC.B	0,0,0,0,0,0

;--- row 3 (13 keys) ---

		DC.W	kMControl+kStatic, _CTL, kHeight, kwCtrl, kwCtrl_320, kRowY3, kbH1
		DC.L	strCTRL
		DC.B	0,0,0,0,0,0

		DC.W	kPrintable, _A, kHeight, kWidth, kWidth_320, kRowY3, kbH1+kwCtrl
		DC.L	0
		DC.B	0,0,0,0,0,0

		DC.W	kPrintable, _S, kHeight, kWidth, kWidth_320, kRowY3, kbH1+kwCtrl+kWidth*1
		DC.L	0
		DC.B	0,0,0,0,0,0

		DC.W	kPrintable, _D, kHeight, kWidth, kWidth_320, kRowY3, kbH1+kwCtrl+kWidth*2
		DC.L	0
		DC.B	0,0,0,0,0,0

		DC.W	kPrintable, _F, kHeight, kWidth, kWidth_320, kRowY3, kbH1+kwCtrl+kWidth*3
		DC.L	0
		DC.B	0,0,0,0,0,0

		DC.W	kPrintable, _G, kHeight, kWidth, kWidth_320, kRowY3, kbH1+kwCtrl+kWidth*4
		DC.L	0
		DC.B	0,0,0,0,0,0

		DC.W	kPrintable, _H, kHeight, kWidth, kWidth_320, kRowY3, kbH1+kwCtrl+kWidth*5
		DC.L	0
		DC.B	0,0,0,0,0,0

		DC.W	kPrintable, _J, kHeight, kWidth, kWidth_320, kRowY3, kbH1+kwCtrl+kWidth*6
		DC.L	0
		DC.B	0,0,0,0,0,0

		DC.W	kPrintable, _K, kHeight, kWidth, kWidth_320, kRowY3, kbH1+kwCtrl+kWidth*7
		DC.L	0
		DC.B	0,0,0,0,0,0

		DC.W	kPrintable, _L, kHeight, kWidth, kWidth_320, kRowY3, kbH1+kwCtrl+kWidth*8
		DC.L	0
		DC.B	0,0,0,0,0,0

		DC.W	kPrintable, _SC, kHeight, kWidth, kWidth_320, kRowY3, kbH1+kwCtrl+kWidth*9
		DC.L	0
		DC.B	0,0,0,0,0,0

		DC.W	kPrintable, _QT, kHeight, kWidth, kWidth_320, kRowY3, kbH1+kwCtrl+kWidth*10
		DC.L	0
		DC.B	0,0,0,0,0,0

		DC.W	kPicture, _CR, kHeight*2, kwRet, kwRet_320, kRowY2, kbH1+kwCtrl+kWidth*11
		DC.L	picRET
		DC.B	0,0,0,0,0,0

;--- row 4 (12 keys) ---

		DC.W	kMShift+kStatic, _LSF, kHeight, kwShift, kwShift_320, kRowY4, kbH1
		DC.L	strSHIFT
		DC.B	0,0,0,0,0,0

		DC.W	kPrintable,      _Z,   kHeight, kWidth, kWidth_320,  kRowY4, kbH1+kwShift
		DC.L	0
		DC.B	0,0,0,0,0,0

		DC.W	kPrintable,      _X,   kHeight, kWidth, kWidth_320,  kRowY4, kbH1+kwShift+kWidth*1
		DC.L	0
		DC.B	0,0,0,0,0,0

		DC.W	kPrintable,      _C,   kHeight, kWidth, kWidth_320,  kRowY4, kbH1+kwShift+kWidth*2
		DC.L	0
		DC.B	0,0,0,0,0,0

		DC.W	kPrintable,      _V,   kHeight, kWidth, kWidth_320,  kRowY4, kbH1+kwShift+kWidth*3
		DC.L	0
		DC.B	0,0,0,0,0,0

		DC.W	kPrintable,      _B,   kHeight, kWidth, kWidth_320,  kRowY4, kbH1+kwShift+kWidth*4
		DC.L	0
		DC.B	0,0,0,0,0,0

		DC.W	kPrintable,      _N,   kHeight, kWidth, kWidth_320,  kRowY4, kbH1+kwShift+kWidth*5
		DC.L	0
		DC.B	0,0,0,0,0,0

		DC.W	kPrintable,      _M,   kHeight, kWidth, kWidth_320,  kRowY4, kbH1+kwShift+kWidth*6
		DC.L	0
		DC.B	0,0,0,0,0,0

		DC.W	kPrintable,      _COM, kHeight, kWidth, kWidth_320,  kRowY4, kbH1+kwShift+kWidth*7
		DC.L	0
		DC.B	0,0,0,0,0,0

		DC.W	kPrintable,      _PER, kHeight, kWidth, kWidth_320,  kRowY4, kbH1+kwShift+kWidth*8
		DC.L	0
		DC.B	0,0,0,0,0,0

		DC.W	kPrintable,      _DIV, kHeight, kWidth, kWidth_320,  kRowY4, kbH1+kwShift+kWidth*9
		DC.L	0
		DC.B	0,0,0,0,0,0

		DC.W	kMShift+kStatic, _RSF, kHeight, kwShift, kwShift_320, kRowY4, kbH1+kwShift+kWidth*10
		DC.L	strSHIFT
		DC.B	0,0,0,0,0,0

;--- row 5 (10 keys) ---

		DC.W	kMCaps+kStatic, _CAP, kHeight, kwCap, kwCap_320, kRowY5, kbH1
		DC.L	strCAPS
		DC.B	0,0,0,0,0,0

		DC.W	kMOption+kStatic, _OPT, kHeight, kwOpt, kwOpt, kRowY5, kbH1+kwCap
		DC.L	strOPT
		DC.B	0,0,0,0,0,0

		DC.W	kMApple, _CMD, kHeight, kwCmnd, kwCmnd_320,  kRowY5, kbH1+kwCap+kwOpt
		DC.L	strAPPLE
		DC.B	0,0,0,0,0,0

		DC.W	kPrintable, _BQT, kHeight, kWidth, kWidth_320, kRowY5, kbH1+kwCap+kwOpt+kwCmnd
		DC.L	0
		DC.B	0,0,0,0,0,0

		DC.W	0, _SPC, kHeight, kwSpace, kwSpace_320, kRowY5, kbH1+kwCap+kwOpt+kwCmnd+kWidth
		DC.L	0
		DC.B	0,0,0,0,0,0

		DC.W	kPrintable, _BSL, kHeight, kWidth, kWidth_320, kRowY5, kbH1+kwCap+kwOpt+kwCmnd+kWidth*1+kwSpace
		DC.L	0
		DC.B	0,0,0,0,0,0

		DC.W	kPicture, _LAW, kHeight, kWidth, kWidth_320, kRowY5, kbH1+kwCap+kwOpt+kwCmnd+kWidth*2+kwSpace
		DC.L	picLEFT
		DC.B	0,0,0,0,0,0

		DC.W	kPicture, _RAW, kHeight, kWidth, kWidth_320, kRowY5, kbH1+kwCap+kwOpt+kwCmnd+kWidth*3+kwSpace
		DC.L	picRIGHT
		DC.B	0,0,0,0,0,0

		DC.W	kPicture, _DAW, kHeight, kWidth, kWidth_320, kRowY5, kbH1+kwCap+kwOpt+kwCmnd+kWidth*4+kwSpace
		DC.L	picDOWN
		DC.B	0,0,0,0,0,0

		DC.W	kPicture, _UAW, kHeight, kWidth, kWidth_320, kRowY5, kbH1+kwCap+kwOpt+kwCmnd+kWidth*5+kwSpace
		DC.L	picUP
		DC.B	0,0,0,0,0,0

;--- 63 keys total (without keypad) ---

;============================================
; Data for keypad	(5 rows)
;			
;	ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ
;	| clr |  =  |  /  |  *  |
;	ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ
;	|  7  |  8  |  9  |  +  |
;	ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ
;	|  4  |  5  |  6  |  -  |
;	ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ
;	|  1  |  2  |  3  |     |
;	ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ|     |
;	|     0     |  .  |     |
;	ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ
;					
;============================================

;--- keypad row 1 (4 keys) ---

		DC.W	kStatic, _padCLR, kHeight, kWidth, kWidth_320, kRowY1, kpH1
		DC.L	strCLR
		DC.B	0,0,0,0,0,0

		DC.W	0, _padEQU, kHeight, kWidth, kWidth_320, kRowY1, kpH1+kWidth*1
		DC.L	strEQU
		DC.B	0,0,0,0,0,0

		DC.W	0, _padDIV, kHeight, kWidth, kWidth_320, kRowY1, kpH1+kWidth*2
		DC.L	strDIV
		DC.B	0,0,0,0,0,0

		DC.W	0, _padMUL, kHeight, kWidth, kWidth_320, kRowY1, kpH1+kWidth*3
		DC.L	strMUL
		DC.B	0,0,0,0,0,0
	
;--- keypad row 2 (4 keys) ---

		DC.W	0, _pad7, kHeight, kWidth, kWidth_320, kRowY2, kpH1
		DC.L	str7
		DC.B	0,0,0,0,0,0
	
		DC.W	0, _pad8, kHeight, kWidth, kWidth_320, kRowY2, kpH1+kWidth*1
		DC.L	str8
		DC.B	0,0,0,0,0,0
	
		DC.W	0, _pad9, kHeight, kWidth, kWidth_320, kRowY2, kpH1+kWidth*2
		DC.L	str9
		DC.B	0,0,0,0,0,0
	
		DC.W	0, _padPLU, kHeight, kWidth, kWidth_320, kRowY2, kpH1+kWidth*3
		DC.L	strPLUS
		DC.B	0,0,0,0,0,0
	
;--- keypad row 3 (4 keys) ---

		DC.W	0, _pad4, kHeight, kWidth, kWidth_320, kRowY3, kpH1
		DC.L	str4
		DC.B	0,0,0,0,0,0
	
		DC.W	0, _pad5, kHeight, kWidth, kWidth_320, kRowY3, kpH1+kWidth*1
		DC.L	str5
		DC.B	0,0,0,0,0,0
	
		DC.W	0, _pad6, kHeight, kWidth, kWidth_320, kRowY3, kpH1+kWidth*2
		DC.L	str6
		DC.B	0,0,0,0,0,0
	
		DC.W	0, _padMIN, kHeight, kWidth, kWidth_320, kRowY3, kpH1+kWidth*3
		DC.L	strMIN
		DC.B	0,0,0,0,0,0
	
;--- keypad row 4 (4 keys) ---

		DC.W	0, _pad1, kHeight, kWidth, kWidth_320, kRowY4, kpH1
		DC.L	str1
		DC.B	0,0,0,0,0,0
	
		DC.W	0, _pad2, kHeight, kWidth, kWidth_320, kRowY4, kpH1+kWidth*1
		DC.L	str2
		DC.B	0,0,0,0,0,0
	
		DC.W	0, _pad3, kHeight,  kWidth, kWidth_320, kRowY4, kpH1+kWidth*2
		DC.L	str3
		DC.B	0,0,0,0,0,0
	
		DC.W	0, _padENT, kHeight*2, kWidth, kWidth_320, kRowY4, kpH1+kWidth*3
		DC.L	0
		DC.B	0,0,0,0,0,0
	
;--- keypad row 5 (2 keys) ---

		DC.W	0, _pad0, kHeight, kWidth*2, kWidth_320*2, kRowY5, kpH1
		DC.L	str0
		DC.B	0,0,0,0,0,0
	
		DC.W	0, _padPER, kHeight, kWidth, kWidth_320, kRowY5, kpH1+kWidth*2
		DC.L	strPER
		DC.B	0,0,0,0,0,0
	
;--- 18 keypad keys, 81 total keys ---


		EXPORT	keyWidths
keyWidths
; board row 1
		DC.B	kwEsc, kWidth, kWidth, kWidth, kWidth, kWidth, kWidth
		DC.B	kWidth, kWidth, kWidth, kWidth, kWidth, kWidth, kwDel
; board row 2
		DC.B	kwTab, kWidth, kWidth, kWidth, kWidth, kWidth, kWidth
		DC.B	kWidth, kWidth, kWidth, kWidth, kWidth, kWidth
; board row 3
		DC.B	kwCtrl, kWidth, kWidth, kWidth, kWidth, kWidth, kWidth
		DC.B	kWidth, kWidth, kWidth, kWidth, kWidth, kwRet
; board row 4
		DC.B	kwShift, kWidth, kWidth, kWidth, kWidth, kWidth, kWidth
		DC.B	kWidth, kWidth, kWidth, kWidth, kwShift
; board row 5
		DC.B	kwCap, kwOpt, kwCmnd, kWidth, kwSpace, kWidth, kWidth
		DC.B	kWidth, kWidth, kWidth

; pad row 1
		DC.B	kWidth, kWidth, kWidth, kWidth
; pad row 2
		DC.B	kWidth, kWidth, kWidth, kWidth
; pad row 3
		DC.B	kWidth, kWidth, kWidth, kWidth
; pad row 4
		DC.B	kWidth, kWidth, kWidth, kWidth
; pad row 5
		DC.B	kWidth*2, kWidth


		EXPORT	keyWidths_320
keyWidths_320

; board row 1
		DC.B	kwEsc_320, kWidth_320, kWidth_320, kWidth_320, kWidth_320, kWidth_320, kWidth_320
		DC.B	kWidth_320, kWidth_320, kWidth_320, kWidth_320, kWidth_320, kWidth_320, kwDel_320
; board row 2
		DC.B	kwTab_320, kWidth_320, kWidth_320, kWidth_320, kWidth_320, kWidth_320, kWidth_320
		DC.B	kWidth_320, kWidth_320, kWidth_320, kWidth_320, kWidth_320, kWidth_320
; board row 3
		DC.B	kwCtrl_320, kWidth_320, kWidth_320, kWidth_320, kWidth_320, kWidth_320, kWidth_320
		DC.B	kWidth_320, kWidth_320, kWidth_320, kWidth_320, kWidth_320, kwRet_320
; board row 4
		DC.B	kwShift_320, kWidth_320, kWidth_320, kWidth_320, kWidth_320, kWidth_320, kWidth_320
		DC.B	kWidth_320, kWidth_320, kWidth_320, kWidth_320, kwShift_320
; board row 5
		DC.B	kwCap_320, kwOpt_320, kwCmnd_320, kWidth_320, kwSpace_320, kWidth_320, kWidth_320
		DC.B	kWidth_320, kWidth_320, kWidth_320

; pad row 1
		DC.B	kWidth_320, kWidth_320, kWidth_320, kWidth_320
; pad row 2
		DC.B	kWidth_320, kWidth_320, kWidth_320, kWidth_320
; pad row 3
		DC.B	kWidth_320, kWidth_320, kWidth_320, kWidth_320
; pad row 4
		DC.B	kWidth_320, kWidth_320, kWidth_320, kWidth_320
; pad row 5
		DC.B	kWidth_320*2, kWidth_320


picUP
		dc.B	$FF,$FF,$FF,$FF		; image for up arrow
		dc.B	$FF,$F0,$FF,$FF
		dc.B	$FF,$00,$0F,$FF
		dc.B	$F0,$F0,$F0,$FF
		dc.B	$FF,$F0,$FF,$FF
		dc.B	$FF,$F0,$FF,$FF
		dc.B	$FF,$F0,$FF,$FF
		dc.B	$FF,$F0,$FF,$FF

picDOWN
		dc.B	$FF,$FF,$FF,$FF		; image for down arrow */
		dc.B	$FF,$F0,$FF,$FF
		dc.B	$FF,$F0,$FF,$FF
		dc.B	$FF,$F0,$FF,$FF
		dc.B	$FF,$F0,$FF,$FF
		dc.B	$F0,$F0,$F0,$FF
		dc.B	$FF,$00,$0F,$FF
		dc.B	$FF,$F0,$FF,$FF

picLEFT
		dc.B	$FF,$FF,$FF,$FF		; image for left arrow */
		dc.B	$FF,$FF,$FF,$FF
		dc.B	$FF,$FF,$FF,$FF
		dc.B	$FF,$0F,$FF,$FF
		dc.B	$F0,$FF,$FF,$FF
		dc.B	$00,$00,$00,$0F
		dc.B	$F0,$FF,$FF,$FF
		dc.B	$FF,$0F,$FF,$FF

picRIGHT
		dc.B	$FF,$FF,$FF,$FF		; image for right arrow */
		dc.B	$FF,$FF,$FF,$FF
		dc.B	$FF,$FF,$FF,$FF
		dc.B	$FF,$FF,$0F,$FF
		dc.B	$FF,$FF,$F0,$FF
		dc.B	$00,$00,$00,$0F
		dc.B	$FF,$FF,$F0,$FF
		dc.B	$FF,$FF,$0F,$FF

picRET
		dc.B	$FF,$FF,$FF,$FF		; image for return key */
		dc.B	$FF,$FF,$F0,$00
		dc.B	$FF,$FF,$FF,$F0
		dc.B	$FF,$0F,$FF,$F0
		dc.B	$F0,$0F,$FF,$F0
		dc.B	$00,$00,$00,$00
		dc.B	$F0,$0F,$FF,$FF
		dc.B	$FF,$0F,$FF,$FF


		EXPORT	picInfo
picInfo
		DC.W	$0080
		DC.L	0
		DC.W	picDX/4
		DC.W	0 , 0, picDY, picDX

		EXPORT	modState
modState	DS.W	1

		EXPORT	keyWidth
keyWidth	DS.W	1

		EXPORT	keyWidthReturn
keyWidthReturn	DS.W	1

		EXPORT	keyWidthESC
keyWidthESC	DS.W	1

		EXPORT	use640
use640		DS.W	1

		EXPORT	start
start		DS.W	1

		EXPORT	end
end		DS.W	1

		EXPORT	temp
temp		DS.L	2

		EXPORT	ADBFinished
ADBFinished	DS.W	1

		EXPORT	currentKey
currentKey	DS.W	1

		EXPORT	newTime
newTime		DS.L	1

		EXPORT	oldTime
oldTime		DS.L	1

		EXPORT	modKeys
modKeys
		DC.W	iLeftShift		; index to shift key
		DC.W	iOption			; index to option key
		DC.W	iCapsLock		; index to caps lock key
		DC.W	iCommand		; index to command key
		DC.W	iControl		; index to control key

		EXPORT	keyboardRect
keyboardRect	DC.W	kbV1, kbH1, kbV2, kbH2

		EXPORT	keypadRect
keypadRect	DC.W	kpV1, kpH1, kpV2, kpH2

		ENDP
		
		END

\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/VideoKeyboard/Main.a b/IIGS.601.SRC/A.U.G/VideoKeyboard/Main.a
new file mode 100644
index 0000000..086a2ff
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/VideoKeyboard/Main.a
@@ -0,0 +1 @@
+*===============================================*
*						*
* File:		Main.a				*
* Project:	Video Keyboard			*
* Author:	Don J. Brady			*
* Build file:	MakeFile			*
*						*
* Copyright © Apple Computer, Inc. 1989-1992	*
* All rights reserved.				*
*===============================================*

		INCLUDE	'M16.Memory'
		INCLUDE	'M16.MiscTool'
		INCLUDE	'M16.QuickDraw'
		INCLUDE	'M16.QDAux'
		INCLUDE	'M16.Event'
		INCLUDE	'M16.Menu'
		INCLUDE	'M16.Font'
		INCLUDE	'M16.Desk'
		INCLUDE	'M16.GSOS'
		INCLUDE	'M16.Locator'
		
		INCLUDE	'E16.Memory'
		INCLUDE	'E16.Event'
		INCLUDE	'E16.MiscTool'
		INCLUDE	'E16.Font'
		INCLUDE	'E16.Desk'


SysPrefsRecGS	RECORD	0
;-----------------------------------------------
pCount		ds.W	1
preferences	ds.W	1
;-----------------------------------------------
		ENDR 


FontIDRec	RECORD	0
;-----------------------------------------------
famNum		ds.W	1
fontStyle	ds.B	1
fontSize	ds.B	1
;-----------------------------------------------
		ENDR 

FontStatRec	RECORD	0
;-----------------------------------------------
resultID	ds	FontIDRec
resultStats	ds.W	1
;-----------------------------------------------
		ENDR 



fontManager	equ	$001B

attrDP		equ	attrFixed+attrPage+attrBank

*===============================================*
*	The standard NDA Header			*
*===============================================*

NDAHeader	PROC

		IMPORT	NDAOpen:CODE		; in NDAMain.c
		IMPORT	NDAClose:CODE
		IMPORT	NDAAction:CODE
		IMPORT	NDAInit:CODE
		EXPORT	menuID
		EXPORT	menuStr
		
		STRING	ASIS
		
		dc.L	NDAOpen
		dc.L	NDAClose
		dc.L	NDAAction
		dc.L	NDAInit
		dc.W	60*4			; period (60 ticks = 1 sec)
		dc.W	updateMask+activeMask	; event mask
menuStr		dc.B	'--Video Keyboard\H'	; menu text
menuID		dc.B	'**'
		dc.B	13
		dc.B	'VKB 1.0,'		; ...for load file dumps

		dc.B	'Copyright © Apple Computer, Inc.1989-92'


;--- Global data for main module
		
		ENTRY	opened
opened		dc.W	0
		ENTRY	wasOpened
wasOpened	dc.W	0
		ENTRY	alreadyShutdown
alreadyShutdown	dc.W	1
		ENTRY	firstTime
firstTime	dc.W	1
		ENTRY	busy
busy		dc.W	0

		ENTRY	sysPrefRec
sysPrefRec	dc.W	1
		dc.W	0

		ENTRY	fontStat
fontStat	ds	FontStatRec

		STRING	PASCAL
		
		ENTRY	aboutMenuStr
aboutMenuStr	dc.B	'About Video Key...'

		EXPORT	genevaFont
genevaFont	dc.L	0

		ENTRY	language
language	ds.W	1
		ENTRY	translation
translation	ds.W	1
		EXPORT	dblTime
dblTime		ds.L	1

		ENTRY	runCount
runCount	ds.W	1
		
		EXPORT	_ownerid
_ownerid	ds.W	1
		EXPORT	_menuID
_menuID		ds.W	1
		EXPORT	_toolErr
_toolErr	ds.L	1


		ENTRY	event
event		ds.B	16

		ENDP

*===============================================*
* In:	none					*
*						*
* Out:	GrafPortPtr (on stack)			*
*						*
*===============================================*

NDAOpen		PROC	EXPORT

		LONGA	ON
		LONGI	ON

		IMPORT	KeyStartUp
		IMPORT	CreateWindoid
		IMPORT	InstallPatch
		IMPORT	AboutWindow
		IMPORT	RunTask
		
		phb
		phk
		plb
		
		lda	opened
		bne	about

		_WaitCursor			; are we guarenteed QDAux ???
		
		lda	firstTime
		beq	skip
		stz	firstTime

		pha
		pea	kyBdLang
		_ReadBParam
		pla
		sta	language
		
		pha
		_GetKeyTranslation
		pla
		sta	translation
skip
		jsl	KeyStartUp
		
		jsl	CreateWindoid

		lda	#1
		sta	opened

		pea	aboutMenuStr>>16	; change menu to 'About VKBÉ'
		pea	aboutMenuStr
		lda	menuID
		pha
		_SetMItemName

		_InitCursor
		jsl	InstallPatch		; called with arrow cursor set
		
		stz	runCount

		pea	RunTask>>16
		pea	RunTask
		_AddToRunQ
		
		bra	exit

about
		lda	#1
		jsl	AboutWindow
@while
		pha
		pea	mDownMask+keyDownMask
		pea	event>>16
		pea	event
		_GetNextEvent
		pla
		beq	@while

		lda	#0
		jsl	AboutWindow
exit
		plb		
		lda	#0
		sta	4,s
		sta	6,s
		rtl

		ENDP

*=======================================*
* In:	none				*
*					*
* Out:	none				*
*					*
*=======================================*

NDAClose	PROC	EXPORT

		LONGA	ON
		LONGI	ON

		IMPORT	RemovePatch
		IMPORT	RunTask
		IMPORT	KeyShutDown
		IMPORT	DestroyWindoid

		phb
		phk
		plb

		lda	opened
		beq	exit
		
		pea	menuStr>>16
		pea	menuStr
		lda	menuID
		pha
		_SetMItem

		pea	RunTask>>16
		pea	RunTask
		_RemoveFromRunQ

		jsl	RemovePatch

		jsl	KeyShutDown
		
		jsl	DestroyWindoid

		stz	opened
exit	
		plb
		rtl

		ENDP


*=======================================*
* In:	a-reg has code			*
*	x,y-reg have event pointer	*
*					*
* Out:	a-reg has result flag		*
*					*
*=======================================*

NDAAction	PROC	EXPORT

		LONGA	ON
		LONGI	ON

		IMPORT	NDARun
		
		phb
		phk
		plb
		
		ldx	busy
		bne	exit
		inc	busy

		cmp	#runAction
		bne	done
		
		jsl	NDARun
done
		stz	busy
exit
		plb
		lda	#0
		rtl

		ENDP


*=======================================*
* In:	a-reg 0: shutdown, ­0: startup	*
*					*
* Out:	none				*
*					*
*=======================================*

NDAInit		PROC	EXPORT

		LONGA	ON
		LONGI	ON

		IMPORT	NDAClose
		IMPORT	OpenTask

		phb
		phk
		plb
		
		tax
		beq	shutdown
startup

		pha			; space for result (word)
		_MMStartUp		; find out my user ID
		pla
		sta	_ownerid
		
		lda	menuID		; get my menu id
		sta	_menuID
		
		lda	opened
		bne	exit

		stz	alreadyShutdown
		
		pea	OpenTask>>16
		pea	OpenTask
		_AddToRunQ
		
		bra	exit
shutdown
		lda	alreadyShutdown
		bne	exit
		inc	alreadyShutdown
		lda	opened
		sta	wasOpened

		jsl	NDAClose
		lda	genevaFont
		ora	genevaFont+2
		beq	exit

		lda	genevaFont+2
		pha
		lda	genevaFont
		pha
		_DisposeHandle
		stz	genevaFont
		stz	genevaFont+2

exit
		plb
		rtl
		
		ENDP


*===============================================*
* In:	none					*
*						*
* Out:	none					*
*						*
*===============================================*

NDARun		PROC	EXPORT

		LONGA	ON
		LONGI	ON
		

		IMPORT	RedrawWindoid
		IMPORT	KeyStartUp
	
;--- check if keyboard language or translation has changed
	
		pha
		_GetKeyTranslation
		pha
		pea	kyBdLang
		_ReadBParam
		pla				; get language (a)
		plx				; get translation (x)
		cmp	language
		bne	change
		cpx	translation
		beq	skip
change
		sta	language
		stx	translation

;		_WaitCursor

		jsl	KeyStartUp

		jsl	RedrawWindoid

;		_InitCursor
skip
		pha				; fetch current double-click speed
		pha
		_GetDblTime
		pla
		plx
		sta	dblTime
		stx	dblTime+2
exit
		rtl

		ENDP


*===============================================*
* In:	none					*
*						*
* Out:	none					*
*						*
*===============================================*

CheckFM		PROC

		LONGA	ON
		LONGI	ON

oldPref		set	1
hadToLoad	set	oldPref+2
sysFontHandle	set	hadToLoad+2
fontHandle	set	sysFontHandle+4
size		set	fontHandle+4
fmDPSpace	set	size+4
sizeOfFrame	set	fmDPSpace+256


		IMPORT	sysPrefRec:SysPrefsRecGS
		IMPORT	fontStat:FontStatRec
		
		phd				; make a stack frame

		tsc
		sec
		sbc	#sizeOfFrame
		tcs
		tcd
	
		stz	<hadToLoad

;		lda	#1			; save GS/OS System Preferences
;		sta	sysPrefRec.pCount
		
		_GetSysPrefsGS sysPrefRec
		lda	sysPrefRec.preferences
		sta	<oldPref
		
		ora	#$8000				; set bit 15: display volume mount dialog
		and	#$BFFF				; clear bit 14: use standard mount dialog
		sta	sysPrefRec.preferences
		
		_SetSysPrefsGS sysPrefRec

;--- see if FontManager is active:

		pea	0
		_FMStatus
		pla
		bne	active		
		
		pea	fontManager
		pea	0
		_LoadOneTool
		bcc	loaded
		brl	done
loaded
		inc	<hadToLoad

		lda	_ownerid
		pha
		tdc
		clc
		adc	#fmDPSpace			; offset to DP space
		pha
		_FMStartUp
		bcc	active
		brl	skip
active		
		pha					; save current font
		pha
		_GetFont
		pla
		plx
		sta	<sysFontHandle
		stx	<sysFontHandle+2
		
		pea	$0A00				; install 10pt geneva font
		pea	$0003
		pea	$0000
		_InstallFont
		bcs	restore

		pea	$0A00
		pea	$0003
		pea	0
		pea	1
		pea	fontStat>>16
		pea	fontStat
		_FindFontStats
		bcs	restore
		
		lda	fontStat.resultStats
		and	#notFoundBit+unrealBit
		bne	restore				; font not found, so skip
		
		pha
		pha
		_GetFont
		pla
		plx
		sta	<fontHandle
		stx	<fontHandle+2
		
		pha
		pha
		phx
		pha
		_GetHandleSize
		pla
		plx
		sta	<size
		stx	<size+2
		
		pha					; space for result handle
		pha
		pei	<size+2				; size
		pei	<size
		lda	_ownerid			; id
		pha
		pea	attrNoSpec			; attributes
		pea	0				; address
		pea	0
		_NewHandle
		pla
		plx
		sta	genevaFont
		stx	genevaFont+2
		bcs	restore
		
		pei	<fontHandle+2
		pei	<fontHandle
		phx
		pha
		pei	<size+2
		pei	<size
		_HandToHand
restore
		pei	<sysFontHandle+2			; restore current font
		pei	<sysFontHandle
		_SetFont
skip
		lda	<hadToLoad
		beq	done

		_FMShutDown

		pea	fontManager
		_UnloadOneTool

done
		lda	oldPref				; restore GS/OS System Preferences
		sta	sysPrefRec.preferences

		_SetSysPrefsGS sysPrefRec
		
		tsc
		clc
		adc	#sizeOfFrame
		tcs
		pld

		rtl



*===============================================*
* In:	none					*
*						*
* Out:	none					*
*						*
*===============================================*

OpenTask	PROC
		
		LONGA	ON
		LONGI	ON

		IMPORT	CheckFM

;--- RunQ Header ---------------

		dc.L	0			; link (used by desk mgr)
taskPeriod	dc.W	1			; period
		dc.W	$A55A			; signature
		dc.L	0			; reserved (used by desk mgr)

;-------------------------------

		phb
		phk
		plb				; use local addressing
		
		lda	#1			; reset the period
		sta	taskPeriod

		jsl	CheckFM			; load the Font Manager...

		lda	wasOpened
		beq	done

		pha				; space for result
		lda	menuID
		pha
		_OpenNDA
		pla
done
		pea	OpenTask>>16
		pea	OpenTask
		_RemoveFromRunQ

		plb
		rtl

		ENDP


*===============================================*
* In:	none					*
*						*
* Out:	none					*
*						*
*===============================================*

RunTask		PROC

		LONGA	ON
		LONGI	ON

		IMPORT	NDARun
		IMPORT	masterSCB

runPeriod	equ	2			; period for Run Queue task

;--- RunQ Header ---------------

		dc.L	0			; link (used by desk mgr)
taskPeriod	dc.W	runPeriod		; period
		dc.W	$A55A			; signature
		dc.L	0			; reserved (used by desk mgr)

;-------------------------------

		phb
		phk
		plb
	
		lda	#runPeriod		; reset the period
		sta	taskPeriod

; if masterSCB changes on us then close down

		pha
		_GetMasterSCB
		pla
		cmp	>masterSCB
		beq	safe
		jsl	NDAClose
		bra	exit
safe
		lda	runCount
		inc	a
		inc	a
		sta	runCount
		cmp	#60*4
		bcc	exit
		stz	runCount

		jsl	NDARun
exit	
		plb
		rtl
		
		ENDP

*======================================*

		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/VideoKeyboard/MakeFile b/IIGS.601.SRC/A.U.G/VideoKeyboard/MakeFile
new file mode 100644
index 0000000..7e6900d
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/VideoKeyboard/MakeFile
@@ -0,0 +1 @@
+# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # 
#   File:       MakeFile
#   Target:     VideoKeyboard
#   Sources:    See CODE variable below...
#   Created:    Friday, July 21, 1989
#	Author:		Don J. Brady
#
#	Copyright © AppleComputer, Inc. 1989-90
#	All Rights Reserved.
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # 

PROJECT		=	VideoKeyboard

AOPTIONS	=
LOPTIONS	=	-t $B8
KIND		=	$1000

CODE		=	Main.o			¶
				Mouse.o			¶
				Window.o		¶
				Key.o			¶
				KeyData.o


{PROJECT} 	ÄÄ Makefile {CODE}
			LinkIIGS {LOPTIONS}						¶
				-lseg:{KIND} {PROJECT} {CODE}		¶
				-o {PROJECT}


#	default rules for source to object

.o	Ä .a 
	AsmIIGS {AOPTIONS} -o {Default}.o {Default}.a

\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/VideoKeyboard/Mouse.a b/IIGS.601.SRC/A.U.G/VideoKeyboard/Mouse.a
new file mode 100644
index 0000000..4cb250d
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/VideoKeyboard/Mouse.a
@@ -0,0 +1 @@
+*===========================================*
*											*
*	File:		Mouse.a						*
*	Project:	Video Keyboard				*
*	Author:		Don J. Brady				*
*											*
*	Copyright © Apple Computer,Inc. 1989-91	*
*	All rights reserved.					*
*-------------------------------------------*
*	Modification History:					*
*	07/26/89	DJB		File created today	*
*											*
*===========================================*

				PRINT	OFF
		
				INCLUDE	'E16.Event'	
				INCLUDE	'M16.QuickDraw'	
				INCLUDE	'M16.Event'	
				INCLUDE	'M16.Locator'	
				INCLUDE	'M16.MiscTool'	

				PRINT	ON

GetNextEvent	equ		$0A06
EventAvail		equ		$0B06
EventToolSet	equ		$06

v1				equ		0					; Rect offsets
h1				equ		v1+2
v2				equ		h1+2
h2				equ		v2+2

DECBUSYFLAG		equ		$E10068

SeekRgnVec		equ		$E01ED8				; QD vectors that we patch
UnDrawCursor	equ		$E01FD0

IDROUTINE		equ		$FE1F				; firmware id routine

RgnPtr			equ		$80					; QD zero page offsets
StatePtr		equ		RgnPtr+4

;	Offsets in state record for non-rectangular region

S_GenLInfo		equ 0
S_RgnPtr		equ S_GenLInfo+2
S_DataPtr		equ S_RgnPtr+4
S_ScanBuf		equ S_DataPtr+4
S_ScanSize		equ S_ScanBuf+4 
S_ThisV			equ S_ScanSize+2
S_NextV			equ S_ThisV+2 
S_MinX			equ S_NextV+2
S_MaxX			equ S_MinX+2 
S_LeftH			equ S_MaxX+2
S_currVpos 		equ S_LeftH+2
S_DataIndex		equ S_currVpos+2
S_SeekDir		equ S_DataIndex+2
StateRecSize	equ S_SeekDir+2

				ENTRY	MySeekRgn			; forward referenced routines
				ENTRY	MyUnDrawCursor
				ENTRY	GetROMVersion

*===========================================*
StaticData		PROC

				ENTRY	EventAvailPtr
EventAvailPtr	dc.L	0

				ENTRY	GetNextEventPtr
GetNextEventPtr	dc.L	0

				Entry	mouseTime
mouseTime		dc.L	0

				ENTRY	myEventRec
myEventRec		ds.B	20

				ENTRY	skipPreProcess		; ­ means don't do any preprocessing
skipPreProcess	dc.W	0

				ENTRY	noMouseTrap
noMouseTrap		dc.W	0

				ENTRY	lastCursor
lastCursor		dc.L	0

				ENTRY	myCursorAddr
myCursorAddr	dc.L	0

				ENTRY	tempRect
tempRect		dc.W	0,0,0,0

				ENTRY	MySeekRgnVec
MySeekRgnVec	jml		>MySeekRgn

				Entry	RealSeekRgnVec
RealSeekRgnVec	dc.L	0

				ENTRY	_UnDrawCursor
_UnDrawCursor	jml		>MyUnDrawCursor		; jump to out UnDrawCursor

				Entry	jUnDrawCursor
jUnDrawCursor	dc.L	0					; jump to real UnDrawCursor

;---- Call table for Event manager ---------

				ENTRY	EMCallTable
				ENTRY	EMGetNextEvent
				ENTRY	EMEventAvail

EMCallTable		dc.L	(TheEnd-EMCallTable)/4 	; number of calls + 1
				dc.L	0					; $01 old bootInit
				dc.L	0					; $02 old startup
				dc.L	0					; $03 old shutdown
				dc.L	0					; $04 old version
				dc.L	0					; $05 old reset
				dc.L	0					; $06 old status
				dc.L	0					; $07 old function
				dc.L	0					; $08 old function
				dc.L	0					; $09 old function
EMGetNextEvent	dc.L	0					; $0A __GetNextEvent
EMEventAvail	dc.L	0					; $0B __EventAvail
				dc.L	0					; $0C old function
				dc.L	0					; $0D old function
				dc.L	0					; $0E old function
				dc.L	0					; $0F old function
				dc.L	0					; $10 old function
				dc.L	0					; $11 old function
				dc.L	0					; $12 old function
				dc.L	0					; $13 old function
				dc.L	0					; $14 old function
				dc.L	0					; $15 old function
				dc.L	0					; $16 old function
				dc.L	0					; $17 old function
				dc.L	0					; $18 old function
				dc.L	0					; $19 old function
				dc.L	0					; $1A old function
				dc.L	0					; $1B old function
				dc.L	0					; $1C old function
TheEnd

				ENTRY	IOwnTheCursor
IOwnTheCursor	dc.W	0

				ENTRY	SmartApp
SmartApp		dc.W	0

				ENTRY	ROMVersion
ROMVersion		dc.W	0


				IF 0 = 1 THEN
				ENTRY	myCursorRec
myCursorRec		dc.w	16,5									; cursor size
				dc.B	$00,$00,$00,$FF,$F0,$00,$00,$00,$00,$00	; cursor image
				dc.B	$00,$00,$0F,$00,$FF,$00,$00,$00,$00,$00
				dc.B	$00,$00,$0F,$00,$FF,$00,$00,$00,$00,$00
				dc.B	$00,$00,$0F,$00,$FF,$00,$00,$00,$00,$00
				dc.B	$00,$00,$0F,$00,$FF,$00,$00,$00,$00,$00
				dc.B	$00,$00,$0F,$00,$FF,$00,$00,$00,$00,$00
				dc.B	$0F,$FF,$0F,$00,$FF,$FF,$F0,$00,$00,$00
				dc.B	$F0,$0F,$FF,$00,$F0,$F0,$FF,$F0,$00,$00
				dc.B	$0F,$00,$FF,$00,$F0,$F0,$F0,$FF,$00,$00
				dc.B	$00,$F0,$0F,$00,$00,$00,$F0,$FF,$00,$00
				dc.B	$00,$F0,$0F,$00,$00,$00,$00,$FF,$00,$00
				dc.B	$00,$0F,$00,$00,$00,$00,$00,$FF,$00,$00
				dc.B	$00,$00,$F0,$00,$00,$00,$00,$FF,$00,$00
				dc.B	$00,$00,$F0,$00,$00,$00,$0F,$F0,$00,$00
				dc.B	$00,$00,$0F,$00,$00,$00,$0F,$F0,$00,$00
				dc.B	$00,$00,$0F,$00,$00,$00,$0F,$F0,$00,$00
				
				dc.B	$00,$00,$00,$FF,$F0,$00,$00,$00,$00,$00	; mask image
				dc.B	$00,$00,$0F,$FF,$FF,$00,$00,$00,$00,$00
				dc.B	$00,$00,$0F,$FF,$FF,$00,$00,$00,$00,$00
				dc.B	$00,$00,$0F,$FF,$FF,$00,$00,$00,$00,$00
				dc.B	$00,$00,$0F,$FF,$FF,$00,$00,$00,$00,$00
				dc.B	$00,$00,$0F,$FF,$FF,$00,$00,$00,$00,$00
				dc.B	$0F,$FF,$0F,$FF,$FF,$FF,$F0,$00,$00,$00
				dc.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$00,$00
				dc.B	$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$00,$00
				dc.B	$00,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$00,$00
				dc.B	$00,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$00,$00
				dc.B	$00,$0F,$FF,$FF,$FF,$FF,$FF,$FF,$00,$00
				dc.B	$00,$00,$FF,$FF,$FF,$FF,$FF,$FF,$00,$00
				dc.B	$00,$00,$FF,$FF,$FF,$FF,$FF,$F0,$00,$00
				dc.B	$00,$00,$0F,$FF,$FF,$FF,$FF,$F0,$00,$00
				dc.B	$00,$00,$0F,$FF,$FF,$FF,$FF,$F0,$00,$00
				dc.W	0,7										; hotspot

				ENDIF

				ENDP
				
*===========================================*
*	Preprocess GetEvent routines			*
*											*
*	We are looking for mouse events in our	*
*	windoid. If we find any we handle the	*
*	event ourself and remove it from the	*
*	queue.									*
*											*
* INPUT:	none							*
*											*
* OUTPUT:	carry set = don't pass mouse 	*
*			events to caller				*
*											*
*===========================================*
EventPreProcess	PROC

				IMPORT	CheckWindoid
				
				phb
				phk
				plb
				
				pha							; space for result
				pea	mDownMask+mUpMask		; pass event mask
				pea myEventRec>>16			; pass event record pointer
				pea myEventRec
				_OSEventAvail				; first look for mouse event
											; leave result on stack for later
				lda	myEventRec
				bne	@time					; there is a mouse event

				jsr	CheckCursor				; else check for cursor over our windoid			
				bra	@check

@time			ldx	#owhen					; remember time of this mouse event
				lda	myEventRec,x
				sta	mouseTime
				lda	myEventRec+2,x
				sta	mouseTime+2
				
@check
				ldy	myEventRec+owhere		; pass mouse location (in global coordinates)
				ldx	myEventRec+owhere+2
				lda	myEventRec				; pass event type in a-reg {0,1,2}
				jsl	CheckWindoid			; check if we want it
				
				pla							; get current mouse event (or null) off stack
				beq	@else					; if ( mouseEvent AND !CheckWindoid) then
				bcc	@exit					;	  "OK to let mouse events through"
@else			sec							; else
											;	  "don't let mouse events through"

@exit			plb
				rtl

;-------------------------------------------
;				IMPORT	GetWindoidRect		; extern pascal void GetWindoidRect()
				IMPORT	globalPortRect
CheckCursor

;				pea	tempRect>>16			; get windoid's rect (global)
;				pea	tempRect
;				jsl	GetWindoidRect

				lda	globalPortRect+v1
				sta	tempRect+v1
				lda	globalPortRect+h1
				sta	tempRect+h1
				lda	globalPortRect+v2
				sta	tempRect+v2
				lda	globalPortRect+h2
				sta	tempRect+h2
				
				lda	tempRect+h1
				bpl	@ok1
				stz	tempRect+h1
				
@ok1			pha							; space for result (3 bytes)
				pha
				pha
				_ReadMouse
				pla
				ply							; get mouse location
				plx
				
				cpx	tempRect+h1				; if (x < h1) or (x > h2) then skip
				bcc	@outside
				cpx	tempRect+h2
				bcs	@outside
				cpy	tempRect+v1				; if (y < v1) or (y > v2) then skip
				bcc	@outside
				cpy	tempRect+v2
				bcc	@inside					; cursor is in our windoid

@outside
				stz  IOwnTheCursor
				
				lda	 SmartApp				; is application smart?
				bne  @done					; yes, so let it put the cursor back

				lda	lastCursor				; was it changed?
				ora	lastCursor+2
				beq	@done

				lda	lastCursor+2			; set it back to what it was
				pha
				lda	lastCursor
				pha
				_SetCursor
				stz	lastCursor
				stz	lastCursor+2
				bra	@done

@inside
				pha							; space for result (long)
				pha
				_GetCursorAdr
				pla
				plx
				cmp	myCursorAddr			; have we set our cursor yet?
				bne	@set
				cpx	myCursorAddr+2
				beq	@doneSetFlag			; already set
				
@set			sta	lastCursor				; save current cursor record
				stx	lastCursor+2
				
				stz  SmartApp
				stz  IOwnTheCursor			; allow cursor changes over MY windoid

				lda	myCursorAddr+2			; set cursor to ours
				pha
				lda	myCursorAddr
				pha
				_SetCursor
@doneSetFlag				
				lda  #$FFFF
				sta  IOwnTheCursor			; don't allow cursor changes over MY windoid

@done			rts

				ENDP
				
				
*===========================================*
* Remove last mouse event from event queue	*
*											*
* INPUT:	none							*
*											*
* OUTPUT:	none							*
*											*
*===========================================*

KillMouseEvent	PROC	EXPORT				; pascal void KillMouseEvent()

				pha							; space for result
				pea	mDownMask+mUpMask		; pass event mask
				pea myEventRec>>16			; pass event record pointer
				pea myEventRec
				_GetOSEvent					; remove event from queue
				pla

				rtl
				
				ENDP

*===========================================*
* Remove last mouse event from event queue	*
*											*
* INPUT:	none							*
*											*
* OUTPUT:	none							*
*											*
*===========================================*

GetMouseTime	PROC	EXPORT				; pascal Long GetMouseTime()

				lda	>mouseTime+2
				tax			
				lda	>mouseTime				; return time of last mouse event
				rtl
				
				ENDP

*===========================================*
* EventAvail Patch Routine					*
*											*
* INPUT:	--- STACK ---					*
*		WORD - result space					*
*		WORD - event mask					*
*		LONG - event record pointer			*
*		3 BYTES - rtl addr #1				*
*		3 BYTES - rtl addr #2				*
*											*
* OUTPUT:	--- STACK ---					*
*		WORD - result						*
*		3 BYTES - rtl addr #1				*
*		3 BYTES - rtl addr #2				*
*											*
*===========================================*
				
__EventAvail	PROC

ySave			SET	1						; my stack offsets
xSave			SET	ySave+2
aSave			SET	xSave+2
jslAddr			SET	aSave+2

rtlAddr2		SET  jslAddr+3				; input parameter stack offsets
rtlAddr1		SET  rtlAddr2+3
eventPtr		SET  rtlAddr1+3
eventMask		SET  eventPtr+4
result			SET  eventMask+2
				

				phb							; space for new rtl addr (3 bytes)
				pha
								
				pha							; save registers
				phx
				phy

;------------------------------------------				
				lda	>skipPreProcess
				ora	>noMouseTrap
				bne	exit					; don't do any preprocessing

				lda	#$FFFF
				sta	>skipPreProcess

				jsl	EventPreProcess			; do some preprocessing
				bcc	@skip

				lda	eventMask,s
				and	#Å(mDownMask+mUpMask)	; don't let caller see mouse events
				sta	eventMask,s

@skip			lda	#0
				sta	>skipPreProcess
;------------------------------------------				

exit			lda	>EventAvailPtr+1		; get address of EventAvail routine
				sta	jslAddr+1,s
				lda	>EventAvailPtr
				sta	jslAddr,s

				ply							; restore registers
				plx
				pla

				rtl							; go to REAL EventAvail
	
				ENDP


*===========================================*
* GetNextEvent Patch Routine				*
*											*
* INPUT:	--- STACK ---					*
*		WORD - result space					*
*		WORD - event mask					*
*		LONG - event record pointer			*
*		3 BYTES - rtl addr #1				*
*		3 BYTES - rtl addr #2				*
*											*
* OUTPUT:	--- STACK ---					*
*		WORD - result						*
*		3 BYTES - rtl addr #1				*
*		3 BYTES - rtl addr #2				*
*											*
*===========================================*

__GetNextEvent	PROC

ySave			SET	1						; my stack offsets
xSave			SET	ySave+2
aSave			SET	xSave+2
jslAddr			SET	aSave+2

rtlAddr2		SET  jslAddr+3				; input parameter stack offsets
rtlAddr1		SET  rtlAddr2+3
eventPtr		SET  rtlAddr1+3
eventMask		SET  eventPtr+4
result			SET  eventMask+2
				
								
				phb							; space for new rtl addr (3 bytes)
				pha
					
				pha							; save registers
				phx
				phy
				
;------------------------------------------				
				lda	>skipPreProcess
				ora	>noMouseTrap
				bne	exit					; don't do any preprocessing

				lda	#$FFFF
				sta	>skipPreProcess

				jsl	EventPreProcess			; do some preprocessing
				bcc	@skip

				lda	eventMask,s
				and	#Å(mDownMask+mUpMask)	; don't let caller see mouse events
				sta	eventMask,s

@skip			lda	#0
				sta	>skipPreProcess
				bra	exit
;------------------------------------------	

exit			lda	>GetNextEventPtr+1		; get address of real GetNextEvent routine
				sta	jslAddr+1,s
				lda	>GetNextEventPtr
				sta	jslAddr,s

				ply							; restore registers
				plx
				pla
				
				rtl							; go to REAL GetNextEvent
	
				ENDP

*===========================================*
*	Temporarily disable our mouse trap		*
*											*
* INPUT:	none							*
* OUTPUT:	none							*
*===========================================*

DisableMouseTrap	PROC	EXPORT			; pascal void DisableMouseTrap()
					
				lda	#$FFFF
				sta	>noMouseTrap
				rtl
					
				ENDP

*===========================================*
*	Reenable our mouse trap					*
*											*
* INPUT:	none							*
* OUTPUT:	none							*
*===========================================*

EnableMouseTrap	PROC	EXPORT				; pascal void EnableMouseTrap()
					
				lda	#0
				sta	>noMouseTrap
				rtl
					
				ENDP
				
*===========================================*
*	A patch for QD's SeekRgn routine		*
*											*
* This will hopefully fix the bug in QD's	*
* _ScrollRect routine.  When scrolling a    *
* non-rectangular region up, it would hang.	*
* We fix the problem by patching _SeekRgn.	*
*											*
* INPUT:	none							*
* OUTPUT:	none							*
*===========================================*

MySeekRgn		PROC
					
				ldy  #S_RgnPtr				; SeekRgn uses RgnPtr, but no one inits it!
				lda  [StatePtr],y
				sta  <RgnPtr				; therefore I'll init it here
				iny
				iny
				lda  [StatePtr],y
				sta  <RgnPtr+2
				jmp  RealSeekRgnVec			; now its safe to call SeekRgn
					
				ENDP

*===========================================*
*	A patch for QD's UnDrawCursor routine	*
*											*
*===========================================*

MyUnDrawCursor	PROC
	
rtlAddrROM01	SET  $3D9E					; _SetCursor's rtl addresses in bank $FE
rtlAddrROM03	SET  $50A3

				pha
				
				lda  >IOwnTheCursor
				beq  skip

				lda  5,s
				and  #$00FF
				cmp  #$00FE					; is caller's bank $FE ?
				bne  skip

				lda  >ROMVersion
				cmp  #3
				beq  @rom3
@rom1
				lda  3,s					; is caller _SetCursor ?
				cmp  #rtlAddrROM01
				bne  skip
				bra  abort					; yes, so abort
@rom3
				lda  3,s					; is caller _SetCursor ?
				cmp  #rtlAddrROM03
				beq  abort					; yes, so abort
skip				
				pla
				jmp  jUnDrawCursor


; --- abort the _SetCursor call ---
; (ie, don't change the cursor)

abort
				lda  #$FFFF
				sta	 >SmartApp				; assume application is smart about cursors
				
				tsc
				clc
				adc  #5						; pull a_reg and rtl addr
				tcs
	
				plp
				pld
				jsl  >DECBUSYFLAG
				
				lda  5,s					; move rtl addrs past input (long)
				sta  5+4,s
				lda  3,s
				sta  3+4,s
				lda  1,s
				sta  1+4,s
				
				pla							; remove input (long)
				pla
				
				lda  #0						; return no errors
				clc
				rtl
					
				ENDP

*===========================================*
*	Patch out the GetEvent toolbox calls	*
*											*
* INPUT:	none							*
* OUTPUT:	none							*
*===========================================*

InstallPatch	PROC	EXPORT				; pascal void InstallPatch()

				IMPORT  __GetNextEvent
				IMPORT  __EventAvail

				phb
				phk
				plb

				stz	skipPreProcess			; initialize flags
				stz	noMouseTrap
				stz	lastCursor
				stz	lastCursor+2
				
				jsr  GetROMVersion
				sta  ROMVersion
			
				pha							; get arrow cursor record
				pha
				_GetCursorAdr
				pla
				plx
				sta	myCursorAddr
				stx	myCursorAddr+2

				pha							;  get pointer to real routine
				pha
				pea	0
				pea	GetNextEvent
				_GetFuncPtr
				pla
				sta	GetNextEventPtr			; address of real routine
				pla
				and	#$00FF
				sta	GetNextEventPtr+2
				
				pha							;  get pointer to real routine
				pha
				pea	0
				pea	EventAvail
				_GetFuncPtr
				pla
				sta	EventAvailPtr			; address of real routine
				pla
				and	#$00FF
				sta	EventAvailPtr+2
				
				lda  #__GetNextEvent-1		; set to our routine's vector
				sta  EMGetNextEvent
				lda  #(__GetNextEvent-1)>>16
				sta  EMGetNextEvent+2
				
				lda  #__EventAvail-1		; set to our routine's vector
				sta  EMEventAvail
				lda  #(__EventAvail-1)>>16
				sta  EMEventAvail+2

				pea	0						; 0 = "a system tool set"
				pea	EventToolSet			; tool set number
				pea EMCallTable>>16			; ptr to function pointer table
				pea	EMCallTable
				_SetTSPtr					; patch out call

;--- Patch UndrawCursor to monitor _SetCursor calls			

				php
				sei
				lda  >UnDrawCursor			; save original UnDrawCursor vector
				sta  jUnDrawCursor
				lda  >UnDrawCursor+2
				sta  jUnDrawCursor+2

				lda  _UnDrawCursor			; patch UnDrawCursor vector
				sta  >UnDrawCursor
				lda  _UnDrawCursor+2
				sta  >UnDrawCursor+2	
				plp

;--- Patch SeekRgn to fix a bug in _ScrollRect				

				pha
				_QDVersion
				pla
				and  #$7fff					; mask out proto type bit
				cmp  #$0303					; if QD version ³ 3.02 then don't patch
				bcs  @exit
				
				lda  >SeekRgnVec			; save original SeekRgn vector
				sta  RealSeekRgnVec
				lda  >SeekRgnVec+2
				sta  RealSeekRgnVec+2

				lda  MySeekRgnVec			; patch SeekRgn vector
				sta  >SeekRgnVec
				lda  MySeekRgnVec+2
				sta  >SeekRgnVec+2

@exit			plb
				rtl
				
				ENDP
				
*===========================================*
*	Remove GetEvent toolbox patches			*
*											*
* INPUT:	none							*
* OUTPUT:	none							*
*===========================================*

RemovePatch		PROC	EXPORT				; pascal void RemovePatch()

				phb
				phk
				plb
								
				lda  RealSeekRgnVec
				ora  RealSeekRgnVec+2
				beq  @skipQDPatch

				php
				sei
				lda  RealSeekRgnVec			; restore original UnDrawCursor vector
				sta  >SeekRgnVec
				lda  RealSeekRgnVec+2
				sta  >SeekRgnVec+2
				plp
@skipQDPatch
				lda  jUnDrawCursor
				ora  jUnDrawCursor+2
				beq  @skip2

				php
				sei
				lda  jUnDrawCursor			; restore original UnDrawCursor vector
				sta  >UnDrawCursor
				lda  jUnDrawCursor+2
				sta  >UnDrawCursor+2
				plp
@skip2
				lda	GetNextEventPtr			; get original vector
				sta	EMGetNextEvent
				lda	GetNextEventPtr+2
				sta	EMGetNextEvent+2
				ora	GetNextEventPtr
				beq	exit
				
				lda	EventAvailPtr			; get original vector
				sta	EMEventAvail
				lda	EventAvailPtr+2
				sta	EMEventAvail+2
				ora	EventAvailPtr
				beq	exit

				pea	0						; 0 = "a system tool set"
				pea	EventToolSet			; tool set number
				pea EMCallTable>>16			; ptr to function pointer table
				pea	EMCallTable
				_SetTSPtr
				
exit			plb
				rtl
				
				ENDP
				
				
*===============================================*
* Get the version number of the ROM
*
* In:	none
* Out:	a-reg has ROM version	{0,1,2,É}
*===============================================*

GetROMVersion	PROC

				LONGA	ON
				LONGI	ON
				
				pha						; space for result (4 words)
				pha
				pha
				pha
				pea  0					; a-reg on entry
				pea  0					; x-reg on entry
				pea  0					; y-reg on entry
				pea  IDROUTINE			; firmware routine
				_FWEntry
				pla						; version number
				
				plx						; ignore the rest
				plx
				plx
				rts

				END
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/VideoKeyboard/ReleaseNotes b/IIGS.601.SRC/A.U.G/VideoKeyboard/ReleaseNotes
new file mode 100644
index 0000000..2faf65d
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/VideoKeyboard/ReleaseNotes
@@ -0,0 +1 @@
+Release 1.0 f2 Ñ Jan 21, 1991
	

Bug Fixes (to be verified):

	¥ BRC# 80827: Fixed bug in Resource manager startup code.

	¥ BRC# 54694, 75614: Patched _EventAvail since Medley does not always call _GetNextEvent.


Will not be fixed in 1.0 (to be made dormant):

	¥ BRC# 73435, 63970, and 73503: Dialogs don't update after VKB is removed.

	¥ BRC# 54677, and 54696
	

Change Bug Status to "Notify Developer":

	¥ BRC# 55784, and 72922
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/VideoKeyboard/Window.a b/IIGS.601.SRC/A.U.G/VideoKeyboard/Window.a
new file mode 100644
index 0000000..f484dc6
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/VideoKeyboard/Window.a
@@ -0,0 +1 @@
+*===============================================*
*						*
* File:		Window.a			*
* Project:	Video Keyboard			*
* Author:	Don J. Brady			*
* Build file:	MakeFile			*
*						*
* Copyright © Apple Computer, Inc. 1990-1992	*
* All rights reserved.				*
*===============================================*


		INCLUDE	'M16.Event'
		INCLUDE	'M16.QuickDraw'
		INCLUDE	'M16.Window'
		INCLUDE	'M16.Control'
		INCLUDE	'M16.MiscTool'

		INCLUDE	'E16.Event'
		INCLUDE	'E16.Window'
		INCLUDE	'Key.equ'


winDY		equ	kbHeight+9		; size of window is based on size of keyboard
winDX		equ	kbWidth+7

winY1		equ	200-winDY
winY2		equ	winY1+winDY
winX1		equ	0
winX2		equ	winX1+winDX

winDX_320	equ	kbWidth_320+6		; 320 mode keyboard is slightly smaller


boxDX		equ	15
boxDY		equ	7

boxInset	equ	boxDX+10

aboutDY		equ	72
aboutDX		equ	286+8

aboutY1		equ	(200-aboutDY)/2
aboutY2		equ	aboutY1+aboutDY
aboutX1		equ	(640-aboutDX)/2
aboutX2		equ	aboutX1+aboutDX

aboutX1_320	equ	(320-aboutDX)/2
aboutX2_320	equ	aboutX1_320+aboutDX



kY		equ	aboutDY-42		; miny keyboard offsets
kX		equ	(aboutDX-120)/2
kX_320		equ	(aboutDX-60)/2


portSize	EQU	$AA			; Size of GrafPort


mode640		equ	$0080

		MACRO
&lab		_Debugger
&lab		lda	>$E0C025
		and	#%00000100		; Capslock ?
		beq	@skip		
		brk	$DB
@skip
		MEND

SHADOW		equ	$E1C035			; hardware shadow register (byte)

*===============================================*
*===============================================*

WindowData	PROC

		ENTRY	kpDelta
kpDelta		dc.W	kpWidth + 16;

		ENTRY	dragBarRect
dragBarRect	dc.W	1, 2, boxDY, winDX-2
		ENTRY	closeBoxRect
closeBoxRect	dc.W	0, 9, boxDY, boxDX+9
		ENTRY	zoomBoxRect
zoomBoxRect	dc.W	0, winDX-boxDX-9, boxDY, winDX-9
		ENTRY	zoomBoxRect2
zoomBoxRect2	dc.W	0, winDX-boxDX-9, 4, winDX-6-9
		ENTRY	localPortRect
localPortRect	dc.W	0, 0, winDY, winDX
		EXPORT	globalPortRect
globalPortRect	dc.W	winY1, winX1, winY2, winX2
		ENTRY	aboutWinRect
aboutWinRect	dc.W	aboutY1-5,aboutX1-12,aboutY2+5,aboutX2+12

		ENTRY	myWinOrigin
myWinOrigin	dc.W	winY1,winX1
		ENTRY	myWinPtr
myWinPtr	dc.L	0

		STRING	PASCAL
		ENTRY	winTitle
winTitle	dc.B	'** Windoid **'

		ENTRY	aboutWinRgn
aboutWinRgn	ds.L	1
		ENTRY	windoidRgn
windoidRgn	ds.L	1
		ENTRY	tempRgn
tempRgn		ds.L	1
		ENTRY	tempRect
tempRect	ds	Rect
		ENTRY	deskRgn
deskRgn		ds.L	1
		ENTRY	visRgn
visRgn		ds.L	1
		ENTRY	windoidEvent
windoidEvent	ds.W	1
		ENTRY	globalPt
globalPt	ds	Point
		ENTRY	localPt
localPt		ds	Point
		ENTRY	windoidPort
windoidPort	ds	portSize
		ENTRY	tempLocInfo
tempLocInfo	ds	LocInfo
		ENTRY	tempEvent
tempEvent	ds.B	20

		ENTRY	slopRect
slopRect	ds	Rect
		ENTRY	limitRect
limitRect	ds	Rect
		ENTRY	deskRect
deskRect	ds	Rect
		ENTRY	dv
dv		ds.W	1
		ENTRY	dh
dh		ds.W	1
		ENTRY	oldRgn
oldRgn		ds.L	1
		ENTRY	dstLoc
dstLoc		ds	LocInfo
		ENTRY	srcLoc
srcLoc		ds	LocInfo
		ENTRY	dstPt
dstPt		ds	Point
		ENTRY	tempPt
tempPt		ds	Point
		ENTRY	params
params		ds	PaintParam

		ENTRY	hilited
hilited		ds.W	1

		ENTRY	aboutWinPtr
aboutWinPtr	ds.L	1

		ENTRY	temp
temp		ds.L	2
	
		ENTRY	tracking
tracking	dc.W	0
		ENTRY	zoomed
zoomed		dc.W	0

		EXPORT	masterSCB
masterSCB	dc.W	$80

		STRING	PASCAL

		ENTRY	strTitle
strTitle	dc.B	'Video Keyboard'

		ENTRY	strAuthor
strAuthor	dc.B	'by Don J. Brady'

		ENTRY	strVersion
strVersion	dc.B	'v1.0  '

		ENTRY	strCopyright
strCopyright	dc.B	'Copyright Apple Computer, Inc. 1989-92'

;		ENTRY	strReserved
;strReserved	dc.B	'All rights reserved.'

		ENTRY	keyPt
keyPt
		dc.W	11,44			; 'V'
		dc.W	5,70			; 'I'
		dc.W	8,32			; 'D'
		dc.W	5,30			; 'E'
		dc.W	5,78			; 'O'
		dc.W	14,40			; ' '
		dc.W	8,72			; 'K'
		dc.W	5,30			; 'E'
		dc.W	5,54			; 'Y'
		dc.W	11,52			; 'B'
		dc.W	5,78			; 'O'
		dc.W	8,16			; 'A'
		dc.W	5,38			; 'R'
		dc.W	8,32			; 'D'

		ENTRY	strCDAWarning
strCDAWarning	dc.B	'This key sequence will enable the 40/80 column text screen!'


		STRING	ASIS

		ENTRY	strAlert
strAlert	dc.B	'0yyxxyyxx4~*0~^#1~#0',0

		ENTRY	subArray
subArray	dc.L	strCDAWarning



		ENTRY	myWinList
myWinList
		dc.W	endWinList-myWinList	; record size
		dc.W	fMove+fVis		; frame bits
		dc.L	winTitle		; ptr to title
		dc.L	0			; refCon
		dc.W	0,0,0,0			; zoomed rect
		dc.L	0			; color table ptr
		dc.W	0,0			; origin vert, horz
		dc.W	0,0			; data area hight,width
		dc.W	0,0			; max content height, width
		dc.W	0,0			; pixels to scroll vert, horz
		dc.W	0,0			; pixels to page vert, horz
		dc.L	0			; info bar string
		dc.W	0			; info bar height
		dc.L	0			; def proc ptr
		dc.L	0			; draw info bar routine
		dc.L	0			; draw content routine
		dc.W	0,0,0,0			; window position
		dc.L	-1			; window plane
		dc.L	0			; memory pointer
endWinList



		EXPORT	grayPattern
grayPattern	
		dc.W	$3333,$3333,$3333,$3333
		dc.W	$3333,$3333,$3333,$3333
		dc.W	$3333,$3333,$3333,$3333
		dc.W	$3333,$3333,$3333,$3333

		EXPORT	grayPattern_320
grayPattern_320
		dc.W	$EEEE,$EEEE,$EEEE,$EEEE
		dc.W	$EEEE,$EEEE,$EEEE,$EEEE
		dc.W	$EEEE,$EEEE,$EEEE,$EEEE
		dc.W	$EEEE,$EEEE,$EEEE,$EEEE

		ENTRY	whitePattern
whitePattern 
		dc.W	$FFFF,$FFFF,$FFFF,$FFFF
		dc.W	$FFFF,$FFFF,$FFFF,$FFFF
		dc.W	$FFFF,$FFFF,$FFFF,$FFFF
		dc.W	$FFFF,$FFFF,$FFFF,$FFFF

		ENTRY	aboutImage
aboutImage					; picture of miny keyboard
		dc.B	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
		dc.B	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0F,$FF,$FF
		dc.B	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
		dc.B	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0F,$FF,$FF
		dc.B	$0F,$FF,$0F,$FF,$0F,$FF,$0F,$FF,$0F,$FF,$0F,$FF,$0F,$FF,$0F,$FF
		dc.B	$0F,$FF,$0F,$FF,$0F,$FF,$0F,$FF,$0F,$FF,$0F,$FF,$FF,$0F,$FF,$FF
		dc.B	$0F,$FF,$0F,$FF,$0F,$FF,$0F,$FF,$0F,$FF,$0F,$FF,$0F,$FF,$0F,$FF
		dc.B	$0F,$FF,$0F,$FF,$0F,$FF,$0F,$FF,$0F,$FF,$0F,$FF,$FF,$0F,$FF,$FF
		dc.B	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
		dc.B	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0F,$FF,$FF
		dc.B	$0F,$FF,$FF,$0F,$FF,$0F,$FF,$0F,$FF,$0F,$FF,$0F,$FF,$0F,$FF,$0F
		dc.B	$FF,$0F,$FF,$0F,$FF,$0F,$FF,$0F,$FF,$0F,$FF,$0F,$FF,$0F,$FF,$FF
		dc.B	$0F,$FF,$FF,$0F,$FF,$0F,$FF,$0F,$FF,$0F,$FF,$0F,$FF,$0F,$FF,$0F
		dc.B	$FF,$0F,$FF,$0F,$FF,$0F,$FF,$0F,$FF,$0F,$FF,$0F,$FF,$0F,$FF,$FF
		dc.B	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
		dc.B	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0F,$FF,$0F,$FF,$FF
		dc.B	$0F,$FF,$FF,$F0,$FF,$F0,$FF,$F0,$FF,$F0,$FF,$F0,$FF,$F0,$FF,$F0
		dc.B	$FF,$F0,$FF,$F0,$FF,$F0,$FF,$F0,$FF,$F0,$FF,$FF,$FF,$0F,$FF,$FF
		dc.B	$0F,$FF,$FF,$F0,$FF,$F0,$FF,$F0,$FF,$F0,$FF,$F0,$FF,$F0,$FF,$F0
		dc.B	$FF,$F0,$FF,$F0,$FF,$F0,$FF,$F0,$FF,$F0,$FF,$FF,$FF,$0F,$FF,$FF
		dc.B	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
		dc.B	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0F,$FF,$FF
		dc.B	$0F,$FF,$FF,$FF,$F0,$FF,$F0,$FF,$F0,$FF,$F0,$FF,$F0,$FF,$F0,$FF
		dc.B	$F0,$FF,$F0,$FF,$F0,$FF,$F0,$FF,$F0,$FF,$FF,$FF,$FF,$0F,$FF,$FF
		dc.B	$0F,$FF,$FF,$FF,$F0,$FF,$F0,$FF,$F0,$FF,$F0,$FF,$F0,$FF,$F0,$FF
		dc.B	$F0,$FF,$F0,$FF,$F0,$FF,$F0,$FF,$F0,$FF,$FF,$FF,$FF,$0F,$FF,$FF
		dc.B	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
		dc.B	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0F,$FF,$FF
		dc.B	$0F,$FF,$0F,$FF,$0F,$FF,$FF,$F0,$FF,$F0,$FF,$FF,$FF,$FF,$FF,$FF
		dc.B	$FF,$FF,$FF,$0F,$FF,$0F,$FF,$0F,$FF,$0F,$FF,$0F,$FF,$0F,$FF,$FF
		dc.B	$0F,$FF,$0F,$FF,$0F,$FF,$FF,$F0,$FF,$F0,$FF,$FF,$FF,$FF,$FF,$FF
		dc.B	$FF,$FF,$FF,$0F,$FF,$0F,$FF,$0F,$FF,$0F,$FF,$0F,$FF,$0F,$FF,$FF
		dc.B	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
		dc.B	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0F,$FF,$FF
		

		ENTRY	aboutLocInfo
aboutLocInfo 
		dc.W	$80
		dc.L	aboutImage
		dc.W	32
		dc.W	0,0,17,120

		ENTRY	ScreenBank
ScreenBank	DC.W	$E1


		ENDP
		




;--- window routines ---


*===============================================*
* In:	none					*
*						*
* Out:	none					*
*						*
*===============================================*

CreateWindoid	PROC	EXPORT

		LONGA	ON
		LONGI	ON
		
		IMPORT	DrawWindoid
		
		IMPORT	myWinList:ParamList
		IMPORT	globalPortRect:Rect
		IMPORT	localPortRect:Rect
		IMPORT	dragBarRect:Rect
		IMPORT	zoomBoxRect:Rect
		IMPORT	zoomBoxRect2:Rect
		IMPORT	tempLocInfo:LocInfo

		pha
		pha
		_GetPort			; save original port on stack

;--- initialize dummy window's data:

		lda	#-8196
		sta	myWinList.wPosition.top
		sta	myWinList.wPosition.left
		lda	#-8192
		sta	myWinList.wPosition.bottom
		sta	myWinList.wPosition.right
		
		stz	myWinList.wFrameBits
		stz	myWinList.wContDefProc
		stz	myWinList.wContDefProc+2
		stz	myWinList.wPlane
		stz	myWinList.wPlane+2

;--- create a dummy window for cleanup operations:	

		pha
		pha
		pea	myWinList>>16
		pea	myWinList
		_NewWindow
		pla
		plx
		sta	myWinPtr
		stx	myWinPtr+2
		phx
		pha
		_SetSysWindow

;--- set up rects, etc:

		pha
		_GetMasterSCB
		pla
		sta	masterSCB
		and	#mode640
		beq	@320
@640
		lda	#kpWidth+16
		sta	kpDelta
		lda	globalPortRect.left
		clc
		adc	#winDX
		sta	globalPortRect.right
		lda	#winDX
		sta	localPortRect.right
		lda	#winDX-2
		sta	dragBarRect.right
		lda	#winDX-9
		sta	zoomBoxRect.right
		bra	@zoom
@320
		lda	#kpWidth_320+8
		sta	kpDelta
		lda	globalPortRect.left
		clc
		adc	#winDX_320
		sta	globalPortRect.right
		lda	#winDX_320
		sta	localPortRect.right
		lda	#winDX_320-2
		sta	dragBarRect.right
		lda	#winDX_320-9
		sta	zoomBoxRect.right
@zoom

;--- adjust rects for zoomed windoid:

		lda	zoomed
		beq	@box

		lda	zoomBoxRect.right
		clc
		adc	kpDelta
		sta	zoomBoxRect.right

		lda	dragBarRect.right
		clc
		adc	kpDelta
		sta	dragBarRect.right

		lda	localPortRect.right
		clc
		adc	kpDelta
		sta	localPortRect.right

		lda	globalPortRect.right
		clc
		adc	kpDelta
		sta	globalPortRect.right
@box
		lda	zoomBoxRect.right
		sec
		sbc	#boxDX
		sta	zoomBoxRect.left
		sta	zoomBoxRect2.left
		clc
		adc	#9
		sta	zoomBoxRect2.right

;--- open a port for our windoid:
		
		pea	windoidPort>>16
		pea	windoidPort
		_OpenPort

		pea	tempLocInfo>>16
		pea	tempLocInfo
		_GetPortLoc

		lda	tempLocInfo.ptrToPixImage+2
		and	#$00FF
		sta	ScreenBank

;--- offset bounds rect so we can use local coordinates:

		lda	tempLocInfo.boundsRect.top
		sec
		sbc	globalPortRect.top
		sta	tempLocInfo.boundsRect.top

		lda	tempLocInfo.boundsRect.left
		sec
		sbc	globalPortRect.left
		sta	tempLocInfo.boundsRect.left
		
		lda	tempLocInfo.boundsRect.bottom
		sec
		sbc	globalPortRect.top
		sta	tempLocInfo.boundsRect.bottom

		lda	tempLocInfo.boundsRect.right
		sec
		sbc	globalPortRect.left
		sta	tempLocInfo.boundsRect.right

		pea	tempLocInfo>>16
		pea	tempLocInfo
		_SetPortLoc

		pha
		pha
		pea	GetDesktop
		pea	0
		pea	0
		_Desktop
		pla
		plx
		sta	tempRgn
		stx	tempRgn+2
		
		pha
		pha
		_GetVisHandle
		pla
		plx
		sta	visRgn
		stx	visRgn+2

		pha
		pha
		_NewRgn
		pla
		plx
		sta	windoidRgn
		stx	windoidRgn+2

		pea	localPortRect>>16
		pea	localPortRect
		_SetPortRect			; port rect & vis rgn are in local coordinates

		lda	windoidRgn+2
		pha
		lda	windoidRgn
		pha
		pea	globalPortRect>>16
		pea	globalPortRect
		_RectRgn

		lda	tempRgn+2
		pha
		lda	tempRgn
		pha
		lda	windoidRgn+2
		pha
		lda	windoidRgn
		pha
		lda	windoidRgn+2
		pha
		lda	windoidRgn
		pha
		_SectRgn			; clip our windoid to desktop
	
		lda	windoidRgn+2
		pha
		lda	windoidRgn
		pha
		lda	visRgn+2
		pha
		lda	visRgn
		pha
		_CopyRgn			; copy our windoid region to port's visRgn

		lda	visRgn+2
		pha
		lda	visRgn
		pha
		lda	globalPortRect.left
		eor	#$FFFF
		inc	a
		pha
		lda	globalPortRect.top
		eor	#$FFFF
		inc	a
		pha
		_OffsetRgn			; convert it to global coordinates

;--- subtract windoid from the desktop:

		pha
		phx
		pea	FromDesk		; desktop command
		lda	windoidRgn+2
		pha
		lda	windoidRgn
		pha
		_Desktop
		pla				; ignore result
		plx
	
		pea	windoidPort>>16
		pea	windoidPort
		_SetPort			; in case Desktop call changed current port	

		jsl	DrawWindoid
exit
		_SetPort			; original port on stack
		stz	tracking
		
;		lda	myWinPtr
;		ldx	myWinPtr+2

		rtl
	
		ENDP

*===============================================*
* In:	none					*
*						*
* Out:	none					*
*						*
*===============================================*

DestroyWindoid	PROC	EXPORT

		LONGA	ON
		LONGI	ON
		
		IMPORT	UpdateDesktop
		
		pea	windoidPort>>16
		pea	windoidPort
		_ClosePort

; if screen resolution was changed from 640 to 320,
; then my windoidRgn could be too wide.  Therefore
; we will clip it before it is added back to the
; Desktop if we are in 320 mode. (BRC #75111)

		pha
		_GetMasterSCB
		pla
		and	#mode640
		bne	@ok			; 640 mode, so skip the clip
			
		pha
		pha
		_NewRgn				; create a desktop-sized clip region 
		pla
		plx
		sta	tempRgn
		stx	tempRgn+2

		phx
		pha
		pea	clipRect>>16
		pea	clipRect
		_RectRgn

		ldx	tempRgn+2
		lda	tempRgn
		phx
		pha
		ldx	windoidRgn+2
		lda	windoidRgn
		phx
		pha
		phx
		pha
		_SectRgn			; clip region to 320 mode desktop

		ldx	tempRgn+2
		lda	tempRgn
		phx
		pha
		_DisposeRgn
@ok
		pha
		pha
		pea	ToDesk
		lda	windoidRgn+2
		pha
		lda	windoidRgn
		pha
		_Desktop			; add my region back to desktop
		pla
		plx

		lda	windoidRgn
		ldx	windoidRgn+2
		jsl	UpdateDesktop		; force WM to clean-up my mess

		lda	windoidRgn+2
		pha
		lda	windoidRgn
		pha
		_DisposeRgn

		lda	myWinPtr
		ora	myWinPtr+2
		beq	exit
		
		lda	myWinPtr+2
		pha
		lda	myWinPtr
		pha
		_CloseWindow			; get rid of dummy window
		
		stz	myWinPtr+2
		stz	myWinPtr
exit
		rtl


clipRect	DC.W	0,0,200,320

		ENDP


*===============================================*
* In:	none					*
*						*
* Out:	none					*
*						*
*===============================================*

DrawWindoid	PROC

		LONGA	ON
		LONGI	ON
		
		IMPORT	DrawKeyboard
		
		IMPORT	dragBarRect:Rect


		pea	localPortRect>>16
		pea	localPortRect
		_EraseRect

;--- simple pen, black and square

		pea	0
		_SetSolidPenPat
		pea	2
		pea	1
		_SetPenSize
	
		pea	localPortRect>>16
		pea	localPortRect
		_FrameRect

;--- draw the drag bar:

		pea	dragBarRect>>16
		pea	dragBarRect
		pea	grayPattern>>16
		lda	masterSCB
		and	#mode640
		beq	@320
		ldx	#grayPattern
		bra	@fill
@320
		ldx	#grayPattern_320
@fill
		phx
		_FillRect

		pea	0
		ldy	dragBarRect.bottom
		dey
		phy
		_MoveTo
		ldy	dragBarRect.bottom
		dey
		ldx	dragBarRect.right
		phx
		phy
		_LineTo

;--- draw the close box:

		pea	closeBoxRect>>16
		pea	closeBoxRect
		_EraseRect
		pea	closeBoxRect>>16
		pea	closeBoxRect
		_FrameRect
	
;--- draw the zoom box:

		pea	zoomBoxRect>>16
		pea	zoomBoxRect
		_EraseRect
		pea	zoomBoxRect>>16
		pea	zoomBoxRect
		_FrameRect
		pea	zoomBoxRect2>>16
		pea	zoomBoxRect2
		_FrameRect

;--- draw the keyboard:

		lda	#drawBoard;
		ldx	zoomed
		beq	@draw
		ora	#drawPad
@draw
		jsl	DrawKeyboard

		rtl

		ENDP

*===============================================*
* In:	none					*
*						*
* Out:	none					*
*						*
*===============================================*

RedrawWindoid	PROC	EXPORT

		LONGA	ON
		LONGI	ON
		
		IMPORT	DrawWindoid
		IMPORT	DrawKeyCaps

		pha
		pha
		_GetPort			; save result on stack
		
		pea	windoidPort>>16
		pea	windoidPort
		_SetPort
		
		jsl	DrawKeyCaps		; draw the key caps that changed
;		jsl	DrawWindoid

		_SetPort			; old port on stack

		rtl
		
		ENDP


*===============================================*
* In:	a-reg has event type			*
*	x-reg has horizontal point		*
*	y-reg has vertical point		*
*						*
* Out:	carry set if it was our event		*
*						*
*===============================================*

CheckWindoid	PROC	EXPORT

		LONGA	ON
		LONGI	ON
		
		IMPORT	DrawWindoid
		IMPORT	DirtyWindoid
		IMPORT	DragWindoid
		IMPORT	ZoomWindoid
		IMPORT	TrackBox
		IMPORT	KillMouseEvent
		IMPORT	ReleaseLastKey
		IMPORT	NDAClose
		IMPORT	TrackKey
		IMPORT	CheckKey
		
		IMPORT	globalPt:Point
		IMPORT	localPt:Point
		
		phb
		
		phk
		plb

		sta	windoidEvent		; 0 = nullEvent, 1 = mouseDown, 2 = mouseUp

		stx	globalPt.h
		stx	localPt.h
		sty	globalPt.v
		sty	localPt.v

		pha
		pha
		_GetPort			; leave result on stack

		pea	windoidPort>>16
		pea	windoidPort
		_SetPort

;--- we need local coordinates:

		pea	localPt>>16
		pea	localPt
		_GlobalToLocal

;--- switch on event type:

		lda	windoidEvent
		cmp	#mouseDownEvt
		bne	@up
		jsr	_mouseDown
		bra	endSwitch
@up
		cmp	#mouseUpEvt
		bne	@other
		jsr	_mouseUp
		bra	endSwitch
@other
		jsr	_null
endSwitch
		sta	temp

		_SetPort			; restore port (original port on stack)
		
		lda	temp			; inform caller if event was ours
		cmp	#1
		plb
		rtl



;--- event type routines ---

;-----------------------------------------------
;
;-----------------------------------------------		
_null
		lda	tracking
		beq	@bashed
		
		ldx	localPt.h
		ldy	localPt.v
		jsl	TrackKey
		sta	tracking
		bra	@done

;--- check if someone bashed us (like AWGS):
@bashed
		ldx	globalPt.h
		ldy	globalPt.v
		jsl	DirtyWindoid
		bcc	@done

;--- we we're bashed, so redraw our windoid:		

		pea	windoidPort>>16
		pea	windoidPort
		_SetPort
		
		jsl	DrawWindoid
@done
		lda	#0
		rts

;-----------------------------------------------
; Out:	a-reg has flag
;-----------------------------------------------		
_mouseUp
		lda	tracking
		beq	@done
		
		jsl	KillMouseEvent
		jsl	ReleaseLastKey
		stz	tracking
		lda	#1			; it was our event
@done
		rts


;-----------------------------------------------
; Out:	a-reg has flag
;-----------------------------------------------		
_mouseDown
		lda	tracking
		beq	@skip
		
		jsl	ReleaseLastKey
		stz	tracking
@skip

;--- was it in our windoid ?

		pha
		pea	localPt>>16
		pea	localPt
		pea	localPortRect>>16
		pea	localPortRect
		_PtInRect
		pla
		bne	@in
		brl	@exit
@in		
		jsl	KillMouseEvent

;--- check close box:		

		pha
		pea	localPt>>16
		pea	localPt
		pea	closeBoxRect>>16
		pea	closeBoxRect
		_PtInRect
		pla
		beq	@zoom			; not here, so check zoom box
		
		ldx	localPt.h
		ldy	localPt.v
		lda	#closeBoxRect
		jsl	TrackBox		; track the user
		bcc	@done
		
		jsl	NDAClose
		bra	@done
		
@zoom
;--- check zoom box:

		pha
		pea	localPt>>16
		pea	localPt
		pea	zoomBoxRect>>16
		pea	zoomBoxRect
		_PtInRect
		pla
		beq	@drag			; not here, so check drag bar

		ldx	localPt.h
		ldy	localPt.v
		lda	#zoomBoxRect
		jsl	TrackBox		; track the user
		bcc	@done
		
		lda	zoomed
		eor	#$0001
		sta	zoomed
		jsl	ZoomWindoid
		bra	@done

@drag
;--- check drag bar:

		pha
		pea	localPt>>16
		pea	localPt
		pea	dragBarRect>>16
		pea	dragBarRect
		_PtInRect
		pla
		beq	@key			; not here, so must be on a 'key'
		
		ldx	globalPt.h
		ldy	globalPt.v
		jsl	DragWindoid		; track the user's dragging
		bra	@done

;--- check keyboard:
@key
		ldx	localPt.h
		ldy	localPt.v
		jsl	CheckKey		; find out which 'key' was selected
		sta	tracking

@done
		lda	#1			; it was our event
@exit
		rts





*===============================================*
* In:	x-reg has horizontal point		*
*	y-reg has vertical point		*
*						*
* Out:	none					*
*						*
*===============================================*

DragWindoid	PROC

		LONGA	ON
		LONGI	ON
		
		IMPORT	GetDeskRect
		IMPORT	UpdateDesktop
		
		IMPORT	tempPt:Point
		IMPORT	dstPt:Point
		IMPORT	deskRect:Rect
		IMPORT	slopRect:Rect
		IMPORT	limitRect:Rect
		IMPORT	globalPortRect:Rect
		IMPORT	params:PaintParam
		IMPORT	dstLoc:LocInfo
		IMPORT	srcLoc:LocInfo


		stx	tempPt.h
		sty	tempPt.v

		pha
		pha
		pea	ToDesk
		lda	windoidRgn+2
		pha
		lda	windoidRgn
		pha
		_Desktop			; add my region back to desktop
		pla
		plx
		
		pha
		pha
		_NewRgn
		pla
		plx
		sta	tempRgn
		stx	tempRgn+2
		
		pha
		pha
		pea	GetDesktop
		pea	0
		pea	0
		_Desktop
		pla
		plx
		sta	deskRgn
		stx	deskRgn+2
		
		jsl	GetDeskRect

		pha
		pha
		_GetWMgrPort
		_SetPort
	
		pea	srcLoc>>16
		pea	srcLoc
		_GetPortLoc

		lda	deskRect.top
		sec
		sbc	#4
		sta	slopRect.top
		lda	deskRect.left
		sta	slopRect.left
		lda	deskRect.bottom
		clc
		adc	#4
		sta	slopRect.bottom
		lda	deskRect.right
		sta	slopRect.right
	
		lda	deskRect.top
		clc
		adc	#4
		sec
		sbc	tempPt.v
		sta	limitRect.top
		lda	deskRect.left
		clc
		adc	#16
		sec
		sbc	tempPt.h
		sta	limitRect.left
		lda	deskRect.bottom
		sec
		sbc	#4
		sbc	tempPt.v
		sta	limitRect.bottom
		lda	deskRect.right
		sec
		sbc	#16
		sbc	tempPt.h
		sta	limitRect.right
	
		pha
		pha
		pea	0
		pea	0
		pea	whitePattern>>16
		pea	whitePattern
		lda	tempPt.h
		pha
		lda	tempPt.v
		pha
		pea	globalPortRect>>16
		pea	globalPortRect
		pea	limitRect>>16
		pea	limitRect
		pea	slopRect>>16
		pea	slopRect
		pea	$0810
		_DragRect
		pla
		plx
		sta	dv
		stx	dh
		ora	dh
		bne	change
		brl	noChange
change
;--- compute bashed rgn of our windoid:

		lda	tempRgn+2
		pha
		lda	tempRgn
		pha
		pea	globalPortRect>>16
		pea	globalPortRect
		_RectRgn			; was part off screen ?

		lda	tempRgn+2
		pha
		lda	tempRgn
		pha
		lda	windoidRgn+2
		pha
		lda	windoidRgn
		pha
		lda	tempRgn+2
		pha
		lda	tempRgn
		pha
		_DiffRgn

		lda	tempRgn+2
		pha
		lda	tempRgn
		pha
		lda	globalPortRect.left
		eor	#$FFFF
		inc	a
		pha
		lda	globalPortRect.top
		eor	#$FFFF
		inc	a
		pha
		_OffsetRgn			; convert to local coordinates

		lda	globalPortRect.top
		clc
		adc	dv
		sta	dstPt.v
		lda	globalPortRect.left
		clc
		adc	dh
		sta	dstPt.h

		lda	#srcLoc
		sta	params.ptrToSourceLocInfo
		sta	params.ptrToDestLocInfo
		lda	#srcLoc>>16
		sta	params.ptrToSourceLocInfo+2
		sta	params.ptrToDestLocInfo+2
		
		lda	#globalPortRect
		sta	params.ptrToSourceRect
		lda	#globalPortRect>>16
		sta	params.ptrToSourceRect+2

		lda	#dstPt
		sta	params.ptrToDestPoint
		lda	#dstPt>>16
		sta	params.ptrToDestPoint+2

		stz	params.mode

		lda	deskRgn			; clip to desktop rgn
		sta	params.maskHandle
		lda	deskRgn+2
		sta	params.maskHandle+2

		pea	params>>16
		pea	params
		_PaintPixels			; copy pixels over to new position

;--- adjust my port's bounds rect:

		pea	windoidPort>>16
		pea	windoidPort
		_SetPort

		pea	dstLoc>>16
		pea	dstLoc
		_GetPortLoc

		lda	dstLoc.boundsRect.top
		sec
		sbc	dv
		sta	dstLoc.boundsRect.top
		lda	dstLoc.boundsRect.left
		sec
		sbc	dh
		sta	dstLoc.boundsRect.left
		lda	dstLoc.boundsRect.bottom
		sec
		sbc	dv
		sta	dstLoc.boundsRect.bottom
		lda	dstLoc.boundsRect.right
		sec
		sbc	dh
		sta	dstLoc.boundsRect.right

		pea	dstLoc>>16
		pea	dstLoc
		_SetPortLoc

		lda	globalPortRect.top	; adjust my global rect
		clc
		adc	dv
		sta	globalPortRect.top
		lda	globalPortRect.left
		clc
		adc	dh
		sta	globalPortRect.left
		lda	globalPortRect.bottom
		clc
		adc	dv
		sta	globalPortRect.bottom
		lda	globalPortRect.right
		clc
		adc	dh
		sta	globalPortRect.right

noChange
		pha
		pha
		_NewRgn
		pla
		plx
		sta	oldRgn
		stx	oldRgn+2

		lda	windoidRgn+2
		pha
		lda	windoidRgn
		pha
		lda	oldRgn+2
		pha
		lda	oldRgn
		pha
		_CopyRgn			; save copy of old windoid rgn

		lda	windoidRgn+2
		pha
		lda	windoidRgn
		pha
		pea	globalPortRect>>16
		pea	globalPortRect
		_RectRgn

		ldx	deskRgn+2
		lda	deskRgn
		phx
		pha
		ldx	windoidRgn+2
		lda	windoidRgn
		phx
		pha
		phx
		pha
		_SectRgn			; my new windoid rgn
	
		ldx	windoidRgn+2
		lda	windoidRgn
		phx
		pha
		ldx	visRgn+2
		lda	visRgn
		phx
		pha
		_CopyRgn
		
		ldx	visRgn+2
		lda	visRgn
		phx
		pha
		lda	globalPortRect.left
		eor	#$FFFF
		inc	a
		pha
		lda	globalPortRect.top
		eor	#$FFFF
		inc	a
		pha
		_OffsetRgn

		pha
		pha
		pea	FromDesk
		ldx	windoidRgn+2
		lda	windoidRgn
		phx
		pha
		_Desktop			; subtract my new region from desktop
		pla
		plx

		pha
		ldx	tempRgn+2
		lda	tempRgn
		phx
		pha
		_EmptyRgn
		pla
		bne	@empty
		
		ldx	tempRgn+2
		lda	tempRgn
		phx
		pha
		ldx	visRgn+2
		lda	visRgn
		phx
		pha
		ldx	tempRgn+2
		lda	tempRgn
		phx
		pha
		_SectRgn

		ldx	tempRgn+2
		lda	tempRgn
		phx
		pha
		_SetVisHandle

		pea	localPortRect>>16
		pea	localPortRect
		_EraseRect		

		lda	oldRgn
		ldx	oldRgn+2
		jsl	UpdateDesktop		; force WM to clean-up my mess

		jsl	DrawWindoid

		ldx	visRgn+2
		lda	visRgn
		phx
		pha
		_SetVisHandle
		bra	done
@empty
		lda	oldRgn
		ldx	oldRgn+2
		jsl	UpdateDesktop		; just force WM to clean-up my mess

done
		ldx	oldRgn+2
		lda	oldRgn
		phx
		pha
		_DisposeRgn

		ldx	tempRgn+2
		lda	tempRgn
		phx
		pha
		_DisposeRgn

		rtl

		ENDP


*===============================================*

GetDeskRect	PROC

		LONGA	ON
		LONGI	ON

		IMPORT	deskRect:Rect

rgnPtr		set	1

		phd
		
		lda	deskRgn+2
		pha
		lda	deskRgn
		pha

		tsc
		tcd

		ldy	#2			; dereference handle
		lda	[<rgnPtr],y
		tax
		lda	[<rgnPtr]
		sta	<rgnPtr
		stx	<rgnPtr+2

		ldy	#2			; get the region's bounding rect
		lda	[<rgnPtr],y
		sta	deskRect.top
		iny
		iny
		lda	[<rgnPtr],y
		sta	deskRect.left
		iny
		iny
		lda	[<rgnPtr],y
		sta	deskRect.bottom
		iny
		iny
		lda	[<rgnPtr],y
		sta	deskRect.right
		
		pla
		pla
		pld
		rtl
		
		ENDP



*===============================================*
* In:	none					*
*						*
* Out:	none					*
*						*
*===============================================*

ZoomWindoid	PROC

		LONGA	ON
		LONGI	ON
		
		IMPORT	UpdateDesktop
		
		IMPORT	zoomBoxRect:Rect
		IMPORT	zoomBoxRect2:Rect
		IMPORT	dragBarRect:Rect
		IMPORT	localPortRect:Rect
		IMPORT	globalPortRect:Rect
		IMPORT	tempRect:Rect
		IMPORT	tempLocInfo:LocInfo

		
		pha
		pha
		_NewRgn
		pla
		plx
		sta	tempRgn
		stx	tempRgn+2

		pha
		pha
		pea	GetDesktop
		pea	0
		pea	0
		_Desktop
		pla
		plx
		sta	deskRgn
		stx	deskRgn+2
		
		lda	zoomed
		bne	growIt
		brl	shrinkIt
growIt
;--- show the keypad:
	
		lda	zoomBoxRect.left
		clc
		adc	kpDelta
		sta	zoomBoxRect.left
	
		lda	zoomBoxRect.right
		clc
		adc	kpDelta
		sta	zoomBoxRect.right

		lda	zoomBoxRect2.left
		clc
		adc	kpDelta
		sta	zoomBoxRect2.left
	
		lda	zoomBoxRect2.right
		clc
		adc	kpDelta
		sta	zoomBoxRect2.right
	
		lda	dragBarRect.right
		clc
		adc	kpDelta
		sta	dragBarRect.right

		lda	localPortRect.right
		clc
		adc	kpDelta
		sta	localPortRect.right

		lda	globalPortRect.right
		clc
		adc	kpDelta
		sta	globalPortRect.right

		lda	globalPortRect.top	; calc global keypad rect & rgn
		sta	tempRect.top
		lda	globalPortRect.bottom
		sta	tempRect.bottom
		lda	globalPortRect.right
		sta	tempRect.right
		sec
		sbc	kpDelta
		sta	tempRect.left

		ldx	tempRgn+2
		lda	tempRgn
		phx
		pha
		pea	tempRect>>16
		pea	tempRect
		_RectRgn

		ldx	deskRgn+2
		lda	deskRgn
		phx
		pha
		ldx	tempRgn+2
		lda	tempRgn
		phx
		pha
		phx
		pha
		_SectRgn

		pha
		pha
		pea	FromDesk
		ldx	tempRgn+2
		lda	tempRgn
		phx
		pha
		_Desktop			; subtract it from desktop
		pla
		plx

		ldx	tempRgn+2
		lda	tempRgn
		phx
		pha
		ldx	windoidRgn+2
		lda	windoidRgn
		phx
		pha
		phx
		pha
		_UnionRgn			; add it to windoid

		ldx	tempRgn+2
		lda	tempRgn
		phx
		pha
		lda	globalPortRect.left
		eor	#$FFFF
		inc	a
		pha
		lda	globalPortRect.top
		eor	#$FFFF
		inc	a
		pha
		_OffsetRgn

		ldx	tempRgn+2
		lda	tempRgn
		phx
		pha
		ldx	visRgn+2
		lda	visRgn
		phx
		pha
		phx
		pha
		_UnionRgn			; add it to visRgn
		
		lda	localPortRect.top	; tempRect <-- area to redraw
		sta	tempRect.top
		lda	localPortRect.right
		sec
		sbc	#boxInset+2
		sbc	kpDelta
		sta	tempRect.left
		lda	localPortRect.bottom
		sta	tempRect.bottom
		lda	localPortRect.right
		sta	tempRect.right

		brl	done

;--- hide the keypad:
shrinkIt

		lda	zoomBoxRect.left		; adjust the local rects
		sec
		sbc	kpDelta
		sta	zoomBoxRect.left

		lda	zoomBoxRect.right
		sec
		sbc	kpDelta
		sta	zoomBoxRect.right

		lda	zoomBoxRect2.left
		sec
		sbc	kpDelta
		sta	zoomBoxRect2.left

		lda	zoomBoxRect2.right
		sec
		sbc	kpDelta
		sta	zoomBoxRect2.right

		lda	dragBarRect.right
		sec
		sbc	kpDelta
		sta	dragBarRect.right

		lda	localPortRect.right
		sec
		sbc	kpDelta
		sta	localPortRect.right

		lda	globalPortRect.right	; will we be off the screen? 
		sec
		sbc	kpDelta
		bmi	leftSide	
		cmp	#boxInset
		bcs	rightSide
leftSide					; anchor leftside when shrinking
		lda	globalPortRect.left
		clc
		adc	kpDelta
		sta	globalPortRect.left

		pea	windoidPort>>16
		pea	windoidPort
		_SetPort
		
		pea	tempLocInfo>>16
		pea	tempLocInfo
		_GetPortLoc
		
		lda	tempLocInfo.boundsRect.left
		sec
		sbc	kpDelta
		sta	tempLocInfo.boundsRect.left
		lda	tempLocInfo.boundsRect.right
		sec
		sbc	kpDelta
		sta	tempLocInfo.boundsRect.right

		pea	tempLocInfo>>16
		pea	tempLocInfo
		_SetPortLoc

;--- desktop and windoid rgns are ok here
			
		ldx	visRgn+2
		lda	visRgn
		phx
		pha
		lda	kpDelta
		eor	#$FFFF
		inc	a
		pha
		pea	0
		_OffsetRgn			; need to re-compute visRgn

		lda	localPortRect.top	; tempRect <-- area to redraw
		sta	tempRect.top		
		lda	localPortRect.right
		sec
		sbc	globalPortRect.right
		sta	tempRect.left	
		lda	localPortRect.bottom
		sta	tempRect.bottom
		lda	localPortRect.right
		sta	tempRect.right
		brl	done

rightSide
		lda	globalPortRect.top	; calc global keypad rect & rgn
		sta	tempRect.top

		lda	globalPortRect.right
		sec
		sbc	kpDelta
		sta	tempRect.left

		lda	globalPortRect.bottom
		sta	tempRect.bottom

		lda	globalPortRect.right
		sta	tempRect.right

		ldx	tempRgn+2
		lda	tempRgn
		phx
		pha
		pea	tempRect>>16
		pea	tempRect
		_RectRgn

		ldx	windoidRgn+2
		lda	windoidRgn
		phx
		pha
		ldx	tempRgn+2
		lda	tempRgn
		phx
		pha
		phx
		pha
		_SectRgn			; find visible part of it

		pha
		pha
		pea	ToDesk
		ldx	tempRgn+2
		lda	tempRgn
		phx
		pha
		_Desktop			; add it to the desktop
		pla
		plx

		lda	tempRgn
		ldx	tempRgn+2
		jsl	UpdateDesktop		; force WM to clean-up my mess

		ldx	windoidRgn+2
		lda	windoidRgn
		phx
		pha
		ldx	tempRgn+2
		lda	tempRgn
		phx
		pha
		ldx	windoidRgn+2
		lda	windoidRgn
		phx
		pha
		_DiffRgn			; subtract it from windoid

		ldx	tempRgn+2
		lda	tempRgn
		phx
		pha
		lda	globalPortRect.left
		eor	#$FFFF
		inc	a
		pha
		lda	globalPortRect.top
		eor	#$FFFF
		inc	a
		pha
		_OffsetRgn

		ldx	visRgn+2
		lda	visRgn
		phx
		pha
		ldx	tempRgn+2
		lda	tempRgn
		phx
		pha
		ldx	visRgn+2
		lda	visRgn
		phx
		pha
		_DiffRgn			; subtract it from vis rgn
			

		lda	globalPortRect.right
		sec
		sbc	kpDelta
		sta	globalPortRect.right

		lda	localPortRect.top	; tempRect <-- area to redraw
		sta	tempRect.top
		lda	localPortRect.right
		sec
		sbc	#boxInset
		sta	tempRect.left
		lda	localPortRect.bottom
		sta	tempRect.bottom
		lda	localPortRect.right
		sta	tempRect.right	

done
		pea	windoidPort>>16		; adjust my port
		pea	windoidPort
		_SetPort

		pea	localPortRect>>16
		pea	localPortRect
		_SetPortRect

		ldx	tempRgn+2
		lda	tempRgn
		phx
		pha
		pea	tempRect>>16
		pea	tempRect
		_RectRgn

		ldx	tempRgn+2
		lda	tempRgn
		phx
		pha
		ldx	visRgn+2
		lda	visRgn
		phx
		pha
		ldx	tempRgn+2
		lda	tempRgn
		phx
		pha
		_SectRgn
		
		ldx	tempRgn+2
		lda	tempRgn
		phx
		pha
		_SetVisHandle
		
		jsl	DrawWindoid
		
		ldx	visRgn+2
		lda	visRgn
		phx
		pha
		_SetVisHandle

		ldx	tempRgn+2
		lda	tempRgn
		phx
		pha
		_DisposeRgn

		rtl

		ENDP



*===============================================*
* In:	a-reg has pointer to box rect 		*
*	x-reg has horizontal position		*
*	y-reg has vertical position		*
*						*
* Out:	carry set if mouse up occurs inside of	*
*	box rect				*
*						*
*===============================================*

TrackBox	PROC

		LONGA	ON
		LONGI	ON
		
		IMPORT	KillMouseEvent
		
		IMPORT	tempPt:Point
		
		sta	temp			; address of rect
		stx	tempPt.h
		sty	tempPt.v

		pea	WindowData>>16
		lda	temp
		pha
		_InvertRect

		lda	#1
		sta	hilited
	
@while
		pha
		pea	0
		_StillDown
		pla
		beq	@mouseUp

		pea	tempPt>>16
		pea	tempPt
		_GetMouse

		pha
		pea	tempPt>>16
		pea	tempPt
		pea	WindowData>>16
		lda	temp
		pha
		_PtInRect
		pla
		beq	@outside
@inside
		lda	hilited
		bne	@while

		pea	WindowData>>16
		lda	temp
		pha
		_InvertRect
		inc	hilited

		bra	@while
@outside
		lda	hilited
		beq	@while
		pea	WindowData>>16
		lda	temp
		pha
		_InvertRect
		stz	hilited
		bra	@while
@mouseUp	
		jsl	KillMouseEvent

		pha
		pea	tempPt>>16
		pea	tempPt
		pea	WindowData>>16
		lda	temp
		pha
		_PtInRect
		pla
		cmp	#1			; carry set if mouse up occured inside of rect

		rtl
		
		ENDP


*===============================================*
* In:	a & x point to region to clean up	*
*						*
* Out:	none					*
*						*
*===============================================*

UpdateDesktop	PROC

		LONGA	ON
		LONGI	ON
		
rgn		set	1
structRgn	set	rgn+4
tmpRgn		set	structRgn+4

localSize	set	12

		tay				; save a

		phd				; make a stack frame
		tsc
		sec
		sbc	#localSize
		tcs
		tcd
		
		sty	<rgn
		stx	<rgn+2

		pha
		pha
		_NewRgn
		pla
		plx
		sta	<tmpRgn
		stx	<tmpRgn+2
		
		pha
		pha
		lda	myWinPtr+2
		pha
		lda	myWinPtr
		pha
		_GetStructRgn
		pla
		plx
		sta	<structRgn
		stx	<structRgn+2
		
		pei	<structRgn+2
		pei	<structRgn
		pei	<tmpRgn+2
		pei	<tmpRgn
		_CopyRgn			; save a copy of stuct rgn

		pei	<rgn+2
		pei	<rgn
		pei	<structRgn+2
		pei	<structRgn
		_CopyRgn			; now set struct rgn to bashed rgn

;--- make my window visible:

		pha
		lda	myWinPtr+2
		pha
		lda	myWinPtr
		pha
		_GetWFrame
		pla
		ora	#fVis

		pha
		lda	myWinPtr+2
		pha
		lda	myWinPtr
		pha
		_SetWFrame
		
		lda	myWinPtr+2
		pha
		lda	myWinPtr
		pha
		_BringToFront
		
		pea	0
		lda	myWinPtr+2
		pha
		lda	myWinPtr
		pha
		_ShowHide
		
;		lda	myWinPtr+2
;		pha
;		lda	myWinPtr
;		pha
;		pea	(-2)>>16
;		pea	(-2)
;		_SendBehind
	
		pei	<tmpRgn+2
		pei	<tmpRgn
		pei	<structRgn+2
		pei	<structRgn
		_CopyRgn			; restore struct rgn
	
		pei	<tmpRgn+2
		pei	<tmpRgn
		_DisposeRgn
exit
		tsc
		clc
		adc	#localSize
		tcs
		pld
		rtl
		
		ENDP



*===============================================*
* Check to see if some BOZO application wrote	*
* on top of us (i.e. wrote straight to the 	*
* screen without checking the grafport's visRgn.*
*						*
* In:	x-reg has horizontal position 		*
*	y-reg has vertical position		*
*						*
* Out:	carry set if windoid is dirty		*
*						*
*===============================================*

DirtyWindoid	PROC

		LONGA	ON
		LONGI	ON
		
		IMPORT	RgnToRect

		IMPORT	globalPortRect:Rect
		IMPORT	tempRect:Rect
		
	
;--- abort check if mouse is down or an event is pending:
;    (menus could be selected!)

		pha
		pea	0
		_Button				; is the mouse down?
		pla
		bne	@clean
		
		pha
		pea	$0FFF
		pea	tempEvent>>16
		pea	tempEvent
		_EventAvail			; is there an event pending?
		pla
@clean
		bne	clean			; abort check
		
		ldx	windoidRgn+2
		lda	windoidRgn
		phx
		pha
		pea	tempRect>>16
		pea	tempRect
		jsl	RgnToRect

; abort check if screen is in bank 1 AND screen
; shadowing is disabled (i.e. CloseView is on!)

		lda	ScreenBank		; is the screen in bank 1
		cmp	#$00E1
		beq	@cont			; no, so continue check
		
		lda	>SHADOW			; load the shadow register
		and	#$08			; is  screen shadowing off (bit 3 set)
		bne	clean
@cont		
		lda	tempRect.left
		and	#$FFFE
		sta	temp			; left edge

		lda	tempRect.right
		sec
		sbc	#8
		and	#$FFFE
		sta	temp+2			; right edge

;--- abort check if we'll overlap:		

		sec
		sbc	temp
		cmp	#48
		bcc	clean

		lsr	temp			; 4 bit pixels (320 mode)
		lsr	temp+2
		lda	masterSCB
		and	#mode640
		beq	@test
		lsr	temp			; 2 bit pixels (640 mode)
		lsr	temp+2

@test
		lda	globalPortRect.top	; test the top line
		cmp	tempRect.top
		bne	@test2
		jsr	TestIt
		bcs	dirty		
@test2
		lda	globalPortRect.bottom	; test the bottom line
		cmp	tempRect.bottom
		bne	clean
		dec	a
		jsr	TestIt
		bcc	clean
dirty
		sec
		rtl		
clean
		clc
		rtl



;-----------------------------------------------
TestIt

sum		set	1
Screen		set	$2000	

		phb
		
		tay
		pha				; scratch space
		xba
		and	#$FF00
		lsr	a
		sta	sum,s			; sum <-- a * 128
		tya
		asl	a
		asl	a
		asl	a
		asl	a
		asl	a			; a <-- a * 32
		adc	sum,s			; a <-- 128a + 32a = 160a
		ply

;--- if frame ­ 0 (black) then we are dirty:

		tax

		clc
		adc	temp			; add in h1
		tay
		
		txa
		clc
		adc	temp+2			; add in h2
		tax
		
		
		pea	$E1E1
		plb
		plb

		lda	|Screen,y
		beq	@or
		and	|Screen+8,y
		bne	@dirty
@or
		lda	|Screen,x
		beq	@clean
		and	|Screen-8,x
		beq	@clean
@dirty
		sec
		bra	@exit
@clean
		clc
@exit
		plb	
		rts

		ENDP


*===============================================*
* In:	rgn, rectPtr on stack			*
*						*
* Out:	none					*
*						*
*===============================================*

RgnToRect	PROC

dSave		set	1			; stack offsets
rtlAddr		set	dSave+2
rectPtr		set	rtlAddr+3
rgn		set	rectPtr+4


		phd				; make a frame
		tsc
		tcd
		
		ldy	#2
		lda	[<rgn],y
		tax
		lda	[<rgn]
		sta	<rgn
		stx	<rgn+2
		
		ldy	#2
		lda	[<rgn],y
		sta	[<rectPtr]

		ldy	#4
		lda	[<rgn],y
		ldy	#2
		sta	[<rectPtr],y

		ldy	#6
		lda	[<rgn],y
		ldy	#4
		sta	[<rectPtr],y

		ldy	#8
		lda	[<rgn],y
		ldy	#6
		sta	[<rectPtr],y
		
		lda	<rtlAddr
		sta	<rtlAddr+8
		lda	<rtlAddr+1
		sta	<rtlAddr+9
		
		pld
	
		tsc
		clc
		adc	#8
		tcs
		rtl

		ENDP

*===============================================*
* In:	none			 		*
*						*
* Out:	none					*
*						*
*===============================================*

DrawAbout	PROC

		LONGA	ON
		LONGI	ON
		
		IMPORT	aboutLocInfo:LocInfo
		IMPORT	tempRect:Rect

frame		RECORD	1			; stack frame offsets

index		ds.W	1
width		ds.W	1
spWidth		ds.W	1
using640	ds.W	1
xPos		ds.W	1
lastTick	ds.L	1
tickDelay	ds.L	1
_last
frameSize	SET	_last-1

		ENDR

charCount	SET	14
extra		SET	2


		WITH	frame

		phd				; make a frame
		tsc
		sec
		sbc	#frameSize
		tcs
		tcd


		ldx	aboutWinPtr+2
		lda	aboutWinPtr
		phx
		pha
		_BeginUpdate

		lda	#36
		sta	<spWidth
		lda	#6
		sta	<width

		pha
		_GetMasterSCB
		pla
		sta	aboutLocInfo.portSCB
		and	#mode640
		beq	@320
@640
		ldy	#1
		ldx	#kX
		lda	#120
		bra	@set
@320
		lsr	<spWidth
		lsr	<width
		ldy	#0
		ldx	#kX_320
		lda	#60
@set
		sty	<using640
		stx	<xPos
		sta	aboutLocInfo.boundsRect.right

		pea	aboutLocInfo>>16
		pea	aboutLocInfo
		pea	aboutLocInfo.boundsRect>>16
		pea	aboutLocInfo.boundsRect
		phx
		pea	kY
		pea	0
		_PPToPort

		lda	aboutLocInfo.boundsRect.right
		clc
		adc	<xPos
		pha
		pea	kY+16
		_MoveTo
		pea	strVersion>>16
		pea	strVersion
		_DrawString

		lda	#strCopyright
		ldx	#strCopyright>>16
		jsr	CenterString
		pha
		pea	aboutDY-4
		_MoveTo
		pea	strCopyright>>16
		pea	strCopyright
		_DrawString

;		lda	#strReserved
;		ldx	#strReserved>>16
;		jsr	CenterString
;		pha
;		pea	aboutDY-3
;		_MoveTo
;		pea	strReserved>>16
;		pea	strReserved
;		_DrawString

;--- type out "VIDEO KEYBOARD" on miny keyboard:


		lda	#strTitle
		ldx	#strTitle>>16
		jsr	CenterString
		sec
		sbc	#extra*12/2
		pha
		pea	12
		_MoveTo

		lda	#32
		jsr	Delay
		
		stz	<index
@loop						; loop for index = 0 to charCount-1		
		lda	<index
		asl	a
		asl	a
		tax

		lda	keyPt,x			; get Y coordinate
		clc
		adc	#kY
		sta	tempRect.top
		adc	#2
		sta	tempRect.bottom
		
		lda	keyPt+2,x		; get X coordinate
		ldy	<using640
		bne	@a
		lsr	a
@a
		clc
		adc	<xPos
		sta	tempRect.left
		clc
		adc	<width
		sta	tempRect.right
		
		ldx	<index
		lda	strTitle+1,x		; is this a ' ' character?
		and	#$FF
		cmp	#' '
		bne	@b
		lda	tempRect.left
		clc
		adc	<spWidth		; yes, so make rect wider
		sta	tempRect.right
@b
		pea	tempRect>>16
		pea	tempRect
		_InvertRect
		
		ldx	<index
		lda	strTitle+1,x
		and	#$FF
		pha
		_DrawChar
		
		jsr	AddExtraSpace

		lda	#16
		jsr	Delay
		
		pea	tempRect>>16
		pea	tempRect
		_InvertRect
		
		ldx	<index
		inx
		stx	<index
		cpx	#charCount
		bcc	@loop

		lda	#strAuthor
		ldx	#strAuthor>>16
		jsr	CenterString
		pha
		pea	24
		_MoveTo

		pea	strAuthor>>16
		pea	strAuthor
		_DrawString


		ldx	aboutWinPtr+2
		lda	aboutWinPtr
		phx
		pha
		_EndUpdate
exit
		tsc
		clc
		adc	#frameSize
		tcs
		pld
		rtl
	
		rtl


;-----------------------------------------------
AddExtraSpace
		pea	tempPt>>16		; add extra spacing for title
		pea	tempPt
		_GetPen
		
		lda	tempPt+2
		clc
		adc	#extra
		pha
		lda	tempPt
		pha
		_MoveTo
		
		rts

;-----------------------------------------------
CenterString
		pha
		phx
		pha
		_StringWidth
		lda	#aboutDX
		sec
		sbc	1,s
		lsr	a
		plx
		rts

;-----------------------------------------------
Delay
		sta	<tickDelay
	
		pha
		pha
		_GetTick
		pla
		plx
		sta	<lastTick
		stx	<lastTick+2
@wait
		pha
		pha
		_GetTick
		pla
		sec
		sbc	<lastTick
		tax
		pla
		sbc	<lastTick+2
		
		cpx	<tickDelay
		sbc	#0
		bcc	@wait
		
		rts

		ENDP



*===============================================*
* In:	a-reg: 1 = open, 0 = close		*
*						*
* Out:	none					*
*						*
*===============================================*

AboutWindow	PROC	EXPORT

		LONGA	ON
		LONGI	ON
		
		IMPORT	EnableMouseTrap
		IMPORT	DisableMouseTrap

		IMPORT	myWinList:ParamList
		IMPORT	globalPortRect:Rect
		IMPORT	aboutWinRect:Rect
		
	
		tax
		bne	openIt
		brl	closeIt
openIt

;--- initialize window's position:

		lda	#aboutY1
		sta	myWinList.wPosition.top	
		lda	#aboutY2
		sta	myWinList.wPosition.bottom
		lda	#fAlert+fVis
		sta	myWinList.wFrameBits
		lda	#DrawAbout
		sta	myWinList.wContDefProc
		lda	#DrawAbout>>16
		sta	myWinList.wContDefProc+2
		lda	#(-1)
		sta	myWinList.wPlane
		lda	#(-1)>>16
		sta	myWinList.wPlane+2

;--- adjust for 320/640 screen:

		pha
		_GetMasterSCB
		pla
		and	#mode640
		beq	@320
@640
		lda	#aboutX1
		sta	myWinList.wPosition.left
		lda	#aboutX2
		sta	myWinList.wPosition.right
		lda	#aboutX1-12
		sta	aboutWinRect.left
		lda	#aboutX2+12
		sta	aboutWinRect.right
		bra	check
@320
		lda	#aboutX1_320
		sta	myWinList.wPosition.left
		lda	#aboutX2_320
		sta	myWinList.wPosition.right
		lda	#aboutX1_320-12
		sta	aboutWinRect.left
		lda	#aboutX2_320+12
		sta	aboutWinRect.right
check

		lda	myWinPtr
		ora	myWinPtr+2
		beq	@skip

		jsl	DisableMouseTrap

;--- find where windoid overlaps:

		pha
		pha
		_NewRgn
		pla
		plx
		sta	aboutWinRgn
		stx	aboutWinRgn+2

		phx
		pha
		pea	aboutWinRect>>16
		pea	aboutWinRect
		_RectRgn
		lda	aboutWinRgn
		ldx	aboutWinRgn+2
		phx
		pha
		lda	windoidRgn
		ldx	windoidRgn+2
		phx
		pha
		lda	aboutWinRgn
		ldx	aboutWinRgn+2
		phx
		pha
		_SectRgn			; aboutWinRgn = overlap
		pha
		pha
		pea	ToDesk
		lda	aboutWinRgn
		ldx	aboutWinRgn+2
		phx
		pha
		_Desktop			; add overlap region to desktop
		pla
		plx
@skip
		pha
		pha
		pea	myWinList>>16
		pea	myWinList
		_NewWindow			; create the window
		pla
		plx
		sta	aboutWinPtr
		stx	aboutWinPtr+2

		jsl	DrawAbout		; draw it
		brl	done

;--- close the About box:

closeIt
		lda	aboutWinPtr
		ora	aboutWinPtr+2
		bne	@ok
		brl	done
@ok
		lda	myWinPtr
		ora	myWinPtr+2
		bne	@overlap
		brl	@alone
@overlap
		pha
		pha
		pea	FromDesk
		ldx	aboutWinRgn+2
		lda	aboutWinRgn
		phx
		pha
		_Desktop			; subract overlap region from desktop
		pla
		plx

		ldx	aboutWinPtr+2
		lda	aboutWinPtr
		phx
		pha
		_CloseWindow

		stz	aboutWinPtr
		stz	aboutWinPtr+2

		pha
		ldx	aboutWinRgn+2
		lda	aboutWinRgn
		phx
		pha
		_EmptyRgn
		pla
		bne	@empty

;--- redraw the windoid:

		pea	windoidPort>>16
		pea	windoidPort
		_SetPort

		ldx	aboutWinRgn+2
		lda	aboutWinRgn
		phx
		pha
		lda	globalPortRect.left
		eor	#$FFFF
		inc	a
		pha
		lda	globalPortRect.top
		eor	#$FFFF
		inc	a
		pha
		_OffsetRgn

		ldx	aboutWinRgn+2
		lda	aboutWinRgn
		phx
		pha
		_SetVisHandle

		jsl	DrawWindoid

		ldx	visRgn+2
		lda	visRgn
		phx
		pha
		_SetVisHandle
@empty
		jsl	EnableMouseTrap
		bra	done
@alone
		ldx	aboutWinPtr+2
		lda	aboutWinPtr
		phx
		pha
		_CloseWindow
		stz	aboutWinPtr
		stz	aboutWinPtr+2
done
		rtl
		
		ENDP



*===============================================*
* In:	none					*
*						*
* Out:	carry set if it is OK to enable CDA	*
*						*
*===============================================*

OkToUseCDAMenu	PROC	EXPORT

		LONGA	ON
		LONGI	ON
		
		IMPORT	EnableMouseTrap
		IMPORT	DisableMouseTrap
		IMPORT	DrawWindoid
		
		IMPORT	aboutWinRect:Rect
		IMPORT	globalPortRect:Rect
		
		jsl	DisableMouseTrap

		lda	#aboutY1
		sta	strAlert+1
		lda	#aboutY2
		sta	strAlert+5
		
		pha
		_GetMasterSCB
		pla
		and	#mode640
		beq	@320
@640
		lda	#aboutX1
		bra	@set
@320
		lda	#aboutX1_320;
@set
		tax
		sta	strAlert+3
		clc
		adc	#aboutDX
		sta	strAlert+7
		adc	#12
		sta	aboutWinRect.right
		txa
		sec
		sbc	#12
		sta	aboutWinRect.left

;--- find where windoid overlaps:

		pha
		pha
		_NewRgn
		pla
		plx
		sta	tempRgn
		stx	tempRgn+2

		phx
		pha
		pea	aboutWinRect>>16
		pea	aboutWinRect
		_RectRgn

		ldx	tempRgn+2
		lda	tempRgn
		phx
		pha
		ldx	windoidRgn+2
		lda	windoidRgn
		phx
		pha
		ldx	tempRgn+2
		lda	tempRgn
		phx
		pha
		_SectRgn			; tempRgn = overlap

		pha
		pha
		pea	ToDesk
		ldx	tempRgn+2
		lda	tempRgn
		phx
		pha
		_Desktop			; add windoid region to desktop
		pla
		plx

		pha
		pea	$0001			; flag = use Pascal sub strings
		pea	subArray>>16
		pea	subArray
		pea	strAlert>>16
		pea	strAlert
		_AlertWindow			; put up the alert, leave button result on stack

;--- button result left on stack!!

		pha
		pha
		pea	FromDesk
		ldx	tempRgn+2
		lda	tempRgn
		phx
		pha
		_Desktop			; subract windoid region from desktop
		pla
		plx

		pha
		ldx	tempRgn+2
		lda	tempRgn
		phx
		pha
		_EmptyRgn
		pla
		bne	@empty			; no overlap, so skip redraw

;--- redraw the windoid:

		pea	windoidPort>>16
		pea	windoidPort
		_SetPort

		ldx	tempRgn+2
		lda	tempRgn
		phx
		pha
		lda	globalPortRect.left
		eor	#$FFFF
		inc	a
		pha
		lda	globalPortRect.top
		eor	#$FFFF
		inc	a
		pha
		_OffsetRgn

		ldx	tempRgn+2
		lda	tempRgn
		phx
		pha
		_SetVisHandle

		jsl	DrawWindoid

		ldx	visRgn+2
		lda	visRgn
		phx
		pha
		_SetVisHandle
@empty
		jsl	EnableMouseTrap


;--- return carry set if user selects button #1:

		pla				; get button from stack
		cmp	#1
		beq	exit			; carry set if equal
		clc				; not equal, so clear carry
exit		
		rtl
		
		ENDP


		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/VideoMix/VideoMix.INIT/makefile b/IIGS.601.SRC/A.U.G/VideoMix/VideoMix.INIT/makefile
new file mode 100644
index 0000000..160e151
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/VideoMix/VideoMix.INIT/makefile
@@ -0,0 +1 @@
+### Dependencies for building video mix init  ###

AppleIIVOC.INIT		Ä	VDInit.asm.obj
	Linkiigs 	VDInit.asm.obj	¶
		-o AppleIIVOC.INIT -t $B7
		

VDInit.asm.obj		Ä		VDInit.asm
	Asmiigs	VDInit.asm


\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/VideoMix/VideoMix.INIT/vdinit.asm b/IIGS.601.SRC/A.U.G/VideoMix/VideoMix.INIT/vdinit.asm
new file mode 100644
index 0000000..dfc2791
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/VideoMix/VideoMix.INIT/vdinit.asm
@@ -0,0 +1 @@
+******************************************************************************
*			                 *
* This Init program	causes tool033 to startup which causes it to perform its *
* time consuming presence test for the Video Overlay Card.	We need this     *
* to be done in an init program because	it turns interrupts	off for a  long  *
* period of time which in turn can cause time crucial interrupt code not to  *
* service interrupts in time (usually a	loss of data.)	                 *
*			                 *
*	    Version 1.0 -- April 1989	                 *
*			                 *
******************************************************************************



	INCLUDE 'all.macros'

****************************************************************
*
*  The main program
*
****************************************************************
	EXPORT VDINIT
VDINIT	PROC



;----------------------------------------------------
;
; Set the data bank	to code bank so I can use absolute
; addressing.
;
	phb	;save data bank
	phk	;get programs data bank
	plb	;set data bank to program bank


;-----------------------------------------------
;
; Start with TLStartup
;
	_TLStartup	; Tool Locator


;-------------------------------------------------
;
; Initialize the memory manager.
;

	PushWord #0
	_MMStartup

	pla
	sta MyID

;-------------------------------------------------
;
; Now see if the tool is already there (dont do anything if	it is)
;

	PushWord #0	;space for result
	ldx #$0621	;vdstatus
	jsl $e10000	;perform vdstatus
	bcs NotThere	;branch if not there
	pla	;get result off stack

;We arrive here if the tool is already there, don't load it
	bra OutOfHere


;We arrive here if the tool isn't there, load it up
NotThere		; 
	pla	;get result off stack
	PushWord #33	;load tool033
	PushWord #0	;min. version of 0
	_LoadOneTool
	bcs OutOfHere	;do nothing is cant	load tool

;Now start it up (cause presence test to occur and send message)
	ldx #$0221	;vdstartup
	jsl $e10000	;perform vdstartup
	ldx #$0321	;vdshutdown
	jsl $e10000	;perform vdshutdown

;Because we loaded it, unload it
	PushWord #33	;tool033
	_UnLoadOneTool	;unload the tool


;-------------------------------------------------
;
; Now shut everything down
;

OutOfHere		; 
	PushWord MyID
	_MMShutdown

	_TLShutdown



	plb	;restore bank
	rtl	;because inits end this way

MyId	DS.B 2	;my memory manager ID
	ENDP




	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/VideoMix/VideoMix.NDA/PokeyNDA.Pii b/IIGS.601.SRC/A.U.G/VideoMix/VideoMix.NDA/PokeyNDA.Pii
new file mode 100644
index 0000000..77c8e00
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/VideoMix/VideoMix.NDA/PokeyNDA.Pii
@@ -0,0 +1 @@
+{$DeskAcc 60 -1 VideoMix}
{$LongGlobals+}

program PokeyNDA;

{
  Copyright Apple Computer, Inc.  1987, 1988, 1989
  All Rights Reserved
  
  The VideoMix DA was programmed by Dan D. Hitchens,
  with many thanks to Roark Hiloman from Software QA.
  
  Copyright TML Systems, Inc. 1987, 1988

}
{-------------------------------------------------------------------------------}
{CHANGE HISTORY:
Version 1.1 F1
4/24/89		DDH	-Changed period to once every second (was once every 1/60th).
				-Changed when we load and unload tool033 (to correct method)
				-Modified LoadVDTool routine to return a boolean=false if tool033
				 is unable to load.  Also, always checks to see if the tool is
				 already loaded and started before it attempts to load and
				 start it.
				-Added UnLoadVDTool routine to unload Tool033 only if we loaded
				 and started it in the NDA.
				 
Version 1.1 F2
4/25/89		DDH	-Changed DAInit to initialize WeLoadedIt and WeStartedIt to false
				-Changed UnLoadVDTool routine to correctly unload only when we
				 loaded it.
				
Version 1.2 b1
7/13/89		DDH	-Fixed bug where in Video Adjust, Tint and Color buttons would
				 retain mousedown events from button to button.
				-Fixed DAInit & DAOpen where VD tool calls were made when the
				 tool wasn't loaded or the card wasn't there.
Version 1.2 Final
11/3/89		DDH	-Changed version from v1.2d to v1.2 for final release.

Version 1.3 
4/3/90		DDH	-Fixed crash bug when user hits esc key after no card is found.

7/12/91		DDH -Fixed update problem where the tool wasnt loaded and started.
				-Changed copyright to 91.


}
{-------------------------------------------------------------------------------}



{-------------------------------------------------------------------------------

-------------------------------------------------------------------------------}
USES    QDIntf,
        GSIntf,
        MiscTools,
        ConsoleIO,
        PokeyUnit;
        
procedure
	DrawTime;                   forward;
procedure
	MakeCtrls;				    forward;
procedure
	DAInit(Code: integer);		forward;
procedure
	XXKeySetKDiss(KDissolve: integer);	forward;
procedure
	XXKeySetNKDiss(NKDissolve: integer);	forward;

VAR
		JustOpened2:	boolean;

{-------------------------------------------------------------------------------

  NAME:        function DAOpen;

  PURPOSE:		Performs the Open function of the NDA

  PASSED:		NONE

  RETURNED:		NONE

-------------------------------------------------------------------------------}
function DAOpen: WindowPtr;
var 	TLError,j:	Integer;
		CurrPort:	Grafptr;

begin
   if SelectMode<80 then SelectMode:=11;{default to pick key color mode}
  
   if myWindOpen then SelectWindow(myWindPtr)
   else begin
   
   
   
   
   
   	myWindPtr := NewWindow(myWind);
   	SetSysWindow(myWindPtr);
      end;
      
   DAOpen    := myWindPtr;
   myWindOpen := true;
   
   currPort:=GetPort;
   SetPort(GrafPtr(MyWindPtr));
   JustOpened:=true;
   JustOpened2:=true;
   WantHand:=false;
   IsHand:=false;
   CurPalette:=BitAnd(GetMasterSCB,$000f); {Get current palette}
   
   MakeCtrls;
   EscDefault:=true;
  
   if LoadVDTool then begin{Load up the toolset if it's not already loaded}
   
   
  	  CtlColor:=GetKeyIndex;{--ver 1.2 fix--, moved to this if block}
	  DissSave1:=VDKeyGetKDiss;{init. sliders}
   	  DissSave2:=VDKeyGetNKDiss;
	  j:=GetDissIndex(DissSave1);
      SlidePos1:=SliderY1+2+(j*13);
      j:=GetDissIndex(DissSave2);
      SlidePos2:=SliderY2+2+(j*13);
	  DissCancle1:=DissSave1;
	  DissCancle2:=DissSave2;
	  
	  UnLoadVDTool;{Unload the tool set if it was loaded up by me}
	  end;{of if LoadVDTool}



   SetPort(currPort); 
end; { of DAOpen }

{-------------------------------------------------------------------------------

  NAME:        procedure DAClose;

  PURPOSE:		Closes the NDA.

  PASSED:		NONE

  RETURNED:		NONE

-------------------------------------------------------------------------------}
procedure DAClose;
begin
   CloseWindow(myWindPtr);{close the window and release all controls}
   InitCursor;
   myWindOpen := false;
   UnLoadVDTool;{unload the toolset if it was loaded up by me}
   	
end; { of DAClose }
{-------------------------------------------------------------------------------

  NAME:        procedure DAAction;

  PURPOSE:		Does all the real action for the NDA.

  PASSED:		Code:	Integer;	Tells which action to perfrom
				Param:	Longint;	(depends on Code)
				
  RETURNED:		NONE

-------------------------------------------------------------------------------}
procedure DAAction(Code: Integer; Param: Longint);
label 123, 302, 303, 307, 321, 402, 403, 455, 456, 483, 1018, 1019;
var   currPort: 	GrafPtr;
      WhichWin:		integer;      
      FoundWin:		Windowptr;
      FoundW:		Windowptr;
      
      EvenPixel:	Boolean;
      
      i,ii,j,k :    Integer;
      ptX:			Integer;
      ptY:			Integer;
      ptxy:			Point;
      FoundPHandle:	handle;
      FoundCP:		controlhandle;

      Temp:			signedbyte;
	  Temp2:		Integer;
      Byte1:		signedbyte;
      Byte2:		signedbyte;
      
      MPoint:		ptr;

	  
	  MyTaskRecord:	EventRecord;
	  Bool:			Boolean;
	  DARunLoaded:	Boolean;
      
 
begin
ActivateTime:=false;

  case Code of
      DAEvent: begin
      	 currPort:=GetPort;
      	 SetPort(GrafPtr(MyWindPtr));
      	 WhichVMode:=BitAnd(GetMasterSCB,$0080); {Get video mode, 0=320 mode}

		 

         Case EventRecordPtr(param)^.what of 
		 
         	ActivateEvt: begin
			
				
				if BitAnd(EventRecordPtr(param)^.modifiers,activeflag)=activeflag then
					Bool:=LoadVDTool;{It's activate time, load up and start the tool set}
				
			 	ActivateTime:=true;
			 	ptx:=EventRecordPtr(param)^.where.h;
			 	pty:=EventRecordPtr(param)^.where.v;
			 	WhichWin:=FindWindow(FoundWin,ptx,pty);
			 
				
				if SelectMode=2 then begin
					if ((ESCDefault=false) and ((VDKeyGetKDiss=-1) and (VDKeyGetNKDiss=0))) then begin
						
						goto 321;
						end;
						
					DissSave1:=VDKeyGetKDiss;
					DissSave2:=VDKeyGetNKDiss;
					j:=GetDissIndex(DissSave1);
					if EscDefault then DrawSlider(2,SliderX1,SliderY1,SlidePos1) {erase old slide position}
						else DrawSlider(2,SliderX1,SliderY1,SliderY1+80);{erase old (loc. =6)}

					SlidePos1:=SliderY1+2+(j*13);
					DrawSlider(1,SliderX1,SliderY1,SlidePos1);{draw new slide pos.}
					if EscDefault then DrawSlider(2,SliderX2,SliderY2,SlidePos2) {erase old slide pos.}
						else DrawSlider(2,SliderX2,SliderY2,SliderY2+2);{erase old (loc. =0)}
					j:=GetDissIndex(DissSave2);
					SlidePos2:=SliderY2+2+(j*13);
					DrawSlider(1,SliderX2,SliderY2,SlidePos2);{draw new slide position}
					if ((ESCDefault=false) and ((DissSave1<>-1) or (DissSave2<>0))) then 
					begin  ESCDefault:=true; end;
					end;{of if SelectMode=2}
				321:
				if SelectMode=3 then DrawTime;
				if JustOpened=false then DrawControls(myWindPtr);
				if SelectMode<>11 then CtlColor:=GetKeyIndex;
				if SelectMode=11 then begin
					StaySame640:=true;
					if JustOpened then begin
						CtlColor:=GetKeyIndex;
						
					end else DrawCSel(GetKeyIndex);
					StaySame640:=false;
					end;{of SelectMode=11}
            	{end;}{of in my window}
									
				{If ActOrDeact=false then begin}
				if BitAnd(EventRecordPtr(param)^.modifiers,activeflag)=0 then
					UnLoadVDTool; {It's deavtivate time, unload the toolset}
					{ActOrDeact:=true;
					end else ActOrDeact:=false;}

            	End;{of ActivateEvt}
            UpdateEvt: begin

				Bool:=LoadVDTool;{make sure the tool is loaded and started up}

				BeginUpdate(myWindPtr);

				UpdateTime:=true;
            	DrawTime;
				UpdateTime:=false;
  				if JustOpened=false then DrawControls(myWindPtr);
             	JustOpened:=false;
				EndUpdate(myWindPtr);


				UnLoadVDTool; {now unload the toolset if we started it up}
								
            	end;{of UpdateEvt}
           
            	
            KeyDown: begin
            		temp:=BitAnd(LoWord(EventRecordPtr(param)^.message),$007f);
				
				{First check to see that we are not in an error state;DDH v1.3}
				if SelectMode<90 then begin
					
					{Now check for an ESCAPE keypress}
					if temp=27 then begin {Is it an ESC key?}
							if EscDefault then begin {if default time}
								if SelectMode=2 then begin {if video/graphics mix}
							    	InitCursor;

            						DrawSlider(2,SliderX1,SliderY1,SlidePos1);{erase old}
            						DrawSlider(1,SliderX1,SliderY1,SliderY1+80);{draw new (loc. 6)}
									DrawSlider(2,SliderX2,SliderY2,SlidePos2);{erase old}
									
            						DrawSlider(1,SliderX2,SliderY2,SliderY2+2);{draw new (loc.=0)}
									end;{of selectmode=2}

								XXKeySetKDiss(DissLevel[6]);
								XXKeySetNKDiss(DissLevel[0]);
								EscDefault:=false;
							end else begin {else set to last changed dissolve values}
								if SelectMode=2 then begin {if video/graphic mix}
							    	InitCursor;
   									j:=GetDissIndex(DissSave1);
           							SlidePos1:=SliderY1+2+(j*13);

            						DrawSlider(2,SliderX1,SliderY1,SliderY1+80);{erase old (loc. =6)}
            						DrawSlider(1,SliderX1,SliderY1,SlidePos1);{draw last }
									DrawSlider(2,SliderX2,SliderY2,SliderY2+2);{erase old (loc.=0)}
   									j:=GetDissIndex(DissSave2);
           							SlidePos2:=SliderY2+2+(j*13);
            						DrawSlider(1,SliderX2,SliderY2,SlidePos2);{draw last}
									end;{of selectmode=2}

								XXKeySetKDiss(DissSave1);
								XXKeySetNKDiss(DissSave2);
								EscDefault:=true;
								end; {of else}
						end;{of if esc}
						
				{Now check for an "I" keypress}
					if ((temp=105) or (temp=73)) then begin {Is it an "i" or "I" key?}
						if IToggle then begin
								VDGGControl(InterlaceMode,Enable);	
								IToggle:=false;
							end else begin
								VDGGControl(InterlaceMode,Disable);
								IToggle:=true;
							end;{of else i}
						
						
						end;{of if i or I}
				end;{of if SelectMode<90}
					
   			Case SelectMode of

            		2:begin {Keypress while in Video/Graphic Mix}
            			if temp=13 then begin
            				HiliteControl(2,CHandle[4]);
            				goto 302;
            				end;
            			end;
            		3:begin {Keypress while in Video Adjust}
            			
            			if temp=13 then begin
            				HiliteControl(2,CHandle[1]);
            				goto 303;
            				end;
            			end;
            		77:begin {Keypress while in Aboutbox}
            			if temp=13 then begin
            				HiliteControl(2,CHandle[7]);
            				goto 307;
            				end;
            			end;

            		end;
            		
            	end;
            
            	
       	    Mousedown: begin
				Temp2:=BitAnd((EventRecordPtr(param)^.modifiers),AppleKey);{gets open apple key?}
            	ptx:=EventRecordPtr(param)^.where.h;
            	pty:=EventRecordPtr(param)^.where.v;
            	WhichWin:=FindWindow(FoundWin,ptX,ptY);
            	WhichWin:=BitAnd(WhichWin,$7fff);
            	if WhichWin = wInContent then begin
            		FoundPart:=FindControl(FoundCP,ptx,pty,myWindPtr);

            		case FoundPart of
            	
            		{Check for mousedown on control Color grid}
            		0: begin

            			GetMouse(Ptxy); {get point in local coord}
            			ptx:=Ptxy.h;
            			pty:=Ptxy.v;
						
						{First Check for mousedown on version no. to bring up About Box}
            			if SelectMode=11 then begin
            				if (Pty<15) and (Pty>6) and (Ptx>115) and (Ptx<150) then begin
            					EraseControl(CHandle[2]);
            					EraseControl(CHandle[3]);
            					EraseControl(CHandle[12]);
            					SelectMode:=77;
								Drawtime;
            					end;
            				end;
							
							
            			if SelectMode=2 then begin {in Video/Graphcis}
							if EscDefault=false then begin
								
								SlidePos1:=SliderY1+80;
								DissSave1:=DissLevel[6];
								SlidePos2:=SliderY2+2;
								DissSave2:=DissLevel[0];
								EscDefault:=true;
								end;
						    {**See if on left slider}
            				if (Pty>(SlidePos1)) and (Pty<(SlidePos1+8)) 
            					and (Ptx>SliderX1-10) and (Ptx<SliderX1+20) then begin
            				repeat begin
            					
            					Bool:=GetNextEvent($ffff,EventRecordPtr(param)^);
            					GetMouse(Ptxy);
            					pty:=Ptxy.v;
            					If pty<=SlideMin then pty:=SlideMin+1; 
            					if pty>=SlideMax then pty:=SlideMax-1;
            					
            					DrawSlider(3,SliderX1,SliderY1,pty-5);
            					for i:=0 to 1000 do j:=1;
            					DrawSlider(3,SliderX1,SliderY1,pty-5);
            						
            					end; {of repeat}
            				
            				until EventRecordPtr(param)^.what = mouseup;
            				If (pty>SlideMin) and (pty<SlideMax) then begin
            					i:=SliderY1+14;
            					for j:=0 to 6 do begin
            						if pty<(i+j*13) then begin
            							i:=SliderY1+2+j*13;
            							goto 1018;
            							end;
            						end;
            					1018: DrawSlider(2,SliderX1,SliderY1,SlidePos1);{erase old}
            					SlidePos1:=i;
            					DrawSlider(1,SliderX1,SliderY1,SlidePos1);{draw new}
								DissSave1:=DissLevel[j];
            					XXKeySetKDiss(DissSave1);
								EscDefault:=true;
            					end;
            				end; {of if was on right slider}

            				{**See if on right slider}
            				if (Pty>(SlidePos2)) and (Pty<(SlidePos2+8)) 
            					and (Ptx>SliderX2-20) and (Ptx<SliderX2+20) then begin
            				repeat begin
            					
            					Bool:=GetNextEvent($ffff,EventRecordPtr(param)^);
            					GetMouse(Ptxy);
            					pty:=Ptxy.v;
            					If pty<=SlideMin then pty:=SlideMin+1; 
            					if pty>=SlideMax then pty:=SlideMax-1;
            					
            					DrawSlider(3,SliderX2,SliderY2,pty-5);
            					for i:=0 to 1000 do j:=1;
            					DrawSlider(3,SliderX2,SliderY2,pty-5);
            						
            					end; {of repeat}
            				
            				until EventRecordPtr(param)^.what = mouseup;
            				If (pty>SlideMin) and (pty<SlideMax) then begin
            					i:=SliderY2+14;
            					for j:=0 to 6 do begin
            						if pty<(i+j*13) then begin
            							i:=SliderY2+2+j*13;
            							goto 1019;
            							end;
            						end;
            					1019: DrawSlider(2,SliderX2,SliderY2,SlidePos2);{erase old}
            					SlidePos2:=i;
            					DrawSlider(1,SliderX2,SliderY2,SlidePos2);{draw new}
								DissSave2:=DissLevel[j];
            					XXKeySetNKDiss(DissSave2);
								EscDefault:=true;
            					end;
            				end; {of if was on right slider}

            				end;{of if Selectmode=2}
							
            			if SelectMode=3 then begin
						
            				{Now see which arrow its on; Is it on Tint's Up arrow?}
            				if (ptx>ArrowHX-10) and (ptx<ArrowHX+10) and
            				   (pty>ArrowHY) and (pty<ArrowHY+11) then begin
							  	repeat begin

            						GetMouse(Ptxy); {get point in local coord}
            						ptx:=Ptxy.h;
            						pty:=Ptxy.v;
						

            				if (ptx>ArrowHX-10) and (ptx<ArrowHX+10) and
            				   (pty>ArrowHY) and (pty<ArrowHY+11) then begin
            						UpArrow(1,ArrowHX,ArrowHY);{left up arrow}
									if temp2<>0 then begin
										for i:=0 to 4 do VDInConvAdj(InHueAdj,AdjInc);
										end;
            						VDInConvAdj(InHueAdj,AdjInc);
									VDInConvAdj(InHueAdj,AdjInc);
									if temp2 =0 then for i:=0 to 6000 do j:=i;{if no open apple key,time delay}
									UpArrow(1,ArrowHX,ArrowHY);{left up arrow}
									end;
            					end;{of long if}
									Bool:=GetNextEvent($ffff,EventRecordPtr(param)^);
									Temp2:=BitAnd((EventRecordPtr(param)^.modifiers),$0100);{gets open apple key?}									
						 		until EventRecordPtr(param)^.what = mouseup;
									temp2:=FlushEvents(6,0);{flush all mouse events}
           						end;
								
						if (ptx>ArrowHX-10) and (ptx<ArrowHX+10) and
            				(pty>ArrowHY+11) and (pty<ArrowHY+22) then begin
							  	repeat begin

            						GetMouse(Ptxy); {get point in local coord}
            						ptx:=Ptxy.h;
            						pty:=Ptxy.v;
						
						if (ptx>ArrowHX-10) and (ptx<ArrowHX+10) and
            				(pty>ArrowHY+11) and (pty<ArrowHY+22) then begin
            						DownArrow(1,ArrowHX,ArrowHY);{left down arrow}
									if temp2<>0 then begin
										for i:=0 to 4 do VDInConvAdj(InHueAdj,AdjDec);
										end;

            						VDInConvAdj(InHueAdj,AdjDec);
									VDInConvAdj(InHueAdj,AdjDec);
									if temp2=0 then for i:=0 to 6000 do j:=i;{time delay}
									DownArrow(1,ArrowHX,ArrowHY);{left down arrow}
									
									end;{of repeat}
								end;{of long if}
									Bool:=GetNextEvent($ffff,EventRecordPtr(param)^);
									Temp2:=BitAnd((EventRecordPtr(param)^.modifiers),$0f00);{gets open apple key?}
								until EventRecordPtr(param)^.what = mouseup;
									temp2:=FlushEvents(6,0);{flush all mouse events}
           						end;{of if}

						
						if (ptx>ArrowCX-10) and (ptx<ArrowCX+10) and
            				(pty>ArrowCY) and (pty<ArrowCY+11) then begin
								repeat begin

            						GetMouse(Ptxy); {get point in local coord}
            						ptx:=Ptxy.h;
            						pty:=Ptxy.v;
						
						if (ptx>ArrowCX-10) and (ptx<ArrowCX+10) and
            				(pty>ArrowCY) and (pty<ArrowCY+11) then begin
            						UpArrow(1,ArrowCX,ArrowCY);{Color up arrow}
									if temp2<>0 then begin
										for i:=0 to 4 do VDInConvAdj(InSatAdj,AdjInc);
										end;

            						VDInConvAdj(InSatAdj,AdjInc);
									VDInConvAdj(InSatAdj,AdjInc);
									if temp2=0 then for i:=0 to 6000 do j:=i;{time delay}
            			       		UpArrow(1,ArrowCX,ArrowCY);{Color up arrow}
									end;{of long if}
									end;{of repeat}
									Bool:=GetNextEvent($ffff,EventRecordPtr(param)^);
									Temp2:=BitAnd((EventRecordPtr(param)^.modifiers),$0f00);{gets open apple key?}
								
								until EventRecordPtr(param)^.what = mouseup; 
									temp2:=FlushEvents(6,0);{flush all mouse events}
								end;{of if}
							
							
					if (ptx>ArrowCX-10) and (ptx<ArrowCX+10) and
            			(pty>ArrowCY+11) and (pty<ArrowCY+22) then begin
							   repeat begin

            						GetMouse(Ptxy); {get point in local coord}
            						ptx:=Ptxy.h;
            						pty:=Ptxy.v;
						
					if (ptx>ArrowCX-10) and (ptx<ArrowCX+10) and
            			(pty>ArrowCY+11) and (pty<ArrowCY+22) then begin
            						DownArrow(1,ArrowCX,ArrowCY);{left down arrow}
									if temp2<>0 then begin
										for i:=0 to 4 do VDInConvAdj(InSatAdj,AdjDec);
										end;

            						VDInConvAdj(InSatAdj,AdjDec);
									VDInConvAdj(InSatAdj,AdjDec);
									If Temp2=0 then for i:=0 to 6000 do j:=i;{time delay}
            			            DownArrow(1,ArrowCX,ArrowCY);{left up arrow}
									end;
								end;{of long if}
									Bool:=GetNextEvent($ffff,EventRecordPtr(param)^);
									Temp2:=BitAnd((EventRecordPtr(param)^.modifiers),$0f00);{gets open apple key?}
								until EventRecordPtr(param)^.what = mouseup;
									temp2:=FlushEvents(6,0);{flush all mouse events}
								end;{of if}
						
					end; {SelectMode=3}
					
				if SelectMode=11 then begin
				Repeat begin
				
            			{Now see if its on the color grid}
            			for k:=0 to 1 do begin
            			if (ptx > (xgridmin +(k*xwide))) and (ptx < (xgridmax+ (k*xwide))) then begin
            				
            				for j:=0 to 7 do begin
            					i:=k*8+j;
            					if (pty <= (ygridmin + (j+1)*ygridtall))
            					and (pty > (ygridmin + j*ygridtall)) then begin
							{We now have a mousedown in grid}
							ii:=BitSR(i);{div by 2}
							ii:=BitSR(ii);{div by 4}
							
							WhichVMode:=BitAnd(GetMasterSCB,$0080); {Get video mode, 0=320 mode}
		 					CurPalette:=BitAnd(GetSCB(pty),$000f); {Get current palette}
							if WhichVMode=0 then Color.whole:=GetColorEntry(Curpalette,i)
								else begin
									if i<12 then
										begin
											MiniPalette:=ii;
											Color.whole:=GetColorEntry(Curpalette,MiniPalette);
											end
										else begin
											MiniPalette:=i-8;
											Color.whole:=GetColorEntry(CurPalette,MiniPalette);
											end;
									end;
	
							ToRGB(Color.whole);{break into R,G, and B components}
							RReDraw:=RedValue;
							GReDraw:=GreenValue;
							BReDraw:=BlueValue;
							VDKeySetKCol(RedValue,GreenValue,BlueValue);{this sets the key color}
            				ForceThisGrid:=true;
							DrawCSel(i);{erase old and select new}
            						end;{of if}
            					end;{of for j}
            					end;{of if}
            				end;
            				Bool:=GetNextEvent($ffff,EventRecordPtr(param)^);
					GetMouse(Ptxy);
					pty:=Ptxy.v;
					ptx:=Ptxy.h;
            				end;{of repeat}
            			until EventRecordPtr(param)^.what=mouseup;
            				
            			end;{of selectmode=11}
            			end;{of case 0}
            			
            		{If simple button was pressed}
            		2: begin
             			if FoundCp=CHandle[1] then begin
            				if TrackControl(ptx,pty,nil,CHandle[1]) <> 2 then goto 123;
						303:{Finish up Video Adjust}
							VDInConvAdj(InHueAdj,AdjSave);{Save Hue adjustment}
							VDInConvAdj(InSatAdj,AdjSave);{Save Saturation adjustment}
									
							{Restore Key color}
							if WhichVMode<>0 then VDKeySetKCol(Rsave,Gsave,Bsave);

            				EraseControl(CHandle[1]);
            				HiliteControl(0,CHandle[1]);
            				SelectMode:=11;
							Drawtime;
           				end;
           			if FoundCp=CHandle[2] then begin
           				if TrackControl(ptx,pty,nil,CHandle[2]) <> 2 then goto 123;
            				402:
							SelectMode:=2;
							EraseControl(CHandle[2]);
            				EraseControl(CHandle[3]);
            				EraseControl(CHandle[12]);
            				
							Drawtime;
							
            				end;
            				
             			if FoundCp=CHandle[3] then begin
           				if TrackControl(ptx,pty,nil,CHandle[3]) <> 2 then goto 123;
            				403: 
							EraseControl(CHandle[2]);
            				EraseControl(CHandle[3]);
            				EraseControl(CHandle[12]);
            				SelectMode:=3;
							Drawtime;
            				end;
            				           				
            			if (FoundCp=CHandle[4]) or (FoundCP=CHandle[5]) then begin
           				if FoundCp=CHandle[4] then 
           					if TrackControl(ptx,pty,nil,CHandle[4]) <> 2 then goto 123;
           				if FoundCp=CHandle[5] then begin
           					if TrackControl(ptx,pty,nil,CHandle[5]) <> 2 then goto 123;
							DissSave1:=DissCancle1;
							DissSave2:=DissCancle2;
							if EscDefault then begin{if normal, (not esc default dissolve)}
           						XXkeySetKDiss(DissCancle1);
           						XXKeySetNKDiss(DissCancle2);
								end;
							
           					end;
            		302: EraseControl(CHandle[4]);
            			EraseControl(CHandle[5]);
            			HiliteControl(0,CHandle[4]);
            			SelectMode:=11;
						Drawtime;
            			end;{of 4 or 5}
           			if FoundCp=CHandle[7] then begin
           				if TrackControl(ptx,pty,nil,CHandle[7]) <> 2 then goto 123;
            				307: EraseControl(CHandle[7]);
            				HiliteControl(0,CHandle[7]);
            				SelectMode:=11;
							Drawtime;

            				end;

  			end;
            			
            		{If check box pressed}
            		3: begin
            			if FoundCp=CHandle[12] then begin
           				if TrackControl(ptx,pty,nil,CHandle[12]) <> 3 then goto 123;
            				SetCtlValue(1,CHandle[12]); {Check the box}
							if WhichVMode=0 then Hand[148]:=4 else Hand[148]:=8;
            				SetCursor(HandPtr);
							IsHand:=true;
							
							
							455:
							SetPort(GrafPtr(myWindPtr));
							WantHand:=true;


            				repeat
							
								
								ReadMouse(MMode,MStatus,ptx,pty);
								WhichWin:=FindWindow(FoundWin,ptx,pty);{see if on current window}
								WhichWin:=BitAnd(WhichWin,$7fff);

	  							if WantHand=true then begin {want hand cursor}
									
				
									if (MyWindPtr=FoundWin) and
										(((WhichWin=wIncontent) or (WhichWin=wInDrag))
										or (WhichWin=wInGoAway)) then begin
									{if in content region of my da}
										GetMouse(ptxy);
										ptx:=Ptxy.h;
										pty:=Ptxy.v;
										begin {bracket else}
										if IsHand=true then begin
											if ((pty>117) or (WhichWin=wInDrag)) or
												(WhichWin=wInGoAway) then begin
											InitCursor;
											IsHand:=false;
											pty:=200;{for when ingoaway or indrag}
											end;{of > or <}
										end{of IsHand true}
										else begin
						
										if (pty<117) and ((WhichWin<>wInGoAway) and
										  (WhichWin<>wInDrag)) then begin
											SetCursor(HandPtr);
											IsHand:=true;
											end;{of > <}
									
										end;{of else IsHand}
									end;{of bracket}
						
								end {of wIncontent} else
								if IsHand=false then begin
									SetCursor(HandPtr);
									IsHand:=true;
									end;
							end;{of WantHand}

    {now check for events}     	Bool:=GetNextEvent($ffff,EventRecordPtr(param)^);
								If (EventRecordPtr(param)^.what= mousedown) then
            					 begin 
            						456:
									
									ptx:=EventRecordPtr(param)^.where.h;
            						pty:=EventRecordPtr(param)^.where.v;
            						WhichWin:=FindWindow(FoundWin,ptX,ptY);
            						WhichWin:=BitAnd(WhichWin,$7fff);
									
									{This looks for mousedown in the GoAway box}
									if (MyWindPtr=FoundWin) and (WhichWin=wInGoAway) then begin
										Bool:=TrackGoAway(ptX,ptY,MyWindPtr);
										if bool=true then begin
											WantHand:=false;
											CloseNDAbyWinPtr(MyWindPtr);
											myWindOpen := false;
											ptx:=FlushEvents(mUpMask+mDownMask,0);{flush out mouse events}
											goto 123;
										end else begin
											{bool:=GetNextEvent($ffff,EventRecordPtr(param)^);}
											goto 483;{of goaway}
											end;
										end;
									
									{This looks for mousedown in the drag area}
									if (MyWindPtr=FoundWin) and (WhichWin=wInDrag) then
									begin
										{Bool := GetNextEvent($ffff,EventRecordPtr(param)^);}
										DragWindow(0,ptX,ptY,8,Nil,FoundWin);
										goto 483;
									end;
											
									{Bool:=GetNextEvent($ffff,EventRecordPtr(param)^);}
									

            						if WhichWin = wInContent then begin
            							FoundPart:=FindControl(FoundCP,ptx,pty,myWindPtr);

            							If foundpart =3 then begin{if on check box}
            								InitCursor;{Back to arrow cursor}
            								SetCtlValue(0,CHandle[12]);
            								goto 123;
            								end;{of foundpart=3}
										if foundpart=2 then begin {if on button}
											if FoundCp=CHandle[2] then begin
												If TrackControl(ptx,pty,nil,CHandle[2])=2 then begin
													InitCursor;
													SetCtlValue(0,CHandle[12]);
													WantHand:=false;
													goto 402;
													end else goto 455;
												end;{of FoundCp}
											if FoundCp=CHandle[3] then begin {if on Video Adj.}
												If TrackControl(ptx,pty,nil,CHandle[3])=2 then begin
													InitCursor;
													SetCtlValue(0,CHandle[12]);
													WantHand:=false;
													goto 403;
													end else goto 455;
												end;{of FoundCp=CHandle[3]}
												
											end;{of foundpart=2}
										end;{of wInContent}
										
									
								{Else pickup the color from the screen}            						            					
            						EvenPixel:=BitAnd($0001,ptx)=0;
	
            						if WhichVMode<>0 then ptx:=BitSR(ptx);
            						ptx:=BitSR(ptx);
            						pty:=pty-2;
            						if pty<0 then pty:=0;
            						
    								LongOne:=$e12000+ptx+(pty*$00a0);
            						MPoint:=Pointer(LongOne);
            						ptx:=Mpoint^;
    						
            						ptx:=BitAnd($000f,ptx);
									
									
									CurPalette:=BitAnd($000f,GetSCB(pty));
									pty:=ptx; {save ptx at pty for DrawCSel below}
									
            						WhichVMode:=BitAnd(GetMasterSCB,$0080); {Get video mode, 0=320 mode}
            							if WhichVMode<>0 then begin{640 mode}            							
            								if EvenPixel then begin
            									ptx:=BitAnd($0003,ptx);
            							 		ptx:=ptx+4;
            							 		end
            								 else begin
            							 		ptx:=BitAnd($000C,ptx);
            							 		ptx:=BitSR(ptx);
            							 		ptx:=BitSR(ptx);
            							 		end;
            								end;{of 640}
            						
            						Color.whole:=GetColorEntry(CurPalette,ptx);
									MiniPalette:=ptx;{save so we know which palette}
									
									ToRGB(Color.whole);{break apart into R, G, and B components}
									RReDraw:=RedValue;
									GReDraw:=GreenValue;
									BReDraw:=BlueValue;
									VDKeySetKCol(RedValue,GreenValue,BlueValue);{this sets the key color}
            						ForceThisGrid:=true;{force this particular grid}
									DrawCSel(pty);{--------update color grid------}
								end;{if mousedown}         						
								483:
									MyTaskRecord.TaskMask:=2;{just handle updates}
									ptx:=taskmaster($fffd,MyTaskRecord);

         						until WantHand=false;
            				end; 
            			 end;
            
            				
            			end;
            			end;
            			end;
            			end;
      	 123: SetPort(currPort);
      	 end;
		 
{-----------------------------------------------------------------------------------------}
{ DARun:																				  }
{-----------------------------------------------------------------------------------------}
      DARun: begin
         currPort := GetPort;
         SetPort(GrafPtr(myWindPtr));
		 DARunLoaded:=false;
		 if WeLoadedIt=false then begin
		 	Bool:=LoadVDTool;{load up and start the toolset if its not already}
			DARunLoaded:=true;
			end;{of if WeLoadedIt}
		 if JustOpened2=false then begin

			if SelectMode=2 then begin

				if ((LastKDiss<>VDKeyGetKDiss) or (LastNKDiss<>VDKeyGetNKDiss)) then
					begin
					
					LastKDiss:=VDKeyGetKDiss;
					LastNKDiss:=VDKeyGetNKDiss;
					j:=GetDissIndex(LastKDiss);
					DrawSlider(2,SliderX1,SliderY1,SlidePos1); {erase old slide position}
					if ESCDefault=false then DrawSlider(2,SliderX1,SliderY1,SliderY1+80);{erase old (loc. =6)}

					SlidePos1:=SliderY1+2+(j*13);
					DrawSlider(1,SliderX1,SliderY1,SlidePos1);{draw new slide pos.}
					DrawSlider(2,SliderX2,SliderY2,SlidePos2); {erase old slide pos.}
					if ESCDefault=false then DrawSlider(2,SliderX2,SliderY2,SliderY2+2);{erase old (loc. =0)}
					
					j:=GetDissIndex(LastNKDiss);
					SlidePos2:=SliderY2+2+(j*13);
					DrawSlider(1,SliderX2,SliderY2,SlidePos2);{draw new slide position}
					if ((ESCDefault=false) and ((VDKeyGetKDiss<>-1) or (VDKeyGetNKDiss<>0))) then 
					begin  ESCDefault:=true; end;

					end;{of checking dissSave values}
					
				end;{of if SelectMode=2}


          If SelectMode=11 then
		  	begin
				
				if ((RReDraw<>VDKeyGetRCol) or ((GReDraw<>VDKeyGetGCol) or (BReDraw<>VDKeyGetBCol)))
				then
					begin
						DrawCgrid;
						StaySame640:=true;
   						DrawCSel(CtlColor);
						StaySame640:=false;
						RReDraw:=VDKeyGetRCol;
						GReDraw:=VDKeyGetGCol;
						BReDraw:=VDKeyGetBCol;
					end;
					
			end;
			end else begin
				
				JustOpened2:=false;{This prevents redrawing when just opening}
				RReDraw:=VDKeyGetRCol;
				GReDraw:=VDKeyGetGCol;
				BReDraw:=VDKeyGetBCol;
				
				end;
		 if DARunLoaded then begin
		 	UnloadVDTool;{only unload if DARun loaded it}
			WeLoadedIt:=false;
		 	end;
         SetPort(currPort);
         end;
      DACursor: begin
		end;{DACursor}
      DAMenu: begin
         { HiWord(param) is MenuID
           LoWord(param) is ItemID }
         end;
      DAUndo,
      DACut,
      DACopy,
      DAPaste,
      DAClear:  Code := 1;
	end;
end; { of DAAction }

{-------------------------------------------------------------------------------

  NAME:        procedure DAInit;

  PURPOSE:		Performs the initilization phase of the NDA.

  PASSED:		Code:	Integer;	(=0, DeskShutDown call, <>0, DeskStartUp)

  RETURNED:		NONE

-------------------------------------------------------------------------------}
procedure DAInit(Code: Integer);
Var TLError,j,i:	integer;
	Bool:			boolean;

begin
   SelectMode:=11;
   
   with myWind do begin
      param_length := sizeof(NewWindowParamBlk);
      wFrame       := $C0A0;
      wTitle       := @'VideoMix';
      wRefCon      := 0;
      wZoom.top    := 0;
      wZoom.left   := 0;
      wZoom.bottom := 0;
      wZoom.right  := 0;
      wColor       := nil;
      wYOrigin     := 0;
      wXOrigin     := 0;
      wDataH       := 0;
      wDataW       := 0;
      wMaxH        := 0;
      wMaxW        := 0;
      wScrollVer   := 0;
      wScrollHor   := 0;
      wPageVer     := 0;
      wPageHor     := 0;
      wInfoRefCon  := 0;
      wInfoHeight  := 0;
      wFrameDefProc:= nil;
      wInfoDefProc := nil;
      wContDefProc := nil;
      wPosition.top    := 30;
      wPosition.left   := 10;
      wPosition.bottom := 184;
      wPosition.right  := 175;
      wPlane       := -1;
      wStorage     := nil;
      end;
   if Code = 0 then begin
   { A DeskShutDown Call, chk that my window is closed }
      if myWindOpen then DAClose;
		UnLoadVDTool;{unload the toolset if we loaded it last}
	end
   else begin
   { A DeskStartUp Call, init myWindOpen flag }
	  WeLoadedIt:=false;{initialize flag that we didn't load it}
	  WeStartedIt:=false;{initialize flag that we didn't start it}

	{--ver 1.2 fix, put all VD tool calls into block to execute only if loaded ok--}	  
	  if LoadVDTool then begin{load up the VD tool set if its not already loaded}
      	CtlColor:=GetKeyIndex;
	  	{Init. R,G,B ReDraw to what currently the card is set to}
			RReDraw:=VDKeyGetRCol;
			GReDraw:=VDKeyGetGCol;
			BReDraw:=VDKeyGetBCol;
		end;{--ver 1.2 fix, move all VD tool calls within this block--}
		UnLoadVDTool;{unload the toolset if we loaded it last}

      myWindOpen := false;
      
      {Initialize Values and pointers}
      

	  UpdateTime:=false;
	  ActivateTime:=false;


	  
	  StaySame640:=false;
	  ForceThisGrid:=true;
	  Itoggle:=true;
	  ActOrDeAct:=true;
	        
{Now Init Hand Cursor}
	Hand[1]:=18;{slices}
	Hand[2]:=4;{words wide}
	Hand[147]:=1;{hot spot (was 2)}
	Hand[148]:=6;
	
	StuffHex(@Hand[3],'0000000000000000');{START OF CURSOR IMAGE}
	StuffHex(@Hand[7],'0000F00000000000');
	StuffHex(@Hand[11],'000F0F0000000000');
	StuffHex(@Hand[15],'000F0F0000000000');
	StuffHex(@Hand[19],'000F0F0000000000');
	StuffHex(@Hand[23],'00FF0F0000000000');
	StuffHex(@Hand[27],'0F0F0FF0F0F00000');
	StuffHex(@Hand[31],'0F0F0F0F0F0F0000');
	StuffHex(@Hand[35],'0F0F0000000F0000');
	StuffHex(@Hand[39],'0F0F0000000F0000');
	StuffHex(@Hand[43],'0F000000000F0000');
	StuffHex(@Hand[47],'0F000000000F0000');
	StuffHex(@Hand[51],'0F000000000F0000');
	StuffHex(@Hand[55],'00F0000000F00000');
	StuffHex(@Hand[59],'00FFFFFFFF000000');
	StuffHex(@Hand[63],'00FFFFFF0F000000');
	StuffHex(@Hand[67],'00FFFFFFFF000000');
	StuffHex(@Hand[71],'0000000000000000');{END OF CURSOR IMAGE}
	
	StuffHex(@Hand[75],'0000F00000000000');{START OF CURSOR MASK}
	StuffHex(@Hand[79],'000FFF0000000000');
	StuffHex(@Hand[83],'00FFFFF000000000');
	StuffHex(@Hand[87],'00FFFFF000000000');
	StuffHex(@Hand[91],'00FFFFF000000000');
	StuffHex(@Hand[95],'0FFFFFF000000000');
	StuffHex(@Hand[99],'FFFFFFFFFFFF0000');
	StuffHex(@Hand[103],'FFFFFFFFFFFFF000');
	StuffHex(@Hand[107],'FFFFFFFFFFFFF000');
	StuffHex(@Hand[111],'FFFFFFFFFFFFF000');
	StuffHex(@Hand[115],'FFFFFFFFFFFFF000');
	StuffHex(@Hand[119],'FFFFFFFFFFFFF000');
	StuffHex(@Hand[123],'FFFFFFFFFFFFF000');
	StuffHex(@Hand[127],'0FFFFFFFFFFF0000');
	StuffHex(@Hand[131],'0FFFFFFFFFF00000');
	StuffHex(@Hand[135],'0FFFFFFFFFF00000');
	StuffHex(@Hand[139],'0FFFFFFFFFF00000');
	StuffHex(@Hand[143],'0FFFFFFFFFF00000');{END OF CURSOR MASK}

	HandPTR:=@Hand[1];




	
	

      end;
end; { of DAInit }
{-------------------------------------------------------------------------------

  NAME:        procedure MakeCtrls;

  PURPOSE:		Makes the controls for the NDA.		

  PASSED:		NONE

  RETURNED:		NONE

-------------------------------------------------------------------------------}
procedure MakeCtrls;

var   i,ll: 	integer;
      kk,CheckBox:	ptr;
begin


   CheckBox:=Pointer($02000000);
   ll:=0;

{--Do Buttons--}
   kk:=Pointer($00000000);{Button type control}
   
   SetRect(RectPtrX,58,131,0,0);
   Chandle[1]:=NewControl(myWindPtr,RectPtrX,'OK',129,0,0,100,kk,ll,nil);

   SetRect(RectPtrX,4,120,161,134);
   Chandle[2]:=NewControl(myWindPtr,RectPtrX,'Video/Graphics Mix',128,0,0,100,kk,ll,nil);

   SetRect(RectPtrX,4,137,161,151);
   Chandle[3]:=NewControl(myWindPtr,RectPtrX,'Video Adjust',128,0,0,100,kk,ll,nil);

   SetRect(RectPtrX,102,131,0,0);
   Chandle[4]:=NewControl(myWindPtr,RectPtrX,'OK',129,0,0,100,kk,ll,nil);

   SetRect(RectPtrX,11,131,0,0);
   Chandle[5]:=NewControl(myWindPtr,RectPtrX,'Cancel',128,0,0,100,kk,ll,nil);

{--Check Box Control for Pick from Screen--}
   SetRect(RectPtrX,12,103,0,0);
   chandle[12]:=NewControl(myWindPtr,RectPtrX,'Pick from Screen',128,0,0,0,CheckBox,ll,nil);


{--Aboutbox Button--}
   kk:=Pointer($00000000);
   SetRect(RectPtrX,58,131,0,0);
   Chandle[7]:=NewControl(myWindPtr,RectPtrX,'OK',129,0,0,100,kk,ll,nil);
     
  {DrawControls(myWindPtr);}
  DissLevel[0]:=0;
  DissLevel[1]:=5462;
  DissLevel[2]:=16384;
  DissLevel[3]:=27308;
  DissLevel[4]:=38230;
  DissLevel[5]:=49152;
  DissLevel[6]:=60075;
  DissLevel[7]:=65535;
   
   end; { of MakeCtrls }

{-------------------------------------------------------------------------------

  NAME:        procedure DrawTime;
  
  PURPOSE:     	Draws the text and the controls.

  PASSED:		NONE
  				(Note: SelectMode determines what to draw)

  RETURNED:		NONE

-------------------------------------------------------------------------------}
 procedure DrawTime;
 Var I,J:	Integer;

 begin

	if (ActivateTime=false) and (UpdateTime=false) then begin
		SetRect(RectPtrX,1,1,Width2,Height2);
		EraseRect(RectPtrX);
		end;
   
   Case SelectMode of

   	11:begin {Draw First Screen (Standard Colors Selection)}
 		
      	MoveTo(15,14);
   		DrawString('KEY COLOR         v1.3');
   		MoveTo (15,16);
   		LineTo (148,16);
   		SetRect(RectPtrX,3,2,162,117);
   		SetPenSize(4,2);
			
		FrameRect(RectPtrX);
		SetPenSize(1,1);   
   		DrawCgrid;
		StaySame640:=true;
   		DrawCSel(CtlColor);
		StaySame640:=false;
   		ShowControl(CHandle[2]);
   		ShowControl(CHandle[3]);
   		ShowControl(CHandle[12]);

      		end;
      	2:begin {Video/Graphics Mix Screen}
      	MoveTo(12,14);
   		DrawString('VIDEO/GRAPHICS MIX');
   		MoveTo (12,16);
   		LineTo (151,16); {draw underline}
   		MoveTo (22,27);
   		DrawString('Key            Non-Key');
   		MoveTo(53,41);
   		DrawString('Graphics');
   		MoveTo(64,119);
   		DrawString('Video');
   		j:=0;
   			For I:=0 to 6 do begin
   				MoveTo(SliderX1+18,SliderY1+6+J);
   				LineTo(SliderX1+23,SliderY1+6+J);
   				MoveTo(SliderX2-9,SliderY2+6+J);
   				LineTo(SliderX2-14,SliderY2+6+J);
   				j:=j+13;
   				end;

   	{---First determine dissolve value---}
		DissCancle1:=DissSave1;
		DissCancle2:=DissSave2;
		{determine new slider position}
   			j:=GetDissIndex(VDKeyGetKDiss);
            SlidePos1:=SliderY1+2+(j*13);
			
   		DrawSlider(0,SliderX1,SliderY1,SlidePos1);{init. the sliders}
		    j:=GetDissIndex(VDKeyGetNKDiss);
            SlidePos2:=SliderY2+2+(j*13);

   		DrawSlider(0,SliderX2,SliderY2,SlidePos2);

   		{Now draw the dark border}
   		SetRect(RectPtrX,3,2,162,152);
   		SetPenSize(4,2);
			
		FrameRect(RectPtrX);
		SetPenSize(1,1);   
      		ShowControl(CHandle[4]);
      		ShowControl(CHandle[5]);
      		end;
			
      	3:begin {Video Adjust Screen}
		if UpdateTime=false then begin
			
				Rsave:=VDKeyGetRCol;{first save key color}
				Gsave:=VDKeyGetGCol;
				Bsave:=VDKeyGetBCol;


				
		if WhichVMode<>0 then begin
			{Now see if we should select White or black as the key color}
			if (Rsave=-4096) and (Gsave=-4096) and (Bsave=-4096) then begin {is it white?}
				VDKeySetKCol($f000,$f000,$f000);{Set key color to white}
				DoWhite:=true;
			end else begin {it should be set to black}
				VDKeySetKCol(0,0,0);{Set key color to black}
				DoWhite:=false;
				end;
				
			end;{of WhichVMode}
		end;{of updatetime}

      	MoveTo(15,14);
   		DrawString('VIDEO ADJUST');
   		MoveTo (15,16);
   		LineTo (148,16);
   		MoveTo (19,98);
   		DrawString('Tint               Color');
   		SetRect(RectPtrX,3,2,162,152);
   		SetPenSize(4,2);
			
		FrameRect(RectPtrX);
		SetPenSize(1,1);
	{Now paint the control color rect}
		SetRect(RectPtrX,13,20,152,88);

   		if WhichVMode=0 then SetDithColor(GetKeyIndex);
		if WhichVMode<>0 then begin
			if DoWhite=true then SetDithColor(15) else SetDithColor(0);
			end;
		
   		PaintRect(RectPtrX); {paint the control color}
		
   		SetDithColor(0);
		if ActivateTime=false then begin
			UpArrow(0,ArrowHX,ArrowHY);{left up arrow}
			UpArrow(0,ArrowCX,ArrowCY);{right down arrow}
			DownArrow(0,ArrowHX,ArrowHY);{left down arrow}
			DownArrow(0,ArrowCX,ArrowCY);{right down arrow}
			end;
		if ActivateTime=false then
      			ShowControl(CHandle[1]);
      		end;{3}
			
			
      	77:begin {About Box}
		SetRect(RectPtrX,3,2,162,152);
   		SetPenSize(4,2);
			
		FrameRect(RectPtrX);
		SetPenSize(1,1);

      	MoveTo(13,14);
   		DrawString('Designed By: Dan,');
   		
   		MoveTo (13,24);
   		DrawString('Michael,and Eileen');
   		MoveTo (13,26);
   		LineTo (150,26);

   		MoveTo(13,37);
   		DrawString('Version: 1.3');
   		MoveTo (13,39);
   		LineTo (150,39);

   		MoveTo(13,50);
   		DrawString('Copyright 1988-91');
   		MoveTo(13,60);
   		DrawString('Apple Computer, Inc.');
   		MoveTo(13,62);
   		LineTo(148,62);
   		MoveTo(13,73);
		DrawString('Copyright 1987');
		MoveTo(13,83);
		DrawString('TML Systems, Inc.');
		MoveTo(13,93);
   		DrawString('Certain portions of');
   		MoveTo(13,103);
   		DrawString('this software are');
   		MoveTo(13,113);
   		DrawString('copyrighted by');
   		MoveTo(13,123);
   		DrawString('TML Systems, Inc.');
   		
   		ShowControl(CHandle[7]);
   		end; {of case 77}
      		
      	98:begin {Tool Error Screen (No Pokey card found)}
      		MoveTo(13,14);
   			DrawString('ERROR:');
   			MoveTo (13,16);
			LineTo(150,16);
   			MoveTo (13,26);
   			DrawString('No Card found');
   			end; {of case 99}

      		
      	99:begin {Tool Error Screen}
      		MoveTo(13,14);
   			DrawString('ERROR:');
   			MoveTo (13,16);
			LineTo(150,16);
   			MoveTo (13,26);
   			DrawString('TOOL033 not found or');
   			MoveTo(13,36);
   			DrawString('not enough memory.');
   			end; {of case 99}

    	end;
   		
   

end; {DrawTime}
{-------------------------------------------------------------------------------

  NAME:        	XXKeySetKDiss

  PURPOSE:     	Calls VDKeySetKDiss and remembers dissolve value at LastKDiss.
  
  PASSED:		KDissolve:	integer;	(dissolve value you want set at)

  RETURNED:		NONE

-------------------------------------------------------------------------------}
procedure XXKeySetKDiss(KDissolve: integer);
begin
	VDKeySetKDiss(KDissolve);
	LastKDiss:=VDKeyGetKDiss;
end;
{-------------------------------------------------------------------------------

  NAME:        	XXKeySetNKDiss

  PURPOSE:     	Calls VDKeySetNKDiss and remembers dissolve value at LastNKDiss.
  
  PASSED:		NKDissolve:	integer;	(dissolve value you want set at)

  RETURNED:		NONE

-------------------------------------------------------------------------------}
procedure XXKeySetNKDiss(NKDissolve: integer);
begin
	VDKeySetNKDiss(NKDissolve);
	LastNKDiss:=VDKeyGetNKDiss;
end;
{-------------------------------------------------------------------------------

  NAME:        (Main Program)

  PURPOSE:     (not needed for NDA's)

  PASSED:		NONE

  RETURNED:		NONE

-------------------------------------------------------------------------------}
begin

end.
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/VideoMix/VideoMix.NDA/PokeyUnit.Pii b/IIGS.601.SRC/A.U.G/VideoMix/VideoMix.NDA/PokeyUnit.Pii
new file mode 100644
index 0000000..ec36436
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/VideoMix/VideoMix.NDA/PokeyUnit.Pii
@@ -0,0 +1 @@
+unit PokeyUnit;
{$LongGlobals+}
interface
USES    QDIntf,
        GSIntf,
        MiscTools,
        ConsoleIO;
CONST
	xgridmin	=15;
	xwide		=67;
	xgridmax	=82;
	ygridmin	=20;
	ygridtall	=10; 

	GridLeft	=15;
	GridTop		=20;
	GridWidth	=67;
	GridTall	=10;
	Height1		=154;
	Width2		=165;
	Height2		=154;
	Height77	=154;
	Height99	=34;
	
	ArrowHX		=35;
	ArrowHY		=102;
	ArrowCX		=128;
	ArrowCY		=102;
	
	SliderX1	=29;
	SliderY1	=31;
	SliderX2	=127;
	SliderY2	=31;
	SldrLength	=91;
	SlideMin	=37;
	SlideMax	=117;

	InHueAdj	=9;
	InSatAdj	=10;
	AdjInc		=80;
	AdjDec		=81;
	AdjSave		=82;
	InterlaceMode	=203;
	Enable		=1;
	Disable		=0;
	
TYPE
	XColor =
		packed record
			case Integer of
				 0:(lowbyte:	signedbyte;
				    hibyte:	signedbyte);
				 1:(whole:	integer);
		end;
       

VAR 
	JustOpened:	 boolean;
	WeLoadedIt:	 boolean;
	WeStartedIt: boolean;
	ActOrDeAct:	 boolean;
	UpdateTime:	 boolean;
	ActivateTime:boolean;
	myWindOpen:  boolean;
	WantHand:	 boolean;
	IsHand:		 boolean;
	DoWhite:	 boolean;
	EscDefault:	 boolean;
	ForceThisGrid: boolean;
    myWind:      NewWindowParamBlk;
    myWindPtr:   WindowPtr;
    myWindColor: WindowColorTbl;
    Chandle:     array[1..18] of Controlhandle;
    Colors:      array[1..16] of rect;
    Disslevel:   array[0..7] of integer;
    DissSave1:   integer;
    DissSave2:   integer;
	DissCancle1: integer;
	Disscancle2: integer;
	LastKDiss:	 integer;
	LastNKDiss:	 integer;
	MMode:		 integer;
	MStatus:	 Integer;
    Color:       Xcolor;
    ii:	     	 integer;
	Curpalette:	 integer;
	MiniPalette: integer;
	CtlColor:    integer;
	RGB:		 integer;
	RedValue:	 integer;
	GreenValue:	 integer;
	BlueValue:	 integer;
	Rsave:		 integer;
	Gsave:	     integer;
	Bsave:	     integer;
	
	StaySame640: boolean;
	Rsave640:	 integer;
	Gsave640:	 integer;
	Bsave640:	 integer;
	CtlColor640: integer;
	RReDraw:	 integer;
	GReDraw:	 integer;
	BReDraw:	 integer;
	
	IToggle:	 boolean;
	
	SelectMode:  integer;
	XString:     string;
	LongOne:     longint;
	WhichVMode:  integer;
	LastVMode:	 integer;	
	
	FoundPart:	Integer;
	Bool:		boolean;
	MyPoly:		PolyHandle;
	MyPoly2:	PolyHandle;
  	Hand:		ARRAY[1..148] OF INTEGER;
  	HandPtr:	Cursorptr;
  	rectPtrX:   rect;
  	SlidePos1:	Integer;
  	SlidePos2:	Integer;
	
	
procedure 
	UpArrow(drawstate,PointX,PointY: integer);
 procedure 
 	DownArrow(drawstate,PointX,PointY: integer);
procedure
	DrawSlider(drawstate,PointX,PointY,SlideY: integer);
procedure
	DrawCGrid;
procedure
	DrawCSel(jj: integer);
procedure
	ToRGB(ColorEntry: integer);
function
 	GetDissIndex(DissValue: integer):integer;
function
	GetKeyIndex: integer;
function
	LoadVDTool: boolean;
procedure
	UnLoadVDTool;

{-------------------------------------------------------------------------------}
procedure
	VDStartUp;												tool 33,2;
procedure
	VDShutDown;												tool 33,3;
function
	VDStatus: boolean;										tool 33,6;
procedure	
	VDKeySetKCol(RedValue,GreenValue,BlueValue: integer); 	tool 33,15;
function
	VDKeyGetRCol: integer;									tool 33,16;
function
	VDKeyGetGCol: integer;									tool 33,17;
function
	VDKeyGetBCol: integer;									tool 33,18;
procedure
	VDKeySetKDiss(KDissolve: integer);						tool 33,19;
function
	VDKeyGetKDiss: integer;									tool 33,20;
procedure
	VDKeySetNKDiss(KDissolve: integer);						tool 33,21;
function
	VDKeyGetNKDiss: integer;								tool 33,22;
procedure
	VDGGControl(Selector,GGCtrlVAlue: integer); 			tool 33,29;
procedure 
	VDInConvAdj(Selector,AdjFunction: integer);				tool 33,12;




{---------------------------------------------------------------}
implementation
{-------------------------------------------------------------------------------

  NAME:        UpArrow

  PURPOSE:     	Draws an up arrow control

  PASSED:		Drawstate:	integer;	(0=draw the complete arrow
  										 1=just draw the outline)
				PointX:		integer;	(X point of were to draw arrow)
				PointY:		integer;	(Y point of were to draw arrow)

  RETURNED:		NONE

-------------------------------------------------------------------------------}

 procedure UpArrow(drawstate,PointX,PointY: integer);
 
 begin 
 	If drawstate=0 then begin
		{This draws the arrow}
 		myPoly:=OpenPoly; 	
   		MoveTo(PointX,PointY); {top point}
   		LineTo(PointX-10,PointY+5); {down left slope}
   		LineTo(PointX-5,PointY+5); {under}
   		LineTo(PointX-5,PointY+10); {bar down}
   		LineTo(PointX+5,PointY+10); {across bottom}
   		LineTo(PointX+5,PointY+5); {bar up}
   		LineTo(PointX+10,PointY+5); {under right side}
   		LineTo(PointX,PointY); {back to starting point}
   		ClosePoly;
 		PaintPoly(MyPoly);
   		KillPoly(MyPoly);
   		end;
{This draws the outline part}
 	if drawstate=1 then myPoly:=OpenPoly; 	
   	MoveTo(PointX-15,PointY+11); {far bottom left line}
   	LineTo(PointX-15,PointY+2);
   	LineTo(PointX-7,PointY-2);
   	LineTo(PointX+7,PointY-2);{across top}
   	LineTo(PointX+15,PointY+2);
   	LineTo(PointX+15,PointY+11);
    	if drawstate=1 then begin
    		ClosePoly;
 		InvertPoly(MyPoly);
   		KillPoly(MyPoly);
   		end;
  	
   

end; {of UpArrow}
{-------------------------------------------------------------------------------

  NAME:        DownArrow

  PURPOSE:     	Draws a down arrow.

  PASSED:		Drawstate:	integer;	(0=draw the complete arrow
  										 1=just draw the outline)
				PointX:		integer;	(X point of were to draw arrow)
				PointY:		integer;	(Y point of were to draw arrow)

  RETURNED:		NONE

-------------------------------------------------------------------------------}

 procedure DownArrow(drawstate,PointX,PointY: integer);
 
 begin 
 	PointY:=PointY+22; {offset from up arrow coordinates}
 	If drawstate=0 then begin
		{This draws the arrow}
 		myPoly:=OpenPoly; 	
   		MoveTo(PointX,PointY); {top point}
   		LineTo(PointX-10,PointY-5); {down left slope}
   		LineTo(PointX-5,PointY-5); {under}
   		LineTo(PointX-5,PointY-10); {bar down}
   		LineTo(PointX+5,PointY-10); {across bottom}
   		LineTo(PointX+5,PointY-5); {bar up}
   		LineTo(PointX+10,PointY-5); {under right side}
   		LineTo(PointX,PointY); {back to starting point}
   		ClosePoly;
 		InvertPoly(MyPoly);
   		PaintPoly(MyPoly);
   		end;
{This draws the outline part}
 	if drawstate=1 then myPoly:=OpenPoly; 	
   	MoveTo(PointX-15,PointY-11); {far bottom left line}
   	LineTo(PointX-15,PointY-2);
   	LineTo(PointX-7,PointY+2);
   	LineTo(PointX+7,PointY+2);{across top}
   	LineTo(PointX+15,PointY-2);
   	LineTo(PointX+15,PointY-11);
    	if drawstate=1 then begin
    		ClosePoly;
 		InvertPoly(MyPoly);
   		KillPoly(MyPoly);
   		end;
  	
end; {of DownArrow}
{-------------------------------------------------------------------------------

  NAME:        DrawSlider

  PURPOSE:     	Draws the slider control.

  PASSED:		Drawstate:	integer;	(0=init. the slider
  										 1=just draw the slide indicator
										 2=erase the old and draw the new indicator
										 3=draw drag of indicator
										 4=erase drag of indicator)
				PointX:		integer;	(X point of were to draw slider)
				PointY:		integer;	(Y point of were to draw slider)
				SlideY:		integer;	(indicator Y-value)

  RETURNED:		NONE

-------------------------------------------------------------------------------}

 procedure DrawSlider(drawstate,PointX,PointY,SlideY: integer);
 Var PM: Integer;
 label 99;
 begin 
{Draw the slide bar}
{NOTE: DrawState=0 init. slider, =1 just draw slider, =2 just draw slider, =3 draw drag, =4 erase drag}
99:Case DrawState of

   	0:begin {Initilization}

	{Draw the center dark part}
		SetRect(RectPtrX,PointX,PointY,PointX+10,PointY+SldrLength);
		PaintRRect(RectPtrX,6,6);
   		SetRect(RectPtrX,PointX-4,PointY-2,PointX+14,PointY+SldrLength+2);
   		FrameRRect(RectPtrX,8,8);
   		DrawState:=1; {so will draw slide also}
   		goto 99;
		end; {of case 0}
		
	1: begin {Just draw slider indicator}
	
	{Draw the slide part (first the outside box)}
   		SetDithColor(15);
   		SetRect(RectPtrX,PointX-6,SlideY,PointX+16,SlideY+8);
   		PaintRect(RectPtrX);{paint it white}
   		SetDithColor(0);
   		FrameRect(RectPtrX);
   	{Now the inside box}
		SetDithColor(15);
   		SetRect(RectPtrX,PointX-8,SlideY+2,PointX+18,SlideY+6);
   		PaintRect(RectPtrX);
   		SetDithColor(0);
   		FrameRect(RectPtrX);
   		end; {of case 1}
   		
   	2: begin {Erase slide indicator}
	{Erase the whole thing at once}
   		SetDithColor(15);
   		SetRect(RectPtrX,PointX-8,SlideY,PointX+18,SlideY+8);
   		PaintRect(RectPtrX);{paint it white}
   		SetDithColor(0);
   		
   	{Now reconstruct the inside part}
   		MoveTo(PointX-4,SlideY);
   		LineTo(PointX-4,SlideY+7);
   		MoveTo(PointX+13,SlideY);
   		LineTo(PointX+13,SlideY+7);
   		SetRect(RectPtrX,PointX,SlideY,PointX+10,SlideY+8);
   		PaintRect(RectPtrX);
  		end; {of case 2}
  	
  	3: begin {draw drag}
  	   	PM:=2; 
  	   	SetDithColor(15);
  		SetPenMode(PM);{set pen to modeXOR}
   		SetRect(RectPtrX,PointX-6,SlideY,PointX+16,SlideY+8);
   		FrameRect(RectPtrX);
   		SetRect(RectPtrX,PointX-8,SlideY+2,PointX+18,SlideY+6);
   		FrameRect(RectPtrX);
   		SetDithColor(0);
  		SetPenMode(0);{set pen to modeCopy}
  		end; {of case 3}
  		
   	
   	end; {of case}
end; {of DrawSlider}


{-------------------------------------------------------------------------------

  NAME:        procedure DrawCGrid;

  PURPOSE:     	Draws the color grid.

  PASSED:		NONE

  RETURNED:		NONE

-------------------------------------------------------------------------------}

 procedure DrawCGrid;
 
 var i,j,k,l:	integer;
 
 begin
   
   {*Do Color Grid*}
   i:=1;
   for j:=0 to 1 do begin
   for k:=0 to 7 do begin
   
   	SetRect(Colors[i],GridLeft+j*GridWidth,GridTop+k*GridTall
   	     ,GridLeft+GridWidth+j*GridWidth,GridTop+GridTall+k*GridTall);
 	l:=i-1;
   	SetDithColor(l); {set the interior color}
   	SetDithColor(l);{just to make sure}
   	PaintRect(Colors[i]); {paint the interior color}
   	
   {	SetDithColor(0); }{first frame it in black}
  {	FrameRect(Colors[i]); }{draw the frame}
   	i:=i+1;	
   	end;
   	end;
   SetDithColor(0);
   SetRect(RectPtrX,GridLeft,GridTop
        ,GridLeft+2*GridWidth,GridTop+8*GridTall);
   FrameRect(RectPtrX);
end; {of DrawCGrid}


{-------------------------------------------------------------------------------

  NAME:        procedure DrawCSel;

  PURPOSE:     	Draws the color grid selector rectangle.

  PASSED:		jj:	integer;	(which grid you want selected)

  RETURNED:		NONE

-------------------------------------------------------------------------------}
 procedure DrawCSel(jj:integer);
 label 999,888;
 var i,j,k,L:		integer;
 	myLongInt:	longInt;
	y:			integer;
	myPoint:	point;

 
 begin
{first erase the old selector}
 	i:=CtlColor+1; {get old selected color}
 	k:=(CtlColor mod 8);
 	if i< 9 then j:=0 else j:=1;
   	SetRect(Colors[i],GridLeft+j*Gridwidth,GridTop+k*GridTall
   	     ,GridLeft+GridWidth+j*GridWidth,GridTop+GridTall+k*GridTall);
   	SetDithColor(i-1); {set the interior color}
   	PaintRect(Colors[i]); {paint the interior color}
   	SetDithColor(0);
   	SetRect(RectPtrX,GridLeft,GridTop,GridLeft+GridWidth+GridWidth,GridTop+8*GridTall);
   	FrameRect(RectPtrX);


{Now draw the new selected frame}
{However, check to see that the Key color is indeed the selected grid color}
	k:=GetKeyIndex; {determine key index}
	
	WhichVMode:=BitAnd(GetMasterSCB,$0080);{get video mode}

{Calculate which SCB corresponds to the selected grid of the DA}
			MyPoint:=Point(GetContentOrigin(myWindptr));
			LocalToGlobal(MyPoint);
			y:=MyPoint.v;
			y:=y+GridTop+5+((jj mod 8)*GridTall);
			if y>199 then y:=199;{incase its off the bottom of the screen}
			y:=GetSCB(y);
			y:=BitAnd(y,$000f);
			

	if WhichVMode<>LastVMode then {in case we just switched video modes}
		begin
			StaySame640:=false;
			CtlColor640:=-1;
			ForceThisGrid:=false;
			end;
{First check if in 640 mode and that the key color has indeed changed, else use same grid}	
	if ((WhichVMode<>0) and StaySame640) then begin
		if ((Rsave640=VDKeyGetRCol) and (Gsave640=VDKeyGetGCol) and (Bsave640=VDKeyGetBCol)) then
			begin
				
				if CtlColor640>=0 then begin {if was valid and indicated last time}
					
					jj:=CtlColor640;
					
					{Now make sure the pallettes actual color didnt change}
					ToRGB(GetColorEntry(y,MiniPalette));
					if ((RedValue=Rsave640) and (GreenValue=Gsave640) and (BlueValue=Bsave640)) then
						goto 888 else ForceThisGrid:=false;
						
					end;
			end;
		end;
		

			if (WhichVMode=0) and (RGB<>GetColorEntry(y,jj)) then {320 mode}
				begin
					for L:=0 to 16 do begin
						if L=16 then begin  goto 999; end;
						if RGB=GetColorEntry(y,L) then leave;
						end;{of do}
					jj:=L;
				end;
			if ((WhichVMode<>0) and ((CurPalette<>y) or (ForceThisGrid=false))) then {640 mode}
			begin
				CtlColor640:=-1;{default incase we dont find color}
				for L:=7 downto -1 do begin
					if L<0 then goto 999; 
 					if RGB=GetColorEntry(y,L) then  leave;
				
					end;{of for loop}
 				
					case L of
						7:jj:=15;
						6:jj:=14;
						5:jj:=1;
						4:jj:=0;
						3:jj:=15;
						2:jj:=8;
						1:jj:=4;
						0:jj:=0;
						end;{of case}
				end;{of 640}
			
	
888:i:=jj+1; {get new selected color}
	k:=(jj mod 8);
	if i < 9 then j:=0 else j:=1;
   	SetDithColor(0); {now set color to black}
 	SetRect(Colors[i],GridLeft+j*Gridwidth,GridTop+k*GridTall
 	     ,GridLeft+GridWidth+j*GridWidth,GridTop+GridTall+k*GridTall);  	FrameRect(Colors[i]); {draw the frame}
  	
    SetDithColor(15); {now set color to white}
   	SetRect(Colors[i],21+j*55,71+k*10,74+j*55,79+k*10);
 	SetRect(Colors[i],GridLeft+1+j*Gridwidth,GridTop+1+k*GridTall
 	     ,GridLeft-1+GridWidth+j*GridWidth,GridTop-1+GridTall+k*GridTall);  	FrameRect(Colors[i]); {draw the frame}
  	FrameRect(Colors[i]); {draw the frame}
 	SetDithColor(0); {now set color back to black}
  	CtlColor:=jj;
	
	{---This fixes the problem with 640 mode changing the selected color grid---}
	CtlColor640:=jj;
	Rsave640:=VDKeyGetRCol;
	Gsave640:=VDKeyGetGCol;
	Bsave640:=VDKeyGetBCol;
999:
	ForceThisGrid:=false;
	LastVMode:=WhichVMode;
 end; {of DrawCSel}
 
{-------------------------------------------------------------------------------

  NAME:        procedure ToRGB;

  PURPOSE:     	Breaks up the color into RedValue, GreenValue, BlueValue.

  PASSED:		ColorEntry:	Integer;	(RGB color you want taken apart)

  RETURNED:		NONE

-------------------------------------------------------------------------------}
 procedure ToRGB(ColorEntry: integer);
 
 var i,j:	integer;

 
 begin
  	j:=ColorEntry;
 	for i:=1 to 4 do j:=BitSL(j);
 	RedValue:=BitAnd(j,$f000);
 	for i:=1 to 4 do j:=BitSL(j);
 	GreenValue:=BitAnd(j,$f000);
 	for i:=1 to 4 do j:=BitSL(j);
 	BlueValue:=BitAnd(j,$f000);

 end; {of ToRGB}
{-------------------------------------------------------------------------------

  NAME:        function GetDissIndex: integer;

  PURPOSE:     	To determine the dissolve level index.
  
  PASSED:		DissValue:	integer;	(dissolve value you want to lookup)

  RETURNED:		integer;	(the looked up dissolve index 0-6)

-------------------------------------------------------------------------------}
 function GetDissIndex(DissValue: integer): integer;
 
 begin
	if (DissValue>=0) and (DissValue<5462) then GetDissIndex:=0;
	if (DissValue>5461) and (DissValue<16384) then GetDissIndex:=1;
	if (DissValue>16383) and (DissValue<27308) then GetDissIndex:=2;
	if (DissValue>27307) and (DissValue<=32767) then GetDissIndex:=3;
	if (DissValue<-27305) and (DissValue>=-32767) then GetDissIndex:=3;
	if (DissValue>-27307) and (DissValue<-16384) then GetDissIndex:=4;
	if (DissValue>-16385) and (DissValue<-5461) then GetDissIndex:=5;
	if (DissValue>-5462) and (DissValue<=-1) then GetDissIndex:=6;
	
 end;


{-------------------------------------------------------------------------------

  NAME:        function GetKeyIndex: integer;

  PURPOSE:    	Gets the current key colors index into palette
  
  PASSED:		NONE

  RETURNED:		integer;	(determines index)

-------------------------------------------------------------------------------}
 function GetKeyIndex: integer;
 
 var i,R,G,B:	integer;

 begin
	R:=VDKeyGetRCol;
	G:=VDKeyGetGCol;
	B:=VDKeyGetBCol;
	for i:=0 to 3 do begin
		R:=BitSR(R);
		G:=BitSR(G);
		B:=BitSR(B);
		end;
	for i:=0 to 3 do G:=BitSR(G);
	for i:=0 to 7 do B:=BitSR(B);
	RGB:=BitOR(R,G);
	RGB:=BitOR(RGB,B);
	WhichVMode:=BitAnd(GetMasterSCB,$0080);{get video mode}
	{Now scan palette for key color}
	if WhichVMode=0 then begin {if 320 mode}
		for i:=15 downto 0 do
 			if RGB=GetColorEntry(Curpalette,i) then leave;
 		GetKeyIndex:=i;
 		end{of 320 mode}
 	else begin {of 640 mode}
 		for i:=7 downto 0 do 
			
 				if RGB=GetColorEntry(Curpalette,i) then leave;
				
			
			
			case i of
			7:GetKeyIndex:=15;
			6:GetKeyIndex:=14;
			5:GetKeyIndex:=1;
			4:GetKeyIndex:=0;
			3:GetKeyIndex:=15;
			2:GetKeyIndex:=8;
			1:GetKeyIndex:=4;
			0:GetKeyIndex:=0;
			end;{of case}
			
 		end;{of 640 mode}
 end;{of GetKeyIndex}
 
{-------------------------------------------------------------------------------

  NAME:        function LoadVDTool;

  PURPOSE:     	Loads the Video I/O interface toolset (It will only load and
  				start the toolset if its not already there)
  
  PASSED:		NONE

  RETURNED:		boolean			;true if no errors loading
  								;false if error occured with loadonetool

-------------------------------------------------------------------------------}
 function LoadVDTool: boolean;
 
 var TLError:	integer;
 	 StatusVD:	boolean;
 begin
 
 	LoadVDTool:=true; {assume its going to load correctly}
	WeLoadedIt:=false; 
	WeStartedIt:=false; {assume we didnt start it}
	
 	{First check to see if the tool has already been loaded and started}
	StatusVD:=VDStatus;
	if IsToolError then begin {if any error, then no tool, so lets load it up}
		TLError:=ToolErrorNum;{get error number}
		
		loadonetool(33,0);{load the Video I/O interface toolset}
		if IsToolError then begin
				SelectMode:=99; {no tool or not enough memory}
				LoadVDTool:=false;
			end else begin
			WeLoadedIt:=true;
			end;{of else}
		end;{of not tool, lets load}
	StatusVD:=VDStatus;
	if IsToolError=false then begin
		if StatusVD=false then begin {if tool not started, then start it up}
			TLError:=0;
			VDStartUp;{start up the tool}
			if IsToolError then begin
				TLError:=ToolErrorNum;
				LoadVDTool:=false;{--ver 1.2 fix--}
				if TLError=$2110 then SelectMode:=98;{no pokey card found in system}
				end;{of IsToolError}
			if TLError=0 then WeStartedIt:=true;
			end;{of StatusVD=false}
		end;{of IsToolError of VDStatus}

	end;{of LoadVDTool}
{-------------------------------------------------------------------------------

  NAME:        procedure UnLoadVDTool;

  PURPOSE:     	Unloads the Video I/O interface toolset
  
  PASSED:		NONE

  RETURNED:		NONE

-------------------------------------------------------------------------------}
 procedure UnLoadVDTool;
 
 var TLError:	integer;
 	 StatusVD:	boolean;
 begin
 	if WeStartedIt then begin {only shut down if we started it}
		VDShutDown;
		WeStartedIt:=false;
		end;{of if WeStartedIt}
		
 	if WeLoadedIt then begin {only unload if we loaded the tool}
		StatusVD:=VDStatus;{get status of toolset}
		If IsToolError=false then Unloadonetool(33);{Unload Video I/O interface toolset}
		WeLoadedIt:=false;
	end;{of WeLoadedIt}
 end;{of UnLoadVDTool}

end.
\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/VideoMix/VideoMix.NDA/VideoMixNDA.rii b/IIGS.601.SRC/A.U.G/VideoMix/VideoMix.NDA/VideoMixNDA.rii
new file mode 100644
index 0000000..986d61d
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/VideoMix/VideoMix.NDA/VideoMixNDA.rii
@@ -0,0 +1 @@
+/*--------------------------------------------------------------*/
/*	resources for MediaCtrlNDA				by: Dan Hitchens	*/
/*--------------------------------------------------------------*/


#include "Typesiigs.r"

resource rVersion(1, $0000) {
	{ 
	  $1,				/* major version in BCD */
	  $3,				/* minor version in BCD */
	  $0,				/* bug version		    */
	  release,
	  $00,				/* # */
	 },
	verUS,
	"VideoMix NDA",
	"Copyright 1988-91, Apple Computer, Inc."
};

resource rComment(1, $0000) {
	"VideoMix NDA"
	"\$0d"
	"\$0d"
	"By Dan Hitchens "
	"\$0d"
	"\$0d"
	"\$0d"
	"Quality assured by Margarita Sang "
	"\$0d"
};

\ No newline at end of file
diff --git a/IIGS.601.SRC/A.U.G/VideoMix/VideoMix.NDA/makefile b/IIGS.601.SRC/A.U.G/VideoMix/VideoMix.NDA/makefile
new file mode 100644
index 0000000..b66ff76
--- /dev/null
+++ b/IIGS.601.SRC/A.U.G/VideoMix/VideoMix.NDA/makefile
@@ -0,0 +1 @@
+Objects =		¶
				PokeyUnit.pii.aii.obj 	¶
				PokeyNDA.pii.aii.obj


VideoMix.NDA			Ä	  {Objects} ¶
							VideoMixNDA.rii
	linkiigs	PokeyNDA.pii.aii.obj ¶
				PokeyUnit.pii.aii.obj ¶
		-lib "{PIIGSLibrary}"PIIGSRuntime.obj ¶
		-o VideoMix.NDA -t $B8
	reziigs VideoMixNDA.rii -o VideoMixNDA.res
	duplicate -r -y VideoMixNDA.res VideoMix.NDA




.pii.aii.obj				Ä	.pii	
	TMLPascal {default}.pii
	TMLClean -p {default}.pii.aii -o {default}.cpii.aii
	Rename -y {default}.cpii.aii {default}.pii.aii
	asmiigs {default}.pii.aii


.usym						Ä	.pii
	TMLPascal {default}.pii

.aii.obj					Ä	.aii
	asmiigs {default}.aii



\ No newline at end of file
diff --git a/IIGS.601.SRC/BASIC.SYSTEM/BASIC.SYSTEM b/IIGS.601.SRC/BASIC.SYSTEM/BASIC.SYSTEM
new file mode 100644
index 0000000..7143839
Binary files /dev/null and b/IIGS.601.SRC/BASIC.SYSTEM/BASIC.SYSTEM differ
diff --git a/IIGS.601.SRC/BASIC.SYSTEM/BLaunch.aii b/IIGS.601.SRC/BASIC.SYSTEM/BLaunch.aii
new file mode 100644
index 0000000..b0b2c79
--- /dev/null
+++ b/IIGS.601.SRC/BASIC.SYSTEM/BLaunch.aii
@@ -0,0 +1 @@
+
*************************************************************************************************
*                                                                                               *
* NOTE: As of System Software 6.0, BASIC.LAUNCHER is obsolete & not shipped.   28-Oct-92 DAL    *
*                                                                                               *
*************************************************************************************************


*************************************************************************************************
*
* Apple IIgs BASIC LAUNCHER
*
* by Steven Glass
*
* modifications by Greg Branche
*
* Copyright (C)
* Apple Computer Inc., 1986-1988
* All Rights Reserved
*
* Version 2.1
*
*
* Change History
*
* Version 1.0		First Release
*
* Version 2.0		7 July 1987			SEG
*
* Version 2.1		22 December 1988	GAB
*				Converted source code from APW to MPW MAX
*				Optimized code wherever possible
*				Removed support for Program Launcher (old way)
*					(Launcher now only supports the Finder
*					 and the message center.)
* Version 2.1		23 May 1989			GAB		(for real, this time)
*				Rearranged program's data so that the name of the interpreter to load
*				is in a static location within the file.  This makes it possible to
*				patch the name so that this can support more than just BASIC.SYSTEM.
*				This is also the first official "projectorized" version.
*
*	Basic.Launcher receives control from a launching program, such as the Finder.
*	It checks the message center for a filename passed from the launcher.  If a filename
*	is found, the interpreter (Basic.System) is loaded, the filename is copied to the
*	interpreter, and then the interpreter is loaded.  If no filename is found in the message
*	center, or if the loaded interpreter does not support the passing of a startup filename,
*	an appropriate message is displayed on the screen, and then a P8 QUIT is performed to
*	return control back to the launching program.
*
*************************************************************************************************

*************************************************************************************************
*
* BASIC.LAUNCHER
*
* This is a program which runs BASIC.SYSTEM on the boot volume
* and puts the name of a BASIC program to be run at $2006.
* This works because long ago, Dale Arends and I worked out
* this scheme for telling interpreters to run programs.  It
* works as follows.
*
*	   1) An interpreter that follows these rules starts
*		  with a jmp instruction (opcode $4C).
*	   2) An interpreter that follows these rules has
*		  $EE at $2003 and $2004.
*	   3) An interpreter that follows these rules has
*		  a size byte at $2005.  This size byte describes
*		  how many of the following bytes can be used
*		  to hold a pathname.  (For BASIC.SYSTEM version 1.1
*		  this number is $41.)
*
* BASIC.LAUNCHER works closly with the Finder to
* get information about the program to be run.	The finder uses the message
* center.
*
* The BASIC.LAUNCHER first checks the message center.  If the
* file name is there we go on.	If the file name is not in the
* message center, we quit.
*
* Going On.
*
* Once deciding that we have a file, BASIC.LAUNCHER loads BASIC.SYSTEM
* from the boot volume and puts the pathname of the BASIC program to run
* at $2006.  It then jumps to $2000.
*
* Twice it makes sure that the correct disk is on line.  First,
* before loading BASIC.SYSTEM it makes sure the boot volume
* is on line.  If it is not on line, the insert disk message
* will appear.	This is unlikely since BASIC.LAUNCHER must be
* run from the system disk.
*
* Finally, just before jumping to $2000, we make sure the volume
* containing the BASIC program to be run is on line.  The insert
* disk message is more likely to be shown here.
*
*************************************************************************************************


;-----------------------------------------------
;
;	Forward addresses and entries
;
;-----------------------------------------------

				Entry	Launcher
				ENTRY	DoIt
				entry	proglen
				
;------------------------------------------
;
; Equates from procedure BLaunch
;
;------------------------------------------

True			equ	$8000
False			equ	$0000
Signature		equ	$010104
BootVolume		equ	$010108
BasicPath		equ	$010126
MsgHandle		equ	$0
MsgPtr			equ	$4
UserID			equ	$8
MyPath			equ	$0280
InterpStart		equ	$2000
InterpSig		equ	$2003
InterpMaxLen	equ	$2005
InterpName		equ	$2006

;------------------------------------------
;
; Equates from procedure GlobalData
;
;------------------------------------------

VolNotFound		equ $45
	
;------------------------------------------
;absaddr on

			PRINT	NOGEN
			PRINT	NOSYM

			INCLUDE 'BLaunch.macros'

			longa off
			longi off

; org		$2000

BLaunch 	PROC	org $2000
;using GlobalData
			
;-----------------------------------------------------
;
; Switch to 16 bit mode and move everything to $900
;
			
			native
			
			lda		#proglen-Launcher-1
			ldx		#endmove			;address of DOIT in memory
			ldy		#Launcher			;execution address
			mvn		0,0					;move main routines down in memory
			jmp		DoIt				;then go do it!

			org		$2020-BLaunch		;offset to $2020 for .SYSTEM filename
endmove		equ		*

			ENDP



****************************************************************
*
* Launcher - code module that does all the actual work
*		This gets moved to $803 in memory and is executed there
*
****************************************************************

; org		$900

			EXPORT	Launcher		
Launcher	PROC	temporg $0900		;this get's moved to $900

****************************************************************
*
* GlobalDATA
*
****************************************************************

GlobalData

BasicName	str		'BASIC.SYSTEM'	; By placing this here, it's possible to patch the name
;									; so that this code can be used for other .SYSTEM programs
;									; that adhere to the pathname passing conventions
			ds.b	3				; (allow enough space for a complete filename)

BVolume 	DS.B 	18 				; volume name for disk containing
;									; basic.system

BPath		DS.B 	65 				; Name of basic program to run
;

BSPath		DS.B 	36 				; path name of BASIC.SYSTEM on
;									; boot volume.

PVolume 	DS.B 	18

OpenParams	DC.B	3
			DC.W	BSPath
			DC.W	$2000-$400
OpenID		DS.B 	1

ReadParams	DC.B	4
ReadID		DS.B 	1
			DC.W	$2000
			DC.W	$BEFF-$2000
			DS.B 	2

CloseParams DC.B	1
CloseID 	DS.B 	1


GFIParams	DC.B	10
			DC.W	PVolume
			DS.B	1					; access
			DS.B	1					; file type
			DS.B	2					; aux type
			DS.B	1					; storage type
			DS.B	2					; blocks used
			DS.B	2					; mod date
			DS.B	2					; mod time
			DS.B	2					; cre date
			DS.B	2					; cre time

PrefixParams
			DC.B	1
			DC.W	BPath

;					 123456789012345678901234567 	; 27
Sorry1		str		'You cannot run this program'
Sorry2		str		'directly.'

Sorry3		str		'App. does not support'
Sorry4		str		'passing of second filename.'

But1		str		'Press RETURN'
But2		str		' '

MsgLine 	str		'Insert the disk:'
OKBut		str		'RETURN to accept'
CancelBut	str		'ESC to cancel'

			Entry	DoIt
DoIt			
			jsr		CheckForMsg			; check for a message in the message center
			bcc		GotAMessage			; got one!
			
BadSig
			ldx		#Sorry1				; get addresses of strings into X and Y
			ldy		#Sorry2
			jmp		CannotDoIt			; else display error message
			
GotAMessage
			jsr		CreateMsgNames		; go get the program name from the message center

;-----------------------------------------------------
;
; Now create the path name for BASIC.SYSTEM.
;
			emulation
			ldx		BSPath
			lda		#'/'
			cmp		BSPath,x
			beq		LastIsSlash
			inx
			sta		BSPath,x
			stx		BSPath
LastIsSlash
			lda		BasicName		; get the length of the SYS filename
			tay						; save as index to end of name
			clc
			adc		BSPath			; add to length of volume name
			sta		BSPath			; and set it
			tax						; use this as index to full pathname
NameLoop
			lda		BasicName,y		; get a character
			sta		BSPath,x		; and copy to full pathname
			dex						; fix indexes
			dey
			bne		NameLoop		; loop until name is copied

NameMoved

;--------------------------------------------------------
;
; Now we have constructed the path name for BASIC.SYSTEM
; So we open the file and read it in. 
;

			OPEN	OpenParams
			bcs		leapFrog		; this "leapfrogs" to GiveUp
			lda		OpenID
			sta		ReadID
			sta		CloseID

			READ	ReadParams		; read
			php						; save error state
			pha
			CLOSE	CloseParams
			pla
			plp						; don't care about error state of
leapFrog
			bcs		GiveUp			; close so look at read error

;-----------------------------------------------------
;
; Now lets look at the interpreter we just loaded.
;
			lda		InterpStart
			cmp		#$4C
			bne		BadInterp

			lda		#$ee			; $EE = signature byte
			cmp		InterpSig		; compare to first byte
			bne		BadInterp		; oops!
			cmp		InterpSig+1
			bne		BadInterp

			lda		InterpMaxLen
			cmp		BPath
			bcs		PathOK

BadInterp
			native
			ldx		#Sorry3					;get addresses of strings
			ldy		#Sorry4
			jmp		CannotDoIt

			longa	off
			longi	off

PathOK
;---------------------------------------------------------
;
; Everything is ok so put the path name into interpreter
;
			ldx		BPath
BNameLoop	lda		BPath,x
			sta		InterpName,x
			dex
			bpl		BNameLoop


;-----------------------------------------------------
;
; Finally, we have to make sure that the volume
; containing the BASIC program is on line.
;
			jsr		CheckForDrive
			bcs		GiveUp

;----------------------------------------------------
;
; Now I have to set the prefix to the directory in
; question.
			ldx		BPath
SlashLoop	lda		BPath,x
			cmp		#'/'
			beq		FoundSlash
			dex
			bne		SlashLoop
			bra		GiveUp

FoundSlash	dex
			stx		BPath

; must shut down the tool sets that we started

			native						;into native mode for tool calls
			pei		UserID				;shut down the memory manager
			_MMShutDown
			
			_TLShutDown					;then shut down the tool locator
			
			emulation					;insure emulation mode

			SetPrefix PrefixParams
			bcs		GiveUp
			jmp		InterpStart


GiveUP
			jsr		$BF00
			DC.B	$65
			DC.W	QParams


QParams		DC.B	4
			DS.B	8

;---------------------------------------------------------
; CannotDoIt - displays pseudo dialog box with error message
;	Entry is in full native mode, The addresses of the
;	error message strings are passed in X (string 1) and
;	Y (string 2).
;
;	The subroutine does not return
;

CannotDoIt
			longa	on
			longi	on

			pha							;space for returned value
			pea		0
			phx							;push address of first string
			pea		0
			phy							;push address of second string
			PushLong #But1
			PushLong #But2
			_TLTextMountVolume

			pla

			emulation
			bra		GiveUp

****************************************************************
*
* CheckForDrive
*
* This routine is entered and exited in emulation mode.
*
* The carry flag is used to signal if the disk can be found.
*
****************************************************************

CheckForDrive
;using GlobalData

			lda		BPath
			sta		PVolume
			lda		BPath+1
			sta		PVolume+1
			lda		BPath+2
			sta		PVolume+2
			
			ldx		#3
MoreLetters lda		BPath,x
			cmp		#'/'
			beq		LastSlash
			sta		PVolume,x
			inx
			bra		MoreLetters

LastSlash	sta		PVolume,x
			stx		PVolume

LookForDisk
			emulation

			GetFileInfo GFIParams
			bcc		DoIt1

			cmp		#VolNotFound
			bne		GiveUp1

			native							;switch to native mode

			PushWord #0
			PushLong #MsgLine
			PushLong #PVolume
			PushLong #OKBut
			PushLong #CancelBut
			_TLTextMountVolume

			pla
			cmp		#1
			beq		LookForDisk


GiveUp1		sec						; return with error

DoIt1
			php

			emulation

			plp
			rts

*****************************************************************
*
* CheckForMsg
*
* Finds out if there is a finder message in the message
* center.
*
* Returns carry set if there is not, clear if there is.
*
* Handle to message is in MsgHandle.
*
* Mode:  Entry--Full Native
*		 Exit --Full Native
*
*****************************************************************

CheckForMsg
;using GlobalData

			longa	on
			longi	on
			
			_TLStartUp				;start up the tool locator
			
			pha						; get our user id
			_MMStartup
			pla
			sta		UserID

; get a new handle for use with
; message center
			pha						;make space on stack for handle address
			pha						
			pea		|0				;request 8 bytes of memory
			pea		|8
			pha						; Push UserID
			pea		|0				;attributes = totally unrestricted
			pha						;location pointer (not used)
			pha
			_NewHandle
			pla						; PullLong MsgHandle
			plx
			sta		MsgHandle
			stx		MsgHandle+2

			pea		|2				;getMessage
			pea		|1				; type 1 (filename message)
			phx						; into this handle
			pha
			_MessageCenter
			bcc		GotMessage

			jsr		DispHandle

			sec
GotMessage	rts

*****************************************************************
*
* CreateMsgNames
*
* Using the data in MsgHandle, I fill in BPath, the pathname
* of the basic program that I want to run.
*
* Using the data at $280 I fill in BVolume, the volume to
* look for BASIC.SYSTEM on.  I also put a copy of BVolume
* into BSPath.
*
* This routine also disposes of the MsgHandle when it is no
* longer needed.
*
* Mode:  Entry--Full Native
*		 Exit --Full Native
*
*****************************************************************

CreateMsgNames
;using GlobalData

			lda		[MsgHandle]			;de-reference handle
			clc							; add 8 to msgptr so it points to
			adc		#8					; file name
			sta		MsgPtr
			ldy		#2
			lda		[MsgHandle],y
			adc		#0					;propogate possible carry
			sta		MsgPtr+2

			short 						; copy pathname to BPath
			lda		[MsgPtr]			; get length
			tay
NameLoop1	lda		[MsgPtr],y
			sta		BPath,y
			dey
			bpl		NameLoop1

			long						; back to native mode so can dispose of handle & message
			pea		3					; 3 = delete message
			pea		1					; 1 = filename type
			pei		MsgHandle+2			; message handle is not used (for now)
			pei		MsgHandle
			_MessageCenter				; go delete the filename message
			
			jsr		DispHandle			; get rid of the handle


;--------------------------------------------------
;
; Now try and figure out what the boot volume is.
;
			short						; 8 bit mode to look at chars

			lda		MyPath+1
			cmp		#'/'
			beq		PathIsFull

			sec							; emulation mode for ProDOS call
			xce
			GetPrefix GPParams
			clc							; back to native (8-bit) mode
			xce
			
PathIsFull
			ldx		#1					; start looking at first char that
			lda		#'/'				; can be second slash (after increment)
LookLoop
			inx							; point to next character
			cpx		MyPath				; at end of string?
			beq		Found2ndSlash		; yes...
			cmp		MyPath+1,x			; is there a slash here?
			bne		LookLoop			; no, keep looking
			
Found2ndSlash
			stx		MyPath				; store the length of the volume name

MoveVolLoop lda		MyPath,x 			; put volume name in BVolume
			sta		BVolume,x			; and in BSPath
			sta		BSPath,x
			dex
			bpl		MoveVolLoop

			long						; back to full native mode
			rts


GPParams
			DC.B	1
			DC.W	MyPath

*****************************************************************
*
* DispHandle
*
* Disposes of MsgHandle.
*
* Mode:  Entry--Full Native
*		 Exit --Full Native
*
*****************************************************************

DispHandle

			pei		MsgHandle+2
			pei		MsgHandle
			_DisposeHandle

			rts

			entry	proglen
proglen									;this allows the assembler to calculate how big the module is

			ENDP
			END
\ No newline at end of file
diff --git a/IIGS.601.SRC/BASIC.SYSTEM/BLaunch.macros b/IIGS.601.SRC/BASIC.SYSTEM/BLaunch.macros
new file mode 100644
index 0000000..6ac1161
--- /dev/null
+++ b/IIGS.601.SRC/BASIC.SYSTEM/BLaunch.macros
@@ -0,0 +1 @@
+;-----------------------------------------------
;
;   ProDOS 8 Macros
;
;-----------------------------------------------


		MACRO
&LAB	SETPREFIX &DCB
&LAB 	JSR		$BF00
		DC.B	$C6
		DC.W	&DCB
 		MEND
		
		MACRO
&LAB	GETPREFIX &DCB
&LAB	JSR		$BF00
		DC.B	$C7
		DC.W	&DCB
		MEND
		
		MACRO
&LAB	GETFILEINFO &DCB
&LAB	JSR		$BF00
		DC.B	$C4
		DC.W	&DCB
 		MEND
		
		MACRO
&LAB 	OPEN	&DCB
&LAB	JSR		$BF00
		DC.B	$C8
		DC.W	&DCB
		MEND
		
		MACRO
&LAB	READ	&DCB
&LAB	JSR		$BF00
		DC.B	$CA
		DC.W	&DCB
		MEND
		
		MACRO
&LAB	CLOSE 	&DCB
&LAB	JSR		$BF00
		DC.B	$CC
		DC.W	&DCB
		MEND
		
;-----------------------------------------------
;
;   General Purpose Macros
;
;-----------------------------------------------

		MACRO
		str		&string
		lclc	&sset
&sset	SETC 	&SETTING('STRING')
		STRING 	PASCAL
		dc.B 	&string
		STRING 	&sset
		MEND
		
		MACRO
		pushword &addr,&reg
	IF &addr[1:1]='#' AND &SETTING('LONGA')='ON' THEN
		pea		|&addr[2:255]
	ELSE
		IF &addr­'' THEN
			IF &reg­'' THEN 
				lda		&addr,&reg
			ELSE
				lda		&addr
			ENDIF
		ENDIF
		pha
	ENDIF
		MEND
		
	MACRO
	pushlong &addr,&offset
	IF &addr[1:1]='#' THEN
		pea		&addr[2:255]>>16
		pea		|&addr[2:255]
	ELSEIF &addr[1:1]='[' THEN
		ldy		#&offset+2
		pushword &addr,y
		ldy		#&offset
		pushword &addr,y
	ELSEIF &offset='s' THEN
		pushword &addr+2,s
		pushword &addr+2,s
	ELSEIF &offset='' THEN
		pushword  &addr+2
		pushword  &addr
	ELSE
		pushword &addr+2,&offset
		pushword &addr,&offset
	ENDIF
	MEND
		
	MACRO
	pulllong &addr1,&addr2
	IF &addr1='' THEN
	IF &addr2­'' THEN 
		AERROR 'Illegal 2nd parameter'
	ENDIF
		pullword
		pullword
	ELSEIF &addr2='' THEN
		pullword  &addr1
		pullword  &addr1+2
	ELSEIF &addr1[1:1]='[' THEN
		ldy   #&addr2
		pullword  &addr1,y
		ldy   #&addr2+2
		pullword  &addr1,y
	ELSE
		pullword  &addr1
		sta   &addr2
		pullword  &addr1+2
		sta   &addr2+2
	ENDIF
	MEND

	MACRO
	pullword &addr,&reg
		pla
	IF &addr­'' THEN
		IF &reg­'' THEN
			sta		&addr,&reg
		ELSE
			sta		&addr
		ENDIF
	ELSEIF &reg­'' THEN 
		AERROR 'Illegal 2nd parameter'
	ENDIF
	MEND

	MACRO
	native &mode
		clc
		xce
	IF &mode­'' THEN
		&mode
	ELSE
		long
	ENDIF
	MEND

	MACRO
	emulation
		sec
		xce
		longa	off
		longi	off
	MEND

	MACRO
	long
		rep		#%00110000
		longa	on
		longi	on
	MEND

	MACRO
	short
		sep		#%00110000
		longa	off
		longi	off
	MEND

;-----------------------------------------------
;
;   Toolbox Macros
;
;-----------------------------------------------

		MACRO 
&lab 	_TLStartUp 
&lab 	ldx		#$0201 
     	jsl 	$E10000 
		MEND 

		MACRO 
&lab	_TLShutDown 
&lab	ldx		#$0301 
		jsl		$E10000 
		MEND 

		MACRO
&lab	_TLTextMountVolume
&lab	ldx		#$1201
		jsl		$E10000
		MEND
		
		MACRO
&lab	_MessageCenter
&lab	ldx		#$1501
		jsl		$E10000
		MEND
		
		MACRO
&lab	_MMStartUp
&lab	ldx		#$0202
		jsl		$E10000
		MEND

		MACRO 
&lab	_MMShutDown 
&lab	ldx		#$0302 
		jsl		$E10000 
		MEND 

		MACRO
&lab	_NewHandle
&lab	ldx		#$0902
		jsl		$E10000
		MEND

		MACRO
&lab	_DisposeHandle
&lab	ldx		#$1002
		jsl		$E10000
		MEND
\ No newline at end of file
diff --git a/IIGS.601.SRC/BASIC.SYSTEM/EQUATES b/IIGS.601.SRC/BASIC.SYSTEM/EQUATES
new file mode 100644
index 0000000..cf6ac09
--- /dev/null
+++ b/IIGS.601.SRC/BASIC.SYSTEM/EQUATES
@@ -0,0 +1 @@
+************* EQUATES FOR BASIC.SYSTEM ************************

	MACHINE	M65C02
	LONGA	OFF
	LONGI	OFF

*********************************************************
* Constants for the Loader
*********************************************************
CIADR		EQU	$24	 		;00 - CI load address (after Loader)
CIDST		EQU	$9A	 		;00 - CI destination (working) address
CILEN		EQU	$24	 		;CI length in pages, including the alias page at $BD00
CIMEM		EQU	$96	 		;00 - HIMEM
CIGLB		EQU	$BE	 		;00 - Globals starting address

*********************************************************
* Globals
*********************************************************
INBUF		EQU	$200		;input buffer
CIENT		EQU	$BE00		;command interp. entry
OUT0		EQU	$BE10
IN0			EQU	$BE20
GOPRO		EQU	$BF00
DVNUM		EQU	$BF30		;Device number
MACHID		EQU	$BF98		;MachineID
SLTBYT		EQU	$BF99		;Slot 
PFIXPTR		EQU	$BF9A		;Prefix pointer
APSOFT		EQU	$E000		

*********************************************************
* Misc zero page locations
*********************************************************
CSWL		EQU	$36
CSWH		EQU	$37
KSWL		EQU	$38
KSWH		EQU	$39
ZTRACE		EQU	$F2
*********************************************************
* ZERO PAGE LOCATIONS FOR MONITOR, TEMPS, AND APPLESOFT.
*********************************************************
BASL		EQU	$28
PROMPT		EQU	$33
FROM		EQU	$3A	 
TO			EQU	$3C	 
VPTR		EQU	$3E	 
SIMPTR		EQU	$69
ARRPTR		EQU	$6B
ENDVAR		EQU	$6D
STRBOT		EQU	$6F	 
BEGPROG		EQU	$67
ENDPROG		EQU	$AF
HIMEM		EQU	$73
RNONLY		EQU	$D6
ONERRFLG	EQU	$D8
ASERR		EQU	$DE
ASLOWTR		EQU	$9B
ASLINE		EQU	$50 
***************************************************
* OTHER SYSTEM ADDRESSES 
***************************************************
MLIENTRY	EQU	$BF00	 
JSPARE		EQU	$BF03
GLBDEV		EQU	$BF30	 
MEMTABL		EQU	$BF58
GLBLEVEL	EQU	$BF94	 
GLBPFX		EQU	$BF9A	 
IVERSION	EQU	$BFFD
RAM1IN		EQU	$C08B
RAM2IN		EQU	$C083
RAMOUT		EQU	$C082
INLINE		EQU	$200
INBUF1		EQU	INLINE+1
CATBUF		EQU	INBUF1+$58
TXBUF2		EQU	INLINE+$80
CLRSCRN		EQU	$FC58			;Clear Screen
HOME		EQU	$FC58			;Home command
CLEOL		EQU	$FC9C			;Clear to End of Line
COUT1		EQU	$FDF0			;Character Output
GOCSWL		EQU	$FDED	 
GOKSWL		EQU	$FD10	 
CHIN1		EQU	$FD1B
ASFNDLIN	EQU	$D61A
PREPBAS		EQU	$D665
RUNBASIC	EQU	$D7D2
APSFTBRK	EQU	$D865			;AppleSoft Break Command
WRMSTRT		EQU	$D43F	 		;Warm Start Entry
APSFTNORM	EQU	$F273	 		;Applesoft's SETNORM routine for Video state
CLDSTRT		EQU	$E000			;Cold Start Location
GLOBALS		EQU	$BE00	 		;ORIGIN FOR CI'S GLOBALS.
RUNFLG		EQU $BE42

BELL		EQU	$87
***************************************************
* MLI COMMAND NUMBERS
*************************************************** 
CRECMD		EQU	$C0			;Create
DSTCMD		EQU	$C1			;Destroy/Delete
RNMCMD		EQU	$C2			;Rename
SFINFO		EQU	$C3			;Set File Info
GFINFO		EQU	$C4			;Get File Info
GTINFO		EQU	$C4
ONLINCMD	EQU	$C5			;On Line
ONLINE		EQU	$C5
SPREFX		EQU	$C6			;Set Prefix
SPFIX		EQU	$C6
GPREFX		EQU	$C7			;Get Prefix
GPFIX		EQU	$C7
OPNCMD		EQU	$C8			;Open File
NLINCMD		EQU	$C9
READCMD		EQU	$CA			;Read
WRITCMD		EQU	$CB			;Write
CLOSCMD		EQU	$CC			;Close
FLSHCMD		EQU	$CD			;Flush
SMRKCMD		EQU	$CE			;Set Mark
GMRKCMD		EQU	$CF			;Get Mark
SEOFCMD		EQU	$D0			;Set End of File
GEOFCMD		EQU	$D1			;Get End of File
SBUFCMD		EQU	$D2			;Set Buffer
GBUFCMD		EQU	$D3			;Get Buffer

*******************************************************
* CI COMMAND NUMBERS (Reference to SRCHTBL comments)
*******************************************************
CIRUN		EQU	$06	 		;CI'S RUN COMMAND
CIEXEC		EQU	$08	 		;CI'S EXEC COMMAND
CIOPEN		EQU	$0B	 		;CI'S OPEN COMMAND.
CIBSAVE		EQU	$0F			;CI'S BSAVE COMMAND
CIAPND		EQU	$16	 		;CI'S APPEND COMMAND
CIPRFX		EQU	$19	 		;CI'S PREFIX COMMAND. 
*******************************************************
* CI FILE TYPES
*******************************************************
TTXT		EQU	$04	 		;TEXT FILE. 
TBIN		EQU	$06	 		;GENERAL BINARY DATA/PROGRAM. 
TDIR		EQU	$0F	 		;DIRECTORY FILE. 
TADB		EQU	$19			;ASAP (PIE) Data Base file 
TAWP		EQU	$1A	 		;ASAP Word Processor file
TASP		EQU	$1B	 		;ASAP Spread Sheet file 
TS16		EQU	$B3			;GS/OS File System Applications
TPAS		EQU	$EF	 		;PASCAL.AREA
TCMD		EQU	$F0	 		;ADDITIONAL CI COMMAND CODE FILE. 
TINT		EQU	$FA	 		;INTEGER BASIC PROGRAM.
TIVR		EQU	$FB	 		;INTEGER BASIC VARIABLES.
TBAS		EQU	$FC	 		;APPLESOFT PROGRAM.
TVAR		EQU	$FD	 		;APPLESOFT VARIABLES.
TREL		EQU	$FE	 		;EDASM RELOCATABLE CODE.
TSYS		EQU	$FF	 		;CI AND MLI SYSTEM FILES.
*******************************************************
* CI ERROR CODES
*******************************************************
SYSBUFERR	EQU	$FE
ERRANGE		EQU	$02			;Range Error
NODEV		EQU	$03			;No device found Error
CIEOFERR	EQU	$05			;End of File Error
CIFNFERR	EQU	$06			;File not found Error
REALFNF		EQU	$07			;
LOCKED		EQU	$0A			;File Locked Error
ERRINVLD	EQU	$0B			;Invalid Value
MEMFUL		EQU	$0C	 		;Memory Full
ERRTYP		EQU	$0D			;File Type Mismatch
TOOBIG		EQU	$0E			;File Too Big
NOTRUN		EQU	$0F	 		;"NOT DIRECT COMMAND ERROR"
ERRSYN		EQU	$10			;Syntax Error
FNOPN		EQU	$12			;File already open Error
FILBUSY		EQU	$14			;File in use Error
FILSOPN		EQU	$15	 		;"FILES STILL OPEN" WARNING.

*******************************************************
* EQUATES AND OTHER INFO FROM $BE00 AREA ADDED HERE
*******************************************************
* COMMAND PARAMETER PBITS/FBITS BIT DEFINITIONS: 
*******************************************************
PFIX		EQU	$80	 		;PREFIX NEEDS FETCHING, FILE NAME OPTIONAL 
SLOT		EQU	$40	 		;NO PARAMTERS TO BE PROCESSED 
RRUN		EQU	$20	 		;COMMAND ONLY VALID DURING PROGRAM EXECUTION 
FNOPT		EQU	$10	 		;FILE NAME IS OPTIONAL. 
CRFLG		EQU	$08	 		;CREATE ALLOWED.
T			EQU	$04	 		;FILE TYPE  
FN2			EQU	$02	 		;FILE NAME "2" FOR RENAME. 
FN1			EQU	$01	 		;FILE NAME EXPECTED. 
PVALS		EQU $BE58		;ADDED FOR MUNGE
PTYPE		EQU $12			;ADDED FOR MUNGE
*******************************************************
* AND FOR PBITS+1/FBITS+1 DEFINTIONS:
*******************************************************
AD			EQU	$80	 		;ADDRESS
B			EQU	$40	 		;BYTE
E			EQU	$20	 		;END ADDRESS
L			EQU	$10	 		;LENGTH
LINE		EQU	$08	 		;'@' LINE NUMBER. 
SD			EQU	$04	 		;SLOT AND DRIVE NUMBERS 
F			EQU	$02	 		;FIELD
R			EQU	$01	 		;RECORD
V			EQU	$00	 		;VOLUME NUMBER IGNORED.

\ No newline at end of file
diff --git a/IIGS.601.SRC/BASIC.SYSTEM/GLOBALS b/IIGS.601.SRC/BASIC.SYSTEM/GLOBALS
new file mode 100644
index 0000000..89af238
--- /dev/null
+++ b/IIGS.601.SRC/BASIC.SYSTEM/GLOBALS
@@ -0,0 +1 @@
+GLBSTUFF PROC	temporg	$BE00	; for actual build use this proc
;GLBSTUFF PROC	org	$BE00		; for test purposes use this proc

	MACHINE	M65C02
	LONGA	OFF
	LONGI	OFF	
	
			IMPORT  WARMDOS
			IMPORT	SYNTAX
			IMPORT	ERROR
			IMPORT	PRTERROR
			IMPORT 	NODEVERR
			IMPORT 	DOSOUT
			IMPORT	DOSINP
			IMPORT 	TXBUF
			IMPORT	CALLX
			IMPORT 	SYSCTBL
			IMPORT  MLIERTBL
			IMPORT	CIERRTBL
			IMPORT	GETPAGES
			IMPORT	FREPAGES
			IMPORT	ALIASCMD
	
			INCLUDE 'EQUATES'

CIENTRY		JMP	WARMDOS		;RE-ENTER PRODOS/APPLESOFT 
DOSCMD		JMP	SYNTAX		;EXTERNAL ENTRY FOR COMMAND STRINGS
			EXPORT EXTRNCMD
EXTRNCMD	JMP	ALIASCMD		;LS/PFX, THEN OTHER EXTERNAL COMMANDS. 
ERROUT		JMP	ERROR	 	;HANDLES ONERR OR PRINTS ERROR
			EXPORT PRINTERR
PRINTERR	JMP	PRTERROR	;PRINT ERROR MESSAGE (NUMBER IN ACC) 
			EXPORT ERRCODE
ERRCODE		DC.B	0	 	;PRODOS ERROR CODE STORED HERE AND $DE FOR APPLESOFT. 
*
*****************************************************
* Default I/O Vectors.  These may be changed by the User to   
*   remap slots for Non-Disk Devices.  When the system is 
*   Booted, all slots not containing a ROM are considered to 
*   be 'NOT CONNECTED' and the Default Vector is left to
*   point at the appropriate Error Handling Routine.
*****************************************************
*
			EXPORT OUTVECT0
OUTVECT0	DC.W	COUT1	 	;MONITOR VIDEO OUTPUT ROUTINE.
OUTVECT1	DC.W	NODEVERR	;DEFAULT $C100 WHEN ROM PRESENT. 
OUTVECT2	DC.W	NODEVERR	;DEFAULT $C200 WHEN ROM PRESENT. 
OUTVECT3	DC.W	NODEVERR	;DEFAULT $C300 WHEN ROM PRESENT. 
OUTVECT4	DC.W	NODEVERR	;DEFAULT $C400 WHEN ROM PRESENT. 
OUTVECT5	DC.W	NODEVERR	;DEFAULT $C500 WHEN ROM PRESENT. 
OUTVECT6	DC.W	NODEVERR	;DEFAULT $C600 WHEN ROM PRESENT. 
OUTVECT7	DC.W	NODEVERR	;DEFAULT $C700 WHEN ROM PRESENT. 
INVECT0		DC.W	CHIN1	 	;MONITOR KEYBOARD INPUT ROUTINE. 
INVECT1		DC.W	NODEVERR	;DEFAULT $C100 WHEN ROM PRESENT. 
INVECT2		DC.W	NODEVERR	;DEFAULT $C200 WHEN ROM PRESENT. 
INVECT3		DC.W	NODEVERR	;DEFAULT $C300 WHEN ROM PRESENT. 
INVECT4		DC.W	NODEVERR	;DEFAULT $C400 WHEN ROM PRESENT. 
INVECT5		DC.W	NODEVERR	;DEFAULT $C500 WHEN ROM PRESENT. 
INVECT6		DC.W	NODEVERR	;DEFAULT $C600 WHEN ROM PRESENT. 
INVECT7		DC.W	NODEVERR	;DEFAULT $C700 WHEN ROM PRESENT. 
*
			EXPORT VECTOUT
VECTOUT		DC.W	COUT1	 	;CURRENT CHARACTER OUTPUT ROUTINE. 
			EXPORT VECTIN
VECTIN		DC.W	CHIN1	 	;CURRENT CHARACTER INPUT ROUTINE.
*
			EXPORT VDOSIO
VDOSIO		DC.W	DOSOUT		;PRODOS CHAR OUT INTERCEPT ROUTINE. 
			DC.W	DOSINP		;PRODOS CHAR IN INTERCEPT ROUTINE. 
*
			EXPORT VSYSIO
VSYSIO		DC.W	0,0	 		;INTERNAL REDIRECTION OF I/O. 
*
			EXPORT DEFSLT
DEFSLT		DC.B	$06	 		;DEFAULT SLOT, SET BY 'S' PARM
			EXPORT DEFDRV
DEFDRV		DC.B	$01	 		;DEFAULT DRIVE, SET BY 'D' PARM
* 
			EXPORT PREGA
PREGA		DC.B	0	 		;REGISTER SAVE AREA.
			EXPORT PREGX
PREGX		DC.B	0
			EXPORT PREGY
PREGY		DC.B	0
			EXPORT DTRACE
DTRACE		DC.B	0	 		;APPLESOFT TRACE ENABLE.
			EXPORT STATE
STATE		DC.B	0	 		;0=IMM, >0=DEF MODES. 
			EXPORT EXACTV
EXACTV		DC.B	0	 		;EXEC FILE ACTIVE IF BIT 7 ON 
			EXPORT IFILACTV
IFILACTV	DC.B	0	 		;INPUT FILE ACTIVE  ' ' ' ' ' 
			EXPORT OFILACTV
OFILACTV	DC.B	0	 		;OUTPUT FILE  ' ' ' ' ' ' ' '
			EXPORT PFXACTV
PFXACTV		DC.B	0	 		;PREFIX INPUT ACTIVE  ' ' ' '
			EXPORT DIRFLG
DIRFLG		DC.B	0	 		;FILE BEING ACCESSED IS DIRECTORY 
EDIRFLG		DC.B	0	 		;END OF DIRECTORY ENCOUNTERED.
			EXPORT STRINGS
STRINGS		DC.B	0	 		;COUNTER FOR FREE STRING 
			EXPORT TBUFPTR
TBUFPTR		DC.B	0	 		;TEMPORARY BUFFERED CHAR. COUNT (WRITE)
			EXPORT INPTR
INPTR		DC.B	0	 		;INPUT CHAR. COUNT DURING KBD INPUT.
			EXPORT CHRLAST
CHRLAST		DC.B	0	 		;LAST CHARACTER OUTPUT (FOR ERROR DETECT) 
			EXPORT OPENCNT
OPENCNT		DC.B	0			;NUMBER OF OPEN FILE (EXCEPT EXEC FILE).
			EXPORT EXFILE
EXFILE		DC.B	0			;FLAG TO INDICATE EXEC FILE BEING CLOSED.
			EXPORT CATFLAG
CATFLAG		DC.B	0	 		;FILE BEING INPUT IS (TRANSLATED) DIR.
			EXPORT XTRNADDR
XTRNADDR	DC.W	0	 		;EXECUTION ADDRESS OF EXTERNAL CMD (0).
			EXPORT XLEN
XLEN		DC.B	0	 		;LENTH OF COMMAND STRING-1, I.E. "HELP"=3.
			EXPORT XCNUM
XCNUM		DC.B	0	 		;CI CMD NUMBER (EXTERNAL CMD IF =0) 

			EXPORT PBITS
PBITS		DC.W	0	 		;ALLOWED PARAMETER BITS.
			EXPORT FBITS
FBITS		DC.W	0	 		;FOUND PARAMETER BITS.
			EXPORT VADDR
VADDR		DC.W	0	 		;PARAMETER VALUE FOR 'A' PARM
			EXPORT VBYTE
VBYTE		DC.B	0,0,0		;PARAMETER VALUE FOR 'B' PARM 
			EXPORT VENDA
VENDA		DC.W	0	 		;PARAMETER VALUE FOR 'E' PARM 
			EXPORT VLNTH
VLNTH		DC.W	0	 		;PARAMETER VALUE FOR 'L' PARM
			EXPORT VSLOT
VSLOT		DC.B	0	 		;PARAMETER VALUE FOR 'S' PARM 
			EXPORT VDRIV
VDRIV		DC.B	0	 		;PARAMETER VALUE FOR 'D' PARM 
			EXPORT VFELD
VFELD		DC.W	0	 		;PARAMETER VALUE FOR 'F' PARM 
			EXPORT VRECD
VRECD		DC.W	0	 		;PARAMETER VALUE FOR 'R' PARM 
VVOLM		DC.B	0	 		;PARAMETER VALUE FOR 'V' PARM, IGNORED.
			EXPORT VLINE
VLINE		DC.W	0	 		;PARAMETER VALUE FOR '@' PARM
	 		EXPORT VTYPE	
VTYPE		DC.B	0	 		;PARAMETER VALUE FOR 'T' PARM
			EXPORT PIOSLT:equ	; :equ added by SEG on 11  May 89
PIOSLT		EQU	PTYPE+1
			EXPORT VIOSLT
VIOSLT		DC.B	0	 		;PARAMETER VALUE FOR IN# OR PR# 
VPATH1		DC.W	TXBUF-1		;CONSTANT PATH NAME 1 BUFFER 
VPATH2		DC.W	TXBUF2		;CONSTANT PATH NAME 2 BUFFER (RENAME) 
	
*****************************************************
*  GOSYSTEM is used to make ALL MLI Calls since Errors must 
*    be translated before Returning to the Calling Routine. 
*  On Entry, the ACC should contain the Call Number.  The
*    Address of the Parameter Table is looked up and set 
*    based on the Call Number.  Only File Management Calls 
*    ($C0-$D3) can be made using this routine.
*  The original implementation of this CI Contains only
*    these calls.
*****************************************************
*
			EXPORT GOSYSTEM
GOSYSTEM	STA	SYSCALL			;SAVE CALL NUMBER
			STX	CALLX	 		;PRESERVE X REGISTER.
			AND	#$1F	 		;STRIP HIGH BITS OF CALL NUMBER
			TAX					;AND USE AS LOOKUP INDEX.
			LDA	SYSCTBL,X		;GET LOW ADDRESS OF PARM TABLE.
			STA	SYSPARM
			LDX	CALLX	 		;RESTORE X BEFORE CALLING.
*
			JSR	MLIENTRY		;CALL XDOS MLI TO EXECUTE REQUEST.
SYSCALL		DC.B	0
SYSPARM		DC.W	*	 		;(HIGH ADDRESS SHOULD BE SAME AS PARM TABLES).
			BCS	BADCALL			;BRANCH IF ERROR ENCOUNTERED.
			RTS
*
*****************************************************
* BADCALL converts MLI Errors into CI Error equivalents. 
*   Routine should be entered with Error # in ACC, & Returns 
*   CI-Error # in ACC.  All unrecognized Errors are mapped 
*   to I/O Error.  X-Reg is restored to the value it had 
*   before the Call was made.  Carry is SET. 
*****************************************************
*
BADCALL		LDX	#$12	 		;19 ERRORS ARE MAPPED TO
MLIERR1		CMP	MLIERTBL,X		; OTHER THAN I/O ERROR.
			BEQ	MLIERR2	 
			DEX
			BPL	MLIERR1
			LDX	#$13	 		;IF NOT RECOGNIZED, MAKE IT I/O ERROR.
* 
MLIERR2		LDA	CIERRTBL,X	 	;RETURN ERROR IN ACC.
			LDX	CALLX	 		;RESTORE X-REG.
			SEC					;SET CARRY TO INDICATE ERROR.
XRETURN		RTS
CISPARE1	DC.B	$00	 
*
*****************************************************
* The following are the System Call Parameter Tables. 
*   These tables must reside within the same page of Memory. 
*   Only those Parameters that are subject to alterations 
*   have been Labeled.  SYSCTBL, below, contains the low 
*   Order Address of each Parameter Table.  SYSCTBL is used 
*   by GOSYSTEM to set up the Address of the Parameter  
*   Table for each Call.  (See GOSYSTEM) 
*****************************************************
*
			EXPORT SCREATE
SCREATE		DC.B	$07
			DC.W	TXBUF-1	 	;POINTER TO PATHNAME.
			EXPORT CRACESS
CRACESS		DC.B	$C3	 		;$C1 IF DIRECTORY CREATE. 
			EXPORT CRFILID
CRFILID		DC.B	$00
			EXPORT CRAUXID
CRAUXID		DC.W	$0000
			EXPORT CRFKIND
CRFKIND		DC.B	0
			DC.W	0	 		;NO PREDETERMINED DATE/TIME.
			DC.W	0

			EXPORT SSGPRFX
SSGPRFX
			
			EXPORT SDSTROY
SDSTROY		DC.B	$01
			DC.W	TXBUF-1	 	;THIS CALL REQUIRES NO MODIFICATIONS.

			EXPORT SRENAME
SRENAME		DC.B	$02
			DC.W	TXBUF-1	 	;NO MODIFICATIONS NEEDED.
			DC.W	TXBUF2	 

			EXPORT SSGINFO
SSGINFO		DC.B	$00	 		;P.CNT=7 IF SET FILE INFO, =A IF GET FILE INFO
			DC.W	TXBUF-1
			EXPORT FIACESS
FIACESS		DC.B	$00	 		;ACCESS USED BY LOCK/UNLOCK.
			EXPORT FIFILID
FIFILID		DC.B	$00	 		;FILE ID IS TYPE SPECIFER
			EXPORT FIAUXID
FIAUXID		DC.W	$0000	 	;AUX ID USED FOR LOAD ADDR/RECORD LENGTH.
			EXPORT FIFKIND
FIFKIND		DC.B	$00	 		;IDENTIFIES TREES VS. DIRECTORIES.
			EXPORT FIBLOKS
FIBLOKS		DC.W	$0000	 	;USED ONLY BY CATALOG COMMANDS FOR ROOT DIRECTORY.
			EXPORT FIMDATE
FIMDATE		DC.W	$0000	 	;MODIFICATION DATE & TIME  
			DC.W	$0000	 	; SHOULD ALWAYS BE ZEROED BEFORE CALL. 
			DC.W	$0000	 	;CREATE DATE AND TIME IGNORED. 
			DC.W	$0000
	
			EXPORT SONLINE
SONLINE
			EXPORT SSETMRK
SSETMRK
			EXPORT SGETMRK
SGETMRK		
			EXPORT SSETEOF
SSETEOF
			EXPORT SGETEOF
SGETEOF
			EXPORT SSETBUF
SSETBUF
			EXPORT SGETBUF
SGETBUF
			DC.B	$02	 		;PARAMETER COUNT
			EXPORT SBUFREF
SBUFREF
			EXPORT SREFNUM
SREFNUM
			EXPORT SUNITNUM
SUNITNUM
			DC.B	0	 		;UNIT OR REFERENCE NUMBER.
			EXPORT SDATPTR
SDATPTR
			EXPORT SMARK
SMARK
			EXPORT SEOF
SEOF
			EXPORT SBUFADR
SBUFADR
			DC.B	0,0,0	 	;MRK & EOF USE 3 BYTES.

			EXPORT SOPEN
SOPEN		DC.B	$03
			DC.W	TXBUF-1
			EXPORT OSYSBUF
OSYSBUF		DC.W	$0000
			EXPORT OREFNUM
OREFNUM		DC.B	0
*
*
			EXPORT SNEWLIN
SNEWLIN		DC.B	$03
			EXPORT NEWLREF
NEWLREF		DC.B	$00	 		;REFERENCE NUMBER.
			EXPORT NLINENBL
NLINENBL	DC.B	$7F	 		;NEW LINE CHARACTER IS ALWAYS CARRAGE RETURN.
			DC.B	$0D	 		; BOTH $0D AND $8D IS RECODGNIZED.
*
*
			EXPORT SBYE
SBYE
			EXPORT SREAD
SREAD
			EXPORT SWRITE
SWRITE
			DC.B	$04
			EXPORT RWREFNUM
RWREFNUM	DC.B	$00
			EXPORT RWDATA
RWDATA		DC.W	$0000	 	;POINTER TO DATA TO BE READ/WRITTEN.
			EXPORT RWCOUNT
RWCOUNT		DC.W	$0000	 	;NUMBER OF BYTES TO BE READ/WRITTEN.
			EXPORT RWTRANS
RWTRANS		DC.W	$0000	 	;RETURNED # OF BYTES READ/WRITTEN.
*
*
			EXPORT SCLOSE
SCLOSE
			EXPORT SFLUSH
SFLUSH
			DC.B	$01
			EXPORT CFREFNUM
CFREFNUM	DC.B	$00
*
*
CCCSPARE	DC.B	$00
			MSB ON
			DC.B	'COPYRIGHT APPLE, 1983'
			MSB OFF
GETBUFR		JMP	GETPAGES	 	;Get a buffer N pages in length 
FREBUFR		JMP	FREPAGES	 	;Free the pages reserved by GETPAGES.
			EXPORT RSHIMEM
RSHIMEM		DC.B	0	 		;HIMEM at boot time 
			DC.B	0,0,0,0
GLB_END		EQU	*	 			;This location should be $BF00 (0100 in temporg)

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/BASIC.SYSTEM/LOADER b/IIGS.601.SRC/BASIC.SYSTEM/LOADER
new file mode 100644
index 0000000..d36cd9f
--- /dev/null
+++ b/IIGS.601.SRC/BASIC.SYSTEM/LOADER
@@ -0,0 +1 @@
+LOADER PROC
			
; AsmIIGS directives to set equivalent 6502/65C02 MODE.
	MACHINE	M65C02
	LONGA	OFF
	LONGI	OFF

************************************************************
*                                                          *
*          ProDOS / Applesoft Command Interpreter          *
*                                                          *
*         Copyright Apple Computer, Inc.,  1983-90         *
*                                                          *
************************************************************


*******************  REVISION HISTORY  ************************************************
*
*  NOTE: With each change made, VERDATE in the TABLES file and this
*        history must be updated.  With each revision, the version
*        number in the LOADER file must be updated.
*
*  The following changes have been made:
*
*  Rev 1.0 to Rev 1.0.1a01 - Dale M. Arends - 2/13/84
*
*  1.  Bug in VARPACKER fixed.  Used when CHAINing & Var storage.
*        (File: CI.BUFMGR)
*  2.  Bug in BSAVE when BSAVEing a non-BINARY file fixed.
*        (File: CMDS1) NOTE: This section is still being debated!
*  3.  The Loader has had the STARTUP filename moved to the 4th
*        byte (preceeded by a JMP) so that a Selector can start a 
*        different program by name.  (File: LOADER)
*
*  Rev 1.0.1A01 to Rev 1.0.1A02 - Dale M. Arends - 4/11/84
*
*  1.  Bug in BSAVE when BSAVEing a non-BINARY file fixed.  System
*        returned to original design operation. (File: CMDS1)
*  2.  Bug fixed in FIELD parameter of READ routine.  Bad buffer
*        address.  (File: CMDS3)
*  3.  RUNTIME support removed.
*
*  Rev 1.0.1A02 to Rev 1.0.1A03 - Dale M. Arends - 4/20/84
*
*  1.  Bug in APPEND fixed.  (After OPENing & READing from a random
*        access file, then APPENDing to another file, the record length
*        of the RA file was used in mark positioning.) (File: CMDS3)
*
*  Rev 1.0.1A03 to Rev 1.1XA01 - Dale M. Arends - 4/26/84
*
*  1.  BYE Command added.
*        (Files: CMDS2, TABLES)
*  2.  VERDATE removed and replaced with VERNUM.  Loader MODified
*        to put VERNUM into MLI Global Page location IVERSION.
*        (Files: LOADER, CI.EQU, TABLES)
*
*  Rev 1.1XA01 renamed to Rev 1.1 - Dale M. Arends - 4/26/84
*
*  Rev 1.2 - Grady Ward - 10/87
*
*  (1) Changed CATALOG in <CMDS2> to ignore TOTENT when enumerating a
*      directory; network servers were dying
*
* 1.2 Version without comma after Apple in splash
*  (2) Changed CATALOG further so control s pause won't be 
*     prematurely terminated
*
* Rev 1.3 - Lee Collings - 1/89
*
* (1) Changed Version number to 1.3 in Loader
* (2) Changed VERNUM to $03 in Tables
* (3) FIX1 in BSAVE at $AE4A to jump to Patch in Main code module
* (4) FIX2 in BSAVE at $AEC9 to jump to Patch in Main code module
* (5) Patched Chain/Store in Main code module
* (6) Added MTR command in Tables to go from BASIC to Monitor
* (7) Converted Source code to MAX/MPW
*
* Rev 1.4 - Lee Collings - 6/89
*
* (1) Added RTS at the end of the BSAVE/BLOAD patch in "MAIN" to return to calling routine
* (2) Changed Loader to add this comment and to change version to 1.4
* (3) Changed VerNum in Main code section to $04
*
* Rev 1.4.1 - Lee Collings - 6/90
*
* (1) Added a LDA and STA in "Main" BSave routine to correct B-Parm bug
* (2) Changed Version to 1.4.1 in Loader
* (3) Changed VerNum in Main code section to $04
* (4) Changed copyright notice to include 1990
*
* Rev 1.5 - Lee Collings - 7/91
* (1) Added change to Main to fix Flash bug in If/Then statement
* (2) Changed revision level to 1.5 in loader
* (3) Changed copyright notice to include 1992
* (4) Fixed bug in Main section of BSAVE routine to eliminate AuxFile type problem
* (5) Fixed bug in Reading Catalog from Slot 3 RAM disk
* (6) Removed "RNFLG" DC.B from MAIN (token never used)
* (7) Added S16 File support to catalog routine (to properly display file types)
* (8) Added the ability to Launch S16 (GS/OS) Applications from BASIC
************************************************************************************

			INCLUDE 'EQUATES'
			
			IMPORT	DEFSLT
			IMPORT	DEFDRV
			IMPORT  RSHIMEM
			IMPORT  VERNUM
			

			JMP	CILDR
			DCB.B	2,$EE			;Marker to show Catalyst there is a buffer
			DC.B	$41	 			;65 char buffer
NAMEHEL		DC.B	$7	 			;Length of the STARTUP program name
			DC.B	'STARTUP'		;Startup program filename
NAMEHEL1	EQU	*-NAMEHEL
			DS.B	$41-NAMEHEL1
CILDR		EQU *
			LDA	#CIDST				;Load CI into Destination
			STA	3
			LDA	#CIADR				;Address of CI
			STA	1
			LDA	#0
			STA	0
			STA	2
			LDX	#CILEN				;Length of CI
			TAY
			JSR	MVPGE				;Begin to move CI to proper location
			LDX	#1
			LDA	#CIGLB				;Load CI Globals
			STA	3
			JSR	MVPGE				;goto Move routine

			LDA	#$15	 			;CHR$(21) CTRL-Q
			JSR	$FDED	 			;COUT to turn off 80 col firmware
			JSR	$FE84	 			;Set Normal Video
			JSR	$FB2F	 			;SET DEFAULT MONITOR STUFF
			JSR	HOME
			LDX	#$17	 			;CLEAR MEMTABLES
			LDA	#0
CLMENT		STA	MEMTABL,X
			DEX
			BNE	CLMENT

*  Set up Memory Map in MLI Globals

			LDA	#$CF
			STA	MEMTABL
			LDA	#$3F
			STA	MEMTABL+$13
			LDA	#$FF
			STA	MEMTABL+$14
			STA	MEMTABL+$15
			STA	MEMTABL+$16
			LDA	#$C3
			STA	MEMTABL+$17
			LDA	APSOFT	 			;is AppleSoft in system?
			CMP	#$4C
			BNE	ERRORS
			LDA	MACHID	 			;is this a 64K system?
			AND	#$20
			BEQ	ERRORS
	
			LDX	#3
MVSPOOK		LDA	SPOOK,X
			STA	CSWL,X
			DEX
			BPL	MVSPOOK
			JMP	APSOFT	 			;GO Initialize APPLESOFT.

ERRORS		LDX	#$27
PRERRMES	LDA	ERRMES,X
			STA	$628,X	 			;Put Err Msg right on screen
			DEX
			BPL	PRERRMES
			STA	$3F4
			STA	$3F3
ALWAYS		BMI	ALWAYS

MVPGE		DEY
			LDA	(0),Y	 			;Move a page from pointer 0
			STA	(2),Y	 			; to pointer 2
			TYA
			BNE	MVPGE
			INC	1	 				;Adjust pointers to next page
			INC	3
			DEX						;One less page to do
			BNE	MVPGE
MVPGX		RTS

RESTART		EQU	*
			CMP	#$DD	 			;IS IT PROMPT?
			BNE	MVPGX
START1		LDA	OUT0	 			;RESTORE OUTPUT HOOK TO NORMAL I/O
			STA	CSWL
			LDA	OUT0+1
			STA	CSWH

			LDA	DVNUM	 			;SET DEFAULT SLOT/DRIVE.
			STA	BUNIT
			LDX	#1	 				;ASSUME DRIVE 1
			ASL	A
			BCC	BRNCH1
			INX						;UNLESS IT'S DRIVE 2.
BRNCH1		STX	DEFDRV
			ASL	A
			ROL	A
			ROL	A
			ROL	A
			AND	#7
			STA	DEFSLT
			LDX	#$C1	 			;NOW ATTACH ALL FOUND I/O DEVICES.
			LDY	#2
			LDA	SLTBYT
			LSR	A
SETSLOT		LSR	A
			PHA
			BCC	NOROM
			LDA	#0
			STA	OUT0,Y
			STA	IN0,Y
			TXA
			STA	OUT0+1,Y
			STA	IN0+1,Y
NOROM		INY
			INY
			INX
			PLA
			BNE	SETSLOT	 			;LOOP UNTIL ALL DEVICES ID'ED

			LDA	#CIMEM	 			;SET HIMEM
			STA	$74
			STA	$70
			STA	RSHIMEM

			LDA	PFIXPTR	 			;Is there a PREFIX set?
			BEQ	NOPREFIX	 		;If 0 then No Prefix is set
ISPRFX		JSR	GOPRO
			DC.B	GPFIX	 		;Get the prefix
			DC.W	PRPARM	 		;  and put it in PBUF
			BNE	NOGOOD
			LDX	PBUF	 			;Length of prefix
			LDA	#$2F	 			;Target char for scan
SCAN10		CMP	PBUF,X	 			;Scan & count the slashes
			BNE	SCAN11
			INC	TEMPOR	 			;1 more slash
SCAN11		DEX
			BNE	SCAN10
			LDA	TEMPOR	 			;Get # slashes in prefix
			CMP	#3	 				;3 or more indicate prefix is a subdir
			BCS	ISHEL0	 			;  so don't Null it out
			JSR	GOPRO	 			;SET PREFIX TO NUL.
			DC.B	SPFIX
			DC.W	NULPFX

* NOW SET PREFIX TO BOOT DEVICE.

NOPREFIX	JSR	GOPRO	 			; Do ONLINE call
			DC.B	ONLINE
			DC.W	OLPARM
			BNE	NOGOOD	 			;BRANCH IF PROBLEMS.
			LDA	PBUF+1	 			;GET VOLUME NAME LENGTH.
			AND	#$F	 				;STRIP DEVNUM.
			BEQ	NOGOOD	 			;BRANCH IF ERROR.
			TAX						;ADD 1 FOR LEADING '/'
			INX
			STX	PBUF	 			;SAVE PREFIX LENGTH.
			LDA	#$2F	 			;PLACE LEADING '/' IN PBUF.
			STA	PBUF+1
			JSR	GOPRO	 			;SET PREFIX.
			DC.B	SPFIX
			DC.W	PRPARM
			BNE	NOGOOD	 			;BRANCH IF PROBLEMS.

ISHEL0		JSR	GOPRO	 			;FIND OUT IF 'STARTUP' EXISTS.
			DC.B	GTINFO
			DC.W	STARTUP
			BNE	NOSTARTUP	 		;BRANCH IF NO STARTUPS..
			LDX	NAMEHEL	 			;MOVE '-STARTUP' TO INPUT BUFFER.
			STX	RTNX

MVHEL		LDA	NAMEHEL,X
			STA	INBUF,X
			DEX
			BNE	MVHEL
			LDA	#$AD	 			;STORE '-' IN FRONT OF NAME
			STA	INBUF
NOGOOD		EQU	*
NOSTARTUP	EQU	*
			LDA	TEMPOR	 			;Get # slashes in prefix
			CMP	#3	 				;3 or more indicate prefix is a subdir
			BCS	DONTNUL
			JSR	GOPRO	 			;SET PREFIX TO NUL.
			DC.B	SPFIX
			DC.W	NULPFX
DONTNUL		LDA	RTNX	 			;WAS THERE A 'STARTUP'?
			BNE	GOCI
			JSR	STRTSTR
			LDX	#COPRIT-VERID-1	 	;Length of Version Identification
PRVERID		LDA	VERID,X
			STA	$400,X
			DEX
			BPL	PRVERID
			LDX	#ZLDREND-COPRIT-1 	;Length of Copyright Notice
PRCOPRT		LDA	COPRIT,X
			STA	$480,X
			DEX
			BPL	PRCOPRT
			LDA	#$8D
			JSR	$FDF0
			JSR	$FDF0
			JSR	$FDF0
GOCI		EQU	*
			LDX	#2
GOCI1		LDA	THREEDOG,X
			STA	$3D0,X	 			;3DOG VECTOR
			STA	$3D3,X	 			;COLD RESTART OF BASIC
			STA	$3F8,X	 			;CTRL-Y VECTOR
			LDA	AMPHOOK,X
			STA	$3F5,X	 			;Set up & hooks for SYNTAX Error
			DEX
			BPL	GOCI1
			LDA	A2MONITOR
			STA	$3F0	 			;BREAK VECTOR
			LDA	A2MONITOR+1
			STA	$3F1
			LDA	CTRLRST
			STA	$3F2	 			;CTRL-RESET VECTOR
			LDA	CTRLRST+1
			STA	$3F3
			EOR	#$A5	 			;Exclusive OR $A5 with high byte of
			STA	$3F4	 			;  RESET Vector for Power-up byte.
			LDA	#$A5
			STA	ZTRACE
			LDA	VERNUM	 			;Get current Revision number
			STA	IVERSION	 		; and put it in MLI global page.
THREEDOG	JMP	CIENT	 			;DO IT!
A2MONITOR	DC.W 	$FA59
CTRLRST		DC.W	$BE00	 		;CI ENTRY
AMPHOOK		JMP	$BE03	 			;DOSCMD entry to CI

STRTSTR		LDA	IN0
			STA	KSWL
			LDA	IN0+1
			STA	KSWH
			LDX	NAMEHEL
			INX
			LDA	#$8D
			RTS

SPOOK		DC.W	RESTART
			DC.W	STRTSTR

STARTUP		DC.B	$A
			DC.W	NAMEHEL
			DS.B	$10				;Placeholder for Startup program info

NULPFX		DC.B	$1
			DC.W	NOPFX

NOPFX		DC.B	$1
			DC.B	'/'

RTNX		DC.B	$00

OLPARM		DC.B	$02
BUNIT		DC.B	$70
			DC.W	PBUF+1

PRPARM		DC.B	$01
			DC.W	PBUF

PBUF		EQU	INBUF+$80
TEMPOR		DC.B	0

			MSB	ON
ERRMES		DC.B	'***  UNABLE TO EXECUTE BASIC SYSTEM  ***'
VERID		DC.B	'            PRODOS BASIC 2.0 ';
COPRIT		DC.B	'        COPYRIGHT APPLE  1983-2026'	 ;34 CHARACTERS
ZLDRLEFT	EQU		$03FF-*	 			;# bytes free
ZLDREND		EQU		*
			DCB.B	$400-(zldrend-loader),0		;this fills in to the end of the segment ($2400)

			END
\ No newline at end of file
diff --git a/IIGS.601.SRC/BASIC.SYSTEM/MAIN b/IIGS.601.SRC/BASIC.SYSTEM/MAIN
new file mode 100644
index 0000000..63240bf
--- /dev/null
+++ b/IIGS.601.SRC/BASIC.SYSTEM/MAIN
@@ -0,0 +1 @@
+MAIN PROC	temporg $9A00
	
; AsmIIGS directives to set equivalent 6502/65C02 MODE.
	MACHINE	M65C02
	LONGA	OFF
	LONGI	OFF

*******************IMPORTS***************************
		
		IMPORT VECTOUT	
		IMPORT VECTIN	
		IMPORT VDOSIO	
		IMPORT PREGA	
		IMPORT PREGX	
		IMPORT PREGY	
		IMPORT XCNUM
		IMPORT CHRLAST
		IMPORT EXACTV
		IMPORT ERRCODE
		IMPORT STATE
		IMPORT DTRACE
		IMPORT IFILACTV
		IMPORT OFILACTV
		IMPORT PFXACTV
		IMPORT PRINTERR
		IMPORT GOSYSTEM
		IMPORT CFREFNUM
		IMPORT CATFLAG
		IMPORT RWTRANS
		IMPORT RWCOUNT
		IMPORT RWDATA
		IMPORT VLNTH
		IMPORT FBITS
		IMPORT SMARK
		IMPORT DIRFLG
		IMPORT RWREFNUM
		IMPORT SREFNUM
		IMPORT INPTR
		IMPORT TBUFPTR
		IMPORT OPENCNT
		IMPORT STRINGS
		IMPORT VSYSIO
		IMPORT SBUFADR
		IMPORT RSHIMEM
		IMPORT SBUFREF
		IMPORT DEFSLT
		IMPORT VSLOT
		IMPORT DEFDRV
		IMPORT VDRIV
		IMPORT XLEN
		IMPORT PBITS
		IMPORT PIOSLT
		IMPORT VIOSLT
		IMPORT SUNITNUM
		IMPORT SDATPTR
		IMPORT EXTRNCMD
		IMPORT FIFILID
		IMPORT VADDR
		IMPORT VTYPE
		IMPORT SEOF
		IMPORT FIAUXID
		IMPORT VLINE
		IMPORT FIACESS
		IMPORT CRAUXID
		IMPORT CRFILID
		IMPORT CRACESS
		IMPORT CRFKIND
		IMPORT VENDA
		IMPORT VBYTE
		IMPORT OUTVECT0
		IMPORT VADDR
		IMPORT SBYE
		IMPORT SDATPTR
		IMPORT FIBLOKS
		IMPORT FIFKIND
		IMPORT OSYSBUF
		IMPORT OREFNUM
		IMPORT XTRNADDR
		IMPORT EXFILE
		IMPORT NEWLREF
		IMPORT NLINENBL
		IMPORT EXFILE
		IMPORT VRECD
		IMPORT VFELD
		IMPORT NLINENBL
		IMPORT SSGINFO
		IMPORT FIMDATE
		IMPORT SCREATE
		IMPORT SDSTROY
		IMPORT SRENAME
		IMPORT SONLINE
		IMPORT SSGPRFX
		IMPORT SOPEN
		IMPORT SNEWLIN
		IMPORT SREAD
		IMPORT SWRITE
		IMPORT SCLOSE
		IMPORT SFLUSH
		IMPORT SSETMRK
		IMPORT SGETEOF
		IMPORT SGETBUF
		IMPORT SSETBUF
		IMPORT SSETEOF
		IMPORT SGETMRK
		
**********************INCLUDES GO HERE *************************

		INCLUDE 'EQUATES'

		
	
	EJECT
	
	TITLE	'PRODOS CI FOR APPLESOFT'
*******************************************************
* SNORMIO SETS THE ZERO PAGE I/O HOOKS
* TO POINT AT THE CURRENT DEVICE ROUTINES.
*******************************************************
*

SNORMIO	PHA				;PRESERVE CHARACTER IN ACCUMULATOR.
		LDA	VECTOUT	 	;STRAITLINE FOR SPEED.
		STA	CSWL
		LDA	VECTOUT+1
		STA	CSWH
		LDA	VECTIN
		STA	KSWL
		LDA	VECTIN+1
		STA	KSWH
		PLA				;RESTORE	 CHARACTER.
		RTS
	SPACE
	TITLE	'SETSYSIO'
*******************************************************
* SETSYSIO sets the System I/O hooks to point at the 
*   ProDOS interceptor routines.  Before doing so, it 
*   preserves any current I/O address (providing that 
*   they don't already point at ProDOS). 
*******************************************************
SETSYSIO	LDX	#0	 		;SET I/O STATE TO IMMEDIATE MODE.
		JSR	SETSTATE
		LDA	KSWH	 		;ARE I/O HOOKS ALREADY POINTING
		CMP	VDOSIO+3	 	; AT PRODOS?
		BNE	*+5	 		;Branch around JMP (Range too far to BEQ)
		JMP	SSYSIO1	 	;BRANCH IF INPUT IS.
		LDA	CSWH
		CMP	VDOSIO+1
		BEQ	SSYSIO1	 	;BRANCH IF OUTPUT IS.
		BNE	SSYSIO	 	;OTHERWISE, PRESERVE CURRENT I/O ADDRESSES
	SPACE
	TITLE	'IMMEDIATE OUTPUT'
********************  IMMEDIATE OUTPUT  **************************	
* IMOUT is active while APPLESOFT is in IMMEDIATE MODE.  This 
*   routine simply swaps the I/O Vectors, passes characters to 
*   the Output Routine, and restores I/O Vectors to ProDOS. 
******************************************************************
IMMEDOUT	CMP	TRCIMG	 	;IS IT "#"?
		BNE	IMOCRCK		;BRANCH IF NOT.
		STX	PREGX	 		;SAVE X REGISTER.
		TSX				;LOOK	 AT STACK TO FIND OUT IF TRACE OUTPUT.
		LDA	$103,X
		CMP	#$12	 		;MUST READ $12, AND $D8
		BNE	IMDOUT1
		LDA	$104,X
		CMP	#$D8
		BNE	IMDOUT1
		LDX	#4	 		;SET RUN MODE.
		JSR	SETSTATE
		LDA	TRCIMG	 	;GO TO IT.
		LDX	PREGX
		JMP	DOSOUT
IMOCRCK	CMP	CHRLAST	 	;SAME AS LAST OUTPUT CHARACTER?
		STA	CHRLAST
		BNE	IMOUT	 		;BRANCH IF NOT...
		CMP	#$8D	 		;SUPPRESS DOUBLE CR ON LINE INPUT.
		BNE	IMOUT
		LDA	$24	 		;ONLY IF CURSOR HORZ IN COLUMN 0
		BNE	IMOCR	 		;AND LINE# INPUT (CARRY SET FROM CMP). 
		LDA	TXBUF
		CMP	#$3F	 		;MUST BE > '?' FOR SUPPRESSION.
IMOCR		LDA	#$8D	 		;RESTORE CR.
		BCS	IMOUT	 		;BRANCH IF FIRST NON-   SPACE  WAS ALPHA.
		RTS				;IGNORE CR.
   SPACE 
IMDOUT1	LDX	PREGX
		LDA	TRCIMG
IMOUT		JSR	SNORMIO	 	;SWAP IN I/O ROUTINE ADDRESSES.
		JSR	GOCSWL	 	;OUTPUT CHARACTER.
		CMP	#$8D	 		;WAS IT A CARRAGE RETURN?
		BNE	SSYSIO	 	;BRANCH IF NOT.
		LDA	ZTRACE	 	;IS TRACE MODE UNCHANGED?
		CMP	#$A5
		BEQ	IMOUT1	 	;BRANCH IF NOT
		STA	DTRACE	 	;SAVE STATE DESIRED.
		LDA	#$A5	 		;RESTORE TRACE BYTE.
		STA	ZTRACE
IMOUT1	LDA	#$8D	 		;RETURN WITH CARRAGE RETURN. 
SSYSIO	PHA				;RESTORE I/O HOOKS TO PRODOS, BUT...
		LDA	KSWH	 		;FIRST SAVE ANY CHANGES TO ROUTINE ADDRESSES.
		STA	VECTIN+1	 
		LDA	KSWL	 
		STA	VECTIN	 
		LDA	CSWH	 
		STA	VECTOUT+1	 
		LDA	CSWL	 
		STA	VECTOUT	 
		PLA				;(RESTORE CHARACTER) 
SSYSIO1	PHA				;THIS	 ENTRY USED BY 'SETSYSIO'
		LDA	VDOSIO	 	;PLACE ADDRESSES OF DOS I/O INTERCEPTOR
		STA	CSWL	 		; ROUTINES IN THE SYSTEM I/O HOOKS.
		LDA	VDOSIO+1	 	;THIS DONE STRAITLINE FOR SPEED.
		STA	CSWH
		LDA	VDOSIO+2
		STA	KSWL
		LDA	VDOSIO+3
		STA	KSWH
		PLA				;ALL DONE, RETURN ALL REGISTERS UN DISTURBED.
		RTS
	SPACE 2
	TITLE	'IMMEDIATE INPUT'	 
**********************IMMEDIATE INPUT**************************
* IMINP swaps in Normal I/O Routines, Gets a character,
*   Restores I/O to ProDOS, and passes the character back to
*   the Monitor GETLINE Routine.  When the character is a 
*   RETURN, control is passed to the ProDOS Syntaxer to check 
*   for, and Execute, ProDOS Commands.
***************************************************************
IMINP		BIT	EXACTV	 	;IS AN EXEC FILE ACTIVE?
		BPL	IMINP1	 	;BRANCH IF NOT.
		JSR	SAVREGS
		JMP	RDEXEC	 	;GO READ EXEC FILE
IMINP1	EQU	*
		JSR	SNORMIO	 	;SWAP IN REGULAR I/O VECTORS.
		JSR	GOKSWL	 	;GO GET A CHARACTER.
		CMP	#$8D	 		;IS IT A CARRAGE RETURN?
		BNE	IMINP3	 	;BRANCH IF NOT.
		JSR	SAVREGS	 	;SAVE ALL REGISTERS.
		STA	INLINE,X	 	;FINISH UP INPUT STRING.
RDEXEC2	JSR	SYNTAX	 	;NOW SEE IF IT'S A PRODOS COMMAND.
		BIT	XCNUM	 		;WAS IT A RECOGNIZED COMMAND?
		BMI	IMINP2	 	;BRANCH IF IT WAS NOT.
		BCS	DFERROR	 	;BRANCH IF AN ERROR WAS ENCOUNTERED.
		LDY	PREGY	 		;RESTORE ONLY Y TO IT'S ORIGINAL VALUE.
		LDA	#$88	 		; MAKE IT LOOK LIKE A NUL INPUT.
		LDX	#0
		BEQ	IMINP3	 	;BRANCH ALWAYS.
   	SPACE 
IMINP2	JSR	RSTREGS	 	;RESTORE A,X,&Y REGISTERS.
IMINP3	JMP	SSYSIO	 	;RESTORE I/O HOOKS TO PRODOS.
	SPACE
******************'ERROR HANDLER'*************************
		EXPORT NODEVERR
NODEVERR	LDA	#NODEV
IERROR	EQU	*
DFERROR	EQU	*
		EXPORT ERROR
ERROR		STA	ERRCODE
		STA	ASERR	 		;SAVE ERROR CODE IN GLOBALS AND FOR APPLESOFT.
		LDA	STATE	 		;DETERMINE RUNNING OR NOT...
		CMP	#1	 		;IF >0 THEN DEFERRED MODE (SETS CARRY)
		PHP				;SAVE	 MODE.
		LDA	#$F	 		;CLOSE ANY TEMP FILE
		STA	GLBLEVEL
		LDA	#0	 		;CLEAR I/O STATES
		STA	IFILACTV
		STA	OFILACTV
		STA	PFXACTV
		STA	CFREFNUM	 	;NOW CLOSE TEMP FILE. 
		LDA	#CLOSCMD
		JSR	GOSYSTEM
		BCS	IERROR2	 	;BRANCH IF CAN'T CLOSE.
		JSR	CLEARBUF	 	;WRITE ANY TEXT JUST LAYING AROUND.
		BCS	IERROR2	 	;BRANCH IF CAN'T CLEAR BUFFER.
		LDA	#0	 		;FLUSH ANY OPEN FILES.
		STA	GLBLEVEL
		STA	CFREFNUM
		LDA	#FLSHCMD
		JSR	GOSYSTEM
* 
IERROR2	PLP				;GET ERROR MODE AGAIN. 
		LDX	#4	 
		BIT	ONERRFLG	 	;IS 'ON ERROR' ACTIVE?
		BCS	IERROR4	 	;BRANCH IF NOT IMMEDIATE.
		LDX	#0	 
IERROR4	PHP
		JSR	SETSTATE	 	;SET I/O STATE ACCORDING TO X.
		JSR	SSYSIO1	 	;SET SYSTEM ADDR IN THE I/O HOOKS.
		LDA	ERRCODE
		PLP
		BMI	DFERROR1
		PHP
		JSR	PRINTERR	 	;GO PRINT ERROR MESSAGE.
		JSR	CLSEXEC
		PLP
		BCS	DFERROR2	 	;BRANCH IF DEFERRED ERROR.
		JSR	CROUT
		JMP	WRMSTRT	 	;WARMSTART APPLESOFT...
   SPACE  
DFERROR1	LDX	$F8	 		;RESET APPLESOFT STACK 
		DEX
		DEX
		TXS
		TAX				;MOVE ERROR CODE TO X FOR ONERR. 
DFERROR2	LDA	#3
		JMP	APSFTBRK	 	;GOTO APPLESOFT BREAK/ONERR HANDLER.
*
BRKINP	EQU	*	 		;INPUT IS UNEXPECTEDLY FROM IMMEDIATE MODE. 
		LDA	#0
		STA	ASERR
		LDA	#$A3	 		;Reset Trace flag image
		STA	TRCIMG
		JSR	APSFTNORM	 	;Applesoft's SETNORM routine
		JSR	SNORMIO
		JSR	CLRFBUF	 	;MAKE SURE ALL FILE BUFFERS ARE FLUSHED.
		JSR	SETSYSIO	 	;RESET SYSTEM I/O TO IMMEDIATE MODE.
		JSR	RSTREGS	 	; AND NOW, GOTO IMMEDIATE INPUT.
		JMP	IMINP	
	SPACE
	TITLE	'DEFERRED INPUT'	 
*************************** DEFERRED INPUT **************************
* DFINP is active while an Applesoft program is running. 
*   In the event that the program is halted, I/O is reset  
*   for immediate MODE operation.  If a file is active for 
*   Input, control is given to RDINPUT.  Otherwise, the I/O 
*   vectors are swapped, a character is read, and I/O is 
*   restored to ProDOS.  If the character is a BackSPACE , X=0, 
*   and the request is from an INPUT statement (as opposed to 
*   a GET statement), the character is ignored.  This prevents 
*   unnecessary reprompting by GETLINE.
*********************************************************************
DFINP		JSR	SAVREGS	 	;SAVE CHARACTER AT CURSOR, X & Y 
		BIT	PFXACTV	 	;PREFIX INPUT?
		BPL	DEFINP0	 	;BRANCH IF NOT.
		JMP	PFXINP
DEFINP0	BIT	IFILACTV	 	;IS AN INPUT FILE ACTIVE?
		BPL	DFINP00	 	;BRANCH IF NOT FILE INPUT.
		JMP	RDINPUT
DFINP00	BIT	EXACTV	 	;OR HOW ABOUT AN EXEC FILE?
		BMI	RDEXEC	 	;BRANCH IF EXEC FILE.
		LDA	PROMPT	 	;GET PROMPT CHARACTER FOR IMMEDIATE MODE CHECK.
		CMP	#$DD	 		;DID USER SLIP US INTO IMMEDIATE MODE?
		BEQ	BRKINP	 	;BRANCH IF WE DID.
		JSR	SNORMIO	 	;SWAP I/O TO REGULAR DEVICES.
DEFINP1	LDA	PREGA	 		;PASS CHARACTER TO INPUT ROUTINE.
		LDY	PREGY
		JSR	GOKSWL	 	;GET A CHARACTER.
		CMP	#$88	 		;IS IT A BACK   SPACE  CHARACTER?
		BNE	DEFINP3	 	;BRANCH IF NOT.
		LDA	PROMPT	 	;IS THIS AN INPUT?
		CMP	#$BE	 
		BEQ	DEFINP2	 	;BRANCH IF 'GET' INSTEAD OF 'INPUT'. 
		TXA				;IS IT THE FIRST CHARACTER IN THE INPUT LINE?
		BEQ	DEFINP1	 	;IGNORE IT IF SO.
DEFINP2	LDA	#$88	 		;RESTORE BACK   SPACE .
DEFINP3	JMP	SSYSIO	 	;RESTORE I/O TO PRODOS AND RETURN.
	SPACE 2
	TITLE	'READ EXEC'	 
***************************** READ EXEC ****************************
RDEXEC	EQU	*	 
		STA	(BASL),Y
		LDA	PROMPT
		CMP	#$BE	 		;IF 'GET' DO JUST 1 CHARACTER.
		BEQ	GETEXEC	 
		LDA	$C000
		BPL	RDEXEC0
		CMP	#$83	 		;APPLESOFT CONTROL-C FIX
		BNE	RDEXEC0	 	;BRANCH IF NOT CONRTROL-C
		JSR	CLSEXEC	 	;GO CLOSE EXEC FILE.
		LDA	RUNFLG	 	;IS PROGRAM EXECUTING?
		BNE	BADEX0	 	;BRANCH IF IT IS.
		STA	$C010	 		;CLEAR KBD
		BEQ	BADEX0	 	;BRANCH ALWAYS...
RDEXEC0	JSR	SETUPEXEC	 	;SET UP FOR READ OF EXEC FILE.
		JSR	RDEXEC1	 	;OTHERWISE, GET A WHOLE STRING.
		BCS	BADEXEC	 	;STOP IF ERROR ENCOUNTERED
		JSR	SAVREGS
		BCC	SETB7
SETB7A	DEX
		LDA	INLINE,X
SETB7		ORA	#$80	 		;Set bit 7 on in case going to Monitor 
		STA	INLINE,X	 	;SAVE LAST CHARACTER TOO.
		TXA
		BNE	SETB7A
		JSR	SNORMIO
		JSR	RDEXEC2	 	;CHECK FOR, AND EXECUTE, PRODOS COMMANDS.
		BIT	XCNUM	 		;WAS A COMMAND EXECUTED? 
		BPL	RDEXEC0	 	;LOOP IF IT WAS. 
EXEXIT	RTS				;OTHERWISE,	 RETURN WHATEVER... 
	SPACE 
GETEXEC	JSR	SETUPEXEC	 	;SET UP FOR READ OF AN EXEC FILE.
		JSR	RDGET1	 	;GO READ A CHARACTER.
		BCC	EXEXIT	 	;TERMINATE EXEC IF ERROR 
BADEXEC	JSR	CLSXERR	 	;GO CLOSE EXEC FILE.
		CMP	#CIEOFERR	 	;IS IT SIMPLE END OF FILE?
		BNE	BADREAD	 	;BRANCH IF NOT.
BADEX0	LDX	#0	 		;RESTORE ALL REGISTERS.
		LDY	$24	 
		BNE	BADEX1
		LDA	#$DD
		STA	PROMPT
		LDA	#$88
		RTS
BADEX1	LDA	(BASL),Y	 
		JMP	(KSWL)	 	;AND LOOP TO NORMAL INPUT.
BADREAD	JMP	ERROR

	TITLE	'READ INPUT'	
*********************** READ INPUT *********************************	
* RDINPUT Reads characters from a file into the Input Buffer. 
*   If Input is from a Directory File, differentiation between 
*   GET and INPUT is NOT made, and a full 80 character Directory 
*   entry is placed in the Input Buffer.  If this is called for 
*   a GET, only one character will be Read.  Otherwise 240 chars, 
*   or up to the first encountered END.OF.LINE char, will be Read. 
********************************************************************
RDINPUT	LDA	PROMPT
		CMP	#$DD	 		;BEFORE DOING READ MAKE
		BNE	RDINP1	 	; SURE PROGRAM IS RUNNING. 
		JMP	BRKINP	 	;QUIT IF NOT.
RDINP1	LDA	PREGA
		STA	(BASL),Y
		LDA	$C000
		BPL	RDINP2
		CMP	#$83	 		;APPLESOFT CTRL-C BUG FIX 
		BNE	RDINP2	 
		BIT	$C010	 		;CLEAR KBD STROBE
		RTS
RDINP2	LDA	PROMPT	 	;RESTORE VALUE FROM PROMPT.
		BIT	DIRFLG	 	;ARE WE READING A DIRECTORY FILE?
		BMI	RDDIR	 		;BRANCH IF DIRECTORY.
		CMP	#$BE	 		;IS THIS AN FROM A 'GET' STATEMENT?
		BEQ	RDGET	 		;BRANCH IF FROM 'GET'.
		JSR	RDLINE
		BCS	BADREAD
		RTS
	SPACE
RDGET		JSR	RDGET1
		BCS	BADREAD	 	;REPORT ERRORS.
		RTS
	SPACE
RDGET1	EQU	*
		LDA	RWCOUNT	 	;PRESERVE STANDARD RWCOUNT
		STA	VLNTH
		LDA	#1
		STA	RWCOUNT	 	;READ ONLY 1 CHARACTER.
		LDA	#READCMD	 	;GO DO IT.
		JSR	GOSYSTEM
		BCS	RDBAD	 		;RETURN ANY ERRORS IMMEDIATELY.
		LDA	VLNTH
		STA	RWCOUNT
		LDX	RWDATA
		LDA	INLINE,X	 	;RETURN CHARACTER IN ACC.
RDBAD		RTS
   SPACE 
RDLINE	LDA	PREGA	 		;REPLACE BLINKING CURSOR WITH ORIGINAL CHARACTER.
		STA	(BASL),Y
RDEXEC1	EQU	*	 		;EXEC CALLS HERE. 
		LDA	#READCMD	 	;GO READ IT.
		JSR	GOSYSTEM
		BCS	RDBAD	 		;REPORT ANY ERRORS IMMEDIATELY.
		LDA	RWTRANS	 	;FIND OUT HOW MANY CHARACTERS WERE READ.
		BEQ	RDLIN1	 	;BRANCH IF NUL INPUT.
		CLC
		ADC	RWDATA	 	;LOW BUFFER ADDRESS (EITHER 1 OR 0).
		TAX
		LDA	INLINE-1,X	 	;MAKE SURE LAST CHARACTER IS CARRAGE A CARRAGE RETURN.
		AND	#$7F
		CMP	#$0D	 		;(HI BIT NOT SET FOR TEXT I/O).
		BNE	RDLIN1	 	;BRANCH IF NOT. 
		LDA	FBITS+1	 	;IF LENGTH BIT SET, ADD EXTRA CR.
		AND	#L
		BNE	RDLIN1
		DEX				;RETURN PROPER INPUT POSITION.
RDLIN1	LDA	#$8D	 		;RETURN LAST CHARACTER AS CR.
		LDY	PREGY	 		;RESTORE Y REGISTER.
		CLC				;NO ERROR.
		RTS				;ALL DONE.
	SPACE
RDDIR		CMP	#$BE	 		;IS THIS A 'GET'?
		BEQ	RDLIN1	 	;IF SO, RETURN A CARRAGE RETURN.
		LDA	PREGA	 		;RESTORE CHARACTER AT CURSOR.
		STA	(BASL),Y
		LDA	#$4F
		STA	STRLEN	 	;SET INPUT LENGTH TO 80 CHARACTERS
		LDA	#GMRKCMD	 	;GET CURRENT FILE POSITION.
		JSR	GOSYSTEM
		BCS	RDDIRERR	 	;BRANCH IF ERROR.
		LDA	SMARK
		ORA	SMARK+1	 	;SPECIAL STUFF IF FILE POS=0.
		BNE	RDIR1	 		;BRANCH IF NOT BEGINNING 
		LDA	#2
		STA	CATFLAG	 	;INDICATE HEADER STUFF TO PROCESS.
		JSR	OPNDR2	 	;GET DIRECTORY NAME, FILE INFO, ETC.
		BCS	RDDIRERR
		LDA	RWREFNUM	 	;FIND ENTRY IN FILENAMES TO SET ENTLEN & MAXENT.
		LSR	A
		ROR	A
		ROR	A
		ROR	A
		TAX
		LDA	ENTLEN
		STA	FILNAMES+1,X	;PRESERVE WITH FILE NAME.
		LDA	MAXENT
		STA	FILNAMES+2,X
		JSR	CATITLE	 	;MOVE DIRECTORY NAME TO INPUT BUFFER.
RCRT00	LDA	#$A2	 		;PLACE QUOTE IN FRONT OF INPUT.
		STA	INLINE
		LDA	#$8D	 		;AND CR AT END.
		STA	INLINE,X
		CLC
		RTS
   SPACE 
RDIR1		LDA	CATFLAG	 	;PROCESSING DIRECTORY ENTRIES?
		BEQ	RDIR2
		BMI	RDIREND	 	;BRANCH IF LAST ENTRY ALREADY READ.
		LDX	#0	 		;ANTICIPATE GAP BETWEEN HEADER & FIRST ENTRY.
		DEC	CATFLAG
		BEQ	RCRT00	 	;BRANCH IF FIRST READ.
		JSR	SPACAT	 	;ELSE, RETURN HEADER STRING.
		LDX	#HEAD
		JSR	CONSTR
RCRT80	LDX	#$50	 
		BNE	RCRT00	 	;BRANCH ALWAYS TAKEN...
RDIREND	CMP	#$FF	 		;GIVE 'EM TRAILER?
		BNE	RCEOFERR	 	;NO, END OF FILE ERROR!
		DEC	CATFLAG	 	;YES, TRAILER, BUT ONLY ONCE!
		LDA	#0
		STA	RWCOUNT
		STA	RWCOUNT+1	 	;DO NUL READ TO GET DEVNUM.
		LDA	#READCMD
		JSR	GOSYSTEM
		JSR	CATRAIL	 	;CONSTRUCT LAST LINE.
		PHA				;SAVE	 ERROR CODE, IF ANY
		LDA	RWREFNUM	 	;RESTORE REFNUM FOR NEXT CALL
		STA	SREFNUM
		PLA
		BCC	RCRT80	 	;BRANCH IF NO ERROR
		BCS	RDDIRERR	 	;BRANCH ALWAYS. 
   SPACE 
RCEOFERR	LDA	#CIEOFERR
		SEC
RDDIRERR	JMP	ERROR	 
   SPACE 
RDIR2		LDA	#$FF
		STA	CURRENT	 	;FIGURE OUT CURRENT ENTRY BASED ON POSITION.
		LDA	RWREFNUM
		LSR	A
		ROR	A
		ROR	A
		ROR	A
		TAX
		LDA	FILNAMES+1,X	;RESET ENTLEN & MAXENT
		STA	ENTLEN
		LDA	FILNAMES+2,X
		STA	MAXENT
		LDA	SMARK+1	 	;GET 'PAGE' POSITION (1 OR 0)
		AND	#1
		TAX
		LDA	SMARK
		SEC
RDIRENT	INC	CURRENT
		SBC	ENTLEN	 	;SIMPLE DIVIDE BY SUCCESSIVE SUBTRACTION.
		BCS	RDIRENT
		DEX
		BEQ	RDIRENT 
		JSR	NXTCAT	 	;POSITION AND READ NEXT DIRECTORY ENTRY.
		BCC	RDIR3
		CMP	#ERRANGE	 	;IF ERROR, IS IT PAST END OF FILE?
		BEQ	RDIR4			;if error is range error
		CMP	#CIEOFERR		;if error is end of file error
		BNE	RDDIRERR	 	;BRANCH IF NOT 
RDIR4		DEC	CATFLAG
		LDX	#0
		JMP	RCRT00	 	;MARK NEXT IS TRAILER, RETURN NUL STRING.
	SPACE
RDIR3		JSR	CATASC	 	;CONVERT DIRECTORY ENTRY TO ASCII.
		JMP	RCRT80	 	; AND RETURN 80 CHARACTERS.
	SPACE
PFXINP	CMP	#$DD	 		;BREAK BEFORE PREFIX?
		BNE	PFXIN1	 	;BRANCH IF NOT
		JMP	BRKINP
PFXIN1	LDA	PREGA
		STA	(BASL),Y
		LDA	#0	 		;RESET PFXACTV.
		STA	PFXACTV	 
		LDX	TXBUF-1	 	;GET PREFIX LENGTH.
PFXIN2	LDA	TXBUF-1,X	 	;MOVE PREFIX TO INPUT BUFFER
		STA	INLINE-1,X
		DEX
		BNE	PFXIN2	 
		LDX	TXBUF-1
		LDA	#$8D	 		;RETURN A CR.
		RTS
   SPACE 2
SETUPEXEC	LDA	REFNUMS+7	 	;SET UP READ FROM EXEC FILE.
		STA	RWREFNUM
		LDA	#INLINE>>8	 	;SET TO INPUT BUFFER
		STA	RWDATA+1
		LDA	#$EF	 		;READ UP TO 239 CHARACTERS
		STA	RWCOUNT
		LDA	#0
		STA	RWCOUNT+1
		STA	RWDATA	 
		RTS				;THAT	 IS ALL.

	TITLE	'CTRL-D CHECK APPLESOFT'
**********************************************************
* OUTCKD is called to check for a CTRL-D after a PRINT Token 
*   is detected.  If a CTRL-D is detected, I/O State 2 is set 
*   so that the Command following can be Captured and Processed. 
*   Otherwise, I/O State 4 (Deferred MODE) is re-installed to  
*   allow File or Device I/O to proceed. 
**********************************************************
*
OUTCKD	JSR	SAVREGS	 	;SAVE A,X,&Y.
		CMP	#$84	 		;HAVE WE A DEFERRED COMMAND COMING?
		BNE	NOCTLD	 	;BRANCH IF NOT.
		JSR	CLRFBUF	 	;FLUSH ANY FILE BUFFER STUFF.
		STA	INPTR	 		;(ACC=0 AT THIS POINT.)
		STA	IFILACTV
		STA	OFILACTV
		STA	PFXACTV	 	;CLEAR ALL BUT EXEC FILE STATE.
		LDX	#8	 		;SET I/O TO GOBBLE COMMAND. 
		JSR	SETSTATE
		JMP	RSTREGS	 	;RESTORE REGISTERS AND RETURN.
*
NOCTLD	LDX	#4	 		;SET I/O STATE TO NORMAL DEFERRED MODE.
		JSR	SETSTATE
		JSR	RSTREGS	 	;GET ORIGINAL REGISTERS AGAIN.
		JMP	DOSOUT	 	;BEGIN AT THE TOP AGAIN.
*
CMDOUT	JSR	SAVREGS	 	;PRESERVE REGISTERS.
		LDX	INPTR	 		;SAVE OUTPUT IN INPUT BUFFER.
		STA	INLINE,X
		CMP	#$8D	 		;END OF LINE?
		BEQ	DFCMD	 		;BRANCH IF IT IS.
		INC	INPTR	 		;BUMP POINTER FOR NEXT CHARACTER.
		BNE	CMDOUT1	 	;BRANCH IF ALL IS WELL (SO FAR).
		LDA	#ERRSYN	 	;REPORT SYNTAX ERROR
GODFERR	JMP	DFERROR	 
*
CMDOUT1	LDX	PREGX	 		;RESTORE X REGISTER
		RTS				;ALL DONE FOR NOW.
*
DFCMD		INX
		DEX
		BEQ	DFCMDNUL
		JSR	SNORMIO	 	;SET NORMAL I/O FOR WHAT FOLLOWS...
		JSR	SYNTAX	 	;GO EXECUTE THE COMMAND. 
		BCS	GODFERR
		JSR	SSYSIO	 	;RESTORE SYSTEM ADDRESSES.
	SPACE
DFCMDNUL	LDX	#4	 		;RESTORE NORMAL DEFERRED STATE.
		JSR	SETSTATE
	SPACE
		JMP	RSTREGS	 	;RESTORE REGISTERS, AND RETURN
FILOUT	STY	PREGY	 		;SAVE Y FOR NOW.
		LDY	PROMPT	 	;OUTPUT MUST BE FROM PRINT, LIST OR CALL.
		BEQ	FILOUT1	 	;BRANCH IF PRINT.
		DEY
		BEQ	FILOUT1	 	;BRANCH IF LIST.
		DEY
		BEQ	FILOUT1	 	;BRANCH IF CALL.
		LDY	PREGY	 		;RESTORE Y, AND DO REGULAR OUTPUT (FOR INPUT PROMPT).
		JMP	IMOUT
*
FILOUT1	LDY	TBUFPTR	 	;ADD THIS CHARACTER TO TEMP BUFFER.
		AND	#$7F	 		;STRIP HI BITS...
		STA	(HIMEM),Y
		LDY	PREGY	 		;ANTICIPATE ALL DONE FOR NOW.
		INC	TBUFPTR	 	;ADD 1 TO CURRENT BUFFER POINTER.
		BNE	FILOUT2	 	;BRANCH IF NO NEED TO FLUSH.
		JSR	SAVREGS	 	;SAVE ALL REGISTERS.
		JSR	WRT256	 	;GO CLEAR ALL 256 BYTES OF TEMP BUF.
		BCS	GODFERR
		JSR	RSTREGS	 	;RESTORE REGISTERS (DOES NOT RETURN IF ERROR).
FILOUT2	RTS				;ALL	 DONE...

	TITLE	'DEFERRED OUTPUT'	 
******************** DEFERRED OUTPUT ************************
* DFOUT is the normal Deferred Output Routine.  There are 3 
*   functions served here:
*       1) To Detect TRACE Information being output, which  
*            signals Token Processing. 
*       2) To Direct Normal Printed output to File or Device. 
*       3) To assist in Detecting a Program BREAK due to Errors 
*            or a CTRL-C issued by the User. 
*************************************************************
;DFOUT	CMP	TRCIMG		;IS IT '#', THE TRACE MODE LEADER?
;		BNE	DFOUT2	 	;BRANCH IF NOT.
;		STX	PREGX
;		TSX				;TO VALIDATE IF IT IS TRUELY FROM TRACE,
;		LDA	$103,X	 	;THE STACK MUST BE EXAMINED FOR CALLING
;		CMP	#$12	 		; ROUTINE'S RETURN ADDRESS.
;		BNE	DFOUT1	 	;BRANCH IF NOT TRACE.
;		LDA	$104,X	 	;CHECK HI BYTE JUST TO BE SURE.
;		CMP	#$D8
;		BEQ	TOKENS	 	;GO PROCESS TRACE AND TOKENS.
;DFOUT1	LDA	TRCIMG	 	;RESTORE '#' AND X REG.
DFOUT		PHA
		STX	PREGX
		TSX				;TO VALIDATE IF IT IS TRUELY FROM TRACE,
		LDA	$104,X	 	;THE STACK MUST BE EXAMINED FOR CALLING
		CMP	#$12	 		; ROUTINE'S RETURN ADDRESS.
		BNE	notPound	 	;BRANCH IF NOT TRACE.
		LDA	$105,X	 	;CHECK HI BYTE JUST TO BE SURE.
		CMP	#$D8
		BNE	notpound
		PLA
		BCS	Tokens
NotPound	PLA
		NOP
		NOP
		NOP
		LDX	PREGX
DFOUT2	BIT	OFILACTV	 	;IS AN OUTPUT FILE ACTIVE?
		BPL	DFOUT4		;BRANCH IF NOT.
		CMP	#$DD	 		;is it ']' 
		BNE	DFOUT2A
		CMP	PROMPT
		BEQ	DFOUT5A
DFOUT2A	CMP	#$8D	 		;IS THIS CHARACTER A CARRAGE RETURN?
		BNE	FILOUT	 	;BRANCH IF NOT.
		LDA	PROMPT
		CMP	#$FF	 		;TEST IF OUTPUT POSSIBLE ERROR MESSAGE
		LDA	#$8D	 		;OTHERWISE, IT'S OK TO OUTPUT 2 CR'S.
		BCC	FILOUT
DFOUT3	JSR	CLRFBUF	 	;OTHERWISE, ASSUME DISASTER, AND FLUSH CURRENT FILE.
		STA	OFILACTV	 	; DISABLE OUTPUT TO FILE.
		LDA	#$8D	 		;AND PRINT SECOND CR TO REG DEVICE.
		BNE	GIMOUT	 	;BRANCH ALWAYS TAKEN 
*
DFOUT4	PHA				;SAVE	 CHARACTER
		LDA	IFILACTV	 	;DETERMINE IF OUTPUT SHOULD BE THROWN AWAY.
		ORA	PFXACTV
		BPL	DFOUT5
		LDA	PROMPT
		ORA	#4
		CMP	#$84	 		;IS THIS INPUT STATEMENT?
		BEQ	DFIGNORE	 	;BRANCH IF YES.
DFOUT5	PLA
		CMP	#$DD	 		;IS IT A ']' PROMPT?
		BNE	GIMOUT
		CMP	PROMPT	 	;IS PROMPT SET TO IMMEDIATE MODE?
		BNE	GIMOUT	 	;BRANCH IF NOT.
DFOUT5A	EQU	*
		JSR	SAVREGS
		LDA	OPENCNT	 	;ELSE, DETERMINE IF 'FILES OPEN' WARNING NEEDED.
		BEQ	DFOUT6	 	;BRANCH IF NO FILES OPEN.
		JSR	CLRFBUF
		STA	OFILACTV
		JSR	SNORMIO	 	;ELSE, PRINT WARNING!!!
		LDA	#FILSOPN
		JSR	PRINTERR	 
DFOUT6	JSR	RSTREGS	 	;RESTORE ']' THAT WAS TRASHED.
GIMOUT	JMP	IMOUT
*
DFIGNORE	PLA				;RESTORE CHARACTER
		CMP	#$8D
		BNE	DFIGNR1	 	;BRANCH IF NOT CARRAGE RETURN
		CMP	CHRLAST	 
DFIGNR1	STA	CHRLAST	 
		BNE	DFIGNR2
		STA	PROMPT
DFIGNR2	RTS				;NO OUTPUT.

	TITLE	'TOKENS'
*************************** TOKENS *******************************
TOKEN0	INC	$B9	 		;BUMP HIGH BYTE OF CHARGET PTR.
		BNE	TOKEN1	 	;BRANCH ALWAYS.
TOKENS	INC	$B8	 		;BUMP LOW BYTE OF CHARGET PTR.
		BEQ	TOKEN0	 	;BRANCH IF PAGE CROSS.
TOKEN1	EQU	*
		LDX	#$FF
		STX	PROMPT	 	;Save for error detection in DFOUT routines
		LDX	$F8	 		;FIRST RESET STACK FOR APPLESOFT.
		TXS
		BIT	DTRACE	 	;IS TRACE MODE REALLY ACTIVE?
		BMI	DOTRACE	 	;BRANCH IF IT IS.
TOKEN2	LDY	#0		 	;GET NEXT TOKEN.
		LDA	($B8),Y
		BMI	TOKEN3	 	;BRANCH IF REAL TOKEN.
		BEQ	GTOKEN
LETTOK1	DEC	STRINGS	 	;CHECK FOR GARBAGE COLLECT NEEDED
		BNE	TOKEN2A	 	;BRANCH IF NO NEED YET.
		LDA	STRBOT+1	 	;RESET CHECKER.
		SBC	ENDVAR+1	 
		CMP	#3	 		;IS IT WITHIN 2 PAGES OF GARBAGE COLECTION?
		BCS	TOKEN2B	 	;BRANCH IF NOT.
		JSR	CLRFBUF	 	;SAVE CURRENT FILE STUFF.
		JSR	COLLECT	 	;DO GARBAGE COLLECTION.
		LDA	STRBOT+1	 	;FIGURE OUT HOW MANY PAGES LEFT.
		SBC	ENDVAR+1	 
TOKEN2B	STA	STRINGS	 	;SAVE NEW COUNT.
		LDY	#0
		LDA	($B8),Y	 	;GET TOKEN AGAIN.
TOKEN2A	CMP	#$3A	 		;SET STATUSES.
GTOKEN	JMP	$D820	 		;GO EXECUTE IN APPLESOFT.
* 
TOKEN3	STA	PROMPT	 	;SAVE TOKEN IN PROMPT.
		TAY				;INDEX TO TOKEN TABLE.
		LDA	TOKTBL-$80,Y	;IF NEGATIVE, PASS IT THRU.
		BMI	GTOKEN	 	;BRANCH IF UN TRAPPED TOKEN.
	SPACE 2
	TITLE	'TOKEN DISPATCHER'
****************************** TOKEN DISPATCHER ****************************	
		STA	GO+1	 		;* * * * SELF MODOIFING CODE.
GO		BNE	PRINT	 		;DESTINATION CHANGED BY PRECEEDING INSTUCTION.
*
IF		EQU	*
PRINT		STA	PROMPT	 	;RESET PROMPT TO INDICATE PRINT ACTIVE.
		STA	CHRLAST
		LDA	CKDADDR	 	;RESET OUTPUT HOOK TO CHECK
		STA	VSYSIO	 	;FOR A CTRL-D BEING OUTPUT NEXT.
		LDA	CKDADDR+1
		STA	VSYSIO+1
		BNE	TOKEN4	 	;BRANCH ALWAYS TAKEN.
*
LIST		LDA	#1	 		;INDICATE LIST ACTIVE.
		STA	PROMPT
		BNE	TOKEN4	 	;BRANCH ALWAYS.
*
CALL		LDA	#2
		STA	PROMPT	 	;INDICATE CALL ACTIVE.
		BNE	TOKEN4	 	;BRANCH ALWAYS
*
LET		TYA				;RESTORE LET TOKEN.
		JMP	LETTOK1	 	;LET INVOKES A CHECK FOR GARBAGE COLLECT.
*
TRACE		STY	DTRACE	 	;SET TRACE MODE ON.
		BNE	TRACEON	 	;BRANCH ALWAYS.
NOTRACE	STA	DTRACE	 	;SET TRACE OFF. 
		DEY				;PASS TRACE token instead of NOTRACE, to keep us in the Hook.
TRACEON	LDA	#$4A	 		;SO TRACE FLG = $A5 AFTER 1 SHFT IN BY APSFT.
		STA	ZTRACE
TOKEN4	TYA				;RESTORE ORIGINAL TOKEN.
		JMP	$D820	 		;LET APPLESOFT EXECUTE IT. (JSR GONE3 at end of NEWSTT) 
RESUME	LDA	#0
		STA	ASERR	 		;CLEAR APPLESOFT ERROR CODE ON RESUME.
		TYA
		BNE	TOKEN2A	 	;BRANCH ALWAYS
*
DOTRACE	JSR	SNORMIO	 	;SET I/O HOOKS TO ALLOW
		LDA	#$A3	 		;CHARACTER OUTPUT.
		JSR	GOCSWL
		LDX	$75	 		;THIS SECTION COPIED FROM APPLESOFT.
		LDA	$76
		JSR	$ED24
		LDA	#$A0
		JSR	GOCSWL
		JSR	SSYSIO	 	;RESTORE NORMAL HOOKS TO PRODOS.
		SEC
		JMP	TOKEN2	 	;RESUME WITH TOKEN EVALUATION.
*
FLASH		LDA	#$E3	 
		BNE	FLASH1
NORMAL	EQU	*
INVERSE	LDA	#$A3
FLASH1	STA	TRCIMG
		TYA
		BNE	TOKEN2A	 	;Always...
		DC.B	$00	 		; Never
*
TRCIMG	DC.B	$A3
	SPACE 2
	TITLE	'SAVE REGISTERS'
************************** REGISTERS AND STATE ************************
SAVREGS	STA	PREGA
		STX	PREGX
		STY	PREGY
		RTS
*
RSTREGS	LDA	PREGA
		LDX	PREGX
		LDY	PREGY
		RTS
*
SETSTATE	STX	STATE	 		;SAVE STATE #. 
		LDY	#0	 		;MOVE I/O ADDRESSES TO VECTORS 'VSYSIO'.
SSTATE	LDA	SYSIO,X
		STA	VSYSIO,Y
		INX
		INY				;MOVE	 4 Bytes; 2 Input, 2 Output 
		CPY	#4
		BNE	SSTATE
		RTS	;ALL	 DONE.
	SPACE
	TITLE 'PRINT ERRORS'
******************PRINT ERRORS****************************
* PRINTERR Prints the ASCII Error Message for the Error Code 
*   passed to it in the Accumulator.  All Registers are used. 
**********************************************************
		EXPORT PRTERROR
PRTERROR	TAY				;GET ERROR # INTO Y 
		LDX	ERRTBL-2,Y	 
PRCOPYRT	JSR	CONSTR	 	;CONSTRUCT THE ERROR MESSAGE IN 'INBUF1'
		LDX	INPTR	 		;GET STRING LENGTH
		STX	STRLEN	 	;SAVE IT.
		JSR	CROUT
		LDA	#BELL	 		;BEEP THE BEEPER FIRST.
		JSR	COUT
*
PRTLINE	LDX	#0	 		; PRINT ERROR MESSAGE TO OUTPUT DEVICE
PRTLIN1	LDA	INBUF1,X	 	;PRINT 'STRLEN' CHARACTERS.
		JSR	COUT
		INX
		CPX	STRLEN	 	;DONE?
		BCC	PRTLIN1	 	;BRANCH IF NOT.
CROUT		LDA	#$8D	 		;END WITH CARRAGE RETURN.
COUT		JMP	GOCSWL	 
	SPACE
CONSTR	LDY	#0	 		;CONVERT ENCODED MESSAGE TO ASCII
		CLC				;INDICATE UPPER NYBBLE TO BE PROCESSED.
		STY	INPTR
CONSTR1	EQU	*
		JSR	GETNIB	 	;FETCH NEXT 4-BIT CHARACTER.
		BNE	STSTR	 		;BRANCH IF MOST OFTEN KIND.
		JSR	GETNIB	 	; OTHERWISE, IT'S A LESS POPULAR CHARACTER.
		ORA	#$10	 		; SHIFT TO LESSER USED CHARACTERS.
	SPACE
STSTR		TAY				;INDEX TO ASCII EQUIVALENT.
		LDA	EASCON-1,Y
		BEQ	CONSTR2	 	;BRANCH IF LAST CHARACTER PROCESSED. 
		LDY	INPTR	 		; OTHERWISE, SAVE IN 'INBUF1' 
		STA	INBUF1,Y	 
		INC	INPTR	 		;BUMP INPTR FOR NEXT TIME. 
		BNE	CONSTR1	 	;BRANCH ALWAYS.
CONSTR2	RTS				;ALL DONE...
	SPACE
GETNIB	EQU	*
		LDA	ERRSTR,X	 	;GET CURRENT BYTE
		BCS	SECND	 		;BRANCH IF LOWER NYBBLE.
		BEQ	STRCOL	 	;BRANCH IF COLUMN NUMBER ENCOUNTERED.
		LSR	A
		LSR	A
		LSR	A
		LSR	A
		SEC
		RTS				;INDICATE UPPER NYBBLE
	SPACE
STRCOL	INX				;INDEX TO COLUMN VALUE
		LDA	ERRSTR,X
		STA	INPTR
		INX				;BUMP	 TO NEXT NORMAL CHAR.
		BNE	GETNIB	 	;BRANCH ALWAYS TAKEN.
	SPACE
SECND		INX
		AND	#$F
		CLC				;INDICATE LOWER NYBBLE. 
		RTS
	SPACE
WRT256	LDA	#0	 		;WRITE ALL 256 BYTES OF TEMP TEXT
		LDY	#1	 		; BUFFER (AT HIMEM), MLI WRITE SET BY WRITE
		BNE	CLEARBF1	 	; AND APPEND COMMANDS (BRANCH ALWAYS)
	SPACE
CLRFBUF	JSR	CLEARBUF	 	;CLEAR ANY LEFTOVER TEXT
		BCC	GOODCLR	 	; FROM TEMP BUFFER.
		TAY				;SAVE	 ERROR IN Y FOR NOW.
		PLA				;FIX STACK
		PLA
		TYA
		JMP	DFERROR	 	;REPORT ERROR
	SPACE
CLEARBUF	LDY	#0	 		;WRITE LESS THAN 256 BYTES FROM TEMP
		LDA	TBUFPTR	 	; TEXT BUFFER.
		BEQ	CLEARBF2	 	;BRANCH IF NOTHING TO WRITE.
CLEARBF1	STA	RWCOUNT
		STY	RWCOUNT+1
		LDA	#WRITCMD	 	;WRITE TO FILE SET UP IN MLI
		JSR	GOSYSTEM	 	; CALL PARMS BY WRITE OR APPEND CMDS.
		PHA				;SAVE ANY ERROR.
		LDA	#0	 		;ALWAYS CLEAR TBUFPTR.
		STA	TBUFPTR
		PLA
		BCS	CLRBFERR	 	;RETURN ERRORS.
CLEARBF2	CLC
GOODCLR	EQU	*
CLRBFERR	RTS

	TITLE 'APPLESOFT GARBAGE COLLECTION'
*********************************************************
*          APPLESOFT GARBAGE COLLECTION ROUTINE         * 
*                                                       *
*  Subroutines used are:                                *
*      MOVBUF, SIMPLE, ARRAY, MVSTR                     * 
*                                                       *
*  Variables and Temps used:                            *
*      MEMTOP, MEMBOT, GPBUF, FROM, STRBOT, GARBOT,     *
*      END.LO, TO, SIMPTR, ARRPTR, VPTR, ENDVAR,        *
*      GARTOP, BUFBOT                                   *
*                                                       *
*  On Entry:                                            *
*     MEMTOP = "HIMEM", must be Greater than or Equal   * 
*                       to Applesoft HIMEM.             *
*     MEMBOT = End of Variable SPACE if called from     * 
*              GETBUF or beginning of a program for     *
*              STORE and CHAIN.                         *
*     GPBUF = Page address of 1K general purpose Buffer *
*               SPACE .SIMPTR, ARRPTR, ENDVAR are       * 
*            Applesoft zero-page values.                *
*                                                       *
*  On Exit:                                             * 
*     The Carry is Set if a MEMFUL Error has occurred.  * 
*     All Registers are used.                           *
*                                                       *
*********************************************************                                                       * 
*      Variable's names have two bytes.  They also      *
*   serve to identify the type of variable.             *
*                                                       * 
*         Type             sign of     sign of          * 
*                           byte 1      byte 2          * 
*      INTEGER                -           -             *
*         REAL                +           +             *
*       STRING                +           -             *
*     USER DEF                -           +             *
*                                                       *
*********************************************************
COLLALL	JSR	COLLECT	 
		BCS	RTNERR	 	;BRANCH IF ERROR
		LDA	BEGPROG+1
		STA	MEMBOT+1	 
		LDA	BEGPROG
		STA	MEMBOT
		LDA	HIMEM+1	 
		STA	GPBUF
		LDA	#3
		STA	BUFLEN
		LDA	STRBOT+1
		STA	MEMTOP+1
		LDA	#$00	 
		STA	MEMTOP
		JSR	GARB2	 		;NOTE ENTRY REQUIREMENTS 
RTNERR	RTS
	SPACE
COLLECT	EQU	*
		LDA	#0	 
		STA	MEMBOT
		LDA	#3	 
		STA	BUFLEN
		LDA	HIMEM+1	 	;BUFFER DEFAULTS TO HIMEM THRU HIMEM+$3FF
		STA	GPBUF
		LDA	STRBOT+1	 
		STA	MEMBOT+1
		SEC
		SBC	ENDVAR+1
		CMP	#7
		BCC	GOGARB
		SBC	#3	 
		STA	BUFLEN
		LDA	ENDVAR+1
		ADC	#0
		STA	GPBUF
		LDA	HIMEM+1	 	;NOW TEST FOR MAXIMUM BUFFER NEEDED.
		SBC	STRBOT+1
		ADC	#1	 		;THROW IN AN EXTRA PAGE FOR GOOD MEASURE...
		CMP	BUFLEN	 	;IS CURRENT BUFFER LENGTH OVERKILL?
		BCS	GOGARB	 	;BRANCH IF NOT.
		STA	BUFLEN	 	;OTHERWISE REDUCE TO MINIMUM PAGE COUNT.
GOGARB	EQU	*
		LDA	HIMEM+1	 	;Set Top of Memory to HIMEM
		STA	MEMTOP+1
		LDA	HIMEM
		STA	MEMTOP
		STA	STRBOT	 	;Bottom of collected strings
GARB2		CLC				;ANTICIPATE	 THAT THIS IS ON A PAGE BOUNDARY
		BEQ	G10	 		;BRANCH IF ASSUMPTION CORRECT
		SEC				;MAKE	 COLLECT COVER ALL OF HIGH PAGE TOO.
G10		LDA	MEMTOP+1	 
		STA	STRBOT+1
		SBC	#0	 		;ADJUST FOR TOP PAGE NEEDED TO BE MOVED
		STA	GARBOT	 	;SAVE INITIAL HI ADR OF GARBAGE WINDOW
		ADC	#0	 		;(CARRY IS SET, SO ADD 1)
		STA	GARTOP
		LDA	ENDVAR+1	 	;SET LOWEST MEM FOR GARBAGE TO GET.
		ADC	#1
		STA	MEMCHK
*
GARLOOP	EQU	*	 		;SET UP INITIAL POINTERS TO SIMPLE
		LDA	SIMPTR	 	; AND ARRAY VARIABLE TABLES.
		SBC	#6	 		;(SEE "SIMPLE" ROUTINE ,CARRY ASSUMED CLR)
		STA	VPTR
		LDA	SIMPTR+1
		SBC	#0
		STA	VPTR+1
		LDA	ARRPTR
		STA	END_LOW
		LDA	GARBOT	 	;NOW ADJUST GARBOT AND BUFBOT TO GET
		CMP	MEMBOT+1	 	; MAX WINDOW FOR GARBAGE COLLECT
		BCC	GARDONE	 	;BRANCH IF ALL COLLECTED.
		SBC	BUFLEN	 	;ADJUST BY BUFLEN PAGES TO OVERLAP
		STA	BUFBOT
		LDA	STRBOT+1	 	;NOW CALC NEW GARBOT 
		SBC	GARBOT		;(ASSUMES CARRY SET)
		SBC	BUFBOT		;(ASSUMES CARRY SET)
		EOR	#$FF	 		;COMPLIMENT AND ADD 2
		ADC	#2	 		;(ASSUMES CARRY CLEAR)
		CMP	BUFBOT	 	;GARBOT MUST BE LT OR EQ TO BUFBOT.
		BCC	G20
		LDA	BUFBOT
G20		CMP	MEMBOT+1	 	;OR MAY ONLY BE 1 PAGE LOWER THAN MEMBOT
		BCS	G30
		LDA	MEMBOT+1
		SBC	#0	 		;SUBTRACT 1 (CARRY WAS CLR)
G30		STA	GARBOT
		JSR	MOVBUF	 	;GO PRESERVE TOP 1K OF GARBAGE WINDOW
		LDX	ARRPTR+1
		JSR	SIMPLE	 	;COLLECT THE SIMPLE STRINGS IN THE WINDOW
		BCS	GARERR	 	;BRANCH IF MEMORY FULL ERROR.
		JSR	ARRAY	 		;GO COLLECT ARRAY STRINGS.
		LDA	GARBOT
		STA	GARTOP
		BCC	GARLOOP	 	;BRANCH IF NO ERRORS
*
GARERR	LDA	#MEMFUL	 	;REPORT MEMORY CONFLICT
*
GARDONE	RTS
	SPACE
	TITLE 'STRING VARIABLES'
*********************************************************
*                                                       *
*    Simple String Variable Search and Collection       * 
*                                                       *
*********************************************************
SIMPLE	CLC
SIMPLE1	LDA	VPTR	 		;ADJUST TO NEXT VARIBLE IN TABLE
		ADC	#7
		STA	VPTR
		BCC	SIMP10
		INC	VPTR+1	 	;ADJUST HI ADDR IF NECESSARY
SIMP10	EOR	ARRPTR	 	;END OF SIMPLE VARIABLES?
		BNE	NEXTS	 		;CONTINUE IF NOT.
		CPX	VPTR+1
		BEQ	SIMDONE	 	;ALL DONE IF MATCH.
*
NEXTS		LDY	#0	 		;INDEX TO FIRST CHAR OF VAR NAME
		LDA	(VPTR),Y	 	;TO BE STRING, FIRST MUST HAVE
		INY				; MUST HAVE HI BIT SET.
		EOR	(VPTR),Y
		BPL	SIMPLE	 	;NO NEXT VAR IF THIS ONE NOT STRING
		LDA	(VPTR),Y	 	;Check if its a DEF 
		BPL	SIMPLE
		LDY	#4	 		;INDEX TO HI BYTE OF POINTER TO STRING
		LDA	(VPTR),Y
		CMP	GARBOT	 	;DOES THIS STRING FIT IN CURRENT WINDOW?
		BCC	SIMPLE1	 	;BRANCH IF NOT
		CMP	GARTOP	 	;HAS IT ALREADY BEEN PROCESSED?
		BCS	SIMPLE
		JSR	MVSTR	 		;GO MOVE THE STRING.
		BCC	SIMPLE1	 	;BRANCH IF NO ERROR.
		RTS
*
ARRDONE	EQU	*
SIMDONE	CLC				;INDICATE NO ERROR.
		RTS
*
	TITLE 'ARRAY STRING VARIBALES'
*********************************************************
*                                                       *
*     Array String Variable Search and Collection       * 
*                                                       *
*********************************************************
ARRAY		JSR	CALCARR	 	;CALCULATE POSITION OF NEXT ARRAY.
		BCS	ARRDONE	 	;BRANCH IF FINISHED.
*
ELEMENT	LDY	#2	 		;INDEX TO HI ADDR OF STR POINTER
		LDA	(VPTR),Y
		CMP	GARBOT	 	;IS IT LOWER THAN WINDOW?
		BCC	NEXTE	 		;BRANCH IF IT IS.
		CMP	GARTOP	 	;HAS IT ALREADY BEEN COLLECTED?
		BCS	NEXTE	 		;BRANCH IF IT HAS
		JSR	MVSTR	 		;GO COLLECT IT IF IT HASN'T!
		BCC	NEXTE1
		RTS				;REPORT MEMORY FULL ERROR.
*
NEXTE	CLC
NEXTE1	LDA	#3
		ADC	VPTR	 		;ADJUST TO NEXT ARRAY ELEMENT.
		STA	VPTR
		BCC	ARRTEST	 	;BRANCH IF HI BYTE NEEDS NO ADJUSTMENT.
		INC	VPTR+1
ARRTEST	CMP	END_LOW	 	;DONE WITH THIS ARRAY?
		BNE	ELEMENT
		CPX	VPTR+1	 	;CHECK HI BYTE FOR DONE.
		BNE	ELEMENT	 	;BRANCH IF MORE ELEMENTS
		BEQ	ARRAY	 		;ALWAYS 
	SPACE
****************************************************
*    Calculate Pointer to next String Array        *
****************************************************
CALCARR	CLC
		LDA	END_LOW	 	;TEST FOR END OF ARRAY VARIABLES
		STA	VPTR
		STX	VPTR+1
		EOR	ENDVAR	 	;END OF VAR TABLE ?
		BNE	NEXTA	 		;NO DO NEXT ARRAY
		CPX	ENDVAR+1	 
		BEQ	CARRDNE	 	;BRANCH IF END OF TABLE (CARRY SET).
NEXTA		LDY	#2	 		;INDEX TO OFFSET OF NEXT ARRAY
		LDA	(VPTR),Y
		ADC	VPTR	 		;ADD TO CURRENT POINTER.
		STA	END_LOW
		INY
		LDA	(VPTR),Y
		ADC	VPTR+1	 
		TAX
		LDY	#0	 		;NOW CHECK FOR STRING ARRAY
		LDA	(VPTR),Y	 	;FIRST CHAR MUST HAVE HI BIT OFF
		INY
		EOR	(VPTR),Y
		BPL	CALCARR	 	;SECOND MUST HAVE HI BIT SET.
		LDY	#4	 		;NOW INDEX TO # OF DIMENSIONS.
		LDA	(VPTR),Y	 	; AND CALC POINTER TO FIRST ELEMENT.
		ASL	A
		ADC	#5			 ;(CARRY ASSUMED CLR)
		ADC	VPTR	 		;(CARRY ASSUMED CLEAR)
		STA	VPTR
		BCC	CARRDNE	 	;BRANCH IF HI POINTER NEEDS NO ADJUSTMENTS.
		INC	VPTR+1
		CLC
CARRDNE	RTS
	SPACE
	TITLE 'MOVE BUFFERS'
****************** MOVE BUFFERS *********************
*     Moves Data from page BUFBOT to GPBUF.         *
*     Moves 256 * BUFLEN.                           *
*****************************************************
MOVBUF	EQU	*
		LDA	BUFBOT
		STA	FROM+1	 	;SET UP SOURCE'S START PAGE.
		LDA	GPBUF
		STA	TO+1	 		; AND DESTINATION ADDRESS.
		LDY	#0	 		;ALWAYS ON A PAGE BOUNDARY.
		STY	FROM
		STY	TO
		LDX	BUFLEN	 
		INX
MVBUF		LDA	(FROM),Y	 	; MOVE BUFLEN PAGES.
		STA	(TO),Y
		INY
		BNE	MVBUF
		INC	TO+1
		INC	FROM+1
		DEX
		BNE	MVBUF	 		;BRANCH IF MORE PAGES TO MOVE.
		RTS
	SPACE
	TITLE 'MOVE STRING'
***************** MOVE STRING ****************************
*   Routine: MVSTR
*       Move String routine packs strings to STRBOT and 
*       updates the Variable's Pointer. 
**********************************************************
MVSTR		CMP	BUFBOT	 	;(A=HI ADR OF STRING POINTER)
		BCC	MVSTR1	 	;BRANCH IF STRING NOT IN GP BUFFER
		SBC	BUFBOT	 	;CALC CORRESPONDING ADR IN GP BUFFER.
		CLC
		ADC	GPBUF
MVSTR1	STA	FROM+1	 	;STORE HI BYTE OF SOURCE ADR.
		DEY
		LDA	(VPTR),Y	 	;GET LOW ADDRESS
		STA	FROM
		DEY				;NOW CALC NEW STRBOT.
		SEC
		LDA	STRBOT
		SBC	(VPTR),Y
		STA	STRBOT
		INY
		STA	(VPTR),Y	 	;AND UPDATE VARIABLE'S POINTER
		LDA	STRBOT+1
		SBC	#0
		STA	STRBOT+1
		INY
		STA	(VPTR),Y	 	;ADJUST HI BYTE TOO
		DEY				;NOW GET STRING'S LENGTH
		DEY
		LDA	(VPTR),Y
		BEQ	STRDONE	 	;BRANCH IF NUL STRING.
		TAY				;AND	 USE AS AN INDEX.
MVSTR2	DEY
		LDA	(FROM),Y	 	;NOW ACTUALLY MOVE THE STRING
		STA	(STRBOT),Y
		TYA
		BNE	MVSTR2		 ;This can't be a BPL since length may be >127 chrs 
STRDONE	CLC
		LDA	MEMCHK	 	;CHECK FOR POTENTIAL OUT OF MEMORY ERROR.
		SBC	STRBOT+1
		RTS				;IF CARRY SET THEN OUT OF MEMORY.
	SPACE

	TITLE	'BUFFER MANAGEMENT'	 
**************** BUFFER MANAGEMENT ************************
*
* GETSYSBUF sets Applesoft's HIMEM down 1K (4 pages) and returns  
*   a system buffer at the old HIMEM address.  The 1K    SPACE  above 
*   HIMEM is always reserved for the CI's temporary work   SPACE  
*   (used for garbage collection, and temporary system buffers). 
*
*************************************************************
GETSYSBUF	LDA	#4	 		;Allow for 4 pages
GETSYSMEM	STA	PAGES
		JSR	COLLECT	 	;COLLECT APPLESOFT'S STRINGS.
		BCS	GSBERR	 	;BRANCH IF MEMORY IS FULL.
		LDA	STRBOT+1	 	;NOW MAKE SURE THAT 1K IS AVAILABLE.
		SBC	ENDVAR+1
		CMP	PAGES	 		;TEST FOR AT LEAST 1K AVAILABLE.
		LDA	#MEMFUL	 	;ANTICIPATE MEMORY FULL.
		BCC	GSBERR		;BRANCH IF IT IS INDEED FULL.
		LDA	STRBOT+1		;PREPARE TO MOVE STRINGS DOWN
		STA	FROM+1		; TO MAKE ROOM FOR A SYSTEM BUFFER.
		SBC	PAGES	 		;(4 PAGES=1K)
		STA	TO+1
		STA	STRBOT+1	 	;MARK NEW STRING BOTTOM.
		LDA	STRBOT
		STA	FROM
		STA	TO
		LDA	HIMEM	 		;CALCULATE HOW MANY BYTES NEED TO BE MOVED.
		SBC	FROM	 		;(CARRY ASSUMED SET).
		STA	CNTLO
		LDA	HIMEM+1
		SBC	FROM+1	 
		STA	CNTHI
		JSR	MOVDOWN	 	;GO MOVE STRINGS.
		LDA	#0	 		;ADJUST STRING VARIABLE POINTERS
		SEC
		SBC	PAGES
		STA	STROFF	 	;STRING ADDRESS ARE ALWAYS ADJUSTED 
		JSR	ADJSTRGS		; BY PAGES, I.E. $XX00 BYTES.
		LDA	HIMEM+1
		STA	OLDHIMEM	 	;SAVE ADDRESS OF OLD HIMEM..
		SEC
		SBC	PAGES	 
		STA	HIMEM+1	 	;Now set HIMEM to HIMEM-PAGES 
		CLC
		ADC	#4
		STA	SYSBUFADR
		RTS				;ALL DONE.
*
GSBERR	SEC				;INDICATE ERROR.
		RTS
	SPACE
	TITLE 'FREE SYSTEM BUFFER'
************************ FRESYSBUF ************************
* FRESYSBUF gives buffer SPACE back to Applesoft. The     *
*   address (high byte) of the buffer should be sent in   * 
*   SYSBUFADR and must be the address of a SYSTEM buffer. * 
***********************************************************
FRESYSBUF	JSR	COLLECT	 	;FIRST PACK APPLESOFT'S STRINGS.
		BCS	FSBERR	 	;BRANCH SHOULD NEVER BE TAKEN.
		LDA	HIMEM+1		 ;PREPARE TO MOVE STRINGS UP 1K.
		SBC	#0	 		;(CARRY CLEAR, SUBTRACT 1)
		STA	FROM+1
		ADC	#3	 		;(CARRY SET, ADD 4)
		STA	TO+1
		LDA	STRBOT
		STA	FROM
		STA	TO
		LDA	HIMEM	 		;SHOULD ALWAYS BE ZERO!
		SEC
		SBC	STRBOT
		STA	CNTLO	 		;CALCULATE HOW MANY BYTES TO BE MOVED.
		LDA	HIMEM+1
		SBC	STRBOT+1
		STA	CNTHI
		JSR	MOVUP	 		;GO MOVE STRINGS...
		LDA	#4	 		;NOW ADJUST STRING VARIABLE POINTERS
		STA	STROFF	 	; TO NEW ADDRESSES.
		CLC				;ALSO	 ADJUST HIMEM.
		ADC	HIMEM+1
		STA	HIMEM+1
		JSR	ADJSTRGS	 	;UPDATE VARIABLE POINTERS.
		LDA	SYSBUFADR	 	;IS BUFFER JUST FREED AT HIMEM?
		CMP	HIMEM+1	 	;IF SO, THEN ALL DONE...
		BEQ	FSBDONE	 	;BRANCH IF DONE.
		PHA				;SAVE	 OLD BUF ADDR FOR NOW.
		LDX	OPENCNT	 	;WE MUST SHUFFLE OTHER BUFFERS TO FREE 1K ABOVE HIMEM.
		BEQ	FSBERRO	 	;SYSTEM DEATH IF NO OTHER BUFFERS!
		LDA	HIMEM+1	 	;FIND BUFFER THATS SITTING AT HIMEM.
FNDLOBUF	CMP	BUFADRS-1,X	 
		BEQ	SWAPBUFS	 	;BRANCH IF FOUND.
		DEX
		BNE	FNDLOBUF		 ;(HOPEFULLY BRANCH ALWAYS!)
*
FSBERRO	PLA				;CLEAN up buf adr from stack
		SEC				;SHOW	 error
FSBERR	RTS				;OUT	 OF MEMORY IF ERROR ENCOUNTERED.
*
SWAPBUFS	PLA				;GET	 FREED BUFFER ADDRESS AGAIN.
GOSBUF	STA	SBUFADR+1	 	;PREPARE MLI CALL 'SETBUF'
		STA	BUFADRS-1,X	 	;UPDATE FILE BUFFER ADDRESS LIST.
		LDA	#0
		STA	SBUFADR
		LDA	REFNUMS-1,X	 	;GET REFNUM FOR BUFFER (AT HIMEM).
		STA	SBUFREF
		LDA	#SBUFCMD
		JSR	GOSYSTEM	 	;(INDIRECT CALL TO MLI)
		BCS	FSBERR	 	;NO ERRORS TOLERABLE!!!
FSBDONE	CLC
		RTS				;ALL DONE FREEING BUFFERS AND SUCH.
	SPACE
	TITLE 'GETPAGES'
************************** GETPAGES *****************************
* GETPAGES allows the creation of a buffer N-pages in size.     *
*  On entry, the number of pages required is in the Accumulator.*
*  It returns the starting page # in the Accumulator.           *
*****************************************************************
		EXPORT GETPAGES
GETPAGES
		JSR	GETSYSMEM	 	;Get a buffer, the Acc=# pages
		BCS	GETPGBK	 	;The Acc will have the Error code
		PHA
		SBC	#3
		STA	OLDHIMEM+1
		PLA
GETPG2	STA	SBUFADR+1
		LDX	OPENCNT	 	;How many files are open?
		BEQ	MVEXEC		 ;None.
		LDA	OLDHIMEM	 	;Get old HIMEM
		CLC
		ADC	#4	 		;  move up 4 pages to next lowest 
		STA	OLDHIMEM	 	;  file buffer
GETPG3	CMP	BUFADRS-1,X	 	;Is that where the file is? 
		BNE	GETPG1
		LDA	SBUFADR+1	 	;Yes,
		JSR	JUGBUF	 	;  juggle the buffers and 
		JSR	GOSBUF	 	;  move it to new location 
		LDA	SBUFADR+1
		ADC	#4
		BCC	GETPG2
GETPG1	DEX
		BNE	GETPG3
MVEXEC	LDA	SBUFADR+1
		BIT	EXACTV	 	;Is there an EXEC file active
		BPL	GOTPAGES	 
MOVEXEC	LDX	#8
		JSR	JUGBUF
		JSR	GOSBUF
		LDA	SBUFADR+1	 	;Get location of new system buffer 
		ADC	#4	 		;Add 4 to get location of requested buffer 
GOTPAGES	CLC
GETPGBK	RTS
	SPACE
	TITLE 'FREPAGES'
********************** FREPAGES *************************
* FREPAGES frees up all the pages claimed by GETPAGES and
*   restores the buffers as they originally were.
*********************************************************
		EXPORT FREPAGES
FREPAGES
		LDA	OPENCNT	 	;How many files are open?
		ASL	A
		ASL	A	 		;Times 4 = # pages of file buffers
		ADC	HIMEM+1
		STA	OLDHIMEM	 	;EXEC & claimed pages live above here 
		LDA	HIMEM+1
		STA	OLDHIMEM+1	 	;Save the value of HIMEM+1
		LDA	RSHIMEM	 	;HIMEM at Boot time
		CMP	HIMEM+1
		BEQ	ALLFREE
		STA	HIMEM+1
		BIT	EXACTV	 	;Is there an EXEC file active?
		BPL	FREPG0	 
		JSR	MOVEXEC	 	;Yes, so move it, mister! 
		BCC	FREPG2
FREPG0	LDA	OLDHIMEM
FREPG1	LDX	OPENCNT	 	;# open files
		BEQ	FREGARB
FREPG3	CMP	BUFADRS-1,X
		BNE	FREPG5
		LDA	HIMEM+1
		JSR	JUGBUF
		JSR	GOSBUF
		SEC
		LDA	OLDHIMEM
		SBC	#4
		STA	OLDHIMEM
FREPG2	LDA	HIMEM+1
		SEC
		SBC	#4
		STA	HIMEM+1
		BCS	FREPG0	 
FREPG5	DEX
		BNE	FREPG3
FREGARB	JSR	COLLECT	 	;Go garbage collect if needed
ALLFREE	CLC
		RTS
JUGBUF	PHA
		LDA	OLDHIMEM+1
		JSR	GOSBUF
		PLA
		RTS
	SPACE
	TITLE 'MOVDOWN'
********************** MOVDOWN ********************************** 
* MOVDOWN moves CNT(HI&LO) bytes from FROM to TO.  Since ranges *
*  may overlap, the lowest byte is moved first, followed by     *
*  the next lowest, etc.                                        *
*****************************************************************
MOVDOWN	LDY	#0
		CPY	CNTHI	 		;IS THIS MOVE LESS THAN ONE PAGE?
		BEQ	MVDWN2	 	;BRANCH IF IT IS.
MVDWN1	LDA	(FROM),Y
		STA	(TO),Y
		INY
		BNE	MVDWN1	 	;LOOP FOR 1 PAGE.
		INC	FROM+1
		INC	TO+1
		DEC	CNTHI
		BNE	MVDWN1	 	;BRANCH IF MORE PAGES TO MOVE.
MVDWN2	CPY	CNTLO	 		;HAVE ALL BYTES BEEN MOVED?
		BEQ	MVDWN3	 	;BRANCH IF DONE.
		LDA	(FROM),Y
		STA	(TO),Y
		INY
		BNE	MVDWN2		;BRANCH ALWAYS TAKEN.
MVDWN3	RTS				;DOES	 ANYONE EVER READ THESE COMMENTS???
	SPACE
	TITLE 'MOVUP'
************************* MOVUP *******************************
*  MOVUP moves CNT(HI&LO) bytes up in memory starting with    *
*    the highest Byte(-1), then next highest, etc., to avoid  *
*    overlap problems.  FROM and TO are initially the highest * 
*    pages of the range.                                      *
***************************************************************
MOVUP		LDY	CNTLO	 		;MOVE PARTIAL PAGE FIRST
CSCMD	BEQ	MVUP2	 			;BRANCH IF NO PARTIAL PAGES
MVUP1		JSR	MOVUP1	 	;(RETURNS Y=0) 
		DEC	TO+1
		DEC	FROM+1
MVUP2		CPY	CNTHI
		BEQ	MVUP3
		DEC	CNTHI
		JMP	MVUP1	 		;Do next page
*
MOVUP1	DEY
		LDA	(FROM),Y
		STA	(TO),Y
		TYA				;DONE	 WITH THIS PAGE?
		BNE	MOVUP1
MVUP3		RTS
	SPACE
	TITLE 'ADJUST STRINGS'
******************** ADJSTRGS ***********************************
* ADJSTRGS adjusts the String Variables pointers by adding
*   STROFF(*$100) to the original values.  If strings are to be
*   adjusted down, say -1K, STROFF should be $100-(4) pages,
*   i.e. $FC.
*****************************************************************
ADJSTRGS	LDA	SIMPTR+1		;SET WORKING POINTER TO VARIABLE TABLE.
		STA	VPTR+1
		LDA	SIMPTR
		LDX	ARRPTR+1		;USE X TO TEST FOR END OF SIMPLE VARS.
		CLC
		BCC	ADJSIMP1		;BRANCH ALWAYS
  	SPACE
****************************************************************** 
* ADJUST SIMPLE STRING POINTERS.
****************************************************************** 
	SPACE
ADJSIMPLE	CLC				;ADD	 7 TO POINT TO NEXT VARIABLE NAME.
		LDA	VPTR
		ADC	#7
ADJSIMP1	STA	VPTR	 		;SAVE NEW POINTER.
		BCC	ADJSIMP2	 	;BRANCH IF HI POINTER ADDRESS OK.
		INC	VPTR+1
ADJSIMP2	EOR	ARRPTR	 	;TEST FOR END OF SIMPLE VARIABLES.
		BNE	ADJSIMP3	 	;BRANCH IF MORE SIMPLES.
		CPX	VPTR+1	 	;TEST HI ADDR TOO.
ADJSIMP3	CLC
		BEQ	ADJARRAY	 	;BRANCH IF DONE WITH SIMPLES.
		LDY	#0
		LDA	(VPTR),Y	 	;TEST FOR STRING VARIABLE TYPE.
		INY
		EOR	(VPTR),Y	 	;RESULT SHOULD BE MINUS IF STRING.
		BPL	ADJSIMPLE	 	;BRANCH IF NOT STRING TYPE.
		LDA	(VPTR),Y
		BPL	ADJSIMPLE	 	;Branch if USER DEF
		INY				;INDEX	 TO STRING LENGTH
		JSR	ADJSTR	 	;ADD IN OFFSET.
		JMP	ADJSIMPLE	 	;DO NEXT SIMPLE.
*
ADJARRAY	LDA	VPTR
		STA	END_LOW	 	;PREPARE TO DO ARRAYS...
ADJARR1	CLC
		JSR	CALCARR	 	;SET UP PTRS TO NEXT STRING ARRAY.
		BCS	ADJSTR1	 	;BRANCH IF ALL DONE FIXIN' STRINGS
ADJARR2	LDY	#0	 		;OTHERWISE, DO THIS ARRAY.
		CLC
		JSR	ADJSTR
		CLC
		LDA	#3	 		;BUMP TO NEXT ARRAY ELEMENT.
		ADC	VPTR
		STA	VPTR
		BCC	ADJARR3	 	;BRANCH IF HIGH ADDRESS OK.
		INC	VPTR+1
ADJARR3	CMP	END_LOW	 	;DONE WITH THIS ARRAY?
		BNE	ADJARR2	 	;BRANCH IF NOT.
		CPX	VPTR+1	 	;TEST HI PTR JUST TO BE SURE.
		BNE	ADJARR2
		BEQ	ADJARR1		 ;BRANCH ALWAYS TO DO NEXT ARRAY.
*
ADJSTR	LDA	(VPTR),Y		 ;TEST STRING LENGTH
		BEQ	ADJSTR1		 ;BRANCH IF NUL STRING.
		INY
		INY
		LDA	SIMPTR+1
		CMP	(VPTR),Y	 	;DON'T ADJUST VARIABLES IN PROGRAM!!
		BCS	ADJSTR1
		LDA	(VPTR),Y	 	;ADJUST HIGH ADDRESS ONLY.
		ADC	STROFF
		STA	(VPTR),Y	 	;SAVE UPDATED.
ADJSTR1	RTS
	SPACE
	TITLE	'Variable (Un)Packing'
************************ Variable (Un)Packing ***************************
* VARPACKER crunches all AppleSoft Variables into one handy
*   package which may be written (as in STORE) to disk or just
*   to allow maximum memory for programs to be READ (as in CHAIN).
*
* The file should include:
*   OVLEN  - Original length of variable table
*   OASTRT - Offset to where Array variables should start
*   OHIMEM - Original HIMEM 
*
* PACKADR should become AUXID and PACKLEN(+5) should become
*   end mark for the file (EOF).
**************************************************************************
VARPACKER	EQU	*
		JSR	COLLALL	 	;GARBAGE COLLECT ALL STRINGS
		BCS	VPRERR	 	;REPORT MEMFULL ERROR.
		LDA	ENDVAR	 	;CALCULATE AND SAVE LENGTH OF VARIABLE TABLE.
		SEC
		SBC	SIMPTR
		STA	OVLEN
		STA	CNTLO
		LDA	ENDVAR+1
		SBC	SIMPTR+1
		STA	OVLEN+1
		STA	CNTHI	 		;ALSO USED AS MOVE COUNT FOR PACKING.
		LDA	ARRPTR	 	;NOW CALCULATE AND SAVE RELATIVE ADDR
		SBC	SIMPTR	 	; OF ARRAY VARIABLES.
		STA	OASTRT
		LDA	ARRPTR+1
		SBC	SIMPTR+1
		STA	OASTRT+1
		LDA	STRBOT	 	;NOW PREPARE TO MOVE VARIABLE
		SBC	CNTLO	 		; TABLE UP TO BOTTOM OF STRINGS.
		STA	TO
		LDA	STRBOT+1
		SBC	#0	 		;(SUBTRACT 1 IF CARRY CLEAR)
		STA	TO+1
		LDA	ENDVAR
		SBC	CNTLO
		STA	FROM
		LDA	ENDVAR+1
		SBC	#0
		STA	FROM+1
	SPACE
	TITLE 'CHAIN/STORE PATCH ENTRY'
************************** CHAIN/STORE FIX BEGIN ******************************
		LDA	#03	 			;Load proper variable
		STA	CSCMD+1			;store it here before chain call
		JSR	MOVUP	 			;go crunch memory
		LDA	#07	 			;Reset variable     
		STA	CSCMD+1	 		;store it here after chain call
************************** CHAIN/STORE FIX END ********************************
		LDA	TO	 		;NOW SAVE BEG. ADDR. OF PACKED VARIABLES.
		STA	PACKADR
		INC	TO+1	 		;MOVUP returns at least 1 page+ moved
		LDA	TO+1
		STA	PACKADR+1
		LDA	HIMEM	 		;AND CALCULATE TOTAL PACKED LENGTH. 
		SEC
		SBC	TO
		STA	PACKLEN
		LDA	HIMEM+1	 	;ALSO PRESERVE ORIGINAL HIMEM ADDRESS.
		STA	OHIMEM
		SBC	TO+1
		STA	PACKLEN+1
		CLC				;INDICATE NO ERROR. 
VPRERR	RTS				;ALL DONE...
	SPACE
	TITLE 'VARUNPACK'
********************** VARUNPACK ******************************
* VARUNPACK unpacks crunched variable packets, overwriting	  *
*   previous values of ARRPTR and ENDVAR.  Also adjusts for   *
*   variations in HIMEM from when it was originally packed.   *
*   May be used immediately after VARPACKER (for CHAIN) or    *
*   after a STORE file is READ into the top of memory (as     *
*   in RESTORE).								  *
* OVLEN, OASTRT, OHIMEM, PACKLEN, and PACKADR must be set up  *
*   before calling. 							  *
***************************************************************
VARUNPACK	EQU	*
		LDA	OVLEN	 		;PREPARE TO MOVE VARIABLE TABLES
		STA	CNTLO	 		;DOWN TO WHERE APPLESOFT
		CLC				;EXPECTS THEM TO BE (SIMPTR).
		ADC	SIMPTR	 	;FIRST CALCULATE WHERE THE END
		STA	ENDVAR	 	;OF THE VARIABLE TABLE WILL BE.
		LDA	OVLEN+1
		STA	CNTHI
		ADC	SIMPTR+1	 	;ADD TABLE LENGTH TO VAR.PTR (LOMEM).
		STA	ENDVAR+1
		LDA	SIMPTR
		STA	TO
		ADC	OASTRT	 	;NOW FIGURE WHERE ARRAYS START.
		STA	ARRPTR
		LDA	SIMPTR+1
		STA	TO+1
		ADC	OASTRT+1
		STA	ARRPTR+1
		LDA	PACKADR	 	;LASTLY SET UP POINTER TO
		STA	FROM	 		; WHERE THE TABLE IS NOW.
		LDA	PACKADR+1
		STA	FROM+1
		JSR	MOVDOWN	 	;GO MOVE TABLES TO PROPER PLACE.
		LDA	CNTLO	 
		CLC
		ADC	FROM	 		;SET STRING BOTTOM FOR THESE STRINGS.
		STA	STRBOT
		LDA	FROM+1
		ADC	#0	 		;(ADDS CARRY)
		STA	STRBOT+1	 
		SEC
		LDA	HIMEM+1	 	;DO STRING POINTERS NEED ADJUSTMENT? 
		SBC	OHIMEM
		BEQ	VUPDONE	 	;BRANCH IF NOT.
		STA	STROFF
		JSR	ADJSTRGS	 	;FIX POINTERS TO STRINGS.
VUPDONE	CLC
		RTS				;VARIABLES	 ALL UNPACKED...
*

	TITLE	'Catalog Entry Syntaxing'
********************* Catalog Entry *************************
* Translate internal directory format to ASCII.  Used for	*
*   CAT, CATALOG and READ (when READing a directory from	*
*   a BASIC program).							*
*										*
* Expected input is a valid directory entry in the CATBUF.  *
*   Translates into the 80-column format.				*
*************************************************************
   SPACE 
CATASC	JSR	SPACAT	 	;FILL INBUF1 WITH 80    SPACE S 
		LDA	#$A2	 		;PLACE A LEADING QUOTE (") IN CASE
		STA	INBUF1-1	 	; THIS IS INPUT STRING TO APPLESOFT.
		LDA	CATBUF	 	;NOW GET THE LENGTH OF THE FILE NAME.
		AND	#$F	 		;STRIP FILE KIND.
		TAY
CATFNAM	LDA	CATBUF,Y	 	;MOVE FILE NAME TO POSITION 1-15 OF INBUF1.
		ORA	#$80	 		;MSB ON FOR APPLE II.
		STA	INBUF1,Y	 
		DEY
		BNE	CATFNAM
		STY	ACCH	 		;CLR TO INSURE GOOD HEX TO DECIMAL CONVERSIONS.
		LDA	CATBUF+$10	 	;TRANSLATE FILE TYPE TO ASCII
		LDX	#TYPNUM-1	 	;# RECOGNIZED TYPES -1 (0 IS OK) 
CTYP		INY
		INY
		CMP	RTYP,X	 	;LOOKUP FILE TYPES WITH ASCII NAMES
		BEQ	CTYP1	 		;BRANCH IF FOUND.
		INY
		DEX
		BPL	CTYP

		LDY	#$13	 		;INSTEAD OF MNUMONIC, OUTPUT HEX VALUE.
		JSR	HEXASC
		BNE	CEOF	 		;BRANCH ALWAYS TAKEN
	
CTYP1		LDX	#2	 		;MOVE FILE TYPE MNUMONIC TO TYPE FIELD. 
		PHA				;SAVE	 TYPE FOR LATER TEST.
CTYP2		LDA	ASCTYP,Y
		STA	INBUF1+$11,X
		DEY
		DEX
		BPL	CTYP2
		PLA				;GET	 TYPE AGAIN.
		BIT	STRLEN	 	;40 OR 80 COLUMN FORMAT?
		BVC	CBLKS	 		;BRANCH IF 40 COLUMN, ELSE FILL IN ALL 80.
		LDY	#$4E
		CMP	#6	 		;IS IT A BINARY FILE?
		BEQ	CATADDR	 	;BRANCH IF YES.
		CMP	#4	 		;IS IT A TEXT FILE?
		BNE	CEOF	 		;BRANCH IF NOT.
		LDA	#$D2	 		;SPECIFY "R" FOR RECORD LENGTH.
		STA	INBUF1+$48	 
		LDA	CATBUF+$1F	 	;TRANSLATE AUXID TO ASCII DECIMAL.
		LDX	CATBUF+$20
		JSR	HEXDEC
		JMP	CAXID2
	SPACE
CATADDR	LDA	#$C1	 		;SPECIFY "A" FOR ADDRESS.
		STA	INBUF1+$48	 
		LDA	CATBUF+$1F
		JSR	HEXASC
		LDA	CATBUF+$20
		JSR	HEXASC
	SPACE
CAXID2	LDA	#$BD	 		;PLACE "=" BEFORE VALUE
		STA	INBUF1+$49	 
CEOF		LDA	CATBUF+$17
		STA	ACCH	 		;CONVERT END OF FILE TO ASCII.
		LDA	CATBUF+$15
		LDX	CATBUF+$16
		LDY	#$46
		JSR	HEXDEC
	SPACE
		LDX	#$18	 		;DO CREATION DATE.
		LDY	#$3D
		JSR	DODATE
	SPACE
CBLKS		LDY	#$1B	 		;CONVERT BLOCK COUNT TO DECIMAL ASCII.
		LDA	CATBUF+$13
		LDX	CATBUF+$14
		JSR	HEXDEC
	SPACE
		LDA	CATBUF+$1E	 	;FETCH ATTRIBUTES
		AND	#$C2	 		;IF ANY OF THESE BITS (DESTROY,
		CMP	#$C2	 		; WRITE OR RENAME) ARE NOT ENABLED,
		BEQ	CDATES	 	; THEN MARK NAME WITH "*", OTHERWISE BRANCH.
		LDA	#$AA
		STA	INBUF1
CDATES	LDX	#$21	 		;LASTLY, DO MODIFICATION DATE AND TIME. 
		LDY	#$2C	 
* DROP INTO DODATE. 
*
DODATE	LDA	CATBUF+1,X	 	;CONVERT DATE AND TIME INTERNAL FORMAT
		LSR	A
		STA	YEAR	 		; TO HUMAN READABLE FORM...
		LDA	CATBUF,X	 	;MONTH/DAY
		PHA
		AND	#$1F
		STA	DAY
		PLA
		ROL	A	 		;COMBINE MONTH INTO ONE BYTE.
		ROL	A
		ROL	A
		ROL	A
		AND	#$F
		BEQ	NODATE	 	;BRANCH IF ILLEGAL DATE.
		CMP	#$D
		BCS	NODATE
		STA	MONTH
		ASL	A	 		;MONTH*3 INDEXES TABLE.
		ADC	MONTH
		STA	MONTH	 		;SAVE IT FOR NOW.
*
		LDA	DAY	 		;MAKE SURE DAY IS VALID.
		BEQ	NODATE
		LDA	YEAR	 		;MAKE SURE YEAR IS VALID.
		CMP	#$64	 		; CANNOT BE > 99
		BCC	DODATE1	 	;BRANCH IF GOOD.
*
NODATE	TYA				;PLACE "<NO DATE>" IN DATE FIELD
		SEC
		SBC	#6
		TAY
		LDX	#8	 
NODATE1	LDA	ASCNODT,X
		STA	INBUF1,Y	 	;
		DEY
		DEX
		BPL	NODATE1
		RTS				;ALL	 DONE WITH NOTHING...
	SPACE

DODATE1	LDA	CATBUF+3,X	 	;GET HOUR
		PHA	;SAVE	 IT.
		LDA	CATBUF+2,X	 	;GET MINUTE.
		LDX	#0	 		;CONVERT IT TO DECIMAL.
		CMP	#$3C	 		;MUST BE < 60
		BCC	DOMINIT
		TXA
DOMINIT	JSR	TWODIG	 	; MUST BE 2 DIGITS.
		LDA	#$BA			;SEPARATE WITH ":"
		STA	INBUF1,Y
		DEY
		PLA
		LDX	#0
		CMP	#$18	 		;HOUR MUST BE < 24.
		BCC	DOHOUR
		TXA
DOHOUR	CMP	#$A	 		;TEST FOR SINGLE DIGIT. 
		PHP
		JSR	HEXDEC
		PLP				;IF SINGLE DIGIT, DEC POSITION OF TEXT POINTER (Y).
		BCS	DOYEAR
		DEY
DOYEAR	DEY
		LDA	YEAR	 		;CONVERT YEAR TO DECIMAL.
		JSR	TWODIG
		DEY
		LDX	MONTH
		INX
		INX
		INX
DOMONTH	LDA	ASCMON-4,X		;MOVE MONTH MNUMONIC.
		STA	INBUF1,Y
		DEY
		DEX
		CPX	MONTH
		BNE	DOMONTH
*
		LDA	#$AD	 		;PLACE "-" BETWEEN DAY-MONTH-YEAR.
		STA	INBUF1,Y
		STA	INBUF1+4,Y
		DEY
		LDA	DAY	 		;LASTLY, DO DAY OF MONTH.
		LDX	#0
		JMP	HEXDEC
*
*
TWODIG	CLC				;TO	 MAKE SURE IT'S 2 DIGITS... 
		ADC	#$64	 		;ADD 100, THEN STRIP THE HUNDREDS COLUMN. 
		JSR	HEXDEC
		INY
		RTS
	SPACE
HEXASC	PHA				;CONVERT	 HEX VALUE IN ACC INTO HEX-ASCII.
		AND	#$F	 		; AND PLACE IT INTO INBUF1 AT Y AND Y-1.
		JSR	HEXASC1
		PLA				;DO	 HIGH NIBBLE TOO.
		LSR	A
		LSR	A
		LSR	A
		LSR	A
*
HEXASC1	ORA	#$B0	 		;ADD IN ASCII "0".
		CMP	#$BA	 		;IS IT A-F RANGE?
		BCC	HEXASC2	 	;BRANCH IF NOT.
		ADC	#6	 		;IF SO, MAKE IT THAT RANGE.
HEXASC2	STA	INBUF1,Y
		DEY
		LDA	#$A4
		STA	INBUF1,Y	 	;ALWAYS PLACE A "$" IN FRONT OF LAST VALUE.
		RTS
*
HEXDEC	STX	ACCM	 		;THIS ENTRY FOR 16 BIT CONVERSIONS
		STA	ACCL
HEXDEC1	JSR	DIVID10	 	;DIVIDE BY 10 AND CONVERT TO MODOULO TO ASCII.
		LDA	MODO
		ORA	#$B0	 		;MAKE IT ASCII 0-9
		STA	INBUF1,Y
		DEY
		LDA	ACCL
		ORA	ACCM	 		;TEST FOR ZERO.
		ORA	ACCH
		BNE	HEXDEC1	 	;BRANCH ALWAYS. 
HEXDEC2	RTS
*
DIVID10	LDX	#$18	 		;FOR 24 BITS.
		LDA	#0	 		;ZERO OUT MODOULO.
		STA	MODO
DIV1		JSR	SHFT24	 
		ROL	MODO
		SEC
		LDA	MODO
		SBC	#$A
		BCC	DIV2
		STA	MODO
		INC	ACCL
DIV2		DEX				;MORE	 BITS?
		BNE	DIV1
		RTS
*
SPACAT	LDA	#$A0	 		;(ALL CHARS HAVE HI BIT SET)
		LDX	#$4F
CATSPC	STA	INBUF1,X	 	;FILL TEXT BUFFER WITH    SPACE S.
		DEX
		BPL	CATSPC
		RTS
	SPACE
	Title 'Command Syntaxing'
***********'Command Syntaxing'*************************************

		EXPORT SYNTAX
SYNTAX	LDA	#$FF	 		;MAKE COMMAND NUMBER INVALID.
		STA	XCNUM
		LDA	#$20	 		;ALLOW LEADING    SPACE S BEFORE COMMAND.
		STA	SKPCHR
		LDA	#$8	 		;LONGEST COMMAND IS 8 CHARACTERS.
		STA	TCNT
		JSR	SCANNER	 	;GRAB FIRST 8 CHARACTERS.
		LDA	TXBUF	 		;TEST FOR ALPHA FIRST CHARACTER.
		CMP	#$41	 		;IS IT AT LEAST "A"?
		BCS	SYNTX1	 	;BRANCH IF IT IS.
		EOR	#$2D	 		;PERHAPS IT'S THE "-" COMMAND.
		BEQ	SYNTX1
SSNERR	JMP	SYNERR1	 	;CONSIDERED BY XDOS AS SYNTAX ERROR IF NOT.
   SPACE 
SYNTX1	JSR	SRCHCMD1	 	;GO LOOK FOR MTR COMMAND 1ST.
		BCS	SSNERR	 	;BRANCH IF IT WASN'T 
		LDA	STATE
		BNE	SYNTX1A	 	;NO CR IF IMMEDIATE MODE.
		LDA	EXACTV
		BNE	SYNTX1A	 	;OR IF FROM EXEC FILE
		JSR	CLEOL
		JSR	CROUT
SYNTX1A	LDA	#0	 		;BUT FIRST, CLEAR 'FOUND PARAMETERS' BYTES.
		STA	FBITS
		STA	FBITS+1
		STA	TXBUF	 		;MAKE FN1 INVALID UNTIL FOUND. 
		STA	TXBUF2
		LDA	DEFSLT	 	;SET UP DEFAULT SLOT AND DRIVE VALUES.
		STA	VSLOT
		LDA	DEFDRV
		STA	VDRIV	 
		LDA	HIMEM+1	 	;ALSO SET DEFAULT SYSTEM BUFFER
		STA	SYSBUFADR
   SPACE 
		LDX	XLEN	 		;NOW SET UP TO SCAN PAST COMMAND.
		INX
		INX
		STX	TCNT
		LDA	PBITS	 		;ANYTHING TO PROCESS?
		BEQ	GCXCUTE	 	;BRANCH IF NOT.
		ASL	A	 		;PROCESS PR# OR IN#?
		BMI	IOSYN	 		;BRANCH IF I/O CMD.
   SPACE 
		JSR	SCANNER	 	;SCAN TO CHARACTER FOLLOWING COMMAND.
		PHP				;SAVE	 RESULT
		PHA
		LDA	PBITS	 		;SHOULD PREFIX BE READ?
		BPL	SYNTX2	 	;BRANCH IF PREFIX NOT NEEDED
		LDA	#GPREFX	 	;GET PREFIX INTO 'TXBUF'
		JSR	GOSYSTEM	 	;NO ERRORS EXPECTED.
SYNTX2	PLA
		PLP
		BEQ	GCXCUTE	 	;BRANCH IF NO PARAMETERS GIVEN.
		CMP	#$2C	 		;WAS A COMMA FOLLOWING COMMAND?
		BNE	SYNTX3	 	;BRANCH FILE NAME POSIBLE. 
		JMP	NOFNAME
   SPACE 
SYNTX3	CMP	#$2F	 		;MUST BE "/" OR ALPHA.
		BEQ	SYNTX4
		CMP	#$41
		BCC	XCUTRUN	 	;SYNTAX ERROR IF not RUN
SYNTX4	DEX				;BACK	 UP ONE IN THE SCAN LINE.
		LDA	#$82	 		;DISABLE 'SKPCHR' (WITH HIGH BIT ON).
		STA	SKPCHR
		LSR	A	 		;MAXIMUM LENGTH OF FILE NAME IS $40+1 FOR TERMINATOR. 
		STA	TCNT
		LDY	#0
		JSR	SCANNXT	 	;MOVE FILENAME TO TEXT BUFFER.
		DEY				;DO NOT INCLUDE TERMINATOR IN FILE NAME LENGTH.
		STY	TXBUF-1	 	;SAVE FILE NAME LENGTH 
		LDA	#FN1	 		;INDICATE THAT A FILE NAME IS GIVEN.
		STA	FBITS
*
*  Now, since Y = length, copy file name as given to second main buffer
*
MVOPNAM	LDA	TXBUF-1,Y	 	; for OPEN, READ, WRITE, CLOSE, and FLUSH.
		STA	TXBUF2,Y
		DEY
		BPL	MVOPNAM
		DEX				;BACK	 UP IN SCAN LINE TO TERMINATOR OF FILENAME.
		JSR	SCANCOM	 	;ONLY COMMA OR CR IS VALID AT THIS POINT.
		BNE	SYNERR	 	;BRANCH IF OTHERWISE.
		BCC	CXCUTE	 	;EXECUTE COMMAND IF CR.
		LDA	PBITS	 		;TEST FOR FN2 (FOR RENAME).
		LSR	A	 		;MAKE SURE FN1 WAS EXPECTED.
		BCS	DOFN2	 		;BRANCH IF IT WAS EXPECTED.
   SPACE
SYNERR	JMP	SYNERR1	 	;REPORT SYNTAX ERROR.
*
XCUTRUN	LDA	XCNUM	 		;Get Command #
		CMP	#CIRUN	 	;Is it RUN?
		BNE	SYNERR	 	;Nope, don't do it, Bozo.
GCXCUTE	JMP	CXCUTE	 	;BRANCH EXTENDER... 
   SPACE
IOSYN		JSR	SCANNER	 	;GET NEXT CHARACTER.
		BEQ	SYNERR	 	;REPORT SYNTAX ERROR IF NO NEXT CHARACTER.
		CMP	#$41
		BEQ	IOADDR	 	;BRANCH IF IT'S AN ADDRESS
		JSR	ZIPACC	 	;CLEAR NUMERIC ACCUMULATOR (A-REG PRESERVED). 
		STY	PBYTES	 	;(Y=0) INDICATE 1 BYTE MAX, I.E. 0-255 
		LDY	#PIOSLT	 	;TELL 'PROCDEC' WHERE TO PLACE RESULT. 
		STY	PCADR
		LDY	#SLOT
		STY	FBITS
		JSR	PROCDEC	 	;PROCESS DECIMAL NUMBER.
		BCS	ANYERR	 	;RETURN ANY ERRORS IMMEDIATELY.
		LDA	VIOSLT	 	;MAKE SURE IT'S IN THE RANGE OF 0-7
		CMP	#$8
		BCC	IOPARM	 	;BRANCH IF GOOD SLOT#..
   SPACE
RANGERR	LDA	#ERRANGE
		SEC
ANYERR	RTS
	SPACE
DOFN2		LSR	A	 		;ARE THERE TWO FILE NAMES?
		BCC	NOFNAME	 	;BRANCH IF NOT.
		JSR	SCANCOM	 	;SKIP    SPACE S AFTER COMMA, IF ANY.
		BEQ	SYNERR	 	;BRANCH IF NO FN2.
		DEX
		LDA	#$82	 		;PREPARE TO MOVE FN2 TO TEXT BUF+$41
		STA	SKPCHR		;STOP	 SCAN IF    SPACE  ENCOUNTERED.
		LDY	#$01	 
		JSR	SCANFN2	 	;GO MOVE FILENAME 2.
		DEY
		DEY
		STY	TXBUF2
		LDA	#FN1+FN2	 	;UPDATE 'FOUND' BITS TO REFLECT BOTH NAMES FOUND.
		STA	FBITS
		DEX				;BACK	 UP SCAN TO TERMINATOR.
		JSR	SCANCOM	 	;MUST BE A COMMA OR CR.
		BNE	SYNERR
		BCC	CXCUTE	 	;EXECUTE COMMAND IF CR.
   SPACE
NOFNAME	JSR	SCANCOM	 	;GET NEXT PARM.
		BEQ	SYNERR	 	;BRANCH IF NO PARM.
IOADDR	JSR	PROCPARM	 	;GO PROCESS PARAMETER.
		BCS	ANYERR	 	;BRANCH IF ERROR ENCOUNTERED.
IOPARM	JSR	SCANCOM	 	;EXPECT TERMINATOR (',' OR CR)
		BNE	SYNERR	 	;BRANCH IF NOT PROPERLY TERMINATED PARAMETER.
		BCS	NOFNAME	 	;BRANCH IF MORE PARAMETERS EXPECTED.
   SPACE 
CXCUTE	LDA	VSLOT	 		;VALIDATE SLOT AND DRIVE PARAMETERS.
		BEQ	RANGERR	 	;SLOT MUST BE >0 AND <8.
		CMP	#8
		BCS	RANGERR
		LDA	VDRIV	 		;DRIVE MUST BE 1 OR 2.
		BEQ	RANGERR
		CMP	#3
		BCS	RANGERR
		LDA	PBITS	 		;TEST RUNFLG AND FILE NAME REQUIREMENTS
		AND	#RRUN+FN1
		LSR	A	 		;SHIFT FILE NAME REQUIRED TO CARRY
		BEQ	CXCUTE00	 	;BRANCH IF NOT RUN-ONLY CMD.
		LDA	RUNFLG	 	;IS PROGRAM RUNNING?
		BNE	CXCUTE00	 	;BRANCH IF SO.
		LDA	#NOTRUN	 	;REPORT "NOT DIRECT COMMAND".
		SEC
		RTS
	SPACE
CXCUTE00	BCC	CXCUTE5	 	;BRANCH IF FILE NAME NOT NEEDED. 
		LDA	PBITS+1	 	;IF NO SLOT & DRIVE NEEDED, NO FILENAME OK.
		AND	#SD
		BEQ	CXCUTE5
		LDA	FBITS
		LSR	A	 		;SHIFT FN1 INTO CARRY
		BCS	CXCUTE1	 	;BRANCH IF PRESENT.
		LDA	PBITS	 		;(IF BIT 7=1, FN1 OPTIONAL).
		AND	#FNOPT+PFIX	 	;IS FILE NAME OPTIONAL?
		BEQ	SYNERR1	 	;BRANCH IF REQUIRED, BUT NOT PRESENT.
		BPL	CXCUTE5	 	;BRANCH NOT REQUIRED AT ALL. 
   SPACE 
CXCUTE1	LDA	TXBUF	 		;IS PATHNAME PARTIAL? 
		EOR	#$2F
		BEQ	CXCUTE2	 	;BRANCH IF FULL PATHNAME.
		LDA	GLBPFX	 	;IF PARTIAL, IS THERE A PREFIX SET?
		BEQ	CXCUTE4	 	;BRANCH IF DEVICE VOLUME NAME NEEDS LOOKUP.
   SPACE 
CXCUTE2	LDA	FBITS+1	 	;WAS SLOT AND/OR DRIVE SPECIFIED?
		AND	#SD
		BEQ	CXCUTE5	 	;BRANCH IF NOT.
		BCS	CXCUTE4	 	;BRANCH IF PATHNAME PRESENT.
		LDA	#0	 		;OTHERWISE, MAKE VOLUME NAME THE PATHNAME
		STA	TXBUF-1
		STA	TXBUF
		LDA	#FN1	 		;CALL IT FILENAME 1
		ORA	FBITS	 
		STA	FBITS
   SPACE 
CXCUTE4	JSR	VOLNAME	 	;DO ON-LINE AND FIX FILENAMES AS NEEDED.
		BCS	ANYERR1	 
   SPACE 
CXCUTE5	LDA	XCNUM	 
		ASL	A	 		;INDEX COMMAND ADDRESS TABLE
		TAX
		LDA	CMDEXEC,X	 	;GET COMMAND EXECUTION ADDRESS.
		STA	EXADR
		LDA	CMDEXEC+1,X
		STA	EXADR+1
		CLC				;ANTICIPATE	 NO 'GETINFO' REQUIRED.
		TXA				;(NOT	 CALLED FOR USER CMD).
		BEQ	CXCUTE6
		EOR	#CIPRFX+CIPRFX	;NOT FOR PREFIX COMMAND EITHER
		BEQ	CXCUTE6
	SPACE
		LDA	PBITS+1	 	;NO 'GETINFO' FOR CMDS WITHOUT S&D PARMS.
		AND	#SD
		BEQ	CXCUTE6
		LDA	FBITS	 		; OR CMDS WITHOUT FILENAMES.
		LSR	A
		BCC	CXCUTE6
   SPACE 
		JSR	GOGETINFO	 	;GET THE POOP ON THIS GUY...
		BCC	CXCUTE6	 	;BRANCH IF FOUND.
		CMP	#REALFNF	 	;IS IT REALLY FNF AND NOT PNF OR VNF?
		BNE	ANYERR1	 	;BRANCH IF OTHER THAN FNF ERROR.
		LDA	PBITS	 		;CHECK FOR CREATE FLAG.
		AND	#CRFLG
		BNE	CXCUTE6	 	;(PASS CARRY SET... BUT EXECUTE.)
		LDA	#CIFNFERR	 	;REPORT PATH NOT FOUND.
		RTS
   SPACE 
CXCUTE6	JMP	(EXADR)	 	;GO EXECUTE COMMAND JUST PARSED...
   SPACE 2
SYNERR1	LDA	#ERRSYN	 
ANYERR1	SEC
		RTS				;RETURN ERROR. 
	SPACE
	Title 'Volname'
	
****************** Volname **********************
* 'VOLNAME' GETS THE NAME OF THE VOLUME		*
* SPECIFIED BY S&D PARAMETERS.  IN THOSE		*
* CASES WHEN A PARTIAL PATHAME IS PRESENT		*
* THE VOLUME NAME IS INSERTED BEFORE THE		*
* PATHNAME TO FORM A COMPLETE PATH.			*
* BOTH FN1 AND FN2 ARE ADJUSTED AS NEEDED.	*
* ON EXIT: CARRY SET INDICATES ERROR, 		*
* WITH ERROR CODE IN ACC.				*
*************************************************
   SPACE 
VOLNAME	LDA	VSLOT	 		;FORM DEVICE NUMBER WITH SLOT/DRIVE PARMS.
		ASL	A
		ASL	A
		ASL	A
		ASL	A
		ASL	A
		PHA
		LDA	VDRIV	 		;DRIVE 1=00,DRIVE 2=80
		EOR	#1	 		;(DRIVE AND SLOT ASSUMED VALID)
		LSR	A	 		;SHIFT TO CARRY
		PLA
		ROR	A	 		;SHIFT TO BIT 7, SLOT IN BITS 4-6.
		STA	SUNITNUM	 	;PREPARE FOR 'ON-LINE' CALL.
		LDA	#<INBUF1
		STA	SDATPTR
		LDA	#>INBUF1
		STA	SDATPTR+1
		LDA	#ONLINCMD
		JSR	GOSYSTEM	 	;GET NAME OF SPECIFIED VOLUME.
		BCS	ANYERR1	 	;REPORT ANY ERRORS.
*
		LDA	VDRIV	 		;IF SUCCESSFUL, SAVE THIS DRIVE
		STA	DEFDRV	 	; AND SLOT AS THE DEFAULTS.
		LDA	VSLOT
		STA	DEFSLT
		LDA	TXBUF	 		;TEST FOR COMPLETE PATHNAME
		EOR	#$2F	 		; ALREADY PRESENT.
		BEQ	GOODVOL	 	;BRANCH IF IT IS.
	SPACE
* INSERT VOLUME NAME IN FRONT OF FN1
	SPACE
		LDA	INBUF1		;GET VOLUME NAME LENGTH.
		AND	#$F
		ADC	#2	 		;ADD 2 FOR LEADING AND TRAILING "/"'S
		STA	INBUF1	 	;SAVE FOR FN2 PROCESS.
		ADC	TXBUF-1	 	;ADD TO CURRENT FILE NAME LENGTH.
		CMP	#$40	 		;TOTAL MUST NOT EXCEED 63.
		TAX				;(CARRY SET MEANS NAME TOO LONG.)
		LDA	#ERRSYN	 	;ANTICIPATE ERROR.
		BCS	VOLNERR	 	;RETURN SYNTAX ERROR IF NECESSARY.
		LDY	TXBUF-1	 	;MAKE ROOM FOR VOLUME NAME.
		STX	TXBUF-1	 	;SAVE NEW LENGTH.
VOLNAM1	DEX
		DEY
		BMI	VOLNAM2	 	;BRANCH IF ALL CHARACTERS MOVED.
		LDA	TXBUF,Y
		STA	TXBUF,X	 
		JMP	VOLNAM1	 	;LOOP TILL ALL CHARS MOVED.
   SPACE 
VOLNAM2	LDA	#$2F	 		;PLACE A "/" AT START AND END
		STA	TXBUF	 		; OF VOLUME NAME.
VOLNAM3	STA	TXBUF,X
		LDA	INBUF1-1,X
		DEX				;MOVE	 VOLUME NAME.
		BNE	VOLNAM3
		LDA	XCNUM	 		;IF CALL IS 'OPEN' LEAVE PN2 ALONE!!
		CMP	#CIOPEN
		BEQ	GOODVOL
		CMP	#CIAPND	 	;APPEND COMMAND
		BEQ	GOODVOL
		CMP	#CIEXEC	 	;(Guess what that is!)
		BEQ	GOODVOL
	SPACE
* INSERT VOLUME NAME IN FRONT OF FN2
	SPACE
		LDA	TXBUF2
		TAY				;SAVE	 OLD LENTH IN Y.
		CLC
		ADC	INBUF1	 	;ADD IN VOLUME NAME LENGHT WITH "/"S.
		CMP	#$40	 		;TOTAL MUST NOT EXCEED 63.
		TAX				;(CARRY SET MEANS NAME TOO LONG.)
		LDA	#ERRSYN	 	;ANTICIPATE ERROR.
		BCS	VOLNERR	 	;RETURN SYNTAX ERROR IF NECESSARY.
		STX	TXBUF2	 	;SAVE NEW LENGTH OF FN2  
VOLNAM4	DEX
		DEY
		BMI	VOLNAM5	 	;BRANCH IF ALL CHARACTERS MOVED.
		LDA	TXBUF2+1,Y
		STA	TXBUF2+1,X	 
		JMP	VOLNAM4	 	;LOOP TILL ALL CHARS MOVED.
   SPACE 
VOLNAM5	LDA	#$2F	 		;PLACE A "/" AT START AND END
		STA	TXBUF2+1	 	; OF VOLUME NAME.
VOLNAM6	STA	TXBUF2+1,X
		LDA	INBUF1-1,X
		DEX				;MOVE	 VOLUME NAME.
		BNE	VOLNAM6	 
   SPACE 
GOODVOL	CLC				;CLEAR CARRY TO INDICATE NO ERRORS
VOLNERR	EQU	*
		RTS

	SPACE
PROCPARM	JSR	ZIPACC	 	;ZERO NUMERIC ACCUMULATOR. 
		LDY	#9	 		;LOOK FOR XDOS NUMERIC PARAMETERS FIRST.
PRCPRM1	CMP	PTOK,Y
		BEQ	PRCPRM2	 	;BRANCH IF FOUND.
		DEY				;TABLE EXHAUSTED?
		BPL	PRCPRM1	 	;BRANCH IF NOT.
   SPACE 
		CMP	#$54	 		;PERHAPS IT IS 'TYPE'.
		BEQ	GETTYP
SYNERR2	JMP	SYNERR1	 
   SPACE 
GETTYP	LDA	#T
		AND	PBITS	 		;MAKE SURE TYPE EXPECTED.
		BEQ	PINVALID	 	;BRANCH IF NOT EXPECTED.
		ORA	FBITS
		STA	FBITS	 		;MARK TYPE SPECIFIED.
		LDA	#0
		STA	PBYTES
		LDA	#PTYPE
		STA	PCADR	 		;SETUP JUST IN CASE NUMERIC SPECIFIED.
		JSR	SCANCOM	 	;GET NEXT CHAR.
		BEQ	SYNERR2	 	;BRANCH IF NO NEXT CHAR.
		CMP	#$24	 		;IS IT HEX?
		BEQ	PROCHEX	 	;BRANCH IF IT IS.
		CMP	#$41	 		;IS IT ALPHA?
		BCC	PROCDEC	 	;ASSUME DECIMAL IF NOT.
		JMP	PROCTYP
   SPACE 
PINVALID	SEC				;INDICATE ERROR.
		LDA	#ERRINVLD	 	;REPORT UNEXPECTED PARAMETER.
		RTS
	SPACE
PRCPRM2	LDA	PTOKBIT,Y	 	;MAKE SURE THIS PARAMETER EXPECTED.
		BEQ	PRCPRM4	 	;BRANCH IF NO BIT TO MARK: I.E. "V" PARM.
		AND	PBITS+1
		BEQ	PINVALID	 	;BRANCH IF PARM NOT EXPECTED. 
		CMP	#SD	 		;SLOT OR DRIVE PARM?
		BNE	PRCPRM3	 	;BRANCH IF NOT.
		AND	FBITS+1	 	;EITHER SLOT OR DRIVE PREVIOUSLY PROCESSED
		BNE	PRCPRM4	 	;BRANCH IF YES.
		LDA	#1	 		;RESET DEFAULT DRIVE TO 1 IN CASE OF
		STA	VDRIV	 		; SLOT SPEC WITHOUT DRIVE.
		LDA	#SD
PRCPRM3	ORA	FBITS+1	 	;INDICATE SPECIFIC PARM FOUND.
		STA	FBITS+1
PRCPRM4	LDA	PCELL,Y	 	;PREPARE TO PROCESS NUMERIC PARM.
		AND	#3
		STA	PBYTES
		LDA	PCELL,Y
		LSR	A
		LSR	A
		STA	PCADR
		JSR	SCANCOM	 	;TEST FOR HEX OR DECIMAL
		BEQ	SYNERR3	 	;TERMINATOR NOT EXPECTED.
		CMP	#$24	 		;ASCII '$' FOR HEX?
		BEQ	PROCHEX	 	;BRANCH IF HEX.
PROCDEC	STX	INPTR	 		;SAVE INDEX TO INPUT LINE.
		JSR	DECHEX	 	;CONVERT DECIMAL TO HEXEDECIMAL.
		BCC	PRCDEC1	 	;BRANCH IF NO ERRORS.
		BMI	RANGERR1
		BCS	SYNERR3	 
PRCDEC1	LDX	INPTR	 		;GET NEXT CHAR.
		JSR	SCANCOM
		BNE	PROCDEC	 	;PROCESS NEXT DECIMAL NUMBER.
		BEQ	PRCPRM5	 	; ELSE, DONE CONVERTING.
   SPACE 
PROCHEX	JSR	SCANCOM	 	;GET FIRST HEX DIGIT.
		BEQ	SYNERR3	 	;REPORT SYNTAX ERROR IF NO HEX DIGITS.
PRCHEX1	STX	INPTR
		JSR	HEXHEX	 	;DO ASCII HEX TO GENUINE BINARY.
		BCC	PRCHEX2	 	;BRANCH IF NO ERRORS
		BMI	RANGERR1
		BCS	SYNERR3	 
PRCHEX2	LDX	INPTR
		JSR	SCANCOM	 	;DO NEXT DIGIT, IF ANY.
		BNE	PRCHEX1
   SPACE 
PRCPRM5	LDX	#2	 		;TEST RANGE.
PRMRANG	CPX	PBYTES	 	;REMAINING BYTES VALID?
		BEQ	PRCPRM6	 	;BRANCH IF THEY ARE
		LDA	ACCL,X	 	;(MUST BE ZERO)
		BNE	RANGERR1
		DEX
		BNE	PRMRANG	 	;TEST NEXT BYTE.
   SPACE 
PRCPRM6	LDY	PCADR	 		;INDEX TO HIGHEST BYTE OF PARAMETER.
PARMOVE	LDA	ACCL,X
		STA	PVALS,Y
		DEY
		DEX
		BPL	PARMOVE	 	;MOVE ALL BYTES OF PARAMETER JUST PROCESSED.
		LDX	INPTR	 
		CLC
		RTS
   SPACE 
SYNERR3	JMP	SYNERR1	 
   SPACE 
RANGERR1	JMP	RANGERR	 
   SPACE 2 
PROCTYP	LDY	#0	 		;FIRST GET ALL THREE BYTES OF SYMBOL. 
GTYP1		STA	ACCL,Y
		INY
		CPY	#3	 		;ALL THREE RECEIVED YET?
		BEQ	GTYP2
		JSR	SCANCOM	 	;MUST NOT BE TERMINATOR.
		BNE	GTYP1	 
		BEQ	SYNERR3	 
   SPACE 
GTYP2		STX	INPTR	 		;SAVE X FOR NOW.
GTYP3		LDX	#0
		LDA	PBYTES
		CMP	#TYPNUM	 	;MNEMONIC NOT FOUND?
		BEQ	SYNERR3	 
		ASL	A	 		;MULTIPLY BY 3
		ADC	PBYTES	 	;TO INDEX ASCTABLE.
		TAY
GTYP4		LDA	ACCL,X
		EOR	ASCTYP,Y	 	;COMPARE MNEMONIC.
		ASL	A	 		;IGNORE HI BIT.
		BNE	GTYP5
		INY
		INX
		CPX	#3	 		;ALL THREE BYTES MATCH?
		BNE	GTYP4	 		;CHECK NEXT IF NOT.
		BEQ	GTYP6	 		;FOUND IT!
GTYP5		INC	PBYTES
		BNE	GTYP3	 		;BRANCH ALWAYS TAKEN.
	SPACE
GTYP6		LDA	#TYPNUM-1	 	;ASCII FILE TYPE FOUND,
		SEC
		SBC	PBYTES	 	; CONVERT TO INTERNAL VALUE.
		TAY
		LDA	RTYP,Y
		STA	PVALS+PTYPE	 	;SAVE IT!
		LDX	INPTR	 		;END BY RETURNING NEXT CHARACTER.
		CLC				;NO	 ERRORS 
		RTS
*
SCANFN2	JSR	SCAN2	 		;GET A CHARACTER.
		STA	TXBUF2,Y	 	;SAVE IT.
		INY
		CMP	#$2C	 		;IS IT A TERMINATOR, SUCH AS COMMA?
		BEQ	SCANDNE	 	;BRANCH IF IT IS.
		CMP	#$20
		BEQ	SCANDNE	 	; OR    SPACE ?
		CMP	#$D
		BEQ	SCNDNE1	 	; OR CARRAGE RETURN?
		CPY	TCNT
		BCC	SCANFN2	 	;BRANCH IF ALLOWED TO MOVE SOME MORE...
		ORA	#0	 		;SET APPROPRIATE FLAGS.
		RTS				;(ONLY	 CR RETURNS EQUAL)
*
SCANNER	LDX	#0	 		;BEGIN SCAN AT THE BEGINNING
		LDY	#0	 		;(NATURALLY...)
SCANNXT	JSR	SCAN2	 		;GET A CHARACTER.
		STA	TXBUF,Y	 	;SAVE IT.
		INY
		CMP	#$2C	 		;IS IT A TERMINATOR, SUCH AS COMMA?
		BEQ	SCANDNE	 	;BRANCH IF IT IS.
		CMP	#$20
		BEQ	SCANDNE	 	; OR    SPACE ?
		CMP	#$D
		BEQ	SCNDNE1	 	; OR CARRAGE RETURN?
		CPY	TCNT
		BCC	SCANNXT	 	;BRANCH IF ALLOWED TO MOVE SOME MORE...
SCANDNE	ORA	#0	 		;SET APPROPRIATE FLAGS.
		RTS				;(ONLY CR RETURNS EQUAL)
   SPACE 2
SCANCOM	LDA	#$20	 		;   SPACE S SHOULD BE IGNORED.
		STA	SKPCHR
		JSR	SCAN2	 		;RETURN NEXT NON    SPACE  CHARACTER.
		CMP	#$2C	 		;SET CARRY AND EQUALS FLAGS IF COMMA.
		BEQ	SCOMDNE
		CMP	#$0D	 		;CLR CARRY AND EQUALS IF CARRAGE RETURN
SCNDNE1	CLC				;OTHERWISE	 'NOT' EQUAL.
SCOMDNE	RTS
   SPACE 2 
SCAN2		LDA	INLINE,X	 	;GET CHARACTER FROM INPUT BUFFER.
		AND	#$7F	 		;STRIP BIT 7.
		CMP	#$61	 		;TEST FOR LOWER CASE ALPHA.
		BCC	NOLOW	 		;BRANCH IF NO UPSHIFT NEEDED.
		AND	#$5F	 		;MAKE IT UPPER-CASE.
NOLOW		INX				;BUMP	 X FOR NEXT TIME.
		CMP	SKPCHR		;SHOULD THIS CHARACTER BE IGNORED?
		BEQ	SCAN2	 		;BRANCH IF IT SHOULD.
		RTS				;ELSE RETURN THE SUCKER.
   SPACE 2 
DECHEX	CMP	#$30	 		;BE SURE ASCII CHAR RECEIVED
		BCC	NODEC
		CMP	#$3A	 		; IS IN THE RANGE OF 0-9.
		BCC	ADDEC1	 	;BRANCH IF IT IS
NODEC		SEC				;INDICATE NO GOOD!
		ORA	#0	 		;INDICATE ORDINARY SYNTAX ERROR. 
		RTS
   SPACE 2
ADDEC1	AND	#$F	 		;STRIP ASCII PART.
		PHA				;SAVE	 IT FOR NOW.
		LDA	ACCH	 		;TEST FOR PROBABLE OVERFLOW.
		CMP	#$1A
		BCS	DECOVR	 	;BRANCH IF TOO BIG!
		LDX	#2
ADDEC2	LDA	ACCL,X	 	;MULTIPLY CURRENT VALUE BY 10
		PHA
		DEX
		BPL	ADDEC2
		JSR	SHFT24	 	;FIRST BY 4.
		JSR	SHFT24
		LDX	#0	 		;ADD IN ORIGINAL TO GET *5
		CLC
ADDEC3	PLA
		ADC	ACCL,X
		STA	ACCL,X
		INX
		TXA
		EOR	#3
		BNE	ADDEC3
		JSR	SHFT24	 	;NOW *2 TO GET *10 TOTAL
DECOVR	PLA				;ADD IN NEW GIVEN VALUE.
		BCS	OVFLOW	 	;RETURN OVERFLOW ERROR.
		ADC	ACCL
		STA	ACCL
		BCC	ADDEC4
		CLC				;INDICATE NO ERRORS EXPECTED.
		INC	ACCM
		BNE	ADDEC4
		INC	ACCH
		BNE	ADDEC4
OVFLOW	LDA	#$FF	 		;SET MINUS FLAG.
		SEC				;AND CARRY FOR ERROR.
ADDEC4	RTS
	SPACE 2
HEXHEX	CMP	#$30	 		;MAKE SURE IN RANGES 0-9 OR A-F.
		BCC	NOHEX
		CMP	#$3A
		BCC	HEXHX2	 
		CMP	#$41
		BCC	NOHEX
		CMP	#$47
		BCC	HEXHX1
NOHEX		SEC
		ORA	#0
		RTS				;CARRY SET, POSITIVE: SYNTAX ERROR.
   SPACE  
HEXHX1	SBC	#6	 		;ADJUST FOR ALPHA HEX.
HEXHX2	AND	#$F
		LDX	#3	 		;MULTIPLY CURRENT NUMBER BY 16.
HEXHX3	JSR	SHFT24
		BCS	OVFLOW	 	;RETURN RANGE ERROR.
		DEX
		BPL	HEXHX3
		ORA	ACCL
		STA	ACCL
		RTS				;(CARRY IS CLEAR).
   SPACE 2
SHFT24	ASL	ACCL
		ROL	ACCM
		ROL	ACCH
		RTS
   SPACE 2
SRCHCMD	LDX	#CMDCNT	 	;# of commands (31 COMMANDS, 0->30) 
		STX	XCNUM	 		;INITIALIZE COMMAND NUMBER.
		LDA	TXBUF	 		;BEFORE TESTING OTHER COMMANDS
		EOR	#$2D	 		;TEST FOR THE "DASH" COMMAND
		BNE	SRCHC0	 	;BRANCH IF NOT.
		INC	XCNUM	 		;BUMP COMMAND # TO $1F
		STA	XLEN
		BNE	FONDCMD	 	;BRANCH ALWAYS (INC XCNUM ABOVE MADE NOT EQUAL).
   SPACE 
SRCHC0	LDY	#8	 		; AND LENGTH OF EACH COMMAND STRING
		STY	XLEN
SRCHC1	LDA	SRCHTBL-1,X	 	;GET INDEX TO COMMAND STRING IN TABLE.
		BPL	SRCHC2	 	;BRANCH IF CURRENT STRING LENGTH IS CORRECT.
		AND	#$7F	 		;STRIP 'NEW GROUP' FLAG.
		DEY
		DEC	XLEN	 		;THIS STRING GROUP IS 1 CHARACTER SHORTER/COMMAND.
SRCHC2	TAX				;INDEX TO COMMAND STRING.
SRCHC3	LDA	TXBUF,Y	 	;COMPARE LASTR CHARCTER FIRST.
		CMP	XCMDS,X
		BNE	SRCHNXT	 	;BRANCH IF NOT COMMAND WERE LOOKING FOR.
		DEX				;BUMP POINTERS TO NEXT LOWER CHARACTER OF BOTH STRINGS.
		DEY
		BPL	SRCHC3	 	;BRANCH IF MORE CHARACTERS TO TEST
FONDCMD	LDA	XCNUM	 		;OTHERWISE, WE'VE GOT A MATCH.
		ASL	A	 		;GET ALLOWED PARAMETER BITS.
		TAX
		LDA	CPBITS-1,X
		STA	PBITS+1
		LDA	CPBITS-2,X
		STA	PBITS
		CLC				;INDICATE	 GOOD COMMAND.
		RTS
   SPACE 2 
SRCHNXT	LDY	XLEN	 		;PREPARE FOR NEXT COMMAND TO COMPARE TO.
		DEC	XCNUM	 		;TRY NEXT LOWER COMMAND NUMBER.
		LDX	XCNUM
		BNE	SRCHC1	 	;LOOP IF MORE TO TEST.
		DEC	XCNUM	 		;OTHERWISE, RETURN COMMAND $FF (NO MATCH!) 
		SEC				;INDICATE COMMAND NOT RECOGNIZED. 
		JMP	EXTRNCMD	 	;TRY EXTERNAL COMMAND.
   SPACE 
ZIPACC	LDY	#0
		STY	ACCL
		STY	ACCM
		STY	ACCH
		RTS

	TITLE	'SMART RUN (-)'	 
*********************** SMART RUN (-) ***********************
* The Dash (spelled "-") Command is a Smart RUN Command that*
*   RUNs BASIC Programs, BRUNs Binary Programs, EXECs Text  *
*   Files, and launches other Interpreter (SYSTEM) Files. 	*
* This should include S16 Files from GS/OS 
*************************************************************
	SPACE
DASH		LDA	FIFILID	 	;WHAT KIND OF FILE IS IT?
		CMP	#TBAS	 		;IS IT BASIC?
		BEQ	RUN	 		;BRANCH IF BASIC.
		CMP	#TBIN	 		;IS IT BINARY?
		BEQ	DASH3	 
   SPACE 
		CMP	#TTXT	 		;IS IT A TEXT FILE?
		BNE	DASH2	 		;BRANCH IF NOT.
		JMP	EXEC	 		;JUMP IF TEXT.
   SPACE 
DASH2		CMP	#TSYS	 		;LASTLY, IS IT ANOTHER INTERP FILE?
		BEQ	DASHSYS	 	;BRANCH IF IT IS!
		CMP	#TS16			;Is it a GS/OS File
		BEQ	DASHSYS		;BRANCH IF IT IS!
		LDA	#ERRTYP	 	;REPORT INVALID FILE TYPE.
		SEC
		RTS
   SPACE  
DASHSYS	PHA				;Added to handle either P8 or P16 files
		JSR	CLOSALL	 	;CLOSE ALL OPEN FILES FIRST.
		JSR	CLSEXEC	 	;CLOSE EXEC FILES TOO.
		LDA	#0	 		;SET "BLOAD" ADDR.
		STA	VADDR
		STA	MEMTABL+$13
		STA	MEMTABL+$14	 	;(ALSO CLEAR MEMTABLE BITS) 
		STA	MEMTABL+$15
		STA	MEMTABL+$16
		LDA	#1
		STA	MEMTABL+$17
		LDA	#$20	 		; AT A$2000
		STA	VADDR+1
		PLA				;Reset Filetype to TSYS or TS16
		CMP	#TSYS			;Is it a P8 File
		BNE	DASH4			;No so go to bye, else fall through and complete
		STA	VTYPE
		LDA	#AD	 		;INDICATE THESE PARMS ARE SPECIFIED.
		STA	FBITS+1
		LDA	#FN1+T
		STA	FBITS
DASH3		JMP	DASHBIN	 	;GO EXECUTE "BRUN" FILE.
DASH4		SEC				;set carry
		JSR	$FE1F			;Look at ID Routine
		BCS	DASH3			;Not a GS so give error
DASH5		JMP	BYE1			;goto bye command is GS/OS file
		
	SPACE
	TITLE	'CHAIN'
******************** Chain Command **********************	
	SPACE
CHAIN		JSR	VARPACKER	 	;GO PACK VARIABLES.
		LDA	HIMEM+1	 	;PRESERVE ORIGINAL HIMEM VALUE.
		STA	CHIMEM
		LDX	PACKADR+1	 	;AND SET IT TO A PAGE BELOW
		DEX				; PACKED VARIABLES.
		STX	HIMEM+1
		JSR	LOAD1A	 	;GO LOAD PROGRAM.
		LDX	CHIMEM	 	;RESTORE PROPER HIMEM.
		STX	HIMEM+1
		BCS	LODERR	 	;RETURN ANY ERRORS.
		JSR	PREPBAS	 	;INIT BASIC STUFF, THEN 
		JSR	VARUNPACK	 	;GO UNPACK VARIABLE.
		LDA	#0	 		; CLEAR ON ERROR FLAG.
		BEQ	RUN2	 		;BRANCH ALWAYS.
	SPACE
	TITLE	'RUN'
******************** RUN Command **********************		
	SPACE
RUN		EQU	*	 
		LDA	#0
		STA	IFILACTV
		STA	ASERR
		LDA	FBITS	 		;WAS A FILE NAME SPECIFIED?
		LSR	A
		BCC	GORUN	 		;BRANCH IF NOT.
		JSR	LOAD1	 		;GO LOAD SPECIFIED FILE.
		BCS	LODERR	 	;RETURN ANY ERRORS IMMEDIATELY.
		JSR	PREPBAS		;INIT BASIC.
RUN2		STA	ONERRFLG	 	;CLEAR ON-ERROR FLAG.       
		JSR	FNDLINE	 	;FIND RUN LINE IF NECESSARY.
		JSR	SSYSIO	 	;RESTORE I/O TO DOS.
		JSR	GORUN
		JMP	RUNBASIC		 ;EXECUTE PROGRAM.
*
GORUN		JSR	APSFTNORM	 	;Applesoft SETNORM routine
		LDA	#$A3
		STA	TRCIMG	 	;Reset Trace flag image
		LDA	#$FF
		STA	XCNUM	 		;JUST NEEDED TO MARK RUN FLAG
		STA	PROMPT	 
		LDX	#4	 		;SET RUN STATE
		JSR	SETSTATE
		JMP	SYNERR1	 	;INDICATE NOT RECOGNIZED.
	SPACE
	TITLE	'LOAD'
******************** LOAD Command **********************	
	SPACE
LOAD		JSR	LOAD1	 		;GO LOAD PROGRAM.
		BCS	LODERR	 	;RETURN ERRORS...
		EXPORT WARMDOS
WARMDOS	JSR	PREPBAS	 	;THIS CANNOT BE PUT IN "LOAD1" SINCE ONLY
                                    ;1 STACK LEVEL IS PRESERVED.
		JSR	SETSYSIO	 	;SET I/O BACK TO DOS.
		LDA	#0
		STA	$24
		JMP	WRMSTRT	 	;ELSE RE-ENTER BASIC WITH NEW PROGRAM LOADED.
   SPACE
LOAD1		JSR	CLOSALL	 	;FIRST CLOSE ALL OPEN FILES (EXCEPT EXECS). 
		BCS	LODERR	 	;DO NOTHING IF ERROR.
LOAD1A	JSR	LOAD2	 		;GO LOAD A BASIC PROGRAM.
		BCS	LODERR
		STY	ARRPTR	 	;INIT VARIABLE PTRS TO END OF PROG.
		STY	SIMPTR
		STY	ENDVAR
		STX	ARRPTR+1
		STX	SIMPTR+1
		STX	ENDVAR+1
LODERR	RTS
   SPACE 2 
LOAD2		LDA	#1	 		;NEED READ ACCESS.
		LDX	#TBAS	 		;TYPE="BAS" FOR APPLESOFT.
		JSR	DOFOPN	 	;GO OPEN FILE IF BASIC PROGRAM.
		BCS	LODERR	 	;RETURN ANY ERRORS IMMEDIATELY.
		LDA	#GEOFCMD		;GET FILE'S LENGTH.
		JSR	GOSYSTEM
		BCS	LODERR	 	;RETURN ERRORS.
		LDA	BEGPROG	 	;MOVE LOAD ADDRESS OF PROGRAM TO READ SPEC. 
		STA	RWDATA
		ADC	SEOF	 		;CALCULATE NEW END OF PROGRAM.
		STA	VADDR
		LDA	BEGPROG+1
		STA	RWDATA+1
		ADC	SEOF+1
		STA	VADDR+1	 	;SAVE NEW END ADDRESS.
		BCS	BIGERR	 	;(SHOULD NEVER HAPPEN)
		CMP	HIMEM+1	 	;IS IT TOO BIG TO LOAD?
BIGERR	LDA	#TOOBIG	 	;ANTICIPATE ERROR.
		BCS	LODERR	 	;BRANCH IF TOO BIG.
		LDX	SEOF	 		;REQUEST WHOLE FILE.
		LDY	SEOF+1
		JSR	DOREAD	 	;AND READ IT INTO MEMORY.
		BCS	LODERR
		JSR	DOCLOSE	 	;CLOSE THE FILE.
		BCS	LODERR
		JSR	RLOCBAS	 	;RELOCATE LINK ADDRESSES IF NECESSARY.
		LDX	VADDR+1	 	;SAVE NEW END OF PROGRAM.
		LDY	VADDR
		STX	ENDPROG+1
		STY	ENDPROG
		RTS				;ALL	 DONE LOADING.
   SPACE 2
RLOCBAS	SEC				;DETERMINE IF PROGRAM WAS SAVED
		LDA	BEGPROG	 	;FROM SAME ADDRESS AS JUST LOADED.
		SBC	FIAUXID	  
		STA	TO
		LDA	BEGPROG+1
		SBC	FIAUXID+1
		STA	TO+1	 		;SAVE RESULT IN ZERO PAGE.
		ORA	TO	 		;TEST FOR SAME ADDRESS (=)
		CLC				;(IN	 ANY CASE CLEAR CARRY.)
		BEQ	RLBASEND	 	;BRANCH IF SAME ADDRESSES.
   SPACE 
		LDX	BEGPROG
		LDA	BEGPROG+1	 	;BEGIN RELOC AT PROGRAM START.
RLBASIC	EQU	*	 		;ENTERED HERE FOR HI-REZ SPLIT.
		STX	FROM	 		;SAVE LINK ADDRESS.
		STA	FROM+1
		LDY	#1	 		;TEST FOR END OF PROGRAM.
		LDA	(FROM),Y
		DEY
		ORA	(FROM),Y	 	; LINK=0 IF END.
		BEQ	RLBASEND
		LDA	(FROM),Y	 	;ADJUST LINK ADDRESS.
		ADC	TO
		TAX
		STA	(FROM),Y
		INY
		LDA	(FROM),Y
		ADC	TO+1
		STA	(FROM),Y	 	;SAVE NEW LINK.
		CLC				;CLEAR CARRY FOR NEXT ADD.
		BCC	RLBASIC	 	;BRANCH ALWAYS TAKEN.
*
FNDLINE	LDA	FBITS+1	 	;WAS A LINE # SPECIFIED?
		AND	#LINE
		CLC
		BEQ	RLBASEND	 	;BRANCH IF NOT.
		LDA	VLINE	 		;MOVE CRUNCHED LINE NUMBER TO APPLESOFT'S
		STA	ASLINE	 	; LINE NUMBER REGISTER.
		LDA	VLINE+1
		STA	ASLINE+1
		JSR	ASFNDLIN	 	;USE APPLESOFT ROM CODE TO FIND LINE ADDRESS
		CLC
		LDA	ASLOWTR	 	;THE APPLESOFT ROUTINE PLACES PTR 
		ADC	#$FF	 		;TO LINEADR HERE... 
		STA	$B8	 		;SET CHRGET PTR TO LINEADR-1 
		LDA	ASLOWTR+1	 
		ADC	#$FF
		STA	$B9
		CLC				;INDICATE NO PROBLEMS.
RLBASEND	RTS
	SPACE
	TITLE	'SAVE'
******************** SAVE Command **********************	
	SPACE
SAVE		BCC	SAVE1	 		;BRANCH IF FILE ALREADY EXISTS.
		LDA	#$FC	 		;CREATE A BASIC FILE.
		STA	VTYPE
		STA	FIFILID
		LDA	#$C3	 		;ALL ACCESS BITS ENABLED
		STA	FIACESS
		LDA	BEGPROG	 	;AUXID HOLDS ADDRESS OF PROGRAM SAVED.
		STA	CRAUXID	 
		STA	FIAUXID
		LDA	BEGPROG+1
		STA	CRAUXID+1	 
		STA	FIAUXID+1
		JSR	FCREATE	 	;GO CREATE FILE.
		BCS	SAVERR	 	;REPORT ANY ERROR.
   SPACE 
SAVE1		LDA	#2	 		;REQUEST WRITE ACCESS.
		LDX	#TBAS	 		; TO A 'BAS' TYPE FILE.
		JSR	DOFOPN		;GO OPEN FILE.
		BCS	SAVERR
		LDA	ENDPROG	 	;FIGURE HOW BIG FILE IS.
		SEC
		SBC	BEGPROG
		TAX				;SET	 WRITE REQUEST COUNT.
		STA	SEOF	 		;AND ANTICIPATE NEW EOF.
		LDA	ENDPROG+1
		SBC	BEGPROG+1
		TAY
		STA	SEOF+1
		LDA	#0
		STA	SEOF+2
		LDA	BEGPROG	 	;SET WRITE ADDRESS.
		STA	RWDATA
		LDA	BEGPROG+1
		STA	RWDATA+1
		JSR	DOWRITE	 	;AND GO WRITE THAT SUCKER.
		BCS	SAVERR
		LDA	#SEOFCMD	 	;SET NEW END OF FILE.
		JSR	GOSYSTEM
		BCS	SAVERR
		JSR	DOCLOSE	 	;FINALLY, CLOSE FILE.
		BCS	SAVERR
		LDA	BEGPROG+1	 	;MAKE SURE AUXID IS CORRECT FOR
		LDX	BEGPROG
		CMP	FIAUXID+1	 	; THIS COMPLETED SAVE.
		BNE	CHGFINFO
		CPX	FIAUXID
		CLC				;ANTICIPATE	 SAME SAVE ADDRESS.
		BNE	CHGFINFO
SAVERR	RTS
   SPACE 2
CHGFINFO	STX	FIAUXID	 
		STA	FIAUXID+1
		JMP	GOSETINFO	 	;UPDATE FILE INFO.
	SPACE
	TITLE	'CREATE'
******************** CREATE Command **********************	
	SPACE
CREATE	LDA	#0	 		;MAKE AUXID = 0 AS DEFAULT.
		STA	CRAUXID
		STA	CRAUXID+1
		LDA	FBITS	 		;WAS TYPE SPECIFIED?
		AND	#T
		BNE	FCREATE	 	;BRANCH IF IT WAS.
		LDA	#$0F	 		;MAKE DEFAULT A DIRECTORY.
		STA	VTYPE
   SPACE 
FCREATE	LDA	EXACTV	 	;DETERMINE IF L.T. 8 FILES OPEN.
		ASL	A	 		;(ADD EXEC TO OPENCNT)
		LDA	#0
		ADC	OPENCNT
		CMP	#8	 		;IF 8 THEN BUFFER ERROR.
		BCS	NOBUFS
		LDA	VTYPE	 		;FIRST SET FILE ID.
		STA	CRFILID	 
		LDX	#$C3	 		;SET DEFAULT ACCESS
		LDY	#$01	 		; AND DEFAULT FILE KIND (TREE).
		CMP	#$0F	 		;IS THIS A DIRECTORY CREATE?
		BNE	FCRE1	 		;BRANCH IF NOT.
		LDY	#$0D	 		; DIRECTORY FILE KIND.
FCRE1		STX	CRACESS
		STY	CRFKIND
		LDA	#CRECMD
		JMP	GOSYSTEM	 	;GO CREATE IT.
   SPACE 
NOBUFS	LDA	#MEMFUL
		RTS				;CARRY IS SET ABOVE...
	SPACE 
	TITLE	'RENAME, DELETE, (UN)LOCK, PREFIX'	 
******************** RENAME, DELETE, PREFIX, (UN)LOCK Command **********************	
	SPACE
RENAME	LDA	FBITS	 		;MAKE SURE BOTH NAMES SPECIFIED.
		LSR	A	 
		LSR	A
		LDA	#RNMCMD	 	;ANTICIPATE BOTH NAMES PRESENT
		BCS	GOSYS1	 	;BRANCH IF THEY ARE. 
		JMP	SYNERR1	 	;ELSE; REPORT SYNTAX ERROR. 
   SPACE 
DELETE	LDA	#DSTCMD	 	;NOTHING TO DO BUT DO IT. 
GOSYS1	JMP	GOSYSTEM
   SPACE  
LOCK		EQU	*
		JSR	GOGETINFO
		LDA	FIACESS	 	;CLEAR WRITE, RENAME, DESTROY ENABLE BITS. 
		AND	#$3C	 
		ORA	#1	 		;MAKE SURE READ IS ENABLED. 
		STA	FIACESS
		JMP	GSINFO1	 	;AND THAT'S ALL THERE IS TO IT.
   SPACE  
UNLOCK	EQU	*
		JSR	GOGETINFO
		LDA	#$C3	 		;SET ALL ACCESS BITS ON.
		ORA	FIACESS
		STA	FIACESS
		JMP	GSINFO1	 
   SPACE 
PREFIX	LDA	FBITS+1	 	;WAS A SLOT AND/OR DRIVE SPECIFIED?
		AND	#SD
		SEC				;ANTICIPATE	 SLOT OR DRIVE SPECIFIED.
		BNE	PREFIX1	 	;BRANCH IF WE GUESSED RIGHT.
		LDA	FBITS	 		;WAS A FILE NAME GIVEN?
		LSR	A	 
PREFIX1	LDA	#SPREFX	 	;ASSUME WERE GOING TO SET IT.
		BCS	GOSYS1	 	;BRANCH IF PREFIX TO BE SET.
		LDA	PROMPT	 	;IS A PROGRAM RUNNING?
		BEQ	RNPRFIX	 	;SET INHOOK TO GET PREFIX NEXT INPUT.
		JSR	CROUT	 		;OUTPUT TWO CARRAGE RETURNS. 
		LDX	#0
DSPFIX1	CPX	TXBUF-1		;HAVE ALL CHARACTERS BEEN OUTPUT? 
		BEQ	DSPFIX2		;(MAY BE NONE) 
		LDA	TXBUF,X	 	;OUTPUT PREFIX.
		ORA	#$80	 		;SET HI BIT FOR APPLE II.
		JSR	COUT
		INX
		BNE	DSPFIX1	 	;BRANCH ALWAYS.
   SPACE 
TWOCROUT	EQU	*
DSPFIX2	JSR	CROUT	 
		JSR	CROUT
		CLC
		RTS
   SPACE 2
RNPRFIX	LDA	#$FF	 		;SET STATE TO READ PREFIX FROM PROGRAM.
		STA	PFXACTV	 
		CLC
		RTS
		
	SPACE
	TITLE	'BSAVE / BLOAD'	 
*********************** BSAVE / BLOAD ***********************
* BSAVE, BLOAD, BRUN, and Dash (-) all use basically the	*
*   same code.  The difference is only in whether it's a	*
*   Read or a Write, and, for BSAVE, if a file needs to be	*
*   CREATEd.  Common code starts at the label BINOPN.		*
*************************************************************
	SPACE
BSAVE		BCC	BSAVE1	 	;Branch if file does exist.
		LDA	FBITS+1		;IF NOT, MAKE SURE ADDRESS
		AND	#AD+L+E	 	; AND LENGTH OR END ADDRESS
		CMP	#AD+L	 		; IS PRESENT.
		BCC	BNOTFND	 	;REPORT FILE NOT FOUND IF NOT PRESENT.
		LDA	VADDR	 		;MAKE SPECIFIED ADDRESS AUXID.
		STA	CRAUXID
		STA	FIAUXID
		LDA	VADDR+1
		STA	CRAUXID+1
		STA	FIAUXID+1	 
		LDA	#TBIN	 		;PREPARE FOR "BIN" CREATE.
		STA	VTYPE
		STA	FIFILID
		LDA	FBITS	 		;BUT MAKE SURE TYPE WAS NOT SPECIFIED.
		AND	#T
		BNE	BNOTFND	 	;BRANCH IF USER ASKED FOR SPECIAL TYPE.
		JSR	FCREATE	 	;GO CREATE BINARY TYPE FILE.
		BCS	BFERR	 		;REPORT ERRORS.
		JSR	GOGETINFO	 	;GET NEW FILE INFO.
		BCS	BFERR 
BSAVE1	LDA	#2	 		;FOR WRITE ACCESS.
		BNE	BINOPN	 	;BRANCH ALWAYS TAKEN. 
BNOTFND	LDA	#CIFNFERR	 	;REPORT FILE AS SPEC'D NOT FOUND.
BFERR		SEC				;INDICATE ERROR ENCOUNTERED.
		RTS
	SPACE 2
DASHBIN	EQU	*
BRUN		JSR	BLOAD	 		;GO LOAD SPECIFIED FILE.
		BCS	BFERR	 		;RETURN ERRORS
		JSR	GOBRUN	 	;EXECUTE CODE.
		CLC				;NO ERRORS AT THIS POINT.
		RTS
   	SPACE 2
GOBRUN	JMP	(RWDATA)	 	;JUMP TO BEGINNING OF BINARY PROGRAM.
BLOAD		LDA	#1	 		;FOR READ ACCESS.
						;DROP INTO BINOPN.
BINOPN	LDX	#TBIN	 		;OPEN BINARY OR SPECIFIED TYPE (IN VTYPE).
		JSR	DOFOPN
		BCS	BFERR	 		;REPORT ERRORS.
		LDX	VADDR	 		;ANTICIPATE USER SPECIFIED ADDRESS.
		LDY	VADDR+1
		LDA	FBITS+1	 	;DID USER SPECIFIY ADDRESS?
		BMI	BINRW1	 	;BRANCH IF GOOD GUESS.
		LDX	FIAUXID	 	;OTHERWISE USE AUXID AS ADDESS.
		LDY	FIAUXID+1
		LDA	FBITS	 		;ADDRESS MUST BE PRESENT IF TYPE IS SPECIFIED.
		AND	#T
		BNE	BINVALD	 	;REPORT MISSING PARM.
		LDA	FBITS+1
BINRW1	STX	RWDATA	 	;SAVE TRANSFER ADDRESS.
		STY	RWDATA+1	
***************************** BSAVE PATCH 1 START *****************************
		BIT	FBITS+1
		BVS	PJMP1
		PHA				;move a out to makle room for compare of vtype
		LDA	FIFILID		;get file type (looking for BIN value)
		CMP	#TBIN			;is it a Binary file?
		BNE	@5			;if not Binary then don't set FIAUXID
		STX	FIAUXID	 	;Save A-Value in
		STY	FIAUXID+1	 	;File.Info Parm.List
@5		PLA				;restore a to previous value
***************************** BSAVE PATCH 1 END *******************************
PJMP1		LDX	VLNTH	 		;ANTICIPATE USER SPECIFIED LENGTH.
		LDY	VLNTH+1
		AND	#L+E	 		;WAS LENGTH OR ENDADDR SPECIFIED? 
		BEQ	BINRW3	 	;BRANCH IF NEITHER.
		EOR	#L+E	 		;WERE BOTH SPECIFIED?
		BEQ	BINVALD	 	;REPORT PARMS INVALID IF SO.
		AND	#L	 		;WAS IT LENGTH ONLY?
		BEQ	BINRW4	 	;BRANCH IF IT WAS.
		LDA	VENDA	 		;CALCULATE REQUEST LENGTH=VENDA-VADDR.
		SEC
		SBC	VADDR
		TAX				;SAVE	LOW IN X.
		LDA	VENDA+1
		SBC	VADDR+1
		TAY				;AND HIGH IN Y.
		INX				;ADD 1 FOR TRUE LENGTH.
		BNE	BINRW2	 	;BRANCH IF NOT PAGE BOUNDARY.
		INY
BINRW2	BCS	BINRW4	 	;BRANCH IF LENGTH>0! 
BRANGERR	LDA	#ERRANGE	 	;REPORT INVALD RANGE REQUESTED.
		SEC
		RTS
   	SPACE 2
BINVALD	LDA	#ERRINVLD	 	;REPORT INVALID PARAMETER COMBO.
		SEC
		RTS
	SPACE 2
BINRW3	LDA	#GEOFCMD	 	;USE CURRENT END OF FILE FOR LENGTH
		JSR	GOSYSTEM
		BCS	BFERR2	 	;BRANCH IF ERROR.
		LDX	SEOF	 		;GET FILE LENGTH.
		LDY	SEOF+1	 	;HIGH IN Y.
		LDA	SEOF+2		; BUT MAKE SURE RANGE IS NOT > 64K.
		BEQ	BINRW4		;BRANCH IF WITHIN RANGE.
BTOBIG	LDA	#TOOBIG	 	;REPORT FILE TOO BIG.
BFERR2	SEC
		RTS
	SPACE 2
BINRW4	STX	RWCOUNT
		STY	RWCOUNT+1	 	;SAVE REQUESTED TRANSFER COUNT.
		LDA	FBITS+1	 	;GET FOUND PARM BITS AGAIN.
		AND	#B	 		;WAS A BEGINNING BYTE ADDRESS SPECIFIED?
		BEQ	DOBINIO	 	;BRANCH IF NO OFFSET SPECIFIED.
		LDX	#2	 		;MOVE BYTE PARM TO MLI CALL SPEC.
BINRW5	LDA	VBYTE,X
		STA	SMARK,X
		DEX				;MOVE	 ALL THREE BYTES.
		BPL	BINRW5 
BINRW6	LDA	#SMRKCMD	 	;GO SET FILE POSITION.
		JSR	GOSYSTEM
		LDX	XCNUM	 		;ANTICIPATE FAILURE.
		BCC	DOBINIO	 	;BRANCH IF SUCCESSFUL!
		CMP	#ERRANGE	 	;WAS ERROR MARK>EOF?
		BNE	BFERR2	 	;BRANCH IF NOT.
		CPX	#CIBSAVE	 	;IF SO, NEW EOF CAN ONLY BE SET BY BSAVE.
		BNE	BFERR2	 	;BRANCH IF NOT BSAVE COMMAND.
		LDA	#SEOFCMD		 ;OTHERWISE SET END OF FILE TO
		JSR	GOSYSTEM	 	; USER SPECIFIED POSITION.
		BCC	BINRW6	 	;BRANCH IF NEW EOR SET.
		RTS				;ELSE	 GIVE UP NOW...
   SPACE 2
DOBINIO	LDX	XCNUM	 		;GET CI COMMAND NUMBER.
		LDA	#READCMD	 	;ANTICIPATE NOT BSAVE.
 		CPX 	#CIBSAVE		
		BNE	@2
		BIT	FBITS+1	 	;BSAVE command is active
		BVS	@1	 		;B-parm active so skip EOF
		LDA	FBITS+1
		AND	#L+E	 		;no B-parm given
		BEQ	@1	 		;no L or E parm given
		LDA	RWCOUNT	 	;L/E parm given without
		STA	SEOF	 		;B-parm - update EOF
		LDA	RWCOUNT+1
		STA	SEOF+1
*************** B-Parm Patch Begin ***********************************
		LDA 	#0			;clear B-parm from EOF
		STA	SEOF+2		;reset EOF based upon B-Parm
*************** B-Parm Patch End *************************************
		LDA	#SEOFCMD
		JSR	GOSYSTEM	 	;Set EOF
@1		LDA	#WRITCMD
@2		JSR	GOSYSTEM	 	;Read or Write called
		BCS	@4	 		;Error 
		BIT	FBITS+1
		BVS	@3	 		;B-parm given skip File.Info
		CPX	#$F	 		;B-parm not given
		BNE	@3	 		;BSAVE not active
		JSR	GOSETINFO	 	;BSAVE active - set File.Info
@3		JMP	DOCLOSE	 	;Close file and exit
@4		SEC				;Clear stack
		RTS				;RETURN to common code				
*************** End BSAVE Patch 2 **********************************

	TITLE	'STORE / RESTORE'	 
******************** STORE / RESTORE ******************************
* The STORE Command packs all the current AppleSoft Variables	*
*   and Writes them to the specified file.  After Writing to	*
*   the file, the variables are unpacked again for the normal(?)	*
*   operation of BASIC.								*
*											*
* The file has a 5 byte header consisting of:				*
*   OVLEN  - Original length of variable table.				*
*   OASTRT - Offset to where array variables start			*
*   OHIMEM - Original HIMEM							*
*											*
* PACKADR should become AUXID and PACKLEN(+5) should become the	*
*   end mark of the file (EOF).						*
*******************************************************************
	SPACE
STORE		BCC	STORE1	 	;BRANCH IF SPECIFIED FILE EXISTS.
		LDA	#TVAR			;CREATE AN APPLESOFT "VAR" TYPE FILE.
		STA	VTYPE
		STA	FIFILID
		LDA	#$C3	 		;ALLOW ALL FLAVORS OF ACCESS
		STA	FIACESS
		JSR	FCREATE	 	;GO MAKE IT.
		BCS	STORERROR	 	;RETURN ANY ERRORS.
*
STORE1	JSR	VARPACKER	 	;GO PACK APPLESOFT VARIABLES.
		BCS	STORERROR	 	;Carry set if not enough memory for packing
		LDX	#TVAR	 		;OPEN A "VAR" TYPE FILE.
		LDA	#2	 		; FOR WRITE ACCESS.
		JSR	DOFOPN
		BCS	STORDONE	 	;Unpack vars & Report Errors.
		JSR	SETHEADR	 	;SET UP HEADER INFO.
		JSR	DOWRITE	 	;GO WRITE HEADER INFO.
		BCS	STORDONE	 	;HANDLE ERROR.
		LDA	PACKADR	 	;NOW PREPARE TO WRITE VARIABLES.
		STA	RWDATA
		STA	FIAUXID	 	;(SAVE ORIGINAL PACK ADDRESS AS AUXID).
		LDA	PACKADR+1
		STA	RWDATA+1
		STA	FIAUXID+1
		LDY	PACKLEN+1
		LDX	PACKLEN	 	;GO WRITE 'PACKLEN' BYTES.
		JSR	DOWRITE
		BCS	STORDONE
		LDA	#GMRKCMD	 	;MAKE CURRENT FILE POSITION THE EOF.
		JSR	GOSYSTEM
		LDA	#SEOFCMD	 	;(NO ERROR ANTICIPATED FROM LAST CALL)
		JSR	GOSYSTEM
		BCS	STORDONE	 	;REPORT ERRORS
		JSR	GOSETINFO	 	;SET NEW FILE INFORMATION. 
		BCS	STORDONE
		JSR	DOCLOSE	 	;LASTLY, CLOSE THE FILE!! 
	SPACE 2
STORDONE	PHP				;SAVE	 ERROR STATUS
		PHA				;AND	 POSSIBLE ERROR CODE.
		JSR	VARUNPACK	 	;GO UNPACK VARIABLES.
		PLA				;RESTORE STATUSES.
		PLP
STORERROR	RTS
	SPACE 2
SETHEADR	LDA	#<OVLEN	 	;POINT AT HEADER INFO FOR
		STA	RWDATA	 	; STORE/RESTORE COMMANDS.
		LDA	#>OVLEN
		STA	RWDATA+1
		LDY	#0	 		;WHETHER STORE OR RECALL, HEADER
		LDX	#5	 		; INFO IS 5 BYTES LONG.
		RTS
	Title 'RESTORE'
******************* RESTORE *********************************
* RESTORE finds a VAR type file, reads in the variables	*
*   THAT WERE "STORE"D,							*
*   that were STOREd and unpacks them for BASIC to use.	*
*************************************************************
	SPACE
RESTORE	LDX	#TVAR	 		;OPEN A "VAR" TYPE FILE.
		LDA	#1	 		; FOR READ ACCESS.
		JSR	DOFOPN
		BCS	STORERROR	 	;RETURN ERRORS IMMEDIATELY. 
		JSR	SETHEADR	 	;SET UP PARMS TO READ HEADER.
		JSR	DOREAD	 	;GO READ HEADER.
		BCS	STORERROR
		LDA	FIAUXID	 	; SO FAR SO GOOD...
		STA	PACKADR
		STA	RWDATA	 	;SET LOW ADDRESS FOR VARIABLES TO BE READ.
		LDA	HIMEM+1	 	;FIGURE DIFFERENCE BETWEEN CURRENT
		SEC				;	 HIMEM AND THE HIMEM EXISTING WHEN THE FILE
		SBC	OHIMEM	 	; WAS ORIGINALLY WRITTEN.
		CLC				;ADD	 THE DIFFERENCE TO ORIGINAL STORE ADDRESS
		ADC	FIAUXID+1	 	; TO OBTAIN THE ADDRESS WHERE THE
		STA	RWDATA+1	 	; FILE SHOULD BE READ NOW.
		STA	PACKADR+1
		CMP	ENDPROG+1	 	;MAKE SURE THERE IS ENOUGH MEMORY TO DO THE READ.
		BCC	RSTOOBIG	 	;BRANCH IF MEMORY CONFLICT
		BEQ	RSTOOBIG
		LDA	#0	 		; NOW CALCULATE HOW MUCH SHOULD BE READ. 
		SBC	PACKADR	 	; (CARRY WAS SET BY COMPARE, ABOVE).
		TAX
		LDA	HIMEM+1
		SBC	PACKADR+1
		TAY
		JSR	DOREAD	 	;GO READ VARIABLES INTO MEMORY.
		BCS	STORERROR	 	;RETURN ERRORS.
		JSR	DOCLOSE	 	;GO CLOSE THE FILE.
		JMP	STORDONE	 	;AND GO UNPACK VARIABLES.
	SPACE
RSTOOBIG	LDA	#TOOBIG	 	;REPORT VARIABLE FILE WON'T
		SEC				;FIT IN AVAILABLE MEMORY    SPACE .
		RTS
	SPACE 2
DOCLOSE	LDA	#CLOSCMD
		BNE	GOSYS3	 	;BRANCH ALWAYS TAKEN. 
DOREAD	LDA	#READCMD
		BNE	SVCOUNT	 	;BRANCH ALWAYS
DOWRITE	LDA	#WRITCMD
SVCOUNT	STY	RWCOUNT+1	 	;STORE READ/WRITE COUNT  
		STX	RWCOUNT	 	; BEFORE CALLING. 
GOSYS3	JMP	GOSYSTEM

	Title 'PR# / IN#'
**********************'PR# / IN#'****************************	 
* The following routines, PRNUM and INNUM, change the I/O	*
*   hooks to specified or implied addresses.  Where a slot	*
*   number is specified, the address is looked up in the 	*
*   Globals for the corresponding slot.  If an address is	*
*   given, that address becomes the I/O address where 	*
*   characters are sent or requested.  If both slot and	*
*   address are specified, the address is entered into the	*
*   Globals for the specified slot (the I/O vector is not	*
*   changed until the next time a PR# or an IN# is issued).	*
*   Addresses below $C000 are checked for a CLD ($D8)		*
*   instruction as the first byte and are considered invalid*
*   if it is not present.  Addresses above $C000 are checked*
*   only for ROMs.  (The Apple II data bus is unstable if	*
*   no ROM or RAM is at the address tested.)			*
*************************************************************
	SPACE
PRNUM		LDA	#0			;SET UP OFFSETS TO OUTPUT TABLES
		STA	IOPTR	 
		BEQ	IONUM1	 	;BRANCH ALWAYS 
*
INNUM		LDA	#2	 		;OFFSET TO INPUT HOOK 
		STA	IOPTR
		LDA	#8	 		;OFFSET TO INPUT TABLE
IONUM1	ORA	VIOSLT	 	;CALCULATE OFFSET TO TABLE.
		ASL	A
		TAX
		LDA	FBITS	 		;DETERMINE IF SLOT NUMBER WAS SPECIFIED.
		AND	#SLOT	 		;(IF NOT, X-REG IS NOT VALID OR USED) 
		BEQ	IONUM2	 	;BRANCH IF ADDRESS ONLY GIVEN.
		LDA	FBITS+1	 	;WAS BOTH SLOT AND ADDRESS SPECIFIED?
		BMI	IONUM4	 	;BRANCH IF BOTH.
		LDA	OUTVECT0,X	 	;MOVE TABLE VALUE TO ADDRESS VAR
		STA	VADDR	 		; FOR VALIDATION BY 'IOLEGAL' ROUTINE.
		LDA	OUTVECT0+1,X
		STA	VADDR+1
IONUM2	JSR	IOLEGAL	 	;TEST ADDRESS FOR ROM OR 'CLD' OPCODE.
		BCS	IONUM3	 	;RETURN ERROR, IF ANY.
		LDY	IOPTR	 		;GET OFFSET TO PROPER HOOK.
		LDA	VADDR
		STA	CSWL,Y
		LDA	VADDR+1
		STA	CSWH,Y	 	;(CARRY IS CLEAR, NO ERROR) 
IONUM3	RTS
	SPACE 2
IONUM4	JSR	IOLEGAL	 	;VALIDATE ADDRESS BEFORE PLACING IN TABLE.
		BCS	IONUM5	 	;BRANCH IF INVALID ADDRESS.
		LDA	VADDR+1
		STA	OUTVECT0+1,X	;REASSIGN ADDRESS FOR SPECIFIED SLOT.
		LDA	VADDR
		STA	OUTVECT0,X	 	;(CARRY IS CLEAR, NO ERROR)
IONUM5	RTS
	SPACE 2
IOLEGAL	LDA	VADDR	 		;MOVE ADDRESS TO ZERO PAGE
		STA	FROM	 		; FOR INDIRECT ADDRESSING.
		LDA	VADDR+1
		STA	FROM+1
		LDY	#0
		CMP	#$C0	 		;IS IT RAM OR ROM?
		BCC	IOLEG3	 	;BRANCH IF RAM

		LDA	$CFFF	 		;CLEAR ANY SWITCHED IN $C800 SPACE .
		STY	TO	 		;USE 'TO' AS A COUNTER.
		LDA	(FROM),Y	 	;GET VALUE TO TEST AGAINST.
		CMP	#$FF
		BEQ	IONDEV
IOLEG1	CMP	(FROM),Y	 	;IS ADDRESSED DATA STABLE?
		BNE	IONDEV	 	;REPORT NO DEVICE IF NOT.
		DEC	TO
		BNE	IOLEG1	 	;TEST 256 TIMES.
IOLEG2	CLC				;INDICATE GOOD ADDRESS.
		RTS
	SPACE 2
IOLEG3	LDA	(FROM),Y	 	;TEST RAM ADDRESS FOR
		CMP	#$D8	 		; 'CLD' INSTRUCTION.
		BEQ	IOLEG2	 	;BRANCH IF GOOD. 
IONDEV	LDA	#NODEV	 	;REPORT NO DEVICE CONNECTED.
		SEC
		RTS
	SPACE 2
	Title 'Bye Command'
******************** Bye Command ***********************************
*  Bye command closes all open files and does an MLI Quit call.    *
********************************************************************
BYE		EQU	*
		JSR	CLOSALL	 	;Close all open files
		JSR	CLSEXEC	 	;Close EXEC file too
		LDA	#$65	 		;quit
		JSR	MLIENTRY	 	;and never return
		DC.B	$65
		DC.W	SBYE
		
BYE1		JSR	MLIENTRY	 	;and never return
		DC.B	$65
		DC.W	Parms
Parms		DC.B	$04			;Parameter count
		DC.B	$EE			;signature of extended quit code
		DC.W	TXBUF2
		DC.B	0,0,0			;remaining reserved parameters
		
	SPACE
	Title 'Catalog Command'
*********************'CAT(ALOG)'***********************************	 
* CAT and CATALOG OPEN the Directory specified by FN1, 		*
*   displays the contents (either 40 or 80 columns), and		*
*   CLOSEs the file.  Subroutines shared with RDCAT are		*
*   OPNCAT, NXTCAT and CATASC.						*
******************************************************************* 
CAT		LDA	#$27	 		;CAT PRODUCES 40 COLUMN OUTPUT.
		BNE	CAT1	 		;BRANCH ALWAYS
* 
CATALOG	LDA	#$4F	 		;CATALOG PRODUCES 80 COLUMNS.
CAT1		STA	STRLEN
		LDA	FBITS	 		;DO GETINFO ON PREFIX IF NO FILENAME.
		AND	#FN1+T
		LSR	A
		BNE	CAT1AA
		STA	VTYPE
CAT1AA	BCS	CAT1A	 		;BRANCH IF ALREADY GOT ONE.
		JSR	GOGETINFO
		BCS	CCATERR	 	;REPORT ERRORS.
CAT1A		JSR	OPNCAT	 	;OPEN DIRECTORY (IF IT IS A DIRECTORY)
		BCS	CCATERR	 	;RETURN ERRORS IMMEDIATELY.
		JSR	CROUT	 
		JSR	CATITLE		 ;PREPARE DIRECTORY NAME. 
		JSR	PRTLINE		 ;AND PRINT IT OUT. 
		JSR	CROUT	 		;ALONG WITH CARRAGE RETURN. 
*
		JSR	SPACAT	 	;CLEAR BUFFER
		LDX	#HEAD
		JSR	CONSTR	 	;AND PRINT IT.
		JSR	PRTLINE
		JSR	CROUT	 		;BLANK LINE BETWEEN HEADER AND FIRST FILE.
		LDA	TOTENT	 	;MAKE SURE THERE ARE SOME FILES
		ORA	TOTENT+1	 	; TO LIST...
		NOP
		NOP				;	 Used to be: "BEQ ENDCAT ; branch if not"
CAT2		JSR	NXTCAT	 	;READ NEXT VALID ENTRY.
		BCS	ENDCAT	 	; Used to be: BCS CCATERR DIRECTORY AND; REPORT ERROR.
		LDA	VTYPE	 		;IF TYPE=0 THEN PRINT ALL
		BEQ	CAT3
		CMP	CATBUF+$10	 	;ELSE, TEST FOR MATCHED TYPE
		BNE	CAT4A
CAT3		JSR	CATASC	 	;CONVERT CATALOG ENTRY TO ASCII.
		JSR	PRTLINE	 	;PRINT IT!.
CAT4A		LDA	$C000
		CMP	#$83	 		;CONTROL-C HALT?
		BNE	CAT5
		LDA	STATE	 		;PROGRAM EXECUTING?
		BNE	ENDCAT	 	;LEAVE KBD ALONE FOR PROGRAM
		BIT	$C010	 		;CLEAR KBD
		BCS	ENDCAT	 	;BRANCH ALWAYS (CARRY SET FROM COMPARE).
*
CAT5		NOP				; Fix BASIC CATALOG premature
		LDA	#$FF	 		; terminate after Control S (FF=any non zero)
		BNE	CAT2	 		; branch in all cases
	
ENDCAT	JSR	DOCLOSE	 	;CLOSE DIRECTORY.
		BCS	CCATERR	 	;RETURN ANY ERROR.
		JSR	CROUT	 		;BLANK LINE BETWEEN LAST NAME AND TRAILER.
		JSR	CATRAIL	 	;BUILD TRAILER... 
		BCS	CCATERR	 
		JSR	PRTLINE	 	;PRINT TRAILER 
		JSR	CROUT
		CLC				;NO	 ERRORS.. 
CCATERR	RTS
   SPACE 2
CATITLE	JSR	SPACAT	 	;CLEAR INPUT BUFFER.
		LDX	#1
		LDY	CATBUF+4
		LDA	#$AF	 		;ANTICIPATE 'ROOT' DIRECTORY
		CPY	#$F0
		BCC	CATTLE1	 	;BRANCH IF NOT ROOT.
		STA	INLINE,X	 	;ELSE, PRECEED NAME WITH '/'.
		INX
CATTLE1	TYA
		AND	#$F	 		;GET DIRECTORY NAME LENGTH.
		STA	INLINE
		LDY	#5	 		;Y INDEXES CATBUF, X INDEXES INPUT BUFFER.
CATTLE2	LDA	CATBUF,Y
		ORA	#$80	 		;SET HI BIT FOR APPLE II VIDEO.
		STA	INLINE,X
		INY				;INCREMENT	 INDEXES
		INX
		DEC	INLINE	 	;HAVE ALL CHARACTERS BEEN MOVED. ?
		BNE	CATTLE2	 	;BRANCH IF NOT.
		LDA	#$A2	 		;PLACE '"' AT BEGINNING IN CASE OF INPUT.
		STA	INLINE
		RTS				;(X CONTAINS POINTER TO LAST CHAR +1)
   SPACE 2
CATRAIL	LDA	#<TXBUF	 
		STA	SDATPTR
		LDA	#>TXBUF
		STA	SDATPTR+1	 	;GET NAME OF VOLUME.
		LDA	GLBDEV
		STA	SUNITNUM
		LDA	#ONLINCMD
		JSR	GOSYSTEM
		BCS	CCATERR	 	;RETURN ANY ERRORS.
		LDA	TXBUF	 		;GET VOLUME NAME LENGTH.
		AND	#$F
		TAX
		INX
		STX	TXBUF-1	 	;SAVE LENGTH OF 'PATH' FOR GETINFO
		LDA	#$AF	 		;PLACE LEADING "/"
		STA	TXBUF
		JSR	GOGETINFO	 	;GET FREE BLOCKS, ETC.
		BCS	CCATERR
		JSR	SPACAT
		LDX	#TAIL
		JSR	CONSTR	 	;PREPARE TRAILER...
		JSR	ZIPACC	 	;Clear 24 bit Accumulator
		LDA	FIAUXID
		LDX	FIAUXID+1	 	;CONVERT 'TOTAL BLOCKS' COUNT.
		LDY	#$3D
		JSR	HEXDEC
		LDA	FIBLOKS	 	;AND 'BLOCKS USED' COUNT.
		LDX	FIBLOKS+1
		LDY	#$26
		JSR	HEXDEC
		LDA	FIAUXID	 	; AND FINALLY, 'BLOCKS FREE' COUNT.
		SEC
		SBC	FIBLOKS
		PHA
		LDA	FIAUXID+1
		SBC	FIBLOKS+1
		TAX
		PLA
		LDY	#$10
		JSR	HEXDEC
		CLC
		RTS
   SPACE 2
OPNCAT	LDA	#$1	 		;READ ACCESS NEEDED.
		LDX	#TDIR	 		;DIRECTORY TYPE FILE.
		LDY	FIFKIND
		CPY	#$F	 		;IS IT ROOT DIR?
		BNE	OPNDR1	 	;BRANCH IF NOT
		STX	FIFILID
OPNDR1	JSR	DOCATOPN	 	;GO OPEN IT.
		BCS	COPN2	 		;BRANCH IF ERROR.
OPNDR2	LDA	#<CATBUF
		STA	RWDATA	 	;READ DIR HEADER INTO CATBUF.
		LDA	#>CATBUF
		STA	RWDATA+1
		LDA	#$2B	 		;READ STANDARD SIZE ENTRY+4
		STA	RWCOUNT
		LDA	#0	 		;MAKE SURE HI COUNT IS ZERO.
		STA	RWCOUNT+1	 
		LDA	#READCMD	 	;DO READ REQUEST
		JSR	GOSYSTEM
		BCS	COPN2	 		;CLOSE FILE AND; REPORT ERROR IF IT OCCURS.
		LDX	#3	 		;MOVE ENTLEN, MAXENT (PER BLOCK), AND TOTENT
COPN1		LDA	CATBUF+$23,X	 ; TO A MORE SECURE PLACE.
		STA	ENTLEN,X
		DEX
		BPL	COPN1
		STA	RWCOUNT
		LDA	#1	 		;SET CURRENT ENTRY (WITHIN A BLOCK) TO FIRST FILE ENTRY.
		STA	CURRENT
		LDA	#0
		STA	SMARK+1
		STA	SMARK+2
COPN2		RTS
   SPACE 2
DOFOPN	PHA				;SAVE	 REQUESTED ACCESS VALUE.
		LDA	FBITS	 		;TEST FOR OTHER SPECIFIED TYPE.
		AND	#T
		BEQ	DOFOPN1	 	;BRANCH IF X-SPECIFIED TYPE SHOULD BE USED.
		LDX	VTYPE	 		;ELSE PICK UP USER SPECIFIED TYPE
DOFOPN1	PLA				;RESTORE	 REQUESTED ACCESS.
DOCATOPN	CPX	FIFILID	 	;IS FILE TYPE SAME AS EXPECTED?
		BNE	OTYPERR	 	;REPORT TYPE MISMATCH IF NOT.
		AND	FIACESS	 	;IS REQUESTED ACCESS ALLOWED?
		BEQ	OACCERR	 	;BRANCH IF NOT.
		LDA	SYSBUFADR	 	;PREPARE FOR OPEN.
		STA	OSYSBUF+1
		LDA	#$F	 		;SET LOWEST PRIORITY FOR TEMP FILES.
		STA	GLBLEVEL
		LDA	#OPNCMD	 	; AND DO IT.
		JSR	GOSYSTEM
		BCS	ONOOPN	 	;REPORT ERRORS.
		LDA	OREFNUM	 	;SPREAD THE REFNUM AROUND.
		STA	RWREFNUM
		STA	CFREFNUM
		STA	SREFNUM
ONOOPN	RTS				;(OH,	 NO OPEN! IF CARRY SET).
   SPACE 2
OTYPERR	LDA	#ERRTYP	 	;REPORT TYPE MISMATCH.
		SEC
		RTS
   SPACE 2
OACCERR	LDA	#LOCKED	 	;REPORT ACCESS NOT PERMITTED.
		SEC
		RTS
	SPACE 2
NXTCAT	LDA	SMARK+1	 	;ROUND HIGH ADDR OF MARK TO 
		AND	#$FE	 		; TO BOTTOM OF 512 BYTE BOUNDARY.
		STA	SMARK+1
		LDY	CURRENT	 	;DO DUMB CALC TO NEXT ENTRY'S POSITION.
		LDA	#0
		CPY	MAXENT	 	;HAVE WE RUN OUT OF ENTRIES?
		BCC	NXCAT2	 	;BRANCH IF NOT.
		TAY
		STY	CURRENT	 	;BEGIN AT THE BEGINNIG, AGAIN...
		INC	SMARK+1	 	;GET NEXT BLOCK OF DIRECTORY 
NXCAT1	INC	SMARK+1
NXCAT2	DEY				;IS POSITION CORRECT YET?
		CLC
		BMI	NXCAT3	 	;BRANCH IF IT IS (ALMOST)
		ADC	ENTLEN
		BCC	NXCAT2
		BCS	NXCAT1	 	;ALWAYS
*
NXCAT3	ADC	#4	 		;ADJUST FOR DIRECTORY 'LINKS'.
		STA	SMARK
		LDA	#SMRKCMD	 	;POSITION TO START OF NEXT ENTRY.
		JSR	GOSYSTEM
		BCS	NXCAT4	 	;RETURN ERRORS...
		LDA	#READCMD	 	;NOW READ ENTRY...
		JSR	GOSYSTEM
		BCS	NXCAT4
		INC	CURRENT	 	;BUMP CURRENT COUNT FOR NEXT TIME.
		LDA	CATBUF	 	;IS IT AN ACTIVE FILE ENTRY?
		AND	#$F0
		BEQ	NXTCAT	 	;LOOP IF NOT.
		DEC	TOTENT	 	;REDUCE 'FOUND' COUNT FOR NEXT TIME.
		BNE	NXCAT4
		DEC	TOTENT+1
NXCAT4	RTS				;(CARRY IS SET IF ERROR)

*******************************************************
*
* USER COMMAND ADDRESS SET BY EXTERNAL ROUTINES 
*
*******************************************************
* 
USRCMD	JMP	(XTRNADDR)	 	;GOTO USER INSTALLED COMMAND.
 
EXEC		JSR	FNDNAME	 	;IS FILE CURRENTLY ACTIVE?
		BCS	EXEC1	 		;BRANCH IF NOT
		BIT	EXFILE	 	;IS IT THE CURRENT EXEC FILE?
		BPL	EXBUSY	 	;REPORT BUSY IF NOT! 
		STA	SREFNUM	 	;OTHERWISE, RESET POSITION OF FILE.
		LDA	#0
		STA	SMARK
		STA	SMARK+1
		STA	SMARK+2
		LDA	#SMRKCMD	 	;GO SET FILE POSITION TO ZERO.
		JSR	GOSYSTEM
		BCS	CLSXERR	 	;IF ERROR CLOSE EXEC.
		LDA	SREFNUM	 	;ELSE, CONTINUE WITH SETTING THINGS UP.
		BNE	EXECEND	 	;BRANCH ALWAYS TAKEN.
CLSXERR	PHA				;SAVE	 ERROR CODE.
		JSR	CLSEXEC	 	;GO CLOSE EXEC FILE.
		PLA
		SEC				;RESTORE ERROR CONDITION.
		RTS
*
EXBUSY	LDA	#FILBUSY
		SEC
		RTS
   SPACE 2
EXEC1		BIT	EXACTV	 	;IS ANOTHER EXEC FILE ACTIVE?
		BPL	EXEC2	 		;BRANCH IF NOT.
		JSR	CLSEXEC		;GO CLOSE EXEC FILE.
		BCS	EXECERR
*
EXEC2		LDA	FIFILID	 	;MAKE SURE IT'S A TEXT FILE.
		CMP	#TTXT
		BEQ	EXEC3
		LDA	#ERRTYP
EXECERR	SEC				;REPORT ERROR.
		RTS
*
EXEC3		JSR	GETSYSBUF	 	;GO ALLOCATE    SPACE  FOR EXEC FILE OPEN.
		BCS	EXECERR
		LDA	#$0
		STA	SBUFADR	 	;0 lo byte of buffer addr since must be page bndry
		LDA	SYSBUFADR
		STA	SBUFADR+1
		LDX	OPENCNT	 	;TEST TO SEE IF THIS FILE IS HIGHEST IN MEMORY.
		BEQ	EXEC7	 		;BRANCH IF NO OTHER FILES OPEN.
		TAY				;OTHERWISE,	 FIND THE FILE WITH THE HIGHEST
		TXA				; BUFFER ADDRESS, AND MAKE A TRADE WITH IT.
		ASL	A	 		;MULTIPLY OPENCNT BY 4 TO GET # OF PAGES
		ASL	A	 		; USED BY ALL OPEN FILES.
		ADC	SYSBUFADR	 	;ADD TO BUFFER WE GOT.
		PHA				;SAVE	 RESULT FOR LATER.
	
EXEC4		CMP	BUFADRS-1,X
		BEQ	EXEC5	 		;LOOK FOR MATCHING ADDRESS.
		DEX
		BNE	EXEC4	 		;LOOP TIL WE FIND IT.
		DC.B	$00	 		; NEVER!
EXEC5		TYA				;SET NEW BUFFER ADDRESS.
		STA	BUFADRS-1,X
		LDA	REFNUMS-1,X
		STA	SBUFREF	 	;GET REFNUM
		LDA	#SBUFCMD	 	;AND GO MOVE THAT TURKEY DOWN!
		JSR	GOSYSTEM
		BCC	EXEC6
		DC.B	$00	 		; Another break that should never happen
EXEC6		PLA				;GET	 BUFFER ADDRESS FOR EXEC FILE OPEN.
EXEC7		STA	SYSBUFADR	 	;SAVE IN CASE OF OPEN FAILURE.
		STA	OSYSBUF+1
		LDA	#0	 		;HIGHEST PRIORITY OPEN
		STA	GLBLEVEL
		LDA	#OPNCMD	 	;GO OPEN FILE.
		JSR	GOSYSTEM
		BCC	EXEC8	 		;BRANCH IF ALL WENT WELL
		PHA				;SAVE	 ERROR CODE.
		JSR	FRESYSBUF	 	;FREE UP BUFFER WE WORKED SO HARD TO GET.
		PLA
		SEC				;RESTORE ERROR INDICATION.
		RTS
*
EXEC8		LDX	OSYSBUF+1	 	;REMEMBER SYSTEM BUFFER ADDRESS
		STX	BUFADRS+7
		LDA	OREFNUM
		STA	REFNUMS+7	 	;AND REFERENCE NUMBER.
EXECEND	STA	RWREFNUM	 	;SAVE FOR POSITIONING.
		STA	SREFNUM
		STA	NEWLREF
		LDX	FIAUXID	 	;SET UP 'RECORD' LENGTH TOO.
		STX	VLNTH
		LDX	FIAUXID+1
		STX	VLNTH+1
		JSR	LOGEXEC	 	;GO SAVE EXEC FILE'S NAME WITH REG NAMES.
		LDA	#$7F	 		;ENABLE NEWLINE 'CR'
		STA	NLINENBL
		LDA	#NLINCMD
		JSR	GOSYSTEM
		LDA	FBITS+1	 	;WAS A FIELD SPECIFIED?
		AND	#F+R
		BEQ	EXEC9	 		;BRANCH IF NOT.
		JSR	POSN0	 		;POSITION FILE BY SPEC'D FIELD COUNT.
		BCC	EXEC9
		JMP	CLSXERR	 	;CLOSE EXEC AND RETURN ERRORS.
*
EXEC9		LDA	#$FF	 		;SET EXEC FILE ACTIVE.
		STA	EXACTV
		CLC				;INDICATE	 NO ERROR
		RTS				;ALL	 DONE...
	SPACE 2
CLSEXEC	LDA	EXACTV
		BPL	CLSEXC1	 	;BRANCH IF EXEC NOT OPEN. 
		STA	EXFILE	 	;SET FLAG TO TELL CLOSE IT'S SPECIAL.
		LDX	#8
		LDA	REFNUMS-1,X	 	;PASS REFNUM TO 'CLOSE1'
		JSR	CLOSE1	 	;CLOSE EXEC AND FREE BUFFER    SPACE .
CLSEXC1	RTS

	TITLE	'VERIFY'
************************* Verify ********************************
	
VERIFY	BCS	OFNFERR	 	;BRANCH IF FILE NOT FOUND. 
		LDA	FBITS	 		;TEST FOR FILE NAME PRESENT
		AND	#FN1
		BNE	VWITHPN	 	;IF NAME PRESENT, NO ERRORS OR MESSAGE.
		LDX	#COPYRIGHT	 	;ELSE, PRINT COPYRIGHT NOTICE. 
		JSR	PRCOPYRT	 
		JSR	CROUT
VWITHPN	CLC
		RTS
		
	Title 'FLUSH'
*************************  FLUSH  *********************************
* FLUSH INSURES THAT ALL DATA IN BUFFERS NOT YET WRITTEN TO THE	*		
* DISK IS WRITTEN AND DIRECTORIES UPDATED WITH CURRENT INFO.	*
* 'FLSHALL' IS AN INTERNAL ENTRY USED IN CASE OF ERROR, ETC.	*
*******************************************************************
   SPACE 
FLSHALL	LDA	#0
		BEQ	FLUSH1	 	;BRANCH ALWAYS TAKEN.
   SPACE 
FLUSH		LDA	FBITS	 		;TEST FOR SPECIFIC FILE TO FLUSH
		AND	#FN1
		BEQ	FLUSH1	 	;BRANCH IF ALL FILES TO BE FLUSHED.
		JSR	FNDNAME	 	;LOOK UP NAME AND GET REFNUM.
		BCS	FLSHERR	 	;BRANCH IF ERROR.
FLUSH1	STA	CFREFNUM
		LDA	#FLSHCMD	 	;TELL THE MLI TO DO IT.
		JSR	GOSYSTEM
FLSHERR	RTS				;RETURN ERROR (OR NO ERROR) STATUS.

	Title 'OPEN Command'
***************************  OPEN ***********************************
* OPEN COMMAND.  IF FILE DOES NOT EXIST, A TEXT FILE IS CREATED	  *
* WITH RECORD LEN OF (L).  BUFFER SPACE  IS ALLOCATED IF SUCESSFUL. * 
*********************************************************************
   SPACE 
OPEN		PHP				;SAVE	 FILE FOUND STATUS
		JSR	FNDNAME	 	;LOOK FOR FILE ALREADY OPEN.
		BCS	OPEN1	 		;BRANCH IF NONE FOUND.
		PLP				;RESTORE STACK.
		LDA	#FILBUSY	 	;REPORT FILE BUSY.
		SEC
		RTS
   SPACE 
OMISMTCH	LDA	#ERRTYP	 	;REPORT TYPE MISMATCH
		SEC
		RTS
   SPACE 
OFNFERR	LDA	#CIFNFERR
OPERR		SEC
		RTS
   SPACE 
OPEN1		PLP				;RESTORE FILE FOUND STATUS
		LDX	#0	 		;DEFAULT RECORD SIZE = 0000 
		LDY	#0	 
		LDA	FBITS+1	 	;WAS RECORD LENGTH SPECIFIED?
		AND	#L
		BNE	OPEN2	 		;BRANCH IF SO.
		STX	VLNTH+1	 	;ELSE SET DEFAULT TO 1. 
		STY	VLNTH
OPEN2		LDA	FBITS	 		;CHECK FOR TYPE SPECIFIED.
		AND	#T
		EOR	#T	 		;IF ZERO, THEN TYPE SPECIFIED.
		BEQ	OPEN3	 
		LDA	#TTXT	 		;SET TYPE TO TEXT.
		STA	VTYPE
OPEN3		BCC	OPEN4	 		;BRANCH IF FILE EXISTS
		BEQ	OFNFERR	 	;FILE NOT FOUND IF TYPE SPEC'D.
		STA	FIFILID	 	;SET FILE I.D.
		LDA	#$C3	 		;ALLOW ALL ACCESSES.
		STA	FIACESS
		LDX	VLNTH+1	 	;ELSE USE USER'S SPEC.
		LDY	VLNTH
		STX	CRAUXID+1	 	;SAVE REC LEN IN AUXID.
		STX	FIAUXID+1
		STY	CRAUXID
		STY	FIAUXID
		JSR	FCREATE	 	;GO CREATE TEXT FILE...
		BCS	OPERR	 		;BRANCH IF BUNGLED.
	SPACE
OPEN4		LDA	FIFILID	 	;IS FILE TYPE CORRECT?
		CMP	VTYPE
		BNE	OMISMTCH	 	;BRANCH IF NOT.
		CMP	#TTXT	 		;IS IT A TEXT FILE?
		BNE	OPEN4A	 	;IF NOT, LEAVE REC LEN AT 0 OR L
		LDX	FIAUXID+1
		LDY	FIAUXID
		LDA	FBITS+1	 	;SET UP RECORD LENGTH TO BE USED.
		AND	#L
		BNE	OPEN4A	 	;BRANCH IF LENGTH SPECIFIED.
		STX	VLNTH+1
		STY	VLNTH
OPEN4A	JSR	GETSYSBUF	 	;ALLOCATE BUFFER SPACE .
		BCS	OPERR	 		;RETURN ANY ERRORS.
		LDA	SYSBUFADR	 	;PASS BUFFER ADDRESS TO MLI.
		STA	OSYSBUF+1
		LDA	#7	 		;SET LEVEL TO MEDIUM PRIORITY.
		STA	GLBLEVEL
		LDA	#OPNCMD	 	;GO OPEN FILE.
		JSR	GOSYSTEM
		BCC	OPEN5	 		;BRANCH IF SUCCESSFUL
   SPACE 
		PHA				;SAVE	ERROR CODE.
		JSR	FRESYSBUF	 	;RETURN SYSTEM BUFFER TO APPLESOFT.
		PLA
		SEC
		RTS				;RETURN ERROR.
   SPACE 2
OPEN5		LDA	FIFILID
		CMP	#TDIR
		BEQ	OPEN6	 		;BRANCH IF DIRECTORY FILE.
		CLC				;INDICATE NON-DIRECTORY
OPEN6		LDA	#0	 
		ROR	A
		STA	DIRFLG
		LDX	OPENCNT	 	;MARK FILE IN BUFADR &
		LDA	SYSBUFADR	 	; REFNUM LISTS.
		STA	BUFADRS,X
		LDA	OREFNUM
		STA	REFNUMS,X
		INC	OPENCNT	 	;BUMP COUNT OF FILES OPEN.
LOGEXEC	ASL	A	 		;ENTRY USED TO STORE EXEC FILENAMES. 
		ASL	A
		ASL	A
		ASL	A
		ASL	A	 		;GET POSITION IN FILE NAME LIST.
		TAX
		LDA	TXBUF2	 	;GET TOTAL PATH LENGTH.
		ORA	DIRFLG	 	;MOVE DIRECTORY FILE INDICATOR TO HI BIT.
		STA	FILNAMES,X	 	;SAVE IN LIST
		AND	#$7F	 		;STRIP DIR FLG
		TAY
		CMP	#$1E	 		; ONLY 29 CHARACTER RESOLUTION...
		BCC	OPEN7	 		;BRANCH IF LESS.
		LDA	#$1D
OPEN7		STA	FROM
		LDA	VLNTH
		STA	FILNAMES+1,X
		LDA	VLNTH+1
		STA	FILNAMES+2,X	;SAVE RECORD LENGTH.
OPEN8		INX
		LDA	TXBUF2,Y	 	;MOVE FILENAME TO LIST.
		STA	FILNAMES+2,X
		DEY
		DEC	FROM
		BNE	OPEN8
OLDCMD	CLC				;Open was a SUCCESS!
		RTS
	SPACE 2
	TITLE	'FIND FILE'	 
****************** FIND FILE **************************
* FIND FILENAME IN ACTIVE FILE LIST.  POSITION IN	* 
* TABLE IS 32*REFNUM.  FIRST VALUE IN EACH NAME IS	*
* TOTAL PATH LENGTH (PLUS 128 IF DIR).			*
* NEXT WORD IS RECORD LENGTH.  LASTLY, UP TO 29 	*
* CHARACTERS OF THE PATHNAME IS STORED.			*
*******************************************************
   SPACE 
FNDNAME	LDA	FBITS	 		;FIRST VERIFY THAT A NAME WAS SPECD
		AND	#FN1
		BNE	FNDNAM0
		LDA	#ERRSYN
		SEC
		RTS
   SPACE 2
FNDNAM0	LDX	OPENCNT	 	;SEARCH LAST OPENED FIRST.
		BEQ	NOFILE	 	;BRANCH IF NO OPEN FILES.
		STX	EXFILE	 	;CLEAR EXEC MATCH FLAG (HI BIT IS SIGNIFICANT)
FNDNAM1	STX	FROM+1	 	;(NO CONFLICT)
		LDA	REFNUMS-1,X	 	;LOAD NEXT REFNUM.
		JSR	CMPNAME	 	;GO COMPARE NAME ASSOCIATED WITH REFNUM.
		BNE	FNDNAM2	 	;BRANCH IF MISMATCH.
		LDX	FROM+1	 	;ALL CHARACTERS MATCH!!!
EXFOUND	LDA	REFNUMS-1,X	 	;GET REFNUM AGAIN.
CLSNONE	CLC				;INDICATE MATCH FOUND.
		RTS
   SPACE 2
FNDNAM2	LDX	FROM+1	 	;TRY NEXT FILENAME
		DEX				;IF ANY...
		BNE	FNDNAM1	 	;BRANCH IF MORE.
NOFILE	LDA	EXACTV	 	;IS AN EXEC FILE ACTIVE?
		BPL	NOFIL1	 	;BRANCH IF NOT.
		LDA	REFNUMS+7	 	;ELSE CHECK TO SEE IF IT'S THE EXEC FILE.
		JSR	CMPNAME
		BNE	NOFIL1	 	;BRANCH IF EXEC DIDN'T MATCH.
		LDA	#$FF	 		;SET FLAG THAT IT'S AN EXEC FILE MATCH.
		STA	EXFILE
		LDX	#8	 		;GIVE BACK PTR TO REFNUM & BUFADR.
		BNE	EXFOUND	 	;BRANCH ALWAYS TAKEN.
NOFIL1	LDA	#FNOPN	 	;REPORT FILE NOT OPEN.
		SEC
		RTS
	SPACE 2
	Title 'Compare Pathname'
********************* Compare Pathname **********************
* CMPNAME compares the Pathname (or at least the last 29	*
* characters) in TXBUF with names indexed by a reference	*
* number.  It returns the Z flag to indicate if a match:	*
*      Z = 0 - Match							*
*      Z <> 0 - No Match						*
*************************************************************
CMPNAME	ASL	A
		ASL	A
		ASL	A	 		;CALC POSITION IN TABLE.
		ASL	A
		ASL	A	 		;(REF 8=00)
		TAX
		LDA	FILNAMES,X	 	;GET PATHNAME'S TOTAL LENGTH.
		STA	DIRFLG	 	;SET JUST IN CASE OF MATCH.
		AND	#$7F	 		;STRIP DIRECTORY BIT.
		CMP	TXBUF2	 	;IS LENGTH THE SAME?
		BNE	CMPNAM3	 	;BRANCH IF NOT.
		TAY
		CMP	#$1E	 		;ONLY LOOK AT LAST 29 
		BCC	CMPNAM1	 	; CHARACTERS, BR IF LESS.
		LDA	#$1D	 
CMPNAM1	STA	FROM	 		;MOVE RECORD LENGTH IN
		LDA	FILNAMES+1,X	; ANTICIPATION OF A MATCH.
		STA	RECLEN
		LDA	FILNAMES+2,X
		STA	RECLEN+1
CMPNAM2	INX				;COMPARE CHARACTER BY CHARACTER.
		LDA	TXBUF2,Y
		CMP	FILNAMES+2,X
		BNE	CMPNAM3	 	;BRANCH IF MISMATCH.
		DEY
		DEC	FROM	 
		BNE	CMPNAM2	 	;LOOP UNTIL ALL COMPARED.
CMPNAM3	RTS				;RETURN EQUALS OR NOT EQUALS...
	SPACE 2
	TITLE	'CLOSE'	 
***************** CLOSE *************************
* CLOSE / CLOSALL ROUTINES				*
*************************************************
   SPACE 
CLOSE		LDA	FBITS	 		;WAS A PARTICULAR FILE SPECIFIED?
		AND	#FN1
		BEQ	CLOSALL	 	;BRANCH IF ALL FILES SHOULD BE CLOSED.
		JSR	FNDNAME	 	;GO LOOK UP FILE'S REFNUM & BUFFER ADDR.
	SPACE 2
		BCS	CLSNONE	 	;NOT OPEN, IGNORE... 
CLOSE1	STA	CFREFNUM
		LDA	BUFADRS-1,X	 	;RETURN BUFADR IN SYSBUFADR
		STA	SYSBUFADR
		BIT	EXFILE	 	;IF THIS IS AN EXEC FILE
		BMI	CLOSE2	 	; DON'T MESS WITH THE REFNUMS!
		LDY	OPENCNT
		PHA
		LDA	BUFADRS-1,Y
		STA	BUFADRS-1,X
		PLA
		STA	BUFADRS-1,Y	 	;SWAP THIS ADDRESS & REFNUM
		LDA	REFNUMS-1,X	 	; WITH LAST IN LIST (MAY ALREADY BE LAST).
		PHA
		LDA	REFNUMS-1,Y
		STA	REFNUMS-1,X
		PLA
		STA	REFNUMS-1,Y
CLOSE2	LDA	#$0	 		;HIGHEST PRIORITY CLOSE.
		STA	GLBLEVEL
		LDA	#CLOSCMD	 	;CALL MLI TO CLOSE THIS ONE.
		JSR	GOSYSTEM
	SPACE 2
		BCS	CLSERR
		JSR	FRESYSBUF	 	;RETURN BUFFER SPACE TO APPLESOFT.
		BIT	EXFILE	 	;CHECK FOR EXEC FILE CLOSE.
		BPL	CLOSE3	 	;BRANCH IF NOT EXEC.
		PHA				;SAVE PROBLEMS,IF ANY.
		LDA	#0	 		;CLEAR EXACTV, EXFILE FLAGS 
		STA	EXACTV
		STA	EXFILE
		PLA
		RTS
	SPACE 2
CLOSE3	DEC	OPENCNT
		RTS
   	SPACE 2
CLOSALL	LDX	OPENCNT	 	;LOOP THRU OPEN LIST.
		BEQ	CLOSDONE
		STX	EXFILE	 	;'CLOSALL' CAN'T MESS WITH EXEC FILES.
		LDA	REFNUMS-1,X
		JSR	CLOSE1	 	;SEND REFNUM
	SPACE
		BCC	CLOSALL	 
CLSERR	RTS
   SPACE 2
CLOSDONE	LDA	#0	 		;FORCE ALL OTHER FILES WITH LOW 
		STA	CFREFNUM	 	; PRIORITIES, CLOSED... 
		LDA	#$7
		STA	GLBLEVEL
		LDA	#CLOSCMD
		JMP	GOSYSTEM	 	;EXIT VIA 'GOSYSTEM'
	SPACE
	TITLE	'Position'
********************* Position ********************************
* POSITION moves the file pointer forward by counting CRs and *
*  skipping the data in between...					  *
* The number of CRs is set either by the R (VRECD) or the	  *
*   F (VFELD) parameter (but NOT both).  POSITION with a	  *
*   zero argument is a null operation.				  *
***************************************************************
	SPACE
POSITION	JSR	FNDNAME	 	;LOOK UP FILE IN ACTIVE LIST.
		BCS	PERRTN	 	;RETURN ERROR IF NOT FOUND.
		STA	RWREFNUM
		STA	NEWLREF
		BIT	DIRFLG	 	;IF DIRECTORY, IGNORE IT!
		BMI	RTNPOS	 	;EXIT WITH CARRY CLEAR (NO ERROR).
POSN0		LDA	FBITS+1	 	;MUST HAVE FIELD OR RECORD PARM.
		AND	#F+R
		BEQ	PPRMERR	 	;RETURN PARAMETER ERROR IF NOT.
		CMP	#F+R	 
		BEQ	PPRMERR	 	;ERROR IF BOTH PRESENT.
		AND	#R	 		;USE RECORD OR FIELD?
		BEQ	POSNF	 		;BRANCH IF FIELD.
		LDA	VRECD	 		; ELSE, COPY VALUES TO FIELD.
		STA	VFELD
		LDA	VRECD+1
		STA	VFELD+1
*
POSN1		EQU	*	 		;Bug fix 4/17/84. See note 8 lines down 
POSNF		LDA	#$EF
		STA	RWCOUNT	 	; AS A SUBROUTINE.
		LDA	#0
		STA	RWCOUNT+1	 	;READ TO NEXT CR OR 239 CHARACTERS.
		STA	RWDATA	 	;SET READ ADDRESS TO INPUT BUFFER.
		LDA	#2
		STA	RWDATA+1
		LDA	#$7F	 		;(Label POSN1 used to be here)
		STA	NLINENBL
		LDA	#NLINCMD	 	;SET NEWLINE TO CR BEFORE SKIPPING
		JSR	GOSYSTEM	 	; SPECIFIED LINE COUNT.
	SPACE
		BCS	PERRTN
POSN2		LDA	VFELD	 		;TEST FOR FINISHED... (ENTRY USED
		ORA	VFELD+1	 	; BY READ AND WRITE) 
		CLC				;ANTICIPATE GOOD FINISH.
		BEQ	RTNPOS
		LDA	#READCMD	 	;READ NEXT FIELD AND DISCARD.
		JSR	GOSYSTEM
	SPACE
		BCS	PERRTN	 	;RETURN ERRORS.
		LDA	VFELD	 		;DECREMENT COUNT.
		SBC	#0	 		;(CARRY CLEAR SUBTRACTS 1)
		STA	VFELD
		LDA	VFELD+1
		SBC	#0
		STA	VFELD+1
		BCS	POSN2	 		;BRANCH ALWAYS TAKEN.
PPRMERR	LDA	#ERRINVLD	 	;REPORT INVALID PARAMETERS
PERRTN	SEC
RTNPOS	RTS				;EXIT	 POSITION COMMAND.
	SPACE 2
	Title 'CALPOSN'
********************* CALPOSN *******************************
* CALPOSN MULTIPLYS 'RECLEN' WITH 'VRECD' AND STORES THE 	*
* RESULT IN 'SMARK'.  IF RESULT IS >2^24 A RANGE ERROR IS	*
* RETURNED.									*
*************************************************************
   SPACE 
CALPOSN	LDA	RECLEN	 	;MOVE RECORD LENGTH TO 'ACC'
		STA	ACCL	 		; IN WORK SPACE FOR CALCULATION.
		LDA	RECLEN+1
		STA	ACCM
		LDA	#0
		STA	ACCH
		STA	MODO	 		;THIS IS USED TO DETECT OVERFLOW.
		STA	SMARK
		STA	SMARK+1
		STA	SMARK+2	 	;ZERO RESULT
CALPSN1	LSR	VRECD+1	 	;DO THE OLD SHIFT AND ADD STUFF...
		ROR	VRECD
		LDX	#0
		BCC	CALPSN3	 	;BRANCH IF NO ADD
		CLC
CALPSN2	LDA	ACCL,X	 	;ADD CURRENT (POWER OF 2) VALUE
		ADC	SMARK,X	 	; TO ACCUMUALTING TOTAL IN 'SMARK'.
		STA	SMARK,X
		INX
		TXA				;TEST FOR ALL 24 BITS ADDED.
		EOR	#3	 		;IN SUCH A WAY AS TO NOT DISTURB CARRY.
		BNE	CALPSN2
		BCS	CPSNERR	 	;RETURN ERROR IF OVERFLOW.
		LDX	MODO	 		;WAS MORE THAN 24 BITS TO BE ADDED?
		BNE	CPSNERR
   SPACE 
CALPSN3	ROL	ACCL,X	 	;THIS LOOP SHIFTS LEFT ALL
		INX				;BITS IN ACCL, ACCM, ACCH, & MODO.
		TXA
		EOR	#4
		BNE	CALPSN3
		LDA	VRECD	 		;TEST FOR MORE TO MULTIPLY.
		ORA	VRECD+1
		BNE	CALPSN1
		CLC
		RTS				;ALL DONE WITH GOOD MULTIPY.
   SPACE 2
CPSNERR	LDA	#ERRANGE	 	;REPORT RANGE ERROR.
		SEC
		RTS
	SPACE 2
	TITLE	'READ & WRITE'
********************** READ & WRITE ****************************
* READ sets Input for Applesoft to Read from a File instead of *
*   keyboard or devices.  Parameters R, F, B are allowed (in   *
*   order of precedence) to position the file marker for the   *
*   next READ.								   *
* The L parameter will cause a READ of L bytes for each INPUT, *
*   with NEWLINE disabled and incoming strings to be preceeded *
*   by a Quote automatically.						   *
****************************************************************
	SPACE
READ		JSR	FNDNAME	 	;LOOK UP FILE NAME TO GET
		BCS	RRDERR	 	; RECORD LENGTH AND REFNUM.
		STA	RWREFNUM
		STA	SREFNUM
		STA	NEWLREF
		BIT	DIRFLG	 	;IS THIS FILE A DIRECTORY? 
		BMI	READC	 		; BRANCH IF YES.
* READ NON-DIRECTORY
		JSR	RNDPOSN	 	;GO POSITION TO R,F,B AS SPECD 
		BCS	RRDERR
		LDX	#$7F	 		;ANTICIPATE ENABLING NEWLINE.
		LDY	#$EF	 		; AND READING UP TO 239 CHARACTERS.
		LDA	FBITS+1	 	;TEST FOR 'L' PARM FOR NEWLINE
		AND	#L	 		; ENABLE AND READ LENGTH PER INPUT.
		BEQ	READ1
		LDY	VLNTH	 		;GET LENGTH OF READ.
		LDX	VLNTH+1	 	;(MUST BE ZERO) AND DISABLE NEWLINE.
		BNE	RDRNGERR	 	;BRANCH IF RANGE ERROR
		CPY	#$EF	 		;MUST BE LESS THAN 239.
		BCS	RDRNGERR
		LDA	#$22	 		;SET FIRST CHARACTER OF INPUT BUFFER
		STA	INLINE	 	; TO A QUOTE TO ALLOW COMMAS & COLENS.
		LDA	#1	 		;SET INPUT ADDR TO INLINE PLUS 1.
READ1		STA	RWDATA
		STY	RWCOUNT	 	;SET UP MLI PARMS.
		STX	NLINENBL
		LDA	#>INLINE
		STA	RWDATA+1
		LDA	#0
		STA	RWCOUNT+1
		LDA	#NLINCMD
		JSR	GOSYSTEM	 	;SET NEWLINE (OR RESET AS THE CASE MAY BE)
		BCS	RRDERR
READ2		LDA	#$FF
		STA	IFILACTV	 	;SET FLAGS FOR INPUT (READ).
RRDERR	RTS				;ALL	 DONE!!!
   SPACE 2
		
		;STA	RWREFNUM		Duplicated from above at "READ"
		;STA	SREFNUM	 	Duplicated from above at "READ" ;FOR GETMARK/SETMARK.
READC		LDA	#<CATBUF
		STA	RWDATA
		LDA	#>CATBUF
		STA	RWDATA+1	 	;USE CAT BUFFER FOR RAW ENTRIES.
		LDA	#1
		STA	CATFLAG	 	; IF NOT FIRST READ, GIVE CR INSTEAD OF HEADER.
		LDA	FBITS+1	 	;CHECK ONLY FOR 'R' PARM TO REWIND DIRECTORY.
		AND	#R
		CLC				;ANTICIPATE	 NO ERRORS. 
		BEQ	READ2	 
		LDA	#0	 		;SET FILE POSITION TO ZERO.
		STA	SMARK
		STA	SMARK+1
		STA	SMARK+2
		LDA	#SMRKCMD	 	;SET NEW MARK FOR FILE.
		JSR	GOSYSTEM
		BCS	RDCATERR
		LDA	#$FF
		STA	IFILACTV	 	;SET FLAGS FOR INPUT (READ).
RDCATERR	RTS				;ALL DONE!!!
	SPACE 2
RDRNGERR	LDA	#ERRANGE	 	;REPORT FILE POSITION INVALID.
		TAX				;RETURN IN BOTH A & X.
		SEC
		RTS
	SPACE 2
RNDPOSN	LDA	FBITS+1	 	;TEST FOR RECORD, FIELD, AND BYTE POSITION
		AND	#R+F+B	 	; OFFSETS.
		BEQ	RNDP4	 		;BRANCH IF NO POSITIONING NEEDED.
		AND	#R	 		;WAS A RECORD SPECIFED?
		BEQ	RNDP1	 		;BRANCH IF NOT.
		JSR	CALPOSN	 	;CALCULATE ABS FILE POSN (RECLEN*VRECD).
		BCS	RDRNGERR	 	;BRANCH IF TOO BIG!
RNDPOS0	JSR	GOSMARK	 	;SET FILE MARK TO RECORD 'VRECD'.
	SPACE
		BCS	RNDPERR	 	;BRANCH IF PROBLEMS...
RNDP1		LDA	FBITS+1
		AND	#F	 		;MUST SOME FIELDS BE SKIPPED?
		BEQ	RNDP2	 		;BRANCH IF NOT.
		JSR	POSN1	 		;ELSE, READ & SKIP 'VFELD' FIELDS.
	SPACE
		BCS	RNDPERR	 
RNDP2		LDA	FBITS+1	 	;LASTLY, TEST FOR BYTE OFFSET PARM.
		AND	#B
		BEQ	RNDP4	 		;BRANCH IF NO 'B' PARM.
		LDA	#GMRKCMD	 	;ELSE ADD VBYTE TO SMARK TO FORM NEW SMARK.
		JSR	GOSYSTEM
	SPACE
		BCS	RNDPERR
		LDX	#0
		LDY	#2
RNDP3		LDA	VBYTE,X
		ADC	SMARK,X
		STA	SMARK,X
		INX
		DEY
		BPL	RNDP3	 
		BCS	RDRNGERR	 	;BRANCH IF >$FFFFFF
GOSMARK	LDA	#SMRKCMD	 	;SET NEW MARK FOR FILE.
		JSR	GOSYSTEM
	SPACE
		BCS	RNDPERR	 
RNDP4		CLC
RNDPERR	LDX	#0
		RTS
	SPACE 2
	Title 'Write Positions'
*************************************************************
* WRITE POSITIONS THE FILE TO SPECIFIED 'R'+'F'+'B'		*
* AND SETS PROGRAM OUTPUT TO DIRECT CHARACTERS TO THE FILE. *
*************************************************************
   	SPACE
WRITE		JSR	FNDNAME	 	;LOOK UP FILE NAME FOR REFNUM.
		BCS	WWRTERR	 	;PASS BACK ERRORS.
		STA	RWREFNUM
		STA	SREFNUM
		STA	NEWLREF
		BIT	DIRFLG	 	;CAN'T WRITE TO DIRECTORIES!
		BPL	WRITE1	 	;BRANCH IF NOT DIR.
		LDA	#LOCKED	 	;REPORT ILLEGAL ACCESS.
WWRTERR	SEC
		RTS
   SPACE 2
WRITE1	LDA	#<INLINE	 	;FOR POSITIONING, USE INPUT BUFFER. 
		STA	RWDATA
		LDA	#>INLINE
		STA	RWDATA+1
		JSR	RNDPOSN	 	;GO POSITION FILE MARKER. 
		BCC	WRITE3	 	;BRANCH IF NO PROBLEMS... 
		CMP	#ERRANGE	 	;OUT OF RANGE OF FILE?
		BNE	WWRTERR	 	;BRANCH IF SOME OTHER PROBLEM.
		CPX	#ERRANGE	 	;WAS 'RANGERR' NOT FROM MLI?
		BEQ	WWRTERR
WRITE2	LDA	#SEOFCMD	 	;EXTEND EOF TO NEW POSITION.
		JSR	GOSYSTEM
		BCS	WWRTERR
		JSR	RNDPOS0	 
		BCS	WWRTERR	 	;REPORT ANY ERRORS HERE. 
WRITE3	LDA	HIMEM	 		;SET WRITE BUFFER ABOVE APPLESOFT AREA.
		STA	RWDATA
		LDA	HIMEM+1
		STA	RWDATA+1
		LDA	#$FF	 		;LASTLY, SET 'OUTPUT FILE ACTIVE' FLAG.
		STA	OFILACTV
		CLC
		RTS
	SPACE 2
	TITLE	'APPEND'	 
*********************** APPEND ******************************
* APPEND Opens a file, Positions to EOF or the Record after *
*   the last, and enables WRITE MODE for Program output.    *
*************************************************************
	SPACE
APPEND	PHP				;SAVE	 STATUS OF FILE FOUND.
		JSR	FNDNAME	 	;DETERMINE IF FILE IS ALREADY OPEN.
		BCC	APEND1	 	;BRANCH IF FILE ALREADY OPEN.
		PLP				;SEND	 FILE FOUND STATE TO OPEN.
		JSR	OPEN	 		;GO OPEN FILE IF POSIBLE.
		BCS	APNDERR	 	;RETURN ERRORS.
		LDA	OREFNUM	 	;GET FILE REFNUM.
		BNE	APEND2	 	;BRANCH ALWAYS
		DC.B	$00	 		; NEVER!
APEND1	PLP				;THROW AWAY RESULT OF LOOKING UP FILE ON DISK
APEND2	STA	RWREFNUM	 	;REFNUM IN A-REG.
		STA	SREFNUM	 	;(FOR SETMARK, SETEOF)
		BIT	DIRFLG	 	;CAN'T WRITE TO A DIRECTORY!
		BPL	APEND3	 	;BRANCH IF NOT DIRECTORY.
		LDA	#LOCKED
APNDERR	SEC
		RTS
	SPACE 2
APEND3	LDX	VLNTH	 		;GET RECORD LENGTH
		LDY	VLNTH+1	 	;USE USER SPECIFIED.
		LDA	FBITS+1
		AND	#L	 		;UNLESS NONE SPECIFIED.
		BNE	APEND4	 	;BRANCH IF USER DID SPECIFY.
		LDX	FIAUXID	 	;ELSE, USE DEFAULT VALUES.
		LDY	FIAUXID+1
APEND4	TXA
		PHA				;SAVE	 LOW RECLEN FOR NOW.
		LDA	RWREFNUM	 	;GET REFNUM TO INDEX FILENAMES
		LSR	A
		ROR	A
		ROR	A
		ROR	A	 		;(BELIEVE IT OR NOT, MULTIPIES BY 32)
		TAX
		PLA				;STORE RECORD LENGTH WITH FILENAME & IN RECLEN.
		STA	FILNAMES+1,X
		STA	RECLEN
		TYA
		STA	FILNAMES+2,X
		STA	RECLEN+1	 	;THIS MAY BE REDUNDANT, BUT NECESSARY.
		LDA	#GEOFCMD	 	;GET CURRENT EOF VALUE.
		JSR	GOSYSTEM
		BCS	APNDERR
		LDA	RECLEN+1	 	;NOW DETERMINE IF NEW EOF SHOULD BE SET.
		BNE	APEND5	 	;BRANCH IF DEFINITELY YES.
		LDA	RECLEN
		CMP	#2	 		;IF 1 OR 0, CURRENT EOF WILL DO.
		BCC	APEND6
APEND5	JSR	CALCEOF	 	;GO FIGURE OUT NEW EOF.
		BCS	APNDERR
APEND6	JMP	WRITE2	 	;FINISH WITH WRITE ROUTINES.
	
CALCEOF	LDX	#3	 		;MOVE CURRENT EOF TO SAFER PLACE.
CCEOF1	LDA	SMARK-1,X
		STA	ACCL-1,X
		DEX
		BNE	CCEOF1
		STX	MODO	 		;SET MODOULO TO ZERO.
		STX	MODOH
		LDY	#$18	 		;COUNT FOR 24 BIT DIVIDE (BY 16 BITS).
CCEOF2	JSR	SHFT24	 	;Shift 24 bit ACC left
		ROL	MODO	 		;See Apple II Monitor Rom Listing for an 
		ROL	MODOH	 		;  explanation of this divide routine 
		SEC
		LDA	MODO	 
		SBC	RECLEN
		TAX
		LDA	MODOH	 		;(RESULT OF DIVIDE IS SHIFTED IN TO ACC
		SBC	RECLEN+1	 	; AS THE ORIGINAL VALUE IS SHIFTED
		BCC	CCEOF3	 	; THRU MODO.  ANY LEFTOVERS, OR MODOULO
		STX	MODO	 		; ARE LEFT IN 'MODO' AFTER LAST SHIFT.
		STA	MODOH
		INC	ACCL	 		;(SETS LOWEST BIT TO '1', BECAUSE OF ABOVE SHIFT)
CCEOF3	DEY
		BNE	CCEOF2	 	;LOOP THRU 24 BITS.
		LDA	MODO	 		;TEST FOR NEED OF ADJUSTMENT.
		ORA	MODOH
		CLC
		BEQ	CCEOF4	 	;BRANCH IF EOF ON RECORD BOUNDARY
		LDA	RECLEN	 	; NEWEOF=RECLEN-MODO+OLDEOF
		SEC
		SBC	MODO
		TAX
		LDA	RECLEN+1
		SBC	MODOH
		TAY
		TXA
		CLC
		ADC	SMARK
		STA	SMARK
		TYA
		ADC	SMARK+1
		STA	SMARK+1
		LDA	SMARK+2
		ADC	#0	 		;THAT SHOULD ABOUT DO IT...
		STA	SMARK+2
		LDA	#ERRANGE	 	;GET ERROR CODE JUST IN CASE OF OVERFLOW.
CCEOF4	RTS				;CARRY DETERMINES IF ERROR VALID!!!
	SPACE 2

	TITLE	'Set/Get File Info'	 
********************** Set/Get File Info **************************
* GOGETINFO and GOSETINFO use the same parameter SPACE, but		*
* with different parameter counts.  Also, Dates must be zeroed    *
* before the call to SETINFO.							*
*******************************************************************
	SPACE
GOGETINFO	LDA	#$A	 		;SET PARM COUNT TO 10
		STA	SSGINFO	 	; TO MAKE IT A VALID CALL.
		LDA	#GFINFO
		BNE	GGSINF	 	;EXECUTE REQUEST.
   SPACE
GOSETINFO	EQU	*
		LDA	#0	 		;ZERO MODO DATE/TIME
		STA	FIMDATE
		STA	FIMDATE+1
		STA	FIMDATE+2
		STA	FIMDATE+3
GSINFO1	LDA	#7	 		;ONLY 7 PARMS FOR SET FILE INFO.
GSINFO2	STA	SSGINFO
		LDA	#SFINFO
GGSINF	JMP	GOSYSTEM	 	;EXECUTE REQUEST.

	Title 'Hooks'
****************'Hooks'**********************************
		EXPORT DOSOUT
DOSOUT	JMP	(VSYSIO)
		EXPORT DOSINP
DOSINP	JMP	(VSYSIO+2)
SYSIO		EQU	*
		DC.W	IMMEDOUT	 
		DC.W	IMINP	 		;STATE = 0
*
		DC.W	DFOUT
		DC.W	DFINP	 		;STATE = 4
*
		DC.W	CMDOUT
		DC.W	DFINP	 		;STATE = 8
CKDADDR	DC.W	OUTCKD


	Title 'TABLES'
*****************'TABLES'***********************************
* Table of System Calls						     *
************************************************************
		EXPORT SYSCTBL
SYSCTBL	
		DC.B	SCREATE,SDSTROY,SRENAME,SSGINFO	  
		DC.B	SSGINFO,SONLINE,SSGPRFX,SSGPRFX	 
		DC.B	SOPEN,SNEWLIN,SREAD,SWRITE
		DC.B	SCLOSE,SFLUSH,SSETMRK,SGETMRK
		DC.B	SSETEOF,SGETEOF,SSETBUF,SGETBUF
*
TOKTBL	EQU	*	 		;Table of Applesoft commands (tokens)
		DC.B	$80,$81,$82,$83	 		;END,FOR,NEXT,DATA 
		DC.B	$84,$85,$86,$87	 		;INPUT,DEL,DIM,READ 
		DC.B	$88,$89,$8A,$8B	 		;GR,TEXT,PR#,IN# 
		DC.B	CALL-PRINT,$8D,$8E,$8F	 	;CALL,PLOT,HLIN,VLIN 
		DC.B	$90,$91,$92,$93	 		;HGR2,HGR,HCOLOR,HPLOT 
		DC.B	$94,$95,$96,$97	 		;DRAW,XDRAW,HTAB,HOME 
		DC.B	$98,$99,$9A,TRACE-PRINT	 	;ROT=,SCALE=,SHLOAD,TRACE 
		DC.B	NOTRACE-PRINT,NORMAL-PRINT,INVERSE-PRINT,FLASH-PRINT	 
		DC.B	$A0,$A1,$A2,$A3	 		;COLOR=,POP,VTAB,HIMEM: 
		DC.B	$A4,$A5,RESUME-PRINT,$A7	;LOMEM:,ONERR,RESUME,RECALL 
		DC.B	$A8,$A9,LET-PRINT,$AB	 	;STORE,SPEED=,LET,GOTO 
		DC.B	$AC,IF-PRINT,$AE,$AF	 	;RUN,IF,RESTORE,& 
		DC.B	$B0,$B1,$B2,$B3	 		;GOSUB,RETURN,REM,STOP 
		DC.B	$B4,$B5,$B6,$B7	 		;ON,WAIT,LOAD,SAVE 
		DC.B	$B8,$B9,PRINT-PRINT,$BB	 	;DEF,POKE,PRINT,CONT 
		DC.B	LIST-PRINT,$BD,$BE,$BF	 	;LIST,CLEAR,GET,NEW 
	SPACE 2
	Title 'SRCHTBL'
*******************************************************************
* SRCHTBL provides a relative offset into XCMDS table (below)	*
*  for each command.  The offset points to the last character	*
*  of the command string.  In addition, the high bit indicates	*
*  the last command of each group (the table is used in		*
*  decending order by SRCHCMD).  The groups are according to	*
*  command string length.							*
*******************************************************************
CMDCNT	EQU	$1F	 			;Highest command number (0-31)
*
SRCHTBL	EQU	*	 			;CI-COMMAND NUMBER 
		DC.B	XIN-XCMDS+2	  		;"IN#"=1 
		DC.B	XPR-XCMDS+2	  		;"PR#"=2
		DC.B	XCAT-XCMDS+2	 	;"CAT"=3 
		DC.B	XFRE-XCMDS+2	 	;"FRE"=4 
		DC.B	XBYE-XCMDS+2	 	;"BYE"=5
		DC.B	XRUN-XCMDS+$82	 	;"RUN"=6 
*
		DC.B	XBRUN-XCMDS+3	 	;"BRUN"=7 
		DC.B	XEXEC-XCMDS+3	 	;"EXEC"=8
		DC.B	XLOAD-XCMDS+3	 	;"LOAD"=9 
		DC.B	XLOCK-XCMDS+3	 	;"LOCK"=A
		DC.B	XOPEN-XCMDS+3	 	;"OPEN"=B
		DC.B	XREAD-XCMDS+3	 	;"READ"=C
		DC.B	XSAVE-XCMDS+$83	 	;"SAVE"=D
*
		DC.B	XBLOAD-XCMDS+4	 	;"BLOAD"=E
		DC.B	XBSAVE-XCMDS+4	 	;"BSAVE"=F
		DC.B	XCHAIN-XCMDS+4	 	;"CHAIN"=10
		DC.B	XCLOSE-XCMDS+4	 	;"CLOSE"=11
		DC.B	XFLUSH-XCMDS+4	 	;"FLUSH"=12
		DC.B	XNOMON-XCMDS+4	 	;"NOMON"=13
		DC.B	XSTORE-XCMDS+4	 	;"STORE"=14
		DC.B	XWRITE-XCMDS+$84	 	;"WRITE"=15 
*
		DC.B	XAPPEND-XCMDS+5	 	;"APPEND"=16 
		DC.B	XCREATE-XCMDS+5	 	;"CREATE"=17
		DC.B	XDELETE-XCMDS+5	 	;"DELETE"=18 
		DC.B	XPREFIX-XCMDS+5	 	;"PREFIX"=19 
		DC.B	XRENAME-XCMDS+5	 	;"RENAME"=1A 
		DC.B	XUNLOCK-XCMDS+5	 	;"UNLOCK"=1B 
		DC.B	XVERIFY-XCMDS+$85	 	;"VERIFY"=1C 
*
		DC.B	XCATLOG-XCMDS+6	 	;"CATALOG"=1D 
		DC.B	XRSTORE-XCMDS+$86	 	;"RESTORE"=1E 
*
		DC.B	XPOSION-XCMDS+$87	 	;"POSITION"=1F 
							;"-" (SMART RUN) =20 
	Title 'XCMDS'
******************************* XCMDS *****************************
* XCMDS is an ASCII list of the commands in no particular		*
*  order.  Some characters overlap, though the savings in memory	*
*  is not that big a deal...							*
*******************************************************************
		MSB	OFF
XCMDS		EQU	*
XBSAVE	DC.B	'B'
XSAVE		DC.B	'SA'
XVERIFY	DC.B	'VERIFY'
XBLOAD	DC.B	'B'
XLOAD		DC.B	'LOA'
XDELETE	DC.B	'DELETE'
XBYE		DC.B	'BYE'
XCAT		EQU	*
XCATLOG	DC.B	'CATALOG'
XOPEN		DC.B	'OPEN'
XWRITE	DC.B	'WRIT'
XEXEC		DC.B	'EXE'
XCREATE	DC.B	'CREATE'
XFRE		DC.B	'F'
XRSTORE	DC.B	'RE'
XSTORE	DC.B	'STO'
XRENAME	DC.B	'RENAME'
XBRUN		DC.B	'B'
XRUN		DC.B	'R'
XUNLOCK	DC.B	'UN'
XLOCK		DC.B	'LOCK'
XCHAIN	DC.B	'CHA'
XIN		DC.B	'IN#'
XFLUSH	DC.B	'FLUSH'
XREAD		DC.B	'READ'
XPOSION	DC.B	'POSITIO'
XNOMON	DC.B	'NOMON'
XPR		DC.B	'PR#'	 
XPREFIX	DC.B	'PREFIX'
XCLOSE	DC.B	'CLOSE'
XAPPEND	DC.B	'APPEND'
	
	Title 'CMDEXEC'
***************************** CMDEXEC *****************************
* CMDEXEC is the dispatch table for the commands after parameters	*
*  have been processed by CMDSYN.						*
*******************************************************************
CMDEXEC	EQU	*	 			;EXTERNAL COMMAND=0 
		DC.W	USRCMD
		DC.W	INNUM	 			;"IN#"=1 
		DC.W	PRNUM	 			;"PR#"=2 
		DC.W	CAT	 			;"CAT"=3 
		DC.W	COLLECT	 		;"FRE"=4 
		DC.W	BYE	 			;"BYE"=5
		DC.W	RUN	 			;"RUN"=6 
	SPACE 
		DC.W	BRUN	 			;"BRUN"=7 
		DC.W	EXEC	 			;"EXEC"=8 
		DC.W	LOAD	 			;"LOAD"=9 
		DC.W	LOCK	 			;"LOCK"=A 
		DC.W	OPEN	 			;"OPEN"=B  
		DC.W	READ				;"READ"=C 
		DC.W	SAVE	 			;"SAVE"=D 
	SPACE
		DC.W	BLOAD	 			;"BLOAD"=E 
		DC.W	BSAVE	 			;"BSAVE"=F
		DC.W	CHAIN	 			;"CHAIN"=10
		DC.W	CLOSE	 			;"CLOSE"=11 
		DC.W	FLUSH	 			;"FLUSH"=12 
		DC.W	OLDCMD	 		;"NOMON"=13 
		DC.W	STORE	 			;"STORE"=14 
		DC.W	WRITE	 			;"WRITE"=15 
	SPACE 
		DC.W	APPEND	 		;"APPEND"=16 
		DC.W	CREATE	 		;"CREATE"=17 
		DC.W	DELETE	 		;"DELETE"=18 
		DC.W	PREFIX	 		;"PREFIX"=19 
		DC.W	RENAME	 		;"RENAME"=1A 
		DC.W	UNLOCK	 		;"UNLOCK"=1B 
		DC.W	VERIFY	 		;"VERIFY"=1C 
	SPACE
		DC.W	CATALOG	 		;"CATALOG"=1D 
		DC.W	RESTORE	 		;"RESTORE"=1E 
	SPACE
		DC.W	POSITION	 		;"POSITION"=1F 
		DC.W	DASH	 			;(SMART RUN)=20 
	
CPBITS	EQU	*	 			;COMMAND PARAMETER TABLE 
		DC.B	SLOT,AD	 		;"IN#" 
		DC.B	SLOT,AD	 		;"PR#" 
		DC.B	PFIX+T+FNOPT+FN1,SD	;"CAT" 
		DC.B	$00,$0	 		;"FRE" 
		DC.B	$0,$0	 			;bye
		DC.B	FNOPT+FN1,LINE+SD	 	;"RUN" 
	SPACE
		DC.B	FN1,AD+B+L+E+SD	 	;"BRUN" 
		DC.B	FN1,F+R+SD	 		;"EXEC" 
		DC.B	FN1,SD	 		;"LOAD" 
		DC.B	FN1,SD	 		;"LOCK" 
		DC.B	RRUN+CRFLG+FN1+T,L+SD	;"OPEN"  
		DC.B	RRUN+FN1,R+F+B+L	 	;"READ" 
		DC.B	CRFLG+FN1,SD	 	;"SAVE" 
	SPACE
		DC.B	FN1+T,AD+B+L+E+SD	 	;"BLOAD" 
		DC.B	CRFLG+FN1+T,AD+B+L+E+SD	;"BSAVE" 
		DC.B	FN1,LINE+SD	 		;"CHAIN" 
		DC.B	FN1,0	 			;"CLOSE" 
		DC.B	FN1,0	 			;"FLUSH" 
		DC.B	$00,$0	 		;"NOMON" 
		DC.B	CRFLG+FN1,SD	 	;"STORE" 
		DC.B	RRUN+FN1,R+F+B	 	;"WRITE" 
	SPACE
		DC.B	RRUN+CRFLG+FN1+T,L+SD	;"APPEND" 
		DC.B	CRFLG+FN1+T,SD	 	;"CREATE" 
		DC.B	FN1,SD	 		;"DELETE" 
		DC.B	PFIX+FNOPT+FN1,SD	 	;"PREFIX" 
		DC.B	FN1+FN2,SD	 		;"RENAME" 
		DC.B	FN1,SD	 		;"UNLOCK" 
		DC.B	FNOPT+FN1,SD	 	;"VERIFY" 
	SPACE 
		DC.B	PFIX+T+FNOPT+FN1,SD	;"CATALOG" 
		DC.B	FN1,SD	 		;"RESTORE" 
	SPACE
		DC.B	RRUN+FN1,F+R	 	;"POSITION" 
		DC.B	FN1,SD	 		;"-" (SMART RUN) 
	
	Title 'Parameter Tables'
************************ Parameter Tables *******************
* PTOK, PTOKBIT, and PCELL are lookup tables for processing	*
*    Parameter Tokens. 							*
*************************************************************
PTOK		DC.B	'ABELSDFRV@'
	SPACE
PTOKBIT	DC.B	AD,B,E,L,SD	 
		DC.B	SD,F,R,V,LINE	 
	SPACE
PCELL	EQU	*
		DC.B	$5,$12,$19,$21,$24	 
		DC.B	$28,$31,$39,$40,$45	 

****************************************************************
*  RTYP and ASCTYP tables are used in Command Syntaxing the	   *
*  T parameter and by the CATASC routine that converts 	   *
*  a Directory entry into human readable stuff... 		   *
*  ASCMON and ASCNODT are used only by CATASC for date fields. *
****************************************************************
RTYP		DC.B	TSYS,TREL,TVAR,TBAS,TIVR	 
		DC.B	TINT,TCMD,TDIR,TBIN,TTXT
		DC.B	TPAS,TAWP,TASP,TADB,TS16
TYPNUM	EQU	*-RTYP	 		;Number of recognized file types
	SPACE
		MSB	ON
ASCTYP	DC.B	'S16ADBASPAWPPAS'
		DC.B	'TXTBINDIRCMDINT'
		DC.B	'IVRBASVARRELSYS'	 
	SPACE
ASCMON	DC.B	'JANFEBMARAPRMAYJUN'
		DC.B	'JULAUGSEPOCTNOVDEC'
ASCNODT	DC.B	'<NO DATE>'

	Title 'MLI & CI Error Table'
************************ MLI & CI ERROR ***********************
* 'MLIERTBL' AND 'CIERRTBL' ARE USED AS LOOKUP TABLES TO MAP  *
*  MLI ERRORS TO CI EQUIVALENT ERROR CODES.			  *
***************************************************************
		EXPORT MLIERTBL
MLIERTBL
		DC.B	$28,$2B,$40,$41,$42,$43,$44,$45,$46	 
		DC.B	$47,$48,$49,$4B,$4C,$4D,$4E,$50,$53,$56
		
		EXPORT CIERRTBL
CIERRTBL	
		DC.B	$03,$04,$10,$0C,$0C,$12,$06,$06,$07	 
		DC.B	$13,$09,$11,$0D,$05,$02,$0A,$14,$0B,$0C,$08	 
   
***************************************************************
* 'ERRTBL' IS AN RELITIVE INDEX TABLE INTO			  *
* 'ERRSTR' (BELOW) FOR EACH ERROR MESSAGE				  *
***************************************************************
ERRTBL	EQU	*
		DC.B	ERR2-ERR,ERR3-ERR
		DC.B	ERR4-ERR,ERR5-ERR,ERR6-ERR
		DC.B	ERR6-ERR,ERR8-ERR,ERR9-ERR
		DC.B	ERR10-ERR,ERR11-ERR,ERR12-ERR
		DC.B	ERR13-ERR,ERR14-ERR,ERR15-ERR
		DC.B	ERR16-ERR,ERR17-ERR,ERR18-ERR
		DC.B	ERR19-ERR,ERR20-ERR,ERR21-ERR
   
***************************************************************
* 'EASCON' CONTAINS THE ASCII EQUIVALENT FOR EACH 4 OR 8 BIT  * 
*  VALUE CONTAINED IN THE 'ERRSTR' TABLE.  SEE 'PRINTERR'	  *
*  FOR ADDITIONAL DETAILS...						  *
***************************************************************
EASCON	EQU	*
		DC.B	'ACDEFILMNORTU '
		DC.B	$00,$00
		DC.B	'BGHKPSVWXY/().:'
	
***************************************************************
* 'ERRSTR' IS A COMPACT CODING OF ALL CI ERROR MESSAGES. 	  * 
*  THE TRANSLATION IS DONE BY 'PRINTERR' ROUTINE. ALSO 	  *
*  INCLUDED ARE CONDENSED THE COPYRIGHT NOTICE AND CATALOG	  *
*  HEADER AND TRAILER.							  *
***************************************************************
ERRSTR	EQU	*
ERR		EQU	*
	SPACE
COPYRIGHT	EQU	*-ERR	 	;"COPYRIGHT APPLE COMPUTER" 
		DC.B	$2A,$05,$0A,$B6,$02,$03,$CE,$10,$50,$57,$4E,$2A,$80,$5D,$C4,$BF	 
HEAD		EQU	*-ERR	 	;CATALOG HEADER (VALUES NOT IN HEX ARE COLUMN #S). 
		DC.B	$E9,$18,$4E,$00,16,$C0,$A0,$54,$EE,$01,$7A,$20,$40,$6E,$00,30
		DC.B	$8A,$36,$56,$43,$00,47,$2B,$41,$C4,$3E,$00,64,$49,$35,$67,$4E
		DC.B	$06,$D0,$1C,$0A,$05,$4F
TAIL		EQU	*-ERR	 	;CATALOG TRAILER (VALUES NOT IN HEX ARE COLUMN #S). 
		DC.B	$01,$7A,$20,$40,$6E,$5B,$44,$0F,$00,22,$01,$7A,$20,$40,$6E
		DC.B	$D0,$64,$30,$FE,$00,44,$CA,$C1,$7E,$01,$7A,$20,$40,$60,$FF
ERR2			 		;"RANGE ERROR(CR)" 
		DC.B	$B1,$90,$24,$E4,$BB,$AB,$F0	 
ERR3			 		;"NO DEVICE CONNECTED(CR)
		DC.B	$9A,$E3,$40,$76,$24,$E2,$A9,$94,$2C,$43,$F0
ERR4			 		;"WRITE PROTECTED(CR)"
		DC.B	$08,$B6,$C4,$E0,$5B,$AC,$42,$C4,$3F
ERR5			 		;"END OF DATA(CR)"
		DC.B	$49,$3E,$A5,$E3,$1C,$1F
ERR6			 		;"PATH NOT FOUND(CR)"
		DC.B	$05,$1C,$03,$E9,$AC,$E5,$AD,$93,$F0
ERR8			 		;"I/O ERROR(CR)" 
		DC.B	$60,$BA,$E4,$BB,$AB,$F0	 
ERR9			 		;"DISK FULL(CR)" 
		DC.B	$36,$06,$04,$E5,$D7,$7F	 
ERR10			 		;"FILE LOCKED(CR)" 
		DC.B	$56,$74,$E7,$A2,$04,$43,$F0
ERR11			 		;"INVALID PARAMETER(CR)" 
		DC.B	$69,$07,$17,$63,$E0,$51,$B1,$84,$C4,$BF	 
ERR12			 		;"NO BUFFERS AVAILABLE(CR)"
		DC.B	$9A,$E0,$1D,$55,$4B,$06,$E1,$07,$16,$71,$01,$74,$F0
ERR13			 		;"FILE TYPE MISMATCH(CR)" 
		DC.B	$56,$74,$EC,$0A,$05,$4E,$86,$06,$81,$C2,$03,$F0
ERR14			 		;"PROGRAM TOO LARGE(CR)"
		DC.B	$05,$BA,$02,$B1,$8E,$CA,$AE,$71,$B0,$24,$F0
ERR15			 		;"NOT DIRECT COMMAND(CR)"
		DC.B	$9A,$CE,$36,$B4,$2C,$E2,$A8,$81,$93,$F0
ERR16			 		;"SYNTAX ERROR(CR)"
		DC.B	$06,$0A,$9C,$10,$9E,$4B,$BA,$BF	 
ERR17			 		;"DIRECTORY FULL(CR)"
		DC.B	$36,$B4,$2C,$AB,$0A,$E5,$D7,$7F	 
ERR18			 		;"FILE NOT OPEN(CR) 
		DC.B	$56,$74,$E9,$AC,$EA,$05,$49,$F0	 
ERR19			 		;"DUPLICATE FILE NAME(CR)"
		DC.B	$3D,$05,$76,$21,$C4,$E5,$67,$4E,$91,$84,$F0
ERR20			 		;"FILE BUSY(CR)"
		DC.B	$56,$74,$E0,$1D,$06,$0A,$F0
ERR21			 		;"FILE(S) STILL OPEN(CR)"
		DC.B	$56,$74,$0C,$06,$0D,$E0,$6C,$67,$7E,$A0,$54,$9F	 
	SPACE 2
PAGES		DC.B	0,0	 
OLDHIMEM	DC.B	0,0	 
;RNFLG		DC.B	0	Was used in EDASM but doesn't appear anywhere in MPW
 
	SPACE
	TITLE 'MONITOR COMMAND ADDED HERE'
****************************  MONITOR COMMAND *********************************
SRCHCMD1	LDY	#3-1	 			;length of command name 
@LOOP		LDA	TXBUF,Y	 		;load text buffer    
		CMP	@STRING,Y	 		;does it compare to MTR command
		BNE	@CLSRCH	 		;no so return to normal commands
		DEY
		BPL	@LOOP	 			;continue to compare all characters
		JSR	SETSYSIO			;make sure hooks are set correctly
		JSR	CLEOL				;Clear to end of line on MTR command
		JMP	$FF69	 			;MTR command valid so go to monitor
@CLSRCH	JMP	SRCHCMD			;return to normal commands
		MSB	OFF
@STRING	DC.B	'MTR'	 			;Monitor command syntax
************************** MONITOR COMMAND END *********************************

ZCILEFT	EQU	$BC7a-*	 		;REMAINING SPACE FOR ADDED CODE HAS
							;DC.B	$0 ;was included here in EDASM				
		
		EXPORT VERNUM
VERNUM	DC.B	$05	 			;Revision number
CHIMEM	DC.B	$0
BUFBOT	DC.B	$0
GPBUF		DC.B	$00	 
BUFLEN	DC.B	$4	 
GARBOT	DC.B	$0
GARTOP	DC.B	$0
END_LOW	DC.B	0	 
MEMCHK	DC.B	$0
MEMBOT	DC.W	$800	 
MEMTOP	DC.W	$9600	 
STROFF	DC.B	0
SYSBUFADR	DC.B	0
OVLEN		DC.W	0
OASTRT	DC.W	0
OHIMEM	DC.B	0
PACKADR	DC.W	0
PACKLEN	DC.W	0
CNTLO		DC.W	$0000
CNTHI		EQU	CNTLO+1
BUFADRS	DS.B	8	 
REFNUMS	DS.B	8	
RECLEN	DC.W	0
OSAVX		DC.B	0
OSAVY		DC.B	0
		EXPORT CALLX
CALLX		DC.B	0
IOPTR		EQU	*
SKPCHR	DC.B	0
TCNT		DC.B	0
EXADR		DC.W	0	 			;ADDRESS OF COMMAND TO BE EXECUTED.
PBYTES	DC.B	0
PCADR		DC.B	0
ACCL		DC.B	0
ACCM		DC.B	0
ACCH		DC.B	0
MODO		DC.B	0
MODOH		EQU	*
MONTH		DC.B	0
DAY		DC.B	0
YEAR		DC.B	0
STRLEN	DC.B	0
ENTLEN	DC.B	$00
MAXENT	DC.B	$00
TOTENT	DC.W	$0000
CURRENT	DC.B	$00
		DC.B	$00	 		;FOR TXBUF-1
		EXPORT TXBUF		
TXBUF		DS.B	$41 
FILNAMES	DS.B	$A7			;Storage space for open files and pathnames
ZCIEND	EQU	*	
*
* LS is CAT (40 columns). PFX is PREFIX. SRCHCMD jumps here only
* when the built-in table missed, so CAT, CATALOG, and PREFIX still win.
*
		EXPORT ALIASCMD
ALIASCMD	LDX	#1			;LS, XLEN = length-1
		LDY	#3			;CAT
		LDA	TXBUF
		CMP	#$4C			;'L'
		BNE	@ALSPFX
		LDA	TXBUF+1
		CMP	#$53			;'S'
		BNE	@ALSNO
		LDA	TXBUF+2
		JMP	@ALSTERM
@ALSPFX		LDX	#2			;PFX, XLEN = length-1
		LDY	#CIPRFX		;PREFIX
		LDA	TXBUF
		CMP	#$50			;'P'
		BNE	@ALSNO
		LDA	TXBUF+1
		CMP	#$46			;'F'
		BNE	@ALSNO
		LDA	TXBUF+2
		CMP	#$58			;'X'
		BNE	@ALSNO
		LDA	TXBUF+3
@ALSTERM	CMP	#$20			;space, comma, or return ends the name
		BEQ	@ALSSET
		CMP	#$2C
		BEQ	@ALSSET
		CMP	#$0D
		BEQ	@ALSSET
		CMP	#$2F			;'/' starts a pathname
		BNE	@ALSNO
@ALSSET		STX	XLEN
		STY	XCNUM
		TYA
		ASL	A
		TAX
		LDA	CPBITS-1,X		;same parameter bits as the real command
		STA	PBITS+1
		LDA	CPBITS-2,X
		STA	PBITS
		CLC
		RTS
@ALSNO		SEC
		RTS
		
		END

\ No newline at end of file
diff --git a/IIGS.601.SRC/BASIC.SYSTEM/Makefile b/IIGS.601.SRC/BASIC.SYSTEM/Makefile
new file mode 100644
index 0000000..4e6299f
--- /dev/null
+++ b/IIGS.601.SRC/BASIC.SYSTEM/Makefile
@@ -0,0 +1 @@
+# MAKE FILE FOR BASIC.SYSTEM and Basic.Launcher
#
# THIS MAKEFILE BUILDS:
#	BASIC.SYSTEM from Equates, Globals, Loader & Main Source Code
#		and/or
#	Basic.Launcher from BLaunch.aii & BLaunch.macros
#
# Dependency rules for BASIC.System...
#
#
# Compare BASIC.System for more recent build of Object files
# if Object files are later than BASIC than link objs together
#
BASIC.SYSTEM 	ÄÄ 	Loader.obj ¶
			Main.obj ¶
			Globals.obj
	LinkIIGS Loader.obj -org $2000 Main.obj Globals.obj -o BASIC.SYSTEM
	MakeBinIIGS BASIC.SYSTEM -org $2000
	Set Exit 0; Echo "FOO" | Rez -o BASIC.SYSTEM -m -c pdos -t $70FF2000 ³ DEV:NULL; Set Exit 1
	SetFile -m . Basic.System
	if {AutoDuplicate} == 1
		DuplicateIIGS BASIC.SYSTEM -Mac -Y BASIC.SYSTEM
	End

#	
# Compare for most recent assemblies of obj files for Loader, Main and Globals
# if source is later than obj build new obj.
#
Loader.obj 	Ä 	Loader ¶
			Equates
	ASMIIGS Loader -o Loader.obj
Main.obj 	Ä 	Main ¶
			Equates
	ASMIIGS Main -o Main.obj
Globals.obj 	Ä 	Globals ¶
			Equates
	ASMIIGS Globals -o Globals.obj

#
# These are the dependency rules for Basic.Launcher
#

Basic.Launcher	ÄÄ	BLaunch.omf
	MakeBinIIGS BLaunch.omf -o Basic.Launcher
	# the following line sets up the filetype and auxtype correctly
	SET EXIT 0; ECHO "FOO" | rez -o Basic.Launcher -c pdos -t $70FF2000 ³ DEV:NULL; SET EXIT 1
	SetFile -c 'pdos' -m . Basic.Launcher

BLaunch.omf	Ä	BLaunch.aii.obj
	LinkIIGS BLaunch.aii.obj -o BLaunch.omf

BLaunch.aii.obj	Ä	BLaunch.aii BLaunch.macros
	AsmIIGS BLaunch.aii -o BLaunch.aii.obj
\ No newline at end of file
diff --git a/IIGS.601.SRC/Debugger/Debug.Init.makeout b/IIGS.601.SRC/Debugger/Debug.Init.makeout
new file mode 100644
index 0000000..92ebb95
--- /dev/null
+++ b/IIGS.601.SRC/Debugger/Debug.Init.makeout
@@ -0,0 +1 @@
+Set Echo 1
	set System6Stuff 1
	set System61Stuff 1
	AsmIIGS -t -d ThisIsRam=1 -d SpongeBoy={System6Stuff} -d SpongeMan={System61Stuff} debug.aii
	AsmIIGS -t -d ThisIsRam=1 -d SpongeBoy={System6Stuff} -d SpongeMan={System61Stuff} dosnames.aii
	LinkIIGS debug.aii.obj toolnames.aii.obj dosnames.aii.obj requestnames.aii.obj history.aii.obj misc.aii.obj -t $B6 -o debug.init
	if {AutoDuplicate} == 1
		DuplicateIIGS -y -mac Debug.Init :
	End
\ No newline at end of file
diff --git a/IIGS.601.SRC/Debugger/Debug.aii.makeout b/IIGS.601.SRC/Debugger/Debug.aii.makeout
new file mode 100644
index 0000000..e005ddc
--- /dev/null
+++ b/IIGS.601.SRC/Debugger/Debug.aii.makeout
@@ -0,0 +1 @@
+Set Echo 1
\ No newline at end of file
diff --git a/IIGS.601.SRC/Debugger/GSBug.Templates b/IIGS.601.SRC/Debugger/GSBug.Templates
new file mode 100644
index 0000000..9b1b294
--- /dev/null
+++ b/IIGS.601.SRC/Debugger/GSBug.Templates
@@ -0,0 +1 @@
+;
; template: Template Master Index
; Copyright Apple Computer, Inc. 1990-92
; All Rights Reserved
;
; REVISION HISTORY
;
; 28-Feb-90 J. Luther
; 20-Aug-92 Zak
; 21-Aug-92 Dave Lyons
;

_START	Templates
ADB
AppleShareFST
Controls
Dialogs
Events
Fonts
GSOS
HighSierraFST
LineEdit
Lists
Locator
Menus
MiscTool
NoteSeq
NoteSyn
Print
ProDOS16
ProDOSFST
QDAux
QuickDraw
Resources
SANE
Sound
StdFile
TextEdit
Windows
_END

; template: Apple Desktop Bus Tool Set

_START	ADB
ReadConfigRec
ScaleRec
SetConfigRec
SynchRec
_END

_START	ReadConfigRec
rcADBAddr	BYTE
rcLayoutOrLang	BYTE
rcRepeatDelay	BYTE
_END

_START	SetConfigRec
scADBAddr	BYTE
scLayoutOrLang	BYTE
scRepeatDelay	BYTE
_END

_START	SynchRec
synchMode	BYTE
synchKybdMouseAddr	BYTE
synchLayoutOrLang	BYTE
synchRepeatDelay	BYTE
_END

_START	ScaleRec
xDivide	WORD
yDivide	WORD
xOffset	WORD
yOffset	WORD
xMultiply	WORD
yMultiply	WORD
_END


; template: Control Manager

_START	Controls
BarColors
BoxColors
BttnColors
CheckCtlRec
CtlRec
EditLineCtlRec
EditTextCtlRec
GrowCtlRec
IconButtonCtlRec
LimitBlk
ListCtlRec
PictureCtlRec
PopUpCtlRec
RadioColors
RadioCtlRec
ScrollCtlRec
SimpleButtonCtlRec
StatTextCtlRec
_END

; generic extended control record
_START	CtlRec
ctlNext	LONG
ctlOwner	LONG
ctlRect	WORD	4
ctlFlag	BYTE
ctlHilite	BYTE
ctlValue	WORD
ctlProc	LONG
ctlAction	LONG
ctlData	LONG
ctlRefCon	LONG
ctlColor	LONG
ctlReserved	BYTE	16
ctlID	LONG
ctlMoreFlags	WORD
ctlVersion	WORD
_END

; extended control records
_START	SimpleButtonCtlRec
ctlNext	LONG
ctlOwner	LONG
ctlRect	WORD	4
ctlFlag	BYTE
ctlHilite	BYTE
ctlValue	WORD
ctlProc	LONG
ctlAction	LONG
ctlData	LONG
ctlRefCon	LONG
ctlColor	LONG
keyEquiv
>key1	BYTE
>key2	BYTE
>keymodifiers	WORD
>keyCareBits	WORD
ctlReserved	BYTE	10
ctlID	LONG
ctlMoreFlags	WORD
ctlVersion	WORD
_END

_START	CheckCtlRec
ctlNext	LONG
ctlOwner	LONG
ctlRect	WORD	4
ctlFlag	BYTE
ctlHilite	BYTE
ctlValue	WORD
ctlProc	LONG
ctlAction	LONG
ctlData	LONG
ctlRefCon	LONG
ctlColor	LONG
keyEquiv
>key1	BYTE
>key2	BYTE
>keymodifiers	WORD
>keyCareBits	WORD
ctlReserved	BYTE	10
ctlID	LONG
ctlMoreFlags	WORD
ctlVersion	WORD
_END

_START	IconButtonCtlRec
ctlNext	LONG
ctlOwner	LONG
ctlRect	WORD	4
ctlFlag	BYTE
ctlHilite	BYTE
ctlValue	WORD
ctlProc	LONG
ctlAction	LONG
ctlData	LONG
ctlRefCon	LONG
ctlColor	LONG
keyEquiv
>key1	BYTE
>key2	BYTE
>keymodifiers	WORD
>keyCareBits	WORD
ctlReserved	BYTE	10
ctlID	LONG
ctlMoreFlags	WORD
ctlVersion	WORD
iconRef	LONG
displayMode	WORD
_END

_START	EditLineCtlRec
ctlNext	LONG
ctlOwner	LONG
ctlRect	WORD	4
ctlFlag	BYTE
ctlHilite	BYTE
ctlValue	WORD
ctlProc	LONG
ctlAction	LONG
ctlData	LONG
ctlRefCon	LONG
ctlColor	LONG
ctlReserved	BYTE	16
ctlID	LONG
ctlMoreFlags	WORD
ctlVersion	WORD
_END

_START	ListCtlRec
ctlNext	LONG
ctlOwner	LONG
ctlRect	WORD	4
ctlFlag	BYTE
ctlHilite	BYTE
ctlValue	WORD
ctlProc	LONG
ctlAction	LONG
ctlData	LONG
ctlRefCon	LONG
ctlColor	LONG
ctlMemDraw	LONG
ctlMemHeight	WORD
ctlMemSize	WORD
ctlListRef	LONG
ctlListBar	LONG
ctlID	LONG
ctlMoreFlags	WORD
ctlVersion	WORD
_END

_START	PictureCtlRec
ctlNext	LONG
ctlOwner	LONG
ctlRect	WORD	4
ctlFlag	BYTE
ctlHilite	BYTE
ctlValue	WORD
ctlProc	LONG
ctlAction	LONG
ctlData	LONG
ctlRefCon	LONG
ctlColor	LONG
ctlReserved	BYTE	16
ctlID	LONG
ctlMoreFlags	WORD
ctlVersion	WORD
_END

_START	PopUpCtlRec
ctlNext	LONG
ctlOwner	LONG
ctlRect	WORD	4
ctlFlag	BYTE
ctlHilite	BYTE
ctlValue	WORD
ctlProc	LONG
ctlAction	LONG
ctlData	LONG
ctlRefCon	LONG
ctlColor	LONG
menuRef	LONG
menuEnd	LONG
popUpRect	WORD	4
ctlID	LONG
ctlMoreFlags	WORD
ctlVersion	WORD
titleWidth	WORD
_END

_START	RadioCtlRec
ctlNext	LONG
ctlOwner	LONG
ctlRect	WORD	4
ctlFlag	BYTE
ctlHilite	BYTE
ctlValue	WORD
ctlProc	LONG
ctlAction	LONG
ctlData	LONG
ctlRefCon	LONG
ctlColor	LONG
keyEquiv
>key1	BYTE
>key2	BYTE
>keymodifiers	WORD
>keyCareBits	WORD
ctlReserved	BYTE	10
ctlID	LONG
ctlMoreFlags	WORD
ctlVersion	WORD
_END

_START	ScrollCtlRec
ctlNext	LONG
ctlOwner	LONG
ctlRect	WORD	4
ctlFlag	BYTE
ctlHilite	BYTE
ctlValue	WORD
ctlProc	LONG
ctlAction	LONG
ctlData	LONG
ctlRefCon	LONG
ctlColor	LONG
thumbRect	WORD	4
pageRegion	WORD	4
ctlID	LONG
ctlMoreFlags	WORD
ctlVersion	WORD
_END

_START	GrowCtlRec
ctlNext	LONG
ctlOwner	LONG
ctlRect	WORD	4
ctlFlag	BYTE
ctlHilite	BYTE
ctlValue	WORD
ctlProc	LONG
ctlAction	LONG
ctlData	LONG
ctlRefCon	LONG
ctlColor	LONG
ctlReserved	BYTE	16
ctlID	LONG
ctlMoreFlags	WORD
ctlVersion	WORD
_END

_START	StatTextCtlRec
ctlNext	LONG
ctlOwner	LONG
ctlRect	WORD	4
ctlFlag	BYTE
ctlHilite	BYTE
ctlValue	WORD
ctlProc	LONG
ctlAction	LONG
ctlData	LONG
ctlRefCon	LONG
ctlColor	LONG
ctlJust	WORD
ctlReserved	BYTE	14
ctlID	LONG
ctlMoreFlags	WORD
ctlVersion	WORD
_END

_START	EditTextCtlRec
ctlNext	LONG
ctlOwner	LONG
ctlRect	WORD	4
ctlFlag	BYTE
ctlHilite	BYTE
ctlValue	WORD
ctlProc	LONG
ctlAction	LONG
ctlData	LONG
ctlRefCon	LONG
ctlColor	LONG
textFlags	LONG
textLength	LONG
blockList
>cachedHandle	LONG
>cachedOffset	LONG
ctlID	LONG
ctlMoreFlags	WORD
ctlVersion	WORD
viewRect	WORD	4
totalHeight	LONG
lineSuper
>cachedHandle	LONG
>cachedOffset	LONG
>cachedIndex	WORD
>itemsPerBlock	WORD
styleSuper
>cachedHandle	LONG
>cachedOffset	LONG
>cachedIndex	WORD
>itemsPerBlock	WORD
styleList	LONG
rulerList	LONG
lineAtEndFlag	WORD
selectionStart	LONG
selectionEnd	LONG
selectionActive	WORD
selectionState	WORD
caretTime	LONG
nullStyleActive	WORD
nullStyle
>fontID	LONG
>foreColor	WORD
>backColor	WORD
>userData	LONG
topTextOffset	LONG
topTextVPos	WORD
vertScrollBar	LONG
vertScrollPos	LONG
vertScrollMax	LONG
vertScrollAmount	WORD
horzScrollBar	LONG
horzScrollPos	LONG
horxScrollMax	LONG
horzScrollAmount	WORD
growBoxHandle	LONG
maximumChars	LONG
maximumLines	LONG
maxCharsPerLine	WORD
maximumHeight	WORD
textDrawMode	WORD
wordBreakHook	LONG
wordWrapHook	LONG
keyFilter	LONG
theFilterRect	WORD	4
theBufferVPos	WORD
theBufferHPos	WORD
theKeyRecord
>theChar	WORD
>theModifiers	WORD
>theInputHandle	LONG
>cursorOffset	LONG
>theOpcode	WORD
cachedSelcOffset	LONG
cachedSelcVPos	WORD
cachedSelcHPos	WORD
mouseRect	WORD	4
mouseTime	LONG
mouseKind	WORD
lastClick	WORD	2
savedHPos	WORD
anchorPoint	LONG
_END

_START	BarColors
barOutline	WORD
barNorArrow	WORD
barSelArrow	WORD
barArrowBack	WORD
barNorThumb	WORD
barSelThumb	WORD
barPageRgn	WORD
barInactive	WORD
_END

_START	BoxColors
boxReserved	WORD
boxNor	WORD
boxSel	WORD
boxTitle	WORD
_END

_START	BttnColors
bttnOutline	WORD
bttnNorBack	WORD
bttnSelBack	WORD
bttnNorText	WORD
bttnSelText	WORD
_END

_START	LimitBlk
boundRect	WORD	4
slopRect	WORD	4
axisParam	WORD
dragPatt	LONG
_END

_START	RadioColors
radReserved	WORD
radNor	WORD
radSel	WORD
radTitle	WORD
_END


; template: Dialog Manager

_START	Dialogs
AlertTemplate
DialogTemplate
ItemTemplate
UserCtlItemPB
_END

_START	AlertTemplate
atBoundsRect	WORD	4
atAlertID	WORD
atStage1	BYTE
atStage2	BYTE
atStage3	BYTE
atStage4	BYTE
atItemList	LONG
_END

_START	DialogTemplate
dtBoundsRect	WORD	4
dtVisible	WORD
dtRefCon	LONG
dtItemList	LONG
_END

_START	ItemTemplate
itemID	WORD
itemRect	WORD	4
itemType	WORD
itemDescr	LONG
itemValue	WORD
itemFlag	WORD
itemColor	LONG
_END

_START	UserCtlItemPB
defProcParm	LONG
titleParm	LONG
param1	WORD
param2	WORD
_END


; template: Event Manager

_START	Events
EventRecord
_END

_START	EventRecord
what	WORD
message	LONG
when	LONG
where	WORD	2
modifiers	WORD
_END


; template: Font Manager

_START	Fonts
FontID
FontStatRec
_END

_START	FontID
famNum	WORD
fontStyle	BYTE
fontSize	BYTE
_END

_START	FontStatRec
resultID
>famNum	WORD
>fontStyle	BYTE
>fontSize	BYTE
resultStats	WORD
_END


; template: LineEdit Tool Set

_START	LineEdit
LERec
_END

_START	LERec
leLineHandle	LONG
leLength	WORD
leMaxLength	WORD
leDestRect	WORD	4
leViewRect	WORD	4
lePort	LONG
leLineHite	WORD
leBaseHite	WORD
leSelStart	WORD
leSelEnd	WORD
leActFlg	WORD
leCarAct	WORD
leCarOn	WORD
leCarTime	LONG
leHiliteHook	LONG
leCaretHook	LONG
leJust	WORD
lePWChar	WORD
_END


; template: List Manager

_START	Lists
LColorTable
ListRec
MemRec
_END

_START	ListRec
listRect	WORD	4
listSize	WORD
listView	WORD
listType	WORD
listStart	WORD
listCtl	LONG
listDraw	LONG
listMemHeight	WORD
listMemSize	WORD
listPointer	LONG
listRefCon	LONG
listScrollClr	LONG
_END

; ListCtlRec can be found in the Control Manager templates.

_START	MemRec
memPtr	LONG
memFlag	BYTE
_END

_START	LColorTable
listFrameClr	WORD
listNorTextClr	WORD
listSelTextClr	WORD
listNorBackClr	WORD
listSelBackClr	WORD
_END


; template: Menu Manager

_START	Menus
Menu
MenuBarTemplate
MenuItemTemplate
MenuTemplate
_END

_START	Menu
menuID	WORD
menuWidth	WORD
menuHeight	WORD
menuProc	LONG
menuFlag	BYTE
menuRes	BYTE
firstItem	BYTE
numOfItems	BYTE
titleWidth	WORD
titleName	LONG
menuCache	LONG
_END

_START	MenuItemTemplate
version	WORD
itemID	WORD
itemChar	BYTE
itemAltChar	BYTE
itemCheck	WORD
itemFlag	WORD
itemTitleRef	LONG
_END

_START	MenuTemplate
version	WORD
menuID	WORD
menuFlag	WORD
menuTitleRef	LONG
itemRefArray	LONG
_END

_START	MenuBarTemplate
version	WORD
menuBarFlag	WORD
menuRefArray	LONG
_END


; template: Miscellaneous Tool Set

_START	MiscTool
ClampRec
FWRec
InterruptStateRec
MouseRec
QueueHeader
TimeRec
_END

_START	QueueHeader
reserved	LONG
reserved	WORD
signature	WORD
_END

_START	InterruptStateRec
irq_A	WORD
irq_X	WORD
irq_Y	WORD
irq_S	WORD
irq_D	WORD
irq_P	BYTE
irq_DB	BYTE
irq_e	BYTE
irq_K	BYTE
irq_PC	WORD
irq_state	BYTE
irq_shadow	WORD
irq_mslot	BYTE
_END

_START	TimeRec
second	BYTE
minute	BYTE
hour	BYTE
year	BYTE
day	BYTE
month	BYTE
extra	BYTE
weekday	BYTE
_END

_START	MouseRec
mouseMode	BYTE
mouseStatus	BYTE
yPos	WORD
xPos	WORD
_END

_START	ClampRec
yMaxClamp	WORD
yMinClamp	WORD
xMaxClamp	WORD
xMinClamp	WORD
_END

_START	FWRec
yRegExit	WORD
xRegExit	WORD
aRegExit	WORD
status	WORD
_END


; template: Note Sequencer

_START	NoteSeq
InstTable
_END

_START	InstTable
instNumber	WORD
instArray	LONG
_END


; template: Note Synthesizer

_START	NoteSyn
Envelope
GCBRecord
Instrument
WaveEntry
_END

_START	Envelope
breakpoint0	BYTE
increment0	WORD
breakpoint1	BYTE
increment1	WORD
breakpoint2	BYTE
increment2	WORD
breakpoint3	BYTE
increment3	WORD
breakpoint4	BYTE
increment4	WORD
breakpoint5	BYTE
increment5	WORD
breakpoint6	BYTE
increment6	WORD
breakpoint7	BYTE
increment7	WORD
_END

_START	Instrument
envelope
>breakpoint0	BYTE
>increment0	WORD
>breakpoint1	BYTE
>increment1	WORD
>breakpoint2	BYTE
>increment2	WORD
>breakpoint3	BYTE
>increment3	WORD
>breakpoint4	BYTE
>increment4	WORD
>breakpoint5	BYTE
>increment5	WORD
>breakpoint6	BYTE
>increment6	WORD
>breakpoint7	BYTE
>increment7	WORD
releaseSegment	BYTE
priorityIncrement	BYTE
pitchBendRange	BYTE
vibratoDepth	BYTE
vibratoSpeed	BYTE
inSpare	BYTE
aWaveCount	BYTE
bWaveCount	BYTE
aWaveList...
bWaveList...
_END

_START	WaveEntry
topKey	BYTE
waveAddress	BYTE
waveSize	BYTE
DOCMode	BYTE
relPitch	WORD
_END

_START	GCBRecord
synthID	BYTE
genNum	BYTE
semiTone	BYTE
volume	BYTE
pitchbend	BYTE
vibratoDepth	BYTE
reserved	BYTE	10
_END


; template: Print Manager

_START	Print
PrInfoRec
PrJobRec
PrRec
PrStatusRec
PrStyleRec
_END

_START	PrRec
prVersion	WORD
prInfo
>iDev	WORD
>iVRes	WORD
>iHRes	WORD
>rPage	WORD	4
rPaper	WORD	4
prStl
>wDev	WORD
>internA	WORD	3
>feed	WORD
>paperType	WORD
>crWidth	WORD
>reduction	WORD
>internB	WORD
prInfoPT	BYTE	14
prXInfo	BYTE	24
prJob
>iFstPage	WORD
>iLstPage	WORD
>iCopies	WORD
>bJDocLoop	BYTE
>fFromUser	BYTE
>pIdleProc	LONG
>pFileName	LONG
>iFileVol	WORD
>bFileVers	BYTE
>bJobX	BYTE
printX	BYTE	38
iReserved	WORD
_END

_START	PrInfoRec
iDev	WORD
iVRes	WORD
iHRes	WORD
rPage	WORD	4
_END

_START	PrStyleRec
wDev	WORD
internA	WORD	3
feed	WORD
paperType	WORD
crWidth	WORD
reduction	WORD
internB	WORD
_END

_START	PrJobRec
iFstPage	WORD
iLstPage	WORD
iCopies	WORD
bJDocLoop	BYTE
fFromUser	BYTE
pIdleProc	LONG
pFileName	LONG
iFileVol	WORD
bFileVers	BYTE
bJobX	BYTE
_END

_START	PrStatusRec
iTotPages	WORD
iCurPage	WORD
iTotCopies	WORD
iCurCopy	WORD
iTotBands	WORD
iCurBand	WORD
iPgDirty	WORD
fImaging	WORD
hPrint	LONG
pPrPort	LONG
hPic	LONG
_END


; template: QuickDraw II

_START	QuickDraw
BufDimRec
Font
FontGlobalsRecord
FontInfoRecord
GrafPort
LocInfo
PaintParam
PenStateRecord
ROMFontRecord
_END

_START	BufDimRec
buffer_sizing_record
maxWidth	WORD
textBufHeight	WORD
textBufferWords	WORD
fontWidth	WORD
_END

_START	Font
font_record
offseToMF	WORD
family	WORD
style	WORD
size	WORD
version	WORD
fbrExtent	WORD
highowTLoc	WORD
_END

_START	FontGlobalsRecord
fgFontID	WORD
fgStyle	WORD
fgSize	WORD
fgVersion	WORD
fgWidMax	WORD
fgFBRExtent	WORD
_END

_START	FontInfoRecord
ascent	WORD
descent	WORD
widMax	WORD
leading	WORD
_END

_START	GrafPort
portInfo
>portSCB	WORD
>ptrToPixImage	LONG
>width	WORD
>boundsRect	WORD	4
portRect	WORD	4
clipRgn	LONG
visRgn	LONG
bkPat	BYTE	32
pnLoc	WORD	2
pnSize	WORD	2
pnMode	WORD
pnPat	BYTE	32
pnMask	BYTE	8
pnVis	WORD
fontHandle	LONG
fontID	LONG
fontFlags	WORD
txSize	WORD
txFace	WORD
txMode	WORD
spExtra	LONG
chExtra	LONG
fgColor	WORD
bgColor	WORD
picSave	LONG
rgnSave	LONG
polySave	LONG
grafProcs	LONG
arcRot	WORD
userField	LONG
sysField	LONG
_END

_START	LocInfo
portSCB	WORD
ptrToPixImage	LONG
width	WORD
boundsRect	WORD	4
_END

_START	PaintParam
PaintPixels_parameter_block
ptrToSourceLocInfo	LONG
ptrToDestLocInfo	LONG
ptrToSourceRect	LONG
ptrToDestPoint	LONG
mode	WORD
maskHandle	LONG
_END

_START	PenStateRecord
psPenLoc	WORD	2
psPnSize	WORD	2
psPnMode	WORD
psPnPat	BYTE	32
psPnMask	BYTE	8
_END

_START	ROMFontRecord
rfFamNum	WORD
rfFamStyle	WORD
rfSize	WORD
rfFontHandle	LONG
rfNamePtr	LONG
rfFBRExtent	WORD
_END

; template: QuickDraw II Auxiliary

_START	QDAux
IconRecord
_END

_START	IconRecord
iconType	WORD
iconSize	WORD
iconHeight	WORD
iconWidth	WORD
image/mask
_END


; template: SANE

_START	SANE
HaltDPage
_END

_START	HaltDPage
returnAddrs	BYTE	6
callerDpage	WORD
callerDB	WORD
opword	WORD
cAddress	LONG
bAddress	LONG
aAddress	LONG
haltVector	LONG
environment	WORD
pendingExceptions	WORD
pendingXlo	BYTE
pendingXhiYlo	BYTE
pendingYhi	BYTE
_END


; template: Resource Manager

_START	Resources
FreeBlockRec
MapRec
ResHeaderRec
ResRefRec
_END

_START	ResHeaderRec
rFileVersion	LONG
rFileToMap	LONG
rFileMapSize	LONG
rFileMemo	BYTE	128
_END

_START	MapRec
mapNext	LONG
mapFlag	WORD
mapOffset	LONG
mapSize	LONG
mapToIndex	WORD
mapFileNum	WORD
mapID	WORD
mapIndexSize	LONG
mapIndexUsed	LONG
mapFreeListSize	WORD
mapFreeListUsed	WORD
mapFreeList/Index
_END

_START	FreeBlockRec
blkOffset	LONG
blkSize	LONG
_END

_START	ResRefRec
resType	WORD
resID	LONG
resOffset	LONG
resAttr	WORD
resSize	LONG
resHandle	LONG
_END


; template: Sound Tool Set

_START	Sound
DOCRegParamBlock
SoundParamBlock
_END

_START	SoundParamBlock
waveStart	LONG
waveSize	WORD
freqOffset	WORD
docBuffer	WORD
bufferSize	WORD
nextWavePtr	LONG
volSetting	WORD
_END

_START	DOCRegParamBlock
oscGenTYpe	WORD
freqLow1	BYTE
freqHigh1	BYTE
vol1	BYTE
tablePtr1	BYTE
control1	BYTE
tableSize1	BYTE
freqLow2	BYTE
freqHigh2	BYTE
vol2	BYTE
tablePtr2	BYTE
control2	BYTE
tableSize2	BYTE
_END


; template: Standard File

_START	StdFile
ReplyRecord
ReplyRecord2
_END

_START	ReplyRecord
good	WORD
fileType	WORD
auxFileType	WORD
fileName	BYTE	16
fullPathname	BYTE	129
_END

_START	ReplyRecord2
good	WORD
type	WORD
auxType	LONG
nameRefDesc	WORD
nameRef	LONG
pathRefDesc	WORD
pathRef	LONG
_END


; template: Text Edit

_START	TextEdit
KeyRecord
StyleItem
SuperBlock
SuperHandle
SuperItem
TabItem
TEColorTable
TEFormat
TEParamBlock
TERecord
TERuler
TEStyle
TextBlock
TextList
_END

_START	TEColorTable
contentColor	WORD
outlineColor	WORD
vertColorDescriptor	WORD
vertColorRef	LONG
horzColorDescriptor	WORD
horzColorRef	LONG
growColorDescriptor	WORD
growColorRef	LONG
_END

_START	TEFormat
version	WORD
rulerListLength	LONG
theRulerList
styleListLength
theStyleList
numberOfStyles
theStyles
_END

_START	TEParamBlock
pCount	WORD
ID	LONG
rect	WORD	4
procRef	LONG
flags	WORD
moreFlags	WORD
refCon	LONG
textFlags	LONG
indentRect	WORD	4
vertBar	LONG
vertAmount	WORD
horzBar	LONG
horzAmount	WORD
styleRef	LONG
textDescriptor	WORD
textRef	LONG
textLength	LONG
maxChars	LONG
maxLines	LONG
maxCharsPerLine	WORD
maxHeight	WORD
colorRef	LONG
drawMode	WORD
filterProc	LONG
_END

_START	TERecord
; same as EditTextCtlRec
ctlNext	LONG
ctlOwner	LONG
ctlRect	WORD	4
ctlFlag	BYTE
ctlHilite	BYTE
ctlValue	WORD
ctlProc	LONG
ctlAction	LONG
ctlData	LONG
ctlRefCon	LONG
ctlColor	LONG
textFlags	LONG
textLength	LONG
blockList
>cachedHandle	LONG
>cachedOffset	LONG
ctlID	LONG
ctlMoreFlags	WORD
ctlVersion	WORD
viewRect	WORD	4
totalHeight	LONG
lineSuper
>cachedHandle	LONG
>cachedOffset	LONG
>cachedIndex	WORD
>itemsPerBlock	WORD
styleSuper
>cachedHandle	LONG
>cachedOffset	LONG
>cachedIndex	WORD
>itemsPerBlock	WORD
styleList	LONG
rulerList	LONG
lineAtEndFlag	WORD
selectionStart	LONG
selectionEnd	LONG
selectionActive	WORD
selectionState	WORD
caretTime	LONG
nullStyleActive	WORD
nullStyle
>fontID	LONG
>foreColor	WORD
>backColor	WORD
>userData	LONG
topTextOffset	LONG
topTextVPos	WORD
vertScrollBar	LONG
vertScrollPos	LONG
vertScrollMax	LONG
vertScrollAmount	WORD
horzScrollBar	LONG
horzScrollPos	LONG
horxScrollMax	LONG
horzScrollAmount	WORD
growBoxHandle	LONG
maximumChars	LONG
maximumLines	LONG
maxCharsPerLine	WORD
maximumHeight	WORD
textDrawMode	WORD
wordBreakHook	LONG
wordWrapHook	LONG
keyFilter	LONG
theFilterRect	WORD	4
theBufferVPos	WORD
theBufferHPos	WORD
theKeyRecord
>theChar	WORD
>theModifiers	WORD
>theInputHandle	LONG
>cursorOffset	LONG
>theOpcode	WORD
cachedSelcOffset	LONG
cachedSelcVPos	WORD
cachedSelcHPos	WORD
mouseRect	WORD	4
mouseTime	LONG
mouseKind	WORD
lastClick	WORD	2
savedHPos	WORD
anchorPoint	LONG
_END

_START	TERuler
leftMargin	WORD
leftIndent	WORD
rightMargin	WORD
just	WORD
extraLS	WORD
flags	WORD
userData	LONG
tabType	WORD
theTabs
tabTerminator
_END

_START	TEStyle
fontID	LONG
foreColor	WORD
backColor	WORD
userData	LONG
_END

_START	KeyRecord
theChar	WORD
theModifiers	WORD
theInputHandle	LONG
cursorOffset	LONG
theOpCode	WORD
_END

_START	StyleItem
length	LONG
offset	LONG
_END

_START	SuperBlock
nextHandle	LONG
prevHandle	LONG
textLength	LONG
reserved	LONG
theItems
_END

_START	SuperHandle
cachedHandle	LONG
cachedOffset	LONG
cachedIndex	WORD
itemsPerBlock	WORD
_END

_START	SuperItem
length	LONG
data	LONG
_END

_START	TabItem
tabKind	WORD
tabData	WORD
_END

_START	TextBlock
nextHandle	LONG
prevHandle	LONG
textLength	LONG
flags	WORD
reserved	WORD
theText
_END

_START	TextList
cachedHandle	LONG
cachedOffset	LONG
_END


; template: Tool Locator

_START	Locator
StartStopRec
ToolSpec
ToolTable
_END

_START	ToolTable
numTools	WORD
toolArray
>toolNumber1	WORD
>minVersion1	WORD
>toolNumber2	WORD
>minVersion2	WORD
>toolNumber3	WORD
>minVersion3	WORD
>toolNumber4	WORD
>minVersion4	WORD
>toolNumber5	WORD
>minVersion5	WORD
>toolNumber6	WORD
>minVersion6	WORD
>toolNumber7	WORD
>minVersion7	WORD
>toolNumber8	WORD
>minVersion8	WORD
>toolNumber9	WORD
>minVersion9	WORD
>toolNumber10	WORD
>minVersion10	WORD
>toolNumber11	WORD
>minVersion11	WORD
>toolNumber12	WORD
>minVersion12	WORD
>toolNumber13	WORD
>minVersion13	WORD
>toolNumber14	WORD
>minVersion14	WORD
>toolNumber15	WORD
>minVersion15	WORD
>toolNumber16	WORD
>minVersion16	WORD
>toolNumber17	WORD
>minVersion17	WORD
>toolNumber18	WORD
>minVersion18	WORD
>toolNumber19	WORD
>minVersion19	WORD
>toolNumber20	WORD
>minVersion20	WORD
>toolNumber21	WORD
>minVersion21	WORD
>toolNumber22	WORD
>minVersion22	WORD
>toolNumber23	WORD
>minVersion23	WORD
>toolNumber24	WORD
>minVersion24	WORD
>toolNumber25	WORD
>minVersion25	WORD
>toolNumber26	WORD
>minVersion26	WORD
>toolNumber27	WORD
>minVersion27	WORD
>toolNumber28	WORD
>minVersion28	WORD
>toolNumber29	WORD
>minVersion29	WORD
>toolNumber30	WORD
>minVersion30	WORD
>toolNumber31	WORD
>minVersion31	WORD
>toolNumber32	WORD
>minVersion32	WORD
>toolNumber33	WORD
>minVersion33	WORD
>toolNumber34	WORD
>minVersion34	WORD
>toolNumber35	WORD
>minVersion35	WORD
>toolNumber36	WORD
>minVersion36	WORD
>toolNumber37	WORD
>minVersion37	WORD
>toolNumber38	WORD
>minVersion38	WORD
>toolNumber39	WORD
>minVersion39	WORD
>toolNumber40	WORD
>minVersion40	WORD
_END

_START	StartStopRec
flags	WORD
videoMode	WORD
resFileID	WORD
dPageHandle	LONG
numTools	WORD
toolArray
>toolNumber1	WORD
>minVersion1	WORD
>toolNumber2	WORD
>minVersion2	WORD
>toolNumber3	WORD
>minVersion3	WORD
>toolNumber4	WORD
>minVersion4	WORD
>toolNumber5	WORD
>minVersion5	WORD
>toolNumber6	WORD
>minVersion6	WORD
>toolNumber7	WORD
>minVersion7	WORD
>toolNumber8	WORD
>minVersion8	WORD
>toolNumber9	WORD
>minVersion9	WORD
>toolNumber10	WORD
>minVersion10	WORD
>toolNumber11	WORD
>minVersion11	WORD
>toolNumber12	WORD
>minVersion12	WORD
>toolNumber13	WORD
>minVersion13	WORD
>toolNumber14	WORD
>minVersion14	WORD
>toolNumber15	WORD
>minVersion15	WORD
>toolNumber16	WORD
>minVersion16	WORD
>toolNumber17	WORD
>minVersion17	WORD
>toolNumber18	WORD
>minVersion18	WORD
>toolNumber19	WORD
>minVersion19	WORD
>toolNumber20	WORD
>minVersion20	WORD
>toolNumber21	WORD
>minVersion21	WORD
>toolNumber22	WORD
>minVersion22	WORD
>toolNumber23	WORD
>minVersion23	WORD
>toolNumber24	WORD
>minVersion24	WORD
>toolNumber25	WORD
>minVersion25	WORD
>toolNumber26	WORD
>minVersion26	WORD
>toolNumber27	WORD
>minVersion27	WORD
>toolNumber28	WORD
>minVersion28	WORD
>toolNumber29	WORD
>minVersion29	WORD
>toolNumber30	WORD
>minVersion30	WORD
>toolNumber31	WORD
>minVersion31	WORD
>toolNumber32	WORD
>minVersion32	WORD
>toolNumber33	WORD
>minVersion33	WORD
>toolNumber34	WORD
>minVersion34	WORD
>toolNumber35	WORD
>minVersion35	WORD
>toolNumber36	WORD
>minVersion36	WORD
>toolNumber37	WORD
>minVersion37	WORD
>toolNumber38	WORD
>minVersion38	WORD
>toolNumber39	WORD
>minVersion39	WORD
>toolNumber40	WORD
>minVersion40	WORD
_END

_START	ToolSpec
toolNumber	WORD
minVersion	WORD
_END


; template: Window Manager

_START	Windows
Paramlist
WindColor
WindRec
WmTaskRec
_END

_START	WindRec
wNext	LONG
port
>portInfo
>>portSCB	WORD
>>ptrToPixImage	LONG
>>width	WORD
>>boundsRect	WORD	4
>portRect	WORD	4
>clipRgn	LONG
>visRgn	LONG
>bkPat	BYTE	32
>pnLoc	WORD	2
>pnSize	WORD	2
>pnMode	WORD
>pnPat	BYTE	32
>pnMask	BYTE	8
>pnVis	WORD
>fontHandle	LONG
>fontID	LONG
>fontFlags	WORD
>txSize	WORD
>txFace	WORD
>txMode	WORD
>spExtra	LONG
>chExtra	LONG
>fgColor	WORD
>bgColor	WORD
>picSave	LONG
>rgnSave	LONG
>polySave	LONG
>grafProcs	LONG
>arcRot	WORD
>userField	LONG
>sysField	LONG
wDefProc	LONG
wRefCon	LONG
wContDraw	LONG
wReserved	LONG
wStrucRgn	LONG
wContRgn	LONG
wUpdateRgn	LONG
wControls	LONG
wFrameCtrls	LONG
wFrame	WORD
wCustom
_END

_START	WindColor
frameColor	WORD
titleColor	WORD
tBarColor	WORD
growColor	WORD
infoColor	WORD
_END

_START	Paramlist
paramLength	WORD
wFrameBits	WORD
wTitle	LONG
wRefCon	LONG
wZoom	WORD	4
wColor	LONG
wYOrigin	WORD
wXOrigin	WORD
wDataH	WORD
wDataW	WORD
wMaxH	WORD
wMaxW	WORD
wScrollVer	WORD
wScrollHor	WORD
wPageVer	WORD
wPageHor	WORD
wInfoRefCon	LONG
wInfoHeight	WORD
wFrameDefProc	LONG
wInfoDefProc	LONG
wContDefProc	LONG
wPosition	WORD	4
wPlane	LONG
wStorage	LONG
_END

_START	WmTaskRec
wmWhat	WORD
wmMessage	LONG
wmWhen	LONG
wmWhere	LONG
wmModifiers	WORD
wmTaskData	LONG
wmTaskMask	LONG
wmLastClickTick	LONG
wmClickCount	WORD
wmTaskData2	LONG
wmTaskData3	LONG
wmTaskData4	LONG
wmLastClickPt	WORD	2
_END


; template: GS/OS

_START	GSOS
ChangePathRecGS
CreateRecGS
DAccessRecGS
DevNumRecGS
DInfoRecGS
DIORecGS
DirEntryRecGS
DRenameRecGS
EOFRecGS
ExpandPathRecGS
FileInfoRecGS
FormatRecGS
FSTInfoRecGS
GetNameRecGS
JudgeNameRecGS
InterruptRecGS
IORecGS
LevelRecGS
NameRecGS
NewLineRecGS
NotifyProcRecGS
OpenRecGS
OSShutdownRecGS
PositionRecGS
PrefixRecGS
QuitRecGS
RefInfoRecGS
RefNumRecGS
SessionStatusRecGS
SetPositionRecGS
StdRefNumRecGS
SysPrefsRecGS
VersionRecGS
VolumeRecGS
_END

_START	ChangePathRecGS
pCount	WORD
pathname	LONG
newPathname	LONG
flags	WORD
_END

_START	CreateRecGS
pCount	WORD
pathname	LONG
access	WORD
fileType	WORD
auxType	LONG
storageType	WORD
eof	LONG
resourceEOF	LONG
_END

_START	DAccessRecGS
pCount	WORD
devNum	WORD
code	WORD
list	LONG
requestCount	LONG
transferCount	LONG
_END

_START	DevNumRecGS
pCount	WORD
devName	LONG
devNum	WORD
_END

_START	DInfoRecGS
pCount	WORD
devNum	WORD
devName	LONG
characteristics	WORD
totalBlocks	LONG
slotNum	WORD
unitNum	WORD
version	WORD
deviceID	WORD
headLink	WORD
forwardLink	WORD
extenededDIBPtr	LONG
_END

_START	DIORecGS
pCount	WORD
devNum	WORD
buffer	LONG
requestCount	LONG
startingBlock	LONG
blockSize	WORD
transferCount	LONG
_END

_START	DirEntryRecGS
pCount	WORD
refNum	WORD
flags	WORD
base	WORD
displacement	WORD
name	LONG
entryNum	WORD
fileType	WORD
eof	LONG
blockCount	LONG
createDateTime
>seconds	BYTE
>minutes	BYTE
>hour	BYTE
>year	BYTE
>day	BYTE
>month	BYTE
>null	BYTE
>weekday	BYTE
modDateTime
>seconds	BYTE
>minutes	BYTE
>hour	BYTE
>year	BYTE
>day	BYTE
>month	BYTE
>null	BYTE
>weekday	BYTE
access	WORD
auxType	LONG
fileSysID	WORD
optionList	LONG
resourceEOF	LONG
resourceBlocks	LONG
_END

_START	DRenameRecGS
pCount	WORD
devNum	WORD
strPtr	LONG
_END

_START	ExpandPathRecGS
pCount	WORD
inputPath	LONG
outputPath	LONG
flags	WORD
_END

_START	FileInfoRecGS
pCount	WORD
pathname	LONG
access	WORD
fileType	WORD
auxType	LONG
storageType	WORD
createDateTime
>seconds	BYTE
>minutes	BYTE
>hour	BYTE
>year	BYTE
>day	BYTE
>month	BYTE
>null	BYTE
>weekday	BYTE
modDateTime
>seconds	BYTE
>minutes	BYTE
>hour	BYTE
>year	BYTE
>day	BYTE
>month	BYTE
>null	BYTE
>weekday	BYTE
optionList	LONG
eof	LONG
blocksUsed	LONG
resourceEOF	LONG
resourceBlocks	LONG
_END

_START	FormatRecGS
pCount	WORD
devName	LONG
volName	LONG
fileSysID	WORD
reqFileSysID	WORD
flags	WORD
realVolName	LONG
_END

_START	FSTInfoRecGS
pCount	WORD
fstNum	WORD
fileSysID	WORD
fstName	LONG
version	WORD
attributes	WORD
blockSize	WORD
maxVolSize	LONG
maxFileSize	LONG
_END

_START	JudgeNameRecGS
pCount	WORD
fileSysID	WORD
nameType	WORD
syntax	LONG
maxLen	WORD
name	LONG
nameFlags	WORD
_END

_START	InterruptRecGS
pCount	WORD
intNum	WORD
vrn	WORD
intCode	LONG
_END

_START	IORecGS
pCount	WORD
refNum	WORD
dataBuffer	LONG
requestCount	LONG
transferCount	LONG
cachePriority	WORD
_END

_START	LevelRecGS
pCount	WORD
level	WORD
levelMode	WORD
_END

_START	NameRecGS
pCount	WORD
pathname	LONG
_END

_START	NotifyProcRecGS
pCount	WORD
procPointer	LONG
_END

_START	GetNameRecGS
pCount	WORD
pathname	LONG
userID	WORD
_END

_START	NewLineRecGS
pCount	WORD
refNum	WORD
enableMask	WORD
numChars	WORD
newlineTable	LONG
_END

_START	OpenRecGS
pCount	WORD
refNum	WORD
pathname	LONG
requestAccess	WORD
access	WORD
fileType	WORD
auxType	LONG
storageType	WORD
createDateTime
>seconds	BYTE
>minutes	BYTE
>hour	BYTE
>year	BYTE
>day	BYTE
>month	BYTE
>null	BYTE
>weekday	BYTE
modDateTime
>seconds	BYTE
>minutes	BYTE
>hour	BYTE
>year	BYTE
>day	BYTE
>month	BYTE
>null	BYTE
>weekday	BYTE
optionList	LONG
eof	LONG
blocksUsed	LONG
resourceEOF	LONG
resourceBlocks	LONG
_END

_START	OSShutdownRecGS
pCount	WORD
shutdownFlag	WORD
_END

_START	PositionRecGS
pCount	WORD
reNum	WORD
position	LONG
_END

_START	EOFRecGS
pCount	WORD
reNum	WORD
eof	LONG
_END

_START	PrefixRecGS
pCount	WORD
prefixNum	WORD
prefixPtr	LONG
_END

_START	QuitRecGS
pCount	WORD
pathname	LONG
flags	WORD
_END

_START	RefNumRecGS
pCount	WORD
pathname	LONG
refNum	WORD
access	WORD
resNum	WORD
caseSense	WORD
displacement	WORD
_END

_START	SessionStatusRecGS
pCount	WORD
status	WORD
_END

_START	SetPositionRecGS
pCount	WORD
refNum	WORD
base	WORD
displacement	LONG
_END

_START	StdRefNumRecGS
pCount	WORD
prefixNum	WORD
refNum	WORD
_END

_START	SysPrefsRecGS
pCount	WORD
preferences	WORD
_END

_START	VersionRecGS
pCount	WORD
version	WORD
_END

_START	VolumeRecGS
pCount	WORD
devName	LONG
volName	LONG
totalBlocks	LONG
freeBlocks	LONG
fileSysID	WORD
blockSize	WORD
characteristics	WORD
deviceID	WORD
_END

_START	RefInfoRecGS
pCount	WORD
refNum	WORD
access	WORD
pathname	LONG
resourceNumber	WORD
level	WORD
_END


; template: AppleShare FST

_START	AppleShareFST
ASOptionListRec
BufferControlRec
ByteRangeLockRec
CopyFileRec
DefaultPrivilegesRec
DesktopRec
GetCommentRec
GetPrivilegesRec
GetServerNameRec
GetUserPathRec
SetCommentRec
SetPrivilegesRec
SpecialOpenForkRec
UserInfoRec
_END

_START	BufferControlRec
pCount	WORD
fstNum	WORD
commandNum	WORD
refNum	WORD
flags	WORD
_END

_START	SpecialOpenForkRec
pCount	WORD
fstNum	WORD
commandNum	WORD
pathname	LONG
accessMode	WORD
forkNum	WORD
_END

_START	ByteRangeLockRec
pCount	WORD
fstNum	WORD
commandNum	WORD
refNum	WORD
lockFlag	WORD
fileOffset	LONG
rangeLength	LONG
rangeStart	LONG
_END

_START	DefaultPrivilegesRec
pCount	WORD
fileSysID	WORD
commandNum	WORD
flags	LONG
access	LONG
owner	LONG
group	LONG
_END

_START	GetPrivilegesRec
pCount	WORD
fstNum	WORD
commandNum	WORD
pathname	LONG
accessRights
>reserved	BYTE
>world	BYTE
>group	BYTE
>owner	BYTE
ownerName	LONG
groupName	LONG
_END

_START	SetPrivilegesRec
pCount	WORD
fstNum	WORD
commandNum	WORD
pathname	LONG
accessRights
>userSummary	BYTE
>world	BYTE
>group	BYTE
>owner	BYTE
ownerName	LONG
groupName	LONG
_END

_START	UserInfoRec
pCount	WORD
fstNum	WORD
commandNum	WORD
deviceNum	WORD
userName	LONG
primaryGroupName	LONG
_END

_START	CopyFileRec
pCount	WORD
fstNum	WORD
commandNum	WORD
sourcePathname	LONG
destPathname	LONG
_END

_START	GetUserPathRec
pCount	WORD
fstNum	WORD
commandNum	WORD
prefix	LONG
_END

_START	DesktopRec
pCount	WORD
fstNum	WORD
commandNum	WORD
desktopRefNum	WORD
pathname	LONG
_END

_START	GetCommentRec
pCount	WORD
fstNum	WORD
commandNum	WORD
desktopRefNum	WORD
pathname	LONG
comment	LONG
_END

_START	SetCommentRec
pCount	WORD
fstNum	WORD
commandNum	WORD
desktopRefNum	WORD
pathname	LONG
comment	LONG
_END

_START	GetServerNameRec
pCount	WORD
fstNum	WORD
commandNum	WORD
pathname	LONG
serverName	LONG
zoneName	LONG
_END

_START	ASOptionListRec
bufferSize	WORD
dataSize	WORD
theFileSysID	WORD
finderInfo	BYTE	32
parentDirID	LONG
accessRights	LONG
_END

;
; template: DOS 3.3 & Pascal FSTs
; 20-August-92 (zak)
;
_START	DOS33FST
TextModeRec
_END

_START	PascalFST
TextModeRec
_END

_START	TextModeRec
pCount	WORD
fileSysID	WORD
commandNum	WORD
textMode	WORD
_END


; template: ProDOS FST

_START	ProDOSFST
CharCaseRec
TimeStampRec
_END

_START	TimeStampRec
pCount	WORD
fstNum	WORD
commandNum	WORD
timeOption	WORD
_END

_START	CharCaseRec
pCount	WORD
fstNum	WORD
commandNum	WORD
caseOption	WORD
_END


; template: High Sierra FST

_START	HighSierraFST
GetMapSizeRec
GetMapTableRec
MapEnableRec
SetMapTableRec
_END

_START	MapEnableRec
pCount	WORD
fstNum	WORD
commandNum	WORD
enable	WORD
_END

_START	GetMapSizeRec
pCount	WORD
fstNum	WORD
commandNum	WORD
mapSize	WORD
_END

_START	GetMapTableRec
pCount	WORD
fstNum	WORD
commandNum	WORD
bufferPtr	LONG
_END

_START	SetMapTableRec
pCount	WORD
fstNum	WORD
commandNum	WORD
mapPtr	LONG
_END


; template: ProDOS 16

_START	ProDOS16
BlockRec
DevNumRec
DInfoRec
DirEntryRec
EOFRec
EraseDiskRec
ExpandPathRec
FileIORec
FileRec
FormatRec
InterruptRec
MarkRec
NewLineRec
OpenRec
PathnameRec
PrefixRec
QuitRec
VolumeRec
_END

_START	BlockRec
blockDevNum	WORD
blockDataBuffer	LONG
blockNum	LONG
_END

_START	DevNumRec
devName	LONG
devNum	WORD
_END

_START	DInfoRec
devNum	WORD
devName	LONG
_END

_START	DirEntryRec
refNum	WORD
reserved	WORD
base	WORD
displacement	WORD
nameBuffer	LONG
entryNum	WORD
fileType	WORD
endOfFile	LONG
blockCount	LONG
createTime
>seconds	BYTE
>minutes	BYTE
>hour	BYTE
>year	BYTE
>day	BYTE
>month	BYTE
>null	BYTE
>weekday	BYTE
modTime
>seconds	BYTE
>minutes	BYTE
>hour	BYTE
>year	BYTE
>day	BYTE
>month	BYTE
>null	BYTE
>weekday	BYTE
access	WORD
auxType	LONG
fileSysID	WORD
_END

_START	EOFRec
eofRefNum	WORD
eofPosition	WORD
_END

_START	FileIORec
fileRefNum	WORD
dataBuffer	LONG
requestCount	LONG
transferCount	LONG
_END

_START	FileRec
pathName	LONG
fAccess	WORD
fileType	WORD
auxType	LONG
storageType	WORD
createDate	WORD
createTime	WORD
modDate	WORD
modTime	WORD
blocksUsed	LONG
_END

_START	FormatRec
devName	LONG
volName	LONG
fileSysID	WORD
_END

_START	EraseDiskRec
devName	LONG
volName	LONG
fileSysID	WORD
_END

_START	InterruptRec
intNum	WORD
intCode	LONG
_END

_START	MarkRec
markRefNum	WORD
position	LONG
_END

_START	NewLineRec
newLRefNum	WORD
enableMask	WORD
newLineChar	WORD
_END

_START	OpenRec
openRefNum	WORD
openPathname	LONG
ioBuffer	LONG
_END

_START	PathnameRec
pathname	LONG
newPathname	LONG
_END

_START	PrefixRec
prefixNum	WORD
prefix	LONG
_END

_START	QuitRec
quitPathname	LONG
flags	WORD
_END

_START	VolumeRec
deviceName	LONG
volName	LONG
totalBlocks	LONG
freeBlocks	LONG
fileSysID	WORD
blockSize	WORD
_END

_START	ExpandPathRec
inputPath	LONG
outputPath	LONG
flags	WORD
_END
\ No newline at end of file
diff --git a/IIGS.601.SRC/Debugger/Notes for SCM builds b/IIGS.601.SRC/Debugger/Notes for SCM builds
new file mode 100644
index 0000000..86789d2
--- /dev/null
+++ b/IIGS.601.SRC/Debugger/Notes for SCM builds	
@@ -0,0 +1 @@
+- GSBug
- Exerciser CDA (Fettuccine:GSProjects:Exerciser; build=)
- Exerciser app, Console Driver version (build=)
- LoaderDumper (Fettuccine:GSProjects:LoadDump; build=)
- Memory Mangler -- GSProjects:Mangler (build=)
- Snooper (Fettuccine:GSProjects:SnooperCDA; build=)
- Scrambler -- Ric

cd mcdave:debugger
equal "mcdave:desktop folder:gsbug stuff:debug.init" "mcdave:debugger:debug.init"

Server: GS.Toolbox.Test.Team
Path: GS.Toolbox:.Projects:CDAs:Scrambler:Scrambler.Source

#-------------------
# to build GSBug
#-------------------
#
# Check out the latest stuff from Fettuccine:Debugger
# make debug.init -e
# This results in debug.init
#
# This is version 1.6b20
#

#-------------------
# to build Scrambler
#-------------------
# Source is on Zone = Monroe 4, Server = GS.Toolbox.Test.Team, Volume = GS.Toolbox
# User = David Lee, password = David
#
mountproject GS.Toolbox:.Projects:CDAs:Scrambler:Scrambler.Source
CheckOutDir -project Scrambler.Sourceº "#2:Scrambler.Source" -r
CheckOut -project Scrambler.Sourceº -r -newer -p

mountproject GS.Toolbox:.Projects:Libraries:Patch.E10000:Patch.E10000.Source
CheckOutDir -project Patch.E10000.Sourceº "#2:Patch.E10000.Source" -r
CheckOut -project Patch.E10000.Sourceº -r -newer -p

cd "#2:patch.e10000.source"
set SourceDir `directory`
set ObjectDir `directory`
export SourceDir
export ObjectDir
make -f patch.e10000.make -e patch.e10000
duplicate patch.e10000.lib "{CIIgsLibrary}"patch.e10000.lib

cd "#2:Scrambler.source"
set SourceDir `directory`
set ObjectDir `directory`
set ProductDir `directory`
export SourceDir
export ObjectDir
export ProductDir
make -f Scrambler.make -e Scrambler
#---------------

#-------------------
# to build Exerciser CDA
#-------------------
mountproject Fettuccine:GSProjects:Exerciser
CheckOutDir -project Exerciserº "#2:Exerciser" -r
CheckOut -project Exerciserº -r -newer -p
cd "#2:Exerciser"
# set {drivers} to the GS System 6.0 drivers folder!
set drivers "McDave:GS.OS:Drivers:"
export drivers
set object "#2:Exerciser:"
export object
set common "McDave:GS.OS:Common"
export common

make exerciser.da


#-------------------
# to build Exerciser app
#-------------------
#
# With the above stuff set up like exerciser.da

make exerciser.gs


#-------------------
# to build Mangler
#-------------------
#The theoretical build proccess is:
# mountproject Fettuccine:GSProjects:Mangler
# CheckOutDir -project Manglerº "#2:Mangler" -r
# CheckOut -project Manglerº -r -newer -p
# directory "#2:Mangler"
# make mangler.da
#
# But this uses some macros that I have never heard of, expecting them
# to be in "all.macros".
#
# If possible, please find Mangler in the "GSBug 4.0B1" build from 1989,
# and use the "Mangler.DA" file unchanged (Mangler has not changed since
# then!) -- Or, if you want to rebuild that file from the old sources,
# that's fine too.
#

#-------------------
# to build Snooper
#-------------------
mountproject Fettuccine:GSProjects:SnooperCDA
CheckOutDir -project SnooperCDAº "#2:SnooperCDA" -r
CheckOut -project SnooperCDAº -r -newer -p
directory "#2:SnooperCDA"
make snooper.cda

#
# LoaderDumper--
#    Never mind, Loader Dumper is no longer part
#    of this disk (obsolete).
#

\ No newline at end of file
diff --git a/IIGS.601.SRC/Debugger/Old.Debugger.Comments.1988 b/IIGS.601.SRC/Debugger/Old.Debugger.Comments.1988
new file mode 100644
index 0000000..61afb22
--- /dev/null
+++ b/IIGS.601.SRC/Debugger/Old.Debugger.Comments.1988
@@ -0,0 +1 @@
+;
;
; May 11, 1988   	1)  Converted the debugger to run
;	in ROM.  On power-up the debugger
;	looks like a DA and then the system
;	copies itself into RAM (entire 64K bank)
;	It then steals the DA vector and then
;	replaces the starting address of the debugger
;	in its place.  Once the debugger has been invoked,
;	it asks for 1K of bank zero memory for stack and
;	direct page use.  It saves the environment of any
;	memory that it uses.  It presently uses the DA 
;	calls to save and restore the text screens for exit
;
;	2)  Cleaned up several bugs that had been present 
;	from the beginning of time:
;
;	A)  The debugger screwed up the stack when it
;	transferred from native mode to emulation mode
;	and back.  I saved the upper half of the native
;	mode stack pointer and restore it when going
;	to native.
;
;	B)  When loading files to debug, the system loader
;	sets aside a portion of zero page to hold some
;	variables it needs.  When the debugger quit
;	it did not dispose of this memory.  This made
;	it impossible for ProDOS 8 applications to
;	run following the debugger because they reserve
;	all of bank zero.  I saved all of the file ID's
;	and then dispose of them and all of their memory
;	when I quit.  This also enabled people to
;	load more than one file at a time and still
;	keep track of all the memory.  15 max files
;	can be loaded.
;
;	3)  Added the feature to allow JSR's to be run real
;	time.  Before only JSL's could.  Now this only
;	works in RAM.
;
;	4)  Fixed the re-entrancy problem.  Once you are inside
;	the debugger, attempts to access it again are useless.
;	The only way to re-enter is to quit and then get
;	back in using CTRL-OA-OPTION-ESC.
;
; May 22,1988	1)  Stored the current stack in 01/0100 on exit.  To keep
;	interrupts from trashing my input/output variables,
;	I pushed them on entrant stack and then saved stack
;	in 01/0100.  Problem was that stack was drifting down
;	every time the debugger was called about 1B bytes and
;	quickly drifted into zero page and died!!.  I'm now
;	saving the stack on exit.  Now the stack drifts three
;	bytes every time (from rtl that follows).  Will check and
;	see if that should be fixed.
;
;	2)  saved and restored the graphics switches -- including
;	the super hi-res switch.  Now you can return to the finder
;	and see the pretty screen.  Only works if you have not
;	used the graphics screens -- I'm still thinking about 
;	that!!
;
; May 23,1988	1)  When a break occurred, the break handler was still set
;	to the ROM bank.  This was changed to be in the RAM bank.
;
;	2)  When the jump (J) command was used, the proper bank was
;	not saved in MYID to be used to get the proper address
;	to jump to like it is in the JSL and JSR.  This was fixed.
;
;	3)  A problem was occurring with the heart beat task.  If the
;	DA vector had not changed from the last task and was
;	still my vector, then the task replaced the CDA vector
;	with my vector.  CDA's were never available and trying
;	to get at one hung the system in a wait loop.
;
;	4)  Added three more to the stack before restoring it in QUIT.
;	This insures that the stack pointer is in the EXACT same
;	place as when it entered the debugger.  Should make 
;	everyone happy.!!
;
;	5)  The stack is still causing me problems.  This time I'm
;	saving the emulation stack pointer away and then restoring
;	it when I leave.  This way it is always exactly the same.
;
; May 26,1988	1)  Fixed subtle stack problem.  The lower byte of the A reg
;	wasn't being saved in the save loop due to a bne that
;	should have been a bpl.  If the debugger was called
;	in between an instruction that loaded A and then 
;	transferred it to the stack, the stack got trashed because
;	the proper value wasn't being restored.
;
; May 27,1988	1)  Added the code that allows real time JSR's to be run
;	out of ROM!! The code keeps a table for each ROM bank
;	The first time a ROM JSR is called, the code searches the
;	bank for any RTL and uses that address for the RTS to
;	return to.  The next time a JSR is needed in the same
;	bank, it has it saved and doesn't need to look for it.
;	Now there is no provision for what happens if there is
;	no RTL anywhere in the bank.
;
; May 31,1988	1)  Went through and added all of the longa and longi's to
;	go with the rep's and sep's in the code.  Did it care-
;	fully to avoid any crashes when the code is assembled
;	and run.
;
; June 1,1988	1)  Made a special ROM for the people who changed the CDA 
;	vector.  The normal one is E1/0048, their's is E1/02B4
;
; June 2,1988	1)  One good hack deserves another.  For Fern's special ROM's
;	I set up the CDA vector to point to the manager -- like it
;	supposedly is on power-up.  This insures that you can 
;	always get into the DA's
;
;	2)  Changed the save and restore screen calls from the DA one
;	to the one that requests a handle and then puts all of the
;	memory there.  There is no provision for error handling yet.  
;	This allows DA's to be called from the debugger.
;
; June 8,1988	1)  There is a problem with the boot code turning off the 
;	VBL's. This caused problems because the heartbeat task 
;	needed to keep me installed was not being called.  Thus, 
;	the hack:  when the debugger is called, I re-install my 
;	heartbeat task.  If it is already there, I simply turn on 
;	VBL's and go for it.  If it is not there, then I assume 
;	that a pr#5 or something similar wiped me out of the 
;	heartbeat queue.  I install myself, clear out my queue and 
;	turn on VBL's.  With this solution, the worst thing that 
;	can happen, is that someone will try to get into DA's, find
;	they can't, access the DA's.
;
; June 8,1988	1)  Changed the base conversion feature to handle expressions of 
;	32-bit numbers. An expression consists of a series of one or
;	more hex or decimal numbers separated by operators and 
;	ending with an equal sign. Hex numbers must be preceded by 
;	a '$'.  Decimal numbers may be preceded by a positive or
;	negative sign or nothing.  Negative numbers are converted 
;	to 32-bit two's-complement.  Numbers that are larger that 
;	32-bits will wrap. Legal operators are '+', '-','*', '/', 
;	and '%' (modulus).  All operators are evaluated left to 
;	right with equal precedence. Overflow is ignored. The result 
;	will be printed in either hex or decimal depending on the 
;	form of the expression. If the expression consists of just one 
;	hex number, then it is assumed we want to convert it to 
;	decimal, so the result will be in decimal.  If the expression
;	is just one decimal number, the result is printed in hex. 
;	If the expression contains more than one number and all the 
;	numbers are in decimal,then the result is printed in decimal.  
;	Otherwise the result is printed in hex.
;
;	2)  Changed command parser to read command starting at the 
;	rightmost equal sign in the current line that is not at the 
;	end of the line.  This allows the result of a calculation to 
;	be used in a command without having to retype the result.
;
; June 9, 1988	1)  Added indirect memory referencing.  An address followed by two 
;	colons will dump memory starting at the 3-byte address which 
;	is stored at the address given in the command.
;	
;	2)  Added direct page mode for the memory subdisplay.  Typing 'Z' 
;	while editing a memory cell will toggle direct page mode.  
;	A direct page memory cell will display the given direct page 
;	address even when the direct page changes.
;
; June 10, 1988	1)  Added a new disassembler mode that causes the disassembler to
;	recognize REP's and SEP's and switches between long and short 
;	accumulator and index registers automatically during 
;	disassembly.The mode is controlled by the disassembly mode 
;	flag (d).  If d is set, then SEP's and REP's are recognized; 
;	if d is clear, then they are ignored.  The flag can be set or 
;	cleared by the command d=x, where x is either 0 or 1.
;
; June 13, 1988	1)  Added dereferencing mode for the memory subdisplay.  Typing 
;	'I' while editing a memory cell will toggle deref mode.
;	Two colons are used to indicate a deref.  The memory 
;	displayed will be the contents of the memory location whose
;	address is stored in the three bytes starting at the address
;	of the memory cell.
;
; June 14, 1988	1)  Added alignment of bytes in the dump display, so that the 
;	position of the byte is determined by the low nibble of it's 
;	address.
;
;	2)  Added a dump range option.  The command 'addr1.addr2:' dumps
;	memory between and including addr1 and addr2.  If the number
;	of bytes requested is greater than the number that will fit 
;	on the screen, then only what will fit on the screen is 
;	displayed.
;
; June 15, 1988	1)  The deref memory dump option was extended so that the number
;	of colons following the dump address or range is the number of
;	bytes in the indirect address.  That is the command of the 
;	form '$XXXXXX::' will dump the block of memory starting at 
;	the two byte address stored at $XXXXXX.  The bank is decided
;	by the value of the bank register.  A command of the form 
;	'$XXXXXX:::' will dump the block of memory starting at the 
;	three byte address stored at $XXXXXX.
;
;	2)  The memory subdisplay was updated to handle both 16-bit and
;	24-bit dereferencing.  The referencing is done as described 
;	for the dumping. The type of referencing (16-bit, 24-bit, or 
;	none) is changed by typing a colon while editing a memory 
;	cell.  The current referencing mode is indicated by the 
;	number of colons following the address as described above.
;
;	3)  Allowed entering of addresses into memory.  When setting
;	memory, if the value is longer than 1 byte, it is assumed 
;	to be an address. For example, typing '00/2000:123456' will
;	store a $56 at 00/2000, a $34 at 00/2001, and a $12 at 
;	00/2002.  Note that if the address is a 24-bit address, 
;	you must explicitly enter leading zero's.If you want to 
;	store the 24-bit address 00/1234 at 00/2000, you must type 
;	'00/2000:001234'.  If you type '00/2000:1234', it will be 
;	assumed to be a 16-bit address, and only two bytes will be 
;	entered into memory.  Note that the v1.0d1 ERS (5/11/88) 
;	implies that this feature already exists.  In fact, 
;	it did not exist.
;
;	4)  Added a quickdump feature.  If you type an address and then
;	press return without following it with a colon, then the 16 
;	bytes starting at that address are displayed at the bottom 
;	of the screen.  They will stay there until any key is pressed.
;	This keypress will be passed to the input routine, so it will 
;	be the first character of the next command.
;
; June 16, 1988	1)  Changed the expression routines so that decimal results are 
;	preceded by a plus.  This makes sure that they are not 
;	confused with hex results.
;
;	2)  Added a column heading line to the dump display.
;
; June 20, 1988	1)  A circular history queue was added to record the last 32 
;	instructions in a trace.  This queue is used to show the 
;	trace history when returning from tracing with the display
;	off. This means that a fast trace can be done by turning 
;	the display off first, but that you can still see the 
;	instructions that have been executed when done tracing.
;
; June 21, 1988	1)  Added display mode switches to the command mode.  These 
;	switches are similar to the ones available in trace mode.  
;	The backslash key '\' is now treated specially.  If this 
;	key is pressed any time while on the command line, then 
;	the next key pressed will be interpreted as a display switch
;	key.  The display switch keys are the same as in trace
;	mode.  Neither the backslash or the switch key will be 
;	displayed, so they can be entered in the middle of a command
;	without affecting it.
;
; June 22, 1988	1)  Initial register values are set to the saved irq values 
;	found in the $E1000 bank.
;
; June 23, 1988	1)  Removed previous change (hopefully temporarily).
;
; June 27, 1988	1)  Fixed trace history to work with stepping and with tracing
;	using the 'T' command without an address.
;
; June 28, 1988	1)  Fixed 80COLSTORE switch bug.  The debugger now restores the
;	value of the switch after it clears it.
;
; June 30, 1988	1)  Added conditional assembly stuff to allow the creation of
;	an init version of the debugger.  This version should be
;	made into a file type of $B6 on the GS.  It will load on
;	bootup and act exactly like the rom version.
;
;	2)  Updated the copyright/version message.
;
; July 5, 1988	1)  Removed code that initialized the display screen (i.e.
;	break points, mem protection, mem cells, stack display,
;	etc.)  The initial values are now determined by the
;	values in the various tables and variables at assembly
;	time.  Doing this means that if the values are changed
;	when in the desk accessory version, then if we exit the
;	debugger and then return, the values will be the same.
;
;	2)  Fixed bug in quick dump routine that caused crash when
;	exiting the debugger.
;
;	3)  Modified code so that the entry state is now saved as
;	variables instead of on the stack.
;
;	4)  No longer return to calling procedure with a rtl.  Now
;	we pull the return address off of the stack on entry
;	and do a jmp to that address to exit.
;
;	5)  The return address and processor status that were saved
;	on the user's stack by the interrupt routines are now
;	saved on entry to the debugger, and then restored on
;	exit.  This allows the user to trace his/her program
;	in the debugger without having to worry about destroying
;	the return stuff on the stack.
;
; July 6, 1988	1)  On initial startup, the break vector is patched to jump
;	into the debugger.  When a break in encountered, the
;	the debugger will launch and check the break status flag.
;	If it is set to debugger breaks, then the debugger will
;	beep and then set all of the registers to reflect the
;	status of the machine at the time of the break.  The stack
;	pointer will be set to it's value at the time of the break
;	(not after the break,) and the PC will be set to the
;	address of the break instruction.  If the break status
;	flag is set to use breaks, then the the debugger will just
;	break to the monitor.
;
;	2)  When entering the debugger by using the entry key
;	sequence, debugger will reflect the state of the machine
;	when the interrupt occurred.
;
;	3)  Fixed bug that caused crash when doing a J or an X with
;	either m=1 or e=1.  The fix involved restoring some lines
;	that had been commented out in the jump routine (JPC.)
;
;	4)  Added new debugger command 'START' that prints out the
;	address at which the debugger is loaded.  This is to
;	help in the debugging of the debugger.  This command is
;	only available if the debugger is assembled with
;	ThisIsDEV equal to 1.
;
; July 7, 1988	1)  Fixed bug in the routine that check to see if the break
;	vector has already been patched.  It now compares the
;	bank in the break vector against the current bank, not
;	the bank at assembly (or load) time.  This was only a
;	problem in the rom version.
;
; July 8, 1988	1)  Fixed bug that that caused problems when executing an JSL
;	or JSR at real time with the emulation mode on.
;
; 	2)  Fixed bug that caused the high byte of both X and Y to be
;	trashed when returning from executing a JSL or JSR at real
;	time.
;
;	3)  Fixed bug in 'X' command that sometimes caused a jump to
;	the wrong bank.
;
;	4)  Fixed bug that caused a crash when tracing a JSR in real
;	time with short accumulator.
;
;	5)  Added two new commands: STACK and DP.  These commands
;	respectively set the users stack pointer and direct page
;	pointer to point to the stack and direct page that are
;	allocated by the debugger on startup.  These are primarily
;	useful for when the user enters the non-application version
;	of the debugger, and doesn't want a safe stack and direct
;	page to use instead of using those of the application that
;	was running at the time that the debugger was called.  Note
;	that the stack command only works if e = 0.
;
;	6)  Fixed bug that caused the stack pointer to be off by one
;	when returning from real time code in emulation mode via
;	a BRK instruction.]
;
; July 11, 1988	1)  Fixed bug in the loops that saved and restored the entry
;	state.
;
; July 12, 1988	1)  Fixed bug that caused the bank byte of the break vector
;	to be patched incorrectly in the rom version.
;
;	2)  Fixed bug that caused problems with real breakpoints
;
; July 13, 1988	1)  Fixed bug that caused real breakpoints to mess up on the
;	first J or X command executed after a trace or single
;	step with the display on.
;
; July 15, 1988	1)  If the option key is held down when the debugger is
;	first called during initialization, the debugger will
;	not be installed.
;
;	2)  Fixed bug that caused the debugger's memory not to be
;	deallocated by the QUIT command in the init version.
;
;	3)  Fixed bug that caused PC not to be set when entering
;	debugger via a break.
;
; July 18, 1988	1)  Moved allocation of 1k back to every time debugger is
;	run.
;
;	2)  Fixed bug that caused the PCK on entry not to be
;	restored on exit if in emulation mode.
;
;	3)  Debugger now recognizes CTRL-OA-Option-ESC while doing
;	real-time execution within the debugger.  This will not
;	re-enter the debugger recursively, but will just stop
;	execution of the code and drop you back to the main
;	debugger display screen.  When quitting, you will still
;	exit to the point at which the debugger was first called.
;
;	4)  The Prodos 16 stack based system call is now recognized,
;	and all JSLs to it are executed at real time.
;
;	5)  The PC was being set to two bytes past the break when
;	entering the debugger via a brk instruction.  Now it
;	is set to point to the brk instruction.
;
; July 19, 1988	1)  When doing the QUIT command, the debugger checks if the
;	user has patched the break vector since the debugger
;	patched it since initialization.  If not, then it is
;	restored to what it was before initialization.
;
;	2)  Version # is now followed by a letter indicating which
;	version of the debugger.  The letters are 'r' for the
;	rom version, 'i' for the init version, and 'a' for the
;	application version.
;
; July 21, 1988	1)  Changed user breaks to monitor breaks.  This just means
;	that the command to set breaks to drop into the monitor
;	is now 'mbrk' instead of 'ubrk.'  Also the flag that
;	indicates the type of break is now an 'm' instead of a 'u'.
;
;	2)  Changed commands around to remove almost all case
;	sensitivity.  To do this several things were changed.
;	First of all, the commands 'e=', 'm=', and 'x=' were
;	removed.  These can still be changed by toggling them with
;	the 'e', 'm', and 'x' commands, which must be in lower
;	case.  The old 'M=' and 'X=' commands now work in lower
;	case as well as upper case.  The old command 'D' which
;	was not case sensitive has been changed to 'DP:'.  This
;	is so that the old command 'd=' could be removed and
;	replaced with the new command 'd' which toggles the
;	disassembly mode.  The old command 'DP' was changed to
;	'DPAGE'.  This was done so as to avoid typing it
;	accidentally when meaning to type 'DP:'.  Finally, the
;	'quit' command was changed to 'unload'.
;
;	3)  Fixed bug that caused error when doing a command of the
;	form '1234X' or '1234J' from the dump screen.
;
;	4)  The command parser now only starts interpreting the 
;	currentcommand from the previous equal sign if that 
;	equal sign was from a valid expression.  This eliminates
;	some confusion from occurring when trying to set an 
;	invalid flag equal to a value.
;
;	5)  Fixed bug that caused numbers of more than 3 bytes that 
;	were entered on the command line to be truncated to 2 
;	bytes.
;
;	6)  The default base for numbers not preceded by any sign
;	in an expression is now hex.  Decimal numbers now must
;	alway be preceded by a positive or negative sign.
;	This means that if you want to add hexadecimal $1A to
;	decimal 5 for example, you must now type '1A++5='.
;
;	7)  The 'J' command (without an address in front of it)
;	was not working corectly.  The code was doing some strange
;	things that didn't seem to make much sense.  I added code
;	that should make it do the right thing.  Let's hope it
;	works OK.
;
;	8)  Made the letter 'G' interchangable with the letter 'J'
;	for jumping into code.  This was done because everyone
;	(myself) included thought that there already was a 'G'
;	command, but it didn't exist.
;
; July 22, 1988	1)  Changed the 'on' command so that it always causes the
;	master display screen to be displayed.  It used to ignore
;	the on command the screen was on, but we were viewing
;	a different screen by using the backslash commands.
;
; July 25, 1988	1)  Took out fix that stopped numbers of greater than 3 bytes
;	to be truncated.  It was causing too many problems.
;
;	2)  Fixed bug that caused CLOAD and CSAVE not to work in
;	ROM version.
;
;	3)  Fixed bug with the automatic switching back to the
;	master display screen when typing a command that
;	isn't available from the dump screen.
;
;	4)  Fixed bug that caused an expression of the form
;	'5A=' not to be converted to decimal.
;
; July 26, 1988	1)  Fixed bug that caused master display screen to be turned
;	back on automatically if doing a trace or single-step
;	while it was turned off.
;
; July 27, 1988	1)  Took out the letters following the version number.
;
; July 28, 1988	1)  Corrected the help screens.  Made changes so that there
;	are no invalid commands, but didn't add all the new
;	commands.
;
; Aug. 1, 1988	1)  Toolbox calls are now recognized during disassembly.
;	If a JSL $E10000 is seen, then the debugger will check
;	if the previous instruction was a LDX immediate and if
;	long indexing is on.  If both of these are true, then
;	the tool call name will be displayed instead of the
;	JSL E10000.  The LDX # will still be displayed.
;
;	2)  It is now possible to return from the monitor (after
;	entering it via the MON command) by pressing
;	CTRL-OPTION-OA-ESC.
;
; Aug. 3, 1988	1)  Fixed bug that caused the debugger to be messed up after
;	hitting a BRK or pressing CTRL-OA-OPTION-ESC while
;	tracing a subroutine in real-time.
;
;	2)  Fixed bug/feature that pushed an extra long return
;	address onto the stack when executing a JSR in real
;	time.
;
; Aug. 5, 1988	1)  Fixed another bug that caused the debugger to crash on
;	exit if a BRK was hit or CTRL-OPTION-OA-ESC was pressed
;	while inside a real time JSR.
;
;	2)  Debugger now restores the next instruction if a BRK was
;	encountered or if CTRL-OA-OPTION-ESC wass pressed while
;	tracing a subroutine in real time.
;
;	3)  The quit command now quits to the current PC and 
;	current state instead of to the point of entry.  The
;	screens are still set to what they were on entry.
;
; Aug. 10,1988	1)  Fixed bug that caused the high byte of both X and Y to
;	be destroyed when entering a subroutin in real time.
;
;	2)  Added an unload by user ID command.  This command is
;	of the form 'UNLOAD id#' and simply calls the
;	tool box routine DisposeAll with the  given ID #.
;
;	3)  The routine that checks for toolbox calls during
;	disassembly now no longer checks to make sure that
;	long indexing is on.  This was causing problems when
;	code was being entered with the mini-assembler.
;
;	4)  Added two new commands, 'TOOL #toolnum' and
;	'TOOL _ToolName'  Both of these commands output the
;	tool number and name of the specified tool.  If
;	an unknown tool number is requested, then the tool
;	name will be output as unknown.  If an unknown tool
;	name is requested, the debugger will just beep.
;
; Aug. 11, 1988	1)  Changed the UNLOAD command to SHUTDOWN.  It now takes
;	two arguments, the user ID and a quit flag, and executes
;	a UserShutDown c
all.  The command should be of the form
;	'SHUTDOWN id# quit_flag.'
;
;	2)  The TOOL command now also prints the actual address
;	of the tool routine.
;
;	3)  Pressing 'S' while in set mode now toggles the stack
;	subdisplay between showing stack addresses and stack
;	offsets.
;
;	4)  Pressing 'D' while in set mode now toggles the dump
;	alignment on and off.  If dump alignment is on, then
;	memory dumps will be aligned to 16-byte boundaries.
;
; Aug. 12, 1988	1)  Fixed bug that caused extra bytes to be left on the
;	stack when returning from a real time JSR.
;
;	2)  Fixed bug that caused major problems when entering real
;	time JSR's and JSL's in emulation mode.
;
;	3)  The debugger now recognizes GS/OS calls (JSL $E100A8)
;	and formats them in disassemblies.
;
; Aug. 18, 1988	1)  Added the ability to load and use templates.  A file of
;	templates can be loaded in with the command:
;	'LOADTEMP TemplateFile'.  An error $FFFF while loading
;	a template file means that the file is not in the correct
;	format. A template can be used with
;	the command '_TemplateName address' where address is
;	the address of your data.  A template file consists
;	of one or more templates.  Each template should start
;	with a line of the form '_START TemplateName' and end
;	with a line '_END'.  Anything not between a start and
;	end will be ignored.  Each line in the template should
;	be of the form 'Label type count'.  The fields should be
;	seperated by on or more tabs or spaces.  The count field
;	can be omited signifying just one value.  Types may
;	be either 'byte', 'word', 'long', 'ascii', 'cstring',
;	or 'pstring' and may be abreviated to their first letter.
;	All templates can be unloaded by the command 'KILLTEMP'.
;
; Feb. 2, 1989	1)  The user ID used for the stack and direct page segment
;	was being read of real zero page.  This random value sometimes
; 	worked and sometimes did not.
;
; Feb. 16, 1989	1)  Debugger now loads in a default configuration file on
;	startup.  This file should be called 'DEBUG.SETUP'.  It
;	should be located in the same folder as the debugger for
;	the init version, and should be located in the
;	SYSTEM/SYSTEM.SETUP folder of the bootup disk for the init
;	and ROM versions.
;
;	2)  If breakpoints are in when the BP command is entered, they
;	will automatically be taken out before the user edits the
;	breakpoints.  When the user is done editing the breakpoints,
;	they will automatically be put back in.
;
; Feb. 22, 1989	1)  Now check to see if the printer slot is selected before
;	allowing the screen to be printed.  Also make sure that slot
;	three is selected before allowing the MON command.  These
;	changes will supposedly prevent bugs in system 5.0.
;
; Feb. 22, 1989	1)  Fixed file so that tabs are set to 20.  It used to be
;	that everything was indented with spaces and some tabs.
;	This made it a real pain to edit the code.
;
; Feb. 23, 1989	1)  Added a scroll down (SCROLLDN) and a scroll dissasembly
;	subdisplay down routines.  These are to be used with viewing
;	history.
;
; Feb. 24, 1989	1)  Found and fixed three SEP #30's and two REP #30's.
;	These should have been SEP #$30 and REP #$30.  This fixed
;	the ten-speed bug and who knows what else.
;
; Mar. 3, 1989	1)  Changed quit command to QR (for quit resume) and put
;	back the old quit command as Q (or QUIT).  The Q command
;	restores the state of the machine to what it was on entry.
;
;	2)  Default config file now called GSBUG.SETUP not
;	DEBUG.SETUP.
;
;	3)  We no longer try to load a default config file in the
;	ROM version.
;
;	4)  No longer define ThisIsRAM in this file.  It must be
;	defined on the command line.
;
; Mar. 10, 1989	1)  Fixed bug that caused stack to be messed up when
;	tracing in emulation mode.  Now all of the save and
;	restore register routines are macros.  Before they
;	were copies of the same code.
;
;	2)  Debugger stack is now allocated as not locked
;	and is then locked afterwards.  This causes it to be
;	allocated near the top of bank 0, and not at $2000.
;	This fixes the bug that caused crashes when trying to
;	view page 2.
;
;	3)  Quit command no longer works from init or rom versions.
;	the RESUME command (R or RESUME) does what QR was doing.
;	UNLOAD unloads the debugger and then does a resume.  There
;	is no command that does what quit did.
;
;	4)  Added two new commands: SE (Save Environment) and
;	RE (Restore Environment).  SE saves a snapshot of the
;	current state of the registers.  RE will restore this
;	saved state.  If the RE command is used when no state
;	has been saved with the SE command, then the state of
;	the registers on entry will be restored.
;
; Mar. 16, 1989	1)  Fixed bug that caused set command to no longer work.
;
; Mar. 17, 1989	1)  Added saved trace history.  You can set trace save ranges
;	in the MP subdisplay.  The H command sets a window.  If
;	any windows are set, then only instructions inside of
;	the window are saved in the trace.  Open a trace history
;	file with the command 'OPENHIST filename'.  All instructions
;	in the trace history range will be saved to the file allong
;	with the current state of the registers.  Close the history
;	trace file with the command 'CLOSEHIST'.  View a history
;	trace with the command 'VIEWHIST filename'.  When viewing 
;	history, the current instruction is highlighted and the
;	registers reflect the state of the registers just before that
;	instruction was executed.  Use the up and down arrows to move
;	up and down one step.  Use the arrows with OA to move a
;	page at a time.  Use the left and right arrows to move to
;	the start or end.  Type a step number to move to that step.
;	Press esc to finish viewing the history.
;
;	2)  Added breaks on toolcalls and toolcall errors in trace mode.
;	To set a break on a toolcall use the command 'SetTBrk #toolnum'
;	or 'SetTBrk _toolname'.  To clear a break on a toolcall, use
;	the command 'ClrTBrk' followed by the name or number.  To clear
;	all breaks on a toolcall, use 'ClrAllTBrk'.  If a break is set,
;	execution will halt on the toolcall, before it is executed.  The
;	commands to set and clear breaks on tool errors are 'SetEBrk',
;	'ClrEBrk', and ClrAllEBrk'.  These will cause the trace to halt
;	if the given toolcall returns an error.  The debugger will halt
;	on the next instruction without executing it.  If either byte of
;	the tool call number equals zero, then that byte will match any
;	high byte.  For example, setting a break on $0004 will cause a
;	break on any Quick Draw call, while $0000 will cause a break on
;	any call.  Up to twenty of each kind of break can be set.  The
;	set breaks will be saved with your configuration.  To view the
;	currently set breaks, use the command 'ShowBrks'.
;
;	1)  Fixed expresions, hex #'s weren't right.
;
;	2)  Fixed check for $C017 before entry into mon.
;
; March 20, 1989	1)  Can now break on tool calls and tool call errors while
;	in real time.  This can be done by using the commands
;	TBRKIN and EBRKIN to set real time tool breaks and real time
;	tool error breaks respectively.  To disable real time
;	breaks, use the commands TBRKOUT and EBRKOUT.
;
;	2)  Fixed problem that caused the PC to incorectly reflect
;	the current instruction when halting from a trace while the
;	display is off.
;
\ No newline at end of file
diff --git a/IIGS.601.SRC/Debugger/debug.aii b/IIGS.601.SRC/Debugger/debug.aii
new file mode 100644
index 0000000..baf3b99
--- /dev/null
+++ b/IIGS.601.SRC/Debugger/debug.aii
@@ -0,0 +1 @@
+********************************************
;                                          ;
;             GSBug Debugger               ;
;                                          ;
;  Copyright 1986-93 Apple Computer, Inc.  ;
;          All Rights Reserved             ;
;                                          ;
;******************************************;
;                                          ;
;  REVISION HISTORY                        ;
;                                          ;
;  Pete Rowe             Jan-Dec 1986      ;
;    Modified for ROM-Based Debugger v1.1  ;
;                                          ;
;  Joe Bo                Jan-Feb 1988      ;
;                                          ;
;  Mensch                1989-1990         ;
;                                          ;
;  David A. Lyons        August 1990+      ;
;                                          ;
;  Jim Murphy            Mar-Oct 1993      ;
;                                          ;
**************************************************************************************************
**************************************************************************************************
;	Rev History
;
; March 29, 1989	1)  Real time trace windows now work on jsr's as well as
;	jsl's.
;
; March 30, 1989	1)  Presing Ctrl-OA-Esc is now efective in the application
;	version of the debugger.  It will interupt real time
;	execution of code as well as return the user from the
;	monitor.
;
;	2)  Fixed bug in the real time tool breaks.
;
; March 31, 1989	1)  Pressing X while tracing when not on a jsr or jsl is now
;	the same as pressing space.
;
;
; 9/13/89	Mensch
;	Fixed real time tool breaks so that they work properly
;	they were not entering the debugger from an interupt, so
;	when the debugger exited, it got screwed up.
;
;	Added GLUE SnYpHer so that Pascal/C glue toolcalls can be
;	detected.
;
; 1/2/90	Mensch
;	Fixed glue display so it showed the asterisk properly.
;
; 2/21/90	Mensch
; 	Added Support for toolbreaks in the glue entry.
;	Added Support for debug with DAs that accept keystrokes.
;	Added annoying keyclick.
;
; 2/22/90	Mensch
;	Added fake tool call $FF09 so that the debugger can better
; 	communicate with programmers.
;
; 3/16/90	Mensch
;	Added real time conditional break support. See ERS for details.
;	SetIf W A>X.
;
; 3/26/90	Mensch
; 	tried to shrink code a little to fit more in here
;
; ---------------------------------------------------------------------------------------
;
; 31-Aug-90         David A. Lyons
;                   Resurrecting the following changes from an accidental project fork.
;
;      29-Aug-90	David A. Lyons
;                   Updated toonames and dosnames for 5.0.3.  Bumped version
;                   to 1.5b10.  It *said* 1.5b8, which makes me wonder if
;                   b9 was really checked in, or what.
;
;      29-Aug-90	David A. Lyons
;                   Changed ShowBrks to go ahead and call GetToolName even if
;                   the function number is wild (for ex, $0002 = "Memory Manager")
;	For ProDOS 8, now tries using 1K at $6000 instead of $0000 for work space.
;
;      30-Aug-90	Mensch, with Lyons watching
;                   Now we store a $80 into $01/0100 so that interrupt routines don't trash
;                   your favorite part of the stack while you're stepping 8-bit stuff.
;                   Changed CSAVE to create config file with file type $5A, auxtype $0005
;                   (DTS-assigned file type, "GSBug configuration").
;
; 31-Aug-90	David A. Lyons
;	Took out code that was checking $C020 (not $C02d!) to see if the
;	printer slot was switched in.  Makes no sense anyway, because a
;	printer can legitimately be either an internal or external slot.
;
;	Changed toolbox calls into Macros.
;
;	Need to fix emulation-stepping problem (interrupts enables outside b0!)
;	Need to make sure SWAP is always called with B = debugger's bank.
;	Need to fix long addressing so the ROM version will work!
;
; 7-Sep-90 (am)	Dave Lyons
;	Added a CR in the main help screen (first line was running off the edge).
;	Commented out some dead code, and removed some long-dead code that was
;	already commented out.
;	Cleaned up some comments.
;
; 7-Sep-90 (pm)     Dave Lyons
;	Experimental fix for 8-bit stepping.  We now simulate SEI and CLI, and
;                   instructions are always executed with interrupts disabled.  PLP was
;                   already being simulated, as was XCE.
;                   Xing a JSR when the user program is in emulation mode is still not
;                   reliable (no change there).
;                   Forcing $01/0100 to $80 after every instruction execution.  This will
;                   help some, but it is not sufficient for code that actually loads from
;                   $01/0100 and sets the stack pointer from that!
;
; 10-Oct-90	Dave Lyons
;	Version 1.5b11.  Change 'D' command to 'I' so it doesn't interfere with
;	typing a hex number that starts with a D.
;	Put MP help back in.
;	Changed CURSE to make an inverse character instead of a flashing one,
;	so we don't have to turn off ALTCHR.
;	Experimentally put e=, m=, and x= commands back in.
;	x and X are now different commands.
;
; 11-Oct-90	Dave Lyons
;	Adding experimental "stick" command to make the debugger hang around
;	   after a reboot.
;	Added pseudo tool call $0BFF=DebugSetHook.  The N ("neat-o") command
;	   calls this hook.
;	Removed a conditional hard-coded increment of $004002 when X-ing a JSR.
;	Changed remaining "EBrk"s into "OSBrk"s to make code readable.
;	Removed dead use of "TErrFlag".
;	Fixing SetOSBrk so you can set them by name.
;	Consolidated number/name parsing code into one routine for SetTBrk,
;	   ClrTBrk, SetOSBrk, ClrOSBrk, and Tool.
;	Added "GS" to end of class-1 OS names.
;
; 12-Oct-90	Dave Lyons
;	Added REP #$30 on the two tool-dispatcher-intercept routines.  Making
;	tool calls in other than full native mode is still not a good idea.
;	Changed to use all.macros (saved 7 seconds out of 36 on my system).
;	Took e=, m=, and x= back out.  They're kind of annoying (X= vs. x=).
;	Fixed real-time breakpoints for 1-byte instructions with count>1
;	  (was storing a word-long zero instead of a byte-long zero to restore break).
;
; 15-Oct-90	Dave Lyons
;	Adding code to change the debugger handle's memory ID during a real-time JSL
;	to match the code being stepped.  For ex, now you can step over an MMStartUp
;	and get the expected ID returned (the application's instead of the debugger's).
;
; 16-Oct-90	Dave Lyons
;	Fixed real-time counted breakpoints.  Everything seems to work now.
;	Added "jsr AltLoadTemp" to load */System/System.Setup/GSBug.TMPL
;	automatically.
;
; 17-Oct-90	Dave Lyons
;	Removed "jsr AltLoadTemp"--makes it hang.  Investigate later, release 1.5b11 now.
;
; === 1.5b12 ===
;
; 23-Oct-90	Dave Lyons
;	DebugSetHook(nil) now removes the hook.
;	1K bank 0 segment now has our real ID (was always $80xx).
;	Fixed OS breaks to work after return from ProDOS 8 (adding Notify Proc).
;	N command enables text-page shadowing (during call to hook).
;	Separated LoadTempSubr so we can load templates automatically.
;	If you don't type a number after a _xxx, it's like _xxx 0.
;	DP:xxx command dumps 16 bytes from DP to the command line.
;	Tool call $0CFF DebugGetInfo(word):long.  Word=0 returns a default address
;	  (useful with N command).
;	Real-time counted breakpoints don't work for JMP() ($6C), JMP(,X) ($7C),
;	  JML() ($DC), and JSR(,X) ($FC).
;
; 31-Oct-90	Dave Lyons
;	Finished fixing LoadTemp--now it's a subroutine we can call to automatically
;	  load a template file.
;
; 10-Dec-90	Dave Lyons
;	The notify proc that re-patches the OS vectors now saves and sets the Bank
;	register.  It was trashing memory before.
;
; 18-Jan-91	Dave Lyons
;	With Monte's help, located the misplaced CLI that was causing the X command
;	used on a JSR to accidentally return with the Bank register set to the
;	debugger's bank, and the Stack set to the Interrupt-time stack.
;
; 8-Feb-91	Dave Lyons
;	Adding SpongeBoy tool/OS calls, bumping version to 1.5b13.
;	Need to fix Templates still.
;
; === 1.5b14 ===
;
; 30-Mar-91	Dave Lyons
;	Added call to ShowBootInfo when we load (need to add an icon).
;
; === 1.5b15 ===
;
; 10-Apr-91	Dave Lyons
;	¥Tracked down annoying option-space crasher thing.  It was keyboard
;	translation, turning option-space into a "J" with the high bit
;	turned on!  Added routine UntranslateEventKey to turn it back into
;	a blank.
;	¥From trace mode, Space and ESC now kill "awaiting RTx" mode.  Label
;	"Function" is the command interpreter for trace mode.
;	¥Fixed 'n' command so it won't crash if nobody has called DebugSetHook.
;	¥Added routines BeforeDebuggerToolCall and AfterDebuggerToolCall to
;	let tool breaks avoid triggering on calls made indirectly by tool calls
;	the debugger makes.  You can tool-break on NewHandle and GetNextEvent!
;	¥In breakpoint screen, Space maps count 0 to 1, nonzero to zero.  Tab
;	moves between the address and count fields (easier than hitting arrows).
;	¥In memory-protect screen, added Tab to move between columns.
;	¥Added $01/FC00.FFFF to the default memory protect list.
;	¥Changed default trace-window setting to center-screen (moved up 7 lines).
;
; 24-Apr-91	Dave Lyons
;	¥Changed EmulStackValue to $C0 to avoid spontaneous crashing on AppleShare.
;
; 13-May-91	Dave Lyons
;	¥Now we pad to the end of the bank!  Need to adjust offset at end of file
;	all the time, since the assembler doesn't want to do this for me.
;
; === handed out to a few folks at WWDC, minus the 6.0 calls ===
;
; === 1.5b16 ===
;
; 23-May-91	Dave Lyons
;	¥Now does a TLTextMountVol call when a toolbox call is made other than in
;	full 16-bit mode.  Hitting ESC at that dialog cancels future messages until
;	you reboot.
;
; 30-May-91	Dave Lyons
;	¥Changed "A=" to "Addr=" in the 8-bit-registers dialog.
;	¥Tool call in Decimal mode now stops cold at a BRK $F8, instead of
;	eventually causing a confusing crash.
;
; 31-May-91	Dave Lyons
;	¥Fixed one old reference to $010100 to store EmulStackValue instead
;	of hard-coded $80.
;
; 6-Jun-91	Dave Lyons
;	¥Added 5 blanks to end of 'TRACE ' message so it will completely replace
;	the 'SINGLE STEP' message.
;
; === 1.5b17 ===
;
; 12-Jun-91	Dave Lyons
;	¥OSBreaks trigger regardless of call class now.
;	¥Added an SEI in CkToolBrk to prevent false triggers if interrupt
;	routines are making tool calls.
;
; 3-Jul-91	Dave Lyons
;	¥Changed named-resource call names to begin with RM (RMLoadNamedResource, etc).
;
; 7-Jul-91	Dave Lyons
;	¥Procnames show up inline and as operands of JSR/JSL.
;
; === 1.5b18 ===
;
; 1-Aug-91	Dave Lyons
;	¥Versions with 6.0 stuff included are now 1.6; without 6.0 stuff is still 1.5.
;	¥Fixed Loadtemp to not return a bogus error.
;	¥LoadTemp supplies default pathname of */System/System.Setup/GSBug.Templates.
;	¥Templates file auto loads when the debugger is installed.
;	¥Turned off high bits on the GSBug.Setup file pathname.
;
; === 1.5b19 / 1.6b19 ===
;
; 26-Aug-91	Dave Lyons
;	¥The auto-load template file is now GSBug.AutoTemp.  The default for LoadTemp
;	is still GSBug.Templates.
;
; === 1.6b20 ===
;
; 5-Sep-91	Dave Lyons
;	¥Added OS call name SetStdRefNum, $203A.
;	¥Fixed version string not to say "Apple Confidential".
;	¥Fixed up ShowBootInfo version string.
;
; === 1.6b21 ===
;
; 24-Sep-91	Dave Lyons
;	¥Fixed OSBreaks to work correctly when you set more than one break.
;
; === 1.6b22 ===
;
; 21-Nov-91	Dave Lyons
;	¥X out the Bug icon if we don't load, either because of Option or
;	because we see that we're already installed.
;
; === 1.6b23 ===
;
; 11..12-Feb-92	Dave Lyons
;	¥Copyright includes 1992.
;	¥Down-arrow while stepping correctly skips inline GS/OS calls (JSL $E100A8).
;	¥If Quiet mode is on, CapsLock no longer clicks when GSBug intercepts a call
;	 to SystemEvent (preventing any DA from getting the keystroke).
;	¥OSBrk handling preserves the A register (for shells, where the exit status
;	 is in A on a Quit call).
;	¥Stack dump displays "??" for bytes in the $C0xx range, to avoid accidentally
;	 messing with softswitches.
;	¥Added a bunch of shortcut command names:
;	sb/sh/show = showbrks, t-/t+ = tbrkout/tbrkin, o-/o+ = osbrkout/osbrkin,
;	b-/b+ = out/in, stb = settbrk, ctb = clrtbrk, sob = setosbrk, cob = clrosbrk,
;	pfx = prefix.
;	¥ClrTBrk and ClrOSBrk (CTB and COB) clear all breaks if no parameter present.
;	¥Changed breakpoint display to show tool-breaks, os-breaks, regular breaks.
;	¥IN and OUT (and B+ and B-) no longer beep if BPs are already in/out.
;	¥CSAVE defaults to *:System:System.Setup:GSBug.Setup if no path is given.
;	¥SetOSBrk #0 breaks on all OS calls.
;	¥Setting a tool break does a TBrkIn automatically; clearing all TBrks takes
;	 does an automatic TBrkOut.
;	¥Setting an OS break does an OSBrkIn automatically; clearing all OSBrks does
;	 an automatic OSBrkOut.
;
; 17-Feb-92	Dave Lyons
;	¥Changed version to 1.6 release.
;	¥DebugVersion returns $16FF to make version comparisons nice.
;
; 27-Feb-92	Dave Lyons
;	¥Clip TLEN to 2 at Branch, so tracing a symbolic name works even if the
;	screen is off (if it's on, TLEN is getting updated from XLEN??).
;
; === Released as 1.6 for 6.0 ===
;
; 9-Mar-92	Dave Lyons
;	¥Version 1.7d1.  Added tool calls for 6.0.1d2.
;	¥Added E1/200..240 to the default MP list.
;
; 30-Mar-92	Dave Lyons
;	¥Use GetOSEvent instead of GetNextEvent, OSEventAvail instead of EventAvail.
;	Eventually we can kill the CapsLock hack for killing SystemEvent.
;
; 11-Aug-92	Dave Lyons
;	¥Version 1.7d2.
;	¥Fixed long mem display page-crossing bug (was wrapping back to same page).
;
; 20-Aug-92	Dave Lyons
;	¥Version 1.7d3.
;	¥Added some new tool calls to toolnames.aii.
;
; 21-Aug-92	DAL
;	¥Updated template file from Bryan Pietrzak:
;	- updated GS/OS and FST records for System 6.0:
;	- added flags to ChangePathRecGS
;	- added flags and realVolName to FormatRecGS
;	- added levelMode to LevelRecGS
;	- added userID to GetNameRecGS
;	- added resourceNumber and level to RefInfoRecGS
;	- added JudgeNameRecGS
; 	- added characteristics and deviceID to VolumeRecGS
;	- added DefaultPrivilegesRec to AppleShare FST
;	- added DOS 3.3 and Pascal FSTSpecific support: textModeRec
;	Also fixed FileInfoRecGS and cleaned out some old comments.
;
; 21-Sep-92	DAL
;	¥Direct-page value in MEM display is really limited to a one-byte
;	offset now (if you tried hard enough, you could get a 2-byte offset
;	being used while only the low byte was displayed).
;
; 5-Oct-92	DAL
;	¥Version 1.7d4.
;	¥Reverted to GetNextEvent/EventAvail, not GetOSEvent/OSEventAvail.
;	Using the OS versions was a bad idea--can't get into CDA menu, for
;	example.
;
; 28-Oct-92	DAL
;	¥Version 1.7d5.
;	¥Made G like R for MacsBug users who can't remember the difference.
;
; 1-Dec-92	DAL
;	¥Fixed Myhandhg logic to dispose of bank-zero memory even under P8.
;
; 22-Jan-93	DAL
;	¥Version 1.7d6
;	¥Fix REP and SEP to be emulated, so that we can affect the Interrupt
;	bit in the simulated state (see XEQ_REP and XEQ_SEP).
;
; 12-Feb-93	DAL
;	¥Added CompactResourceFile to ToolNames.aii.
;
; 28-Mar-93	JCM
;	¥Version 1.7d7
;	¥Added UseColorTable and RestoreColorTable to ToolNames.aii.
;	¥Added two new commands SRB (Set Request Break) and CRB (Clear Request Break).
;	These commands trap on named or numbered requests as they are sent via
;	SendRequest. There's a new break display available via 'SH2' (please, please
;	tell me a better way) to show the currently set request breaks. To turn on and
;	off request breaking, use 'r+' and 'r-'. 'r' will show up at the top of the
;	display, under the 'BRKs' area, just like other break indicators. Everything
;	works just like Dave described for 1.6d23
;	
;	For now, we don't notice the target of the requests (srb _tellFinderOpenWindow
;	will break on all $8002 request codes, not just those sent to ~Apple~Finder~).
;
; 29-Mar-93	JCM
;	¥Changed CheckSRQBreak to run in 16-bit mode and actually notice if a SendRequest
;	call was being made.
;	¥STB (and it's aliases) now cascade to SOB and then SRB if the given name doesn't
;	match at each handler. This allows you to stick with STB for everything, rather
;	than needing to rememeber to use the others, 'cause Dave and I don't. :-)
;
; 4-Apr-93 	JCM
;	¥Stuck little bits of code all over the place to allow JSR (addr,x) to be run in
;	real time (you can now X over them, just like other jsr's and jsl's).
;
; 11-May-93	JCM
;	¥Added a new selector to DebugGetInfo, $0001, GetOAESCEntry. This returns the
;	address of the code that handles the OA-Option-ESC entry, plus 2 (this accounts
;	for the SEP #$30).
;	¥CTB (and it's aliases) now cascade to COB and then CRB if the given name doesn't
;	match at each handler, just like STB does as of 29-Mar-93.
;	¥Fixed TXS in emulation mode to keep stack within $01xx. It used to copy all of
;	X which resulted in the stack being set to $00xx.
;	¥You can now skip inline names (with down-arrow when stepping) as though they were
;	one large instruction.
;	¥We now call Nifty List to give us tool call prototypes for display on the
;	command line while stepping. If NL doesn't respond the the request, we work
;	just like before.
;	¥X-ing a tool call or JSL with a toolcall break that is inside the real time
;	code now executes correctly, instead of reentrantly crashing GSBug. MPs and
;	JSRs to come.
;
; 12-May-93 	JCM	
;	¥Shift-stepping to trace into glue never worked. It does now, except I simplified
;	it so that you can trace into it with the option key. Much easier to remember.
;
; 13-May-93 	JCM
;	¥Added a new option to the Set (config) screen. You can now turn the display
;	of the Nifty List-provided toolbox prototypes on and off.
;
; 17-May-93 	JCM
;	¥I rearranged all of the Set/Clear/Check/In/Out commands (for tbrks, osbrks, and
;	reqbrks) so that they could be called as subroutines. All of the command handler
;	entry points are still valid, however, there is a new entry point for each that
;	ends in "Core". All this does is allow them to be jsr'ed to, rather than branched
;	to as the #@$!(#$!% GSBug code requires.
;	¥All of the above work is so I could start adding two new cool debugger tool calls
;	which are DebugControl and DebugQuery. This will allow someone to put another
;	type of interface on GSBug. For instance, a neat Nifty List command could allow
;	you to scan the names in a program and set breaks on them, much like MacsBug.
;	There are lots of possibilities.
;	¥I changed the CkxxBrk calls so that they now return carry clear if the requested
;	break was found, and carry set if they don't. All code that calls them has been
;	changed as well.
;
; 25-May-93	JCM
;	¥Implemented two new bits in OS_Public_Flags to indicate if GSBug has been loaded
;	($0002) and if we're currently in GSBug ($0001).
;
; 9-Jun-93	JCM
;	¥Fixed bugs in CkTBrk, CkOSBrk, and CheckSRQBreak that if we had a match
;	on a call, the status reg was restored from the stack before the carry
;	flag was cleared. Since it seems that most of the time it was set before
;	our subs were called, we generally returned with it set, which said we 
;	didn't have a match and weren't to break. Whoopsee.
;	¥DebugQuery still isn't done.
;
; 17-Oct-93	JCM
;	¥Version 1.7d9.
;	¥Fixed DebugQuery stub (still not done) so it builds.
;
**************************************************************************************************


;------------------------------------------
;
; Equates from procedure Debug816
;
;------------------------------------------
ThisIsADA	equ 0
ThisIsBinary	equ 0
*** ThisIsRAM	equ 1	;2=Application version; 1=Init version; 0=ROM version
ThisIsDEV	equ 1	;1=Development version; 0=Non-development version

*
* Error codes from toolset $FF calls
*
debugUnImpErr	equ $FF01
debugBadSelErr	equ $FF02
debugDupBreakErr	equ $FF03	;17-May-93 JCM
debugBreakNotSetErr	equ $FF04	;17-May-93 JCM
debugTableFullErr	equ $FF05	;17-May-93 JCM
debugTableEmptyErr	equ $FF06	;17-May-93 JCM
debugBreaksInErr	equ $FF07	;22-May-93 JCM

*** Added - 25-May-93 JCM - New bits in OS_Public_Flags for GSBug's use.

GSBug_Active	equ $0001	;set to one when the user is in GSBug
GSBug_Installed	equ $0002	;set to one when we sucessfully load

*** End - 25-May-93 JCM


*
* EmulStackValue gets stored at $010100.  Interrupts work from $0100+EmulStackValue down,
* and we can successfully trace code whose stack is greater than this value.
*
EmulStackValue	equ $c0

;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

*** ;	ENTRY da_header
	TITLE 'Cortland Debugger v1.1 -DEBUG816.SRC-'

	STRING ASIS
	BLANKS OFF

	include 'all.macros'

	include 'equates.i'
	include 'SaveRest.macros'

	eject

	IMPORT GetRequestName	;28-Mar-93 JCM
	IMPORT GetRequestNumber	;28-Mar-93 JCM
	IMPORT GetToolName
	IMPORT GetToolNumber
	IMPORT GetDOSName
	import GetDOSNumber		;added 11-Oct-90 DAL
	IMPORT GetHex32
	IMPORT GetDec32
	IMPORT HistEntrySize
	IMPORT SaveHist
	IMPORT Hist
	IMPORT OpenHist
	IMPORT CloseHist
	IMPORT ViewHist


	MSB ON
	LONGA OFF
	LONGI OFF

	Macro
&Lab	LDWORDA &Arg
	lda &Arg+1
	xba
	lda &Arg
	EndM


Debug816	PROC EXPORT

	EXPORT BufLen
	EXPORT InputBuffer
	EXPORT DigitCnt
	EXPORT HistCount
	EXPORT HistStep
	EXPORT DoMult
	EXPORT TLEN
	EXPORT TFMT
	EXPORT TOPC
	EXPORT DOSErr
	EXPORT DOSErr40
	EXPORT DOSErr16
	EXPORT Debug1
	EXPORT ClearDis
	EXPORT ErrCmd
	EXPORT I_OPC
	EXPORT SETBASE
	EXPORT OUTPC
	EXPORT OUTREG
	EXPORT OUTSTACK
	EXPORT OUTOPC
	EXPORT ILINE
	EXPORT GETKEYMOD
	EXPORT HEXTODEC
	EXPORT OUT
	EXPORT SetBase17
	EXPORT OUTHEX
	EXPORT HistRef
	EXPORT GetPath
	EXPORT pathname
	EXPORT DFUP
	EXPORT DFDN
	EXPORT ViewHistFlag
	EXPORT MPScan
	EXPORT MP_H:equ
	EXPORT UpShift
	Export SaveToolVectors
	Export SaveBrkVector

*********************************************************
;
; This is the startup routine for ROM based debugger,
; call misc tool for a new ID and call memory manager
; for a block of 64k memory and also ask for 1k stack/
; direct page.
;
; When quiting from debugger, the ID and required memory
; block are not disposed because it is designed so that
; the debugger can resume debugging the user program.
;
;     Joe Bo          Jan-Feb. 1988
;
; Copyright 1988 Apple Computer, Inc.
;
*********************************************************

START

	If ThisIsRAM = 2 goto .ApplSTART

romstart

	If ThisIsRAM = 1 goto .firstart

	msb on
	DC.B 'ROMTOOLS'
	ds.b 24	;DAL 10-Oct-90 (was separate DC.Bs)

.firstart

firststart
*** added 21-Nov-91 DAL
	jsr ShowTheBugIcon
	jsr CheckForDupDebugger
	bcs @byebye
*** end 21-Nov-91
	sep #$30	;first startup starts here
	longa off
	longi off

	lda >OptionKey	;See if the option key is held down.
	asl A
	bpl InitIt	;Nope, so go init.

; The option key was held down, so we don't want the debugger loaded in.

@byebye	rep #$30
	longa on
	longi on

	jsr XOutTheBugIcon

	If ThisIsRAM <> 1 goto .DontRemove

;
; If this is the init version then we need to get the handle of the program
; and the dispose of it.
;
	pha	;allowing space for result
	pha	;allowing space for result
	pushlong #romstart
	_FindHandle
	_DisposeHandle	;DAL

.DontRemove
	rtl


InitIt	rep #$30
	longa on
	longi on

*** added 15-Oct-90 DAL
	phb
	phk
	plb
	pha
	_MMStartUp
	pla
	sta DebuggerID

	pha
	pha	;space for result

	pea 0
	phb
	pla
	phk	;pushed high word of current address
	per @here	;push low word of here
@here	_FindHandle
	pla
	sta FudgeHandle
	pla
	sta FudgeHandle+2
	plb
***

	ldx #$0008	;save zero page first, 10 bytes
savelp	lda <MyID,x
	pha
	dex
	dex
	bpl savelp
;
; Get new ID
;
	pha	;space for result
	pea $8000	;set to firmware attribute
	_GetNewID	;DAL
	ply	;get the ID returned
	sty <MyID	;store it
	bcc noerror	;no error, just continue
	brl StartupError

noerror	pha	;get max block size available
	pha
	_MaxBlock	;DAL
	pla
	pla

	if ThisIsRAM = 0 goto .MoveROM
;
; Get the handle of our block.
;

	pea $0000	;allowing space for result
	pea $0000	;allowing space for result
	pushlong #romstart
	_FindHandle	;DAL

	plx	;get low word of the handle first
	stx <handlelw
	ply	;get high word of the handle
	sty <handlehg

	bcc DontMove
	brl error2

	if ThisIsRAM <> 0 goto .DontMove

.MoveROM
;
; Call memory manager for a block of 64k
;

	pha	;allowing space for result
	pha	;allowing space for result
	pea $0001	;ask for 64k block (was one byte short! 31-Aug-90 DAL)
	pea $0000
	ldy <MyID
	phy	;get my ID
	pea $c018	;attributes for the block
	pha	;location pointer
	pha	;low word of location pointer
	_NewHandle

	plx	;get low word of new handle first
	stx <handlelw
	ply	;get high word of new handle
	sty <handlehg

	bcc noerror2
	brl error2
;
; Make a copy of specified number of bytes from ROM to the new handle
;
noerror2	pea $00f8	; source = $00f80000 (ROMTOOLS address)
	pea $0000

	phy	;destination get from above
	phx

	pea $0001
	pea $0000
	_PtrToHand	;DAL 31-Aug-90

	bcc @1
	brl error3
@1

.DontMove
DontMove	ldy #$0002	;can't use it if you don't set it!!
	sep #$30	;unitl I figure this out
	longa off
	longi off
	lda [handlelw],y	;get real bank address for us
	phb
	pha
	plb	;in new data bank

; We don't want anybody to call the debugger till we are ready.

	sei

;
; Initialize the variables used in the heartbeat task and start it
; pointing in the right direction
;

	rep #$30
	longa on
	longi on
	lda #$0003
	sta jmp_ptr	;init these to reflect we've
	lda #$0004	;already put one level on the queue
	sta que_ptr
; Could be...
	lda >CDAVector+2
	sta CDA+2
	sta queue+1
	lda >CDAVector+1
	sta CDA+1
	sta queue

	jsr SaveBrkVector

	lda #<BRKSTART	;set the break vector
	sta >BRKV

	jsr SaveToolVectors

	jsr InstallMyNP	;23-Oct-90 DAL

	plb	;restore bank address

	lda [handlelw],y	;get high word of master pointer
	sep #$30
	longa off
	longi off
	phb
	pha
	plb	;temp set data bank for us to save
	sta >DebugB	;save for resuming usage
	sta >CDAVector+3
	sta >BRKV+2
	sta >$E10003
	sta >$E10007

	sta Create_parm+2	; Init the parameter lists to point
	sta Open_parm+4	;  to the right bank.
	sta Read_parm+4
	sta Write_parm+4
	sta Prefix_parm+4
	sta LastTemp+2
	sta FirstHand+2

	rep #$30
	longa on
	longi on

	lda [handlelw]	;get low word
	clc
	adc #newstart-romstart
	pea In_Vector
	pla	;start up properly pointing
	sta >CDAVector+1
	plb	;restore their data bank

	brl done

; Various routine that are used more than once that restore vectors and such
RestoreCDAVector
	php
	rep #$20
	longa on
	lda CDA+2
	sta >CDAVector+2
	lda CDA+1
	sta >CDAVector+1
	plp
	rts

RestoreBRKVector
	php
	rep #$20
	longa on
	lda BRKVector	; Restore the break vector.
	sta >BRKV
	lda BRKVector+1
	sta >BRKV+1
	plp
	rts


RestoreToolVectors	php
	rep #$20
	longa on
	lda ToolVector	; Restore the tool vector
	sta >$E10001
	lda ToolVector+1
	sta >$E10002
	lda OldGlueToolCall+1
	sta >$E10005
	lda OldGlueToolCall+2
	sta >$E10006

	lda CallClass0
	sta >$E100A8
	lda CallClass0+2
	sta >$E100AA

	lda CallClass1
	sta >$E100B0
	lda CallClass1+2
	sta >$E100B2

	plp
	rts


SaveToolVectors	php
	rep #$20
	longa On
	lda >$E10001	; Save the old tool vector
	sta ToolVector
	lda >$E10002
	sta ToolVector+1
	lda >$E10005
	sta OldGlueToolCall+1
	lda >$E10006
	sta OldGlueToolCall+2

; Now set the new values
	lda #<ToolTrap	; Set the tool vector.
	sta >$E10001
	lda #>ToolTrap
	sta >$E10002

	lda #<GlueToolTrap
	sta >$E10005
	lda #>GlueToolTrap
	sta >$E10006

	plp

*** fall into SaveOSVectors (separated 23-Oct-90 DAL so the notify proc can call it)

SaveOSVectors	php
	rep #$20

	lda >$E100A8
	sta CallClass0
	lda >$E100AA
	sta CallClass0+2

	lda >$E100B0
	sta CallClass1
	lda >$E100B2
	sta CallClass1+2

	lda #<OSBrkClass0
	sta >$E100A9
	lda #>OSBrkClass0
	sta >$E100AA

	lda #<OSBrkClass1
	sta >$E100B1
	lda #>OSBrkClass1
	sta >$E100B2

	plp
	rts
*
* InstallMyNP -- install a notify proc so we can re-install the
* OS breaks on return from P8
*
* New routine 23-Oct-90 DAL
*
InstallMyNP	php
	rep #$30
	pushlong #MyNPParms
	pea $2034	;_AddNotifyProc
	jsl $e100b0
	plp
	rts

MyNPParms	dc.w 1
	dc.l MyNotifyProc

MyNotifyProc	dc.l 0	;reserved
	dc.w 0	;reserved
	dc.w $A55A
	dc.l $00000004	;P8-->GS/OS switch only
EventCode	dc.l 0
ProcEntry	phb	;added 10-Dec-90 DAL
	phk	;added 10-Dec-90 DAL
	plb	;added 10-Dec-90 DAL
	jsr SaveOSVectors
	plb	;added 10-Dec-90 DAL
	rtl

*
* SaveBRKVector
*
SaveBRKVector	php
	rep #$20
	longa on
	lda >BRKV
	sta BRKVector
	lda >BRKV+1
	sta BRKVector+1
	plp
	rts



**************************************************************************************************
*
* CheckForDupDebugger
*
* Output: SEC if a copy of us is already installed
*
**************************************************************************************************
	longa on
	longi on
CheckForDupDebugger	phd
	pushlong $E10048+1
	tsc
	tcd

	lda [1]
	and #$00ff
	cmp #$004c
	bne @noProblem
	ldy #1
	lda [1],y
	sta 1
	lda [1]
	cmp #$30E2	;SEP #$30
	bne @noProblem
	ldy #2
	lda [1],y
	cmp #$25AD	;LDA $xx25 ($C025)
	bne @noProblem

@dup	sec
	bra @exit
@noProblem	clc
@exit	ply
	ply
	pld
	rts

**************************************************************************************************
*
* ShowTheBugIcon -- use ShowBootInfo to display a cute little Bug icon (System 6.0 and later)
*
**************************************************************************************************
ShowTheBugIcon	pushlong #bootString
	pushlong #bootIcon
showBootInfo	jsr BeforeDebuggerToolCall
	ldx #$3c03
	jsl $e10000
;	_ShowBootInfo
	jsr AfterDebuggerToolCall
	bcc @ok
	cmp #$0010
	bcs @ok
	pla
	pla
	pla
	pla	;threw out input parameters (call wasn't there)
@ok	rts

**************************************************************************************************
*
* XOutTheBugIcon -- use ShowBootInfo to display an X on top of the bug icon, showing that we
*                   did not load (System 6.0 and later)
*
**************************************************************************************************
XOutTheBugIcon	pha
	pha
	pea $8001	;rIcon
	pushlong #$07FF0058
	_LoadResource	;from Sys.Resources
	plx
	pla
	bcs @noX
	phd
	pha
	phx
	tsc
	tcd
	ldy #2
	lda [1],y
	ora #$8000	;set bit 31 to overlay icon
	tax
	lda [1]
	ply
	ply
	pld

	pushlong #0	;no string
	phx
	pha	;icon ptr
	bra showBootInfo
@noX	rts

bootIcon	dc.w $8000	;iconType
	dc.w 280	;icon size
	dc.w 20,28	;height and width
	dc.b $FF,$FF,$FF,$FF,$F0,$00,$FF,$F0,$00,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$F0,$0F,$FF,$0F,$0F,$FF,$00,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$0F,$FF,$F0,$00,$00,$FF,$FF,$0F,$FF,$FF,$FF
	dc.b $FF,$FF,$F0,$FF,$FF,$F0,$CF,$30,$FF,$FF,$F0,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$F0,$FF,$F0,$FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$00,$0F,$FF,$FF,$FF,$00,$0F,$FF,$FF,$FF,$00,$0F,$FF
	dc.b $FF,$FF,$00,$0F,$FF,$F0,$44,$40,$FF,$FF,$00,$0F,$FF,$FF
	dc.b $FF,$FF,$FF,$00,$00,$04,$44,$44,$00,$00,$0F,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$F0,$FF,$FF,$FF,$F0,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$00,$FF,$FF,$FF,$F0,$0F,$FF,$00,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$04,$44,$44,$44,$44,$0F,$F0,$0F,$FF,$FF
	dc.b $FF,$FF,$F0,$00,$04,$44,$44,$44,$44,$00,$00,$FF,$FF,$FF
	dc.b $FF,$FF,$00,$FF,$04,$44,$44,$44,$44,$0F,$FF,$FF,$FF,$FF
	dc.b $FF,$F0,$0F,$FF,$00,$FF,$FF,$FF,$F0,$0F,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$F0,$FF,$FF,$FF,$F0,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$00,$04,$44,$44,$00,$0F,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$F0,$0F,$F0,$44,$40,$FF,$00,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$00,$FF,$FF,$00,$0F,$FF,$F0,$0F,$FF,$FF,$FF
	dc.b $FF,$FF,$F0,$0F,$FF,$FF,$FF,$FF,$FF,$FF,$00,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$0F,$FF,$FF
* icon mask
	dc.b $00,$00,$00,$00,$0F,$FF,$00,$0F,$FF,$00,$00,$00,$00,$00
	dc.b $00,$00,$00,$0F,$F0,$00,$F0,$F0,$00,$FF,$00,$00,$00,$00
	dc.b $00,$00,$00,$F0,$00,$0F,$FF,$FF,$00,$00,$F0,$00,$00,$00
	dc.b $00,$00,$0F,$00,$00,$0F,$FF,$FF,$00,$00,$0F,$00,$00,$00
	dc.b $00,$00,$00,$00,$00,$0F,$FF,$FF,$00,$00,$00,$00,$00,$00
	dc.b $00,$FF,$F0,$00,$00,$00,$FF,$F0,$00,$00,$00,$FF,$F0,$00
	dc.b $00,$00,$FF,$F0,$00,$0F,$FF,$FF,$00,$00,$FF,$F0,$00,$00
	dc.b $00,$00,$00,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$00,$00,$00
	dc.b $00,$00,$00,$00,$0F,$FF,$FF,$FF,$FF,$00,$00,$00,$00,$00
	dc.b $00,$00,$00,$00,$FF,$FF,$FF,$FF,$FF,$F0,$00,$FF,$00,$00
	dc.b $00,$00,$00,$00,$FF,$FF,$FF,$FF,$FF,$F0,$0F,$F0,$00,$00
	dc.b $00,$00,$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$00,$00,$00
	dc.b $00,$00,$FF,$00,$FF,$FF,$FF,$FF,$FF,$F0,$00,$00,$00,$00
	dc.b $00,$0F,$F0,$00,$FF,$FF,$FF,$FF,$FF,$F0,$00,$00,$00,$00
	dc.b $00,$00,$00,$00,$0F,$FF,$FF,$FF,$FF,$00,$00,$00,$00,$00
	dc.b $00,$00,$00,$00,$FF,$FF,$FF,$FF,$FF,$F0,$00,$00,$00,$00
	dc.b $00,$00,$00,$0F,$F0,$0F,$FF,$FF,$00,$FF,$00,$00,$00,$00
	dc.b $00,$00,$00,$FF,$00,$00,$FF,$F0,$00,$0F,$F0,$00,$00,$00
	dc.b $00,$00,$0F,$F0,$00,$00,$00,$00,$00,$00,$FF,$00,$00,$00
	dc.b $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0F,$F0,$00,$00

**************************************************************************************************
*
* GetGSBugDirectPage - Call Memory Manager for 1K stack/direct page in bank zero since we do not
*	   have one. When we exit, the direct page is still set as it was on entry.
*	   The new DP pointer is available in xDEBUG_D if there was no error.
*

GetGSBugDirectPage

OldDP	equ $5
TempGSBugDPHand	equ $1

	phd

	pha
	pha

	tsc
	tcd

	jsr BeforeDebuggerToolCall

	pha
	pha	;was PEA, DAL 10-Oct-90
	pea $0000	;high part of block size
	pea $0400	;low part of block size, 1k
***	ldy MyIDBuf	;get my ID
***	phy
	pha	;** 23-Oct-90 DAL
	_MMStartUp	;** (use our real ID, not $80xx)
	pea $C015	;locked/fixed/page aligned/no cross bank/fixed bank
	lda #0000
	pha
	pha
	_NewHandle	;DAL
	plx	;get low word of new handle
	stx <TempGSBugDPHand ;store it
	stx GSBugDPHand	;store it in my area too
	plx	;get high word of new handle
	stx <TempGSBugDPHand+2 ;store it
	stx GSBugDPHand+2	;store for me later

	jsr AfterDebuggerToolCall
	bcc @P16_in

@checkP8	lda >PFlag	;if 00 then P8
	and #$00FF
	beq @Is_P8

@error	sec	;a real memory alloc problem

@exit	pla
	pla
	
	pld

	rts

@Is_P8	
;	lda #$0000	;set direct page to 0000
	lda #$6000	;29-Aug-90 DAL *** Try using the 1K at $6000 under ProDOS 8

	bra @P8_in

@P16_in	lda [TempGSBugDPHand] ;get low word of pointer to bank00
@P8_in	sta xDEBUG_D	;save debugger direct page
	clc
	adc #$100	;give user some $100 below mine
	sta DT
	clc	;prepare to adjust debugger stack
	adc #$1F9	;one page for user stack and set to top
	sta ST	;store as user stack
	adc #$106	;another page for debugger stack
	sta xDEBUG_S	;Store as debugger stack

	clc

	bra @exit

**************************************************************************************************
*
* DisposeGSBugDirectPage - 
*

DisposeGSBugDirectPage

	lda GSBugDPHand+2	;mother may I give it back?
	pha	;dispose the block that we got during entry
	lda GSBugDPHand
	pha
	jsr BeforeDebuggerToolCall
	_DisposeHandle	;DAL
	jsr AfterDebuggerToolCall
*** added 1-Dec-92 DAL
	stz GSBugDPHand+2
	stz GSBugDPHand
*** end 1-Dec-92

	rts

**************************************************************************************************

error3
; NOTE: error 3 always entered in 16 bit <A> mode here!
	rep #$30
	longa On

	jsr RestoreCDAVector
	jsr RestoreBRKVector
	jsr RestoreToolVectors

	cli


error2
	lda <MyID
	pha
	_DeleteID	;DAL

	ldx #$0000	;restore zero page stuffs
getback	pla
	sta <MyID,x
	inx
	inx
	cpx #$000a
	bne getback

error1
	If ThisIsRAM <> 1 goto .DontRemove2

;
; If this is the init version then we need to get the handle of the program
; and the dispose of it.
;

	pea $0000	;allowing space for result
	pea $0000	;allowing space for result
	pushlong #romstart
	_FindHandle
	_DisposeHandle	;DAL (macrofied)

.DontRemove2

	rtl	;back to desk accessory installment routine

done

;
; install the ROM based desk accessory
;
	sep #$30
	longa off
	longi off
	phb
	phd

	lda >DebugB
	pha
	plb

	rep #$30
	longa on
	longi on

	ldx #$0008	;point to last word
savemy	lda <MyID,x	;store MyID, handle to my buffer area
	sta MyIDBuf,x	;save to my area
	dex
	dex
	bpl savemy



	IF ThisISRAM = 0 goto .no_default

	sep #$30
	longa off
	longi off

	jsr LoadDefault	; Load the default configuration.

;;;	sta >$777777	
	jsr LoadTempSubr	;23-Oct-90 DAL
.no_default

	rep #$30
	longa on
	longi on

;
; Before exiting, need to start heart beat task
;
	lda >DebugB	;upper part of my bank]
	and #$00FF	;mask off top part
	pha
	pea My_Task
	_SetHeartBeat	;install heart beat task every 10 VBLs
	bcc @1
	brl error3
@1
	pea $0002	;enable VBL interrupts
	_IntSource	;DAL
	bcc @2
	brl error3
@2

;
; Restore bank0/zero page, still in stack space
;
	plb	;restore desk accessory data bank
	pld	;restore its direct register also

	ldx #$0000
restoreLp	pla	;restore bank0/zero page stuffs
	sta >MyID,x	;absolute long, already in my bank
	inx
	inx
	cpx #$000a
	bne restorelp

*** Added - 25-May-93 JCM - New public flag to indicate that GSBug has been loaded.

	lda >OS_Public_Flags
	ora #GSBug_Installed
	sta >OS_Public_Flags

*** End - 25-May-93 JCM

	cli

	rtl

*	;
*	; desk accessory handle and header
*	;
*	cda_handle	DC.L da_header	;handle to ROM based cda
*		EXPORT da_header
*	da_header	DC.B $0c	;length of cda name
*		DC.B 'ROM Debugger'
*		DC.L da_start	;pointer to start of cda code
*		DC.L da_shutdn	;pointer to cda shut down code
*
*	da_shutdn	rtl
*

newstart	sep #$30
	longa off
	longi off


	lda OptionKey	;see if it is me
	asl A
	bmi da_start

	jmp CDA	;not me go to DAs two jumps


BRKSTART	phk	;a and I are short here
	phb
	plx	;save orig b in x -- don't mess up stack pointer
	plb

	bit BRK_STATE	; Are user breaks set?
	bpl @BRKSTART1	; Nope.

	phx	; Yes, so restore the bank.
	plb
	sec
	rtl	; And return.


@BRKStart1
;
; This routine will handle the 'fake' real time break countdown
; It will decrement a counter and then back out on zero.  I hope this works.
;
	pha	; save <A> on the stack
	jsr testRTBreak	; see if the real time break time is up
	bcs @BRKStart12	; carry set means do it!
	pla
	clc	; yes we handled the interupt
	RTL	; now return to our regularly scheduled prog
@BRKStart12	pla	; recover <A>

BRKSTART2	lda #$80
	sta tempEntryFlag
;
; 4/3/90	Mensch
; Fixed bug in BRK vector, the IRQ_ACTIVE flag was not being incremented here
; it is crucial that this happen since it is decremented when we are done
;
	lda >IRQ_ACTIVE
	inc a
	STA >IRQ_ACTIVE

	bra da_start2


*** "DA" means we got here through the Apple-Ctrl-ESC vector (DAL 7-Sep-90)

da_start	phk	;a and I are short here
	phb
	plx	;save orig b in x -- don't mess up stack pointer
	plb

	stz tempEntryFlag

	lda Debug_on
	beq da_start2

	bit InMON	; Are we in the monitor?
	bpl NotInMON
	brl RETURNPOINT

NotInMON	bit InRT	; Are we in real time?
	bpl da_start2	; Definitely not.

; We probably are, but we might not be.  We could be in code executed after we set
; the flag, but before we jump to the code.  We could check the address at which
; we were executing at the time of the interupt, but this would not be foolproof
; because we could be in an interupt routine.  We'll just assume that we are not
; in the debugger at the time; if we are, it's really no big deal, we might just
; confuse the user a little.

	brl IntEntry

da_start2
;
; 9/11/89 Mensch
; Add code here to handle tool breaks
;
; NOTE: It's a little rough because I had to recreate it from a
; logic analyzer trace so ... tough!
;
	lda >tBrkActive	; get our active flag
	bpl @NotaToolBrk
	lda >tBrkAddress	; now store our address in the proper places
	sta <PCL	; YEA! I found them!***
	sta >irq_PC	; (the proper places that is@!)
	lda >tBrkAddress+1
	sta <PCH	; Some day I will have to figure this out...
	sta >irq_PC+1
	lda >tBrkAddress+2
	sta <PCK
	sta >irq_PCK
	lda #$00
	sta >tBrkActive
;
; End this funky code.

@NotAToolBrk

	lda #$80
	sta TextMode


	rep #$20
	longa on

	pla	; Get the return address, increment it
	ply	;  it by one, and store it to the return
	inc a	;  jump.
	sta DoRtl+1
;	bne SaveRtlK
;	inx
SaveRtlK	sty DoRtl+3

	rep #$30
	longa on
	longi on

	tsc
	sta start_s	;lets see what it looks like here

	tdc
	sta start_d	;save d

	sep #$30
	longa off
	longi off
	php	;need to save to return to application
	pla
	sta start_p	;save p
	stx start_b	;save b

	lda Debug_on	;check if we have been here before
	beq Loaded_no	;if branch then we are not already loaded

	rep #$30	;Need long A to restore direct page reg.
	longa on
	longi on
	lda start_d	;Get the saved direct page
	tcd	; and restore it.
	sep #$30	;Turn long A and I off.
	longa off
	longi off

	lda start_p	;Get saved p.
	pha

	lda start_b	;Get saved b.
	pha
	plb	;Restore saved b.

	plp	;Restore saved p.

	clc	;say interrupt being handled

	brl DoRtl
Loaded_no	lda #$ff
	sta Debug_on	;set flag for next time

*** Added - 25-May-93 JCM - New public flag to indicate that we're currently "in" GSBug.

	lda >OS_Public_Flags
	ora #GSBug_Active
	sta >OS_Public_Flags

*** End - 25-May-93 JCM

	lda tempEntryFlag	; Set the entry flag.
	sta EntryFlag

	rep #$30
	longa on
	longi on
***********
* this stuff saves some of zero page again
* so that I can do indirect addressing to get
* the pointers back off the stack
************

	ldx #$0008	;save zero page first, 10 bytes
save_2	lda <MyID,x
	pha
	dex
	dex
	bpl save_2

	jsr GetGSBugDirectPage ;23-May-93 JCM
	bcc gotDP

StartupError	ldx #$0000	;clean up stack so can quit
@err_rst	pla	;don't need to save anything
	inx
	inx
	cpx #$000a
	bne @err_rst

	rep #30	;Need long A to restore direct page reg.
	longa on
	longi on
	lda start_d	;Get the saved direct page
	tcd	; and restore it.
	sep #$30	;Turn long A and I off.
	longa off
	longi off

	lda start_p	;Get saved p.
	pha

	lda start_b	;Get saved b.
	pha
	plb	;Restore saved b.

	plp	;Restore saved p.

	clc	;tell them interrupt was handled
	jmp Quit	;not P8 so go home

	longa on
	longi on

gotDP	lda xDEBUG_D	;switch in the new debugger direct page
	tcd

	ldx #$0000
restore_2	pla	;restore bank0/zero page stuffs
	sta >MyID,x	;absolute long, already in my bank
	inx
	inx
	cpx #$000a
	bne restore_2

*
* This routine saves all of the input parametres on the stack
* to restore when I am finished -- note that the stack on entry stack is
* used so as to not confuse the debugger and bomb us on exit
*

sv_input	jsr BeforeDebuggerToolCall

	pha	;space for input globals
	pha
	_GetInGlobals

	pha	;space for output globals
	pha
	_GetOutGlobals

	pha	;space for input drives type
	pha	;space for input driver slot
	pha
	_GetInputDevice

	pha	;space for output driver type
	pha	;space for output driver slot
	pha
	_GetOutputDevice

	ldx #0	;Save the state which was pushed onto the
SvInpLp	pla	; stack by the four calls above.
	sta SavedInput,x
	inx
	inx
	cpx #20
	blt SvInpLp


	lda >MNEMSTKPTR	;save it for exit
***	sta temp_stack
	tsc	;need this stuff in either case
	sta StackOnEntry

	sep #$30
	longa off
	longi off
	lda #EmulStackValue	;31-Aug-90 DAL *** keep interrupts from frying the stack!
	sta >MNEMSTKPTR



	rep #$30
	longa on
	longi on

	lda >DebugB	;upper part of my bank
	and #$00FF	;mask off top part
	pha
	pea My_Task
	_SetHeartBeat	;install heart beat task every 10 VBL's
	bcs start_H	;if already in just restart VBL's and go

	stz que_ptr
	stz jmp_ptr	;initialize my queue -- someone flushed me out


start_H	pea $0002	;enable VBL interrupts
	_IntSource	;DAL

	jsr AfterDebuggerToolCall

	lda xDebug_S
	tcs
	lda xDebug_D	;set up my direct page area
	tcd
	jsr sv_int	;save interrupt variables in bank E1

**********************************************************************
*
* This call should replace a lot
* of what follows.  It saves the TEXT state
* and all of the associated soft switches and forces
* the text screen on regardless of the state
*
**********************************************************************

	pha
	pha
	jsr BeforeDebuggerToolCall
	_SaveTextState
	jsr AfterDebuggerToolCall

	pla
	sta lw_st
	pla
	sta hgh_st	;save handle for exit


	IF ThisISRAM < 2 goto .start_debug
*** ;	IF ThisISRAM <>0 goto .start_debug

;
; This is the RAM version of the code for testing purposes
;
.ApplSTART
	rep #$30
	longa on
	longi on

	phk
	plb
	tdc
	sta xDEBUG_D	;use what ProDOS 16 gives us
	clc
	adc #$100	;give user some ($100 below mine)
	sta DT	;user stack pointer
	tsc	;use what ProDOS 16 gives us as stack
	sta xDEBUG_S
	sec	;give user some $100 above mine
	sbc #$100
	sta ST	;user stack pointer

	pha	;was PEA 0 10-Oct-90 DAL
	pea $1000
	jsr BeforeDebuggerToolCall
	_GetNewID
	jsr AfterDebuggerToolCall
	pla
	sta MyIDBuf

	sep #$30
	longa off
	longi off

	jsr LoadDefault	; Load the default configuration.

	jsr SaveToolVectors

	phk
	pla
	sta >$E10003
	sta >$E10007

	lda >CDAVector+3	;store real vector in case we need it
	sta CDA+3	;E1/00048 has jump (vector)
	lda >CDAVector+2	;should get low word
	sta CDA+2
	lda >CDAVector+1
	sta CDA+1

	lda #<ApplOAEntry
	sta >CDAVector+1
	lda #>ApplOAEntry
	sta >CDAVector+2
	phk
	pla
	sta >CDAVector+3

	rep #$30
	longa on
	longi on



*******************************************************
;
;  Actual DEBUG816 codes starts here:
;  (on entry: B=us, full native, S not in DEBUG_S)
;
*******************************************************

.start_debug
start_debug
	cli
	lda #MONZ
	sta >MONRST

	sep #$30
	LONGA OFF
	LONGI OFF

; NOTE Code here used to zero BPand MP arrays and all the mem cells, it don't do that
; no more...

	lda #>MONZ
	eor #$A5
	sta >MONRST+2

	lda >BRKV
	cmp #<BREAK
	bne SETbrk
	lda >BRKV+1
	cmp #>BREAK
	bne SETbrk
	phk	; want to check current bank.
	pla
	cmp >BRKV+2
	beq SETcya	;already set
SETbrk	lda >BRKV
	sta U_BREAK
	lda >BRKV+1
	sta U_BREAK+1
	lda >BRKV+2
	sta U_BREAK+2
	lda #<BREAK
	sta >BRKV
	lda #>BREAK
	sta >BRKV+1

	phk	;want current bank and not ROM
	pla	;bank stored in break vector
	sta >BRKV+2


SETcya	lda >CYA
	asl a
	php
	lda >SHADOW
	asl a
	plp
	ror a
	sta QT
	and #1
	sta shadowT	;initial text shadow
	lda >SHADOW
	and #$5E
	ora #1
	sta >SHADOW	;disable text shadowing

	lda >MSTATE
	sta MT
	lda >ALTCHR
	sta CT
	sta >SETALTCHR
	lda >CYA
	ora #$80
	sta >CYA	;fast

	jsr SWAP
	jsr NEWTEXT

	lda SR	; Save the pointers to the stack and
	sta NewSR	;  the direct page that we allocated
	lda SR+1	;  for the user.
	sta NewSR+1
	lda DR
	sta NewDR
	lda DR+1
	sta NewDR+1

	IF ThisISRAM <> 2 goto .XYZZY

	brl DoUpdate

.XYZZY

	bit EntryFlag
	bpl SetIRQ
	bvs ToolBrkEntry
	brl DoEntryBrk
ToolBrkEntry	brl DoUpdate

; Set the registers from the saved irq values.  The stack pointer and PC will be
; set as if the interupt never occurred and we just halted on the instruction in
; which it occured.

ApplOAEntry	sep #$30
	longa off
	longi off
	
	lda OptionKey	;see if it is me
	asl A
	bmi ApplOAEntry2

	jmp CDA	;not me go to DA's two jumps

ApplOAEntry2	phb
	phk
	plb

	lda InRT
	bmi ApplOAEntry3
	lda InMon
	bmi ApplOAEntry3
	plb
	jmp CDA


ApplOAEntry3	pla

	stz InRT
	stz InMon

	rep #$30
	longa on
	longi on

	lda xDebug_S
	tcs
	lda xDebug_D	;set up my direct page area
	tcd

	sep #$30
	longa off
	longi off

	jsr sv_int	;save interrupt variables in bank E1

	sep #$30
	longa off
	longi off

	cli

	jsr ON
	jsr NEWTEXT

SetIRQ	lda int_s
	sta T1
	lda int_s+1
	sta T2
	stz T3

	ldy #1
	lda [T1],y
	sta PR
	sta user_p

	lda int_B
	sta BR
	lda int_e
	ror a
	lda #0
	ror a
	sta eR
	bit er	; If we were in emulation mode, set PCK
	bmi ClearPCK	;  to zero.
	ldy #4	; Otherwise, get it from the stack.
	lda [T1],y
	sta PCK
	sta user_PCK
	bra DonePCK
ClearPCK	stz PCK
	stz user_PCK
DonePCK	lda >MSTATE
	sta TempX
	lda int_M
	sta MR
	sta >MSTATE
	lda >ALTCHR
	sta CR
	lda int_CYA
	asl a
	php
	lda int_SHADOW
	asl a
	plp
	ror a
	sta QR
	and #1
	sta shadowT

	lda eR	; Put the inverse of the emulation bit into
	eor #$80	;  the carry.
	asl a
	lda int_S+1
	tax
	lda int_S
	adc #3	; Adds 3 if e=1 and 4 if e = 0.
	sta SR
	bcc SetIRQ2
	bit eR
	bmi SetIRQ2
	inx
SetIRQ2	stx SR+1

	rep #$20
	LONGA ON
	lda int_A
	sta AR
	lda int_X
	sta XR
	lda int_Y
	sta YR
	lda int_D
	sta DR
	ldy #2	; Get the pc from the stack.
	lda [T1],y
	sta PCL
	sta user_PCL

	sep #$20
	LONGA OFF

	brl DoUpdate

; Set the registers from the saved irq values.

DoEntryBrk	lda int_P
	sta PR	;setup user registers
	sta user_p
	lda int_B
	sta BR
	lda int_e
	ror a
	lda #0
	ror a
	sta eR
	lda int_PCK
	sta PCK
	sta user_PCK
	lda >MSTATE
	sta TempX
	lda int_M
	sta MR
	sta >MSTATE
	lda >ALTCHR
	sta CR
	lda int_CYA
	asl a
	php
	lda int_SHADOW
	asl a
	plp
	ror a
	sta QR
	and #1
	sta shadowT

	lda eR	; Put the inverse of the emulation bit into
	eor #$80	;  the carry.
	asl a
	lda int_S+1
	tax
	lda int_S
	adc #3	; Adds 3 if e=1 and 4 if e = 0.
	sta SR
	bcc DoEntryBrk3
	bit eR
	bmi DoEntryBrk3
	inx
DoEntryBrk3	stx SR+1

	rep #$20
	LONGA ON
	lda int_A
	sta AR
	lda int_X
	sta XR
	lda int_Y
	sta YR
	lda int_D
	sta DR
	lda int_PC
	sta user_PCL
	sec
	sbc #2
	sta PCL

	sep #$30
	LONGA OFF
	LONGI OFF

	jsr BELL

.DoUpdate
DoUpdate	jsr UPDATE

	jsr SaveEnv	;save the initial environment

Version	jsr SayVersion
	brl Direct

DEBUGS	jsr SWAP
Debug	jsr NEWTEXT	;init screen
Debug1	jsr UPDATE	;subscreen output
Debug2	brl INPUT	;command line input

Debug3	ldx BufLen
	beq Debug2

;	bit DUMPMODE
;	bmi PARSER	;dumpmode: no parsing

	lda #<Commands
	sta T1
	lda #>Commands
	sta T2
NextCMD	ldy #0
	lda (T1),y
	beq Parser	;end of cmd list
	sta T3
	bit T3	;set overflow(v) if no UpShift
	and #$0F
	sta T3	;strip to cmd len
TryCMD	iny
	cpy T3
	beq GotCMD
	lda InputBuffer-1,y
	bvs @noUp	;no UpShift
	jsr UpShift
@noUp	cmp (T1),y
	beq TryCMD
	clc
	lda T1
	adc #2	;past command address
	bcc @1	;was *+4 11-Oct-90 DAL
	inc T2
@1	clc
	adc T3
	sta T1
	bcc NextCMD
	inc T2
	bra NextCMD

GotCMD	iny
	lda (T1),y
	pha	;command address H
	dey
	lda (T1),y
	pha	;address L
	dey
	sty inputBufIndexAfterCmd ;29-Mar-93 JCM - allows multiple commands to check input
	jsr FixMode
	rts	;branch to command code

*******************************************************
;
;  Parse user command (IN)
;
;  The command is parsed starting at the rightmost
;  equal sign that is not the last character on the
;  line.  This is done so that the result of a previous
;  calculation can be used as the address for the next
;  command without having to retype the result.
;
*******************************************************

Parser	jsr SetBase17	;set BASE to last line

	ldy #0
	bit ExprFlag
	bpl Parse0

	ldy BufLen	;Scan for the previous '=' and
@findStart	dey	; use the next character as the
	beq Parse0	; start of the command.
	lda InputBuffer-1,y
	cmp #'='
	bne @findStart

Parse0	phy	;Save first position.
	ldy BufLen
	lda InputBuffer-1,y	;check last character
	ply	;Restore last position.
	cmp #'='	;Evaluate an expression.
	bne PARSE0_1
	brl GetExpr

PARSE0_1

***	lda InputBuffer,y	;examine first character

	lda InputBuffer+1,y	;added check 10-Oct-90 DAL
	cmp #' '	; DAL
	bne @notPrint	; DAL
	lda InputBuffer,Y
	jsr UpShift
	cmp #'P'
	beq PRINTinit
@notPrint

	cmp #'$'
	bne @notDollar
	iny	;none of the above, so
@notDollar	jsr GetHex	;hex value should be present
	bcs DUMPhelp	;err if none found

	lda InputBuffer,y	;check chars following

	cmp #'.'	; Check for a range of memory.
	bne PARSE0_2
	brl RangeDump

PARSE0_2	cmp #':'
	beq goFILL	;memory reference

;	bit DUMPMODE
;	bmi ErrCmd

	jsr UpShift
	cmp #'T'
	bne PARSE1
	jsr FixMode
	brl TRACENEW

PARSE1	cmp #'S'
	bne PARSE2
	jsr FixMode
	brl STEPNEW

PARSE2	cmp #'X'
	bne PARSE3
	jsr FixMode
	brl GONEW

PARSE3	cmp #'J'
*** removed special case for 'G' 28-Oct-92 DAL
	bne PARSE4
;;;	beq @1
;;;	cmp #'G'
;;;	bne PARSE4
;;;@1
*** end 28-Oct-92

	jsr FixMode
	brl JMPNEW

PARSE4	cmp #'L'
VEC	bne PARSE5
	jsr FixMode
	brl LSTNEW

PARSE5	cpy BufLen	; If there are no more characters, they must
	bge QUICKDUMP	;  want a quick dump.

ErrCmd	jsr BELL
	jsr SetBase17
	brl INPUTA

PRINTinit	jsr PrintCmd
goINPUT	brl INPUT

DUMPhelp	bit DUMPMODE
	bpl ErrCmd
	lda InputBuffer
	cmp #'?'
	bne ErrCmd
	jsr HELPOUTdmp
	bcs goINPUT
	brl OUTDUMP0

; Do either an absolute or a indirect memory reference.

goFILL	brl FILL	; Go do the dump.

; Go back into normal display mode.

FixMode	lda AL
	pha
	lda AH
	pha
	lda AB
	pha
	phy
	lda DUMPMODE
	ora TemplMode
	bpl @done	;weren't in DUMP mode
	jsr ON
	jsr NEWTEXT
	jsr RESTOREdis
	jsr UPDATE
	jsr SetBase17
@done	ply
	pla
	sta AB
	pla
	sta AH
	pla
	sta AL
	rts

*******************************************************
*
*  QUICKDUMP
*
*  Output the 16 bytes starting at the address in
*  AL/AH/AB on the command line at the bottom of the
*  screen.
*
*******************************************************

QUICKDUMP	jsr FixMode
QuickerDump	stz LEFT	; Clear the command line.
	lda #$4F
	sta RIGHT
	jsr CLINE
	ldy #0

	lda AB	; Output the entire address of the dump folowed by
	jsr HEXtoIN	;  a colon.
	lda #'/'
	sta InputBuffer,y
	iny
	lda AH
	jsr HEXtoIN
	lda AL
	jsr HEXtoIN
	lda #':'
	sta InputBuffer,y
	iny
	iny

	lda AL	; Modify the address to read from.
	sta QUICKDUMP1+1
	lda AH
	sta QUICKDUMP1+2
	lda AB
	sta QUICKDUMP1+3

	phy
	jsr swap	; Swap out the direct page.
	ply

	ldx #16	; Dump 16 bytes.
QUICKDUMP1	lda >$FFFFFF	; *** MODIFIED ***   Get the memory.
	jsr HEXtoIN	; Print out the byte.
	dex	; Are we done?
	beq QUICKDUMP2	; Sure are.
	iny
	inc QUICKDUMP1+1	; Increment the address for the next byte.
	bne QUICKDUMP1
	inc QUICKDUMP1+2
	bne QUICKDUMP1
	inc QUICKDUMP1+3
	bra QUICKDUMP1

QUICKDUMP2	sty BufLen
	jsr swap	; Swap the direct page back.

	brl Direct

	if ThisIsDEV <> 1 goto .EndShowStart
*******************************************************
*
*  ShowStart
*
*  Output the starting address of the debugger.  This
*  is for development purposes so we can see where the
*  debugger is loaded.
*
*******************************************************

ShowStart	ldy #0
	phk
	pla
	jsr HEXtoIN
	lda #'/'
	sta InputBuffer,y
	iny
	lda #>START
	jsr HEXtoIN
	lda #<START
	jsr HEXtoIN
	sty BufLen
	brl Direct
.EndShowStart

*******************************************************
*
*  Evaluate an expression.  An expression consists of
*  a series of one or more hex or decimal numbers
*  seperated by operators and ending with an equal
*  sign.
*
*  Hex numbers must be preceded by a '$' or nothing.
*  Decimal numbers must be preceded by a positive or
*  negative sign.  Negative numbers are converted
*  to 32-bit two's-complement.  Numbers that are
*  larger that 32-bits will wrap.
*
*  Legal operators are '+', '-', '*', '/', and '%'
*  (modulus).  All operators are evaluated left to
*  right with equal precidence.  Overflow is ignored.
*
*  The result will be printed in either hex or decimal
*  depending on the form of the expression.  If the
*  expression consists of just one hex number, then it
*  is assumed we want to convert it to decimal, so the
*  result will be in decimal.  If the expression is just
*  one decimal number, the result is printed in hex.
*  If the expression contains more than one number and
*  all the numbers are in decimal, then the result is
*  printed in decimal.  Otherwise the result is printed
*  in hex.
*
*******************************************************

GETEXPRERR	brl ErrCmd

GETEXPR	stz NUMDEC	; Reset the # of numbers.
	stz NUMHEX
	jsr GETNUM	; Get the 1'st number.
	bcs GETEXPRERR

GETEXPRLP	lda InputBuffer,y	; Check the next character.
	iny
	cmp #'='	; Is it an '='?
	bne GETEXPRLP2	; No, it must be an operator.
	brl DNGETEXPR	; It was an '='.

GETEXPRLP2	pha	; Save the operator

	lda AL	; Save the current value.
	sta T3
	lda AH
	sta T4
	lda AB
	sta T5
	lda T1
	sta T6

	jsr GETNUM	; Go get the next value.
	bcs GETEXPRERR

	pla	; Restore the operator.

	cmp #'+'	; Is it addition?
	beq EXPRADD

	cmp #'-'	; How about subtraction?
	beq EXPRSUB

	cmp #'*'	; Mabey it's multiplication.
	beq EXPRMULT

	cmp #'/'	; Could it be division?
	beq EXPRDIV

	cmp #'%'	; That just leaves modulus.
	beq EXPRMOD

	brl ErrCmd	; It must have been an invalid operator.

; Add the new number to the old value ignoring overflow.

EXPRADD	clc
	lda T3
	adc AL
	sta AL
	lda T4
	adc AH
	sta AH
	lda T5
	adc AB
	sta AB
	lda T6
	adc T1
	sta T1
	bra GETEXPRLP

; Subtract the new number from the old value ignoring underflow.

EXPRSUB	sec
	lda T3
	sbc AL
	sta AL
	lda T4
	sbc AH
	sta AH
	lda T5
	sbc AB
	sta AB
	lda T6
	sbc T1
	sta T1
	bra GETEXPRLP

; Divide the old value by the new number.

EXPRDIV	jsr DODIV	; Do the division.
	brl GETEXPRLP

; Calculate the old value modulus the new number.

EXPRMOD	jsr DODIV	; Do the division.
	lda MODULUS	; Get the modulus.
	sta AL
	lda MODULUS+1
	sta AH
	lda MODULUS+2
	sta AB
	lda MODULUS+3
	sta T1
	brl GETEXPRLP

; Multiply the old value by the new number.

EXPRMULT	jsr DoMult
	brl GETEXPRLP	; All done.

; We are done with the expression, so print the result in either hex
; or decimal, depending on the form of the expression.

DNGETEXPR	lda NUMHEX	; Get the # of hex numbers.
	cmp #1
	beq DNGETEXPR2	; There was just one hex number.
	bge GOTHEX	; >1 hex # so print result in hex.
	lda NUMDEC	; Get the # of dec numbers.
	cmp #1
	beq GOTHEX	; 1 dec and 0 hex, so print result in hex.
	bra GOTDEC	; >1 dec and 0 hex, so print result in dec.
DNGETEXPR2	lda NUMDEC	; Get the # of dec numbers.
	beq GOTDEC	; 1 hex and 0 dec, so print result in dec.

; Print the result in hex.

GOTHEX	iny
	lda #'$'	; Print a '$'.
	jsr OUT
	iny
	lda T1	; No print the hex result.
	jsr OUTHEX
	lda AB
	jsr OUTHEX
	lda AH
	jsr OUTHEX
	lda AL
	jsr OUTHEX
	dey
	sec
	ror ExprFlag	; Signify that we have a valid expression.
	jsr COPYLINE
	brl INPUTA	; All done.

; Print the result in decimal.

GOTDEC	jsr HEXTODEC

; Print the decimal number.

	iny
	lda #'+'	; Print a plus to indicate decimal.
	jsr OUT
	iny
	lda T6
	jsr OUTHEX
	lda T5
	jsr OUTHEX
	lda T4
	jsr OUTHEX
	lda T3
	jsr OUTHEX
	lda T2
	jsr OUTHEX
	dey
	sec
	ror ExprFlag	; Signify that we have a valid expression.
	jsr COPYLINE
	brl INPUTA	; All done.

; Convert the hex value in AL/AH/AB/T1 to a bcd value in T2/T3/T4/T5/T6.
; I'm not exactly sure how this routine works.  I got it by interpolating
; the 16-bit HEXDEC routine to 32-bits.

HEXTODEC	stz T2	; Zero the decimal value of the hex
	stz T3	;  result.
	stz T4
	stz T5
	stz T6

	sed
	ldx #32	; Do 32 bits.

HEXDECLP	asl AL
	rol AH
	rol AB
	rol T1
	lda T2
	adc T2
	sta T2
	lda T3
	adc T3
	sta T3
	lda T4
	adc T4
	sta T4
	lda T5
	adc T5
	sta T5
	lda T6
	adc T6
	sta T6
	dex	; Do next bit.
	bne HEXDECLP
	cld
	rts

*******************************************************
*
*  DoMult
*
*  Multiply one 32-bit number by another 32-bit number,
*  producing a 32-bit result.
*
*  IN:  AL/AH/AB/T1 = multiplicand 1
*       T3/T4/T5/T6 = multiplicand 2
*
*  OUT:  AL/AH/AB/T1 = result
*
*  DESTROYED:  X
*
*******************************************************

DoMult	lda AL	; Put the new number in the
	sta MULTIPLICAND	;  multiplicand.
	lda AH
	sta MULTIPLICAND+1
	lda AB
	sta MULTIPLICAND+2
	lda T1
	sta MULTIPLICAND+3

; Use a shift and add algorithm ignoring overflow.

	ldx #32	; Need to shift 32 bits.
@Loop	asl AL	; Shift the result left one bit.
	rol AH
	rol AB
	rol T1

	asl T3	; Shift the multiplier left one bit.
	rol T4
	rol T5
	rol T6

	bcc @Next	; Don't add if carry clear.

	clc	; Add the multiplicand to the result.
	lda AL
	adc MULTIPLICAND
	sta AL
	lda AH
	adc MULTIPLICAND+1
	sta AH
	lda AB
	adc MULTIPLICAND+2
	sta AB
	lda T1
	adc MULTIPLICAND+3
	sta T1

@Next	dex	; Do the next bit.
	bne @Loop
	rts	; All done.

*******************************************************
*
*  DODIV
*
*  Divide one 32-bit number by another 32-bit number,
*  producing a 32-bit result and 32-bit remainder.
*
*  IN:  AL/AH/AB/T1 = divisor
*       T3/T4/T5/T6 = dividend
*
*  OUT:  AL/AH/AB/T1 = quotient
*        MODULUS = remainder
*
*  DESTROYED:  X, DIVIDEND
*
*******************************************************

DODIV	lda AL	; Load the divisor.
	sta DIVISOR
	lda AH
	sta DIVISOR+1
	lda AB
	sta DIVISOR+2
	lda T1
	sta DIVISOR+3

	stz MODULUS	; Zero the modulus.
	stz MODULUS+1
	stz MODULUS+2
	stz MODULUS+3

; Do the actual division

	ldx #32	; We need to do 32 bits.

DIVLP	asl T3	; Shift one bit of the dividend
	rol T4	;  into the modulus.
	rol T5
	rol T6
	rol MODULUS
	rol MODULUS+1
	rol MODULUS+2
	rol MODULUS+3

	lda MODULUS+3	; See if the divisor will go into
	cmp DIVISOR+3	;  the modulus.
	beq DIVLP2
	bge DIVLP5
	blt DIVLP6
DIVLP2	lda MODULUS+2
	cmp DIVISOR+2
	beq DIVLP3
	bge DIVLP5
	blt DIVLP6
DIVLP3	lda MODULUS+1
	cmp DIVISOR+1
	beq DIVLP4
	bge DIVLP5
	blt DIVLP6
DIVLP4	lda MODULUS
	cmp DIVISOR
	blt DIVLP6

DIVLP5	lda MODULUS	; The divisor can go into the modulus
	sbc DIVISOR	;  so subtract it from the modulus.
	sta MODULUS
	lda MODULUS+1
	sbc DIVISOR+1
	sta MODULUS+1
	lda MODULUS+2
	sbc DIVISOR+2
	sta MODULUS+2
	lda MODULUS+3
	sbc DIVISOR+3
	sta MODULUS+3

DIVLP6	rol AL	; Shift a 1 into the quotient if the
	rol AH	;  divisor went into the modulus, else
	rol AB	;  shift a 0.
	rol T1
	dex	; Do the next bit.
	bne DIVLP

	rts	; All done.

*******************************************************
*
*  GETNUM
*
*  Get either a hexedecimal or a decimal number from
*  the input buffer and return its value.
*
*  If the number is preceded by a '$' or nothing, it is
*  taken to be a hex number.  If it is preceded by either
*  a '+' or '-', it is taken to be a decimal number.
*  Negative decimal numbers are converted to four-byte
*  two's complement hex values.
*
*  Numbers that are greater than 32 bits will wrap.
*
*  The carry flag is set if no number is entered.
*
*  IN: IN = input buffer
*      y = index to start of number in input buffer
*      BufLen = length of input
*      NUMHEX = # of hex numbers in expr. so far
*      NUMDEC = # of decimal numbers in expr. so far
*
*  OUT: AL/AH/AB/T1 = value
*       y = new index (end of number + 1)
*	C = error flag
*       NUMHEX = # of hex numbers in expr. so far
*       NUMDEC = # of decimal numbers in expr. so far
*
*  DESTROYED:  T2, x, DigitCnt
*
*******************************************************

GETNUM	stz AL	; clear value
	stz AH
	stz AB
	stz T1
	stz DigitCnt
	lda InputBuffer,y	; get first char
	cmp #'$'	; Is it a hex number?
	beq @GetHex
	inc NUMDEC	; Update the # of decimal numbers.
	stz T2
	cmp #'+'	; Is it a pos. decimal?
	beq @GetDec1	; yes
	cmp #'-'	; Is it a neg. decimal?
	beq @GetDec	; Yep.
	dey	; Decrement so we can increment later and stay in same place.
	dec NUMDEC	; Restore the # of decimal numbers.
	bra @GetHex	; Default to hex.

; Get 4-byte hex number.

@GetHex	inc NUMHEX	; Update the # of hex numbers.
	iny
	jsr GetHex32

@Done	lda DigitCnt	; Make sure that there is > 0 digits.
	beq @Error
	clc	; Signify no error
@Error	rts	;  and return.


; Get 4-byte decimal number.

@GetDec	inc T2	; Make it a negative number.
@GetDec1	iny
	jsr GetDec32

	lda T2	; Is it a negative value?
	beq @Done
	clc	; We need to two's complement it.
	lda AL
	eor #$FF
	adc #1
	sta AL
	lda AH
	eor #$FF
	adc #0
	sta AH
	lda AB
	eor #$FF
	adc #0
	sta AB
	lda T1
	eor #$FF
	adc #0
	sta T1
	bra @Done	; All done.


*******************************************************
;
; COMMAND LINE INPUT
;
;  T1-T4 used by UIR
;  T5 = CH
;  T6 = clear IN with 1st keystroke flag
;
*******************************************************

Direct	jsr SetBase17	;(initial entry)
	sec
	ror T6	;UIR will clear IN
	bra INPUTD	; with first keystroke

INPUT	jsr SetBase17

INPUT0	stz BufLen

	stz ExprFlag	;Clear the expression flag.

INPUTA	stz T6

INPUTD	ldy #0
	jsr OUTcolon
	lda #1
	sta T5
	stz entrytype	;initial entry

	bit T6	;clear IN 1st chr flag
	bmi INPUTC	;  yes
	jsr CHECKstack
	bcc INPUTC	;okay

	ldy #STEXTlen
	sty BufLen
STEXTtoIN	lda STEXT-1,y
	sta InputBuffer-1,y
	dey
	bne STEXTtoIN

INPUTC	lda #1
	sta immediate

	jsr UIR

	lda exittype
	bne CR_ESC	;CR or ESC pressed

;  immediate mode exit 1st chr

	lda lastch	;first chr
	cmp #$A0	;blank?
	bne INPUTC	; no
	ldy T5
	lda MEMPTR+3	;auto output
	jsr OUTHEX
	jsr OUTslash
	lda MEMPTR+2
	xba
	lda MEMPTR+1
	jsr OUTADDR
	jsr OUTcolon
	dey
	jsr COPYLINE
	bra INPUTA

CR_ESC	dec a
	beq CRed	;RETURN pressed

	lda DUMPMODE
	ora TemplMode
	pha
	lsr DUMPMODE
	lsr TemplMode
	pla
;	bit DUMPMODE
	bpl INPUT	;weren't in DUMP mode
	jsr NEWTEXT
	jsr RESTOREdis
	brl Debug1	;were in DUMP mode

CRed	brl Debug3


; COPY UIR1
	TITLE 'Cortland Debugger -UIR1-'

*******************************************************
;
;  U S E R   I N P U T   R O U T I N E
;
;  Copyright Apple Computer Inc., 1985
;
;  Written by Lou Infeld, 11/26/84
;
;  Modified (and abbreviated) for DEBUG816
;
*******************************************************
;
;  Hardwired:  user input string: InputBuffer
;              InputMax = $7E
;              no Mousefill
;              no modlist/termlist (keymod's)
;              control char's allowed
;              no beep on error
;              fillchar = bordch = blank
;              only 2 terminators: CR, ESC
;              MSB ON
;
*******************************************************

UIR	ldx entrytype
	beq da02
	ldx cursorx	;re-entry--put cursor where
	jsr SetPosition

	ldx entrytype	;check type of re-entry
	cpx #2
	bne da02

	lda lastch	;immediate re-entry
	bne RLoop2
	bra ReadLoop

da02	jsr Always	;perform common entry logic

	ldx entrytype	;first time call?
	bne da03
	jsr FirstTime	;yes, do first time logic
	lda immediate	;if immediate, no chr read
	beq ReadLoop	;back to user before blink
	ldx #0	;clear "lastch"
	stx lastch
	bra RLoop1

da03	jsr ReEntry	;no, do reentry logic

;
;   Main Read loop
;
ReadLoop	jsr NextChar	;Read next char from console
	lda immediate	;immediate mode?
	beq RLoop2	;no, continue read loop
	bit T6
	bpl RLoopx
	lda lastch	;first keystroke?
	beq RLoopx	; no
	stz T6
	stz InputBuffer-1
	lda #1
	sta T5	;CH
	jsr Always
	jsr FirstTime
	lda lastch
	cmp #$A0
	beq RLoop0

RLoopx	lda T5
	cmp #1
	bne RLoop2	;immediate=1 only on CH=1
RLoop0	ldx #0	;yes, set "exittype" to 0
RLoop1	stx exittype
	ldx #2	;set "entrytype" to
	stx entrytype	; immediate re-entry
	rts	;exit

RLoop2	jsr CheckSpecial	;Check for special chars
	bmi ReadLoop	;if X<0, char processed
	beq da3	;if X=0, char to be added
da2	brl Terminate

da3	jsr AddtoString	;Add char to user's string
	jsr GetBlinkCh	;Get char to blink
	bra ReadLoop
;
;  Common entry logic
;
Always	ldy #0
	lda InputBuffer-1,y	;current length
	sta LInputStr

	cmp cursorpos
	bcs db7
	tax
	inx	;cursorpos now after
	stx cursorpos	; after last char

db7	lda #$FF	;init
	sta cursoron
	rts

;
;  First Time logic
;
FirstTime	jsr GetPosition	;get current cursor position
	stx originx

	lda LInputStr
	sta InputLength
	sta LDefault
	beq dc2
	tay
dc1	lda InputBuffer-1,y	;move IN
	sta default,y	; to default
	dey
	bpl dc1
dc2	jsr FillInput	;fill input str w/fillchars

	ldx #1
	stx cursorpos
	brl WriteInput	;write input string
;
;  Re-Entry logic
;
ReEntry	jsr FillInput	;fill IN w/fillchars
	ldx #0
	brl WriteInput	;write input string
;
;  Blink cursor
;
Blink	lda cursoron	;is cursor on?
	bmi de4	;no, turn it on and init
	beq de3	;is char on?
	jsr Timer	;check the timer
	bne de8	;if not zero, return
	jsr WriteBlinkCh	;write the blinking char
	jsr backspace

;
;  Setup time for blinking char
;
	lda cursor
	bne de1
	ldy #slowblink
	bra de2
de1	ldy #fastblink
de2	stz cursortimer
	sty cursortimer+1
	lda #0	;set cursor flag to 0
	bra de7

de3	jsr Timer	;check the timer
	bne de8	;if not zero, return
de4	jsr GetBlinkCh	;Get char to blink

	lda cursor
	beq de5
	lda blinkchar
	ldx cursorpos	;if cursor to right of
	cpx LInputStr	; visable str use inverse
	beq de45	;  blank
	bcc de45
	lda #$A0
de45	jsr IOUTy
	ldy #slowblink
	bra de6
de5	lda #'_'	;cursor
	sta blinkcurs	;save as blinking cursor
	jsr WriteCh	;write the blinking cursor
	ldy #fastblink
de6	stz cursortimer	;setup time for blink cursor
	sty cursortimer+1
	jsr backspace
	lda #$0F	;set cursor flag to >0
de7	sta cursoron
de8	rts
;
;  Cursor Timer   out: A=0 if run down
;
Timer	lda cursortimer
	bne df1
	dec cursortimer+1
df1	dec cursortimer
	lda cursortimer
	ora cursortimer+1
	rts

;
;  Get Blinking Char
;
GetBlinkCh	ldy cursorpos
	lda InputBuffer-1,y	;char under cursor
	cpy #$4E	;(width)
	beq dg1
	bcc dg1
	lda #$A0	;bordch
dg1	sta blinkchar	;save as blinking char
	rts
;
;  Write Blinking Char
;
WriteBlinkCh	jsr GetBlinkCh	;get char to blink
	brl WriteCh	;write it
;
;  Make sure cursor has terminated
;
CheckSpecial	jsr WriteBlinkCh	;write the blink char
	jsr backspace
	jsr GetBlinkCh	;get char to blink
;
;  Scan "charlist" for matching char
;  and matching modifier in "modlist"
;
	lda lastch	;get char read
	ldy #0
di1	iny
	cpy #3	;nchars+1
	beq di2
	cmp charlist-1,y
	bne di1
	tyx
	stx exittype	;store in "exittype"
	rts	;return

;
;  Scan Edit Table for matching char
;
di2	cmp #$88	;backspace
	beq LeftArrow
	cmp #$95	;right arrow
	beq RightArrow
	cmp #$FF	;DELETE
	beq Delete
	cmp #$84	;ctrl-D
	beq Delete
	cmp #$85	;ctrl-E
	bne di3_4
	brl ToggleCursor
di3_4	cmp #$98	;ctrl-X
	bne di3_5
	brl Erase
di3_5	cmp #$99	;ctrl-Y
	bne di3_6
	brl ErasetoRight
di3_6	cmp #$9A	;ctrl-Z
	bne di3_7
	brl Recall
di3_7	cmp #$86	;ctrl-F
	bne di4
	brl FDelete

di4	cmp #'\'	;Check for display set escape switch.
	bne di5
	jsr DODISP	;Get the display change character.
	bra SpecialExit

di5	ldy cursorpos
	cpy #$4E	;(width)
	beq di6
	bcc di6
	bra SpecialExit

di6	ldx #0	;normal char exit
	rts
;
;  Special char exit
;
SpecialExit	jsr GetBlinkCh	;store char under cursor

	ldx #$FF	;init
	stx cursoron
	rts	;exit CheckSpecial w/ X<0



;
;  Process Left Arrow (Back Space)
;
LeftArrow	ldx #1
	cpx cursorpos
	bne dj1
	bra SpecialExit
dj1	jsr WriteBlinkCh	;rewrite blinking char
	dec cursorpos	;dec buffer ptr
	jsr backspace
	jsr backspace
	bra SpecialExit
;
;  Process Right Arrow
;
RightArrow	jsr AtEnd
	jsr WriteBlinkCh	;rewrite blinking char
	inc cursorpos	;inc buffer ptr
	bra SpecialExit
;
;  Process Delete
;
Delete	ldx #1
	cpx cursorpos
	bne dl1
	bra SpecialExit
dl1	jsr WriteBlinkCh	;rewrite blinking char
	jsr backspace
	jsr backspace
	dec cursorpos

Delete2	ldy cursorpos	;shift left all chars in InputBuffer
	iny
dl15	beq dl30	;stop after y=255
	cpy #$4E	;(InputMax)
	beq dl20
	bcc dl20
	bra dl30

dl20	lda InputBuffer-1,y
	sta InputBuffer-2,y
	iny
	bra dl15

dl30	dec InputLength	;dec length of InputBuffer
	ldx LInputStr	;dec visible length of InputBuffer
	cpx InputLength
	bcc dl35
	beq dl33
	dec LInputStr

dl33	lda #$A0	;fillchar
dl34	ldy #$4E	;(InputMax)
	sta InputBuffer-1,y

dl35	ldx #0	;write InputBuffer from
	jsr WriteInput	; current position
	bra SpecialExit

;
;  Process Forward Delete
;
FDelete	jsr AtEnd	;last position?
	bra Delete2
;
;  Toggle Cursor
;
ToggleCursor	lda cursor
	eor #1
	sta cursor
	brl SpecialExit
;
;  Process Control-X
;
Erase	ldx #0
	stx LInputStr
	stx InputLength
	inx
	stx cursorpos
;
	ldx originx	;position cursor
	jsr SetPosition

	jsr FillInput	;fill InputBuffer w/fillchars
	ldx #0
	jsr WriteInput	;and write it
	brl SpecialExit
;
;  Process Control-Y
;
ErasetoRight	ldy cursorpos
	dey
	sty LInputStr
	sty InputLength

	jsr FillInput	;fill In w/fillchars
	ldx #0
	jsr WriteInput	;and write it
	brl SpecialExit

;
;  Process Control-Z
;
Recall	lda LDefault
	sta LInputStr
	sta InputLength

	beq dq4
	tay
dq3	lda default,y	;move default buffer
	sta InputBuffer-1,y	; into InputBuffer
	dey
	bpl dq3

	ldx originx	;position cursor
	jsr SetPosition

dq4	jsr FillInput	;fill InputBuffer w/fillchars

	ldx #1
	stx cursorpos
	jsr WriteInput
	brl SpecialExit
;
;  At End function
;
AtEnd	ldy cursorpos
	cpy LInputStr
	bcc dr1
	beq dr1
	pla	;remove last return address
	pla	;from stack
	brl SpecialExit
dr1	rts

;
;  Add char to user's string
;
AddtoString	sta T3	;save char
	ldy InputLength
	lda cursor	;which cursor is on?
	beq ds10

	cpy cursorpos	;replace cursor is on
	bcc ds20
	bcs ds30

ds10	cpy cursorpos
	bcc ds20
	lda InputBuffer-1,y
	sta InputBuffer,y
	dey
	bra ds10

ds20	ldy InputLength	;inc IN length
	cpy #$4E	;(InputMax)
	bcs ds25
	inc InputLength

ds25	ldy #$4E	;(width)
	cpy LInputStr
	beq ds30
	inc LInputStr

ds30	ldy cursorpos	;put char in InputBuffer
	lda T3
	sta InputBuffer-1,y

	cpy LInputStr
	bcc ds40
	beq ds40
	sty LInputStr
ds40	lda cursor	;insert cursor
	bne ds45
	ldx #0
	jsr WriteInput

ds45	lda T3	;restore A
	jsr WriteCh	;write char
	inc cursorpos

	lda T3	;restore A again
	bra GetPosition	;get current cursor position

;
;  Write Input String
;
WriteInput	stx T1
	ldx cursorx
	stx T2	;save cursor position

	ldx cursorpos
	ldy LInputStr
	jsr Write	;x,y = to,from offset in InputBuffer

	ldx T1	;if X>0, save cursorpos
	beq dt12
	jsr GetPosition
	stx T2	;save cursor position

dt12	ldx LInputStr
	inx
	ldy #$4E	;(width)
	jsr Write

dt13	ldx T1
dt2	beq dt3
	ldy LInputStr	;set cursorpos to coorespond
	iny	; to saved coordinates
	sty cursorpos

dt3	ldx T2	;set cursor position
	bra SetPosition
;
;  Fill Input String
;
FillInput	ldy InputLength
	iny
	lda #$A0	;fillchar
du1	sta InputBuffer-1,y
	iny
	cpy #$4E	;(InputMax)
	beq du1
	bcc du1
du2	rts
;
;  Write InputBuffer,x to InputBuffer,y
;
Write	sty T4
	dex
	cpx T4
	bge Writerts
Writeloop	inx
	lda InputBuffer-1,x
	jsr OUTy
	cpx T4
	bne Writeloop
Writerts	rts

;
;  Backspace once
;
backspace	dec T5
	bra GetPosition
;
;  Write char to console
;
WriteCh	jsr OUTy
;
;  Get current cursor position
;
GetPosition	ldx T5
	stx cursorx
	rts
;
; Go to specified cursor position
;
SetPosition	stx cursorx
	stx T5
	rts
;
;  Read character from console
;
NextChar	jsr Read
	bmi dy3	;if character there, exit
	jsr Blink	;if not, blink cursor
	bra NextChar	; read next char
dy3	sta lastch	;store in Input Info
	rts
;
;  Termination Exit
;
Terminate	jsr WriteBlinkCh
	lda #0	;zero buffer pointer
	sta cursorpos
	sta entrytype	;set to initial entry

	jsr backspace

	ldy #0
	lda LInputStr	;store InputBuffer length
	sta InputBuffer-1,y
	rts


*******************************************************
*
*  DoDisp
*
*  This routine reads a character from input and
*  interprets it as a display mode select key.  The
*  keys are the same as the ones used during trace or
*  single step mode to change the display mode.
*
*******************************************************

DoDisp	jsr READ	; Go get a key.
	bpl DODisp

	jsr UpShift	; Shift it.

; Check for the command keys.

	cmp #'B'
	beq DispBW
	cmp #'C'
	beq DispCOLOR
	cmp #'1'
	beq DispPONE
	cmp #'2'
	beq DispPTWO
	cmp #'4'
	beq DispFORTY
	cmp #'8'
	beq DispEIGHTY
	cmp #'F'
	beq DispNOMIX
	cmp #'M'
	beq DispMIX
	cmp #'T'
	beq DispTX
	cmp #'S'
	beq DispSUPER
	cmp #'D'
	beq DispDOUBLE
	cmp #'L'
	beq DispLOGR
	cmp #'H'
	beq DispHIGR

xDisp	rts

; Do the switching.

DispBW	lda >NEWVIDEO
	ora #$20
	bra DispNEWVIDKE

DispCOLOR	lda >NEWVIDEO
	and #$DF
	bra DispNEWVIDKE

DispPONE	lda >PAGE1
	bra xDisp

DispPTWO	lda >PAGE2
	bra xDisp

DispFORTY	sta >CLR80COL
	bra xDisp

DispEIGHTY	sta >SET80COL
	bra xDisp

DispNOMIX	lda >FULL
	bra xDisp

DispMIX	lda >MIXED
	bra xDisp

DispTX	lda >TEXT
	lda >FULL
	lda >LORES
	lda >SETAN3
	lda >NEWVIDEO
	and #$7F
DispNEWVIDKE	sta >NEWVIDEO
	bra xDisp

DispSUPER	lda >NEWVIDEO
	ora #$80
	bra DispNEWVIDGRAPH

DispDOUBLE	lda >CLRAN3
	bra DispSUPERoff

DispLOGR	lda >LORES
	bra DispDOUBLEoff

DispHIGR	lda >HIRES
DispDOUBLEoff	lda >SETAN3
DispSUPERoff	lda >NEWVIDEO
	and #$7F
DispNEWVIDGRAPH	sta >NEWVIDEO
	lda >GR
	bra xDisp


*******************************************************
;
;  Dump a range of memory.
;
*******************************************************

RangeDump	lda AL
	sta DUMPLO
	lda AH
	sta DUMPHI
	lda AB
	sta DUMPB
	iny
	jsr GetHex
	bcs FERRCMD
	lda InputBuffer,y
	cmp #':'
	bne FERRCMD
	clc
	lda AL
	adc #1
	sta DUMPENDLO
	lda AH
	adc #0
	sta DUMPENDHI
	lda AB
	adc #0
	sta DUMPENDB
	brl SETDUMPc

*******************************************************
;
;  Memory Fill
;
*******************************************************

FERRCMD	brl ErrCmd

FILL	iny	;AFTER COLON
	sty COUNT	;remember start
	cpy BufLen	;DUMP IF NO MORE
	blt FILL0

GODUMP	lda AB	; Make sure the length will be greater than $170.
	eor #$80
	sta DUMPENDB
	brl SETDUMP

FILL0	lda InputBuffer,y	; Get the next character.
	cmp #':'	; Is it a 24-bit indirect reference?
	bne FILL1	; No.

; Do a 24-bit d-ref.

	phy	; Save the current buffer pointer.
	lda [AL]	; Get the low byte of the address.
	pha	; Save it on the stack.
	ldy #1
	lda [AL],y	; Get the high byte of the address.
	pha	; Save it on the stack.
	iny
	lda [AL],y	; Get the bank byte of the address.
	sta T1	; Put it in temporary storage.
	pla	; Pull the high byte off the stack.
	sta AH	; Put it in the address register.
	pla	; Pull the low byte off the stack.
	sta AL	; Put it in the address register.
	ply	; Restore the buffer pointer.

	lda BR	; Assume two-byte so use the bank register.
	sta AB

	iny	;AFTER COLON
	sty COUNT	;remember start
	cpy BufLen	;DUMP IF NO MORE
	bge GODUMP

	lda InputBuffer,y	; Get the next character.
	cmp #':'	; Is it a 24-bit indirect reference?
	bne FILL1	; No.

	lda T1	; It's 24-bit, so use the bank address that
	sta AB	;  we got from memory.

	iny	;AFTER COLON
	sty COUNT	;remember start
	cpy BufLen	;DUMP IF NO MORE
	bge GODUMP

FILL1	jsr SAVEPC	;WE CORRODE MEMORY HERE!
	lda AL	;COPY ADDRESS TO POINTERS
	sta PCL
	sta MEMPTR+1
	lda AH
	sta PCH
	sta MEMPTR+2
	lda AB
	sta PCK
	sta MEMPTR+3
	jsr MINIASM	;MNEMONIC POSSIBILITY
	jsr RESTPC	;NOPE, RESTORE ORIG PC

	ldy COUNT	;RESET FOR HEX/ASCII FILL
	dey	;COMPENSATE FOR iny
FILMEM	iny	;NEXT CHAR
FILL2	cpy BufLen	;END?
	bge FILEND	;YES==>BRANCH
	lda InputBuffer,y	;MORE TO FILL
	cmp #$A0	;SPACE DELIM?
	beq FILMEM	;YES==>GET NEXT CHAR
	cmp #$A2	;start of ASCII MSB ON
	beq ASCII1
	cmp #$A7	;start of ASCII MSB OFF
	beq ASCII2
	phy	; Save the current position.
	jsr GetHex	;POSSIBLE HEX VALUE
	bcc FILL3
	brl FERRCMD	;no -- ERROR
FILL3	pla	; Get the old position.
	sta T1	; Put it in a temp, so we can use it.
	tya	; Put the current position in A.
	clc	; Calculate the length of the hex number.
	sbc T1
	lsr A	; Divide length by two to get # of bytes.
	pha	; Save the # of bytes.
	lda AL	; Copy low byte to mem.
	jsr FILVAL
	plx	; Get the # of bytes.
	dex	; Was there a high byte?
	bmi FILL2	; No.
	lda AH	; Copy high byte to mem.
	phx	; Save the number of remaining bytes.
	jsr FILVAL
	plx	; Get the number of remaining bytes.
	dex	; Was there a bank byte?
	bmi FILL2	; No
	lda AB	; Copy bank byte to mem.
	jsr FILVAL
	bra FILL2

ASCII1	clc
ASCII2	lda #0
	ror a
	sta CHAR	;=0 or $80
NEXTCHR	iny
	cpy BufLen
	bge FILEND
	lda InputBuffer,y
	cmp #'!'	;next chr verbatim?
	bne QUOTE
	iny
	cpy BufLen
	bge FILEND
	lda InputBuffer,y
	bra ABSASC

QUOTE	cmp #$A2
	beq FILMEM
	cmp #$A7
	beq FILMEM
ABSASC	eor CHAR
	jsr FILVAL
	bra NEXTCHR

FILEND	bit DUMPMODE
	bpl FILEND1
	jsr DUMP
FILEND1	brl Debug1

*******************************************************
;
;  SETDUMP -- General memory dump
;
*******************************************************

SETDUMP	lda AL
	ldx AH
	ldy AB

SETDUMPa	sta DUMPLO
	stx DUMPHI
	sty DUMPB

SETDUMPc	bit TextMode
	bmi SETDUMPb	;already on
	sec
	ror TextMode
	bra OUTDUMP0

SETDUMPb	bit DUMPMODE
	bmi OUTDUMP
	jsr SAVEdis
OUTDUMP0	jsr ClearAll	; Clear the screen.
	ldx #0
	jsr SETBASE
	ldx #DumpLen-1
	ldy COLASC
OUTDUMP1	lda DumpText,x
	jsr OUT
	dey
	dex
	bpl OUTDUMP1

OUTDUMP	jsr DUMP	; Go do the dump.
	lda #$80
	sta DUMPMODE
	lda DUMP3+1
	sta MEMPTR+1
	lda DUMP3+2
	sta MEMPTR+2
	lda DUMP3+3
	sta MEMPTR+3
	brl Debug1

FILVAL	pha
	sty COUNT
	jsr SWAP
	pla
MEMPTR	sta >$FFFFFF	;self-modifying
	jsr SWAP
	ldy COUNT
	inc MEMPTR+1
	bne UPDRTS
	inc MEMPTR+2
UPDRTS	rts

*******************************************************
;
;  SetDumpD -- Dump user direct page
;
*******************************************************

** How it used to be (before 23-Oct-90 DAL):
**
** SetDumpD	cpy BufLen
** 	bge SETdrdump
** 	brl PARSER
** 
** SETdrdump	bit DUMPMODE
** 	bmi SETdraxy	;already saved dis screen
** 	jsr SAVEdis
** SETdraxy	lda DR
** 	ldx DR+1
** 	ldy #0
** 	brl SETDUMPa

*
* New "DP:" command 23-Oct-90 DAL
*
* Syntax:
*   DP:        (dumps full-screen direct page, like before)
*   DP:xxxx    (dumps 16 bytes to command line at specified location on DP)
*
SetDumpD	jsr GetHex
	bcc QuickDPDump

SETdrdump	bit DUMPMODE
	bmi SETdraxy	;already saved dis screen
	jsr SAVEdis
SETdraxy	lda DR
	ldx DR+1
	ldy #0
	brl SETDUMPa

QuickDPDump	clc
	lda AL
	adc DR
	sta AL
	lda AH
	adc DR+1
	sta AH
	stz AB
	
*** Added - 26-May-93 JCM - Allow the syntax, "DP:nn:::" to dereference a direct page long
***	        and display data from there on.

* Look for ':::' which indicates we should dereference.

	ldx #2

@checkNextChar	lda InputBuffer,y
	cmp #':'
	bne @oldQuickDPDump

	iny

	dex
	bpl @checkNextChar

* Ok, we have something in the form of, "DP:nn:::".

	rep #$30
	longa on
	longi on

	lda [<AL]
	tax
	ldy #2
	lda [<AL],y
	stx <AL
	
	sep #$30
	longa off
	longi off

	sta <AB
	
@oldQuickDPDump
	
*** End - 26-May-93 JCM

	brl QuickerDump

*******************************************************
;
;  Dump Routine
;
*******************************************************

DUMP	lda DUMPLO	; Modify the code with the start address
	sta DUMP3+1	;  of the dump.
	lda DUMPHI
	sta DUMP3+2
	lda DUMPB
	sta DUMP3+3

	ldx #2	; Clear the unused bytes in the top row.
	jsr SETBASE
	lda #9
	sta LEFT
	sec
	lda #15
	sbc DUMPLO
	and #$0F
	tax
	ldy COLHEX,x
	dey
	sty RIGHT
	jsr CLINE

	jsr SWAP
	ldx #2
DUMP2	stx COUNT	; Do a new row.
	lda BASELO,x
	sta PROUTX+1
	lda BASEHI,x
	sta PROUTX+2
	ldy #0
	lda DUMP3+3
	jsr PROUTHEX
	jsr PROUTslash
	lda DUMP3+2
	xba
	lda DUMP3+1
	jsr PROUTADDR
	jsr PROUTcolon

	ldx #$10

DUMP2_1	bit DumpAlign
	bpl @1
	sec	; Calculate the current byte position within the line.
	lda #15
	sbc DUMP3+1
	and #$0F
	tax
	bra DUMP3
@1	dex
DUMP3	lda >$000000	; *** MODIFIED ***  Get the byte.
	pha
	cmp #$20
	blt ctrlchr	;0 -1F -> open apple
	cmp #$E0
	bge chrN	;E0-FF -> 60-7F normal
	cmp #$C0
	blt chrI
	and #$1F	;C0-DF -> 0 -1F inverse
	bra chrP
chrI	cmp #$80
	blt chrN	;20-7F -> A0-FF normal
	cmp #$A0
	bge chrN	;A0-BF -> 20-3F inverse
ctrlchr	and #$80	;strip to msb
	ora #$2E	;'.'
chrN	eor #$80
chrP	ldy COLASC,x
	jsr PROUT
	ldy COLHEX,x

	pla
	jsr PROUTHEX
	inc DUMP3+1
	bne DUMP4
	inc DUMP3+2
DUMP4	bne DUMP5
	inc DUMP3+3

DUMP5	lda DUMP3+3	; See if we have reached the end of the dump yet.
	cmp DUMPENDB
	bne DUMP12	; No.
	lda DUMP3+2
	cmp DUMPENDHI
	bne DUMP12	; No.
	lda DUMP3+1
	cmp DUMPENDLO
	bne DUMP12	; No.

DUMP11	phx
	jsr SWAP

; Clear the the end of the screen.

	ldx COUNT	; Set up to write to current line.
	jsr SETBASE
	inx
	stx TOP	; Set up for the clear to the bottom of the screen.

;	sec	; Calculate where to start clearing the hex values
;	lda   #15	;  on the current line.
;	sbc   DUMP3+1

	pla
	dec a
	and #$0F
	cmp #15	; Do we need to do any clearing on the current line?
	beq DNDUMP	; No.
	tax
	lda COLHEX,x
	sta LEFT
	lda #56
	sta RIGHT
	jsr CLINE	; Clear the hex values.
	lda COLASC,x
	sta LEFT
	lda #$4F
	sta RIGHT
	jsr CLINE	; Clear the ascii values.
DNDUMP	ldx #$17	; Clear to the bottom of the screen.
	ldy #0
	lda #$4F
	brl CLEAR2

DUMP12
;	lda DUMP3+1	; See if we need to go to the next line
;	and #$0F

	cpx #0
	beq DUMP13	; Yes.
	brl DUMP2_1	; No.
DUMP13	lda COUNT
	inc a
	cmp #$17
	beq DUMP11
	tax
	brl DUMP2



KillTemp	rep #$30
	longa on
	longi on

	lda MyIDBuf	;dispose of all related to my ID
	pha	;push user ID
	jsr BeforeDebuggerToolCall
	_DisposeAll
	jsr AfterDebuggerToolCall

	sep #$30
	longa OFF
	longi OFF

	stz FirstTemp
	stz FirstTemp+1
	stz FirstTemp+2

	lda #<FirstHand
	sta LastTemp
	lda #>FirstHand
	sta LastTemp+1
	phk
	pla
	sta LastTemp+2

	brl Debug1


********************************************************************
*
* LoadTemp command
*
********************************************************************
	longa off
	longi off

	msb off
defaultTmplPath	str '*/System/System.Setup/GSBug.Templates'
dtpLength	equ *-defaultTmplPath
	msb on

LoadTemp	jsr GetPath
	bcc @1
*** no pathname--use default! (1-Aug-91 DAL)
	ldy defaultTmplPath
@copy	lda defaultTmplPath,y
	sta pathname,y
	dey
	bpl @copy

***	brl DOSErr16
@1	jsr LoadTempSubr
	bcc @ok
*** added 1-Aug-91 DAL
	inc a
	beq @ok
	dec a
*** end 1-Aug-91 DAL
	brl DOSErr16
@ok	sep #$30
	brl Debug1

LoadTempSubr	rep #$30
	longa ON
	longi ON
	stz OpenTempLst	;23-Oct-90 DAL
	phk
	phk
	pla
	and #$00FF
	sta OpenTempLst+4
	pha
	pea OpenTempLst
	pea $0010
	jsl MLI_16_Stack
	bcc @2
	brl LTDOSErr16

@2	lda OpenTempLst
	sta EOFTempLst
	sta RdTempLst

	phk
	phk
	pla
	and #$00FF
	pha
	pea EOFTempLst
	pea $0019
	jsl MLI_16_Stack
	bcc @3
	brl LTDOSErr16

@3	pea #$0000
	pea #$0000
	lda TempLen+2
	sta RdTempLst+8
	pha
	lda TempLen
	sta RdTempLst+6
	pha
	lda MyIDBuf
	ora #$0100
	pha
	pea $0010
	pha
	pha
	jsr BeforeDebuggerToolCall
	_NewHandle
	jsr AfterDebuggerToolCall
	plx
	stx TempHand
	plx
	stx TempHand+2
	bcc @4
	brl LTDOSErr16

@4	lda TempHand
	sta T1
	lda TempHand+1
	sta T1+1
	lda TempHand+2
	sta T1+2
	ldy #$0000
	lda [T1],y
	sta RdTempLst+2
	iny
	iny
	lda [T1],y
	sta RdTempLst+4

	phk
	phk
	pla
	and #$00FF
	pha
	pea RdTempLst
	pea $0012
	jsl MLI_16_Stack
	bcc @5
	brl LTDOSErr16

@5	phk
	phk
	pla
	and #$00FF
	pha
	pea OpenTempLst
	pea $0014
	jsl MLI_16_Stack
	bcc @7
	brl LTDOSErr16

@7	stz OpenTempLst	;31-Oct-90 DAL

	sep #$30
	longa OFF
	longi OFF
	rep #$10
	longi ON

	ldy RdTempLst+2
	sty T4
	lda RdTempLst+4
	sta T4+2

	ldy #$0000
CkStart	ldx #$0000
@1	jsr GetChar2
	cmp StartStr,x
	bne @3
	iny
	inx
	cpx #6
	blt @1
	jsr GetChar1
	jsr IsWhite
	beq GotStart
	sep #$10
	lda #$FF
	xba
	lda #$FF
	brl LTDOSErr16

@3	iny
	cmp #$8D
	beq CkStart
	jsr GetChar2
	bra @3

GotStart	iny
	jsr GetChar1
	jsr IsWhite
	beq GotStart
	cmp #$8D
	bne GotName
	sep #$10
	lda #$FF
	xba
	lda #$FF
	brl LTDOSErr16

GotName	phy
	phy
	jsr NewNode
	ldy #$0006
	pla
	sta [T1],y
	iny
	pla
	sta [T1],y
	ply

	jsr GetChar1
@3	iny
	jsr GetChar1
	cmp #$8D
	beq @5
	jsr IsWhite
	bne @3
	lda #0
	sta [T4],y
	bra @3

@5	lda #0
	sta [T4],y

	iny
	phy
	phy

	ldy #$0008
	pla
	sta [T1],y
	iny
	pla
	sta [T1],y
	ply

CkEnd	ldx #$0000
	sty EndOff
@1	jsr GetChar1
	cmp EndStr,x
	bne @3
	iny
	inx
	cpx #4
	blt @1
	beq GotEnd

@3	iny
	cmp #$8D
	beq CkEnd
	jsr GetChar1
	bra @3

GotEnd	phy

	ldy EndOff
	lda #0
	sta [T4],y

	lda LastTemp
	sta T1
	lda LastTemp+1
	sta T1+1
	lda LastTemp+2
	sta T1+2

	jsr DerefT1

	ldy #$0000
	lda NewHand
	sta [T1],y
	sta LastTemp
	iny
	lda NewHand+1
	sta [T1],y
	sta LastTemp+1
	iny
	lda NewHand+2
	sta [T1],y
	sta LastTemp+2

	ply

@2	jsr GetChar2
	iny
	cmp #$8D
	bne @2
	brl CkStart

	sep #$10
***	brl Debug1
	clc
	rts

LTDOSErr16	rep #$30
	longa on
	longi on
** Close the file if it's still open (DAL)
	pha
	lda OpenTempLst
	beq @notOpen
	phk
	phk
	pla
	and #$00FF
	pha
	pea OpenTempLst
	pea $0014
	jsl MLI_16_Stack
	stz OpenTempLst
@notOpen	pla
	sec
	rts

*** end of LoadTemp command

	longa off
	longi on

GetChar1	cpy TempLen
	blt @1
	sep #$10
	lda #$FF
	xba
	lda #$FF
	ply	;23-Oct-90 DAL
	ply	;23-Oct-90 DAL
	brl LTDOSErr16	;23-Oct-90 DAL
@1	lda [T4],y
	ora #$80
	jmp UpShift

GetChar2	cpy TempLen
	blt @1
	sep #$10
***	brl Debug1	;23-Oct-90 DAL
	ply	;23-Oct-90 DAL
	ply	;23-Oct-90 DAL
*** added 1-Aug-91 DAL
	lda #$FF
	xba
	lda #$FF
*** end 1-Aug-91 DAL
	brl LTDOSErr16	;23-Oct-90 DAL
@1	lda [T4],y
	ora #$80
	jmp UpShift


DerefT1	ldy #$0000
	lda [T1],y
	pha
	iny
	lda [T1],y
	pha
	iny
	lda [T1],y
	sta T1+2
	pla
	sta T1+1
	pla
	sta T1
	rts


NewNode	rep #$20
	longa ON
	pha	;allowing space for result
	pha	;allowing space for result
	pea $0000	;ask for 10-byte block
	pea $000A
	lda MyIDBuf
	ora #$0100
	pha
	pea $0000	; No restrictions.
	pha	;location pointer
	pha	;low word of location pointer
	jsr BeforeDebuggerToolCall
	_NewHandle
	jsr AfterDebuggerToolCall
	pla
	sta T1
	sta NewHand
	sep #$20
	longa OFF
	pla
	sta T1+2
	sta NewHand+2
	pla
	bcc @1
	sep #$10
	brl ErrCmd
@1	jsr DerefT1
	ldy #$0000
	lda #0
	sta [T1],y
	iny
	sta [T1],y
	iny
	sta [T1],y
	iny
	lda TempHand
	sta [T1],y
	iny
	lda TempHand+1
	sta [T1],y
	iny
	lda TempHand+2
	sta [T1],y
	rts

	longi OFF


OpenTempLst	dc.w $0000
	dc.l pathname
	dc.l $00000000

EOFTempLst	dc.w $0000
TempLen	dc.l $00000000

RdTempLst	dc.w $0000
	dc.l $00000000
	dc.l $00000000
	dc.l $00000000


StartStr	dc.b '_START'
EndStr	dc.b '_END'
EndOff	dc.w $0000
LastTemp	dc.w FirstHand
	dc.b FirstHand>>16
FirstHand	dc.w FirstTemp
	dc.b FirstTemp>>16
FirstTemp	ds.b 3
NewHand	ds.b 3
TempHand	dc.l $00000000

********************************************************************
*
* Template command (underscore)
*
********************************************************************

TemplCol	equ 16

TemplateCmd	rep #$10
	longi ON

	lda FirstTemp
	sta T1
	lda FirstTemp+1
	sta T1+1
	lda FirstTemp+2
	sta T1+2
	sty T4

@0	lda T1
	ora T1+1
	ora T1+2
	bne @1
	sep #$10
	brl ErrCmd

@1	jsr DerefT1
	ldy #$0003
	lda [T1],y
	sta AL
	iny
	lda [T1],y
	sta AL+1
	iny
	lda [T1],y
	sta AL+2

	ldy #$0000
	lda [AL],y
	pha
	iny
	lda [AL],y
	pha
	iny
	lda [AL],y
	sta AL+2
	pla
	sta AL+1
	pla
	sta AL

	ldy #$0007
	lda [T1],y
	pha
	dey
	lda [T1],y
	pha
	ply
	ldx T4

@2	lda InputBuffer,x
	jsr IsWhite
	beq @3
	jsr UpShift
	sta T6
	lda [AL],y
	ora #$80
	jsr UpShift
	cmp T6
	bne @4
	iny
	inx
	cpx BufLen
	blt @2
	brl ErrCmd

@3	lda [AL],y
	bne @4
	phx
	ldy #$0008
	clc
	lda [T1],y
	adc AL
	sta GetTempl+1
	iny
	lda [T1],y
	adc AL+1
	sta GetTempl+2
	lda AL+2
	sta GetTempl+3

	ldy #$0006
	clc
	lda [T1],y
	adc AL
	sta PrName+1
	iny
	lda [T1],y
	adc AL+1
	sta PrName+2
	lda AL+2
	sta PrName+3

	ply
	bra GotTempl

@4	ldy #$0000
	lda [T1],y
	pha
	iny
	lda [T1],y
	pha
	iny
	lda [T1],y
	sta T1+2
	pla
	sta T1+1
	pla
	sta T1
	brl @0

	longi OFF

DnTempl	jsr SWAP
	brl Debug1	; All done.

GotTempl	sep #$10
	longi OFF

	lda InputBuffer,y	; Skip spaces before the address.
	cmp #$A0
	bne @1
	iny
	bra GotTempl
@1

	jsr GetHex	; Get the address of the data.
	bcc @2
***	brl ErrCmd
	stz AL	;23-Oct-90 DAL
	stz AH	;23-Oct-90 DAL
	stz AB	;23-Oct-90 DAL
@2	lda AL
	sta GetData+1
	lda AH
	sta GetData+2
	lda AB
	sta GetData+3

Template2	bit TextMode	; Is the master display screen currently on?
	bmi @2	; Nope.
	sec	; It is, so let's turn it off.
	ror TextMode
	bra @3

@2	bit TemplMode	; Are we already displaying a template?
	bmi @4	; Sure are.
	jsr SAVEdis	; No, so let's save the current screen.
@3	jsr ClearAll	; Clear the screen.
	sec
	ror TemplMode
@4

	ldx #$FF
	stx COUNT
	jsr NextLine
	ldy #0
	tyx

PrName	lda >$FFFFFF,x
	beq @1
	ora #$80
	jsr PROUT
	inx
	bra PrName

@1	inc COUNT

	jsr SWAP

TemplLp1	jsr NextLine	; Set the pointer to the next line.
	ldy #0	; Point to the first column.

TemplLp2	jsr GetTempl	; Get next character.
	bne @0
	brl DnTempl	; We are done.
@0	cmp #$8D	; Are we at the end of a line?
	beq TemplLp1	; Yes.
	jsr IsWhite	; Are we at the end of the word?
	beq @1	; Yep.
	cpy #TemplCol-2	; Are we at the end of the label field?
	beq TemplLp2	; Yep.
	jsr PROUT	; Print the character.
	bra TemplLp2	; Go do the next character.

@1	jsr SkpWhite	; Go skip white space.
	bcs TemplLp1	; We are at the end of the line.

	jsr UpShift	; Make sure that the character is in upper case.
	pha	; Save the type of the field.

	lda #1	; The default count is one.
	sta TemplCnt
	stz TemplCnt+1
@2	jsr GetTempl	; Get the next character.
	beq GotCount	; If it is zero, there is no count.
	cmp #$8D	; Is it a return?
	beq GotCount	; Yep, so there is no count.
	jsr IsWhite	; Is it the end of the word?
	bne @2	; No.

	jsr SkpWhite	; Go find next word.
	bcs GotCount	; No next word, so use default count.

	stz TemplCnt	; Start with zero in the count.
@3	cmp #'0'	; Make sure that the character is legal --
	blt @4	;  if not then use what we have so far.
	cmp #'9'+1
	bge @4

	rep #$20
	longa ON
	and #$000F	; Convert ascii to hex.
	pha	; Save the value.
	lda TemplCnt	; Get the current count
	asl a	;  and multiply it by 10.
	asl a
	clc
	adc TemplCnt
	asl a
	sta TemplCnt
	pla	; Get back the current value
	clc
	adc TemplCnt
	sta TemplCnt	;  and add it to the count.
	sep #$20
	longa OFF

	jsr GetTempl	; Go get the next digit.
	beq GotCount	; We are at end of template.
	cmp #$8D	; Are we at the end of the line?
	beq GotCount	; Yep.
	bra @3	; Go do the next digit.

@4	jsr GetTempl	; Ignore characters to the end of the line.
	beq GotCount
	cmp #$8D
	bne @4

GotCount	pla	; Get back type of the field.
	cmp #'B'	; Is it BYTE?
	bne @1
	brl TmplByte
@1	cmp #'W'	; Is it WORD?
	bne @2
	brl TmplWord
@2	cmp #'L'	; Is it LONG?
	bne @3
	brl TmplLong
@3	cmp #'A'	; Is it ASCII?
	bne @4
	brl TmplAsc
@4	cmp #'C'	; Is it CSTRING?
	bne @5
	brl TmplCStr
@5	cmp #'P'	; Is it PSTRING?
	bne @6
	brl TmplPStr
@6	cmp #'I'	; is it a GSOSInputString?
	bne @7
	brl TmpLInputStr	; if so do the GS os string thing
@7
	cmp #'O'	; is it a GSOSOutputString?
	bne @8
	brl TmplOutputStr	; if so do the GS os string thing
@8
@end
	brl TemplLp1	; No match, so don't display the field.


; Display byte fields.

TmplByte	ldy #TemplCol	; Go to the correct column.
	ldx #0	; No bytes in current row yet.
@1	jsr GetData	; Get the byte and
	jsr PROUTHEX	;  display it.
	rep #$20
	longa ON
	dec TemplCnt	; Are there any more bytes?
	sep #$20
	longa OFF
	bne @2	; Sure are.
	brl TemplLp1	; No more bytes.
@2	iny	; Skip a space.
	inx	; Increment the # of bytes in line.
	cpx #16	; Are there 16 bytes yet?
	bne @1	; Not yet.
	jsr NextLine	; We have 16 bytes, so go to next line.
	bra TmplByte

; Display word fields.

TmplWord	ldy #TemplCol	; Go to the correct column.
	ldx #0	; No words in current row yet.
@1	jsr GetData	; Get the low byte of the word and
	pha	;  save it on the stack.
	jsr GetData	; Get the high byte of the word and
	jsr PROUTHEX	;  display it.
	pla	; Get back the low byte and
	jsr PROUTHEX	;  display it.
	rep #$20
	longa ON
	dec TemplCnt	; Are there any more bytes?
	sep #$20
	longa OFF
	bne @2	; Yep.
	brl TemplLp1	; No more words.
@2	iny	; Skip a space.
	inx	; Increment the # of words in the current line.
	cpx #8	; Are there 8 words in the line yet?
	bne @1	; Not yet.
	jsr NextLine	; We have 8 words, so go to next line.
	bra TmplWord

; Display long word fields.

TmplLong	ldy #TemplCol	; Go to the correct column.
	ldx #0	; No long words in current row yet.
@1	jsr GetData	; Get the low byte of the long and
	pha	;  save it on the stack.
	jsr GetData	; Get the next byte and
	pha	;  save it.
	jsr GetData	; Get the next byte and
	pha	;  save it.
	jsr GetData	; Get the high byte of the long word and
	jsr PROUTHEX	;  display it.
	pla	; Get back the next byte and
	jsr PROUTHEX	;  display it.
	pla	; Get back the next byte and
	jsr PROUTHEX	;  display it.
	pla	; Get back the least significant byte and
	jsr PROUTHEX	;  display it.
	rep #$20
	longa ON
	dec TemplCnt	; Are there any more bytes?
	sep #$20
	longa OFF
	bne @2	; Yep.
	brl TemplLp1	; No more long words.
@2	iny	; Skip a space.
	inx	; Increment the # of long words in the line.
	cpx #4	; Are there 4 long words yet?
	bne @1	; Not yet.
	jsr NextLine	; We have 4 long words, so go to next line.
	bra TmplLong

; Display ascii fields.

TmplAsc	ldy #TemplCol	; Go to the correct column.
	ldx #0	; No ascii chars in current row yet.
@1	jsr GetData	; Go get a character.

; Convert the character to a usable format.

	cmp #$20
	blt @3	;0 -1F -> open apple
	cmp #$E0
	bge @4	;E0-FF -> 60-7F normal
	cmp #$C0
	blt @2
	and #$1F	;C0-DF -> 0 -1F inverse
	bra @5
@2	cmp #$80
	blt @4	;20-7F -> A0-FF normal
	cmp #$A0
	bge @4	;A0-BF -> 20-3F inverse
@3	and #$80	;strip to msb
	ora #$2E	;'.'
@4	eor #$80

@5	jsr PROUT	; Print the character.
	rep #$20
	longa ON
	dec TemplCnt	; Are there any more bytes?
	sep #$20
	longa OFF
	bne @6	; Yes.
	brl TemplLp1	; No.
@6	inx	; Increment the # of characters in the line.
	cpx #32	; Are there 32 characters yet?
	bne @1	; Not yet.
	jsr NextLine	; Yes, so go to the next line.
	bra TmplAsc

; Display CString fields.

TmplCStr	ldy #TemplCol	; Go to the correct column.
@1	jsr GetData	; Get the byte.
	beq @5	; We are done.
	ora #$80	; Set the MSB.
	cmp #$89	; Is it a tab?
	bne @2	; Nope.
	tya	; Tab the proper amount.
	sec
	sbc #TemplCol
	and #$F8
	clc
	adc #$08+TemplCol
	tay
	bra @4

@2	cmp #$8D	; Is it a return?
	bne @3	; No.
	jsr NextLine	; Do a return.
	bra TmplCStr

@3	cmp #$A0	; Make sure that it is a printable character.
	blt @1
	cmp #$FF
	bge @1
	jsr PROUT	; Print it.
@4	cpy #80	; Do we need to wrap?
	blt @1	; No.
	tya	; Take care of the wrapping.
	sec
	sbc #80-TemplCol
	tay
	jsr NextLine	; Go to next line.
	bra @1

@5	rep #$20
	longa ON
	dec TemplCnt	; Are there any more bytes?
	sep #$20
	longa OFF
	bne @6	; Yes.
	brl TemplLp1	; All done.

@6	jsr NextLine	; Do next string.
	bra TmplCStr

; Display CString fields.

TmplPStr	jsr GetData	; Get the length byte
	tax	;  and put it into x.
	beq @6	; There are no characters.

	ldy #TemplCol	; Go to the correct column.
@1	jsr GetData	; Get the byte.
	ora #$80	; Set its MSB.
	cmp #$89	; Is it a tab?
	bne @2	; No.
	tya	; Yes, so tab the correct amount.
	and #$F8
	clc
	adc #$08
	tay
	bra @4

@2	cmp #$8D	; Is it a return?
	bne @3	; No
	jsr NextLine	; Yes, go to the next line.
	ldy #TemplCol
	bra @4

@3	cmp #$A0	; Make sure it is a printable character.
	blt @4
	cmp #$FF
	bge @4
	cpy #80
	bge @4
	jsr PROUT	; Print it.
@4	cpy #80	; Are we off of the screen.
	blt @5	; No.
	sec	; Yes, so wrap.
	tya
	sbc #80-TemplCol
	tay
	phx
	jsr NextLine
	plx
@5	dex	; Any more characters?
	bne @1	; Yes.

@6	rep #$20
	longa ON
	dec TemplCnt	; Are there any more bytes?
	sep #$20
	longa OFF
	bne @7	; Yes.
	brl TemplLp1	; No, we are all done.

@7	jsr NextLine	; Go do the next string.
	bra TmplPStr

; 1/2/90 Mensch
; Added the following templates
; NOTE: At this point we know that the data bank is set to our program bank
;
TmpLInputStr
	lda #0
	bra TOS0010
TmplOutputStr
	lda #$FF
TOS0010	sta @theStrFlag
@TmplGStr
; First test the flag to see if it's an I (input) or O (output) string
	lda @theStrFlag	; see if the string is input or output
	beq @DoWordStr	; If Input, no length word
	jsr GetData
	sta @theBufSize
	jsr GetData
	sta @theBufSize+1
; If output string, fish for the buffer size
@DoWordStr
	jsr GetData	; Get the length byte
	sta @theStrSize
	jsr GetData	; now get the high byte of the length
	sta @theStrSize+1	;
	ora @theStrSize	; see if both is zero... If so, then forget it..
	beq @6	; There are no characters.

	ldy #TemplCol	; Go to the correct column.
@1	jsr GetData	; Get the byte.
	ora #$80	; Set its MSB.
	cmp #$89	; Is it a tab?
	bne @2	; No.
	tya	; Yes, so tab the correct amount.
	and #$F8
	clc
	adc #$08
	tay
	bra @4

@2	cmp #$8D	; Is it a return?
	bne @3	; No
	jsr NextLine	; Yes, go to the next line.
	ldy #TemplCol
	bra @4

@3	cmp #$A0	; Make sure it is a printable character.
	blt @4
	cmp #$FF
	bge @4
	cpy #80
	bge @4
	jsr PROUT	; Print it.
@4	cpy #80	; Are we off of the screen.
	blt @5	; No.
	sec	; Yes, so wrap.
	tya
	sbc #80-TemplCol
	tay
	jsr NextLine
@5
; Now dec the buffer size so that we can properly adjust at the end
	rep #$20
	longa On
	dec @theBufSize
	dec @theStrSize	; any more characters?
	sep #$20
	longa Off
	bne @1	; Yes.

@6
; Now determine if we must adjust for the buffer size
	lda @theStrFlag
	beq @61
; Get here means adjust for the extra buffer size
	rep #$20
	longa On
	lda @theBufSize
	sec
	sbc #4	; subtract the size of the buffer data
	clc
	adc GetData+1
	sta GetData+1
	bcc @61
	sep #$20
	longa Off
	inc GetData+3

@61
	rep #$20
	longa ON
	dec TemplCnt	; Are there any more strings?
	sep #$20
	longa OFF
	bne @7	; Yes.
	brl TemplLp1	; No, we are all done.

@7	jsr NextLine	; Go do the next string.
	brl @TmplGStr
@theStrFlag	ds.W 1
@theBufSize	ds.W 1
@theStrSize	ds.W 1	; length of the string to print


;---------------------------------------

TmplHandle

;
; This template will print a line with the pertinent handle info on it.
; The format of the line is:
;
;  ID      $bb/nnnn  PTR:$bb/nnnn  TAG:$xxxx  ATR:$xxxx
;
; Get the next byte of the template.  Don't increment the pointer if the byte is a zero.
;

*******   Not Implemented Yet! *******


GetTempl	lda >$FFFFFF	; *** MODIFIED ***
	beq @2
	ora #$80
	inc GetTempl+1	; Increment the address.
	bne @2
	inc GetTempl+2
@1	cmp #0
@2	rts

; Get the next byte of the data structure.

GetData	lda >$FFFFFF	; *** MODIFIED ***
	inc GetData+1	; Increment the address.
	bne @1
	inc GetData+2
	bne @1
	inc GetData+3
@1	cmp #0
	rts

; Set Z to 1 iff the character in A is either a space or tab.

IsWhite	cmp #$A0	; Is it a space?
	beq @1	; Yep.
	cmp #$89	; Is it a tab?
@1	rts

; Skip characters until the first non-white space.  Set carry iff we hit the end
; of the line.

SkpWhite	jsr GetTempl	; Get the next character.
	beq @1	; It is the end of the template.
	cmp #$8D	; Is it a return?
	beq @1	; Yes.
	jsr IsWhite	; Is it a white space?
	beq SkpWhite	; Yep.
	clc	; Signify that we are not at end of line.
	rts
@1	sec	; Signify that we hit the end of the line.
	rts

; Set the base pointer to the next screen line.

NextLine	inc COUNT	; Increment the current line.
	ldx COUNT	; Get the current line.

	cpx #22
	blt @3
	inx
	jsr @3
	ldy #0
@1	lda NextStr,y
	jsr PROUT
	cpy #NextStrLen
	blt @1

	jsr WAITKEY
	cmp #$9B
	bne @2
	brl DnTempl

@2	lda #2
	sta TOP
	jsr CLEAR1
	ldx #2
	stx COUNT

@3	lda BASELO,x	; Set the pointer.
	sta PROUTX+1
	lda BASEHI,x
	sta PROUTX+2
	rts





*******************************************************
;
;  Set register value(s)
;
*******************************************************

Toggle_e	cpy BufLen
	bge Toggle_eok	;not 1st digit of address
	brl PARSER	;
Toggle_eok	bit eR
	bmi SET_e0	;emulation -> native
	bra SET_e1	;native -> emulation

Toggle_m	bit eR
	bmi SETERR0	;emulation
	lda PR
	and #$20
	clc
	bne SET_mC	;1 -> 0
	sec
	bra SET_mC	;0 -> 1

Toggle_x	bit eR
	bmi SETERR0	;emulation
	lda PR
	and #$10
	clc
	bne SET_xC	;1 -> 0
	sec
	bra SET_xC	;0 -> 1

SETERR0	brl ErrCmd

; Toggle the disassembly mode flag.

toggle_dis	lda DDVAL	; Get the current value.
	eor #$80	; Toggle it.
	sta DDVAL	; Save it back.
	brl Debug1

SET_e	jsr GetHex
	bcs SETERR0
	lda AL
	lsr a
	bcs SET_e1
	lda eR
	bpl SETEND	;already native
SET_e0	stz eR
	lda temp_sp	;restore stack page
	sta SR+1
	lda #$30
	tsb PR	;was emulation

SETEND	brl Debug1

SET_e1	lda #$80
	sta eR	;set to emulation
	lda SR+1	;need to save stack page
	sta temp_sp	;store for restoring
	lda #1
	sta SR+1
	stz XR+1
	stz YR+1
	lda #$20
	tsb PR
	brl Debug1

SET_mP	jsr GetHex
	bcs SETERR0
	lda eR
	bmi SETERR0	;emulation
	lda AL
	lsr a
SET_mC	lda #$20
	bcs SET_m1
	trb PR
	brl Debug1
SET_m1	tsb PR
	brl Debug1

SET_xP	jsr GetHex
	bcs SETERR0
	lda eR
	bmi SETERR0	;emulation
	lda AL
	lsr a
SET_xC	lda #$10
	bcs SET_x1
	trb PR
	brl Debug1
SET_x1	tsb PR
	stz XR+1
	stz YR+1
	brl Debug1

SET_K	jsr GetHex
	bcs SETERR1
	cmp #3
	bge SET_KPC0	;typed >=5 digits
	lda AL
	sta PCK
	brl Debug1

SET_KPC	jsr GetHex
	bcs SETERR1
SET_KPC0	lda AL
	sta PCL
	lda AH
	sta PCH
	lda AB
	sta PCK
	brl Debug1

SET_S	jsr GetHex
	bcs SETERR1
	lda AL
	sta SR
	lda AH
	bit eR
	bpl @1	;was *+4 DAL
	lda #1
@1	sta SR+1
	brl Debug1

SET_B	jsr GetHex
	bcs SETERR1
	lda AL
	sta BR
	brl Debug1

SET_M	jsr GetHex
	bcs SETERR1
	lda AL
SET_MR	sta MR
	sta >MSTATE
	brl Debug1

SET_L	jsr GetHex
	bcs SETERR1
	ror AL	;carry set for AL=1
	lda MR
	bcs SET_L1
	and #$FB
	bra SET_MR
SET_L1	ora #4
	bra SET_MR

SET_Q	jsr GetHex
	bcs SETERR1
	lda AL
	and #$DF	;force bit5 zero
	sta QR

SETEND1	brl Debug1

SETERR1	brl ErrCmd

SET_P	jsr GetHex
	bcs SETERR1
	lda eR
	asl a
	lda AL
	bcc SET_P0
	ora #$30	;emulation p=%--11----
SET_P0	sta PR
	bcs SETEND1	;emulation
	and #$10
	beq SETEND1	;x=0
	stz XR+1
	stz YR+1
	brl Debug1

SET_A	jsr GetHex
	bcs SETERR1
	lda AL
	sta AR
	lda AH
	sta AR+1
	brl Debug1

SET_X	jsr GetHex
	bcs SETERR1
	lda eR
	asl a
	lda AL
	sta XR
	bcs SETEND1	;e=1
	lda PR
	and #$10
	bne SETEND1	;e=0, x=1
	lda AH
	sta XR+1
	brl Debug1
SET_Y	jsr GetHex
	bcs SETERR1
	lda eR
	asl a
	lda AL
	sta YR
	bcs SETEND2
	lda PR
	and #$10
	bne SETEND2
	lda AH
	sta YR+1
	brl Debug1

SET_D	jsr GetHex
	bcs SETERR2
	lda AL
	sta DR
	lda AH
	sta DR+1
	brl Debug1

SET_C	jsr GetHex
	bcs SETERR2
	lda AL
	sta CYCL
	lda AH
	sta CYCH
	lda AB
	sta CYCB
SETEND2	brl Debug1

SET_KEY	jsr GetHex
	bcs SETERR2
	lda AL
	sta KEYMOD
	brl Debug1
SETERR2	brl ErrCmd

SETDBRK	stz BRK_STATE
	brl Debug1
SETUBRK	lda #$80
	sta BRK_STATE
	brl Debug1

*******************************************************
;
;  Go command (X)
;  (assumes user will RTL back to Debugger)
;
*******************************************************

GOCON	lda PCL
	sta AL
	lda PCH
	sta AH
	lda PCK
	sta AB

GONEW	stz InTrace
	lda AL
	sta PCTL
	lda AH
	sta PCTH
	lda AB
	sta PCTK

	jsr OFF

	sec
	ror CodeMode
	jsr SWAP

	lda >MyID	;save bank0/zero page A1
	sta Temp	;temp save
	phb	;save my debug bank to A1
	pla
	sta >MyID	;save it, used

*** %%% BUG HERE -- if the user's program is in emulation mode with interrupts
*** enabled, we have a problem, since we aren't in bank 0.  DAL 7-Sep-90

	RestoreReg	;restore the user's registers

	jsl JPC

	SaveReg	;save user's registers into table

	brl DEBUGS

*******************************************************
;
;  Jump command (J)  (no return address put on stack)
;
*******************************************************

JMPCON	lda PCL
	sta AL
	lda PCH
	sta AH
	lda PCK
	sta AB


*** ;JMPCON	stz InTrace
*** ;	sec
*** ;	ror CodeMode
*** ;	stz StepMode
*** ;
*** ;	jsr  OFF
*** ;
*** ;	brl XEQ

JMPNEW	stz InTrace
	lda AL
	sta PCTL
	lda AH
	sta PCTH
	lda AB
	sta PCTK

JMPEROFF	jsr OFF

JMPER	sec
	ror CodeMode
	stz StepMode

	jsr SWAP

	lda >MyID	;save bank0/zero page A1
	sta Temp	;temp save
	phb	;save my debug bank to A1
	pla
	sta >MyID	;save it, used

	RestoreReg	;retore the user's registers

;
;   Adr Highest   7
;   Adr Middle    6
;   Adr Low       5
;   p-reg         4
;   p-reg         3
;   A-reg high    2
;   A-reg low     1
;
JPC

;	php	;don't want sep to screw up p
;	sep #$30
;	longa off
;	longi off
;	plp	;make sure it stays the same

	phb	;put three bytes on stack that
	phb	;will be overstored.
	phb
	php	;save status
	clc	;force native mode
	xce
	php	;save old e bit

	rep #$20	;force long a
	longa on
	pha	;save a reg cause i'm gonna use it

	phb	;save user  bank

**	lda >MyID	;get my debug bank, use same equ only, not MyID
**	xba	;switch so long addressing will work
**	pha	;swap to my debug bank
**	plb	;in doing this, no absolute long required below
**	plb
** Replaced above 5 lines with the following 2.  15-Oct-90 DAL
	phk	;DAL
	plb	;DAL

;	lda >PCTL+1	;over store on the stack
;	sta 6,s	;This is middle and high word
;	lda >PCTL	;This is low and middle - 1
;	dec a 	;for RTL
;	sta 5,s


DO_RTL	lda PCTL+1
	sta 7,s
	lda PCTL
	dec a
	sta 6,s

	sta >$FDF1F2

	sei
	lda #$80	; We are going into real-time.
	sta InRT
	plb	;get back user data bank
	pla	;Get back a-reg
	plp	;Get back e-bit
	xce	;exchange
	plp	;Get back orig p-reg
	rtl	; it


DO_RTS	phb	;takes care of real time JSR's
	phb	;two bytes hold rts to RTL address
	phb
	phb
	phb	;three bytes hold the starting address
	php
	clc
	xce	;duplicate of above -- easier to follow than
	php	;spaghetti code

	rep #$20	;force long a
	longa on

	pha
	phb

**	lda >MYID	;get my debug bank, use same equ only
**	xba	;switch for long addressing to work
**	pha	;swap into my debug bank
**	plb
**	plb
** Repalced above 5 lines with following 2.  15-Oct-90 DAL
	phk	;DAL
	plb	;DAL

	lda is_ROM
	bne ROM_it	;if ROM then already done first store

	lda address
	clc
	adc #$0003
	sta address

ROM_it	lda address	;holds where RTL is stored
	dec a	;dec it so it can be stuffed on stack

	sta 9,s	;stack larger here
	lda PCTL+1
	sta 7,s
	lda PCTL
	dec a
	sta 6,s
	
	sta >$FDF1F4

	sei
	lda #$80	; We are going into real-time.
	sta InRT
	plb
	pla
	plp
	xce
	plp
	rtl


	TITLE 'Cortland Debugger -COMMANDS2-'

	longa off
	longi off
*******************************************************
*
*  ToolInfo
*
*  Print the tool number, tool name, and address of a
*  tool call.  The format of the command should be
*  one of the following:
*
*    TOOL _ToolName         or
*    TOOO #ToolNumber
*
* Now uses GetTNum routine (11-Oct-90 DAL)
*
*******************************************************

ToolInfo	jsr GetTNum
	bcc @a
	brl ErrCmd
@a
	ldy #0
@1	lda ToolStr,y	; Put the tool info string into the
	sta InputBuffer,y	;  input buffer.
	iny
	cpy #ToolStrLen
	blt @1

	lda AH	; Put the tool number into the input
	jsr HEXtoIN	;  buffer.
	lda AL
	jsr HEXtoIN

	lda #$A0	; Put a space into the buffer.
	sta InputBuffer,y
	iny

	phy	; Save the index into the buffer.

	rep #$30	; Need to be in full native mode to get
	longa ON	;  the name of the tool call.
	longi ON
	pha	; Push space for the result.
	pha
	lda AL	; Push the tool number.
	pha
	jsl GetToolName	; Get the name.
	pla	; Get the low word of the address of the name.
	sta T1
	pla	; Throw away the high word.
	sep #$30	; We can go back to short mode now.
	longa OFF
	longi OFF

	plx	; Get the index back.

	ldy #$00	; Copy the name into the input buffer.
@2	lda (T1),y
	beq @3
	ora #$80
	sta InputBuffer,x
	iny
	inx
	bra @2

@3	lda #$A0	; Follow the name by a space.
	sta InputBuffer,x
	inx
	lda #'@'	; Put an at sign before the address of the
	sta InputBuffer,x	;  tool routine.
	inx

; Now we are going to find the address of the tool routine.

	rep #$30	; We want to be in full native mode.
	longa ON
	longi ON

	lda >$E103C0
	sta T1
	lda >$E103C0+2
	sta T1+2
	lda AL
	and #$00FF
	asl a
	asl a
	tay
	lda [T1],y
	pha
	iny
	iny
	lda [T1],y
	sta T1+2
	pla
	sta T1
	lda AL
	xba
	and #$00FF
	asl a
	asl a
	tay
	lda [T1],y
	inc a
	xba
	pha
	iny
	iny
	lda [T1],y

	sep #$30	; Go back to short mode.
	longa OFF
	longi OFF

	txy
	jsr HEXtoIN	; Put the bank into the input buffer.
	lda #'/'	; Follow the bank with a slash.
	sta InputBuffer,y
	iny
	pla	; Get the high byte of the address
	jsr HEXtoIN	;  and put it into the input buffer.
	pla
	jsr HEXtoIN	; Get the low byte of the address
	sty BufLen	;  and put it into the input buffer.

	brl Direct	; All done.


*********************************************************
*
* Save the registers.
*
********************************************************

SaveEnvCmd	jsr SaveEnv
	brl Debug1


SaveEnv	lda PCL	; save the PC
	sta saved_PC
	lda PCL+1
	sta saved_PC+1
	lda PCL+2
	sta saved_PC+2

	ldx #16
@Loop	lda AR,x
	sta saved_regs,x
	dex
	bpl @Loop

	rts

*********************************************************
*
* Restore the registers.
*
********************************************************

RestoreEnvCmd	jsr RestoreEnv
	brl Debug1


RestoreEnv	lda saved_PC	; save the PC
	sta PCL
	lda saved_PC+1
	sta PCL+1
	lda saved_PC+2
	sta PCL+2

	ldx #16
@Loop	lda saved_regs,x
	sta AR,x
	dex
	bpl @Loop

	rts


*******************************************************
*
*  NewStack
*
*  Set the user's stack pointer to point to the stack
*  that was allocated for the user at startup time.
*  This only works when we are in native mode.  If we
*  are in emulation mode then just beep and return.
*
*******************************************************

NewStack	bit eR	; See if we are in emulation mode.
	bpl NewStack2	; Nope.
	jsr BELL	; Yep, so we can't do it, just beep
	brl Debug1	;  and then return.

NewStack2	lda NewSR	; Replace the stack pointer.
	sta SR
	lda NewSR+1
	sta SR+1
	brl Debug1

*******************************************************
*
*  NewDP
*
*  Set the user's direct page pointer to point to the
*  direct page that was allocated for the user at
*  startup time.
*
*******************************************************

NewDP	lda NewDR	; Replace the direct page pointer.
	sta DR
	lda NewDR+1
	sta DR+1
	brl Debug1


*******************************************************
;
;  Clear ALL breakpoints
;
*******************************************************

;;;	sep #$30	;21-May-93 JCM - stupid, stupid
;;;	longa off
;;;	longi off	;don't ask me must do for rest of code to work!!

ClrCmd	jsr ClearAllBPsCore
	bcs @notOut	;they weren't cleared 'cause their are still some in

	jsr ON	;force display on

	asl BPFlag
	bit TextMode
	bpl @cleared

	jsr ClearBPF

@cleared	brl Debug1

@notOut	brl ErrCmd
	
ClearAllBPsCore	php

	sep #$30
	longa off
	longi off

	bit BPIO
	bpl @doBPClear	;BPs aren't in, so remove 'em

	plp

	sec
	
	rts

@doBPClear	ldx N_BP

@clearNextBP	stz BPAddrLowTable,x
	stz BPAddrHighTable,x
	stz BPAddrBankTable,x
	stz BPTriggerTable,x
	stz BPCountTable,x
	dex
	bpl @clearNextBP

	plp

	clc

	rts

*******************************************************
;
;  SET MEM Cells
;
*******************************************************

MEMup	dex
	bpl MEMnext
	ldx #N_CELL
	dex
	bra MEMnext

MEMdown	inx
	cpx #N_CELL
	blt MEMnext	;was *+4 DAL
	ldx #0
MEMnext	phx
	jsr OUTCELL
	plx
	brl MEMx

MEMshow	lda AL
	sta CELLLO,x

	bit CELLDP,x	; Is the cell direct page?
	bcs MEMshowDP	; Yes.

; Update the address for non direct page memory cells.

	lda AH
	sta CELLHI,x
	lda AB
	sta CELLB,x
	ldy #C_CELL
	brl OutAB_ADDR

;	jsr OUTHEX
;	jsr OUTslash
;	lda AH
;	xba
;	lda AL
;	brl OUTADDR

; Update the address for direct page memory cells.

MEMshowDP	ldy #C_CELL+5	; Get the column of the direct page offset.
	lda AL
	brl OUTHEX	; Print the direct page offset.


MEMquit	brl Debug1

MEMCMD	jsr ON	;force display on
	ldx #0
MEMx	txa
	clc
	adc #R_CELL
	tay
	lda BASELO,y
	sta BASL
	lda BASEHI,y
	sta BASH
MEMz	stz AL
	stz AH
	stz AB

MEMcurse	ldy #C_CELL+7
	lda #':'	;chr to flash
	jsr CURSE	;curse ':' at BASL/H,y

	cmp #'?'
	bne MEMesc
	jsr HELPOUTmem	;display help, WAITKEY
MEMesc	cmp #$9B
	beq MEMquit	;ESC
	cmp #$8B
	beq MEMup	;ctrl-K
	cmp #$8A
	beq MEMdown	;ctrl-J
	cmp #$8D
	beq MEMdown	;RETURN

	jsr UpShift
	ldy #CELL_hex
	cmp #'H'
	beq MEMchoose
	ldy #CELL_addr
	cmp #'P'
	beq MEMchoose
	ldy #CELL_addrlong
	cmp #'L'
	bne MEMbank

MEMchoose	tya
	sta CELLTY,x
	phx
	jsr OUTCELL
	plx
	bra MEMcurse

MEMbank	cmp #'/'	;bank delimiter?
	beq MEMcurse	; yes

	cmp #'Z'	; Check for direct page toggle.
	bne MEMind
	lda #CELL_dp
	eor CELLDP,x	; Toggle the table entry.
	sta CELLDP,x
	stz CELLHI,x	; Clear the high byte and bank.
	stz CELLB,x
	stz AL	; Clear the current address.
	stz AH
	stz AB
	phx
	jsr OUTCELL	; Redraw the memory display.
	plx
	bra MEMcurse

MEMind	cmp #':'	; Check for deref select.
	bne MEMhex	; Not deref.
	inc CELLDP,x	; Change the switch.
	lda CELLDP,x	; Now check for wrap.
	and #$03
	cmp #$03	; Do we need to reset?
	bne MEMind2	; No.
	lda CELLDP,x	; Reset the switch.
	and #$FC
	sta CELLDP,x

MEMind2	phx
	jsr OUTCELL	; Redraw the memory display.
	plx
	bra MEMcurse

MEMhex	phx
	jsr NEEDHEX
	plx
	bcs MEMset2

MEMset	jsr MEMshow
MEMset2	brl MEMcurse


*******************************************************
*
* STICK command
*
* New command 11-Oct-90 Dave Lyons
*
* STICK makes the debugger stay around when we reboot.
* It's like having a ROM debugger, only different.
*
*******************************************************

StickCmd	rep #$30
	longa on
	longi on

** change our Memory ID to be 1, so we don't go away on a reboot

	phd
	pha
	pha	;space for FindHandle
	tsc
	tcd
	pushlong #StickCmd
	jsr BeforeDebuggerToolCall
	_FindHandle
	jsr AfterDebuggerToolCall
	ldy #6	;offset to MemID in master pointer
	lda #$0001	;special unkillable memory ID
	sta [1],y
	pla
	pla
	pld

** chain into a Memory Manager vector so we get control very early

	php
	sei
	lda >$e11684
	sta MMChain
	lda >$e11684+2
	sta MMChain+2
	lda MMJump
	sta >$e11684
	lda MMJump+2
	sta >$e11684+2
	plp

	sep #$30
	brl Debug1


MMJump	jml >RehookMe

RehookMe	pushlong #My_Task
	jsr BeforeDebuggerToolCall
	_SetHeartBeat
	jsr AfterDebuggerToolCall
	pea 2
	_IntSource
MMChain	jml >$777777


*******************************************************
*
* N command
*
* New command 11-Oct-90 Dave Lyons
*
* N calls a vector set up by the _DebugSetHook call.
* Command-line pointer passed to the hook in XA.
*
*******************************************************

DoNCmd	rep #$30
	longa on
	longi on

	lda JumpToHook+1
	ora JumpToHook+2
	beq noHook

	lda >$e0c035
	pha
	and #$fffe	;was $fff7 2-Nov-90 DAL (OOPS!)
	sta >$e0c035

	ldx #^InputBuffer
	lda #<InputBuffer
	ldy #0
JumpToHook	jsl >$000000	;MODIFIED by _DebugSetHook call

	phk
	plb	;be paranoid

	pla
	sta >$e0c035

noHook	sep #$30
	brl Debug1

*******************************************************
;
;  SET Breakpoints
;
*******************************************************

	longa off
	longi off	;DAL 11-Oct-90

BPquit	bit BPIO	; Should breakpoints be put back in?
	bpl BPquit2	; Nope

	stz BPIO	; Say that they are out to make BPIN happy.
	jsr DoBPIN	; Put them back in.

BPQuit2	brl Debug1

BPCMD	bit BPIO	; Are breakpoints in?
	bpl BPCMD1	; Nope.

	jsr DoBPOUT	; Remove breakpoints.
	sec	; Set flag saying they are in even though
	ror BPIO	; they are really out.

BPCMD1	jsr ON	;force display on
	lsr BPFLAG	;clear any high-
	jsr OUTALLBP	; lighted bp's

	ldx #0
BPx	txa
	clc
	adc R_BP
	tay
	lda BASELO,y
	sta BASL
	lda BASEHI,y
	sta BASH
	stz COUNT	;left field
BPz	stz AL
	stz AH
	stz AB

BPcurse	ldy #C_BP+7
	lda #'-'	;chr to flash
	bit COUNT	;right field ?
	bpl BPcc	; no
	ldy #C_BP+$A	;yes
BPcc	jsr CURSE	;curse ':' at BASL/H,y

	cmp #'?'
	bne BPesc
	jsr HELPOUTbp	;HELP screen, WAITKEY
BPesc	cmp #$9B
	beq BPquit	;ESC
	cmp #$95
	beq BPfor	;ctrl-U
	cmp #$88
	beq BPback	;ctrl-H
	cmp #$89	;Tab (DAL)
	beq @bpTab
	cmp #$8B
	beq BPup	;ctrl-K
	cmp #$8A
	beq BPdown	;ctrl-J
	cmp #$8D
	beq BPdown	;RETURN
	cmp #$FF
	bne @1
	brl BPkill	;DELETE
@1	cmp #$A0	;DAL: Space sets count to 1
	beq @bpCountToggle	;DAL 10-Apr-91 DAL
	jsr UpShift
	cmp #'I'	; was it an I???
	bne BPBank
	brl BPUseIf	; use the IF!

@bpCountToggle	lda BPTriggerTable,x
	bne @bpCountZero
@bpCountOne	lda #$80
	sta BPActiveTable,x
	lda #1
@bpCount01	sta BPTriggerTable,x
	ldy #C_BP+8
	lda #'0'
	jsr OUT
	iny
	lda BPTriggerTable,x
	ora #'0'
	jsr OUT
	bra BPcurse

@bpCountZero	stz BPActiveTable,x
	bra @bpCount01

@bpTab	bit COUNT
	bmi BPback
	bra BPfor

BPbank	bit COUNT
	bmi BPhex	;ignore bank for right field
	cmp #'/'	;bank delimiter?
	beq BPcurse	; yes--ignore

BPhex	stz BPActiveTable,x ;22-May-93 JCM - if addr is set to zero, this is now inactive
	phx
	jsr NEEDHEX
	plx
	bcc @1
	brl BPCurse
@1
BPset	jsr BPshow
	brl BPcurse

BPback	lda #0
	bra BPsetC
BPfor	lda #$80
BPsetC	sta COUNT	;right field
	phx
	jsr OUTBP
	plx
goBPz	brl BPz

BPup	dex
	bpl BPnext
	ldx N_BP
	dex
	bra BPnext

BPdown	inx
	cpx N_BP
	blt BPnext
	ldx #0
BPnext	phx
	jsr OUTBP
	plx
	brl BPx

BPkill	lda N_BP
	cmp #1
	beq goBPz
	phx
BPkilloop	inx
	cpx N_BP
	beq BPkillend
	lda BPActiveTable,x
	sta BPActiveTable-1,x
	lda BPAddrLowTable,x
	sta BPAddrLowTable-1,x
	lda BPAddrHighTable,x
	sta BPAddrHighTable-1,x
	lda BPAddrBankTable,x
	sta BPAddrBankTable-1,x
	lda BPCountTable,x
	sta BPCountTable-1,x
	lda BPTriggerTable,x
	sta BPTriggerTable-1,x
	bra BPkilloop

BPkillend	ldx N_MP
	stz MP1L,x
	stz MP1H,x
	stz MP1B,x
	stz MP2L,x
	stz MP2H,x
	stz MP2B,x
	stz MPA,x
	inc N_MP
	dec R_MP
	dec N_BP
	jsr OUTALLBP
	jsr OUTBMLINE	;blank line between BP/MP
	jsr OUTALLMP
	plx
	cpx N_BP
	blt goBPx
	ldx #0
goBPx	brl BPx

BPshow	bit COUNT
	bmi BPshowR	;right field

	lda AL	;left field
	sta BPAddrLowTable,x
	lda AH
	sta BPAddrHighTable,x
	lda AB
	sta BPAddrBankTable,x
	ldy #C_BP
	jsr OutAB_ADDR
;	jsr OUTHEX
;	jsr OUTslash
;	lda AH
;	xba
;	lda AL
;	jsr OUTADDR
	bra BPactive

BPshowR	lda AL
	sta BPTriggerTable,x
	ldy #C_BP+8
	jsr OUTHEX

BPactive	lda #$80
	sta BPActiveTable,x
	lda #0
	sta BPCountTable,x
	rts
; The following is called if the user hits an I If the field is the right field then
; we use the If designator instead.
BPUseIf
	bit COUNT	; see if we are the right field
	bmi @ItsRight	; if so, use it!
	brl goBPz	; if not just return
@ItsRight	lda #$C0	; set the BPActiveTable Flag as well as the IF Flag
	sta BPActiveTable,x
	lda #$FF	; put trigger up to $FF
	sta BPTriggerTable,x
	inc a
	sta BPCountTable,x	; reset counter
	ldy #C_BP+8	; get the proper column to print
	lda #'I'	; print an IF
	jsr OUT
	iny
	lda #'F'
	jsr OUT
	brl BPcurse	; and back up to get more info

*******************************************************

ShowBrkCmd	jsr ON
	jsr SAVEdis
	jsr OutText0
	dc.w BrkMsg
	stz DispOSBrkFlag	; flag displaying tool breaks
	ldx #2
	lda NumTBrk
	asl a
	tay
@TLoop	jsr SETBASE
	dey
	dey
	bmi @DoOSBrks
	phy
	lda TBrks,y
	sta T1
	lda TBrks+1,y
	sta T1+1
	ldy #0
	jsr ShowT1
	iny
	iny
	jsr ShowName
	ply
	inx
	bra @TLoop

@DoOSBrks	dec DispOSBrkFlag	; flag the print routine that we are showing  OSBrks
	ldx #2
	lda NumOSBrk
	asl a
	tay
@ELoop	jsr SETBASE
	dey
	dey
	bmi @Done
	phy
	lda OSBrks,y
	sta T1
	lda OSBrks+1,y
	sta T1+1
	ldy #40
	jsr ShowT1
	iny
	iny
	jsr ShowName
	ply
	inx
	bra @ELoop

@Done	jsr OUTesc
	brl Input

ShowT1
; this routine will print the contents of T1 to the screen at the current location
	lda #'#'
	jsr OUT
	lda T1+1
	jsr OUTHEX
	lda T1
	jsr OUTHEX
	rts

ShowName	phy
	phx
	rep #$30	; Need to be in full native mode to get
	longa ON	;  the name of the tool call.
	longi ON
	pha	; Push space for the result.
	pha
	lda T1	; Push the tool number.
	pha
	lda DispOSBrkFlag	; see whether to get tool name or OS name
	beq @DoGetTName
	jsl GetDOSName
	bra @DoneGotName
@DoGetTName	jsl GetToolName	; Get the name.
@DoneGotName	pla	; Get the low word of the address of the name.
	sta T1
	pla	; Throw away the high word.
	sep #$30	; We can go back to short mode now.
	longa OFF
	longi OFF

	plx
	ply

@2	lda (T1)
	beq @3
	ora #$80
	jsr OUT
	iny
	inc T1
	bne @2
	inc T1+1
	bra @2

@3	rts
DispOSBrkFlag	dc.W 1


*******************************************************

TBrkInCmd	lda #$80
	sta TBrkIn
	brl Debug1

TBrkOutCmd	stz TBrkIn
	brl Debug1


**********************************************************************************
*
* ShowSRQBreaksCmd - Shows all of the currently set SendRequest breaks
*
*

ShowSRQBreaksCmd	jsr ON
	jsr SAVEdis
	jsr OutText0
	dc.w SRQBreakMessage

	ldx #2	;vertical line number
	lda NumSRQBreaks
	asl a
	tay

@SRQLoop	jsr SETBASE

	dey
	dey
	bmi @Done

	phy

	lda SRQBreaks,y
	sta T1
	lda SRQBreaks+1,y
	sta T1+1

	ldy #0
	jsr ShowT1	;show the hex request number

	iny
	iny

	phy
	phx
	rep #$30	; Need to be in full native mode to get
	longa ON	;  the name of the request
	longi ON
	pha	; Push space for the result.
	pha
	lda T1	; Push the request number.
	pha
	jsl GetRequestName	; Get the name.
	pla	; Get the low word of the address of the name.
	sta T1
	pla	; Throw away the high word.
	sep #$30	; We can go back to short mode now.
	longa OFF
	longi OFF

	plx
	ply

@2	lda (T1)
	beq @3
	ora #$80
	jsr OUT
	iny
	inc T1
	bne @2
	inc T1+1
	bra @2

@3	ply

	inx

	bra @SRQLoop

@Done	jsr OUTesc
	brl Input

;------------------------------------------------------------
;
SetIfCmd
; This command will set up the comparison for the conditional break point
; It will be responsible for parsing our the rest of the command line
;
	sta >$FE1234	; trigger the analyzer capture
	jsr SkipSpace	; skip leading spaces from the command line
	iny
	jsr UpShift
	cmp #'B'	; is it byte wise compare
	beq @CmpByte
	cmp #'W'	; word wise compare
	beq @CmpWord
	cmp #'P'	; bit test?
	beq @CmpWord
	cmp #'J'
	beq @CmpWord
	brl ErrCmd	; else call error command
@CmpByte	lda #$20	; to set longa off
	bra @Cmp0010
@CmpWord	lda #$00
@Cmp0010	sta TheIFWidth	; save the width of the statement
	jsr SkipSpace	; skip the spaces again
	jsr UpShift
	iny	; be sure to bump <Y> to the proper address
	cmp #'$'	; is it a hex constant?
	beq @PickAddress1	; if so pick it from the input and set it
; If we get here we are going to have to scan the table of identifiers for the address
	jsr @PickRegister	; get the register address into <A><X>
	bcc @SetAddress1
	brl ErrCmd	; if carry set from pickregister then not valid
@PickAddress1
	jsr GetHex	; this routine gets a hex long from IN
	bcs @ERROut
	lda AB	; get the bank passed
	tax	; save it in <X>
	lda AH
	xba	; middle byte in <B>
	lda AL
@SetAddress1	sta TheIfAddr1	; save the low byte
	xba
	sta TheIfAddr1+1	; and the next
	txa
	sta TheIfAddr1+2
	jsr SkipSpace	; kill any white space
	iny	; got char in <A> now bump
	ldx #0
; now find the operator
@Cmp0020	cmp OpTbl,x
	beq @CmpGotOperator
	inx
	inx
	cpx #8	; done with the table?
	bne @Cmp0020
	brl ErrCmd	; else we got an error
@CmpGotOperator	inx	; bump by 1 to get the opcode
	lda OpTbl,x	;
	sta TheIFCompare	; and use it as the proper opcode
; now set the second address
	jsr SkipSpace	; skip the spaces again
	jsr UpShift
	iny	; be sure to bump <Y> to the proper address
	cmp #'$'	; is it a hex constant?
	beq @PickAddress2	; if so pick it from the input and set it
	cmp #'#'	; is it an imediate value?
	beq @PickConstant2
; If we get here we are going to have to scan the table of identifiers for the address
	jsr @PickRegister	; get the register address into <A><X>
	bcc @SetAddress2
@ErrOut	brl ErrCmd	; if carry set from pickregister then not valid
@PickConstant2
	iny
	jsr GetHex
	bcs @ErrOut
	lda AL
	sta theConstant
	lda AH
	sta theConstant+1
	lda #theConstant>>16 ; set address 2 to be that of our constant
	tax
	lda #theConstant>>8
	xba
	lda #theConstant
	bra @SetAddress2
@PickAddress2
	jsr GetHex	; this routine gets a hex long from InputBuffer
	bcs @ErrOut
	lda AB	; get the bank passed
	tax	; save it in <X>
	lda AH
	xba	; middle byte in <B>
	lda AL

@SetAddress2	sta TheIfAddr2	; save the low byte
	xba
	sta TheIfAddr2+1	; and the next
	txa
	sta TheIfAddr2+2
; At this point the conditional break has been picked and set
	brl Debug1	; so return to the debugger

; the following routine will 'pick' the register address from input
; It will return the register address for the register specifier in <A><X>
;
@PickRegister
	ldx #0	; init our counter
@PR0010	cmp RegTbl,x	; is this the proper register?
	beq @GotRegister	; if so we got the register
	inx
	inx
	inx
	inx
	cpx #56	; are we done?
	bne @PR0010
	sec	; flag an error
	rts	; and return
@GotRegister
	lda RegTbl+1,x	; get the address for this register
	pha
	lda RegTbl+2,x
	xba
	lda RegTbl+3,x
	tax
	pla
	clc
	rts
;
; Self modifyed code that performs the requested IF command that you asked for
; This code will be called when the rtbreak occurs At the end we have all the equates
; that will be used to self modify this routine
;
	Export TheIF
TheIF	sep #$00	; possibly set short <A>
	lda >$FF0000	; first address
TheIFOperation	cmp >$FF0000	; second address
TheIFCompare	bra @testok
	clc	; set the fail bit
	rtl
@testOK	sec
	rtl
TheIFWidth	equ TheIF+1
TheIfAddr1	equ TheIf+3
TheIfAddr2	equ TheIFOperation+1
theConstant	dc.W 0
;
RegTbl	dc.B 'A',$08,$01,$E1 ;irq_A
	dc.B 'X',$0A,$01,$E1 ;irq_X
	dc.B 'Y',$0C,$01,$E1 ;irq_Y
	dc.B 'S',$0E,$01,$E1 ;irq_S
	dc.B 'D',$10,$01,$E1 ;irq_D
	dc.B 'P',$12,$01,$E1 ;irq_P
	dc.B 'B',$13,$01,$E1 ;irq_B
	dc.B 'E',$14,$01,$E1 ;irq_e
	dc.B 'X',$15,$01,$E1 ;irq_PCK
	dc.B 'X',$16,$01,$E1 ;irq_PC
	dc.B 'M',$18,$01,$E1 ;irq_M
	dc.B 'X',$19,$01,$E1 ;irq_Shadow
	dc.B 'X',$1A,$01,$E1 ;irq_CYA
	dc.B 'X',$1B,$01,$E1 ;irq_MSlot

OpTbl	dc.B '=',$F0	; BEQ
	dc.B '#',$D0	; BNE
	dc.B '<',$90	; BCC (BLT)
	dc.B '>',$B0	; BCS (BGE)

; This routine will insure that the current IN,y is non-space by skipping all
; spaces in its way.
SkipSpace	lda InputBuffer,y
	cmp #$A0
	bne @KeepIt
	iny
	bra SkipSpace
@KeepIt	rts


*********************************************************************************************
*
* GetTNum, GetOSNum, and GetReqNum routine
*
* (This code was duplicated for SetTBrk, ClrTBrk, SetOSBrk, and ClrOSBrk)
*
* 11-Oct-90 DAL
*
* 28-Mar-93 JCM - Added another entry point for request numbers.
*

GetReqNum	lda #2	;28-Mar-93 JCM
	bra getnumCommon	;28-Mar-93 JCM
GetOSNum	lda #1
	bra getnumCommon
GetTNum	lda #0
getnumCommon	sta getnumOSFlag
	ldy inputBufIndexAfterCmd ;29-Mar-93 JCM - make sure we're right after the command
	jsr SkipSpace
	iny
	cmp #'_'
	beq @GetTNum
	cmp #'#'
	beq @GetTName
@Error	brl tnErrCmd

@GetTNum	ldx #0
@1	lda InputBuffer,y
	sta ToolName,x
	iny
	inx
	cpy BufLen
	bge @2
	cpx #ToolLen-1
	blt @1

@2	stz ToolName,x	; A zero signifies the end of the string.
	lda #$00
	xba
	phk
	pla
	rep #$30	; We must be in full native mode for the call.
	longa ON
	longi ON
	pha	; Store space for the result.
	pha	; Push high word of the address.
	lda #ToolName
	pha	; Push the low word of the address.
	jsl GetToolOrOSNum	; Go get the tool number.
	pla
	sta AL
	sep #$30
	longa OFF
	longi OFF
	bne tnGotNum
	brl tnErrCmd

@GetTName	jsr GetHex	; Go get the hex value.
	bcc tnGotNum
tnErrCmd	sec
	rts
tnGotNum	clc
	rts

GetToolOrOSNum	lda getnumOSFlag
;	bne @os	;28-Mar-93 JCM

*** Added - 28-Mar-93 JCM

	beq @tool	;=0
	
	dec a
	beq @os	;=1

@req	brl GetRequestNumber

*** End - 28-Mar-93 JCM

@tool	brl GetToolNumber
@os	brl GetDOSNumber

getnumOSFlag	dc.w 0

*********************************************************************************************
*
* SetTBrkCmd - 
*

SetTBrkCmd	jsr GetTNum
	bcc @1

*** Added - 29-Mar-93 JCM - If this doesn't match, allow it to cascade down to see if they
***	        were trying to add an OSBrk. If that fails, it'll cascade down to
***	        finally see if it was an SRQ break.

	brl SetOSBrkCmd

*** End - 29-Mar-93 JCM

@1	rep #$30
	longa on
	longi on

	jsr SetToolBreakCore

	sep #$30

;;;	brl Debug1
	brl TBrkInCmd	;12-Feb-92 DAL

	longa on
	longi on

SetToolBreakCore	lda NumTBrk	; See if it is already there.
	and #$00FF
	cmp #MAXTBrk	; Is there more room?
	beq @tableFull

	asl a
	tay
	lda AL
@RepeatLp	dey
	dey
	bmi @NoRepeat

	cmp TBrks,y
	beq @dupBreak

	bra @RepeatLp

@NoRepeat	lda NumTBrk
	and #$00FF
	asl a
	tay
	lda AL
	sta TBrks,y
	inc NumTBrk

	lda #0	;no error
	
	bra @exit

@dupBreak	lda #debugDupBreakErr

	bra @exit

@tableFull	lda #debugTableFullErr

@exit	cmp #1	;condition the carry bit

	rts

	longa off
	longi off

*********************************************************************************************
*
* ClrTBrkCmd
*
* Syntax:  ClrTBrk _toolfuncname
*          ClrTBrk #hexfuncnumber
*          ClrTBrk                      ;clears all toolbreaks
*

ClrTBrkCmd
*** added 12-Feb-92 DAL -- if you don't specify what to clear, clear all breaks
	jsr SkipSpace
	tax
	beq ClrAllTBrkCmd
*** end 12-Feb-92
	jsr GetTNum
	bcc @1
	
*** Added - 11-May-93 JCM - If this doesn't match, allow it to cascade down to see if they
***	        were trying to clear an OSBrk. If that fails, it'll cascade down to
***	        finally see if it was an SRQ break.

	brl ClrOSBrkCmd

*** End - 11-May-93 JCM

@1
	rep #$30
	longa on
	longi on

	jsr ClearToolBreakCore

	sep #$30

	brl Debug1

	longa on
	longi on

ClearToolBreakCore	lda NumTBrk
	and #$00FF	;is the table currently empty?
	beq @tableEmpty	; yep, tell 'em about it
	
	asl a
	tay
	lda AL
@RepeatLp	dey
	dey
	bmi @notFound
	
	cmp TBrks,y
	beq @Found
	
	bra @RepeatLp

@Found	dec NumTBrk
	beq @noError
	
	lda NumTBrk
	and #$00FF
	asl a
	tax
	lda TBrks,x
	sta TBrks,y

@noError	lda #0

	bra @exit

@tableEmpty	lda #debugTableEmptyErr

	bra @exit

@notFound	lda #debugBreakNotSetErr

@exit	cmp #1

	rts

	longa off
	longi off

*********************************************************************************************
*
* ClrAllTBrkCmd -
*

ClrAllTBrkCmd	jsr ClearAllToolBreaksCore
	
;;;	brl Debug1
	brl TBrkOutCmd	;12-Feb-92 DAL

ClearAllToolBreaksCore php

	sep #$30
	
	longa off
	longi off

	lda NumTBrk
	asl a
	tay
@Loop	dey
	bmi @Done
	sta TBrks,y
	bra @Loop

@Done	stz NumTBrk

	lda #0
	xba
	lda #0
	
	plp

	clc

	rts

*********************************************************************************************
*
* CkTBrk:
*
* Check whether the tool number in CurTool (word) has a TBrk set for it.
* Returns CLC if the break is set for the toolcall.
*
* Inputs:  CurTool
*          TBrks table
*
* Outputs: carry flag
*
* Called with any sized registers.
*

CkTBrk	php
	sei	;added 12-Jun-91 DAL (php/plp was already here!)

	rep #$30
	longa on
	longi on

	sta CurTool

	lda NumTBrk
	and #$00FF
	beq @tableEmpty
	
	asl a
	tay
@loop	dey
	dey
	bmi @notFound
	
	lda TBrks,y
	beq @match
	
	cmp CurTool
	bne @loop

@match	lda #0

	plp

	clc

	rts

@tableEmpty	lda #debugTableEmptyErr
	
	bra @errExit

@notFound	lda #debugBreakNotSetErr

@errExit	plp

	sec
	
	rts

	longa off
	longi off

CurTool	dc.w $0000

*********************************************************************************************
*
* OSBrkInCmd -
*

OSBrkInCmd	lda #$80
	sta OSBrkIn
	brl Debug1

*********************************************************************************************
*
* OSBrkOutCmd - 
*

OSBrkOutCmd	stz OSBrkIn
	brl Debug1

*********************************************************************************************
*
* SetOSBrkCmd - SetOSBrk _Name   or SetOSBrk #number
*

SetOSBrkCmd	jsr GetOSNum
	bcc @1

*** Added - 29-Mar-93 JCM - If this doesn't match, allow it to cascade down to see if they
***	        were trying to add a request break. If that fails, then we're
***	        done.

	brl SetSRQBreakCmd

*** End - 29-Mar-93 JCM

@Error	brl ErrCmd

@1	rep #$30
	longa on
	longi on

	jsr SetOSBreakCore

	sep #$30

;;;	brl Debug1
	brl OSBrkInCmd	;12-Feb-92 DAL

	longa on
	longi on

SetOSBreakCore	lda NumOSBrk	; See if it is already there.
	and #$00FF
	cmp #MAXOSBrk	;is there more room?
	beq @tableFull	; nope

	asl a
	tay
	lda AL
@RepeatLp	dey
	dey
	bmi @NoRepeat

	cmp OSBrks,y	;is it already in the table?
	beq @dupBreak	; yep, tell 'em about it

	bra @RepeatLp

@NoRepeat	lda NumOSBrk
	and #$00FF
	asl a
	tay
	lda AL
	sta OSBrks,y
	inc NumOSBrk

	lda #0	;no error
	
	bra @exit

@dupBreak	lda #debugDupBreakErr

	bra @exit

@tableFull	lda #debugTableFullErr

@exit	cmp #1	;condition the carry bit

	rts

	longa off
	longi off

*********************************************************************************************
*
* ClrOSBrkCmd - 
*

ClrOSBrkCmd
*** added 12-Feb-92 DAL -- if you don't specify what to clear, clear all breaks
	jsr SkipSpace
	tax
	beq ClrAllOSBrkCmd
*** end 12-Feb-92
	jsr GetOSNum
	bcc @1

*** Added - 11-May-93 JCM - If this doesn't match, allow it to cascade down to see if they
***	        were trying to clear an SRQ break.

	brl ClearSRQBreakCmd

*** End - 11-May-93 JCM

@1
	rep #$30
	longa on
	longi on

	jsr ClearOSBreakCore
	
	sep #$30

	brl Debug1

	longa on
	longi on

ClearOSBreakCore	lda NumOSBrk	; Find it.
	and #$00FF
	beq @tableEmpty	;they're aren't any OS breaks

	asl a
	tay
	lda AL
@RepeatLp	dey
	dey
	bmi @notFound

	cmp OSBrks,y
	beq @Found

	bra @RepeatLp

@Found	dec NumOSBrk
	beq @noError

	lda NumOSBrk
	and #$00FF
	asl a
	tax
	lda OSBrks,x
	sta OSBrks,y

@noError	lda #0

	bra @exit

@tableEmpty	lda #debugTableEmptyErr

	bra @exit

@notFound	lda #debugBreakNotSetErr

@exit	cmp #1

	rts

	longa off
	longi off

*********************************************************************************************
*
* ClrAllOSBrk -
*

ClrAllOSBrkCmd	jsr ClearAllOSBreaksCore

;;;	brl Debug1
	brl OSBrkOutCmd	;12-Feb-92 DAL

ClearAllOSBreaksCore php

	sep #$30
	
	longa off
	longi off

	lda NumOSBrk
	asl a
	tay
@Loop	dey
	bmi @Done
	sta OSBrks,y
	bra @Loop

@Done	stz NumOSBrk

	lda #0
	xba
	lda #0
	
	plp

	clc

	rts

*********************************************************************************************
*
* CkOSBrk - Check for OS Break.
*
* Inputs:  CurTool (OS call number)
*          NumOSBrk (number of OS breaks in table)
*          OSBrks table
*
* Output:  carry flag (clc=found a break)
*

CkOSBrk	php
	sei	;added 17-May-93 JCM

	rep #$30
	longa on
	longi on

	sta CurTool

	lda NumOSBrk
	and #$00FF
	beq @tableEmpty

	asl a
	tay
@loop	dey
	dey
	bmi @notFound

	lda OSBrks,y
	beq @match

	cmp CurTool
	bne @loop

@match	lda #0

	plp

	clc

	rts

@tableEmpty	lda #debugTableEmptyErr
	
	bra @errExit

@notFound	lda #debugBreakNotSetErr

@errExit	plp

	sec
	
	rts

	longa off
	longi off

*** Added - 25-Mar-93 JCM - This is a mechanism to break on certain SendRequest codes.

*********************************************************************************************
*
* SetSRQBreakCmd - Sets a silent tool break on SendRequest for a specific request code.
*
*

SetSRQBreakCmd	jsr GetReqNum
	bcc @1
	
	brl ErrCmd

@1	rep #$30
	longa on
	longi on

	jsr SetSRQBreakCore

	sep #$30

	brl SRQBreaksInCmd

	longa on
	longi on

* Let's see if this break is already in our table.

SetSRQBreakCore	lda NumSRQBreaks	;Is there more room?
	cmp #MAXSRQBreaks
	beq @tableFull	; nope

	asl a	;for table index
	tay
	lda AL

@checkNext	dey
	dey
	bmi @addNewReq	;are we there yet, Jim?
	
	cmp SRQBreaks,y	;does this request match this table entry?
	beq @dupBreak	; yup, don't re-add it

	bra @checkNext

@addNewReq	lda NumSRQBreaks
	asl a
	tay
	lda AL
	sta SRQBreaks,y
	
	inc NumSRQBreaks	;one more request is in the table

	lda #0	;no error
	
	bra @exit

@dupBreak	lda #debugDupBreakErr

	bra @exit

@tableFull	lda #debugTableFullErr

@exit	cmp #1	;condition the carry bit

	rts

	longa off
	longi off

*********************************************************************************************
*
* ClearSRQBreakCmd -
*
* Syntax:  ClearSRQBreak _requestname
*          ClearSRQBreak #hexrequestnum
*          ClearSRQBreak                      ;clears all SendRequest breaks
*
*

ClearSRQBreakCmd	jsr SkipSpace
	tax
	beq ClearAllSRQBreaksCmd

	jsr GetReqNum
	bcc @1

	brl ErrCmd
@1
	rep #$30

	longa on
	longi on
	
	jsr ClearSRQBreakCore
	
	sep #$30

	brl Debug1	

	longa on
	longi on
	
ClearSRQBreakCore	lda NumSRQBreaks		;find it
	beq @tableEmpty

	asl a
	tay
	lda AL
@RepeatLp	dey
	dey
	bmi @notFound

	cmp SRQBreaks,y
	bne @RepeatLp

@Found	dec NumSRQBreaks
	beq @noError

	lda NumSRQBreaks
	asl a
	tax
	lda SRQBreaks,x
	sta SRQBreaks,y

@noError	lda #0

	bra @exit

@tableEmpty	lda #debugTableEmptyErr

	bra @exit

@notFound	lda #debugBreakNotSetErr

@exit	cmp #1

	rts

	longa off
	longi off

*********************************************************************************************
*
* ClrAllSRQBrkCmd -
*
*

ClearAllSRQBreaksCmd jsr ClearAllSRQBreaksCore

	brl SRQBreaksOutCmd

ClearAllSRQBreaksCore php

	sep #$30
	
	longa off
	longi off

	lda NumSRQBreaks
	asl a
	tay
@Loop	dey
	bmi @Done

	sta SRQBreaks,y

	bra @Loop

@Done	stz NumSRQBreaks

	lda #0
	xba
	lda #0
	
	plp

	clc

	rts

*********************************************************************************************
*
* CheckSRQBreak - Check whether the request number in CurRequest (word) has a SRQBrk set for it,
*                 if the current tool call is SendRequest.
*
*	Returns clc=yes.
*
* Inputs:  CurRequest
*          SRQBreaks table
*
* Outputs: carry flag
*
* Called with any register size.
*
*

CheckSRQBreak	php

	sei

	rep #$30
	
	longa on
	longi on
	
	ldx ToolBrkNum
	cpx #$1C01	;SendRequest
	bne notFound
	
	bra SRQCore2

CheckSRQBreakCore	php

	rep #$30

	longa on
	longi on

SRQCore2	sta CurRequest

	lda NumSRQBreaks
	beq @tableEmpty

	asl a
	tay
@Loop	dey
	dey
	bmi notFound

	lda SRQBreaks,y
	beq @Match

	cmp CurRequest
	bne @Loop
	
@match	lda #0

	plp

	clc

	rts

@tableEmpty	lda #debugTableEmptyErr
	
	bra exitSRQ

notFound	lda #debugBreakNotSetErr

exitSRQ	plp

	sec

	rts

	longa off
	longi off

CurRequest	dc.w $0

*********************************************************************************************
*
* SRQBreaksInCmd - 
*

SRQBreaksInCmd	lda #$80
	sta SRQBreaksIn
	
	brl Debug1

*********************************************************************************************
*
* SRQBreaksOutCmd -
*

SRQBreaksOutCmd	stz SRQBreaksIn

	brl Debug1

*** End - 25-Mar-93 JCM

*******************************************************
;
;  SET Memory Protects
;
*******************************************************

MPquit	brl Debug1

MPCMD	jsr ON	;force display on
	ldx #0
MPx	txa
	clc
	adc R_MP
	tay
	lda BASELO,y
	sta BASL
	lda BASEHI,y
	sta BASH
	stz COUNT	;left field
MPz	stz AL
	stz AH
	stz AB

MPcurse	ldy #C_MP+7
	lda #'.'	;chr to flash
	bit COUNT	;right field ?
	bpl MPc	; no
	ldy #C_MP+$C	;yes
	lda #'-'
MPc	jsr CURSE	; curse ':' at BASL/H,y

	cmp #'?'
	bne MPesc
	jsr HELPOUTmp	;HELP screen, WAITKEY

MPesc	cmp #$9B
	beq MPquit	;ESC
	cmp #$95
	beq MPfor	;ctrl-U
	cmp #$88
	beq MPback	;ctrl-H
	cmp #$8B
	beq MPup	;ctrl-K
	cmp #$89	;Tab (10-Apr-91 DAL)
	bne @notTab
	bit COUNT
	bmi MPback
	bra MPfor	;end of 10-Apr-91 DAL
@notTab	cmp #$8A
	beq MPdown	;ctrl-J
	cmp #$8D
	beq MPdown	;RETURN
	cmp #$FF
	beq MPkill	;DELETE

	jsr UpShift
	ldy #MP_H
	cmp #'H'
	beq MPchoose
	ldy #MP_T
	cmp #'T'
	beq MPchoose
	ldy #MP_W
	cmp #'W'
	bne MPbank

MPchoose	tya
	sta MPA,x
	phx
	jsr OUTMP
	plx
	bra MPcurse

MPbank	bit COUNT
	bmi MPhex	;ignore bank for right field
	cmp #'/'	;bank delimiter?
	beq MPcurse	; yes--ignore

MPhex	phx
	jsr NEEDHEX
	plx
	bcs MPcurse

MPset	jsr MPshow
	bra MPcurse

MPback	lda #0
	bra MPsetC
MPfor	lda #$80
MPsetC	sta COUNT	;right field
	phx
	jsr OUTMP
	plx
goMPz	brl MPz

MPup	dex
	bpl MPnxt
	ldx N_MP
	dex
	bra MPnxt

MPdown	inx
	cpx N_MP
	blt MPnxt
	ldx #0
MPnxt	phx
	jsr OUTALLMP
	plx
	brl MPx

MPkill	lda N_MP
	cmp #1
	beq goMPz
	phx
MPkilloop	inx
	cpx N_MP
	beq MPkillend
	lda MP1L,x
	sta MP1L-1,x
	lda MP1H,x
	sta MP1H-1,x
	lda MP1B,x
	sta MP1B-1,x
	lda MP2L,x
	sta MP2L-1,x
	lda MP2H,x
	sta MP2H-1,x
	lda MP2B,x
	sta MP2B-1,x
	lda MPA,x
	sta MPA-1,x
	bra MPkilloop

MPkillend	ldx N_BP
	stz BPActiveTable,x
	stz BPAddrLowTable,x
	stz BPAddrHighTable,x
	stz BPAddrBankTable,x
	stz BPTriggerTable,x
	stz BPCountTable,x
	jsr OUTBP
	inx
	stx N_BP
	inc R_MP
	dec N_MP
	jsr OUTBMLINE
	jsr OUTALLMP
	plx
	cpx N_MP
	blt goMPx
	ldx #0
goMPx	brl MPx

MPshow	bit COUNT
	bmi MPshowR	;right field

	lda AL	;left field
	sta MP1L,x
	lda AH
	sta MP1H,x
	lda AB
	sta MP1B,x
	ldy #C_MP
	brl OutAB_ADDR

;	jsr OUTHEX
;	jsr OUTslash
;	lda AH
;	xba
;	lda AL
;	brl OUTADDR

MPshowR	lda AB
	sta MP2B	;not used in this version
	lda AH
	sta MP2H,x
	xba
	lda AL
	sta MP2L,x
	ldy #C_MP+8
	brl OUTADDR


*******************************************************
;
;   SET -- Set stack ptr & disassembly instruction
;          highlight bars
;
*******************************************************

SETquit	ldx I_OPC
	jsr SETBASE
	jsr CLINE
	brl Debug1

SETCMD	jsr ON	;force display on
	jsr ClearDis
	lda BASELO+$17	;last row
	ldx BASEHI+$17
	jsr OUTtext1
	DC.W SETtext
	lda PTRslot
	ora #$B0
	jsr PROUT

	lda #C_OPC
	sta LEFT	;(for CLINE & ILINE)
	lda #$4F
	sta RIGHT
	ldx I_OPC
	jsr SETBASE
	jsr ILINE

*** Added - 13-May-93 JCM - For showing toolbox prototypes on the command line.

ShowProtoMode	jsr SetBase17

	ldy #52

	bit DisplayPrototypes
	bmi @1

	lda #'F'
	jsr PROUT
	jsr PROUT

	bra ShowDMode
	
@1	lda #'N'
	jsr PROUT

	lda #$A0
	jsr PROUT

*** End - 13-May-93 JCM

ShowDMode	jsr SetBase17
	ldy #18
	bit DumpAlign
	bmi @1
	lda #'F'
	jsr PROUT
	jsr PROUT
	bra SETWAITKEY
@1	lda #'N'
	jsr PROUT
	lda #$A0
	jsr PROUT

SETWAITKEY	jsr WAITKEY
	cmp #$9B
	beq SETquit	;ESC

*** Added - 13-May-93 JCM - For showing toolbox prototypes on the command line.

	cmp #'P'
	beq @toggleProto
	cmp #'p'
	bne @checkOthers

@toggleProto	lda DisplayPrototypes
	eor #$80
	sta DisplayPrototypes
	
	bra ShowProtoMode

@checkOthers

*** End - 13-May-93 JCM

	cmp #'S'
	beq ToggleStk
	cmp #'s'
	beq ToggleStk

	cmp #'D'
	beq ToggleDump
	cmp #'d'
	beq ToggleDump

	cmp #'0'
	blt SETh
	cmp #'8'
	bge SETh
	pha
	jsr SetBase17
;	ldy #71	;13-May-93 JCM
	ldy #78	;13-May-93 JCM
	pla
	jsr PROUT	;print slot #
	and #7
	sta PTRslot	;set slot #
	bra SETWAITKEY

SETh	ldy I_STK
	cmp #$88	;ctrl-H ?
	bne SETr	; no
	cpy #R_STK	;yes--at limit?
	beq SETWAITKEY	;      yes
	dey
	bra SETISTK

SETr	cmp #$95	; ctrl-U ?
	bne SETu
	cpy #R_STK+N_STK-1
	beq SETWAITKEY
	iny

SETISTK	sty I_STK
	jsr OUTSTACK
	bra SETWAITKEY

SETu	pha	;save input chr
	ldx I_OPC	;last
	jsr SETBASE
	jsr CLINE

	pla
	cmp #$8B	;ctrl-K ?
	bne SETd
	cpx #R_OPC
	beq SHOWIOPC
	dex
	bra SETIOPC

SETd	cmp #$8A	;ctrl-J ?
	bne SHOWIOPC
	cpx #R_OPC+N_OPC-1
	beq SHOWIOPC
	inx

SETIOPC	stx I_OPC
SHOWIOPC	jsr SETBASE
	jsr ILINE
	brl SETWAITKEY


ToggleStk	lda StackMode
	eor #$80
	sta StackMode
	jsr OUTSTACK
	brl SETWAITKEY

ToggleDump	lda DumpAlign
	eor #$80
	sta DumpAlign
	brl ShowDMode

*****************************************************************************
;
;             List  (disassemble)
;
*****************************************************************************

LSTNEW	stz GotLDX	; We havn't seen an LDX #
	stz ProDOSFlag	; Reset the ProDOSCall block flag.

	lda AL
	sta LISTLO
	lda AH
	sta LISTHI
	lda AB
	sta LISTB

	jsr ON	;force display on
	jsr ClearDis

	lda #0
	jsr check_eRm
	adc #0
	sta MPVAL
	lda #0
	jsr check_eRx
	adc #0
	sta XPVAL

LSTCON	jsr ON	;force display on
	jsr SAVEPC
	sec
	ror AsmFlag
	ldy #N_OPC
	dey
	sty COUNT
	lda LISTLO
	sta PCL
	lda LISTHI
	sta PCH
	lda LISTB
	sta PCK

LSTLOOP	jsr INSDS2
	jsr DISASMOpt	; Deal with the disassembly mode.
	jsr DFUP
	jsr OUTOPC
	jsr PCADJ
	sta PCL
	sty PCH
	dec COUNT
	bpl LSTLOOP

	lda PCL
	sta LISTLO
	lda PCH
	sta LISTHI
	lda PCK
	sta LISTB
	jsr RESTPC
	jsr RESTOP
LSTout	brl Debug2

DISASMOpt	lda eR
	bmi DnDAOpt
	lda DDVAL	; Get the disassembly mode flag
	bmi DnDAOpt	; Ignore SEPs and REPs.

	lda TOPC	; Get the opcode.
	ldy #$00
	cmp #$C2	; Is it an REP?
	beq GotREPSEP	; Yes.
	ldy #$01
	cmp #$E2	; Is it an SEP?
	bne DnDAOpt	; No

; Deal with a REP or a SEP.

GotREPSEP	lda TOPRL	; Get the operand.
	and #$20	; See if the m bit is set.
	beq Checkx	; Nope.

	sty MPVAL	; Set or reset the m flag.

Checkx	lda TOPRL	; Get the operand again.
	and #$10	; See if the x bit is set.
	beq DNDAOpt	; Nope.

	sty XPVAL	; Set or reset the x flag.

DnDAOpt	rts	; All done.




*****************************************************
;
; PrintCmd -- Print current text screen to printer
;
*****************************************************

PrintCmd	rep #$30
	longa on
	longi on

	jsr BeforeDebuggerToolCall

	PushLong #0	;save output globals
	_GetOutGlobals	; on stack

	PushWord #0	;save output device
	PushLong #0	;info stays on stack
	_GetOutputDevice

	PushWord #$FF	;and
	PushWord #$80	;or
	_SetOutGlobals

	PushWord #0	;Basic
	PushWord #0
	PushWord PTRslot	;slot
	_SetOutputDevice

	PushWord #1	;init
	_InitTextDev

	jsr AfterDebuggerToolCall

	sep #$30
	longa off
	longi off

	lda #$8D
	jsr PRTcall	;return / linefeed

	ldx #0
PRTline	stx AL
	jsr SETBASE

	ldy #0
PRTchr	jsr OUTload	;get chr in A
	phy
	cmp #$A0
	bge PRTout
	cmp #$60
	bge add_40	;add 40
	cmp #$20
	bge add_80	;add 80
	clc
	adc #$40	;add C0
add_80	clc
	adc #$40
add_40	clc
	adc #$40
PRTout	jsr PRTcall
	ply
	iny
	cpy #80
	blt PRTchr

	lda #$8D
	jsr PRTcall
	ldx AL
	inx
	cpx #24
	blt PRTline

	rep #$30
	longa on
	longi on

	jsr BeforeDebuggerToolCall

	_SetOutputDevice	;restore the output device
	_SetOutGlobals	;restore the output globals

	jsr AfterDebuggerToolCall

	sep #$30
	longa off
	longi off
	rts
;
;  PRTcall -- chr at a time
;
PRTcall	rep #$30
	longa on
	longi on
	pha
	jsr BeforeDebuggerToolCall
	_WriteChar
	jsr AfterDebuggerToolCall
	sep #$30
	longa off
	longi off
	rts


	If ThisIsRAM = 2 goto .ApplQUIT

;
;  Unload command
;
;  sets a flag which is then used to dispose of
;  my ID and all of the 64k bank given to debugger
;  in case an application needs this memory
;  must re-boot machine to re-enable the debugger

Unload
	lda #$FF
	sta Quit_all	;set flag to say we are selling everything
	bra Resume2

*********************************************
;
;  Resume  command
;
*********************************************

Resume	stz Quit_all

Resume2	jsr ON	;force display on
	lda U_BREAK	;restore user BREAK
	sta >BRKV	; vector and
	lda U_BREAK+1
	sta >BRKV+1
	lda U_BREAK+2
	sta >BRKV+2	;  drop into MON

	jsr ClearAll

	lda SHADOW
	and #$5E	;enable shadowing
	sta SHADOW
	sta irq_SHADOW	;so irq handler will reset it properly

	stz Debug_on	;clear flag for next time

*** Added - 25-May-93 JCM - New public flag to indicate that we're currently "in" GSBug.

	lda >OS_Public_Flags
	and #ÅGSBug_Active	;now we aren't in, so clear the bit
	sta >OS_Public_Flags

*** End - 25-May-93 JCM

	rep #$30	;back to long in either case
	longa on
	longi on

	jsr DisposeGSBugDirectPage ;23-May-93 JCM

;
; After disposing of the 1K we check the Quit_all flag
; if it <> 0 then we dispose of my ID and the 64k bank
;

**********************************************************
*
*  If file was loaded during execution, then we need to
*  dispose of the ID along withany and all memory attached
*  to that ID.
*
*  This way ProDOS 8 applications will
*  work when we exit this wonderful thing!
*
**********************************************************

*** moved check from above 1-Dec-92 DAL
	lda PFlag
	and #$00ff
	beq Q_P8
*** end 1-Dec-92

	bit load_flag	;check if file was loaded
	bvc Q_P8	;don't need to dispose what we didn't get
	jsr Dump_load	;get rid of it all

Q_P8
	sep #$30
	longa off
	longi off
	lda Quit_all
	bne @1
	brl qr_fast

@1
	rep #$30
	longa on
	longi on
	lda >DebugB	;upper part of my bank
	and #$00FF	;mask off top part
	pha
	pea My_Task
	jsr BeforeDebuggerToolCall
	_DelHeartBeat	;must delete my heart beat task too
	jsr AfterDebuggerToolCall

** DelNotifyProc -- 23-Oct-90 DAL
	pushlong #MyNPParms
	pea $2035	;_DelNotifyProc
	jsl $e100b0

	sep #$30
	longa off
	longi off
	sei
	jsr RestoreCDAVector

; If the user has not changed the break vector then restore it to its original value,
; otherwise leave it alone.

	lda >BRKV	; See if the user has changed the break vector.
	cmp #<BRKSTART
	bne DontRestBrk	; Yep.
	lda >BRKV+1
	cmp #>BRKSTART
	bne DontRestBrk	; Yep.
	phk
	pla
	cmp >BRKV+2
	bne DontRestBrk	; Yep.

	jsr RestoreBRKVector
DontRestBrk
	jsr RestoreToolVectors

	cli
	rep #$30
	longa on
	longi on


	lda MyIDBuf	;dispose of all related to my ID
	pha	;push user ID
	jsr BeforeDebuggerToolCall
	_DisposeAll
	jsr AfterDebuggerToolCall

	If ThisIsRAM <> 1 goto .NotInitQuit

;
; If this is the init version then we need to get the handle of the program
; and the dispose of it.
;

	pea $0000	;allowing space for result
	pea $0000	;allowing space for result
	pushlong #romstart
	jsr BeforeDebuggerToolCall
	_FindHandle	;DAL
	_DisposeHandle	;DAL
	jsr AfterDebuggerToolCall

.NotInitQuit

	sep #$30
	longa off
	longi off


qr_fast

	rep #$30
	longa on
	longi on

*
*  This restores all of the input device parametres
*  previously saved on the stack
*  so that the next application can work properly
*

	;already in native mode

	ldx #18	;Put the saved input state onto the stack
@RestInpLp	lda SavedInput,x	; so that it can be restored by the four
	pha	; calls below.
	dex
	dex
	bpl @RestInpLp

	jsr BeforeDebuggerToolCall
	_SetOutputDevice	;restore output type and slot
	_SetInputDevice	;restore input type and slot
	_SetOutGlobals	;restore output global masks
	_SetInGlobals	;restore input global masks
	pea $0000	;init input device
	_InitTextDev
	pea $0001	;init output device
	_InitTextDev

	lda hgh_st
	pha
	lda lw_st	;push handle on stack
	pha
	_RestoreTextState	;DAL
	jsr AfterDebuggerToolCall


	sep #$30
	longa OFF
	longi OFF

	lda PCL
	sta PCTL
	lda PCH
	sta PCTH
	lda PCK
	sta PCTK

	stz TextMode

	lda #$00
	sta IRQ_SECFLAG
	sta IRQ_INTFLAG
	sta IRQ_DATAREG
	sta IRQ_KMSTATUS
	lda IRQ_ACTIVE
	dec a
	sta IRQ_ACTIVE

	brl JMPer


DoRtl	jmp >$FFFFFF	; *** MODIFIED *** return to classic desk accessory


;-----------------------------------------------------------------------

.ApplQUIT

Quit


***********************************************
*
*  If file was loaded during
*  execution, then we need to
*  dispose of the ID along with
*  any and all memory attached to that ID
*
*  This way ProDOS 8 applications will
*  work when we exit this wonderful thing!!
*
************************************************

	jsr RestoreToolVectors
	jsr RestoreCDAVector

	bit load_flag	;check if file was loaded
	bvc Q_RAM	;don't need to dispose what we didn't get
	jsr Dump_load	;get rid of it all


Q_RAM
	rep #$30
	longa on
	longi on


	lda MyIDBuf	;dispose of all related to my ID
	pha	;push user ID
	jsr BeforeDebuggerToolCall
	_DisposeAll
	lda MyIDBuf	;dispose of all related to my ID
	pha	;push user ID
	_DeleteID
	jsr AfterDebuggerToolCall

RAMQUIT
	IF ThisIsADA<1	GOTO .SkipDAQuit
	rep #$30	;full native mode
	lda StackOnEntry	;restore the stack on entry
	tcs
	rtl	;end of desk accessory version
.SkipDAQuit
	IF ThisIsADA>0	GOTO .SkipPDQuit
	_Quit QuitParams

QuitParams	DC.L 0
	DC.L 0

.SkipPDQuit
;-------------------------------------------------------


*** Falls into here if not DA version???  Is there dead code here?


*********************************************
*
*               MON  command
*
*********************************************

MONCMD
	longa off
	longi off

	lda >$00C017	; Must have slot 3 selected to enter monitor.
	bpl MONCMD2	;  This prevents bugs in system 5.0.
	brl ErrCmd

MONCMD2	lda SHADOW
	and #$5E	;enable shadowing
	sta SHADOW

	jsr BeforeDebuggerToolCall

	rep #$30
	longa on
	longi on
	PushWord #0	;save output device
	PushLong #0	;info stays on stack
	_GetOutputDevice

	PushWord #0	;Basic
	PushLong #3
	_SetOutputDevice

	PushWord #1	;init
	_InitTextDev

	jsr AfterDebuggerToolCall

	sep #$30
	longa off
	longi off

	lda MR
	ora #8
	sta >MSTATE

	jsr SWAP

	pea $0000
	pld	;set direct = $0000

	sec
	ror InMON

GOTOMON	EQU $F7	;Defined below
RETURNFROM	EQU GOTOMON+4	;Return from monitor code
RETURNBANK	EQU GOTOMON+8	;Modify instruction
EmulStack	EQU $010100	;location of emulation mode stack.

* GOTOMON contains the following code
*	CLI	;Reenable interrupts
*	JMP MONZ	;Enter the monitor  ($FF69)
*	SEI	;Disable interrupts to return to calling bank
*	JMP >RETURNPOINT	;Return to calling bank

	SEI	;Kill interrupts in here
	PEA $0000	;Change data bank register to $00
	PLB
	PLB

	LDX #$02	;Save 3 bytes
MonLoop0	LDA |USR,X	;Save CTRL-Y vector information
	PHA
	DEX
	BPL MonLoop0	;Loop til done

	LDA #$4C	;JMP opcode
	STA |USR
	LDA #<RETURNFROM	;Put in CTRL-Y hook
	STA |USR+1
	STZ |USR+2	;High byte is $00

	LDX #GOINFOLEN-1	;Number of bytes-1 to save
MonLoop1	LDA GOTOMON,X	;Save zero page
	PHA
	DEX
	BPL MonLoop1	;Loop til done

	PHB	;(=0 from above)
	PHK
	PLB	;B = K

	LDX #GOINFOLEN-1	;Move 9 bytes for hooks
MonLoop11	LDA GOINFO,X
	STA GOTOMON,X
	DEX
	BPL MonLoop11	;Loop til done
	PLB	;(=0)

	rep #$30	;16 bit x and a reg to hold stack pointer
	longa on
	longi on
	tsx	;get stack pointer
	txa
	and #$FF00
	cmp #$0100
	beq NoStackChange

	lda >EmulStack	;use correct emulation mode stack
	and #$00FF
	ora #$0100
	tcs	;set stack pointer


NoStackChange	phx	;save stack pointer on this stack
	sep #$30	;back to 8 bit x
	longa off
	longi off

	PHK	;Set up return bank
	PLA
	STA RETURNBANK

	SEC	;Must go to monitor in emulation mode
	XCE	;Interrupts are off so it's OK here
	JMP >GOTOMON	;Go into monitor (Turns on interrupts)

RETURNPOINT
	stz InMON

	PLA	;Interrupts are disabled on entry to here
	PLA	;Remove monitor's CTRL-Y return address
	clc	;back to native mode
	xce
	pla	;restore stack pointer
	xba
	pla
	xba
	tcs

	PEA $0000	;Restore data bank register to $00
	PLB
	PLB
	CLI	;and reenable interrupts.

	LDX #0	;Restore zero page
MonLoop2	PLA
	STA GOTOMON,X
MonLoop4	INX
	CPX #GOINFOLEN	;If at GOINFOLEN then done
	BCC MonLoop2	;Loop til done

	PLA	;Recall USR (CTRL-Y) information
	STA |USR-9,X	;and save it.
	CPX #GOINFOLEN+2	;Done if matches
	BCC MonLoop4	; Loop til done
*
* what I added to fix mon return LAD 3/25/88 and it works!!
*

	lda >DebugB	;get real bank address for us
	pha
	plb	;restore my data bank

	rep #$30
	longa on
	longi on
	lda xDEBUG_D
	tcd	;restore my direct

	jsr BeforeDebuggerToolCall
	_SetOutputDevice	;restore output device
	jsr AfterDebuggerToolCall
	sep #$30
	longa off
	longi off

	lda MT
	sta >MSTATE
	lda >CYA
	ora #$80
	sta >CYA
	brl DEBUGS

GOINFO	DC.B $58,$4C	;Enable interrupts before entering monitor
	DC.W MONZ
	DC.B $78,$5C	;SEI and JMP abslong

	DC.W RETURNPOINT
	DC.B $00	;Return bank number patched in zero pg
GOINFOLEN	EQU *-GOINFO	;Number of bytes to move

*********************************************
;
;               ASM  command
;
*********************************************

AsmCmd	jsr ON	;force display on
	sec
	ror AsmFlag
	jsr ClearDis
	brl Debug2


*********************************************
;
;               OFF  command
;
*********************************************

OffCmd	jsr OFF
	brl DEBUG


*********************************************
;
;                ON  command
;
*********************************************

OnCmd	jsr ON
	brl INPUT


*********************************************
;
;        ?  (help from command line)
;
*********************************************

HELPcmdline	jsr ON	;force display on
	jsr HELPOUTcmd
	brl INPUT

*********************************************
;
;     LOAD filename using system loader
;
;     entry: 8 bit x and m
;
*********************************************

LoadCmd	lda file_Len	;to load or not to load
	cmp #$0F	;fifteen max for now
	beq Max_Num	;if taken then too many
	jsr GetPath
	bcc CallLOAD	;found pathname
DOSerr40	lda #$40	;pathname not found

DOSerr	sep #$30
	longa off
	longi off
	pha	;save error #

	ldx #0
	stx CodeMode
	ldy BufLen
DOSerrOut	iny
	lda ErrText,x	;stuff ' Error=$'
	sta InputBuffer,y	; into InputBuffer
	inx
	cpx #ErrTextLen
	blt DOSerrOut
	iny

	pla	;restore error #
	jsr HEXtoIN	;stuff error # into InputBuffer

	sty BufLen	;for INPUT

;	jsr CLOSEall
	brl ErrCmd

CallLOAD	rep #$30
	longa on
	longi on

	PushWord #0	;space for zp seg size
	PushWord #0	;space for zp starting addr
	PushLong #0	;space for starting addr
	PushWord #0	;space for user id
	PushWord #0	;tell loader to assign user id
	sep #$30
	longa off
	longi off
	lda #$00	;form high part of address of pathname
	pha
	phk
	rep #$30
	longa on
	longi on

	PushWord #pathname	;Put address of pathname on stack
	PushWord #0	;this can go in any memory that is avalable
	jsr BeforeDebuggerToolCall
	_InitialLoad
	jsr AfterDebuggerToolCall
	bcc LoadOK
	tax

	pla	;user id
	pla	;starting adr low
	pla	;starting adr high
	pla	;zp addr
	pla	;zp size
	txa	;err in a
	bra DOSerr
Max_Num
	lda #$FF
	bra DOSerr	;$FF error equals too many loaded

LoadOK
	;if we get here then load allowed and good

	lda File_Len	;update pointer
	inc File_Len	;
	asl A	;offset into Temp stuff is (file# -1)*2
	tax
	stx File_Off	;save offset

	lda #$FFFF	;load good, so set flag now
	sta load_flag
	pla	;put userid in TempID
	sta TempID,X
	pla
	sta TempPCL,X
	pla
	sta TempPCK,X
	pla	;get zp starting addr
	bne SetupZP
	brl MustAllocate
SetupZP	sta TempDR
	clc
	adc 1,s
	dec a	;Stack should be at 1 less than ZP+Size
	sta TempSR
	pla

	sep #$30
	longa off
	longi off

	ldx T5	;Prefix length
	lda pathname+1
	cmp #$2F	;'/' ?
	beq FullPFX	; yes--full prefix
	cmp #$41	;'A' ?
	blt LoadExit	; no--prefix number

	inx	;partial pathname
	inx
	stx pathname-2	;append '0/'
	lda #$30
	sta pathname-1
	lda #$2F
	sta pathname

	phk
	pla
	sta @1+2

	jsl MLI_16
	DC.W 9	;Set_Prefix
@1	DC.L Set_Parm0
	bcc LoadExit
	brl DOSerr

FullPFX	stx pathname

	phk
	pla
	sta @1+2

	jsl MLI_16
	DC.W 9	;Set_Prefix
@1	DC.L Set_Parm
	bcc LoadExit
	brl DOSerr

LoadExit
	ldx File_Off	;new here

	rep #$30
	longa on
	longi on

	lda TempID,X	;
	sta AR	;user id in A-reg
	stz XR	;0 -> X
	stz YR	;0 -> Y

	lda TempPCL,X	;
	sta PCL
	lda TempSR
	sta SR
	lda TempDR
	sta DR

	sep #$30
	longa off
	longi off

	lda TempPCK
	sta PCK
	stz PR	;0 -> P  full
	stz eR	;0 -> e    native

	brl DEBUG

Set_Parm	DC.W 1	;Prefix Number 1
	DC.L pathname

Set_Parm0	DC.W 1	;Prefix Number 1
	DC.L pathname-2


	longa on
	longi on
MustAllocate
	PushLong #0	;space for handle
	PushLong #$400	;size of handle
	PushWord TempID	;user id
	PushWord #$C001	;locked, fixed, fixed bank
	PushLong #0	;bank zero required
	jsr BeforeDebuggerToolCall
	_NewHandle
	jsr AfterDebuggerToolCall
	tax
	pla
	sta T1	;handle
	pla
	sta T1+2
	bcc NoHandleErr
	txa	;error in a
	brl DOSerr

NoHandleErr	lda #$400	;put default value for
	sta 1,s	;seg size on stack
	lda [T1]	;get adr of seg in a-reg
	brl SetupZP	;branch back into main line code

	longa off
	longi off


*********************************************
*
*  UnloadCmd
*
*  Displose of all memory belonging to the
*  given ID.  The command is of the form:
*
*    SHUTDOWN id#
*
*********************************************

UnloadCmd	lda InputBuffer,y	; Skip over leading spaces.
	cmp #$A0
	bne @1
	iny
	bra UNLOADCMD

@1	pha	; Push space for the result.
	pha
	jsr GetHex	; Get the ID number.
	bcs UnloadEr2	; Check for hex value.
	lda AH	; Push the ID number onto the stack
	pha
	lda AL
	pha

	lda InputBuffer,y	; Make sure that there is at least one
	cmp #$A0	;  space.
	bne UnloadEr1

@2	iny	; Ignore all extra spaces.
	lda InputBuffer,y
	cmp #$A0
	beq @2

	jsr GetHex	; Get the quit flag.
	bcs UnloadEr1	; Check for hex value.
	lda AH
	pha
	lda AL
	pha

	rep #$30	; We need to be in full native.
	longa ON
	longi ON


	jsr BeforeDebuggerToolCall
	_UserShutDown
	jsr AfterDebuggerToolCall
	plx	; Ignore the result.

	sep #$30	; Get back into short mode.
	longa off
	longi off
	bcc DnUnload	; Was there an error?
DOSErr16
	sta >$FF6789	; save the error code
	sep #$30
	pha	; Save error number.
	xba
	pha

	ldx #0
	stx CodeMode
	ldy BufLen
ErrOut	iny
	lda ErrText,x	;stuff ' Error=$'
	sta InputBuffer,y	; into InputBuffer
	inx
	cpx #ErrTextLen
	blt ErrOut
	iny

	pla	;restore error #
	jsr HEXtoIN	;stuff error # into InputBuffer
	pla
	jsr HEXtoIN

	sty BufLen	;for INPUT
	brl ErrCmd


UnloadEr1	pla
	pla
UnloadEr2	pla
	pla
	brl ErrCmd

DnUnload	brl Debug1


*********************************************
;
;            Prefix [#] pathname
;
*********************************************

PREFIX	jsr GetPath	;get pathname or ref
	bcc CheckRef
GotoERR40	brl DOSerr40

CheckRef	stz Prefix_num	;assume prefix 0
	lda pathname+1	;first chr
	cmp #$30
	blt SetPrefix	;< 0
	cmp #$38
	bge SetPrefix	;> 7
	and #7
	sta Prefix_num

	inc T3	;bypass ref
	jsr GetPath
	bcs GotoERR40

SetPrefix
	phk
	pla
	sta @1+2

	jsl MLI_16
	DC.W 9	;Set_Prefix
@1	DC.L Prefix_Parm
	bcc PrefixOK
	brl DOSerr

PrefixOK	brl Debug1

Prefix_Parm
Prefix_num	DC.W 0	;IN:  0,...,7
	DC.L pathname	;IN:  pathname

*********************************************
;
;           Config CSAVE & CLOAD
;
*********************************************

CSaveCmd	jsr GetPath
	bcc CreateFIG	;pathname found

*** added 12-Feb-92 DAL -- if no path given, default to *:System:System.Setup:GSBug.Setup
	ldy SetupFileName
@copy	lda SetupFileName,y
	sta pathname,y
	dey
	bpl @copy
;;;	brl DOSerr40	;pathname not given
*** end 12-Feb-92

CreateFIG	phk
	pla
	sta @1+2

	jsl MLI_16
	DC.W 1	;create
@1	DC.L Create_Parm
	bcc CSAVEopen
	cmp #$47	;duplicate?
	beq CSAVEopen	; yes--ignore err
GoDOSerr	brl DOSerr	; no

CSAVEopen	jsr OPENconfig
	bcs GoDOSerr

	phk
	pla
	sta @1+2

	jsl MLI_16
	DC.W $13	;write
@1	DC.L Write_Parm
	bcs GoDOSerr
	bra Cexit


CLOADER	jsr GetPath
	bcc CLOADopen
	brl DOSerr40

CLOADopen	jsr OPENconfig
	bcs GoDOSerr

	phk
	pla
	sta @1+2

	jsl MLI_16
	DC.W $12	;read
@1	DC.L Read_Parm
	bcs GoDOSerr

Cexit	jsr CLOSEconfig
	brl DEBUG


OPENconfig	phk
	pla
	sta @1+2

	jsl MLI_16
	DC.W $10	;Open
@1	DC.L Open_Parm
	bcs OPENerr

	lda Open_ref
	sta Read_ref
	sta Close_ref
	sta Write_ref

OPENerr	rts

CLOSEconfig	phk
	pla
	sta @1+2

	jsl MLI_16
	DC.W $14	;Close
@1	DC.L Close_Parm
	rts

Create_Parm	DC.L pathname	;IN:  pathname
	DC.W $C3	;IN:  access
	dc.w $005A	;Our config filetype is $5A
	dc.l $00000005	;auxtype 5 (30-Aug-90 DAL)
	DC.W 1	;IN:  storage_type
	DC.W 0	;IN:  create_date
	DC.W 0	;IN:  create_time

Open_Parm
Open_ref	DC.W 0	;OUT: ref_num
	DC.L pathname	;IN:  pathname
Open_buf	DC.L 0	;OUT: I/O buffer

Read_Parm
Read_ref	DC.W 0	;IN:  ref_num
	DC.L CONFIG	;IN:  data buffer
	DC.L ConfigLEN	;IN:  request byte count
Read_count	DC.L 0	;OUT: transfer count

Write_Parm
Write_ref	DC.W 0	;IN:  ref_num
	DC.L CONFIG	;IN:  data buffer
	DC.L ConfigLEN	;IN:  requtest byte count
Write_count	DC.L 0	;OUT: transfer count

Close_Parm
Close_ref	DC.W 0	;IN:  ref_num


*********************************************
*
* Load in a default configuration file.  The
* default file should be named 'GSBUG.SETUP'.
* In the application version, the file should
* be in the same directory as the debugger.
* In the init and ROM versions, it should be
* in SYSTEM/SYSTEM.SETUP on the boot up disk.
*
*********************************************

	longa off
	longi off

LoadDefault	phk	; Set the correct bank.
	pla
	sta @OpenLstAdr+2
	sta @ReadLstAdr+2
	sta @ClosLstAdr+2
	sta @OpenList+4

	jsl MLI_16	; Open the file.
	dc.w $0010
@OpenLstAdr	dc.l @OpenList
	bcs @Done

	lda @OpenList	; Set the reference numbers.
	sta @ReadList
	sta @CloseList
	lda @OpenList+1
	sta @ReadList+1
	sta @CloseList+1

	jsl MLI_16	; Read the file.
	dc.w $0012
@ReadLstAdr	dc.l @ReadList

	jsl MLI_16	; Close the file.
	dc.w $0014
@ClosLstAdr	dc.l @CloseList

@Done
	rts

@OpenList	dc.w 0	;OUT: ref_num
	dc.l SetupFileName	;IN:  pathname
	dc.l 0	;OUT: I/O buffer

@ReadList	dc.w 0	;IN:  ref_num
	dc.l CONFIG	;IN:  data buffer
	dc.l ConfigLEN	;IN:  request byte count
	dc.l 0	;OUT: transfer count

@CloseList	dc.w 0	;IN:  ref_num

	If ThisIsRAM <> 2 goto .InitDefault

** SetupFileName	dc.b 11
** 	dc.b 'GSBUG.SETUP'
** 31-Aug-90 DAL
	msb off
SetupFileName	dc.b 13,'9/GSBug.Setup'
	msb on

	If ThisIsRAM = 2 goto .DoneDefault

.InitDefault

	msb off
SetupFileName	dc.b 33,'*/System/System.Setup/GSBug.Setup'  ;was 31 w/ no "*/" DAL
	msb on

.DoneDefault

; COPY TRACE
	TITLE 'Cortland Debugger -TRACE-'

*******************************************************
*
*  Recreate the trace display from the saved trace
*  history.
*
*******************************************************

RECREATE	lda PCL
	pha
	lda PCH
	pha
	lda PCK
	pha

	bit InTrace	; Is there 
a history?
	bpl RECREATE4	; Nope.

	clc	; Calculate the first line to display.
	lda #R_OPC
	adc TraceCount
	tax

	clc	; Calculate the history index that coresponds
	lda TraceIndex	;  to this line.
	adc TraceCount
	adc #R_OPC
	sbc I_OPC
	and #$1F	; Wrap the index every 32.

RECREATE1	tay	; Get the current history index.
	phy
	phx
	jsr SETBASE	; Set the screen line.

	lda PCKTrace,y	; Get the base byte of the address.
	sta PCK
	lda PCHTrace,y	; Get the high byte of the address.
	sta PCH
	lda PCLTrace,y	; Get the low byte of the address.
	sta PCL
	lda TLENTrace,y	; Get the length of the instruction.
	sta TLEN
	lda TFMTTrace,y	; Get the format of the instruction.
	sta TFMT

	tya
	asl A	; Calculate the index into the instruction table.
	asl A
	tay
	ldx #0	; Get the bytes of the instruction.
RECREATE2	lda TOPCTrace,y
	sta TOPC,x
	Iny
	inx
	cpx #4
	blt RECREATE2

	jsr OUTOPC	; Display the instruction.

	plx	; Get the screen line number.
	pla	; Get the index into the history tables.

	cpx I_OPC	; Are we at the last instruction yet?
	blt RECREATE5	; Nope.
	lda #C_OPC	; Set the column.
	sta LEFT
	jsr ILINE	; Invert the last instruction.

RECREATE3	inx	; Display all of the future instructions.
	cpx #R_OPC+N_OPC	; More instructions?
	bge RECREATE4	; No.
	phx
	jsr SETBASE	; Set the line.
	jsr PCADJ	; Update the PC to the next instruction.
	sta PCL
	sty PCH
	jsr INSDS	; Get the instruction.
	jsr OUTOPC	; Display the instruction.
	plx
	bra RECREATE3	; Do the next instruction.


RECREATE4	pla
	sta PCK
	pla
	sta PCH
	pla
	sta PCL

	rts	; All done.

RECREATE5	inc A	; Increment the index.
	and #$1F	; Make it wrap every 32.
	inx	; Increment the line number.
	bra RECREATE1	; And do it again.

*******************************************************
;
;  Trace/Single-step
;
*******************************************************

PREDIS	sec	; What is the max number of lines needed?
	lda I_OPC
	sbc #R_OPC
	inc A
	sta TraceCount

	lsr SKIP	;RESET TRACE PARAMS
	stz UNTIL
	stz PendingToolProto ;10-May-93 JCM - don't draw tool proto on command line
	stz StepMode
	lsr CodeMode
	lda #$0A	;DIS DIMENSIONS
	sta LEFT
	lda #$27
	sta RIGHT
	asl AsmFlag	;CLEAR ASM MODE
	bcc CLRbpflag	;AND ERASE FIELD
RESETBPF	jsr ClearDis	;IF IT WAS SET.
CLRbpflag	asl BPFLAG
	asl MPFLAG
goOUTmp	jsr OUTALLMP
	brl OUTALLBP

********************************************************************************
*
* STEPCON - Handles the command line "S"tep command to continue stepping at the
*           current K/PC address. This is used when "S" is passed by itself on
*           the command line.
*

STEPCON	lda #$80
	sta InTrace
;stz TErrFlag		;removed 11-Oct-90 DAL
	jsr PREDIS

	sec
	ror StepMode
	jsr UpdateCommandLine

	bra TRACEPREP2

********************************************************************************
*
* STEPNEW - Handles the command line "S"tep command to step at the address
*           specified. 
*

STEPNEW	stz GotLDX	; We havn't seen an LDX #

	lda #$80
	sta InTrace
;stz TErrFlag		;removed 11-Oct-90 DAL
	jsr PREDIS

	sec	;set the high bit
	ror StepMode

	jsr UpdateCommandLine

	bra TRACEPREP

********************************************************************************
*
* TRACECON - Handles the command line "T"race command to continue tracing at the
*            current K/PC address.
*

TRACECON	lda #$80
	sta InTrace
;stz TErrFlag		;removed 11-Oct-90 DAL
	jsr PREDIS	;sets StepMode correctly
	jsr UpdateCommandLine

	bra TRACEPREP2

********************************************************************************
*
* TRACENEW - Handles the command line "T"race command to trace at the address
*            specified. 
*

TRACENEW	stz GotLDX	; We havn't seen an LDX #

	lda #$80
	sta InTrace
;stz TErrFlag		;removed 11-Oct-90 DAL
	jsr PREDIS	;sets StepMode correctly
	jsr UpdateCommandLine

TRACEPREP	lda AL
	sta PCL
	lda AH
	sta PCH
	lda AB
	sta PCK
TRACEPREP2	jsr ClearDis

*** removed 12-Oct-90 DAL (the next line already does the same thing)
***	stz ProDOSFlag	; Reset the ProDOSCall block flag.

TRACE	stz ProDOSFlag	; Reset the ProDOSCall block flag.

	lsr dis_status	;for ON/OFF
	ldy #0
	lda [PCL],y
	bne LOADop
	bit BPIO
	bpl LOADop
	jsr BPSCAN
	bmi LOADop

GETORG	stz BPSIGNAL	; Signify that we have a breakpoint.

; Restore the instruction.

	txa
	asl a
	asl a
	asl a
	sta T1
	pha
	adc #5
	tax
	lda TOT,X
	sta TLEN
	sta T1
	inc TLEN	;<- TLEN+1
	ldy #0
	plx
COPYop	lda [PCL],y
	pha
	lda TOT,X
	sta [PCL],Y
	inx
	iny
	cpy TLEN
	bne COPYop

; Get the instuction and compute its length and format.

	jsr INSDS

; Restore the breakpoint.

	ldy T1
RESTOREop	pla
	sta [PCL],y
	dey
	bpl RESTOREop

	bra PREPop

LOADop	jsr INSDS
PREPop

	lda #$EA
	sta XOPRL
	sta XOPRH
	sta XOPRB
	ldy TLEN
*** 8-Jul-91 DAL -- if instruction length is too long, use 2 (meaning 3) because it's a BRL/777x
	cpy #4
	bcc @ok
	ldy #2	;it's really a BRL!
@ok
*** end 8-Jul-91
	sty XLEN
	lda TFMT
	sta XFMT
PREPop2	lda TOPC,y
	sta XOPC,y
	dey
	bpl PREPop2

PRESENT	ldy TraceIndex	; Get the current trace buffer position.
	lda PCK	; Save the bank byte of the PC.
	sta PCKTrace,y
	lda PCH	; Save the high byte of the PC.
	sta PCHTrace,y
	lda PCL	; Save the low byte of the PC.
	sta PCLTrace,y
	lda TLEN	; Save the number of bytes of operand for the instruction.
	sta TLENTrace,y
	lda TFMT	; Save the format of the instruction.
	sta TFMTTrace,y
	tya
	asl A	; Multiply the index by 4 to get index into the
	asl A	;  instruction buffer.
	tay
	ldx #0	; Copy the bytes of the instruction to the buffer.
HISTLoop	lda TOPC,x
	sta TOPCTrace,y
	iny
	inx
	cpx #4	; We need to copy 4 bytes.
	bne HISTLOOP

	lda TraceIndex	; Increment the index.
	inc A
	and #$1F	; Make it wrap.
	sta TraceIndex

	lda TraceCount	; Count down the instruction until we get to zero.
	beq PRESENT2
	dec TraceCount

PRESENT2	jsr SaveHist

	bit CodeMode
	bmi MPcheck
	bit TextMode
	bpl MPcheck
	ldx I_OPC
	jsr SETBASE
	stx AL
	lda #C_OPC
	sta LEFT
	lda #$20
	jsr CLINE2
	jsr OUTOPC
	jsr ILINE
	
	jsr UpdateCommandLine ;11-May-93 JCM - redraws either step/trace based on mode

	jsr OUTPC

	lda ProDOSFlag
	inc a
	sta NumScroll

	lda #R_OPC
	clc
	adc #N_OPC
	sbc I_OPC
	beq MPcheck
	sta AH	;future instructions
	jsr SAVEPC

	lda GotLDX	; Save the Toolbox call stuff.
	pha
	lda ToolNum
	pha
	lda ToolNum+1
	pha

FUTURA	jsr PCADJ
	sta PCL
	sty PCH
	jsr INSDS
	inc AL
	ldx AL
	jsr SETBASE
	jsr CLINE
	jsr OUTOPC
	dec AH
	bne FUTURA
	jsr RESTPC
	jsr RESTOP

	pla	; Restore the toolbox call stuff.
	sta ToolNum+1
	pla
	sta ToolNum
	pla
	sta GotLDX

MPcheck	lda PCH
	xba
	lda PCL
	ldx PCK
	ldy #MP_W
	jsr MPScan	;scan for MP_W (Window)
	bcs BPcheck	;K/PC in an MP_W range
	bvc BPcheck
	jsr BELL
	brl TraceEnd

BPcheck	bit BPSIGNAL	;BRK FOUND ALREADY?
	bpl BPFOUND	;YES DON'T BOTHER SCAN
	bit BPIO	;SKIP AND WAIT FOR A
	bmi PB1CHECK	;BPSIGNAL IF BRKS IN CODE
	jsr BPSCAN	;SEE IF BRK ON OUR LIST
	bmi PB1CHECK	;NOPE, IGNORE IT.

BPFOUND	lda #$80	;RESET BPSIGNAL
	sta BPSIGNAL
	ldx BPNUMBER	;OK-POSSIBLE BREAK
	lda BPTriggerTable,x
	beq NOTYET	;trigger = 0
	inc BPCountTable,x	;COUNT+1
	cmp BPCountTable,x
	beq CLRCOUNT
	bge NOTYET

CLRCOUNT	lda #$80	;SIGNAL BREAK
	sta BPFLAG
	asl a	;ACC=00
	sta BPCountTable,x	;CLEAR COUNT
	jsr BELL	;SIGNAL USER OF BREAK

	bit StepMode	;single stepping?
	bmi NOTYET	; yes--continue
	brl TraceEnd	;no

NOTYET	bit CodeMode
	bpl NotCode
	brl XEQ

NotCode	bit TextMode
	bpl PB1CHECK
	jsr OUTBP

PB1CHECK

** removed this section 11-Oct-90 DAL (Tool Errors no longer supported--this was dead)
;	lda TErrFlag
;	beq @CkTool
;	stz TErrFlag
;	lda PR
;	and #$01
;	beq @CkTool
;	bit StepMode	;single stepping?
;	bmi @CkTool	; yes--continue
;	brl TraceEnd	;no

@CkTool	ldx #0
@CkToolLp	lda TOPC,x	; Check for a JSL $E10000
	cmp ToolCall,x
	bne @NotToolBrk
	inx
	cpx #4
	blt @CkToolLp

	lda XR+1
	xba
	lda XR

	jsr CkTBrk
	bcs @NotToolBrk
	bit StepMode	;single stepping?
	bmi @NotToolBrk	; yes--continue
	brl TraceEnd	;no

@NotToolBrk	lda XR+1
	xba
	lda XR

; NOTE *** EBRKS NO LONGER SUPPORTED! ***
;	jsr CkEBrk
;	bcc @NotTErrBrk
;	inc TErrFlag
;	bra @DoWaitPB1
** removed next line 11-Oct-90 DAL
;@NotTErrBrk	stz TErrFlag

@DoWaitPB1	jsr WAITPB1

KeyCheck	bit StepMode
	bmi @1
	brl KEYPRESS
@1

KeyWait	lda #$C0
	sta Click0+1
	lda #2
	sta Click1+1
KW	jsr GETKEYMOD
	bpl KW
	cmp #$A0
	beq GotoBeep
	
	brl FUNCTION

GotoBeep	lda #$10
	sta Click0+1
	sta Click1+1
GoBeep	brl BEEP

Escape	stz UNTIL	;10-Apr-91 DAL
	jsr UpdateCommandLine
	brl TraceEnd

tilRTS	lda #$40	;set wait UNTIL RT- mode
	sta UNTIL
	jsr UpdateCommandLine

Continue	stz StepMode	;go to trace mode
	
	bra SetStep	;draw "Trace" on the command line

SingStep	sec
	ror StepMode
SetStep	jsr UpdateCommandLine
	
	brl KE

SlowRate	lda #$FF
	bra SETrate
FastRate	lda #1
SETrate	sta RATE
	brl KE

CLRCYC	stz CYCL
	stz CYCH
	stz CYCB
	jsr OUTKBC
	brl KE

QUIET	lda SOUND
	eor #$80
	sta SOUND
goKE	brl KE

**************************************
*
*  new stuff added for real-time JSRs
*
**************************************
JSLnow	lda XOPC
	cmp #$20	;JSR ?
	beq IS_JSR
	cmp #$22	;JSL ?
	bne @checkJSR2	; nope, check other jsr opcode

	brl JSLrt
	
*** Added - 4-Apr-93 JCM

@checkJSR2
	cmp #$FC	;jsr (addr,x)?
	beq IS_JSR	; yep, do it in real-time

*** End - 4-Apr-93 JCM

GoGOTOBEEP	brl GOTOBEEP

IS_JSR	brl JSRrt

GOnow	brl JMPEROFF

TSShelp	jsr HELPOUTtss
	cmp #$9B
	beq ESCAPE	;Esc
	bra SINGSTEP	;not Esc

Keypress	jsr GETKEYMOD
	bpl GOBEEP

Function	jsr UpShift
	cmp #$9B
	beq ESCAPE
	cmp #'R'
	beq TILRTS
	cmp #$8D	;RETURN
	beq CONTINUE
	cmp #$A0
	;beq SINGSTEP
	bne @1
	brl StopWaitingAndStep  ;10-Apr-91 DAL
@1
	cmp #$88	;<-
	beq SLOWRATE
	cmp #$95	;->
	beq FASTRATE
	cmp #'Z'
	beq CLRCYC
	cmp #'Q'
	beq QUIET
	cmp #'X'
	beq JSLnow
	cmp #'J'
	beq GOnow
	cmp #'?'
	beq TSShelp
	cmp #'B'
	beq BandW
	cmp #'C'
	beq COLOR
	cmp #'1'
	beq PAGEONE
	cmp #'2'
	beq PAGETWO
	cmp #'4'
	beq FORTY
	cmp #'8'
	beq EIGHTY
	cmp #'F'
	beq NOMIX
	cmp #'M'
	beq MIX
	cmp #'T'
	beq TX
	cmp #'S'
	beq SUPER
	cmp #'D'
	beq DOUBLE
	cmp #'L'
	beq LOGR
	cmp #'H'
	beq HIGR
	cmp #$8A	;ctrl-J (skip)
	bne KE
	brl SkipThisInstruction

BandW	lda NEWVIDEO
	ora #$20
	bra NEWVIDKE
COLOR	lda NEWVIDEO
	and #$DF
	bra NEWVIDKE
PAGEONE	lda PAGE1
	bra KE
PAGETWO	lda PAGE2
	bra KE
FORTY	sta CLR80COL
	bra KE
EIGHTY	sta SET80COL
	bra KE
NOMIX	lda FULL
	bra KE
MIX	lda MIXED
	bra KE
TX	lda TEXT
	lda FULL
	lda LORES
	lda SETAN3
	lda NEWVIDEO
	and #$7F
NEWVIDKE	sta NEWVIDEO
	bra KE
SUPER	lda NEWVIDEO
	ora #$80
	bra NEWVIDGRAPH
DOUBLE	lda CLRAN3
	bra SUPERoff
LOGR	lda LORES
	bra DOUBLEoff
HIGR	lda HIRES
DOUBLEoff	lda SETAN3
SUPERoff	lda NEWVIDEO
	and #$7F
NEWVIDGRAPH	sta NEWVIDEO
GRAPH	lda GR

KE	bit StepMode
	bpl BEEP
	brl KeyWait

SkipThisInstruction	sta StepMode
	sta SKIP
	jsr UpdateCommandLine
*** added 12-Feb-92 DAL -- Skip more bytes if this is a JSL $E100A8
	ldx #0
@Loop	lda TempOpcode,x	; Check for a JSL $E100A8
	cmp ProDOSCall,x
	bne @notGSOS
	inx
	cpx #4
	blt @Loop
	clc
	lda TLEN
	adc #6	;skip 6 extra bytes (inline word, ptr)
	sta TLEN
;@notGSOS		;11-May-93 JCM
*** end 12-Feb-92
@goSkip	brl INCPC2

*** Added - 11-May-93 JCM - Skip over inline names as well.

@notGSOS	jsr IsInstInlineName ;is this instruction an inline name?
	bcs @goSkip	 ; nope, we'll skip it normally

	inc a	;branch distance +2 = final destination
	inc a
	sta TLEN

	bra @goSkip

*** End - 11-May-93 JCM

BEEP	bit SOUND
	bpl XEQ
	jsr Click0
	bra XEQ



; COPY INTERPRET
	TITLE 'Cortland Debugger  -INTERPRET-'

*******************************************************
;
;  Filter and interpret K/PC & S instructions
;
*******************************************************

RT_UNTIL
StopWaitingAndStep
	stz UNTIL
	stz PendingToolProto ;10-May-93 JCM - don't draw tool proto on command line
	jsr UpdateCommandLine ;remove WAITING text
	brl SINGSTEP

TraceEnd	lsr CodeMode
	jsr DEBUG_DISPLAY
	bit TextMode	; Do we need to display the history?
	php
	jsr ON	;force display on
	plp
	bmi TraceEnd2	; Nope.
	jsr RECREATE	; Yep, so go do it.
	lda #$80
	sta TextMode
TraceEnd2	brl Debug1

ExecuteOneInstruction
XEQ	stz SR+2
	ldy XOPC
	beq TraceEnd	break

	cpy #$40	;RTI ?
	bne XEQ_RTL

	bit UNTIL	;waiting for RT-?
	bmi RT_UNTIL	; yes
	jsr incSR
	sta PR
	bra XRTSI

XEQ_RTL	cpy #$6B
	beq XRT	;RTL
	cpy #$60
	bne XEQ_JMP	;not RTS

XRT	bit UNTIL
	bmi RT_UNTIL

XRTSI	jsr incSR
	sta PCL
	jsr incSR
	sta PCH

	cpy #$60
	beq XRTEND	;RTS
	cpy #$6B
	beq XRTL	;RTL
	bit eR	;RTI
	bmi XRTEND	;emulation
XRTL	jsr incSR
	sta PCK

XRTEND	cpy #$40
	beq GOXEND	;RTI
	brl INCPC2

XEQ_JMP	cpy #$4C
	blt XEQ_JSR	;not a JMP, JMP(), JML
	beq XJMP	;JMP a
	cpy #$DC
	beq XJMP	;JML(a)
	bge XEQ_JSR	;not a JMP, JMP()
	cpy #$5C
	beq XJMP	;JMP al
	cpy #$6C
	beq XJMP	;JMP (a)
	cpy #$7C
	bne XEQ_JSR	;not JMP (a,x)
	ldx #0	;assume x = 8
	jsr check_eRx
	bcc XJMP	;e=0,x=0
	stx XR+1

XJMP	lda XOPRL
	ldx XOPRH
	sta PCL
	stx PCH
	cpy #$5C	;JMP al?
	bne XJMPa	; no
	lda XOPRB	;yes
	sta PCK

XJMPa	cpy #$4C
	beq GOXEND	;JMP a
	cpy #$5C
	beq GOXEND	;JML al

	phy	;save opcode
	jsr SAVEPC
	jsr SWAP
	lda PCTL
	ldx PCTH
	ply
	phy	;opcode
	cpy #$7C
	bne XJMPai	;JMP (a) or JML (a)
	clc	;JMP (a,x)
	adc XT
	pha
	lda PCTH
	adc XT+1	;0 or XR+1
	tax
	pla
XJMPai	cpy #$7C
	beq XJMPaiK
	cpy #$FC
	beq XJMPaiK
	ldy #0	;bank 0
	bra XJMPK
XJMPaik	ldy PCTK
XJMPK	jsr GETIND	;get indirect
	sta PCL
	stx PCH
	pla	;retrieve opcode
	cmp #$DC	;JML (a)?
	bne GOXEND	; no
	sty PCK	;yes

GOXEND	brl XEQEND

XEQ_JSR	ldx PCK
	cpy #$20
	beq goXJSRL	;JSR a
	cpy #$FC
	beq goXJSRL	;JSR (a,x)
	cpy #$22
	beq checkMLI	;JSL al
	brl XEQ_TXS

goXJSRL	brl XJSRL

goXJSL	brl XJSL

checkMLI	ldx XOPRB
	cpx #^MLI_16	;MLI_16 call?
	bne goXJSL	;   no
	lda XOPRH
	cmp #>MLI_16
	bne goXJSL	;  no
	lda XOPRL
	cmp #<MLI_16
	bne goXJSL	; no
;
;  JSL MLI_16 call
;
XMLI	ldy #9
XJMLI	lda [PCL],y
	sta JSLMLI,y
	dey
	bpl XJMLI

	lda PCL
	clc
	adc #6	;       next opcode is 10 bytes later but will
	sta PCL	;      bump by 4 later.
	bcc @1	;was *+4 DAL
	inc PCH
@1
	jsr SWAP

	lda >MyID	;store bank0/zero page A1, not actually MyID
	sta Temp	;temp store
	phb	;save my debug bank to A1
	pla
	sta >MyID	;store it

	RestoreReg	;restore the user's registers

*** This is a problem if the user's program is in emulation with interrupts enabled. DAL 7-Sep-90

JSLMLI	jsl >MLI_16
	DC.W $0000
	DC.L $00000000
	brl RTMLI

XJSL
	sep #$30
	longa off
	longi off

	ldx XOPRB
	cpx #^MLI_16_Stack	;MLI_16 stack based call?
	bne XJSL2	; no
	lda XOPRH
	cmp #>MLI_16_Stack
	bne XJSL2	;no
	lda XOPRL
	cmp #<MLI_16_Stack
	beq to_JSLrt	; yes

XJSL2	ldy #MP_T	;real-time?
	ldx XOPRB
	lda XOPRH
	xba
	lda XOPRL
	jsr MPScan	;CTR memory protect?
	bcs to_JSLrt	; yes
	brl XEQ_JSL	;no

to_JSLrt	brl JSLrt	;15-Oct-90 DAL

******************************************************
*
* New code for JSRs
*
* JSRs in real time are done by replacing
* the opcode following the JSR with an BRK
* which sends it back to the debugger code
*
* I jump to the address of the JSR so that the
* proper return addresses are pulled off the
* stack
*
******************************************************

JSRrt
;
; This code allows real time JSRs to be run on ROM code.
; The only difference is that the next address cannot be replaced by
; an RTL, so I scan the bank for a BRK and use that address for the RTS
; this version doesn't take into consideration that there is no BRK in
; the bank.  I'll deal with that possibility later.
;
	rep #$30
	longa on
	longi on

	stz IS_ROM	;if flag =0 then RAM if not then ROM
	stz base	;clear it out

	sep #$30	;because it won't work unless you do this
	longa off
	longi off

	lda pck	;get bank to see if ROM or not
	sta base+2	;this way can do long addressing
	cmp #$F0
	blt RAM_RTS	;if less then RAM if >= then ROM -- same as bcc
	sec	;going to subtract
	sbc #$F0	;need offset into table
	asl a	;result*2 is offset into table
	tax	;use as index

	rep #$30
	longa on
	longi on

	ldy BRK_ROM,x	;see if we already have an BRK for this bank
	bne got_brk

	rep #$10
	sep #$20
	longi on	;need full indexes and short acc
	longa off

	ldy #$0000	;going to scan the bank
get_brk	lda [base],Y	;looking for $00 opcode
	beq got_brk
	iny
	bne get_brk

got_brk
	rep #$30
	longa on
	longi on
	tya	;acc needs the proper address
;	sta address	;need to store this address - we do it below now
	sta BRK_ROM,x	;store it in my table
	sta IS_ROM	;<> o therefore ROM
	bra cont	;skip RAM stuff

RAM_RTS
	sep #$30
	longa off
	longi off

	ldy #$03	;offset for next opcode
	lda [PCL],y	;get next opcode in their bank
	sta JSR_OPC	;store for later in my data bank
	lda #$00	;BRK op code
	sta [PCL],y	;store it in its place

	rep #$30
	longa on
	longi on

	lda pcl	;need to store where rtl is to put on stack
cont	sta address

*** Added - 4-Apr-93 JCM - Supports running jsr(addr,x) in real time.

	lda XOPC
	and #$00FF
	cmp #$00FC	;jsr(addr,x)?
	bne @normalJSR

	ldx <PCL	;save  PCL, just to be safe

	inc <PCL
	lda [<PCL]	;get the addr in jsr (addr,x)
	sta <PCL

	ldy XR	;X-reg when we entered GSBug
	lda [<PCL],y	;calculate the jsr address from addr,x
	
	stx <PCL	;restore PCL in case anyone cares

	sta XOPRL	;the address we'll start executing at

@normalJSR

*** End - 4-Apr-93 JCM

	sep #$30
	longa off
	longi off

	lda XOPRL
	sta PCTL
	lda XOPRH
	sta PCTH
	lda PCK	;these are not quite in order for JSR's
	sta PCTK
	bra JSRrtm	;this stuff is same


JSLrt
	php	;DAL 15-Oct-90
	rep #$20	;
	longa on	;
	lda PCL	;
	sta MemIDCheatLo+1	;
	lda PCK	;
	and #$00ff	;
	sta MemIDCheatHi+1	;
	longa off	;
	plp	;DAL

	ldx XOPRB	;By Joe Bo
	cpx #^MLI_16	;MLI_16 call?
	bne JSLrtm	; no
	lda XOPRH
	cmp #>MLI_16
	bne JSLrtm	;no
	lda XOPRL
	cmp #<MLI_16
	bne JSLrtm	;no
	brl XMLI	;yes

JSLrtm	lda XOPRL
	sta PCTL
	lda XOPRH
	sta PCTH
	lda XOPRB
	sta PCTK

JSRrtm	jsr SWAP

	lda >MyID	;save bank0/zero page A1
	sta Temp	;temp save
	phb	;save my debug bank to A1
	pla
	sta >MyID	;save it, used in JPL

	RestoreReg	;restore the user's registers

*** Problem here if interrupts are enabled?  DAL 7-Sep-90

	php	;save user's p
	clc	;Turn off emulation.
	xce	;Put user's emulation flag in c.
	php	;Save the user's emulation flag.
	rep #$20
	longa ON
	pha	;save user's A

;	sep #$20
;	longa off

	phb	;save what's been set
	lda >MyID	;get my debug bank, use same equ only, not MyID
	xba	;switch so long addressing will work
	pha	;swap to my debug bank
	plb	;in doing this, no absolute long required below
	plb

	sep #$20
	longa off
	lda #$80
	sta InX
	rep #$20
	longa on
	longi on


	lda XOPC	;if JSR then jsl to DO_RTS
	and #$00FF	;only need lower byte
	cmp #$0020
	beq Go_JSR

*** Added - 4-Apr-93 JCM

	cmp #$00FC	;handle jsr (addr,x) as well
	beq Go_JSR

*** End - 4-Apr-93 JCM

*** Change our memory ID to match the code we're stepping -- 15-Oct-90 DAL
	php
	rep #$30
	longa on
	longi on
	phx
	phy

	phd
	pha
	pha
MemIDCheatHi	pea $7777	;MODIFIED above --15-Oct-90 DAL
MemIDCheatLo	pea $7777	;MODIFIED above --15-Oct-90 DAL
	jsr BeforeDebuggerToolCall
	_FindHandle
	jsr AfterDebuggerToolCall
	tsc
	tcd
	ldy #6	;offset to memory ID in handle
	lda [1],y
	tax	;got application's MemID in X

	lda FudgeHandle+2
	sta 3
	lda FudgeHandle
	sta 1
	txa
	sta [1],y	;store it into our master pointer record (Y=6)

	pla
	pla
	pld

	lda #$00ff
	sta FudgeIDFlag

	ply
	plx
	plp
	longa off
	longi off
*** end of 15-Oct-90

	jsr BeforeDebuggerToolCall ;11-May-93 JCM - Stops reentrant breaks on tbrks.

	plb	;set it back to theirs here too
	pla	;restore user's A
	plp	;Get back user's emulation flag (in c).
	xce	;And set it.
	plp	;restore user's p
	jsl JPC	;JPC = jml [PCTL], actually jmp to ROM to execute

	jsr AfterDebuggerToolCall ;11-May-93 JCM

	bra RTMLI
Go_JSR
;clc
	plb	;set it back to what they need
	pla	;restore user's A
	plp	;Get back user's emulation flag (in c).
	xce	;And set it.
	plp	;restore user's p
	brl DO_RTS

RTMLI	SaveReg	;save user's registers into table

	lda Temp	;get back bank0/zero page A1
	sta >MyID	;store back, not actually MyID

	jsr SWAP

*
* Put the Debugger handle's memory ID back to its real value
* if we fudged it.
*
* added 10-Oct-90 DAL
*
	php
	rep #$30
	longa on
	longi on
	phb
	phk
	plb
	lda FudgeIDFlag
	beq @unfudged
	stz FudgeIDFlag
	phd
	lda FudgeHandle+2
	pha
	lda FudgeHandle
	pha
	tsc
	tcd
	ldy #6	;offset to MemID in master pointer
	lda DebuggerID
	sta [1],y
	pla
	pla
	pld
@unfudged	plb
	plp
	longa off
	longi off

;////////////////////////////////////////////////////////////////////////////
; 30-May-91 DAL: I believe this code is useless, since if it's a JSR we
;                went to Go_JSR and did not branch here.
;
; after stack and direct page have been set back,
; we need to replace the opcode that we borrowed to
; put the RTL in its place.  Must wait until swap has
; put back the correct stuff into zero page
;
	lda xopc
	cmp #$20	;$20=JSR
	bne RTL_here
	lda JSR_OPC	;replace RTL with real opcode
	ldy #$03	;offset to next opcode
	sta [PCL],y	;forces long addressing
;////////////////////////////////////////////////////////////////////////////

RTL_here	brl INCPC2



RTMLI2	rep #$30
	longa ON
	longi ON

	lda >irq_A
	sta AT	;save low A (& high if e,m=0)

	sep #$20	;LONGA OFF (needed if e,m=0)
	longa off

	lda >irq_P
	sta PT

	cld
*** 18-Jan-91 DAL, with assistance and motivation from Monte.
*** This CLI seems to be behind the mysterious "X-ing a JSR sometimes
*** messes up the bank register (and S)" bug.
*** I will move it down below the >irq_ references to fix the problem.
;	cli	;enable interrupts
*** end of 18-Jan-91 DAL

	sep #$20	;LONGA OFF
	longa off

	lda >irq_B
	sta BT


	rep #$30	;LONGA/I ON
	longa on
	longi on

	lda >irq_X
	sta XT
	lda >irq_Y
	sta YT
	lda >irq_D
	sta DT
;	lda >irq_S
;	sta ST

	lda xDEBUG_D
	tcd	;set D and S
	lda xDEBUG_S	; back to
	tcs	;  Debug D and S

	sep #$30
	longa off
	longi off

	lda >irq_e
	ror a
	lda #0
	ror a	;e into MSB
	sta eT

	eor #$80
	asl a
	lda >irq_S+1
	tax
	lda >irq_S
	adc #3
	sta ST
	bcc @1
	bit eT
	bmi @1
	inx
@1	stx ST+1


	lda >ALTCHR
	sta CT
	sta >SETALTCHR

	lda >irq_M
	sta MT
	sta >MSTATE	;this was a LDA, 30-May-91 DAL!
*** This seems to fix the X-ing in banked memory problem!

	lda >irq_CYA
	asl a	;speed in c
	php
	lda >irq_SHADOW
	asl a
	plp
	ror a
	and #$DE	;strip off text shadow bit
	ora shadowT	;virtual text shadow
	sta QT	;for display
	and #$5F	;strip off speed
	bit TextMode
	bpl @2	;was *+4 DAL	;screen off
	ora #1	;screen on -- disable
@2	sta >SHADOW	; text shadowing

	lda >CYA
	ora #$80
	sta >CYA	;go fast

	lda Temp	;get back bank0/zero page A1
	sta >MyID	;store back, not actually MyID

*** 18-Jan-91 DAL--moved the CLI here from a couple screens above
*** Now we're done with the >irq_ ($E1 global) locations, so it's
*** really safe to re-enable interrupts.
	cli
*** end of 18-Jan-91 DAL

	jsr SWAP
;
; after stack and direct page have been set back,
; we need to replace the opcode that we borrowed to
; put the RTL in its place.  Must wait until swap has
; put back the correct stuff into zero page
;
	lda xopc
	cmp #$20
	beq @restoreOP
	
	cmp #$FC	;how about jsr (addr,x)?
	bne RTL_here2

@restoreOP	lda JSR_OPC	;replace RTL with real opcode
	ldy #$03	;offset to next opcode
	sta [PCL],y	;forces long addressing

RTL_here2	brl INCPC2



XJSRL	ldy #MP_T
	ldx #0
	lda XOPRH
	xba
	lda XOPRL
	jsr MPScan
	bcc XJSRL2

*** *** *** WHAT THE HELL WAS THIS?  Removed.  DAL 11-Oct-90.
***	lda >$004002
***	inc a
***	sta >$004002

	brl JSRrt

***	bra XJSRL2	;removed 12-Oct-90 DAL


XEQ_JSL	lda PCK
	jsr decSR
XJSRL2	clc
	jsr PCADJ2
	pha
	tya
	jsr decSR
	pla
	jsr decSR
	ldy #$4C
	lda XOPC
	cmp #$20
	beq goJMP	;$20->$4C
	ldy #$5C
	cmp #$22
	beq goJMP	;$22->$5C
	ldy #$7C	;$FC->7C
goJMP	brl XEQ_JMP

XEQ_TXS	cpy #$9A	;TXS ?
	bne XEQ_TCS
	lda XR
	ldx XR+1

*** Added - 11-May-93 JCM - If we're in emulation mode the stack will be $01xx, so we
***	        only copy 8 bits of X to the stack pointer.

	bit eR
	bpl toSR	;we're in native mode, all 16 bits are ok

	bra toSRLow	;in emulation, only copy 8 bits

*** End - 11-May-93 JCM

XEQ_TCS	cpy #$1B	;TCS ?
	bne XEQ_PHP
	lda AR
	ldx AR+1
toSR	stx SR+1
toSRLow	sta SR
	brl INCPC2

XEQ_PHP	cpy #8	;PHP ?
	bne XEQ_PHB
	lda PR
	jsr decSR
	brl INCPC2

XEQ_PHB	cpy #$8B	;PHB ?
	bne XEQ_PHK
	lda BR
	jsr decSR
	brl INCPC2

XEQ_PHK	cpy #$4B	;PHK ?
	bne XEQ_PHD
	lda PCK
	jsr decSR
	brl INCPC2

XEQ_PHD	cpy #$B	;PHD ?
	bne XEQ_PHA
	lda DR+1
	jsr decSR
	lda DR
	jsr decSR
	brl INCPC2

XEQ_PHA	cpy #$48	;PHA ?
	bne XEQ_PHX
	jsr check_eRm
	bcs XPHA8	;m = 8 bits
	lda AR+1
	jsr decSR
XPHA8	lda AR
	jsr decSR
	brl INCPC2

XEQ_PHX	cpy #$DA	;PHX ?
	bne XEQ_PHY
	jsr check_eRx
	bcs XPHX8
	lda XR+1
	jsr decSR
XPHX8	lda XR
	jsr decSR
	brl INCPC2

XEQ_PHY	cpy #$5A	;PHY ?
	bne XEQ_TSX
	jsr check_eRx
	bcs XPHY8
	lda YR+1
	jsr decSR
XPHY8	lda YR
	jsr decSR
	brl INCPC2

XEQ_TSX	cpy #$BA	;TSX ?
	bne XEQ_TSC
	lda SR
	sta XR
	jsr check_eRx
	bcs setPR8	;e=1 or e=0,x=1
	xba
	lda SR+1
	sta XR+1
	xba
	bra setPR16

XEQ_TSC	cpy #$3B	;TSC ?
	bne XEQ_PLP
	lda SR+1
	sta AR+1
	xba
	lda SR
	sta AR
	bra setPR16

XEQ_PLP	cpy #$28	;PLP ?
	bne XEQ_REP
	jsr incSR
	bit eR
	bpl @1	;was *+4 DAL
	ora #$30	;e=1, p=%--11----
@1	sta PR
	brl INCPC2

*** added 23-Jan-93 DAL -- simulate REP and SEP
XEQ_REP	cpy #$C2	;REP ?  added 23-Jan-93 DAL
	bne XEQ_SEP
	lda XOPRL
	trb PR
	bra fixPregBits

XEQ_SEP	cpy #$E2	;SEP ?  added 23-Jan-93 DAL
	bne XEQ_SEI
	lda XOPRL
	tsb PR
fixPregBits	bit eR
	bpl @1
	lda #$30
	tsb PR
@1	bra toIncPC2
*** end 23-Jan-93

*** adding SEI and CLI  7-Sep-90 DAL

XEQ_SEI	cpy #$78	;SEI ?   added 7-Sep-90 DAL
	bne XEQ_CLI
	lda #$4
	tsb PR
	bra toIncPC2

XEQ_CLI	cpy #$58	;CLI ?   added 7-Sep-90 DAL
	bne XEQ_PLB
	lda #4
	trb PR
toIncPC2	brl INCPC2

XEQ_PLB	cpy #$AB	;PLB ?
	bne XEQ_PLD
	jsr incSR
	sta BR

;------ set PR based on 8 or 16 bit A-reg ------

setPR8	xba	;aL -> aH
	lda #0	;0 -> aL

setPR16	xba	;test aH
	php	;save z
	asl PR
	asl a
	ror PR	;set/reset n
	plp
	bne setPRz0
	xba	;test aL
	bne setPRz0
	lda #2
	tsb PR	;both aL/H = 0
	bra setPRend

setPRz0	lda #2
	trb PR
setPRend	brl INCPC2

XEQ_PLD	cpy #$2B	;PLD ?
	bne XEQ_PLA
	jsr incSR
	sta DR
	xba
	jsr incSR
	sta DR+1
	xba
	bra setPR16

XEQ_PLA	cpy #$68	;PLA ?
	bne XEQ_PLX
	jsr incSR
	sta AR
	jsr check_eRm
	bcs setPR8
	xba
	jsr incSR
	sta AR+1
	xba
	bra setPR16

XEQ_PLX	cpy #$FA	;PLX ?
	bne XEQ_PLY
	jsr incSR
	sta XR
	jsr check_eRx
	bcs setPR8
	xba
	jsr incSR
	sta XR+1
	xba
	brl setPR16

XEQ_PLY	cpy #$7A	;PLY ?
	bne XEQ_PEA
	jsr incSR
	sta YR
	jsr check_eRx
	bcs setPR8
	xba
	jsr incSR
	sta YR+1
	xba
	bra setPR16

XEQ_PEA	cpy #$F4	;PEA ?
	bne XEQ_PEI
	lda XOPRH
	jsr decSR
	lda XOPRL
	jsr decSR
	brl INCPC2

XEQ_PEI	cpy #$D4	;PEI ?
	bne XEQ_PER
	jsr SAVEPC
	jsr SWAP
	ldx DT+1
	lda XOPRL
	clc
	adc DT
	bcc @1	;was *+3 DAL
	inx
@1	ldy #0
	jsr GETIND
	pha
	txa	;addrH
	jsr decSR
	pla	;addrL
	jsr decSR
	brl INCPC2

XEQ_PER	cpy #$62	;PER ?
	bne XEQ_XCE

	rep #$20
	LONGA ON

	lda PCL
	clc
	adc XOPRL
	clc
	adc #0003

	sep #$20
	LONGA OFF

	xba
	jsr decSR	;addrH
	xba
	jsr decSR	;addrL
	brl INCPC2

XEQ_XCE	cpy #$FB	;XCE ?
	bne XEQ_DSY	; no

	lda PR
	lsr a	;carry = carry
	bit eR	;n = e
	bpl eR_0
	bcs bINCPC2	;e=1,c=1 : no change
	stz eR	;e=1,c=0 : 0->e
	asl a
	ora #$31
	sta PR	;         1->PR_m,x,c
	brl INCPC2

eR_0	bcc bINCPC2	;e=0,c=0 : no change
	ror eR	;e=0,c=1 : 1->e
	asl a	;         0->PR_bit0
	ora #$30	;        1->PR_bit4,5
	sta PR
	stz XR+1	;       0->XR_h
	stz YR+1	;       0->YR_h
	lda #1
	sta SR+1	;       1->SR_h
bINCPC2	brl INCPC2

XEQ_DSY	tya
	and #$F
	cmp #3	;(d,s) or (d,s),y ?
	bne ExecOp	; no -- end of XEQ filter

	tya
	and #$E0
	ora #$0F
	sta XOPC	;convert into: opc al

	tya
	and #$10
	beq XDS	;(d,s)

	jsr SWAP
	lda XOPRL
	clc
	adc ST
	ldx ST+1
	bcc @1	;was *+3 DAL
	inx
@1	ldy #0	;(v1.1 fix from ldy BT)
	jsr GETIND
	clc
	adc YR
	pha	;L
	txa
	adc YR+1
	tax	;H
	ldy BR
	bcc @2	;was *+3 DAL
	iny
@2	pla
	bra XDSset

XDS	lda XOPRL
	clc
	adc SR
	ldx SR+1
	bcc @1	;was *+3 DAL
	inx
@1	ldy #0
XDSset	sty XOPRB
	stx XOPRH
	sta XOPRL
	ldy XOPC


; COPY EXECUTE
	TITLE 'Cortland Debugger -EXECUTE-'

*******************************************************
;
;  Opcode direction execution (non-K/PC & S opcodes)
;
*******************************************************

ExecOp	cpy #$82	;brl?
	bne @ExecOp1	; no
	stz XOPRH
	lda #BRANCH-XOPRB
	bra Set_XOPRL
@ExecOp1	cpy #$80	;bra?
	beq Set_offsetz	; yes
	tya
	and #$1F
	cmp #$10
	bne EXECswap	;not the other branches
Set_offsetz	stz TOPRH
Set_offset	lda #BRANCH-XOPRH
Set_XOPRL	sta XOPRL

EXECswap	jsr SWAP
;
; %%% BUG HERE!
;
; If Debugging in Emulation mode, this turns emulation mode on.  Too bad the instruction
; is executing in the debugger bank instead of bank 0!  This is bad if interrupts are
; enabled, since an interrupt that occurs will wind up returning to bank 0.
;
; (Mensch & Lyons, 30-Aug-90)

	sta >$ffdddd

	lda PT	;Adding this stuff for 8-bit stepping 7-Sep-90 DAL
	sta RealUserP
	ora #4	;force Interrupt-disable bit on
	sta PT

	RestoreReg
XOPC	NOP	;OPCODE TO EXECUTE
XOPRL	NOP	;OPERAND (L) OF OPCODE
XOPRH	NOP	;OPERAND (H) OF OPCODE
XOPRB	NOP
	brl NOBRANCH
*** FredPt	ds.W 1	; must have a word here <sigh>

BRANCH	SaveReg	;save user's registers into table

*** Put the user's real Interrupt-disable bit back, and
*** force $010100 to EmulStackValue     7-Sep-90 DAL
	pha
	lda RealUserP
	and #4
	pha
	lda PT
	and #$ff-4
	ora 1,s
	sta 1,s
	pla
	sta PT
	lda #EmulStackValue
	sta >$010100
	pla
*** done putting the real I bit back (DAL)

	jsr SWAP
*** added 27-Feb-92 DAL -- If the screen is off, TLEN is still big for a symbolic name.  Clip to 2.
	lda TLEN
	cmp #4
	bcc @okay
	lda #2
	sta TLEN
@okay
*** end 27-Feb-92
	jsr PCADJ
	sta PCL
	sty PCH
	clc
	adc TOPRL
	sta PCL
	tya
	adc TOPRH
	tay

	lda XOPC
	cmp #$82
	beq NOadjust	;brl
	bit TOPRL	;1-byte branch
	bpl NOadjust	; positive branch
	dey	;negative 1-byte branch adjust

NOadjust	ldx #3
	cpy PCH
	beq @1	;was *+3 DAL
	inx
@1	stx RELCYC
	sty PCH
	brl XEQEND

NOBRANCH	SaveReg	;save user's registers into table

*** Put the user's real Interrupt-disable bit back, and
*** force $010100 to EmulStackValue     7-Sep-90 DAL
	pha
	lda RealUserP
	and #4
	pha
	lda PT
	and #$ff-4
	ora 1,s
	sta 1,s
	pla
	sta PT
	lda #EmulStackValue
	sta >$010100
	pla
*** done putting the real I bit back (DAL)

	lda #2
	sta RELCYC

INCPC	jsr SWAP
INCPC2	jsr PCADJ
	sta PCL
	sty PCH

XEQEND	bit CodeMode
	bmi NEXTop
	bit TextMode
	bpl NEXTop
	bit SKIP
	bpl XEQout
	jsr SAYSKIP
	lsr SKIP
	bra XEQstep

XEQout	jsr OUTREG
	jsr OUTSTACK
	jsr OUTCELL
	jsr OUTKBC
XEQstep	bit StepMode
	bmi TEXTUP

	lda RATE
	jsr WAIT

TEXTUP	jsr SAVEPC
	nop
	lda PCL
	sec
	sbc #6
	sta PCL
	lda PCH
	sbc #0
	sta PCH
	lda NumScroll
	dec a
	sta ProDOSFlag

@1	jsr DFUP	; Scroll a line.

	jsr INSDS
	ldx I_OPC
	jsr SETBASE
	jsr CLINE
	jsr OUTOPC
	jsr UpdateCommandLine ;11-May-93 JCM - redraws either step/trace based on mode
	jsr PCADJ
	sta PCL
	sty PCH
	dec NumScroll	; Any more lines?
	bne @1	; Guess so.
	jsr RESTPC

NEXTop	bit UNTIL
	bmi NEXTopS	;set in MSB
	asl UNTIL	;set by moving to MSB

NEXTopS	jsr CHECKstack
	bcc NEXTopC	;no stack collision
	ror TextMode	;force debug screen on
	jsr BELL
	brl DEBUG

NEXTopC	bit CodeMode
	bpl goTRACE

	jsr SAVEPC
	brl JMPER

goTRACE	brl TRACE


; COPY MISC1
	TITLE 'Cortland Debugger -MISC1-'

*******************************************************
;
;  UpShift chr in A  (X,Y preserved)
;
*******************************************************

UPSHIFT	cmp #'a'
	blt NoShift
	cmp #'z'+1
	bge NoShift
	and #$DF
NoShift	rts


*******************************************************
;
;  Get next non-space chr  (and UPSHIFTed)
;
;  IN:   start scanning at IN offset Y
;  OUT:  A = first non-blank chr
;        Y = offset of chr (A) PLUS ONE
;
*******************************************************

NNBL	lda InputBuffer,y
	iny
	jsr UpShift
	cmp #$A0
	beq NNBL
	rts


*******************************************************
;
;  COPYLINE -- copy command line to InputBuffer
;
*******************************************************

COPYLINE	sty BufLen
COPYloop	jsr OUTload
	sta InputBuffer-1,y
	dey
	bne COPYloop
	rts

*******************************************************
;
;  Get a HEX number
;
;  IN:   chr's in InputBuffer starting at offset Y
;        KVAL = default AB
;  OUT:  AL/AH/AB
;        a & DIGICNT = bytes entered (0,1,2,3)
;        Y = index to next non-HEX chr in InputBuffer
;        carry set if no HEX digits entered
;        (x, DIGIT destroyed by NEEDHEX)
;
*******************************************************
GetHex	lda PCK
	sta KVAL
	lda #0
GetHex1	sta DigitCnt
	stz AB
	stz AH
	stz AL
GetHex2	cpy BufLen
	bge GetHex4	;no more chr's
	lda InputBuffer,y
	pha	;save chr
	jsr NEEDHEX	;rotate into AL/H
	pla	;retrieve chr
	bcc GetHex3	;legal hex digit
	cmp #'/'	;bank delimiter?
	bne GetHex4	; no
	iny
	lda AL
	sta KVAL
	lda #$80
	bra GetHex1
GetHex3	inc DigitCnt
	iny
	bra GetHex2
GetHex4	lda DigitCnt
	inc a
	lsr a	;DIGITs+1 / 2
	beq GetHex7	;no digits entered
	pha	;save DigitCnt
	cmp #3	;user rol into AB?
	beq GetHex6	; yes
	lda KVAL
	sta AB
GetHex6	pla
	cmp #3
	blt @1	;was *+4 DAL
	lda #3
@1	sta DigitCnt
	clc
	rts
GetHex7	sec
	rts

*******************************************************
;
;  NEEDHEX -- roll a into AL/H
;  IN:   a-reg, old AL/H
;  OUT:  new AL/H,  a=AL
;        carry clear=legal digit, set=illegal
;        (x, DIGIT destroyed)
;
*******************************************************

NEEDHEX	eor #$B0
	cmp #$0A
	bcc NEEDHEX2
	adc #$88
	ora #$20	;downshift
	cmp #$FA
	blt NEEDHEX4

NEEDHEX2	and #$F
	sta DIGIT	;temp
	ldx #4
	lda AL

NEEDHEX3	asl a
	rol AH
	rol AB
	dex
	bne NEEDHEX3
	ora DIGIT
	sta AL
	clc
	rts

NEEDHEX4	sec
	rts

*******************************************************
;
;  GETDEC -- get a decimal number
;
*******************************************************

GETDEC	lda #0
	sta AL
	sta AH

GETDEC2	lda InputBuffer,y
	cmp #$B0
	bcc GETDERR
	cmp #$BA
	bcs GETDERR
	and #$F
	sta T5
	lda AH
	sta T4
	lda AL
	asl a
	rol AH
	asl a
	rol AH
	clc
	adc AL
	pha
	lda AH
	adc T4
	sta AH
	pla
	asl a
	rol AH
	clc
	adc T5
	sta AL
	bcc @1	;was *+4 DAL
	inc AH
@1	iny
	cpy BufLen
	bne GETDEC2
	clc
	rts

GETDERR	sec
	rts

*******************************************************
;
;  PCADJ/2/3 -- Adjust PCL,H based on A or TLEN
;      (from Apple //, Cortland Monitor)
;
*******************************************************

PCADJ	sec
PCADJ2	lda TLEN
PCADJ3	ldy PCH
	tax
	bpl @1	;was *+3 DAL
	dey
@1	adc PCL
	bcc @2	;was *+3 DAL
	iny
@2	rts

*******************************************************
;
;  SWAP -- swap zpage reg's w/cells in Table
;
*******************************************************

*** Must always call SWAP with the B register = debugger's bank!  31-Aug-90 DAL

SWAP	ldx #BLOCKlen-1
SWAPloop	lda PCL,x
	ldy BLOCK,x
	sta BLOCK,x
	sty PCL,x
	dex
	bpl SWAPloop
	rts

*******************************************************
;
;  CHECKstack -- check for user stack running
;    into DEBUG stack or direct page
;
*******************************************************
CHECKstack
	rep #$20
	LONGA ON

	lda SR
	sec
	sbc #$0008
	cmp xDEBUG_S
	bge CHECKok	;SR-8 > DEBUG_S
	adc #$0028
	cmp xDEBUG_S
	blt CHECKok	;SR+$30 < DEBUG_S

	sep #$20
	longa off

	sec
	rts
CHECKok	sep #$20
	LONGA OFF

	clc
	rts

*******************************************************
;
;  SAVEPC -- move PC (direct page) to PCT (table)
;            (A destroyed;  X,Y preserved)
;
*******************************************************

SAVEPC	lda PCL
	sta PCTL
	lda PCH
	sta PCTH
	lda PCK
	sta PCTK
	rts


*******************************************************
;
;  RESTPC -- move PCT (table) to PC (direct page)
;            (A destroyed;  X,Y preserved)
;
*******************************************************

RESTPC	lda PCTL
	sta PCL
	lda PCTH
	sta PCH
	lda PCTK
	sta PCK
	rts


*******************************************************
;
;  RESTOP -- restore instruction
;
*******************************************************

RESTOP	lda XOPC
	sta TOPC
	lda XOPRL
	sta TOPRL
	lda XOPRH
	sta TOPRH
	lda XOPRB
	sta TOPRB
	lda XFMT
	sta TFMT
	lda XLEN
	sta TLEN
	rts


; COPY MISC2
	TITLE 'Cortland Debugger -MISC2-'

*******************************************************
;
;   GETIND -- get indirect address
;
;   IN:   addressL,H,B = A,X,Y
;         (SWAP must have just been called)
;   OUT:  addressL,H,B found at YXA.YXA+2 = A,X,Y
;
*******************************************************

GETIND	sty JMPINDL+3
	sty JMPINDH+3
	sty JMPINDB+3
	stx JMPINDL+2
	sta JMPINDL+1
	inc a
	bne @1	;was *+3 DAL
	inx
@1	stx JMPINDH+2
	sta JMPINDH+1
	inc a
	bne @2	;was *+3 DAL
	inx
@2	stx JMPINDB+2
	sta JMPINDB+1

JMPINDL	lda >$FFFFFF
	pha
JMPINDH	lda >$FFFFFF
	pha
JMPINDB	lda >$FFFFFF
	pha

	jsr SWAP
	ply
	plx
	pla
	rts

*******************************************************
;
;               Stack operations for XEQ
;
*******************************************************

incSR	inc SR
	bne ldaSR
	bit eR
	bmi ldaSR
	inc SR+1
ldaSR	lda [SR]
	rts
decSR	sta [SR]
	dec SR
	lda SR
	cmp #$FF
	bne decSRrts
	bit eR
	bmi decSRrts
	dec SR+1
decSRrts	rts

*******************************************************
;
;  check_eRm -- e=0,m=0 carry clr, otherwise carry set
;               (all registers preserved)
;
*******************************************************

check_eRm	pha
	bit eR
	bmi check_sec
	lda PR
	and #$20
	bne check_sec
check_clc	clc
	pla
	rts

*******************************************************
;
;  check_eRx -- e=0,x=0 carry clr, otherwise carry set
;               (all registers preserved)
;
*******************************************************

check_eRx	pha
	bit eR
	bmi check_sec
	lda PR
	and #$10
	beq check_clc
check_sec	sec
	pla
	rts



*******************************************************
;
;  BREAK -- Breakpoints trapped to here
;           Starting environment: native, 8 bit m,x
;
*******************************************************

BREAK	phb	;save Monitor bank
	phk	;don't want ROM bank -- want RAM bank =k
	plb	;Debug bank
	stz InRT

	bit InX	;did we come from a real time JSR or JSL?
	bpl @1	; nope, handle as a real break

	lda TOPC	; Make sure it was a JSR not a JSL.
	cmp #$20	;was it from an x'ed jsr?
	beq @returnedFromJSR ; yep, we can deal with this
	
	cmp #$FC	;how about jsr (addr,x)?
	bne @1	; nope

@returnedFromJSR

	rep #$30
	longa ON
	longi ON

	lda >irq_PC
	sec
	sbc #$0002
	cmp address

	sep #$30
	longa OFF
	longi OFF

	bne @1

	stz InX

	pla	; Get rid of monitor bank.

	brl RTMLI2

@1	tdc
	sta TempBASL
	xba
	sta TempBASH	;save Monitor direct page
	lda xDEBUG_D+1
	xba
	lda xDEBUG_D
	tcd	;Debug direct

	jsr SWAP

	bit InX	;did we come from a real time JSR or JSL?
	bpl @2	; nope, we didn't
	stz InX

;
; after stack and direct page have been set back,
; we need to replace the opcode that we borrowed to
; put the RTL in its place.  Must wait until swap has
; put back the correct stuff into zero page
;
	lda xopc
	cmp #$20
	beq @replaceOP
	
	cmp #$FC	;do jsr (addr,x) as well
	bne @2

@replaceOP	lda JSR_OPC	;replace RTL with real opcode
	ldy #$03	;offset to next opcode
	sta [PCL],y	;forces long addressing

@2
	jsr BREAKSET

	jsr BPSCAN
	bpl MYBREAK	;found >irq_K/PC in BP table

;  NOT my break, User or Debug BRK ?

	bit BRK_STATE
	bmi UBRK	;User BRK

	jsr BELL	;Debug BRK
	cli
	brl DEBUG

;  User BRK -- return to Monitor

UBRK	jsr SWAP	;restore dpage
	lda TempX
	sta >MSTATE
	lda TempBASH	;no K/PC found
	xba
	lda TempBASL	;restore Monitor
	tcd	;direct page &
	plb	;bank
	sec
	rtl

MYBREAK	pla	;strip off Monitor bank
	lda xDEBUG_S+1
	xba
	lda xDEBUG_S
	tcs	;debug stack

	sta >SETALTCHR
	lda CYA
	ora #$80	;fast
	sta CYA
	ldx BPNUMBER
	sec
	ror CodeMode
	cli

;	lda PCR
;	dec A
;	dec A
;	sta PCR

	brl GETORG

; Set the registers from the irq values.

BREAKSET	lda >irq_P
	sta PR	;setup user registers
	lda >irq_B
	sta BR
	lda >irq_e
	ror a
	lda #0
	ror a
	sta eR
	lda >irq_PCK
	sta PCK
	lda >MSTATE
	sta TempX
	lda >irq_M
	sta MR
	sta >MSTATE
	lda >ALTCHR
	sta CR
	lda >irq_CYA
	asl a
	php
	lda >irq_SHADOW
	asl a
	plp
	ror a
	bit InX
	bpl @1
	and #$DE	; Strip off text shadow bit.
	ora shadowT	; Virtual text shadow for display.
@1	sta QR
	and #1
	sta shadowT

	lda eR	; Put the inverse of the emulation bit into
	eor #$80	;  the carry.
	asl a
	lda >irq_S+1
	tax
	lda >irq_S
	adc #3
	sta SR
	bcc setSH
	bit eR
	bmi setSH
	inx
setSH	stx SR+1

	rep #$20
	LONGA ON
	lda >irq_A
	sta AR
	lda >irq_X
	sta XR
	lda >irq_Y
	sta YR
	lda >irq_D
	sta DR
	lda >irq_PC
	sec
	sbc #$0002
	sta PCL

	sep #$20
	LONGA OFF

	jsr ON
	rts


*******************************************************
;
;  IntEntry -- Pressing CTRL-OA-Opt-ESC trapped to here
;           Starting environment: native, 8 bit m,x
;
*******************************************************

IntEntry	phx	;save Monitor bank
	phk	;don't want ROM bank -- want RAM bank =k
	plb	;Debug bank
	stz InRT

	tdc
	sta TempBASL
	xba
	sta TempBASH	;save Monitor direct page
	lda xDEBUG_D+1
	xba
	lda xDEBUG_D
	tcd	;Debug direct

	jsr SWAP

	bit InX	; Did we come from a real-time subroutine?
	bpl @1	; No.

;
; after stack and direct page have been set back,
; we need to replace the opcode that we borrowed to
; put the RTL in its place.  Must wait until swap has
; put back the correct stuff into zero page
;
	lda xopc
	cmp #$20
	bne @1
	lda JSR_OPC	;replace RTL with real opcode
	ldy #$03	;offset to next opcode
	sta [PCL],y	;forces long addressing
@1

	lda irq_s
	sta T1
	lda irq_s+1
	sta T2
	stz T3

	ldy #1
	lda [T1],y
	sta PR

	lda irq_B
	sta BR
	lda irq_e
	ror a
	lda #0
	ror a
	sta eR
	bit er	; If we were in emulation mode, set PCK
	bmi ClearPCK2	;  to zero.
	ldy #4	; Otherwise, get it from the stack.
	lda [T1],y
	sta PCK
	bra DonePCK2
ClearPCK2	stz PCK
DonePCK2	lda >MSTATE
	sta TempX
	lda irq_M
	sta MR
	sta >MSTATE
	lda >ALTCHR
	sta CR
	lda irq_CYA
	asl a
	php
	lda irq_SHADOW
	asl a
	plp
	ror a
	sta QR

	lda eR	; Put the inverse of the emulation bit into
	eor #$80	;  the carry.
	asl a
	lda irq_S+1
	tax
	lda irq_S
	adc #3	; Adds 3 if e=1 and 4 if e = 0.
	sta SR
	bcc IntEntry2
	bit eR
	bmi IntEntry2
	inx
IntEntry2	stx SR+1

	rep #$20
	LONGA ON
	lda irq_A
	sta AR
	lda irq_X
	sta XR
	lda irq_Y
	sta YR
	lda irq_D
	sta DR
	ldy #2	; Get the pc from the stack.
	lda [T1],y
	sta PCL

	sep #$20
	LONGA OFF
	cli

	bit InX	; Were we in a real-time subroutine
	bpl @1	;  when we entered?
	stz InX	; We aren't any more.

; Do the stuff needed to exit the trace gracefuly.

	lda QR
	and #$DE	; Strip off text shadowing bit.
	ora shadowT	; Virtual text shadow for display.
	sta QR

	lda Temp
	sta >MyID

	brl TraceEnd

@1	lda QR
	and #1
	sta shadowT
	jsr ON
	brl INPUT


*******************************************************
;
;              BPSCAN -- Breakpoint scan
;
*******************************************************

BPSCAN	ldx N_BP
	dex
BPSCAN2	lda BPActiveTable,x
	bpl BPSCAN3
	lda PCL
	cmp BPAddrLowTable,x
	bne BPSCAN3
	lda PCH
	cmp BPAddrHighTable,x
	bne BPSCAN3
	lda PCK
	cmp BPAddrBankTable,x
	beq BPSCAN4
BPSCAN3	dex
	bpl BPSCAN2
	rts
BPSCAN4	stx BPNUMBER
	rts

*******************************************************
;
;               BPIN -- Breakpoints IN
;
*******************************************************

BPIN	jsr DoBPIN
	brl Debug1

DoBPIN	bit BPIO
	bmi BPERR
	jsr SAVEPC
	lda eR
	pha	;save it
	lda #$80
	sta eR	;forces MP/XPVAL=8 in INSDS
	ldx N_BP
	dex
BPIN2	stx T1
	lda BPActiveTable,x
	bpl BPIN6
	lda BPTriggerTable,x ; next test the trigger to see if it's zero
	beq BPIN6	; if it is, this BP don't go in
	lda BPAddrLowTable,x
	sta PCL
	lda BPAddrHighTable,x
	sta PCH
	lda BPAddrBankTable,x
	sta PCK

	jsr INSDS
*** 8-Jul-91 DAL -- if TLEN>3, make it 2 (because it's really a BRL in BRL/777x)
	lda TLEN
	cmp #4
	bcc @ok
	lda #2
	sta TLEN
@ok
*** end 8-Jul-91
	lda T1
	asl a
	asl a
	asl a
	tax
	ldy #0
BPIN3	lda TOPC,y
	sta TOT,x
	inx
	iny
	cpy #6
	bne BPIN3
	tay	;TLEN
BPIN4	bne @BPIN5
	tya
	bpl @1	;was *+4 DAL
@BPIN5	lda #$EA	;NOP
@1	sta [PCL],y
	dey
	bpl BPIN4
	ldx T1
BPIN6	dex
	bpl BPIN2
	stx BPIO
	pla
	sta eR	;restore eR
	jsr RESTPC
	rts

BPERR	rts	;was BRL ErrCmd (12-Feb-92 DAL)


*******************************************************
;
;              BPOUT -- Breakpoints OUT
;
*******************************************************

BPOUT	jsr DoBPOUT
	brl Debug1

DoBPOUT	bit BPIO
	bpl BPERR
	jsr SAVEPC
	ldx N_BP
	dex
BPOUT2	stx T1
	lda BPActiveTable,x
	bpl BPOUT4
	lda BPTriggerTable,x ; next test the trigger to see if it's zero
	beq BPOUT4	; if it is, this BP don't go in
	lda BPAddrLowTable,x
	sta PCL
	lda BPAddrHighTable,X
	sta PCH
	lda BPAddrBankTable,x
	sta PCK
	txa
	asl a
	asl a
	asl a
	sta T2
	adc #5
	tax
	lda TOT,X
	sta TLEN
	inc TLEN	;<- TLEN+1
	ldy #0
	ldx T2
BPOUT3	lda TOT,X
	sta [PCL],Y
	inx
	iny
	cpy TLEN
	bne BPOUT3
	ldx T1
BPOUT4	dex
	bpl BPOUT2
	inx
	stx BPIO

	jsr RESTPC
	rts

*******************************************************
;
;   MPScan -- scan Memory Protect Table for hit
;
;   IN:   X = addrB, A = addrL/H, Y = MP type
;   OUT:  carry clear: Y = MP index
;         carry set: no hit
;         (A,X,T4,T5,T6 destroyed)
;
;
; The V flag means something on exit, but what?  DAL 11-Oct-90
;
; V flag means the window found had the attribute
; requested??
;
*******************************************************

MPScan	sty T4	;attribute requested
	sta T5	;addrL
	xba
	sta T6	;addrH
***	rep #$40	;clear overflow
	clv	; DAL
;
; 3/23/90	Mensch
; Added a feature that suspends memory protect if the option key is down.
;
; *** Why isn't this usually working right?  31-Aug-90 DAL
;
; Option makes the MP test fail (for both MP ranges and glue - 12-May-93 JCM)
;

	ldy N_MP	; preload for MPNext
	lda >$E0C025	; get the keymod register
	and #$40	; test just the option key - 12-May-93 JCM
	bne MPFail	; if it is, then skip any mp ranges

MPnext	dey
	bmi MPfail	;out of MP's

	lda T4	;attribute requested
	cmp MPA,y
	bne MPnext	;no match
	sep #$40	;set overflow--found attribute

	txa	;addrB
	cmp MP1B,y
	beq MP1cmp
	blt MPnext
	cmp MP1B,y	;change to MP2B if 2nd bank allowed
	beq MP2cmp
	bge MPnext

MPok	sty MPNUMBER
	bit TextMode
	bpl MPoksec
	tya
	clc
	adc R_MP
	tax
	jsr SETBASE
	lda #C_MP
	sta LEFT
	clc
	adc #$D
	tay
	jsr ILOOP
MPoksec	sec
	ror MPFLAG
	sep #$40	;set overflow
	sec
	rts

MP1cmp	lda T6
	cmp MP1H,y
	blt MPnext
	bne MPNcmp
	lda T5
	cmp MP1L,y
	blt MPnext
MPNcmp	txa
	cmp MP1B,y	;change to MP2B if 2nd bank allowed
	bne MPok
MP2cmp	lda T6
	cmp MP2H,y
	blt MPok
	bne MPnext
	lda T5
	cmp MP2L,y
	blt MPok
	beq MPok
	bra MPnext
MPfail
;
; Test the glue here....
;
	ldy N_MP	; see if any memory protect boxes...
	beq @SkipGlueTest
	lda >$E0C025	; read the option key...
	and #$40
	bne @SkipGlueTest
	jsr GlueSnypher	; call the magical glue snypher...
	sep #$30
	longa off
	longi off
	bcs @WeGotGlue	; if the carry set, then we got glue!
@SkipGlueTest
	clc
	rts
@WeGotGlue
;
; If we have glue, we gotta search thru the mp list to see if we can find
; the $E10000 entry...
;
	ldy N_MP	; get number of memprotect boxes...
@oLoop	dey
	bmi @SkipGlueTest	; else, skip the glue test!
	lda T4	;attribute requested
	cmp MPA,y
	bne @oLoop	;no match
	sep #$40	;set overflow--found attribute
	lda #$E1	; now see if it's $E10000
	cmp MP1B,y	; first test the bank..
	bne @oLoop
	lda MP1H,y
	bne @oLoop
	lda MP1L,y
	bne @oLoop	; it just can't be right...
	brl MPok	; else report it's protected...


*******************************************
;
;            OFF debug screen
;
*******************************************

OFF	jsr SAVEdis
	sec
	ror dis_status	;cleared if trace/single-step

	jsr ClearAll
	lda QR
	lsr a
	bcs OFFout	;disabled

	bit TextMode
	bpl OFFout	;display already disabled

	phb

	rep #$30	;e0+e1/400.7ff<0+1/400.7ffM
	LONGA ON
	LONGI ON
	ldx #$400	;source
	txy	;= destination
	txa	;= amount
	dec a
	mvn $000000,$E00000
	ldx #$400
	txy
	txa
	dec a
	mvn $010000,$E10000

	sep #$30
	LONGA OFF
	LONGI OFF
	plb

	lsr TextMode
OFFout	rts

*******************************************
;
;            ON debug screen
;
*******************************************

ON	bit TextMode
	bmi AlreadyOn	;already on
	sec
	ror TextMode
	jsr NEWTEXT
	jsr UPDATE
	bit dis_status
	bpl NOdis	;trace/single-step cleared dis
	jsr RESTOREdis
NoDis	rts

AlreadyOn	brl DEBUG_DISPLAY	; Just turn on the correct screen

; COPY MISC3
	TITLE 'Cortland Debugger 	-MISC3-'

*******************************************************
;
;  INSDS -- compute format and length of opcode
;           (derived from Cortland Monitor)
;
;  IN:   [PCL] or A = opcode
;  OUT:  X, TFMT = index into FMT2/3
;        TLEN = instruction length (0-3)
;        T4 = FMT value
;        (A,Y destroyed)
;        TOPC buffer = copy of instruction (noted by DAL 8-Jul-91)
;
*******************************************************

INSDS	jsr check_eRm
	lda #0
	rol a	;1=8, 0=16 bit m
	sta MPVAL

	jsr check_eRx
	lda #0
	rol a
	sta XPVAL

INSDS2	lda ProDOSFlag	; Are we in a ProDOS16 call?
	beq @2	; Nope.
	cmp #1	; Are we at the parameter pointer.
	beq @1	; Yep.
	lda #1	; Two bytes in the call number.
	bra INSDS6	; Go get the bytes.
@1	lda #3	; Four bytes in the parameter pointer.
	bra INSDS6	; Go get the bytes.
@2

*** added 8-Jul-91 DAL -- check for a BRL/7771-style inline procedure name

*** Move to a sub - 11-May-93 JCM - I moved this to a subroutine so the code that handles
***	                instruction skipping (down-arrowing while stepping)
***	                can properly skip inline names as a though they were a
***                                 large, single instruction.

	jsr IsInstInlineName
	bcs @3	;not an inline name

	inc a
	inc a
	sta TLEN

	ldx #$FF
	stx TFMT
	rts

;	lda [PCL]
;	cmp #$82	;BRL?
;	bne @3
;	sta TOPC
;	ldy #4
;	lda [PCL],y
;	cmp #$77
;	bne @3
;	dey	;Y=3
;	lda [PCL],y
;	and #$F0
;	cmp #$70
;	bne @3
;	dey	;Y=2 (high byte of BRL offset must be 0)
;	lda [PCL],y
;	sta TOPC+2
;	bne @3
;	dey	;(Y=1) low byte of BRL offset
;	lda [PCL],y
;	sta TOPC+1
;	inc a
;	inc a
;	sta TLEN
;	ldx #$FF
;	stx TFMT
;	rts

*** End - 11-May-93 JCM

@3
*** end of 8-Jul-91

	lda [PCL]
INSDS3	lsr a	;EVEN/ODD TEST
	sta T4	;Save for imm opcode test
	php	;save odd even status
	bcc IEVEN
	and #$0F	;MASK BITS
	ora #$80
IEVEN	lsr A	;LSB into c for L/R test
	tax
	lda FMT1,X	;GET FORMAT INDEX BYTE
	bcc INMASKF	;R/L H-BYTE ON CARRY
	lsr a
	lsr a
	lsr a
	lsr a
INMASKF	and #$F
	plp	;get back odd even status
	bcc INSDS4
	adc #7	;extra 8 byte disp for odd
INSDS4	sta TFMT	;save index of the table
	tax
	cpx #8	;If 8 then a 1 or 2 byte
	bne INSDS5	;  # instruction
	lda T4	;Recall LSR'ed opc for test
	and #4	;Test 1 bit only
	beq INSDS4_2	;=0 then 'x' type # opcode
	lda MPVAL	;Test for 16/8 bit
	bra INSDS4_4	; for A access

INSDS4_2	lda XPVAL	;Test 16/8 for X/Y access
INSDS4_4	bne INSDS5	;Z=1 then 8 bit operand

	lda #2	;else C=0 then 16 bit
	bra INSDS6	;Skip normal lookup
INSDS5	lda FMT3,X	;index into opc len table
	sta T4	;Save for miniassembler
	and #3
INSDS6	sta TLEN	;= length-1
	tay
	iny	;store 2 extra (for ProDOS calls)
	iny
	lda [PCL],y
	sta ProDOSCallNum+1
	dey
	lda [PCL],y
	sta ProDOSCallNum
	dey
INSDSL	lda [PCL],y
	sta TOPC,y
	dey
	bpl INSDSL
	rts

*** Subroutinized - 11-May-93 JCM - Returns SEC if current instruction isn't an inline name, CLC
***	                if it is.

IsInstInlineName	lda [PCL]
	cmp #$82	;BRL?
	bne @notInline
	sta TOPC
	ldy #4
	lda [PCL],y
	cmp #$77
	bne @notInline
	dey	;Y=3
	lda [PCL],y
	and #$F0
	cmp #$70
	bne @notInline
	dey	;Y=2 (high byte of BRL offset must be 0)
	lda [PCL],y
	sta TOPC+2
	bne @notInline
	dey	;(Y=1) low byte of BRL offset
	lda [PCL],y
	sta TOPC+1

	clc
	
	rts

@notInline	sec

	rts

*** End - 11-May-93 JCM

*******************************************************
;
;  MINDEX -- compute index into MNEML/R tables
;            (derived from Cortland Monitor)
;
;  IN:  Y = opcode
;  OUT: A = index into MNEML/H
;       (X preserved)
;
*******************************************************

MINDEX	tya
	lsr a
	tay
	bcc OEVEN
	and #7
	cmp #5
	bne ODD1
	dey	;nnnn1011 -> 0nnnn011
	bra OEVEN2

ODD1	tya	;nnnxxxx1 -> 0nnn1001
	cmp #$44	;BIT imm?
	beq ODD2
	and #$70
	ora #9
	bra ODONE

ODD2	lda #$12	;point to BIT
	bra ODONE

OEVEN	and #3
	cmp #3
	bne OEVEN1
	tya	;nnnxx110 -> 0nnn0111
	cmp #$4F
	beq OEVEN2	;convert to STZ
	and #$70
	ora #7
	bra ODONE

OEVEN2	dey
OEVEN1	tya	;nnnnnnn0 -> 0nnnnnnn
ODONE	rts

*******************************************************
;
;    Mini-assmbler (derived from Cortland Monitor)
;
*******************************************************

MINBAD	rts

MINIASM	ldx #3
	jsr NNBL
	dey
MIN1	lda InputBuffer,y
	cmp #'A'
	blt MINBAD
	jsr UpShift
	cmp #$DB
	bge MINBAD
	sbc #$BE	;subtract #$BF
	iny
	phx
	asl a
	asl a
	asl a
	ldx #4
NXTMN	asl a
	rol RMNEM	;encode for Mnemonic Table
	rol LMNEM	; lookup (later)
	dex
	bpl NXTMN
	plx
	dex
	bne MIN1
	asl RMNEM
	rol LMNEM

	ldx #$7	;index into addr mode tables
	stz T5	;0= not long address

AMOD1	jsr NNBL	;Get next non-blank char
	sty T3	;Save position in InputBuffer buffer
	cmp CHAR1,X
	beq AMOD1_2
	cmp CHAR3,X	;Test for long address mode
	bne AMOD2
	lda #$40
	sta T5	;Set bit 6 if long address

AMOD1_2	cmp #'$'	;Ignore '$'
	bne AMOD1_4
	iny
	bra AMOD2

AMOD1_4	jsr NNBL	;Get next non-blank char

	cmp CHAR2,X
	beq AMOD3
	lda CHAR2,X	;=0 then done with checking
	beq AMOD4
	ldy T3	;Recall Y

AMOD2	clc

AMOD4	dey

AMOD3	rol T2
	cpx #5
	bne AMOD6	;not user's address next
	jsr GetHex	;get user's address
	iny
	ldx #1	;as primer for T6

	and #1
	beq AMOD3_6
	lda #1	;Set up 8 bit for disassem
	bra AMOD3_8

AMOD3_6	lda #0	;Set up 16 bit for disassem

AMOD3_8	sta MPVAL
	sta XPVAL
	lda AH	;Test Hi byte of user number
	beq AMOD5
	inx

AMOD5	stx T6	;Remember X for awhile
	ldx #5	;Restore X to 5
	dey

AMOD6	stx T1	;Preserve 'X' index
	dex	;Test next format
	bpl AMOD1	;Continue til all done

	lda T5	;Set bit 6 if long address
	ora DigitCnt	;Mask into counter
	sta DigitCnt	;and save in counter.
	sty T3	;update position
	bra GETOP

REL	lda DigitCnt	;must be 2 or less or error
	cmp #3
	bcs GOERR	;Error exit
	lda T1	;Test for BRL/PER or
	cmp #$82	;regular 1 byte branch
	beq RELLONG	;=brl
	cmp #$62	;A per is processed as
	beq RELLONG	; a brl instruction
	ldy AH
	ldx AL
	bne REL1
	dey	;point to offset
REL1	dex	;displacement - 1
	txa
	clc
	sbc PCL	;subtract current PCL
	sta AL	;and save as displacement
	bpl REL2	;check page
	iny
REL2	tya	;get page
	sbc PCH	;check page
	beq MOVINST
GOERR	rts	;error exit

RELLONG	rep #$30	;Go to 16 bit land
	longa on
	longi on
	lda AL	;To address
	dec a	;Offset by 2
	dec a
	clc	;Causes correct subtraction
	sbc PCL	;From address
	sta AL	;Save offset
	sep #$30	;Back to 8 bit land
	longa off
	longi off
MOVINST	ldy TLEN
	beq ASMOP3
*** 8-Jul-91 DAL
	cpy #4
	bcc @ok
	ldy #2	;it's really a BRL!
@ok
*** end 8-Jul-91
ASMOP2	tyx
	lda AL-1,x	;zero page
	sta [PCL],Y
	sta TOPRL-1,Y
	dey
	bne ASMOP2
ASMOP3	lda T1
	sta TOPC
	sta [PCL],Y
	lda DUMPMODE
	ora TemplMode
	bmi ASMOP4
	bit AsmFlag
	bpl ASMOP4
	jsr DFUP
	jsr OUTOPC
ASMOP4	jsr PCADJ
	sty MEMPTR+2
	sta MEMPTR+1
	jsr RESTPC
	pla
	pla
	jsr RESTOP
	brl FILEND

;
;  Compare disassembly of all known opcodes with
;    the one typed in until a match is found
;
GETOP	lda T1	;get opcode
	jsr INSDS3	;determine mnemonic index
	ldy T1
	jsr MINDEX
	phx	;Offset to length table
	pha
	ldx TFMT	;Convert offset into format
	lda FMT2,X	;to a format the mini-
	sta T3	;assembler understands.
	pla
	tax	;X = index
	lda MNEMR,X	;get right half of index
	cmp RMNEM	;does it match entry?
	bne NXTOP	;=>try next opcode
	lda MNEML,X	;get left half of index
	cmp LMNEM	;does it match entry?
	bne NXTOP	;=>no, try next opcode
	ldy T3	;get address mode format
	cpy #$1F	;Is it a relative address?
	bne TESTLEN	;<> a branch type opcode
	plx	;Clean up stack
	brl REL

TESTLEN	plx	;user enter 8/16 bit #opc ?
	lda T2	;found opcode,
	cmp T3	;does addr mode match?
	bne NXTOP2
	lda DigitCnt	;Make sure length is same
	cmp T4	;(from INSDS)

GETOP8	beq toMOVINST	;=>yes, move op to memory
	cpx #8
	bne NXTOP2
	cmp #1	;1 or 2 bytes is OK
	beq GETOP8
	cmp #2
	beq GETOP8
	bne NXTOP2	;Try next opcode

NXTOP	plx	;Clean up stack

NXTOP2	dec T1	;else try next opcode
	bne GETOP	;=>go try it
	dec T6
	beq GETOP	;=>go try next format
	rts	;error exit

toMOVINST	brl MOVINST

***********************************************
;
; GetPath filename from InputBuffer to pathname
;
***********************************************
GetPath	ldy T3	;chr after command word
LOADnxty	lda InputBuffer,y	;find
	cmp #$A0	; first
	bne FirstChr	;  non-blank chr
	iny	;   after command word
	cpy BufLen
	blt LOADnxty	;something after command word?  yes
	sec	;no
	rts

FirstChr	stz T5	;location of last '/'
	ldx #0	;move pathname
MovePthn	lda InputBuffer,y	; to DISBUF
	and #$7F	;msb off for ProDOS
	cmp #$2F	;'/'
	bne StorePth
	stx T5	;last '/'
StorePth	sta pathname+1,x
	inx
	iny
	cpy BufLen
	blt MovePthn

	stx pathname	;pathname length
	clc
	rts


; COPY OUTPUT1
	TITLE 'Cortland Debugger	-OUTPUT1-'

*********************************************
;
;  New DISPLAY
;
*********************************************
NewText	BIT TextMode
	bpl NewRTS
	jsr Debug_Display
	jsr ClearAll
	ldy #79
@loop	lda RegsText,y
	jsr OUT
	dey
	bpl @loop
	stz DumpMode
	stz TemplMode
NewRTS	rts


*********************************************
;
;  UPDATE all subscreens
;
*********************************************
UPDATE	bit TextMode
	bpl NewRTS
	lda DumpMode
	ora TemplMode
	bmi NewRTS
	jsr OUTKBC
	jsr OUTPC
	jsr OUTREG
	jsr OUTSTACK
	jsr OUTCELL
	jsr OUTALLBP
	brl OUTALLMP

*********************************************
;
;  OUTSTACK -- output stack subscreen
;
*********************************************
OUTSTACK	lda I_STK	;inverse row
	sec
	sbc #R_STK
	clc
	adc SR
	ldy SR+1
	bit eR
	bmi OUTSset	;emulation
	bcc OUTSset	;no carry anyway
	iny
OUTSset	sta OUTS_lda+1	;self modifying
	sty OUTS_lda+2

	lda #0
OUTS	sta T4	;first row
	clc
	adc #R_STK	;screen row
	tax
	jsr SETBASE
	ldy #C_STK

	bit StackMode	; How should we display the stack?
	bpl @4

; Display stack with offsets.

	sec	; Calculate the offset for the current line.
	lda I_STK
	sbc #R_STK
	sbc T4
	bmi @1	; Is it negative.
	pha
	beq @2	; Is it zero.
	lda #'+'	; It is positive.
	bra @3
@1	eor #$FF	; It's negative, so find its two's compliment.
	inc a
	pha
	lda #'-'	; We need a minus sign.
	bra @3
@2	lda #$A0	; No sign if it is zero.
@3	jsr OUT	; Output the sign.
	iny
	pla	; Get the offset.
	jsr OUTHEX	; and output it.
	lda #$A0	; Output a space.
	jsr OUT
	iny
	bra @5

; Display stack with addresses.

@4	lda OUTS_lda+2
	xba
	lda OUTS_lda+1
	jsr OUTADDR	;output stack address
@5	jsr OUTcolon	;print colon

*** added 12-Feb-92 DAL -- don't accidentally dump some softswitches
	lda OUTS_lda+2
	cmp #$c0
	bne @noProblem
	jsr OUTquestion	;show '??' instead
	jsr OUTquestion
	bra didOneStackByte
@noProblem
*** end 12-Feb-92
OUTS_lda	lda >$00FFFF
	jsr OUTHEX
didOneStackByte	cpx I_STK	;inverse line?
	bne OUTSnexta	; no

	ldy #C_STK
OUTSIloop	jsr OUTload
	and #$3F
	jsr OUT
	iny
	cpy #C_STK+7	;right
	blt OUTSIloop

OUTSnexta	lda OUTS_lda+1
	dec a
	sta OUTS_lda+1
	cmp #$FF
	bne OUTSnextR
	bit eR
	bmi OUTSnextR	;emulation
	dec OUTS_lda+2

OUTSnextR	lda T4
	inc a
	cmp #N_STK
	blt @toOUTS
	rts

@toOUTS	brl OUTS

*********************************************
;
;  OUTCELL -- Display memory cell subscreen
;
*********************************************

OUTCELL	jsr SWAP	;there goes my d-page!
	ldx #0	;starting row

OUTCloop	lda BASELO+R_CELL,x
	sta PROUTX+1
	lda BASEHI+R_CELL,x
	sta PROUTX+2

	bit CELLDP,x	; Check if it is a direct page cell.
	bpl NOTdp	; No.

; Deal with direct page memory cells.

	ldy #C_CELL	; Get the column position of the cell.

	lda #'D'	; Print 'DP  '
	jsr PROUT
	lda #'P'
	jsr PROUT
	lda #' '
	jsr PROUT
	jsr PROUT
	jsr PROUT

	lda CELLLO,x	; Get the direct page address (offset)
	pha
	jsr PROUTHEX	; Print it.
	pla
	clc	; Now add it to the user d-page to get abs. addr.
	adc BLOCK+(DR-PCL)	; The saved user d-page reg (low).
	sta CELLADDR
*** changed 21-Sep-92 DAL -- Don't allow direct-page offsets greater than $FF (very confusing, since
*** we only display one byte we *almost* prevent this from happening anyway)
	lda #0
;;;	lda CELLHI,x
*** end 21-Sep-92
	adc BLOCK+(DR-PCL)+1	; The saved user d-pag reg (high).
	sta CELLADDR+1
	stz CELLADDR+2
	bra OUTCELL2

; Deal with regular (not direct page) memory cells.

NOTdp	ldy #C_CELL
	lda CELLB,x	;bank address
	sta CELLADDR+2
	jsr PROUTHEX
	jsr PROUTslash	;'/'
	lda CELLHI,x
	sta CELLADDR+1
	jsr PROUTHEX
	lda CELLLO,x
	sta CELLADDR
	jsr PROUTHEX
OUTCELL2	jsr PROUTcolon	;':'
	jsr GETCELL

	lda CELLDP,x	; Check if it is a deref cell.
	and #$03
	beq OUTCELL3	; Nope.
	cmp #CELL_ind3	; Is it a 24-bit deref?
	beq OUTCELL2_1	; Yes.

	lda BLOCK+(BR-PCL)	; Get the saved bank reg.
	sta CELLADDR+2
	jsr GETCELL	; Do the indirection,
	jsr PROUTcolon	; Print one more colon
	lda #' '			;  and one space.
	bra OUTCELL3_1

OUTCELL2_1	jsr GETCELL	; Do the indirection,
	jsr PROUTcolon	; Print two more colons.
	jsr PROUTcolon
	bra OUTCELL3_2

OUTCELL3	lda #' '			; Print two spaces.
	jsr PROUT
OUTCELL3_1	jsr PROUT	; Print a colon or a space.
OUTCELL3_2	lda CELLADDR+2
	bit CELLTY,x
	php
	bvc OUTCELL4
	jsr PROUTHEX	;L-type = %x1------
OUTCELL4	lda CELLADDR+1
	plp
	bpl OUTCELL5	;type = %0x------
	jsr PROUTHEX
OUTCELL5	lda CELLADDR
	pha
	jsr PROUTHEX
	pla
	xba	;save byte
	lda #$A0
	jsr PROUT
	lda #$FF
	bit CELLTY,x
	beq SHOWBYTE
	bvs OUTCnext
	lda #$A0
	bra LASTPROUT
SHOWBYTE	lda #$A7	;"'"
	jsr PROUT
	xba	;retrieve byte
	jsr PROUT
	lda #$A7	;"'"
LASTPROUT	jsr PROUT

OUTCnext	inx
	cpx #N_CELL
	bge OUTCout
	brl OUTCloop

OUTCout	brl SWAP

*********************************************
*
*  GETCELL
*
*  Read in a long address (3 bytes) from
*  memory without using the direct page.
*  Instead we use self-modifying code.
*
*  IN:  CELLADDR = long address of 1st byte
*
*  OUT:  CELLADDR = address read in
*
* Preserves X and Y.  Uses temp direct page
* from stack.
*
*********************************************
*** 11-Aug-92 DAL -- Rewritten to be correct and smaller (down to 36 bytes from 70).
GetCell	php
	rep #$30
	longa on
	longi on
	pha
	phy

	lda CellAddr+2
	pha
	lda CellAddr
	pha
	phd
	tsc
	tcd
	ldy #1
	lda [<3],y
	sta CellAddr+1
	lda [<3]
	sta CellAddr
	pld
	ply
	ply

	ply
	pla
	plp
	rts
	longa off
	longi off
*** end 11-Aug-92

*** THE OLD CODE HAS PAGE-WRAPPING PROBLEMS!  Try Long display of $00/02FF, for example.
*** (3rd byte comes from wrong address.)
;GETCELL	lda CELLADDR+2	; bank address
;	sta GETCELLA+3	; Modify the code.
;	sta GETCELLB+3
;	sta GETCELLC+3
;	lda CELLADDR+1	; high byte of address
;	sta GETCELLA+2	; Modify the code.
;	sta GETCELLB+2
;	sta GETCELLC+2
;	lda CELLADDR	; low byte of address
;	sta GETCELLA+1	; Modify the code.
;	inc a
;	sta GETCELLB+1
;	bne GETCELL1
;	inc GETCELLB+2
;GETCELL1	inc a
;	sta GETCELLC+1
;	bne GETCELLC
;	inc GETCELLC+2
;
;GETCELLC	lda >$FFFFFF	; Get the new bank address.
;	sta CELLADDR+2
;GETCELLB	lda >$FFFFFF	; Get the new hig byte.
;	sta CELLADDR+1
;GETCELLA	lda >$FFFFFF	; Get the new low byte.
;	sta CELLADDR
;
;	rts	; All done.

*********************************************
;
;  ClearDis -- clear disassembly subscreen
;
*********************************************

ClearDis	lda #R_OPC
	sta TOP
	clc
	adc #N_OPC
	tax
	dex	;x = BOTTOM
	ldy #C_OPC	;y = LEFT
	lda #$4F	;a = RIGHT
	bra CLEAR2


*********************************************
;
;  CLEARBPF -- clear breakpoint subscreen
;
*********************************************

CLEARBPF	lda R_BP
	sta TOP
	clc
	adc N_BP
	tax
	dex	;x = BOTTOM
	ldy #C_BP	;y = LEFT
	tya
	adc #$C	;a = RIGHT
	bra CLEAR2


*********************************************
;
;  ClearAll -- clear whole screen
;
*********************************************

ClearAll	stz TOP
CLEAR1	ldx #$17	;x = BOTTOM
	ldy #0	;y = LEFT
	lda #$4F	;a = RIGHT

CLEAR2	sty LEFT
	sta RIGHT
	bit TextMode
	bpl ERASErts

ERASEloop	jsr SETBASE
	jsr CLINE
	dex
	cpx TOP
	bpl ERASEloop
ERASErts	rts

*************************************************
;
;  DFUP -- scroll up the disassembly subscreen
;
*************************************************

DFUP	lda #C_OPC
	sta LEFT
	lda #$4F
	sta RIGHT
	lda #R_OPC
	sta TOP
	clc
	adc #N_OPC
	dec a
	sta BOTTOM
	jsr SCROLLUP
	bra CLINE


*************************************************
;
;  DFDN -- scroll down the disassembly subscreen
;
*************************************************

DFDN	lda #C_OPC
	sta LEFT
	lda #$4F
	sta RIGHT
	lda #R_OPC
	sta TOP
	clc
	adc #N_OPC
	dec a
	sta BOTTOM
	jsr SCROLLDN
	bra CLINE


*******************************************************
;
;  CLINE -- clear line at BASL from RIGHT to LEFT
;
*******************************************************

CLINE	lda #$A0
CLINE2	ldy RIGHT
CLOOP	jsr OUT
	dey
	cpy LEFT
	bpl CLOOP
	rts


*******************************************************
;
;  ILINE -- Invert line at BASL from RIGHT to LEFT
;
*******************************************************

ILINE	ldy RIGHT
ILOOP	jsr OUTload
	and #$7F
	cmp #$60
	bge IOUT
	and #$3F
IOUT	jsr OUT
	dey
	cpy LEFT
	bpl ILOOP
	rts

*********************************************
;
;  OUTPC -- Output K/PC (from PCK,H,L)
;
*********************************************

OUTPC	ldx #1
	jsr SETBASE
	ldy #$11
	lda PCK
	jsr OUTHEX
	jsr OUTslash
	lda PCH
	xba
	lda PCL
	brl OUTADDR

*******************************************************
;
;  OUTREG -- Output B, D, S, A, X, Y, M, Q, L, P, e, d
;
*******************************************************

OUTREG	ldx #0
	jsr SETBASE
	ldy #$50-PTEXTlen	;must update P bits
	bit eR
	bpl PTEXTout	;native -> PTEXTe1
	ldx #PTEXTlen	;emulation -> PTEXTe0
PTEXTout	lda PTEXTe0,x
	jsr OUT
	inx
	iny
	cpy #$50
	blt PTEXTout

	ldx #1
	jsr SETBASE
	ldy #$19
	lda BR
	jsr OUTHEX
	iny
	lda DR+1
	xba
	lda DR
	jsr OUTADDR

	iny
	lda SR+1
	xba
	lda SR
	jsr OUTADDR
	iny
	lda AR+1
	xba
	lda AR
	jsr OUTADDR
	iny
	lda XR+1
	xba
	lda XR
	jsr OUTADDR
	iny
	lda YR+1
	xba
	lda YR
	jsr OUTADDR
	iny
	iny
	lda MR
	jsr OUTHEX
	iny
	iny
	lda QR
	jsr OUTHEX
	iny
	iny
	lda MR
	lsr a
	lsr a
	lsr a
	lda #$B0
	adc #0	;derive L from MR
	jsr OUT
	iny
	iny
	iny
	lda PR
	jsr OUTHEX
	iny
	lda PR
	jsr OUTBIN
	iny
	lda eR
	asl a
	lda #$B0
	adc #0
	jsr OUT
	iny	; Advance the column to the correct position.
	iny
	lda DDVAL	; Get the value of the dissasembly option flag.
	asl a	; Put its value in the carry flag.
	lda #$B0	; convert it into an ascii '0' or '1'.
	adc #0
	brl OUT	; Go output it.


; COPY OUTPUT2
	TITLE 'Cortland Debugger	-OUTPUT2-'

*******************************************************
;
;  HEXDEC -- hex to decimal conversion
;
*******************************************************

HEXDEC	stz T1
	stz T2
	sed
	sty T4
	ldy #16
LOOP	asl AL
	rol AH
	lda T1
	adc T1
	sta T1
	lda T2
	adc T2
	sta T2
	rol T3
	dey
	bne LOOP
	cld
	ldy T4
	lda T3
	jsr OUTHEX1
	lda T2
	xba
	lda T1
	brl OUTADDR

;******************************************************
;
;  OUTKBC -- Output Key, Brk and Cycle
;
;******************************************************

OutKBC	ldx #1
	lda BASELO,x
	sta PROUTX+1
	lda BASEHI,x
	sta PROUTX+2
	ldy #0
	lda KEYMOD
	jsr PROUTHEX
	ldy #4	;was 5 (12-Feb-92 DAL)

*** Modified 12-Feb-92 DAL -- show status of Breaks, ToolBrks, OSBrks
;	lda #'o'
;	bit BPIO
;	bpl OUTbrk
;	lda #'i'
;OUTbrk	jsr PROUT

	lda #'b'
	bit BPIO	;breakpoints in/out
	jsr CharOrBlank
	lda #'t'
	bit TBrkIn
	jsr CharOrBlank
	lda #'o'
	bit OSBrkIn
	jsr CharOrBlank
*** end 12-Feb-92

	ldy #7
	lda #'d'
	bit BRK_STATE
	bpl OUTbrks
	lda #'m'
OUTbrks	jsr PROUT
@@@

*** Added - 28-Mar-93 JCM - Show if SRQ breaks are in or not.

	lda #'r'
	bit SRQBreaksIn
	jsr CharOrBlank

*** End - 28-Mar-93 JCM
	ldy #11
	lda xDEBUG_D+1
	xba
	lda xDEBUG_D
	brl PROUTADDR

*** New subroutine 12-Feb-92 DAL -- display character in A if BMI, else blank
CharOrBlank	bmi @useA
	lda #' '
@useA	brl PROUT
*** end 12-Feb-92

*******************************************************
;
;  OUTALLBP -- Output all breakpoints
;
*******************************************************

OUTBPRTS	rts

OUTALLBP	bit TextMode
	bpl OUTBPRTS
	ldx N_BP
	dex
OUTAB2	jsr OUTBP
	bit BPFLAG
	bpl OUTAB3
	cpx BPNUMBER
	bne OUTAB3
	dey
	sty RIGHT
	lda #C_BP
	sta LEFT
	jsr ILOOP
OUTAB3	dex
	bpl OUTAB2
	rts


*******************************************************
;
;  OUTBP -- Output one breakpoint defined by x-reg
;
*******************************************************

OUTBP	clc
	stx T1
	txa
	adc R_BP
	tax
	jsr SETBASE
	ldy #C_BP
	ldx T1
	lda BPAddrBankTable,x
	jsr OUTHEX
	jsr OUTslash
	lda BPAddrHighTable,x
	xba
	lda BPAddrLowTable,x
	jsr OUTADDR
	jsr OUTdash
;
; 3/16/90	Mensch
; Put patch here to designate that an IF was requested...
;
	lda BPActiveTable,x
	and #$40	; test the IF bit
	beq @DoNumber
	lda #'I'	; print an IF...
	jsr OUT
	iny
	lda #'F'
	jsr OUT
	iny
	bra @DoContinue
@DoNumber
	lda BPTriggerTable,x
	jsr OUTHEX
@DoContinue
	jsr OUTdash
	lda BPCountTable,x
	brl OUTHEX

*******************************************************
;
;  OUTALLMP -- Output all Memory Protect
;
*******************************************************

OUTMPRTS	rts
OUTALLMP	bit TextMode
	bpl OUTMPRTS
	asl MPFLAG
	ldx N_MP
	dex
OUTAM2	jsr OUTMP
	dex
	bpl OUTAM2
	rts

*******************************************************
;
;  OUTMP -- Output one Memory Protect defined by x-reg
;
*******************************************************

OUTMP	clc
	stx T1
	txa
	adc R_MP
	tax
	jsr SETBASE
	ldy #C_MP
	ldx T1
	lda MP1B,x
	jsr OUTHEX
	jsr OUTslash
	lda MP1H,x
	xba
	lda MP1L,x
	jsr OUTADDR
	jsr OUTperiod
	lda MP2H,x
	xba
	lda MP2L,x
	jsr OUTADDR
	jsr OUTdash
	lda MPA,x
	phy
	tay
	lda #'H'
	cpy #MP_H
	beq OUTMPA
	lda #'T'
	cpy #MP_T
	beq OUTMPA
	lda #'W'
	cpy #MP_W
	beq OUTMPA
	lda #'?'
OUTMPA	ply
	brl OUT

*******************************************************
;
;  OUTBMLINE -- output blank line betwee BP & MP
;
*******************************************************

OUTBMLINE	lda R_BP
	clc
	adc N_BP
	tax
	jsr SETBASE
	lda #C_BP
	sta LEFT
	clc
	adc #$D
	sta RIGHT
	brl CLINE



*******************************************************************************
*
GlueSnypher
*
* Description:	This routine tests to see if a JSL is an entry to a glue
*	routine, if it is, it will return the call number and the
*	carry set...
*
*
* Inputs:	None
*
* Outputs:	None
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
	rep #$10
	longi on
	sep #$20
	longa off
	lda [PCL]	; test to see if we have an JSL
	cmp #$22	; glue MUST start with a JSL
	beq @glue010	; might be glue...
;
; we get here we know we ain't got glue...
;
@NotGlue	clc
	rts

@Glue010	lda PCK	; now save the current PC/K on the stack..
	pha
	longa on
	rep #$20
	lda PCL
	pha

	inc PCL	; bump the program counter...
	lda [PCL]	; and get the operand...
	tax
	ldy #1
	lda [pcl],y	; of the jsl instruction...
	sta PCL+1
	stx PCL	; and save it as the new PCL
	lda [PCL]	; get the pointed to operand..
	and #$00FF	; strip the opcode...
	cmp #$A2	; is it an...ldx imediate?
	bne @AbortGlue
	lda [PCL],y	; load the possible tool number
	tax	; and save it in <X>
	inc PCL	; bump to the next instruction...
	inc PCL
	inc PCL
@TryNextGlue	lda [PCL]	; get the very next instruction
	and #$00FF	; strip the opcode....
	cmp #$0022	; is it a JSL???
	beq @testGlue1	; it must be glue 1...
	cmp #$005C	; is it a JML???
	beq @testGlue2	; could be jsl/ldx/jml/jsl
	cmp #$004C	; or lastly it could be a JMP
	bne @AbortGlue
;
; Glue type 3 detected here, the sequence would be ...
; 	JSL GlueCall
;
;GlueCall 	LDX #CallNum
; 	JMP CommonGlue
;
;CommonGlue	JSL >$E10004
;
	ldy #1	; be sure <Y> is correct
	lda [PCL],y	; get the jump address...
	sta PCL	; save it as the new address
	bra @TryNextGlue	; and follow the trail further..
@testGlue2
;
; Glue type 2 detected here, the sequence would be ...
; 	JSL GlueCall
;
;GlueCall 	LDX #CallNum
; 	JML CommonGlue
;
;CommonGlue	JSL >$E10004
;
	inc PCL	; be sure <Y> is correct
	lda [PCL]	; get the jump address...
	tay
	inc PCL
	lda [PCL]
	sta PCL+1	; save it as the new address
	sty PCL
	bra @TryNextGlue	; and follow the trail further..

@AbortGlue
	clc	; set the not glue flag
	pla	; not glue, restore PC/K
	sta PCL
	sep #$20
	longa off
	pla
	sta PCK
	rts	; and return
;
; Testing for glue type 1 here...
;
@TestGlue1
	longa On
	lda [PCL]	; get the opcode and first operand
	cmp #$0422	; is it JSL >$xxxx04 ???
	bne @AbortGlue
	ldy #2
	lda [PCL],y
	cmp #$E100	; is it JSL>$E10004???
	bne @AbortGlue
	sep #$20	; and undo the saved PCL
	longa off
	pla
	sta PCL
	rep #$20
	longa On
	pla
	sta PCL+1
	lda PCL
	SEC	; set the This Is Glue flag...
	RTS

*******************************************************
;
;  OUTOPC -- output mnemonic opcode
;            (code derived from Cortland Monitor)
;
	longa off
	longi off
*******************************************************

DisplayDisasmInstruction
OUTOPC	ldy TOPC
	jsr MINDEX
	tax	;offset into
	lda MNEML,x
	sta LMNEM
	lda MNEMR,x
	sta RMNEM

	ldy #C_OPC	;disassem column
	lda PCK
	jsr OUTHEX
	jsr OUTslash
	lda PCH
	xba
	lda PCL
	jsr OUTADDR
	jsr OUTcolon

*** added 8-Jul-91 DAL -- if we're displaying a procname, skip the hex
	ldx TLEN
	cpx #4
	bcs @hexdone
*** end 8-Jul-91
	ldx #$FF
@OUTOloop	iny
	inx
	lda TOPC,x
	jsr OUTHEX
	cpx TLEN
	blt @OUTOloop
@hexdone

	ldy #C_OPC+$15	;mnemonic column

	lda ViewHistFlag
	beq @5

	ldx #0
@Loop	lda TOPC,x	; Check for a JSL $E100A8
	cmp ProDOSCall,x
	bne @4
	inx
	cpx #4
	blt @Loop

	lda ProDOSCallNum
	sta TOPC
	lda ProDOSCallNum+1
	sta TOPC+1
	bra @6


@5	lda ProDOSFlag
	beq @4
	dec ProDOSFlag
	cmp #1
	beq @3

@6	rep #$30	; Need to be in full native mode to get
	longa ON	;  the name of the tool call.
	longi ON
	pha	; Push space for the result.
	pha
	lda TOPC	; Push the tool number.
	pha
	jsl GetDOSName	; Get the name.
	pla	; Get the low word of the address of the name.
	sta @1+1	; Modify the code.
	pla	; Get rid of the high word of the pointer.
	longa OFF
	longi OFF
	sep #$30

	ldy #C_OPC+$15	;mnemonic column

	ldx #0	; Print the tool name.
@1	lda $FFFF,x
	beq @2	; End of string?
	ora #$80
	jsr OUT
	inx
	iny
	cpy #80	; Are we at the end of the screen?
	blt @1	; No.

@2	rts


@3	lda #'$'
	jsr OUT
	iny
	lda TOPC+2
	jsr OUTHEX
	lda #'/'
	jsr OUT
	iny
	lda TOPC+1
	jsr OUTHEX
	lda TOPC
	jsr OUTHEX
	rts

@4

*** added 8-Jul-91 DAL -- display a procname if that's what we've found
	ldx TLEN
	cpx #4
	bcc @notProcname
	brl DisplayProcNameAtPCL

@notProcname
*** end 8-Jul-91

;	lda XPVAL	; Is long indexing on?
;	bne NotToolCall2	; No.
;
; Add call to Glue Snypher here...
; this will cause glue to be displayed properly...
; ...
;	sta >$FF1234
	jsr GlueSnypher	; call glue snypher to see if this is a tool
	bcc @NotGlue
	rep #$30
	longa On
	longi on
	pha
	pha
	pha
	sta >@GlueFlag
	phx
	brl @ShowToolName

@GlueFlag	ds.W 1

@NotGlue	sep #$30	; back to the grind environment...
	longa off
	longi off
	ldx #0
@CkToolLp	lda TOPC,x	; Check for a JSL $E10000
	cmp ToolCall,x
	bne NotToolCall2
	inx
	cpx #4
	blt @CkToolLp

	lda ViewHistFlag
	beq @a1

	longa ON
	rep #$20

	pha	; Push space for result.
	pha
	lda XR
	pha
	bra @a2

@a1
	longa ON
	rep #$20

	lda PCL	; Save the current PC.
	pha

	sec	; Subtract 3 bytes from it.
	sbc #3
	sta PCL

	ldy #0
	lda [PCL],y	; Get the instruction that is there.
	and #$00FF
	cmp #$00A2	; Is it a LDX immediate?
	bne NotToolCall1	; Nope.

	pha	; Push space for result.
	pha
	iny
	lda [PCL],y	; Get the tool number,
	pha	;  and push it on the stack

@a2
@ShowToolName
	longi ON
	rep #$10

	lda 1,s	;29-Mar-93 JCM - tool number
	jsr GetToolNameViaNL ;29-Mar-93 JCM

	jsl GetToolName	; Go get the tool name.
	pla	; Get the pointer to the tool name.
	sta PrToolLp+1	; Modify the code.
	pla	; Get rid of the high word of the pointer.
	longa OFF
	longi OFF
	sep #$30

	ldy #C_OPC+$15	;mnemonic column
	lda >@GlueFlag	; now test to see if we have glue here!
;	ora >@GlueFlag	; if we got glue, then these will be non-zero
	beq @GlueSkip	; and we should print an * in front of the
	lda #'*'	; tool name...
	jsr OUT
	lda #0
	sta >@GlueFlag	;
	iny
@GlueSkip
	lda #'_'	; Preced the name with an underscore.
	jsr OUT
	iny

	ldx #0	; Print the tool name.
PrToolLp	lda $FFFF,x
	beq DnPrTool	; End of string?
	ora #$80
	jsr OUT
	inx
	iny
	cpy #80	; Are we at the end of the screen?
	blt PrToolLp	; No.

DnPrTool	lda ViewHistFlag
	bne @1

	pla	; Restore the old PC.
	sta PCL
	pla
	sta PCL+1
@1	rts



NotToolCall1	pla	; Restore the old PC.
	sta PCL
	longa OFF
	sep #$20

NotToolCall2	ldx #0
@1	lda TOPC,x	; Check for a JSL $E100A8
	cmp ProDOSCall,x
	bne NotProDOS
	inx
	cpx #4
	blt @1

	ldy #C_OPC+$15	;mnemonic column

	ldx #0
@2	lda ProDOSStr,x
	jsr OUT
	iny
	inx
	cpx #ProDOSLen
	blt @2

	lda #2
	sta ProDOSFlag

	rts


NotProDOS	

*** Added - 11-May-93 JCM - 

	jsr IsHilightLine
	bne @notHilight

	stz PendingToolProto

	jsr UpdateCommandLine

@notHilight

*** End - 11-May-93 JCM

	ldy #C_OPC+$15	;mnemonic column

	ldx #3	;3 chr's
	stx T3
PRMN1	ldx #5
	lda #0
PRMN2	asl RMNEM	;shift 5 bit of chr into A
	rol LMNEM
	rol a	;(clears carry)
	dex
	bne PRMN2
	adc #$BF	;add '?' offset
	JSR OUT	;output a chr
	iny
	dec T3
	bne PRMN1
	iny
	sty T3	;next OUT column

*** added 8-Jul-91 DAL -- for JSR and JSL, see if we can display a symbolic name
	ldy TOPC
	cpy #$20
	beq @isJSR
	cpy #$22
	bne @notSymbolic

@isJSR	lda <PCL+2
	pha
	pei <PCL	;pushes a word even in 8-bit mode!

	inc <PCL
	bne @pclOK
	inc <PCL+1
@pclOK
	ldx <PCL+2
	cpy #$22
	bne @keepBank
	ldy #2
	lda [PCL],y
	tax
@keepBank	ldy #1
	lda [PCL],y
	tay
	lda [PCL]
	sta <PCL
	sty <PCL+1
	stx <PCL+2

	lda [PCL]
	cmp #$82	;BRL?
	bne @noSymFound
	ldy #2
	lda [PCL],y
	bne @noSymFound
	iny
	lda [PCL],y
	and #$f0
	cmp #$70
	bne @noSymFound
	iny
	lda [PCL],y
	cmp #$77
	bne @noSymFound

	ldy T3
	jsr DisplayProcNameAtPCL

	clc
	bra @done

@noSymFound	sec
@done	pla
	sta PCL
	pla
	sta PCL+1
	pla
	sta PCL+2
	bcs @notSymbolic
	rts
@notSymbolic
*** end 8-Jul-91

	ldx TFMT
	lda FMT3,x	;Bit6=1 = long addr mode
	asl a	;- if long addr mode
	php	;save that status
	lda FMT2,x	;get actual format
	sta TFMT

	ldx #8	;count for 8 format bits
	ldy TLEN
PRADR1	cpx #5
	beq PRADR5	;if x=5 then address
PRADR2	asl TFMT
	bcc PRADR3A
	lda CHAR1-1,x
	plp
	php
	bpl PRADR2A	;not long addr
	lda CHAR3-1,x

PRADR2A	phy
	ldy T3	;next OUT column
	jsr OUT
	iny
	lda CHAR2-1,x
	beq PRADR3
	jsr OUT
	iny
PRADR3	sty T3
	ply
PRADR3A	dex
	bne PRADR1
	plp
	rts

PRADR4	dey
	bmi PRADR2
	phy
	ldy T3
	jsr OUTHEX
	sty T3
	ply
PRADR5	lda TFMT
	cmp #$F8	;Handle relative addr mode
	lda TOPC,y	;PRINT target, and offset
	sta T2	;Save hi byte of offset
	bcc PRADR4
	plx	;get rid of [ flag
	dey
	phy	;save as # of bytes offset
	beq RELADR	;one byte offset
	pha	;save high byte
	lda TOPC,y	;get low byte
	sta T1	;Save lo byte of offset
	adc PCL	;note that carry was set
	tax
	pla	;get back hi byte
	adc PCH
	tay
	txa
	clc
	adc #2
	tax
	bcc RELADR1
	bra RELADR0

RELADR	sec
	jsr PCADJ3
	tax	;PCL,PCH+OFFSET+1 TO A,Y
	inx
	bne RELADR1	;+1 TO Y,X
RELADR0	iny

RELADR1	tya
	xba
	txa
	ldy T3
	jsr OUTADDR	;Print calculated address
	iny	;Output 1 space
	lda #'{'	;Now show offset in braces
	jsr OUT
	iny
	lda T2	;Test for + or - move
	bpl RELADR1_2	;+ then show '+'
	lda #'-'	; else show - number
	jsr OUT
	iny
	clc	;Always clear C to add
	pla	;Test 1 or 2 byte offset
	pha	;Save again
	beq RELADR1_0	;Skip low byte if here
	lda T1	;Make 2's complement
	eor #$FF
	adc #1
	sta T1
	bra RELADR1_1	;Skip setting carry

RELADR1_0	sec	;Force 1 to be added
RELADR1_1	lda T2	;Don't forget hi byte too
	eor #$FF
	adc #0
	bra RELADR1_4	;Exit with hi byte in 'A'

RELADR1_2	lda #'+'
	jsr OUT
	iny
	lda T2	;Get hi byte to show user
RELADR1_4	jsr OUTHEX	;Show to user
	pla	;Recall Y from stack
	beq RELADR2	;& if 0, only 1 byte offset
	lda T1	;Pick up lo byte of offset
	jsr OUTHEX	; and show to user
RELADR2	lda #'}'	;Now close and exit
	brl OUT



*
* DisplayProcNameAtPCL
*
* 8-Jul-91 DAL
*
* Assumes PCL points to:
*    BRL @around
*    $777x
*    STR 'ProcedureName'
*   @around
*
DisplayProcNameAtPCL
	sty @myHorizPos

	lda #$27	;apostrophe
	jsr @myOUT

	ldy #5
	lda [PCL],y	;length of pstring name
	tax
	beq @nameDone
@emitName	iny
	lda [PCL],y
	jsr @myOUT
	dex
	bne @emitName
@nameDone	lda #$27
	jsr @myOUT
	rts

@myOut	phy
	ldy @myHorizPos
	cpy #80
	bcs @offEdge
	ora #$80
	jsr OUT
	inc @myHorizPos
@offEdge	ply
	rts

@myHorizPos	dc.b 0

*** New - 30-Mar-93 JCM

IsHilightLine
	
	sep #$30
	longa off
	longi off
	
	ldx I_OPC	;the disassembly hilight bar line
	lda BASELO,x
	cmp BASL
	bne @notHilight

	lda BASEHI,x
	cmp BASH

@notHilight	rts

	longa on
	longi on

*************************************************************************************
*
* GetToolNameViaNL - Dump a toolcall and its parameters to the command line via a
*                    NiftyList callback

	longa on
	longi on

GetToolNameViaNL	phy	;should probably save this

	sta NLToolCallReq

	jsr BeforeDebuggerToolCall

	lda DisplayPrototypes ;don't display the prototype if the user has it turned off
	and #$0080
	beq @exitShowTool

* Only get a name for this tool call if it's the one that will be hilighted in the
* disassembly area.

	jsr IsHilightLine
	bne @exitShowTool
	
	rep #$30
	longa on
	longi on

	PushWord #$8000+$12	;nlLookup
	PushWord #$8001	;stopAfterOne+sendToName
	PushLong #NLTargetNameStr
	PushLong #NLLookupRec
	lda #0
	pha
	pha	;no dataOut
	_SendRequest
	bcc @dumpTheString

	cmp #$3
	bge @exitShowTool

	pla
	pla
	pla
	pla
	pla
	pla
	pla
	pla

	bra @exitShowTool

@dumpTheString	sep #$30
	
	longa off
	longi off

	sta >$FEDCBC

	dec PendingToolProto ;the prototype buffer is valid and needs to be drawn

@exitShowTool	rep #$30
	
	longa on
	longi on

	jsr AfterDebuggerToolCall

	ply	;should probably restore this

	rts

	MSB Off

NLTargetNameStr	dc.b 23,'DAL Systems~Nifty List~'

	MSB On

NLLookupRec	dc.w $2	;nlSecSysTool for now
NLToolCallReq	ds.l 1	;data to look up
NLPageOutBufPtr	dc.l NLToolCallStr	;ptr to string buffer

NLToolCallStr	ds.b 256

NLServiceOut	ds.b 6

PendingToolProto	dc.w 0	;if NLToolCallStr is valid and needs drawn (<0 valid)

	longa off
	longi off

* Dump the step/trace mode. I think we'll only get here if we're in one of those modes,
* but I dunno. How about asming? Is the mode something else? Like zero?

UpdateCommandLine

	lda BASELO+$17	;setup for last line of the screen
	sta PROUTX+1
	lda BASEHI+$17
	sta PROUTX+2

	lda PendingToolProto ;do we need to draw a prototype?
	beq @checkStepTrace	 ; nope

	ldy NLToolCallStr
	cpy #80
	blt @doOut

	ldy #79	;pin the length to 80 chars
	sty NLToolCallStr

@doOut	ldy #0

@toolCallLoop	lda NLToolCallStr+1,y
	ora #$80
	jsr PROUT
	cpy NLToolCallStr
	bne @toolCallLoop

@clrEOL	lda #$A0	;space

@wipeLoop	cpy #80
	bge @doneToolCall

	jsr PROUT

	bra @wipeLoop

@doneToolCall	rts

@checkStepTrace	bit StepMode
	bmi @stepping

	jsr SAYTRACE

	bra @clear

@stepping	jsr SAYSTEP

* Clear from the end of the string to the end of the line.

@clear	jsr @clrEOL

@doWaiting	bit UNTIL
	bpl @turnOffAwait

	jsr SAYAWAIT

	bra @done
	
@turnOffAwait	jsr OFFAWAIT

@done	rts

*** End - 30-Mar-93 JCM

; COPY OUTPUT3
	TITLE 'Cortland Debugger	-OUTPUT3-'

*******************************************************
;
;  SAY TRACE, STEP, AWAIT, SKIP and VERSION
;
*******************************************************

SAYTRACE	ldy #0
SAYTloop	lda TRACETEXT,y
	jsr PROUT
	cpy #TRACElen
	bne SAYTloop

	rts

SAYSTEP	ldy #0
SAYSloop	lda STEPTEXT,y
	jsr PROUT
	cpy #STEPlen
	bne SAYSloop

	rts

SAYAWAIT	ldy #C_OPC
SAYAloop	lda AWAITTEXT-C_OPC,y
	jsr PROUT
	cpy #AWAITlen+C_OPC
	bne SAYAloop
	rts

OFFAWAIT	ldy #C_OPC
	lda #$A0
OFFAloop	jsr PROUT
	cpy #AWAITlen+C_OPC
	bne OFFAloop
	rts

SAYSKIP	ldx I_OPC
	jsr SETBASE
	ldy #C_OPC+9
SAYKloop	lda SKIPTEXT-C_OPC-9,y
	jsr OUT
	iny
	cpy #SKIPlen+C_OPC+9
	bne SAYKloop
	rts

SayVersion	lda tBrkDTrap	; test the Debugtrap flag
	bne @ItsGood	; say the pathname instead
	ldy #VERSlen
	sty BufLen
@VERloop	lda VERSTEXT-1,y
	sta InputBuffer-1,y
	dey
	bne @VERloop
@ItsGood	ldy #0
	sty tBrkDTrap	; reset the debugtrap flag!
	rts


SayResume	ldy #resmlen
	sty BufLen
RESMloop	lda resmtext-1,y
	sta InputBuffer-1,y
	dey
	bne RESMloop
	rts

*********************************************
;
;     HELPOUT's for Help screen display
;
*********************************************

HELPOUTdmp	jsr ClearAll	;dump help
	jsr OUTtext0
	DC.W HELPdmp
	jsr OUTtext
	DC.W HELPesc

HELPdwait	jsr WaitKey
	jsr UpShift
	cmp #'P'
	bne HELPdquit
	jsr PrintCmd
	bra HELPdwait

HELPdquit	cmp #$9B	;esc?
	beq HELPquit	; yes
	clc	;no
	rts

HELPOUTcmd	jsr SAVEdis	;save disassembly area
	jsr OUTtext0
	DC.W HELPcmd	;master display help
	bra OUTesc

HELPOUTmem	jsr SAVEdis	;save disassembly area
	jsr OUTtext0
	DC.W HELPmem	;mem subscreen help
	bra OUTesc

HELPOUTbp	jsr SAVEdis	;breakpoint subscreen help
	jsr OUTtext0
	DC.W HELPbp
	bra OUTesc

HELPOUTmp	jsr SAVEdis	;memory protect subscreen help
	jsr OUTtext0
	DC.W HELPmp
	bra OUTesc

HELPOUTtss	jsr SAVEdis	;trace/single-step help
	jsr OUTtext0
	DC.W HELPtss

OUTesc	jsr OUTtext
	DC.W HELPesc

HELPwait	jsr WaitKey
	jsr UpShift
	cmp #'P'
	bne HELPquit
	jsr PrintCmd
	bra HELPwait

HELPquit	pha	;save chr
	sec
	ror TextMode
	lsr DUMPMODE
	lsr TemplMode
	jsr NEWTEXT
	jsr UPDATE	;redo
	jsr RESTOREdis	; screen
	pla
	sec
HELPrts	rts

*******************************************************
;
;  OUTtext -- Output text following jsr as pointer
;
*******************************************************

OUTtext0	jsr ClearAll
	lda BASELO	;start on
	ldx BASEHI	; top row
OUTtext1	sta PROUTX+1
	stx PROUTX+2
	stz T6	;left column

OUTtext	rep #$30	;MEMORY/INDEX16
	longa on
	longi on
	plx	;rts address -1
	inx	;point to dw textptr
	stx AL
	lda (AL)	;textptr
	inx	;new rts address -1
	phx
	sta AL	;textptr
	sep #$30	;MEMORY/INDEX8
	longa off
	longi off
	ldy #$00

OUTnext	lda (AL)
	beq OUTend	;terminator
	inc AL
	bne @1	;was *+4 DAL
	inc AH
@1
	cmp #$8D
	bne OUTchr
	inc T6	;return ($8D)
	ldx T6
	lda BASELO,x
	sta PROUTX+1
	lda BASEHI,x
	sta PROUTX+2
	ldy #$00
	bra OUTnext

OUTchr	ldx #$01	;assume 1 chr
	cmp #$A0
	bge OUTprout
	cmp #$80
	bge OUTnext

	tax	;number of blanks
	lda #' '
OUTprout	jsr PROUT
	dex
	bne OUTprout
	bra OUTnext

OUTend	rts

*******************************************************
;
;  SAVEdis -- disassembly subscreen save/restore
;
*******************************************************

SAVEdis	bit TextMode
	bpl SAVEdisQ
	stx TempX
	lda BASL
	sta TempBASL
	lda BASH
	sta TempBASH

	LDA #<DISBUF
	sta AL
	lda #>DISBUF
	sta AH

	ldx #3	;starting row
SAVEdisR	lda BASELO,x
	sta BASL
	lda BASEHI,x
	sta BASH

	ldy #C_OPC
SAVEdisC	jsr OUTLOAD	;get chr to save
	sta (AL)	;save it to DISBUF
	inc AL
	bne @1	;was *+4 DAL
	inc AH
@1	iny
	cpy #80
	blt SAVEdisC	;next column

	inx
	cpx #$17
	bne SAVEdisR	;next row

SAVEdisQ	rts

*******************************************************
;
;  RESTOREdis -- disassembly subscreen save/restore
;
*******************************************************

RESTOREdis	bit TextMode
	bpl RESTOREdisQ
	lda #<DISBUF
	sta AL
	lda #>DISBUF
	sta AH

	ldx #$03
RESTOREdisR	lda BASELO,x
	sta BASL
	lda BASEHI,x
	sta BASH

	ldy #C_OPC
RESTOREdisC	lda (AL)
	jsr OUT
	inc AL
	bne @1	;was *+4 DAL
	inc AH
@1	iny
	cpy #80
	blt RESTOREdisC

	inx
	cpx #$17
	bne RESTOREdisR

	lda TempBASH
	sta BASH
	lda TempBASL
	sta BASL
	ldx TempX

	stz AL
	stz AH
	stz AB
RESTOREdisQ	rts


; COPY HELP.TEXT
	TITLE 'Cortland Debugger	-HELP.TEXT-'

*******************************************************
;
;  Help display text, using the format:
;       MSB on = ASCII $80-$FF
;       MSB off = # of blanks to output
;
*******************************************************
;
;  DUMP SCREEN HELP DISPLAY
;
HELPdmp	DC.B '-----------------------------'
	DC.B ' Dump Screen Commands '
	DC.B '-----------------------------'
	DC.B $8D,$8D,$8D
	DC.B '[space] next address'
	DC.B $8D,$8D,$8D
	DC.B 'Set memory:'
	DC.B 2
	DC.B 'address:value'
	DC.B $8D,$8D,4
	DC.B 'e.g:'
	DC.B 2
	DC.B 'E1/15CC:42 9F "Text" 8D '
	DC.B ''''
	DC.B 'MoreText'
	DC.B ''''
	DC.B $8D,$8D,$8D
	DC.B 'Dump a block of memory:'
	DC.B 2
	DC.B 'address:'
	DC.B $8D,$8D,$8D
	DC.B 'D'
	DC.B 2
	DC.B '(dump Direct page)'
	DC.B $8D,$8D,$8D,$8D,$8D,$8D,$8D,$8D,$8D,0

;
;  COMMAND LINE HELP DISPLAY
;
HELPcmd	DC.B '----------------------------'
	DC.B ' Some GSBug Commands '
	DC.B '----------------------------'
	dc.b $8d	;added this line (DAL 7-Sep-90)
	DC.B 'Set registers (KEY,K/PC,B,D,S,A,X,Y,M,Q,L,P):'
	DC.B 2
	DC.B 'registername = value'
	DC.B $8D
	DC.B 'Set memory:'
	DC.B 2
	DC.B 'address:value'
	DC.B 3
	DC.B 'e.g:'
	DC.B 2
	DC.B 'E1/15CC:42 9F "Text" 8D '
	DC.B ''''
	DC.B 'MoreText'
	DC.B ''''
	DC.B $8D
	DC.B 'Dump a block of memory:'
	DC.B 2
	DC.B 'address:'
	DC.B 12
	DC.B 'DP:'
	DC.B 2
	DC.B '(dump Direct page)'
	DC.B $8D
	DC.B 'Enter subscreen:  MEM, BP, MP'
	DC.B 2
	DC.B '(Esc to return to command line)'
	DC.B $8D
	DC.B 'Disassemble/step/trace: address followed by L/S/T or just L/S/T'
	DC.B $8D,$8D
	DC.B 'History File : OPENHIST pathname / '
	dc.B 'VIEWHIST pathname / CLOSEHIST'
	DC.B $8D
	DC.B 'GS/OS',8,': SHUTDOWN userid quitflag / PREFIX n pathname'
	dc.B ' / LOAD pathname'
	DC.B $8D
	dc.B 'ToolBox',6,': TOOL #tnum / SETTBRK #tnum / SETOSBRK #OSNum / SHOWBRKS'
	dc.B $8D
	dc.B 15,'TBRKIN / TBRKOUT / OSBRKIN / OSBRKOUT / CLRALLTBRK / CLRALLOSBRK'
	dc.B $8D
	dc.B 15,'CLRTBRK #tnum / CLROSBRK #OSNum (#tnum can also be _toolname)'
	dc.B $8D
	dc.B 'Templates',4,': LOADTEMP pathname / KILLTEMP / _tempname address'
	dc.B $8D
	dc.B 'Config file  : CSAVE pathname / CLOAD pathname'
	dc.B $8D
	dc.B 'Breakpoints  : DBRK / MBRK / IN / OUT / CLR'
	dc.B $8D
	dc.B 'Misc',9,': START / MON (CTL-Y to return) / ASM / STACK / DPAGE / ON / OFF'
	dc.B $8D
	dc.B 15,'SE / RE / UNLOAD'
	dc.B $8D,$8D
	dc.B 'evaluate',5,': expression=   (can use + - * /)'
	dc.B $8D
	dc.B 'conversions  : $Value= (hex to dec) / +Value or -Value (dec to hex)'
	dc.B $8D
	dc.b $8D,0

;
;  MEMORY SUBSCREEN HELP DISPLAY
;
HELPmem	DC.B '----------------------------'
	DC.B ' Memory (MEM) Subscreen '
	DC.B '----------------------------'
	DC.B $8D,$8D,$8D
	DC.B 'Enter MEM address by typing any 1 to 6'
	DC.B ' hexidecimal digit (0 - 9...A - F)'
	DC.B $8D,$8D,$8D
	DC.B 'Display contents of MEM address as:'
	DC.B $8D,$8D
	DC.B 21
	DC.B 'single Hex byte and ASCII, press:'
	DC.B 3
	DC.B 'H'
	DC.B $8D,$8D
	DC.B 21
	DC.B 'short address (Pointer), press:'
	DC.B 5
	DC.B 'P'
	DC.B $8D,$8D
	DC.B 21
	DC.B 'Long address, press:'
	DC.B 16
	DC.B 'L'
	DC.B $8D,$8D,$8D
	DC.B 'Move down to next MEM address, press:'
	DC.B 3
	DC.B '(down arrow)'
	DC.B 2
	DC.B 'or'
	DC.B 2
	DC.B 'Return'
	DC.B $8D,$8D
	DC.B 'Move up to last MEM address, press:'
	DC.B 5
	DC.B '(up arrow)'
	DC.B $8D,$8D,$8D,$8D,$8D,$8D,0

;
;  BREAKPOINT SUBSCREEN HELP DISPLAY
;
HELPbp	DC.B '---------------------------'
	DC.B ' Breakpoint (BP) Subscreen '
	DC.B '--------------------------'
	DC.B $8D,$8D
	DC.B 'Enter BP address, type 1 to 6 hexidecimal'
	DC.B ' digits (0 - 9...A - F)'
	DC.B $8D,$8D
	DC.B 'Enter TRIGGER (must be >=1 to break):'
	DC.B 3
	DC.B 'Press'
	DC.B 2
	DC.B '->'
	DC.B 2
	DC.B 'and 1 or 2 hexidecimal digits'
	DC.B $8D,$8D
	DC.B '(Use'
	DC.B 2
	DC.B '<-'
	DC.B 2
	DC.B 'to move left, back to current BP address)'
	DC.B $8D,$8D
	DC.B 'Move down to next BP address, press:'
	DC.B 4
	DC.B 'down-arrow'
	DC.B 2
	DC.B 'or'
	DC.B 2
	DC.B 'Return'
	DC.B $8D,$8D
	DC.B 'Move up to last BP address, press:'
	DC.B 6
	DC.B 'up-arrow'
	DC.B $8D,$8D
	DC.B 'To delete current BP address, press:'
	DC.B 4
	DC.B 'Delete'
	DC.B $8D,$8D
	DC.B 'To de-activate current BP,'
	DC.B ' set its trigger value to 0'
	DC.B $8D,$8D
	DC.B 'To trace/single step using breakpoints,'
	DC.B ' enter trace/single step mode'
	DC.B $8D,$8D

	DC.B 'To insert real breakpoints (BRK opcodes):'
	DC.B 2
	DC.B 'From GSBug command line:'
	DC.B $8D
	DC.B 14
	DC.B 'Type:'
	DC.B 4
	DC.B 'IN'
	DC.B 9
	DC.B '(to insert BRK opcodes into code)'
	DC.B $8D
	DC.B 14
	DC.B 'Press:'
	DC.B 3
	DC.B 'J'
	DC.B 2
	DC.B 'or'
	DC.B 2
	DC.B 'X'
	DC.B 3
	DC.B '(to execute code)'
	DC.B $8D
	DC.B 14
	DC.B 'Type:'
	DC.B 4
	DC.B 'OUT'
	DC.B 8
	DC.B '(to remove BRK opcodes)'
	DC.B $8D,$8D,0

;
;  MEMORY PROTECT SUBSCREEN HELP DISPLAY
;
HELPmp	DC.B '-------------------------'
	DC.B ' Memory Protect (MP) Subscreen '
	DC.B '------------------------'
	DC.B $8D,$8D,$8D,$8D
	DC.B 'Enter starting MP address, type 1 to 6'
	DC.B ' hexidecimal digits (0 - 9...A - F)'
	DC.B $8D,$8D
	DC.B 'Enter ending MP address, press:'
	DC.B 2
	DC.B '->'
	DC.B 2
	DC.B 'then 1 to 4 hexidecimal digits'
	DC.B $8D,$8D
	DC.B 'Enter MP attribute, press:'
	DC.B 2
	DC.B '->'
	DC.B 2
	DC.B 'then T'
	DC.B 2
	DC.B '(for real-Time during trace/single step)'
	DC.B $8D,$8D
	DC.B 33
	DC.B 'or'
	DC.B 2
	DC.B 'W'
	DC.B 2
	DC.B '(for Code Window)'
	DC.B $8D,$8D
	DC.B '(Use'
	DC.B 2
	DC.B '<-'
	DC.B 2
	DC.B 'to move left, back to current MP address)'
	DC.B $8D,$8D
	DC.B 'Move down to next MP address, press:'
	DC.B 3
	DC.B '(down arrow)'
	DC.B 2
	DC.B 'or'
	DC.B 2
	DC.B 'Return'
	DC.B $8D,$8D
	DC.B 'Move up to last MP address, press:'
	DC.B 5
	DC.B '(up arrow)'
	DC.B $8D,$8D
	DC.B 'To delete current MP address, press:'
	DC.B 3
	DC.B 'Delete'
	DC.B $8D,$8D,$8D,$8D,$8D,0

;
;  TRACE/SINGLE STEP HELP DISPLAY
;
HELPtss	DC.B '--------------------------'
	DC.B ' Trace/Single Step Operation '
	DC.B '-------------------------'
	DC.B $8D
	DC.B 'To enter trace mode, type:'
	DC.B 12
	DC.B 'address T'
	DC.B 2
	DC.B 'or'
	DC.B 2
	DC.B 'T'
	DC.B $8D
	DC.B 'To enter single step mode, type:'
	DC.B 6
	DC.B 'address S'
	DC.B 2
	DC.B 'or'
	DC.B 2
	DC.B 'S'
	DC.B $8D,$8D
	DC.B 'In trace or single step mode, press:'
	DC.B 2
	DC.B 'T'
	DC.B 2
	DC.B '=Text'
	DC.B 12
	DC.B 'G'
	DC.B 2
	DC.B '=Graphics'
	DC.B $8D
	DC.B 38
	DC.B 'F'
	DC.B 2
	DC.B '=Full'
	DC.B 12
	DC.B 'M'
	DC.B 2
	DC.B '=Mixed'
	DC.B $8D
	DC.B 38
	DC.B 'L'
	DC.B 2
	DC.B '=Lores'
	DC.B 11
	DC.B 'H'
	DC.B 2
	DC.B '=single Hires'
	DC.B $8D

	DC.B 38
	DC.B 'D8 =double hires'
	DC.B 4
	DC.B 'S'
	DC.B 2
	DC.B '=Super hires'
	DC.B $8D
	DC.B 38
	DC.B 'B'
	DC.B 2
	DC.B '=B'
	DC.B $A6
	DC.B 'W d-hires'
	DC.B 5
	DC.B 'C'
	DC.B 2
	DC.B '=Color d-hires'
	DC.B $8D
	DC.B 38
	DC.B '1'
	DC.B 2
	DC.B '=page 1'
	DC.B 10
	DC.B '2'
	DC.B 2
	DC.B '=page 2'
	DC.B $8D
	DC.B 38
	DC.B '4'
	DC.B 2
	DC.B '=40 column'
	DC.B 7
	DC.B '8'
	DC.B 2
	DC.B '=80 column'
	DC.B $8D
	DC.B 34
	DC.B 'space'
	DC.B 2
	DC.B '=single step one instruction'
	DC.B $8D
	DC.B 38
	DC.B 'X'
	DC.B 2
	DC.B '=real-time JSL'
	DC.B 3
	DC.B 'J'
	DC.B 2
	DC.B '=real-time JMP'
	DC.B $8D
	DC.B 38
	DC.B 'R'
	DC.B 2
	DC.B '=trace until RTL or RTI'
	DC.B $8D
	DC.B 38
	DC.B 'Q'
	DC.B 2
	DC.B '=sound toggle'
	DC.B $8D,$8D

	DC.B 'In single step mode, press:'
	DC.B 6
	DC.B 'Return'
	DC.B 2
	DC.B '=enter trace mode'
	DC.B $8D
	DC.B 29
	DC.B 'down-arrow'
	DC.B 2
	DC.B '=skip next instruction'
	DC.B $8D,$8D
	DC.B 'In trace mode, press:'
	DC.B 16
	DC.B '<-'
	DC.B 2
	DC.B '=slow trace'
	DC.B 5
	DC.B '->'
	DC.B 2
	DC.B '=fast trace'
	DC.B $8D
	DC.B 29
	DC.B 'open-apple'
	DC.B 2
	DC.B '=pause trace until key released'
	DC.B $8D,$8D
	DC.B 9
	DC.B '(Use KEY register for keyboard filter'
	DC.B ' control -- see manual)'
	DC.B $8D,0
;
;  Press Esc Prompt
;
HELPesc	DC.B '---------------------'
	DC.B ' Press Esc to return to command line '
	DC.B '----------------------'
	DC.B $8D,0

; COPY IO.DRIVERS
	TITLE 'Cortland Debugger	-IO.DRIVERS-'

*******************************************************
;
;  Low-level I/O drivers
;
*******************************************************
;
;  Nearly standard Apple // Monitor WAIT
;
WAIT	xba
	lda >CYA
	pha
	and #$7F
	sta >CYA
	xba
	SEC
WAIT2	PHA
WAIT3	SBC #1
	BNE WAIT3
	PLA
	SBC #1
	BNE WAIT2
	pla
	sta >CYA
	RTS
;
;  Standard Apple // BELL
;
** BELL	LDY #$C0
** @bell2	LDA #$C

BELL	php	;DAL 7-Sep-90
	sei
	ldy #$60
@bell2	lda #$C
	JSR WAIT
	LDA >SPKR
	DEY
	BNE @bell2
	plp
	ldy #0
	RTS

*******************************************************
;
;  Trace/Single-Step Click sound
;
*******************************************************

Click0	ldx #$C0	;*** MODIFIED ***
Click1	ldy #2	;*** MODIFIED ***
	lda >SPKR
Click2	inx
	beq Click_RTS
	nop
	brl Click3
Click3	dey
	beq Click1
	brl Click4
Click4	bra Click2
Click_RTS	rts

*******************************************************
;
;  WAITPB1 -- wait for open-apple
;
*******************************************************

WAITPB1	lda KEYMOD
	bne WAITPBrts	;no trap
WAITbut	lda >PB1
	bmi WAITbut
WAITPBrts	rts


*******************************************************
;
;  ChrToggle -- ALTCHR normal/inverse toggle
;
*******************************************************

ChrToggle	cmp #$20
	blt eorC0
	cmp #$40
	blt eor80
	cmp #$60
	blt eor_rts
	cmp #$C0
	blt eor80
	cmp #$E0
	bge eor80
eorC0	eor #$40
eor80	eor #$80
eor_rts	rts


*******************************************************
;
;  Curse -- flash a-reg at BASL/H,y & WAITKEY
;
*******************************************************

*** I wish I could get rid of this CLRALTCHR.  DAL 10-Oct-90

Curse

***	sta >CLRALTCHR	;experimentally removed DAL 10-Oct-90 DAL

	pha	;save original chr
***	eor #$C0	;flash chr
	eor #$80	;Inverse only (experimental 10-Oct-90 DAL)
	jsr OUT

	jsr WAITKEY
	xba	;save input chr
	pla	;original chr
	jsr OUT

	xba	;restore input chr

***	sta >SETALTCHR	;experimentally removed 10-Oct-90 DAL
	rts

*******************************************************
;
;  WAIT for a chr from KBD
;
*******************************************************

WAITKEY	phx
	phy
WAITKEYx	jsr GetKeyAndClear
	bpl WAITKEYx	;   no key
	ply
	plx
	cmp #0
	rts

*******************************************************
;
; GetKey from keyboard, do not clear
;
*******************************************************

GetKey	phx
	phy
	jsr GetKeyNoClear
	ply
	plx
	cmp #0
	rts

*******************************************************
;
;  GETKEYMOD -- get a key w/opt modifier
;
*******************************************************

GETKEYMOD	phx
	phy
	jsr GetKeyAndClear
	ply
	plx
	cmp #0
	bpl GETKEYnone
	xba	;save key
	lda KEYMOD
	beq GETKEYback	;no modifier required
	and EventMods	;needs modifier
	cmp KEYMOD
	bne GETKEYnone	;inactive modifier
GETKEYback	xba
	rts

GETKEYnone	lda #0	;clears n
	rts

****************************************************************
;
;   GetKeyNoClear
;
;   Reads the keyboard without clearing the strobe (or the key
;   from the EM Queue.
;
****************************************************************

GetKeyNoClear	rep #$30	;make tool call in 16 bit mode
	longa on
	longi on

; if the event manager is active I need to get keys from it

	pea 0	;space for result
	PushWord #$0428	;key-down and auto key-down & desk accessory
	PushLong #EventRecord
	jsr BeforeDebuggerToolCall
	_EventAvail
;	_OSEventAvail	;30-Mar-92 DAL
	jsr AfterDebuggerToolCall
	bcs ReadItMyself

	pla
	bne YesKeyDown

**	sep #$30	;now we exit in 8 bit land
**	longa off
**	longi off
**; Already zero	lda #0
**	rts
	bra ReadTheKbd	;31-Aug-90 DAL (in case kbd interrupts disabled!)

YesKeyDown	sep #$30	;branched here in 16 bit mode
	jsr UntranslateEventKey  ;10-Apr-91 DAL
	longa off	;so change it right now to 8
	longi off
	lda >KEYMODREG	;reset this value so the bits are
	sta EventMods	;the same no matter how it is read.
	lda EventKey
	ora #$80
	rts

ReadItMyself
	longa on	;still on from above
	longi on
	pla	;pull off fucntion result
ReadTheKbd	sep #$30	;back to 8 bit mode
	longa off
	longi off
	lda >KEYMODREG	; do it ourselves
	sta EventMods
	lda >KBD
	rts

****************************************************************
;
;   GetKeyAndClear
;
;   Returns MSB off if no key is pressed. MSB on if key is
;   pressed and key is in low order seven bits.
;
****************************************************************
GetKeyAndClear	rep #$30	;make tool call in 16 bit mode
	longa on
	longi on

; if the event manager is active i need to get keys from it
	pea 0
	PushWord #$0428	;key-down and auto key down & desk accessory
	PushLong #EventRecord
	jsr BeforeDebuggerToolCall
	_GetNextEvent
;	_GetOSEvent	;30-Mar-92 DAL
	jsr AfterDebuggerToolCall
	bcs ReadItMyself2
	pla
	bne YesKeyDown2

**	sep #$30	;now we exit in 8 bit land
**	longa off
**	longi off
**; It's already zero...	lda #0
**	rts
	bra ReadTheKbd2	;31-Aug-90 DAL (in case kbd ints disabled!)

YesKeyDown2	sep #$30	;branched here in 16 bit mode
	longa off	;so change it right now to 8
	longi off
	jsr UntranslateEventKey ;10-Apr-91 DAL
	lda >KEYMODREG	;reset this value so the bits are
	sta EventMods	;the same no matter how it is read.
	lda EventKey
	ora #$80
	rts

ReadItMyself2
	longa on	;still on from above
	longi on
	pla	;pull off fucntion result
ReadTheKbd2	sep #$30	; back to 8 bit mode
	longa off
	longi off
	lda >KEYMODREG
	sta EventMods
	lda >KBD	;do it ourselves
	bpl SkipStrobe
	sta >KBDSTRB
SkipStrobe	rts

EventRecord
EventType	DS.B 2
EventKey
EventMessage	DS.B 4
EventWhen	DS.B 4
EventWhere	DS.B 4
EventMods	DS.B 2

*******************************************************
*
* UntranslateEventKey
*
* SEP #$30 mode
*
* If EventKey was munged by option-key translation, and
* it used to be a key we cared about, undo the translation.
*
*******************************************************
UntranslateEventKey	lda EventKey
	cmp #$CA
	bne @notOptSpace
	lda #$20
@done	sta EventKey
@notOptSpace
	rts

*******************************************************
;
;  READ -- for UIR (INPUT)
;
*******************************************************

READ	phx
	phy
	jsr GetKeyAndClear
	ply
	plx
	cmp #0
READrts	rts

*******************************************************
;
;  Turn on DEBUG_DISPLAY
;
*******************************************************

DEBUG_DISPLAY	pha
	lda >RD80COL	; Get the current 80COLSTORE switch value and
	pha	;  save it on the stack.
	sta >CLR80STORE
	lda >NEWVIDEO
	and #$7F
	sta >NEWVIDEO
	lda >TEXT
	lda >PAGE1
	lda >SETAN3
	sta >SET80COL
	pla	; Get the old 80COLSTORE value back and
	asl A	;  strip off its MSB.
	lda #0
	rol A	; Make the MSB into an LSB.
	tax	; Use the byte as an index to the 80COLSTORE switches.
	sta CLR80STORE,x	; Set the correct state.

	pla
	rts

*******************************************************
;
;  SetBase -- set BASL,H from x (or to $17: SetBase17)
;
*******************************************************

SetBase17	ldx #$17	;last line
SetBase	pha
	lda BASELO,x
	sta BASL	;set BASL and
	lda BASEHI,x	; BASH from
	sta BASH	;  x-reg
	pla
	rts

*******************************************************
;
;  Print a '/', ':', '-', '.' thru BASL,H,B at Y
;
*******************************************************

OUTquestion	lda #'?'
	bra CommonOut	;12-Feb-92 DAL

OUTslash	lda #'/'
	bra CommonOut	;DAL 31-Aug-90

OUTcolon	lda #':'
	bra CommonOut	;DAL 31-Aug-90

OUTdash	lda #'-'
	bra CommonOut	;DAL 31-Aug-90

OUTperiod	lda #'.'
CommonOut	jsr OUT
	iny
	rts

*******************************************************
;
;  OutBin -- Output A as binary number
;
*******************************************************

OutBin	ldx #8
OutBin2	asl a
	pha
**	lda #$B0
**	adc #0
	lda #$B0/2	;changed those 2 to these 2
	rol a	;DAL 31-Aug-90
	jsr OUT
	iny
	pla
	dex
	bne OUTBIN2
	rts

;******************************************************
;
; OutAB_ADDR -- Output the contents of AB, AH,AL like this:
;	AB/AHAL
;
;******************************************************
OutAB_ADDR	lda AB
	jsr OUTHEX
	jsr OUTslash
	LDWordA AL

; Fall thru to OutAddr...
*******************************************************
;
;  OUTADDR -- output address in a(16) thru BASEL/H
;
*******************************************************

OUTADDR	xba	;high first
	jsr OUTHEX
	xba

*******************************************************
;
;  OUTHEX -- output byte in a(8) thru BASEL/H
;
*******************************************************

OUTHEX	pha
	lsr a
	lsr a
	lsr a
	lsr a
	jsr OUTHEX2
	pla
OUTHEX1	and #$0F
OUTHEX2	ora #$B0
	cmp #$BA
	bcc OUTHEX3
	adc #6
OUTHEX3	jsr OUT
	iny
	rts

*******************************************************
;
;  Save A to E0/BASE or E1/BASE column Y
;
*******************************************************

OUT	phy	;save col
	pha	;save chr
	tya
	eor #1
	lsr a	;col/2
	tay
	lda #$70	;$E0 if odd y
	rol a	;$E1 if even y
	sta BASB	;bank
	pla	;restore chr
	sta [BASL],y
	ply	;restore col
	rts

*******************************************************
;
;  OUTy -- special OUT for UIR (INPUT)
;
*******************************************************

OUTy	pha
	tay
	bpl OUTyCH
	cmp #$A0
	bge OUTyCH
	and #$3F	;inverse control chr's
	bra OUTyCH
;
;  IOUTy -- inverse version of OUTy
;
IOUTy	pha
	jsr ChrToggle
OUTyCH	ldy T5
	jsr OUT
	inc T5
	pla
	rts

**************************************************
;
;  Special Hex to InputBuffer buffer for ProDOS err output
;
**************************************************

HEXtoIN	pha
	lsr a
	lsr a
	lsr a
	lsr a
	jsr HEXtoIN2
	pla
	and #$F
HEXtoIN2	ora #$B0
	cmp #$BA
	bcc HEXtoIN3
	adc #6
HEXtoIN3	sta InputBuffer,y
	iny
	rts

*******************************************************
;
;  Load A from E0/BASE or E1/BASE column Y
;
*******************************************************

OUTload	phy
	tya
	eor #1
	lsr a
	tay
	lda #$70
	rol a
	sta BASB
	lda [BASL],y
	ply
	pha
	pla	;set P from A
	rts

*******************************************************
;
;  Print a '/', ':', '-', '.'  thru PROUT
;
*******************************************************

PROUTslash	lda #'/'
	bra PROUT

PROUTcolon	lda #':'
	bra PROUT

PROUTdash	lda #'-'
	bra PROUT

PROUTperiod	lda #'.'
	bra PROUT

*******************************************************
;
;  Output an address thru PROUT
;
*******************************************************

PROUTADDR	xba	;high byte first
	jsr PROUTHEX
	xba	;then low

*******************************************************
;
;  Output a hex byte thru PROUT
;
*******************************************************

PROUTHEX	pha
	lsr a
	lsr a
	lsr a
	lsr a
	jsr HEXCEL
	pla
	and #$F

HEXCEL	ora #$B0
	cmp #$BA
	blt PROUT
	adc #6

*******************************************************
;
;  Store A to $E0/0HHH,Y & INY (not using BASE)
;
*******************************************************

PROUT	phx
	pha
	tya
	eor #1
	lsr a
	tax
	lda #$70	;$E0/2
	rol a
	sta PROUTX+3
	pla
PROUTX	sta >$FFFFFF,x
	plx
	iny
	rts

*******************************************************
;
;  SCROLLUP area defined by LEFT,RIGHT,TOP,BOTTOM
;          (destroys T1,T2,T4,T5,T6)
;
*******************************************************

SCROLLUP	lda LEFT
	lsr a
	sta T1	;LEFT/2
	lda RIGHT
	lsr a
	sta T2	;RIGHT/2
	ldx TOP

UPnext	jsr SETBASE
	lda BASL
	sta T4
	lda BASH
	sta T5
	inx
	jsr SETBASE

	lda #$E0
UPmove	sta BASB
	sta T6
	ldy T2	;RIGHT/2
UPloop	lda [BASL],y
ORLINE	DC.B $09	;ora #
	DC.B $80	;self-modifying
	sta [T4],y
	dey
	cpy T1	;LEFT/2
	bpl UPloop

	lda BASB
	inc a
	cmp #$E2
	blt UPmove

	cpx BOTTOM
	blt UPnext
	rts

*******************************************************
;
;  SCROLLDN area defined by LEFT,RIGHT,TOP,BOTTOM
;          (destroyes T1,T2,T4,T5,T6)
;
*******************************************************

SCROLLDN	lda LEFT
	lsr a
	sta T1	;LEFT/2
	lda RIGHT
	lsr a
	sta T2	;RIGHT/2
	ldx BOTTOM

DNnext	jsr SETBASE
	lda BASL
	sta T4
	lda BASH
	sta T5
	dex
	jsr SETBASE

	lda #$E0
DNmove	sta BASB
	sta T6
	ldy T2	;RIGHT/2
DNloop	lda [BASL],y
	ora #$80
	sta [T4],y
	dey
	cpy T1	;LEFT/2
	bpl DNloop

	lda BASB
	inc a
	cmp #$E2
	blt DNmove

	cpx TOP
	bge DNnext
	rts



; COPY TABLES1
	TITLE 'Cortland Debugger -TABLES1-'

*******************************************************
;
;                       TABLES
;
*******************************************************

CONFIG

BPActiveTable	DC.B $00	;BP STATUS (ACTIVE/INACTIVE)
	ds.B 16	;bit 7 = active, bit 6 = "IF"

BPAddrLowTable	DC.B $00	;BP POINT (LOW)
	ds.B 16

BPAddrHighTable	DC.B $00	;BP POINT (HIGH)
	ds.B 16

BPAddrBankTable	DC.B $00	;BP POINT (BANK)
	ds.B 16

BPTriggerTable	DC.B $00	;BP TRIG
	ds.B 16

BPCountTable	DC.B $00	;BP COUNT
	ds.B 16

MP1L	dc.b $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00	;MP starting address (low)
MP1H	dc.b $00,$FC,$02,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00	;MP starting address (high)
MP1B	dc.b $E1,$01,$E1,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00	;MP starting address (bank)

MP2L	dc.b $0F,$FF,$40,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00	;MP ending address (low)
MP2H	dc.b $00,$FF,$02,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00	;MP ending address (high)
MP2B	dc.b $E1,$01,$E1,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00	;MP ending address (bank)

MPA	dc.b MP_T,MP_T,MP_T,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00	;MP attribute

MP_T	equ 1	;code trace real-time
MP_W	equ 2	;code window
MP_H	equ 3	;history trace window

CELLLO	Ds.B 19	;MEM ADDRESS (LOW)

CELLHI	Ds.B 19	;MEM ADDRESS (HIGH)

CELLB	Ds.B 19	;MEM ADDRESS (BANK)

CELLTY	Ds.B 19	;MEM TYPE (HEX/PTR)

CELLDP	Ds.B 19	;Cell type (direct page/deref)
CELL_hex	equ 0
CELL_addr	equ $80
CELL_addrlong	equ $C0
CELL_dp	equ $80
CELL_ind2	equ $01
CELL_ind3	equ $02
;
; previous dfb's
;
N_BP	DC.B 9	;variable
N_MP	DC.B 9	;variable
R_BP	DC.B 3	;constant - first row of breakpoint display (from zero)
R_MP	DC.B 13	;variable - first row of mp display (=R_BP+N_DP+1)
I_STK	DC.B $15	;R_STK+N_STK-1 variable
I_OPC	DC.B $14-7	;R_OPC+N_OPC-2 variable (Minus 7, 10-Apr-91 DAL)

StackMode	dc.b $00	;MSB = 0 if displaying address, 1 if offsets.
DumpAlign	dc.b $80	;MSB = 1 if aligned, 0 if not.

MaxTBrk	equ 20
NumTBrk	dc.b $00
TBrks	ds.w MaxTBrk

MaxOSBrk	equ 20
NumOSBrk	dc.b $00
OSBrks	ds.w MaxOSBrk

*** Added - 28-Mar-93 JCM

MaxSRQBreaks	equ 20
NumSRQBreaks	dc.w $00
SRQBreaks	ds.w MAXSRQBreaks

*** End - 28-Mar-93 JCM

DisplayPrototypes	dc.b $80	;MSB = 1 if we show prototypes, 0 if not
SOUND	DC.B $80	;ON - moved - 16-May-93 JCM

ConfigLen	equ *-CONFIG

U_BREAK	DC.B $00	;RE-ROUTED BREAK VECTOR
	DC.B $00
	DC.B $00
U_BRKV	DC.B $00	;Monitor's break vector
	DC.B $00
	DC.B $00

;------------------------------------------------------
StackOnEntry	DS.B 2	; used for quitting
;------------------------------------------------------

xDEBUG_S	DC.W $0000	;set in START
xDEBUG_D	DC.W $0000	;set in START
shadowT	DC.B $00	;set in START
Temp	DC.B $00	;used for execution real time of JSL routine
MyIDBuf	DC.W $0000	;used for quiting my user ID
GSBugDPHand	DC.L $0000	;used for quiting my handle
MyHdlw	DC.W $0000	;used for quiting my direct/stack page
MyHdhg	DC.W $0000

PTRslot	DC.W 1	;default printer slot
;
;  The following 32 (??? 35 ??? DAL 31-Aug-90) bytes are an exact image of
;    the dpage (PCL...QR) registers that SWAP swaps.
;
BLOCK	DC.B $00
	DC.B $00
	DC.B $00
	DC.B $00
	DC.B $00
	DC.B $00
	DC.B $00
	DC.B $00
	DC.B $00
	DC.B $00
	DC.B $00
	DC.B $00
	DC.B $00
	DC.B $00
	DC.B $00

AT	DC.W $0000
XT	DC.W $0000
YT	DC.W $0000
PT	DC.B $00
ST	DC.A $000000
eT	DC.B $00
DT	DC.A $000000
BT	DC.B $00
MT	DC.B $00
QT	DC.B $00
CT	DC.B $00
BLOCKlen	equ *-BLOCK

PCTL	DC.B $00	;TEMP PC
PCTH	DC.B $00
PCTK	DC.B $00
KVAL	DC.B $00	;last PC bank (K) entered
MPVAL	DC.B $00	;msb on = 8 bit a-reg
XPVAL	DC.B $00	;msb on = 8 bit x/y
DDVAL	DC.B $00	;msb on =ignore REPs and SEPs while disassembling
DigitCnt	DC.B $00	;for GetHex
DIGIT	DC.B $00	;NEEDHEX temp

; Do not change the next six variables.  SaveHist in the history routines
; relies on them being in this order.

TempOpcode
TOPC	DC.B $00	;TEMP OPCODE
TempOperand
TOPRL	DC.B $00
TOPRH	DC.B $00
TOPRB	DC.B $00
TFMT	DC.B $00	;TEMP FORMAT
TLEN	DC.B $00	;TEMP LENGTH
ProDOSCallNum	dc.w $0000

XFMT	DC.B $00	;EXEC FORMAT
XLEN	DC.B $00	;EXEC LENGTH
LMNEM	DC.B $00	;Left encoded ASCII Mnemonic
RMNEM	DC.B $00	;Right   "      "      "
BPIO	DC.B $00	;BP IN/OUT
BPFLAG	DC.B $00
BPSIGNAL	DC.B $80
BPNUMBER	DC.B $FF	;LAST BP
MPFLAG	DC.B $00
MPNUMBER	DC.B $FF
CodeMode	DC.B $00	;TRACE/EXECUTION
StepMode	DC.B $00	;TRACE/SINGLE STEP
TextMode	DC.B $80	;DISPLAY ON/OFF
DUMPMODE	DC.B $00	;DUMP ON/OFF
TemplMode	DC.B $00	;Template ON/OFF
AsmFlag	DC.B $00	;ASM FIELD ON/OFF
UNTIL	DC.B $00	;AWAIT RTS FLAG
RELCYC	DC.B $00	;TEMP BRANCH CYCLE
;
;  UIR (INPUT) variables:
;
slowblink	equ $05	;slow blink rate
fastblink	equ $02	;fast blink rate

cursor	DC.B 0	;current cursor being used
immediate	DC.B 0	;0=exit when term or 1=after every key
entrytype	DC.B 0	;0-initial entry
exittype	DC.B 0	;termination condition
lastch	DC.B 0	;char user last keyed in
charlist	DC.B $8D,$9B	;RETURN, ESC  terminators
originx	DC.B 0	;x-coord of start of field
cursorx	DC.B 0	;x-coord of cursor in field
cursorpos	DC.B 0	;position of cursor in field
InputLength	DC.B 0	;total length of IN

LInputStr	DC.B 0	;visible length of IN
LDefault	DC.B 0	;length of default string
cursoron	DC.B 0	;if <0 then cursor not blinking
cursortimer	DC.W 0	;cursor timer
blinkchar	DC.B 0	;blinking char
blinkcurs	DC.B 0	;blinking cursor

SKIP	DC.B $00	;SKIP FLAG
RATE	DC.B $01	;CURRENT TRACE RATE
LEFT	DC.B $00	;LEFT SCROLL EDGE
RIGHT	DC.B $00	;RIGHT SCROLL EDGE
TOP	DC.B $00	;TOP OF SCROLL
BOTTOM	DC.B $00	;BOTTOM OF SCROLL
COUNT	DC.B $00	;TEMP
LISTLO	DC.B $00	;LIST ADDRESS (LOW)
LISTHI	DC.B $00	;LIST ADDRESS (HIGH)
LISTB	DC.B $00	;LIST ADDRESS (BANK)
DUMPLO	DC.B $00	;DUMP ADDRESS (LOW)
DUMPHI	DC.B $00	;DUMP ADDRESS (HIGH)
DUMPB	DC.B $00	;DUMP ADDRESS (BANK)
CHAR	DC.B $00	;TEMP
KEYMOD	DC.B $00	;KBDMODREG filter
;;;SOUND	DC.B $80	; ON - moved 16-May-93 JCM
CYCL	DC.B $00	;CYCLE COUNT (LOW)
CYCH	DC.B $00	;CYCLE COUNT (HIGH)
CYCB	DC.B $00	;CYCLE COUNT (HIGHEST)
BRK_STATE	DC.B $00	;Break Status 0=debug, 80=user

TempX	DC.B $00	;for
TempBASL	DC.B $00	; SAVEdis
TempBASH	DC.B $00	;  & RESTOREdis
dis_status	DC.B $00	;for ON/OFF commands

******************************************
*
*       ROM stuff got put here
*
******************************************

File_Off	dc.w $0000	;easier if a word if used
File_Len	dc.w $0000	;used for saving file id's and number of loaded files
TempID	DS.B 2*$0F	;space for user id from load -- max of 15 files
TempPCL	DS.B 2*$0F
TempPCK	DS.B 2*$0F
TempSR	DS.B 2
TempDR	DS.B 2
address	dc.w $0000	;holds address of where RTL is stored for real time JSR
JSR_OPC	dc.b $00	;holds opcode that RTL replaces
quit_all	dc.b $00	;flag to tell that we need to get rid of all memory
Debug_on	dc.b $00	;flag to determine if we are entering from within debugger
T_text	dc.b $00	;used to store the state of the video screens
T_mix	dc.b $00	;for graphics screens.  So I can return properly
T_page2	dc.b $00
T_hires	dc.b $00
s_hi_res	dc.b $00	;check if super hi-res is enabled
start_s	dc.w $0000	;holds original stack pointer
BRK_ROM	ds.b 2*$10	;holds known BRKs in each bank for real time JSRs in ROM
is_ROM	dc.w $0000	;holds flag to determine if RTS is in RAM or ROM
hgh_st	dc.w $0000
lw_st	dc.w $0000	;holds the handle for the text screen stuff
MULTIPLICAND	DS.B 4	;multiplicand for expressions
DIVISOR	DS.B 4	;divisor for expressions
MODULUS	DS.B 4	;modulus for expressions
NUMHEX	dc.b $00	;# of hex numbers in expressions
NUMDEC	dc.b $00	;# of decimal numbers in expression
CELLADDR	ds.b 3	;Address of memory cell.
DUMPENDLO	dc.b $00	;Low byte of length of dump.
DUMPENDHI	dc.b $00	;High byte of length of dump.
DUMPENDB	dc.b $00	;Bank byte of length of dump.
SavedInput	ds.w 10	;Space for entry input stuff.
EntryFlag	dc.b $00	;MSB = 1 iff we entered debugger from a break.
tempEntryFlag	dc.b $00	;Until we know we're in for good.
NewSR	dc.w $0000	;User's allocated stack pointer.
NewDR	dc.w $0000	;User's allocated direct page pointer.
InRT	dc.b $00	;MSB = 1 iff we are in a real-time trace.
InMON	dc.b $00	;MSB = 1 iff we are in the monitor.
InX	dc.b $00	;MSB = 1 iff in a real time subroutine.
BRKVector	ds.b 3	;Break vector on initialization.
ToolJmp	dc.b $5C	;JML
ToolVector	dc.w $0000	;Tool vector on initialization.
	dc.b $E1
JSR_addr	dc.w $0000	;Address of the last real time JSR.
ExprFlag	dc.b $00	;MSB = 1 iff the last command was a valid expression.
NumScroll	dc.b $00	;Number of lines to scroll up during trace.
TemplCnt	dc.w $0000	;Number of entries in template field.

HistCount	dc.w $0000	;# of steps recorded.
HistStep	dc.w $0000	;Current history step.
HistRef	dc.l $00000000	;Reference # of open history file.
ViewHistFlag	dc.b $00	;True if viewing history.

GotLDX	dc.b $00
ToolNum	dc.w $0000
ToolCall	JSL $E10000

ToolLen	equ $20
ToolName	ds.b ToolLen

ToolStr	dc.b 'Tool #'
ToolStrLen	equ *-ToolStr

ProDOSFlag	dc.b $00
ProDOSCall	JSL $E100A8
ProDOSStr	dc.b 'JSL GS/OS'
ProDOSLen	equ *-ProDOSStr


user_p	dc.b $00	;User's p on entry (from user stack)
user_PCL	dc.b $00	;User's PCL on entry (from user stack)
user_PCH	dc.b $00	;User's PCH on entry (from user stack)
user_PCK	dc.b $00	;User's PCK on entry (from user stack)

start_d	dc.w $0000
start_b	dc.b $00
start_p	dc.b $00

TRACETEXT	DC.B 'TRACE      '	;added 5 blanks 6-Jun-91 DAL
TRACElen	equ *-TRACETEXT

STEPTEXT	DC.B 'SINGLE STEP'
STEPlen	equ *-STEPTEXT

AWAITTEXT	DC.B 'AWAITING RT-'
AWAITlen	equ *-AWAITTEXT

SKIPTEXT	DC.B '-- SKIP -- '
SKIPlen	equ *-SKIPTEXT


;oldRegsText	DC.B 'KEY  BRK  DebugD  K/PC   B   D    S    A    X    Y    M   Q   L  P  '
;                         00   o d   9400  12/3456 11 0A00 19A0 19C0 00E0 19C0  0C  96  1  00

;                         00000000001111111111222222222233333333334444444444555555555566666666'
;                         01234567890123456789012345678901234567890123456789012345678901234567'
RegsText	DC.B 'Key BRKs  DebugD  K/PC   B   D    S    A    X    Y    M   Q   L  P  '
;                         00  btod   9400  12/3456 11 0A00 19A0 19C0 00E0 19C0  0C  96  1  00

RegsTextLen	equ *-RegsText
;                         667777777777'
;                         890123456789
PTEXTe0	DC.B 'nvmxdizc e i'		;must immediately follow REGSTEXT
PTEXTe1	DC.B 'nv1bdizc e i'
PTEXTlen	equ *-PTEXTe1

*** Modified - 13-May-93 JCM - Added text for turning on and off command line prototype display.

;SETtext	DC.B 'dump alignment = O                                      '
;	DC.B 'printer slot = '
;	DC.W 0

;                         123456789012345678901234567890
SETtext	DC.B 'Dump alignment = O             '
	DC.B 'Prototype display = O           '
	DC.B 'Printer slot = '
	DC.W 0

*** End - 13-May-93 JCM

************************************************************************************************
*
* VERSION STUFF!
*
************************************************************************************************
;	if SpongeBoy=0 then
;DebugVersion	equ $1520
;VersText	DC.B 'GSBug v1.5b20 w/Glue & P8 Support  (C) 1986-91 Apple Computer, Inc.'
;VersLen	equ *-VersText
;	msb off
;bootString	dc.b 'GSBug debugger        v1.5b20',0
;	msb on
;	endif

DebugVersion	equ $1708
VersText	DC.B 'GSBug v1.7d9 w/Glue & P8 Support (C) 1986-93 Apple Computer, Inc.'
VersLen	equ *-VersText
	msb off
bootString	dc.b 'GSBug debugger        v01.7d9',0
	msb on
************************************************************************************************

ResmText	dc.b 'Resume Debugging'
ResmLen	equ *-ResmText

STEXT	DC.B 'S='
STEXTlen	equ *-STEXT

ErrText	DC.B ' Error=$'
ErrTextLen	equ *-ErrText

DECLO	DC.B '12345678911111111'
DECHI	DC.B ' 01234567'

MONcode	lda >$E1C081	;LC rom in
	cli	;interrupts enabled
	jmp MONZ
MONcodelen	equ *-MONcode

DumpText	DC.B ' 0  1  2  3  4  5  6  7  8  9  A  B  C  D  E  F'
	DC.B '        |----ASCII-----|'
DumpLen	equ *-DumpText

NextStr	dc.b '-------------- Press ESC to cancel or any other key to continue.'
	dc.b ' --------------'
NextStrLen	equ *-NextStr

*** Added 15-Oct-90 DAL
DebuggerID	dc.w 0
FudgeHandle	dc.l 0
FudgeIDFlag	dc.w 0

************************************************************
;
;  Commands -- dc.b asciilen+1 (bit 6 = no UpShift)
;              dc.b 'asciicommand'
;              dc.w CommandCodeAddress-1
;
;     NOTE:  Order is important:  "d=" before "d"
;            to prevent occlusion.
;
;  Command routines need to branch someplace like "Debug"
;  when they're done (they don't RTS).
;
************************************************************

Commands	DC.B $04
	DC.B 'MEM'
	DC.W MEMCMD-1

	dc.B $06
	dc.B 'SETIF'
	dc.W SetIfCmd-1

	dc.b 6,'STICK'
	dc.w StickCmd-1

	DC.B $09
	DC.B 'SHOWBRKS'
	DC.W ShowBrkCmd-1

	dc.b 5,'SHOW'
	dc.w ShowBrkCmd-1	;12-Feb-92 DAL

	dc.b 4,'SH2'
	dc.w ShowSRQBreaksCmd-1 ;28-Mar-93 JCM

	dc.b 3,'SH'
	dc.w ShowBrkCmd-1	;12-Feb-92 DAL

	dc.b 3,'SB'
	dc.w ShowBrkCmd-1	;12-Feb-92 DAL for Andy N

	DC.B $07
	DC.B 'TBRKIN'
	DC.W TBrkInCmd-1

	dc.b 3,'T+'
	dc.w TBrkInCmd-1	;12-Feb-92 DAL

	DC.B $08
	DC.B 'TBRKOUT'
	DC.W TBrkOutCmd-1

	dc.b 3,'T-'
	dc.w TBrkOutCmd-1	;12-Feb-92 DAL

	DC.B $08
	DC.B 'SETTBRK'
	DC.W SetTBrkCmd-1

	dc.b 4,'STB'
	dc.w SetTBrkCmd-1	;12-Feb-92 DAL

	DC.B $08
	DC.B 'CLRTBRK'
	DC.W ClrTBrkCmd-1

	dc.b 4,'CTB'
	dc.w ClrTBrkCmd-1	;12-Feb-92 DAL

	DC.B $0B
	DC.B 'CLRALLTBRK'
	DC.W ClrAllTBrkCmd-1

	DC.B $08
	DC.B 'OSBRKIN'
	DC.W OSBrkInCmd-1

	dc.b 3,'O+'
	dc.w OSBrkInCmd-1

	DC.B $09
	DC.B 'OSBRKOUT'
	DC.W OSBrkOutCmd-1

	dc.b 3,'O-'
	dc.w OSBrkOutCmd-1	;12-Feb-92 DAL

	DC.B $09
	DC.B 'SETOSBRK'
	DC.W SetOSBrkCmd-1

	dc.b 4,'SOB'
	dc.w SetOSBrkCmd-1	;12-Feb-92 DAL

	DC.B $09
	DC.B 'CLROSBRK'
	DC.W ClrOSBrkCmd-1

	dc.b 4,'COB'
	dc.w ClrOSBrkCmd-1	;12-Feb-92 DAL

	DC.B $0C
	DC.B 'CLRALLOSBRK'
	DC.W ClrAllOSBrkCmd-1

	dc.b 3,'R+'
	dc.w SRQBreaksInCmd-1 ;28-Mar-93 JCM

	dc.b 3,'R-'
	dc.w SRQBreaksOutCmd-1 ;28-Mar-93 JCM

	dc.b 4,'SRB'
	dc.w SetSRQBreakCmd-1 ;25-Mar-93 JCM
	
	dc.b 4,'CRB'
	dc.w ClearSRQBreakCmd-1 ;25-Mar-93 JCM

	dc.b $09
	dc.b 'KILLTEMP'
	dc.w KillTemp-1

	dc.b $09
	dc.b 'OPENHIST'
	dc.w OpenHist-1

	dc.b $0A
	dc.b 'CLOSEHIST'
	dc.w CloseHist-1

	dc.b $09
	dc.b 'VIEWHIST'
	dc.w ViewHist-1

	dc.b $02
	dc.b '_'
	dc.w TemplateCmd-1

	dc.b $09
	dc.b 'LOADTEMP'
	dc.w LoadTemp-1

	dc.b $05
	dc.b 'TOOL'
	dc.w ToolInfo-1

	if ThisIsDEV <> 1 goto .NoShowStart
	DC.B $06	;Show the start address of the debugger
	DC.B 'START'	; (for development purposes.)
	DC.W ShowStart-1
.NoShowStart

	DC.B $06	; Give the user a stack.
	DC.B 'STACK'
	DC.W NewStack-1

	DC.B $06	; Give the user a direct page.
	DC.B 'DPAGE'
	DC.W NewDP-1

	DC.B $09	; Unload by user ID.
	DC.B 'SHUTDOWN'
	DC.W UNLOADCMD-1

	DC.B $03
	DC.B 'MP'
	DC.W MPCMD-1

	DC.B $04
	DC.B 'MON'
	DC.W MONCMD-1

	DC.B $07
	DC.B 'PREFIX'
	DC.W PREFIX-1

	dc.b 4,'PFX'
	dc.w PREFIX-1	;12-Feb-92 DAL

	DC.B $05
	DC.B 'LOAD'
	DC.W LOADCMD-1

	DC.B $05
	DC.B 'DBRK'
	DC.W SETDBRK-1

	DC.B $05
	DC.B 'MBRK'
	DC.W SETUBRK-1

	DC.B $03
	DC.B 'M='
	DC.W SET_M-1

;	DC.B $43
;	DC.B 'e='
;	DC.W SET_e-1
;
;	DC.B $43
;	DC.B 'm='
;	DC.W sET_mP-1
;
;	DC.B $43
;	DC.B 'x='
;	DC.W SET_xP-1

	DC.B $03
	DC.B 'L='
	DC.W SET_L-1

	DC.B $03
	DC.B 'K='
	DC.W SET_K-1

	DC.B $04
	DC.B 'PC='
	DC.W SET_KPC-1

	DC.B $06
	DC.B 'K/PC='
	DC.W SET_KPC-1

	DC.B $03
	DC.B 'S='
	DC.W SET_S-1

	DC.B $03
	DC.B 'B='
	DC.W SET_B-1

	DC.B $03
	DC.B 'Q='
	DC.W SET_Q-1

	DC.B $03
	DC.B 'P='
	DC.W SET_P-1

	DC.B $03
	DC.B 'A='
	DC.W SET_A-1

	DC.B $03
	DC.B 'X='
	DC.W SET_X-1

	DC.B $03
	DC.B 'Y='
	DC.W SET_Y-1

	DC.B $03
	DC.B 'D='
	DC.W SET_D-1

	DC.B $03
	DC.B 'C='
	DC.W SET_C-1

	DC.B $05
	DC.B 'KEY='
	DC.W SET_KEY-1

	DC.B $04
	DC.B 'SET'
	DC.W SetCmd-1

	dc.b $03
	dc.b 'SE'
	dc.w SaveEnvCmd-1

	dc.b $03
	dc.b 'RE'
	dc.w RestoreEnvCmd-1

	DC.B $03
	DC.B 'BP'
	DC.W BPCMD-1

	DC.B $04
	DC.B 'CLR'
	DC.W CLRCMD-1

	DC.B $04
	DC.B 'ASM'
	DC.W AsmCmd-1

	DC.B $03
	DC.B 'ON'
	DC.W OnCmd-1

	DC.B $04
	DC.B 'OFF'
	DC.W OffCmd-1

	DC.B $03
	DC.B 'IN'
	DC.W BPIN-1

	dc.b 3,'B+'
	dc.w BPIN-1	;12-Feb-92 DAL

	DC.B $04
	DC.B 'OUT'
	DC.W BPOUT-1

	dc.b 3,'B-'
	dc.w BPOut-1	;12-Feb-92 DAL

	if ThisIsRam = 2 goto .NoResumeCmd

	DC.B $02
	DC.B 'R'
	DC.W Resume-1

	DC.B $07	;This version quits and disposes of all memory
	DC.B 'UNLOAD'
	DC.W Unload-1

	if ThisIsDEV <> 2 goto .NoQuitCmd

.NoResumeCmd
	DC.B $02
	DC.B 'Q'
	DC.W Quit-1

.NoQuitCmd

	DC.B $02
	DC.B 'T'
	DC.W TRACECON-1

	DC.B $02
	DC.B 'S'
	DC.W STEPCON-1

	DC.B $42
	DC.B 'X'
	DC.W GOCON-1

	DC.B $02
	DC.B 'G'
;;;	DC.W JMPCON-1
	dc.w Resume-1	;28-Oct-92 DAL -- make G like R

	DC.B $02
	DC.B 'J'
	DC.W JMPCON-1

	DC.B $02
	DC.B 'L'
	DC.W LSTCON-1

	DC.B $02
	DC.B '?'
	DC.W HELPcmdline-1

	DC.B $02
	DC.B 'V'
	DC.W VERSION-1

	DC.B $04
	DC.B 'DP:'
	DC.W SetDumpD-1

	DC.B $06
	DC.B 'CSAVE'
	DC.W CSaveCmd-1

	DC.B $06
	DC.B 'CLOAD'
	DC.W CLOADER-1

	DC.B $02	; disassembly mode set command
	DC.B 'I'	; was 'D' 10-Oct-90 DAL
	DC.W toggle_dis-1

	DC.B $42
	DC.B 'e'
	DC.W Toggle_e-1

	DC.B $42
	DC.B 'm'
	DC.W Toggle_m-1

	DC.B $42
	DC.B 'x'
	DC.W Toggle_x-1

	dc.b 2,'N'
	dc.w DoNCmd-1	;new command 11-Oct-90 DAL (calls user hook)

	DC.B $00
;
;  Dump routine COLumns for ASCII and HEX
;
COLASC	DC.B $4F,$4E,$4D,$4C,$4B,$4A,$49,$48
	DC.B $47,$46,$45,$44,$43,$42,$41,$40
COLHEX	DC.B $36,$33,$30,$2D,$2A,$27,$24,$21
	DC.B $1E,$1B,$18,$15,$12,$0F,$0C,$09
;
;  Text BASE address LOw and HIgh
;
BASELO	DC.B $00,$80,$00,$80,$00,$80,$00,$80
	DC.B $28,$A8,$28,$A8,$28,$A8,$28,$A8
	DC.B $50,$D0,$50,$D0,$50,$D0,$50,$D0
BASEHI	DC.B $04,$04,$05,$05,$06,$06,$07,$07
	DC.B $04,$04,$05,$05,$06,$06,$07,$07
	DC.B $04,$04,$05,$05,$06,$06,$07,$07


;	INCLUDE 'TABLES2'
	TITLE 'Cortland Debugger	-TABLES2-'

;
; FMT1 BYTES:    XXXX XXY0 INSTRS
; IF Y=0         THEN RIGHT HALF BYTE
; IF Y=1         THEN LEFT HALF BYTE
;                  (X=INDEX)
; For example PEI xx is opcode $D4 =
;    1 1 0 1  0 1 0 0
;    X X X X  X X Y 0
; To find the PEI in FMT1 table go to FMT1,XXXXX
;    = FMT1,$35 and since Y = 0 then the right
;    nybble gives the format in FMT2.  The format
;    number at FMT1,$35 right nybble is $B so the
;    the format looks like nn
;
FMT1	DC.B $BB,$BB,$CC,$99,$52,$DB,$CC,$E9
	DC.B $A9,$BB,$CC,$99,$52,$DD,$CC,$EE
	DC.B $BC,$B9,$CC,$99,$52,$D9,$CC,$EA
	DC.B $3C,$BB,$CC,$94,$52,$DD,$CC,$E6
	DC.B $32,$BB,$CC,$99,$52,$1D,$CC,$E9
	DC.B $88,$BB,$CC,$99,$52,$1D,$CC,$FE
	DC.B $08,$BB,$CC,$99,$52,$DB,$CC,$E4
	DC.B $08,$BB,$CC,$99,$52,$D9,$CC,$E6
; ZZXXXY01 INSTR'S
	DC.B $B9,$E3,$40,$21,$C8,$D5,$47,$A6
;
; FMT2 formats are defined as follows
;
; if format is taken from CHAR1
; bit:  7   6   5   4   3   2   1   0
;       #   (   $   ,   ,   ,   )   ,
;
; if format is taken from CHAR2
; bit:  7   6   5   4   3   2   1   0
;       ^   ^   ^   Y   X   S   ^   Y
; ^ = No register indicated for that format selection
;
; if format is taken from CHAR3
; bit:  7   6   5   4   3   2   1   0
;       #   [   $   ,   ,   ,   ]   ,

FMT2	DC.B $80	;0 # always 1 byte
	DC.B $10	;1 d,Y
	DC.B $1F	;2 r
	DC.B $1F	;3 rl
	DC.B $42	;4 (a)
	DC.B $42	;5 (d)
	DC.B $4A	;6 (a,X)
	DC.B $42	;7 (a)
	DC.B $80	;8 #d (or #a if in 16 bit mode)
	DC.B $00	;9 a
	DC.B $00	;A al
	DC.B $00	;B d
	DC.B $00	;C i
	DC.B $08	;D d,X
	DC.B $08	;E a,X
	DC.B $10	;F a,Y
	DC.B $43	;10 (d),Y
	DC.B $4A	;11 (d,X)
	DC.B $08	;12 al,X
	DC.B $04	;13 r,S
	DC.B $47	;14 (r,S),Y
	DC.B $43	;15 [d],Y
	DC.B $42	;16 [d]
;
;
FMT3	DC.B $01	; 0 #d always 1 byte
	DC.B $01	; 1 d,Y
	DC.B $01	; 2 r
	DC.B $02	; 3 rl
	DC.B $02	; 4 (a)
	DC.B $01	; 5 (d)
	DC.B $02	; 6 (a,X)
	DC.B $02	; 7 (a)
	DC.B $01	;8 #d (or #a if 16 bit mode)
	DC.B $02	;9 a
	DC.B $03	;A al
	DC.B $01	;B d
	DC.B $00	;C i
	DC.B $01	;D d,X
	DC.B $02	;E a,X
	DC.B $02	;F a,Y
	DC.B $01	;10 (d),Y
	DC.B $01	;11 (d,X)
	DC.B $03	;12 al,X
	DC.B $01	;13 r,S
	DC.B $01	;14 (r,S),Y
	DC.B $41	;15 [d],Y
	DC.B $41	;16 [d]

CHAR1	DC.B ','
	DC.B ')'
	DC.B ','
	DC.B ','
	DC.B ','
	DC.B '$'
	DC.B '('
	DC.B '#'
;
CHAR2	DC.B 'Y'
	DC.B $00
	DC.B 'S'
	DC.B 'X'
	DC.B 'Y'
	DC.B $00
	DC.B $00
	DC.B $00
;
CHAR3	DC.B ','
	DC.B ']'
	DC.B ','
	DC.B ','
	DC.B ','
	DC.B '$'
	DC.B '['
	DC.B '#'

;
;  MNEMONIC ASCII TABLES
;    MINDEX computes the offset into MNEML/R.
;    MNEMONIC CHR 1 = MNEML[7-3] - $BF
;             CHR 2 = MNEML[2-0]+MNEMR[7-6] - $BF
;             CHR 3 = MNEMR[5-1] - $BF
;
MNEML	DC.B $1C,$24,$AD,$8A,$8A,$15,$AD,$15
	DC.B $1C,$84,$AC,$A9,$23,$53,$AC,$00
	DC.B $5D,$5D,$1A,$8B,$8B,$9C,$1A,$9C
	DC.B $1B,$13,$1A,$AD,$A1,$29,$1A,$00
	DC.B $9D,$C1,$75,$8A,$8A,$6D,$5B,$6D
	DC.B $1D,$34,$75,$A9,$23,$8A,$5B,$00
	DC.B $9D,$89,$A5,$9D,$8B,$9C,$5B,$9C
	DC.B $1D,$11,$A5,$A9,$A1,$8B,$5B,$00
	DC.B $1C,$1C,$A5,$8A,$29,$AE,$A5,$A5
	DC.B $19,$A5,$A5,$AE,$AE,$AE,$A5,$00
	DC.B $69,$69,$69,$8B,$A8,$A8,$69,$69
	DC.B $19,$69,$69,$AE,$23,$AD,$69,$00
	DC.B $24,$99,$24,$C0,$53,$29,$24,$29
	DC.B $1B,$23,$89,$A5,$23,$8A,$5B,$00
	DC.B $24,$A1,$24,$C8,$53,$7C,$24,$53
	DC.B $19,$A0,$89,$C9,$A1,$8B,$5D,$00
;
;
MNEMR	DC.B $D8,$22,$06,$4A,$62,$1A,$06,$1A
	DC.B $5A,$C4,$C6,$28,$48,$C8,$C6,$00
	DC.B $26,$1A,$AA,$4A,$62,$1A,$AA,$1A
	DC.B $94,$CA,$AA,$08,$88,$88,$AA,$00
	DC.B $54,$5C,$E2,$58,$44,$26,$A2,$26
	DC.B $C8,$26,$DE,$0A,$54,$74,$A2,$00
	DC.B $68,$A6,$76,$5A,$44,$26,$A2,$26
	DC.B $E8,$48,$76,$48,$94,$74,$A2,$00
	DC.B $C4,$DA,$74,$46,$B4,$44,$74,$72
	DC.B $08,$44,$74,$74,$84,$68,$76,$00
	DC.B $74,$72,$74,$46,$B4,$B2,$74,$72
	DC.B $28,$44,$74,$B2,$6E,$32,$74,$00
	DC.B $74,$A2,$74,$94,$F4,$B2,$74,$88
	DC.B $CC,$A2,$94,$62,$4A,$72,$9A,$00
	DC.B $72,$A2,$72,$C4,$F2,$22,$72,$C8
	DC.B $A4,$C8,$84,$0C,$8A,$72,$26,$00

*******************************************************
;
;  TOT -- Temp Opcode Table for BP in
;     each entry: opcode,operand.l/h/b,TLEN,0,0,0
;
;
;  There are 19 entries, and each entry is 8 bytes:
;
;     +000: opcode and operand (4 bytes)
;     +004: instruction length
;     +005: reserved (3 bytes)
;
*******************************************************

TOT	DS.B 152	;8*19

*******************************************************
;
;  InputBuffer -- command line input buffer
;
*******************************************************

inputBufIndexAfterCmd dc.b 0	;29-Mar-93 JCM - used to save line index by some funcs

BufLen	DC.B 0	;InputBuffer length

InputBuffer	ds.B 80	; was 80 dc.B $00
	dc.b 0	;terminator

default	dc.b $00	;user's original default string
	ds.B 185	; was 185 dc.B $00
	dc.b 0

********************************************************
;
;  This routine purges all of the memory
;  and the handle associated with the
;  last load file.
;
;  Entry:  TempId contains ID of memory to get rid of
;          (assume native mode here, 16 bit x and m)
;
;  Exit:  Load_flag = $0000
;
********************************************************
Dump_load	rep #$30
	longa on
	longi on
	ldy file_Off	;  we need X for tool call
; Y -- however-- gets trashed too

Dump_1
	lda TempId,Y	;
	pha	;push user ID
	jsr BeforeDebuggerToolCall
	_DisposeAll	;DAL
	jsr AfterDebuggerToolCall
	ldy file_Off
	dey
	dey	;get rid of all id's
	sty file_Off	;store it back because tool call trashes Y
	bpl Dump_1
	stz Load_flag
	stz File_Len
	rts

********************************************************
*
* Save the interupt state
*
********************************************************

sv_int	sep #$30
	longa off
	longi off

	ldx #$0013	;want to save 10 bytes
sv_1	lda irq_A,x
	sta int_stuff,x
	dex
	bpl sv_1
	rep #$30
	longa on
	longa off
	rts


	If ThisIsRAM = 2 goto .RAMSTUFF


*******************************************************
*
*  Heart Beat Task
*
*  This insures that the Debugger works
*  when the event manager is active.
*
*  It constantly steals the CDA Vector and
*  replaces itself on top of it.
*
*
*  entry and exit are both 8 bit x and m
*
*  Note:  Assumes the Heartbeat dispatcher sets B
*         to the same bank the task is in. (DAL)
*
*******************************************************

My_Task
	dc.l $000000	;space for task pointer
Task_Cnt	dc.w $0A	;every 10 VBL's is fine
	dc.w $A55A	;signature byte
Task_1

	rep #$30	;just to make sure
	longa on
	longi on	;set by heart beat manager
	lda #$0A
	sta Task_Cnt	;reset pointer

	pea In_Vector	;compare address of E1 vector
	pla	;to address of current jump pointer
	clc	;plus In_vector to check for change
	adc jmp_ptr
	cmp >CDAVector+1
	beq H_done

	sec
	sbc #$0003	;dec jmp address to see if previous
	cmp >CDAVector+1	;one has been restored
	bne fill_Queue

	lda Que_ptr	;move queue ptr to last entry
	sec
	sbc #$0004
	sta Que_ptr

	tax
	lda Queue,x	;copy previous queue entry
	sta CDA+1	;into my jump to CDA's vector
	inx
	lda Queue,x
	sta CDA+2

	lda jmp_ptr	;point jump vector to previous entry
	sec
	sbc #$0003
	sta jmp_ptr
	bra H_done
fill_queue
	lda que_ptr
	clc	;point to next queue spot
	adc #$0004
	sta que_ptr

	tax	;new queue pointer in x
	lda >CDAVector+1	;save contents to que
	sta Queue,x
	inx
	lda >CDAVector+2
	sta Queue,x

	lda jmp_ptr
	clc
	adc #$0003	;point to next item in jump
	sta jmp_ptr	;table

	pea In_Vector
	pla	;copy address of new jump vector
	clc	;to E1 CDA vector
	adc jmp_ptr
	sta >CDAVector+1
	sep #$30
	longa off
	longi off
	phb	;get bank too
	pla
	sta >CDAVector+3

	rep #$30
	longa on
	longi on

	ldx que_ptr	;copy contents of queue
	lda queue,x	;into my jump to CDA vector
	sta CDA+1
	inx
	lda queue,x
	sta CDA+2


H_done	sep #$30
	longa off
	longi off
	rtl	;all done go home


*******************************************************
*
*              ROM based storage
*
*	Laura Drittler
*
********************************************************
;
; These vectors are used in conjunction with the heart beat task
;  As the vector changes in the E1 page for the CDA's
;  I change this pointer.  This tells me that it has changed and
;  allows me to keep several levels of vectors around so they can
;  be restored.

jmp_ptr	dc.w $0000
In_Vector	jmp newstart
	jmp newstart
	jmp newstart
	jmp newstart

que_ptr	dc.w $0000
queue	dc.l $000000
	dc.l $000000
	dc.l $000000
	dc.l $000000
.ramstuff

; Place to store the real CDA vector

CDA	DC.B $5C
	DC.L $000000


************************************************************************************
*
testRTBreak
*
* is called when a break is encountered anywhere in the system before the
* debugger has been started.  If it returns with carry clear then the break
* is ignored.  This allows some pretty bizare stuff to occur if I want it to.
*
*
************************************************************************************
	longa off
	longi off

workPC	equ 1

; First test to see if we come from the debugger with the scummy debugger trick

	sta >$FEDCBA	; trigger the analyzer

	phk
	pla
	cmp >irq_PCK	; see if the break is in the buggerbank
	beq @TakeTheBreak	; if so, debugger gets it!

; next see if we are in the class 1 instruction type return break

	lda >SIEXClass1Flag
	beq @NotReturnTrip	; if not this is the first trip thru
	bra @RecoverFromClass1
; this is only for the first tool break right now...

@NotReturnTrip

; first test the address (of course we must adjust by 2...)

	jsr FindBrkBP	; find the current breakpoint
	bcs @SkipTheBreak	; if carry clear not an active BP
@TakeTheBreak
	sep #$30
	sec	; return take the break
	rts
@SkipTheBreak

;
; Now that we know which breakpoint it is, we next test to see if it's time
; to take this breakpoint . Breakpoint offset MUST be in <X> at this point!
;	jsr PerformRTTest	; see if the test is valid
;	bcc @TakeTheBreak	;

	lda BPActiveTable,x	; first test to see if we should call theIF
	and #$40	; see if the
	beq @STB0010
	rep #$20	; longa on
	phx	; preserve the contents of the <X> register
	jsl TheIF
	sep #$20
	plx
	bcs @TakeTheBreak	; if carry set then into the debugger
	bra @KeepSkip
@STB0010
	lda BPCountTable,x	; next test the trigger to see if it's zero...
	cmp BPTriggerTable,x
	beq @TakeTheBreak	; if it's zero, then skip the break...
	inc a	; raise the count by 1..
	sta BPCountTable,x	; resave it in the counter
	cmp BPTriggerTable,x
	beq @TakeTheBreak	; if this is true, then fire that sucker!
@KeepSkip
; get here and the count is ok!
	jsr SetUpSIEXVars	; set the variables for the next roiutine
	lda >SIEXInstType	; test to see if the type is invalid...
	cmp #5
	beq @TakeTheBreak	; if so gotta always take the break...
	jsr SetUpInstEx	; set us up to execute the instruction
; Now adjust the return address for the RTI
@BackToOurShow
	rep #$30
	longi on
	longa on
	lda >irq_S	; get the user stack pointer
	tax	; place it in <X>
	lda >irq_PC	; get our new PC address
	sta >$000002,x	; save it in the proper place on the user stack
	sep #$20
	longa off
	lda >irq_PCK
	sta >$000004,x	; and the bank address...
	sep #$30
	clc	; return skip this one
	rts


@RecoverFromClass1
	rep #$30
	longa on
	longi on
; come here to undo what we did in the class 1 example...
	lda #0
	sta >SIEXClass1Flag	; first zero out the flag
; now set up a stack frame to work with...
	phd
	lda >irq_PCK
	and #$00FF
	pha
	lda >irq_PC
	dec a	; bring it back to the start of this instruction
	dec a
	pha
	sta >irq_PC	; and resave it so we return to the proper place
	tsc
	tcd
; Now we have a stack frame with a pointer on it..
	lda SIEXClass1Data	; replace this opcode/data
	sta [workPC]
; now reinstall the break in its proper place
	lda workPC
	sec
	sbc SIEXInstLength	; subtract the size of the last instruction
	sta workPC
	lda #$0000	; save a break into it...
	sep #$20	; added 12-Oct-90 DAL
	sta [workPC]	; it's now set to break again
	rep #$20	; added 12-Oct-90 DAL
	pla	; recover the stack frame
	pla
	pld
	brl @BackToOurShow

;**************************************************************
;
FindBrkBP
;
; This routine will search the BP List for a breakpoint that matches
; the one we are on, if it finds one, it will return carry set and
; <X> will be the offset to said breakpoint in the list...
;
	longa off
	longi off
	ldx N_BP
	dex
@BPSCAN2	lda BPActiveTable,x
	bpl @BPSCAN3
	ldy BPAddrHighTable,x ; get the high byte of the break
	lda BPAddrLowTable,x
	clc
	adc #2
	bcc @nrt0010
	iny
@nrt0010
	cmp >IRQ_PC
	bne @BPScan3
	tya	; compare the middle byte...
	cmp >irq_PC+1
	bne @BPScan3
	lda BPAddrBankTable,x
	cmp >irq_PCK
	beq @BPScan4
@BPSCAN3	dex
	bpl @BPSCAN2
	clc
	rts
@BPSCAN4	sec
	rts

***************************************************************************************
*
SetUpInstEx
*
*  This routine is called when the break trigger detects that
*  a breakpoint has been found whose satisfying conditions have
*  not been met. This routine will handle the 5 classes of instructions
*  that need to be handled, they are:
*  Instruction Type	Handle By:
*
* 1. PC unaffected	Restore the curent instruction, set type 1 flag
*     (like lda)	insert a break at the following opcode, decrement the
* 	PC and return from the interupt.
* 2. Cond. branch	Testing condition, if false, simply continue.
* 	If true, recalc PC based on offset and return from RTL.
* 3. PC-> whatever	Stuff new PC (recalc if BRA or BRL) and continue
*                   (like jmp, bra).
* 4. subroutine jump
*                   Reinstate the stack for a moment and push PC offset
* 	then modify PC and continue.
* 5. RTL, RTS	Reinstate stack for moment, pull off return address
* 	set it as the new PC and continue.
*
*  on entry to this routine the global variables SIEX should all
*  be set up for the proper breakpoint. Registers in an unknown state
*    SIEXInstType - class of instruction (from above)
*    SIEXInstLength - number of bytes the opcode/operands of this instruction take
*    SIEXInstData - opcode/operand of this instruction
*    SIEXNextPC - set up to what the PC should be in case of branch...
*  Also assumes the stack frame is set to our local frame
*
***************************************************************************************
CurrentPC	equ 1

	php	; save the old proc status

	rep #$30	; switch to all native
	Longa on	;
	Longi On	;
	lda SIEXInstType	; get the type to use
	asl a	; multiply by 2
	tax	; use it as index
	jsr (SIEXTable,x)	; call the proper routine
	plp	; recover proc status
	rts	; and go back

SIEXTable	dc.W SIEXType1
	dc.W SIEXType2
	dc.W SIEXType3
	dc.W SIEXType4
	dc.W SIEXType5

; Handle SIEX type 5 instructions, (rts, rtl)
SIEXType5
	tsc	; switch in the user's stack
	tay	; save our old stack in <Y>
	lda >irq_S
	tcs
	pla	; recover the RTI data and save in <X>
	tax
	pla	; and <y> for right now...
	sta SIEXInstData+2	; Save this word for a second

	pla	; get the low word of the return address
	inc a
	sta >irq_PC	; update the low word of the PC
; now test the instruction type
	longa off
	sep #$20
	lda SIEXInstData
	cmp #$6B	; is it an rtl?
	bne @Type5Done
	pla
	sta >irq_PCK	; if so, also fetch and stow the bank
@Type5Done
	longa on
	rep #$20
	lda SIEXInstData+2	; replace the RTI information
	pha
	txa
	pha
	tsc	; and make sure you reset irq_S
	sta >irq_S	; so that it removes the data correctly
	tya
	tcs	; put back our stack...
	rts

; Handle type 4 instructions (jsr, jsl)
SIEXType4
; first get the current stack pointer and save it
	tsc
	tay	; Y is not used in this routine..
	lda >irq_S	; get the user's stack pointer
	tcs	; use their stack for this...
	pla	; recover the RTI Information from the stack
	sta SIEXClass1Data	; data not used in this routine
	pla
	sta SIEXClass1Flag	; flag not used either

	lda SIEXInstData	; get the opcode
	and #$00FF	; strip the opcode only
	cmp #$0022	; is it a jsl?
	beq @Type4jsl	; handle it
; if we get here we are doing a jsr, first push the return address on the stack
; pretty easy since the irq_PC is already nextOpcode-1 ....
	lda >irq_PC
	pha	; push it on the stack
@Type4Finish	lda SIEXClass1Flag	; restore the RTI information
	pha
	lda SIEXClass1Data
	pha
	stz SIEXClass1Flag	; be sure to zero out the flag again..
	tsc	; update the interupt stack ptr
	sta >irq_S
	tya	; get our SP back
	tcs	; and use it...
	bra SIEXType3	; and adjust the PC properly
;
; If we get here we are doing a jsl, so we must push a 3 byte thats
; PCK/pc+1 on the stack so that we have the nextOpcode-1 ready
@Type4jsl
	longa off
	sep #$20
	lda >irq_PCK	; get the program bank
	pha	; and push it
	rep #$20
	longa on
	lda >irq_PC	; and get the PC
	inc a	; bump it one for proper offset
	pha	; put it on the stack
	bra @Type4Finish	; and finish redo this stuff...
; Handle type 3 instructions
SIEXType3
; NOTE: for type 3 instructions SIEXNextPC should already be calculated
	longa off
	sep #$20
	lda SIEXNextPC+2	; simply update the return address
	sta >irq_PCK	; from the interupt with the next PC
	rep #$20
	longa on
	lda SIEXNextPC	; with the SIEXNextPC Data
	sta >irq_PC
	rts	; now, it's all taken care of we can leave

; Handle type 2 instructions
SIEXType2
; first determine what branch instruction was asked for...
	lda SIEXInstData	; get the first word of the saved instruction
	and #$00C0	; strip off the bit indicator flag
	asl a	; rotate them around and get them in the low byte
	asl a
	xba	;use as an index
	sep #$20
	longa off
	clc
	lda BranchTbl,x	; get the bit pattern for this type
	and >irq_P	; mask the proper bit
	beq @Type2Cont
	sec
@Type2Cont	lda SIEXInstData	; get the opcode again
	and #$20	; get the mode sense type
	adc #$00	; add the carry (mode sense)
	beq SIEXType3	; if the result is zero or
	cmp #$21	; $0021 then carry and zero match
	beq SIEXType3	; in that case we take the branch
	rep #$20	; else turn back on 16 bit mode and end
	longa on	; (SIEXType3 turns on short right away)
	rts	; else, the PC is correct already

BranchTbl	dc.B $80	; negative flag BPL, BMI
	dc.B $40	; overflow BVC , BVS
	dc.B $01	; carry BCC, BCS
	dc.B $02	; Zero , BEQ, BNE

;
; Handle class 1 type instructions
;
SIEXType1
; first set up our dpage
	phd	; save the old dpage
	lda >irq_PCK	; get the high word of the currentpc
	and #$00FF	; strip it...
	pha	; save it on stack
	lda >irq_PC	; and get the low word
	dec a	; adjust for the break
	dec a
	pha	; save it on the stack
	sta >irq_PC	; and save it back as the irq_Return
	tsc	; now set our temp DP
	tcd	; so we can reference by the PC..

	lda #$FFFF	; first set the class 1 flag
	sta SIEXClass1Flag
; restore the current instruction
	longa off
	sep #$20
	ldy SIEXInstLength	; next get the length to restore

	cpy #3	;DAL 15-Oct-90
	bcc @1	;DAL Never copy more than 2 bytes for an LD? # instruction!
	lda SIEXInstData
	cmp #$A9	;LDA #
	beq @onlyTwo
	cmp #$A0	;LDY #
	beq @onlyTwo
	cmp #$A2	;LDX #
	bne @1
@onlyTwo	ldy #2	;DAL
@1
	dey	; reduce by 1 to start...
@restoreLoop	lda SIEXInstData,y
	sta [CurrentPC],y
	dey
	bpl @restoreLoop
; now set the next instruction to be a brk...
	rep #$20
	longa On
	ldy SIEXInstLength
	lda [currentPC],y
	sta SIEXClass1Data	; save this as our data for class 1
	lda #$0000	; now insert a break where the next instruction goes
	sta [currentPC],y	;
; Now pull off the stack frame...
	pla
	pla
	pld
	rts

*************************************************************************************
*
SetUpSIEXVars
*
* This routine will set the SIEXVars properly so that they will be able to
* be used for the first tool break. At this point this routine will be responsible
* for setting up everything...
*
*************************************************************************************
	rep #$30
	longa on
	longi on
	stz SIEXClass1Flag	; zero out the pertinent data...
	stz SIEXInstType	; also zero out the type...
	lda >irq_PCK
	and #$00FF
	sta SIEXNextPC+2	; init the next PC location
	lda >irq_PC
	sta SIEXNextPC
; now copy over the instruction data
; Calculate the correct TOT location from value stored in <X>
	txa	; BPOffset in <A>
	asl a
	asl a
	asl a
	tax
	lda tot,x
	sta SIEXInstData
	lda tot+2,x
	sta SIEXInstData+2
	lda tot+4,x
	sta SIEXInstData+4
; set the instruction length
	lda tot+5,x
	inc a	;increment to include the opcode itself (comment added 15-Oct-90 DAL)
	and #$0007	; strip offending bits (comment: this isn't needed? DAL)
	sta SIEXInstLength	; and save the length

; now figure out the type and save it...
	longa off
	sep #$20

** added 15-Oct-90 DAL -- check for Immediate instructions & adjust length
	lda SIEXInstData	; get the opcode in <A> to test
	cmp #$A9	; LDA # ?
	bne @notLDA
	lda >irq_P
	and #$20	;is the M bit set in P?
	bne @x
	bra @incLen

@notLDA	cmp #$A0	; LDY # ?
	beq @LDindex
	cmp #$A2	; LDX # ?
	bne @x
@LDindex	lda >irq_P
	and #$10	;is the X bit set in P?
	bne @x
@incLen	inc SIEXInstLength	;16-bit LDX # or LDY #
@x
** end of 15-Oct-90 addition

	lda SIEXInstData	; get the opcode in <A> to test
	and #$1F	; first see if it's type 2...
	cmp #$10	; all conditional branches end in $10
	beq @ItsType2
	lda SIEXInstData
	cmp #$80	; is it a branch always?
	bne @getType0010
	lda #3	; it's a type 3....
	sta SIEXInstType
	brl @Figuretype2	; and calculate the offset
@GetType0010
; now read the table of special opcodes and flag the special ones
	ldx #0	; init a counter
@Loop	cmp SpecCode,x	; is it this opcode?
	beq @SetType
	inx
	inx
	cpx #28	; end of the table? (14 entries *2)
	bne @Loop	; do the next one...
;
; If we get here then the instruction is class 1 and everything is already setup fine..
; just leave
	sep #$30	; turn back short a and i
	rts

@SetType	inx	; get the type
	lda SpecCode,x	; get the code from the table
	dec a	; subtract 1 for proper offset
	sta SIEXInstType
	dex
	longA on
	rep #$20
	jsr (AdjustNextPC,x)
	sep #$30
	rts
@ItsType2
; NOTE: still in longa off mode
	longa off
	lda #1
	sta SIEXInstType
@FigureType2
	lda #00	; be sure to zero high <A>
	xba
	lda SIEXInstData+1	; get the offset into <A>
	longa On
	rep #$20
	bpl @Addit	; if positive then add it!
	ora #$FF00	; sign extend...
@AddIt	clc
	adc SIEXNextPC
	sta SIEXNextPC
@AI0010	sep #$30
	rts	; return to caller..

;
; table of special instructions and types
;
SpecCode	dc.B $00,3	; brk
	dc.B $02,3	; cop
	dc.B $20,4	; jsr
	dc.B $22,4	; jsl
	dc.B $82,3	; BRL
	dc.B $4C,3	; jmp
	dc.B $5C,3	; jml
	dc.B $60,5	; rts
	dc.B $6B,5	; rtl
	dc.B $6C,6	; jmp(mem)
	dc.B $7C,6	; jmp(mem,x)
	dc.B $dc,6	; jml(mem)
	dc.B $fc,6	; jsr(mem,x)
	dc.B $EA,3	; NOP

AdjustNextPC	dc.W AdjustDummy	; brk
	dc.W AdjustDummy	; cop
	dc.W CopyPC	; jsr
	dc.W CopyPCPCK	; jsl
	dc.W AddToPC	; BRL
	dc.W CopyPC	; jmp
	dc.W CopyPCPCK	; jml
	dc.W AdjustDummy	; rts
	dc.W AdjustDummy	; rtl
	dc.W AdjustDummy	; jmp(mem)
	dc.W AdjustDummy	; jmp(mem,x)
	dc.W AdjustDummy	; jml(mem)
	dc.W AdjustDummy	; jsr(mem,x)
	dc.W PCMinus1	; NOP

	longa on
AdjustDummy	rts

PCMinus1	dec SIEXNextPC	; subtract 1 for the noop
	rts

CopyPC	lda SIEXInstData+1
	sta SIEXNextPC	; copy the destination word over
	rts

CopyPCPCK	lda SIEXInstData+2	; copy the high word
	sta SIEXNextPC+1	; to the high word of the address
	bra CopyPC	; and copy the rest

AddToPC	lda SIEXInstData+1
	sec	; always add 1 extra...
	adc SIEXNextPC	; remember SIEXNextPC is -1 (brk is 2 bytes)
	sta SIEXNextPC
	rts

SIEXClass1Flag	ds.W 1
SIEXClass1Data	ds.W 1
SIEXNextPC	ds.W 4
SIEXInstLength	ds.W 2
SIEXInstData	ds.W 3
SIEXInstType	ds.W 2

**********************************************************************************************
;
; Begin tool break stuff...
;
*********************************************************************************************
GlueToolTrap	jsr Check16BitMode	;added 23-May-91 DAL
	rep #$30	;added 12-Oct-90 DAL

GTTOlddBank	equ 1
GTTOldPStatus	equ GTTOlddBank+1
GTTOldX	equ GTTOldPStatus+1
GTTGluedRTL	equ GTTOldX+2
GTTCallerRTL	equ GTTGluedRTL+3
DebugTrapData	equ GTTCallerRTL+3	; pointer to a string if tool #$09FF (DebugStr)
GBrkGluedRTL	equ 1
GBrkCallerRTL	equ GBrkGluedRTL+3

	longa on
	longi on

	txa
	and #$00FF
	cmp #$00FF
	bne @1
@3	brl DebugTrap01	; else do the debug tool trap
@1

***	cpx #$FF00
***	bge @3	; test if it's the broken one...

* Removed 31-Oct-90 DAL
*
*	cpx #$FF09	;DAL
*	beq @3	;DAL
*	cpx #$FF0A	;DAL
*	beq @3	;DAL

	phx	; only save the call number
	php	; and the proc  status register
	phb
	phk
	plb

	txa	; get the tool call into <A>
	sta ToolBrkNum
	sep #$30
	longa off
	longi off

	clc
	lda GTTCallerRTL,s
	adc #1
	sta ToolReturn+1
	lda GTTCallerRTL+1,s
	adc #0
	sta ToolReturn+2
	lda GTTCallerRTL+2,s
	adc #0
	sta ToolReturn+3
;
; NOTE:Debugger use glue breaks...
;
	phk
	pla
	cmp ToolReturn+3	; are we calling from the debugger?
	beq FinishGlueCall	; if so lets just finish!

*** Added - 28-Mar-93 JCM

	lda SRQBreaksIn	;are any SendRequest breaks in?
	beq @checkTBrks	; nope, how about tools?
	
	lda 30,s	;check this request number
	xba
	lda 29,s
	jsr CheckSRQBreak
	bcc doTheBreak	;bingo! break on this one

@checkTBrks

*** End - 28-Mar-93 JCM

	lda TBrkIn	; Are tool breaks in?
	bne testGlueBreak	; if not then finish the call...

FinishGlueCall
	plb
	plp	; Restore the state. (Back to native mode...
	plx

OldGlueToolCall	jml >$777777	;11-Oct-90 DAL
*****	jml $FF00C2	; may as well put in the right address...

testGlueBreak
	lda ToolBrkNum+1	; Check the tool number.
	xba
	lda ToolBrkNum
	jsr CkTBrk
	bcs FinishGlueCall
;
; Now we execute the tool break
;
doTheBreak	plb
	plp	; Restore the state.
	longa On
	longi On
	plx	; restore <X> NOTE:<A> and <Y> hosed
;
; Code inserted here to make tool breaks work properly
; NOTE: This code was lost so it is added from a logic analyzer capture
;
ExecuteGlueBrk
	lda GBrkCallerRTL,s	; get the return address off the stack
	dec a	; adjust it to be right (31-Aug-90 DAL)
	sta >tBrkAddress	; save it in our local storage
	lda GBrkCallerRTL+2,s
	sta >tBrkAddress+2
	lda #$FFFF	; now set the tbrkflag
	sta >tBrkActive	; set it as active...
;
; Now clean those nasty RTLs off the stack (both of them...)
;
	pla	; we needed to evacuate the RTL
	pla	;
	pla	; since it's glue we gotta do 6 bytes...
	lda #$0000	; DAL 31-Aug-90
	clc	; DAL 31-Aug-90  No error from real-time DebugStr
	brk $FE	; and break into the debugger!


;-------------------------------------------------------------------------------------------
;
; SetMileStone is used for similar reasons as DebugTool the only real
; difference is that it sets the string and returns to the caller instead
; of breaking into the debugger. This will allow people to preset the string
; before a crash... It might also allow me at some point to put in
; a mode where I record the last tool call made by your application.
;
DoSetMileStone	;system tool function $0AFF
;
; Set up the stack and copy the string to the input buffer
;
	phd	; save current dpage
	phb	; save data bank
	phb	; make it a word long...
	phk	; now switch to our bank..
	plb
	tsc
	tcd	; use the stack as a dpage..
	lda [DebugTrapData]	; get the string length
	and #$00FF	; strip the length..
	cmp #78	; is it larger than allowed?
	blt @LengthOK	; if so go to it..
	lda #78	; else clip it!
@LengthOK
	tay	; use it as an index
	sty BufLen	; save the length in the input buffer
	sta tBrkDTrap	; save this value as our flag...
	beq @LoopDone
@Loop	lda [DebugTrapData],y
	ora #$8080	; reset the high bit...
	sta InputBuffer-1,y
	dey
	bne @Loop	; copy the whole string
@LoopDone
	plb
	plb	; recover the data bank
	pld	; recover the old direct page
;
; NOTE Back to gbrk stack structure
; now that we are back to the gbrk stack structure it's time to clean up the
; stack and leave use other code that we used for the bail out entry...
;
	brl EndDebugToolCall


;-------------------------------------------------------------------------------------------
;
; DebugStr is designed to allow programmers a way to enter the debugger
; and have it print a message for them on entry.  This way they can know
; what routine called the debugger and get meaningful information.
;
doDebugStr	;System tool function $09FF
;
; Check to see if we were called by the debugger first!
;
	longa off
	sep #$20
	phk
	pla	; get our databank...
	cmp GBrkCallerRTL+2,s
	bne NotUs
;
; If these match then it's us... uhoh... better fix things .......
;
EndDebugToolCall	rep #$20
	longa on	; get back to proper mode
	lda GBrkCallerRTL,s	; move the return address down 4
	sta GBrkCallerRTL+4,s
	lda GBrkCallerRTL+1,s
	sta GBrkCallerRTL+5,s

	pla	; now yank some serious poop off the stack
	pla	; there goes our passed data
	phk	; put an extra byte on..
	pla	; pull off the 2nd return address..
	pla	; (plus 1 byte for good measure...)
	clc
	lda #0	; act like nothing happened
	rtl	; and return to caller...

NotUs	rep #$20
	longa on
;
; dummy up the return address on the stack
; Also note: the stack is setup currently with the gBrk data on stack
;
	lda GBrkCallerRTL,s
	clc
	adc #$0004	; add 4 (Size of the JSL that got us here
	sta GBrkCallerRTL,s ; good thing we don't have to worry about the bank..
;
; Now that the callers RTL is properlly dummied up we move the string to the
; pathname buffer (It's more than long enough...)
;
	phd	; save current dpage
	phb	; save data bank
	phb	; make it a word long...
	phk	; now switch to our bank..
	plb
	tsc
	tcd	; use the stack as a dpage..
	lda [DebugTrapData]	; get the string length
	and #$00FF	; strip the length..
	cmp #78	; is it larger than allowed?
	blt @LengthOK	; if so go to it..
	lda #78	; else clip it!
@LengthOK	tay	; use it as an index
	sty BufLen	; save the length in the input buffer
	sta tBrkDTrap	; save this value as our flag...
	beq @LoopDone
@Loop	lda [DebugTrapData],y
	ora #$8080	; reset the high bit...
	sta InputBuffer-1,y
	dey
	bne @Loop	; copy the whole string
@LoopDone
	plb
	plb	; recover the data bank
	pld	; recover the old direct page
;
; NOTE Back to gbrk stack structure
;
; Now we move the return addresses down by 4 bytes... (err... up by 4 bytes)
;
	lda GBrkCallerRTL,s
	sta GBrkCallerRTL+4,s
	lda GBrkCallerRTL+1,s
	sta GBrkCallerRTL+5,s
	pla	; suck up the 4 parameter bytes
	pla
	brl ExecuteGlueBrk


anRTL	rtl

DebugTrap00	phk	;the bytes really point to an RTL now
	per AnRTL-1	;DAL 31-Aug-90
DebugTrap01	cpx #$09FF	; is this a DebugStr call?
	bne @1
	brl doDebugStr
@1	cpx #$0AFF	; is this a SetMileStone call?
	bne @2
	brl doSetMileStone	;DAL 31-Aug-90
@2	cpx #$04FF	;DebugVersion
	beq @status
	cpx #$06FF	;DebugStatus
	beq @status
	cpx #$0BFF	;DebugSetHook
	beq @sethook
	cpx #$0CFF
	beq @getinfo
	cpx #$0DFF

*** Added - 14-May-93 JCM

	beq DebugControl

	cpx #$0EFF	
	bne @checkMax

	brl DebugQuery

@checkMax	cpx #$0FFF	;illegal call?

*** End - 14-May-93 JCM

	bcc @okay

;
; Return with error $FF01 for unimplemented Debugger calls ($xxFF)
;
	lda #debugUnImpErr
	sec
	rtl	;return with error $FF01 (DAL 31-Aug-90)

;
; $0BFF _DebugSetHook: takes longword pointer on stack.
; Sets hook for the "N" command to call (nil = none installed).
;
; New 11-Oct-90 DAL
;
@sethook	lda 7,s
	sta >JumpToHook+1
	lda 8,s
	sta >JumpToHook+2
	ldx #0	;no error
	ldy #4	;strip 4 bytes
	jml $e10184	;ToStrip

;
; $0CFF _DebugGetInfo(wordSelector):LongInfo
;
; New call 23-Oct-90 DAL
;
@getinfo	lda #0
	sta 9,s
	sta 11,s
	lda 7,s

*** Added - 10-May-93 JCM - New selector to return the OA-Option-ESC entry address+2.
***	        This can be used by things like Steve Gunn's QuickDebug.

;	bne @BadNoun
	beq @returnCurPC

	dec a	;=1? GetOAESCEntry?
	
	bne @BadNoun

@returnOAESCEntry

	lda #<newstart+2
	sta 9,s
	lda #^newstart
	sta 11,s

	bra @outNoErr

@returnCurPC

*** End - 10-May-93 JCM

	phd
	lda >xDebug_d
	tcd
	lda <PCL
	sta 9+2,s
	lda <PCK
	and #$00ff
	sta 11+2,s
	pld
@outNoErr	ldx #0
	bra @out
@BadNoun	ldx #debugBadSelErr	;error
@out	ldy #2
	jml $e10184	;ToStrip

**********************************************************************************************
;
; Return with no error for DebugBootInit, DebugStartUp, DebugShutDown,
;   DebugReset, $07FF, and $08FF.
;
@okay	lda #$0000
	clc
	rtl	;return with no error (DAL 31-Aug-90)

@status
;
; Status tool gives us a means where we can simply return that
; the debugger has been started up by us.  We must set the debugger
; version and exit from this living hell.
;
; NOTE: debugger version is $vvdd
;
; (DebugStatus and DebugVersion both just return the version #.)
;
	lda #DebugVersion
	sta 7,s	; send the version...
	lda #0	; no error
	clc
	rtl	; and return from the debugger

*** Added - 14-May-93 JCM - New debugger tool calls.

**********************************************************************************************
*
* DebugControl - Tells the debugger to perform the specified operation. Currently the supported
*                commands include setting, clearing, and turning breakpoints on and off,
*                as well as setting and removing memory protect ranges.
*
*                Toolcall #$0DFF - DebugControl(data/4,extraData/4,operation,type)
*
*	Operation
*	---------
*	0 = Set
*	1 = Clear
*	2 = Clear All
*	3 = In
*	4 = Out
*
* 	Type
*	----
*	0 = Tool break
*	1 = OS break
*	2 = Request break
*	3 = Breakpoint
*	4 = Memory protect
*
*	Data
*	----
*	Defined by Type = 0 - Tool number in low word (high zero)
*                                     1 - OS call number in low word (high zero)
*	                  2 - Request number in low word (high zero)
*	                  3 - 24-bit address (high byte zero)
*	                  4 - 24-bit range start address (high byte zero)
*
*	ExtraData
*	---------
*	Defined by Type = 0 - Must be NIL
*	                  1 - Must be NIL
*	                  2 - Must be NIL
*	                  3 - Trigger count (low byte)
*	                  4 - 16-bit range end address (high word)
*                                          2-bit value (low word): MP_T equ 1 - code trace real-time
*			       MP_W equ 2 - code window
*			       MP_H equ 3 - history trace window
*

DebugControl	lda 7,s	;check the type for validity
	cmp #4+1	;largest valid is 4
	bge @badOp
	
	asl a
	tay	;for table index
	
	lda 9,s	;now check the operation
	cmp #4+1	;largest valid is 4
	bge @badOp

	asl a
	tax	;for call table index

	phx
	phy	;save these two indicies when we make tool calls
	
	jsr GetGSBugDirectPage

	ply
	plx	;restore the table indicies

	bcc @doCall	;if there was an error, we can't do the call
	
	lda #$201	;return a generic memory alloc error
	
	bra @exitControl

@doCall	phb
	
	phk
	plb
	
	phd

	lda xDebug_D	;swap in GSBug's DP for all of the subs to use
	tcd

	lda OpTable,x	;get ptr to the table for this operation
	sta @callOp+1

	lda 18,s	
	sta <AL
	lda 20,s
	sta <AB	;pass data to function

	lda 14,s
	sta <T2
	lda 16,s
	sta <T4	;also pass extraData

	tyx

	lda #$0080	;for break in/out funcs (to save 15 bytes)

;	brk #$00

@callOp	jsr ($7777,x)

	pha	;save the possible error code

	jsr DisposeGSBugDirectPage ;get rid of our direct page

	ply	;restore the error code

	pld
	plb

@exitControl	pla
	sta 11,s
	pla
	sta 11,s
	pla
	sta 11,s
	pla
	pla
	pla

	tya	;return the error code
	cmp #1	; and condition the carry appropriately
	
	rtl

@badOp	ldy #debugBadSelErr

	bra @exitControl

**********************************************************************************************
*
* DebugQuery - Returns information about tool, OS, request, and SRQ breaks, breakpoints, and
*              memory protect ranges.
*
*                Toolcall #$0EFF - DebugQuery(data/4,operation,type):Info/4
*
*	Operation
*	---------
*	0 = Get in/out status
*	1 = Get value (address for break or MP, tool, OS, or request number)
*	2 = Get aux value (MP end range)
*	3 = 
*	4 = 
*
* 	Type
*	----
*	0 = Tool break
*	1 = OS break
*	2 = Request break
*	3 = Breakpoint
*	4 = Memory protect
*

DebugQuery	lda 7,s	;check the type for validity
	cmp #4+1	;largest valid is 4
	bge @badOp
	
	asl a
	tay	;for table index
	
	lda 9,s	;now check the operation
	cmp #4+1	;largest valid is 4
	bge @badOp

	asl a
	tax	;for call table index

	phx
	phy	;save these two indicies when we make tool calls
	
	jsr GetGSBugDirectPage

	ply
	plx	;restore the table indicies

	bcc @doCall	;if there was an error, we can't do the call
	
	lda #$201	;return a generic memory alloc error
	
	bra @exitControl

@doCall	phb
	
	phk
	plb
	
	phd
	lda xDebug_D	;swap in GSBug's DP for all of the subs to use
	tcd

	lda QueryOpTable,x	;get ptr to the table for this operation
	sta @callOp+1

	lda 14,s	
	sta <AL
	lda 16,s
	sta <AB	;pass data to function

	tyx

	lda #$0000	;for break in/out funcs (to save 15 bytes)

;	brk #$00

@callOp	jsr ($7777,x)

	pha	;save the possible error code

	jsr DisposeGSBugDirectPage ;get rid of our direct page

	ply	;restore the error code

	pld
	plb

@exitControl	pla
	sta 11,s
	pla
	sta 11,s
	pla
	sta 11,s
	pla
	pla
	pla

	tya	;return the error code
	cmp #1	; and condition the carry appropriately
	
	rtl

@badOp	ldy #debugBadSelErr

	bra @exitControl

*** Tables for DebugQuery calls

QueryOpTable	dc.w GetInOutStatusTable
	dc.w GetValueTable
	dc.w GetAuxValueTable

GetInOutStatusTable dc.w BadOp
	dc.w BadOp
	dc.w BadOp
	dc.w BadOp
	dc.w BadOp
;	dc.w DoGetToolBreakStatus
;	dc.w DoGetOSBreakStatus
;	dc.w DoGetSRQBreakStatus
;	dc.w DoGetBreakStatus
;	dc.w BadOp	;MPs are always in

GetValueTable	dc.w BadOp
	dc.w BadOp
	dc.w BadOp
	dc.w BadOp
	dc.w BadOp

GetAuxValueTable	dc.w BadOp
	dc.w BadOp
	dc.w BadOp
	dc.w BadOp
	dc.w BadOp

*** Tables for DebugControl calls

OpTable	dc.w SetBreakTable
	dc.w ClearBreakTable
	dc.w ClearAllBreakTable
	dc.w BreakInTable
	dc.w BreakOutTable

* Call with 16-bit registers and tool call in AL.

SetBreakTable	dc.w SetToolBreakCore
	dc.w SetOSBreakCore
	dc.w SetSRQBreakCore
	dc.w DoSetBreak
	dc.w DoSetMemoryProtect

* Call with 16-bit registers and tool call in AL.

ClearBreakTable	dc.w ClearToolBreakCore
	dc.w ClearOSBreakCore
	dc.w ClearSRQBreakCore
	dc.w DoClearBreak
	dc.w DoClearMemoryProtect

* Call with 8 or 16-bit registers and no parameters.

ClearAllBreakTable	dc.w ClearAllToolBreaksCore
	dc.w ClearAllOSBreaksCore
	dc.w ClearAllSRQBreaksCore
	dc.w DoClearAllBPs
	dc.w DoClearAllMemoryProtect

BreakInTable	dc.w DoToolBreaksIn
	dc.w DoOSBreaksIn
	dc.w DoSRQBreaksIn
	dc.w DoBPBreaksIn
	dc.w BadOp

BreakOutTable	dc.w DoToolBreaksOut
	dc.w DoOSBreaksOut
	dc.w DoSRQBreaksOut
	dc.w DoBPBreaksOut
	dc.w BadOp

BadOp	lda #debugBadSelErr

	rts

**********************************************************************************************
*
* DoSetMemoryProtect - 
*

DoSetMemoryProtect	php

	sep #$30
	longa off
	longi off

	ldx #0	;start with the first breakpoint entry

@checkNextEntry	lda MP1L,x 	;is this entry already used?
	ora MP1H,x
	ora MP1B,x
	beq @addNewMP	; it's empty, use it for the new MP
	
	inx
	
	cpx N_MP	;is this the last mp field?
	bge @noneFound
	
	bra @checkNextEntry	; nope, try next

@addNewMP	lda <AL
	sta MP1L,x
	lda <AH
	sta MP1H,x
	lda <AB
	sta MP1B,x	;save the mp range start into the table

	lda <T4
	sta MP2L,x
	lda <T5
	sta MP2H,x	;and the end (only 16 bits - no bank)

	lda <T2
	sta MPA,x	;and the type of the range

	plp
	
	longa on
	longi on

	lda #0
	
	rts

@noneFound	plp

	lda #debugTableFullErr

	rts

**********************************************************************************************
*
* DoClearMemoryProtect - 
*

DoClearMemoryProtect php

	sep #$30
	longa off
	longi off

	ldx N_MP

@checkNextEntry	dex
	bmi @notFound

	lda MP1L,x
	cmp <AL
	bne @checkNextEntry

	lda MP1H,x
	cmp <AH
	bne @checkNextEntry

	lda MP1B,x
	cmp <AB
	bne @checkNextEntry

	lda MP2L,x
	cmp <T4
	bne @checkNextEntry
	
	lda MP2H,x
	cmp <T5
	bne @checkNextEntry

	stz MP1L,x
	stz MP1H,x
	stz MP1B,x
	stz MP2L,x
	stz MP2H,x
	stz MP2B,x
	stz MPA,x

	plp
	
	longa on
	longi on

	lda #0
	
	rts

@notFound	plp

	lda #debugBreakNotSetErr

	rts

**********************************************************************************************
*
* DoClearAllMemoryProtect - 
*

DoClearAllMemoryProtect php

	sep #$30
	longa off
	longi off

	ldx N_MP

@clearNextMP	dex
	bmi @exitClearAll

	stz MP1L,x
	stz MP1H,x
	stz MP1B,x
	stz MP2L,x
	stz MP2H,x
	stz MP2B,x
	stz MPA,x

	bra @clearNextMP

@exitClearAll	plp
	
	longa on
	longi on

	lda #0
	
	rts

**********************************************************************************************
*
* DoSetBreak - 
*

DoSetBreak	php

	sep #$30
	longa off
	longi off

	ldx #0	;start with the first breakpoint entry

@checkNextEntry	lda BPAddrLowTable,x ;is this entry already used?
	ora BPAddrHighTable,x
	ora BPAddrBankTable,x
	beq @addNewBreak	; it's empty
	
	inx
	
	cpx N_BP	;is this the last breakpoint field?
	bge @noneFound
	
	bra @checkNextEntry	; nope, try next

@addNewBreak	lda <AL
	sta BPAddrLowTable,x
	lda <AH
	sta BPAddrHighTable,x
	lda <AB
	sta BPAddrBankTable,x

	lda #$80
	sta BPActiveTable,x	;mark this entry as being in use

	lda <T2
	sta BPTriggerTable,x ;set the initial trigger count as requested
	plp
	
	longa on
	longi on

	lda #0
	
	rts

@noneFound	plp

	lda #debugTableFullErr

	rts
	
**********************************************************************************************
*
* DoClearBreak - 
*

DoClearBreak	php

	sep #$30
	longa off
	longi off

	ldx N_BP

@checkNextEntry	dex
	bmi @notFound

	lda BPActiveTable,x	;is this entry already used?
	bpl @checkNextEntry
	
	lda BPAddrLowTable,x
	cmp <AL
	bne @checkNextEntry

	lda BPAddrHighTable,x
	cmp <AH
	bne @checkNextEntry

	lda BPAddrBankTable,x
	cmp <AB
	bne @checkNextEntry

	stz BPAddrLowTable,x
	stz BPAddrHighTable,x
	stz BPAddrBankTable,x
	stz BPTriggerTable,x
	stz BPCountTable,x

	plp
	
	longa on
	longi on

	lda #0
	
	rts

@notFound	plp

	lda #debugBreakNotSetErr

	rts
	
**********************************************************************************************
*
* DoClearAllBPs -
*

DoClearAllBPs	jsr ClearAllBPsCore
	bcc BreakExitCommon

	lda #debugBreaksInErr

	rts

**********************************************************************************************
*
* DoToolBreaksIn -
*

DoToolBreaksIn	tsb TBrkIn

	bra BreakExitCommon

**********************************************************************************************
*
* DoOSBreaksIn -
*

DoOSBreaksIn	tsb OSBrkIn
	
	bra BreakExitCommon

**********************************************************************************************
*
* DoSRQBreaksIn -
*

DoSRQBreaksIn	tsb SRQBreaksIn

	bra BreakExitCommon

**********************************************************************************************
*
* DoBPBreaksIn -
*

DoBPBreaksIn	sep #$30

	longa off
	longi off

	jsr DoBPIN

	rep #$30
	
	longa on
	longi on

	bra BreakExitCommon

**********************************************************************************************
*
* DoToolBreaksOut -
*

DoToolBreaksOut	trb TBrkIn
	
	bra BreakExitCommon

**********************************************************************************************
*
* DoOSBreaksOut -
*

DoOSBreaksOut	trb OSBrkIn
	
	bra BreakExitCommon

**********************************************************************************************
*
* DoSRQBreaksOut -
*

DoSRQBreaksOut	trb SRQBreaksIn

	bra BreakExitCommon

**********************************************************************************************
*
* DoBPBreaksOut -
*

DoBPBreaksOut	sep #$30

	longa off
	longi off

	jsr DoBPOUT

	rep #$30
	
	longa on
	longi on

BreakExitCommon	lda #0	;no errors bubba
	
	rts
	
*** End - 14-May-93 JCM

ToolTrap	jsr Check16BitMode	;added 23-May-91 DAL
	rep #$30	;added 12-Oct-90 DAL
	longa on
	longi on
	txa
	and #$00FF	; see if it's the debugger toolset...
	cmp #$00FF
	bne ttNotFF
toDebugTrap00	brl DebugTrap00	; if so, then handle it..

ttNotFF	pha
	phx
	phy
	phb
	php

	phk
	plb

	txa
	sta ToolBrkNum

	sep #$30
	longa off
	longi off

	clc
	lda 9,s
	adc #1
	sta ToolReturn+1
	lda 10,s
	adc #0
	sta ToolReturn+2
	lda 11,s
	adc #0
	sta ToolReturn+3

	phk
	pla
	cmp ToolReturn+3	; Is it the debugger?
	beq ToolTrap1	; Yep.

	lda DebuggerCalledToolbox	;10-Apr-91 DAL
	bne ToolTrap1		;10-Apr-91 DAL

*** Added - 28-Mar-93 JCM

	lda SRQBreaksIn	;are any SendRequest breaks in?
	beq @checkTBreaks
	
	lda 27,s
	xba
	lda 26,s
	jsr CheckSRQBreak
	bcc ToolBrk	;break on this call

@checkTBreaks

*** End - 28-Mar-93 JCM

	lda TBrkIn	; Are tool breaks in?
	beq CkToolErr

@checkBreaks	lda ToolBrkNum+1	; Check the tool number.
	xba
	lda ToolBrkNum
	jsr CkTBrk
	bcc ToolBrk

CkToolErr

** Next 5 lines commented out 11-Oct-90 DAL (should have been removed earlier)
;	lda EBrkIn	; Are tool error breaks in?
;	beq ToolTrap1
;
;	lda ToolBrkNum+1	; Check the tool number.
;	xba
;	lda ToolBrkNum

; NOTE: *** We no longer support error breaks! ***
;	jsr CkEBrk
;	bcc ToolTrap1
;
;	lda #<ToolErrCk-1	; Set up return to error check routine.
;	sta 9,s
;	lda #>ToolErrCk-1
;	sta 10,s
;	lda #^ToolErrCk-1
;	sta 11,s
;
;
ToolTrap1
;
; Add special patch code here for system event! If the debugger is installed then
; we will prevent system event from handling certain event types by cleverly
; changing them to unobtrusive event types... (Null) events.
;
thePState	equ 1
thedataBank	equ thepState+1
thesavedY	equ thedataBank+1
theSavedX	equ thesavedY+2
theSavedA	equ theSavedX+2
theRTL	equ thesavedA+2
evtWhat	equ theRTL+3
evtWhere	equ evtWhat+2
evtWhen	equ evtWhere+4
evtMess	equ evtWhen+4
evtMods	equ evtMess+4
;
; First test the call number

	rep #$30
	longa On
	longi On
	lda theSavedX,s
	cmp #$1A05	; is it SystemEvent?
	bne FinishToolCall
	lda evtWhat,s	; test the event type
	cmp #$0003	; is it a keydown?
	bne FinishToolCall	; if not then
	lda evtMods,s	; not test to see if the caps lock key is down
	and #$0400	;
	beq FinishToolCall	; if not, finish the tool call
;
; If we get here then it is a keydown that would normally go to the DA
; so lets prevent the call from happening
;
	sep #$20	; added SEP, 31-Aug-90 DAL (plp restores)
*** added 12-Feb-92 DAL
	bit SOUND
	bpl @noSound
*** end 12-Feb-92
	sta >$E0C030	; Supply a happy little keyClick
@noSound
	plp	; restore the state
	plb
	ply
	plx
	pla
	sep #$20
	longa Off
	pla
	ply	; snag the return address

	plx
	plx
	plx
	plx
	plx
	plx
	plx
	plx	; dispose of the passed parameters

	phy	; restore the return address
	pha
	rep #$20
	longa On
	RTL	; and return to caller

FinishToolCall	plp	; Restore the state.
	plb
	ply
	plx
	pla

	jmp ToolJmp	; Execute the tool call.

;ToolErrCk	bcs ToolErrBrk	; Was there an error?

ToolReturn	jmp $FFFFFF
	nop	; padding
	nop
	nop
ToolBrk

	plp	; Restore the state.
	longa On
	longi On
	plb
	ply
	plx
;
; Code inserted here to make tool breaks work properly
; NOTE: This code was lost so it is added from a logic analyzer capture
;
; At this point the stack has saved 16 bit <A> on top and
; the RTL right after it. we must save the break address
; move the RTL and recover <A>
;
EnterDebugFromJSL	lda 3,s	; get the return address off the stack
;	sec
;	sbc #1	; adjust it to be right
	dec a	; 10-Apr-91 DAL
	sta >tBrkAddress	; save it in our local storage
	lda 5,s
	sta >tBrkAddress+2
	lda #$FFFF	; now set the tbrkflag
	sta >tBrkActive	; set it as active...
	lda 1,s	; yank this value...
	sta 4,s	; to preserve the <A> register...
	sep #$20
	longa off	; be in short mode for this...
	pla
	rep #$20
	longa on
	pla	; guess we needed to evacuate the RTL from the stack...
	pla	; recover the saved <A> contents...
	brk $FE	; and break into the debugger!
;
; At this point control has been turned over to the debugger...
;
	export tBrkAddress
	export tBrkActive
	export tBrkDTrap
	export RTBrkCounter
tBrkAddress	ds.L 1
tBrkActive	ds.W 1
tBrkDTrap	ds.W 1
RTBrkCounter	dc.W 20
;
;
	longa Off
	longi Off
; NOTE:We no longer support error breaks ***
;ToolErrBrk	SaveReg	; Save the state.
;
;	clc	; Fix the stack.
;	lda ST
;	adc #3
;	sta ST
;	lda ST+1
;	adc #0
;	sta ST+1
;
;	jsr swap
;
;	lda ToolReturn+1	; Set the correct address.
;	sta PCL
;	lda ToolReturn+2
;	sta PCH
;	lda ToolReturn+3
;	sta PCK
;
;	jsr ON
;
;	brl DEBUG

*
* Check16BitMode
*
* If we're not in full 16-bit mode, do a TLTextMountVol
*
* WARNING--stack-relative instructions below
*
Check16BitMode		;*** Self-modified to RTS if they hit Escape!
	php
	php
	rep #$30
	longa on
	longi on
	pla
	and #$0038	;check m, x, d
	beq @ok

	and #$0008	;was it Decimal mode?
	beq @mxProblem

	brk $F8

@mxProblem	phx

	pha
	pha
	phx	;tool number
	jsr BeforeDebuggerToolCall
	_HexIt
	pla
	sta >ToolMsg2+15
	pla
	sta >ToolMsg2+17

	pha
	pha
	lda 9,s
	sec
	sbc #3
	pha
	_HexIt
	pla
	sta >ToolMsg2+27
	pla
	sta >ToolMsg2+29

	pha
	pha
	lda 11,s
	pha
	_HexIt
	pla
	pla
	sta >ToolMsg2+25

	pha
	pushlong #ToolMsg1
	pushlong #ToolMsg2
	pushlong #ToolButton1
	pushlong #ToolButton2
	_TLTextMountVolume
	pla
	cmp #2
	bne @notQuiet
	lda #$0060
	sta >Check16BitMode
@notQuiet	jsr AfterDebuggerToolCall

	plx
@ok	rts

	longa off
	longi off

ToolMsg1	dc.b 34,'GSBug: Caught tool call with 8-bit'
ToolMsg2	dc.b 30,'registers.  X=xxxx Addr=xxxxxx'
ToolButton1	dc.b 2,'OK'
ToolButton2	dc.b 9,'ESC=Quiet'

*
* OSBreak
*
OSBrkClass1	clc
	xce	; test to see if we are in native mode...
	bcc OSBrkClass1Cont
	xce
	jmp CallClass1	; if in emulation mode simply do the call..

;
; This is the stub that will provide the capability of trapping class 0 OS calls
; and breaking on any particular error
;
oldDPage	equ 1
theDummy	equ oldDPage+2
oldA	equ TheDummy+2	;added 12-Feb-92 DAL
oldY	equ oldA+2
OldX	equ oldY+2
oldPStat	equ OldX+2
theOSRTL	equ oldPStat+1
theType1Number	equ theOSRTL+3
OSBrkClass0
	clc
	xce	; test to see if we are in native mode...
	bcc OSBrkClass0Cont
	xce
	bra CallClass0	; if in emulation mode simply do the call..
OSBrkClass0Cont	php
	rep #$30
	longa On
	longI On
	phx	; must preserve the contents of <X> and <Y>
	ldx #$0000
	bra OBrkCommon
OSBrkClass1Cont	php
	rep #$30
	phx	; as the OS does...
	ldx #$0001
OBrkCommon
	phy
*** added 12-Feb-92 DAL -- preserve the A register on the way into an OS call
	pha
*** end 12-Feb-92
	phk	; must have this here for later
	phk	; save our data bank here for now to do the bank test
	phd
	tsc
	tcd	; now the stack frame is properly set

;	lda <theDummy
;	and #$00FF
;	sta <TheDummy	; isolate our data bank...
;
;	lda <theOSRTL+2	; now do the stupid bank trick
;	and #$00FF
;	cmp <theDummy	; see if we are being called from the debugger
*** optimized 12-Feb-92 DAL
	lda <theDummy
	eor <theOSRTL+2
	and #$00ff
*** end 12-Feb-92
	beq NoMatchOS	; if these equal then we are being called from debugger

	lda >OSBrkIn	; Are OS breaks in?
	beq NoMatchOS	; if not forget this...
;
; Get the call-in-progress number into A
;
; (From stack for $E100B0 vector, from inline for $E100A8 vector)
;
	txa
	beq @Class0
	lda <theType1Number
	bra TestOSBrkNum
@Class0
;;;	stx <theDummy	; zero out theDummy now.. (dead code--removed 12-Feb-92 DAL)
	ldy #1	; offset to the OS Call Num
	lda [<theOSRTL],y	; get the call num in <A>

TestOSBrkNum
;
; when we get here we have the ProDOS call number in <A> and the stack is set with
; the saved dpage and whatnot on it...all we do now is see if this OSbrk number is in
; our table...
;
	phb
	phk
	plb	; use our dbank for a moment...
	sta <theDummy	; save the tool call number for now..
	lda NumOSBrk	; remember it's only a byte..
	and #$00FF
	asl a
	tay

;@Loop	lda <theDummy	;moved @Loop here, 24-Sep-91 DAL
;	dey
;	dey
;	bmi @LoopNoMatchOS
;*** added 12-Jun-91 DAL -- class 0 or 1 both break
;	eor OSBrks,y
;	and #$1FFF	;class doesn't matter!
;	bne @Loop
;*** end of 12-Jun-91
;	cmp OSBrks,y
;	bne @Loop

*** rewritten again 12-Feb-92 DAL to allow SetOSBrk #0 to break on all OS calls
@Loop	dey
	dey
	bmi @LoopNoMatchOS
	lda OSBrks,y
	beq @Match
	eor <theDummy
	and #$1fff
	bne @Loop
*** end 12-Feb-92

@Match	bra TakeOSBrk
@LoopNoMatchOS	plb
NoMatchOS
	pld	; undo the nasty stack stuff
	pla	; recover dummy
	cpx #0	; see if we are class 0
	beq DoCallClass0
	pla	; restore caller's <A> 12-Feb-92 DAL
	ply	; restore the values of <X> and <Y>
	plx
	plp
CallClass1	jml >$777777	;was $009e12 DAL 7-Sep-90
DoCallClass0	pla	;restore caller's <A> 12-Feb-92
	ply
	plx
	plp
CallClass0	jml >$777777	;was $009e00 DAL 7-Sep-90

TakeOSBrk
;
; NOTE: We currently have our databank swapped in and one waiting on the stack..
;
	lda theOSRTL	; get the return address off the stack
	dec a
	sta tBrkAddress	; save it in our local storage
	lda theOSRTL+2
	and #$00FF	; make sure it's stripped properly...
	sta tBrkAddress+2
	lda #$FFFF	; now set the tbrkflag
	sta tBrkActive	; set it as active...
	plb	; recover the proper databank..
; now untie our stack frame...
	lda OldPStat
	and #$0020	; see if user was in 16 bit mode
	bne @Untie8Bit	; if so, then untie for 8 bit mode
	pld	; recover the user's DPage
	pla	; dump garbage
	pla	; restore the caller's <A> value (12-Feb-92 DAL)
	ply	; restore the values of <X> and <Y>
	plx
	plp	; recover the processor status
	pla	; now yank the return address..
	sep #$20
	pla	; and the 3rd byte...
	rep #$20
	brk $FD	; and enter the debugger

@Untie8Bit
	pld	; recover the DPage
	pla	; the temp crap
	pla	; restore caller's <A> value (12-Feb-92 DAL)
	ply	; restore <X> and <Y>
	plx
	plp	; and the proc status, note in 8 bit mode now!
	longa Off
	pla	; yank the return address
	pla
	pla
	brk $FC	; and enter the debugger...

SRQBreaksIn	dc.b $00	; True if real srq breaks in - 28-Mar-93 JCM
TBrkIn	dc.b $00	; True if real tool breaks in.
OSBrkIn	dc.W $00	; True if real tool error breaks in.
** TErrFlag	dc.b $00	; True if last instruction was a tool error call (removed 11-Oct-90 DAL)
ToolBrkNum	dc.w $0000

BrkMsg	dc.b 'Tool Breaks'
	dc.b 29
	dc.b 'OS Breaks'
	dc.b $8D
	dc.b '==========='
	dc.b 29
	dc.b '================='
	dc.b $8d,$8d,$8d,$8d,$8d,$8d,$8d,$8d,$8d,$8d
	dc.b $8d,$8d,$8d,$8d,$8d,$8d,$8d,$8d,$8d,$8d
	dc.b $8d,$8d
	dc.b $00

*** Added - 28-Mar-93 JCM

SRQBreakMessage	dc.b 'SendRequest Breaks',$8D
	dc.b '=================='
	dc.b $8d,$8d,$8d,$8d,$8d,$8d,$8d,$8d,$8d,$8d
	dc.b $8d,$8d,$8d,$8d,$8d,$8d,$8d,$8d,$8d,$8d
	dc.b $8d,$8d
	dc.b $00

*** End - 28-Mar-93 JCM

**********************************************************************
*
* BeforeDebuggerToolCall
*
* Increments the GSBug-is-in-the-toolbox flag to avoid tool breaks
* triggering where we don't want them to.
*
**********************************************************************
BeforeDebuggerToolCall
	php
	phb
	phk
	plb
	pha
	inc DebuggerCalledToolbox
	pla
	plb
	plp
	rts

DebuggerCalledToolbox dc.w 0

**********************************************************************
*
* AfterDebuggerToolCall
*
* Decrements the GSBug-is-in-the-toolbox flag to avoid tool breaks
* triggering where we don't want them to.
*
**********************************************************************
AfterDebuggerToolCall
	php
	phb
	phk
	plb
	pha
	dec DebuggerCalledToolbox
	bpl @ok
	stz DebuggerCalledToolbox
@ok	pla
	plb
	plp
	rts

*************************************************************************************************

;
; place to save original 1k space
;
My_Vector	dc.L $000000	;place to save my entry point for heart beat task
temp_sp	dc.b $00	;save stack page when switching modes
load_flag	DC.W $0000	;flag to tell if something has been loaded or not
save_dp	ds.b $400	;from 0 to $3ff
my_stuff	ds.b $400	;place to save my dp on ending

int_stuff
int_A	dc.w $0000
int_X	dc.w $0000
int_Y	dc.w $0000
int_S	dc.w $0000
int_D	dc.w $0000
int_P	dc.b $00
int_B	dc.b $00
int_e	dc.b $00
int_PCK	dc.b $00
int_PC	dc.w $0000
int_M	dc.b $00
int_SHADOW	dc.b $00
int_CYA	dc.b $00
int_MSLOT	dc.b $00

saved_PC	ds.b 3	; saved PC
saved_regs	ds.b 17	; saved registers

; These tables are all 32, because the index to them is ANDed with $1F every time
; it is incremented so that it will wrap.

PCKTrace	ds.b 32	; Bank byte of address.
PCHTrace	ds.b 32	; High byte of address.
PCLTrace	ds.b 32	; Low byte of address.
TLENTrace	ds.b 32	; Length of instruction in bytes.
TFMTTrace	ds.b 32	; Format of instruction.
TOPCTrace	ds.b 32*4	; The bytes of the instruction.
TraceCount	dc.b $00	; Number of entries not valid.
TraceIndex	dc.b $00	; Index into history tables.
InTrace	dc.b $00	; MSB = 1 if in trace; 0 if in real-time.


RealUserP	dc.b 0	;added 7-Sep-90 DAL

DISBUF	ds.b 2
pathname	dc.b 36	; first pathname needed in the program (was 30, no "*/" 16-Oct-90 DAL)
	msb off
	dc.b '*/System/System.Setup/GSBug.AutoTemp'
	msb on
	ds.b $19*$24

*** DISBUF	DS.B $19*$25	;disassembly save buffer
***
*** pathname	equ DISBUF+2
***

PadToEnd	;ds.b $22af	;pad to end of bank!


ENDcode	DS.B 1

	ENDP

	end
\ No newline at end of file
diff --git a/IIGS.601.SRC/Debugger/debug.init b/IIGS.601.SRC/Debugger/debug.init
new file mode 100644
index 0000000..6b87d61
Binary files /dev/null and b/IIGS.601.SRC/Debugger/debug.init differ
diff --git a/IIGS.601.SRC/Debugger/debug.make b/IIGS.601.SRC/Debugger/debug.make
new file mode 100644
index 0000000..b98ee97
--- /dev/null
+++ b/IIGS.601.SRC/Debugger/debug.make
@@ -0,0 +1 @@
+#   File:       debug.make
#   Target:     debug
#   Sources:    debug.aii toolnames.aii dosnames.aii misc.aii history.aii
#   Created:    Friday, March 8, 1989

Objs =	debug.aii.obj ¶
		toolnames.aii.obj ¶
		dosnames.aii.obj ¶
		history.aii.obj ¶
		misc.aii.obj
		
debug Ä {Objs}
		LinkIIGS {Objs} -o debug
		
.aii.obj Ä .aii
		AsmIIGS -t -d ThisIsRam=2 -l {default}.aii
\ No newline at end of file
diff --git a/IIGS.601.SRC/Debugger/debug.rom.make b/IIGS.601.SRC/Debugger/debug.rom.make
new file mode 100644
index 0000000..1e1d4ca
--- /dev/null
+++ b/IIGS.601.SRC/Debugger/debug.rom.make
@@ -0,0 +1 @@
+#   File:       debug.rom.make
#   Target:     debug.rom
#   Sources:    debug.aii toolnames.aii dosnames.aii misc.aii history.aii
#   Created:    Friday, March 8, 1989

Objs =	debug.aii.obj ¶
		toolnames.aii.obj ¶
		dosnames.aii.obj ¶
		history.aii.obj ¶
		misc.aii.obj
		
debug.rom Ä {Objs}
		LinkIIGS {Objs} -o debug.rom.temp
		makebiniigs debug.rom.temp -o debug.rom -org $F80000
		delete debug.rom.temp
		
.aii.obj Ä .aii
		AsmIIGS -d ThisIsRam=0 -l {default}.aii
\ No newline at end of file
diff --git a/IIGS.601.SRC/Debugger/dosnames.aii b/IIGS.601.SRC/Debugger/dosnames.aii
new file mode 100644
index 0000000..fd914bd
--- /dev/null
+++ b/IIGS.601.SRC/Debugger/dosnames.aii
@@ -0,0 +1 @@
+*******************************************************************************
*
* Copyright Apple Computer, Inc 1990
* All Rights Reserved
*
*******************************************************************************

**********************************************************************
*
* ToolNames
*
* This file contains the procedure and data to convert a call number
* into a name
*
* There are two procedures that are entry points in this file:
*
*     GetDOSName	returns a pointer to a CString that is the 
*	name of the OS call specified.
*
*     GetDOSNumber  returns a word that is the OS call number from
*   	the name of the call
*
**********************************************************************
*
* REVISION HISTORY
*
* 29-Aug-90 David A. Lyons
*   Updating for 5.0.3.  Search for "DAL" comments for changes.
*   Added some class-one calls that weren't in here.
*   Removed class-0 entry for ExpandPath, because there's no such beast.
*   Rearranged source for tables to be numerical instead of alphabetical
*     so I can see if it's right.
*
* 11-Oct-90 David A. Lyons
*   Added GetDOSNumber so we can do OS Breaks by name.
*   Added "GS" to end of class-1 call names to distinguish them from
*     class-0 versions.
*
* 3-Sep-91 DAL
*   Added class-1 SetStdRefNum call (6.0d47).
*
* 26-May-93 JCM
*   Added if'ed out APW/ORCA shell calls. I don't have time to add the
*   code necessary to muck with them, and it's non-trivial. Urgh.
*
**********************************************************************

	include 'dsect.macros'
	string C

	MACRO
	ToolCall &NameStr,&CallNumber
c&CallNumber	dc.b '&NameStr'
	MEND


****************************************************************
*
GetDosName	PROC EXPORT
*
* Returns a pointer to the specified call name.
*
* The call is made as follows:
*
*	pha
*	pha
*	PushWord #CallNumber
*	jsl GetName
*	PullLong ThePointer
*
* Inputs:
*	space for long
*	CallNumber : word
*
* Outputs:
*	carry = 1 iff tool name is unknown
*	Pointer to CString
*
* External Refs:
*	none
*
* Entry Points:
*
	longa on	; mode
	longi on
*
****************************************************************

	DefineStack
OrigDirect	word
RTLAdr	block 3
CallNumber	word
ResultPtr	long


	phd	; save d-reg
	tsc	; stack becomes d-page
	tcd
	phb	; save dbr
	phk	; dbr is code bank
	plb

	lda CallNumber+1	; look at tool number in call number
	and #$00E0
	lsr a
	lsr a
	lsr a
	lsr a
	lsr a
	inc a
	asl a
	cmp NamePointerTable
	bcs NoSuchTool

	tax	; use 2 times call number to get pointer
	lda NamePointerTable,x ; to table of names for this tool
	sta ResultPtr	; put result in ResultPtr

	lda CallNumber	; now look at func number in call number
	and #$1FFF
	beq NoSuchTool
	asl a	; use 2 times call number to see if funct
	cmp (ResultPtr)	; exists
	bcs NoSuchFunction

	tay	; use number to get pointer to name
	lda (ResultPtr),y
	sta ResultPtr	; store in result ptr

	phk	; now put bank into result pointer
	phk
	pla
	and #$00FF
	sta ResultPtr+2

	clc	; Indicate tool name found.


AllDone

	ldx RTLAdr+1	; move rtl adr up 2 bytes
	stx RTLAdr+1+2
	ldx RTLAdr
	stx RTLAdr+2

	plb	; restore dbr
	pld	; restore d-reg
	plx	; pull off word
	rtl	; fini


NoSuchTool	
NoSuchFunction
	lda #UnknownStr
	sta ResultPtr
;	lda #^UnknownStr
	phk	;
	phk	;
	pla	;
	and #$00ff	;made bank-independent 29-Aug-90 DAL
	sta ResultPtr+2

	sec	;Indicate that no tool name found.
	bra AllDone

********************************************************************************
*
* GetDOSNumber
*
* Usage:
*   pha	;space for result
*   pushlong #str	;input string
*   jsl GetDOSNumber
*   pla	;result (0 if not found)
*
* New routine 11-Oct-90 DAL
*
********************************************************************************
	export GetDOSNumber
	import EqualString
GetDOSNumber
	DefineStack
OrigD	word
SectCounter	word
CallCounter	word
Ptr	word
RTLAddress	block 3
StringPtr	long
ResultCallNumber	word

	pha	; three words of locals
	pha
	pha
	phd	; save d-reg
	tsc	; stack becomes d-page
	tcd
	phb	; save dbr
	phk	; dbr is code bank
	plb

	stz ResultCallNumber ; assume not found
	stz SectCounter

SectLoop	inc SectCounter
	lda SectCounter
	asl a
	cmp NamePointerTable
	bcs NotFound
@ok
	tax
	lda NamePointerTable,x
	sta Ptr

	stz CallCounter
CallLoop	inc CallCounter
	
	lda CallCounter
	asl a
	cmp (Ptr)
	bcs SectLoop

	tay
	lda (Ptr),y
	phk
	phk
	pha
	lda 3,s
	and #$00FF
	sta 3,s
	pei StringPtr+2
	pei StringPtr
	jsr EqualString
	bcc CallLoop

	lda CallCounter
	ldx SectCounter
	dex
	beq @1
	ora #$2000	;Class 1
@1	sta ResultCallNumber

NotFound

	ldx RTLAddress+1	; move rtl adr up 4 bytes
	stx RTLAddress+1+4
	ldx RTLAddress
	stx RTLAddress+4

	plb	; restore dbr
	pld	; restore d-reg
	plx	; pull off 3 locals
	plx
	plx
	plx	; pull off long
	plx
	rtl


;-----------------------------------------------------------
;
; Name Pointer Table
;
; This table points to the table of pointers to names
; of calls in each tool. 
; 
NamePointerTable
	dc.w EndNPT-NamePointerTable
	dc.w Class0
	dc.w Class1
EndNPT

	ToolCall CREATE,0001
	ToolCall DESTROY,0002
	ToolCall CHANGE_PATH,0004
	ToolCall SET_FILE_INFO,0005
	ToolCall GET_FILE_INFO,0006
	ToolCall VOLUME,0008
	ToolCall SET_PREFIX,0009
	ToolCall GET_PREFIX,000A
	ToolCall CLEAR_BACKUP_BIT,000B
;	ToolCall EXPAND_PATH,000E	;removed 29-Aug-90 DAL (no class 0 version)
	ToolCall OPEN,0010
	ToolCall NEWLINE,0011
	ToolCall READ,0012
	ToolCall WRITE,0013
	ToolCall CLOSE,0014
	ToolCall FLUSH,0015
	ToolCall SET_MARK,0016
	ToolCall GET_MARK,0017
	ToolCall SET_EOF,0018
	ToolCall GET_EOF,0019
	ToolCall SET_LEVEL,001A
	ToolCall GET_LEVEL,001B
	ToolCall GET_DIR_ENTRY,001C
	ToolCall GET_DEV_NUM,0020
	ToolCall GET_LAST_DEV,0021
	ToolCall READ_BLOCK,0022
	ToolCall WRITE_BLOCK,0023
	ToolCall FORMAT,0024
	ToolCall ERASE_DISK,0025
	ToolCall GET_NAME,0027
	ToolCall GET_BOOT_VOL,0028
	ToolCall QUIT,0029
	ToolCall GET_VERSION,002A
	ToolCall D_INFO,002C
	ToolCall ALLOC_INTERRUPT,0031
	ToolCall DEALLOC_INTERUPT,0032

	ToolCall CreateGS,2001
	ToolCall DestroyGS,2002
	ToolCall OSShutdownGS,2003
	ToolCall ChangePathGS,2004
	ToolCall SetFileInfoGS,2005
	ToolCall GetFileInfoGS,2006

	if SpongeBoy then
	ToolCall JudgeNameGS,2007	;added 8-Feb-91 DAL
	endif

	ToolCall VolumeGS,2008
	ToolCall SetPrefixGS,2009
	ToolCall GetPrefixGS,200A
	ToolCall ClearBackupGS,200B
	ToolCall SetSysPrefsGS,200C
	ToolCall NullGS,200D
	ToolCall ExpandPathGS,200E
	ToolCall GetSysPrefsGS,200F
	ToolCall OpenGS,2010
	ToolCall NewLineGS,2011
	ToolCall ReadGS,2012
	ToolCall WriteGS,2013
	ToolCall CloseGS,2014
	ToolCall FlushGS,2015
	ToolCall SetMarkGS,2016
	ToolCall GetMarkGS,2017
	ToolCall SetEOFGS,2018
	ToolCall GetEOFGS,2019
	ToolCall SetLevelGS,201A
	ToolCall GetLevelGS,201B
	ToolCall GetDirEntryGS,201C
	ToolCall BeginSessionGS,201D
	ToolCall EndSessionGS,201E
	ToolCall SessionStatusGS,201F
	ToolCall GetDevNumberGS,2020
	ToolCall FormatGS,2024
	ToolCall EraseDiskGS,2025
	ToolCall ResetCacheGS,2026
	ToolCall GetNameGS,2027
	ToolCall GetBootVolGS,2028
	ToolCall QuitGS,2029	;added 29-Aug-90 DAL
	ToolCall GetVersionGS,202A
	ToolCall GetFSTInfoGS,202B
	ToolCall DInfoGS,202C
	ToolCall DStatusGS,202D
	ToolCall DControlGS,202E
	ToolCall DReadGS,202F
	ToolCall DWriteGS,2030
	ToolCall BindInitGS,2031
	ToolCall UnbindIntGS,2032
	ToolCall FSTSpecificGS,2033	;added 29-Aug-90 DAL
	ToolCall AddNotifyProcGS,2034	;added 29-Aug-90 DAL
	ToolCall DelNotifyProcGS,2035	;added 29-Aug-90 DAL
	ToolCall DRenameGS,2036	;added 29-Aug-90 DAL
	ToolCall GetStdRefNumGS,2037	;added 29-Aug-90 DAL
	ToolCall GetRefNumGS,2038	;added 29-Aug-90 DAL
	ToolCall GetRefInfoGS,2039	;added 29-Aug-90 DAL
	ToolCall SetStdRefNumGS,203A	;added 3-Sep-91 DAL

	if 0 then

*** Added - 26-May-93 JCM - Let's be nice and show all of the APW/ORCA shell calls that I can find.

	ToolCall Get_LInfo,0101
	ToolCall Set_LInfo,0102
	ToolCall Get_Lang,0103
	ToolCall Set_Lang,0104
	ToolCall Error,0105
	ToolCall Set,0106
	ToolCall Version,0107
	ToolCall Read_Indexed,0108
	ToolCall Init_Wildcard,0109
	ToolCall Next_Wildcard,010A
	ToolCall Read_Variable,010B
	ToolCall ChangeVector,010C
	ToolCall Execute,010D
	ToolCall FastFile,010E
	ToolCall Direction,010F
	ToolCall Redirect,0110
	ToolCall Stop,0113
	ToolCall ExpandDevices,0114
	ToolCall UnsetVariable,0115
	ToolCall Export,0116
	ToolCall PopVariables,0117
	ToolCall PushVariables,0118
	ToolCall SetStopFlag,0119
	ToolCall ConsoleOut,011A
	ToolCall SetIODevices,011B
	ToolCall GetIODevices,011C
	ToolCall GetCommand,011D
	
	ToolCall GetLInfoGS,0141
	ToolCall SetLInfoGS,0142
	ToolCall GetLangGS,0143
	ToolCall SetLangGS,0144
	ToolCall ErrorGS,0145
	ToolCall SetGS,0146
	ToolCall VersionGS,0147
	ToolCall ReadIndexedGS,0148
	ToolCall InitWildcardGS,0149
	ToolCall NextWildcardGS,014A
	ToolCall ReadVariableGS,014B
	ToolCall ChangeVectorGS,014C
	ToolCall ExecuteGS,014D
	ToolCall FastFileGS,014E
	ToolCall DirectionGS,014F
	ToolCall RedirectGS,0150
	ToolCall StopGS,0153
	ToolCall ExpandDevicesGS,0154
	ToolCall UnsetVariableGS,0155
	ToolCall ExportGS,0156
	ToolCall PopVariablesGS,0157
	ToolCall PushVariablesGS,0158
	ToolCall SetStopFlagGS,0159
	ToolCall ConsoleOutGS,015A
	ToolCall SetIODevicesGS,015B
	ToolCall GetIODevicesGS,015C
	ToolCall GetCommandGS,015D

	endif

*** End - 26-May-93 JCM

Class0	dc.w Class1-Class0
	dc.w c0001
	dc.w c0002
	dc.w c0003
	dc.w c0004
	dc.w c0005
	dc.w c0006
	dc.w c0007
	dc.w c0008
	dc.w c0009
	dc.w c000A
	dc.w c000B
	dc.w c000C
	dc.w c000D
	dc.w c000E
	dc.w c000F
	dc.w c0010
	dc.w c0011
	dc.w c0012
	dc.w c0013
	dc.w c0014
	dc.w c0015
	dc.w c0016
	dc.w c0017
	dc.w c0018
	dc.w c0019
	dc.w c001A
	dc.w c001B
	dc.w c001C
	dc.w c001D
	dc.w c001E
	dc.w c001F
	dc.w c0020
	dc.w c0021
	dc.w c0022
	dc.w c0023
	dc.w c0024
	dc.w c0025
	dc.w c0026
	dc.w c0027
	dc.w c0028
	dc.w c0029
	dc.w c002A
	dc.w c002B
	dc.w c002C
	dc.w c002D
	dc.w c002E
	dc.w c002F
	dc.w c0030
	dc.w c0031	
	dc.w c0032

Class1	dc.w Class2-Class1
	dc.w c2001
	dc.w c2002
	dc.w c2003
	dc.w c2004
	dc.w c2005
	dc.w c2006
	dc.w c2007
	dc.w c2008
	dc.w c2009
	dc.w c200A
	dc.w c200B
	dc.w c200C
	dc.w c200D
	dc.w c200E
	dc.w c200F
	dc.w c2010
	dc.w c2011
	dc.w c2012
	dc.w c2013
	dc.w c2014
	dc.w c2015
	dc.w c2016
	dc.w c2017
	dc.w c2018
	dc.w c2019
	dc.w c201A
	dc.w c201B
	dc.w c201C
	dc.w c201D
	dc.w c201E
	dc.w c201F
	dc.w c2020
	dc.w c2021
	dc.w c2022
	dc.w c2023
	dc.w c2024
	dc.w c2025
	dc.w c2026
	dc.w c2027
	dc.w c2028
	dc.w c2029
	dc.w c202A
	dc.w c202B
	dc.w c202C
	dc.w c202D
	dc.w c202E
	dc.w c202F
	dc.w c2030
	dc.w c2031	
	dc.w c2032
	dc.w c2033	;added 29-Aug-90 DAL
	dc.w c2034	;added 29-Aug-90 DAL
	dc.w c2035	;added 29-Aug-90 DAL
	dc.w c2036	;added 29-Aug-90 DAL
	dc.w c2037	;added 29-Aug-90 DAL
	dc.w c2038	;added 29-Aug-90 DAL
	dc.w c2039	;added 29-Aug-90 DAL
	dc.w c203A	;added 3-Sep-91 DAL

Class2

c0003
c0007
c000C
c000D
c000E	; added 29-Aug-90 DAL (no class-0 ExpandPath)
c000F
c001D
c001E
c001F
c0026
c002B
c002D
c002E
c002F
c0030

	if SpongeBoy=0 then		;8-Feb-91 DAL
c2007
	endif

c2021
c2022
c2023

UnknownStr	dc.b 'Unknown'

	ENDP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/Debugger/dsect.macros b/IIGS.601.SRC/Debugger/dsect.macros
new file mode 100644
index 0000000..5282a3a
--- /dev/null
+++ b/IIGS.601.SRC/Debugger/dsect.macros
@@ -0,0 +1 @@
+;---------------------------------------------------------------------------
;
; DSect Macros
;
; By Don Marsh  and	Steven Glass
; 11 Sep 87
;
; A series of macros to help in making equates.  This is
; useful when you want to define a series of    equates that
; relate to each other.  For example, offsets on the stack,
; locations on  direct page, offsets in	a record.
;
; Normally you  would do something like
;
;     lab1 equ  0
;     lab2 equ  lab1+4
;     lab3 equ  lab2+2
;     etc.
;
; These macros  let	you do the  following
;
;          DSECT 0
;     lab1 long
;     lab2 word
;     lab3 long
;
; The macros do the	equating and addition for you.  They also make the
; code more readable.
;
; The macro GlobalDSECT makes   the equates global rather than
; local.
;
; The macro DSectSize returns   the current value of the
; dummy program counter that is being maintained.
;
; The macro DefineStack is like using DSECT 1.
;
;
;  DSect &Value
;
;  Begin local  data section.   This defines a  dummy PC
;  register which can be used   in equates to avoid error-
;  prone linked equates for setting up direct page or
;  stack offsets.  The dummy PC begins at &Value and
;  is updated by the appropriate amount	by the BYTE,
;  WORD, LONG,  and	BLOCK macros.
;
	MACRO
	DSect &Value
DummyPC	SET &Value
	MEND
	

;
;  DefineStack
;
;  This is a specialized data   section	which defines
;  a dummy PC starting at 1 in order to	define a
;  series of stack offsets using the BYTE, WORD,
;  LONG, and BLOCK macros.
;
	MACRO
	DefineStack
DummyPC	SET 1
	MEND

;
;  &lab byte
;
;  Equate the given	label with the current dummy
;  PC (defined  by DSect, GlobalDSect, or
;  DefineStack), and update the dummy PC by the
;  appropriate  amount.
;
	MACRO
&lab	BYTE
&lab	equ DummyPC
DummyPC	SET DummyPC+1
	MEND

;
;  &lab word
;
;  Equate the given	label with the current dummy
;  PC (defined  by DSect, GlobalDSect, or
;  DefineStack), and update the dummy PC by the
;  appropriate  amount.
;
	MACRO
&lab	WORD
&lab	equ DummyPC
DummyPC	SET DummyPC+2
	MEXIT
	MEND

;
;  &lab long
;
;  Equate the given	label with the current dummy
;  PC (defined  by DSect, GlobalDSect, or
;  DefineStack), and update the dummy PC by the
;  appropriate  amount.
;
	MACRO
&lab	LONG
&lab	equ DummyPC
DummyPC	SET DummyPC+4
	MEND

;
;  &lab block &size
;
;  Equate the given	label with the current dummy
;  PC (defined  by DSect, GlobalDSect, or
;  DefineStack), and update the dummy PC by the
;  appropriate  amount (&size bytes).
;
	MACRO
&lab	BLOCK &Value
	if  &lab	= '' goto .skiplab
&lab	equ DummyPC
.skiplab
DummyPC	SET DummyPC+&Value
	MEND

;
;  &lab DSectSize
;
;  This macro equates the given label with the
;  current dummy PC	defined by the DSect,
;  GlobalDSect, or DefineStack macros.	This    is
;  useful for determing the size of data sections
;  or parts of  data sections.
;
	MACRO
&lab	DSectSize
&lab	equ DummyPC
	MEND
	string C




\ No newline at end of file
diff --git a/IIGS.601.SRC/Debugger/equates.i b/IIGS.601.SRC/Debugger/equates.i
new file mode 100644
index 0000000..aab410e
--- /dev/null
+++ b/IIGS.601.SRC/Debugger/equates.i
@@ -0,0 +1 @@
+

;
;  Direct Page Debug816
;    (image of PCL to QR in TABLES1 file)
;
PCL	equ 0
PCH	equ PCL+1
PCK	equ PCH+1	;Program bank
BASL	equ PCK+1	;for output
BASH	equ BASL+1
BASB	equ BASH+1
AL	equ BASB+1
AH	equ AL+1
AB	equ AH+1
T1	equ AB+1
T2	equ T1+1
T3	equ T2+1
T4	equ T3+1
T5	equ T4+1
T6	equ T5+1
AR	equ T6+1	;2-byte A
XR	equ AR+2	; X and
YR	equ XR+2	;  Y
PR	equ YR+2	;status
SR	equ PR+1	;3-bytes for [d] use
eR	equ SR+3	;emulation bit as MSB
DR	equ eR+1	;Direct (allow [d] access)
BR	equ DR+3	;data Bank
MR	equ BR+1	;Machine State
QR	equ MR+1	;Quagmire CYA[7]+SHADOW[6-0]
CR	equ QR+1	;chrset

*
*	My direct page variables
*	I need to do this
*
*
base	equ CR+1	;three bytes used to search for RTL's

;
; Temporary location usage in bank0/zero page, start from A1....
;
MyID	equ $00003c	;2-byte for MyID
HANDLELW	equ MyID+2	;low word of pointer to master pointe
HANDLEHG	equ HANDLELW+2	;high word of pointer to master pointer

*** Nuked - 24-May-93 JCM - These are now handled locally to the dp alloc subs.
;;;HDLWBK0	equ HANDLEHG+2	;low word of handle to allocated bank00
;;;HDHGBK0	equ HDLWBK0+2	;high word of handle to allocated bank00
*** End - 24-May-93 JCM

	eject
MONRST	equ $0003F2
USR	equ $0003F8
MONZ	equ $FF69
PFlag	equ $E100BC	;ProDos flag 00=P8 01=P16

BRKV	equ $E10071	;4/25/86 roms or later
MLI_16	equ $E100A8	;ProDOS/16
MLI_16_Stack	equ $E100B0	;ProDOS/16 stack based system call
OS_Public_Flags	equ $E100B8	;25-May-93 JCM - GS/OS flags (we're stealing some bits)

IRQ_INTFLAG	equ $E100C3
IRQ_DATAREG	equ $E100C4
IRQ_KMSTATUS	equ $E100C5
IRQ_SECFLAG	equ $E100C6
IRQ_ACTIVE	equ $E100CB


irq_A	equ $E10108	;set by Monitor after BRK
irq_X	equ $E1010A	; 4/25/86 roms or later
irq_Y	equ $E1010C	;.
irq_S	equ $E1010E	;.
irq_D	equ $E10110	;.
irq_P	equ $E10112
irq_B	equ $E10113
irq_e	equ $E10114	;in bit 0
irq_PCK	equ $E10115
irq_PC	equ $E10116
irq_M	equ $E10118
irq_SHADOW	equ $E10119
irq_CYA	equ $E1011A
irq_MSLOT	equ $E1011B

KBD	equ $E1C000
CLR80STORE	equ $E1C000
SET80STORE	equ $E1C001
CLRINTCXROM	equ $E1C006
SETINTCXROM	equ $E1C007
CLR80COL	equ $E1C00C
SET80COL	equ $E1C00D
CLRALTCHR	equ $E1C00E
SETALTCHR	equ $E1C00F
RD80COL	equ $E1C018

KBDSTRB	equ $E1C010
P2STATE	equ $E1C01C
ALTCHR	equ $E1C01E

RDTEXT	EQU $E1C01A
RDMIX	EQU $E1C01B
RDPAGE2	EQU $E1C01C
RDHIRES	EQU $E1C01D
KEYMODREG	equ $E1C025
NEWVIDEO	equ $E1C029

SPKR	equ $E1C030
SHADOW	equ $E1C035
CYA	equ $E1C036

GR	equ $E1C050
TXTCLR	equ $E1C050
TXTSET	equ $E1C051
TEXT	equ $E1C051
FULL	equ $E1C052
MIXCLR	equ $E1C052
MIXSET	equ $E1C053
MIXED	equ $E1C053
PAGE1	equ $E1C054
TXTPAGE1	equ $E1C054
TXTPAGE2	equ $E1C055
PAGE2	equ $E1C055
LORES	equ $E1C056
HIRES	equ $E1C057
CLRAN3	equ $E1C05E
SETAN3	equ $E1C05F
PB1	equ $E1C061
MSTATE	equ $E1C068

MNEMSTKPTR	equ $010100	;main stack pointer
ALEMSTKPTR	equ $010101	;alternate stack pointer
DebugB	equ $e101A4	;my reserved location in bank E1
;;;DebugCntl	equ $e102b7	; " 25-May-93 JCM - this isn't used anywhere

*
*	My equates that I need
*
CDAVector	equ $e10048	;for special ROM 02B4 or normal 0048
OptionKey	equ $00C025	;soft switch to read in bit 6	

;
;   The following EQU's (constants) and dfb's (variables)
;          control output where:    Set by SET
;
N_STK	equ 19	;N_number              
N_CELL	equ 19
N_OPC	equ 19
R_STK	equ 3	;R_row           
R_CELL	equ 3
R_OPC	equ 3
C_STK	equ 0	;C_column           
C_CELL	equ 9
C_BP	equ $1B
C_MP	equ $1B
C_OPC	equ $2B	;I_highlight row           

\ No newline at end of file
diff --git a/IIGS.601.SRC/Debugger/history.aii b/IIGS.601.SRC/Debugger/history.aii
new file mode 100644
index 0000000..fbcc568
--- /dev/null
+++ b/IIGS.601.SRC/Debugger/history.aii
@@ -0,0 +1 @@
+	include 'equates.i'

	MSB ON
	
;	EXPORT GetDec32
;	EXPORT GetHex32
	EXPORT HistEntrySize:equ	

PCLength	equ 3
InstLength	equ 8
RegLength	equ 17
HistEntrySize	equ PCLength+InstLength+RegLength

	
************************************************************
*
OpenHist	PROC EXPORT
*
* Open a history buffer and skip the first two bytes.
*
* Inputs:	
*	InputBuffer	input buffer
*	BUFLEN	length of input
*	y	current buf position
*
* Outputs:	
*	HistRef	reference # of open history file
*	HistCount	reset to zero
*	y	new buf position
*
* External Refs:
	IMPORT DosErr
	IMPORT DOSerr40
	IMPORT ERRCMD
	IMPORT HistRef
	IMPORT GetPath
	IMPORT pathname
	IMPORT DEBUG1
	IMPORT HistCount
*
* Entry State:
	longa off
	longi off
*
************************************************************

	lda HistRef	; Make sure that there isn't already
	ora HistRef+1	;  an open history.
	beq @ResetHist
	jmp ERRCMD
	
@ResetHist	stz HistCount	; Reset the history count.
	stz HistCount+1
	
	phk	; Set all of the addresses to the right
	pla	;  bank.
	sta @CreateListAddr+2
	sta @CreateList+2
	sta @OpenListAddr+2
	sta @OpenList+4
	sta @WriteListAddr+2
	sta @WriteList+4
	
	jsr GetPath	; Get the path.
	bcc @CreatePath
	jmp DOSerr40
	
@CreatePath	jsl MLI_16	; Remove the file.
	dc.w $0001
@CreateListAddr	dc.l @CreateList
	bcc @OpenPath
	cmp #$47	; duplicate?
	beq @OpenPath	; If so, ignore.
@Error	jmp DOSErr
	
@OpenPath	jsl MLI_16	; Open the file.
	dc.w $0010
@OpenListAddr	dc.l @OpenList
	bcs @Error
	
	lda @OpenList	; Save the reference number.
	sta HistRef
	sta @WriteList
	lda @OpenList+1
	sta HistRef+1
	sta @WriteList+1
	
	jsl MLI_16	; Skip the 1st two bytes.
	dc.w $0013	; write
@WriteListAddr	dc.l @WriteList
	bcs @Error
	
	jmp DEBUG1
	
@CreateList	dc.l pathname	;IN:  pathname
	dc.w $00C3	;IN:  access
	dc.w $0006	;IN:  filetype = bin
	dc.l $00000000	;IN:  auxtype
	dc.w $0001	;IN:  storage_type
	dc.w $0000	;IN:  create_date
	dc.w $0000	;IN:  create_time
	
@OpenList	dc.w $0000	;OUT: ref_num
	dc.l pathname	;IN:  pathname
	dc.l $00000000	;OUT: I/O buffer

@WriteList	dc.w $0000	;IN:  ref_num
	dc.l HistCount	;IN:  data_buffer
	dc.l $00000002	;IN:  request_count
	dc.l $00000000	;OUT: transfer_count
	
	
	
************************************************************
*
CloseHist	PROC EXPORT
*
* Call the routine to close a history file.
*
* Inputs:	
*	HistRef	open history ref #
*	HistCount	# of history steps
*
* Outputs:	
*	none
*
* External Refs:
	IMPORT DosErr
	IMPORT DEBUG1
	IMPORT DoCloseHist
*
* Entry State:
	longa off
	longi off
*
************************************************************

	jsr DoCloseHist
	bcs @Error

	jmp DEBUG1
	
@Error	jmp DOSErr


************************************************************
*
DoCloseHist	PROC EXPORT
*
* Write the history length to the open history file and
* close the file.
*
* Inputs:	
*	HistRef	open history ref #
*	HistCount	# of history steps
*
* Outputs:	
*	none
*
* External Refs:
	IMPORT DosErr
	IMPORT ERRCMD
	IMPORT HistRef
	IMPORT DEBUG1
	IMPORT HistCount
*
* Entry State:
	longa off
	longi off
*
************************************************************

	lda HistRef
	ora HistRef+1
	beq @Done

	phk	; Set all of the addresses to the right
	pla	;  bank.
	sta @SetListAddr+2
	sta @WriteListAddr+2
	sta @CloseListAddr+2
	sta @WriteList+4
	
	lda HistRef	; Set reference number.
	sta @SetMarkList
	sta @WriteList
	sta @CloseList
	lda HistRef+1
	sta @SetMarkList+1
	sta @WriteList+1
	sta @CloseList+1
	
	jsl MLI_16
	dc.w $0016	; set_mark
@SetListAddr	dc.l @SetMarkList
	bcs @Error
	
	jsl MLI_16
	dc.w $0013	; write
@WriteListAddr	dc.l @WriteList
	bcs @Error
	
	jsl MLI_16
	dc.w $0014	; close
@CloseListAddr	dc.l @CloseList
	bcs @Error
	
	stz HistRef	; Reset history reference number.
	stz HistRef+1
	
@Done	clc
	rts
	
@Error	sec
	rts

@SetMarkList	dc.w $0000	;IN:  ref_num
	dc.l $00000000	;IN:  position

@WriteList	dc.w $0000	;IN:  ref_num
	dc.l HistCount	;IN:  data_buffer
	dc.l $00000002	;IN:  request_count
	dc.l $00000000	;OUT: transfer_count
	
@CloseList	dc.w $0000	;IN:  ref_num

	
	
************************************************************
*
SaveHist	PROC EXPORT
*
* Save the current instruction and registers.
*
* Inputs:	
*	InputBuffer	input buffer
*	BUFLEN	length of input
*	y	current buf position
*
* Outputs:	
*	AL/AH/AB/T1	number
*	y	new buf position
*
* External Refs:
	IMPORT TOPC
	IMPORT HistRef
	IMPORT HistCount
	IMPORT DoCloseHist
	IMPORT MPSCAN
	IMPORT MP_H
*
* Entry State:
	longa off
	longi off
*
************************************************************

	lda PCH
	xba
	lda PCL
	ldx PCK
	ldy #MP_H
	jsr MPSCAN	;scan for MP_H (Trace Window)
	bcs @SaveHist1	;K/PC in an MP_H range
	bvc @SaveHist1
	
	rts

@SaveHist1	lda HistRef	; Make sure that there is an open
	ora HistRef+1	; history file.
	bne @SaveHist2
	rts
	
@SaveHist2	lda HistCount	; See if file is full.
	and HistCount+1
	cmp #$FF
	bne @SaveHist3
	brl @Error
	
@SaveHist3	phk	; Set all of the addresses to the right
	pla	;  bank.
	sta @WriteList1Addr+2
	sta @WriteList2Addr+2
	sta @WriteList3Addr+2
	sta @WriteList2+4

	rep #$30	; Set the direct page addresses.
	longa on
	longi on
	clc
	tdc
	adc #PCL
	sta @WriteList1+2
	clc
	tdc
	adc #AR
	sta @WriteList3+2	
	sep #$30
	longa off
	longi off

	lda HistRef	; Set reference number.
	sta @WriteList1
	sta @WriteList2
	sta @WriteList3
	lda HistRef+1
	sta @WriteList1+1
	sta @WriteList2+1
	sta @WriteList3+1

	jsl MLI_16	; Write the PC.
	dc.w $0013	; write
@WriteList1Addr	dc.l @WriteList1
	bcs @Error
	
	jsl MLI_16	; Write the instruction.
	dc.w $0013	; write
@WriteList2Addr	dc.l @WriteList2
	bcs @Error
	
	jsl MLI_16	; Write the registers.
	dc.w $0013	; write
@WriteList3Addr	dc.l @WriteList3
	bcs @Error
	
	inc HistCount
	bne @Done
	inc HistCount+1
		
@Done	rts	; All done.


; If an error occurs, close the file.
	
@Error	jmp DoCloseHist

@WriteList1	dc.w $0000	;IN:  ref_num
	dc.l $0000	;IN:  data_buffer
	dc.l PCLength	;IN:  request_count
	dc.l $00000000	;OUT: transfer_count
	
@WriteList2	dc.w $0000	;IN:  ref_num
	dc.l TOPC	;IN:  data_buffer
	dc.l InstLength	;IN:  request_count
	dc.l $00000000	;OUT: transfer_count
	
@WriteList3	dc.w $0000	;IN:  ref_num
	dc.l $0000	;IN:  data_buffer
	dc.l RegLength	;IN:  request_count
	dc.l $00000000	;OUT: transfer_count
	

************************************************************
*
ViewHist	PROC EXPORT
*
* View a history file.
*
* Inputs:	
*	InputBuffer	input buffer
*	BUFLEN	length of input
*	y	current buf position
*
* Outputs:	
*	AL/AH/AB/T1	number
*	y	new buf position
*
* External Refs:
	IMPORT HistCount
	IMPORT HistStep
	IMPORT HistRef
	IMPORT TLEN
	IMPORT TFMT
	IMPORT TOPC
	IMPORT DOSERR40
	IMPORT DOSERR
	IMPORT DEBUG1
	IMPORT CLEARDIS
	IMPORT ERRCMD
	IMPORT I_OPC
	IMPORT SETBASE
	IMPORT OUTPC
	IMPORT OUTREG
	IMPORT OUTSTACK
	IMPORT OUTOPC
	IMPORT ILINE
	IMPORT GETKEYMOD
	IMPORT SETBASE17
	IMPORT OUT
	IMPORT HEXTODEC
	IMPORT OUTHEX
	Import PATHNAME
	Import GetPath
	Import DoMult
	Import DoCloseHist
	Import DFDN
	Import DFUP
	Import ViewHistFlag
*
* Entry State:
	longa off
	longi off
*
************************************************************

	
	lda HistRef	; Can't view if history open.
	ora HistRef+1
	beq @ViewHist1
	jmp ERRCMD
	
@ViewHist1	phk	; Set all of the addresses to the right
	pla	;  bank.
	sta @OpenListAddr+2
	sta OpenList+4
	sta @RdCountListAddr+2
	sta RdCountList+4
	
	jsr GetPath	; Get the path.
	bcc @OpenPath
	jmp DOSerr40
	
@OpenPath	jsl MLI_16	; Open the file.
	dc.w $0010
@OpenListAddr	dc.l OpenList
	bcs @Error
	
	lda OpenList	; Save the reference number.
	sta HistRef
	sta RdCountList
	sta SetMarkList
	sta ReadList1
	sta ReadList2
	sta ReadList3
	lda OpenList+1
	sta HistRef+1
	sta SetMarkList+1
	sta RdCountList+1
	sta ReadList1+1
	sta ReadList2+1
	sta ReadList3+1
	
	jsl MLI_16	; Read the count.
	dc.w $0012	; read
@RdCountListAddr	dc.l RdCountList
	bcs @Error
	
	lda HistCount	; Make sure that there is history.
	ora HistCount+1
	bne @ViewHist2
	jsr DoCloseHist
	jmp Debug1
	
@Error	pha	; Save the error number.
	jsr DoCloseHist
	pla	; Restore the error number.
	jmp DOSERR
	
@ViewHist2	lda PCL	; Save state.
	pha
	lda PCH
	pha
	lda PCK
	pha
	lda AR
	pha
	lda AR+1
	pha
	lda XR
	pha
	lda XR+1
	pha
	lda YR
	pha
	lda YR+1
	pha
	lda PR
	pha
	lda SR
	pha
	lda SR+1
	pha
	lda SR+2
	pha
	lda eR
	pha
	lda DR
	pha
	lda DR+1
	pha
	lda DR+2
	pha
	lda BR
	pha
	lda MR
	pha
	lda QR
	pha
	
	jsr SETBASE17
	
	lda #$A0	; Clear the command line.
	ldy #79
@ClearLoop	jsr OUT
	dey
	bpl @ClearLoop
	
	ldy #0
@PrintLoop	lda StepMsg,y
	jsr OUT
	iny
	cpy #StepMsgLen
	bne @PrintLoop
	
	stz HistStep
	stz HistStep+1
	
NewScreen	jsr CLEARDIS
	
	ldx #R_OPC

@ListLoop	jsr ShowLine
	inx
	cpx #R_OPC+N_OPC
	blt @ListLoop

@StepLoop	ldx I_OPC
	jsr ShowLine
	jsr ShowStepNum

@KeyWait	jsr GETKEYMOD	; Get a key.
	bpl @KeyWait
	
	cmp #$9B	; Check for escape.
	beq @GoDone
	cmp #$8B	; Check for backwards.
	beq @Backward
	cmp #$8A	; Check for forwards.
	beq @Forward
	cmp #$88	; Check for backwards.
	beq @Bottom
	cmp #$95	; Check for forwards.
	beq @GoTop
	cmp #'0'
	blt @KeyWait
	cmp #'9'+1
	bge @KeyWait
	brl GetStep
	
@GoTop	brl @Top
	
@GoDone	brl Done
	
@Backward	lda >PB1
	bpl @Backward2
	brl @BackwardPage
	
@Backward2	lda HistStep	; Can we go backwards?
	ora HistStep+1
	beq @KeyWait	; Nope.
		
	sec	; Decrement the current step.
	lda HistStep
	sbc #1
	sta HistStep
	bcs @ScrollDown
	dec HistStep+1

@ScrollDown	jsr DFDN
	ldx #R_OPC
	jsr ShowLine
	bra @StepLoop
	
@Forward	lda >PB1
	bmi @ForwardPage
	
	lda HistStep
	sta T1
	lda HistStep+1
	sta T2
	inc HistStep
	bne @CkStep
	inc HistStep+1
	
@CkStep	lda HistStep
	cmp HistCount
	bne @ScrollUp
	lda HistStep+1
	cmp HistCount+1
	bne @ScrollUp
	lda T1
	sta HistStep
	lda T2
	sta HistStep+1
	brl @KeyWait
	
@ScrollUp	jsr DFUP
	ldx #R_OPC+N_OPC-1
	jsr ShowLine
	brl @StepLoop
	
@Bottom	stz HistStep
	stz HistStep+1
	brl NewScreen
	
@Top	sec
	lda HistCount
	sbc #1
	sta HistStep
	bcs @GoNewScreen
	dec HistStep+1
@GoNewScreen	brl NewScreen

	
@BackwardPage	sec
	lda I_OPC
	sbc #R_OPC
	sta T1
	sec	; Decrement the current step.
	lda HistStep
	sbc T1
	sta HistStep
	bcs @BackwardPage2
	dec HistStep+1
	bcc @Bottom
@BackwardPage2	brl NewScreen
	
@ForwardPage	sec
	lda I_OPC
	sbc #R_OPC
	clc
	adc HistStep
	sta HistStep
	bcc @ForwardPage2
	inc HistStep+1
	beq @Top
	
@ForwardPage2	lda HistStep+1
	cmp HistCount+1
	blt @ForwardPage4
	beq @ForwardPage3
	bra @Top
@ForwardPage3	lda HistStep
	cmp HistCount
	bge @Top

@ForwardPage4	brl NewScreen
	
Done	pla	; Restore the regs.
	sta QR
	pla
	sta MR
	pla
	sta BR
	pla
	sta DR+2
	pla
	sta DR+1
	pla
	sta DR
	pla
	sta eR
	pla
	sta SR+2
	pla
	sta SR+1
	pla
	sta SR
	pla
	sta PR
	pla
	sta YR+1
	pla
	sta YR
	pla
	sta XR+1
	pla
	sta XR
	pla
	sta AR+1
	pla
	sta AR
	pla
	sta PCK
	pla
	sta PCH
	pla
	sta PCL
	
	jsr DoCloseHist
	jmp DEBUG1


GetStep	pha	; Save the key press.

	lda HistStep	; Save the old step.
	sta OldHistStep
	lda HistStep+1
	sta OldHistStep+1
	
	pla	; Get the keypress
	and #$0F
	sta HistStep
	stz HistStep+1
	
	jsr ShowStepNum

@KeyWait	jsr GETKEYMOD	; Get a key.
	bpl @KeyWait

	cmp #$8D	; Check for backwards.
	beq @Done
	cmp #$9B	; Check for escape.
	beq @Restore
	cmp #'0'
	blt @KeyWait
	cmp #'9'+1
	bge @KeyWait
	
	pha	; Save the keypress.
	lda HistStep
	sta T3
	lda HistStep+1
	sta T4
	
	asl T3	; Multiply by 10.
	rol T4
	bcs @Done
	asl T3
	rol T4
	bcs @Done
	clc
	lda T3
	adc HistStep
	sta T3
	lda T4
	adc HistStep+1
	sta T4
	bcs @Done
	asl T3
	rol T4
	bcs @Done
	
	pla	; Get the keypress back.
	and #$0F	; Add the new digit.
	clc
	adc T3
	sta HistStep
	lda T4
	adc #0
	sta HistStep+1
	
	jsr ShowStepNum
	bra @KeyWait
	
@Restore	lda OldHistStep	; Restore the old step.
	sta HistStep
	lda OldHistStep+1
	sta HistStep+1
	brl NewScreen
	
	
@Done	lda HistStep+1	; Make sure that we have a valid
	cmp HistCount+1	;  step.
	blt @OK
	beq @CkLow
	bge @TooHigh
	
@OK	brl NewScreen
	
@CkLow	lda HistStep
	cmp HistCount
	blt @OK
	
@TooHigh	sec	; Set to last step.
	lda HistCount	
	sbc #1
	sta HistStep
	lda HistCount+1
	sbc #0
	sta HistStep+1
	brl NewScreen

ShowStepNum	lda HistStep	; Print the current step number.
	sta AL
	lda HistStep+1
	sta AH
	stz AB
	stz T1
	jsr HEXTODEC
	jsr SETBASE17
	ldy #5
	lda T4
	jsr OUTHEX
	lda T3
	jsr OUTHEX
	lda T2
	jmp OUTHEX


ShowLine	phk	; Set all of the addresses to the right
	pla	;  bank.
	sta @SetMarkListAddr+2
	sta @ReadList1Addr+2
	sta @ReadList2Addr+2
	sta @ReadList3Addr+2
	sta ReadList2+4
	

	rep #$30	; Set the direct page addresses.
	longa on
	longi on
	clc
	tdc
	adc #PCL
	sta ReadList1+2
	clc
	tdc
	adc #AR
	sta ReadList3+2	
	sep #$30
	longa off
	longi off

	jsr SETBASE
	
	cpx I_OPC
	bge @Below
	
	sec
	stx AL
	lda I_OPC
	sbc AL
	sta AL
	
	sec
	lda HistStep
	sbc AL
	sta AL
	lda HistStep+1
	sbc #0
	sta AH
	bcc @Done
	bra @ShowLine2
	
@Below	sec
	txa
	sbc I_OPC
	sta AL
	
	clc
	lda HistStep
	adc AL
	sta AL
	lda HistStep+1
	adc #0
	sta AH
	bcs @Done
	cmp HistCount+1
	beq @TestLow	
	bge @Done
	blt @ShowLine2
@TestLow	lda AL
	cmp HistCount
	blt @ShowLine2
	
@Done	rts
	
	
@ShowLine2	stz AB
	stz T1
	
	lda #HistEntrySize
	sta T3
	stz T4
	stz T5
	stz T6
	
	phx	; save the row
	
	jsr DoMult
	
	clc
	lda AL
	adc #2
	sta SetMarkList+2
	lda AH
	adc #0
	sta SetMarkList+3
	lda AB
	adc #0
	sta SetMarkList+4
	lda T1
	adc #0
	sta SetMarkList+5
	
	jsl MLI_16
	dc.w $0016	; set_mark
@SetMarkListAddr	dc.l SetMarkList
	bcs @Error
	
	jsl MLI_16	; Read the PC.
	dc.w $0012	; read
@ReadList1Addr	dc.l ReadList1
	bcs @Error
	
	jsl MLI_16	; Read the instruction.
	dc.w $0012	; read
@ReadList2Addr	dc.l ReadList2
	bcs @Error
	
	jsl MLI_16	; Read the registers.
	dc.w $0012	; read
@ReadList3Addr	dc.l ReadList3
	bcs @Error
		
	inc ViewHistFlag
	jsr OUTOPC	; Print the instruction.
	stz ViewHistFlag
	
	plx	; Get the row back.
	
	cpx I_OPC	; Check for current instruction.
	bne @NotCurrent

	phx	; Save the row.
	jsr ILINE
	
	jsr OUTREG	; Print the registers.
	jsr OUTPC	; Print the PC.

	plx	; Get the row back.
	
@NotCurrent	rts

@Error	pha
	jsr DoCloseHist
	pla
	jmp DOSERR
	
	


OpenList	dc.w $0000	;OUT: ref_num
	dc.l pathname	;IN:  pathname
	dc.l $00000000	;OUT: I/O buffer
	
RdCountList	dc.w $0000	;IN:  ref_num
	dc.l HistCount	;IN:  data_buffer
	dc.l $00000002	;IN:  request_count
	dc.l $00000000	;OUT: transfer_count
	
SetMarkList	dc.w $0000	;IN:  ref_num
	dc.l $00000000	;IN:  position

ReadList1	dc.w $0000	;IN:  ref_num
	dc.l $0000	;IN:  data_buffer
	dc.l PCLength	;IN:  request_count
	dc.l $00000000	;OUT: transfer_count
	
ReadList2	dc.w $0000	;IN:  ref_num
	dc.l TOPC	;IN:  data_buffer
	dc.l InstLength	;IN:  request_count
	dc.l $00000000	;OUT: transfer_count
	
ReadList3	dc.w $0000	;IN:  ref_num
	dc.l $0000	;IN:  data_buffer
	dc.l RegLength	;IN:  request_count
	dc.l $00000000	;OUT: transfer_count
	

OldHistStep	dc.w $0000

StepMsg 	dc.b 'STEP'	;step message
StepMsgLen	equ *-StepMsg

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/Debugger/makefile b/IIGS.601.SRC/Debugger/makefile
new file mode 100644
index 0000000..798ab23
--- /dev/null
+++ b/IIGS.601.SRC/Debugger/makefile
@@ -0,0 +1 @@
+#   File:       debug.init.make
#   Target:     debug.init
#   Sources:    debug.aii toolnames.aii dosnames.aii misc.aii history.aii
#   Created:    Friday, March 8, 1989

Objs =	debug.aii.obj ¶
		toolnames.aii.obj ¶
		dosnames.aii.obj ¶
		requestnames.aii.obj ¶
		history.aii.obj ¶
		misc.aii.obj

debug.init Ä SetSystem6True SetSystem61True {Objs}
		LinkIIGS {Objs} -t $B6 -o debug.init
		if {AutoDuplicate} == 1
			DuplicateIIGS -y -mac Debug.Init :
		End

debug.init.1.5 Ä SetSystem6False {Objs}
		LinkIIGS {Objs} -t $B6 -o debug.init
		if {AutoDuplicate} == 1
			DuplicateIIGS -y -mac Debug.Init :
		End

SetSystem6True ÄÄ
		set System6Stuff 1

SetSystem6False ÄÄ
		set System6Stuff 0

SetSystem61True ÄÄ
		set System61Stuff 1

SetSystem61False ÄÄ
		set System61Stuff 0

.aii.obj Ä .aii
		AsmIIGS -t -d ThisIsRam=1 -d SpongeBoy={System6Stuff} -d SpongeMan={System61Stuff} {default}.aii
\ No newline at end of file
diff --git a/IIGS.601.SRC/Debugger/misc.aii b/IIGS.601.SRC/Debugger/misc.aii
new file mode 100644
index 0000000..db5d5bc
--- /dev/null
+++ b/IIGS.601.SRC/Debugger/misc.aii
@@ -0,0 +1 @@
+;	include 'all.macros'
	include 'equates.i'

	MSB ON
	
	EXPORT GetDec32
	EXPORT GetHex32

************************************************************
*
GetHex32	PROC EXPORT
*
* Get a 32-bit hexadecimal number from the input buffer.
*
* Inputs:	
*	InputBuffer	input buffer
*	BUFLEN	length of input
*	y	current buf position
*
* Outputs:	
*	AL/AH/AB/T1	number
*	y	new buf position
*
* External Refs:
	IMPORT InputBuffer
	IMPORT BUFLEN
	IMPORT SkipSpace
	IMPORT DIGITCNT
	import UPSHIFT
*
* Entry State:
	longa off
	longi off
*
************************************************************

	stz AL	; zero the value
	stz AH
	stz AB
	stz T1
	
	jsr SkipSpace
	bcs @Error
	
; Do all of the digits.
	
@Loop	lda InputBuffer,y
	cmp #' '
	beq @Done
	
	cmp #'0'
	blt @Error
	cmp #'9'+1
	bge @CheckHex
	sec
	sbc #'0'
	bra @GotDigit

@CheckHex	jsr UPSHIFT
	cmp #'A'
	blt @Error
	cmp #'F'+1
	bge @Error
	sec
	sbc #'A'-10

@GotDigit	ldx #$04	; shift value left 4 bits
@ShiftLoop	asl AL
	rol AH
	rol AB
	rol T1
	dex
	bne @ShiftLoop
	
	ora AL	; or in the new digit
	sta AL
	
	inc DIGITCNT

	iny
	cpy BUFLEN	; Are there any more digits?
	blt @Loop
	
@Done	clc
	rts
	
@Error	sec
	rts



************************************************************
*
GetDec32	PROC EXPORT
*
* Get a 32-bit decimal number from the input buffer.
*
* Inputs:	
*	InputBuffer	input buffer
*	BUFLEN	length of input
*	y	current buf position
*
* Outputs:	
*	AL/AH/AB/T1	number
*	y	new buf position
*
* External Refs:
	IMPORT InputBuffer
	IMPORT BUFLEN
	IMPORT SkipSpace
	IMPORT DIGITCNT
*
* Entry State:
	longa off
	longi off
*
************************************************************

	stz AL	; zero the value
	stz AH
	stz AB
	stz T1
	
	jsr SkipSpace
	bcs @Error
	
; Do all of the digits.
	
@Loop	lda InputBuffer,y
	cmp #' '
	beq @Done
	
	cmp #'0'
	blt @Error
	cmp #'9'+1
	bge @Error
	sec
	sbc #'0'
	
	pha	; save the value of the digit

	lda T1	; save the current value
	pha
	lda AB
	pha
	lda AH
	pha
	lda AL
	
; Multiply the current value by 10.

	asl AL	; shift
	rol AH
	rol AB
	rol T1

	asl AL	; shift
	rol AH
	rol AB
	rol T1
	
	clc	; add
	adc AL
	sta AL
	pla
	adc AH
	sta AH
	pla
	adc AB
	sta AB
	pla
	adc T1
	sta T1
	
	asl AL	; shift
	rol AH
	rol AB
	rol T1
	
; Add in the new digit.

	clc
	pla
	adc AL
	sta AL
	bcc @Next
	inc AH
	bne @Next
	inc AB
	bne @Next
	inc T1
	
@Next	inc DIGITCNT

	iny
	cpy BUFLEN	; Are there any more digits?
	blt @Loop
	
@Done	clc
	rts
	
@Error	sec
	rts


	
	
SkipSpace	PROC EXPORT
	IMPORT InputBuffer
	IMPORT BUFLEN
	import START

	lda InputBuffer,y
	cmp #' '
	bne @Done
	iny
	cpy BUFLEN
	blt SkipSpace
	sec
	rts
@Done	clc
	rts

	EndP
	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/Debugger/requestnames.aii b/IIGS.601.SRC/Debugger/requestnames.aii
new file mode 100644
index 0000000..4d1491c
--- /dev/null
+++ b/IIGS.601.SRC/Debugger/requestnames.aii
@@ -0,0 +1 @@
+*******************************************************************************
*
* Copyright Apple Computer, Inc 1990-1993
* All Rights Reserved
*
*******************************************************************************

**********************************************************************
*
* RequestNames
*
* This file contains the procedure and data to convert a request code
* into a name.
*
* There are two procedures that are entry points in this file:
*
*     GetRequestName - Returns a pointer to a CString that is the 
*	name of the request specified.
*
*     GetRequestNumber - Returns a word that is the request number from
*   	the name of the request.
*
**********************************************************************
*
* REVISION HISTORY
*
* For GSBug 1.7dx (System 6.0.1)
*
* 27-Mar-93 JCM - Started this from toolnames.aii.
*
**********************************************************************

	import UnkStr
	import UnknownStr

	include 'dsect.macros'
	string C


	MACRO
	ToolCall &NameStr,&CallNumber
c&CallNumber	dc.b '&NameStr'
	MEND

****************************************************************
*
GetRequestName	PROC EXPORT
*
* Returns a pointer to the specified call name.
*
* The call is made as follows:
*
*	pha
*	pha
*	PushWord #RequestNumber
*	jsl GetRequestName
*	PullLong ThePointer
*
* Inputs:
*	space for long
*	RequestNumber : word
*
* Outputs:
*	carry = 1 iff request name is unknown
*	Pointer to CString
*
* External Refs:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

	DefineStack
OrigDirect	word
RTLAdr	block 3
RequestNumber	word
ResultPtr	long

	phd
	tsc
	tcd

	phb

	phk
	plb

	lda <RequestNumber	;look at group number in call number
	xba
	and #$00FF
	asl a
	cmp NamePointerTable
	bcs @noSuchRequest

	tax	;use 2 times request number to get pointer
	lda NamePointerTable+2,x ; to table of names for this request group
	sta <ResultPtr	; put result in ResultPtr

	lda RequestNumber	; now look at the low byte of the request number
	and #$00FF
	asl a	; use 2 times request number to see if request
	cmp (<ResultPtr)	; exists
	bcs @noSuchRequest

	tay	; use number to get pointer to name
	iny
	iny	;since we allow a group of zero
	lda (<ResultPtr),y

	clc	; Indicate request name found

@exitGetRequestName	sta <ResultPtr	; store in result ptr
	phk	; now put bank into result pointer
	phk
	pla
	and #$00FF
	sta <ResultPtr+2

	ldx <RTLAdr+1	; move rtl adr up 2 bytes
	stx <RTLAdr+1+2
	ldx <RTLAdr
	stx <RTLAdr+2

	plb	; restore dbr

	pld	; restore d-reg

	plx	; pull off word

	rtl	; fini

@noSuchRequest	lda #UnknownStr

	sec	;Indicate that no tool name found.

	bra @exitGetRequestName

********************************************************************************
*
* GetRequestNumber
*
* Usage:
*   	pha	;space for result
*   	pushlong #str	;input string
*   	jsl GetRequestNumber
*   	pla	;result (0 if not found)
*
********************************************************************************

	export GetRequestNumber
	import EqualString
GetRequestNumber
	DefineStack
OrigD	word
SectCounter	word
RequestCounter	word
Ptr	word
RTLAddress	block 3
StringPtr	long
ResultRequestNumber	word

	pha		;three words of locals
	pha
	pha

	phd
	tsc
	tcd

	phb

	phk
	plb

	stz <ResultRequestNumber 	;assume not found
	stz <SectCounter

@sectLoop	inc <SectCounter

	lda <SectCounter
	asl a		;for table index
	cmp NamePointerTable
	bge @exitGetRequestNumber	;we didn't find the string

	tax
	lda NamePointerTable,x
	sta <Ptr

	stz <RequestCounter

@callLoop	inc <RequestCounter

	lda <RequestCounter
	asl a
	cmp (<Ptr)
	bcs @sectLoop		;we're done with this table

	tay
	lda (<Ptr),y
	phk
	phk
	pha
	lda 3,s
	and #$00FF
	sta 3,s
	pei <StringPtr+2
	pei <StringPtr
	jsr EqualString
	bcc @callLoop

	lda <SectCounter
	dec a
	xba
	ora <RequestCounter
	dec a
	sta <ResultRequestNumber

@exitGetRequestNumber ldx <RTLAddress+1		;move rtl adr up 4 bytes
	stx <RTLAddress+1+4
	ldx <RTLAddress
	stx <RTLAddress+4

	plb

	pld

	plx		;pull off 3 locals
	plx
	plx

	plx		;pull off long string pointer
	plx

	rtl

;---------------------------------------------------------------------------------
;
; Name Pointer Table
;
; This table points to the table of pointers to names of calls in each request "group".
; For request codes in user-defined range, there is a bit of overloading on some requests.
; 
NamePointerTable
	dc.w EndNPT-NamePointerTable
	dc.w Group00
	dc.w Group01
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w Group05
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w Group0F
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w Group12
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w Group80
	dc.w GroupUnused
	dc.w Group82
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w GroupUnused
	dc.w Group90
EndNPT

* System-sent requests/sent-to system requests

	ToolCall systemSaysBeep,0001
	ToolCall systemSaysUnknownDisk,0002
	ToolCall srqGoAway,0003
	ToolCall srqGetrSoundSample,0004
	ToolCall srqSynchronize,0005
	ToolCall srqPlayrSoundSample,0006
	ToolCall systemSaysNewDeskMsg,0008
	ToolCall systemSaysDoClipboard,000C
	ToolCall systemSaysForceUndim,000D
	ToolCall systemSaysEjectingDev,000E 

* Finder-sent requests

	ToolCall finderSaysHello,0100
	ToolCall finderSaysGoodbye,0101
	ToolCall finderSaysSelectionChanged,0102
	ToolCall finderSaysMItemSelected,0103
	ToolCall finderSaysBeforeOpen,0104
	ToolCall finderSaysOpenFailed,0105
	ToolCall finderSaysBeforeCopy,0106
	ToolCall finderSaysIdle,0107
	ToolCall finderSaysExtrasChosen,0108
	ToolCall finderSaysBeforeRename,0109
	ToolCall finderSaysKeyHit,010A

* Desk Manager-sent requests

	ToolCall systemSaysDeskStartUp,0502
	ToolCall systemSaysDeskShutDown,0503
	ToolCall systemSaysFixedAppleMenu,051E

* Menu Manager-sent requests

	ToolCall systemSaysMenuKey,0F01

* QuickDraw Auxilliary-sent requests

	ToolCall systemSaysGetSysIcon,1201

* Requests accepted by Apple~EasyMount~

	ToolCall srqMountServer,18000	;1 for uniqueness

* Requests sent to Apple~Finder~

	ToolCall tellFinderGetDebugInfo,8000
	ToolCall askFinderAreYouThere,8001
	ToolCall tellFinderOpenWindow,8002
	ToolCall tellFinderCloseWindow,8003
	ToolCall tellFinderGetSelectedIcons,8004
	ToolCall tellFinderSetSelectedIcons,8005
	ToolCall tellFinderLaunchThis,8006
	ToolCall tellFinderShutDown,8007
	ToolCall tellFinderMItemSelected,8008
	ToolCall tellFinderMatchFileToIcon,800A
	ToolCall tellFinderAddBundle,800B
	ToolCall tellFinderAboutChange,800C
	ToolCall tellFinderCheckDatabase,800D
	ToolCall tellFinderColorSelection,800E
	ToolCall tellFinderAddToExtras,800F
	ToolCall askFinderIdleHowLong,8011
	ToolCall tellFinderGetWindowIcons,8012
	ToolCall tellFinderGetWindowInfo,8013
	ToolCall tellFinderRemoveFromExtras,8014
	ToolCall tellFinderSpecialPreferences,8015

* Requests accepted by Apple~SoundCP~

	ToolCall srqConvertRelPitch,8200

* Requests accepted by Apple~Control Panel~

	ToolCall cpOpenCDev,9000
	ToolCall cpOpenControlPanels,9001

Group00	dc.w Group00End-Group00
	dc.w UnkStr
	dc.w c0001		;systemSaysBeep
	dc.w c0002		;systemSaysUnknownDisk
	dc.w c0003		;srqGoAway
	dc.w c0004		;srqGetrSoundSample
	dc.w c0005		;srqSynchronize
	dc.w c0006		;srqPlayrSoundSample
	dc.w UnkStr		
	dc.w c0008		;systemSaysNewDeskMsg
	dc.w UnkStr		
	dc.w UnkStr		
	dc.w UnkStr
	dc.w c000C		;systemSaysDoClipboard
	dc.w c000D		;systemSaysForceUndim
	dc.w c000E		;systemSaysEjectingDev
Group00End

Group01	dc.w Group01End-Group01
   	dc.w c0100		;finderSaysHello
	dc.w c0101		;finderSaysGoodbye
	dc.w c0102		;finderSaysSelectionChanged
	dc.w c0103		;finderSaysMItemSelected
	dc.w c0104		;finderSaysBeforeOpen
	dc.w c0105		;finderSaysOpenFailed
	dc.w c0106		;finderSaysBeforeCopy
	dc.w c0107 		;finderSaysIdle
	dc.w c0108 		;finderSaysExtrasChosen
	dc.w c0109 		;finderSaysBeforeRename
	dc.w c010A 		;finderSaysKeyHit
Group01End

Group05	dc.w Group05End-Group05
   	dc.w UnkStr
	dc.w UnkStr
	dc.w c0502		;systemSaysDeskStartUp
	dc.w c0503		;systemSaysDeskShutDown
	dc.w UnkStr
	dc.w UnkStr
	dc.w UnkStr
	dc.w UnkStr
	dc.w UnkStr
	dc.w UnkStr
	dc.w UnkStr
	dc.w UnkStr
	dc.w UnkStr
	dc.w UnkStr
	dc.w UnkStr
	dc.w UnkStr
	dc.w UnkStr
	dc.w UnkStr
	dc.w UnkStr
	dc.w UnkStr
	dc.w UnkStr
	dc.w UnkStr
	dc.w UnkStr
	dc.w UnkStr
	dc.w UnkStr
	dc.w UnkStr
	dc.w UnkStr
	dc.w UnkStr
	dc.w UnkStr
	dc.w UnkStr
	dc.w c051E		;systemSaysFixedAppleMenu
Group05End

Group0F	dc.w Group0FEnd-Group0F
	dc.w UnkStr
	dc.w c0F01		;systemSaysMenuKey
Group0FEnd

Group12	dc.w Group12End-Group12
   	dc.w UnkStr
	dc.w c1201		;systemSaysGetSysIcon
Group12End

Group80	dc.w Group80End-Group80
   	dc.w c8000		;tellFinderGetDebugInfo
	dc.w c8001		;askFinderAreYouThere
   	dc.w c8002		;tellFinderOpenWindow
   	dc.w c8003		;tellFinderCloseWindow
   	dc.w c8004		;tellFinderGetSelectedIcons
   	dc.w c8005		;tellFinderSetSelectedIcons
   	dc.w c8006		;tellFinderLaunchThis
   	dc.w c8007		;tellFinderShutDown
   	dc.w c8008		;tellFinderMItemSelected
	dc.w UnkStr
   	dc.w c800A		;tellFinderMatchFileToIcon
   	dc.w c800B		;tellFinderAddBundle
   	dc.w c800C		;tellFinderAboutChange
   	dc.w c800D		;tellFinderCheckDatabase
   	dc.w c800E		;tellFinderColorSelection
   	dc.w c800F		;tellFinderAddToExtras
   	dc.w UnkStr
   	dc.w c8011		;askFinderIdleHowLong
   	dc.w c8012		;tellFinderGetWindowIcons
   	dc.w c8013		;tellFinderGetWindowInfo
   	dc.w c8014		;tellFinderRemoveFromExtras
   	dc.w c8015		;tellFinderSpecialPreferences
Group80End

Group82	dc.w Group82End-Group82
	dc.w c8200		;srqConvertRelPitch
Group82End

Group90	dc.w Group90End-Group90
   	dc.w c9000		;cpOpenCDev
	dc.w c9001		;cpOpenControlPanels
Group90End

GroupUnused  	dc.w GroupUnusedEnd-GroupUnused
GroupUnusedEnd


RequestTargets	
AppleFinder	dc.b 'Apple~Finder~'
AppleControlPanel	dc.b 'Apple~Control Panel~'
AppleSoundCP	dc.b 'Apple~SoundCP~'
AppleEasyMount	dc.b 'Apple~EasyMount~'
	
	ENDP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/Debugger/saverest.macros b/IIGS.601.SRC/Debugger/saverest.macros
new file mode 100644
index 0000000..0313427
--- /dev/null
+++ b/IIGS.601.SRC/Debugger/saverest.macros
@@ -0,0 +1 @@
+;
;     SaveReg -- save user registers into table
;
;      Saves:  e, P, B, D, S, A, X, Y, M and Q
;     (uses three bytes of user's stack)
;

	MACRO
	SaveReg
	
	phb	;save user data bank
	php	;save P
	phk	;set to debug bank
	plb	;set it

	stz InRT	; No longer in real-time.

	sta AT	;save low A (and high if e,m=0)

	sep #$20	;LONGA OFF (needed if e,m=0)
	longa off

	pla	;P in low A
	sta PT

	clc
	xce	;native (user e into carry)
	cld
	cli	;enable interrupts

	sep #$20	;LONGA OFF
	longa off

	xba
	sta AT+1

	pla
	sta BT

	rep #$30	;LONGA/I ON
	longa on
	longi on

	stx XT
	sty YT

	tdc
	sta DT
	tsc
	sta ST

	lda xDEBUG_D
	tcd	;set D and S
	lda xDEBUG_S	; back to
	tcs	;  Debug D and S

	sep #$30	;LONGA/I OFF
	longa off
	longi off

	lda #0
	ror a	;e into MSB
	sta eT

	lda >ALTCHR
	sta CT
	sta >SETALTCHR

	lda >MSTATE
	sta MT

	lda >CYA
	asl a	;speed in c
	php
	lda >SHADOW
	asl a
	plp
	ror a
	and #$DE	;strip off text shadow bit
	ora shadowT	;virtual text shadow
	sta QT	;for display
	and #$5F	;strip off speed
	bit TEXTMODE
	bpl *+4	;screen off
	ora #1	;screen on -- disable
	sta >SHADOW	; text shadowing

	lda >CYA
	ora #$80
	sta >CYA	;go fast
	
	MEND




;
;  RestoreReg -- restore user registers from table
;
;    Restored:  e, P, B, D, S, A, X, Y, M and Q
;

	MACRO
	RestoreReg

	lda #1
	bit eT
	bmi @emulation	;emulation
	lda ST+1	;native
@emulation	xba
	lda ST
	tcs	;use his stack

	lda >P2STATE	;p2 clr/set by trace
	bpl *+9
	lda MT	;user MSTATE
	ora #$40	;setp2
	bra *+7
	lda MT
	and #$BF
	sta >MSTATE

	lda QT
	asl a	;speed in c
	php
	lda >CYA
	asl a
	plp
	ror a
	and #$9F
	sta >CYA

	lda QT
	and #1
	sta shadowT	;virtual text shadow
	lda QT
	and #$5F	;strip off speed
	bit TEXTMODE
	bpl *+4	;debug screen off
	ora #1	;disable text shadowing
	sta >SHADOW

	bit CT
	bmi *+6
	sta >CLRALTCHR

	lda eT
	asl a	;e into carry
	lda PT
	xba
	lda BT

	rep #$30	;LONGA/I ON
	longa on
	longi on

	pha	;save PT and BT
	lda DT
	tcd
	ldy YT
	ldx XT
	lda AT

	sei
	plb
	bcc *+11	;e=0
	plp	;restore P
	bcc *+5	;c=0
	sec	;c=1
	bra *+9
	sec
	bra *+11
	plp
	bcc *+7
	clc
	xce
	sec
	bra *+5
	clc
	xce
	clc
	
	MEND
\ No newline at end of file
diff --git a/IIGS.601.SRC/Debugger/templateTest b/IIGS.601.SRC/Debugger/templateTest
new file mode 100644
index 0000000..9650a48
--- /dev/null
+++ b/IIGS.601.SRC/Debugger/templateTest
@@ -0,0 +1 @@
+_START marry
Fred word
Wally Long
_END
 
\ No newline at end of file
diff --git a/IIGS.601.SRC/Debugger/to do b/IIGS.601.SRC/Debugger/to do
new file mode 100644
index 0000000..e1687f5
--- /dev/null
+++ b/IIGS.601.SRC/Debugger/to do	
@@ -0,0 +1 @@
+Various notes and enhancement requests for GSBug.
(Most of the useful or organized ones are in Radar.)

Access to real text screen while stepping.  (Swihart)
"stick" command
counted breakpoints on weird instructions--not implemented
The Dump Help is inaccessible?
Use tool-dispatch-patch convention
Support User tool breaks?
"Handle" template partially implemented?
Unload should just beep under P8
Unload: UserShutDown self?
Document "\" for changing display modes
See if DebugOn flag is working right, for preventing re-entering while we're in.
Stepping past breaks should be nice & easy
Hold down Shift while tracing, and it draws an inverse line below the MP area
Resume command should not make you step over the breakpoint.
Save/restore the 1K being used in bank 0 (or is it already being saved?)
Add E10200..0240 to the default MP list.
Make SetOSBrk #0 do something useful
Ignore re-entrant breaks??
GSBug tool calls to take breakpoints in/out and set/return BP information

---
GSBug: "stick" command
GSBug: MyHandle and MyID (fiddle with ID on a tool call)
GSBug Nth-break on LDA #$7fff???
The Dump Help is inaccessible?
GSBug: Document */System/System.Setup/GSBug.Setup auto-loads
LoadTemp with no pathname--error $A0
Play with templates

GSBug:  stutter-step on SPACE hitting an RTS
Xing a JSR in $E0 RAM came back with ROM on!

Tool call table up to date
GS/OS call name table up to date
Set OS breaks by name!

Use tool-dispatch-patch convention
Support User tool breaks?
Step 8-bit stuff

Set 01/0100 to $80?

Init version takes exactly 64K to avoid mucking up memory use.
pseudo-Tool calls for set/clear breakpoint
(Fixed) dead in the water with EM and IntSource
Make MEM locations labelable (save in CONFIG file)
Main help screen:  "set" at top-right line
The Init version doesn't auto-load config file
auto-load Templates?
(Fixed?) STA >$E0C030 stomps on C031 too!

Handle template partially implemented?
Nobody calls AltLoadTemp?
E100b0--show OS call names
Cheryl--B register changes on Xing a JSR sometimes?

Install notify procedure so OS breaks come back.
Unload just beeps under P8
Unload: UserShutDown self?
"D" command should parse more carefully
Document "\" for changing display modes

---
\ No newline at end of file
diff --git a/IIGS.601.SRC/Debugger/toolnames.aii b/IIGS.601.SRC/Debugger/toolnames.aii
new file mode 100644
index 0000000..df15adc
--- /dev/null
+++ b/IIGS.601.SRC/Debugger/toolnames.aii
@@ -0,0 +1 @@
+*******************************************************************************
*
* Copyright Apple Computer, Inc 1990-1993
* All Rights Reserved
*
*******************************************************************************

**********************************************************************
*
* ToolNames
*
* This file contains the procedure and data to convert a call number
* into a name
*
* There are two procedures that are entry points in this file:
*
*     GetToolName	returns a pointer to a CString that is the 
*	name of the call specified.
*
*     GetToolNumber returns a word that is the tool number from
*   	the name of the tool
*
**********************************************************************
*
* REVISION HISTORY
*
* 29-Aug-90 (am) David A. Lyons
*   Updating for 5.0.3.  Search for "DAL" comments for changes.
*   Commented out all the "unknown" entries & changed their
*   pointers to point to a *single* "Unknown" string, instead
*   of having a gazillion copies of it (saved 114x8 = 912 bytes).
*
* 29-Aug-90 (pm) David A. Lyons
*   Added MidiSynth names and Debugger names.
*   Added functions number 0 = names of the tool sets
*     (for example, 0002=Memory Manager).
*   Added SANE calls (there weren't any here).
*
* 2-Nov-90 Dave Lyons
*   Added $0BFF _DebugSetHook and $0CFF DebugGetInfo.
*
* 8-Feb-91 Dave Lyons
*   Added SpongeBoy call names, conditional on SpongeBoy variable.
*
* 15-Feb-91 DAL
*   Added WhooshRect; removed GetScanlineAddr.
*
* 19-Feb-91 DAL
*   Added GetDeskGlobal.
*
* 3-Mar-91 DAL
*   Remove NewPort, KillPort from QDAux.
*   Add CompareStrings to List Manager.
*   Add StringToText to MiscTools.
*
* 12-Apr-91 DAL
*   Add ResizeInfoBar and HandleDiskInsert to Window Manager.
*
* 3-Jul-91 DAL
*   Add "RM" to resource-name calls.
*
* 1-Dec-91 DAL
*   Fixed MIDISynth call names.
*
* 2-Dec-91 DAL
*   Fixed name of GetDeskAccInfo.
*
**********************************************************************
*
* For GSBug 1.7dx (System 6.0.1)
*
* 9-Mar-92 DAL
*   Added DrawStringWidth and UpdateWindow calls.
*
* 20-Mar-92 DAL
*   Added IsSpecialLEKey.
*
* 30-Mar-92 DAL
*   Change IsSpecialLEKey to LEClassifyKey.
*
* 15-Jul-92 DAL
*   Add OpenResFileByID, GetCtlValueByID, SetCtlValueByID,
*   InvalOneCtlByID, HiliteCtlByID.
*
* 20-Aug-92 DAL
*   Add ShowClipboard, AlertMessage, DoSysPrefs.
*
* 12-Feb-93 DAL
*   Add CompactResourceFile.
*
* 28-Mar-93 JCM
*   Add UseColorTable, RestoreColorTable
*
* 17-May-93 JCM
*   Add DebugControl ($0DFF) and DebugQuery($0EFF).
*
**********************************************************************

	include 'dsect.macros'
	string C


	MACRO
	ToolCall &NameStr,&CallNumber
c&CallNumber	dc.b '&NameStr'
	MEND


****************************************************************
*
GetToolName	PROC EXPORT
*
* Returns a pointer to the specified call name.
*
* The call is made as follows:
*
*	pha
*	pha
*	PushWord #CallNumber
*	jsl GetName
*	PullLong ThePointer
*
* Inputs:
*	space for long
*	CallNumber : word
*
* Outputs:
*	carry = 1 iff tool name is unknown
*	Pointer to CString
*
* External Refs:
*	none
*
* Entry Points:
	EXPORT GetToolNumber
	export EqualString	;11-Oct-90 DAL
*
	longa on	; mode
	longi on
*
****************************************************************

	DefineStack
OrigDirect	word
RTLAdr	block 3
CallNumber	word
ResultPtr	long



	phd	; save d-reg
	tsc	; stack becomes d-page
	tcd
	phb	; save dbr
	phk	; dbr is code bank
	plb

	lda CallNumber	; look at tool number in call number
	and #$00FF
	beq NoSuchTool

	cmp #$00FF	; DAL  Is it the Debugger toolset?
	bne @notDebugger	; DAL

	lda #EndNPT-NamePointerTable	;DAL use entry past end of table
	bra @gotOffset		;DAL

@notDebugger

	asl a
	cmp NamePointerTable
	bcs NoSuchTool

@gotOffset	tax	; use 2 times call number to get pointer
	lda NamePointerTable,x ; to table of names for this tool
	sta ResultPtr	; put result in ResultPtr

	lda CallNumber+1	; now look at func number in call number
	and #$00FF
;	beq NoSuchTool	; 29-Aug-90 DAL func 0 now = tool set name
	inc a	; 29-Aug-90 DAL
	asl a	; use 2 times call number to see if funct
	cmp (ResultPtr)	; exists
	bcs NoSuchFunction

	tay	; use number to get pointer to name
	lda (ResultPtr),y
	sta ResultPtr	; store in result ptr

	phk	; now put bank into result pointer
	phk
	pla
	and #$00FF
	sta ResultPtr+2

	clc	; Indicate tool name found.

AllDone

	ldx RTLAdr+1	; move rtl adr up 2 bytes
	stx RTLAdr+1+2
	ldx RTLAdr
	stx RTLAdr+2

	plb	; restore dbr
	pld	; restore d-reg
	plx	; pull off word
	rtl	; fini


NoSuchTool	
NoSuchFunction	lda #UnknownStr
	sta ResultPtr
;	lda #^UnknownStr
	phk	;replaced lda with these 4
	phk	;lines to make bank-independent
	pla	;DAL 29-Aug-90
	and #$00ff	;
	sta ResultPtr+2

	sec	;Indicate that no tool name found.
	bra AllDone



GetToolNumber
	DefineStack
OrigD	word
ToolCounter	word
FuncCounter	word
Ptr	word
RTLAddress	block 3
StringPtr	long
ResultCallNumber	word

	pha	; three words of locals
	pha
	pha
	phd	; save d-reg
	tsc	; stack becomes d-page
	tcd
	phb	; save dbr
	phk	; dbr is code bank
	plb

	stz ResultCallNumber ; assume not found
	stz ToolCounter

ToolLoop	inc ToolCounter
	lda toolCounter
	asl a
	cmp NamePointerTable
	beq @ok		;DAL 29-Aug-90 (for Debugger toolset)
	bcs NotFound
@ok
	tax
	lda NamePointerTable,x
	sta Ptr

	stz FuncCounter
FuncLoop	inc FuncCounter
	
	lda FuncCounter
	asl a
	cmp (Ptr)
	bcs ToolLoop

	tay
	lda (Ptr),y
	phk
	phk
	pha
	lda 3,s
	and #$00FF
	sta 3,s
	pei StringPtr+2
	pei StringPtr
	jsr EqualString
	bcc FuncLoop

; if the ToolCounter is past the end of the table, make it be $FF (the Debugger tool set)

	lda ToolCounter		;DAL 29-Aug-90
	cmp #(EndNPT-NamePointerTable)/2	;DAL
	bne @noFF		;DAL
	lda #$00FF		;DAL
	sta ToolCounter		;DAL
@noFF			;DAL
	lda FuncCounter
	dec a		;DAL 29-Aug-90 (zero = tool set name)
	xba
	ora ToolCounter
	sta ResultCallNumber

NotFound

	ldx RTLAddress+1	; move rtl adr up 4 bytes
	stx RTLAddress+1+4
	ldx RTLAddress
	stx RTLAddress+4

	plb	; restore dbr
	pld	; restore d-reg
	plx	; pull off 3 locals
	plx
	plx
	plx	; pull off long
	plx
	rtl	; fini



;-----------------------------------------------------------
;
; EqualString
;
; Inputs 
;     PtrStr1
;     PtrStr2
; Output
;     Carry  clear if not equal
;     Set if equal.
;

EqualString
	DefineStack
temp	word
TheDReg	word
RTSAdr	word
InputString	long
TableString	long

	phd
	phd
	tsc
	tcd

	sep #$30
	longa off
	longi off
	ldy #0
@Loop	lda [TableString],y
	cmp #'a'
	bcc @NotLower
	cmp #'z'+1
	bcs @NotLower
	and #$df	;DAL 29-Aug-90 (was sec, sbc #$20)
@NotLower
	sta temp
	lda [InputString],y
	and #$7F
	cmp #'a'
	bcc @NotLower2
	cmp #'z'+1
	bcs @NotLower2
	and #$df	;DAL 29-Aug-90 (was sec, sbc #$20)
@NotLower2
	cmp temp
	bne @NotEqual

	tax	;DAL 29-Aug-90 (was cmp #0)
	beq @Equal

	iny
	bra @Loop

@NotEqual	clc
	bra @Done

@Equal	sec
@Done	rep #$30
	longa on
	longi on

	pld
	pld
	ply
	plx
	plx
	plx
	plx
	phy
	rts



;-----------------------------------------------------------
;
; Name Pointer Table
;
; This table points to the table of pointers to names
; of calls in each tool. 
; 
NamePointerTable
    dc.w EndNPT-NamePointerTable
    dc.w Tool01	;Tool Locator
    dc.w Tool02	;Memory Manager
    dc.w Tool03	;Misc Tools
    dc.w Tool04	;QuickDraw II
    dc.w Tool05	;Desk Manager
    dc.w Tool06	;Event Manager
    dc.w Tool07	;Scheduler
    dc.w Tool08	;Sound Tools
    dc.w Tool09	;ADB
    dc.w Tool0A	;SANE
    dc.w Tool0B	;Integer Math
    dc.w Tool0C	;Text Tools
    dc.w Tool0D	;RAMDisk tool
    dc.w Tool0E	;Window Mgr
    dc.w Tool0F	;Menu Mgr
    dc.w Tool10	;Control Mgr
    dc.w Tool11	;Loader
    dc.w Tool12	;QuickDraw Aux
    dc.w Tool13	;Print Manager
    dc.w Tool14	;Line Edit
    dc.w Tool15	;Dialog Manager
    dc.w Tool16	;Scrap Manager
    dc.w Tool17	;Standard File
    dc.w Tool18	;unused
    dc.w Tool19	;Note Synth
    dc.w Tool1A	;Note Seq
    dc.w Tool1B	;Font Mgr
    dc.w Tool1C	;List Mgr
    dc.w Tool1D	;ACE
    dc.w Tool1E	;Resource Mgr
    dc.w Tool1F	;unused
    dc.w Tool20	;MIDI
    dc.w Tool21	;Video Overlay
    dc.w Tool22	;Text Edit
    dc.w Tool23	;MIDI Synth
    if SpongeBoy then	;added 8-Feb-91 DAL
    dc.w Tool24	;unused
    dc.w Tool25	;Animation
    dc.w Tool26	;Media Control
    endif
EndNPT	;the pointer to the Debugger tools must come next
    dc.w ToolFF	;DAL Special case--tool FF is the debugger

   ToolCall Tool Locator,0001	;added DAL 29-Aug-90
   ToolCall TLBootInit,0101
   ToolCall TLStartUp,0201
   ToolCall TLShutDown,0301
   ToolCall TLVersion,0401
   ToolCall TLReset,0501
   ToolCall TLStatus,0601
;   ToolCall Unknown,0701
;   ToolCall Unknown,0801
   ToolCall GetTSPtr,0901
   ToolCall SetTSPtr,0A01
   ToolCall GetFuncPtr,0B01
   ToolCall GetWAP,0C01
   ToolCall SetWAP,0D01
   ToolCall LoadTools,0E01
   ToolCall LoadOneTool,0F01
   ToolCall UnloadOneTool,1001
   ToolCall TLMountVolume,1101
   ToolCall TLTextMountVolume,1201
   ToolCall SaveTextState,1301
   ToolCall RestoreTextState,1401
   ToolCall MessageCenter,1501
   ToolCall SetDefaultTPT,1601
   ToolCall MessageByName,1701
   ToolCall StartUpTools,1801
   ToolCall ShutDownTools,1901
   if SpongeBoy then	;added 8-Feb-91 DAL
   ToolCall GetMsgHandle,1A01
   ToolCall AcceptRequests,1B01
   ToolCall SendRequest,1C01   
   endif
   
   ToolCall Memory Manager,0002	;added DAL 29-Aug-90
   ToolCall MMBootInit,0102
   ToolCall MMStartUp,0202
   ToolCall MMShutDown,0302
   ToolCall MMVersion,0402
   ToolCall MMReset,0502
   ToolCall MMStatus,0602
;   ToolCall Unknown,0702
;   ToolCall Unknown,0802
   ToolCall NewHandle,0902
   ToolCall ReallocHandle,0A02
   ToolCall RestoreHandle,0B02
   ToolCall AddToOOMQueue,0C02
   ToolCall RemoveFromOOMQueue,0D02	;was "DeleteFromOOMQueue" 29-Aug-90 DAL
;   ToolCall Unknown,0E02
;   ToolCall Unknown,0F02
   ToolCall DisposeHandle,1002
   ToolCall DisposeAll,1102
   ToolCall PurgeHandle,1202
   ToolCall PurgeAll,1302
;   ToolCall Unknown,1402
;   ToolCall Unknown,1502
;   ToolCall Unknown,1602
;   ToolCall Unknown,1702
   ToolCall GetHandleSize,1802
   ToolCall SetHandleSize,1902
   ToolCall FindHandle,1A02
   ToolCall FreeMem,1B02
   ToolCall MaxBlock,1C02
   ToolCall TotalMem,1D02
   ToolCall CheckHandle,1E02
   ToolCall CompactMem,1F02
   ToolCall HLock,2002
   ToolCall HLockAll,2102
   ToolCall HUnlock,2202
   ToolCall HUnlockAll,2302
   ToolCall SetPurge,2402
   ToolCall SetPurgeAll,2502
;   ToolCall Unknown,2602
;   ToolCall Unknown,2702
   ToolCall PtrToHand,2802
   ToolCall HandToPtr,2902
   ToolCall HandToHand,2A02
   ToolCall BlockMove,2B02
;   ToolCall Unknown,2C02
;   ToolCall Unknown,2D02
;   ToolCall Unknown,2E02
   ToolCall RealFreeMem,2F02
   if SpongeBoy then	;added 8-Feb-91 DAL
   ToolCall SetHandleID,3002
   endif


   ToolCall Misc Tools,0003	;added DAL 29-Aug-90
   ToolCall MTBootInit,0103
   ToolCall MTStartUp,0203
   ToolCall MTShutDown,0303
   ToolCall MTVersion,0403
   ToolCall MTReset,0503
   ToolCall MTStatus,0603
;   ToolCall Unknown,0703
;   ToolCall Unknown,0803
   ToolCall WriteBRam,0903
   ToolCall ReadBRam,0A03
   ToolCall WriteBParam,0B03
   ToolCall ReadBParam,0C03
   ToolCall ReadTimeHex,0D03
   ToolCall WriteTimeHex,0E03
   ToolCall ReadAsciiTime,0F03
   ToolCall SetVector,1003
   ToolCall GetVector,1103
   ToolCall SetHeartBeat,1203
   ToolCall DelHeartBeat,1303
   ToolCall ClrHeartBeat,1403
   ToolCall SysFailMgr,1503
   ToolCall GetAddr,1603
   ToolCall ReadMouse,1703
   ToolCall InitMouse,1803
   ToolCall SetMouse,1903
   ToolCall HomeMouse,1A03
   ToolCall ClearMouse,1B03
   ToolCall ClampMouse,1C03
   ToolCall GetMouseClamp,1D03
   ToolCall PosMouse,1E03
   ToolCall ServeMouse,1F03
   ToolCall GetNewID,2003
   ToolCall DeleteID,2103
   ToolCall StatusID,2203
   ToolCall IntSource,2303
   ToolCall FWEntry,2403
   ToolCall GetTick,2503
   ToolCall PackBytes,2603
   ToolCall UnPackBytes,2703
   ToolCall Munger,2803
   ToolCall GetIRQEnable,2903
   ToolCall SetAbsClamp,2A03
   ToolCall GetAbsClamp,2B03
   ToolCall SysBeep,2C03
;   ToolCall Unknown,2D03
   ToolCall AddToQueue,2E03
   ToolCall DeleteFromQueue,2F03
   ToolCall SetInterruptState,3003
   ToolCall GetInterruptState,3103
   ToolCall GetIntStateRecSize,3203
   ToolCall ReadMouse2,3303
   ToolCall GetCodeResConverter,3403
   ToolCall GetRomResource,3503
   ToolCall ReleaseRomResource,3603	;added 29-Aug-90 DAL
   ToolCall ConvSeconds,3703	;added 29-Aug-90 DAL (for 5.0.3)
   if SpongeBoy then	;added 8-Feb-91 DAL
   ToolCall SysBeep2,3803
   ToolCall VersionString,3903
   ToolCall WaitUntil,3A03
   ToolCall StringToText,3B03	;added 3-Mar-91 DAL
   ToolCall ShowBootInfo,3C03	;added 30-Mar-91 DAL
   ToolCall ScanDevices,3D03	;added 30-Mar-91 DAL
   endif
   if SpongeMan then
   ToolCall AlertMessage,3E03	;added 20-Aug-92 DAL
   ToolCall DoSysPrefs,3F03	;added 20-Aug-92 DAL
   endif

   ToolCall QuickDraw,0004	;added DAL 29-Aug-90
   ToolCall QDBootInit,0104
   ToolCall QDStartUp,0204
   ToolCall QDShutDown,0304
   ToolCall QDVersion,0404
   ToolCall QDReset,0504
   ToolCall QDStatus,0604
;   ToolCall Unknown,0704
;   ToolCall Unknown,0804
   ToolCall GetAddress,0904
   ToolCall GrafOn,0A04
   ToolCall GrafOff,0B04
   ToolCall GetStandardSCB,0C04
   ToolCall InitColorTable,0D04
   ToolCall SetColorTable,0E04
   ToolCall GetColorTable,0F04
   ToolCall SetColorEntry,1004
   ToolCall GetColorEntry,1104
   ToolCall SetSCB,1204
   ToolCall GetSCB,1304
   ToolCall SetAllSCBs,1404
   ToolCall ClearScreen,1504
   ToolCall SetMasterSCB,1604
   ToolCall GetMasterSCB,1704
   ToolCall OpenPort,1804
   ToolCall InitPort,1904
   ToolCall ClosePort,1A04
   ToolCall SetPort,1B04
   ToolCall GetPort,1C04
   ToolCall SetPortLoc,1D04
   ToolCall GetPortLoc,1E04
   ToolCall SetPortRect,1F04
   ToolCall GetPortRect,2004
   ToolCall SetPortSize,2104
   ToolCall MovePortTo,2204
   ToolCall SetOrigin,2304
   ToolCall SetClip,2404
   ToolCall GetClip,2504
   ToolCall ClipRect,2604
   ToolCall HidePen,2704
   ToolCall ShowPen,2804
   ToolCall GetPen,2904
   ToolCall SetPenState,2A04
   ToolCall GetPenState,2B04
   ToolCall SetPenSize,2C04
   ToolCall GetPenSize,2D04
   ToolCall SetPenMode,2E04
   ToolCall GetPenMode,2F04
   ToolCall SetPenPat,3004
   ToolCall GetPenPat,3104
   ToolCall SetPenMask,3204
   ToolCall GetPenMask,3304
   ToolCall SetBackPat,3404
   ToolCall GetBackPat,3504
   ToolCall PenNormal,3604
   ToolCall SetSolidPenPat,3704
   ToolCall SetSolidBackPat,3804
   ToolCall SolidPattern,3904
   ToolCall MoveTo,3A04
   ToolCall Move,3B04
   ToolCall LineTo,3C04
   ToolCall Line,3D04
   ToolCall SetPicSave,3E04
   ToolCall GetPicSave,3F04
   ToolCall SetRgnSave,4004
   ToolCall GetRgnSave,4104
   ToolCall SetPolySave,4204
   ToolCall GetPolySave,4304
   ToolCall SetGrafProcs,4404
   ToolCall GetGrafProcs,4504
   ToolCall SetUserField,4604
   ToolCall GetUserField,4704
   ToolCall SetSysField,4804
   ToolCall GetSysField,4904
   ToolCall SetRect,4A04
   ToolCall OffsetRect,4B04
   ToolCall InsetRect,4C04
   ToolCall SectRect,4D04
   ToolCall UnionRect,4E04
   ToolCall PtInRect,4F04
   ToolCall Pt2Rect,5004
   ToolCall EqualRect,5104
   ToolCall NotEmptyRect,5204
   ToolCall FrameRect,5304
   ToolCall PaintRect,5404
   ToolCall EraseRect,5504
   ToolCall InvertRect,5604
   ToolCall FillRect,5704
   ToolCall FrameOval,5804
   ToolCall PaintOval,5904
   ToolCall EraseOval,5A04
   ToolCall InvertOval,5B04
   ToolCall FillOval,5C04
   ToolCall FrameRRect,5D04
   ToolCall PaintRRect,5E04
   ToolCall EraseRRect,5F04
   ToolCall InvertRRect,6004
   ToolCall FillRRect,6104
   ToolCall FrameArc,6204
   ToolCall PaintArc,6304
   ToolCall EraseArc,6404
   ToolCall InvertArc,6504
   ToolCall FillArc,6604
   ToolCall NewRgn,6704
   ToolCall DisposeRgn,6804
   ToolCall CopyRgn,6904
   ToolCall SetEmptyRgn,6A04
   ToolCall SetRectRgn,6B04
   ToolCall RectRgn,6C04
   ToolCall OpenRgn,6D04
   ToolCall CloseRgn,6E04
   ToolCall OffsetRgn,6F04
   ToolCall InsetRgn,7004
   ToolCall SectRgn,7104
   ToolCall UnionRgn,7204
   ToolCall DiffRgn,7304
   ToolCall XorRgn,7404
   ToolCall PtInRgn,7504
   ToolCall RectInRgn,7604
   ToolCall EqualRgn,7704
   ToolCall EmptyRgn,7804
   ToolCall FrameRgn,7904
   ToolCall PaintRgn,7A04
   ToolCall EraseRgn,7B04
   ToolCall InvertRgn,7C04
   ToolCall FillRgn,7D04
   ToolCall ScrollRect,7E04
   ToolCall PaintPixels,7F04
   ToolCall AddPt,8004
   ToolCall SubPt,8104
   ToolCall SetPt,8204
   ToolCall EqualPt,8304
   ToolCall LocalToGlobal,8404
   ToolCall GlobalToLocal,8504
   ToolCall Random,8604
   ToolCall SetRandSeed,8704
   ToolCall GetPixel,8804
   ToolCall ScalePt,8904
   ToolCall MapPt,8A04
   ToolCall MapRect,8B04
   ToolCall MapRgn,8C04
   ToolCall SetStdProcs,8D04
   ToolCall SetCursor,8E04
   ToolCall GetCursorAdr,8F04
   ToolCall HideCursor,9004
   ToolCall ShowCursor,9104
   ToolCall ObscureCursor,9204
;   ToolCall Unknown,9304
   ToolCall SetFont,9404
   ToolCall GetFont,9504
   ToolCall GetFontInfo,9604
   ToolCall GetFontGlobals,9704
   ToolCall SetFontFlags,9804
   ToolCall GetFontFlags,9904
   ToolCall SetTextFace,9A04
   ToolCall GetTextFace,9B04
   ToolCall SetTextMode,9C04
   ToolCall GetTextMode,9D04
   ToolCall SetSpaceExtra,9E04
   ToolCall GetSpaceExtra,9F04
   ToolCall SetForeColor,A004
   ToolCall GetForeColor,A104
   ToolCall SetBackColor,A204
   ToolCall GetBackColor,A304
   ToolCall DrawChar,A404
   ToolCall DrawString,A504
   ToolCall DrawCString,A604
   ToolCall DrawText,A704
   ToolCall CharWidth,A804
   ToolCall StringWidth,A904
   ToolCall CStringWidth,AA04
   ToolCall TextWidth,AB04
   ToolCall CharBounds,AC04
   ToolCall StringBounds,AD04
   ToolCall CStringBounds,AE04
   ToolCall TextBounds,AF04
   ToolCall SetArcRot,B004
   ToolCall GetArcRot,B104
   ToolCall SetSysFont,B204
   ToolCall GetSysFont,B304
   ToolCall SetVisRgn,B404
   ToolCall GetVisRgn,B504
   ToolCall SetIntUse,B604
   ToolCall OpenPicture,B704
   ToolCall PicComment,B804
   ToolCall ClosePicture,B904
   ToolCall DrawPicture,BA04
   ToolCall KillPicture,BB04
   ToolCall FramePoly,BC04
   ToolCall PaintPoly,BD04
   ToolCall ErasePoly,BE04
   ToolCall InvertPoly,BF04
   ToolCall FillPoly,C004
   ToolCall OpenPoly,C104
   ToolCall ClosePoly,C204
   ToolCall KillPoly,C304
   ToolCall OffsetPoly,C404
   ToolCall MapPoly,C504
   ToolCall SetClipHandle,C604
   ToolCall GetClipHandle,C704
   ToolCall SetVisHandle,C804
   ToolCall GetVisHandle,C904
   ToolCall InitCursor,CA04
   ToolCall SetBufDims,CB04
   ToolCall ForceBufDims,CC04
   ToolCall SaveBufDims,CD04
   ToolCall RestoreBufDims,CE04
   ToolCall GetFGSize,CF04
   ToolCall SetFontID,D004
   ToolCall GetFontID,D104
   ToolCall SetTextSize,D204
   ToolCall GetTextSize,D304
   ToolCall SetCharExtra,D404
   ToolCall GetCharExtra,D504
   ToolCall PPToPort,D604
   ToolCall InflateTextBuffer,D704
   ToolCall GetRomFont,D804	;was GetROMFont 29-Aug-90 DAL
   ToolCall GetFontLore,D904
   if SpongeBoy then	;added 8-Feb-91 DAL
   ToolCall Get640Colors,DA04
   ToolCall Set640Color,DB04
   endif


   ToolCall Desk Manager,0005	;added DAL 29-Aug-90
   ToolCall DeskBootInit,0105
   ToolCall DeskStartUp,0205
   ToolCall DeskShutDown,0305
   ToolCall DeskVersion,0405
   ToolCall DeskReset,0505
   ToolCall DeskStatus,0605
;   ToolCall Unknown,0705
;   ToolCall Unknown,0805
   ToolCall SaveScrn,0905
   ToolCall RestScrn,0A05
   ToolCall SaveAll,0B05
   ToolCall RestAll,0C05
;   ToolCall Unknown,0D05
   ToolCall InstallNDA,0E05
   ToolCall InstallCDA,0F05
;   ToolCall Unknown,1005
   ToolCall ChooseCDA,1105
;   ToolCall Unknown,1205
   ToolCall SetDAStrPtr,1305
   ToolCall GetDAStrPtr,1405
   ToolCall OpenNDA,1505
   ToolCall CloseNDA,1605
   ToolCall SystemClick,1705
   ToolCall SystemEdit,1805
   ToolCall SystemTask,1905
   ToolCall SystemEvent,1A05
   ToolCall GetNumNDAs,1B05
   ToolCall CloseNDAByWinPtr,1C05
   ToolCall CloseAllNDAs,1D05
   ToolCall FixAppleMenu,1E05
   ToolCall AddToRunQ,1F05
   ToolCall RemoveFromRunQ,2005
   ToolCall RemoveCDA,2105
   ToolCall RemoveNDA,2205
   if SpongeBoy then	;added 8-Feb-91 DAL
   ToolCall GetDeskAccInfo,2305	;fixed 2-Dec-91 DAL
   ToolCall CallDeskAcc,2405
   ToolCall GetDeskGlobal,2505	;added 19-Feb-91 DAL
   endif

   ToolCall Event Manager,0006	;added DAL 29-Aug-90
   ToolCall EMBootInit,0106
   ToolCall EMStartUp,0206
   ToolCall EMShutDown,0306
   ToolCall EMVersion,0406
   ToolCall EMReset,0506
   ToolCall EMStatus,0606
;   ToolCall Unknown,0706
;   ToolCall Unknown,0806
   ToolCall DoWindows,0906
   ToolCall GetNextEvent,0A06
   ToolCall EventAvail,0B06
   ToolCall GetMouse,0C06
   ToolCall Button,0D06
   ToolCall StillDown,0E06
   ToolCall WaitMouseUp,0F06
   ToolCall TickCount,1006
   ToolCall GetDblTime,1106
   ToolCall GetCaretTime,1206
   ToolCall SetSwitch,1306
   ToolCall PostEvent,1406
   ToolCall FlushEvents,1506
   ToolCall GetOSEvent,1606
   ToolCall OSEventAvail,1706
   ToolCall SetEventMask,1806
   ToolCall FakeMouse,1906
   ToolCall SetAutoKeyLimit,1A06
   ToolCall GetKeyTranslation,1B06
   ToolCall SetKeyTranslation,1C06

   ToolCall Scheduler,0007	;added DAL 29-Aug-90
   ToolCall SchBootInit,0107
   ToolCall SchStartUp,0207
   ToolCall SchShutDown,0307
   ToolCall SchVersion,0407
   ToolCall SchReset,0507
   ToolCall SchStatus,0607
;   ToolCall Unknown,0707
;   ToolCall Unknown,0807
   ToolCall SchAddTask,0907
   ToolCall SchFlush,0A07

   ToolCall Sound Tools,0008	;added DAL 29-Aug-90
   ToolCall SoundBootInit,0108
   ToolCall SoundStartUp,0208
   ToolCall SoundShutDown,0308
   ToolCall SoundVersion,0408
   ToolCall SoundReset,0508
   ToolCall SoundToolStatus,0608
;   ToolCall Unknown,0708
;   ToolCall Unknown,0808
   ToolCall WriteRamBlock,0908
   ToolCall ReadRamBlock,0A08
   ToolCall GetTableAddress,0B08
   ToolCall GetSoundVolume,0C08
   ToolCall SetSoundVolume,0D08
   ToolCall FFStartSound,0E08
   ToolCall FFStopSound,0F08
   ToolCall FFSoundStatus,1008
   ToolCall FFGeneratorStatus,1108
   ToolCall SetSoundMIRQV,1208
   ToolCall SetUserSoundIRQV,1308
   ToolCall FFSoundDoneStatus,1408
   ToolCall FFSetUpSound,1508
   ToolCall FFStartPlaying,1608
   ToolCall SetDOCReg,1708
   ToolCall ReadDOCReg,1808

   ToolCall ADB,0009	;added DAL 29-Aug-90
   ToolCall ADBBootInit,0109
   ToolCall ADBStartUp,0209
   ToolCall ADBShutDown,0309
   ToolCall ADBVersion,0409
   ToolCall ADBReset,0509
   ToolCall ADBStatus,0609
;   ToolCall Unknown,0709
;   ToolCall Unknown,0809
   ToolCall SendInfo,0909
   ToolCall ReadKeyMicroData,0A09
   ToolCall ReadKeyMicroMem,0B09
;   ToolCall Unknown,0C09
   ToolCall AsyncADBReceive,0D09
   ToolCall SyncADBReceive,0E09
   ToolCall AbsOn,0F09
   ToolCall AbsOff,1009
   ToolCall ReadAbs,1109
   ToolCall SetAbsScale,1209
   ToolCall GetAbsScale,1309
   ToolCall SRQPoll,1409
   ToolCall SRQRemove,1509
   ToolCall ClearSRQTable,1609

   ToolCall SANE,000A	;added DAL 29-Aug-90
   ToolCall SANEBootInit,010A	;added DAL 29-Aug-90
   ToolCall SANEStartUp,020A	;added DAL 29-Aug-90
   ToolCall SANEShutDown,030A	;added DAL 29-Aug-90
   ToolCall SANEVersion,040A	;added DAL 29-Aug-90
   ToolCall SANEReset,050A	;added DAL 29-Aug-90
   ToolCall SANEStatus,060A	;added DAL 29-Aug-90
   ToolCall FPNum,090A	;added DAL 29-Aug-90
   ToolCall DecStrNum,0A0A	;added DAL 29-Aug-90
   ToolCall ElemNum,0B0A	;added DAL 29-Aug-90

   ToolCall Integer Math,000B	;added DAL 29-Aug-90
   ToolCall IMBootInit,010B
   ToolCall IMStartUp,020B
   ToolCall IMShutDown,030B
   ToolCall IMVersion,040B
   ToolCall IMReset,050B
   ToolCall IMStatus,060B
;   ToolCall Unknown,070B
;   ToolCall Unknown,080B
   ToolCall Multiply,090B
   ToolCall SDivide,0A0B
   ToolCall UDivide,0B0B
   ToolCall LongMul,0C0B
   ToolCall LongDivide,0D0B
   ToolCall FixRatio,0E0B
   ToolCall FixMul,0F0B
   ToolCall FracMul,100B
   ToolCall FixDiv,110B
   ToolCall FracDiv,120B
   ToolCall FixRound,130B
   ToolCall FracSqrt,140B
   ToolCall FracCos,150B
   ToolCall FracSin,160B
   ToolCall FixATan2,170B
   ToolCall HiWord,180B
   ToolCall LoWord,190B
   ToolCall Long2Fix,1A0B
   ToolCall Fix2Long,1B0B
   ToolCall Fix2Frac,1C0B
   ToolCall Frac2Fix,1D0B
   ToolCall Fix2X,1E0B
   ToolCall Frac2X,1F0B
   ToolCall X2Fix,200B
   ToolCall X2Frac,210B
   ToolCall Int2Hex,220B
   ToolCall Long2Hex,230B
   ToolCall Hex2Int,240B
   ToolCall Hex2Long,250B
   ToolCall Int2Dec,260B
   ToolCall Long2Dec,270B
   ToolCall Dec2Int,280B
   ToolCall Dec2Long,290B
   ToolCall HexIt,2A0B

   ToolCall Text Tools,000C	;added DAL 29-Aug-90
   ToolCall TextBootInit,010C
   ToolCall TextStartUp,020C
   ToolCall TextShutDown,030C
   ToolCall TextVersion,040C
   ToolCall TextReset,050C
   ToolCall TextStatus,060C
;   ToolCall Unknown,070C
;   ToolCall Unknown,080C
   ToolCall SetInGlobals,090C
   ToolCall SetOutGlobals,0A0C
   ToolCall SetErrGlobals,0B0C
   ToolCall GetInGlobals,0C0C
   ToolCall GetOutGlobals,0D0C
   ToolCall GetErrGlobals,0E0C
   ToolCall SetInputDevice,0F0C
   ToolCall SetOutputDevice,100C
   ToolCall SetErrorDevice,110C
   ToolCall GetInputDevice,120C
   ToolCall GetOutputDevice,130C
   ToolCall GetErrorDevice,140C
   ToolCall InitTextDev,150C
   ToolCall CtlTextDev,160C
   ToolCall StatusTextDev,170C
   ToolCall WriteChar,180C
   ToolCall ErrWriteChar,190C
   ToolCall WriteLine,1A0C
   ToolCall ErrWriteLine,1B0C
   ToolCall WriteString,1C0C
   ToolCall ErrWriteString,1D0C
   ToolCall TextWriteBlock,1E0C
   ToolCall ErrWriteBlock,1F0C
   ToolCall WriteCString,200C
   ToolCall ErrWriteCString,210C
   ToolCall ReadChar,220C
   ToolCall TextReadBlock,230C
   ToolCall ReadLine,240C

   ToolCall Window Manager,000E	;added DAL 29-Aug-90
   ToolCall WindBootInit,010E
   ToolCall WindStartUp,020E
   ToolCall WindShutDown,030E
   ToolCall WindVersion,040E
   ToolCall WindReset,050E
   ToolCall WindStatus,060E
;   ToolCall Unknown,070E
;   ToolCall Unknown,080E
   ToolCall NewWindow,090E
   ToolCall CheckUpdate,0A0E
   ToolCall CloseWindow,0B0E
   ToolCall Desktop,0C0E
   ToolCall SetWTitle,0D0E
   ToolCall GetWTitle,0E0E
   ToolCall SetFrameColor,0F0E
   ToolCall GetFrameColor,100E
   ToolCall SelectWindow,110E
   ToolCall HideWindow,120E
   ToolCall ShowWindow,130E
   ToolCall SendBehind,140E
   ToolCall FrontWindow,150E
   ToolCall SetInfoDraw,160E
   ToolCall FindWindow,170E
   ToolCall TrackGoAway,180E
   ToolCall MoveWindow,190E
   ToolCall DragWindow,1A0E
   ToolCall GrowWindow,1B0E
   ToolCall SizeWindow,1C0E
   ToolCall TaskMaster,1D0E
   ToolCall BeginUpdate,1E0E
   ToolCall EndUpdate,1F0E
   ToolCall GetWMgrPort,200E
   ToolCall PinRect,210E
   ToolCall HiliteWindow,220E
   ToolCall ShowHide,230E
   ToolCall BringToFront,240E
   ToolCall WindNewRes,250E
   ToolCall TrackZoom,260E
   ToolCall ZoomWindow,270E
   ToolCall SetWRefCon,280E
   ToolCall GetWRefCon,290E
   ToolCall GetNextWindow,2A0E
   ToolCall GetWKind,2B0E
   ToolCall GetWFrame,2C0E
   ToolCall SetWFrame,2D0E
   ToolCall GetStructRgn,2E0E
   ToolCall GetContentRgn,2F0E
   ToolCall GetUpdateRgn,300E
   ToolCall GetDefProc,310E
   ToolCall SetDefProc,320E
   ToolCall GetWControls,330E
   ToolCall SetOriginMask,340E
   ToolCall GetInfoRefCon,350E
   ToolCall SetInfoRefCon,360E
   ToolCall GetZoomRect,370E
   ToolCall SetZoomRect,380E
   ToolCall RefreshDesktop,390E
   ToolCall InvalRect,3A0E
   ToolCall InvalRgn,3B0E
   ToolCall ValidRect,3C0E
   ToolCall ValidRgn,3D0E
   ToolCall GetContentOrigin,3E0E
   ToolCall SetContentOrigin,3F0E
   ToolCall GetDataSize,400E
   ToolCall SetDataSize,410E
   ToolCall GetMaxGrow,420E
   ToolCall SetMaxGrow,430E
   ToolCall GetScroll,440E
   ToolCall SetScroll,450E
   ToolCall GetPage,460E
   ToolCall SetPage,470E
   ToolCall GetContentDraw,480E
   ToolCall SetContentDraw,490E
   ToolCall GetInfoDraw,4A0E
   ToolCall SetSysWindow,4B0E
   ToolCall GetSysWFlag,4C0E
   ToolCall StartDrawing,4D0E
   ToolCall SetWindowIcons,4E0E
   ToolCall GetRectInfo,4F0E
   ToolCall StartInfoDrawing,500E
   ToolCall EndInfoDrawing,510E
   ToolCall GetFirstWindow,520E
   ToolCall WindDragRect,530E
;   ToolCall Unknown,540E
   ToolCall DrawInfoBar,550E
   ToolCall WindowGlobal,560E
   ToolCall SetContentOrigin2,570E
   ToolCall GetWindowMgrGlobals,580E
   ToolCall AlertWindow,590E
   ToolCall StartFrameDrawing,5A0E
   ToolCall EndFrameDrawing,5B0E
   ToolCall ResizeWindow,5C0E
   ToolCall TaskMasterContent,5D0E	;29-Aug-90 DAL
   ToolCall TaskMasterKey,5E0E	;29-Aug-90 DAL
   ToolCall TaskMasterDA,5F0E
   ToolCall CompileText,600E
   ToolCall NewWindow2,610E
   ToolCall ErrorWindow,620E
   if SpongeBoy then	;added 8-Feb-91 DAL
   ToolCall GetAuxWindInfo,630E
   ToolCall DoModalWindow,640E
   ToolCall MWGetCtlPart,650E
   ToolCall MWSetMenuProc,660E
   ToolCall MWStdDrawProc,670E
   ToolCall MWSetUpEditMenu,680E
   ToolCall FindCursorCtl,690E
   ToolCall ResizeInfoBar,6A0E	;added 12-Apr-91 DAL
   ToolCall HandleDiskInsert,6B0E	;added 12-Apr-91 DAL
   endif
   if SpongeMan then
   ToolCall UpdateWindow,6C0E	;added 9-Mar-92 DAL
   endif

   ToolCall Menu Manager,000F	;added DAL 29-Aug-90
   ToolCall MenuBootInit,010F
   ToolCall MenuStartUp,020F
   ToolCall MenuShutDown,030F
   ToolCall MenuVersion,040F
   ToolCall MenuReset,050F
   ToolCall MenuStatus,060F
;   ToolCall Unknown,070F
;   ToolCall Unknown,080F
   ToolCall MenuKey,090F
   ToolCall GetMenuBar,0A0F
   ToolCall MenuRefresh,0B0F
   ToolCall FlashMenuBar,0C0F
   ToolCall InsertMenu,0D0F
   ToolCall DeleteMenu,0E0F
   ToolCall InsertMItem,0F0F
   ToolCall DeleteMItem,100F
   ToolCall GetSysBar,110F
   ToolCall SetSysBar,120F
   ToolCall FixMenuBar,130F
   ToolCall CountMItems,140F
   ToolCall NewMenuBar,150F
   ToolCall GetMHandle,160F
   ToolCall SetBarColors,170F
   ToolCall GetBarColors,180F
   ToolCall SetMTitleStart,190F
   ToolCall GetMTitleStart,1A0F
   ToolCall GetMenuMgrPort,1B0F
   ToolCall CalcMenuSize,1C0F
   ToolCall SetMTitleWidth,1D0F
   ToolCall GetMTitleWidth,1E0F
   ToolCall SetMenuFlag,1F0F
   ToolCall GetMenuFlag,200F
   ToolCall SetMenuTitle,210F
   ToolCall GetMenuTitle,220F
   ToolCall MenuGlobal,230F
   ToolCall SetMItem,240F
   ToolCall GetMItem,250F
   ToolCall SetMItemFlag,260F
   ToolCall GetMItemFlag,270F
   ToolCall SetMItemBlink,280F
   ToolCall MenuNewRes,290F
   ToolCall DrawMenuBar,2A0F
   ToolCall MenuSelect,2B0F
   ToolCall HiliteMenu,2C0F
   ToolCall NewMenu,2D0F
   ToolCall DisposeMenu,2E0F
   ToolCall InitPalette,2F0F
   ToolCall EnableMItem,300F
   ToolCall DisableMItem,310F
   ToolCall CheckMItem,320F
   ToolCall SetMItemMark,330F
   ToolCall GetMItemMark,340F
   ToolCall SetMItemStyle,350F
   ToolCall GetMItemStyle,360F
   ToolCall SetMenuID,370F
   ToolCall SetMItemID,380F
   ToolCall SetMenuBar,390F
   ToolCall SetMItemName,3A0F
   ToolCall GetPopUpDefProc,3B0F
   ToolCall PopUpMenuSelect,3C0F
   ToolCall DrawPopUp,3D0F
   ToolCall NewMenu2,3E0F
   ToolCall InsertMItem2,3F0F
   ToolCall SetMenuTitle2,400F
   ToolCall SetMItem2,410F
   ToolCall SetMItemName2,420F
   ToolCall NewMenuBar2,430F
;   ToolCall Unknown,440F
   ToolCall HideMenuBar,450F
   ToolCall ShowMenuBar,460F
   if SpongeBoy then	;added 8-Feb-91 DAL
   ToolCall SetMItemIcon,470F
   ToolCall GetMItemIcon,480F
   ToolCall SetMItemStruct,490F
   ToolCall GetMItemStruct,4A0F
   ToolCall RemoveMItemStruct,4B0F
   ToolCall GetMItemFlag2,4C0F
   ToolCall SetMItemFlag2,4D0F
   ToolCall GetMItemWidth,4E0F
   ToolCall GetMItemBlink,4F0F
   ToolCall InsertPathMItems,500F
   endif

   ToolCall Control Manager,0010	;added DAL 29-Aug-90
   ToolCall CtlBootInit,0110
   ToolCall CtlStartUp,0210
   ToolCall CtlShutDown,0310
   ToolCall CtlVersion,0410
   ToolCall CtlReset,0510
   ToolCall CtlStatus,0610
;   ToolCall Unknown,0710
;   ToolCall Unknown,0810
   ToolCall NewControl,0910
   ToolCall DisposeControl,0A10
   ToolCall KillControls,0B10
   ToolCall SetCtlTitle,0C10
   ToolCall GetCtlTitle,0D10
   ToolCall HideControl,0E10
   ToolCall ShowControl,0F10
   ToolCall DrawControls,1010
   ToolCall HiliteControl,1110
   ToolCall CtlNewRes,1210
   ToolCall FindControl,1310
   ToolCall TestControl,1410
   ToolCall TrackControl,1510
   ToolCall MoveControl,1610
   ToolCall DragControl,1710
   ToolCall SetCtlIcons,1810
   ToolCall SetCtlValue,1910
   ToolCall GetCtlValue,1A10
   ToolCall SetCtlParams,1B10
   ToolCall GetCtlParams,1C10
   ToolCall DragRect,1D10
   ToolCall GrowSize,1E10
   ToolCall GetCtlDPage,1F10
   ToolCall SetCtlAction,2010
   ToolCall GetCtlAction,2110
   ToolCall SetCtlRefCon,2210
   ToolCall GetCtlRefCon,2310
   ToolCall EraseControl,2410
   ToolCall DrawOneCtl,2510
   ToolCall FindTargetCtl,2610
   ToolCall MakeNextCtlTarget,2710
   ToolCall MakeThisCtlTarget,2810
   ToolCall SendEventToCtl,2910
   ToolCall GetCtlID,2A10
   ToolCall SetCtlID,2B10
   ToolCall CallCtlDefProc,2C10
   ToolCall NotifyControls,2D10
   ToolCall GetCtlMoreFlags,2E10
   ToolCall SetCtlMoreFlags,2F10
   ToolCall GetCtlHandleFromID,3010
   ToolCall NewControl2,3110
   ToolCall CMLoadResource,3210
   ToolCall CMReleaseResource,3310
   ToolCall SetCtlParamPtr,3410
   ToolCall GetCtlParamPtr,3510
   ToolCall Internal,3610	;29-Aug-90 DAL
   ToolCall InvalCtls,3710
   ToolCall Internal,3810	;29-Aug-90 DAL
   if SpongeBoy then	;added 8-Feb-91 DAL
   ToolCall FindRadioButton,3910
   ToolCall SetLETextByID,3A10
   ToolCall GetLETextByID,3B10
   endif
   if SpongeMan then
   ToolCall SetCtlValueByID,3C10
   ToolCall GetCtlValueByID,3D10
   ToolCall InvalOneCtlByID,3E10
   ToolCall HiliteCtlByID,3F10
   endif

   ToolCall Loader,0011	;added DAL 29-Aug-90
   ToolCall LoaderInitialization,0111
   ToolCall LoaderStartUp,0211
   ToolCall LoaderShutDown,0311
   ToolCall LoaderVersion,0411
   ToolCall LoaderReset,0511
   ToolCall LoaderStatus,0611
;   ToolCall Unknown,0711
;   ToolCall Unknown,0811
   ToolCall InitialLoad,0911
   ToolCall Restart,0A11
   ToolCall LoadSegNum,0B11
   ToolCall UnloadSegNum,0C11
   ToolCall LoadSegName,0D11
   ToolCall UnloadSeg,0E11
   ToolCall GetLoadSegInfo,0F11
   ToolCall GetUserID,1011
   ToolCall LGetPathname,1111
   ToolCall UserShutDown,1211
   ToolCall RenamePathname,1311
;   ToolCall Unknown,1411
;   ToolCall Unknown,1511
;   ToolCall Unknown,1611
;   ToolCall Unknown,1711
;   ToolCall Unknown,1811
;   ToolCall Unknown,1911
;   ToolCall Unknown,1A11
;   ToolCall Unknown,1B11
;   ToolCall Unknown,1C11
;   ToolCall Unknown,1D11
;   ToolCall Unknown,1E11
;   ToolCall Unknown,1F11
   ToolCall InitialLoad2,2011
   ToolCall GetUserID2,2111
   ToolCall LGetPathname2,2211

   ToolCall QuickDraw Aux,0012	;added DAL 29-Aug-90
   ToolCall QDAuxBootInit,0112
   ToolCall QDAuxStartUp,0212
   ToolCall QDAuxShutDown,0312
   ToolCall QDAuxVersion,0412
   ToolCall QDAuxReset,0512
   ToolCall QDAuxStatus,0612
;   ToolCall Unknown,0712
;   ToolCall Unknown,0812
   ToolCall CopyPixels,0912
   ToolCall WaitCursor,0A12
   ToolCall DrawIcon,0B12
   ToolCall SpecialRect,0C12
   ToolCall SeedFill,0D12
   ToolCall CalcMask,0E12
   if SpongeBoy then	;added 8-Feb-91 DAL
   ToolCall GetSysIcon,0F12
   ToolCall PixelMap2Rgn,1012
   ToolCall IBeamCursor,1312
   ToolCall WhooshRect,1412	;added 15-Feb-91 DAL
   endif
   if SpongeMan then
   ToolCall DrawStringWidth,1512
   ToolCall UseColorTable,1612	;added 28-Mar-93 JCM
   ToolCall RestoreColorTable,1712	;added 28-Mar-93 JCM
   endif

   ToolCall Print Manager,0013	;added DAL 29-Aug-90
   ToolCall PMBootInit,0113
   ToolCall PMStartUp,0213
   ToolCall PMShutDown,0313
   ToolCall PMVersion,0413
   ToolCall PMReset,0513
   ToolCall PMStatus,0613
;   ToolCall Unknown,0713
;   ToolCall Unknown,0813
   ToolCall PrDefault,0913
   ToolCall PrValidate,0A13
   ToolCall PrStlDialog,0B13
   ToolCall PrJobDialog,0C13
   ToolCall PrPixelMap,0D13
   ToolCall PrOpenDoc,0E13
   ToolCall PrCloseDoc,0F13
   ToolCall PrOpenPage,1013
   ToolCall PrClosePage,1113
   ToolCall PrPicFile,1213
;   ToolCall Unknown,1313
   ToolCall PrError,1413
   ToolCall PrSetError,1513
   ToolCall PrChoosePrinter,1613
   ToolCall GetDeviceName,1713	;29-Aug-90 DAL (was Unknown)
   ToolCall PrGetPrinterSpecs,1813
   ToolCall PrDevPrChanged,1913	;29-Aug-90 DAL
   ToolCall PrDevStartup,1A13	;29-Aug-90 DAL
   ToolCall PrDevShutDown,1B13	;29-Aug-90 DAL
   ToolCall PrDevOpen,1C13	;29-Aug-90 DAL
   ToolCall PrDevRead,1D13	;29-Aug-90 DAL
   ToolCall PrDevWrite,1E13	;29-Aug-90 DAL
   ToolCall PrDevClose,1F13	;29-Aug-90 DAL
   ToolCall PrDevStatus,2013	;29-Aug-90 DAL
   ToolCall PrDevAsyncRead,2113	;29-Aug-90 DAL
   ToolCall PrDevWriteBackground,2213	;29-Aug-90 DAL
   ToolCall PrDriverVer,2313
   ToolCall PrPortVer,2413
   ToolCall PrGetZoneName,2513
;   ToolCall Unknown,2613
;   ToolCall Unknown,2713
   ToolCall PrGetPrinterDvrName,2813
   ToolCall PrGetPortDvrName,2913
   ToolCall PrGetUserName,2A13
   ToolCall PrGetNetworkName,2B13
;   ToolCall Unknown,2C13
;   ToolCall Unknown,2D13
;   ToolCall Unknown,2E13
;   ToolCall Unknown,2F13
   ToolCall PrDevIsItSafe,3013	;29-Aug-90 DAL
;   ToolCall Unknown,3113
;   ToolCall Unknown,3213
;   ToolCall Unknown,3313
   ToolCall PMUnloadDriver,3413
   ToolCall PMLoadDriver,3513
   ToolCall PrGetDocName,3613
   ToolCall PrSetDocName,3713
   ToolCall PrGetPgOrientation,3813

   ToolCall Line Edit,0014	;added DAL 29-Aug-90
   ToolCall LEBootInit,0114
   ToolCall LEStartUp,0214
   ToolCall LEShutDown,0314
   ToolCall LEVersion,0414
   ToolCall LEReset,0514
   ToolCall LEStatus,0614
;   ToolCall Unknown,0714
;   ToolCall Unknown,0814
   ToolCall LENew,0914
   ToolCall LEDispose,0A14
   ToolCall LESetText,0B14
   ToolCall LEIdle,0C14
   ToolCall LEClick,0D14
   ToolCall LESetSelect,0E14
   ToolCall LEActivate,0F14
   ToolCall LEDeactivate,1014
   ToolCall LEKey,1114
   ToolCall LECut,1214
   ToolCall LECopy,1314
   ToolCall LEPaste,1414
   ToolCall LEDelete,1514
   ToolCall LEInsert,1614
   ToolCall LEUpdate,1714
   ToolCall LETextBox,1814
   ToolCall LEFromScrap,1914
   ToolCall LEToScrap,1A14
   ToolCall LEScrapHandle,1B14
   ToolCall LEGetScrapLen,1C14
   ToolCall LESetScrapLen,1D14
   ToolCall LESetHilite,1E14
   ToolCall LESetCaret,1F14
   ToolCall LETextBox2,2014
   ToolCall LESetJust,2114
   ToolCall LEGetTextHand,2214
   ToolCall LEGetTextLen,2314
   ToolCall GetLEDefProc,2414
   ToolCall LEClassifyKey,2514	;added 20-Mar-92 DAL

   ToolCall Dialog Manager,0015	;added DAL 29-Aug-90
   ToolCall DialogBootInit,0115
   ToolCall DialogStartUp,0215
   ToolCall DialogShutDown,0315
   ToolCall DialogVersion,0415
   ToolCall DialogReset,0515
   ToolCall DialogStatus,0615
;   ToolCall Unknown,0715
;   ToolCall Unknown,0815
   ToolCall ErrorSound,0915
   ToolCall NewModalDialog,0A15
   ToolCall NewModelessDialog,0B15
   ToolCall CloseDialog,0C15
   ToolCall NewDItem,0D15
   ToolCall RemoveDItem,0E15
   ToolCall ModalDialog,0F15
   ToolCall IsDialogEvent,1015
   ToolCall DialogSelect,1115
   ToolCall DlgCut,1215
   ToolCall DlgCopy,1315
   ToolCall DlgPaste,1415
   ToolCall DlgDelete,1515
   ToolCall DrawDialog,1615
   ToolCall Alert,1715
   ToolCall StopAlert,1815
   ToolCall NoteAlert,1915
   ToolCall CautionAlert,1A15
   ToolCall ParamText,1B15
   ToolCall SetDAFont,1C15
;   ToolCall Unknown,1D15
   ToolCall GetControlDItem,1E15
   ToolCall GetIText,1F15
   ToolCall SetIText,2015
   ToolCall SelectIText,2115	;was SelIText 29-Aug-90 DAL
   ToolCall HideDItem,2215
   ToolCall ShowDItem,2315
   ToolCall FindDItem,2415
   ToolCall UpdateDialog,2515
   ToolCall GetDItemType,2615
   ToolCall SetDItemType,2715
   ToolCall GetDItemBox,2815
   ToolCall SetDItemBox,2915
   ToolCall GetFirstDItem,2A15
   ToolCall GetNextDItem,2B15
   ToolCall ModalDialog2,2C15
;   ToolCall Unknown,2D15
   ToolCall GetDItemValue,2E15
   ToolCall SetDItemValue,2F15
;   ToolCall Unknown,3015
;   ToolCall Unknown,3115
   ToolCall GetNewModalDialog,3215
   ToolCall GetNewDItem,3315
   ToolCall GetAlertStage,3415
   ToolCall ResetAlertStage,3515
   ToolCall DefaultFilter,3615
   ToolCall GetDefButton,3715
   ToolCall SetDefButton,3815
   ToolCall DisableDItem,3915
   ToolCall EnableDItem,3A15

   ToolCall Scrap Manager,0016	;added DAL 29-Aug-90
   ToolCall ScrapBootInit,0116
   ToolCall ScrapStartUp,0216
   ToolCall ScrapShutDown,0316
   ToolCall ScrapVersion,0416
   ToolCall ScrapReset,0516
   ToolCall ScrapStatus,0616
;   ToolCall Unknown,0716
;   ToolCall Unknown,0816
   ToolCall UnloadScrap,0916
   ToolCall LoadScrap,0A16
   ToolCall ZeroScrap,0B16
   ToolCall PutScrap,0C16
   ToolCall GetScrap,0D16
   ToolCall GetScrapHandle,0E16
   ToolCall GetScrapSize,0F16
   ToolCall GetScrapPath,1016
   ToolCall SetScrapPath,1116
   ToolCall GetScrapCount,1216
   ToolCall GetScrapState,1316
   if SpongeBoy then	;added 8-Feb-91 DAL
   ToolCall GetIndScrap,1416
   endif
   if SpongeMan then
   ToolCall ShowClipboard,1516	;added 20-Aug-92 DAL
   endif

   ToolCall Standard File,0017	;added DAL 29-Aug-90
   ToolCall SFBootInit,0117
   ToolCall SFStartUp,0217
   ToolCall SFShutDown,0317
   ToolCall SFVersion,0417
   ToolCall SFReset,0517
   ToolCall SFStatus,0617
;   ToolCall Unknown,0717
;   ToolCall Unknown,0817
   ToolCall SFGetFile,0917
   ToolCall SFPutFile,0A17
   ToolCall SFPGetFile,0B17
   ToolCall SFPPutFile,0C17
   ToolCall SFAllCaps,0D17
   ToolCall SFGetFile2,0E17
   ToolCall SFPutFile2,0F17
   ToolCall SFPGetFile2,1017
   ToolCall SFPPutFile2,1117
   ToolCall SFShowInvisible,1217
   ToolCall SFReScan,1317
   ToolCall SFMultiGet2,1417
   ToolCall SFPMultiGet2,1517

   ToolCall Note Synth,0019	;added DAL 29-Aug-90
   ToolCall NSBootInit,0119
   ToolCall NSStartUp,0219
   ToolCall NSShutDown,0319
   ToolCall NSVersion,0419
   ToolCall NSReset,0519
   ToolCall NSStatus,0619
;   ToolCall Unknown,0719
;   ToolCall Unknown,0819
   ToolCall AllocGen,0919
   ToolCall DeallocGen,0A19
   ToolCall NoteOn,0B19
   ToolCall NoteOff,0C19
   ToolCall AllNotesOff,0D19
   ToolCall NSSetUpdateRate,0E19
   ToolCall NSSetUserUpdateRtn,0F19

   ToolCall Note Seq,001A	;added DAL 29-Aug-90
   ToolCall SeqBootInit,011A
   ToolCall SeqStartUp,021A
   ToolCall SeqShutDown,031A
   ToolCall SeqVersion,041A
   ToolCall SeqReset,051A
   ToolCall SeqStatus,061A
;   ToolCall Unknown,071A
;   ToolCall Unknown,081A
   ToolCall SetIncr,091A
   ToolCall ClearIncr,0A1A
   ToolCall GetTimer,0B1A
   ToolCall GetLoc,0C1A
   ToolCall SeqAllNotesOff,0D1A
   ToolCall SetTrkInfo,0E1A
   ToolCall StartSeq,0F1A
   ToolCall StepSeq,101A
   ToolCall StopSeq,111A
   ToolCall SetInstTable,121A
   ToolCall StartInts,131A
   ToolCall StopInts,141A
   ToolCall StartSeqRel,151A

   ToolCall Font Manager,001B	;added DAL 29-Aug-90
   ToolCall FMBootInit,011B
   ToolCall FMStartUp,021B
   ToolCall FMShutDown,031B
   ToolCall FMVersion,041B
   ToolCall FMReset,051B
   ToolCall FMStatus,061B
;   ToolCall Unknown,071B
;   ToolCall Unknown,081B
   ToolCall CountFamilies,091B
   ToolCall FindFamily,0A1B
   ToolCall GetFamInfo,0B1B
   ToolCall GetFamNum,0C1B
   ToolCall AddFamily,0D1B
   ToolCall InstallFont,0E1B
   ToolCall SetPurgeStat,0F1B
   ToolCall CountFonts,101B
   ToolCall FindFontStats,111B
   ToolCall LoadFont,121B
   ToolCall LoadSysFont,131B
   ToolCall AddFontVar,141B
   ToolCall FixFontMenu,151B
   ToolCall ChooseFont,161B
   ToolCall ItemID2FamNum,171B
   ToolCall FMSetSysFont,181B
   ToolCall FMGetSysFID,191B
   ToolCall FMGetCurFID,1A1B
   ToolCall FamNum2ItemID,1B1B
   ToolCall InstallWithStats,1C1B

   ToolCall List Manager,001C	;added DAL 29-Aug-90
   ToolCall ListBootInit,011C
   ToolCall ListStartUp,021C	;was ListStartup 29-Aug-90 DAL
   ToolCall ListShutDown,031C
   ToolCall ListVersion,041C
   ToolCall ListReset,051C
   ToolCall ListStatus,061C
;   ToolCall Unknown,071C
;   ToolCall Unknown,081C
   ToolCall CreateList,091C
   ToolCall SortList,0A1C
   ToolCall NextMember,0B1C
   ToolCall DrawMember,0C1C
   ToolCall SelectMember,0D1C
   ToolCall GetListDefProc,0E1C
   ToolCall ResetMember,0F1C
   ToolCall NewList,101C
   ToolCall DrawMember2,111C
   ToolCall NextMember2,121C
   ToolCall ResetMember2,131C
   ToolCall SelectMember2,141C
   ToolCall SortList2,151C
   ToolCall NewList2,161C
   if SpongeBoy then	;added 8-Feb-91 DAL
   ToolCall ListKey,171C
   ToolCall CompareStrings,181C	;added 3-Mar-91 DAL
   endif

   ToolCall ACE,001D	;added DAL 29-Aug-90
   ToolCall ACEBootInit,011D
   ToolCall ACEStartUp,021D
   ToolCall ACEShutDown,031D
   ToolCall ACEVersion,041D
   ToolCall ACEReset,051D
   ToolCall ACEStatus,061D
   ToolCall ACEInfo,071D
;   ToolCall Unknown,081D
   ToolCall ACECompress,091D
   ToolCall ACEExpand,0A1D
   ToolCall ACECompBegin,0B1D
   ToolCall ACEExpBegin,0C1D
   if SpongeBoy then	;added 8-Feb-91 DAL
   ToolCall GetACEExpState,0D1D
   ToolCall SetACEExpState,0E1D
   endif

   ToolCall Resource Manager,001E	;added DAL 29-Aug-90
   ToolCall ResourceBootInit,011E
   ToolCall ResourceStartUp,021E	;was ResourceStartup 29-Aug-90 DAL
   ToolCall ResourceShutdown,031E
   ToolCall ResourceVersion,041E
   ToolCall ResourceReset,051E
   ToolCall ResourceStatus,061E
;   ToolCall Unknown,071E
;   ToolCall Unknown,081E
   ToolCall CreateResourceFile,091E
   ToolCall OpenResourceFile,0A1E
   ToolCall CloseResourceFile,0B1E
   ToolCall AddResource,0C1E
   ToolCall UpdateResourceFile,0D1E
   ToolCall LoadResource,0E1E
   ToolCall RemoveResource,0F1E
   ToolCall MarkResourceChange,101E
   ToolCall SetCurResourceFile,111E
   ToolCall GetCurResourceFile,121E
   ToolCall SetCurResourceApp,131E
   ToolCall GetCurResourceApp,141E
   ToolCall HomeResourceFile,151E
   ToolCall WriteResource,161E
   ToolCall ReleaseResource,171E
   ToolCall DetachResource,181E
   ToolCall UniqueResourceID,191E
   ToolCall SetResourceID,1A1E
   ToolCall GetResourceAttr,1B1E
   ToolCall SetResourceAttr,1C1E
   ToolCall GetResourceSize,1D1E
   ToolCall MatchResourceHandle,1E1E
   ToolCall GetOpenFileRefNum,1F1E
   ToolCall CountTypes,201E
   ToolCall GetIndType,211E
   ToolCall CountResources,221E
   ToolCall GetIndResource,231E
   ToolCall SetResourceLoad,241E
   ToolCall SetResourceFileDepth,251E
   ToolCall GetMapHandle,261E
   ToolCall LoadAbsResource,271E
   ToolCall ResourceConverter,281E
   if SpongeBoy then	;added 8-Feb-91 DAL
   ToolCall LoadResource2,291E
   ToolCall RMFindNamedResource,2A1E	;added 10-Mar-91 DAL
   ToolCall RMGetResourceName,2B1E
   ToolCall RMLoadNamedResource,2C1E
   ToolCall RMSetResourceName,2D1E
   endif
   if SpongeMan then
   ToolCall OpenResFileByID,2E1E
   ToolCall CompactResourceFile,2F1E	;added 12-Feb-93 DAL
   endif

   ToolCall Midi,0020	;added DAL 29-Aug-90
   ToolCall MidiBootInit,0120
   ToolCall MidiStartUp,0220
   ToolCall MidiShutDown,0320
   ToolCall MidiVersion,0420
   ToolCall MidiReset,0520
   ToolCall MidiStatus,0620
;   ToolCall Unknown,0720
;   ToolCall Unknown,0820
   ToolCall MidiControl,0920
   ToolCall MidiDevice,0A20
   ToolCall MidiClock,0B20
   ToolCall MidiInfo,0C20
   ToolCall MidiReadPacket,0D20
   ToolCall MidiWritePacket,0E20

   ToolCall Video Overlay,0021	;added DAL 29-Aug-90
   ToolCall VDBootInit,0121
   ToolCall VDStartUp,0221
   ToolCall VDShutDown,0321	;was VDShutdown 29-Aug-90 DAL
   ToolCall VDVersion,0421
   ToolCall VDReset,0521
   ToolCall VDStatus,0621
;   ToolCall Unknown,0721
;   ToolCall Unknown,0821
   ToolCall VDInStatus,0921
   ToolCall VDInSetStd,0A21
   ToolCall VDInGetStd,0B21
   ToolCall VDInConvAdj,0C21
   ToolCall VDKeyControl,0D21
   ToolCall VDKeyStatus,0E21
   ToolCall VDKeySetKCol,0F21
   ToolCall VDKeyGetKRCol,1021	;was VDKeyGetRCol 29-Aug-90 DAL
   ToolCall VDKeyGetKGCol,1121	;was VDKeyGetGCol 29-Aug-90 DAL
   ToolCall VDKeyGetKBCol,1221	;was VDKeyGetBCol 29-Aug-90 DAL
   ToolCall VDKeySetKDiss,1321
   ToolCall VDKeyGetKDiss,1421
   ToolCall VDKeySetNKDiss,1521
   ToolCall VDKeyGetNKDiss,1621
   ToolCall VDOutSetStd,1721
   ToolCall VDOutGetStd,1821
   ToolCall VDOutControl,1921
   ToolCall VDOutStatus,1A21
   ToolCall VDGetFeatures,1B21
   ToolCall VDInControl,1C21
   ToolCall VDGGControl,1D21
   ToolCall VDGGStatus,1E21

   ToolCall Text Edit,0022	;added DAL 29-Aug-90
   ToolCall TEBootInit,0122
   ToolCall TEStartUp,0222	;was TEStartup 29-Aug-90 DAL
   ToolCall TEShutDown,0322	;was TEShutdown 29-Aug-90 DAL
   ToolCall TEVersion,0422
   ToolCall TEReset,0522
   ToolCall TEStatus,0622
;   ToolCall Unknown,0722
;   ToolCall Unknown,0822
   ToolCall TENew,0922
   ToolCall TEKill,0A22
   ToolCall TESetText,0B22
   ToolCall TEGetText,0C22
   ToolCall TEGetTextInfo,0D22
   ToolCall TEIdle,0E22
   ToolCall TEActivate,0F22
   ToolCall TEDeactivate,1022
   ToolCall TEClick,1122
   ToolCall TEUpdate,1222
   ToolCall TEPaintText,1322
   ToolCall TEKey,1422
;ToolCall TEInsertPageBreak,1522 (obsolete 29-Aug-90 DAL)
   ToolCall TECut,1622
   ToolCall TECopy,1722
   ToolCall TEPaste,1822
   ToolCall TEClear,1922
   ToolCall TEInsert,1A22
   ToolCall TEReplace,1B22
   ToolCall TEGetSelection,1C22
   ToolCall TESetSelection,1D22
   ToolCall TEGetSelectionStyle,1E22
   ToolCall TEStyleChange,1F22  
;   ToolCall TEGetHooks,2022	;these 3 obsolete 29-Aug-90 DAL
;   ToolCall TESetHooks,2122
;   ToolCall TEGetDefProc,2222
   ToolCall TEOffsetToPoint,2022	;29-Aug-90 DAL
   ToolCall TEPointToOffset,2122	;29-Aug-90 DAL
   ToolCall TEGetDefProc,2222	;29-Aug-90 DAL
   ToolCall TEGetRuler,2322	;29-Aug-90 DAL
   ToolCall TESetRuler,2422	;29-Aug-90 DAL
   ToolCall TEScroll,2522	;29-Aug-90 DAL
   ToolCall TEGetInternalProc,2622	;29-Aug-90 DAL
   ToolCall TEGetLastError,2722	;29-Aug-90 DAL
   ToolCall TECompactRecord,2822	;29-Aug-90 DAL

   ToolCall MIDI Synth,0023	;added DAL 29-Aug-90
   ToolCall MSBootInit,0123	;29-Aug-90 DAL
   ToolCall MSStartUp,0223	;29-Aug-90 DAL
   ToolCall MSShutDown,0323	;29-Aug-90 DAL
   ToolCall MSVersion,0423	;29-Aug-90 DAL
   ToolCall MSReset,0523	;29-Aug-90 DAL
   ToolCall MSStatus,0623	;29-Aug-90 DAL
   ToolCall SetBasicChannel,0923	;29-Aug-90 DAL
   ToolCall SetMIDIMode,0A23	;29-Aug-90 DAL
   ToolCall PlayNote,0B23	;29-Aug-90 DAL
   ToolCall StopNote,0C23	;29-Aug-90 DAL
   ToolCall KillAllNotes,0D23	;29-Aug-90 DAL
   ToolCall SetRecTrack,0E23	;29-Aug-90 DAL
   ToolCall SetPlayTrack,0F23	;29-Aug-90 DAL
   ToolCall TrackToChannel,1023	;29-Aug-90 DAL
   ToolCall Locate,1123	;29-Aug-90 DAL
   ToolCall SetVelComp,1223	;29-Aug-90 DAL
   ToolCall SetMIDIPort,1323	;29-Aug-90 DAL
   ToolCall SetInstrument,1423	;29-Aug-90 DAL
   ToolCall SeqPlayer,1523	;29-Aug-90 DAL
   ToolCall SetTempo,1623	;29-Aug-90 DAL
   ToolCall SetCallBack,1723	;29-Aug-90 DAL
   ToolCall SysExOut,1823	;29-Aug-90 DAL
   ToolCall SetBeat,1923	;29-Aug-90 DAL
   ToolCall MIDIMessage,1A23	;29-Aug-90 DAL
   ToolCall LocateEnd,1B23	;29-Aug-90 DAL
   ToolCall Merge,1C23	;29-Aug-90 DAL
   ToolCall DeleteTrack,1D23	;29-Aug-90 DAL
   ToolCall SetMetro,1E23	;29-Aug-90 DAL
   ToolCall GetMSData,1F23	;29-Aug-90 DAL
   ToolCall ConvertToTime,2023	;29-Aug-90 DAL
   ToolCall ConvertToMeasure,2123	;29-Aug-90 DAL
   ToolCall MSSuspend,2223	;29-Aug-90 DAL
   ToolCall MSResume,2323	;29-Aug-90 DAL
   ToolCall SetTuningTable,2423	;29-Aug-90 DAL
   ToolCall GetTuningTable,2523	;29-Aug-90 DAL
   ToolCall SetTrackOut,2623	;29-Aug-90 DAL
   ToolCall InitMIDIDriver,2723	;29-Aug-90 DAL
   ToolCall RemoveMIDIdriver,2823	;29-Aug-90 DAL

   if SpongeBoy then	;added 8-Feb-91 DAL
   ToolCall Animation,0025
   ToolCall AnimBootInit,0125
   ToolCall AnimStartUp,0225
   ToolCall AnimShutDown,0325
   ToolCall AnimVersion,0425
   ToolCall AnimReset,0525
   ToolCall AnimStatus,0625
   ToolCall AnimIdleDebug,0825
   ToolCall StartScene,0925
   ToolCall StopScene,0A25
   ToolCall StartFrameTimer,0B25
   ToolCall StopFrameTimer,0C25
   ToolCall SetBackGndPort,0D25
   ToolCall RefreshBack,0E25
   ToolCall StartChar,0F25
   ToolCall MoveChar,1025
   ToolCall GetCharRecPtr,1125
   ToolCall KillChar,1225
   ToolCall LoadActor,1325
   ToolCall SetCharScript,1425
   ToolCall RunAnimScripts,1525
   ToolCall FillAddrTable,1625
   ToolCall CompileRect,1725
   ToolCall StartTockTask,1825
   ToolCall FireTockTask,1925
   ToolCall SetForeGndPort,1A25
   ToolCall SetAnimWindow,1B25
   endif

   if SpongeBoy then	;added 8-Feb-91 DAL
   ToolCall MediaCtl,0026
   ToolCall MCBootInit,0126
   ToolCall MCStartUp,0226
   ToolCall MCShutDown,0326
   ToolCall MCVersion,0426
   ToolCall MCReset,0526
   ToolCall MCStatus,0626
   ToolCall MCGetErrorMsg,0926
   ToolCall MCLoadDriver,0A26
   ToolCall MCUnLoadDriver,0B26
   ToolCall MCTimeToBin,0C26
   ToolCall MCBinToTime,0D26
   ToolCall MCGetTrackTitle,0E26
   ToolCall MCSetTrackTitle,0F26
   ToolCall MCGetProgram,1026
   ToolCall MCSetProgram,1126
   ToolCall MCGetDiscTitle,1226
   ToolCall MCSetDiscTitle,1326
   ToolCall MCDStartUp,1426
   ToolCall MCDShutDown,1526
   ToolCall MCGetFeatures,1626
   ToolCall MCPlay,1726
   ToolCall MCPause,1826
   ToolCall MCSendRawData,1926
   ToolCall MCGetStatus,1A26
   ToolCall MCControl,1B26
   ToolCall MCScan,1C26
   ToolCall MCGetSpeeds,1D26
   ToolCall MCSpeed,1E26
   ToolCall MCStopAt,1F26
   ToolCall MCJogN,2026
   ToolCall MCSearchTo,2126
   ToolCall MCSearchDone,2226
   ToolCall MCSearchWait,2326
   ToolCall MCGetPosition,2426
   ToolCall MCSetAudio,2526
   ToolCall MCGetTimes,2626
   ToolCall MCGetDiscTOC,2726
   ToolCall MCGetDiscID,2826
   ToolCall MCGetNoTracks,2926
   ToolCall MCRecord,2A26
   ToolCall MCStop,2B26
   ToolCall MCWaitRawData,2C26
   ToolCall MCGetName,2D26
   ToolCall MCSetVolume,2E26
   endif

   ToolCall Debugger,00FF	;added DAL 29-Aug-90
   ToolCall DebugVersion,04FF	;29-Aug-90 DAL
   ToolCall DebugStatus,06FF	;29-Aug-90 DAL
   ToolCall DebugStr,09FF	;29-Aug-90 DAL
   ToolCall SetMileStone,0AFF	;29-Aug-90 DAL
   ToolCall DebugSetHook,0BFF	;2-Nov-90 DAL
   ToolCall DebugGetInfo,0CFF	;2-Nov-90 DAL
   ToolCall DebugControl,0DFF	;17-May-93 JCM
   ToolCall DebugQuery,0EFF	;17-May-93 JCM


Tool01  dc.w Tool01End-Tool01
    dc.w c0001		;29-Aug-90 DAL
    dc.w c0101     ; TLBootInit
    dc.w c0201     ; TLStartUp
    dc.w c0301     ; TLShutDown
    dc.w c0401     ; TLVersion
    dc.w c0501     ; TLReset
    dc.w c0601     ; TLStatus
    dc.w UnkStr		;DAL $0701
    dc.w UnkStr		;DAL $0801
    dc.w c0901     ; GetTSPtr
    dc.w c0A01     ; SetTSPtr
    dc.w c0B01     ; GetFuncPtr
    dc.w c0C01     ; GetWAP
    dc.w c0D01     ; SetWAP
    dc.w c0E01     ; LoadTools
    dc.w c0F01     ; LoadOneTool
    dc.w c1001     ; UnloadOneTool
    dc.w c1101     ; TLMountVolume
    dc.w c1201     ; TLTextMountVolume
    dc.w c1301     ; SaveTextState
    dc.w c1401     ; RestoreTextState
    dc.w c1501     ; MessageCenter
    dc.w c1601     ; SetDefaultTPT
    dc.w c1701     ; MessageByName
    dc.w c1801     ; StartUpTools
    dc.w c1901     ; ShutDownTools
    if SpongeBoy then	;added 8-Feb-91 DAL
    dc.w c1A01	; GetMsgHandle
    dc.w c1B01	; AcceptRequests
    dc.w c1C01	; SendRequest
    endif
Tool01End

Tool02  dc.w Tool02End-Tool02
    dc.w c0002		;29-Aug-90 DAL
    dc.w c0102     ; MMBootInit
    dc.w c0202     ; MMStartUp
    dc.w c0302     ; MMShutDown
    dc.w c0402     ; MMVersion
    dc.w c0502     ; MMReset
    dc.w c0602     ; MMStatus
    dc.w UnkStr		;DAL $0702
    dc.w UnkStr		;DAL $0802
    dc.w c0902     ; NewHandle
    dc.w c0A02     ; ReallocHandle
    dc.w c0B02     ; RestoreHandle
    dc.w c0C02     ; AddToOOMQueue
    dc.w c0D02     ; DeleteFromOOMQueue
    dc.w UnkStr		;DAL $0e02
    dc.w UnkStr		;DAL $0f02
    dc.w c1002     ; DisposeHandle
    dc.w c1102     ; DisposeAll
    dc.w c1202     ; PurgeHandle
    dc.w c1302     ; PurgeAll
    dc.w UnkStr		;DAL $1402
    dc.w UnkStr		;DAL $1502
    dc.w UnkStr		;DAL $1602
    dc.w UnkStr		;DAL $1702
    dc.w c1802     ; GetHandleSize
    dc.w c1902     ; SetHandleSize
    dc.w c1A02     ; FindHandle
    dc.w c1B02     ; FreeMem
    dc.w c1C02     ; MaxBlock
    dc.w c1D02     ; TotalMem
    dc.w c1E02     ; CheckHandle
    dc.w c1F02     ; CompactMem
    dc.w c2002     ; HLock
    dc.w c2102     ; HLockAll
    dc.w c2202     ; HUnlock
    dc.w c2302     ; HUnlockAll
    dc.w c2402     ; SetPurge
    dc.w c2502     ; SetPurgeAll
    dc.w UnkStr		;DAL $2602
    dc.w UnkStr		;DAL $2702
    dc.w c2802     ; PtrToHand
    dc.w c2902     ; HandToPtr
    dc.w c2A02     ; HandToHand
    dc.w c2B02     ; BlockMove
    dc.w UnkStr		;DAL $2C02
    dc.w UnkStr		;DAL $2D02
    dc.w UnkStr		;DAL $2E02
    dc.w c2F02     ; RealFreeMem
    if SpongeBoy then	;added 8-Feb-91 DAL
    dc.w c3002	; SetHandleID
    endif
Tool02End

Tool03  dc.w Tool03End-Tool03
    dc.w c0003		;29-Aug-90 DAL
    dc.w c0103     ; MTBootInit
    dc.w c0203     ; MTStartUp
    dc.w c0303     ; MTShutDown
    dc.w c0403     ; MTVersion
    dc.w c0503     ; MTReset
    dc.w c0603     ; MTStatus
    dc.w UnkStr		;DAL $0703
    dc.w UnkStr		;DAL $0803
    dc.w c0903     ; WriteBRam
    dc.w c0A03     ; ReadBRam
    dc.w c0B03     ; WriteBParam
    dc.w c0C03     ; ReadBParam
    dc.w c0D03     ; ReadTimeHex
    dc.w c0E03     ; WriteTimeHex
    dc.w c0F03     ; ReadAsciiTime
    dc.w c1003     ; SetVector
    dc.w c1103     ; GetVector
    dc.w c1203     ; SetHeartBeat
    dc.w c1303     ; DelHeartBeat
    dc.w c1403     ; ClrHeartBeat
    dc.w c1503     ; SysFailMgr
    dc.w c1603     ; GetAddr
    dc.w c1703     ; ReadMouse
    dc.w c1803     ; InitMouse
    dc.w c1903     ; SetMouse
    dc.w c1A03     ; HomeMouse
    dc.w c1B03     ; ClearMouse
    dc.w c1C03     ; ClampMouse
    dc.w c1D03     ; GetMouseClamp
    dc.w c1E03     ; PosMouse
    dc.w c1F03     ; ServeMouse
    dc.w c2003     ; GetNewID
    dc.w c2103     ; DeleteID
    dc.w c2203     ; StatusID
    dc.w c2303     ; IntSource
    dc.w c2403     ; FWEntry
    dc.w c2503     ; GetTick
    dc.w c2603     ; PackBytes
    dc.w c2703     ; UnPackBytes
    dc.w c2803     ; Munger
    dc.w c2903     ; GetIRQEnable
    dc.w c2A03     ; SetAbsClamp
    dc.w c2B03     ; GetAbsClamp
    dc.w c2C03     ; SysBeep
    dc.w UnkStr		;DAL $2D03
    dc.w c2E03     ; AddToQueue
    dc.w c2F03     ; DeleteFromQueue
    dc.w c3003     ; SetInterruptState
    dc.w c3103     ; GetInterruptState
    dc.w c3203     ; GetIntStateRecSize
    dc.w c3303     ; ReadMouse2
    dc.w c3403     ; GetCodeResConverter
    dc.w c3503     ; GetRomResource
    dc.w c3603     ; ReleaseRomResource ;29-Aug-90 DAL
    dc.w c3703     ; ConvSeconds	;29-Aug-90 DAL (for 5.0.3)
    if SpongeBoy then	;added 8-Feb-91 DAL
    dc.w c3803	; SysBeep2
    dc.w c3903	; VersionString
    dc.w c3A03	; WaitUntil
    dc.w c3B03	; StringToText
    dc.w c3C03	; ShowBootInfo	;30-Mar-91 DAL
    dc.w c3D03	; ScanDevices	;30-Mar-91 DAL
    endif
    if SpongeMan then
    dc.w c3E03	; AlertMessage	;20-Aug-92 DAL
    dc.w c3F03	; DoSysPrefs	;20-Aug-92 DAL
    endif

Tool03End

Tool04  dc.w Tool04End-Tool04
    dc.w c0004		;29-Aug-90 DAL
    dc.w c0104     ; QDBootInit
    dc.w c0204     ; QDStartUp
    dc.w c0304     ; QDShutDown
    dc.w c0404     ; QDVersion
    dc.w c0504     ; QDReset
    dc.w c0604     ; QDStatus
    dc.w UnkStr		;DAL $0704
    dc.w UnkStr		;DAL $0804
    dc.w c0904     ; GetAddress
    dc.w c0A04     ; GrafOn
    dc.w c0B04     ; GrafOff
    dc.w c0C04     ; GetStandardSCB
    dc.w c0D04     ; InitColorTable
    dc.w c0E04     ; SetColorTable
    dc.w c0F04     ; GetColorTable
    dc.w c1004     ; SetColorEntry
    dc.w c1104     ; GetColorEntry
    dc.w c1204     ; SetSCB
    dc.w c1304     ; GetSCB
    dc.w c1404     ; SetAllSCBs
    dc.w c1504     ; ClearScreen
    dc.w c1604     ; SetMasterSCB
    dc.w c1704     ; GetMasterSCB
    dc.w c1804     ; OpenPort
    dc.w c1904     ; InitPort
    dc.w c1A04     ; ClosePort
    dc.w c1B04     ; SetPort
    dc.w c1C04     ; GetPort
    dc.w c1D04     ; SetPortLoc
    dc.w c1E04     ; GetPortLoc
    dc.w c1F04     ; SetPortRect
    dc.w c2004     ; GetPortRect
    dc.w c2104     ; SetPortSize
    dc.w c2204     ; MovePortTo
    dc.w c2304     ; SetOrigin
    dc.w c2404     ; SetClip
    dc.w c2504     ; GetClip
    dc.w c2604     ; ClipRect
    dc.w c2704     ; HidePen
    dc.w c2804     ; ShowPen
    dc.w c2904     ; GetPen
    dc.w c2A04     ; SetPenState
    dc.w c2B04     ; GetPenState
    dc.w c2C04     ; SetPenSize
    dc.w c2D04     ; GetPenSize
    dc.w c2E04     ; SetPenMode
    dc.w c2F04     ; GetPenMode
    dc.w c3004     ; SetPenPat
    dc.w c3104     ; GetPenPat
    dc.w c3204     ; SetPenMask
    dc.w c3304     ; GetPenMask
    dc.w c3404     ; SetBackPat
    dc.w c3504     ; GetBackPat
    dc.w c3604     ; PenNormal
    dc.w c3704     ; SetSolidPenPat
    dc.w c3804     ; SetSolidBackPat
    dc.w c3904     ; SolidPattern
    dc.w c3A04     ; MoveTo
    dc.w c3B04     ; Move
    dc.w c3C04     ; LineTo
    dc.w c3D04     ; Line
    dc.w c3E04     ; SetPicSave
    dc.w c3F04     ; GetPicSave
    dc.w c4004     ; SetRgnSave
    dc.w c4104     ; GetRgnSave
    dc.w c4204     ; SetPolySave
    dc.w c4304     ; GetPolySave
    dc.w c4404     ; SetGrafProcs
    dc.w c4504     ; GetGrafProcs
    dc.w c4604     ; SetUserField
    dc.w c4704     ; GetUserField
    dc.w c4804     ; SetSysField
    dc.w c4904     ; GetSysField
    dc.w c4A04     ; SetRect
    dc.w c4B04     ; OffsetRect
    dc.w c4C04     ; InsetRect
    dc.w c4D04     ; SectRect
    dc.w c4E04     ; UnionRect
    dc.w c4F04     ; PtInRect
    dc.w c5004     ; Pt2Rect
    dc.w c5104     ; EqualRect
    dc.w c5204     ; NotEmptyRect
    dc.w c5304     ; FrameRect
    dc.w c5404     ; PaintRect
    dc.w c5504     ; EraseRect
    dc.w c5604     ; InvertRect
    dc.w c5704     ; FillRect
    dc.w c5804     ; FrameOval
    dc.w c5904     ; PaintOval
    dc.w c5A04     ; EraseOval
    dc.w c5B04     ; InvertOval
    dc.w c5C04     ; FillOval
    dc.w c5D04     ; FrameRRect
    dc.w c5E04     ; PaintRRect
    dc.w c5F04     ; EraseRRect
    dc.w c6004     ; InvertRRect
    dc.w c6104     ; FillRRect
    dc.w c6204     ; FrameArc
    dc.w c6304     ; PaintArc
    dc.w c6404     ; EraseArc
    dc.w c6504     ; InvertArc
    dc.w c6604     ; FillArc
    dc.w c6704     ; NewRgn
    dc.w c6804     ; DisposeRgn
    dc.w c6904     ; CopyRgn
    dc.w c6A04     ; SetEmptyRgn
    dc.w c6B04     ; SetRectRgn
    dc.w c6C04     ; RectRgn
    dc.w c6D04     ; OpenRgn
    dc.w c6E04     ; CloseRgn
    dc.w c6F04     ; OffsetRgn
    dc.w c7004     ; InsetRgn
    dc.w c7104     ; SectRgn
    dc.w c7204     ; UnionRgn
    dc.w c7304     ; DiffRgn
    dc.w c7404     ; XorRgn
    dc.w c7504     ; PtInRgn
    dc.w c7604     ; RectInRgn
    dc.w c7704     ; EqualRgn
    dc.w c7804     ; EmptyRgn
    dc.w c7904     ; FrameRgn
    dc.w c7A04     ; PaintRgn
    dc.w c7B04     ; EraseRgn
    dc.w c7C04     ; InvertRgn
    dc.w c7D04     ; FillRgn
    dc.w c7E04     ; ScrollRect
    dc.w c7F04     ; PaintPixels
    dc.w c8004     ; AddPt
    dc.w c8104     ; SubPt
    dc.w c8204     ; SetPt
    dc.w c8304     ; EqualPt
    dc.w c8404     ; LocalToGlobal
    dc.w c8504     ; GlobalToLocal
    dc.w c8604     ; Random
    dc.w c8704     ; SetRandSeed
    dc.w c8804     ; GetPixel
    dc.w c8904     ; ScalePt
    dc.w c8A04     ; MapPt
    dc.w c8B04     ; MapRect
    dc.w c8C04     ; MapRgn
    dc.w c8D04     ; SetStdProcs
    dc.w c8E04     ; SetCursor
    dc.w c8F04     ; GetCursorAdr
    dc.w c9004     ; HideCursor
    dc.w c9104     ; ShowCursor
    dc.w c9204     ; ObscureCursor
    dc.w UnkStr		;DAL $9304 (SetMouseLoc?)
    dc.w c9404     ; SetFont
    dc.w c9504     ; GetFont
    dc.w c9604     ; GetFontInfo
    dc.w c9704     ; GetFontGlobals
    dc.w c9804     ; SetFontFlags
    dc.w c9904     ; GetFontFlags
    dc.w c9A04     ; SetTextFace
    dc.w c9B04     ; GetTextFace
    dc.w c9C04     ; SetTextMode
    dc.w c9D04     ; GetTextMode
    dc.w c9E04     ; SetSpaceExtra
    dc.w c9F04     ; GetSpaceExtra
    dc.w cA004     ; SetForeColor
    dc.w cA104     ; GetForeColor
    dc.w cA204     ; SetBackColor
    dc.w cA304     ; GetBackColor
    dc.w cA404     ; DrawChar
    dc.w cA504     ; DrawString
    dc.w cA604     ; DrawCString
    dc.w cA704     ; DrawText
    dc.w cA804     ; CharWidth
    dc.w cA904     ; StringWidth
    dc.w cAA04     ; CStringWidth
    dc.w cAB04     ; TextWidth
    dc.w cAC04     ; CharBounds
    dc.w cAD04     ; StringBounds
    dc.w cAE04     ; CStringBounds
    dc.w cAF04     ; TextBounds
    dc.w cB004     ; SetArcRot
    dc.w cB104     ; GetArcRot
    dc.w cB204     ; SetSysFont
    dc.w cB304     ; GetSysFont
    dc.w cB404     ; SetVisRgn
    dc.w cB504     ; GetVisRgn
    dc.w cB604     ; SetIntUse
    dc.w cB704     ; OpenPicture
    dc.w cB804     ; PicComment
    dc.w cB904     ; ClosePicture
    dc.w cBA04     ; DrawPicture
    dc.w cBB04     ; KillPicture
    dc.w cBC04     ; FramePoly
    dc.w cBD04     ; PaintPoly
    dc.w cBE04     ; ErasePoly
    dc.w cBF04     ; InvertPoly
    dc.w cC004     ; FillPoly
    dc.w cC104     ; OpenPoly
    dc.w cC204     ; ClosePoly
    dc.w cC304     ; KillPoly
    dc.w cC404     ; OffsetPoly
    dc.w cC504     ; MapPoly
    dc.w cC604     ; SetClipHandle
    dc.w cC704     ; GetClipHandle
    dc.w cC804     ; SetVisHandle
    dc.w cC904     ; GetVisHandle
    dc.w cCA04     ; InitCursor
    dc.w cCB04     ; SetBufDims
    dc.w cCC04     ; ForceBufDims
    dc.w cCD04     ; SaveBufDims
    dc.w cCE04     ; RestoreBufDims
    dc.w cCF04     ; GetFGSize
    dc.w cD004     ; SetFontID
    dc.w cD104     ; GetFontID
    dc.w cD204     ; SetTextSize
    dc.w cD304     ; GetTextSize
    dc.w cD404     ; SetCharExtra
    dc.w cD504     ; GetCharExtra
    dc.w cD604     ; PPToPort
    dc.w cD704     ; InflateTextBuffer
    dc.w cD804     ; GetROMFont
    dc.w cD904     ; GetFontLore
    if SpongeBoy then	;added 8-Feb-91 DAL
    dc.w cDA04	; Get640Colors
    dc.w cDB04	; Set640Colors
    endif
Tool04End

Tool05  dc.w Tool05End-Tool05
    dc.w c0005		;29-Aug-90 DAL
    dc.w c0105     ; DeskBootInit
    dc.w c0205     ; DeskStartUp
    dc.w c0305     ; DeskShutDown
    dc.w c0405     ; DeskVersion
    dc.w c0505     ; DeskReset
    dc.w c0605     ; DeskStatus
    dc.w UnkStr		;DAL $0705
    dc.w UnkStr		;DAL $0805
    dc.w c0905     ; SaveScrn
    dc.w c0A05     ; RestScrn
    dc.w c0B05     ; SaveAll
    dc.w c0C05     ; RestAll
    dc.w UnkStr		;DAL $0D05
    dc.w c0E05     ; InstallNDA
    dc.w c0F05     ; InstallCDA
    dc.w UnkStr		;DAL $1005
    dc.w c1105     ; ChooseCDA
    dc.w UnkStr		;DAL $1205
    dc.w c1305     ; SetDAStrPtr
    dc.w c1405     ; GetDAStrPtr
    dc.w c1505     ; OpenNDA
    dc.w c1605     ; CloseNDA
    dc.w c1705     ; SystemClick
    dc.w c1805     ; SystemEdit
    dc.w c1905     ; SystemTask
    dc.w c1A05     ; SystemEvent
    dc.w c1B05     ; GetNumNDAs
    dc.w c1C05     ; CloseNDAByWinPtr
    dc.w c1D05     ; CloseAllNDAs
    dc.w c1E05     ; FixAppleMenu
    dc.w c1F05     ; AddToRunQ
    dc.w c2005     ; RemoveFromRunQ
    dc.w c2105     ; RemoveCDA
    dc.w c2205     ; RemoveNDA
    if SpongeBoy then	;added 8-Feb-91 DAL
    dc.w c2305	; GetIndDAInfo
    dc.w c2405	; CallDeskAcc
    dc.w c2505	; GetDeskGlobal
    endif
Tool05End

Tool06  dc.w Tool06End-Tool06
    dc.w c0006		;29-Aug-90 DAL
    dc.w c0106     ; EMBootInit
    dc.w c0206     ; EMStartUp
    dc.w c0306     ; EMShutDown
    dc.w c0406     ; EMVersion
    dc.w c0506     ; EMReset
    dc.w c0606     ; EMStatus
    dc.w UnkStr		;DAL $0706
    dc.w UnkStr		;DAL $0806
    dc.w c0906     ; DoWindows
    dc.w c0A06     ; GetNextEvent
    dc.w c0B06     ; EventAvail
    dc.w c0C06     ; GetMouse
    dc.w c0D06     ; Button
    dc.w c0E06     ; StillDown
    dc.w c0F06     ; WaitMouseUp
    dc.w c1006     ; TickCount
    dc.w c1106     ; GetDblTime
    dc.w c1206     ; GetCaretTime
    dc.w c1306     ; SetSwitch
    dc.w c1406     ; PostEvent
    dc.w c1506     ; FlushEvents
    dc.w c1606     ; GetOSEvent
    dc.w c1706     ; OSEventAvail
    dc.w c1806     ; SetEventMask
    dc.w c1906     ; FakeMouse
    dc.w c1A06     ; SetAutoKeyLimit
    dc.w c1B06     ; GetKeyTranslation
    dc.w c1C06     ; SetKeyTranslation
Tool06End

Tool07  dc.w Tool07End-Tool07
    dc.w c0007		;29-Aug-90 DAL
    dc.w c0107     ; SchBootInit
    dc.w c0207     ; SchStartUp
    dc.w c0307     ; SchShutDown
    dc.w c0407     ; SchVersion
    dc.w c0507     ; SchReset
    dc.w c0607     ; SchStatus
    dc.w UnkStr		;DAL $0707
    dc.w UnkStr		;DAL $0807
    dc.w c0907     ; SchAddTask
    dc.w c0A07     ; SchFlush
Tool07End

Tool08  dc.w Tool08End-Tool08
    dc.w c0008		;29-Aug-90 DAL
    dc.w c0108     ; SoundBootInit
    dc.w c0208     ; SoundStartUp
    dc.w c0308     ; SoundShutDown
    dc.w c0408     ; SoundVersion
    dc.w c0508     ; SoundReset
    dc.w c0608     ; SoundToolStatus
    dc.w UnkStr		;DAL $0708
    dc.w UnkStr		;DAL $0808
    dc.w c0908     ; WriteRamBlock
    dc.w c0A08     ; ReadRamBlock
    dc.w c0B08     ; GetTableAddress
    dc.w c0C08     ; GetSoundVolume
    dc.w c0D08     ; SetSoundVolume
    dc.w c0E08     ; FFStartSound
    dc.w c0F08     ; FFStopSound
    dc.w c1008     ; FFSoundStatus
    dc.w c1108     ; FFGeneratorStatus
    dc.w c1208     ; SetSoundMIRQV
    dc.w c1308     ; SetUserSoundIRQV
    dc.w c1408     ; FFSoundDoneStatus
    dc.w c1508     ; FFSetUpSound
    dc.w c1608     ; FFStartPlaying
    dc.w c1708     ; SetDOCReg
    dc.w c1808     ; ReadDOCReg
Tool08End

Tool09  dc.w Tool09End-Tool09
    dc.w c0009		;29-Aug-90 DAL
    dc.w c0109     ; ADBBootInit
    dc.w c0209     ; ADBStartUp
    dc.w c0309     ; ADBShutDown
    dc.w c0409     ; ADBVersion
    dc.w c0509     ; ADBReset
    dc.w c0609     ; ADBStatus
    dc.w UnkStr		;DAL $0709
    dc.w UnkStr		;DAL $0809
    dc.w c0909     ; SendInfo
    dc.w c0A09     ; ReadKeyMicroData
    dc.w c0B09     ; ReadKeyMicroMem
    dc.w UnkStr		;DAL $0C09
    dc.w c0D09     ; AsyncADBReceive
    dc.w c0E09     ; SyncADBReceive
    dc.w c0F09     ; AbsOn
    dc.w c1009     ; AbsOff
    dc.w c1109     ; ReadAbs
    dc.w c1209     ; SetAbsScale
    dc.w c1309     ; GetAbsScale
    dc.w c1409     ; SRQPoll
    dc.w c1509     ; SRQRemove
    dc.w c1609     ; ClearSRQTable
Tool09End

Tool0A  dc.w Tool0AEnd-Tool0A
    dc.w c000A		;29-Aug-90 DAL
    dc.w c010A     ; SANEBootInit	;29-Aug-90 DAL
    dc.w c020A     ; SANEStartUp	;29-Aug-90 DAL
    dc.w c030A     ; SANEShutDown	;29-Aug-90 DAL
    dc.w c040A     ; SANEVersion	;29-Aug-90 DAL
    dc.w c050A     ; SANEReset	;29-Aug-90 DAL
    dc.w c060A     ; SANEStatus	;29-Aug-90 DAL
    dc.w UnkStr    ; $070A	;29-Aug-90 DAL
    dc.w UnkStr    ; $080A	;29-Aug-90 DAL
    dc.w c090A     ; FPNum	;29-Aug-90 DAL
    dc.w c0A0A     ; DecStrNum	;29-Aug-90 DAL
    dc.w c0B0A     ; ElemNum	;29-Aug-90 DAL
Tool0AEnd

Tool0B  dc.w Tool0BEnd-Tool0B
    dc.w c000B		;29-Aug-90 DAL
    dc.w c010B     ; IMBootInit
    dc.w c020B     ; IMStartUp
    dc.w c030B     ; IMShutDown
    dc.w c040B     ; IMVersion
    dc.w c050B     ; IMReset
    dc.w c060B     ; IMStatus
    dc.w UnkStr		;DAL $070B
    dc.w UnkStr		;DAL $080B
    dc.w c090B     ; Multiply
    dc.w c0A0B     ; SDivide
    dc.w c0B0B     ; UDivide
    dc.w c0C0B     ; LongMul
    dc.w c0D0B     ; LongDivide
    dc.w c0E0B     ; FixRatio
    dc.w c0F0B     ; FixMul
    dc.w c100B     ; FracMul
    dc.w c110B     ; FixDiv
    dc.w c120B     ; FracDiv
    dc.w c130B     ; FixRound
    dc.w c140B     ; FracSqrt
    dc.w c150B     ; FracCos
    dc.w c160B     ; FracSin
    dc.w c170B     ; FixATan2
    dc.w c180B     ; HiWord
    dc.w c190B     ; LoWord
    dc.w c1A0B     ; Long2Fix
    dc.w c1B0B     ; Fix2Long
    dc.w c1C0B     ; Fix2Frac
    dc.w c1D0B     ; Frac2Fix
    dc.w c1E0B     ; Fix2X
    dc.w c1F0B     ; Frac2X
    dc.w c200B     ; X2Fix
    dc.w c210B     ; X2Frac
    dc.w c220B     ; Int2Hex
    dc.w c230B     ; Long2Hex
    dc.w c240B     ; Hex2Int
    dc.w c250B     ; Hex2Long
    dc.w c260B     ; Int2Dec
    dc.w c270B     ; Long2Dec
    dc.w c280B     ; Dec2Int
    dc.w c290B     ; Dec2Long
    dc.w c2A0B     ; HexIt
Tool0BEnd

Tool0C  dc.w Tool0CEnd-Tool0C
    dc.w c000C		;29-Aug-90 DAL
    dc.w c010C     ; TextBootInit
    dc.w c020C     ; TextStartUp
    dc.w c030C     ; TextShutDown
    dc.w c040C     ; TextVersion
    dc.w c050C     ; TextReset
    dc.w c060C     ; TextStatus
    dc.w UnkStr		;DAL $070C
    dc.w UnkStr		;DAL $080C
    dc.w c090C     ; SetInGlobals
    dc.w c0A0C     ; SetOutGlobals
    dc.w c0B0C     ; SetErrGlobals
    dc.w c0C0C     ; GetInGlobals
    dc.w c0D0C     ; GetOutGlobals
    dc.w c0E0C     ; GetErrGlobals
    dc.w c0F0C     ; SetInputDevice
    dc.w c100C     ; SetOutputDevice
    dc.w c110C     ; SetErrorDevice
    dc.w c120C     ; GetInputDevice
    dc.w c130C     ; GetOutputDevice
    dc.w c140C     ; GetErrorDevice
    dc.w c150C     ; InitTextDev
    dc.w c160C     ; CtlTextDev
    dc.w c170C     ; StatusTextDev
    dc.w c180C     ; WriteChar
    dc.w c190C     ; ErrWriteChar
    dc.w c1A0C     ; WriteLine
    dc.w c1B0C     ; ErrWriteLine
    dc.w c1C0C     ; WriteString
    dc.w c1D0C     ; ErrWriteString
    dc.w c1E0C     ; TextWriteBlock
    dc.w c1F0C     ; ErrWriteBlock
    dc.w c200C     ; WriteCString
    dc.w c210C     ; ErrWriteCString
    dc.w c220C     ; ReadChar
    dc.w c230C     ; TextReadBlock
    dc.w c240C     ; ReadLine
Tool0CEnd

Tool0D  dc.w Tool0DEnd-Tool0D
Tool0DEnd

Tool0E  dc.w Tool0EEnd-Tool0E
    dc.w c000E		;29-Aug-90 DAL
    dc.w c010E     ; WindBootInit
    dc.w c020E     ; WindStartUp
    dc.w c030E     ; WindShutDown
    dc.w c040E     ; WindVersion
    dc.w c050E     ; WindReset
    dc.w c060E     ; WindStatus
    dc.w UnkStr		;DAL $070E
    dc.w UnkStr		;DAL $080E
    dc.w c090E     ; NewWindow
    dc.w c0A0E     ; CheckUpdate
    dc.w c0B0E     ; CloseWindow
    dc.w c0C0E     ; Desktop
    dc.w c0D0E     ; SetWTitle
    dc.w c0E0E     ; GetWTitle
    dc.w c0F0E     ; SetFrameColor
    dc.w c100E     ; GetFrameColor
    dc.w c110E     ; SelectWindow
    dc.w c120E     ; HideWindow
    dc.w c130E     ; ShowWindow
    dc.w c140E     ; SendBehind
    dc.w c150E     ; FrontWindow
    dc.w c160E     ; SetInfoDraw
    dc.w c170E     ; FindWindow
    dc.w c180E     ; TrackGoAway
    dc.w c190E     ; MoveWindow
    dc.w c1A0E     ; DragWindow
    dc.w c1B0E     ; GrowWindow
    dc.w c1C0E     ; SizeWindow
    dc.w c1D0E     ; TaskMaster
    dc.w c1E0E     ; BeginUpdate
    dc.w c1F0E     ; EndUpdate
    dc.w c200E     ; GetWMgrPort
    dc.w c210E     ; PinRect
    dc.w c220E     ; HiliteWindow
    dc.w c230E     ; ShowHide
    dc.w c240E     ; BringToFront
    dc.w c250E     ; WindNewRes
    dc.w c260E     ; TrackZoom
    dc.w c270E     ; ZoomWindow
    dc.w c280E     ; SetWRefCon
    dc.w c290E     ; GetWRefCon
    dc.w c2A0E     ; GetNextWindow
    dc.w c2B0E     ; GetWKind
    dc.w c2C0E     ; GetWFrame
    dc.w c2D0E     ; SetWFrame
    dc.w c2E0E     ; GetStructRgn
    dc.w c2F0E     ; GetContentRgn
    dc.w c300E     ; GetUpdateRgn
    dc.w c310E     ; GetDefProc
    dc.w c320E     ; SetDefProc
    dc.w c330E     ; GetWControls
    dc.w c340E     ; SetOriginMask
    dc.w c350E     ; GetInfoRefCon
    dc.w c360E     ; SetInfoRefCon
    dc.w c370E     ; GetZoomRect
    dc.w c380E     ; SetZoomRect
    dc.w c390E     ; RefreshDesktop
    dc.w c3A0E     ; InvalRect
    dc.w c3B0E     ; InvalRgn
    dc.w c3C0E     ; ValidRect
    dc.w c3D0E     ; ValidRgn
    dc.w c3E0E     ; GetContentOrigin
    dc.w c3F0E     ; SetContentOrigin
    dc.w c400E     ; GetDataSize
    dc.w c410E     ; SetDataSize
    dc.w c420E     ; GetMaxGrow
    dc.w c430E     ; SetMaxGrow
    dc.w c440E     ; GetScroll
    dc.w c450E     ; SetScroll
    dc.w c460E     ; GetPage
    dc.w c470E     ; SetPage
    dc.w c480E     ; GetContentDraw
    dc.w c490E     ; SetContentDraw
    dc.w c4A0E     ; GetInfoDraw
    dc.w c4B0E     ; SetSysWindow
    dc.w c4C0E     ; GetSysWFlag
    dc.w c4D0E     ; StartDrawing
    dc.w c4E0E     ; SetWindowIcons
    dc.w c4F0E     ; GetRectInfo
    dc.w c500E     ; StartInfoDrawing
    dc.w c510E     ; EndInfoDrawing
    dc.w c520E     ; GetFirstWindow
    dc.w c530E     ; WindDragRect
    dc.w UnkStr		;DAL $540E
    dc.w c550E     ; DrawInfoBar
    dc.w c560E     ; WindowGlobal
    dc.w c570E     ; SetContentOrigin2
    dc.w c580E     ; GetWindowMgrGlobals
    dc.w c590E     ; AlertWindow
    dc.w c5A0E     ; StartFrameDrawing
    dc.w c5B0E     ; EndFrameDrawing
    dc.w c5C0E     ; ResizeWindow
    dc.w c5D0E     ; TaskMasterContent 29-Aug-90 DAL
    dc.w c5E0E     ; TaskMasterKey     29-Aug-90 DAL
    dc.w c5F0E     ; TaskMasterDA
    dc.w c600E     ; CompileText
    dc.w c610E     ; NewWindow2
    dc.w c620E     ; ErrorWindow
    if SpongeBoy then	;added 8-Feb-91 DAL
    dc.w c630E	; GetAuxWindInfo
    dc.w c640E	; DoModalWindow
    dc.w c650E	; MWGetCtlPart
    dc.w c660E	; MWSetMenuProc
    dc.w c670E	; MWStdDrawProc
    dc.w c680E	; MWSetUpEditMenu
    dc.w c690E	; FindCursorCtl
    dc.w c6A0E	; ResizeInfoBar
    dc.w c6B0E	; HandleDiskInsert
    endif
    if SpongeMan then
    dc.w c6C0E	; UpdateWindow
    endif
Tool0EEnd

Tool0F  dc.w Tool0FEnd-Tool0F
    dc.w c000F		;29-Aug-90 DAL
    dc.w c010F     ; MenuBootInit
    dc.w c020F     ; MenuStartUp
    dc.w c030F     ; MenuShutDown
    dc.w c040F     ; MenuVersion
    dc.w c050F     ; MenuReset
    dc.w c060F     ; MenuStatus
    dc.w UnkStr		;DAL $070F
    dc.w UnkStr		;DAL $080F
    dc.w c090F     ; MenuKey
    dc.w c0A0F     ; GetMenuBar
    dc.w c0B0F     ; MenuRefresh
    dc.w c0C0F     ; FlashMenuBar
    dc.w c0D0F     ; InsertMenu
    dc.w c0E0F     ; DeleteMenu
    dc.w c0F0F     ; InsertMItem
    dc.w c100F     ; DeleteMItem
    dc.w c110F     ; GetSysBar
    dc.w c120F     ; SetSysBar
    dc.w c130F     ; FixMenuBar
    dc.w c140F     ; CountMItems
    dc.w c150F     ; NewMenuBar
    dc.w c160F     ; GetMHandle
    dc.w c170F     ; SetBarColors
    dc.w c180F     ; GetBarColors
    dc.w c190F     ; SetMTitleStart
    dc.w c1A0F     ; GetMTitleStart
    dc.w c1B0F     ; GetMenuMgrPort
    dc.w c1C0F     ; CalcMenuSize
    dc.w c1D0F     ; SetMTitleWidth
    dc.w c1E0F     ; GetMTitleWidth
    dc.w c1F0F     ; SetMenuFlag
    dc.w c200F     ; GetMenuFlag
    dc.w c210F     ; SetMenuTitle
    dc.w c220F     ; GetMenuTitle
    dc.w c230F     ; MenuGlobal
    dc.w c240F     ; SetMItem
    dc.w c250F     ; GetMItem
    dc.w c260F     ; SetMItemFlag
    dc.w c270F     ; GetMItemFlag
    dc.w c280F     ; SetMItemBlink
    dc.w c290F     ; MenuNewRes
    dc.w c2A0F     ; DrawMenuBar
    dc.w c2B0F     ; MenuSelect
    dc.w c2C0F     ; HiliteMenu
    dc.w c2D0F     ; NewMenu
    dc.w c2E0F     ; DisposeMenu
    dc.w c2F0F     ; InitPalette
    dc.w c300F     ; EnableMItem
    dc.w c310F     ; DisableMItem
    dc.w c320F     ; CheckMItem
    dc.w c330F     ; SetMItemMark
    dc.w c340F     ; GetMItemMark
    dc.w c350F     ; SetMItemStyle
    dc.w c360F     ; GetMItemStyle
    dc.w c370F     ; SetMenuID
    dc.w c380F     ; SetMItemID
    dc.w c390F     ; SetMenuBar
    dc.w c3A0F     ; SetMItemName
    dc.w c3B0F     ; GetPopUpDefProc
    dc.w c3C0F     ; PopUpMenuSelect
    dc.w c3D0F     ; DrawPopUp
    dc.w c3E0F     ; NewMenu2
    dc.w c3F0F     ; InsertMItem2
    dc.w c400F     ; SetMenuTitle2
    dc.w c410F     ; SetMItem2
    dc.w c420F     ; SetMItemName2
    dc.w c430F     ; NewMenuBar2
    dc.w UnkStr		;DAL $440F
    dc.w c450F     ; HideMenuBar
    dc.w c460F     ; ShowMenuBar
    if SpongeBoy then	;added 8-Feb-91 DAL
    dc.w c470F	; SetMItemIcon
    dc.w c480F	; GetMItemIcon
    dc.w c490F	; SetMItemStruct
    dc.w c4A0F	; GetMItemStruct
    dc.w c4B0F	; RemoveMItemStruct
    dc.w c4C0F	; GetMItemFlag2
    dc.w c4D0F	; SetMItemFlag2
    dc.w c4E0F	; GetMItemWidth?
    dc.w c4F0F	; GetMItemBlink
    dc.w c500F	; InsertPathMItems
    endif
Tool0FEnd

Tool10  dc.w Tool10End-Tool10
    dc.w c0010		;29-Aug-90 DAL
    dc.w c0110     ; CtlBootInit
    dc.w c0210     ; CtlStartUp
    dc.w c0310     ; CtlShutDown
    dc.w c0410     ; CtlVersion
    dc.w c0510     ; CtlReset
    dc.w c0610     ; CtlStatus
    dc.w UnkStr		;DAL $0710
    dc.w UnkStr		;DAL $0810
    dc.w c0910     ; NewControl
    dc.w c0A10     ; DisposeControl
    dc.w c0B10     ; KillControls
    dc.w c0C10     ; SetCtlTitle
    dc.w c0D10     ; GetCtlTitle
    dc.w c0E10     ; HideControl
    dc.w c0F10     ; ShowControl
    dc.w c1010     ; DrawControls
    dc.w c1110     ; HiliteControl
    dc.w c1210     ; CtlNewRes
    dc.w c1310     ; FindControl
    dc.w c1410     ; TestControl
    dc.w c1510     ; TrackControl
    dc.w c1610     ; MoveControl
    dc.w c1710     ; DragControl
    dc.w c1810     ; SetCtlIcons
    dc.w c1910     ; SetCtlValue
    dc.w c1A10     ; GetCtlValue
    dc.w c1B10     ; SetCtlParams
    dc.w c1C10     ; GetCtlParams
    dc.w c1D10     ; DragRect
    dc.w c1E10     ; GrowSize
    dc.w c1F10     ; GetCtlDPage
    dc.w c2010     ; SetCtlAction
    dc.w c2110     ; GetCtlAction
    dc.w c2210     ; SetCtlRefCon
    dc.w c2310     ; GetCtlRefCon
    dc.w c2410     ; EraseControl
    dc.w c2510     ; DrawOneCtl
    dc.w c2610     ; FindTargetCtl
    dc.w c2710     ; MakeNextCtlTarget
    dc.w c2810     ; MakeThisCtlTarget
    dc.w c2910     ; SendEventToCtl
    dc.w c2A10     ; GetCtlID
    dc.w c2B10     ; SetCtlID
    dc.w c2C10     ; CallCtlDefProc
    dc.w c2D10     ; NotifyControls
    dc.w c2E10     ; GetCtlMoreFlags
    dc.w c2F10     ; SetCtlMoreFlags
    dc.w c3010     ; GetCtlHandleFromID
    dc.w c3110     ; NewControl2
    dc.w c3210     ; CMLoadResource
    dc.w c3310     ; CMReleaseResource
    dc.w c3410     ; SetCtlParamPtr
    dc.w c3510     ; GetCtlParamPtr
    dc.w c3610     ; Internal (FutzControls) 29-Aug-90 DAL
    dc.w c3710     ; InvalCtls
    dc.w c3810     ; Internal (UnloadSegments?) 29-Aug-90 DAL
    if SpongeBoy then	;added 8-Feb-91 DAL
    dc.w c3910	; FindRadioButton
    dc.w c3A10	; SetLETextByID
    dc.w c3B10	; GetLETextByID
    endif
    if SpongeMan then
    dc.w c3C10	; SetCtlValueByID
    dc.w c3D10	; GetCtlValueByID
    dc.w c3E10	; InvalOneCtlByID
    dc.w c3F10	; HiliteCtlByID
    endif
Tool10End

Tool11  dc.w Tool11End-Tool11
    dc.w c0011		;29-Aug-90 DAL
    dc.w c0111     ; LoaderInitialization
    dc.w c0211     ; LoaderStartUp
    dc.w c0311     ; LoaderShutDown
    dc.w c0411     ; LoaderVersion
    dc.w c0511     ; LoaderReset
    dc.w c0611     ; LoaderStatus
    dc.w UnkStr		;DAL $0711
    dc.w UnkStr		;DAL $0811
    dc.w c0911     ; InitialLoad
    dc.w c0A11     ; Restart
    dc.w c0B11     ; LoadSegNum
    dc.w c0C11     ; UnloadSegNum
    dc.w c0D11     ; LoadSegName
    dc.w c0E11     ; UnloadSeg
    dc.w c0F11     ; GetLoadSegInfo
    dc.w c1011     ; GetUserID
    dc.w c1111     ; LGetPathname
    dc.w c1211     ; UserShutDown
    dc.w c1311     ; RenamePathname
    dc.w UnkStr		;DAL $1411
    dc.w UnkStr		;DAL $1511
    dc.w UnkStr		;DAL $1611
    dc.w UnkStr		;DAL $1711
    dc.w UnkStr		;DAL $1811
    dc.w UnkStr		;DAL $1911
    dc.w UnkStr		;DAL $1A11
    dc.w UnkStr		;DAL $1B11
    dc.w UnkStr		;DAL $1C11
    dc.w UnkStr		;DAL $1D11
    dc.w UnkStr		;DAL $1E11
    dc.w UnkStr		;DAL $1F11
    dc.w c2011     ; InitialLoad2
    dc.w c2111     ; GetUserID2
    dc.w c2211     ; LGetPathname2
Tool11End

Tool12  dc.w Tool12End-Tool12
    dc.w c0012		;29-Aug-90 DAL
    dc.w c0112     ; QDAuxBootInit
    dc.w c0212     ; QDAuxStartUp
    dc.w c0312     ; QDAuxShutDown
    dc.w c0412     ; QDAuxVersion
    dc.w c0512     ; QDAuxReset
    dc.w c0612     ; QDAuxStatus
    dc.w UnkStr		;DAL $0712
    dc.w UnkStr		;DAL $0812
    dc.w c0912     ; CopyPixels
    dc.w c0A12     ; WaitCursor
    dc.w c0B12     ; DrawIcon
    dc.w c0C12     ; SpecialRect
    dc.w c0D12     ; SeedFill
    dc.w c0E12     ; CalcMask
    if SpongeBoy then	;added 8-Feb-91 DAL
    dc.w c0F12	; GetSysIcon
    dc.w c1012	; PixelMap2Rgn
    dc.w UnkStr	; previously NewPort--unused
    dc.w UnkStr	; previously KillPort--unused
    dc.w c1312	; IBeamCursor
    dc.w c1412	; WhooshRect
    endif
    if SpongeMan then
    dc.w c1512	; DrawStringWidth
    dc.w c1612	; UseColorTable 	;28-Mar-93 JCM
    dc.w c1712	; RestoreColorTable ;28-Mar-93 JCM    
   endif
Tool12End

Tool13  dc.w Tool13End-Tool13
    dc.w c0013		;29-Aug-90 DAL
    dc.w c0113     ; PMBootInit
    dc.w c0213     ; PMStartUp
    dc.w c0313     ; PMShutDown
    dc.w c0413     ; PMVersion
    dc.w c0513     ; PMReset
    dc.w c0613     ; PMStatus
    dc.w UnkStr		;DAL $0713
    dc.w UnkStr		;DAL $0813
    dc.w c0913     ; PrDefault
    dc.w c0A13     ; PrValidate
    dc.w c0B13     ; PrStlDialog
    dc.w c0C13     ; PrJobDialog
    dc.w c0D13     ; PrPixelMap
    dc.w c0E13     ; PrOpenDoc
    dc.w c0F13     ; PrCloseDoc
    dc.w c1013     ; PrOpenPage
    dc.w c1113     ; PrClosePage
    dc.w c1213     ; PrPicFile
    dc.w UnkStr		;DAL $1313
    dc.w c1413     ; PrError
    dc.w c1513     ; PrSetError
    dc.w c1613     ; PrChoosePrinter
    dc.w c1713     ; GetDeviceName       DAL
    dc.w c1813     ; PrGetPrinterSpecs
    dc.w c1913     ; PrDevPrChanged      DAL
    dc.w c1A13     ; PrDevStartup        DAL
    dc.w c1B13     ; PrDevShutDown       DAL
    dc.w c1C13     ; PrDevOpen           DAL
    dc.w c1D13     ; PrDevRead           DAL
    dc.w c1E13     ; PrDevWrite          DAL
    dc.w c1F13     ; PrDevClose          DAL
    dc.w c2013     ; PrDevStatus         DAL
    dc.w c2113     ; PrDevAsyncRead      DAL
    dc.w c2213     ; PrDevWriteBackground  DAL
    dc.w c2313     ; PrDriverVer
    dc.w c2413     ; PrPortVer
    dc.w c2513     ; PrGetZoneName
    dc.w UnkStr		;DAL $2613
    dc.w UnkStr		;DAL $2713
    dc.w c2813     ; PrGetPrinterDvrName
    dc.w c2913     ; PrGetPortDvrName
    dc.w c2A13     ; PrGetUserName
    dc.w c2B13     ; PrGetNetworkName
    dc.w UnkStr		;DAL $2C13
    dc.w UnkStr		;DAL $2D13
    dc.w UnkStr		;DAL $2E13
    dc.w UnkStr		;DAL $2F13
    dc.w c3013     ;PrDevIsItSafe        DAL
    dc.w UnkStr		;DAL $3113
    dc.w UnkStr		;DAL $3213
    dc.w UnkStr		;DAL $3313
    dc.w c3413     ; PMUnloadDriver
    dc.w c3513     ; PMLoadDriver
    dc.w c3613     ; PrGetDocName
    dc.w c3713     ; PrSetDocName
    dc.w c3813     ; PrGetPgOrientation
Tool13End

Tool14  dc.w Tool14End-Tool14
    dc.w c0014		;29-Aug-90 DAL
    dc.w c0114     ; LEBootInit
    dc.w c0214     ; LEStartUp
    dc.w c0314     ; LEShutDown
    dc.w c0414     ; LEVersion
    dc.w c0514     ; LEReset
    dc.w c0614     ; LEStatus
    dc.w UnkStr		;DAL $0714
    dc.w UnkStr		;DAL $0814
    dc.w c0914     ; LENew
    dc.w c0A14     ; LEDispose
    dc.w c0B14     ; LESetText
    dc.w c0C14     ; LEIdle
    dc.w c0D14     ; LEClick
    dc.w c0E14     ; LESetSelect
    dc.w c0F14     ; LEActivate
    dc.w c1014     ; LEDeactivate
    dc.w c1114     ; LEKey
    dc.w c1214     ; LECut
    dc.w c1314     ; LECopy
    dc.w c1414     ; LEPaste
    dc.w c1514     ; LEDelete
    dc.w c1614     ; LEInsert
    dc.w c1714     ; LEUpdate
    dc.w c1814     ; LETextBox
    dc.w c1914     ; LEFromScrap
    dc.w c1A14     ; LEToScrap
    dc.w c1B14     ; LEScrapHandle
    dc.w c1C14     ; LEGetScrapLen
    dc.w c1D14     ; LESetScrapLen
    dc.w c1E14     ; LESetHilite
    dc.w c1F14     ; LESetCaret
    dc.w c2014     ; LETextBox2
    dc.w c2114     ; LESetJust
    dc.w c2214     ; LEGetTextHand
    dc.w c2314     ; LEGetTextLen
    dc.w c2414     ; GetLEDefProc
    dc.w c2514     ; LEClassifKey     ;20-Mar-92 DAL
Tool14End

Tool15  dc.w Tool15End-Tool15
    dc.w c0015		;29-Aug-90 DAL
    dc.w c0115     ; DialogBootInit
    dc.w c0215     ; DialogStartUp
    dc.w c0315     ; DialogShutDown
    dc.w c0415     ; DialogVersion
    dc.w c0515     ; DialogReset
    dc.w c0615     ; DialogStatus
    dc.w UnkStr		;DAL $0715
    dc.w UnkStr		;DAL $0815
    dc.w c0915     ; ErrorSound
    dc.w c0A15     ; NewModalDialog
    dc.w c0B15     ; NewModelessDialog
    dc.w c0C15     ; CloseDialog
    dc.w c0D15     ; NewDItem
    dc.w c0E15     ; RemoveDItem
    dc.w c0F15     ; ModalDialog
    dc.w c1015     ; IsDialogEvent
    dc.w c1115     ; DialogSelect
    dc.w c1215     ; DlgCut
    dc.w c1315     ; DlgCopy
    dc.w c1415     ; DlgPaste
    dc.w c1515     ; DlgDelete
    dc.w c1615     ; DrawDialog
    dc.w c1715     ; Alert
    dc.w c1815     ; StopAlert
    dc.w c1915     ; NoteAlert
    dc.w c1A15     ; CautionAlert
    dc.w c1B15     ; ParamText
    dc.w c1C15     ; SetDAFont
    dc.w UnkStr		;DAL $1D15
    dc.w c1E15     ; GetControlDItem
    dc.w c1F15     ; GetIText
    dc.w c2015     ; SetIText
    dc.w c2115     ; SelIText
    dc.w c2215     ; HideDItem
    dc.w c2315     ; ShowDItem
    dc.w c2415     ; FindDItem
    dc.w c2515     ; UpdateDialog
    dc.w c2615     ; GetDItemType
    dc.w c2715     ; SetDItemType
    dc.w c2815     ; GetDItemBox
    dc.w c2915     ; SetDItemBox
    dc.w c2A15     ; GetFirstDItem
    dc.w c2B15     ; GetNextDItem
    dc.w c2C15     ; ModalDialog2
    dc.w UnkStr		;DAL $2D15
    dc.w c2E15     ; GetDItemValue
    dc.w c2F15     ; SetDItemValue
    dc.w UnkStr		;DAL $3015
    dc.w UnkStr		;DAL $3115
    dc.w c3215     ; GetNewModalDialog
    dc.w c3315     ; GetNewDItem
    dc.w c3415     ; GetAlertStage
    dc.w c3515     ; ResetAlertStage
    dc.w c3615     ; DefaultFilter
    dc.w c3715     ; GetDefButton
    dc.w c3815     ; SetDefButton
    dc.w c3915     ; DisableDItem
    dc.w c3A15     ; EnableDItem
Tool15End

Tool16  dc.w Tool16End-Tool16
    dc.w c0016		;29-Aug-90 DAL
    dc.w c0116     ; ScrapBootInit
    dc.w c0216     ; ScrapStartUp
    dc.w c0316     ; ScrapShutDown
    dc.w c0416     ; ScrapVersion
    dc.w c0516     ; ScrapReset
    dc.w c0616     ; ScrapStatus
    dc.w UnkStr		;DAL $0716
    dc.w UnkStr		;DAL $0816
    dc.w c0916     ; UnloadScrap
    dc.w c0A16     ; LoadScrap
    dc.w c0B16     ; ZeroScrap
    dc.w c0C16     ; PutScrap
    dc.w c0D16     ; GetScrap
    dc.w c0E16     ; GetScrapHandle
    dc.w c0F16     ; GetScrapSize
    dc.w c1016     ; GetScrapPath
    dc.w c1116     ; SetScrapPath
    dc.w c1216     ; GetScrapCount
    dc.w c1316     ; GetScrapState
    if SpongeBoy then	;added 8-Feb-91 DAL
    dc.w c1416	; GetIndScrap
    endif
   if SpongeMan then
    dc.w c1516	; ShowClipboard	;added 20-Aug-92 DAL
   endif

Tool16End

Tool17  dc.w Tool17End-Tool17
    dc.w c0017		;29-Aug-90 DAL
    dc.w c0117     ; SFBootInit
    dc.w c0217     ; SFStartUp
    dc.w c0317     ; SFShutDown
    dc.w c0417     ; SFVersion
    dc.w c0517     ; SFReset
    dc.w c0617     ; SFStatus
    dc.w UnkStr		;DAL $0717
    dc.w UnkStr		;DAL $0817
    dc.w c0917     ; SFGetFile
    dc.w c0A17     ; SFPutFile
    dc.w c0B17     ; SFPGetFile
    dc.w c0C17     ; SFPPutFile
    dc.w c0D17     ; SFAllCaps
    dc.w c0E17     ; SFGetFile2
    dc.w c0F17     ; SFPutFile2
    dc.w c1017     ; SFPGetFile2
    dc.w c1117     ; SFPPutFile2
    dc.w c1217     ; SFShowInvisible
    dc.w c1317     ; SFReScan
    dc.w c1417     ; SFMultiGet2
    dc.w c1517     ; SFPMultiGet2
Tool17End

Tool18  dc.w Tool18End-Tool18
Tool18End

Tool19  dc.w Tool19End-Tool19
    dc.w c0019		;29-Aug-90 DAL
    dc.w c0119     ; NSBootInit
    dc.w c0219     ; NSStartUp
    dc.w c0319     ; NSShutDown
    dc.w c0419     ; NSVersion
    dc.w c0519     ; NSReset
    dc.w c0619     ; NSStatus
    dc.w UnkStr		;DAL $0719
    dc.w UnkStr		;DAL $0819
    dc.w c0919     ; AllocGen
    dc.w c0A19     ; DeallocGen
    dc.w c0B19     ; NoteOn
    dc.w c0C19     ; NoteOff
    dc.w c0D19     ; AllNotesOff
    dc.w c0E19     ; NSSetUpdateRate
    dc.w c0F19     ; NSSetUserUpdateRtn
Tool19End

Tool1A  dc.w Tool1AEnd-Tool1A
    dc.w c001A		;29-Aug-90 DAL
    dc.w c011A     ; SeqBootInit
    dc.w c021A     ; SeqStartUp
    dc.w c031A     ; SeqShutDown
    dc.w c041A     ; SeqVersion
    dc.w c051A     ; SeqReset
    dc.w c061A     ; SeqStatus
    dc.w UnkStr		;DAL $071A
    dc.w UnkStr		;DAL $081A
    dc.w c091A     ; SetIncr
    dc.w c0A1A     ; ClearIncr
    dc.w c0B1A     ; GetTimer
    dc.w c0C1A     ; GetLoc
    dc.w c0D1A     ; SeqAllNotesOff
    dc.w c0E1A     ; SetTrkInfo
    dc.w c0F1A     ; StartSeq
    dc.w c101A     ; StepSeq
    dc.w c111A     ; StopSeq
    dc.w c121A     ; SetInstTable
    dc.w c131A     ; StartInts
    dc.w c141A     ; StopInts
    dc.w c151A     ; StartSeqRel
Tool1AEnd

Tool1B  dc.w Tool1BEnd-Tool1B
    dc.w c001B		;29-Aug-90 DAL
    dc.w c011B     ; FMBootInit
    dc.w c021B     ; FMStartUp
    dc.w c031B     ; FMShutDown
    dc.w c041B     ; FMVersion
    dc.w c051B     ; FMReset
    dc.w c061B     ; FMStatus
    dc.w UnkStr		;DAL $071B
    dc.w UnkStr		;DAL $081B
    dc.w c091B     ; CountFamilies
    dc.w c0A1B     ; FindFamily
    dc.w c0B1B     ; GetFamInfo
    dc.w c0C1B     ; GetFamNum
    dc.w c0D1B     ; AddFamily
    dc.w c0E1B     ; InstallFont
    dc.w c0F1B     ; SetPurgeStat
    dc.w c101B     ; CountFonts
    dc.w c111B     ; FindFontStats
    dc.w c121B     ; LoadFont
    dc.w c131B     ; LoadSysFont
    dc.w c141B     ; AddFontVar
    dc.w c151B     ; FixFontMenu
    dc.w c161B     ; ChooseFont
    dc.w c171B     ; ItemID2FamNum
    dc.w c181B     ; FMSetSysFont
    dc.w c191B     ; FMGetSysFID
    dc.w c1A1B     ; FMGetCurFID
    dc.w c1B1B     ; FamNum2ItemID
    dc.w c1C1B     ; InstallWithStats
Tool1BEnd

Tool1C  dc.w Tool1CEnd-Tool1C
    dc.w c001C		;29-Aug-90 DAL
    dc.w c011C     ; ListBootInit
    dc.w c021C     ; ListStartup
    dc.w c031C     ; ListShutDown
    dc.w c041C     ; ListVersion
    dc.w c051C     ; ListReset
    dc.w c061C     ; ListStatus
    dc.w UnkStr		;DAL $071C
    dc.w UnkStr		;DAL $081C
    dc.w c091C     ; CreateList
    dc.w c0A1C     ; SortList
    dc.w c0B1C     ; NextMember
    dc.w c0C1C     ; DrawMember
    dc.w c0D1C     ; SelectMember
    dc.w c0E1C     ; GetListDefProc
    dc.w c0F1C     ; ResetMember
    dc.w c101C     ; NewList
    dc.w c111C     ; DrawMember2
    dc.w c121C     ; NextMember2
    dc.w c131C     ; ResetMember2
    dc.w c141C     ; SelectMember2
    dc.w c151C     ; SortList2
    dc.w c161C     ; NewList2
    if SpongeBoy then	;added 8-Feb-91 DAL
    dc.w c171C	; ListKey
    dc.w c181C	; CompareStrings
    endif
Tool1CEnd

Tool1D  dc.w Tool1DEnd-Tool1D
    dc.w c001D		;29-Aug-90 DAL
    dc.w c011D     ; ACEBootInit
    dc.w c021D     ; ACEStartUp
    dc.w c031D     ; ACEShutDown
    dc.w c041D     ; ACEVersion
    dc.w c051D     ; ACEReset
    dc.w c061D     ; ACEStatus
    dc.w c071D     ; ACEInfo
    dc.w UnkStr		;DAL $081D
    dc.w c091D     ; ACECompress
    dc.w c0A1D     ; ACEExpand
    dc.w c0B1D     ; ACECompBegin
    dc.w c0C1D     ; ACEExpBegin
    if SpongeBoy then	;added 8-Feb-91 DAL
    dc.w c0D1D	; GetACEExpState
    dc.w c0E1D	; SetACEExpState
    endif
Tool1DEnd

Tool1E  dc.w Tool1EEnd-Tool1E
    dc.w c001E		;29-Aug-90 DAL
    dc.w c011E     ; ResourceBootInit
    dc.w c021E     ; ResourceStartup
    dc.w c031E     ; ResourceShutdown
    dc.w c041E     ; ResourceVersion
    dc.w c051E     ; ResourceReset
    dc.w c061E     ; ResourceStatus
    dc.w UnkStr		;DAL $071E
    dc.w UnkStr		;DAL $081E
    dc.w c091E     ; CreateResourceFile
    dc.w c0A1E     ; OpenResourceFile
    dc.w c0B1E     ; CloseResourceFile
    dc.w c0C1E     ; AddResource
    dc.w c0D1E     ; UpdateResourceFile
    dc.w c0E1E     ; LoadResource
    dc.w c0F1E     ; RemoveResource
    dc.w c101E     ; MarkResourceChange
    dc.w c111E     ; SetCurResourceFile
    dc.w c121E     ; GetCurResourceFile
    dc.w c131E     ; SetCurResourceApp
    dc.w c141E     ; GetCurResourceApp
    dc.w c151E     ; HomeResourceFile
    dc.w c161E     ; WriteResource
    dc.w c171E     ; ReleaseResource
    dc.w c181E     ; DetachResource
    dc.w c191E     ; UniqueResourceID
    dc.w c1A1E     ; SetResourceID
    dc.w c1B1E     ; GetResourceAttr
    dc.w c1C1E     ; SetResourceAttr
    dc.w c1D1E     ; GetResourceSize
    dc.w c1E1E     ; MatchResourceHandle
    dc.w c1F1E     ; GetOpenFileRefNum
    dc.w c201E     ; CountTypes
    dc.w c211E     ; GetIndType
    dc.w c221E     ; CountResources
    dc.w c231E     ; GetIndResource
    dc.w c241E     ; SetResourceLoad
    dc.w c251E     ; SetResourceFileDepth
    dc.w c261E     ; GetMapHandle
    dc.w c271E     ; LoadAbsResource
    dc.w c281E     ; ResourceConverter
    if SpongeBoy then	;added 8-Feb-91 DAL
    dc.w c291E	; LoadResource2
    dc.w c2A1E	; RMFindNamedResource ; 10-Mar-91 DAL
    dc.w c2B1E	; RMGetResourceName
    dc.w c2C1E	; RMLoadNamedResource
    dc.w c2D1E	; RMSetResourceName
    endif
    if SpongeMan then
    dc.w c2E1E	; OpenResFileByID
    dc.w c2F1E	; CompactResourceFile  ;12-Feb-93 DAL
    endif
Tool1EEnd

Tool1F  dc.w Tool1FEnd-Tool1F
Tool1FEnd

Tool20  dc.w Tool20End-Tool20
    dc.w c0020		;29-Aug-90 DAL
    dc.w c0120     ; MidiBootInit
    dc.w c0220     ; MidiStartUp
    dc.w c0320     ; MidiShutDown
    dc.w c0420     ; MidiVersion
    dc.w c0520     ; MidiReset
    dc.w c0620     ; MidiStatus
    dc.w UnkStr		;DAL $0720
    dc.w UnkStr		;DAL $0820
    dc.w c0920     ; MidiControl
    dc.w c0A20     ; MidiDevice
    dc.w c0B20     ; MidiClock
    dc.w c0C20     ; MidiInfo
    dc.w c0D20     ; MidiReadPacket
    dc.w c0E20     ; MidiWritePacket
Tool20End

Tool21  dc.w Tool21End-Tool21
    dc.w c0021		;29-Aug-90 DAL
    dc.w c0121     ; VDBootInit
    dc.w c0221     ; VDStartUp
    dc.w c0321     ; VDShutdown
    dc.w c0421     ; VDVersion
    dc.w c0521     ; VDReset
    dc.w c0621     ; VDStatus
    dc.w UnkStr		;DAL $0721
    dc.w UnkStr		;DAL $0821
    dc.w c0921     ; VDInStatus
    dc.w c0A21     ; VDInSetStd
    dc.w c0B21     ; VDInGetStd
    dc.w c0C21     ; VDInConvAdj
    dc.w c0D21     ; VDKeyControl
    dc.w c0E21     ; VDKeyStatus
    dc.w c0F21     ; VDKeySetKCol
    dc.w c1021     ; VDKeyGetRCol
    dc.w c1121     ; VDKeyGetGCol
    dc.w c1221     ; VDKeyGetBCol
    dc.w c1321     ; VDKeySetKDiss
    dc.w c1421     ; VDKeyGetKDiss
    dc.w c1521     ; VDKeySetNKDiss
    dc.w c1621     ; VDKeyGetNKDiss
    dc.w c1721     ; VDOutSetStd
    dc.w c1821     ; VDOutGetStd
    dc.w c1921     ; VDOutControl
    dc.w c1A21     ; VDOutStatus
    dc.w c1B21     ; VDGetFeatures
    dc.w c1C21     ; VDInControl
    dc.w c1D21     ; VDGGControl
    dc.w c1E21     ; VDGGStatus
Tool21End

Tool22  dc.w Tool22End-Tool22
    dc.w c0022		;29-Aug-90 DAL
    dc.w c0122     ; TEBootInit
    dc.w c0222     ; TEStartup
    dc.w c0322     ; TEShutdown
    dc.w c0422     ; TEVersion
    dc.w c0522     ; TEReset
    dc.w c0622     ; TEStatus
    dc.w UnkStr		;DAL $0722
    dc.w UnkStr		;DAL $0822
    dc.w c0922     ; TENew
    dc.w c0A22     ; TEKill
    dc.w c0B22     ; TESetText
    dc.w c0C22     ; TEGetText
    dc.w c0D22     ; TEGetTextInfo
    dc.w c0E22     ; TEIdle
    dc.w c0F22     ; TEActivate
    dc.w c1022     ; TEDeactivate
    dc.w c1122     ; TEClick
    dc.w c1222     ; TEUpdate
    dc.w c1322     ; TEPaintText
    dc.w c1422     ; TEKey
    dc.w UnkStr    ; unused    TEInsertPageBreak (used to be --DAL)
    dc.w c1622     ; TECut
    dc.w c1722     ; TECopy
    dc.w c1822     ; TEPaste
    dc.w c1922     ; TEClear
    dc.w c1A22     ; TEInsert
    dc.w c1B22     ; TEReplace
    dc.w c1C22     ; TEGetSelection
    dc.w c1D22     ; TESetSelection
    dc.w c1E22     ; TEGetSelectionStyle
    dc.w c1F22     ; TEStyleChange
    dc.w c2022     ; TEGetHooks
    dc.w c2122     ; TESetHooks
    dc.w c2222     ; TEGetDefProc
    dc.w c2322     ; TEGetRuler	DAL
    dc.w c2422     ; TESetRuler	DAL
    dc.w c2522     ; TEScroll	DAL
    dc.w c2622     ; TEGetInternalProc	DAL
    dc.w c2722     ; TEGetLastError	DAL
    dc.w c2822     ; TECompactRecord	DAL
Tool22End

Tool23  dc.w Tool23End-Tool23	;added tool 29-Aug-90 DAL
    dc.w c0023		;29-Aug-90 DAL
    dc.w c0123	; MSBoot
    dc.w c0223	; MSStartUp
    dc.w c0323	; MSShutDown
    dc.w c0423	; MSVersion
    dc.w c0523	; MSReset
    dc.w c0623	; MSStatus
    dc.w UnkStr	; $0723 reserved
    dc.w UnkStr	; $0823 reserved
    dc.w c0923	; SetBasicChan
    dc.w c0A23	; SetMIDIMode
    dc.w c0B23	; PlayNote
    dc.w c0C23	; StopNote
    dc.w c0D23	; KillAllNotes
    dc.w c0E23	; SetRecTrack
    dc.w c0F23	; SetPlayTrack
    dc.w c1023	; TrackToChan
    dc.w c1123	; Locate
    dc.w c1223	; SetVelComp
    dc.w c1323	; SetMIDIPort
    dc.w c1423	; SetInstrument
    dc.w c1523	; SeqPlayer
    dc.w c1623	; SetTempo
    dc.w c1723	; SetCallBack
    dc.w c1823	; SysExOut
    dc.w c1923	; SetBeat
    dc.w c1A23	; MIDIMessage
    dc.w c1B23	; LocateEnd
    dc.w c1C23	; Merge
    dc.w c1D23	; DeleteTrack
    dc.w c1E23	; SetMetro
    dc.w c1F23	; GetMSData
    dc.w c2023	; ConvertToTime
    dc.w c2123	; ConvertToMeasure
    dc.w c2223	; MSSuspend
    dc.w c2323	; MSResume
    dc.w c2423	; SetTuningTable
    dc.w c2523	; GetTuningTable
    dc.w c2623	; SetTrackOut
    dc.w c2723	; StartMIDIDriver
    dc.w c2823	; StopMIDIdriver
Tool23End

    if SpongeBoy then	;added 8-Feb-91 DAL
Tool24  dc.w Tool24End-Tool24	;unused tool number
Tool24End
    endif

    if SpongeBoy then	;added 8-Feb-91 DAL
Tool25 dc.w Tool25End-Tool25
    dc.w c0025	; Animation
    dc.w c0125	; AnimBootInit
    dc.w c0225	; AnimStartUp
    dc.w c0325	; AnimShutDown
    dc.w c0425	; AnimVersion
    dc.w c0525	; AnimReset
    dc.w c0625	; AnimStatus
    dc.w UnkStr	; 0725
    dc.w c0825	; AnimIdleDebug
    dc.w c0925	; StartScene
    dc.w c0A25	; StopScene
    dc.w c0B25	; StartFrameTimer
    dc.w c0C25	; StopFrameTimer
    dc.w c0D25	; SetBackGndPort
    dc.w c0E25	; RefreshBack
    dc.w c0F25	; StartChar
    dc.w c1025	; MoveChar
    dc.w c1125	; GetCharRecPtr
    dc.w c1225	; KillChar
    dc.w c1325	; LoadActor
    dc.w c1425	; SetCharScript
    dc.w c1525	; RunAnimScripts
    dc.w c1625	; FillAddrTable
    dc.w c1725	; CompileRect
    dc.w c1825	; StartTockTask
    dc.w c1925	; FireTockTask
    dc.w c1A25	; SetForeGndPort
    dc.w c1B25	; SetAnimWindow
Tool25End
    endif

    if SpongeBoy then	;added 8-Feb-91 DAL
Tool26 dc.w Tool26End-Tool26
    dc.w c0026	; Media Control
    dc.w c0126	; MCBootInit
    dc.w c0226	; MCStartUp
    dc.w c0326	; MCShutDown
    dc.w c0426	; MCVersion
    dc.w c0526	; MCReset
    dc.w c0626	; MCStatus
    dc.w UnkStr	; 0826
    dc.w UnkStr	; 0926
    dc.w c0926	; MCGetErrorMsg
    dc.w c0A26	; MCLoadDriver
    dc.w c0B26	; MCUnloadDriver
    dc.w c0C26	; MCCvtTime2Bin
    dc.w c0D26	; MCCvtBin2Time
    dc.w c0E26	; MCGetTrackTitle
    dc.w c0F26	; MCSetTrackTitle
    dc.w c1026	; MCGetProgram
    dc.w c1126	; MCSetProgram
    dc.w c1226	; MCGetDiscTitle
    dc.w c1326	; MCSetDiscTitle
    dc.w c1426	; MCDStartUp
    dc.w c1526	; MCDShutDown
    dc.w c1626	; MCGetFeatures
    dc.w c1726	; MCPlay
    dc.w c1826	; MCPause
    dc.w c1926	; MCSendRawData
    dc.w c1A26	; MCGetStatus
    dc.w c1B26	; MCControl
    dc.w c1C26	; MCScan
    dc.w c1D26	; MCGetSpeeds
    dc.w c1E26	; MCSpeed
    dc.w c1F26	; MCStopAt
    dc.w c2026	; MCJogN
    dc.w c2126	; MCSearchTo
    dc.w c2226	; MCSearchDone
    dc.w c2326	; MCSearchWait
    dc.w c2426	; MCGetPosition
    dc.w c2526	; MCSetAudio
    dc.w c2626	; MCGetTimes
    dc.w c2726	; MCGetDiscTOC
    dc.w c2826	; MCGetDiscID
    dc.w c2926	; MCGetNoTracks
    dc.w c2A26	; MCRecord
    dc.w c2B26	; MCStop
    dc.w c2C26	; MCWaitRawData
    dc.w c2D26	; MCGetName
    dc.w c2E26	; MCSetVolume
Tool26End
    endif

ToolFF  dc.w ToolFFEnd-ToolFF	;added table 29-Aug-90 DAL
    dc.w c00FF		;29-Aug-90 DAL
    dc.w UnkStr	; 01FF
    dc.w UnkStr	; 02FF
    dc.w UnkStr	; 03FF
    dc.w c04FF	; DebugVersion
    dc.w UnkStr	; 05FF
    dc.w c06FF	; DebugStatus
    dc.w UnkStr	; 07FF
    dc.w UnkStr	; 08FF
    dc.w c09FF	; DebugStr
    dc.w c0AFF	; SetMileStone
    dc.w c0BFF	; DebugSetHook
    dc.w c0CFF	; DebugGetInfo
    dc.w c0DFF	; DebugControl
    dc.w c0EFF	; DebugQuery
ToolFFEnd


	Export UnkStr
	Export UnknownStr
UnkStr
UnknownStr	dc.b 'Unknown'

	ENDP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Boot/ProBoot.src b/IIGS.601.SRC/GS.OS/Boot/ProBoot.src
new file mode 100644
index 0000000..45d6ce6
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Boot/ProBoot.src
@@ -0,0 +1 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;                                                                         ;
;                          ProDOS boot code                               ;
;                                                                         ;
;             Copyright Apple Computer, Inc. 1986-1989,1993               ;
;                                                                         ;
;                         All Rights Reserved                             ;
;                                                                         ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; REVISION HISTORY
;
; System 6.0.1
;
; 27-Oct-92		Dave Lyons
;
; If the user hits the "8" key before we run, then we load and run
; System/P8 insteasd of System/Start.GS.OS.
;
; 6-May-93		Dave Lyons, with Steve Stephenson & Jim Murphy
;
; Added CreateRAM5, to compensate for a ROM 3 bug that fails to create
; RAM5 if you have 8 Megs of RAM.
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

		MACHINE	M65816
		string	asis
		blanks	off

		entry	startup
		entry	readinfile
		entry	getbootname
		entry	getfstname
		entry	dp_start
		entry	get_filename
		entry	find_file_entry
		entry	read_block
		entry	getblknum
		entry	moveblock
		entry	fst_name
		entry	start_path
		entry	start_p8_path
		entry	startup_err
		entry	not_a_gs
		entry	wrong_rom
		entry	wrong_rom2

;-------------------------------------------------------------------------------
; equates
;-------------------------------------------------------------------------------

; Direct Page Storage

save_d          equ     0               ;space to save direct register
case_bits       equ     2		;upper/lower case info for volume name
path_len        equ     4               ;length of partial pathname
path_index      equ     6               ;index into partial pathname
path_ptr        equ     8               ;pointer to partial pathname
buffer_ptr      equ     12              ;pointer to memory buffer
file_eof        equ     16              ;eof of file
indexblkoff     equ     18              ;offset into an index block
num_blks        equ     20              ;number of blocks to read in
entryadr        equ     22              ;address of file entry
entrylen        equ     24              ;length of file entry
entsperblk      equ     26              ;# of file entries per dir block
numentries      equ     28              ;count of # of file entries to check
entsactive      equ     30              ;active entry count
entrieschkd     equ     32              ;# of file entries checked so far
nfilestochk     equ     34              ;total # of file entries to check
header_flag     equ     36              ;non-zero if reading header block
name_len	equ	38		;length of volume name
lopage          equ     40
hipage          equ     42
filename        equ     44              ;local storage for filename (16 bytes)


; Stack frame for readinfile

eof_return      equ     8
atype_return    equ     6
ftype_return    equ     4

; Stack frame for moveblock

Source          equ     15              ; 4-byte source address
Dest            equ     11              ; 4-byte destination address
Count           equ     07              ; 4-byte transfer count
ReturnMove      equ     05              ; 3-byte return address
TempCount       equ     03              ; 2-byte temporary transfer count

; START.GS.OS location equate

start_loc       equ     $006800         ; where START.GS.OS is loaded

; block buffer equates

blkbuf          equ     $003000         ; bank 0 block buffer
indexblkbuf     equ     blkbuf+$0200    ; bank 0 index block buffer

; cache equates

cache1          equ     blkbuf+$0400    ; first block cache
cache2          equ     blkbuf+$0600    ; second block cache

; GS/OS error equates

file_not_found  equ     $46

; volume directory equates

voldir          equ     $02             ; block number of start of volume dir

; directory block offsets

fwdlink         equ     $02             ; offset to forward block link
namelen         equ     $04             ; offset to volname length byte
casebits	equ	$1A		; offset to upper/lower case info (word)
entlen          equ     $23             ; offset to file entry length byte
entsinblk       equ     $24             ; offset to # of entries in block
filecount       equ     $25             ; offset to # of active entries
hdr_offset      equ     $04             ; offset to header in directory block

; file entry offsets

storagetype     equ     $00             ; offset to storage type - hi nibble
filetype        equ     $10             ; offset to file type - 1 byte
keypntr         equ     $11             ; offset to key block of file - 2 bytes
eof             equ     $15             ; offset to eof - 3 bytes
auxtype         equ     $1f             ; offset to aux type - 2 bytes

; emulation zero page equates

devcmd          equ     $42             ; Device command
devunit         equ     $43             ; Device unit number for device I/O.
devbuf          equ     $44             ; Block buffer for device I/O.
devblk          equ     $46             ; Device block number for device I/O.

; monitor equates

idroutine       equ     $fe1f           ; //GS id routine
setvid          equ     $fe93           ; Does a PR#0 to put COUT1 in CSW.
setnorm         equ     $fe84           ; Normal white text on black backround.
init            equ     $fb2f           ; Text pg1; text mode; sets 40/80 col w
home            equ     $fc58           ; Monitor's clear screen routine.

; hardware equates

clr80col        equ     $c000           ; disable 80 column store
clr80vid        equ     $c00c           ; disable 80 column hardware
clraltchar      equ     $c00e           ; normal lc, flashing uc

; language card soft switch equates

romin           equ     $c081           ; enable rom read, 2 reads write enb LC ram

; misc. equates

mslot           equ     $07f8           ; slot # of boot device
screen          equ     $05a8           ; Row 11 of 40 column screen
screen2         equ     $06a8           ; Row 13 of 40 column screen
emulstack       equ     $010100         ; emulation stack ptr is saved here



;===============================================================================
; jump table
;===============================================================================

		EXPORT	jump_table      
jump_table      PROC

		longa   on
		longi   on

                jmp     |startup                ;3 bytes
                nop                            	;1 byte of padding
		DC.W	readinfile		;offset into table = 4
		DC.W	getbootname		;offset into table = 6
		DC.W	getfstname		;offset into table = 8
		DC.W	getfstname-jump_table	;size of permanent code
		EXPORT	aux_value		;aux type of START.GS.OS file
aux_value	DC.W	0			;offset into table = 12

		ENDP



;===============================================================================
; readinfile
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is preserved.
; Direct register is preserved.
;
; Inputs:       4 bytes - space for eof result
;               2 bytes - space for aux type result
;               2 bytes - space for file type result
;               4 bytes - pointer to partial pathname of file to read
;               4 bytes - pointer to buffer to read file into
;
; Outputs:      c - 0 if file read successful, 1 if not
;               A - error code if c=1
;               file's eof on stack (4 bytes)
;               file's auxtype on stack (2 bytes)
;               file's filetype on stack (2 bytes)
;
; This routine will find the requested file and read it into memory.
; The file's eof, auxtype and filetype are returned on the stack.
; The partial pathname is class 1 format; the filenames are separated
; by colons; there are no leading or trailing colons.
;
; NOTE - this routine assumes the file being read is a sapling file !!
;=============================================================================

		EXPORT	readinfile      
readinfile      PROC

		longa   on
		longi   on

;save current direct register and set it to point to our data area

                tdc
                pea     dp_start
                pld
                sta     <save_d

;pull inputs off stack

                plx                     ;pull return address off stack
                pla                     ;pull pointer to buffer off stack
                sta     <buffer_ptr     ;and save
                pla
                sta     <buffer_ptr+2
                pla                     ;pull pointer to pathname off stack
                sta     <path_ptr       ;and save
                pla
                sta     <path_ptr+2
                phx                     ;push return address back on stack

;initialize pathname information

                lda     #1
                sta     <path_index     ;initialize index into pathname
                lda     [<path_ptr]     ;get length of pathname
                inc     a               ;add 1 for extra length byte
                sta     <path_len       ;and save

;initialize entryadr to 0

                stz     <entryadr

;save data bank register and set it to bank $00

                phb
                phk
                plb

;pull filename off pathname and find its file entry
;continue until have found file entry for final filename in pathname

file_loop	 
                jsr     get_filename    ;extract next filename from pathname
                bcs     found_last      ;carry set if at end of pathname
                jsr     find_file_entry ;find the file entry for the filename
                bcs     err_ret         ;if carry set, error is in A
                bra     file_loop

;we now have the file entry for the file we are to load...

;get the file's eof, save it for later and return it on the stack

found_last	 
                ldy     #eof            ;get eof and save for later
                lda     (<entryadr),y
                sta     <file_eof
                sta     eof_return,s    ;and return on stack
                iny                     ;get third byte (word) too
                iny
                lda     (<entryadr),y
                and     #$00ff          ;high byte must be $00
                sta     <file_eof+2
                sta     eof_return+2,s

;get the file's aux type and return it on the stack

                ldy     #auxtype        ;offset to aux type
                lda     (<entryadr),y   ;get aux type from file entry
                sta     atype_return,s  ;return on stack

;get the file's file type and return it on the stack

                ldy     #filetype       ;offset to file type
                lda     (<entryadr),y   ;get file type from file entry
                and     #$00ff          ;only lo byte is valid
                sta     ftype_return,s  ;return on stack

;read in file's key block

                ldy     #keypntr        ;Key block pointer offset.
                lda     (<entryadr),y   ;Load key blk pointer.
                tay                     ;Save in Y for Readblock call.
                ldx     #indexblkbuf    ;set up ptr to index block buffer
                lda     #0              ;buffer is in bank $00
                jsr     read_block
                bcs     err_ret         ;if carry set, A contains error

;now, read the file into memory

                lda     <file_eof+1     ;how many blocks do we read in????
                lsr     a               ;divide by 2
                tax                     ;save in x while we check for leftovers
                lda     <file_eof       ;get low word of eof
                and     #$01ff          ;we only want to test low 9 bits
                beq     num_blks_ok     ;= then we already have the correct num
                inx                     ;add one for safety
num_blks_ok	 
                stx     <num_blks       ;save as our counter
                ldx     #$ffff          ;offset into index table-1
                stx     <indexblkoff

read_all	 
                inc     <indexblkoff    ; increment index into index block
                lda     #indexblkbuf    ; Set up to get the data block
                ldy     <indexblkoff    ; address of the file on disk.
                jsr     getblknum       ; Get the block number in Y.
                lda     <buffer_ptr+2   ; put ptr to buffer in A and X
                ldx     <buffer_ptr
                jsr     read_block      ; Read 1st data block.
                bcc     rdok1           ; Branch if successful read.
err_ret	 
                plb                     ; restore data bank register
                pha                     ; save error code
                lda     <save_d
                tcd                     ; restore direct register
                pla                     ; retrieve error code
                rts                     ; carry set, error code in A

rdok1	 

;now we must decrement the number of blocks counter by 1 block

                dec     <num_blks
                beq     done

;now we must increment pointer by 1 block

                clc
                lda     <buffer_ptr     ;low word of destination pointer
                adc     #$0200          ;add one block
                sta     <buffer_ptr
                bcc     read_all
                inc     <buffer_ptr+2
                bra     read_all

;done with read - return to caller

done	 
                plb                     ;restore data bank register
                lda     <save_d
                tcd                     ;restore direct register
                clc                     ;indicate no error
                rts                     ;back to caller

		ENDP



;===============================================================================
; get_filename
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is set to bank $00 on entry and exit.
; Direct register is set to point to local data area on entry and exit.
;
; Inputs:       <path_ptr - points to a pathname
;               <path_index - contains the current index into the pathname
;               <path_len - contains the length of the pathname
;
; Outputs:      c - 1 if at end of pathname, else 0
;               <filename - contains the extracted filename in class 0 format
;                           with no leading or trailing separators
;
; This routine extracts the next local filename from a pathname.
;===============================================================================

		EXPORT	get_filename    
get_filename    PROC

		longa   off             
		longi   off
                sep     #$30            ; ***** begin 8-bit mode *****

                ldy     <path_index     ;get current index into pathname
                cpy     <path_len       ;are we at end of pathname?
                bcs     done            ;yes - so return carry set

                ldx     #0              ;initialize index into filename

loop	 
                iny
                lda     [<path_ptr],y   ;get next character from pathname
                cmp     #':'            ;if it's ':', we're at end of filename
                beq     cont
                inx
                sta     <filename,x     ;store character in local string
                cpy     <path_len       ;are we at the end of the pathname?
                bne     loop            ;no - so continue

cont	 
                sty     <path_index     ;save new index into pathname
                stx     <filename       ;store length of filename
                clc                     ;indicate no error

done	 
		longa   on              
		longi   on
                rep     #$30            ; ***** return to 16-bit mode *****

                rts
		ENDP



;===============================================================================
; find_file_entry
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is set to bank $00 on entry and exit.
; Direct register is set to point to local data area on entry and exit.
;
; Inputs:       <entryadr - contains 0 if volume directory should be searched
;                           else contains the address of the file entry of the
;                           directory to be searched
;               <filename - contains the filename we are searching for
;
; Outputs:      c - 0 if file entry found, 1 if not
;               A - contains error code if c=1
;               <entryadr - contains address of file entry if c=0
;
; This routine will look through a directory for the entry of a specified file.
;===============================================================================

		EXPORT	find_file_entry 
find_file_entry PROC

		longa   on
		longi   on

                stz     <entrieschkd    ; Init running no. of checked entries.
                lda     #1
                sta     <header_flag    ;indicate that we're reading header blk

                ldy     #voldir
                lda     <entryadr       ;if entryadr=0 then read volume dir
                beq     next_block

                ldy     #storagetype    ;offset to storage type
                lda     (<entryadr),y   ;get storage type
                and     #$00f0          ;need hi nibble of lo byte only
                cmp     #$00d0          ;is it a subdirectory?
                bne     nofile          ;no - so report an error

                ldy     #keypntr        ;offset to key block pointer
                lda     (<entryadr),y   ;get key blk pointer
                tay                     ;put in Y for Readblock call

next_block	 
                ldx     #blkbuf         ;set up ptr to block buffer
                lda     #0              ;bank
                jsr     read_block      ;read the block
                bcs     readerr         ;if carry set, A contains error

                lda     <header_flag    ;was this a header block?
                beq     not_hdr         ;no
                lda     |blkbuf+entlen  ;get length of file entry
                and     #$00ff          ;zero hi byte
                sta     <entrylen       ;and save
                lda     |blkbuf+entsinblk ;get # of entries in block
                and     #$00ff          ;zero hi byte
                sta     <entsperblk     ;and save
                lda     |blkbuf+filecount ;get # of active entries in dir
                sta     <nfilestochk    ;and save
not_hdr	 

                jsr     chkdirblk       ; Go look for file.
                bcc     gotit           ; Branch if file found.
                clc                     ; update # of entries checked
                lda     <entsactive
                adc     <entrieschkd       
                sta     <entrieschkd       
                cmp     <nfilestochk    ; Have we compared all entries?
                beq     nofile          ; Branch if so..no match found.

                ldx     #fwdlink        ; Load forward directory
                ldy     |blkbuf,x       ; block pointer.
                beq     nofile          ; Branch if no more dir to search.
                stz     <header_flag
                bra     next_block      ; Go check next directory block.

nofile	 
                lda     #file_not_found ;set error #
readerr	 
                sec                     ;indicate error
                rts                                              

gotit	 
                clc                     ;indicate no error
                rts


;-------------------------------------------------------------------------------
; chkdirblk
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is set to bank $00 on entry and exit.
; Direct register is set to point to local data area on entry and exit.
;
; Inputs:       directory block is in 'blkbuf'
;               <entsperblk - contains # of file entries per block
;               <entrylen - contains length of file entry
;
; Outputs:      c - 0 if file entry found, 1 if not
;               <entryadr - contains address of file entry if c=0
;               <entsactive - contains # of active entries checked
;
; Checks a given directory block for a file entry with a given filename.
;-------------------------------------------------------------------------------

chkdirblk	 
		longa   on
		longi   on

                stz     <entsactive     ; Init active entry count to zero.
                lda     <entsperblk     ; Save number of entries per blk
                sta     <numentries     ; in a working temp.

                lda     #blkbuf         ; Adjust address of 
                clc                     ; directory block past
                adc     #4              ; the block pointers.
                sta     <entryadr       ; And store in entry pointer.

                ldx     <header_flag
                beq     notheader       ; Branch if not a key dir blk.

chknxtentry	 
                clc                     ; Adjust to next entry.
                lda     <entryadr
                adc     <entrylen          
                sta     <entryadr          
                dec     <numentries     ; One less entry to search.
                beq     notfound        ; Branch if no more entries.
notheader	 
                lda     (<entryadr)     ; Is entry active?
                and     #$00ff          ; Strip off hi byte.
                beq     chknxtentry     ; not active so check next entry
                inc     <entsactive     ; Update active entry count.
                jsr     check_name      ; Is this the entry we're looking for?
                bcs     chknxtentry     ; no - so check next entry
                rts                     ; carry is clear

notfound	 
                sec                     ; indicate entry not found
                rts


;-------------------------------------------------------------------------------
; check_name
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is set to bank $00 on entry and exit.
; Direct register is set to point to local data area on entry and exit.
;
; Inputs:       <entryadr - contains address of file entry to check
;               <filename - contains filename to match
;
; Outputs:      c - 0 if filename matches, 1 if not
;
; Checks a file entry for a match to a specified filename.
;-------------------------------------------------------------------------------

check_name	 
		longa   off
		longi   off             
                sep     #$30            ;***** begin 8-bit mode *****

                lda     (<entryadr)     ; Get length of filename.
                and     #$0f            ; Strip off hi nibble.
                cmp     <filename       ; Are the filenames the same length?
                bne     nomatch         ; no
                tay                     ; xfer filename length to Y
                tax                     ; and X
nxtchar         lda     (<entryadr),y   ; compare filename
                cmp     <filename,x
                bne     nomatch         ; they're not the same
                dey     
                dex
                bne     nxtchar         ; Go check next char in filename.
                clc                     ; signify match
                rep     #$30            ;***** return to 16-bit mode *****
                rts

nomatch	 
                sec                     ; Signify no match.
                rep     #$30            ;***** return to 16-bit mode *****
                rts
		ENDP



;===============================================================================
; getblknum
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is set to bank $00 on entry and exit.
; Direct register is set to point to local data area on entry and exit.
;
; Inputs:       A - Memory address of index block.
;               Y - Offset into index block.
;
; Outputs:      Y - Returns block number from index block.
;
; Getblknum will return the block number wanted from the given index block.
;===============================================================================

		EXPORT	getblknum       
getblknum       PROC

		longa   on
		longi   on

                sta     <lopage         ; Store index blk adr. in z-page.
                clc                     ; Now calculate adr. of hi page
                adc     #256            ; of index block for indexing reasons..
                sta     <hipage         ; And store it.

		longa   off             
                sep     #$20            ; ***** begin 8-bit m *****

                lda     (<hipage),y     ; Get hi byte of block number.
                xba                     ; Save in lo byte of A.    
                lda     (<lopage),y     ; Get the low byte of the block number.

		longa   on              
                rep     #$20            ; ***** return to 16 bit m *****

                tay                     ; Return block number in Y.
                rts                     ; Done.
		ENDP



;===============================================================================
; read_block
;
; This is the new READ_BLOCK routine.
; A call structure for an extended SmartPort interface will
; be built for the requested block.  If the ProDOS interface
; is indicated then the extended SmartPort call will be
; translated into a ProDOS call prior to passing control to
; the firmware interface.  ProDOS calls will be followed by
; a block move call.
; If read_block gets a $2E error (disk switched) it will retry the call once.
;
; This routine uses a very simple form of block caching.  The first two blocks
; read are copied into two cache areas in memory.  Then, when we need to read
; these blocks again, they are just copied from the cache instead of read from
; the device. This is done to speed up booting of GS/OS since we know that the
; first two blocks read are the volume directory block and the SYSTEM directory
; block.  These blocks are needed repeatedly during boot so we save a little
; time by caching them.
;
; ENTRY: via a 'JSR'
;               A Reg = Buffer address (high word)
;               X Reg = Buffer address (low word)
;               Y Reg = Sparse Flag if $0000 or block number
;            Bank Reg = $00
;             Dir Reg = Local data area
;               P Reg = N V M X D I Z C   E
;                       x x 0 0 0 x x x   0
;
; EXIT: via a 'RTS'
;               A Reg = Error code
;               X Reg = Unknown
;               Y Reg = Unknown
;            Bank Reg = $00
;             Dir Reg = Local data area
;               P Reg = N V M X D I Z C   E
;                       x x 0 0 0 x x 0   0  if no error occured
;                       x x 0 0 0 x x 1   0  if error occured
;
;===============================================================================

		EXPORT	read_block      
read_block      PROC

		longa   on
		longi   on

                phd                     ;save current direct register
                pea     $0000           ;set up emulation zero page
                pld

; Assume that an extended SmartPort call will be issued and
; setup the data neccessary for the call.
; Also, set up data neccessary for a ProDOS call.

                stz     |retry_flag     ;initialize the retry flag

                sta     |sp_buffer+2
                stx     |sp_buffer
                stx     <devbuf
                sty     |sp_block
                sty     <devblk
                stz     |sp_block+2
                lda     |slot_num       ; get $Cnxx
                asl     a
                asl     a
                asl     a
                asl     a
                and     #$7000
                ora     #$0001          ; or in a read command
                sta     <devcmd
                sta     |save_devcmd    ;save it in case we need to retry call

; if Y=0, then transfer 512 bytes of 0

                cpy     #0              ; should we transfer 512 bytes of zero?
                bne     realblock       ; no
                lda     |sp_buffer+2    ; set bank address of buffer
                sta     <devbuf+2
                ldy     #510
                lda     #0
zero_loop       sta     [<devbuf],y     ; transfer 512 bytes of zero
                dey
                dey
                bpl     zero_loop
                pld                     ; restore direct register
                clc                     ; indicate no error
                rts

; Y<>0 so we need to transfer a real block
;
; First, check to see if the block we want is in cache1 and if so, copy it
; from the cache into the destination buffer

realblock	 
                cpy     |cache1_num     ; is the block in the first cache?
                bne     check2          ; no
                lda     |sp_buffer+2    ; set bank address of buffer
                sta     <devbuf+2
                ldy     #510
cache1_loop     lda     |cache1,y       ; copy block from cache1 into buffer
                sta     [<devbuf],y
                dey
                dey
                bpl     cache1_loop
cache_ret	 
                pld                     ; restore direct register
                clc                     ; indicate no error
                rts

; The block we want is not in cache1 so check to see if it's in cache2 and
; if so, copy it from the cache into the destination buffer

check2	 
                cpy     |cache2_num     ; is the block in the second cache?
                bne     notcached       ; no
                lda     |sp_buffer+2    ; set bank address of buffer
                sta     <devbuf+2
                ldy     #510
cache2_loop     lda     |cache2,y       ; copy block from cache2 into buffer
                sta     [<devbuf],y
                dey
                dey
                bpl     cache2_loop
                bra     cache_ret

notcached				; the block is not cached so read it

; Determine if the SmartPort or ProDOS interface will be called.

make_the_call	 
                lda     |godev+2        ; will ProDOS or SmartPort be called?
                bmi     go_prodos

; Call the SmartPort interface.

                jsr     stack_futz      ; call the SmartPort interface
                bra     read_done

; Call the ProDOS interface.
; The data must be double buffered if a bank other than $00
; is indicated.  If the buffer is in bank $00 then no double
; buffering will take place.

go_prodos	 
                lda     |sp_buffer+2    ; buffer in bank $00?
                bne     dbl_buffer      ; no, so need to double buffer
                jsr     stack_futz      ; call the ProDOS interface
                bra     read_done

; The bank address is not in bank $00 so data must be double buffered
; through bank $00 since ProDOS devices support only a word wide
; buffer address in bank $00.

dbl_buffer	
                lda     #blkbuf         ; read block into temporary buffer
                sta     <devbuf
                jsr     stack_futz      ; call the ProDOS interface
                bcs     read_done

; Copy data from bank $00 to ultimate destination.

                pea     blkbuf>>16      ; high word source address ptr
                pea     blkbuf          ; low  word source address ptr
                lda     |sp_buffer+2    ; high word dest. address ptr
                pha
                lda     |sp_buffer      ; low  word dest. address ptr
                pha
                pea     $0000           ; high word block size
                pea     $0200           ; low  word block size
                jsr     moveblock       ; move'em
                clc                     ; make sure no error

read_done	 
                and     #$00FF          ; mask off hi byte of error code if any
                bcc     no_error
                bit     #$0040          ;is it a soft error?
                bne     no_error        ;yes - so ignore it
                cmp     #$002e          ;was it disk switched?
                bne     report_err      ;no - so report it
                ldx     |retry_flag     ;have we already retried the call?
                bne     report_err      ;yes - so report the error
                inc     |retry_flag     ;no - so retry the call
                lda     |sp_buffer      ;set up ZP params again in case the
                sta     <devbuf         ;firmware trashed them
                lda     |sp_block
                sta     <devblk
                lda     |save_devcmd
                sta     <devcmd
                bra     make_the_call   ;make the call again

report_err	 
                sec                     ;make sure carry is set
                bra     done

no_error	 
                clc                     ;make sure carry is clear

; Check to see if cache1 is used, and if not, copy the block into it.

                lda     |cache1_num     ; is the first cache used?
                bne     check_2         ; yes
                lda     |sp_block       ; no - so save block number
                sta     |cache1_num
                lda     |sp_buffer+2    ; set the bank address of the buffer
                sta     <devbuf+2
                lda     |sp_buffer      ; restore buffer address since the
                sta     <devbuf         ; firmware may have trashed it
                ldy     #510
cache1_loop2    lda     [<devbuf],y     ; copy block into first cache
                sta     |cache1,y
                dey
                dey
                bpl     cache1_loop2
                bra     done

; Cache1 was already used so check cache2.

check_2	 
                lda     |cache2_num     ; is the second cache used?
                bne     done            ; yes - so no more cache space
                lda     |sp_block       ; no - so save block number
                sta     |cache2_num
                lda     |sp_buffer+2    ; set the bank address of the buffer
                sta     <devbuf+2
                lda     |sp_buffer      ; restore buffer address since the
                sta     <devbuf         ; firmware may have trashed it
                ldy     #510
cache2_loop2    lda     [<devbuf],y     ; copy block into second cache
                sta     |cache2,y
                dey
                dey
                bpl     cache2_loop2

                clc                     ; indicate no error

done	 
                pld                     ; restore direct register
                rts


;-------------------------------------------------------------------------------
; Time to stack futz and call the card.

stack_futz	 
                tsc                     ; temporary save of native stack ptr
                tax
                sep     #$20            ;***** begin 8-bit m *****
		longa   off
                xba                     ; get stack pointer page
                dec     a               ; is stack in page $01?
                beq     alreadypg1      ; yes
                lda     #$01            ; else set page 1 stack
                xba
                lda     >emulstack      ; get emulation stack ptr
                tcs                     ; set emulation stack ptr
alreadypg1      phx                     ; save native mode stack ptr
                sec
                xce                     ;***** begin emulation mode *****
		longi   off

; Call either the ProDOS or SmartPort firmware interface.

		EXPORT	godev
godev				
                jsr     $C000           ; call firmware interface.
                nop                     ; 5 NOP's may be replaced by a
                nop                     ; SmartPort call structure.
                nop
                nop
                nop

; Return to native mode after returning from firmware call.

                php                     ; preserve carry status
                clc
                xce                     ;***** begin 8-bit native mode *****
                plp                     ; restore carry status
                rep     #$30            ;***** begin 16-bit mode *****
		longa   on
		longi   on
                plx                     ; restore native stack ptr
                txs
                rts

;-------------------------------------------------------------------------------
; The following data must reside with the read_block routine

		EXPORT	read_plist
read_plist			;SmartPort read call data structure
		DC.B	3	; parameter count (fixed)
		DC.B	1	; unit number     (fixed)
sp_buffer	DC.L	0	; buffer ptr      (dynamic)
sp_block	DC.L	0	; block ptr       (dynamic)

		EXPORT	slot_num
slot_num	DS.B 	2	;slot number of boot device

retry_flag	DS.B 	2

save_devcmd	DS.B 	2

;-------------------------------------------------------------------------------
; cache data - must be in permanent code area
;
; When GLoader saves the permanent code area in the language card, cache1_num
; and cache2_num must be 0 so that when GQuit moves the code back to bank 0
; to reload GS/OS, the code will know that the cache is not valid.
; So, the startup routine must zero cache1_num and cache2_num just before it
; transfers control to GLoader.
; Because of this, cache1_num and cache2_num are initialized to 1 so that
; we don't waste time caching during the startup routine since the cache will
; be marked as invalid as soon as control is transfered to GLoader.

		EXPORT	cache1_num
cache1_num	DC.W	1	; number of block in cache1
		EXPORT	cache2_num
cache2_num	DC.W	1	; number of block in cache2


		ENDP



;===============================================================================
; moveblock
;
; Moves a block of data from a source location to a destination location.
;
; Calling sequence:
;   Place machine in full native mode (e=0, m=0, x=0)
;   Push high order word of source pointer onto stack
;   Push low order word of source pointer
;   Push high order word of destination pointer
;   Push low order word of destination pointer
;   Push high order word of transfer count
;   Push low order word of transfer count
;   jsr MoveBlock
;
; Outputs:      None
;
; Notes:        The high byte of Source, Dest, and Count must be zero
;               The source and destination blocks must not overlap
;               This routine contains self modifying code--it cannot run in ROM
;===============================================================================

		EXPORT	moveblock       
moveblock       PROC

		longa   on
		longi   on

                pha                     ; push two bytes on stack for TempCount
                phd                     ; save D
                tsc                     ; make direct page correspond to stack
                tcd

; get ready to do the move

                phb                     ; save DBR on stack (MVN trashes it)

                lda     Count
                ora     Count+2
                beq     MoveAbort

                ldx     Source          ; X = low word of Source
                ldy     Dest            ; Y = low word of Dest

; set up the self modifying code to contain dst src

                lda     Dest+2          ; make sure high byte of Dest is 0
                and     #$00FF
                sta     Dest+2
                lda     Source+2        ; get source bank
                and     #$00FF          ; make sure high byte of Source is 0
                xba
                ora     Dest+2          ; or in destination bank (high byte must be zero)
                sta     >DoMove+1       ; put bank values into MVN instruction (danger)

; decrement Count because it contains actual transfer count whereas
; remainder of routine assumes it contains transfer count - 1

                lda     Count
                bne     ArA1
                dec     Count+2
ArA1            dec     Count

; initialize TempCount

                lda     Count
                sta     TempCount
                bra     mdFirst

; main move loop

mdMore          sta     Count+2         ; more bytes to move
                lda     >DoMove+1       ; A = SrcDst banks
                cpx     #$0001          ; bank cross? if X=0
                bcs     mdXNot0
                adc     #$0100          ; add 1 to source bank
mdXNot0         cpy     #$0000          ; did destination cross bank?
                bne     mdYIs0
                inc     a
mdYIs0          sta     >DoMove+1
mdFirst	 
                txa                     ; if count > -X then bank cross
                eor     #$FFFF
                cmp     TempCount
                bcs     mdXOk
                sta     TempCount       ; only move -X bytes
mdXOk           tya                     ; will destination cross bank?
                eor     #$FFFF
                cmp     TempCount
                bcs     mdYOk
                sta     TempCount       ; only move -Y bytes
mdYOk           lda     TempCount       ; get the number of bytes to move

; the following 3 bytes are the actual move instruction
; this routine dynamically modifies the source and destination banks

DoMove		DC.B	$54	; opcode for MVN
		DC.W	$0000	; destination/source bank

                lda     Count           ; Count = Count - bytes moved
                clc                     ; actual bytes moved 1 more than count
                sbc     TempCount
                sta     Count
                sta     TempCount
                lda     Count+2
                sbc     #$0000
                bpl     mdMore

; clean up everything before returning

MoveAbort	 
                plb                     ; restore DBR

                lda     ReturnMove      ; move return address past parameters
                sta     Source+2

                pld                     ; restore D
                tsc                     ; set S to proper value
                clc
                adc     #$000e
                tcs                     ;fix up stack
                rts

		ENDP



;===============================================================================
; getbootname
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Direct register is preserved.
;
; Inputs:       4 bytes - pointer to space for volume name
;
; Outputs:      c - 0 if successful, 1 if not
;               A - error code if c=1
;
; This routine will return the name of the boot volume.
; The string must be in class 1 format and must contain a leading colon but
; not a trailing colon.
;
; Modified 4/27/89 to handle upper/lower case volume names. CAE
;=============================================================================

		EXPORT	getbootname     
getbootname     PROC

		longa   on
		longi   on

;save current direct register and set it to point to our data area

                tdc
                pea     dp_start
                pld
                sta     <save_d

;pull inputs off stack

                plx                     ;pull return address off stack
                pla                     ;pull pointer to string off stack
                sta     <path_ptr       ;and save
                pla
                sta     <path_ptr+2
                phx                     ;push return address back on stack

;read block 2 of the boot volume

                lda     #0              ;bank
                ldx     #blkbuf         ;ptr to block buffer
                ldy     #voldir         ;block # to read
                jsr     read_block      ;read the block
                bcs     done

;copy volume name into caller's area

		stz	<case_bits	;init to all upper case
		lda	|blkbuf+casebits ;get upper/lower case info for volume name
		bpl	cont		;it's not valid
		asl	a		;it's valid, so get rid of the ON/OFF bit
		sta	<case_bits	;and save the case bits
cont
                lda     |blkbuf+namelen ;get length of volume name
                and     #$000f          ;strip off hi byte and type nibble
                sta	<name_len       ;save for later
                inc     a               ;add 1 for leading colon
                sta     [<path_ptr]     ;store in output string as length word

		longa   off
		longi   off
                sep     #$30            ; ***** begin 8-bit mode *****

		ldx	#0		;init index into volume name
                ldy     #2              ;init index into output string
                lda     #':'            ;add a colon at start of output string
                sta     [<path_ptr],y

loop	 
                inx
                iny

                lda     |blkbuf+namelen,x ;copy volume name into output string
		rep	#$20		;16-bit mode for the rotate
		rol	<case_bits	;should this char be upper or lower case?
		sep	#$20		;back to 8-bit mode
		bcc	its_upper	;leave it upper case	
		ora	#$20		;make the char lower case
its_upper       
		sta     [<path_ptr],y
		cpx	<name_len	;done?
                bne     loop		;no

		longa   on
		longi   on
                rep     #$30            ; ***** return to 16-bit mode *****

                clc                     ;indicate no error

done	 
                pha                     ;save error code if any
                lda     <save_d         ;restore direct register
                tcd
                pla                     ;restore error code
                stz     |cache1_num     ;zero out the cache info in case the
                stz     |cache2_num     ;wrong disk is in the drive
                rts
		ENDP



;===============================================================================
; getfstname
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is preserved.
; Direct register is preserved.
;
; Inputs:       4 bytes - pointer to space for fst name
;
; Outputs:      none
;
; This routine will return the name of the start fst in class 1 format
; with no leading or trailing separators.
;=============================================================================

		EXPORT	getfstname      
getfstname      PROC

		longa   on
		longi   on

;save current direct register and set it to point to our data area

                tdc
                pea     dp_start
                pld
                sta     <save_d

;pull inputs off stack

                plx                     ;pull return address off stack
                pla                     ;pull pointer to string off stack
                sta     <path_ptr       ;and save
                pla
                sta     <path_ptr+2
                phx                     ;push return address back on stack

;save data bank register and set it to bank $00

                phb
                phk
                plb

;copy start fst name into caller's area

                lda     |fst_name       ;get length of fst name
                inc     a               ;add 1 for extra length byte
                tay

		longa   off
		longi   off
                sep     #$30            ; ***** begin 8-bit mode *****

loop            lda     |fst_name,y     ;copy fst name into output string
                sta     [<path_ptr],y
                dey
                bpl     loop

		longa   on
		longi   on
                rep     #$30            ; ***** return to 16-bit mode *****

; restore data bank register and direct register and return to caller

                plb                     ;restore data bank register
                lda     <save_d         ;restore direct register
                tcd
                rts
		ENDP



;===============================================================================
; startup
;
; Exit is in 16-bit native mode.
; Data bank register is set to bank $00 on exit.
; Direct register is set to $0000 on exit.
; Stack is set to $01ff on exit.
;
; This routine is called by the disk boot firmware.
; It first verifies that it is running on a //GS with the correct ROM and then
; it loads in /v/SYSTEM/START.GS.OS and transfers control to it.
;
; The aux type of the file START.GS.OS contains the boot time information
; used by the graphics splash screen. So, after START.GS.OS is read in, its
; aux type is stored at the end of the jump table.  Then, when we transfer
; control to START.GS.OS, GLoader will pick up the aux type value from the end
; of the jump table and pass it to the graphics splash screen routine.
;===============================================================================

		EXPORT	startup         
startup         PROC

		longa   on              
		longi   on

; At onset, we don't know what machine we are being run on.
; If we are not being run on an Apple //GS we must hang with an error message.
                
; The following code will run on both the 65816 and 6502 processors
; to ensure 8 bit processing.
                
                tsx                     ;save stack pointer.
                lda     #$3030
                nop                     ;required filler.
                pha                     ;push $30 on stack.
                plp                     ;and retrieve for full 8 bit mode.
                
		longa   off
		longi   off
                
                txs                     ;restore stack.
                
; The above code looks like the following for a 6502...
; (this code essentially does nothing on a 6502)

; tsx
; lda #$30
; bmi nop ; will never be taken....
; pha
; plp
; txs
                
                lda     romin           ;bank in rom.
                sec                     ;go into //GS id routine with c set
                jsr     idroutine       ;are we on a //GS?
                bcs     to_showerrmsg   ;no
                cpy     #$01            ;is rom revision 01 or greater?
                bcc     to_showerrmsg   ;no

;We must be in emulation mode on a //GS (Fern said so, and if he is
;wrong he must put in the stack futz for us).

                pea     $0000           ;ensure zero page at $000000
                pld

                phk                     ;set data bank to code bank
                plb

*** ROM Version is still in Y!

*** added 6-May-93 DAL/SS -- create a RAM disk on an 8 Meg ROM 3 machine, since
***   the ROM accidentally decided we couldn't have one
		cpy	#3
		bne	@notROM3
		jsr	CreateRAM5
@notROM3
*** end 6-May-93

                jsr     id_sp           ; setup readblock for proper interface

                clc
                xce                     ; ***** begin native mode *****
                rep     #$30            ; ***** begin 16-bit mode *****
		longa   on
		longi   on

                lda     #$01ff          ;set stack to $01ff
                tcs

*** added 27-Oct-92 DAL -- If they hit "8", run System/P8 instead of Start.GS.OS
		lda	$C000
		and	#$00ff
		cmp	#$00b8	;'8'
		beq	GoProDOS8
*** end 27-Oct-92

;Now, read in the /v/SYSTEM/START.GS.OS file

                pha                     ;8 byte space for results
                pha
                pha
                pha
                pea     start_path>>16  ;ptr to partial pathname
                pea     start_path
                pea     0               ;pointer to mem location for START.GS.OS
                pea     start_loc
                jsr     readinfile      ;find START.GS.OS and read it in
                bcc     read_ok
                pha                     ;error #
                pea     $0000
                pea     startup_err     ;address of error msg
fatal           ldx     #$1503          ;call sysfailmgr to report error
                jsl     $E10000         ;doesn't return

read_ok		pla                     ;ignore filetype
                pla                     ;get auxtype
                sta     |aux_value      ;and store at end of jump table
                pla                     ;ignore eof
                pla

                stz     |cache1_num     ;zero out these two items so that
                stz     |cache2_num     ;caching is now active

;Now, transfer control to START.GS.OS

                jmp     >start_loc

to_showerrmsg	jmp	showerrmsg

*** added 27-Oct-92 DAL
GoProDOS8	sta	$C010		;clear keyboard strobe (eat the "8")

                pha                     ;8 byte space for results
                pha
                pha
                pha
                pea     start_p8_path>>16  ;ptr to partial pathname
                pea     start_p8_path
                pea     0               ;pointer to mem location for P8
                pea     start_loc
                jsr     readinfile      ;find System/P8 and read it in
                bcc     read_p8_ok
                pha                     ;error #
		lda	#0
		pha
		pha			;error message string
		bra	fatal

read_p8_ok	pla			;discard filetype
		pla			;discard auxtype
		pla			;low word of EOF
		dec	a
		sta	p8_length+1
		pla			;discard EOF high word
		ldx	#p8_jumper
		ldy	#$0200		;move code to $200
		lda	#p8_jump_end-p8_jumper
		mvn	0,0
		jmp	$0200

p8_jumper	ldx	#start_loc
		ldy	#$2000		;move P8 to $2000
p8_length	lda	#$7777		;length of P8 (modified)
		mvn	0,0
		sec
		xce
		longa	off
		longi	off
		ldx	#$FF
		txs
		jmp	$2000
p8_jump_end

*** end 27-Oct-92

*** 6-May-93 DAL/SS -- Create RAM5 if necessary (we already know we're on ROM 3)
CreateRAM5	clc
		xce
		rep #$30
		longa on
		longi on

NumBanks	equ $E11624	;Number of 64K banks in machine
DiskHandle	equ $E11646
MaxDiskParm	equ $E102F7	;inside the Battery RAM buffer (max RAM5 size, N*32K)

		phb
		pea $E1E1
		plb
		plb

		lda |DiskHandle+1
		bne @noProblem	;already have a RAM5 handle

		lda |MaxDiskParm
		and #$00ff
		beq @noProblem

		lda |NumBanks
		cmp #$80
		bcc @noProblem

*** make a stack frame
		phd
		tsc
		sec
		sbc #$0020
		tcs
		inc a
		tcd

		phk
		per @return-1
		pea #$00BC-1
		lda #$81	;pretend like we have *almost* 8 megs, to make ROM check happy
		jmp >$FC14D1	;jump into the middle of MakeDisk, right after TotalMem
@return		tsc
		clc
		adc #$0020
		tcs
		pld

*** now reboot if we created a new RAM5
		lda |DiskHandle+1
		beq @noProblem	;failed to create one

		plb		;restore B to $00
		stz $03f3	;trash $3f3 and $3f4
		sec
		xce
		longa off
		longi off
		sei
		jmp $fa62	;Reset!

@noProblem	plb

		sec
		xce
		longa off
		longi off

		rts

*** end 6-May-93

;-------------------------------------------------------------------------------

showerrmsg 
		longa   off
		longi   off

; enter this routine with 'c'=1 for wrong system error
; enter this routine with 'c'=0 for wrong rom in system

                php                     ;save 'c' around setup stuff
                lda     romin           ; rom in for monitor's home routine.
                sta     clr80vid        ; disable 80 column hardware.
                sta     clraltchar      ; switch in primary char set.
                sta     clr80col        ; disable 80 column store.
                jsr     init            ; text pg1; text mode; set 40 col window
                jsr     setvid          ; does a 'pr#0'(puts in cout1 in csw)
                jsr     setnorm         ; normal white chars on black backround
                jsr     home            ; clear screen
                plp                     ;well, which message gets shown

                ldy     not_a_gs        ; get length of message
                bcs     printerr
                ldy     wrong_rom       ; get length of message

printerr	 
                lda     not_a_gs,y
                bcs     printerr2
                lda     wrong_rom,y

printerr2	 
                sta     screen,y        ; store directly to screen
                dey
                bne     printerr
                bcs     hang            ; if 'wrong system' msg, we're done

                ldy     wrong_rom2      ; now put up second line of
nextline				; the 'wrong rom' msg
                lda     wrong_rom2,y
                sta     screen2,y       ; store directly to screen
                dey
                bne     nextline

hang            jmp     hang            ; just hang'n around.


		eject
;-------------------------------------------------------------------------------
;
; Identify if SmartPort interface exists on startup.
;
; ENTRY: via a 'JSR'
;               $0043 = ProDOS unit number
;               $07F8 = $Cn
;               A Reg = Unknown
;               X Reg = Unknown
;               Y Reg = Unknown
;            Bank Reg = $00
;             Dir Reg = $0000
;               P Reg = N V M X D I Z C   E
;                       x x 1 1 0 x x x   1
;
; EXIT: via a 'RTS'
;               A Reg = Unknown
;               X Reg = Unknown
;               Y Reg = Unknown
;            Bank Reg = $00
;             Dir Reg = $0000
;               P Reg = N V M X D I Z C   E
;                       x x 1 1 0 x x x   1
;
;-------------------------------------------------------------------------------

id_sp	 
		longa   off
		longi   off

                lda     |mslot
                ora     #$C0            ; create $Cn00 for (card),y addressing
                sta     <devbuf+1
                sta     |godev+2
                sta     |slot_num+1     ; save for read_block routine
                stz     <devbuf
                jsr     get_pro_entry   ; determine prodos entry point
                sta     |godev+1        ; set $CnXX (ProDOS entry point)
                ldy     #$07            ; $Cn07 = $00 if SmartPort interface
                lda     (<devbuf),y
                bne     not_sp
                ldy     #$FB            ; $CnFB bit 7 set if extended SmartPort
                lda     (<devbuf),y
                bpl     not_sp

; Host interface supports extended SmartPort calls.  Now need to know
; if the device supports extended SmartPort calls.

                jsr     get_pro_entry   ; need $Cn00 + ($CnFF)
                adc     #$03            ; SmartPort = $Cn00 + ($CnFF) + 3
                sta     sp_stat+1
                lda     <devbuf+1
                sta     |godev+2
                sta     sp_stat+2

sp_stat	 
                jsr     $C000           ; call SmartPort
		DC.B	0		; command = status call
		DC.W	s_plist		; param list pointer

sp_ret	 
                lda     |sp_subtype     ; is device extended?
                bpl     not_sp          ; no

; Device and host are extended.  Set up the readblock call
; to use a SmartPort call structure.  The parameter in SP_SUBTYPE
; indicates whether read should use the ProDOS or SmartPort interface.
; Bit 7 = 0 if ProDOS should be used.

                lda     |sp_stat+1      ; point at SmartPort entry
                sta     |godev+1
                ldx     #$04
sp_setup_loop	 
                lda     |call_data,x
                sta     |godev+3,x
                dex
                bpl     sp_setup_loop
not_sp	 
                rts

; <devbuf must contain $Cn00 on entry to this routine.

get_pro_entry	 
                ldy     #$FF            ; SP entry = $Cn00 + ($CnFF) + 3
                clc
                lda     (<devbuf),y
                rts

s_plist		DC.B	3	; parameter count
		DC.B	1	; unit
		DC.W	s_list	; pointer to status list
		DC.B	3	; DIB status call

s_list		DC.B	0	; status byte
		DC.W	0	; low word block count
		DC.B	0	; high block count
		DC.B	0	; id string length
		DC.B	$20	; id string
		DC.B	$20
		DC.B	$20
		DC.B	$20
		DC.B	$20
		DC.B	$20
		DC.B	$20
		DC.B	$20
		DC.B	$20
		DC.B	$20
		DC.B	$20
		DC.B	$20
		DC.B	$20
		DC.B	$20
		DC.B	$20
		DC.B	$20
sp_type		DC.B	0	; type
sp_subtype	DC.B	0	; subtype
sp_version	DC.W	0	; version number
		DS.B	7	; added 2/1/89 CAE for 3rd party devices

call_data	DC.B	$41	; extended read call
		DC.L	read_plist	; parameter list pointer

		ENDP

;===============================================================================
;
; pb_data
;
;===============================================================================

		EXPORT	pb_data         
pb_data         PROC

;-------------------------------------------------------------------------------
; strings
;-------------------------------------------------------------------------------

		EXPORT	start_path
start_path	DC.W	18	;class 1 string
		DC.B	'SYSTEM:START.GS.OS'

*** added 27-Oct-92 DAL
		EXPORT	start_p8_path
start_p8_path	DC.W	9	;class 1 string
		DC.B	'SYSTEM:P8'
*** end 27-Oct-92

		EXPORT	fst_name
fst_name	DC.W	7	;class 1 string
		DC.B	'PRO.FST'

		EXPORT	startup_err
startup_err	DC.B	40
		DC.B	'Unable to load START.GS.OS file. Error=$'

			msb     on

		EXPORT	not_a_gs
not_a_gs	DC.B	35
		DC.B	'GS/OS REQUIRES APPLE IIGS HARDWARE '

		EXPORT	wrong_rom
wrong_rom	DC.B	38
		DC.B	'GS/OS needs ROM version 01 or greater.'
		EXPORT	wrong_rom2
wrong_rom2	DC.B	34
		DC.B	'See your dealer for a ROM upgrade.'


;-------------------------------------------------------------------------------
; Direct Page Start Address
; NOTE - no code or data can follow this label or it will be overwritten
;-------------------------------------------------------------------------------

		EXPORT	dp_start
dp_start		
				
		ENDP

		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Common/BLaunch.Macros b/IIGS.601.SRC/GS.OS/Common/BLaunch.Macros
new file mode 100644
index 0000000..5b836cf
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Common/BLaunch.Macros
@@ -0,0 +1 @@
+;-----------------------------------------------
;
;   ProDOS 8 Macros
;
;-----------------------------------------------


		MACRO
&LAB	QUIT	&DCB
&LAB	JSR		$BF00
		DC.B	$65
		DC.W	&DCB
		MEND

		MACRO
&LAB	GETFILEINFO &DCB
&LAB	JSR		$BF00
		DC.B	$C4
		DC.W	&DCB
 		MEND
		
		MACRO
&LAB	SETPREFIX &DCB
&LAB 	JSR		$BF00
		DC.B	$C6
		DC.W	&DCB
 		MEND
		
		MACRO
&LAB	GETPREFIX &DCB
&LAB	JSR		$BF00
		DC.B	$C7
		DC.W	&DCB
		MEND
		
		MACRO
&LAB 	OPEN	&DCB
&LAB	JSR		$BF00
		DC.B	$C8
		DC.W	&DCB
		MEND
		
		MACRO
&LAB	READ	&DCB
&LAB	JSR		$BF00
		DC.B	$CA
		DC.W	&DCB
		MEND
		
		MACRO
&LAB	CLOSE 	&DCB
&LAB	JSR		$BF00
		DC.B	$CC
		DC.W	&DCB
		MEND

		MACRO
&LAB	GETEOF	&DCB
&LAB	JSR		$BF00
		DC.B	$D1
		DC.W	&DCB
		MEND

;-----------------------------------------------
;
;   General Purpose Macros
;
;-----------------------------------------------

		MACRO
		native &mode
		clc
		xce
		IF &mode­'' THEN
			&mode
		ELSE
			long
		ENDIF
		MEND
	
		MACRO
		emulation
		sec
		xce
		longa	off
		longi	off
		MEND

		MACRO
		long
		rep		#%00110000
		longa	on
		longi	on
		MEND

		MACRO
		longm
		rep		#%00100000
		longa	on
		MEND

		MACRO
		short
		sep		#%00110000
		longa	off
		longi	off
		MEND

		MACRO
		shortm
		sep		#%00100000
		longa	off
		MEND

;-----------------------------------------------
;
;   Toolbox Macros
;
;-----------------------------------------------

		MACRO 
&lab 	_TLStartUp 
&lab 	ldx		#$0201 
     	jsl 	$E10000 
		MEND 

		MACRO 
&lab	_TLShutDown 
&lab	ldx		#$0301 
		jsl		$E10000 
		MEND 

		MACRO
&lab	_TLTextMountVolume
&lab	ldx		#$1201
		jsl		$E10000
		MEND
		
		MACRO
&lab	_MessageCenter
&lab	ldx		#$1501
		jsl		$E10000
		MEND
		
		MACRO
&lab	_MMStartUp
&lab	ldx		#$0202
		jsl		$E10000
		MEND

		MACRO 
&lab	_MMShutDown 
&lab	ldx		#$0302 
		jsl		$E10000 
		MEND 

		MACRO
&lab	_NewHandle
&lab	ldx		#$0902
		jsl		$E10000
		MEND

		MACRO
&lab	_DisposeHandle
&lab	ldx		#$1002
		jsl		$E10000
		MEND

		MACRO
&lab	_SysFailMgr
&lab	ldx		#$1503
		jsl		$E10000
		MEND

		MACRO
&lab	_Int2Hex
&lab	ldx		#$220b
		jsl		$E10000
		MEND
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Common/common.equ.src b/IIGS.601.SRC/GS.OS/Common/common.equ.src
new file mode 100644
index 0000000..24326ff
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Common/common.equ.src
@@ -0,0 +1 @@
+******************************************************************************
*
* Common equates for GS/OS
*
* Created:      4/7/87
* Modified:     See Revision History below
* Author:       GS/OS Team
*
* Copyright (C) 1987-1988 Apple Computer, Inc.  All rights reserved.
*
* REVISION HISTORY:
*
* DATE     BY   DESCRIPTION
*
* 04/27/87 RBM  Correction: drvr_blk_size is a word wide parameter.
*
* 04/16/87 JJ   Correction: changed error number for duplicate volume
*                           from $55 to $57
* 04/29/87 GRT  Addition:   added definition of path flag
*                           and defined "span1" and "span2"
*
* 05/18/87 RBM  Addition:   Added "boot_slot", "dev_id_ref",
*                           "drvr_char_config" & "drvr_pro_config"
*                           These parameters are passed from the F_Loader
*                           to the device dispatcher during boot init.
*
* 06/04/87 JJ   Addition:   Add global equates for system direct page base,
*                           stack top, and ProDOS FST header.
*
* 06/11/87 JJ   Change:     Direct page locations used by SCM to pass
*                           parameters to FST's fundamentally changed. Look
*                           between labels dev_num and span2, inclusive.
*
* 06/30/87 RM/RC Addition:  Added cache manager equates.
*                           Cache priority now cache enable.
*
* 07/20/87 RM/AS Addition:  Equates for control/status list pointers.
*                           Equates for control/status codes.
*
* 07/22/87 RM/RC Change:    Cache enable now cache priority.
*
* 07/24/87 MSA   Addition:  System Service Table Equates & FCR Equates
*
* 07/29/87 RC    Addition:  Added cache header equates.
*
* 08/03/87 RC    Addition:  Added 4 byte pointer in direct page
*
* 08/05/87 MSA   Change:    System Service Table chgd to make GRT happy
*                           Added Parameter Block Equates
*
* 08/10/87 RC/RM Change:    Changed c_volumeid in cache equates into c_devnum.
*
* 08/12/87 FAB   Addition:  Added gquit_stack_top
*
*          MSA   Addition:  Added pblk equate for Get Boot Volume
*                            Star prefix equate added
*
* 08/13/87 RBM   Deletion:  Removed status and control codes for
*                           driver newline since it's not supported.
*
* 08/14/87 MSA   Addition:  Added pblk equate for SetLevel, GetLevel
*
* 08/18/87 RBM   Deletion:  Drvr_vol_id is now Drvr_reserved.
*
* 09/15/87 RBM   Change:    Moved control/status code location on direct page
*
* 09/24/87 MSA   Addition:  Added pblk equate for Close, Flush
*
* 10/02/87 ADS   Deletion:  Removed pro_fst_entry
*
* 10/06/87 MSA   Addition:  Added pblk equate for Expand_Path
*
* 10/29/87 MSA   Addition:  Added debug call flag, debug.calls
*                            and debug.type for SCM
*
* 11/12/87 RBM   Change:    Device dispatcher cmd numbers
*
* 11/13/87 MSA   Addition:  GS/OS System Death Error Codes
*
* 11/15/87 RBM   Addition:  Added 'DRVR_VOL_ID' on direct page.
*
* 11/17/87 RC    Addition:  Added 'c_volumeid' to cache header
*
* 12/6/87  JJ    Addition:  Added system call error codes $64, $65, and $66
*
* 1/5/88   fab   addition:  move commands word for moveinfo system service call
*
* 1/5/88   RBM   addition:  status and control codes.
*
* 1/13/88  fab   addition:  movevaliditymask equate added
*
* 1/14/88  RBM   change:    moved status/control code
*
* 1/14/88  BPA   change:    made all equ's gequ's
*
* 1/15/88  fab   replace:   move_block to move_info
*
* 1/19/88  rc    addition:  default_cache_size
*
* 1/20/88  MSA   addition:  system service table equates
*
* 1/23/88  RBM   Addition:  System service table equates
*
* 2/08/88  RBM   Addition:  driver busy error code ($0029)
*                Addition:  Supervisory driver direct page equates
*
* 3/04/88  MSA   Addition:  get, set boot_vol equates
*
* 3/08/88  MSA   Change:    above names now get, set boot_pfx
*
* 3/22/88  RBM   Addition:  An error code for duplicate device.
*
* 3/24/88  MSA   Addition:  System Service Call alloc_cache_seg
*
* 8/01/88  FAB   Addition:  Softerrorlow / Softerrorhigh added
*
* 10/18/88 BPA	 Change:    Converted to MAX format (gequ -> equ).
*
* 11/15/88 BPA	 Addition:  Added parse_pathname and post_switch.
*
* 11/16/88 BPA	 Addition:  Added pblk_1a_flags for set and get level.
*
* 11/17/88 BPA	 Addition:  Added GS/OS event codes and system service call
*			    handle_os_event.
*
* 11/28/88 CAE	 Addition:  Added gquit_stack_end.
*
* 11/30/88 BPA   Addition:  Added volume_change event code.
*
* 12/1/88  BPA   Change:    Renamed system service call handle_os_event to
*			    post_os_event.
*
*	¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥
*
*  3/1/89  RBM   Change:    REMOVED PRINT ON DIRECTIVE.  THIS DIRECTIVE SHOULD
*			    NOT BE USED IN AN INCLUDED FILE.  PRINTING SHOULD
*			    BE CONTROLLED AT THE SOURCE LEVEL, NOT WITH A
*			    DEPENDENCY.  PLEASE DO NOT CHANGE THIS!!!!!!!
*
*	¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥
*
*  3/1/89  RBM   Change:    Added equate for FILE_LIST_PTR on GS/OS direct page
*			    for a length of four bytes at location $2C.
*
*  5/30/89 BPA	 Change:    Changed sys_version to $0300, v3.00 final.
*
*  2/19/90 GAB	 Change:    Changed sys_version to $0302, v3.02 final for Cocoon build.
*
*  4/03/90 GAB   Change:    Changed sys_version to $8303, V3.03 prototype
*
*  8/07/90 GAB   Change:    Changed sys_version to $0303, V3.03 final for System Disk 5.0.3
*
*  8/23/90 GAB   Change:    Changed sys_version to $8304, V3.04 prototype
*
* 11/06/90 CAE	 Addition:  Added equate for fst_error.
*
* 02/08/91 GAB	 Addition:  File System ID equates.
*
*  2/07/92 GAB   Change:    Changed sys_version to $0400, V4.00 prototype (6.0)
*
*******************************************************************************
*
* 18-Feb-92 DAL	Change:	    Changed sys_version to $8401, v4.01 prototype (6.1)
*
* 2-Mar-92 DAL	Change:     Changed sys_version to $0401, v4.01 final (6.0!)
*
* 6-Mar-92 DAL	Change:     Changed sys_version to $8402, v4.02 prototype (6.1)
*
* 2-Apr-93 SS	Change:     Changed sys_version to $0402, v4.02 final (6.0.1)
*
*******************************************************************************

		eject
****************************************************************
*
* The following are direct page equates on the GS/OS
* direct page for driver usage.
*
****************************************************************


stack_top	equ	$00BFFF		; initial value of system stack pointer
direct_base	equ	$00BD00		; base address of system direct page
gquit_stack_top	equ	$00BCFF		; start of GQuit's stack space
gquit_stack_end	equ	$00BB00		; end of GQuit's stack space

drvr_start	equ	$0000		; start location of driver parameters
gs_start	equ	$0030		; start of GS/OS parameters
fst_start	equ	$0080		; start of FST parameters
cache_wspace	equ	$005A		; beginning addr of cache mgr w/space
drvr_wspace	equ	$006A		; ***** NUKE THIS LATER ****
sup_wspace	equ	$006C		; supervisory driver workspace

drvr_dev_num	equ	drvr_start	; (w)  device number
drvr_call_num	equ	drvr_dev_num+2	; (w)  call number
drvr_buf_ptr	equ	drvr_call_num+2	; (lw) buffer pointer
drvr_slist_ptr	equ	drvr_call_num+2	; (lw) buffer pointer
drvr_clist_ptr	equ	drvr_call_num+2	; (lw) buffer pointer
boot_slot	equ	drvr_buf_ptr	; (w)  boot slot for dispatcher only
dev_id_ref	equ	drvr_buf_ptr	; (w)  indirect device ID
dev_char_config	equ	drvr_buf_ptr+2	; (w)  BASIC/Pascal1.1 configuration
dev_pro_config	equ	drvr_buf_ptr+4	; (w)  ProDOS configuration
drvr_req_cnt	equ	drvr_buf_ptr+4	; (lw) request count
drvr_tran_cnt	equ	drvr_req_cnt+4	; (lw) transfer count
drvr_blk_num	equ	drvr_tran_cnt+4	; (lw) block number
drvr_blk_size	equ	drvr_blk_num+4	; (w)  block size
drvr_fst_num	equ	drvr_blk_size+2	; (w)  File System Translator Number
drvr_stat_code	equ	drvr_fst_num	; (b)  status code for status call
drvr_ctrl_code	equ	drvr_fst_num	; (b)  control code for control call
drvr_vol_id	equ	drvr_fst_num+2	; (w)  volume id
drvr_cache	equ	drvr_vol_id+2	; (w)  Cache Priority
drvr_cach_ptr	equ	drvr_cache+2	; (lw) pointer to cached block
drvr_dib_ptr	equ	drvr_cach_ptr+4	; (lw) pointer to active DIB
drvr_dev_ptr	equ	drvr_dib_ptr+4	; (lw) pointer to device list
gen_drvr_ptr	equ	drvr_dev_ptr+4	; (lw) pointer to generated driver list
fw_addr		equ	gen_drvr_ptr	; (lw) pointer to current slot

boot_user_id	equ	$6A		; (w)  User ID of BOOT.DRIVER

		eject
****************************************************************
*
* The following are equates used to access the device dispatcher
* file list structure.
*
****************************************************************
file_list_ptr	equ	gen_drvr_ptr+4		; pointer to GS/OS file name list
file_entry_ptr	equ	$56			; (lw) pointer to file list entry

file_filetype	equ	0			; (w)	driver filetype
file_auxtype	equ	file_filetype+2		; (w)	driver auxtype
file_user_id	equ	file_auxtype+2		; (w)	driver user id
file_load_addr	equ	file_user_id+2		; (lw)	driver load address
file_name	equ	file_load_addr+4	; (32)	file name (32 bytes maximum)
file_restart	equ	file_name+32		; (w)	driver restart flag
file_dev_num	equ	file_restart+2		; (w)	driver base device number


****************************************************************
*
* Cache Manager Direct Page
*
****************************************************************

cache_cur_ptr	equ	cache_wspace	; (lw) pointer to current cache cell
cache_nxt_ptr	equ	cache_cur_ptr+4	; (lw) pointer to next cache cell
cache_pre_ptr	equ	cache_nxt_ptr+4	; (lw) pointer to prev cache cell
cache_bkt_ptr	equ	cache_pre_ptr+4	; (lw) pointer to bucket list

default_cache_size	equ	$0040	;16k is default cache size


****************************************************************
*
* Supervisory Driver Direct Page
*
****************************************************************

post_drvr_tbl	equ	sup_wspace	; (lw) for dynamic driver installation
sup_drvr_ptr	equ	sup_wspace+4	; (lw) ptr to supervisor driver list
sib_ptr		equ	sup_drvr_ptr+4	; (lw) ptr to SIB
sup_parm_ptr	equ	sib_ptr+4	; (lw) ptr to supervisor parameters

****************************************************************
*
* The following are absolute zero page equates for use by
* slot resident firmware based ProDOS block device drivers.
*
****************************************************************

pcmd		equ	$0042		; (b)  ProDOS device command
punit		equ	$0043		; (b)  ProDOS unit number
pbuffer		equ	$0044		; (w)  ProDOS buffer address
pblock		equ	$0046		; (w)  ProDOS block number

****************************************************************
*
* The following are equates for driver command types.
*
****************************************************************

drvr_startup	equ	$0000		; driver startup command
drvr_open	equ	$0001		; driver open command
drvr_read	equ	$0002		; driver read command
drvr_write	equ	$0003		; driver write command
drvr_close	equ	$0004		; driver close command
drvr_status	equ	$0005		; driver status command
drvr_control	equ	$0006		; driver control command
drvr_flush	equ	$0007		; driver flush command
drvr_shutdn	equ	$0008		; driver shutdown command

****************************************************************
*
* The following are equates for dispatcher command types.
*
****************************************************************

dsptch_bootinit	equ	$0000		; dispatcher boot init command
get_dib_ptr	equ	$0001		; return a drivers DIB pointer
dsptch_shutdn	equ	$0002		; dispatcher shutdown command

****************************************************************
*
* GS/OS Direct Page Equates
*
****************************************************************

call_number     equ    gs_start        ; FST call number
param_blk_ptr   equ    call_number+2   ; pointer to user's parameter block
dev_num         equ    param_blk_ptr+4 ; device number from parameter block
dev1_num        equ    dev_num         ; alias name for dev_num
dev2_num        equ    dev1_num+2      ; second device number
path1_ptr       equ    dev2_num+2      ; ptr to 1st partial/entire pathname
fcr_ptr         equ    path1_ptr       ; pointer to file control record
path2_ptr       equ    path1_ptr+4     ; ptr to 2nd partial/entire pathname
vcr_ptr         equ    path2_ptr       ; pointer to volume control record
path_flag       equ    path2_ptr+4     ; flag for path information
*                                       ;
*                                       ; bit  14: 0 = pathname1 is null
*                                       ;      14: 1 = pathname1 is non-null
*                                       ;
*                                       ;      06: 0 = pathname2 is null
*                                       ;      06: 1 = pathname2 is non-null
*                                       ;
span1           equ    path_flag+2     ; largest distance between path1 term.
span2           equ    span1+2         ; max dist. between seperators for path2 

****************************************************************
*
* The following are equates for GS/OS error codes.
*
****************************************************************

no_error        equ    $00             ; no error has occured
bad_system_call equ    $01             ; bad system call number
fst_load_fail	equ    $02	       ; couldn't load FST
invalid_pcount  equ    $04             ; invalid parameter count
gsos_active     equ    $07             ; gsos already active
dev_not_found   equ    $10             ; device not found
invalid_dev_num equ    $11             ; invalid device number
drvr_bad_req    equ    $20             ; bad request or command
drvr_bad_code   equ    $21             ; bad control or status code
drvr_bad_parm   equ    $22             ; bad call parameter
drvr_not_open   equ    $23             ; character device not open
drvr_prior_open equ    $24             ; character device already open
irq_table_full  equ    $25             ; interrupt table full
drvr_no_resrc   equ    $26             ; resources not available
drvr_io_error   equ    $27             ; I/O error
drvr_no_dev     equ    $28             ; device not connected
drvr_busy       equ    $29             ; driver is busy & not available
drvr_wr_prot    equ    $2B             ; device is write protected
drvr_bad_count  equ    $2C             ; invalid byte count
drvr_bad_block  equ    $2D             ; invalid block number
drvr_disk_sw    equ    $2E             ; disk has been switched
drvr_off_line   equ    $2F             ; device off line / no media present
bad_path_syntax equ    $40             ; invalid pathname syntax
invalid_ref_num equ    $43             ; invalid reference number
path_not_found  equ    $44             ; subdirectory does not exist
vol_not_found   equ    $45             ; volume not found
file_not_found  equ    $46             ;
dup_pathname    equ    $47             ; create or rename with existing name
volume_full     equ    $48             ;
vol_dir_full    equ    $49             ; volume directory full
version_error   equ    $4A             ;
bad_store_type  equ    $4B             ; bad storage type
end_of_file     equ    $4C             ;
out_of_range    equ    $4D             ; position out of range
invalid_access  equ    $4E             ; access not allowed
buff_too_small  equ    $4F             ; buffer too small
softerrorlow    equ    $50             ; errors from $50 to $6f are soft errors
file_busy       equ    $50             ; file is already open
dir_error       equ    $51             ; directory error
unknown_vol     equ    $52             ; unknown volume type
parm_range_err  equ    $53             ; parameter out of range
out_of_mem      equ    $54             ; out of memory
dup_volume      equ    $57             ; duplicate volume name
not_block_dev   equ    $58             ; not a block device
invalid_level   equ    $59             ; specified level outside legal range
damaged_bitmap  equ    $5A             ; block number too large
bad_path_names  equ    $5B             ; invalid pathnames for change_path
not_system_file equ    $5C             ; not an executable file
os_unsupported  equ    $5D             ; operating system not supported
stack_overflow  equ    $5F             ; too many applications on stack
data_unavail    equ    $60             ; data unavailable
end_of_dir      equ    $61             ; end of directory has been reached
invalid_class   equ    $62             ; invalid FST call class
res_not_found   equ    $63             ; file does not contain req. resource
invalid_fst_id  equ    $64             ; specified FST is not present in system
invalid_fst_op  equ    $65             ; FST does not handle this type of call
fst_caution     equ    $66             ; FST handled call, but result is weird
dup_device      equ    $67             ; used internally only!!!
dev_list_full   equ    $68             ; device list is full
sup_list_full   equ    $69             ; supervisor list is full
fst_error	equ    	$6A	       	;generic FST error
softerrorhigh   equ    $6f             ; maximum soft error number allowed
resource_exist	equ	$70		;Cannot expand file, resource already exist		
res_add_err	equ	$71		;cannot add resource fork to this type file.

network_error	equ	$88		;Generic network error.

*******************************************************************************
*
* Fatal Errors:
*
****************************************************************

unclaimed_irq   equ    	$01             ; unclaimed interrupt
sd_scm_dealloc  equ    	$02		; deallocation error
sd_scm_alloc    equ    	$03             ; allocation error
wrong_os_ver    equ    	$11             ; wrong operating system version
bad_queue	equ	$77		; the notification_queue is corrupted.

****************************************************************
*
* FST equates: to be removed when lou loader is working!!!!!!!!!
*
****************************************************************

char_fst_entry  equ    $095000         ;address of Character FST header


****************************************************************
*
* DRIVER Equates:
*
****************************************************************

drvr_dev_stat   equ    $0000           ; device status code
drvr_ctrl_stat  equ    $0001           ; return control parms
drvr_get_wait   equ    $0002           ; return wait/no-wait mode
drvr_get_format equ    $0003           ; get format options

drvr_reset      equ    $0000           ; reset the device
drvr_format     equ    $0001           ; physically format the device
drvr_eject      equ    $0002           ; eject the media
drvr_set_ctrl   equ    $0003           ; set control parms
drvr_set_wait   equ    $0004           ; set wait/no-wait mode
drvr_set_format equ    $0005           ; set format options
drvr_set_ptn    equ    $0006           ; assign partition owner
drvr_insert     equ    $0007           ; logical media insertion

****************************************************************
*
* System Service Table Equates:
*
****************************************************************

dev_dispatcher  equ    $01FC00         ;dev_dispatch (initialized by new dev dispatcher)
cache_find_blk  equ    $01FC04         ;cash_find
cache_add_blk   equ    $01FC08         ;cash_add
cache_init      equ    $01FC0C         ;cache initialization
cache_shutdn    equ    $01FC10         ;cash_shutdown
cache_del_blk   equ    $01FC14         ;cash_delete
cache_del_vol   equ    $01FC18         ;cash_del_vol
alloc_seg       equ    $01FC1C         ;alloc_zero
release_seg     equ    $01FC20         ;deallocate
alloc_vcr       equ    $01FC24         ;allocvcr
release_vcr     equ    $01FC28         ;releasevcr
alloc_fcr       equ    $01FC2C         ;allocfcr
release_fcr     equ    $01FC30         ;releasefcr
swap_out        equ    $01FC34         ;swapout
deref           equ    $01FC38         ;deref2
get_sys_gbuf    equ    $01FC3C         ;s_get_sys_gbuf
sys_exit        equ    $01FC40         ;s_sys_exit
sys_death       equ    $01FC44         ;s_sys_death
find_vcr        equ    $01FC48         ;findvcr
find_fcr        equ    $01FC4C         ;findfcr
set_sys_speed   equ    $01FC50         ;set system speed (initialized by new dev dispatcher)
cache_flsh_def  equ    $01FC54         ;flush deferred blocks from cache
rename_vcr      equ    $01FC58         ;renamevcr
rename_fcr      equ    $01FC5C         ;renamefcr
get_vcr         equ    $01FC60         ;getvcr
get_fcr         equ    $01FC64         ;getfcr
lock_mem        equ    $01FC68         ;lockmem
unlock_mem      equ    $01FC6C         ;unlockmem
move_info       equ    $01FC70         ;block move routines
cvt_0to1        equ    $01FC74         ;cvt0to1
cvt_1to0        equ    $01FC78         ;cvt1to0
replace_80      equ    $01FC7C         ;replace80
to_b0_core      equ    $01FC80         ;to_bank0_core
gen_dispatch    equ    $01FC84         ;g_dispatch
signal          equ    $01FC88         ;signal_event
get_sys_buf     equ    $01FC8C         ;get_b0_buf
set_disksw      equ    $01FC90         ;set_disk_sw (initialized by new dev dispatcher)
report_error    equ    $01FC94         ;s_report_error
mount_message   equ    $01FC98         ;s_mount_msg
full_error      equ    $01FC9C         ;s_full_error
report_fatal    equ    $01FCA0         ;s_report_fatal
sup_drvr_disp   equ    $01FCA4         ;supervisory dispatcher
install_driver  equ    $01FCA8         ;install device driver
get_boot_pfx    equ    $01FCAC         ;s_get_boot_pfx
set_boot_pfx    equ    $01FCB0         ;s_set_boot_pfx
alloc_cache_seg equ    $01FCB4         ;low_allocate
get_stked_id    equ    $01FCB8         ;get id of prog at top of GQUIT stack
dyn_slot_arbiter equ   $01FCBC         ;slot arbitration routine (initialized by new dev dispatcher)
parse_pathname 	equ	$01FCC0		;parse a pathname
post_os_event	equ	$01FCC4		;notify external code about os event.
dynamic_install	equ	$01FCC8		;install drivers (new init by SCM to JML INSERT_DRIVER)
dev_mgr_svc	equ	$01FCCC		;device manager entry (initialized by new dev dispatcher)
old_dev_disp	equ	$01FCD0		;old device dispatcher (new init by SCM to JML DEV_DISPATCH)
init_parse_path	equ	$01FCD4		;initialize for parse_path.
		
****************************************************************
*
* Volume Control Record (VCR) Equates
*
****************************************************************

vcr_size        equ    18              ;Currently 18 bytes in length

vcr_id          equ    $0000           ;offset to volume ID
vcr_name        equ    vcr_id+2        ;offset to volume name pointer
vcr_status      equ    vcr_name+4      ;offset volume status
vcr_open_cnt    equ    vcr_status+2    ;offset to number of open files on vol.
vcr_fst_id      equ    vcr_open_cnt+2  ;offset to owner ID number
vcr_dev         equ    vcr_fst_id+2    ;offset to where volume was last seen
vcr_fst_ptr     equ    vcr_dev+2       ;offset to where volume was last seen

vcr_swapped     equ    $4000           ;FLAG:Volume is swapped out (1 = true)
vcr_swapped_in  equ    $BFFF           ;FLAG:Volume is swapped in

vcr_wr_enable   equ    $2000           ;FLAG:Volume has been seen write enabled
vcr_wr_unknown  equ    $DFFF           ;FLAG:Volume has not been seen wrenbld

****************************************************************
*
* File Control Record Equates:
*
****************************************************************

fcr_ref_num     equ    $0000
fcr_path_name   equ    fcr_ref_num+2
fcr_fst_id      equ    fcr_path_name+4
fcr_vol_id      equ    fcr_fst_id+2
fcr_level       equ    fcr_vol_id+2
fcr_newline     equ    fcr_level+2
fcr_newline_len equ    fcr_newline+4
fcr_mask        equ    fcr_newline_len+2
fcr_access      equ    fcr_mask+2

;--------------------------------------------------------------------------
; cache header equates
;
; Copyright (c) 1987 Apple Computer Inc. All rights reserved.
; author: Ray (Rowdy Yates) Chiang
;--------------------------------------------------------------------------

c_lru_fwd       equ    $0000           ;vp to  forward LRU vp link
c_lru_bwd       equ    c_lru_fwd+4     ;vp to backward LRU vp link
c_bkt_fwd       equ    c_lru_bwd+4     ;vp to  forward bucket vp link
c_bkt_bwd       equ    c_bkt_fwd+4     ;vp to backward bucket vp link
c_blknum        equ    c_bkt_bwd+4     ;block number  of cached block
c_blksize       equ    c_blknum+4      ;block   size  of cached block
c_fstnum        equ    c_blksize+2     ;FST number    of cached block
c_volumeid      equ    c_fstnum+2      ;volume id     of cached block
c_devnum        equ    c_volumeid+2    ;device number of cached block
c_priority      equ    c_devnum+2      ;cache priority
c_cellsize      equ    c_priority+2    ;size of this cache cell
c_reserved      equ    c_cellsize+2    ;reserved
c_headerlen     equ    c_reserved+4    ;length of cache header
c_cached_data   equ    c_reserved+4    ;offset to cached data block

;--------------------------------------------------------------------------
; general and miscellaneous equates
;--------------------------------------------------------------------------

ram_cache_size  equ    $0081           ;battery ram location for this

star_pfx_num    equ    32              ;Prefix #32 is the star prefix

sys_version     equ    $0402           ;Version 4.02 final
debug_calls     equ    $0000           ;Turn off debugging calls
debug_type      equ    $0010           ;Highest numbered type


****************************************************************
*
* Parameter Block Equates
*
****************************************************************

pblk_09_pfxnum  equ    $0000           ;Set and Get Prefix
pblk_09_pname   equ    $0002

pblk_0E_pname1  equ    $0000           ;Expand Path
pblk_0E_pname2  equ    $0004

pblk_14_refnum  equ    $0000           ;Close and Flush

pblk_1a_level   equ    $0000           ;Set and Get Level
pblk_1a_flags	equ    $0002		;Set and Get Level flags.

pblk_28_pname   equ    $0000           ;Get Boot Volume

pblk_2a_version equ    $0000           ;Get Version Number

pblk_37_pfxnum  equ    $0000           ;Get_Std_Ref_Num.
pblk_37_refnum  equ    $0002


*****************************************************************
*
* Emulation mode stack pointer
*
*****************************************************************

emulstack       equ    $010100

*****************************************************************
*
* command word for the moveinfo routine
*
*****************************************************************

moveblkcmd      equ    $0800           ;tell hardware to do block move option

; the movevaliditymask is a mask used to determine if a user's command word
;   is using any invalid (reserved bits or not).  this value changes as reserved
;   bits become active!!!!!!!

movevaliditymask equ   $f7f0           ;invalid move if any of these bits =1

; most common command

move_sinc_dinc  equ    $05+moveblkcmd  ;source incs - destination incs

; less common commands

move_sinc_ddec  equ    $09+moveblkcmd  ;source incs - destination decs
move_sdec_dinc  equ    $06+moveblkcmd  ;source decs - destination incs
move_sdec_ddec  equ    $0a+moveblkcmd  ;source decs - destination decs

move_scon_dcon  equ    $00+moveblkcmd  ;source constant - destination constant
move_sinc_dcon  equ    $01+moveblkcmd  ;source incs - destination constant
move_sdec_dcon  equ    $02+moveblkcmd  ;source decs - destination constant
move_scon_dinc  equ    $04+moveblkcmd  ;source constant - destination incs
move_scon_ddec  equ    $08+moveblkcmd  ;source constant - destination decs

*****************************************************************
*
* GS/OS event codes
*
*****************************************************************

switch_to_p8	equ	$00000002	;Switch from GS/OS to P8.
switch_to_gsos	equ	$00000004	;Switch from P8 to GS/OS.
disk_insert	equ	$00000008	;Disk inserted.
disk_eject	equ	$00000010	;Disk ejected.
gsos_shutdown	equ	$00000020	;OS shutdown.
volume_change	equ	$00000040	;Volume changed.

*****************************************************************
*
* GS/OS globals (Grows downwards from $00b9ff)
*
*****************************************************************

session_stat	equ	$00b9fe		;$0000 = no session in progress
					;$0001 = session in progress
current_speed	equ	$00b9fc		
post_index	equ	$00b9fa		;# drivers remaining to install.
char_dev_flag	equ	$00b9f8		;non-zero if get_dnum finds
					;character device.
sys_prefs	equ	$00b9f6		;System	behavior preferences
					;bit 15=0 MOUNT	procedure will not
					;	  display mount	dialog.	 It
					;	  will respond as if user had
					;	  selected Cancel in mount
					;	  dialog.
					;      =1 MOUNT	procedure will display
					;	  mount	dialog and return user
					;	  response.
					;bit 14=0 MOUNT	dialog will have cancel
					;	  button.
					;      =1 MOUNT dialog will not have
					;	  cancel button.
					;bit 13=0 Error dialogs (dialogs with
					;	  only one button) will not be
					;	  suppressed.
					;      =1 Error dialogs will be 
					;	  suppressed.
					;
					;bits 12:0 reserved for	Apple
fst_tbl_ptr	equ	$00b9f2		;Set by SCM to point to fst table.

dev_start_flag	equ	$00b9f0		;set to non zero during device dispatcher
					;startup.
					
					;>>>>>>>>> !!! NOTE !!! <<<<<<<<<<<<<
					;This equate defines the end of the
globals_end	equ	$00b9ee		;globals space and MUST be moved down
					;each time something is added to the
					;globals.
					;>>>>>>>>> !!! NOTE !!! <<<<<<<<<<<<<

****************************************************************************************************
*
* File System ID equates
*
****************************************************************************************************

proDOSFSID	EQU	$0001  		; ProDOS/SOS 
dos33FSID	EQU	$0002		; DOS 3.3
dos32FSID	EQU	$0003		; DOS 3.2
dos31FSID	EQU	$0003		; DOS 3.1
appleIIPascalFSID EQU	$0004		; Apple II Pascal
mfsFSID		EQU	$0005		; Macintosh (flat file system)
hfsFSID		EQU	$0006		; Macintosh (hierarchical file system)
lisaFSID	EQU	$0007		; Lisa file system
appleCPMFSID	EQU	$0008		; Apple CP/M
charFSTFSID	EQU	$0009		; Character FST
msDOSFSID	EQU	$000A		; MS/DOS
highSierraFSID	EQU	$000B		; High Sierra
iso9660FSID	EQU	$000C		; ISO 9660
appleShareFSID	EQU	$000D		; ISO 9660
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Common/driver.equ.src b/IIGS.601.SRC/GS.OS/Common/driver.equ.src
new file mode 100644
index 0000000..358a97c
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Common/driver.equ.src
@@ -0,0 +1 @@
+****************************************************************
*
*		GS/OS Driver Equates
*
****************************************************************
*
*		Copyright © 1987 - 1989
*		Apple Computer, Inc.
*		All rights reserved.
*
****************************************************************
*
* REVISION HISTORY:
*
* mm/dd/yy who version what
*
*  3/01/89 RBM Ported equates for gen_drvr_ptr & fw_addr to
*		common equates file for ease of maintainance.
*
****************************************************************
*
* The following are absolute zero page equates for use by
* slot resident firmware based BASIC character devices.
*
****************************************************************

out_hook         equ    $0036           ; (w)  Output hook
in_hook          equ    $0038           ; (w)  Input hook

****************************************************************
*
* The following are equates for the driver's DIB
*
****************************************************************

dib_size        equ     76              ; 64 bytes per DIB + 12 bytes per GDIB

link_ptr	equ	0		; (lw) link pointer to next dib
entry_ptr	equ	link_ptr+4	; (lw) pointer to driver entry point
dev_char	equ	entry_ptr+4	; (w)  device characteristics
blk_cnt		equ	dev_char+2	; (lw) number of blocks on device
dev_name	equ	blk_cnt+4	; (32) count and ascii name
slot_num	equ	dev_name+32	; (w)  slot where driver resides
unit_num	equ	slot_num+2	; (w)  unit within slot
ver_num		equ	unit_num+2	; (w)  version number of driver
dev_id_num	equ	ver_num+2	; (w)  device ID number
head_link	equ	dev_id_num+2	; (w)  backward device link by devnum
forward_link	equ	head_link+2	; (w)  forward device link by devnum
extended_dib	equ	forward_link+2	; (w)  reserved for future OS expansion
dib_dev_num	equ	extended_dib+4	; (w)  device # of this device

****************************************************************
*
* The following are equates for the driver's GDIB
*
****************************************************************

drvr_class	equ	dib_dev_num+2	; (w)  driver class
drvr_type	equ	drvr_class+2	; (w)  driver type
drvr_subtype	equ	drvr_type+2	; (w)  driver subtype
cache_mask	equ	drvr_subtype+2	; (w)  cache mask (block dev) or
open_flag	equ	cache_mask	;      open flag (character dev)
block_size	equ	open_flag+2	; (w)  block size
hardware_unit	equ	block_size+2	; (w)  Hardware unit number

****************************************************************
*
* The following are equates for the driver's usage
*
****************************************************************

drvr_entry      equ     hardware_unit+2 ; (?)   driver entry point

****************************************************************
*
* The following are bank 0 dispatcher direct page equates.
*
****************************************************************

buf_ptr          equ    $00007C         ; (lw) buffer pointer to application

****************************************************************
*
* The following are general system equates.
*
****************************************************************

nop             equ     $EA             ; NOP instruction
max_drvr_cmd    equ     $0009           ; maximum driver command number
slot5_dev_cnt   equ     $E10FB8         ; device count

*****************************************************************
*
* The following are supervisor driver equates.
*
* The following bit definitions are for the supervisor characteristics word.
*  ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___
* |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |
* | F | E | D | C | B | A | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 |
* |___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |__ RESERVED
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |______ RESERVED
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |__________ RESERVED
*   |   |   |   |   |   |   |   |   |   |   |   |   |______________ RESERVED
*   |   |   |   |   |   |   |   |   |   |   |   |__________________ RESERVED
*   |   |   |   |   |   |   |   |   |   |   |______________________ RESERVED
*   |   |   |   |   |   |   |   |   |   |__________________________ RESERVED
*   |   |   |   |   |   |   |   |   |______________________________ RESERVED
*   |   |   |   |   |   |   |   |__________________________________ RESERVED
*   |   |   |   |   |   |   |______________________________________ RESERVED
*   |   |   |   |   |   |__________________________________________ RESERVED
*   |   |   |   |   |______________________________________________ RESERVED
*   |   |   |   |__________________________________________________ RESERVED
*   |   |   |______________________________________________________ RESERVED
*   |   |__________________________________________________________ RESERVED
*   |______________________________________________________________ Restartable
*
*****************************************************************
sib_address      equ    $0000
sib_id           equ    sib_address+4
sib_ver          equ    sib_id+2
sib_name	equ	sib_ver+2
sib_char	equ	sib_name+4


max_command     equ     $0009           ; Maximum command number + 1
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Common/gsos.macros.src b/IIGS.601.SRC/GS.OS/Common/gsos.macros.src
new file mode 100644
index 0000000..405067b
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Common/gsos.macros.src
@@ -0,0 +1 @@
+***************************************************************
*
*               Macros used by GS/OS
*
*               Jan 20, 1988 09:36
*               (Dec 18, 1987 11:34)
*               (Nov 24, 1987 09:23)
*               (July 21, 1988 14:23)
***************************************************************

 MACRO
&lab _installcda
*
* Stack input for InstallCDA is as follows:
*
*               longword   Handle to ID structure of desk accessory
*           sp->
*
&lab ldx #$0F05
 jsl $E10000
 MEND

 MACRO
&lab _GetNewID
*
* Stack input for GetNewID is as follows:
*
*               word    (space for result)
*               word    ID type && Aux
*           sp->
*
&lab ldx #$2003
 jsl $E10000
 MEND

 MACRO
&lab _SysFailMgr
*
* Stack input for SysFailMgr is as follows:
*
*               word    Error code
*               Long    Pointer to ascii string
*           sp->
*
&lab ldx #$1503
 jsl $E10000
 MEND

 MACRO
&lab _SetVector
*
* Stack input for SetVector is as follows:
*
*               word    Reference Number
*               Long    Pointer to manager or handler
*           sp->
*
&lab ldx #$1003
 jsl $E10000
 MEND

 MACRO
&lab _GetVector
*
* Stack input for GetVector is as follows:
*
*               Long    (space for result : returned pointer)
*               Word    Reference Number
*           sp->
*
&lab ldx #$1103
 jsl $E10000
 MEND

 MACRO
&lab _DeleteID
*
* Stack input for DeleteID is as follows:
*
*               word    ID type && Main
*           sp->
*
&lab ldx #$2103
 jsl $E10000
 MEND

 MACRO
&lab _ReadBRam
*
* Stack input for ReadBParm is as follows:
*
*               long    Pointer to callers 256 byte buffer
*           sp->
*
&lab ldx #$0A03
 jsl $E10000
 MEND

 MACRO
&lab _ReadBParm
*
* Stack input for ReadBParm is as follows:
*
*               Word    (Space for result)
*               Word    Parameter Reference Number
*           sp->
*
&lab ldx #$0C03
 jsl $E10000
 MEND

 MACRO
&lab _StatusID
*
* Stack input for StatusID is as follows:
*
*               word    ID type & Main
*           sp->
*
&lab ldx #$2203
 jsl $E10000
 MEND

 MACRO
&lab _FWEntry
*
* Stack input for FWEntry is as follows:
*
*               word    (space for result)
*               word    (space for result)
*               word    (space for result)
*               word    (space for result)
*               word    A Register (in low byte)
*               word    X Register (in low byte)
*               word    Y Register (in low byte)
*               word    Apple][ emulation mode rom entry point
*           sp->
*
&lab ldx #$2403
 jsl $E10000
 MEND

 MACRO
&lab _SysBeep
*
* Stack input for SysBeep is as follows:
*
*           sp->
*
&lab ldx #$2C03
 jsl $E10000
 MEND

 MACRO
&lab _BlockMove
*
* Stack input for BlockMove is as follows:
*
*           longword    Pointer to source
*           longword    Pointer to destination
*           longword    Count of bytes to be copied
*       sp->
*
&lab ldx #$2B02
 jsl $E10000
 MEND

 MACRO
&lab _CompactMem
*
* Stack input for CompatcMem is as follows:
*
*       sp->    (No parameters are passed)
*
&lab ldx #$1F02
 jsl $E10000
 MEND

 MACRO
&lab _DisposeAll
*
* Stack input for DisposeAll is as follows:
*
*           Word        User ID of handles to be discarded
*       sp->
*
&lab ldx #$1102
 jsl $E10000
 MEND

 MACRO
&lab _DisposeHandle
*
* Stack input for DisposeHandle is as follows:
*
*           longword    Handle to dispose of
*       sp->
*
&lab ldx #$1002
 jsl $E10000
 MEND

 MACRO
&lab _FreeMem
*
* Stack input for FreeMem is as follows:
*
*           longword    Space for result
*       sp->
*
&lab ldx #$1B02
 jsl $E10000
 MEND

 MACRO
&lab _FindHandle
*
* Stack input for FindHandle is as follows:
*
*           longword    Space for result
*           longword    Pointer whose handle will be found
*       sp->
*
&lab ldx #$1A02
 jsl $E10000
 MEND

 MACRO
&lab _GetHandleSize
*
* Stack input for GetHandleSize is as follows:
*
*           longword    (space for result)
*           longword    Handle of block to get size of
*       sp->
*
&lab ldx #$1802
 jsl $E10000
 MEND

 MACRO
&lab _HLock
*
* Stack input for HLock is as follows:
*
*           longword    Handle of block to lock
*       sp->
*
&lab ldx #$2002
 jsl $E10000
 MEND

 MACRO
&lab _HUnlock
*
* Stack input for HUnlock is as follows:
*
*           longword    Handle of block to unlock
*       sp->
*
&lab ldx #$2202
 jsl $E10000
 MEND

 MACRO
&lab _MaxBlock
*
* Stack input for MaxBlock is as follows:
*
*           longword    (space for result)
*       sp->
*
&lab ldx #$1C02
 jsl $E10000
 MEND

 MACRO
&lab _NewHandle
*
* Stack input for NewHandle is as follows:
*
*           longword    (space for result)
*           longword    Size of block to create
*           word        User ID
*           word        Attributes
*           longword    Pointer to block
*       sp->
*
&lab ldx #$0902
 jsl $E10000
 MEND

 MACRO
&lab _PurgeHandle
*
* Stack input for PurgeHandle is as follows:
*
*           longword    Handle of block to purge
*       sp->
*
&lab ldx #$1202
 jsl $E10000
 MEND

 MACRO
&lab _SetHandleSize
*
* Stack input for SetHandleSize is as follows:
*
*           longword    New size of the block
*           longword    Handle of block whose size is to be set
*       sp->
*
&lab ldx #$1902
 jsl $E10000
 MEND

 MACRO
&lab _Multiply
*
* Stack input for Multiply is as follows:
*
*           longword    (space for result)
*           Word        Multiplicand
*           Word        Multiplier
*       sp->
*
&lab ldx #$090B
 jsl $E10000
 MEND

 MACRO
&lab _LongDivide
*
* Stack input for LongDivide is as follows:
*
*           LongWord    (space for result - remainder)
*           LongWord    (space for result - quotient)
*           LongWord    Numerator
*           LongWord    Denominator
*       sp->
*
&lab ldx #$0D0B
 jsl $E10000
 MEND

 MACRO
&lab _SDivide
*
* Stack input for SDivide is as follows:
*
*           Word        (space for result - remainder)
*           Word        (space for result - quotient)
*           Word        Numerator
*           Word        Denominator
*       sp->
*
&lab ldx #$0A0B
 jsl $E10000
 MEND

 MACRO
&lab _HexIt
*
* Stack input for HexIt is as follows:
*
*           Longword    (space for result)
*           Word        Integer to be converted
*       sp->
*
&lab ldx #$2A0B
 jsl $E10000
 MEND

 MACRO
&lab _Int2Hex
*
* Stack input for Int2Hex is as follows:
*
*           Word        Integer to be converted
*           Longword    Pointer to output string
*           Word        Length of output string
*       sp->
*
&lab ldx #$220B
 jsl $E10000
 MEND

 MACRO
&lab _Int2Dec
*
* Stack input for Int2Dec is as follows:
*
*           Word        Integer to be converted
*           Longword    Pointer to output string
*           Word        Length of output string
*           Word        0 = unsigned, All other values = signed
*       sp->
*
&lab ldx #$260B
 jsl $E10000
 MEND

 MACRO
&lab _Long2Hex
*
* Stack input for long2hex is as follows:
*
*           longword    32 bit unsigned integer to be converted
*           Longword    Pointer to output string
*           Word        Length of output string
*       sp->
*
&lab ldx #$230B
 jsl $E10000
 MEND

 MACRO
&lab _Hex2Int
*
* Stack input for hex2int is as follows:
*
*               Long    Pointer to input string
*               Word    Length of input string
*           sp->
*
&lab ldx #$240B
 jsl $E10000
 MEND

 MACRO
&lab _Dec2Int
*
* Stack input for hex2int is as follows:
*
*               Word    (Space for result)
*               Long    Pointer to input string
*               Word    Length of input string
*               Word    Sign (0 = unsigned)
*           sp->
*
&lab ldx #$280B
 jsl $E10000
 MEND

 MACRO
&lab _Hex2Long
*
* Stack input for hex2long is as follows:
*
*           longword    32 bit unsigned integer to be converted
*           Longword    Pointer to input string
*           Word        Length of input string
*       sp->
*
&lab ldx #$250B
 jsl $E10000
 MEND

 MACRO
&lab _SetInGlobals
*
* Stack input for SetInGlobals is as follows:
*
*               word    AND mask
*               word    OR mask
*           sp->
*
&lab ldx #$090C
 jsl $E10000
 MEND

 MACRO
&lab _SetOutGlobals
*
* Stack input for SetOutGlobals is as follows:
*
*               word    AND mask
*               word    OR mask
*           sp->
*
&lab ldx #$0A0C
 jsl $E10000
 MEND

 MACRO
&lab _SetErrGlobals
*
* Stack input for SetErrGlobals is as follows:
*
*               word    AND mask
*               word    OR mask
*           sp->
*
&lab ldx #$0B0C
 jsl $E10000
 MEND

 MACRO
&lab _GetInGlobals
*
* Stack input for GetInGlobals is as follows:
*
*               word    AND mask
*               word    OR mask
*           sp->
*
&lab ldx #$0C0C
 jsl $E10000
 MEND

 MACRO
&lab _GetOutGlobals
*
* Stack input for GetOutputGlobals is as follows:
*
*               word    AND mask
*               word    OR mask
*           sp->
*
&lab ldx #$0D0C
 jsl $E10000
 MEND

 MACRO
&lab _GetErrGlobals
*
* Stack input for GetErrGlobals is as follows:
*
*               word    AND mask
*               word    OR mask
*           sp->
*
&lab ldx #$0E0C
 jsl $E10000
 MEND

 MACRO
&lab _SetInputDevice
*
* Stack input for SetInputDevice is as follows:
*
*               word    Device type
*               long    pointer or slot
*           sp->
*
&lab ldx #$0F0C
 jsl $E10000
 MEND

 MACRO
&lab _SetOutputDevice
*
* Stack input for SetOutputDevice is as follows:
*
*               word    Device Type
*               word    pointer or slot
*           sp->
*
&lab ldx #$100C
 jsl $E10000
 MEND

 MACRO
&lab _SetErrorDevice
*
* Stack input for SetErrorDevice is as follows:
*
*               word    Device Type
*               word    Pointer or slot
*           sp->
*
&lab ldx #$110C
 jsl $E10000
 MEND

 MACRO
&lab _GetInputDevice
*
* Stack input for GetInputDevice is as follows:
*
*               word    Device type
*               long    pointer or slot
*           sp->
*
&lab ldx #$120C
 jsl $E10000
 MEND

 MACRO
&lab _GetOutputDevice
*
* Stack input for GetOutputDevice is as follows:
*
*               word    Device Type
*               word    pointer or slot
*           sp->
*
&lab ldx #$130C
 jsl $E10000
 MEND

 MACRO
&lab _GetErrorDevice
*
* Stack input for GetErrorDevice is as follows:
*
*               word    Device Type
*               word    Pointer or slot
*           sp->
*
&lab ldx #$140C
 jsl $E10000
 MEND

 MACRO
&lab _InitTextDev
*
* Stack input for InitTextDev is as follows:
*
*               word    Device to initialize
*           sp->
*
&lab ldx #$150C
 jsl $E10000
 MEND

 MACRO
&lab _WriteChar
*
* Stack input for WrChar is as follows:
*
*               word    Character (in low byte of word)
*           sp->
*
&lab ldx #$180C
 jsl $E10000
 MEND

 MACRO
&lab _WriteString
*
* Stack input for WrString is as follows:
*
*               long    Buffer Address
*           sp->
*
&lab ldx #$1C0C
 jsl $E10000
 MEND

 MACRO
&lab _WriteBlock
*
* Stack input for WrBlock is as follows:
*
*               long    Pointer to ASCII text
*               word    offset
*               word    count
*           sp->
*
&lab ldx #$1E0C
 jsl $E10000
 MEND

 MACRO
&lab _WriteCString
*
* Stack input for WrCString is as follows:
*
*               long    Pointer to ASCII C-String
*           sp->
*
&lab ldx #$200C
 jsl $E10000
 MEND

 MACRO
&lab _ReadChar
*
* Stack input for ReadChar is as follows:
*
*               word    Character
*           sp->
*
&lab ldx #$220C
 jsl $E10000
 MEND

 MACRO
&lab _InitialLoad
*
* Stack input for InitialLoad is as follows:
*
*               Word    Space for result: dir.page/stack size
*               Word    Space for result: dir.page/stack addr
*               Long    Space for result: starting address
*               Word    Space for result: user id
*               Word    User ID
*               Long    Pointer to load file name
*               Word    Memory flag
*           sp->
*
&lab ldx #$0911
 jsl $E10000
 MEND

 MACRO
&lab _InitialLoad2
*
* Stack input for InitialLoad is as follows:
*
*               Word    Space for result: dir.page/stack size
*               Word    Space for result: dir.page/stack addr
*               Long    Space for result: starting address
*               Word    Space for result: user id
*               Word    User ID
*               Long    Pointer to load file name
*               Word    Memory flag (0 = can use special memory, 1 = can't)
*               Word    Pathname string class (0 or 1)

*           sp->
*
&lab ldx #$2011
 jsl $E10000
 MEND

 MACRO
&lab _LoadSegNum
*
* Stack input for LoadSegNum is as follows:
*
*               Long    Space for result: starting address
*               Word    User ID
*               Word    Load file number
*               Word    Load segment number
*           sp->
*
&lab ldx #$0B11
 jsl $E10000
 MEND

 MACRO
&lab _UnLoadSegNum
*
* Stack input for UnLoadSegNum is as follows:
*
*               Word    User ID
*               Word    Load file number
*               Word    Load segment number
*           sp->
*
&lab ldx #$0C11
 jsl $E10000
 MEND

 MACRO
&lab _LoadSegName
*
* Stack input for LoadSegName is as follows:
*
*               Word    Space for result: Load segment number
*               Word    Space for result: Load file number
*               Word    Space for result: User ID
*               Long    Space for result: Address of segment
*               Word    User ID
*               Long    Address of load file name
*               Long    Address of load segment name
*           sp->
*
&lab ldx #$0D11
 jsl $E10000
 MEND

 MACRO
&lab _UnloadSeg
*
* Stack input for UnloadSeg is as follows:
*
*               Word    Space for result: Load segment number
*               Word    Space for result: Load file number
*               Word    Space for result: User ID
*               Long    Address in segment
*           sp->
*
&lab ldx #$0E11
 jsl $E10000
 MEND

 MACRO
&lab _GetLoadSegInfo
*
* Stack input for GetLoadSegInfo is as follows:
*
*               Word    User ID
*               Word    Load file number
*               Word    Load segment number
*               Long    Address of user buffer
*           sp->
*
&lab ldx #$0F11
 jsl $E10000
 MEND

 MACRO
&lab _GetUserID
*
* Stack input for GetUserID is as follows:
*
*               Word    Space for result: User ID
*               Long    Address of pathname
*           sp->
*
&lab ldx #$1011
 jsl $E10000
 MEND

 MACRO
&lab _GetUserID2
*
* Stack input for GetUserID is as follows:
*
*               Word    Space for result: User ID
*               Long    Address of pathname
*           sp->
*
&lab ldx #$2111
 jsl $E10000
 MEND

 MACRO
&lab _GetPathname
*
* Stack input for GetPathname is as follows:
*
*               Long    Space for result: Address of pathname
*               Word    User ID
*               Word    Load file number
*           sp->
*
&lab ldx #$1111
 jsl $E10000
 MEND

 MACRO
&lab _GetPathname2
*
* Stack input for GetPathname is as follows:
*
*               Long    Space for result: Address of pathname
*               Word    User ID
*               Word    Load file number
*           sp->
*
&lab ldx #$2211
 jsl $E10000
 MEND

 MACRO
&lab _UserShutdown
*
* Stack input for UserShutdown is as follows:
*
*               Word    Space for result: User ID
*               Word    User ID
*               Word    Quit flag
*           sp->
*
&lab ldx #$1211
 jsl $E10000
 MEND

 MACRO
&lab _Create &params
*
* GS/OS System Call: CREATE (subclass 1)
*
*        Input          Word            Pcount (minimum = $0001)
*        Input          Long            Pathname pointer
*        Input          Word            Access
*        Input          Word            File_Type
*        Input          Long            Aux_Type
*        Input          Word            Storage_type
*        Input          long            eof
*        Input          long            resource eof
*
&lab jsl $E100A8
	DC.B	$01,$20
	DC.L	&params
 MEND

 MACRO
&lab _Destory &params
*
* GS/OS System Call: DESTROY (subclass 1)
*
*        Input          Word            Pcount (minimum = $0001)
*        Input          Long            Pathname pointer
*
&lab jsl $E100A8
	DC.B	$02,$20
	DC.L	&params
 MEND

 MACRO
&lab _Purge &params
*
* GS/OS System Call: Purge (subclass 1)
*
* WARNING: This call is not implemented!!!
*
&lab jsl $E100A8
	DC.B	$03,$20
	DC.L	&params
 MEND

 MACRO
&lab _Change_Path &params
*
* GS/OS System Call: CHANGE_PATH (subclass 1)
*
*        Input          Word            Pcount (minimum = $0002)
*        Input          Long            Pathname pointer
*        Input          Long            New pathname pointer
*
&lab jsl $E100A8
	DC.B	$04,$20
	DC.L	&params
 MEND

 MACRO
&lab _Set_File_Info &params
*
* GS/OS System Call: SET_FILE_INFO (subclass 1)
*
*        Input          Word            Pcount (minimum = $0002)
*        Input          Long            Pathname pointer
*        Input          Word            Access
*        Input          Word            File_Type
*        Input          Long            Aux_Type
*                       Word            Null = $0000
*        Input          DoubleLong      Create_Date_Time
*        Input          DoubleLong      Mod_Date_Time
*        Input          Long            Option_List pointer
*                       Word            Null = $0000
*                       Word            Null = $0000
*                       Word            Null = $0000
*                       Word            Null = $0000
*
&lab jsl $E100A8
	DC.B	$05,$20
	DC.L	&params
 MEND

 MACRO
&lab _Get_File_Info &params
*
* GS/OS System Call: GET_FILE_INFO (subclass 1)
*
*        Input          Word            Pcount (minimum = $0002)
*        Input          Long            Pathname pointer
*        Output         Word            Access
*        Output         Word            File_Type
*        Output         Long            Aux_Type
*        Output         Word            Storage_Type
*        Output         DoubleLong      Create_Date_Time
*        Output         DoubleLong      Mod_Date_Time
*        Input          Long            Option_List pointer
*        Output         Long            EOF
*        Output         Long            Blocks Used
*        Output         Long            Resource EOF
*        Output         Long            Resource Blocks Used
*
&lab jsl $E100A8
	DC.B	$06,$20
	DC.L	&params
 MEND

 MACRO
&lab _UnPurge &params
*
* GS/OS System Call: UNPURGE (subclass 1)
*
* WARNING: This call is not implemented
*
&lab jsl $E100A8
	DC.B	$07,$20
	DC.L	&params
 MEND

 MACRO
&lab _Volume &params
*
* GS/OS System Call: VOLUME (subclass 1)
*
*        Input          Word            Pcount (minimum = $0002)
*        Input          Long            Device Name
*        Input          Long            Volume name
*        Input          Long            Total blocks
*        Input          Long            Free blocks
*        Input          Word            File system ID
*        Input          Word            Block size
*
&lab jsl $E100A8
	DC.B	$08,$20
	DC.L	&params
 MEND

 MACRO
&lab _Set_Prefix &params
*
* GS/OS System Call: SET_PREFIX (subclass 1)
*
*        Input          Word            Pcount (minimum = $0001)
*        Input          Word            Prefix_Num       ($0000-$001F)
*        Input          Long            Prefix           (Default = $00000000)
*
&lab jsl $E100A8
	DC.B	$09,$20
	DC.L	&params
 MEND

 MACRO
&lab _Get_Prefix &params
*
* GS/OS System Call: GET_PREFIX (subclass 1)
*
*        Input          Word            Pcount (minimum = $0002)
*        Input          Word            Prefix number
*        Input          Long            Pointer to output string
*
&lab jsl $E100A8
	DC.B	$0A,$20
	DC.L	&params
 MEND

 MACRO
&lab _Clear_Backup_bit &params
*
* GS/OS System Call: CLEAR_BACKUP_BIT (subclass 1)
*
*        Input          Word            Pcount (minimum = $0001)
*        Input          Long            Pathname pointer
*
&lab jsl $E100A8
	DC.B	$0B,$20
	DC.L	&params
 MEND

 MACRO
&lab _Destroy_Purge &params
*
* GS/OS System Call: DESTROY_PURGE (subclass 1)
*
* WARNING: This call is not implemented!!!
*
&lab jsl $E100A8
	DC.B	$0C,$20
	DC.L	&params
 MEND

 MACRO
&lab _Null &params
*
* GS/OS System Call: NULL (subclass 1)
*
*        Input          Word            Pcount (minimum = $0000)
*
&lab jsl $E100A8
	DC.B	$0D,$20
	DC.L	&params
 MEND

 MACRO
&lab _Alter_Dir &params
*
* GS/OS System Call: ALTER_DIR (subclass 1)
*
*        Input          Word            Pcount (minimum = $0002)
*        Input          Word            Reference number
*        Input          Long            Pathname pointer
*        Input          Word            Request access
*        Input          Word            Resource number
*        Output         Word            Access
*        Output         Word            FileType
*        Output         Long            AuxType
*        Output         Word            Storage Type
*        Output         DoubleLong      Create date / time
*        Output         DoubleLong      Mod date / time
*        Input          Long            Option list pointer
*        Output         Long            EOF
*        Output         Long            blocks used
*        Output         Long            Resource EOF
*        Output         Long            Resource blocks used
*
&lab jsl $E100A8
	DC.B	$0F,$20
	DC.L	&params
 MEND

 MACRO
&lab _OPEN &params
*
* GS/OS System Call: OPEN (subclass 1)
*
*        Input          Word            Pcount (minimum = $0002)
*        Output         Word            Ref_Num
*        Input          Long            Pathname pointer
*        Input          Word            Request_Access  (Default = as allowed)
*        Input          Word            Resource_Number (Default = $0000)
*        Output         Word            Access
*        Output         Word            File_Type
*        Output         Long            Aux_Type
*        Output         Word            Storage_Type
*        Output         DoubleLong      Create_Date_Time
*        Output         DoubleLong      Mod_Date_Time
*        Input          Long            Option_List pointer
*        Output         Long            EOF
*        Output         Long            Blocks Used
*        Output         Long            Resource_EOF
*        Output         Long            Resource Blocks (Used)
*
&lab jsl $E100A8
	DC.B	$10,$20
	DC.L	&params
 MEND

 MACRO
&lab _NewLine &params
*
* GS/OS System Call: NEWLINE (subclass 1)
*
*        Input          Word            Pcount (minimum = $0002)
*        Input          Word            Reference number
*        Input          Word            Enable mask
*        Input          Word            Number of characters
*        Input          Long            Pointer to NewLine table
*
&lab jsl $E100A8
	DC.B	$11,$20
	DC.L	&params
 MEND

 MACRO
&lab _READ &params
*
* GS/OS System Call: READ (subclass 1)
*
*        Input          Word            Pcount (minimum = $0004)
*        Input          Word            Ref_Num
*        Input          Long            Data_Buffer
*        Input          Long            Request_Count
*        Output         Long            Transfer_Count
*        Input          Word            Cache_Priority
*
&lab jsl $E100A8
	DC.B	$12,$20
	DC.L	&params
 MEND

 MACRO
&lab _WRITE &params
*
* GS/OS System Call: WRITE (subclass 1)
*
*        Input          Word            Pcount (minimum = $0004)
*        Input          Word            Ref_Num
*        Input          Long            Data_Buffer
*        Input          Long            Request_Count
*        Output         Long            Transfer_Count
*        Input          Word            Cache_Priority
&lab jsl $E100A8
	DC.B	$13,$20
	DC.L	&params
 MEND

 MACRO
&lab _CLOSE &params
*
* GS/OS System Call: CLOSE (subclass 1)
*
*        Input          Word            Pcount (minimum = $0001)
*        Input          Word            Ref_Num
&lab jsl $E100A8
	DC.B	$14,$20
	DC.L	&params
 MEND

 MACRO
&lab _Flush &params
*
* GS/OS System Call: CHANGE_PATH (subclass 1)
*
*        Input          Word            Pcount (minimum = $0002)
*        Input          Word            Reference number
*
&lab jsl $E100A8
	DC.B	$15,$20
	DC.L	&params
 MEND

 MACRO
&lab _Set_Mark &params
*
* GS/OS System Call: SET_MARK (subclass 1)
*
*        Input          Word            Pcount (minimum = $0003)
*        Input          Word            Reference number
*        Input          Word            Base
*        Input          Long            Displacement
*
&lab jsl $E100A8
	DC.B	$16,$20
	DC.L	&params
 MEND

 MACRO
&lab _Get_Mark &params
*
* GS/OS System Call: GET_MARK (subclass 1)
*
*        Input          Word            Pcount (minimum = $0002)
*        Input          Word            Reference number
*        Input          Long            Position
*
&lab jsl $E100A8
	DC.B	$17,$20
	DC.L	&params
 MEND

 MACRO
&lab _Set_EOF &params
*
* GS/OS System Call: SET_EOF (subclass 1)
*
*        Input          Word            Pcount (minimum = $0003)
*        Input          Word            Ref_Num
*        Input          Word            Base (displacement type)
*        Input          Long            Displacement
*
&lab jsl $E100A8
	DC.B	$18,$20
	DC.L	&params
 MEND

 MACRO
&lab _Get_EOF &params
*
* GS/OS System Call: GET_EOF (subclass 1)
*
*        Input          Word            Pcount (minimum = $0002)
*        Input          Word            Ref_Num
*        Output         Long            EOF
*
&lab jsl $E100A8
	DC.B	$19,$20
	DC.L	&params
 MEND

 MACRO
&lab _Set_Level &params
*
* GS/OS System Call: SET_LEVEL (subclass 1)
*
*        Input          Word            Pcount (minimum = $0001)
*        Input          Word            Level
*
&lab jsl $E100A8
	DC.B	$1A,$20
	DC.L	&params
 MEND

 MACRO
&lab _Get_Level &params
*
* GS/OS System Call: GET_LEVEL (subclass 1)
*
*        Input          Word            Pcount (minimum = $0003)
*        Input          Word            Level
*
&lab jsl $E100A8
	DC.B	$1B,$20
	DC.L	&params
 MEND

 MACRO
&lab _Get_Dir_Entry &params
*
* GS/OS System Call: GET_DIR_ENTRY (subclass 1)
*
*        Input          Word            Pcount (minimum = $0005)
*        Input          Word            Reference number
*        Input          Word            $0000
*        Input          Word            Base
*        Input          Word            Displacement
*        Input          Long            Pointer to output NAME string
*        Output         Word            Entry number
*        Output         Word            FileType
*        Output         Long            EOF
*        Output         Long            Block count
*        Output         DoubleLong      Create date / time
*        Output         DoubleLong      Mod date / time
*        Output         Word            Access
*        Output         Long            AuxType
*        Output         Word            File system ID
*        Input          Long            Option list pointer
*
&lab jsl $E100A8
	DC.B	$1C,$20
	DC.L	&params
 MEND

 MACRO
&lab _Get_Dev_Number &params
*
* GS/OS System Call: GET_DEV_NUMBER (subclass 1)
*
*        Input          Word            Pcount (minimum = $0002)
*        Input          Long            Pointer to device name
*        Input          Word            Device number
*
&lab jsl $E100A8
	DC.B	$20,$20
	DC.L	&params
 MEND

 MACRO
&lab _Get_Last_Dev &params
*
* GS/OS System Call: GET_LAST_DEV (subclass 1)
*
* WARNING: There is no class 1 equivalent for this call!!!
*
 MEND

 MACRO
&lab _Read_Block &params
*
* GS/OS System Call: READ_BLOCK (subclass 1)
*
*        Input          Word            Pcount (minimum = $0003)
*        Input          Word            Device number
*        Input          Long            Pointer to data buffer
*        Input          Word            Block address
*
&lab jsl $E100A8
	DC.B	$22,$20
	DC.L	&params
 MEND

 MACRO
&lab _Write_Block &params
*
* GS/OS System Call: WRITE_BLOCK (subclass 1)
*
*        Input          Word            Pcount (minimum = $0003)
*        Input          Word            Device number
*        Input          Long            Pointer to data buffer
*        Input          Word            Block address
*
&lab jsl $E100A8
	DC.B	$22,$20
	DC.L	&params
 MEND

 MACRO
&lab _Format &params
*
* GS/OS System Call: FORMAT (subclass 1)
*
*        Input          Word            Pcount (minimum = $0003)
*        Input          Long            Pointer to device name
*        Input          Long            Pointer to volume name
*        Input          Word            File system ID
*
&lab jsl $E100A8
	DC.B	$24,$20
	DC.L	&params
 MEND

 MACRO
&lab _Erase_Disk &params
*
* GS/OS System Call: ERASE_DISK (subclass 1)
*
*        Input          Word            Pcount (minimum = $0003)
*        Input          Long            Pointer to device name
*        Input          Long            Pointer to volume name
*        Input          Word            File system ID
*
&lab jsl $E100A8
	DC.B	$25,$20
	DC.L	&params
 MEND

 MACRO
&lab _Get_Pathname &params
*
* GS/OS System Call: GET_PATHNAME (subclass 1)
*
* WARNING: This call is not implemented!!!
*
&lab jsl $E100A8
	DC.B	$26,$20
	DC.L	&params
 MEND

 MACRO
&lab _Get_Name &params
*
* GS/OS System Call: GET_NAME (subclass 1)
*
*        Input          Word            Pcount (minimum = $0001)
*        Input          Long            Pointer to output string
*
&lab jsl $E100A8
	DC.B	$27,$20
	DC.L	&params
 MEND

 MACRO
&lab _Get_Boot_Vol &params
*
* GS/OS System Call: GET_BOOT_VOL (subclass 1)
*
*        Input          Word            Pcount (minimum = $0001)
*        Input          Long            Data_Buffer
*
&lab jsl $E100A8
	DC.B	$28,$20
	DC.L	&params
 MEND

 MACRO
&lab _Quit &params
*
* GS/OS System Call: QUIT (subclass 1)
*
*        Input          Word            Pcount (minimum = $0000)
*        Input          Long            Pointer to pathname
*        Input          Word            Flags
*
&lab jsl $E100A8
	DC.B	$29,$20
	DC.L	&params
 MEND

 MACRO
&lab _Get_Version &params
*
* GS/OS System Call: GET_VERSION (subclass 1)
*
*        Input          Word            Pcount (minimum = $0001)
*        Output         Word            Version number
*
&lab jsl $E100A8
	DC.B	$2A,$20
	DC.L	&params
 MEND

 MACRO
&lab _Get_FST_Info &params
*
* GS/OS System Call: GET_FST_INFO (subclass 1)
*
*        Input          Word            Pcount (minimum = $0001)
*        Input          Word            FST number
*        Output         Word            File system ID
*        Input          Long            Pointer to FST name string
*        Output         Word            Version
*        Output         Word            Attributes
*        Output         Word            Block size
*        Output         Long            Maximum volume size
*        Output         Long            Maximum file size
*
&lab jsl $E100A8
	DC.B	$2B,$20
	DC.L	&params
 MEND

 MACRO
&lab _D_Info &params
*
* GS/OS System Call: D_INFO (subclass 1)
*
*        Input          Word            Pcount (minimum = $0002)
*        Input          Word            Device number
*        Input          Long            Pointer to device name
*        Output         Word            Device characteristics
*        Output         Long            Total blocks
*        Output         Word            Slot number
*        Output         Word            Unit number
*        Output         Word            Version number
*        Output         Word            Device ID number
*
&lab jsl $E100A8
	DC.B	$2C,$20
	DC.L	&params
 MEND

 MACRO
&lab _D_Status &params
*
* GS/OS System Call: D_STATUS (subclass 1)
*
*        Input          Word            Pcount (minimum = $0005)
*        Input          Word            Device number
*        Input          Word            Status code
*        Input          Long            Pointer to status list
*        Input          Long            Request count
*        Output         Long            Transfer count
*
&lab jsl $E100A8
	DC.B	$2D,$20
	DC.L	&params
 MEND

 MACRO
&lab _D_Control &params
*
* GS/OS System Call: D_CONTROL (subclass 1)
*
*        Input          Word            Pcount (minimum = $0005)
*        Input          Word            Device number
*        Input          Word            Control code
*        Input          Long            Pointer to control list
*        Input          Long            Request count
*        Output         Long            Transfer count
*
&lab jsl $E100A8
	DC.B	$2E,$20
	DC.L	&params
 MEND

 MACRO
&lab _D_Read &params
*
* GS/OS System Call: D_READ (subclass 1)
*
*        Input          Word            Pcount (minimum = $0006)
*        Input          Word            Device number
*        Input          Long            Pointer to data buffer
*        Input          Long            Request count
*        Input          Long            Starting block
*        Input          Word            Block size
*        Output         Long            Transfer count
*
&lab jsl $E100A8
	DC.B	$2F,$20
	DC.L	&params
 MEND

 MACRO
&lab _D_Write &params
*
* GS/OS System Call: D_WRITE (subclass 1)
*
*        Input          Word            Pcount (minimum = $0006)
*        Input          Word            Device number
*        Input          Long            Pointer to data buffer
*        Input          Long            Request count
*        Input          Long            Starting block
*        Input          Word            Block size
*        Output         Long            Transfer count
*
&lab jsl $E100A8
	DC.B	$30,$20
	DC.L	&params
 MEND

 MACRO
&lab _Alloc_Interrupt &params
*
* GS/OS System Call: ALLOC_INTERRUPT (subclass 1)
*
*        Input          Word            Pcount (minimum = $0002)
*        Output         Word            Interrupt number
*        Input          Long            Pointer to interrupt handler
*        Input          Word            Polling order
*
&lab jsl $E100A8
	DC.B	$31,$20
	DC.L	&params
 MEND

 MACRO
&lab _Dealloc_Interrupt &params
*
* GS/OS System Call: DEALLOC_INTERRUPT (subclass 1)
*
*        Input          Word            Pcount (minimum = $0001)
*        Input          Word            Interrupt number
*
&lab jsl $E100A8
	DC.B	$32,$20
	DC.L	&params
 MEND


 MACRO
&lab _GetNextEvent
&lab ldx #$0A06
 jsl $E10000
 MEND

 MACRO
&lab _WindStatus
&lab ldx #$060E
 jsl $E10000
 MEND


         MACRO
&lab     str   &string
&lab	DC.B	L:&string
	DC.B	'&string'
         MEND

;............................................................
;
;        Pull long (4 bytes) from stack
;
;    pulllong address             - pull off stack to address
;    pulllong addr1,addr2         - pull off stack into 2 places
;    pulllong [zeropage],offset   - pull off stack and store indirectly             
;    pulllong                     - pull off stack and leave in A
;...............................................................
	MACRO
	pulllong &addr1,&addr2
	IF &addr1='' THEN
		pullword
		pullword
	ELSEIF &addr2='' THEN
		pullword  &addr1
		pullword  &addr1+2
	ELSEIF &addr1[1:1]='[' THEN
		ldy   #&addr2
		pullword  &addr1,y
		ldy   #&addr2+2
		pullword  &addr1,y
	ELSE
		pullword  &addr1
		sta   &addr2
		pullword  &addr1+2
		sta   &addr2+2
	ENDIF
	MEND

;...............................................................
;
;        Pull 2 bytes from stack
;
;    pullword loc     -- pulls bytes off stack and stores in 'loc'
;    pullword loc,x   -- pulls bytes off stack and stores in 'loc,x'
;    pullword         -- pulls bytes off stack and leaves in A
;...............................................................
	MACRO
	pullword &addr,&reg
		pla
	IF &addr­'' THEN
		IF &reg­'' THEN
			sta		&addr,&reg
		ELSE
			sta		&addr
		ENDIF
	ENDIF
	MEND

;............................................................
;
;        Push long (4 bytes) onto stack
;
;    pushlong address             - push contents of address
;    pushlong address,x           - push contents of address,x
;    pushlong const,s             - push contents of stack+const    
;    pushlong #address/const      - push address or constant
;    pushlong [zeropage],offset   - push using indirect address
;...............................................................
	MACRO
	pushlong &addr,&offset
	IF &addr[1:1]='#' THEN
		pea		&addr[2:255]>>16
		pea		|&addr[2:255]
	ELSEIF &addr[1:1]='[' THEN
		ldy		#&offset+2
		pushword &addr,y
		ldy		#&offset
		pushword &addr,y
	ELSEIF &offset='s' THEN
		pushword &addr+2,s
		pushword &addr,s
	ELSEIF &offset='' THEN
		pushword  &addr+2
		pushword  &addr
	ELSE
		pushword &addr+2,&offset
		pushword &addr,&offset
	ENDIF
	MEND


;...............................................................
;
;        Push 2 bytes onto stack
;
;    pushword loc     -- pushes bytes onto stack from 'loc'
;    pushword loc,x   -- pushes bytes onto stack from 'loc,x'
;    pushword #n      -- pushes constant #n onto stack
;    pushword         -- pushes bytes onto stack (from A)
;...............................................................
	MACRO
	pushword &addr,&reg
	IF &addr[1:1]='#' AND &SETTING('LONGA')='ON' THEN
		pea		|&addr[2:255]
	ELSE
		IF &addr­'' THEN
			IF &reg­'' THEN 
				lda		&addr,&reg
			ELSE
				lda		&addr
			ENDIF
		ENDIF
		pha
	ENDIF
	MEND

 MACRO
&lab _DisposeRgn
&lab ldx #$6804
 jsl $E10000
 MEND
 MACRO
&lab _NewRgn
&lab ldx #$6704
 jsl $E10000
 MEND
 MACRO
&lab _RectRgn
&lab ldx #$6C04
 jsl $E10000
 MEND
 MACRO
&lab _Desktop
&lab ldx #$0C0E
 jsl $E10000
 MEND
 MACRO
&lab _GetFirstWindow
&lab ldx #$520E
 jsl $E10000
 MEND
 MACRO
&lab _GetNextWindow
&lab ldx #$2A0E
 jsl $E10000
 MEND
 MACRO
&lab _RefreshDesktop
&lab ldx #$390E
 jsl $E10000
 MEND
 MACRO
&lab _DeskShutDown
&lab ldx #$0305
 jsl $E10000
 MEND
 MACRO
&lab _CloseAllNDAs
&lab ldx #$1D05
 jsl $E10000
 MEND
 MACRO
&lab _GetCursorAdr
&lab ldx #$8F04
 jsl $E10000
 MEND
 MACRO
&lab _InitCursor
&lab ldx #$CA04
 jsl $E10000
 MEND
 MACRO
&lab _SetCursor
&lab ldx #$8E04
 jsl $E10000
 MEND
 MACRO
&lab _LEStatus
&lab ldx #$0614
 jsl $E10000
 MEND
 MACRO
&lab _CtlStatus
&lab ldx #$0610
 jsl $E10000
 MEND
 MACRO
&lab _AddToQueue
&lab ldx #$2e03
 jsl $E10000
 MEND
 MACRO
&lab _DeleteFromQueue
&lab ldx #$2f03
 jsl $E10000
 MEND

		macro
&lab		end_script
&lab		DC.B	00
		mend

		macro
&lab		ctype	&op
&lab		DC.B	$10
		DC.W	&op*2
		mend

		macro
&lab		pcount	&count
&lab		DC.B	$20+&count
		mend

		macro
&lab		pathptr	&offset
&lab		DC.B	$30+&offset
		mend

		macro
&lab		refnum	&offset
&lab		DC.B	$40+&offset
		mend

		macro
&lab		outpath	&offset
&lab		DC.B	$50+&offset
		mend

		macro
&lab		maxpcnt	&count
&lab		DC.B	$60+&count
		mend

		macro
&lab		exec	&address
&lab		DC.B	$E0
		DC.A	&address
		mend

		macro
&lab		escape	&op
		DC.B	$F0+&op
		mend

		macro
&lab		classes	&count
&lab		DC.B	&count
		mend

		macro
&lab		info_at	&ptr
&lab		DC.W	&ptr
		mend

		macro
		no_such_class
		DC.W	0000
		mend

		macro
&lab		set_isn	&isn
		lda	#&isn
		bra	common_dispatch
		mend

		macro
&lab		dnum	&offset
&lab		DC.B	$70+&offset
		mend

		MACRO
&lab		_SetHeartBeat
&lab		ldx	#$1203
		jsl	$E10000
		MEND

		MACRO
&lab		_IntSource
&lab		ldx	#$2303
		jsl	$E10000
		MEND

		MACRO
&lab		_DelHeartBeat
&lab		ldx	#$1303
		jsl	$E10000
		MEND

		macro
		writehex &value
		
		lcla	&val
&val		seta	&eval(&value)

		lclc	&hex
&hex		setc	'0123456789ABCDEF'
	
		lcla	&h0,&h1,&h2,&h3,&h4,&h5
&h5		seta	(&val/$100000)
&h4		seta	(&val-(&h5*$100000))/$10000
&h3		seta	(&val-(&h5*$100000)-(&h4*$10000))/$1000
&h2		seta	(&val-(&h5*$100000)-(&h4*$10000)-(&h3*$1000))/$100
&h1		seta	(&val-(&h5*$100000)-(&h4*$10000)-(&h3*$1000)-(&h2*$100))/$10
&h0		seta	(&val-(&h5*$100000)-(&h4*$10000)-(&h3*$1000)-(&h2*$100)-(&h1*$10))

		write	'$'
		write	&hex[&h5+1]
		write	&hex[&h4+1]
		write	&hex[&h3+1]
		write	&hex[&h2+1]
		write	&hex[&h1+1]
		write	&hex[&h0+1]

		endm

		macro
		writelnhex	&value
		writehex	&value
		writeln		''
		endm

		macro
		resetpc
		gbla	&segment_pc		;Allocate a global counter.
&segment_pc	seta	0			;Reset counter.
		endm

		macro
		end_proc
		gbla	&segment_pc		;Allocate a global counter.
&segment_pc	seta	&segment_pc+&ord(*)	;Bump seg size counter.
		endp
		endm
		
		macro
		end_record
		gbla	&segment_pc		;Allocate a global counter.
&segment_pc	seta	&segment_pc+&ord(*)	;Bump seg size counter.
		endr
		endm
		
		macro
		freespace	&name,&start,&max,&len

		lcla		&free
&free		seta		&eval(&max)-&eval(&start)-&len

		write		&name
		write		' ('
		writehex	&start
		write		'-'
		writehex	&max
		write		'): '
		writehex	&free
		write		' ('
		write		&free
		writeln		') free bytes.'
	if &free<0 then				;if code overran segment boundaries
		aerror		&concat('Code size overflow in ',&name)
	endif
		
		endm

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Common/hw.equ.src b/IIGS.601.SRC/GS.OS/Common/hw.equ.src
new file mode 100644
index 0000000..f7f58a8
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Common/hw.equ.src
@@ -0,0 +1 @@
+ 			eject
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;                                                    ;
;                    equates part 1                  ;
;                                                    ;
;                         by                         ;
;                   fern bachman jr.                 ;
;                                                    ;
;      Copyright Apple Computer, Inc. 1985-1993      ;
;                All Rights Reserved.                ;
;                                                    ;
;                                                    ;
; 08/13/87 RBM  Change: DISKREG is now in bank $E1   ;
;                       Added IWM equates            ;
;                                                    ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;---------->> real zero page equates <<----------

cswl            equ     $000036         ;character output hook
cswh            equ     $000037     
kswl            equ     $000038         ;character input hook  
kswh            equ     $000039     


;---------->> screen hole equates <<----------

mslot           equ     $0007f8         ;=$cn ;n=slot using $c800

 
;---------->> bank 1 / page 1 permanent storage <<----------

mnemstkptr      equ     $010100         ;main stack pointer 
alemstkptr      equ     $010101         ;alternate stack pointer 


;---------->> page 3 vectors <<----------

oswmstrt        equ     $0003d0         ;quitmon jumps here 
brkv            equ     $0003f0         ;vectors here after break  
softev          equ     $0003f2         ;warm RESET vector
pwredup         equ     $0003f4         ;this must = eor #$A5 of softev+1  
amperv          equ     $0003f5         ;Applesoft "&" vector
usradr          equ     $0003f8         ;monitor Ctrl-Y vector
nmi             equ     $0003fb         ;NMI vector  
irqloc          equ     $0003fe         ;maskable interrupt vector  

pro8mli         equ     $00bf00         ;address of prodos8 mli entry point


;---------->> hardware equates <<----------

ioadr           equ     $c000           ;all i/o is at $cxxx
kbd             equ     $c000           ;bit 7=1 if keystroke  
clr80col        equ     $c000           ;disable 80 column store  
set80col        equ     $c001           ;enable 80 column store  
rdmainram       equ     $c002           ;read from main 48k ram  
rdcardram       equ     $c003           ;read from alt. 48k ram  
wrmainram       equ     $c004           ;write to main 48k ram  
wrcardram       equ     $c005           ;write to alt. 48k ram  
setslotcxrom    equ     $c006           ;use roms on cards 
setintcxrom     equ     $c007           ;use internal rom 
setstdzp        equ     $c008           ;use main zero page/stack  
setaltzp        equ     $c009           ;use alt. zero page/stack  
setintc3rom     equ     $c00a           ;enable internal slot 3 rom 
setslotc3rom    equ     $c00b           ;enable external slot 3 rom 
clr80vid        equ     $c00c           ;disable 80 column hardware  
set80vid        equ     $c00d           ;enable 80 column hardware  
clraltchar      equ     $c00e           ;normal lc, flashing uc  
setaltchar      equ     $c00f           ;normal inverse, lc; no flash  
kbdstrb         equ     $c010           ;turn off key pressed flag  
rdlcbnk2        equ     $c011           ;bit 7=1 if LC bank 2 is in  
rdlcram         equ     $c012           ;bit 7=1 if LC ram read enabled  
rdramrd         equ     $c013           ;bit 7=1 if reading alt 48k 
rdramwrt        equ     $c014           ;bit 7=1 if writing alt 48k  
rdcxrom         equ     $c015           ;bit 7=1 if using int rom
rdaltzp         equ     $c016           ;bit 7=1 if slot zp enabled 
rdc3rom         equ     $c017           ;bit 7=1 if slot c3 space enabled 
rd80col         equ     $c018           ;bit 7=1 if 80 column store    
rdvblbar        equ     $c019           ;bit 7=1 if not vbl  
rdtext          equ     $c01a           ;bit 7=1 if text (not graphics)  
rdmix           equ     $c01b           ;bit 7=1 if mixed mode on 
rdpage2         equ     $c01c           ;bit 7=1 if txtpage2 switched in  
rdhires         equ     $c01d           ;bit 7=1 if hires is on 
altcharset      equ     $c01e           ;bit 7=1 if alternate char set in use 
rd80vid         equ     $c01f           ;bit 7=1 if 80 column hardware in  

; __7______6______5______4______3______2______1______0___
;|      |      |      |      |      |      |      |      |
;| vgc  | 1sec | scan | ext  |      | 1sec | scan | ext  | 
;|  int |  int |  int | int  |unused|  int |  int | int  |
;|active|active|active|active|      |enable|enable|enable|
;|______|______|______|______|______|______|______|______|
;           ^^^^^  vgcint status byte ^^^^^

; vgcint bits defined as follows
;    bit 7= 1 if interrupt generated by vgc
;    bit 6= 1 if 1 second timer interrupt
;    bit 5= 1 if scan line interrupt
;    bit 4= 1 if external interrupt
;    bit 3= unused
;    bit 2= 1 second timer interrupt enable
;    bit 1= scan line interrupt enable
;    bit 0= external interrupt enable

vgcint          equ     $c023           ;vgc interrupt register 

; __7______6______5______4______3______2______1______0___
;|      |      |update|      |      |      |      |      |
;| open |closed| mod  |keypad|repeat| caps | ctrl |shift | 
;| apple| apple|no key|  key |active| lock |  key | key  |
;|  key |  key | press|active|      |active|active|active|
;|______|______|______|______|______|______|______|______|
;           ^^^^^  keymodreg status byte ^^^^^

; keymodreg bits defined as follows
;    bit 7= open apple key active
;    bit 6= closed apple key active
;    bit 5= updated modifier latch without keypress
;    bit 4= keypad key active
;    bit 3= repeat active
;    bit 2= caps lock active
;    bit 1= control key active
;    bit 0= shift key active

keymodreg       equ     $c025           ;key modifier register 

; __7______6______5______4______3______2______1______0___
;|      |      |      |      |      |      |      |      |
;|                                                       | 
;|              data to/from keyboard micro              |
;|                                                       | 
;|______|______|______|______|______|______|______|______|
;               ^^^^^  datareg byte ^^^^^

; datareg bits defined as follows
;    bit 7,6,5,4,3,2,1,0 = data to/from keyboard micro
;
; data at interrupt time in this register is defined as
;    bit 7= response byte if set, otherwise status byte
;    bit 6= abort valid if set and all other bits reset
;    bit 5= desktop manager key sequence pressed
;    bit 4= flush buffer key sequence pressed
;    bit 3= srq valid if set
;    bit 2,1,0 if all bits clear then no fdb data valid,
;              else the bits indicate the number of valid
;              bytes received minus 1. (2-8 bytes total)

datareg         equ     $c026           ;data register in keyglu chip 

; __7______6______5______4______3______2______1______0___
;|      |      |      |      |      |      |      |      |
;| mouse| mouse| data | data | key  | key  | mouse| cmd  | 
;|  reg |  int |  reg |  int | data | int  |x/yreg| reg  |
;| full |enable| full |enable| full |enable| data | full |
;|______|______|______|______|______|______|______|______|
;           ^^^^^  kmstatus status byte ^^^^^

; kmstatus bits defined as follows
;    bit 7= 1 if mouse register full
;    bit 6= mouse interrupt disable/enable
;    bit 5= 1 if data register full
;    bit 4= data interrupt enable
;    bit 3= 1 if key data full  <<<<<------never use, won't work
;    bit 2= key data interrupt enable  <<<<<------never use, won't work
;    bit 1= 0 = mouse 'x' register data available
;           1 = mouse 'y' register data available
;    bit 0= command register full

kmstatus        equ     $c027           ;keyboard/mouse status register 


; __7______6______5______4______3______2______1______0___
;|      |      |      |      |      |      |      |      |
;|slot7 |slot6 |slot5 |slot4 |      |slot2 |slot1 |      | 
;|intext|intext|intext|intext|   0  |intext|intext|   0  |
;|enable|enable|enable|enable|      |enable|enable|      |
;|______|______|______|______|______|______|______|______|
;               ^^^^^  sltromsel byte ^^^^^

; sltromsel bits defined as follows
;    bit 7= 0 enables internal slot 7 -- 1 enables slot rom
;    bit 6= 0 enables internal slot 6 -- 1 enables slot rom
;    bit 5= 0 enables internal slot 5 -- 1 enables slot rom
;    bit 4= 0 enables internal slot 4 -- 1 enables slot rom
;    bit 3= must be 0
;    bit 2= 0 enables internal slot 2 -- 1 enables slot rom
;    bit 1= 0 enables internal slot 1 -- 1 enables slot rom
;    bit 0= must be 0

sltromsel       equ     $c02d           ;slot rom select 

spkr            equ     $c030           ;clicks the speaker

; __7______6______5______4______3______2______1______0___
;|      |      |      |      |      |      |      |      |
;| 3.5" | 3.5" |      |      |      |      |      |      | 
;| head | drive|  0   |  0   |  0   |  0   |  0   |  0   |
;|select|enable|      |      |      |      |      |      |
;|______|______|______|______|______|______|______|______|
;           ^^^^^  diskreg status byte ^^^^^

; diskreg bits defined as follows
;    bit 7= 1 to select head on 3.5" drive to use
;    bit 6= 1 to enable 3.5" drive
;    bit 5,4,3,2,1,0= unused

diskreg         equ     $E1C031         ;used for 3.5" disk drives 


; __7______6______5______4______3______2______1______0___
;|      |      |      |      |      |      |      |      |
;|      | stop |      | stop | stop | stop | stop | stop | 
;|   0  |i/o/lc|   0  |auxh-r|suprhr|hires2|hires1|txt pg|
;|      |shadow|      |shadow|shadow|shadow|shadow|shadow|
;|______|______|______|______|______|______|______|______|
;               ^^^^^  shadow byte ^^^^^

; shadow bits defined as follows
;    bit 7= must write 0
;    bit 6= 1 to inhibit i/o and language card operation
;    bit 5= must write 0
;    bit 4= 1 to inhibit shadowing aux hi-res page
;    bit 3= 1 to inhibit shadowing 32k video buffer
;    bit 2= 1 to inhibit shadowing hires page 2
;    bit 1= 1 to inhibit shadowing hires page 1
;    bit 0= 1 to inhibit shadowing text pages

shadow          equ     $c035           ;shadow register 

; __7______6______5______4______3______2______1______0___
;|      |      |      |      |      |      |      |      |
;| slow/|      |      |shadow|slot 7|slot 6|slot 5|slot 4| 
;| fast |   0  |   0  |in all|motor |motor | motor| motor|
;| speed|      |      | ram  |detect|detect|detect|detect|
;|______|______|______|______|______|______|______|______|
;               ^^^^^  cyareg byte ^^^^^

; cyareg bits defined as follows
;    bit 7= 0=slow system speed -- 1=fast system speed
;    bit 6= must write 0
;    bit 5= must write 0
;    bit 4= shadow in all ram banks
;    bit 3= slot 7 disk motor on detect
;    bit 2= slot 6 disk motor on detect
;    bit 1= slot 5 disk motor on detect
;    bit 0= slot 4 disk motor on detect

cyareg          equ     $c036           ;speed and motor on detect 


; __7______6______5______4______3______2______1______0___
;|      |      |      |      |      |      |      |      |
;|      |      |      |enable|enable|enable|enable|enable| 
;|   0  |   0  |   0  |1/4sec| vbl  |switch| move | mouse|
;|      |      |      | ints | ints | ints | ints |      |
;|______|______|______|______|______|______|______|______|
;               ^^^^^  inten byte ^^^^^

; inten bits defined as follows
;    bit 7= must be 0
;    bit 6= must be 0
;    bit 5= must be 0
;    bit 4= 1 to enable 1/4 second interrupts
;    bit 3= 1 to enable vbl interrupts
;    bit 2= 1 to enable mega // mouse switch interrupts
;    bit 1= 1 to enable mega // mouse movement interrupts
;    bit 0= 1 to enable mega // mouse operation

inten           equ     $c041           ;interrupt enable register 


; __7______6______5______4______3______2______1______0___
;|      |      |      |      |      |      |      |      |
;|mmouse|mmouse|status|status|status|status|status|status| 
;|  now | last |  an3 |1/4sec| vbl  |switch| move |system|
;|button|button|      | int  | int  | int  | int  | irq  |
;|______|______|______|______|______|______|______|______|
;               ^^^^^  intflag byte ^^^^^

; intflag bits defined as follows
;    bit 7= 1 if mouse button currently down
;    bit 6= 1 if mouse button was down on last read
;    bit 5= status of an3
;    bit 4= 1 if 1/4 second interrupted
;    bit 3= 1 if vbl interrupted
;    bit 2= 1 if mega // mouse switch interrupted
;    bit 1= 1 if mega // mouse movement interrupted
;    bit 0= 1 if system irq line is asserted

intflag         equ     $c046           ;interrupt flag register
clrvblint       equ     $c047           ;clear the vbl and 3.75hz interrupt flags 

txtclr          equ     $c050           ;switch in graphics (not text)
txtset          equ     $c051           ;switch in text (not graphics)  
mixclr          equ     $c052           ;clear mixed-mode  
mixset          equ     $c053           ;set mixed-mode (4 lines text)  
txtpage1        equ     $c054           ;switch in text page 1  
txtpage2        equ     $c055           ;switch in text page 2  
lores           equ     $c056           ;low-resolution graphics  
hires           equ     $c057           ;high-resolution graphics  
setan0          equ     $c058           ;clear annunciator 0 
clran0          equ     $c059           ;set annunciator 0 
setan1          equ     $c05a           ;clear annunciator1 
clran1          equ     $c05b           ;set annunciator 1 
setan2          equ     $c05c           ;clear annunciator 2 
clran2          equ     $c05d           ;set annunciator 2 
setan3          equ     $c05e           ;clear annunciator 3 
clran3          equ     $c05f           ;set annunciator 3 
butn3           equ     $c060           ;read switch 3 
butn0           equ     $c061           ;open apple key 
butn1           equ     $c062           ;closed apple key 
butn2           equ     $c063           ;read switch 2 

 
; __7______6______5______4______3______2______1______0___
;|      |      |      |      |      |      |      |      |
;| alzp | page2| ramrd|ramwrt| rdrom|lcbnk2|rombnk| intcx| 
;|status|status|status|status|status|status|status|status|
;|      |      |      |      |      |      |      |      |
;|______|______|______|______|______|______|______|______|
;           ^^^^^  statereg status byte ^^^^^

; statereg bits defined as follows
;    bit 7= alzp status
;    bit 6= page2 status
;    bit 5= ramrd status
;    bit 4= ramwrt status
;    bit 3= rdrom status (read only ram/rom (0/1))

; important note:
;           do two reads to $c083 then change statereg
;           to change lcram/rom banks (0/1) and still
;           have the language card write enabled.

;    bit 2= lcbnk2 status 0=LC bank 0 - 1=LC bank 1
;    bit 1= rombank status
;    bit 0= intcxrom status

statereg        equ     $c068           ;state register 

 
;---------->> language card soft switches <<----------

romin           equ     $c081           ;enable rom read, 2 reads write enb LC ram 

lcbank2         equ     $c083           ;sel LC ram bank2, 2 rds wrt enb LC ram 

lcbank1         equ     $c08b           ;sel LC ram bank1, 2 rds wrt enb LC ram

 
clrrom          equ     $cfff           ;switch out $c8 roms  


                eject

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;                                                    ;
;                   equates part 2                   ;
;                                                    ;
;                         by                         ;
;                    Fern Bachman                    ;
;                                                    ;
;      Copyright Apple Computer, Inc. 1985-1987      ;
;                All Rights Reserved.                ;
;                                                    ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;---------->> tool set numbers and call numbers <<----------

mtn             equ     $03             ;miscellaneous tool number 
rthfn           equ     $0d             ;read time hex function number 
wthfn           equ     $0e             ;write time hex function number 

mmn             equ     $02             ;memory manager tool number 

initdismgr      equ     $fe0000         ;init dispatch handler (tool locator)


;---------->> bank $e1 equates <<----------

brambuffer      equ     $e102c0         ;image of batteryram

osvariables     equ     brambuffer+$80+$01    ;32 bytes of operating system vari


;---------->> important vectors the user may change
;---------->> ram space from locations $e10000->$e102b7 are allocated
;---------->> for monitor and ram vectors use.

dispatch1       equ     $e10000         ;jmp vector to tool locator1 
dispatch2       equ     $e10004         ;jmp vector to tool locator2 
udispatch1      equ     $e10008         ;jmp vector to user's tool locator1 
udispatch2      equ     $e1000c         ;jmp vector to user's tool locator2 
intmgrv         equ     $e10010         ;jmp vector to interrupt manager 
copmgrv         equ     $e10014         ;jmp vector to cop manager 
abortmgrv       equ     $e10018         ;jmp vector to abort manager 
sysdmgrv        equ     $e1001c         ;jmp vector to system death manager 

;---------->> tool/internal interrupt vectors <<----------

irq_aptlk       equ     $e10020         ;jmp vector to aptlk interrupt handler 
irq_serial      equ     $e10024         ;jmp vector to serial port int handler 
irq_scan        equ     $e10028         ;jmp vector to scan line interrupt handler 
irq_sound       equ     $e1002c         ;jmp vector to sound interrupt handler 
irq_vbl         equ     $e10030         ;jmp vector to vbl interrupt handler 
irq_mouse       equ     $e10034         ;jmp vector to mouse interrupt handler 
irq_qtr         equ     $e10038         ;jmp vector to 1/4 sec interrupt handler 
irq_kbd         equ     $e1003c         ;jmp vector to keyboard interrupt handler 
irq_response    equ     $e10040         ;jmp vctr to fdb response byte int handler 
irq_srq         equ     $e10044         ;jmp vector to srq int handler 
irq_dskacc      equ     $e10048         ;jmp vector to desk accessory int handler 
irq_flush       equ     $e1004c         ;jmp vector to flush buffer int handler 
irq_micro       equ     $e10050         ;jmp vector to key micro int handler 
irq_1sec        equ     $e10054         ;jmp vector to 1 second interrupt handler 
irq_ext         equ     $e10058         ;jmp vector to ext vgc interrupt handler 
irq_other       equ     $e1005c         ;jmp vector to other interrupt handler 

cupdate         equ     $e10060         ;jmp vector to cursor update handler 

incbusyflg      equ     $e10064         ;jmp vector to increment busyflag routine 
decbusyflg      equ     $e10068         ;jmp vector to decrement busyflag routine 

;---------->> end of user changable interrupt vectors <<----------

 
;---------->> prodos bank $e1 vectors/data bytes <<---------- 

pro16mli        equ     $e100a8         ;1st os vector is prodos16 mli entry poi
os_switch       equ     $e100ac         ;called before application launch 
stkpro16mli     equ     $e100b0         ;stack based entry to prodos16
os_p8_switch	equ		$e100b4			;called by GQuit when GQuit is about to remove P8

os_public_flags	equ     $e100b8         ;2 bytes reserved for public GS/OS flags
										;currently, bit 15 is set if GLoader doesn't
										;load any INITs or DAs.

zero_word       equ     $e100ba         ;guaranteed 2 zeros 
os_kind         equ     $e100bc         ;0/1-p8/p16 current os running 
os_boot         equ     $e100bd         ;0/1-p8/p16 booted os 
os_flag         equ     $e100be         ;word for prodos 16 flags 

warm_cold_flag	equ		$e101d0			;word: 0=cold startup/shutdown, 1=warm startup/shutdown



;----------->> System Service Calls Bank $E1 Vectors/Handles <<---------------

e1_move         equ     $E10200         ; Move routine
e1_set_speed    equ     $E10204         ; Set system speed routine
e1_slot_arbiter equ     $E10208         ; Request a slot


*****************************************************************
*
* EQUATES for the IWM
*
*****************************************************************

ph0off          equ 	$E1C080         ; phase 0 off
ph0on           equ     $E1C081         ; phase 0 on
ph1off          equ     $E1C082         ; phase 1 off
ph1on           equ     $E1C083         ; phase 1 on
ph2off          equ     $E1C084         ; phase 2 off
ph2on           equ     $E1C085         ; phase 2 on
ph3off          equ     $E1C086         ; phase 3 off
ph3on           equ     $E1C087         ; phase 3 on
motor_off       equ     $E1C088         ; disk motor off
motor_on        equ     $E1C089         ; disk motor on
drive0          equ     $E1C08A         ; select drive 0
drive1          equ     $E1C08B         ; select drive 1
q6l             equ     $E1C08C         ; Q6 low
q6h             equ     $E1C08D         ; Q6 high
q7l             equ     $E1C08E         ; Q7 low
q7h             equ     $E1C08F         ; Q7 high

*
*  ____ ____ __________
* |    |    |          |
* | Q7 | Q6 | MOTOR_ON |
* |____|____|__________|
*
*   0    0       0      Read all ones
*   0    0       1      Read data register
*   0    1       X      Read status register
*   1    0       X      Read write-handshake register
*   1    1       0      Write mode register
*   1    1       1      write data register
*
*
*  ___ ___ ___ ___ ___ ___ ___ ___
* |   |   |   |   |   |   |   |   |
* | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 |     IWM Mode Register (write only)
* |___|___|___|___|___|___|___|___|
*   |   |   |   |   |   |   |   |____   1 = Latch mode
*   |   |   |   |   |   |   |________   0 = sychronous,   1 = asynchronous
*   |   |   |   |   |   |____________   0 = timer enable, 1 = timer disable
*   |   |   |   |   |________________   0 = slow mode,    1 = fast mode
*   |   |   |   |____________________   0 = 7mHz clock,   1 = 8 mHz clock
*   |   |   |________________________   1 = test mode,    0 = normal mode
*   |   |____________________________   1 = mz reset (not used)
*   |________________________________   RESERVED
*
*  ___ ___ ___ ___ ___ ___ ___ ___
* |   |   |   |   |   |   |   |   |
* | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 |     IWM Status Register (read only)
* |___|___|___|___|___|___|___|___|
*   |   |   |   |   |   |   |   |____   1 = Latch mode
*   |   |   |   |   |   |   |________   0 = sychronous,   1 = asynchronous
*   |   |   |   |   |   |____________   0 = timer enable, 1 = timer disable
*   |   |   |   |   |________________   0 = slow mode,    1 = fast mode
*   |   |   |   |____________________   0 = 7mHz clock,   1 = 8 mHz clock
*   |   |   |________________________   1 = enbl is active
*   |   |____________________________   1 = mz
*   |________________________________   1 = sense high,   0 = sense low
*
*  ___ ___ ___ ___ ___ ___ ___ ___
* |   |   |   |   |   |   |   |   |
* | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 |     IWM Handshake Register (read only)
* |___|___|___|___|___|___|___|___|
*   |   |   |___|___|___|___|___|____   RESERVED (read as ones)
*   |   |____________________________   1 = write state,  0 = write underrun
*   |________________________________   1 = write data buffer register ready
*
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/DeskAccessories/GSOS.CDA.src b/IIGS.601.SRC/GS.OS/DeskAccessories/GSOS.CDA.src
new file mode 100644
index 0000000..f421fc3
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/DeskAccessories/GSOS.CDA.src
@@ -0,0 +1 @@
+		String	AsIs
**************************************************************************************************
*
*               			Copyright (c) 1987-1992
*               			Apple Computer, Inc.
*               			All rights reserved.
*
**************************************************************************************************
*
*  GGG   SSS      *  OOO   SSS        SSS  N   N  OOO   OOO  PPPP  EEEEE RRRR
* G   G S   S     * O   O S   S      S   S N   N O   O O   O P   P E     R   R
* G     S        *  O   O S          S     NN  N O   O O   O P   P E     R   R
* G  GG  SSS    *   O   O  SSS        SSS  N N N O   O O   O PPPP  EEEE  RRRR
* G   G     S  *    O   O     S          S N  NN O   O O   O P     E     R R
* G   G S   S *     O   O S   S      S   S N   N O   O O   O P     E     R  R
*  GGG   SSS  *      OOO   SSS        SSS  N   N  OOO   OOO  P     EEEEE R   R
*
*	Written by Ray Montagne
*
**************************************************************************************************
*
* WARNING!!!!!!
*
*			This CDA accesses and displays internal data
*			structures of the operating system.  This is 
*			data that is not intended for public distribution.
*			This CDA is not to be distributed outside the
*			engineering community at Apple Computer, Inc.
*
**************************************************************************************************
*
* REVISION HISTORY:
*
* Date		Version	By	Description
*
* 12 May 87 	v1.00	RBM	Initial release of DIB CDA.
* 24 Jul 87 	v1.01	C/M	Added Cache Manager CDA.
* 06 Aug 87 	v1.02	RC	Added cache glu.
* 03 Dec 87 	v1.03	RBM	Modified for expanded DIB's.
* 20 Jan 88 	v1.04	RBM	Changed DIB for DIB_DEV_NUM.
* 28 Jan 88 	v1.05	RBM	Restore DIB pointer on the way out.
* 31 Mar 88 	v0.07	RBM	Added supervisor fields.
* 29 Nov 88	v2.00	RBM	Ported CDA to MAX environment.
* 30 Nov 88	v4.10	RBM	Added built in 80 column display driver.
*  1 Dec 88	v4.11	RBM	Expanded displays for internal distribution.
*  2 Dec 88	v4.12	RBM	Added display pages for vcr and fcr.
*  3 Dec 88	v4.13	RBM	Added display functions to dereference virtual
*				pointers.  FCR display page now displays the 
*				fst name.
*  4 Dec 88	v4.14	RBM	Added FST specific display pages for
*				fcr and vcr displays.  VCR page now displays the
*				volume name.
*  5 Dec 88	v4.15	RBM	Restructured mechanism for displaying fst specific
*				vcr and fcr pages to reduce code size.  The direct 
*				page display now displays the call name.
*  5 Dec 88	v4.16	RBM	Removed call checking from vcr & fcr display page
*				routines.
*  5 Dec 88	v4.17	RBM	Added limited scrolling of vcr and fcr pages.
*
*  6 Dec 88	v4.18	RBM	Do not dereference a virtual pointer with the
*				most significant bit of the vp set to a one.
*
*  7 Dec 88	v4.19	RBM	A more robust method is now used to determine
*				that a virtual pointer is valid prior to
*				dereferencing the virtual pointer.  The method
*				for validating a vp will work as long as GS/OS
*				continues to allocate 8k memory segments.
*
*  9 Dec 88	v4.20	RBM	Added cache header display page.
*
* 21 Dec 88	v4.21	RBM	Added field in AppleTalk FCR.
*
*  3 Jan 89	v4.22	RBM	Extended DIB pointer now displayed correctly.
*
* 19 Jan 89	v4.23	RBM	Added display pages for OS calls, System service
*				calls and OS error codes.
*
* 19 Jan 89	v4.24	RBM	Added display page for OS user ID numbers.
*
* 25 Jan 89	v4.25	RBM	Added new ProDOS FST VCR parameter.
*
* 25 Jan 89	v4.26	RBM	Cache display can now scroll through cached blocks.
*
* 25 Jan 89	v4.27	RBM	Cache block number displayed lsb twice.
*
*  7 Feb 89	4.28	RBM	Single keystroke for goto page added for copyright
*				page to ease dispatching.
*
*  8 Feb 89	4.29	RBM	After initial entry to CDA, subsequent CDA entries
*				will display the last page that was displayed when
*				the CDA was previously exited.
*
*				Trap converted to text display while preserving the
*				current display mode.
*
*				Keyboard Interrupts are suspended during execution 
*				of the desk accessory in order to prevent keystrokes
*				from being stolen from the CDA.  (This should have
*				been provided by the CDA Manager).
*
*				Screen is homed prior to displaying the block diagram.
*
* 14 Feb 89	4.30	RBM	Expanded key function table to accomodate all pages.
*
* 17 Feb 89	4.31	RBM	Fixed bug with indirect dereference call now via jsr.
*				Pascal FST added to block diagram.
*				Escape from trap display menu outputs cr/lf.
*
* 19 Feb 89	4.32	RBM	System Call Trap is functional.
*
* 20 Feb 89	4.33	RBM	FCR display now displays full pathnames.
*
* 21 Feb 89	4.34	RBM	Added display page for FST headers.
*
* 22 Feb 89	4.35	RBM	Added display page for bank $E1 vectors.
*
* 28 Feb 89	4.36	RBM	Added display for Express Load.
*
*  1 Mar 89	4.37	RBM	Added display page for device dispatcher file list.
*
*  1 Mar 89	4.38	RBM	Supervisor display now shows supervisor characteristics word.
*
*  1 Mar 89	4.39	RBM	Both VCR and FCR display pages now parse carriage returns out
*				of the volume or file pathname strings during display.  Carriage
*				returns are replaced with the '@' character.  This prevents
*				unwanted screen manipulation and damage to other text on the 
*				screen when an invalid VCR or FCR virtual pointer is currently
*				set on GS/OS direct page.
*
*  2 Mar 89	4.40	RBM	Moved temp (a longword on GS/OS direct page used by the CDA
*				for indirection, yet saved and restored around CDA execution)
*				from location $60 (used by the cache manager) to location
*				$50 which is not current used by a component of the GS/OS.
*
*				Added line to file list page to display user ID of driver file.
*
*				FCR file name is now displayed on line 6 rather than 5.  Line 5
*				is the file name address and was being written over by the file
*				name string.
*
*				SIB display now properly obtains supervisor characteristics word
*				and reserved field word.
*
*  2 Mar 89	4.41	RBM	Updated file name list display page for new data structure.
*
*  2 Mar 89	4.42	RBM	Rearranged file list parameters to match os implementation.
*
*  2 Mar 89	4.43	RBM	Fixed display of file list pointer.
*
*  3 Mar 89	4.44	RBM	Fixed display of device dispatcher file list.
*				Added parameter to FST header display to show base address
*				of the FST header as requested by Bryan Atsatt.
*
*  3 Mar 89	4.45	RBM	Fixed display of device dispatcher file list current filename.
*
*  8 Mar 89	4.46	RBM	File list display now dereferences the file list handle prior
*				to displaying the file list entry.
*
* 10 Mar 89	4.47	RBM	Added VBL queue display page.
*
* 30 Mar 89	4.48	RBM	System Death Trap
*
* 30 Mar 89	4.49	RBM	Driver Calls reference
*
* 30 Mar 89	4.4A	RBM	Device Characteristics Word reference
*
* 30 Mar 89	4.4B	RBM	Supervisor Characteristics Word reference
*
* 30 Mar 89	4.4C	RBM	Memory Attributes reference
*
* 30 Mar 89	4.4D	RBM	GS/OS Memory Map
*
* 30 Mar 89	4.4E	RBM	Visit Monitor
*
* 30 Mar 89	4.4F	RBM	User ID Display
*
*  6 Apr 89	4.50	RBM	Rewrote single key dispatcher for page 0.
*
*  6 Apr 89	4.51	RBM	Added SCSI Manager Internal Data structure dumper.
*
*  7 Apr 89	4.52	RBM	Added current slot under view to scsi i/o record display.
*
* 20 Apr 89	4.53	RBM	New AppleShare FST VCR & FCR display.
*
* 20 Apr 89	4.54	RBM	Added device ID list display.
*
* 25 Apr 89	4.55	RBM	Shortened trap display strings so text window does not
*				truncate display of call number.
*
* 25 Apr 89	4.56	RBM	Added display page information for AppleShare FST.
*
* 15 May 89	4.57	RBM	Quick key for system service call table pointed at the
*				display page for the system calls.
*
* 16 May 89	4.58	RBM	Added display page for device status word.
*
* 16 May 89	4.59	RBM	Fixed character status word so that wrprot is not indicated
*				for character devices.
*
* 17 May 89	4.5A	RBM	Added display page for ascii chart.
*
*		4.5B	RBM	Write c string now supports two character tabs.  The first
*				character is a tab while the character immediately following
*				the tab is the cursor horizontal position.  Most strings have
*				been compressed using tabs.
*
* 23 May 89	4.5C	RBM	Expanded memory map display to include bank 0 and managed memory.
*
* 13 Jun 89	4.5D	RBM	All of GS/OS direct page is preserved throughout execution of the
*				desk accessory.  The GS/OS Stack Entry trap is now insensitive to
*				the processor mode when called.  When the trap is active, a store
*				occurs to bank $F80000 + offset prior to execution of the GS/OS
*				call where offset = GS/OS call number.  A store occurs to bank
*				$F90000 + offset after execution of the GS/OS call.  This allows a
*				trigger to be used with the logic analyzer on any GS/OS call when
*				the trap is active.
*
* 24 Dec 91	5.01	GAB	Updated source to match version 5.01.  It looks like the only
*				difference between 4.5D and 5.01 is the addition of HFS data
*				structure support.  (I have no idea where the original 5.01
*				source is.  It certainly wasn't in Projector.)
*
* 24 Dec 91	6.0d1	GAB	Updated to support changes in System 6.
*
* 19 Jan 92	6.0d2	GAB	¥ Fixed display_fcr_pg to check for a NULL pointer prior to
*				trying to display the contents of the FCR.
*				¥ Added templates for displaying Pascal FCRs and MSDOS VCRs
*				and FCRs.
*
**************************************************************************************************
		eject
**************************************************************************************************
*
*			DESK ACCESSORY EQUATES
*
**************************************************************************************************
os_entry	equ	$E100A8		; in line entry to GS/OS
os_stk_entry	equ	$E100B0		; stack entry to GS/OS
tool_locator	equ	$E10000		; Tool locator entry point

keydata		equ	$E1C000		; keyboard data (bit 7 = key down)
clr80col	equ	$E1C000		; disable 80 column store
set80col	equ	$E1C001		; enable 80 column store
clr80vid	equ	$E1C00C		; disable 80 column hardware
set80vid	equ	$E1C00D		; enable 80 column hardware
clraltchar	equ	$E1C00E		; normal LC flashing UC
setaltchar	equ	$E1C00F		; normal inverse, LC, no flash
keystrobe	equ	$E1C010		; keyboard strobe (bit 7 = key in data register)
rdvbl		equ	$E1C019		; vertical blanking (bit 7 = not vbl)
altcharset	equ	$E1C01E		; bit 7 = alternate character set enabled
rd80vid		equ	$E1C01F		; bit 7 = 80 column hardware enabled
newvideo	equ	$E1C029		; new video stuff
txtclr		equ	$E1C050		; switch in graphics (not text)
txtset		equ	$E1C051		; switch in text (not graphics)
mixclr		equ	$E1C052		; clear mixed mode
mixset		equ	$E1C053		; set mixed mode (4 lines text)
txtpage1	equ	$E1C054		; set text page 1
txtpage2	equ	$E1C055		; set text page 2
rom_in		equ	$E1C081		; ROM in, write enable LC ram
state_reg	equ	$E1C068		; //GS State Register

main_text_pg	equ	$E00400		; 1/2 80 column text page
alt_text_pg	equ	$E10400		; 1/2 80 column text page

gsos_dir_page	equ	$00BD00		; GS/OS Direct Page
gsos_stack_ptr	equ	$00BFFF		; GS/OS Stack Pointer
fst_table_ptr	equ	$00B9F2		; location of pointer to FST table

temp		equ	$000050		; temporary direct page work space

cur_field_len	equ	$000080		; used during edit
str_index	equ	cur_field_len+2	; used during edit
rc_cache_vp	equ	str_index+2	; used by cache DA
rc_cache_ptr	equ	rc_cache_vp+4	; used by cache DA

page_cnt	equ	36		; number of display pages

normal		equ	%0000000011111111	; normal video mode
inverse		equ	%0000000000111111	; inverse video mode
flashing	equ	%0000000001111111	; flashing video mode

escape_key	equ	$1B
tab_key		equ	$09
tab		equ	tab_key
delete_key	equ	$7F

t_hex		equ	0
t_handle	equ	1
t_vp		equ	2
t_pstr		equ	3
t_c1instr	equ	4
t_c1outstr	equ	5
t_cstr		equ	6
t_binary	equ	7

byte		equ	1
word		equ	2
ptr		equ	3
long		equ	4
double_long	equ	8

fst_header	equ	0			; (lw)      fst header id string (FST )
fst_hdr_app	equ	fst_header+4		; (lw)      application call entry
fst_hdr_sys	equ	fst_hdr_app+4		; (lw)      system call entry
fst_hdr_id	equ	fst_hdr_sys+4		; (w)       FST ID number
fst_hdr_flag	equ	fst_hdr_id+2		; (w)       FST Flag word
fst_hdr_ver	equ	fst_hdr_flag+2		; (w)       FST Version word
fst_hdr_blk	equ	fst_hdr_ver+2		; (w)       FST block size
fst_hdr_max_blk	equ	fst_hdr_blk+2		; (lw)      FST maximum block count
fst_hdr_min_blk	equ	fst_hdr_max_blk+4	; (lw)      FST minimum block count
fst_hdr_max_f	equ	fst_hdr_min_blk+4	; (lw)      FST minimum block count
fst_hdr_res	equ	fst_hdr_max_f+4		; (lw)      FST minimum block count
fst_hdr_string	equ	fst_hdr_res+4		; (pstring) FST name

file_list_cnt	equ	$E0E051			; Device Dispatcher file list entry count

		eject
****************************************************************
*
* The following are equates used to access the device dispatcher
* file list structure.
*
****************************************************************
file_list_hndl	equ	$E0E045			; handle to GS/OS file name list
file_list_ptr	equ	$2C			; pointer to GS/OS file name list
file_entry_ptr	equ	$56			; pointer to GS/OS file name list entry

file_filetype	equ	0			; (w)	driver filetype
file_auxtype	equ	file_filetype+2		; (w)	driver auxtype
file_user_id	equ	file_auxtype+2		; (w)	driver user id
file_load_addr	equ	file_user_id+2		; (lw)	driver load address
file_name	equ	file_load_addr+4	; (32)	file name (32 bytes maximum)
file_restart	equ	file_name+32		; (w)	driver restart flag
file_dev_num	equ	file_restart+2		; (w)	driver base device number
file_reserved	equ	file_dev_num+2		; (w)	reserved field

		print	off
		eject
****************************************************************
*
* The following are direct page equates on the GS/OS
* direct page for driver usage.
*
****************************************************************

stack_top       equ    $00BFFF         ; initial value of system stack pointer
direct_base     equ    $00BD00         ; base address of system direct page
gquit_stack_top equ    $00BCFF         ; gquit sets stk here for boot/switching

drvr_start      equ    $0000           ; start location of driver parameters
gs_start        equ    $0030           ; start of GS/OS parameters
fst_start       equ    $0080           ; start of FST parameters
cache_wspace    equ    $005A           ; beginning addr of cache mgr w/space
drvr_wspace     equ    $006A           ; ***** NUKE THIS LATER ****
sup_wspace      equ    $006C           ; supervisory driver workspace

drvr_dev_num    equ    drvr_start      ; (w)  device number
drvr_call_num   equ    drvr_dev_num+2  ; (w)  call number
drvr_buf_ptr    equ    drvr_call_num+2 ; (lw) buffer pointer
drvr_slist_ptr  equ    drvr_call_num+2 ; (lw) buffer pointer
drvr_clist_ptr  equ    drvr_call_num+2 ; (lw) buffer pointer
boot_slot       equ    drvr_buf_ptr    ; (w)  boot slot for dispatcher only
dev_id_ref      equ    drvr_buf_ptr    ; (w)  indirect device ID
dev_char_config equ    drvr_buf_ptr+2  ; (w)  BASIC/Pascal1.1 configuration
dev_pro_config  equ    drvr_buf_ptr+4  ; (w)  ProDOS configuration
drvr_req_cnt    equ    drvr_buf_ptr+4  ; (lw) request count
boot_user_id   	equ    drvr_req_cnt+2  ; (w)  transfer count
drvr_tran_cnt   equ    drvr_req_cnt+4  ; (lw) transfer count
drvr_blk_num    equ    drvr_tran_cnt+4 ; (lw) block number
drvr_blk_size   equ    drvr_blk_num+4  ; (w)  block size
drvr_fst_num    equ    drvr_blk_size+2 ; (w)  File System Translator Number
drvr_stat_code  equ    drvr_fst_num    ; (b)  status code for status call
drvr_ctrl_code  equ    drvr_fst_num    ; (b)  control code for control call
drvr_vol_id     equ    drvr_fst_num+2  ; (w)  volume id
drvr_cache      equ    drvr_vol_id+2   ; (w)  Cache Priority
drvr_cach_ptr   equ    drvr_cache+2    ; (lw) pointer to cached block
drvr_dib_ptr    equ    drvr_cach_ptr+4 ; (lw) pointer to active DIB
drvr_dev_ptr    equ    drvr_dib_ptr+4  ; (lw) pointer to device list

		eject
****************************************************************
*
* Cache Manager Direct Page
*
****************************************************************

cache_cur_ptr   equ    cache_wspace    ; (lw) pointer to current cache cell
cache_nxt_ptr   equ    cache_cur_ptr+4 ; (lw) pointer to next cache cell
cache_pre_ptr   equ    cache_nxt_ptr+4 ; (lw) pointer to prev cache cell
cache_bkt_ptr   equ    cache_pre_ptr+4 ; (lw) pointer to bucket list

default_cache_size equ $0040           ;16k is default cache size


****************************************************************
*
* Supervisory Driver Direct Page
*
****************************************************************

post_drvr_tbl   equ    sup_wspace      ; (lw) for dynamic driver installation
sup_drvr_ptr    equ    sup_wspace+4    ; (lw) ptr to supervisor driver list
sib_ptr         equ    sup_drvr_ptr+4  ; (lw) ptr to SIB
sup_parm_ptr    equ    sib_ptr+4       ; (lw) ptr to supervisor parameters

****************************************************************
*
* The following are absolute zero page equates for use by
* slot resident firmware based ProDOS block device drivers.
*
****************************************************************

pcmd            equ    $0042           ; (b)  ProDOS device command
punit           equ    $0043           ; (b)  ProDOS unit number
pbuffer         equ    $0044           ; (w)  ProDOS buffer address
pblock          equ    $0046           ; (w)  ProDOS block number

****************************************************************
*
* The following are equates for driver command types.
*
****************************************************************

drvr_startup    equ    $0000           ; driver startup command
drvr_open       equ    $0001           ; driver open command
drvr_read       equ    $0002           ; driver read command
drvr_write      equ    $0003           ; driver write command
drvr_close      equ    $0004           ; driver close command
drvr_status     equ    $0005           ; driver status command
drvr_control    equ    $0006           ; driver control command
drvr_flush      equ    $0007           ; driver flush command
drvr_shutdn     equ    $0008           ; driver shutdown command

****************************************************************
*
* The following are equates for dispatcher command types.
*
****************************************************************

dsptch_bootinit equ    $0000           ; dispatcher boot init command
get_dib_ptr     equ    $0001           ; return a drivers DIB pointer
dsptch_shutdn   equ    $0002           ; dispatcher shutdown command

		eject
****************************************************************
*
* GS/OS Direct Page Equates
*
****************************************************************

call_number     equ    gs_start        ; FST call number
param_blk_ptr   equ    call_number+2   ; pointer to user's parameter block
dev_num         equ    param_blk_ptr+4 ; device number from parameter block
dev1_num        equ    dev_num         ; alias name for dev_num
dev2_num        equ    dev1_num+2      ; second device number
path1_ptr       equ    dev2_num+2      ; ptr to 1st partial/entire pathname
fcr_ptr         equ    path1_ptr       ; pointer to file control record
path2_ptr       equ    path1_ptr+4     ; ptr to 2nd partial/entire pathname
vcr_ptr         equ    path2_ptr       ; pointer to volume control record
path_flag       equ    path2_ptr+4     ; flag for path information
*                                       ;
*                                       ; bit  14: 0 = pathname1 is null
*                                       ;      14: 1 = pathname1 is non-null
*                                       ;
*                                       ;      06: 0 = pathname2 is null
*                                       ;      06: 1 = pathname2 is non-null
*                                       ;
span1           equ    path_flag+2	; largest distance between path1 term.
span2           equ    span1+2		; max dist. between seperators for path2 

****************************************************************
*
* The following are equates for GS/OS error codes.
*
****************************************************************

no_error        equ	$00             ; no error has occured
bad_system_call equ	$01             ; bad system call number
invalid_pcount  equ	$04             ; invalid parameter count
gsos_active     equ	$07             ; gsos already active
dev_not_found   equ	$10             ; device not found
invalid_dev_num equ	$11             ; invalid device number
drvr_bad_req    equ	$20             ; bad request or command
drvr_bad_code   equ	$21             ; bad control or status code
drvr_bad_parm   equ	$22             ; bad call parameter
drvr_not_open   equ	$23             ; character device not open
drvr_prior_open equ	$24             ; character device already open
irq_table_full  equ	$25             ; interrupt table full
drvr_no_resrc   equ	$26             ; resources not available
drvr_io_error   equ	$27             ; I/O error
drvr_no_dev     equ	$28             ; device not connected
drvr_busy       equ	$29             ; driver is busy & not available
drvr_wr_prot    equ	$2B             ; device is write protected
drvr_bad_count  equ	$2C             ; invalid byte count
drvr_bad_block  equ	$2D             ; invalid block number
drvr_disk_sw    equ	$2E             ; disk has been switched
drvr_off_line   equ	$2F             ; device off line / no media present
bad_path_syntax equ	$40             ; invalid pathname syntax
invalid_ref_num equ	$43             ; invalid reference number
path_not_found  equ	$44             ; subdirectory does not exist
vol_not_found   equ	$45             ; volume not found
file_not_found  equ	$46             ;
dup_pathname    equ	$47             ; create or rename with existing name
volume_full     equ	$48             ;
vol_dir_full    equ	$49             ; volume directory full
version_error   equ	$4A             ;
bad_store_type  equ	$4B             ; bad storage type
end_of_file     equ	$4C             ;
out_of_range    equ	$4D             ; position out of range
invalid_access  equ	$4E             ; access not allowed
buff_too_small  equ	$4F             ; buffer too small
softerrorlow    equ	$50             ; errors from $50 to $6f are soft errors
file_busy       equ	$50             ; file is already open
dir_error       equ	$51             ; directory error
unknown_vol     equ	$52             ; unknown volume type
parm_range_err  equ	$53             ; parameter out of range
out_of_mem      equ	$54             ; out of memory
dup_volume      equ	$57             ; duplicate volume name
not_block_dev   equ	$58             ; not a block device
invalid_level   equ	$59             ; specified level outside legal range
damaged_bitmap  equ	$5A             ; block number too large
bad_path_names  equ	$5B             ; invalid pathnames for change_path
not_system_file equ	$5C             ; not an executable file
os_unsupported  equ	$5D             ; operating system not supported
stack_overflow  equ	$5F             ; too many applications on stack
data_unavail    equ	$60             ; data unavailable
end_of_dir      equ	$61             ; end of directory has been reached
invalid_class   equ	$62             ; invalid FST call class
res_not_found   equ	$63             ; file does not contain req. resource
invalid_fst_id  equ	$64             ; specified FST is not present in system
invalid_fst_op  equ	$65             ; FST does not handle this type of call
fst_caution     equ	$66             ; FST handled call, but result is weird
dup_device      equ	$67             ; used internally only!!!
dev_list_full   equ	$68             ; device list is full
sup_list_full   equ	$69             ; supervisor list is full
softerrorhigh   equ	$6f             ; maximum soft error number allowed
resource_exist	equ	$70		;Cannot expand file, resource already exist		
res_add_err	equ	$71		;cannot add resource fork to this type file.

*******************************************************************************
*
* Fatal Errors:
*
****************************************************************

unclaimed_irq   equ    $01             ; unclaimed interrupt
sd_scm_dealloc  equ    $02             ; deallocation error
sd_scm_alloc    equ    $03             ; allocation error
wrong_os_ver    equ    $11             ; wrong operating system version

****************************************************************
*
* FST equates: to be removed when lou loader is working!!!!!!!!!
*
****************************************************************

char_fst_entry  equ    $095000         ;address of Character FST header


****************************************************************
*
* DRIVER Equates:
*
****************************************************************

drvr_dev_stat   equ    $0000           ; device status code
drvr_ctrl_stat  equ    $0001           ; return control parms
drvr_get_wait   equ    $0002           ; return wait/no-wait mode
drvr_get_format equ    $0003           ; get format options

drvr_reset      equ    $0000           ; reset the device
drvr_format     equ    $0001           ; physically format the device
drvr_eject      equ    $0002           ; eject the media
drvr_set_ctrl   equ    $0003           ; set control parms
drvr_set_wait   equ    $0004           ; set wait/no-wait mode
drvr_set_format equ    $0005           ; set format options
drvr_set_ptn    equ    $0006           ; assign partition owner
drvr_insert     equ    $0007           ; logical media insertion

		eject
****************************************************************
*
* System Service Table Equates:
*
****************************************************************

dev_dispatcher  equ	$01FC00         ;dev_dispatch
cache_find_blk  equ	$01FC04         ;cash_find
cache_add_blk   equ	$01FC08         ;cash_add
cache_init      equ	$01FC0C         ;cache initialization
cache_shutdn    equ	$01FC10         ;cash_shutdown
cache_del_blk   equ	$01FC14         ;cash_delete
cache_del_vol   equ	$01FC18         ;cash_del_vol
alloc_seg       equ	$01FC1C         ;alloc_zero
release_seg     equ	$01FC20         ;deallocate
alloc_vcr       equ	$01FC24         ;allocvcr
release_vcr     equ	$01FC28         ;releasevcr
alloc_fcr       equ	$01FC2C         ;allocfcr
release_fcr     equ	$01FC30         ;releasefcr
swap_out        equ	$01FC34         ;swapout
deref           equ	$01FC38         ;deref2
get_sys_gbuf    equ	$01FC3C         ;s_get_sys_gbuf
sys_exit        equ	$01FC40         ;s_sys_exit
sys_death       equ	$01FC44         ;s_sys_death
find_vcr        equ	$01FC48         ;findvcr
find_fcr        equ	$01FC4C         ;findfcr
set_sys_speed   equ	$01FC50         ; set system speed
cache_flsh_def  equ	$01FC54         ; flush deferred blocks from cache
rename_vcr      equ	$01FC58         ;renamevcr
rename_fcr      equ	$01FC5C         ;renamefcr
get_vcr         equ	$01FC60         ;getvcr
get_fcr         equ	$01FC64         ;getfcr
lock_mem        equ	$01FC68         ;lockmem
unlock_mem      equ	$01FC6C         ;unlockmem
move_info       equ	$01FC70         ;block move routines
cvt_0to1        equ	$01FC74         ;cvt0to1
cvt_1to0        equ	$01FC78         ;cvt1to0
replace_80      equ	$01FC7C         ;replace80
to_b0_core      equ	$01FC80         ;to_bank0_core
gen_dispatch    equ	$01FC84         ;g_dispatch
signal          equ	$01FC88         ;signal_event
get_sys_buf     equ	$01FC8C         ;get_b0_buf
set_disksw      equ	$01FC90         ;set_disk_sw
report_error    equ	$01FC94         ;s_report_error
mount_message   equ	$01FC98         ;s_mount_msg
full_error      equ	$01FC9C         ;s_full_error
report_fatal    equ	$01FCA0         ;s_report_fatal
sup_drvr_disp   equ	$01FCA4         ; supervisory dispatcher
install_driver  equ	$01FCA8         ; install device driver
get_boot_pfx    equ	$01FCAC         ;s_get_boot_pfx
set_boot_pfx    equ	$01FCB0         ;s_set_boot_pfx
alloc_cache_seg equ	$01FCB4         ;low_allocate
get_stked_id    equ	$01FCB8         ;get id of prog at top of GQUIT stack
dyn_slot_arbiter equ	$01FCBC         ; slot arbitration routine
parse_pathname	equ	$01FCC0		;parse a pathname
handle_os_event	equ	$01FCC4		;notify external code about os event.
post_switch	equ	$01FCFC		; post a disk swap to FINDER (v4.1 only)
system_death	equ	$E1001C		; the rom death mama

		eject		
****************************************************************
*
* Volume Control Record (VCR) Equates
*
****************************************************************

vcr_size        equ    18              ;Currently 18 bytes in length

vcr_id          equ    $0000           ;offset to volume ID
vcr_name        equ    vcr_id+2        ;offset to volume name pointer
vcr_status      equ    vcr_name+4      ;offset volume status
vcr_open_cnt    equ    vcr_status+2    ;offset to number of open files on vol.
vcr_fst_id      equ    vcr_open_cnt+2  ;offset to owner ID number
vcr_dev         equ    vcr_fst_id+2    ;offset to where volume was last seen
vcr_fst_ptr     equ    vcr_dev+2       ;offset to where volume was last seen

vcr_swapped     equ    $4000           ;FLAG:Volume is swapped out (1 = true)
vcr_swapped_in  equ    $BFFF           ;FLAG:Volume is swapped in

vcr_wr_enable   equ    $2000           ;FLAG:Volume has been seen write enabled
vcr_wr_unknown  equ    $DFFF           ;FLAG:Volume has not been seen wrenbld

****************************************************************
*
* File Control Record Equates:
*
****************************************************************

fcr_ref_num     equ    $0000
fcr_path_name   equ    fcr_ref_num+2
fcr_fst_id      equ    fcr_path_name+4
fcr_vol_id      equ    fcr_fst_id+2
fcr_level       equ    fcr_vol_id+2
fcr_newline     equ    fcr_level+2
fcr_newline_len equ    fcr_newline+4
fcr_mask        equ    fcr_newline_len+2
fcr_access      equ    fcr_mask+2

		eject
;--------------------------------------------------------------------------
; cache header equates
;
; Copyright (c) 1987 Apple Computer Inc. All rights reserved.
; author: Ray (Rowdy Yates) Chiang
;--------------------------------------------------------------------------

c_lru_fwd       equ    $0000           ;vp to  forward LRU vp link
c_lru_bwd       equ    c_lru_fwd+4     ;vp to backward LRU vp link
c_bkt_fwd       equ    c_lru_bwd+4     ;vp to  forward bucket vp link
c_bkt_bwd       equ    c_bkt_fwd+4     ;vp to backward bucket vp link
c_blknum        equ    c_bkt_bwd+4     ;block number  of cached block
c_blksize       equ    c_blknum+4      ;block   size  of cached block
c_fstnum        equ    c_blksize+2     ;FST number    of cached block
c_volumeid      equ    c_fstnum+2      ;volume id     of cached block
c_devnum        equ    c_volumeid+2    ;device number of cached block
c_priority      equ    c_devnum+2      ;cache priority
c_cellsize      equ    c_priority+2    ;size of this cache cell
c_reserved      equ    c_cellsize+2    ;reserved
c_headerlen     equ    c_reserved+4    ;length of cache header
c_cached_data   equ    c_reserved+4    ;offset to cached data block

		eject
****************************************************************
*
* The following are equates for the driver's DIB
*
****************************************************************

link_ptr        equ     $0000           ; (lw) link pointer to next dib
entry_ptr       equ     link_ptr+4      ; (lw) pointer to driver entry point
dev_char        equ     entry_ptr+4     ; (w)  device characteristics
blk_cnt         equ     dev_char+2      ; (lw) number of blocks on device
dev_name        equ     blk_cnt+4       ; (32) count and ascii name
slot_num        equ     dev_name+32     ; (w)  slot where driver resides
unit_num        equ     slot_num+2      ; (w)  unit within slot
ver_num         equ     unit_num+2      ; (w)  version number of driver
dev_id_num      equ     ver_num+2       ; (w)  device ID number
head_link       equ     dev_id_num+2    ; (w)  backward device link (devnum)
forward_link    equ     head_link+2     ; (w)  backward device link (devnum)
ext_dib_ptr	equ     forward_link+2  ; (lw) pointer to DIB extension data structure
dib_dev_num     equ     ext_dib_ptr+4	; (w)  device number assigned DIB at startup

****************************************************************
*
* The following are equates for the driver's GDIB
*
****************************************************************

drvr_class      equ     dib_dev_num+2   ; (w)  driver class
drvr_type       equ     drvr_class+2    ; (w)  driver type
drvr_subtype    equ     drvr_type+2     ; (w)  driver subtype
cache_mask      equ     drvr_subtype+2  ; (w)  cache mask (block dev) or
open_flag       equ     cache_mask      ; (w)  open flag (character dev)
block_size      equ     open_flag+2     ; (w)  block size
hardware_unit	equ     block_size+2    ; (w)  Reserved field

vbl_head_ptr	equ	$E100D8		; (lw)	pointer to 1st vbl task queue entry


		Print	on
		eject
;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

		entry	da_start
		entry	da_shutdn

		eject
*****************************************************************
*
*		Desk Accessory Headers
*
*****************************************************************
		export	os_trap_da
os_trap_da	proc
		string	pascal
		
		dc.b	'GS/OS Internal Snooper'
		
		string	asis

		dc.l	da_start			; da startup
		dc.l	da_shutdn			; da shutdown
		
		endp
		eject
*****************************************************************
*
* This entry point is for shutting down the desk accessory.  It 
* has no function and returns imediately to the desk manager.
*
* ENTRY: Call via 'JSL'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTL'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
		export	da_shutdn
da_shutdn	proc
		longa	on
		longi	on
		
		rtl
		
		endp
		
		eject
*****************************************************************
*
* This entry point is for running the GS/OS DIB dumper classic
* desk accessory.  This CDA can dump portions of GS/OS direct
* page associated with device drivers by mnemonic as well as
* parameters within a device driver DIB as specifiec by the
* device number currently on GS/OS direct page or input by the
* user after the initial parameter display.
*
* ENTRY: Call via 'JSL'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTL'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
		export	da_start
da_start	proc
		longa	on
		longi	on

		pha				; save environment
		phx
		phy
		phd
		phb
		phk				; data bank = program bank
		plb
		php
		
		sep	#$30			; 8 bit 'm' & 'x'
		longa	off
		longi	off
		
		lda	>state_reg		; save the ROM state
		pha
		lda	#$00			; enable RAM read
		sta	>state_reg
		
		lda	>rd80vid		; save current 80 column video mode
		pha
		sta	>set80vid		; enable 80 column video mode
		sta	>set80col
		
		lda	>altcharset		; save current character set
		pha
		sta	>clraltchar		; and select normal character set

		rep	#$30			; 16 bit 'm' & 'x'
		longa	on
		longi	on
				
		pea	#gsos_dir_page
		pld
*
* Save GS/OS Direct page.
*

		ldx	#$00FE
save_dir_pg
		lda	<gsos_dir_page,x
		sta	|saved_page,x
		dex
		dex
		bpl	save_dir_pg
		
		pha				; space for result
		ldx	#$2903			; get irq enable
		jsl	tool_locator
		pea	$0001			; disable keyboard interrupts
		ldx	#$2303			; intsource
		jsl	tool_locator
		
		lda	<drvr_dev_num		; check driver device number is legal
		bne	legal_dev_num		; it is
		inc	<drvr_dev_num		; device 0 not legal so point at 1st device
legal_dev_num
		jsr	save_screen		; preserve current 80 column screen

		jsr	set_dib_ptr		; point at current DIB
		jsr	set_sib_ptr		; point at current SIB
		lda	#$0015			; fake a right arrow key
		jsr	dispatch		; display CDA options
		
		eject
*
* Now allow parameters to be input before next call.
*
next_call	
		jsr	edit_parm		; call parameter editor
		bcc	next_call		; if not an exit

quit_da
		pla				; get previous interrupt source
		asl	a			; create keyboard interrupt ref num
		xba
		and	#$0001
		eor	#$0001
		pha				; $0000=Enable Keyboard IRQ, $0001=Disable Keyboard IRQ
		ldx	#$2303			; intsource
		jsl	tool_locator
		
		jsr	restore_screen		; restore original 80 column screen
*
* Restore GS/OS Direct page.
*

		ldx	#$00FE
restore_dir_pg
		lda	|saved_page,x
		sta	<gsos_dir_page,x
		dex
		dex
		bpl	restore_dir_pg
		
		sep	#$20			; 8 bit 'm'
		longa	off		

		pla				; was alternate character set enabled?
		bpl	no_altchar		; no
		sta	>setaltchar		; else restore character set
no_altchar
		pla				; was 80 column video enabled?
		bmi	no_40col		; yes
		sta	>clr80col		; else restore 40 column video mode
		sta	>clr80vid
no_40col
		pla				; restore ROM / RAM enable
		sta	>state_reg
		plp				; restore environment
		plb
		pld
		ply
		plx
		pla
		rtl

                eject
******************************************************************************
*
* This routine waits for a key from the keyboard.
*
* ENTRY: Call via 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Key character (7 bit ascii) in lsb
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Unchanged
*               B Reg = Unchanged
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
******************************************************************************
edit_parm
		longa	on
		longi	on
		
		jsr	wait_key		; wait for keyboard input
		ldx	#0000			; key table index
chk_key_loop
		cmp	|key_table,x		; is key in table
		beq	found_key		; yes
		inx
		inx
		cpx	#key_func_tbl-key_table
		bne	chk_key_loop		; if key not found, go to same page
dispatch
		stz	|ch			; home cursor
		stz	|cv
		tay				; preserve character for page display routine
		lda	|vector_index		; calculate page display routine address
		asl	a
		tax
		lda	|vector_table,x
		pha
		tya				; restore character for page display routine
		rts				; and dispatch to page display routine
		
found_key
		tay				; preserve key stroke
		lda	|key_func_tbl,x		; get address of function
		pha
		tya				; restore keystroke
		rts				; and dispatch to the function

go_escape	sec				; else exit with DA quit flag
                rts

go_right_arrow	inc	|vector_index		; point at next CDA page
		ldx	|vector_index		; overflow page list?
		cpx	#page_cnt
		blt	new_dispatch		; no, go to CDA page

		ldx	#$0001			; else wrap CDA page
		stx	|vector_index
		bra	new_dispatch
		
go_left_arrow	dec	|vector_index		; point at previous CDA page
		bmi	wrap_cda_page
		bne	new_dispatch		; if no CDA page overflow
wrap_cda_page	ldx	#page_cnt-1		; else wrap CDA page
		stx	|vector_index
new_dispatch	pha
		jsr	home			; clear screen & home cursor position
		pla
		
go_down_arrow	
go_up_arrow	bra	dispatch		; go to page

go_copyright	stz	|vector_index		; get back to copyright page
		lda	#$0015
		bra	dispatch
		
select_page
		ldy	|vector_index		; is current page = $0000?
		bne	dispatch		; no, go to current page
		
		lda	|key_hex_tbl,x		; translate key to vector index
		sta	|vector_index		; select proper page
		lda	#$0015			; act like a scroll switched pages
		bra	new_dispatch
		
		eject
		
key_table	dc.w	$001B			; escape
		dc.w	$003F			; ?
		dc.w	$0015			; right arrow
		dc.w	$0008			; left arrow
		dc.w	$000A			; down arrow
		dc.w	$000B			; up arrow
		dc.w	'0'			; 0 - Copyright Statement
		dc.w	'1'			; 1 - GS/OS System Calls
		dc.w	'2'			; 2 - GS/OS System Service Calls
		dc.w	'3'			; 3 - GS/OS Error Codes
		dc.w	'4'			; 4 - GS/OS USER ID
		dc.w	'5'			; 5 - GS/OS Direct Page
		dc.w	'6'			; 6 - GS/OS DIB
		dc.w	'7'			; 7 - GS/OS SIB
		dc.w	'8'			; 8 - GS/OS VCR
		dc.w	'9'			; 9 - GS/OS FCR
		dc.w	'A'			; A - GS/OS Cache
		dc.w	'a'			; a - GS/OS Cache
		dc.w	'B'			; B - GS/OS Trap
		dc.w	'b'			; b - GS/OS Trap
		dc.w	'C'			; C - GS/OS FST Numbers
		dc.w	'c'			; c - GS/OS FST Numbers
		dc.w	'D'			; D - GS/OS FST Headers
		dc.w	'd'			; d - GS/OS FST Headers
		dc.w	'E'			; E - GS/OS Block Diagram
		dc.w	'e'			; e - GS/OS Block Diagram
		dc.w	'F'			; F - GS Bank $E1 vectors
		dc.w	'f'			; f - GS Bank $E1 vectors
		dc.w	'G'			; G - Express Loader Info
		dc.w	'g'			; g - Express Loader Info
		dc.w	'H'			; H - Device dispatcher file list
		dc.w	'h'			; h - Device dispatcher file list
		dc.w	'I'			; I - vbl
		dc.w	'i'			; i - vbl
		dc.w	'J'			; J - Death Trap
		dc.w	'j'			; j - Death Trap
		dc.w	'K'			; K - Driver Calls
		dc.w	'k'			; k - Driver Calls
		dc.w	'L'			; L - Device Characteristics
		dc.w	'l'			; l - Device Characteristics
		dc.w	'M'			; M - Supervisor Characteristics
		dc.w	'm'			; m - Supervisor Characteristics
		dc.w	'N'			; N - Memory Attributes
		dc.w	'n'			; n - Memory Attributes
		dc.w	'O'			; O - GS/OS Memory Map
		dc.w	'o'			; o - GS/OS Memory Map
		dc.w	'P'			; P - Visit Monitor
		dc.w	'p'			; p - Visit Monitor
		dc.w	'Q'			; P - System User ID
		dc.w	'q'			; p - System User ID
		dc.w	'R'			; R - SCSI Direct Page
		dc.w	'r'			; r - SCSI Direct Page
		dc.w	'S'			; S - SCSI I/O record
		dc.w	's'			; s - SCSI I/O record
		dc.w	'T'			; T - SCSI device record
		dc.w	't'			; t - SCSI device record
		dc.w	'U'			; U - SCSI Internals
		dc.w	'u'			; u - SCSI internals
		dc.w	'V'			; V - Device ID List
		dc.w	'v'			; v - Device ID List
		dc.w	'W'			; W - Device Status
		dc.w	'w'			; w - Device Status
		dc.w	'X'			; X - ASCII Chart
		dc.w	'x'			; x - ASCII Chart
		dc.w	'Y'			; Y - unused
		dc.w	'y'			; y - unused
		dc.w	'Z'			; Z - unused
		dc.w	'z'			; z - unused
		
		eject
		
key_func_tbl	dc.w	go_escape-1		; escape
		dc.w	go_copyright-1		; ?
		dc.w	go_right_arrow-1	; rigth arrow
		dc.w	go_left_arrow-1		; left arrow
		dc.w	go_down_arrow-1		; down arrow
		dc.w	go_up_arrow-1		; up arrow
		dc.w	select_page-1		; 0 - Copyright statement
		dc.w	select_page-1		; 1 - GS/OS System Calls
		dc.w	select_page-1		; 2 - GS/OS System Service Calls
		dc.w	select_page-1		; 3 - GS/OS Error Codes
		dc.w	select_page-1		; 4 - GS/OS USER ID
		dc.w	select_page-1		; 5 - GS/OS Direct Page
		dc.w	select_page-1		; 6 - GS/OS DIB
		dc.w	select_page-1		; 7 - GS/OS SIB
		dc.w	select_page-1		; 8 - GS/OS VCR
		dc.w	select_page-1		; 9 - GS/OS FCR
		dc.w	select_page-1		; A - GS/OS Cache
		dc.w	select_page-1		; a - GS/OS Cache
		dc.w	select_page-1		; B - GS/OS Trap
		dc.w	select_page-1		; b - GS/OS Trap
		dc.w	select_page-1		; C - GS/OS FST Numbers
		dc.w	select_page-1		; c - GS/OS FST Numbers
		dc.w	select_page-1		; D - GS/OS FST Headers
		dc.w	select_page-1		; d - GS/OS FST Headers
		dc.w	select_page-1		; E - GS/OS Block Diagram
		dc.w	select_page-1		; e - GS/OS Block Diagram
		dc.w	select_page-1		; F - GS Bank $E1 vectors
		dc.w	select_page-1		; f - GS Bank $E1 vectors
		dc.w	select_page-1		; G - Express Loader Info
		dc.w	select_page-1		; g - Express Loader Info
		dc.w	select_page-1		; H - Device dispatcher file list
		dc.w	select_page-1		; h - Device dispatcher file list
		dc.w	select_page-1		; I - vbl
		dc.w	select_page-1		; i - vbl
		dc.w	select_page-1		; J - Death Trap
		dc.w	select_page-1		; j - Death Trap
		dc.w	select_page-1		; K - Driver Calls
		dc.w	select_page-1		; k - Driver Calls
		dc.w	select_page-1		; L - Device Characteristics
		dc.w	select_page-1		; l - Device Characteristics
		dc.w	select_page-1		; M - Supervisor Characteristics
		dc.w	select_page-1		; m - Supervisor Characteristics
		dc.w	select_page-1		; N - Memory Attributes
		dc.w	select_page-1		; n - Memory Attributes
		dc.w	select_page-1		; O - GS/OS Memory Map
		dc.w	select_page-1		; o - GS/OS Memory Map
		dc.w	select_page-1		; P - Visit Monitor
		dc.w	select_page-1		; p - Visit Monitor
		dc.w	select_page-1		; Q - System User ID
		dc.w	select_page-1		; q - System User ID
		dc.w	select_page-1		; R - 
		dc.w	select_page-1		; r - 
		dc.w	select_page-1		; S - 
		dc.w	select_page-1		; s - 
		dc.w	select_page-1		; T - 
		dc.w	select_page-1		; t - 
		dc.w	select_page-1		; U - 
		dc.w	select_page-1		; u - 
		dc.w	select_page-1		; V - 
		dc.w	select_page-1		; v - 
		dc.w	select_page-1		; W - 
		dc.w	select_page-1		; w - 
		dc.w	select_page-1		; X - 
		dc.w	select_page-1		; x - 
		dc.w	select_page-1		; Y - 
		dc.w	select_page-1		; y - 
		dc.w	select_page-1		; Z - 
		dc.w	select_page-1		; z - 

		eject
		
key_hex_tbl	dc.w	0			; escape
		dc.w	0			; ?
		dc.w	0			; rigth arrow
		dc.w	0			; left arrow
		dc.w	0			; down arrow
		dc.w	0			; up arrow
		dc.w	0			; 0 - Copyright statement
		dc.w	1			; 1 - GS/OS System Calls
		dc.w	2			; 2 - GS/OS System Service Calls
		dc.w	3			; 3 - GS/OS Error Codes
		dc.w	4			; 4 - GS/OS USER ID
		dc.w	5			; 5 - GS/OS Direct Page
		dc.w	6			; 6 - GS/OS DIB
		dc.w	7			; 7 - GS/OS SIB
		dc.w	8			; 8 - GS/OS VCR
		dc.w	9			; 9 - GS/OS FCR
		dc.w	10			; A - GS/OS Cache
		dc.w	10			; a - GS/OS Cache
		dc.w	11			; B - GS/OS Trap
		dc.w	11			; b - GS/OS Trap
		dc.w	12			; C - GS/OS FST Numbers
		dc.w	12			; c - GS/OS FST Numbers
		dc.w	13			; D - GS/OS FST Headers
		dc.w	13			; d - GS/OS FST Headers
		dc.w	14			; E - GS/OS Block Diagram
		dc.w	14			; e - GS/OS Block Diagram
		dc.w	15			; F - GS Bank $E1 vectors
		dc.w	15			; f - GS Bank $E1 vectors
		dc.w	16			; G - Express Loader Info
		dc.w	16			; g - Express Loader Info
		dc.w	17			; H - Device dispatcher file list
		dc.w	17			; h - Device dispatcher file list
		dc.w	18			; I - vbl
		dc.w	18			; i - vbl
		dc.w	19			; J - Death Trap
		dc.w	19			; j - Death Trap
		dc.w	20			; K - Driver Calls
		dc.w	20			; k - Driver Calls
		dc.w	21			; L - Device Characteristics
		dc.w	21			; l - Device Characteristics
		dc.w	22			; M - Supervisor Characteristics
		dc.w	22			; m - Supervisor Characteristics
		dc.w	23			; N - Memory Attributes
		dc.w	23			; n - Memory Attributes
		dc.w	24			; O - GS/OS Memory Map
		dc.w	24			; o - GS/OS Memory Map
		dc.w	25			; P - Visit Monitor
		dc.w	25			; p - Visit Monitor
		dc.w	26			; Q - System User ID
		dc.w	26			; q - System User ID
		dc.w	27			; R - 
		dc.w	27			; r - 
		dc.w	28			; S - 
		dc.w	28			; s - 
		dc.w	29			; T - 
		dc.w	29			; t - 
		dc.w	30			; U - 
		dc.w	30			; u - 
		dc.w	31			; V - 
		dc.w	31			; v - 
		dc.w	32			; W - 
		dc.w	32			; w - 
		dc.w	33			; X - 
		dc.w	33			; x - 
		dc.w	34			; Y - 
		dc.w	34			; y - 
		dc.w	35			; Z - 
		dc.w	35			; z - 

                eject
******************************************************************************
*
* This routine waits for a key from the keyboard.
*
* ENTRY: Call via 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Key character (7 bit ascii) in lsb
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Unchanged
*               B Reg = Unchanged
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
******************************************************************************
wait_key
		longa	on
		longi	on
		
		sep	#$20		; 8 bit 'm'
		longa	off

key_loop
		lda	>keydata	; any key pending?
		bpl	key_loop	; no, wait for key
		
		sta	>keystrobe	; clear key register

		rep	#$20		; 16 bit 'm'
		longa	on
		
		and	#$007F
		rts
		
                eject
******************************************************************************
*
* This routine waits for a hex data from the keyboard.  As data is input, it
* will be displayed at the current cursor position and the cursor position 
* will be subsequently advanced to the next valid cursor position.
*
* ENTRY: Call via 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = hex value
*               X Reg = Unchanged
*               Y Reg = Unchanged
*             Dir Reg = Unchanged
*               B Reg = Unchanged
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ 0  0	key is valid hex
*                       ¥ ¥ 0 0 0 ¥ ¥ 1  0	key is not valid hex
*
******************************************************************************
wait_hex
		longa	on
		longi	on
		
		phx
		phy
		
		lda	|ch
		pha
		lda	|cv
		pha
		lda	|mode
		pha
		
		lda	#flashing		; set mode to inverse
		sta	|mode
		lda	#' '			; and display cursor
		jsr	writechar
another_key
		jsr	wait_key		; wait for keyboard input
		ldx	#0
hex_key_loop
		cmp	|hex_key_tbl,x		; find valid hex key entry
		beq	have_hex_key
		inx
		inx
		cpx	#hex_data_tbl-hex_key_tbl
		bne	hex_key_loop
		cmp	#escape_key
		bne	another_key		; if invalid then get another key
		sec
		lda	#' '
		bcs	escaped_hex
have_hex_key	
		cmp	#$0041			; is it an alpha?
		blt	have_alpha		; yes
		and	#$00DF			; else force upper case
have_alpha
		clc
escaped_hex
		tay				; perserve character
		pla
		sta	|mode
		pla
		sta	|cv
		pla
		sta	|ch
		php
		phx
		phy
		jsr	vtab			; reset cursor position
		pla				; restore character and...
		jsr	writechar		; write the character to the screen
		plx
		lda	|hex_data_tbl,x		; get the hex equivalent
		plp				; restore error status
		ply
		plx
		rts

hex_key_tbl	dc.w	'0'
		dc.w	'1'
		dc.w	'2'
		dc.w	'3'
		dc.w	'4'
		dc.w	'5'
		dc.w	'6'
		dc.w	'7'
		dc.w	'8'
		dc.w	'9'
		dc.w	'A'
		dc.w	'a'
		dc.w	'B'
		dc.w	'b'
		dc.w	'C'
		dc.w	'c'
		dc.w	'D'
		dc.w	'd'
		dc.w	'E'
		dc.w	'e'
		dc.w	'F'
		dc.w	'f'
		
hex_data_tbl	dc.w	0
		dc.w	1
		dc.w	2
		dc.w	3
		dc.w	4
		dc.w	5
		dc.w	6
		dc.w	7
		dc.w	8
		dc.w	9
		dc.w	10
		dc.w	10
		dc.w	11
		dc.w	11
		dc.w	12
		dc.w	12
		dc.w	13
		dc.w	13
		dc.w	14
		dc.w	14
		dc.w	15
		dc.w	15
		
                eject
******************************************************************************
*
* This routine waits for a hex data from the keyboard.  As data is input, it
* will be displayed at the current cursor position and the cursor position 
* will be subsequently advanced to the next valid cursor position.
*
* ENTRY: Call via 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = hex word value
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Unchanged
*               B Reg = Unchanged
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
******************************************************************************
wait_byte
		longa	on
		longi	on

		ldx	#2			; set data length
		bra	wait_hex_entry
		
******************************************************************************
*
* This routine waits for a hex data from the keyboard.  As data is input, it
* will be displayed at the current cursor position and the cursor position 
* will be subsequently advanced to the next valid cursor position.
*
* ENTRY: Call via 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = hex word value
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Unchanged
*               B Reg = Unchanged
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
******************************************************************************
wait_word
		longa	on
		longi	on

		ldx	#4			; set data length
		bra	wait_hex_entry
		
                eject
******************************************************************************
*
* This routine waits for a hex data from the keyboard.  As data is input, it
* will be displayed at the current cursor position and the cursor position 
* will be subsequently advanced to the next valid cursor position.
*
* ENTRY: Call via 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = least significant hex word value
*               X Reg = most significant hex word value
*               Y Reg = Undefined
*             Dir Reg = Unchanged
*               B Reg = Unchanged
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
******************************************************************************
wait_long
		longa	on
		longi	on
		
		ldx	#8			; set data length
wait_hex_entry
		stz	|word_data
		stz	|word_data+2
		stx	|hex_data_len
		
		dex
wait_word_loop
		phx
		jsr	wait_hex		; wait for keyboard input
		bcs	escaped_wait		; no data if escaped
		pha
		txa				; is this a high nibble?
		lsr	a			; C=nibble index, X=byte index
		tax
		pla
		bcc	low_nibble		; C=1 if high nibble, C=0 if low nibble
		asl	a			; put data in high nibble
		asl	a
		asl	a
		asl	a
low_nibble
		ora	|word_data,x
		sta	|word_data,x
		plx
		dex
		bpl	wait_word_loop
word_done
		lda	#$000D			; output cr/lf
		jsr	writechar
		lda	|word_data		; exit with data
		ldx	|word_data+2
		clc
		rts
escaped_wait
		lda	#$000D			; output cr/lf
		jsr	writechar
		sec				; set escaped flag
		plx
		lda	#0
		tax
		rts
		
hex_data_len	dc.w	0
word_data	ds	12

		eject
*****************************************************************
*
* This routine displays all CDA display options.
*
* ENTRY: Call via 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
display_page1
		longa	on
		longi	on
		
		cmp	#$0015		; was key a right arrow?
		beq	p1_arrow	; yes
		
		cmp	#$0008		; was key a left arrow?
		beq	p1_arrow	; yes
		clc
		rts
p1_arrow	
		jsr	home
		jsr	wait_vbl	; wait for vertical blanking time
                pea     cda_page1>>16	; Display CDA options
                pea     cda_page1
                jsr     writecstring
		clc
		rts
		
		eject
*****************************************************************
*
* This routine displays all the driver parameters on the 
* GS/OS direct page.
*
* ENTRY: Call via 'JSR'
*               A Reg = Character from keyboard
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
display_dir_pg
		longa	on
		longi	on
				
		cmp	#$0015		; was key a right arrow?
		beq	p2_arrow	; yes
		
		cmp	#$0008		; was key a left arrow?
		beq	p2_arrow	; yes
		clc
		rts
p2_arrow		
		jsr	home		; clear screen
		jsr	wait_vbl	; wait for vertical blanking time
                pea     cda_page2>>16	; Display GS/OS Direct Page
                pea     cda_page2
                jsr     writecstring

		lda	#45		; display OS call name
		sta	|ch
		stz	|cv
		lda	<call_number	; is this a legal call number?
		and	#$00FF
		cmp	#$0034
		blt	display_call	; yes
		lda	#$0000		; no
display_call
		asl	a		; now display call name
		asl	a
		tax
		lda	|call_name_table+2,x
		pha
		lda	|call_name_table,x
		pha
		jsr	writecstring
		
		lda	#3		; adjust cursor position
		jsr	set_ch2		
                lda     <drvr_dev_num
                jsr     display_int

		lda	#3		; adjust cursor position
		jsr	set_ch4		
                lda     <call_number
                jsr     display_int
	
		lda	#4		; adjust cursor position
		jsr	set_ch2		
                lda     <drvr_call_num
                jsr     display_int

		lda	#4		; adjust cursor position
		jsr	set_ch3		
                lda	<param_blk_ptr
                ldy	<param_blk_ptr+2
                jsr     display_long

		lda	#5		; adjust cursor position
		jsr	set_ch1		
                lda	<drvr_buf_ptr
                ldy	<drvr_buf_ptr+2
                jsr     display_long

		lda	#6		; adjust cursor position
		jsr	set_ch1		
                lda     <drvr_req_cnt
                ldy     <drvr_req_cnt+2
                jsr     display_long

		lda	#6		; adjust cursor position
		jsr	set_ch3		
                lda     <sib_ptr
                ldy     <sib_ptr+2
                jsr     display_long

		lda	#7		; adjust cursor position
		jsr	set_ch1		
                lda     <drvr_tran_cnt
                ldy     <drvr_tran_cnt+2
                jsr     display_long

		lda	#7		; adjust cursor position
		jsr	set_ch3		
                lda     <sup_parm_ptr
                ldy     <sup_parm_ptr+2
                jsr     display_long

		lda	#8		; adjust cursor position
		jsr	set_ch1		
                lda     <drvr_blk_num
                ldy     <drvr_blk_num+2
                jsr     display_long

		lda	#8		; adjust cursor position
		jsr	set_ch3		
                lda     <sup_drvr_ptr
                ldy     <sup_drvr_ptr+2
                jsr     display_long

		lda	#9		; adjust cursor position
		jsr	set_ch2		
                lda     <drvr_blk_size
                jsr     display_int

		lda	#10		; adjust cursor position
		jsr	set_ch2		
                lda     <drvr_fst_num
                jsr     display_int

		lda	#10		; adjust cursor position
		jsr	set_ch4		
                lda     <dev1_num
                jsr     display_int

		lda	#11		; adjust cursor position
		jsr	set_ch2		
                lda     <drvr_vol_id
                jsr     display_int

		lda	#11		; adjust cursor position
		jsr	set_ch4		
                lda     <dev2_num
                jsr     display_int

		lda	#12		; adjust cursor position
		jsr	set_ch2		
                lda     <drvr_cache
                jsr     display_int

		lda	#12		; adjust cursor position
		jsr	set_ch3		
                lda     <path1_ptr
		ldy	<path1_ptr+2
                jsr     display_long

		lda	#13		; adjust cursor position
		jsr	set_ch1		
                lda     <drvr_cach_ptr
                ldy     <drvr_cach_ptr+2
                jsr     display_long

		lda	#13		; adjust cursor position
		jsr	set_ch3		
                lda     <path2_ptr
		ldy	<path2_ptr+2
                jsr     display_long

		lda	#14		; adjust cursor position
		jsr	set_ch1
		ldy	#2
		lda	[<drvr_dev_ptr],y
		tay
                lda	[<drvr_dev_ptr]
                jsr     display_long

		lda	#14		; adjust cursor position
		jsr	set_ch4		
                lda     <path_flag
                jsr     display_int

		lda	#15		; adjust cursor position
		jsr	set_ch4		
                lda     <span1
                jsr     display_int

		lda	#16		; adjust cursor position
		jsr	set_ch1		
		lda	<post_drvr_tbl
                ldy	<post_drvr_tbl+2
                jsr     display_long

		lda	#16		; adjust cursor position
		jsr	set_ch4		
                lda     <span2
                jsr     display_int

		lda	#18		; adjust cursor position
		jsr	set_ch1		
		lda	<cache_cur_ptr
                ldy	<cache_cur_ptr+2
                jsr     display_long

		lda	#18		; adjust cursor position
		jsr	set_ch3		
                lda     <cache_pre_ptr
                ldy     <cache_pre_ptr+2
                jsr     display_long

		lda	#19		; adjust cursor position
		jsr	set_ch1		
		lda	<cache_nxt_ptr
                ldy	<cache_nxt_ptr+2
                jsr     display_long

		lda	#19		; adjust cursor position
		jsr	set_ch3		
                lda     <cache_bkt_ptr
                ldy     <cache_bkt_ptr+2
                jsr     display_long

		clc
		rts
		
		eject
*****************************************************************
*
* This routine displays all the GS/OS system calls
*
* ENTRY: Call via 'JSR'
*               A Reg = Character from keyboard
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
display_sys
		longa	on
		longi	on
				
		cmp	#$0015		; was key a right arrow?
		beq	sys_arrow	; yes
		
		cmp	#$0008		; was key a left arrow?
		beq	sys_arrow	; yes
		clc
		rts
sys_arrow		
		jsr	home		; clear screen
		jsr	wait_vbl	; wait for vertical blanking time
                pea     sys_page>>16	; Display GS/OS Direct Page
                pea     sys_page
                jsr     writecstring

		clc
		rts
		
		eject
*****************************************************************
*
* This routine displays all the GS/OS block diagram
*
* ENTRY: Call via 'JSR'
*               A Reg = Character from keyboard
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
display_block
		longa	on
		longi	on
				
		cmp	#$0015		; was key a right arrow?
		beq	block_arrow	; yes
		
		cmp	#$0008		; was key a left arrow?
		beq	block_arrow	; yes
		clc
		rts
block_arrow	
		jsr	home		; clear screen
		lda	|mode		; set inverse display mode
		pha
		lda	#inverse
		sta	|mode
		jsr	wait_vbl	; wait for vertical blanking time
                pea     block_page>>16	; Display GS/OS Direct Page
                pea     block_page
                jsr     writecstring
		pla
		sta	|mode

		clc
		rts
		
		eject
*****************************************************************
*
* This routine displays all the GS bank $E1 vectors
*
* ENTRY: Call via 'JSR'
*               A Reg = Character from keyboard
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
display_bank_e1
		longa	on
		longi	on
				
		cmp	#$0015			; was key a right arrow?
		beq	e1_arrow		; yes
		
		cmp	#$0008			; was key a left arrow?
		beq	e1_arrow		; yes
		clc
		rts
e1_arrow	
		jsr	home			; clear screen
		jsr	wait_vbl		; wait for vertical blanking time
                pea     bank_e1_page>>16	; Display GS/OS Direct Page
                pea     bank_e1_page
                jsr     writecstring
		clc
		rts
		
		eject
*****************************************************************
*
* This routine displays all the GS/OS system service calls
*
* ENTRY: Call via 'JSR'
*               A Reg = Character from keyboard
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
display_svc
		longa	on
		longi	on
				
		cmp	#$0015		; was key a right arrow?
		beq	svc_arrow	; yes
		
		cmp	#$0008		; was key a left arrow?
		beq	svc_arrow	; yes
		clc
		rts
svc_arrow		
		jsr	home		; clear screen
		jsr	wait_vbl	; wait for vertical blanking time
                pea     svc_page>>16	; Display GS/OS Direct Page
                pea     svc_page
                jsr     writecstring

		clc
		rts
		
		eject
*****************************************************************
*
* This routine displays all the GS/OS error codes
*
* ENTRY: Call via 'JSR'
*               A Reg = Character from keyboard
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
display_err
		longa	on
		longi	on
				
		cmp	#$0015		; was key a right arrow?
		beq	err_arrow	; yes
		
		cmp	#$0008		; was key a left arrow?
		beq	err_arrow	; yes
		clc
		rts
err_arrow		
		jsr	home		; clear screen
		jsr	wait_vbl	; wait for vertical blanking time
                pea     error_page>>16	; Display GS/OS error codes
                pea     error_page
                jsr     writecstring

		clc
		rts
		
		eject
*****************************************************************
*
* This routine displays all the GS/OS user ID numbers
*
* ENTRY: Call via 'JSR'
*               A Reg = Character from keyboard
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
display_id
		longa	on
		longi	on
				
		cmp	#$0015		; was key a right arrow?
		beq	id_arrow	; yes
		
		cmp	#$0008		; was key a left arrow?
		beq	id_arrow	; yes
		clc
		rts
id_arrow		
		jsr	home		; clear screen
		jsr	wait_vbl	; wait for vertical blanking time
                pea     id_page>>16	; Display GS/OS user ID's
                pea     id_page
                jsr     writecstring

		clc
		rts
		
		eject
*****************************************************************
*
* This routine displays all the GS/OS FST ID numbers
*
* ENTRY: Call via 'JSR'
*               A Reg = Character from keyboard
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
display_fst
		longa	on
		longi	on
				
		cmp	#$0015		; was key a right arrow?
		beq	fst_arrow	; yes
		
		cmp	#$0008		; was key a left arrow?
		beq	fst_arrow	; yes
		clc
		rts
fst_arrow	
		jsr	home		; clear screen
		jsr	wait_vbl	; wait for vertical blanking time
                pea     fst_page>>16	; Display GS/OS FST ID's
                pea     fst_page
                jsr     writecstring

		clc
		rts
		
		eject
*****************************************************************
*
* This routine displays all the GS/OS FST headers.
*
* ENTRY: Call via 'JSR'
*               A Reg = Character from keyboard
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
display_fst_hdr
		longa	on
		longi	on
				
		cmp	#$0015			; was key a right arrow?
		beq	fst_hdr_arrow		; yes
		
		cmp	#$0008			; was key a left arrow?
		beq	fst_hdr_arrow		; yes
		
		cmp	#$000A			; was key a down arrow?
		bne	not_fst_dn		; no
		dec	|cur_fst_num		; point at previous FST header
		bra	fst_hdr_rdy
not_fst_dn
		cmp	#$000B			; was key an up arrow?
		bne	not_fst_up		; no, all done here
		inc	|cur_fst_num		; point at next FST
		bra	fst_hdr_rdy
not_fst_up
		clc
		rts
fst_hdr_arrow	
		jsr	home			; clear screen
		jsr	wait_vbl		; wait for vertical blanking time
                pea     fst_hdr_page>>16	; Display GS/OS FST Headers
                pea     fst_hdr_page
                jsr     writecstring
fst_hdr_rdy
		pei	temp+2			; get some zero page
		pei	temp

		lda	>fst_table_ptr
		sta	<temp
		lda	>fst_table_ptr+2
		sta	<temp+2
		
		lda	|cur_fst_num		; is fst number in range?
		beq	set_last_fst		; no
		bmi	set_last_fst		; no
		cmp	[<temp]
		blt	have_fst_num		; yes
		beq	have_fst_num		; yes
		lda	#$0001			; else set to first
		sta	|cur_fst_num
		bra	have_fst_num
set_last_fst
		lda	[<temp]			; get last fst number & set it as current
		sta	|cur_fst_num
have_fst_num
		lda	|cur_fst_num		; create pointer into fst table
		dec	a			; index = [(fst num - 1) * 16] +2
		asl	a
		asl	a
		asl	a
		asl	a
		clc
		adc	#$0002
		tay
		
		lda	[<temp],y		; set direct page pointer to current fst header
		tax
		iny
		iny
		lda	[<temp],y
		sta	<temp+2
		stx	<temp

		lda	#3			; string position for name
		sta	|cv
		lda	#11
		sta	|ch

		ldy	#fst_hdr_string		; get FST string length
		lda	[<temp],y
		iny
		and	#$001F
		beq	fst_name_done
		tax
fst_name_loop
		lda	[<temp],y		; get fst string character
		and	#$007F
		cmp	#$000D
		bne	not_fst_cr
		lda	#'@'
not_fst_cr
		jsr	writechar		; display it
		iny
		dex
		bne	fst_name_loop
fst_name_loop1
		lda	|ch			; done enough?
		cmp	#60
		bge	fst_name_done
		
		lda	#' '			; fill to end of line
		jsr	writechar
		bra	fst_name_loop1
		
fst_name_done
		lda	#4			; display FST header base address
		jsr	set_ch3
		ldy	<temp+2
		lda	<temp
		jsr	display_long
		
		lda	#5			; adjust cursor position
		jsr	set_ch3		
		ldy	#fst_hdr_app		; index in fst header for application call entry
		jsr	do_temp_long

		lda	#6			; adjust cursor position
		jsr	set_ch3		
		ldy	#fst_hdr_sys		; index in fst header for system call entry
		jsr	do_temp_long

		lda	#7			; adjust cursor position
		jsr	set_ch4		
		ldy	#fst_hdr_id		; index in fst ID
		jsr	do_temp_int

		lda	#8			; adjust cursor position
		jsr	set_ch4		
		ldy	#fst_hdr_flag		; index in fst flag
		jsr	do_temp_int

		lda	#9			; adjust cursor position
		jsr	set_ch4		
		ldy	#fst_hdr_ver		; index in fst version
		jsr	do_temp_int

		lda	#10			; adjust cursor position
		jsr	set_ch4		
		ldy	#fst_hdr_blk		; index in fst block size
		jsr	do_temp_int

		lda	#11			; adjust cursor position
		jsr	set_ch3		
		ldy	#fst_hdr_max_blk	; index in fst maximum block count
		jsr	do_temp_long

		lda	#12			; adjust cursor position
		jsr	set_ch3		
		ldy	#fst_hdr_min_blk	; index in fst minimum block count
		jsr	do_temp_long

		lda	#13			; adjust cursor position
		jsr	set_ch3		
		ldy	#fst_hdr_max_f		; index in fst file size
		jsr	do_temp_long

		lda	#14			; adjust cursor position
		jsr	set_ch3		
		ldy	#fst_hdr_res		; index in fst reserved
		jsr	do_temp_long

		pla
		sta	<temp
		pla
		sta	<temp+2
		clc
		rts
		
cur_fst_num	dc.w	1			; number of current FST being displayed
		
		eject
*****************************************************************
*
* This routine displays the GS/OS traps
*
* ENTRY: Call via 'JSR'
*               A Reg = Character from keyboard
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
display_trap
		longa	on
		longi	on
				
		cmp	#$0015			; was key a right arrow?
		beq	trap_arrow		; yes
		
		cmp	#$0008			; was key a left arrow?
		beq	trap_arrow		; yes
		
		cmp	#$0030			; is it a numeric?
		blt	trap_exit		; no
		cmp	#$0038
		blt	trap_advance
trap_exit
		clc
		rts

trap_arrow	
		stz	|trap_pg_index		; start at base trap page
		bra	trap_dispatch
		
trap_advance
		and	#$0007			; set display page
		sta	|trap_pg_index

trap_dispatch
		jsr	home			; clear screen
		jsr	wait_vbl		; wait until vertical retrace blanking time
		lda	|trap_pg_index		; get display page address
		asl	a
		tax
		lda	|trap_goto_tbl,x
		pha				; address of function to dispatch to -1
		txa
		asl	a
		tax
		lda	|trap_pg_tbl+2,x	; screen page address
		pha
		lda	|trap_pg_tbl,x
		pha
                jsr     writecstring		; display page
no_trap
		rts				; dispatch to function

		eject
sys_call_trap	jsr	wait_word		; wait for call number
		bcs	no_trap			; done if escaped
		sta	|sys_call
		tay				; is it a removal call?
		beq	put_sys_trap		; yes
		
		pea	sys_err_str>>16		; display error number prompt
		pea	sys_err_str
		jsr	writecstring
		jsr	wait_word		; wait for error number
		bcs	no_trap			; done if escaped
		sta	|sys_err
		
		pea	sys_cnt_str>>16		; display occurance number prompt
		pea	sys_cnt_str
		jsr	writecstring
		jsr	wait_word		; wait for occurance number
		bcs	no_trap			; done if escaped
		sta	|sys_occurance
put_sys_trap
		jsr	install_sys_trap	; go install or remove the trap
		pea	trigger_str>>16		; display logic anaylizer trigger points
		pea	trigger_str
		jsr	writecstring
		brl	say_trap_in
		
		eject
drvr_call_trap	jsr	wait_word		; wait for call number
		bcs	drvr_installed		; done if escaped
		sta	|drvr_call
		tay				; is it a removal call?
		beq	put_drvr_trap		; yes
		
		pea	drvr_err_str>>16	; display error number prompt
		pea	drvr_err_str
		jsr	writecstring
		jsr	wait_word		; wait for error number
		bcs	drvr_installed		; done if escaped
		sta	|drvr_err
		
		pea	drvr_dev_str>>16	; display device number prompt
		pea	drvr_dev_str
		jsr	writecstring
		jsr	wait_word		; wait for device number
		bcs	drvr_installed		; done if escaped
		sta	|drvr_dev
		
		pea	drvr_blk_str>>16	; display block number prompt
		pea	drvr_blk_str
		jsr	writecstring
		jsr	wait_long		; wait for block number
		bcs	drvr_installed		; done if escaped
		sta	|drvr_blk
		stx	|drvr_blk+2
		
		pea	drvr_cnt_str>>16	; display occurance number prompt
		pea	drvr_cnt_str
		jsr	writecstring
		jsr	wait_word		; wait for occurance number
		bcs	drvr_installed		; done if escaped
		sta	|drvr_occurance
put_drvr_trap
		jsr	install_drvr_trap	; go install or remove the trap

drvr_installed		
		brl	say_trap_in
		
		eject
sup_call_trap	jsr	wait_word		; wait for call number
		bcs	sup_installed		; done if escaped
		sta	|sup_call
		tay				; is it a removal call?
		beq	put_sup_trap		; yes
		
		pea	sup_err_str>>16		; display error number prompt
		pea	sup_err_str
		jsr	writecstring
		jsr	wait_word		; wait for error number
		bcs	sup_installed		; done if escaped
		sta	|sup_err
		
		pea	sup_num_str>>16		; display supervisor number prompt
		pea	sup_num_str
		jsr	writecstring
		jsr	wait_word		; wait for supervisor number
		bcs	sup_installed		; done if escaped
		sta	|sup_num
		
		pea	sup_cnt_str>>16		; display occurance number prompt
		pea	sup_cnt_str
		jsr	writecstring
		jsr	wait_word		; wait for occurance number
		bcs	sup_installed		; done if escaped
		sta	|sup_occurance
put_sup_trap
		jsr	install_sup_trap	; go install or remove the trap

sup_installed		
		brl	say_trap_in
		
os_queue_trap	jsr	wait_word		; wait for queue number
		bcs	queue_installed		; done if escaped
		sta	|queue_num
queue_installed	
		
say_trap_in	pea	trap_in_str>>16		; display message indicating trap is installed
		pea	trap_in_str
		jsr	writecstring
		clc
		rts
		
		eject
trap_pg_index	dc.w	0

trap_pg_tbl	dc.l	trap_page		; 0 = main trap menu
		dc.l	systrap_page		; 1 = system call trap menu
		dc.l	drvrtrap_page		; 2 = driver call trap menu
		dc.l	suptrap_page		; 3 = supervisor call trap menu
		dc.l	queue_trap		; 4 = OS queue trap menu
		dc.l	trap_page		; 5 = main trap menu (unimplemented)
		dc.l	trap_page		; 6 = main trap menu (unimplemented)
		dc.l	trap_page		; 7 = main trap menu (unimplemented)
		
trap_goto_tbl	dc.w	no_trap-1		; 0 = main trap menu item
		dc.w	sys_call_trap-1		; 1 = system call trap menu
		dc.w	drvr_call_trap-1	; 2 = driver call trap menu
		dc.w	sup_call_trap-1		; 3 = supervisor call trap menu
		dc.w	os_queue_trap-1		; 4 = OS queue call trap menu
		dc.w	no_trap-1		; 5 = system call trap menu
		dc.w	no_trap-1		; 6 = system call trap menu
		dc.w	no_trap-1		; 7 = system call trap menu
		
sys_call	dc.w	0			; system call number for trap
sys_err		dc.w	0			; system error number for trap
sys_occurance	dc.w	0			; system occurance number for trap

drvr_call	dc.w	0			; driver call number for trap
drvr_err	dc.w	0			; driver error number for trap
drvr_dev	dc.w	0			; driver device number for trap
drvr_blk	dc.l	0			; driver block number for trap
drvr_occurance	dc.w	0			; driver occurance number for trap

sup_call	dc.w	0			; supervisor call number for trap
sup_err		dc.w	0			; supervisor error number for trap
sup_num		dc.w	0			; supervisor number for trap
sup_occurance	dc.w	0			; supervisor occurance number for trap

queue_num	dc.w	0			; OS queue number for trap
		
		eject
*****************************************************************
*
* This entry point is for running the desk accessory.  It 
* installs or removes the trap from the GS/OS inline and
* stack based entry points dependending on whether the trap
* is currently installed.  If currently installed, the trap
* will be removed.  If currently not installed, the trap will
* be installed.
*
* ENTRY: Call via 'JSL'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTL'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
install_sys_trap
		longa	on
		longi	on
		
		lda	|sys_call		; is this a request to remove the trap?
		beq	remove_sys_trap		; yes
		
		bit	|sys_trap_flag		; is trap installed?
		bpl	install_sys_1		; no
		rts
*
* Install the trap.
*
install_sys_1	dec	|sys_trap_flag		; indicate trap is installed
		
		lda	>os_entry+1		; preserve original inline entry
		sta	|os_call+1
		lda	>os_entry+2
		sta	|os_call+2
		
		lda	#inline_trap		; install inline trap in inline entry
		sta	>os_entry+1
		lda	#inline_trap>>8
		sta	>os_entry+2

		lda	>os_stk_entry+1		; preserve original stack entry
		sta	|os_stk_call+1
		lda	>os_stk_entry+2
		sta	|os_stk_call+2
		
		lda	#stk_trap		; install stack trap in stack entry
		sta	>os_stk_entry+1
		lda	#stk_trap>>8
		sta	>os_stk_entry+2
		rts

		eject
*
* Remove the system call trap.
*
remove_sys_trap	bit	|sys_trap_flag		; is trap installed?
		bmi	remove_sys_1		; yes, go remove it
		rts
		
remove_sys_1	lda	|os_call+1		; remove error trap from inline entry
		sta	>os_entry+1
		lda	|os_call+2
		sta	>os_entry+2

		lda	|os_stk_call+1		; remove error trap from stack entry
		sta	>os_stk_entry+1
		lda	|os_stk_call+2
		sta	>os_stk_entry+2
		
		stz	|sys_trap_flag		; indicate trap not installed
		rts

sys_trap_flag	dc.w	0			; 0 = trap not installed, -1 = trap installed
		
		eject
*****************************************************************
*
* The is the entry point to the trap.  This entry point reads 
* the current call parameters stack relative to create it's 
* own call to the operating system.  The return address on the 
* stack is modified to return to the application at the address
* one past the application's call parameters.
*
* INLINE ENTRY: $E100A8
*
*	sp+5	K	; PC = (call number-1)
*	sp+4	PCH
*	sp+3	PCL ---------->	
*	sp+2	PSTAT		Call Number (msb)
*	sp+1	BANK		Call Number (lsb)
*	SP ---->		Parm Block Ptr (msb, msw)
*				Parm Block Ptr (lsb, msw)
*				Parm Block Ptr (msb, lsw)
*				Parm Block Ptr (lsb, lsw)
*
* ENTRY: Call via 'JSL'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTL'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
inline_trap	
		longa	on
		longi	on
		
		php				; preserve application environment
		phb
		
		rep	#$30			; 16 bit 'm' & 'x'
		longa	on
		longi	on
		
		lda	3,s			; get address of call number -1
		tax
		lda	4,s
		pha
		plb
		plb
		
		lda	|1,x			; transfer call number from app to our call
		sta	>call_num

		lda	|3,x			; transfer parm blk ptr from app to our call
		sta	>plist
		lda	|5,x
		sta	>plist+2
		
		clc				; adjust return address + 6
		lda	3,s
		adc	#6
		sta	3,s
		
		sep	#$20
		longa	off
		
		lda	5,s
		adc	#0
		sta	5,s
		
		rep	#$20
		longa	on
		
		lda	>call_num		; do logic analyzer trigger
		tax
		
		sep	#$20
		longa	off
		
		sta	>$F80000,x
		
		rep	#$20
		longa	on

os_call		jsl	>$000000		; trap GS/OS system call

call_num	dc.w	0			; trap GS/OS call number

plist		dc.l	0			; trap GS/OS parameter block pointer

os_return	php
		phd
		pha
		phx
		phy
		
		jsr	chk_sys_trap		; check if trap should be displayed
		bcs	no_sys_trap		; dont display this call
		
		sep	#$20			; 8 bit 'm'
		longa	off
		
		lda	>$E0C068		; set for ram read
		pha
		and	#%11110111
		sta	>$E0C068
		
		rep	#$20			; 16 bit 'm'
		longa	on
		
		lda	>call_num		; obtain call number for display
		pha
		pea	str_val>>16		; location in string to display call number
		pea	str_val
		pea	$0004			; length of call number
		ldx	#$220B			; int2hex
		jsl	tool_locator
		
		pea	$0000			; substitution string #1
		pea	str_0FF>>16
		pea	str_0FF
		jsl	full_error
		
		sep	#$20			; 8 bit 'm'
		longa	off
		
		pla				; restore ram state
		sta	>$E0C068
no_sys_trap
		lda	9,s			; get error status
		ror	a			; and generate an error flag
		php
		lda	12,s			; and preserve for exit
		ror	a
		plp
		rol	a
		sta	11,s
		
		rep	#$20			; 16 bit 'm'
		longa	on
		
		ply
		plx
		pla
		pld
		plp
		plb
		plp
		rtl
		
		eject
*****************************************************************
*
* The is the entry point to the stack trap.  This entry point reads 
* the current call parameters stack relative to create it's 
* own call to the operating system.  The return address on the 
* stack is modified to return to the application at the address
* one past the application's call parameters.
*
* STACK ENTRY: $E100B0
*
*	sp+9	PARAMETER BLOCK (msb, msw)
*	sp+8	PARAMETER BLOCK (lsb, msw)
*	sp+7	PARAMETER BLOCK (msb, lsw)
*	sp+6	PARAMETER BLOCK (lsb, lsw)
*	sp+5	CALL NUMBER (msb)
*	sp+4	CALL NUMBER (lsb)
*	sp+3	K	
*	sp+2	PCH
*	sp+1	PCL
*	SP ---->
*
* ENTRY: Call via 'JSL'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTL'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
stk_trap	
		longa	on
		longi	on

		php				; preserve application processor mode
		lda	1,s
		and	#$00FE			; but clear carry
		sta	>app_mode
		plp
		
		rep	#$30			; 16 bit 'm' & 'x'
		longa	on
		longi	on
		
		lda	8,s			; push parameter list pointer (msw)
		pha
		lda	8,s			; push parameter list pointer (lsw)
		pha
		lda	8,s			; push call number
		pha

		tax				; do logic analyzer trigger
		
		sep	#$20
		longa	off
		
		sta	>$F80000,x
		
		rep	#$20
		longa	on

os_stk_call	jsl	>$000000		; trap GS/OS system call

os_stk_return	php
		pha
		phd
		
		jsr	chk_sys_trap		; check if trap should be displayed
		bcs	no_stk_trap		; dont display this call
		
		sep	#$20			; 8 bit 'm'
		longa	off
		
		lda	>$E0C068		; set for ram read
		pha
		and	#%11110111
		sta	>$e0c068
		
		rep	#$20			; 16 bit 'm'
		longa	on
		
		lda	10,s			; obtain call number for display
		pha
		pea	stk_val>>16		; location in string to display call number
		pea	stk_val
		pea	$0004			; length of call number
		ldx	#$220B			; int2hex
		jsl	tool_locator
		
		pea	$0000			; substitution string #1
		pea	str_stk>>16
		pea	str_stk
		jsl	full_error
		
		sep	#$20			; 8 bit 'm'
		longa	off
		
		pla				; restore ram state
		sta	>$E0C068
no_stk_trap
		rep	#$20			; 16 bit 'm'
		longa	on
		
		tsc
		tcd
		
		ldx	#6			; stack pointer
move_stk_parms
		lda	<1,x			; remove inline parameters from stack
		sta	<7,x
		dex
		dex
		bpl	move_stk_parms
		
		clc				; adjust stack pointer
		tsc
		adc	#6
		tcs
		
		pld				; restore state & exit
		
		lda	3,s			; get carry from current call exit
		and	#$FF01		
		ora	>app_mode		; restore mode with carry from current call exit
		sta	3,s
		
		pla
		plp
		rtl
		
app_mode	dc.w	0			; processor mode of application

		eject
*****************************************************************
*
* This routine checks to see if the system call trap should
* be displayed based on the trap call number, error number
* and occurance count.
*
* ENTRY: Call via 'JSR'
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ 0  0 if no error occured
*                       ¥ ¥ 0 0 0 ¥ ¥ 1  0 if error occured
*
* EXIT:   Via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ 0  0 if trap should not be displayed
*                       ¥ ¥ 0 0 0 ¥ ¥ 1  0 if trap should be displayed
*
*****************************************************************
chk_sys_trap
		longa	on
		longi	on
		
		phb
		phd

		phk
		plb
		pea	gsos_dir_page
		pld
		
		lda	<call_number		; do logic analyzer trigger for exit
		tax
		
		sep	#$20
		longa	off
		
		sta	>$F90000,x
		
		rep	#$20
		longa	on
		
		stz	|sys_err_num		; assume no error occured
		bcc	assume_no_err		; if assumption was correct
		sta	|sys_err_num		; save the current error code
assume_no_err
		lda	|sys_call		; is there a specific call?
		bmi	chk_sys_err		; no, it's a wild card

		cmp	<call_number		; else was this the correct call?
		bne	no_sys_display		; no
chk_sys_err
		lda	|sys_err		; is error trap on?
		bmi	chk_sys_occur		; no if wild card, display anything
		cmp	|sys_err_num		; else did the error match?
		bne	no_sys_display		; no, dont display the trap
chk_sys_occur
		inc	|sys_occur_cnt
		lda	|sys_occurance		; are occurances enabled?
		beq	sys_display		; no, display it anyway
		cmp	|sys_occur_cnt		; else, is this the correct occurance?
		bne	no_sys_display		; no, dont display the trap

sys_display
		stz	|sys_occur_cnt		; restart occurance count
		pld
		plb
		clc				; display the trap
		rts
		
no_sys_display
		pld
		plb
		sec				; dont display the trap
		rts
		
sys_err_num	dc.w	0			; running error code
sys_occur_cnt	dc.w	0			; running count of occurances

		eject
*****************************************************************
*
* This entry point installs or removes the driver call trap.
*
* ENTRY: Call via 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
install_drvr_trap
		longa	on
		longi	on
		
		lda	|drvr_call		; is this a request to remove the trap?
		beq	remove_drvr_trap	; yes
		
		bit	|drvr_trap_flag		; is trap installed?
		bpl	install_drvr_1		; no
		rts
*
* Install the trap.
*
install_drvr_1	dec	|sys_trap_flag		; indicate trap is installed
		
		lda	>dev_dispatcher+1	; preserve original inline entry
		sta	|device_call+1
		lda	>dev_dispatcher+2
		sta	|device_call+2
		
		lda	#dev_trap		; install inline trap in inline entry
		sta	>dev_dispatcher+1
		lda	#dev_trap>>8
		sta	>dev_dispatcher+2
		rts

		eject
*
* Remove the driver call trap.
*
remove_drvr_trap	
		bit	|drvr_trap_flag		; is trap installed?
		bmi	remove_drvr_1		; yes, go remove it
		rts
		
remove_drvr_1	lda	|device_call+1		; remove error trap from inline entry
		sta	>dev_dispatcher+1
		lda	|device_call+2
		sta	>dev_dispatcher+2
		stz	|sys_trap_flag		; indicate trap not installed
		rts

drvr_trap_flag	dc.w	0			; 0 = trap not installed, -1 = trap installed
		
		eject
*****************************************************************
*
* The is the entry point for the driver the trap.
*
* ENTRY: Call via 'JSL'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTL'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
dev_trap	
		longa	on
		longi	on
		
device_call
		jsl	$000000			; call the real device dispatcher
		
		php				; preserve application environment
		pha
		phd
		pea	gsos_dir_page
		pld

		jsr	chk_drvr_trap		; check if trap should be displayed
		bcs	no_drvr_trap		; dont display this call

		lda	<drvr_call_num		; obtain call number for display
		pha
		pea	drvr_val>>16		; location in string to display call number
		pea	drvr_val
		pea	$0004			; length of call number
		ldx	#$220B			; int2hex
		jsl	tool_locator
		
		pea	$0000			; substitution string #1
		pea	driver_string>>16
		pea	driver_string
		jsl	full_error
		
no_drvr_trap
		pld
		pla
		plp
		rtl
		
		eject
*****************************************************************
*
* This routine checks to see if the driver call trap should
* be displayed based on the trap call number, error number
* device number and occurance count.
*
* ENTRY: Call via 'JSR'
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ 0  0 if no error occured
*                       ¥ ¥ 0 0 0 ¥ ¥ 1  0 if error occured
*
* EXIT:   Via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ 0  0 if trap should not be displayed
*                       ¥ ¥ 0 0 0 ¥ ¥ 1  0 if trap should be displayed
*
*****************************************************************
chk_drvr_trap
		phb
		phd

		phk
		plb
		pea	gsos_dir_page
		pld
		
		stz	|drvr_err_num	; assume no error occured
		bcc	drvr_no_err	; if assumption was correct
		sta	|drvr_err_num	; save the current error code
drvr_no_err
		lda	|drvr_call	; is there a specific call?
		bmi	chk_drvr_err	; no, it's a wild card

		cmp	<drvr_call_num	; else was this the correct call?
		bne	no_drvr_display	; no
chk_drvr_err
		lda	|drvr_err	; is error trap on?
		bmi	chk_drvr_num	; no if wild card, display anything
		cmp	|drvr_err_num	; else did the error match?
		bne	no_drvr_display	; no, dont display the trap
chk_drvr_num
		lda	|drvr_dev	; is this the correct device?
		beq	chk_blk_num	; don't care
		cmp	<drvr_dev_num
		bne	no_drvr_display	; dont display if wrong device number
chk_blk_num
		lda	|drvr_blk	; should block number be checked?
		and	|drvr_blk+2
		cmp	#$FFFF
		beq	drvr_display	; dont care, go display trap
		lda	|drvr_blk
		cmp	<drvr_blk_num
		bne	no_drvr_display
		lda	|drvr_blk+2
		cmp	<drvr_blk_num+2
		bne	no_drvr_display
chk_drvr_occur
		inc	|drvr_occur_cnt
		lda	|drvr_occurance	; are occurances enabled?
		beq	drvr_display	; no, display it anyway
		cmp	|drvr_occur_cnt	; else, is this the correct occurance?
		bne	no_drvr_display	; no, dont display the trap

drvr_display
		stz	|drvr_occur_cnt	; restart occurance count
		pld
		plb
		clc			; display the trap
		rts
		
no_drvr_display
		pld
		plb
		sec			; dont display the trap
		rts
		
drvr_err_num	dc.w	0		; running error code
drvr_occur_cnt	dc.w	0		; running count of occurances

		eject
*****************************************************************
*
* This entry point installs or removes the supervisor call trap.
*
* ENTRY: Call via 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
install_sup_trap
		longa	on
		longi	on
		
		lda	|sup_call		; is this a request to remove the trap?
		beq	remove_sup_trap		; yes
		
		bit	|sup_trap_flag		; is trap installed?
		bpl	install_sup_1		; no
		rts
*
* Install the trap.
*
install_sup_1	dec	|sys_trap_flag		; indicate trap is installed
		
		lda	>sup_drvr_disp+1	; preserve original inline entry
		sta	|supervisor_call+1
		lda	>sup_drvr_disp+2
		sta	|supervisor_call+2
		
		lda	#sup_trap		; install inline trap in inline entry
		sta	>sup_drvr_disp+1
		lda	#sup_trap>>8
		sta	>sup_drvr_disp+2
		rts

		eject
*
* Remove the driver call trap.
*
remove_sup_trap	
		bit	|sup_trap_flag		; is trap installed?
		bmi	remove_sup_1		; yes, go remove it
		rts
		
remove_sup_1	lda	|supervisor_call+1	; remove error trap from inline entry
		sta	>sup_drvr_disp+1
		lda	|supervisor_call+2
		sta	>sup_drvr_disp+2
		stz	|sys_trap_flag		; indicate trap not installed
		rts

sup_trap_flag	dc.w	0			; 0 = trap not installed, -1 = trap installed
		
		eject
*****************************************************************
*
* The is the entry point for the supervisor the trap.
*
* ENTRY: Call via 'JSL'
*               A Reg = Supervisor Call Number
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTL'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
sup_trap	
		longa	on
		longi	on

		sta	>cur_sup_call		; preserve current supervisor call number
supervisor_call
		jsl	$000000			; call the real device dispatcher

		php				; preserve application environment
		pha

		jsr	chk_sup_trap		; check if trap should be displayed
		bcs	no_sup_trap		; dont display this call

		lda	>sup_num		; obtain call number for display
		pha
		pea	sup_val>>16		; location in string to display call number
		pea	sup_val
		pea	$0004			; length of call number
		ldx	#$220B			; int2hex
		jsl	tool_locator
		
		pea	$0000			; substitution string #1
		pea	sup_string>>16
		pea	sup_string
		jsl	full_error
		
no_sup_trap
		pla
		plp
		rtl
		
		eject
*****************************************************************
*
* This routine checks to see if the supervisor call trap should
* be displayed based on the trap call number, error number
* supervisor number and occurance count.
*
* ENTRY: Call via 'JSR'
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ 0  0 if no error occured
*                       ¥ ¥ 0 0 0 ¥ ¥ 1  0 if error occured
*
* EXIT:   Via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ 0  0 if trap should not be displayed
*                       ¥ ¥ 0 0 0 ¥ ¥ 1  0 if trap should be displayed
*
*****************************************************************
chk_sup_trap
		phb
		phd

		phk
		plb
		pea	gsos_dir_page
		pld
		
		stz	|sup_err_num	; assume no error occured
		bcc	sup_no_err	; if assumption was correct
		sta	|sup_err_num	; save the current error code
sup_no_err
		lda	|sup_call	; is there a specific call?
		bmi	chk_sup_err	; no, it's a wild card

		cmp	|cur_sup_call	; else was this the correct call?
		bne	no_sup_display	; no
chk_sup_err
		lda	|sup_err	; is error trap on?
		bmi	chk_sup_num	; no if wild card, display anything
		cmp	|sup_err_num	; else did the error match?
		bne	no_sup_display	; no, dont display the trap
chk_sup_num
		lda	|sup_num	; is this the correct device?
		beq	chk_sup_occur	; don't care
		cmp	<drvr_dev_num
		bne	no_sup_display	; dont display if wrong device number
chk_sup_occur
		inc	|sup_occur_cnt
		lda	|sup_occurance	; are occurances enabled?
		beq	sup_display	; no, display it anyway
		cmp	|sup_occur_cnt	; else, is this the correct occurance?
		bne	no_sup_display	; no, dont display the trap

sup_display
		stz	|sup_occur_cnt	; restart occurance count
		pld
		plb
		clc			; display the trap
		rts
		
no_sup_display
		pld
		plb
		sec			; dont display the trap
		rts
		
cur_sup_call	dc.w	0		; running supervisor call number
sup_err_num	dc.w	0		; running error code
sup_occur_cnt	dc.w	0		; running count of occurances

		eject
*****************************************************************
*
* This routine checks to see if the queue trap should
* be displayed based on the queue event code.
*
* ENTRY: Call via 'JSR'
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ 0  0 if no error occured
*                       ¥ ¥ 0 0 0 ¥ ¥ 1  0 if error occured
*
* EXIT:   Via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ 0  0 if trap should not be displayed
*                       ¥ ¥ 0 0 0 ¥ ¥ 1  0 if trap should be displayed
*
*****************************************************************
chk_queue_trap
		phb
		phd

		phk
		plb
		pea	gsos_dir_page
		pld
		
		pld
		plb
		clc			; display the trap
		rts
		
no_q_display
		pld
		plb
		sec			; dont display the trap
		rts
		
		eject
*****************************************************************
*
* This routine displays device information block.
*
* ENTRY: Call via 'JSR'
*               A Reg = Character from keyboard
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
display_dib_pg
		longa	on
		longi	on

		cmp	#$0015		; was key a right arrow?
		beq	p3_arrow	; yes
		
		cmp	#$0008		; was key a left arrow?
		beq	p3_arrow	; yes

		cmp	#$000A		; is it an down arrow?
		bne	not_p3_down	; no
		
		dec	<drvr_dev_num	; else decrement device number
		bne	p3_ready	; if device number is valid
		
		lda	[<drvr_dev_ptr]	; else point at last device in list
		sta	<drvr_dev_num
		bra	p3_ready
		
not_p3_down		
		cmp	#$000B		; is it an up arrow?
		bne	p3_ready	; no
		
		inc	<drvr_dev_num	; else increment device number
		lda	<drvr_dev_num	; at end of device list?
		cmp	[<drvr_dev_ptr]
		blt	p3_ready	; no
		beq	p3_ready	; no
		
		lda	#$0001		; else point at first device in list
		sta	<drvr_dev_num
p3_ready	
		jsr	set_dib_ptr	; point at current DIB
		jsr	wait_vbl	; wait for vertical blanking time
		bra	p3_changed
p3_arrow		
		jsr	home		; clear screen
		jsr	wait_vbl	; wait for vertical blanking time
                pea     cda_page3>>16	; Display Device Information Block
                pea     cda_page3
                jsr     writecstring
p3_changed		
		lda	#4		; adjust cursor position
		jsr	set_ch2		
                lda     <drvr_dev_num
                jsr     display_int

		lda	#4		; adjust cursor position
		jsr	set_ch3		
                ldy     #link_ptr+2
                lda     [<drvr_dib_ptr],y
                pha
                dey
                dey
                lda     [<drvr_dib_ptr],y
                ply
                jsr     display_long

		lda	#5		; adjust cursor position
		jsr	set_ch2		
                lda     <drvr_call_num
                jsr     display_int

		lda	#5		; adjust cursor position
		jsr	set_ch3		
                ldy     #entry_ptr+2
                lda     [<drvr_dib_ptr],y
                pha
                dey
                dey
                lda     [<drvr_dib_ptr],y
                ply
                jsr     display_long

		lda	#6		; adjust cursor position
		jsr	set_ch1		
                lda     <drvr_buf_ptr
                ldy     <drvr_buf_ptr+2
                jsr     display_long

		lda	#6		; adjust cursor position
		jsr	set_ch4		
                ldy     #dev_char
                lda     [<drvr_dib_ptr],y
                jsr     display_int

		lda	#7		; adjust cursor position
		jsr	set_ch1		
                lda     <drvr_req_cnt
                ldy     <drvr_req_cnt+2
                jsr     display_long

		lda	#7		; adjust cursor position
		jsr	set_ch3		
                ldy     #blk_cnt+2
                lda     [<drvr_dib_ptr],y
                pha
                dey
                dey
                lda     [<drvr_dib_ptr],y
                ply
                jsr     display_long

		lda	#8		; adjust cursor position
		jsr	set_ch1		
                lda     <drvr_tran_cnt
                ldy     <drvr_tran_cnt+2
                jsr     display_long

		lda	#8		; adjust cursor position
		jsr	set_ch3		
		ldy	#dev_name+1
		ldx	#0
copy_name_loop
		lda	[<drvr_dib_ptr],y
		sta	|cda_mem,x
		iny
		iny
		inx
		inx
		cpx	#20
		bne	copy_name_loop
                txa     		; number of characters to display
                jsr	writeblock

		lda	#9		; adjust cursor position
		jsr	set_ch1		
                lda     <drvr_blk_num
                ldy     <drvr_blk_num+2
                jsr     display_long

		lda	#9		; adjust cursor position
		jsr	set_ch4		
                ldy     #slot_num
                lda     [<drvr_dib_ptr],y
                jsr     display_int

		lda	#10		; adjust cursor position
		jsr	set_ch2		
                lda     <drvr_blk_size
                jsr     display_int

		lda	#10		; adjust cursor position
		jsr	set_ch4		
                ldy     #unit_num
                lda     [<drvr_dib_ptr],y
                jsr     display_int

		lda	#11		; adjust cursor position
		jsr	set_ch2		
                lda     <drvr_fst_num
                jsr     display_int

		lda	#11		; adjust cursor position
		jsr	set_ch4		
                ldy     #ver_num
                lda     [<drvr_dib_ptr],y
                jsr     display_int

		lda	#12		; adjust cursor position
		jsr	set_ch2		
                lda     <drvr_vol_id
                jsr     display_int

		lda	#12		; adjust cursor position
		jsr	set_ch4		
                ldy     #dev_id_num
                lda     [<drvr_dib_ptr],y
                jsr     display_int

		lda	#13		; adjust cursor position
		jsr	set_ch2		
                lda     <drvr_cache
                jsr     display_int

		lda	#13		; adjust cursor position
		jsr	set_ch4		
                ldy     #head_link
                lda     [<drvr_dib_ptr],y
                jsr     display_int

		lda	#14		; adjust cursor position
		jsr	set_ch1		
                lda     <drvr_cach_ptr
                ldy     <drvr_cach_ptr+2
                jsr     display_long

		lda	#14		; adjust cursor position
		jsr	set_ch4		
                ldy     #forward_link
                lda     [<drvr_dib_ptr],y
                jsr     display_int

		lda	#15		; adjust cursor position
		jsr	set_ch1		
                lda     <drvr_dib_ptr
                ldy     <drvr_dib_ptr+2
                jsr     display_long

		lda	#15		; adjust cursor position
		jsr	set_ch3		
                ldy     #ext_dib_ptr+2	; get extended DIB pointer
                lda     [<drvr_dib_ptr],y
		pha
		dey
		dey
                lda     [<drvr_dib_ptr],y
		ply
                jsr     display_long

		lda	#16		; adjust cursor position
		jsr	set_ch1		
                ldy     #$0002		; number of DIBs
                lda     [<drvr_dev_ptr],y
                tay
                lda     [<drvr_dev_ptr]
                jsr     display_long

		lda	#16		; adjust cursor position
		jsr	set_ch4		
                ldy     #dib_dev_num	; DIB device number
                lda     [<drvr_dib_ptr],y
                jsr     display_int

		lda	#17		; adjust cursor position
		jsr	set_ch4		
                ldy     #drvr_class
                lda     [<drvr_dib_ptr],y
                jsr     display_int

		lda	#18		; adjust cursor position
		jsr	set_ch2		
                lda     <drvr_dev_num	; device number
		dec	a
		asl	a
		asl	a
		asl	a
		clc
		adc	#$000A
		tay			; point at user ID
		lda	[<drvr_dev_ptr],y
                jsr     display_int

		lda	#18		; adjust cursor position
		jsr	set_ch4		
                ldy     #drvr_type
                lda     [<drvr_dib_ptr],y
                jsr     display_int

		lda	#19		; adjust cursor position
		jsr	set_ch2		
                lda     <drvr_dev_num	; device number
		dec	a
		asl	a
		asl	a
		asl	a
		clc
		adc	#$0008
		tay			; point at disk switch
		lda	[<drvr_dev_ptr],y
                jsr     display_int

		lda	#19		; adjust cursor position
		jsr	set_ch4		
                ldy     #drvr_subtype
                lda     [<drvr_dib_ptr],y
                jsr     display_int

		lda	#20		; adjust cursor position
		jsr	set_ch4		
                ldy     #cache_mask
                lda     [<drvr_dib_ptr],y
                jsr     display_int

		lda	#21		; adjust cursor position
		jsr	set_ch1
		lda	<post_drvr_tbl
		ldy	<post_drvr_tbl+2
                jsr     display_long

		lda	#21		; adjust cursor position
		jsr	set_ch4		
                ldy     #block_size
                lda     [<drvr_dib_ptr],y
                jsr     display_int

		lda	#22		; adjust cursor position
		jsr	set_ch1
		lda	<drvr_dev_ptr
		ldy	<drvr_dev_ptr+2
                jsr     display_long

		lda	#22		; adjust cursor position
		jsr	set_ch4		
                ldy     #hardware_unit
                lda     [<drvr_dib_ptr],y
                jsr     display_int

		clc
		rts
		
		eject
*****************************************************************
*
* This routine displays Supervisor Information Block.
*
* ENTRY: Call via 'JSR'
*               A Reg = Character from keyboard
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
display_sib_pg
		longa	on
		longi	on
		
		cmp	#$0015		; was key a right arrow?
		beq	p4_arrow	; yes
		
		cmp	#$0008		; was key a left arrow?
		beq	p4_arrow	; yes

		cmp	#$000A		; is it an down arrow?
		bne	not_p4_up	; no
		
		dec	|sib_num	; else decrement supervisor number
		bmi	adjust_sib_num
		bne	p4_ready	; if device number is valid
adjust_sib_num		
		lda	[<sup_drvr_ptr]	; else point at last supervisor in list
		sta	|sib_num
		bra	p4_ready
not_p4_up		
		cmp	#$000B		; is it an up arrow?
		bne	p4_ready	; no
		
		inc	|sib_num	; else increment supervisor number
		lda	[<sup_drvr_ptr]	; at end of supervisor list?
		cmp	|sib_num
		bge	p4_ready	; no
		
		lda	#$0001		; else point at supervisor device in list
		sta	|sib_num
		lda	[<sup_drvr_ptr]	; are there any sibs?
		bne	p4_ready
		stz	|sib_num
p4_ready	
		jsr	set_sib_ptr	; point at current SIB
		jsr	wait_vbl	; wait for vertical blanking time
		bra	p4_changed
		
p4_arrow
		jsr	home		; clear screen
		jsr	wait_vbl	; wait for vertical blanking time
		pea     cda_page4>>16	; Display GS/OS Direct Page
                pea     cda_page4
                jsr     writecstring
p4_changed
		lda	[<sup_drvr_ptr]	; are there any SIBs?
		bne	display_sibs	; yes
		clc
		rts
display_sibs
		lda	#4		; adjust cursor position
		jsr	set_ch2		
                lda     |sib_num
                jsr     display_int

		lda	#4		; adjust cursor position
		jsr	set_ch3
		ldy	#$0002		; supervisor entry pointer
                lda	[<sib_ptr],y
		pha
                lda	[<sib_ptr]
		ply
                jsr     display_long

		lda	#5		; adjust cursor position
		jsr	set_ch1		
                lda	<sib_ptr
                ldy	<sib_ptr+2
                jsr     display_long

		lda	#5		; adjust cursor position
		jsr	set_ch4		
		ldy	#$0004		; supervisor ID
                lda	[<sib_ptr],y
                jsr     display_int

		lda	#6		; adjust cursor position
		jsr	set_ch1		
                lda	<sup_parm_ptr
                ldy	<sup_parm_ptr+2
                jsr     display_long

		lda	#6		; adjust cursor position
		jsr	set_ch4		
		ldy	#$0006		; supervisor version
                lda	[<sib_ptr],y
                jsr     display_int

		lda	#7		; adjust cursor position
		jsr	set_ch1
		ldy	#2		
                lda	[<sup_drvr_ptr],y
		tay
		lda	[<sup_drvr_ptr]
                jsr     display_long
		
		lda	#7		; adjust cursor position
		jsr	set_ch3		

		ldx	#0
		ldy	#$000A		; is there a supervisor name?
		lda	[<sib_ptr],y
		dey
		dey
		ora	[<sib_ptr],y
		bne	copy_sib_name	; yes
		
		lda	#$A0A0			; name is '  '
null_name_loop
		sta	|cda_mem,x
		inx
		inx
		cpx	#20
		bne	null_name_loop
		bra	display_sib_name

copy_sib_name
		pei	temp			; preserve GS/OS direct page
		pei	temp+2
		lda	[<sib_ptr],y		; install temporary pointer to name
		sta	<temp
		iny
		iny
		lda	[<sib_ptr],y
		sta	<temp+2
		ldy	#$0001
sib_name_loop
		lda	[<temp],y		; copy SIB name for display
		sta	|cda_mem,x
		iny
		iny
		inx
		inx
		cpx	#16
		bne	sib_name_loop
		pla				; restore GS/OS direct page
		sta	<temp+2
		pla
		sta	<temp

display_sib_name
		lda     #$000F		; characters to display
                jsr	writeblock
		
		lda	#8		; adjust cursor position
		jsr	set_ch1		
                lda	<sup_drvr_ptr
                ldy	<sup_drvr_ptr+2
                jsr     display_long

		lda	#8		; adjust cursor position
		jsr	set_ch4		
		ldy	#$000C
                lda	[<sib_ptr],y
                jsr     display_int

		lda	#9		; adjust cursor position
		jsr	set_ch4		
		ldy	#$000E
                lda	[<sib_ptr],y
                jsr     display_int

		clc
		rts

		eject
*****************************************************************
*
* This routine displays the current volume control record.
*
* ENTRY: Call via 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
display_vcr_pg
		longa	on
		longi	on
		
		cmp	#$0015			; was key a right arrow?
		beq	p5_arrow		; yes
		
		cmp	#$0008			; was key a left arrow?
		beq	p5_arrow		; yes
				
		cmp	#$000A			; is it an down arrow?
		bne	not_p5_down		; no

		lda	|current_vcr		; are we already at the beginning?
		dec	a
		beq	p5_exit			; yes, just ignore the keypress
		dec	|current_vcr		; else step to previous vcr
		bra	p5_do_it2

not_p5_down	cmp	#$000B			; is it an up arrow?
		beq	p5_do_it
		
not_p5_up	cmp	#$0009			; is it a tab?
		bne	p5_exit			; no
		
		lda	#$0015			; act like it is a right arrow
		jsr	display_as_fst		; else display AppleShare FST stuff
wait_tab
		jsr	wait_key		; tab to return
		cmp	#$0009
		bne	wait_tab
		bra	p5_arrow		; back to this screen

p5_do_it
		inc	|current_vcr		; point at next VCR
p5_do_it2
		lda	|current_vcr
		jsl	get_vcr			; get virtual pointer to the vcr
		stx	<vcr_ptr
		sty	<vcr_ptr+2
		bcc	p5_half_home		; if vcr exists
invalid_ptr
		lda	#$0001			; else reset to 1st vcr (looped scrolling)
		sta	|current_vcr
		jsl	get_vcr			; get virtual pointer to the vcr
		stx	<vcr_ptr
		sty	<vcr_ptr+2
		bcc	p5_half_home		; if no vcr exists		

p5_exit		clc
		rts
		
p5_arrow
		jsr	home			; clear screen
		jsr	wait_vbl		; wait for vertical blanking time
                pea     cda_page5>>16		; Display CDA options
                pea     cda_page5
                jsr     writecstring
		lda	<vcr_ptr		; check pointer on direct page
		ora	<vcr_ptr+2
		beq	invalid_ptr		; if null, just start with first VCR
		bra	p5_continue
		
p5_half_home	lda	#6			; clear volume name
		sta	|cv
		lda	#12
		sta	|ch
		ldy	#16
p5_home_loop1	lda	#$00A0			; ascii ' '
		jsr	writechar
		dey
		bne	p5_home_loop1

		lda	#12			; clear fst specific area
		sta	|cv
		stz	|ch
clr_to_eol	lda	#$00A0			; ascii ' '
		jsr	writechar
		lda	|ch			; at end of line yet?
		bne	clr_to_eol
		lda	|cv			; at end of page yet
		bne	clr_to_eol
		
p5_continue	lda	#3			; display VCR pointer
		ldx	<vcr_ptr
		ldy	<vcr_ptr+2
		jsr	display_vp
		
		lda	|deref_vp+2		; space for vcr pointer
		pha
		lda	|deref_vp
		pha
		ora	|deref_vp+2		; null VP?
		bne	@valid_vp
		brl	null_vp			; yup, don't bother displaying anything
@valid_vp
		phd				; turn stack into zp
		tsc
		tcd

		lda	#5			; adjust cursor position
		jsr	set_ch4		
                ldy	#vcr_id			; display vcr ID
		lda	[<$03],y
                jsr     display_int

		ldy	#vcr_name+2		; display VCR name vp
		lda	[<$03],y
		pha
		dey
		dey
		lda	[<$03],y
		ply				; vp (in x & a reg) for derefence
		tax
		lda	#6
		jsr	display_vp
		
		lda	#12			; cursor position for vcr name string
		sta	|ch
		lda	#6
		sta	|cv
		lda	|deref_vp+2		; turn stack into zp for [<dp],y mode
		pha
		lda	|deref_vp
		pha
		phd
		tsc
		tcd
		
		lda	[<$03]			; get volume name length
		beq	truncate_vcr
		tax
		cpx	#17			; is name to long?
		blt	vcr_name_len_ok		; no
truncate_vcr
		ldx	#16			; truncate the name
vcr_name_len_ok
		ldy	#2			; point at last character in vcr name
		
do_vcr_name
		lda	[<$03],y
		and	#$007F
		cmp	#$000D
		bne	no_vcr_cr
		lda	#'@'
no_vcr_cr
		jsr	writechar
		iny
		dex
		bne	do_vcr_name
		
		pld				; restore stack & zp
		pla
		pla
		
		lda	#7			; adjust cursor position
		jsr	set_ch4		
                ldy	#vcr_status		; display vcr status
		lda	[<$03],y
                jsr     display_int

		lda	#8			; adjust cursor position
		jsr	set_ch4		
                ldy	#vcr_open_cnt		; display vcr open file count
		lda	[<$03],y
                jsr     display_int

                ldy	#vcr_fst_id		; display FST ID 
		lda	[<$03],y
		ldx	#9			; adjust cursor position
                jsr     display_fst_id
		
		lda	#10			; adjust cursor position
		jsr	set_ch4
		ldy	#vcr_dev
		lda	[<$03],y
                jsr     display_int

		pld

		jsr	display_fst_vcr		; display FST specific vcr

null_vp
		pla
		pla
		clc
		rts
		
		eject
*****************************************************************
*
* This routine displays the current file control record.
*
* ENTRY: Call via 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
display_fcr_pg
		longa	on
		longi	on
		
		cmp	#$0015			; was key a right arrow?
		beq	p6_arrow		; yes
		
		cmp	#$0008			; was key a left arrow?
		beq	p6_arrow		; yes

		cmp	#$000A			; is it an down arrow?
		bne	not_p6_down		; no
		
		lda	|current_fcr		; are we already at the beginning?
		dec	a
		beq	p6_exit			; yes, just ignore the keypress

		dec	|current_fcr		; point at previous fcr
		bne	get_fcr_vp		; if refnum might be legal
		
not_p6_down	cmp	#$000B			; is it an up arrow?
		bne	p6_exit			; no

		inc	|current_fcr		; point at next fcr
		
get_fcr_vp	lda	|current_fcr
		jsl	get_fcr			; get virtual pointer to the fcr
		stx	<fcr_ptr
		sty	<fcr_ptr+2
		bcc	p6_half_home		; if fcr exists
		lda	#$0001			; else reset to 1st fcr (looped scrolling)
		sta	|current_fcr
		jsl	get_fcr			; get virtual pointer to the fcr
		stx	<fcr_ptr
		sty	<fcr_ptr+2
		bcc	p6_half_home		; if no fcr exists		

p6_exit		clc
		rts
		
p6_arrow
		jsr	home			; clear screen
		jsr	wait_vbl		; wait for vertical blanking time
                pea     cda_page6>>16		; Display CDA options
                pea     cda_page6
                jsr     writecstring
		lda	#1			; setup for fcr scrolling
		sta	|current_fcr
		lda	<fcr_ptr		; null pointer?
		ora	<fcr_ptr+2
		beq	get_fcr_vp		; yes, just start with the first VCR
		bra	p6_continue
		
p6_half_home	lda	#6			; clear volume name
		sta	|cv
		lda	#12
		sta	|ch
		ldy	#50
p6_home_loop1	lda	#$00A0			; ascii ' '
		jsr	writechar
		dey
		bne	p6_home_loop1

		lda	#15			; clear fst specific area
		sta	|cv
		stz	|ch
clear_to_eol	lda	#$00A0			; ascii ' '
		jsr	writechar
		lda	|ch			; at end of line yet?
		bne	clear_to_eol
		lda	|cv			; at end of page yet
		bne	clear_to_eol
		
p6_continue	ldx	<fcr_ptr		; display FCR pointer
		ldy	<fcr_ptr+2
		lda	#2
		jsr	display_vp

		lda	|deref_vp+2		; NULL pointer returned?
		ora	|deref_vp
		beq	get_fcr_vp		; yes, just start over

		lda	|deref_vp+2		; space for vcr pointer
		pha
		lda	|deref_vp
		pha
		phd				; turn stack into zp
		tsc
		tcd
		
		lda	#4			; line number
		jsr	set_ch4		
                ldy	#fcr_ref_num
		lda	[<$03],y
                jsr     display_int

		ldy	#fcr_path_name+2
		lda	[<$03],y
		pha
		dey
		dey
		lda	[<$03],y
		ply
		tax
		lda	#5			; line number
                jsr     display_vp

		lda	#11			; cursor position for vcr name string
		sta	|ch
		lda	#6
		sta	|cv
		lda	|deref_vp+2		; turn stack into zp for [<dp],y mode
		pha
		lda	|deref_vp
		pha
		phd
		tsc
		tcd

		lda	[<$03]			; get file name length
		beq	truncate_fcr
		tax
		cpx	#51			; is name to long?
		blt	fcr_name_len_ok		; no
truncate_fcr
		ldx	#50			; truncate the name
fcr_name_len_ok
		ldy	#2			; point at last character in fcr name
		
do_fcr_name
		lda	[<$03],y		; display the file name path
		and	#$007F
		cmp	#$000D
		bne	no_fcr_cr
		lda	#'@'
no_fcr_cr
		jsr	writechar
		iny
		dex
		bne	do_fcr_name
		
		pld				; restore stack & zp
		pla
		pla
		
		ldx	#7		; adjust cursor position
                ldy	#fcr_fst_id	; display FST ID
		lda	[<$03],y
		jsr	display_fst_id
		
		lda	#8		; adjust cursor position
		jsr	set_ch4		
                ldy	#fcr_vol_id
		lda	[<$03],y
                jsr     display_int

		lda	#9		; adjust cursor position
		jsr	set_ch4		
                ldy	#fcr_level
		lda	[<$03],y
                jsr     display_int

		lda	#10		; adjust cursor position
		jsr	set_ch3
		ldy	#fcr_newline+2
		lda	[<$03],y
		pha
		dey
		dey
		lda	[<$03],y
		ply
                jsr     display_long

		lda	#11		; adjust cursor position
		jsr	set_ch4
		ldy	#fcr_newline_len
		lda	[<$03],y
                jsr     display_int

		lda	#12		; adjust cursor position
		jsr	set_ch4
		ldy	#fcr_mask
		lda	[<$03],y
                jsr     display_int

		lda	#13		; adjust cursor position
		jsr	set_ch4
		ldy	#fcr_access
		lda	[<$03],y
                jsr     display_int

		pld

		jsr	display_fst_fcr		; display FST specific fcr
		
		pla
		pla
		clc
		rts
						
		eject
*****************************************************************
*
* This routine displays the current cache block header.
*
* ENTRY: Call via 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
display_cmi_pg
		longa	on
		longi	on
		
		cmp	#$0015			; was key a right arrow?
		beq	p7_arrow		; yes
		
		cmp	#$0008			; was key a left arrow?
		beq	p7_arrow		; yes

		cmp	#$000A			; is it an down arrow?
		beq	p7_scroll_dn		; yes

		cmp	#$000B			; is it an up arrow?
		beq	p7_scroll_up		; no
p7_end_scroll
		clc
		rts
		
p7_scroll_up
		ldy	#c_lru_fwd+2		; get cache forward vp
		lda	[<cache_cur_ptr]
		tax
		lda	[<cache_cur_ptr],y
		tay
		jsr	deref_my_vp		; dereference forward vp
		bcs	p7_end_scroll
		stx	<cache_cur_ptr
		sty	<cache_cur_ptr+2
		jsr	wait_vbl		; wait for vertical blanking time
		bra	p7_continue

p7_scroll_dn
		ldy	#c_lru_bwd		; get cache backward vp
		lda	[<cache_cur_ptr],y
		tax
		iny
		iny
		lda	[<cache_cur_ptr],y
		tay
		jsr	deref_my_vp		; dereference forward vp
		stx	<cache_cur_ptr
		sty	<cache_cur_ptr+2
		jsr	wait_vbl		; wait for vertical blanking time
		bcs	p7_end_scroll
		bra	p7_continue

p7_arrow
		jsr	home		; clear screen
		jsr	wait_vbl		; wait for vertical blanking time
                pea     cda_page7>>16		; Display CDA options
                pea     cda_page7
                jsr     writecstring

p7_continue
		ldy	#c_lru_fwd+2		; display cache forward vp
		lda	[<cache_cur_ptr]
		tax
		lda	[<cache_cur_ptr],y
		tay
		lda	#3
                jsr     display_vp

		ldy	#c_lru_bwd		; display cache backward vp
		lda	[<cache_cur_ptr],y
		tax
		iny
		iny
		lda	[<cache_cur_ptr],y
		tay
		lda	#4
                jsr     display_vp

		ldy	#c_bkt_fwd		; display cache forward bucket vp
		lda	[<cache_cur_ptr],y
		tax
		iny
		iny
		lda	[<cache_cur_ptr],y
		tay
		lda	#5
                jsr     display_vp

		ldy	#c_bkt_bwd		; display cache backward bucket vp
		lda	[<cache_cur_ptr],y
		tax
		iny
		iny
		lda	[<cache_cur_ptr],y
		tay
		lda	#6
                jsr     display_vp
		
		lda	#7			; display cache block number
		jsr	set_ch3
		ldy	#c_blknum+2
		lda	[<cache_cur_ptr],y
		pha
		dey
		dey
		lda	[<cache_cur_ptr],y
		ply
		jsr	display_long

		lda	#8			; display cache block size
		jsr	set_ch4
		ldy	#c_blksize
		lda	[<cache_cur_ptr],y
		jsr	display_int

		ldx	#9			; display cache fst number
		ldy	#c_fstnum
		lda	[<cache_cur_ptr],y
		jsr	display_fst_id

		lda	#10			; display cache volume ID number
		jsr	set_ch4
		ldy	#c_volumeid
		lda	[<cache_cur_ptr],y
		jsr	display_int

		lda	#11			; display cache device number
		jsr	set_ch4
		ldy	#c_devnum
		lda	[<cache_cur_ptr],y
		jsr	display_int

		lda	#12			; display cache priority
		jsr	set_ch4
		ldy	#c_priority
		lda	[<cache_cur_ptr],y
		jsr	display_int

		lda	#13			; display cache cell size
		jsr	set_ch4
		ldy	#c_cellsize
		lda	[<cache_cur_ptr],y
		jsr	display_int

		lda	#14			; display cache RESERVED
		jsr	set_ch3
		ldy	#c_reserved+2
		lda	[<cache_cur_ptr],y
		pha
		dey
		dey
		lda	[<cache_cur_ptr],y
		ply
		jsr	display_long

		lda	#15			; display cache header length
		jsr	set_ch3
		ldy	#c_headerlen+2
		lda	[<cache_cur_ptr],y
		pha
		dey
		dey
		lda	[<cache_cur_ptr],y
		ply
		jsr	display_long

		clc
		rts
						
		eject
*****************************************************************
*
* This routine displays the Express Load information.
*
* ENTRY: Call via 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
display_express
		longa	on
		longi	on
		
		cmp	#$0015			; was key a right arrow?
		beq	express_arrow		; yes
		
		cmp	#$0008			; was key a left arrow?
		beq	express_arrow		; yes

		cmp	#$000A			; is it an down arrow?
		bne	not_express_dn		; no
		
		dec	|current_express	; point at previous express entry
		bne	get_express		; if refnum might be legal
		inc	|current_express
		bra	get_express
		
not_express_dn	
		cmp	#$000B			; is it an up arrow?
		bne	express_exit		; no

		inc	|current_express	; point at next express entry
		lda	|current_express
		cmp	|max_express
		blt	get_express
		lda	#$0001
		sta	|current_express
		
get_express	
		pei	<temp+2
		pei	<temp
		
		ldx	express_hndl		; get express handle
		ldy	express_hndl+2
		jsr	deref_handle		; get pointer
		stx	<temp
		sty	<temp+2
		
		lda	|current_express	; get pointer to entry #
		asl	a
		asl	a
		asl	a
		asl	a
		sta	|express_index
		bra	exp_half_home		; if no fcr exists		

express_exit	clc
		rts
		
express_arrow
		pei	temp+2
		pei	temp
		
		jsr	home			; clear screen
		jsr	wait_vbl		; wait for vertical blanking time
                pea     express_page>>16	; Display CDA options
                pea     express_page
                jsr     writecstring
		
		lda	#1			; setup for fcr scrolling
		sta	|current_express
		lda	#128			; artificial maximum (I cant tell how many)
		sta	|max_express
		
		pha				; space for result
		pha
		ldx	#$1E11			; private loader call to get globals address
		jsl	$E10000
		pla
		sta	<temp
		pla
		sta	<temp+2
		ldy	#$0006			; offset to direct page pointer
		lda	[<temp],y
		sta	<temp			; set up pointer
		stz	<temp+2
		ldy	#$0078			; offset within direct page of user_id_ptr
		lda	[<temp],y
		sta	express_hndl
		iny
		iny
		lda	[<temp],y
		sta	express_hndl+2

		ldx	express_hndl		; get express handle
		ldy	express_hndl+2
		jsr	deref_handle		; get pointer
		stx	<temp
		sty	<temp+2
		
		lda	|current_express	; get pointer to entry #
		asl	a			; index = entry * 16
		asl	a
		asl	a
		asl	a
		sta	|express_index
		bra	express_1
		
exp_half_home	
		lda	#14			; clear filename name
		sta	|cv
		lda	#1
		sta	|ch
		ldy	#75
exp_home_loop1	
		lda	#' '			; ascii ' '
		jsr	writechar
		dey
		bne	exp_home_loop1

express_1	
		ldx	express_hndl		; display express handle
		ldy	express_hndl+2
		lda	#3
		jsr	display_handle
		
		lda	#4			; display express entry number
		jsr	set_ch4
		lda	|current_express
		jsr	display_int
		
		lda	#6			; display express segment user ID
		jsr	set_ch4
		ldy	|express_index
		lda	[<temp],y
		sta	|express_user_id
		jsr	do_temp_int
		
		clc				; display express segment handle
		lda	#$0002
		adc	|express_index
		tay
		lda	[<temp],y
		pha
		iny
		iny
		lda	[<temp],y
		tay
		plx
		lda	#7
		jsr	display_handle

		lda	#8			; display express segment stack address
		jsr	set_ch4
		clc
		lda	#$0006
		adc	|express_index
		tay
		jsr	do_temp_int

		lda	#9			; display express segment stack size
		jsr	set_ch4
		clc
		lda	#$0008
		adc	|express_index
		tay
		jsr	do_temp_int

		lda	#10			; display express segment starting address
		jsr	set_ch3
		clc
		lda	#$000A
		adc	|express_index
		tay
		jsr	do_temp_long

		lda	#11			; display express segment reserved
		jsr	set_ch4
		clc
		lda	#$000E
		adc	|express_index
		tay
		jsr	do_temp_int
		
		lda	|express_user_id	; user ID for express segment entry
		bne	@good_userid
		stz	<temp			; else assume null pathname pointer
		stz	<temp+2
		bra	@fake_it
@good_userid
		pea	$0000			; space for result pointer
		pea	$0000
		pha
		pea	$0001			; express segment always file number $0001
		ldx	#$1111			; GetPathname
		jsl	tool_locator
		
		pla
		sta	<temp
		pla
		sta	<temp+2
@fake_it
		lda	#12			; display filename pointer
		jsr	set_ch3
		lda	<temp
		ldy	<temp+2
		jsr	display_long
		
		lda	<temp			; NULL pathname pointer?
		ora	<temp+2
		beq	exp_done		; yes, just skip the name display

		lda	#14			; display filename
		sta	|cv
		stz	|ch
		lda	[<temp]			; any characters to output?
		and	#$00FF
		sta	|exp_name_len
		beq	exp_done		; no
		ldy	#1			; point at 1st character
exp_name_loop
		lda	[<temp],y
		and	#$007F
		cmp	#$000D
		bne	not_exp_cr
		lda	#'@'
not_exp_cr
		jsr	writechar
		cpy	|exp_name_len
		beq	exp_done
		iny
		bra	exp_name_loop
exp_done
		pla
		sta	<temp
		pla
		sta	<temp+2
		
		clc
		rts
					
express_hndl	dc.l	0
current_express	dc.w	0
max_express	dc.w	0
express_user_id	dc.w	0
exp_name_len	dc.w	0
express_index	dc.w	0

		eject
*****************************************************************
*
* This routine displays the device dispatcher file list information.
* The structure of the filename list is as follows:
*			 _________________
*	BASE		|_               _|   Filename entry #1
*			|_               _|
*			|_               _|
*			|_________________|
*				 ¥
*				 ¥
*				 ¥
*			 _________________
*	BASE+(n*48)	|_               _|   Filename entry #n
*			|_               _|
*			|_               _|
*			|_________________|
*
* The structure of each filename entry is a 48 byte structure as follows:
*
*			 _________________
*	BASE=0		|_               _|   FileType of filename entry
*			|_________________|
*	BASE+2		|_               _|   AuxType of filename entry
*			|_________________|
*	BASE+4		|_               _|   User ID of filename entry
*			|_________________|
*	BASE+6		|_               _|   Load Address of filename entry
*			|_               _|
*			|_               _|
*			|_________________|
*	BASE+10		|_               _|   32 byte filename
*			|	          |
*				 ¥
*				 ¥
*				 ¥
*			|_               _|
*			|_________________|
*	BASE+42		|_               _|   Restart Flag of filename entry
*			|_________________|
*	BASE+44		|_               _|   Base device number of filename entry
*			|_________________|
*	BASE+46		|_               _|   RESERVED for filename entry
*			|_________________|
*
* ENTRY: Call via 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
display_file_list
		longa	on
		longi	on
		
		cmp	#$0015			; was key a right arrow?
		beq	file_arrow		; yes
		
		cmp	#$0008			; was key a left arrow?
		beq	file_arrow		; yes

		cmp	#$000A			; is it an down arrow?
		bne	not_file_dn		; no
		
		dec	|current_file		; point at previous express entry
		bne	get_file		; if refnum might be legal
		lda	|max_file		; else wrap around to end of list
		dec	a
		sta	|current_file
		bra	get_file
		
not_file_dn	
		cmp	#$000B			; is it an up arrow?
		bne	file_exit		; no

		inc	|current_file		; point at next express entry
		lda	|current_file
		cmp	|max_file
		blt	get_file
		lda	#$0001
		sta	|current_file
		
get_file	
		pei	<temp+2
		pei	<temp
		
		jsr	calc_file_index		; get pointer to entry #
		bra	file_half_home		; if no fcr exists		

file_exit	clc
		rts
		
file_arrow
		pei	temp+2
		pei	temp
		
		jsr	home			; clear screen
		jsr	wait_vbl		; wait for vertical blanking time
                pea     file_list_page>>16	; Display CDA options
                pea     file_list_page
                jsr     writecstring
		
		phb
		lda	>file_list_hndl		; dereference file list handle
		tax
		lda	>file_list_hndl+1
		pha
		plb
		plb
		lda	|0,x			; and set file list pointer
		sta	<file_list_ptr
		lda	|2,x
		sta	<file_list_ptr+2
		plb
		
		lda	>file_list_cnt		; get # of entries in list
		inc	a			; bump for ease of comparisons
		sta	|max_file
		jsr	calc_file_index		; get pointer to entry #
		bra	file_1
		
file_half_home	
		lda	#11			; clear filename name
		sta	|cv
		lda	#12
		sta	|ch
		ldy	#32
file_home_loop1	
		lda	#' '			; ascii ' '
		jsr	writechar
		dey
		bne	file_home_loop1

file_1
		lda	#3			; display dispatcher file list pointer
		jsr	set_ch3
		lda	<file_list_ptr
		tax
		lda	<file_list_ptr+2
		tay
		txa
		jsr	display_long
		
		lda	#4			; display current entry number
		jsr	set_ch4
		lda	|current_file
		jsr	display_int
		
		lda	#5			; display current entry
		jsr	set_ch3
		clc
		lda	<file_entry_ptr
		ldy	<file_entry_ptr+2
		jsr	display_long
		
		lda	<file_entry_ptr		; set pointer to file entry
		sta	<temp
		lda	<file_entry_ptr+2
		sta	<temp+2
		
		lda	#7			; display file filetype
		jsr	set_ch4
		ldy	#file_filetype
		jsr	do_temp_int
		
		lda	#8			; display file auxtype
		jsr	set_ch4
		ldy	#file_auxtype
		jsr	do_temp_int
		
		lda	#9			; display file User ID
		jsr	set_ch4
		ldy	#file_user_id
		jsr	do_temp_int

		lda	#10			; display file load address
		jsr	set_ch3
		ldy	#file_load_addr
		jsr	do_temp_long
		
		lda	#11			; display driver file name
		sta	|cv
		lda	#12
		sta	|ch
		ldy	#file_name
		lda	[<temp],y		; any characters to output?
		and	#$001F
		beq	file_name_done		; no
		
		clc				; else calculate end of line index
		adc	#file_name+1
		sta	|file_name_len
		iny				; point at 1st character
		iny
file_name_loop
		lda	[<temp],y
		and	#$007F
		cmp	#$000D			; is it a cr/lf?
		bne	not_file_cr		; no
		lda	'@'
not_file_cr
		jsr	writechar
		cpy	|file_name_len
		beq	file_name_done
		iny
		bra	file_name_loop
file_name_done
		lda	#12			; display driver file restart_flag
		jsr	set_ch4
		ldy	#file_restart
		jsr	do_temp_int

		lda	#13			; display driver base device number
		jsr	set_ch4
		ldy	#file_dev_num
		jsr	do_temp_int

file_done
		pla
		sta	<temp
		pla
		sta	<temp+2
		
		clc
		rts
					
current_file	dc.w	1
max_file	dc.w	255
file_userid	dc.w	0
file_name_len	dc.w	0
file_index	dc.w	0

calc_file_index
		lda	|current_file		; need current file number
		dec	a
		and	#$000F
		asl	a
		tax
		lda	|file_list_tbl,x
		sta	|file_index
		lda	|current_file
		dec	a
		and	#$00F0
		lsr	a
		lsr	a
		lsr	a
		tax
		lda	|file_list_tbl,x
		asl	a
		asl	a
		asl	a
		asl	a
		adc	|file_index
		sta	|file_index
		
		clc
		adc	<file_list_ptr
		sta	<file_entry_ptr
		lda	#0
		adc	<file_list_ptr+2
		sta	<file_entry_ptr+2
		rts

file_list_tbl	dc.w	$0000			; entry # 1 index
		dc.w	$0030			; entry # 2 index
		dc.w	$0060			; entry # 3 index
		dc.w	$0090			; entry # 4 index
		dc.w	$00C0			; entry # 5 index
		dc.w	$00F0			; entry # 6 index
		dc.w	$0120			; entry # 7 index
		dc.w	$0150			; entry # 8 index
		dc.w	$0180			; entry # 9 index
		dc.w	$01B0			; entry # 10 index
		dc.w	$01E0			; entry # 11 index
		dc.w	$0210			; entry # 12 index
		dc.w	$0240			; entry # 13 index
		dc.w	$0270			; entry # 14 index
		dc.w	$02A0			; entry # 15 index
		dc.w	$02D0			; entry # 16 index
		
		eject
*****************************************************************
*
* This routine displays the VBL interrupt queue.  The queue 
* head link address is located at $E100D8.
*
* ENTRY: Call via 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
display_vbl
		longa	on
		longi	on
		
		cmp	#$0015			; was key a right arrow?
		beq	vbl_arrow		; yes
		
		cmp	#$0008			; was key a left arrow?
		beq	vbl_arrow		; yes

		cmp	#$000A			; is it an down arrow?
		beq	vbl_head		; yes
		
		cmp	#$000B			; is it an up arrow?
		beq	vbl_2			; yes
		
		cmp	#' '			; is it an ' '?
		bne	vbl_exit		; no
		
		pei	temp+2			; need long for pointer on gsos direct page
		pei	temp
		
		lda	|vbl_ptr		; set indirect pointer to vbl queue
		sta	<temp
		lda	|vbl_ptr+2
		sta	<temp+2
		bra	vbl_1
		
vbl_exit	clc
		rts
		
vbl_arrow
		jsr	home			; clear screen
		jsr	wait_vbl		; wait for vertical blanking time
                pea     vbl_page>>16		; Display CDA options
                pea     vbl_page
                jsr     writecstring
vbl_head
		lda	#<vbl_head_ptr		; get vbl head link pointer
		sta	|vbl_ptr
		lda	#vbl_head_ptr>>16
		sta	|vbl_ptr+2
vbl_2
		pei	temp+2			; need long for pointer on gsos direct page
		pei	temp
		
		lda	|vbl_ptr		; set indirect pointer to vbl queue
		sta	<temp
		lda	|vbl_ptr+2
		sta	<temp+2
		
		ldy	#$0002			; point at next queue entry
		lda	[<temp]
		tax
		ora	[<temp],y
		beq	vbl_1			; if queue entry is zero, then no more entries
		lda	[<temp],y
		stx	<temp
		sta	<temp+2
		
		stx	|vbl_ptr
		sta	|vbl_ptr+2
vbl_1
		lda	#3			; display current task header address
		jsr	set_ch3
		lda	<temp
		ldy	<temp+2
		jsr	display_long
		
		lda	#4			; display link address
		jsr	set_ch3
		ldy	#$0000
		jsr	do_temp_long
		
		lda	#5			; display task count
		jsr	set_ch4
		ldy	#4
		jsr	do_temp_int
		
		lda	#6			; display signature
		jsr	set_ch4
		ldy	#6
		jsr	do_temp_int
		
		lda	#7			; display task address
		jsr	set_ch3
		clc
		lda	<temp
		adc	#8
		tax
		lda	<temp+2
		adc	#0
		tay
		txa
		jsr	display_long
		
		pla
		sta	<temp
		pla
		sta	<temp+2
		
		clc
		rts
					
vbl_ptr		dc.l	0

		eject
*****************************************************************
*
* This routine switches the system to text mode and calls the
* CDA as the result of a system death error.
*
* ENTRY: Call via 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
death_trap
		longa	on
		longi	on

		cmp	#$0015			; was key a right arrow?
		beq	death_prompt		; yes
		
		cmp	#$0008			; was key a left arrow?
		beq	death_prompt		; yes

		cmp	#$000A			; is it an down arrow?
		beq	remove_death		; yes
		
		cmp	#$000B			; is it an up arrow?
		beq	install_death		; yes
		clc
		rts
death_prompt
		jsr	home			; clear screen
		jsr	wait_vbl		; wait for vertical blanking time
                pea     death_page>>16		; Display page
                pea     death_page
                jsr     writecstring
		clc
		rts

remove_death
		lda	|to_old_trap+2		; has original trap address been preserved?
		beq	cant_remove		; no
		
		lda	|to_old_trap		; restore old system death trap
		sta	>system_death
		lda	|to_old_trap+2
		sta	>system_death+2
cant_remove
		jsr	wait_vbl		; wait for vertical blanking time
		lda	#5
		sta	|cv
		stz	|ch
                pea     death_page1>>16		; Display page
                pea     death_page1
                jsr     writecstring
		clc
		rts
		
install_death
		lda	|to_old_trap+2		; has original trap address been preserved?
		bne	have_old_trap		; yes
		
		lda	>system_death		; preserve old system death trap
		sta	|to_old_trap
		lda	>system_death+2
		sta	|to_old_trap+2
have_old_trap
		lda	|to_death_trap		; install system death trap
		sta	>system_death
		lda	|to_death_trap+2
		sta	>system_death+2
		
		jsr	wait_vbl		; wait for vertical blanking time
		lda	#5
		sta	|cv
		stz	|ch
                pea     death_page2>>16		; Display page
                pea     death_page2
                jsr     writecstring
		clc
		rts
		
to_death_trap
		jmp	>d_trap_entry
		
to_old_trap
		jmp	>$000000
		
*
* System Death Trap Entry:
*
*		{Word}		Error Code
*		{LongWord}	Pointer to ascii replacement string
*		{24 bit pc}	Return address to routine calling System Death
*	sp----->
*
d_trap_entry
		sei				; no interrupts for now (just making sure)
		
		sep	#$20			; 8 bit 'm' & 'x'
		longa	off
		longi	off
		
		lda	>newvideo		; turn off superhires
		and	#%01111111
		sta	>newvideo
		
		sta	>txtset			; turn on text mode
		
		rep	#$20			; 16 bit 'm' & 'x'
		longa	on
		longi	on
		
		pla				; clean up stack
		plb

		phk				; point at my data area
		plb
		
		pla				; replacement string pointer
		sta	|death_str
		pla
		sta	|death_str+2
		pla				; error code
		sta	|death_code
stuck
		lda	#page_cnt		; point at one past last display page
		sta	|vector_index
		jsl	da_start
		bra	stuck
		
display_death
		longa	on
		longi	on

		cmp	#$0015			; was key a right arrow?
		beq	death_error		; yes
		
		cmp	#$0008			; was key a left arrow?
		beq	death_error		; yes

		cmp	#$000A			; is it an down arrow?
		beq	death_error		; yes
		
		cmp	#$000B			; is it an up arrow?
		beq	death_error		; yes
		clc
		rts
death_error
		jsr	home			; clear screen
		jsr	wait_vbl		; wait for vertical blanking time
                pea     death_trap_pg>>16	; Display page
                pea     death_trap_pg
                jsr     writecstring
		
		lda	#2
		jsr	set_ch4
		lda	|death_code
		jsr	display_int
		
		lda	#3
		jsr	set_ch3
		lda	|death_str
		ldy	|death_str+2
		jsr	display_long
		
		clc
		rts

death_code	dc.w	0
death_str	dc.l	0

		eject
*****************************************************************
*
* This routine displays all the driver calls, status codes &
* control codes.
*
* ENTRY: Call via 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
display_driver
		longa	on
		longi	on
		
		cmp	#$0015		; was key a right arrow?
		beq	drvr_arrow	; yes
		
		cmp	#$0008		; was key a left arrow?
		beq	drvr_arrow	; yes
		clc
		rts
drvr_arrow	
		jsr	home		; clear screen
		jsr	wait_vbl	; wait for vertical blanking time
                pea     drvr_page>>16	; Display GS/OS driver calls
                pea     drvr_page
                jsr     writecstring

		clc
		rts
		
		eject
*****************************************************************
*
* This routine displays device characteristics bit encoding.
*
* ENTRY: Call via 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
display_dev_char
		longa	on
		longi	on
		
		cmp	#$0015			; was key a right arrow?
		beq	dev_char_arrow		; yes
		
		cmp	#$0008			; was key a left arrow?
		beq	dev_char_arrow		; yes
		clc
		rts
dev_char_arrow	
		jsr	home			; clear screen
		jsr	wait_vbl		; wait for vertical blanking time
                pea     dev_char_page>>16	; Display GS/OS driver characteristics
                pea     dev_char_page
                jsr     writecstring

		clc
		rts
		
		eject
*****************************************************************
*
* This routine displays supervisor characteristics bit encoding.
*
* ENTRY: Call via 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
display_sup_char
		longa	on
		longi	on
		
		cmp	#$0015			; was key a right arrow?
		beq	sup_char_arrow		; yes
		
		cmp	#$0008			; was key a left arrow?
		beq	sup_char_arrow		; yes
		clc
		rts
sup_char_arrow	
		jsr	home			; clear screen
		jsr	wait_vbl		; wait for vertical blanking time
                pea     sup_char_page>>16	; Display GS/OS supervisor characteristics
                pea     sup_char_page
                jsr     writecstring

		clc
		rts
		
		eject
*****************************************************************
*
* This routine displays memory attributes bit encoding.
*
* ENTRY: Call via 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
display_mem_attr
		longa	on
		longi	on
		
		cmp	#$0015			; was key a right arrow?
		beq	mem_attr_arrow		; yes
		
		cmp	#$0008			; was key a left arrow?
		beq	mem_attr_arrow		; yes
		clc
		rts
mem_attr_arrow	
		jsr	home			; clear screen
		jsr	wait_vbl		; wait for vertical blanking time
                pea     mem_attr_page>>16	; Display memory attributes word
                pea     mem_attr_page
                jsr     writecstring

		clc
		rts
		
		eject
*****************************************************************
*
* This routine displays the GS/OS memory map.
*
* ENTRY: Call via 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
display_mem_map
		longa	on
		longi	on
		
		cmp	#$0015			; was key a right arrow?
		beq	mem_map_arrow		; yes
		
		cmp	#$0008			; was key a left arrow?
		beq	mem_map_arrow		; yes
		
		cmp	#$000B			; was it an up arrow?
		bne	not_mem_up		; no
		
		inc	|map_page_index
		bra	mem_map_arrow
not_mem_up
		cmp	#$000A			; was key a down arrow?
		bne	not_mem_down		; no
		
		dec	|map_page_index
		bra	mem_map_arrow
not_mem_down
		clc
		rts
mem_map_arrow	
		jsr	home			; clear screen
		jsr	wait_vbl		; wait for vertical blanking time
		
		lda	|map_page_index
		ror	a
		bcs	do_mem_page2
		
                pea     mem_map_page>>16	; Display GS/OS memory map
                pea     mem_map_page
		bra	draw_page

do_mem_page2
                pea     mem_map_page2>>16	; Display GS/OS memory map
                pea     mem_map_page2
draw_page
                jsr     writecstring
		clc
		rts
		
map_page_index	dc.w	0			; indicates which map page to display
		
		eject
*****************************************************************
*
* This routine is for visiting the monitor.
*
* ENTRY: Call via 'JSR'
*               A Reg = Character from keyboard
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
goto_monitor
		longa	on
		longi	on
				
		cmp	#$0015			; was key a right arrow?
		beq	monitor_arrow		; yes
		
		cmp	#$0008			; was key a left arrow?
		beq	monitor_arrow		; yes
		clc
		rts
monitor_arrow		
		jsr	home			; clear screen
		jsr	wait_vbl		; wait for vertical blanking time
                pea     monitor_page>>16	; Display GS/OS user ID's
                pea     monitor_page
                jsr     writecstring

		clc
		rts
		
		eject
*****************************************************************
*
* This routine displays the SCSI manager direct page
*
* ENTRY: Call via 'JSR'
*               A Reg = Character from keyboard
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
display_scsi
		longa	on
		longi	on
				
		cmp	#$0015			; was key a right arrow?
		beq	scsi_arrow		; yes
		
		cmp	#$0008			; was key a left arrow?
		beq	scsi_arrow		; yes
		
		clc
		rts
		
scsi_arrow	
		stz	|sib_num		; point at 1st sib
		bra	check_sib_num
find_scsi_mgr
		jsr	set_sib_ptr		; point at current SIB
		ldy	#$0004			; is this the SCSI manager?
		lda	[<sib_ptr],y
		cmp	#$0002
		beq	found_scsi_mgr		; yes
check_sib_num
		inc	|sib_num		; next supervisor
		lda	|sib_num		; is this a valid supervisor entry?
		cmp	[<sup_drvr_ptr]
		blt	find_scsi_mgr
		beq	find_scsi_mgr
		brl	no_scsi_mgr
found_scsi_mgr
		jsr	home			; clear screen
		jsr	wait_vbl		; wait for vertical blanking time
                pea     scsi_page>>16		; Display SCSI Manager Display Page
                pea     scsi_page
                jsr     writecstring
		stz	|scsi_index

		pei	<temp
		pei	<temp+2
		
		ldy	#$0010			; get SCSI data structure pointer
		lda	[<sib_ptr],y
		sta	<temp
		sta	|scsi_mgr_dp
		iny
		iny
		lda	[<sib_ptr],y
		sta	<temp+2
		sta	|scsi_mgr_dp+2
		
		lda	#2			; location of SCSI manager dp
		jsr	set_ch3
		lda	<temp
		ldy	<temp+2
		jsr	display_long
		
		lda	#3			; number of SCSI cards
		jsr	set_ch4
		ldy	#$0046
		jsr	do_temp_int
		
		lda	#4			; number of device records
		jsr	set_ch4
		ldy	#$0048
		jsr	do_temp_int
		
		lda	#5			; I/O table pointer
		jsr	set_ch3
		ldy	#$0050
		jsr	do_temp_long
		
		lda	#6			; device record table pointer
		jsr	set_ch3
		ldy	#$0058
		jsr	do_temp_long
		
		lda	#7			; SCSI routine table
		jsr	set_ch3
		ldy	#$0072
		jsr	do_temp_long
		
		pla
		sta	<temp+2
		pla	
		sta	<temp
		
		clc
		rts
no_scsi_mgr
		jsr	home			; clear screen
		jsr	wait_vbl		; wait for vertical blanking time
                pea     no_scsi_page>>16	; Display I cant find it!!!
                pea     no_scsi_page
                jsr     writecstring

		clc
		rts
		
scsi_index	dc.w	0			; index into scsi data structure
scsi_page_num	dc.w	0			; which scsi page we are displaying
scsi_mgr_dp	dc.l	0			; SCSI Manager direct page location

		eject
*****************************************************************
*
* This routine displays I/O records maintained by the SCSI
* manager.
*
* ENTRY: Call via 'JSR'
*               A Reg = Character from keyboard
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
display_scsi_io
		longa	on
		longi	on
				
		cmp	#$0015			; was key a right arrow?
		beq	scsi_io_arrow1		; yes
		
		cmp	#$0008			; was key a left arrow?
		beq	scsi_io_arrow1		; yes
		
		cmp	#$000B			; was key a up arrow?
		beq	next_scsi_data1		; yes
		
		cmp	#$000A			; was key a down arrow?
		beq	prev_scsi_data1		; yes
		
		clc
		rts
		
scsi_io_arrow1	
		stz	|sib_num		; point at 1st sib
		bra	check_sib_num1
find_scsi_mgr1
		jsr	set_sib_ptr		; point at current SIB
		ldy	#$0004			; is this the SCSI manager?
		lda	[<sib_ptr],y
		cmp	#$0002
		beq	found_scsi_mgr1		; yes
check_sib_num1
		inc	|sib_num		; next supervisor
		lda	|sib_num		; is this a valid supervisor entry?
		cmp	[<sup_drvr_ptr]
		blt	find_scsi_mgr1
		beq	find_scsi_mgr1
		brl	no_scsi_mgr
found_scsi_mgr1
		pei	<temp
		pei	<temp+2
		
		ldy	#$0010			; get SCSI data structure pointer
		lda	[<sib_ptr],y
		sta	<temp
		sta	|scsi_mgr_dp
		iny
		iny
		lda	[<sib_ptr],y
		sta	<temp+2
		sta	|scsi_mgr_dp+2
		
		pla
		sta	<temp+2
		pla	
		sta	<temp

		jsr	home			; clear screen
		jsr	wait_vbl		; wait for vertical blanking time
                pea     scsi_page1>>16		; Display SCSI Manager Display Page
                pea     scsi_page1
                jsr     writecstring
		bra	do_scsi_data1
		
prev_scsi_data1
		lda	|cur_scsi_slot		; point at next data structure
		dec	a
		and	#$000F
		sta	|cur_scsi_slot
		jsr	wait_vbl
		bra	do_scsi_data1
		
next_scsi_data1
		lda	|cur_scsi_slot		; point at next data structure
		inc	a
		and	#$000F			; limit slot to 0 through 15
		sta	|cur_scsi_slot
		jsr	wait_vbl
do_scsi_data1
		pei	<temp
		pei	<temp+2
		
		lda	|scsi_mgr_dp		; point at scsi manager direct page
		sta	<temp
		lda	|scsi_mgr_dp+2
		sta	<temp+2
		
		ldy	#$0050			; point to I/O table address
		lda	[<temp],y
		tax
		iny
		iny
		lda	[<temp],y
		sta	<temp+2
		stx	<temp
		
		lda	|cur_scsi_slot		; point at current I/O record
		asl	a
		asl	a
		asl	a
		asl	a
		asl	a
		clc
		adc	<temp
		sta	<temp
		lda	#0
		adc	<temp+2
		sta	<temp+2
		
		lda	#2			; viewing slot n
		jsr	set_ch4
		lda	|cur_scsi_slot
		jsr	display_int
		
		lda	#4			; slot number
		jsr	set_ch4
		ldy	#0
		jsr	do_temp_int
		
		lda	#5			; hardware type
		jsr	set_ch4
		ldy	#2
		jsr	do_temp_int
		
		lda	#6			; 5380 base address
		jsr	set_ch3
		ldy	#4
		jsr	do_temp_long
		
		lda	#7			; DMA base address
		jsr	set_ch3
		ldy	#8
		jsr	do_temp_long
		
		lda	#8			; SCSI i/o record attributes
		jsr	set_ch4
		ldy	#$000C
		jsr	do_temp_int
		
		lda	#9			; initiator priority
		jsr	set_ch4
		ldy	#$000E
		jsr	do_temp_int
		
		lda	#11			; target 0 logicals
		jsr	set_ch2
		ldy	#$0010
		jsr	do_temp_int
		
		lda	#12			; target 1 logicals
		jsr	set_ch2
		ldy	#$0012
		jsr	do_temp_int
		
		lda	#13			; target 2 logicals
		jsr	set_ch2
		ldy	#$0014
		jsr	do_temp_int
		
		lda	#14			; target 3 logicals
		jsr	set_ch2
		ldy	#$0016
		jsr	do_temp_int
		
		lda	#11			; target 4 logicals
		jsr	set_ch4
		ldy	#$0018
		jsr	do_temp_int
		
		lda	#12			; target 5 logicals
		jsr	set_ch4
		ldy	#$001A
		jsr	do_temp_int
		
		lda	#13			; target 6 logicals
		jsr	set_ch4
		ldy	#$001C
		jsr	do_temp_int
		
		lda	#14			; target 7 logicals
		jsr	set_ch4
		ldy	#$001E
		jsr	do_temp_int
		
		pla
		sta	<temp+2
		pla	
		sta	<temp
		
		clc
		rts
		
cur_scsi_slot	dc.w	0			; slot of current I/O record
		
		eject
*****************************************************************
*
* This routine displays device records maintained by the SCSI
* manager.
*
* ENTRY: Call via 'JSR'
*               A Reg = Character from keyboard
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
display_scsi_dev
		longa	on
		longi	on
				
		cmp	#$0015			; was key a right arrow?
		beq	scsi_io_arrow2		; yes
		
		cmp	#$0008			; was key a left arrow?
		beq	scsi_io_arrow2		; yes
		
		cmp	#$000B			; was key a up arrow?
		beq	next_scsi_data2		; yes
		
		cmp	#$000A			; was key a down arrow?
		beq	prev_scsi_data2		; yes
		
		clc
		rts
		
scsi_io_arrow2	
		stz	|sib_num		; point at 1st sib
		bra	check_sib_num2
find_scsi_mgr2
		jsr	set_sib_ptr		; point at current SIB
		ldy	#$0004			; is this the SCSI manager?
		lda	[<sib_ptr],y
		cmp	#$0002
		beq	found_scsi_mgr2		; yes
check_sib_num2
		inc	|sib_num		; next supervisor
		lda	|sib_num		; is this a valid supervisor entry?
		cmp	[<sup_drvr_ptr]
		blt	find_scsi_mgr2
		beq	find_scsi_mgr2
		brl	no_scsi_mgr
found_scsi_mgr2
		pei	<temp
		pei	<temp+2
		
		ldy	#$0010			; get SCSI data structure pointer
		lda	[<sib_ptr],y
		sta	<temp
		sta	|scsi_mgr_dp
		iny
		iny
		lda	[<sib_ptr],y
		sta	<temp+2
		sta	|scsi_mgr_dp+2
		
		pla
		sta	<temp+2
		pla	
		sta	<temp

		jsr	home			; clear screen
		jsr	wait_vbl		; wait for vertical blanking time
                pea     scsi_page2>>16		; Display SCSI Manager Display Page
                pea     scsi_page2
                jsr     writecstring
		stz	|scsi_index
		bra	do_scsi_data2
		
prev_scsi_data2
		lda	|scsi_index
		beq	do_scsi_data2
		dec	|scsi_index		; point at next data structure
		jsr	wait_vbl
		bra	do_scsi_data2
		
next_scsi_data2
		inc	|scsi_index		; point at next data structure
		jsr	wait_vbl
do_scsi_data2
		pei	<temp
		pei	<temp+2
		
		lda	|scsi_mgr_dp		; point at scsi manager direct page
		sta	<temp
		lda	|scsi_mgr_dp+2
		sta	<temp+2
		
		ldy	#$0058			; point to device record table
		lda	[<temp],y
		tax
		iny
		iny
		lda	[<temp],y
		sta	<temp+2
		stx	<temp
		
		lda	|scsi_index		; point at current I/O record
		asl	a
		asl	a
		asl	a
		asl	a
		asl	a
		asl	a
		clc
		adc	<temp
		sta	<temp
		lda	#0
		adc	<temp+2
		sta	<temp+2
		
		lda	#2			; next device record
		jsr	set_ch3
		ldy	#0
		jsr	do_temp_long
		
		lda	#3			; parameter list pointer
		jsr	set_ch3
		ldy	#4
		jsr	do_temp_long
		
		lda	#4			; device ID
		jsr	set_ch4
		ldy	#8
		jsr	do_temp_int
		
		lda	#5			; device type
		jsr	set_ch4
		ldy	#$000A
		jsr	do_temp_int
		
		lda	#6			; scsi standard version
		jsr	set_ch4
		ldy	#$000C
		jsr	do_temp_int
		
		lda	#7			; flags
		jsr	set_ch4
		ldy	#$000E
		jsr	do_temp_int
		
		lda	#8			; sublogical unit
		jsr	set_ch4
		ldy	#$0010
		jsr	do_temp_int
		
		lda	#9			; logical unit
		jsr	set_ch4
		ldy	#$0012
		jsr	do_temp_int
		
		lda	#10			; target priority
		jsr	set_ch4
		ldy	#$0014
		jsr	do_temp_int
		
		lda	#11			; initiator priority
		jsr	set_ch4
		ldy	#$0016
		jsr	do_temp_int
		
		lda	#12			; slot number
		jsr	set_ch4
		ldy	#$0018
		jsr	do_temp_int
		
		lda	#13			; 5380 base address
		jsr	set_ch3
		ldy	#$001C
		jsr	do_temp_long
		
		lda	#14			; DMA base address
		jsr	set_ch3
		ldy	#$0020
		jsr	do_temp_long
		
		lda	#15			; time out
		jsr	set_ch3
		ldy	#$0022
		jsr	do_temp_long
		
		lda	#16			; completion vector
		jsr	set_ch3
		ldy	#$0026
		jsr	do_temp_long
		
		lda	#17			; command pointer
		jsr	set_ch3
		ldy	#$002A
		jsr	do_temp_long
		
		lda	#18			; data chaining offset
		jsr	set_ch3
		ldy	#$002E
		jsr	do_temp_long
		
		lda	#19			; data buffer pointer
		jsr	set_ch3
		ldy	#$0032
		jsr	do_temp_long
		
		lda	#20			; request byte count
		jsr	set_ch3
		ldy	#$0036
		jsr	do_temp_long
		
		pla
		sta	<temp+2
		pla	
		sta	<temp
		
		clc
		rts
		
		eject
*****************************************************************
*
* This routine displays internal data structures maintained
* by the SCSI Manager.  Note that the SCSI manager is supervisor
* type $0002.
*
* ENTRY: Call via 'JSR'
*               A Reg = Character from keyboard
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
display_scsi_int
		longa	on
		longi	on
				
		cmp	#$0015			; was key a right arrow?
		beq	scsi_io_arrow3		; yes
		
		cmp	#$0008			; was key a left arrow?
		beq	scsi_io_arrow3		; yes
		
		clc
		rts
		
scsi_io_arrow3	
		stz	|sib_num		; point at 1st sib
		bra	check_sib_num3
find_scsi_mgr3
		jsr	set_sib_ptr		; point at current SIB
		ldy	#$0004			; is this the SCSI manager?
		lda	[<sib_ptr],y
		cmp	#$0002
		beq	found_scsi_mgr3		; yes
check_sib_num3
		inc	|sib_num		; next supervisor
		lda	|sib_num		; is this a valid supervisor entry?
		cmp	[<sup_drvr_ptr]
		blt	find_scsi_mgr3
		beq	find_scsi_mgr3
		brl	no_scsi_mgr
found_scsi_mgr3
		pei	<temp
		pei	<temp+2
		
		lda	<sib_ptr		; get SCSI internal data structure pointer
		sta	|scsi_mgr_dp
		lda	<sib_ptr+2
		sta	|scsi_mgr_dp+2
		
		pla
		sta	<temp+2
		pla	
		sta	<temp

		jsr	home			; clear screen
		jsr	wait_vbl		; wait for vertical blanking time
                pea     scsi_page3>>16		; Display SCSI Manager Display Page
                pea     scsi_page3
                jsr     writecstring
		stz	|scsi_index

		pei	<temp
		pei	<temp+2
		
		lda	|scsi_mgr_dp		; point at scsi manager direct page
		sta	<temp
		lda	|scsi_mgr_dp+2
		sta	<temp+2
				
		lda	#2			; misc. tools user id
		jsr	set_ch4
		ldy	#$004D
		jsr	do_temp_int
		
		ldy	#$004F			; work area handle
		lda	[<temp],y
		tax
		iny
		iny
		lda	[<temp],y
		tay
		lda	#3
		jsr	display_handle
		
		ldy	#$0053			; driver/manager direct page handle
		lda	[<temp],y
		tax
		iny
		iny
		lda	[<temp],y
		tay
		lda	#4
		jsr	display_handle
		
		lda	#5			; manager direct page
		jsr	set_ch4
		ldy	#$0057
		lda	[<temp],y
		xba
		inc	a
		xba
		jsr	display_int
		
		lda	#6			; gs/os direct page
		jsr	set_ch4
		ldy	#$0059
		jsr	do_temp_int
		
		lda	#7			; manager driver number
		jsr	set_ch4
		ldy	#$005B
		jsr	do_temp_int
		
		lda	#8			; previous slot
		jsr	set_ch4
		ldy	#$0067
		jsr	do_temp_int
		
		lda	#9			; previous id
		jsr	set_ch4
		ldy	#$0069
		jsr	do_temp_int
		
		lda	#10			; previous device record pointer
		jsr	set_ch3
		ldy	#$006B
		jsr	do_temp_long
		
		lda	#11			; next most previous slot
		jsr	set_ch4
		ldy	#$006F
		jsr	do_temp_int
		
		lda	#12			; next most previous id
		jsr	set_ch4
		ldy	#$0071
		jsr	do_temp_int
		
		lda	#13			; next most previous device record pointer
		jsr	set_ch3
		ldy	#$0073
		jsr	do_temp_long
		
		lda	#14			; boot slot
		jsr	set_ch4
		ldy	#$009B
		jsr	do_temp_int
		
		lda	#15			; busy SDR count
		jsr	set_ch4
		ldy	#$009D
		jsr	do_temp_int
		
		pla
		sta	<temp+2
		pla	
		sta	<temp
		
		clc
		rts
		
		eject
*****************************************************************
*
* This routine is for visiting the monitor.
*
* ENTRY: Call via 'JSR'
*               A Reg = Character from keyboard
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
display_dev_id
		longa	on
		longi	on
				
		cmp	#$0015			; was key a right arrow?
		beq	d_id_arrow		; yes
		
		cmp	#$0008			; was key a left arrow?
		beq	d_id_arrow		; yes
		clc
		rts
d_id_arrow		
		jsr	home			; clear screen
		jsr	wait_vbl		; wait for vertical blanking time
                pea     device_id_page>>16	; Display GS/OS user ID's
                pea     device_id_page
                jsr     writecstring

		clc
		rts
		
		eject
*****************************************************************
*
* This routine displays the device status word for both
* block and character devices.
*
* ENTRY: Call via 'JSR'
*               A Reg = Character from keyboard
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
display_stat
		longa	on
		longi	on
				
		cmp	#$0015			; was key a right arrow?
		beq	d_stat_arrow		; yes
		
		cmp	#$0008			; was key a left arrow?
		beq	d_stat_arrow		; yes
		clc
		rts
d_stat_arrow		
		jsr	home			; clear screen
		jsr	wait_vbl		; wait for vertical blanking time
                pea     dev_stat_page>>16	; Display GS/OS device status word
                pea     dev_stat_page
                jsr     writecstring

		clc
		rts
		
		eject
*****************************************************************
*
* This routine displays an ascii conversion chart.
*
* ENTRY: Call via 'JSR'
*               A Reg = Character from keyboard
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
display_ascii
		longa	on
		longi	on
				
		cmp	#$0015			; was key a right arrow?
		beq	d_ascii_arrow		; yes
		
		cmp	#$0008			; was key a left arrow?
		beq	d_ascii_arrow		; yes
		clc
		rts
d_ascii_arrow		
		jsr	home			; clear screen
		jsr	wait_vbl		; wait for vertical blanking time
                pea     ascii_page>>16		; Display ascii chart
                pea     ascii_page
                jsr     writecstring

		clc
		rts
		
		eject
*****************************************************************
*
* This routine is for visiting the monitor.
*
* ENTRY: Call via 'JSR'
*               A Reg = Character from keyboard
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
display_as_fst
		longa	on
		longi	on
				
		jsr	home			; clear screen
		jsr	wait_vbl		; wait for vertical blanking time
                pea     as_fst_page>>16		; Display CDA options
                pea     as_fst_page
                jsr     writecstring

		pei	<temp+2
		pei	<temp

		lda	|current_vcr		; get virtual pointer to the vcr
		jsl	get_vcr
		ldx	<vcr_ptr		; dereference VCR virtual pointer
		ldy	<vcr_ptr+2
		jsr	deref_my_vp
		stx	<temp
		sty	<temp+2
		
		ldy	#vcr_fst_id		; is this an AppleShare VCR?
		lda	[<temp],y
		cmp	#$000D
		bne	not_as_vcr		; no
		
		ldy	#$0018			; point at mod pointer
		lda	[<temp],y
		tax
		iny
		iny
		lda	[<temp],y
		sta	<temp+2
		stx	<temp

		ldx	#as_fst_script		; display AppleShare FST stuff
		jsr	script
not_as_vcr		
		pla
		sta	<temp
		pla
		sta	<temp+2
		
		clc
		rts
		
		eject
*****************************************************************
*
* This routine is for visiting the monitor.
*
* ENTRY: Call via 'JSR'
*               A Reg = Character from keyboard
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
display_s
		longa	on
		longi	on
				
		cmp	#$0015			; was key a right arrow?
		beq	s_arrow			; yes
		
		cmp	#$0008			; was key a left arrow?
		beq	s_arrow			; yes
		clc
		rts
s_arrow		
		jsr	home			; clear screen
		jsr	wait_vbl		; wait for vertical blanking time
                pea     s_page>>16		; Display GS/OS user ID's
                pea     s_page
                jsr     writecstring

		clc
		rts
		
		eject
*****************************************************************
*
* This routine displays all the system user ID numbers
*
* ENTRY: Call via 'JSR'
*               A Reg = Character from keyboard
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
display_user_id
		longa	on
		longi	on
				
		cmp	#$0015			; was key a right arrow?
		beq	user_id_arrow		; yes
		
		cmp	#$0008			; was key a left arrow?
		beq	user_id_arrow		; yes
		clc
		rts
user_id_arrow		
		jsr	home			; clear screen
		jsr	wait_vbl		; wait for vertical blanking time
                pea     user_id_page>>16	; Display GS/OS user ID's
                pea     user_id_page
                jsr     writecstring

		clc
		rts
		
		eject
*****************************************************************
*
* These routines set the cursor positions for the data field
* to be displayed.
*
* ENTRY: Call via 'JSR'
*               A Reg = Vertical line number ( 0 - 23 )
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
set_ch1
		longa	on
		longi	on
		
		ldx	#21		; ch for left field longword
		bra	set_ch

set_ch2		
		ldx	#25		; ch for left field word
		bra	set_ch

set_ch2_5	
		ldx	#41		; ch for left field word
		bra	set_ch

set_ch3		
		ldx	#53		; ch for right field longword
		bra	set_ch
		
set_ch4		
		ldx	#57		; ch for right field word

set_ch
		stx	|ch
		sta	|cv
		rts
		
		eject
******************************************************************************
*
* This routine displays the longword pointed to by [<temp],y.
*
* ENTRY: Call via 'JSR'
*		<temp =	pointer to base of data structure
*               A Reg = Integer to be displayed and converted
*               X Reg = Undefined
*               Y Reg = Index into data structure
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
******************************************************************************
do_temp_long
		longa	on
		longi	on
		
		lda	[<temp],y		; get longword data
		pha
		iny
		iny
		lda	[<temp],y
		tay
		pla
		jsr	display_long		; display it at the current cursor position
		rts

		eject
******************************************************************************
*
* This routine displays the word pointed to by [<temp],y.
*
* ENTRY: Call via 'JSR'
*		<temp =	pointer to base of data structure
*               A Reg = Integer to be displayed and converted
*               X Reg = Undefined
*               Y Reg = Index into data structure
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
******************************************************************************
do_temp_int
		longa	on
		longi	on
		
		lda	[<temp],y		; get longword data
		jsr	display_int		; display it at the current cursor position
		rts

		eject
******************************************************************************
*
* This routine displays the current FST ID name at the ch cv position.
*
* ENTRY: Call via 'JSR'
*               A Reg = Integer to be displayed and converted
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
******************************************************************************
display_fst_id     
		longa	on
		longi	on
	
		sta	|cur_fst_id	; save fst ID for string table index
		stx	|cv		; cursor position for FST ID field
		ldx	#41
		stx	|ch
		jsr	display_int	; display FST ID in hex
		
		ldx	#48		; cursor postition for fst name
		stx	|ch
		lda	|cur_fst_id	; get current fst ID to index string address table
		beq	illegal_fst_id	; if FST ID is not legal
		cmp	#$000E
		blt	legal_fst_id	; if FST ID is legal
		lda	#$000E		; display FST ID = unknown
legal_fst_id
		dec	a		; index for string display
		asl	a
		asl	a
		tax
		lda	|fst_id_table+2,x
		pha
		lda	|fst_id_table,x
		pha
		jsr	writecstring	; display current FST ID
		
illegal_fst_id	
		rts
		
		eject
******************************************************************************
*
* This routine displays both a virtual pointer and a dereferenced virtual
* pointer on the line specified in the call input.  The horizontal cursor 
* position is fixed at 41.
*
* ENTRY: Call via 'JSR'
*               A Reg = Line number to display vp & dereferenced vp
*               X Reg = Least significant word of VP
*               Y Reg = Most significant word of VP
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
******************************************************************************
display_vp
		longa	on
		longi	on

		phy			; save vp for dereferencing later
		phx
		sta	|cv		; set vertical line number
		lda	#41		; set cursor horizontal position
		sta	|ch
		lda	3,s		; display virtual pointer
		tay
		lda	1,s
		jsr	display_long
		lda	#53		; set CH for derefereced vp display
		sta	|ch
		plx			; prepare to dereference the vp
		ply
		jsr	deref_my_vp	; go dereference the VP
		sty	|deref_vp+2	; keep a copy of derefereced vp
		stx	|deref_vp
		txa
		jsr	display_long	; and display the dereferenced vp
		rts

		eject
******************************************************************************
*
* This routine displays both a handle and a dereferenced handle
* pointer on the line specified in the call input.  The horizontal cursor 
* position is fixed at 41.
*
* ENTRY: Call via 'JSR'
*               A Reg = Line number to display vp & dereferenced vp
*               X Reg = Least significant word of VP
*               Y Reg = Most significant word of VP
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
******************************************************************************
display_handle
		longa	on
		longi	on

		phy			; save vp for dereferencing later
		phx
		sta	|cv		; set vertical line number
		lda	#41		; set cursor horizontal position
		sta	|ch
		lda	3,s		; display handle
		tay
		lda	1,s
		jsr	display_long
		
		lda	#53		; set CH for derefereced vp display
		sta	|ch
		plx			; prepare to dereference the handle
		ply
		jsr	deref_handle	; go dereference the handle
		jsr	display_long	; and display the dereferenced vp
		rts
		
		eject
******************************************************************************
*
* This routine dereferences a handle
*
* ENTRY: Call via 'JSR'
*               A Reg = Undefined
*               X Reg = Least significant word of handle
*               Y Reg = Most significant word of handle
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Least significant word of pointer
*               X Reg = Least significant word of pointer
*               Y Reg = Most significant word of pointer
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
******************************************************************************
deref_handle
		longa	on
		longi	on
		
		phb
		phy
		plb
		ldy	|2,x
		lda	|0,x
		tax
		plb
		plb
		rts
		
		eject
******************************************************************************
*
* Validation of the virtual pointer is done by checking that the offset (x reg)
* is less than or equal to 8k while the index (y reg) is an integral multiple
* of 4.  This scheme will only work as long as GS/OS continues to allocate memory
* in 8k segments.  A better solution would be to add a system service call to the
* operating system to validate an virtual pointer.
*  ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___
* |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |
* | F | E | D | C | B | A | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 | INDEX (Y Register)
* |___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |___|___ must be 0   
*   |___|___|___|___|___|___|___|___|___|___|___|___|___|___________ unknown   
*
*  ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___
* |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |
* | F | E | D | C | B | A | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 | OFFSET (X Register)
* |___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|
*   |   |   |   |___|___|___|___|___|___|___|___|___|___|___|___|___ unknown   
*   |___|___|_______________________________________________________ must be 0      
*
* ENTRY: Call via 'JSR'
*               A Reg = Undefined
*               X Reg = Least significant word of VP
*               Y Reg = Most significant word of VP
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Undefined
*               X Reg = Least significant word of dereferenced VP
*               Y Reg = Most significant word of dereferenced VP
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ 0  0   if current call is an fst call
*                       ¥ ¥ 0 0 0 ¥ ¥ 1  0   if current call is not an fst call
*
******************************************************************************
deref_my_vp
		longa	on
		longi	on
		
		tya			; is this a valid vp?
		and	#$0003
		bne	not_valid_vp	; no
		txa
		and	#$E000
		bne	not_valid_vp	; no
valid_vp
		phd
		pea	direct_base	; GS/OS system service call requires OS direct page
		pld
		jsl	deref		; GS/OS system service call - dereference virtual pointer
		pld
		tya			; is dereferenced vp a valid bank?
		cmp	#$00E0		; legal bank is < $E0?
		bge	not_valid_vp	; if invalid
		phy			; is dereferenced vp = $00000000?
		txa
		ora	1,s
		sta	1,s
		pla
		beq	not_valid_vp	; yes
have_vp
		clc			; clear error flag
		rts
not_valid_vp
		ldy	#0		; always point invalid dereferenced vp at $00000000
		tyx
		sec			; set error flag
		rts
		
		eject
******************************************************************************
*
* This routine checks to see that the current system call is an FST call.
*
* ENTRY: Call via 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ 0  0   if current call is an fst call
*                       ¥ ¥ 0 0 0 ¥ ¥ 1  0   if current call is not an fst call
*
******************************************************************************
check_fst_call     
		longa	on
		longi	on
		
		lda	<call_number	; get current fst ID to index string address table
		and	#$00FF		; do not care about the call class
		sta	|current_call	; save current OS call
		ldx	#0
check_call_loop
		cmp	|fst_call_table,x
		beq	valid_fst_call
		inx
		inx
		cpx	#fst_call_end-fst_call_table
		bne	check_call_loop
		sec
		rts
valid_fst_call
		clc
		rts
		
                eject
******************************************************************************
*
* This routine displays all the fst specific data associated with the
* vcr page display.  Data is displayed from the script indicated by the
* current fst id.  Script data indicates the number of entries in a script
* followed by each script entry.  Script entries indicates the screen position
* for the script display as well as where the data to be displayed can be 
* obtained relative to the base address of the vcr data structure.
*
*	SCRIPT	dc.w	n			; number of elements in script
*		dc.w	ch,cv,len,offset	; 1st script element
*		dc.w	ch,cv,len,offset	; 2nd script element
*		dc.w	ch,cv,len,offset	; 3rd script element
*		etc.
*
*	where:	cv is a word value indicating horizontal screen position.
*		ch is a word value indicating vertical screen position.
*		len is a word value indicating length of the display field.
*		offset is a word indicating the data position relative to 
*		the base address of the vcr data structure.  Note that if
*		bit 15 of the offset is set, the data is a virtual pointer
*		and indicates that both the raw virtual pointer as well as
*		the dereferenced virtual pointer are to be displayed.
*
* ENTRY: Call via 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*	   cur_fst_id = word value indicating which FST is in use
*
* EXIT:   Via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
******************************************************************************
display_fst_vcr     
		longa	on
		longi	on
		
		lda	|cur_fst_id	; is the current fst id legal?
		beq	no_fst_vcr	; no
		cmp	#$000E
		blt	fst_vcr_ok	; yes
no_fst_vcr
		rts
fst_vcr_ok	
		lda	|cur_fst_id	; caclulate pointer to fst vcr display page
		dec	a
		asl	a
		asl	a
		tax
		lda	|fst_vcr_table+2,x
		pha
		lda	|fst_vcr_table,x
		pha
		lda	#12
		sta	|cv
		stz	|ch
		jsr	writecstring	; display the fst vcr page
		
		lda	|cur_fst_id	; caclulate pointer to fst vcr script
		dec	a
		asl	a
		tax
		lda	|fst_vcr_data,x
		tax
		stx	|fst_vcr_ptr
		lda	|0,x		; are there any items in the script?
		beq	no_fst_vcr	; no

		sta	|item_count	; save item count
		pei	temp
		pei	temp+2
		
		ldy	<vcr_ptr+2	; dereference vcr pointer & place on zp for [<vcr],y mode
		ldx	<vcr_ptr
		jsr	deref_my_vp
		sty	<temp+2
		stx	<temp
		inc	|fst_vcr_ptr	; point at next script item
		inc	|fst_vcr_ptr
fst_vcr_loop
		ldx	|fst_vcr_ptr	; get pointer to script data
		lda	|0,x		; set cursor horizontal position
		sta	|ch
		lda	|2,x		; set cursor vertical position
		sta	|cv
		lda	|6,x		; get offset to data field from base of vcr
		and	#$7FFF		; strip the flag off
		tay
		lda	|4,x		; get length of data field
		jsr	display_field	; go display the script item data field
		ldx	|fst_vcr_ptr	; was the item a virtual pointer?
		lda	|6,x
		bpl	no_fst_vcr_vp	;no

		clc			; adjust cursor position
		lda	|ch
		adc	#4
		sta	|ch
		
		lda	|6,x		; get virtual pointer
		and	#$7FFF
		tay
		lda	[<temp],y
		tax
		iny
		iny
		lda	[<temp],y	
		jsr	deref_my_vp	; dereference virtual pointer
		txa
		jsr	display_long
		
no_fst_vcr_vp		
		clc			; calculate next script item address
		lda	|fst_vcr_ptr
		adc	#8
		sta	|fst_vcr_ptr
		dec	|item_count	; any more script items?
		bne	fst_vcr_loop	; yes
		
		pla	
		sta	<temp+2
		pla
		sta	<temp
		rts

                eject
******************************************************************************
*
* This routine displays all the fst specific data associated with the
* fcr page display.  Data is displayed from the script indicated by the
* current fst id.  Script data indicates the number of entries in a script
* followed by each script entry.  Script entries indicates the screen position
* for the script display as well as where the data to be displayed can be 
* obtained relative to the base address of the vcr data structure.
*
*	SCRIPT	dc.w	n			; number of items in script
*		dc.w	ch,cv,len,offset	; script item
*
*	where:	cv is a word value indicating horizontal screen position.
*		ch is a word value indicating vertical screen position.
*		len is a word value indicating length of the display field.
*		offset is a word indicating the data position relative to 
*		the base address of the fcr data structure.  Note that if
*		bit 15 of the offset is set, the data is a virtual pointer
*		and indicates that both the raw virtual pointer as well as
*		the dereferenced virtual pointer are to be displayed.
*
* ENTRY: Call via 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*	   cur_fst_id = word value indicating which FST is in use
*
* EXIT:   Via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
******************************************************************************
display_fst_fcr     
		longa	on
		longi	on
		
		lda	|cur_fst_id	; is the current fst id legal?
		beq	no_fst_fcr	; no
		cmp	#$000E
		blt	fst_fcr_ok	; yes
no_fst_fcr
		rts
fst_fcr_ok
		lda	|cur_fst_id	; caclulate pointer to fst vcr display page
		dec	a
		asl	a
		asl	a
		tax
		lda	|fst_fcr_table+2,x
		pha
		lda	|fst_fcr_table,x
		pha
		lda	#15
		sta	|cv
		stz	|ch
		jsr	writecstring	; display the fst fcr page
		
		lda	|cur_fst_id	; caclulate pointer to fst fcr script
		dec	a
		asl	a
		tax
		lda	|fst_fcr_data,x
		tax
		stx	|fst_fcr_ptr
		lda	|0,x		; are there any items in the script?
		beq	no_fst_fcr	; no

		sta	|item_count	; save item count
		pei	temp
		pei	temp+2
		
		ldy	<fcr_ptr+2	; dereference vcr pointer & place on zp for [<vcr],y mode
		ldx	<fcr_ptr
		jsr	deref_my_vp
		sty	<temp+2
		stx	<temp
		inc	|fst_fcr_ptr	; point at next script item
		inc	|fst_fcr_ptr
fst_fcr_loop
		ldx	|fst_fcr_ptr	; get pointer to script data
		lda	|0,x		; set cursor horizontal position
		sta	|ch
		lda	|2,x		; set cursor vertical position
		sta	|cv
		lda	|6,x		; get offset to data field from base of fcr
		and	#$7FFF		; strip the flag off
		tay
		lda	|4,x		; get length of data field
		jsr	display_field	; go display the script item data field
		ldx	|fst_fcr_ptr	; was the item a virtual pointer?
		lda	|6,x
		bpl	no_fst_fcr_vp	;no

		clc			; adjust cursor position
		lda	|ch
		adc	#4
		sta	|ch
		
		lda	|6,x		; get virtual pointer
		and	#$7FFF
		tay
		lda	[<temp],y
		tax
		iny
		iny
		lda	[<temp],y	
		jsr	deref_my_vp	; dereference virtual pointer
		txa
		jsr	display_long
		
no_fst_fcr_vp		
		clc			; calculate next script item address
		lda	|fst_fcr_ptr
		adc	#8
		sta	|fst_fcr_ptr
		dec	|item_count	; any more script items?
		bne	fst_fcr_loop	; yes
		
		pla	
		sta	<temp+2
		pla
		sta	<temp
		rts

                eject
******************************************************************************
*
* Data is displayed from the script indicated by the a pointer passed in X.
* Script data indicates the number of entries in a script followed by each 
* script entry.  Script entries indicates the screen position for the script 
* display as well as where the data to be displayed can be obtained relative
* to the [<temp] and the type of data to display.
*
*	SCRIPT	dc.w	n					; number of elements in script
*		dc.w	ch,cv,len,type,type,res1,res2,res3	; 1st script element
*		dc.w	ch,cv,len,type,type,res1,res2,res3	; 2nd script element
*		dc.w	ch,cv,len,type,type,res1,res2,res3	; 3rd script element
*		dc.w	ch,cv,len,type,type,res1,res2,res3	; 4th script element
*		etc.
*
*	where:	cv	A word value indicating horizontal screen position.
*		ch	A word value indicating vertical screen position.
*		len	A word value indicating length of the display field.
*		offset	A word value indicating the position of data relative to [<temp]
*		type	A word indicating the type of data to be displayed:
*				$0000 = Hex
*				$0001 = Handle
*				$0002 = Virtual Pointer
*				$0003 = Pascal String
*				$0004 = Class 1 input string
*				$0005 = Class 1 output string
*				$0006 = C String
*				$0007 = Binary
*		res1	A reserved word.
*		res2	A reserved word.
*		res3	A reserved word.
*
* ENTRY: Call via 'JSR'
*	      [<temp] = Pointer to array containing data to display
*               A Reg = Undefined
*               X Reg = Pointer to script
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
******************************************************************************
script     
		longa	on
		longi	on
		
		lda	|0,x			; save number of script elements
		sta	|script_count
		inx
		inx
		stx	|script_ptr		; save pointer to script
script_loop
		ldx	|script_ptr		; get pointer to script data
		lda	|0,x			; set cursor horizontal position
		sta	|ch
		lda	|2,x			; set cursor vertical position
		sta	|cv
		lda	|4,x			; get length of data field
		sta	|data_length
		lda	|6,x			; get offset to data relative to [<temp]
		tay
		lda	|8,x			; get data type
		and	#$0007			; practice safe software here!
		sta	|data_type
		asl	a			; dispatch for special data type case
		tax
		lda	|type_tbl,x
		pea	next_script-1
		pha
		rts
next_script		
		clc				; calculate next element position
		lda	|script_ptr
		adc	#16
		sta	|script_ptr
		
		dec	|script_count		; any more script items?
		bne	script_loop		; yes
		rts
		
type_hex
		lda	|data_length
		jsr	display_field
		rts
		
type_handle
		phy
		lda	|data_length		; display handle
		jsr	display_field
		jsr	ch_plus_4		; adjust cursor
		ply
		lda	[<temp],y		; dereference handle
		tax
		iny
		iny
		lda	[<temp],y
		pha
		plb
		lda	|2,x
		tay
		lda	|0,x			; ya = dereferenced handle
		plb
		phk
		plb
		jsr	display_long		; display dereferenced handle
		rts
		
type_vp
		phy
		lda	|data_length		; display handle
		jsr	display_field
		jsr	ch_plus_4		; adjust cursor
		ply
		lda	[<temp],y		; get virtual pointer
		tax
		iny
		iny
		lda	[<temp],y	
		jsr	deref_my_vp		; dereference virtual pointer
		txa
		jsr	display_long
		rts
		
type_pstring
		rts
		
type_c1instr
		rts
		
type_c1outstr
		rts
		
type_cstr
		rts
		
type_binary
		rts

ch_plus_4		
		clc				; adjust cursor position
		lda	|ch
		adc	#4
		sta	|ch
		rts
		
script_ptr	dc.w	0
script_count	dc.w	0
data_length	dc.w	0
data_type	dc.w	0

type_tbl	dc.w	type_hex-1
		dc.w	type_handle-1
		dc.w	type_vp-1
		dc.w	type_pstring-1
		dc.w	type_c1instr-1
		dc.w	type_c1outstr-1
		dc.w	type_cstr-1
		dc.w	type_binary-1

                eject
******************************************************************************
*
* This routine displays a script item data field.
*
* ENTRY: Call via 'JSR'
*               A Reg = length of script item field to display (in bytes)
*               X Reg = Undefined
*               Y Reg = Offset from base of record where data resides
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*	   	   CH = Horizontal display position of data field
*	   	   CV = Vertical display position of data field
*	      [<temp] = Pointer to record containing data to display
*
* EXIT:   Via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
******************************************************************************
display_field     
		longa	on
		longi	on
		
		sta	|field_length	; length of field to display
		cmp	#1		; is this a byte display request?
		bne	not_a_byte	; no
		
		lda	[<temp],y	; obtain integer to convert
		and	#$00FF
		pha
		pea	cda_mem>>16	; location of ascii string
		pea	cda_mem
		pea	2		; number of digits
		ldx	#$220B		; convert parameter for display
		jsl	tool_locator
		lda	#2		; 1 character to display
		jsr	writeblock
		rts
not_a_byte	
		cmp	#2		; is this a word display request?
		bne	not_a_word	; no

		lda	[<temp],y	; obtain integer to convert
		pha
		pea	cda_mem>>16	; location of ascii string
		pea	cda_mem
		pea	4		; number of digits
		ldx	#$220B		; convert parameter for display
		jsl	tool_locator
		lda	#4		; 1 character to display
		jsr	writeblock
		rts
		
not_a_word	
		cmp	#3		; is this a 3 byte display request?
		bne	not_3_byte	; no

		lda	[<temp],y	; obtain integer to convert
		tax
		iny
		iny
		lda	[<temp],y
		and	#$00FF		; truncate to 3 byte value
		pha
		phx
		pea	cda_mem>>16	; location of ascii string
		pea	cda_mem
		pea	8		; number of digits
		ldx	#$230B		; convert parameter for display
		jsl	tool_locator
		lda	#8		; 1 character to display
		jsr	writeblock
		rts
		
not_3_byte	
		cmp	#4		; is this a long word display request?
		bne	not_a_long	; no

		lda	[<temp],y	; obtain integer to convert
		tax
		iny
		iny
		lda	[<temp],y
		pha
		phx
		pea	cda_mem>>16	; location of ascii string
		pea	cda_mem
		pea	8		; number of digits
		ldx	#$230B		; convert parameter for display
		jsl	tool_locator
		lda	#8		; 1 character to display
		jsr	writeblock
not_a_long
		rts
		
                eject
******************************************************************************
*
* This routine takes the integer passed in the accumulator, converts it to
* a four digit ascii string and displays the string at the current cursor
* position.
*
* ENTRY: Call via 'JSR'
*               A Reg = Integer to be displayed and converted
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
******************************************************************************
display_int     
		longa	on
		longi	on
		
                pha                     ; integer to be converted
                pea	cda_mem>>16	; location to return ascii
                pea	cda_mem
                pea     $0004		; number of digits
                ldx	#$220B		; convert parameter for display
		jsl	tool_locator	; int2hex                
                jsr	writeword	; and display it
                rts

		eject
******************************************************************************
*
* This routine converts the long integer passed in the accumulator and
* Y register into an eight digit ascii string and displays the string
* at the current cursor position.
*
* ENTRY: Call via 'JSR'
*               A Reg = Least significant word of integer
*               X Reg = Undefined
*               Y Reg = Most significant word of integer
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
******************************************************************************
display_long    
		longa	on
		longi	on
		
                phy                     ; integer to be converted
                pha
                pea	cda_mem>>16	; location to return ascii
                pea	cda_mem
                pea     $0008		; number of digits
                ldx	#$230B		; convert parameter for display
		jsl	tool_locator	; long2hex
                jsr	writelong	; and display it
                rts

                eject
******************************************************************************
*
* This routine sets the DIB pointer on GS/OS direct page in preparation for
* updating the current display window.
*
* ENTRY: Call via 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Unchanged
*               X Reg = Unchanged
*               Y Reg = Unchanged
*             Dir Reg = Unchanged
*               B Reg = Unchanged
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
******************************************************************************
set_dib_ptr 
		longa	on
		longi	on
		
		pha
                phy
                lda     <drvr_dev_num   ; get device number
                dec     a               ; index = dev_num-1*8+4
                asl     a
                asl     a
                asl     a
                clc
                adc     #$0004
                tay
                lda     [<drvr_dev_ptr],y
                sta     <drvr_dib_ptr
                iny
                iny
                lda     [<drvr_dev_ptr],y
                sta     <drvr_dib_ptr+2
                ply
                pla
                rts


                eject
******************************************************************************
*
* This routine sets the SIB pointer on GS/OS direct page in preparation for
* updating the current display window.
*
* ENTRY: Call via 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Unchanged
*               X Reg = Unchanged
*               Y Reg = Unchanged
*             Dir Reg = Unchanged
*               B Reg = Unchanged
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
******************************************************************************
set_sib_ptr 
		longa	on
		longi	on
		
		pha
                phy
                lda     |sib_num	; get supervisor number
                dec     a               ; index = dev_num-1*8+4
                asl     a
                asl     a
                asl     a
                clc
                adc     #$0004
                tay
                lda     [<sup_drvr_ptr],y
                sta     <sib_ptr
                iny
                iny
                lda     [<sup_drvr_ptr],y
                sta     <sib_ptr+2
                ply
                pla
                rts

                eject
******************************************************************************
*
* This routine sets the vertical line pointer for screen output.
*
* ENTRY: Call via 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Pointer to vertical line
*               X Reg = Bank indicated by current CH
*               Y Reg = Unchanged
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
******************************************************************************
vtab
		longa	on
		longi	on
		
		lda	|ch
		and	#$0001
		eor	#$00E1
		pha
		lda	|cv
		asl	a
		tax
		lda	|vtab_table,x
		plx
		rts

                eject
******************************************************************************
*
* This routine delays screen output until a vertical blanking interval
*
* ENTRY: Call via 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Pointer to vertical line
*               X Reg = Bank indicated by current CH
*               Y Reg = Unchanged
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
******************************************************************************
wait_vbl
		longa	on
		longi	on
		
		sep	#$20		; 8 bit 'm'
		longa	off
		
		lda	>rdvbl		; is VBL occuring?
		bmi	not_vbl_yet	; no
wait_not_vbl
		lda	>rdvbl		; is VBL occuring?
		bpl	wait_not_vbl	; yes, wait until the end of this period
not_vbl_yet	
		lda	>rdvbl		; is VBL occuring?
		bmi	not_vbl_yet	; no, wait until a blanking period
		
		rep	#$20		; 16 bit 'm'
		longa	on
		
		rts
				
                eject
******************************************************************************
*
* This routine outputs a C-String to the text screen.
*
* ENTRY: Call via 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*			 Long pointer to C String
*			 Word return address -1
*	Stack Pointer ->
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Pointer to vertical line
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
******************************************************************************
writecstring
		longa	on
		longi	on
		
		phd
		tsc
		tcd
*
* Stack and direct page looks like . . .
*
*			 (+5)	Long	pointer to C String
*			 (+3)	Word	return address -1
*			 (+1)	Word	old direct page address
*	Stack Pointer ->
*
		ldy	#0		; set c string pointer to start of string
cstring_loop
		lda	[<$05],y	; get c string character
		and	#$007F
		beq	cstring_done	; if end of string

		cmp	#tab		; is it a tab?
		bne	not_a_tab
*
* When a TAB is encountered, the next character in the string is
* interpretted as the cursor horizontal position rather than an
* ascii character.  Set the cursor position and advance to the
* next character in the C string.
*
		iny			; get CH contiguous to TAB
		lda	[<$05],y
		and	#$00FF
		sta	|ch
		bra	next_c_str_char
*
* If not a TAB, just output the ascii character.
*
not_a_tab
		jsr	writechar	; else output character
next_c_str_char
		iny			; set pointer for next character
		bra	cstring_loop	; loop for next character
		
cstring_done	
		lda	<$03		; clean up stack
		sta	<$07		; move return address
		pld
		pla
		pla
		rts

                eject
******************************************************************************
*
* This routine outputs a an eight byte ascii numerical field to the text screen.
*
* ENTRY: Call via 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Pointer to vertical line
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
******************************************************************************
writeword
		longa	on
		longi	on
		
		lda	#4		; number of characters per string
		bra	writeblock
		
writelong
		longa	on
		longi	on
		
		lda	#8		; number of characters per string
		
writeblock
		sta	|string_len
                pea	cda_mem>>16	; location to return ascii
                pea	cda_mem
		phd
		tsc
		tcd
*
* Stack and direct page looks like . . .
*
*			 (+3)	Long	pointer to 8 byte numerical string
*			 (+1)	Word	old direct page address
*	Stack Pointer ->
*
		ldy	#0		; set c string pointer to start of string
string_loop
		lda	[<$03],y	; get string character
		jsr	writechar	; and write to screen
		iny			; point at next numerical string character
		cpy	|string_len	; done all characters?
		bne	string_loop	; no, loop for next character
		
string_done	
		pld
		pla
		pla
		rts
		
                eject
******************************************************************************
*
* This routine outputs a single 7 bit ascii character at the current screen
* location specified by CH and CV.  
*
* ENTRY: Call via 'JSR'
*               A Reg = 7 bit ascii character in lsb
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Undefined
*               X Reg = Unchanged
*               Y Reg = Unchanged
*             Dir Reg = Unchanged
*               B Reg = Unchanged
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
******************************************************************************
writechar
		longa	on
		longi	on
		
		and	#$00FF		; limit character to 8 bit Apple ASCII
		bit	|mode-1		; is this in flashing mode?
		bmi	normal1		; no, it's in normal mode
		bvc	normal1		; no, it's in inverse mode
		bra	its_a_flasher	; yes,
normal1		
		ora	#$0080
its_a_flasher
		phx
		phy
		
		ldx	#$0000		; normal character table index
normal_chk
		cmp	|normal_char_tbl,x
		beq	normal_char
		inx
		inx
		cpx	#$000C		; 1 past end of table
		bne	normal_chk

		and	|mode
normal_char
		pha			; character to print
		pha			; space for screen pointer
		pha
		phd
		tsc
		tcd
*
*		+12	X Register (msb)
*		+11	X Register (lsb)
*		+10	Y Register (msb)
*		+9	Y Register (lsb)
*		+8	Character (msb - undefined)
*		+7	Character (lsb)
*		+6	Screen memory pointer (msb)
*		+5	Screen memory pointer
*		+4	Screen memory pointer
*		+3	Screen memory pointer (lsb)
*		+2	Direct register (msb)
*		+1	Direct register (lsb)
*	Stack Pointer ->
*			
		jsr	vtab		; calculate screen line address
		sta	<$03
		stx	<$05
		
		lda	|ch		; calculate screen position on line
		lsr	a
		tay

		lda	<$07		; get character to output
		cmp	#$008D		; is this a cr/lf?
		beq	cr_lf		; yes
		
		sep	#$20		; 8 bit 'm'
		longa	off
		
		sta	[<$03],y	; and write to screen
		
		rep	#$20		; 16 bit 'm'
		longa	on
		
		inc	|ch		; point at next screen position
		lda	|ch		; at end of line?
		cmp	#80
		bne	position_ok	; no

cr_lf
		stz	|ch		; point at beginning of next line
		inc	|cv
		lda	|cv		; at end of screen?
		cmp	#24
		blt	position_ok	; no

		stz	|ch
		stz	|cv		
*		jsr	home		; clear screen & home cursor
		
position_ok		
		pld
		pla
		pla
		pla
		ply
		plx
		rts

normal_char_tbl
		dc.w	$008D		; is it a 'cr'?
		dc.w	$00A0		; is it a ' '?
		dc.w	$00DF		; is it a '_'?
		dc.w	$00FC		; is it a '|'?
		dc.w	$00BD		; is it a '='?
		dc.w	$00AA		; is it a '*'?

		eject
******************************************************************************
*
* This routine clears the 80 column screen and positions the cursor to the
* top left corner
*
* ENTRY: Call via 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Unchanged
*               B Reg = Unchanged
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
******************************************************************************
home
		longa	on
		longi	on
		
		lda	#$A0A0			; normal video spaces
		sta	>main_text_pg
		sta	>alt_text_pg

		pea	main_text_pg>>16	; clear text page to spaces
		pea	|main_text_pg
		pea	main_text_pg>>16
		pea	|main_text_pg
		pea	$0000
		pea	$0400
		pea	$0804
		jsl	move_info

		pea	alt_text_pg>>16		; clear text page to spaces
		pea	|alt_text_pg
		pea	alt_text_pg>>16
		pea	|alt_text_pg
		pea	$0000
		pea	$0400
		pea	$0804
		jsl	move_info
		
		stz	|ch			; position cursor @ upper left
		stz	|cv
		rts
				

		eject
******************************************************************************
*
* This routine clears the 80 column screen and positions the cursor to the
* top left corner
*
* ENTRY: Call via 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Unchanged
*               B Reg = Unchanged
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
******************************************************************************
save_screen
		longa	on
		longi	on

		pea	main_text_pg>>16
		pea	|main_text_pg
		pea	main_text_buf>>16
		pea	main_text_buf
		pea	$0000
		pea	$0400
		pea	$0805
		jsl	move_info

		pea	alt_text_pg>>16
		pea	|alt_text_pg
		pea	alt_text_buf>>16
		pea	alt_text_buf
		pea	$0000
		pea	$0400
		pea	$0805
		jsl	move_info
		rts
		
		eject
******************************************************************************
*
* This routine clears the 80 column screen and positions the cursor to the
* top left corner
*
* ENTRY: Call via 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:   Via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Unchanged
*               B Reg = Unchanged
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
******************************************************************************
restore_screen
		longa	on
		longi	on
		
		pea	main_text_buf>>16
		pea	main_text_buf
		pea	main_text_pg>>16
		pea	|main_text_pg
		pea	$0000
		pea	$0400
		pea	$0805
		jsl	move_info

		pea	alt_text_buf>>16
		pea	alt_text_buf
		pea	alt_text_pg>>16
		pea	|alt_text_pg
		pea	$0000
		pea	$0400
		pea	$0805
		jsl	move_info
		rts

		eject
********************************************************************************************
*
* The following strings are used to display a menu of CDA options.
*                                                                   
********************************************************************************************
cda_page1
		dc.b	tab,22,'GS/OS Internal Snooper Version 6.0d2',$0D,$0D
		dc.b	tab,27,'Copyright (c) 1987-1992',$0D
		dc.b	tab,29,'Apple Computer, Inc.',$0D
		dc.b	tab,29,'All rights reserved',$0D,$0D
		dc.b	tab,22,'Written by: Ray Montagne, ext. 4-6255',$0D
		dc.b	tab,22,'Updated by: Greg Branche, ext. 4-5523',$0D,$0D
		dc.b	'THIS CDA DISPLAYS INTERNAL OPERATING SYSTEM DATA STRUCTURES AND MUST NOT BE',$0D
		dc.b	'DISTRIBUTED OUTSIDE OF APPLE COMPUTER, INC. UNDER ANY CIRCUMSTANCES',$0D,$0D
		dc.b	'Quick Keys:    (? returns to this page)',$0D
		dc.b	'_____________________________________________________________________________',$0D
		dc.b	' 1 = System Calls | A = Cache Dumper  | J = Death Trap   | S = SCSI I/O Rec. ',$0D
		dc.b	' 2 = System Svc   | B = Traps         | K = Driver Calls | T = SCSI Dev. Rec.',$0D
		dc.b	' 3 = Error Codes  | C = FST Numbers   | L = Device Char. | U = SCSI Internals',$0D
		dc.b	' 4 = User ID      | D = FST Headers   | M = Sup. Char.   | V = Device ID List',$0D
		dc.b	' 5 = Direct Page  | E = Block Diagram | N = Mem. Attr.   | W = Device Status ',$0D
		dc.b	' 6 = DIB Dumper   | F = $E1 Vectors   | O = Memory Map   | X = ASCII Chart   ',$0D
		dc.b	' 7 = SIB Dumper   | G = ExpressLoad   | P = GOTO Monitor | Y =               ',$0D
		dc.b	' 8 = VCR Dumper   | H = File List     | Q = User ID      | Z =               ',$0D
		dc.b	' 9 = FCR Dumper   | I = VBL Queue     | R = SCSI Dir. Pg | ESC = Quit        ',$00
		
		eject
cda_page2
		dc.b	'GS/OS Direct Page               GS/OS Call =',$0D
		dc.b	$0D
		dc.b	'=============================================================',$0D
		dc.b	'Drvr_dev_num',tab,24,'$',tab,30,'| Call_number',tab,56,'$',$0D
		dc.b	'Drvr_call_num',tab,24,'$',tab,30,'| Param_blk_ptr',tab,52,'$',$0D
		dc.b	'Drvr_buf_ptr',tab,20,'$',tab,30,'|==============================',$0D
		dc.b	'Drvr_req_cnt',tab,20,'$',tab,30,'| SIB_ptr',tab,52,'$',$0D
		dc.b	'Drvr_tran_cnt',tab,20,'$',tab,30,'| Sup_parm_ptr',tab,52,'$',$0D
		dc.b	'Drvr_blk_num',tab,20,'$',tab,30,'| Sup_drvr_ptr',tab,52,'$',$0D
		dc.b	'Drvr_blk_size',tab,24,'$',tab,30,'|==============================',$0D
		dc.b	'Drvr_fst_num',tab,24,'$',tab,30,'| Dev1_num',tab,56,'$',$0D
		dc.b	'Drvr_vol_id',tab,24,'$',tab,30,'| Dev2_num',tab,56,'$',$0D
		dc.b	'Drvr_cache',tab,24,'$',tab,30,'| Path1_ptr/Fcr_ptr',tab,52,'$',$0D
		dc.b	'Drvr_cach_ptr',tab,20,'$',tab,30,'| Path2_ptr/Vcr_ptr',tab,52,'$',$0D
		dc.b	'Drvr_dib_ptr',tab,20,'$',tab,30,'| Path_flag',tab,56,'$',$0D
		dc.b	'==============================| Span1',tab,56,'$',$0D
		dc.b	'Post_drvr_tbl',tab,20,'$',tab,30,'| Span2',tab,56,'$',$0D
		dc.b	'=============================================================',$0D
		dc.b	'Cache_cur_ptr',tab,20,'$',tab,32,'Cache_pre_ptr',tab,52,'$',$0D
		dc.b	'Cache_nxt_ptr',tab,20,'$',tab,32,'Cache_bkt_ptr',tab,52,'$',$0D
		dc.b	'=============================================================',$00

str_invalid	dc.b	'Invalid call type',$00
str_create	dc.b	'Create',$00
str_destroy	dc.b	'Destroy',$00
str_osshutdown	dc.b	'OS shut down',$00
str_changepath	dc.b	'Change path',$00
str_setfileinfo	dc.b	'Set file info',$00
str_getfileinfo	dc.b	'Get file info',$00
str_volume	dc.b	'Volume',$00
str_setprefix	dc.b	'Set prefix',$00
str_getprefix	dc.b	'Get prefix',$00
str_clrbackup	dc.b	'Clear backup',$00
str_setsyspref	dc.b	'Set system prefix',$00
str_null	dc.b	'Null',$00
str_expandpath	dc.b	'Expand pathname',$00
str_getsysprefs	dc.b	'Get system prefix',$00
str_open	dc.b	'Open',$00
str_newline	dc.b	'Newline',$00
str_read	dc.b	'Read',$00
str_write	dc.b	'Write',$00
str_close	dc.b	'Close',$00
str_flush	dc.b	'Flush',$00
str_setmark	dc.b	'Set mark',$00
str_getmark	dc.b	'Get mark',$00
str_seteof	dc.b	'Set EOF',$00
str_geteof	dc.b	'Get EOF',$00
str_setlevel	dc.b	'Set level',$00
str_getlevel	dc.b	'Get level',$00
str_getdirentry	dc.b	'Get directory entry',$00
str_beginsess	dc.b	'Begin session',$00
str_endsession	dc.b	'End session',$00
str_sessionstat	dc.b	'Session status',$00
str_getdevnum	dc.b	'Get device number',$00
str_getlastdev	dc.b	'Get last device',$00
str_readblock	dc.b	'Read block',$00
str_writeblock	dc.b	'Write block',$00
str_format	dc.b	'Format',$00
str_erasedisk	dc.b	'Erase disk',$00
str_getname	dc.b	'Get name',$00
str_getbootvol	dc.b	'Get boot volume',$00
str_quit	dc.b	'Quit',$00
str_getversion	dc.b	'Get version',$00
str_getfstinfo	dc.b	'Get FST info',$00
str_dinfo	dc.b	'Get device info',$00
str_dstatus	dc.b	'Device status',$00
str_dcontrol	dc.b	'Device control',$00
str_dread	dc.b	'Device read',$00
str_dwrite	dc.b	'Device write',$00
str_bindint	dc.b	'Bind interrupt',$00
str_unbindint	dc.b	'Unbind interrupt',$00
str_fstspec	dc.b	'FST specific',$00
		

		eject
cda_page3	dc.b	'GS/OS Device Information Block (DIB)',$0D
		dc.b	$0D
		dc.b	'GS/OS Direct Page               Device Information block',$0D
		dc.b	'=============================================================',$0D
		dc.b	'Device Number',tab,24,'$',tab,30,'| Link Pointer',tab,52,'$',$0D
		dc.b	'Call Number',tab,24,'$',tab,30,'| Entry Pointer',tab,52,'$',$0D
		dc.b	'Buffer Pointer',tab,20,'$',tab,30,'| Characteristics',tab,56,'$',$0D
		dc.b	'Request Count',tab,20,'$',tab,30,'| Block Count',tab,52,'$',$0D
		dc.b	'Transfer Count',tab,20,'$',tab,30,'| Device Name         .        ',$0D
		dc.b	'Block Number',tab,20,'$',tab,30,'| Slot Number',tab,56,'$',$0D
		dc.b	'Block Size',tab,24,'$',tab,30,'| Unit Number',tab,56,'$',$0D
		dc.b	'FST Number',tab,24,'$',tab,30,'| Version Number',tab,56,'$',$0D
		dc.b	'Volume ID Number',tab,24,'$',tab,30,'| Device ID Number',tab,56,'$',$0D
		dc.b	'Cache Enable',tab,24,'$',tab,30,'| Head Link',tab,56,'$',$0D
		dc.b	'Cache Block Pointer $',tab,30,'| Forward Link',tab,56,'$',$0D
		dc.b	'DIB Pointer',tab,20,'$',tab,30,'| Extended DIB ptr',tab,52,'$',$0D
		dc.b	'Number of DIBs',tab,20,'$',tab,30,'| DIB Device Number',tab,56,'$',$0D
		dc.b	'==============================| Generated driver class  $',$0D
		dc.b	'Device User ID',tab,24,'$',tab,30,'| SmartPort type',tab,56,'$',$0D
		dc.b	'Device Disk Switch',tab,24,'$',tab,30,'| SmartPort subtype',tab,56,'$',$0D
		dc.b	'==============================| Cache mask / Open flag  $',$0D
		dc.b	'Post_drvr_tbl',tab,20,'$',tab,30,'| Standard block size',tab,56,'$',$0D
		dc.b	'Device list pointer $',tab,30,'| Hardware unit number',tab,56,'$',$0D
		dc.b	'=============================================================',$00

cda_page4	dc.b	'GS/OS Supervisor Information Block (SIB)',$0D
		dc.b	$0D
		dc.b	'GS/OS Direct Page               Supervisor Information block',$0D
		dc.b	'=============================================================',$0D
		dc.b	'Supervisor Number',tab,24,'$',tab,30,'| Entry Pointer',tab,52,'$',$0D
		dc.b	'SIB Pointer',tab,20,'$',tab,30,'| Supervisor ID',tab,56,'$',$0D
		dc.b	'Supervisor Param',tab,20,'$',tab,30,'| Supervisor Version',tab,56,'$',$0D
		dc.b	'Number of SIBs',tab,20,'$',tab,30,'| Supervisor Name     .        ',$0D
		dc.b	'Supervisor list ptr $',tab,30,'| SIB Characteristics',tab,56,'$',$0D
		dc.b	'',tab,30,'| Reserved field',tab,56,'$',$0D
		dc.b	'=============================================================',$00

		eject
cda_page5	dc.b	'GS/OS Volume Control Record',$0D
		dc.b	$0D
		dc.b	'=============================================================',$0D
		dc.b	'VCR virtual pointer',tab,40,'$',tab,50,'= $',$0D
		dc.b	'=============================================================',$0D
		dc.b	'VCR ID',tab,56,'$',$0D
		dc.b	'VCR name = /',tab,40,'$',tab,50,'= $',$0D
		dc.b	'VCR status',tab,56,'$',$0D
		dc.b	'VCR open count',tab,56,'$',$0D
		dc.b	'VCR FST ID',tab,40,'$',tab,46,'=',$0D
		dc.b	'VCR device (where volume was last seen)',tab,56,'$',$0D
		dc.b	'=============================================================',$00

prodos_vcr_page	dc.b	'vcr_res     $',tab,30,'| vol_create',tab,52,'$',$0D
		dc.b	'vol_version',tab,26,'$',tab,30,'| vol_min_version',tab,58,'$',$0D
		dc.b	'vol_access',tab,26,'$ ',tab,30,'| vol_entry_len',tab,58,'$',$0D
		dc.b	'vol_entries',tab,26,'$',tab,30,'| vol_file_count',tab,56,'$',$0D
		dc.b	'vol_bitmap_addr',tab,24,'$',tab,30,'| vol_total_blks',tab,56,'$',$0D
		dc.b	'num_bitmap_blks',tab,24,'$',tab,30,'| end_bitmap',tab,56,'$',$0D
		dc.b	'avail_bitmap',tab,24,'$',tab,30,'| curr_bitmap',tab,56,'$',$0D
		dc.b	'bitmap_dirty',tab,24,'$',tab,30,'| free_blocks',tab,56,'$',$0D
		dc.b	'vol_damaged',tab,20,'$ ',tab,30,'| dirty_file_cnt',tab,56,'$',$0D
		dc.b	'pro_vcr_size',tab,24,'$',tab,30,'| pro_vcr_size',tab,56,'$',$0D
		dc.b	'=============================================================',$00

dos_vcr_page	dc.b	'vcr_buf_vp',tab,40,'$',tab,50,'= $',$0D
		dc.b	'vcr_cat_sec_count',tab,24,'$',$0D
		dc.b	'=============================================================',$00

pascal_vcr_page	dc.b	'date_stamp',tab,24,'$',tab,30,'| num_files',tab,56,'$',$0D
		dc.b	'=============================================================',$00


hfs_vcr_page
		dc.b	'vcr_create_dt',tab,20,'$',tab,30,'| vcr_mod_dt',tab,52,'$',$0D
		dc.b	'vcr_vol_attrib',tab,24,'$',tab,30,'| vcr_num_r_files',tab,56,'$',$0D
		dc.b	'vcr_vbm_start',tab,24,'$ ',tab,30,'| vcr_alloc_start',tab,56,'$',$0D
		dc.b	'vcr_num_ablks',tab,24,'$',tab,30,'| vcr_ablk_size',tab,52,'$',$0D
		dc.b	'vcr_fclump_size',tab,20,'$',tab,30,'| vcr_ablk_start',tab,56,'$',$0D
		dc.b	'vcr_next_id',tab,20,'$',tab,30,'| vcr_free_ablks',tab,56,'$',$0D
		dc.b	'vcr_write_cnt',tab,20,'$',tab,30,'| vcr_num_r_dirs',tab,56,'$',$0D
		dc.b	'vcr_num_files',tab,20,'$',tab,30,'| vcr_num_dirs',tab,52,'$',$0D
		dc.b	'vcr_num_pblks',tab,20,'$',tab,30,'| vcr_cur_dir',tab,52,'$',$0D
		dc.b	'vcr_cur_kid',tab,24,'$ ',tab,30,'|',tab,60,$0D
		dc.b	'=============================================================',$00

msdos_vcr_page
		dc.b	'sector_size',tab,24,'$',tab,30,'| media_desc',tab,58,'$',$0d
		dc.b	'cluster_size',tab,26,'$',tab,30,'| free_blocks',tab,56,'$',$0d
		dc.b	'reserved_sectors',tab,24,'$',tab,30,'| root_dir_block',tab,56,'$',$0d
		dc.b	'FAT_count',tab,26,'$',tab,30,'| dirty_file_cnt',tab,52,'$',$0d
		dc.b	'root_dir_count',tab,24,'$',tab,30,'| FAT_type',tab,56,'$',$0d
		dc.b	'total_sectors',tab,24,'$',tab,30,'| data_start',tab,56,'$',$0d
		dc.b	'FAT_size',tab,24,'$',tab,30,'|',$0d
		dc.b	'hidden_sectors',tab,24,'$',tab,30,'|',$0d
		dc.b	'=============================================================',$00

dosxx_vcr_page
mfs_vcr_page
lisa_vcr_page
cpm_vcr_page
cfst_vcr_page
unk_vcr_page
		dc.b	'            0  1  2  3  4  5  6  7  8  9  A  B  C  D  E  F',$0D
		dc.b	'vcr+$000E',$0D
		dc.b	'vcr+$0010',$0D
		dc.b	'vcr+$0020',$0D
		dc.b	'vcr+$0030',$0D
		dc.b	'vcr+$0040',$0D
		dc.b	'vcr+$0050',$0D
		dc.b	$00

hs_vcr_page
		dc.b	'vcr_total_blks',tab,20,'$',tab,30,'| vcr_block_size',tab,56,'$',$0D
		dc.b	'vcr_path_size',tab,20,'$',tab,30,'| vcr_root_dir',tab,52,'$',$0D
		dc.b	'vcr_create_dt',tab,20,'$',tab,30,'| vcr_mod_dt',tab,52,'$',$0D
		dc.b	'vcr_state_flag',tab,24,'$',tab,30,'| vcr_path_table',tab,52,'$',$0D
		dc.b	'=============================================================',$00


at_vcr_page	dc.b	'sessrefnum',tab,24,'$',tab,30,'| volid',tab,56,'$',$0D
		dc.b	'signature',tab,24,'$',tab,30,'| crdate',tab,52,'$',$0D
		dc.b	'modptr',tab,20,'$',tab,30,'| version',tab,56,'$',$0D
		dc.b	'=============================================================',$00

		eject
cda_page6
		dc.b	'GS/OS File Control Record',$0D
		dc.b	'=============================================================',$0D
		dc.b	'FCR virtual pointer',tab,40,'$',tab,50,'= $',$0D
		dc.b	'=============================================================',$0D
		dc.b	'FCR reference number',tab,56,'$',$0D
		dc.b	'FCR name =',tab,40,'$',tab,50,'= $',$0D
		dc.b	'FCR name =                                                   ',$0D
		dc.b	'FCR FST ID',tab,40,'$',tab,50,'=',$0D
		dc.b	'FCR volume ID',tab,56,'$',$0D
		dc.b	'FCR level',tab,56,'$',$0D
		dc.b	'FCR newline pointer',tab,52,'$',$0D
		dc.b	'FCR newline length',tab,56,'$',$0D
		dc.b	'FCR mask',tab,56,'$',$0D
		dc.b	'FCR access',tab,56,'$',$0D
		dc.b	'=============================================================',$00

prodos_fcr_page	dc.b	'fcr_res_num',tab,24,'$',tab,30,'| fcr_storage',tab,56,'$',$0D
		dc.b	'fcr_entry_type',tab,24,'$',tab,30,'| fcr_file_id',tab,56,'$',$0D
		dc.b	'fcr_file_type',tab,26,'$',tab,30,'| fcr_key_blk',tab,56,'$',$0D
		dc.b	'fcr_blks_used',tab,24,'$',tab,30,'| fcr_eof',tab,52,'$',$0D
		dc.b	'fcr_create',tab,20,'$',tab,30,'| fcr_vers',tab,58,'$',$0D
		dc.b	'fcr_min_vers',tab,26,'$',tab,30,'| fcr_disk_acc',tab,58,'$',$0D
		dc.b	'fcr_aux_type',tab,24,'$',tab,30,'| fcr_modified',tab,52,'$',$0D
		dc.b	'fcr_header_ptr',tab,24,'$',tab,30,'|',$0D
		dc.b	'=============================================================',$00

dos_fcr_page	dc.b	'fcr_buf_vp',tab,40,'$',tab,50,'= $',$0D
		dc.b	'fcr_eof',tab,20,'$',tab,30,'| fcr_aux',tab,56,'$',$0D
		dc.b	'fcr_mark',tab,20,'$',tab,30,'| fcr_type',tab,56,'$',$0D
		dc.b	'fcr_dos_type',tab,24,'$',tab,30,'| fcr_blks_used',tab,52,'$',$0D
		dc.b	'fcr_entry_num',tab,24,'$',tab,30,'| fcr_cat_sec',tab,56,'$',$0D
		dc.b	'fcr_fde_num',tab,24,'$',tab,30,'| fcr_tot_ent',tab,56,'$',$0D
		dc.b	'fcr_data_sec',tab,24,'$',tab,30,'|',$0D
		dc.b	'=============================================================',$00

hfs_fcr_page
		dc.b	'fcr_type',tab,24,'$',tab,30,'| fcr_flag',tab,56,'$',$0d
		dc.b	'fcr_parent_id',tab,20,'$',tab,30,'| fcr_id',tab,52,'$',$0d
		dc.b	'fcr_cat_hint',tab,20,'$',tab,30,'| fcr_mod_dt',tab,52,'$',$0d
		dc.b	'fcr_clump_size',tab,20,'$',tab,30,'| fcr_leof',tab,52,'$',$0d
		dc.b	'fcr_peof',tab,20,'$',tab,30,'| fcr_ext',tab,52,'$',$0d
		dc.b	'fcr_file_mark',tab,20,'$',tab,30,'| ',$0d
		dc.b	'fcr_block_mark',tab,24,'$',tab,30,'| ',$0d
		dc.b	'fcr_block_num',tab,20,'$',tab,30,'| fcr_block_count',tab,52,'$',$0d
		dc.b	'=============================================================',$00

pascal_fcr_page
		dc.b	'fcr_start_block',tab,24,'$',tab,30,'| fcr_end_block',tab,52,'$',$0d
		dc.b	'fcr_ending_bytes',tab,24,'$',tab,30,'| fcr_eof',tab,52,'$',$0d
		dc.b	'fcr_mark',tab,20,'$',tab,30,'| fcr_file_type',tab,56,'$',$0d
		dc.b	'fcr_mode',tab,24,'$',tab,30,'| fcr_pmark',tab,52,'$',$0d
		dc.b	'fcr_expand_cnt',tab,24,'$',tab,30,'| fcr_io_index',tab,56,'$',$0d
		dc.b	'fcr_io_size',tab,24,'$',tab,30,'|',$0d
		dc.b	'=============================================================',$00

msdos_fcr_page
		dc.b	'attributes',tab,24,'$',tab,30,'| status',tab,56,'$',$0d
		dc.b	'mod_time',tab,24,'$',tab,30,'| parent',tab,56,'$',$0d
		dc.b	'mod_date',tab,24,'$',tab,30,'| entry_offs',tab,56,'$',$0d
		dc.b	'start_cluster',tab,24,'$',tab,30,'| curr_mark',tab,52,'$',$0d
		dc.b	'eof',tab,20,'$',tab,30,'| storage',tab,56,'$',$0d
		dc.b	'curr_cluster',tab,24,'$',tab,30,'| gde_entry_num',tab,56,'$',$0d
		dc.b	'cluster_blk_num',tab,24,'$',tab,30,'| gde_offset',tab,56,'$',$0d
		dc.b	'cluster_size',tab,24,'$',tab,30,'| gde_init',tab,56,'$',$0d
		dc.b	'=============================================================',$00

dosxx_fcr_page
mfs_fcr_page
lisa_fcr_page
cpm_fcr_page
unk_fcr_page
		dc.b	'            0  1  2  3  4  5  6  7  8  9  A  B  C  D  E  F',$0D
		dc.b	'fcr+$0010',$0d
		dc.b	'fcr+$0020',$0d
		dc.b	'fcr+$0030',$0d
		dc.b	'fcr+$0040',$0d
		dc.b	'fcr+$0050',$0d
		dc.b	$00

cfst_fcr_page	dc.b	'fcr_dev_num',tab,24,'$',tab,30,'|',$0D
		dc.b	'=============================================================',$00

hs_fcr_page	dc.b	'fcr_position',tab,20,'$',tab,30,'| fcr_entry_num',tab,56,'$',$0D
		dc.b	'fcr_start_rec',tab,24,'$',tab,30,'| fcr_storage',tab,56,'$',$0D
		dc.b	'fcr_eof',tab,20,'$',tab,30,'| fcr_blks',tab,52,'$',$0D
		dc.b	'fcr_open_blk',tab,20,'$',tab,30,'| fcr_open_mark',tab,56,'$',$0D
		dc.b	'fcr_skip_count',tab,24,'$',tab,30,'| fcr_error_flag',tab,56,'$',$0D
		dc.b	'fcr_type_flag',tab,24,'$',tab,30,'| fcr_dir_record',tab,56,'$',$0D
		dc.b	'=============================================================',$00

at_fcr_page	dc.b	'dirflag',tab,24,'$',tab,30,'| flags',tab,56,'$',$0D
		dc.b	'forkrefnum',tab,24,'$',tab,30,'| mark',tab,56,'$',$0D
		dc.b	'buf_start',tab,20,'$',tab,30,'| buf_size',tab,56,'$',$0D
		dc.b	'=============================================================',$0D
		dc.b	'dirindex',tab,24,'$',tab,30,'| dirid ',tab,52,'$',$0D
		dc.b	'dir_first',tab,24,'$',tab,30,'| dir_last',tab,56,'$',$0D
		dc.b	'lastmod',tab,20,'$',tab,30,'|',$0D
		dc.b	'=============================================================',$00

		eject
cda_page7	dc.b	'GS/OS Cache Header',$0D,$0D
		dc.b	'=============================================================',$0D
		dc.b	'Cache Forward VP',tab,40,'$',tab,50,'= $',$0D
		dc.b	'Cache Backward VP',tab,40,'$',tab,50,'= $',$0D
		dc.b	'Cache Forward Bucket VP',tab,40,'$',tab,50,'= $',$0D
		dc.b	'Cache Backward Bucket VP',tab,40,'$',tab,50,'= $',$0D
		dc.b	'Block Number',tab,52,'$',$0D
		dc.b	'Block Size',tab,56,'$',$0D
		dc.b	'FST ID Number',tab,40,'$',tab,46,'= ',$0D
		dc.b	'Volume ID',tab,56,'$',$0D
		dc.b	'Device Number',tab,56,'$',$0D
		dc.b	'Cache Priority',tab,56,'$',$0D
		dc.b	'Cache Cell Size',tab,56,'$',$0D
		dc.b	'Reserved',tab,52,'$',$0D
		dc.b	'Cache Header Length',tab,52,'$',$0D
		dc.b	'=============================================================',$00

		eject
cda_page8
		dc.b	'GS/OS',$0D,$0D
		dc.b	'=============================================================',$0D
		dc.b	'VP',tab,40,'$',tab,50,'= $',$0D
		dc.b	'Ptr',tab,52,'$',$0D
		dc.b	'Word',tab,56,'$',$0D
		dc.b	'FST ID Number',tab,40,'$',tab,46,'= ',$0D
		dc.b	'=============================================================',$00

		eject
error_page
		dc.b	'GS/OS Error Codes',$0D
		dc.b	'================================================================',$0D
		dc.b	'No_Error',tab,16,'$00 | Drvr_Off_Line',tab,38,'$2F | Dup_Volume',tab,60,'$57',$0D
		dc.b	'Bad_System_Call $01 | Bad_Path_Syntax $40 | Not_Block_Dev',tab,60,'$58',$0D
		dc.b	'Invalid_Pcount  $04 | Invalid_Ref_Num $43 | Invalid_Level',tab,60,'$59',$0D
		dc.b	'GSOS_Active',tab,16,'$07 | Path_Not_Found  $44 | Damaged_Bitmap  $5A',$0D
		dc.b	'Dev_Not_Found',tab,16,'$10 | Vol_Not_Found',tab,38,'$45 | Bad_Path_Names  $5B',$0D
		dc.b	'Invalid_Dev_Num $11 | File_Not_Found  $46 | Not_System_File $5C',$0D
		dc.b	'Drvr_Bad_Req',tab,16,'$20 | Dup_Pathname',tab,38,'$47 | OS_Unsupported  $5D',$0D
		dc.b	'Drvr_Bad_Code',tab,16,'$21 | Volume_Full',tab,38,'$48 | Stack_Overflow  $5F',$0D
		dc.b	'Drvr_Bad_Parm',tab,16,'$22 | Vol_Dir_Full',tab,38,'$49 | Data_Unavail',tab,60,'$60',$0D
		dc.b	'Drvr_Not_Open',tab,16,'$23 | Version_Error',tab,38,'$4A | End_Of_Dir',tab,60,'$61',$0D
		dc.b	'Drvr_Prior_Open $24 | Bad_Stor_Type',tab,38,'$4B | Invalid_Class',tab,60,'$62',$0D
		dc.b	'IRQ_Table_Full  $25 | End_Of_File',tab,38,'$4C | Res_Not_Found',tab,60,'$63',$0D
		dc.b	'Drvr_No_Resrc',tab,16,'$26 | Out_Of_Range',tab,38,'$4D | Invalid_FST_ID  $64',$0D
		dc.b	'Drvr_IO_Error',tab,16,'$27 | Invalid_Access  $4E | Invalid_FST_Op  $65',$0D
		dc.b	'Drvr_No_Dev',tab,16,'$28 | Buff_Too_Small  $4F | FST_Caution',tab,60,'$66',$0D
		dc.b	'Drvr_Busy',tab,16,'$29 | File_Busy',tab,38,'$50 | Dup_Device',tab,60,'$67',$0D
		dc.b	'Drvr_Wr_Prot',tab,16,'$2B | Dir_Error',tab,38,'$51 | Dev_List_Full',tab,60,'$68',$0D
		dc.b	'Drvr_Bad_Count  $2C | Unknown_Vol',tab,38,'$52 | Sup_List_Full',tab,60,'$69',$0D
		dc.b	'Drvr_Bad_Block  $2D | Parm_Range_Err  $53 | Resource_Exist  $70',$0D
		dc.b	'Drvr_Disk_Sw',tab,16,'$2E | Out_Of_Mem',tab,38,'$54 | Res_Add_Err',tab,60,'$71',$0D
		dc.b	'===============================================================',$00

		eject
sys_page
		dc.b	'GS/OS System Calls',$0D
		dc.b	'================================================================',$0D
		dc.b	'Create',tab,16,'$01 | Set Mark',tab,38,'$16 | Get FST Info',tab,60,'$2B',$0D
		dc.b	'Destroy',tab,16,'$02 | Get Mark',tab,38,'$17 | D_Info',tab,60,'$2C',$0D
		dc.b	'OS Shutdown',tab,16,'$03 | Set EOF',tab,38,'$18 | D_Status',tab,60,'$2D',$0D
		dc.b	'Change Path',tab,16,'$04 | Get EOF',tab,38,'$19 | D_Control',tab,60,'$2E',$0D
		dc.b	'Set File Info',tab,16,'$05 | Set Level',tab,38,'$1A | D_Read',tab,60,'$2F',$0D
		dc.b	'Get File Info',tab,16,'$06 | Get Level',tab,38,'$1B | D_Write',tab,60,'$30',$0D
		dc.b	'JudgeName',tab,16,'$07 | Get Dir Entry',tab,38,'$1C | Bind Int',tab,60,'$31',$0D
		dc.b	'Volume',tab,16,'$08 | Begin Session',tab,38,'$1D | Unbind Int',tab,60,'$32',$0D
		dc.b	'Set Prefix',tab,16,'$09 | End Session',tab,38,'$1E | FST Specific',tab,60,'$33',$0D
		dc.b	'Get Prefix',tab,16,'$0A | Session Status  $1F | Add Notify Proc $34',$0D
		dc.b	'Clear Backup',tab,16,'$0B | Get Dev Number  $20 | Del Notify Proc $35',$0D
		dc.b	'Set Sys Prefix  $0C | * Get Last Dev  $21 | D_Rename',tab,60,'$36',$0D
		dc.b	'Null',tab,16,'$0D | * Read Block',tab,38,'$22 | Get Std RefNum  $37',$0D
		dc.b	'Expand Path',tab,16,'$0E | * Write Block',tab,38,'$23 | Get RefNum',tab,60,'$38',$0D
		dc.b	'Get Sys Prefix  $0F | Format',tab,38,'$24 | Get Ref Info',tab,60,'$39',$0D
		dc.b	'Open',tab,16,'$10 | Erase Disk',tab,38,'$25 | Set Std RefNum  $3A',$0D
		dc.b	'New Line',tab,16,'$11 | Reset Cache',tab,38,'$26 |=====================',$0D
		dc.b	'Read',tab,16,'$12 | Get Name',tab,38,'$27 | Class 0       $00xx',$0D
		dc.b	'Write',tab,16,'$13 | Get Boot Vol',tab,38,'$28 | Class 1       $20xx',$0D
		dc.b	'Close',tab,16,'$14 | QUIT',tab,38,'$29 |=====================',$0D
		dc.b	'Flush',tab,16,'$15 | Get Version',tab,38,'$2A | * = Class 0 only',$0D
		dc.b	'================================================================',$00

		eject
svc_page
		dc.b	'GS/OS System Service Calls',$0D
		dc.b	'=========================================================================',$0D
		dc.b	'Dev Dispatcher $01FC00 | Set Sys Speed  $01FC50 | Report Fatal    $01FCA0',$0D
		dc.b	'Cache Find Blk $01FC04 | Cache Flsh Def $01FC54 | Sup Drvr Disp   $01FCA4',$0D
		dc.b	'Cache Add Blk  $01FC08 | Rename VCR     $01FC58 | Install Driver  $01FCA8',$0D
		dc.b	'Cache Init     $01FC0C | Rename FCR     $01FC5C | Get Boot Pfx    $01FCAC',$0D
		dc.b	'Cache Shutdn   $01FC10 | Get VCR        $01FC60 | Set Boot Pfx    $01FCB0',$0D
		dc.b	'Cache Del Blk  $01FC14 | Get FCR        $01FC64 | Alloc Cache Seg $01FCB4',$0D
		dc.b	'Cache Del Vol  $01FC18 | Lock Mem       $01FC68 | Get Stack ID    $01FCB8',$0D
		dc.b	'Alloc Seg      $01FC1C | Unlock Mem     $01FC6C | Slot Arbiter    $01FCBC',$0D
		dc.b	'Release Seg    $01FC20 | Move Info      $01FC70 | Parse Pathname  $01FCC0',$0D
		dc.b	'Alloc VCR      $01FC24 | CVT 0 to 1     $01FC74 | Post OS Event   $01FCC4',$0D
		dc.b	'Release VCR    $01FC28 | CVT 1 to 0     $01FC78 | Dynamic Install $01FCC8',$0D
		dc.b	'Alloc FCR      $01FC2C | Replace 80     $01FC7C | Dev Mgr SVC     $01FCCC',$0D
		dc.b	'Release FCR    $01FC30 | To Bank 0 core $01FC80 | Old Dev Disp    $01FCD0',$0D
		dc.b	'Swap Out       $01FC34 | Gen Dispatch   $01FC84 | Init Parse Path $01FCD4',$0D
		dc.b	'Deref          $01FC38 | Signal         $01FC88 | Unbind Int Vec  $01FCD8',$0D
		dc.b	'Get Sys GBuf   $01FC3C | Get Sys Buffer $01FC8C | Do Insert Scan  $01FCDC',$0D
		dc.b	'Sys Exit       $01FC40 | Set Disk Sw    $01FC90 |',$0D
		dc.b	'Sys Death      $01FC44 | Report Error   $01FC94 |',$0D
		dc.b	'Find VCR       $01FC48 | Mount Message  $01FC98 |',$0D
		dc.b	'Find FCR       $01FC4C | Full Error     $01FC9C |',$0D
		dc.b	'=========================================================================',$00

		eject
id_page
		dc.b	'GS/OS User ID Numbers',$0D
		dc.b	$0D
		dc.b	'============================================',$0D
		dc.b	'RESERVED (Never to be used)',tab,39,'$30XX',$0D
		dc.b	'System Control Manager (SCM)',tab,39,'$31XX',$0D
		dc.b	'GLoader & GQuit',tab,39,'$32XX',$0D
		dc.b	'File System Translator (FST)',tab,39,'$33XX',$0D
		dc.b	'Express Loader',tab,39,'$34XX',$0D
		dc.b	'RESERVED',tab,39,'$35XX',$0D
		dc.b	'RESERVED',tab,39,'$36XX',$0D
		dc.b	'RESERVED',tab,39,'$37XX',$0D
		dc.b	'RESERVED',tab,39,'$38XX',$0D
		dc.b	'Device Driver',tab,39,'$39XX',$0D
		dc.b	'Supervisory Driver',tab,39,'$3AXX',$0D
		dc.b	'Allocated by a Supervisory Driver',tab,39,'$3BXX',$0D
		dc.b	'Allocated by a Device Driver',tab,39,'$3CXX',$0D
		dc.b	'Generated Driver Device Info Blocks',tab,39,'$3DXX',$0D
		dc.b	'Supervisory Driver List',tab,39,'$3EXX',$0D
		dc.b	'Device Driver List & Device Dispatcher $3FXX',$0D
		dc.b	'============================================',$00

		eject
trap_page	dc.b	'GS/OS Call Traps - (Enter number of desired trap)',$0D
		dc.b	$0D
		dc.b	'==========================================================',$0D
		dc.b	'1 = System Call Trap',$0D
		dc.b	'2 = Device Driver Call Trap',$0D
		dc.b	'3 = Supervisor Driver Call Trap',$0D
		dc.b	'4 = OS Queue Trap',$0D
		dc.b	'==========================================================',$00

systrap_page	dc.b	'GS/OS System Call Traps',$0D
		dc.b	'==========================================================',$0D
		dc.b	'Call Number:',tab,20,'$0000 = Inactivate trap',$0D
		dc.b	tab,20,'$nnnn = Specific call',$0D
		dc.b	tab,20,'$FFFF = Wild Card',$0D
		dc.b	'Error Number:',tab,20,'$0000 = Trap on no error',$0D
		dc.b	tab,20,'$nnnn = Specific error',$0D
		dc.b	tab,20,'$FFFF = Wild Card',$0D
		dc.b	'Occurance:',tab,20,'$0000 = Any occurance',$0D
		dc.b	tab,20,'$nnnn = Specific occurance',$0D
		dc.b	'==========================================================',$0D
sys_call_str	dc.b	'Enter call number     = $',$00
sys_err_str	dc.b	'Enter error number    = $',$00
sys_cnt_str	dc.b	'Enter occurance count = $',$00
trigger_str	dc.b	'Trigger on store to $F80000 + Call_Num on entry or...',$0D
		dc.b	'                    $F90000 + Call_Num on exit.',$0D,$00
trap_in_str	dc.b	'==========================================================',$0D
		dc.b	'Trap (de)installed.  Press an arrow to exit trap menu.',$00
		
drvrtrap_page	dc.b	'GS/OS Driver Call Traps',$0D
		dc.b	'==========================================================',$0D
		dc.b	'Call Number:',tab,20,'$0000 = Inactivate trap',$0D
		dc.b	tab,20,'$nnnn = Specific call number',$0D
		dc.b	tab,20,'$FFFF = Wild Card',$0D
		dc.b	'Error Number:',tab,20,'$0000 = Trap on no error',$0D
		dc.b	tab,20,'$nnnn = Specific error',$0D
		dc.b	tab,20,'$FFFF = Wild Card',$0D
		dc.b	'Device Number:',tab,20,'$0000 = Trap on any device',$0D
		dc.b	tab,20,'$nnnn = Specific device',$0D
		dc.b	'Block Number:',tab,20,'$FFFFFFFF = Wild Card',$0D
		dc.b	tab,20,'$nnnnnnnn = Specific block number',$0D
		dc.b	'Occurance:',tab,20,'$0000 = Any occurance',$0D
		dc.b	tab,20,'$nnnn = Specific occurance',$0D
		dc.b	'==========================================================',$0D
drvr_call_str	dc.b	'Enter call number     = $',$00
drvr_err_str	dc.b	'Enter error number    = $',$00
drvr_dev_str	dc.b	'Enter device number   = $',$00
drvr_blk_str	dc.b	'Enter block number    = $',$00
drvr_cnt_str	dc.b	'Enter occurance count = $',$00

suptrap_page	dc.b	'GS/OS Supervisor Driver Call Traps',$0D
		dc.b	$0D
		dc.b	'==========================================================',$0D
		dc.b	'Call Number:',tab,20,'$0000 = Inactivate trap',$0D
		dc.b	tab,20,'$nnnn = Specific call',$0D
		dc.b	tab,20,'$FFFF = Wild Card',$0D
		dc.b	'Error Number:',tab,20,'$0000 = Trap on no error',$0D
		dc.b	tab,20,'$nnnn = Specific error',$0D
		dc.b	tab,20,'$FFFF = Wild Card',$0D
		dc.b	'Supervisor Number:  $0000 = Trap on any supervisor',$0D
		dc.b	tab,20,'$nnnn = Specific supervisor',$0D
		dc.b	'Occuranced:',tab,20,'$0000 = Any occurance',$0D
		dc.b	tab,20,'$nnnn = Specific occurance',$0D
		dc.b	'==========================================================',$0D
sup_call_str	dc.b	'Enter call number        = $',$00
sup_err_str	dc.b	'Enter error number       = $',$00
sup_num_str	dc.b	'Enter supervisor number  = $',$00
sup_cnt_str	dc.b	'Enter occurance count    = $',$00

		eject
queue_trap
		dc.b	'GS/OS Event Queue Traps',$0D
		dc.b	$0D
		dc.b	'==========================================================',$0D
		dc.b	'Disable OS event queue trap..............................0',$0D
		dc.b	'Trap disk insert event...................................1',$0D
		dc.b	'Trap disk eject event....................................2',$0D
		dc.b	'Trap volume change event.................................3',$0D
		dc.b	'Enter number of desired trap',$0D
		dc.b	'==========================================================',$00
		
os_trap_alert
		dc.b	'OS Call Trap'
		dc.b	'==========================================================',$0D
		dc.b	'GS/OS Call Via',tab,20,'$00E100xx |',$0D
		dc.b	'Call Number',tab,24,'$xxxx |',$0D
		dc.b	'Parameter Block',tab,20,'$xxxxxxxx |',$0D
		dc.b	'Error Code',tab,24,'$xxxx |',$0D
		dc.b	'==========================================================',$0D

drvr_trap_alert
		dc.b	'Device Driver Trap'
		dc.b	'==========================================================',$0D
		dc.b	'Device Number',tab,24,'$xxxx | Device Name .',$0D
		dc.b	'Call Number',tab,24,'$xxxx |                           ',$0D
		dc.b	'Buffer Address',tab,20,'$xxxxxxxx |',$0D
		dc.b	'Request Count',tab,20,'$xxxxxxxx |',$0D
		dc.b	'Transfer Count',tab,20,'$xxxxxxxx |',$0D
		dc.b	'Block Number',tab,20,'$xxxxxxxx |',$0D
		dc.b	'Block Size',tab,24,'$xxxx |',$0D
		dc.b	'FST ID / Status Code',tab,24,'$xxxx |',$0D
		dc.b	'Volume ID Number',tab,24,'$xxxx |',$0D
		dc.b	'Cache Priority',tab,24,'$xxxx |',$0D
		dc.b	'Error Code',tab,24,'$xxxx |',$0D
		dc.b	'==========================================================',$0D
		dc.b	'Hit RETURN to continue',$00

sup_trap_alert
		dc.b	'Supervisor Driver Trap'
		dc.b	'==========================================================',$0D
		dc.b	'Supervisor Number',tab,24,'$xxxx |',$0D
		dc.b	'Call Number',tab,24,'$xxxx |',$0D
		dc.b	'Parameter Block',tab,24,'$xxxxxxxx |',$0D
		dc.b	'Supervisor ID',tab,24,'$xxxx |',$0D
		dc.b	'Error Code',tab,24,'$xxxx |',$0D
		dc.b	'==========================================================',$0D
		dc.b	'Hit RETURN to continue',$00

event_trap_alert
		dc.b	'GS/OS Event Queue Trap'
		dc.b	'==========================================================',$0D
		dc.b	'Event Flag',tab,24,'$xxxx |',$0D
		dc.b	'X Register',tab,24,'$xxxx |',$0D
		dc.b	'Y Register',tab,24,'$xxxx |',$0D
		dc.b	'==========================================================',$0D
		dc.b	'Hit RETURN to continue',$00

		eject

prompt_0	dc.b	'Enter TRAP system call number      = $',$00
prompt_1	dc.b	'Enter TRAP system error number     = $',$00
prompt_2	dc.b	'Enter TRAP driver call number      = $',$00
prompt_3	dc.b	'Enter TRAP driver error number     = $',$00
prompt_4	dc.b	'Enter TRAP supervisor call number  = $',$00
prompt_5	dc.b	'Enter TRAP supervisor error number = $',$00

		eject
fst_page
		dc.b	'GS/OS File System Translator Numbers',$0D
		dc.b	$0D
		dc.b	'================================================================',$0D
		dc.b	'ProDOS                          $0001',$0D
		dc.b	'Dos 3.3                         $0002',$0D
		dc.b	'Dos 3.1 or Dos 3.2              $0003',$0D
		dc.b	'Apple][ Pascal                  $0004',$0D
		dc.b	'Macintosh File System (MFS)     $0005',$0D
		dc.b	'Hierarchical File System (HFS)  $0006',$0D
		dc.b	'Lisa                            $0007',$0D
		dc.b	'Apple CP/m                      $0008',$0D
		dc.b	'Character                       $0009',$0D
		dc.b	'MS-DOS                          $000A',$0D
		dc.b	'High Sierra                     $000B',$0D
		dc.b	'Reserved                        $000C',$0D
		dc.b	'AppleShare                      $000D',$0D
		dc.b	'Reserved                        $000E - $FFFF',$0D
		dc.b	'================================================================',$00

fst_hdr_page	dc.b	'GS/OS File System Translator (FST) Header',$0D
		dc.b	$0D
		dc.b	'=============================================================',$0D
		dc.b	'FST Name =                                                   ',$0D
		dc.b	'FST Header Base Address',tab,52,'$',$0D
		dc.b	'FST Application Entry',tab,52,'$',$0D
		dc.b	'FST System Entry',tab,52,'$',$0D
		dc.b	'FST ID Number',tab,56,'$',$0D
		dc.b	'FST Flag Word',tab,56,'$',$0D
		dc.b	'FST Version',tab,56,'$',$0D
		dc.b	'FST Normal Block Size',tab,56,'$',$0D
		dc.b	'FST Maximum Number of Blocks per Volume',tab,52,'$',$0D
		dc.b	'FST Minimum Number of Blocks per Volume',tab,52,'$',$0D
		dc.b	'FST Maximum File Size',tab,52,'$',$0D
		dc.b	'FST Reserved',tab,52,'$',$0D
		dc.b	'=============================================================',$00

		eject
block_page
		dc.b	'  APPLICATION',$0D
		dc.b	'       |',$0D
		dc.b	'      SCM GQUIT SYSSVC IRQ',$0D
		dc.b	'       |______________________________________________________________',$0D
		dc.b	'       |       |         |        |        |        |    |    |       |',$0D
		dc.b	'   CHARACTER PRODOS HIGHSIERRA DEVICE` APPLETALK DOS3.3 HFS MS-DOS PASCAL',$0D
		dc.b	'   ```FST``` `FST`` ````FST``` MANAGER ```FST``` ``FST` FST `FST`` ``FST`',$0D
		dc.b	'       |_______|_________|________|________|________|____|____|_______|',$0D
		dc.b	'       |',$0D
		dc.b	'DEVICE`DISPATCHER',$0D
		dc.b	'       |_______________________________________________________',$0D
		dc.b	'       |          |        |        |        |                 |',$0D
		dc.b	'  APPLEDISK3.5 CONSOLE  SCSI`HD APPLETALK SCSI`CD           DISK][',$0D
		dc.b	'  ``DRIVER```` DRIVER`  DRIVER` `DRIVER`` DRIVER`           DRIVER',$0D
		dc.b	'       |          |        |________|________|                 |',$0D
		dc.b	'       |          |                 |                          |',$0D
		dc.b	'       |          |       SUPERVISOR`DISPATCHER                |',$0D
		dc.b	'       |          |           ______|___________               |',$0D
		dc.b	'       |          |          |                  |              |',$0D
		dc.b	'       |          |    SCSI`MANAGER        SCC`MANAGER         |',$0D
		dc.b	'       |          |       ___|___         ______|______        |',$0D
		dc.b	'       |          |      |       |       |      |      |       |',$0D
		dc.b	'  APPLEDISK3.5 SCREEN SCSI`HD SCSI`CD PRINTER MODEM NETWORK DISK][',$00
	
		eject
bank_e1_page
		dc.b	'GS Bank $E1 Vectors',$0D
		dc.b	$0D
		dc.b	'=======================================================================',$0D
		dc.b	'Tool Locator 1             $E10000 | VBL IRQ Handler            $E10030',$0D
		dc.b	'Tool Locator 2             $E10004 | Mouse IRQ Handler          $E10034',$0D
		dc.b	'User Tool Locator 1        $E10008 | Quarter Second IRQ Handler $E10038',$0D
		dc.b	'User Tool Locator 2        $E1000C | Keyboard IRQ Handler       $E1003C',$0D
		dc.b	'Interrupt Manager          $E10010 | ADB Response IRQ Handler   $E10040',$0D
		dc.b	'COP Manager                $E10014 | ADB SRQ IRQ Handler        $E10044',$0D
		dc.b	'Abort Manager              $E10018 | Desk Accessory IRQ Handler $E10048',$0D
		dc.b	'Fatal System Manager       $E1001C | ADB Flush IRQ Handler      $E1004C',$0D
		dc.b	'AppleTalk IRQ Handler      $E10020 | Key Micro IRQ Handler      $E10050',$0D
		dc.b	'Serial Port IRQ Handler    $E10024 | One Second IRQ Handler     $E10054',$0D
		dc.b	'Scan Line IRQ Handler      $E10028 | VGC External IRQ Handler   $E10058',$0D
		dc.b	'Sound IRQ Handler          $E1002C | Other IRQ Handler          $E1005C',$0D
		dc.b	'=======================================================================',$00

		eject
express_page
		dc.b	'ExpressLoad Information',$0D
		dc.b	$0D
		dc.b	'=============================================================',$0D
		dc.b	'ExpressLoad Handle                      $         = $',$0D
		dc.b	'Current Express Segment                                 $',$0D
		dc.b	'=============================================================',$0D
		dc.b	'Express Segment User ID',tab,56,'$',$0D
		dc.b	'ExpressLoad Segment Handle',tab,40,'$',tab,50,'= $',$0D
		dc.b	'Express Segment Stack Address',tab,56,'$',$0D
		dc.b	'Express Segment Stack Size',tab,56,'$',$0D
		dc.b	'Express Segment Starting Address',tab,52,'$',$0D
		dc.b	'Express Segment Reserved Field',tab,56,'$',$0D
		dc.b	'Express Segment FileName Pointer',tab,52,'$',$0D
		dc.b	'Express Segment FileName :                                   ',$0D
		dc.b	'                                                             ',$0D
		dc.b	'=============================================================',$00

file_list_page
		dc.b	'Device Dispatcher File List',$0D
		dc.b	$0D
		dc.b	'=============================================================',$0D
		dc.b	'File List Pointer',tab,52,'$',$0D
		dc.b	'Current File List Entry Number',tab,56,'$',$0D
		dc.b	'Current File List Entry Address',tab,52,'$',$0D
		dc.b	'=============================================================',$0D
		dc.b	'FileType',tab,56,'$',$0D
		dc.b	'AuxType',tab,56,'$',$0D
		dc.b	'User ID',tab,56,'$',$0D
		dc.b	'File Load Address',tab,52,'$',$0D
		dc.b	'File Name =                                                  ',$0D
		dc.b	'Restart Flag',tab,56,'$',$0D
		dc.b	'Base Device Number',tab,56,'$',$0D
		dc.b	'=============================================================',$00

vbl_page
		dc.b	'VBL Interrupt Queue',$0D
		dc.b	$0D
		dc.b	'=============================================================',$0D
		dc.b	'Current Task Header Address',tab,52,'$',$0D
		dc.b	'Next Task Header Address',tab,52,'$',$0D
		dc.b	'Current Task Count',tab,56,'$',$0D
		dc.b	'Current Task Signature Word',tab,56,'$',$0D
		dc.b	'Current Task Handler Address',tab,52,'$',$0D
		dc.b	'=============================================================',$0D
		dc.b	'NOTE: VBL Handlers are executed in 8 bit native mode.',$00
		
death_page	dc.b	'System Death Trap',$0D
		dc.b	'=============================================================',$0D
		dc.b	'Up arrow installs the system death trap.',$0D
		dc.b	'Down arrow removes the system death trap.',$0D
		dc.b	'=============================================================',$00

death_page1	dc.b	'System Death Trap Removed.  ',$00
		
death_page2	dc.b	'System Death Trap Installed.',$00
		
death_trap_pg	dc.b	'System Fatal Error Trap',$0D
		dc.b	'=============================================================',$0D
		dc.b	'Error Code',tab,56,'$    ',$0D
		dc.b	'Replacement String Address',tab,52,'$        ',$0D
		dc.b	'Replacement String:                                          ',$0D
		dc.b	'=============================================================',$0D
		dc.b	'Use right or left arrow to access other display pages.',$00
		
		eject
drvr_page
		dc.b	'GS/OS Driver Calls, Status and Control Codes',$0D
		dc.b	'===============================================================',$0D
		dc.b	'DRIVER CALLS     | STATUS CODES         | CONTROL CODES        ',$0D
		dc.b	'===============================================================',$0D
		dc.b	'Startup    $0000 | General Status $0000 | Reset Device    $0000',$0D
		dc.b	'Open       $0001 | Config. Parms  $0001 | Format          $0001',$0D
		dc.b	'Read       $0002 | Wait/No Wait   $0002 | Eject           $0002',$0D
		dc.b	'Write      $0003 | Format Options $0003 | Config. Parms   $0003',$0D
		dc.b	'Close      $0004 | Partition Map  $0004 | Wait/No Wait    $0004',$0D
		dc.b	'Status     $0005 |',tab,40,'| Format Options  $0005',$0D
		dc.b	'Control    $0006 |',tab,40,'| Partition Owner $0006',$0D
		dc.b	'Flush      $0007 |',tab,40,'| Arm Signal      $0007',$0D
		dc.b	'Shutdown   $0008 |',tab,40,'| Disarm Signal   $0008',$0D
		dc.b	'',tab,40,'| Partition Map   $0009',$00
		dc.b	'===============================================================',$00

dev_char_page
		dc.b	'GS/OS Device Characteristics',$0D
		dc.b	'============================================================================',$0D
		dc.b	' ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ',$0D
		dc.b	'|   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |',$0D
		dc.b	'| F | E | D | C | B | A | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 |',$0D
		dc.b	'|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|',$0D
		dc.b	'  |   |   |   |   |   |   |   |   |   |   |       |   |__________ Removable',$0D
		dc.b	'  |   |   |   |   |   |   |   |   |   |   |       |______________ Format',$0D
		dc.b	'  |   |   |   |   |   |   |   |   |   |   |______ Read',$0D
		dc.b	'  |   |   |   |   |   |   |   |   |   |__________ Write',$0D
		dc.b	'  |   |   |   |   |   |   |   |   |______________ Block Device',$0D
		dc.b	'  |   |   |   |   |   |   |   |__ Speed Group (lsb)',$0D
		dc.b	'  |   |   |   |   |   |   |______ Speed Group (msb)',$0D
		dc.b	'  |   |   |   |   |   |__________ Fixed Name',$0D
		dc.b	'  |   |   |   |   |______________ Restartable',$0D
		dc.b	'  |   |   |   |__ Device Busy (Maintained by device dispatcher)',$0D
		dc.b	'  |   |   |______ Linked DIB',$0D
		dc.b	'  |   |__________ Generated Device Driver',$0D
		dc.b	'  |______________ RAM or ROM Disk',$00

sup_char_page
		dc.b	'GS/OS Supervisor Characteristics',$0D
		dc.b	'============================================================================',$0D
		dc.b	' ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ',$0D
		dc.b	'|   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |',$0D
		dc.b	'| F | E | D | C | B | A | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 |',$0D
		dc.b	'|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|',$0D
		dc.b	'  |',$0D
		dc.b	'  |______________ Restartable',$00

mem_attr_page
		dc.b	'Memory Attributes',$0D
		dc.b	'==============================================================================',$0D
		dc.b	' ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ',$0D
		dc.b	'|   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |',$0D
		dc.b	'| F | E | D | C | B | A | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 |',$0D
		dc.b	'|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|',$0D
		dc.b	'  |   |',tab,26,'|   |   |',tab,46,'|   |   |   |   |__ AttrBank',$0D
		dc.b	'  |   |',tab,26,'|   |   |',tab,46,'|   |   |   |______ AttrAddr',$0D
		dc.b	'  |   |',tab,26,'|   |   |',tab,46,'|   |   |__________ AttrPage',$0D
		dc.b	'  |   |',tab,26,'|   |   |',tab,46,'|   |______________ AttrNoSpec',$0D
		dc.b	'  |   |',tab,26,'|   |   |',tab,46,'|__ AttrNoCross',$0D
		dc.b	'  |   |',tab,26,'|   |__ AttrPurge (lsb)...00 = not purgeable',$0D
		dc.b	'  |   |',tab,26,'|______ AttrPurge (msb)   01 = least purgeable',$0D
		dc.b	'  |   |__________ AttrFixed',tab,52,'10 = next most purgeable',$0D
		dc.b	'  |______________ AttrLocked',tab,52,'11 = most purgeable',$0D
		dc.b	$0D
		dc.b	'Fixed blocks allocated at bottom. Moveable blocks allocated at top.',$00

		eject
mem_map_page
		dc.b	'GS/OS Memory Map',$0D
		dc.b	'==============================================================================',$0D
		dc.b	'Bank0  _____________',tab,38,'Bank1  _____________',$0D
		dc.b	'$FFFF |',tab,20,'|',tab,38,'$FFFF |_Sys_Svc_(1k)|',$0D
		dc.b	tab,6,'|',tab,20,'|',tab,38,'$FBFF |',tab,58,'|',$0D
		dc.b	tab,6,'|',tab,20,'|',tab,44,'|',tab,49,'System',tab,58,'|',$0D
		dc.b	tab,6,'|',tab,11,'SCM',tab,20,'|',tab,44,'|',tab,49,'Loader',tab,58,'|',$0D
		dc.b	'$E000 |',tab,11,'(12K)',tab,20,'|_____________',tab,38,'$E000 |',tab,50,'(11k)',tab,58,'|_____________',$0D
		dc.b	tab,6,'|',tab,20,'|  Init (3k)  |',tab,44,'|',tab,58,'|  Init (4k)  |',$0D
		dc.b	tab,6,'|',tab,20,'| Disk][ (1k) |',tab,44,'|',tab,58,'|',tab,72,'|',$0D
		dc.b	'$D000 |_____________|_____________|',tab,38,'$D000 |_____________|_____________|',$0D,$0D
		dc.b	'BankE0 _____________',tab,38,'BankE1 _____________',$0D
		dc.b	'$FFFF |',tab,20,'|',tab,38,'$FFFF |',tab,58,'|',$0D
		dc.b	tab,6,'|',tab,11,'Device',tab,20,'|                       |',tab,49,'Apple',tab,58,'|',$0D
		dc.b	tab,6,'|  Dispatcher |',tab,44,'|',tab,49,'Talk',tab,58,'|',$0D
		dc.b	tab,6,'|',tab,11,'(8k)',tab,20,'|',tab,44,'|',tab,49,'(8k)',tab,58,'|',$0D
		dc.b	'$E000 |_____________|_____________',tab,38,'$E000 |_____________|_____________',$0D
		dc.b	tab,6,'|',tab,20,   '|   Init (2k) |',tab,44,'| SCM (1.5k)  |  AppleTalk  |',$0D
		dc.b	tab,6,'| GQuit (4k)  |   SCM (2k)  |',tab,44,'| GQuit (2.5k)|',tab,64,'(4k)',tab,72,'|',$0D
		dc.b	'$D000 |_____________|_____________|',tab,38,'$D000 |_____________|_____________|',$0D,$00
		
mem_map_page2
		dc.b	'GS/OS Memory Map',$0D
		dc.b	'==============================================================================',$0D
		dc.b	'Bank0  _________________',tab,29,'Managed Memory  _______________',$0D
		dc.b	'$BFFF |',tab,24,'|',tab,44,'|',tab,60,'|',$0D
		dc.b	tab,6,'|   GS/OS Stack',tab,24,'|',tab,44,'|  Data  (12k)  |',$0D
		dc.b	'$BE00 |_________________|',tab,44,'|',tab,60,'|',$0D
		dc.b	tab,6,'|GS/OS Direct Page|',tab,44,'|_______________|',$0D
		dc.b	'$BD00 |_________________|',tab,44,'|',tab,60,'|',$0D
		dc.b	tab,6,'|',tab,24,'|',tab,44,'|',tab,60,'|',$0D
		dc.b	tab,6,'|   GQUIT Stack',tab,24,'|',tab,44,'| ProFST  (20k) |',$0D
		dc.b	'$BB00 |_________________|',tab,44,'|_______________|',$0D
		dc.b	'$BA00 |__Slot_Arbiter___|',tab,44,'| Dispatch (3k) |',$0D
		dc.b	tab,6,'|',tab,24,'|',tab,44,       '|_______________|',$0D
		dc.b	tab,6,'|       SCM',tab,24,'|',tab,44,'| Dev Mgr  (1k) |',$0D
		dc.b	tab,6,'|',tab,24,'|',tab,44,'|_______________|',$0D
		dc.b	'$B300 |_________________|',tab,44,'| CharFST  (1k) |',$0D
		dc.b	'$B200 |___Init_Package__|',tab,44,'|_______________|',$0D
		dc.b	tab,6,'| Bank 0 Dispatch |',tab,44,' _______________',$0D
		dc.b	'$AA00 |_________________|',tab,44,'| AD 3.5 Buffer |',$0D
		dc.b	tab,6,'|  Cache Manager  |',tab,35,'$01/BB00 |______(1k)_____|',$0D
		dc.b	'$A200 |_________________|',tab,44,'| System Loader |',$0D
		dc.b	tab,6,'|',tab,14,'SCM',tab,24,'|',tab,44,'|    (5.25 k)   |',$0D
		dc.b	'$9A00 |_________________|',tab,35,'$01/A600 |_______________|',$0D,$00
		
		eject
user_id_page
		dc.b	'System User ID',$0D
		dc.b	'==============================================================================',$0D
		dc.b	' ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ',$0D
		dc.b	'|   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |',$0D
		dc.b	'| F | E | D | C | B | A | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 |',$0D
		dc.b	'|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|',$0D
		dc.b	'  |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |  ',$0D
		dc.b	'  |   |   |   |   |   |   |   |   |___|___|___|___|___|___|___|__ Assigned by',$0D
		dc.b	'  |   |   |   |   |   |   |   |                                   ID Manager.',$0D
		dc.b	'  |   |   |   |   |___|___|___|__ Assigned by application, tool or OS.',$0D
		dc.b	'  |___|___|___|__ Assigned by convention as follows:',$0D
		dc.b	'                  $0Xnn = Memory Manager',$0D
		dc.b	'                  $1Xnn = Application',$0D
		dc.b	'                  $2Xnn = Control Programs',$0D
		dc.b	'                  $3Xnn = Operating System',$0D
		dc.b	'                  $4Xnn = Tool Sets          (nn = Tool Number)',$0D
		dc.b	'                  $5Xnn = Desk Accessories   (nn assigned by desk manager)',$0D
		dc.b	'                  $6Xnn = Run Time Libraries',$0D
		dc.b	'                  $7Xnn = System Loader      (nn assigned by system loader)',$0D
		dc.b	'                  $8Xnn = Firmware',$0D
		dc.b	'                  $9Xnn = Tool Locator',$0D
		dc.b	'                  $AXnn = Setup File',$0D
		dc.b	'          $BXnn - $FXnn = Undefined',$00

monitor_page
		dc.b	'Visit the Monitor',$0D
		dc.b	'=============================================================',$0D
		dc.b	'This is not available at this time.',$00
		
		eject
scsi_page
		dc.b	'SCSI Manager Direct Page',$0D
		dc.b	'=============================================================',$0D
		dc.b	'SCSI Manager Direct Page',tab,52,'$',$0D
		dc.b	'SCSI Number of SCSI Cards',tab,56,'$',$0D
		dc.b	'SCSI Device Records On-Line',tab,56,'$',$0D
		dc.b	'SCSI Manager I/O Table Pointer',tab,52,'$',$0D
		dc.b	'SCSI Device Record Table Pointer',tab,52,'$',$0D
		dc.b	'SCSI Routine Table',tab,52,'$',$00
		
scsi_page1
		dc.b	'SCSI Manager I/O Record',$0D
		dc.b	'=============================================================',$0D
		dc.b	'Now viewing I/O record for slot number',tab,56,'$',$0D
		dc.b	'=============================================================',$0D
		dc.b	'SCSI Slot Number',tab,56,'$',$0D
		dc.b	'SCSI Hardware Type',tab,56,'$',$0D
		dc.b	'SCSI 5380 Base Address',tab,52,'$',$0D
		dc.b	'SCSI DMA Base Address',tab,52,'$ ',$0D
		dc.b	'SCSI I/O Attributes',tab,56,'$',$0D
		dc.b	'SCSI Initiator Priority',tab,56,'$',$0D
		dc.b	'=============================================================',$0D
		dc.b	'Target 0 Logicals',tab,24,'$',tab,30,'| Target 4 Logicals',tab,56,'$',$0D
		dc.b	'Target 1 Logicals',tab,24,'$',tab,30,'| Target 5 Logicals',tab,56,'$',$0D
		dc.b	'Target 2 Logicals',tab,24,'$',tab,30,'| Target 6 Logicals',tab,56,'$',$0D
		dc.b	'Target 3 Logicals',tab,24,'$',tab,30,'| Target 7 Logicals',tab,56,'$',$00
		
scsi_page2
		dc.b	'SCSI Manager Device Record',$0D
		dc.b	'=============================================================',$0D
		dc.b	'Next Device Record Link',tab,52,'$',$0D
		dc.b	'Parameter List Pointer',tab,52,'$',$0D
		dc.b	'Device ID',tab,56,'$',$0D
		dc.b	'Device Type',tab,56,'$',$0D
		dc.b	'SCSI Standard Version',tab,56,'$',$0D
		dc.b	'Flags',tab,56,'$',$0D
		dc.b	'Sub-Logical Unit (RESERVED)',tab,56,'$',$0D
		dc.b	'Logical Unit',tab,56,'$',$0D
		dc.b	'Target Priority',tab,56,'$',$0D
		dc.b	'Initiator Priority',tab,56,'$',$0D
		dc.b	'Slot Number',tab,56,'$',$0D
		dc.b	'5380 Base Address',tab,52,'$ ',$0D
		dc.b	'DMA Base Address',tab,52,'$',$0D
		dc.b	'Time Out',tab,52,'$',$0D
		dc.b	'Completion Vector',tab,52,'$',$0D
		dc.b	'Command Pointer',tab,52,'$',$0D
		dc.b	'Data Chaining Offset',tab,52,'$',$0D
		dc.b	'Data Buffer Pointer',tab,52,'$',$0D
		dc.b	'Request Byte Count',tab,52,'$',$00

scsi_page3
		dc.b	'SCSI Manager Internal Variables',$0D
		dc.b	'=============================================================',$0D
		dc.b	'SCSI Manager Miscellaneous Tools User ID',tab,56,'$',$0D
		dc.b	'Work Area Handle',tab,40,'$',tab,50,'= $',$0D
		dc.b	'Driver/Manager Direct Page Handle',tab,40,'$',tab,50,'= $',$0D
		dc.b	'Manager Direct Page',tab,56,'$',$0D
		dc.b	'GS/OS Direct Page',tab,56,'$',$0D
		dc.b	'Manager Driver Number',tab,56,'$',$0D
		dc.b	'Previous Slot',tab,56,'$',$0D
		dc.b	'Previous ID',tab,56,'$',$0D
		dc.b	'Previous Device Record Pointer',tab,52,'$',$0D
		dc.b	'Next most previous Slot',tab,56,'$',$0D
		dc.b	'Next most previous ID',tab,56,'$',$0D
		dc.b	'Next most previous Device Record Pointer',tab,52,'$',$0D
		dc.b	'Boot Slot Number',tab,56,'$',$0D
		dc.b	'Busy SDR count',tab,56,'$',$00

no_scsi_page
		dc.b	'SCSI Manager Internal Data Structures',$0D
		dc.b	'=============================================================',$0D
		dc.b	'SCSI Manager not installed.',$00
				
device_id_page
		dc.b	'Device ID',$0D
		dc.b	'=============================================================',$0D
		dc.b	'AppleDisk 5.25',tab,24,'$0000 | File Server',tab,56,'$0010',$0D
		dc.b	'ProFile (5 Meg)',tab,24,'$0001 | IBX',tab,56,'$0011',$0D
		dc.b	'ProFile (10 Meg)',tab,24,'$0002 | Apple DeskTop Bus',tab,56,'$0012',$0D
		dc.b	'AppleDisk 3.5',tab,24,'$0003 | Hard Disk (Generic)',tab,56,'$0013',$0D
		dc.b	'SCSI (Generic)',tab,24,'$0004 | Floppy Disk (Generic)',tab,56,'$0014',$0D
		dc.b	'SCSI Hard Disk',tab,24,'$0005 | Tape Drive (Generic)',tab,56,'$0015',$0D
		dc.b	'SCSI Tape Drive',tab,24,'$0006 | Character (Generic)',tab,56,'$0016',$0D
		dc.b	'SCSI CD ROM ',tab,24,'$0007 | MFM Floppy Disk',tab,56,'$0017',$0D
		dc.b	'SCSI Printer',tab,24,'$0008 | Network (Generic)',tab,56,'$0018',$0D
		dc.b	'Modem',tab,24,'$0009 | Sequential Access',tab,56,'$0019',$0D
		dc.b	'Console',tab,24,'$000A | SCSI Scanner',tab,56,'$001A',$0D
		dc.b	'Printer',tab,24,'$000B | Scanner',tab,56,'$001B',$0D
		dc.b	'Serial LaserWriter',tab,24,'$000C | LaserWriter SC',tab,56,'$001C',$0D
		dc.b	'AppleTalk LaserWriter',tab,24,'$000D | AppleTalk Main',tab,56,'$001D',$0D
		dc.b	'RAM Disk',tab,24,'$000E | AppleTalk File Server',tab,56,'$001E',$0D
		dc.b	'ROM Disk',tab,24,'$000F | AppleTalk RPM',tab,56,'$001F',$00

		eject
as_fst_page
		dc.b	'AppleShare FST Info',$0D
		dc.b	'=============================================================',$0D
		dc.b	'cmd',tab,24,'$',tab,30,'| cmd',tab,56,'$',$0D
		dc.b	'result',tab,24,'$',tab,30,'| volid',tab,56,'$',$0D
		dc.b	'completion',tab,20,'$',tab,30,'| bitmap',tab,56,'$',$0D
		dc.b	tab,24,'$',tab,30,'|==============================',$0D
		dc.b	'ticks',tab,24,'$',tab,30,'| reply',tab,56,'$',$0D
		dc.b	tab,20,'$',tab,30,'| date',tab,52,'$',$0D
		dc.b	'==============================|==============================',$0D
		dc.b	'lastmod             $',tab,30,'| devnum',tab,56,'$',$0D
		dc.b	'modcount',tab,24,'$',tab,30,'|==============================',$0D
		dc.b	'==============================| cmd',tab,56,'$',$0D
		dc.b	'cmd',tab,24,'$',tab,30,'| result',tab,56,'$',$0D
		dc.b	'result',tab,24,'$',tab,30,'| completion',tab,52,'$',$0D
		dc.b	'completion',tab,20,'$',tab,30,'|',tab,56,'$',$0D
		dc.b	'sessrefnum',tab,24,'$',tab,30,'| ticks',tab,56,'$',$0D
		dc.b	'cmdlen',tab,24,'$',tab,30,'|',tab,56,'$',$0D
		dc.b	'cmdaddr',tab,20,'$',tab,30,'|==============================',$0D
		dc.b	'repbuflen',tab,24,'$',tab,30,'|',$0D
		dc.b	'repbufaddr',tab,20,'$',tab,30,'|',$0D
		dc.b	'cmdres',tab,20,'$ ',tab,30,'|',$0D
		dc.b	'replen',tab,24,'$',tab,30,'|',$00
*
*	SCRIPT	dc.w	n					; number of elements in script
*		dc.w	ch,cv,len,type,type,res1,res2,res3	; 1st script element
*		dc.w	ch,cv,len,type,type,res1,res2,res3	; 2nd script element
*		dc.w	ch,cv,len,type,type,res1,res2,res3	; 3rd script element
*		dc.w	ch,cv,len,type,type,res1,res2,res3	; 4th script element
*		etc.
*
*	where:	cv	A word value indicating horizontal screen position.
*		ch	A word value indicating vertical screen position.
*		len	A word value indicating length of the display field.
*		offset	A word value indicating the position of data relative to [<temp]
*		type	A word indicating the type of data to be displayed:
*				$0000 = Hex
*				$0001 = Handle
*				$0002 = Virtual Pointer
*				$0003 = Pascal String
*				$0004 = Class 1 input string
*				$0005 = Class 1 output string
*				$0006 = C String
*				$0007 = Binary
*		res1	A reserved word ($0000).
*		res2	A reserved word ($0000).
*		res3	A reserved word ($0000).
*
as_fst_script	dc.w	30					; number of items in script
		dc.w	25,2,word,$0000,t_hex,0,0,0		; cmd
		dc.w	25,3,word,$0002,t_hex,0,0,0		; result
		dc.w	21,4,long,$0004,t_hex,0,0,0		; completion
		dc.w	25,5,word,$0008,t_hex,0,0,0		; 
		dc.w	25,6,word,$000A,t_hex,0,0,0		; ticks
		dc.w	21,7,long,$000C,t_hex,0,0,0		; 
		dc.w	21,9,long,$0010,t_hex,0,0,0		; lastmod
		dc.w	25,10,word,$0014,t_hex,0,0,0		; modcount
		dc.w	25,12,word,$0016,t_hex,0,0,0		; cmd
		dc.w	25,13,word,$0018,t_hex,0,0,0		; result
		dc.w	21,14,long,$001A,t_hex,0,0,0		; completion
		dc.w	27,15,byte,$001E,t_hex,0,0,0		; sessrefnum
		dc.w	25,16,word,$001F,t_hex,0,0,0		; cmdlen
		dc.w	21,17,long,$0021,t_hex,0,0,0		; cmdaddr
		dc.w	25,18,word,$0025,t_hex,0,0,0		; repbuflen
		dc.w	21,19,long,$0027,t_hex,0,0,0		; repbufaddr
		dc.w	21,20,long,$002B,t_hex,0,0,0		; cmdres
		dc.w	25,21,word,$002F,t_hex,0,0,0		; replen
		dc.w	57,2,word,$0031,t_hex,0,0,0		; cmd
		dc.w	57,3,word,$0033,t_hex,0,0,0		; volid
		dc.w	57,4,word,$0035,t_hex,0,0,0		; bitmap
		dc.w	57,6,word,$0037,t_hex,0,0,0		; reply
		dc.w	53,7,long,$0039,t_hex,0,0,0		; date
		dc.w	57,9,word,$003D,t_hex,0,0,0		; devnum
		dc.w	57,11,word,$003F,t_hex,0,0,0		; cmd
		dc.w	57,12,word,$0041,t_hex,0,0,0		; result
		dc.w	53,13,long,$0043,t_hex,0,0,0		; completion
		dc.w	57,14,word,$0047,t_hex,0,0,0		; 
		dc.w	57,15,word,$0049,t_hex,0,0,0		; ticks
		dc.w	53,16,long,$004B,t_hex,0,0,0		; 

dev_stat_page
		dc.b	'GS/OS Block and Character Device Status',$0D
		dc.b	'============================================================================',$0D
		dc.b	'   ______________ Block Count Uncertain',$0D
		dc.b	'  |    __________ Linked Device',$0D
		dc.b	'  |   |    ______ Background Busy',$0D
		dc.b	'  |   |   |                                    __ Online',$0D
		dc.b	'  |   |   |                                   |        __________ Wrprot',$0D
		dc.b	'  |   |   |                                   |       |    ______ Interrupt',$0D
		dc.b	'  |   |   |                                   |       |   |    __ Disksw',$0D
		dc.b	'  |   |   |                                   |       |   |   |',$0D
		dc.b	' ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ',$0D
		dc.b	'|   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |',$0D
		dc.b	'| F | E | D | C | B | A | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 |',$0D
		dc.b	'|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|',$0D
		dc.b	'      |   |                               |   |           |   |__ Open',$0D
		dc.b	'      |   |                               |   |           |______ Interrupt',$0D
		dc.b	'      |   |                               |   |__ Online',$0D
		dc.b	'      |   |                               |______ Buffer Full',$0D
		dc.b	'      |   |______ Background Busy',$0D
		dc.b	'      |__________ Linked Device',$0D,$0D
		dc.b	'All unused bits are returned as zero.',$00
		
ascii_page
		dc.b	'Ascii Chart',$0D
		dc.b	'=======================================================================',$0D
		dc.b	'$00=       $10=      $20=SPACE $30=0 $40=@ $50=P $60=` $70=p',$0D
		dc.b	'$01=       $11=      $21=!     $31=1 $41=A $51=Q $61=a $71=q',$0D
		dc.b	'$02=       $12=      $22="     $32=2 $42=B $52=R $62=b $72=r',$0D
		dc.b	'$03=       $13=      $23=#     $33=3 $43=C $53=S $63=c $73=s',$0D
		dc.b	'$04=       $14=      $24=$     $34=4 $44=D $54=T $64=d $74=t',$0D
		dc.b	'$05=       $15=RIGHT $25=%     $35=5 $45=E $55=U $65=e $75=u',$0D
		dc.b	'$06=       $16=      $26=&     $36=6 $46=F $56=V $66=f $76=v',$0D
		dc.b	'$07=       $17=      $27=''     $37=7 $47=G $57=W $67=g $77=w',$0D
		dc.b	'$08=LEFT   $18=CLEAR $28=(     $38=8 $48=H $58=X $68=h $78=x',$0D
		dc.b	'$09=TAB    $19=      $29=)     $39=9 $49=I $59=Y $69=i $79=y',$0D
		dc.b	'$0A=DOWN   $1A=      $2A=*     $3A=: $4A=J $5A=Z $6A=j $7A=z',$0D
		dc.b	'$0B=UP     $1B=ESC   $2B=+     $3B=; $4B=K $5B=[ $6B=k $7B={',$0D
		dc.b	'$0C=       $1C=      $2C=,     $3C=< $4C=L $5C=\ $6C=l $7C=|',$0D
		dc.b	'$0D=RETURN $1D=      $2D=-     $3D== $4D=M $5D=] $6D=m $7D=}',$0D
		dc.b	'$0E=       $1E=      $2E=.     $3E=> $4E=N $5E=^ $6E=n $7E=~',$0D
		dc.b	'$0F=       $1F=      $2F=/     $3F=? $4F=O $5F=_ $6F=o $7F=DELETE',$00

s_page
		dc.b	'This is a vapor function!!',$0D
		dc.b	'=============================================================',$0D
		dc.b	'Press almost any key to do nothing.',$00
		
		eject
*
* The following strings & table are used to display the FST ID name in the
* volume control record (vcr) and file control record (fcr) display pages.
* Note that for proper scrolling within the vcr and fcr page displayes it
* is neccessary that each of these strings have the same length.
*
prodos_id_str	dc.b	'ProDOS     ',$00
dos_id_str	dc.b	'DOS 3.3    ',$00
dosxx_id_str	dc.b	'DOS 3.x    ',$00
pascal_id_str	dc.b	'Pascal     ',$00
mfs_id_str	dc.b	'MFS        ',$00
hfs_id_str	dc.b	'HFS        ',$00
lisa_id_str	dc.b	'LISA       ',$00
cpm_id_str	dc.b	'CP/M       ',$00
cfst_id_str	dc.b	'Character  ',$00
msdos_id_str	dc.b	'MS-DOS     ',$00
hs_id_str	dc.b	'High Sierra',$00
unk_id_str	dc.b	'Unknown    ',$00
at_id_str	dc.b	'AppleShare ',$00

fst_id_table
		dc.l	prodos_id_str		; fst  1 = ProDOS FST
		dc.l	dos_id_str		; fst  2 = DOS 3.3 FST
		dc.l	dosxx_id_str		; fst  3 = DOS 3.1 & DOS 3.2 FST
		dc.l	pascal_id_str		; fst  4 = Apple][ Pascal FST
		dc.l	mfs_id_str		; fst  5 = MFS FST
		dc.l	hfs_id_str		; fst  6 = HFS FST
		dc.l	lisa_id_str		; fst  7 = LISA FST
		dc.l	cpm_id_str		; fst  8 = Apple CP/m
		dc.l	cfst_id_str		; fst  9 = Character FST
		dc.l	msdos_id_str		; fst  A = MS-DOS FST
		dc.l	hs_id_str		; fst  B = High Sierra FST
		dc.l	unk_id_str		; fst  C = Unknown FST
		dc.l	at_id_str		; fst  D = AppleShare FST
		dc.l	unk_id_str		; fst  E = Unknown FST
		dc.l	unk_id_str		; fst  F = Unknown FST
		dc.l	unk_id_str		; fst 10 = Unknown FST

		eject
*
* The following variables are used to dispatch to the different CDA display pages.
*
vector_table	dc.w	display_page1-1		; Display copyright notice
		dc.w	display_sys-1		; display system calls
		dc.w	display_svc-1		; display system service calls
		dc.w	display_err-1		; display system error codes
		dc.w	display_id-1		; display GS/OS user ID numbers
		dc.w	display_dir_pg-1	; Display GS/OS direct page
		dc.w	display_dib_pg-1	; Display GS/OS device information blocks
		dc.w	display_sib_pg-1	; Display GS/OS supervisor information blocks
		dc.w	display_vcr_pg-1	; Display GS/OS volume control record
		dc.w	display_fcr_pg-1	; Display GS/OS file control record
		dc.w	display_cmi_pg-1	; Display GS/OS cache manager information
		dc.w	display_trap-1		; display trap menus
		dc.w	display_fst-1		; display FST numbers
		dc.w	display_fst_hdr-1	; display FST headers
		dc.w	display_block-1		; display GS/OS block diagram
		dc.w	display_bank_e1-1	; display bank $E1 vectors
		dc.w	display_express-1	; display express load info
		dc.w	display_file_list-1	; display device dispatcher file list
		dc.w	display_vbl-1		; display vbl interrupt queue
		dc.w	death_trap-1		; trap system death
		dc.w	display_driver-1	; display driver calls
		dc.w	display_dev_char-1	; display device characteristics
		dc.w	display_sup_char-1	; display supervisor characteristics
		dc.w	display_mem_attr-1	; display memory attributes
		dc.w	display_mem_map-1	; display GS/OS memory map
		dc.w	goto_monitor-1		; enter the monitor
		dc.w	display_user_id-1	; display system user ID
		dc.w	display_scsi-1		; display SCSI direct page
		dc.w	display_scsi_io-1	; display SCSI i/o record
		dc.w	display_scsi_dev-1	; display SCSI device record
		dc.w	display_scsi_int-1	; display SCSI internals
		dc.w	display_dev_id-1	; V = Device ID List
		dc.w	display_stat-1		; W = Device Status
		dc.w	display_ascii-1		; X = Ascii Chart
		dc.w	display_s-1		; Y = vaporware
		dc.w	display_s-1		; Z = vaporware
		dc.w	display_death-1		; one past last menu item - display trap info

fst_vcr_table	dc.l	prodos_vcr_page		; fst 1 = ProDOS FST
		dc.l	dos_vcr_page		; fst 2 = DOS 3.3 FST
		dc.l	dosxx_vcr_page		; fst 3 = DOS 3.1 & DOS 3.2 FST
		dc.l	pascal_vcr_page		; fst 4 = Apple][ Pascal FST
		dc.l	mfs_vcr_page		; fst 5 = MFS FST
		dc.l	hfs_vcr_page		; fst 6 = HFS FST
		dc.l	lisa_vcr_page		; fst 7 = LISA FST
		dc.l	cpm_vcr_page		; fst 8 = Apple CP/m
		dc.l	cfst_vcr_page		; fst 9 = Character FST
		dc.l	msdos_vcr_page		; fst A = MS-DOS FST
		dc.l	hs_vcr_page		; fst B = High Sierra FST
		dc.l	unk_vcr_page		; fst C = Unknown FST
		dc.l	at_vcr_page		; fst D = AppleShare FST

fst_fcr_table	dc.l	prodos_fcr_page		; fst 1 = ProDOS FST
		dc.l	dos_fcr_page		; fst 2 = DOS 3.3 FST
		dc.l	dosxx_fcr_page		; fst 3 = DOS 3.1 & DOS 3.2 FST
		dc.l	pascal_fcr_page		; fst 4 = Apple][ Pascal FST
		dc.l	mfs_fcr_page		; fst 5 = MFS FST
		dc.l	hfs_fcr_page		; fst 6 = HFS FST
		dc.l	lisa_fcr_page		; fst 7 = LISA FST
		dc.l	cpm_fcr_page		; fst 8 = Apple CP/m
		dc.l	cfst_fcr_page		; fst 9 = Character FST
		dc.l	msdos_fcr_page		; fst A = MS-DOS FST
		dc.l	hs_fcr_page		; fst B = High Sierra FST
		dc.l	unk_fcr_page		; fst C = Unknown FST
		dc.l	at_fcr_page		; fst D = AppleShare FST

		eject
*
* The following tables are used to determine the script address used to 
* display the fst specific data within a vcr or fcr display page.
*
fst_vcr_data	dc.w	prodos_vcr		; fst 1 = ProDOS FST
		dc.w	dos_vcr			; fst 2 = DOS 3.3 FST
		dc.w	dosxx_vcr		; fst 3 = DOS 3.1 & DOS 3.2 FST
		dc.w	pascal_vcr		; fst 4 = Apple][ Pascal FST
		dc.w	mfs_vcr			; fst 5 = MFS FST
		dc.w	hfs_vcr			; fst 6 = HFS FST
		dc.w	lisa_vcr		; fst 7 = LISA FST
		dc.w	cpm_vcr			; fst 8 = Apple CP/m
		dc.w	cfst_vcr		; fst 9 = Character FST
		dc.w	msdos_vcr		; fst A = MS-DOS FST
		dc.w	hs_vcr			; fst B = High Sierra FST
		dc.w	unk_vcr			; fst C = Unknown FST
		dc.w	at_vcr			; fst D = AppleShare FST

fst_fcr_data	dc.w	prodos_fcr		; fst 1 = ProDOS FST
		dc.w	dos_fcr			; fst 2 = DOS 3.3 FST
		dc.w	dosxx_fcr		; fst 3 = DOS 3.1 & DOS 3.2 FST
		dc.w	pascal_fcr		; fst 4 = Apple][ Pascal FST
		dc.w	mfs_fcr			; fst 5 = MFS FST
		dc.w	hfs_fcr			; fst 6 = HFS FST
		dc.w	lisa_fcr		; fst 7 = LISA FST
		dc.w	cpm_fcr			; fst 8 = Apple CP/m
		dc.w	cfst_fcr		; fst 9 = Character FST
		dc.w	msdos_fcr		; fst A = MS-DOS FST
		dc.w	hs_fcr			; fst B = High Sierra FST
		dc.w	unk_fcr			; fst C = Unknown FST
		dc.w	at_fcr			; fst D = AppleShare FST

		eject
*
* The following are scripts used to display fst specific VCR data.
* Scripts have a word count describing the number of items in the script.
* Each item is described by 4 words of data as follows:
*
*		word	horizontal cursor position of displayed data
*		word	vertical cursor position of displayed data
*		word	length of data field in bytes
*		word	offset from beginning of vcr where data can be obtained &
*			flag indicating if the data is a virtual pointer that needs
*			to be dereferenced.  
*
prodos_vcr	dc.w	21			; number of items in script
		dc.w	13,12,4,$0012		; vcr_res (most significant lw)
		dc.w	21,12,4,$000E		; vcr_res (least significant lw)
		dc.w	53,12,4,$0016		; vol_create
		dc.w	27,13,1,$001A		; vol_version
		dc.w	59,13,1,$001B		; vol_min_version
		dc.w	27,14,1,$001C		; vol_access
		dc.w	59,14,1,$001D		; vol_entry_len
		dc.w	27,15,1,$001E		; vol_entries
		dc.w	57,15,2,$001F		; vol_file_count
		dc.w	25,16,2,$0021		; vol_bitmap_addr
		dc.w	57,16,2,$0023		; vol_total_blks
		dc.w	25,17,2,$0025		; num_bitmap_blks
		dc.w	57,17,2,$0027		; end_bitmap
		dc.w	25,18,2,$0029		; avail_bitmap
		dc.w	57,18,2,$002B		; cur_bitmap
		dc.w	25,19,2,$002D		; bitmap_dirty
		dc.w	57,19,2,$002F		; free_blocks
		dc.w	21,20,4,$0031		; vol_damaged
		dc.w	57,20,2,$0033		; dirty_file_cnt
		dc.w	25,21,2,$0035		; bitmap_start
		dc.w	57,21,2,$0037		; pro_vcr_size

dos_vcr		dc.w	2			; number of items in script
		dc.w	41,12,4,$800E		; vcr_buf_vp
		dc.w	25,13,2,$0012		; vcr_cat_sec_count

pascal_vcr	dc.w	2			; 2 items in script
		dc.w	25,12,2,$000E		; date_stamp
		dc.w	57,12,2,$0010		; num_files
		
hfs_vcr
		dc.w	19			; number of items in script
		dc.w	21,12,4,$000E
		dc.w	53,12,4,$0012
		dc.w	25,13,2,$0016
		dc.w	57,13,2,$0018
		dc.w	25,14,2,$001A
		dc.w	57,14,2,$001C
		dc.w	25,15,2,$001E
		dc.w	53,15,4,$0020
		dc.w	21,16,4,$0024
		dc.w	57,16,2,$0028
		dc.w	21,17,4,$002A
		dc.w	57,17,2,$002E
		dc.w	21,18,4,$0030
		dc.w	57,18,2,$0034
		dc.w	21,19,4,$0036
		dc.w	53,19,4,$003A
		dc.w	21,20,4,$003E
		dc.w	53,20,4,$0042
		dc.w	25,21,2,$0046

msdos_vcr
		dc.w	14
		dc.w	25,12,2,$000E		; sector_size
		dc.w	27,13,1,$0010		; cluster_size
		dc.w	25,14,2,$0011		; reserved_sectors
		dc.w	27,15,1,$0013		; FAT_count
		dc.w	25,16,2,$0014		; root_dir_count
		dc.w	25,17,2,$0016		; total_sectors
		dc.w	25,18,2,$0019		; FAT_size
		dc.w	25,19,2,$001F		; hidden_sectors
		dc.w	59,12,1,$0018		; media_desc
		dc.w	57,13,2,$0021		; free_blocks
		dc.w	57,14,2,$0023		; root_dir_block
		dc.w	53,15,4,$0025		; dirty_file_cnt
		dc.w	57,16,2,$0029		; FAT_type
		dc.w	57,17,2,$002B		; data_start

dosxx_vcr
mfs_vcr
lisa_vcr
cpm_vcr
cfst_vcr
unk_vcr
		dc.w	98			; number of items in script
		dc.w	53,13,1,$000E
		dc.w	56,13,1,$000F
		dc.w	11,14,1,$0010
		dc.w	14,14,1,$0011
		dc.w	17,14,1,$0012
		dc.w	20,14,1,$0013
		dc.w	23,14,1,$0014
		dc.w	26,14,1,$0015
		dc.w	29,14,1,$0016
		dc.w	32,14,1,$0017
		dc.w	35,14,1,$0018
		dc.w	38,14,1,$0019
		dc.w	41,14,1,$001A
		dc.w	44,14,1,$001B
		dc.w	47,14,1,$001C
		dc.w	50,14,1,$001D
		dc.w	53,14,1,$001E
		dc.w	56,14,1,$001F
		dc.w	11,15,1,$0020
		dc.w	14,15,1,$0021
		dc.w	17,15,1,$0022
		dc.w	20,15,1,$0023
		dc.w	23,15,1,$0024
		dc.w	26,15,1,$0025
		dc.w	29,15,1,$0026
		dc.w	32,15,1,$0027
		dc.w	35,15,1,$0028
		dc.w	38,15,1,$0029
		dc.w	41,15,1,$002A
		dc.w	44,15,1,$002B
		dc.w	47,15,1,$002C
		dc.w	50,15,1,$002D
		dc.w	53,15,1,$002E
		dc.w	56,15,1,$002F
		dc.w	11,16,1,$0030
		dc.w	14,16,1,$0031
		dc.w	17,16,1,$0032
		dc.w	20,16,1,$0033
		dc.w	23,16,1,$0034
		dc.w	26,16,1,$0035
		dc.w	29,16,1,$0036
		dc.w	32,16,1,$0037
		dc.w	35,16,1,$0038
		dc.w	38,16,1,$0039
		dc.w	41,16,1,$003A
		dc.w	44,16,1,$003B
		dc.w	47,16,1,$003C
		dc.w	50,16,1,$003D
		dc.w	53,16,1,$003E
		dc.w	56,16,1,$003F
		dc.w	11,17,1,$0040
		dc.w	14,17,1,$0041
		dc.w	17,17,1,$0042
		dc.w	20,17,1,$0043
		dc.w	23,17,1,$0044
		dc.w	26,17,1,$0045
		dc.w	29,17,1,$0046
		dc.w	32,17,1,$0047
		dc.w	35,17,1,$0048
		dc.w	38,17,1,$0049
		dc.w	41,17,1,$004A
		dc.w	44,17,1,$004B
		dc.w	47,17,1,$004C
		dc.w	50,17,1,$004D
		dc.w	53,17,1,$004E
		dc.w	56,17,1,$004F
		dc.w	11,18,1,$0050
		dc.w	14,18,1,$0051
		dc.w	17,18,1,$0052
		dc.w	20,18,1,$0053
		dc.w	23,18,1,$0054
		dc.w	26,18,1,$0055
		dc.w	29,18,1,$0056
		dc.w	32,18,1,$0057
		dc.w	35,18,1,$0058
		dc.w	38,18,1,$0059
		dc.w	41,18,1,$005A
		dc.w	44,18,1,$005B
		dc.w	47,18,1,$005C
		dc.w	50,18,1,$005D
		dc.w	53,18,1,$005E
		dc.w	56,18,1,$005F

hs_vcr		dc.w	8			; number of items in script
		dc.w	21,12,4,$000E		; vcr_total_blks
		dc.w	57,12,2,$0012		; vcr_block_size
		dc.w	21,13,4,$0014		; vcr_path_size
		dc.w	53,13,4,$0018		; vcr_root_dir
		dc.w	21,14,4,$003A		; vcr_create_dt
		dc.w	53,14,4,$004B		; vcr_mod_dt
		dc.w	25,15,2,$005C		; vol_state_flag
		dc.w	53,15,4,$005E		; vol_path_table

at_vcr		dc.w	6			; number of items in script
		dc.w	25,12,2,$000E		; sessrefnum
		dc.w	57,12,2,$0010		; volid
		dc.w	25,13,2,$0012		; signature
		dc.w	53,13,4,$0014		; crdate
		dc.w	21,14,4,$0018		; modptr
		dc.w	57,14,2,$001C		; version

		eject
*
* The following are scripts used to display fst specific FCR data.
* Scripts have a word count describing the number of items in the script.
* Each item is described by 4 words of data as follows:
*
*		word	horizontal cursor position of displayed data
*		word	vertical cursor position of displayed data
*		word	length of data field in bytes
*		word	offset from beginning of vcr where data can be obtained &
*			flag indicating if the data is a virtual pointer that needs
*			to be dereferenced.  
*
prodos_fcr	dc.w	15			; number of items in script
		dc.w	25,15,2,$0016		; fcr_res_num
		dc.w	57,15,2,$0018		; fcr_storage
		dc.w	25,16,2,$001A		; fcr_entry_type
		dc.w	57,16,2,$001C		; fcr_file_id
		dc.w	27,17,1,$001E		; fcr_file_type
		dc.w	57,17,2,$001F		; fcr_key_blk
		dc.w	25,18,2,$0021		; fcr_blks_used
		dc.w	53,18,3,$0023		; fcr_eof
		dc.w	21,19,4,$0026		; fcr_create
		dc.w	59,19,1,$002A		; fcr_vers
		dc.w	27,20,1,$002B		; fcr_min_vers
		dc.w	59,20,1,$002C		; fcr_disk_acc
		dc.w	25,21,2,$002D		; fcr_aux_type
		dc.w	53,21,4,$002F		; fcr_modified
		dc.w	25,22,2,$0033		; fcr_header_ptr

dos_fcr		dc.w	12			; number of items in script
		dc.w	41,15,4,$8016		; fcr_buf_vp
		dc.w	21,16,4,$001A		; fcr_eof
		dc.w	57,16,2,$001E		; fcr_aux
		dc.w	21,17,4,$0020		; fcr_mark
		dc.w	57,17,2,$0024		; fcr_type
		dc.w	25,18,2,$0026		; fcr_dos_type
		dc.w	53,18,4,$0028		; fcr_blks_used
		dc.w	25,19,2,$002C		; fcr_entry_num
		dc.w	57,19,2,$002C		; fcr_cat_sec
		dc.w	25,20,2,$002E		; fcr_fde_num
		dc.w	57,20,2,$0030		; fcr_tot_ent
		dc.w	25,20,2,$0030		; fcr_data_sec

hfs_fcr
		dc.w	25			; number of items in script
		dc.w	25,15,2,$0016		; fcr_dev_num
		dc.w	57,15,2,$0018
		dc.w	21,16,4,$001A
		dc.w	53,16,4,$001E
		dc.w	21,17,4,$0022
		dc.w	53,17,4,$0026
		dc.w	21,18,4,$002A
		dc.w	53,18,4,$002E
		dc.w	21,19,4,$0032
		dc.w	53,19,1,$0036
		dc.w	55,19,1,$0037
		dc.w	57,19,1,$0038
		dc.w	59,19,1,$0039
		dc.w	53,20,1,$003A
		dc.w	55,20,1,$003B
		dc.w	57,20,1,$003C
		dc.w	59,20,1,$003D
		dc.w	53,21,1,$003E
		dc.w	55,21,1,$003F
		dc.w	57,21,1,$0040
		dc.w	59,21,1,$0041
		dc.w	21,20,4,$0042
		dc.w	25,21,2,$0046
		dc.w	21,22,4,$0048
		dc.w	53,22,4,$004C

pascal_fcr
		dc.w	11			; number of items in script
		dc.w	25,15,2,$0016		; fcr_start_block
		dc.w	53,15,4,$0018		; fcr_end_block
		dc.w	25,16,2,$001C		; fcr_ending_bytes
		dc.w	53,16,4,$001E		; fcr_eof
		dc.w	21,17,4,$0022		; fcr_mark
		dc.w	57,17,2,$0026		; fcr_file_type
		dc.w	25,18,2,$0028		; fcr_mode
		dc.w	53,18,4,$002A		; fcr_pmark
		dc.w	25,19,2,$002E		; fcr_expand_cnt
		dc.w	57,19,2,$0030		; fcr_io_index
		dc.w	25,20,2,$0032		; fcr_io_size

msdos_fcr
		dc.w	16
		dc.w	25,15,2,$0016		; attributes
		dc.w	25,16,2,$0018		; mod_time
		dc.w	25,17,2,$001A		; mod_date
		dc.w	25,18,2,$001C		; start_cluster
		dc.w	21,19,4,$001E		; eof
		dc.w	25,20,2,$0022		; curr_cluster
		dc.w	25,21,2,$0024		; cluster_blk_num
		dc.w	25,22,2,$0026		; cluster_size
		dc.w	57,15,2,$0028		; status
		dc.w	57,16,2,$002A		; parent
		dc.w	57,17,2,$002C		; entry_offs
		dc.w	53,18,4,$002E		; curr_mark
		dc.w	57,19,2,$0032		; storage
		dc.w	57,20,2,$0034		; gde_entry_num
		dc.w	57,21,2,$0036		; gde_offset
		dc.w	57,22,2,$0038		; gde_init

dosxx_fcr
mfs_fcr
lisa_fcr
cpm_fcr
unk_fcr
		dc.w	90			; number of items in script
		dc.w	29,16,1,$0016
		dc.w	32,16,1,$0017
		dc.w	35,16,1,$0018
		dc.w	38,16,1,$0019
		dc.w	41,16,1,$001A
		dc.w	44,16,1,$001B
		dc.w	47,16,1,$001C
		dc.w	50,16,1,$001D
		dc.w	53,16,1,$001E
		dc.w	56,16,1,$001F
		dc.w	11,17,1,$0020
		dc.w	14,17,1,$0021
		dc.w	17,17,1,$0022
		dc.w	20,17,1,$0023
		dc.w	23,17,1,$0024
		dc.w	26,17,1,$0025
		dc.w	29,17,1,$0026
		dc.w	32,17,1,$0027
		dc.w	35,17,1,$0028
		dc.w	38,17,1,$0029
		dc.w	41,17,1,$002A
		dc.w	44,17,1,$002B
		dc.w	47,17,1,$002C
		dc.w	50,17,1,$002D
		dc.w	53,17,1,$002E
		dc.w	56,17,1,$002F
		dc.w	11,18,1,$0030
		dc.w	14,18,1,$0031
		dc.w	17,18,1,$0032
		dc.w	20,18,1,$0033
		dc.w	23,18,1,$0034
		dc.w	26,18,1,$0035
		dc.w	29,18,1,$0036
		dc.w	32,18,1,$0037
		dc.w	35,18,1,$0038
		dc.w	38,18,1,$0039
		dc.w	41,18,1,$003A
		dc.w	44,18,1,$003B
		dc.w	47,18,1,$003C
		dc.w	50,18,1,$003D
		dc.w	53,18,1,$003E
		dc.w	56,18,1,$003F
		dc.w	11,19,1,$0040
		dc.w	14,19,1,$0041
		dc.w	17,19,1,$0042
		dc.w	20,19,1,$0043
		dc.w	23,19,1,$0044
		dc.w	26,19,1,$0045
		dc.w	29,19,1,$0046
		dc.w	32,19,1,$0047
		dc.w	35,19,1,$0048
		dc.w	38,19,1,$0049
		dc.w	41,19,1,$004A
		dc.w	44,19,1,$004B
		dc.w	47,19,1,$004C
		dc.w	50,19,1,$004D
		dc.w	53,19,1,$004E
		dc.w	56,19,1,$004F
		dc.w	11,20,1,$0050
		dc.w	14,20,1,$0051
		dc.w	17,20,1,$0052
		dc.w	20,20,1,$0053
		dc.w	23,20,1,$0054
		dc.w	26,20,1,$0055
		dc.w	29,20,1,$0056
		dc.w	32,20,1,$0057
		dc.w	35,20,1,$0058
		dc.w	38,20,1,$0059
		dc.w	41,20,1,$005A
		dc.w	44,20,1,$005B
		dc.w	47,20,1,$005C
		dc.w	50,20,1,$005D
		dc.w	53,20,1,$005E
		dc.w	56,20,1,$005F

cfst_fcr
		dc.w	1			; number of items in script
		dc.w	25,15,2,$0016

hs_fcr		dc.w	12			; number of items in script
		dc.w	21,15,4,$0016		; fcr_position
		dc.w	57,15,2,$001A		; fcr_entry_num
		dc.w	25,16,2,$001C		; fcr_start_rec
		dc.w	57,16,2,$001E		; fcr_storage
		dc.w	21,17,4,$0020		; fcr_eof
		dc.w	53,17,4,$0024		; fcr_blks
		dc.w	21,18,4,$0028		; fcr_open_blk
		dc.w	57,18,2,$002C		; fcr_open_mark
		dc.w	25,19,2,$002E		; fcr_skip_count
		dc.w	57,19,2,$0030		; fcr_error_flag
		dc.w	25,20,2,$0032		; fcr_type_flag
		dc.w	57,20,2,$0034		; fcr_dir_record

at_fcr		dc.w	11			; number of items in script
		dc.w	25,15,2,$0016		; dirflag
		dc.w	57,15,2,$0018		; flags
		dc.w	25,16,2,$001A		; forkrefnum
		dc.w	53,16,4,$001C		; mark
		dc.w	21,17,4,$0020		; buf_start
		dc.w	57,17,2,$0024		; buf_size
		dc.w	25,19,2,$001A		; dirindex
		dc.w	53,19,4,$001C		; dirid
		dc.w	25,20,2,$0020		; dir_first
		dc.w	57,20,2,$0022		; dir_last
		dc.w	21,21,4,$0024		; lastmod

		eject
vector_index	dc.w	0			; range limited to 0 - 3
cur_fst_id	dc.w	0			; current FST ID (vcr or fcr display)
sib_num		dc.w	1			; current supervisor driver number
deref_vp	dc.l	0			; dereferenced virtual pointer
current_call	dc.w	0			; current OS call omitting class
fst_vcr_ptr	dc.w	0			; pointer to current fst vcr script
fst_fcr_ptr	dc.w	0			; pointer to current fst fcr script
item_count	dc.w	0			; script item count
field_length	dc.w	0			; length of item field to display
current_vcr	dc.w	1			; current vcr under display (scroll mode only)
current_fcr	dc.w	1			; current fcr under display
cur_cache_vp	dc.l	0			; current cache vp
cur_cache_index	dc.w	0			; current cache index
mode		dc.w	$00FF			; display mode ($7F=Inverse, $FF=Normal)

		eject
*
* The Following table is used to determine if the current OS call is
* an FST call.  The VCR and FCR display pages will only display real
* (ie. non zero) data if the current OS call is an FST call.
*
fst_call_table	dc.w	$0011		; newline
		dc.w	$0012		; read
		dc.w	$0013		; write
		dc.w	$0014		; close
		dc.w	$0015		; flush
		dc.w	$0016		; set mark
		dc.w	$0017		; get mark
		dc.w	$0018		; set eof
		dc.w	$0019		; get eof
		dc.w	$001A		; set level
		dc.w	$001B		; get level
		dc.w	$001C		; get directory entry
		dc.w	$001D		; begin session
		dc.w	$001E		; end session
		dc.w	$0024		; format
		dc.w	$0025		; erase disk
		dc.w	$002B		; get FST information
fst_call_end	

call_name_table	dc.l	str_invalid	; $00 = invalid call type
		dc.l	str_create	; $01 = Create
		dc.l	str_destroy	; $02 = Destroy
		dc.l	str_osshutdown	; $03 = OS shut down
		dc.l	str_changepath	; $04 = Change path
		dc.l	str_setfileinfo	; $05 = Set file info
		dc.l	str_getfileinfo	; $06 = Get file info
		dc.l	str_invalid	; $07 = invalid call type
		dc.l	str_volume	; $08 = Volume
		dc.l	str_setprefix	; $09 = Set prefix
		dc.l	str_getprefix	; $0A = Get prefix
		dc.l	str_clrbackup	; $0B = Clear backup
		dc.l	str_setsyspref	; $0C = Set system prefix
		dc.l	str_null	; $0D = Null
		dc.l	str_expandpath	; $0E = Expand pathname
		dc.l	str_getsysprefs	; $0F = Get system prefix
		dc.l	str_open	; $10 = Open
		dc.l	str_newline	; $11 = Newline
		dc.l	str_read	; $12 = Read
		dc.l	str_write	; $13 = Write
		dc.l	str_close	; $14 = Close
		dc.l	str_flush	; $15 = Flush
		dc.l	str_setmark	; $16 = Set mark
		dc.l	str_getmark	; $17 = Get mark
		dc.l	str_seteof	; $18 = Set EOF
		dc.l	str_geteof	; $19 = Get EOF
		dc.l	str_setlevel	; $1A = Set level
		dc.l	str_getlevel	; $1B = Get level
		dc.l	str_getdirentry	; $1C = Get directory entry
		dc.l	str_beginsess	; $1D = Begin session
		dc.l	str_endsession	; $1E = End session
		dc.l	str_sessionstat	; $1F = Session status
		dc.l	str_getdevnum	; $20 = Get device number
		dc.l	str_getlastdev	; $21 = Get last device
		dc.l	str_readblock	; $22 = Read (512 byte) block
		dc.l	str_writeblock	; $23 = Write (512 byte) block
		dc.l	str_format	; $24 = Format
		dc.l	str_erasedisk	; $25 = Erase disk
		dc.l	str_invalid	; $26 = invalid call type
		dc.l	str_getname	; $27 = Get name
		dc.l	str_getbootvol	; $28 = Get boot volume
		dc.l	str_quit	; $29 = Quit
		dc.l	str_getversion	; $2A = Get version
		dc.l	str_getfstinfo	; $2B = Get FST info
		dc.l	str_dinfo	; $2C = Get device info
		dc.l	str_dstatus	; $2D = Device status
		dc.l	str_dcontrol	; $2E = Device control
		dc.l	str_dread	; $2F = Device read
		dc.l	str_dwrite	; $30 = Device write
		dc.l	str_bindint	; $31 = Bind interrupt source
		dc.l	str_unbindint	; $32 = Unbind interrupt source
		dc.l	str_fstspec	; $33 = FST specific
		
		eject
*
* The following data area is used for screen I/O routines.
*
ch		dc.w	$0000		; cursor horizontal position
cv		dc.w	$0000		; cursor vertical position
string_len	dc.w	$0000		; length of string to display

vtab_table	dc.w	$0400		; Row 0		or $00
		dc.w	$0480		; Row 1		or $01
		dc.w	$0500		; Row 2		or $02
		dc.w	$0580		; Row 3		or $03
		dc.w	$0600		; Row 4		or $04
		dc.w	$0680		; Row 5		or $05
		dc.w	$0700		; Row 6		or $06
		dc.w	$0780		; Row 7		or $07
		dc.w	$0428		; Row 8		or $08
		dc.w	$04A8		; Row 9		or $09
		dc.w	$0528		; Row 10	or $0A
		dc.w	$05A8		; Row 11	or $0B
		dc.w	$0628		; Row 12	or $0C
		dc.w	$06A8		; Row 13	or $0D
		dc.w	$0728		; Row 14	or $0E
		dc.w	$07A8		; Row 15	or $0F
		dc.w	$0450		; Row 16	or $10
		dc.w	$04D0		; Row 17	or $11
		dc.w	$0550		; Row 18	or $12
		dc.w	$05D0		; Row 19	or $13
		dc.w	$0650		; Row 20	or $14
		dc.w	$06D0		; Row 21	or $15
		dc.w	$0750		; Row 22	or $16
		dc.w	$07D0		; Row 23	or $17
		
main_text_buf	ds	1024		; screen save buffer
alt_text_buf	ds	1024		; screen save buffer
cda_mem		ds	64		; buffer used to convert hex to ascii

		eject

str_0FF		dc.l	error_str
		dc.l	str_00
		
str_00		dc.b	27
		dc.b	'Press <RETURN> to continue.'
		
error_str	dc.b	30
		dc.b	'Inline GS/OS System Call $'
str_val		dc.l	0

str_stk		dc.l	stk_str
		dc.l	str_00
		
stk_str		dc.b	29
		dc.b	'Stack GS/OS System Call $'
stk_val		dc.l	0



driver_string	dc.l	drvr_trap_str
		dc.l	str_00
		
drvr_trap_str	dc.b	33
		dc.b	'Completed GS/OS Driver Call $'
drvr_val	dc.l	0


sup_string	dc.l	sup_trap_str
		dc.l	str_00
		
sup_trap_str	dc.b	37
		dc.b	'Completed GS/OS Supervisor Call $'
sup_val		dc.l	0

saved_page	ds	256

		endp
		end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/DeskAccessories/Makefile b/IIGS.601.SRC/GS.OS/DeskAccessories/Makefile
new file mode 100644
index 0000000..88b3cbd
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/DeskAccessories/Makefile
@@ -0,0 +1 @@
+GSOS.CDA	ÄÄ	GSOS.CDA.obj
	LinkIIGS GSOS.CDA.obj -o GSOS.CDA -t CDA

GSOS.CDA.obj	Ä	GSOS.CDA.src
	AsmIIGS GSOS.CDA.src -o GSOS.CDA.obj
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/ATBoot/ATBoot.aii b/IIGS.601.SRC/GS.OS/Drivers/ATBoot/ATBoot.aii
new file mode 100644
index 0000000..5f3764e
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/ATBoot/ATBoot.aii
@@ -0,0 +1 @@
+		msb	off
		string	asis
		print	sym
		print	nopage
		print	nomdir

;--------------------------------------------------------------------------------------
;
;				.AFPBOOT Driver
;
;				Copyright (c) 1988
;				Apple Computer, Inc.
;				All rights reserved.
;
;--------------------------------------------------------------------------------------
;
; All drivers go in the */SYSTEM/DRIVERS/ sub-directory.  This driver MUST have the
; following attributes set correctly.
;
;	File		File type	Aux type
;
;	BOOT.DRIVER	$00 BB		$0000 0181
;
;--------------------------------------------------------------------------------------
;
; Here is a list of the files that are needed to build the ATALK driver file...
;
;	equates			This is a general GS/OS equate file.
;	others.aii		This file contains the AFP boot driver code.
;
;--------------------------------------------------------------------------------------
;
; Change History:
;
; 0.01a01	03/27/88	TGH	-First attempt
; 0.02		12/08/88	MSD	Allows more than one volume to be
;					mounted at boot (ListSessions buffer
;					is now 512 bytes).
;		06/08/89	MSD	Fixed check for AppleTalk active on ROM 01.
;					It now checks the slot 7 internal/external
;					setting.  It used to check the printer
;					port device connected (printer/modem) setting,
;					but I don't know why.
;		22-Aug-92	MSD	The slot number is now obtained from the
;					ATSlotNumber byte at $E101C1.  Fizzy will make
;					sure this is right, even with EtherTalk or
;					ROM 01 LocalTalk.
;
;		14-Dec-92	DAL	Adds 8 to slot number if it's set to external,
;					before stuffing it into the boot DIB.
;					Removed dead storage word and simplified the
;					function dispatch code.
;
;--------------------------------------------------------------------------------------

version		equ	$0000			;Version is ALWAYS zero!

RamDispatch	equ	$E11014
ATSlotNumber	equ	$E101C1			; Firmware's slot #

sltromsel	equ	$C02D

		print	off
		include	'm16.util'
		include	'equates'
		print	on
		eject

		entry	entryvols

header		proc

		entry	pfi_data
		entry	status_word

dibv1		dc.l	0			;Link pointer to next DIB (=0 MSD)
		dc.l	entryvols		;Entry pointer
		dc.w	$07E4			;Characteristics
		dc.l	$007FFFFF		;Block count
		str	'AFPBOOT'		;Device name with length
		dcb.b	24,$20
dibslot		dc.w	0			;Slot number
		dc.w	1			;Unit number
		dc.w	version			;Version number
		dc.w	$001E			;ID # (AFP generic)
		dc.w	0			;No header link
		dc.w	0			;No forward link
		dc.w	0			;Reserved
		dc.w	0			;Reserved
		dc.w	0			;Device number

		dc.w	0			;Block device #0
pfi_data	dc.w	0			;Session reference number
		dcb.b	28,0			;Volume name
		dc.w	0			;Volume ID
status_word	dc.w	0			;Device status word
		dcb.b	32,0			;Server Name
		dcb.b	33,0			;Zone Name

		endp

;--------------------------------------------------------------------------------------

		eject

		ENTRY	startup,\
			badreq,\
			read,\
			status,\
			control,\
			shutdown	:CODE

		ENTRY	VUnMountVol	:CODE

		eject

;--------------------------------------------------------------------------------------
;
; Following is the dispatch table used for to call the supported call numbers.
;
;--------------------------------------------------------------------------------------

*** These are now plain addresses, not addr-1 (14-Dec-92 DAL)

disp_table	proc
		dc.w	startup			;startup
		dc.w	badreq			;open
		dc.w	read			;read
		dc.w	badreq			;write
		dc.w	badreq			;close
		dc.w	status			;status
		dc.w	control			;control
		dc.w	badreq			;flush
		dc.w	shutdown		;shutdown

		endp

		eject

;--------------------------------------------------------------------------------------
;
; Main entry point for the .AFP driver.
;
;--------------------------------------------------------------------------------------

entryvols	proc

		longa	on
		longi	on

		phb			;Save the GS/OS bank register

		phk
		plb

		pha

		lda	FirstCallFlag
		bne	@L1
		jsr	InitMe
		dec	FirstCallFlag

@L1		pla
		cmp	#0009		;Max command number
		bge	illegal_req	;Oops, too big.

*** simplified 14-Dec-92 DAL
		asl	a
		tax
		jsr	(disp_table,x)
*** end 14-Dec-92 DAL

		tay			;Save the returned error code

		plb
		bcs	gen_exit	;Branch if there is an error
		ldy	#no_error
gen_exit	tya
		rtl

illegal_req	plb
		lda	#drvr_bad_req
		sec
		rtl

FirstCallFlag	dc.w	0000

InitMe
;
; 22-Aug-92 MSD	This code commented out.  We now assume that Fizzy has set up
;		the correct slot number (of the firmware) at $E1/01C1.  We will
;		use this value to set the slot number in the DIB.  This was done
;		because peeking at LocalTalk's BRAM settings doesn't do any good
;		if we booted over EtherTalk....
;
;
;		pea	0000			;Space for result
;		pea	0000			;Space for result
;		pea	0000			;Space for result
;		pea	0000			;Space for result
;		pea	0000			;A on entry
;		pea	0000			;X on entry
;		pea	0000			;Y on entry
;		pea	$FE1F			;Emulation mode entry point
;		ldx	#$2403			;Firmware ID routine
;		jsl	>$E10000
;		pla				;Y on exit
;		plx				;X on exit
;		plx				;A on exit
;		plx				;Status byte
;					;At this point, A (Y on exit) holds the
;					;ROM version number.
;		and	#$007F			;Strip off prototype bit (high bit)
;
;		cmp	#0002			;There really isn't a ROM 2
;		bcs	ROM2			;but that's OK.
;
;ROM0orROM1	pea	$0000			;Space for result
;		pea	$0027			;MSD: Slot 7 internal/external
;		ldx	#$0C03
;		jsl	>$E10000
;		ldy	#0007			;Assume Slot 7
;		pla				;Pull the data
;		cmp	#0000			;MSD: Internal (Built-in AppleTalk)?
;		beq	DoneROMCheck		;MSD: Yes, then AppleTalk in slot 7
;		brl	BadExit
;
;ROM2		pea	$0000			;Space for result
;		pea	$0021			;Slot 1 setting
;		ldx	#$0C03
;		jsl	>$E10000
;		ldy	#0001			;Assume Slot 1
;		pla				;Pull the data
;		cmp	#0002
;		beq	DoneROMCheck
;
;		pea	$0000			;Space for result
;		pea	$0022			;Slot 2 setting
;		ldx	#$0C03
;		jsl	>$E10000
;		ldy	#0002
;		pla				;Pull the data
;		cmp	#0002
;		bne	BadExit
;
;DoneROMCheck	tya				;Move slot # to A.

		lda	>ATSlotNumber		; get slot of firmware
		and	#$00FF			; only a byte
		beq	BadExit			; can't be zero!
;
; End of 22-Aug MSD change.
;

*** added 14-Dec-92 DAL -- If slot A is external, add 8
FixSlotNumber	pha
		and	#7
		tax
		lda	>sltromsel	; get slot rom selection
slot_check	ror	a
		dex
		bpl	slot_check
		pla
		bcc	@int_slot
		ora	#$0008		; slots 8-15 are external
@int_slot
*** end 14-Dec-92

		ldy	#slot_num
		sta	[drvr_dib_ptr],y	; save as slot number of device

		ldx	#ListSessions		;Get the list of volumes that
		ldy	#^ListSessions		;are already mounted.
		jsl	>RamDispatch
		bcs	BadExit
		ldx	#0			; start at beginning of buffer
@loop
		lda	NumVols			; any volumes mounted?
		beq	BadExit			; if not, there is an error

		lda	ListBuffer,x		; get session, slot/drive
		and	#$0100			; is user volume bit set?
		bne	@copy			; yes, so copy info to DIB
		
		clc
		txa				; buffer index to A
		adc	#32			; point to next entry
		tax				; and back in X
		dec	NumVols			; one less volume left
		bra	@loop			; try the next one
@copy
		ldy	#afpn_session		; start of ListSession data in DIB
@L1
		lda	ListBuffer,x
		sta	[drvr_dib_ptr],y
		inx
		inx				; index to next word in buffer
		iny
		iny				; index to next word in DIB
		cpy	#afpn_session+32	; done it all yet?
		bne	@L1			; nope, so copy next word

		ldy	#afpn_status
		lda	#$8011			; online, disk switched
		sta	[drvr_dib_ptr],y

		ldx	#SetPFIVecs		;Tell PFI to jump to me when
		ldy	#^SetPFIVecs		;anything important happens.
		jsl	>RamDispatch

		lda	#0000
		clc
		rts

BadExit		lda	#$FFFF
		sec
		rts

ListSessions	dc.b	00			;Synchronous
		dc.b	$2F			;FIListSessions
		dc.w	0			;Result
		dc.w	512			;Buffer length
		dc.l	ListBuffer		;Buffer pointer
NumVols		dc.b	00			;Entries returned
		dc.b	00			;dummy zero for long compare

ListBuffer	ds.b	512			;List buffer

SetPFIVecs	dc.b	00			;Synchronous
		dc.b	$37			;FISetVectors
		dc.w	0			;Result code
		dc.b	$40			;00 = GS/OS active
		dc.l	0			;Mount Vol Vector
		dc.l	VUnMountVol		;UnMount Vol Vector
		dc.l	0			;Attention Vector
		dc.l	0			;Reserved
		dc.l	0			;Reserved

		endp

;--------------------------------------------------------------------------------------
;
; Below is the startup routine that will prepare this driver.
;
;--------------------------------------------------------------------------------------

startup		proc

		longa	on
		longi	on

		lda	#0000			;No error
		clc
		rts				;Leave

		endp

		eject

;--------------------------------------------------------------------------------------
;
; Below is the routine that is called for all un-supported calls.
;
;--------------------------------------------------------------------------------------

badreq		proc

		longa	on
		longi	on

		lda	#drvr_bad_req
		sec
		rts

		endp

;--------------------------------------------------------------------------------------
;
; Below is the routine that is called for all read calls.
;
;--------------------------------------------------------------------------------------

read		proc

		longa	on
		longi	on

		ldy	#afpn_status
		lda	[<drvr_dib_ptr],y
		bit	#$0001			;offline or disk switched?
		beq	read1			; no

		and	#$FFFE
		sta	[<drvr_dib_ptr],y
		lda	#drvr_disk_sw
		sec
		rts

read1		and	#$0010			;=zero if drive offline
		bne	readit
		lda	#drvr_off_line		;Disk off line
		sec
		rts

readit		lda	<drvr_req_cnt		;If the request count = 0 then
		ora	<drvr_req_cnt+2		;we're already done.
		beq	GoodExit

		lda	<drvr_req_cnt+2		;Check the request count
		cmp	#$0080			;If > $007FFFFF, too much.
		blt	@L1

		lda	#drvr_bad_count		;They asked for too much
		sec				;Flag error and leave.
		rts

@L1		lda	#network_error
		sec
		rts

; The code below transfers a block of zeros into the destination buffer.  This
; routine was taken out in favor of the above error condition
;
;		sta	<drvr_tran_cnt+2	;Set the transfer count =
;		lda	<drvr_req_cnt
;		sta	<drvr_tran_cnt		;to the request count.
;
;		pea	SourceBuffer>>16	;Source buffer
;		pea	SourceBuffer
;		pei	drvr_buf_ptr+2		;Destination buffer
;		pei	drvr_buf_ptr
;		pei	drvr_req_cnt+2		;Request count
;		pei	drvr_req_cnt
;		pea	$0804
;		jsl	>$01FC70		;MOVE_INFO

GoodExit	lda	#no_error
		clc
		rts

;;;SourceBuffer	dc.w	0000			;removed 14-Dec-92 DAL

		endp

;--------------------------------------------------------------------------------------
;
; Below is the status call handler.
;
;--------------------------------------------------------------------------------------

status		proc

		longa	on
		longi	on

		lda	<drvr_stat_code		;Check to see if valid call.
		beq	S_Status		;If = 0 then status.
		cmp	#0001
		beq	S_RetCData		;If = 1 then return config data.

		lda	#drvr_bad_code		;Else, error.
		sec
		rts


S_Status	ldx	<drvr_req_cnt+2		;High word
		bne	bad_dev_stat
		ldx	<drvr_req_cnt		;Low word
		beq	dev_stat_exit
		cpx	#0007
		blt	ok_dev_stat
bad_dev_stat	lda	#drvr_bad_parm		;Invalid request count
		sec
		rts

ok_dev_stat	ldy	#afpn_status

		sec
		lda	<drvr_slist_ptr
		sbc	#afpn_status
		sta	<drvr_slist_ptr
		lda	<drvr_slist_ptr+2
		sbc	#0000
		sta	<drvr_slist_ptr+2

		sep	#$20
		longa	off

		lda	[<drvr_dib_ptr],y
		sta	[<drvr_slist_ptr],y
		dex
		beq	doneit
		iny
		lda	[<drvr_dib_ptr],y
		sta	[<drvr_slist_ptr],y
		dex
		beq	doneit

		ldy	#afpn_status+2
		ldx	#0002

@L1		lda	blockcount-2,x
		sta	[<drvr_slist_ptr],y
		inx
		iny
		cpx	<drvr_req_cnt
		bne	@L1

doneit		rep	#$20
		longa	on

;
; Now that we're done returning the device status (and block count), we have to
; check for OFFLINE or DISKSW state.  If either of these conditions exist then the
; driver must call SET_DISKSW via the system service call table.
;

		ldy	#afpn_status
		lda	[<drvr_dib_ptr],y
		eor	#$0010			;convert online to offline
		and	#$0011			;offline or disk switched?
		beq	good_state		; no

		ldy	#afpn_status
		lda	[<drvr_dib_ptr],y
		and	#$FFFE
		sta	[<drvr_dib_ptr],y
		jsl	set_disksw

good_state	lda	<drvr_req_cnt		;Set the transfer count equal
		sta	<drvr_tran_cnt		;to the request count.
		lda	<drvr_req_cnt+2
		sta	<drvr_tran_cnt+2

dev_stat_exit	lda	#no_error
		clc
		rts

blockcount	dc.l	$0007FFFF


S_RetCData	ldx	<drvr_req_cnt+2		;High word
		bne	bad_CData		;Branch if != 0
		ldx	<drvr_req_cnt		;Low word
		beq	RetCData_exit		;If = 0 then just leave (no error)
		cpx	#specific_size+3	;Check againts max.
		blt	ok_devdata

bad_CData	lda	#drvr_bad_parm		;Invalid request count
		sec
		rts

ok_devdata	ldx	#0002
		ldy	#dib_specific

		sep	#$20
		longa	off

@L1		lda	[drvr_dib_ptr],y
		phy
		txy
		sta	[<drvr_slist_ptr],y
		ply
		iny
		inx
		cpx	<drvr_req_cnt
		bne	@L1

		rep	#$20
		longa	on

		lda	<drvr_req_cnt		;Set the transfer count equal
		sta	<drvr_tran_cnt		;to the request count.
		dea
		dea				; transfer := request - 2
		sta	[drvr_slist_ptr]	; return transfer count
		lda	<drvr_req_cnt+2
		sta	<drvr_tran_cnt+2

RetCData_exit	lda	#no_error
		clc
		rts

		endp

;--------------------------------------------------------------------------------------
;
; Below is the control call handler.
;
;--------------------------------------------------------------------------------------

control		proc

work1		equ	00

		longa	on
		longi	on

		lda	<drvr_ctrl_code		;Check to see if valid call.
		cmp	#0000
		beq	C_Reset
		lda	#drvr_bad_code
		sec
		rts

C_Reset		lda	#no_error
		clc
		rts

		endp


;--------------------------------------------------------------------------------------
;
; Below is the shutdown call handler.
;
;--------------------------------------------------------------------------------------

shutdown	proc

		longa	on
		longi	on

		lda	#$0000
		clc
		rts

		endp

;--------------------------------------------------------------------------------------
;
; VUnMountVol
;
; This routine is called by PFI when a volume has gone off line.  It will first
; scan all the AFP DIBs.  If the DIB was found it will mark the drive as off-line.
; If the DIB was NOT found, the unmount event will be ignored.
;
; On Entry (via JSL):
;
;	A Reg = Unknown
;	X Reg = Low word of parameter block pointer
;	Y Reg = High word of parameter block pointer
;	D Reg = PFI direct page
;	B Reg = PFI data bank
;	P Reg = N V M X D I Z C E
;	        x x 0 0 0 x x x 0
;
; X and Y point to the following data structure:
;
;		Byte		Session reference number
;		Byte		Unit #
;		PString[28]	Volume name
;		Word		Volume ID
;
; On Exit (via RTL):
;
;	A Reg = Unknown
;	X Reg = Unknown
;	Y Reg = Unknown
;	D Reg = PFI direct page
;	B Reg = PFI data bank
;	P Reg = N V M X D I Z C E
;	        x x 0 0 0 x x x 0
;

VUnMountVol	proc				;UnMount Vol Vector
		
Work1		equ	$00			;Zero page equates	(LONG)

		phb
		php				;     and P.

		phk
		plb

		rep	#$30			;Longall
		longa	on
		longi	on

		pei	<Work1			;Save PFI's zero page.
		pei	<Work1+2

		stx	<Work1			;Put the pointer to the data on zero
		sty	<Work1+2		;page so we can access the data.

		ldy	#0000
ScanLoop	lda	[<Work1],y
		cmp	pfi_data,y
		bne	Exit
		iny
		cpy	#30
		bne	ScanLoop

		lda	#$0001			;Disk NOT in drive, Disk switched
		sta	status_word

Exit		pla
		sta	<Work1+2
		pla
		sta	<Work1

		plp				;Restore the state.
		plb				;Restore b
		
		rtl				;And exit.

		endp

;--------------------------------------------------------------------------------------

		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/ATBoot/Equates b/IIGS.601.SRC/GS.OS/Drivers/ATBoot/Equates
new file mode 100644
index 0000000..104724d
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/ATBoot/Equates
@@ -0,0 +1 @@
+*******************************************************************************
*
* Common equates for GS/OS
*
* Created:	4/7/87
* Modified:	See Revision History below
* Author:	GS/OS Team
*
* Copyright (C) 1987-1988 Apple Computer, Inc.	All rights reserved.
*
* REVISION HISTORY:
*
* DATE	   BY	DESCRIPTION
*
* 04/27/87 RBM	Correction: drvr_blk_size is a word wide parameter.
*
* 04/16/87 JJ	Correction: changed error number for duplicate volume
*			    from $55 to $57
* 04/29/87 GRT	Addition:   added definition of path flag
*			    and defined "span1" and "span2"
*
* 05/18/87 RBM	Addition:   Added "boot_slot", "dev_id_ref",
*			    "drvr_char_config" & "drvr_pro_config"
*			    These parameters are passed from the F_Loader
*			    to the device dispatcher during boot init.
*
* 06/04/87 JJ	Addition:   Add global equates for system direct page base,
*			    stack top, and ProDOS FST header.
*
* 06/11/87 JJ	Change:     Direct page locations used by SCM to pass
*			    parameters to FST's fundamentally changed. Look
*			    between labels dev_num and span2, inclusive.
*
* 06/30/87 RM/RC Addition:  Added cache manager equates.
*			    Cache priority now cache enable.
*
* 07/20/87 RM/AS Addition:  Equates for control/status list pointers.
*			    Equates for control/status codes.
*
* 07/22/87 RM/RC Change:    Cache enable now cache priority.
*
* 07/24/87 MSA	 Addition:  System Service Table Equates & FCR Equates
*
* 07/29/87 RC	 Addition:  Added cache header equates.
*
* 08/03/87 RC	 Addition:  Added 4 byte pointer in direct page
*
* 08/05/87 MSA	 Change:    System Service Table chgd to make GRT happy
*			    Added Parameter Block Equates
*
* 08/10/87 RC/RM Change:    Changed c_volumeid in cache equates into c_devnum.
*
* 08/12/87 FAB	 Addition:  Added gquit_stack_top
*
*	   MSA	 Addition:  Added pblk equate for Get Boot Volume
*			     Star prefix equate added
*
* 08/13/87 RBM	 Deletion:  Removed status and control codes for
*			    driver newline since it's not ported.
*
* 08/14/87 MSA	 Addition:  Added pblk equate for SetLevel, GetLevel
*
* 08/18/87 RBM	 Deletion:  Drvr_vol_id is now Drvr_reserved.
*
* 09/15/87 RBM	 Change:    Moved control/status code location on direct page
*
* 09/24/87 MSA	 Addition:  Added pblk equate for Close, Flush
*
* 10/02/87 ADS	 Deletion:  Removed pro_fst_entry
*
* 10/06/87 MSA	 Addition:  Added pblk equate for Expand_Path
*
* 10/29/87 MSA	 Addition:  Added debug call flag, debug.calls
*			     and debug.type for SCM
*
* 11/12/87 RBM	 Change:    Device dispatcher cmd numbers
*
* 11/13/87 MSA	 Addition:  GS/OS System Death Error Codes
*
* 11/15/87 RBM	 Addition:  Added 'DRVR_VOL_ID' on direct page.
*
* 11/17/87 RC	 Addition:  Added 'c_volumeid' to cache header
*
* 12/6/87  JJ	 Addition:  Added system call error codes $64, $65, and $66
*
* 1/5/88   fab	 addition:  move commands word for moveinfo system service call
*
* 1/5/88   RBM	 addition:  status and control codes.
*
* 1/13/88  fab	 addition:  movevaliditymask equate added
*
* 1/14/88  RBM	 change:    moved status/control code
*
* 1/14/88  BPA	 change:    made all equ's gequ's
*
* 1/15/88  fab	 replace:   move_block to move_info
*
* 1/19/88  rc	 addition:  default_cache_size
*
* 1/20/88  MSA	 addition:  system service table equates
*
* 1/23/88  RBM	 Addition:  System service table equates
*
* 2/08/88  RBM	 Addition:  driver busy error code ($0029)
*		 Addition:  Supervisory driver direct page equates
*
* 3/04/88  MSA	 Addition:  get, set boot_vol equates
*
*******************************************************************************

****************************************************************
*
* The following are direct page equates on the GS/OS
* direct page for driver usage.
*
****************************************************************

stack_top	equ	$00BFFF 	; initial value of system stack pointer
direct_base	equ	$00BD00 	; base address of system direct page
gquit_stack_top equ	$00BCFF 	; gquit sets stk here for boot/switching

drvr_start	equ	$0000		; start location of driver parameters
gs_start	equ	$0030		; start of GS/OS parameters
fst_start	equ	$0080		; start of FST parameters
cache_wspace	equ	$005A		; beginning addr of cache mgr w/space
drvr_wspace	equ	$006A		; ***** NUKE THIS LATER ****
sup_wspace	equ	$0070		; supervisory driver workspace

drvr_dev_num	equ	drvr_start	; (w)  device number
drvr_call_num	equ	drvr_dev_num+2	; (w)  call number
drvr_buf_ptr	equ	drvr_call_num+2 ; (lw) buffer pointer
drvr_slist_ptr	equ	drvr_call_num+2 ; (lw) buffer pointer
drvr_clist_ptr	equ	drvr_call_num+2 ; (lw) buffer pointer
boot_slot	equ	drvr_buf_ptr	; (w)  boot slot for dispatcher only
dev_id_ref	equ	drvr_buf_ptr	; (w)  indirect device ID
dev_char_config equ	drvr_buf_ptr+2	; (w)  BASIC/Pascal1.1 configuration
dev_pro_config	equ	drvr_buf_ptr+4	; (w)  ProDOS configuration
drvr_req_cnt	equ	drvr_buf_ptr+4	; (lw) request count
drvr_tran_cnt	equ	drvr_req_cnt+4	; (lw) transfer count
drvr_blk_num	equ	drvr_tran_cnt+4 ; (lw) block number
drvr_blk_size	equ	drvr_blk_num+4	; (w)  block size
drvr_fst_num	equ	drvr_blk_size+2 ; (w)  File System Translator Number
drvr_stat_code	equ	drvr_fst_num	; (b)  status code for status call
drvr_ctrl_code	equ	drvr_fst_num	; (b)  control code for control call
drvr_vol_id	equ	drvr_fst_num+2	; (w)  volume id
drvr_cache	equ	drvr_vol_id+2	; (w)  Cache Priority
drvr_cach_ptr	equ	drvr_cache+2	; (lw) pointer to cached block
drvr_dib_ptr	equ	drvr_cach_ptr+4 ; (lw) pointer to active DIB
drvr_dev_ptr	equ	drvr_dib_ptr+4	; (lw) pointer to device list

****************************************************************
*
* The following are equates for the DIB.
*
****************************************************************

link_ptr	equ	$0000		; (lw) pointer to next DIB
entry_ptr	equ	$0004		; (lw) pointer to driver
dev_char	equ	$0008		; (w) device characteristics
blk_cnt		equ	$000A		; (lw) number of blocks
dev_name	equ	$000E		; (32) count and ascii name
slot_num	equ	$002E		; (w) slot number
unit_num	equ	$0030		; (w) unit number
ver_num		equ	$0032		; (w) version number
dev_id_num	equ	$0034		; (w) device ID number
head_link	equ	$0036		; (w) backward device link
forward_link	equ	$0038		; (w) forward device link
reserved_1	equ	$003A		; (w) dib reserved field #1
reserved_2	equ	$003C		; (w) dib reserved field #2
dib_dev_num	equ	$003E		; (w) device number of this device

dib_specific	equ	$0040		;
afpn_session	equ	$0042
afpn_volname	equ	$0044
afpn_volID	equ	$0060
afpn_status	equ	$0062
first_free	equ	$0064

specific_size	equ	first_free-dib_specific

****************************************************************
*
* Cache Manager Direct Page
*
****************************************************************

cache_cur_ptr	equ	cache_wspace	; (lw) pointer to current cache cell
cache_nxt_ptr	equ	cache_cur_ptr+4 ; (lw) pointer to next cache cell
cache_pre_ptr	equ	cache_nxt_ptr+4 ; (lw) pointer to prev cache cell
cache_bkt_ptr	equ	cache_pre_ptr+4 ; (lw) pointer to bucket list

default_cache_size equ $0040		;16k is default cache size


****************************************************************
*
* Supervisory Driver Direct Page
*
****************************************************************

sup_drvr_ptr	equ	sup_wspace	; (lw) ptr to supervisor driver list
sib_ptr 	equ	sup_wspace+4	; (lw) ptr to SIB
sup_parm_ptr	equ	sib_ptr+4	; (lw) ptr to supervisor parameters

****************************************************************
*
* The following are absolute zero page equates for use by
* slot resident firmware based ProDOS block device drivers.
*
****************************************************************

pcmd		equ	$0042		; (b)  ProDOS device command
punit		equ	$0043		; (b)  ProDOS unit number
pbuffer 	equ	$0044		; (w)  ProDOS buffer address
pblock		equ	$0046		; (w)  ProDOS block number

****************************************************************
*
* The following are equates for driver command types.
*
****************************************************************

drvr_startup	equ	$0000		; driver startup command
drvr_open	equ	$0001		; driver open command
drvr_read	equ	$0002		; driver read command
drvr_write	equ	$0003		; driver write command
drvr_close	equ	$0004		; driver close command
drvr_status	equ	$0005		; driver status command
drvr_control	equ	$0006		; driver control command
drvr_flush	equ	$0007		; driver flush command
drvr_shutdn	equ	$0008		; driver shutdown command

****************************************************************
*
* The following are equates for dispatcher command types.
*
****************************************************************

dsptch_bootinit equ	$0000		; dispatcher boot init command
get_dib_ptr	equ	$0001		; return a drivers DIB pointer
dsptch_shutdn	equ	$0002		; dispatcher shutdown command

****************************************************************
*
* GS/OS Direct Page Equates
*
****************************************************************

call_number	equ	gs_start	; FST call number
param_blk_ptr	equ	call_number+2	; pointer to user's parameter block
dev_num 	equ	param_blk_ptr+4 ; device number from parameter block
dev1_num	equ	dev_num 	; alias name for dev_num
dev2_num	equ	dev1_num+2	; second device number
path1_ptr	equ	dev2_num+2	; ptr to 1st partial/entire pathname
fcr_ptr 	equ	path1_ptr	; pointer to file control record
path2_ptr	equ	path1_ptr+4	; ptr to 2nd partial/entire pathname
vcr_ptr 	equ	path2_ptr	; pointer to volume control record
path_flag	equ	path2_ptr+4	; flag for path information
*					;
*					; bit  14: 0 = pathname1 is null
*					;      14: 1 = pathname1 is non-null
*					;
*					;      06: 0 = pathname2 is null
*					;      06: 1 = pathname2 is non-null
*					;
span1		equ	path_flag+2	; largest distance between path1 term.
span2		equ	span1+2 	; maxdist. between seperators for path2

****************************************************************
*
* The following are equates for GS/OS error codes.
*
****************************************************************

no_error	equ	$00		; no error has occured
bad_system_call equ	$01		; bad system call number
invalid_pcount	equ	$04		; invalid parameter count
gsos_active	equ	$07		; gsos already active
dev_not_found	equ	$10		; device not found
invalid_dev_num equ	$11		; invalid device number
drvr_bad_req	equ	$20		; bad request or command
drvr_bad_code	equ	$21		; bad control or status code
drvr_bad_parm	equ	$22		; bad call parameter
drvr_not_open	equ	$23		; character device not open
drvr_prior_open equ	$24		; character device already open
irq_table_full	equ	$25		; interrupt table full
drvr_no_resrc	equ	$26		; resources not available
drvr_io_error	equ	$27		; I/O error
drvr_no_dev	equ	$28		; device not connected
drvr_busy	equ	$29		; driver is busy & not available
drvr_wr_prot	equ	$2B		; device is write protected
drvr_bad_count	equ	$2C		; invalid byte count
drvr_bad_block	equ	$2D		; invalid block number
drvr_disk_sw	equ	$2E		; disk has been switched
drvr_off_line	equ	$2F		; device off line / no media present
bad_path_syntax equ	$40		; invalid pathname syntax
invalid_ref_num equ	$43		; invalid reference number
path_not_found	equ	$44		; subdirectory does not exist
vol_not_found	equ	$45		; volume not found
file_not_found	equ	$46		;
dup_pathname	equ	$47		; create or rename with existing name
volume_full	equ	$48		;
vol_dir_full	equ	$49		; volume directory full
version_error	equ	$4A		;
bad_store_type	equ	$4B		; bad storage type
end_of_file	equ	$4C		;
out_of_range	equ	$4D		; position out of range
invalid_access	equ	$4E		; access not allowed
buff_too_small	equ	$4F		; buffer too small
file_busy	equ	$50		; file is already open
dir_error	equ	$51		; directory error
unknown_vol	equ	$52		; unknown volume type
parm_range_err	equ	$53		; parameter out of range
out_of_mem	equ	$54		; out of memory
dup_volume	equ	$57		; duplicate volume name
not_block_dev	equ	$58		; not a block device
invalid_level	equ	$59		; specified level outside legal range
damaged_bitmap	equ	$5A		; block number too large
bad_path_names	equ	$5B		; invalid pathnames for change_path
not_system_file equ	$5C		; not an executable file
os_unsupported	equ	$5D		; operating system not supported
stack_overflow	equ	$5F		; too many applications on stack
data_unavail	equ	$60		; data unavailable
end_of_dir	equ	$61		; end of directory has been reached
invalid_class	equ	$62		; invalid FST call class
res_not_found	equ	$63		; file does not contain req. resource
invalid_fst_id	equ	$64		; specified FST is not present in system
invalid_fst_op	equ	$65		; FST does not handle this type of call
fst_caution	equ	$66		; FST handled call, but result is weird
network_error	equ	$88

****************************************************************
*
* Fatal Errors:
*
****************************************************************

unclaimed_irq	equ	$01		; unclaimed interrupt
sd_scm_dealloc	equ	$02		; deallocation error
sd_scm_alloc	equ	$03		; allocation error
wrong_os_ver	equ	$11		; wrong operating system version

****************************************************************
*
* FST equates: to be removed when lou loader is working!!!!!!!!!
*
****************************************************************

char_fst_entry	equ	$095000 	;address of Character FST header


****************************************************************
*
* DRIVER Equates:
*
****************************************************************

drvr_dev_stat	equ	$0000		; device status code
drvr_ctrl_stat	equ	$0001		; return control parms
drvr_get_wait	equ	$0002		; return wait/no-wait mode
drvr_get_format equ	$0003		; get format options

drvr_reset	equ	$0000		; reset the device
drvr_format	equ	$0001		; physically format the device
drvr_eject	equ	$0002		; eject the media
drvr_set_ctrl	equ	$0003		; set control parms
drvr_set_wait	equ	$0004		; set wait/no-wait mode
drvr_set_format equ	$0005		; set format options
drvr_set_ptn	equ	$0006		; assign partition owner
drvr_insert	equ	$0007		; logical media insertion

****************************************************************
*
* System Service Table Equates:
*
****************************************************************

dev_dispatcher	equ	$01FC00 	;dev_dispatch
cache_find_blk	equ	$01FC04 	;cash_find
cache_add_blk	equ	$01FC08 	;cash_add
cache_init	equ	$01FC0C 	;cache initialization
cache_shutdn	equ	$01FC10 	;cash_shutdown
cache_del_blk	equ	$01FC14 	;cash_delete
cache_del_vol	equ	$01FC18 	;cash_del_vol
alloc_seg	equ	$01FC1C 	;alloc_zero
release_seg	equ	$01FC20 	;deallocate
alloc_vcr	equ	$01FC24 	;allocvcr
release_vcr	equ	$01FC28 	;releasevcr
alloc_fcr	equ	$01FC2C 	;allocfcr
release_fcr	equ	$01FC30 	;releasefcr
swap_out	equ	$01FC34 	;swapout
deref		equ	$01FC38 	;deref2
get_sys_gbuf	equ	$01FC3C 	;s_get_sys_gbuf
sys_exit	equ	$01FC40 	;s_sys_exit
sys_death	equ	$01FC44 	;s_sys_death
find_vcr	equ	$01FC48 	;findvcr
find_fcr	equ	$01FC4C 	;findfcr
set_sys_speed	equ	$01FC50 	; set system speed
cache_flsh_def	equ	$01FC54 	; flush deferred blocks from cache
rename_vcr	equ	$01FC58 	;renamevcr
rename_fcr	equ	$01FC5C 	;renamefcr
get_vcr 	equ	$01FC60 	;getvcr
get_fcr 	equ	$01FC64 	;getfcr
lock_mem	equ	$01FC68 	;lockmem
unlock_mem	equ	$01FC6C 	;unlockmem
move_info	equ	$01FC70 	;block move routines
cvt_0to1	equ	$01FC74 	;cvt0to1
cvt_1to0	equ	$01FC78 	;cvt1to0
replace_80	equ	$01FC7C 	;replace80
to_b0_core	equ	$01FC80 	;to_bank0_core
gen_dispatch	equ	$01FC84 	;g_dispatch
signal		equ	$01FC88 	;signal_event
get_sys_buf	equ	$01FC8C 	;get_b0_buf
set_disksw	equ	$01FC90 	;set_disk_sw
report_error	equ	$01FC94 	;s_report_error
mount_message	equ	$01FC98 	;s_mount_msg
full_error	equ	$01FC9C 	;s_full_error
report_fatal	equ	$01FCA0 	;s_report_fatal
sup_drvr_disp	equ	$01FCA4 	; supervisory dispatcher
install_driver	equ	$01FCA8 	; install device driver
get_boot_pfx	equ	$01FCAC 	;s_get_boot_vol
set_boot_pfx	equ	$01FCB0 	;s_set_boot_vol


****************************************************************
*
* Volume Control Record (VCR) Equates
*
****************************************************************

vcr_size	equ	18		;Currently 18 bytes in length

vcr_id		equ	$0000		;offset to volume ID
vcr_name	equ	vcr_id+2	;offset to volume name pointer
vcr_status	equ	vcr_name+4	;offset volume status
vcr_open_cnt	equ	vcr_status+2	;offset to number of open files on vol.
vcr_fst_id	equ	vcr_open_cnt+2	;offset to owner ID number
vcr_dev 	equ	vcr_fst_id+2	;offset to where volume was last seen
vcr_fst_ptr	equ	vcr_dev+2	;offset to where volume was last seen

vcr_swapped	equ	$4000		;FLAG:Volume is swapped out (1 = true)
vcr_swapped_in	equ	$BFFF		;FLAG:Volume is swapped in

vcr_wr_enable	equ	$2000		;FLAG:Volume has been seen write enabled
vcr_wr_unknown	equ	$DFFF		;FLAG:Volume has not been seen wrenbld

****************************************************************
*
* File Control Record Equates:
*
****************************************************************

fcr_ref_num	equ	$0000
fcr_path_name	equ	fcr_ref_num+2
fcr_fst_id	equ	fcr_path_name+4
fcr_vol_id	equ	fcr_fst_id+2
fcr_level	equ	fcr_vol_id+2
fcr_newline	equ	fcr_level+2
fcr_newline_len equ	fcr_newline+4
fcr_mask	equ	fcr_newline_len+2
fcr_access	equ	fcr_mask+2

;--------------------------------------------------------------------------
; cache header equates
;
; Copyright (c) 1987 Apple Computer Inc. All rights reserved.
; author: Ray (Rowdy Yates) Chiang
;--------------------------------------------------------------------------

c_lru_fwd	equ	$0000		;vp to	forward LRU vp link
c_lru_bwd	equ	c_lru_fwd+4	;vp to backward LRU vp link
c_bkt_fwd	equ	c_lru_bwd+4	;vp to	forward bucket vp link
c_bkt_bwd	equ	c_bkt_fwd+4	;vp to backward bucket vp link
c_blknum	equ	c_bkt_bwd+4	;block number  of cached block
c_blksize	equ	c_blknum+4	;block	 size  of cached block
c_fstnum	equ	c_blksize+2	;FST number    of cached block
c_volumeid	equ	c_fstnum+2	;volume id     of cached block
c_devnum	equ	c_volumeid+2	;device number of cached block
c_priority	equ	c_devnum+2	;cache priority
c_cellsize	equ	c_priority+2	;size of this cache cell
c_reserved	equ	c_cellsize+2	;reserved
c_headerlen	equ	c_reserved+4	;length of cache header
c_cached_data	equ	c_reserved+4	;offset to cached data block

;--------------------------------------------------------------------------
; general and miscellaneous equates
;--------------------------------------------------------------------------

ram_cache_size	equ	$0081		;battery ram location for this

star_pfx_num	equ	32		;Prefix #32 is the star prefix

sys_version	equ	$8200		;Unreleased Version 2.00
debug_calls	equ	$0001		;Turn on debugging calls
debug_type	equ	$0010		;Highest numbered type


****************************************************************
*
* Parameter Block Equates
*
****************************************************************

pblk_09_pfxnum	equ	$0000		;Set and Get Prefix
pblk_09_pname	equ	$0002

pblk_0E_pname1	equ	$0000		;Expand Path
pblk_0E_pname2	equ	$0004

pblk_14_refnum	equ	$0000		;Close and Flush

pblk_1a_level	equ	$0000		;Set and Get Level

pblk_28_pname	equ	$0000		;Get Boot Volume

pblk_2a_version equ	$0000		;Get Version Number


*****************************************************************
*
* Emulation mode stack pointer
*
*****************************************************************

emulstack	equ	$010100

*****************************************************************
*
* command word for the moveinfo routine
*
*****************************************************************

moveblkcmd	equ	$0800		;tell hardware to do block move option

; the movevaliditymask is a mask used to determine if a user's command word
;   is using any invalid (reserved bits or not).  this value changes as reserved
;   bits become active!!!!!!!

movevaliditymask equ	$f7f0		;invalid move if any of these bits =1

; most common command

move_sinc_dinc	equ	$05+moveblkcmd	;source incs - destination incs

; less common commands

move_sinc_ddec	equ	$09+moveblkcmd	;source incs - destination decs
move_sdec_dinc	equ	$06+moveblkcmd	;source decs - destination incs
move_sdec_ddec	equ	$0a+moveblkcmd	;source decs - destination decs

move_scon_dcon	equ	$00+moveblkcmd	;source constant - destination constant
move_sinc_dcon	equ	$01+moveblkcmd	;source incs - destination constant
move_sdec_dcon	equ	$02+moveblkcmd	;source decs - destination constant
move_scon_dinc	equ	$04+moveblkcmd	;source constant - destination incs
move_scon_ddec	equ	$08+moveblkcmd	;source constant - destination decs
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/ATBoot/MakeFile b/IIGS.601.SRC/GS.OS/Drivers/ATBoot/MakeFile
new file mode 100644
index 0000000..d10a9a0
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/ATBoot/MakeFile
@@ -0,0 +1 @@
+boot.driver	Ä	atboot.aii.obj
	LinkIIGS ¶
			atboot.aii.obj ¶
			-t $70BB0181 ¶
			-o boot.driver
	echo "FileType = $BB  AuxType = $0181"
	quote `directory`boot.driver

atboot.aii.obj	Ä	atboot.aii equates
	AsmIIGS 	atboot.aii

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/ATRam/ATPatch/ASP/ATP.Equates.inc b/IIGS.601.SRC/GS.OS/Drivers/ATRam/ATPatch/ASP/ATP.Equates.inc
new file mode 100644
index 0000000..cd8bd2c
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/ATRam/ATPatch/ASP/ATP.Equates.inc
@@ -0,0 +1 @@
+
*
* C7equates
*

;C7xx	equ $C7A0	;emulation mode entry
;C7xxGo	equ $C7A1	;native mode entry
;C7xxRet	equ $C7A8	;return point for routines
;C7Error	equ $C7AB	;error point for pascal not installed
;C7Prodos	equ $C7AE	;bank 0 entry for prodos

*
* errors
*

lapendbuf	equ $0202
lapextra	equ $0209
largeddp	equ $0305	;only ddp err we care about
noatperr	equ $0000
largeatp	equ $0501
atpbadskt	equ $0502
noatpcb	equ $0503
noatprel	equ $0505
addnosnd	equ $0506
reqabort	equ $0507
requestfail	equ $0508
sktclsd	equ $0509
toomuchrsp	equ $050b
noddpskt	equ $050c
rsprel	equ $050d
atpbusy	equ $05ff
noqtrerr	equ $0000
noentry	equ $0101	;dispatcher item not found
norspcbmem	equ $0102	;can't allocate rspcb
qtrnotfound	equ $0103
noatalkerr	equ $0105
qtrcanceled	equ $0106
qtrbusy	equ $01ff

* 
* qtr second command lists
*
* install
*

insqtr_parmcnt	equ $00
insqtr_command	equ insqtr_parmcnt+1
insqtr_result	equ insqtr_command+1
insqtr_iocomp	equ insqtr_result+2
insqtr_ticks	equ insqtr_iocomp+4
insqtr_count	equ insqtr_ticks+2
insqtr_link	equ insqtr_count+2

* 
* remove
* must use same list that we used for install,
* only change the command field.
* 

rmvqtr_parmcnt	equ $00
rmvqtr_command	equ rmvqtr_parmcnt+1
rmvqtr_result	equ rmvqtr_command+1
rmvqtr_rsvd	equ rmvqtr_result+13 ;13 reserved bytes

*
* now we have offsets for the atp command lists
*
* SendATPReq
*
*
* the order of the following 8 paramaters must not change
* since some internal assumptions are made about the order
* of the data in order to save execution time and code space.
*

atprq_parmcnt	equ $00
atprq_command	equ atprq_parmcnt+1
atprq_result	equ atprq_command+1
atprq_iocomp	equ atprq_result+2
atprq_dymskt	equ atprq_iocomp+4
atprq_dnet	equ atprq_dymskt+1
atprq_dnode	equ atprq_dnet+2
atprq_dskt	equ atprq_dnode+1
atprq_tid	equ atprq_dskt+1
atprq_bufsize	equ atprq_tid+2
atprq_bufptr	equ atprq_bufsize+2
atprq_user	equ atprq_bufptr+4
atprq_rbnum	equ atprq_user+4
atprq_rbdsad	equ atprq_rbnum+1
atprq_flag	equ atprq_rbdsad+4
atprq_interval	equ atprq_flag+1
atprq_rtrycnt	equ atprq_interval+1
atprq_bitmap	equ atprq_rtrycnt+1
atprq_response	equ atprq_bitmap+1
atprq_link	equ atprq_response+1
atprq_timeleft	equ atprq_link+4
atprq_trysleft	equ atprq_timeleft+1

*
* CancelReq
*

creq_parmcnt	equ $00
creq_command	equ creq_parmcnt+1
creq_result	equ creq_command+1
creq_tid	equ creq_result+2

*
* SendATPResp
*

sdrsp_parmcnt	equ $00
sdrsp_command	equ sdrsp_parmcnt+1
sdrsp_result	equ sdrsp_command+1
sdrsp_iocomp	equ sdrsp_result+2
sdrsp_sskt	equ sdrsp_iocomp+4
sdrsp_dnet	equ sdrsp_sskt+1
sdrsp_dnode	equ sdrsp_dnet+2
sdrsp_dskt	equ sdrsp_dnode+1
sdrsp_tid	equ sdrsp_dskt+1
sdrsp_rbnum	equ sdrsp_tid+2	;number of buffers send on this call
sdrsp_tpkts	equ sdrsp_rbnum+1	;maximum number of packets being sent
sdrsp_rbdsad	equ sdrsp_tpkts+1
sdrsp_flag	equ sdrsp_rbdsad+4
sdrsp_bitmap	equ sdrsp_flag+1
sdrsp_addrtn	equ sdrsp_bitmap+1
sdrsp_aflag	equ sdrsp_addrtn+4	;pass free packets back here

*
* AddResp
* adds a response to xo sendresponse
*

addrsp_parmcnt	equ $00
addrsp_command	equ addrsp_parmcnt+1
addrsp_result	equ addrsp_command+1
addrsp_sskt	equ addrsp_result+2
addrsp_dnet	equ addrsp_sskt+1
addrsp_dnode	equ addrsp_dnet+2
addrsp_dskt	equ addrsp_dnode+1
addrsp_tid	equ addrsp_dskt+1
addrsp_bsize	equ addrsp_tid+2
addrsp_bptr	equ addrsp_bsize+2
addrsp_user	equ addrsp_bptr+4
addrsp_flag	equ addrsp_user+4	;only used for eom bit
addrsp_seqnum	equ addrsp_flag+1	;packet number we are adding
getrq_parmcnt	equ $00

*
* GetRequest 
*

getrq_command	equ getrq_parmcnt+1
getrq_result	equ getrq_command+1
getrq_iocomp	equ getrq_result+2
getrq_ourskt	equ getrq_iocomp+4
getrq_snet	equ getrq_ourskt+1
getrq_snode	equ getrq_snet+2
getrq_sskt	equ getrq_snode+1
getrq_tid	equ getrq_sskt+1
getrq_bufsize	equ getrq_tid+2	;size of memory buffer points to    
getrq_bufptr	equ getrq_bufsize+2	;address of buffer to put requests into
getrq_user	equ getrq_bufptr+4
getrq_actlen	equ getrq_user+4	;actual length of data read in
getrq_flag	equ getrq_actlen+2
getrq_bitmap	equ getrq_flag+1
getrq_link	equ getrq_bitmap+1

*
* openatpsocket
*

opskt_parmcnt	equ $00
opskt_command	equ opskt_parmcnt+1
opskt_result	equ opskt_command+1
opskt_skt	equ opskt_result+2

*
* closeatpsocket
*

clsskt_parmcnt	equ $00
clsskt_command	equ clsskt_parmcnt+1
clsskt_result	equ clsskt_command+1
clsskt_skt	equ clsskt_result+2

*
* relrspcb
*

relcb_parmcnt	equ $00
relcb_command	equ relcb_parmcnt+1
relcb_result	equ relcb_command+1
relcb_ourskt	equ relcb_result+2
relcb_snet	equ relcb_ourskt+1
relcb_snode	equ relcb_snet+2
relcb_sskt	equ relcb_snode+1
relcb_tid	equ relcb_sskt+1

*
* rspcb
* definition of internal response control block
*

rspcb_link	equ $00	;first item is link	to next rspcb
rspcb_sndptr	equ rspcb_link+4	;points to associated sndatprsp
rspcb_sskt	equ rspcb_sndptr+4	;source socket
rspcb_dnet	equ rspcb_sskt+1	;destination net
rspcb_dnode	equ rspcb_dnet+2	;destination node
rspcb_dskt	equ rspcb_dnode+1	;destination socket
rspcb_tid	equ rspcb_dskt+1	;transaction id
rspcb_timeout	equ rspcb_tid+2	;internal release timer
rspcbsize	equ rspcb_timeout+1	;size of rspcb

*
* bds
* structure of a bds
*

bds_bufsize	equ $00
bds_bufptr	equ bds_bufsize+2
bds_user	equ bds_bufptr+4
bds_actlen	equ bds_user+4	;actual len returned by atp
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/ATRam/ATPatch/ASP/Global.Equates.inc b/IIGS.601.SRC/GS.OS/Drivers/ATRam/ATPatch/ASP/Global.Equates.inc
new file mode 100644
index 0000000..910f859
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/ATRam/ATPatch/ASP/Global.Equates.inc
@@ -0,0 +1 @@
+* these are common global equates used throughout appletalk	routines
* 
*  Greg Seitz
*  29-Apr-87
*


priorityvec	equ $e1103a	;address of vector list
pfivec	equ $e1103e	;vector for calling pfi translator
;atloadin	equ $c7ae	;atload has been installed flag
atloadloc	equ $00bf01	;location of atloadin flag


small	equ 1	;remove addresponse

sline	equ $000480	;print on this line
romread	equ $e1c081	;make these long
lcbank2	equ $e1c083
statereg	equ $e1c068
cyareg	equ $e1c036
;RomId	equ $00c7fe
fixstatereg	equ $6024	;Now in LAP......

incbusyflag	equ $e10064	;scheduler routines
decbusyflag	equ $e10068

emulstack	equ $010100
databank	equ $e1e1e1

*
* first we have some global constants
*
nbit	equ $80
vbit	equ $40
mbit	equ $20
xbit	equ $10
ibit	equ $04
zbit	equ $02
cbit	equ $01

rspval	equ 120	;30 seconds for rspcb timer

*
* ATP header constants
*
atpxobit	equ $20
atpeombit	equ $10
atpstsbit	equ $08
*

* interface equates
*
* Fixed RAM vectors.
*
Extended	equ $e11000	;RAM vectors.  Extended interface entry.
Basic	equ Extended+4	;Basic entry.
Pascal	equ Basic+4	;Pascal entry.
RamGoComp	equ Pascal+4	;users gocomp entry	for completions
SoftReset	equ RamGoComp+4	;Soft reset chain.
RamDispatch	equ SoftReset+4	;Command dispatcher.
RamForbid	equ RamDispatch+4	;RAM vector to long	entry of forbid.
RamPermit	equ RamForbid+4	;For Permit.
ProEntry	equ RamPermit+4	;Original ProDOS entry point.
Prodos	equ ProEntry+2	;Prodos entry.
SerStatus	equ Prodos+4	;Serial interface status hook
SerWrite	equ SerStatus+4	;' ' write hook.
SerRead	equ SerWrite+4	;For Read.
SerBackgnd	equ SerRead+4	;For background printing.
PDispatch	equ SerBackgnd+4	;For dispatching packets.

lapzplen	equ $10

* ddp
*
e1ddpend	equ $e1d600	;really $e1d600 (gets around dumb link)
ddpzplen	equ 14

*
* zero page usage
*
* first two must be	in order, since the	dispatcher uses
* them.
*
cmdlist	equ $80	;global ptr to paramaters
execaddr	equ cmdlist+4
stackzp	equ execaddr+4	;for use in gocomp
prev	equ execaddr+4	;previous node pointer
curr	equ prev+4	;current node pointer
next	equ curr+4	;pointer to next node
R0	equ next+4	;4 byte register
R1	equ R0+4	;and another
R2	equ R1+4
laphead	equ R2+4	;4 byte pointer to lap header
bdsptr	equ laphead+4	;holds pointer to bds

zplen	equ bdsptr+4-cmdlist ;length of zero page
atpzplen	equ zplen-8	;length minus first	two vars





CSWL	equ $36
KSWL	equ $38
sccareg	equ $c039
whichSCC	equ $e110a0
pslotval	equ $e112fe
xslotval	equ $e112ff

;oldQSetup	equ $ff4b00
;oldQPascal	equ $ff4b03
;newQSetup	equ $00c7d8	;for after version 1 roms
;newQPascal	equ $00c7dc

ldest	equ $e11180	;interface code here
altsp	equ $010101
mainsp	equ $010100
rdaltzp	equ $c016
*
* rpm equates
*
maxwrite	equ 512
rpmzplen	equ $08	;number of bytes of	zp to save
maxname	equ 99	;maximum possible size for a name
crzp	equ $80
lpzp	equ $84
link	equ $08	;length of link field
fastbit	equ $04	;mask for fast bit 1 means on




zipzplen	equ $08
zipinuse	equ $0601
zipoverflow	equ $0602
zipnotfound	equ $0603
zipbusy	equ $06ff

AsyncErr	equ $0104	; call is sync only (7-Oct-91 MSD)
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/ATRam/ATPatch/ASP/SP.Equates.inc b/IIGS.601.SRC/GS.OS/Drivers/ATRam/ATPatch/ASP/SP.Equates.inc
new file mode 100644
index 0000000..2de2803
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/ATRam/ATPatch/ASP/SP.Equates.inc
@@ -0,0 +1 @@
+;------------------------------------------
;
; Equates from procedure spglobals
;
; 16-May-91 MSD	Added new error code $0705 which is returned if a buffer
;	was too small (as opposed to $0704 which is returned if
;	you exceed one of ASP's hard-coded limits for command or
;	write data lengths).  Added error $0708 (too many sessions).
;	Added constants for the CloseSession interval and count.
;------------------------------------------
spzplen	equ $1c	;amount of zero page to save
maxaspsessions	equ 8	;current maximum number of sessions allowed
closesession	equ 1
writedata	equ 7
attention	equ 8
itemfree	equ $0000
iteminuse	equ $0100
itemopen	equ $0200	;flag to indicate item open
endtable	equ $ffff
instimer	equ $480
rmvtimer	equ $500
maxcmdsize	equ 578
quantumsize	equ 4624
closeintvl	equ 4	; 1 second between retrys
closecount	equ 5	; with 5 retries
cmdintvl	equ 8
cmdcount	equ 15
conntime	equ 4*120	;allow 2 minutes of	no activity
badvernum	equ $d6fb
spnoerr	equ 0
spneterr	equ $701
sptoomany	equ $702
spbadrefnum	equ $703
spsizeerr	equ $704	; command or write size too big
spbuffererr	equ $705	; reply buffer too small
spnoresponse	equ $706
spbadver	equ $707
sptoomanysess	equ $708	; SPOpen: too many sessions open
spserverbusy	equ $709
spclosed	equ $70a
spbusy	equ $7ff
closebit	equ $80
timeoutbit	equ $40
rqtableoffset	equ atprq_trysleft+1 ;we store table at	end of rqlist
rqusercmdlist	equ rqtableoffset+2	;and status user cmdlist is here
ttableoffset	equ $10	;offset to session table in timer list
srec_oreq	equ $00
srec_creq	equ $02
srec_cmdreq	equ $04
srec_wreq	equ $06
srec_wreply	equ $08
srec_treq	equ $0a
srec_creply	equ $0c
srec_timer	equ $0e
srec_sss	equ $10
srec_seqnum	equ $11
srec_usersesnum	equ $11	;temporarily store users ref num while opening
srec_ocmdlist	equ $13
srec_attention	equ $13	;attention and open	use same space
srec_ccmdlist	equ $17
srec_cmdcmdlist	equ $1b
srec_wcmdlist	equ $1f
srec_tableaddr	equ $23
spstat_async	equ $00
spstat_command	equ $01
spstat_result	equ $02
spstat_iocomp	equ $04
spstat_slsnet	equ $08
spstat_slsnode	equ $0a
spstat_slsskt	equ $0b
spstat_buflen	equ $0c
spstat_bufptr	equ $0e
spstat_datalen	equ $12
spopen_async	equ $00
spopen_command	equ $01
spopen_result	equ $02
spopen_iocomp	equ $04
spopen_slsnet	equ $08
spopen_slsnode	equ $0a
spopen_slsskt	equ $0b
spopen_attention	equ $0c
spopen_sref	equ $10
spcmd_async	equ $00
spcmd_command	equ $01
spcmd_result	equ $02
spcmd_iocomp	equ $04
spcmd_sref	equ $08
spcmd_cmdlen	equ $09
spcmd_cmdadr	equ $0b
spcmd_rbuflen	equ $0f
spcmd_rbufadr	equ $11
spcmd_cmdresult	equ $15
spcmd_replylen	equ $19
spwrt_async	equ $00
spwrt_command	equ $01
spwrt_result	equ $02
spwrt_iocomp	equ $04
spwrt_sref	equ $08
spwrt_cmdlen	equ $09
spwrt_cmdadr	equ $0b
spwrt_wrtlen	equ $0f
spwrt_wrtadr	equ $11
spwrt_rbuflen	equ $15
spwrt_rbufadr	equ $17
spwrt_cmdresult	equ $1b
spwrt_writtenlen	equ $1f
spwrt_replylen	equ $21
spclose_async	equ $00
spclose_command	equ $01
spclose_result	equ $02
spclose_iocomp	equ $04
spclose_sref	equ $08

;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

	IMPORT on
* 
* Sp_equates
* 
* by 
*   Greg Seitz
*   2-Jun-87
*
* this file contains the equates used
* by the session protocol code.
*
*
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/ATRam/ATPatch/ASP/SP_asm.aii b/IIGS.601.SRC/GS.OS/Drivers/ATRam/ATPatch/ASP/SP_asm.aii
new file mode 100644
index 0000000..dd43b52
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/ATRam/ATPatch/ASP/SP_asm.aii
@@ -0,0 +1 @@
+
;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------
*
* sp.asm
*
*   by
*       Greg Seitz
*       3-Jun-87
*
* this file is responsible for installing asp into the command 
* dispatcher and doing any neccessary initialization stuff
*



	EXPORT spinstall
spinstall	PROC



realinstall		; 
	clc	;force native
	xce
	phb
	phk	;data is in same bank as code
	plb

	sep #mbit+xbit
	lda >statereg
	pha	;save machine state
	lda >lcbank2
	lda >lcbank2	;enable lcbank2 for	writing

	rep #mbit+xbit
	longa on
	longi on
	lda >softreset	;get the current reset vector
	sta oldreset	;and store internally
	lda >softreset+2
	sta oldreset+2	;now we have the old vector
	lda callreset	;store a jml ourreset
	sta >softreset	;into vector
	lda callreset+2
	sta >softreset+2
	jsr spinit	;zero out stuff
	ldx #ourcmds	;get our command table
	ldy #$d600+($1c*4)	;table starts at $d600
	lda #endcmds-ourcmds-1 ;move this many bytes
	mvn ourcmds,$e10000	;to bank $e1
	sep #mbit+xbit
	pla	;get statereg
	sta >statereg
	rep #mbit+xbit
	plb
	rtl

callreset	jml ourreset	;this code is moved	to vector

	EXPORT spinit
spinit		;       
	lda <R1	;save zero page
	sta saver1
	stz wss	;no work station socket yet
	stz wascancelled	;clear semaphore flag
	ldx #sessiontable	;clear this table out to init state
	jsr zerotable
	ldx #statustable
	jsr zerotable
	lda saver1
	sta <R1	;restore zero page
	rts


zerotable		; 
	stx <R1	;use for zp pointer
	ldy #0002	;point to first item
zitem	lda (<R1),y	;get flag item 
	cmp #endtable	;see if we are done
	beq zerodone
	lda #0000
	sta (<R1),y	;zero hi word out (leave low word intact)
	iny
	iny
	iny
	iny
	bra zitem	;keep looping
zerodone	rts


ourcmds		; 

	DC.A cspgetparms	;$1c
	DC.B spzplen
	DC.A cspgetstatus	;$1d
	DC.B spzplen
	DC.A cspopensession	;$1e
	DC.B spzplen
	DC.A cspclose	;$1f
	DC.B spzplen
	DC.A cspcommand	;$20
	DC.B spzplen
	DC.A cspwrite	;$21
	DC.B spzplen

endcmds		; 


	EXPORT ourreset
ourreset		;       ;should come here during reset
	php	;save mode bits
	phb	;and databank
	jsl oldreset	;let lower protocol	get called first
	phk	;set up data bank
	plb
	jsr spinit	;and re-init pap
	plb	;restore bank
	plp	;and mode bits
	rtl	;and return to our caller

	EXPORT oldreset
oldreset		;       ;this code gets old reset vector
	jml $000000	;dummy code



	ENDP

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/ATRam/ATPatch/ASP/SP_close.aii b/IIGS.601.SRC/GS.OS/Drivers/ATRam/ATPatch/ASP/SP_close.aii
new file mode 100644
index 0000000..a1f46d5
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/ATRam/ATPatch/ASP/SP_close.aii
@@ -0,0 +1 @@
+
;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

*
* sp_close
*
*   by
*   Greg Seitz
*   10-jun-87
*
* this is the close	module for asp.  It	takes care of shutting down
* all processes related to the session it is being asked to	close
*
*


	EXPORT cspclose
cspclose	PROC

	longa on
	longi on

	jsr sp_setup	;set everything up
	ldy #spclose_sref
	lda [<cmdlist],y	;get session number
	and #$00ff	;strip high byte junk
	jsr sessionmatch	;see if session number is valid
	bcc goodsession	;the session is good
	lda #spbadrefnum	;bad reference number
	brl accumexit	;leave with error
goodsession		; 
	sta <R1	;save session rec ptr in r1
	ldy #srec_ccmdlist
	lda (<R1),y	;see if command in progress
	iny
	iny
	ora (<R1),y	;make sure both zero
	beq goodsession1	;session still good
	lda #sptoomany	;too many command calls
	brl accumexit
goodsession1		; 
	ldy #srec_ccmdlist
	lda <cmdlist
	sta (<R1),y
	iny
	iny
	lda <cmdlist+2
	sta (<R1),y
	ldy #srec_creq
	lda (<R1),y	;get closerequest list
	sta <R0

	sep #mbit
	longa off

	ldy #atprq_bitmap
	lda #01
	sta (<R0),y	;set bitmap each time

	rep #mbit
	longa on
	lda #spbusy
	ldy #spopen_result	;offset to result
	sta [cmdlist],y	;and show that we are busy
	ldx <R0
	ldy #^spbank
	jsl >RamDispatch	;make the close request
	jml >RamPermit	;back down ints and	exit


	EXPORT closecomp
closecomp		;       ;comes here	when close request completes
	pei <R0
	ldy #rqtableoffset	;find session rec
	lda (<cmdlist),y
	sta <R0	;save session rec
	tax
	ldy #atprq_result	;get offset to result
	lda (<cmdlist),y	;get result of atprequest
	cmp #reqabort	;see if request was	aborted by close
	beq dontclosetwice	;the 'closeconnection' routine forced cancel, don't call again 
	lda #00	;no attention to call
	jsr closeconnection	;close up loose ends
dontclosetwice		; 
	ldy #srec_ccmdlist
	lda (<R0),y
	sta <cmdlist	;get users cmdlist
	lda #0000	;clear out old entry
	sta (<R0),y
	iny
	iny
	lda (<R0),y
	sta <cmdlist+2
	lda #0000
	sta (<R0),y	;clear out high word of old entry
	pla 
	sta <R0
	lda #spnoerr
	brl exitcomp	;exit completion routine

*
* closeconnection -	cancels cmd and write and timer for the
* session rec passed to it, also frees up table entry for that
* session.
* x = srec ptr
*
	EXPORT closeconnection
closeconnection		;       
	pei <R0
	pei <R1
	pha	;save attention flag
	stx <R0	;save session rec
	ldy #srec_timer	;first cancel timer
	lda (<R0),y
	sta <R1
	lda #rmvtimer
	sta (<R1)	;remove connection timer
	ldx <R1
	ldy #^spbank
	jsl >RamDispatch
	lda <R0
	sta <R1
	lda #iteminuse	;session no longer open, but still in use
	jsr settable
	ldy #srec_cmdreq	;cancel this request
	jsr canrequest	;cancel it
	ldy #srec_wreq	;cancel this request
	jsr canrequest	;cancel it
	ldy #srec_treq	;cancel this request
	jsr canrequest	;cancel it
	jsr getsessnum	;find out number of	this session
	sta closesessnum
	plx	;get atten routine flag
	beq alldone	;we are done so exit
* now we need to call the users attention routine
* with the appropriate data stored in it.
	pei <cmdlist+2
	pei <cmdlist	;save zp use
	pei <execaddr+2
	pei <execaddr
	ldy #srec_attention	;offset to attention routine
	lda (<R0),y	;get low word
	sta <cmdlist
	iny
	iny
	lda (<R0),y	;get high word
	sta <cmdlist+2
	ora <cmdlist	;see if no attention routine
	beq callattenexit
	lda closesessnum	;get session ref
	sta [<cmdlist]	;store session number
	ldy #0001	;put attention word	at 2 bytes
	txa	;get attention flag
	sta [<cmdlist],y	;pass to attention routine
	clc
	lda <cmdlist
	adc #0004	;call routine at 4 bytes past address
	sta <execaddr
	lda <cmdlist+2
	adc #0000
	sta <execaddr+2
	pei <R0	;save session record pointer
	jsl >RamGoComp	;call attention routine
	pla
	sta <R0	;restore session record pointer
callattenexit		; 
	pla
	sta <execaddr
	pla
	sta <execaddr+2
	pla
	sta <cmdlist
	pla
	sta <cmdlist+2	;zp is restored
alldone		; 
* the last thing we	should do is attempt to cancel the close request
* that might have been pending, since it is possible that the close could
* have been issued by the server just after we issued our own close.  If
* we do not cancel,	we would have to wait until the close request timed
* out before the users close call would	complete.  
	ldy #srec_creq	;cancel the close request
	jsr canrequest	;cancel it
	lda <R0
	sta <R1
	lda #itemfree	;now we are really all closed up, so item can 
	jsr settable	;be set to free.
	pla
	sta <R1
	pla
	sta <R0
	rts

*
* getsessnum - returns session number of session rec
* R0=session record	to get session for
* a=session number
*
	EXPORT getsessnum
getsessnum		;       
	ldy #srec_tableaddr
	lda (<R0),y	;get our table location
	sec
	sbc #sessiontable	;subtract base
	lsr a
	lsr a	;divide by four to get index
	inc a	;index starts at 1
	rts
*
* canrequest - cancels request for list	passed in y
* assumes R0 points	to session rec, and	it can destroy
* R1
*
canrequest		; 
	lda (<R0),y	;get parm list 
	sta <R1
	ldy #atprq_tid	;get tid
	lda (<R1),y	;from that request
	sta cancelrequest+4	;set in can request	list
	ldx #cancelrequest
	ldy #^cancelrequest
	jsl >RamDispatch	;do the cancel
	rts


	ENDP


\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/ATRam/ATPatch/ASP/SP_cmd.aii b/IIGS.601.SRC/GS.OS/Drivers/ATRam/ATPatch/ASP/SP_cmd.aii
new file mode 100644
index 0000000..2d68e19
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/ATRam/ATPatch/ASP/SP_cmd.aii
@@ -0,0 +1 @@
+*
* sp_cmd
*
*   by
*   Greg Seitz
*   9-jun-87
*
* this is the command module for asp.  It sends asp commands.
*
*


	EXPORT cspcommand
cspcommand	PROC


	longa on
	longi on

	jsr sp_setup	;set everything up
	ldy #spcmd_sref
	lda [<cmdlist],y	;get session number
	and #$00ff	;strip high byte junk
	jsr sessionmatch	;see if session number is valid
	bcc goodsession	;the session is good
	lda #spbadrefnum	;bad reference number
	brl accumexit	;leave with error
goodsession		; 
	sta <R1	;save session rec ptr in r1
	ldy #srec_cmdcmdlist
	lda (<R1),y	;see if command in progress
	iny
	iny
	ora (<R1),y	;make sure both zero
	beq goodsession1	;session still good
	lda #sptoomany	;too many command calls
	brl accumexit
goodsession1		; 
	ldy #srec_cmdreq
	lda (<R1),y	;get cmdrequest list
	sta <R0
	tax
	lda <R1	;get session rec
	jsr setrequestbuf	;set up request buffer data
	bcc lenok	;length was good
	lda #spsizeerr
	brl accumexit	;exit with error
lenok		; 
	ldy #srec_cmdcmdlist
	lda <cmdlist
	sta (<R1),y	;save users command	list
	iny
	iny
	lda <cmdlist+2
	sta (<R1),y
	ldy #spcmd_rbuflen	;offset to len field in cmdlist
	ldx <R0	;cmdrequest parmlist ptr
	jsr setreplybuf	;set up reply bds
	lda #spbusy
	ldy #spopen_result	;offset to result
	sta [cmdlist],y	;and show that we are busy
	ldx <R0	;call atalk with request
	ldy #^spbank
	jsl >RamDispatch	;make the call
	jml >RamPermit	;back down ints and	exit

	EXPORT cmdcomp
cmdcomp		;       ;completion	routine for above
	pei <R0
	pei <R1
	lda <cmdlist
	sta <R0	;points to parmlist
	ldy #rqtableoffset
	lda (<R0),y	;get sessionrec ptr
	sta <R1	;and save it
	ldy #srec_cmdcmdlist
	lda (<R1),y	;get users cmdlist
	sta <cmdlist
	lda #0000
	sta (<R1),y	;clear out entry in	srec
	iny
	iny
	lda (<R1),y	;get high word
	sta <cmdlist+2
	lda #0000
	sta (<R1),y	;clear out high word to release cmd
	ldy #atprq_result	;get offset to result
	lda (<R0),y	;get result of atprequest
	cmp #reqabort	;request was aborted by close
	bne notfail	;nope
	lda #spclosed	;connection has closed
	brl cmderrexit	;exit with this error
notfail		; 
	cmp #spnoerr	;see if no error occurred
	beq goodcmd	;it was good
	ldy #rqtableoffset
	lda (<R0),y	;get sessionrec ptr
	sta <R1	;and save it
	ldy #srec_seqnum	;get sequence number field
	lda (<R1),y	;get sequence number
	dec a	;put it back the way it was
	sta (<R1),y	;save it 
	lda #spneterr	;unexpected error
	brl cmderrexit
goodcmd		; 
	ldx <R1	;point to srec
	jsr resettime	;reset timeout timer
	ldx <R0	;pointer to atprequest
	ldy #spcmd_cmdresult ;offset to cmdresult field
	jsr setcmdresult	;set the cmdresult for user
	ldx <R0	;pointer to atprequest
	jsr findbdslen	;calculate len of bds
	ldy #spcmd_replylen
	sta [<cmdlist],y	;set len for user
	lda #spsizeerr	;assume size error
	bcs cmderrexit	;exit with err in a
	lda #spnoerr	;no error
cmderrexit		; 
	tax	;save error code
	pla
	sta <R1
	pla
	sta <R0
	txa
	brl exitcomp	;set error and exit


*
* setcmdresult - sets result field in users command list
* x = pointer to atprequest
* y = offset to cmdresult field in cmdlist
* cmdlist = users cmdlist pointer
*
	EXPORT setcmdresult
setcmdresult		;       
	pei <R0
	stx <R0	;save request pointer
	phy	;save offset
	ldy #atprq_rbdsad
	lda (<R0),y	;get address of bds
	sta <R0
	ldy #bds_user+2	;get result
	lda (<R0),y
	tax	;hold high word in x
	dey
	dey
	lda (<R0),y	;get low word
	ply	;recover offset
	sta [<cmdlist],y	;store low word in users cmdlist
	iny
	iny
	txa	;get high word
	sta [<cmdlist],y	;store high word in	users cmdlist
	pla
	sta <R0
	rts

*
* setrequestbuf
* sets the request parmlists data to send and also sets the
* sequence number, and increments it.
*
* x = pointer to request parmlist
* a = pointer to session rec
* cmdlist = users command list
*
* returns carry set	if there was a size	error (too big)
*
	EXPORT setrequestbuf
setrequestbuf		;       
	pei <R0
	pei <R1
	stx <R0	;point to parmlist
	sta <R1	;point to srec
	ldy #spcmd_cmdlen
	lda [<cmdlist],y	;get len user wants	to set
	cmp #maxcmdsize+1
	bcs exitsetrq	;exit with error (c	is set)
	ldy #atprq_bufsize
	sta (<R0),y	;save size
	ldy #spcmd_cmdadr
	lda [<cmdlist],y
	pha
	iny
	iny
	lda [<cmdlist],y	;get high word of command buf
	ldy #atprq_bufptr+2
	sta (<R0),y
	dey
	dey
	pla
	sta (<R0),y	;save command buf in request list
	ldy #srec_seqnum	;get sequence number field
	lda (<R1),y	;get sequence number
	inc a	;increment it
	sta (<R1),y	;save it 
	ldy #atprq_user+2	;move to sequence num field
	xba	;put in mac format
	sta (<R0),y	;save in atprequest	parmlist
	clc
exitsetrq		; 
	pla
	sta <R1
	pla
	sta <R0
	rts


	ENDP




\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/ATRam/ATPatch/ASP/SP_includes.aii b/IIGS.601.SRC/GS.OS/Drivers/ATRam/ATPatch/ASP/SP_includes.aii
new file mode 100644
index 0000000..3f26707
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/ATRam/ATPatch/ASP/SP_includes.aii
@@ -0,0 +1 @@
+;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

	ENTRY oldreset
	ENTRY ourreset
	ENTRY spinit

	ENTRY	arspbds
	ENTRY	closereply1
	ENTRY	closereply2
	ENTRY	closereply3
	ENTRY	closereply4
	ENTRY	closereply5
	ENTRY	closereply6
	ENTRY	closereply7
	ENTRY	closereply8
	ENTRY	closereq1
	ENTRY	closereq2
	ENTRY	closereq3
	ENTRY	closereq4
	ENTRY	closereq5
	ENTRY	closereq6
	ENTRY	closereq7
	ENTRY	closereq8
	ENTRY	clsrplybds1
	ENTRY	clsrplybds2
	ENTRY	clsrplybds3
	ENTRY	clsrplybds4
	ENTRY	clsrplybds5
	ENTRY	clsrplybds6
	ENTRY	clsrplybds7
	ENTRY	clsrplybds8
	ENTRY	clsrqbds1
	ENTRY	clsrqbds2
	ENTRY	clsrqbds3
	ENTRY	clsrqbds4
	ENTRY	clsrqbds5
	ENTRY	clsrqbds6
	ENTRY	clsrqbds7
	ENTRY	clsrqbds8
	ENTRY	cmdreq1
	ENTRY	cmdreq2
	ENTRY	cmdreq3
	ENTRY	cmdreq4
	ENTRY	cmdreq5
	ENTRY	cmdreq6
	ENTRY	cmdreq7
	ENTRY	cmdreq8
	ENTRY	cmdrqbds1
	ENTRY	cmdrqbds2
	ENTRY	cmdrqbds3
	ENTRY	cmdrqbds4
	ENTRY	cmdrqbds5
	ENTRY	cmdrqbds6
	ENTRY	cmdrqbds7
	ENTRY	cmdrqbds8
	ENTRY	grqbuf
	ENTRY	openreq1
	ENTRY	openreq2
	ENTRY	openreq3
	ENTRY	openreq4
	ENTRY	openreq5
	ENTRY	openreq6
	ENTRY	openreq7
	ENTRY	openreq8
	ENTRY	orqbds1
	ENTRY	orqbds2
	ENTRY	orqbds3
	ENTRY	orqbds4
	ENTRY	orqbds5
	ENTRY	orqbds6
	ENTRY	orqbds7
	ENTRY	orqbds8
	ENTRY	sessionrec1
	ENTRY	sessionrec2
	ENTRY	sessionrec3
	ENTRY	sessionrec4
	ENTRY	sessionrec5
	ENTRY	sessionrec6
	ENTRY	sessionrec7
	ENTRY	sessionrec8
	ENTRY	sessiontable
	ENTRY	statusreq1
	ENTRY	statusreq2
	ENTRY	statusreq3
	ENTRY	statusreq4
	ENTRY	statusreq5
	ENTRY	statusreq6
	ENTRY	statusreq7
	ENTRY	statusreq8
	ENTRY	statustable
	ENTRY	stsrqbds1
	ENTRY	stsrqbds2
	ENTRY	stsrqbds3
	ENTRY	stsrqbds4
	ENTRY	stsrqbds5
	ENTRY	stsrqbds6
	ENTRY	stsrqbds7
	ENTRY	stsrqbds8
	ENTRY	ticklereq1
	ENTRY	ticklereq2
	ENTRY	ticklereq3
	ENTRY	ticklereq4
	ENTRY	ticklereq5
	ENTRY	ticklereq6
	ENTRY	ticklereq7
	ENTRY	ticklereq8
	ENTRY	timer1
	ENTRY	timer2
	ENTRY	timer3
	ENTRY	timer4
	ENTRY	timer5
	ENTRY	timer6
	ENTRY	timer7
	ENTRY	timer8
	ENTRY	tklrqbds1
	ENTRY	tklrqbds2
	ENTRY	tklrqbds3
	ENTRY	tklrqbds4
	ENTRY	tklrqbds5
	ENTRY	tklrqbds6
	ENTRY	tklrqbds7
	ENTRY	tklrqbds8
	ENTRY	writereply1
	ENTRY	writereply2
	ENTRY	writereply3
	ENTRY	writereply4
	ENTRY	writereply5
	ENTRY	writereply6
	ENTRY	writereply7
	ENTRY	writereply8
	ENTRY	writereq1
	ENTRY	writereq2
	ENTRY	writereq3
	ENTRY	writereq4
	ENTRY	writereq5
	ENTRY	writereq6
	ENTRY	writereq7
	ENTRY	writereq8
	ENTRY	wrtrqbds1
	ENTRY	wrtrqbds2
	ENTRY	wrtrqbds3
	ENTRY	wrtrqbds4
	ENTRY	wrtrqbds5
	ENTRY	wrtrqbds6
	ENTRY	wrtrqbds7
	ENTRY	wrtrqbds8
	ENTRY	wtrplybds1
	ENTRY	wtrplybds2
	ENTRY	wtrplybds3
	ENTRY	wtrplybds4
	ENTRY	wtrplybds5
	ENTRY	wtrplybds6
	ENTRY	wtrplybds7
	ENTRY	wtrplybds8

	entry cspclose
	entry cspcommand
	entry cspgetparms
	entry cspgetstatus
	entry cspopensession,WSS,WASCANCELLED,SAVER1
	entry cspwrite,SESSIONTABLE,SAVER1,STATUSTABLE

	ENTRY getsessnum

	ENTRY setcmdresult
	ENTRY setrequestbuf


	ENTRY grqsessionmatch
	ENTRY movemem
	ENTRY resettime
	ENTRY setses
	ENTRY setsss
	ENTRY settable
	ENTRY setupreply

	ENTRY accumexit
	ENTRY chkiocmp
	ENTRY findbdslen
	ENTRY findfree
	ENTRY movenetinfo
	ENTRY setreplybuf
	ENTRY sp_setup
	
	entry	spbank,openatpsocket,grqparm,closeconnection
	entry	callexecflag,arsp,relparm,closesessnum,cancelrequest


* sp_includes.aii

	if  &TYPE('fullheader')='UNDEFINED' then
	print off
	endif

	include 'atp.equates.inc'
	include 'global.equates.inc'
	include 'sp.equates.inc'

	print on


	include	'sp_asm.aii'
	include	'sp_status.aii'
	include	'sp_open.aii'
	include	'sp_close.aii'
	include	'sp_cmd.aii'
	include	'sp_write.aii'
	include	'sp_vars.aii'

	end
	
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/ATRam/ATPatch/ASP/SP_open.aii b/IIGS.601.SRC/GS.OS/Drivers/ATRam/ATPatch/ASP/SP_open.aii
new file mode 100644
index 0000000..afabc11
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/ATRam/ATPatch/ASP/SP_open.aii
@@ -0,0 +1 @@
+;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------
*
* sp_open
*
*   by
*   Greg Seitz
*   8-jun-87
*
* this is the open module for asp.  It starts a session off.
*
*
;
; 16-May-91 MSD	Changed error returned when no more sessions
;	can be opened (the session table is full) from
;	$0702 (too many ASP calls) to $0708 (too many
;	open sessions).
;
; 25-Sep-91 MSD	If I can't open an ATP socket when trying to open
;	a session, return network error instead of too many
;	open sessions.
;


	EXPORT cspopensession
cspopensession	PROC

	longa on
	longi on

	jsr sp_setup	;set everything up
	lda wss	;get work station socket
	bne goodsocket	;it's valid
	lda #0000
	sta openatpsocket+4	;clear out socket num field
	ldx #openatpsocket	;open a socket
	ldy #^openatpsocket
	jsl >RamDispatch	;make the call
	lda openatpsocket+2	;get result
	beq gotsocket	;got a good socket  
	lda #spneterr	; 25-Sep-91 MSD
	brl accumexit
gotsocket		; 
	lda openatpsocket+4	;get socket num returned
	sta wss	;and save our socket num
	sta grqparm+8	;issue first getrequest
	ldx #grqparm
	ldy #^grqparm
	jsl >RamDispatch
goodsocket		; 
	ldx #sessiontable	;find us a free item
	jsr findfree
	bcc gotfree	;we got a free session
	lda #sptoomanysess	;to many open calls	active (16-May-91 MSD)
	brl accumexit	;leave with error code
gotfree		; 
	pha	;save index number returned
	stx <R0
	lda #iteminuse	;we are in process of opening
	ldy #0002	;move to marker position
	sta (<R0),y
	lda (<R0)	;get pointer to sessionrec
	sta <R0	;save it
	pla	;recover index number to free sessiontable
	ldy #srec_usersesnum ;
	sta (<R0),y	;save index number till open completion	routine is called
	ldy #srec_oreq
	lda (<R0),y	;get openrequest parmlist ptr
	sta <R1	;save for later
	tax
	jsr movenetinfo	;move network info into request
	ldy #srec_treq
	lda (<R0),y	;get ticklerequest parmlist ptr
	tax
	jsr movenetinfo	;move network info into request
	ldy #srec_creq
	lda (<R0),y	;get closerequest parmlist ptr
	tax
	jsr movenetinfo	;move network info into request
	ldy #srec_cmdreq
	lda (<R0),y	;get commandrequest	parmlist ptr
	tax
	jsr movenetinfo	;move network info into request
	ldy #srec_wreq
	lda (<R0),y	;get writerequest parmlist ptr
	tax
	jsr movenetinfo	;move network info into request
	lda <cmdlist	;get users command list
	ldy #srec_ocmdlist
	sta (<R0),y
	iny
	iny
	lda <cmdlist+2
	sta (<R0),y

	sep #mbit	;use 8 bit a
	longa off
	lda wss	;get socket
	ldy #atprq_user+1	;move to wss field  
	sta (<R1),y	;store in open request
	ldy #atprq_bitmap
	lda #01
	sta (<R1),y	;set bitmap each time
	rep #mbit	;back to full native
	longa on
	lda #spbusy
	ldy #spopen_result	;offset to result
	sta [cmdlist],y	;and show that we are busy
	ldx <R1	;get parm list address
	ldy #^spbank
	jsl >RamDispatch	;call atalk
	jml >RamPermit	;back down ints and	exit

*
* opencomp - this is the completion routine for the open session call
* we must determine	whether the open was succesful, and if so set everything
* up appropriatly.
*
	EXPORT opencomp
opencomp		;       
	pei <R0	;save zero page usage
	pei <R1
	lda <cmdlist	;save our list pointer
	sta <R0	;in R0
	ldy #rqtableoffset	;offset to storage location of cmdlist ptr
	lda (<R0),y	;get related session record
	sta <R1	;save pointer to session rec
	ldy #srec_ocmdlist
	lda (<R1),y	;get low word of users open cmdlist
	sta <cmdlist
	iny
	iny
	lda (<R1),y
	sta <cmdlist+2
	ldy #0002	;move to result field
	lda (<R0),y	;get result of open	request
	cmp #requestfail	;request timed out
	bne notfail	;not a fail
	lda #spnoresponse	;no server responding
	brl openerrexit	;exit with error
notfail	cmp #spnoerr	;see if call good
	beq goodopen	;yes
	lda #spneterr	;un-expected error
	brl openerrexit
goodopen		; 
	ldy #atprq_rbdsad
	lda (<R0),y	;get rbds pointer
	sta <R0	;r0 now points to rbds
	ldy #bds_user+2	;get offset to error returned
	lda (<R0),y	;get error code
	beq goodopen1	;opening is still good
	cmp #badvernum	;see if server bad version number
	bne serverbusyerr	;no, so assume server busy
	lda #spbadver	;return bad version	number
	brl openerrexit
serverbusyerr		; 
	lda #spserverbusy
	brl openerrexit
goodopen1		; 
	ldy #bds_user	;offset to sss field
	sep #mbit	;8 bit mode
	lda (<R0),y	;get sss
	ldy #srec_sss
	sta (<R1),y	;save in session record
	ldy #srec_cmdreq
	jsr setsss
	ldy #srec_wreq
	jsr setsss
	ldy #srec_creq
	jsr setsss
* the following field (srec_usersesnum)	contains the session number
* that we give to the person who called	us, so he can make other calls
* like writes and commands.  This field	is currently the index into the 
* session table.  The sessionrefnum that is maintained to the server may
* not neccesarily be the same as the one that we return to the user
*
	ldy #srec_usersesnum ;get user session number assigned in first stage of open
	lda (<R1),y
	ldy #spopen_sref
	sta [<cmdlist],y	;tell user his session ref number
	ldy #bds_user+1	;get session num offset
	lda (<R0),y	;get session num
	ldy #srec_cmdreq	;set session number
	jsr setses
	ldy #srec_treq
	jsr setses
	ldy #srec_wreq
	jsr setses
	ldy #srec_creq
	jsr setses
	rep #mbit	;back to full native
	and #$00ff	;low byte has session num
	ora #itemopen	;mark session as open
	jsr settable	;set table entry with this flag
	ldy #spopen_attention
	lda [<cmdlist],y	;get attention routine
	pha
	iny
	iny
	lda [<cmdlist],y	;get high byte attention routine
	ldy #srec_attention+2
	sta (<R1),y	;store in session record
	pla
	dey
	dey
	sta (<R1),y
	lda #$ffff	;start here so first one is zero
	ldy #srec_seqnum
	sta (<R1),y
	ldy #srec_treq
	lda (<R1),y	;get tickle request	pointer
	tax
	ldy #^spbank
	jsl >RamDispatch	;call atalk
	ldy #srec_timer
	lda (<R1),y	;get timer pointer
	tax
	sta <R0
	lda #instimer	;install timer command
	sta (<R0)
	ldy #insqtr_count
	lda #conntime
	sta (<R0),y	;store connection timeout
	ldy #^spbank
	jsl >RamDispatch	;call atalk
	lda #spnoerr	;exit with no error
	bra spopenexit	;
openerrexit		; 
	pha
	lda #itemfree	;table entry is now	free
	jsr settable
	pla	;recover error
spopenexit		; 
	tax	;save error
	pla
	sta <R1
	pla
	sta <R0
	txa
	brl exitcomp	;exit and set error	code


	EXPORT timercomp
timercomp		;       ;comes here	if session timer expires
	ldy #ttableoffset	;get offset to session rec for
	lda (<cmdlist),y	;this timer
	tax
	lda #timeoutbit	;show timeout when calling atten routine
	jsr closeconnection	;close everything up
	rtl	;and return


*
* grqcomp -completion routine for getrequest
* all incoming requests for all open sessions come here
* and are tied to only 1 get request for all asp activity
* therefore we must	keep re-isuing this	getrequest every time
* it gets here to make sure it stays active.
*
	EXPORT grqcomp
grqcomp		;       
	pei <R0	;save zp useage
	pei <R1
	stz callexecflag	;assume not to call	attention routine
	lda grqparm+getrq_result ;see if we got	an error
	beq nogrqerr	;no error so continue
	brl grqexitrel	;assume error was norspcbmem and re-issue new grq and exit
nogrqerr		; 
	lda grqparm+getrq_user+1 ;get session ref
	and #$00ff	;clear high byte
	jsr grqsessionmatch	;attempt to find a matching session
	bcc grqsesgood	;still a good session
	brl grqexitrel	;re-issue grq and exit
grqsesgood		; 
* sessionmatch returns the session rec pointer in a
	sta <R0
	tax
	jsr resettime	;reset timeout timer
	lda grqparm+getrq_user ;get command from request
	and #$00ff	;strip high byte
	cmp #writedata	;see if they are asking us to write
	bne chkclose	;no, check for close
	ldy #srec_wcmdlist	;offset to writecmdlist
	lda (<R0),y	;get low word
	sta <cmdlist
	iny
	iny
	lda (<R0),y	;get high word
	sta <cmdlist+2
	ora <cmdlist	;see if call active
	bne activecall
	brl grqexitrel	;no call so exit
activecall		; 
	ldy #srec_wreq
	lda (<R0),y	;get write atprequest
	sta <R1
	ldy #atprq_user+2	;sequence number expected
	lda (<R1),y	;from write rq
	cmp grqparm+getrq_user+2
	beq grqseqmatch	;sequence numbers match
	brl grqexitrel	;not matching sequence numbers
grqseqmatch		; 
	lda grqbuf	;get servers max buffer size
	xba	;put in our format
	ldy #spwrt_wrtlen	;check against amount of data to write
	cmp [<cmdlist],y
	bcc setlen	;use accum to set len
	lda [<cmdlist],y	;we can write this much
setlen		; 
	ldy #spwrt_writtenlen
	sta [<cmdlist],y	;store amount written
	pha	;save for a moment
	ldy #srec_wreply
	lda (<R0),y	;get reply parm list
	tax
	pla	;recover len
	phx	;save reply parm list for call
	jsr setupreply	;set up the reply
	plx	;get reply parm list low word
	ldy #^spbank	;get high word
	jsl >ramdispatch	;and send the response
	brl grqexit
chkclose		; 
	cmp #closesession
	bne chkattn	;not a close request
	ldy #srec_creply	;get close reply
	lda (<R0),y
	pha	;save for later
	clc
	adc #sdrsp_sskt
	tax	;move data here
	lda #grqparm+getrq_ourskt
	ldy #7
	jsr movemem	;move net info
	plx	;get reply parmlist	address
	stx <R1
	lda grqparm+getrq_flag
	ldy #sdrsp_flag
	sta (<R1),y	;put getrequest flag and bitmap into response
	ldy #^spbank
	jsl >RamDispatch	;send close reply
	ldx <R0	;get session rec ptr
	lda #closebit	;show close happened and call atten routine
	jsr closeconnection	;shut down the session
	brl grqexitrel
chkattn		; 
	cmp #attention	;see if they are sending attention
	bne grqexitrel	;no so exit
	ldx #arsp+sdrsp_sskt ;get offset to net	info in response
	lda #grqparm+getrq_ourskt ;get offset to incoming net info
	ldy #7	;amount of data to move
	jsr movemem
	lda grqparm+getrq_flag
	sta arsp+sdrsp_flag	;put getrequest flag and bitmap into response
	ldx #arsp
	ldy #^spbank
	jsl >RamDispatch	;send response
	ldy #srec_attention	;offset to attention routine
	lda (<R0),y	;get low word
	sta <cmdlist
	iny
	iny
	lda (<R0),y	;get high word
	sta <cmdlist+2
	ora <cmdlist	;see if no attention routine
	beq grqexitrel
	jsr getsessnum	;find out what the session number is that goes with this attention
	sta [<cmdlist]	;store session number
	lda grqparm+getrq_user+2 ;get attention	word
	ldy #0002	;put attention word	at 2 bytes
	sta [<cmdlist],y	;past attention routine
	clc
	lda <cmdlist
	adc #0004	;call routine at 4 bytes past address
	sta <execaddr
	lda <cmdlist+2
	adc #0000
	sta <execaddr+2
	inc callexecflag	;show we want routine called
grqexitrel		; ;release rspcb and exit
	ldx #relparm+4	;move data to here
	lda #grqparm+8	;move from here
	ldy #7	;move 7 bytes
	jsr movemem	;move it
	ldx #relparm
	ldy #^relparm
	jsl >RamDispatch	;release the cb
grqexit		; 
	pla
	sta <R1
	pla
	sta <R0
	ldx #grqparm
	ldy #^grqparm
	jsl >RamDispatch
	lda callexecflag	;see if need to call attention routine
	beq grqexitdone	;we can exit, no need to call routine
	jsl >RamGoComp	;call the routine
grqexitdone		; 
	rtl

*
* resettime - resets connection timeout	mechanism
* x = srec ptr
*
	EXPORT resettime
resettime		;       
	pei <R0
	stx <R0
	ldy #srec_timer
	lda (<R0),y	;get pointer to timer
	sta <R0
	ldy #insqtr_count
	lda #conntime
	sta (<R0),y	;re-update connection timeout
	pla
	sta <R0
	rts

*
* movemem
* moves memory from	a to x, moving y bytes
*
	EXPORT movemem
movemem		;       
	pei <R0
	pei <R1
	sta <R0
	stx <R1
	php	;save state
	sep #mbit	;go to 8 bit a mode
mvlp	dey
	bmi moveexit
	lda (<R0),y
	sta (<R1),y
	bra mvlp
moveexit		; 
	plp	;recover mode
	pla
	sta <R1
	pla
	sta <R0
	rts

*
* setupreply - sets	up reply parmlist and reply bds
* x = reply parmlist pointer
* a = max number of	bytes to set buffers for
* cmdlist = users write cmdlist
*
* 
	EXPORT setupreply
setupreply		;       
	pei <R0
	pei <R1
	pei <R2+2
	pei <R2
	stx <R0	;save parm list ptr
	sta <R2	;save len
	ldy #spwrt_wrtadr
	lda [<cmdlist],y	;get reply buffer start
	sta <execaddr
	iny
	iny
	lda [<cmdlist],y
	sta <execaddr+2
	ldy #sdrsp_rbdsad
	lda (<R0),y	;get rbds ptr
	sta <R1
	stz <R2+2	;number of buffers
	lda <R2	;see if asked to send no data
	beq usea	;and special case if so...(always send at least 1 bds)
setuplp		; 
	sec
	lda <R2
	beq setupdone	;we are done setting bds
	sbc #maxcmdsize	;see if still larger
	bmi useR2	;use existing len
	sta <R2
	lda #maxcmdsize
	bra usea
useR2	lda <R2
	stz <R2	;nothing left
usea		; 
	ldy #bds_bufsize
	sta (<R1),y	;save len
	ldy #bds_bufptr
	clc
	lda <execaddr
	sta (<R1),y
	adc #maxcmdsize
	sta <execaddr	;new address
	iny
	iny
	lda <execaddr+2
	sta (<R1),y	;set buffer address	to write from
	adc #^maxcmdsize
	sta <execaddr+2
	lda <R1
	clc
	adc #12
	sta <R1	;new bds pointer
	inc <R2+2	;bump number of buffers
	bra setuplp
setupdone		; 
	lda <R2+2	;get number of buffers
	ldy #sdrsp_rbnum
	sep #mbit
	sta (<R0),y
	iny
	sta (<R0),y	;set up number of buffers in parms
	lda grqparm+getrq_bitmap
	ldy #sdrsp_bitmap
	sta (<R0),y	;copy bitmap
	rep #mbit
	lda <R0
	clc
	adc #sdrsp_sskt	;response socket address
	tax	;move to dest register
	lda #grqparm+getrq_ourskt
	ldy #7	;move this many bytes
	jsr movemem
	pla
	sta <R2
	pla
	sta <R2+2
	pla
	sta <R1
	pla
	sta <R0
	rts


*
* sessionmatch - checks to see if session number passed in
* accumulator is valid, and returns with carry clear if it is.
* found.  If a match is found the session ptr is returned in a
*
	EXPORT sessionmatch
sessionmatch		;       
	pha	;save session number
	dec a	;put in zero to n range
	bmi sessionnomatch	;invalid session number
	cmp #maxaspsessions	;see if out of range
	bcs sessionnomatch	;out of range
	asl a
	asl a	;multiply by four to point to get table	offset
	tax	;use as index
	lda sessiontable+2,x ;get flag field of	table entry
	and #$ff00	;strip unwanted data
	cmp #itemopen	;see if this item is open
	beq sessionfound	;yes
sessionnomatch		; 
	sec	;indicate error
	bra sessionexit
sessionfound		; 
	clc	;indicate match found
	lda sessiontable,x	;get session ptr
sessionexit		; 
	plx	;recover session num
	rts

	EXPORT setsss
setsss		;       
	php
	rep #mbit+xbit
	pei <R0
	tax
	lda (<R1),y
	sta <R0
	ldy #atprq_dskt
	txa
	sep #mbit
	sta (<R0),y	;store in 8 bit mode
	plx	;recover r0
	stx <R0
	plp
	rts

	EXPORT setses
setses		;       
	php
	rep #mbit+xbit
	pei <R0
	tax
	lda (<R1),y
	sta <R0
	ldy #atprq_user+1
	txa
	sep #mbit
	sta (<R0),y	;store in 8 bit mode
	plx	;recover r0
	stx <R0
	plp
	rts



*
* settable - sets table entry to flag in accum
* R1=session record	pointer
* a=flag to set
*
	EXPORT settable
settable		;       
	pei <R0
	pha
	ldy #srec_tableaddr
	lda (<R1),y	;get our table location
	sta <R0
	ldy #0002	;flag field
	pla	;get flag
	sta (<R0),y
	pla
	sta <R0
	rts

*
* grqsessionmatch -	searches for session number passed in
* accumulator, if finds a match, it then continues to test
* whether or not the network numbers and nodes match, 
* and returns with carry clear if a match is
* found.  If a match is found the session ptr is returned in a
*
	EXPORT grqsessionmatch
grqsessionmatch		;       
	pha	;save session to find
	ldx #0000
grqsmlp		; 
	lda sessiontable+2,x ;get flag field
	cmp #endtable	;see if at end
	beq grqsessionnomatch ;no match was found
	cmp #itemfree	;see if looking at empty session
	beq grqbumpx	;yes so skip
	eor #itemopen	;if is open set high byte to zero
	cmp $1,s	;compare with session num
	beq grqsessionfound	;we have a match
grqbumpx		; 
	inx
	inx
	inx
	inx
	bra grqsmlp	;keep searching
grqsessionnomatch		; 
	sec	;indicate error
	bra grqsessionexit
grqsessionfound		; 
	lda sessiontable,x	;get session rec ptr
	pha
	jsr donetmatch	;see if nets match and
	pla	;recover session record
	bcs grqbumpx	;not a matching session
grqsessionexit		; 
	plx	;recover session num
	rts

*
* donetmatch - 
* passed session record in A, checks to	see if net info in
* the getrequest packet matches that of	the open for this 
* session, if it does we return carry clear, otherwise we
* return carry set
*
donetmatch		; 
	phx	;preserve the x register
	pei <R0	;save zero page
	sta <R0	;save pointer to session record
	ldy #srec_oreq	;get open request pointer
	lda (<R0),y
	sta <R0	;R0 now points to the original open request
	lda grqparm+getrq_snet ;check to see if	their net is zero
	beq donodematch	;match up node and socket, first test was ok
	ldy #atprq_dnet	;lets get the original destination net
	lda (<R0),y	;see if it is zero
	beq donodematch	;yes, check node and socket
	cmp grqparm+getrq_snet ;see if they are	both the same
	beq donodematch	;yes, check node and socket
nonodematch		; 
	sec	;indicate no match was found
	bra exitnetmatch
donodematch		; ;try to match node and socket
	sep #mbit	;only check node
	ldy #atprq_dnode	;offset to node and	socket bytes
	lda (<R0),y	;get them
	cmp grqparm+getrq_snode ;see if we have	a match
	rep #mbit	;back to full 16 bit mode
	bne nonodematch	;no match here, sorry
	clc	;a match was found,	show with carry clear
exitnetmatch		; 
	pla	;restore zero page
	sta <R0
	plx	;restore x
	rts	;and return
;and return
	ENDP


\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/ATRam/ATPatch/ASP/SP_status.aii b/IIGS.601.SRC/GS.OS/Drivers/ATRam/ATPatch/ASP/SP_status.aii
new file mode 100644
index 0000000..b8c94ee
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/ATRam/ATPatch/ASP/SP_status.aii
@@ -0,0 +1 @@
+;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------
*
* sp_status
*
*   by
*       Greg Seitz
*       3-Jun-87
*
* this file contains the status routines and the get parms routine
*
;
; 16-May-91 MSD	SPGetStatus fixed to return a buffer error ($0705)
;	instead of a size error ($0704) when the user's
;	reply buffer was too small.
;
;  7-Oct-91 MSD	Now allows sync only.
;

	import CheckAsync	; 7-Oct-91 MSD

	EXPORT cspgetparms
cspgetparms	PROC
	longa on
	longi on

	jsr CheckAsync	; 7-Oct-91 MSD
	
	jsr sp_setup	;set everything up
	ldy #0004	;move to max command size field
	lda #maxcmdsize	;get max command size
	sta [<cmdlist],y
	iny
	iny	;move to max data size field
	lda #quantumsize
	sta [<cmdlist],y	;and save it
	lda #spnoerr
	brl accumexit	;exit from there

	EXPORT sp_setup
sp_setup		;       
	rep #mbit+xbit
	jsl >ramforbid	;forbid atalk related events
	phk	;make data bank the	same
	plb	;as the code bank
	rts

	EXPORT exitcomp
exitcomp		;       
	jsl >ramforbid	;offset permit in accumexit
	bra accumexit	;and leave through there

	EXPORT asyncexit
asyncexit		;       
	rep #mbit+xbit
	longa on
	longi on

	lda #spbusy	;get spbusy flag
	EXPORT accumexit
accumexit		;       ;exit with what's in accum
	rep #mbit+xbit
	longa on
	longi on
	ldy #spstat_result	;get offset to result
	sta [<cmdlist],y	;and save it
	jsl >RamPermit	;back down ints

	sep #mbit+xbit
	longa off
	longi off

	ora #00	;see if done
	bpl chkiocmp	;yep
goback		; 
	rep #mbit+xbit
	rtl	;otherwise just exit

	EXPORT chkiocmp
chkiocmp		;       
	sep #mbit+xbit
	longa off
	longi off

	lda [<cmdlist]	;see what type of command
	bpl goback	;sync so exit
	ldy #spstat_result
	lda [<cmdlist],y	;get result
	bmi goback	;still busy
	ldy #spstat_iocomp	;offset to completion
	EXPORT callcomp
callcomp		;       
	rep #mbit+xbit
	longa on
	longi on

	lda [<cmdlist],y	;get low word completion
	sta <execaddr
	iny
	iny
	lda [<cmdlist],y	;get high word completio`
	sta <execaddr+2
	ora <execaddr	;see if zero
	beq goback	;yep, so nothing to	call
	jmp >RamGoComp	;call completion routine


	EXPORT cspgetstatus
cspgetstatus		;       
	longa on
	longi on

	jsr sp_setup
	ldx #statustable	;find free item in this table
	jsr findfree	;go do it
	bcc gotone	;item good, ptr in x
	lda #sptoomany	;too many calls at one time
	brl accumexit	;leave with this error code
gotone		; ;got good table entry ptr in x
	stx <R0	;save pointer to table entry
	lda #iteminuse	;mark item as in use
	ldy #0002	;move to marker position
	sta (<R0),y
	lda (<R0)	;now get pointer to	request parms
	sta <R0	;and save it
	ldy #rqusercmdlist	;offset to storage location of cmdlist ptr
	lda <cmdlist
	sta (<R0),y
	iny
	iny
	lda <cmdlist+2
	sta (<R0),y	;now users command list is tied to request
	ldx <R0	;pass parmlist start in x
	jsr movenetinfo	;move the network info into parmlist in	x
	ldy #spstat_buflen	;provide offset to buffer len field
	ldx <R0	;address of parmlist
	jsr setreplybuf	;set up rbds in parmlist request
	lda #spbusy
	ldy #spopen_result	;offset to result
	sta [cmdlist],y	;and show that we are busy
	ldx <R0
	ldy #^spbank	;get bank in y reg
	jsl >RamDispatch
	jml >RamPermit	;back down ints and	exit

	EXPORT statuscomp
statuscomp		;       
	pei <R0	;save zero page usage
	lda <cmdlist	;save our list pointer
	sta <R0	;in R0
	ldy #rqusercmdlist	;offset to storage location of cmdlist ptr
	lda [<cmdlist],y	;get users cmdlist
	pha
	iny
	iny
	lda [<cmdlist],y
	sta <cmdlist+2
	pla
	sta <cmdlist	;now has users cmdlist
	lda #0000	;set return length to zero at first
	ldy #spstat_datalen
	sta [<cmdlist],y
	ldy #spstat_result	;offset to result field
	lda (<R0),y	;get result of request call
	cmp #requestfail	;see if request failed
	bne notbadyet
	lda #spnoresponse	;get no response error
	bra exiterr	;exit and store error
notbadyet		; 
	cmp #0000	;see if no error
	beq goodrequest	;the request was successful
	lda #spneterr	;unknown error
	bra exiterr
goodrequest		; 
	ldx <R0	;pass rqlist
	jsr findbdslen	;finds total len of	bds
	ldy #spstat_datalen
	sta [<cmdlist],y	;store the length
	lda #spbuffererr	;assume buffer size error (16-May-91 MSD)
	bcs exiterr	;there was an error
	lda #spnoerr	;no error, fall through
exiterr		; 
	tax	;save error result
	ldy #rqtableoffset	;get table entry address
	lda (<R0),y
	sta <R0	;use this since we are almost done
	ldy #0002	;offset to flag field
	lda #itemfree	;show item as available
	sta (<R0),y
	pla
	sta <R0	;restore zero page
	txa	;get error code
	brl exitcomp	;and exit with it

*
* findbdslen - figures the length of a response by adding up the
*              bds's actlen fields.
* x - pointer to request parmlist
* returns a - actual length
* errors - carry set if length error
*

	EXPORT findbdslen
findbdslen		;       
	pei <R0
	pei <R1	;save off zp useage
	pei <R2	;
	stx <R0	;use for rq parmlist
	ldy #atprq_rbdsad
	lda (<R0),y	;get buffer address
	sta <R1	;point to bds
	ldy #atprq_response
	lda (<R0),y
	and #$00ff	;mask off insignificant stuff
	tax	;hold in x, number of buffers received
	stz <R2	;zero off working len
lenlp		; 
	ldy #bds_actlen
	lda (<R1),y	;get len of item
	bmi addlasterr	;we have an error, but add amount received
	clc
	adc <R2	;add to running total
	sta <R2
	clc
	lda <R1
	adc #bds_actlen+2	;move to next bds
	sta <R1
	dex	;decrement packet count
	bne lenlp	;keep going while >	0
	clc	;no error
	bra findbdslenexit	;and leave
addlasterr		; 
	and #$7fff	;strip high bit
	clc
	adc <R2
	sta <R2
	sec	;show there was a len error             
findbdslenexit		; 
	lda <R2	;exit with len in A
	plx
	stx <R2
	plx
	stx <R1
	plx
	stx <R0
	rts


*
* findfree-
* x = table address	to find free entry in
* returns address of entry in x. Carry is set
* if a free item can not be found.
* return table offset number in a (first item is number 1)
*
	EXPORT findfree
findfree		;       
	pei <R0	;save zero page usage
	pei <R1
	stx <R0
	stz <R1	;start out at zero
	ldy #0002	;look at high word of each entry
freelp		; 
	inc <R1	;bump index number (always at least 1)
	lda (<R0),y	;get flag field
	beq freefound
	cmp #endtable	;see if end of table reached
	beq freenotfound	;no free item found
	clc
	lda <R0
	adc #0004	;skip to next item
	sta <R0
	bra freelp	;keep looping
freefound		; 
	clc	;no error
	ldx <R0	;get result
	bra freeexit
freenotfound		; 
	sec	;indicate error
freeexit		; 
	lda <R1	;get index number
	ply
	sty <R1
	ply	;recover zero page usage
	sty <R0
	rts

*
* movenetinfo - moves network info from	cmdlist to parmlist
* x = parmlist to store into
* cmdlist = users command list
* returns nothing
*
	EXPORT movenetinfo
movenetinfo		;       
	pei <R0	;save zero page usage
	stx <R0
	ldy #spstat_slsnet	;get offset to net field in cmdlist
	lda [<cmdlist],y	;get net
	pha	;and save
	iny
	iny	;move to node and socket field
	lda [<cmdlist],y	;get those
	ldy #atprq_dnode	;get offset to node	field in parmlist
	sta (<R0),y	;store it
	dey
	dey	;back up to net field
	pla	;recover net number
	sta (<R0),y
	pla	;recover zp
	sta <R0
	rts

*
* setreplybuf - sets up rbds of request	pointed to by x based on
*               users data buffer length in their cmdlist
* x = points to request parmlist
* y = gives offset in cmdlist to len field
* cmdlist = users command list
*
* destroys R2 and next zp locations
	EXPORT setreplybuf
setreplybuf		;       
	pei <R0	;save zero page usage
	pei <R1
	stx <R0	;save parmlist
	phy	;save offset for a moment
	ldy #atprq_rbdsad	;get offset to rbds	in parmlist
	lda (<R0),y	;get address
	sta <R1	;and use R1 for rbds pointer
	ply	;recover offset
	lda [<cmdlist],y	;get buffer length
	sta <R2	;save in R2
	iny
	iny	;move to buffer address field
	lda [<cmdlist],y	;get low word
	sta <next
	iny
	iny
	lda [<cmdlist],y	;get high word
	sta <next+2	;next has address of buffer to use
	stz <R2+2	;store number of buffers built here
setrplylp		; 
	lda <R2+2	;get num of bufs
	inc a	;bump by 1
	cmp #0009	;see if too many
	beq setrplydone	;we are done setting buffs
	sta <R2+2	;save new value
	sec	;set up for subtract
	lda <R2	;get remaining length
	sbc #maxcmdsize	;reduce by 1 quantum
	bmi storelast	;went negative, so do last store
	sta <R2	;save new len=len-maxcmdsize
	lda #maxcmdsize	;buffer should be this size
	sta (<R1)	;store in bds
	ldy #bds_bufptr	;get offset to buf pointer field
	clc
	lda <next	;get buffer address	to use
	sta (<R1),y
	adc #maxcmdsize	;add in amount to move buffer
	sta <next
	iny
	iny
	lda <next+2	;do high word
	sta (<R1),y
	adc #^maxcmdsize	;add high word of cmdsize
	sta <next+2
	clc
	lda <R1	;bump this to next rbds entry
	adc #bds_actlen+2
	sta <R1
	bra setrplylp	;keep looping
storelast		; 
	lda <R2	;get len of last packet
	sta (<R1)	;and save in len field
	ldy #bds_bufptr	;get offset to buf pointer field
	lda <next	;get buffer address	to use
	sta (<R1),y	;save it
	iny
	iny
	lda <next+2
	sta (<R1),y
setrplydone		; 
	lda <R2+2	;get number of buffers
	ldy #atprq_rbnum	;offset to number of bufs field in rq
	php
	sep #mbit
	sta (<R0),y	;store it in 8 bit mode
	tax	;use as index to get bitmap value
	lda bitmaptable,x	;get it
	ldy #atprq_bitmap
	sta (<R0),y	;store bitmap in 8 bit mode
	plp
	pla
	sta <R1
	pla
	sta <R0
	rts

bitmaptable		; 
	DC.B $00,$01,$03,$07,$0f,$1f,$3f,$7f,$ff


	ENDP




\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/ATRam/ATPatch/ASP/SP_vars.aii b/IIGS.601.SRC/GS.OS/Drivers/ATRam/ATPatch/ASP/SP_vars.aii
new file mode 100644
index 0000000..b3d0402
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/ATRam/ATPatch/ASP/SP_vars.aii
@@ -0,0 +1 @@
+
;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------


;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------
* 
* Sp_vars
* 
* by 
*   Greg Seitz
*   2-Jun-87
*
* this file contains the declarations of the data used
* by the session protocol code.
*
* 16-May-91  MSD	Changed to use equates for the retry interval and
*	count for sending close requests.
*

		EXPORT	spvars              
spvars	PROC

		EXPORT	spbank
spbank		; ;referenced in calls to atalk for bank

		EXPORT	saver1
saver1		DS.B 4

		EXPORT	wss
wss		DS.B 2	;socket for getrequests goes here   

		EXPORT	callexecflag
callexecflag		DS.B 2

		EXPORT	wascancelled
wascancelled		DS.B 2	;semaphore for close routine syncronization

		EXPORT	closesessnum
closesessnum		DS.B 2	;space for local

		EXPORT	openatpsocket
openatpsocket		; 
	DC.B	$00,$14,$00,$00
	DC.B	$00,$00	;socket returned here


		EXPORT	grqparm
grqparm	DC.B	$80,$16,$00,$00	;cnt, async cmd, result
	DC.L	grqcomp	;io completion
	DC.B	$00	;our socket (listener socket)
	DC.B	$00,$00	;their net (filed in by call)
	DC.B	$00,$00	;their node & skt
	DC.B	$00,$00	;their tid
	DC.W	2	;buffer size
	DC.L	grqbuf	;buffer for incoming requests
	DC.B	$00,$00,$00,$00	;incoming user data
	DC.B	$00,$00	;actual length of incoming request
	DC.B	$00,$00	;flag and bitmap
	DC.B	$00,$00,$00,$00	;reserved for link

		EXPORT	grqbuf
grqbuf		DS.B 2	;incoming data goes	here

		EXPORT	relparm
relparm	DC.B	$00,$19,$00,$00
		DS.B 8	;rest filled in by code

		EXPORT	cancelrequest
cancelrequest	DC.B	$00,$13,$00,$00
		DS.B 2	;tid goes here      


		EXPORT	arsp
arsp	DC.B	$80,$17,$00,$00	;cnt, async cmd, result
	DC.L	0	;io completion
	DC.B	$00	;source socket
	DC.B	$00,$00	;destination net
	DC.B	$00,$00	;dest node & skt
	DC.B	$00,$00	;tid
	DC.B	$01,$01	;number of buffers and max bufs
	DC.L	arspbds	;bds for response
	DC.B	0	;flag
	DC.B	$01	;responding bitmap
	DC.B	$00,$00,$00,$00	;add routine and flag
	DC.B	$00

		EXPORT	arspbds
arspbds	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field


* the structure of the data in the following table is:
* $0000addr - data at addr is available	for use in status call
* $0001addr - data at addr is in use
* $ffffaddr - end of table marker
		EXPORT	statustable
statustable		; 
	DC.W	statusreq1
	DC.W	0
	DC.W	statusreq2
	DC.W	0
	DC.W	statusreq3
	DC.W	0
	DC.W	statusreq4
	DC.W	0
	DC.W	statusreq5
	DC.W	0
	DC.W	statusreq6
	DC.W	0
	DC.W	statusreq7
	DC.W	0
	DC.W	statusreq8
	DC.W	0
	DC.L	$ffff0000	;end of table


		EXPORT	statusreq1
statusreq1	DC.B	$80,$12,$00,$00	;cnt, cmd, result
	DC.L	statuscomp	;io completion
	DC.B	$00	;our socket (listener socket)
	DC.B	$00,$00	;their network
	DC.B	$00	;their node
	DC.B	$00	;their skt
	DC.B	$00,$00	;their tid
	DC.W	0	;buffer to send size
	DC.L	0	;send this data
	DC.B	$03,$00,$00,$00	;user bytes
	DC.B	8	;8 response buffers
	DC.L	stsrqbds1	;bds for input
	DC.B	0	;flag
	DC.B	cmdintvl	;retry interval
	DC.B	cmdcount	;retry count
	DC.B	$ff	;bitmap for request
	DC.B	$00
	DC.B	$00,$00,$00,$00,$00,$00	;reserved fields
	DC.W	statustable	;point back to sessionrec we belong to
	DC.L	0	;user command list goes here

		EXPORT	stsrqbds1
stsrqbds1	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received


		EXPORT	statusreq2
statusreq2	DC.B	$80,$12,$00,$00	;cnt, cmd, result
	DC.L	statuscomp	;io completion
	DC.B	$00	;our socket (listener socket)
	DC.B	$00,$00	;their network
	DC.B	$00	;their node
	DC.B	$00	;their skt
	DC.B	$00,$00	;their tid
	DC.W	0	;buffer to send size
	DC.L	0	;send this data
	DC.B	$03,$00,$00,$00	;user bytes
	DC.B	8	;8 response buffers
	DC.L	stsrqbds2	;bds for input
	DC.B	0	;flag
	DC.B	cmdintvl	;retry interval
	DC.B	cmdcount	;retry count
	DC.B	$ff	;bitmap for request
	DC.B	$00
	DC.B	$00,$00,$00,$00,$00,$00	;reserved fields
	DC.W	statustable+4	;point back to sessionrec we belong to
	DC.L	0	;user command list goes here

		EXPORT	stsrqbds2
stsrqbds2	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received


		EXPORT	statusreq3
statusreq3	DC.B	$80,$12,$00,$00	;cnt, cmd, result
	DC.L	statuscomp	;io completion
	DC.B	$00	;our socket (listener socket)
	DC.B	$00,$00	;their network
	DC.B	$00	;their node
	DC.B	$00	;their skt
	DC.B	$00,$00	;their tid
	DC.W	0	;buffer to send size
	DC.L	0	;send this data
	DC.B	$03,$00,$00,$00	;user bytes
	DC.B	8	;8 response buffers
	DC.L	stsrqbds3	;bds for input
	DC.B	0	;flag
	DC.B	cmdintvl	;retry interval
	DC.B	cmdcount	;retry count
	DC.B	$ff	;bitmap for request
	DC.B	$00
	DC.B	$00,$00,$00,$00,$00,$00	;reserved fields
	DC.W	statustable+8	;point back to sessionrec we belong to
	DC.L	0	;user command list goes here

		EXPORT	stsrqbds3
stsrqbds3	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received


		EXPORT	statusreq4
statusreq4	DC.B	$80,$12,$00,$00	;cnt, cmd, result
	DC.L	statuscomp	;io completion
	DC.B	$00	;our socket (listener socket)
	DC.B	$00,$00	;their network
	DC.B	$00	;their node
	DC.B	$00	;their skt
	DC.B	$00,$00	;their tid
	DC.W	0	;buffer to send size
	DC.L	0	;send this data
	DC.B	$03,$00,$00,$00	;user bytes
	DC.B	8	;8 response buffers
	DC.L	stsrqbds4	;bds for input
	DC.B	0	;flag
	DC.B	cmdintvl	;retry interval
	DC.B	cmdcount	;retry count
	DC.B	$ff	;bitmap for request
	DC.B	$00
	DC.B	$00,$00,$00,$00,$00,$00	;reserved fields
	DC.W	statustable+12	;point back to sessionrec we belong to
	DC.L	0	;user command list goes here

		EXPORT	stsrqbds4
stsrqbds4	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received


		EXPORT	statusreq5
statusreq5	DC.B	$80,$12,$00,$00	;cnt, cmd, result
	DC.L	statuscomp	;io completion
	DC.B	$00	;our socket (listener socket)
	DC.B	$00,$00	;their network
	DC.B	$00	;their node
	DC.B	$00	;their skt
	DC.B	$00,$00	;their tid
	DC.W	0	;buffer to send size
	DC.L	0	;send this data
	DC.B	$03,$00,$00,$00	;user bytes
	DC.B	8	;8 response buffers
	DC.L	stsrqbds5	;bds for input
	DC.B	0	;flag
	DC.B	cmdintvl	;retry interval
	DC.B	cmdcount	;retry count
	DC.B	$ff	;bitmap for request
	DC.B	$00
	DC.B	$00,$00,$00,$00,$00,$00	;reserved fields
	DC.W	statustable+16	;point back to sessionrec we belong to
	DC.L	0	;user command list goes here

		EXPORT	stsrqbds5
stsrqbds5	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received


		EXPORT	statusreq6
statusreq6	DC.B	$80,$12,$00,$00	;cnt, cmd, result
	DC.L	statuscomp	;io completion
	DC.B	$00	;our socket (listener socket)
	DC.B	$00,$00	;their network
	DC.B	$00	;their node
	DC.B	$00	;their skt
	DC.B	$00,$00	;their tid
	DC.W	0	;buffer to send size
	DC.L	0	;send this data
	DC.B	$03,$00,$00,$00	;user bytes
	DC.B	8	;8 response buffers
	DC.L	stsrqbds6	;bds for input
	DC.B	0	;flag
	DC.B	cmdintvl	;retry interval
	DC.B	cmdcount	;retry count
	DC.B	$ff	;bitmap for request
	DC.B	$00
	DC.B	$00,$00,$00,$00,$00,$00	;reserved fields
	DC.W	statustable+20	;point back to sessionrec we belong to
	DC.L	0	;user command list goes here

		EXPORT	stsrqbds6
stsrqbds6	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received


		EXPORT	statusreq7
statusreq7	DC.B	$80,$12,$00,$00	;cnt, cmd, result
	DC.L	statuscomp	;io completion
	DC.B	$00	;our socket (listener socket)
	DC.B	$00,$00	;their network
	DC.B	$00	;their node
	DC.B	$00	;their skt
	DC.B	$00,$00	;their tid
	DC.W	0	;buffer to send size
	DC.L	0	;send this data
	DC.B	$03,$00,$00,$00	;user bytes
	DC.B	8	;8 response buffers
	DC.L	stsrqbds7	;bds for input
	DC.B	0	;flag
	DC.B	cmdintvl	;retry interval
	DC.B	cmdcount	;retry count
	DC.B	$ff	;bitmap for request
	DC.B	$00
	DC.B	$00,$00,$00,$00,$00,$00	;reserved fields
	DC.W	statustable+24	;point back to sessionrec we belong to
	DC.L	0	;user command list goes here

		EXPORT	stsrqbds7
stsrqbds7	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received


		EXPORT	statusreq8
statusreq8	DC.B	$80,$12,$00,$00	;cnt, cmd, result
	DC.L	statuscomp	;io completion
	DC.B	$00	;our socket (listener socket)
	DC.B	$00,$00	;their network
	DC.B	$00	;their node
	DC.B	$00	;their skt
	DC.B	$00,$00	;their tid
	DC.W	0	;buffer to send size
	DC.L	0	;send this data
	DC.B	$03,$00,$00,$00	;user bytes
	DC.B	8	;8 response buffers
	DC.L	stsrqbds8	;bds for input
	DC.B	0	;flag
	DC.B	cmdintvl	;retry interval
	DC.B	cmdcount	;retry count
	DC.B	$ff	;bitmap for request
	DC.B	$00
	DC.B	$00,$00,$00,$00,$00,$00	;reserved fields
	DC.W	statustable+28	;point back to sessionrec we belong to
	DC.L	0	;user command list goes here

		EXPORT	stsrqbds8
stsrqbds8	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received



* the structure of the data in the following table is:
* $0000addr - data at addr is available	for a new session
* $0100addr - data at addr is in opening process
* $02xxaddr - data at addr belongs to session #xx
* $ffffxxxx - end of table marker
*
		EXPORT	sessiontable
sessiontable		; ;the table pointing	to session info
	DC.W	sessionrec1
	DC.W	0
	DC.W	sessionrec2
	DC.W	0
	DC.W	sessionrec3
	DC.W	0
	DC.W	sessionrec4
	DC.W	0
	DC.W	sessionrec5
	DC.W	0
	DC.W	sessionrec6
	DC.W	0
	DC.W	sessionrec7
	DC.W	0
	DC.W	sessionrec8
	DC.W	0
	DC.L	$ffff0000	;end of table

		EXPORT	sessionrec1
sessionrec1		; 
	DC.W	openreq1	;pointer to open request data
	DC.W	closereq1	;pointer to close request data
	DC.W	cmdreq1	;pointer to command	request data
	DC.W	writereq1	;pointer to write request data
	DC.W	writereply1	;pointer to write reply data
	DC.W	ticklereq1	;pointer to tickle request data
	DC.W	closereply1	;pointer to close reply data
	DC.W	timer1	;connection timer here
	DC.B	0	;server session socket goes here
	DC.W	0	;sequence number (should be started at 0)
	DC.L	0	;open cmdlist
	DC.L	0	;close cmdlist
	DC.L	0	;command cmdlist
	DC.L	0	;write cmdlist
	DC.W	sessiontable	;address of our position in sessiontable

		EXPORT	sessionrec2
sessionrec2		; 
	DC.W	openreq2	;pointer to open request data
	DC.W	closereq2	;pointer to close request data
	DC.W	cmdreq2	;pointer to command	request data
	DC.W	writereq2	;pointer to write request data
	DC.W	writereply2	;pointer to write reply data
	DC.W	ticklereq2	;pointer to tickle request data
	DC.W	closereply2	;pointer to close reply data
	DC.W	timer2	;connection timer here
	DC.B	0	;server session socket goes here
	DC.W	0	;sequence number (should be started at 0)
	DC.L	0	;open cmdlist
	DC.L	0	;close cmdlist
	DC.L	0	;command cmdlist
	DC.L	0	;write cmdlist
	DC.W	sessiontable+4	;address of our position in sessiontable


		EXPORT	sessionrec3
sessionrec3		; 
	DC.W	openreq3	;pointer to open request data
	DC.W	closereq3	;pointer to close request data
	DC.W	cmdreq3	;pointer to command	request data
	DC.W	writereq3	;pointer to write request data
	DC.W	writereply3	;pointer to write reply data
	DC.W	ticklereq3	;pointer to tickle request data
	DC.W	closereply3	;pointer to close reply data
	DC.W	timer3	;connection timer here
	DC.B	0	;server session socket goes here
	DC.W	0	;sequence number (should be started at 0)
	DC.L	0	;open cmdlist
	DC.L	0	;close cmdlist
	DC.L	0	;command cmdlist
	DC.L	0	;write cmdlist
	DC.W	sessiontable+8	;address of our position in sessiontable


		EXPORT	sessionrec4
sessionrec4		; 
	DC.W	openreq4	;pointer to open request data
	DC.W	closereq4	;pointer to close request data
	DC.W	cmdreq4	;pointer to command	request data
	DC.W	writereq4	;pointer to write request data
	DC.W	writereply4	;pointer to write reply data
	DC.W	ticklereq4	;pointer to tickle request data
	DC.W	closereply4	;pointer to close reply data
	DC.W	timer4	;connection timer here
	DC.B	0	;server session socket goes here
	DC.W	0	;sequence number (should be started at 0)
	DC.L	0	;open cmdlist
	DC.L	0	;close cmdlist
	DC.L	0	;command cmdlist
	DC.L	0	;write cmdlist
	DC.W	sessiontable+12	;address of our	position in sessiontable


		EXPORT	sessionrec5
sessionrec5		; 
	DC.W	openreq5	;pointer to open request data
	DC.W	closereq5	;pointer to close request data
	DC.W	cmdreq5	;pointer to command	request data
	DC.W	writereq5	;pointer to write request data
	DC.W	writereply5	;pointer to write reply data
	DC.W	ticklereq5	;pointer to tickle request data
	DC.W	closereply5	;pointer to close reply data
	DC.W	timer5	;connection timer here
	DC.B	0	;server session socket goes here
	DC.W	0	;sequence number (should be started at 0)
	DC.L	0	;open cmdlist
	DC.L	0	;close cmdlist
	DC.L	0	;command cmdlist
	DC.L	0	;write cmdlist
	DC.W	sessiontable+16	;address of our	position in sessiontable


		EXPORT	sessionrec6
sessionrec6		; 
	DC.W	openreq6	;pointer to open request data
	DC.W	closereq6	;pointer to close request data
	DC.W	cmdreq6	;pointer to command	request data
	DC.W	writereq6	;pointer to write request data
	DC.W	writereply6	;pointer to write reply data
	DC.W	ticklereq6	;pointer to tickle request data
	DC.W	closereply6	;pointer to close reply data
	DC.W	timer6	;connection timer here
	DC.B	0	;server session socket goes here
	DC.W	0	;sequence number (should be started at 0)
	DC.L	0	;open cmdlist
	DC.L	0	;close cmdlist
	DC.L	0	;command cmdlist
	DC.L	0	;write cmdlist
	DC.W	sessiontable+20	;address of our	position in sessiontable


		EXPORT	sessionrec7
sessionrec7		; 
	DC.W	openreq7	;pointer to open request data
	DC.W	closereq7	;pointer to close request data
	DC.W	cmdreq7	;pointer to command	request data
	DC.W	writereq7	;pointer to write request data
	DC.W	writereply7	;pointer to write reply data
	DC.W	ticklereq7	;pointer to tickle request data
	DC.W	closereply7	;pointer to close reply data
	DC.W	timer7	;connection timer here
	DC.B	0	;server session socket goes here
	DC.W	0	;sequence number (should be started at 0)
	DC.L	0	;open cmdlist
	DC.L	0	;close cmdlist
	DC.L	0	;command cmdlist
	DC.L	0	;write cmdlist
	DC.W	sessiontable+24	;address of our	position in sessiontable


		EXPORT	sessionrec8
sessionrec8		; 
	DC.W	openreq8	;pointer to open request data
	DC.W	closereq8	;pointer to close request data
	DC.W	cmdreq8	;pointer to command	request data
	DC.W	writereq8	;pointer to write request data
	DC.W	writereply8	;pointer to write reply data
	DC.W	ticklereq8	;pointer to tickle request data
	DC.W	closereply8	;pointer to close reply data
	DC.W	timer8	;connection timer here
	DC.B	0	;server session socket goes here
	DC.W	0	;sequence number (should be started at 0)
	DC.L	0	;open cmdlist
	DC.L	0	;close cmdlist
	DC.L	0	;command cmdlist
	DC.L	0	;write cmdlist
	DC.W	sessiontable+28	;address of our	position in sessiontable




		EXPORT	timer1
timer1	DC.B	$80,$04,$00,$00
	DC.L	timercomp
	DC.W	0	;tick count
	DC.W	0	;ticks to complete
		DS.B 4	;reserved
	DC.W	sessionrec1	;point back to our session table

		EXPORT	openreq1
openreq1	DC.B	$80,$12,$00,$00	;cnt, cmd, result
	DC.L	opencomp	;io completion
	DC.B	$00	;our socket (listener socket)
	DC.B	$00,$00	;their network
	DC.B	$00	;their node
	DC.B	$00	;their skt
	DC.B	$00,$00	;their tid
	DC.W	0	;buffer to send size
	DC.L	0	;send this data
	DC.B	$04,$00,$01,$00	;user bytes
	DC.B	01	;1 response buffer
	DC.L	orqbds1	;bds for input
	DC.B	atpxobit	;flag
	DC.B	cmdintvl	;retry interval
	DC.B	cmdcount	;retry count
	DC.B	$01	;bitmap for request
	DC.B	$00
	DC.B	$00,$00,$00,$00,$00,$00	;reserved fields
	DC.W	sessionrec1	;point back to sessionrec we belong to

		EXPORT	orqbds1
orqbds1	DC.W	0	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received


		EXPORT	closereq1
closereq1	DC.B	$80,$12,$00,$00	;cnt, cmd, result
	DC.L	closecomp	;io completion
	DC.B	$00	;our socket (listener socket)
	DC.B	$00,$00	;their network
	DC.B	$00	;their node
	DC.B	$00	;their skt
	DC.B	$00,$00	;their tid
	DC.W	0	;buffer to send size
	DC.L	0	;send this data
	DC.B	$01,$00,$00,$00	;user bytes
	DC.B	01	;1 response buffer
	DC.L	clsrqbds1	;bds for input
	DC.B	0	;flag
	DC.B	closeintvl	;retry interval
	DC.B	closecount	;retry count
	DC.B	$01	;bitmap for request
	DC.B	$00
	DC.B	$00,$00,$00,$00,$00,$00	;reserved fields
	DC.W	sessionrec1	;point back to sessionrec we belong to

		EXPORT	clsrqbds1
clsrqbds1	DC.W	0	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received


		EXPORT	cmdreq1
cmdreq1	DC.B	$80,$12,$00,$00	;cnt, cmd, result
	DC.L	cmdcomp	;io completion
	DC.B	$00	;our socket (listener socket)
	DC.B	$00,$00	;their network
	DC.B	$00	;their node
	DC.B	$00	;their skt
	DC.B	$00,$00	;their tid
	DC.W	0	;buffer to send size
	DC.L	0	;send this data
	DC.B	$02,$00,$00,$00	;user bytes
	DC.B	8	;8 response buffers
	DC.L	cmdrqbds1	;bds for input
	DC.B	atpxobit	;flag
	DC.B	cmdintvl	;retry interval
	DC.B	$ff	;infinite retry count
	DC.B	$ff	;bitmap for request
	DC.B	$00
	DC.B	$00,$00,$00,$00,$00,$00	;reserved fields
	DC.W	sessionrec1	;point back to sessionrec we belong to

		EXPORT	cmdrqbds1
cmdrqbds1	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received

		EXPORT	writereq1
writereq1	DC.B	$80,$12,$00,$00	;cnt, cmd, result
	DC.L	writecomp	;io completion
	DC.B	$00	;our socket (listener socket)
	DC.B	$00,$00	;their network
	DC.B	$00	;their node
	DC.B	$00	;their skt
	DC.B	$00,$00	;their tid
	DC.W	0	;buffer to send size
	DC.L	0	;send this data
	DC.B	$06,$00,$00,$00	;user bytes
	DC.B	8	;1 response buffer
	DC.L	wrtrqbds1	;bds for input
	DC.B	atpxobit	;flag
	DC.B	cmdintvl	;retry timeout
	DC.B	$ff	;infinite retry count
	DC.B	$ff	;bitmap for request
	DC.B	$00
	DC.B	$00,$00,$00,$00,$00,$00	;reserved fields
	DC.W	sessionrec1	;point back to sessionrec we belong to

		EXPORT	wrtrqbds1
wrtrqbds1	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received


		EXPORT	ticklereq1
ticklereq1	DC.B	$80,$12,$00,$00	;cnt, cmd, result
	DC.L	0	;io completion
	DC.B	$00	;our socket (listener socket)
	DC.B	$00,$00	;their network
	DC.B	$00	;their node
	DC.B	$00	;their skt
	DC.B	$00,$00	;their tid
	DC.W	0	;buffer to send size
	DC.L	0	;send this data
	DC.B	$05,$00,$00,$00	;user bytes
	DC.B	01	;1 response buffer
	DC.L	tklrqbds1	;bds for input
	DC.B	0	;flag
	DC.B	30*4	;every 30 seconds
	DC.B	$ff	;retry forever
	DC.B	$01	;bitmap for request
	DC.B	$00
	DC.B	$00,$00,$00,$00,$00,$00	;reserved fields
	DC.W	sessionrec1	;point back to sessionrec we belong to

		EXPORT	tklrqbds1
tklrqbds1	DC.W	0	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received


		EXPORT	writereply1
writereply1	DC.B	$80,$17,$00,$00	;cnt, async cmd, result
	DC.L	0	;io completion
	DC.B	$00	;source socket
	DC.B	$00,$00	;destination net
	DC.B	$00,$00	;dest node & skt
	DC.B	$00,$00	;tid
	DC.B	$08,$08	;number of buffers and max bufs
	DC.L	wtrplybds1	;bds for response
	DC.B	atpxobit	;flag
	DC.B	$ff	;responding bitmap
	DC.B	$00,$00,$00,$00	;add routine and flag
	DC.B	$00
	DC.W	sessionrec1	;point back to sessionrec we belong to

		EXPORT	wtrplybds1
wtrplybds1	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field
	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field
	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field
	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field
	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field
	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field
	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field
	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field


		EXPORT	closereply1
closereply1	DC.B	$80,$17,$00,$00	;cnt, async cmd, result
	DC.L	0	;io completion
	DC.B	$00	;source socket
	DC.B	$00,$00	;destination net
	DC.B	$00,$00	;dest node & skt
	DC.B	$00,$00	;tid
	DC.B	$01,$01	;number of buffers and max bufs
	DC.L	clsrplybds1	;bds for response
	DC.B	atpxobit	;flag
	DC.B	$01	;responding bitmap
	DC.B	$00,$00,$00,$00	;add routine and flag
	DC.B	$00
	DC.W	sessionrec1	;point back to sessionrec we belong to

		EXPORT	clsrplybds1
clsrplybds1	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field


		EXPORT	timer2
timer2	DC.B	$80,$04,$00,$00
	DC.L	timercomp
	DC.W	0	;tick count
	DC.W	0	;ticks to complete
		DS.B 4	;reserved
	DC.W	sessionrec2	;point back to our session table

		EXPORT	openreq2
openreq2	DC.B	$80,$12,$00,$00	;cnt, cmd, result
	DC.L	opencomp	;io completion
	DC.B	$00	;our socket (listener socket)
	DC.B	$00,$00	;their network
	DC.B	$00	;their node
	DC.B	$00	;their skt
	DC.B	$00,$00	;their tid
	DC.W	0	;buffer to send size
	DC.L	0	;send this data
	DC.B	$04,$00,$01,$00	;user bytes
	DC.B	01	;1 response buffer
	DC.L	orqbds2	;bds for input
	DC.B	atpxobit	;flag
	DC.B	cmdintvl	;retry interval
	DC.B	cmdcount	;retry count
	DC.B	$01	;bitmap for request
	DC.B	$00
	DC.B	$00,$00,$00,$00,$00,$00	;reserved fields
	DC.W	sessionrec2	;point back to sessionrec we belong to

		EXPORT	orqbds2
orqbds2	DC.W	0	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received


		EXPORT	closereq2
closereq2	DC.B	$80,$12,$00,$00	;cnt, cmd, result
	DC.L	closecomp	;io completion
	DC.B	$00	;our socket (listener socket)
	DC.B	$00,$00	;their network
	DC.B	$00	;their node
	DC.B	$00	;their skt
	DC.B	$00,$00	;their tid
	DC.W	0	;buffer to send size
	DC.L	0	;send this data
	DC.B	$01,$00,$00,$00	;user bytes
	DC.B	01	;1 response buffer
	DC.L	clsrqbds2	;bds for input
	DC.B	0	;flag
	DC.B	closeintvl	;retry interval
	DC.B	closecount	;retry count
	DC.B	$01	;bitmap for request
	DC.B	$00
	DC.B	$00,$00,$00,$00,$00,$00	;reserved fields
	DC.W	sessionrec2	;point back to sessionrec we belong to

		EXPORT	clsrqbds2
clsrqbds2	DC.W	0	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received


		EXPORT	cmdreq2
cmdreq2	DC.B	$80,$12,$00,$00	;cnt, cmd, result
	DC.L	cmdcomp	;io completion
	DC.B	$00	;our socket (listener socket)
	DC.B	$00,$00	;their network
	DC.B	$00	;their node
	DC.B	$00	;their skt
	DC.B	$00,$00	;their tid
	DC.W	0	;buffer to send size
	DC.L	0	;send this data
	DC.B	$02,$00,$00,$00	;user bytes
	DC.B	8	;8 response buffers
	DC.L	cmdrqbds2	;bds for input
	DC.B	atpxobit	;flag
	DC.B	cmdintvl	;retry interval
	DC.B	$ff	;infinite retry count
	DC.B	$ff	;bitmap for request
	DC.B	$00
	DC.B	$00,$00,$00,$00,$00,$00	;reserved fields
	DC.W	sessionrec2	;point back to sessionrec we belong to

		EXPORT	cmdrqbds2
cmdrqbds2	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received

		EXPORT	writereq2
writereq2	DC.B	$80,$12,$00,$00	;cnt, cmd, result
	DC.L	writecomp	;io completion
	DC.B	$00	;our socket (listener socket)
	DC.B	$00,$00	;their network
	DC.B	$00	;their node
	DC.B	$00	;their skt
	DC.B	$00,$00	;their tid
	DC.W	0	;buffer to send size
	DC.L	0	;send this data
	DC.B	$06,$00,$00,$00	;user bytes
	DC.B	8	;1 response buffer
	DC.L	wrtrqbds2	;bds for input
	DC.B	atpxobit	;flag
	DC.B	cmdintvl	;retry timeout
	DC.B	$ff	;infinite retry count
	DC.B	$ff	;bitmap for request
	DC.B	$00
	DC.B	$00,$00,$00,$00,$00,$00	;reserved fields
	DC.W	sessionrec2	;point back to sessionrec we belong to

		EXPORT	wrtrqbds2
wrtrqbds2	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received


		EXPORT	ticklereq2
ticklereq2	DC.B	$80,$12,$00,$00	;cnt, cmd, result
	DC.L	0	;io completion
	DC.B	$00	;our socket (listener socket)
	DC.B	$00,$00	;their network
	DC.B	$00	;their node
	DC.B	$00	;their skt
	DC.B	$00,$00	;their tid
	DC.W	0	;buffer to send size
	DC.L	0	;send this data
	DC.B	$05,$00,$00,$00	;user bytes
	DC.B	01	;1 response buffer
	DC.L	tklrqbds2	;bds for input
	DC.B	0	;flag
	DC.B	30*4	;every 30 seconds
	DC.B	$ff	;retry forever
	DC.B	$01	;bitmap for request
	DC.B	$00
	DC.B	$00,$00,$00,$00,$00,$00	;reserved fields
	DC.W	sessionrec2	;point back to sessionrec we belong to

		EXPORT	tklrqbds2
tklrqbds2	DC.W	0	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received


		EXPORT	writereply2
writereply2	DC.B	$80,$17,$00,$00	;cnt, async cmd, result
	DC.L	0	;io completion
	DC.B	$00	;source socket
	DC.B	$00,$00	;destination net
	DC.B	$00,$00	;dest node & skt
	DC.B	$00,$00	;tid
	DC.B	$08,$08	;number of buffers and max bufs
	DC.L	wtrplybds2	;bds for response
	DC.B	atpxobit	;flag
	DC.B	$ff	;responding bitmap
	DC.B	$00,$00,$00,$00	;add routine and flag
	DC.B	$00
	DC.W	sessionrec2	;point back to sessionrec we belong to

		EXPORT	wtrplybds2
wtrplybds2	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field
	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field
	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field
	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field
	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field
	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field
	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field
	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field


		EXPORT	closereply2
closereply2	DC.B	$80,$17,$00,$00	;cnt, async cmd, result
	DC.L	0	;io completion
	DC.B	$00	;source socket
	DC.B	$00,$00	;destination net
	DC.B	$00,$00	;dest node & skt
	DC.B	$00,$00	;tid
	DC.B	$01,$01	;number of buffers and max bufs
	DC.L	clsrplybds2	;bds for response
	DC.B	atpxobit	;flag
	DC.B	$01	;responding bitmap
	DC.B	$00,$00,$00,$00	;add routine and flag
	DC.B	$00
	DC.W	sessionrec2	;point back to sessionrec we belong to

		EXPORT	clsrplybds2
clsrplybds2	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field


		EXPORT	timer3
timer3	DC.B	$80,$04,$00,$00
	DC.L	timercomp
	DC.W	0	;tick count
	DC.W	0	;ticks to complete
		DS.B 4	;reserved
	DC.W	sessionrec3	;point back to our session table

		EXPORT	openreq3
openreq3	DC.B	$80,$12,$00,$00	;cnt, cmd, result
	DC.L	opencomp	;io completion
	DC.B	$00	;our socket (listener socket)
	DC.B	$00,$00	;their network
	DC.B	$00	;their node
	DC.B	$00	;their skt
	DC.B	$00,$00	;their tid
	DC.W	0	;buffer to send size
	DC.L	0	;send this data
	DC.B	$04,$00,$01,$00	;user bytes
	DC.B	01	;1 response buffer
	DC.L	orqbds3	;bds for input
	DC.B	atpxobit	;flag
	DC.B	cmdintvl	;retry interval
	DC.B	cmdcount	;retry count
	DC.B	$01	;bitmap for request
	DC.B	$00
	DC.B	$00,$00,$00,$00,$00,$00	;reserved fields
	DC.W	sessionrec3	;point back to sessionrec we belong to

		EXPORT	orqbds3
orqbds3	DC.W	0	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received


		EXPORT	closereq3
closereq3	DC.B	$80,$12,$00,$00	;cnt, cmd, result
	DC.L	closecomp	;io completion
	DC.B	$00	;our socket (listener socket)
	DC.B	$00,$00	;their network
	DC.B	$00	;their node
	DC.B	$00	;their skt
	DC.B	$00,$00	;their tid
	DC.W	0	;buffer to send size
	DC.L	0	;send this data
	DC.B	$01,$00,$00,$00	;user bytes
	DC.B	01	;1 response buffer
	DC.L	clsrqbds3	;bds for input
	DC.B	0	;flag
	DC.B	closeintvl	;retry interval
	DC.B	closecount	;retry count
	DC.B	$01	;bitmap for request
	DC.B	$00
	DC.B	$00,$00,$00,$00,$00,$00	;reserved fields
	DC.W	sessionrec3	;point back to sessionrec we belong to

		EXPORT	clsrqbds3
clsrqbds3	DC.W	0	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received


		EXPORT	cmdreq3
cmdreq3	DC.B	$80,$12,$00,$00	;cnt, cmd, result
	DC.L	cmdcomp	;io completion
	DC.B	$00	;our socket (listener socket)
	DC.B	$00,$00	;their network
	DC.B	$00	;their node
	DC.B	$00	;their skt
	DC.B	$00,$00	;their tid
	DC.W	0	;buffer to send size
	DC.L	0	;send this data
	DC.B	$02,$00,$00,$00	;user bytes
	DC.B	8	;8 response buffers
	DC.L	cmdrqbds3	;bds for input
	DC.B	atpxobit	;flag
	DC.B	cmdintvl	;retry interval
	DC.B	$ff	;infinite retry count
	DC.B	$ff	;bitmap for request
	DC.B	$00
	DC.B	$00,$00,$00,$00,$00,$00	;reserved fields
	DC.W	sessionrec3	;point back to sessionrec we belong to

		EXPORT	cmdrqbds3
cmdrqbds3	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received

		EXPORT	writereq3
writereq3	DC.B	$80,$12,$00,$00	;cnt, cmd, result
	DC.L	writecomp	;io completion
	DC.B	$00	;our socket (listener socket)
	DC.B	$00,$00	;their network
	DC.B	$00	;their node
	DC.B	$00	;their skt
	DC.B	$00,$00	;their tid
	DC.W	0	;buffer to send size
	DC.L	0	;send this data
	DC.B	$06,$00,$00,$00	;user bytes
	DC.B	8	;1 response buffer
	DC.L	wrtrqbds3	;bds for input
	DC.B	atpxobit	;flag
	DC.B	cmdintvl	;retry timeout
	DC.B	$ff	;infinite retry count
	DC.B	$ff	;bitmap for request
	DC.B	$00
	DC.B	$00,$00,$00,$00,$00,$00	;reserved fields
	DC.W	sessionrec3	;point back to sessionrec we belong to

		EXPORT	wrtrqbds3
wrtrqbds3	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received


		EXPORT	ticklereq3
ticklereq3	DC.B	$80,$12,$00,$00	;cnt, cmd, result
	DC.L	0	;io completion
	DC.B	$00	;our socket (listener socket)
	DC.B	$00,$00	;their network
	DC.B	$00	;their node
	DC.B	$00	;their skt
	DC.B	$00,$00	;their tid
	DC.W	0	;buffer to send size
	DC.L	0	;send this data
	DC.B	$05,$00,$00,$00	;user bytes
	DC.B	01	;1 response buffer
	DC.L	tklrqbds3	;bds for input
	DC.B	0	;flag
	DC.B	30*4	;every 30 seconds
	DC.B	$ff	;retry forever
	DC.B	$01	;bitmap for request
	DC.B	$00
	DC.B	$00,$00,$00,$00,$00,$00	;reserved fields
	DC.W	sessionrec3	;point back to sessionrec we belong to

		EXPORT	tklrqbds3
tklrqbds3	DC.W	0	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received


		EXPORT	writereply3
writereply3	DC.B	$80,$17,$00,$00	;cnt, async cmd, result
	DC.L	0	;io completion
	DC.B	$00	;source socket
	DC.B	$00,$00	;destination net
	DC.B	$00,$00	;dest node & skt
	DC.B	$00,$00	;tid
	DC.B	$08,$08	;number of buffers and max bufs
	DC.L	wtrplybds3	;bds for response
	DC.B	atpxobit	;flag
	DC.B	$ff	;responding bitmap
	DC.B	$00,$00,$00,$00	;add routine and flag
	DC.B	$00
	DC.W	sessionrec3	;point back to sessionrec we belong to

		EXPORT	wtrplybds3
wtrplybds3	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field
	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field
	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field
	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field
	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field
	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field
	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field
	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field


		EXPORT	closereply3
closereply3	DC.B	$80,$17,$00,$00	;cnt, async cmd, result
	DC.L	0	;io completion
	DC.B	$00	;source socket
	DC.B	$00,$00	;destination net
	DC.B	$00,$00	;dest node & skt
	DC.B	$00,$00	;tid
	DC.B	$01,$01	;number of buffers and max bufs
	DC.L	clsrplybds3	;bds for response
	DC.B	atpxobit	;flag
	DC.B	$01	;responding bitmap
	DC.B	$00,$00,$00,$00	;add routine and flag
	DC.B	$00
	DC.W	sessionrec3	;point back to sessionrec we belong to

		EXPORT	clsrplybds3
clsrplybds3	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field


		EXPORT	timer4
timer4	DC.B	$80,$04,$00,$00
	DC.L	timercomp
	DC.W	0	;tick count
	DC.W	0	;ticks to complete
		DS.B 4	;reserved
	DC.W	sessionrec4	;point back to our session table

		EXPORT	openreq4
openreq4	DC.B	$80,$12,$00,$00	;cnt, cmd, result
	DC.L	opencomp	;io completion
	DC.B	$00	;our socket (listener socket)
	DC.B	$00,$00	;their network
	DC.B	$00	;their node
	DC.B	$00	;their skt
	DC.B	$00,$00	;their tid
	DC.W	0	;buffer to send size
	DC.L	0	;send this data
	DC.B	$04,$00,$01,$00	;user bytes
	DC.B	01	;1 response buffer
	DC.L	orqbds4	;bds for input
	DC.B	atpxobit	;flag
	DC.B	cmdintvl	;retry interval
	DC.B	cmdcount	;retry count
	DC.B	$01	;bitmap for request
	DC.B	$00
	DC.B	$00,$00,$00,$00,$00,$00	;reserved fields
	DC.W	sessionrec4	;point back to sessionrec we belong to

		EXPORT	orqbds4
orqbds4	DC.W	0	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received


		EXPORT	closereq4
closereq4	DC.B	$80,$12,$00,$00	;cnt, cmd, result
	DC.L	closecomp	;io completion
	DC.B	$00	;our socket (listener socket)
	DC.B	$00,$00	;their network
	DC.B	$00	;their node
	DC.B	$00	;their skt
	DC.B	$00,$00	;their tid
	DC.W	0	;buffer to send size
	DC.L	0	;send this data
	DC.B	$01,$00,$00,$00	;user bytes
	DC.B	01	;1 response buffer
	DC.L	clsrqbds4	;bds for input
	DC.B	0	;flag
	DC.B	closeintvl	;retry interval
	DC.B	closecount	;retry count
	DC.B	$01	;bitmap for request
	DC.B	$00
	DC.B	$00,$00,$00,$00,$00,$00	;reserved fields
	DC.W	sessionrec4	;point back to sessionrec we belong to

		EXPORT	clsrqbds4
clsrqbds4	DC.W	0	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received


		EXPORT	cmdreq4
cmdreq4	DC.B	$80,$12,$00,$00	;cnt, cmd, result
	DC.L	cmdcomp	;io completion
	DC.B	$00	;our socket (listener socket)
	DC.B	$00,$00	;their network
	DC.B	$00	;their node
	DC.B	$00	;their skt
	DC.B	$00,$00	;their tid
	DC.W	0	;buffer to send size
	DC.L	0	;send this data
	DC.B	$02,$00,$00,$00	;user bytes
	DC.B	8	;8 response buffers
	DC.L	cmdrqbds4	;bds for input
	DC.B	atpxobit	;flag
	DC.B	cmdintvl	;retry interval
	DC.B	$ff	;infinite retry count
	DC.B	$ff	;bitmap for request
	DC.B	$00
	DC.B	$00,$00,$00,$00,$00,$00	;reserved fields
	DC.W	sessionrec4	;point back to sessionrec we belong to

		EXPORT	cmdrqbds4
cmdrqbds4	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received

		EXPORT	writereq4
writereq4	DC.B	$80,$12,$00,$00	;cnt, cmd, result
	DC.L	writecomp	;io completion
	DC.B	$00	;our socket (listener socket)
	DC.B	$00,$00	;their network
	DC.B	$00	;their node
	DC.B	$00	;their skt
	DC.B	$00,$00	;their tid
	DC.W	0	;buffer to send size
	DC.L	0	;send this data
	DC.B	$06,$00,$00,$00	;user bytes
	DC.B	8	;1 response buffer
	DC.L	wrtrqbds4	;bds for input
	DC.B	atpxobit	;flag
	DC.B	cmdintvl	;retry timeout
	DC.B	$ff	;infinite retry count
	DC.B	$ff	;bitmap for request
	DC.B	$00
	DC.B	$00,$00,$00,$00,$00,$00	;reserved fields
	DC.W	sessionrec4	;point back to sessionrec we belong to

		EXPORT	wrtrqbds4
wrtrqbds4	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received


		EXPORT	ticklereq4
ticklereq4	DC.B	$80,$12,$00,$00	;cnt, cmd, result
	DC.L	0	;io completion
	DC.B	$00	;our socket (listener socket)
	DC.B	$00,$00	;their network
	DC.B	$00	;their node
	DC.B	$00	;their skt
	DC.B	$00,$00	;their tid
	DC.W	0	;buffer to send size
	DC.L	0	;send this data
	DC.B	$05,$00,$00,$00	;user bytes
	DC.B	01	;1 response buffer
	DC.L	tklrqbds4	;bds for input
	DC.B	0	;flag
	DC.B	30*4	;every 30 seconds
	DC.B	$ff	;retry forever
	DC.B	$01	;bitmap for request
	DC.B	$00
	DC.B	$00,$00,$00,$00,$00,$00	;reserved fields
	DC.W	sessionrec4	;point back to sessionrec we belong to

		EXPORT	tklrqbds4
tklrqbds4	DC.W	0	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received


		EXPORT	writereply4
writereply4	DC.B	$80,$17,$00,$00	;cnt, async cmd, result
	DC.L	0	;io completion
	DC.B	$00	;source socket
	DC.B	$00,$00	;destination net
	DC.B	$00,$00	;dest node & skt
	DC.B	$00,$00	;tid
	DC.B	$08,$08	;number of buffers and max bufs
	DC.L	wtrplybds4	;bds for response
	DC.B	atpxobit	;flag
	DC.B	$ff	;responding bitmap
	DC.B	$00,$00,$00,$00	;add routine and flag
	DC.B	$00
	DC.W	sessionrec4	;point back to sessionrec we belong to

		EXPORT	wtrplybds4
wtrplybds4	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field
	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field
	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field
	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field
	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field
	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field
	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field
	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field


		EXPORT	closereply4
closereply4	DC.B	$80,$17,$00,$00	;cnt, async cmd, result
	DC.L	0	;io completion
	DC.B	$00	;source socket
	DC.B	$00,$00	;destination net
	DC.B	$00,$00	;dest node & skt
	DC.B	$00,$00	;tid
	DC.B	$01,$01	;number of buffers and max bufs
	DC.L	clsrplybds4	;bds for response
	DC.B	atpxobit	;flag
	DC.B	$01	;responding bitmap
	DC.B	$00,$00,$00,$00	;add routine and flag
	DC.B	$00
	DC.W	sessionrec4	;point back to sessionrec we belong to

		EXPORT	clsrplybds4
clsrplybds4	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field


		EXPORT	timer5
timer5	DC.B	$80,$04,$00,$00
	DC.L	timercomp
	DC.W	0	;tick count
	DC.W	0	;ticks to complete
		DS.B 4	;reserved
	DC.W	sessionrec5	;point back to our session table

		EXPORT	openreq5
openreq5	DC.B	$80,$12,$00,$00	;cnt, cmd, result
	DC.L	opencomp	;io completion
	DC.B	$00	;our socket (listener socket)
	DC.B	$00,$00	;their network
	DC.B	$00	;their node
	DC.B	$00	;their skt
	DC.B	$00,$00	;their tid
	DC.W	0	;buffer to send size
	DC.L	0	;send this data
	DC.B	$04,$00,$01,$00	;user bytes
	DC.B	01	;1 response buffer
	DC.L	orqbds5	;bds for input
	DC.B	atpxobit	;flag
	DC.B	cmdintvl	;retry interval
	DC.B	cmdcount	;retry count
	DC.B	$01	;bitmap for request
	DC.B	$00
	DC.B	$00,$00,$00,$00,$00,$00	;reserved fields
	DC.W	sessionrec5	;point back to sessionrec we belong to

		EXPORT	orqbds5
orqbds5	DC.W	0	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received


		EXPORT	closereq5
closereq5	DC.B	$80,$12,$00,$00	;cnt, cmd, result
	DC.L	closecomp	;io completion
	DC.B	$00	;our socket (listener socket)
	DC.B	$00,$00	;their network
	DC.B	$00	;their node
	DC.B	$00	;their skt
	DC.B	$00,$00	;their tid
	DC.W	0	;buffer to send size
	DC.L	0	;send this data
	DC.B	$01,$00,$00,$00	;user bytes
	DC.B	01	;1 response buffer
	DC.L	clsrqbds5	;bds for input
	DC.B	0	;flag
	DC.B	closeintvl	;retry interval
	DC.B	closecount	;retry count
	DC.B	$01	;bitmap for request
	DC.B	$00
	DC.B	$00,$00,$00,$00,$00,$00	;reserved fields
	DC.W	sessionrec5	;point back to sessionrec we belong to

		EXPORT	clsrqbds5
clsrqbds5	DC.W	0	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received


		EXPORT	cmdreq5
cmdreq5	DC.B	$80,$12,$00,$00	;cnt, cmd, result
	DC.L	cmdcomp	;io completion
	DC.B	$00	;our socket (listener socket)
	DC.B	$00,$00	;their network
	DC.B	$00	;their node
	DC.B	$00	;their skt
	DC.B	$00,$00	;their tid
	DC.W	0	;buffer to send size
	DC.L	0	;send this data
	DC.B	$02,$00,$00,$00	;user bytes
	DC.B	8	;8 response buffers
	DC.L	cmdrqbds5	;bds for input
	DC.B	atpxobit	;flag
	DC.B	cmdintvl	;retry interval
	DC.B	$ff	;infinite retry count
	DC.B	$ff	;bitmap for request
	DC.B	$00
	DC.B	$00,$00,$00,$00,$00,$00	;reserved fields
	DC.W	sessionrec5	;point back to sessionrec we belong to

		EXPORT	cmdrqbds5
cmdrqbds5	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received

		EXPORT	writereq5
writereq5	DC.B	$80,$12,$00,$00	;cnt, cmd, result
	DC.L	writecomp	;io completion
	DC.B	$00	;our socket (listener socket)
	DC.B	$00,$00	;their network
	DC.B	$00	;their node
	DC.B	$00	;their skt
	DC.B	$00,$00	;their tid
	DC.W	0	;buffer to send size
	DC.L	0	;send this data
	DC.B	$06,$00,$00,$00	;user bytes
	DC.B	8	;1 response buffer
	DC.L	wrtrqbds5	;bds for input
	DC.B	atpxobit	;flag
	DC.B	cmdintvl	;retry timeout
	DC.B	$ff	;infinite retry count
	DC.B	$ff	;bitmap for request
	DC.B	$00
	DC.B	$00,$00,$00,$00,$00,$00	;reserved fields
	DC.W	sessionrec5	;point back to sessionrec we belong to

		EXPORT	wrtrqbds5
wrtrqbds5	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received


		EXPORT	ticklereq5
ticklereq5	DC.B	$80,$12,$00,$00	;cnt, cmd, result
	DC.L	0	;io completion
	DC.B	$00	;our socket (listener socket)
	DC.B	$00,$00	;their network
	DC.B	$00	;their node
	DC.B	$00	;their skt
	DC.B	$00,$00	;their tid
	DC.W	0	;buffer to send size
	DC.L	0	;send this data
	DC.B	$05,$00,$00,$00	;user bytes
	DC.B	01	;1 response buffer
	DC.L	tklrqbds5	;bds for input
	DC.B	0	;flag
	DC.B	30*4	;every 30 seconds
	DC.B	$ff	;retry forever
	DC.B	$01	;bitmap for request
	DC.B	$00
	DC.B	$00,$00,$00,$00,$00,$00	;reserved fields
	DC.W	sessionrec5	;point back to sessionrec we belong to

		EXPORT	tklrqbds5
tklrqbds5	DC.W	0	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received


		EXPORT	writereply5
writereply5	DC.B	$80,$17,$00,$00	;cnt, async cmd, result
	DC.L	0	;io completion
	DC.B	$00	;source socket
	DC.B	$00,$00	;destination net
	DC.B	$00,$00	;dest node & skt
	DC.B	$00,$00	;tid
	DC.B	$08,$08	;number of buffers and max bufs
	DC.L	wtrplybds5	;bds for response
	DC.B	atpxobit	;flag
	DC.B	$ff	;responding bitmap
	DC.B	$00,$00,$00,$00	;add routine and flag
	DC.B	$00
	DC.W	sessionrec5	;point back to sessionrec we belong to

		EXPORT	wtrplybds5
wtrplybds5	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field
	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field
	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field
	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field
	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field
	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field
	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field
	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field


		EXPORT	closereply5
closereply5	DC.B	$80,$17,$00,$00	;cnt, async cmd, result
	DC.L	0	;io completion
	DC.B	$00	;source socket
	DC.B	$00,$00	;destination net
	DC.B	$00,$00	;dest node & skt
	DC.B	$00,$00	;tid
	DC.B	$01,$01	;number of buffers and max bufs
	DC.L	clsrplybds5	;bds for response
	DC.B	atpxobit	;flag
	DC.B	$01	;responding bitmap
	DC.B	$00,$00,$00,$00	;add routine and flag
	DC.B	$00
	DC.W	sessionrec5	;point back to sessionrec we belong to

		EXPORT	clsrplybds5
clsrplybds5	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field


		EXPORT	timer6
timer6	DC.B	$80,$04,$00,$00
	DC.L	timercomp
	DC.W	0	;tick count
	DC.W	0	;ticks to complete
		DS.B 4	;reserved
	DC.W	sessionrec6	;point back to our session table

		EXPORT	openreq6
openreq6	DC.B	$80,$12,$00,$00	;cnt, cmd, result
	DC.L	opencomp	;io completion
	DC.B	$00	;our socket (listener socket)
	DC.B	$00,$00	;their network
	DC.B	$00	;their node
	DC.B	$00	;their skt
	DC.B	$00,$00	;their tid
	DC.W	0	;buffer to send size
	DC.L	0	;send this data
	DC.B	$04,$00,$01,$00	;user bytes
	DC.B	01	;1 response buffer
	DC.L	orqbds6	;bds for input
	DC.B	atpxobit	;flag
	DC.B	cmdintvl	;retry interval
	DC.B	cmdcount	;retry count
	DC.B	$01	;bitmap for request
	DC.B	$00
	DC.B	$00,$00,$00,$00,$00,$00	;reserved fields
	DC.W	sessionrec6	;point back to sessionrec we belong to

		EXPORT	orqbds6
orqbds6	DC.W	0	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received


		EXPORT	closereq6
closereq6	DC.B	$80,$12,$00,$00	;cnt, cmd, result
	DC.L	closecomp	;io completion
	DC.B	$00	;our socket (listener socket)
	DC.B	$00,$00	;their network
	DC.B	$00	;their node
	DC.B	$00	;their skt
	DC.B	$00,$00	;their tid
	DC.W	0	;buffer to send size
	DC.L	0	;send this data
	DC.B	$01,$00,$00,$00	;user bytes
	DC.B	01	;1 response buffer
	DC.L	clsrqbds6	;bds for input
	DC.B	0	;flag
	DC.B	closeintvl	;retry interval
	DC.B	closecount	;retry count
	DC.B	$01	;bitmap for request
	DC.B	$00
	DC.B	$00,$00,$00,$00,$00,$00	;reserved fields
	DC.W	sessionrec6	;point back to sessionrec we belong to

		EXPORT	clsrqbds6
clsrqbds6	DC.W	0	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received


		EXPORT	cmdreq6
cmdreq6	DC.B	$80,$12,$00,$00	;cnt, cmd, result
	DC.L	cmdcomp	;io completion
	DC.B	$00	;our socket (listener socket)
	DC.B	$00,$00	;their network
	DC.B	$00	;their node
	DC.B	$00	;their skt
	DC.B	$00,$00	;their tid
	DC.W	0	;buffer to send size
	DC.L	0	;send this data
	DC.B	$02,$00,$00,$00	;user bytes
	DC.B	8	;8 response buffers
	DC.L	cmdrqbds6	;bds for input
	DC.B	atpxobit	;flag
	DC.B	cmdintvl	;retry interval
	DC.B	$ff	;infinite retry count
	DC.B	$ff	;bitmap for request
	DC.B	$00
	DC.B	$00,$00,$00,$00,$00,$00	;reserved fields
	DC.W	sessionrec6	;point back to sessionrec we belong to

		EXPORT	cmdrqbds6
cmdrqbds6	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received

		EXPORT	writereq6
writereq6	DC.B	$80,$12,$00,$00	;cnt, cmd, result
	DC.L	writecomp	;io completion
	DC.B	$00	;our socket (listener socket)
	DC.B	$00,$00	;their network
	DC.B	$00	;their node
	DC.B	$00	;their skt
	DC.B	$00,$00	;their tid
	DC.W	0	;buffer to send size
	DC.L	0	;send this data
	DC.B	$06,$00,$00,$00	;user bytes
	DC.B	8	;1 response buffer
	DC.L	wrtrqbds6	;bds for input
	DC.B	atpxobit	;flag
	DC.B	cmdintvl	;retry timeout
	DC.B	$ff	;infinite retry count
	DC.B	$ff	;bitmap for request
	DC.B	$00
	DC.B	$00,$00,$00,$00,$00,$00	;reserved fields
	DC.W	sessionrec6	;point back to sessionrec we belong to

		EXPORT	wrtrqbds6
wrtrqbds6	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received


		EXPORT	ticklereq6
ticklereq6	DC.B	$80,$12,$00,$00	;cnt, cmd, result
	DC.L	0	;io completion
	DC.B	$00	;our socket (listener socket)
	DC.B	$00,$00	;their network
	DC.B	$00	;their node
	DC.B	$00	;their skt
	DC.B	$00,$00	;their tid
	DC.W	0	;buffer to send size
	DC.L	0	;send this data
	DC.B	$05,$00,$00,$00	;user bytes
	DC.B	01	;1 response buffer
	DC.L	tklrqbds6	;bds for input
	DC.B	0	;flag
	DC.B	30*4	;every 30 seconds
	DC.B	$ff	;retry forever
	DC.B	$01	;bitmap for request
	DC.B	$00
	DC.B	$00,$00,$00,$00,$00,$00	;reserved fields
	DC.W	sessionrec6	;point back to sessionrec we belong to

		EXPORT	tklrqbds6
tklrqbds6	DC.W	0	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received


		EXPORT	writereply6
writereply6	DC.B	$80,$17,$00,$00	;cnt, async cmd, result
	DC.L	0	;io completion
	DC.B	$00	;source socket
	DC.B	$00,$00	;destination net
	DC.B	$00,$00	;dest node & skt
	DC.B	$00,$00	;tid
	DC.B	$08,$08	;number of buffers and max bufs
	DC.L	wtrplybds6	;bds for response
	DC.B	atpxobit	;flag
	DC.B	$ff	;responding bitmap
	DC.B	$00,$00,$00,$00	;add routine and flag
	DC.B	$00
	DC.W	sessionrec6	;point back to sessionrec we belong to

		EXPORT	wtrplybds6
wtrplybds6	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field
	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field
	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field
	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field
	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field
	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field
	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field
	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field


		EXPORT	closereply6
closereply6	DC.B	$80,$17,$00,$00	;cnt, async cmd, result
	DC.L	0	;io completion
	DC.B	$00	;source socket
	DC.B	$00,$00	;destination net
	DC.B	$00,$00	;dest node & skt
	DC.B	$00,$00	;tid
	DC.B	$01,$01	;number of buffers and max bufs
	DC.L	clsrplybds6	;bds for response
	DC.B	atpxobit	;flag
	DC.B	$01	;responding bitmap
	DC.B	$00,$00,$00,$00	;add routine and flag
	DC.B	$00
	DC.W	sessionrec6	;point back to sessionrec we belong to

		EXPORT	clsrplybds6
clsrplybds6	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field


		EXPORT	timer7
timer7	DC.B	$80,$04,$00,$00
	DC.L	timercomp
	DC.W	0	;tick count
	DC.W	0	;ticks to complete
		DS.B 4	;reserved
	DC.W	sessionrec7	;point back to our session table

		EXPORT	openreq7
openreq7	DC.B	$80,$12,$00,$00	;cnt, cmd, result
	DC.L	opencomp	;io completion
	DC.B	$00	;our socket (listener socket)
	DC.B	$00,$00	;their network
	DC.B	$00	;their node
	DC.B	$00	;their skt
	DC.B	$00,$00	;their tid
	DC.W	0	;buffer to send size
	DC.L	0	;send this data
	DC.B	$04,$00,$01,$00	;user bytes
	DC.B	01	;1 response buffer
	DC.L	orqbds7	;bds for input
	DC.B	atpxobit	;flag
	DC.B	cmdintvl	;retry interval
	DC.B	cmdcount	;retry count
	DC.B	$01	;bitmap for request
	DC.B	$00
	DC.B	$00,$00,$00,$00,$00,$00	;reserved fields
	DC.W	sessionrec7	;point back to sessionrec we belong to

		EXPORT	orqbds7
orqbds7	DC.W	0	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received


		EXPORT	closereq7
closereq7	DC.B	$80,$12,$00,$00	;cnt, cmd, result
	DC.L	closecomp	;io completion
	DC.B	$00	;our socket (listener socket)
	DC.B	$00,$00	;their network
	DC.B	$00	;their node
	DC.B	$00	;their skt
	DC.B	$00,$00	;their tid
	DC.W	0	;buffer to send size
	DC.L	0	;send this data
	DC.B	$01,$00,$00,$00	;user bytes
	DC.B	01	;1 response buffer
	DC.L	clsrqbds7	;bds for input
	DC.B	0	;flag
	DC.B	closeintvl	;retry interval
	DC.B	closecount	;retry count
	DC.B	$01	;bitmap for request
	DC.B	$00
	DC.B	$00,$00,$00,$00,$00,$00	;reserved fields
	DC.W	sessionrec7	;point back to sessionrec we belong to

		EXPORT	clsrqbds7
clsrqbds7	DC.W	0	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received


		EXPORT	cmdreq7
cmdreq7	DC.B	$80,$12,$00,$00	;cnt, cmd, result
	DC.L	cmdcomp	;io completion
	DC.B	$00	;our socket (listener socket)
	DC.B	$00,$00	;their network
	DC.B	$00	;their node
	DC.B	$00	;their skt
	DC.B	$00,$00	;their tid
	DC.W	0	;buffer to send size
	DC.L	0	;send this data
	DC.B	$02,$00,$00,$00	;user bytes
	DC.B	8	;8 response buffers
	DC.L	cmdrqbds7	;bds for input
	DC.B	atpxobit	;flag
	DC.B	cmdintvl	;retry interval
	DC.B	$ff	;infinite retry count
	DC.B	$ff	;bitmap for request
	DC.B	$00
	DC.B	$00,$00,$00,$00,$00,$00	;reserved fields
	DC.W	sessionrec7	;point back to sessionrec we belong to

		EXPORT	cmdrqbds7
cmdrqbds7	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received

		EXPORT	writereq7
writereq7	DC.B	$80,$12,$00,$00	;cnt, cmd, result
	DC.L	writecomp	;io completion
	DC.B	$00	;our socket (listener socket)
	DC.B	$00,$00	;their network
	DC.B	$00	;their node
	DC.B	$00	;their skt
	DC.B	$00,$00	;their tid
	DC.W	0	;buffer to send size
	DC.L	0	;send this data
	DC.B	$06,$00,$00,$00	;user bytes
	DC.B	8	;1 response buffer
	DC.L	wrtrqbds7	;bds for input
	DC.B	atpxobit	;flag
	DC.B	cmdintvl	;retry timeout
	DC.B	$ff	;infinite retry count
	DC.B	$ff	;bitmap for request
	DC.B	$00
	DC.B	$00,$00,$00,$00,$00,$00	;reserved fields
	DC.W	sessionrec7	;point back to sessionrec we belong to

		EXPORT	wrtrqbds7
wrtrqbds7	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received


		EXPORT	ticklereq7
ticklereq7	DC.B	$80,$12,$00,$00	;cnt, cmd, result
	DC.L	0	;io completion
	DC.B	$00	;our socket (listener socket)
	DC.B	$00,$00	;their network
	DC.B	$00	;their node
	DC.B	$00	;their skt
	DC.B	$00,$00	;their tid
	DC.W	0	;buffer to send size
	DC.L	0	;send this data
	DC.B	$05,$00,$00,$00	;user bytes
	DC.B	01	;1 response buffer
	DC.L	tklrqbds7	;bds for input
	DC.B	0	;flag
	DC.B	30*4	;every 30 seconds
	DC.B	$ff	;retry forever
	DC.B	$01	;bitmap for request
	DC.B	$00
	DC.B	$00,$00,$00,$00,$00,$00	;reserved fields
	DC.W	sessionrec7	;point back to sessionrec we belong to

		EXPORT	tklrqbds7
tklrqbds7	DC.W	0	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received


		EXPORT	writereply7
writereply7	DC.B	$80,$17,$00,$00	;cnt, async cmd, result
	DC.L	0	;io completion
	DC.B	$00	;source socket
	DC.B	$00,$00	;destination net
	DC.B	$00,$00	;dest node & skt
	DC.B	$00,$00	;tid
	DC.B	$08,$08	;number of buffers and max bufs
	DC.L	wtrplybds7	;bds for response
	DC.B	atpxobit	;flag
	DC.B	$ff	;responding bitmap
	DC.B	$00,$00,$00,$00	;add routine and flag
	DC.B	$00
	DC.W	sessionrec7	;point back to sessionrec we belong to

		EXPORT	wtrplybds7
wtrplybds7	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field
	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field
	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field
	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field
	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field
	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field
	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field
	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field


		EXPORT	closereply7
closereply7	DC.B	$80,$17,$00,$00	;cnt, async cmd, result
	DC.L	0	;io completion
	DC.B	$00	;source socket
	DC.B	$00,$00	;destination net
	DC.B	$00,$00	;dest node & skt
	DC.B	$00,$00	;tid
	DC.B	$01,$01	;number of buffers and max bufs
	DC.L	clsrplybds7	;bds for response
	DC.B	atpxobit	;flag
	DC.B	$01	;responding bitmap
	DC.B	$00,$00,$00,$00	;add routine and flag
	DC.B	$00
	DC.W	sessionrec7	;point back to sessionrec we belong to

		EXPORT	clsrplybds7
clsrplybds7	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field


		EXPORT	timer8
timer8	DC.B	$80,$04,$00,$00
	DC.L	timercomp
	DC.W	0	;tick count
	DC.W	0	;ticks to complete
		DS.B 4	;reserved
	DC.W	sessionrec8	;point back to our session table

		EXPORT	openreq8
openreq8	DC.B	$80,$12,$00,$00	;cnt, cmd, result
	DC.L	opencomp	;io completion
	DC.B	$00	;our socket (listener socket)
	DC.B	$00,$00	;their network
	DC.B	$00	;their node
	DC.B	$00	;their skt
	DC.B	$00,$00	;their tid
	DC.W	0	;buffer to send size
	DC.L	0	;send this data
	DC.B	$04,$00,$01,$00	;user bytes
	DC.B	01	;1 response buffer
	DC.L	orqbds8	;bds for input
	DC.B	atpxobit	;flag
	DC.B	cmdintvl	;retry interval
	DC.B	cmdcount	;retry count
	DC.B	$01	;bitmap for request
	DC.B	$00
	DC.B	$00,$00,$00,$00,$00,$00	;reserved fields
	DC.W	sessionrec8	;point back to sessionrec we belong to

		EXPORT	orqbds8
orqbds8	DC.W	0	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received


		EXPORT	closereq8
closereq8	DC.B	$80,$12,$00,$00	;cnt, cmd, result
	DC.L	closecomp	;io completion
	DC.B	$00	;our socket (listener socket)
	DC.B	$00,$00	;their network
	DC.B	$00	;their node
	DC.B	$00	;their skt
	DC.B	$00,$00	;their tid
	DC.W	0	;buffer to send size
	DC.L	0	;send this data
	DC.B	$01,$00,$00,$00	;user bytes
	DC.B	01	;1 response buffer
	DC.L	clsrqbds8	;bds for input
	DC.B	0	;flag
	DC.B	closeintvl	;retry interval
	DC.B	closecount	;retry count
	DC.B	$01	;bitmap for request
	DC.B	$00
	DC.B	$00,$00,$00,$00,$00,$00	;reserved fields
	DC.W	sessionrec8	;point back to sessionrec we belong to

		EXPORT	clsrqbds8
clsrqbds8	DC.W	0	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received


		EXPORT	cmdreq8
cmdreq8	DC.B	$80,$12,$00,$00	;cnt, cmd, result
	DC.L	cmdcomp	;io completion
	DC.B	$00	;our socket (listener socket)
	DC.B	$00,$00	;their network
	DC.B	$00	;their node
	DC.B	$00	;their skt
	DC.B	$00,$00	;their tid
	DC.W	0	;buffer to send size
	DC.L	0	;send this data
	DC.B	$02,$00,$00,$00	;user bytes
	DC.B	8	;8 response buffers
	DC.L	cmdrqbds8	;bds for input
	DC.B	atpxobit	;flag
	DC.B	cmdintvl	;retry interval
	DC.B	$ff	;infinite retry count
	DC.B	$ff	;bitmap for request
	DC.B	$00
	DC.B	$00,$00,$00,$00,$00,$00	;reserved fields
	DC.W	sessionrec8	;point back to sessionrec we belong to

		EXPORT	cmdrqbds8
cmdrqbds8	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received

		EXPORT	writereq8
writereq8	DC.B	$80,$12,$00,$00	;cnt, cmd, result
	DC.L	writecomp	;io completion
	DC.B	$00	;our socket (listener socket)
	DC.B	$00,$00	;their network
	DC.B	$00	;their node
	DC.B	$00	;their skt
	DC.B	$00,$00	;their tid
	DC.W	0	;buffer to send size
	DC.L	0	;send this data
	DC.B	$06,$00,$00,$00	;user bytes
	DC.B	8	;1 response buffer
	DC.L	wrtrqbds8	;bds for input
	DC.B	atpxobit	;flag
	DC.B	cmdintvl	;retry timeout
	DC.B	$ff	;infinite retry count
	DC.B	$ff	;bitmap for request
	DC.B	$00
	DC.B	$00,$00,$00,$00,$00,$00	;reserved fields
	DC.W	sessionrec8	;point back to sessionrec we belong to

		EXPORT	wrtrqbds8
wrtrqbds8	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received
	DC.W	578	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received


		EXPORT	ticklereq8
ticklereq8	DC.B	$80,$12,$00,$00	;cnt, cmd, result
	DC.L	0	;io completion
	DC.B	$00	;our socket (listener socket)
	DC.B	$00,$00	;their network
	DC.B	$00	;their node
	DC.B	$00	;their skt
	DC.B	$00,$00	;their tid
	DC.W	0	;buffer to send size
	DC.L	0	;send this data
	DC.B	$05,$00,$00,$00	;user bytes
	DC.B	01	;1 response buffer
	DC.L	tklrqbds8	;bds for input
	DC.B	0	;flag
	DC.B	30*4	;every 30 seconds
	DC.B	$ff	;retry forever
	DC.B	$01	;bitmap for request
	DC.B	$00
	DC.B	$00,$00,$00,$00,$00,$00	;reserved fields
	DC.W	sessionrec8	;point back to sessionrec we belong to

		EXPORT	tklrqbds8
tklrqbds8	DC.W	0	;max buf size
	DC.L	0	;data goes here   
	DC.B	$00,$00,$00,$00	;user bytes returned here
	DC.B	$00,$00	;and actual length received


		EXPORT	writereply8
writereply8	DC.B	$80,$17,$00,$00	;cnt, async cmd, result
	DC.L	0	;io completion
	DC.B	$00	;source socket
	DC.B	$00,$00	;destination net
	DC.B	$00,$00	;dest node & skt
	DC.B	$00,$00	;tid
	DC.B	$08,$08	;number of buffers and max bufs
	DC.L	wtrplybds8	;bds for response
	DC.B	atpxobit	;flag
	DC.B	$ff	;responding bitmap
	DC.B	$00,$00,$00,$00	;add routine and flag
	DC.B	$00
	DC.W	sessionrec8	;point back to sessionrec we belong to

		EXPORT	wtrplybds8
wtrplybds8	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field
	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field
	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field
	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field
	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field
	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field
	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field
	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field


		EXPORT	closereply8
closereply8	DC.B	$80,$17,$00,$00	;cnt, async cmd, result
	DC.L	0	;io completion
	DC.B	$00	;source socket
	DC.B	$00,$00	;destination net
	DC.B	$00,$00	;dest node & skt
	DC.B	$00,$00	;tid
	DC.B	$01,$01	;number of buffers and max bufs
	DC.L	clsrplybds8	;bds for response
	DC.B	atpxobit	;flag
	DC.B	$01	;responding bitmap
	DC.B	$00,$00,$00,$00	;add routine and flag
	DC.B	$00
	DC.W	sessionrec8	;point back to sessionrec we belong to

		EXPORT	clsrplybds8
clsrplybds8	DC.W	0	;number of bytes to	send
	DC.L	0	;buffer to write from
	DC.B	$00,$00,$00,$00	;user bytes
	DC.B	$00,$00	;actual length field



		ENDP


\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/ATRam/ATPatch/ASP/SP_write.aii b/IIGS.601.SRC/GS.OS/Drivers/ATRam/ATPatch/ASP/SP_write.aii
new file mode 100644
index 0000000..44b91c2
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/ATRam/ATPatch/ASP/SP_write.aii
@@ -0,0 +1 @@
+;-----------------------------------------------

*
* sp_write
*
*   by
*   Greg Seitz
*   9-jun-87
*
* this is the write	module for asp.  It	sends asp writes.
*
* 16-May-91  MSD	SPWrite now returns BufferError ($0705) instead of
*	SizeError ($0704) when the user's reply buffer isn't
*	big enough to hold the actual reply.
*


	EXPORT cspwrite
cspwrite	PROC


	longa on
	longi on

	jsr sp_setup	;set everything up
	ldy #spwrt_sref
	lda [<cmdlist],y	;get session number
	and #$00ff	;strip high byte junk
	jsr sessionmatch	;see if session number is valid
	bcc goodsession	;the session is good
	lda #spbadrefnum	;bad reference number
	brl accumexit	;leave with error
goodsession		; 
	sta <R1	;save session rec ptr in r1
	ldy #srec_wcmdlist
	lda (<R1),y	;see if command in progress
	iny
	iny
	ora (<R1),y	;make sure both zero
	beq goodsession1	;session still good
	lda #sptoomany	;too many command calls
	brl accumexit
goodsession1		;
	ldy #spwrt_wrtlen	;check length of data they want to write
	lda [cmdlist],y
	cmp #quantumsize+1	;see if beyond legal range
	bcs wrtsizeerr	;yes, so exit with error
	ldy #spwrt_writtenlen
	lda #0000
	sta [cmdlist],y	;in case we don't get to write any
	ldy #srec_wreq
	lda (<R1),y	;get wrequest list
	sta <R0
	tax
	lda <R1	;get session rec
	jsr setrequestbuf	;set up request buffer data & seq num
	bcc lenok	;length was good
wrtsizeerr		;
	lda #spsizeerr
	brl accumexit	;exit with error
lenok		; 
	ldy #srec_wcmdlist
	lda <cmdlist
	sta (<R1),y	;save users write command list
	iny
	iny
	lda <cmdlist+2
	sta (<R1),y
	ldy #spwrt_rbuflen	;offset to len field in cmdlist
	ldx <R0	;wrtrequest parmlist ptr
	jsr setreplybuf	;set up reply bds
	lda #spbusy
	ldy #spopen_result	;offset to result
	sta [cmdlist],y	;and show that we are busy
	ldx <R0	;call atalk with request
	ldy #^spbank
	jsl >RamDispatch	;make the call
	jml >RamPermit	;back down ints and	exit

	EXPORT writecomp
writecomp		;       
	pei <R0
	pei <R1
	lda <cmdlist
	sta <R0	;points to parmlist
	ldy #rqtableoffset
	lda (<R0),y	;get sessionrec ptr
	sta <R1	;and save it
	ldy #srec_wcmdlist
	lda (<R1),y	;get users cmdlist
	sta <cmdlist
	lda #0000
	sta (<R1),y	;clear out entry in	srec
	iny
	iny
	lda (<R1),y	;get high word
	sta <cmdlist+2
	lda #0000
	sta (<R1),y	;clear out high word to release cmd

	ldy #srec_wreply
	lda (<R1),y	;get reply parm
	clc
	adc #8	;move from rsp skt field
	ldx #relparm+4	;move data to here
	ldy #7	;move 7 bytes
	jsr movemem	;move it
	ldx #relparm
	ldy #^relparm	;free up any rspcb that might be there
	jsl >RamDispatch

	ldy #atprq_result	;get offset to result
	lda (<R0),y	;get result of atprequest
	cmp #reqabort	;request was aborted by close
	bne notfail	;nope
	lda #spclosed	;connection has closed
	brl cmderrexit	;exit with this error
notfail		; 
	cmp #spnoerr	;see if no error occurred
	beq goodcmd	;it was good
	ldy #rqtableoffset
	lda (<R0),y	;get sessionrec ptr
	sta <R1	;and save it
	ldy #srec_seqnum	;get sequence number field
	lda (<R1),y	;get sequence number
	dec a	;put it back the way it was
	sta (<R1),y	;save it 
	lda #spneterr	;unexpected error
	brl cmderrexit
goodcmd		; 
	ldx <R1	;point to srec
	jsr resettime	;reset timeout
	ldx <R0	;pointer to atprequest
	ldy #spwrt_cmdresult ;offset to cmdresult field
	jsr setcmdresult	;set the cmdresult for user
	ldx <R0	;pointer to atprequest
	jsr findbdslen	;calculate len of bds
	ldy #spwrt_replylen
	sta [<cmdlist],y	;set len for user
	lda #spbuffererr	;assume buffer error
	bcs cmderrexit	;exit with err in a
	lda #spnoerr	;no error
cmderrexit		; 
	tax
	pla
	sta <R1
	pla
	sta <R0
	txa
	brl exitcomp	;set error and exit
;set error and exit
	ENDP

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/ATRam/ATPatch/ATPatch.aii b/IIGS.601.SRC/GS.OS/Drivers/ATRam/ATPatch/ATPatch.aii
new file mode 100644
index 0000000..9b8c61e
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/ATRam/ATPatch/ATPatch.aii
@@ -0,0 +1 @@
+*******************************************************************************
*
* File: ATPATCH
*
* This file contains the 65816 implementation of EP for the Apple IIGS.
*
* ATPATCH was originally responsible for loading ATINIT under prodos 16.
* It also contained all the patches for the ROM code.
*
* Copyright Apple Computer, 1986
* Original Author: Greg Seitz
*                  11-Jun-87
*                  ver 1.3
*
*******************************************************************************
*
* Modification History
*
* 6/15/87    par        - lap bug fixes
*
* 6/15/87    gws        - scheduler fixes
*
* 6/15/87    gws        - echo protocol
*
* 6/15/87    gws        - atp bug...need to     make sure we preserve savey between calls
*         to atalk. (6/15/87 gws)
*
*
* 7/13/87    gws        - Added vector at location $e1103e for dispatches of prodos calls
*         to be handled by pfi.  This allows this module to remain seperate
*         from pfi.
* 
* 8/26/87    gws        - Replaced DDPWrite     routine in firmware     with ram based routine.
*         this was needed to fix a ddp bug where it did not let you     send
*         a maximum sized packet.
*
* 9/1/87     gws        - Removed stuff that deals with atinit file and put it in another file
*         that can get executed last...This file needs to be executed first 
*         since it contains     patches.
*
* 8/18/88    TGH        - Started working on changes for the RevD ROM (ROM03)
*       - Took out check to see if AppleTalk is on.
*
* 5/25/89    TGH        - Added patch for ROM03 init.
*
*  1-Mar-90  MSD        - Added patch to intercept setting of the real time clock,
*         so that startcount can be adjusted.
*
* 22-Oct-90  MSD        - Fixed the above patch for the real time clock.  Interrupts
*         must be disabled the entire time or else an interrupt could
*         happen after the clock is changed, but before the global
*         "startcount" is updated, causing the system to think more
*         time has gone by.
*
* 13-Dec-90 MSD Added a "tail patch" to the GetInfo call to change the returned
*       version to 2.0 ($200D).  Also, leaving interrupts off while we
*       patch the RESET vector.
*
* 13-Dec-90 MSD Added the GetInfo2 call ($3B).
*
* 06-Feb-91 MSD Removed the version number patch and the GetInfo2 call
*       (13-Dec-90 changes) since System Disk 6.0 won't have these features.
*
* 24-Jun-91 MSD Put AppleTalk Phase II stuff back.
*
* 28-Jun-91 MSD Temporarily removed ROM 03 patch of Init call since it
*       interferes with getting the ATP1.ATROM file loaded and
*       initialized.  Changed version to $2002.
*******************************************************************************

		MACHINE	M65816
		PRINT	GEN

HardReset	equ	$ff1c06		;If we move in ROM,     this will change.
atalkcardon	equ	$e102e7		;Magic location that is zero if we are on
					;this isn't true anymore  **TGH

; Below are some equates for the new init patch for ROM03

ATInitVector	equ	$E1D604		;Address for init vector call
ATGetInfoVect	equ	$E1D608		;Address for GetInfo call
ATGetInfo2Vec	equ	$E1D6EC		;Address for GetInfo2 call ($3B)
GetInfoVersion	equ	$2002		; version 2.00 d1
jresetcode	equ	$FDF064		;Vector for control-reset
startcount	equ	$E1DE6A		;Address of 1/4 second time
ContInit	equ	$FDF051		;Vector into ROM03 init code
ToWriteTime	equ	$E10088		;vector to set real time clock
CLKWDATA	equ	$E103E5		;time in seconds during WriteTime


		IMPORT	papinstall
		IMPORT	rpmSinstall
		IMPORT	zipinstall
		IMPORT	spinstall

		ENTRY	echoinstall
		ENTRY	patches

		INCLUDE	':ASP:global.equates.inc'
;       INCLUDE ':ASP:atp.equates.inc'

ATPATCHInit	PROC	EXPORT

		rep	#$30		;full native
		longa	on
		longi	on

		phb			;save data bank
		phk			;set data bank to code
		plb

		stx	RomVers
		sty	AtalkSlot

		lda	>$86		;save some zero page
		pha
		lda	>$84
		pha

		sep	#mbit+xbit	;go to 8 bit mode
		longa	off
		longi	off

		lda	statereg	;get previous state
		pha			;and save it
		lda	lcbank2		;switch in correct bank
		lda	lcbank2

*
* We don't check to see if AppleTalk is on because the AppleTalk supervisory
* driver wouldn't have loaded us if it wasn't.
*
*       lda >atalkcardon        ;see if appletalk card active
*       bne exitinstall ;not active so don't install stuff
*

*
* Call HardReset to     initialize ATalk variables (we're essentially rebooting).
*
*       jsl     HardReset       ;REMEMBER to change this if ROM changes.
*
* NOTE: if we put the code that was in rom back into rom we should make the
* above call.  Currently however, we do not need it since an equivalent call
* is made when the a2gsrom file is loaded.
*
* We don't have to call the above HardReset with the new ROMs because this
* file can never be loaded if the ROMs were not reset first.
*

		rep	#mbit+xbit	;ok they want code installed
		longa	on
		longi	on

		lda	#0000
		sta	>pfivec
		sta	>pfivec+2	;pfi not installed yet

		jsr	PatchInit	;Patch init code for 03 ROMs

		ldx	#initparms	;do init before any     patches
		ldy	#^initparms
		jsl	>RamDispatch

		ldx	RomVers
		ldy	AtalkSlot
		jsr	patches		;install patches first

		ldx	RomVers
		ldy	AtalkSlot
		jsl	zipinstall	;install zip protocol

		ldx	RomVers
		ldy	AtalkSlot
		jsl	papinstall	;install pap code

		ldx	RomVers
		ldy	AtalkSlot
		jsl	rpmSinstall	;and rpm code

		ldx	RomVers
		ldy	AtalkSlot
		jsl	echoinstall	;install echo protocol

		ldx	RomVers
		ldy	AtalkSlot
		jsl	spinstall	;install asp protocol

exitinstall	sep	#mbit+xbit
		longa	off
		longi	off

		pla			;recover state reg
		sta	statereg

		rep	#mbit+xbit
		longa	on
		longi	on

		pla			;restore zero page
		sta	>$84
		pla
		sta	>$86

		plb			;recover data bank

		rtl			;and exit.

PatchInit
		rts			; %%% Temporarily bypass

		lda	RomVers		;Are we running on 03 ROMs?
		cmp	#$0003
		bne	@PatchDone

		lda	#NewInit
		sta	>ATInitVector
		lda	#^NewInit
		sta	>ATInitVector+2

@PatchDone	rts

NewInit
* assume our reset is always first installed, so it can be
* in rom, since it need not know who it should call
		lda	>jresetcode	;$5c+(resetcode<<8)       ;put jml to resetcode
		sta	softreset	;routine into the vector
		lda	>jresetcode+2
		sta	softreset+2

; Below is the code we're trying to patch out
;
;       php
;       sei     ;don't want to be interrupted in here
;       pea $0000       ;push space for result of readtime
;       pea $0000       ;push space for result of readtime
;       pea $0000       ;push space for result of readtime
;       pea $0000       ;push space for result of readtime
;       ldx #$0d03      ;call readtimehex
;       jsl >$e10000
;       pla     ;get seconds and minutes
;       plx
;       plx
;       plx     ;discard other stuff
;       and #$00ff      ;just want number of seconds
;       sta startcount  ;initialize for 1/4     sec irq routine
;       plp     ;restore state

; Below is the code we're patching it with

		php			;This routine is cheaper
		sei

		sep	#$30		;in cycles than the above routine.
		jsl	>$E1008C	; 3/6/89  *** TGH

		longa	on
		longi	on
		rep	#mbit+xbit

		lda	>$E103E1
		and	#$00FF
;       sta startcount
;       plp     ;Restore interupts
		pha

		ldx	#$F2D9		;iparmstart     ;init parms start
		ldy	#$DE3D		;rparmstart     ;ram parm start
		lda	#$000C		;(iend-iparmstart)-1 ;length of initialized data
		mvn	$FD0000,$E10000	;main,databank  ;from rom to ram


		sep	#mbit+xbit
		longa	off
		longi	off		;8 bit x,a

		lda	#00		;clear them bytes
		ldy	#$24		;savecnt        ;number of bytes to     clear
clre1lp					; 
		sta	$DE49,y		;initsec-1,y    ;clear bytes in $e1
		dey
		bne	clre1lp

		longa	on
		longi	on
		rep	#mbit+xbit+cbit

		pla
		sta	startcount
		plp			;Restore interupts

		jmp	>ContInit	;FDF051


initparms	DC.B	$00,$01,$00,$00	;open the drivers
		DC.B	$C0
ProEntPt	DC.B	$00,$00,$00,$00	;past junk
		DC.B	$00		;pick a node, any node
		DC.B	$00,$00

RomVers		dc.w	0		;ROM version
AtalkSlot	dc.w	0		;AppleTalk slot number

		ENDP


; Below we used to install any patches for the ROM, but now we just put
; ourselves in the reset chain so we can re-install the EP after reset.
;
;  1-Mar-90 (MSD):      Added patch to intercept ToWriteTime on all ROMs.
; 13-Dec-90 (MSD):      Added patch to GetInfo so it returns version 2.0.
;       Also install command handler for GetInfo2 ($3B).

patches		PROC
		import	GetInfo2

		sep	#mbit+xbit
		longa	off
		longi	off

		lda	>statereg	; save language card state
		pha
		lda	>lcbank2	; force bank 2 to patch AppleTalk vars
		lda	>lcbank2	; make it writable

		rep	#mbit+Xbit
		longa	on
		longi	on

		php
		sei			;no interrupts while I mess with vectors!
		lda	>ToWriteTime	;save original vector
		sta	jToWriteTime
		lda	>ToWriteTime+2
		sta	jToWriteTime+2
		lda	jMyWriteTime	;put my vector in
		sta	>ToWriteTime
		lda	jMyWriteTime+2
		sta	>ToWriteTime+2

		lda	softreset	;get the current reset vector
		sta	proldreset	;and store internally
		lda	softreset+2
		sta	proldreset+2	;now we have the old vector
		lda	jpatchesreset	;store a jml ourreset
		sta	softreset	;into vector
		lda	jpatchesreset+2
		sta	softreset+2
		plp			;restore interrupts

		lda	ATGetInfoVect	; get original routine's address, low word
		sta	NewGetInfo+1	; patch into JSL
		lda	ATGetInfoVect+1	; middle word
		sta	NewGetInfo+2	; patch rest of JSL

		lda	#<NewGetInfo	; low word
		sta	ATGetInfoVect
		lda	#>NewGetInfo	; middle word
		sta	ATGetInfoVect+1

		lda	#<GetInfo2	; low word of address
		sta	ATGetInfo2Vec
		lda	#^GetInfo2	; high word of address and zero bytes to save
		sta	ATGetInfo2Vec+2

		sep	#mbit+xbit
		longa	off
		longi	off

		pla
		sta	>statereg	; restore language card state

		rep	#mbit+xbit
		longa	on
		longi	on

		rts

jpatchesreset	jml	patchesreset

patchesreset				; ;should come here     during reset
		php			;save mode bits
		phb			;and databank
		jsl	proldreset	;let lower protocol     get called first
		phk			;set up data bank
		plb
		jsl	echoinstall	;re-install echo code
		plb			;restore bank
		plp			;and mode bits
		rtl			;and return to our caller

proldreset				; ;this code gets old reset vector
		jml	$000000		;dummy code


;
; 13-Dec-90 MSD: This is the "tail patch" to the GetInfo call that changes
; the version number it returns after it has been handled by the normal
; GetInfo code.
;
NewGetInfo
		jsl	$000000		; do original routine first
		ldy	#$C		; offset to version number in PB
		lda	#GetInfoVersion	; get the new version
		sta	[cmdlist],y	; update version
		rtl			; return to dispatcher

;
; This is the ToWriteTime patch.  First, it calls the original vector.
; Then it takes the low byte of the seconds at CLKWDATA and saves it
; in startcount so that the 1/4 second handler knows the real time has
; changed (and won't fire off all the timers).
;
jToWriteTime	jml	$000000		; original ToWriteTime goes here
jMyWriteTime	jml	MyWriteTime

MyWriteTime
		longa	off		; entered in 8-bit native mode
		longi	off

		php			; save interrupt state
		sei			; disable interrupts
		jsl	jToWriteTime	; call original WriteTime routine
		bcs	WriteTimeErr	; skip it if time couldn't be written
		lda	>CLKWDATA	; get low byte of seconds
		sta	>startcount	; update AppleTalk's last known real time
		plp			; restore interrupts
		clc			; no error
		rtl			; return to caller (carry clear)
WriteTimeErr
		plp			; restore interrupts
		sec			; error
		rtl			; return to caller (carry unchanged)

		longa	on
		longi	on

		ENDP



;-------------------------------------------------------------------------------
; GetInfo2
;
; Returns information about extended networks.
;-------------------------------------------------------------------------------

GetInfo2	proc	export
		import	CheckAsync
		
thisNet		equ	$E1D010		; this network number in globals
ourNode		equ	$E11095		; source node number in globals
aBridge		equ	$E1D013		; a bridge number in globals
ourLink		equ	1		; 1=LocalTalk
badVersion	equ	$0108		; unsupported version requested
bufTooSmall	equ	$0107		; buffer was too small to return requested data


pb		record	0
async		ds.b	1		; must be $00
command		ds.b	1		; = $3B
result		ds.w	1
reqVersion	ds.w	1		; only version 1 defined (input)
flags		ds.l	1		; currently unused
netLow		ds.w	1		; network range low (68000 order)
netHigh		ds.w	1		; network range high (68000 order)
ourAddr		ds.l	1		; this node's internet address
aRouter		ds.l	1		; internet address of some router
linkType	ds.w	1		; 1=LocalTalk, 2=Ethernet
linkLength	ds.w	1		; length of buffer to return physical address
linkBuffer	ds.l	1		; address of buffer to return physical address
linkActLen	ds.w	1		; actual length of link address
		endr

dp		record	$80
cmdlist		ds.l	1		; pointer to our parameter block
goCompAddr				; normally for jumping to completion routines
link		ds.l	1		; but we'll use it to point to link buffer
		endr


		jsr	CheckAsync
		
		jsl	RamForbid	; don't interrupt us

;
; Make sure requested version 1 of info
;
		ldy	#pb.reqVersion
		lda	[cmdlist],y	; get requested version
		cmp	#1		; only version 1 defined
		beq	vers1		; continue
		lda	#badVersion	; asked for unsupported version
		bra	exit		; return the error
vers1

;
; Return a long of all zeros in flags
;
		lda	#0		; no flags defined yet
		iny
		iny			; Y = pb.flags
		sta	[cmdlist],y	; zero low word of flags
		iny
		iny
		sta	[cmdlist],y	; zero high word of flags

;
; return thisNet as both ends of our network number range, network
; of ourAddr, network of aRouter.
;
		lda	thisnet		; get our network number
		iny
		iny			; Y = pb.netLow
		sta	[cmdlist],y	; save as netLow
		iny
		iny			; Y = pb.netHigh
		sta	[cmdlist],y	; save as netHigh

		iny
		iny			; Y = pb.ourAddr
		sta	[cmdlist],y	; save as our node's network number

;
; return address of a router
;
		ldy	#pb.aRouter
		sta	[cmdlist],y	; save as network number of router
		iny
		iny			; Y points to node number in aRouter
		lda	aBridge		; get router's node number
		and	#$00FF		; low byte only
		sta	[cmdlist],y	; fill in node of aRouter

;
; return our address
;
		ldy	#pb.ourAddr+2	; point to our node number
		lda	ourNode
		and	#$00FF		; low byte only
		sta	[cmdlist],y	; return it

;
; return our link type
;
		ldy	#pb.linkType
		lda	#ourLink	; get our type of link
		sta	[cmdlist],y	; return it

;
; return the length of our link address
;
		ldy	#pb.linkActLen
		lda	#1		; our link address is only 1 byte
		sta	[cmdlist],y	; return it

;
; see if they want the link address (our node number) returned
;
		ldy	#pb.linkBuffer
		lda	[cmdlist],y	; get low byte of link buffer pointer
		sta	dp.link		; save on zero page
		iny
		iny
		lda	[cmdlist],y	; get high byte
		sta	dp.link+2	; save high on zero page
		ora	dp.link		; was pointer zero (no link address wanted)?
		beq	exit		; zero, so complete with no error

		ldy	#pb.linkLength
		lda	[cmdlist],y	; get size of their buffer
		bne	OKBufSize	; anything non zero is big enough
		lda	#bufTooSmall	; buffer not big enough
		bra	exit		; return the error
OKBufSize
		sep	#$20		; short A to move a byte
		longa	off
		lda	ourNode		; our link address is our node number
		sta	[dp.link]	; put in first byte of buffer
		rep	#$20		; back to full native
		longa	on

		lda	#0		; call is done, no error

exit					; Here, error code is in A!
		ldy	#pb.result
		sta	[cmdlist],y	; return result code

		jml	RamPermit	; allow interrupts again and return

		endp


;-------------------------------------------------------------------------------
;
;       Echo protocol code
;
;-------------------------------------------------------------------------------

echoinstall	PROC

		ldx	#eopenskt	;open echo socket
		ldy	#^eopenskt
		jsl	>RamDispatch
		rtl

echolisten				;
		pei	<cmdlist+2	;save byte we destroy
		lda	#$00e1		;set high byte of globals
		sta	<cmdlist+2	;since cmdlist has address already there
		ldy	#$0009		;offset to their net num
		lda	[<cmdlist],y	;get it
		sta	eddpsend+5	;put in ddp send parms
		sep	#mbit
		ldy	#$000c		;offset to their node
		lda	[<cmdlist],y	;get it
		sta	eddpsend+7
		ldy	#$000e		;offset to their socket
		lda	[<cmdlist],y
		sta	eddpsend+8
		ldy	#$000f		;offset to ddptype
		lda	[<cmdlist],y
		sta	theddptype	;save it for later
		rep	#mbit
		ldx	#edordbuf
		ldy	#^edordbuf
		jsl	>RamDispatch	;read all the data
		lda	edordbuf+$0b	;get amount read
		beq	noecho		;nothing to echo
		sta	esendbds+6	;set len to send
		sep	#mbit
		longa	off
		lda	theddptype
		cmp	#$04		;see if echo type
		bne	noecho
		lda	ebuf		;see if echo request
		cmp	#01
		bne	noecho
		inc	a		;set as echo reply
		sta	ebuf
		rep	#mbit
		longa	on
		ldx	#eddpsend
		ldy	#^eddpsend
		jsl	>RamDispatch	;send the response
noecho					; 
		rep	#mbit
		pla
		sta	<cmdlist+2	;restore zero page
		rtl


theddptype	DS.B	1

eopenskt	DC.B	$00,$0b,$00,$00	;ddp open skt
		DC.B	4		;echo skt
		DC.L	echolisten	;echo socket listener

eddpsend	DC.B	$00,$0d,$00,$00	;ddp send datagram
		DC.B	0		;checksum flag
		DC.W	0		;dest net
		DC.B	0		;dest node
		DC.B	0		;dest skt
		DC.B	4		;source skt (echo)
		DC.B	4		;ddp type (echo)
		DC.L	esendbds	;echo send bds

esendbds	DS.B	6		;reserved bytes
		DC.W	0		;buffer length
		DC.L	ebuf		;pointer to buffer to echo
		DC.W	$ffff		;end of table

edordbuf	DC.B	$00,$08,$00,$00	;read buf call
		DC.W	600		;maximum we can read
		DC.L	ebuf		;the echo read buffer
		DC.B	1		;purge data after reading
		DC.W	0		;actual length of data read

ebuf		DS.B	600		;maximum we can read


		ENDP

;-------------------------------------------------------------------------------
;
; CheckAsync -- Makes sure the async flag is zero (i.e. synchronous).  If not,
; it sets the result code to AsyncErr, pops the return address, and does an
; RTL to the dispatcher.
;
;-------------------------------------------------------------------------------

CheckAsync	proc	export

		lda	[cmdlist]	; get async flag
		and	#$00FF		; only a byte
		beq	sync		; sync is OK

		pla			; pop return address
		ldy	#2		; result code offset
		lda	#AsyncErr
		sta	[cmdlist],y	; update result
		rtl			; return to dispatcher
sync
		rts			; return to caller

		endp

		END

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/ATRam/ATPatch/PAP/PAP.aii b/IIGS.601.SRC/GS.OS/Drivers/ATRam/ATPatch/PAP/PAP.aii
new file mode 100644
index 0000000..8f11585
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/ATRam/ATPatch/PAP/PAP.aii
@@ -0,0 +1 @@
+*******************************************************************************
*
* File: ATPATCH
*
* This file contains the 65816 implementation of PAP for the Apple IIGS.
*
* ATPATCH was originally responsible for loading ATINIT under prodos 16.
* It also contained all the patches for the ROM code.
*
* Copyright Apple Computer, 1986
* Original Author: Greg Seitz
*                  6-May-86
*                  ver 1.1
*                  ver 1.2
*
*******************************************************************************
*
* Modification History
*
*
* v1.2
*
* 4/15/87    gws	- changed papinuse error code from $0801 to $080b had
*	  read and write return papinuse instead of busy when
*	  they had calls in progress.
*	- changed open to return paptoomany error instead of
*	  papinuse when another open was attempted beyond the
*	  first one.
*
* v1.3
*
* 8/18/88    TGH	- Started working on changes for the RevD ROM
*
* 5/25/89    TGH	- Took statcmdlist out of zerodata because anything that
*	  called papinit would wipe out any pending PAPStatus.
*	  I now init statcmdlist by hand in the INIT and RESET
*	  routines
*
* 27-Sep-91 MSD	PAPOpen now checks the incoming flow quantum.  If it is
*	not 1, you get a quantum error.
*
*  7-Oct-91 MSD	PAPOpen now returns error $0808 (printer not responding)
*	if there is no response to the open connection request.
*	If the printer responds, but says it is busy, it will continue
*	to retry and increment WaitTime as before.
*
*  8-Oct-91 MSD	The 7-Oct-91 fix didn't work because it was storing the result
*	in the ATP send request parameter block, not the open pb because
*	the pointer at cmdlist wasn't set up properly.
*
* 14-Nov-91 MSD	If the object, type, or zone is 33 characters or longer
*	for PAPOpen and PAPStatus, return error $0807 (network error)
*	instead of doing the lookup and returning $0805 (name not
*	found).
*
*******************************************************************************

	MACHINE M65816
	PRINT GEN

	ENTRY canrd
	ENTRY closebds
	ENTRY closecmdlist
	ENTRY closereq
	ENTRY closersp
	ENTRY closeskt
	ENTRY clsbds
	ENTRY clsreq
	ENTRY connid
	ENTRY conntimer
	ENTRY cpapclose
	ENTRY cpapopen
	ENTRY cpapread
	ENTRY cpapstatus
	ENTRY cpapunload
	ENTRY cpapwrite
	ENTRY dowrite
	ENTRY inseq
	ENTRY lkcomp
	ENTRY lkcurr
	ENTRY lknext
	ENTRY lookbuf
	ENTRY nextseq
	ENTRY odata
	ENTRY opencmdlist
	ENTRY openflag
	ENTRY opentimer
	ENTRY oplkparms
	ENTRY opsktparms
	ENTRY orqbds
	ENTRY orqparms
	ENTRY pgrq
	ENTRY rdbds
	ENTRY rdrq
	ENTRY readcmdlist
	ENTRY rspskt
	ENTRY srqbds
	ENTRY srqparms
	ENTRY startticks
	ENTRY statcmdlist
	ENTRY statcomp
	ENTRY stlkcomp
	ENTRY stlkparms
	ENTRY tkbds
	ENTRY tkrq
	ENTRY unloadcmd
	ENTRY upapclose
	ENTRY wdata
	ENTRY writecmdlist
	ENTRY wtbds
	ENTRY wtpkt
	ENTRY wtrel
	ENTRY wtrsp
	ENTRY zerodata
	ENTRY zeroend
	entry converterrtopap,closing
	entry ValidateName

	INCLUDE '::ASP:atp.equates.inc'
	INCLUDE '::ASP:global.equates.inc'

papzplen	equ $08	;save this much zero page

papnoerr	equ $0000
paptoomany	equ $0801
papnotopen	equ $0802
papsessinvalid	equ $0802
papquantumerr	equ $0803
papnoprinter	equ $0805
papconnclosed	equ $0806
papneterr	equ $0807
papnoserver	equ $0808
papsizeerr	equ $080a
papinuse	equ $080b
papbusy	equ $08ff


qtrinstall	equ $480
qtrremove	equ $500
senddata	equ 03
closeconn	equ 06
openwait	equ 08
maxconn	equ 120*4	;two minutes


pstat_async	equ $00
pstat_command	equ $01
pstat_result	equ $02
pstat_iocomp	equ $04
pstat_prname	equ $08
pstat_statbuf	equ $0c


popen_async	equ $00
popen_command	equ $01
popen_result	equ $02
popen_iocomp	equ $04
popen_refnum	equ $08
popen_prname	equ $09
popen_flowq	equ $0d
popen_statbuf	equ $0e


pclose_async	equ $00
pclose_command	equ $01
pclose_result	equ $02
pclose_iocomp	equ $04
pclose_refnum	equ $08


pread_async	equ $00
pread_command	equ $01
pread_result	equ $02
pread_iocomp	equ $04
pread_refnum	equ $08
pread_buflen	equ $09
pread_bufptr	equ $0b
pread_eofflag	equ $0f


pwrite_async	equ $00
pwrite_command	equ $01
pwrite_result	equ $02
pwrite_iocomp	equ $04
pwrite_refnum	equ $08
pwrite_blen	equ $09
pwrite_bptr	equ $0b
pwrite_eofflag	equ $0f


*
* pap.core
*
* these are the routines that get things going.
* they install pap into the command lists and
* do any initialization neccesarry
*

papinstall	PROC EXPORT

	clc	;force native
	xce

	rep #mbit+xbit
	longa on
	longi on

	phb
	phk	;data is in same bank as code
	plb

	lda softreset	;get the current reset vector
	sta oldreset	;and store internally
	lda softreset+2
	sta oldreset+2	;now we have the old vector
	lda callreset	;store a jml ourreset
	sta softreset	;into vector
	lda callreset+2
	sta softreset+2

	stz lkcurr
	stz lknext
	stz lkcomp	;these only need to	be cleared at init
	stz statcmdlist	;We now have to manually zero this out
	stz statcmdlist+2	;because we took it out of papinit **TGH
	jsr papinit	;zero out stuff

	ldx #ourcmds	;get our command table
	ldy #$d600+($22*4)	;table starts at $d600
	lda #endcmds-ourcmds-1 ;move this many bytes
	mvn ourcmds,$e10000	;to bank $e1

	plb	;restore data bank register
	rtl	;and exit.

callreset	jml ourreset	;this code is moved	to vector

	ENTRY papinit	; EXPORT -> ENTRY  **TGH
papinit		;       
	lda #ourreset	;so we can install our own
	stz zerodata	;start with a zero
	ldx #zerodata	;move from here
	ldy #zerodata+1	;move to here (carrys zeros forward)
	lda #zeroend-zerodata-2 ;number of bytes to clear out
	mvn zerodata,zerodata
	rts

ourcmds	DC.A cpapstatus	;$22
	DC.B papzplen
	DC.A cpapopen	;$23
	DC.B papzplen
	DC.A cpapclose	;$24
	DC.B papzplen
	DC.A cpapread	;$25
	DC.B papzplen
	DC.A cpapwrite	;$26
	DC.B papzplen
	DC.A cpapunload	;$27
	DC.B papzplen
endcmds		; 


ourreset		;should come here during reset
	php	;save mode bits
	phb	;and databank
	jsl oldreset	;let lower protocol	get called first
	phk	;set up data bank
	plb
	stz lkcurr
	stz lknext
	stz lkcomp	;these only need to	be cleared at init
	stz statcmdlist	;We now have to manually zero this out
	stz statcmdlist+2	;because we took it out of papinit **TGH
	jsr papinit	;and re-init pap
	plb	;restore bank
	plp	;and mode bits
	rtl	;and return to our caller

oldreset	jml $000000	;stick old reset vector here

	ENDP

;-------------------------------------------------------------------------------
;
;	pap.status
;
;	Greg Seitz
;	6-May-86
;

cpapstatus	PROC

	jsr setup	;sets up stuff for entry (data bank)
	longa on
	longi on

	lda statcmdlist	;see if call already in progress
	ora statcmdlist+2
	beq callok	;call is valid
	lda #papinuse	;return a pap in use error
toaccumexit	jmp accumexit
callok
; BEGIN 14-Nov-91 MSD
	ldy #pstat_prname
	jsr ValidateName	; make sure name length is OK
	bcs toaccumexit	; not OK, so return error
; END 14-Nov-91 MSD
	lda cmdlist	;save command list locally
	sta statcmdlist
	lda cmdlist+2
	sta statcmdlist+2
	ldy #pstat_result
	lda #papbusy	;set result to busy
	sta [cmdlist],y	;before doing anything
	ldy #pstat_prname	;get offset to printer name pointer
	lda [cmdlist],y	;get low word
	tax	;and pass in x
	iny
	iny	;move to high word
	lda [cmdlist],y	;and get it
	stx stlkparms+8	;low word of name to find
	sta stlkparms+10	;and high word
	ldx #stlkparms
	ldy #^stlkparms
	jsr lookname	;look for this name
* after the call to	lookname, it is actually possible that the call
* has completed with an error, in which	case the completion	routine
* should have already been called.  So all we need to do is	to simply
* re allow interrupts and return to the	dispatcher
	jsl RamPermit	;allow ints to happen again
	rtl	;and return to dispatcher


	ENTRY stlkcomp	; EXPORT -> ENTRY  **TGH
stlkcomp		;       
	clc
	xce	;force native mode
	rep #mbit+xbit
	longa on
	longi on

	lda statcmdlist	;get status command	list
	sta cmdlist
	lda statcmdlist+2
	sta cmdlist+2

	lda stlkparms+23
	and #$00ff	;just check low byte
	bne nbpok	;the lookup worked
	lda #papnoprinter	;no printer found error
	brl clearstat	;exit with error
nbpok		; 
	ldy #pstat_statbuf	;get offset to status buffer
	lda [cmdlist],y	;get low word
	sta srqbds+bds_bufptr ;save it
	iny
	iny
	lda [cmdlist],y	;get high word
	sta srqbds+bds_bufptr+2 ;and save it

	sep #mbit	;make sure 8 bit a
	longa off

	lda #01	;set bitmap for request
	sta srqparms+atprq_bitmap

	ldy #0004	;move address from lookup
mvlp		; 
	lda lookbuf,y	;get from lookup list
	sta srqparms+atprq_dnet,y ;and put in send request
	dey
	bpl mvlp	;keep moving

	rep #mbit+xbit	;back to full native
	longa on
	longi on

	ldx #srqparms	;get low word of parm list
	ldy #^srqparms	;and high word
	jsl RamDispatch	;and call dispatcher

	rtl	;and exit lookup completion

	ENTRY statcomp	; EXPORT -> ENTRY  **TGH
statcomp		;       ;completion	for status request
	clc	;go to native mode
	xce
	rep #mbit+xbit
	longa on
	longi on
	lda statcmdlist	;get status command	list
	sta cmdlist
	lda statcmdlist+2
	sta cmdlist+2
	lda srqparms+atprq_result ;get result from call
	jsr converterrtopap	; convert the error code

clearstat		;       ;clean up and leave
	jsl RamForbid	;balance permit in accumexit
	stz statcmdlist
	stz statcmdlist+2	;indicate call is free again
	jsl accumexit	;call completion routine if any
	rtl	;and return

	ENTRY converterrtopap ; EXPORT -> ENTRY  **TGH
converterrtopap	cmp #0000	;see if no error
	beq ceexit	;and return with the zero
	cmp #requestfail
	bne @ce1	;nope
	lda #papnoserver
	bra ceexit	;and exit
@ce1	
	lda #papneterr	;default is to return network error
ceexit	rts	;and return with converted error in a

	ENTRY setup	; EXPORT -> ENTRY  **TGH
setup		;       ;sets things up for a call
	jsl RamForbid	;don't bother routines that call this
	rep #mbit+xbit
	longa on
	longi on
	phk	;push program bank
	plb	;and make it the data bank
	rts	;and return

	ENTRY asyncexit	; EXPORT -> ENTRY  **TGH
asyncexit		;       
	rep #mbit+xbit
	longa on
	longi on

	lda #papbusy	;get pap busy flag

	ENTRY accumexit	; EXPORT -> ENTRY  **TGH
accumexit		;       ;exit with what's in accum
	rep #mbit+xbit
	longa on
	longi on
	ldy #pstat_result	;get offset to result
	sta [cmdlist],y	;and save it
	jsl RamPermit	;back down ints

	sep #mbit+xbit
	longa off
	longi off

	ora #00	;see if done
	bpl chkiocmp	;yep
goback		; 
	rep #mbit+xbit
	rtl	;otherwise just exit

chkiocmp	sep #mbit+xbit
	longa off
	longi off

	lda [cmdlist]	;see what type of command
	bpl goback	;sync so exit
	ldy #pstat_result
	lda [cmdlist],y	;get result
	bmi goback	;still busy
	ldy #pstat_iocomp	;offset to completion

callcomp	rep #mbit+xbit
	longa on
	longi on

	lda [cmdlist],y	;get low word completion
	sta execaddr
	iny
	iny
	lda [cmdlist],y	;get high word completio`
	sta execaddr+2
	ora execaddr	;see if zero
	beq goback	;yep, so nothing to	call
	jmp RamGoComp	;call completion routine

*
* lookname
*
* this routine allows async lookups for	the very special
* case of papstatus	and papopen
* x contains address of lookup list (parm list must be in current data bank)
*
	ENTRY lookname	; EXPORT -> ENTRY  **TGH
lookname	lda lkcurr	;see if something in progress
	beq allclear	;nope so we can go
	stx lknext	;set up to wait till other done
	rts	;and return
allclear		; ;we have the go ahead
	stx lkcurr	;we are the current	process
	stz lknext	;make sure next is clear since no next
makelook		; 
	stx execaddr	;and set up zero page
	ldy #4	;get iocomp for this list
	lda (execaddr),y	;get low word of their address
	sta lkcomp	;save comp address for curr
	lda #lookcomp	;and put ours in its place
	sta (execaddr),y
	ldy #^stlkparms	;get high word of our bank (low in x)
	jsl RamDispatch	;and make the call
	rts	;and return


lookcomp		;comes here when above completes
	clc
	xce
	rep #mbit+xbit
	lda lknext	;move next into curr
	sta lkcurr
	stz lknext	;make sure no next
	lda lkcomp	;get back their comp pointer
	ldy #4
	sta [cmdlist],y	;and plug it back in
	ldx lkcurr	;save flag for next lookup on stack
	phx	;since can get changed by above
	jsl chkiocmp	;call completion routine
	plx	;recover lkcurr flag state before giving user control
	beq lkrtn	;no call was pending, so leave
	jsr makelook	;do the next lookup
lkrtn		; 
	rtl	;and return


	ENDP

;-------------------------------------------------------------------------------
;
;	pap.open
;
;	opens a connection with a printer
;

cpapopen	PROC

	jsr setup	;sets proper bank and does forbid
	longa on
	longi on

	lda openflag	;see if currently open
	beq callok	;nope, so it's valid to open
	lda #paptoomany	;can't have more than 1 session
toaccumexit	jmp accumexit
callok
; BEGIN 14-Nov-91 MSD
	ldy #popen_prname
	jsr ValidateName	; make sure name length is OK
	bcs toaccumexit	; not OK, so return error
; END 14-Nov-91 MSD
; BEGIN 27-Sep-91 MSD
	ldy #popen_flowq
	lda [cmdlist],y
	and #$00FF	; get one byte only
	cmp #1	; only deal with a quantum of 1
	beq @okflow
	lda #papquantumerr
	jmp accumexit
@okflow
; END 27-Sep-91 MSD
	jsr papinit	;zero everything out
	lda cmdlist	;save their command	list
	sta opencmdlist
	lda cmdlist+2
	sta opencmdlist+2
	ldy #popen_result	;indicate call busy
	lda #papbusy	;before doing anything
	sta [cmdlist],y
	stz closing	;we are obviously not closing now
	inc openflag	;set to 1 for first	stage open
	ldy #popen_refnum	;get offset to refnum field
	lda #1
	sep #mbit
	sta [cmdlist],y	;store it
	rep #mbit	;back to 16 bit a
	ldy #popen_prname	;get offset to printer name
	lda [cmdlist],y	;get low word
	tax	;and pass in x
	iny
	iny	;move to high word
	lda [cmdlist],y	;and get it
	stx oplkparms+8	;save name
	sta oplkparms+10	;and high word
	ldx #oplkparms
	jsr lookname	;do async lookup
	jsl RamPermit	;allow ints again
anrtl		; 
	rtl	;and return

	ENTRY oplkcomp	; EXPORT -> ENTRY  **TGH
oplkcomp		;comes here	when lookup done
	clc
	xce	;force native mode
	rep #mbit+xbit
	longa on
	longi on
	lda openflag	;see if open
	beq anrtl	;nope so leave
	lda opencmdlist	;get their command list
	sta cmdlist
	lda opencmdlist+2
	sta cmdlist+2
	lda oplkparms+23	;get number of responses
	and #$00ff	;check only low byte
	bne lookok	;lookup found something
	lda #papnoprinter	;otherwise return not found err
openerrexit		; 
	pha	;save error
	jsr papinit	;abort this open
	pla

	ENTRY exitcomp	; EXPORT -> ENTRY  **TGH
exitcomp		;       
	jsl RamForbid	;balance permit in accumexit
	jmp accumexit	;and return error code
lookok		; 
	stz opsktparms+opskt_result+1 ;clear socket field
	ldx #opsktparms	;open atp responding socket
	ldy #^opsktparms
	jsl RamDispatch	;make call
	lda opsktparms+2	;get result
	beq gotskt	;we got a socket
	jsr converterrtopap
	brl openerrexit	;return converted error
gotskt		; 
	ldy #popen_statbuf	;get their status buffer
	lda [cmdlist],y
	sta orqbds+bds_bufptr
	iny
	iny
	lda [cmdlist],y	;get high word
	sta orqbds+bds_bufptr+2

	sep #mbit+xbit	;8 bit a,x
	longa off
	longi off

	lda #01
	sta inseq	;next expected read	sequence num
	sta orqparms+atprq_bitmap ;set bitmap
	sta clsreq+atprq_bitmap
	sta odata+1	;save flow quantum (always 1 for us)
	lda opsktparms+opskt_skt ;get responding socket number
	sta rspskt	;save for internal use
	sta odata	;and put into packet
	sta pgrq+getrq_ourskt ;set up get request for future use
	sta closeskt+clsskt_skt ;set up for close later
	inc connid	;bump connection id
	lda connid	;and get it
	sta orqparms+atprq_user ;store in first	user byte
	sta rdrq+atprq_user	;set up for reads in future
	sta tkrq+atprq_user	;and tickles
	sta clsreq+atprq_user ;and closes
	sta wtbds+bds_user	;set up for writes
	ldy #04
mvlp		; 
	lda lookbuf,y
	sta orqparms+atprq_dnet,y ;put address info into send request
	sta rdrq+atprq_dnet,y ;set up for future read
	sta tkrq+atprq_dnet,y ;and tickles
	sta clsreq+atprq_dnet,y ;init for later	close
	dey
	bpl mvlp

	rep #mbit+xbit	;back to full native mode
	longa on
	longi on

	lda $e1da00	;get tick count from rom stuff
	sta startticks	;and save current value
	stz odata+2	;and clear wait field

	ldx #orqparms
	ldy #^orqparms	;make the call
	jsl RamDispatch
anrtl1		; 
	rtl	;and return from completion routine

	ENTRY opencomp	; EXPORT -> ENTRY  **TGH
opencomp		;comes here	when above call completes
	clc
	xce	;native mode
	rep #mbit+xbit
	longa on
	longi on
; BEGIN 8-Oct-91 MSD
	lda opencmdlist	;get their command list
	sta cmdlist
	lda opencmdlist+2
	sta cmdlist+2
; END 8-Oct-91 MSD
	lda orqparms+2	;get result from call
	beq @opencomp1	;no error so continue
	cmp #reqabort	;was request aborted
	beq anrtl1	;yes so must be closing
; BEGIN 7-Oct-91 MSD: No response, so return error
	lda #papnoserver
	brl openerrexit	; return the error
; END 7-Oct-91 MSD
@opencomp1		;comes here on no error
	lda orqbds+bds_bufptr
	sta execaddr	;use for zp
	lda orqbds+bds_bufptr+2
	sta execaddr+2
	ldy #2	;offset to result field
	lda [execaddr],y	;get result
	bne doqtrstuff	;not ready to open with us
	brl gotconn	;got a connection
doqtrstuff		; 
* check here for close, and abort if close happened
	lda #qtrinstall	;install timer command
	sta opentimer	;make sure we do install
	lda #openwait	;wait time before next try
	sta opentimer+insqtr_count
	ldx #opentimer	;and install it, it	will complete
	ldy #^opentimer	;by going to 'trynextopen'
	jsl RamDispatch	;make the install call
	rtl	;and return to caller

	ENTRY trynextopen	; EXPORT -> ENTRY  **TGH
trynextopen		;1/4 second timer expired
	clc
	xce
	rep #mbit+xbit
	longa on
	longi on
	lda opentimer+insqtr_ticks ;get current	tick count
	sec
	sbc startticks	;get difference
	lsr a	;divide by 2
	lsr a	;and 2 more makes for to give secs
	xba	;put in mac format
	sta odata+2	;update wait field
	sep #mbit
	longa off
	lda #01	;reset bitmap
	sta orqparms+atprq_bitmap
	rep #mbit+xbit
	longa on
	longi on
	ldx #orqparms	;and re-issue call
	ldy #^orqparms
	jsl RamDispatch
	rtl	;and return

GotConn		;we have been accepted by the device
	lda opencmdlist
	sta cmdlist
	lda opencmdlist+2	;get users parm list
	sta cmdlist+2
	lda orqbds+bds_bufptr ;get result buffer pointer
	sta execaddr
	lda orqbds+bds_bufptr+2
	sta execaddr+2
	lda [execaddr]	;get their listener	socket
	sep #mbit+xbit	;use 8 bit a
	longa off
	longi off
	sta rdrq+atprq_dskt	;store their socket	for read
	sta tkrq+atprq_dskt	;and tickle requests
	sta clsreq+atprq_dskt ;and close
* our implementation has a max quantum of 1 in both directions
	lda #01	;get max flow quantum
	ldy #popen_flowq
	sta [cmdlist],y
	sta tkrq+atprq_bitmap ;and set up tickle bitmap
	rep #mbit+xbit	;back to full native
	longa on
	longi on
	inc openflag	;open should be 2 for full open
	ldx #pgrq	;set up get request	mechanism
	ldy #^pgrq
	jsl RamDispatch
	ldx #tkrq	;now start tickle packets
	ldy #^tkrq
	jsl RamDispatch
	lda #qtrinstall	;install a connection timer
	sta conntimer
	lda #maxconn	;get maximum connection time
	sta conntimer+insqtr_count
	ldx #conntimer
	ldy #^conntimer
	jsl RamDispatch
	stz opencmdlist
	stz opencmdlist+2	;close is done
	lda #0000	;indicate no error for open
	jmp exitcomp


	ENTRY pgrqcomp	; EXPORT -> ENTRY  **TGH
pgrqcomp		;comes here when requests come in
	clc
	xce	;go to native mode
	sep #mbit+xbit
	longa off
	longi off
	lda pgrq+2	;get result
	bne exitgrq	;only error should be close
	ldy #getrq_user	;go to connid field
	lda [cmdlist],y	;and get it
	cmp connid	;see if matches
	bne nextgrq	;issue next get request
	rep #mbit+xbit	;they are talking to us
	longa on
	longi on
	lda #maxconn	;reset connection time out
	sta conntimer+insqtr_count
	sep #mbit+xbit
	longa off
	longi off
	ldy #getrq_user+1	;move to pap type field
	lda [cmdlist],y
	cmp #closeconn	;see if close
	beq closereq	;yes so close up
	cmp #senddata	;see if this is a request for data
	bne nextgrq	;issue next request
	rep #mbit+xbit
	longa on
	longi on
	ldy #getrq_user+2	;move to sequence number field
	lda [cmdlist],y	;it's in mac format
	beq goodseqnum	;it's the old format
	xba	;put in 6502 format
	cmp inseq	;check against expected seq num
	bne nextgrq	;not what we expected
goodseqnum		; 
	lda wtrsp+1	;get low byte of result in high a
	bpl normal	;no write pending
	sep #mbit+xbit
	longa off
	longi off
	ldy #06	;move address info
mvlprel		; 
	lda wtrsp+sdrsp_sskt,y
	sta wtrel+relcb_ourskt,y ;set up to release this response
	dey
	bpl mvlprel
	rep #mbit+xbit
	longa on
	longi on
	ldx #wtrel	;release the old write
	ldy #^wtrel	;since it must be done if we
	jsl RamDispatch	;got a new read request
normal		; 
	sep #mbit+xbit
	longa off
	longi off
	ldy #06	;move address info
mvlp1		; 
	lda pgrq+getrq_ourskt,y
	sta wtrsp+sdrsp_sskt,y
	dey
	bpl mvlp1
	rep #mbit+xbit
	longa on
	longi on
	lda wdata	;see if any data to	send
	beq nosend	;nope
	jsr dowrite
	bra nextgrq	;issue next get request
nosend		; 
	lda #1	;set flag for packet ready
	sta wtpkt
nextgrq		; 
	rep #mbit+xbit
	longa on
	longi on
	ldx #pgrq
	ldy #^pgrq
	jsl RamDispatch
exitgrq		; 
	rtl	;and return


	ENDP

;-------------------------------------------------------------------------------
;
;	pap.close
;

closeup	PROC	;close section

	ENTRY closereq	; EXPORT -> ENTRY  **TGH
closereq		;other side wants to close
	sep #mbit+xbit
	longa off
	longi off
	ldy #06	;move address info
cmvlp1		; 
	lda pgrq+getrq_ourskt,y
	sta closersp+sdrsp_sskt,y ;set up close	response
	dey
	bpl cmvlp1
	rep #mbit+xbit
	longa on
	longi on
	ldx #closersp	;send close up response
	ldy #^closersp
	jsl RamDispatch
	rtl	;and return

	ENTRY closecomp	; EXPORT -> ENTRY  **TGH
closecomp		;       ;completion	routine for close rsp
	clc
	xce
	rep #mbit+xbit
	longa on
	longi on
	lda #0001	;set closing to true
	sta closing	;since we are closing now
	lda rdrq+atprq_tid	;get read tid
	sta canrd+creq_tid	;cancel transaction
	ldx #canrd
	ldy #^canrd
	jsl RamDispatch
	lda tkrq+atprq_tid	;get tickle tid
	sta canrd+creq_tid	;cancel transaction
	ldx #canrd
	ldy #^canrd
	jsl RamDispatch
	ldx #closeskt
	ldy #^closeskt	;close down reponse	socket
	jsl RamDispatch
	lda readcmdlist
	sta cmdlist
	lda readcmdlist+2
	sta cmdlist+2
	ora cmdlist
	beq next99
	lda #papconnclosed	;connection closed
	jsl exitcomp	;so call completion
next99		; 
	lda writecmdlist
	sta cmdlist
	lda writecmdlist+2
	sta cmdlist+2
	ora cmdlist
	beq next1
	lda #papconnclosed	;tell write routine	connection closed
	jsl exitcomp
next1		; 
	lda orqparms+atprq_tid
	sta canrd+creq_tid	;use same list for read and open
	ldx #canrd
	ldy #^canrd
	jsl RamDispatch
	lda opencmdlist
	sta cmdlist
	lda opencmdlist+2
	sta cmdlist+2
	ora cmdlist
	beq next2
	lda #papconnclosed
	jsl exitcomp
next2		; 
	lda #qtrremove	;remove all timers
	sta conntimer
	sta opentimer
	ldx #conntimer
	ldy #^conntimer
	jsl RamDispatch
	ldx #opentimer
	ldy #^opentimer
	jsl RamDispatch
	lda closecmdlist
	sta cmdlist
	lda closecmdlist+2
	sta cmdlist+2
	jsr papinit	;now clear all flags
	lda cmdlist+2
	ora cmdlist	;see if came from user close
	beq next3	;nope
	lda #papnoerr	;tell user that we are done
	jsl exitcomp	;and call users routine
next3		; 
	rtl	;and return to caller

	ENTRY cpapclose	; EXPORT -> ENTRY  **TGH
cpapclose		;       ;user wants	to close
	jsr setup	;set up bank and forbid
	longa on
	longi on	;comes back full 16	bit
	ldx openflag	;see if pap even open
	bne closeok	;it is so we can close
	lda #papnotopen
	jmp accumexit	;exit with error
closeok		; 
	lda closecmdlist	;see if close already in progress
	ora closecmdlist+2
	beq closeok1	;yes so all is ok
	lda #papinuse
	jmp accumexit	;and return with error
closeok1		; 
	ldy #popen_refnum	;get reference number
	lda [cmdlist],y
	and #$00ff	;only want one byte
	cmp #0001	;see if valid
	beq closeok2
	lda #papsessinvalid
	jmp accumexit
closeok2		; 
	lda cmdlist
	sta closecmdlist
	lda cmdlist+2
	sta closecmdlist+2	;make sure closecomp knows we have a close going on
	dex	;see what stage open in
	bne fullclose	;it was fully open
	jsl closecomp	;just tear everything down & call completion routines
	bra leaveclose	;exit, error should	be set already
fullclose		; ;we really have a	connection
	lda #papbusy	;and return with pap busy
	ldy #pstat_result	;get offset to result
	sta [cmdlist],y	;and save it
	ldx #clsreq	;send close request
	ldy #^clsreq
	jsl RamDispatch	;do close, and complete to closecomp
leaveclose		; 
	jml RamPermit	;back down ints and	leave

	ENTRY cpapunload	; EXPORT -> ENTRY  **TGH
cpapunload		;       
	jsr setup	;set everything up ok
	ldy #pstat_result	;offset to result
	lda #papbusy	;show we are currently busy
	sta [cmdlist],y
	lda cmdlist
	sta unloadcmd
	lda cmdlist+2
	sta unloadcmd+2
	ldx #upapclose	;do a close call async
	ldy #^upapclose
	jsl RamDispatch	;make the call
	jml RamPermit	;back down ints and	leave

	ENTRY unloadcomp	; EXPORT -> ENTRY  **TGH
unloadcomp	clc
	xce
	rep #mbit+xbit
	longa on
	longi on
	lda unloadcmd
	sta cmdlist
	lda unloadcmd+2
	sta cmdlist+2
	lda #papnoerr	;tell user that we are done
	jsl exitcomp	;and call users routine
	rtl	;and return to caller

	ENDP

;-------------------------------------------------------------------------------
;
;	pap.write
;

cpapwrite	PROC	;write section

	jsr setup	;do normal entry stuff
	longa on
	longi on	;comes back full 16

	lda openflag	;see if open
	cmp #2	;must be at stage 2
	beq callok	;it is open
	lda #papnotopen	;pap is not open now
	jmp accumexit	;and return with error
callok		; 
	lda writecmdlist	;see if write already in progress
	ora writecmdlist+2
	beq callok1	;ok since not writing
	lda #papinuse	;pap call is in progress
	jmp accumexit
callok1		; 
	ldy #popen_refnum	;get reference number
	lda [cmdlist],y
	and #$00ff	;only want one byte
	cmp #0001	;see if valid
	beq callok2
	lda #papsessinvalid
	jmp accumexit
callok2		; 
	ldy #pwrite_blen	;get users length
	lda [cmdlist],y
	cmp #513	;see if bigger than	512 bytes
	bcc callok3	;less than 513 so ok
	lda #papsizeerr	;buffer to big
	jmp accumexit
callok3		; 
	sta wtbds+bds_bufsize ;number of bytes to write
	ldy #pwrite_bptr	;now get their buffer pointer
	lda [cmdlist],y	;get low word
	sta wtbds+bds_bufptr
	iny
	iny
	lda [cmdlist],y
	sta wtbds+bds_bufptr+2
	sep #mbit+xbit
	longa off
	longi off
	ldy #pwrite_eofflag	;get end of file flag offset
	lda [cmdlist],y	;and get the flag
	sta wtbds+bds_user+2 ;and store in packet
	rep #mbit+xbit
	longa on
	longi on
	lda cmdlist	;now set up internal pointer
	sta writecmdlist
	lda cmdlist+2
	sta writecmdlist+2
* the user bytes have already been set up by the open call
	lda wtpkt	;has a read come in?
	bne writeit	;yes, so ready to go
	inc wdata	;tell getrequest data pending
	jmp asyncexit	;return with busy flag set
writeit		; 
	ldy #pstat_result
	lda #papbusy	;set result to busy
	sta [cmdlist],y	;before doing anything
	jsr dowrite	;issue the send response
	jml RamPermit	;and leave

	ENTRY dowrite	; EXPORT -> ENTRY  **TGH
dowrite	rep #mbit+xbit	;make sure in full 16 bit mode
	longa on
	longi on
	stz wtpkt	;no read waiting now
	stz wdata	;no data pending
	inc inseq	;bump expected sequence number
	bne seqok	;not back to 0
	inc inseq	;was zero so make 1
seqok		; 
	ldx #wtrsp
	ldy #^wtrsp
	jsl RamDispatch
	rts	;and return

	ENTRY writecomp	; EXPORT -> ENTRY  **TGH
writecomp		;comes here	when write completes
	clc
	xce	;go to native mode
	rep #mbit+xbit
	longa on
	longi on
	lda writecmdlist	;get users list
	sta cmdlist
	lda writecmdlist+2
	sta cmdlist+2
	lda wtrsp+2	;check for error
	beq goodwt	;if zero it was successful
	cmp #noatprel	;see if expired normally
	beq goodwt	;normal expire so good
	cmp #rsprel	;see if forced to expire
	beq goodwt	;somebody forced routine to finish, so this is ok
	cmp #noddpskt
	bne wtexit
	lda #papneterr
	bra ewtexit	;report an error
goodwt		; ;it was good
	lda closing	;see if connection is in closing phase
	bne wtexit	;yes, so leave without calling completion (called in close)
	stz writecmdlist	;and zero out since	done
	stz writecmdlist+2
	lda #papnoerr	;tell user good call
ewtexit		; 
	jsl exitcomp	;call completion
wtexit		; 
	rtl	;and return

	ENDP

;-------------------------------------------------------------------------------
;
;	pap.read
;

cpapread	PROC	;read section

	jsr setup	;do normal entry stuff
	longa on
	longi on	;comes back full 16

	lda openflag	;see if open
	cmp #2	;must be at stage 2
	beq callok	;it is open
	lda #papnotopen	;pap is not open now
	jmp accumexit	;and return with error
callok		; 
	lda readcmdlist	;see if read already in progress
	ora readcmdlist+2
	beq callok1	;ok since not writing
	lda #papinuse	;pap call is in progress
	jmp accumexit
callok1		; 
	ldy #popen_refnum	;get reference number
	lda [cmdlist],y
	and #$00ff	;only want one byte
	cmp #0001	;see if valid
	beq callok2
	lda #papsessinvalid
	jmp accumexit
callok2		; 
	ldy #pread_bufptr	;get address of where to store
	lda [cmdlist],y	;data read in
	sta rdbds+bds_bufptr
	iny
	iny
	lda [cmdlist],y	;get high word
	sta rdbds+bds_bufptr+2
	lda cmdlist	;now save users parm list
	sta readcmdlist
	lda cmdlist+2	;so we know where results should go
	sta readcmdlist+2
	inc nextseq	;bump sequence number
	bne okfine
	inc nextseq	;skip over 0 always
okfine		; 
	lda nextseq
	xba
	sta rdrq+atprq_user+2 ;and send sequence with request
	sep #mbit+xbit
	longa off
	longi off
	lda #01	;set bitmap for read request
	sta rdrq+atprq_bitmap
	rep #mbit+xbit	;and back to full 16 bit
	longa on
	longi on
	ldy #pstat_result
	lda #papbusy	;set result to busy
	sta [cmdlist],y	;before doing anything
	ldx #rdrq	;and make the call
	ldy #^rdrq
	jsl RamDispatch
	jml RamPermit	;error in busy mode

	ENTRY readcomp	; EXPORT -> ENTRY  **TGH
readcomp		;comes here when read completes
	clc
	xce	;go to native mode
	rep #mbit+xbit
	longa on
	longi on
	lda readcmdlist	;get users list
	sta cmdlist
	lda readcmdlist+2
	sta cmdlist+2
	lda rdrq+2	;check for error
	beq readcompgood	;no error
	cmp #noddpskt	;see if no more sockets
	bne rdexit	;error so just exit
	lda #papneterr
	jml exitcomp	;call completion routine if any
readcompgood		; 
	stz readcmdlist	;and zero out since	done
	stz readcmdlist+2
	lda rdbds+bds_actlen ;get length of data just read
	ldy #pread_buflen	;and pass on to user
	sta [cmdlist],y
	sep #mbit+xbit
	longa off
	longi off
	lda rdbds+bds_user+2 ;get eof flag (from bds not rqlist 6/15/88)
	ldy #pread_eofflag
	sta [cmdlist],y
	rep #mbit+xbit
	longa on
	longi on
	lda #papnoerr	;tell user good call
	jsl exitcomp	;call completion
rdexit		; 
	rtl	;and return

	ENDP

;-------------------------------------------------------------------------------
;
;	pap.vars
;

datablock	PROC

	entry zerodata
	entry statcmdlist
	entry opencmdlist
	entry writecmdlist
	entry readcmdlist
	entry closecmdlist
	entry wdata
	entry wtpkt
	entry openflag
	entry inseq
	entry nextseq
	entry closing
	entry zeroend
	entry lkcurr
	entry lknext
	entry lkcomp
	entry connid
	entry rspskt
	entry startticks
	entry unloadcmd
	entry stlkparms
	entry oplkparms
	entry srqparms
	entry srqbds
	entry opsktparms
	entry orqparms
	entry odata
	entry orqbds
	entry opentimer
	entry rdrq
	entry rdbds
	entry canrd
	entry tkrq
	entry tkbds
	entry conntimer
	entry pgrq
	entry wtrsp
	entry wtbds
	entry wtrel
	entry closeskt
	entry clsreq
	entry clsbds
	entry closersp
	entry closebds
	entry upapclose
	entry lookbuf

zerodata		;data to zero on init starts here

opencmdlist	DS.B 4
writecmdlist	DS.B 4
readcmdlist	DS.B 4
closecmdlist	DS.B 4
wdata	DS.B 2
wtpkt	DS.B 2
openflag	DS.B 2
inseq	DS.B 2	;sequence number we	are expecting
nextseq	DS.B 2	;next sequence to go out in read
closing	ds.b 2	;flag to tell us if we are in the middle of a close
zeroend		;and zeroing stops here

statcmdlist	DS.B 4	;Took this out of zerodata **TGH 5/25/89
lkcurr	DS.B 2	;current item being	looked up
lknext	DS.B 2	;next item to look up
lkcomp	DS.B 2	;real completion address for lkcurr
connid	DS.B 2
rspskt	DS.B 2
startticks	DS.B 2
unloadcmd	DS.B 4


stlkparms	DC.B $80,$10,$00,$00 ;cnt, cmd, result
	DC.L stlkcomp	;completion routine
	DC.L 0	;entity name stuff
	DC.B 1	;look every 1/4 sec
	DC.B 12	;look up to 12 times
	DC.B $00,$00	;reserved bytes
	DC.W 105	;105 byte buffer
	DC.L lookbuf
	DC.B $01	;only want 1 match total
	DC.B $00	;number gotten

oplkparms	DC.B $80,$10,$00,$00 ;cnt, cmd, result
	DC.L oplkcomp	;completion routine
	DC.L 0	;entity name stuff
	DC.B 1	;look every 1/4 sec
	DC.B 12	;look up to 12 times
	DC.B $00,$00	;reserved bytes
	DC.W 105	;105 byte buffer
	DC.L lookbuf
	DC.B $01	;only want 4 match total
	DC.B $00	;number gotten

srqparms	DC.B $80,$12,$00,$00 ;cnt, cmd, result
	DC.L statcomp	;io completion
	DC.B $00	;our socket (listener socket)
	DC.B $00,$00	;their network
	DC.B $00	;their node
	DC.B $00	;their skt
	DC.B $00,$00	;their tid
	DC.W 0	;buffer to send size
	DC.L 0	;no buffer used
	DC.B $00,$08,$00,$00 ;user bytes
	DC.B $01	;1 response buffer
	DC.L srqbds	;bds for input
	DC.B $00	;flag
	DC.B $08	;every 2 seconds
	DC.B 05	;try 10 times
	DC.B $01	;bitmap for request
	DC.B $00
	DC.B $00,$00,$00,$00,$00,$00 ;reserved fields

srqbds	DC.W 256	;max buf size
	DC.L 0	;start code here   
	DC.B $00,$08,$00,$00 ;this is a status call
	DC.B $00,$00	;and actual length received

opsktparms	DC.B $00,$14,$00,$00,$00 ;open a dynamic socket

orqparms	DC.B $80,$12,$00,$00 ;cnt, cmd, result
	DC.L opencomp	;io completion
	DC.B $00	;our socket (listener socket)
	DC.B $00,$00	;their network
	DC.B $00	;their node
	DC.B $00	;their skt
	DC.B $00,$00	;their tid
	DC.W 4	;buffer to send size
	DC.L odata	;send this data
	DC.B $00,$01,$00,$00 ;user bytes
	DC.B $01	;1 response buffer
	DC.L orqbds	;bds for input
	DC.B atpxobit	;flag
	DC.B $08	;every 2 seconds
	DC.B 05	;try 10 times
	DC.B $01	;bitmap for request
	DC.B $00
	DC.B $00,$00,$00,$00,$00,$00 ;reserved fields

odata	DS.B 4

orqbds	DC.W 256	;max buf size
	DC.L 0	;start code here   
	DC.B $00,$08,$00,$00 ;this is a status call
	DC.B $00,$00	;and actual length received

opentimer	DC.B $80,$04,$00,$00
	DC.L trynextopen
	DC.B $00,$00
	DC.B $00,$00	;code fills in time
	DC.B $00,$00,$00,$00 ;internal use

rdrq	DC.B $80,$12,$00,$00 ;cnt, cmd, result
	DC.L readcomp	;io completion
	DC.B $00	;our socket (listener socket)
	DC.B $00,$00	;their network
	DC.B $00	;their node
	DC.B $00	;their skt
	DC.B $00,$00	;their tid
	DC.W 0	;buffer to send size
	DC.L 0	;no buffer used
	DC.B $00,$03,$00,$00 ;user bytes
	DC.B $01	;1 response buffer 
	DC.L rdbds	;bds for input
	DC.B atpxobit	;flag
	DC.B 60	;every 15 seconds
	DC.B $ff	;try forever
	DC.B $01	;bitmap for request
	DC.B $00
	DC.B $00,$00,$00,$00,$00,$00 ;reserved fields

rdbds	DC.W 512	;max buf size
	DC.L 0	;start code here   
	DC.B $00,$00,$00,$00 ;user bytes returned here
	DC.B $00,$00	;and actual length received

canrd	DC.B $00,$13,$00,$00 ;cancel cmd
	DC.B $00,$00	;tid goes here

tkrq	DC.B $80,$12,$00,$00 ;cnt, cmd, result
	DC.L 0	;io completion
	DC.B $00	;our socket (listener socket)
	DC.B $00,$00	;their network
	DC.B $00	;their node
	DC.B $00	;their skt
	DC.B $00,$00	;their tid
	DC.W 0	;buffer to send size
	DC.L 0	;no buffer used
	DC.B $00,$05,$00,$00 ;user bytes
	DC.B $01	;no response buffer
	DC.L tkbds	;bds for input
	DC.B $00	;flag
	DC.B 60*4	;every minute
	DC.B $ff	;try forever
	DC.B $01	;bitmap for request
	DC.B $00
	DC.B $00,$00,$00,$00,$00,$00 ;reserved fields

tkbds	DC.W 0	;max buf size
	DC.L 0	;start code here   
	DC.B $00,$00,$00,$00 ;user bytes returned here
	DC.B $00,$00	;and actual length received

conntimer	DC.B $80,$04,$00,$00
	DC.L closecomp	;close up if expires
	DC.B $00,$00
	DC.B $00,$00	;code fills in time
	DC.B $00,$00,$00,$00 ;internal use

pgrq	DC.B $80,$16,$00,$00 ;cnt, async cmd, result
	DC.L pgrqcomp	;io completion
	DC.B $00	;our socket (listener socket)
	DC.B $00,$00	;their net (filed in by call)
	DC.B $00,$00	;their node & skt
	DC.B $00,$00	;their tid
	DC.W 0	;buffer size
	DC.L 0	;buffer for incoming requests
	DC.B $00,$00,$00,$00 ;incoming user data
	DC.B $00,$00	;actual length of incoming request
	DC.B $00,$00	;flag and bitmap
	DC.B $00,$00,$00,$00 ;reserved for link

wtrsp	DC.B $80,$17,$00,$00 ;cnt, async cmd, result
	DC.L writecomp	;io completion
	DC.B $00	;source socket
	DC.B $00,$00	;destination net
	DC.B $00,$00	;dest node & skt
	DC.B $00,$00	;tid
	DC.B $01,$01	;number of buffers and max bufs
	DC.L wtbds	;bds for response
	DC.B atpxobit	;flag
	DC.B $01	;responding bitmap
	DC.B $00,$00,$00,$00 ;add routine and flag
	DC.B $00

wtbds	DC.W 0	;number of bytes to	send
	DC.L 0	;buffer to write from
	DC.B $00,$04,$00,$00 ;user bytes
	DC.B $00,$00	;actual length field

wtrel	DC.B $00,$19,$00,$00 ;release cb
	DS.B 7	;rest filled in by code

closeskt	DC.B $00,$15,$00,$00 ;close cmd
	DC.B $00	;socket to close goes here

clsreq	DC.B $80,$12,$00,$00 ;cnt, cmd, result
	DC.L closecomp	;io completion
	DC.B $00	;our socket (listener socket)
	DC.B $00,$00	;their network
	DC.B $00	;their node
	DC.B $00	;their skt
	DC.B $00,$00	;their tid
	DC.W 0	;buffer to send size
	DC.L 0	;no buffer to send
	DC.B $00,$06,$00,$00 ;user bytes
	DC.B $01	;need 1 response bds
	DC.L clsbds	;bds for input
	DC.B 0	;flag
	DC.B 8	;every 2 secs
	DC.B 5	;5 times
	DC.B $01	;bitmap for request
	DC.B $00
	DC.B $00,$00,$00,$00,$00,$00 ;reserved fields

clsbds	DC.W 0	;max buf size
	DC.L 0	;start code here   
	DC.B $00,$00,$00,$00 ;user bytes returned here
	DC.B $00,$00	;and actual length received

closersp	DC.B $80,$17,$00,$00 ;cnt, async cmd, result
	DC.L closecomp	;io completion
	DC.B $00	;source socket
	DC.B $00,$00	;destination net
	DC.B $00,$00	;dest node & skt
	DC.B $00,$00	;tid
	DC.B $01,$01	;number of buffers and max bufs
	DC.L closebds	;bds for response
	DC.B atpeombit	;flag
	DC.B $01	;bitmap filled in by call
	DC.B $00,$00,$00,$00 ;add routine and flag
	DC.B $00

closebds	DC.W 0	;number of bytes to	send
	DC.L 0	;buffer to write from
	DC.B $00,$07,$00,$00 ;user bytes
	DC.B $00,$00	;actual length field

upapclose	DC.B $80,$24,$00,$00
	DC.L unloadcomp	;completion routine	for unload
	DC.B 1	;1 is only valid number

lookbuf	DS.B 105	;enough for 1 full response


	ENDP


; BEGIN 14-Nov-91 MSD

;
; ValidateName is used to do basic validation of the length of the object,
; type, and zone strings of the printer name used in PAPOpen and PAPStatus.
;
; On entry, the Y register contains the offset in the parameter block where
; the pointer to the printer name is stored.  It uses 4 bytes on zero page
; at location execaddr ($84).  If there is an error, carry is set and A
; contains $0807 (network error); otherwise, carry is clear (A is undefined).
;

ValidateName	proc

	lda [cmdlist],y	; get low word of printer entity pointer
	sta execaddr	; put on zero page
	iny
	iny
	lda [cmdlist],y
	sta execaddr+2
	
	ldx #3	; going to check 3 strings
loop
	lda [execaddr]	; get length
	and #$00FF	; one byte only
	cmp #33	; too long to be valid?
	bge err	; yes, so return error
	
	sec	; add 1 for length byte
	adc execaddr	; point to next string
	sta execaddr
	bcc nextstr	; no carry, don't go to next bank
	inc execaddr	; carry into bank byte
nextstr
	dex	; done all strings yet?
	bne loop

	clc	; all OK, no error
	rts
err
	sec
	lda #papneterr
	rts

	endp
; END 14-Nov-91 MSD

	END
	
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/ATRam/ATPatch/RPM/RPM.aii b/IIGS.601.SRC/GS.OS/Drivers/ATRam/ATPatch/RPM/RPM.aii
new file mode 100644
index 0000000..0b292ec
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/ATRam/ATPatch/RPM/RPM.aii
@@ -0,0 +1 @@
+*******************************************************************************
*
* File: ATPATCH
*
* This file contains the 65816 implementation of RPM for the Apple IIGS.
*
* ATPATCH was originally responsible for loading ATINIT under prodos 16.
* It also contained all the patches for the ROM code.
*
* Copyright Apple Computer, 1986
* Original Author: Greg Seitz
*                  ??-Nov-86
*                  ver 1.2
*
*******************************************************************************
*
* NOTE: RPM contains patches for a bug in the appletalk roms.
* This bug exists in rev 0 & 1 (and possibly future versions since there
* is currently no room to patch the bug	in the rom area).  The bug that
* we are fixing is caused when a program is running out of aux memory
* using the ALTZP switch.  This causes bank e1 language card area to
* sit on top of bank e0 language card area.  Since we have code in bank
* $e0 language card	area, whenever an attempt was made to call this code,
* it was really calling what was at the	same location in bank $e1.
* In order to fix this bug we must have	some code in lower memory $e1/12xx
* that first saves the machine state and makes sure the proper bank stuff
* is switched in.  This code needs to be called whenever we	dispatch a packet
* during interrupts	and whenever someone makes a printing call through RPM.
*
* NOTE: It is always assumed that anyone calling the appletalk dispatcher
* directly is calling it with the main stack in use.  (CAN'T USE ALTZP WHEN
* CALLING ATALK DIRECTLY)
*
*******************************************************************************
*
* Modification History
*
*
* v1.2
*
* 4/21/87    gws	- changed WBJ string to %%Include ProcSet 'IWEM'
*	  to be compatable with lasershare
*
* v1.3
*
* 8/18/88    TGH	- Started working on changes for the RevD ROM
*
* 11/14/88   TGH    - Added parameter checking to make sure that the timeout
*	  value is >= to flush time.
*
*  1/ 6/90   MSD	- Added PMFlushSession call ($48) to cause data to be
*	  flushed immediately (great for calling just before
*	  you do a PMCloseSession).
*
*  5/16/91   MSD	- If you ask PMSetPrinter to return the selected printer
*	  and set any of the other bits in the flag byte, you will
*	  get error $0901.
*
*  6/04/91   MSD	- PMSetPrinter now returns error $0904 (invalid buffer count)
*	  if you tell it to use zero buffers.
*
*  7-Oct-91 MSD	PMSetPrinter now returns error if made async.
*
*******************************************************************************

	MACHINE M65816
	PRINT GEN

	INCLUDE '::ASP:atp.equates.inc'
	INCLUDE '::ASP:global.equates.inc'


	ENTRY availhd
	ENTRY bufferchar
	ENTRY closephase
	ENTRY conncomp
	ENTRY rpmconntimer
	ENTRY critflag
	ENTRY ctime
	ENTRY currbuf
;	ENTRY flushphase	; Added 1/6/90 MSD
	ENTRY flushtimer
	ENTRY ftime
	ENTRY getchar
	ENTRY idtag
	ENTRY installconn
	ENTRY installflush
	ENTRY myserread
	ENTRY myserstat
	ENTRY myserwrit
	ENTRY nbufs
	ENTRY rpmopenflag
	ENTRY outhd
	ENTRY ovflwch
	ENTRY papclose
	ENTRY papopen
	ENTRY papread
	ENTRY papwrite
	ENTRY pmsetprinter
	ENTRY pmclosesession
	ENTRY pmflushsession ;MSD: Added 1/6/90
	ENTRY postend
	ENTRY poststart
	ENTRY prname
	ENTRY readavail
	ENTRY readbuf
	ENTRY readindex
	ENTRY rpmflag
	ENTRY startopen
	ENTRY statbuf
	ENTRY writebuf
	ENTRY writeindex
	ENTRY writeready
	ENTRY rpmzerodata
	ENTRY rpmzeroend

	Import CheckAsync
	
pmflagerr	equ $0901	;Added 11/14/88  **TGH
pmtimeerr	equ $0902	;Added 11/14/88  **TGH
pmbufcnterr	equ $0904	; MSD 6/4/91

papnoerr	equ $0000
paptoomany	equ $0801
papnotopen	equ $0802
papsessinvalid	equ $0802
papnoprinter	equ $0805
papconnclosed	equ $0806
papneterr	equ $0807
papsizeerr	equ $080a
papinuse	equ $080b
papbusy	equ $08ff


qtrinstall	equ $0480
qtrremove	equ $0500
qtrcancel	equ $4500
senddata	equ 03
closeconn	equ 06
openwait	equ 08
maxconn	equ 120*4	;two minutes


pstat_async	equ $00
pstat_command	equ $01
pstat_result	equ $02
pstat_iocomp	equ $04
pstat_prname	equ $08
pstat_statbuf	equ $0c


popen_async	equ $00
popen_command	equ $01
popen_result	equ $02
popen_iocomp	equ $04
popen_refnum	equ $08
popen_prname	equ $09
popen_flowq	equ $0d
popen_statbuf	equ $0e


pclose_async	equ $00
pclose_command	equ $01
pclose_result	equ $02
pclose_iocomp	equ $04
pclose_refnum	equ $08


pread_async	equ $00
pread_command	equ $01
pread_result	equ $02
pread_iocomp	equ $04
pread_refnum	equ $08
pread_buflen	equ $09
pread_bufptr	equ $0b
pread_eofflag	equ $0f


pwrite_async	equ $00
pwrite_command	equ $01
pwrite_result	equ $02
pwrite_iocomp	equ $04
pwrite_refnum	equ $08
pwrite_blen	equ $09
pwrite_bptr	equ $0b
pwrite_eofflag	equ $0f

rpmSInstall	PROC EXPORT

	longa on
	clc
	xce
	php
	sei	;no interrupts while changing vectors
	phb	;save bank
	phk
	plb	;set bank to code
	rep #MBit

	stx ROMVers
	sty ATalkSlot

	lda jmypascal
	sta Pascal
	lda jmypascal+2
	sta Pascal+2

	lda jmyserwrit
	sta SerWrite
	lda jmyserwrit+2
	sta SerWrite+2

	lda jmyserread
	sta SerRead
	lda jmyserread+2
	sta SerRead+2

	lda jmyserstat
	sta SerStatus
	lda jmyserstat+2
	sta SerStatus+2

	lda #$6B
	sta SerBackgnd

	lda Jnewbasic
	sta Basic
	lda Jnewbasic+2
	sta Basic+2

;
; Below we fix our two vectors for writting to the serial port firmware
;

	lda RomVers
	cmp #0002
	bcs ROM2
	cmp #0001
	beq ROM1

ROM0	lda #$004B
	sta QsetupPatch+1
	lda #$034B
	sta QpascalPatch+1
	lda #$FF4B
	bra DoneROMCheck

ROM1	lda #$C7D8
	sta QsetupPatch+1
	lda #$C7DC
	sta QpascalPatch+1
	lda #$00C7
	bra DoneROMCheck

ROM2	lda ATalkSlot
	cmp #0001
	beq ROM2_Port1

	lda #$C2D8
	sta QsetupPatch+1
	lda #$C2DC
	sta QpascalPatch+1
	lda #$00C2
	bra DoneROMCheck

ROM2_Port1	lda #$C1D8
	sta QsetupPatch+1
	lda #$C1DC
	sta QpascalPatch+1
	lda #$00C1

;	bra DoneROMCheck	;Just fall through the last check.
;	-->	;Put new ROM checks in here!

DoneROMCheck	sta QsetupPatch+2
	sta QpascalPatch+2

	jsr install	;install rpm into atalk

	plb	;restore bank
	plp
	xce
	rtl

jmypascal	jml mypascal
jmyserwrit	jml myserwrit
jmyserread	jml myserread
jmyserstat	jml myserstat
jnewbasic	jml newbasic

RomVers	dc.w 0
ATalkSlot	dc.w 0

	longa off

NewBasic		; 
	phb	;save bank
	phk
	plb	;set bank to code
	jsl nbasic
	plb	;restore bank
	rtl	;and return

nbasic		; 
	phx
	bvc Go
	clc	;assume output if init
	jsr Init
	pha
	lda CSWL
	beq InitOut
	lda KSWL
	bne Go3
	lda #5
	sta KSWL
	sec	;the init was for input
	bra Go3
InitOut		; 
	lda #7
	sta CSWL
	clc	;the init was for output
Go3		; 
	pla
Go		; 
	pha
	lda xslotval
	tax
	pla
	bcc Go2	;If input,
	bvc Go2	;and if initializing,
	stx KSWL+1	;make it look like slot 1 or 2 is
	jsl QSetup	;being inited.
	pha
	lda ATalkSlot
	ora #$C0
	sta KSWL+1
	pla
	plx
	rtl
Go2		; 
	jsl QSetup
	plx
	rtl

Init		; 
	pha
	phy
	php
* now that everything is set up for firmware, we will attempt to get
* a connection with	the printer
	cli	;allow ints
	jsr startopen	;start the open procedure
ropenwait		; ;wait for open to	complete
	lda writeready	;see if we can write
	beq ropenwait	;wait till we can
	plp
	ply
	pla
	rts

MyPascal		; 
	phb
	phk
	plb
	jsl MPascal
	plb
	rtl

MPascal		; 
	longi off
	longa off
	pha
	tya
	and #$0F
	tay
	pla
	cpy #$04	;Is it an init command?
	bne NotInit
	jsr Init
NotInit		; 
	cpy #$02	;see if write command
	bne NotWrite	;nope
	pha	;save char to write
	lda rpmflag	;get flag
	and #fastbit	;see if the fast bit is set
	bne fastwait	;fast write mode
	pla	;get back char
	bra NotWrite	;not fast write at least
fastwait	pla
fastwait1		; 
	ldx writeready	;wait till ready to	send
	beq fastwait1	;not yet
	jsl myserwrit	;send the char
	ldx #00
	clc	;no error
	rtl	;and return
NotWrite		; 
	pha
	tya
	and #$F
	ora pSlotVal	;pSlotVal
	tay
	lda xslotval
	tax
	pla
	jml QPascal


install		; ;init and install	driver
	rep #mbit+xbit
	longa on
	longi on

	phb
	phk	;data is in same bank as code
	plb
	lda softreset	;get the current reset vector
	sta oldreset	;and store internally
	lda softreset+2
	sta oldreset+2	;now we have the old vector
	lda jourreset	;store a jml ourreset
	sta softreset	;into vector
	lda jourreset+2
	sta softreset+2
	jsr rpminit	;zero out stuff
	ldx #ourcmds	;get our command table
	ldy #$d600+($28*4)	;table starts at $d600
	lda #endcmds-ourcmds-1 ;move this many bytes
	mvn ourcmds,$e10000	;to bank $e1
	ldx #ourcmds2	;get our command table
	ldy #$d600+($47*4)	;table starts at $d600
	lda #endcmds2-ourcmds2-1 ;move this many bytes
	mvn ourcmds,$e10000	;to bank $e1
	plb
	rts

jourreset	jml ourreset

rpminit	pha
	phx
	phy
	php
	rep #MBit+XBit
	longa on
	longi on
	ldy #$C110
	ldx #$1596
	lda whichSCC
	cmp #SCCAReg
	beq ItsA
	ldy #$C220
	inx
ItsA		; 
	tya
	sta pslotval
	sep #MBit
	longa off
	lda #$80
	sta >$E10000,x
	rep #mbit
	longa on
	stz rpmzerodata	;start with a zero
	ldx #rpmzerodata	;move from here
	ldy #rpmzerodata+1	;move to here (carrys zeros forward)
	lda #rpmzeroend-rpmzerodata-2 ;number of bytes to clear out
	mvn rpmzerodata,rpmzerodata
	plp
	ply
	plx
	pla
	rts

ourcmds		; 

	DC.A pmsetprinter	;$28
	DC.B rpmzplen

endcmds		; 

ourcmds2		; 

	DC.A pmclosesession	;$47
	DC.B rpmzplen
;
; MSD: New call to cause an immediate flush of data in the buffers
;
	DC.A pmflushsession	;$48
	DC.B rpmzplen

endcmds2		; 


ourreset		; ;should come here	during reset
	php	;save mode bits
	phb	;and databank
	jsl oldreset	;let lower protocol	get called first
	phk	;set up data bank
	plb
	jsr rpminit	;and re-init pap
	plb	;restore bank
	plp	;and mode bits
	rtl	;and return to our caller

oldreset		; ;this code gets old reset vector
	jml $000000	;dummy code


*
* I don't know what the below vector does as it isn't called anywhere
* in this file.  So I'm taking it out.  **TGH
*
*ljmpvec	jml $e10000	;address gets filled later
*

Qsetup	phb	;save bank
	pha
	php	;save state
	sep #mbit+xbit
	longa off
	longi off
	lda $c082	;turn on roms       
	lda #00
	pha
	plb

*
* Instead of checking the ROM version here for each call, we patch a
* JSL at init time to point to the correct location.  **TGH
*
*	lda >romid	;test flag
*	bne newq	;new roms
*	lda >romid+1	;and high byte
*	cmp #$10	;see if version 1
*	bne newq	;nope
*	plp	;restore state
*	pla	;and accum
*	jsl oldQSetup	;call mikes stuff old way
*	bra qafternew
*newq		; 
*	plp	;restore state
*	pla	;and accum
*	jsl newQSetup

	plp	;Restore state
	pla	;and accum.
QsetupPatch	jsl $000000	;We patch this for each ROM

qafternew		; 
	pha	;save accum
	php
	sep #mbit+xbit
	longa off
	longi off
	lda lcbank2	;language card bank	2
	lda lcbank2
	plp	;restore state
	pla	;restore accum
	plb	;restore our bank
	rtl	;and return

Qpascal	phb	;save bank
	pha
	php	;save state
	sep #mbit+xbit
	longa off
	longi off
	lda $c082	;turn on roms       
	lda #00
	pha
	plb

*
* Instead of checking the ROM version here for each call, we patch a
* JSL at init time to point to the correct location.  **TGH
*
*	lda >romid	;low byte was 0 for	version 1.0
*	bne newp	;new roms
*	lda >romid+1	;high byte was $10 for version 1.0
*	cmp #$10	;see if version 1
*	bne newp	;nope
*	plp	;restore state
*	pla	;and accum
*	jsl oldQPascal	;call mikes stuff old way
*	bra qafternew
*newp		; 
*	plp	;restore state
*	pla	;and accum
*	jsl newQPascal
*	bra qafternew	;exit through above	routine

	plp	;Restore state
	pla	;and accum.
QpascalPatch	jsl $000000	;We patch this for each ROM.
	bra qafternew	;Exit through above routine.

	ENDP


pmsetprinter	PROC

	jsr CheckAsync	; 7-Oct-91 MSD
	
	longa on
	longi on	;comes here full 16	from dispatcher
	phk
	plb	;set data bank to code bank
	ldy #$04	;get pointer to entity
	lda [cmdlist],y
	sta execaddr	;and save low word
	iny
	iny
	lda [cmdlist],y
	sta execaddr+2	;and high word of entity name
	sep #mbit+xbit	;go to 8 bit mode
	longa off
	longi off
	ldy #$08	;get flag field
	lda [cmdlist],y
	tax	;hold onto
	ldy #maxname	;get maximum name size
	lsr a	;see if they want name returned
	bcc setname	;they want to set the name

; --> MSD 16-May-91
	beq getname	; no other bits set -> return name
	
	rep #mbit+xbit
	longa on
	longi on
	
	lda #pmflagerr	; return printer and other bits set
	brl pmerrexit
	
	longa off
	longi off
getname
; <-- MSD 16-May-91
	ldy #$08	;get flag field
	lda rpmflag	;get old flag
	sta [cmdlist],y
	ldy #maxname	;get maximum name size
getcplp		; 
	lda prname,y	;get name from buffer
	sta [execaddr],y	;and save it
	dey
	bpl getcplp	;keep going
	rep #mbit+xbit
	longa on
	longi on
	ldy #$09	;get flush time
	lda ftime
	sta [cmdlist],y
	ldy #$0b	;get connection time
	lda ctime
	sta [cmdlist],y
	ldy #$0d	;get number of bufs	to allocate
	lda nbufs
	sta [cmdlist],y
	bra pmsetdone	;and exit
setname		; 
	stx rpmflag	;and save for later	use
cplp		; ;copy the name to	internal storage
	lda [execaddr],y
	sta prname,y	;and save it
	dey	;reduce pointer
	bpl cplp	;loop while still plus

	rep #mbit+xbit	;back to full native mode
	longa on
	longi on

* do not close the job, just change the values, so that the time outs
* will take place in the context of the current job 
* GWS 6/15/88
*	jsl conncomp	;shut down any open	connection
*wtcls		; ;wait for close to finish
*	lda closephase
*	bne wtcls	;still closing

	sec
	ldy #$0B	;get connection time
	lda [cmdlist],y
	beq @L1
	ldy #$09	;subtract flush time
	sbc [cmdlist],y
	bcs @L1

@L0	lda #pmtimeerr	;     ;Added 11/14/88  **TGH
@L2	ldy #2	;move to result field
	sta [cmdlist],y	;and store result
	rtl	;and return

@L1	ldy #$09	;get flush time
	lda [cmdlist],y
	beq @L0
	sta ftime
	ldy #$0b	;get connection time
	lda [cmdlist],y
	sta ctime
	ldy #$0d	;get number of bufs	to allocate
	lda [cmdlist],y	; is it zero? (MSD 6/4/91)
; ---> Begin MSD 6/4/91
	bne @okbuf
	lda #pmbufcnterr	; zero is an invalid buffer count
	bra @L2	; return the error
@okbuf
; <--- End MSD 6/4/91
	sta nbufs
	lda idtag	;see if we already got a tag
	bne pmsetdone	;yes, so don't get a new one
	pea $0000	;result comes back here
	pea $8000	;get an id
	ldx #$2003	;call misc tools
	jsl $e10000	;make the call
	pla	;get id
	sta idtag	;and save in global	area
pmsetdone		; 
	rep #mbit+xbit
	longa on
	longi on
	lda #0000	;no error
pmerrexit
	ldy #2	;move to result field
	sta [cmdlist],y	;and store result
	rtl	;and return


	ENTRY MySerStat	; EXPORT -> ENTRY  **TGH
MySerStat	php	;state, and
	phb	;data bank
	sep #mbit+xbit	;force 8 bit mode
	longa off
	longi off
	phk	;set data bank to code bank
	plb
	lda #$28	;start building scc	status reg with thi
	ora readavail	;bring in read avail bit
	ora writeready	;and write ready bit
	plb	;restore old bank
	plp	;and status reg
	rtl

	ENTRY MySerWrit	; EXPORT -> ENTRY  **TGH
MySerWrit	pha
	phx
	phy
	phb	;save data bank
	php
	phk
	plb	;make sure data bank = code bank
	jsr bufferchar	;put char in packet
	plp
	plb	;restore data bank
	ply
	plx
	pla
	rtl

	ENTRY MySerRead	; EXPORT -> ENTRY  **TGH
MySerRead	phx
	phy
	phb	;save data bank
	php
	phk
	plb	;make sure data bank = code bank
	jsr getchar	;get char from buffer
	plp
	plb	;restore data bank
	ply
	plx
	rtl

	ENDP

;
;	rpm.open
;

startopen	PROC	;begin connection establishment

	rep #mbit+xbit
	longa on
	longi on
closefinish		; 
	lda closephase	;see if in process of closing
	bne closefinish	;let closing finish
	lda rpmopenflag	;see if we are currenty open
	beq newopen	;nope so open up

*           jsl    RamForbid	;don't let anything come between us
*           jsr    removeconn	;remove connection timer
*           jsr    removeflush	;and flush timer
*           jsr    installconn	;install connection	timer
*           jsr    installflush	;and flush timer
*           jsl    RamPermit	;now we allow ints again

	brl xstopen	;exit the open routine
newopen		; 
	inc rpmopenflag	;show that we are open
	stz readavail	;no chars currently	available
	stz writeready	;and writing not permited yet
	lda #writebuf	;set up current buffer
	sta currbuf
	lda #^writebuf
	sta currbuf+2
	stz critflag	;not in flush critical section
	stz outhd	;no buffers waiting	to go out
	stz outhd+2
	stz ovflwch	;no overflow yet
	stz papwrite+pwrite_bptr ;no buffer currently being written
	stz papwrite+pwrite_bptr+2 ;
	stz availhd	;no extra bufs yet
	stz availhd+2
	pei crzp+2
	pei crzp	;save zp usage
	ldx nbufs	;get number of buffers to use
	dex
	beq gotmem	;we got all we wanted
memloop		; 
	phx	;save num of bufs
	pea $0000	;make room for result
	pea $0000
	pea $0000
	pea maxwrite+link	;size of buf
	lda idtag
	pha
	pea $4008	;fixed memory, not special
	pea $0000
	pea $0000
	ldx #$0902	;call newhandle
	jsl $e10000	;make the call
	ply	;get result
	sty crzp
	ply
	sty crzp+2
	plx	;get num of bufs to	allocate
	bcs gotmem	;error so we are done
	ldy #0002	;point to high word
	lda [crzp]	;de reference handle
	pha
	lda [crzp],y	;get high word of handle
	sta crzp+2
	pla
	sta crzp	;now it points to actual packet
	lda availhd	;set it to head of list
	sta [crzp]
	lda availhd+2
	sta [crzp],y
	lda crzp
	sta availhd	;now set hd to node	just inserted
	lda crzp+2
	sta availhd+2
	dex
	bne memloop	;they want more memory
gotmem		; 
	pla	;recover zp
	sta crzp
	pla
	sta crzp+2
	ldx #papopen
	ldy #^papopen	;and issue the open	call
	jsl RamDispatch	;which completes to	openph3
xstopen		; ;exit open routine with permit
	rts	;and return

	ENTRY openph3	; EXPORT -> ENTRY  **TGH
openph3	clc	;make sure native mode
	xce
	phk
	plb	;set data bank to code bank
	sep #mbit+xbit	;go to 8 bit mode
	longa off
	longi off
	lda papopen+8	;get session ref num
	sta papread+8	;and set it for the	other calls
	sta papclose+8
	sta papwrite+8
	rep #mbit+xbit
	longa on
	longi on
	ldy #link
	sty writeindex	;point to start of data for pkt
	stz readindex	;for reading and writing
	lda #$0004	;but we can send chars now
	sta writeready
	lda rpmflag	;get flag in high byte of word
	and #$0020	;check postscript emulation bit
	beq noheader	;no need for header
	sep #mbit+xbit	;go to 8 bit mode
	longa off
	longi off
	lda papopen+8	;get session ref num
	sta papread+8
	sta papclose+8
	sta papwrite+8
	ldy #0	;must start at left	side of word
setlp		; 
	lda poststart,y	;get char
	phy	;save index
	php	;and mode
	jsr bufferchar
	plp	;recover mode
	ply	;and index
	iny	;bump index
	cpy #postend-poststart ;see if equal to	len
	bne setlp	;not yet keep sending
noheader		; 
	rep #mbit+xbit
	longa on
	longi on
	jsl newread	;issue first read
	jsr installconn	;install connection	timer
	jsr installflush	;and flush timer
	rtl	;and return

	ENTRY rpmreadcomp	; EXPORT -> ENTRY  **TGH
rpmreadcomp		;reads complete here
	clc	;make sure native mode
	xce
	phk
	plb	;set data bank to code bank
	rep #mbit+xbit
	longa on
	longi on
	lda papread+2	;see if we got an error
	bne readdone	;if so then no more	reads
	stz readindex	;set read pointer to start
	lda papread+9	;get length of data	read
	bne okread	;we got something
	lda papread+$0f	;get eof flag
	and #$00ff	;dump high byte
	bne readdone	;eof so we are done
newread		; 
	php	;save mode bits
	rep #mbit+xbit	;force to full native
	longa on
	longi on
	ldx #papread
	ldy #^papread	;we didn't get any data so issue
	jsl RamDispatch	;new read
	plp	;restore previous mode bits
	bra readdone	;and we are done
okread		; 
	lda #0001	;show we have data
	sta readavail
readdone		; 
	rtl	;and return

	ENTRY getchar	; EXPORT -> ENTRY  **TGH
getchar		;get data from buffer
	sep #mbit	;8 bit a
	longa off
	rep #xbit	;16 bit x,y
	longi on
	ldy readindex	;get current buffer	pointer
	lda readbuf,y	;and get actual data
	pha	;and save for later
	iny	;bump index
	sty readindex	;and save for next call
	cpy papread+9	;see if equal to size of buffer read
	bne getchok	;nope so all is ok
	stz readavail	;no more data available
	jsl newread	;issue a new read
getchok		; 
	pla	;get char read
	rts	;and return

	ENTRY removeconn	; EXPORT -> ENTRY  **TGH
removeconn	rep #mbit+xbit
	longa on
	longi on
	pha
	lda #qtrremove	;set up for remove
	sta rpmconntimer
	ldx #rpmconntimer
	ldy #^rpmconntimer
	jsl RamDispatch
	pla
	rts	;and return

	ENTRY removeflush	; EXPORT -> ENTRY  **TGH
removeflush	rep #mbit+xbit
	longa on
	longi on
	pha
	lda #qtrremove
	sta flushtimer
	ldx #flushtimer
	ldy #^flushtimer
	jsl RamDispatch
	pla
	rts

	ENTRY installconn	; EXPORT -> ENTRY  **TGH
installconn	rep #mbit+xbit
	longa on
	longi on
	pha
	lda #qtrinstall
	sta rpmconntimer
	lda ctime	;total time before connection closes
	bne @L1
	lda #$FFFF
@L1	sta rpmconntimer+insqtr_count
	ldx #rpmconntimer
	ldy #^rpmconntimer
	jsl RamDispatch
	pla
	rts

	ENTRY installflush	; EXPORT -> ENTRY  **TGH
installflush	rep #mbit+xbit
	longa on
	longi on
	pha
	lda #qtrinstall
	sta flushtimer
	lda ftime	;total time before flush happens
	sta flushtimer+insqtr_count
	ldx #flushtimer
	ldy #^flushtimer
	jsl RamDispatch
	pla
	rts

	ENDP

;
;	rpm.conn
;

bufferchar	PROC	;buffers chars for output

	inc critflag	;we are critical here
	rep #xbit+mbit	;and 16 bit x,y
	longi on
	longa on
	pei crzp+2
	pei crzp	;save zp usage
	ldx ftime	;set up flush time again
	stx flushtimer+insqtr_count
	ldx ctime	;and overall connection time out
	bne @L1
	ldx #$FFFF
@L1	stx rpmconntimer+insqtr_count
	pha	;save char to send
	lda currbuf	;get current buf pointer
	sta crzp	;set up zero page
	lda currbuf+2
	sta crzp+2
	ora crzp	;see if no curr buf
	bne normbuf	;we have a buffer so put char in
	pla	;recover char
	sta ovflwch	;and save it
	sep #mbit
	longa off
	lda #$ff	;set high byte to indicate overflow
	sta ovflwch+1
	bra notfull	;and exit
normbuf		; 
	pla	;recover char
	sep #mbit	;force 8 bit a
	longa off
	ldy writeindex	;get current offset
buffernorm		; 
	sta [crzp],y	;save char in currbuf
setindex		; 
	iny	;bump index
	sty writeindex
	cpy #maxwrite+link	;see if buffer full
	bcc notfull	;not full yet
	jsl RamForbid	;dont get interrupted here
	jsr packetout	;send the packet
	jsr nextpkt	;get next avail packet
	jsl RamPermit
notfull		; 
	plx	;recover zero page
	stx crzp
	plx
	stx crzp+2
	dec critflag	;no longer critical	code
	rts	;and return

packetout		;here we write the packet
	rep #mbit+xbit
	longa on
	longi on
	pei lpzp+2
	pei lpzp
	lda papwrite+pwrite_bptr ;see if packet	already being written
	ora papwrite+pwrite_bptr+2
	beq usecrzp	;nope so use this one
* otherwise append this to list of packets to write
	lda #outhd
	sta lpzp
	lda #^outhd
	sta lpzp+2	;set up head
normappend		; 
	ldy #0002	;set up for high word index
nmaplp		; 
	lda [lpzp],y	;get high word of link
	tax
	ora [lpzp]	;see if link points	to nil
	beq foundapp	;yes so exit
	lda [lpzp]	;get low link again
	sta lpzp	;and set up for next time
	stx lpzp+2	;set high word
	bra nmaplp	;and keep going
foundapp		; ;we found it so append
	lda crzp	;get low word of item to append
	sta [lpzp]	;save it in list
	lda crzp+2
	sta [lpzp],y	;and save high word
	lda #0000
	sta [crzp]	;clear link of item	appended
	sta [crzp],y
	iny	;move to length field
	iny
	lda writeindex
	sta [crzp],y	;save length for later
	bra exitpktout	;and leave
usecrzp		; ;send current pkt	out
	clc
	lda crzp
	adc #link	;skip link stuff
	sta papwrite+pwrite_bptr ;show that we are writing
	lda crzp+2
	adc #0000
	sta papwrite+pwrite_bptr+2 ;this packet
	sec
	lda writeindex	;get length of packet
	sbc #link	;subtract link offset
	sta papwrite+pwrite_blen
	stz papwrite+pwrite_eofflag-1 ;this is not last packet
	jsr removeflush	;take out flush timer
	jsr removeconn	;and connection timer since writing
;	inc flushphase	;MSD: in the middle of writing
	lda #packetcomp
	sta papwrite+4	;set up completion routine
	ldx #papwrite
	ldy #^papwrite	;and do the write
	jsl RamDispatch	;completes to packetcomp
exitpktout		; 
	pla	;recover zp
	sta lpzp
	pla
	sta lpzp+2
	rts

nextpkt		;gets next avail pkt
	rep #mbit+xbit
	longa on
	longi on
	stz writeready	;assume not ready to write
	lda availhd	;get next avail buffer
	sta currbuf
	sta crzp
	lda availhd+2
	sta currbuf+2
	sta crzp+2
	ora crzp	;see if we are getting nothing
	beq getout	;nothing in list
	lda #$04	;tell them we can receive more data
	sta writeready
	ldy #link	;skip link stuff
	sty writeindex
	ldy #0002
	lda [crzp]	;get low word of next avail
	sta availhd	;becomes first avail
	lda [crzp],y
	sta availhd+2
getout		; 
	rts

	ENTRY packetcomp	; EXPORT -> ENTRY  **TGH
packetcomp		;comes here	when packetout done
	clc	;make sure native mode
	xce
	phk
	plb	;set data bank to code bank
	rep #mbit+xbit
	longa on
	longi on
	jsr removeflush	;take flush timer out as precaution
	jsr installflush	;and install it since write now waiting
	jsr removeconn	;take conn timer out as precaution
	jsr installconn	;and put back in since waiting again
	lda papwrite+pwrite_bptr ;get node that	is now free
	sec
	sbc #link	;get back to pointer
	sta crzp
	lda papwrite+pwrite_bptr+2
	sbc #0000
	sta crzp+2
	ldy #0002
	lda availhd	;put packet on avail list
	sta [crzp]
	lda availhd+2
	sta [crzp],y
	lda crzp
	sta availhd
	lda crzp+2
	sta availhd+2
	lda papwrite+pwrite_result ;get result
	bne nowait	;there was an error	don't send more
	stz papwrite+pwrite_bptr ;show no pkt in progress
	stz papwrite+pwrite_bptr+2
	lda outhd	;get next waiting buffer
	sta crzp
	lda outhd+2
	sta crzp+2
	ora crzp	;see if we are getting nothing
	beq nowait	;nothing in list
	lda [crzp]	;take crzp out of list
	sta outhd
	lda [crzp],y
	sta outhd+2
	iny
	iny
	lda writeindex	;save previous write index
	pha
	lda [crzp],y	;get length of packet
	sta writeindex	;and set length
	jsr packetout	;send packet in crzp
	pla	;recover previous write index
	sta writeindex
nowait		; 
	lda currbuf	;see if we already have a buf
	ora currbuf+2
	bne indxok	;yes so no need to get new one
	jsr nextpkt	;get next avail pkt
	lda ovflwch	;see if we got overflow char
	beq indxok	;nope
	jsr bufferchar	;yes so put in current buffer
	rep #mbit+xbit
	longa on
	longi on
	stz ovflwch
indxok		; 
	lda #25000	;do a 100ms wait
indxok1		; 
	dec a	;to speed up the printer!
	bne indxok1
;	dec flushphase	;done with write
	rtl	;and return

	ENTRY flushcomp	; EXPORT -> ENTRY  **TGH
flushcomp		;comes here	when we want to flush
	clc	;make sure native mode
	xce
	phk
	plb	;set data bank to code bank
	rep #mbit+xbit
	longa on
	longi on
	lda critflag	;see if bufferchar active
	bne newflush	;yes so dont flush them
	ldy writeindex	;see if anything to	flush
	cpy #link
	beq newflush	;no so re-install flush (& reset phase)
	lda currbuf
	sta crzp	;tell it flush this	buffer
	lda currbuf+2
	sta crzp+2
	jsr packetout	;otherwise send out	packet
	jsr nextpkt	;get ready with next packet
	rtl	;and return
;newflush0
;	dec flushphase	; nothing left to flush
newflush 
	jsr installflush	;nothing to send so	try later
	rtl

	ENTRY conncomp	; EXPORT -> ENTRY  **TGH
conncomp		;       ;comes here	when connection times out
	clc
	xce
	phk
	plb	;set data bank to code bank
	rep #mbit+xbit
	longa on
	longi on

	lda rpmconntimer+insqtr_result
	cmp #qtrcanceled
	beq @L1

	lda ctime	;total time before connection closes
	bne @L1
	lda #$FFFF
	sta rpmconntimer+insqtr_count
	lda #qtrinstall
	sta rpmconntimer
	ldx #rpmconntimer
	ldy #^rpmconntimer
	jsl RamDispatch
	rtl

@L1	jsr removeconn	;remove connection timer
	jsr removeflush	;and flush timer
	stz papwrite+pwrite_blen
	lda #$0100	;set eofflag
	sta papwrite+pwrite_eofflag-1
	stz writeready	;not ready to write	any more
	inc closephase	;we are now closing
	lda #closec1	;close connection phase 1
	sta papwrite+4	;set completion routine
	ldx #papwrite
	ldy #^papwrite	;and do the write
	jsl RamDispatch	;completes to packetcomp
	rtl

closec1		; 
	clc	;make sure native mode
	xce
	phk
	plb	;set data bank to code bank
	rep #mbit+xbit
	longa on
	longi on
	lda #rpmclosecomp	;complete to open phase 2
	sta papclose+4	;by having close calling openph2
	ldx #papclose	;first close any previous connection
	ldy #^papclose
	jsl RamDispatch
	rtl	;and return

	ENTRY rpmclosecomp	; EXPORT -> ENTRY  **TGH
rpmclosecomp		;       
	clc	;make sure native mode
	xce
	phk
	plb	;set data bank to code bank
	rep #mbit+xbit
	longa on
	longi on
	stz papwrite+pwrite_bptr ;show no pkt in progress
	stz papwrite+pwrite_bptr+2
	stz closephase	;we are now closed
	stz rpmopenflag	;not open any more
	lda #$0004	;tell them we can write again!
	sta writeready	;even though connection is closed
	lda idtag
	pha
	ldx #$1102	;call disposeall
	jsl $e10000	;make the call
	rtl

	ENDP

pmclosesession	PROC

	jsr CheckAsync	; 7-Oct-91 MSD
	
	longa on
	longi on	;comes here full 16	from dispatcher
	phk
	plb	;set data bank to code bank

	lda #qtrcancel	;set up for cancel
	sta rpmconntimer
	ldx #rpmconntimer
	ldy #^rpmconntimer
	jsl RamDispatch

	ldy #$02	;get pointer to entity
	lda #0
	sta [cmdlist],y
	rtl

	ENDP


;
; PMFlushSession ($48)
;
; $00    Async flag    Byte    $00  (Synchronous only)
; $01    Command       Byte    $48
; $02    Result Code   Word    <--
;
; (Always returns $0000, no error)
;
; MSD: This call causes data to be flushed immediately by causing the
; flush timer to complete immediately.
;
pmflushsession	proc

	jsr CheckAsync	; 7-Oct-91 MSD
	
	longa on
	longi on	;comes here full 16	from dispatcher
	phk
	plb	;set data bank to code bank

; MSD: This didn't work.  When I tried doing a flush to the .RPM driver,
; it just hung (I didn't have time to investigate, but I suspect that
; the phase flag wasn't getting set right when there was no data to flush).
;
;	jsr removeflush	; don't let timer expire
;	inc flushphase	; we're busy doing a flush!
;	
;	lda ftime	; get current flush interval
;	pha	; and save it
;	lda #1	; do flush as fast as possible
;	sta ftime
;	
;	jsl flushcomp	; start flushing stuff
;loop
;	lda flushphase	; wait for flush to finish
;	bne loop
;	
;	pla	; get old flush time
;	sta ftime	; and restore it

	lda #qtrcancel	;set up for cancel
	sta flushtimer
	ldx #flushtimer
	ldy #^flushtimer
	jsl RamDispatch

	ldy #$02	;get pointer to result
	lda #0	;return no error
	sta [cmdlist],y
	rtl

	endp
	

;-------------------------------------------------------------------------------
;
;	rpm.vars
;

rpmdatablock	PROC

	ENTRY	rpmzerodata,\
		rpmopenflag,\
		readavail,\
		readindex,\
		writeready,\
		writeindex,\
		closephase,\
		currbuf,\
		outhd,\
		availhd,\
		ovflwch,\
		critflag,\
		idtag,\
		rpmzeroend,\
		rpmflag,\
		ftime,\
		ctime,\
		nbufs,\
		rpmconntimer,\
		flushtimer,\
		papopen,\
		papclose,\
		papwrite,\
		papread,\
		poststart,\
		postend,\
		statbuf,\
		writebuf,\
		readbuf,\
		prname

rpmzerodata		;start zeroing here   on init

rpmopenflag	DS.B 2	;=0 if not open
readavail	DS.B 2
readindex	DS.B 2
writeready	DS.B 2
writeindex	DS.B 2
closephase	DS.B 2
currbuf	DS.B 4
outhd	DS.B 4
availhd	DS.B 4
ovflwch	DS.B 2
critflag	DS.B 2
idtag	DS.B 2
;flushphase	ds.b 2	; <>0 if still flushing data (MSD)

rpmzeroend		; ;and stop zeroing	here

rpmflag	DS.B 2
ftime	DC.W 2	;time before flush
ctime	DC.W 120	;inactivity time before close
nbufs	DS.B 2


rpmconntimer		; 
	DC.B $80,$04,$00,$00
	DC.L conncomp
	DS.B 8	;the rest is set up	by code or internal

flushtimer		; 
	DC.B $80,$04,$00,$00
	DC.L flushcomp
	DS.B 8


papopen		; 
	DC.B $80,$23,$00,$00
	DC.L openph3
	DC.B 0
	DC.L prname
	DC.B 1
	DC.L statbuf

papclose		; 
	DC.B $80,$24,$00,$00
	DC.L rpmclosecomp	;completion routine	set by code
	DC.B $00

papwrite		; 
	DC.B $80,$26,$00,$00
	DC.L packetcomp
	DC.B $00
	DC.W 0	;buffer length filled in by code
	DC.L writebuf
	DC.B 0

papread		; 
	DC.B $80,$25,$00,$00
	DC.L rpmreadcomp
	DC.B $00
	DC.W 0	;buffer length filled in by call
	DC.L readbuf	;put data read in here
	DC.B 0	;end of file flag

poststart		; 
	DC.B '%%IncludeProcSet IWEm 1 1'
	DC.B $0d
	DC.B '_WBJ_ '
postend		; 

statbuf	DS.B 128	;maximum status buffer size

writebuf	DS.B 512+8

readbuf	DS.B 512

prname	DS.B maxname	;maximum size name we can have

	ENDP



	end
	
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/ATRam/ATPatch/ZIP/ZIP.aii b/IIGS.601.SRC/GS.OS/Drivers/ATRam/ATPatch/ZIP/ZIP.aii
new file mode 100644
index 0000000..d878187
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/ATRam/ATPatch/ZIP/ZIP.aii
@@ -0,0 +1 @@
+*******************************************************************************
*
* File: ATPATCH
*
* This file contains the 65816 implementation of ZIP for the Apple IIGS.
*
* ATPATCH was originally responsible for loading ATINIT under prodos 16.
* It also contained all the patches for the ROM code.
*
* Copyright Apple Computer, 1986
* Original Author: Greg Seitz
*                  18-Jun-86
*                  ver 1.2
*
*******************************************************************************
*
* Modification History
*
*
* v1.2
*
* 10/28/86    gws	- added old rom nbp patch the second entry point
*	  after zip will install the required patches to
*	  the old version 1.0 roms that contain a bug in
*	  NBP case comparisions
*
* 12/8/87     gws	- corrected problem in getzonelist where a large
*	  number of zones would not be counted properly
*	  when we sent more than 1 request.
*
* v1.3
*
* 8/18/88    TGH	- Started working on changes for the RevD ROM
*
* 14-Dec-90  MSD	Added new call, GetNetInfo ($3F) and placeholders
*	for GetZoneList2 ($3C), GetLocalZones ($3D),
*	SetMyZone ($3E).
*
* 06-Feb-91  MSD	Removed the new calls added on 14-Dec-90 since Phase II
*	support will be delayed until Dudley ships.
*
*******************************************************************************

	MACHINE M65816
	PRINT GEN

	INCLUDE '::ASP:atp.equates.inc'
	INCLUDE '::ASP:global.equates.inc'

zipNotExtended	equ $0604	; network not extended
zipBufTooSmall	equ $0605	; (multicast) buffer too small


zipinstall	PROC EXPORT
	import	GetZoneList2,GetLocalZones,SetMyZone,GetNetInfo
	import	gzl2cmdlist,glzcmdlist
	
	jml install

install		; ;init and install	driver
	rep #mbit+xbit
	longa on
	longi on

	phb
	phk	;data is in same bank as code
	plb
	lda softreset	;get the current reset vector
	sta oldreset	;and store internally
	lda softreset+2
	sta oldreset+2	;now we have the old vector
	lda jzourreset	;store a jml ourreset
	sta softreset	;into vector
	lda jzourreset+2
	sta softreset+2
	jsr zipinit	;zero out stuff
	
; Install original ZIP calls
	ldx #ourcmds	;get our command table
	ldy #$d600+($1a*4)	;table starts at $d600
	lda #endcmds-ourcmds-1 ;move this many bytes
	mvn ourcmds,$e10000	;to bank $e1
	
; Install AppleTalk Phase 2 calls
	ldx #ourcmds2	;get our command table
	ldy #$d600+($3C*4)	;table starts at $d600
	lda #endcmds2-ourcmds2-1 ;move this	many bytes
	mvn ourcmds2,$e10000 ;to bank $e1

	plb
	rtl

jzourreset	jml ourreset

zipinit		; 
	stz zerodata	;start with a zero
	ldx #zerodata	;move from here
	ldy #zerodata+1	;move to here (carrys zeros forward)
	lda #zeroend-zerodata-2 ;number of bytes to clear out
	mvn zerodata,zerodata

	stz gzl2cmdlist	; these are in separate data areas
	stz gzl2cmdlist+2
	stz glzcmdlist
	stz glzcmdlist+2
	
	rts

ourcmds		; 

	DC.A getmyzone	;$1a
	DC.B zipzplen
	DC.A getzonelist	;$1b
	DC.B zipzplen

endcmds		; 

ourcmds2
	dc.a GetZoneList2	; $3C
	dc.b 0	; no zero page used
	dc.a GetLocalZones	; $3D
	dc.b 0	; no zero page used
	dc.a SetMyZone	; $3E
	dc.b 0	; no zero page used
	dc.a GetNetInfo	; $3F
	dc.b 0	; no zero page used
endcmds2

ourreset		; ;should come here	during reset
	php	;save mode bits
	phb	;and databank
	jsl oldreset	;let lower protocol	get called first
	phk	;set up data bank
	plb
	jsr zipinit	;and re-init zip
	plb	;restore bank
	plp	;and mode bits
	rtl	;and return to our caller

oldreset		; ;this code gets old   reset vector
	jml $000000	;dummy code

	entry setup
setup		; 
	jsl RamForbid
	rep #mbit+xbit
	longa on
	longi on
	phk
	plb
	rts


*
* getzonelist
* gets a list of zones for the user
* from the user supplied bridge
*
getzonelist		; 
	jsr setup	;sets up stuff for entry
	longa on
	longi on
	lda gzlcmdlist	;see if call in progress
	ora gzlcmdlist+2
	beq callok	;no
	lda #zipinuse	;error
	jmp accumexit	;and leave
callok		; 
	lda cmdlist
	sta gzlcmdlist
	lda cmdlist+2	;mark call as in use
	sta gzlcmdlist+2
	ldy #$0a	;offset to buffer pointer
	lda [cmdlist],y
	sta gzlrqbds+bds_bufptr
	iny
	iny
	lda [cmdlist],y
	sta gzlrqbds+bds_bufptr+2
	ldy #$08	;move to length field
	lda [cmdlist],y
	sta gzlrqbds+bds_bufsize ;set up buffer	size
	ldy #$0f	;get index of start
	lda [cmdlist],y
	xba	;put in mac format
	sta gzlrq+atprq_user+2
	ldy #$11	;get retry interval	and count
	lda [cmdlist],y
	sta gzlrq+atprq_interval
	ldy #$0e	;get bridge node to	use
	lda [cmdlist],y
	sep #mbit	;use 8 bit a
	longa off
	sta gzlrq+atprq_dnode
	rep #mbit
	longa on
	stz icount	;none have been counted yet
	sep #mbit+xbit
	longa off
	longi off
	lda #$01	;reset bitmap
	sta gzlrq+atprq_bitmap
	rep #mbit+xbit
	longa on
	longi on
	lda #zipbusy	;get pap busy flag
	ldy #$02	;get offset to result
	sta [cmdlist],y	;and save it
	ldx #gzlrq
	ldy #^gzlrq
	jsl RamDispatch
	jml RamPermit	;re-enable ints and	leave

gzlcomp		; ;comes here when above call completes
	clc
	xce
	rep #mbit+xbit
	longa on
	longi on
	lda gzlrq+2	;get result
	beq compok	;ok
	lda #zipnotfound
	sta status	;set error code
	lda icount	;get count
	bra errx
compok		; 
	lda gzlrqbds+bds_actlen ;see if got overflow
	bpl checkend	;no so see if done normally
	ldy #0000
	tyx	;set x,y to zero for use in loop
	lda gzlrqbds+bds_bufptr ;get pointer to	current buf position
	sta cmdlist
	lda gzlrqbds+bds_bufptr+2
	sta cmdlist+2
ovlp		; 
	lda [cmdlist],y	;get length of item
	and #$00ff	;strip high byte
	clc
	pha
	tya
	adc $1,s	;add to current index
	ply
	tay
	cpy gzlrqbds+bds_bufsize ;see if beyond	size of buffer
	bcs ovdone	;yes so we are done	counting good stuff
	inx	;bump good counter
	iny	;move to next length field
	bra ovlp	;and keep going
ovdone		; 
	txa
	xba	;put in mac format
	sta gzlrqbds+bds_user+2 ;set correct count for this call
	lda #zipoverflow	;more names than buffer
	sta status
	bra yesend	;and do exit stuff
checkend		; ;see if we are at	the end
	lda gzlrqbds+bds_user
	beq morenames	;not at end yet
	stz status	;no error
yesend		; ;we are done gathering names
	clc
	lda gzlrqbds+bds_user+2 ;get count
	xba	;put in our format
	adc icount	;internal count
errx		; ;error so leave
	ldx gzlcmdlist	;get their command list
	stx cmdlist
	ldx gzlcmdlist+2
	stx cmdlist+2
	ldy #$13
	sta [cmdlist],y	;and return number of zones
	stz gzlcmdlist
	stz gzlcmdlist+2
	jsl RamForbid	;balance permit in exit
	lda status	;get error code
	jmp accumexit	;and leave
morenames		; ;we still have more   names to get
	clc
	lda gzlrqbds+bds_user+2 ;add count from	this call
	xba
	pha	;save a copy of it in our format
	adc icount	;get internal count
	sta icount	;and save new total
	clc
	lda gzlrq+atprq_user+2 ;get running position of zones
	xba	;put in our format
	adc $1,s	;add to count from this call
	xba	;put result in mac format
	sta gzlrq+atprq_user+2 ;store new position to scan from
	plx	;discard junk
	lda gzlrqbds+bds_actlen ;get actual amount of buffer used
	pha	;save temporarily
	clc
	adc gzlrqbds+bds_bufptr
	sta gzlrqbds+bds_bufptr
	lda #0000	;add in carry if any
	adc gzlrqbds+bds_bufptr+2
	sta gzlrqbds+bds_bufptr+2
	sec	;set up for subtract
	lda gzlrqbds+bds_bufsize ;get current buffer remaining
	sbc $1,s	;and subtract amount just used
	plx	;discard junk
	sta gzlrqbds+bds_bufsize ;save new amount remaining
	sep #mbit+xbit
	longa off
	longi off
	lda #$01	;reset bitmap
	sta gzlrq+atprq_bitmap
	rep #mbit+xbit
	longa on
	longi on
	ldx #gzlrq	;issue a new request for another packet
	ldy #^gzlrq
	jml RamDispatch	;make the call

asyncexit		; 
	rep #mbit+xbit
	longa on
	longi on

	lda #zipbusy	;get pap busy flag
	
	entry accumexit
accumexit		; ;exit with what's in accum
	rep #mbit+xbit
	longa on
	longi on
	ldy #$02	;get offset to result
	sta [cmdlist],y	;and save it
	jsl RamPermit	;back down ints

	sep #mbit+xbit
	longa off
	longi off

	ora #00	;see if done
	bpl chkiocmp	;yep
goback		; 
	rep #mbit+xbit
	rtl	;otherwise just exit

chkiocmp		; 
	sep #mbit+xbit
	longa off
	longi off

	lda [cmdlist]	;see what type of command
	bpl goback	;sync so exit
	ldy #$02	;offset to result
	lda [cmdlist],y	;get result
	bmi goback	;still busy
	ldy #$04	;offset to completion
callcomp		; 
	rep #mbit+xbit
	longa on
	longi on

	lda [cmdlist],y	;get low word completion
	sta execaddr
	iny
	iny
	lda [cmdlist],y	;get high word completio`
	sta execaddr+2
	ora execaddr	;see if zero
	beq goback	;yep, so nothing to	call
	jmp RamGoComp	;call completion routine

getmyzone		; ;gets users zone
	jsr setup
	longa on
	longi on
	lda gmzcmdlist
	ora gmzcmdlist+2	;see if call in progress
	beq callok1	;nope so ok
	lda #zipinuse	;error
	jmp accumexit	;and leave
callok1		; 
	lda cmdlist
	sta gmzcmdlist
	lda cmdlist+2
	sta gmzcmdlist+2
	ldx #getinfo	;make getinfo call
	ldy #^getinfo
	jsl RamDispatch
	lda abridge	;get bridge number
;
; 09-Jul-91 MSD: If the router node number is zero, immediately return ZIPNotFound
;
	and #$FF	; get just A-Bridge
	bne @router	; keep going if we have a router
	lda #zipnotfound
	jmp accumexit	; no zone because there's no router
@router
;
; end of 09-Jul-91 MSD change
;
	sep #mbit+xbit	;go to 8 bit mode
	longa off
	longi off
	sta gmzrq+atprq_dnode ;use as destination node
	lda #01	;set bitmap
	sta gmzrq+atprq_bitmap
	rep #mbit+xbit	;back to full 16
	longa on
	longi on
	ldy #$0c	;offset to retry interval and count
	lda [cmdlist],y	;get both
	sta gmzrq+atprq_interval ;and store them in list
	ldy #$08	;offset to buffer pointer
	lda [cmdlist],y	;get low word
	sta gmzrqbds+bds_bufptr ;save low word
	iny	;move to high word
	iny
	lda [cmdlist],y
	sta gmzrqbds+bds_bufptr+2
	lda #zipbusy	;show that zip is currently busy
	ldy #$02	;offset to result
	sta [cmdlist],y
	ldx #gmzrq
	ldy #^gmzrq	;issue call
	jsl RamDispatch
	jml RamPermit	;let atalk ints in again, and exit

gmzcomp		; 
	clc
	xce
	rep #mbit+xbit
	longa on
	longi on
	lda gmzrq+2	;get result from call
	beq exitgmz	;exit good
	lda #zipnotfound	;no response from bridge
exitgmz		; 
	pha	;save error code
	lda gmzcmdlist	;get users command list
	sta cmdlist
	lda gmzcmdlist+2
	sta cmdlist+2
	stz gmzcmdlist
	stz gmzcmdlist+2	;let user make new calls
	jsl ramforbid
	pla	;recover error code
	jmp accumexit	;and leave with error in a

zerodata		; 

icount	DS.B 2
gzlcmdlist	DS.B 4
gmzcmdlist	DS.B 4
	entry status
status	DS.B 2

zeroend		; 


gzlrq	DC.B $80,$12,$00,$00 ;cnt, cmd, result
	DC.L gzlcomp	;io completion
	DC.B $00	;our socket (listener socket)
	DC.B $00,$00	;their network
	DC.B $00	;their node
	DC.B $06	;their skt
	DC.B $00,$00	;their tid
	DC.W 0	;buffer to send size
	DC.L 0	;no buffer to send
	DC.B $08,$00,$00,$00 ;user bytes
	DC.B $01	;need 1 response bds
	DC.L gzlrqbds	;bds for input
	DC.B 0	;flag
	DC.B 0	;user sets this
	DC.B 0	;'            '
	DC.B $01	;bitmap for request
	DC.B $00
	DC.B $00,$00,$00,$00,$00,$00 ;reserved fields

gzlrqbds	DC.W 0	;max buf size
	DC.L 0	;start code here   
	DC.B $00,$00,$00,$00 ;user bytes returned here
	DC.B $00,$00	;and actual length received

	entry getinfo,thisnet,abridge
getinfo	DC.B $00,$02,$00,$00 ;command for getinfo
	DS.B 4	;comp routine
thisnet	DS.B 2	;network number
abridge	DS.B 1	;current bridge number
	DS.B 4	;machine id and version and node

gmzrq	DC.B $80,$12,$00,$00 ;cnt, cmd, result
	DC.L gmzcomp	;io completion
	DC.B $00	;our socket (listener socket)
	DC.B $00,$00	;their network
	DC.B $00	;their node
	DC.B $06	;their skt
	DC.B $00,$00	;their tid
	DC.W 0	;buffer to send size
	DC.L 0	;no buffer to send
	DC.B $07,$00,$00,$00 ;user bytes
	DC.B $01	;need 1 response bds
	DC.L gmzrqbds	;bds for input
	DC.B 0	;flag
	DC.B 0	;user sets this
	DC.B 0	;'            '
	DC.B $01	;bitmap for request
	DC.B $00
	DC.B $00,$00,$00,$00,$00,$00 ;reserved fields

gmzrqbds	DC.W 33	;max buf size
	DC.L 0	;start code here   
	DC.B $00,$00,$00,$00 ;user bytes returned here
	DC.B $00,$00	;and actual length received

	ENDP


;----------------------------------------------------------------------
; GetZoneList2
;
; Returns a list of zones on the network.  This	call differs from
; GetZoneList in that the user supplies	a zero-filled field (zipWork)
; instead of a bridge node number so that it can send to a router on
; a different network.
;----------------------------------------------------------------------
GetZoneList2	proc	export
		import	gzl2cmdlist,setup,accumexit
		import	GetZonesCommon,CommonComp

pb		record	0
async		ds.b	1
command		ds.b	1
result		ds.w	1
completion	ds.l	1
bufLength	ds.w	1
bufPointer	ds.l	1
startIndex	ds.w	1
retryInterval	ds.b	1
retryCount	ds.b	1
zonesReturned	ds.w	1
zipWork		ds.l	1		; holds	address	of aRouter
reserved	ds.l	1		; ???
		endr

		jsr	setup

		lda	gzl2cmdlist
		ora	gzl2cmdlist+2	; a call already in progress?
		beq	callok		; no, so handle	the call
		lda	#zipinuse	; only one of these calls at a time
		jmp	accumexit	; complete immediately
callok

		lda	cmdlist		; copy pointer to parameter block
		sta	gzl2cmdlist	; to indicate call in progress
		lda	cmdlist+2
		sta	gzl2cmdlist+2

		ldx	#<sendRequest	; set up pointer to ATP	SendRequest PB
		jmp	GetZonesCommon	; jump into common processing


sendRequest				; ATP send request for GetZoneList
		DC.B	$80,$12		; async	ATPSendRequest
reqResult	dc.w	0		; result
		DC.L	CommonComp	;io completion
		DC.B	$00		;our socket (listener socket)
reqDestNet	DC.B	$00,$00		;their network
reqDestNode	DC.B	$00		;their node
		DC.B	$06		;their skt
		DC.B	$00,$00		;their tid
		DC.W	0		;buffer	to send	size
		DC.L	0		;no buffer to send
reqUser		DC.B	$08,$00,$00,$00	;user bytes
		DC.B	$01		;need 1	response buffer
		DC.L	reqBDS		;bds for input
		DC.B	0		;flag
reqInterval	DC.B	0		;retry interval
		DC.B	0		;retry count
reqBitmap	DC.B	$01		;bitmap	for request
		DC.B	$00		; number of responses received
		DC.B	$00,$00,$00,$00,$00,$00	;reserved fields

reqBDS
reqBDSLength	DC.W	0		;max buf size
reqBDSBuf	DC.L	0		;start code here   
reqBDSUser	DC.B	$00,$00,$00,$00	;user bytes returned here
reqBDSActLen	DC.B	$00,$00		;and actual length received

count		ds.w	1		; running count	of zones returned

		entry	gzl2cmdlist
gzl2cmdlist	ds.l	1		; pointer to active command

		endp



;----------------------------------------------------------------------
; GetLocalZones
;
; Returns a list of zones on the node's own network.  Since LocalTalk
; is a non-extended network, this call degenerates to GetMyZone.
;----------------------------------------------------------------------
GetLocalZones	proc	export
		import	setup,accumexit
		import	GetZonesCommon,CommonComp

pb		record	0
async		ds.b	1
command		ds.b	1
result		ds.w	1
completion	ds.l	1
bufferLen	ds.w	1
bufferPointer	ds.l	1
startIndex	ds.w	1
retryInterval	ds.b	1
retryCount	ds.b	1
zonesReturned	ds.w	1
zipWork		ds.l	1		; holds	address	of aRouter
reserved	ds.l	1		; ???
		endr


		jsr	setup

		lda	glzcmdlist
		ora	glzcmdlist+2	; a call already in progress?
		beq	callok		; no, so handle	the call
		lda	#zipinuse	; only one of these calls at a time
		jmp	accumexit	; complete immediately
callok

		lda	cmdlist		; copy pointer to parameter block
		sta	glzcmdlist	; to indicate call in progress
		lda	cmdlist+2
		sta	glzcmdlist+2

		ldx	#<sendRequest	; set up pointer to ATP	SendRequest PB
		jmp	GetZonesCommon	; jump into common processing


;
; Data used by this call
;
sendRequest				; ATP send request for GetZoneList
		DC.B	$80,$12		; async	ATPSendRequest
reqResult	dc.w	0		; result
		DC.L	CommonComp	;io completion
		DC.B	$00		;our socket (listener socket)
reqDestNet	DC.B	$00,$00		;their network
reqDestNode	DC.B	$00		;their node
		DC.B	$06		;their skt
		DC.B	$00,$00		;their tid
		DC.W	0		;buffer	to send	size
		DC.L	0		;no buffer to send
reqUser		DC.B	$09,$00,$00,$00	;user bytes (get local zones call)
		DC.B	$01		;need 1	response buffer
		DC.L	reqBDS		;bds for input
		DC.B	0		;flag
reqInterval	DC.B	0		;retry interval
		DC.B	0		;retry count
reqBitmap	DC.B	$01		;bitmap	for request
		DC.B	$00		; number of responses received
		DC.B	$00,$00,$00,$00,$00,$00	;reserved fields

reqBDS
reqBDSLength	DC.W	0		;max buf size
reqBDSBuf	DC.L	0		;start code here   
reqBDSUser	DC.B	$00,$00,$00,$00	;user bytes returned here
reqBDSActLen	DC.B	$00,$00		;and actual length received

count		ds.w	1		; running count	of zones returned

		entry	glzcmdlist
glzcmdlist	ds.l	1		; pointer to active command

		endp



;----------------------------------------------------------------------
; GetZonesCommon
;
; This is the common code to handle both GetZoneList2 and GetLocalZones
; since	the parameter blocks and the packet structure are the same.
;
; On entry to GetZonesCommon and gzcomplete:
; cmdlist points to the	parameter block	being handled
; X = low byte of address of ATPSendRequest block
;
; Caution: I use absolute,X addressing mode to access the ATPSendRequest
; pb and the BDS.  It requires them to be in the same bank as the code.
; The absolute base address becomes an offset from the address in X
; (which points	the this call's ATPSendRequest).  Be sure to force
; absolute addressing by using the vertical bar	(|) character.
;----------------------------------------------------------------------
GetZonesCommon	proc	export

;
; Define the common parameter block structure
;
pb		record	0
async		ds.b	1
command		ds.b	1
result		ds.w	1
completion	ds.l	1
bufferLen	ds.w	1
bufferPointer	ds.l	1
startIndex	ds.w	1
retryInterval	ds.b	1
retryCount	ds.b	1
zonesReturned	ds.w	1
zipWork		ds.l	1		; holds	address	of aRouter
reserved	ds.l	1		; ???
		endr

;
; Define the common structure of the ATPSendRequest and	BDS
;
req		record	0
		ds.b	2		; async	and command
result		ds.w	1		; result
		ds.l	1		;io completion
		ds.b	1		;our socket (listener socket)
dNet		ds.b	2		;their network
dNode		ds.b	1		;their node
		ds.b	1		;their skt
		ds.b	2		;their tid
		ds.w	1		;buffer	to send	size
		ds.l	1		;address of send buffer
user		ds.b	4		;user bytes
		ds.b	1		;# of response buffers
		ds.l	1		;pointer to bds	for response
		ds.b	1		;flags
retry		ds.b	1		;retry interval
		ds.b	1		;retry count
bitmap		ds.b	1		;bitmap	for request
		ds.b	1		; number of responses received
		ds.b	6		;reserved fields

bds
bdsLen		ds.w	1		;max buf size
bdsBuf		ds.l	1		;start code here   
bdsUser		ds.b	4		;user bytes returned here
bdsActLen	ds.w	1		;and actual length received

count		ds.w	1		; number of zones returned so far

cmdList		ds.l	1		; pointer to active command
		endr

;
; Define the locations on zero page that I use
;
dp		record	0
zones					; temporarily points into returned zone	list
pbPtr		ds.l	1		; points to PB that completed
bdsLen					; word:	temporarily holds bdsLen
compAddr	ds.l	1		; points to completion routine
		endr



		ldy	#pb.bufferLen
		lda	[cmdlist],y	; buffer length	into BDS
		sta	|req.bdsLen,x	; put into this	BDS

		iny
		iny			; Y = pb.bufPointer
		lda	[cmdlist],y	; put buffer pointer into BDS
		sta	|req.bdsBuf,x
		iny
		iny
		lda	[cmdlist],y
		sta	|req.bdsBuf+2,x

		iny
		iny			; Y = pb.startIndex
		lda	[cmdlist],y	; start	index into request packet
		xba			; change to 68000 order
		sta	|req.user+2,x	; startIndex in	ATP user bytes

		iny
		iny			; Y = pb.retryInterval
		lda	[cmdlist],y	; get retry interval and count
		sta	|req.retry,x	; put them in ATP pb

		iny
		iny			; Y = pb.zonesReturned
		lda	#0
		sta	[cmdlist],y	; no zones returned yet
		sta	|req.count,x	; save in easier spot to use
;
; If zipWork is	non-zero, copy it to destination address in ATP	pb.
; We'll actually copy it, then test for zero (and fill in aRouter
; if it	was zero).
;
		ldy	#pb.zipWork
		lda	[cmdlist],y	; get previous router address
		sta	|req.dNet,x
		iny
		iny
		lda	[cmdlist],y	; get node and socket
		sta	|req.dNode,x	; set node and socket
		ora	|req.dNet,x	; was whole thing zero?
		bne	nonzero		; no, so use it	as-is

		phx			; save pointer to SendRequest
		ldx	#getinfo	;make getinfo call
		ldy	#^getinfo
		jsl	RamDispatch
		plx			; restore pointer to SendRequest

		lda	aBridge		; node = aBride
		and	#$00FF		; get byte only
		bne	bridgeOK	; do we	have a bridge?
		lda	#zipnotfound	; no router!
		jmp	accumexit
bridgeOK
		ora	#$0600		; socket = 6 (ZIP socket)
		ldy	#pb.zipWork+2
		sta	[cmdlist],y	; put it back in caller	pb
		sta	|req.dNode,x	; and in ATP pb

		dey
		dey			; Y = pb.zipWork (network field)
		lda	thisNet
		sta	[cmdlist],y	; update caller	pb
		sta	|req.dNet,x	; and ATP pb
nonzero

		lda	#1		; reset	bitmap
		sta	|req.bitmap,x

		lda	#zipbusy	; call in progress result code
		ldy	#pb.result
		sta	[cmdlist],y	; show call in progress

					; X already points to SendRequest PB
		ldy	#^GetZonesCommon ; get our bank	in Y
		jsl	RamDispatch	; start	the send request call
		jml	RamPermit	; re-enable interrupts and exit

		entry	commonComp
CommonComp				; common completion for	GetZone	calls
		clc
		xce			; force	native mode, just in case
		rep	#$30		; force	full 16-bit mode

		ldx	cmdlist		; pick up pointer to ATPSendRequest PB

		lda	|req.result,x	; get result of	send request
		beq	compOK		; no error, do some work
		lda	#zipnotfound	; error, assume	no router
		sta	status		; save result code temporarily
		lda	|req.count,x	; get number of	returned zones
		bra	errorexit	; return an error
compOK
		lda	|req.bdsActLen,x ; was there an	overflow?
		bpl	checkend	; no, see if we	completed normally

		lda	|req.bdsLen,x	; we'll need this in the loop below
		sta	dp.bdsLen	; put it on zero page for loop

		lda	|req.bdsBuf,x	; put request BDS buffer pointer on
		sta	dp.zones	; direct page as pointer
		lda	|req.bdsBuf+2,x
		sta	dp.zones+2

		phx			; save base address

		ldy	#0		; index	into response buffer
		tyx			; number of zones that fit

overflowlp
		lda	[dp.zones],y	; get length of	this zone name
		and	#$00FF		; only a byte
		pha			; save on stack	for add
		clc			; add 1	for length byte
		tya			; get current index in A
		adc	1,s		; add to length	of this	name
					; Note:	A holds	index of last byte of name
		ply			; clean	length from stack
		tay			; move new index into Y
		cmp	dp.bdsLen	; will it fit in buffer
		bge	overflow	; no, so we're done
		inx			; one more zone	fit
		iny			; point	to length byte of next name
		bra	overflowlp	; try again with this zone
overflow
		txa			; get number of	zones that actually fit
		xba			; put it in 68000 order
		plx			; recover pointer to ATPSendRequest
		sta	|req.bdsUser+2,x ; pretend that's all router returned
		lda	#zipoverflow	; more returned	than could fit
		sta	status		; remember the error
		bra	yesend		; and complete the call
checkend
		lda	|req.bdsUser,x	; was the LastFlag set (no more	zones)?
		beq	morenames	; no, go get some more
		stz	status		; that was it, done with no error
yesend
		clc
		lda	|req.bdsUser+2,x ; get number of zones this packet
		xba			; put in 65xxx order
		adc	|req.count,x	; plus number of previous zones
errorexit
		ldy	|req.cmdList,x	; set up pointer to our	parameter block
		sty	cmdlist
		ldy	|req.cmdList+2,x
		sty	cmdlist+2
		ldy	#pb.zonesReturned
		sta	[cmdlist],y	; update number	of zones returned

		stz	|req.cmdList,x	; no more call in progress
		stz	|req.cmdList+2,x

		jsl	RamForbid	; balance the RamPermit	in accumexit
		lda	status
		jmp	accumexit	; return the saved error and complete
morenames
		clc
		lda	|req.bdsUser+2,x ;add count from this call
		xba			; in 65xxx order
		pha			;save a	copy of	it in our format
		adc	|req.count,x	;add to	total returned
		sta	|req.count,x	;and save new total
		clc
		lda	|req.user+2,x	;get running position of zones
		xba			;put in	our format
		adc	$1,s		;add to	count from this	call
		xba			;put result in mac format
		sta	|req.user+2,x	;store new position to scan from
		ply			;discard junk
		lda	|req.bdsActLen,x ;get actual amount of buffer used
		pha			;save temporarily
		clc
		adc	|req.bdsBuf,x
		sta	|req.bdsBuf,x
		lda	#0000		;add in	carry if any
		adc	|req.bdsBuf+2,x
		sta	|req.bdsBuf+2,x
		sec			;set up	for subtract
		lda	|req.bdsLen,x	;get current buffer remaining
		sbc	$1,s		;and subtract amount just used
		ply			;discard junk
		sta	|req.bdsLen,x	;save new amount remaining
		lda	#1		; reset	bitmap
		sta	|req.bitmap,x
					; X already points to SendRequest PB
		ldy	#^GetZonesCommon ; get our bank	in Y
		jml	RamDispatch	;make a	call for more data

		endp



;----------------------------------------------------------------------
; SetMyZone
;
; Allows a node	on an extended network to specify which	of its local
; zones	it wishes to belong to.	 Since LocalTalk is non-extended, this
; call returns an error, zipNotExtended	($0604).
;----------------------------------------------------------------------
SetMyZone	proc	export

pb		record	0
async		ds.b	1
command		ds.b	1
result		ds.w	1
completion	ds.l	1
bufferPointer	ds.l	1		; points to P-String
		endr

;
; Fall into GetNetInfo to return a zipNotExtended error
;
		endp



;----------------------------------------------------------------------
; GetNetInfo
;
; 
; Returns network information about an extended	network.  Since]
; LocalTalk is non-extended, this call returns an error, zipNotExtended
; ($0604).
;----------------------------------------------------------------------
GetNetInfo	proc	export
		import	setup,accumexit

pb		record	0
async		ds.b	1
command		ds.b	1
result		ds.w	1
completion	ds.l	1
requestZone	ds.l	1
zipFlags	ds.w	1
netLow		ds.w	1
netHigh		ds.w	1
multiLength	ds.w	1		; length of multicast address buffer
multiBuffer	ds.l	1		; points to multicast address buffer
retryInterval	ds.b	1
retryCount	ds.b	1
multiActLen	ds.w	1		; returns actual length	of multicast address
defaultZone	ds.l	1		; points to buffer for default zone name
;reserved   ds.l 1  ; ??? Do we	need this ???
		endr

		jsr	setup

		lda	#zipNotExtended	; this call valid only for extended networks

		jmp	accumexit	; return the error, call completion

		endp

	END
	
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/ATRam/ATStart/ATP.equates b/IIGS.601.SRC/GS.OS/Drivers/ATRam/ATStart/ATP.equates
new file mode 100644
index 0000000..12cf916
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/ATRam/ATStart/ATP.equates
@@ -0,0 +1 @@
+*
* atp.equates
*
			
;C7xx		equ	$C7A0		;emulation mode entry
;C7xxGo		equ	$C7A1		;native mode entry
;C7xxRet	equ	$C7A8		;return point for routines
;C7Error	equ	$C7AB		;error point for pascal not installed
;C7Prodos	equ	$C7AE		;bank 0 entry for prodos

*
* errors
*
lapendbuf	equ	$0202
lapextra	equ	$0209

largeddp	equ	$0305		;only ddp err we care about

noatperr	equ	$0000
largeatp	equ	$0501
atpbadskt	equ	$0502
noatpcb		equ	$0503
noatprel	equ	$0505
addnosnd	equ	$0506
reqabort	equ	$0507
requestfail	equ	$0508
sktclsd		equ	$0509
toomuchrsp	equ	$050b
noddpskt	equ	$050c
rsprel		equ	$050d
atpbusy		equ	$05ff

noqtrerr	equ	$0000
norspcbmem	equ	$0102		;can't allocate rspcb
qtrnotfound	equ	$0103
qtrbusy		equ	$01ff

noentry		equ	$0101		;dispatcher item not found


* 
* qtr second command lists
*
* install
*
insqtr_parmcnt	equ	$00
insqtr_command	equ	insqtr_parmcnt+1
insqtr_result	equ	insqtr_command+1
insqtr_iocomp	equ	insqtr_result+2
insqtr_ticks	equ	insqtr_iocomp+4
insqtr_count	equ	insqtr_ticks+2
insqtr_link	equ	insqtr_count+2

* 
* remove
* must use same list that we used for install,
* only change the command field.
* 
rmvqtr_parmcnt	equ	$00
rmvqtr_command	equ	rmvqtr_parmcnt+1
rmvqtr_result	equ	rmvqtr_command+1
rmvqtr_rsvd	equ	rmvqtr_result+13	;13 reserved bytes

*
* now we have offsets for the atp command lists
*
* SendATPReq
*
atprq_parmcnt	equ	$00
atprq_command	equ	atprq_parmcnt+1
atprq_result	equ	atprq_command+1
atprq_iocomp	equ	atprq_result+2
*
* the order of the following 8 paramaters must not change
* since some internal assumptions are made about the order
* of the data in order to save execution time and code space.
*
atprq_dymskt	equ	atprq_iocomp+4
atprq_dnet	equ	atprq_dymskt+1
atprq_dnode	equ	atprq_dnet+2
atprq_dskt	equ	atprq_dnode+1
atprq_tid	equ	atprq_dskt+1
atprq_bufsize	equ	atprq_tid+2
atprq_bufptr	equ	atprq_bufsize+2
atprq_user	equ	atprq_bufptr+4
atprq_rbnum	equ	atprq_user+4
atprq_rbdsad	equ	atprq_rbnum+1
atprq_flag	equ	atprq_rbdsad+4
atprq_interval	equ	atprq_flag+1
atprq_rtrycnt	equ	atprq_interval+1
atprq_bitmap	equ	atprq_rtrycnt+1
atprq_response	equ	atprq_bitmap+1
atprq_link	equ	atprq_response+1
atprq_timeleft	equ	atprq_link+4
atprq_trysleft	equ	atprq_timeleft+1

*
* CancelReq
*
creq_parmcnt	equ	$00
creq_command	equ	creq_parmcnt+1
creq_result	equ	creq_command+1
creq_tid	equ	creq_result+2

*
* SendATPResp
*
sdrsp_parmcnt	equ	$00
sdrsp_command	equ	sdrsp_parmcnt+1
sdrsp_result	equ	sdrsp_command+1
sdrsp_iocomp	equ	sdrsp_result+2
sdrsp_sskt	equ	sdrsp_iocomp+4
sdrsp_dnet	equ	sdrsp_sskt+1
sdrsp_dnode	equ	sdrsp_dnet+2
sdrsp_dskt	equ	sdrsp_dnode+1
sdrsp_tid	equ	sdrsp_dskt+1
sdrsp_rbnum	equ	sdrsp_tid+2		;number of buffers send on this call
sdrsp_tpkts	equ	sdrsp_rbnum+1		;maximum number of packets being sent
sdrsp_rbdsad	equ	sdrsp_tpkts+1
sdrsp_flag	equ	sdrsp_rbdsad+4
sdrsp_bitmap	equ	sdrsp_flag+1
sdrsp_addrtn	equ	sdrsp_bitmap+1
sdrsp_aflag	equ	sdrsp_addrtn+4		;pass free packets back here

*
* AddResp
* adds a response to xo sendresponse
*
addrsp_parmcnt	equ	$00
addrsp_command	equ	addrsp_parmcnt+1
addrsp_result	equ	addrsp_command+1
addrsp_sskt	equ	addrsp_result+2
addrsp_dnet	equ	addrsp_sskt+1
addrsp_dnode	equ	addrsp_dnet+2
addrsp_dskt	equ	addrsp_dnode+1
addrsp_tid	equ	addrsp_dskt+1
addrsp_bsize	equ	addrsp_tid+2
addrsp_bptr	equ	addrsp_bsize+2
addrsp_user	equ	addrsp_bptr+4
addrsp_flag	equ	addrsp_user+4		;only used for eom bit
addrsp_seqnum	equ	addrsp_flag+1		;packet number we are adding

*
* GetRequest 
*
getrq_parmcnt	equ	$00
getrq_command	equ	getrq_parmcnt+1
getrq_result	equ	getrq_command+1
getrq_iocomp	equ	getrq_result+2
getrq_ourskt	equ	getrq_iocomp+4
getrq_snet	equ	getrq_ourskt+1
getrq_snode	equ	getrq_snet+2
getrq_sskt	equ	getrq_snode+1
getrq_tid	equ	getrq_sskt+1
getrq_bufsize	equ	getrq_tid+2		;size of memory buffer points to    
getrq_bufptr	equ	getrq_bufsize+2		;address of buffer to put requests into
getrq_user	equ	getrq_bufptr+4
getrq_actlen	equ	getrq_user+4		;actual length of data read in
getrq_flag	equ	getrq_actlen+2
getrq_bitmap	equ	getrq_flag+1
getrq_link	equ	getrq_bitmap+1

*
* openatpsocket
*
opskt_parmcnt	equ	$00
opskt_command	equ	opskt_parmcnt+1
opskt_result	equ	opskt_command+1
opskt_skt	equ	opskt_result+2

*
* closeatpsocket
*
clsskt_parmcnt	equ	$00
clsskt_command	equ	clsskt_parmcnt+1
clsskt_result	equ	clsskt_command+1
clsskt_skt	equ	clsskt_result+2

*
* relrspcb
*
relcb_parmcnt	equ	$00
relcb_command	equ	relcb_parmcnt+1
relcb_result	equ	relcb_command+1
relcb_ourskt	equ	relcb_result+2
relcb_snet	equ	relcb_ourskt+1
relcb_snode	equ	relcb_snet+2
relcb_sskt	equ	relcb_snode+1
relcb_tid	equ	relcb_sskt+1

*
* rspcb
* definition of internal response control block
*
rspcb_link	equ	$00			;first item is link to next rspcb
rspcb_sndptr	equ	rspcb_link+4		;points to associated sndatprsp
rspcb_sskt	equ	rspcb_sndptr+4		;source socket
rspcb_dnet	equ	rspcb_sskt+1		;destination net
rspcb_dnode	equ	rspcb_dnet+2		;destination node
rspcb_dskt	equ	rspcb_dnode+1		;destination socket
rspcb_tid	equ	rspcb_dskt+1		;transaction id
rspcb_timeout	equ	rspcb_tid+2		;internal release timer
rspcbsize	equ	rspcb_timeout+1		;size of rspcb

*
* bds
* structure of a bds
*
bds_bufsize	equ	$00
bds_bufptr	equ	bds_bufsize+2
bds_user	equ	bds_bufptr+4
bds_actlen	equ	bds_user+4		;actual len returned by atp

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/ATRam/ATStart/ATStart.aii b/IIGS.601.SRC/GS.OS/Drivers/ATRam/ATStart/ATStart.aii
new file mode 100644
index 0000000..7e50d58
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/ATRam/ATStart/ATStart.aii
@@ -0,0 +1 @@
+*******************************************************************************
*
* File: ATSTART
*
* This file contains general startup code for AppleTalk
*
* Copyright Apple Computer, 1986
* Original Author: Greg Seitz
*                  1-Sep-87
*                  ver 1.0
*
*******************************************************************************
*
* Modification History
*
* 3/21/88	TGH	- Modified to work under GS/OS
*			  Took out references to BF00 page in bank 0.
*
* 8/2/88	TGH	- Added new PFI vector call.
*
* 8/3/88	TGH	- Took out GS/OS switch code.
*
* 8/19/88	TGH	- Started working on changes for the RevD ROM
*
*
*
*******************************************************************************

		MACHINE M65816

		INCLUDE	'global.equates'
		INCLUDE	'atp.equates'

ATSTARTInit	PROC	EXPORT

switchkind	equ	$E100BC
osswitch	equ	$E100AC
pdosdevcnt	equ	$BF31
pdosdevtbl	equ	$BF32

MLIACTIVE	equ	$00BF9B

		rep	#$30			;Long all.
		longa	on
		longi	on

		phb				;Save the old data bank.

		phk				;Set our data bank to the code bank.
		plb

		sty	AtalkSlot
		stx	ROMVers

		php				;Turn off interupts for just a second.
		sei

		lda	npjump			;Put our entry point for ProDOS calls
		sta	>ProDOS			;in the ATalk global vector area.
		lda	npjump+2		;This is where the Cnxx firmare jumps to
		sta	>ProDOS+2		;on any ProDOS call.

		lda	>osswitch		;Get the old chain vector and store it
		sta	ourchain		;in ourselves so that we can jump to it
		lda	>osswitch+2		;when we're done with our switch code.
		sta	ourchain+2
		lda	ourinit			;Now install us into the switch vector.
		sta	>osswitch
		lda	ourinit+2
		sta	>osswitch+2

;
; Below we figure out where BF00 should jump to
;

		lda	ROMVers
		cmp	#0002
		bcs	ROM2

ROM0_ROM1	lda	#$C7AE
		bra	DoneROMCheck

ROM2		lda	AtalkSlot
		cmp	#01
		beq	ROM2_Port1

		lda	#$C2AE
		bra	DoneROMCheck

ROM2_Port1	lda	#$C1AE
;		bra	DoneROMCheck

DoneROMCheck	sta	CnProDOS

		plp				;Now restore interupts.

		lda	#$C0C0			;Set long naming and device
		sta	pnaming+4		;table disabled.
		ldx	#pnaming		;need to make 
		ldy	#^pnaming		;the call to pfi
		jsl	>RamDispatch

		plb				;Recover data bank
		rtl

AtalkSlot	dc.w	0
ROMVers		dc.w	0

ourchain	ds.l	1			;make room for next link
ourinit		jml	switchcode		;switch code

;-----------------------------------------------------------------------------------------
; This code is called whenever a new applicaiton is launched.
; It can be called from ProDOS8, ProDOS16, or GS/OS to let us know we are
; switching operating systems.
;

switchcode	phb				;Save data bank
		php

		phk
		plb

		rep	#$30			;Long all.
		longa	on
		longi	on

		lda	>switchkind		;see if we are going into p16
		and	#$00ff
		beq	switch_p8		;switching into prodos8

switch_p16	lda	#$C0C0			;Set long naming and device
		sta	pnaming+4		;table disabled.

		bra	justexit

switch_p8	lda	>$BF01			;Get old Prodos vector.
		cmp	CnProDOS
*		cmp	#C7ProDOS		;see if already us
		beq	justnameit		;need to do switch code since not us

		dec	A			;Make it look like a return address.
		sta	>ProEntry		;Save it.
		lda	CnProDOS		;get vector to appletalk pre-dispatch
*		lda	#C7ProDOS		;get vector to appletalk pre-dispatch
		sta	>$BF01			;set vector to point to atalk

justnameit	ldx	#pvectors		;Tell PFI that we're switching to
		ldy	#^pvectors		;ProDOS 8.
		jsl	>RamDispatch

		lda	#$00C0			;set device table to update
		sta	pnaming+$4		;and ProDOS naming mode.

justexit	ldx	#pnaming		;need to make 
		ldy	#^pnaming		;the call to pfi
		jsl	>RamDispatch

		plp
		plb				;restore data bank
		jmp	ourchain		;call routine installed before us

CnProDOS	dc.w	0

pnaming		dc.b	0
		dc.b	$33
		dc.w	0
DirFlag		dc.b	0
NameFlag	dc.b	0
		dc.w	0			;flags set in code

pvectors	dc.b	0			;Syncronous
		dc.b	$37			;SetFIVectors
		dc.w	0			;Result Code
Active8		dc.b	$C0			;Flag $C0 = set P8 active
		dc.l	0			;Mount Vector
		dc.l	0			;UnMount Vector
		dc.l	0			;Attention Vector
		dc.l	0			;Reserved
		dc.l	0			;Reserved

;---------------------------------------------------------------------------------------------

npjump		jml	NewProdos		;code to be moved into jump vector


NewProdos	rep	#MBit+XBit		;16 bits.
		longa	on
		longi	on

		phx				;Save X.
		lda	6,s			;Get the Prodos call return address.
		inc	A			;Points to Prodos command number.
		tax				;Use as index.
		lda	>0,x			;Get command #.
		and	#$ff			;Mask.
		cmp	#$42			;See if AppleTalk command #.
		beq	Us			;If so, it's us.

		php
		sei				;Turn off interupts
		sep	#$20
		longa	off
		lda	>MLIACTIVE
		ora	#$80
		sta	>MLIACTIVE
		plp
		longa	on

		lda	>pfivec			;see if pfi installed
		ora	>pfivec+2
		beq	notus			;let local prodos handle it
		txa
		sta	>pdosparm		;save pointer to parm list
		jsl	callpfi
		bvs	notus			;pfi did not want it

		php				;Save condition flags and INT state
		pha				;Save return value (error)
		sei				;Turn off interupts

		sep	#$20			;Short to store a byte
		longa	off
		lda	#$00			;Zero MLIACTIVE flag
		sta	>MLIACTIVE
		rep	#$20			;Long mode again
		longa	on

		lda	>pdosparm		;Fix return address
		inc	a
		inc	a
		sta	9,s			;new return address
		pla				;recover result code,
		plp				;condtion flags and INT state
		bra	wasus			;and exit

notus		php
		sei
		sep	#$20
		longa	off
		lda	#$00
		sta	>MLIACTIVE
		plp
		longa	on

		plx				;Restore X.
		sep	#VBit			;If not, set V for calling old Prodos.
		rtl				;Return.

Us		txa				;Change return address to skip past
		inc	A			;command number and parameter list
		inc	A			;pointer.
		sta	6,s			;Put it back on the stack.
		lda	>1,x			;Get pointer to parameter list.
		tax				;Put in X for Dispatch.
		phy				;save y reg since we destroy it
		ldy	#0			;High word of 0 for bank 0.
		jsl	RamDispatch		;Go dispatch.
		ply				;recover y reg

WasUs		plx				;Restore X.

*		plb
*		plb
*		plb				;discard return address
*		pei	$0000			;return with data bank 0
*		plb
*		plb
*		jml	$00c7c4			;return from there

		sep	#mbit+xbit		;make sure we return in 8 bit mode
		clv				;V cleared means we handled it.
		pha
		pla				;set zero bit
		rtl				;Return.

callpfi		jml	>pfivec			;call pfi

pdosparm	ds.b	2
prodosvect	ds.b	2

		ENDP

;-----------------------------------------------------------------------------------

		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/ATRam/ATStart/Global.Equates b/IIGS.601.SRC/GS.OS/Drivers/ATRam/ATStart/Global.Equates
new file mode 100644
index 0000000..75fda77
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/ATRam/ATStart/Global.Equates
@@ -0,0 +1 @@
+* these are common global equates used throughout appletalk routines
* 
*  Greg Seitz
*  29-Apr-87
*


priorityvec	equ	$e1103a			;address of vector list
pfivec		equ	$e1103e			;vector for calling pfi translator
;atloadin	equ	$c7ae			;atload has been installed flag
atloadloc	equ	$00bf01			;location of atloadin flag

small		equ	1			;remove addresponse

sline		equ	$000480			;print on this line
romread		equ	$e1c081			;make these long
lcbank2		equ	$e1c083
statereg	equ	$e1c068
cyareg		equ	$e1c036
;RomId		equ	$00c7fe
fixstatereg	equ	$6024			;Now in LAP......

incbusyflag	equ	$e10064			;scheduler routines
decbusyflag	equ	$e10068

emulstack	equ	$010100
databank	equ	$e1e1e1

*
* first we have some global constants
*
nbit		equ	$80
vbit		equ	$40
mbit		equ	$20
xbit		equ	$10
ibit		equ	$04
zbit		equ	$02
cbit		equ	$01

rspval		equ	120			;30 seconds for rspcb timer

*
* ATP header constants
*
atpxobit	equ	$20
atpeombit	equ	$10
atpstsbit	equ	$08
*

* interface equates
*
* Fixed RAM vectors.
*
Extended	equ	$e11000			;RAM vectors.  Extended interface entry.
Basic		equ	Extended+4		;Basic entry.
Pascal		equ	Basic+4			;Pascal entry.
RamGoComp	equ	Pascal+4		;users gocomp entry for completions
SoftReset	equ	RamGoComp+4		;Soft reset chain.
RamDispatch	equ	SoftReset+4		;Command dispatcher.
RamForbid	equ	RamDispatch+4		;RAM vector to long entry of forbid.
RamPermit	equ	RamForbid+4		;For Permit.
ProEntry	equ	RamPermit+4		;Original ProDOS entry point.
Prodos		equ	ProEntry+2		;Prodos entry.
SerStatus	equ	Prodos+4		;Serial interface status hook
SerWrite	equ	SerStatus+4		;" " write hook.
SerRead		equ	SerWrite+4		;For Read.
SerBackgnd	equ	SerRead+4		;For background printing.
PDispatch	equ	SerBackgnd+4		;For dispatching packets.

lapzplen	equ	$10

* ddp
*
e1ddpend	equ	$e1d600			;really $e1d600 (gets around dumb link)
ddpzplen	equ	14

*
* zero page usage
*
* first two must be in order, since the dispatcher uses
* them.
*
cmdlist		equ	$80			;global ptr to paramaters
execaddr	equ	cmdlist+4
stackzp		equ	execaddr+4		;for use in gocomp
prev		equ	execaddr+4		;previous node pointer
curr		equ	prev+4			;current node pointer
next		equ	curr+4			;pointer to next node
R0		equ	next+4			;4 byte register
R1		equ	R0+4			;and another
R2		equ	R1+4
laphead		equ	R2+4			;4 byte pointer to lap header
bdsptr		equ	laphead+4		;holds pointer to bds

zplen		equ	bdsptr+4-cmdlist	;length of zero page
atpzplen	equ	zplen-8			;length minus first two vars





CSWL		equ	$36
KSWL		equ	$38
sccareg		equ	$c039
whichSCC	equ	$e110a0
pslotval	equ	$e112fe
xslotval	equ	$e112ff
;oldQSetup	equ	$ff4b00
;oldQPascal	equ	$ff4b03
;newQSetup	equ	$00c7d8			;for after version 1 roms
;newQPascal	equ	$00c7dc
ldest		equ	$e11180			;interface code here
altsp		equ	$010101
mainsp		equ	$010100
rdaltzp		equ	$c016
*
* rpm equates
*
maxwrite	equ	512
rpmzplen	equ	$08			;number of bytes of zp to save
maxname		equ	99			;maximum possible size for a name
crzp		equ	$80
lpzp		equ	$84
link		equ	$08			;length of link field
fastbit		equ	$04			;mask for fast bit 1 means on




zipzplen	equ	$08
zipinuse	equ	$0601
zipoverflow	equ	$0602
zipnotfound	equ	$0603
zipbusy		equ	$06ff

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/ATRam/ATStart/MakeFile b/IIGS.601.SRC/GS.OS/Drivers/ATRam/ATStart/MakeFile
new file mode 100644
index 0000000..b94b296
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/ATRam/ATStart/MakeFile
@@ -0,0 +1 @@
+Objects	=	atstart.oii

.oii		Ä	.aii
	asmiigs {aiigsoptions} -o {Default}.oii {Default}.aii

atstart		Ä	atstart.oii
	linkiigs -t $70BB0203 -o {Targ} {Targ}.oii
	echo "FileType = $BB  AuxType = $0203" >> {Worksheet}
	rename -y {targ} 'atp5.'{targ}
	quote `directory`'atp5.'{Targ}
	
{Objects}	ÄÄ	MakeFile

#atstart.oii	ÄÄ	::ASP:atp.equates.inc ::ASP:global.equates.inc


\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/ATRam/Header.aii b/IIGS.601.SRC/GS.OS/Drivers/ATRam/Header.aii
new file mode 100644
index 0000000..45bc753
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/ATRam/Header.aii
@@ -0,0 +1 @@
+*******************************************************************************
*
* ATalk.Protocols
*
* This file contains a code header that calls the init routines to all the
* AppleTalk protocols in this file.
*
*******************************************************************************

		MACHINE	M65816
		MSB	OFF
		STRING	ASIS

		import	ATPATCHInit
		import	pfinstall
		import	ATSTARTInit

main		PROC

		longa	on
		longi	on

		bra	begin

		dc.b	'ATRAM VERSION 4.0'	; includes AppleTalk Phase II

;		dc.b	'***************'
;		dc.b	'ATPATCH ------>'
;		dc.w	atpatchinit
;		dc.b	'PFI ---------->'
;		dc.w	pfinstall
;		dc.b	'ATSTART ------>'
;		dc.w	atstartinit
;		dc.b	'***************'

begin		phb

		phk
		plb

		sty	AtalkSlot
		stx	ROMVers

		jsl	ATPATCHInit

		ldy	AtalkSlot
		ldx	ROMVers
		jsl	pfinstall

		ldy	AtalkSlot
		ldx	ROMVers
		jsl	ATSTARTInit

		plb
		clc
		lda	#$0000
		rtl

AtalkSlot	ds.w	1
ROMVers		ds.w	1

		ENDP

		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/ATRam/MakeFile b/IIGS.601.SRC/GS.OS/Drivers/ATRam/MakeFile
new file mode 100644
index 0000000..fc491be
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/ATRam/MakeFile
@@ -0,0 +1 @@
+Objects	=	header.oii¶
		:atpatch:atpatch.oii¶
		:atpatch:pap:pap.oii¶
		:atpatch:rpm:rpm.oii¶
		:atpatch:zip:zip.oii¶
		:atpatch:asp:sp_includes.oii¶
		:atstart:atstart.oii¶
		:pfi:pfi.oii¶
		:pfi:pfi_cmds.oii¶
		:pfi:pfi_cmds2.oii¶
		:pfi:pfi_cmds3.oii¶
		:pfi:pfi_cmdsubs1.oii¶
		:pfi:pfi_cmdsubs2.oii¶
		:pfi:pfi_cmdsubs3.oii¶
		:pfi:pfi_cmdsubs4.oii¶
		:pfi:pfi_cmdsubs5.oii¶
		:pfi:pfi_cmdsubs6.oii¶
		:pfi:pfi_vars.oii	


atram		Ä	{Objects}
	linkiigs -l >{Targ}.objlist -t $70BB0203 -o {Targ} {Objects}
	echo "FileType = $BB  AuxType = $0203" >> {Worksheet}
	rename -y {targ} 'atp2.'{targ}
	quote `directory`'atp2.'{Targ}
	
.oii		Ä	.aii
	asmiigs {aiigsoptions} -o {Default}.oii {Default}.aii


{Objects}	Ä	MakeFile :atpatch:ASP:atp.equates.inc :atpatch:ASP:global.equates.inc


\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/ATRam/PFI/ATP.Equates b/IIGS.601.SRC/GS.OS/Drivers/ATRam/PFI/ATP.Equates
new file mode 100644
index 0000000..bb05718
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/ATRam/PFI/ATP.Equates
@@ -0,0 +1 @@
+*
* atp.equates
*


;ATPEquates	data
			
C7xx	    equ	   $C7A0		;emulation mode entry
C7xxGo	    equ	   $C7A1		;native mode entry
C7xxRet	    equ	   $C7A8		;return point for routines
C7Error	    equ	   $C7AB		;error point for pascal not installed
C7Prodos    equ	   $C7AE		;bank 0 entry for prodos

*
* errors
*
lapendbuf   equ  $0202
lapextra    equ  $0209

largeddp    equ	  $0305		       ;only ddp err we care about

noatperr    equ  $0000
largeatp    equ	  $0501
atpbadskt   equ	  $0502
noatpcb	    equ	  $0503
noatprel    equ	  $0505
addnosnd    equ	  $0506
reqabort    equ	  $0507
requestfail equ	  $0508
sktclsd	    equ	  $0509
toomuchrsp  equ	  $050b
noddpskt    equ	  $050c
rsprel	    equ	  $050d
atpbusy	    equ	  $05ff

noqtrerr    equ	  $0000
norspcbmem  equ	  $0102		       ;can't allocate rspcb
qtrnotfound equ	  $0103
qtrbusy	    equ	  $01ff

noentry	    equ	  $0101		       ;dispatcher item not found


* 
* qtr second command lists
*
* install
*
insqtr_parmcnt equ $00
insqtr_command equ insqtr_parmcnt+1
insqtr_result  equ insqtr_command+1
insqtr_iocomp  equ insqtr_result+2
insqtr_ticks   equ insqtr_iocomp+4
insqtr_count   equ insqtr_ticks+2
insqtr_link    equ insqtr_count+2

* 
* remove
* must use same list that we used for install,
* only change the command field.
* 
rmvqtr_parmcnt equ $00
rmvqtr_command equ rmvqtr_parmcnt+1
rmvqtr_result  equ rmvqtr_command+1
rmvqtr_rsvd    equ rmvqtr_result+13    ;13 reserved bytes

*
* now we have offsets for the atp command lists
*
* SendATPReq
*
atprq_parmcnt  equ $00
atprq_command  equ atprq_parmcnt+1
atprq_result   equ atprq_command+1
atprq_iocomp   equ atprq_result+2
*
* the order of the following 8 paramaters must not change
* since some internal assumptions are made about the order
* of the data in order to save execution time and code space.
*
atprq_dymskt   equ atprq_iocomp+4
atprq_dnet     equ atprq_dymskt+1
atprq_dnode    equ atprq_dnet+2
atprq_dskt     equ atprq_dnode+1
atprq_tid      equ atprq_dskt+1
atprq_bufsize  equ atprq_tid+2
atprq_bufptr   equ atprq_bufsize+2
atprq_user     equ atprq_bufptr+4
atprq_rbnum    equ atprq_user+4
atprq_rbdsad   equ atprq_rbnum+1
atprq_flag     equ atprq_rbdsad+4
atprq_interval equ atprq_flag+1
atprq_rtrycnt  equ atprq_interval+1
atprq_bitmap   equ atprq_rtrycnt+1
atprq_response equ atprq_bitmap+1
atprq_link     equ atprq_response+1
atprq_timeleft equ atprq_link+4
atprq_trysleft equ atprq_timeleft+1

*
* CancelReq
*
creq_parmcnt   equ $00
creq_command   equ creq_parmcnt+1
creq_result    equ creq_command+1
creq_tid       equ creq_result+2

*
* SendATPResp
*
sdrsp_parmcnt  equ $00
sdrsp_command  equ sdrsp_parmcnt+1
sdrsp_result   equ sdrsp_command+1
sdrsp_iocomp   equ sdrsp_result+2
sdrsp_sskt     equ sdrsp_iocomp+4
sdrsp_dnet     equ sdrsp_sskt+1
sdrsp_dnode    equ sdrsp_dnet+2
sdrsp_dskt     equ sdrsp_dnode+1
sdrsp_tid      equ sdrsp_dskt+1
sdrsp_rbnum    equ sdrsp_tid+2	       ;number of buffers send on this call
sdrsp_tpkts    equ sdrsp_rbnum+1       ;maximum number of packets being sent
sdrsp_rbdsad   equ sdrsp_tpkts+1
sdrsp_flag     equ sdrsp_rbdsad+4
sdrsp_bitmap   equ sdrsp_flag+1
sdrsp_addrtn   equ sdrsp_bitmap+1
sdrsp_aflag    equ sdrsp_addrtn+4	;pass free packets back here

*
* AddResp
* adds a response to xo sendresponse
*
addrsp_parmcnt equ $00
addrsp_command equ addrsp_parmcnt+1
addrsp_result  equ addrsp_command+1
addrsp_sskt    equ addrsp_result+2
addrsp_dnet    equ addrsp_sskt+1
addrsp_dnode   equ addrsp_dnet+2
addrsp_dskt    equ addrsp_dnode+1
addrsp_tid     equ addrsp_dskt+1
addrsp_bsize   equ addrsp_tid+2
addrsp_bptr    equ addrsp_bsize+2  
addrsp_user    equ addrsp_bptr+4  
addrsp_flag    equ addrsp_user+4       ;only used for eom bit
addrsp_seqnum  equ addrsp_flag+1       ;packet number we are adding

*
* GetRequest 
*
getrq_parmcnt  equ $00
getrq_command  equ getrq_parmcnt+1
getrq_result   equ getrq_command+1
getrq_iocomp   equ getrq_result+2
getrq_ourskt   equ getrq_iocomp+4
getrq_snet     equ getrq_ourskt+1
getrq_snode    equ getrq_snet+2
getrq_sskt     equ getrq_snode+1
getrq_tid      equ getrq_sskt+1
getrq_bufsize  equ getrq_tid+2	       ;size of memory buffer points to    
getrq_bufptr   equ getrq_bufsize+2     ;address of buffer to put requests into
getrq_user     equ getrq_bufptr+4
getrq_actlen   equ getrq_user+4	       ;actual length of data read in
getrq_flag     equ getrq_actlen+2
getrq_bitmap   equ getrq_flag+1
getrq_link     equ getrq_bitmap+1

*
* openatpsocket
*
opskt_parmcnt  equ $00
opskt_command  equ opskt_parmcnt+1
opskt_result   equ opskt_command+1
opskt_skt      equ opskt_result+2

*
* closeatpsocket
*
clsskt_parmcnt equ $00
clsskt_command equ clsskt_parmcnt+1
clsskt_result  equ clsskt_command+1
clsskt_skt     equ clsskt_result+2

*
* relrspcb
*
relcb_parmcnt  equ $00
relcb_command  equ relcb_parmcnt+1
relcb_result   equ relcb_command+1
relcb_ourskt   equ relcb_result+2
relcb_snet     equ relcb_ourskt+1
relcb_snode    equ relcb_snet+2
relcb_sskt     equ relcb_snode+1
relcb_tid      equ relcb_sskt+1

*
* rspcb
* definition of internal response control block
*
rspcb_link     equ $00		       ;first item is link to next rspcb
rspcb_sndptr   equ rspcb_link+4	       ;points to associated sndatprsp
rspcb_sskt     equ rspcb_sndptr+4      ;source socket
rspcb_dnet     equ rspcb_sskt+1	       ;destination net
rspcb_dnode    equ rspcb_dnet+2	       ;destination node
rspcb_dskt     equ rspcb_dnode+1       ;destination socket
rspcb_tid      equ rspcb_dskt+1	       ;transaction id
rspcb_timeout  equ rspcb_tid+2	       ;internal release timer
rspcbsize      equ rspcb_timeout+1     ;size of rspcb

*
* bds
* structure of a bds
*
bds_bufsize    equ $00
bds_bufptr     equ bds_bufsize+2
bds_user       equ bds_bufptr+4
bds_actlen     equ bds_user+4	     ;actual len returned by atp

;	    end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/ATRam/PFI/Global.Equates b/IIGS.601.SRC/GS.OS/Drivers/ATRam/PFI/Global.Equates
new file mode 100644
index 0000000..d605745
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/ATRam/PFI/Global.Equates
@@ -0,0 +1 @@
+* these are common global equates used throughout appletalk routines
* 
*  Greg Seitz
*  29-Apr-87
*


priorityvec	equ	$e1103a		;address of vector list
pfivec		equ	$e1103e		;vector for calling pfi translator
;;;atloadin	equ	$c7ae		;atload has been installed flag
atloadloc	equ	$00bf01		;location of atloadin flag

small	    equ   1			;remove addresponse

sline	    equ   $000480		;print on this line
romread	    equ   $e1c081		;make these long
lcbank2	    equ   $e1c083
statereg    equ   $e1c068
rd80col		equ	  $e1c018
cyareg	    equ   $e1c036
;;;RomId	    equ   $00c7fe
fixstatereg equ   $6024			;Now in LAP......

incbusyflag	equ	  $e10064		;scheduler routines
decbusyflag equ   $e10068

emulstack   equ   $010100
databank    equ   $e1e1e1

*
* first we have some global constants
*
nbit	    equ   $80
vbit	    equ   $40
mbit	    equ   $20
xbit	    equ   $10
ibit	    equ   $04
zbit	    equ   $02
cbit	    equ   $01

rspval	    equ   120			;30 seconds for rspcb timer

*
* ATP header constants
*
atpxobit    equ   $20
atpeombit   equ   $10
atpstsbit   equ   $08
*

* interface equates
*
* Fixed RAM vectors.
*
Extended    equ   $e11000		;RAM vectors.  Extended interface entry.
Basic	    equ   Extended+4		;Basic entry.
Pascal	    equ   Basic+4		;Pascal entry.
RamGoComp   equ   Pascal+4		;users gocomp entry for completions
SoftReset   equ   RamGoComp+4		;Soft reset chain.
RamDispatch equ   SoftReset+4		;Command dispatcher.
RamForbid   equ   RamDispatch+4	;RAM vector to long entry of forbid.
RamPermit   equ   RamForbid+4		;For Permit.
ProEntry    equ   RamPermit+4		;Original ProDOS entry point.
Prodos	    equ   ProEntry+2		;Prodos entry.
SerStatus   equ   Prodos+4		;Serial interface status hook
SerWrite    equ   SerStatus+4		;" " write hook.
SerRead	    equ   SerWrite+4		;For Read.
SerBackgnd  equ   SerRead+4		;For background printing.
PDispatch   equ   SerBackgnd+4		;For dispatching packets.

lapzplen    equ	  $10

* ddp
*
e1ddpend    equ   	$e1d600			;really $e1d600 (gets around dumb link)
ddpzplen    equ	   14

*
* zero page usage
*
* first two must be in order, since the dispatcher uses
* them.
*
cmdlist	    equ   $80			;global ptr to paramaters
execaddr    equ   cmdlist+4
stackzp	    equ   execaddr+4		;for use in gocomp
prev	    equ   execaddr+4		;previous node pointer
curr	    equ   prev+4		;current node pointer
next	    equ   curr+4		;pointer to next node
R0	    	equ   next+4		;4 byte register
R1	    	equ   R0+4			;and another
R2	    	equ   R1+4
laphead	    equ   R2+4			;4 byte pointer to lap header
bdsptr	    equ   laphead+4		;holds pointer to bds

zplen	    equ   bdsptr+4-cmdlist	;length of zero page
atpzplen    equ   zplen-8		;length minus first two vars





CSWL	    equ   $36
KSWL	    equ   $38
sccareg	    equ   $c039
whichSCC    equ   $e110a0
pslotval    equ   $e112fe
xslotval    equ   $e112ff
oldQSetup   equ   $ff4b00
oldQPascal  equ   $ff4b03
newQSetup   equ   $00c7d8		;for after version 1 roms
newQPascal  equ   $00c7dc
ldest	    equ   $e11180		;interface code here
altsp	    equ   $010101
mainsp	    equ   $010100
rdaltzp	    equ   $c016
*
* rpm equates
*
maxwrite    equ   512
rpmzplen    equ   $08			;number of bytes of zp to save
maxname	    equ   99			;maximum possible size for a name
crzp	    equ   $80
lpzp	    equ   $84
link	    equ   $08			;length of link field
fastbit	    equ   $04			;mask for fast bit 1 means on




zipzplen    equ   $08
zipinuse    equ   $0601
zipoverflow equ   $0602
zipnotfound equ   $0603
zipbusy	    equ   $06ff


			
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/ATRam/PFI/PFI.aii b/IIGS.601.SRC/GS.OS/Drivers/ATRam/PFI/PFI.aii
new file mode 100644
index 0000000..54fc25e
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/ATRam/PFI/PFI.aii
@@ -0,0 +1 @@
+;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

	IMPORT	cfiaccess
	IMPORT	cfigetsrcpath
	IMPORT	cfilist
	IMPORT	cfilogcont
	IMPORT	cfilogin
	IMPORT	cfilogout
	IMPORT	cfimount
	IMPORT	cfiname
	IMPORT	cfinaming
	IMPORT	cfitimezone
	IMPORT	cfiuserbuf
	IMPORT	cFIhooks
	Import	CFIXLOGIN
	Import  CFIlist2
	Import	CFIGETVERS
	IMPORT	dispatch_pfi
	IMPORT	pfi_init
	IMPORT	wsinit
	IMPORT	CONVERT_TIME
;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

	ENTRY	oldreset
	ENTRY	ourreset
	ENTRY	pfiinit
*
* pfi.asm
*
* 	by
*		Greg Seitz
*		13-Jul-87
*
* this file is responsible for installing pfi into the command 
* dispatcher and doing any neccessary initialization stuff
*
		INCLUDE 'global.equates'
		INCLUDE	'zp.equates'

		EXPORT	pfinstall	    
pfinstall	    PROC
	jmp	Realinstall
	DC.B	'PFI VERSION 2.01'

realinstall	
	    clc						;force native
	    xce
	    phb
	    phk						;data is in same bank as code
	    plb
		sep	#mbit+xbit
		lda	>statereg
		pha						;save machine state
		lda	>lcbank2
		lda	>lcbank2		;enable lcbank2 for writing

	    rep	   #mbit+xbit
	    longa	on
	    longi	on
	    lda	   >softreset		;get the current reset vector
	    sta	   oldreset			;and store internally
	    lda	   >softreset+2
	    sta	   oldreset+2		;now we have the old vector
	    lda	   callreset		;store a jml ourreset
	    sta	   >softreset		;into vector
	    lda	   callreset+2
	    sta	   >softreset+2
	    lda		jourdispatch	;get the jml to the pdos dispatcher
	    sta		>pfivec
	    lda		jourdispatch+2
	    sta		>pfivec+2
	    jsr	   pfiinit			;zero out stuff
	    jsr		pfi_init		;do this only once at installation time
	    ldx	   #ourcmds			;get our command table
	    	ldy	#$d600+($2a*4)	;table starts at $d600
	    	lda	#endcmds-ourcmds-1	;move this many bytes
		mvn	ourcmds,$e10000	;to bank $e1
		sep	#mbit+xbit
		pla						;get statereg
		sta	>statereg
		rep	#mbit+xbit
	    	plb
	    	rtl

callreset	jml	ourreset		;this code is moved to vector
jourdispatch	jml	>dispatch_pfi

		EXPORT	pfiinit
pfiinit		;		
	    jsr		wsinit			;init pfi stuff
	    rts



ourcmds	; 

	DC.A	cfiname
	DC.B	pfizplen
	DC.A	cfilogin
	DC.B	pfizplen
	DC.A	cfilogcont
	DC.B	pfizplen
	DC.A	cfilogout
	DC.B	pfizplen
	DC.A	cfimount	;$2e
	DC.B	pfizplen
	DC.A	cfilist		;$2f
	DC.B	pfizplen
	DC.A	cfitimezone	;$30
	DC.B	pfizplen
	DC.A	cfigetsrcpath	;$31
	DC.B	pfizplen
	DC.A	cfiaccess	;$32
	DC.B	pfizplen
	DC.A	cfinaming	;$33
	DC.B	pfizplen
	DC.A	CONVERT_Time	;$34 
	DC.B	pfizplen
	DC.A	0		;$35 - not supported on gs
	DC.B	0
	DC.A	cfiuserbuf	;$36 - let user have 512 bytes of memory to use 
	DC.B	pfizplen
	DC.A	cFIhooks	;$37 - hooks for GS/OS
	DC.B	pfizplen
	dc.A	CFIXLOGIN	;$38 - 'X'tra Special Login (w/ server Name)
	DC.B	pfizplen
	DC.A	cfilist2	;$39 - ListSessions2
	DC.B	pfizplen
	dc.a	CFIGETVERS	;$3A - FIGetSVersion
	dc.b	pfizplen

endcmds	; 


		ENTRY	ourreset	;EXPORT -> ENTRY  **TGH
ourreset		;		;should come here during reset
	    php				;save mode bits
	    phb				;and databank
	    jsl	   oldreset		;let lower protocol get called first
	    phk				;set up data bank
	    plb
	    jsr	   pfiinit		;and re-init pfi
	    plb				;restore bank
	    plp				;and mode bits
	    rtl				;and return to our caller

		ENTRY	oldreset	;EXPORT -> ENTRY  **TGH
oldreset		;		;this code gets old reset vector
	    jml	   $000000		;dummy code



		ENDP
		end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/ATRam/PFI/PFI_cmds.aii b/IIGS.601.SRC/GS.OS/Drivers/ATRam/PFI/PFI_cmds.aii
new file mode 100644
index 0000000..7d07575
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/ATRam/PFI/PFI_cmds.aii
@@ -0,0 +1 @@
+
;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------
	Import	NETWORK_CALL_RESULT
	Import	SESSION_VERS
	Import	Session_Name
	Import	SESSION_NET
	IMPORT	AFP_PFXLOC
	IMPORT	AFP_PREFIX
	IMPORT	ATTEN_TIME
	IMPORT	AUN_CNT
	IMPORT	AUN_HOLD
	IMPORT	AUN_RAM
	IMPORT	CHK_PRODOS
	IMPORT	CLOSE_SESSION
	IMPORT	CMD_ROUTING
	IMPORT	CURSESS
	IMPORT	Cn_DEVNUM
	IMPORT	Cn_PFIERR
	IMPORT	EXIT_PFI
	IMPORT	FIRST_MOUNT
	IMPORT	FND_CURSRV
	IMPORT	LCL_DEVCNT
	IMPORT	NDT_CNT
	IMPORT	NDT_IDH
	IMPORT	NDT_IDL
	IMPORT	NDT_IDX1
	IMPORT	NDT_IDX2
	IMPORT	NDT_NAME
	IMPORT	NDT_SESS
	IMPORT	NDT_UNIT
	IMPORT	PDOS_DEVICE
	IMPORT	PFI_CLEANUP
	IMPORT	PFI_NAMING
	IMPORT	PFI_NODEV
	IMPORT	PFI_RETRY
	IMPORT	PFI_STATUS
	IMPORT	PKT_CNT
	IMPORT	PRO_PFXLOC
	IMPORT	PRO_PREFIX
	IMPORT	PUN_ROM
	IMPORT	SESSION_NETH
	IMPORT	SESSION_NETL
	IMPORT	SESSION_NODE
	IMPORT	SESSION_TBL
	IMPORT	SESS_CHK
	IMPORT	SRCPATH
	IMPORT	THISNET
	IMPORT	UCURSHR
	IMPORT	UERROR
	IMPORT	UMODE
	IMPORT	USER_NAME
	IMPORT	UWORK1
	IMPORT	UWORK2
	IMPORT	Update_TMR
	IMPORT	VOL_UNMOUNT
	IMPORT	WS_COMBUF
	IMPORT	WS_PATH
	IMPORT	ZP_BANK
	IMPORT	adjust
	IMPORT	adjust_c
	IMPORT	aspopparm
	IMPORT	getinfoparm
	IMPORT	login_error
	IMPORT	network_call
	IMPORT	pfi_bank
	IMPORT	pl_bank
	IMPORT	sess_idx
	IMPORT	userbuf
	IMPORT	ACTIVE8	
	IMPORT	VECTOR_MOUNT
	IMPORT	VECTOR_UNMNT
	IMPORT	VECTOR_ATTEN

	import	CheckAsync		; 7-Oct-91 MSD
	
;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

	ENTRY	UNMOUNT
*
* pfi_cmds
*
* Greg Seitz (13-Jul-87)
*
* fixed off by 1 problem in setting name on mount at label MOUNT9
* 2-Sep-87 GWS
*
*
*	PARAMIS NETWORK SOFTWARE
*
*
*	CONFIDENTIAL
*
*
* MODULE _	PFI0.A - PRODOS FILING INTERFACE	(PART 0)
*	ADDITIONAL CALLS
*
*	WRITTEN BY THOMAS EAGER
*
*	MODIFIED_ 06-15-87	4_18	TE
*
*	COPYRIGHT 1986,87	ParaMIS CORPORATION
*
* ALL RIGHTS RESERVED
*
*

		include	'global.equates'
		include 'pfi_equates'
		
;		EXPORT	zpcmds		
;zpcmds		PROC
		INCLUDE	'zp.equates'
;		ENDP

		EXPORT	pficmds		
pficmds		PROC

		EXPORT	setup
setup		;		;routine that sets things up for cmds
			phk
			plb					;set data bank to code bank
			sep		#mbit+xbit	;force 8 bit mode
			longa	off
			longi	off
			ldx		#00			;assume normal mode of bank zero main mem in
			lda		>isramrd	;see if aux ram is on
			bpl		usexmode	;use what x is (zero)
			ldx		#01			;aux mem was active use bank 1
usexmode	; 
			stx		pl_bank		;set these later to reflect real
			stx		pfi_bank	;bank prodos call came from
			;
			;
			;-----> 5/31/88 FIND ZERO PAGE BANK
			;
			ldx		#$00
			lda		>ALTZP
			bpl		XUSE_MODE
			LDX		#$01
XUSE_MODE	;
			STX		ZP_BANK
			;
			;-----> END
			;
			rts

		EXPORT	buffmove
buffmove	 					;moves data with 24 bit addresses
			php					;save mode
			phb					;save current bank
			longi	on
			longa	on
			rep		#Mbit+Xbit
			;
			lda		<count		;get count
			bit		#$0001
			beq		Buffmove1
			;
			tay
			longa	off
			sep		#Mbit
			dey
			lda		[srcbuf],y
			sta		[destbuf],y
			rep		#mbit
			longa	on
			dec		<count
			;
Buffmove1	ldy		<count
			beq		buffmvdn	;nothing to move
Buffmove2	dey
			dey
			lda		[srcbuf],y
			sta		[destbuf],y
			cpy		#$00
			bne		Buffmove2
			;
			;
buffmvdn	 
			plb					;recover bank, since changed by mvn
			plp					;restore state
			longa	off
			longi	off
			rts


		EXPORT	getzp1parm
getzp1parm		;		
			lda		#aspopparm
			sta		<zp1
			lda		#>aspopparm
			sta		<zp1+1		;point to some memory for open parm
			rts


*
*
* INITIALZE RAM AREAS ON RESET
*
*

			longa	off
			longi	off

		EXPORT	WSINIT
WSINIT		;		
*
* INITIALIZE CURRENT SERVER & CURRENT SHARE on reset
*
			php					;save state
			sep		#mbit+xbit	;force 8 bit mode

			STZ		UCURSHR
			STZ		CURSESS
			STZ		PFI_STATUS	;NO CALL IN PROCESS
			STZ		PFI_RETRY	;LOGIN NOT ACTIVE !!!
			STZ		PFI_NODEV
;
			LDA		#$80
			STA		PFI_CLEANUP	;NEED TO CLEANUP NETWORK FILES
*
* ZERO OUT SESSION TABLE
*
			LDX		#MAXSESSION-1
ws_LOOP7	STZ		SESSION_TBL,X
			DEX
			BPL		ws_LOOP7

			plp					;recover state
			RTS
;
;
			eject

*
*
*
* INITIALIZE WITH INITIALIZE CALL
*
*
*

		EXPORT	PFI_INIT
PFI_INIT		;		
*
* INITIALIZE VARIABLES
*
			php					;save state
			sep		#mbit+xbit	;force 8 bit mode

			STZ		PFI_NAMING	;USE PRODOS NAMING CONVENTION
			STZ		PRO_PREFIX	;NO PRODOS PREFIX
			STZ		AFP_PREFIX	;NO AFP	PREFIX
			STZ		ACTIVE8		;ProDOS 8 Is not ACTIVE
								;
			ldx 	#$03
WS_LP1A		STZ		VECTOR_MOUNT,x
			STZ		VECTOR_UNMNT,x
			STZ		VECTOR_ATTEN,x
			DEX
			BNE		WS_LP1A
			;
			LDA		#$FF
			STA		PRO_PFXLOC	;INIT PREFIX LOCATION
			STA		AFP_PFXLOC	;INIT PREFIX LOCATION
								;
								;
								;----> 3/2/88 te
                                ;
								;
								;
*
* INIT NETWORK DEVICE TABLE
*
			STZ		PFI_CLEANUP
			STZ		NDT_CNT		;NUMBER OPF MOUNTED VOLUMES
			STZ		FIRST_MOUNT	;FLAG FOR FIRST MOUNT !!!
			LDX		#14
			DEX
ws_LOOP2	STZ		NDT_SESS,X
			DEX
			BPL		ws_LOOP2

								;
								;-----> 3/2/te
								;
								;
*
* initialize open modes for all files
*
			ldx	#7
ws_loop4	stz UMODE,x
			dex
			BPL ws_loop4
								;
								;-----> end
								;
								;
		
*
* ZERO OUT USER'S NAME
*
			LDX		#$00
pf_LOOP2	STZ		USER_NAME,X
			INX
			CPX		#MAXUSERSZ
			BNE		pf_LOOP2
*
* ZERO OUT SOURCE PATH
*
			LDX		#$00
pf_LOOP3	STZ		SRCPATH,X
			INX
			CPX		#MAXSRCPATH
			BNE		pf_LOOP3

			LDX		#$03
pf_LOOP4	lda		adjust_c,x
			sta		adjust,x
			dex
			bpl		pf_LOOP4

			plp						;recover state
			RTS
;
;

*
* COMMAND $2A = FINAME - SET/GET USER Prefex
*
*	---------------------
*	0	|	ASYNC FLAG = $00	|
*	---------------------
*	1	|	COMMAND	= $2A	|
*	---------------------
*	2	|	RESULT CODE	(2)| *
*	---------------------
*	4	|	DIRECTIONAL FLAG	|
*	---------------------
*	5	|	BUFFER POINTER	(4)|
*	---------------------
*
*
		EXPORT	CFINAME
CFINAME
			jsr		CheckAsync	; 7-Oct-91 MSD
			
			jsr		setup		;standard setup stuff

*
* FIND WHICH DIRECTION TO MOVE NAME
*
			LDY		#$04
			LDA		[ZP0],Y
			BEQ		GETNAME
			CMP		#$AA
			BEQ		FINAME2		;SET THE USER'S NAME
			JMP		FINAME4
*
* TIME TO GET THE USER'S NAME
*
;
GETNAME		LDY		#$05
			LDA		[ZP0],Y
			STA		<DESTBUF
			INY
			LDA		[ZP0],Y
			STA		<DESTBUF+1
			INY
			LDA		[ZP0],Y
			STA		<DESTBUF+2
;
			LDA		#USER_NAME
			STA		<SRCBUF
			LDA		#>USER_NAME
			STA		<SRCBUF+1
			lda		#^user_name
			sta		<srcbuf+2

			lda		#maxusersz
			STA		<COUNT
			LDA		#0
			STA		<COUNT+1		;TWO PORT MOVE - OFF OF CARD
								;
			JSR		BUFFMOVE;FINISHED WITH THE MOVE
			BRA		FINAME4		;SET RESULT CODE
*
* TIME TO SET THE USER'S NAME
*
FINAME2	; 
;
			LDY		#$05
			LDA		[ZP0],Y
			STA		<SRCBUF
			INY
			LDA		[ZP0],Y
			STA		<SRCBUF+1
			INY
			LDA		[ZP0],Y
			STA		<SRCBUF+2
;
			LDA		#USER_NAME
			STA		<DESTBUF
			LDA		#>USER_NAME
			STA		<DESTBUF+1
			lda		#^user_name
			sta		<destbuf+2
								;
			lda		#maxusersz
			STA		<COUNT
			LDA		#0
			STA		<COUNT+1		;TWO PORT MOVE - OFF OF CARD

			JSR		BUFFMOVE	;FINISHED WITH THE MOVE
;
*
* SET THE RESULT CODE TO NO ERROR
*
FINAME4	; 
			LDA		#$00		;RESULT CODE - LB
			CLC					;STANDARD AMOUNT TO RETURN
			JMP		EXIT_PFI

*
* COMMAND $36 = FIUSERBUF - SET/GET USER Buffer
*
*	---------------------
*	0	|	ASYNC FLAG = $00	|
*	---------------------
*	1	|	COMMAND	= $36	|
*	---------------------
*	2	|	RESULT CODE	(2)| *
*	---------------------
*	4	|	DIRECTIONAL FLAG	|
*   -------------------------
*   5   |   BUFFER LENGTH   (2) |
*	---------------------
*	7	|	BUFFER POINTER	(4)|
*	---------------------
*
*
		EXPORT	CFIUSERBUF
CFIUSERBUF		;		
*
* STANDARD SETUP STUFF
*
			jsr		CheckAsync	; 7-Oct-91 MSD
			
			jsr		setup		;standard setup stuff
			;
			stz		UERROR		;INITIALIZE ERROR TO NONE
*
*  IS THE BUFFER LENGTH TOO LONG ??
*
*  SET LENGTH OF DATA TO MOVE
*		
			SEC
			LDY		#$05
			LDA		#<maxuserbufsz
			SBC		[ZP0],Y
			INY
			LDA		#>maxuserbufsz
			SBC		[ZP0],Y
			BCS		USERBUFOK
			;
			;
			LDA		#$1A			;REQUEST TOO LONG
			STA		UERROR
			;
			LDA		#<maxuserbufsz
			STA		COUNT
			LDA		#>maxuserbufsz
			STA		COUNT+1
			BRA		USERBUFCHK
			;
			;
USERBUFOK	LDA [ZP0],Y
			STA COUNT+1
			DEY
			LDA [ZP0],Y
			STA COUNT
*
* FIND WHICH DIRECTION TO MOVE buffer
*
USERBUFCHK	LDY		#$04
			LDA		[ZP0],Y
			BMI		FIUSERBUF2		;SET THE USER'S NAME
*
* USER'S BUFFER IS THE DESTINATION
*
			LDY		#$07
			LDA		[ZP0],Y
			STA		<DESTBUF
			INY
			LDA		[ZP0],Y
			STA		<DESTBUF+1
			INY
			LDA		[ZP0],Y
			STA		<DESTBUF+2
;
			LDA		#userbuf
			STA		<SRCBUF
			LDA		#>userbuf
			STA		<SRCBUF+1
			lda		#^userbuf
			sta		<srcbuf+2
			BRA		FIUSERBUF4		
*
* USER'S BUFFER IS THE SOURCE
*
FIUSERBUF2	; 
			LDY		#$07
			LDA		[ZP0],Y
			STA		<SRCBUF
			INY
			LDA		[ZP0],Y
			STA		<SRCBUF+1
			INY
			LDA		[ZP0],Y
			STA		<SRCBUF+2
;
			LDA		#userbuf
			STA		<DESTBUF
			LDA		#>userbuf
			STA		<DESTBUF+1
			lda		#^userbuf
			sta		<destbuf+2
*
* MOVE THE DATA
*
FIUSERBUF4	; 
		 	JSR		BUFFMOVE	;FINISHED WITH THE MOVE
*
* SET THE RESULT CODE 
*
			LDA		UERROR		;RESULT CODE - LB
			CLC					;STANDARD AMOUNT TO RETURN
			JMP		EXIT_PFI
			;
			;
			eject
*
*
* COMMAND $2B = FILOGIN - LOGIN TO SERVER
*
*	---------------------
*	0	|	ASYNC FLAG = $00	|
*	---------------------
*	1	|	COMMAND	= $2B	|
*	---------------------
*	2	|	RESULT CODE	(2)| *
*	---------------------
*	4	|	SLS NETWORK	(2)|
*	---------------------
*	6	|	SLS NODE	|
*	---------------------
*	7	|	SLS SOCKET	|
*	---------------------
*	8	|	CMD BUFFER LEN	(2)|
*	---------------------
*	A	|	CMD BUFFER PTR	(4)|
*	---------------------
*	E	| REPLY BUFFER LEN (2)|
*	---------------------
* 10	| REPLY BUFFER PTR (4)|
*	---------------------
* 14	| SESSION REFERENCE # | *
*	---------------------
*
		Export	CFIXLogin
		EXPORT	CFILOGIN
CFILOGIN
CFIXLogin	;		
			jsr		CheckAsync	; 7-Oct-91 MSD
			
			jsr		setup
			rep		#mbit+xbit
			longa	on
			longi	on
			ldx		#getinfoparm
			ldy		#^getinfoparm
			jsl		>RamDispatch	;find network number

			sep		#mbit+xbit
			longa	off
			longi	off
*
* SAVE PL HEAP NUMBER
*
*
* IS THE WORKSTATION ALREADY LOGGED INTO THIS SERVER ?
*
			LDX		#$00
_LOOP2b		LDA		SESSION_TBL,X
			BEQ		_NEXT2b		;NOT ACTIVE
*
			LDY		#$04
			LDA		[ZP0],Y		;IS NETWORK = ZERO ?
			BNE		_CHKA		;NO, NOT ZERO
			INY
			LDA		[ZP0],Y
			BEQ		_CHKB		;YES IT IS THISNET
*
_CHKA		LDY		#$04
			LDA		[ZP0],Y		;IS NETWORK = THISNET ?
			CMP		THISNET+1
			BNE		_CHKD		;NOT THISNET
			INY
			LDA		[ZP0],Y
			CMP		THISNET
			BNE		_CHKD		;NOT THISNET
*
_CHKB		LDA		SESSION_NETH,X	;IS SESSION ENTRY = ZERO ?
			BNE		_CHKC		;NOT ZERO
			LDA		SESSION_NETL,X
			BEQ		_CHKNODE	;NETWORK MATCHES
*
_CHKC		LDA		SESSION_NETH,X	;IS SESSION ENTRY = THISNET ?
			CMP		THISNET
			BNE		_NEXT2b		;NETWORK DOES NOT MATCH
			LDA		SESSION_NETL,X
			CMP		THISNET+1
			BNE		_NEXT2b		;NETWORK DOES NOT MATCH
			BRA		_CHKNODE	;MATCH !!!
*
_CHKD		LDY		#$04
			LDA		[ZP0],Y
			CMP		SESSION_NETH,X
			BNE		_NEXT2b		;NOT A MATCH - NETWORK HB
			INY
			LDA		[ZP0],Y
			CMP		SESSION_NETL,X
			BNE		_NEXT2b		;NOT A MATCH - NETWORK LB
;
;
_CHKNODE	LDY		#$06		;CHECK NODE NUMBER
			LDA		[ZP0],Y
			CMP		SESSION_NODE,X	;SAME NODE ??
			BEQ		_SAMERR		;THE SAME !!!!!!!!

_NEXT2b		INX
			CPX		#MAXSESSION
			BNE		_LOOP2b
;
			BRA		_NOTHERE	;NO MATCH FOUND
*
* ERROR - ALREADY LOGIN TO SERVER
*
_SAMERR		LDA		SESSION_TBL,X	;[X] IS ALREADY SET
			LDY		#$14
			STA		[ZP0],Y
;
			INY					;[Y] LENGTH TO RETURN
			LDA		#$13		;ALREADY LOGIN TO SERVER !!!!
			SEC					;NON STANDARD AMOUNT TO RETURN
			JMP		EXIT_PFI
*
* IS THERE ROOM FOR ONE MORE SESSION ?
*
_NOTHERE	; 
			ldy		#8			;see if buffer len is zero
			lda		[ZP0],y
			iny
			ora		[ZP0],y
			bne		_xxlogin1	;no so continue
			jmp		login5		;yes, so exit no error, don't issue call
_xxlogin1	; 
			LDX		#$00
LOGIN1	; 
			LDA		SESSION_TBL,X
			BEQ		LOGIN1A
			INX
			CPX		#MAXSESSION
			BNE		LOGIN1		;LOOK AT THE NEXT ONE
*
* ERROR - NO MORE ROOM FOR MORE SESSIONS
*
			LDA		#$01		;TOO MANY SESSIONS !!!!
			CLC					;STANDARD AMOUNT TO RETURN
			JMP		EXIT_PFI
*
* FIND ASP HEAP SPACE FOR OPEN SESSION CALL
*
LOGIN1A	; 
			stx		sess_idx
*
* STUFF OPEN SESSION CALL
*
			jsr		getzp1parm	;get pointer to enough mem for cmd parm
			LDY		#$00
			LDA		#$00
			STA		(ZP1),Y		;SAVE ASYNC FLAG
			INY
			LDA		#CMD_ASPOPN
			STA		(ZP1),Y		;SAVE COMMAND
			LDY		#$08
			STY		UWORK2
			LDY		#$04
LOGIN2	; 
			STY		UWORK1
			LDA		[ZP0],Y		;GET SLS ADDRESS FROM FI PARAMETER LIST
			LDY		UWORK2
			STA		(ZP1),Y		;SAVE SLS ADDRESS IN THE ASP OPEN PL
			INY
			STY		UWORK2
;
			LDY		UWORK1
			INY
			CPY		#$08
			BNE		LOGIN2
;
;
*
* IS THERE AN ATTENTION ROUTINE ??
*
			LDY		#$15
			LDA		#$00
_LOOP2b1	ORA		[ZP0],Y
			INY
			CPY		#$19
			BNE		_LOOP2b1
;
			CMP		#$00		;USE DEFAULT ??
			BNE		_NODEFAULT
*
* USE DEFAULT ATTENTION ROUTINE
*
			LDY		#$0C		;DEFAULT ATTENTION ROUTINE
			LDA		#ATTEN_TIME
			STA		(ZP1),Y
			INY
			LDA		#>ATTEN_TIME
			STA		(ZP1),Y
			INY
			LDA		#^ATTEN_TIME
			STA		(ZP1),Y
			BRA		_SETFLAG
*
* USE USER DEFINED ATTENTION ROUTINE
*
_NODEFAULT	LDY		#$15
_SAVEIT		LDA		[ZP0],Y
			PHA					;SAVE IT
			INY
			CPY		#$19
			BNE		_SAVEIT
;
			LDY		#$0F
_RESTORE	PLA
			STA		(ZP1),Y
			DEY
			CPY		#$0B
			BNE		_RESTORE
*
* ISSUE NETWORK CALL
*
_SETFLAG	; ;make the open call here
_pfi_process	; 
			jsr		network_call	;make the call of zp1 parm list

*
* WAS THERE AN ERROR IN THE OPEN SESSION CALL ?
*
			LDY		#$02
			LDA		(ZP1),Y
			BEQ		LOGIN3		;CONTINUE PROCESS
			CMP		#$09		;SERVER TOO BUSY?
			BNE		L3_NEXT
			LDA		#$02		;UNABLE TO OPEN SESSION
			BRA		LOGIN3B
L3_NEXT	; 
			CMP		#$06		;NO RESPONSE
			BNE		L3_NEXT1
			LDA		#$03		;NO RESPONSE FROM SERVER
			BRA		LOGIN3B
L3_NEXT1	; 
			CMP		#$07		;BAD VERSION?
			BNE		L3_NEXT2
			LDA		#$19		;BAD VERSION
			BRA		LOGIN3B
L3_NEXT2	LDA		#$01		;TOO MANY SESSIONS
*
* ERROR - UNABLE TO OPEN SESSION
*
LOGIN3B	; 
			CLC					;STANDARD AMOUNT TO RETURN
			JMP		EXIT_PFI
;
*
* CREATE ASP CMD PACKET (LOGIN PACKET)
*
LOGIN3	; 
			LDY		#$00
			LDA		#$00
			STA		(ZP1),Y		;SAVE ASYNC FLAG
			INY
			LDA		#CMD_ASPCMD
			STA		(ZP1),Y		;SAVE COMMAND BYTE
			LDY		#$10
			LDA		(ZP1),Y		;FROM PREVIOUS OPEN SESSION CALL
			LDY		#$08
			STA		(ZP1),Y		;SAVE SESSION REFERENCE NUMBER
			ldy		#$14		;save session number in logon
			sta		[zp0],y		;parm list
*
*
			LDX		SESS_IDX
			STA		SESSION_TBL,X	;SAVE IN TABLE
;
			LDY		#$04
			LDA		[ZP0],Y
			STA		SESSION_NETH,X
;
			INY
			LDA		[ZP0],Y
			STA		SESSION_NETL,X
								;
			INY
			LDA		[ZP0],Y
			STA		SESSION_NODE,X
;
			txa
			asl		a
			tax
			LDA		#$02						;Make all logins version
			STA		SESSION_VERS+1,X			;2.0 by default.
			STZ		SESSION_VERS,X				;** TGH 3/6/89
			;
			;-----> find index to name table
			;
			LDX		SESS_IDX
			LDA		#<SESSION_NAME
			STA		ZP2
			LDA		#>SESSION_NAME
			STA		ZP2+1
			LDA		#<SESSION_NET
			STA		ZP4
			LDA		#>SESSION_NET
			STA		ZP4+1
name_lp		dex
 			bmi		Login3A
			clc
			LDA		ZP2
			adc		#$21
			sta		ZP2
			LDA		ZP2+1
			adc		#$00
			STA		ZP2+1
			clc
			LDA		ZP4
			adc		#$22
			sta		ZP4
			LDA		ZP4+1
			adc		#$00
			STA		ZP4+1
			BRA		NAME_LP
			;
Login3A		LDA		#$00
			STA		(ZP2)		;MAKE SURE IT IS INITALIZED
			sta		(zp4)
			;
			;
			;---> is this the special Login
			;
			ldy		#$01
			lda		[ZP0],y
			cmp		#$2B
			beq		Login3ae		;not the special Command
			;
			; move AFP version number into table  3/6/89 **TGH
			;
			lda		SESS_IDX		;Session number times 2.
			asl		a
			tax
			ldy		#$21			;offset to version number
			lda		[ZP0],y
			sta		SESSION_VERS,x
			iny
			lda		[ZP0],y
			sta		SESSION_VERS+1,x
			;
			; move server name into table  11/17/88 **TGH
			;
			LDY		#$19
			ldx		#$00
Login3aa	LDA		[ZP0],Y
			STA		ZP3,x
			inx
			INY
			CPY		#$1d
			bne		Login3aa
			;
			;
			ldy		#$20
Login3ab	lda		[ZP3],y
			sta		(zp2),y
			dey
			bpl		Login3ab
			;
			; move network name into table 11/17/88 **TGH
			;
			LDY		#$1d
			ldx		#$00
Login3ac	LDA		[ZP0],Y
			STA		ZP3,x
			inx
			INY
			CPY		#$21
			bne		Login3ac
			;
			;
			ldy		#$21
Login3ad	lda		[ZP3],y
			sta		(zp4),y
			dey
			bpl		Login3ad
*
* get ready for ASP Command
*
Login3ae		LDY		#$08		;MOVE BUFFER INFO (CMD & REPLY)
LOGIN4	; 
			LDA		[ZP0],Y
			INY
			STA		(ZP1),Y
			CPY		#$14
			BNE		LOGIN4		;MORE TO MOVE
*
* ISSUE ASP COMMAND CALL TO SERVER
*
			JSR		NETWORK_CALL
			BCC		LOGIN5		;CONTINUE WITH LOGIN
*
* ERROR - NO RESPONSE FROM SERVER
*
			LDA		Cn_PFIERR
			CMP		#$77		;LOG CONT ERROR
			BNE		LOGIN4A
;
			JSR		Update_TMR
			LDA		#$04		;LOGIN CONTINUE
			LDY		#$15
			SEC
			JMP		EXIT_PFI
;
;
LOGIN4A	; 
			PHA
			lda		NETWORK_CALL_RESULT			;CLOSE_SESSION clobbers
			pha									;NETWORK_CALL_RESULT so we save it.
			JSR		CLOSE_SESSION
			pla									;Get back NETWORK_CALL_RESULT.
			sta		NETWORK_CALL_RESULT
			PLA
			STA		CN_PFIERR	;RESTORE PFI ERROR
;
			jsr		login_error

* The chunk of code below was added in order to return error #$1A
* (parameter size error).  I push and pull a because I don't want
* to trash a,x,or y because I'm not sure if EXIT_PFI wants them.
* 11/29/88  **TGH

			pha							;Save old error code.
			lda		NETWORK_CALL_RESULT
			cmp		#$04				;Was this an ASP size error?
			bne		@L1					;Branch if not.
			pla							;Pull old error code.
			lda		#$1A				;PFI Parameter Size Error
			pha							;Push new error code.
@L1			pla							;Get error code.

* End new code chunk

			clc
			JMP		EXIT_PFI
*
* RETURN FI PARAMETER LIST
*
LOGIN5	; 
			JSR		Update_TMR
			LDA		#$00		;NO ERROR
			LDY		#$15		;AMOUNT TO RETURN TO MB
			SEC
			JMP		EXIT_PFI


			eject
*
*
* COMMAND $2C = FILOGCONT - CONTINUE LOGIN TO SERVER
*
*	---------------------
*	0	|	ASYNC FLAG = $00	|
*	---------------------
*	1	|	COMMAND	= $2C	|
*	---------------------
*	2	|	RESULT CODE	(2)| *
*	---------------------
*	4	| SESSION REFERENCE # |
*	---------------------
*	5	|	CMD BUFFER LEN (2)|
*	---------------------
*	7	|	CMD BUFFER PTR (4)|
*	---------------------
*	B	| REPLY BUFFER LEN (2)|
*	---------------------
*	D	| REPLY BUFFER PTR (4)|
*	---------------------
*
		EXPORT	CFILOGCONT
CFILOGCONT		;		
			jsr		CheckAsync	; 7-Oct-91 MSD
			
			jsr		setup
*
* SAVE PL HEAP NUMBER
*
*
* IS THIS A VALID SESSION REFERENCE NUMBER ?
*
			JSR		SESS_CHK
			BCC		LOGCONT1	;YES IT IS VALID
*
* ERROR UNABLE TO FIND SESSION REFERENCE NUMBER
*
			LDA		#$06		;INVALID SESSION NUMBER
			CLC
			JMP		EXIT_PFI
*
* CREATE ASP CMD PARAMETER LIST
*
LOGCONT1	; 
			jsr		getzp1parm

			LDY		#$00
			LDA		#$00
			STA		(ZP1),Y		;SAVE ASYNC FLAG
			INY
			LDA		#CMD_ASPCMD
			STA		(ZP1),Y		;SAVE COMMAND BYTE
			LDY		#$04
			LDA		[ZP0],Y
			LDY		#$08
			STA		(ZP1),Y		;SAVE REFERENCE #
;
;
			LDY		#$09
			STY		UWORK2
			LDY		#$05
LOGCONT3	; 
			STY		UWORK1
			LDA		[ZP0],Y		;GET SLS ADDRESS FROM FI PARAMETER LIST
			LDY		UWORK2
			STA		(ZP1),Y		;SAVE SLS ADDRESS IN THE ASP OPEN PL
			INY
			STY		UWORK2
;
			LDY		UWORK1
			INY
			CPY		#$11
			BNE		LOGCONT3
*
* ISSUE ASP COMMAND CALL TO SERVER
*
			JSR		NETWORK_CALL
			BCC		LOGCONT4	;CONTINUE WITH LOGCONT
*
* ERROR - NO RESPONSE FROM SERVER
*
			LDA		Cn_PFIERR
			CMP		#$77		;LOG CONT
			BNE		LOGCONT3A
;
			LDA		#$04		;LOGIN CONTINUE
			CLC
			JMP		EXIT_PFI
;
;
LOGCONT3A	; 
			PHA
			JSR		CLOSE_SESSION
			PLA
			STA		CN_PFIERR	;RESTORE PFI ERROR
;
			jsr		login_error
			CLC					;STANDARD AMOUNT TO RETURN
			JMP		EXIT_PFI
*
* RETURN RESULT CODE
*
LOGCONT4	; 
			LDA		#$00		;NO ERROR
			CLC
			JMP		EXIT_PFI


			eject
*
*
* COMMAND $2D = FILOGOUT - LOGOUT TO SERVER
*
*	---------------------
*	0	|	ASYNC FLAG = $00	|
*	---------------------
*	1	|	COMMAND	= $2D	|
*	---------------------
*	2	|	RESULT CODE	(2)| *
*	---------------------
*	4	| SESSION REFERENCE # |
*	---------------------
*

		EXPORT	CFILOGOUT
CFILOGOUT		;		
			jsr		CheckAsync	; 7-Oct-91 MSD
			
			jsr		setup
*
* IS THIS A VALID SESSION REFERENCE NUMBER ?
*
			JSR		SESS_CHK
			BCC		LOGOUT2		;SESSION IS FOUND
*
* ERROR - UNABLE TO FIND SESSION
*
			LDA		#$06		;INVALID SESSION NUMBER
			CLC
			JMP		EXIT_PFI
*
* CREATE & ISSUE LOGOUT PACKET
*
LOGOUT2	; 
			LDA		#LOGOUT
			STA		WS_COMBUF
;
			LDA		#$01
			STA		PKT_CNT
			STZ		PKT_CNT+1
;
			LDY		#$04
			LDA		[ZP0],Y
			STA		CURSESS		;SAVE SESSION REF #
;
			JSR		CMD_ROUTING
*
* CLOSE SESSION
*
			JSR		CLOSE_SESSION
*
* UNMOUNT VOLUMES FOR THAT SESSION
*
			LDX		#13
LOGOUT3	; 
			LDA		CURSESS
			CMP		NDT_SESS,X
			BNE		LOGOUT4		;THIS IS NOT THE SAME SESSION

			lda		SESS_IDX
			LDY		#$00
			CLC					;SEND NO PACKET
			JSR		VOL_UNMOUNT	;X IS OFFSET TO NDT TABLES
								;X IS UNCHANGED !!!
LOGOUT4	; 
			DEX
			BPL		LOGOUT3		;MORE TO CHECK
*
* REMOVE SESSION FROM SESSION TABLE
*
			LDX		SESS_IDX
			STZ		SESSION_TBL,X	;REMOVE FROM TABLE
*
* RETURN NO ERROR FOR RESULT CODE
*
			LDA		#$00		;NO ERROR
			CLC					;STANDARD AMOUNT TO RETURN
			JMP		EXIT_PFI


			eject
*
*
* COMMAND $2E = FIMOUNT - MOUNT VOLUME FROM SERVER
*
*	---------------------
*	0	|	ASYNC FLAG = $00	|
*	---------------------
*	1	|	COMMAND	= $2E	|
*	---------------------
*	2	|	RESULT CODE	(2)| *
*	---------------------
*	4	| SESSION REFERENCE # |
*	---------------------
*	5	|	MOUNT FLAG	|
*	---------------------
*	6	|	VOLUME NAME PTR (4)|
*	---------------------
*	A	|	VOLUME ID	(2)|
*	---------------------
*	C	|	SLOT/DRIVE	| *
*	---------------------
*
;
; 20-Dec-91 MSD	Commented out three instructions that changed a
;				slash (/) character in a volume name to a zero.
;				This is inappropriate since only a volume name is
;				supplied (normally, the separator -- either slash
;				or colon -- is changed to nulls in a pathname).
;

		EXPORT	CFIMOUNT
CFIMOUNT		;		
			jsr		CheckAsync	; 7-Oct-91 MSD
			
			jsr		setup
*
* SAVE PL HEAP NUMBER
*
*
* IS THIS A VALID SESSION REFERENCE NUMBER ?
*
			JSR		SESS_CHK
			BCC		FIMOUNT1	;SESSION IS FOUND
*
* ERROR - INVALID SESSION NUMBER
*
			LDA		#$06		;INVALID SESSION NUMBER
			CLC
			JMP		EXIT_PFI
*
* MOVE PATHNAME TO THE CARD
*
FIMOUNT1	; 
			LDY		#$04
			LDA		[ZP0],Y
			STA		CURSESS		;SAVE SESSION REF #
;
			LDY		#$06
			LDA		[ZP0],Y
			STA		<SRCBUF
			INY
			LDA		[ZP0],Y
			STA		<SRCBUF+1
			INY
			LDA		[ZP0],Y
			STA		<SRCBUF+2
;
			LDA		#WS_PATH
			STA		<DESTBUF
			LDA		#>WS_PATH
			STA		<DESTBUF+1
			lda		#^ws_path
			sta		<destbuf+2
;
			LDA		#NDT_NAMELEN
			STA		<COUNT
			LDA		#00
			STA		<COUNT+1
;
			JSR		BUFFMOVE
*
* CHECK PATH LENGTH BYTE (IF OVER 28 )
*
			LDX		WS_PATH
			beq		mnterr
			CPX		#NDT_NAMELEN
			BCC		FIMOUNT2	;LENGTH IS OK !!!
*
* ERROR - INVALID NAME FORMAT
*
mnterr	; 
			LDA		#$05		;INVALID NAME
			CLC
			JMP		EXIT_PFI
*
* MUST SHIFT NAME ONE PLACE TO INSERT SLASH
*
FIMOUNT2	; 
			LDA		WS_PATH,X
			STA		WS_PATH+1,X
			DEX
			BNE		FIMOUNT2	;MORE TO MOVE

			LDA		#SLASH
			STA		WS_PATH+1
			INC		WS_PATH		;UPDATE LENGTH
*
* IS THIS A MOUNT CALL ?
*
			LDY		#$05
			LDA		[ZP0],Y
			BMI		MOUNT1
			JMP		UNMOUNT		;NO , IT WAS TO UNMOUNT A VOLUME

*
*
* MOUNT A VOLUME
*
*


*
* IS THIS VOLUME ALREADY MOUNTED ?
*
MOUNT1	; 
			JSR		FND_CURSRV
			BCS		MOUNT1A		;VOLUME NOT FOUND
*
* ERROR - VOLUME ALREADY MOUNTED
*
			LDA		#$11
			CLC
			JMP		EXIT_PFI
*
* REMOVE THE SLASH AS FIRST CHARACTER
*
MOUNT1A	; 
			LDY		#$01
_LOOP2e		LDA		WS_PATH+1,Y
			STA		WS_PATH,Y
			INY
			CPY		WS_PATH
			BNE		_LOOP2e
;
			DEC		WS_PATH
*
* IS THERE AN AVAILABLE SPACE IN THE NDT ?
*
MOUNT2	; 
			LDA		NDT_CNT
			CMP 	#14					;Changed from 15  **TGH
			BCC		MOUNT3		;YES, THERE ARE SOME AVAIL UNIT #
*
* ERROR - TOO MANY VOLUMES
*
			LDA		#$08		;TOO MANY VOLUMES !!!!
			CLC					;STANDARD AMOUNT TO RETURN
			JMP		EXIT_PFI
*
* ARE WE IN PRODOS NAMING MODE ?
*
MOUNT3	; 
			LDA		WS_PATH
			CMP		#NDT_NAMELEN
			BCS		MOUNT3_AA	;LENGTH IS OK
;
			BIT		PFI_NAMING
			BMI		MOUNT3_A	;AFP MODE
;
			JSR		CHK_PRODOS
			BCC		MOUNT3_A	;VALID PRODOS MODE
;
MOUNT3_AA	; 
			LDA		#$05		;INVALID NAME FORMAT
			CLC
			JMP		EXIT_PFI
*
* CREATE OPEN VOLUME PACKET IN WS_COMBUF
*
MOUNT3_A	; 
			LDA		#OPENVOL
			STA		WS_COMBUF
			STZ		WS_COMBUF+1
;
			STZ		WS_COMBUF+2	;HIGH BYTE OF BITMAP = 0
			LDA		#%00100000	 ;RETURN VOLUME ID
			STA		WS_COMBUF+3	;LOW BYTE OF BITMAP
*
* MOVE NAME INTO PACKET
*
			LDY		WS_PATH
MOUNT3A	; 
			LDA		WS_PATH,Y
;			CMP		#SLASH						; Removed 20-Dec-91 MSD
;			BNE		MOUNT3AA	;NOT A SLASH	; Removed 20-Dec-91 MSD
;			LDA		#SRVR_SLASH					; Removed 20-Dec-91 MSD
MOUNT3AA	; 
			STA		WS_COMBUF+4,Y
			DEY
			BPL		MOUNT3A
*
* FIND LENGTH OF PACKET
*
			CLC
			LDA		WS_PATH
			ADC		#$05		;COUNT BYTE + BITMAP + CMD + 0
			STA		PKT_CNT
			STZ		PKT_CNT+1
*
* IS THE LAST CHARACTER A SLASH ?
*
			LDY		WS_PATH
			LDA		WS_COMBUF+4,Y
			CMP		#SRVR_SLASH
			BNE		MOUNT3AAA
;
			DEC		PKT_CNT		;REMOVE ONE FROM COUNT
			DEC		WS_COMBUF+4	;REDUCE SIZE OF VOLUME
*
* IS THE PACKET AN EVEN COUNT (PAD ?)
*
MOUNT3AAA	; 
			LDA		PKT_CNT
			AND		#%00000001	;ODD ?
			BEQ		MOUNT3AAAA	;NO, PADDING NEEDED
;
			LDX		PKT_CNT
			STZ		WS_COMBUF,X
			INX
			STX		PKT_CNT
*
* IS THERE A PASSWORD ?
*
MOUNT3AAAA	; 
			LDY		#$05
			LDA		[ZP0],Y
			AND		#%01000000
			BEQ		MOUNT3B		;NO THERE IS NO PASSWORD
*
* MOVE PASSWORD INTO PACKET
*
			LDY		#$0D
			LDA		[ZP0],Y
			STA		<SRCBUF
			INY
			LDA		[ZP0],Y
			STA		<SRCBUF+1
			INY
			LDA		[ZP0],Y
			STA		<SRCBUF+2
;
			CLC
			LDA		PKT_CNT
			ADC		#WS_COMBUF
			STA		<DESTBUF
			LDA		PKT_CNT+1
			ADC		#>WS_COMBUF
			STA		<DESTBUF+1
			lda		#^WS_COMBUF
			sta		<destbuf+2
;
			LDA		#$08		;SIZE OF PASSWORD
			STA		<COUNT
			LDA		#00			;MOVE ONTO CARD
			STA		<COUNT+1
;
			JSR		BUFFMOVE
*
* ADJUST PACKET SIZE
*
			CLC
			LDA		PKT_CNT
			ADC		#$08
			STA		PKT_CNT
*
* ISSUE AFP OPEN VOLUME COMMAND
*
MOUNT3B	; 
			JSR		CMD_ROUTING
			BCC		MOUNT4		;VOLUME IS NOW OPEN FOR USER
*
* WAS THIS A PARM ERROR ??
*
			LDA		Cn_PFIERR
			cmp		#$65
			bne		mv_over
*
* ERROR - INVALID SESSION NUMBER or unknow volume
*
			LDA		#$06		;INVALID SESSION NUMBER
			CLC
			JMP		EXIT_PFI
*
* ERROR -- UNABLE TO OPEN VOLUME
*
mv_over		LDA		#$07		;UNABLE TO OPEN VOLUME !!!!
			CLC					;STANDARD AMOUNT TO RETURN
			JMP		EXIT_PFI
*
* FIND AVAILABLE SPACE IN TABLE
*
MOUNT4		;
			;----->>>> IS PRODOS 8 ACTIVE  ????
			;
			;
			;
			lda 	ACTIVE8
			beq		Mount6A
			;
			;
			;
			LDX		#$00
MOUNT5		LDA		AUN_RAM,X
			BNE		MOUNT6		;UNIT # FOUND !!
			INX
			cpx		#14
			bne		Mount5
			BRA		MOUNT6a		
*
* FIND SPACE IN NDT FOR NEW VOLUME
*
MOUNT6		STZ		AUN_RAM,X	;REMOVE FROM AUN TABLE			
Mount6A		AND		#%11110000	;HIGH NIBBLE ONLY
			STA		AUN_HOLD
			
;
			LDX		#$00
MOUNT7		LDA		NDT_SESS,X
			BEQ		MOUNT8		;SPACE IS FOUND
			INX
			BRA		MOUNT7		;ALWAYS AT LEAST ONE SPACE AVAIL
*
* PLACE SESSION & VOLUME ID IN TABLE
*
MOUNT8		LDY		#$0A
			LDA		WS_COMBUF+2
			STA		NDT_IDH,X	;SAVE HB OF VOLUME ID
			STA		[ZP0],Y
			Sta		WS_Combuf+32
;
			INY
			LDA		WS_COMBUF+3
			STA		NDT_IDL,X	;SAVE LB OF VOLUME ID
			STA		[ZP0],Y
			Sta		WS_Combuf+33
			;
			LDY		#$04
			LDA		[ZP0],Y
			STA		NDT_SESS,X	;SAVE SESSION REF #
			Sta		WS_Combuf+2
*
* SAVE UNIT NUMBER !!!
* IS THE USER BIT SET ??
*
			LDY		#$05
			LDA		[ZP0],Y
			AND		#%00000001	;SAVE USER BIT
			ORA		AUN_HOLD
			STA		NDT_UNIT,X	;SAVE UNIT NUMBER IN NDT
;
			LDY		#$0C
			STA		[ZP0],Y		;SAVE IN PARAMETER LIST
			Sta		WS_Combuf+3

*
* UPDATE # OF VOLUMES IN NDT
*
			INC		NDT_CNT
*
* FIND INDEX TO NDT_NAME
*
			STZ		NDT_IDX1
			STZ		NDT_IDX1+1
MOUNT9	; 
			DEX
			BMI		MOUNT10
;
			CLC
			LDA		NDT_IDX1
			ADC		#NDT_NAMELEN	;should be this not this + 1 like it was
			STA		NDT_IDX1		;gws 2-sep-87
			LDA		NDT_IDX1+1
			ADC		#$00
			STA		NDT_IDX1+1
			BRA		MOUNT9
*
* MOVE NAME INTO NDT
*
MOUNT10	; 
			CLC
			LDA		NDT_IDX1
			ADC		#<NDT_NAME
			STA		<ZP2
			LDA		NDT_IDX1+1
			ADC		#>NDT_NAME
			STA		<ZP2+1
;
			LDY		WS_COMBUF+4	 ;OFFSET IN NAME
MOUNT11	; 
			LDA		WS_COMBUF+4,Y
			STA		(ZP2),Y
			DEY
			BPL		MOUNT11
*
* ZERO OUT REST OF BUFFER
*
			LDY		WS_COMBUF+4
			LDA		#$00
MOUNT11B	; 
			INY
			CPY		#NDT_NAMELEN
			BEQ		MOUNT11C	;DONE
			STA		(ZP2),Y
			Sta		WS_Combuf+4,y
			BRA		MOUNT11B
*
* SAVE SLOT/DRIVE
*
MOUNT11C	; 
			LDA		AUN_HOLD
			AND		#%11110000	;strip low nibble
			STA		Cn_DEVNUM

			beq		@L4

			SEC
			JSR		PDOS_DEVICE	;ADD TO LOCAL DEVICE TABLE

*
* Add server name and network name to ws_combuf
*

@L4			LDA		#<SESSION_NAME
			STA		ZP2
			LDA		#>SESSION_NAME
			STA		ZP2+1
			LDA		#<SESSION_NET
			STA		ZP4
			LDA		#>SESSION_NET
			STA		ZP4+1

			ldx		SESS_IDX
@L0			dex
 			bmi		@L1
			clc
			LDA		ZP2
			adc		#$21
			sta		ZP2
			LDA		ZP2+1
			adc		#$00
			STA		ZP2+1
			clc
			LDA		ZP4
			adc		#$22
			sta		ZP4
			LDA		ZP4+1
			adc		#$00
			STA		ZP4+1
			BRA		@L0

@L1			ldy		#$20			;Move server name
@L2			lda		(ZP2),y
			sta		ws_combuf+$22,y
			dey
			bpl		@L2

			ldy		#$21			;Move network name
@L3			lda		(ZP4),y
			sta		ws_combuf+$42,y
			dey
			bpl		@L3

			;
			;----> should we call the mount vector
			;
			lda		#$00
			ldx 	#$03
Mount11D	ora		Vector_Mount,x
			dex
			bne		Mount11D
			cmp		#$00
			beq		Mount11E			;no Vector installed
			;
			longi	on
			longa 	on
			;
			REP		#$30
			phb
			ldx		#mount11E-1			;Put my return Address on the Stack
			phx
			;
			;
			longa 	off
			longi	off
			sep		#$30
			lda		VECTOR_MOUNT+2
			pha
			longi	on
			longa	on
			REP		#$30
			ldx		VECTOR_MOUNT		;Put vector on stack
			dex
			phx

			;
			ldx		#ws_combuf+2
			ldy		#^ws_combuf+2
			rtl
			;
			longi	off
			longa 	off
			;
			;
*
* RETURN NO ERROR
*
Mount11E	SEP		#$30
			LDA		#$00		;NO ERROR
			LDY		#$0D		;AMOUNT TO RETURN TO MB
			SEC
			JMP		EXIT_PFI


*
*
* UNMOUNT VOLUME
*
*

		EXPORT	UNMOUNT
UNMOUNT		;		
*
* IS VOLUME MOUNTED ?
*
			JSR		FND_CURSRV
			BCC		UNMOUNT1	;SERVER FOUND
*
* ERROR - VOLUME NOT MOUNTED
*
			LDA		#$09
			CLC
			JMP		EXIT_PFI
*
* CLOSE VOLUME AND REMOVE FROM NDT
* (X REGISTER IS THE INDEX TO THE TABLES)
*
UNMOUNT1	; 
			lda		SESS_IDX
			LDY		#00
			LDX		NDT_IDX2	;INDEX TO NDT OTHER
			SEC					;SEND PACKET TO SERVER
			JSR		VOL_UNMOUNT
*
* RETURN NO ERROR MESSAGE
*
			LDA		#$00		;NO ERROR
			CLC					;STANDARD AMOUNT TO RETURN
			JMP		EXIT_PFI



		ENDP

		end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/ATRam/PFI/PFI_cmds2.aii b/IIGS.601.SRC/GS.OS/Drivers/ATRam/PFI/PFI_cmds2.aii
new file mode 100644
index 0000000..a94c042
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/ATRam/PFI/PFI_cmds2.aii
@@ -0,0 +1 @@
+
;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------
	Import	UM_INDEX
	Import	PFI_BANK
	IMPORT	ADJUST
	IMPORT	AFP
	IMPORT	AFP_PREFIX
	IMPORT	AUN_RAM
	import	aun_cnt
	IMPORT	B1_MULT
	IMPORT	BUFFMOVE
	IMPORT	CHK_PRODOS
	IMPORT	CMD_ROUTING
	IMPORT	CN_PFIXPTR
	IMPORT	CURSESS
	IMPORT	Cn_PFIERR
	IMPORT	FND_CURSRV
	IMPORT	LCL_DEVCNT
	IMPORT	MULT1
	IMPORT	MULT2
	IMPORT	NAME_STAT
	IMPORT	NDT_CNT
	IMPORT	NDT_COUNT
	IMPORT	NDT_IDH
	IMPORT	NDT_IDL
	IMPORT	NDT_IDX1
	IMPORT	NDT_IDX2
	IMPORT	NDT_NAME
	IMPORT	NDT_SESS
	IMPORT	NDT_UNIT
	IMPORT	NETWORK_CALL
	IMPORT	PATH2BUF
	IMPORT	PDOS_DEVICE
	IMPORT	PFI_NAMING
	IMPORT	PFI_NODEV
	IMPORT	AUN_CNT
	IMPORT	AUN_HOLD
	IMPORT	AUN_RAM
	Import	PUN_ROM
	IMPORT	PRO2CLK
	IMPORT	CLK2STD
	IMPORT	STD2AFP
	IMPORT	AFP2STD
	IMPORT	STD2CLK
	IMPORT	CLK2PRO
	IMPORT	CHK_PROTIME
	IMPORT	PKT_CNT
	IMPORT	PROD
	IMPORT	PRO_PREFIX
	IMPORT	PRO_TIME
	IMPORT	SESSION_TBL
	IMPORT	SESS_IDX
	IMPORT	SRCPATH
	IMPORT	STUFF_IDS
	IMPORT	UWORK1
	IMPORT	UWORK2
	IMPORT	WS_COMBUF
	IMPORT	WS_PATH
	IMPORT	getzp1parm
	IMPORT	setup
	Import	Active8
	Import	Vector_Mount
	Import	Vector_UNMnt
	Import	Vector_Atten
	Import	SESSION_NAME
	Import	SESSION_NET
	
; ===>	MSD	23-Apr-90	(imports)
	import	chkslash
	import	pro_pfxloc
	import	afp_pfxloc
; <===	MSD	23-Apr-90	(imports)

	import	CheckAsync		; 7-Oct-91 MSD

;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

	ENTRY	EXIT_PFI
*
* pfi_cmds2
*
* Greg Seitz (14-Jul-87)
*
*

		INCLUDE	'zp.equates'
		include	'global.equates'
		include 'pfi_equates'
		
*		EXPORT	pficmds2	
pficmds2	PROC
			longa	off
			longi	off
*
*
*	PARAMIS NETWORK SOFTWARE
*
*
*	CONFIDENTIAL
*
*
* MODULE :	PFI0.B - PRODOS FILING INTERFACE	(PART 0)
*	ADDITIONAL CALLS
*
*	WRITTEN BY THOMAS EAGER
*
*	MODIFIED: 06-15-87	4:18	TE
*
*	COPYRIGHT 1986,87	ParaMIS CORPORATION
*
* ALL RIGHTS RESERVED
*
*

			eject


*
*
* COMMAND $2F = FILISTSESSIONS - LIST SESSIONS
*
*	---------------------
*	0	|	ASYNC FLAG = $00	|
*	---------------------
*	1	|	COMMAND	= $2F	|
*	---------------------
*	2	|	RESULT CODE	(2)| *
*	---------------------
*	4	|	BUFFER LENGTH (2)|
*	---------------------
*	6	|	BUFFER POINTER	(4)|
*	---------------------
*	A	|	ENTRIES RETURNED	|
*	---------------------
*

		EXPORT	CFILIST
CFILIST		;		
			jsr		CheckAsync	; 7-Oct-91 MSD
			
			jsr		setup

*
* INITIALIZE COUNTER & OFFSETS
*
			LDA		#WS_COMBUF
			STA		<ZP1
			LDA		#>WS_COMBUF
			STA		<ZP1+1
;
			STZ		NDT_COUNT	;NO VOLUMES IN BUFFER YET
			STZ		NDT_IDX1	;INDEX TO NDT_NAMES (LB -START)
			STZ		NDT_IDX1+1	;INDEX TO NDT_NAMES (HB -START)
			LDX		#$00
*
* IS THIS ENTRY IN NDT ACTIVE ?
*
LIST1	; 
			STX		NDT_IDX2	;INDEX TO NDT_SESS,_IDL,_IDH,_UNIT
			LDA		NDT_SESS,X
			BEQ		LIST3		;UPDATE COUNTERS
*
* PLACE SESSION IN WORK BUFFER
*
			LDY		#$00
			STA		(ZP1),Y		;SAVE SESSION NUMBER
			INY
*
* PLACE UNIT NUMBER IN WORK BUFFER
*
			LDA		NDT_UNIT,X
			STA		(ZP1),Y		;SAVE UNIT NUMBER
			INY
*
* PLACE NAME IN WORK BUFFER
*
			CLC
			LDA		NDT_IDX1	;OFFSET TO NDT_NAME TABLE
			ADC		#NDT_NAME
			STA		<ZP2
			LDA		NDT_IDX1+1
			ADC		#>NDT_NAME
			STA		<ZP2+1
;
			STY		UWORK1
			LDY		#$00
LIST2	; 
			LDA		(ZP2),Y
			STY		UWORK2
;
			LDY		UWORK1
			STA		(ZP1),Y
			INY
			STY		UWORK1
			LDY		UWORK2
			INY
			CPY		#NDT_NAMELEN+2
			BNE		LIST2		;MORE OF NAME TO USE
*
* PLACE VOLUME ID IN WORK BUFFER
*
			LDX		NDT_IDX2
			LDA		NDT_IDH,X
			STA		(ZP1),Y
			INY
			LDA		NDT_IDL,X
			STA		(ZP1),Y
*
* UPDATE ZP1 (DON'T HAVE TO WORRY ABOUT PAGE WRAP)
*
			CLC
			LDA		#$20		;SIZE OF ONE ENTRY
			ADC		<ZP1
			STA		<ZP1
			LDA		#$00
			ADC		<ZP1+1
			STA		<ZP1+1
*
* UPDATE # OF ENTRIES IN BUFFER
*
			INC		NDT_COUNT
*
* UPDATE COUNTERS
*
LIST3	; 
			CLC
			LDA		NDT_IDX1
			ADC		#NDT_NAMELEN
			STA		NDT_IDX1
			LDA		NDT_IDX1+1
			ADC		#$00
			STA		NDT_IDX1+1
;
			LDX		NDT_IDX2
			INX
			CPX		#14			;7 SLOTS * 2 DRIVES
			BEQ		LIST4		;CONTIINUE
			JMP		LIST1		;MORE TO LOOK AT
*
* ARE THERE ANY SESSIONS WITHOUT VOLUMES MOUNTED ?
*
LIST4	; 
			LDX		#$00
LIST5	; 
			STX		SESS_IDX	;INDEX TO SESSION TABLE
			LDY		#$00
LIST6	; 
			LDA		SESSION_TBL,X
			BEQ		LIST7		;NOT AN ACTIVE SESSION
			CMP		NDT_SESS,Y
			BEQ		LIST7		;THIS ONE HAS A MOUNTED VOLUME
			INY
			CPY		#14			;SIZE OF NDT TABLES
			BNE		LIST6
*
* SAVE SESSION IN WORK BUFFER - NO MOUNTED VOLUMES
*
			LDA		SESSION_TBL,X
			STA		(ZP1)
;
			LDY		#$01
			LDA		#$00		;NO NAME
LIST6A	; 
			STA		(ZP1),Y
			INY
			CPY		#$20		;SIZE OF ONE ENTRY
			BNE		LIST6A
*
* UPDATE ZP1 (DON'T HAVE TO WORRY ABOUT PAGE WRAP)
*
			CLC
			LDA		#$20		;SIZE OF ONE ENTRY
			ADC		<ZP1
			STA		<ZP1
			LDA		#$00
			ADC		<ZP1+1
			STA		<ZP1+1
*
* UPDATE COUNT BYTE
*
			INC		NDT_COUNT
*
* MOVE TO NEXT SESSION IN THE SESSION TABLE
*
LIST7	; 
			LDX		SESS_IDX
			INX
			CPX		#MAXSESSION
			BNE		LIST5		;LOOK AT THE NEXT SESSION
*
* FIND LENGTH OF WORK BUFFER
*
			SEC
			LDA		<ZP1
			SBC		#WS_COMBUF
			STA		<COUNT
			LDA		<ZP1+1
			SBC		#>WS_COMBUF
			STA		<COUNT+1
;
			LDA		NDT_COUNT
			STA		UWORK1		;MAX POSSIBLE
*
* IS THE USERS BUFFER LARGE ENOUGH TO HOLD ALL OF IT ?
*
LIST7A	; 
			SEC
			LDY		#$04
			LDA		[ZP0],Y
			SBC		<COUNT
			INY
			LDA		[ZP0],Y
			SBC		<COUNT+1
			BCS		LIST8		;BUFFER ON MB IS BIG ENOUGH
*
* REDUCE COUNT IF NEEDED
*
			LDA		NDT_COUNT
			BEQ		LIST9		;NO HOPE TO MOVE DATA
;
			DEC		NDT_COUNT
;
			SEC
			LDA		<COUNT
			SBC		#$20
			STA		<COUNT
			LDA		<COUNT+1
			SBC		#$00
			STA		<COUNT+1
			BRA		LIST7A		;TRY AGAIN
*
* MOVE WORK BUFFER TO MB BUFFER
*
LIST8	; 
			LDA		#WS_COMBUF
			STA		<SRCBUF
			LDA		#>WS_COMBUF
			STA		<SRCBUF+1
			LDA		#^WS_COMBUF
			STA		<SRCBUF+2
;
			LDY		#06
			LDA		[ZP0],Y
			STA		<DESTBUF
			INY
			LDA		[ZP0],Y
			STA		<DESTBUF+1
			INY
			LDA		[ZP0],Y
			STA		<DESTBUF+2
;
								;
			JSR		BUFFMOVE
*
* PLACE # OF ENTRIES IN BUFFER IN PL
*
LIST9	; 
			LDY		#$0A
			LDA		NDT_COUNT
			STA		[ZP0],Y
*
* WAS ALL OF THE DATA GIVEN TO USER ?
*
			LDA		NDT_COUNT
			CMP		UWORK1
			BEQ		LIST10
			LDA		#$0B		;BUFFER TOO SMALL
			BRA		LIST11
LIST10	; 
			LDA		#$00		;NO ERROR
*
* RETURN PARAMETER LIST
*
LIST11	; 
			LDY		#$0B		;AMOUNT TO RETURN
			SEC
			JMP		EXIT_PFI

			eject

*
*
* COMMAND $30 = GET TIME ZONE
*
*	---------------------
*	0	|	ASYNC FLAG = $00	|
*	---------------------
*	1	|	COMMAND	= $30	|
*	---------------------
*	2	|	RESULT CODE	(2)| *
*	---------------------
*	4	|	TIME	FLAG	|
*	---------------------
*
*
BANK1_ADJUST	DC.B	$05,$8B,$B2,$00	;USED BY TIME ROUTINE
*
*
		EXPORT	CFITIMEZONE
CFITIMEZONE		;		
			jsr		CheckAsync	; 7-Oct-91 MSD
			
			jsr		setup
*
* IS TIME WITHIN LIMITS ?
*
			LDY		#$04
			LDA		[ZP0],Y
			AND		#%01111111	;STRIP OFF DIRECTIONAL BIT
			CMP		#24
			BCC		TIMEZONE1	;TIME OK
*
* ERROR - TIME FLAG ERROR
*
			LDA		#$0C
			CLC
			JMP		EXIT_PFI
*
* CALCULATE OFFSET
*
TIMEZONE1	; 
			STA		MULT1		;SAVE # OF HOURS
;
			STZ		MULT2		;SAVE SEC/HOUR
			STZ		MULT2+1
			LDA		#$0E
			STA		MULT2+2
			LDA		#$10
			STA		MULT2+3
;
			LDX		#$03		; 14-Jan-92 MSD (was 2) get all 4 bytes!
TIMEZONE2	; 
			STZ		PROD,X		;ZERO OUT PROD
			DEX
			BPL		TIMEZONE2
;
			JSR		B1_MULT		;MULTIPLE
*
* FIND DIRECTION OF OFFSET
*
			LDY		#$04
			LDA		[ZP0],Y
			BPL		TIMEZONE3	;NEGATIVE NUMBER
*
* SUBTRACT OFFSET FROM DEFAULT
*
			SEC
			LDA		BANK1_ADJUST+3
			SBC		PROD+3
			STA		ADJUST+3
;
			LDA		BANK1_ADJUST+2
			SBC		PROD+2
			STA		ADJUST+2
								;
			LDA		BANK1_ADJUST+1
			SBC		PROD+1
			STA		ADJUST+1
;
			LDA		BANK1_ADJUST
			SBC		PROD
			STA		ADJUST
			BRA		TIMEZONE4	;ALL DONE
*
* ADD OFFSET TO DEFAULT
*
TIMEZONE3	; 
			CLC
			LDA		BANK1_ADJUST+3
			ADC		PROD+3
			STA		ADJUST+3
;
			LDA		BANK1_ADJUST+2
			ADC		PROD+2
			STA		ADJUST+2
								;
			LDA		BANK1_ADJUST+1
			ADC		PROD+1
			STA		ADJUST+1
;
			LDA		BANK1_ADJUST
			ADC		PROD
			STA		ADJUST
*
* SET THE RESULT CODE TO NO ERROR
*
TIMEZONE4	; 
			LDA		#$00		;RESULT CODE - LB
			CLC					;STANDARD AMOUNT TO RETURN
			JMP		EXIT_PFI


			eject

*
*
* COMMAND $31 = FIGETSRCPATH - GET PATH TO LAST OPEN FILE
*
*	---------------------
*	0	|	ASYNC FLAG = $00	|
*	---------------------
*	1	|	COMMAND	= $31	|
*	---------------------
*	2	|	RESULT CODE	(2)| *
*	---------------------
*	4	|	BUFFER POINTER	(4)|
*	---------------------
*
*
		EXPORT	CFIGETSRCPATH
CFIGETSRCPATH		;		
			jsr		CheckAsync	; 7-Oct-91 MSD
			
			jsr		setup
*
* TIME TO GET THE USER'S NAME
*
			LDX		SRCPATH
			INX
			STX		<COUNT
			LDA		#00
			STA		<COUNT+1		;TWO PORT MOVE - OFF OF CARD
;
			LDY		#$04
			LDA		[ZP0],Y
			STA		<DESTBUF
			INY
			LDA		[ZP0],Y
			STA		<DESTBUF+1
			INY
			LDA		[ZP0],Y
			STA		<DESTBUF+2
;
			LDA		#SRCPATH
			STA		<SRCBUF
			LDA		#>SRCPATH
			STA		<SRCBUF+1
			LDA		#^SRCPATH
			STA		<SRCBUF+2
								;
			JSR		BUFFMOVE	;FINISHED WITH THE MOVE
*
* SET THE RESULT CODE TO NO ERROR
*
			LDA		#$00		;RESULT CODE - LB
			CLC					;STANDARD AMOUNT TO RETURN
			JMP		EXIT_PFI
;
;
			eject

*
*
* COMMAND $32 = FIACCESS - GET /SET ACCESS RIGHTS
*
*	---------------------
*	0	|	ASYNC FLAG = $00	|
*	---------------------
*	1	|	COMMAND	= $32	|
*	---------------------
*	2	|	RESULT CODE	(2)| *
*	---------------------
*	4	| DIRECTIONAL FLAG (1)|
*	---------------------
*	5	|	ACCESS RIGHTS	(4)| **
*	---------------------
*	9	| PATHNAME POINTER (4)|
*	---------------------
*	D	| CREATOR	POINTER (4)|
*	---------------------
*	11	| GROUP	POINTER (4)|
*	---------------------
*
*

		EXPORT	CFIACCESS
CFIACCESS		;		
			jsr		CheckAsync
			
			jsr		setup
*
* MOVE PATHNAME ONTO CARD
*
			LDY		#$09
			LDA		[ZP0],Y
			STA		<SRCBUF
			INY
			LDA		[ZP0],Y
			STA		<SRCBUF+1
			INY
			LDA		[ZP0],Y
			STA		<SRCBUF+2
;
			LDA		#WS_PATH
			STA		<DESTBUF
			LDA		#>WS_PATH
			STA		<DESTBUF+1
			LDA		#^WS_PATH
			STA		<DESTBUF+2
;
			LDA		#MAX_AFPPATH
			STA		<COUNT
			LDA		#00
			STA		<COUNT+1
;
			JSR		BUFFMOVE
*
* WHAT NAMING MODE IS ACTIVE ?
*
			BIT		PFI_NAMING
			BMI		FIACCESS0	;AFP
;
			JSR		CHK_PRODOS	;IS IT IN PRODOS FORMAT ?
			BCC		FIACCESS0	;IT WAS OK
								;ERROR
			LDA		#$05		;INVALID NAME
			CLC					;STANDARD AMOUNT
			JMP		EXIT_PFI
;
;
*
* IS THIS ON A SERVER VOLUME ?
*
; ===>
; MSD	23-Apr-90
;
; The old code assumed the pathname was a complete pathname,
; and compared the volume part ("/"+alphanumerics) to each
; of the mounted volumes and succeeded if one matched.
;
; We need to check first if the path is a partial path.  If
; so, we check instead to see if the current prefix is on a
; network volume.  This is done in much the same way as the
; pre-processing code PFI uses to determine if a call should
; be handled by PFI or the local prodos (when the call involves
; a pathname).
;
; <===
FIACCESS0	;
; ===>	MSD	23-Apr-90	(part 1)
			jsr		chkslash	; complete path ("/"...)?
			bcs		fiaccess0_b	; yes, so compare volume names

; Partial path given.  See if prefix points to a server volume.
			bit		pfi_naming	; are we using AFP naming mode?
			bmi		fiaccess0_a	; yes, so check AFP mode prefix

; We're using ProDOS naming mode, so check ProDOS mode prefix
			lda		pro_pfxloc	; this is $FF if prefix is for local volume
			cmp		#$FF		; local prefix?
			bne		fiaccess1	; no, server prefix.  do the call
			bra		fiaccess0_c	; prefix was local.  Error!!

fiaccess0_a
; Here, we're in AFP naming mode.  Check the AFP namine mode prefix
			lda		afp_pfxloc	; this is $FF if prefix is for local volume
			cmp		#$FF		; local prefix?
			bne		fiaccess1	; no, server prefix.  do the call
			bra		fiaccess0_c	; prefix was local.  Error!!

fiaccess0_b
; Here, the path is a complete one.  Fall into the existing code.
; <===	MSD	23-Apr-90	(part 1)

			JSR		FND_CURSRV	; does the volume match a mounted volume?
			BCC		FIACCESS1	; yes, so complete the call
;
; ===>	MSD	23-Apr-90	(part 2)
fiaccess0_c
; Here, the pathname does not refer to any mounted server volume
; so return an error (access privileges only work on server volumes).
; <===	MSD	23-Apr-90	(part 2)

			LDA		#$09		;VOLUME NOT MOUNTED
			CLC
			JMP		EXIT_PFI
*
* IS THIS A GET OR SET ACCESS CALL ?
*
FIACCESS1	; 
			LDY		#$04
			LDA		[ZP0],Y
			BMI		SETACC0		;A SET ACCESS CALL
			JMP		GETACC0		;A GET ACCESS CALL
;
;
*
*
* ARE THERE ANY SPECIAL ID'S TO FIND
*
*
* DO I NEED CREATOR ID'S ?
*
SETACC0	; 
			LDY		#$04
			LDA		[ZP0],Y
			AND		#%01000000
			BEQ		SETACC0_C	;CHECK GROUP
*
* STUFF MAPNAME CALL
*
			LDA		#MAPNAME
			STA		WS_COMBUF
			LDA		#$03		;CREATER
			STA		WS_COMBUF+1
;
			LDY		#$0D		;MOVE CREATER NAME ONTO CARD
			LDA		[ZP0],Y
			STA		<SRCBUF
			INY
			LDA		[ZP0],Y
			STA		<SRCBUF+1
			INY
			LDA		[ZP0],Y
			STA		<SRCBUF+2
;
			LDA		#WS_COMBUF+2
			STA		<DESTBUF
			LDA		#>WS_COMBUF+2
			STA		<DESTBUF+1
			LDA		#^WS_COMBUF+2
			STA		<DESTBUF+2
;
			LDA		#$20
			STA		<COUNT
			LDA		#00
			STA		<COUNT+1
								;
			JSR		BUFFMOVE
;
			CLC
			LDA		WS_COMBUF+2	;LENGTH OF STRING
			ADC		#$03
			STA		PKT_CNT
			STZ		PKT_CNT+1
			JSR		CMD_ROUTING
			BCC		SETACC0_B	;CALL IS OK !!!
;
			LDA		#$0A		;CREATOR NOT FOUND
			CLC
			JMP		EXIT_PFI
;
;
*
* SAVE CREATOR ID IN AFP Time Field (TEMP Storage)
*
SETACC0_B	; 
			LDY		#$03
SETACC0_BB	; 
			LDA		WS_COMBUF,Y
			sta		AFP,y
			dey
			Bpl		SETACC0_BB
;
;
*
* DO I NEED GROUP ID'S ?
*
SETACC0_C	; 
			LDY		#$04
			LDA		[ZP0],Y
			AND		#%00100000
			BEQ		SETACC1		;ISSUE SET FILE/DIR PARMS
*
* STUFF MAPNAME CALL
*
			LDA		#MAPNAME
			STA		WS_COMBUF
			LDA		#$04		;GROUP
			STA		WS_COMBUF+1
;
			LDY		#$11		;MOVE CREATER NAME ONTO CARD
			LDA		[ZP0],Y
			STA		<SRCBUF
			INY
			LDA		[ZP0],Y
			STA		<SRCBUF+1
			INY
			LDA		[ZP0],Y
			STA		<SRCBUF+2
;
			LDA		#WS_COMBUF+2
			STA		<DESTBUF
			LDA		#>WS_COMBUF+2
			STA		<DESTBUF+1
			LDA		#^WS_COMBUF+2
			STA		<DESTBUF+2
;
			LDA		#$20
			STA		<COUNT
			LDA		#00
			STA		<COUNT+1
								;
			JSR		BUFFMOVE
;
			LDX		WS_COMBUF+2	;LENGTH OF STRING
			INX
			INX
			INX
			STX		PKT_CNT
			STZ		PKT_CNT+1
			JSR		CMD_ROUTING
			BCC		SETACC00_CC	;CALL IS OK !!!
;
			LDA		#$0D		;GROUP NOT FOUND
			CLC
			JMP		EXIT_PFI
*
* SAVE GROUP IDS IN PL
*
SETACC00_CC	; 
			LDY		#$03
SETACC0_CCC	; 
			LDA		WS_COMBUF,Y
			STA		PRO_TIME,y
			dey
			Bpl		SETACC0_CCC
;
;
*
* STUFF COMMAND FOR SET DIR PARAMETERS
*
SETACC1	; 
			LDA		#SETDIRPARMS
			STA		WS_COMBUF	;SAVE COMMAND
			STZ		WS_COMBUF+1
*
* STUFF VOLUME AND DIRECTORY IDS
*
			JSR		STUFF_IDS
*
* STUFF BITMAPS
*
			LDY		#$04
			LDA		[ZP0],Y
			AND		#%01100000	;SAVE USER AND/OR GROUP ID BITS
			ASL		A
			STA		WS_COMBUF+$08
			LDA		#$10
			BIT		WS_COMBUF+$08
			BPL		_LOCAL32
			ORA		#04
_LOCAL32	BVC		_LABEL32
			ORA		#08
_LABEL32	STA		WS_COMBUF+$08	;HB OF BITMAP
			STZ		WS_COMBUF+$09	;LB OF BITMAP
*
* STUFF PATHNAME
*
			SEC					;PADDING NEEDED
			LDX		#$0A		;OFFSET TO PATHNAME IN PACKET
			JSR		PATH2BUF	;SAVE PATH IN PACKET
*
* ADD USER ID BYTES IF PRESENT
*
			LDA		WS_COMBUF+$08
			AND		#%00000100
			BEQ		SETACC2AA	;NO
;
			LDY		#$00
SETACC2A	; 
			LDA		AFP,y
			STA		WS_COMBUF,X
			INX
			INY
			CPY		#$04
			BNE		SETACC2A	;MORE TO MOVE
*
* ADD GROUP ID BYTES IF PRESENT
*
SETACC2AA	; 
			LDA		WS_COMBUF+$08
			AND		#%00001000
			BEQ		SETACC2B	;NO
;
			LDY		#$00
SETACC2	; 
			LDA		PRO_TIME,y
			STA		WS_COMBUF,X
			INX
			INY
			CPY		#$04
			BNE		SETACC2		;MORE TO MOVE
*
* SAVE ACCESS RIGHTS IN PACKET
*
SETACC2B	; 
			stz		ws_combuf,x	;set user access byte to zero
			inx
			LDY		#$06
SETACC2C	; 
			LDA		[ZP0],Y
			STA		WS_COMBUF,X
			INX
			INY
			CPY		#$09
			BNE		SETACC2C	;MORE TO MOVE
*
* TIME TO CALL ASP COMMAND CALL FOR SET DIR PARMS
*
			STX		PKT_CNT
			STZ		PKT_CNT+1
			JSR		CMD_ROUTING
			LDA		#$00
			BCC		SETACC5		;CALL COMPLETE
;
;ERROR = UNABLE TO SET ACCESS
			LDA		Cn_PFIERR
			CMP		#$66		;NOT FOUND
			BNE		SETACC3
			LDA		#$0E
			BRA		SETACC5
;
SETACC3	; 
			CMP		#$78		;ACCESS DENYIED
			BNE		SETACC4
			LDA		#$0F
			BRA		SETACC5
;
SETACC4	; 
			LDA		#$10		;SOME OTHER ERROR
SETACC5	; 
			CLC					;STANDARD AMOUNT TO RETURN
			JMP		EXIT_PFI
;
;
*
*
* GET FILE ACCESS
*
*
* STUFF GET FIL/DIR INFO
*
GETACC0	; 
			LDA		#GETFDINFO
			STA		WS_COMBUF
			STZ		WS_COMBUF+1
;
			JSR		STUFF_IDS
;
			STZ		WS_COMBUF+$08	;DATA FORK LENGTH, PRODOS AUX TYPE
			LDA		#%00000001		;LB OF FILE BITMAP
			STA		WS_COMBUF+$09	;ATTRIBUTES
;
			LDA		#%00011100		;HB OF DIR BITMAP
			STA		WS_COMBUF+$0A	;ACCESS,CREATOR ID, GROUP ID
			STZ		WS_COMBUF+$0B	;ATTRIBUTES,MOD DATE, CREATE DATE
;
			CLC					;NOT PADDING
			LDX		#$0C
			JSR		PATH2BUF	;MOVE PATHNAME TO BUFR
;
			JSR		CMD_ROUTING	;EXECUTE CALL
			BCC		GETACC1
;
			LDA		Cn_PFIERR
			CMP		#$66
			BNE		GETACC0_A
;
			LDA		#$0E		;NOT FOUND
			BRA		GETACC0_AA
GETACC0_A	; 
			LDA		#$10		;OTHER ERROR
GETACC0_AA	; 
			CLC
			JMP		EXIT_PFI
;
;
*
* WAS THIS A DIRECTORY ?
*
GETACC1	; 
			BIT		WS_COMBUF+$04
			BMI		GETACC2
;
			LDA		#$0E
			CLC
			JMP		EXIT_PFI
*
* SAVE ACCESS
*
GETACC2	; 
			STZ		NAME_STAT
			LDY		#$05
GETACC3	; 
			LDA		WS_COMBUF+$09,Y
			STA		[ZP0],Y
			INY
			CPY		#$09
			BNE		GETACC3		;MORE TO MOVE
*
* SAVE ALL 8 ID BYTE AT WS_PATH
*
			LDX		#$07
GETACC4	; 
			LDA		WS_COMBUF+$06,X
			STA		WS_PATH,X
			DEX
			BPL		GETACC4
*
* DO THEY WANT THE CREATOR'S NAME ?
*
			LDY		#$04
			LDA		[ZP0],Y
			AND		#%01000000
			BEQ		GETACC5		;NO THEY DO NOT
*
* STUFF MAPID COMMAND
*
			LDA		#MAPID
			STA		WS_COMBUF
			LDA		#$01
			STA		WS_COMBUF+$01
;
			LDX		#$03
GETACC4A	; 
			LDA		WS_PATH,X
			STA		WS_COMBUF+$02,X
			DEX
			BPL		GETACC4A
*
* TIME TO CALL ASP COMMAND CALL FOR MAPID
*
			LDX		#$06
			STX		PKT_CNT
			STZ		PKT_CNT+1
			JSR		CMD_ROUTING
			BCC		GETACC4B
;
			STZ		WS_COMBUF	;NO USER NAME RETURNED
			LDA		#$12
			STA		NAME_STAT	;SET ERROR CODE
*
* RETURN USER NAME TO MOTHERBOARD
*
GETACC4B	; 
;
			LDX		WS_COMBUF
			INX
			STX		<COUNT
			LDA		#%00
			STA		<COUNT+1
;
			LDA		#WS_COMBUF
			STA		<SRCBUF
			LDA		#>WS_COMBUF
			STA		<SRCBUF+1
			LDA		#^WS_COMBUF
			STA		<SRCBUF+2
;
			LDY		#$0D
			LDA		[ZP0],Y
			STA		<DESTBUF
			INY
			LDA		[ZP0],Y
			STA		<DESTBUF+1
			INY
			LDA		[ZP0],Y
			STA		<DESTBUF+2
;
			JSR		BUFFMOVE
;
;
*
*
* DO THEY WANT THE GROUP'S NAME ?
*
*
GETACC5	; 
			LDY		#$04
			LDA		[ZP0],Y
			AND		#%00100000
			BEQ		GETACC6		;NO THEY DO NOT
*
* STUFF MAPID COMMAND
*
			LDA		#MAPID
			STA		WS_COMBUF
			LDA		#$02
			STA		WS_COMBUF+$01
;
			LDX		#$03
GETACC5A	; 
			LDA		WS_PATH+$04,X
			STA		WS_COMBUF+$02,X
			DEX
			BPL		GETACC5A
*
* TIME TO CALL ASP COMMAND CALL FOR MAPID
*
			LDX		#$06
			STX		PKT_CNT
			STZ		PKT_CNT+1
			JSR		CMD_ROUTING
			BCC		GETACC5B
;
			STZ		WS_COMBUF	;NO GROUP NAME RETURNED
			LDA		#$12
			STA		NAME_STAT
*
* RETURN GROUP NAME TO MOTHERBOARD
*
GETACC5B	; 

			LDX		WS_COMBUF
			INX
			STX		<COUNT
			LDA		#00
			STA		<COUNT+1
;
			LDA		#WS_COMBUF
			STA		<SRCBUF
			LDA		#>WS_COMBUF
			STA		<SRCBUF+1
			LDA		#^WS_COMBUF
			STA		<SRCBUF+2
;
			LDY		#$11
			LDA		[ZP0],Y
			STA		<DESTBUF
			INY
			LDA		[ZP0],Y
			STA		<DESTBUF+1
			INY
			LDA		[ZP0],Y
			STA		<DESTBUF+2
;
			JSR		BUFFMOVE
*
* ALL DONE
*
GETACC6	; 
			LDA		NAME_STAT
			LDY		#$09
			SEC
			JMP		EXIT_PFI

 			eject

*
*
* COMMAND $33 = FINAMING - SET PFI NAMING CONVENTION
*
*	---------------------
*	0	|	ASYNC FLAG = $00	|
*	---------------------
*	1	|	COMMAND	= $32	|
*	---------------------
*	2	|	RESULT CODE	(2)| *
*	---------------------
*	4	|	GET/SET FLAG	(1)|
*	---------------------
*	5	|	NAMING MODE	(1)|** -- BOTH
*	---------------------
*
*
* BIT 7 SET FOR GET/SET FLAG MEANS SET NAMING
* BIT 7 SET FOR	NAMING MODE MEANS PFI NAMING
*
*

		EXPORT	CFINAMING
CFINAMING		;		
			jsr		CheckAsync	; 7-Oct-91 MSD
			
			jsr		setup

*
* IS IT GET OR SET MODE ?
*
			LDY		#$5
			LDA		[ZP0],Y		;GET NAMING MODE
			AND		#%11000000	;STRIP UNWANTED BITS
			STA		[ZP0],Y
			DEY					;MOVE INDEX TO FLAG FIELD
			LDA		[ZP0],Y
			AND		#%11000000	;STRIP UNWANTED BITS
			STA		[ZP0],Y
* GET / SET NAMING OR GO CHECK DEVICE
			LDA		[ZP0],Y
			BEQ		GETMODES	;GET INFO
			BMI		SETNAMING	;SET NAMING MODE
			JMP		DEVICECHK	;GO CHECK DEVICE UPDATE INFO

GETMODES	; 
			INY
			LDA		PFI_NAMING	;GET FLAG
			STA		[ZP0],Y		;SAVE MODE
			BRA		FINAMING_X

*
* SAVE IN MODE
*
SETNAMING	; 
			INY
			LDA		[ZP0],Y
			AND		#%10000000	;LOOK ONLY AT BIT 7
			STA		UWORK1		;SAVE NEW NAMING MODE

			LDA		PFI_NAMING	;CHECK AGAINST OLD MODE
			AND		#%10000000
			CMP		UWORK1		;DID A CHANGE OCCUR
			BEQ		DEVICECHK	;NO GO LOOK AT BIT 6

			LDA		PFI_NAMING
			AND		#$7F		;ONLY WANT BIT 7
			ORA		UWORK1
			STA		PFI_NAMING

;
			BIT		PFI_NAMING
			BMI		SETNAMING0
;
			LDA		PRO_PREFIX
			BNE		DEVICECHK	;GO CHECK BIT 6
			BRA		SETNAMING1
;
SETNAMING0	; 
			LDA		AFP_PREFIX
			BNE		DEVICECHK	;THERE IS A PREFIX
;
SETNAMING1	; 
			STZ		CN_PFIXPTR	;NO PREFIX

*
* IS THIS A SET FOR DECIVE TABLE UPDATE ?
*
DEVICECHK	; 
			LDY		#4
			LDA		[ZP0],Y
			AND		#%01000000
			BEQ		FINAMING_X	;LEAVE, BIT NOT SET
*
* REMOVE DEVICES
*
			LDA		#00			;ALL DEVICES
			CLC
			JSR		PDOS_DEVICE
*
* SAVE IN UPDATE MODE
*
			LDY		#5
			LDA		[ZP0],Y
			AND		#%01000000	;CHECK BIT 6
			STA		UWORK1

			LDA		PFI_NAMING
			AND		#%10111111
			ORA		UWORK1
			STA		PFI_NAMING

*
* UPDATE GLOBAL PAGE INFO
*
			LDA		#00			;ALL DEVICES
			SEC					;ADD ALL NETWORK DEVICES
			JSR		PDOS_DEVICE
*
* UPDATE PARAMATER LIST
*
FINAMING_X	; 
			LDA		#00
			LDY		#06
			SEC
			JMP		EXIT_PFI
;
			eject
;
;

*
*
* COMMAND $34 = Convert Time
*
*	---------------------
*	0	|	ASYNC FLAG = $00	|
*	---------------------
*	1	|	COMMAND	= $34	|
*	---------------------
*	2	|	RESULT CODE	(2)| *
*	---------------------
*	4	|	From Format	(1)|
*	---------------------
*	5	|	From Date/Time	(4)|
*
*	---------------------
*	9	|	To Date/Time	(4)| *
*	---------------------
*
*
	EXPORT	CONVERT_TIME
	
Convert_Time
		jsr		CheckAsync
		
		jsr		setup
*
* Do they want the time in AFP Format ?
*
		Ldy		#$04
		lda		[ZP0],y
		beq		Get_AFP
*
* Place date & time in parameter list
*
		ldy		#$05
CN_lp1	lda		[ZP0],y
		sta		PRO_Time-5,y
		iny
		cpy		#$09
		bne		CN_lp1
*
* check for valid time
*
		jsr		CHK_PROTIME
		BCS		CNVRT1		
		LDA		#$14
		BRA		CNVRT_EXIT
*
* Convert from prodos into AFP
*
CNVRT1	 
		JSR		PRO2CLK
		JSR		CLK2STD
		jsr		STD2AFP
*
* Move AFP Time into PL
*
		ldy		#$09
CN_lp2	lda		AFP-9,y
		sta		[ZP0],y
		iny
		CPY		#13
		bne		CN_lp2
		lda		#$00
		Bra		CNVRT_EXIT
;
;
;
Get_AFP	 
*
* Place date & time in parameter list
*
		ldy		#$05
CN_lp3	lda		[ZP0],y
		sta		AFP-5,y
		iny
		cpy		#$09
		bne		CN_lp3
*
* Convert from AFP into prodos 
*
		JSR		AFP2STD
		JSR		STD2CLK
		jsr		CLK2PRO
*
* Move PRODOS Time into PL
*
		ldy		#$09
CN_lp4	lda		PRO_TIME-9,y
		sta		[ZP0],y
		iny
		CPY		#13
		bne		CN_lp4
		LDA		#$00
		BRA		CNVRT_EXIT
*
* if on board just return
*
CNVRT_EXIT	
		ldy		#$0d
		sec
		jmp		Exit_PFI
		;
		;
*
*
* SUBROUTINE - SESSION REFERENCE NUMBER CHECK
*
* ENTRY : ZP0 = PARAMTER LIST
*
* EXIT	: C	= SET MEANS NOT VALID
*	SESS_IDX = OFFSET IN TABLE OF SESSION
*

		EXPORT	SESS_CHK
SESS_CHK		;		
*
* IS THIS A VALID SESSION REFERENCE NUMBER ?
*
			LDY		#$04
			LDA		[ZP0],Y
			BEQ		SESS_CHK1A	;ERROR - INVALID SESSION
;
			LDX		#$00
SESS_CHK1	; 
			CMP		SESSION_TBL,X
			BEQ		SESS_CHK2	;MATCH !!!
			INX
			CPX		#MAXSESSION
			BNE		SESS_CHK1	;LOOK AT THE NEXT SESSION
*
* UNABLE TO FIND SESSION NUMBER
*
SESS_CHK1A	; 
			SEC
			RTS
*
* SESSION NUMBER IS FOUND
*
SESS_CHK2	; 
			STX		SESS_IDX
			CLC
			RTS
;
;

*
*
* PFI EXIT ROUTINE
*
*	ENTER : A = RESULT CODE
*	C = STANDARD AMOUNT TO RETURN
*	Y = AMOUNT TO RETURN
*	FI_HEAP = HEAP NUMBER
*
*

		EXPORT	EXIT_PFI
EXIT_PFI		;		
			LDY		#$02
			STA		[ZP0],Y		;SAVE RESULT CODE - LB
			CMP		#$00
			BEQ		EXIT_PFI1
			LDA		#FI_LEVEL
EXIT_PFI1	; 
			INY
			STA		[ZP0],Y		;SAVE RESULT CODE - HB
								;
			rtl					;return to dispatcher


*
*
* CLOSE A SESSION
*
* ENTRY : SESS_IDX = INDEX TO SESSION_TBL
*
*

		EXPORT	CLOSE_SESSION
CLOSE_SESSION		;		
*
* FIND THE ASP HEAP
*
			JSR		getzp1parm	;put pointer to parm list in zp1
*
* CREATE ASP CLOSE PL
*
			LDY		#$00
			LDA		#00
			STA		(ZP1),Y		;SAVE SYNC FLAG
			INY
			LDA		#CMD_ASPCLO	;SAVE CLOSE COMMAND CODE
			STA		(ZP1),Y
			LDY		#$08
			LDX		SESS_IDX
			LDA		SESSION_TBL,X
			STA		(ZP1),Y		;SAVE REFERENCE NUMBER
*
* ISSUE ASP CALL
*
			JSR		NETWORK_CALL
*
* REMOVE SESSION FROM TABLE (REGARDLESS OF RESULT)
*
			LDX		SESS_IDX
			STZ		SESSION_TBL,X
*
* TIME TO LEAVE SUBROUTINE
*
			RTS


*
*
* UNMOUNT A VOLUME
*
* ENTRY : X = INDEX TO TABLES
*	(X REMAINS UNCHANGED !!!)
*

		EXPORT	VOL_UNMOUNT
VOL_UNMOUNT		;		
*
* DO I NEED TO SEND A PACKET TO THE SERVER ?
*
			sta		UM_INDEX	;Save session table index #
			PHY
			PHP
			CPY		#00
			BEQ		VU_OVER
			STY		PFI_NODEV	;UPDATE FLAG FOR DELAYED ACTION
VU_OVER		PLP

			STX		NDT_IDX2	;SAVE TO UNMOUNT VOLUME
			BCC		VOL_UN0		;NO !!!
*
* CREATE CLOSE VOLUME AFP PACKET
*
			LDA		#CLOSEVOL
			STA		WS_COMBUF
			STZ		WS_COMBUF+1
;
			LDA		NDT_IDH,X
			STA		WS_COMBUF+2
			LDA		NDT_IDL,X
			STA		WS_COMBUF+3
*
* ISSUE AFP CLOSE VOLUME COMMAND
* (REGARDLESS OF RESULT CONTINUE TO REMOVE)
*
			LDA		#$04
			STA		PKT_CNT
			STZ		PKT_CNT+1
;
			LDX		NDT_IDX2
			LDA		NDT_SESS,X
			STA		CURSESS		;SAVE SESSION REF #
;
			JSR		CMD_ROUTING
*
* FIND OPEN SPACE IN AUN TABLE IN RAM
*
VOL_UN0		LDX		NDT_IDX2
			LDA		NDT_UNIT,X
			AND		#%11110000	;HIGH NIBBLE ONLY
			beq 	VOL_UN2a
			;
			LDY		#$00
VOL_UN1		LDA		AUN_RAM,Y
			BEQ		VOL_UN2		;SPACE FOUND
			INY
			BRA		VOL_UN1		;LOOK AT THE NEXT SPACE
*
* SAVE FREED UNIT NUMBER IN AUN TABLE
*
VOL_UN2		LDX		NDT_IDX2
			LDA		NDT_UNIT,X
			AND		#%11110000	;HIGH NIBBLE ONLY
			STA		AUN_RAM,Y

VOL_UN2a	PLY
			BNE		VU_SKIP
			;

			cmp		#00			;Don't remove device #0 from PRODOS
			beq		VU_SKIP		;device table.  (It doesn't exist)

			CLC
			JSR		PDOS_DEVICE	;REMOVE FROM LOCAL DEVICE TABLE
			;
			;----> should we call the unmount vector
			;
VU_SKIP		lda		#$00
			ldx 	#$03
VOL_UN3		ora		Vector_unMnt,x
			dex
			bne		VOL_UN3
			cmp		#$00
			bne		@L1
			jmp		VOL_UN9			;no Vector installed
									;Changed from VOL_UN4 -> VOL_UN9  11/17/88  **TGH
			;
			;
@L1			LDX		NDT_IDX2
			lda		NDT_SESS,X
			sta		WS_ComBuf
			lda		NDT_UNIT,x
			stA		WS_ComBuf+1
			;
			LDA		NDT_IDH,X
			STA		WS_COMBUF+30
			LDA		NDT_IDL,X
			STA		WS_COMBUF+31
			;
			;
			lda		#<NDT_NAME
			sta		ZP3
			lda		#>NDT_NAME
			sta		ZP3+1
			;
Vol_UN4		dex
			bmi		 VOL_UN5
			CLC
			LDA		ZP3
			ADC		#NDT_NAMELEN
			STA		ZP3
			LDA		ZP3+1
			ADC		#$00
			STA		ZP3+1
			bra		Vol_UN4
			;
VOL_UN5		lda		(ZP3)
			tay
VOL_UN6		lda		(ZP3),y
			sta		WS_Combuf+2,y
			dey
			bpl		VOL_UN6
			;
			lda		(ZP3)
			tay
			lda		#$00
VOL_UN7		iny
			cpy		#ndt_namelen
			beq		VOL_UN8
			sta		ws_combuf+2,y
			bra		Vol_UN7
			;
VOL_UN8		LDA		#<SESSION_NAME
			STA		ZP2
			LDA		#>SESSION_NAME
			STA		ZP2+1
			LDA		#<SESSION_NET
			STA		ZP4
			LDA		#>SESSION_NET
			STA		ZP4+1

			ldx		UM_INDEX
@L0			dex
 			bmi		@L1
			clc
			LDA		ZP2
			adc		#$21
			sta		ZP2
			LDA		ZP2+1
			adc		#$00
			STA		ZP2+1
			clc
			LDA		ZP4
			adc		#$22
			sta		ZP4
			LDA		ZP4+1
			adc		#$00
			STA		ZP4+1
			BRA		@L0

@L1			ldy		#$20			;Move server name
@L2			lda		(ZP2),y
			sta		ws_combuf+$3E,y
			dey
			bpl		@L2

			ldy		#$21			;Move network name
@L3			lda		(ZP4),y
			sta		ws_combuf+$5F,y
			dey
			bpl		@L3

;
; Call the vector now
;

			longi	on
			longa 	on
			;
			REP		#$30
			phb
			ldx		#VOL_UN9-1			;Put my return Address on the Stack
			phx
			;
			longa 	off
			longi	off
			SEP		#$30
			lda		VECTOR_unmnt+2
			pha
			longi	on
			longa	on
			;
			rep		#$30
			ldx		VECTOR_unmnt		;Put vector on stack
			dex
			phx

			;
			Ldx		#ws_combuf
			Ldy		#^ws_combuf
			rtl
			;
			longi	off
			longa 	off
			;
			;
*
* CLEAR SESSION NUMBER FROM NDT
* ENTRY IS NOW AVAILABLE FOR OTHERS
*
VOL_UN9		Sep		#$30
			LDX		NDT_IDX2
			STZ		NDT_SESS,X
			DEC		NDT_CNT		;REDUCE COUNT OF ACTIVE NDT VOL
			INC		AUN_CNT		;ONE MORE AVAILABLE UNIT
			RTS
;
;
*
*
* TRANSLATE AFP LOGIN ERROR INTO PFI result code
*
* ENTRY : Cn_PFIERR = AFP ERROR (LB)
*
* EXIT  : A         = PFI RESULT CODE
*

		EXPORT	LOGIN_ERROR
LOGIN_ERROR		;		
*
* Is this  a user not auth error ?
*
			LDA		Cn_PFIERR
;
			LDX		#$04
le_NEXT		CMP		log_afperr,x
			BEQ		le_FOUND
			DEX
			BPL		le_NEXT
*
* ASSUME --> no response from server
*
			LDA		#$03
			RTS
*
* FOUND AFP ERROR TRANSLATE IT
*
le_FOUND	LDA		log_pfierr,x
			RTS
;
;
log_afperr	; 
	DC.B	$5d	;server going down
	DC.B	$61	;user not auth
	DC.B	$65	;parm error
	DC.B	$75	;bad version
	DC.B	$76	;bad UAM
;
log_pfierr	; 
	DC.B	$17
	DC.B	$15
	DC.B	$16
	DC.B	$19
	DC.B	$18
;
;
*
*
* COMMAND $37 = CFIHOOKS
*
*	---------------------
*	0	|	ASYNC FLAG = $00	|
*	---------------------
*	1	|	COMMAND	= $37	|
*	---------------------
*	2	|	RESULT CODE	(2)| *
*	---------------------
*	4	|	Active8 	(1)|
*	---------------------
*	5	|	Mount Vector	(4)|
*	---------------------
*	9	|	Unmount Vector	(4)| 
*	---------------------
*	d	|	Attention Vector(4)| 
*	---------------------
*
*
	EXPORT	CFIHooks
CFIHooks
		jsr		CheckAsync
		
		jsr		setup		;standard setup stuff
*
*	Save information
*
		ldy		#$04
		lda		[zp0],y
		bit		#$40			;If bit 6 is one (x1xx xxxx)
		bne		@L1				;we set the information

		lda		Active8			;Else we just return the info
		sta		[Zp0],y			;OS Flag byte type

		ldx		#$00			;Now the 3 following vectors...
		iny						;Mount, Unmount, and Attention.
@L2		lda		Vector_Mount,x
		sta		[Zp0],y
		inx
		iny
		cpy		#$11
		bne		@L2
		jmp		FIHooks_X

@L1		and		#$80			;Strip off any other flags.
		sta		Active8

		ldx		#$00
		iny
hooks1	lda		[Zp0],y
		sta		Vector_Mount,x
		inx
		iny
		cpy		#$11
		bne		hooks1
*
* let fix the NDT_Unit table
*
		lda		ACTIVE8
		bne		hooks4
*
* GS/OS is active just Zero out Unit numbers
*
		ldy		#13
hooks2	lda		NDT_Sess,y
 		beq		hooks3
		lda		NDT_unit,y
		AND		#$0F
		STA		NDT_UNIT,y
hooks3	dey
		bpl		hooks2
		Bra		FIHooks_X
*
*
*
* ProDOS 8 Is Now Active Find Available units
*
*
*
* FIND AVAILABLE UNIT NUMBERS ON THIS WORKSTATION
*
hooks4		LDA		#LCL_DEVCNT
			STA		<DESTBUF
			LDA		#>LCL_DEVCNT
			STA		<DESTBUF+1
			LDA		#^LCL_DEVCNT
			STA		<DESTBUF+2
;
			LDA		#<DEVCNT
			STA		<SRCBUF
			LDA		#>DEVCNT
			STA		<SRCBUF+1
;
			LDA		PFI_BANK
			STA		<SRCBUF+2	;BANK OF PL
;
;
			LDA		#$0F		;7 SLOT2 * 2 DRIVERS +1 COUNT BYTE
			STA		<COUNT
			LDA		#00			;MOVE ONTO THE CARD
			STA		<COUNT+1
;
			JSR		BUFFMOVE
*
* MOVE ALL POSSIBLE UNIT NUMBERS FROM ROM TABLE INTO RAM
*
			LDX		#0
ws_LOOP3	LDA		PUN_ROM,X	;POSSIBLE UNIT NUMBERS
			STA		AUN_RAM,X	;AVAILABLE UNIT NUMBERS
			INX
			CPX		#14
			BCC		ws_LOOP3
			stx		AUN_CNT
			LDA		#$FF
			STA		AUN_RAM,X	;END INDICATOR
*
* ZERO EVERY UNIT NUMBER IN AUN_RAM WHICH IS ACTIVE IN
* THE LOCAL PRODOS DEVICE LIST
*
			LDX		LCL_DEVCNT
			INX					;PRODOS SAVES 'DEVCNT-1'
			BEQ		ZUN4		;THERE ARE NO LOCAL DEVICES
ZUN			LDA		LCL_DEVCNT,X
			AND		#$F0		;STRIP 'DISK-TYPE' BITS
			LDY		#13
ZUN1		CMP		AUN_RAM,Y
			BEQ		ZUN2		;ZERO IT OUT
			DEY
			BPL		ZUN1		;HAVN'T FINISHED LIST YET
			BRA		ZUN3		;FINISHED LIST
ZUN2		LDA		#$00
			STA		AUN_RAM,Y
			DEC		AUN_CNT		;DECREMENT AVAIL UNIT COUNT
ZUN3		DEX					;NEXT DEVICE ENTRY
			BNE		ZUN			;MORE ENTRIES TO PROCESS
*
* update the NDT_table
*
ZUN4	ldy		#13				;Change from a 00 to a 13 11/4/88 **TGH
ZUN5	lda		NDT_Sess,y
 		beq		ZUN6
		;
		ldx		#00
ZUN5a	lda		AUN_Ram,x
		bne		ZUN5b		;one found
		inx
		CPX		#14				;Change from a $14 to a 14 11/4/88 **TGH
		bne		ZUN5a
		BRA 	FIHooks_X	;No more Unit NUmbers Available
							;
ZUN5b	ora		NDT_unit,y
		STA		NDT_UNIT,y
		stz		AUN_RAM,x
Zun6	dey
		bpl		ZUN5
*
* UPDATE PARAMATER LIST
*
FIHooks_X	; 
		LDA		#00
		LDY		#06
		SEC
		JMP		EXIT_PFI
		ENDP

		end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/ATRam/PFI/PFI_cmds3.aii b/IIGS.601.SRC/GS.OS/Drivers/ATRam/PFI/PFI_cmds3.aii
new file mode 100644
index 0000000..7d0c6d4
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/ATRam/PFI/PFI_cmds3.aii
@@ -0,0 +1 @@
+*
* The following calls are implemented in this file:
*
* FIListSessions2
* FIGetSVersion
*

;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------
	IMPORT	NDT_IDH
	IMPORT	NDT_IDL
	IMPORT	NDT_NAME
	IMPORT	NDT_SESS
	IMPORT	NDT_UNIT
	IMPORT	SESSION_TBL
	IMPORT	setup
	Import	SESSION_NAME
	Import	SESSION_NET
	Import	SESSION_VERS
	Import	EXIT_PFI
	IMPORT	SESS_CHK


		INCLUDE	'zp.equates'
		include	'global.equates'
		include 'pfi_equates'

*
*
* COMMAND $39 = FILISTSESSIONS2 - LIST SESSIONS
*
*	   ---------------------
*	0 | ASYNC FLAG = $00	|
*	   ---------------------
*	1 | COMMAND = $2F	|
*	   ---------------------
*	2 | RESULT CODE	(2)	| <--
*	   ---------------------
*	4 | BUFFER LENGTH (2)	| -->
*	   ---------------------
*	6 | BUFFER POINTER (4)	| -->
*	   ---------------------
*	A | ENTRIES RETURNED	| <--
*	   ---------------------
*

CFILIST2	PROC	EXPORT
		import	CheckAsync
		
entrysize	equ	97		;One entry is 97 bytes long

		jsr	CheckAsync
		
		jsr	setup		;SAVE PL HEAP NUMBER

		rep	#$30
		longa	on
		longi	on

		stz	count		;Set source count to zero
		stz	zp4+2		;Set dest count to zero

;-----------------------------------------------------------------------------
; Below we divide the buffer size by the entry size and store the result,
; which is the total number of entries we can return in the destination
; buffer, at ZP4
;-----------------------------------------------------------------------------

		pea	0000		;Result space
		pea 	0000		;Result space
		ldy	#$0004
		lda	[zp0],y
		pha			;Dividend
		pea	entrysize	;Divisor
		ldx	#$0B0B		;UDivide
		jsl	>$E10000
		pla			;Quotient
		sta	zp4
		pla			;Remainder (throw away)

;-----------------------------------------------------------------------------
; Below we move the destination pointer onto the zero page at ZP1
;-----------------------------------------------------------------------------

		ldy	#$0006		;Move pointer to destination
		lda	[zp0],y		;buffer onto zero page.
		sta	zp1
		iny
		iny
		lda	[zp0],y
		sta	zp1+2

		lda	#NDT_NAME-2	;Move pointer to NDT_NAME
		sta	zp2		;buffer onto zero page.
		lda	#^(NDT_NAME-2)
		sta	zp2+2

		ldx	#0000		;Start at volume 0

ListLoop	lda	NDT_SESS,x	;Is this session number alive?
		and	#$00FF		;Only low byte counts
		bne	@GoodSession	;Branch if yes.
		jmp	ListSkip	;Else, keep trying

@GoodSession	ldy	zp4		;Check the count and make sure
		bne	@GoodCount	;we can move this session into
		jmp	List1Skip	;the buffer.  Branch if no room.

@GoodCount	sep	#$20		;Short C for moving byte fields.
		longa	off

		ldy	#00
		sta	[zp1],y		;Store session #
		iny
		lda	NDT_UNIT,x	;Load unit #
		sta	[zp1],y		;Store unit #
		iny

		phx			;Save the session number counter
		ldx	#NDT_NAMELEN-1	;Load the maximum name length
@L1		lda	[zp2],y		;Move the volume name into
		sta	[zp1],y		;the destination buffer.
		iny			;Increment destination index
		dex			;Increment source index
		bpl	@L1		;Keep looping until X<0
		plx			;Restore the session number counter

		lda	NDT_IDH,x	;Load volume ID high byte
		sta	[zp1],y		;Store it
		iny
		lda	NDT_IDL,x	;Load volume ID low byte
		sta	[zp1],y		;Store it
		iny

		lda	[zp1]		;Load the unit number.
		jsr	MoveNames	;Move server and net name.

		rep	#$20
		longa	on

NextSession	clc			;Increment our destination buffer
		lda	zp1		;zero page pointer to point
		adc	#0097		;to the next field.
		sta	zp1
		lda	zp1+2
		adc	#0
		sta	zp1+2

		clc			;Increment our source volume name
		lda	zp2		;zero page pointer to point to
		adc	#NDT_NAMELEN	;the next volume name.
		sta	zp2
		lda	zp2+2
		adc	#0
		sta	zp2+2

		dec	zp4		;Decrement dest count
		inc	zp4+2		;Increment dest counter
List1Skip	inc	count		;Increment source count

ListSkip	inx			;Keep looper for all 14
		cpx	#0014		;possible volumes.
		bcs	CheckSess	;Then check session w/no volumes
		jmp	ListLoop	;Keep looking!

;------------------------------------------------------------
; Below we check for any sessions that don't have a volume
; mounted.  If we find one, we return the session number,
; server name, and zone name.
;------------------------------------------------------------

CheckSess	sep	#$20
		longa	off

		ldx	#00		;Start at session number 0.

@SessionLoop	ldy	#00		;Volume session index.
@VolumeLoop	lda	SESSION_TBL,x	;Active session?
		beq	@NextSession	;Branch if no.
		cmp	NDT_SESS,Y	;Does it have a volume?
		beq	@NextSession	;Branch if yes.
		iny			;Check all 14 possible
		cpy	#14		;volumes.
		bne	@VolumeLoop

		lda	zp4		;Is there room for more in the
		beq	@NoRoom		;user buffer?  Branch if no.

		lda	SESSION_TBL,x	;Load the session number.
		sta	[zp1]		;Save it in buffer.

		ldy	#31		;Zero out all the other bytes.
		lda	#00
@L3		sta	[zp1],y
		dey
		bne	@L3

		lda	SESSION_TBL,x	;Load the session number.
		jsr	MoveNames

		dec	zp4		;Decrement dest count
		inc	zp4+2		;Increment dest counter
@NoRoom		inc	count		;Increment source count

@NextSession	inx
		cpx	#MAXSESSION
		bne	@SessionLoop
		lda	#00		;No Error

DoneList	sep	#$30
		longa	off
		longi	off

		ldy	#$0A
		lda	zp4+2		;Load the dest count
		sta	[zp0],y		;Store # of entries

		ldx	#00
		cmp	count		;Compare againts the source count
		beq	@L1		;If >= then no error!
		ldx	#$0B

@L1		txa			;Get error
		ldy	#$0B		;Amount to return
		sec
		jmp	EXIT_PFI


;-----------------------------------------------------------------------------
; The following routine takes two inputs.  Y = index into destination buffer
; to start storing our values.  A = session reference number to use as a
; index into our server and zone name buffer.
;-----------------------------------------------------------------------------

MoveNames	php			;Save state on stack.

		rep	#$30
		longa	on
		longi	on

		phx			;Save x until exit

		and	#$00FF		;Make sure we have session #
		dec	a		;Range from 1-8 to 0-7
		pha			;Save a (for later)

		pea	0000		;Result space
		pea 	0000		;Result space
		pha			;Multiplicand (session#)
		pea	#0033		;Multiplier
		ldx	#$090B		;Multiply
		jsl	>$E10000
		pla			;Low
		ply			;High (trash)

		clc			;Add offset to base and
		adc	#SESSION_NAME	;store on zero page.
		sta	zp3

		sep	#$20
		longa	off

		ldy	#32		;Dest index
		ldx	#31		;Save server name into
@L2		lda	(zp3)		;users buffer.
		sta	[zp1],y
		rep	#$20
		longa	on
		inc	zp3
		sep	#$20
		longa	off
		iny
		dex
		bpl	@L2

		rep	#$20
		longa	on

		pla			;Get session reference #

		pea	0000		;Result space
		pea 	0000		;Result space
		pha			;Multiplicand (session#)
		pea	#0034		;Multiplier
		ldx	#$090B		;Multiply
		jsl	>$E10000
		pla			;Low
		ply			;High

		clc			;Add offset to base and
		adc	#SESSION_NET	;store it on zero page.
		sta	zp3

		sep	#$20
		longa	off

		ldy	#64		;Dest index.
		ldx	#32		;Move zone name into
@L3		lda	(zp3)		;user's buffer.
		sta	[zp1],y
		rep	#$20
		longa	on
		inc	zp3
		sep	#$20
		longa	off
		iny
		dex
		bpl	@L3

		plx			;Restore original x.
					;New y is in y.

		plp			;Restore old state.
		rts

		longi	on
		longa	on

		ENDP

*
*
* COMMAND $3A = FIGetSVersion
*
*	   ---------------------
*	0 | ASYNC FLAG = $00	|
*	   ---------------------
*	1 | COMMAND = $3A	|
*	   ---------------------
*	2 | RESULT CODE	(2)	| <--
*	   ---------------------
*	4 | SESSION NUMBER	| <--
*	   ---------------------
*	6 | VERSION NUMBER (2)	| -->
*	   ---------------------

CFIGETVERS	PROC	EXPORT
		import	CheckAsync
		
		jsr	CheckAsync
		
		jsr	setup		;SAVE PL HEAP NUMBER

		sep	#$30
		longa	off
		longi	off

		jsr	SESS_CHK
		bcs	BadSessNum

		txa
		asl	a
		tax

		ldy	#5
		lda	SESSION_VERS,x
		sta	[zp0],y
		iny
		lda	SESSION_VERS+1,x
		sta	[zp0],y

		lda	#$00		;No error!
		clc
		jmp	EXIT_PFI

BadSessNum	lda	#$06		;Invalid session number
		sec
		jmp	EXIT_PFI

		ENDP

		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/ATRam/PFI/PFI_cmdsubs1.aii b/IIGS.601.SRC/GS.OS/Drivers/ATRam/PFI/PFI_cmdsubs1.aii
new file mode 100644
index 0000000..34253ad
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/ATRam/PFI/PFI_cmdsubs1.aii
@@ -0,0 +1 @@
+
;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

	IMPORT	ACCESS
	IMPORT	AFP
	IMPORT	AFP_DIR_ID
	IMPORT	AFP_PFXLOC
	IMPORT	AFP_PFX_DEV
	IMPORT	AFP_PREFIX
	IMPORT	AFP_VOL_ID
	IMPORT	ATTRIBUTE
	IMPORT	AUN_RAM
	IMPORT	BUFFMOVE
	IMPORT	BYTE2BLKS
	IMPORT	CALC_DIRINFO
	IMPORT	CHKDBL
	IMPORT	CHKSLASH
	IMPORT	CHK_BITMAP
	IMPORT	CHK_PRODOS
	IMPORT	CHK_VOLUME
	IMPORT	CMDCODE
	IMPORT	CMDTYPE
	IMPORT	CMD_ROUTING
	IMPORT	CURSESS
	IMPORT	Cn_DEVNUM
	IMPORT	Cn_ERROR
	IMPORT	Cn_LEVEL
	IMPORT	Cn_PFIERR
	IMPORT	Cn_PFIXPTR
	IMPORT	DO_JSRLOCAL
	IMPORT	FILE_BLKS
	IMPORT	FILE_SIZE
	IMPORT	FIRST_MOUNT
	IMPORT	FND_CURSRV
	IMPORT	FROM_ATTRI
	IMPORT	FROM_SEC
	IMPORT	INTO_ATTRI
	IMPORT	INTO_SEC
	IMPORT	LOCAL
	IMPORT	LOCALREF
	IMPORT	MCPADDR
	IMPORT	NDT_CNT
	IMPORT	NDT_IDH
	IMPORT	NDT_IDL
	IMPORT	NDT_IDX1
	IMPORT	NDT_IDX2
	IMPORT	NDT_NAME
	IMPORT	NDT_SESS
	IMPORT	NDT_UNIT
	IMPORT	NEW_PREFIX
	IMPORT	OFFSPRING
	IMPORT	PATH2BUF
	IMPORT	PATH2CARD
	IMPORT	PCOUNT
	IMPORT	PDOS_BITMAP
	IMPORT	PDOS_DEVICE
	IMPORT	PFI_CLEANUP
	IMPORT	PFI_NAMING
	IMPORT	PFI_NODEV
	IMPORT	PKT_CNT
	IMPORT	PRO_DIR_ID
	IMPORT	PRO_PFXLOC
	IMPORT	PRO_PFX_DEV
	IMPORT	PRO_PREFIX
	IMPORT	PRO_TIME
	IMPORT	PRO_VOL_ID
	IMPORT	PUN_ROM
	IMPORT	REMOVE_DEV
	IMPORT	RETURNPL
	IMPORT	SESSION_TBL
	IMPORT	SESS_TMRTBL
	IMPORT	STRIP_PREFIX
	IMPORT	STUFF_IDS
	IMPORT	UBUFPTRH
	IMPORT	UCMDIDX
	IMPORT	UDEVNUM
	IMPORT	UERROR
	IMPORT	UFILEIDX
	IMPORT	UFILELOC
	IMPORT	UMODE
	IMPORT	UWORK1
	IMPORT	UWORK2
	IMPORT	WS_COMBUF
	IMPORT	WS_PATH
	IMPORT	WS_PLIST
	IMPORT	WS_PREPATH
	IMPORT	ZP_BANK
	IMPORT	cn_cmdpdos
	IMPORT	cn_wsicmd
	IMPORT	cn_wsipl
	IMPORT	pfi_bank
	IMPORT	pfisavezparea
	IMPORT	setup
	IMport	Active8
;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

	ENTRY	MLIPROC
*
* pfi_cmdsubs1
*
* Greg Seitz (28-Jul-87)
*
*
;		EXPORT	zpcmdscs1	
;zpcmdscs1	PROC
		INCLUDE	'zp.equates'
;		ENDP
		include	'global.equates'
		include	'pfi_equates'
		
		EXPORT	pficmdsubs1	
pficmdsubs1	PROC
*		using	atpequates
*		using 	pfiglobals
*		using	zpcmdscs1
			longa	off
			longi	off

			eject

*
* PARAMIS NETWORK SOFTWARE
*
*
*	CONFIDENTIAL
*
*
* MODULE : PFI - PRODOS FILING INTERFACE	(PART 1)
*	1) INITIALIZE
*	2) DISPATCH
*	3) COMMAND INTERPRETER
*	4) HOUSEKEEPING CALLS (8 MLI CALLS)
*
* WRITTEN BY Thomas Eager
*
* MODIFIED:	06-15-87	10:00 TE
*
*	COPYRIGHT 1986,87	PARAMIS CORPORTATION
*
* ALL RIGHTS RESERVED
*
			eject

*
*
*
* PRODOS FILING INTERFACE DISPATCH
*
*
*

		EXPORT	DISPATCH_PFI
DISPATCH_PFI		;		
			phb					;save bank on entry
			phy					;save y reg
			tax					;move pointer to command
			sta		>cn_cmdpdos
			lda		>0,x		;get command
			sta		>cn_wsicmd	;save it
			lda		>1,x		;get pointer to parm list
			sta		>cn_wsipl
			lda		>pdos_level	;get level from pdos global area
			sta		>Cn_LEVEL	;and save for internal use
			jsr		callpdosdispatch	;do the dispatch
			rep		#mbit+xbit	;restore the y reg
			ply
			sep		#mbit		;now set error code of a
			pha
			lda		Cn_DEVNUM	;get device num to tell prodos
			beq		checkpfixptr	;don't save this if zero
			sta		>pdos_devnum	;and store to prodos
checkpfixptr	; 
			lda		Cn_PFIXPTR
			inc		a			;see if was $ff, now $0 if it was (carry not effected)
			beq		recovererr	;nope, so don't move it
			dec		a			;put it back to where it was
			sta		>pdos_pfixptr	;save pfix active flag
recovererr	; 
			pla					;recover error condition
			rep		#mbit+xbit+vbit	;show we claimed it
			plb					;restore bank before exiting
			rtl					;and return

			longa	off
			longi	off

savezp	; ;save off zp here
			ldx		#pfizplen	;amount to save
savezplp	; 
			lda		>ZP0,x		;get a byte to save
			sta		pfisavezparea,x	;and save it
			dex
			bpl		savezplp	;keep looping while bytes to save
			rts					;and return

restorezp	; 
			ldx		#pfizplen	;amount to restore
restorezplp	; 
			lda		pfisavezparea,x	;get a byte from storage
			sta		>ZP0,x		;and restore the zp it used
			dex
			bpl		restorezplp
			rts
*
* getmbpl
* copies the users parm list to ws_plist, so we can
* work on a copy of their list and not their list directly
*
		EXPORT	getmbpl
getmbpl		;		
			lda		cn_wsipl
			sta		<srcbuf
			lda		cn_wsipl+1
			sta		<srcbuf+1
			;
			;-----> 5/31/88 CHECK TO SEE IF IT IS ZERO PAGE
			;
			BNE		GETMBPL0
			LDA		ZP_BANK
			BRA		GETMBPL1
			;
			;
GETMBPL0	lda		pfi_bank
GETMBPL1	sta		<srcbuf+2
			;
			;
			;-----> END
			;
			LDY		#PFI_PLMAX-1
L_LOOP1		LDA		[srcbuf],Y
			STA		WS_PLIST,Y
			DEY
			BPL		L_LOOP1		;MORE TO MOVE
			rts

callpdosdispatch	; 
			jsr		setup
			jsr		savezp		;save our zp use
			jsr		pdosdispatch
			pha					;save error code
			jsr		restorezp	;and restore our zp use
			pla					;recover error code
			rts

pdosdispatch	; 
								;
								;-----> 4/4/88 TE
								;
								; This is placed here to make sure that
								; Local Prodos can function with RAMForbid.
								; If RamForbid has been called don't check Timers
								; for each of the sessions.
								; 
			LDA		>AT_Lockout
			bne		ProDOS_DIS
								;
								;-----> end
								;
								;
								;
								;----->3/11/88 te
								;
								; this checks the time since the last PFI
								; communication for each of the sessions.  
								;  
								; If more that 1 minute has expired, then a
								; get server params packet is sent to the server.
								; This packet was chosen because :
								;    1) No Disk hit on the server side
								;    2) Only packet per server
								;    3) Command Packet is small (one byte) 
								;
*
* is this entry in the table active
*
			ldx		#$00
TMR_loop	phx
			lda		SESSION_TBL,x
			beq		TMR_skip
*
* Find the Session's Timer
*
			sta		CURSESS
			txa
			asl		a
			tax
			lda		SESS_TMRTBL,x
			sta		ZP1
			inx
			lda		SESS_TMRTBL,x
			sta		ZP1+1
*
* Has the timer Expired ?
*
			ldy		#$02
			lda		(zp1),y		;has the timer expired ??
			bne		TMR_skip	;not done yet
*
* build packet to send to the server
*
			lda		#16			;Get Server Parms
			sta		WS_COMBUF
			;
			lda		#$01
			sta		PKT_CNT
			STZ		PKT_CNT+1
			;
			JSR		CMD_ROUTING		;reinstall timer in here
*
* any more Sessions to look at ??
*
TMR_skip	plx
			inx
			cpx		#$08
			Bne		TMR_loop

								;
								; -----> end
								;
							
*
* INITIALIZE VALUES
*
ProDOS_DIS	STZ		RETURNPL	;SIZE OF PL TO BE RETURNED TO MB
			STZ		Cn_DEVNUM	;IF NONZERO = LAST DEVICE ACCESS
			STZ		UERROR		;INIT ERROR CODE
			STZ		Cn_PFIERR	;init PFI ERROR
;
			LDA		#$FF
			STA		Cn_PFIXPTR	;IF NOT $FF THE PREFIX LOCATION
			STA		UFILEIDX	;REFERENCE INDEX NUMBER
*
* WAS THERE A SHUTDOWN WITH VOLUMES
*
			LDA		PFI_NODEV
			BEQ		PDCLEANUP	;NO
			JSR		REMOVE_DEV
			STZ		PFI_NODEV

*
* INITIALIZE OPEN MODE FOR FILES IF NEEDED
*
PDCLEANUP	; 
			LDA		PFI_CLEANUP
			Bpl		L_CONT
;
								;
								;---> 3/2/88 te
								;
								;
*
* INIT NETWORK DEVICE TABLE
*
			ldx		#13
PD_LOOP2	lda		NDT_SESS,X
			beq		PD_skip
			phx
			lda		NDT_UNIT,X
			CLC
			JSR		PDOS_DEVICE
			PLX
			STZ		NDT_SESS,X
PD_skip		DEX
			BPL		PD_LOOP2
*
* MOVE ALL POSSIBLE UNIT NUMBERS FROM ROM TABLE INTO RAM
*
			LDX		#0
PD_LOOP3	LDA		PUN_ROM,X	;POSSIBLE UNIT NUMBERS
			STA		AUN_RAM,X	;AVAILABLE UNIT NUMBERS
			INX
			CPX		#14
			BCC		PD_LOOP3
;
			LDA		#$FF
			STA		AUN_RAM,X	;END INDICATOR
			STZ		NDT_CNT		;NUMBER OPF MOUNTED VOLUMES
			STZ		FIRST_MOUNT	;FLAG FOR FIRST MOUNT !!!
								;
								;
								;----> end
								;
								;
			LDX		#$10		;ANYTHING BELOW $C0 (this was lda)
			LDY		#$04		;# OF Pages
			JSR		CHK_BITMAP	;DON'T CARE ABOUT RESULTS
;
			LDX		#7
L_LOOP1A	LDA		UMODE,X		;IS THIS ONE ACTIVE ??
			BEQ		L_LOOP1C	;NO, NOT OPEN
;
			LDA		UFILELOC,X	;WHERE IS IT LOCATED ??
			CMP		#$FF		;LOCAL ?
			Beq		L_LOOP1C	;NETWORK SERVER
;
			PHX					;SAVE INDEX
			LDA		UBUFPTRH,X
			TAX
			CLC					;CLEAR BITMAP
			JSR		PDOS_BITMAP
			PLX					;RESTORE INDEX
;
			STZ		UMODE,X
L_LOOP1C	DEX
			BPL		L_LOOP1A
;
			STZ		PFI_CLEANUP	;CLEAR FLAG
*
* IS THERE A LOCAL PRODOS ?
*
L_CONT	; 
			lda 	Active8
			bne 	L_DSP0				;FIXED *** TGH & TDE 3/24/89 (beq)
			lda		#$0f
			sta 	Cn_Level
*
* MOVE MLI PARAMETER LIST INTO PFI AREA
*
L_DSP0		jsr		getmbpl				;copy parm list from main to here
*
* FIND MLI COMMAND IN THE COMMAND TABLE
*
			LDX		#0
L_DSP2		LDA		CMDCODE,X	;FIND COMMAND IN TBL
			BEQ		L_DSP3
			CMP		Cn_WSICMD
			BEQ		L_DSP4		;COMMAND IS FOUND IN THE TABLE
			INX
			BRA		L_DSP2
L_DSP3		LDA		#$01		;INVALID COMMAND
			STA		UERROR
			JMP		END_CMD
*
* IS THIS A SPEICAL PCOUNT CASE ($C4 , $C8 , $43 ) ?
*
L_DSP4		STX		UCMDIDX		;SAVE TABLE INDEX
			LDA		CMDCODE,X	;FIND COMMAND IN TBL

			CMP		#$82		;GET TIME?
			BEQ		L_DSP5

			TAY					;PLACE COMMAND IN Y
			LDA		WS_PLIST	;GET PCOUNT IN A

			CPY		#$C8		;STRIP OUT HIGH BITS OF PCOUNT
			BEQ		L_DSP4A
			CPY		#$43
			BNE		L_DSP4B
;
L_DSP4A		AND		#%00011111
L_DSP4B		CPY		#$C4
			BNE		L_DSP4C
			AND		#%00111111	;STRIP OUT HIGH BITS
L_DSP4C	; 
			CMP		PCOUNT,X
			BEQ		L_DSP5		;CONTINUE
;
			LDA		#$04		;BAD PARAMETER COUNT
			STA		UERROR
			JMP		END_CMD
;
;

*
*	**** CHECK BIT 0 ****
*	IS THIS AN ONLY LOCAL TYPE CALL ?
*

L_DSP5		LDA		CMDTYPE,X
			AND		#%00000001	;LOCAL CALL ?
			BEQ		L_DSP6		;NO, NOT A LOCAL CALL
			JMP		GO_LOCAL	;YES, EXECUTE LOCALLY
;
;

*
*	**** CHECK BIT 2 ****
*	DOES THIS CALL HAVE A REFERENCE NUMBER ?
*

L_DSP6		LDA		CMDTYPE,X
			AND		#%00000100	;REF # NEEDED ?
			BEQ		L_DSP9		;NO REF # IS NEEDED !!!
*
* IS REFERENCE NUMBER ZERO ?
*
			LDA		WS_PLIST+1	;CHECK REF # RANGE
			BNE		L_DSP7		;NON-ZERO --> CHECK SIZE
*
* IS THIS A CLOSE ALL OR FLUSH ALL ?
*
			LDA		Cn_WSICMD
			CMP		#$CC		;CLOSE ALL ??
			BEQ		L_DSP8		;YES GO DO IT !!!
;
			CMP		#$CD		;FLUSH ALL ??
			BEQ		L_DSP8		;YES GO DO IT !!!
			BRA		L_DSP8_A		;ERROR --> ZERO NOT VALID
;
;
*
* IS THIS LESS THAN THE MAX ACCEPTED?
*
L_DSP7		CMP		#9
			BCS		L_DSP8_A	;ERROR --> TOO LARGE
*
* IS THIS AN ACCEPTABLE REFERENCE NUMBER ?
*
			TAX
			DEX
			LDA		UMODE,X		;IS THIS ENTRY ACTIVE ??
			BEQ		L_DSP8_A	;INVALID REFERENCE #
*
* IF THIS IS A CLOSE OR FLUSH GO TO COMMAND
*
			LDA		Cn_WSICMD
			CMP		#$CC		;CLOSE ALL ??
			BEQ		L_DSP8		;YES GO DO IT !!!
			CMP		#$CD		;FLUSH ALL ??
			BEQ		L_DSP8		;ERROR --> ZERO NOT VALID
*
* SAVE COMMAND INDEX AND SESSION NUMBER
*
			STX		UFILEIDX	;SAVE REF # INDEX
			LDA		UFILELOC,X
			STA		CURSESS		;SAVE CURRENT SESSION NUMBER
L_DSP8		JMP		GO_CMD
;
L_DSP8_A		LDA		#$43		;INVALID REF #
			STA		UERROR
			JMP		END_CMD
;
;

*
*	**** CHECK BIT 3 ****
*	DOES COMMAND HAVE A PATHNAME ?
*

L_DSP9		LDA		CMDTYPE,X
			AND		#%00001000
			BNE		L_DSP9_A
			JMP		L_DSP11		;NO PATHNAME REQUIRED !!!
*
* THE PATHNAME DETERMINES WHETHER THE CALL IS EXECUTED LOCALLY
* OR OVER THE NETWORK.
*
* IF VOLUME IS SPECIFIED (SLASH IS FIRST CHARACTER OF NAME)
*	VOL IS NOT MOUNTED - GO LOCAL
*	VOL IS	MOUNTED - GO OVER NETWORK
*
* IF VOLUME IS NOT SPECIFIED (FIRST CHARACTER NOT A SLASH)
*	PREFIX IS LOCAL (...PFXLOC = $FF) - GO LOCAL
*	PREFIX IS A SERVER	- GO OVER NETWORK
*
* SPECIAL CASES
*	1. OPEN IS MONITOR REGARDLESS OF PATHNAME
*	2. SET PREFIX IS MONITORED WHEN THE VOLUME IS SPECIFIED AND
*	AND IT IS MOUNTED (NEED TO KNOW THE RESULT)
*
*
* MOVE NAME ONTO THE CARD
*
L_DSP9_A		JSR		PATH2CARD	;MOVE NAME ONTO THE CARD
			BCC		L_DSP9_A1
			JMP		L_DSP9_ERR	;UNABLE TO GET NAME ON CARD
*
* IS THE LENGTH ZERO OR ONE ?
*
L_DSP9_A1	LDA		WS_PATH
			CMP		#$02
			BCS		L_DSP9_C		;PATH IS LONGER
*
* IS THIS A VALID PATH ?
*
			LDA		WS_PATH
			BEQ		L_DSP9_B		;NO LENGTH
			LDA		WS_PATH+1
			CMP		#SLASH
			BNE		L_DSP9_C		;OK IT IS ANOTHER CHARACTER
*
* IS THIS A SET PREFIX ?
*
L_DSP9_B		LDX		UCMDIDX
			LDA		CMDCODE,X
			CMP		#$C6		;SET PREFIX
			BEQ		L_DSP9_B1
			JMP		L_DSP9_ERR	;NO, IT IS NOT A SET PREFIX
*
* THERE IS NOT AN ACTIVE PREFIX
*
L_DSP9_B1	BIT		PFI_NAMING
			BMI		L_DSP9_B2	;AFP NAMING ACTIVE
			STZ		PRO_PREFIX
			BRA		L_DSP9_B3
L_DSP9_B2	STZ		AFP_PREFIX
L_DSP9_B3	STZ		Cn_PFIXPTR
;
			LDA		Active8		;Is there a local ProDOS ???
			beq		L_DSP9_B4
			;
			JSR		LOCAL
L_DSP9_B4	LDA		UERROR
			JMP		END_CMD
;
;
*
* IS PRODOS NAMING ACTIVE ?
*
L_DSP9_C		BIT		PFI_NAMING
			BMI		L_DSP9_D
;
			JSR		CHK_PRODOS
			BCC		L_DSP9_D
			JMP		L_DSP9_ERR
*
* IS VOLUME SPECIFIED?
*
L_DSP9_D		JSR		CHKSLASH
			BCS		L_DSP9_H		;NO SLASH !!!
*
* NO VOLUME SPECIFIED
* WHAT PREFIX IS ACTIVE ?
*
			BIT		PFI_NAMING
			BMI		L_DSP9_E
*
* PRODOS PREFIX IS ACTIVE
* WHERE IS THAT PREFIX SET (LOCAL OR SERVER) ?
*
			LDA		PRO_PFXLOC
			CMP		#$FF		;LOCAL ??
			BEQ		L_DSP9_I		;YES
;
			LDA		PRO_PFX_DEV	;PRODOS PREFIX DEVICE
			AND		#%11110000	;strip low nibble
			STA		Cn_DEVNUM	;SAVE IN LAST ACCESSED DEVICE !!!
			LDA		PRO_PFXLOC
			STA		CURSESS
			JMP		GO_CMD
*
* AFP PREFIX IS ACTIVE
* WHERE IS THAT PREFIX SET (LOCAL OR SERVER) ?
*
L_DSP9_E		LDA		AFP_PFXLOC
			CMP		#$FF		;LOCAL ??
			BEQ		L_DSP9_I		;YES
;
			LDA		AFP_PFX_DEV	;AFP PREFIX DEVICE
			AND		#%11110000	;strip low nibble
			STA		Cn_DEVNUM	;SAVE IN LAST ACCESSED DEVICE !!!
			LDA		AFP_PFXLOC
			STA		CURSESS
			JMP		GO_CMD		;GO MAKE CALL
;
*
* VOLUME IS SPECIFIED. IS THE VOLUME IN OUR NETWORK LIST?
*
L_DSP9_H		JSR		FND_CURSRV
			BCS		L_DSP9_I		;VOLUME NOT FOUND
			JSR		STRIP_PREFIX
			JMP		GO_CMD		;YES IT IS. GO MAKE CALL
;
;
*
* IS THERE A LOCAL PRODOS ?
*
L_DSP9_I	;
			LDA		Active8		;Is there a local ProDOS ???
			bne		L_DSP9_J
			;
			lda		#$27
			sta 	uError
			jmp 	End_CMD
			;
*
* CALL WILL GO LOCALLY . IF IT IS A SET
* PREFIX CALL WE MUST DO SPECIAL PROCESSING.
*
L_DSP9_J		LDX		UCMDIDX
			LDA		CMDCODE,X
			CMP		#$C6		;SET PREFIX
			BEQ		L_DSP9_K		;YES,IT IS A SET PREFIX
			JMP		GO_LOCAL	;OK, LET IT GO LOCAL
*
*	CALL IS A SET PREFIX
*	WE NEED TO MONITOR THE RESULTS
*
L_DSP9_K		JSR		LOCAL		;MAKE CALL LOCALLY
			BEQ		L_DSP9_L		;IF ERROR, LEAVE PFXLOC ALONE
			JMP		END_CMD		;ERROR IN CALL
*
* SET PREFIX LOCATION TO	LOCAL
*
L_DSP9_L		LDA		#$FF
;
			BIT		PFI_NAMING
			BMI		L_DSP9_M
			STA		PRO_PFXLOC	;PREFIX LOCATION IS LOCAL
			BRA		L_DSP9_N		;SAVE PREFIX
;
L_DSP9_M		STA		AFP_PFXLOC	;PREFIX LOCATION IS LOCAL
*
* SAVE PREFIX IN PREFIX BUFFER
*
L_DSP9_N		JSR		NEW_PREFIX
			JMP		END_CMD		;EXIT NORMALLY
;
;
*
* ERROR IN PATHNAME
*
L_DSP9_ERR	LDA		#$40		;INVALID PATHNAME
			STA		UERROR
			JMP		END_CMD

;
;

*
*	**** CHECK BIT 4 ****
*	DOES COMMAND HAVE A UNIT NUMBER ?
*

L_DSP11		LDA		CMDTYPE,X
			AND		#%00010000
			BEQ		GO_CMD		;NO UNIT NUMBER NEEDED
*
			LDA		NDT_CNT		;ANY SERVER UNITS UP?
			BNE		L_DSP11A
			JMP		GO_LOCAL	;NO, GO LOCAL ALL THE WAY
*
* UNIT # SPECIFIED. SEARCH NDT FOR MATCH. IF NOT FOUND
* GO LOCAL.
*
L_DSP11A	LDA		WS_PLIST+1	;ONLINE, FIND ALL VOLUMES?
			and		#$f0		;strip low nibble only want device
			sta		ws_plist+1
			BEQ		L_DSP14		;
;
			STZ		NDT_IDX1	;SAVE POSITION FOR ONLINE
			STZ		NDT_IDX1+1
			LDY		#0
L_DSP12		STY		NDT_IDX2
			LDA		NDT_SESS,Y	;IS IT ACTIVE
			BEQ		L_DSP13		;NO LOOK AT THE NEXT RECORD
;
			LDA		NDT_UNIT,Y
			AND		#$F0		;STRIP OUT LENGTH
			CMP		WS_PLIST+1
			BEQ		L_DSP14		;MAKE CALL ON NET
;
L_DSP13		CLC					;LOOK AT THE NEXT NDT RECORD
			LDA		NDT_IDX1
			ADC		#NDT_NAMELEN
			STA		NDT_IDX1
			LDA		NDT_IDX1+1
			ADC		#$00
			STA		NDT_IDX1+1
;
			INY
			CPY		#14			;7 SLOTS * 2 DRIVES
			BNE		L_DSP12		;MORE RECORDS TO LOOK AT
			JMP		GO_LOCAL

L_DSP14	; 
			LDX		UCMDIDX
			LDA		CMDCODE,X
			CMP		#$80
			BEQ		L_NOGOOD	;READ BLOCK BAD
			CMP		#$81		;
			BNE		GO_CMD		;IT IS AN OK CALL
L_NOGOOD	; 
			LDA		WS_PLIST+1
			BNE		L_NETERR
			LDA		#$28		;NO DEVICE CONNECTED ERROR
			BRA		L_NETERR1
L_NETERR	LDA		#$88		;NETWORK ERROR
L_NETERR1	; 
			STA		UERROR
			BRA		END_CMD

;
;


*
* PROCESS MLI CALL WITH NETWORK'S HELP !!!!!!!!
*

GO_CMD	; 
			JSR		MLIPROC		;CALL MLI PROCESSOR
*
* RETURN SOME OF THE PARAMETER LIST?
*
END_CMD	; 
			LDA		RETURNPL
			BEQ		END_CMD1	;NONE TO RETURN
;
			STA		<COUNT
			LDA		#00
			STA		<COUNT+1
;
			LDA		#WS_PLIST
			STA		<SRCBUF		;LB OF PFI PL
			LDA		#>WS_PLIST
			STA		<SRCBUF+1	;HB OF PFI PL
			lda		#^ws_plist
			sta		<srcbuf+2
;
			LDA		Cn_WSIPL
			STA		<DESTBUF
			LDA		Cn_WSIPL+1
			STA		<DESTBUF+1
			;
			;-----> 5/31/88 CHECK TO SEE IF IT IS ZERO PAGE
			;
			BNE		ENDCMD0A
			LDA		ZP_BANK
			BRA		ENDCMD0B
			;
			;
ENDCMD0A	lda		pfi_bank
ENDCMD0B	sta		<DESTbuf+2
			;
			;
			;-----> END
			;
			JSR		BUFFMOVE
*
* IS THERE A LOCAL PRODOS ?
*
END_CMD1	; 
			LDA		Active8		;Is there a local ProDOS ???
			bne		END_CMD1A
			;
			STZ		Cn_DEVNUM
			LDA		#$FF
			STA		Cn_PFIXPTR
*
* SET ERROR CODE AND CARRY IN CN00
*
END_CMD1A	; 
			LDA		UERROR		;PUT ERROR CODE IN A
			STA		Cn_ERROR
			BNE		END_CMD2
			CLC
			BRA		END_CMD3
END_CMD2	; 
			SEC
END_CMD3	; 
*
* THE MLI COMMAND IS NOW COMPLETE - RELEASE MOTHERBOARD
*
			rts
;
;
;
;

*
*
* RETURN TRAPPED MLI CALL TO LOCAL MLI FIRMWARE !!!
*
*

GO_LOCAL	; 
*
* IS THERE A LOCAL PRODOS ?
*
			LDA		Active8		;Is there a local ProDOS ???
			bne		GO_LOCAL1
			;
			lda		#$27
			sta 	uError
			jmp 	End_CMD
			;
*
* MAKE LOCAL CALL TO PRODOS
*
GO_LOCAL1	; 
			JSR		DO_JSRLOCAL	;DIRECT MOTHERBOARD LOCAL
			LDA		Cn_ERROR
			STA		UERROR
			BRA		END_CMD		;SAVE ERROR AND SET THE CARRY
;
;
;
			eject

*
*
*
* MLI CALL PROCESSOR
*
*
*

*
* SHOULD CALL GO LOCAL (REFERENCE # FOR LOCAL FILE) ?
*
		EXPORT	MLIPROC
MLIPROC		;		
			LDX		UFILEIDX	;IS THERE A REFERENCE # ?
			BMI		MLIP1		;NO , CONTINUE
			LDA		UFILELOC,X	;IS THE FILE LOCAL ?
			CMP		#$FF
			BNE		MLIP0		;NO,NETWORK LOCATION
			JMP		LOCALREF	;MAKE LOCAL CALL
*
* SAVE DEVICE FOR THIS REFERENCE NUMBER
*
MLIP0	; 
			LDA		UDEVNUM,X	;GET DEVICE NUMBER
			AND		#%11110000	;strip low nibble
			STA		Cn_DEVNUM	;UPDATE LAST DEVICE ACCESSED
*
* GO TO THE REQUESTED COMMAND
*
MLIP1	; 
			LDX		UCMDIDX		;GET CMD INDEX
			TXA
			ASL		A			;MULTIPLY INDEX BY 2
			TAX
			LDA		MCPADDR,X	;GET ADDR
			STA		<zp1			;AND STORE IN JMP VECTOR
			LDA		MCPADDR+1,X
			STA		<zp1+1
			LDX		UCMDIDX
			JMP		(zp1)		;JUMP TO ROUTINE
;
;
			eject

*
*
* COMMAND $C0 = CREATE
*
*
* IF STORAGE TYPE = $0D THEN CREATE A DIRECTORY
*	= $01 THEN CREATE A FILE.
*
* SET FILE/DIR INFO (1.PRODOS INFO, 2.ACCESS)
*
* IF UNABLE TO SET INFO - DELETE IT
*
*

		EXPORT	CREATE
CREATE		;	
* ARE THERE EXTRA BITS SET?
			LDA		WS_PLIST+3
			AND		#%00011000
			Bne		cBad

			JSR		CHK_VOLUME
			BCC		LC_CREATE00		;NO , NOT A VOLUME
;
cbad		LDA		#$4E		;ACCESS ERROR
			STA		UERROR
			RTS
*
* IS THIS A VALID STORAGE TYPE ?
*
LC_CREATE00	LDA		WS_PLIST+$07
			CMP		#$0D
			BEQ		LC_CREATE0	;YES, A DIRECTORY
			CMP		#$04
			BCC		LC_CREATE0	;YES , A FILE (0-3)
;
			LDA		#$4B		;UNACCEPTABLE STORAGE TYPE
			STA		UERROR
			RTS
*
* STUFF VOLUME ID AND DIRECTORY ID
*
LC_CREATE0	JSR		STUFF_IDS
*
* MOVE PATHNAME TO THE BUFFER
*
			CLC
			LDX		#$08		;OFFSET TO PATHNAME IN PACKET
			JSR		PATH2BUF
*
* IS THIS A DIRECTORY OR A FILE ? (SAVE COMMAND BYTE)
*
			LDA		WS_PLIST+7	;STORAGE TYPE
			CMP		#$0D		;IS IT A DIRECTORY ?
			BNE		LC_CREATE1
;
			LDA		#CREATEDIR
			BRA		LC_CREATE2
;
LC_CREATE1	LDA		#CREATEFIL
LC_CREATE2	STA		WS_COMBUF
			STZ		WS_COMBUF+1
*
* TIME TO CALL ASP COMMAND CALL FOR AFP CREATE
*
			JSR		CMD_ROUTING
			BCC		LC_CREATE3	;CONTINUE WITH CREATE
			RTS					;TIME TO EXIT DUE TO ERROR
*
* STUFF COMMAND FOR SET FILE/DIR PARAMETER
*
LC_CREATE3	LDA		WS_PLIST+3
			STA		ACCESS
;
			LDA		#SETFDINFO
			STA		WS_COMBUF	;SAVE COMMAND
			STZ		WS_COMBUF+1
*
* STUFF VOLUME AND DIRECTORY IDS
*
			JSR		STUFF_IDS
*
* STUFF HB OF BITMAP
*
			LDA		#%00100000		;PRODOS INFO
			STA		WS_COMBUF+$08	;HB OF BITMAP
*
* STUFF LB OF BITMAP
*
LC_CREATE3A	LDA		#%00000001		;ATTRIBUTES
LC_CREATE3B	STA		WS_COMBUF+$09	;LB OF BITMAP
*
* STUFF PATHNAME
*
			SEC					;PADDING NEEDED
			LDX		#$0A		;OFFSET TO PATHNAME IN PACKET
			JSR		PATH2BUF	;SAVE PATH IN PACKET
*
* SET ACCESS FOR FILE
*
*	PRODOS FORMAT	AFP FORMAT
*
*	DESTORY = BIT 7	===	BIT 0 - HIGH BYTE = DELETE
*	RENAME	= BIT 6	===	BIT 7 - LOW	BYTE = RENAME
*	BACKUP	= BIT 5	===	BIT 6 - LOW	BYTE = BACKUP
*	WRITE	= BIT 1	===	BIT 5 - LOW	BYTE = READ ONLY
*	READ	= BIT 0	===	NOT VALID
*
			LDA		WS_PLIST+$07
			CMP		#$0D		;DIRECTORY ??
			BEQ		LC_DIR
			LDA		#$00		;TYPE = FILE
			BRA		LC_DOIT
LC_DIR		LDA		#$80		;TYPE = DIRECTORY
LC_DOIT		JSR		INTO_ATTRI	;DOES NOT CHANGE X REGISTER
;
			LDA		ATTRIBUTE+1
			STA		WS_COMBUF,X	;SAVE HB OF ATTRIBUTES
			INX
			LDA		ATTRIBUTE
			ORA		#%01000000	;SET BACKUP BIT
			STA		WS_COMBUF,X	;SAVE LB OF ATTRIBUTES
			INX
;
;-----> 11/19/87   TE
;
*
* is there a create time in packet
*
			LDA		WS_PLIST+$08
			ORA		WS_PLIST+$09
			ORA		WS_PLIST+$0A
			ORA		WS_PLIST+$0B
			BEQ		LC_FINDER		;automatic stamping by server
*
* unique creation date (no automatic stamping)
* set create date in bitmap
*
			LDA		#%00000100	   ;,CREATE DATE
			ORA		WS_COMBUF+09
			STA		WS_COMBUF+09
;
;----> end
;

* CONVERT PRODOS CREATE TIME INTO AFP TIME
			PHX
			LDX		#$03
LC_LOOP	; 
			LDA		WS_PLIST+$08,X
			STA		PRO_TIME,X
			DEX
			BPL		LC_LOOP
			JSR		INTO_SEC	;CHANGE PTIME INTO AFPTIME
			PLX
			LDY		#00
LC_LOOP2	; 
			LDA		AFP,Y
			STA		WS_COMBUF,X
			INX
			INY
			CPY		#04
			BNE		LC_LOOP2
;
;
*
* IS THIS A DIRECTORY OR A FILE (STUFF FINDER INFO)?
*
* FINDER INFO
*
LC_FINDER	; 
*
* SAVE PRODOS INFORMATION
*
LC_CREATE3E	LDA		WS_PLIST+4	;FILE TYPE
			STA		WS_COMBUF,X
			INX
			STZ		WS_COMBUF,X	;NOT USED ON APPLE 2E
;
			INX
			LDA		WS_PLIST+5
			STA		WS_COMBUF,X	;AUX TYPE LB
			INX
			LDA		WS_PLIST+6
			STA		WS_COMBUF,X	;AUX TYPE HB
			INX
			STZ		WS_COMBUF,X	;NOT USED ON APPLE 2E
			INX
			STZ		WS_COMBUF,X	;NOT USED ON APPLE 2E
*
* TIME TO CALL ASP COMMAND CALL FOR SET DIR PARMS
*
			INX
			STX		PKT_CNT
			STZ		PKT_CNT+1
			JSR		CMD_ROUTING
			BCS		LC_CREATE4	;UNABLE TO SET PARMS - DELETE
			RTS					;TIME TO EXIT DUE - NO ERROR
*
* DELETE FILE OR DIRECTORY THAT WAS JUST CREATED !!
*
LC_CREATE4	LDA		UERROR
			PHA					;SAVE IT ON THE STACK
;
			LDA		#DELETE
			STA		WS_COMBUF
			STZ		WS_COMBUF+1
;
			JSR		STUFF_IDS
;
			CLC
			LDX		#$08		;OFFSET TO PATHNAME
			JSR		PATH2BUF
;
			JSR		CMD_ROUTING
			PLA					;RESTORE ERROR ON SET PARMS
			STA		UERROR		;SAVE IT AS ERROR
			RTS
;
;
			eject

*
*
* COMMAND $C1 = DESTROY
*
* ISSUE THE AFP DELETE COMMAND REGARDLESS OF WHAT IT IS
*
*

		EXPORT	DESTROY
DESTROY		;		
			JSR		CHK_VOLUME
			BCC		LC_OVER		;NO , NOT A VOLUME
;
			LDA		#$4E		;ACCESS ERROR
			STA		UERROR
			RTS
*
* ISSUE THE AFP DELETE COMMAND REGARDLESS OF WHAT IT IS
*
LC_OVER		LDA		#DESTROYCMD
			STA		WS_COMBUF
			STZ		WS_COMBUF+1
;
			JSR		STUFF_IDS
;
			CLC
			LDX		#$08		;OFFSET TO PATHNAME
			JSR		PATH2BUF
;
			JSR		CMD_ROUTING
;
			LDA		Cn_PFIERR
			CMP		#$5B
			BEQ		LC_DESTORY1
			CMP		#$5F
			BEQ		LC_DESTORY1
;
			LDA		UERROR
			CMP		#$44		;NOT FOUND
			BNE		LC_DESTORY1
			LDA		#$46
			STA		UERROR
LC_DESTORY1	RTS
;
;
			eject

*
*
* COMMAND $C2 = RENAME
*
* ISSUE THE AFP RENAME COMMAND REGARDLESS OF WHAT IT IS
*
*

		EXPORT	RENAME
RENAME		;		
			JSR		CHK_VOLUME
			BCC		LR_OVER		;NO , NOT A VOLUME
;
			LDA		#$4E		;ACCESS ERROR
			STA		UERROR
			RTS
*
* ISSUE THE AFP RENAME COMMAND REGARDLESS OF WHAT IT IS
*
LR_OVER		LDA		#RENAMECMD
			STA		WS_COMBUF
			STZ		WS_COMBUF+1
;
			JSR		STUFF_IDS
;
			CLC
			LDX		#$08
			JSR		PATH2BUF
			PHX
*
* RENAME --- SAVE STRUCTURE AND ITS LENGTH IN WS_PREPATH
*
*
* FIND LENGTH OF PREPATH
*
			LDY		WS_PATH
			CPY		#$02		;IS IT 0 OR 1 ?
			BCS		LR_RENAME1	;YES THERE IS MORE TO IT
;
			STZ		WS_PREPATH
			BRA		LR_RENAME3	;MOVE SECOND NAME
;
LR_RENAME1	DEY
			STY		WS_PREPATH
			BEQ		LR_RENAME3	;FINISHED WITH NAME (ONE SEGMENT)
;
			LDA		WS_PATH,Y
			CMP		#SLASH
			BNE		LR_RENAME1	;START OF LAST SEGMENT
*
* SAVE LENGTH OF WS_PREPATH
*
			DEY					;SKIP SLASH
			STY		WS_PREPATH
			BEQ		LR_RENAME3	;MOVE SECOND NAME
;
LR_RENAME2	LDA		WS_PATH,Y
			STA		WS_PREPATH,Y
			DEY
			BNE		LR_RENAME2	;END OF MOVE
*
* MOVE SECOND NAME TO CARD
*
LR_RENAME3	LDA		#WS_PATH
			STA		<DESTBUF
			LDA		#>WS_PATH
			STA		<DESTBUF+1
			LDA		#^WS_PATH
			STA		<DESTBUF+2
*
			LDA		WS_PLIST+3	;PATHNAME POINTER - LB
			STA		<SRCBUF
			INY
			LDA		WS_PLIST+4	;PATHNAME POINTER - HB
			STA		<SRCBUF+1
;
			LDA		PFI_BANK
			STA		<SRCBUF+2	;FIND BANK !!!
*
			LDA		#MAX_AFPPATH
			STA		<COUNT
			LDA		#00
			STA		<COUNT+1
*
			JSR		BUFFMOVE
*
*  check for a Double Slash
*
			JSR		CHKDBL
			BCS		LR_NAMEERR
*
* IS THE LENGTH OF THE SECOND NAME TOO LONG ??
*
			LDA		WS_PATH
			CMP		#MAX_AFPPATH-1
			BCS		LR_NAMEERR
*
* CHECK PRODOS ???
*
			BIT		PFI_NAMING
			BMI		LR_RENAME4
;
			JSR		CHK_PRODOS
			BCS		LR_NAMEERR
*
* Strip Prefix from Second Name
*
LR_RENAME4	JSR		STRIP_PREFIX	;REMOVE PREFIX FROM SECOND NAME
*
* IS THE SECOND PATH AS LONG AS THE PREPATH ???
*
			LDA		WS_PREPATH
			CMP		WS_PATH
			BCC		LR_NAME4A
;
LR_NAMEERR	PLX					;remove unused index
			LDA		#$40
			STA		UERROR
			RTS
*
* SAVE FILE TYPE IN PACKET
*
LR_NAME4A		PLX					;RESTORE INDEX TO PACKET
			LDA		#$02		;NAME TYPE
			STA		WS_COMBUF,X
			INX					;
*
* SAVE LENGTH OF SEGMENT
*
			CLC					;ADD ONE
			LDA		WS_PATH
			SBC		WS_PREPATH
			STA		WS_COMBUF,X
*
* CHECK SECOND NAME AGAINST WS_PREPATH
*
			LDY		WS_PREPATH
			BNE		LR_RENAME5	;CHECK AGAINST NAME
;
			INC		WS_COMBUF,X
			BRA		LR_RENAME6
;
LR_RENAME5	LDA		WS_PATH,Y
			CMP		WS_PREPATH,Y
			BEQ		LR_RENAME5C	;YES IT IS THE SAME LETTER
;
*
* IF IN AFP MODE, IS HI BIT SET?
*
			BIT		PFI_NAMING
			BPL		LR_RENAME5A
;
			LDA		WS_PATH,Y	;IS HI BIT SET ???
			BMI		LR_RENAME_ERR	;NOT INSENSITIVE
*
* CONVERT TO UPPER CASE
*
LR_RENAME5A	CMP		#$61
			BCC		LR_RENAME5B	;TEST CHARACTER
			AND		#$5F
;
LR_RENAME5B	CMP		#$41		;IS IT LT 'A' ?
			BCC		LR_RENAME_ERR	;NO,FLUNK TEST
			CMP		#$5B		;IS IT GT 'Z' ?
			BCS		LR_RENAME_ERR	;NO,FLUNK TEST
*
			LDA		WS_PATH,Y	;CHECK CASE INSENSITIVE
			EOR		#$20
			CMP		WS_PREPATH,Y
			BNE		LR_RENAME_ERR	;NO,FLUNK TEST
*
LR_RENAME5C	DEY
			BNE		LR_RENAME5
*
* SHIFT NAME TO PACKET
*
			LDY		WS_PREPATH
			INY
LR_RENAME6	INY
			INX
			LDA		WS_PATH,Y
			CMP		#SLASH
			BEQ		LR_RENAME_ERR	;THERE SHOULD BE NO SLASHES
;
			STA		WS_COMBUF,X
			CPY		WS_PATH
			BNE		LR_RENAME6
;
			INX
			STX		PKT_CNT
			STZ		PKT_CNT+1
			JSR		CMD_ROUTING
;
			LDA		Cn_PFIERR
			CMP		#$5B
			BEQ		LR_RENAME7
			CMP		#$5F
			BEQ		LR_RENAME7
;
			LDA		UERROR
			CMP		#$44		;NOT FOUND
			BNE		LR_RENAME7
			LDA		#$46
			STA		UERROR
LR_RENAME7	RTS
;
;
LR_RENAME_ERR	LDA		#$40
			STA		UERROR
			RTS
;
;
			eject

*
*
* COMMAND $C3 = SET FILE INFO
*
* ISSUE AFP SET FILE/DIR INFO
*	1.MOD TIME
*	2.PRODOS AUX TYPE
*	3.ACCESS
*

		EXPORT	SETINFO
SETINFO		;		
* ARE THERE EXTRA BITS SET?
			LDA		WS_PLIST+3
			AND		#%00011000
			BEQ		SIOK
			LDA		#$4E
			STA		UERROR
			RTS
SIOK	; 

*
* STUFF COMMAND FOR SET FILE/DIR PARAMETER
*
LS_SETF		LDA		WS_PLIST+3
			STA		ACCESS
			LDA		#$00		;DOESN'T MATTER ANYMORE
			JSR		INTO_ATTRI	;DOES NOT CHANGE
;
			LDA		#SETFDINFO
			STA		WS_COMBUF	;SAVE COMMAND
			STZ		WS_COMBUF+1
*
* STUFF VOLUME AND DIRECTORY IDS
*
			JSR		STUFF_IDS
*
* STUFF BITMAPS
*
			LDA		#%00100000	 ;PRODOS INFO
			STA		WS_COMBUF+8	;HB OF BITMAP
;
			LDA		#%00001001	 ;ACCESS & MOD DATE
LS_SETG		STA		WS_COMBUF+9	;LB OF BITMAP
;
*
* STUFF PATHNAME & ATTRIBUTES
*
			SEC					;NEEDS TO BE PADDED
			LDX		#$0A		;OFFSET TO PATHNAME IN PACKET
			JSR		PATH2BUF	;SAVE PATH IN PACKET
;
			LDA		ATTRIBUTE+3
			STA		WS_COMBUF,X	;SAVE HB OF ATTRIBUTES
			INX
			LDA		ATTRIBUTE+2
			STA		WS_COMBUF,X	;SAVE LB OF ATTRIBUTES
			INX
*
* CONVERT PRODOS TIME INTO AFP TIME
*
			PHX					;SAVE [X] REGISTER
			LDX		#$03
SETINFO1	; 
			LDA		WS_PLIST+$0A,X
			STA		PRO_TIME,X
			DEX
			BPL		SETINFO1
;
			JSR		INTO_SEC	;CHANGE PRODOS TIME IN TO AFP TIME
;
			PLX					;RESTORE X REGISTER
			LDY		#$00
SETINFO2	; 
			LDA		AFP,Y
			STA		WS_COMBUF,X
			INX
			INY
			CPY		#$04
			BNE		SETINFO2

*
* SET PRODOS FILE TYPE
*
LS_SETI		LDA		WS_PLIST+4	;FILE TYPE
			STA		WS_COMBUF,X
			INX
			STZ		WS_COMBUF,X	;NOT USED ON APPLE 2E
;
			INX
			LDA		WS_PLIST+5
			STA		WS_COMBUF,X	;AUX TYPE LB
			INX
			LDA		WS_PLIST+6
			STA		WS_COMBUF,X	;AUX TYPE HB
			INX
			STZ		WS_COMBUF,X	;NOT USED ON APPLE 2E
			INX
			STZ		WS_COMBUF,X	;NOT USED ON APPLE 2E
*
* SEND THE FIRST PACKET
*
			INX
			STX		PKT_CNT
			STZ		PKT_CNT+1
			JSR		CMD_ROUTING	;ISSUE AFP CALL
			LDA		UERROR
			BEQ		SETINFO3
;
			RTS					;ERROR ,EXIT NOW
;
;
;
*
* are there any bits to SET ??
*
SETINFO3	; 
			LDA		ATTRIBUTE+1
			AND		#%01111111
			ORA		ATTRIBUTE
			BNE		LS_OVER
			RTS
*
* ISSUE SECOND CALL TO SET ATTRIBUTES
*
LS_OVER		LDA		#SETFDINFO
			STA		WS_COMBUF	;SAVE COMMAND
			STZ		WS_COMBUF+1
*
* STUFF VOLUME AND DIRECTORY IDS
*
			JSR		STUFF_IDS
*
* STUFF BITMAPS
*
			LDA		#%00000000	 ;
			STA		WS_COMBUF+8	;HB OF BITMAP
			LDA		#%00001001	 ;ACCESS AND MODE DATE
			STA		WS_COMBUF+9	;LB OF BITMAP
*
* STUFF PATHNAME & ATTRIBUTES
*
			SEC					;NEEDS TO BE PADDED
			LDX		#$0A		;OFFSET TO PATHNAME IN PACKET
			JSR		PATH2BUF	;SAVE PATH IN PACKET
;
			LDA		ATTRIBUTE+1
			STA		WS_COMBUF,X	;SAVE HB OF ATTRIBUTES
			INX
			LDA		ATTRIBUTE
			STA		WS_COMBUF,X	;SAVE LB OF ATTRIBUTES
;
			INX
			LDY		#$00
SFLOOP1	; 
			LDA		AFP,Y
			STA		WS_COMBUF,X
			INX
			INY
			CPY		#$04
			BNE		SFLOOP1

			STX		PKT_CNT
			STZ		PKT_CNT+1
			JSR		CMD_ROUTING	;ISSUE AFP CALL
;
			LDA		UERROR
			BEQ		SETINFO4
;
			RTS					;ERROR ,EXIT NOW
;
;
*
* ARE THEY TRYING TO CLEAR THE BACKUP BIT
*
SETINFO4	; 
			LDA		ATTRIBUTE+2
			AND		#%01000000	;BACKUP NEEDED BIT
			BNE		ZLS_OVER
			RTS
*
* ISSUE THIRD CALL TO CLEAR ATTRIBUTES
*
ZLS_OVER	LDA		#SETFDINFO
			STA		WS_COMBUF	;SAVE COMMAND
			STZ		WS_COMBUF+1
*
* STUFF VOLUME AND DIRECTORY IDS
*
			JSR		STUFF_IDS
*
* STUFF BITMAPS
*
			LDA		#%00000000	 ;
			STA		WS_COMBUF+8	;HB OF BITMAP
			LDA		#%00000001	 ;ACCESS
			STA		WS_COMBUF+9	;LB OF BITMAP
*
* STUFF PATHNAME & ATTRIBUTES
*
			SEC					;NEEDS TO BE PADDED
			LDX		#$0A		;OFFSET TO PATHNAME IN PACKET
			JSR		PATH2BUF	;SAVE PATH IN PACKET
;
			LDA		#$00
			STA		WS_COMBUF,X	;SAVE HB OF ATTRIBUTES
			INX
			LDA		#%01000000	;BACKUP NEEDED BIT
			STA		WS_COMBUF,X	;SAVE LB OF ATTRIBUTES
;
			INX
			LDY		#$00
SFLOOP3	; 
			LDA		AFP,Y
			STA		WS_COMBUF,X
			INX
			INY
			CPY		#$04
			BNE		SFLOOP3

			STX		PKT_CNT
			STZ		PKT_CNT+1
			JMP		CMD_ROUTING	;ISSUE AFP CALL
;
;
			eject

*
*
* COMMAND $C4 = GET FILE INFO
*
* ISSUE AFP GET FILE/DIR INFO
*
*	1.ACCESS (TRANSLATE FROM AFP BITS INTO PRODOS BITS)
*	2.PRODOS AUX TYPE (FILES ONLY)
*	3.MOD TIME & DATE (TRANSLATE INTO PRODOS TIME)
*	4.CREATION TIME & DATE (TRANSLATE INTO PRODOS TIME)
*	*5.BLOCKS USED (FOR DIR USE OFFSPRING CNT TO FIND SIZE)
*	6.STORAGE TYPE (LOOK AT START OF PARAMETERS IN PACKET)
*
* IF THE DIRECTORY IS A VOLUME -
*	PLACE TOTAL BLOCKS USED	IN BLOCKS USED
*	PLACE TOTAL BLOCKS POSSIBLE IN AUX TYPE
*
*

		EXPORT	GETFINFO
GETFINFO		;		
*
* STUFF GET FIL/DIR INFO
*
			LDA		#GETFDINFO
			STA		WS_COMBUF
			STZ		WS_COMBUF+1
;
			JSR		STUFF_IDS
;
			LDA		#%00100110	   ;HB OF FILE BITMAP
			STA		WS_COMBUF+$08	;RSC + DATA LENGTH, PRODOS AUX TYPE
			LDA		#%00001101	   ;LB OF FILE BITMAP
			STA		WS_COMBUF+$09	;ATTRIBUTES,MOD DATE, CREATE DATE
;
			LDA		#%00100010	   ;HB OF DIR BITMAP
			STA		WS_COMBUF+$0A	;# OF OFFSPRING, PRODOS AUX TYPE
			LDA		#%00001101	   ;LB OF DIR BITMAP
			STA		WS_COMBUF+$0B	;ATTRIBUTES,MOD DATE, CREATE DATE
;
			CLC
			LDX		#$0C
			JSR		PATH2BUF	;MOVE PATHNAME TO BUFR
;
			JSR		CMD_ROUTING	;EXECUTE CALL
			BCC		GETINFO1
;
			LDA		Cn_PFIERR
			CMP		#$5B
			BEQ		GETERR
			CMP		#$5F
			BEQ		GETERR
;
			LDA		UERROR
			CMP		#$44
			BNE		GETERR
;
			LDA		#$46		;FILE NOT FOUND
			STA		UERROR
GETERR	; 
			RTS					;ERROR IN GET INFO CALL
;
;
*
* SET ACCESS BYTES IN PL (WITH SOME TRANSLATION)
*
GETINFO1	; 
			LDX		#$06		;HB OF ATTRIBUTES
			LDA		WS_COMBUF,X
			STA		ATTRIBUTE+1
			INX
			LDA		WS_COMBUF,X
			STA		ATTRIBUTE
;
			LDA		WS_COMBUF+4	;TYPE (80=DIR/00=FILE)
			JSR		FROM_ATTRI
			LDA		ACCESS
			STA		WS_PLIST+3	;SAVE ACCESS
*
* FIND MOD DATE & TIME
*
			LDX		#$03
GET_INFO2	; 
			LDA		WS_COMBUF+$0C,X
			STA		AFP,X
			DEX
			BPL		GET_INFO2	;MORE OF AFP TIME TO MOVE
;
			JSR		FROM_SEC
;
			LDX		#$03
GET_INFO3	; 
			LDA		PRO_TIME,X
			STA		WS_PLIST+$0A,X
			DEX
			BPL		GET_INFO3	;MORE OF PRODOS TIME TO MOVE
*
* FIND CREATION DATE & TIME
*
			LDX		#$03
GET_INFO4	; 
			LDA		WS_COMBUF+$08,X
			STA		AFP,X
			DEX
			BPL		GET_INFO4	;MORE OF AFP TIME TO MOVE
;
			JSR		FROM_SEC
;
			LDX		#$03
GET_INFO5	; 
			LDA		PRO_TIME,X
			STA		WS_PLIST+$0E,X
			DEX
			BPL		GET_INFO5	;MORE OF PRODOS TIME TO MOVE
*
* IS THE OBJECT A FILE OR A DIRECTORY ?
*
			LDA		WS_COMBUF+4
			BEQ		GETINFO6	;IT IS A FILE
			JMP		GETINFO7	;IT IS A DIRECTORY
*
* SAVE - PRODOS AUX TYPE INFO
*
GETINFO6	; 
			LDA		WS_COMBUF+$18
			STA		WS_PLIST+$04	;SAVE FILE TYPE
								;
			LDA		WS_COMBUF+$1A
			STA		WS_PLIST+$05	;SAVE LB OF AUX TYPE
			LDA		WS_COMBUF+$1B
			STA		WS_PLIST+$06	;SAVE HB OF AUX TYPE
*
* WHAT FORK WAS REQUESTED ???
*   BOTH ???
*
			BIT		WS_PLIST
			BVC		LG_CONT1
;
; ADD BOTH FORKS TOGETHER
			CLC
			LDA		WS_COMBUF+$13
			ADC		WS_COMBUF+$17
			STA		WS_COMBUF+$13
;
			LDA		WS_COMBUF+$12
			ADC		WS_COMBUF+$16
			STA		WS_COMBUF+$12
;
			LDA		WS_COMBUF+$11
			ADC		WS_COMBUF+$15
			STA		WS_COMBUF+$11
;
			LDA		WS_COMBUF+$10
			ADC		WS_COMBUF+$14
			STA		WS_COMBUF+$10
			BCC		LG_CONT2		;NO, OVERFLOW
;
			LDA		#$FF		;OVERFLOW
			STA		WS_COMBUF+$10
			BRA		LG_CONT2
;
*
* WAS THE RESOURCE FORK REQUESTED
*
LG_CONT1		BPL		LG_CONT2		;NO IT WAS THE DATA FORK
;
			LDX		#$03
LG_CONT1A		LDA		WS_COMBUF+$14,X
			STA		WS_COMBUF+$10,X
			DEX
			BPL		LG_CONT1A		;MOVE ALL BYTES TO FIRST AREA
*
* SAVE FILE BLOCKS USED
*
LG_CONT2		LDA		WS_COMBUF+$10
			STA		FILE_SIZE
			LDA		WS_COMBUF+$11
			STA		FILE_SIZE+1
			LDA		WS_COMBUF+$12
			STA		FILE_SIZE+2
			LDA		WS_COMBUF+$13
			STA		FILE_SIZE+3
;
			JSR		BYTE2BLKS
;
			LDA		FILE_BLKS+1
			STA		WS_PLIST+9	;SAVE HB OF BLOCKS
			LDA		FILE_BLKS
			STA		WS_PLIST+8	;SAVE LB OF BLOCKS
*
* SET STORAGE TYPE
*
			LDA		FILE_BLKS+1
			LSR		A
			BNE		LG_TREE		;IS IT A TREE ?
			BCC		LG_NEXT		;NOT A TREE
			LDA		FILE_BLKS
			BEQ		LG_SAPLING
LG_TREE		LDA		#$03		;TREE !!!!
			BRA		LG_SAV
;
LG_NEXT		LDA		FILE_BLKS
			LSR		A			;
			BEQ		LG_SEED		;
LG_SAPLING	LDA		#$02		;SAPLING !!!!!!
			BRA		LG_SAV
LG_SEED		LDA		#$01		;SEEDLING !!!
LG_SAV		STA		WS_PLIST+$07	;SAVE FILE TYPE
*
* TIME TO LEAVE FOR FILE - PLEASE EXIT
*
			LDA		#$12
			STA		RETURNPL
			RTS
;
;
*
* SAVE DIRECTORY FILE TYPE & STORAGE TYPE
*
GETINFO7	; 
			LDA		#$0D
			STA		WS_PLIST+$07	;SAVE STORAGE TYPE
*
* SAVE - PRODOS AUX TYPE INFO
*
			LDA		WS_COMBUF+$12
			STA		WS_PLIST+$04	;SAVE FILE TYPE
								;
			LDA		WS_COMBUF+$14
			STA		WS_PLIST+$05	;SAVE LB OF AUX TYPE
			LDA		WS_COMBUF+$15
			STA		WS_PLIST+$06	;SAVE HB OF AUX TYPE
*
* IS THIS A VOLUME ?
*
			JSR		CHK_VOLUME
			BCS		GETINFO8	;YES IT IS A VOLUME
*
* CALCULATE # OF BLOCKS USED BY DIRECOTRY !!!
*
			LDA		WS_COMBUF+$10
			STA		OFFSPRING
			LDA		WS_COMBUF+$11
			STA		OFFSPRING+1
;
			JSR		CALC_DIRINFO
;
			LDA		FILE_BLKS
			STA		WS_PLIST+$08	;SAVE BLOCKS USED - LB
			LDA		FILE_BLKS+1
			STA		WS_PLIST+$09	;SAVE BLOCKS USED - HB
*
* TIME TO LEAVE FOR DIRECTORY WHICH IS NOT A VOLUME
*
			LDA		#$12
			STA		RETURNPL
			RTS
;
;
*
*
* THIS IS FOR A VOLUME
*
*
* SET ACCESS RIGHTS TO $01 + BACKUP BIT
*
*
GETINFO8	; 
			LDA		WS_PLIST+3
			AND		#%00100000	;BACKUP BIT
			ORA		#%00000001	;READ ENALBLE
			STA		WS_PLIST+3
*
* CREATE GET VOL PARMS
*
* NOTE : NDT_IDX2 IS SET BY FND_CURSRV
*
			LDA		#GETVOLPARMS
			STA		WS_COMBUF	   ;SAVE  AFP COMMAND
			STZ		WS_COMBUF+1	  ;SAVE ZERO
;
			LDX		NDT_IDX2
			LDA		NDT_IDH,X
			STA		WS_COMBUF+$02	;SAVE VOLUME ID - HB
			LDA		NDT_IDL,X
			STA		WS_COMBUF+$03	;SAVE VOLUME ID - LB
;
			STZ		WS_COMBUF+$04	;SAVE BITMAP - HB
			LDA		#%11000000	   ;TOTAL BYTES,FREE BYTES
			STA		WS_COMBUF+$05	;SAVE BITMAP - LB
*
* ISSUE AFP GET VOLUME PARAMETERS
*
			LDA		#$06
			STA		PKT_CNT
			STZ		PKT_CNT+1
			JSR		CMD_ROUTING
			BCC		GETINFO9	;GOT INFO OK
			RTS
*
* FIND TOTAL BLOCKS AVAILABLE ON SERVER VOLUME
*
GETINFO9	; 
			LDA		WS_COMBUF+$06
			STA		FILE_SIZE	;
			LDA		WS_COMBUF+$07
			STA		FILE_SIZE+1
			LDA		WS_COMBUF+$08
			STA		FILE_SIZE+2
			LDA		WS_COMBUF+$09
			STA		FILE_SIZE+3
;
			JSR		BYTE2BLKS
;
			LDA		FILE_BLKS
			STA		WS_PLIST+5	;LB OF TOTAL BLOCKS AVAIL
			LDA		FILE_BLKS+1
			STA		WS_PLIST+6	;HB OF TOTAL BLOCKS AVAIL
*
* FIND TOTAL BLOCKS USED
* (AVAIL - FREE = USED)
*
			SEC
			LDA		WS_COMBUF+$09
			SBC		WS_COMBUF+$05
			STA		FILE_SIZE+3
;
			LDA		WS_COMBUF+$08
			SBC		WS_COMBUF+$04
			STA		FILE_SIZE+2
;
			LDA		WS_COMBUF+$07
			SBC		WS_COMBUF+$03
			STA		FILE_SIZE+1
;
			LDA		WS_COMBUF+$06
			SBC		WS_COMBUF+$02
			STA		FILE_SIZE
;
			JSR		BYTE2BLKS
;
			LDA		FILE_BLKS
			STA		WS_PLIST+8	;SAVE BLOCKS USED - LB
			LDA		FILE_BLKS+1
			STA		WS_PLIST+9	;SAVE BLOCKS USED - HB
*
* TIME TO LEAVE FOR A VOLUME GET INFO CALL
*
			LDA		#$12
			STA		RETURNPL
			RTS
;
;
			eject

*
*
* COMMAND $C5 = ONLINE CALL
*
*	CHECK NDT & GO LOCAL (IF THERE IS LOCAL PRODOS)
*

		EXPORT	ONLINE
ONLINE		;		
*
* CHECK BUFFER ADDRESS
*
			LDX		WS_PLIST+$03	;HB OF IO BUFFER
			LDY		#$01		;CHECK 1 eject
			JSR		CHK_BITMAP
			BCC		LS_BUFFOK
;
LS_BUFFBAD	LDA		#$56
			STA		UERROR
			RTS
*
* FIND UNIT NUMBER REQUESTED (0=ALL)
*
LS_BUFFOK	LDA		WS_PLIST+1
			AND		#%11110000	;STRIP OFF UNUSED BITS
			BEQ		OL_ALL		;FIND ALL VOLUMES
*
* MOVE SERVER MATCH INTO WORK AREA
*
;
			CLC
			LDA		NDT_IDX1
			ADC		#NDT_NAME
			STA		<ZP2
			LDA		NDT_IDX1+1
			ADC		#>NDT_NAME
			STA		<ZP2+1
;
			LDY		#$00
OL_ONE1	; 
			LDA		(ZP2),Y
			cmp		#'a'
			bcc		@notlower
			cmp		#'z'+1
			bcs		@notlower
			and		#$DF
@notlower	STA		WS_COMBUF,Y
			INY
			CPY		#$10
			BNE		OL_ONE1
*
* DOES THIS VOLUME NEED TO BE TRUCATED ?
*
			LDA		WS_COMBUF
			AND		#%11110000
			BEQ		OL_ONE1A	;LENGTH IS OK
;
			LDA		#$0F
			STA		WS_COMBUF	;CUT NAME SHORT
			LDA		#$2A
			STA		WS_COMBUF+$0F	;'*' LAST CHARACTER
OL_ONE1A	; 
			LDX		NDT_IDX2
			LDA		NDT_UNIT,X	;SAVE UNIT NUMBER
			AND		#%11110000	;STRIP OFF LB
			ORA		WS_COMBUF
			STA		WS_COMBUF
*
* MOVE SERVER MATCH INTO THE USER BUFFER.
*
			LDA		#WS_COMBUF
			STA		<SRCBUF		;SETUP SOURCE BUFF
			LDA		#>WS_COMBUF
			STA		<SRCBUF+1
			LDA		#^WS_COMBUF
			STA		<SRCBUF+2
;
			LDA		WS_PLIST+2
			STA		<DESTBUF		;SETUP DESTINATION BUFF
			LDA		WS_PLIST+3
			STA		<DESTBUF+1
;
			LDA		PFI_BANK
			STA		<DESTBUF+2	;BANK !!!
;
			LDA		#$10
			STA		<COUNT		;SETUP COUNT
			LDA		#00
			STA		<COUNT+1
			JMP		BUFFMOVE
*
*
* FIND ALL VOLUMES !!!!!!!!
*
*
OL_ALL	; 
*
* IS THERE ANY ENTRIES IN THE NDT ?
*
			STZ		UWORK2		;OFFSET IN WS_COMBUF
			LDA		NDT_CNT
			BEQ		OL_ALL6		;NO THERE IS NONE
* UPDATE THE LOCAL PRODOS TABLE
			LDA		#00			;REMOVE ALL DEVICES
			CLC
			JSR		PDOS_DEVICE
*
* MOVE ENTRY FROM NDT TO WS_COMBUF
*
			LDA		#<NDT_NAME
			STA		<ZP2
			LDA		#>NDT_NAME
			STA		<ZP2+1
;
			LDX		#$00
OL_ALL1	; 
			STX		NDT_IDX2	;INDEX TO NDT TABLE
			LDA		NDT_SESS,X
			BEQ		OL_ALL5		;NOT, ACTIVE
			;
			lda		NDT_UNIT,x
			and		#$f0
			beq		OL_ALL5
*
* SAVE VOLUME NAME
*
			LDA		#$0F
			STA		UWORK1		;BYTE COUNTER
;
			LDX		UWORK2
			LDY		#$00
OL_ALL2	; 
			INX
			INY
			LDA		(ZP2),Y
			STA		WS_COMBUF,X
			DEC		UWORK1
			BNE		OL_ALL2		;MOVE MORE OF VOLUME NAME
			PHX					;SAVE INDEX TO WS_COMBUF
*
* SAVE VOLUME UNIT AND LENGTH
*
			LDA		(ZP2)
			CMP		#$10
			BCC		OL_ALL1A	;LENGTH IS OK
;
			CLC
			LDA		UWORK2
			ADC		#$0F
			TAY
			LDA		#$2A	 	;'*'
			STA		WS_COMBUF,Y	;TRUNCATED VOLUME NAME
			LDA		#$0F
;
OL_ALL1A	; 
			LDX		UWORK2
			STA		WS_COMBUF,X	;SAVE LENGTH OF VOLUME
;
			LDY		NDT_IDX2
			LDA		NDT_UNIT,Y
			AND		#%11110000	;STRIP OUT LOW NIBBLE !!!
			ORA		WS_COMBUF,X
			STA		WS_COMBUF,X	;SAVE UNIT AND LENGTH OF VOLUME
;
			PLX					;RESTORE INDEX
			INX					;MOVE POINTER TO NEXT BYTE
			STX		UWORK2		;SAVE INDEX TO WS_COMBUF
*
* DID WE MOVE LAST RECORD YET ?
*
OL_ALL5	; 
			CLC
			LDA		<ZP2
			ADC		#NDT_NAMELEN
			STA		<ZP2
			LDA		<ZP2+1
			ADC		#$00
			STA		<ZP2+1
;
			LDX		NDT_IDX2
			INX
			CPX		#14
			BNE		OL_ALL1
*
* DO A LOCAL ONLINE
*
OL_ALL6	; 
			LDA		UWORK2
			PHA					;SAVE INDEX TO WS_COMBUF
;
;
			JSR		LOCAL		;Make Local Online Call
LS_OL_ALL6A	PLX					;RESTORE INDEX TO WS_COMBUF
;
			LDA		NDT_CNT		;IS THERE ANY ENTRIES IN THE NDT?
			BEQ		OL_ALL7		;TIME TO LEAVE
*
* PLACE LOCAL RESULTS IN WS_COMBUF
*
			LDA		WS_PLIST+2
			STA		<SRCBUF
			LDA		WS_PLIST+3
			STA		<SRCBUF+1
;
			LDA		PFI_BANK
			STA		<SRCBUF+2	;BANK !!!
;
			CLC
			TXA					;RESTORE OFFSET IN WS_COMBUF
			ADC		#WS_COMBUF
			STA		<DESTBUF
			LDA		#$00
			ADC		#>WS_COMBUF
			STA		<DESTBUF+1
			lda		#^ws_combuf
			sta		<destbuf+2
;
			STZ		<COUNT
			LDA		#$01		;MOVE ONE PAGE ONTO CARD
			STA		<COUNT+1
;
			JSR		BUFFMOVE	;MOVE THE RESULT NOW
*
* NOW RETURN COMBINED RESULTS TO USER BUFFER
*
			LDA		#WS_COMBUF
			STA		<SRCBUF
			LDA		#>WS_COMBUF
			STA		<SRCBUF+1
			LDA		#^WS_COMBUF
			STA		<SRCBUF+2
;
			LDA		WS_PLIST+2
			STA		<DESTBUF
			LDA		WS_PLIST+3
			STA		<DESTBUF+1
;
			LDA		PFI_BANK
			STA		<DESTBUF+2	;BANK !!!
;
			STZ		<COUNT
			LDA		#$01	;RETURN ONE PAGE TO MOTHERBOARD
			STA		<COUNT+1
;
			JSR		BUFFMOVE
*
* TIME TO LEAVE ONLINE CALL
*
OL_ALL7	; 
			LDA		#00		;PUT DEVICES BACK
			SEC
			JSR		PDOS_DEVICE
			RTS
;
;
			eject

*
*
* COMMAND $C6 = SET PREFIX
*
* SET OPEN DIR OVER NETWORK
*

		EXPORT	SETPREFIX
SETPREFIX		;		
*
* IS THIS A VOLUME ?
*
			JSR		CHK_VOLUME
			BCC		SETPREFIX0A	;NOT A VOLUME
;
			STZ		WS_COMBUF+6
			STZ		WS_COMBUF+7
			STZ		WS_COMBUF+8
			LDA		#$02
			STA		WS_COMBUF+9
			BRA		SETPREFIX0	;GO SET PREFIX ID
*
* IS THE PREFIX LENGTH OVER MAX
*
SETPREFIX0A	; 
			JSR		CHKSLASH	;IF SLASH CONTINUE
			BCS		SETPREFIX00
;
;
			BIT		PFI_NAMING
			BMI		SETPREFIX0B
;
			CLC
			LDA		PRO_PREFIX
			ADC		WS_PATH
			CMP		#MAX_PROPATH
			BCC		SETPREFIX00	;LENGTH OK
			BCS		SETPREFIX0C	;ERROR IN LENGTH
;
SETPREFIX0B	; 
;
			CLC
			LDA		AFP_PREFIX
			ADC		WS_PATH
			CMP		#MAX_AFPPATH-1
			BCC		SETPREFIX00	;LENGTH OK
;
SETPREFIX0C	; 
			LDA		#$40		;INVALID PATHNAME
			STA		UERROR
			RTS
*
* CREATE GET FILE/DIR PARMS CALL
*
SETPREFIX00	; 
			LDA		#GETFDINFO
			STA		WS_COMBUF
			STZ		WS_COMBUF+1
;
			JSR		STUFF_IDS
;
			STZ		WS_COMBUF+$08	;HB OF FILE BITMAP
			STZ		WS_COMBUF+$09	;LB OF FILE BITMAP
;
			LDA		#%00010001	;DIR ID & ACCESS RIGHTS
			STA		WS_COMBUF+$0A	;HB OF DIRECTORY BITMAP
			STZ		WS_COMBUF+$0B	;LB OF DIRECTORY BITMAP
;
			CLC
			LDX		#$0C		;OFFSET TO NAME IS PACKET
			JSR		PATH2BUF
*
* ISSUE GET FILE/DIR PARMS
*
			JSR		CMD_ROUTING
			BCC		SETPREFIX00A	;CALL COMPLETED OK
			RTS
*
* IS THIS A FILE OR A DIRECTORY ?
*
SETPREFIX00A	; 
			LDA		WS_COMBUF+$04
			BNE		LS_SETCONT
;
			LDA		#$4B		;STORAGE TYPE ERROR
			STA		UERROR
			RTS
*
* DOES THE USER HAVE ACCESS TO THIS DIRECTORY ?
*
LS_SETCONT	LDA		WS_COMBUF+$0A
			AND		#%01111111	;ANY RIGHTS ?
			BNE		SETPREFIX0	;YES ,ACCESS GRANTED
;
			LDA		#$4E		;ACCESS ERROR
			STA		UERROR
			RTS
*
* SET PREFIX LOCATION & DIR ID
*
SETPREFIX0	; 
			LDA		CURSESS
;
			BIT		PFI_NAMING
			BMI		SETPREFIX0_A
			STA		PRO_PFXLOC	;UPDATE PREFIX FLAG
;
			LDX		#$03
SETPREFIX1_1	; 
			LDA		WS_COMBUF+6,X
			STA		PRO_DIR_ID,X	;UPDATE NETWORK DIRECTORY ID
			DEX
			BPL		SETPREFIX1_1
			BRA		SETPREFIX0_B
;
;
SETPREFIX0_A	; 
			STA		AFP_PFXLOC	;UPDATE PREFIX FLAG
;
			LDX		#$03
SETPREFIX1_2	; 
			LDA		WS_COMBUF+6,X
			STA		AFP_DIR_ID,X	;UPDATE NETWORK DIRECTORY ID
			DEX
			BPL		SETPREFIX1_2
*
* SET MLI PREFIX FLAG TO ACTIVE
*
SETPREFIX0_B	; 
			LDA		#$80		;SET MLI PFIX ACTIVE FLAG
			STA		Cn_PFIXPTR
*
* SET PREFIX IN PREFIX BUFFER
*
			JSR		NEW_PREFIX
*
* UPDATE '..._PFX_DEVNUM'_	THIS FIELD IS USED TO UPDATE DEVNUM
* FIELD IN PRODOS WHEN A NETWORK CALL IS MADE THAT USES A
* PATHNAME BUT DOESN'T SPECIFY THE VOLUME NAME_ THE FIELD IS
* ONLY UPDATED UPON A SUCCESSFUL SET PREFIX CALL WHERE THE
* VOLUME WAS SPECIFIED
*
			JSR		CHKSLASH	;IF NO SLASH THEN EXIT
			BCS		SETPREFIX3
			RTS					;EXIT NO SLASH
*
* SLASH IS PRESENT SO FND_CURSRV WAS CALLED SO Cn_DEVNUM FIELD
* IS VALID
*
SETPREFIX3	; 
			BIT		PFI_NAMING
			BMI		SETPREFIX4	;AFP PREFIX
;
			LDA		Cn_DEVNUM
			STA		PRO_PFX_DEV
;
			LDX		NDT_IDX2
			LDA		NDT_IDH,X
			STA		PRO_VOL_ID
			LDA		NDT_IDL,X
			STA		PRO_VOL_ID+1
			RTS
*
* UPDATE AFP PREFIX - LAST DEVICE
*
SETPREFIX4	; 
			LDA		Cn_DEVNUM
			STA		AFP_PFX_DEV
;
			LDX		NDT_IDX2
			LDA		NDT_IDH,X
			STA		AFP_VOL_ID
			LDA		NDT_IDL,X
			STA		AFP_VOL_ID+1
			RTS
;
;
			eject

*
*
* COMMAND $C7 = GET PREFIX
*
*

		EXPORT	GETPREFIX
GETPREFIX		;		
*
* CHANGE SERVER DELIMITERS TO PRODOS DELIMITERS
*
GETPREFIX1	; 
			BIT		PFI_NAMING
			BMI		GETPREFIX1A
;
			LDY		PRO_PREFIX
			BRA		GETPREFIX2
;
GETPREFIX1A	; 
			LDY		AFP_PREFIX
;
GETPREFIX2	; 
			BIT		PFI_NAMING
			BMI		GETPREFIX2A
;
			LDA		PRO_PREFIX,Y
			BRA		GETPREFIX2B
;
GETPREFIX2A	; 
			LDA		AFP_PREFIX,Y
;
GETPREFIX2B	; 
			CPY		#$00
			BEQ		GETPREFIX3	;LENGTH BYTE !!
			CMP		#SRVR_SLASH	;IS IT A SEGMENT DIVIDER ?
			BNE		GETPREFIX3	;NO, SAVE IT LIKE IT IS
			LDA		#SLASH		;REPLACE $1C WITH A SLASH ($2F)
GETPREFIX3	; 
			STA		WS_COMBUF,Y
			DEY
			BPL		GETPREFIX2	;MORE TO MOVE
*
* SETUP B1_BUFFMOVE TO MOTHERBOARD
*
			LDA		WS_PLIST+1	;DESTINATION
			STA		<DESTBUF
			LDA		WS_PLIST+2
			STA		<DESTBUF+1
;
			LDA		PFI_BANK
			STA		<DESTBUF+2	;BANK !!!
;
			LDA		#WS_COMBUF	;SOURCE
			STA		<SRCBUF
			LDA		#>WS_COMBUF
			STA		<SRCBUF+1
			LDA		#^WS_COMBUF
			STA		<SRCBUF+2
;
			LDY		WS_COMBUF	;COUNT
			INY					;INCLUDE COUNT BYTE
			STY		<COUNT
			LDA		#%00		;MOVE FROM CARD TO MOTHERBOARD
			STA		<COUNT+1
			JMP		BUFFMOVE
;
;
		ENDP

		end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/ATRam/PFI/PFI_cmdsubs2.aii b/IIGS.601.SRC/GS.OS/Drivers/ATRam/PFI/PFI_cmdsubs2.aii
new file mode 100644
index 0000000..5f82d6d
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/ATRam/PFI/PFI_cmdsubs2.aii
@@ -0,0 +1 @@
+
;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

		IMPORT	AFP
		IMPORT	AFP_PFXLOC
		IMPORT	AFP_PFX_DEV
		IMPORT	BLKCNTL
		IMPORT	BUFFMOVE
		IMPORT	CHKSLASH
		IMPORT	CHK_BITMAP
		IMPORT	CHK_PRODOS
		IMPORT	CMD_ROUTING
		IMPORT	CURSESS
		IMPORT	Cn_DEVNUM
		IMPORT	Cn_LEVEL
		IMPORT	Cn_PFIERR
		IMPORT	Cn_WSICMD
		IMPORT	DIR_GETEOF
		IMPORT	DO_JSRLOCAL
		IMPORT	FILE_GETEOF
		IMPORT	FILE_SIZE
		IMPORT	FND_CURSRV
		IMPORT	FROM_SEC
		IMPORT	GETCOUNT
		IMPORT	GETMBPL
		IMPORT	LOCAL
		IMPORT	LOCALREF
		IMPORT	MARK_WRAP
		IMPORT	MLI_GBL_UPDT
		IMPORT	NEW_SRCPATH
		IMPORT	NLMV_CNT
		IMPORT	ORG_REQ
		IMPORT	PATH2BUF
		IMPORT	PATH2CARD
		IMPORT	PDOS_BITMAP
		IMPORT	PFIBANK
		IMPORT	PFI_BANK
		IMPORT	PFI_NAMING
		IMPORT	PKT_CNT
		IMPORT	PRO_PFXLOC
		IMPORT	PRO_PFX_DEV
		IMPORT	PRO_TIME
		IMPORT	RD_CHKCNTL
		IMPORT	RETURNPL
		IMPORT	RWSETUP
		IMPORT	SESSION_TBL
		IMPORT	SETTRCNT
		IMPORT	SIZE_ALLOWED
		IMPORT	SIZE_AVAIL
		IMPORT	STRIP_PREFIX
		IMPORT	STUFF_IDS
		IMPORT	UBUFPTRH
		IMPORT	UBUFPTRL
		IMPORT	UCURBLKH
		IMPORT	UCURBLKL
		IMPORT	UCURSHR
		IMPORT	UDEVNUM
		IMPORT	UDIRID1
		IMPORT	UDIRID2
		IMPORT	UDIRID3
		IMPORT	UDIRID4
		IMPORT	UENMASK
		IMPORT	UEOB1
		IMPORT	UEOB2
		IMPORT	UEOB3
		IMPORT	UERROR
		IMPORT	UFILEIDX
		IMPORT	UFILELOC
		IMPORT	ULEVEL
		IMPORT	UMARK1
		IMPORT	UMARK2
		IMPORT	UMARK3
		IMPORT	UMODE
		IMPORT	UNLCHAR
		IMPORT	USRVNUM1
		IMPORT	USRVNUM2
		IMPORT	USTATUS
		IMPORT	UTRANCNT
		IMPORT	UTYPE
		IMPORT	UVOLID1
		IMPORT	UVOLID2
		IMPORT	UWORK1
		IMPORT	UWORK2
		IMPORT	WRITE_BLK
		IMPORT	WRT_CHKCNTL
		IMPORT	WS_COMBUF
		IMPORT	WS_PATH
		IMPORT	XBUFPTR
		IMPORT	ws_plist,pfi_retry
*
* pfi_cmdsubs2
*
* Greg Seitz (11-Aug-87)
*
* 16-May-91 MSD	    If you do a	SpecialOpenFork	(call $43 to the P8 MLI),
*		    and	the volume is unkown, return a volume not found
*		    error ($45)	instead	of passing it to the local ProDOS
*		    (which will	return invalid command,	$01).
*
* 23-Oct-91 MSD		Unfixed the 16-May-91 fix.  It now returns error $01
*			again since MECC depends on getting that error.  It still does
*			not call local ProDOS (PFI returns the error directly).
*
;	EXPORT	zpcmdscs2   
;zpcmdscs2  PROC
		INCLUDE	'zp.equates'
;	ENDP
		include	'global.equates'
		include	'pfi_equates'
;	include	'atp.equates'

		EXPORT	pficmdsubs2
pficmdsubs2	PROC
		longa	off
		longi	off



*
* PARAMIS NETWORK SOFTWARE
*
*
*   CONFIDENTIAL
*
*
* MODULE : PFI2	- PRODOS FILING	INTERFACE   (PART 2)
*   FILING CALLS (12 MLI CALLS)
*
*   WRITTEN BY Thomas Eager
*
*   MODIFIED: 06-09-87	10:00 TE
*
*   COPYRIGHT 1986,87 ParaMIS CORPORTATION
*
* ALL RIGHTS RESERVED
*

*
*
* COMMAND $C8 =	OPEN
* COMMAND $43 =	OPEN FORK (SPECIAL NETWORK CALL)
*
*
*   ISSUE GET FILE/DIRECTORY PARMS
*
*   IF FILE THEN ISSUE OPEN FORK (DATA)
*
*

		EXPORT	OPEN
OPEN					;       
*
* IS THERE ROOM	FOR ONE	MORE OPEN ?
*
		LDX	#0
OPEN1					; 
		LDA	UMODE,X		;FIND SPACE IN TABLE
		BEQ	OPEN2		;SPACE FOUND
		INX			;NEXT TBL POSITION
		CPX	#8		;END OF	TBL ?
		BNE	OPEN1
;
		LDA	#$42		;FCB FULL
		STA	UERROR
		RTS
*
* MOVE PATHNAME	ONTO THE CARD
*
OPEN2					; 
		STX	UFILEIDX	;SAVE TABLE INDEX
		JSR	PATH2CARD
		BCS	OPEN2_ERR	;PATH HAS ERROR
		lda	ws_plist
		beq	open2_err	;zero length path
;
*
* IS PRODOS NAMING ACTIVE ?
*
		BIT	PFI_NAMING
		BMI	OPEN2A
;
		JSR	CHK_PRODOS
		BCC	OPEN2A
;
OPEN2_ERR				; 
		LDA	#$40
		STA	UERROR		;INVALID PATH -	TOO LONG
		RTS
*
* IS VOLUME SPECIFIED?
*
OPEN2A					; 
		JSR	CHKSLASH
		BCC	OPEN3		;NO,FIRST CHARACTER WAS	NOT A SLASH
*
* VOLUME IS SPECIFIED. IS IT IN	OUR NETWORK TABLE?
*
		JSR	FND_CURSRV
		BCS	OPEN4		;NOT IN	OUR TABLE - GO LOCAL
		JSR	STRIP_PREFIX
		BRA	OPEN5		;FILE/DIR IS ON	A SERVER
*
* VOLUME IS NOT	SPECIFIED. USE PFXLOC TO DETERMINE WHERE TO
* OPEN IT.
*
OPEN3					; 
		BIT	PFI_NAMING
		BMI	OPEN3_AFP
*
* PRODOS PREFIX	IS ACTIVE
*
		LDA	PRO_PFXLOC
		STA	CURSESS		;SET UP	CURSESS
		CMP	#$FF
		BEQ	OPEN4		;EXECUTE CALL LOCALLY !!!
;
		LDA	PRO_PFX_DEV
		AND	#%11110000	;strip low nibble
		STA	Cn_DEVNUM	;TELL PRODOS ABOUT DEVICE
		BRA	OPEN5
;
;
OPEN3_AFP				; 
		LDA	AFP_PFXLOC
		STA	CURSESS		;SET UP	CURSESS
		CMP	#$FF
		BEQ	OPEN4		;EXECUTE CALL LOCALLY !!!
;
		LDA	AFP_PFX_DEV
		AND	#%11110000	;strip low nibble
		STA	Cn_DEVNUM	;TELL PRODOS ABOUT DEVICE
		BRA	OPEN5
;
;

*
* IT WILL BE OPENED LOCALLY
*
;
; 16-May-91	MSD	If it was a special open fork, return a volume
;			not found error instead of doing a local call.
;
OPEN4
		lda	cn_wsicmd
		cmp	#$43		; was it special open fork?
		bne	Open4_Local	; no, so pass to local ProDOS

						; 23-Oct-91 MSD changed $45 to $01 below
		lda	#$01		; couldn't find a network volume for special open
		bne	open_err
;
Open4_Local	JSR	LOCAL
		BEQ	OPEN4A
		RTS			;ERROR ,EXIT NOW
*
* MOVE UPDATED MOTHERBOARD PARAMETER LIST ONTO CARD
*
OPEN4A					; 
		JSR	GETMBPL
*
* RECORD LOCAL REFERENCE FOR US, AND SWITCH IN OUR
* REFERENCE NUMBER FOR THEM.
*
		LDX	UFILEIDX
		LDA	WS_PLIST+5
		STA	USRVNUM1,X
		STZ	USRVNUM2,X	;NOT USED LOCALLY
;
		LDA	#$FF
		STA	UFILELOC,X	;SPECIFY WHERE FILE LIVES
		LDA	Cn_LEVEL
		STA	ULEVEL,X
		LDA	#%00100011	;READ/WRITE MODE
		STA	UMODE,X
		INX
		TXA
		STA	WS_PLIST+5
*
* UPDATE SRCPATH FIELD
*
		JSR	NEW_SRCPATH
*
* SET AMOUNT TO	BE RETURNED
*
		LDA	#$06
		STA	RETURNPL
		RTS
;
;

*
* OPEN IS FOR A	SERVER
*
OPEN5					; 
*
* CHECK	IO BUFFER ADDRESS
*
		LDA	WS_PLIST+$03
		BNE	c8_BUFFBAD
;
		LDX	WS_PLIST+$04	;HB OF IO BUFFER
		cpx	#$C0
		bcs	c8_BUFFBAD
					;
		LDY	#$04		;4 pageS
		JSR	CHK_BITMAP
		BCC	c8_BUFFOK
;
c8_BUFFBAD	LDA	#$56
open_err	STA	UERROR
		RTS
*
* CREATE GET FILE/DIRECTORY PARMS
*
c8_BUFFOK	LDA	#GETFDINFO
		STA	WS_COMBUF
		STZ	WS_COMBUF+1
;
		JSR	STUFF_IDS
;
		LDA	WS_COMBUF+2
		STA	WS_PATH-2	;SAVE VOL ID - HB
		LDA	WS_COMBUF+3
		STA	WS_PATH-1	;SAVE VOL ID - LB
;
;
		STZ	WS_COMBUF+$08	;HB OF FILE BITMAP
		LDA	#$01		;GET ATTRI (NEED TO GET	SOMETHING)
		STA	WS_COMBUF+$09	;LB OF FILE BITMAP
		LDA	#%00010001	;GET DIRECTORY ID & ACCESS
		STA	WS_COMBUF+$0A	;HB OF DIR  BITMAP
		STZ	WS_COMBUF+$0B	;LB OF DIR  BITMAP
;
		CLC
		LDX	#$0C
		JSR	PATH2BUF
;
*
* ISSUE	GET FILE/DIR PARAMETER
*
		JSR	CMD_ROUTING
		BCC	OPEN6		;CALL HAS COMPLETED OK
;
		LDA	Cn_PFIERR
;
;----> 11/05/87	TE
;
		CMP	#$78		;ACCESS	ERROR (DROP BOX	??)
		BNE	op_CHKERR
;
		STZ	WS_COMBUF+$04	;FILE IS THE TYPE
		STZ	WS_COMBUF+$05	;SOMETHING
		STZ	WS_COMBUF+$06	;SOMETHING
		STZ	UERROR
		BRA	OPEN6		;CONTINUE ON AS	IF IT WERE A FILE
;
;---->
;
op_chkerr				; 
		CMP	#$5B
		BEQ	OP_ERROR
;
		LDA	UERROR
		CMP	#$44
		BNE	OP_ERROR
		LDA	#$46		;FILE NOT FOUND
		STA	UERROR
OP_ERROR	SEC
		RTS			;ERROR IN GET INFO CALL
*
* SAVE TYPE IN USER'S TABLE
*
* BIT 7	= FILE/DIR FLAG
* BIT 6	= RESOURCE FORK
* BIT 5	= BOTH FORKS
* BIT 4	= BUFFERING  VS	NO BUFFERING
* BIT 3	= SPECIAL OPEN FORK VS NORMAL PRODOS OPEN
*
OPEN6					; 
		LDX	UFILEIDX
		LDA	WS_PLIST
		AND	#%11100000	;DATA &	RESOURCE OR BOTH
		LSR	a		;MOVE TO BIT 4 , 5 & 6
		STA	UTYPE,X
;
		LDA	WS_COMBUF+4	;FILE OR DIRECTORY
		AND	#%10000000	;FIND BIT 7	= FILE/DIR
		ORA	UTYPE,X		;FIND BIT 5 & 6	= FORK
;
		LDY	Cn_WSICMD
		cpy	#$43
		beq	op_over
		ora	#%00001000	;bit 3 = prodos	Open $C8
op_over		STA	UTYPE,X
*
* FIND OUT WHAT	TYPE OF	ITEM IT	IS - FILE OR DIRECTORY ?
*
		LDA	UTYPE,X
		BPL	OPEN7		;IT WAS	A FILE !!!
;
		AND	#%00010000	;BUFFERING
		BEQ	op_OK
;
		LDA	#$4B		;STORAGE TYPE ERROR
		STA	UERROR
		RTS
*
* IS THIS DIRECTORY IN SEARCH MODE ?
*
op_OK		LDA	WS_COMBUF+$0A	;ACCESS
		AND	#%00000011	;BIT 0,1= SEARCH & READ	RIGHTS
		BNE	OPEN6A		;YES , IT IS
;
		LDA	#$4E		;ACCESS	ERROR
		STA	UERROR
		RTS			;ALL DONE
*
* WAS THIS A SPECIAL OPEN ?
*
OPEN6A					; 
		LDA	Cn_WSICMD
		CMP	#$43
		BNE	OPEN6B		;NORMAL	OPEN
;
		LDA	#$4B		;UNSUPPORTED STORAGE TYPE
		STA	UERROR
		RTS			;ALL DONE
*
* FIND DIR ID &	VOL ID
*
OPEN6B					; 
		LDA	WS_PATH-2
		STA	UVOLID1,X	;SAVE HB OF VOL	ID
		LDA	WS_PATH-1
		STA	UVOLID2,X	;SAVE LB OF VOL	ID
;
		LDA	WS_COMBUF+6
		STA	UDIRID1,X	;SAVE HI B OF DIR ID
		LDA	WS_COMBUF+7
		STA	UDIRID2,X	;SAVE MH B OF DIR ID
		LDA	WS_COMBUF+8
		STA	UDIRID3,X	;SAVE ML B OF DIR ID
		LDA	WS_COMBUF+9
		STA	UDIRID4,X	;SAVE LO B OF DIR ID
;
		LDA	#%00000001	;READ ONLY MODE
		STA	UMODE,X
		JMP	OPEN11		;SET COMMON AREAS IN USER TABLE
*
* IF BOTH ARE REQUESTED	THEN ERROR ??
*
OPEN7					; 
		BIT	WS_PLIST
		BVC	OPEN7A
;
		LDA	#$4B		;UNSUPPORTED STORAGE TYPE
		STA	UERROR
		RTS			;ALL DONE
*
* SPECIAL OPEN - SAVE SHARE MODE
*
OPEN7A					; 
		LDA	Cn_WSICMD
		CMP	#$43
		BNE	OPEN8		;NORMAL	OPEN
;
		LDA	WS_PLIST+6
		STA	UCURSHR		;SHARE MODE
		BRA	OPEN8A
*
* NORMAL PRODOS	OPEN
*
OPEN8					; 
		LDA	#%00100011	;TRY READ/WRITE
		STA	UCURSHR		;SHARE MODE
*
* CREATE OPEN FORK PACKET
*
OPEN8A					; 
		LDA	#OPENFORK
		STA	WS_COMBUF	;COMMAND BYTE
;
		BIT	WS_PLIST
		BPL	c8_OPEN8AA	;DATA FORK
		LDA	#$80		;SET RESOURCE FORK
		BRA	c8_OPEN8AB
c8_OPEN8AA	LDA	#$00		;SET DATA FORK
c8_OPEN8AB	STA	WS_COMBUF+1	;FORK FLAG
;
		JSR	STUFF_IDS
;
		STZ	WS_COMBUF+$08
		LDA	#$01		;SET TO	SOMETHING !!
		STA	WS_COMBUF+$09
		STZ	WS_COMBUF+$0A
		LDA	UCURSHR		;OPEN MODE
		STA	WS_COMBUF+$0B
;
		CLC
		LDX	#$0C
		JSR	PATH2BUF
*
* ISSUE	CALL
*
		JSR	CMD_ROUTING	;EXECUTE OPEN
		BCC	OPEN10		;FILE IS NOW OPEN
;
;----->	11/05/87 TE DROP BOX DIR ??
;
		LDA	Cn_PFIERR
		cmp	#$5F		;OBJECT	TYPE ERROR ???
		bne	op1_chkerr
;
		lda	#$4e		;access	error for directory
		sta	UERROR
		sec
		rts
;
;---->
;
*
* IS THIS THE SPECIAL OPEN ?
*
op1_chkerr				; 
		LDA	Cn_WSICMD
		CMP	#$43
		BNE	OPEN8C
;
		SEC
		LDA	UERROR
		RTS			;UNABLE	TO OPEN	FILE
*
* IS THIS THE LAST MODE	?
*
OPEN8C					; 
		LDA	UCURSHR
		CMP	#%00110010	;WRITE + DENY WRITE + DENY READ
		BNE	op8c_OVER
		SEC
		LDA	UERROR
		RTS			;UNABLE	TO OPEN	FILE
*
* IS THIS READ ONLY ?
*
op8c_OVER	LDA	#%00000001	;Read ONLY
		CMP	UCURSHR		;SAME MODE
		BNE	OPEN9
		LDA	#%00110010	;WRITE + DENY WRITE + DENY READ
*
* TRY LAST MODE
*
OPEN9					; 
		STA	UCURSHR
		BRA	OPEN8A		;TRY OPENING IT	AGAIN
*
* SAVE REFERENCE # IN TABLE
*
OPEN10					; 
		LDX	UFILEIDX
		LDA	WS_COMBUF+2	;GET REF #
		STA	USRVNUM1,X	;PUT REF # IN TBL
		LDA	WS_COMBUF+3
		STA	USRVNUM2,X	;PUT REF # IN TBL
;
;
;
		LDA	UCURSHR		;GET OPEN MODE
		BNE	op10_OVER
		LDA	#$80		;for special open with no mode
op10_OVER	STA	UMODE,X
;
;
		STZ	UDIRID1,X	;used by Drop Boxes w/ $C8
		STZ	UDIRID2,X	;used by Drop Boxes w/ $C8
		STZ	UDIRID3,X	;used by Drop Boxes w/ $C8
*
* UPDATE THE USER'S TABLE (COMMON DATA)
*
OPEN11					; 
		LDA	CURSESS
		STA	UFILELOC,X	;SAVE SESSION
;
		LDA	WS_PLIST+3
		STA	UBUFPTRL,X	;SAVE LB BUF PTR
		LDA	WS_PLIST+4
		STA	UBUFPTRH,X	;SAVE HB BUF PTR
;
		LDA	Cn_DEVNUM
		STA	UDEVNUM,X	;SAVE DEVICE NUMBER
		LDA	Cn_LEVEL
		STA	ULEVEL,X	;SAVE PRODOS LEVEL
;
		STZ	UMARK1,X	;CLEAR MARK
		STZ	UMARK2,X
		STZ	UMARK3,X
;
		STZ	UEOB1,X		;CLEAR EOB
		STZ	UEOB2,X
		STZ	UEOB3,X
;
		STZ	USTATUS,X	;CLEAR STATUS
		STZ	UENMASK,X	;CLEAR ENABLE MASK
;
		LDA	#$FF
		STA	UCURBLKL,X	;SET CURR BLOCK
		STA	UCURBLKH,X
		INX
		TXA
		STA	WS_PLIST+5	;STORE REFIDX IN LIST
*
* UPDATE PRODOS	SYSTEM BITMAP
*
		LDX	WS_PLIST+$04
		SEC
		JSR	PDOS_BITMAP
*
* UPDATE SOURCE	PATH
*
		JSR	NEW_SRCPATH
*
* SET AMOUNT TO	BE RETURNED
*
		LDA	#$06
		STA	RETURNPL
*
* GET FIRST BLOCK INTO IO BUFFER
*
		LDX	UFILEIDX
		LDA	UMODE,X
		AND	#%00000001	;READ MODE ?
		BEQ	OPEN12		;DON'T READ FIRST BLOCK
;
;----->
		LDA	UTYPE,X
		AND	#%00010000	;BIT 4 - BUFFERING ??
		BNE	OPEN12
;
;---->
;
		JSR	BLKCNTL		;READ FIRST BLOCK INTO IO BUFFER
		stz	uerror
*
* FILL SECOND HALF OF IO BUFFER	FILL $FF
*
OPEN12					; 
		LDA	#$FF
		LDY	#$00
c8_NEXT		STA	WS_COMBUF,Y
		STA	WS_COMBUF+$100,Y
		INY
		BNE	c8_NEXT
;
		LDA	#WS_COMBUF
		STA	<SRCBUF
		LDA	#>WS_COMBUF
		STA	<SRCBUF+1
		LDA	#^WS_COMBUF
		STA	<SRCBUF+2
;
		STZ	<DESTBUF	;EVEN PAGE BOUNDARY
		LDX	UFILEIDX
		CLC
		LDA	UBUFPTRH,X
		ADC	#$02
		STA	<DESTBUF+1	;OFFSET	BY TWO PAGES
		LDA	PFI_BANK
		STA	<DESTBUF+2	;BANK
;
		STZ	<COUNT
		LDA	#$02		;move two pages
		STA	<COUNT+1
;
		JSR	BUFFMOVE
		RTS
;
;
		eject

*
*
* COMMAND $C9 =	NEWLINE
*
* HANDLED LOCALLY IN TABLES !!!
*
*

		EXPORT	NEWLINE
NEWLINE					;       
		LDX	UFILEIDX
		LDA	WS_PLIST+2	;GET ENABLE MASK
		STA	UENMASK,X	;SAVE IN TABLE
		LDA	WS_PLIST+3	;GET NEWLINE CHAR
		STA	UNLCHAR,X	;SAVE IN TABLE
		RTS
;
;
		eject

*
*
* COMMAND $CA =	READ
*
*

		EXPORT	READ
READ					;       
*
* CAN I	READ THIS FILE ?
*
		LDX	UFILEIDX
		LDA	UMODE,X
		AND	#%00000001	;READ MODE
		BNE	READ0		;YES I CAN READ	THIS
;
		LDA	#$4E		;ACCESS	ERROR
		JMP	READ_X		;EXIT NOW
*
* IS THERE A REQUEST COUNT ?
*
READ0					; 
		LDA	WS_PLIST+$04	;LB OF COUNT
		ORA	WS_PLIST+$05	;HB OF COUNT
		BNE	ca_OVER
;
		JMP	READ_X
*
* IF THERE IS A	LOCAL PRODOS,
* IS THE START OF THE BUFFER TO	HIGH ?
*
ca_OVER		LDA	MLI_GBL_UPDT
		BEQ	READ0AA		;THERE IS NO LOCAL PRODOS
;
		LDA	WS_PLIST+$03	;HB OF IO BUFFER
		CMP	#$C0
		BCC	READ0AA		;WITHIN	THE ACCEPTABLE RANGE
;
		LDA	#$56		;BAD BUFFER ADDRESS
		JMP	READ_X
*
* SAVE ORIGINAL	REQUEST	COUNT
*
READ0AA					; 
		LDA	WS_PLIST+$05
		STA	ORG_REQ+1	;SAVE HB ON STACK
		LDA	WS_PLIST+$04
		STA	ORG_REQ		;SAVE LB ON STACK
*
* DOES THE MARK	WRAP AROUND ?
*
* This routine will also adjust	request	count
*
		JSR	MARK_WRAP
		BCC	ca_OK1
;
		LDA	#$4C		;END OF	FILE ERROR
		JMP	READ_X1
*
* FIND NUMBER OF PAGES TO CHECK
*
* PLACE	RESULT IN [Y]
*
ca_OK1		LDY	#$C0
		CPY	WS_PLIST+$05
		BCC	ca_GO
					;
		CLC
		LDA	WS_PLIST+$04	;LB OF LENGTH TO READ
		ADC	WS_PLIST+$02	;LB OF BUFFER ADDRESS
		TAX			;SAVE LB OF SIZE IN [X]
					;
		LDA	WS_PLIST+$05	;HB OF LENGTH TO READ
		ADC	#$00
		TAY			;SAVE HB OF SIZE IN [Y]
;
		CPX	#$00		;PARTIAL PAGE ???
		BEQ	ca_GO		;NO , SKIP
		INY			;YES, LOOK AT ONE MORE PAGE
*
* CHECK	PRODOS SYSTEM BITMAP
*
;
ca_GO		LDX	WS_PLIST+$03
		JSR	CHK_BITMAP
		BCS	ca_BADCONT
		JMP	READCONT
*
* BUFFER RUNS INTO PROTECTED MEMORY
*
ca_BADCONT	STY	UWORK1		;BYTE OFFSET TO	BITMAP
		ASL	UWORK1
		ASL	UWORK1
		ASL	UWORK1		;SHIFT OVER THREE BITS
		TXA
		ORA	UWORK1
		STA	UWORK1		;HB OF PROTECTED PAGE
*
* IS FIRST PAGE	PROTECTED ?
*
		CMP	WS_PLIST+$03	;NO FREE SPACE ??
		BNE	ca_SIZE
		JMP	ca_BUFFERR
;
ca_size					; 
		SEC
		LDA	#$00
		SBC	WS_PLIST+$02
		STA	SIZE_ALLOWED	;LB AMOUNT ALLOWABLE TO	MOVE
		LDA	UWORK1		;HB OF PROTECTED PAGE
		SBC	WS_PLIST+$03
		STA	SIZE_ALLOWED+1	;HB AMOUNT ALLOWABLE TO	MOVE
;
;
;THIS IS LIKE A	GET EOF	CALL
;
*
* HAS THIS BLOCK BEEN READ IN  ?
*
		LDX	UFILEIDX
		LDA	USTATUS,X
		AND	#%00001000
		BEQ	ca_READ1	;NOT READ IN YET
*
* IS THE EOB IN	THIS BLOCK ?
*
		LDA	UEOB2,X
		AND	#%11111110
		CMP	UCURBLKL,X
		BNE	ca_READ1	;NOT THIS BLOCK
;
		LDA	UEOB3,X
		CMP	UCURBLKH,X
		BNE	ca_READ1	;NOT THIS BLOCK
*
* MOVE END OF BLOCK INTO PARAMETER LIST
*
		LDA	UEOB1,X
		STA	FILE_SIZE
		LDA	UEOB2,X
		STA	FILE_SIZE+1
		LDA	UEOB3,X
		STA	FILE_SIZE+2
		BRA	ca_READ3	;ALL DONE !!
*
* ASK SERVER ABOUT END OF FILE
* IS IT	A DIRECTORY ?
*
ca_READ1	LDA	UTYPE,X
		BPL	ca_READ2	;IT WAS	A FILE
		JSR	DIR_GETEOF
		LDA	UERROR
		BNE	READ_X1
		BRA	ca_READ3
*
* FIND FILE - EOF !!
*
ca_READ2	JSR	FILE_GETEOF
		LDA	UERROR
		BNE	READ_X1
*
* FIND AMOUNT AVAILABLE
*
ca_READ3	SEC
		LDX	UFILEIDX
		LDA	FILE_SIZE
		SBC	UMARK1,X
		STA	SIZE_AVAIL	;LBSIZE	OF AMOUNT ALLOWED
		LDA	FILE_SIZE+1
		SBC	UMARK2,X
		STA	SIZE_AVAIL+1	;MB OF AMOUNT ALLOWED
		LDA	FILE_SIZE+2
		SBC	UMARK3,X
		STA	SIZE_AVAIL+2	;HB OF AMOUNT ALLOWED
*
* WILL DATA FIT	INTO BUFFER WITHOUT FIT	NONPROCTECTED AREA
*
		LDA	SIZE_AVAIL+2
		BNE	ca_BUFFERR
;
		SEC
		LDA	SIZE_ALLOWED
		SBC	SIZE_AVAIL
		LDA	SIZE_ALLOWED+1
		SBC	SIZE_AVAIL+1
		BCC	ca_BUFFERR
*
* CHANGE REQUEST COUNT TO SIZE AVAILABLE
*
		LDA	SIZE_AVAIL
		STA	WS_PLIST+$04
		LDA	SIZE_AVAIL+1
		STA	WS_PLIST+$05
		BRA	READCONT	;CONTINUE AS NORMAL
*
* ERROR	- DATA WILL RUN	INTO PROTECT MEMORY
*
ca_BUFFERR	LDA	#$56
;
;
;
*
* read exit routine
*
READ_X1					; 
		LDY	ORG_REQ
		STY	WS_PLIST+$04
		LDY	ORG_REQ+1
		STY	WS_PLIST+$05
;
READ_X					; 
		STA	UERROR
		STZ	WS_PLIST+$06	;NO DATA TRANSFERRED
		STZ	WS_PLIST+$07
					;
		LDA	#$08
		STA	RETURNPL
		RTS			;NO ERROR
;
;
;
;
;
*
* WHAT IS THE REQUEST COUNT ?
* (IS IT OVER ONE BLOCK	?)
*
READCONT	STZ	WS_PLIST+$06	;reset transfer	count
		STZ	WS_PLIST+$07
		JSR	RWSETUP		;SETUP
;
		PHP			;----->
		LDX	UFILEIDX
		LDA	UTYPE,X
		AND	#%00010000	;BUFFERING
		BEQ	rc_CONT		;YES BUFFER
;
		PLP
		BRA	rc_LSTCHK
;
rc_CONT		PLP
		BCS	READ1		;DON'T USE CHUNK CONTROL
*
* IS THIS A DIRECTORY ?
*
		LDX	UFILEIDX
		LDA	UTYPE,X
		BMI	READ1		;YES, USE SINGLE BLOCK MODE
*
* IS THE NEWLINE ENABLED ?
* (NOT ALLOWED TO USE NEWLINE WITH CHUNK CONTROL)
*
		LDA	UENMASK,X
		BNE	READ1		;YES,USE SINGLE	BLOCK MODE
*
* ARE WE AT THE	END OF THE FILE	?
*
rc_LSTCHK				; 
		LDX	UFILEIDX
		LDA	USTATUS,X	;EOF ?
		BPL	READ0A		;NO , NOT YET
;
		LDA	#$4C		;EOF
		STA	UERROR
		JMP	READ11
*
* READ IS OVER ONE BLOCK WITH NO NEWLINE CHARACTER
* USE CHUNK CONTROL !!!
*
READ0A					; 
		JSR	RD_CHKCNTL
*
* WAS SOME DATA	RETURNED  ?
*
		LDA	UERROR
		BNE	ca_OK		;THERE WAS AN ERROR
;
;
		LDA	WS_PLIST+$06
		ORA	WS_PLIST+$07
		BNE	ca_OK		;YES
;
		LDA	#$4C		;EOF
		STA	UERROR
;
		LDX	UFILEIDX	;SET EOF STATUS
		LDA	USTATUS,X
		ORA	#%10000000	; MSD 13-Sep-89: changed %10000000 to #%10000000
		STA	USTATUS,X
*
* RESTORE REQUEST COUNT
*
ca_OK		LDA	ORG_REQ
		STA	WS_PLIST+$04	;RESTORE REQUEST COUNT
		LDA	ORG_REQ+1
		STA	WS_PLIST+$05
		RTS
;
;
*
* USE SINGLE BLOCK MODE
*
*  MAKE	SURE IO	BUFFER HAS CORRECT BLOCK
*
READ1					; 
		JSR	BLKCNTL		;CALL BLOCK CONTROL
		BEQ	READ3		;NO ERROR IN IO	UPDATE
		JMP	READ11		;ERROR - EXIT THE READ CALL
*
* ARE WE AT THE	END OF THE FILE	?
*
READ3					; 
		LDX	UFILEIDX
		LDA	USTATUS,X	;EOF ?
		BPL	READ4		;NO , NOT YET
*
* SET THE TRANSFER COUNT & SIZE	OF PL TH BE RETURNED
*
		JSR	SETTRCNT
		LDA	#$08
		STA	RETURNPL
*
* WAS SOME DATA	RETURNED  ?
*
		LDA	WS_PLIST+$06
		ORA	WS_PLIST+$07
		BEQ	ca_NODATA	;No
;
		LDA	#$00		;reset error code
		BRA	ca_DONE
;
ca_NODATA	LDA	#$4C		;EOF
ca_DONE		STA	UERROR
;
		LDA	ORG_REQ
		STA	WS_PLIST+$04
		LDA	ORG_REQ+1
		STA	WS_PLIST+$05
		RTS
*
* SET LOCATIONS	FOR MOVE
* (FROM	IO BUFFER INTO USER'S BUFFER)
*
READ4					; 
		LDA	XBUFPTR		;GET CURRENT BUFR PTR  (DESTINATION)
		STA	<destbuf
		LDA	XBUFPTR+1
		STA	<destbuf+1
;
		LDA	PFI_BANK
		STA	<destbuf+2	;BANK
;
		CLC
		LDA	UBUFPTRL,X	;SETUP CURRENT FILE BUFR (SOURCE)
		ADC	UMARK1,X	;POINTER
		STA	<srcbuf
		LDA	UMARK2,X
		AND	#%00000001
		ADC	UBUFPTRH,X
		STA	<srcbuf+1
;
		LDA	PFI_BANK
		STA	<srcbuf+2	;BANK
*
* SET COUNT TO END OF THE BUFFER
*
		SEC
		LDA	UEOB1,X		;SETUP COUNT TO	EOB
		SBC	UMARK1,X
		STA	<count
		LDA	UEOB2,X
		SBC	UMARK2,X
		STA	<count+1
		BNE	READ5
		LDA	<count
		BNE	READ5
*
* ERROR	- THERE	IS NO DATA IN THE BUFFER
* SET EOF BIT IN STATUS
*
		LDA	USTATUS,X
		ORA	#%10000000
		STA	USTATUS,X
		JMP	READ11
*
* SET MARK TO NEW LOCATION
*
READ5					; 
		JSR	GETCOUNT	;SETMARK ETC_
*
* IS THE NEW LINE MASK BEING USED ?
*
		LDA	UENMASK,X	;ENABLE	MASK SET ?
		BNE	READ6		;YES !!!
*
* SET MOVE TYPE	AND EXECUTE THE	MOVE ROUNTINE
*
		JSR	BUFFMOVE	;MOVE DATA
*
* IS THERE MORE	DATA TO	BE READ	?
*	(ANOTHER BLOCK?)
*
		JMP	READ9
;
;
*
* THE NEWLINE MASK IS ENABLED !!!
*
* THIS MEANS THAT WE MUST USE A	SPECIAL	MOVE ROUTINE
* WHICH	STOPS IF THE NEWLINE CHARACTER IS ENCOUNTERED.
*
READ6					; 
*
* PLACE	2'S COMP VALUE FOR COUNT IN NLMV_CNT
* (THIS	IS USED	BY THE SPECIAL MOVE ROUTINE)
*
		LDA	#$00
		SEC
		SBC	<COUNT
		STA	NLMV_CNT
		LDA	#$00
		SBC	<COUNT+1
		STA	NLMV_CNT+1
*
* SETUP	MOTHERBOARD SOURCE & DEST BUFFERS
* SUBTRACT 2'S COMPLEMENT OFFSET FROM SOURCE & DESTINATION
*
* (ADJUSTMENT TO LOCATIONS IS DUE TO USE OF 2'S COMPLEMENT)
*
		LDA	<SRCBUF
		SEC
		SBC	NLMV_CNT
		STA	NLM_SRC
		LDA	<SRCBUF+1
		SBC	#$00
		STA	NLM_SRC+1
;
		LDA	<DESTBUF
		SEC
		SBC	NLMV_CNT
		STA	NLM_DEST
		LDA	<DESTBUF+1
		SBC	#$00
		STA	NLM_DEST+1
*
* SETUP	NEWLINE	MASK & NEWLINE CHAR
* (PLACE IN SPECIAL MOVE ROUTINE IN C800)
*
		LDA	UENMASK,X
		STA	NLM_MASK
		LDA	UNLCHAR,X
		STA	NLM_CHAR
*
* (TELL	MOTHERBOARD TO DO SPECIAL NEWLINE MOVE)
*
READ6A		jsr	newlnmv		;move the data
*
*   SPECIAL FLAG - IF HB OF COUNT = $01	THIS MEANS
*   THAT THE NEWLINE CHARACTER WAS ENCOUNTERED AS
*   THE	LAST CHARACTER IN THE READ
*
		LDA	NLMV_CNT+1
		CMP	#$01		;WAS NEWLINE CHARACTER LAST IN BUFFER ?
		BNE	READ7		;NO !!
;
		DEC	NLMV_CNT+1	;NEWLINE WAS LAST CHARACTER IN BUFFER
		BRA	READ8		;FINISHED WITH MOVE
*
* WAS THE NEWLINE CHARACTER WITHIN THE READ ?
* (IF COUNT NOT	EQUAL TO ZERO -	ONE WAS	ENCOUNTERED)
*
READ7					; 
		LDA	NLMV_CNT
		BNE	READ8		;YES,IT	WAS ENCOUNTERED
		LDA	NLMV_CNT+1
		BNE	READ8		;YES,IT	WAS ENCOUNTERED
*
* A COMPLETE MOVE WAS EXECUTED.	CONTINUE ON
* CHECK	TO SEE IF THERE	IS MORE	DATA TO	READ
* (ANOTHER BLOCK ? )
*
		brl	READ9
*
* THE NEWLINE CHAR WAS ENCOUNTERED
* THE SPECIAL MOVE ROUTINE TERMINATED EARLY
* CONVERT 2'S COMPLEMENT BYTE COUNTER BACK INTO THE NORMAL COUNT
*
READ8					; 
		LDA	#$00
		SEC
		SBC	NLMV_CNT
		STA	<COUNT
		LDA	#$00
		SBC	NLMV_CNT+1
		STA	<COUNT+1
*
* SET TRANSFER COUNT
*
		CLC			;ADD REMAINING IN
		LDA	UTRANCNT	;
		ADC	<COUNT
		STA	UTRANCNT
		LDA	UTRANCNT+1
		ADC	<COUNT+1
		STA	UTRANCNT+1
*
* ADJUST THE MARK FOR DATA NOT READ
*
		SEC
		LDA	UMARK1,X
		SBC	<COUNT
		STA	UMARK1,X
		LDA	UMARK2,X
		SBC	<COUNT+1
		STA	UMARK2,X
		LDA	UMARK3,X
		SBC	#0
		STA	UMARK3,X
*
* NEWLINE READ IS FINISHED - EXIT NOW
*
		JMP	READ11
*
*
* THIS IS THE NEWLINE MOVE & ATTENTION ROUTINE FOR PFI
*
*   8/20/87 -->	TE
*
*
* PFI
*
* THIS IS THE NEWLINE READ MOVE	ROUTINE 
*
newlnmv					; 
		phb			;save current bank
		phx			;save x	and y
		phy
		LDY	NLMV_CNT	;from code bank
		lda	#00
		pha
		plb			;set bank to zero
					;
					;
					;
NLM_SRCROM				; 
NLM_SRC		equ	*+1
		LDA	$FFFF,Y
NLM_DEST	equ	*+1
		STA	$FFFF,Y
		INY
NLM_MASK	equ	*+1
		AND	#00
NLM_CHAR	equ	*+1
		CMP	#$FF
		BNE	NLM_SRCROM1	;CONTINUE
		CPY	#$00		;NEW LINE ENCOUNTERED
		BNE	NLMX_ROM	;TIME TO EXIT
;
; ---> 3/28/88 need to set bank	te
;
		phb
		lda	#^PFIBANK
		pha
		plb
					;
					;
		LDX	NLMV_CNT+1	;HIGH BYTE ROLL	OVER
		INX
		STX	NLMV_CNT+1
		CPX	#$00
		BNE	NLMX_BKROM	;NOT END OF BLOCK !!!
		INX
		STX	NLMV_CNT+1	;MAKE IT $01 - FLAG THAT NEWLINE AS LASt
NLMX_BKROM	plb
		jmp	NLMX_ROM
					;
NLM_SRCROM1				; 
		CPY	#0
		BNE	NLM_SRCROM
					;
		phb
		lda	#^PFIBANK
		pha
		plb
		INC	NLM_SRC+1
		INC	NLM_DEST+1
		INC	NLMV_CNT+1
		ldx	NLMV_CNT+1
		plb
		txa
		BNE	NLM_SRCROM
*
* RESET	MAIN TRAP
*
NLMX_ROM				; 
		tya			;get amount left to move
		sta	>NLMV_CNT	;RECORD	AMOUNT LEFT TO MOVE
*
NLMX_ROM1				; 
		ply
		plx			;restore registers
		plb			;recover original bank
		RTS			;return	to caller
;
;
;
*
* IS THERE MORE	DATA TO	BE READ	?
* (ANOTHER BLOCK ? )
*
READ9					; 
		LDA	UTRANCNT	;CHECK TRANS COUNT
		BNE	READ10		;YES THERE IS MORE !!!
		LDA	UTRANCNT+1
		BEQ	READ11		;NO, EXIT, NOW
READ10					; 
		JMP	READ1		;GO SETUP IO BUFFER
*
* SET THE TRANSFER COUNT & SIZE	OF PL TH BE RETURNED
*
READ11					; 
		JSR	SETTRCNT
		LDA	#$08
		STA	RETURNPL
*
* WAS SOME DATA	RETURNED  ?
*
		LDA	UERROR
		BNE	car_OK		;THERE WAS AN ERROR
;
;
		LDA	WS_PLIST+$06
		ORA	WS_PLIST+$07
		BNE	car_OK		;YES
;
		LDA	#$4C		;EOF
		STA	UERROR
;
		LDX	UFILEIDX	;SET EOF STATUS
		LDA	USTATUS,X
		ORA	#%10000000	; MSD 13-Sep-89: changed %10000000 to #%10000000
		STA	USTATUS,X
*
* RESTORE REQUEST COUNT
*
car_OK		LDA	ORG_REQ
		STA	WS_PLIST+$04	;RESTORE REQUEST COUNT
		LDA	ORG_REQ+1
		STA	WS_PLIST+$05	;RESTORE REQUEST COUNT
		RTS			;RETURN
;
;
;
;
		eject

*
*
* COMMAND $CB =	WRITE
*
*

		EXPORT	WRITE
WRITE					;       
*
* CAN I	WRITE TO THIS FILE ?
*
		LDX	UFILEIDX
		LDA	UMODE,X		;IS IT READ ONLY
		AND	#%00000010	;WRITE MODE
		BNE	WRITE0		;YES !!!
;
		LDA	#$4E		;ACCESS	ERROR
		BRA	WRITE_X
*
* IS THERE A REQUEST COUNT ?
*
WRITE0					; 
		LDA	WS_PLIST+$04	;LB OF COUNT
		ORA	WS_PLIST+$05	;HB OF COUNT
		BEQ	WRITE_X
					;
					;
					;====> 05/09/87	PROTECT	$C000 AREA
					;
*
* IS THE BUFFER	RUN TOO	HIGH ?
*
		CLC
		LDA	WS_PLIST+$04
		ADC	WS_PLIST+$02
		LDA	WS_PLIST+$05
		ADC	WS_PLIST+$03
		bcs	Wrt_Buferr
		CMP	#$C0
		Bcc	Write0A
					;
Wrt_Buferr	lda	#$56		;Buffer	error
		bra	Write_X
*
* SAVE ORIGINAL	REQUEST	COUNT
*
Write0A		LDA	WS_PLIST+$05
		STA	ORG_REQ+1	;SAVE HB ON STACK
		LDA	WS_PLIST+$04
		STA	ORG_REQ		;SAVE LB ON STACK
*
* DOES THE MARK	WRAP AROUND ?
*
* This routine will also adjust	request	count
*
		JSR	MARK_WRAP
		BCC	WRITE1
		LDA	#$4C		;END OF	FILE ERROR
*
* write	exit routine
*
WRITE_X1				; 
		LDY	ORG_REQ
		STY	WS_PLIST+$04
		LDY	ORG_REQ+1
		STY	WS_PLIST+$05
WRITE_X					; 
		STA	UERROR
		STZ	WS_PLIST+$06	;NO DATA TRANSFERRED
		STZ	WS_PLIST+$07
					;
		LDA	#$08
		STA	RETURNPL
		RTS			;NO ERROR
;
;
;
;
*
* YES  , WE CAN	WRITE TO IT
* WHAT IS THE REQUEST COUNT (OVER 1 BLK) ?
*
WRITE1		JSR	RWSETUP
		BCC	WRITE1A		;USE CHUNK CONTROL
;
					;----->
		LDX	UFILEIDX
		LDA	UTYPE,X
		AND	#%00010000	;BUFFERING ???
		BNE	WRITE1A		;NO BUFFERING
;
;---->
*
* CAN I	READ THIS FILE ?
*
		LDX	UFILEIDX
		LDA	UMODE,X
		AND	#%00000001
		BNE	WRITE2		;YES I CAN
*
* WRITE	IS FOR OVER A BLOCK -- USE CHUNK CONTROL
*
WRITE1A					; 
		JSR	WRT_CHKCNTL
*
* RESTORE REQUEST COUNT
*
WRITE1B					; 
		LDA	ORG_REQ+1	;SAVE HB ON STACK
		STA	WS_PLIST+$05
		LDA	ORG_REQ		;SAVE LB ON STACK
		STA	WS_PLIST+$04
		RTS			;DONE WITH WRITE
;
;
*
* BLOCK	CONTROL
*
* MAKE SURE THAT THE CORRECT BLOCK IS IN THE IO	BUFFER
*
WRITE2					; 
		JSR	BLKCNTL		;CALL BLOCK CONTROL
		BEQ	WRITE3		;BLOCK IS IN PLACE
		JMP	WRITE7		;ERROR - SET TRANSFER COUNT
*
* SET UP LOCATIONS TO MOVE DATA
* (FROM	USER'S BUFFER -- TO IO BUFFER)
*
WRITE3					; 
		LDX	UFILEIDX	;GET CURRENT USER
		LDA	XBUFPTR		;SETUP USER BUF	PTR (SOURCE)
		STA	<srcbuf
		LDA	XBUFPTR+1
		STA	<srcbuf+1
;
		LDA	PFI_BANK
		STA	<srcbuf+2	;BANK
;
		LDA	UBUFPTRL,X	;SETUP FILE BUFR PTR (DESTINATION)
		CLC
		ADC	UMARK1,X
		STA	<destbuf
		LDA	UMARK2,X
		AND	#%00000001
		ADC	UBUFPTRH,X
		STA	<destbuf+1
;
		LDA	PFI_BANK
		STA	<destbuf+2	;BANK
*
* FIND NUMBER OF BYTES TO THE END OF THE BLOCK ?
*
		SEC
		LDA	#0
		SBC	UMARK1,X	;SETUP COUNT TO	END
		STA	<count		;OF BLOCK
		LDA	UMARK2,X
		AND	#%00000001
		STA	UWORK1
		LDA	#2
		SBC	UWORK1
		STA	<count+1
*
* UPDATE THE MARK TO IT'S NEW LOCATION
*
		JSR	GETCOUNT	;SET MARK ETC
*
* DO I NEED TO RESET THE EOB ?
* (COMPARE EOB WITH NEW	MARK)
*
		LDX	UFILEIDX
;
		LDA	UEOB3,X		;BUG UPDATE 9/30/86
		CMP	UMARK3,X
		BCC	WRITE4
		BNE	WRITE5
;
		LDA	UEOB2,X		;COMPARE EOB WITH MARK
		CMP	UMARK2,X
		BCC	WRITE4
		BNE	WRITE5
;
		LDA	UEOB1,X
		CMP	UMARK1,X
		BCS	WRITE5
*
* SET THE EOB TO THE NEW MARK LOCATION
*
WRITE4					; 
		LDA	UMARK1,X	;SET NEW EOB
		STA	UEOB1,X
		LDA	UMARK2,X
		STA	UEOB2,X
		LDA	UMARK3,X
		STA	UEOB3,X
*
* SET STATUS - BLOCK HAS BEEN WRITTEN INTO
*
WRITE5					; 
		LDA	USTATUS,X
		ORA	#%00000001	;BLOCK WRITTEN INTO
		STA	USTATUS,X
*
* SET HOW TO MOVE THE DATA (MB TO MB)
*
		JSR	BUFFMOVE	;MOVE DATA
*
* ARE THERE MORE BYTE TO TRANSFER ?
* (ANOTHER BLOCK?)
*
		LDA	UTRANCNT
		BNE	WRITE6		;MORE !!
		LDA	UTRANCNT+1
		BEQ	WRITE7A
WRITE6					; 
		JMP	WRITE2
*
* IS THE BLOCK FULL ?
*
WRITE7A					; 
		LDX	UFILEIDX
		LDA	UEOB2,X
		AND	#%00000001	;LOOK ONLY AT LOW BIT
		ORA	UEOB1,X		;LOOK ALSO AT LOW BYTE
		BNE	WRITE7		;NO, NOT A FULL	BLOCK
;
		JSR	WRITE_BLK	;FLUSH BLOCK TO	SERVER
*
* WRITE	IS NOW DONE -- SET THE TRANSFER	COUNT
*
WRITE7					; 
		JSR	SETTRCNT
		LDA	#$08
		STA	RETURNPL
*
* RESTORE REQUEST COUNT
*
		LDA	ORG_REQ+1	;SAVE HB ON STACK
		STA	WS_PLIST+$05
		LDA	ORG_REQ		;SAVE LB ON STACK
		STA	WS_PLIST+$04
		RTS			;RETURN
;
;
		eject

*
*
* COMMAND $CC =	CLOSE
*
*

		EXPORT	CLOSE
CLOSE					;       
*
* FIND REFERENCE # (CHECK FOR 0	WHICH MEANS ALL)
*
		STZ	PFI_RETRY
		LDA	WS_PLIST+1	;GET REF #
		TAX
		DEX
		STX	UFILEIDX
		BPL	CLOSE2		;ORIGINAL REF #	WAS NOT	ZERO
*
* CLOSE	ALL FILE (THIS LEVEL OR	HIGHER)
*
					;
					;----> 6/21/88 TE for close all	bug
					;
		jsr	LOCAL
					;
					;----->	end
					;
CLOSE1					; 
		INC	UFILEIDX	;CLOSE ALL FILES
		LDX	UFILEIDX
		CPX	#8		;END OF	TABLE ?
		BEQ	cl1_DONE	;MORE TO LOOK AT
;
		LDA	UMODE,X		;IS THIS ENTRY ACTIVE ?
		BEQ	CLOSE1		;GO TO NEXT FILE
;
		LDA	ULEVEL,X	;IF FILE LEVEL LESS THAN SYSTEM
		CMP	Cn_LEVEL	;LEVEL DON'T CLOSE IT
		BCC	CLOSE1		;GO TO NEXT FILE
					;
					;
					;
					;----> 6/21/88 TE for close all	bug
					;
					;
					;
		LDA	UFILELOC,X
		CMP	#$FF
		BNE	CLOSE1a		;FILE IS ON A SERVER !!!
		stz	UMODE,x
		bra	CLOSE1
					;
					;----->	end
					;
;
CLOSE1a		JSR	CLOSE2		;TIME TO CLOSE A FILE !!!
		BRA	CLOSE1
;
;
cl1_DONE	LDA	PFI_RETRY
		BEQ	cl_RTS		;NO ERROR
;
		LDA	#$27		;I/O ERROR
		STA	UERROR
cl_RTS		RTS			;ALL DONE !!!!
;
;
;
;
*
* TIME TO CLOSE	A SINGLE FILE
* WHERE	IS THE FILE LOCATED ?
*
CLOSE2					; 
		LDA	UFILELOC,X
		CMP	#$FF
		BNE	CLOSE3		;FILE IS ON A SERVER !!!
		JSR	LOCALREF	;GO LOCAL TO CLOSE FILE
		BRA	CLOSE5		;REMOVE	FROM TABLE
*
* CLOSE	IS FOR A SERVER
*
* CLEAR	PRODOS SYSTEM BITMAP
*
CLOSE3					; 
		LDX	UFILEIDX
		LDA	UBUFPTRH,X
		TAX
		LDY	#$04
		JSR	CHK_BITMAP	;TO MOVE BITMAP	TO CARD
;
		CLC			;CLEAR BITMAP
		LDX	UFILEIDX
		LDA	UBUFPTRH,X	;HB OF IO BUFFER
		TAX
		JSR	PDOS_BITMAP
*
* IS IT	A DIRECTORY ?
*
		LDX	UFILEIDX
		LDA	UTYPE,X
		BMI	CLOSE5		;YES,IT	IS A DIR (NO NEED TO CLOSE)
*
* CAN WE WRITE TO THIS FILE ?
*
		LDA	UMODE,X
		CMP	#%00100000	;WRITE ???
		BEQ	CLOSE4		;YES,WE	CAN WRITE
*
* IS THE FILE IN READ MODE ?
*
		LDA	UMODE,X
		AND	#%00000001	;READ MODE ?
		BEQ	CLOSE4		;NO NEED TO FLUSH
*
* HAS THE BLOCK	BEEN WRITTEN INTO
*
		LDA	USTATUS,X
		AND	#%00000001	;WRITTEN INTO ?
		BEQ	CLOSE4		;NO,NEED TO WRITE !!!
;
		LDA	UFILELOC,X
		STA	CURSESS		;SPECIFY SERVER	TO SEND	IT TO
;
		JSR	WRITE_BLK	;WRITE CURR BLOCK
;
		LDA	UERROR		;WAS THERE AN ERROR ??
		CMP	#$27
		BEQ	CLOSE5
;
*
* CREATE CLOSE PACKET
*
CLOSE4					; 
		LDA	#CLOSEFORK
		STA	WS_COMBUF
		STZ	WS_COMBUF+1
;
		LDX	UFILEIDX
		LDA	UFILELOC,X
		STA	CURSESS
;
		LDA	USRVNUM1,X
		STA	WS_COMBUF+2
		LDA	USRVNUM2,X
		STA	WS_COMBUF+3
		LDA	#4
		STA	PKT_CNT
		STZ	PKT_CNT+1
*
* ISSUE	CLOSE FORK CALL
*
		JSR	CMD_ROUTING	;CALL ROUTING
*
* REMOVE FILE/DIR FROM TABLES
*
CLOSE5					; 
		LDX	UFILEIDX	;FREE FILE TABLE
		STZ	UMODE,X
					;       
		LDA	UERROR
		ORA	PFI_RETRY
		STA	PFI_RETRY
		RTS
;
;
		eject

*
*
* COMMAND $CD =	FLUSH
* 
*

		EXPORT	FLUSH
FLUSH					;       
*
* FIND REFERENCE # (CHECK FOR 0	WHICH MEANS ALL)
*
		STZ	PFI_RETRY
		LDA	WS_PLIST+1	;GET REF #
		TAX
		DEX
		STX	UFILEIDX
		BPL	FLUSH2		;ORIGINAL REF# WAS NOT ZERO
*
* FLUSH	ALL FILES (THIS	LEVEL OR HIGHER)
*
FLUSH1					; 
		INC	UFILEIDX	;FLUSH ALL
		LDX	UFILEIDX
		CPX	#8		;END OF	TABLE ?
		BEQ	fl1_DONE	;MORE TO LOOK AT
;
		LDA	UMODE,X		;IS THIS ENTRY ACTIVE ?
		BEQ	FLUSH1		;GO TO NEXT FILE
;
		LDA	ULEVEL,X	;IF FILE LEVEL LESS THAN SYSTEM
		CMP	Cn_LEVEL	;LEVEL DON'T CLOSE IT
		BCC	FLUSH1		;GO TO NEXT FILE
;
		JSR	FLUSH2		;TIME TO FLUSH A FILE !!!
		BRA	FLUSH1		;LOOK AT THE NEXT ENTRY
;
;
;
fl1_DONE	LDA	PFI_RETRY
		BEQ	fl1_RTS		;NO ERROR
;
		LDA	#$27		;I/O ERROR
		STA	UERROR
fl1_RTS		RTS			;ALL DONE !!!!
;
;
;
;
*
* TIME TO FLUSH	A SINGLE FILE
* WHERE	IS THE FILE LOCATED ?
*
FLUSH2					; 
		LDA	UFILELOC,X
		CMP	#$FF
		BNE	FLUSH3		;IT IS ON A SERVER
		JSR	LOCALREF	;GO LOCAL TO FLUSH FILE
		BRA	FL_RTS
*
* FLUSH	IS FOR A SERVER
* CAN WE WRITE TO THIS FILE ?
*
FLUSH3					; 
		LDA	UTYPE,X
		BMI	FL_RTS
					;
		LDA	UMODE,X
		CMP	#%00100000	;WRITE ???
		BEQ	FL_RTS
*
* IS THE FILE IN READ MODE ?
*
FLUSH4					; 
		LDA	UMODE,X
		AND	#%00000001	;READ MODE ?
		BEQ	FL_RTS		;NO NEED TO FLUSH
*
* HAS THE BLOCK	BEEN WRITTEN INTO
*
		LDA	USTATUS,X
		AND	#%00000001	;WRITTEN INTO ?
		BEQ	FL_RTS		;NO,NEED TO WRITE !!!
;
		LDA	UFILELOC,X
		STA	CURSESS		;SPECIFY SERVER	TO SEND	IT TO
;
		JSR	WRITE_BLK	;WRITE CURR BLOCK
;
		LDX	UFILEIDX
		LDA	USTATUS,X
		ORA	#%00001000	;BLOCK HAS BEEN	READ
		STA	USTATUS,X
FL_RTS					; 
		LDA	UERROR
		ORA	PFI_RETRY
		STA	PFI_RETRY
		RTS
;
;
		eject

*
*
* COMMAND $CE =	SET MARK
*
*

		EXPORT	SETMARK
SETMARK					;       
;
;----->11/06/87	te for drop boxes
;
*
* is the suggested mark	lower than the old ?
*
		SEC
		LDX	UFILEIDX
		LDA	WS_PLIST+2
		SBC	UMARK1,X
		STA	UWORK1		;save adjust space - lb
;
		LDA	WS_PLIST+3
		SBC	UMARK2,X
		STA	UWORK2		;save adjust space - hb
;
		LDA	WS_PLIST+4
		SBC	UMARK3,X
		BCS	sm_EQUCHK
		JMP	SETMARK5	;yes, clear eof	& update mark
*
* are they equal ?
*
* [A] has highest byte
*
sm_EQUCHK	ORA	UWORK1
		ORA	UWORK2
		BNE	sm_CONT
		JMP	SETMARK6	;yes, update mark
;
;---->
;
*
* HAS THIS BLOCK BEEN READ IN YET ?
*
sm_CONT		LDX	UFILEIDX
		LDA	USTATUS,X
		AND	#%00001000	;BLK HAS BEEN READ ?
		BEQ	SETMARK1	;GO GET	EOF !!!!
*
* COMPARE MARK WITH CURRENT BLOCK (HIGH	BYTE)
*
		LDA	WS_PLIST+4
		CMP	UCURBLKH,X	;CMP MARK WITH CURRBLK
		BCC	SETMARK5	;IF > :	CHECK AGAINST EOF
		BNE	SETMARK1	;GO GET	EOF !!!!
*
* COMPARE MARK WITH CURRENT BLOCK (LOW BYTE)
*
		LDA	WS_PLIST+3
		AND	#%11111110
		CMP	UCURBLKL,X	;CMP MARK WITH CURRBLK
		BCC	SETMARK5	;IF > :	CHECK AGAINST EOF
		BNE	SETMARK1	;GO GET	EOF !!!!
*
* MARK IS WITHIN THIS BLOCK . COMPARE MARK WITH	EOB
* (DO THIS IN CASE THE END OF FILE IS IN THIS BLOCK)
*
;
;  ---->>  08/05/87
;
		LDA	UEOB3,X
		CMP	WS_PLIST+4	;CMP AGAINST EOB
		BCC	SETMARK4	;RANGE ERROR
		BNE	SETMARK5	;SET THE MARK !!!
;
;  ---->>
;
;
		LDA	UEOB2,X
		CMP	WS_PLIST+3	;CMP AGAINST EOB
		BCC	SETMARK4	;RANGE ERROR
		BNE	SETMARK5	;SET THE MARK !!!
;
		LDA	UEOB1,X
		CMP	WS_PLIST+2
		BCC	SETMARK4	;RANGE ERROR
		BNE	SETMARK5	;SET THE MARK &	CLEAR EOF STATUS!!
;
; EOB =	NEW MARK
; DON'T CLEAR EOF STATUS
		BRA	SETMARK3A	; SET THE EOF STATUS & MARK !!!
*
* TIME TO CHECK	EOF WITH SERVER
* IS THIS A FILE OR A DIRECTORY	?
*
SETMARK1				; 
		LDA	UTYPE,X
		BPL	SETMARK2	;IT WAS	A FILE
;
		JSR	DIR_GETEOF
		LDA	UERROR
		BEQ	SETMARK3
		RTS			;ERROR (UNABLE TO FIND EOF)
*
* FIND EOF FOR FILE
*
SETMARK2				; 
		JSR	FILE_GETEOF
		LDA	UERROR
		BEQ	SETMARK3
		RTS			;ERROR (UNABLE TO FIND EOF)
*
* COMPARE EOF TO MARK IN PARAMETER LIST
* IS MARK SMALLER THAN EOF ?
*
SETMARK3				; 
		LDX	UFILEIDX
		LDA	FILE_SIZE+2
		CMP	WS_PLIST+4	;CMP EOF WITH MARK
		BCC	SETMARK4
		BNE	SETMARK5
;
		LDA	FILE_SIZE+1
		CMP	WS_PLIST+3
		BCC	SETMARK4
		BNE	SETMARK5
					;
		LDA	FILE_SIZE
		CMP	WS_PLIST+2
		BCC	SETMARK4	;OUT OF	RANGE
		BNE	SETMARK5	;SET THE MARK &	CLEAR EOF STATUS!!
;
; EOB =	NEW MARK
; DON'T CLEAR EOF STATUS
SETMARK3A				; ; SET	EOF STATUS !!!
		LDA	USTATUS,X
		ORA	#%10000000
		STA	USTATUS,X
		BRA	SETMARK6	; SET THE MARK !!!
*
* ERROR	- MARK IS OUT OF RANGE !!!
*
SETMARK4				; 
		LDA	#$4D
		STA	UERROR		;POSITION OUT OF RANGE
		RTS
*
* CLEAR	EOF BIT	IS STATUS BYTE
*
SETMARK5				; 
		LDA	USTATUS,X
		AND	#%01111111	;CLEAR EOF STATUS
		STA	USTATUS,X
*
* MARK IS OK --- SET IT	NOW !!!!!
*
SETMARK6				; 
		LDX	UFILEIDX
		LDA	WS_PLIST+2
		STA	UMARK1,X
		LDA	WS_PLIST+3
		STA	UMARK2,X
		LDA	WS_PLIST+4
		STA	UMARK3,X
		RTS
;
;
		eject

*
*
* COMMAND $CF =	GET MARK
*
*

		EXPORT	GETMARK
GETMARK					;       
		LDX	UFILEIDX
		LDA	UMARK1,X	;GET MARK
		STA	WS_PLIST+2	;STORE IN LIST
		LDA	UMARK2,X
		STA	WS_PLIST+3
		LDA	UMARK3,X
		STA	WS_PLIST+4
;
		LDA	#$05
		STA	RETURNPL
		RTS
;
;
		eject

*
*
* COMMAND $D0 =	SET EOF
*
*

		EXPORT	SETEOF
SETEOF					;       
*
* IS THIS FILE WRITE ENABLED ?
*
		LDX	UFILEIDX
		LDA	UMODE,X
		AND	#%00000010	;WRITE MODE
		BNE	SETEOF1		;YES WE	CAN WRITE TO IT
;
		LDA	#$4E		;ACCESS	ERROR
		STA	UERROR
		RTS
*
* CREATE SET FORK PARMS
*
SETEOF1					; 
		LDA	#SETFORKPARM
		STA	WS_COMBUF	;SAVE COMMAND BYTE
		STZ	WS_COMBUF+1	;ZERO BYTE
;
		LDA	USRVNUM1,X
		STA	WS_COMBUF+2	;SAVE REF # HB
		LDA	USRVNUM2,X
		STA	WS_COMBUF+3	;SAVE REF # LB
					;
		BIT	UTYPE,X		;IS A RESOUCE OR A DATA	FORK ?
		BVC	d0_SETDATA
		LDA	#%00000100	;SET EOF FOR RESOURCE FORK
		BRA	d0_SETBITS
;
d0_SETDATA	LDA	#%00000010	;SET EOF FOR DATA FORK
d0_SETBITS	STA	WS_COMBUF+4	;SAVE BITMAP HB
		STZ	WS_COMBUF+5	;SAVE BITMAP LB
;
		STZ	WS_COMBUF+6	;'FOREST' FILE BYTE
;
		LDA	WS_PLIST+4
		STA	WS_COMBUF+7
		LDA	WS_PLIST+3
		STA	WS_COMBUF+8
		LDA	WS_PLIST+2
		STA	WS_COMBUF+9
;
		LDA	#$0A
		STA	PKT_CNT
		STZ	PKT_CNT+1
*
* ISSUE	AFP SET	FORK PARAMETERS
*
		JSR	CMD_ROUTING	;EXECUTE ON SERVER
		BCC	SETEOF3		;CALL COMPLETED	OK
		RTS
;
;---->11/07/87 te -- drop box
;
*
* if this is an	open ($C8) & it	is in drop box Mode,
* then set local EOF
*
SETEOF3					; 
		LDX	UFILEIDX
		LDA	UTYPE,X
		AND	#$08		;bit 3 = normal	open ($C8) ???
		BEQ	seof3_over	;no, special open
;
		LDA	UMODE,X
		CMP	#$32		;drop box ??
		BNE	seof3_over	;no, some other	mode
;
;
		LDX	UFILEIDX	;update	Local EOF
		LDA	WS_PLIST+2
		STA	UDIRID1,X
		LDA	WS_PLIST+3
		STA	UDIRID2,X
		LDA	WS_PLIST+4
		STA	UDIRID3,X
;
;---->
;
seof3_over				; 
		SEC
		LDX	UFILEIDX
		LDA	UMARK1,X
		SBC	WS_PLIST+2
;
		LDA	UMARK2,X
		SBC	WS_PLIST+3
;
		LDA	UMARK3,X
		SBC	WS_PLIST+4
		BCC	SETEOF5		;MARK IS LESS THAN EOF !!!
*
* RESET	THE MARK !!!
*
SETEOF4					; 
		LDA	WS_PLIST+2
		STA	UMARK1,X
		LDA	WS_PLIST+3
		STA	UMARK2,X
		LDA	WS_PLIST+4
		STA	UMARK3,X
*
* SET OR CLEAR EOF STATUS !!!
*
		LDA	USTATUS,X
		ORA	#%10000000	;SET EOF STATUS
		BRA	SET5A
SETEOF5					; 
		LDA	USTATUS,X
		AND	#%01111111	;CLEAR EOF STATUS
SET5A		STA	USTATUS,X
*
* DO I NEED TO RESET THE BLOCK ?
*
		LDX	UFILEIDX
		LDA	USTATUS,X
		AND	#%00001000	;HAS THE BLOCK BEEN READ ?
		BNE	d0_SETEOF5A	;YES IT	HAS
		RTS			;LEAVE FOR NOW
;
;
d0_SETEOF5A	LDA	WS_PLIST+4
		CMP	UCURBLKH,X	;COMPARE EOF WITH CURRBLK
		BCC	SETEOF7		;CLEAR CURRENT BLOCK READ
		BNE	SETEOF8		;RESET EOB TO END OF BUFFER
					;
		LDA	WS_PLIST+3
		AND	#%11111110
		CMP	UCURBLKL,X
		BCC	SETEOF7		;CLEAR CURRENT BLOCK READ
		BNE	SETEOF8		;RESET EOB TO END OF BUFFER
*
* DO I NEED TO RESET THE EOB WITHIN THE	BLOCK ?
*
		LDA	WS_PLIST+3
		CMP	UEOB2,X		;COMPARE EOF WITH EOB
		BNE	SETEOF6		;RESET EOB
;
		LDA	WS_PLIST+2
		CMP	UEOB1,X
		BNE	SETEOF6		;RESET EOB
		RTS			;ALL DONE !!!
*
* RESET	THE END	OF BLOCK (WITHIN BLOCK)
*
SETEOF6					; ;RESET EOB
		LDA	WS_PLIST+2
		STA	UEOB1,X
		LDA	WS_PLIST+3
		STA	UEOB2,X
		RTS
*
* RESET	THE STATUS FOR THIS BLOCK
*
SETEOF7					; ;RESET CURR BLK
		LDA	USTATUS,X
		AND	#%11110111	;BLOCK HAS NOT BEEN READ
		STA	USTATUS,X
		RTS
*
* RESET	EOB TO THE END OF BLOCK
*
SETEOF8					; 
		LDX	UFILEIDX
		STZ	UEOB1,X
					;
		LDA	UCURBLKL,X
		AND	#%11111110
					;
		CLC
		ADC	#$02		;ONE BLOCK!!!
		STA	UEOB2,X		;MED BYTE OF EOB
;
		LDA	UCURBLKH,X
		ADC	UCURBLKH,X
		STA	UEOB3,X		;HB BYTE OF EOB
		RTS
;
;
		eject

*
*
* COMMAND $D1 =	GET EOF
*
*

		EXPORT	GETEOF
GETEOF					;       
*
* HAS THIS BLOCK BEEN READ IN	?
*
		LDX	UFILEIDX
		LDA	USTATUS,X
		AND	#%00001000
		BEQ	GETEOF1		;NOT READ IN YET
*
* IS THE EOB IN	THIS BLOCK ?
*
		LDA	UEOB2,X
		AND	#%11111110
		CMP	UCURBLKL,X
		BNE	GETEOF1		;NOT THIS BLOCK
;
		LDA	UEOB3,X
		CMP	UCURBLKH,X
		BNE	GETEOF1		;NOT THIS BLOCK
*
* MOVE END OF BLOCK INTO PARAMETER LIST
*
		LDA	UEOB1,X
		STA	WS_PLIST+2
		LDA	UEOB2,X
		STA	WS_PLIST+3
		LDA	UEOB3,X
		STA	WS_PLIST+4
		BRA	GETEOF5		;ALL DONE !!
*
* ASK SERVER ABOUT END OF FILE
* IS IT	A DIRECTORY ?
*
GETEOF1					; 
		LDA	UTYPE,X
		BPL	GETEOF2		;IT WAS	A FILE
		JSR	DIR_GETEOF
		LDA	UERROR
		BEQ	GETEOF3		;MOVE INTO PARAMETER LIST
		RTS			;ERROR
*
* FIND FILE - EOF !!
*
GETEOF2					; 
		JSR	FILE_GETEOF
		LDA	UERROR
		BEQ	GETEOF3		;MOVE INTO PARAMETER LIST
		RTS			;ERROR - LEAVE
*
* MOVE EOF FROM	WS_COMBUF INTO WORKSTATION PARAMETER LIST
*
GETEOF3					; 
		LDA	FILE_SIZE+2	;MOVE EOF TO CALLER'S LIST
		STA	WS_PLIST+4
		LDA	FILE_SIZE+1
		STA	WS_PLIST+3
		LDA	FILE_SIZE
		STA	WS_PLIST+2
*
* TIME TO EXIT - NO ERROR !!!
*
GETEOF5					; 
		LDA	#$05
		STA	RETURNPL
		RTS
;
;
		eject

*
*
* COMMAND $D2 =	SET BUF
*
* HANDLED LOCALLY IN TABLES
*
*

		EXPORT	SETBUF
SETBUF					;       
*
* CHECK	IO BUFFER ADDRESS
*
		LDA	WS_PLIST+$02
		BNE	d2_BUFFBAD
;
;
		LDX	WS_PLIST+$03
					;
					;----->	6/2/88
					;	    
		cpx	#$C0
		bcs	d2_BUFFBAD
					;
					;----->	end
					;
		LDY	#$04
		JSR	CHK_BITMAP
		BCC	d2_CONT
;
d2_BUFFBAD	LDA	#$56
		STA	UERROR
		RTS
*
* TAKE BITS FOR	NEW BUFFER
*
d2_CONT		SEC			;SET BITMAP
		LDX	WS_PLIST+$03	;HB OF IO BUFFER
		JSR	PDOS_BITMAP
*
* FREE ejectS OF OLD IO	BUFFER ADDRESS
*
		LDX	UFILEIDX
		LDA	UBUFPTRH,X
		TAX
		CLC
		JSR	PDOS_BITMAP
*
* SET UP FOR BUFFER MOVE
*
		LDX	UFILEIDX
		LDA	UBUFPTRL,X	;GET BUFR PTR FROM
		STA	<SRCBUF		;TBL - SOURCE BUFFER
		LDA	UBUFPTRH,X
		STA	<SRCBUF+1
;
		LDA	PFI_BANK
		STA	<SRCBUF+2	;BANK
*
		LDA	WS_PLIST+2	;STORE NEW PTR
		STA	UBUFPTRL,X	;IN TBL	AND WS_ZP2
		STA	<DESTBUF
		LDA	WS_PLIST+3
		STA	UBUFPTRH,X
		STA	<DESTBUF+1
;
		LDA	PFI_BANK
		STA	<DESTBUF+2	;BANK
*
		STZ	<COUNT
		LDA	#%00000100	;BOTH OF CARD LOCATIONS,1024 BYTES
		STA	<COUNT+1
		JMP	BUFFMOVE	;MOVE BUFFER
;
;
		eject

*
*
* COMMAND $D3 =	GET BUF
*
*   HANDLED LOCALLY IN TABLES
*
*

		EXPORT	GETBUF
GETBUF					;       
		LDX	UFILEIDX
		LDY	#2
		LDA	UBUFPTRL,X	;GET BUFR PTR
		STA	WS_PLIST+2	;SAVE IN LIST
		LDA	UBUFPTRH,X
		STA	WS_PLIST+3
;
		LDA	#$04
		STA	RETURNPL
		RTS
;
;
		eject

*
*
* COMMAND $65 =	QUIT
*
*   HANDLED LOCALLY
*
*

		EXPORT	QUITCALL
QUITCALL				;       
*
* DON'T ALLOW NORMAL QUIT CALL IF 'DIRECT' IS SET
*
*
* MAKE CALL TO LOCAL PRODOS
*
QUIT1					; 
		ldx	#$FF
		txs
		Jmp	DO_JSRLOCAL	;SEND MOTHERBOARD TO LOCAL PRODOS
;
;
		eject

*
*
* COMMAND $44 =	BYTE RANGE LOCK
*
*   (SPECIAL NETWORK CALL)
*
*
		EXPORT	BYTELOCK
BYTELOCK				;       
*
* CHECK	BYTE LOCK FLAG TO SEE IF IT IS VALID ??
*
* 1. EXTRA BITS	SET
* 2. UNLOCK RELATIVE TO	EOF
* 3. LENGTH OF ZERO
* 4. LOCK RELATIVE TO START
*
;
; CHECK	#1 -- EXTRA BITS SET ???
;
		LDA	WS_PLIST+2	;
		AND	#%11000001
		CMP	WS_PLIST+2
		BNE	bl_PARM		;EXTRA BITS SET
;
; CHECK	#2 -- UNLOCK RELATIVE TO EOF ??
;
		ROR	a		;IS BIT	0 SET ?? (LOCK/UNLOCK)
		BCC	bl_NEXT1
		AND	#%01000000	;IS IT RELATIVE	TO EOF ??
		BNE	bl_PARM
;
; CHECK	#3 -- LENGTH OF	ZERO
;
bl_NEXT1	LDA	WS_PLIST+6
		ORA	WS_PLIST+7
		ORA	WS_PLIST+8
		BEQ	bl_PARM
;
; CHECK	#4 -- LOCK BEFORE START
;
		BIT	WS_PLIST+2
		BMI	bl_OK		;RELATIVE TO EOF
		BVC	bl_OK		;NOT BEFORE
;
;
bl_PARM		LDA	#$53
		STA	UERROR
		RTS
;
;
*
* CREATE BYTE LOCK PACKET
*
bl_OK		LDA	WS_PLIST+2
		AND	#%10000001	;LEAVE BITS 7 &	0
		STA	WS_COMBUF+$01	;SAVE LOCK FLAG
;
		STZ	PFI_RETRY
*
* FIND OFFSET IN FILE (PLUS/ MINUS)
*
		STZ	WS_COMBUF+$04	;OFFSET	IN FILE
		LDA	WS_PLIST+5
		STA	WS_COMBUF+$05
		LDA	WS_PLIST+4
		STA	WS_COMBUF+$06
		LDA	WS_PLIST+3
		STA	WS_COMBUF+$07
;
		BIT	WS_PLIST+2	;lock flag byte
		BVC	BYTE_LOOP
;
		SEC			;MAKE THIS A TWO'S COMPLETMENT
		LDA	#$00		;OFFSET	IN THE FILE
		SBC	WS_COMBUF+$07
		STA	WS_COMBUF+$07
		LDA	#$00
		SBC	WS_COMBUF+$06
		STA	WS_COMBUF+$06
		LDA	#$00
		SBC	WS_COMBUF+$05
		STA	WS_COMBUF+$05
		LDA	#$00
		SBC	WS_COMBUF+$04
		STA	WS_COMBUF+$04
;
;
;
BYTE_LOOP				; 
		LDA	#BYTERANGE
		STA	WS_COMBUF
					;
		LDX	UFILEIDX
		LDA	USRVNUM1,X
		STA	WS_COMBUF+$02
		LDA	USRVNUM2,X
		STA	WS_COMBUF+$03
;
		STZ	WS_COMBUF+$08	;LENGTH	TO LOCK
		LDA	WS_PLIST+8
		STA	WS_COMBUF+$09
		LDA	WS_PLIST+7
		STA	WS_COMBUF+$0A
		LDA	WS_PLIST+6
		STA	WS_COMBUF+$0B
;
		LDA	#$0C
		STA	PKT_CNT		;SIZE OF PACKET
		STZ	PKT_CNT+1
					;
		LDX	UFILEIDX
		LDA	UFILELOC,X	;LOCATION OF SERVER
		STA	CURSESS
*
* ISSUE	COMMAND	TO SERVER
*
		JSR	CMD_ROUTING
		BCC	BYTELOCK3
;
		LDA	UERROR
		CMP	#$53		;PARM ERROR ????
		BNE	DONENOW
;
RANGE		LDA	#$4D		;RANGE ERROR (too Long)
		STA	UERROR
DONENOW		RTS
*
* is the lock out of range ???
*
BYTELOCK3				; 
		LDA	PFI_RETRY
		BNE	RANGE		;second	time all done
;
		LDA	WS_PLIST+2
		AND	#%00000001	;unlock	????
		BNE	bl1_OK		;yes, unlock !!!
;
;
		CLC
		LDA	WS_COMBUF+3
		ADC	WS_PLIST+6
		LDA	WS_COMBUF+2
		ADC	WS_PLIST+7
		LDA	WS_COMBUF+1
		ADC	WS_PLIST+8
		LDA	WS_COMBUF
		ADC	#$00
		CMP	#$00
		BEQ	bl1_OK
*
* need to unlock lock due to range
*
		INC	PFI_RETRY
;
		LDA	WS_COMBUF
		STA	WS_COMBUF+$04	;OFFSET	IN FILE
		LDA	WS_COMBUF+1
		STA	WS_COMBUF+$05
		LDA	WS_COMBUF+2
		STA	WS_COMBUF+$06
		LDA	WS_COMBUF+3
		STA	WS_COMBUF+$07
;
		LDA	#$01		;unlock
		STA	WS_COMBUF+$01	;SAVE LOCK FLAG
		JMP	BYTE_LOOP	;issue call to unlock range
;
;
*
* PLACE	START OF LOCK IN PARAMETER LIST
*
bl1_OK		LDX	#$02
		LDY	#$00
BYTELOCK4				; 
		LDA	WS_COMBUF+1,X
		STA	WS_PLIST+9,Y
		INY
		DEX
		BPL	BYTELOCK4
;
		LDA	#$0C		;AMOUNT	TO RETURN TO MB
		STA	RETURNPL
		RTS
;
;

*
*
* COMMAND $81 =	GETTIME
*
*    HANDLED LOCALLY
*
*

		EXPORT	GETTIME
GETTIME					;       
*
*
* IS THERE A LOCAL CLOCK (CHECK	GLOBAL PAGE) ?
*
		LDA	>$bf98		;check prodos global
		ROR	a
		BCC	gt_CHKSRV	;NO LOCAL CLOCK
;
		JSR	LOCAL
		BRA	gt_ERROR
*
* IS THERE A SESSION OPEN ??
*
gt_CHKSRV	LDX	#$00
gt_LOOP		LDA	SESSION_TBL,X
		BNE	gt_DOIT
		INX
		CPX	#MAXSESSION
		BNE	gt_LOOP
		BRA	gt_ERROR	;NO SESSION GOING
*
* CREATE & SEND	REQUEST	FOR SERVER INFO
*
gt_DOIT		STA	CURSESS		;SAVE CURRENT SESSION
;
		LDA	#16
		STA	WS_COMBUF
					;
		LDA	#$01
		STA	PKT_CNT
		STZ	PKT_CNT+1
;
		JSR	CMD_ROUTING
		BCC	gt_OK
;
gt_ERROR	STZ	UERROR
		RTS
*
* CONVERT TIME INTO PRODOS TIME
*
gt_OK		LDX	#$03
gt_LOOP1	LDA	WS_COMBUF,X
		STA	AFP,X
		DEX
		BPL	gt_LOOP1
;
		JSR	FROM_SEC
;
		LDX	#$03
gt_LOOP2	LDA	PRO_TIME,X
		STA	>$bf90,X	;store directly	into prodos global page
		DEX
		BPL	gt_LOOP2

		STZ	UERROR
		RTS
;
;
		ENDP

		end

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/ATRam/PFI/PFI_cmdsubs3.aii b/IIGS.601.SRC/GS.OS/Drivers/ATRam/PFI/PFI_cmdsubs3.aii
new file mode 100644
index 0000000..60a6ce6
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/ATRam/PFI/PFI_cmdsubs3.aii
@@ -0,0 +1 @@
+
;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------
	Import	Active8
	IMPORT	ACCESS
	IMPORT	AFP
	IMPORT	AFP_DIR_ID
	IMPORT	AFP_PREFIX
	IMPORT	AFP_VOL_ID
	IMPORT	ATTRIBUTE
	IMPORT	AUN_RAM
	IMPORT	B1_AFP2STD
	IMPORT	B1_CLK2PRO
	IMPORT	B1_CLK2STD
	IMPORT	B1_PRO2CLK
	IMPORT	B1_STD2AFP
	IMPORT	B1_STD2CLK
	IMPORT	BUFFMOVE
	IMPORT	BYTE_COUNT
	IMPORT	CMD_ROUTING
	IMPORT	CURSESS
	IMPORT	Cn_DEVNUM
	IMPORT	Cn_ERROR
	IMPORT	Cn_WSIPL
	IMPORT	FILE_BLKS
	IMPORT	FILE_SIZE
	IMPORT	NAME_CNT
	IMPORT	NDT_CNT
	IMPORT	NDT_IDH
	IMPORT	NDT_IDL
	IMPORT	NDT_IDX1
	IMPORT	NDT_IDX2
	IMPORT	NDT_NAME
	IMPORT	NDT_SESS
	IMPORT	NDT_UNIT
	IMPORT	OFFSPRING
	IMPORT	PFI_BANK
	IMPORT	PFI_NAMING
	IMPORT	PKT_CNT
	IMPORT	PRO_DIR_ID
	IMPORT	PRO_PREFIX
	IMPORT	PRO_TIME
	IMPORT	PRO_VOL_ID
	IMPORT	REMAINDER
	IMPORT	SRCPATH
	IMPORT	UDIRID1
	IMPORT	UDIRID2
	IMPORT	UDIRID3
	IMPORT	UDIRID4
	IMPORT	UERROR
	IMPORT	UFILEIDX
	IMPORT	UMODE
	IMPORT	USRVNUM1
	IMPORT	USRVNUM2
	IMPORT	UTYPE
	IMPORT	UVOLID1
	IMPORT	UVOLID2
	IMPORT	UWORK1
	IMPORT	UWORK2
	IMPORT	VOL_LEN
	IMPORT	WS_COMBUF
	IMPORT	WS_PATH
	IMPORT	WS_PLIST
	IMPORT	WS_PREPATH
	IMPORT	cn_cmdpdos

;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

	ENTRY	CHGMBPLREF
	ENTRY	CHKDBL
	ENTRY	CHKSLASH
	ENTRY	DO_JSRLOCAL
	ENTRY	LOCAL
	ENTRY	xpath2card
*
* pfi_cmdsubs3
*
* Greg Seitz (17-Jul-87)
*
*
;		EXPORT	zpcmdscs3	
;zpcmdscs3	PROC
		INCLUDE	'zp.equates'
;		ENDP
		include	'global.equates'
		include	'pfi_equates'
		
		EXPORT	pficmdsubs3	
pficmdsubs3	PROC
*		using	atpequates
*		using 	pfiglobals
*		using	zpcmdscs3
			longa	off
			longi	off

			eject


*
*	PARAMIS NETWORK SOFTWARE
*
*
*
*	CONFIDENTIAL
*
*
* MODULE : PFI3 - PRODOS FILING INTERFACE	(PART 3)
*	COMMON SUBROUTINES
*
*	WRITTEN BY THOMAS EAGER
*
*	MODIFIED:	06-15-87	4:18	TE
*
*	COPYRIGHT 1986,87 PARAMIS CORPORATION
*
* ALL RIGHTS RESERVED
*


*
*
*	COMMON SUBROUTINES :
*
* A: LOCAL PRODOS SUBROUTINES
*
*	1) LOCALREF	- EXECUTE A LOCAL CALL WITH REF #
*	2) LOCAL	- EXECUTE A LOCAL CALL (PL OK)
*	3) CHGMBPLREF	- CHANGE MB PL REFERENCE #
*	4) DO_JSRLOCAL - CAUSE MB TO DO A LOCAL PRODOS CALL
*
*
* B: PATHNAME SUBROUTINES
*
*	5) PATH2BUF	- MOVE PATHNAME INTO PACKET
*	6) PATH2CARD	- MOVE PATHNAME ONTO CARD
*	7) CHKSLASH	- IS THE FIRST CHARACTER A SLASH ?
*	8) CHK_VOLUME	- IS THE PATHNAME A VOLUME ONLY ?
*	9) FND_CURSRV	- FIND THE VOLUME IN THE NDT TABLES
*	10) STUFF_IDS	- STUFF PATHNAME IDS IN PACKET
*	11) STUFF_DIRIDS - STUFF DIRECTORY IDS FOR OPEN DIRECTORY
*	12) NEW_PREFIX	- SAVE NEW PREFIX
*	13) NEW_SRCPATH	- SAVE PATH OF LAST OPENDED FILE
*	14) CHK_PRODOS	- CHECK PRODOS FORMAT
*	15) STUFF_FINDER - STUFF THE FINDER WITH FILE TYPE/CREATER
*	16) PDOS_BITMAP	- SET/CLEAR PRODOS SYSTEM BITMAP
*	17) CHK_BITMAP	- CHECK PRODOS SYSTEM BITMAP
*	18) STRIP_PREFIX - STRIP PREFIX FROM PATHNAME
*
*
*
* C: CONVERSION SUBROUTINES
*
*	19) INTO_ATTRI	- CHANGES ACCESS INTO ATTRIBUTES
*	20) FROM_ATTRI	- CHANGES ATTRIBUTES INTO ACCESS
*	21) CALC_DIRINFO- CALCULATES BLOCKS/BYTES OF A DIRECTORY
*	22) BYTE2BLKS	- CONVERTS # OF BYTES INTO BLOCKS
*	23) INTO_SEC	- CHANGES PRODOS TIME INTO AFP TIME
*	24) FROM_SEC	- CHANGES AFP TIME INTO PRODOS TIME
*
*
* D: END OF FILE SUBROUTINES
*
* 25) FILE_GETEOF	- GET THE END OF FILE FOR A FILE
* 26) DIR_GETEOF	- GET THE END OF FILE FOR A DIRECTORY
*
*
*

			eject

*
*
*	1) EXECUTE A LOCAL CALL WITH REF # - LOCALREF
*
* SPECIAL LOCAL CALLS. SINCE THESE CALLS USE A
* REFERENCE NUMBER WE MUST SWITCH IN THE REAL PRODOS REF #,
* LET LOCAL PRODOS EXECUTE THE CALL WITH THEIR PARAMETER LIST,
* COPY THE UPDATED PARAMETER LIST ONTO THE CARD, RESTORE
* OUR REFERENCE NUMBER INTO THEIR PARAMETER LIST.
*
*
*	ENTRY : WS_PLIST = PARAMETER LIST ON CARD
*	UFILEIDX = INDEX TO CROSS REFERENCE - REF #
*
*	EXIT	: UERROR	= LOCAL PRODOS ERROR CODE
*
*
		EXPORT	LOCALREF
LOCALREF		;		
*
* SAVE PL REF # , REPLACE IT WITH REAL PRODOS REF #
*
			LDA		WS_PLIST+1
			STA		UWORK1		;SAVE REF #
;
			LDX		UFILEIDX
			LDA		USRVNUM1,X	;GET ACTUAL REF #
			STA		WS_PLIST+1	;AND PUT IN LIST
			JSR		CHGMBPLREF	;CHANGE MB REF #
*
* EXECUTE A LOCAL PRODOS CALL
*
			JSR		LOCAL		;EXECUTE CALL
*
* RESTORE REFERENCE # TO PL
*
			LDA		UWORK1		;RESTORE REF #
			STA		WS_PLIST+1
			JSR		CHGMBPLREF	;RESTORE MB'S ORIG REF #
			RTS
;
;
			eject

*
*
*	2) EXECUTE LOCAL CALL - LOCAL
*	(PARAMETER LIST IS OK- NO MODIFCATIONS)
*
*	ENTRY : NONE
*
*	EXIT	: UERROR - LOCAL PRODOS ERROR CODE
*
*

		EXPORT	LOCAL
LOCAL		;		
*
* DIRECT MOTHERBOARD TO LOCAL PRODOS,
* USING THEIR OWN PARAMETER LIST
*
			JSR		DO_JSRLOCAL
			LDA		Cn_ERROR
			STA		UERROR
			RTS
;
;
			eject

*
*
* 3) CHANGE REF # ON MOTHERBOARD'S PARAMETER LIST
*
*	ENTRY : WS_PLIST = PARAMETER LIST ON CARD
*	Cn_WSIPL = PARAMETER LIST ON MB
*
*	EXIT	: Cn_WSIPL = UPDATED MB PL
*
*

		EXPORT	CHGMBPLREF
CHGMBPLREF		;		
*
* MOVE 2 BYTES (PCOUNT & REF #)
*
			LDA		#2
			STA		<COUNT
			LDA		#00			
			STA		<COUNT+1
*
* SET FROM LOCATION TO ONCARD PL
*
			LDA		#WS_PLIST	;SOURCE
			STA		<SRCBUF
			LDA		#>WS_PLIST
			STA		<SRCBUF+1
			LDA		#^WS_PLIST
			STA		<SRCBUF+2
*
* SET TO LOCATION TO MB PL
*
			LDA		Cn_WSIPL	;DEST
			STA		<DESTBUF
			LDA		Cn_WSIPL+1
			STA		<DESTBUF+1
;
			LDA		PFI_BANK
			STA		<DESTBUF+2	;BANK
*
* MOVE THE TWO BYTES
*
			JMP		BUFFMOVE
;
;
			eject

*
*
* 4) CAUSE MB TO JSR TO LOCAL PRODOS
*
*
*
*
*	ENTRY : NONE
*
*	EXIT	: NONE
*
*

		EXPORT	DO_JSRLOCAL
DO_JSRLOCAL		;		
*
* SET WHERE VECTOR WITH JSR TO LOCAL PRODOS
*
exitvector	equ		$BFA0
MLIACTIVE	equ		$00BF9B

			jsr		savecdzp		;save off zero page
			jsr		movecode		;move code to zp
			phb						;save data bank
			pea		$0000
			plb
			plb						;set bank zero
			sec						; needs to be set for switch to emulation mode
			jsl		>cdzpbase		;jump to code
			plb						;recover our bank
			sta		cn_error		;save error code returned
			jsr		restorecdzp		;and put back zp
			RTS					
;

savecdzp	; 
			lda		#<cdzpbase
			sta		<srcbuf
			lda		#>cdzpbase
			sta		<srcbuf+1
			lda		pfi_bank
			sta		<srcbuf+2
			ldy		#zpcdlen	;length of code to move
savecdlp	; 
			lda		[srcbuf],y
			sta		savezparea,y
			dey
			bpl		savecdlp

			lda		#<exitvector
			sta		<srcbuf
			lda		#>exitvector
			sta		<srcbuf+1
			lda		pfi_bank
			sta		<srcbuf+2
			ldy		#3			;length of code to move
saveexit	; 
			lda		[srcbuf],y
			sta		oldexitcode,y
			dey
			bpl		saveexit
			rts

restorecdzp	; 
			lda		#<cdzpbase
			sta		<srcbuf
			lda		#>cdzpbase
			sta		<srcbuf+1
			lda		pfi_bank
			sta		<srcbuf+2
			ldy		#zpcdlen
rscdlp	; 
			lda		savezparea,y
			sta		[srcbuf],y
			dey
			bpl		rscdlp
			rts

movecode	; 
			lda		>ProEntry			;get pointer to interal pdos
			inc		a
			sta		realpdos+1
			lda		>ProEntry+1			;get high byte
			sta		realpdos+2			;don't worry about inc wrap
			lda		cn_cmdpdos			;pointer to pdos parms (cmd and addr)
			sta		<srcbuf
			lda		cn_cmdpdos+1
			sta		<srcbuf+1
			lda		pfi_bank
			sta		<srcbuf+2
			ldy		#2
mvcdlp	; 
			lda		[srcbuf],y
			sta		realpdos+3,y
			dey
			bpl		mvcdlp
			lda		#<cdzpbase
			sta		<srcbuf
			lda		#>cdzpbase
			sta		<srcbuf+1
			lda		pfi_bank
			sta		<srcbuf+2
			ldy		#zpcdlen
mvcdlp1	; 
			lda		zpcode,y
			sta		[srcbuf],y
			dey
			bpl		mvcdlp1

			lda		realcmd
			cmp		#$65			;Is is a quit call?
			beq		mvleave			;If so, don't move exit code
									;because it will never be called.

			lda		#<exitvector
			sta		<srcbuf
			lda		#>exitvector
			sta		<srcbuf+1
			lda		pfi_bank
			sta		<srcbuf+2
			ldy		#3			;length of code to move
mvexit	; 
			lda		newexitcode,y
			sta		[srcbuf],y
			dey
			bpl		mvexit

mvleave		rts

zpcode	; ;this code will execute out of zp
			xce					;Assumes that the carry is set !!!
realpdos	jsr		$bf00		;direct address will be put here
realcmd		DC.B	0
			DC.W	0			;these will be set to real value later
retoffset	equ		*-zpcode
			clc
			xce					;back to native mode
			rtl
zpcdlen		equ		*-zpcode

savezparea		DS.B zpcdlen+1	;area to move zp

exitcode	;
			pha

			lda		>MLIACTIVE
			ora		#$80
			sta		>MLIACTIVE
			lda		#<cdzpbase+retoffset
			sta		4,s
			lda		#>cdzpbase
			sta		5,s

			phx
			ldx		#3			;length of code to move
restexit	lda		>oldexitcode,x
			sta		>exitvector,x
			dex
			bpl		restexit
			plx

			pla
			jmp		>exitvector

newexitcode	jmp		>exitcode
oldexitcode	ds.l	1

			eject

*
*
* 5) MOVE PATHNAME FROM USER'S BUFFER TO WS_COMBUF
*
*	ENTRY:	X	= POSITION TO PLACE NAME IN WS_COMBUF
*	WS_PATH = LOACTION OF PATHNAME
*	CARRY	= PADDING FLAG (SEC - YES)
*
*	EXIT :	PKT_CNT = AMOUNT OF DATA IN WS_COMBUF (2 BYTES)
*
*

		EXPORT	PATH2BUF
PATH2BUF		;		
*
* SAVE CARRY	(PADDING FLAG)
*
			PHP
			lda		#00			;zero out high byte of a, since we might do 8 bit a to 16 bit x xfer
			xba
*
* SAVE PATHNAME TYPE (LONG NAME)
*
			LDA		#$02
			STA		WS_COMBUF,X
			INX
			PHX					;SAVE OFFSET IN PACKET
*
* IS THE FIRST CHARACTER A SLASH ?
*
			JSR		CHKSLASH
			BCS		PATH2B1A
*
* MOVE COUNT BYTE AND SAVE IT
*
			LDA		WS_PATH
			STA		UWORK1
			lda		#01			;move 1 into y without switching modes (always 8 bit a, but
			tay					;can be 8 or 16 bit x) and move it 
			BRA		PATH2B1B	;MOVE NAME
*
* REMOVE VOLUME NAME FROM PATH
*
PATH2B1A	; 
			CLC
			LDA		#NDT_NAME
			ADC		NDT_IDX1
			STA		<ZP2
			LDA		#>NDT_NAME
			ADC		NDT_IDX1+1
			STA		<ZP2+1
;
			SEC
			LDA		WS_PATH
			SBC		(ZP2)
			TAX
			DEX					;REMOVE SLASH BEFORE VOLUME
			BEQ		PATH2B1AA	;ONLY VOLUME
			DEX					;REMOVE SLASH AFTER VOLUME
PATH2B1AA	; 
			STX		UWORK1
;
			CLC
			LDA		(ZP2)		;LENGTH OF VOLUME
			ADC		#$03		;ADD LENGTH BYTE
			TAY					;ADD SLASH BEFORE VOLUME
								;ADD SLASH AFTER VOLUME
*
* SAVE LENGTH OF PATH
*
PATH2B1B	; 
			PLX					;RESTORE INDEX TO PACKET
			LDA		UWORK1		;LENGTH OF PATH
			STA		WS_COMBUF,X
			BEQ		PATH2B3		;END OF MOVE
			PHX					;SAVE IN CASE LAST CHARACTER IS A SLASH
			INX
*
* MOVE THE NAME
*
PATH2B1	; 
			LDA		WS_PATH,Y
			CMP		#SLASH
			BNE		PATH2B2
			LDA		#SRVR_SLASH	;CHANGE DELIMITER FOR SERVER
PATH2B2	; 
			STA		WS_COMBUF,X
			INX
			INY
			DEC		UWORK1
			BNE		PATH2B1
			DEX
*
* IS THE LAST CHARACTER A SLASH
*
			PLY					;RESTORE INDEX TO NAME
			CMP		#SRVR_SLASH
			BNE		PATH2B3		;NO IT IS NOT A SLASH
;
			SEC
			LDA		WS_COMBUF,Y
			SBC		#$01
			STA		WS_COMBUF,Y
			DEX
*
* SAVE END OF NAME
*
PATH2B3	; 
			INX
			STX		PKT_CNT
			STZ		PKT_CNT+1
*
* RESTORE PADDING FLAG
*
			PLP
			BCC		PATH2B4		;NO NEED TO PAD
;
			LDA		PKT_CNT
			AND		#%00000001	;ODD ??
			BEQ		PATH2B4		;NO PADDING NEEDED
;
			LDX		PKT_CNT
			STZ		WS_COMBUF,X
			INX
			STX		PKT_CNT
PATH2B4	; 
			RTS
;
;
			eject

*
*
* 6) MOVE PATHNAME FROM MOTHER BOARD TO CARD BUFFER
*
*	ENTRY : NONE
*
*	EXIT	: WS_PATH = LOCATION OF PATHNAME ON CARD
*	C	= SET MEANS THAT PATH IS TOO LONG
*
*

		EXPORT	PATH2CARD
PATH2CARD		;		
			ldx		#01				;default case of first item
			jmp		xpath2card
		EXPORT	xpath2card
xpath2card		;		;alternate entry if you want to specify x
*
* FIND LOCATION OF NAME ON MOTHERBOARD
*
			LDA		WS_PLIST,x
			STA		<SRCBUF
			LDA		WS_PLIST+1,x
			STA		<SRCBUF+1
;
			LDA		PFI_BANK
			STA		<SRCBUF+2	;BANK
*
* SAVE LOCATION TO PLACE NAME ON CARD
*
			LDA		#WS_PATH
			STA		<DESTBUF
			LDA		#>WS_PATH
			STA		<DESTBUF+1
			LDA		#^WS_PATH
			STA		<DESTBUF+2
*
* MOVE MAX NAME POSSIBLE
*
			LDA		#MAX_AFPPATH
			STA		<COUNT
			LDA		#00	
			STA		<COUNT+1
*
* EXECUTE MOVE OF NAME
*
			JSR		BUFFMOVE
*
* check for double slash in pathname
*
			JSR		CHKDBL
			BCC		p2_CHKLEN
			RTS					;carry set mean Error
*
* CHECK LENGTH OF PATHNAME
*
p2_CHKLEN	LDA		WS_PATH
			CMP		#MAX_AFPPATH-1
			RTS					;CARRY SET MEAN UNACCEPTABLE !!
;CARRY CLC MEANS OK !!!
;
			eject

*
*
*	7) CHECK FOR A SLASH IN THE FIRST POSTION OF THE PATHNAME
*
*	ENTRY : WS_PATH = LOCATION WHERE PATHNAME IS LOCATED
*
*	EXIT	: C	= CLEAR MEANS NOT A VOLUME
*
*

		EXPORT	CHKSLASH
CHKSLASH		;		
*
* LOOK AT THE FIRST CHARACETER OF THE NAME
*
			LDA		WS_PATH+1
			AND		#$7F		;(BACIC_CI SETS HI BIT OF SLASH CHAR)
			CMP		#SLASH
			BEQ		CHKSLASH1
			CLC
			RTS
*
* THE FIRST CHARACTER IS A SLASH !!!
* THIS IS A VOLUME
*
CHKSLASH1	; 
			SEC
			RTS
;
;
			eject

*
*
*	8) CHECK TO SEE IF PATHNAME IS A VOLUME
*
*	ENTRY : WS_PATH	= LOCATION WHERE PATHNAME IS LOCATED
*
*	EXIT	: C	= CLEAR MEANS NOT A VOLUME
*
*

		EXPORT	CHK_VOLUME
CHK_VOLUME		;		
*
* IS THERE MORE THAN ONE CHARACTER ?
*
			LDA		WS_PATH
			CMP		#$02
			BCS		CHK_VOL0
			RTS
*
* IS THE FIRST CHARACTER A SLASH ?
*
CHK_VOL0	; 
			JSR		CHKSLASH
			BCS		CHKVOL1
			RTS					;NOT A VOLUME
*
* FIND LENGTH OF PATHNAME
*
CHKVOL1	; 
			LDX		#$02
CHKVOL2	; 
			LDA		WS_PATH,X
			AND		#$7F		;(BACIC.CI SETS HI BIT OF SLASH CHAR)
			CMP		#SLASH
			BEQ		CHKVOL3		;NOT A VOLUME (BUT A DIRECTORY)
			INX
			CPX		WS_PATH		;NOTE: DONT CHECK LAST CHARACTER !!!
			BNE		CHKVOL2		;MORE TO LOOK AT
;
			SEC					;PATH WAS A VOLUME
			RTS
*
* THE PATHNAME IS NOT A SERVER VOLUME ONLY !!!
*
CHKVOL3	; 
			CLC
			RTS
;
;
			eject

*
*
*	9) FIND VOLUME FOR CURRENT SERVER IN NDT
*
*	ENTRY : NDT_NAME	= LIST OF MOUNTED VOLUMES
*	WS_PATH	= LOCATION OF PATHNAME
*
*	EXIT	: C	= SET MEANS VOLUME NOT FOUND
*	NDT_IDX1	= INDEX TO NDT_NAME
*	NDT_IDX2	= INDEX TO NDT OTHER
*
*

		EXPORT	FND_CURSRV
FND_CURSRV		;		
*
* IS THIS THE END OF THE NETWORK DEVICE TABLE ?
*
			LDA		#<NDT_NAME
			STA		<ZP2
			LDA		#>NDT_NAME
			STA		<ZP2+1
;
			LDX		#$00
FND_SRV0	STX		NDT_IDX2
			CPX		#14
			BNE		FND_SRV0A	;NO,STILL MORE RECORDS TO PROCESS
			SEC
			RTS					;VOLUME NOT ON SERVER !!!!!
*
* IS THIS ENTRY ACTIVE ?
*
FND_SRV0A	; 
			LDA		NDT_SESS,X
			BEQ		NXT_VOL		;NOT ,ACTIVE
*
* IS DESIRED VOLUME AT LEAST LONG ENOUGHT ? (TEST #1)
*
			LDA		(ZP2)
			STA		VOL_LEN	 	;TRUE LENGTH OF VOLUME
			INC		VOL_LEN	 	;OFFSET LENGTH TO INCLUDE SLASH
*
			LDA		WS_PATH
			CMP		VOL_LEN
			BCC		NXT_VOL	 	;FLUNK TEST #1- TRY NEXT VOLUME
*
* DO THE VOLUMES HAVE THE SAME NAME ? (TEST #2)
*
			LDY		#$01		;INITIALIZE TO THE FIRST BYTE
FND_SRV1	LDA		WS_PATH+1,Y
			CMP		(ZP2),Y
			BEQ		FND_SRV1D	;MOVE TO NEXT CHARACTER
;
*
* IF IN AFP MODE, IS HI BIT SET?
*
			BIT		PFI_NAMING
			BPL		FND_SRV1A
;
			LDA		WS_PATH+1,Y	;IS HI BIT SET
			BMI		NXT_VOL		;NOT INSENSITIVE
*
* CONVERT TO UPPER CASE
*
FND_SRV1A	; 
			CMP		#$61
			BCC		FND_SRV1B	;TEST CHARACTER
			AND		#$5F
;
FND_SRV1B	; 
			CMP		#$41		;IS IT LT 'A' ?
			BCC		NXT_VOL		;NO,FLUNK TEST #2 - NEXT VOLUME
			CMP		#$5B		;IS IT GT 'Z' ?
			BCS		NXT_VOL		;NO,FLUNK TEST #2 - NEXT VOLUME
*
			LDA		WS_PATH+1,Y	;CHECK CASE INSENSITIVE
			EOR		#$20
			CMP		(ZP2),Y
			BNE		NXT_VOL		;NO,FLUNK TEST #2 - NEXT VOLUME
*
FND_SRV1D	; 
			INY
			CPY		VOL_LEN		;END OF NAME ???
			BNE		FND_SRV1	;NO NOT YET
*
* IS THE NEXT CHARACTER A SLASH ? (TEST #3)
*
			LDA		WS_PATH+1,Y
			CMP		#SLASH
			BEQ		FND_SRV2	 ;PASSED ALL OF THE TEST !!!!!
*
* ARE BOTH THE SAME LENGTH ? (TEST #4)
*
			LDA		VOL_LEN
			CMP		WS_PATH
			BNE		NXT_VOL		;FLUNK TEST #4 - TRY NEXT VOLUME
*
* ALL TEST PASSED - VOLUME IS ON A SERVER !!!!!!!
*
FND_SRV2	; 
			LDX		NDT_IDX2
			LDA		NDT_UNIT,X	;FIND DEVICE
			AND		#%11110000	;strip low nibble
			STA		Cn_DEVNUM	;TELL PRODOS ABOUT LAST DEVICE ACCESSED
*
			LDA		NDT_SESS,X	;X POINTS TO THE SESSION NUMBER
			STA		CURSESS
;
			SEC
			LDA		<ZP2
			SBC		#<NDT_NAME
			STA		NDT_IDX1
			LDA		<ZP2+1
			SBC		#>NDT_NAME
			STA		NDT_IDX1+1
;
			CLC
			RTS
*
* TRY NEXT VOLUME
*
NXT_VOL	; 
			CLC
			LDA		<ZP2
			ADC		#NDT_NAMELEN
			STA		<ZP2
			LDA		<ZP2+1
			ADC		#$00
			STA		<ZP2+1
								;
			LDX		NDT_IDX2
			INX
			JMP		FND_SRV0
;
;
			eject

*
*
* 10) STUFF THE VOLUME AND DIRECTORY IDS FVOR AFP PACKET
*
*	ENTRY : WS_PATH	= LOCATION OF PATHNAME
*	..._VOL_ID = PREFIX VOLUME ID
*	..._DIR_ID = PREFIX DIRECTORY ID
*
*	EXIT	: WS_COMBUF = VOL & DIR ID IN PACKET
*
*

		EXPORT	STUFF_IDS
STUFF_IDS		;		
*
* IS THE VOLUME SPECIFIED IN PATH ?
*
			JSR		CHKSLASH
			BCC		STUFFIDS1	;NO, IT IS NOT SPECIFIED
*
* USE NDT TABLE TO FIND VOLUME ID & USE DEFAULT DIR ID
*
			LDX		NDT_IDX2
			LDA		NDT_IDH,X
			STA		WS_COMBUF+2	;SAVE VOLUME ID - HB
			LDA		NDT_IDL,X
			STA		WS_COMBUF+3	;SAVE VOLUME ID - LB
;
			STZ		WS_COMBUF+4
			STZ		WS_COMBUF+5
			STZ		WS_COMBUF+6
			LDA		#$02		;DEFAULT DIR ID
			STA		WS_COMBUF+7
			RTS
*
* USE PREFIX VOL ID AND DIR ID
*
STUFFIDS1	; 
			BIT		PFI_NAMING
			BMI		STUFFIDS3	;AFP PREFIX
;
			LDA		PRO_VOL_ID
			STA		WS_COMBUF+2	;SAVE VOLUME ID - HB
			LDA		PRO_VOL_ID+1
			STA		WS_COMBUF+3	;SAVE VOLUME ID - LB
;
			LDX		#$03
STUFFIDS2	; 
			LDA		PRO_DIR_ID,X
			STA		WS_COMBUF+4,X
			DEX
			BPL		STUFFIDS2	;MORE DIR ID TO MOVE
			RTS
*
STUFFIDS3	; 
			LDA		AFP_VOL_ID
			STA		WS_COMBUF+2	;SAVE VOLUME ID - HB
			LDA		AFP_VOL_ID+1
			STA		WS_COMBUF+3	;SAVE VOLUME ID - LB
;
			LDX		#$03
STUFFIDS4	; 
			LDA		AFP_DIR_ID,X
			STA		WS_COMBUF+4,X
			DEX
			BPL		STUFFIDS4	;MORE DIR ID TO MOVE
			RTS
;
;
			eject

*
*
* 11) STUFF THE DIRECTORY IDS ('FOR A OPEN DIRECTORY')
*
*	ENTRY : UFILEIDX = OFFSET TO USER'S TABLES
*	UVOLID?	= VOLUME ID
*	UDIRID?	= DIRECTORY ID
*
*

		EXPORT	STUFF_DIRIDS
STUFF_DIRIDS		;		
			LDX		UFILEIDX
*
* STUFF VOLUME IDS
*
			LDA		UVOLID1,X
			STA		WS_COMBUF+2	;SAVE VOLUME ID - HB
			LDA		UVOLID2,X
			STA		WS_COMBUF+3	;SAVE VOLUME ID - LB
*
* STUFF DIRECTORY IDS
*
			LDA		UDIRID1,X
			STA		WS_COMBUF+4	;SAVE DIRECTORY ID (1)
			LDA		UDIRID2,X
			STA		WS_COMBUF+5	;SAVE DIRECTORY ID (2)
			LDA		UDIRID3,X
			STA		WS_COMBUF+6	;SAVE DIRECTORY ID (3)
			LDA		UDIRID4,X
			STA		WS_COMBUF+7	;SAVE DIRECTORY ID (4)
			RTS
;
;
			eject

*
*
* 12) SAVE PREFIX IN PREFIX BUFFER
*
*	ENTRY : WS_PATH	= PATHNAME
*	..._PREFIX = CURRENT PREFIX
*
*	EXIT	: ..._PREFIX = NEW PREFIX
*
*

		EXPORT	NEW_PREFIX
NEW_PREFIX		;		
*
* IS A VOLUME SPECIFIED ?
*
			JSR		CHKSLASH	;IS A VOLUME HERE ?
			BCS		NEW_PREFIX2	;SLASH, REPLACE CURRENT PREFIX
*
* APPEND CURRENT PREFIX + PATHNAME
* FIND LENGTH OF NEW PREFIX
*
			BIT		PFI_NAMING
			BMI		NEW_PREFIX1A
;
			CLC
			LDA		PRO_PREFIX
			ADC		WS_PATH
			STA		PRO_PREFIX
;
			LDY		WS_PATH		;APPEND NEW PATH ONTO PREFIX
			LDX		PRO_PREFIX
NEW_PREFIX1	; 
			LDA		WS_PATH,Y
			STA		PRO_PREFIX,X
			DEX
			DEY
			BNE		NEW_PREFIX1	;MORE TO MORE
			BRA		NEW_PREFIX4	;CHECK LAST CHARACTER
;
NEW_PREFIX1A	; 
			CLC
			LDA		AFP_PREFIX
			ADC		WS_PATH
			STA		AFP_PREFIX
;
			LDY		WS_PATH		;APPEND NEW PATH ONTO PREFIX
			LDX		AFP_PREFIX
NEW_PREFIX1B	; 
			LDA		WS_PATH,Y
			STA		AFP_PREFIX,X
			DEX
			DEY
			BNE		NEW_PREFIX1B	;MORE TO MORE
			BRA		NEW_PREFIX6	;CHECK LAST CHARACTER
*
* REPLACE CURRENT PREFIX WITH PATH
*
NEW_PREFIX2	; 
			BIT		PFI_NAMING
			BMI		NEW_PREFIX3A
;
			LDX		WS_PATH		;MOVE NEW PATH AS PREFIX
NEW_PREFIX3	; 
			LDA		WS_PATH,X
			STA		PRO_PREFIX,X
			DEX
			BPL		NEW_PREFIX3	;MORE TO MOVE
			BRA		NEW_PREFIX4
;
NEW_PREFIX3A	; 
			LDX		WS_PATH		;MOVE NEW PATH AS PREFIX
NEW_PREFIX3B	; 
			LDA		WS_PATH,X
			STA		AFP_PREFIX,X
			DEX
			BPL		NEW_PREFIX3B	;MORE TO MOVE
			BRA		NEW_PREFIX6	;AFP CHECK
*
* MAKE SURE LAST CHARACTER IS A SERVER SLASH
*
NEW_PREFIX4	; 
			LDX		PRO_PREFIX
			LDA		PRO_PREFIX,X
			AND		#$7F		;STRIP OFF HIGH BIT
			CMP		#$2F		;SLASH
			BEQ		NEW_PREFIX5	;NO IT IS NOT
;
;
			INX
			INC		PRO_PREFIX	;ADD ONE TO LENGTH
			LDA		#SLASH
			STA		PRO_PREFIX,X
NEW_PREFIX5	; 
			RTS
;
;
NEW_PREFIX6	; 
			LDX		AFP_PREFIX
			LDA		AFP_PREFIX,X
			CMP		#$2F		;SLASH
			BEQ		NEW_PREFIX7	;NO IT IS NOT
;
			INX
			INC		AFP_PREFIX	;ADD ONE TO LENGTH
			LDA		#SLASH
			STA		AFP_PREFIX,X
NEW_PREFIX7	; 
			RTS
;
;
			eject

*
*
* 13) SAVE PATH AS SOURCE PATH FOR OPEN FILE
*
*	ENTRY : WS_PATH	= PATHNAME
*	..._PREFIX = CURRENT PREFIX
*
*	EXIT	: SRCPATH	= NEW SRCPATH
*
*

		EXPORT	NEW_SRCPATH
NEW_SRCPATH		;		
*
* IS A VOLUME SPECIFIED ?
*
			JSR		CHKSLASH	;IS A VOLUME HERE ?
			BCS		NEWSRCPTH3	;SLASH, REPLACE CURRENT SRCPATH
*
* APPEND -- SRCPATH = CURRENT PREFIX + PATHNAME
* 1) MOVE CURRENT PREFIX	2) MOVE PATHNAME
*
			BIT		PFI_NAMING
			BMI		NEWSRCPTH2A	; AFP PREFIX
;
			LDX		PRO_PREFIX
			BEQ		NEWSRCPTH1A	;NO PREFIX
NEWSRCPTH1	; 
			LDA		PRO_PREFIX,X
			STA		SRCPATH,X
			DEX
			BPL		NEWSRCPTH1	;MORE TO MORE
;
NEWSRCPTH1A	; 
			LDY		#00
			LDX		PRO_PREFIX
NEWSRCPTH2	; 
			INX
			INY
			LDA		WS_PATH,Y
			STA		SRCPATH,X
			CPY		WS_PATH
			BNE		NEWSRCPTH2	;MORE TO MOVE
;
			CLC
			LDA		PRO_PREFIX
			ADC		WS_PATH
			STA		SRCPATH		;UPDATE LENGTH OF SRCPATH
			RTS
;
;
NEWSRCPTH2A	; 
			LDX		AFP_PREFIX
			BEQ		NEWSRCPTH2C	;NO PREFIX
NEWSRCPTH2B	; 
			LDA		AFP_PREFIX,X
			STA		SRCPATH,X
			DEX
			BPL		NEWSRCPTH2B	;MORE TO MORE
;
NEWSRCPTH2C	; 
			LDY		#00
			LDX		AFP_PREFIX
NEWSRCPTH2D	; 
			INX
			INY
			LDA		WS_PATH,Y
			STA		SRCPATH,X
			CPY		WS_PATH
			BNE		NEWSRCPTH2D	;MORE TO MOVE
;
			CLC
			LDA		AFP_PREFIX
			ADC		WS_PATH
			STA		SRCPATH		;UPDATE LENGTH OF SRCPATH
			RTS
*
* SRCPATH IS ONLY PATHNAME (NO PREFIX)
*
NEWSRCPTH3	; 
			LDX		WS_PATH		;MOVE NEW PATH AS PREFIX
NEWSRCPTH4	; 
			LDA		WS_PATH,X
			STA		SRCPATH,X
			DEX
			BPL		NEWSRCPTH4	;MORE TO MOVE
			RTS
;
;
			eject

*
*
*	14) CHK_PRODOS	- CHECK PRODOS FORMAT
*
*
* ENTRY : WS_PATH	= PATHNAME TO BE EXAMINES
*
* EXIT	: CARRY SET MEAN UNACCEPTABLE
*
*
		EXPORT	CHK_PRODOS
CHK_PRODOS		;		
*
* IS THE LENGTH ACCEPTABLE ?
*
			LDA		WS_PATH
			BEQ		BAD_PRODOS
			CMP		#$41
			BCS		BAD_PRODOS
*
* INITIALIZE NAME COUNT
*
			LDA		#$FF
			STA		NAME_CNT
			LDX		#$01		;OFFSET IN NAME
*
* GET NEXT CHARACTER
*
CHK_PRODOS1	; 
			LDA		WS_PATH,X
			AND		#%01111111	;'STRIP OFF HIGH BIT'
			CMP		#$2F		;DELIMITER ?
			BNE		CHK_PRODOS2	;NO IT IS SOMETHING ELSE
;
			LDY		NAME_CNT	;CHECK SEGMENTS LENGTH
			CPY		#$FF		;FIRST CHARACTER ?
			BEQ		CHK_PRODOS4
			CPY		#$10
			BCS		BAD_PRODOS
;
			LDA		#$FF
			STA		NAME_CNT
;
			LDA		#$2F		;IT WAS A SLASH !!!!
			BRA		CHK_PRODOS4	;SAVE CHARACTER
*
* CONVERT TO UPPER CASE
*
CHK_PRODOS2	; 
			CMP		#$61
			BCC		CHK_PRODOS3	;SAVE CHARACTER
			AND		#$5F
*
* IS THIS THE FIRST CHARACTER ?
*
CHK_PRODOS3	; 
			INC		NAME_CNT	;ONE MORE CHARACTER IN NAME
			BNE		CHK_PRODOS3A
			INC		NAME_CNT
			BRA		CHK_PRODOS3B	;CHECK FOR ALPHA ONLY
;
*
* IT IS A '.' AND A NUMBER ?
*
CHK_PRODOS3A	; 
			CMP		#$2E
			BEQ		CHK_PRODOS4	;IT WAS A '.'
			CMP		#$30
			BCC		BAD_PRODOS
			CMP		#$3A
			BCC		CHK_PRODOS4	;IT WAS A NUMBER
*
* IT IS A LETTER ?
*
CHK_PRODOS3B	; 
			CMP		#$41
			BCC		BAD_PRODOS
			CMP		#$5B
			BCS		BAD_PRODOS
*
* SAVE THE MODIFED CHARACTER
*
CHK_PRODOS4	; 
			STA		WS_PATH,X
*
* ARE THERE MORE CHARACTERS TO PROCESS ?
*
			CPX		WS_PATH
			BEQ		CHK_PRODOS5
			INX
			BRA		CHK_PRODOS1	;LOOK AT NEXT CHARACTER
*
* IS THE LAST SEGMENT SHORT ENOUGTH ?
*
CHK_PRODOS5	; 
			LDY		NAME_CNT	;CHECK SEGMENTS LENGTH
			CPY		#$FF		;LAST CHARACTER A SLASH ??
			BEQ		cp_CLEAR
;
			CPY		#$10		;OVERSIZE ??
			BCS		BAD_PRODOS
;
cp_CLEAR	CLC
			RTS					;CARRY CLEARED - NO PROBLEMS
;
;
*
* UNACCEPTABLE PRODOS NAME
*
BAD_PRODOS	; 
			SEC
			RTS
			eject

*
*
*	15) STUFF_FINDER - STUFF THE FINDER WITH FILE TYPE/CREATER
*
*
* ENTRY : WS_COMBUF = PACKET BUFFER
*	WS_PLIST	= WORKSTATION PARAMETER LIST
*	X	= NEXT BYTE TO BE USED
*
* EXIT	: NONE
*
*
		EXPORT	STUFF_FINDER
STUFF_FINDER		;		
				RTS
			eject

*
*
*	16) PDOS_BITMAP - SET/CLEAR PRODOS SYSTEM BITMAP
*
*
* ENTRY : X = HB OF IO BUFFER
*	C = SET/CLEAR BITMAP FLAG
*
* EXIT	: NONE
*
*
		EXPORT	PDOS_BITMAP
PDOS_BITMAP		;		
*
* SAVE CARRY AND HB OF IO BUFFER
*
			LDA		#$00
			ROL		a					;MOVE CARRY INTO [A]
			STA		REMAINDER
;
			TXA
			STA		UWORK1
			AND		#%00000111
			STA		UWORK2		;SAVE BIT OFFSET
			LSR		UWORK1
			LSR		UWORK1
			LSR		UWORK1		;SAVE BYTE OFFSET
*
* is there a local ProDOS ??
*
			lda		Active8
			bne  	pb_Cont
			clc
			rts
*
* IS THIS A SET OR A CLEAR OF THE BITMAP ???
*
pb_CONT		LDA		REMAINDER
			BEQ		pb_CLEARBITS
*
* SET THE BIT IN THE BITMAP
*
			LDA		#$04
			STA		PKT_CNT		;SHOULD SET ALL FOUR BITS
			LDY		UWORK1
			LDX		UWORK2
;
pb_SETBIT1	LDA		WS_PREPATH,Y
			ORA		SET_BITS,X
			STA		WS_PREPATH,Y
;
			INX
			CPX		#$08		;WRAP AROUND
			BNE		pb_SETBIT2	;OK
			LDX		#$00
			INY					;MOVE TO NEXT BIT
;
pb_SETBIT2	LDA		PKT_CNT
			DEC		a
			STA		PKT_CNT
			BNE		pb_SETBIT1
			BRA		pb_RETURN_BITS
;
;
*
* CLEAR THE BIT MAP
*
pb_CLEARBITS	LDA		#$04
			STA		PKT_CNT		;SHOULD CLEAR ALL FOUR BITS
			LDY		UWORK1
			LDX		UWORK2
;
pb_CLEBIT2	LDA		WS_PREPATH,Y
			AND		CLEAR_BITS,X
			STA		WS_PREPATH,Y
;
			INX
			CPX		#$08		;WRAP AROUND
			BNE		pb_CLEBIT3	;OK
			LDX		#$00
			INY					;MOVE TO NEXT BIT
;
pb_CLEBIT3	LDA		PKT_CNT
			DEC		a
			STA		PKT_CNT
			BNE		pb_CLEBIT2
*
* MOVE BITMAP TO CARD
*
pb_RETURN_BITS	LDA	#WS_PREPATH
			STA		<SRCBUF
			LDA		#>WS_PREPATH
			STA		<SRCBUF+1
			LDA		#^WS_PREPATH
			STA		<SRCBUF+2
;
			LDA		#<PDOS_GBL_BIT
			STA		<DESTBUF
			LDA		#>PDOS_GBL_BIT
			STA		<DESTBUF+1
			LDA		PFI_BANK
			STA		<DESTBUF+2
;
			LDA		#$18
			STA		<COUNT
			LDA		#00
			STA		<COUNT+1
;
			JSR		BUFFMOVE
			CLC
			RTS
;
;
			eject

*
*
*	17) CHK_BITMAP - CHECK PRODOS SYSTEM BITMAP
*
*
* ENTRY : X = HB OF IO BUFFER
*	Y = PAGES TO CHECK
*
* EXIT	: C = USED IF SET
*
*
		EXPORT	CHK_BITMAP
CHK_BITMAP		;		
			CPY		#$00
			BNE		cb_DOIT
			CLC					;NO PROBLEM
			RTS					;NO ejectS TO CHECK
;
cb_DOIT		STY		PKT_CNT		;ejectS TO BE CHECK
			STX		UWORK1		;HB OF IO BUFFER
;
			LDA		UWORK1
			AND		#%00000111
			STA		UWORK2		;SAVE BIT OFFSET
			LSR		UWORK1
			LSR		UWORK1
			LSR		UWORK1		;SAVE BYTE OFFSET
*
* is there a local ProDOS ??
*
			lda		Active8
			bne  	cb_Cont
			clc
			rts
*
* MOVE BITMAP TO CARD
*
cb_CONT		LDA		#WS_PREPATH
			STA		<DESTBUF
			LDA		#>WS_PREPATH
			STA		<DESTBUF+1
			LDA		#^WS_PREPATH
			STA		<DESTBUF+2
;
			LDA		#<PDOS_GBL_BIT
			STA		<SRCBUF
			LDA		#>PDOS_GBL_BIT
			STA		<SRCBUF+1
			LDA		PFI_BANK
			STA		<SRCBUF+2
;
			LDA		#$18
			STA		<COUNT
			LDA		#00
			STA		<COUNT+1
;
			JSR		BUFFMOVE
*
* ARE THE BITS ALREADY TAKEN ??
*
			LDY		UWORK1
			LDX		UWORK2
;
cb_CHKBIT1	LDA		WS_PREPATH,Y
			AND		SET_BITS,X
			BEQ		cb_CHKBIT2	;NOT SET
			SEC
			RTS					;ERROR !!!
;
cb_CHKBIT2	INX
			CPX		#$08		;WRAP AROUND
			BNE		cb_CHKBIT3	;OK
			LDX		#$00
			INY					;MOVE TO NEXT BIT
;
			CPY		#$18		;OVERFLOW ???? ($C000)
			BNE		cb_CHKBIT3
			SEC					;X & Y ARE SET UP
			RTS
;
cb_CHKBIT3	LDA		PKT_CNT
			DEC		a
			STA		PKT_CNT
			BNE		cb_CHKBIT1
								;
			CLC
			RTS					;BITMAP OK
;
;
SET_BITS	; 
	DC.B	%10000000
	DC.B	%01000000
	DC.B	%00100000
	DC.B	%00010000
	DC.B	%00001000
	DC.B	%00000100
	DC.B	%00000010
	DC.B	%00000001
;
CLEAR_BITS	; 
	DC.B	%01111111
	DC.B	%10111111
	DC.B	%11011111
	DC.B	%11101111
	DC.B	%11110111
	DC.B	%11111011
	DC.B	%11111101
	DC.B	%11111110
;
;
			eject

*
*
*	18) STRIP_PREFIX - REMOVE PREFIX FROM PATHNAME
*
* ENTRY : WS_PATH	= LOCATION OF PATHANME
*
* EXIT	: WS_PATH	= UPDATE PREFIX
*
* STRIP OFF THE PREFIX IF IT IS IN PATHNAME
* (ALLOWS COMPARSION OF FULL AND PARITAL PATHNAMES)
*
*

		EXPORT	STRIP_PREFIX
STRIP_PREFIX		;		
*
* IS THE FIRST CHARACTER A SLASH (FULL PATHNAME) ?
*
			JSR		CHKSLASH
			BCS		sp_STRIP0		;YES IT IS FULL
			RTS					;NOTHING TO DO !!!
*
* FIND WHICH PREFIX IS ACTIVE
*
sp_STRIP0		BIT		PFI_NAMING
			BMI		sp_STRIP2		;AFP NAMING
*
*
* PRODOS NAMING IS ACTIVE ;IS PREFIX IN PATHNAME ?
*
*
			LDY		PRO_PREFIX	;LENGTH OF PREFIX ?
			BEQ		sp_STRIPDONE	;NO PREFIX ACTIVE
			CPY		WS_PATH
			BCS		sp_STRIPDONE	;PATH TO SHORT !!!
;
sp_STRIP1	LDA		WS_PATH,Y
			CMP		PRO_PREFIX,Y
			BNE		sp_STRIPDONE	;YES IT IS THE SAME LETTER
			DEY
			BNE		sp_STRIP1
;
			LDY		PRO_PREFIX
			BRA		sp_STRIP3		;SHIFT PATHNAME
*
*
* AFP NAMING CONVENTION
*
* CHECK PATHNAME AGAINST PREFIX
*
*
sp_STRIP2	LDY		AFP_PREFIX	;LENGTH OF PREFIX ?
			BEQ		sp_STRIPDONE	;NO PREFIX ACTIVE
;
			CPY		WS_PATH
			BCS		sp_STRIPDONE	 ;PATH TO SHORT !!!
;
sp_STRIP2A	LDA		WS_PATH,Y
			CMP		AFP_PREFIX,Y
			BEQ		sp_STRIP2D	;YES IT IS THE SAME LETTER
*
* IS HI BIT SET?
*
			LDA		WS_PATH,Y	;IS HI BIT SET ???
			BMI		sp_STRIPDONE	;NOT CASE INSENSTIVE, NO MATCH
*
* CONVERT TO UPPER CASE
*
sp_STRIP2B	CMP		#$61
			BCC		sp_STRIP2C	;TEST CHARACTER
			AND		#$5F
;
sp_STRIP2C	CMP		#$41		;IS IT LT 'A' ?
			BCC		sp_STRIPDONE	;NO,FLUNK TEST
			CMP		#$5B		;IS IT GT 'Z' ?
			BCS		sp_STRIPDONE	;NO,FLUNK TEST
*
			LDA		WS_PATH,Y	;CHECK CASE INSENSITIVE
			EOR		#$20
			CMP		AFP_PREFIX,Y
			BNE		sp_STRIPDONE	;NO,FLUNK TEST
*
sp_STRIP2D	DEY
			BNE		sp_STRIP2A
;
			LDY		AFP_PREFIX
*
* PREFIX IS IN THE PATHNAME - STRIP IT OUT
*
sp_STRIP3	LDX		#$00
sp_STRIP3A	CPY		WS_PATH
			BEQ		sp_STRIP4
;
			INX					;
			INY
			LDA		WS_PATH,Y
			STA		WS_PATH,X
			BRA		sp_STRIP3A
;
sp_STRIP4	STX		WS_PATH
*
* ALL DONE FOR NOW
*
sp_STRIPDONE	RTS
;
;
*
*
*  18a) CHKDBL - Check for Double Slash in Path Name
*
* ENTRY : WS_PATH   = LOCATION OF PATHANME
*
* EXIT  : WS_PATH   = UPDATED PREFIX
*         c         = Set if there is an Error
*
*
		EXPORT	CHKDBL
CHKDBL		;		
*
* initilize flag to no Slash
*
			STZ		UWORK1
;
			LDY		WS_PATH		;is there a pathname
			BNE		a18_GET		;
;
			CLC					;no Path Present
			RTS
*
* get character
*
a18_GET		LDA		WS_PATH,Y
*
* if this is in ProDOS Naming Mode,
* strip  high Bit of Character
*
			BIT		PFI_NAMING
			BMI		a18_CHECK		;AFP NAMING
;
			AND		#%01111111	;strip high bit for ProDOS mode
*
* is the character a slash ?
*
a18_CHECK	CMP		#SLASH
			BEQ		a18_FOUND
;
			STZ		UWORK1		;clear slash flag
			BRA		a18_UPDATE		;no, not a slash
*
*         a Slash was found
* is this the second slash in a row ??
* if no, set the slash found flag
*
a18_FOUND	BIT		UWORK1
			BPL		a18_OK			;no, go set the flag
			SEC
			RTS					;two slashes in a Row
;
a18_OK		DEC		UWORK1
*
* are there any more characters ?
*
a18_UPDATE	DEY
			BNE		a18_GET
*
* is the last character a slash ??
*
			LDY		WS_PATH
			LDA		WS_PATH,Y
;
			BIT		PFI_NAMING
			BMI		a18_CHKLAST	;AFP NAMING
			AND		#%01111111	;strip high bit for ProDOS mode
a18_CHKLAST	CMP		#SLASH
			BNE		a18_DONE
;
; At this point we simply reduce the length byte by one so that the trailing
; slash becomes invisible.  If the pathname contains ONLY a slash, though, we
; should leave it as is so that the Invalid Pathname is recognized as such.

			DEC		WS_PATH		;reduce path size by one
			bne		a18_DONE	;pathname still has a length, continue
			inc		WS_PATH		;else make sure the slash stays put
;
a18_DONE	CLC
			RTS
;
;
			eject
*
*
*  18b) PDOS_DEVICE
*
* ENTRY : A = Device
*         C = set means update
*
* EXIT  : updated device table in global page
*
*

		EXPORT	PDOS_DEVICE
PDOS_DEVICE		;		
*
* save the carry & device number
*
			pha
			php
*
* is there a local ProDOS ??
*
			lda		Active8
			beq  	PDEV_X		;no local Prodos
*
* IS THIS IN UPDATE DEVICE TABLE MODE ??
*
			BIT		PFI_NAMING
			BVC		b18_DOIT		;UPDATE IS NEEDED
;
PDEV_X		PLP					;UNUSED
			PLA					;UNUSED
			RTS					;JUST LEAVE
*
* Pull device table into WS_COMBUF
*
b18_DOIT	lda		#WS_COMBUF
			sta		DESTBUF
			lda		#>WS_COMBUF
			sta		DESTBUF+1
			lda		#^WS_COMBUF
			sta		DESTBUF+2

			LDA		#$31
			STA		SRCBUF
			LDA		#$BF
			STA		SRCBUF+1
			LDA		PFI_BANK
			STA		SRCBUF+2

			LDA		#15
			STA		COUNT
			LDA		#00
			STA		COUNT+1

			JSR		BUFFMOVE
*
* is this add or remove ??
*
			plp
			bcc		clear
*
*
*  THIS IS THE SET SIDE
*
*
* 'all Network Volumes' update ??
*
			pla
			beq		b18_ALL_SET
			JSR		b18_one_set	;only set one !!!
			JMP		SAVEIT
;
;
b18_ALL_SET	LDA		NDT_CNT
			beq		b18_DONE		;no network volumes
;
			LDY		#$00
b18_NEXT	LDA		NDT_SESS,Y
			BEQ		b18_UPDATE
			lda		NDT_UNIT,y
			JSR		b18_one_set
b18_UPDATE	iny
			cpy		#14
			bne		b18_NEXT
			JMP		SAVEIT
;
b18_one_set
			and		#$F0			; is unit number = 0?
			beq		b18_DONE		; if 0, don't put device in device list
			ldx		WS_COMBUF
			inx
			STX		WS_COMBUF	;one more device
			inx
;			and		#$F0			; AND already done above
			ora		#$04
			sta		WS_COMBUF,X
b18_DONE	rts
;
;
*
*
*
*  THIS IS THE clear SIDE
*
*
* 'all Network Volumes' update ??
*
clear		pla
			beq		b18b_ALL_CLEAR
			JSR		b18b_one_clear	;only clear one !!!
			JMP		SAVEIT
;
;
b18b_ALL_CLEAR	LDA		NDT_CNT
			beq		b18b_DONE		;no network volumes
;
			LDY		#$00
b18b_NEXT	LDA		NDT_SESS,Y
			BEQ		b18b_UPDATE
			lda		NDT_UNIT,y
			JSR		b18b_one_clear
b18b_UPDATE	iny
			cpy		#14
			bne		b18b_NEXT
			JMP		SAVEIT
;
;
b18b_one_clear	LDX		WS_COMBUF
			INX
;
			and		#$F0
			ora		#$04
b18b_loop	CMP		WS_COMBUF,x
			beq		b18b_FOUND
			dex
			bne		b18b_loop		;not Found Yet
			rts					;not Here, o well
;
b18b_FOUND		CPX		#14
			BEQ		b18b_WIPEOUT
;
b18b_MOVE		LDA		WS_COMBUF+1,X
			STA		WS_COMBUF,X
			INX
			CPX		#14
			BNE		b18b_MOVE
;
b18b_WIPEOUT	STZ		WS_COMBUF+14
			DEC		WS_COMBUF
b18b_DONE	rts
;
;
*
* RETURN RESULTS TO $BF31
*
SAVEIT	; 
			lda		#WS_COMBUF
			STA		SRCBUF
			lda		#>WS_COMBUF
			STA		SRCBUF+1
			lda		#^WS_COMBUF
			STA		SRCBUF+2
;
			LDA		#$31
			sta		DESTBUF
			LDA		#$BF
			sta		DESTBUF+1
			LDA		PFI_BANK	;LAST BANK USED
			STA		DESTBUF+2
;
			LDA		#15
			STA		COUNT
			LDA		#00
			STA		COUNT+1
;
			JMP		BUFFMOVE
;
;
*
*
*  17) REMOVE_DEV -
*
* ENTRY :
*
*
* EXIT  : updated device table
*
*
		EXPORT	REMOVE_DEV
REMOVE_DEV		;
*
* is there a local ProDOS ??
*
			lda		Active8
			beq  	RMV_X		;no local Prodos
*
* IS THIS IN UPDATE DEVICE TABLE MODE ??
*
			BIT		PFI_NAMING
			BVC		c18_DOIT		;UPDATE IS NEEDED

RMV_X		RTS					;JUST LEAVE
*
* Pull device table into WS_COMBUF
*
c18_DOIT	lda		#WS_COMBUF
			sta		DESTBUF
			lda		#>WS_COMBUF
			sta		DESTBUF+1
			lda		#^WS_COMBUF
			sta		DESTBUF+2
;
			LDA		#$31
			STA		SRCBUF
			LDA		#$BF
			STA		SRCBUF+1
			LDA		PFI_BANK
			STA		SRCBUF+2
;
			LDA		#15
			STA		COUNT
			LDA		#0
			STA		COUNT+1
;
			JSR		BUFFMOVE
*
* CLEAR ALL AUN FROM DEVICE TABLE
*
			LDY		#$00
c18_NEXT	LDA		AUN_RAM,Y
			BEQ		c18_UPDATE
			JSR		c18_one_clear
c18_UPDATE	iny
			cpy		#14
			bne		c18_NEXT
			JMP		c18_SAVEIT
;
;
c18_one_clear	LDX		WS_COMBUF
			INX
;
			and		#$F0
			ora		#$04
c18_loop	CMP		WS_COMBUF,x
			beq		c18_FOUND
			dex
			bne		c18_loop		;not Found Yet
			rts					;not Here, o well
;
c18_FOUND	CPX		#14
			BEQ		c18_WIPEOUT
;
c18_MOVE	LDA		WS_COMBUF+1,X
			STA		WS_COMBUF,X
			INX
			CPX		#14
			BNE		c18_MOVE
;
c18_WIPEOUT	STZ		WS_COMBUF+14
			DEC		WS_COMBUF
c18_DONE	rts
;
;
*
* RETURN RESULTS TO $BF31
*
c18_SAVEIT		lda		#WS_COMBUF
			STA		SRCBUF
			lda		#>WS_COMBUF
			STA		SRCBUF+1
			lda		#^WS_COMBUF
			STA		SRCBUF+2
;
			LDA		#$31
			sta		DESTBUF
			LDA		#$BF
			sta		DESTBUF+1
			LDA		PFI_BANK	;LAST BANK USED
			STA		DESTBUF+2
;
			LDA		#15
			STA		COUNT
			LDA		#00
			STA		COUNT+1
;
			JMP		BUFFMOVE
;
;

*
*
* 19) INTO_ATTRI : CONVERT PRODOS ACCESS BYTES INTO
*	AFP ATTRIBUTE BYTE
*
* ENTRY : ACCESS	= FILE OR DIRECTORY ATTRIBUTES
*	A	= TYPE (80=DIR/00=FILE)
*
* EXIT	: ATTRIBUTE = FILE ATTRIBUTE (AFP)
*
*

		EXPORT	INTO_ATTRI
INTO_ATTRI		;		
*
* SAVE TYPE
*
			PHA
;
;----> 10/02/87   TE
;
;*
;* IS THIS A FILE OR A DIRECTORY ??
;*
								;AND #%10000000
								;BEQ :OVER ;FILE TYPE
;
								;LDA ACCESS ;IN CASE BACKUP BIT IS USED
								;ORA #$C3 ;FULL ACCESS
								;STA ACCESS
;
;----> END
;
*
* SET HB OF ATTRIBUTES
*
* BIT 0 = DELETE INHIBIT
*
ia_OVER		LDA		#$80
			BIT		ACCESS
			BMI		IN_ATT1
			ORA		#%00000001	;SET DELETE BIT
IN_ATT1	; 
			STA		ATTRIBUTE+1
			ORA		#%01111110	;REVERSE OTHER BITS
			EOR		#%11111111	;
			STA		ATTRIBUTE+3	;HB OF CLEAR INFO
*
* STUFF LB OF ATTRIBUTES
*
			LDA		#0
			ROR		ACCESS
			ROR		ACCESS
			BCS		IN_ATT3
			ORA		#%00100000	;SET READ ONLY BIT
IN_ATT3	; 
			ROR		ACCESS
			BCC		IN_ATT3A
			ORA		#%00000001	;SET READ ONLY BIT
IN_ATT3A ;
			ROL		ACCESS
			ROL		ACCESS
			ROL		ACCESS
			ROL		ACCESS
			BIT		ACCESS
			BMI		IN_ATT4
			ORA		#%10000000	;SET RENAME BIT
IN_ATT4	; 
			BVC		IN_ATT5
			ORA		#%01000000	;SET BACKUP BIT
IN_ATT5	; 
			STA		ATTRIBUTE
			ORA		#%00011110	;REVERSE OTHER BITS
			EOR		#%11111111
			STA		ATTRIBUTE+2
;
;
;
;----->10/05/87 TE
;
*
* RESTORE TYPE
*
			PLA
;
;----> 11/19/87 te per Pat DIRKS
;
;
								;BPL :EXIT ;IT IS A FILE
;
								;LDA ATTRIBUTE ;IS THERE A RENAME ?
								;BMI :MOVELOCK ;BIT 7 IS SET !!!
								;LDA ATTRIBUTE+1
								;ROR
								;BCS :MOVELOCK ;BIT 8 IS SET !!!
								;
								;LDA ATTRIBUTE+3
								;ORA #%00000010 ;CLEAR MOVE INHIBIT !!!
								;STA ATTRIBUTE+3
								;BRA :EXIT
								;
								;:MOVELOCK LDA ATTRIBUTE+1
								;ORA #%00000010 ;SET MOVE INHIBIT !!!
								;STA ATTRIBUTE+1
ia_EXIT		RTS
;
;----> END
;
;
;
;
;
			eject

*
*
* 20) FROM_ATTRI : CONVERT PFI ATTRIBUTE BYTES INTO
*	PRODOS ACCESS BYTE
*
* ENTRY : ATTRIBUTE = FILE ATTRIBUTE (AFP)
*	A	= TYPE (80=DIR/00=FILE)
*
* EXIT	: ACCESS	= FILE OR DIRECTORY ATTRIBUTES
*
*

		EXPORT	FROM_ATTRI
FROM_ATTRI		;		
*
* SAVE TYPE
*
			PHA
*
* TRANSFORM HB OF ATTRIBUTES INTO ACCESS
*
			LDA		#$01		;ALWAYS SET READ BIT !!!
			ROR		ATTRIBUTE+1	;ROTATE HB
			BCS		ATTRI1
			ORA		#%10000000	;SET DELETE BIT
*
* TRANSFORM LB OF ATTRIBUTES INTO ACCESS
*
ATTRI1	; 
			ROL		ATTRIBUTE	;ROTATE LB
			BIT		ATTRIBUTE
			BPL		ATTRI3
			ORA		#%00100000	;SET BACKUP BIT
ATTRI3	; 
			BVS		ATTRI4
			ORA		#%00000010	;SET WRITE BIT
ATTRI4	; 
			BCS		ATTRI5
			ORA		#%01000000	;SET REANEM BIT
ATTRI5	; 
			ROR		ATTRIBUTE	;ROTATE LB
			ROR		ATTRIBUTE	;ROTATE LB
			BCC		ATTRI6
			ORA		#%00000100	;SET invisible BIT
ATTRI6  ;			
			STA		ACCESS
*
* LOOK AT TYPE
*
			PLA
fa_OVER		RTS
;
;
			eject

*
* 21) CALC_DIRINFO: CALCULATE DIRCTORY BLOCKS/BYTES
*
*	HEADER BLOCK = MAX 12 ENTRIES
*	OTHER BLOCK = MAX 13 ENTRIES
*
* ENTRY : OFFSPRING - 2 BYTES
*
* EXIT	: FILE_BLKS - 2 BYTES
*	FILE_SIZE - 3 BYTES
*
* LOCAL VARIABLES :
*	REMAINDER	- 3 BYTES
*	BYTE_COUNT - 1 BYTE
*
*
* EQUATES
*
FULL_ENBLK	equ		$0D			;MAX ENTRIES TO FILL UP FILE_BLKS (LB)
*
*

		EXPORT	CALC_DIRINFO
CALC_DIRINFO		;		
*
* COUNT HEADER BLOCK
*
			LDX		#$00
			LDA		OFFSPRING
;
			JSR		DBLKS1		;GO TO COUNT HB OF BLKS
;
			STA		FILE_BLKS+1	;SAVE # OF BLKS IN HB
*
* CHECK REMAINDER
*
			LDX		REMAINDER
			LDA		OFFSPRING+1
;
			JSR		DBLKS1		;GO TO COUNT LB OF BLKS
;
			STA		FILE_BLKS	;SAVE # OF BLKS IN LB
			INC		FILE_BLKS
*
* CALCULATE # OF BYTES
*
			STZ		FILE_SIZE
			CLC
			LDA		FILE_BLKS
			ROL		a
			STA		FILE_SIZE+1
			LDA		FILE_BLKS+1
			ROL		a
			STA		FILE_SIZE+2
			RTS					;END OF CALC_DIRINFO
;
;
*
* COUNT # OF BLOCKS FOR HB/LB OF FILE_BLKS
*
DBLKS1	; 
			STA		REMAINDER
			STX		REMAINDER+1
			LDA		#$FF		;INITIALIZE BYTE_COUNT
			STA		BYTE_COUNT
*
* IS FILE SIZE LARGER THAN 13*256 ENTRIES?
*
DBLKS2	; 
			INC		BYTE_COUNT	;INCREMENT # OF BLOCKS
			SEC
			LDA		REMAINDER
			SBC		#FULL_ENBLK
			STA		REMAINDER
			BCS		DBLKS2		;LF YES, KEEP COUNT HB
								;
			LDA		REMAINDER+1
			BEQ		DBLKS4
			DEC		REMAINDER+1	;DECREMENT HB OF FILE SIZE
			BRA		DBLKS2
;
DBLKS4	; 
			CLC					;GET REMAINDER ORIGIN
			LDA		#$0D
			ADC		REMAINDER
			STA		REMAINDER
			LDA		BYTE_COUNT	;RETURN # OF BLOCKS
			RTS					;END OF SUBROUTINE
;
;
			eject

*
*
* 22) BYTE2BLKS : CONVERT # OF BYTES INTO # OF BLOCKS
*	1 BLOCK = 512 BYTES
*
* ENTRY : FILE_SIZE - 4 BYTES
*
* EXIT	: FILE_BLKS - 2 BYTES
*
* EQUATES
*
MAXFILE0	equ		$01			;HB
MAXFILE1	equ		$FF			;MIDHB
MAXFILE2	equ		$FE			;MIDLB
MAXFILE3	equ		$00			;LB
*
*

		EXPORT	BYTE2BLKS
BYTE2BLKS		;		
*
* CHECK OVERFLOW
*
*
*
			SEC
			LDA		#MAXFILE3	;LB
			SBC		FILE_SIZE+3
			LDA		#MAXFILE2	;MIDLB
			SBC		FILE_SIZE+2
			LDA		#MAXFILE1	;MIDHB
			SBC		FILE_SIZE+1
			LDA		#MAXFILE0
			SBC		FILE_SIZE+0	;HB
			BCS		BYTE0		;OK, GO ON
;
			LDA		#$FF		;OVERFLOW ERROR
			STA		FILE_BLKS	;END OF BYTE2BLKS
			STA		FILE_BLKS+1
			RTS
*
* FIND NUMBER OF FULL BLOCKS
*
BYTE0	; 
			LDA		FILE_SIZE
			LSR		a			;MOVE LOW BIT INTO CARRY
			LDA		FILE_SIZE+1
			ROR		a			;MOVE IN HI BIT - MOVE OUT LOW BIT
			STA		FILE_BLKS+1
			LDA		FILE_SIZE+2
			ROR		a			;MOVE IN HI BIT - MOVE OUT LOW BIT
			STA		FILE_BLKS
*
* IS THERE A PARTIAL BLOCK ?
*
			LDA		FILE_SIZE+3	;ANYTHING IN LAST BYTE OF FILE_SIZE?
			BNE		BYTE2		;ADD ONE BLOCK
			LDA		FILE_SIZE+2
			AND		#%00000001
			BNE		BYTE2		;ADD ONE BLOCK
;
*
* IF NUMBER OF BLOCK = 0 THEN MAKE IT = 1
*
			LDA		FILE_BLKS
			ORA		FILE_BLKS+1
			BNE		b2b_DONE
			INC		FILE_BLKS	;MAKE IT ONE
b2b_DONE	RTS					;END OF BYTE2BLKS
*
* ADD ONE TO NUMBER OF BLOCKS
*
BYTE2	; 
			CLC
			LDA		FILE_BLKS
			ADC		#$01
			STA		FILE_BLKS
			LDA		FILE_BLKS+1
			ADC		#$00
			STA		FILE_BLKS+1
			RTS
;
;
;
			eject

*
*
* 23) INTO_SEC : CONVERT PRODOS TIME INTO AFP TIME
*
* ENTRY : PRO_TIME - 4 BYTES
*
* EXIT	: AFP	- 4 BYTES
*
*

		EXPORT	INTO_SEC
INTO_SEC		;		
			LDA		PRO_TIME
			ORA		PRO_TIME+1
			ORA		PRO_TIME+2
			ORA		PRO_TIME+3
			BNE		INTO_SEC1	;NOT DEFAULT
*
* SET DEFAULT TIME
*
			LDA		#$80
			STA		AFP
			STZ		AFP+1
			STZ		AFP+2
			STZ		AFP+3
			RTS
*
* CONVERT FROM PRODOS TIME INTO AFP TIME
*
INTO_SEC1	; 
			JSR		B1_PRO2CLK
			JSR		B1_CLK2STD
			JSR		B1_STD2AFP
			RTS
;
;
			eject

*
*
* 24) FROM_SEC : CONVERT AFP TIME INTO PRODOS TIME
*
* ENTRY : AFP	- 4 BYTES
*
* EXIT	: PRO_TIME - 4 BYTES
*
*

		EXPORT	FROM_SEC
FROM_SEC		;		
			LDA		AFP
			CMP		#$80
			BNE		FROM_SEC1	;NOT DEFAULT
			LDA		#$00
			ORA		AFP+1
			ORA		AFP+2
			ORA		AFP+3
			BNE		FROM_SEC1	;NOT DEFAULT
*
* SET DEFAULT
*
			LDX		#$03
FROM_SEC0	; 
			STZ		PRO_TIME,X
			DEX
			BPL		FROM_SEC0
			RTS
*
* CONVERT SECONDS TO PRODOS TIME
*
FROM_SEC1	; 
			JSR		B1_AFP2STD
			JSR		B1_STD2CLK
			JSR		B1_CLK2PRO
			RTS
;
;
			eject

*
*
* 25) GET THE EOF FOR AN OPEN	FILE
*
*	ENTRY : UFILEIDX	= HEAP NUMBER FOR ASP HEAP
*
*	EXIT	: FILE_SIZE = EOF FOR FILE
*
*

		EXPORT	FILE_GETEOF
FILE_GETEOF		;		
;
;---->11/07/87 te -- drop box
;
*
* if this is an open ($C8) & it is in drop box Mode,
* then get EOF from table
*
			LDX		UFILEIDX
			LDA		UTYPE,X
			AND		#$08		;bit 3 = normal open ($C8) ???
			BEQ		fg_OVER		;no, special open
;
			LDA		UMODE,X
			CMP		#$32		;drop box ??
			BNE		fg_OVER		;no, some other mode
;
;
			LDA		UDIRID1,X
			STA		FILE_SIZE
			LDA		UDIRID2,X
			STA		FILE_SIZE+1
			LDA		UDIRID3,X
			STA		FILE_SIZE+2
			RTS
;
;---->
;
*
* CREATE GET FORK INFO PACKET
*
fg_over	; 
			LDA		#GETFORKPARM
			STA		WS_COMBUF	;SAVE COMMAND
			STZ		WS_COMBUF+1
;
			LDX		UFILEIDX
			LDA		USRVNUM1,X
			STA		WS_COMBUF+2	;SAVE FILE REFERENCE # - HB
			LDA		USRVNUM2,X
			STA		WS_COMBUF+3	;SAVE FILE REFERENCE # - LB
;
			BIT		UTYPE,X
			BVC		fg_SETDATA
			LDA		#%00000100	;RESOURCE FORK - SIZE OF DATA
			BRA		fg_SETBITS
;
fg_SETDATA	LDA		#%00000010	;DATA FORK - SIZE OF DATA
fg_SETBITS	STA		WS_COMBUF+4	;SAVE HB OF FILE BITMAP
			STZ		WS_COMBUF+5
;
			LDA		#$06
			STA		PKT_CNT
			STZ		PKT_CNT+1
*
* ISSUE AFP GET FORK PARMS
*
			JSR		CMD_ROUTING
			BEQ		FIL_GTEOF1	;NO ERROR
			RTS					;ERROR, EXIT NOW !!!
*
* CHECK FOR OVERFLOW
*
FIL_GTEOF1	; 
			LDA		WS_COMBUF+2	;HIGHEST BYTE OF LENGTH
			BEQ		FIL_GTEOF2	;NO,OVERFLOW
;
			LDA		#$FF
			STA		FILE_SIZE
			STA		FILE_SIZE+1
			STA		FILE_SIZE+2
			RTS
*
* SAVE SIZE OF FILE IN WORK AREA
*
FIL_GTEOF2	; 
			LDA		WS_COMBUF+3	;HB
			STA		FILE_SIZE+2
			LDA		WS_COMBUF+4	;MB
			STA		FILE_SIZE+1
			LDA		WS_COMBUF+5	; LB
			STA		FILE_SIZE
			RTS
;
;
			eject

*
*
* 26) GET THE EOF FOR AN OPEN	DIRECTORY
*
*	ENTRY : UFILEIDX	= HEAP NUMBER FOR ASP HEAP
*
*	EXIT	: FILE_SIZE = EOF FOR FILE
*
*

		EXPORT	DIR_GETEOF
DIR_GETEOF		;		
*
* CREAT AFP GET FILE/DIRECTORY PARAMETER
*
			LDA		#GETFDINFO
			STA		WS_COMBUF	 ;SAVE COMMAND
			STZ		WS_COMBUF+1	;SAVE ZERO
;
			JSR		STUFF_DIRIDS
;
			STZ		WS_COMBUF+8	;SAVE ZERO IN FILE BITMAP (HB)
			STZ		WS_COMBUF+9	;SAVE ZERO IN FILE BITMAP (LB)
								;
			LDA		#%00000010	;# OF OFFSPRING
			STA		WS_COMBUF+$0A	;SAVE DIR BITMAP HB
			STZ		WS_COMBUF+$0B	;SAVE ZERO IN DIR BITMAP LB
;
			LDA		#$02
			STA		WS_COMBUF+$0C	;LONG NAME
			STZ		WS_COMBUF+$0D	;NO LENGTH FOR NAME
;
			LDA		#$0E
			STA		PKT_CNT
			STZ		PKT_CNT+1
*
* ISSUE AFP GET FILE/DIRECTORY PARMS
*
			JSR		CMD_ROUTING
			BEQ		DIR_GTEOF1	;NO ERROR IN CALL
			RTS					;ERROR,EXIT NOW !!!
*
* CALCULATE THE NUMBER OF BLOCKS IN THE DIRECTORY
*	FIND # OF BYTES
*
DIR_GTEOF1	; 
			LDA		WS_COMBUF+$06
			STA		OFFSPRING
			LDA		WS_COMBUF+$07
			STA		OFFSPRING+1
;
			JMP		CALC_DIRINFO
;
;
		ENDP

		end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/ATRam/PFI/PFI_cmdsubs4.aii b/IIGS.601.SRC/GS.OS/Drivers/ATRam/PFI/PFI_cmdsubs4.aii
new file mode 100644
index 0000000..a230ba2
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/ATRam/PFI/PFI_cmdsubs4.aii
@@ -0,0 +1 @@
+
;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

	IMPORT	ACCESS
	IMPORT	AFP
	IMPORT	ATTRIBUTE
	IMPORT	BYTE2BLKS
	IMPORT	CALC_DIRINFO
	IMPORT	CMD_ROUTING
	IMPORT	CMD_STUFF
	IMPORT	ENTRY_CNT
	IMPORT	FILE_BLKS
	IMPORT	FILE_SIZE
	IMPORT	FROM_ATTRI
	IMPORT	FROM_SEC
	IMPORT	HOLD_IOPTR
	IMPORT	NETWORK_CALL
	IMPORT	OFFSPRING
	IMPORT	PFI_BANK
	IMPORT	PFI_IOBUF
	IMPORT	PFI_NAMING
	IMPORT	PFI_NETCNT
	IMPORT	PFI_NETMARK
	IMPORT	PKT_CNT
	IMPORT	PKT_OFFSET
	IMPORT	PROCESS_CNT
	IMPORT	PRO_TIME
	IMPORT	RETURNPL
	IMPORT	SIZE_ALLOWED
	IMPORT	START_IDX
	IMPORT	STUFF_DIRIDS
	IMPORT	UBUFPTRH
	IMPORT	UBUFPTRL
	IMPORT	UCURBLKH
	IMPORT	UCURBLKL
	IMPORT	UDIRID1
	IMPORT	UDIRID2
	IMPORT	UDIRID3
	IMPORT	UDIRID4
	IMPORT	UENMASK
	IMPORT	UEOB1
	IMPORT	UEOB2
	IMPORT	UEOB3
	IMPORT	UERROR
	IMPORT	UFILECNTH
	IMPORT	UFILECNTL
	IMPORT	UFILEIDX
	IMPORT	UFILELOC
	IMPORT	UMARK1
	IMPORT	UMARK2
	IMPORT	UMARK3
	IMPORT	UMODE
	IMPORT	UNLCHAR
	IMPORT	USRVNUM1
	IMPORT	USRVNUM2
	IMPORT	USTATUS
	IMPORT	UTRANCNT
	IMPORT	UTYPE
	IMPORT	UVOLID1
	IMPORT	UVOLID2
	IMPORT	UWORK1
	IMPORT	WRT_CHK3
	IMPORT	WS_COMBUF
	IMPORT	WS_DIRBUF
	IMPORT	WS_PATH
	IMPORT	WS_PLIST
	IMPORT	XBUFPTR
	IMPORT	buffmove
	IMPORT	getzp1parm

;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

	ENTRY	CHK_FIRST
	ENTRY	CONVERT_CHAR
	ENTRY	MOVE_ENTRY
	ENTRY	READ_BLK
	ENTRY	READ_DIR
	ENTRY	WRITE_BLK
	ENTRY	WRITE_STUFF
	ENTRY	ZERO_IOBUF
	ENTRY	dummy_fill
*
* pfi_cmdsubs4
*
* Greg Seitz (11-Aug-87)
*
*
;		EXPORT	zpcmdscs4	
;zpcmdscs4	PROC
		INCLUDE	'zp.equates'
;		ENDP
		include	'global.equates'
		include	'pfi_equates'
		
		EXPORT	pficmdsubs4	
pficmdsubs4	PROC
			longa	off
			longi	off

			
			
*
*	PARAMIS NETWORK SOFTWARE
*
*
*
*	CONFIDENTIAL
*
*
* MODULE : PFI4 - PRODOS FILING INTERFACE	(PART 4)
*	COMMON SUBROUTINES (PART2)
*
*	WRITTEN BY THOMAS EAGERR
*
*	MODIFIED: 06-15-87	4:18	TE
*
*	COPYRIGHT 1986,87 PARAMIS CORPORATION
*
* ALL RIGHTS RESERVED
*
*
			
			
*
*
*	COMMON SUBROUTINES :
*
* A: READ/WRITE BUFFER CONTROL SUBROUTINES
*
*	1) BLKCNTL	- BLOCK CONTROL (ONE BLOCK AT A TIME)
*	2) READ_BLK	- READ A BLOCK FOR IO BUFFER
*	3) READ_DIR	- CREATE A DIR BLOCK FOR IO BUFFER
*	4) WRITE_BLK	- WRITE A BLOCK FROM IO BUFFER
*	5) RD_CHKCNTL	- READ CHUNK CONTROL (MULIT BLKS)
*	6) WRT_CHKCNTL	- WRITE CHUNK CONTROL(MULIT BLKS)
*	7) WRITE_STUFF	- STUFF ASP HEAP WITH WRT DEFAULT VALUES
*	8) ZERO_IOBUF	- ZERO ALL OR PART OF THE IO BUFFER
*	9) CMD_STUFF	- STUFF ASP HEAP WITH CMD DEFAULT VALUES
*	10) MOVE_ENTRY	- MOVE DIRECTORY ENTRY TO MOTHERBOARD
*	11) GETCOUNT	- CALC CNT OF BYTES TO MOVE & MOVE MARK
*	12) SETTRCNT	- SET TRANSFER COUNT FOR READ AND WRITE
*	13) RW_SETUP	- SETUP FOR READ AND WRITE
*
*
			
			eject
			
*
*
*	1) BLOCK CONTROL ROUTINE
*
*	ENTER : USTATUS	= STATUS OF IO BUFFER
*	UFILEIDX = INDEX TO USTATUS
*
*	EXIT	: USTATUS	= UPDATED
*	UCURBLK	= UPDATED DATA IN IO BUFFER
*
			
		EXPORT	BLKCNTL
BLKCNTL		;		
*
* HAS THIS BLOCK BEEN READ IN YET ?
*
			LDX		UFILEIDX
			LDA		USTATUS,X
			AND		#%00001000	;HAS BLOCK BEEN READ ?
			BEQ		BLKCNTL1	;NO, MUST READ IT
*
* IS THE MARK WITHIN THE CURRENT BLOCK ?
*
			LDA		UCURBLKH,X	;CHECK CURRENT BLOCK
			CMP		UMARK3,X	;AGAINST MARK
			BNE		BLKCNTL1	;NO, MUST READ IT
;
			LDA		UMARK2,X
			AND		#%11111110
			CMP		UCURBLKL,X	
			BEQ		BLKCNTL2	;GO CHECK THE STATUS !!!
*
* IT IS TIME TO READ THE BLOCK !!!
* SET STATUS TO FORCE READ
*
BLKCNTL1	; 
			LDA		USTATUS,X	;FIND CURRENT STATUS
			AND		#%11110111	;REMOVE - BLK HAS BEEN READ
			ORA		#%00000100	;ADD	- FORCE READ
			STA		USTATUS,X	;SAVE RESULT AS STATUS
*
* CHECK STATUS -- IS A WRITE OR A READ REQUIRED ?
*
BLKCNTL2	; 
			LDA		USTATUS,X
			AND		#%00000110	;FORCE READ OR WRITE ?
			BNE		BLKCNTL3	;YES IT IS TIME FOR ONE
			LDA		UERROR
			RTS					;EXIT,NOTHING TO DO !!!
*
* HAS THIS BLOCK HAD DATA WRITTEN INTO IT ?
*
BLKCNTL3	; 
			LDA		USTATUS,X
			AND		#%00000001	;BLOCK WRITTEN INTO ?
			BEQ		BLKCNTL4	;NO DATA WRITTEN, CHECK READ STATUS
*
* WRITE CURRENT BLOCK TO SERVER !!!
*
			JSR		WRITE_BLK
			BNE		BLKCNTL8	;ERROR, EXIT NOW
*
* IS A READ REQUIRED ?
*
BLKCNTL4	; 
			LDX		UFILEIDX
			LDA		USTATUS,X
			AND		#%00000100	;READ ?
			BEQ		BLKCNTL8	;NO READ NEEDED !
*
* READ BLOCK
* IF IT IS A DIRECTORY -- NEED TO CREATE BLOCK !!
*
BLKCNTL5	; 
			LDA		UTYPE,X
			BPL		BLKCNTL6	;IT WAS A FILE
;
			JSR		READ_DIR	;CREATE A BLOCK
			BEQ		BLKCNTL7	;SET STATUS - BLOCK HAS BEEN READ
			BRA		BLKCNTL8	;ERROR - EXIT NOW !!
*
* IT IS A FILE - GO READ BLOCK IN IO BUFFER
*
BLKCNTL6	; 
			JSR		READ_BLK
			BNE		BLKCNTL8	;ERROR - EXIT NOW !!
*
* SET READ STATUS---BLOCK HAS BEEN READ INTO IO BUFFER !!
*
BLKCNTL7	; 
			LDX		UFILEIDX
			LDA		USTATUS,X
			ORA		#%00001000
			STA		USTATUS,X
*
* UPDATE EOB AND CURRENT BLK
*
			CLC
			LDA		PKT_CNT		;UPDATE TRANS COUNT
			ADC		#$00
			STA		UEOB1,X		;AND EOB
;
			LDA		UMARK2,X
			AND		#%11111110
			STA		UCURBLKL,X
			ADC		PKT_CNT+1
			STA		UEOB2,X
;
			LDA		UMARK3,X
			STA		UCURBLKH,X
			ADC		#$00
			STA		UEOB3,X
*
* RESET STATUS - KEEP ONLY EOF , BLOCK HAS BEEN READ
*
BLKCNTL8	; 
			LDX		UFILEIDX
			LDA		USTATUS,X
			AND		#%10001000	;CLEAR STATUS
			ORA		#%00001000
			STA		USTATUS,X
			LDA		UERROR
			RTS
;
;
			eject
			
*
*
* 2) READ BLOCK FOR A FILE FROM A SERVER
*	(INTO IO BUFFER)
*
*	ENTRY : UFILEIDX = INDEX TO FILE INFO
*	WS_PLIST = MLI PARAMETER LIST
*
*	EXIT	: UCURBLK	= DATA IN IO BUFFER
*
*
			
		EXPORT	READ_BLK
READ_BLK		;		
*
* ARE WE AT THE EOF ?
*
			LDX		UFILEIDX
			LDA		USTATUS,X	;EOF ?
			BPL		READ_BLK0A	;NOT AT THE END OF THE FILE !!!
;
;
;
;----->>> 8/6/87
;
			LDA		UMARK2,X	;IF EOF IS IN THIS BLOCK
			AND		#%00000001	;AT LEAST READ UP TO IT
			ORA		UMARK1,X
			BNE		READ_BLK0A
;
;----->>>
;
;
			STZ		PKT_CNT		;NO DATA - LB
			STZ		PKT_CNT+1	;NO DATA - HB
			JMP		READ_BLK3	;STUFF IO BUFFER WITH ZEROS
;
;----> 9/30/87 te
;
*
* initialize values
*
* 1. mark to file
* 2. request count
* 3. buffer location
*
READ_BLK0A	; 
			LDX		UFILEIDX
			STZ		PFI_NETMARK
			LDA		UMARK2,X
			AND		#%11111110
			STA		PFI_NETMARK+1
			LDA		UMARK3,X
			STA		PFI_NETMARK+2
;
			STZ		PFI_NETCNT
			LDA		#2
			STA		PFI_NETCNT+1
;
			LDA		UBUFPTRL,X
			STA		PFI_IOBUF	;LB OF IO BUFFER
			LDA		UBUFPTRH,X
			STA		PFI_IOBUF+1	;SAVE HB OF IO BUFFER
;
;---->
;
*
* CREATE READ FORK PACKET
*
READ_BLK0	; 
			LDA		#READFORK
			STA		WS_COMBUF	;SAVE COMMAND
			STZ		WS_COMBUF+$01
*
			LDX		UFILEIDX
			LDA		USRVNUM1,X
			STA		WS_COMBUF+$02	;SAVE REF# - HB
			LDA		USRVNUM2,X
			STA		WS_COMBUF+$03	;SAVE REF# - LB
*
			STZ		WS_COMBUF+$04	;NOT USED BY PRODOS
;
			LDA		PFI_NETMARK+2	 ;setup mark
			STA		WS_COMBUF+$05
			LDA		PFI_NETMARK+1
			STA		WS_COMBUF+$06
			LDA		PFI_NETMARK
			STA		WS_COMBUF+$07
*
			STZ		WS_COMBUF+$08
			STZ		WS_COMBUF+$09
			LDA		PFI_NETCNT+1
			STA		WS_COMBUF+$0A
			LDA		PFI_NETCNT
			STA		WS_COMBUF+$0B
*
			STZ		WS_COMBUF+$0C	;NO NEWLINE CHECK
			STZ		WS_COMBUF+$0D	;NEWLINE SPACE (NOT USED)
*
* CREATE ASP COMMAND PARAMETER LIST
*
			LDA		#$0E
			STA		PKT_CNT
			STZ		PKT_CNT+1
;
			JSR		CMD_STUFF
;
			LDY		#$0F
			LDA		PFI_NETCNT
			STA		(ZP1),Y		;SAVE LB OF REPLY LEN
			INY
			LDA		PFI_NETCNT+1
			STA		(ZP1),Y		;SAVE HB OF REPLY LEN
;
			INY
			LDA		PFI_IOBUF
			STA		(ZP1),Y		;SAVE LB OF IO BUFFER
			INY
			LDA		PFI_IOBUF+1
			STA		(ZP1),Y		;SAVE HB OF IO BUFFER
;
;
			INY
			LDA		PFI_BANK	;BANK
			STA		(ZP1),Y		;
			INY
			LDA		#$00
			STA		(ZP1),Y		;NOT USED BY PRODOS
*
* ISSUE ASP COMMAND CALL
*
			JSR		NETWORK_CALL	;EXECUTE COMMAND
*
* RESTORE ASP PARAMETER LIST POINTER
*
			jsr		getzp1parm
*
* FIND REPLY LENGTH
*
			LDY		#$19
			LDA		(ZP1),Y
			STA		PKT_CNT		;SAVE REPLY LENGTH - LB
			INY
			LDA		(ZP1),Y
			STA		PKT_CNT+1	;SAVE REPLY LENGTH - HB
*
* CHECK AFP COMMAND RESULT
*
			LDA		UERROR
			BEQ		READ_BLK5	;NO ERROR, FULL BLOCK
			CMP		#$4C		;EOF ?
			BEQ		READ_BLK1	;YES, ERROR WAS EOF !!!
			RTS					;ERROR , TIME TO EXIT !!!
*
* EOF ERROR CONDITION (FILL IO BUFFER WITH ZEROS)
*
READ_BLK1	; ;CLEAR ERROR
			STZ		UERROR		;CLEAR ERROR CODE
			LDX		UFILEIDX
;
			LDA		PKT_CNT
			ORA		PKT_CNT+1
			BNE		rblk_READ_BLK2A	;THERE IS SOME DATA
;
			LDA		#%10001000	;SET EOF STATUS== NO DATA
			BRA		rblk_READ_BLK2B
;
rblk_READ_BLK2A	LDA		#%00001000	;BLOCK HAS BEEN READ
rblk_READ_BLK2B	STA		USTATUS,X
*
* DID I GET A FULL BLOCK BACK ?
*
			LDA		PKT_CNT
			BNE		READ_BLK3	;FILL THE REST WITH ZEROS !!!
			LDA		PKT_CNT+1
			CMP		#$02		;512 BLOCK ?
			BEQ		READ_BLK4	;YES, IT WAS A FULL BLOCK
*
* FILL THE REST OF THE BLOCK WITH ZEROS
*
READ_BLK3	; 
			JSR		ZERO_IOBUF
*
* RETURN TO BLOCK CONTROL !!!
*
READ_BLK4	; 
			LDA		UERROR
			RTS
;
;----> 9/30/87 te
*
* how much of the block is left
*
READ_BLK5	; 
			SEC
			LDA		PFI_NETCNT
			SBC		PKT_CNT
			STA		PFI_NETCNT
			LDA		PFI_NETCNT+1
			SBC		PKT_CNT+1
			STA		PFI_NETCNT+1
;
*
* is there any data left ??
*
			LDA		PFI_NETCNT
			ORA		PFI_NETCNT+1
			BNE		rblk_UPDATE
;
			LDA		UERROR
			RTS
;
*
* update buffer location and file offset
*
rblk_UPDATE	CLC
			LDA		PFI_NETMARK
			ADC		PKT_CNT
			STA		PFI_NETMARK
			LDA		PFI_NETMARK+1
			ADC		PKT_CNT+1
			STA		PFI_NETMARK+1
			LDA		PFI_NETMARK+2
			ADC		$00
			STA		PFI_NETMARK+2
;
			CLC
			LDA		PFI_IOBUF
			ADC		PKT_CNT
			STA		PFI_IOBUF
			LDA		PFI_IOBUF+1
			ADC		PKT_CNT+1
			STA		PFI_IOBUF+1
			JMP		READ_BLK0	;try it again
;
;-----> end
;
;
			eject
			
*
*
*	3) READ FOR A DIRECTORY BLOCK
*
*	ENTER : UMARK	= OFFSET IN DIRECTORY
*	UFILEIDX = INDEX TO UMARK
*	UBLKPTR	= LOCATION OF IO BUFFER
*
*	EXIT	: UERROR	= RESULT OF FILL ATTEMPT
*	UBUFPTR? = HAS DIRECTORY BLOCK IN IT
*
			
		EXPORT	READ_DIR
READ_DIR		;		
*
* IS THE EOF FLAG SET
*
			LDX		UFILEIDX
			LDA		USTATUS,X
			BPL		READ_DIR0	;STATUS OK
;
;
;----->>> 8/6/87
;
			LDA		UMARK2,X	;IF EOF IS IN THIS BLOCK
			AND		#%00000001	;AT LEAST READ UP TO IT
			ORA		UMARK1,X
			BNE		READ_DIR0
;
;----->>>
;
			JMP		READ_DIR37A	;NO DATA TO READ !!
*
* INITIALIZE VALUES
*
READ_DIR0	; 
			LDX		UFILEIDX	;INDEX FOR OPEN FILE
			LDA		UBUFPTRL,X
			STA		HOLD_IOPTR
			LDA		UBUFPTRH,X
			STA		HOLD_IOPTR+1
;
			LDA		#$01
			STA		START_IDX
			STZ		START_IDX+1
;
			STZ		ENTRY_CNT	;ENTRIES IN BLOCK
			LDA		#$07
			STA		PROCESS_CNT	;HALF OF BUFFER TO PROCESS
*
* IS THE MARK IN BLOCK ZERO ?
*
			LDA		UMARK3,X
			BNE		READ_DIR1
			LDA		UMARK2,X
			CMP		#$02
			BCS		READ_DIR1
			BRA		READ_DIR2
;
;
*
* THIS IS NOT THE HEADER BLOCK !!!
*
READ_DIR1	; 
*
* FIND NUMBER OF BLOCKS
*
			LDA		UMARK3,X
			LSR		A			;LOW BIT IN CARRY
			STA		FILE_BLKS+1
			LDA		UMARK2,X
			ROR		A			;SHIFT DOWN ON & ADD CARRY
			STA		FILE_BLKS
*
* FIND START INDEX
* DO HIGH BYTE CHECK FIRST (13*256)
*
ENT_256		equ		13*256
*
			LDX		FILE_BLKS+1
			BEQ		READ_DIR1B
READ_DIR1A	; 
			CLC
			LDA		START_IDX+1
			ADC		#>ENT_256
			STA		START_IDX+1
			DEX
			BNE		READ_DIR1A
;
READ_DIR1B	; 
			LDX		FILE_BLKS
			BEQ		READ_DIR1D	;FINISHED
READ_DIR1C	; 
			CLC
			LDA		START_IDX
			ADC		#$0D
			STA		START_IDX
			LDA		START_IDX+1
			ADC		#$00
			STA		START_IDX+1
			DEX
			BNE		READ_DIR1C
;
*
* TIME TO ENUMERATE
*
READ_DIR1D	; 
			SEC
			LDA		START_IDX	;ACCOUNT FOR HEADER ENTRY
			SBC		#$01
			STA		START_IDX
			LDA		START_IDX+1
			SBC		#$00
			STA		START_IDX+1
			JMP		READ_DIR17	;SKIP CREATION OF HEADER !!
;
;
			
*
*
* TIME TO CREATE A HEADER ENTRY FOR A DIRECTORY
*
*
* STUFF GET FIL/DIR INFO
*
READ_DIR2	; 
			LDA		#GETFDINFO
			STA		WS_COMBUF
			STZ		WS_COMBUF+1
;
			JSR		STUFF_DIRIDS	;SAVE VOL & DIR IDS
;
;
			LDA		#%00000010		;HB OF FILE BITMAP
			STA		WS_COMBUF+$08	;DATA FORK LENGTH
			LDA		#%01000101		;LB OF FILE BITMAP
			STA		WS_COMBUF+$09	;ATTRIBUTES,CREATE DATE,PATH
;
			LDA		#%00000010		;HB OF DIR BITMAP
			STA		WS_COMBUF+$0A	;# OF OFFSPRING
			LDA		#%01000101		;LB OF DIR BITMAP
			STA		WS_COMBUF+$0B	;ATTRIBUTES,CREATE DATE,PATH
;
			LDA		#$02
			STA		WS_COMBUF+$0C	;LONG PATHNAME
			STZ		WS_COMBUF+$0D	;NO LENGTH
*
* ISSUE ASP CALL
*
			LDA		#$0E
			STA		PKT_CNT
			STZ		PKT_CNT+1
;
			JSR		CMD_ROUTING	;EXECUTE CALL
			BCC		READ_DIR3
			RTS					;ERROR IN GET INFO CALL
*
* SET ACCESS BYTES IN PL (WITH SOME TRANSLATION)
*
READ_DIR3	; 
			LDA		WS_COMBUF+7
			STA		ATTRIBUTE
			LDA		WS_COMBUF+6
			STA		ATTRIBUTE+1
;
			LDA		WS_COMBUF+4	;TYPE (80=DIR/00=FILE)
			JSR		FROM_ATTRI
;
			LDA		ACCESS
			STA		WS_DIRBUF+$22	;SAVE ACCESS
*
* FIND CREATION DATE & TIME
*
			LDX		#$03
READ_DIR4	; 
			LDA		WS_COMBUF+$08,X
			STA		AFP,X
			DEX
			BPL		READ_DIR4	;MORE OF AFP TIME TO MOVE
;
			JSR		FROM_SEC
;
			LDX		#$03
READ_DIR5	; 
			LDA		PRO_TIME,X
			STA		WS_DIRBUF+$1C,X
			DEX
			BPL		READ_DIR5	;MORE OF PRODOS TIME TO MOVE
*
* FIND DIRECTORY'S NAME (TRUCATE IF NEEDED)
*
;
;----> 11/06/87 TE
;
			LDA		WS_COMBUF+$10	;LENGTH OF PATH
			CMP		#$10
			BCC		READ_DIR6
						    	;
			LDA		#$3F	   	;'?'
			STA		WS_COMBUF+$1F	;CUT SHORT
			LDA		#$0F	   	;MAX LENGTH FOR NAME
						    	;
READ_DIR6	; 
			STA		WS_DIRBUF+$04	;SAVE LENGTH OF NAME
			BEQ		READ_DIR7A
			TAX
READ_DIR7	; 
			LDA		WS_COMBUF+$10,X
			JSR		CONVERT_CHAR
			STA		WS_DIRBUF+$04,X
			DEX
			BNE		READ_DIR7	;MORE OF NAME TO MOVE
			;
			JSR		CHK_FIRST
*
* ZERO OUT REST OF NAME FIELD
*
READ_DIR7A	; 
			LDX		WS_DIRBUF+$04
rdir_LOOP	CPX		#$0F
			BEQ		rdir_DONE		;ALL DONE
			INX
			STZ		WS_DIRBUF+$04,X
			BRA		rdir_LOOP
;
;----> END OF CHANGE
;
*
* # OF ENTRIES
*
;
;-----> 11/04/87 te
;
rdir_DONE	LDX		UFILEIDX
			LDA		WS_COMBUF+$0E	;HB OF COUNT
			STA		UFILECNTH,X
			STA		WS_DIRBUF+$26
			LDA		WS_COMBUF+$0F
			STA		UFILECNTL,X
			STA		WS_DIRBUF+$25
;
;----->
;
*
* STUFF DEFAULT VALUES
*
READ_DIR10	; 
			LDX		#7
READ_DIR11	; 
			STZ		WS_DIRBUF+$14,X	;ZERO RESERVED AREA
			DEX
			BPL		READ_DIR11
;
			LDA		#$10
			STA		WS_DIRBUF+$20	;VERSION
			LDA		#$00
			STA		WS_DIRBUF+$21	;MIN VERSION
;
			LDA		#$27
			STA		WS_DIRBUF+$23	;LENGTH OF ENTRY
			LDA		#$0D
			STA		WS_DIRBUF+$24	;ENTRIES PER BLOCK
								;
			STZ		WS_DIRBUF+$27	;BITMAP PTR
			STZ		WS_DIRBUF+$28	;BITMAP PTR
*
* IS THIS A VOLUME ?
* (IF DIRCTORY ID'S = $00 00 00 02 THEN YES)
*
			LDX		UFILEIDX
			LDA		UDIRID1,X
			BNE		READ_DIR12	;NOT THE VOLUME
			LDA		UDIRID2,X
			BNE		READ_DIR12	;NOT THE VOLUME
			LDA		UDIRID3,X
			BNE		READ_DIR12	;NO THE VOLUME
			LDA		UDIRID4,X
			CMP		#$02		;ROOT ?
			BEQ		READ_DIR13	;YES, IT IS THE VOLUME !!!
*
* DIRECTORY :
* SAVE STORAGE TYPE & LAST TWO BYTES OF HEADER
*
READ_DIR12	; 
			LDA		WS_DIRBUF+$04
			ORA		#$E0
			STA		WS_DIRBUF+$04
;
			STZ		WS_DIRBUF+$29	;PARENT ENTRY #
			LDA		#$27
			STA		WS_DIRBUF+$2A	;PARENT LENGTH
			BRA		READ_DIR16	;MOVE HEADER TO MOTHERBOARD BUF
;
;
*
* VOLUME :
* CREATE GET VOL PARMS
*
READ_DIR13	; 
			LDA		WS_DIRBUF+$22
			AND		#%00100000	;SAVE BACKUP BIT
			ORA		#%00000001	;READ ENABLE
			STA		WS_DIRBUF+$22	;SAVE ACCESS
*
* CREATE GET VOL PARMS
*
			LDA		#GETVOLPARMS
			STA		WS_COMBUF		;SAVE	AFP COMMAND
			STZ		WS_COMBUF+1		;SAVE ZERO
;
			LDA		UVOLID1,X
			STA		WS_COMBUF+$02	;SAVE VOLUME ID - HB
			LDA		UVOLID2,X
			STA		WS_COMBUF+$03	;SAVE VOLUME ID - LB
;
;
			STZ		WS_COMBUF+$04	;SAVE BITMAP - HB
			LDA		#%10000000		;TOTAL BYTES
			STA		WS_COMBUF+$05	;SAVE BITMAP - LB
*
* ISSUE AFP GET VOLUME PARAMETERS
*
			LDA		#$06
			STA		PKT_CNT
			STZ		PKT_CNT+1
			JSR		CMD_ROUTING
			BCC		READ_DIR14	;GOT INFO OK
			RTS
*
* SAVE STORAGE TYPE
*
READ_DIR14	; 
			LDA		WS_DIRBUF+$04
			ORA		#$F0
			STA		WS_DIRBUF+$04
*
* FIND TOTAL BLOCKS AVAILABLE ON SERVER VOLUME
*
			LDX		#$03
READ_DIR15	; 
			LDA		WS_COMBUF+$02,X
			STA		FILE_SIZE,X
			DEX
			BPL		READ_DIR15	;MORE TO MOVE
;
			JSR		BYTE2BLKS
			LDA		FILE_BLKS
			STA		WS_DIRBUF+$29	;LB OF TOTAL BLOCKS AVAIL
			LDA		FILE_BLKS+1
			STA		WS_DIRBUF+$2A	;HB OF TOTAL BLOCKS AVAIL
;
;
*
* MOVE DIRCETORY HEADER INTO IO BUFFER
*
READ_DIR16	; 
			JSR		MOVE_ENTRY
			DEC		START_IDX	;MOVE IT BACK TO ONE !!!
			DEC		PROCESS_CNT	;ONLY GET SIX OF THEM
;
;
			
*
* TIME TO PREPARE FOR AN EMUNERATE CALL
* CREATE PACKET
*
READ_DIR17	; 
			LDA		#ENUMERATE
			STA		WS_COMBUF	;SAVE COMMAND
			STZ		WS_COMBUF+$01
;
			JSR		STUFF_DIRIDS	;SAVE VOL & DIR IDS
;
			LDA		#%00100110	;PRODOS TYPE,SIZE (DATA & RESOURCE)
			STA		WS_COMBUF+$08	;FILE BITMAP - HB
;
			LDA		#%00100010	;PRODOS TYPE,SIZE
			STA		WS_COMBUF+$0A	;DIR	BITMAP - HB
;
			LDA		#%01001101	;NAME,MOD TIME,CREATION,ATTRI
			STA		WS_COMBUF+$09	;FILE BITMAP - LB
			STA		WS_COMBUF+$0B	;DIR	BITMAP - HB
;
			STZ		WS_COMBUF+$0C	;REQUEST COUNT - HB
			LDA		PROCESS_CNT
			STA		WS_COMBUF+$0D	;REQUEST COUNT - LB
;
			LDA		START_IDX+1
			STA		WS_COMBUF+$0E	;START INDEX - HB
			LDA		START_IDX
			STA		WS_COMBUF+$0F	;START INDEX - LB
;
			LDA		#$02
			STA		WS_COMBUF+$10	;MAX SIZE RESPONSE - HB
			STZ		WS_COMBUF+$11	;MAX SIZE RESPONSE - LB
;
			LDA		#$02
			STA		WS_COMBUF+$12	;NAME TYPE
			STZ		WS_COMBUF+$13	;NO LENGTH
*
* ISSUE AFP ENUMERATE CALL
*
			LDA		#$14
			STA		PKT_CNT
			STZ		PKT_CNT+1
			JSR		CMD_ROUTING
			BCC		READ_DIR18
*
* IS THERE AN EOF CONDITION ?
*
			LDA		UERROR
			CMP		#$44		;NOT FOUND !!
			BEQ		READ_DIR17A	;ANOTHER ERROR
			RTS
*
* ZERO OUT BUFFER
*
READ_DIR17A	; 
			STZ		UERROR		;CLEAR ERROR
			JMP		READ_DIR37	;ZERO OUT DATA BLOCK
*
* INIT ZP0 TO POINT TO WS_COMBUF, PACKET COUNTER
*
READ_DIR18	; 
			LDA		#WS_COMBUF+6	;POINTER TO FIRST STRUCTURE
			STA		<ZP0
			LDA		#>WS_COMBUF+6
			STA		<ZP0+1
;
			STZ		PKT_CNT
*
* IS THIS ENTRY INVISABLE ?
*
READ_DIR19	; 
*
* SAVE ACCESS FOR PACKET ENTRY
*
READ_DIR19A	; 
			LDY		#$02
			LDA		(ZP0),Y
			STA		ATTRIBUTE+1	;SAVE HB OF ATTRIBUTES
			INY
			LDA		(ZP0),Y
			STA		ATTRIBUTE	;SAVE LB OF ATTRIBUTES
;
			LDY		#$01		;TYPE (80=DIR/00=FILE)
			LDA		(ZP0),Y
			JSR		FROM_ATTRI
			LDA		ACCESS
			STA		WS_DIRBUF+$22	;SAVE ACCESS
*
* SAVE CREATION TIME AND DATE
*
			LDY		#$04
READ_DIR20	; 
			LDA		(ZP0),Y
			STA		AFP-4,Y
			INY
			CPY		#$08
			BNE		READ_DIR20	;MOVE TIME INTO WORK AREA
;
			JSR		FROM_SEC
;
			LDX		#$03
READ_DIR21	; 
			LDA		PRO_TIME,X
			STA		WS_DIRBUF+$1C,X
			DEX
			BPL		READ_DIR21
*
* SAVE MOD TIME AND DATE
*
			LDY		#$08
READ_DIR22	; 
			LDA		(ZP0),Y
			STA		AFP-8,Y
			INY
			CPY		#$0C
			BNE		READ_DIR22	;MOVE TIME INTO WORK AREA
;
			JSR		FROM_SEC
;
			LDX		#$03
READ_DIR23	; 
			LDA		PRO_TIME,X
			STA		WS_DIRBUF+$25,X
			DEX
			BPL		READ_DIR23
*
* IS IT A FILE OR A DIRECTORY ?
*
			LDY		#$01
			LDA		(ZP0),Y
			BNE		READ_DIR23A
			JMP		READ_DIR28
*
* FIND DIRECTORY'S NAME (TRUCATE IF NEEDED)
*
;
;----> 11/06/87 TE
;
READ_DIR23A	; 
			LDY		#$16
			LDA		(ZP0),Y		;LENGTH OF PATH
			CMP		#$10
			BCC		READ_DIR24
			LDY		#$25
			LDA		#$3F
			STA		(ZP0),Y		;'*' TO ASK CUT SHORT
			LDA		#$0F		;MAX LENGTH FOR NAME
READ_DIR24	; 
			STA		WS_DIRBUF+$04	;SAVE LENGTH OF NAME
;
;
			CLC
			ADC		#$16		;OFFSET IN PACKET
			TAY
rd24_LOOP	LDA		(ZP0),Y
			JSR		CONVERT_CHAR
			STA		WS_DIRBUF-$12,Y	;($12= $16-$04)
			DEY
			CPY		#$16
			BNE		rd24_LOOP		;MORE OF NAME TO MOVE
			;
			JSR		CHK_FIRST
;
;---->
;
*
* FIND BLOCKS USED FOR A DIRECTORY
*
			LDY		#$0E
			LDA		(ZP0),Y
			STA		OFFSPRING
			INY
			LDA		(ZP0),Y
			STA		OFFSPRING+1
;
			JSR		CALC_DIRINFO
;
			LDA		FILE_BLKS
			STA		WS_DIRBUF+$17
			LDA		FILE_BLKS+1
			STA		WS_DIRBUF+$18
;
			LDX		#$02
READ_DIR27	; 
			LDA		FILE_SIZE,X
			STA		WS_DIRBUF+$19,X
			DEX
			BPL		READ_DIR27
			LDY		#$10		;OFFSET TO PRODOS INFO
			JMP		READ_DIR31	;SAVE PRODDOS INFO
;
;
*
* FIND FILE'S NAME (TRUCATE IF NEEDED)
*
;
;----> 11/06/87
;
READ_DIR28	; 
			LDY		#$1C
			LDA		(ZP0),Y		;LENGTH OF PATH
			CMP		#$10
			BCC		READ_DIR28A
;
			LDY		#$2B
			LDA		#$3F
			STA		(ZP0),Y		;'?' TO ASK CUT SHORT
			LDA		#$0F		;MAX LENGTH FOR NAME
READ_DIR28A	; 
			STA		WS_DIRBUF+$04	;SAVE LENGTH OF NAME
;
			CLC					;
			ADC		#$1C		;OFFSET IN PACKET
			TAY
rd28_LOOP	LDA		(ZP0),Y
			JSR		CONVERT_CHAR
			STA		WS_DIRBUF-$18,Y	;($18= $1C-$04)
			DEY
			CPY		#$1C
			BNE		rd28_LOOP		;MORE OF NAME TO MOVE
			;
			JSR		CHK_FIRST
;
;----> END
;
*
* FIND # OF BLOCKS IN FILE
*
READ_DIR28B	; 
			LDX		UFILEIDX
			LDA		UTYPE,X
			AND		#%00100000
			BEQ		x_RD_DIR28BA	;NOT BOTH FILE TYPES
;
			CLC					;ADD DATA FORK LENGTH TO RESOURCE LENGTH
			LDY		#$11		;LB OF LENGTH
			LDA		(ZP0),Y
			LDY		#$15
			ADC		(ZP0),Y
			LDY		#$11
			STA		(ZP0),Y
;
			LDY		#$10		;ML OF LENGTH
			LDA		(ZP0),Y
			LDY		#$14
			ADC		(ZP0),Y
			LDY		#$10
			STA		(ZP0),Y
;
			LDY		#$0F		;MH OF LENGTH
			LDA		(ZP0),Y
			LDY		#$13
			ADC		(ZP0),Y
			LDY		#$0F
			STA		(ZP0),Y
;
			LDY		#$0E		;HB OF LENGTH
			LDA		(ZP0),Y
			LDY		#$12
			ADC		(ZP0),Y
			LDY		#$0E
			STA		(ZP0),Y
			BCC		x_RD_DIR28BB	;NO, OVERFLOW
;
			LDA		#$FF		;OVERFLOW, Y = $0E
			STA		(ZP0),Y
			BRA		x_RD_DIR28BB	;DON'T ADD !!!
;
;
*
* WAS IT FOR A RESOURCE FORK ?
*
x_RD_DIR28BA	LDX		UFILEIDX
			BIT		UTYPE,X
			BVC		x_RD_DIR28BB	;DATA FORK
;
			LDY		#$15		;LB OF LENGTH
			LDA		(ZP0),Y
			LDY		#$11
			STA		(ZP0),Y
;
			LDY		#$14		;ML OF LENGTH
			LDA		(ZP0),Y
			LDY		#$10
			STA		(ZP0),Y
;
			LDY		#$13		;MH OF LENGTH
			LDA		(ZP0),Y
			LDY		#$0F
			STA		(ZP0),Y
;
			LDY		#$12		;HB OF LENGTH
			LDA		(ZP0),Y
			LDY		#$0E
			STA		(ZP0),Y
*
* CHECK OUT DATA BLOCKS
*
x_RD_DIR28BB	LDY		#$0E
			LDX		#$00
READ_DIR28C	; 
			LDA		(ZP0),Y
			STA		FILE_SIZE,X
			INX
			INY
			CPY		#$12
			BNE		READ_DIR28C
;
			JSR		BYTE2BLKS
;
			LDA		FILE_BLKS
			STA		WS_DIRBUF+$17
			LDA		FILE_BLKS+1
			STA		WS_DIRBUF+$18
*
* FIND THE END OF FILE FOR A FILE
*
			LDY		#$0E
			LDA		(ZP0),Y
			BEQ		READ_DIR29	;SIZE IS OK
;
			LDA		#$FF
			STA		WS_DIRBUF+$19
			STA		WS_DIRBUF+$1A
			STA		WS_DIRBUF+$1B
			BRA		READ_DIR31	;SAVE PRODOS INFO
;
READ_DIR29	; 
			INY
			LDX		#$02
READ_DIR30	; 
			LDA		(ZP0),Y
			STA		WS_DIRBUF+$19,X
			INY
			DEX
			BPL		READ_DIR30
*
* FIND PRODOS INFO
*
			LDY		#$16
READ_DIR31	; 
			LDA		(ZP0),Y
			STA		WS_DIRBUF+$14	;SAVE FILE TYPE
;
			INY					;SKIP UNUSED
			INY
			LDA		(ZP0),Y
			STA		WS_DIRBUF+$23	;SAVE LB OF AUX FIELD
			INY
			LDA		(ZP0),Y
			STA		WS_DIRBUF+$24	;SAVE HB OF AUX FIELD
*
* STUFF DEFAULT VALUES IN ENTRY
*
			STZ		WS_DIRBUF+$15	;KEY_POINTER
			STZ		WS_DIRBUF+$16	;KEY POINTER
;
			LDA		#$10
			STA		WS_DIRBUF+$20	;VERSION
			LDA		#$00
			STA		WS_DIRBUF+$21	;VERSION MIN
;
			STZ		WS_DIRBUF+$29	;HEADER POINTER
			STZ		WS_DIRBUF+$2A	;HEADER POINTER
;
;----> 11/06/87
*
* ZERO OUT REST OF NAME FIELD
*
			LDX		WS_DIRBUF+$04
rd31_LOOP2	CPX		#$0F
			BEQ		rd31_DONE		;ALL DONE
			INX
			STZ		WS_DIRBUF+$04,X
			BRA		rd31_LOOP2
;
;---->
;
*
* FIND THE STORAGE TYPE
*
rd31_done	; 
			LDY		#$01
			LDA		(ZP0),Y
			BEQ		READ_DIR31A
;
			LDA		#$D0		;STORAGE TYPE = DIRECTORY
			BRA		READ_DIR34
*
* IS THIS A TREE FILE ?
*
READ_DIR31A	; 
			LDA		FILE_BLKS+1
			LSR		A
			BNE		rd_TREE		;IS IT A TREE ?
			BCC		rd_NEXT		;NOT A TREE
			LDA		FILE_BLKS
			BEQ		rd_SAPLING
rd_TREE		LDA		#$30		;TREE !!!!
			BRA		READ_DIR34
;
rd_NEXT		LDA		FILE_BLKS
			LSR		A			;
			BEQ		rd_SEED		;
rd_SAPLING	LDA		#$20		;SAPLING !!!!!!
			BRA		READ_DIR34
rd_SEED		LDA		#$10		;SEEDLING !!!
*
* SAVE STORAGE TYPE
*
READ_DIR34	; 
			ORA		WS_DIRBUF+$04	;LENGTH OF NAME
			STA		WS_DIRBUF+$04
*
* MOVE ENTRY TO MOTHERBOARD
*
			JSR		MOVE_ENTRY
*
* IS THIS BUFFER FULL ?
*
			LDA		ENTRY_CNT
			CMP		#$0D		;FULL BLOCK ?
			BNE		READ_DIR35	;NO, THIS IS NOT EQUAL
								;
			LDX		UFILEIDX
			LDA		#%00001000	;BLOCK HAS BEEN READ
			STA		USTATUS,X	;CLEAR
;
			SEC
			LDA		HOLD_IOPTR
			SBC		UBUFPTRL,X
			STA		PKT_CNT		;LB OF LENGTH OF DATA
			LDA		HOLD_IOPTR+1
			SBC		UBUFPTRH,X
			STA		PKT_CNT+1	;HB OF LENGTH OF DATA
;
			JSR		ZERO_IOBUF	;ZERO UNUSED BYTES
;
			STZ		PKT_CNT
			LDA		#$02
			STA		PKT_CNT+1
;
			LDA		UERROR
			RTS
*
* AM I FINISHED MOVING THE PROCESS AMOUNT ?
*
READ_DIR35	; 
			LDA		PROCESS_CNT
			CMP		PKT_CNT
			BNE		READ_DIR36	;THIS HALF OF IO BUFFER IS DONE
;
			LDA		#$06
			STA		PROCESS_CNT	;($06) SECOND HALF OF IO BUFFER
			JMP		READ_DIR17	;ISSUE NEW CALL
*
* ARE THERE ANY MORE ENTRIES IN THIS BUFFER ?(LB ONLY)
*
READ_DIR36	; 
			LDA		PKT_CNT
			CMP		WS_COMBUF+$05
			BEQ		READ_DIR37	;NOT A FULL BLOCK (FILL WITH ZEROS)
*
* TIME TO PROCESS NEXT ENTRY IN BUFFER
*
			CLC
			LDA		(ZP0)		;LENGTH OF ENTRY
			ADC		<ZP0
			STA		<ZP0
			LDA		<ZP0+1
			ADC		#$00
			STA		<ZP0+1
			JMP		READ_DIR19
;
;
*
* FILL THE REST OF THE IO BUFFER WITH ZEROS
*
READ_DIR37	; 
			LDX		UFILEIDX
			SEC
			LDA		HOLD_IOPTR
			SBC		UBUFPTRL,X
			STA		PKT_CNT		;LB OF LENGTH OF DATA
			LDA		HOLD_IOPTR+1
			SBC		UBUFPTRH,X
;
			STA		PKT_CNT+1	;HB OF LENGTH OF DATA
			ORA		PKT_CNT		;IS THERE ANY DATA ??
			BEQ		READ_DIR37A	;SORRY THERE IS NO DATA
;
			LDX		UFILEIDX
			LDA		#%00001000	;BLOCK HAS BEEN READ
			STA		USTATUS,X	;CLEAR
;
;
			jsr		dummy_fill
;
			JSR		ZERO_IOBUF
;
			LDA		#$02
			STA		PKT_CNT+1
			STZ		PKT_CNT
;
			LDA		UERROR
			RTS
*
* SET EOF CONDITION
*
READ_DIR37A	; 
			LDX		UFILEIDX
			LDA		#%10001000	;EOF & BLK READ
			STA		USTATUS,X
;
			STZ		PKT_CNT
			STZ		PKT_CNT+1
			JSR		ZERO_IOBUF
			LDA		UERROR
			RTS
;
;
			eject
			
*
*
* 4) WRITE CURRENT IO BLOCK TO A SERVER
*
*	ENTRY : UFILEIDX = INDEX TO FILE INFO
*	UCURBLK	= DATA IN IO BUFFER
*	WS_PLIST = MLI PARAMETER LIST
*
*	EXIT	: USTATUS	= UPDATED
*
*
			
		EXPORT	WRITE_BLK
WRITE_BLK		;		
;
;----> 9/30/87 te
;
*
* initialize values
*
* 1. mark to file
* 2. request count
* 3. buffer location
*
			LDX		UFILEIDX
			STZ		PFI_NETMARK
			LDA		UCURBLKL,X
			STA		PFI_NETMARK+1
			LDA		UCURBLKH,X
			STA		PFI_NETMARK+2
;
			LDA		UEOB1,X
			STA		PFI_NETCNT
			SEC
			LDA		UEOB2,X
			SBC		UCURBLKL,X
			AND		#%00000011
			STA		PFI_NETCNT+1
;
			LDA		UBUFPTRL,X
			STA		PFI_IOBUF	;LB OF IO BUFFER
			LDA		UBUFPTRH,X
			STA		PFI_IOBUF+1	;SAVE HB OF IO BUFFER
;
;---->
;
*
* CREATE WRITE PACKET
*
WRITE_BLK0	; 
			LDA		#WRITEFORK
			STA		WS_COMBUF	 ;SAVE AFP COMMAND
			STZ		WS_COMBUF+$01	;SAVE START FLAG
;
			LDX		UFILEIDX
			LDA		USRVNUM1,X
			STA		WS_COMBUF+$02	;SAVE REF # - HB
			LDA		USRVNUM2,X
			STA		WS_COMBUF+$03	;SAVE REF # - LB
;
			STZ		WS_COMBUF+$04	;SAVE MARK
			LDA		PFI_NETMARK+2
			STA		WS_COMBUF+$05
			LDA		PFI_NETMARK+1
			STA		WS_COMBUF+$06
			LDA		PFI_NETMARK
			STA		WS_COMBUF+$07
;
			STZ		WS_COMBUF+$08	;SAVE REQ CNT
			STZ		WS_COMBUF+$09
			LDA		PFI_NETCNT+1
			STA		WS_COMBUF+$0A
			LDA		PFI_NETCNT
			STA		WS_COMBUF+$0B
*
* CREATE ASP WRITE PARAMETER LIST
* FIND ASP HEAP - STUFF DEFAULT VALUES
*
			JSR		WRITE_STUFF
*
* STUFF WRITE DATA BUFFER INFO (IO BUFFER)
*
			LDY		#$0F
			LDA		PFI_NETCNT
			STA		(ZP1),Y		;SAVE LB OF LENGTH
			INY
			LDA		PFI_NETCNT+1
			STA		(ZP1),Y		;SAVE HB OF LENGTH
;
			INY
			LDA		PFI_IOBUF	;SAVE LB OF BUFFER
			STA		(ZP1),Y
			INY
			LDA		PFI_IOBUF+1	;SAVE HB OF BUFFER
			STA		(ZP1),Y
;
;
			INY
			LDA		PFI_BANK
			STA		(ZP1),Y		;BANK
			INY
			LDA		#$00
			STA		(ZP1),Y		;OFF BOARD LOCATION
*
* ISSUES ASP WRITE CALL
*
			JSR		NETWORK_CALL
*
* WAS THERE AN ERROR ?
* CLEAR STATUS
*
			LDX		UFILEIDX
			LDA		USTATUS,X
			AND		#%00000100	;KEEP FORCE READ BIT
			STA		USTATUS,X
;
			LDA		UERROR
			BEQ		WRITE_BLK1
			RTS
*
* LOOK AT LENGTH OF REPLY
*
WRITE_BLK1	; 
			jsr		getzp1parm
;
;
;----> 9/30/87 te
;
			LDY		#$1F
			LDA		(ZP1),Y
			STA		PKT_CNT
			INY
			LDA		(ZP1),Y
			STA		PKT_CNT+1
;
*
* how much of the block is left
*
			SEC
			LDA		PFI_NETCNT
			SBC		PKT_CNT
			STA		PFI_NETCNT
			LDA		PFI_NETCNT+1
			SBC		PKT_CNT+1
			STA		PFI_NETCNT+1
;
*
* is there any data left ??
*
			LDA		PFI_NETCNT
			ORA		PFI_NETCNT+1
			BNE		wb_UPDATE
;
			LDA		UERROR
			RTS
;
*
* update buffer location and file offset
*
wb_UPDATE		CLC
			LDA		PFI_NETMARK
			ADC		PKT_CNT
			STA		PFI_NETMARK
			LDA		PFI_NETMARK+1
			ADC		PKT_CNT+1
			STA		PFI_NETMARK+1
			LDA		PFI_NETMARK+2
			ADC		$00
			STA		PFI_NETMARK+2
;
			CLC
			LDA		PFI_IOBUF
			ADC		PKT_CNT
			STA		PFI_IOBUF
			LDA		PFI_IOBUF+1
			ADC		PKT_CNT+1
			STA		PFI_IOBUF+1
			JMP		WRITE_BLK0	;try it again
;
;-----> end
;
;
*
*
* CONVERT CHARACTER IF NEEDED
*
* USED BY READ_DIR
*
* ENTRY : [A] = CHARACTER
*
* EXIT  : [A] = CORRECTED CHARACTER
*
*
;
;----> 11/06/87
;
		EXPORT	CONVERT_CHAR
CONVERT_CHAR		;		
*
* IF THIS IS AFP NAMING MODE,
* NO MODIFICATION IS NEEDED
*
			BIT		PFI_NAMING
			BMI		cc_EXIT
*
* CONVERT INTO PRODOS MODE
*
			AND		#$7F		;STRIP OFF HIGH BIT
			CMP		#$61		;IS IT LOWER CASE ??
			BCC		cc_NUMCHK
			AND		#$5F		;MAKE IT UPPER CASE
cc_NUMCHK	CMP		#$2E
			BEQ		cc_EXIT		;IT WAS A '.'
			CMP		#$30
			BCC		cc_BADCHAR	;BAD PRODOS CHARACTER
			CMP		#$3A
			BCC		cc_EXIT		;IT WAS A NUMBER
			CMP		#$41
			BCC		cc_BADCHAR	;BAD PRODOS CHARACTER
			CMP		#$5B
			BCC		cc_EXIT		;IT WAS A LETTER
*
* BAD PRODOS CHARACTER
*
cc_BADCHAR	LDA		#$3F		;'?' ----> 11/06/87 TE
*
* CHARACTER IN [A]
*
cc_EXIT		RTS
;
;
*
*
* CONVERT FIRST CHARACTER IF NEEDED
*
* USED BY READ_DIR
*
* ENTRY : WS_DIRBUF
*
* EXIT  : WS_DIRBUF
*
*
		EXPORT	CHK_FIRST
CHK_FIRST		;		
*
* IF THIS IS AFP NAMING MODE,
* NO MODIFICATION IS NEEDED
*
			BIT		PFI_NAMING
			BMI		cf_EXIT
*
* CONVERT INTO PRODOS MODE
*
			lda		WS_DIRBUF+5
			CMP		#$2E
			BEQ		cf_DONE		;IT WAS A '.'
			CMP		#$3A
			BCS		cf_EXIT		;IT WAS not A NUMBER
*
* BAD PRODOS CHARACTER
*
cf_DONE		LDA		#$3F		;
			STA		WS_DIRBUF+5
*
* CHARACTER IN [A]
*
cF_EXIT		RTS
;
;
			eject
			
*
*
*	5) READ CHUNK CONTROL (MULTI BLOCK READS)
*
*	ENTER : UMARK	= OFFSET IN DIRECTORY
*	UFILEIDX = INDEX TO UMARK
*	WS_PLIST = POINTER TO WORKSTATION PARAMETER LIST
*
*	EXIT	: DATA IN USER'S BUFFER
*
*
			
		EXPORT	RD_CHKCNTL
RD_CHKCNTL		;		
*
* HAS THE IO BUFFER BEEN WRITTEN INTO
*
			LDX		UFILEIDX
			LDA		USTATUS,X
			AND		#%00000001
			BEQ		RD_CHK1		;NO DATA TO WRITE
;
			JSR		WRITE_BLK	;FLUSH - IO BUFFER
*
* INITIALIZE AREA
*
RD_CHK1	; 
			LDA		#$08
			STA		RETURNPL	;SIZE OF PARAMETER LIST
;
			STZ		WS_PLIST+6	;ZERO TRANSFER COUNT
			STZ		WS_PLIST+7
*
* CREATE READ FORK PACKET
*
RD_CHK1A	; 
			LDA		#READFORK
			STA		WS_COMBUF	;SAVE COMMAND
			STZ		WS_COMBUF+$01
*
			LDX		UFILEIDX
			LDA		USRVNUM1,X
			STA		WS_COMBUF+$02	;SAVE REF# - HB
			LDA		USRVNUM2,X
			STA		WS_COMBUF+$03	;SAVE REF# - LB
*
			STZ		WS_COMBUF+$04	;NOT USED BY PRODOS
			LDA		UMARK3,X		;SETUP MARK
			STA		WS_COMBUF+$05
			LDA		UMARK2,X
			STA		WS_COMBUF+$06
			LDA		UMARK1,X
			STA		WS_COMBUF+$07
*
			STZ		WS_COMBUF+$08	;SAVE REQUEST COUNT(1 BLK)
			STZ		WS_COMBUF+$09
			LDA		UTRANCNT
			STA		WS_COMBUF+$0B	;SAVE LB OF REQUEST COUNT
			LDA		UTRANCNT+1
			STA		WS_COMBUF+$0A
;
;
;----> 9/20/87 TE
;
			LDX		UFILEIDX
			LDA		UTYPE,X
			AND		#%00010000
			BEQ		rd_NONE
			LDA		UENMASK,X	;CLEAR ENABLE MASK
			STA		WS_COMBUF+$0C
;
			LDA		UNLCHAR,X	;CLEAR CHARACTER IN TABLE
			STA		WS_COMBUF+$0D
			BRA		rd_OVER

rd_NONE		STZ		WS_COMBUF+$0C	;NO NEWLINE CHECK
			STZ		WS_COMBUF+$0D	;NEWLINE SPACE (NOT USED)
;
;---->
;
*
* CREATE ASP COMMAND PARAMETER LIST
*
rd_over	; 
			LDA		#$0E
			STA		PKT_CNT
			STZ		PKT_CNT+1
;
			JSR		CMD_STUFF
;
;
			SEC
			LDA		WS_COMBUF+$0B
			SBC		#$10		;max size ??
			LDA		WS_COMBUF+$0A
			SBC		#$12		;max size ??
			BCC		rd_UNDER
;
			LDA		#$10		;set to max length
			LDX		#$12
			BRA		rd_SETLEN
;
rd_UNDER		LDA		WS_COMBUF+$0B
			LDX		WS_COMBUF+$0A
rd_SETLEN		LDY		#$0F
			STA		(ZP1),Y		;SAVE LB OF LENGTH
			INY
			TXA
			STA		(ZP1),Y		;SAVE HB OF LENGTH
;
;
			INY
			LDA		XBUFPTR		;LB OF USER BUFFER POINTER
			STA		(ZP1),Y		;SAVE HB OF IO BUFFER
			INY
			LDA		XBUFPTR+1	;HB OF USER BUFFER POINTER
			STA		(ZP1),Y		;SAVE LB OF IO BUFFER
;
;
			INY
			LDA		PFI_BANK
			STA		(ZP1),Y		;BANK
			INY
			LDA		#$00
			STA		(ZP1),Y		;NOT USED BY PRODOS
*
* ISSUE ASP COMMAND CALL
*
			JSR		NETWORK_CALL	;EXECUTE COMMAND
*
* RESTORE ASP PARAMETER LIST POINTER
*
			jsr		getzp1parm
*
* FIND REPLY LENGTH
*
			CLC
			LDY		#$19
			LDA		(ZP1),Y
			ADC		WS_PLIST+6
			STA		WS_PLIST+6	;SAVE REPLY LENGTH - LB
			INY
			LDA		(ZP1),Y
			ADC		WS_PLIST+7
			STA		WS_PLIST+7	;SAVE REPLY LENGTH - HB
*
* UPDATE MARK
*
			LDX		UFILEIDX
			CLC
			LDY		#$19
			LDA		(ZP1),Y
			ADC		UMARK1,X
			STA		UMARK1,X
			INY
			LDA		(ZP1),Y
			ADC		UMARK2,X
			STA		UMARK2,X
			LDA		#$00
			ADC		UMARK3,X
			STA		UMARK3,X
;
;----> 9/30/87 TE
;
*
* UPDATE TRANSFER COUNT REMAINING
*
			SEC
			LDY		#$19
			LDA		UTRANCNT
			SBC		(ZP1),Y
			STA		UTRANCNT
			INY
			LDA		UTRANCNT+1
			SBC		(ZP1),Y
			STA		UTRANCNT+1
;
;----> END
;
*
* CHECK AFP COMMAND RESULT
*
			LDX		UFILEIDX
			STZ		USTATUS,X	; CLEAR STATUS
;
			LDA		UERROR
			BNE		RD_CHK3		;ERROR, CONTINUE PROCESS
*
* IS THERE MORE DATA TO TRANSFER ?
*
			LDA		UTRANCNT
			ORA		UTRANCNT+1
			BNE		RD_CHK2A	;YES THERE IS MORE
			LDA		UERROR
			RTS					;TIME TO EXIT
*
* IF BUFFERING IS ACTIVE, LOOK AT THE LAST CHARACTER
*
RD_CHK2A	; 
;
;---->
			LDX		UFILEIDX
			LDA		UTYPE,X
			AND		#%00010000	;BUFFERING ???
			BEQ		rd_UPDATE		;NO, UPDATE BUFFER POINTERS
;
			LDA		UENMASK,X	;NEWLINE MASK
			BEQ		rd_UPDATE		;NEWLINE NOT ACTIVE !!!!
;
;
			LDA		#WS_PATH	;MOVE TO CARD LOCATION
			STA		DESTBUF
			LDA		#>ws_path
			STA		DESTBUF+1
			LDA		#^ws_path
			STA		DESTBUF+2
;
			LDA		#$01		;MOVE ONE BYTE ONTO THE CARD
			STA		COUNT
			LDA		#00
			STA		COUNT+1
;
			CLC					;FIND ONE BYTE PAST DATA
			LDY		#$19
			LDA		(ZP1),Y
			ADC		XBUFPTR
			STA		SRCBUF
			INY
			LDA		(ZP1),Y
			ADC		XBUFPTR+1
			STA		SRCBUF+1
;
			SEC					;POINT TO LAST BYTE OF DATA
			LDA		SRCBUF
			SBC		#$01
			STA		SRCBUF
			LDA		SRCBUF+1
			SBC		#$00
			STA		SRCBUF+1
			LDA		PFI_BANK
			STA		SRCBUF+2
;
			JSR		buffmove	;MOVE IT NOW !!!!
;
;
			LDX		UFILEIDX
			LDA		WS_PATH		;LAST CHARACTER
			AND		UENMASK,X	;NEWLINE MASK
			CMP		UNLCHAR,X	;NEWLINE CHARACTER
			BNE		rd_UPDATE
;
			LDA		UERROR
			RTS
;
;---->
*
* UPDATE USER'S BUFFER POINTER
*
rd_UPDATE		CLC
			LDY		#$19
			LDA		(ZP1),Y
			ADC		XBUFPTR
			STA		XBUFPTR
			INY
			LDA		(ZP1),Y
			ADC		XBUFPTR+1
			STA		XBUFPTR+1
			JMP		RD_CHK1A
*
* WAS IT AN EOF ERROR ?
*
RD_CHK3	; 
			CMP		#$4C		;EOF ?
			BEQ		RD_CHK4		;YES, ERROR WAS EOF !!!
			RTS					;ERROR , TIME TO EXIT !!!
*
* EOF ERROR CONDITION
*
RD_CHK4	; 
			LDX		UFILEIDX
			LDA		#%10000000	;SET EOF STATUS
			STA		USTATUS,X
			STZ		UERROR		;CLEAR ERROR CODE
			RTS
;
;
*
*
*  2) WRITE CHUNK CONTROL (MULTI BLOCK WRITES)
*
*   ENTER : UMARK    = OFFSET IN DIRECTORY
*           UFILEIDX = INDEX TO UMARK
*           WS_PLIST = POINTER TO WORKSTATION PARAMETER LIST
*
*   EXIT  : DATA FROM USER'S BUFFER
*
*
		EXPORT	WRT_CHKCNTL
WRT_CHKCNTL		;		
*
* HAS THE IO BUFFER BEEN WRITTEN INTO ?
*
			LDX		UFILEIDX
			LDA		USTATUS,X
			AND		#%00000001
			BEQ		WRT_CHK1	;NO ,THERE IS NO DATA IN IO BUFFER
;
			JSR		WRITE_BLK
*
* INITIALIZE AREA
*
WRT_CHK1	; 
			LDA		#$08
			STA		RETURNPL
			STZ		WS_PLIST+6
			STZ		WS_PLIST+7
*
* CREATE WRITE PACKET
*
WRT_CHK1A	; 
			LDA		#WRITEFORK
			STA		WS_COMBUF	 ;SAVE AFP COMMAND
			STZ		WS_COMBUF+$01	;SAVE START FLAG
;
			LDX		UFILEIDX
			LDA		USRVNUM1,X
			STA		WS_COMBUF+$02	;SAVE REF # - HB
			LDA		USRVNUM2,X
			STA		WS_COMBUF+$03	;SAVE REF # - LB
;
			STZ		WS_COMBUF+$04	;SAVE MARK
			LDA		UMARK3,X
			STA		WS_COMBUF+$05
			LDA		UMARK2,X
			STA		WS_COMBUF+$06
			LDA		UMARK1,X
			STA		WS_COMBUF+$07
;
			STZ		WS_COMBUF+$08	;SAVE REQ CNT
			STZ		WS_COMBUF+$09
;
;
;----> 9/30/87 te
;
								;LDA #$10
								;CMP UTRANCNT+1
; BCS WRT_CHK1B
;
								;STA WS_COMBUF+$0A
								;STZ WS_COMBUF+$0B
								;SEC
								;LDA UTRANCNT+1
								;SBC #$10
								;STA UTRANCNT+1
								;BRA WRT_CHK1C
;
;WRT_CHK1B = *
			LDA		UTRANCNT+1
			STA		WS_COMBUF+$0A
			LDA		UTRANCNT
			STA		WS_COMBUF+$0B
								;STZ UTRANCNT
								;STZ UTRANCNT+1
;
;----> end
;
*
* CREATE ASP WRITE PARAMETER LIST
* FIND ASP HEAP - STUFF DEFAULT VALUES
*
WRT_CHK1C	; 
			JSR		WRITE_STUFF
*
* STUFF WRITE DATA BUFFER INFO (USERS BUFFER)
*
;
			SEC
			LDA		WS_COMBUF+$0B
			SBC		#$10		;max size ??
			LDA		WS_COMBUF+$0A
			SBC		#$12		;max size ??
			BCC		wrt_UNDER
;
			LDA		#$10		;set to max length
			LDX		#$12
			BRA		wrt_SETLEN
;
wrt_UNDER		LDA		WS_COMBUF+$0B
			LDX		WS_COMBUF+$0A
wrt_SETLEN		LDY		#$0F
			STA		(ZP1),Y		;SAVE LB OF LENGTH
			INY
			TXA
			STA		(ZP1),Y		;SAVE HB OF LENGTH
;
			INY
			LDA		XBUFPTR
			STA		(ZP1),Y		;LB OF BUFFER
			INY
			LDA		XBUFPTR+1
			STA		(ZP1),Y		;HB OF BUFFER
;
;
			INY
			LDA		PFI_BANK
			STA		(ZP1),Y		;BANK
			INY
			LDA		#$00
			STA		(ZP1),Y		;OFF CARD
*
* ISSUES ASP WRITE CALL
*
			JSR		NETWORK_CALL
*
* CHECK AFP WRITE RESULT
*
			LDX		UFILEIDX
			STZ		USTATUS,X	; CLEAR STATUS
;
			LDA		UERROR
			BEQ		WRT_CHK3	;ERROR, CONTINUE PROCESS
			RTS
*
* SAVE LENGTH WRITTEN
*
WRT_CHK3
			jsr		getzp1parm
;
			CLC
			LDY		#$1F
			LDA		(ZP1),Y
			ADC		WS_PLIST+6
			STA		WS_PLIST+6	;SAVE LENGTH WRITTEN - LB
			INY
			LDA		(ZP1),Y
			ADC		WS_PLIST+7
			STA		WS_PLIST+7	;SAVE LENGTH WRITTEN - HB
*
* UPDATE MARK
*
			LDX		UFILEIDX
			CLC
			LDY		#$1F
			LDA		(ZP1),Y
			ADC		UMARK1,X
			STA		UMARK1,X
			INY
			LDA		(ZP1),Y
			ADC		UMARK2,X
			STA		UMARK2,X
			LDA		#$00
			ADC		UMARK3,X
			STA		UMARK3,X
;
;---->11/07/87 te -- drop box
;
*
* if this is an open ($C8) & it is in drop box Mode,
* is this mark larger than the EOF ?
* if yes update EOF !!!
*
			LDA		UTYPE,X
			AND		#$08		;bit 3 = normal open ($C8) ???
			BEQ		wrt_OVER		;no, special open
;
			LDA		UMODE,X
			CMP		#$32		;drop box ??
			BNE		wrt_OVER		;no, some other mode
;
			SEC
			LDA		UMARK1,X
			SBC		UDIRID1,X
			LDA		UMARK2,X
			SBC		UDIRID2,X
			LDA		UMARK3,X
			SBC		UDIRID3,X
			BCC		wrt_OVER		;mark is lower, skip update
;
			LDA		UMARK1,X	;update EOF
			STA		UDIRID1,X
			LDA		UMARK2,X
			STA		UDIRID2,X
			LDA		UMARK3,X
			STA		UDIRID3,X
;
;---->
;
*
* UPDATE TRANSFER COUNT REMAINING
*
;
;----> 9/30/87 TE
;
wrt_OVER		SEC
			LDY		#$1F
			LDA		UTRANCNT
			SBC		(ZP1),Y
			STA		UTRANCNT
			INY
			LDA		UTRANCNT+1
			SBC		(ZP1),Y
			STA		UTRANCNT+1
;
;----> END
;
*
* IS THERE MORE DATA TO TRANSFER ?
*
			LDA		UTRANCNT
			ORA		UTRANCNT+1
			BNE		WRT_CHK2A	;YES THERE IS MORE
;
			LDA		UERROR
			RTS					;TIME TO EXIT
*
* UPDATE USER'S BUFFER POINTER
*
WRT_CHK2A	; 
			CLC
			LDY		#$1F
			LDA		(ZP1),Y
			ADC		XBUFPTR
			STA		XBUFPTR
			INY
			LDA		(ZP1),Y
			ADC		XBUFPTR+1
			STA		XBUFPTR+1
			JMP		WRT_CHK1A
;
			eject
			
*
*
* 7) STUFF THE ASP HEAP THE THE DEFAULT VALUES
*
*	ENTRY : ASP_HEAP = LENGTH OF DATA ALREADY IN BUFFER
*
*	EXIT	: ZP1	= POINTER TO ASP PARAMTER LIST
*
*
			
		EXPORT	WRITE_STUFF
WRITE_STUFF		;		
*
* FIND ASP HEAP
*
			JSR		getzp1parm
*
* STUFF ASYNC FLAG AND COMMAND
*
			LDY		#$00
			LDA		#$00
			STA		(ZP1),Y		;SAVE ASYNC FLAG
			INY
			LDA		#CMD_ASPWRT
			STA		(ZP1),Y		;SAVE COMMAND
*
* STUFF SESSION REFERENCE #
*
			LDY		#$08
			LDX		UFILEIDX
			LDA		UFILELOC,X
			STA		(ZP1),Y
*
* STUFF COMMAND BUFFER INFO
*
			INY
			LDA		#$0C
			STA		(ZP1),Y
			INY
			LDA		#$00		;SIZE OF CMD PACKET
			STA		(ZP1),Y
;
			INY
			LDA		#<WS_COMBUF
			STA		(ZP1),Y
			INY
			LDA		#>WS_COMBUF
			STA		(ZP1),Y
			INY
			LDA		#^WS_COMBUF
			STA		(ZP1),Y
			INY
			LDA		#$00		
			STA		(ZP1),Y
*
* STUFF REPLY BUFFER INFO
*
			LDY		#$15
			LDA		#$04
			STA		(ZP1),Y
			INY
			LDA		#$00		;SIZE OF REPLY DATA
			STA		(ZP1),Y
;
			INY
			LDA		#<WS_PATH
			STA		(ZP1),Y
			INY
			LDA		#>WS_PATH
			STA		(ZP1),Y
			INY
			LDA		#^WS_PATH
			STA		(ZP1),Y
			INY
			LDA		#00
			STA		(ZP1),Y
			RTS
;
;
			eject
			
*
*
* 8) FILL THE REST OF THE IO BUFFER BLOCK WITH ZEROS
*
*	ENTRY : PKT_CNT	= LENGTH OF DATA ALREADY IN BUFFER
*
*	EXIT	: UBUFPTR	= CONTAINS A FULL BUFFER
*
*
			
		EXPORT	ZERO_IOBUF
ZERO_IOBUF		;		
*
* SAVE LOCATION OF BUFFER TO BE FILLED WITH ZEROS
*
			LDA		#WS_COMBUF
			STA		<ZP0
			LDA		#>WS_COMBUF
			STA		<ZP0+1
*
* FILL ALL WHOLE ejectS
*
			LDX		PKT_CNT+1	;# OF PAGES
ZERO0	; 
			CPX		#$02		;FULL
			BEQ		ZERO2		;NO MORE
;
			LDY		#$00
			LDA		#$00		;SAVE ZERO'S
ZERO1	; 
			STA		(ZP0),Y
			INY
			BNE		ZERO1
			INC		<ZP0+1		;HB OF POINTER
			INX
			BNE		ZERO0
*
* MOVE ZERO INTO IO BUFFER - DATA BLOCK
*
ZERO2	; 
			CLC
			LDX		UFILEIDX
			LDA		PKT_CNT		;SKIP DATA ALREADY IN IO BUFFER
			ADC		UBUFPTRL,X
			STA		<DESTBUF
			LDA		PKT_CNT+1
			ADC		UBUFPTRH,X
			STA		<DESTBUF+1
;
			LDA		PFI_BANK
			STA		<DESTBUF+2	;BANK
;
;
			LDA		#WS_COMBUF
			STA		<SRCBUF
			LDA		#>WS_COMBUF
			STA		<SRCBUF+1
			LDA		#^WS_COMBUF
			STA		<SRCBUF+2
;
			SEC
			LDA		#$00
			SBC		PKT_CNT
			STA		<COUNT		;ROOM LEFT IN BUFFER - LB
			LDA		#$02
			SBC		PKT_CNT+1
			STA		<COUNT+1	;ROOM LEFT IN BUFFER - HB
			JMP		BUFFMOVE	;MOVE ZERO
;
;
			eject
			
*
*
* 10) MOVE THE ENTRY FOR A DIRECTORY TO MOTHERBOARD
*
*
*	ENTRY : WS_DIRBUF = ENTRY FOR MOTHERBOARD
*	PROCESS_CNT = # OF ENTRIES FOR THIS HALF
*	ENTRY_CNT	= # OF ENTRIES IN IO BUFFER
*	HOLD_IOPTR	= IO BUFFER POINTER
*
*	EXIT : ENTRY_CNT	= UPDATED
*	PKT_CNT	= UPDATED
*	HOLD_IOPTR	= UPDATED
*
*
			
		EXPORT	MOVE_ENTRY
MOVE_ENTRY		;		
*
* INITIALIZE VAULES
*
			LDA		#$04
			STA		PKT_OFFSET	;STANDARD OFFSET
*
* IS THIS THE FIRST ENTRY FOR THIS BLOCK ?
*
			LDA		PROCESS_CNT
			CMP		#$07
			BNE		MOVE_ENTRY1	;NOT THE FIRST HALF
;
			LDA		ENTRY_CNT
			BNE		MOVE_ENTRY1	;NOT THE FIRST ENTRY
;
;
			STZ		PKT_OFFSET	;NO OFFSET
;
			LDX		#$03
MOVE_ENTRY0	; 
			STZ		WS_DIRBUF,X	;CLEAR POINTERS
			DEX
			BPL		MOVE_ENTRY0
*
* SETUP SOURCE BUFFER
*
MOVE_ENTRY1	; 
			CLC
			LDA		#WS_DIRBUF
			ADC		PKT_OFFSET
			STA		<SRCBUF
			LDA		#>WS_DIRBUF
			ADC		#$00
			STA		<SRCBUF+1
			LDA		#^WS_DIRBUF
			STA		<SRCBUF+2
*
* SETUP COUNT
*
			SEC
			LDA		#$2B
			SBC		PKT_OFFSET
			STA		<COUNT
			LDA		#00
			STA		<COUNT+1
*
* SETUP DESTINATION BUFFER (& UPDATE PTR)
*
			CLC
			LDA		HOLD_IOPTR
			STA		<DESTBUF
			ADC		<COUNT
			STA		HOLD_IOPTR
;
			LDA		HOLD_IOPTR+1
			STA		<DESTBUF+1
			ADC		#$00
			STA		HOLD_IOPTR+1
;
			LDA		PFI_BANK
			STA		<DESTBUF+2	;BANK
*
* MOVE THE BUFFER
*
			JSR		BUFFMOVE
*
* UPDATE VARIABLE
*
			INC		ENTRY_CNT	;NUMBER OF PACKETS IN BUFFER
			INC		PKT_CNT		;NUMBER OF PACKETS THIS HALF
;
			CLC
			LDA		START_IDX
			ADC		#$01
			STA		START_IDX
			LDA		START_IDX+1
			ADC		#$00
			STA		START_IDX+1
			RTS
;
;
			eject
			
*
*
* 11) CALCULATE COUNT OF BYTES TO MOVE AND MOVE MARK
*
*	ENTRY : UTRANCNT = TRANSFER REQUEST COUNT
*	COUNT	= AMOUNT IN BLOCK AVAILABLE
*	UMARK	= LOCATION OF MARK IN BLOCK
*	XBUFPTR	= LOCATION OF USER'S BUFFER
*
*	EXIT	: UTRANCNT = UPDATED TRANSFER COUNT
*	COUNT	= UPDATED AMOUNT AVAILABLE
*	UMARK	= UPADTED MARK
*	XBUFPTR	= UPDATED OF BUFFER START
*
*
			
		EXPORT	GETCOUNT
GETCOUNT		;		
*
* COMPARE TRANSFER REQUEST AGAINST AMOUNT IN	BLOCK
*
			LDA		UTRANCNT+1	;COMPARE WITH REQ COUNT
			CMP		<COUNT+1	
			BCC		GETCNT1		;TRANSFER COUNT WITHIN BLOCK
			BNE		GETCNT2		;SAVE UPDATED TRANSFER COUNT
;
			LDA		UTRANCNT
			CMP		<COUNT	
			BCS		GETCNT2		;SAVE UPDATED TRANSFER COUNT
*
* SWITCH AMOUNT TO MOVE TO TRANSFER COUNT
*
GETCNT1	; 
			LDA		UTRANCNT	;PUT UTRANCNT INTO ZP3
			STA		<COUNT
			LDA		UTRANCNT+1
			STA		<COUNT+1
*
* UPDATE TRANSFER COUNT (TRANSFER COUNT - AMOUNT TO MOVE)
*
GETCNT2	; 
			SEC
			LDA		UTRANCNT	;UPDATE UTRANCNT
			SBC		<COUNT
			STA		UTRANCNT
			LDA		UTRANCNT+1
			SBC		<COUNT+1
			STA		UTRANCNT+1
*
* UPDATE MARK TO NEW LOCATION
*
			CLC
			LDA		UMARK1,X	;UPDATE MARK
			ADC		<COUNT
			STA		UMARK1,X
			LDA		UMARK2,X
			ADC		<COUNT+1
			STA		UMARK2,X
			BCC		GETCNT3
			INC		UMARK3,X
*
* UPDATE SAVED FILE BUFR PTR
*
GETCNT3	; 
			CLC
			LDA		XBUFPTR
			ADC		<COUNT
			STA		XBUFPTR
			LDA		XBUFPTR+1
			ADC		<COUNT+1
			STA		XBUFPTR+1
			RTS
;
;
			eject
			
*
*
* 12) SET TRANSFER COUNT FOR READ AND WRITE
*
*	ENTRY : WS_PLIST = PARAMETER LIST LOCATION ON CARD
*	UTRANCNT = AMOUNT TO MOVE
*
*	EXIT	: WS_PLIST = UPDATED TRANSFER COUNT IN PL
*
*
			
		EXPORT	SETTRCNT
SETTRCNT		;		
			SEC
			LDA		WS_PLIST+4	;GET REQ COUNT
			SBC		UTRANCNT	;AND SUB UTRANCNT
			STA		WS_PLIST+6	;STORE IN TRANS COUNT
;
			LDA		WS_PLIST+5
			SBC		UTRANCNT+1
			STA		WS_PLIST+7
			RTS
;
;
			eject
			
*
*
* 13) SETUP FOR READ AND WRITE
*
*	ENTRY : WS_PLIST = PARAMETER LIST ON CARD
*
*	EXIT	: XBUFPTR	= POINTER TO USER'S BUFFER
*	UTRANCNT = AMOUNT TO MOVE
*	C	= AMOUNT TO MOVE IS OVER A BLOCK
*
*
			
		EXPORT	RWSETUP
RWSETUP		;		
*
* SAVE USER'S BUFFER POINTER
*
			LDA		WS_PLIST+2	;STORE USER BUFR PIONTER
			STA		XBUFPTR
			LDA		WS_PLIST+3
			STA		XBUFPTR+1
*
* SAVE REQUEST COUNT
*
			LDA		WS_PLIST+4	;STORE REQ COUNT
			STA		UTRANCNT
			LDA		WS_PLIST+5
			STA		UTRANCNT+1
*
* IS THE REQUEST COUNT OVER ONE BLOCK ?
*
			SEC
			LDA		#$00		;LB - ONE BLOCK
			SBC		UTRANCNT
			LDA		#$02		;HB - ONE BLOCK
			SBC		UTRANCNT+1
			RTS
;
;
*
*
* 14) ADJUST FOR MARK WRAP AROUND
*
*  ENTRY : UFILEIDX = INDEX TO REF # FOR FILE
*          WS_PLIST = PARAMETER LIST
*
*  EXIT  : WS_PLIST = UPDATE PARAMETER LIST
*          C        = SET IF WRAP SETUP
*
*
		EXPORT	MARK_WRAP
MARK_WRAP		;		
*
* DOES ALL OF THE DATA FIT BELOW A MARK OF $FF FF FF
*
			SEC
			LDA		#$FF
			SBC		UMARK1,X
			STA		SIZE_ALLOWED
			LDA		#$FF
			SBC		UMARK2,X
			STA		SIZE_ALLOWED+1
			LDA		#$FF
			SBC		UMARK3,X
			STA		SIZE_ALLOWED+2
;
			LDA		SIZE_ALLOWED+2
			BNE		mw_OK1		;MORE THAN ENOUGH SPACE
;
			SEC
			LDA		SIZE_ALLOWED
			SBC		WS_PLIST+$04
			LDA		SIZE_ALLOWED+1
			SBC		WS_PLIST+$05
			BCS		mw_OK1		;MORE THAN ENOUGH SPACE
;
*
* REQUEST COUNT NEEDS TO BE ADJUSTED !!!
*
			LDA		SIZE_ALLOWED	;ADJUST REQUEST COUNT
			STA		WS_PLIST+$04
			LDA		SIZE_ALLOWED+1
			STA		WS_PLIST+$05
;
			LDA		WS_PLIST+$04
			ORA		WS_PLIST+$05
			BNE		mw_OK1		;THERE IS SOME ROOM LEFT
;
			SEC
			RTS
*
* TIME TO LEAVE
*
mw_OK1		CLC
			RTS

*
*
* 11) Fill the end of dir block with dummy entries
*
*  ENTRY : UFILEIDX = INDEX TO REF # FOR FILE
*
*  EXIT  : update i/o buffer
*
*
*
		EXPORT	DUMMY_FILL
DUMMY_FILL		;		
*
* find amount the count is off
*
			SEC
			LDX		UFILEIDX
			LDA		UFILECNTL,X
			SBC		START_IDX
			TAY					;save adjustment in y
			LDA		UFILECNTH,X
			SBC		START_IDX+1
			BCS		df_CONT		;yes, the count is positive
			RTS					;exit
								;you got more than you thought (or equal)
;
df_CONT		CPY		#$0D		;full block ??
			BCS		df_MAX
			CMP		#$00
			BEQ		df_OVER
df_MAX		LDY		#$0D		;set size to max possible for a block
;
df_OVER		CPY		#$00
			BNE		df_OVER1
			RTS
; [y] has amount off
*
* how many free entries spaces are left in the block
*
* must leave [y] alone
*
df_OVER1	SEC
			LDA		#$0D
			SBC		ENTRY_CNT
			STA		UWORK1
			BNE		df_MIN
			RTS					;now room left in the data block
*
* which is smaller 1)amount needed or 2) space available ?
*
* [y] must still be set
*
df_MIN		SEC
			TYA					;amount needed
			SBC		UWORK1		;space available
			BCS		df_FILL
			STY		UWORK1		;update count to amount needed
			BRA		df_FILL
*
* stuff dummy entry
*
df_DUMMY_DIR		DS.B 4	        ;pointers
	DC.B	$1F	;storage type ($10) + length ($0f)
	DC.B	'???????????????'	;dummy name
		DS.B $20	        ;extra bytes here to be safe
;
df_FILL		LDX		#$2A
df1_LOOP	LDA		df_DUMMY_DIR,X
			STA		WS_DIRBUF,X
			DEX
			BPL		df1_LOOP
*
* update i/o buffer
*
			LDA		UWORK1		;number of dummy entries
df1_NEXT	PHA
;
			JSR		MOVE_ENTRY
;
			PLA
			DEC		a
			BNE		df1_NEXT		;go to next record
*
* update PKT_CNT
*
			SEC
			LDX		UFILEIDX
			LDA		HOLD_IOPTR
			SBC		UBUFPTRL,X
			STA		PKT_CNT		;LB OF LENGTH OF DATA
			LDA		HOLD_IOPTR+1
			SBC		UBUFPTRH,X
			STA		PKT_CNT+1	;HB OF LENGTH OF DATA
			RTS
;
;

;


		ENDP

		end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/ATRam/PFI/PFI_cmdsubs5.aii b/IIGS.601.SRC/GS.OS/Drivers/ATRam/PFI/PFI_cmdsubs5.aii
new file mode 100644
index 0000000..9a811a1
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/ATRam/PFI/PFI_cmdsubs5.aii
@@ -0,0 +1 @@
+
;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------
	Import	NETWORK_CALL_RESULT
	Import	UM_INDEX
	Import	Vector_Atten
	Import	SESSION_NET
	Import	SESSION_NAME
	IMPORT	ATTEN_CNT
	IMPORT	CURSESS
	IMPORT	Cn_PFIERR
	IMPORT	GETBUF
	IMPORT	GETEOF
	IMPORT	GETFINFO
	IMPORT	GETMARK
	IMPORT	GETPREFIX
	IMPORT	NEWLINE
	IMPORT	ONLINE
	IMPORT	PFI_STATUS
	IMPORT	PKT_CNT
	IMPORT	QUITCALL
	IMPORT	SESS_TMRTBL
	IMPORT	SETBUF
	IMPORT	SETEOF
	IMPORT	SETINFO
	IMPORT	SETMARK
	IMPORT	SETPREFIX
	IMPORT	SOUND_CNT
	IMPORT	UERROR
	IMPORT	WRITE
	IMPORT	WS_COMBUF
	IMPORT	changepath
	IMPORT	gettime
	IMPORT	getzp1parm
	IMPORT	ndt_sess
	IMPORT	pfibank
	IMPORT	session_tbl
	Import	SESS_IDX
	IMPORT	uwork1
	IMPORT	vol_unmount
	import	create,destroy,rename,open,read,close,flush,bytelock

;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

	ENTRY	AFP_ERROR
	ENTRY	CMD_STUFF
	ENTRY	NETWORK_CALL
	ENTRY	PRODOS_ERROR
	ENTRY	Update_TMR
*
* pfi_cmdsubs5
*
* Greg Seitz (14-Jul-87)
*
*
;		EXPORT	zpcmdscs5	
;zpcmdscs5	PROC
		INCLUDE	'zp.equates'
;		ENDP
		include	'global.equates'
		include 'pfi_equates'
		
		EXPORT	pficmdsubs5	
pficmdsubs5	PROC
*		using	atpequates
*		using 	pfiglobals
*		using	zpcmdscs5
			longa	off
			longi	off

* dummy temporary routines go here

* b1_trapmb	entry
* b1_execmove	entry

			longa	off
			longi	off
* now for the real stuff

			eject

*
*	PARAMIS NETWORK SOFTWARE
*
*
*
*	CONFIDENTIAL
*
*
* MODULE : PFI5 - PRODOS FILING INTERFACE	(PART 5)
*	COMMON SUBROUTINES (PART3)
*	ROM TABLES
*
*	WRITTEN BY THOMAS EAGERR
*
*	MODIFIED: 06-15-87	4:18	TE
*
*	COPYRIGHT 1986,87 PARAMIS CORPORATION
*
* ALL RIGHTS RESERVED
*
*
*


*
*
*
* A: NETWORK INTERFACE SUBROUTINES
*
*	1) DO_ATTEN	- EXECUTE ATTENTION CALL ON MOTHERBOARD
*	2) CMD_ROUTING	- SEND CMD FROM & REPLY TO WS_COMBUF
*	3) NETWORK_CALL - EXECUTE CALL IN ASP HEAP
*	4) STUFF_COMPL	- STUFF COMPLETION ROUTINE
*	5) PFI_COMPL	- ASP COMPLETION ROUTINE
*
*
*
* B: TABLES
*
*	6) MLI COMMAND TABLE
*	7) MLI PARAMETER COUNT TABLE
*	8) MLI CHARACTERISTICS TABLE
*	9) PROCESS ADDRESS TABLE
* 10) POSSIBLE UNIT NUMBER TABLE
* 11) AFP ERROR TABLE
* 12) PRODOS ERROR TABLE
* 13) MISC STRINGS
*
*
			eject

*
*
*	1) EXECUTE ATTENTION ROUTINE ON MOTHERBOARD
*
*	ENTRY : TIME LEFT - FIRST TWO BYTES
*
*	EXIT	: NONE
*
*

		EXPORT	ATTEN_TIME
ATTEN_TIME		;		
		DS.B 4				;asp stores info here then calls do_atten

		EXPORT	DO_ATTEN
DO_ATTEN		;		
*
* CHECK TYPE BYTE
*
			clc
			xce
			sep		#mbit+xbit	;put in 8 bit mode
			lda		atten_time+1	;see how we shut down
			bne		_dat_crash		;with timeout or close...
			BIT		ATTEN_TIME+2
			BVS		_dat_CRASH
			BMI		_dat_ATNCHK1
			brl		_dat_done		;NOT VALID
*
* IS THIS A SERVER SHUTDOWN	?
* (ADJUST HIGH BYTE HAS TIME)
*
_dat_ATNCHK1	LDA		ATTEN_TIME+2
			AND		#$3F		;SKIP TWO HIGH BITS
			BEQ		_dat_ATNCHK2	;CHECK LOW BYTE
;
			LDA		ATTEN_TIME+3
			ORA		#$80		;OVER MAX
			STA		ATTEN_TIME+3	;OVERFLOW TIME
			jmp		DO_ATTEN0A	;THERE IS A TIME
;
_dat_ATNCHK2	LDA		ATTEN_TIME+3
			BNE		DO_ATTEN0A	 ;TIMER
								;CRASH !!!
								;
								;
								;
								;
*
* SERVER CRASHED - -TRAP MOTHERBOARD
*
_dat_CRASH	; 
			lda		atten_time		;get session number
			beq		_dat_crash2		;no session number
			ldx		#00
_dat_crash1	; 
			cmp		session_tbl,x	;check for active session
			beq		_dat_sess_fnd	;yes it is active
			inx
			cpx		#maxsession
			bne		_dat_crash1
_dat_crash2	brl		_dat_done
*
* remove session from session table
*
_dat_sess_fnd	; 
			stz		session_tbl,x
			stx		SESS_IDX
			stz		uwork1			;no volumes unmounted
			ldx		#13
_dat_loop3	lda		atten_time
			beq		_dat_done
			cmp		ndt_sess,x
			bne		_dat_loop4

			inc		uwork1			;one more to unmount
			lda		SESS_IDX
			ldy		#$ff
			clc
			jsr		vol_unmount
									; X IS UNCHANGED !!!
_dat_LOOP4	DEX
			BPL		_dat_LOOP3		;MORE TO CHECK

			lda		uwork1			;see if any volumes unmounted
			beq		_dat_done		;no, so no noise
			;
			;
			;
			;
			;
			;
			;----> should we call the Attention vector
			;
			jsr		Atten_vector
			bcs		_dat_DONE
			;
			;
			;
			;

*
* SET UP NOTE
*
Crash_snd	
			php
			sei
								;
			LDA		#$06
			STA		SOUND_CNT
;
_dat_SOUND0	LDA		#$E0		;LOW NOTE
			BRA		_dat_SOUND2
_dat_SOUND1	LDA		#$40		;HIGH NOTE
_dat_SOUND2	STA		SOUND+1
			STA		SOUND+3
;
			LDX		#$01		;ONLY ONE NOTE AT A TIME
			STX		ATTEN_CNT
			jsr		dosound		;do sound and screen stuff
*
* IS THE CRASH DONE ?
*
			LDA		SOUND_CNT
			DEC		A
			STA		SOUND_CNT
			BEQ		_dat_DONE1
			LSR		A
			BCS		_dat_SOUND1		;HIGH NOTE
			BRA		_dat_SOUND0		;LOW NOTE
									;
_dat_DONE1	plp
*
* Done
*
_dat_DONE	; 
			rep		#mbit+xbit
			rtl						;return to asp
;
;
;
;
;
*
* MAKE SURE THAT COUNT IS UNDER MAX
*
DO_ATTEN0A	; 
			lda		atten_time		;get session number
			beq		_dat_Done		;no session number
			ldx		#00
 
DO_ATTEN0b	cmp		session_tbl,x	;check for active session
			beq		DO_ATTEN0c	;yes it is active
			inx
			cpx		#maxsession
			bne		DO_ATTEN0b
			brl		_dat_done
			;
			;
			;----> should we call the Attention vector
			;
DO_ATTEN0c	stx		SESS_IDX
			jsr		Atten_vector
			bcs		_dat_DONE
			;
			;
			;
			;
			LDX		ATTEN_TIME+3
			CPX		#$0F
			BCC		DO_ATTEN1	;TIME OK
			CPX		#$FF
			BNE		DO_ATTEN0
;
			
								;
			LDX		#$02		;DO IT TWO TIMES
			LDA		#$E0		;LONG INTERVALS
			BRA		DO_ATTEN1A
;
DO_ATTEN0	; 
			LDX		#$0F		;DO IT THE MAX
DO_ATTEN1	; 
			LDA		#$40		;SHORT INTERVALS
DO_ATTEN1A	; 
			STX		ATTEN_CNT
			STA		SOUND+1
			STA		SOUND+3
			php
			sei
			jsr		dosound
			bra		_dat_done1
;
;
;
;
;
;
Atten_vector
			lda		#$00
			ldx 	#$03
_dat_lp4a	ora		Vector_Atten,x
			dex
			bne		_dat_lp4a
			cmp		#$00
			bne		ATT_VEC1			;no Vector installed
			clc
			rts
			;
			;
			;
ATT_VEC1	lda		#<Session_name
			STa		Zp3
			lda		#>Session_name
			STa		ZP3+1
			lda		#<Session_net
			STa		Zp4
			lda		#>Session_net
			STa		ZP4+1
			;
			ldx		SESS_IDX
ATT_VEC4	dex
 			bmi		ATT_VEC5
			clc
			LDA		ZP3
			adc		#$21
			sta		ZP3
			LDA		ZP3+1
			adc		#$00
			STA		ZP3+1
			clc
			LDA		ZP4
			adc		#$22
			sta		ZP4
			LDA		ZP4+1
			adc		#$00
			STA		ZP4+1
			BRA		ATT_VEC4
			;
			; move name into BUFFER
			;
ATT_VEC5	
			ldy		#$20
ATT_VEC6	lda		(ZP3),y
			sta		WS_COMBUF+4,y
			dey
			bpl		ATT_VEC6
			;
			ldy		#$21
ATT_VEC6a	lda		(ZP4),y
			sta		WS_COMBUF+$24,y
			dey
			bpl		ATT_VEC6a
			;
			LDX		#$03
ATT_VEC7	LDA		Atten_time,x
			sta		Ws_combuf,x
			dex
			bpl		Att_VEC7
			;
			;
			;
			;
			
			longi	on
			longa 	on
			;
			rep		#$30
			phb
			ldx		#_vector_X-1			;Put my return Address on the Stack
			phx
			;
			longa 	off
			longi	off
			sep		#$30
			lda		VECTOR_Atten+2
			pha
			longi	on
			longa	on
			;
			rep		#$30
			ldx		VECTOR_Atten		;Put vector on stack
			dex
			phx

			;
			ldx		#ws_combuf
			ldy		#^ws_combuf
			rtl
			;
			longi	off
			longa 	off
			;
			;
			;
_vector_X	Sep		#$30
			sec
			rts



;
;
;
;
;

*
*	ATTENTION ROUTINE
*
* GETS THE USER'S ATTENTION
* BY INVERSING THE CURRENT
* SCREEN AND MAKING A SOUND
*
* THIS ROUTINE IS USED WHEN
* THE SERVER IS ABOUT TO GO
* DOWN. (MULTIPLE WARNINGS)
*

zPOINT		equ		$F0
SPEAKER		equ		$E1C030
;FIRST LETS FREE UP SOME ZERO PAGE


DOSOUND		LDA		<zPOINT
			PHA
			LDA		<zPOINT+1
			PHA
			lda		<zPoint+2
			pha

;-------------------------------------------------------------------------------
; NOTE:
; Below we used to stuff a zero into ZPOINT (low byte) and ZPOINT+2 (bank byte)
; so we can change the screen values for bank 0.  Because shadowning might
; not be on, we could be trashing bank E0s screen memory.  I'm changing the
; ZPOINT+2 from $00 to $E0 so that we always touch the REAL screen memory.
;-------------------------------------------------------------------------------

			ldy		#$E0
			sty		<zPoint+2

			LDY		#0			;do stuff from bank zero
;			sty		<zPoint+2	;No longer do this!  (See about note)
			STY		<zPOINT
								;
			LDA		ATTEN_CNT
			BEQ		ATTEN1
;
ATTEN0	; 
*
* Inverse 2 TEXT pages
*
    		LDA		#$04
			STA		<zPOINT+1
			LDX		#$0C		;2 TEXT PAGES WORTH
dsLOOP1		LDA		[zPOINT],Y	;INVERT RANGE STARTED AT zPOINT
			EOR		#$FF		; TIL HIBYTE = X REG
			STA		[zPOINT],Y
			INY
			BNE		dsLOOP1
;
			CLC
			LDA		<zPOINT+1
			ADC		#$04
			STA		<zPOINT+1
			CPX		<zPOINT+1
			BNE		dsLOOP1
*
* inverse 2 high hires pages
*
			LDA		#$20
			STA		<zPOINT+1
			LDX		#$60		;2 HIRES PAGES WORTH
dsLOOP2		LDA		[zPOINT],Y	;INVERT RANGE STARTED AT zPOINT
			EOR		#$FF		; TIL HIBYTE = X REG
			STA		[zPOINT],Y
			INY
			BNE		dsLOOP2
;
			CLC
			LDA		<zPOINT+1
			ADC		#$04
			STA		<zPOINT+1
			CPX		<zPOINT+1
			BNE		dsLOOP2
*
* make some noise
*
SOUND		LDY		#$40
SOUND0	; 
			LDX		#$40
SOUND1	; 
			DEX
			BNE		SOUND1
			LDA		SPEAKER
			DEY
			BNE		SOUND0
*
* reverse 2 TEXT pages
*
			LDA		#$04
			STA		<zPOINT+1
			LDX		#$0C		;2 TEXT PAGES WORTH
dsLOOP3		LDA		[zPOINT],Y	;INVERT RANGE STARTED AT zPOINT
			EOR		#$FF		; TIL HIBYTE = X REG
			STA		[zPOINT],Y
			INY
			BNE		dsLOOP3
;
			CLC
			LDA		<zPOINT+1
			ADC		#$04
			STA		<zPOINT+1
			CPX		<zPOINT+1
			BNE		dsLOOP3
*
* reverse 2 high hires pages
*
			LDA		#$20
			STA		<zPOINT+1
			LDX		#$60		;2 HIRES PAGES WORTH
dsLOOP4		LDA		[zPOINT],Y	;INVERT RANGE STARTED AT zPOINT
			EOR		#$FF		; TIL HIBYTE = X REG
			STA		[zPOINT],Y
			INY
			BNE		dsLOOP4
;
			CLC
			LDA		<zPOINT+1
			ADC		#$04
			STA		<zPOINT+1
			CPX		<zPOINT+1
			BNE		dsLOOP4
;
;
			DEC		ATTEN_CNT
			BNE		ATTEN0
;NOW LETS RESTORE ZERO PAGE
ATTEN1	; 
			pla
			sta		<zPoint+2
			PLA
			STA		<zPOINT+1
			PLA
			STA		<zPOINT
			rts
			;
			;
			eject

*
*
*	2) COMMAND ROUTING - ISSUES AN ASP COMMAND
*	THE COMMAND & REPLY BUFFER ARE THE SAME BUFFER
*
*	ENTRY : UFILEIDX	= HEAP NUMBER FOR ASP HEAP
*	PKT_CNT	= SIZE OF PACKET TO BE SENT
*	WS_COMBUF = REQUEST PACKET LOCATION
*
*	EXIT	: A	= ERROR CODE
*	WS_COMBUF = REPLY IN BUFFER
*
*

		EXPORT	CMD_ROUTING
CMD_ROUTING		;		
*
* STUFF ASP COMMAND PACKET WITH DEFAULT VALUES
*
			JSR		CMD_STUFF
;
			LDY		#$0F
			LDA		#$00
			STA		(ZP1),Y		;SAVE LB OF REPLY LEN
			INY
			LDA		#$02
			STA		(ZP1),Y		;SAVE HB OF REPLY LEN
;
			INY
			LDA		#WS_COMBUF
			STA		(ZP1),Y		;SAVE LB OF COM BUFFER
			INY
			LDA		#>WS_COMBUF
			STA		(ZP1),Y		;SAVE HB OF COM BUFFER
			INY
			LDA		#^WS_COMBUF
			STA		(ZP1),Y
			INY
			LDA		#00			;
			STA		(ZP1),Y		;
*
* ISSUE ASP COMMAND CALL
*
			JMP		NETWORK_CALL	;EXECUTE COMMAND
;
;
			eject

*
*
*	3) NETWORK CALL - EXECUTE AN ASP CALL
*	TRANSLATE COMMAND RESULT INTO PRODOS ERROR CODE
*
*	ENTRY : ASP_HEAP = POINTER TO ASP HEAP
*
*	EXIT	: UERROR	= PRODOS ERROR CODE
*	C	= ERROR INDICATOR
*
*

		EXPORT	NETWORK_CALL
NETWORK_CALL		;		
*
*  IS APPLETALK LOCKUPED BECAUSE OF RAMFORBID ?
*
			lda		>AT_lockout
			beq		net_1
			jmp		nc_exit		;YES IT IS ---> DON'T SEND PACKET
*
* ISSUE ASP CALL
*
net_1		php					;save state
			rep		#mbit+xbit	;go full 16 bit
			longa	on
			longi	on
			stz		NETWORK_CALL_RESULT	;-----------------> Fix for bug #37942
			ldx		<ZP1		;get low word of parm	|	11/29/88
			ldy		#^pfibank	;and get bank			|	**TGH
			jsl		>RamDispatch	;make the call		|
			ldy		#$02				;---------------|
			lda		(ZP1),y				;---------------|
			sta		NETWORK_CALL_RESULT ;---------------'
			plp					;recover mode which was 8 bit
			longa	off
			longi	off

			LDY		#$02		;LB OF RESULT CODE
			LDA		(ZP1),Y
			BNE		NETWORK_ERR	;ERROR IN NETWORK CALL
*
* CLEAR PFI FLAG
*
			STZ		PFI_STATUS
*
* IS THIS AN ASP OPEN SESSION ?
*
			LDY		#$01
			LDA		(ZP1),Y
			CMP		#CMD_ASPOPN
			BNE		NETWORK_CALL1	;NO IT IS NOT
			CLC
			RTS					;FINISHED PROCESSING OPEN
*
* IS THIS AN ASP CLOSE SESSION ?
*
NETWORK_CALL1	; 
			CMP		#CMD_ASPCLO
			BNE		NETWORK_CALL2	;NO IT IS NOT
			CLC
			RTS					;FINISHED PROCESSING CLOSE
*
* IS THIS AN ASP COMMAND ?
*
NETWORK_CALL2	; 
			;
			;
			pha				;saves ASP Command Number
			lda		ZP1
			pha
			lda		ZP1+1
			pha
			jsr		Update_TMR
			pla
			sta		ZP1+1
			pla
			sta		ZP1
			pla				;Restore ASP Command Number
			;
			;
			;
			CMP		#CMD_ASPCMD
			BNE		NETWORK_CALL3	;NO,IT IS NOT
								;
			LDY		#$18		;OFFSET TO LB OF CMD RESULT
			BRA		NETWORK_CALL4	;TRANSLATE ERROR
*
* IS THIS AN ASP WRITE ?
*
NETWORK_CALL3	; 
			CMP		#CMD_ASPWRT
			BNE		NETWORK_ERR	;SHOULD NOT BE HERE
								;
			LDY		#$1E		;OFFSET TO LB OF CMD RESULT
*
* FIND AFP ERROR IN ASP TABLE
* IF ERROR IS NOT FOUND IT IS AN I/O ERROR
*
NETWORK_CALL4	; 
			LDX		#$FF
NETWORK_CALL5	; 
			INX
			LDA		AFP_ERROR,X
			CMP		(ZP1),Y
			BEQ		NETWORK_CALL6	;ERROR WAS FOUND
			CMP		#$FF			;END OF TABLE ?
			BNE		NETWORK_CALL5	;LOOK AT THE NEXT RECORD
*
* SAVE UNKNOWN PFI ERROR - SET I/O ERROR
*
			STA		Cn_PFIERR	;save UNKNOWN PFI ERROR
			LDA		#$27		;I/O ERROR
			STA		UERROR
			SEC
			RTS
*
* TRANSLATE INTO PRODOS ERROR
*
NETWORK_CALL6	; 
			STA		Cn_PFIERR	;SAVE PFI ERROR
;
			LDA		PRODOS_ERROR,X
			STA		UERROR
			BEQ		NETWORK_CALL7	;NO ERROR
;
			SEC
			RTS
*
* NO ERROR IN ASP & AFP CALL
*
NETWORK_CALL7	; 
			CLC
			RTS
*
* ERROR IN MAKING NETWORK CALL
*
*
NETWORK_ERR	; 
*
* find asp parameter list
*
;
			LDY		#$02
			LDA		(ZP1),Y		;is this an invalid session error
			CMP		#$03
			BNE		nc_EXIT		;
*
* is this a valid session ?
*
			LDY		#$08		;session ref #
			LDA		(ZP1),Y
			BEQ		nc_EXIT		;NOT A VALID SESSION #
;
			LDX		#$00
nc_LOOP1	CMP		SESSION_TBL,X
			BEQ		nc_SESS_FND	;yes this is an acitve session
			INX
			CPX		#MAXSESSION
			BNE		nc_LOOP1
			BRA		nc_EXIT		;session no longer valid
*
* remove session from session table
* UNMOUNT VOLUMES FOR THAT SESSION
*
nc_SESS_FND	stx		UM_INDEX		;Store for later use
			STZ		SESSION_TBL,X
			PHA
;
			LDX		#13
nc_LOOP3	PLA
			PHA
			BEQ		nc_DONE
			CMP		NDT_SESS,X
			BNE		nc_LOOP4		;THIS IS NOT THE SAME SESSION
			lda		UM_INDEX
			ldy		#00
			CLC					;SEND NO PACKET
			JSR		VOL_UNMOUNT	;X IS OFFSET TO NDT TABLES
; X IS UNCHANGED !!!
nc_LOOP4	DEX
			BPL		nc_LOOP3		;MORE TO CHECK
nc_DONE		PLA
*
* set flags for exit
*
nc_EXIT		STZ		PFI_STATUS	;MAKE SURE FLAG IS CLEARED
;
			LDA		#$FF
			STA		Cn_PFIERR	;SET ERROR TO NETWORK
;
			LDA		#$27
			STA		UERROR		;SAVE PRODOS ERROR
			SEC
			RTS
;
;
			eject
*
*
*	6) MLI COMMAND TABLE
*
*
		EXPORT	CMDCODE
CMDCODE		;		
	DC.B	$C0	;CREATE
	DC.B	$C1	;DESTROY
	DC.B	$C2	;RENAME
	DC.B	$C3	;SET_FILE_INFO
	DC.B	$C4	;GET_FILE_INFO
	DC.B	$C5	;ON_LINE
	DC.B	$C6	;SET_PREFIX
	DC.B	$C7	;GET_PREFIX
;
	DC.B	$C8	;OPEN
	DC.B	$C9	;NEWLINE
	DC.B	$CA	;READ
	DC.B	$CB	;WRITE
	DC.B	$CC	;CLOSE
	DC.B	$CD	;FLUSH
	DC.B	$CE	;SET_MARK
	DC.B	$CF	;GET_MARK
	DC.B	$D0	;SET_EOF
	DC.B	$D1	;GET_EOF
	DC.B	$D2	;SET_BUF
	DC.B	$D3	;GET_BUF
;
	DC.B	$65	;PRODOS QUIT CALL
	DC.B	$43	;OPEN FORK
	DC.B	$44	;BYTE LOCK
	DC.B	$45	;change path
	DC.B	$82	;get time
;'
	DC.B	$40	;ALLOC_INTERRUPT
	DC.B	$41	;DEALLOC_INTERRUPT
	DC.B	$80	;READ_BLOCK
	DC.B	$81	;WRITE_BLOCK
;
	DC.B	$00	;END OF MAIN COMMANDS
;
;
			eject


*
*	7) MLI	PARAMETER COUNT TABLE
*
*

		EXPORT	PCOUNT
PCOUNT		;		
	DC.B	$07	;CREATE
	DC.B	$01	;DESTORY
	DC.B	$02	;RENAME
	DC.B	$07	;SET FILE INFO
	DC.B	$0A	;GET FILE INFO
	DC.B	$02	;ON LINE
	DC.B	$01	;SET PREFIX
	DC.B	$01	;GET PREFIX
;'
	DC.B	$03	;OPEN
	DC.B	$03	;NEWLINE
	DC.B	$04	;READ
	DC.B	$04	;WRITE
	DC.B	$01	;CLOSE
	DC.B	$01	;FLUSH
	DC.B	$02	;SET MARK
	DC.B	$02	;GET MARK
	DC.B	$02	;GET EOF
	DC.B	$02	;GET EOF
	DC.B	$02	;SET BUF
	DC.B	$02	;GET BUF
;
	DC.B	$04	;PRODOS QUIT CALL
	DC.B	$04	;OPEN FORK
	DC.B	$05	;BYTE LOCK
	DC.B	$02	;change path
	DC.B	$00	;get time
;
	DC.B	$02	;ALLOCATE INTERRUPT
	DC.B	$01	;DEALLOCATE INTERRUPT
	DC.B	$03	;READ BLOCK
	DC.B	$03	;WRITE BLOCK
;
;
			eject

*
*
*	8) MLI CHARACTERISTICS TABLE
*
* BITMAP :
*	BIT 0 = LOCAL CALL
*	BIT 1 = LOCAL IF SET TO LOCAL
*	BIT 2 = REF # NEEDED
*	BIT 3 = PATHNAME USED
*	BIT 4 = UNIT # USED
*	BIT 5 = UNUSED
*	BIT 6 = LIST RETURNED
*	BIT 7 = DATA RETURNED
*

		EXPORT	CMDTYPE
CMDTYPE		;		
	DC.B	%00001010	;CREATE
	DC.B	%00001010	;DESTROY
	DC.B	%00001010	;RENAME
	DC.B	%00001010	;SET FILE INFO
	DC.B	%01001010	;GET FILE INFO
	DC.B	%11010010	;ONLINE
	DC.B	%00001000	;SET PREFIX
	DC.B	%00000000	;GET PREFIX
;'
	DC.B	%01000000	;OPEN
	DC.B	%00000100	;NEWLINE
	DC.B	%11000100	;READ
	DC.B	%01000100	;WRITE
	DC.B	%00000100	;CLOSE
	DC.B	%00000100	;FLUSH
	DC.B	%00000100	;SET MARK
	DC.B	%00000100	;GET MARK
	DC.B	%00000100	;SET EOF
	DC.B	%01000100	;GET EOF
	DC.B	%00000100	;SET BUF
	DC.B	%00000100	;GET BUF
;
	DC.B	%00000000	;PRODOS QUIT CALL
	DC.B	%01000000	;OPEN FORK
	DC.B	%01000100	;BYTE LOCK
	DC.B	%00000000	;change path
	DC.B	%00000010	;get time
;
	DC.B	%00000001	;ALLOC INT
	DC.B	%00000001	;DEALLOCATE INT
	DC.B	%00010000	;READ BLOCK
	DC.B	%00010000	;WRITE BLOCK
;
;
			eject

*
*
*	9) PROCESS ADDRESS TABLE
*
*

		EXPORT	MCPADDR
MCPADDR		;		
	DC.W	CREATE	;CREATE
	DC.W	DESTROY	;DESTORY
	DC.W	RENAME	;RENAME
	DC.W	SETINFO	;SET FILE INFO
	DC.W	GETFINFO	;GET FILE INFO
	DC.W	ONLINE	;ON LINE
	DC.W	SETPREFIX	;SET PREFIX
	DC.W	GETPREFIX	;GET PREFIX
;
	DC.W	OPEN	;OPEN
	DC.W	NEWLINE	;NEWLINE
	DC.W	READ	;READ
	DC.W	WRITE	;WRITE
	DC.W	CLOSE	;CLOSE
	DC.W	FLUSH	;FLUSH
	DC.W	SETMARK	;SET MARK
	DC.W	GETMARK	;GET MARK
	DC.W	SETEOF	;SET EOF
	DC.W	GETEOF	;GET EOF
	DC.W	SETBUF	;SET BUF
	DC.W	GETBUF	;GET BUF
;
	DC.W	QUITCALL	;PRODOS QUIT CALL
	DC.W	OPEN	;OPEN FORK = OPEN
	DC.W	BYTELOCK	;BYTE RANGE LOCK
	DC.W	changepath	;change path call (for p16)
	DC.W	gettime	;get time
								;
;
			eject

*
*
* 10) POSSIBLE UNIT NUMBERS
*
*

		EXPORT	PUN_ROM
PUN_ROM		;		
	DC.B	$70,$F0	;SLOT 7
	DC.B	$60,$E0	;SLOT 6
	DC.B	$50,$D0	;SLOT 5
	DC.B	$40,$C0	;SLOT 4
	DC.B	$30,$00	;SLOT 3 - ram disk not available
	DC.B	$20,$A0	;SLOT 2
	DC.B	$10,$90	;SLOT 1
;
;
			eject

*
*
* ERROR CONVERSIONS FROM AFP INTO PRODOS
*
*
*	AFP ERROR	PRODOS ERROR
*
*	$00	NO ERROR	=	$00	NO ERROR
*	$78	ACCESS DENIED	=	$4E	FILE ACCESS ERROR
*	$77	AUTH CONTINUE	=	$27	I/O ERROR
*	$76	BAD UAM	=	$27	I/O ERROR
*	$75	BAD VERSION NUMBER	=	$27	I/O ERROR
*	$74	BITMAP ERROR	=	$53	INVALID PARAMETER
*	$73	CAN'T MOVE	=	$27	I/O ERROR
*	$72	DENY CONFLICT	=	$4E	FILE ACCESS ERROR
*	$71	DIR NOT EMPTY	=	$4E	FILE ACCESS ERROR
*	$70	DISK FULL	=	$48	VOLUME FULL
*	$6F	EOF ERROR	=	$4C	END OF FILE
*	$6E	FILE BUSY	=	$50	FILE IS OPEN
*	$6D	FLAT VOLUME	=	$27	I/O ERROR
*	$6C	ITEM NOT FOUND	=	$44	DIRECTORY NOT FOUND
*	$6B	LOCK ERROR	=	$4E	FILE ACCESS ERROR
*	$6A	MISC ERROR	=	$27	I/O ERROR
*	$69	NO MORE LOCKS	=	$27	I/O ERROR
*	$68	NO SERVER	=	$27	I/O ERROR
*	$67	OBJECT EXISTS	=	$47 DUPLICATE FILENAME
*	$66	OBJECT NOT FOUND	=	$44	FILE NOT FOUND
*	$65	PARAMETER ERROR	=	$53	INVALID PARAMETER
*	$64	RANGE NOT LOCKED	=	$4D	POSITION OUT OF RANGE
*	$63	RANGE OVERLAP	=	$4D	POSITION OUT OF RANGE
*	$62	SESSION CLOSED	=	$27	I/O ERROR
*	$61	USER NOT AUTH	=	$4E	ACCESS ERROR
*	$60	CALL NOT SUPPORTED	=	$01	BAD CALL NUMBER
*	$5F	OBJECT TYPE ERROR	=	$44 dir not found
*	$5E	TOO MANY FILES OPEN =	$42	MAX NUMB OF OPEN FILES
*	$5D	SERVER GOING DOWN	=	$27	I/O ERROR
*	$5C	CAN'T RENAME	=	$4E	ACCESS ERROR
*
*
;
;
			eject

*
*
* 11) AFP ERROR TABLE (LOWEST BYTE)
*
*

		EXPORT	AFP_ERROR
AFP_ERROR		;		
	DC.B	$00	;NO ERROR
	DC.B	$78	;ACCESS DENIED
	DC.B	$77	;AUTH CONTINUE
	DC.B	$76	;BAD UAM
	DC.B	$75	;BAD VERSION NUMBER
	DC.B	$74	;BITMAP ERROR
	DC.B	$73	;CANT MOVE
	DC.B	$72	;DENY CONFLICT
	DC.B	$71	;DIR NOT EMPTY
	DC.B	$70	;DISK FULL
	DC.B	$6F	;EOF ERROR
	DC.B	$6E	;FILE BUSY
	DC.B	$6D	;FLAT VOL
	DC.B	$6C	;ITEM NOT FOUND
	DC.B	$6B	;LOCK ERROR
	DC.B	$6A	;MISC ERROR
	DC.B	$69	;NO MORE LOCKS
	DC.B	$68	;NO SERVER
	DC.B	$67	;OBJECT EXISTS
	DC.B	$66	;OBJECT NOT FOUND
	DC.B	$65	;PARAMETER ERROR
	DC.B	$64	;RANGE NET LOCKED
	DC.B	$63	;RANGE OVERLAP
	DC.B	$62	;SESSION CLOSED
	DC.B	$61	;USER NOT AUTH
	DC.B	$60	;CALL NOT SUPPORTED
	DC.B	$5F	;OBJECT TYPE ERROR
	DC.B	$5E	;TOO MANY FILES OPEN
	DC.B	$5D	;SERVER GOING DOWN
	DC.B	$5C	;CAN'T RENAME
	DC.B	$5B	;directory not found
	DC.B	$5A	;Icon Type Error
	DC.B	$59	; Volume Locked
	DC.B	$58	; Object Locked

;
	DC.B	$FF	;END OF THE ERROR TABLE
;
;
			eject

*
*
* 12) PRODOS ERROR TABLE (TRANSLATED)
*
*


		EXPORT	PRODOS_ERROR
PRODOS_ERROR		;		
	DC.B	$00	;NO ERROR
	DC.B	$4E	;FILE ACCESS ERROR
	DC.B	$27	;I/O ERROR
	DC.B	$27	;I/O ERROR
	DC.B	$27	;I/O ERROR
	DC.B	$53	;INVALID PARAMETER
	DC.B	$27	;I/O ERROR
	DC.B	$4E	;FILE ACCESS ERROR
	DC.B	$4E	;FILE ACCESS ERROR
	DC.B	$48	;VOLUME FULL
	DC.B	$4C	;END OF FILE
	DC.B	$50	;FILE IS OPEN
	DC.B	$27	;I/O ERROR
	DC.B	$44	;DIRECTORY NOT FOUND
	DC.B	$4E	;FILE ACCESS ERROR
	DC.B	$27	;I/O ERROR
	DC.B	$4E	;I/O ERROR
	DC.B	$27	;I/O ERROR
	DC.B	$47	;DUPLICATE FILENAME
	DC.B	$44	;DIRECTORY NOT FOUND
	DC.B	$53	;INVALID PARAMETER
	DC.B	$4D	;POSITION OUT OF RANGE
	DC.B	$4D	;POSITION OUT OF RANGE
	DC.B	$27	;I/O ERROR
	DC.B	$4E	;ACCESS ERROR
	DC.B	$01	;BAD CALL NUMBER
	DC.B	$44	;dir not found
	DC.B	$42	;MAX NUMBER OF OPEN FILES
	DC.B	$27	;I/O ERROR
	DC.B	$4E	;ACCESS ERROR
	DC.B	$44	;DIRECTORY NOT FOUND
	DC.B	$27	;I /o  Error
	DC.B	$4E	; Volume Locked
	DC.B	$4E	; Object Locked

;
	DC.B	$27	;END OF TABLE
;
;

			eject

*
*
* 9) STUFF THE ASP COMMAND PARAMETER LIST
*
*	ENTRY : ASP_HEAP1 = HEAP NUMBER FOR ASP HEAP
*	CURRSESS	= CURRENT SESSION NUMBER
*
*	EXIT	: ZP1	= POINTER TO ASP PARAMETER LIST
*
*

		EXPORT	CMD_STUFF
CMD_STUFF		;		
*
* CREATE ASP COMMAND PARAMETER LIST
*

;
			jsr		getzp1parm	;set zp1 to point to parm list area
			LDY		#$00
			LDA		#00
			STA		(ZP1),Y		;SAVE ASYNC FLAG
;
			INY
			LDA		#CMD_ASPCMD
			STA		(ZP1),Y		;SAVE COMMAND

			ldy		#$08
			LDA		CURSESS
			STA		(ZP1),Y		;SAVE SESSION REFERENCE #
;
			INY
			LDA		PKT_CNT
			STA		(ZP1),Y		;SAVE LB OF CMD LENGTH
			INY
			LDA		PKT_CNT+1
			STA		(ZP1),Y		;SAVE HB OF CMD LENGTH
;
			INY
			LDA		#WS_COMBUF
			STA		(ZP1),Y		;SAVE LB OF CMD PTR
			INY
			LDA		#>WS_COMBUF
			STA		(ZP1),Y		;SAVE HB OF CMD PTR
			INY
			LDA		#^WS_COMBUF
			STA		(ZP1),Y
			INY
			LDA		#$80		;ONCARD BUFFER
			STA		(ZP1),Y
			RTS
;
;
*
* update the session Timer 
*
*
		EXPORT	Update_TMR
Update_TMR		;		
			ldx		#$00
			lda		CURSESS	;current session
			beq		Update_x
			;
Update_lk	cmp		SESSION_TBL,x
			beq		Update_fnd
			inx
			cpx		#$08
			bne		Update_lk
Update_x	rts					;not Found
			;
			;

*
* Find the Session's Timer
*
Update_fnd	txa
			asl		a
			tax
			lda		SESS_TMRTBL,x
			sta		ZP1
			inx
			lda		SESS_TMRTBL,x
			sta		ZP1+1
*
* lock out Appletalk
*
			JSL		>Ramforbid
*
* update time to wait to 240 quarter seconds
*
			ldy		#$0a
			lda		#240
			sta		(ZP1),y
			iny
			lda		#$00
			sta		(ZP1),y
*
* is the call done ??
*
			ldy		#$02
			lda		(ZP1),y
*
*  unlock Appletalk interrupts
*
			jsl		>Rampermit
*
* reissue INstall Timer
*
			cmp		#$00
			bne		Update_exit   ;call is still going
			;
			php				;save state
			rep		#mbit+xbit	;go full 16 bit
			longa	on
			longi	on
			ldx		<ZP1		;get low word of parm
			ldy		#^pfibank	;and get bank
			jsl		>RamDispatch	;make the call
			plp				;recover mode which was 8 bit
			longa	off
			longi	off
Update_exit	rts
								;
								; -----> end
								;
				


		

		ENDP

		end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/ATRam/PFI/PFI_cmdsubs6.aii b/IIGS.601.SRC/GS.OS/Drivers/ATRam/PFI/PFI_cmdsubs6.aii
new file mode 100644
index 0000000..4470f3b
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/ATRam/PFI/PFI_cmdsubs6.aii
@@ -0,0 +1 @@
+
;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

	IMPORT	ADJUST
	IMPORT	AFP
	IMPORT	CENT
	IMPORT	CLK_BUF
	IMPORT	DA
	IMPORT	DIVID
	IMPORT	DIVIS
	IMPORT	DT
	IMPORT	HR
	IMPORT	MIN
	IMPORT	MO
	IMPORT	MULT1
	IMPORT	MULT2
	IMPORT	PROD
	IMPORT	PRO_TIME
	IMPORT	QUOT
	IMPORT	REMAIN
	IMPORT	SEC
	IMPORT	YR
	IMPORT	YR4
	IMPORT	afp_pfx_dev
	IMPORT	afp_pfxloc
	IMPORT	chk_prodos
	IMPORT	chkslash
	IMPORT	cmd_routing
	IMPORT	cn_devnum
	IMPORT	fnd_cursrv
	IMPORT	path2buf
	IMPORT	pfi_naming
	IMPORT	pro_pfx_dev
	IMPORT	pro_pfxloc
	IMPORT	secondname
	IMPORT	strip_prefix
	IMPORT	stuff_ids
	IMPORT	tempv
	IMPORT	uerror
	IMPORT	ws_combuf
	IMPORT	ws_path
	IMPORT	xpath2card

;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

	ENTRY	DC_TBL
	ENTRY	DIVIDE
	ENTRY	MC_TBL
	ENTRY	MO_2
	ENTRY	MO_ADJ
	ENTRY	MO_DAYS
	ENTRY	MULT
*
* pfi_cmdsubs6
*
* Greg Seitz (14-Jul-87)
*
* clock and misc routines
;		EXPORT	zpcmdscs6	
;zpcmdscs6	PROC
		INCLUDE	'zp.equates'
;		ENDP
		include	'global.equates'
		include	'pfi_equates'
		
		EXPORT	pficmdsubs6	
pficmdsubs6	PROC
			longa	off
			longi	off

* routines for changepath command
*

*
* checkvalidpath
* takes path in ws_path checks to see if it is a valid name, and that
* it is a name on a network volume.
*
* X: points to where in users parmlist the pathname field exists.
*
* exit
* carry is clear if no error
* carry set if badname or not network volume (A=error result)
*
		EXPORT	checkvalidpath
checkvalidpath		;		
			jsr		xpath2card		;move up parmlist at x
			bcs		badname			;couldn't get name
			lda		ws_path			;see if len is zero or one
			beq		badname			;it is zero, error
			cmp		#$02
			bcs		cvp1			;so far so good
			lda		ws_path+1		;check only char
			cmp		#slash
			beq		badname			;a bad name since only a slash
cvp1		bit		pfi_naming		;see if in prodos mode
			bmi		cvp2			;in afp mode
			jsr		chk_prodos		;see if valid name under prodos
			bcs		badname			;nope
cvp2		jsr		chkslash			;see if volume
			bcs		isvol			;yes it is
			bit		pfi_naming		;see if prodos
			bmi		cvp3			;no, afp mode
			lda		pro_pfxloc
			cmp		#$ff			;see if local
			beq		accesserr
			lda		pro_pfx_dev		;get device number
			bra		isvalid
cvp3		lda		afp_pfxloc
			cmp		#$ff
			beq		accesserr		;local prefix, not valid network call
			lda		afp_pfx_dev
isvalid	; 
			and		#%11110000
			sta		cn_devnum
goodname	; 
			clc						;no error occurred
			rts						;and return
badname	; 
			lda		#$40			;invalid pathname
			bra		seterr
accesserr	lda		#$4e			;not on a network volume
seterr	; 
			sta		uerror
			sec
			rts						;return with error
isvol	; 
			jsr		fnd_cursrv		;see if we have this volume
			bcs		accesserr		;volume not mounted
			jsr		strip_prefix		;strip off the prefix if there is one that matches
			bra		goodname		;and leave in good condition


*
* command $45= changepath
*
		EXPORT	changepath
changepath		;		
			lda		#movecmd		;afpmove
			sta		ws_combuf
			stz		ws_combuf+1
			ldx		#1				;get first parm list
			jsr		checkvalidpath		;see if path is ok
			bcs		cperr			;change path error, leave
			jsr		stuff_ids			;stuff id's for it
			ldx		#5				;move data from ws_combuf to temp space
cplp1	; 
			lda		ws_combuf+2,x	;get data for volid and dirid
			sta		tempv,x			;and move it
			dex
			bpl		cplp1			;keep moving
			clc						;no padding
			ldx		#12			;move pathname into combuf
			jsr		path2buf
			phx						;save position of next item in buf
			ldx		#3				;get second parm list
			jsr		checkvalidpath
			bcc		cpcp			;no error
			plx						;remove unused position of where to move dest path

cperr	; 
			sep		#mbit+xbit
			lda		#$40
			sta		uerror
			rts

cpcp	; 
			jsr		stuff_ids			;stuff id's for it
			plx						;get position of where to move dest path
			rep		#mbit+xbit
			longa	on
			longi	on				;full native

			ldy		#0000
cplp2	; 
			lda		ws_combuf+4,y	;get dir id byte
			sta		ws_combuf+8,y 	;move it to dest dir id
			lda		tempv+2,y		;get dirid from first name
			sta		ws_combuf+4,y	;and put it back
			iny
			iny
			cpy		#4				;see if done moving
			bne		cplp2			;not yet
			lda		tempv			;see if volumes match
			cmp		ws_combuf+2
			bne		cperr

 			phx						;save pointer in combuf
 			jsr		breakname		;break name in two
 			plx						;recover pointer in combuf

			sep		#mbit			;path2buf needs 8 bit a
			longa	off

			clc						;no padding
			jsr		path2buf			;and move second name in

 			lda		secondname		;get len of second name
 			tay						;strip high byte
mvscnm	; 
 			lda		secondname,y		;move secondname to ws_path
 			sta		ws_path,y
 			dey
			bpl		mvscnm			
			clc
			jsr		path2buf			;and move third name in

*			lda		#02
*			sta		ws_combuf,x
*			lda		#00
*			sta		ws_combuf+1,x	;no rename so put nothing there
*			inx
*			inx
*			stx		pkt_cnt

			sep		#mbit+xbit		;back to 8 bit mode
			longa	off
			longi	off

			jmp		cmd_routing		;make the call


breakname	; 
			php
			sep		#mbit+xbit
			longa	off
			longi	off

			ldx		ws_path			;get len
			lda		ws_path,x		;get last char
			cmp		#slash			;see if a '/'
			bne		splitup			;no so split name
			dex
			stx		ws_path			;save new len
splitup	; 
			lda		ws_path,x		;get char
			cmp		#slash
			beq		dosplit			;found location to break maybe
			dex
			bne		splitup			;not yet zero
			bra		dosplit			;we hit zero so we must split now
nosecondname	stz		secondname		;secondname len is zero
			bra		splexit
dosplit	; 
			phx						;save new len
			lda		ws_path			;get original len
			sec
			sbc		$1,s			;subtract new len
			cmp		#33			;see if too large
			bcs		nosecondname		;make sure it fails
			sta		secondname		;set length of second name
			plx						;recover new len of first part
			stx		ws_path			;set new len of first part
			ldy		#00
spmove	; 
			lda		ws_path+1,x		;get name of second part
			sta		secondname+1,y
			iny
			inx
			cpy		secondname		;see if at end
			bcc		spmove			;not yet
splexit	; 
			plp
			rts						;and return

*
*------------------------
*
*	TABLES FOR DAY OF WEEK CONVERSION_
*
MOTAB	DC.B	5,1,0,3,5,1,3,6,2,4,0,2
YRTAB	DC.B	5,6,0,2,3,4,5,0,1,2,3,5,6,0,1
*
*------------------------
*
*
*	CONVERT TO PRODOS FORMAT (USED BY PFI & SERVER
*	DRIVERS).
*
		EXPORT	b1_clk2pro
b1_clk2pro		;		
		EXPORT	CLK2PRO
CLK2PRO		;		
			LDA		CLK_BUF+8	; GET MONTH
			ASL		A
			ASL		A
			ASL		A
			ASL		A
			ASL		A			; MSB OF MONTH TO CARRY
			ORA	CLK_BUF+7	; 'ADD' IN DAY OF MONTH
			STA	PRO_TIME
			LDA		CLK_BUF+9	; GET YEAR
			ROL		A			; MSB OF MONTH TO LSB OF [A]
			STA	PRO_TIME+1
			LDA		CLK_BUF+2	; GET MINUTES
			STA	PRO_TIME+2
			LDA		CLK_BUF+4	; GET HOURS
			STA	PRO_TIME+3
			RTS
*
*--------------------------
*
*	CONVERT FROM PRODOS TO CLOCK FORMAT (USED BY PFI *
*	SERVER DRIVERS).
*
		EXPORT	b1_pro2clk
b1_pro2clk		;		
		EXPORT	PRO2CLK
PRO2CLK		;		
			LDA		PRO_TIME+3	; GET HOURS
			STA	CLK_BUF+4
			LDA		PRO_TIME+2	; GET MINUTES
			STA	CLK_BUF+2
			LDA		PRO_TIME+1	; GET YEAR, MSB OF MONTH
			LSR		A			; MONTH MSB TO CARRY
			STA	CLK_BUF+9	; YEAR
			TAY					; SAVE FOR D-O-W CONVERSION
			LDA		PRO_TIME	; GET MONTH, DAY
			ROR		A			; TACK ON MONTH BIT
			LSR		A
			LSR		A
			LSR		A
			LSR		A			; POSITION
			STA	CLK_BUF+8	; MONTH
			TAX				; SAVE FOR D-O-W CONVERSION
			LDA		PRO_TIME	; GET DAY
			AND	#%00011111	; DROP MONTH DATA
			STA	CLK_BUF+7
*
*	DO THE CONVERSION FOR DAY-OF-WEEK_	THIS CONVERSION
*	FALLS APART AFTER FEBRUARY, 2012* AND BEFORE MARCH, 1985_
*
			CPX		#3			; MONTH GREATER THAN 2?
			BCS		DOW1		; IF SO, USE SAME YEAR
			DEY					; ELSE PRETEND IT IS LAST YEAR
DOW1		CPY		#85		; LESS THAN '85 IS NEXT CENTURY
			BCC		DOW2
			LDA		YRTAB-85,Y	; WORKS FOR '85 - '99
			BRA	DOW3		; SKIP OVER OTHER TABLE FETCH
DOW2		LDA		YRTAB+3,Y	; WORKS FOR '00 - '11
DOW3		CLC
			ADC	MOTAB-1,X	; ADD IN OFFSET FOR MONTH OF YEAR
			ADC	CLK_BUF+7	; ADD IN DAY OF MONTH
			DEC		A			; COMPENSATE FOR DAY OF MONTH OFFSET
			SEC
DOW4		SBC		#7			; DO MOD 7 OPERATION
			BCS		DOW4		; SUBTRACT UNTIL WE GO NEG
			ADC	#7			; ADD ONE BACK
			INC		A			; CONVERT TO 1-7
			STA	CLK_BUF+6
			RTS
*
*	THIS IS THE DEFAULT TIME VALUE, USED WHEN THE CLOCK BATTERY
*	HAS BEEN REPLACED OR HAS RUN-DOWN. (MIDNIGHT, MARCH 1, 1985).
*
		EXPORT	PRO_DEF
PRO_DEF		;		
	DC.B	$61	; MARCH 1
	DC.B	85*2	; 1985
	DC.B	0,0
	DC.B	0,0

			eject
*
* DRIVER SUBROUTINE: CHK_PROTIME -CHECK PRODOS TIME FORMAT
*
*	ENTRY: PRO_TIME = PRODOS TIME
*
*	EXIT:	[CARRY] = ERROR INDICATOR (CLEAR= FAILED)
*
*
		EXPORT	b1_chk_protime
b1_chk_protime		;		
		EXPORT	CHK_PROTIME
CHK_PROTIME		;		
*
* IS THE DATE LATER THAN THE DEFAULT DATE ? (MARCH 1,1985)
*
; SEC
; LDA PRO_TIME
; SBC PRO_DEF ;DEFALUT BYTE #1
; LDA PRO_TIME+1
; SBC PRO_DEF+1 ;DEFALUT BYTE #2
; BCC XCHK_PROTIME ;ERROR, DATE TO EARLY !!!
*
* IS THE MONTH IN A VALID RANGE ?
*
			LDA		PRO_TIME+1
			AND	#%00000001	;SAVE ONLY LOW BIT
			ROR		A			;SHIFT INTO CARRY
*
			LDA		PRO_TIME
			ROR		A			;ROLL IN CARRY INTO HIGH BIT
			AND	#%11110000	;SAVE HIGH FOUR BITS
			BNE		CHK_PROTIME1	;THERE IS A MONTH
			CLC
			RTS					;ERROR, MONTH VALUE WAS ZERO
*
CHK_PROTIME1	; ;IS RANGE OK ?
			CMP	#$D0		;LARGEST POSSIBLE MONTH+1
			BCC		CHK_PROTIME2	;NO ERROR
			CLC
			BRA	XCHK_PROTIME	;ERROR,MONTH TOO LARGE
*
* IS MINUTES IN A VALID RANGE ?
*
CHK_PROTIME2	; 
			LDA		#59
			CMP	PRO_TIME+2
			BCC		XCHK_PROTIME	;ERROR,MINUTE VALUE TOO LARGE
*
* IS HOUR IN A VALID RANGE ?
*
			LDA		#23
			CMP	PRO_TIME+3
*
XCHK_PROTIME	RTS
*
**********************************************************
*
*	CONVERT BETWEEN STANDARD AND AFP TIME
*
*	WRITTEN BY HOWARD W. RIDENOUR
*
**********************************************************
*
*	CONVERT AFP TIME TO LOCAL TIME IN STANDARD
*	FORMAT
*
*	ENTRY:	AFP TIME IN AFP - HIGH TO LOW ORDER
*	EXIT:	TIME IN STD
*
**********************************************************
		EXPORT	b1_afp2std
b1_afp2std		;		
		EXPORT	AFP2STD
AFP2STD		;		
*
* CONVERT TO TIME IN SECONDS SINCE JAN 1ST 1929
* FOR LOCAL TIME ZONE
*
			LDY		#3
			LDA		AFP
			EOR		#$80		;INVERT HI BIT
			STA	AFP
			CLC
ALOOP1		LDA		AFP,Y		;ADJUST TO JAN 1ST 1929 + ZONE
			ADC	ADJUST,Y
			STA	AFP,Y
			DEY
			BPL		ALOOP1
*
* NOW USE CONSTANT TABLE AND DIVIDE TO CONVERT
*
			LDX		#0
			LDY		#0
ALOOP2		PHX
			LDX		#3
ALOOP3		LDA		DC_TBL,Y	;GET NEXT DIVISOR
			STA	DIVIS,X
			INY
			DEX
			BPL		ALOOP3
			LDX		DC_TBL,Y	;GET POWER FACTOR
			INY
			PHY
			JSR		DIVIDE		;DIVIDE IT
			PLY
			LDA		QUOT
			PLX
			STA	DT,X		;STORE RESULT IN STD
			INX
			CPX		#6			;ALL DONE DOWN TO SECS
			BNE		ALOOP2
			LDA		DIVID+3
			STA	SEC
			LDA		#28			;INIT FEB = 28 DAYS
			STA	MO_2
*
* HANDLE SPECIAL CASE OF 12/31 ON LEAP YEAR
* IT GETS CALCULATED AS 1/1 OF THE NEXT YEAR
*
* THIS ROUTINE CHECKS TO SEE IF YR = 4
* THIS SHOULD NEVER OCCUR BECAUSE EVERY
* 4 YEAR PERIOD WITH LEAP YEAR IS DIVIDED
* OUT WITH THE FACTOR PLACED IN THE 'YR4'
* FIELD
*
* DAY IS SET AT 35 BECAUSE THIS IS THE VALUE
* IT WOULD HAVE HAD BEFORE LEAP YEAR DAY IS
* REMOVED AND THE ADJUSTMENT IS MADE FOR MONTHS
* WITH OTHER THAN 30 DAYS
*
			LDA		YR
			CMP	#4			;YR = 4 ?
			BNE		A2S_1
			DEC		YR
			LDA		#11
			STA	MO			;MONTH = 12
			LDA		#35
			STA	DA			;DAY = 31 + ADJUST
*
* TOTAL YEARS = YEARS SINCE 1929
*
A2S_1		CLC
			LDA		YR4			;CALC TOTAL YEARS
			ASL		A			;MULTIPLY BY 4
			ASL		A
			ADC	YR
			ADC	#29
			STA	YR
			STZ		YR4			;ZERO 4-YR FIELD
			SEC
			SBC		#100		;PAST YEAR 2000?
			BCC		A2S_1A
			STA	YR			;YEARS = REMAINDER
			INC		CENT		;INCREMENT CENTURY
*
* CHECK FOR LEAP YEAR
*
A2S_1A		LDA		YR
			LSR		A			;YEAR DIVISIBLE BY 4 ?
			BCS		A2S_2
			LSR		A
			BCS		A2S_2
			LDA		#29		;FEB HAS 29 DAYS
			STA	MO_2
			LDX		MO
			CPX		#2			;PAST FEB ?
			BCC		A2S_2
			DEC		DA			;ADJUST FOR LEAP YEAR DAY
*
* ADJUST FOR MONTHS NOT = 30 DAYS
*
A2S_2		LDA		DA
			LDX		MO
			SEC
			SBC		MO_ADJ,X	;ADJUST FOR MONTHS NOT = 30 DAYS
			STA	DA
			BPL		A2S_3		;IF DAY NEG - BACKUP ONE MONTH
			DEC		MO
			DEX
			CLC
			ADC	MO_DAYS,X	;SUBTRACT FROM DAYS IN MONTH
			STA	DA
*
* CHECK FOR TOO MANY DAYS IN FEB
*
A2S_3		LDA		MO
			CMP	#1
			BNE		A2S_4
			LDA		DA
			SEC					;MUST SUB 1 EXTRA
			SBC		MO_2		;TOO MANY DAYS IN FEB ?
			BCC		A2S_4
			STA	DA
			INC		MO			;IF YES - GO TO NEXT MONTH
*
* DAY AND MONTH START WITH 1 NOT ZERO
*
A2S_4		INC		DA
			INC		MO
			RTS
*
*
******************************************************
*
*	CONVERT LOCAL TIME IN STANDARD FORMAT TO
*	AFP TIME
*
*	ENTRY: LOCAL TIME IN STD
*	EXIT:	AFP TIME IN AFP
*
******************************************************
*
		EXPORT	b1_std2afp
b1_std2afp		;		
		EXPORT	STD2AFP
STD2AFP		;		
			LDA		#28			;INIT FEB = 28 DAYS
			STA	MO_2
*
* ZERO OUT ACCUMULATED PRODUCT FIELD
*
			LDY		#3
			LDA		#0
S2A_1		STA	PROD,Y		;ZERO PRODUCT
			DEY
			BPL		S2A_1
*
* DAY AND MONTH START WITH 1
* ADJUST TO ZERO
*
			DEC		DA
			DEC		MO
*
* WE WANT TO CALCULATE SECONDS SINCE 1929
*
			LDA		YR
			LDX		CENT		;21ST CENTURY ?
			BEQ		S2A_1AA
			CLC
			ADC	#100		;ADD CENTURY TO YEARS
			STA	YR
S2A_1AA	SEC
			SBC		#29		;SUB 1961 FROM YEARS
*
* DIVIDE YEARS BY 4 TO GET 4 YEAR FIELD
*
			STA	YR4
			LSR		YR4			;DIVIDE BY 4
			LSR		YR4
			AND	#%00000011
			STA	YR
*
* CHECK FOR LEAP YEAR
* SAVE RESULT IN WORK
*
			LSR		A
			BCC		S2A_1A
			LSR		A
			BCC		S2A_1A
			LDA		#29
			STA	MO_2
*
* ADJUST FOR LEAP YEAR
*
			LDA		MO
			CMP	#2
			BCC		S2A_1A
			INC		DA			;ADD LEAP YEAR DAY
*
* ADJUST FOR MONTHS NOT = 30 DAYS
*
S2A_1A		CLC
			LDX		MO
			LDA		MO_ADJ,X	;ADJUST FOR MONTHS NOT = 30 DAYS
			ADC	DA
			BPL		S2A_1B		;IF DAY NEGATIVE THEN DATE IS
			DEC		MO			;MAR 1 ON NON-LEAP YEAR
			LDA		#29			;28 DAYS FROM FEB 1
S2A_1B		STA	DA
*
* NOW MULTIPLY EACH DATE/TIME FIELD BY SECONDS PER
*
			LDY		#0
			LDX		#0
S2A_2		PHX
			LDA		DT,X
			STA	MULT1		;SETUP FOR MULTIPLICATION
			LDX		#3
SLOOP2		LDA		MC_TBL,Y
			STA	MULT2,X		;SETUP SECONDS PER XXX
			INY
			DEX
			BPL		SLOOP2
			PHY
			JSR		MULT		;MULTIPLY
			PLY
			PLX
			INX
			CPX		#7			;DONE ?
			BNE		S2A_2
*
* ADJUST FROM SECONDS SINCE 1929 IN LOCAL TIME ZONE
* TO SECONDS TILL 2000 GREENWICH TIME
*
			SEC
			LDY		#3
SLOOP3		LDA		PROD,Y
			SBC		ADJUST,Y
			STA	PROD,Y
			DEY
			BPL		SLOOP3
			LDA		AFP
			EOR		#$80		;INVERT HI BIT
			STA	AFP
			RTS
*
*******************************************************
*
*	MULTIPLY NUMBER IN MULT2 BY NUMBER IN MULT1
*	ACCUMULATED PRODUCT IN PROD
*
		EXPORT	b1_mult
b1_mult		;		
		EXPORT	MULT
MULT		;		
M_1		LSR		MULT1		;NEXT BIT OF MULTIPLIER
			BCC		M_2
			LDY		#3
			CLC
MLOOP2		LDA		PROD,Y		;ADD TO PRODUCT
			ADC	MULT2,Y
			STA	PROD,Y
			DEY
			BPL		MLOOP2
M_2		CLC
			ROL		MULT2+3		;MULTIPLY MULTIPLICAND BY 2
			ROL		MULT2+2
			ROL		MULT2+1
			ROL		MULT2
			LDA		MULT1
			BNE		M_1
			RTS
*
*********************************************************
*
*	DIVIDE NUMBER IN DIVID BY NUMBER IN DIVIS
*	QUOTIENT IN QUOT - REMAINDER IN DIVID
*
*	ENTRY: X = POWER OF 2 BY WHICH DIVIS HAS BEEN
*	PRE-MULTIPLIED (BITS LEFT SHIFTED)
*
		EXPORT	b1_divide
b1_divide		;		
		EXPORT	DIVIDE
DIVIDE		;		
			STZ		QUOT
DIV_1		LDY		#3
			ASL		QUOT		;MULT QUOT BY 2
			SEC
DLOOP1		LDA		DIVID,Y
			SBC		DIVIS,Y		;SUBTRACT DIVISOR
			STA	REMAIN,Y
			DEY
			BPL		DLOOP1
			BCC		DIV_2		;BORROW ?
			INC		QUOT
			LDY		#3
DLOOP2		LDA		REMAIN,Y	;TRANSFER REMAINDER BACK TO DIVIDEND
			STA	DIVID,Y
			DEY
			BPL		DLOOP2
DIV_2		DEX					;DIVISOR SHIFTED FULL AMOUNT ?
			BMI		DDONE
			CLC
			ROR		DIVIS		;DIVIDE DIVISOR BY 2
			ROR		DIVIS+1
			ROR		DIVIS+2
			ROR		DIVIS+3
			BRA	DIV_1
DDONE		RTS
*
*******************************************************
*
* DATA AREAS
*
*******************************************************
*
* ADJUSTMENT CONSTANT USED TO ADJUST AFP TIME FROM
* SECONDS FROM 2000 TO SECONDS SINCE 1929.	THIS
* CONSTANT MUST EQUAL THE AFP TIME FOR A YEAR AFTER
* A LEAP YEAR.	THIS CONSTANT IS COMBINED WITH AN
* OFFSET FOR THE LOCAL TIME ZONE AND SAVED IN THE
* FIELD 'ADJUST'.
*
		EXPORT	ADJUST_C
ADJUST_C		;		
	DC.B	$05,$8B,$B2,$00
*
********************************************************
*
*	DIVIDE CONSTANT TABLE
*
*	This table contains the divisors for the AFP to
*	standard time conversion.	The values used are:
*
*	sec/4years = 126,230,400 - $07 86 1F 80
*	sec/year	=	31,536,000 - $01 E1 33 80
*	sec/month	=	2,592,000 - $00 27 8D 00
*	sec/day	=	86,400 - $00 01 51 80
*	sec/hour	=	3,600 - $00 00 0E 10
*	sec/min	=	60 - $00 00 00 3C
*
*	Each value in entered in the table multiplied by a
*	power of 2 (left shifted) which is determined by the
*	maximum possible result.	Each value is placed in
*	the table in low byte to high byte order and is
*	followed by a byte containing the exponent of 2 by
*	which the number has been multiplied.
*
		EXPORT	DC_TBL
DC_TBL		;		
	DC.B	$00,$F0,$C3,$F0,$05
	DC.B	$00,$CE,$84,$07,$02
	DC.B	$00,$D0,$78,$02,$04
	DC.B	$00,$30,$2A,$00,$05
	DC.B	$00,$84,$03,$00,$06
	DC.B	$00,$0F,$00,$00,$06
*
********************************************************
*
*	MULTIPLY CONSTANT TABLE
*
*	This table is used to convert from standard time
*	in the local time zone to AFP time. The constants
*	are the same as for the divide routine except that
*	they are not left shifted.	They are in low byte
*	to high byte order also.
*
		EXPORT	MC_TBL
MC_TBL		;		
	DC.B	$80,$1F,$86,$07
	DC.B	$80,$33,$E1,$01
	DC.B	$00,$8D,$27,$00
	DC.B	$80,$51,$01,$00
	DC.B	$10,$0E,$00,$00
	DC.B	$3C,$00,$00,$00
	DC.B	$01,$00,$00,$00
*
******************************************************
*
*	DAYS PER MONTH TABLE
*
		EXPORT	MO_DAYS
MO_DAYS		;		
	DC.B	31
		EXPORT	mo_2
mo_2		;		;need to change feb
	DC.B	28
	DC.B	31,30,31,30,31,31,30,31,30,31
*
****************************************************
*
* MONTH ADJUST TABLE
*
*	This table contains the amount of days to be
*	adjusted based on the month.	This is to
*	adjust for the fact that the program uses
*	30days/month in calculations.
*
		EXPORT	MO_ADJ
MO_ADJ		;		
	DC.B	$00,$01,$FF,$00,$00,$01,$01,$02,$03,$03,$04,$04,$05
*
******************************************************
*
*
* TIME MOVING ROUTINES
*
*
* PLACE STANDARD FORMAT IN CLOCK BUFFER
*
		EXPORT	b1_std2clk
b1_std2clk		;		
		EXPORT	STD2CLK
STD2CLK		;		
			LDA		YR
			STA	CLK_BUF+9	;YEAR
			LDA		MO
			STA	CLK_BUF+8	;MONTH
			LDA		DA
			STA	CLK_BUF+7	;DAY OF MONTH
			LDA		HR
			STA	CLK_BUF+4	;HOUR
			LDA		MIN
			STA	CLK_BUF+2	;MIN
			LDA		SEC
			STA	CLK_BUF+0	;SEC
			RTS
*
* PLACE CURRENT TIME IN AFP CONVERSION BUFFER
*
		EXPORT	b1_clk2std
b1_clk2std		;		
		EXPORT	CLK2STD
CLK2STD		;		
			LDA		CLK_BUF+9	;YEAR
			STA	YR
;
			CMP	#30			;IS IT LATTER THAN 1930?
			BCC		CLK2STD1
			STZ		CENT		;19TH CENTURY
			BRA	CLK2STD2
CLK2STD1	; 
			LDA		#$01
			STA	CENT		;20TH CENTURY
;
CLK2STD2	; 
			LDA		CLK_BUF+8	;MONTH
			STA	MO
			LDA		CLK_BUF+7	;DAY OF MONTH
			STA	DA
			LDA		CLK_BUF+4	;HOUR
			STA	HR
			LDA		CLK_BUF+2	;MINUTE
			STA	MIN
			LDA		CLK_BUF+0	;SECOND
			STA	SEC
			RTS
;
			STA	MO
			LDA		CLK_BUF+7	;DAY OF MONTH
			STA	DA
			LDA		CLK_BUF+4	;HOUR
			STA	HR
			LDA		CLK_BUF+2	;MINUTE
			STA	MIN
			LDA		CLK_BUF+0	;SECOND
			STA	SEC
			RTS
;
		ENDP
		end
	
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/ATRam/PFI/PFI_equates b/IIGS.601.SRC/GS.OS/Drivers/ATRam/PFI/PFI_equates
new file mode 100644
index 0000000..f043040
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/ATRam/PFI/PFI_equates
@@ -0,0 +1 @@
+* 
* pfi_equates
* 
* by 
*   Greg Seitz
*   13-Jul-87
*
* this file contains the equates used
* by the prodos filing interface code.
*
*
*	PARAMIS NETWORK SOFTWARE
*
*
*
*	CONFIDENTIAL
*
*
*	MODULE : EQU.PFI - EQUATES FOR PRODOS FILING INTERFACE
*
*	WRITTEN BY THOMAS EAGER
*
*	MODIFIED:	06-15-87	4:18	TE
*
*	COPYRIGHT 1986,87 PARAMIS CORPORATION
*
* ALL RIGHTS RESERVED
*
*
At_Lockout	equ		$E11053
*
*
* PFI EQUATES
*
*
*
*
*
* AFP COMMAND NUMBERS
*
CREATEDIR	equ		6
CREATEFIL	equ		7
SETFDINFO	equ		35
GETFDINFO	equ		34
DELETE		equ		8
OPENVOL		equ		24
OPENDIR		equ		25
OPENFORK	equ		26
READFORK	equ		27
WRITEFORK	equ		33
CLOSEFORK	equ		4
CLOSEVOL	equ		2
GETVOLPARMS	equ		17
SETFORKPARM	equ		31
GETFORKPARM	equ		14
LOGOUT		equ		20
ENUMERATE	equ		9
RENAMECMD	equ		28
DESTROYCMD	equ		8
BYTERANGE	equ		1
MAPID		equ		21
MAPNAME		equ		22
SETDIRPARMS	equ		29
MOVECMD		equ		23
*
*
*
* MISC PFI EQUATES
*
FI_LEVEL	equ		$0A
MAXSESSION	equ		$08						;ONLY 8 SESSIONS POSSIBLE
MAXUSERSZ	equ		$40						;64 CHARACTERS
MAXUSERBUFSZ equ	512
MAXSRCPATH	equ		255						;WAS 129
PFI_PLMAX	equ		$12						;GET FILE INFO IS THE LARGEST !!!
VERSION		equ		$FF
MAX_AFPPATH	equ		127
MAX_PROPATH	equ		65						;LARGEST PRODOS PATHNAME LENGTH
NDT_NAMELEN	equ		28						;LENGTH OF NETWORK DEVICE RECORD
SLASH		equ		$2F						;'/'
SRVR_SLASH	equ		$00						;NULL !!!!
NOLOCAL		equ		$27
DEVCNT		equ		$BF31
PFI_DELAY	equ		$08						;TWO SECOND RETRY INTERVAL FOR LOGIN
MAX_PFIRETRY	equ	$10						;MAX RETRY COUNT FOR LOGIN (OPEN SESSION)
WASP_WRTLEN	equ		$25						;NEEDED AS AN EQUATE BY PFI
*
*
* misc Equates
*
*
CMD_ASPOPN	equ		$1E
CMD_ASPCMD	equ		$20
CMD_ASPCLO	equ		$1F
CMD_ASPWRT	equ		$21
SETTRAP		equ		$18							;CLC
CLRTRAP		equ		$38							;CLC
RC_ASPSRVBSY	equ	$09
RAMBANK1	equ		$71
C8ROM1_OFFSET	equ	$C800
C8RAM1_OFFSET	equ	$CC00
PDOS_GBL_BIT	equ	$BF58
PDOS_LEVEL		equ $bf94
PDOS_DEVNUM		equ	$bf30
PDOS_PFIXPTR	equ	$bf9a

isramrd			equ	$e1c013				;use to test for aux bank reading
ALTZP			EQU	$E1C016				;USE TO TEST FOR ZERO PAGE
cdzpbase		equ	$bf40				;move code to call pdos here


\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/ATRam/PFI/PFI_vars.aii b/IIGS.601.SRC/GS.OS/Drivers/ATRam/PFI/PFI_vars.aii
new file mode 100644
index 0000000..94cd629
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/ATRam/PFI/PFI_vars.aii
@@ -0,0 +1 @@
+
;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

	ENTRY	SESS_Timer1
	ENTRY	SESS_Timer2
	ENTRY	SESS_Timer3
	ENTRY	SESS_Timer4
	ENTRY	SESS_Timer5
	ENTRY	SESS_Timer6
	ENTRY	SESS_Timer7
	ENTRY	SESS_Timer8
* 
* pfi_vars
* 
* by 
*   Greg Seitz
*   13-Jul-87
*
* this file contains the declarations of the data used
* by the pfi code.
*
		INCLUDE	'atp.equates'
		INCLUDE	'global.equates'
		INCLUDE	'zp.equates'
		INCLUDE	'pfi_equates'

		EXPORT	pfiglobals	
pfiglobals	proc
			
;------------------------------------------
;
; Equates from procedure pfiglobals
;
;------------------------------------------



		EXPORT	pfibank
pfibank	; ;referenced in calls to atalk for bank

*
*	PARAMIS NETWORK SOFTWARE
*
*
*
*	CONFIDENTIAL
*
*
*	MODULE : DATA.PFI - DATA FOR PRODOS FILING INTERFACE
*
*	WRITTEN BY THOMAS EAGER
*
*	MODIFIED:	06-15-87	4:18	TE
*
*	COPYRIGHT 1986,87 PARAMIS CORPORATION
*
* ALL RIGHTS RESERVED
*
*
*
*	PFI equ USER FILE TABLE
*
* USTATUS IS DEFINED AS :
*
*	BIT 7 equ EOF OF FILE FLAG
*	BIT 3 equ BLOCK HAS BEEN READ
*	BIT 2 equ FORCE READ	OF BLOCK
*	BIT 1 equ FORCE WRITE OF BLOCK
*	BIT 0 equ BLOCK HAS BEEN WRITTEN INTO
*
*
* UTYPE IS DEFINED AS :
*
*	FILE	equ %00000000
*	DIRECTORY equ %00000001
*
*
* UMODE IS DEFINED AS :
*
*	READ/WRITE equ %00110001
*	READ ONLY	equ %00000001
*
*

		EXPORT	USRVNUM1
USRVNUM1		DS.B 8			;(8) FILE # ON SRV (FFequNOT ACTIVE)
		EXPORT	USRVNUM2
USRVNUM2		DS.B 8			;(8) FILE # ON SERVER
		EXPORT	UDEVNUM
UDEVNUM		DS.B 8			;(8) DEVICE NUMBER
		EXPORT	ULEVEL
ULEVEL		DS.B 8			;(8) LEVEL
		EXPORT	UBUFPTRL
UBUFPTRL		DS.B 8			;(8) BUFFER POINTER - LOW BYTE
		EXPORT	UBUFPTRH
UBUFPTRH		DS.B 8			;(8) BUFFER POINTER - HIGH BYTE
		EXPORT	UFILELOC
UFILELOC		DS.B 8			;(8) FILE LOCATION (FFequLOCAL)
		EXPORT	UMARK1
UMARK1		DS.B 8			;(8) MARK - LOW BYTE
		EXPORT	UMARK2
UMARK2		DS.B 8			;(8) MARK - MIDDLE BYTE
		EXPORT	UMARK3
UMARK3		DS.B 8			;(8) MARK - HIGH BYTE
		EXPORT	UEOB1
UEOB1		DS.B 8			;(8) END OF BUFFER - LOW BYTE
		EXPORT	UEOB2
UEOB2		DS.B 8			;(8) END OF BUFFER - MIDDLE BYTE
		EXPORT	UEOB3
UEOB3		DS.B 8			;(8) END OF BUFFER - HIGH BYTE
		EXPORT	UCURBLKL
UCURBLKL		DS.B 8			;(8) CURRENT BLOCK - LOW BYTE
		EXPORT	UCURBLKH
UCURBLKH		DS.B 8			;(8) CURRENT BLOCK - HIGH BYTE
		EXPORT	UENMASK
UENMASK		DS.B 8			;(8) ENABLE MASK FOR NEWLINE
		EXPORT	UNLCHAR
UNLCHAR		DS.B 8			;(8) NEWLINE CHARACTER
		EXPORT	UMODE
UMODE		DS.B 8			;(8) ACCESS FOR FILE/DIRECTORY
		EXPORT	USTATUS
USTATUS		DS.B 8			;(8) STATUS CODE
		EXPORT	UTYPE
UTYPE		DS.B 8			;(8) TYPE OF OBJECT (0equFILE,1equDIR)
		EXPORT	UVOLID1
UVOLID1		DS.B 8			;(8) HB OF VOL ID (FOR OPEN DIR)
		EXPORT	UVOLID2
UVOLID2		DS.B 8			;(8) LB OF VOL ID (FOR OPEN DIR)
		EXPORT	UDIRID1
UDIRID1		DS.B 8			;(8) HI B OF DIR ID (FOR OPEN DIR)
		EXPORT	UDIRID2
UDIRID2		DS.B 8			;(8) MH B OF DIR ID (FOR OPEN DIR)
		EXPORT	UDIRID3
UDIRID3		DS.B 8			;(8) ML B OF DIR ID (FOR OPEN DIR)
		EXPORT	UDIRID4
UDIRID4		DS.B 8			;(8) LO B OF DIR ID (FOR OPEN DIR)
		EXPORT	UFILECNTL
UFILECNTL		DS.B 8			;(8) lb of file count for directories
		EXPORT	UFILECNTH
UFILECNTH		DS.B 8			;(8) hb of file count for directories


*
*
* NETWORK DEVICE TABLE - MOUNTED VOLUMES !!!
*
*

		EXPORT	NDT_NAME
NDT_NAME		DS.B 14*28		;14 NETWORK DEVICE NAMES
		EXPORT	NDT_IDH
NDT_IDH		DS.B 14			;(14)	NETWORK DEVICE VOL ID -HB
		EXPORT	NDT_IDL
NDT_IDL		DS.B 14			;(14)	NETWORK DEVICE VOL ID -LB
		EXPORT	NDT_SESS
NDT_SESS		DS.B 14			;(14)	NETWORK DEVICE SESSION #
		EXPORT	NDT_UNIT
NDT_UNIT		DS.B 14			;(14)	NETWORK DEVICE UNIT NUMBER

		EXPORT	NDT_IDX1
NDT_IDX1		DS.B 2			;(2)
		EXPORT	NDT_IDX2
NDT_IDX2		DS.B 1			;(1)
		EXPORT	NDT_SIZE
NDT_SIZE		DS.B 1			;(1)
		EXPORT	NDT_CNT
NDT_CNT		DS.B 1			;(1)
		EXPORT	NDT_COUNT
NDT_COUNT		DS.B 1			;(1)


*
* SESSION REFERENCE TABLE + NETWORK ADDRESS
*
		EXPORT	SESSION_TBL
SESSION_TBL		DS.B maxsession	;(MAXSESSION)
		EXPORT	SESSION_NETL
SESSION_NETL		DS.B maxsession	;(MAXSESSION)
		EXPORT	SESSION_NETH
SESSION_NETH		DS.B maxsession	;(MAXSESSION)
		EXPORT	SESSION_NODE
SESSION_NODE		DS.B maxsession	;(MAXSESSION)
		Export	Session_Name
SESSION_NAME		ds.b $21*maxsession				;New login server name
		Export	Session_Net
SESSION_NET			ds.b $22*maxsession				;New login network name
		Export	Session_Vers
SESSION_VERS		ds.b 2*maxsession				;Version of AFP
		EXPORT	SESS_IDX
SESS_IDX		DS.B 1
		EXPORT	UM_INDEX
UM_INDEX		DS.B 2
									;
									;
									;
									;-----> 3/11/88 te
									;
									; add to GS PFI to Help stop timeouts 
									; from servers during local copies
									;

		EXPORT	SESS_TMRTBL
SESS_TMRTBL	DC.W	SESS_Timer1
	DC.W	SESS_Timer2
	DC.W	SESS_Timer3
	DC.W	SESS_Timer4
	DC.W	SESS_Timer5
	DC.W	SESS_Timer6
	DC.W	SESS_Timer7
	DC.W	SESS_Timer8

;
		EXPORT	SESS_Timer1
SESS_Timer1	DC.B	$80,$04
	DC.B	$00,$00
	DC.L	0	;no completion routine 
	DC.W	0	;running tick count
	DC.W	360	;# ticks to complete	
	DC.L	0	;reserved
;
		EXPORT	SESS_Timer2
SESS_Timer2	DC.B	$80,$04
	DC.B	$00,$00
	DC.L	0	;no completion routine 
	DC.W	0	;running tick count
	DC.W	360	;# ticks to complete	
	DC.L	0	;reserved
;
		EXPORT	SESS_Timer3
SESS_Timer3	DC.B	$80,$04
	DC.B	$00,$00
	DC.L	0	;no completion routine 
	DC.W	0	;running tick count
	DC.W	360	;# ticks to complete	
	DC.L	0	;reserved
;
		EXPORT	SESS_Timer4
SESS_Timer4	DC.B	$80,$04
	DC.B	$00,$00
	DC.L	0	;no completion routine 
	DC.W	0	;running tick count
	DC.W	360	;# ticks to complete	
	DC.L	0	;reserved
;
		EXPORT	SESS_Timer5
SESS_Timer5	DC.B	$80,$04
	DC.B	$00,$00
	DC.L	0	;no completion routine 
	DC.W	0	;running tick count
	DC.W	360	;# ticks to complete	
	DC.L	0	;reserved
;
		EXPORT	SESS_Timer6
SESS_Timer6	DC.B	$80,$04
	DC.B	$00,$00
	DC.L	0	;no completion routine 
	DC.W	0	;running tick count
	DC.W	360	;# ticks to complete	
	DC.L	0	;reserved
;
		EXPORT	SESS_Timer7
SESS_Timer7	DC.B	$80,$04
	DC.B	$00,$00
	DC.L	0	;no completion routine 
	DC.W	0	;running tick count
	DC.W	360	;# ticks to complete	
	DC.L	0	;reserved
;
		EXPORT	SESS_Timer8
SESS_Timer8	DC.B	$80,$04
	DC.B	$00,$00
	DC.L	0	;no completion routine 
	DC.W	0	;running tick count
	DC.W	360	;# ticks to complete	
	DC.L	0	;reserved
								;
								;-----> end
								;
*
*
* WSI GENERAL DATA AREA
*
*
		EXPORT	FI_HEAP
FI_HEAP		DS.B 1				;(1)
		EXPORT	ASP_HEAP
ASP_HEAP		DS.B 1				;(1)
		EXPORT	userbuf
userbuf		DS.B maxuserbufsz
		EXPORT	USER_NAME
USER_NAME		DS.B maxusersz		;(MAXUSERSZ)
		EXPORT	SRCPATH
SRCPATH		DS.B maxsrcpath		;(MAXSRCPATH)
		EXPORT	WS_PLIST
WS_PLIST		DS.B pfi_plmax		;(PFI_PLMAX)
		EXPORT	FIRST_MOUNT
FIRST_MOUNT		DS.B 1				;(1)
		EXPORT	AUN_HOLD
AUN_HOLD		DS.B 1				;(1)
		EXPORT	UCMDIDX
UCMDIDX		DS.B 1				;(1)
		EXPORT	UFILEIDX
UFILEIDX		DS.B 1				;(1)
		EXPORT	UWORK1
UWORK1		DS.B 1				;(1)
		EXPORT	UWORK2
UWORK2		DS.B 1				;(1)
		EXPORT	UERROR
UERROR		DS.B 1				;(1)
		EXPORT	UTRANCNT
UTRANCNT		DS.B 2				;(2)
		EXPORT	UVECTOR
UVECTOR		DS.B 2				;(2)
		EXPORT	XBUFPTR
XBUFPTR		DS.B 2				;(2)
		EXPORT	UCURSHR
UCURSHR		DS.B 1				;(1)
		EXPORT	PATHLENGTH
PATHLENGTH		DS.B 1				;(1)
		EXPORT	VOL_LEN
VOL_LEN		DS.B 1				;(1)
		EXPORT	LEN_CNT
LEN_CNT		DS.B 1				;(1)
*
		EXPORT	AFP_PFXLOC
AFP_PFXLOC		DS.B 1				;(1)
		EXPORT	AFP_PFX_DEV
AFP_PFX_DEV		DS.B 1				;(1)
		EXPORT	AFP_PREFIX
AFP_PREFIX		DS.B 128				;(128)
		EXPORT	AFP_VOL_ID
AFP_VOL_ID		DS.B 2				;(2)
		EXPORT	AFP_DIR_ID
AFP_DIR_ID		DS.B 4				;(4)
;
		EXPORT	PRO_PFXLOC
PRO_PFXLOC		DS.B 1				
		EXPORT	PRO_PFX_DEV
PRO_PFX_DEV		DS.B 1				;(1)
		EXPORT	PRO_PREFIX
PRO_PREFIX		DS.B max_propath+1	;(65)
		EXPORT	PRO_VOL_ID
PRO_VOL_ID		DS.B 2				;(2)
		EXPORT	PRO_DIR_ID
PRO_DIR_ID		DS.B 4				;(4)
;
		EXPORT	LASTDEV
LASTDEV		DS.B 1				;(1)
		EXPORT	LCL_DEVCNT
LCL_DEVCNT		DS.B 1				;(1)
		EXPORT	LCL_DEVLST
LCL_DEVLST		DS.B 14				;(14)
		EXPORT	AUN_RAM
AUN_RAM		DS.B 15				;(15) AVAIL UNIT # + END
		EXPORT	AUN_CNT
AUN_CNT		DS.B 1				;(1)	AVAIL UNIT # COUNT
		EXPORT	FILL_PGCNT
FILL_PGCNT		DS.B 1				;(1)
		EXPORT	CURSESS
CURSESS		DS.B 1				;(1)
		EXPORT	PKT_CNT
PKT_CNT		DS.B 2		
		EXPORT	ORG_REQ
ORG_REQ		DS.B 2

*
*
		EXPORT	WS_COMBUF
WS_COMBUF		DS.B 578				;(578)
*
*
		EXPORT	WS_PATH
WS_PATH		DS.B	MAX_AFPPATH
		EXPORT	WS_PREPATH
WS_PREPATH	DS.B	MAX_AFPPATH

		EXPORT	ACCESS
ACCESS		DS.B 1				;(1)
		EXPORT	ATTRIBUTE
ATTRIBUTE		DS.B 2				;(2)
		EXPORT	PKT_OFFSET
PKT_OFFSET		DS.B 1				;(1)
		EXPORT	FILE_SIZE
FILE_SIZE		DS.B 4				;(4)
		EXPORT	FILE_BLKS
FILE_BLKS		DS.B 2				;(2)
		EXPORT	OFFSPRING
OFFSPRING		DS.B 4				;(4)
		EXPORT	REMAINDER
REMAINDER		DS.B 3				;(3)
		EXPORT	BYTE_COUNT
BYTE_COUNT		DS.B 1				;(1)
		EXPORT	PFI_STATUS
PFI_STATUS		DS.B 1				;(1)
		EXPORT	PROCESS_CNT
PROCESS_CNT		DS.B 1				;(1)
		EXPORT	ENTRY_CNT
ENTRY_CNT		DS.B 1				;(1)
		EXPORT	START_IDX
START_IDX		DS.B 2				;(2)
		EXPORT	HOLD_IOPTR
HOLD_IOPTR		DS.B 2				;(2)
		EXPORT	WS_DIRBUF
WS_DIRBUF		DS.B $2b				;($2B)
		EXPORT	PFI_RETRY
PFI_RETRY		DS.B 1				;(1)
		EXPORT	PFI_DTIME
PFI_DTIME		DS.B 2				;(2)
		EXPORT	SOUND_CNT
SOUND_CNT		DS.B 1				;(1)
		EXPORT	PFI_NAMING
PFI_NAMING		DS.B 1				;(1)
		EXPORT	NAME_CNT
NAME_CNT		DS.B 1				;(1)
		EXPORT	NAME_STAT
NAME_STAT		DS.B 1				;(1)
		EXPORT	PFI_BANK
PFI_BANK		DS.B 1				;(1)
		EXPORT	ZP_BANK
ZP_BANK		DS.B 1				;(1)
		EXPORT	SIZE_AVAIL
SIZE_AVAIL		DS.B 3				;(3)
		EXPORT	SIZE_ALLOWED
SIZE_ALLOWED		DS.B 4				;(4)
		EXPORT	PFI_CLEANUP
PFI_CLEANUP		DS.B 1				;(1)
		EXPORT	PFI_NETMARK
PFI_NETMARK		DS.B 3				;(3)
		EXPORT	PFI_NETCNT
PFI_NETCNT		DS.B 2				;(2)
		EXPORT	PFI_IOBUF
PFI_IOBUF		DS.B 2				;(2)
		EXPORT	PFI_NODEV
PFI_NODEV		DS.B 2				;(1)
		EXPORT	WORKL
WORKL		DS.B 1				;(1)
		EXPORT	WORKH
WORKH		DS.B 1				;(1)





*
* other data areas
*
*
*
*
		EXPORT	PL_BANK
PL_BANK		DS.B 1				;(1)
		EXPORT	CURRTICK
CURRTICK		DS.B 2				;(2)
		EXPORT	MLI_GBL_UPDT
MLI_GBL_UPDT		DS.B 2				;(2)
		EXPORT	RETURNPL
RETURNPL		DS.B 1				;(1)
		EXPORT	ONBRDPL
ONBRDPL		DS.B $100				;($100)
;
*
* Cn00 Data
*
		EXPORT	Cn_PFIERR
Cn_PFIERR		DS.B 1				;(1)
		EXPORT	Cn_DEVNUM
Cn_DEVNUM		DS.B 1				;(1)
		EXPORT	Cn_PFIXPTR
Cn_PFIXPTR		DS.B 1				;(1)
		EXPORT	Cn_LEVEL
Cn_LEVEL		DS.B 2				;(2)
		EXPORT	Cn_ERROR
Cn_ERROR		DS.B 1				;(1)
		EXPORT	Cn_CARRY
Cn_CARRY		DS.B 1				;(1)
		EXPORT	Cn_WSICMD
Cn_WSICMD		DS.B 2				;(2)
		EXPORT	Cn_TRAP
Cn_TRAP		DS.B 1				;(1)
		EXPORT	Cn_WSIPL
Cn_WSIPL		DS.B 2				;(2)
		EXPORT	Cn_WHERE
Cn_WHERE		DS.B 1				;(1)
		EXPORT	Cn_RAMREG
Cn_RAMREG		DS.B 1				;(1)
		EXPORT	Cn_cmdpdos
Cn_cmdpdos		DS.B 2

*
******************************************************
*
*	AFP TIME CONVERSION DATA AREAS
*
******************************************************
*
* STANDARD DATE/TIME TABLE
*
*	THE FIELD 'CENT' CONTAINS THE # OF CENTURIES
*	PAST THE YEAR 1900
*
*
		EXPORT	DT,CENT,YR4
		
DT		
CENT
YR4		DS.B 1	
		
		EXPORT	STD,YR
STD		
YR		DS.B 1	

		EXPORT	MO
MO		DS.B 1				
		EXPORT	DA
DA		DS.B 1				
		EXPORT	HR
HR		DS.B 1				
		EXPORT	MIN
MIN		DS.B 1				
		EXPORT	SEC
SEC		DS.B 1				
*
*	ADJUST FIELD CONTAINING THE ADJUSTMENT
*	CONSTANT +/- THE TIME ZONE OFFSET
*
		EXPORT	ADJUST
ADJUST		DS.B 4				;(4)
*
		EXPORT	AFP,PROD,DIVID
		
AFP		
DIVID
PROD		DS.B 4				;(4)

		EXPORT	MULT2,REMAIN
MULT2
REMAIN	DS.B 4				;(4)

		EXPORT	QUOT,MULT1
QUOT		
MULT1	DS.B 1				;(1)

		EXPORT	DIVIS
DIVIS		DS.B 4				;(4)
*mo_days		ds		1
*mo_2		ds		11

		EXPORT	PRO_TIME
PRO_TIME		DS.B 4				;(4)
		EXPORT	clk_buf
clk_buf		DS.B 10

		EXPORT	tempv
tempv		DS.B 6				;(6) used in changepath
		EXPORT	secondname
secondname		DS.B 33				;used in changepath
*
*
* THIS IS DATA FOR THE NEWLINE MOVE IN THE TWO PORT
*
*
		EXPORT	NLMV_CNT
NLMV_CNT		DS.B 2				;(2)


		EXPORT	ATTEN_CNT
ATTEN_CNT		DS.B 2				;(2)

		EXPORT	pfisavezparea
pfisavezparea		DS.B 40			;place to store our zp use

		EXPORT	aspopparm
aspopparm		DS.B $24				;enough room for an open or asp cmd, or write

		EXPORT	getinfoparm
getinfoparm	DC.B	$00,$02,$00,$00
	DC.L	0	;completion routine address
		EXPORT	thisnet
thisnet	DC.W	0	;our network num
		DS.B 4				;other parms

		EXPORT	timer
timer	DC.B	$00,$04,$00,$00
	DC.L	0
	DC.W	0
	DC.W	0
	DC.L	0
	;
	;
		export	Active8
		EXPORT	VECTOR_MOUNT
		EXPORT	VECTOR_UNMNT
		EXPORT	VECTOR_ATTEN
		EXPORT	NETWORK_CALL_RESULT

Active8 		dc.b 0
VECTOR_MOUNT 	DS.B 4
VECTOR_UNMNT	DS.B 4
VECTOR_ATTEN	DS.B 4

NETWORK_CALL_RESULT ds.w	1

		ENDP
		end
		
		
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/ATRam/PFI/zp.equates b/IIGS.601.SRC/GS.OS/Drivers/ATRam/PFI/zp.equates
new file mode 100644
index 0000000..72e66f7
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/ATRam/PFI/zp.equates
@@ -0,0 +1 @@
+ZP0			equ		$80							;-\
LISTPTR		equ		ZP0							;	|
ZP1			equ		ZP0+4						;	|
ZP2			equ		ZP1+4						;	|Must be in this order
ZP_HP		equ		ZP2+4						;-/
MZP			equ		ZP_HP+4						;(2)
ZP3			equ		MZP+4
ZP4			equ		ZP3+4
*
SRCBUF		equ		ZP4+4						;(4) BUFF MOVE SOURCE BUFFER
DESTBUF		equ		SRCBUF+4				;(4) BUFF MOVE DEST BUFFER
COUNT		equ		DESTBUF+4				;(2) BUFF MOVE COUNT FIELD

pfizplen	equ		count+2-ZP0				;save this much zp
*
*END OF ZERO PAGE !!!!!
*
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/ATRom/ATP_includes.aii b/IIGS.601.SRC/GS.OS/Drivers/ATRom/ATP_includes.aii
new file mode 100644
index 0000000..1e5b473
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/ATRom/ATP_includes.aii
@@ -0,0 +1 @@
+*******************************************************************************
*
* File:	APTALK
*
* Contents:	aptalk.aii,
*	ATP_INCLUDES.Aii,
*	lap_includes.aii
*
* rev 00	Original ROM
* rev 01	Second ROM
*
* This file contains the 65816 implementation of ATP for the Apple IIGS.
* This file also contains the main AppleTalk dispatcher and core routines.
*
* Copyright Apple Computer, 1986-1992
* Original Author: Ed Lai, Greg Seitz
*
*******************************************************************************
*
* NOTE
*
* This file would normally just patch any correction in ROMs =< 01, but
* since there were so many corrections to those roms, we just patch out
* the entire thing with the APTALK file.
*
* NOTE: the following lines were changed to get around a problem
* in the Mac2Gs assembler:
*
*  atp.ddpstuff (label opendriver) changed resetcode
*
*  atp.core (before	label vectortab) changed Dispatch
*
*******************************************************************************
*
* Modification History
*
* REV 03
*
* 8/19/88    TGH   - Started working on RevD ROM
*
* 3/27/88    TGH   - Added OnExitVector
*
*  1-Jul-91  MSD	Added support for variable TRel timeouts on XO Treq packets.
*	This forced the response control block to grow by one byte
*	to accomodate a 2-byte timeout field.
*
*  2-Jul-91  MSD	Added code for ROM 3 to change the hard-coded references to
*	$C7xx to either $C1xx or $C2xx.
*
* 10-Aug-91  MSD	Changed maxatpsize from $578 to 578.
*
* 23-Aug-91  MSD	Changed version string to 3.0d1.
*
* 26-Sep-91  MSD	Version 3.0d2.  The values from the TRel timers were being
*	gotten from bank $E1 instead of the code bank.  Use long
*	indexed with X instead of absolute indexed with Y.
*
* 27-Sep-91  MSD	Changed watppkt to check for a length of $FFFF and return
*	ATP data too large ($0501).  Normally, DDP would catch
*	this error but $FFFF signals the end of a WDS.
*
*  4-Oct-91  MSD	The routines that handled retransmission of ATP send requests
*	and timed out response control blocks for XO send responses
*	were not doing a SEC before they did SBC DECVAL (where DECVAL
*	is the number of ticks that have elapsed).  This was causing
*	response control blocks to time out too fast (it would
*	subtract 2 instead of 1 from the timer because carry was
*	clear when the routine was called).
*
*  7-Oct-91  MSD	Sync-only calls now check the async flag.
*
*  8-Oct-91  MSD	The 7-Oct-91 change caused opening of an ATP socket to fail
*	because it wasn't clearing the async flag before doing trying
*	to open a DDP socket.  Fixed ddpopenskt and closeddpskt to
*	explicitly clear the async flag at parmlist ($E1/DA18).
*
*  7-Feb-92  MSD	Changed version to 4.0 final for 6.0d70 (GM) build.
*
*******************************************************************************

	MACHINE M65816

	IMPORT Dispatch
	IMPORT attachprot
	IMPORT ddpcheckskt
	IMPORT ddpinit
	IMPORT ddpwrite
	IMPORT forbid
	IMPORT getglobal
	IMPORT getinfo
;	IMPORT invalidseq		;We don't need this
	IMPORT lapresetinit
	IMPORT lapinit
	IMPORT lapread
	IMPORT lapwrite
	IMPORT nbpconfirm
	IMPORT nbplookup
	IMPORT nbpregname
	IMPORT nbpremove
	IMPORT nbpkill
	IMPORT openskt
	IMPORT permit
	IMPORT removeprot
	IMPORT stackrestore
	IMPORT stacksave
	import longforbid,longpermit,closeskt
	import CheckAsync
	
	ENTRY opendriver,\		;Command vectors
	      installqtr,\
	      removeqtr,\
	      bootcode,\
	      atpsendrequest,\
	      cancelreq,\
	      openatpsocket,\
	      closeatpsocket,\
	      getrequest,\
	      sendresponse,\
	      relrspcb

;	entry opendriver,installqtr,removeqtr,bootcode
;	entry atpsendrequest,cancelreq,openatpsocket,closeatpsocket
;	entry getrequest,sendresponse,relrspcb
	
	entry gocomp,bootstart,bootend,iend
	entry atplisten,ddpopenskt,sndrqpkt,waitdone,retasynflag
	entry readatpheader,rsptable,onebitmask,readrbds,lowbitmask
	entry killrequest,watppkt
	entry canceltable,closeddpskt,attachtable
	entry lowbitmask,reltable,grqtable
	entry rspcbtable,iparmstart,entityblk
	entry openparms,initparms

	ENTRY hardreset	;cold boot entry point
	ENTRY softhandler	;soft reset entry

;------------------------------------------------------------------------------
;
; Equates from procedure constants
;
;------------------------------------------------------------------------------

small	equ 1	;remove addresponse
code	equ $000800	;boot code comes in	here
sline	equ $000480	;print on this line
romread	equ $c081
lcbank2	equ $c083
statereg	equ $c068
cyareg	equ $c036
fixstatereg	equ $6024	;Now in LAP......
emulstack	equ $010100
databank	equ $e1e1e1
incbusyflag	equ $e10064	;scheduler routines
decbusyflag	equ $e10068
nbit	equ $80
vbit	equ $40
mbit	equ $20
xbit	equ $10
ibit	equ $04
zbit	equ $02
cbit	equ $01
rspval	equ 120	;30 seconds for rspcb timer
atpxobit	equ $20
atpeombit	equ $10
atpstsbit	equ $08

;------------------------------------------------------------------------------
;
; Equates from procedure intface
;
;------------------------------------------------------------------------------

Extended	equ $e11000	;RAM vectors.  Extended interface entry.
Basic	equ Extended+4	;Basic entry.
Pascal	equ Basic+4	;Pascal entry.
RamGoComp	equ Pascal+4	;users gocomp entry	for completions
SoftReset	equ RamGoComp+4	;Soft reset chain.
RamDispatch	equ SoftReset+4	;Command dispatcher.
RamForbid	equ RamDispatch+4	;RAM vector to long	entry of forbid.
RamPermit	equ RamForbid+4	;For Permit.
ProEntry	equ RamPermit+4	;Original ProDOS entry point.
Prodos	equ ProEntry+2	;Prodos entry.
SerStatus	equ Prodos+4	;Serial interface status hook
SerWrite	equ SerStatus+4	;" " write hook.
SerRead	equ SerWrite+4	;For Read.
SerBackgnd	equ SerRead+4	;For background printing.
PDispatch	equ SerBackgnd+4	;For dispatching packets.
lapzplen	equ $10
e1ddpend	equ $d600	;really $e1d600 (gets around dumb link)
ddpzplen	equ 14

;------------------------------------------------------------------------------
;
; Equates from procedure C7Defs
;
;------------------------------------------------------------------------------

C7xx	equ $C7A0	;emulation mode entry
C7xxGo	equ $C7A1	;native mode entry
C7xxRet	equ $C7A8	;return point for routines
C7Error	equ $C7AB	;error point for pascal not installed
C7Prodos	equ $C7AE	;bank 0 entry for prodos

Cnxx	equ $E11042	;emulation mode entry
CnxxGo	equ $E11046	;native mode entry
OnExitVector	equ $E1104A	;Exit vector for QTRIRQ

;------------------------------------------------------------------------------
;
; Equates from procedure errors
;
;------------------------------------------------------------------------------

maxatpsize	equ 578
lapendbuf	equ $0202
lapextra	equ $0209
largeddp	equ $0305	;only ddp err we care about
noatperr	equ $0000
largeatp	equ $0501
atpbadskt	equ $0502
noatpcb	equ $0503
noatprel	equ $0505
addnosnd	equ $0506
reqabort	equ $0507
requestfail	equ $0508
sktclsd	equ $0509
toomuchrsp	equ $050b
noddpskt	equ $050c
rsprel	equ $050d
atpbusy	equ $05ff
noqtrerr	equ $0000
noentry	equ $0101	;dispatcher item not found
norspcbmem	equ $0102	;can't allocate rspcb
qtrnotfound	equ $0103
noatalkerr	equ $0105
qtrcanceled	equ $0106
qtrbusy	equ $01ff

;------------------------------------------------------------------------------
;
; Equates from procedure qsecint
;
;------------------------------------------------------------------------------

insqtr_parmcnt	equ $00
insqtr_command	equ insqtr_parmcnt+1
insqtr_result	equ insqtr_command+1
insqtr_iocomp	equ insqtr_result+2
insqtr_ticks	equ insqtr_iocomp+4
insqtr_count	equ insqtr_ticks+2
insqtr_link	equ insqtr_count+2
rmvqtr_parmcnt	equ $00
rmvqtr_command	equ rmvqtr_parmcnt+1
rmvqtr_result	equ rmvqtr_command+1
rmvqtr_rsvd	equ rmvqtr_result+13 ;13 reserved bytes

;------------------------------------------------------------------------------
;
; Equates from procedure sendrqint
;
;
; SendATPReq
;
; 	   !!! NOTE !!!
;
; The order of the following 8 paramaters must not change
; since some internal assumptions are made about the order
; of the data in order to save execution time and code space.
;
;------------------------------------------------------------------------------


atprq_parmcnt	equ $00
atprq_command	equ atprq_parmcnt+1
atprq_result	equ atprq_command+1
atprq_iocomp	equ atprq_result+2
atprq_dymskt	equ atprq_iocomp+4
atprq_dnet	equ atprq_dymskt+1
atprq_dnode	equ atprq_dnet+2
atprq_dskt	equ atprq_dnode+1
atprq_tid	equ atprq_dskt+1
atprq_bufsize	equ atprq_tid+2
atprq_bufptr	equ atprq_bufsize+2
atprq_user	equ atprq_bufptr+4
atprq_rbnum	equ atprq_user+4
atprq_rbdsad	equ atprq_rbnum+1
atprq_flag	equ atprq_rbdsad+4
atprq_interval	equ atprq_flag+1
atprq_rtrycnt	equ atprq_interval+1
atprq_bitmap	equ atprq_rtrycnt+1
atprq_response	equ atprq_bitmap+1
atprq_link	equ atprq_response+1
atprq_timeleft	equ atprq_link+4
atprq_trysleft	equ atprq_timeleft+1

;------------------------------------------------------------------------------
;
; Equates from procedure canrqint
;
;------------------------------------------------------------------------------

creq_parmcnt	equ $00
creq_command	equ creq_parmcnt+1
creq_result	equ creq_command+1
creq_tid	equ creq_result+2

;------------------------------------------------------------------------------
;
; Equates from procedure sendrspint
;
;------------------------------------------------------------------------------

sdrsp_parmcnt	equ $00
sdrsp_command	equ sdrsp_parmcnt+1
sdrsp_result	equ sdrsp_command+1
sdrsp_iocomp	equ sdrsp_result+2
sdrsp_sskt	equ sdrsp_iocomp+4
sdrsp_dnet	equ sdrsp_sskt+1
sdrsp_dnode	equ sdrsp_dnet+2
sdrsp_dskt	equ sdrsp_dnode+1
sdrsp_tid	equ sdrsp_dskt+1
sdrsp_rbnum	equ sdrsp_tid+2	;number of buffers send on this call
sdrsp_tpkts	equ sdrsp_rbnum+1	;maximum number of packets being sent
sdrsp_rbdsad	equ sdrsp_tpkts+1
sdrsp_flag	equ sdrsp_rbdsad+4
sdrsp_bitmap	equ sdrsp_flag+1
sdrsp_addrtn	equ sdrsp_bitmap+1
sdrsp_aflag	equ sdrsp_addrtn+4	;pass free packets back here
addrsp_parmcnt	equ $00
addrsp_command	equ addrsp_parmcnt+1
addrsp_result	equ addrsp_command+1
addrsp_sskt	equ addrsp_result+2
addrsp_dnet	equ addrsp_sskt+1
addrsp_dnode	equ addrsp_dnet+2
addrsp_dskt	equ addrsp_dnode+1
addrsp_tid	equ addrsp_dskt+1
addrsp_bsize	equ addrsp_tid+2
addrsp_bptr	equ addrsp_bsize+2
addrsp_user	equ addrsp_bptr+4
addrsp_flag	equ addrsp_user+4	;only used for eom bit
addrsp_seqnum	equ addrsp_flag+1	;packet number we are adding

;------------------------------------------------------------------------------
;
; Equates from procedure getrqint
;
;------------------------------------------------------------------------------

getrq_parmcnt	equ $00
getrq_command	equ getrq_parmcnt+1
getrq_result	equ getrq_command+1
getrq_iocomp	equ getrq_result+2
getrq_ourskt	equ getrq_iocomp+4
getrq_snet	equ getrq_ourskt+1
getrq_snode	equ getrq_snet+2
getrq_sskt	equ getrq_snode+1
getrq_tid	equ getrq_sskt+1
getrq_bufsize	equ getrq_tid+2	;size of memory buffer points to    
getrq_bufptr	equ getrq_bufsize+2	;address of buffer to put requests into
getrq_user	equ getrq_bufptr+4
getrq_actlen	equ getrq_user+4	;actual length of data read in
getrq_flag	equ getrq_actlen+2
getrq_bitmap	equ getrq_flag+1
getrq_link	equ getrq_bitmap+1

;------------------------------------------------------------------------------
;
; Equates from procedure opensktint
;
;------------------------------------------------------------------------------

opskt_parmcnt	equ $00
opskt_command	equ opskt_parmcnt+1
opskt_result	equ opskt_command+1
opskt_skt	equ opskt_result+2
clsskt_parmcnt	equ $00
clsskt_command	equ clsskt_parmcnt+1
clsskt_result	equ clsskt_command+1
clsskt_skt	equ clsskt_result+2

;------------------------------------------------------------------------------
;
; Equates from procedure cbint
;
;------------------------------------------------------------------------------

relcb_parmcnt	equ $00
relcb_command	equ relcb_parmcnt+1
relcb_result	equ relcb_command+1
relcb_ourskt	equ relcb_result+2
relcb_snet	equ relcb_ourskt+1
relcb_snode	equ relcb_snet+2
relcb_sskt	equ relcb_snode+1
relcb_tid	equ relcb_sskt+1
rspcb_link	equ $00	;first item is link	to next rspcb
rspcb_sndptr	equ rspcb_link+4	;points to associated sndatprsp
rspcb_sskt	equ rspcb_sndptr+4	;source socket
rspcb_dnet	equ rspcb_sskt+1	;destination net
rspcb_dnode	equ rspcb_dnet+2	;destination node
rspcb_dskt	equ rspcb_dnode+1	;destination socket
rspcb_tid	equ rspcb_dskt+1	;transaction id
rspcb_timeout	equ rspcb_tid+2	;internal release timer
rspcbsize	equ rspcb_timeout+2	;size of rspcb (1-Jul-91 MSD: changed to +2).
bds_bufsize	equ $00
bds_bufptr	equ bds_bufsize+2
bds_user	equ bds_bufptr+4
bds_actlen	equ bds_user+4	;actual len returned by atp

;------------------------------------------------------------------------------
;
; Equates from procedure zeropage
;
;------------------------------------------------------------------------------

cmdlist	equ $80	;global ptr to paramaters
execaddr	equ cmdlist+4
stackzp	equ execaddr+4	;for use in gocomp
prev	equ execaddr+4	;previous node pointer
curr	equ prev+4	;current node pointer
next	equ curr+4	;pointer to next node
R0	equ next+4	;4 byte register
R1	equ R0+4	;and another
R2	equ R1+4
laphead	equ R2+4	;4 byte pointer to lap header
bdsptr	equ laphead+4	;holds pointer to bds
zplen	equ bdsptr+4-cmdlist ;length of zero page
atpzplen	equ zplen-8	;length minus first	two vars

*           using  intface
*           using  initblock
* the following will be fixed vectors that may be used by
* others, the order	of these items is fixed and should not
* change after we go to rom.

* now we have the vars that are internal only, therefore they may
* be moved and changed as needed

* ram locations for	relocated rom stuff


* this section needs to be initialized to 0 on reset, or normal init

;------------------------------------------------------------------------------
;
; Equates from procedure datablock
;
;------------------------------------------------------------------------------

initoff	equ $0c
openoff	equ $05
closeoff	equ $05
lookoff	equ $18
srqoff	equ $29
dataorg	equ e1ddpend	;start data after ddp's data
rcmdaddrs	equ dataorg	;ram version of dispatch table
rcmdaddrs2	equ dataorg+$114	;ram version of dispatch table 2
tickcount	equ rcmdaddrs+1024	;global tick count
lsp	equ tickcount+4	;current stack pointer
apnode	equ lsp+2	;for append routine
atpheader	equ apnode+4	;atp header goes here
lookflag	equ atpheader+10	;flag for looklist
moveflag	equ lookflag+2	;flag to tell looklist to move
parmlist	equ moveflag+2	;general parm list
wdsbase	equ parmlist+20	;use part of parm list area
decval	equ wdsbase+20
status	equ decval+2	;status returned here
ysave	equ status+2
cursor	equ ysave+2
currpart	equ cursor+2
tempstate	equ currpart+2
tempspeed	equ tempstate+1
currstack	equ tempspeed+1	;special stack for listmngr
freechunk	equ currstack+40	;big block of memory
ourstack	equ freechunk+512	;our psuedo stack
lookbuf	equ ourstack+256	;used only during booting (xtra for stk)
rbootstart	equ lookbuf+100
rinitparms	equ rbootstart	;boot stuff gets put here
ropenparms	equ rinitparms+initoff
rcloseparms	equ ropenparms+openoff
rlookparms	equ rcloseparms+closeoff
rsrqparms	equ rlookparms+lookoff
rsrqbds	equ rsrqparms+srqoff
rparmstart	equ rsrqbds+14	;normal init data moves here
ratpreadp	equ rparmstart	;past lookbuf
initsec	equ ratpreadp+13	;init this section to 0
rqhead	equ initsec	;head of atp request list
availhead	equ rqhead+4	;points to list of free memory
rspcbhead	equ availhead+4	;points to rspcb list
grqhead	equ rspcbhead+4	;holds all getrequests issued
qtrhead	equ grqhead+4	;head of 1/4 sec tasks
gnext	equ qtrhead+4	;needed for re-entrant remove
atptid	equ gnext+4
currsp	equ atptid+2	;special listmngr sp
intrlevel	equ currsp+2	;interrupt disable flag
atalkon	equ intrlevel+2	;tells us if appletalk has been inited
startcount	equ atalkon+2	;real time counter initial value
intervalticks	equ startcount+2	;number of ticks in	a real time interval
savecnt	equ intervalticks-initsec+2 ;number of bytes to zero out
e1atpend	equ intrlevel+2	;allow 10 bytes for	ram readprot


main	PROC
	import vectortab,toC7xxgo,toC7xx,toSlotScan,GetInfo1
	
	longa on
	longi on

	bra ATROMInit

	dc.b 'ATROM VERSION 4.0'

	EXPORT ATROMInit
ATROMInit
;
; 2-Jul-91 MSD: Based on the slot passed to us by SCC.Manager, modify
; the references to code at $C7xx.
;
; 8-Jul-91 MSD: below, it was doing a STA toC7xx (I left out the +2) so
; it was causing the JSL opcode to be changed instead of the opcode....
;
; 10-Jul-91 MSD: Forced the data bank to be set to our code
;
	phb
	phk
	plb	; set data bank to our code
	
	sta OurChannel	; =1 for port A, =2 for port B
	tya	; slot in A
	sep #$20	; just do 8-bit stores
	longa off
	ora #$C0	; make A = $Cn
	
	sta vectortab+10	; fix JML C7Error
	sta toC7xxgo+2	; fix JSL C7xxgo
	sta toC7xx+2	; fix JSL C7xx
	sta toSlotScan+1	; fix lda #$C7 (before going to ROM slot scan loop)
	sta GetInfo1+2	; fix completion return address from GetInfo call
	
	rep #$20	; back to full native
	longa on
;
; End of 2-Jul-91 MSD change
;
	jsr hardreset	;long entry point for hardreset
	plb	; restore data bank (10-Jul-91 MSD)
	rtl
	jmp hardreset	;cold boot entry point (in rom this goes first)
	jmp softhandler	;soft reset entry

	export OurChannel
OurChannel	dc.w 0

	ENDP


cmdaddrs	PROC	;data area for jump	table

	DC.L 0	;no command 0
	DC.A opendriver	;call this to init everything
	DC.B atpzplen	;save zero page used, sp is set
	DC.A getinfo	;$02
	DC.B lapzplen	;save zp for lap
	DC.A getglobal	;$03
	DC.B lapzplen	;save zp for lap
	DC.A installqtr	;$04
	DC.B atpzplen	;save this much
	DC.A removeqtr	;$05
	DC.B atpzplen	;save this much
	DC.A bootcode	;$06
	DC.B 0	;no need to save zp	  
	DC.A lapwrite	;$07
	DC.B lapzplen	;save zp for lap
	DC.A lapread	;$08
	DC.B lapzplen	;save zp for lap
	DC.A attachprot	;$09
	DC.B lapzplen	;save zp for lap
	DC.A removeprot	;$0a
	DC.B lapzplen	;save zp for lap
	DC.A openskt	;$0b
	DC.B ddpzplen	;length of zero page wanted saved
	DC.A closeskt	;$0c
	DC.B ddpzplen	;length of zero page wanted saved
	DC.A ddpwrite	;$0d
	DC.B ddpzplen	;length of zero page wanted saved
	DC.A nbpregname	;$0e
	DC.B ddpzplen	;length of zero page wanted saved
	DC.A nbpremove	;$0f
	DC.B ddpzplen	;length of zero page wanted saved
	DC.A nbplookup	;$10
	DC.B ddpzplen	;length of zero page wanted saved
	DC.A nbpconfirm	;$11
	DC.B ddpzplen	;length of zero page wanted saved
	DC.A atpsendrequest	;$12
	DC.B atpzplen	;length of zero page wanted saved
	DC.A cancelreq	;$13
	DC.B atpzplen	;length of zero page wanted saved
	DC.A openatpsocket	;$14
	DC.B atpzplen	;length of zero page wanted saved
	DC.A closeatpsocket	;$15
	DC.B atpzplen	;length of zero page wanted saved
	DC.A getrequest	;$16
	DC.B atpzplen	;length of zero page wanted saved
	DC.A sendresponse	;$17
	DC.B atpzplen	;length of zero page wanted saved

	IF  small	GOTO .noadd
	DC.A addresponse	;$18
	DC.B atpzplen
	GOTO .tl1

.noadd
	DC.L 0	;pad out addresponse ($18)
.tl1
	DC.A relrspcb	;$19
	DC.B atpzplen	;length of zero page wanted saved

	entry cmdtabend
cmdtabend		;used in calculation later


	ENDP

cmdaddrs2	PROC	;data area for jump	table

	DC.A removeqtr	;call this to init everything
	DC.B atpzplen	;save zero page used, sp is set
	DC.A nbpkill	;$02
	DC.B ddpzplen	;save zp for lap

	entry cmdtabend2
cmdtabend2		;used in calculation later

	ENDP

*******************************************************************************
*			                  *
* ATPENTRY - Main entry point to the AppleTalk command dispatcher             *
*			                  *
*			                  *
* Entry:			                  *
*			                  *
*	X = Pointer to command call block (Low Word)              *
*	Y = Pointer to command call block (High Word)             *
*			                  *
*  Necessary items in the command call block:	                  *
*			                  *
*      	 ______________________________	                  *
*	|                              |	                  *
*	|         Async Flag           |	                  *
*	|______________________________|	                  *
*	|                              |	                  *
*	|         Command              |	                  *
*	|______________________________|	                  *
*	|                              |	                  *
*	|         Result Code          |	                  *
*	|______________________________|	                  *
*	|                              |	                  *
*	.                              .	                  *
*	|      <Command Specific>      |	                  *
*	.                              .	                  *
*	|                              |	                  *
*			                  *
*******************************************************************************

atpentry	PROC	;ATP entry point

	EXPORT adispatch
adispatch		;       
	longa on	;16 bit accum
	longi on	;and index registers

	phd	;save direct page
	lda #0000	;and make sure direct page
	tcd	;is zero
	phb	;save old data bank
	pea databank/256	;databank in both bytes        
	plb
	plb	;get new data bank

	longa off
	sep #mbit	;keep 16 bit x, but	use 8 bit a

	lda statereg	;save previous state
	pha
	and #$cf	;bits 4&5 zero force read and write main bank
	sta statereg
	lda lcbank2
	lda lcbank2	;make sure correct bank is in for $e1
	lda cyareg	;get speed register
	pha	;and save for later
	ora #$80	;make it fast
	sta cyareg

	longa on
	longi on
	rep #mbit+xbit	;back to full x,a
	phy
	phx
	ldx #cmdlist
	lda #8	;save zp used by dispatcher
	jsr savezp
	plx
	ply	;recover parms
	sty cmdlist+2	;and save x & y as cmdlist
	stx cmdlist

	ldy #atprq_command	;offset to command field
	lda [cmdlist],y	;get command byte in lower 8 bits
	and #$00ff	;strip off unnecessary bits
	asl a	;*2
	asl a	;*4 for offset into	table
	tax	;set up for jsr
	lda rcmdaddrs,x	;get low word of address
	sta execaddr	;save it in memory
	lda rcmdaddrs+2,x	;get high bytes
	tax	;hold in x
	and #$00ff	;strip high byte (24 bit addresses)
	sta execaddr+2	;and save them
	ora execaddr	;see if routine exists
	beq dispatcherr	;we can't dispatch this
	txa	;get back high word
	xba	;swap in # of zp bytes to save
	and #$00ff	;only use low byte
	pha	;and save on stack for restore
	ldx #cmdlist+8	;save from this point
	jsr savezp	;save what routine wants
	clc	;call long form of routine
	pei cmdlist+2	;high word of cmdlist
	pei cmdlist	;and low word
	phb	;save data bank

	jsl incbusyflag	;tell scheduler we are busy
	jsr stacksave	;save stack space if needed
	jsl goexec	;go to routine
	rep #mbit+xbit	;make sure full native
	jsr stackrestore	;restore stack space
	jsl decbusyflag	;let scheduler call	code if needed

goback		; 
	plb	;and restore bank
	rep #mbit+xbit+cbit	;force back to 16 bit x,a
	pla	;get low word of cmdlist
	sta cmdlist
	pla	;and high word
	sta cmdlist+2
	pla	;recover # of bytes	to restore
goback1		; ;entry point for bad cmd
	adc #8	;add in original amount saved
	tax	;and hold on for later
	sep #mbit+xbit+cbit	;back to 8 bit mode, assume err
	longa off
	longi off
	ldy #2
	lda [cmdlist]	;get async flag
	bmi seterr	;so set flags
synchold		; 
	lda [cmdlist],y	;get result field
	bmi synchold	;and loop while busy
seterr		; ;now set the error flags
	lda [cmdlist],y	;get low byte
	beq noerr
	bpl cok	;it's an error c=1
noerr		; 
	clc	;no error <=0
	pea $0000	;no error
	bra cok1
cok		; 
	pea $8888	;dummy network error
cok1		; 

	rep #mbit+xbit	;back to full native
	longa on
	longi on
	php	;save c,x,a

	txa	;get length
	ldy #cmdlist	;and base to restore
	jsr restorezp	;and restore it

	plp	;recover c, (x,a=16	bit mode)

	pla	;recover error

	sep #mbit+xbit	;back to 8 bit mode, assume err
	longa off
	longi off
	plx	;get cyareg (speed register)
	stx cyareg	;and restore it
	plx	;get back statereg
	stx statereg	;restore state

	rep #mbit+xbit
	longa on
	longi on

	plb	;restore old data bank
	pld	;restore their direct page
	rts

dispatcherr		; 
	ldy #2
	lda #noentry	;dispatch entry was	empty
	sta [cmdlist],y
	clc
	lda #0000
	bra goback1	;and return

goexec		;so others can see this
	jml [|execaddr]

	entry ldispatch	; EXPORT -> ENTRY  **TGH
ldispatch		;       
	jsr atpentry	;provide a long entry
	rtl	;to the dispatcher


* saves a range of memory
* must be called in	16 bit mode
* x=source address
* a=number of bytes
*
* NOTE: This routine also accounts for zero page being
* moved, and thus must treat zp as relative to the D register
*
	EXPORT savee1
savee1		;       
	sep #vbit+cbit	;e1 mode
	bra saveit
	EXPORT savezp
savezp		;       ;saves zero	page usage
	clv
saveit		; 
	longa on
	longi on
	rep #mbit+xbit+cbit	;make sure 16 bit
	ora #0000	;see if no bytes to	move
	beq rtnzp	;none, so return
	phb	;save data bank
	pha	;save move count
	php	;save v & c=0 bits
	ldy lsp	;destination address (current sp)
	adc lsp	;compute new lsp value
	sta lsp	;and save it
	plp	;recover v & c=0
dskip1		; 
	pla	;get count
	dec a	;adjust for mvn
	bvs dskip2	;skip if E1 mode
	mvn $00,databank	;save in databank
	plb	;and restore bank
	rts
dskip2		; 
	mvn databank,databank ;save in databank
	plb	;and restore data bank
rtnzp		; 
	rts

* restores a range of memory
* y=first address to restore
* a=number of bytes
	EXPORT restoree1
restoree1		;       
	sep #vbit	;E1 mode
	bra restoreit
	EXPORT restorezp
restorezp		;       
	clv	;direct page mode
restoreit		; 
	rep #mbit+xbit+cbit	;16 bits, c = 0
	dec a	;get number to move	- 1
	bmi rtnzp	;if negative, was 0
	phb	;save data bank
	pha	;save for mvn
	php	;save v bit and c =	0
	lda lsp	;get stack pointer
	sbc $2,s	;subtract count c=0	but a=a-1
	plp	;get back v and c =	0
	tax	;use for source
dskip3		; 
	pla	;recover count
	phx	;and save new sp (but don't update yet)
	bvs dskip4	;do e1 mode
	mvn databank,$00	;restore from databank
	bra finish
dskip4		; 
	mvn databank,databank
finish		; 
	pla	;get lsp
	plb	;restore databank before store
	sta lsp
	rts

	ENDP

*
* hardreset
* this routine is called only after hard reset
* it should set everything up that needs to be
* initialized
*
hardreset	PROC

	php	;save status
	phb
	jsr setup	;set speed and databank

	rep #mbit+xbit
	longa on
	longi on

	lda #ourstack	;set up the stack
	sta lsp
	stz atalkon	;appletalk is not yet active

	lda #0000
	sta rcmdaddrs	;clear some memory
	ldx #rcmdaddrs	;first address
	ldy #rcmdaddrs+1	;destination
	lda #1024-2	;number of bytes to	zero
	mvn databank,databank ;and move it

* now we might want	to call ddp & lap to let them do what they want

	ldx #cmdaddrs	;get rom dispatch table
	ldy #rcmdaddrs	;and ram address as	destination
	lda #(cmdtabend-cmdaddrs)-1 ;length of command table
	mvn main,databank	;move from rom to ram

	ldx #cmdaddrs2	;get rom dispatch table
	ldy #rcmdaddrs2	;and ram address as	destination
	lda #(cmdtabend2-cmdaddrs2)-1 ;length of command table
	mvn main,databank	;move from rom to ram

;	FIX OUR CNXX VECTORS HERE!

	lda #$006B	;Put an rtl into the ONEXITVECTOR
	sta OnExitVector
	lda #$0000
	sta OnExitVector+2

	ldx #bootstart	;relocate boot parms
	ldy #rbootstart	;into ram
	lda #(bootend-bootstart)-1 ;length of boot parms
	mvn main,databank	;from rom to ram

	ldx #vectortab	;jump vectors
	ldy #Extended	;address of first ram vector
	lda #vectlen-1	;number of bytes to	move
	mvn main,databank	;from rom to ram
* after we check the code out we must put a jml to dispatch	at PDispatch
*
	lda >jdispatch
	sta PDispatch
	lda >jdispatch+2
	sta PDispatch+2

	jsr lapresetinit	;let lap set up variables before any calls are made

	jsr cleanup
	plb	;restore old bank
	plp	;and mode bits
	rts	;and return to boot

jdispatch	jml Dispatch	;code to call built	in dispatch

	export vectortab
vectortab		;this is the vector table
	DC.L $6b	;rtl for extended
	DC.L $6b	;rtl for basic
	DC.B $5c	;jml c7error for pascal
	DC.A C7Error
	DC.B $5c	;jml gocomp
	DC.A gocomp
	DC.B $5c	;jml anrtl for soft	reset chain
	DC.A anrtl
	DC.B $5c	;jml ldispatch for dispatcher entry
	DC.A ldispatch
	DC.B $5c	;jml longforbid
	DC.A longForbid
	DC.B $5c	;jml longPermit
	DC.A longPermit
vectlen	equ *-vectortab

setup		;       
	sep #mbit+xbit	;short mode
	longa off
	longi off

	lda #databank
	pha
	plb
	lda statereg	;get previous state.
	bit lcbank2
	bit lcbank2	;make sure correct bank is in for $e1
	sta tempstate	;save previous state.
	lda cyareg	;get speed register
	sta tempspeed	;and save for later
	ora #$80	;make it fast
	sta cyareg
	rts

cleanup		;       
	sep #mbit+xbit
	longa off
	longi off

	lda tempspeed
	sta cyareg
	lda tempstate	;get state reg
	sta statereg
	rts

	entry softhandler	; EXPORT -> ENTRY
softhandler		;call here to dispatch reset chain
	php	;save mode bits
	phb	;save databank
	jsr setup
	rep #mbit+xbit
	longa on
	longi on
	jsl softreset	;call code in reset	chain
	jsr cleanup
	plb	;restore old databank
	plp	;and mode bits

anrtl	rtl


	ENDP
*
* atp.listmngr
*

****************************************************************
*
*  listmanager-
*
*  This is the main	linked list handler
*  It loops through	a given linked list	and calls a special
*  routine for each	node that is found.	 That routine can then
*  return a control	code to listmanager, telling it what to	do
*  with the node.  The currently available options are:
*
*  when returning to the list manager if the carry is set then
*  we will stop scanning the list, otherwise we will continue
*
*
*  Inputs:  the following are passed on	the stack:
*
*           head address -      16 bits
*	            address	of pointer to head of linked
*	            list.  This points to head-link offset.
*           special	routine -   16 bits
*	            special	routine to be called for each
*	            node encountered
*           return address -    16 bits
*	            return address put here by jsr
*  Register Inputs:
*
*           offset to link -    y-reg (16 bits)
*	            offset from node address to	next link
*	            field
*
*  Outputs: none currently
*
****************************************************************

listmanager	PROC	;main list loop

*
* set up pointers before loop
*
	longa on
	longi on
	rep #mbit+xbit

	lda $5,s	;get low word of head address
	sta prev	;save low word of previous ptr (head)
	lda #^databank	;get high word
	sta prev+2
	tyx	;hold link offset temporarily
	lda [prev],y	;get low word of first node
	sta curr	;and save it
	iny
	iny
	lda [prev],y	;and get high word
	sta curr+2
	txy	;recover link offset
	sty ysave	;and save globally
testcurr		; ;top of while loop
	lda curr	;get low word
	ora curr+2	;check against high	word
	beq listdone	;we are done if both are zero
	lda [curr],y	;get low word of next link
	sta next	;and save it
	tyx	;save index
	iny	;and bump up to
	iny	;high word
	lda [curr],y	;get it
	sta next+2	;and save
	phx	;save link offset on stack
	txy	;set up link offset	for call
	pea comeback	;address to return to
	lda $7,s	;get routine off stack
	dec a	;make it so we can rts to
	pha	;fake an indirect jsr
comeback	rts	;we actually will return to the
		;next instruction after the RTS
		;this will call routine pushed on stk
	
* this is where we return to from that pea comeback done a few lines earlier

	rep #mbit+xbit	;make sure 16 bit x,a

	ply	;finally, restore link offset
	bcs listdone	;we are done since the want to stop
	lda curr	;otherwise continue	to scan list
	sta prev	;prev=curr
	lda curr+2
	sta prev+2
	lda next	;curr=next (move to	next node)
	sta curr
	lda next+2
	sta curr+2
	brl testcurr	;loop for more
listdone		; ;clean up and leave
	lda $1,s	;get return address
	sta $5,s	;move it up to where it belongs
	tsc	;get stack pointer in accum
	clc	;set up for add
	adc #4	;scrape garbage of stack
	tcs	;fix stack pointer
	rts	;and return


	entry dodelete	; EXPORT -> ENTRY  **TGH
dodelete		;delete the	current node
	tyx	;save link offset
	lda next
	sta [prev],y	;cut out current node
	iny	;bump to high word
	iny
	lda next+2
	sta [prev],y

exitdelete		; ;leave through here
*
* now, since we are	allowing the list manager to be recursively
* re-entrant, if we	happen to be deleting someone elses curr node
* we must update their curr value on the stack to the real curr item
* we must do this for each item on the stack that matches the node
* being deleted.
*
	ldy currsp	;get special stack pointer
	beq stackok	;stack is ok now since nothing there
* now check to see if the node we just deleted was somebodies current 
* node, and if so, adjust the special stack to let give them our prev
* node to compensate for the just deleted node
chkprev		; ;check special stack
	lda curr+2	;check node deleted	against
	cmp currstack-2,y	;their prev node
	bne backup	;check next item on	stack
	lda curr
	cmp currstack-4,y	;check low word
	bne backup	;not a match
	lda prev	;give them a new curr value
	sta currstack-4,y	;since we are deleting theirs
	lda prev+2
	sta currstack-2,y
backup		; ;move down stack
	dey
	dey
	dey
	dey
	bne chkprev	;still something on	stack
stackok		; 
	lda prev	;curr=prev to adjust for
	sta curr	;deleted node
	lda prev+2
	sta curr+2
	txy	;restore link offset
	rts	;and return

ldodelete	jsr dodelete	;use for long entry to delete
	rtl


	entry pushcurr	; EXPORT -> ENTRY  **TGH
pushcurr		;       ;push current node
	ldx currsp	;get current stack value
	inx
	inx
	inx
	inx
	stx currsp	;update stack before pushing
	lda curr
	sta currstack-4,x
	lda curr+2
	sta currstack-2,x
	rts

	entry pullcurr	; EXPORT -> ENTRY  **TGH
pullcurr		;       ;recover current and next values
	ldx currsp
	lda currstack-2,x	;get high word of next
	sta curr+2	;and save it
	lda currstack-4,x	;and get low word
	sta curr	;and save low word
	dex
	dex
	dex
	dex
* now that we have recovered curr, lets	get the next value from it
	lda [curr],y	;get low word of next node
	sta next	;and save it
	iny
	iny
	lda [curr],y	;and get high word
	sta next+2
	dey
	dey	;re-adjust y to original value
	stx currsp	;and save the new stack
	rts


	ENDP
*
* atp.listrtns
*
* this is a group of routines that make	use
* of the list manager to provide extended list
* functions
*

****************************************************************
*
*  addlist-    
*
*  This routine adds a node    that is passed on the stack
*  to the front of a list whose head address is also passed
*  on the stack.
*
*  Stack Inputs:
*
*           head address -	16 bits
*		address of pointer to head
*		of linked list
*           item address -	32 bits
*		address of item to be appended
*           return address -	16 bits
*		return address
*
*  Register Inputs:
*
*           offset to link -	y-reg (16 bits)
*		offset from node address to
*		next link field
*
*  Outputs:
*
*           none currently
*
*  Destroys:
*           nothing
*
****************************************************************

addlist	PROC

	plx	;get return address
	pla	;get low word of node to insert
	sta curr	;save locally
	pla	;get high word
	sta curr+2
	pla	;get low word of head address
	sta prev	;save in zp
	phx	;put return address	back on stack
	tyx	;save link offset
	lda (prev),y
	sta [curr],y	;save low word
	iny
	iny
	lda (prev),y
	sta [curr],y
	lda curr+2
	sta (prev),y	;save new head high	word
	txy	;get original offset
	lda curr
	sta (prev),y
	ldy currsp	;check special stack
	beq stackok	;nothing on it
chkprev		; 
	lda prev	;see if we have a match
	cmp currstack-4,y	;check head against	their curr
	bne backup
	lda #^databank	;high word of head
	cmp currstack-2,y
	bne backup	;keep checking
	lda curr+2	;change curr val on	stack
	sta currstack-2,y
	lda curr
	sta currstack-4,y
backup		; 
	dey
	dey
	dey
	dey
	bne chkprev
stackok	rts	;and return


	ENDP


****************************************************************
*
*  looklist -
*
*  This routine looks in a list for a node that
*  belongs to the packet that was just received.
*  It does this by using a comparison table that
*  tells it what items are expected to match.
*  The packet that was read must be at a fixed
*  location, and must use the long ddp form.
*  This is acceptable since our implementation of
*  ddp puts all packets into long form before
*  passing control to its socket listener.
*
*  Stack Inputs:
*                  head address -	16 bits
*		address of pointer to
*		head of list to search
*                  compare table -	16 bits
*		this is the table that
*		tells what items relative
*		to the beginning of	the
*		protocol layers need to
*		be examined.
*		NOTE: it is assumed	that this
*		table is in the same bank as the
*		code.
*                  return address -	16 bits
*
*  Register Inputs:
*                  y-reg	link offset
*
*  Status Flags:
*                  z=1	no match found
*                  z=0	match found
*
*  Memory Outputs:
*                  cmdlist	holds value of node	found
*
*  Destroys:
*                  R0,R1,R2
*
****************************************************************
*
looklist	PROC

	longa on
	longi on
	rep #mbit+xbit

	tyx	;save offset
	stz lookflag	;not found yet
	stz moveflag	;no move wanted
	pla	;get return address
	sta R2	;only uses 16 bits for return
	pla	;get compare table address
	sec	;for subtract
	sbc #sdrsp_sskt	;back up pointer to	table
	sta R0	;and save for spcl routine
	phk	;push program bank
	phk	;and again (since 16 bit mode)
	pla	;now recover it and	use it for
	sta R0+2	;high word of our code bank
	pea lookspcl	;set up stack for listmanager
	jsr listmanager	;and loop through list
	pei R2	;push return address
	lda lookflag	;set status bit
	rts	;and return

	entry listmove	; EXPORT -> ENTRY  **TGH
listmove		;alternate entry for moving
	longa off
	longi off
	sep #mbit+xbit	;go to 8 bit
	lda #01	;set move flag
	sta moveflag

lookspcl		; ;special node routine
*
* R0 contains a pointer to the compare table - sdrsp_sskt
* the reason it points to this is that the comparing does
* not start until sdrsp_sskt, and therefore the previous
* bytes in the command list do not matter
*
	sep #xbit+mbit+vbit	;8 bit x,a, force v	for ddp mode

	ldy #sdrsp_sskt-1	;this is where we will compare
looksp1		; 
	iny	;move to next item in lists
	lda [R0],y	;get the compare table item
	beq looksp1	;keep going with next item
	bpl checkvbit	;it's a real index
	inc a	;see if was 255
	beq found	;we passed all tests
	dec a	;back up a
	and #$7f	;strip high bit
	rep #vbit	;clear vbit for atp	mode switch
checkvbit		; 
	phy	;save loop index
	tay	;set up index to packet data
	lda [laphead],y	;assume from lap and ddp
	bvs goodguess	;we were right
	lda atpheader,y	;we were wrong (no big deal)
goodguess		; 
	ply	;get back loop index
	ldx moveflag	;see if move or compare should be done
	beq compare	;do a compare
	sta [curr],y	;do a move
	bra looksp1	;do next byte
compare		; 
	cmp [curr],y	;see if matches data in list
	beq looksp1	;yes so keep checking
nomatch	clc	;skip code (this is	why we use 8 bits)
goback	rep #mbit+xbit	;back to 16 x,a
	rts	;and return

found	ldx moveflag	;see if move or compare
	bne goback	;just return if move
	rep #mbit+xbit	;back to 16 x,a
	longa on
	longi on
	lda curr
	sta cmdlist	;this is where we return the pointer
	lda curr+2
	sta cmdlist+2
	inc lookflag	;tell main routine that we found it
	sec	;set stop bit
	rts	;and return

	ENDP
*
* atp.sndrequest
*
*

atpsendrequest	PROC

	jsr forbid	;hold off ints

	ldy #atprq_bufsize
	lda [cmdlist],y	;get size of buffer	to send
	cmp #maxatpsize+1	;see if too big
	bcc bufsizeok	;its ok
	lda #largeatp	;atp data too large
	bra badskt	;and report the error
bufsizeok		; 
	sep #mbit+xbit
	longa off
	longi off

	ldy #atprq_rbnum
	lda [cmdlist],y	;see how many response buffers
	cmp #9	;see if too many
	bcc bufsok	;number of bufs is ok

	rep #mbit+xbit	;back to 16 bit a,x
	longa on
	longi on
	lda #toomuchrsp	;too many rsp buffers
	bra badskt	;and report the error

bufsok		; 
	rep #mbit+xbit
	longa on
	longi on

	ldx #<atplisten	;get low word
	ldy #^atplisten	;and high word
	lda #0	;ask for dynamic socket
	jsr ddpopenskt	;open socket listener
	bne badskt	;some kind of ddp error 

	sep #mbit+xbit	;8 bit x,a
	longa off
	longi off

	txa	;get socket from x
	ldy #atprq_dymskt	;get offset to socket
	sta [cmdlist],y	;put socket in list
	ldy #atprq_rtrycnt	;get offset to retry count
	lda [cmdlist],y	;get it
	ldy #atprq_trysleft	;set up trysleft first time
	sta [cmdlist],y
	lda #00	;zero out number of	responses
	ldy #atprq_response	;received
	sta [cmdlist],y

	rep #mbit+xbit	;back to 16 bit a,x
	longa on
	longi on

	pea rqhead-atprq_link ;low word of head-offset
	pei cmdlist+2	;high word of cmdlist
	pei cmdlist
	ldy #atprq_link	;offset to link
	jsr addlist	;add to this list
	inc atptid	;bump tid
	lda atptid	;get the trans id
	xba	;switch high & low bytes
	ldy #atprq_tid	;offset to tid field
	sta [cmdlist],y	;save it
	jsr sndrqpkt	;send out the request packet
rqok		; ;the request was ok, so exit busy
	jmp waitdone	;general exit routine

badskt		; 
	jmp retasynflag	;and return from there

	ENDP

*
* atplisten
*
* this is the socket listener for send requests.
* it reads the atp header out of the packet.   
*

atplisten	PROC

atpls1		; 
	rep #mbit+xbit
	longa on
	longi on
	pea databank	;set up databank properly
	plb
	plb

	ldx #cmdlist	;save zero page from here
	lda #zplen
	jsr savezp
	ldx cmdlist
	ldy #$00e1	;lap header in bank	$e1
	stx laphead
	sty laphead+2
	pei laphead+1	;push bytes 2 & 3 (3=$e1)
	plb	;discard byte 2
	plb	;and get bank e1
	stz status	;assume no error for return   
	jsr readatpheader	;read in the header	to known location
	sep #mbit+xbit	;make sure 8 bit x,a
	longa off
	longi off

	bne dumprest	;error so ignore this packet
	lda atpheader	;get the function code
	and #$C0	;strip unwanted bits
	cmp #$80	;check for reply
	bne dumprest	;nope
	pea rqhead-atprq_link ;address of head for list routines
	pea rsptable	;push response table address
	ldy #atprq_link	;link offset
	jsr looklist	;look for a match
	sep #mbit+xbit	;make sure 8 bit x,a
	beq dumprest	;no match found so throw out packet
*
* cmdlist now contains address of node that matched
*

	lda atpheader+1	;get sequence number
	ldy #atprq_rbnum	;for compare against num of
	cmp [cmdlist],y	;buffers
	bcc goodsofar1	;so far its ok
dumprest		; ;throw out packet
	rep #mbit	;16 bit A.
	sec	;use internal mode of call
	longa on
	lda #$8000	;Set purge bit, read 0 bytes
	longa off
	jsr LAPRead	;and purge packet
	
	entry doneatp	; EXPORT -> ENTRY  **TGH
doneatp		;

	rep #mbit+xbit	;make sure 16 bit mode
	longa on
	longi on

	ldy #cmdlist	;restore from here
	lda #zplen
	jsr restorezp
	rtl	;and return

goodsofar1		; 

	longa off
	longi off
	tax	;transfer sequence num
	lda >onebitmask,x	;get mask from table
	ldy #atprq_bitmap	;go to bitmap field
	and [cmdlist],y	;see if wanted
	beq dumprest	;nope so leave

	rep #mbit+xbit	;16 bit x,a
	longa on
	longi on

	txa	;get back sequence number
	asl a	;*2
	asl a	;*4
	pha	;hold temporarily
	asl a	;now a=a*8, carry is clear
	adc $1,s	;add a*4 to get a=a*12
	plx	;discard stack temp
	ldy #atprq_rbdsad	;offset to rddsad pointer
	jsr readrbds	;read data into rbds
	bne doneatp	;bad read so ignore
	sep #mbit+xbit	;back to 8 bit mode
	longa off
	longi off

	ldy #atprq_response	;move to responses received fld
	lda [cmdlist],y	;get previous value
	inc a	;add 1
	sta [cmdlist],y	;and put back new value
	ldy #atprq_bitmap	;update bitmap
	ldx atpheader+1	;get sequence number
	lda atpheader	;get flags
	and #atpeombit	;see if eom
	beq clearbit	;nope so just set bitmap
	lda >lowbitmask,x	;get mask for this sequence number
	and [cmdlist],y	;see if all bits below are zero
	bra newbitmap	;store new bitmap
clearbit	lda >onebitmask,x	;get bit to set
	eor [cmdlist],y	;flip what was there
newbitmap	sta [cmdlist],y	;and store the new one
	php	;save result of bitmap stuff
	lda atpheader	;get flag byte again
	and #atpstsbit	;see if status wanted
	beq checkdone	;no, so see if done	with packet
	jsr sndrqpkt	;re-send request packet
checkdone	plp	;get status from bitmap back
	bne listendone	;still bits set so leave
	rep #mbit+xbit	;make sure full 16 bit mode
	lda status	;call is done so complete
	jsl killrequest	;by killing the request
listendone	bra doneatp	;back to caller


	ENDP


*
* waitdone
*
* indicate a call is busy
*

waitdone	PROC

	rep #mbit+xbit	;16 bit x,a
	longa on
	longi on

	lda #atpbusy	;show busy first

	entry retasynflag	; EXPORT -> ENTRY  **TGH
retasynflag		;       ;alternate entry point

	rep #mbit+xbit	;make sure 16 bit x,a

	ldy #atprq_result	;offset to result byte
	sta [cmdlist],y	;save it
	jsr permit	;back down interrupt hold off

	sep #mbit+xbit	;go to 8 bit x,a
	longa off
	longi off

	ora #00	;test low byte to set status bits
	bpl procdone	;if positive we are	done

goback		; 
	rtl	;return long to dispatcher

procdone		; 
*		;fall through to io	completion stuff

	entry chkiocmp	; EXPORT -> ENTRY  **TGH
chkiocmp		;another alternate entry point

	sep #mbit+xbit	;again force 8 bit x,a

	lda [cmdlist]	;get async flag
	bpl goback	;not async so no completion routine
	ldy #atprq_result
	lda [cmdlist],y	;get result
	bmi goback	;not completed yet
	ldy #atprq_iocomp	;offset to completion routine

	entry callcomp	; EXPORT -> ENTRY  **TGH
callcomp		;       ;come here if y already set

	rep #mbit+xbit	;back to full 16 bit mode
	longa on
	longi on

	tax	;hold onto a
	lda [cmdlist],y	;get low word
	sta execaddr
	iny
	iny	;bump to high word
	lda [cmdlist],y
	sta execaddr+2	;save high word
	ora execaddr	;check against low word
	beq goback	;no completion routine wanted
* now, since we are	temporarily giving up control, we must make
* sure we preserve the next field, since it was possible that
* we were in the middle of scanning a list when we called this
* routine.  This way, if the next node happens to be deleted
* the delete routine will have a value on the special nextstack
* that it can update to reflect the 'real' next node
	jsr pushcurr	;save next value
	lda ysave	;get y offset to link
	pha
	jsl gocomp	;call completion routine
	ply	;recover y offset to link
	sty ysave	;restore ysave since it could have gotten changed
	jsr pullcurr	;recover value (possibly changed)
	rtl	;and return


	EXPORT gocomp
gocomp		;       ;general completion routine
*
* passes value in x
*
	rep #mbit+xbit	;force full native
	longa on
	longi on

	tsc
	tax	;save stack for return
	lda execaddr+2	;get high word
	beq callemul	;calling bank 0, do	so in emulation
	phx	;save current stack	for return
	phb
	
	export toC7xxgo
toC7xxgo	jsl C7xxgo	;call exec address,	full native
xxx		; 
	rep #mbit+xbit	;full native
	plb
	pla	;recover full stack	pointer
	tcs	;and use it
	rtl	;and return

callemul		; ;call completion in emulation mode
	cpx #$0200	;see if out of emulation range
	bcc stackok	;no, stack is ok
	lda >emulstack	;get emulation stack
	and #$00ff	;strip out high word
	ora #$0100	;and put stack in page 1
	tcs	;set new stack
stackok	sec	;call C7xx with carry set for emulation
	phx
	phb
	
	export toC7xx
toC7xx	jsl C7xx
	bra xxx

* the following c7 code belongs in the c700 space of the appletalk card
*c7xx	anop	;switch into emulation mode
*	xce
* use following code when code is in rom (leave out for testing)
*	pei execaddr+1	;push 2 & 3 rd bytes
*	plb
*	plb	;set db to same as pb in execaddr
*c7xxgo	anop
*	jml (execaddr)	;call the stinking	routine
*
*
* completion routine must jump directly	here (no rts or rtl)
*
*c7xxret	anop
*	clc
*	xce
*	rtl	;and return


	ENDP

*
* sndrqpkt
* sends out an atp request packet
*

sndrqpkt	PROC


	sep #mbit+xbit	;force 8 bit x,a
	longa off
	longi off

	ldy #atprq_interval	;time interval for retran
	lda [cmdlist],y
	ldy #atprq_timeleft
	sta [cmdlist],y	;reset timeout counter
	ldy #atprq_flag
	lda [cmdlist],y	;get flag value
	bit #atpxobit	; is it an exactly-once transaction? (1-Jul-91 MSD)
	bne @xo	; yes, so leave TRel timer bits (1-Jul-91 MSD)
	and #atpxobit	;strip all but xo bit
@xo
	and #atpxobit|7	; strip all but xo bit and TRel timer bits (1-Jul-91 MSD)
	ora #$40	;and make it a request
*
* now fall through to the generic
* send atp packet routine
*
	entry sndatppkt	; EXPORT -> ENTRY  **TGH
sndatppkt		;       ;alternate entry point

	sep #mbit+xbit	;force 8 bit x,a

	sta atpheader	;store command byte
	ldy #atprq_bitmap
	lda [cmdlist],y	;get the bitmap
	sta atpheader+1	;and put in parm list
	rep #mbit+xbit+cbit	;back to 16 bit x,a, clear carry
	longa on
	longi on

	lda cmdlist	;get low word
	adc #atprq_bufsize	;add in offset to user data  
	sta bdsptr	;to get fake bds pointer
	lda cmdlist+2	;get high word
	adc #00	;add in carry bit
	sta bdsptr+2	;now bds points to parm list
	lda #$00ff	;tell write that we	did bds already
	jsr watppkt	;write atp packet
goodsend	rts	;and return to our caller (internal)
	ENDP


*
* atp.killrequest
*

*
* cancelreq
*
* this call removes	a request from the request pending
* list, and calls a	completion routine if necessary.
* It only expects to be passed a tid, that it will match
* to an item in the	list.  It then deletes that item.
*

cancelreq	PROC

	jsr CheckAsync	; 7-Oct-91 MSD
	
	longa on
	longi on
	rep #mbit+xbit	;full native

	jsr forbid	;don't bother us in here
	ldy #creq_result	;assume good call
	lda #noatperr	;so store no error
	sta [cmdlist],y
	lda cmdlist
	sta laphead	;set up for looklist routine
	lda cmdlist+2
	sta laphead+2
	pea rqhead-atprq_link ;this is the list	to search
	pea canceltable	;this is the match table
	ldy #atprq_link	;offset to link field
	jsr looklist	;look it up
	beq nomatch	;not in list
	lda #reqabort	;show request aborted
	jsl killrequest	;kill the request officially
	jsr permit	;allow ints again
	rtl	;and return
nomatch		; 
	lda #noatpcb	;control block not found
	jmp retasynflag	;does permit for us


*
* killrequest
*
* this call cancels	a pending sendrequest by removing
* it from the rqhead list if it exists.	 It then calls
* a completion routine if there is one to be executed.
* Also, on exactly once packets it sends a release before
* exiting.
*
	entry killrequest	; EXPORT -> ENTRY  **TGH
killrequest		;

	longa on
	longi on
	rep #mbit+xbit
	pha	;save result
	pea rqhead-atprq_link ;search through this list
	ldy #atprq_link	;offset to link field
	jsr delitem	;and remove cmdlist
	beq killexit	;nothing deleted
	pla	;adjust stack
killonly		;kill without delete
	pha	;save error code
	cmp #largeatp	;see if atp too large err
	beq closeskt	;yes so don't send release
	ldy #atprq_flag
	lda [cmdlist],y	;get flag
	and #atpxobit	;see if xo mode
	beq closeskt	;nope so close and leave
	lda #$c0	;send release
	jsr sndatppkt	;packet
	bra closeskt

kill	pha

closeskt	sep #mbit+xbit
	longa off
	longi off

	ldy #atprq_dymskt
	lda [cmdlist],y	;get socket of this	list
	jsr closeddpskt	;close the socket
killexit		; 
	rep #mbit+xbit
	longa on
	longi on

	pla	;recover error code
	ldy #atprq_result
	sta [cmdlist],y	;save result
	jmp chkiocmp	;do i/o completion,	and return


*
* delitem
* 
* this routine deletes the item in the list that is passed us that
* cmdlist contains.
* the address of the list head is passed on the stack
*
	entry delitem	; EXPORT -> ENTRY  **TGH
delitem		;

	longa on
	longi on
	rep #mbit+xbit	;force 16 bit x,a

	stz lookflag	;nothing found yet
	pla	;get return address
	sta R0	;hold in temp
	pea delspec	;special delete routine
	jsr listmanager	;loop through this list
	pei R0	;restore return
	lda lookflag	;and set condition codes
	rts	;and return

delspec		; ;comes here for each node
	lda cmdlist
	cmp curr	;see if match found
	bne donext	;keep looking
	lda cmdlist+2	;check high word
	cmp curr+2
	bne donext	;no match
	jsr dodelete	;delete a node
	sec	;and stop
	inc lookflag	;show that it was found
	rts
donext	clc	;skip this one
	rts



*
* atptimer
*
* this routine is called directly by the 1/4 sec scheduler
* and is responsible for updating and maintaining
* the linked lists (decrementing timers, retrans, etc).
*
*

	entry atptimer	; EXPORT -> ENTRY  **TGH
atptimer		;assume comes here in full native

	longa on
	longi on

	pea rqhead-atprq_link ;scan this list
	pea rqscan	;request list scanner
	ldy #atprq_link	;offset to link field
	jsr listmanager	;scan the list
	pea rspcbhead-rspcb_link ;check for expire of xo
	pea rspscan	;timer
	ldy #rspcb_link
	jsr listmanager

	rts	;and return to our caller


rspscan
;
; 1-Jul-91 MSD: Changed this to a 2-byte decrement.
;
	ldy #rspcb_timeout
	lda [curr],y	;get timeout for this rspcb
	sec	; 4-Oct-91 MSD
	sbc decval	;number of ticks that have occured
	beq gone	;it went to zero
	bcc gone	;it went minus
	sta [curr],y	;otherwise, just store new value
gonext		; ;on to next item
	clc	;skip to next item
	rts

gone		; ;remove the node
	lda curr
	sta cmdlist
	lda curr+2
	sta cmdlist+2
	jsr relcb1	;free up memory and	get sndresponse
	php	;save result from release
	ldy #rspcb_link
	jsr dodelete	;delete the node
	plp	;get result back from release
	beq gonext	;no sndresponse was	attached
	jsr forbid	;balance with permit in retasynflag
	lda #noatprel	;no release ever received
	jsl retasynflag
	bra gonext	;and go to next item



rqscan		; ;this is where we	check the rq list
	lda curr
	sta cmdlist	;move it since others expect it here
	lda curr+2
	sta cmdlist+2

	longa off
	longi off
	sep #mbit+xbit+cbit	;go to 8 bit mode

	ldy #atprq_timeleft	;check retran timer
	lda [cmdlist],y
	sec	; 4-Oct-91 MSD
	sbc decval	;subtract number of	ticks
	sta [cmdlist],y	;save result
	beq sendagain	;send it again and dec trysleft
	bcs rqnext	;not down to zero yet
sendagain		; 
	ldy #atprq_trysleft	;now dec number of tries
	lda [cmdlist],y	;if it is not $ff or $00
	beq kickout	;get rid of this one
	dec a	;back it up
	cmp #$fe	;see if was $ff
	beq sendit	;yep, so don't dec & do send
	sta [cmdlist],y	;save new value
sendit	jsr sndrqpkt	;send the packet
rqnext		; 
	clc	;skip to next one
	rts
kickout		; 
	longa on
	longi on
	rep #mbit+xbit
	ldy #atprq_link	;offset to link field
	jsr dodelete	;delete it
	lda #requestfail	;timeout without response
	jsl kill	;pkt already deleted, kill only
	bra rqnext	;go on to next packet


*
* atp.sndresponse
*
	entry sendresponse	; EXPORT -> ENTRY  **TGH
sendresponse		;

	longa off
	longi off
	sep #mbit+xbit

	jsr forbid	;don't allow interrupts
	ldy #sdrsp_sskt
	lda [cmdlist],y
	jsr checkskt	;see if ok socket
	bne doerr1	;we got an error so	leave
goodsocket		; 
* NOTE: it is up to	the user to properly set the bitmap.
*
	sep #mbit+xbit
	longa off
	longi off
	ldy #sdrsp_flag	;get xo flag
	lda [cmdlist],y
	and #atpxobit	;and isolate xo bit
	beq csendrsp	;just send it
	jsr attachrspcb	;see if we can attach to a rspcb
	rep #mbit+xbit	;make sure full native
	longa on
	longi on
	bne doxosend	;do exactly once send
	lda #noatpcb	;couldn't find rspcb
	bra doerr1	;and report the error
doxosend		; 
	jsr sendrsp	;send response packets
	jmp waitdone	;and leave
csendrsp		; ;do at least
	jsr sendrsp	;send it
doerr1		; 
	jmp retasynflag	;and post it

sendrsp		; 
	sep #mbit+xbit
	longa off
	longi off
	ldy #sdrsp_bitmap	;get user supplied bitmap
	lda [cmdlist],y
	jsr sendnrsp	;and send the corresponding packets
	rts
*
* attachrspcb
*
* looks for a match	in the rspcb list, and if found
* attaches cmdlist to it, also sets up expire timer
*
* On entry, cmdlist points to the SendATPResp parameter block.
* Note: The caller must copy the ATP flags byte from the GetATPReq
* parameter block to the SendATPResp parameter block in order for the
* variable TRel timer to work properly (since I don't store the original
* timer value in the Response Control Block, I depend on the caller
* to supply me with the original flags byte).
*

attachrspcb		;       
	rep #mbit+xbit	;make sure full native
	longa on
	longi on
	lda cmdlist	;set up for looklist call
	sta laphead
	lda cmdlist+2
	sta laphead+2
	pea rspcbhead-rspcb_link ;push head of list
	pea attachtable	;address of match table
	ldy #rspcb_link	;offset to link field
	jsr looklist	;check for a match
	php	;save status
	beq notattached	;nope so wasn't xo
	ldy #rspcb_sndptr	;offset to attach field
	lda laphead	;now points to sndresponse
	pha	;save for later
	sta [cmdlist],y	;cmdlist now points	to rspcb
	iny
	iny
	lda laphead+2
	pha	;save for later
	sta [cmdlist],y

;
; 1-Jul-91 MSD: Get the TRel timer bits from the control information byte
; (as given to us by the caller).  Use as an index into a table of timer
; values and then store it in the Response Control Block as usual.
;
	ldy #sdrsp_flag	; offset to flags byte in SendATPResp
	lda [laphead],y	; get control information (command) byte
	and #7	; get just TRel timer bits
	asl a	; times 2 as index to table of words
; Begin 26-Sep-91 MSD
	tax
	lda >TRelTimers,x	; get the corresponding timeout in ticks
; End 26-Sep-91 MSD
	ldy #rspcb_timeout	;set timeout
	sta [cmdlist],y	;save it
;
; End of 1-Jul-91 MSD change.
;
	pla	;recover high word of sndresponse
	sta cmdlist+2	;back into cmdlist
	pla
	sta cmdlist	;and low word
notattached		; ;exit point
	plp	;recover processor state
	rts	;and return

	entry sendnrsp	; EXPORT -> ENTRY  **TGH
sendnrsp		;       
	longa off
	longi off
	sep #mbit+xbit	;8 bit x,a

	pha	;save bitmap
	ldy #sdrsp_rbnum	;get number of active responses
	lda [cmdlist],y
	tax
	pla	;recover bitmap
	and >lowbitmask,x	;and strip unnecessary bits
	pha	;and save bitmap again
	lda #$80	;this is a response	packet
	sta atpheader
	lda #$ff	;no response to start
	sta atpheader+1
sdrsp1	pla	;get current bitmap
	beq sdrsp9	;done
	inc atpheader+1	;bump sequence number
	lsr a	;move bit to carry
	pha	;save new bitmap
	bcc sdrsp1	;no packet for this	bit
	bne sdrsp2	;not last buffer in	sequence
	ldy #sdrsp_flag	;offset to flags
	lda [cmdlist],y	;get the flag
	and #atpstsbit	;see if sts wanted
	ora atpheader	;set bit if on since last buffer
	sta atpheader	;in this sequence
sdrsp2	lda atpheader+1	;get sequence number
	tax	;hold for a while
	inc a	;bump by 1 for test
	ldy #sdrsp_tpkts	;total number of bds's 
	cmp [cmdlist],y	;check against # of	packets
	bcc sdrsp3	;not last so send normally
	bne sdrsp1	;too big if > # packets (need add)
	lda #atpeombit	;last packet so get	eom bit
	ora atpheader	;and set it
	sta atpheader
sdrsp3		; 
	ldy #sdrsp_flag
	lda [cmdlist],y	;get xo bit
	and #atpxobit	;and isolate it
	ora atpheader
	sta atpheader	;and save it
	txa	;get back sequence #
	asl a	;*2
	asl a	;*4
	pha	;save * 4 value
	asl a	;*8
	adc $1,s	;add to * 4 to get * 12
	plx	;throw away junk
	jsr watppkt	;write this packet
	beq sdrsp1	;no error so keep sending
	ply	;discard stack junk
sdrsp9	rep #mbit+xbit	;go to full native
	rts	;and return


*
* openatpsocket
*
* opens a ddp socket and sets up a socket listener
* to handle incoming requests and releases
*
	entry openatpsocket	; EXPORT -> ENTRY  **TGH
openatpsocket		;

	longa on
	longi on

	jsr CheckAsync	; 7-Oct-91 MSD
	
	jsr forbid
	ldy #opskt_skt	;get their socket
	lda [cmdlist],y
	ldx #rsplstn	;our socket listener
	ldy #^rsplstn	;high word
	jsr ddpopenskt	;open the socket
	bne goback	;error, so return

	longa off
	longi off
	sep #mbit+xbit

	txa	;get socket from open
	ldy #opskt_skt
	sta [cmdlist],y	;save new socket

	longa on
	longi on
	rep #mbit+xbit	;back to full native

	lda #noatperr	;no error
goback	jmp retasynflag	;return through here (calls permit)


*
* closeatpsocket
*
* closes up an atp socket opened through openatpsocket.
* This includes removing all references	to this socket
* from any of our lists, and freeing any associated memory. 
*
	entry closeatpsocket ; EXPORT -> ENTRY  **TGH
closeatpsocket		;       

	jsr CheckAsync	; 7-Oct-91 MSD
	
	jsr forbid

	longa on
	longi on
	rep #mbit+xbit
	ldy #clsskt_result
	lda #noatperr
	sta [cmdlist],y	;no error

	longa off
	longi off
	sep #mbit+xbit

	ldy #clsskt_skt
	lda [cmdlist],y
	sta r1	;hold onto skt
	jsr closeddpskt	;close socket

	longa on	;comes back in full	16 bit
	longi on

	beq closeok	;socket closed ok
	jmp retasynflag	;return the error

closeok		; 
	pea grqhead-getrq_link ;scan this list
	pea clsgrq	;close out grq's
	ldy #getrq_link
	jsr listmanager
	pea rspcbhead-rspcb_link ;now remove rspcb's
	pea clsrspcb	;remove rspcb's that match
	ldy #rspcb_link
	jsr listmanager
	jsr permit
	rtl	;and return

clsgrq		; 

	longa off
	longi off
	sep #mbit+xbit

	ldy #getrq_ourskt
	lda [curr],y	;get socket from list
	cmp r1	;see if need to delete
	beq delit	;delete it if matches
	clc	;skip only
	rts
delit		; 
	rep #mbit+xbit	;use full native
	longa on
	longi on

	lda curr	;put pntr into cmdlist
	sta cmdlist	;since that's where retasynflag
	lda curr+2	;wants it
	sta cmdlist+2
	ldy #getrq_link
	jsr dodelete	;delete the node
sktclose		; ;calls completion	routine
	jsr forbid	;balance permit in retasyn
	lda #sktclsd	;socket was closed
	jsl retasynflag	;set result and do completion
skipon		; 
	clc	;keep going
	rts

clsrspcb		; 
	sep #mbit+xbit
	longa off
	longi off

	ldy #rspcb_sskt
	lda [curr],y
	cmp r1
	beq delcb	;remove the rspcb
	clc
	rts
delcb		; 

	longa on
	longi on
	rep #mbit+xbit

	lda curr
	sta r0
	sta cmdlist
	lda curr+2
	sta r0+2
	sta cmdlist+2
	ldy #rspcb_link
	jsr dodelete	;remove from linked	list
	jsr freemem	;free up the space
	jsr getsndrsp	;get sndrsp that was attached
	beq skipon	;the snd was never attached
	bra sktclose	;do completion stuff


*
* relrspcb
*
* call this to manually free a rspcb if	you need to.
*
	entry relrspcb	; EXPORT -> ENTRY  **TGH
relrspcb
	jsr CheckAsync	; 7-Oct-91 MSD
	
	longa on
	longi on
	rep #mbit+xbit

	jsr forbid	;don't bother us here
	ldy #relcb_result
	lda #noatperr
	sta [cmdlist],y	;assume no error
	lda cmdlist
	sta laphead	;compare against this
	lda cmdlist+2
	sta laphead+2
	pea rspcbhead-rspcb_link ;search through this list
	pea reltable
	ldy #rspcb_link	;offset to link field
	jsr looklist
	beq notfound	;no match found
	jsr relcb	;free the rspcb
	beq nosndatt	;no send response was attached
*
* if we need to here, we can put code to call the completion routine
* for the sndresponse which is now held	in cmdlist
*
	lda #rsprel	;close up and complete
	jmp retasynflag	;and exit from there


nosndatt	jsr permit	;permit ints again
	rtl	;and return

notfound	lda #noatpcb	;no control block
	jmp retasynflag	;and exit with error

* don't use add since small wanted
	IF  small	GOTO .tl2           
*
* addresponse
*
	entry addresponse	; EXPORT -> ENTRY  **TGH
addresponse		;       ;add a response to sendrsp
	longa on
	longi on

	jsr forbid
	lda cmdlist	;adjust this to account for
	sta laphead
	lda cmdlist+2
	sta laphead+2
	pea rspcbhead-rspcb_link ;look through rspcb's
	pea addtable	;match table for add
	ldy #rspcb_link	;link field of list	to scan
	jsr looklist	;and see if we get a match
	bne getsnd	;find attached sndrsp         
	brl nosndrsp	;there was none
getsnd		; 
	jsr getsndrsp	;sets cmdlist=attached sndresponse

	longa off
	longi off
	sep #mbit+xbit

	ldy #addrsp_seqnum	;sequence number of	this packet
	lda [laphead],y	;laphead is pointing to addrsp
	ldy #sdrsp_tpkts	;see if too many packets
	cmp [cmdlist],y
	bcs badsqnum	;bad sequence number
	ldy #sdrsp_rbnum	;currently active
	cmp [cmdlist],y	;see if too low
	bne badsqnum	;bad sequence number
	tax	;save for later
	inc a	;adjust highest active packet
	sta [cmdlist],y	;and save as new rbnum
	txa	;get back real sequence num
	asl a	;*2
	asl a	;*4
	pha	;save *4 value
	asl a	;*8
	adc $1,s	;carry should be clear get *4+*8
	ply	;discard stack junk
	ldy #sdrsp_rbdsad	;get offset to rbds

	rep #mbit+xbit+cbit	;go to full native
	longa on
	longi on

	and #$00ff	;strip high byte
	adc [cmdlist],y	;add to low word of	rbds
	sta bdsptr
	lda #0000	;add high word of 0	to add carry
	iny
	iny
	adc [cmdlist],y
	sta bdsptr+2
	clc
	lda laphead	;now get address of	packet to add
	adc #addrsp_bsize
	sta r0
	lda laphead+2
	adc #0000
	sta r0+2
movebuf	ldy #bds_bufsize
movelp		; 
	lda [r0],y	;get source WORD
	sta [bdsptr],y	;and move WORD
	iny	;move to next word
	iny
	cpy #bds_actlen	;stop when >= to this
	bcc movelp	;not done yet

	sep #mbit+xbit
	longi off
	longa off

	inx	;now make sequence num 1-8
	lda >onebitmask-1,x	;set bit in bitmap
	ldy #sdrsp_bitmap
	ora [cmdlist],y
	sta [cmdlist],y
	ldy #addrsp_flag	;get eom flag
	lda [laphead],y
	and #atpeombit	;see if eom wanted
	beq adddone	;our work is almost	done
	ldy #sdrsp_tpkts	;and update total number of packets
	txa	;recover sequence number+1
	sta [cmdlist],y	;and change tpkts
adddone		; ;now clean up and	leave
	ldy #sdrsp_bitmap	;get the bitmap
	lda [cmdlist],y
	jsr sendnrsp	;and send out the packets

	longa on
	longi on
	rep #mbit+xbit

	lda #noatperr
exit		; 
	ldy #addrsp_result
	sta [laphead],y	;set result
	jsr permit	;allow ints again 
	rtl	;and leave

badsqnum		; 
	rep #mbit+xbit
	lda #invalidseq	;bad sequence number
	bra exit	;and return
nosndrsp		; 
	rep #mbit+xbit
	lda #addnosnd	;trying to add without a send
	bra exit
.tl2



*
* atp.getrequest
*
* implements getrequest call
* and the associated socket listener
*
	entry getrequest	; EXPORT -> ENTRY  **TGH
getrequest		;

	longa off
	longi off
	sep #mbit+xbit

	jsr forbid
	ldy #getrq_ourskt	;get the socket they got from atp
	lda [cmdlist],y
	jsr checkskt	;see if valid
	beq @goodsocket	;yes, ok
	jmp retasynflag	;bad, so return with error
@goodsocket		; 

	longa on
	longi on
	rep #mbit+xbit	;full native mode

	pea grqhead-getrq_link ;head of getrequest list
	pei cmdlist+2	;high word of this node
	pei cmdlist	;low word of this node
	ldy #getrq_link	;offset to link field
	jsr addlist	;add to get request	list
	jmp waitdone	;return with busy flag set


*
* rsplstn
* this is the socket listener that is called when requests and
* releases come to us.  It is responsible for searching rspcb's,
* & grq's, and takes the appropriate action
*
	entry rsplstn	; EXPORT -> ENTRY  **TGH
rsplstn		;       
	longa on
	longi on

	rep #mbit+xbit	;force full native
	pea databank	;make sure we are in right bank
	plb
	plb
	lda #zplen	;save zero page
	ldx #cmdlist	;from here
	jsr savezp
	ldx cmdlist
	ldy #$00e1	;always in e1
	stx laphead	;save address of lapheader
	sty laphead+2
	pei laphead+1	;push bytes 2 & 3 (3=$e1)
	plb	;discard byte 2
	plb	;and get bank e1
	stz status	;assume no error to	return   
	jsr readatpheader	;read in the header
	sep #mbit+xbit	;make sure 8 bit x,a
	longa off
	longi off

	bne dumprest	;error so ignore
	lda atpheader	;get function code
	tax	;make a copy
	asl a	;check function
	bpl dumprest	;ignore it since it's a response
	bcs release	;it's a release
	txa	;get back original function code
	and #atpxobit	;see if xo
	beq atprpls4	;nope
* this is an exactly once request, so now it is time to check
* and see if there is a response matching this packet already
* waiting in a rspcb.  If so, then we re-tranmit the original
* response.  Otherwise, if the rspcb exists but does not have
* a response attached to it, we simply ignore this packet.
* If no rspcb is found at all, then see	if there is a getrequest
* pending for this packet, and handle it for the getrequest.
*
	jsr lookrspcb	;look for a match in rspcb list
	beq atprpls4	;no rspcb so do getrequest check
* a rspcb was found, so check to see if	a response already exists
* cmdlist now points to the rspcb that matched
;
; 1-Jul-91 MSD: Get the TRel timer bits from the control information byte
; (the first byte of the ATP header).  Use as an index into a table of timer
; values and then store it in the Response Control Block as usual.
;
	lda atpheader	; get control information (command) byte
	and #7	; get just TRel timer bits
	asl a	; times 2 as index to table of words
; Begin 26-Sep-91 MSD
	tax
	lda >TRelTimers,x	; get the corresponding timeout in ticks
; End 26-Sep-91 MSD
	ldy #rspcb_timeout	;set timeout
	sta [cmdlist],y	;save it
;
; End of 1-Jul-91 MSD change.
;
	jsr getsndrsp	;get sndrsp in cmdlist

	sep #mbit+xbit	;back to 8 bit x,a

	beq dumprest	;nothing attached yet so leave
	lda atpheader+1	;get bitmap from request
	ldy #sdrsp_bitmap
	and [cmdlist],y	;and with internal bitmap
	pha	;packets to send (save for free pkts)
	jsr sendnrsp	;snd pkts they want	and we have
	sep #mbit+xbit	;make sure 8 bit x,a
	pla	;get packets to send
	tax	;hold for awhile
	ldy #sdrsp_bitmap	;get internal bitmap again
	eor [cmdlist],y	;operation gives us	packets to free
	pha	;hold on stack
	txa	;get packets to send (new bitmap)
	sta [cmdlist],y	;save it
	pla	;now get packets to	free
	beq dumprest	;there are none
	jsr freepkts	;call free packets routine
dumprest		; ;throw out remaining data
	rep #mbit	;16 bit A
	sec	;do internal call
	longa on
	lda #$8000	;do purge, read 0 bytes
	jsr lapread
	longa off
rsplstngoback		; 
	jmp doneatp	;return through common exit

release		; ;comes here with release pkt
	longa on
	longi on
	jsr lookrspcb	;search for a match
	beq dumprest	;no match so leave
	jsr relcb	;free this cb
	beq dumprest	;there was no sndresponse attached
	bra goodexit	;there was a sndresponse to release it

	entry relcb	; EXPORT -> ENTRY  **TGH
relcb		;       
	rep #mbit+xbit
	pea rspcbhead-rspcb_link ;delete from this list
	ldy #rspcb_link	;offset to link
	jsr delitem	;remove from list

	longa on
	longi on	;comes back in 16 bit mode

	entry relcb1	; EXPORT -> ENTRY  **TGH
relcb1		;       
	lda cmdlist	;get node to put back on free
	sta r0	;list
	lda cmdlist+2
	sta r0+2	;node to free is in	r0
	jsr freemem	;puts back on list of avail nodes
	jsr getsndrsp	;gets sendrsp attached to rspcb
	rts	;return all set up

goodexit	jsr forbid	;balance permit in retasynflag
	rep #mbit+xbit	;16 bit x,a
	lda status	;get error code if any    
	jsl retasynflag	;call completion stuff (does permit)
	bra dumprest	;and return
atprpls4		; ;check for a matching getrequest

	rep #mbit+xbit	;make sure full native

	pea grqhead-getrq_link ;search the getrequest list
	pea grqtable	;make sure a getrequest is pending
	ldy #getrq_link	;offset to link
	jsr looklist	;call search routine
	beq dumprest	;no match found
* a match was found, and cmdlist now contains the matching getrequest
	clc
	lda cmdlist
	adc #getrq_bufsize
	sta bdsptr
	lda cmdlist+2
	adc #^getrq_bufsize
	sta bdsptr+2
	jsr readrbd2	;alternate entry if	bds already set
	bne rsplstngoback	;and return, packet	already purged
	pei cmdlist+2	;high word
	pei cmdlist	;low word of destination
	jsr moveinfo	;move the data

	longa off
	longi off
	sep #mbit+xbit

	pea grqhead-getrq_link ;remove from grq	list
	ldy #getrq_link
	jsr delitem	;and delete it
	sep #mbit+xbit	;put back in 8 bit x,a

	ldy #getrq_bitmap	;update bitmap
	lda atpheader+1
	sta [cmdlist],y
	ldy #getrq_flag	;update flag field
	lda atpheader	;get command byte
	sta [cmdlist],y
	and #atpxobit	;isolate this bit
	beq goodexit	;all done, not xo
	jsr getmem	;get a free node
	beq nomem	;no memory left

	longa on	;comes back in full	native
	longi on

	lda #0000
	ldy #rspcb_sndptr
	sta [r0],y
	iny
	iny
	sta [r0],y	;clear sndptr field	(not attached yet)
;
; 1-Jul-91 MSD: Get the TRel timer bits from the control information byte
; (the first byte of the ATP header).  Use as an index into a table of timer
; values and then store it in the Response Control Block as usual.
;
	lda atpheader	; get control information (command) byte
	and #7	; get just TRel timer bits
	asl a	; times 2 as index to table of words
; Begin 26-Sep-91 MSD
	tax
	lda >TRelTimers,x	; get the corresponding timeout in ticks
; End 26-Sep-91 MSD
	ldy #rspcb_timeout	;set initial timeout
	sta [r0],y	;and save in parm block
;
; End of 1-Jul-91 MSD change.
;
	pea rspcbhead-rspcb_link ;push parms on	stack for second call
	pei r0+2	;now, since r0 will	be destroyed by
	pei r0	;moveinfo

	pei r0+2
	pei r0
	jsr moveinfo	;now set up data for this rspcb
	ldy #rspcb_link	;parms are already on stack (above)
	jsr addlist	;and do it
	brl goodexit	;do iocomp and leave

nomem		; ;no memory for rspcb
	rep #mbit+xbit	;make sure full native
	lda #norspcbmem
	sta status
	brl goodexit	;call completion routine

moveinfo		; 
	plx	;get return
	pla	;get low word
	sta curr	;set up
	pla	;get high word
	sta curr+2
	pea rspcbtable-sdrsp_sskt ;calculate base of movetable
	pla	;get it back
	sta r0
	phk
	phk	;push program bank
	pla	;get it back
	sta r0+2	;and use for high word
	phx	;restore return addr
	jsr listmove	;do the move
	rts

	entry lookrspcb	; EXPORT -> ENTRY  **TGH
lookrspcb		;       
	rep #mbit+xbit
	pea rspcbhead-rspcb_link ;search the rspcb list
	pea rspcbtable	;match table  
	ldy #rspcb_link	;offset to link
	jsr looklist	;call search routine
	sep #mbit+xbit	;make sure 8 x,a
	rts

	entry getsndrsp	; EXPORT -> ENTRY  **TGH
getsndrsp		;       ;puts sndrsp field of rspcb in cmdlist
	longa on
	longi on
	rep #mbit+xbit
	ldy #rspcb_sndptr	;check attach field
	lda [cmdlist],y	;get low word
	pha	;save
	iny
	iny
	lda [cmdlist],y	;get high word
	sta cmdlist+2	;new cmdlist is sndrsp
	pla	;get low word
	sta cmdlist
	ora cmdlist+2	;see if 0
	rts

;
; This is a table of words giving the number of ticks for the various
; possible TRel timer values (from an XO TReq packet).  The undefined
; values result in the old 30 second timeout.
;
TRelTimers
	dc.w 30*4,60*4,2*60*4,4*60*4,8*60*4,30*4,30*4,30*4
	
*
* freepkts
* this routine will	call the special routine attached to the sndresponse
* call for every packet that is no longer needed in the response
* The ones that are	no longer needed are the ones which have been sent
* and a new bitmap has been returned saying those packets were received
* if a bit is set in aflag, it means that that packet is now free.
*
freepkts		; 
	longa off
	longi off	;comes here in 8 bit mode

	sep #mbit+xbit	;just to be safe
	ldy #sdrsp_aflag	;store the packets to add flag
	sta [cmdlist],y
	ldy #sdrsp_addrtn	;offset to routine wanted
	jsl callcomp	;and call it
	rts	;and return


*
* atp.memory
*
* this is the memory management stuff
* that is neccessary to support xo sendresponses
*
	entry freemem	; EXPORT -> ENTRY  **TGH
freemem		;free node that is in R0

	longa on
	longi on
	rep #mbit+xbit

	lda availhead	;get low word of head
	sta [r0]	;save in low link field
	ldy #0002	;offset to high link
	lda availhead+2
	sta [r0],y	;save that (r0->link=availhead)
	lda r0	;now get this node
	sta availhead	;and let availhead = r0
	lda r0+2
	sta availhead+2	;node was just released
	rts	;by adding to front	of availhead

	entry makefreelist	; EXPORT -> ENTRY  **TGH
makefreelist		;       ;create a list of free memory

	rep #mbit+xbit	;force full native mode

	lda #freechunk	;use fixed memory for now
	sta r0	;but later call memory manager
	lda #^databank	;for this memory
	sta r0+2	;
	ldx #512/rspcbsize	;512 bytes so get as many as we can
makeloop		; 
	jsr freemem	;free first node
	clc
	lda r0	;get low word
	adc #rspcbsize	;move to next entry
	sta r0
	lda r0+2	;get high byte
	adc #^rspcbsize	;add high word (always 0)
	sta r0+2	;and save result
	dex	;
	bne makeloop	;add next node to free list
	rts	;and return

	entry getmem	; EXPORT -> ENTRY
getmem		;       ;this gets a node from availhead

	rep #mbit+xbit	;force full native

	pea availhead-0	;push address of head
	pea getspc	;getmem special routine
	stz r0	;clear return field
	stz r0+2	;and high byte
	ldy #0000	;offset to avail link
	jsr listmanager	;call list handler
	lda r0
	ora r0+2	;set flags for caller (z=1 if no mem)
	rts	;return to caller
getspc		; ;special handler
	lda curr	;get this node
	sta r0	;and take from list
	lda curr+2
	sta r0+2
	jsr dodelete	;delete node and stop
	sec	;stop
	rts	;that's it

*
* atp.qtr
*
* this is the general quarter second task scheduler
* it allows addition and removal of 1/4	second routines
* that will be called at user specifiable times.
*
* NOTE: RemoveQtr is completely re-entrant, and can   
* be called whenever a routine is no-longer needed.      
* InstallQtr is safe to call when servicing a 1/4 sec
* interrupt or AppleTalk packets.  In other words, if
* you are in a 1/4 second handler, it is allowable to
* call InstallQtr without ill effect.
*
	entry InstallQtr	; EXPORT -> ENTRY  **TGH
InstallQtr		;

	longa on
	longi on
	rep #mbit+xbit
	jsr forbid	;don't bother us in here

	ldy #insqtr_ticks	;update tick counter
	lda tickcount	;get global tick count
	sta [cmdlist],y
	ldy #insqtr_count	;get number of ticks wanted
	lda [cmdlist],y
	beq rqgoback	;return only global	tick count

* always add to the	head of the queue, since it is possible	that
* the 1/4 scheduler	could be scanning the list when we were	called.
* If the node where	appended to the end, it could be called	before
* time had really elapsed!

	pea qtrhead-insqtr_link ;add to this list
	pei cmdlist+2	;add this item
	pei cmdlist
	ldy #insqtr_link	;get offset to link	field
	jsr addlist
	lda #qtrbusy	;show that we are in progress
	jmp retasynflag

	entry RemoveQtr	; EXPORT -> ENTRY  **TGH
RemoveQtr		;       ;delete from list

	jsr CheckAsync	; 7-Oct-91 MSD
	
	rep #mbit+xbit	;force 16 bits
	jsr forbid	;no ints in here

	pea qtrhead-insqtr_link
	ldy #insqtr_link
	jsr delitem
	beq rqnotfound	;error
	ldy #rmvqtr_command	;Load the command number.
	lda [cmdlist]
	and #$FF00	;Only the command number!
	cmp #$4500	;Is it a cancel or remove?
	bne @L1	;Branch if remove.

	lda [cmdlist]
	ora #$0080
	sta [cmdlist]
	lda #qtrcanceled
	bra rqgoback

@L1	lda #noqtrerr	;no error
rqgoback		; 
	jmp retasynflag	;and return
rqnotfound	lda #qtrnotfound
	bra rqgoback	;return with error

* this is the quarter second dispatcher
* it is called by lap directly, and comes
* here with int's disabled
*
	EXPORT qtrsched
qtrsched		;       ;the 1/4 sec scheduler
	ldx atalkon	;see if appletalk really active
	beq qtrscheddone	;no, so don't try to dispatch

	and #$00ff	;lap only counts low byte as valid
	sta decval	;decrement value
	clc
	adc intervalticks	;running ticks in real time interval
	sta intervalticks	;save them

;	pea $0000	;push space for result of readtime
;	pea $0000	;push space for result of readtime
;	pea $0000	;push space for result of readtime
;	pea $0000	;push space for result of readtime
;	ldx #$0d03	;call readtimehex
;	jsl >$e10000
;	pla	;get seconds and minutes
;	plx
;	plx
;	plx	;discard other stuff
;	and #$00ff	;just want number of seconds
;	tax	;save in case we need it again

	php	;This routine is cheaper
	sep #$30	;in cycles than the above routine.
	jsl >$E1008C	; 3/6/89  *** TGH
	plp
	lda >$E103E1
	and #$00FF
	tax

checktimedif		; 
	sec
	sbc startcount	;subtract the previous counter
	bcs numsok	;no need to do 60 second adjust
	txa	;recover time again
	adc #256	;add 60 seconds to real time and check for difference
	bra checktimedif	;go check the difference now
numsok		; 
	cmp #10	;see if above threshold
	bcc dontadjustyet	;no, so lets not adjust right now
	stx startcount	;new counter
	asl a	;multiply by 4
	asl a	;to find number of 1/4 seconds
	sec
	sbc intervalticks	;see if more ticks need to be dispatched
	stz intervalticks	;zero out the interval timer
	bcc dontadjustyet	;intervalticks were	valid
	clc
	adc decval	;add to value we just got
	sta decval	;dispatch with adjusted tick count
dontadjustyet		; 
	lda decval	;get decrement value
	clc
	adc tickcount	;add to old tickcount
	sta tickcount	;and save new value

	lda #zplen	;entire length of zp used
	ldx #cmdlist	;base of zp to save
	jsr savezp	;and save it

	jsr atptimer	;our internal routine
	pea qtrhead-insqtr_link ;scan this list
	pea qtrroutine	;special routine for each node
	ldy #insqtr_link	;offset to link
	jsr listmanager	;do it

	lda #zplen	;length of zero page to restore
	ldy #cmdlist	;restore starting here
	jsr restorezp	;and restore it
qtrscheddone		; 
	rts	;and return

qtrroutine		; ;gets each node
	sec	;for subtract
	ldy #insqtr_count
	lda [curr],y	;get value
	sbc decval	;subtract number of	ticks that expired
	sta [curr],y	;update value
	beq callit	;call the handler
	bcc callit	;if <=0
scanmore		; 
	clc	;skip to next node
	rts
callit		; 
	ldy #insqtr_ticks
	lda tickcount
	sta [curr],y	;update users tick count field
	lda curr	;copy to cmdlist for calling
	sta cmdlist	;routine
	lda curr+2
	sta cmdlist+2
	ldy #insqtr_link
	jsr dodelete	;delete before completion
	jsr forbid	;balance permit in retasynflag
	lda #noqtrerr	;call is completing
	jsl retasynflag	;and call completion if there
	bra scanmore	;keep scanning

*
* atp.ddpstuff
*
* these are the interface routines from	atp to
* dpp.  They will change when the 'real' version
* of ddp goes into use.
*
	EXPORT ddpopenskt
ddpopenskt		;

	sta parmlist+4	; save socket ID
	stx parmlist+5	;store address of skt listener
	sty parmlist+7

	lda #$0b00	;command for sync open ddp socket
	sta parmlist
	jsr makecall	;call routine

	beq ok	;leave it alone
	lda #noddpskt	;no ddp socket error
ok		; 
	rts

	entry makecall	; EXPORT -> ENTRY  **TGH
makecall		;       ;call with parm list
	rep #mbit+xbit
	longa on
	longi on

	ldx #<parmlist
	ldy #^databank
	jsr atpentry	;do the open

	sep #mbit+xbit	;make sure in 8 bit	x,a
	ldx parmlist+4	;get socket number assigned
	rep #mbit+xbit	;back to full native mode
	lda parmlist+2	;z=1 if no error
	rts	;and return

	EXPORT closeddpskt
closeddpskt
	rep #mbit+xbit	; make sure we're called in 16-bit mode
	longa on
	longi on
	sta parmlist+4	;close this socket
	lda #$0c00	;command for sync close
	sta parmlist
	jsr makecall	;call routine
	beq okfine	;leave it alone
	lda #atpbadskt	;no ddp socket error
okfine		; 
	rts


*
* opendriver
* opens the atalk driver for testing
*
	entry opendriver	; EXPORT -> ENTRY  **TGH
opendriver
	jsr CheckAsync	; 7-Oct-91 MSD

	longa on
	longi on
* assume our reset is always first installed, so it can be
* in rom, since it need not know who it	should call
	lda >jresetcode	;$5c+(resetcode<<8)	  ;put jml to resetcode
	sta softreset	;routine into the vector
	lda >jresetcode+2
	sta softreset+2


initdriver		;       ;only init the driver
	longa on	;comes here in full	16
	longi on
	rep #mbit+xbit

;	php
;	sei	;don't want to be interrupted in here
;	pea $0000	;push space for result of readtime
;	pea $0000	;push space for result of readtime
;	pea $0000	;push space for result of readtime
;	pea $0000	;push space for result of readtime
;	ldx #$0d03	;call readtimehex
;	jsl >$e10000
;	pla	;get seconds and minutes
;	plx
;	plx
;	plx	;discard other stuff
;	and #$00ff	;just want number of seconds
;	sta startcount	;initialize for 1/4	sec irq routine
;	plp	;restore state

	php	;This routine is cheaper
	sei

	sep #$30	;in cycles than the above routine.
	jsl >$E1008C	; 3/6/89  *** TGH

	longa on
	longi on
	rep #mbit+xbit

	lda >$E103E1
	and #$00FF
;	sta startcount
;	plp	;Restore interupts
	pha

	ldx #iparmstart	;init parms start
	ldy #rparmstart	;ram parm start
	lda #(iend-iparmstart)-1 ;length of initialized data
	mvn main,databank	;from rom to ram


	sep #mbit+xbit
	longa off
	longi off	;8 bit x,a

	lda #00	;clear them bytes
	ldy #savecnt	;number of bytes to	clear
clre1lp		; 
	sta initsec-1,y	;clear bytes in $e1
	dey
	bne clre1lp

	longa on
	longi on
	rep #mbit+xbit+cbit

	pla
	sta startcount
	plp	;Restore interupts

	jsl lapinit	;through dipatcher.	When LAP returns,
*		;A MUST be the result.
	tax	;set codes
	bne GetOuttaHere	;error so exit
	inc atalkon	;appletalk is on
	jsr ddpinit

	jsr makefreelist	;create free list of mem


GetOuttaHere		; 
	rtl	;and return

jresetcode	jml resetcode	;code to call built	in dispatch

*
* this is where soft resets come
*

resetcode		;       ;this code will be moved to ram
	lda #ourstack	;get base of stack
	sta lsp	;and set up stack pointer
	jsr lapresetinit	;let lap zero info before calling it for node init
	ldx #cmdlist	;save zp
	lda #zplen	;length of stuff not saved yet
	jsr savezp
	stz rinitparms+9	;change to stz later
	lda #rinitparms	;do the init with boots list
	sta cmdlist
	lda #^databank
	sta cmdlist+2
	jsl initdriver	;init driver stuff and rtl
	ldy #cmdlist	;restore from here
	lda #zplen	;and this much
	jsr restorezp
	rtl
rscodelen	equ *-resetcode	;length of code to relocate



	entry readatpheader	; EXPORT -> ENTRY  **TGH
readatpheader		;	;call ddp to read header
	longa off
	longi off

	rep #mbit+xbit
	longa on
	longi on

	ldx #<ratpreadp	;low byte of header
	ldy #^databank	;high byte of header
	jsr atpentry	;call dispatcher for read
	lda ratpreadp+2	;get result
	rts	;and return


*
* readrbds
* reads in the data	in the packet into our bds structure
* y=offset to bds pointer field
* a=offset from bds	pointer to actual bds entry
*
	entry readrbds	; EXPORT -> ENTRY  **TGH
readrbds		;

	longa on
	longi on
	rep #mbit+xbit+cbit	;force 16 bit x,a and clear carry

	adc [cmdlist],y	;add a to low byte of pointer
	sta bdsptr
	iny
	iny	;go to high word
	lda #00
	adc [cmdlist],y	;add carry to high word
	sta bdsptr+2
	entry readrbd2	; EXPORT -> ENTRY  **TGH
readrbd2		;       ;entry point if bdsptr already set
	rep #mbit+xbit
	stz status	;assume no error
	lda #$0800	;make a readprot call
	sta parmlist
	sta parmlist+9	;use 6 to mean purge in parm list
	ldy #bds_user	;prepare to move user bytes
	lda atpheader+4	;get first 2
	sta [bdsptr],y
	lda atpheader+6	;pick up last 2
	iny	;move to upper 2 bytes
	iny
	sta [bdsptr],y	;done with user bytes
	ldy #bds_bufptr	;offset to buffer pointer
	lda [bdsptr],y	;get low word
	sta parmlist+6	;save low word
	iny	;move to high word
	iny
	lda [bdsptr],y
	sta parmlist+8	;and save it
	ldy #bds_bufsize	;offset to size of buf
	lda [bdsptr],y	;get maximum amount	of data to read
	sta parmlist+4	;and save it
	jsr makecall	;make call using parmlist
	beq noerr
	cmp #lapendbuf
	beq noerr	;not an error
	cmp #lapextra	;special ok type error
	bne leave	;leave
	lda parmlist+11
	ora #$8000	;set error bit
	sta parmlist+11
noerr		; 
	lda parmlist+11
	ldy #bds_actlen	;offset to actual bds len
	sta [bdsptr],y
	lda status	;return error code
	rts
leave		; 
	sta status
	bra noerr	;and leave through there

*
* watppkt
* write atp packet - this routine puts together an atp packet and
* sends it out through ddp.  If it is called with a=$ff then it is
* assumed that the bdsptr has already been calculated, otherwise
* it will calculate	it for you based on	an offset passed in	a
*
* exits in 8 bit mode
*
	entry watppkt	; EXPORT -> ENTRY  **TGH
watppkt		;

	rep #mbit+xbit
	longa on
	longi on

	tax	;save for compare later
	lda #$0d00	;do ddp write command
	sta parmlist

	sep #mbit+xbit	;8 bit x,a
	longa off
	longi off

	lda #$03	;atp is ddp protocol type 3
	sta parmlist+10
	ldy #atprq_dymskt
	lda [cmdlist],y	;get socket from atp list
	sta parmlist+9	;save in ddp list
	ldy #atprq_flag
	lda [cmdlist],y	;get flag
	and #$01	;strip all but checksum bit
	sta parmlist+4

	rep #mbit	;16 bit a
	longa on

	ldy #atprq_dnet
	lda [cmdlist],y
	sta parmlist+5	;16 bit store
	ldy #atprq_dnode	;destination node &	skt
	lda [cmdlist],y
	sta parmlist+7
	lda #wdsbase	;get base of wds
	sta parmlist+11	;and store it
	lda #^databank	;get high word
	sta parmlist+13



*
* now the parm list	is all set up, so we now set up the wds	stuff
* we should be in 16 bit a mode here
*
	txa	;save in case we need to use it
	inx	;see if they set bds
	beq bdsset	;yep so no need
	clc	;we need to set it up
	ldy #sdrsp_rbdsad	;offset to bds pointer
	adc [cmdlist],y
	sta bdsptr	;save low word
	ldy #sdrsp_rbdsad+2
	lda #00	;prepare to add carry
	adc [cmdlist],y
	sta bdsptr+2
bdsset		; ;bdsptr is now pointing to the bds
	ldy #atprq_tid
	lda [cmdlist],y	;get tid
	sta atpheader+2
	ldy #bds_user	;offset to user low	word
	lda [bdsptr],y	;get it
	sta atpheader+4	;put in header
	iny
	iny
	lda [bdsptr],y	;get high user bytes
	sta atpheader+6
	lda #atpheader	;only do low word for now
	sta wdsbase+8	;first 4 bytes are reserved
	lda #^databank	;high word
	sta wdsbase+10
	lda #08
	sta wdsbase+6	;length of above
	ldy #bds_bufptr	;offset to buffer address
	lda [bdsptr],y	;get low word
	sta wdsbase+14	;and save it (ignore high for now)
	iny
	iny
	lda [bdsptr],y
	sta wdsbase+16
	ldy #bds_bufsize	;move to length field
	lda [bdsptr],y	;get it
	ldx atpheader	;get atp type
	cpx #$c0	;see if release
	bne uselen	;use len as is
	lda #0000	;otherwise use len of 0
uselen
	sta wdsbase+12
; BEGIN 27-Sep-91 MSD
	ina	; was length $FFFF?
	bne @short	; no, so pass it on
	sec	; error
	lda #largeatp	; ATP data too large
	bcs @exit	; return the error
@short
; END 27-Sep-91 MSD
	lda #$ffff	;end of list
	sta wdsbase+18
* now the parm list	for ddpwrite is completely set up, so off we go
* to write the packet

	jsr makecall	;make call using parmlist
@exit		; 27-Sep-91 MSD
	sep #mbit+xbit	;always exit in 8 bit mode from

	rts	;and return to our caller

	entry checkskt	; EXPORT -> ENTRY  **TGH
checkskt		;       
	rep #mbit+xbit
	longa on
	longi on
	jsr ddpcheckskt	;check socket through ddp
	cpx #<rsplstn	;see if matches our	listener skt
	bne skterr	;bad socket
	tya	;get high word
	and #$00ff	;use only low byte
	cmp #^rsplstn
	bne skterr	;got an error
	rts	;all is ok
skterr		; 
	lda #atpbadskt	;return socket error
	rts


*
* rom based booting
*   atp.boot
*


	entry bootcode	; EXPORT -> ENTRY  **TGH
bootcode		;

	jsr CheckAsync	; 7-Oct-91 MSD

	longa on
	longi on

	stz cursor	;clear cursor position
	ldy #^databank
	ldx #rinitparms
	jsr atpentry
	ldx #$01ff	;set stack below where code loads
	txs
*
* see if we can find somebody to boot from
*
tryboot		; ;try booting
	ldy #^databank
	ldx #rlookparms
	jsr atpentry
	lda rlookparms+23	;see if got any
	and #$00ff
	beq nocanboot	;nothing received

	sep #mbit+xbit	;go to 8 bit
	longa off
	longi off

	ldx #39	;clear line
	lda #' '+$80
clrlp		; 
	sta >sline,x	;put on screen
	dex
	bpl clrlp
	lda #'.'+$80	;reading char
	sta currpart
	ldy #03
mvlp		; 
	lda lookbuf,y
	sta rsrqparms+atprq_dnet,y ;and put in sendrequest list
	dey
	bpl mvlp	;and loop till negative

	rep #mbit+xbit
	longa on
	longi on

	lda #$0001	;tell them cortland, and packet 0
	sta rsrqparms+atprq_user
	lda #code	;start code here
	sta rsrqbds+bds_bufptr ;init bds
	lda #^code
	sta rsrqbds+bds_bufptr+2
getnext		; ;get next buffer
	sep #mbit+xbit
	longa off
	longi off

	lda #01	;reset bitmap for next request
	sta rsrqparms+atprq_bitmap

	rep #mbit+xbit
	longa on
	longi on

	ldy #^databank
	ldx #rsrqparms
	jsr atpentry	;and do it sync
	bcs tryboot	;try again, got an error


	sep #mbit+xbit	;go to 8 bit x,a
	longa off
	longi off
	lda currpart	;get char
	ldx cursor
	inx	;bump cursor
	cpx #41	;see if past end of	line
	bcc charok	;char is in bounds
	ldx #01	;back to beginning of line
	eor #$80	;flip high bit of char
	sta currpart
charok		; 
	stx cursor
	sta >sline-1,x	;put char on screen

	inc rsrqparms+atprq_user+1 ;ask for next packet
	lda rsrqbds+bds_user ;get eof flag
	bne done	;we are done
	clc
	inc rsrqbds+bds_bufptr+1 ;multiply high	byte by 2
	inc rsrqbds+bds_bufptr+1 ;and again to give effect of *512
	bra getnext	;get next packet

done		;       
	rep #mbit+xbit
	longa on
	longi on
	jml code	;really jump to code in real version
nocanboot		; 
	pea $0000	;switch in bank 0 data
	plb
	plb
	sec	;go to emulation mode
	xce
	longa off
	longi off
	lda romread	;switch in the rom

;The following load has been changed from a lda #$c7.  We can't assume
;slot 7 anymore.
	export toSlotScan
toSlotScan
	LDA #$C7
	sta $1
	jml $faba

	ENDP
*
* atp.vars
*

initblock	PROC	;initialized data

	entry bootstart	; EXPORT -> ENTRY  **TGH
bootstart		; 
	entry initparms	; EXPORT -> ENTRY  **TGH
initparms	DC.B $00,$01,$00,$00 ;open the drivers
	DC.B $80,$00,$00,$00,$00 ;past junk
	DC.B $00	;pick a node, any node
	DC.B $00,$00

	entry openparms	; EXPORT -> ENTRY  **TGH
openparms	DC.B $00,$14,$00,$00,$00 ;open a dynamic socket

	entry closeparms	; EXPORT -> ENTRY  **TGH
closeparms	DC.B $00,$15,$00,$00,$00 ;for closing up

	entry lookparms	; EXPORT -> ENTRY  **TGH
lookparms	DC.B $00,$10,$00,$00 ;cnt, cmd, result
	DC.B $00,$00,$00,$00 ;completion routine
	DC.L entityblk	;entity name stuff
	DC.B 1	;look every 1/4 sec
	DC.B 30	;look up to 30 times
	DC.B $00,$00	;reserved bytes
	DC.W 100	;100 byte buffer
	DC.W lookbuf
	DC.W $e1
	DC.B $01	;only want 1 match total
	DC.B $00	;number gotten

	entry srqparms	; EXPORT -> ENTRY  **TGH
srqparms	DC.B $00,$12,$00,$00 ;cnt, cmd, result
	DC.B $00,$00,$00,$00 ;io completion
	DC.B $00	;our socket (listener socket)
	DC.B $00,$00	;their network
	DC.B $00	;their node
	DC.B $00	;their skt
	DC.B $00,$00	;their tid
	DC.W 0	;buffer to send size
	DC.L 0	;no buffer used
	DC.B $00,$00,$00,$00 ;user bytes
	DC.B $01	;1 response buffer
	DC.W rsrqbds	;bds for input
	DC.W $e1
	DC.B $00	;flag
	DC.B $02	;every 1/2 second
	DC.B 20	;try 20 times
	DC.B $01	;bitmap for request
	DC.B $00
	DC.B $00,$00,$00,$00,$00,$00 ;reserved fields

	entry srqbds	; EXPORT -> ENTRY  **TGH
srqbds	DC.W 512	;max buf size
	DC.L code	;start code here   
	DC.B $00,$00,$00,$00 ;user bytes filled	in 
	DC.B $00,$00	;and actual length received

	entry bootend	; EXPORT -> ENTRY  **TGH
bootend		;           ;end of	boot code to be moved

	entry iparmstart	; EXPORT -> ENTRY  **TGH
iparmstart		; 
atpreadp		; 
	DC.B 00
	DC.B 8
	DC.B $00,$00
	DC.W 8
	DC.W atpheader
	DC.W $e1
	DC.B $00	;don't purge
	DC.B $00,$00	;number of bytes read returned here

	entry iend	; EXPORT -> ENTRY  **TGH
iend		; ;end of inited data



	ENDP





romblock	PROC	;this data is romable


	entry rsptable	; EXPORT -> ENTRY  **TGH
rsptable	DC.B 13	;ld.dskt
	DC.B 00	;ld.snet
	DC.B 00	;ld.snet+1
	DC.B 12	;ld.snode
	DC.B 14	;ld.sskt
	DC.B $82	;tidh (atp) switch to atp header
	DC.B 03	;tidl (atp)
	DC.B $ff	;end of compare table

	entry rspcbtable	; EXPORT -> ENTRY  **TGH
rspcbtable	DC.B 13	;ld.dskt
	DC.B 09	;ld.snet
	DC.B 10	;ld.snet+1
	DC.B 12	;ld.snode
	DC.B 14	;ld.sskt
	DC.B $82	;tidh (atp) switch to atp header
	DC.B 03	;tidl (atp)
	DC.B $ff	;end of compare table

	entry grqtable	; EXPORT -> ENTRY  **TGH
grqtable	DC.B 13	;only verify against ourskt
	DC.B $ff	;end of table

	entry canceltable	; EXPORT -> ENTRY  **TGH
canceltable	DC.B $00,$00,$00,$00,$00 ;skip first 5 items
	DC.B creq_tid	;low byte of tid in	list
	DC.B creq_tid+1	;high byte of tid in list
	DC.B $ff	;end of list

	entry attachtable	; EXPORT -> ENTRY  **TGH
attachtable	DC.B rspcb_sskt	;table corresponds directly
	DC.B rspcb_dnet	;to the sendresponse packet
	DC.B rspcb_dnet+1	;so the order of these should
	DC.B rspcb_dnode	;match the order of	sendresponse
	DC.B rspcb_dskt	;stuff
	DC.B rspcb_tid
	DC.B rspcb_tid+1
	DC.B $ff

	entry addtable	; EXPORT -> ENTRY  **TGH
addtable	DC.B addrsp_sskt
	DC.B addrsp_dnet
	DC.B addrsp_dnet+1
	DC.B addrsp_dnode
	DC.B addrsp_dskt
	DC.B addrsp_tid
	DC.B addrsp_tid+1
	DC.B $ff

	entry reltable	; EXPORT -> ENTRY  **TGH
reltable	DC.B relcb_ourskt
	DC.B relcb_snet
	DC.B relcb_snet+1
	DC.B relcb_snode
	DC.B relcb_sskt
	DC.B relcb_tid
	DC.B relcb_tid+1
	DC.B $ff

	entry onebitmask	; EXPORT -> ENTRY  **TGH
onebitmask	DC.B $01,$02,$04,$08,$10,$20,$40,$80
	entry lowbitmask	; EXPORT -> ENTRY  **TGH
lowbitmask	DC.B $00,$01,$03,$07,$0f,$1f,$3f,$7f,$ff

	entry entityblk	; EXPORT -> ENTRY  **TGH
entityblk		; 
	DC.B 1
	DC.B '='
	DC.B tylen	;length of type
	entry tystart	; EXPORT -> ENTRY  **TGH
tystart		; 
	DC.B 'Apple //gs'
tylen	equ *-tystart

	DC.B 1
	DC.B '*'



	ENDP

;xxxxxx	equ (openparms-initparms)
	END


\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/ATRom/ApTalk.aii b/IIGS.601.SRC/GS.OS/Drivers/ATRom/ApTalk.aii
new file mode 100644
index 0000000..4033c30
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/ATRom/ApTalk.aii
@@ -0,0 +1 @@
+*******************************************************************************
*
* File: 	    APTALK
* Contents:	    APTALK.Aii,
*		    atp_includes.aii,
*		    lap_includes.aii
*
* rev 00	    Original ROM
* rev 01	    Second ROM
*
* This file contains the 65816 implementation of DDP for the Apple IIGS.
*
* Copyright Apple Computer, 1986
* Original Author: Ed Lai, Greg Seitz
*
*******************************************************************************
*
* NOTE
*
* This file would normally just patch any correction in ROMs =< 01, but
* since there were so many corrections to those roms, we just patch out
* the entire thing with the APTALK file.
*
*******************************************************************************
*
* Modification History
*
* REV 02
*
* 8/19/88    TGH   - Started working on RevD ROM
*
* 26-Jun-91 MSD	Rewrote CmpItem to handle the 'Å' wildcard and diacriticals.
*		This change requires saving and restoring two more bytes on
*		direct page so that I can store offsets into the strings for
*		a function that compares substrings.
*  1-Jul-91 MSD	All instances of the UpChar macro have been changed to:
*			JSR	ToUpper
*		so that case-insensitive diacritical comparisons work for
*		RegisterName.
* 12-Jul-91 MSD	Fixed the ToUpper routine so that it uses absolute long addressing
*		to access the tables of diacrtitical characters.
*  7-Oct-91 MSD	The code that calculates the length of a DDP packet was ignoring
*		overflow and then calling LAP and passing its error back up.  It
*		was also interpreting any length field in the BDS with its high bit
*		set as an end-of-BDS flag when it should check for $FFFF.  RemoveName
*		now returns error on async call.
*******************************************************************************

		MACHINE M65816
		PRINT	GEN

		IMPORT	ADispatch
		IMPORT	GoComp
		IMPORT	LAPRead
		IMPORT	lattachprot
		IMPORT	lforbid
		IMPORT	lpermit
		IMPORT	restoreZP
		IMPORT	saveZP
		import	CheckAsync
		
		ENTRY	AddName
		ENTRY	DoWrtDDP
		ENTRY	GetName
		ENTRY	calcleng
		ENTRY	calclng1
		ENTRY	calcnmln
		ENTRY	discard
		ENTRY	getlisten
		entry	checkvalidtype
		entry	ToUpper
		
;-------------------------------------------------------------------------------
;		 Global Equates
;-------------------------------------------------------------------------------

CodeBank	equ	$ff0000
ramdata 	equ	$E1D000

;-------------------------------------------------------------------------------
;		General ZP usage
;-------------------------------------------------------------------------------

cmndlist	equ	$80
execaddr	equ	cmndlist+4
zpCurBuf	equ	execaddr+4

;-------------------------------------------------------------------------------
;		DDP parameters
;-------------------------------------------------------------------------------

ldlength	equ	0
ldchksum	equ	2
lddnet		equ	4
ldsnet		equ	6
lddnode 	equ	8
ldsnode 	equ	9
lddsckt 	equ	10
ldssckt 	equ	11
ldprotocol	equ	12
buf_len 	equ	2
buf_cksum	equ	4
buf_dest	equ	6
buf_data	equ	9

;-------------------------------------------------------------------------------
;		Common RAM usage
;-------------------------------------------------------------------------------

lapdest 	equ	CodeBank+$D000	; packet header info
lapsrce 	equ	lapdest+1
lapprot 	equ	lapsrce+1
ddphead 	equ	lapprot+1
thisnet 	equ	ddphead+13	; this network number
ourNode 	equ	thisnet+2	; this node number
abridge 	equ	OurNode+1	; bridge node number
tmpNBPPtr	equ	abridge+1	; pointer to buffer, pass from DDP to NBP
DDPRAM		equ	tmpNBPPtr+2

;-------------------------------------------------------------------------------
;		Commands for other modules
;-------------------------------------------------------------------------------

LapWrtCmd	equ	$0700
InstTimCmd	equ	$0480
RmvTimCmd	equ	$0500
OpnSktCmd	equ	$0B00
CnclTmCmd	equ	$4500

;-------------------------------------------------------------------------------
;
; Equates from procedure WriteDDP
;
;-------------------------------------------------------------------------------

;
; RAM usage
;
wddphead	equ	DDPRAM
;
wdlapcmnd	equ	wddphead+13	; write lap command
wdlaprslt	equ	wdlapcmnd+2
wdlapdest	equ	wdlaprslt+2
wdlaptype	equ	wdlapdest+1
wdlapwds	equ	wdlaptype+1
wdddpmax	equ	wdlapwds+4
;
tempnet 	equ	wdddpmax+2	; temp area for RTMP
bridgebit	equ	tempnet+2
tempbridge	equ	bridgebit+1
;
lastIndex	equ	tempbridge+1	; socket listener table
listentable	equ	lastIndex+2
dynamtable	equ	listentable+512
;
RTMPTmCmd	equ	dynamtable+512	; RTMP timer
RTMPTmTsk	equ	RTMPTmCmd+4
RTMPTmTimer	equ	RTMPTmTsk+6
RTMPEnd 	equ	RTMPTmTimer+6

;-------------------------------------------------------------------------------
;
; Equates for NBP
;
;-------------------------------------------------------------------------------

; RAM usage for NBP

nbpwrarea	equ	RTMPEnd 	; DDP parameter for NBP lookup
nbpchksmf	equ	nbpwrarea
nbpdnet 	equ	nbpchksmf+1
nbpdnode	equ	nbpdnet+2
nbpdsckt	equ	nbpdnode+1
nbpssckt	equ	nbpdsckt+1
nbpprot 	equ	nbpssckt+1
nbpwrtab	equ	nbpprot+1
outnbp		equ	nbpwrtab+4	; lkup with 1 tuple
outnbpid	equ	outnbp+1	; NBP ID to identify transaction
nbpentity	equ	outnbpid+1	; entity during lookup
nbpptrsave	equ	nbpentity+5	; current active NBP command
nbpwds		equ	nbpptrsave+4	; wds for reply
entitylen	equ	nbpwds+12	; part of wds that points to entity name
entityadr	equ	entitylen+2
nbpwdsend	equ	entityadr+4	; wds end flag (should be FFFF)
tuplect 	equ	nbpwdsend+2	; number of tuples in packet
NBPTmCmd	equ	tuplect+1	; NBP timer
NBPTmTsk	equ	NBPTmCmd+4
NBPTmTime	equ	NBPTmTsk+6
namelist	equ	NBPTmTime+6	; list head for registered name
rptupcount	equ	namelist+4	; NBP header during reply
replyNID	equ	rptupcount+1
nbprptable	equ	replyNID+1	; 4 tuples, 1 empty 1 NID + FFFF marker
NBPEnd		equ	nbprptable+38

; command number

NBPREGN 	equ	$0E		; name register
NBPLKUP 	equ	$10		; name look up
NBPCFRM 	equ	$11		; name reply

; parameters

CmEntAdr	equ	8
CmTimOut	equ	12
CmRetry 	equ	13
CmTimLft	equ	14
CMTryLft	equ	15
CmRsbSiz	equ	16		; for look up, buffer size
CmRsbAdr	equ	18
CmMaxrsp	equ	22
CmRspCnt	equ	23
CmCfmNet	equ	16		; for confirm, network number
CmCfmNode	equ	18
CmCfmSckt	equ	19
CmCfmActSkt	equ	20
CmRegSkt	equ	16		; for register, socket number
CmSetIt 	equ	17		; if nonzero, don't check name
CmRmvEntity	equ	4

; ZP usage

tblptr		equ	cmndlist+4
nbpbfptr	equ	cmndlist+8
nbprcvct	equ	cmndlist+12
nameleng	equ	cmndlist+12
regsckt 	equ	cmndlist+12
regenum 	equ	cmndlist+13
nbptbdisp	equ	cmndlist+11
tempy1		equ	cmndlist+12
tempy2		equ	cmndlist+13
nbpoff1		equ	cmndlist+14	; %%% 26-Jun-91 MSD
nbpoff2		equ	cmndlist+15	; %%% 26-Jun-91 MSD
wildoff		equ	cmndlist+16	; %%% 27-Jun-91 MSD
tempChar	equ	cmndlist+3

; errors

AsyncErr	equ	$0104		; can't be made Async (7-Oct-91 MSD)
toomanynames	equ	$401
duplname	equ	$402
wrongName	equ	$403
buffull 	equ	$404
badName 	equ	$406
diffsckt	equ	$407
manyNBP 	equ	$408
NBPaborted	equ	$409
BadParamBlock	equ	$40A

		MACRO
		USE16BIT
		LONGA	ON
		LONGI	ON
		rep	#$30
		MEND

		MACRO
		USE8BIT
		LONGA	OFF
		LONGI	OFF
		sep	#$30
		MEND

		MACRO
		USE16M
		LONGA	ON
		LONGI	OFF
		rep	#$20
		MEND

		MACRO
		use16X
		LONGA	OFF
		LONGI	ON
		rep	#$10
		MEND

		MACRO
		_16BIT16M
		LONGA	ON
		LONGI	OFF
		sep	#$10
		MEND

		MACRO
		IS16BIT
		LONGA	ON
		LONGI	ON
		MEND

		MACRO
		IS8BIT
		LONGA	OFF
		LONGI	OFF
		MEND

		MACRO
		IS16M
		LONGA	ON
		LONGI	OFF
		MEND

		MACRO
		BANK0ENTRY
		pea	$E1E1
		plb
		plb
		MEND

;_______________________________________________________________________________

DDPWrite	PROC	EXPORT

; ZP equs

wdsadr		equ	cmndlist+4
databuf 	equ	cmndlist+8
wdchksmf	equ	cmndlist+11
tmpcksum	equ	cmndlist+12

; paramters in write DDP

CmChkSum	equ	4
CmDstNet	equ	5
CmDstNode	equ	7
CmDstSckt	equ	8
CmSrcSckt	equ	9
CmProtTyp	equ	10
CmWDS		equ	11


; the following constant is incorrect in the rom, it has a bad value of 587 so we need
; to patch the write routine to get the correct value.
; This has been fixed in ROM 2.

maxDDPp1	equ	600		; max number of bytes in long DDP packet + 1
maxDDPps	equ	592		; max number of bytes in short DDP packet + 1

; error equs

tablefull	equ	$301
scktnotopen	equ	$302
socketopen	equ	$303
badsocket	equ	$304
largeDDP	equ	$305
nobridge	equ	$306

sdlength	equ	0
sddsckt 	equ	2
sdssckt 	equ	3
sdprotocol	equ	4

;...............................................................
;
; Write DDP packet, use command list
;
;...............................................................

		jsr	CheckAsync	; 7-Oct-91 MSD
		
		IS16BIT
		ldy	#CmProtTyp
		lda	[cmndlist],y
		and	#$00ff		; only want 1 byte
		bne	ddpwrite1	; not zero, so valid
		lda	#badsocket	; report the error
		bra	wderr_1
ddpwrite1				;
		ldy	#CmDstSckt
		lda	[cmndlist],y	; get destination socket
		jsr	checkvalidtype	; see if it is ok
		bcs	wderr_1 	; no it isn't
		ldy	#CmSrcSckt
		lda	[cmndlist],y
		jsr	checkvalidtype	; see if it is ok
		bcs	wderr_1 	; no it isn't
		jsr	getlisten	; is socket open ?
		beq	wderr		; socket not found
		ldx	cmndlist
		ldy	cmndlist+2
		jsr	DoWrtDDP
		bra	wderr_1
wderr		lda	#scktnotopen	; else error
wderr_1 	ldy	#2
		sta	[cmndlist],y
		rtl

;...............................................................
;
; checkvalidtype
; checks the socket passed in the low
; byte of the accumulator to see if it
; is in the valid range
;
; returns carry clear if it is ok
; returns with carry set and error in accum if not ok
;
;...............................................................

		entry	checkvalidtype	;EXPORT -> ENTRY **TGH
checkvalidtype
		and	#$00ff
		beq	@checkfail	; the check failed
		cmp	#$00ff		; see if $ff
		beq	@checkfail	; yes, so set error code an leave
		clc			; no error
		rts
@checkfail	sec			; an error occurred
		lda	#badsocket	; so return invalid socket type
		rts

;
;...............................................................
;
;  Internal write DDP routine, (Y,X) points to command list
;    result returns in Acc
;
;...............................................................

		IS16BIT
		entry	DoWrtDDP	;EXPORT -> ENTRY **TGH
DoWrtDDP				;	; make a ddp packet and write it out
		stx	databuf
		sty	databuf+2
		jsr	lforbid
		_16BIT16M
		ldy	#CmWds
		lda	[databuf],y
		sta	wdsadr
		sta	|wdlapwds
		ldy	#CmWds+2
		lda	[databuf],y
		sta	wdsadr+2
		sta	|wdlapwds+2
		ldy	#CmDstNet
		lda	[databuf],y	; get newtwork #
		beq	wrtshort	; 0 is local
		cmp	|thisnet
		bne	wrtlong 	; another net
wrtshort	lda	#5		; short DDP header is 5 byte
		sta	[wdsadr]
		xba			; reverse of 6502 convention
		sta	|wddphead+sdlength
		lda	#maxDDPps	; get max short packet size
		sta	|wdddpmax	; and save for later compare
		USE8BIT
		ldy	#CmDstNode
		lda	[databuf],y
		sta	|wdlapdest
		iny
		lda	[databuf],y
		sta	|wddphead+sddsckt
		ldy	#CmSrcSckt
		lda	[databuf],y
		sta	|wddphead+sdssckt
		iny
		lda	[databuf],y
		sta	|wddphead+sdprotocol
		ldx	#1
		stx	|wdlaptype	; short ddp is type 1
		stz	wdchksmf	; never do checksum on short ddp
		USE16M
		bra	wddp_2
wrtlong 	lda	#13		; long atp header is 13 bytes
		sta	[wdsadr]
		xba			; reverse of 6502 convention
		sta	|wddphead+ldlength
		lda	#maxDDPp1	; get max long packet size
		sta	|wdddpmax	; and save for later compare
		ldy	#CmDstNet
		lda	[databuf],y
		sta	|wddphead+lddnet
		lda	|thisnet
		sta	|wddphead+ldsnet
		USE8BIT
		ldy	#CmDstNode
		lda	[databuf],y
		sta	|wddphead+lddnode
		iny
		lda	[databuf],y
		sta	|wddphead+lddsckt
		lda	|ournode
		sta	|wddphead+ldsnode
		ldy	#CmSrcSckt
		lda	[databuf],y
		sta	|wddphead+ldssckt
		iny
		lda	[databuf],y
		sta	|wddphead+ldprotocol
		USE16M
		ldx	#2
		stx	|wdlaptype	; long ddp is protocol 2
		stz	|wddphead+ldchksum ; assume no checksum
		ldy	#CmChkSum
		lda	[databuf],y
		tax			; make into 8 bits
		stx	wdchksmf
		beq	wddp_0
		lda	#wddphead+4
		sta	databuf 	; calculate checksum of ddp header
		ldx	#^ramdata
		stx	databuf+2
		stz	tmpcksum
		lda	#9
		jsr	calcchksum
wddp_0		lda	|thisnet	; do we have a netwokr # ?
		beq	wddp_1a 	; no, send to node
		ldx	|abridge	; do we have a bridge
		bne	wddp_1b 	; then send it to bridge
		USE16BIT
		lda	#nobridge
		jmp	wddp_8
		IS16M
wddp_1a 	ldx	|wddphead+lddnode ; else send it to node in same net
wddp_1b 	stx	|wdlapdest	; send to bridge or node
wddp_2		ldy	#2		; copy our header addr to first 4 byte of wds
		lda	#wddphead
		sta	[wdsadr],y
		ldy	#4
		lda	#^ramdata
		sta	[wdsadr],y
wddp_4		clc			; first adjust for size of datagram header
		lda	#6
		adc	wdsadr
		sta	wdsadr
		lda	[wdsadr]
		ina			; was it $FFFF (7-Oct-91 MSD)
		beq	wddp_6		; end of list reached (7-Oct-91 MSD bmi->beq)
		clc
		lda	|wddphead+sdlength
		xba			; convention is opposite of 6502
		adc	[wdsadr]
		bcs	@toobig		; overflow means way too big! (7-Oct-91 MSD)
		cmp	|wdddpmax	; too many bytes?
		blt	wddp_4A 	; size still OK
@toobig
		USE16BIT
		lda	#largeDDP	; else error
		bra	wddp_8
		IS16M
wddp_4A 	xba
		sta	|wddphead+sdlength
		ldx	wdchksmf
		beq	wddp_4		; no need to calculate checksum
		ldy	#2
		lda	[wdsadr],y
		sta	databuf
		ldy	#4
		lda	[wdsadr],y
		tax			; 8 bits
		stx	databuf+2	; 24 bit address
		lda	[wdsadr]	; get size
		jsr	calcchksum
		bra	wddp_4
wddp_6		ldx	wdchksmf	; done with list
		beq	wddp_7		; no need to adjust checksum
		lda	tmpcksum
		bne	wddp_6a
		dec	A		; if zero use $FFFF
wddp_6a 	xba			; appletalk conventin opps of 6502
		sta	|wddphead+ldchksum
wddp_7					;
		USE16BIT
		lda	#LapWrtCmd
		sta	|wdlapcmnd
		ldx	#wdlapcmnd
		ldy	#^ramdata
		jsr	ADispatch
		lda	|wdlaprslt	; get back error
wddp_8		jsr	lpermit
		rts
;...............................................................
;
;  calculate checksum for a number of bytes
;  running checksum in tmpcksum
;  buffer point to by databuf
;  byte count in Acc
;...............................................................
;
		IS16M
calcchksum				;
		USE16BIT
		ldy	#0
		tax			; number of bytes
		inx
chksum_0	dex
		beq	chksum_9
		lda	[databuf],y
		and	#$00FF
		clc
		adc	tmpcksum
		clc
		bpl	chksum_1
		sec
chksum_1	rol	A
		sta	tmpcksum
		iny
		bra	chksum_0
chksum_9				;
		_16BIT16M
		rts

;...............................................................
;
;  open a DDP socket using parameter list
;...............................................................

		IS16BIT

CmOSKSkt	equ	4
CmOSKLst	equ	5

		EXPORT	openskt
openskt 
		jsr	CheckAsync	; 7-Oct-91 MSD
		
		USE8BIT
		ldy	#CmOSKSkt
		lda	[cmndlist],y
		USE16BIT
		bmi	opnskt_6	; dynamic may not be fixed
		bne	opnskt_3	; well known, then try it
		ldx	|lastIndex	; dynamic, generate one
opnskt_1	inx
		inx
		inx
		inx
		cpx	#127*4
		bcc	opnskt_2	; OK if less than max
		ldx	#0
opnskt_2	cpx	|lastIndex	; did we use it all
		beq	opnskt_8	; yes
		bit	|dynamtable+2,x ; is it occupied ?
		bmi	opnskt_1	; yes, check more
		stx	|lastIndex
		txa
		lsr	a
		lsr	a
		USE8BIT
		adc	#$80		; find dynamic socket #
		ldy	#CmOSKSkt
		sta	[cmndlist],y
		USE16BIT
opnskt_3	and	#$00FF
		asl	a
		asl	a
		tax
		lda	#socketopen	; assume error
		bit	|listenTable+2,X ; check if occupied for well known
		bmi	opnskt_9	; yes, then error
		ldy	#CmOSKLst
		lda	[cmndlist],y
		sta	|listentable,x
		iny
		iny
		lda	[cmndlist],y
		ora	#$8000
		sta	|listentable+2,x
		lda	#0
		bra	opnskt_9
opnskt_6	lda	#badsocket
		bra	opnskt_9
opnskt_8	lda	#tablefull
opnskt_9	ldy	#2
		sta	[cmndlist],y
		rtl

;...............................................................
;
;  close a DDP socket using parameter list
;...............................................................
;

		IS16BIT

CmClsSkt	equ	4

		EXPORT	closeskt
closeskt
		jsr	CheckAsync	; 7-Oct-91 MSD
		
		ldy	#CmClsSkt
		lda	[cmndlist],y
		jsr	checkvalidtype	; see if socket type is valid
		bcs	clseddp_9	; return the error
		asl	a
		asl	a
		tax
		lda	#scktnotopen	; assume error
		bit	|listenTable+2,x ; check into table
		bpl	clseddp_9	; no entry there, error
		stz	|listenTable+2,x
clseddp_8	lda	#0
clseddp_9	ldy	#2
		sta	[cmndlist],y
		rtl
;...............................................................
;
;  get listener address for a socket	
;      socket in Acc
;      listener address return in Y,X (3 bytes only)
;      if no listener, zero flag is set
;...............................................................
;
		IS16BIT

		entry	getlisten	;EXPORT -> ENTRY  **TGH
getlisten				;

		EXPORT	ddpcheckskt
ddpcheckskt				;	
		and	#$00FF		; zero is illegal
		asl	a
		asl	a
		tax
		bit	|listentable+2,x
		bpl	nocontent
		ldy	|listentable+2,x
		lda	|listentable,x
		tax
		rep	#02		; set nonzero flag
		rts
nocontent	ldx	#0		; empty, return NIL
		txy
		rts
;...............................................................
;
;  read header part of protocol into reserved memory	
;      size in Acc
;      buffer in in X			
;      carry set if error
;...............................................................
		IS16BIT
readheader	ldy	#^ramdata
		sec
		jsr	LAPRead
		clc
		tay
		beq	RdRts
		jsr	discard
		sec
RdRts		rts
;...............................................................
;
;  discard the packet
;...............................................................
		IS16BIT
		entry	discard 	;EXPORT -> ENTRY  **TGH
discard 				;	
		sec
		lda	#$8000
		jmp	lapread
;...............................................................
;
;  protocol handler for short DDP
;...............................................................
		IS16BIT

		entry	ShortDDP	;EXPORT -> ENTRY  **TGH
ShortDDP				;	
		jsr	checkLength
		beq	sddp_0
		jmp	reject_2
sddp_0		clc
		lda	#5+buf_data
		adc	cmndlist
		sta	|tmpNBPPtr
		lda	#5
		ldx	#ddphead
		jsr	readheader	; read the DDP header
		bcc	sddp_1
		rtl
sddp_1					;
		_16BIT16M
		ldx	#1		; short DDP is protocol 1
		stx	|lapprot
		lda	|ddphead+sddsckt ; since 16 bit inculde ssckt
		sta	|ddphead+lddsckt ; since 16 bit inculde ssckt
		ldx	|ddphead+sdprotocol
		stx	|ddphead+ldprotocol
		ldx	|lapdest
		stx	|ddphead+lddnode
		ldx	|lapsrce
		stx	|ddphead+ldsnode
		stz	|ddphead+ldsnet ; short ddp has zero net number
		stz	|ddphead+lddnet ; ' '
		stz	|ddphead+ldchksum ; zero out the checksum on short packet		
		bra	readddp
;...............................................................
;
;  protocol handler for long DDP
;...............................................................
		IS16BIT
		entry	LongDDP 	;EXPORT -> ENTRY  **TGH
LongDDP 				;	
		jsr	checkLength
		bne	reject_2
		ldy	#buf_data+ldchksum
		lda	(cmndlist),y
		beq	long_0
		xba
		ldy	#buf_CkSum
		cmp	(cmndlist),y
		bne	reject_2
long_0		clc
		lda	#13+buf_data
		adc	cmndlist
		sta	|tmpNBPPtr
		lda	#13
		ldx	#ddphead
		jsr	readheader
		bcs	rddpdone	; if error try next packet
		_16BIT16M
		ldx	#2		; long DDP is prot 2
		stx	|lapprot
		lda	|ddphead+lddnet
		beq	long_1		; zero match anything
		cmp	|thisnet	; filter out wrong net
		bne	reject_1
long_1		ldx	|ddphead+lddnode ; is it address to us ?
		cpx	|ournode
		beq	readddp
		cpx	#$FF		; is it broadcast
		bne	reject_1
readddp 	ldx	|ddphead+lddsckt ; packet for which socket
		beq	reject_1	; type 0 not allowed
		txa
		USE16BIT
		jsr	getlisten	; search the socket table
		beq	reject_2	; no listener
		stx	execaddr
		tya
		and	#$00FF		; mask off high byte
		sta	execaddr+2
		ora	execaddr	; any routine ?
		beq	reject_2	; none, throw away packet
		lda	#lapdest
		sta	cmndlist
		jmp	GoComp
rddpdone	rtl
;
		IS16M
reject_1				;
		USE16BIT
reject_2	jsr	discard
		rtl
;
; make sure packet is of right length
;
checkLength				;
		BANK0ENTRY
		ldy	#buf_dest
		lda	(cmndlist),y
		sta	|lapdest
		ldy	#buf_data	; get header claim length
		lda	(cmndlist),y
		xba
		and	#$03FF
		ldy	#buf_len
		cmp	(cmndlist),y
		rts
;
;...............................................................
;
;  socket listener for RTMP	
;...............................................................
;
		entry	RTMPlisten	;EXPORT -> ENTRY  **TGH
RTMPlisten				;	
		BANK0ENTRY
		lda	|ddphead+ldprotocol ; RTMP is type 1
		and	#$00FF
		cmp	#1
		bne	rtmp_8		; not RTMP, discard
		lda	#4
		ldx	#tempnet
		jsr	readheader
		bcs	rtmp_9		; if error, already discarded
		USE8BIT
		lda	|bridgebit
		cmp	#8
		bne	rtmp_7
		lda	|tempbridge	; we can update bridge information
		sta	|abridge
		USE16BIT
		lda	|tempnet
		sta	|thisnet
		lda	#4*180		; we need 180 seconds since interrupts
		sta	|RTMPTmTimer	; get turned off so much...
		lda	|RTMPTmCmd	; do we have a timer yet
		bne	rtmp_8		; then no need to install one
		lda	#InstTimCmd
		sta	|RTMPTmCmd	; command for install
		lda	#RTMPTimer
		sta	|RTMPTmTsk
		lda	#^RTMPTimer
		sta	|RTMPTmTsk+2
		ldx	#RTMPTmCmd
		ldy	#^ramdata
		jsr	ADispatch
rtmp_7					;
		USE16BIT
rtmp_8		jsr	discard 	; disregard everything else
rtmp_9		rtl
;...............................................................
;
;  RTMP timer has expired, bridge information no longer valid	
;...............................................................
;

RTMPTimer				;	
		BANK0ENTRY
		USE8BIT
		stz	|abridge
		USE16BIT
		stz	|RTMPTmCmd	; no more RTMP timer
		rtl
		ENDP

;_______________________________________________________________________________

;...............................................................
;
;  NBP Name register						
;...............................................................
;
nbpregname	PROC	EXPORT

		IS16BIT
		ldy	#$10		; offset to socket number
		lda	[cmndlist],y
		jsr	checkvalidtype	; see if it is ok
		bcc	@regoksofar	; no it isn't
@regbadskt	lda	#diffsckt	; bad socket number
		brl	NBPImdErr	; exit with error
@regoksofar
		jsr	getlisten	; is socket open ?
		beq	@regbadskt	; socket is not open, so error
		ldy	#CmEntAdr
		lda	[cmndlist],y
		clc
		adc	#9
		sta	nbpbfptr
		ldy	#CmEntAdr+2
		lda	[cmndlist],y
		adc	#0		; add in any carry that might have happened
		sta	nbpbfptr+2
		jsr	checkvalidzentity ; check for all three fields as valid
		USE16BIT		; put back into 16 bit mode
		bcc	checkSetIt	; name was valid
rgnameisbad				;
		lda	#badName
		bra	NBPImdErr
checkSetIt				;
		USE8BIT
		ldy	#CmSetIt
		lda	[cmndlist],y
		USE16BIT
		beq	checkfirst
		jsr	GetName 	; see if name already in table
		bne	RegFail 	; yes, so return error
		jsr	AddName 	; don't bother to check
		bra	NBPImdErr	; store error that came back from add
checkfirst	jsr	GetName 	; is name alreay in table
		beq	NBPst1		; no then look in net
RegFail 	lda	#duplname
		bra	NBPImdErr
NBPFail 				;
		USE16BIT
		lda	#manyNBP
NBPImdErr	ldy	#2
		sta	[cmndlist],y
		jmp	chkiocmp


checkvalidname				; ;checks to see if the name passed with offset of y
		IS8BIT
		lda	[nbpbfptr],y	;get length field
		beq	nameisbad	;zero len names not allowed
		cmp	#33		;see if too large
		bcs	nameisbad
		clc			;return no error
		rts
nameisbad	sec
		rts			;return with error

;		    entry checkvalidentity  ; COMMENTED OUT  **TGH
checkvalidentity			;	
		USE8BIT
		ldy	#0		;offset to name field
		jsr	checkvalidname	;see if name is valid
		bcs	checkvaliddone	;no, so return the error
		ldx	#1		;find offset to type field
		ldy	#0
		jsr	calclng1	;find position of type field
		jsr	checkvalidname
		bcs	checkvaliddone	;type is bad
		ldx	#1		;find offset to zone field
		jsr	calclng1	;find position of zone field
		lda	[nbpbfptr],y	;get length of zone field
		cmp	#33		;see if too large (sets carry if it is)
checkvaliddone				;
		rts			;will return with carry set if error

		entry	checkvalidzentity ; EXPORT -> ENTRY  **TGH
checkvalidzentity
		USE8BIT
		ldy	#0		; points to entity name
		ldx	#2		; skip two fileds	
		jsr	calclng1	; calulate length of first two fields
		tay
		USE16BIT
		lda	[nbpbfptr],y
		cmp	#$2A01		; zone must be '*'
		bne	chkvzeisbad	; it was not '*' so it is bad
		jsr	checkvalidentity ;see if entity name is valid
		bcc	chkvzereturn	; name is ok, so no error yet
chkvzeisbad	sec			; indicate an error
chkvzereturn
		rts

BadNameErr				;
		USE16BIT
		lda	#badName
		bra	NBPImdErr
;
;...............................................................
;
;  NBP Name Look Up						
;...............................................................
;
;
		IS16BIT

		EXPORT	nbplookup
nbplookup				;	
		ldy	#CmRspCnt	; no reply received yet
		bra	preNBPsetup	; call NBP set up and return
;
;...............................................................
;
;  NBP Name Confirm						
;...............................................................
;
;
		IS16BIT

		EXPORT	nbpconfirm
nbpconfirm				;	
		ldy	#CmCfmActSkt	; no socket received

preNBPsetup				; ;come here to set nbpbfptr
		phy			;save previous offset
		ldy	#CmEntAdr	;offset to entity name
		lda	[cmndlist],y	;get low word
		sta	nbpbfptr
		iny
		iny
		lda	[cmndlist],y	;get high word
		sta	nbpbfptr+2
		ply			;recover offset and fall through
;
;...............................................................
;
; common routine between LookUp, Confirm and Register
;     they all send out LKUP packets and wait for reply
;...............................................................
;
NBPsetup				;
		USE8BIT
		lda	#0
		sta	[cmndlist],y
		USE16BIT
NBPst1					;
		USE8BIT
		jsr	checkvalidentity ;see if the entity name is valid
		bcs	BadNameErr	;no, so leave
		USE16BIT
		lda	|nbpptrsave+1	; are we still doing another NBP operation ?
		beq	@nbpnottoomuch	; we are ok
		jmp	NBPFail 	; NBP is already in use
@nbpnottoomuch
		jsr	lforbid 	; play it safe
		lda	#$04FF		; make it busy
		ldy	#2
		sta	[cmndlist],y
		USE8BIT
		inc	|outnbpid
		ldy	#CmRetry
		lda	[cmndlist],y	; retry count
		ldy	#CMTryLft
		sta	[cmndlist],y
		jsr	NBPquery	; make the first query to the network
		USE16BIT
		lda	cmndlist
		sta	|nbpptrsave
		lda	cmndlist+2
		sta	|nbpptrsave+2
		jsr	lpermit 	; done, just wait for result
		rtl
;...............................................................
;
; NBP timeout, maybe time to resend packet or terminate command
; ZP used are those used by dowrtddp
;...............................................................
;
		IS16BIT

NBPtimeout				;	
		BANK0ENTRY
		USE16M
		lda	|nbpptrsave+1
		sta	cmndlist+1
		beq	Ntrts		; pointer nil, just return
		USE8BIT
		lda	|nbpptrsave
		sta	cmndlist

		USE16BIT
		lda	|NBPTmCmd+2
		cmp	#$0106		;timer cancled?
		bne	conttout	;branch if not.
		stz	|NBPTmCmd	;out timer is out.
		lda	#NBPaborted
		bra	nbperror

conttout	USE8BIT
		ldy	#CMTryLft
		lda	[cmndlist],y
		beq	querycmp	; all retry has been used, terminate command
		sec
		sbc	#1
		sta	[cmndlist],y
		jsr	NBPquery	; send another LKUP
NtRts					;
		USE16BIT
		rtl
; operation completed, request failed if CONFIRM, but succeed if REGISTER
;
		IS8BIT
querycmp	stz	|NBPTmCmd	; since timer expired, no need to remove it
		stz	|NBPTmCmd+1
		ldy	#1
		lda	[cmndlist],y
		cmp	#NBPLKUP	; what operation ?
		USE16BIT
		beq	nbpallOK	; look up, it is done
		bcs	cfrmcmp 	; confirm, then it has failed
		jsr	AddName 	; register and not duplicate, now we can put it up
		bra	nbperror	; return error from Add
nbpallOK	lda	#0
		bra	nbperror
cfrmcmp 	lda	#wrongName	; if to confirm, then it was not confirmed

		entry	nbperror	; EXPORT -> ENTRY  **TGH
nbperror				;	
		ldy	#2		; return asyn result byte and also set carry
		sta	[cmndlist],y
		stz	|nbpptrsave+1	; no more ongoing NBP operation
		lda	|NBPTmCmd	; do we still have a timer
		beq	chkiocmp	; if no, then do not remove
		lda	#RmvTimCmd
		sta	|NBPTmCmd	; command for remove
		ldx	#NBPTmCmd
		ldy	#^ramdata
		jsr	ADispatch
chkiocmp				;
		lda	[cmndlist]	;see if async mode
		xba			;we are concerned with the first byte
		xba			;so swap twice to get condition for low byte set
		bpl	nocomp		;get out, don't do completion
		ldy	#4
		lda	[cmndlist],y
		sta	execaddr
		iny
		iny
		lda	[cmndlist],y
		sta	execaddr+2
		ora	execaddr
		beq	nocomp
		jmp	GoComp		; go and execute I/O completion routine
nocomp					;
		rtl
;...............................................................
;
; send out a LKUP packet
;...............................................................
		IS8BIT
NBPquery	ldy	#CmTimOut
		lda	[cmndlist],y
		ldy	#CmTimLft
		sta	[cmndlist],y
		lda	#$21		; assume it is LKUP
		sta	|outnbp
		ldy	#1
		lda	[cmndlist],y
		cmp	#NBPCFRM
		USE16M
		beq	nbptim_3	; confirm
		stz	|nbpdnet	; it is just local, zero dest net
		ldx	|abridge	; do we have a bridge ?
		bne	nbptim2A	; yes
		dex			; else broadcast
		bra	nbptim2B
nbptim2A	ldy	#$11		; go to bridge, command is BRRQ
		sty	|outnbp
nbptim2B	stx	|nbpdnode	; destination is bridge or broadcast
		bra	nbptim_4
nbptim_3	ldy	#CmCfmNet
		lda	[cmndlist],y
		sta	|nbpdnet	; copy dest net
		ldy	#CmCfmNode
		lda	[cmndlist],y
		tay
		sty	|nbpdnode	; destination node
nbptim_4	ldy	#2
		sty	|nbpprot	; NBP is type 2
		sty	|nbpssckt	; from socket 2
		sty	|nbpdsckt	; to socket 2
		sty	|nbpentity+3	; entity socket ; may not be needed
		lda	|thisnet
		sta	|nbpentity
		lda	[cmndlist]
		xba
		tax
		ldy	#CmEntAdr
		lda	[cmndlist],y
		cpx	#NBPREGN
		bne	nbptim_5
		adc	#8		; include carry is plus 9
		bra	nbptim_6	; add in any carry
nbptim_5	clc			; if we came here we don't want to add any offset
nbptim_6	sta	nbpbfptr
		sta	|entityadr
		ldy	#CmEntAdr+2
		lda	[cmndlist],y
		adc	#0		; add in any carry for bank crossing
		sta	nbpbfptr+2
		sta	|entityadr+2
		USE8BIT
		ldy	#0
		jsr	calcnmln
		sta	|entitylen
		stz	|entitylen+1
		lda	|OurNode
		sta	|nbpentity+2
		stz	|nbpentity+4
		stz	|nbpchksmf	; do not do checksum
		USE16BIT
		lda	#nbpwds
		sta	|nbpwrtab
		lda	#^ramdata
		sta	|nbpwrtab+2
		ldx	#nbpwrarea-4
		ldy	#^ramdata
		jsr	DoWrtDDP
		ldy	#CmTimOut
		lda	[cmndlist],y
		and	#$00FF
		sta	|NBPTmTime
		lda	#InstTimCmd	; install timer for repeat query and timeout
		sta	|NBPTmCmd
		lda	#NBPTimeout
		sta	|NBPTmTsk
		lda	#^NBPTimeout
		sta	|NBPTmTsk+2
		ldx	#NBPTmCmd
		ldy	#^ramdata
		jsr	ADispatch
		USE8BIT
		rts			; OK, done
		ENDP

;_______________________________________________________________________________

;...............................................................
;
; socket listener for NBP
;...............................................................
;
		IS16BIT

NBPlisten	PROC

		BANK0ENTRY
		ldx	#nbpbfptr
		lda	#9		; %%% 27-Jun-91 MSD (was 6)
		jsr	saveZP
		USE8BIT
		lda	#2		; NBP has protocol 2
		cmp	|ddphead+ldprotocol
		bne	nbplsdone	; if not, discard it
		USE16BIT
		lda	|tmpNBPPtr
		sta	nbpbfptr
		USE8BIT
		lda	#^ramdata
		sta	nbpbfptr+2
		ldy	#0
		lda	(nbpbfptr),y
		tax
		and	#$0F
		beq	nbplsdone	; no tuple, discard it
		sta	|tuplect
		txa
		and	#$F0
		cmp	#$30		; LKUP-REPLY ?
		beq	ChkReply	; then put it into table
nbpls_00	cmp	#$20		; LKUP ?
		bne	nbplsdone	; no, discard it
		jsr	NbpReply	; lookup our table and reply to it
nbplsdone				;
		USE16BIT
		jsr	discard
		ldy	#nbpbfptr
		lda	#9		; %%% 27-Jun-91 MSD
		jsr	restoreZP
		rtl
;
		IS8BIT
ChkReply				;
		USE16BIT
		lda	|nbpptrsave+1	; are we processing any NBP
		sta	cmndlist+1
		USE8BIT
		beq	nbplsdone	; no, then discard it
		lda	|outnbpid
		ldy	#1
		cmp	(nbpbfptr),y	; is this the one we asked
		bne	nbplsdone	; no, then discard it
		lda	|nbpptrsave
		sta	cmndlist
		ldy	#1
		lda	[cmndlist],y
		cmp	#NBPLKUP
		beq	nbpls_04	; try to add it to user buffer
		bcs	nbpls3A 	; confirm, then check socket
		USE16BIT
		lda	#duplname	; register name allow no duplicate
		bra	cancellist
		IS8BIT
nbpls3A 	ldy	#5		; confirm, we get a reply, done
		lda	(nbpbfptr),y	; get actual socket
		ldy	#CmCfmActSkt
		sta	[cmndlist],y
		dey
		cmp	[cmndlist],y	; did it agree with what we ask for?
		USE16BIT
		bne	nbpls3B 	; different socket
		lda	#0
		bra	cancellist	; everything is OK
nbpls3B 	lda	#diffsckt	; confirmed with wrong socket
		IS16BIT
cancellist	pha
		jsl	nbplsdone
		pla
		jmp	nbperror
;
		IS8BIT
nbpls_04				; ; name lookup
		USE16BIT
		clc
		lda	nbpbfptr
		adc	#2
		sta	nbpbfptr	; skip to first tuple
		USE8BIT
nbpls4A 	dec	|tuplect
		bmi	nbplsdone	; all taken care of
		USE16BIT
		ldy	#CmRsbAdr
		lda	[cmndlist],y	; get response buffer and its boundary
		sta	tblptr
		USE8bit
		ldy	#CmRsbAdr+2
		lda	[cmndlist],y
		sta	tblptr+2
		ldy	#CmRspCnt	; get response received, this is current size
		lda	[cmndlist],y
		tax
		inx
		stx	nbprcvct
nbpls_05	dec	nbprcvct
		beq	nbpls_10	; not in table
		ldy	#4		; check if item is already in table
; here we want to avoid the case when a bridge is turn on and we have a name
; record twice, once with network # 0 and once with network number X, so all
; local net is made to be 0, since this occur very rarely, we may accept
; the error and remove that part
;	  USE16M
;	  lda (nbpbfptr),y    ; get network number
;	  cmp |thisnet
;	  bne nbpls_06
;	  lda #0
;	  sta (nbpbfptr),y    ; local net is same as 0
;	  USE8BIT
;
nbpls_06	lda	[tblptr],y
		cmp	(nbpbfptr),y
		bne	nbpls_07	; not the same entry
		dey
		bpl	nbpls_06
		jsr	calcleng	; duplicate, ignore it
nbpls_6A	clc
		adc	nbpbfptr
		sta	nbpbfptr
		bcc	nbpls4A
		inc	nbpbfptr+1
		bra	nbpls4A
nbpls_07	ldy	#5		; points to entity name
		ldx	#3		; repeat for all three fields
nbpls_08	sec			; add 1 extra
		tya
		adc	[tblptr],y	; add length count
		tay
		dex
		bne	nbpls_08
		clc
		adc	tblptr
		sta	tblptr
		bcc	nbpls_05
		inc	tblptr+1
		bne	nbpls_05	; second byte not wrapping
		inc	tblptr+2	; need to bump third byte
		bra	nbpls_05	; check more from table
nbpls_10	jsr	calcleng	; calculate length of name
		tax			; save it
		use16M
		and	#$00FF
		clc
		adc	tblptr
		sec
		ldy	#CmRsbAdr
		sbc	[cmndlist],y
		ldy	#CmRsbSiz
		cmp	[cmndlist],y
		use8bit
		beq	nbpls10A	; just made it
		bcs	noroom		; it is buffer full
nbpls10A	txy			; size of item
nbpls_11	dey			; else copy into table
		bmi	nbpls_12
		lda	(nbpbfptr),y
		sta	[tblptr],y
		bra	nbpls_11
nbpls_12	ldy	#CmRspCnt
		clc
		lda	[cmndlist],y	; increase item count
		adc	#1
		sta	[cmndlist],y
		dey			; point to CmMaxRsp
		cmp	[cmndlist],y	; compare number of response
		beq	nbpls_13	; reach required number
		txa			; size of item
		bra	nbpls_6A	; check more
nbpls_13				;
		USE16BIT
		lda	#0
		jmp	cancellist
noroom					;
		USE16BIT
		lda	#buffull	; assume buffer full
		jmp	cancellist

;...............................................................
;
; calculate length of entity name, has three entry points
;      calcleng calculate length of name plus address
;      calcnmln calculate name only, y points to start location 		
;      calclng1 then calcalute 1 or 2 fields by setting X and Y
;      use nbpbfptr to point to buffer
;      length returns in Acc
;
;...............................................................

		IS8BIT

		entry	calcleng	; EXPORT -> ENTRY  **TGH
calcleng	ldy	#5		; points to entity name

		entry	calcnmln	; EXPORT -> ENTRY  **TGH
calcnmln	ldx	#3		; repeat for all three fields

		entry	calclng1	; EXPORT -> ENTRY  **TGH
calclng1	sec			; add 1 extra
		tya
		adc	[nbpbfptr],y	; add length count
		tay
		dex
		bne	calclng1
		rts

;...............................................................
;
; Add a name to register name link list
;...............................................................
;
;
		IS16BIT
		entry	AddName 	; EXPORT -> ENTRY  **TGH
AddName 				;	
		jsr	lforbid
		USE8BIT
		ldy	#CmRegSkt
		lda	[cmndlist],y
		sta	regsckt
		stz	regenum
		USE16M
AdNam1		ldx	regenum
		inx
		stx	regenum 	; pick an enumerator
		lda	|namelist	; and check the list
		sta	tblptr
		lda	|namelist+2
		sta	tblptr+2
AdNam2		lda	tblptr+1	; see if conflict with this one
		beq	AdNam5
		ldy	#7
		lda	[tblptr],y	; queue element socket+enum
		tax
		cpx	regsckt 	; same socket ?
		bne	AdNam4		; then no need to worry
		ldx	regenum 	; have we use it all ?
		bne	AdNam3		; no, we still have some available
		lda	#toomanynames	;there are too many names on this socket
		brl	ExitAddName	;exit with error
AdNam3					;
		cmp	regsckt 	; same enumerator ?
		beq	AdNam1		; then try another one
AdNam4		ldy	#2		; get next queue element
		lda	[tblptr],y
		pha
		lda	[tblptr]
		sta	tblptr
		pla
		sta	tblptr+2
		bra	AdNam2		; and keep looking
AdNam5		ldy	#CmEntAdr+2	; now we can fill the entity address
		lda	[cmndlist],y
		sta	tblptr+2
		ldy	#CmEntAdr
		lda	[cmndlist],y
		sta	tblptr
		lda	|namelist
		sta	[tblptr]
		lda	|namelist+2
		ldy	#2
		sta	[tblptr],y
		lda	tblptr
		sta	|namelist
		lda	tblptr+2
		sta	|namelist+2
		lda	|thisnet
		ldy	#4
		sta	[tblptr],y
		lda	regsckt 	; put socket and enumerator in
		ldy	#7
		sta	[tblptr],y
		USE8BIT
		lda	|OurNode
		ldy	#6
		sta	[tblptr],y
		USE16BIT
		lda	#0		; return with no error
ExitAddName				;
		USE16BIT
		jsr	lpermit
		rts
;...............................................................
;
; Check name list for name, exact match only, wild card not used
;     name is point to by nbpbfptr
;     if found in list, point to it by tblptr, else return 0 in tblptr
;...............................................................
;
;
		IS16BIT
		entry	GetName 	; EXPORT -> ENTRY  **TGH
GetName 				;	
		USE8BIT
		ldy	#0
		jsr	calcnmln
		sta	nameleng
		USE16BIT
		lda	|namelist
		sta	tblptr
		lda	|namelist+2
		sta	tblptr+2
GetNam_1	lda	tblptr+1
		beq	GetNam_9
		clc
		lda	tblptr
		adc	#9
		sta	tblptr		; point to entity name
		lda	tblptr+2	; add in high word for bank wrap
		adc	#0
		sta	tblptr+2
		USE8BIT
GetNam_2	ldy	nameleng
		dey
GetNm2A 	lda	[tblptr],y
		jsr	ToUpper		; 1-Jul-91 MSD
		sta	tempChar
		lda	[nbpbfptr],y
		jsr	ToUpper		; 1-Jul-91 MSD
		cmp	tempChar
		bne	GetNam_4	; name does not agree
		dey
		bpl	GetNm2A
		USE16BIT
		sec			; name found, point back to entry element
		lda	tblptr
		sbc	#9
		sta	tblptr
		lda	tblptr+2	; subtract any bank wrap
		sbc	#0
		sta	tblptr+2
		lda	#1		; set non-zero flag
		rts
GetNam_4				;
		USE16BIT
		sec
		lda	tblptr
		sbc	#9
		sta	tblptr
		lda	tblptr+2	; subtract any bank wrap
		sbc	#0
		sta	tblptr+2
		ldy	#2
		lda	[tblptr],y
		tax
		lda	[tblptr]
		sta	tblptr
		stx	tblptr+2
		bra	GetNam_1
GetNam_9	rts
;...............................................................
;
; Remove name from registration
;...............................................................
;
		IS16BIT

		EXPORT	nbpremove
nbpremove
		jsr	CheckAsync	; 7-Oct-91 MSD
		jsr	lforbid
		ldy	#CmRmvEntity
		lda	[cmndlist],y
		sta	nbpbfptr
		ldy	#CmRmvEntity+2
		lda	[cmndlist],y
		sta	nbpbfptr+2
		jsr	checkvalidzentity ; check for all three fields as valid
		USE16BIT		; put back into 16 bit mode
		bcc	nbpremovenmvld	; name is ok, so no error yet
		lda	#badName	; the name is bad so return with error
		jmp	RmvNam_9	; show the error
nbpremovenmvld				;
		jsr	GetName
		beq	RmvNam_8
		lda	|namelist
		sta	nbpbfptr
		cmp	tblptr
		php
		lda	|namelist+2
		sta	nbpbfptr+2
		plp
		bne	RmvNam_1	; is it the first entry ?
		cmp	tblptr+2
		beq	RmvNam_4	; it is the first entry
RmvNam_1	lda	[nbpbfptr]	; is it the next entry?
		tax
		ldy	#2
		lda	[nbpbfptr],y
		cmp	tblptr+2
		bne	RmvNam_2
		cpx	tblptr
		beq	RmvNam_3	; yes, it is the next entry
RmvNam_2	stx	nbpbfptr	; not the next, look more in queue
		sta	nbpbfptr+2
		bra	RmvNam_1
RmvNam_3	lda	[tblptr]	; remove next item from queue
		sta	[nbpbfptr]
		lda	[tblptr],y
		sta	[nbpbfptr],y
		bra	RmvNam_5
RmvNam_4	ldy	#2		; first name on list, update namelist
		lda	[tblptr],y
		sta	|namelist+2
		lda	[tblptr]
		sta	|namelist
RmvNam_5	lda	#0
		bra	RmvNam_9
RmvNam_8	lda	#wrongname
RmvNam_9	ldy	#2
		sta	[cmndlist],y
		jsr	lpermit
		rtl
;...............................................................
;
; Check register list to see if name matches, if it agree, reply to it
;...............................................................
;
;
		IS8BIT
NbpReply	ldy	#1
		lda	(nbpbfptr),y
		sta	|replyNID
		ldy	#4
		lda	(nbpbfptr),y	; request node
		cmp	|OurNode	; check if same as ours
		USE16M
		bne	NbpRp_0 	; nothing to worry
		ldy	#2
		lda	(nbpbfptr),y	; net work number
		beq	ItIsMe		; I am the requestor, ignore it
		cmp	|thisNet	; same net work ?
		bne	NbpRp_0
ItIsMe					;
		USE8BIT
		rts
		IS16M
NbpRp_0 	jsr	InitReply
		lda	|namelist
		sta	tblptr
		lda	|namelist+2
		sta	tblptr+2
NbpRp_1 	lda	tblptr+1
		beq	NbpRp_8
		ldy	#7
		sty	tempy1
		ldy	#9
		sty	tempy2
		jsr	CmpItem 	; does object name agree ?
		bne	NbpRp_2 	; no,
		jsr	CmpItem 	; does type agree
		beq	NbpRp_3 	; yes, then we can reply
NbpRp_2 	ldy	#2		; no, then check next element
		lda	[tblptr],y
		pha
		lda	[tblptr]
		sta	tblptr
		pla
		sta	tblptr+2
		bra	NbpRp_1
NbpRp_3 	lda	|thisnet	; get latest net number
		ldy	#4		; in case net number not available earlier
		sta	[tblptr],y
					;
		USE8BIT
		sec			; add in field length
		ldy	tempy2
		tya
		adc	[tblptr],y
		sec			; find name length
		sbc	#4
		USE16M
		and	#$00FF
		ldx	nbptbdisp
		sta	|nbprptable,x
		inx
		inx
		clc
		lda	tblptr
		adc	#4
		sta	|nbprptable,x
		inx
		inx
		lda	tblptr+2
		adc	#0		; add in for bank wrap
		sta	|nbprptable,x
		inx
		inx
		stx	nbptbdisp
		ldy	|rptupcount
		iny
		sty	|rptupcount
		cpy	#4
		bne	NbpRp_2 	; go and check more
		USE16BIT
		ldx	#tblptr 	; clobbered so save it first
		lda	#7
		jsr	saveZP
		_16BIT16M
		jsr	DoNbpReply	; table filled, write it out
		USE16BIT
		ldy	#tblptr
		lda	#7
		jsr	restoreZP
		_16BIT16M
		bra	NbpRp_2
NbpRp_8 	ldx	|rptupcount	; do we have any matches
		beq	NbpRp_9 	; no
		jsr	DoNbpReply	; else write it out
NbpRp_9 				;
		USE8BIT
		rts
;...............................................................
;
; do the actual reply						
;...............................................................
;
;
		IS16M
DoNbpReply	lda	#$FFFF
		ldx	nbptbdisp
		sta	|nbprptable,x	; end of table marker
		ldy	#2
		lda	(nbpbfptr),y	; dest network
		sta	|nbpdnet
		ldy	#4
		lda	(nbpbfptr),y	; dest node and socket
		sta	|nbpdnode
		USE8BIT
		stz	|nbpchksmf
		lda	|rptupcount
		ora	#$30		; a LkUp-reply tuple
		sta	|rptupcount
		USE16BIT
		lda	#nbprptable
		sta	|nbpwrtab
		lda	#^ramdata
		sta	|nbpwrtab+2
		ldx	#nbpwrarea-4
		ldy	#^ramdata
		jsr	DoWrtDDP	; reply to it, ignore any error
		_16BIT16M
		jsr	InitReply
		rts
;
		IS16M
InitReply				;
		ldx	#12
		stx	nbptbdisp
		ldx	#0
		stx	|rptupcount
		rts
;...............................................................
;
; CmpItem --	Compare a string from a tuple in a packet (source)
;		to a tuple in a names table entry (destination).
;
;		The source string can be '=' or 'Å' to match all
;		of the destination.  The source string can contain
;		a single 'Å' to match zero or more characters in
;		the destination.  Matches are case-insensitive,
;		including diacriticals defined in Inside AppleTalk
;		Second Edition, Appendix D, Table D-2 (page D-3).
;
; On entry:
;	16-bit A, 8-bit X,Y
;	(nbpbfptr) + tempy1
;		points to length byte of string from packet
;	[tblptr] + tempy2
;		points to length byte of string in names table
; On exit:
;	16-bit A, 8-bit X,Y
;	Z flag set iff strings match (i.e. BEQ will branch on match)
;
; General Algorithm:
;	If source is "=" or "Å", then it matches (return with Z set)
;	WildOffset := position of first 'Å' in source
;	If no 'Å' in source, just compare whole string directly
;	See if part to left of 'Å' matches:
;		Match left hand (WildOffset - 1) characters
;		Don't test length bytes!
;	See if part to right of 'Å' matches:
;		Compute length of part to right of 'Å'
;		Compute offset of part to right of 'Å'
;		Match right hand parts of both strings
;...............................................................
;
;

WildChar	equ	'Å'		; $C5

		IS16M
CmpItem
		ldy	tempy1		; point to start of source string
		lda	(nbpbfptr),y	; get length byte and first char
		cmp	#$3D01		; test special case of "="
		beq	@return		; it matches!
		cmp	#$C501		; test special case of "Å"
		beq	@return		; it matches, too!
		USE8BIT
;
; Search for first 'Å' in source string
;
		tax			; put string length in X
@scan
		iny			; point to next char in string
		lda	(nbpbfptr),y
		cmp	#WildChar	; is it the wildcard?
		beq	@found		; yes, remember where we found it
		dex			; any more chars left to scan?
		bne	@scan

;
; Here, no wildcard was found.  Therefore, test the whole string
; including the length bytes (test source length + 1 bytes).
;
		ldy	tempy1		; get offset in lookup buffer
		sty	nbpoff1		; save as offset for first item
		lda	tempy2		; get offset in names table entry
		sta	nbpoff2		; save as offset for second item
		lda	(nbpbfptr),y	; get length byte
		ina			; add 1 for length byte + string
		jsr	@cmpsub		; do case-insensitive substring compare
		bra	@return		; return the results

;
; Here, there was a wildcard found.  See if there was anything to
; the left of the wildcard.  If so, compare the substrings.
; Y = index of wildcard.  So, Y - tempy1 - 1 is amount to left of
; the wildcard.
;
@found
;
; First, if length(source)-1 > length(dest) than it is not possible
; to match since if you replaced the wildcard character with the empty
; string (hence the -1 above), the result would be longer than the dest
; string (and no longer substitution could match either).
;
; For ease of comparison, I will test for length(dest)+1 < length(source)
;
		sty	wildoff		; remember offset of wildcard
		
		ldy	tempy2
		lda	[tblptr],y	; get length(dest)
		ina			; length(dest)+1
		ldy	tempy1
		cmp	(nbpbfptr),y	; compare to length(source)
		ldy	wildoff		; restore Y.  Will set Z=0.
		blt	@return		; len(dest)+1 < len(source), so exit
		
		tya			; get back index of wildcard char
		clc			; subtract one for length byte
		sbc	tempy1		; find amount left of wildcard
		beq	@end		; nothing to left, must be to the right
		
		ldy	tempy1		; offst of source length byte
		iny			; offset of first char in source
		sty	nbpoff1		; that's where we start to compare
		
		ldy	tempy2		; offset of dest length byte
		iny			; offset of first char in dest
		sty	nbpoff2		; that's where we start compare
		
		jsr	@cmpsub		; compare left hand parts
		bne	@return		; exit now if they don't match
		
;
; Here, see if there is something to the right of the wildcard.
; Note that Y still has offset in buffer of wildcard.
;
; The number of characters to the right of the wildcard is:
;	offset of length byte + string length - offset of wildcard
; (Trust me.  Try it out on paper.)
;
@end
		ldy	tempy1		; get offset to length byte
		tya			; it's one of the things we add
		clc
		adc	(nbpbfptr),y	; add length byte.  A now has
					; offset of last char of string
		sec
		sbc	wildoff		; minus wildcard offset gives us
					; number of chars to right of wildcard
		beq	@return		; none, so it matches!
		pha			; save # of chars to compare
;
; Now we need to figure out the offset into the dest string where we start
; comparing.  That value is:
;	offset of length byte + length byte - size of right side + 1
;
		ldy	tempy2		; get offset of length byte
		tya			; it's one of the things we add
		sec			; here's the "+1" above
		adc	[tblptr],y	; add length byte
		sec
		sbc	1,s		; subtract size of right side
		sta	nbpoff2		; save as offset to dest string
		pla			; get back # of chars to compare
; Did we underflow (i.e. carry clear) on SBC above?  If so, the dest
; string was shorter than the part of source to the right of wildcard
; Note: the PLA above cleared Z since A cannot be zero (otherwise we
; would have taken the BEQ @RETURN above).
		bcc	@return		; dest is too short, no match
		
		ldy	wildoff
		iny
		sty	nbpoff1		; compare starting after wildcard char
		
		jsr	@cmpsub		; see if right side matches

;
; Here, the Z flag is set correctly.  Make sure we're in the right mode.
;
@return
		USE8BIT			; make sure we're in 8-bit mode!
		php			; save state of Z flag
;
; Point tempy1 past end of string
;
		ldy	tempy1
		tya
		sec			; add 1 for length byte
		adc	(nbpbfptr),y
		sta	tempy1
;
; Point tempy2 past end of string
;
		ldy	tempy2
		tya
		sec			; add 1 for length byte
		adc	[tblptr],y
		sta	tempy2
		
		plp			; restore Z flag
		
		USE16M
		rts



;------------------------------------------------------------
; @cmpsub -- like CmpItem except it uses nbpoff1 and nbpoff2
; instead of tempy1 and tempy2.  It also doesn't check for
; wildcards.  It does do case-insensitive compares of the
; characters and knows about AppleTalk's diacriticals.
;
; On entry:
;	8-bit A,X,Y
;	(nbpbfptr),nbpoff1 is first substring
;	[tblptr],nbpoff2 is second substring
;	A = number of characters to compare.
;	(A is non-zero)
; On exit:
;	8-bit A,X,Y
;	Z = 1 iff strings are equal
;------------------------------------------------------------
		IS8BIT
@cmpsub
		tax
@cmploop
		ldy	nbpoff1
		inc	nbpoff1
		lda	(nbpbfptr),y
		jsr	ToUpper
		
		sta	tempChar
		
		ldy	nbpoff2
		inc	nbpoff2
		lda	[tblptr],y
		jsr	ToUpper
		
		cmp	tempChar
		bne	@nomatch
		dex
		bne	@cmploop
					; Z=1 => match, return
@nomatch
		rts


;------------------------------------------------------------
; ToUpper -- Convert char in A to its upper-case equivalent.
; Diacriticals recognized by AppleTalk are also converted.
;
; Note: Only A and the processor status are changed.
;------------------------------------------------------------

		export	ToUpper
ToUpper
		bit	#$80		; high bit set?
		bne	@diacritical	; yes, so try diacriticals
		
		cmp	#'a'
		blt	@gotit		; less than lower case letters
		cmp	#'z'+1
		bge	@gotit		; greater than lower case letters
		
		and	#$5F		; convert lower to upper
@gotit
		rts
@diacritical
		phx			; preserve X

		ldx	#diac_count-1	; max index into table + 1 for dex below
@loop
		cmp	>@lower,x	; is it that lower case diacritical?
		beq	@found		; yes, so convert it
		dex
		bpl	@loop
		plx			; here, no match so leave it alone
		rts
@found
		lda	>@upper,x	; get corresponding upper case
		plx
		rts
@lower
		dc.b	$88,$8A,$8B,$8C,$8D,$8E,$96,$9A,$9B,$9F,$BE,$BF,$CF
@upper
		dc.b	$CB,$80,$CC,$81,$82,$83,$84,$85,$CD,$86,$AE,$AF,$CE
diac_count	equ	@upper-@lower
		
		ENDP

nbpkill 	PROC			EXPORT

		IS16BIT

		jsr	CheckAsync
		
		ldy	#4
		lda	[cmndlist],y
		cmp	|nbpptrsave
		bne	badexit
		iny
		iny
		lda	[cmndlist],y
		cmp	|nbpptrsave+2
		beq	goodpb

badexit 	lda	#BadParamBlock
		bra	exit

goodpb		lda	|nbptmcmd
		beq	justleave

		pei	cmndlist
		pei	cmndlist+2

		lda	#CnclTmCmd
		sta	|nbptmcmd
		ldx	#nbptmcmd
		ldy	#^ramdata
		jsr	ADispatch

		pla
		sta	cmndlist+2
		pla
		sta	cmndlist

justleave	lda	#0
exit		ldy	#2
		sta	[cmndlist],y
		rtl

		ENDP

;_______________________________________________________________________________

DDPInit 	PROC	EXPORT

		IS16BIT
		stz	|lapdest	; clear to zero
		ldx	#lapdest
		ldy	#lapdest+1
		lda	#NBPEnd-lapdest-2
		mvn	ramdata,ramdata
		USE8BIT
		ldy	#9		; findout node number
		lda	[cmndlist],y
		sta	|ourNode
		USE16BIT
		lda	#7		; initialize nbpwds
		sta	|nbpwds+6
		lda	#outnbp
		sta	|nbpwds+8
		lda	#^ramdata
		sta	|nbpwds+10
		lda	#$FFFF
		sta	|nbpwdsend
		lda	#2
		sta	|nbprptable+6
		lda	#rptupcount
		sta	|nbprptable+8
		lda	#^ramdata
		sta	|nbprptable+10
		lda	#1		; install short DDP handler
		ldx	#ShortDDP
		ldy	#^ShortDDP
		sec
		jsr	lattachprot
		lda	#2		; install long DDP handler
		ldx	#LongDDP
		ldy	#^LongDDP
		sec
		jsr	lattachprot
		ldx	#OpenRTMP	; install RTMP listener
		ldy	#^OpenRTMP
		jsr	ADispatch
		ldx	#OPENNBP	; install NBP listener
		ldy	#^OPENNBP
		jsr	ADispatch
		ldx	#RTMPreq	; do RTMP request
		ldy	#^RTMPreq
		jsr	ADispatch
		rts
;
;
OpenRTMP	DC.W	OpnSktCmd
		DC.W	0
		DC.B	1
		DC.L	RTMPListen
OpenNBP 	DC.W	OpnSktCmd
		DC.W	0
		DC.B	2
		DC.L	NBPListen
RTMPReq 	DC.W	LapWrtCmd
		DC.W	0
		DC.B	$FF		; broadcast
		DC.B	1		; short DDP
		DC.L	RTMPBDS
RTMPBDS 	DC.W	6		; 6 byte header
		DC.L	RTMPhead
		DC.W	$FFFF		; end of table
RTMPhead	DC.B	0,6		; header length
		DC.B	1		; to socket 1
		DC.B	1		; from socket 1
		DC.B	5		; prototype 5
		DC.B	1		; command 1
		ENDP

;_______________________________________________________________________________

		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/ATRom/MakeFile b/IIGS.601.SRC/GS.OS/Drivers/ATRom/MakeFile
new file mode 100644
index 0000000..aeb38ea
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/ATRom/MakeFile
@@ -0,0 +1 @@
+Objects	=	atp_includes.oii lap_includes.oii aptalk.oii

.oii		Ä	.aii
	asmiigs {aiigsoptions} -w -o {Default}.oii {Default}.aii
	
atrom		Ä	{Objects}
	linkiigs -l >{Targ}.objlist -t $70BB0201 -o {Targ} {Objects}
	echo "FileType = $BB  AuxType = $0201" >> {Worksheet}
	rename -y {targ} 'atp1.'{targ}
	quote `directory`'atp1.'{Targ}
	
{Objects}	ÄÄ	MakeFile
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/ATRom/lap_includes.aii b/IIGS.601.SRC/GS.OS/Drivers/ATRom/lap_includes.aii
new file mode 100644
index 0000000..66e7039
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/ATRom/lap_includes.aii
@@ -0,0 +1 @@
+*******************************************************************************
*
* File:             APTALK
*
* Contents:         aptalk.aii,
*                   atp_includes.aii,
*                   LAP_INCLUDES.Aii
*
* rev 00            Original ROM
* rev 01            Second ROM
*
* This file contains the 65816 implementation of LAP for the Apple IIGS.
* Inspiration and guidance derived from Fern Bachman's 65C02 implementation.
*
* Copyright Apple Computer, 1986
* Original Author: Ed Lai, Greg Seitz
*
*******************************************************************************
*
* NOTE
*
* This file would normally just patch any correction in ROMs =< 01, but
* since there were so many corrections to those roms, we just patch out
* the entire thing with the APTALK file.
*
* NOTE:
*   If calling internal form you must set the carry otherwise the carry is
*   cleared from the dispatcher (long form)
*
*******************************************************************************
*
* Modification History
*
* REV 03
*
* 8/19/88    TGH	- Started working on RevD ROM
*
* 11/9/88    TGH	- Fixed bug where BDS length = 0.
*
* 11/14/88   TGH	- Now verifing LAP type on a LAPWrite call.
*			(didn't work - taken out)
*
* 11/23/88   TGH	- Now verifing first BDS length on LAPWrite call.
*
* 3/27/89    TGH	- Added OnExitVector vector for QTRIRQ.
*
* 21-Aug-91 MSD	The code in reading and writing the SCC that is timing
*		dependent at 2.8Mhz now does its timing loops at 1Mhz.
*		It slows down before it gets to timing dependent code
*		and speeds back up after all timing dependent stuff is
*		done.
*
*		PacketIRQ now waits for data to be available before
*		trying to read the third byte of the LAP header (the
*		LAP type byte).
*
* 22-Aug-91 MSD	Slowing down during the majority of the write code doesn't
*		work because I can't get the bytes out fast enough (the over-
*		head from JSR's is too much).  Now I'll try slowing down just
*		where there is a timing loop.  I've added two macros, SlowDown
*		and SpeedUp.  See "A Word About Timing" below.
*
* 28-Aug-91 MSD	Added slow down/speed up around delay loop for third SCC
*		byte at the beginning of PacketIRQ.  Adding sending of
*		two flag bytes at fXmitLap.
*
*  7-Oct-91 MSD	LAPWrite no longer allows async call.
*
*  6-Feb-92 MSD Stacksave was testing to see if the stack was below $100
*		but used a BCS where it should have used a BCC.
*
*******************************************************************************


;======================================================================
;
;			A Word About Timing
;
; The AppleTalk code is timing dependent in two major ways: it uses
; watchdog timers to abort reads that are taking longer than they
; (due to an otherwise undetected error condition), and it uses
; delays to let the SCC write things like flags and abort sequences
; (since there is no way to poll and see if they're done).
;
; Normally, you have to worry about going too slow: not being able to
; send data to the output latch before the previous byte is finished
; writing or not sending a reply before the other side gives up.  That
; we can deal with (just barely) by doing the timing at 2.8Mhz. Then
; came the accellerators.  When you set the speed bit at $C036, the
; accellerators think you want to go as fast as possible.  Now I have
; to worry about going too fast.
;
; My original thought was to call ToSetSysSpeed to set the speed to
; 2.8Mhz before I did any timing critical code and call it again to
; restore the speed after all timing critical code was done.  This
; doesn't work because if there isn't an accellerator, then we're
; already at 2.8Mhz and the code at ToSetSysSpeed takes about 40us to
; execute.  This is too long when we've been interrupted by an RTS
; packet coming in; I can't send a CTS within the maximum inter-frame
; gap of 200us.
;
; My second thought was to just slow down to 1Mhz and later speed back
; up at the same places I would have called ToSetSysSpeed.  This is a
; simple store to $C036 and all accellerators will slow down to 1Mhz.
; Now my problem is worse; since the code uses JSRs and common code to
; write individual bytes, I can't send consecutive bytes fast enough
; (within about 36us).
;
; So, what I've settled on is slowing down to 1Mhz immediately before
; a timing loop and speeding back up immediately after.  Furthermore,
; I write hard-coded values to $C036 since I can't afford the overhead
; of saving the old value and changing the bit; this is OK since the
; interrupt and call dispatch code both preserve the whole byte, and
; the other bits aren't important while I don't release control.
;
; As of 23-Aug-92 (13:45), the time to send a data packet after
; receiving a CTS and the time to send a CTS after receiving an RTS
; were measured at worst case of 200us and 202us (assuming the other
; device sends a minimum 12-bit abort sequence).  This is marginally
; acceptable with the specified maximum inter-frame gap of 200us.
;
; On thing that worries me is the TIFGap1 constant.  The old code was
; waiting 100 loops at probably 6-8us per iteration (i.e. 600-800us).
; I now wait 448us (32 iterations * 14 cycles per iteration).  During
; directed transmissions, consecutive packets shouldn't be separated
; by more that the maximum Inter Frame Gap of 200us.  Broadcasts can
; have that 200us delay or more between the RTS and the data packet.
; I hope the value I've chosen is enough (I feel good that it is longer
; than the Inter Dialogue Gap of 400us).
;
; The other worry I have is timing of outgoing broadcasts.  The time
; between sending the RTS and sending the data packet will change with
; an accellerated system.  I had to shorten the period where it delays
; and checks the line for collisions from 100us to 50us since the extra
; time to speed up, reset the receiver, and get down to the delay loop
; was causing almost 250us delay on a normal system.  This seemed far
; too long, so I shortened it.  But with an accellerator, this might run
; much faster and end up running too fast for other CPUs (like GS's) to
; receive the RTS and set up to receive the data packet.
;
;======================================================================

		longa	off
		longi	on
		msb	on
*		org	$ff2A27


		IMPORT	GoComp
		IMPORT	QtrSched
		IMPORT	RestoreE1
		IMPORT	RestoreZP
		IMPORT	SaveE1
		IMPORT	SaveZP


		ENTRY	BitCount
		ENTRY	EnterCrit
		ENTRY	ExitCrit
		ENTRY	FindProt
		ENTRY	Forbid
		ENTRY	FreeBuf
		ENTRY	NewPacket
		ENTRY	PacketIRQ
		ENTRY	Permit
		ENTRY	QtrSecIRQ
		ENTRY	RTSAddr
		ENTRY	Random
		ENTRY	RecvBytes
		ENTRY	RecvInit
		ENTRY	RecvPacket
		ENTRY	RestorState
		ENTRY	SaveState
		ENTRY	TryNode
		ENTRY	WLineBusy
		ENTRY	XmitBDS
		ENTRY	XmitBegin
		ENTRY	XmitEnd
		ENTRY	XmitLAP,fXmitLAP
		ENTRY	XmitOne
		ENTRY	XmitPacket
		ENTRY	stackrestore
		ENTRY	stacksave


;-------------------------------------------------------------------------------
;                   General equates
;-------------------------------------------------------------------------------

XBit		equ	$10
MBit		equ	$20
VBit		equ	$40
CBit		equ	$01
IBit		equ	$04

ZPStart		equ	$80
E1Start		equ	$1000
Base		equ	$E000		;Base of packet buffer area.
MID		equ	$0		;ID for Cortland.
RomVer		equ	$10		;Rom version 1.0.
lapzplen	equ	$10
e1lapend	equ	$001200		;really $e11200

incbusyflag	equ	$E10064		;scheduler inc routine
decbusyflag	equ	$E10068		;Scheduler dec routine

rd80col		equ	$E1c018		;read 80 column switch
altsp		equ	$010101		;alt stack pointer
mainsp		equ	$010100		;main stack pointer
rdaltzp		equ	$C016		;read alt zero page switch

;-------------------------------------------------------------------------------
;                   SCC register definitions
;-------------------------------------------------------------------------------

RecvIntsA	equ	$20		;Mask to detect channel A recv ints.
RecvIntsB	equ	$04		;Mask to detect channel B recv ints.
AddrReg		equ	$06
TxEmpty		equ	$04
RxAvail		equ	$01
Hunt		equ	$10
Underrun	equ	$40
DisRx		equ	$D0
EnbRTS		equ	$E3
DisTxRTS	equ	$E1
EnbTxRTS	equ	$EB
ResTxCRC	equ	$80
ResetUnd	equ	$C0
ResetErr	equ	$30
ReEnbInt	equ	$20
EnbRxSlv	equ	$CD
EnterHunt	equ	$10
EnbRxInt	equ	$08
SrchMode	equ	$21
FMMode		equ	$C1
BaudRate	equ	$06
ClocksA		equ	$F2
SetFM0		equ	$E0
SDLC		equ	$7E
EnbTx		equ	$E9
SDLCMode	equ	$20
DisRxInt	equ	$00
ResetA		equ	$8A
ResetB		equ	$4A

;-------------------------------------------------------------------------------
;                   Time definitions and equates
;-------------------------------------------------------------------------------

;TWLFree	equ	4000
;T100usec	equ	7
;T2Flags	equ	28
;TLastFlag	equ	16
;TAbort		equ	42
;TIFGap		equ	100		; wow! this was way off!  (MSD)
;TByte		equ	7

;
; 21-Aug-91 MSD	New timeout values for code running at 1Mhz.
;
TWLFree1	equ	1578		; wait 30ms at 1Mhz (19 cycle loop)
T2Flags1	equ	10		; wait 50us at 1Mhz (5 cycle loop)
; WLineBusy now delays in increments of 50us since the measured delay from
; sending a broadcast RTS until sending the data packet was ~300us when it should
; have been ~200us.  This allows me to change it to ~250us.
T50usec1	equ	3		; wait ~50us at 1Mhz (15 cycle loop)
T100usec1	equ	6		; wait 100us at 1Mhz (15 cycle loop)
TLastFlag1	equ	6		; wait 29us at 1Mhz (5 cycle loop)
; When TAbort1 was 25, the abort sequence was measured at 134us.  A better time
; is 74us, so I'll subtract 60us by decreasing TAbort1 to 13.
TAbort1		equ	13		; wait 75usec at 1Mhz (5 cycle loop)
; Note: When waiting for a frame (such as a CTS or data packet), I'll actually
; wait up to 400us instead of the rated 200us maximum IFG.  This is because
; broadcast data packets are separated from their RTS by 200us (sometimes a
; little more).  [23-Aug-91 MSD]
TIFGap1		equ	32		; wait 400us at 1Mhz (13+ cycle loop)
TByte1		equ	4		; wait 60us at 1Mhz (14 cycle loop)

;-------------------------------------------------------------------------------
;                   LAP equates
;-------------------------------------------------------------------------------

Broadcast	equ	$FF
LAPEnq		equ	$81
LAPAck		equ	$82
LAPRTS		equ	$84
LAPCTS		equ	$85
DDPShort	equ	1
DDPLong		equ	2
MaxData		equ	600		;Maximum amount of data in a LAP pkt.
MaxSize		equ	MaxData+11	;Data + LAP + len + cksum + link + CRC.
GlobalSize	equ	16
MaxColsns	equ	32
MaxDefers	equ	32

;-------------------------------------------------------------------------------
;                   Error equates
;;-------------------------------------------------------------------------------

ColErr		equ	1
DefErr		equ	2
Err		equ	$80
CRCErr		equ	$40
ORunErr		equ	$20
TBigErr		equ	$10
TOutErr		equ	$8
Lock		equ	$1
NoErr		equ	0		;Success.
BufErr		equ	1		;No packet in buffer.
EndErr		equ	2		;End of buffer.
SizeErr		equ	3		;LAP data too large.
RetryErr	equ	4		;Retry count exhausted.
IllProtErr	equ	5		;Illegal protocol number (LAP type).
DupProtErr	equ	6		;Duplicate protocol number.
FulProtErr	equ	7		;Protocol list full.
MisProtErr	equ	8		;Missing protocol (can't be removed).
ShortErr	equ	9		;User's buffer is too short when purging
EnableErr	equ	10		;AppleTalk is not enabled.
VBLSize		equ	12		;Size of ROM image of VBL entry.
MaxProts	equ	8		;Maximum # of protocols in table.
AsyncErr	equ	$0104		; added 7-Oct-91 MSD

;-------------------------------------------------------------------------------
;                   Misc. constants
;-------------------------------------------------------------------------------


MVNOp		equ	$54
RTLOp		equ	$6B
NOPOp		equ	$EA
topstack	equ	$1a0		;we want the stack this high

;-------------------------------------------------------------------------------
;                   Character constants
;-------------------------------------------------------------------------------

CR		equ	$8D
LF		equ	$8A

irq_intflag	equ	$C3
irq_secflag	equ	$C6
irq_active	equ	$CB
SCCStat		equ	$101
SCCFlag		equ	$102
SCCFlag2	equ	$103
SerFlag		equ	$104
scc1		equ	$105
scc2		equ	$106
irq_A		equ	$108
irq_X		equ	$10A
irq_Y		equ	$10C
irq_S		equ	$10E
irq_D		equ	$110
irq_DB		equ	$113
irq_State	equ	$118
irq_shadow	equ	$119
USERSLT1	equ	$2E1		; slot 1 BRAM setting
USERSLT7	equ	$2E7		; slot 7 BRAM setting

;-------------------------------------------------------------------------------
;                   Hardwired locations
;-------------------------------------------------------------------------------

LapDest		equ	$D000
ThisNet		equ	$D010
ABridge		equ	$D013
LCBank2		equ	$C083
RDROM		equ	$C082
CYAReg		equ	$C036
StateReg	equ	$C068
SCCBReg		equ	$C038
SCCAReg		equ	$C039
MouseA		equ	$C044
MouseB		equ	$C045
mouseMode	equ	$C041
CLRVBLINT	equ	$C047

;-------------------------------------------------------------------------------
;                   Call block definition equates
;-------------------------------------------------------------------------------

lp_async	equ	0		;General
lp_command	equ	lp_async+1
lp_result	equ	lp_command+1
li_flag		equ	lp_result+2	;LAPInit
li_entry	equ	li_flag+1
li_node		equ	li_entry+4	;2 for entry, 2 reserved.
li_size		equ	li_node+1
gi_return	equ	lp_result+2	;GetInfo
gi_net		equ	gi_return+4
gi_bridge	equ	gi_net+2
gi_mid		equ	gi_bridge+1
gi_version	equ	gi_mid+1
gi_size		equ	gi_version+1
gg_buffer	equ	lp_result+2	;GetGlobal
ggb_length	equ	$10
lw_dest		equ	lp_result+2	;LAPWrite
lw_lapType	equ	lw_dest+1
lw_BDS		equ	lw_lapType+1
lw_size		equ	lw_BDS+4
lr_count	equ	lp_result+2	;LAPRead
lr_buffer	equ	lr_count+2
lr_purge	equ	lr_buffer+4
lr_actual	equ	lr_purge+1
lr_size		equ	lr_actual+2
ap_prot		equ	lp_result+2	;AttachProtocol
ap_handler	equ	ap_prot+1
ap_size		equ	ap_handler+4
rm_prot		equ	lp_result+2	;RemoveProtocol
rm_size		equ	rm_prot+1

;-------------------------------------------------------------------------------
;                   Receive buffer data structure offsets:
;-------------------------------------------------------------------------------

buf_next	equ	0
buf_len		equ	buf_next+2
buf_cksum	equ	buf_len+2
buf_lap		equ	buf_cksum+2
buf_dest	equ	buf_lap
buf_src		equ	buf_dest+1
buf_type	equ	buf_src+1
buf_data	equ	buf_type+1

;-------------------------------------------------------------------------------
;                   Zero page usage.
;-------------------------------------------------------------------------------

cmndList	equ	ZPStart		;General
zpCurBuf	equ	cmndList
execAddr	equ	cmndList+4

sccReg		equ	execAddr+4	;SCC pointers
sccDat		equ	sccReg+2
ptr0		equ	sccDat+2
ptr1		equ	ptr0+3
r0		equ	ptr1+3
r1		equ	r0+1
r2		equ	r1+1
r3		equ	r2+1
ZPEnd		equ	r3+1
ZPSize		equ	ZPEnd-ZPStart

;-------------------------------------------------------------------------------
;                   Bank E1 variables.
;-------------------------------------------------------------------------------

Extended	equ	E1Start		;RAM vectors.  Extended interface entry.
Basic		equ	Extended+4	;Basic entry.
Pascal		equ	Basic+4		;Pascal entry.
RamGoComp	equ	Pascal+4	;users gocomp entry for completions
SoftReset	equ	RamGoComp+4	;Soft reset chain.
RamDispatch	equ	SoftReset+4	;Command dispatcher.
RamForbid	equ	RamDispatch+4	;RAM vector to long entry of forbid.
RamPermit	equ	RamForbid+4	;For Permit.
ProEntry	equ	RamPermit+4	;Original ProDOS entry point.
Prodos		equ	ProEntry+2	;Prodos entry.
SerStatus	equ	Prodos+4	;Serial interface status hook
SerWrite	equ	SerStatus+4	;" " write hook.
SerRead		equ	SerWrite+4	;For Read.
SerBackgnd	equ	SerRead+4	;For background printing.
PDispatch	equ	SerBackgnd+4	;For dispatching packets.
ExtraVec	equ	PDispatch+4	;For more vectors.
colHist		equ	ExtraVec+20	;These first  variables need to be set
defHist		equ	colHist+1	;to zero at initialization, so put them
gBackOff	equ	defHist+1	;together.
needData	equ	gBackOff+1
addrValid	equ	needData+1
busyFlag	equ	addrValid+1
pktError	equ	busyFlag+1
deltaT		equ	pktError+1
trailing	equ	deltaT+1
curPos		equ	trailing+1
catchProt	equ	curPos+2
protTable	equ	catchProt+4	;This table must be filled with $ff's.
whichMouse	equ	protTable+MaxProts*6
seed		equ	whichMouse+2
addrUsed	equ	seed+2
gotCTS		equ	addrUsed+1
gotData		equ	gotCTS+1
dest		equ	gotData+1
source		equ	dest+1
lapType		equ	source+1
lBackOff	equ	lapType+1
colTries	equ	lBackOff+1
defTries	equ	colTries+1
errRec		equ	defTries+1
txBDS		equ	errRec+2
whichSCC	equ	txBDS+4
ckSum		equ	whichSCC+2
freeProt	equ	ckSum+2
scc1A		equ	freeProt+2
scc2A		equ	scc1A+1
scc3		equ	scc2A+1
curRBuf		equ	scc3+1
curLen		equ	curRBuf+2
curWBuf		equ	curLen+2
curOffset	equ	curWBuf+2
curEnd		equ	curOffset+2
ourstacksave	equ	curEnd+3
stksaveflag	equ	ourstacksave+(topstack-$ff) ;only reserve space to save from $100 up to topstack
stretaddr	equ	stksaveflag+2
lentosave	equ	stretaddr+2
oldstack	equ	lentosave+2
stacksavea	equ	oldstack+2
stacksavex	equ	stacksavea+2
stacksavey	equ	stacksavex+2
stacksaveb	equ	stacksavey+2
stacksavep	equ	stacksaveb+2
nestedflag	equ	stacksavep+2
dstack		equ	nestedflag+2
dstate		equ	dstack+2
E1End		equ	dstate+1
zzz		equ	E1End		;Note the last byte used should
					;not be beyond $e11200

;-------------------------------------------------------------------------------
;                   Slot 7 equates
;-------------------------------------------------------------------------------

C7xx		equ	$C7A0		;emulation mode entry
C7xxGo		equ	$C7A1		;native mode entry
C7xxRet		equ	$C7A8		;return point for routines
C7Error		equ	$C7AB		;error point for pascal not installed
C7Prodos	equ	$C7AE		;bank 0 entry for prodos

Cnxx		equ	$E11042		;emulation mode entry
CnxxGo		equ	$E11046		;native mode entry
OnExitVector	equ	$E1104A		;Exit vector for QTRIRQ



;===============================================================================
;
; 22-Aug-91 MSD
;
; Macros for setting the machine speed to 1Mhz and full speed.  Each one takes
; 5 cycles at fast speed (~2us) and 1 cycle at slow speed (1us).  Best case is
; 3us total, worst case is 4us if we have to sync up with the FPI.
;
; Note: All of the code that uses these is called either during an interrupt
; or as a result of "adispatch" (the AppleTalk command dispatcher).  Both of
; these save and restore the contents of the CYA register (all bits).  And
; since I don't access the 5.25" drive motor on/off switches, I can write to
; the CYA register without preserving the motor on detect bits.  I will clear
; the shadow in all banks bit (I don't want shadowing anyway).
;
; 25-Aug-91 MSD: Changed SlowDown to a STZ instruction (Duh...Gee George, tell
; me 'bout the rabbits).
;===============================================================================

		macro
&lab		SlowDown
		stz	CYAReg		; turn off fast bit
		endm


		macro
&lab		SpeedUp
		lda	#$80
		sta	CYAReg		; turn on fast bit
		endm

		
;_______________________________________________________________________________

LapExit		PROC

		plp			;Get back mode (must be full native).
		longa	on
		and	#$ff		;Mask off high byte.
		beq	NolErr		;If successful, leave high byte alone.
		ora	#$200		;Otherwise, make it a LAP error.
		bra	NolErr

		entry	LAPExit2	; EXPORT -> ENTRY  **TGH
LAPExit2				;       
		plp
NolErr					; 
		ldy	#lp_result	;Point to the LAP result field.
		sta	[cmndList],y	;Store result. A MUST contain the
		longa	off		;result when we exit!!!! Don't change
		rtl			;or you will die.

		ENDP


****************************************************************
*
*  'LAPWrite' can be called only with a parameter list.
*
****************************************************************
*
LAPWrite	PROC	EXPORT
		import	CheckAsync
		
		jsr	CheckAsync	; 7-Oct-91 MSD

		jsr	EnterCrit
		php
		ldy	#lw_bds		;Get low word of BDS pointer.
		lda	[cmndList],y
		sta	txBDS		;Store it for XmitPacket.
		iny			;Point to high word.
		iny
		lda	[cmndList],y	;Get high word.
		sta	txBDS+2		;Store for XmitPacket.
		sep	#MBit		;8 bit A.
		ldy	#lw_dest	;Now get the destination for the write.
		lda	[cmndList],y
		sta	dest		;Store it.
		ldy	#lw_lapType	;Get the LAP type.
		lda	[cmndList],y
		beq	@L1		;LAPTypes of 0 or
		bmi	@L1		; > 127 are illegal!
		sta	lapType		;Store it.
		jsr	XmitPacket
		jsr	ExitCrit
@L2		jmp	LAPExit		;Return, storing A in the result code.

@L1		lda	#IllProtErr	;Illegal LAP type.
		bra	@L2

		ENDP

****************************************************************
*
*  'GetInfo' must be called with a parameter list.
*
*  Inputs:
*
*  Outputs:
*
****************************************************************
*
* GWS 2/10/88 - the paramater list has been expanded to support
* the return of the node number and an extra byte for the romversion
*
****************************************************************

GetInfo		PROC	EXPORT
		export	GetInfo1
		import	CheckAsync

		jsr	CheckAsync	; 7-Oct-91 MSD
		
		php
		longa	on
		ldy	#gi_return
GetInfo1	lda	#C7xxRet	;Address of the return point for
		sta	[cmndList],y	;socket listeners, protocol handlers,
		lda	#0		;and completion routines.
		iny			;Move to high word of return address.
		iny
		sta	[cmndList],y	;Set to bank zero.
		iny
		iny			;Move on to network field.
		lda	ThisNet		;Get our network #.
		sta	[cmndList],y	;Store in list (byte reversed...)
		iny
		iny			;Move to bridge field.
		lda	ABridge		;Get node # of a bridge, any bridge.
		sta	[cmndList],y
		iny			;Move to machine ID and ROM version #.
		lda	#MID+256*RomVer	;Get two bytes of info.
		sta	[cmndList],y
		iny			;now store rom id as a word (GWS 5/20/88)
;
; 2-Jul-91 MSD: I don't have to patch the following instruction for ROM 3
; because I will change the version later to indicate AppleTalk Phase II.
;
		lda	>$c7fe		;get what is really in the rom
		sta	[cmndlist],y
		lda	source		;get our node number (GWS 2/10/88)
		and	#$00ff		;set high byte to zero
		iny
		iny			;move to high byte of romver field
		sep	#mbit		;store a byte for node
		sta	[cmndlist],y	;save it
		rep	#mbit
		lda	#0		;No error.
		jmp	LAPExit
		longa	off
		ENDP
****************************************************************
*
*  'LAPInit' can be called with either a parameter list or parameters in
*  registers.  If C is set, registers are used.
*  When registers are used, there are no parameters.
*
*  Inputs:  A = starting node number.
*
*  Outputs: A = node number chosen.
*
****************************************************************

LAPInit		PROC	EXPORT
		import	OurChannel

		php
		sep	#MBit		;8 bit A.
		rep	#XBit		;16 bit index.
		bcs	Direct		;This way if direct mode.
		ldy	#li_flag	;See which kind of init to do.
		lda	[cmndList],y
		bpl	NotFull		;If bit 7 reset, not a full init.
		ldy	#li_node	;Get the node number to start with.
		phy			;Save pointer to li_node.
		lda	[cmndList],y
		sec			;Now use direct mode.
		jsr	LAPInit
		ora	#0
		bne	OK
		lda	#EnableErr	;AppleTalk not enabled.
		ply
		bra	Exit
OK					; 
		ply
		sta	[cmndList],y	;Store the node actually picked.
NotFull					; 
		lda	#0
Exit					; 
		jmp	LapExit		;Stores result in param list.
;
; 2-Jul-91 MSD: Wouldn't have gotten loaded if AppleTalk wasn't active.
;
Direct					; 
		pha			;Save node number.
;		lda	USERSLT7	;Check to see if AppleTalk is enabled.
;		beq	GoAhead		;Yes, it's enabled.
;		pla			;Get back node #.
;		lda	#0		;Error: AppleTalk not enabled.
;		plp
;		rts
GoAhead					; 
		ldx	#SCCBReg	;Assume AppleTalk is port B.
		ldy	#MouseB		;Get pointer to line activity counter.
		lda	#RecvIntsB	;Interrupt mask for port B ATalk.
		pha			;Save on stack for later.
		lda	#ResetB		;Channel B reset code.
		pha			;Save on stack.
;
; 2-Jul-91 MSD: Use channel given to us by SCC.Manager.
;
		lda	>OurChannel	;Which port is AppleTalk in?
		cmp	#2		; was it port B?
;
; End of 2-Jul-91 MSD change
; (code was LDA USERSLT1)
;
		beq	UsePortB	;0: A is serial, so ATalk is B.
		inx			;1: move ahead to serial port A.
		dey			;Move back to channel A activity port.
		lda	#RecvIntsA	;Interrupt mask for port A ATalk.
		sta	2,s		;Replace interrupt mask on stack.
		lda	#ResetA		;Channel A reset code.
		sta	1,s
UsePortB				; 
		stx	whichSCC
		sty	whichMouse
		stx	sccReg		;Control register pointer.
		inx
		inx
		stx	sccDat		;Data register pointer.
		php			;Push mode and disable ints.
		sei
		lda	#0		;Send synch byte to SCC.
		sta	(sccReg)
		lda	#9		;Point to reset register.
		sta	(sccReg)
		lda	2,s		;Get back SCC reset code for our port.
		sta	(sccReg)	;Reset the port.
		plp			;Restore mode and fix stack.
		pla

* Initialize variables with 0, fill protTable with $ff.
		php			;Save mode.
		rep	#MBit		;16 bit A for MVN.
		longa	on
		stz	colHist		;Clear the first byte of vars that
		ldx	#colHist	;must be zero.  Point to that byte
		txy			;and use as source for MVN.
		iny			;Use next address as dest for MVN.
		lda	#14		;Number of bytes to clear - 1.
		mvn	$e1e1e1,$e1e1e1	;Clear the bytes.
		dec	protTable	;Change the first byte of protTable to
		lda	#MaxProts*6-2	;$ff, and fill the table with that
		mvn	$e1e1e1,$e1e1e1	;value.
* GWS 6/8/88
* moved initialzation of variables related
* to stack save routines
* into the lapresetinit routine, so they
* would be set up properly before ever
* going through the dispatcher.
*
* Now initialize the SCC for AppleTalk mode.
		longa	off
		longi	off
		sep	#MBit+XBit+IBit	;8 bits and disable interrupts.
		ldx	#0		;Point to first byte.
		ldy	#SCCTabSize	;Get size of table.
InitLoop				; 
		lda	>SCCTable,x	;Get a byte at a time to initialize the
		sta	(sccReg)	;SCC for AppleTalk mode.
		inx			;On to next byte.
		dey
		bne	InitLoop
		plp			;Restore mode.
		longi	on
		jsr	RecvInit

* Now init packet buffer maintenance variables.
		ldx	#Base+MaxSize	;Set up initial 'curEnd' value to
		stx	curEnd		;point to the end of the first
		lda	#$E0		;packet buffer in the bank E1 language
		sta	curEnd+2	;card space (E0 + offset ---> E1).
		ldx	#Base		;Set up the pointer to the beginning of
		stx	curWBuf		;the first write buffer.
		stx	curRBuf		;Also the read buffer.
		rep	#MBit
		longa	on
		stz	|buf_next,x	;Clear curRBuf->next.
		ldx	#-(MaxData+2)	;Set up offset to point to the start of
		stx	curOffset	;the LAP data field.

* Now set up interrupt vectors.
		phk
		phk
		pla			;Get high byte of vector address in A.
		and	#$ff		;Mask off high byte.

		pea	0		;This signals the end of the calls.

		pea	4		;Now enable the quarter sec interrupt.
		pea	$2303		;IntSource tool number.

		pea	8		;Install AppleTalk interrupt vector.
		pha			;Push bank of vector.
		pea	PacketIRQ	;Low Word of address.
		ldx	#$1003		;SetVector tool number.
		phx			;Put on stack for below.

		pea	14		;Install quarter sec interrupt handler.
		pha			;Push bank word of vector.
		pea	QtrSecIRQ	;Low word of address.

ToolLoop				; 
		jsl	$E10000		;Make a call.
		plx			;Get the next tool call number.
		bne	ToolLoop	;If not zero, do another call.

		sep	#MBit		;8 bit A.
		longa	off
		pla			;Get back AppleTalk interrupt mask.
		sta	SCCFlag2	;Store it in the right spot.
		pla			;Get back node number.
		beq	specialnd	;get workstation random node using battery
		cmp	#$ff		;see if server random wanted
		bne	NotZ		;they want to specify start node
specialnd				; 
		pha			;save node mask
		rep	#MBit+XBit	;from battery RAM. Full native for
		pea	0		;tool call.  Space for result.
		pea	$80		;Parameter value for node #.
		ldx	#$0C03		;ReadBParam tool call number.
		jsl	$E10000		;Do the call.
		pla			;Get the result.
		sep	#MBit+xbit	;8 bit A. and X
		plx			;get node flag
		bmi	specialsrv
		and	#$7f		;put in workstation range
		bra	NotZ
specialsrv				; 
		ora	#$80		;must have high bit on
NotZ					; 
		rep	#xbit		;back to 16 bit x

***************************************************************
*
*  'NewNode' tries to find an unclaimed node number on the network.  If the
*  value passed in A is 0, it picks a random non-server node number and
*  increments it until it has found an address.  If A holds $ff, a random
*  server node number is picked and incremented until an address has been found.
*  Any other number in A is used as the first attempt and similarly incremented
*  until an address is found.
*
*  Inputs:  A = 0 for randomly assigned non-server node (1..127).
*           A = 255 for randomly assigned server node (128..254).
*           A = n for randomly assigned node, using 'n' to start the search.
*
*  Outputs: A,X trashed.
*           'source' holds the node we picked.
*
****************************************************************
*
NewNode					; 
		stz	addrValid
		ldx	#127		;X is the number of nodes to try.
		inc	A		;Check for 255.
		bne	NNNotServer	;If not 255, check for 0.
		jsr	Random		;Get a random number.
		lda	seed+1
		ora	#128		;Make it a server node.
		cmp	#255		;Illegal?
		bne	NNTryNode	;No. Try it.
		dec	A		;Back up to a legal value.
		bra	NNTryNode	;Try it.
NNNotServer				; 
		dec	A		;Now check for 0.
		bne	NNTryNode	;If not 0, use as a starting node num.
		jsr	Random		;If 0, get a random byte
		lda	seed+1
		and	#127		;and turn it into a non-server node.
		bne	NNTryNode	;If not zero, try it.
		inc	A		;Otherwise, inc to 1.
NNTryNode				; 
		phx
		pha
		jsr	TryNode		;See if anyone else has this node.
		pla
		plx
		bcs	NNNextNode	;Carry set -> node taken, try next one.
		sta	addrValid	;Node unclaimed: set the 'addrValid'
		rep	#MBit+XBit	;flag, store node # in battery RAM. Full
		pha			;native for tool call. Put node # on
		pha			;stack, and again for later.
		pea	$80		;Parameter value for node #.
		ldx	#$0B03		;WriteBParam tool call number.
		jsl	$E10000		;Do the call.
		pla			;Get back the node #.
		plp			;Restore mode and return with
		rts			;the node in A.

NNNextNode				; 
		inc	A		;Try next node number.
		cmp	#255		;Check for invalid server node number.
		bne	NNNot255	;Nope.
		lda	#128		;Restart with the next valid server.
		bra	NNCheckDone	;See if done yet.
NNNot255				; 
		cmp	#128		;Check for invalid non-server node.
		bne	NNCheckDone	;Nope.
		lda	#1		;Restart with the next valid node.
NNCheckDone				; 
		dex			;See if we've tried all 127 nodes.
		bne	NNTryNode	;X <> 0 --> not done, try this node.
		lda	#$FF		;Tried 128 times, but didn't get a
		plp			;node.  Return $FF.
		rts

SCCTable				; 
		DC.B	1,DisRxInt	;Disable receiver interrupts.
		DC.B	15,0		;No external interrupts.
		DC.B	4,SDLCMode	;Set SDLC mode.
		DC.B	3,DisRx		;Disable receiver.
		DC.B	5,EnbTx		;Enable transmitter.
		DC.B	ResetUnd	;Reset underrun latch.
		DC.B	ResTxCRC	;Reset transmit CRC.
		DC.B	5,DisTxRTS	;Disable transmitter.
		DC.B	7,SDLC		;Set SDLC flag pattern.
		DC.B	10,SetFM0	;Set FM0 transmission.
		DC.B	11,ClocksA	;Set clock usage.
		DC.B	12,BaudRate	;Low byte of baud rate.
		DC.B	13,0		;High byte of baud rate.
		DC.B	14,FMMode	;Set FM mode on phase locked loop.
		DC.B	14,SrchMode	;Set search mode on phase locked loop.
		DC.B	1,EnbRxInt	;Enable first character interrupts.
SCCTabEnd				; 
SCCTabSize	equ	SCCTabEnd-SCCTable


* lapresetinit
*
* code to be called to make sure that we start
* off pointing to no packets, so we won't have
* to worry about anyone calling the dispatch
* routines indirectly before appletalk gets
* initialized
* this routine is called during either a hard
* or soft reset.
* we also initialize some variables that are
* used by stack saving routines, since these
* routines get called by the dispatcher, we
* had better make sure they are set up properly
*
		EXPORT	lapresetinit
lapresetinit				;

* Now init packet buffer maintenance variables.

		php
		rep	#xbit
		longi	on
		sep	#mbit
		longa	off
		ldx	#Base+MaxSize	;Set up initial 'curEnd' value to
		stx	curEnd		;point to the end of the first
		lda	#$E0		;packet buffer in the bank E1 language
		sta	curEnd+2	;card space (E0 + offset ---> E1).
		ldx	#Base		;Set up the pointer to the beginning of
		stx	curWBuf		;the first write buffer.
		stx	curRBuf		;Also the read buffer.
		rep	#MBit
		longa	on
		stz	|buf_next,x	;Clear curRBuf->next.
		ldx	#-(MaxData+2)	;Set up offset to point to the start of
		stx	curOffset	;the LAP data field.
		stz	stksaveflag	;Clear the first byte of vars that
		ldx	#stksaveflag	;must be zero.  Point to that byte
		txy			;and use as source for MVN.
		iny			;Use next address as dest for MVN.
		lda	#(E1End-stksaveflag)-1 ;Number of bytes to clear - 1.
		mvn	$e1e1e1,$e1e1e1	;Clear the bytes.
		plp
		rts			;and return

		ENDP

****************************************************************
*
*  'TryNode' checks to see if the node number passed in A is occupied by
*  another node on the network.
*
*  Inputs:
*
*  Outputs: A,X trashed.
*           C flag cleared for node free, set for node in use.
*
****************************************************************

TryNode		PROC

		longa	off
		longi	on
		ldx	#120		;Assume it's a server: use large
		ora	#0		;maxtries.  Check it out...
		bmi	Server		;Yes, it is.
		ldx	#20		;No, it's not.  Use small maxtries.
Server					; 
		sta	dest		;Use A as our dest address as well as
		sta	source		;our node address.
		php			;Save mode.
		pha			;Save node # on stack.
		sei			;Turn off ints while accessing SCC.
		lda	#AddrReg	;Point to the address register.
		sta	(sccReg)
		pla			;Get back node number.
		sta	(sccReg)	;Use for SCC's address.
		plp			;Restore mode.
		lda	#LAPEnq		;Set LAP type to Enq.
		sta	lapType
		stz	addrUsed	;Assume not used.
TNLoop					; 
		phx			;Save X.
		jsr	XmitPacket	;Transmit the Enq, detect response.
		plx			;Restore X.
		lda	addrUsed	;See if any packets came to this
		beq	NotClaimed	;address.  If so, the address is used.
		sec			;Set carry and return, indicating
		rts			;that the address is used.
NotClaimed				; 
		dex			;If not claimed after maxtries,
		bne	TNLoop		;we believe that this address is truly
		clc			;free.  Clear carry and return.
		rts
		ENDP

****************************************************************
*
*  'Random' uses the number in 'seed' as a base for a new random number,
*  which replaces 'seed'.
*
*  Inputs:
*
*  Outputs:
*
****************************************************************

Random		PROC

		php			;Save mode.
		rep	#MBit		;16 bit A.
		longa	on
		lda	seed-1		;Get seed * 256 + garbage.
		and	#$ff00		;mask off the garbage.
		pha			;Save seed * 256.
		asl	A		;A = seed * 512.
		clc
		adc	1,S		;A = seed * 768.
		clc
		adc	seed		;A = seed * 769.
		sta	1,S		;Save seed * 769.
		lda	seed		;A = seed.
		asl	A		;A = seed * 2.
		asl	A		;A = seed * 4.
		clc
		adc	1,S		;A = seed * 773.
		inc	A		;A = seed * 773 + 1.
		sta	seed		;Update seed.
		pla			;Fix stack.
		plp			;Restore mode.
		rts

		longa	off
		ENDP
****************************************************************
*
*  'LAPRead'
*  'LAPRead' can be called with either a parameter list or parameters in
*  registers.  If C is set, registers are used.
*
*  Inputs:  X,Y = pointer to data buffer (Y = high word).
*           A = # of bytes to read (16 bit A).  Bit 15 is the purge bit: if set,
*           the buffer will be removed from the buffer list.
*
*  Outputs: A = result code, X = number of bytes actually read.
*
****************************************************************

LAPRead		PROC	EXPORT
		import	CheckAsync
		
		php
		bcs	ILAPRead	;Go do direct call.
		plp			; clean up stack
		jsr	CheckAsync
		php			; save mode again
		ldy	#lr_buffer	;Get the buffer address.
		lda	[cmndList],y
		tax			;Put low word of address in X.
		iny			;Move to high word.
		iny
		lda	[cmndList],y	;Get high word.
		pha			;Save on stack.
		ldy	#lr_count	;Get the requested byte count.
		lda	[cmndList],y
		pha			;Save byte count on stack.
		ldy	#lr_purge	;Get purge flag.
		lda	[cmndList],y
		longa	on
		and	#$ff		;Ignore high byte.
		beq	NotSet		;Flag is not set, A is 0.
		lda	#$8000		;Set purge flag.
NotSet					; 
		ora	1,s		;OR byte count with purge flag (bit 15).
		ply			;Remove byte count from stack.
		ply			;Get high word of address in Y.
		sec			;Now do direct call.
		jsr	LAPRead		;Do the call.
		pha			;Save the result.
		txa			;Get back # of bytes read in A.
		ldy	#lr_actual	;Get offset to field for number read.
		sta	[cmndList],y
		pla			;Get back result.
		jmp	LAPExit		;Save the result, return.
****************************************************************
*
*  'ILAPRead' reads the number of bytes specified by A into the buffer
*  pointed to by X and Y (Y = high word).  The result code is returned in A.
*
*  Possible results:
*           NoErr: Read successful.
*           EndErr: Reached the end of the buffer before reading the number of
*                   bytes specified.
*           BufErr: No packet buffer.
*
*  Inputs:  X,Y points to buffer (Y high word), A specifies # of bytes to read.
*           16 bit A, 16 bit X.  Data bank = $E1.
*
*  Outputs: A = result code, X = number of bytes actually read.
*
****************************************************************
*
ILAPRead				; 
		jsr	EnterCrit
		rep	#MBit+XBit
		longa	on
MVNAddr		equ	$84
		pha			;Store purge bit and count.
		lda	curPos		;Is there a buffer open?
		bne	IsBuf		;Yes.
		lda	#BufErr		;No: report error.
		plx			;Remove stuff from stack.
		plp			;Get back mode.
		jmp	ExitCrit	;Return through ExitCrit.
IsBuf					; 
		pla			;Get back the count.
		pea	0		;Assume no error, push error code.
		pha			;Save count.
		and	#$7fff		;Mask off the purge bit.
		pha			;Store the count.
		lda	curLen		;See if there are enough bytes in the
		cmp	1,s		;buffer to satisfy the requested count.
		bcs	Enough		;Yes.
		sta	1,s		;No: use the number available instead
		lda	#EndErr		;of that specified and indicate error.
		sta	5,s		;Store in error loc.
		bra	Exact
Enough					; 
		beq	Exact		;Exactly the right length!
		lda	3,s		;See if purging.
		bpl	Exact		;No: ignore if buffer is 'too small.'
		lda	#ShortErr	;Otherwise, the buffer is too short.
		sta	5,s
Exact					; 
		txa			;Move low dest address to a for boundry check
		clc
		adc	1,s		;add to count to see if bank wrap would happen
		bcc	domvn		;no, so lets use MVN code for speed
		lda	1,s		;get count
		beq	Zero		;nothing to move
		stx	MVNAddr		;Store low word of destination address
		sty	MVNAddr+2	;Store high word of destination address
		tay			;use as index and counter
		clc
		phy			;use to calculate offset
		lda	curPos		;get start of buffer
		adc	1,s		;move to end position
		plx			;discard stack stuff
		tax			;move index to x register (points to last char)
		tya			;get index for odd test
		lsr	a		;see if number of bytes to move is odd
		bcc	lapmovelp	;go ahead and move 2 bytes at a pop
		dey			;only do one byte to get us on an even keel
		dex
		sep	#mbit
		lda	|0,x		;get the source byte
		sta	[mvnaddr],y	;and store the odd byte
		rep	#mbit		;back to 16 bit accum
lapmovelp				; ;should always be working with even number of bytes
		dey			;when we get this far.
		dey			;back up counter
		bmi	Zero		;we are done when this is less than zero
		dex
		dex			;and source position
		lda	|0,x		;get 2 source bytes
		sta	[mvnaddr],y	;and move them
		bra	lapmovelp	;go do more
domvn					; 
		lda	#MVNOp		;Set up a move instruction in ZP.
		sta	MVNAddr
		sty	MVNAddr+1	;Put dest bank from Y in ZP, then source
		lda	#$E1+256*RTLOp	;bank ($e1), then RTL instruction.
		sta	MVNAddr+2
		txy			;Move low dest address to Y for MVN.
		ldx	curPos		;Move low src address to X for MVN.
		lda	1,s		;Get the count.
		beq	Zero
		dec	A		;Adjust the count.
		phb			;Save bank on stack.
		jsl	>MVNAddr	;Do the move.
		plb			;Get it back.
Zero					; 
		lda	curLen		;Modify the length of the rest of the
		sec			;packet.
		sbc	1,s		;Subtract the number of bytes read.
		sta	curLen		;Store it.
		lda	curPos		;Also modify the current read position.
		clc
		adc	1,s		;Add the number of bytes read.
		sta	curPos
		plx			;Get back count.
		pla			;Get back purge bit.
		bpl	NoPurge		;Don't purge.
		stz	curPos		;Purge: no buffer anymore.
		phx			;Save count during freebuf.
		sep	#MBit		;8 bit A for freebuf.
		jsr	FreeBuf		;Purge the buffer.
		rep	#MBit		;Back to 16 bits.
		plx			;Get back count.
NoPurge					; 
		pla			;Get back result.
		plp			;Restore mode.
		jmp	ExitCrit	;Return through ExitCrit.
		longa	off
		ENDP

****************************************************************
*
*  'GetGlobal' must be called with a parameter list.
*
****************************************************************
*
* GWS 2/10/88 - fixed bug where we would hang if you called this
* before actually receiving any data.
*
****************************************************************

GetGlobal	PROC	EXPORT
		import	CheckAsync

		jsr	CheckAsync	; 7-Oct-91 MSD
		
		php
		longa	on
		longi	on
		lda	curpos		;see if anything valid has been received
		bne	getglobok	;there is something to read (GWS 2/10/88)
		lda	#$200+buferr	;we got a buffer error
		jmp	LapExit2	;get out of here
getglobok				; 
		ldy	#gg_buffer	;Get the buffer address.
		lda	[cmndList],y
		tax			;Put low word of address in X.
		iny			;Move to high word.
		iny
		lda	[cmndList],y	;Get high word.
		tay			;Put high word of address in Y.
****************************************************************
*
*  'IGetGlobal' reads the first 16 bytes of the packet, including the LAP
*  header, into the buffer pointed to by X,Y (Y = high word).  The result code
*  is returned in A, and the number of bytes actually read is returned in X.
*
*  Possible results:
*           NoErr: Read successful.
*           BufErr: No packet buffer.
*           EndErr: Reached the end of the buffer before reading 16 bytes.
*
*  Inputs:  X,Y points to buffer (Y high word).
*           16 bit A, 16 bit X.  Data bank = $E1.
*
*  Outputs: A = result code, X = number of bytes actually read.
*
****************************************************************
*
IGetGlobal				; 
		jsr	EnterCrit
		longa	on
		stx	execaddr
		sty	execaddr+2	;set up pointer to users buffer
		ldx	curRBuf		;Get pointer to the actual buffer.
		lda	|buf_len,x	;Get the length of the packet.
		adc	#3		;Add 3 for the LAP header.
		ldy	#ggb_length	;offset to length part of users buffer
		sta	[execaddr],y
ggmove					; ;needs y to be set to length field offset
		dey
		dey
		bmi	ggmovedone	;we are done moving data
		lda	|lapdest,y	;get data to move
		sta	[execaddr],y	;move the data to the users buffer
		bra	ggmove		;and move some more
ggmovedone				; 
		lda	#0		;no error
NotErr					; 
		jsr	ExitCrit
		jmp	LAPExit2
		longa	off

		ENDP

****************************************************************
*
*  'AttachProt' can be called with either a parameter list or parameters in
*  registers.  If C is set, registers are used.
*
*  Inputs:  A = the protocol number, X,Y = handler address (Y = high word).
*
*  Outputs: A = result.
*
****************************************************************

AttachProt	PROC	EXPORT
		import	CheckAsync
		
		EXPORT	lattachprot
lattachprot				;       

		php
		bcs	IAttachProt	;Go do direct call.
		plp
		jsr	CheckAsync
		php
		ldy	#ap_handler	;Get the handler address.
		lda	[cmndList],y
		tax			;X gets low address word.
		iny			;Move to the high word.
		iny
		lda	[cmndList],y	;Get high address word.
		pha			;Save on stack.
		ldy	#ap_prot	;Get the protocol type.
		lda	[cmndList],y
		ply			;Y gets high address word.
		sec			;Direct call.
		jsr	AttachProt	;Do the call.
		jmp	LAPExit		;Exit, setting result.
IAttachProt				; 
		sep	#MBit
		phx
		phy
		jsr	EnterCrit	;Critical code portion.
		cmp	#$FF		;Is it the catch all protocol handler?
		bne	NotCatch
		ldx	catchProt
		bne	IsDup		;If a catch-all is installed, duplicate
		ldx	catchProt+2
		bne	IsDup		;Ditto.
		ply			;Otherwise, we can install as catch-all
		sty	catchProt+2	;handler.
		plx
		stx	catchProt
		bra	ExitOK
NotCatch				;
		jsr	FindProt	;See if the protocol is already there.
		bcs	IsDup		;If so, error.
		ldx	freeProt	;Did FindProt find a free protocol
		bpl	NotFull		;slot?  If positive, yes.
		lda	#FulProtErr	;Negative: protocol list full.
		bra	Error
NotFull					; 
		ora	#0
		beq	Illegal		;If 0, illegal.
		bpl	Legal		;If < $80, legal.
Illegal					; 
		lda	#IllProtErr	;Otherwise, illegal protocol type.
		bra	Error
Legal					; 
		sta	|protTable,X	;Store the prot #.
		rep	#MBit		;16 bit A.
		pla			;Get high word of handler address.
		sta	|protTable+4*MaxProts,X	;Store in the entry.
		pla			;Get low word of address.
		sta	|protTable+2*MaxProts,X	;Store it.
ExitOK					; 
		longa	on		;Not always true, but we use a NOP to
		lda	#NOPOp*256	;make things OK.  Clears low byte for
		longa	off		;successful result code.
Exit					; 
		plp
		jmp	ExitCrit	;No longer critical, and return.
IsDup					; 
		lda	#DupProtErr	;Else, return duplicate error.
Error					; 
		ply
		plx
		bra	Exit
		ENDP

****************************************************************
*
*  'FindProt' sees if the protocol # passed in A has a handler in the table.
*  If so, a pointer to the table entry is in X and C = 1.  If not, 'freeProt'
*  is set to point to a free entry in the table (or $ffff if none) and C = 0.
*
*  Inputs:
*
*  Outputs:
*
****************************************************************

FindProt	PROC

		ldy	#$ffff		;Assume that no free slot can be   
		ldx	#MaxProts*2	;found.  Point to past end of table.
FPLoop2					; 
		sty	freeProt
FPLoop					; 
		dex
		dex
		bpl	NotEnd		;If +, not at end of table.
		clc			;Otherwise, clear C to indicate
		rts			;entry not found and return.
NotEnd					; 
		cmp	|protTable,x	;See if this is the protocol.
		bne	NotThis
		sec			;This is the one.  Set C to indicate
		rts			;we found it and return.
NotThis					; 
		ldy	|protTable-1,x	;Get entry's prot type in high byte.
		bpl	FPLoop		;If not minus, it's not free, so loop.
		txy			;Else record a free slot's position.
		bra	FPLoop2
		ENDP

****************************************************************
*
*  'RemoveProt' can be called only with parameter list.
*
****************************************************************

RemoveProt	PROC	EXPORT
		import	CheckAsync
		
		jsr	CheckAsync
		
		php
		sep	#MBit		;8 bit A.
		ldy	#rm_prot	;Get the protocol to remove.
		lda	[cmndList],y
		jsr	EnterCrit	;Enter critical section.
		cmp	#$FF		;See if it's the catch-all protocol.
		bne	NotCatch
		ldx	catchProt	;Is there a catch-all protocol handler
		bne	OK		;installed? Yes, can remove it.
		ldx	catchProt+2
		beq	Missing		;Not installed: can't remove it.
OK					; 
		ldx	#0		;Clear the catch all handler.
		stx	catchProt
		stx	catchProt+2
		txa			;0 result code for success.
		bra	Exit
NotCatch				; 
		cmp	#00		;see if illegal type
		beq	Rillegal	;yes, so report error
		bmi	Rillegal	;also bad if negative
		jsr	FindProt	;See if we can find this protocol.
		bcs	Found		;Yes: maybe remove it.
Missing					; 
		lda	#MisProtErr	;Protocol is missing, so can't remove
		bra	Exit		;it. Return.
Rillegal	lda	#IllProtErr	;illegal protocol type
		bra	Exit
Found					; 
		lda	#$ff		;If not, it can be removed from the
		sta	|protTable,x	;table by making its slot empty.
		inc	A		;Inc to successful result code (0).
Exit					; 
		jsr	ExitCrit	;No more critical code: return.
		jmp	LAPExit		;Go back.                        
		ENDP


Save16		PROC
		php
		rep	#MBit+XBit
		longa	on
		phx			;We save X only.
		ldx	#cmndList	;Save ZP space.
		lda	#16		;Save 16 bytes.
		jsr	SaveZP
		plx			;Get back X.
		plp
		rts
		longa	off
		ENDP

Restore16	PROC
		php
		rep	#MBit+XBit
		longa	on
		phx			;We save X only.
		ldy	#cmndList	;Restore ZP space.
		lda	#16		;Restore 16 bytes.
		jsr	RestoreZP
		plx			;Get back X.
		plp
		rts
		longa	off
		ENDP

GetBank		PROC
		lda	StateReg
		ply			;Get return address.
		pha			;Save memory state.
		phy			;Put return address back.
		lda	LCBank2		;Read language card RAM.
		lda	LCBank2		;Also write it.
		rts
		ENDP

UnGetBank	PROC
		ply			;Get return address.
		pla			;Get previous memory state.
		sta	StateReg
		phy
		rts
		ENDP

****************************************************************
*
*  'PacketIRQ' handles packet interrupts.
*
*  Inputs:
*
*  Outputs:
*
****************************************************************
*
* GWS - 2/10/88 - we no longer accept packets when our buffer
* space is full, before we accepted the packet and threw it away
* this also fixes, by default, the problem we had where we didn't 
* set the needData flag back to zero in all cases.
*
* 21-Aug-91 MSD	Fixed so that it waits for the third data byte to
*		actually be available (but I won't wait too long).
*		Also changed to run at 1Mhz so that timing loops in
*		send and receive code will work with accellerators.
*
*		Note: We always enter at fast speed, so I'll wait
*		to slow down until just before the first call to
*		RecvBytes (which is timing dependent).
*
****************************************************************

PacketIRQ	PROC

		rep	#XBit		;16 bit indexes.
		ldx	whichSCC	;Get pointer to current SCC port.
; Begin 21-Aug-91 MSD
		ldy	#TByte1
		SlowDown
@loop
		lda	|0,x		; get status byte
		and	#RxAvail	; data ready to read?
		bne	@data
		dey			; timed out yet?
		bne	@loop		; no, keep waiting
@data
		SpeedUp
; End 21-Aug-91 MSD
		lda	|2,X		;Get the 3rd data byte, which has been
		sta	scc3		;waiting for us, and save it.
		jsr	GetBank		;Save StateReg, change to LC bank 2.
		jsr	Save16		;Save 16 bytes of ZP on private stack.
		stx	sccReg		;Store address of control register.
		inx
		inx
		stx	sccDat		;Store address of data register.
		stz	pktError	;No receive errors (yet).
		lda	scc3		;Look at LAP type: if it's not a LAP
		bmi	LAPPkt		;control packet, ignore it and exit.
ExitBranch				; 
		jmp	ExitPktIRQ
LAPPkt
		sec			;Indicate single byte mode to RecvBytes.
		jsr	RecvBytes	;Get first byte of CRC.
		bcc	ExitBranch	;C = 0 means last byte. Error, so exit.
		jsr	RecvBytes	;Get second byte of CRC.
		bcs	ExitBranch	;Not last byte. Error, so exit.
		lda	pktError	;See if any errors occured during
		bmi	ExitBranch	;reception.  Yes, exit.
		inc	scc1		;Look at dest address.
		beq	BCast		;If it's not broadcast,
		sta	addrUsed	;show activity on our address.
BCast					; 
		lda	addrValid	;If our address isn't valid,
		beq	ExitBranch	;exit.
		lda	scc3		;No errors. Look at the LAP type.
		cmp	#LAPRTS		;Is it a request to send?
		bne	NotRTS		;No.
		ldy	curOffset	;Get offset to current buffer (GWS 2/10/88)
		beq	ExitBranch	;buffer is empty so don't send CTS
		ldx	curEnd		;Set ptr0 = curEnd.
		stx	ptr0
		ldx	curEnd+2
		stx	ptr0+2
		inc	needData	;Indicate that we need a data packet.
		stz	gotData		;No data yet.
		lda	scc1		;See if broadcast.
		bne	DoCTS		;If not, do a CTS.
		jsr	RecvInit	;Otherwise, init the receiver for the
		bra	GetData		;data packet and try to receive.
DoCTS					; 
		ldx	scc2		;Get source of the RTS and use it as
		lda	#LAPCTS		;the dest for a CTS packet.
		jsr	fXmitLAP	;Send the CTS (without sync) and init the receiver.
GetData					; 
		ldy	curOffset	;Get offset of current buffer.
		jsr	RecvPacket	;Try to receive the data packet.
		stz	needData	;Back to normal mode. (should always get here after inc above)
		lda	gotData		;See if we got the data.
		beq	ExitNoInit	;Nope.
		jsr	NewPacket	;Yep.  Add the packet to the list.
TryDispatch				; 
		lda	busyFlag	;See if higher level protocols are busy.
		bne	ExitNoInit	;Busy, so don't try to dispatch a pkt.

		jsr	dothedispatch

NotRTS					; 
		cmp	#LAPEnq		;Is it an enquiry?
		bne	ExitPktIRQ	;No.  We don't handle it.
		ldx	scc2		;Get source of the Enq and use it as
		lda	#LAPAck		;the dest for an Ack packet.
		jsr	fXmitLAP	;Send the Ack (without sync) and init the receiver
		bra	ExitNoInit	;and exit.

ExitPktIRQ				; 
		jsr	RecvInit	;Initialize receiver for other packets.
ExitNoInit
		jsr	Restore16	;Restore 16 bytes of ZP from our stack.
		jsr	UnGetBank	;Restore memory state.
		sep	#XBit+MBit	;For returning to interrupt handler.
		lda	#3		;Point to RR3 (interrupt status reg).
		sta	sccAReg
		lda	sccAReg		;Get the latest value of RR3 to replace
		ora	SCCFlag2	;Fern's byte saved on the stack, and set
		sta	4,s		;our bit so he'll know we did something.
		clc			;Clear C to indicate we serviced the
		rtl			;int.

dothedispatch				; 
* WARNING!!!
* we use the overflow flag to indicate whether or not
* we need to save the 16 bytes of zero page since the
* other zero page was saved on the aux side before we
* did a switch...therefore, MAKE SURE ANY CODE ADDED
* DOES NOT AFFECT THE OVERFLOW BIT BETWEEN WHERE WE
* SET IT AND WHERE WE PUSH A COPY OF IT ONTO THE STACK
*
		inc	busyFlag	;Make it busy for Dispatch.
		jsr	SaveState	;Save interrupt vars. so interrupts can occur again
		tsx			;get current stack pointer
		stx	dstack		;save for later
		sep	#xbit+vbit	;8 bit x, set overflow bit to indicate normal stack
		tsc			;get stack in a for tests
		xba			;see what page of memory stack is in
		eor	#1		;is it page 1
		bne	notinauxarea	;no, so don't need to worry about stack being in aux
		ldx	rdaltzp		;see if alt stack is in
		bpl	notinauxarea	;not in, so use stack as is
		xba			;get low word of stack pointer back
		sta	>altsp		;and save, so we can get it later
		lda	#1
		xba
		lda	>mainsp		;get main stack pointer
		tcs			;and use it
		clv			;we had the aux stack in, so must save main zp
notinauxarea				; 
		lda	statereg	;get state
		sta	dstate		;save it
		ldx	|rd80col	;see if 80store set
		bpl	irno80		;no
		and	#$bf		;force page 1
irno80					; 
		and	#$40		;put in standard state
		ora	#$08
		sta	statereg	;now we are in a known state
		lda	lcbank2
		lda	lcbank2		;appletalk needs lcbank2 read/write enabled
		rep	#xbit		;back to 16 bit x
		php			;save a copy of v bit (flag for which zp was in)
		bvs	@noextrasave	;no need to save zero page, already done
		jsr	Save16		;save the 16 bytes of zero page on the main side
@noextrasave
		php
		rep	#mbit+xbit
		jsl	incbusyflag	;don't let scheduler come in here (critical code)
		plp
		cli			;occur again, and turn on ints.
		jsl	PDispatch+$E10000 ;while (busy == 0) dispatch packets.
		sei			;Interrupts off.
		lda	#$e1		;make sure bank e1 restored
		pha
		plb
		dec	busyFlag	;Remove the busy set for Dispatch.
		rep	#mbit+xbit
		lda	dstate
		pha			;need to use stack, since
		lda	dstack		;decbusyflag may re-enable ints
		pha			;causing these vars to get changed
		jsl	decbusyflag	;let scheduler dispatch now (atalk active again)
		plx			;recover the dstack variable
		pla			;get the state variable
		plp			;should be 8 bit a, 16 bit x
		bvs	@noextrarestore	;no need to do the restore
		pha
		jsr	Restore16	;restore the main zero page that was saved above
		pla			;recover the state variable
@noextrarestore
		sta	statereg	;and restore it
		txs			;restore stack
		jsr	RestorState	;Get back interrupt vars.
		rts			;and return
		ENDP

****************************************************************
*
*  'QtrSecIRQ' handles quarter second interrupts.
*
*  Inputs:
*
*  Outputs:
*
****************************************************************

QtrSecIRQ	PROC

		php
		phb
		sep	#MBit
		rep	#XBit		;16 bit index.
		lda	#$E1		;Point to bank E1.
		pha
		plb
		sta	CLRVBLINT	;Clear the 1/4 sec interrupt.
		inc	deltaT		;Time since the dispatcher got called.
		lda	busyFlag	;Can we call the dispatcher now?
		bne	NoDispatch	;No.
		jsr	GetBank		;R/W LC bank 2, save StateReg on stack.
		jsr	SaveState	;Save state so ints can occur again.
		jsr	Save16		;Save some ZP.
		lda	deltaT		;Tell the dispatcher how long it's been.
		stz	deltaT		;Clear timer.
		inc	busyFlag	;We're busy.
		rep	#MBit		;16 bit A for dispatch.
		jsl	incbusyflag	;tell scheduler we are critical
		cli			;Enable those ints!
		jsr	stacksave	;save off stack if needed
		jsr	QtrSched	;Go to the scheduler.
		sep	#MBit		;8 bit A for PDispatch.
		jsl	PDispatch+$E10000 ;Dispatch packets.
		jsr	stackrestore	;restore the stack space
		dec	busyFlag	;Not busy anymore.
		php
		rep	#mbit+xbit
		jsl	decbusyflag	;let the scheduler call it's task
		jsl	OnExitVector	;Call our new vector!
		plp
		sei			;Disable ints.
		jsr	Restore16	;Get back ZP.
		jsr	RestorState	;Get back info.
		jsr	UnGetBank	;Restore memory state.
NoDispatch				; 
		plb
		plp
		clc
		rtl
		ENDP

****************************************************************
*
*  'SaveState' puts interrupt vars on our private stack.
*
*  Inputs:
*
*  Outputs:
*
****************************************************************

SaveState	PROC

		php
		rep	#MBit+XBit
		longa	on
		ldx	#irq_intflag
		lda	#9		;Save 9 bytes.
		jsr	SaveE1		;Save other interrupt vars on stack.
		ldx	#irq_A
		lda	#19		;Save 19 bytes.
		jsr	SaveE1		;Save interrupt vars on private stack.
		sep	#MBit		;8 bit A.
		stz	|irq_active	;Pretend ints are not active.
		plp
		longa	off
		rts
		ENDP

****************************************************************
*
*  'RestorState' gets interrupt vars off of our private stack.
*
*  Inputs:
*
*  Outputs:
*
****************************************************************

RestorState	PROC

		php
		rep	#MBit+XBit
		longa	on
		ldy	#irq_A
		lda	#19		;Restore 19 bytes.
		jsr	RestoreE1	;Restore interrupt vars fromon stack.
		ldy	#irq_intflag
		lda	#9		;Restore 9 bytes.
		jsr	RestoreE1	;Restore other vars from stack.
		plp
		longa	off
		rts
		ENDP

LongForbid	PROC	EXPORT
		jsr	Forbid
		rtl
		ENDP

LongPermit	PROC	EXPORT
		jsr	Permit
		rtl
		ENDP

****************************************************************
*
*  'EnterCrit'
*
*  Inputs:
*
*  Outputs:
*
****************************************************************

EnterCrit	PROC

		EXPORT	lforbid
lforbid					;       
		EXPORT	Forbid
Forbid					; 

		pha
		php
		phb
		sep	#mbit
		longa	off
		lda	>statereg	;get state of machine
		pha
		and	#$cf		;bits 4&5 zero force read and write main bank
		sta	>statereg
		rep	#mbit+xbit
		jsl	incbusyflag	;tell scheduler we are busy
		sep	#MBit		;8 bit A.
		lda	#$E1
		pha
		plb
		inc	busyFlag
		pla			;recover state of machine
		sta	>statereg	;and restore it
		plb
		plp			;Restore state.
		pla
		rts
		ENDP

****************************************************************
*
*  'ExitCrit'
*
*  Inputs:
*
*  Outputs:
*
****************************************************************

ExitCrit	PROC

		longa	off
		EXPORT	Permit
Permit					;       
		EXPORT	lpermit
lpermit					;   

		pha
		phx
		phy
		phd			;save off direct page
		pea	$0000		;prepare to set direct page to zero
		pld			;get direct page of zero
		php
		sep	#MBit		;8 bit A.
		longa	off
		lda	>statereg	;get state of machine
		pha
		and	#$cf		;bits 4&5 zero force read and write main bank
		sta	>statereg
		rep	#XBit		;16 bit X.
		phb
		lda	#$E1		;Change to bank E1.
		pha
		plb
		jsr	GetBank		;Get LC bank 2.
		php			;Save mode for later.
		sei			;No ints while changing busyFlag.
		dec	busyFlag
		bne	Done		;If zero, we can try to dispatch
		ldx	curRBuf		;packets.  Are packets available?
		lda	|buf_next+1,x	;Look at high byte of next field:
		beq	NoPkts		;If zero, no packets.
		inc	busyFlag	;packets.  Increment busy for Dispatch.
		plp			;Get back state of interrupt
		php			;enable flag and save again.
		jsr	Save16		;Save 16 bytes of ZP.
		jsl	PDispatch+$E10000 ;try to dispatch a packet.
		jsr	Restore16	;Get back ZP.
		sei			;No ints while looking at busy flag.
		dec	busyFlag	;Undo the busy. If still zero,
		bne	Done		;check for a pending 1/4 sec interrupt.
NoPkts					; 
		lda	deltaT		;If time > 0, one is waiting.
		beq	Done		;Zero, none waiting.
		stz	deltaT		;Clear timer.
		inc	busyFlag	;Now we're busy.
		plp			;Get back int enable state.
		php
		rep	#MBit+XBit
		jsr	QtrSched	;Dispatch 1/4 sec interrupts.
		sei
		dec	busyFlag	;Undo the busy.
Done					; 
		plp
		jsr	UnGetBank	;Restore memory state.
		rep	#mbit+xbit
		jsl	decbusyflag	;let scheduler run now if down to zero
		plb
		sep	#mbit		;state is 1 byte
		pla			;recover state of machine
		sta	>statereg	;and restore it
		plp
		pld			;recover original direct page
		ply
		plx
		pla
		rts
		ENDP

***************************************************************
*
*  'RecvPacket' should be called to receive a packet from a non-interrupt
*  environment.  The routine will wait a maximum of IFGTime (200 usec.)
*  for a packet before returning with a time out error.  Only 3 packet classes
*  are accepted: LAPAck, LAPCTS, and non LAP-control packets (i.e., data
*  packets).  Any directed packet (non broadcast), however, will set the flag
*  'addrUsed'.  LAPCTS packets will set the flag 'gotCTS', and data packets
*  will set the flag 'gotData'.  Data packets will only be accepted if the flag
*  'needData' is set.
*
*  Inputs:
*
*  Outputs:
*
* 21-Aug-91 MSD	Changed timing to run at 1Mhz.  The timing for the WaitIFG
*		loop is 5+2+2+2+3=14 cycles.  DataAvail loop is also 14
*		cycles, but has an overhead of 5+4+2+2+2+3=18 cycles, so
*		I'll use TByte1-1 as a loop counter.
*
* 22-Aug-91 MSD	Changed to slow down only at the timing loop.
*
****************************************************************

RecvPacket	PROC

		stz	pktError	;No receive errors (yet).
		ldy	#0		;Point to scc1 (, 2, 3).
		ldx	#TIFGap1		;Wait max of IFG (200 us) for packet.
		clc			;Set up loop info on stack for later.
		php			;Push a flag with C=0 to stop the loop.
		sec
		php			;Push 3 flags with C=1 to get 4 bytes.
		php
		php
		SlowDown		; 22-Aug-91 MSD
WaitIFG					; 
		lda	(sccReg)	;Check for data ready.
		and	#RxAvail
		bne	DataAvail
		dex			;Check for time out.
		bne	WaitIFG
		SpeedUp			; 22-Aug-91 MSD
		jmp	ErrExit		;Time out, so exit.
DataAvail				; 
		lda	(sccDat)	;Get data.
		sta	scc1A,y		;Store it.
		iny			;Point to the next byte.
		ldx	#TByte1-1	;Reset time out timer for single byte.
		cpy	#3		;See if we've gotten all 3 bytes yet.
		bne	WaitIFG		;Keep looping.
		SpeedUp			; 22-Aug-91 MSD
		lda	scc3		;Look at LAP type.
		bmi	LAPPkt		;Go handle LAP packet.
		lda	needData	;Do we need a data packet?
		beq	Exit		;No: exit.
		ldy	curOffset
		lda	scc3		;See if this packet needs to be check-
		cmp	#DDPLong	;summed.
		bne	AfterHeader	;If not, just get data.
		sec			;Single byte mode.
RLoop					; 
		jsr	RecvBytes	;Get a byte of DDP header.
		sta	[ptr0],y	;Store it.
		iny
		plp			;Get loop control off stack.
		bcs	RLoop		;If C set, loop.
		phx			;Push 4 dummy bytes on stack.
		phx
AfterHeader				; 
		stz	cmndList	;Zero the checksum.
		stz	cmndList+1
		clc			;Indicate multi byte mode.
		jsr	RecvBytes	;Receive the whole packet.
		lda	pktError	;See if any errors occured.
		bmi	Exit		;Yes. Exit.
		lda	addrValid	;Is our address valid?
		beq	Exit		;No: exit.
		inc	gotData		;Indicate that we got a data packet.
		ldx	cmndList	;Put the checksum in page E1.
		stx	ckSum
		bra	Exit		;Return.

LAPPkt					; 
		sec			;Single byte mode.
		jsr	RecvBytes	;Get first CRC byte.
		bcc	ErrExit		;Last byte: error, so exit.
		jsr	RecvBytes	;Get second CRC byte.
		bcs	ErrExit		;Not last byte: error, so exit.
		lda	pktError	;See if any errors.
		bmi	Exit		;Yep. Exit.
		lda	scc3		;Look at LAP type.
		cmp	#LAPCTS		;Is it a CTS?
		bne	Exit		;No, so don't do anything.
		sta	gotCTS		;Yes, register it.
		bra	Exit
ErrExit					; 
		dec	pktError	;If get here, pktError was 0. Now $ff.
Exit					; 
		plx			;Remove loop control bytes from stack.
		plx
		lda	pktError	;Was there an error?
		bmi	BCST		;Yes, ignore the packet.
		lda	scc1A
		cmp	source		;Is it to our address?
		bne	BCST		;No, must be broadcast.
		sta	addrUsed	;someone is using this address.
BCST					; 
		jmp	RecvInit	;Init receiver for other packets
		ENDP

****************************************************************
*
*  'RecvBytes' reads bytes into the current receive buffer.  It has two
*  modes of operation, depending on the setting of the C bit when called.
*  If C is cleared when called, bytes will be continuously read until the
*  end of the packet or an error occurs, and each byte will be added to the
*  'ckSum'.  If C is set, however, only one byte will be read and returned
*  in A without being buffered or added to the checksum.  Control will
*  be passed immediately back to the caller.
*
*  Inputs:
*
*  Outputs:
*
* 22-Aug-91 MSD	Changed to slow down only around timing loop.
*
* 25-Aug-91 MSD	Changed the CRC calculation to use a slightly faster
*		way of shifting A left (doing a ROL without carry).
*		Changed the MultiMode branch to be more efficient
*		(don't do SEC if already set, fall through a branch
*		to get to MultiMode).
****************************************************************

RecvBytes	proc			; 25-Aug-91 MSD: used to be an entry

		lda	(sccReg)	;Look at the byte available bit.
		and	#RxAvail
; 23-Aug-91 MSD: Changed following branch from Loop2 to Loop2A.  The timing
; is so tight that the extra 4us takes too long.
		bne	Loop2A		;Got a byte: continue (already fast).
		ldx	#TByte1		;Byte time out.
		SlowDown		; 22-Aug-91 MSD
Loop1					; 
		lda	(sccReg)	;Look at the byte avail bit.
		and	#RxAvail
		bne	Loop2
		dex			;Check for time out.
		bne	loop1
		SpeedUp			; 22-Aug-91 MSD
		lda	#TOutErr	;Time out error.
		bra	DoError
Loop2
		SpeedUp			; 22-Aug-91 MSD
		lda	#1		; 22-Aug-91 MSD (Restore A to 1)
Loop2A
		sta	(sccReg)	;If we get here, A = 1 (point to
		lda	(sccReg)	;read register 1). Get error status.
		and	#$A0		;Check for end of frame or overrun.
		bne	Special		;Handle special case.
		lda	(sccDat)	;Get the data byte.
; Begin 25-Aug-91 MSD
		bcs	RecvRTS		; exit carry set: indicate not end of packet
					; else, fall into MultiMode (carry clear)
MultiMode				; 
		sta	[ptr0],y	;Store the byte.
		iny			;Move to next byte.
		beq	TooBigErr	;If zero, buffer is full.
		rep	#MBit		;16 bit A.
		longa	on
		and	#$ff		;Mask off high byte.
		adc	cmndList	;Add new byte to the checksum.
; 25-Aug-91 MSD
; The following code will rotate A left with the high bit going directly into
; the low bit.  It also leaves the carry clear to continue multibyte mode.
		asl	a		; put high bit in carry, clear low bit
		adc	#$0000		; adds carry to low bit, clears carry
; End 25-Aug-91 MSD
		sta	cmndList	;Store it.
		sep	#MBit		;Back to 8 bits.
		longa	off
		bra	RecvBytes	;Loop. C = 0 still for multi-byte mode.

TooBigErr				; 
		lda	#tBigErr	;Set the appropriate error bit.
		bra	DoError

Special					; 
		bmi	LastByte	;If -, last byte in packet.  Else
;                                        overrun bit is set in A. Record it.
DoError					; ;Decide whether or not to record the
		ora	#$80		;error.  Set the error bit.
		tax			;Get pktError and look at the lock bit
		lda	pktError	;to see whether we should report this
		and	#1		;new error.  If set, don't record.
		clc			;Indicate end of packet (whether or not
		bne	NoRecord	;it's the end).
		txa			;Get back the new error.
		tsb	pktError	;Record it.
NoRecord				; 
		rts

LastByte				; 
		lda	#1		;Get status register again.
		sta	(sccReg)
		lda	(sccReg)
		and	#$60		;Mask all but CRC and overrun errors.
		bne	DoError		;Use bits in A as error bits.
		lda	#1		;If not an error, a packet has been
		sta	pktError	;successfully received, so set the lock
		clc			;bit and clear C to indicate the end of
RecvRTS		rts			;the packet.
		ENDP
**************************************************************
*
*  'XmitPacket' performs CSMA.CA transmission of the packet in the buffer
*  data structure pointed to by 'xmitBDS'.
*
*  Inputs:  'dest', 'lapType', and 'xmitBDS'
*
*  Outputs:
*
* 21-Aug-91 MSD	Changed timing loops to run at 1Mhz so they'll
*		work with accellerators.
*
* 22-Aug-91 MSD	Changed to slow down only around timing loops.
*
* 25-Aug-91 MSD	Changed CLD instructions to NOP (they were only used for
*		a 2us delay).
*
****************************************************************

XmitPacket	PROC

		php			;Save mode.
		sep	#MBit		;8 bits.
		lda	lapType		;Is it an Enq?
		cmp	#LAPEnq
		beq	NoCount		;If so, don't count size of BDS.
		rep	#MBit
		longa	on
CountBDS				; ;First count bytes, see if it's too long
		ldx	txBDS		;Make temporary copy of the pointer to
		stx	ptr0		;the BDS.
		ldx	txBDS+2
		stx	ptr0+2
		lda	#MaxData	;Set up to max size of LAP data.
		ldy	#0		;Point to first BDS entry.
CountLoop				; 
		pha			;Save amount left before too big.
		lda	[ptr0],y	;Get this count.
;                   beq @L1             ;ERROR if length = 0  **TGH 11/9/88
		inc	A		;See if it's $FFFF.
		beq	Done		;If so, done.
		pla			;Get back amount remaining.
		sec
		sbc	[ptr0],y	;Subtract the size of this entry.
		bpl	OKLength	;If we go -, it's too long.

;		bra @L2			;Branch around pull
;@L1		pla			;Get rid of stuff on stack
@L2		lda	#SizeErr	;Report error.
		plp			;Get back mode
		rts			;return.
OKLength				; 
		iny			;Move ahead 6 to the next BDS entry.
		iny
		iny
		iny
		iny
		iny
		bra	CountLoop	;Loop.
Done					; 
		pla			;Get stuff off stack.
		sep	#MBit
		longa	off
NoCount					; 
		ldx	whichSCC	;Set up pointers to SCC.
		stx	sccReg
		inx
		inx
		stx	sccDat
		lda	#1		;Set this bit to use the Mega II mouse
		tsb	mouseMode	;counter for line activity detection.
		lda	colHist		;Look at recent collision history.
		jsr	BitCount	;Count # of cols. in the last 8.
		bcc	AdjBk2		;<2 then check defers.
		beq	AdjBk2		;=2 then check defers.
		rol	gBackOff	;gBackOff = gBackOff * 2 + 1 (mask bit).
		stz	colHist		;Clear collision history.
		bra	AdjBk3
AdjBk2					; 
		lda	defHist		;Look at defer history.
		jsr	BitCount	;Count defers in past 8.
		bcs	AdjBk3		;If >= 2, continue.
		lsr	gBackOff	;gBackOff = gBackOff / 2.
		lda	#$ff		;Set all def history bits.
		sta	defHist
AdjBk3					; 
		lda	gBackOff	;Copy gBackOff to
		sta	lBackOff	;our local copy.
		asl	defHist		;Throw away the oldest history bit.
		asl	colHist		;Throw away the oldest history bit.
		ldx	#$2020		;Max defers, Max collisions.
		stx	colTries	;Set them up.

CDSPktWait				; 
		plp			;Get back original setting of interrupt
		php			;enable bit.  (Could cause interrupts
					;to be serviced!)
		jsr	Random		;Generate random number now for backoff.
;
; Begin 21-Aug-91 MSD:
; Changed this code to run at 1Mhz.  The old code was:
;
;		ldy	#TWLFree	;30 msec. time out for free line.
;		ldx	whichMouse	;Pick which mouse counter to watch.
;WLFLoop					; 
;		lda	|0,X		;Clear the mouse counter.
;		jsr	RTSAddr		;Wait about a bit time.
;		lda	|0,X		;Get current count: is anyone on the
;		beq	CDSBkOff	;line?  If not, we got it.
;		dey			;Check for time out.
;		bne	WLFLoop		;No time out, continue.
;
; Timing for code in new loop is 4+2+2+4+2+2+3 = 19 cycles.
; We wait for up to 30ms for the line to become free (at most it should
; be about 23ms for a maximal length packet).
;
		ldy	#TWLFree1	;30 msec. time out for free line.
		ldx	whichMouse	;Pick which mouse counter to watch.
		SlowDown		; 22-Aug-91 MSD
WLFLoop					; 
		lda	|0,X		;Clear the mouse counter.
		nop			; wait 2 cycles
		nop			; another 2 cycles (almost a bit time)
		lda	|0,X		;Get current count: is anyone on the
		beq	CDSBkOff	;line?  If not, we got it.
		dey			;Check for time out.
		bne	WLFLoop		;No time out, continue.
;
; End 21-Aug-91 MSD
;
		SpeedUp			; 22-Aug-91 MSD
		jsr	RecvInit	;Otherwise, time out: receiver stuck,
		bra	CDSPktWait	;so reset it.

CDSBkOff
		SpeedUp			; 22-Aug-91 MSD
		ldy	#8		;Wait 400 usec. inter dialog gap,
		jsr	WLineBusy	;checking for line busy.
		bcs	CDSPktWait	;Line busy: keep waiting.
		lda	seed+1		;Get a random number.
		and	lBackOff	;And (effectively multiply) by lBackOff.
		rep	#MBit		;16 bit A.
		longa	on
		and	#$f		;Enforce max wait of 15.
		asl	a		; find number of 50us intervals
		tay			;Set for WLineBusy, 50 usec intervals.
		sep	#MBit		;Back to 8.
		longa	off
		beq	GotLine		;If random backoff time is 0, continue.
		jsr	WLineBusy	;checking for line busy.
		bcs	Defer		;Someone on line: defer.

GotLine					; 
		sei			;No ints from now on.
		stz	gotCTS		;Clear CTS received flag.
		ldx	dest		;Get dest address.
		lda	#LAPEnq		;See if sending a LAPEnq.
		cmp	lapType
		beq	DoEnq		;If so, A already has #LAPEnq.
		lda	#LAPRTS		;If not, do an RTS instead.
DoEnq					; 
		jsr	XmitLAP		;Send a LAP packet.
		lda	dest		;Check for broadcast.
		inc	A
		beq	JustWait	;If broadcast, don't expect a CTS.
		jsr	RecvPacket	;Try to receive CTS.
		lda	lapType		;Was it an enquiry?
		cmp	#LAPEnq
		bne	ChkCTS		;If not, see if we got a CTS.
		lda	addrUsed	;If so, see if anyone used our address.
		beq	Collision	;No: pretend a collision, keep trying
		plp			;enquiries. Yes: return.
		rts
ChkCTS					; 
		lda	gotCTS		;See if we got it.
		bne	TransPkt	;If so, transmit the packet.

Collision				; ;Otherwise, probably a collision.
		lda	#1		;Set the current collision history bit.
		tsb	colHist
		sec			;Multiply lBackOff by 2.
		rol	lBackOff
		lda	#RetryErr
		dec	colTries	;See if too many collisions.
		beq	Exit		;If so, exit with excess collision err.
CDSBranch				; 
		brl	CDSPktWait

Defer					; 
		lda	#1		;Set current defer history bit.
		tsb	defHist
		dec	defTries	;See if too many defers.
		bne	CDSBranch	;If not, try again.
		lda	#RetryErr	;Report excess defers error.
		bra	Exit

;
; 22-Aug-91 MSD: It actually takes us a while to get here, and more time
; to start transmitting after we delay.  Therefore, I've shortened the
; delay from 100us to 50us (the real time delay is supposed to be 200us).
; This may break with accellerators, but I'm not sure how to fix it.
;
JustWait
		ldy	#1		;Wait 50 usec, checking for line busy.
		jsr	WLineBusy
		bcs	Collision	;If someone on line, record collision.

TransPkt				; ;Otherwise, transmit the packet.
		jsr	XmitBDS
		lda	#0		;Report successful transmission.

Exit
		plp			;Restore mode.

		entry	RTSAddr		; EXPORT -> ENTRY  **TGH
RTSAddr					;     

		rts			;Return.
		ENDP

***************************************************************
*
*  'XmitLAP'  sends a 3 byte lap packet.  A contains the LAP type, X
*  contains the destination address.
*
*  Inputs:
*
*  Outputs:
*
****************************************************************

XmitLAP		PROC

		pha			;Save the LAP type on the stack.
		jsr	XmitBegin	;Start the transmission.
		lda	source		;Get our node number.
		tax
		jsr	XmitOne		;Send it.
		pla			;Get LAP type back.
		tax
		jmp	XmitEnd		;Send it and exit through XmitEnd.
		ENDP

***************************************************************
*
*  'fXmitLAP'  sends a 3 byte lap packet.  A contains the LAP type, X
*  contains the destination address. (NOTE: this does not send the
*  sync pulse at the beginning, and should only be called when we
*  are sending back immediately to someone who sent us an RTS or ENQ
*
*  Inputs:
*
*  Outputs:
*
* 28-Aug-91 MSD	Commented out turning on drivers since they're
*		turned on with the transmitter.
****************************************************************

fXmitLAP	PROC

		pha			;Save the LAP type on the stack.
		lda	#3		;Start by disabling the receiver.
		sta	(sccReg)	;Point to reg 3.
		lda	#DisRx
		sta	(sccReg)
		lda	#5		;Now enable drivers
		tay			;Y = 5.
;		sta	(sccReg)	;pulse.
;		lda	#EnbRTS
;		sta	(sccReg)
;		tya			;Now enable drivers and transmitter.
		sta	(sccReg)
		lda	#EnbTxRTS
		sta	(sccReg)
; Begin 28-Aug-91 MSD: Added send of two flags
		SlowDown
		ldy	#T2Flags1
FlagLoop
		dey
		bne	FlagLoop
		SpeedUp
; End 28-Aug-91 MSD
		lda	#ResTxCRC	;Initialize the transmitter's CRC
		sta	(sccReg)	;generator.
		txa			;Get the first character of the packet.
		sta	(sccDat)	;Send it.
		lda	#ResetUnd	;Reset transmit underrun error.
		sta	(sccReg)
		lda	source		;Get our node number.
		tax
		jsr	XmitOne		;Send it.
		pla			;Get LAP type back.
		tax
		jmp	XmitEnd		;Send it and exit through XmitEnd.
		ENDP

****************************************************************
*
*  'XmitBegin' begins a packet transmission by sending the synchronization
*  pulse, two flags, and the data byte passed in X.  The synch-
*  ronization pulse is generated by turning on the drivers, leaving
*  them on for at least a bit time (4.34us) and then turning them
*  off and leaving them off for at least two bit times (8.68us).
*
*  Inputs:
*
*  Outputs:
*
* 21-Aug-91 MSD: Changed timing loops for 1Mhz.
*
* 22-Aug-91 MSD	Changed to slow down only around timing loops.
*
* 25-Aug-91 MSD: At 2.8 Mhz, the TYA and STA (sccReg)
* [or, LDA #, STA ()] instructions will take 4us (6 fast cycles
* and 1 slow cycle). This should leave the drivers on and off each
* for 8us.  It could be as fast as 4us each at a high speed
* and cached.  Moved the slow to 1Mhz up to just before the drivers
* are turned on (was just before FlagLoop).
*
****************************************************************

XmitBegin	PROC

		lda	#3		;Start by disabling the receiver.
		sta	(sccReg)	;Point to reg 3.
		lda	#DisRx
		sta	(sccReg)
		lda	#5		;Now enable drivers for start of sync
		tay			;Y = 5.
		sta	(sccReg)	;pulse.
		SlowDown		;25-Aug-91 MSD: make sure pulse is slow enough
		lda	#EnbRTS
		sta	(sccReg)	;Enable drivers, start of sync pulse
		tya			;Now disable drivers for end of sync
		sta	(sccReg)	;pulse
		lda	#DisTxRTS
		sta	(sccReg)
		tya			;Now enable drivers and transmitter.
		sta	(sccReg)
		lda	#EnbTxRTS
		sta	(sccReg)
; 21-Aug-91 MSD: changed to T2Flags1
		ldy	#T2Flags1	;Delay long enough for two flags
					;to be transmitted. (50 usec)
FlagLoop
		dey
		bne	FlagLoop
		SpeedUp			; 22-Aug-91 MSD
		lda	#ResTxCRC	;Initialize the transmitter's CRC
		sta	(sccReg)	;generator.
		txa			;Get the first character of the packet.
		sta	(sccDat)	;Send it.
		lda	#ResetUnd	;Reset transmit underrun error.
		sta	(sccReg)
		rts
		ENDP

****************************************************************
*
*  'XmitOne' sends the byte in X to the SCC as soon as its transmit buffer
*  is empty.
*
*  Inputs:
*
*  Outputs:
*
****************************************************************

XmitOne		PROC

		lda	(sccReg)	;Wait until the transmit buffer is
		and	#TxEmpty	;empty.
		beq	XmitOne
		txa			;Get char to transmit.
		sta	(sccDat)
		rts
		ENDP

****************************************************************
*
*  'BitCount' counts the set bits in A.
*
*  Inputs:  A: bits to count.
*
*  Outputs: Y: number of set bits.
*           flags: set from comparison of Y with 2.
*
****************************************************************

BitCount	PROC
		ldx	#7		;Count 8 bits.
		ldy	#0		;# of set bits found.
BCLp					; 
		asl	A
		bcc	NotSet
		iny
NotSet					; 
		dex
		bpl	bclp
		cpy	#2
		rts
		ENDP

****************************************************************
*
*  'WLineBusy' waits either until the line is busy or until the number of
*  100 usec. intervals specified by the Y register has passed.  If the line
*  is busy, C is set on return.  Otherwise, C is reset.
*
*  Inputs:
*
*  Outputs:
*
* 21-Aug-91 MSD	Adjusted timing for 1Mhz.  Note: WLineBusy is called
*		only from XmitPacket which has already slowed down
*		to 1Mhz.
*
* 22-Aug-91 MSD Changed to slow down around timing loops (we're
*		called at fast speed now).  Changed to delay a multiple
*		of 50 usec instead of 100 usec to fix delay between RTS
*		and data for broadcast packets.  Changed callers of
*		WLineBusy to pass double their old values.
*
* 25-Aug-91 MSD	Changed two CLD instructions to NOP's since they were
*		only used to delay 2us anyway.
*
* %%% MSD: As I looked at the Mac LLAP code, I noticed that their wait
* routine just does the delay and then looks at the SCC's hunt bit.
* If it is clear (i.e. the SCC saw an opening flag of a packet),
* they call it a collision; otherwise, they think everything is OK.
* Apparently, we've got the mouse counters hooked up to the SCC's
* clock detect so that the counters will increment if there is a
* clock detected on the line (such as the one from the synchronizing
* pulse at the start of a packet).  Inside AppleTalk seems to imply
* our way is better.  Question is: Why does Mac use the hunt bit
* (comments in their source implied they had similar clock and
* counter circuitry)?
*
****************************************************************

WLineBusy	PROC

		sty	r0		;Save counter in ZP.
WLBLp2					; 
; 22-Aug-91 MSD: Changed from T100usec1 to T50usec1
		ldy	#T50usec1	;500 usec. timer.
		ldx	whichMouse	;Get pointer to our mouse counter.
; Code was: (21-Aug-91 MSD)
;WLBLoop
;		lda	|0,x		;clear mouse count
;		jsr	RTSAddr		;wait about a bit time
;		lda	|0,x		; see if any activity

		SlowDown		; 22-Aug-91 MSD
WLBLoop					; 
		lda	|0,x		;Clear mouse count.
		nop			; wait 2 cycles
		nop			; another two cycles (about a bit time)
		lda	|0,x		;See if any activity.
		bne	Busy		;Yes: exit.
		dey			;Check for end of this 100usec period.
		bne	WLBLoop		;Not the end.
		dec	r0		;Check for the end of the Y time.
		bne	WLBLp2		;Not the end.
		SpeedUp			; 22-Aug-91 MSD
		clc			;Clear C to indicate time out
		rts			;and return.
Busy
		SpeedUp			; 22-Aug-91 MSD
		sec			;Set carry to indicate line busy
		rts			;and return.
		ENDP
****************************************************************
*
*  'XmitBDS' transmits a data packet using the data from the buffer data
*  structure pointed to by 'xmitBDS'.
*
*  Inputs:
*
*  Outputs:
*
****************************************************************

XmitBDS		PROC

****************************************************************
*
*  This code sets up zero page pointers and registers X and Y for efficient
*  access of the buffer data structure 'txBDS'.  X contains the number of
*  bytes left in the current buffer, Y contains an offset from [ptr1] to the
*  current byte in the buffer,  r0 is an offset from [ptr0] to the next entry
*  in the BDS.
*
****************************************************************

		rep	#MBit		;16 bit A.
		lda	txBDS		;Get low word of BDS pointer.
		sta	ptr0		;Store in ZP.
		lda	txBDS+2		;Get high word.
		sta	ptr0+2
		lda	[ptr0]		;Get length of the first entry.
		pha			;Store length on stack.
		ldy	#2		;Point to the first buffer address.
		lda	[ptr0],y	;Get low word of address.
		sta	ptr1		;Store in ptr1
		iny			;Move on to high word.
		iny
		lda	[ptr0],y	;Get high word of address.
		sta	ptr1+2		;Store.
		iny			;Point to the next entry.
		iny
		sty	r0		;Store pointer.
		sep	#MBit		;8 bit a.
		lda	dest
		tax
		jsr	XmitBegin
		lda	source
		tax
		jsr	XmitOne
		lda	lapType
		sta	r2		;r2 is the first byte sent by XmitBDS.
		ldy	#0		;Point to first byte of BDS data.
		plx			;Get back length of this BDS entry.
		beq	NextBDS		;Fixes 0 length bug 11/23/88  **TGH

XmitBytes				; 
		lda	(sccReg)	;Wait for the transmit buffer to be
		and	#TxEmpty	;empty.
		beq	XmitBytes
		lda	r2		;Then get the first byte to send,
		sta	(sccDat)	;and send it.
		lda	[ptr1],y	;Get a byte from the BDS.
		sta	r2		;Store it.
		iny			;Point to next byte.
		dex			;See if this entry is empty.
		bne	XmitBytes	;No, keep looping.

NextBDS		rep	#MBit+CBit	;16 bit A, clear C.
		longa	on
		ldy	r0		;Get pointer to next BDS entry.
		lda	[ptr0],y	;Get length of next entry.
		bne	NotZ		;See if length is zero.
Again					; 
		tya			;It is: move on the next BDS entry.
		adc	#6
		tay
		lda	[ptr0],y	;Is it still zero?
		beq	Again
NotZ					; ;Not zero: send the BDS entry.
		tax			;Put the count in X.
		inc	A		;If $ffff, it's the end.
		beq	Empty
		iny			;Move ahead to the buffer pointer.
		iny
		lda	[ptr0],y	;Get low word of pointer.
		sta	ptr1		;Store it.
		iny			;Move on to high byte.
		iny
		sep	#MBit		;Back to 8 bits.
		longa	off
		lda	[ptr0],y	;Get high byte.
		sta	ptr1+2		;Store it.
		iny			;Move on to the next entry.
		iny
		sty	r0		;Save pointer to the next entry.
		ldy	#0		;Point to the first byte of the entry.
		bra	XmitBytes	;Keep sending bytes.
Empty					; 
		sep	#MBit		;Back to 8 bits.
		lda	r2		;Get the last byte.
		tax			;Put in X for XmitEnd.

****************************************************************
*
*  'XmitEnd' terminates a packet transmission by sending the byte passed in X,
*  the trailing flag, and the abort sequence.  It then inits the receiver.
*
*  Inputs:
*
*  Outputs:
*
* 21-Aug-91 MSD	Changed timing to run at 1Mhz.  Note: this caused
*		the delay for TLastFlag to change from 29us to 30us.
*
* 22-Aug-91 MSD	Changed to slow down only around timing loops.
****************************************************************

		entry	XmitEnd		; EXPORT -> ENTRY  **TGH
XmitEnd					;       
		jsr	XmitOne		;Send the byte in X.
UndWait					; 
		lda	(sccReg)	;Then, wait for underrun.
		and	#Underrun
		beq	UndWait
CRCWait					; ;Then, wait for CRC to be transmitted.
		lda	(sccReg)
		and	#TxEmpty	;(Full while sending CRC bytes).
		beq	CRCWait
		ldx	#TLastFlag1	;Wait long enough for the terminating
					;flag to be sent (29 usec).
		SlowDown		; 22-Aug-91 MSD
FlagWait
		dex
		bne	FlagWait
		lda	#5		;Now disable transmitter but keep
		sta	(sccReg)	;drivers on for abort sequence.
		lda	#EnbRTS
		sta	(sccReg)
		ldx	#TAbort1	;Wait long enough for the abort
AbortWait				; ;sequence to happen (75 usec).
		dex
		bne	AbortWait
		SpeedUp			; 22-Aug-91 MSD
		lda	#5		;Now turn off drivers.
		sta	(sccReg)
		lda	#DisTxRTS
		sta	(sccReg)	;Fall into 'RecvInit'.

****************************************************************
*
*  'RecvInit' initializes the current appletalk SCC channel for packet
*  reception.
*
****************************************************************

		entry	RecvInit	; EXPORT -> ENTRY  **TGH
RecvInit				;       
		php			;Save int mode.
		sei			;No interrupts.
		pea	$00DD		;(EnbRxSlv+EnterHunt) + End flag
		pea	$2330		;(ResetErr+256*(ReEnbInt+3))
		pea	$D003		;(3+256*DisRx)
RILp					; 
		pla
		sta	(sccReg)
		bne	RILp
		plp			;Get back int mode.
		rts
* The above code sends out the following sequence of bytes to the control reg.:
*           #3                          Point to write register 3.
*           #DisRx                      Disable the receiver.
*           #ResetErr                   Reset Errors.
*           #ReEnbInt+3                 Enable 1st char ints, point to reg 3.
*           #EnbRxSlv+EnterHunt         Set slave receive mode.
		ENDP

****************************************************************
*
*  'NewPacket' checks the latest packet to see if it belongs to an installed
*  protocol handler.  If so, it is added to the packet dispatch list.  If not,
*  it is discarded.  LCBank RAM must be selected before calling.
*
*  Inputs:  ptr0 = curEnd.  16 bit index, 8 bit A.
*
*  Outputs:
*
****************************************************************

NewPacket	PROC

		rep	#MBit		;16 bit A.
		longa	on
		ldx	curWBuf		;X points to the base of the buffer.
		dey			;Adjust end of buffer (skip CRC byte).
		tya			;(Y points to CRC, 1st byte past data).
		sec
		sbc	curOffset	;Subtract the base of the data to
		sta	|buf_len,x	;find the length.  Store in buffer.
		lda	[ptr0],y	;Get that pesky CRC byte.
		and	#$ff		;Mask high byte.
		pha			;Save on stack.
		lda	ckSum		;Get the checksum.
		ror	A		;Look at the low bit.
		php			;Save carry bit.
		rol	A		;Back to the checksum.
		plp			;Get the low bit back in C.
		ror	A		;NOW rotate right.
		sec			;Prepare to subtract.
		sbc	1,s		;Subtract the CRC: now we have the real
		sta	|buf_cksum,x	;checksum.  Put it in the buffer.
		pla			;Clean up the stack.
		lda	scc1A		;Get scc bytes and install in buffer.
		sta	|buf_dest,x	;Store first and second bytes.
		sep	#MBit		;Back to 8 bit A.
		longa	off
		lda	scc3		;Now get third byte.
		sta	|buf_type,x
		rep	#MBit		;16 bit A.
		longa	on
		tya			;A = curOffset.
		clc
		adc	curEnd		;Advance the end packet pointer past
		clc			;the packet we just got.
		adc	#MaxSize
		sta	curEnd
		bmi	OK		;If curEnd is still > $8000, it's OK.
		lda	#Base+MaxSize	;Otherwise, wrap back to the beginning
		sta	curEnd		;of the packet buffer area.
		sep	#MBit
		longa	off		;Also,
		inc	trailing	;set the trailing flag to indicate that
OK					; ;write pointers precede read pointers.
;                                       ;End by setting up the next write buf.

****************************************************************
*
*  'SetWNext' sets up 'curOffset', curWBuf->next, and 'curWBuf' to add the most
*  recent write buffer to the list.  If there isn't enough room to allocate the
*  next write buffer, 'curOffset' is set to zero to prevent 'RecvPacket' from
*  storing packets.
*
****************************************************************

		entry	SetWNext	; EXPORT -> ENTRY  **TGH
SetWNext				;       
		sep	#MBit		;8 bit A.
		ldx	curWBuf		;X points to the current write buffer.
		lda	trailing	;See if trailing.
		rep	#MBit+CBit	;16 bit A.
		longa	on
		beq	NotTrail	;If trailing, check for full buffer.
		ldy	curRBuf		;See if curEnd > curRBuf.
		cpy	curEnd
		bcs	NotTrail	;If not, the buffer isn't full.
		lda	#0		;If so, the buffer is full.  Indicate
		sta	|buf_next,x	;full buffer: set curWBuf->next = 0.
		sta	curOffset	;Also, curOffset = 0.
		bra	Exit
NotTrail				; 
		sec
		lda	curEnd		;set curWBuf->next = curEnd - MaxSize
		sbc	#MaxSize	;to point to the beginning of the next
		sta	|buf_next,x	;write buffer.
		sta	curWBuf		;Now use that buffer as curWBuf.
		tax			;Now clear curWBuf->next to indicate
		stz	|buf_next,x	;empty buffer.
		lda	#-(MaxData+2)	;Set up curOffset to point to the
		sta	curOffset	;start of the LAP data field.
Exit					; 
		sep	#MBit		;Back to 8 bit A.
		longa	off
		rts

****************************************************************
*
*  'FreeBuf' releases the current read buffer for future use.
*  LCBank RAM must be selected before calling.
*
****************************************************************
*
		entry	FreeBuf		; EXPORT -> ENTRY  **TGH
FreeBuf					;       
		ldx	curRBuf		;Point to the buffer.
		ldy	|buf_next,x	;Get curRBuf->next.
		cpy	curRBuf		;If next < curRBuf, we're wrapping to
		bcs	NotWrap		;the beginning of the buffer, so we
		stz	trailing	;reset the trailing flag.
NotWrap					; 
		sty	curRBuf		;Point curRBuf to the next buffer.
		ldy	curOffset	;See if curOffset is 0.
		beq	SetWNext	;If so, try to get a new write buffer.
		rts			;Otherwise, return.
		ENDP

****************************************************************
*
*  'Dispatch' dispatches packets from the list until there are none left or
*  'busyFlag' is greater than zero.  Control is passed to each packet's
*  protocol handler.
*
*  Inputs:  8 bit A, 16 bit index.
*
*  Outputs:
*
****************************************************************

Dispatch	PROC	EXPORT

		php
		lda	>$0007f8	;get mslot
		pha			;hold till we are ready to exit
		jsr	predispatch
		pla			;recover mslot
		sta	>$0007f8	;restore it
		cmp	#$c1		;see if in valid range
		bcc	notgoodmslot	;no it is not
		rep	#xbit
		xba			;a=$cnXX
		lda	#00		;a=$cn00
		tax
		lda	>$00cfff	;deselect all $c800's
		lda	>$000000,x	;access $cn00 to re-enable original $c800
notgoodmslot				; 
		plp
		rtl


predispatch				; 
		jsr	stacksave	;save stack and move pointer
		jsl	coredispatch	;dispatch packet
		jsr	stackrestore	;restore stack pointer
		rts


* stack saving routines...
* these routines will save a portion of the stack to
* allow deeper than normal nesting of calls on the 256 byte stack
*

		EXPORT	stacksave
stacksave				;       
		phb			;save bank
		phb
		jsl	LongForbid	;don't let other ints come in here
		pea	$e1e1
		plb
		plb			;must be in bank e1 for vars
		sta	stacksavea	;save accum
		php			;save register modes
		php
		rep	#mbit+xbit	;force full native
		longa	on
		longi	on
		pla			;recover old mode in accum
		sta	stacksavep
		pla			;get data bank (pushed at entry)
		sta	stacksaveb	;save the data bank
		stx	stacksavex
		sty	stacksavey	;save registers
		pla			;get return address
		sta	stretaddr	;hold onto return address since we change stacks
		inc	stksaveflag	;bump the flag so nested calls don't save stack
		lda	stksaveflag	;see if stack already saved
		dec	a		;see if is now 1
		bne	stackok		;the stack is already saved or ok since above 1
		tsc			;get real stack pointer
		cmp	#topstack	;check against our prefferred top of stack
		bcc	stackswap	;it's lower, do stack stuff
		stz	oldstack	;zero out pointer so restore knows we did nothing
		bra	stackok
stackswap				; 
		sta	oldstack	;preserve stack pointer for restore later
		sec
		lda	#topstack	;get value of where we want stack
		sbc	oldstack	;see how many bytes we need to save
		cmp	#topstack-$100	;see if stack below $100
		bcc	@dothesave	;no, so save it (6-Feb-92 MSD: was BCS)
		lda	#topstack-$100	;it was, so only save from $100, not below
@dothesave
		sta	lentosave	;save for later restore
		ldx	oldstack	;recover stack pointer
		ldy	#ourstacksave	;destination is ourstacksave memory
		mvn	$00,$e1e1e1	;move from stack to our bank
		lda	#topstack	;get our stack pointer
		tcs			;and set it
stackok					; 
		lda	stretaddr	;recover return address
		pha
		ldx	stacksavex	;recover x and y
		ldy	stacksavey
		lda	stacksaveb	;get old data bank
		pha			;stay in bank $e1 till end
		lda	stacksavep	;now restore processor state
		pha			;push two identical bytes
		plp
		plp			;restore original state of processor
		lda	stacksavea	;and finally restore a
		plb			;restore data bank that was pushed above
		plb			;now since we don't need to be in bank $e1 now
		jsl	LongPermit	;allow atalk to dispatch again
		rts			;and return

		EXPORT	stackrestore
stackrestore				;       
		phb			;save bank
		phb
		jsl	LongForbid	;don't let other ints come in here
		pea	$e1e1
		plb
		plb			;must be in bank e1 for vars
		sta	stacksavea	;save accum
		php			;save register modes
		php
		rep	#mbit+xbit	;force full native
		longa	on
		longi	on
		pla			;recover old mode in accum
		sta	stacksavep
		pla			;get data bank pushed earlier
		sta	stacksaveb	;save the data bank
		stx	stacksavex
		sty	stacksavey	;save registers
		pla
		sta	stretaddr	;save return
		dec	stksaveflag	;lower level
		bne	stackok		;we are still nested
		lda	oldstack	;recover old stack pointer
		beq	stackok		;nothing ever saved
		tcs			;put it back where it was originally
		tay			;data will start storing here in mvn
		ldx	#ourstacksave	;area to restore stack from
		lda	lentosave	;amount to restore onto stack
		mvn	$e1e1e1,$00	;move from ourbank to stack bank
		pea	$e1e1
		plb
		plb			;set data bank back to our code bank
		bra	stackok		;exit this routine
*
* end of stacksave routines and equates
*


coreDispatch				; 
		longa	off
		longi	on
		php
Loop					; 
		lda	busyFlag	;Our ordinary 'non-busy' value is
		cmp	#1		;actually 1, not zero.  Exit loop if
		bne	Exit		;not 1 (someone else did 'EnterCrit').
		php			;lets see if any ticks have occurred
		sei			;lock out ints, since qtr ints can change deltaT on us
		lda	deltaT		;get qtr second ticks
		stz	deltaT		;always zero it out, since we will make use of whats in A
		plp
		ora	#00		;check value of deltaT
		rep	#MBit		;16 bit A.
		longa	on
		beq	@checkpkt	;no ticks to dispatch
		jsr	QtrSched	;we have ticks, give them a call!
@checkpkt				;check to see if we have packets to dispatch
		ldx	curRBuf		;Get pointer to the packet.
		lda	|buf_next,x	;See if next field is 0.
		bne	IsData		;If not, there is some data.
Exit					; ;Otherwise, return.
		plp
		rtl
IsData					; 
		stx	zpCurBuf	;Store pointer to the buffer in ZP.
		lda	|buf_dest,x	;get dest node, and source node
		sta	|LapDest	;save it
		lda	|buf_len,x	;Get the length of the packet.
		sta	curLen		;Store as current length.
		txa			;Get pointer to the buffer.
		clc
		adc	#buf_data	;Point to the LAP data field.
		sta	curPos		;Set the read position pointer for
		sep	#MBit		;ReadProt and ReadRest.  8 bit A.
		longa	off
		lda	|buf_type,x	;Get the LAP type.
		sta	|LapDest+2	;and save it for getglobal
		jsr	FindProt	;Try to find a protocol handler for
		bcc	NoProt		;the packet.
		rep	#MBit		;Back to 16 bit A.
		ldy	|protTable+4*MaxProts,X	;Y = high worrd of handler address.
		lda	|protTable+2*MaxProts,X	;A = low word of handler address.
Callhandler				; 
		sta	execAddr
		sty	execAddr+2	;Call the routine, using emulation mode
		jsl	GoComp		;for bank 0, fixing stack if needed.
		sep	#MBit
		rep	#XBit
		bra	Loop		;Loop until busy.
NoProt					; 
		ldy	catchProt	;Is there a catch all prot. handler?
		bne	IsCatch
		ldy	catchProt+2
		bne	IsCatch
		jsr	FreeBuf		;No handler: release the buffer.
		bra	Loop
IsCatch					; 
		rep	#MBit		;16 bit A.
		lda	catchProt	;Get low word of handler address.
		ldy	catchProt+2	;Get high word of handler address.
		bra	CallHandler
		ENDP

;------------------------------------------------------------
;
; CheckAsync tests the async flag and sets the result code
; to AsyncErr if the call was made async.  If only returns
; to the caller if the call was synchronous, otherwise it
; pops the return address and returns to the dispatcher.
;
;------------------------------------------------------------

		longa	on
		longi	on
		
CheckAsync	proc	export

		lda	[cmndlist]	; get async byte
		and	#$00FF		; only want a byte
		beq	sync		; sync is OK
		
		pla			; remove return address
		ldy	#lp_result
		lda	#AsyncErr
		sta	[cmndlist],y	; update result
		rtl			; return to dispatcher
sync
		rts			; return to caller

		endp
		
		
		END



\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/ATalk/AppleTalk.aii b/IIGS.601.SRC/GS.OS/Drivers/ATalk/AppleTalk.aii
new file mode 100644
index 0000000..2e94717
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/ATalk/AppleTalk.aii
@@ -0,0 +1 @@
+		msb	off
		string	asis
		print	sym
		print	nopage
		print	nomdir

;--------------------------------------------------------------------------------------
;
;				.APPLETALK Driver
;
;				Copyright (c) 1988
;				Apple Computer, Inc.
;				All rights reserved.
;
;--------------------------------------------------------------------------------------
;
; 0.01e01	03/27/88	TGH	-First attempt
; 0.02a01	07/12/88	TGH	-Changed label (entry3 => entry2)
;					-AFP: Took out AFP (character) driver.
; 0.03a01	08/01/88	TGH	-AFP: Changes to AFP driver.
; 0.04a01	08/04/88	MSD	-AFP: Control call's reset routine now forces
;					      the DIBs to be rebuilt.
; 0.05a01	08/04/88	TGH	-AFP: Added support for PFI vector notification.
; 0.06a01	09/19/88	TGH	-AFP: Fixed BlockRead bug.
; 00.07		12/15/88	TGH	-Added RESET call to .APPLETALK driver.
; 2.19A		1/16/88		TGH	-Fixed transfer count bug in get_port call.
; 0.11B		2/9/88		TGH	-Added null flush call.
;
; NOTE:	All new change notes can be found in the MAIN.AII file.
;
;--------------------------------------------------------------------------------------

		print	off
		include	'equates'
		print	on

		eject

		IMPORT	SS_Count

		entry	startup,\
			open,\
			nullreq,\
			close,\
			status,\
			control,\
			shutdown	:CODE

		entry	Status_Word,\
			OpenFlag :CODE

		eject

;--------------------------------------------------------------------------------------
;
; Following is the dispatch table used for to call the supported call numbers.
;
;--------------------------------------------------------------------------------------

disp_table	proc

		dc.w	startup-1
		dc.w	open-1
		dc.w	nullreq-1		;read
		dc.w	nullreq-1		;write
		dc.w	close-1
		dc.w	status-1
		dc.w	control-1
		dc.w	nullreq-1		;flush
		dc.w	shutdown-1

		endp

		eject

*******************************************************************************
*
* DRIVER MAIN entry POINT: entry2
*
* This is the main entry point for the device driver.  The
* routine validates the call number prior to dispatching to
* the requested function.
*
* Call Number:  $0000   Function: Startup
*               $0001             Open
*               $0002             Read
*               $0003             Write
*               $0004             Close
*               $0005             Status
*               $0006             Control
*               $0007             Flush
*               $0008             Shutdown
*               $0009-$FFFF       Reserved
*
* ENTRY: Call via 'JSL'
*     [<drvr_dib_ptr] = Points to the DIB for the device being accessed
*       <drvr_dev_num = Device number of device being accessed
*      <drvr_call_num = Call number
*               A Reg = Call Number
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 0 x x  0
*
* EXIT:   Direct page = unchanged with the exception of <drvr_tran_cnt
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 0 x 0  0   No error occured
*                       x x 0 0 0 0 x 1  0   Error occured
*
*******************************************************************************

		EXPORT	entry2

entry2		proc

		longa	on
		longi	on

		phb			;Save the GS/OS bank register

		phk
		plb

		cmp	#0009		;Max command number
		bge	illegal_req	;Oops, too big.

		pea	func_ret-1	;Push our return address
		asl	a
		tax
		lda	disp_table,x
		pha			;Push the address of routine on the stack
		rts

func_ret	tay			;Save the returned error code

		plb
		bcs	gen_exit	;Branch if there is an error
		ldy	#no_error
gen_exit	tya
		rtl

illegal_req	plb
		lda	#drvr_bad_req
		sec
		rtl

		endp

*******************************************************************************
*
* DRIVER CALL:  STARTUP
*
* This routine must prepare the driver to accept all other driver
* calls.
*
* ENTRY: Call via 'JSR'
*     [<drvr_dib_ptr] = Points to the DIB for the device being accessed
*       <drvr_dev_num = Device number of device being accessed
*      <drvr_call_num = Call number
*      <drvr_tran_cnt = $00000000
*               A Reg = Call Number
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as program bank
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 0 x x  0
*
* EXIT: via an 'RTS'
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 0 x 0  0   No error occured
*                       x x 0 0 0 0 x 1  0   Error occured
*
*******************************************************************************

startup		proc

		entry	sup_num,\
			Channel

		longa	on
		longi	on

		lda	#$0000
		tax
		ldy	#$0001
		jsl	sup_drvr_disp
		bcs	justleave

		stx	sup_num

		lda	#Start_ParmList
		sta	<sup_parm_ptr
		lda	#^Start_ParmList+2
		sta	<sup_parm_ptr+2
		lda	sup_num
		ldx	#$0002			;call number 2
		ldy	#$0001
		jsl	sup_drvr_disp
		bcs	justleave

		ldy	#slot_num
		lda	Slot
		sta	[drvr_dib_ptr],y
		ldy	#unit_num
		lda	Unit
		sta	[drvr_dib_ptr],y

		inc	SS_Count

		stz	OpenFlag		;Mark us as not open

		lda	#0000
		clc
justleave	rts

sup_num		dc.w	0

Start_ParmList
Slot		dc.w	0000
Channel		dc.w	0000
Unit		dc.w	0000

		endp

		eject

*******************************************************************************
*
* DRIVER CALL:  OPEN
*
* This call will allow the .APPLETALK driver to be opened 64K times.
*
* ENTRY: via a 'JSR'
*       <drvr_dev_num = Device Number of current device being accessed
*      <drvr_tran_cnt = $00000000
*               A Reg = Call Number
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 0 x x  0
*
* EXIT: via an 'RTS'
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 0 x 0  0   No error occured
*                       x x 0 0 0 0 x 1  0   Error occured
*
*******************************************************************************

open		proc

		ENTRY	OpenFlag

		longa	on
		longi	on

		lda	OpenFlag		;Check the open flag.
		bne	Already_Open

		inc	OpenFlag		;Increment our counter.

		lda	Status_Word		;Fix the status word if it
		ora	#$0001			;needs it to reflect that
		sta	Status_Word		;the driver is open.

		lda	#no_error
		clc
		rts

Already_Open	lda	#drvr_prior_open
		sec
		rts

OpenFlag	dc.w	0000

		endp


;--------------------------------------------------------------------------------------
;
; Below is the routine that is called for all un-supported calls.
;
;--------------------------------------------------------------------------------------

nullreq		proc

		longa	on
		longi	on

		lda	#no_error
		clc
		rts

		endp

*******************************************************************************
*
* DRIVER CALL:  CLOSE
*
* This call will allow the driver to be closed.  The open flag will only
* be clear if the OPEN_FLAG goes to zero.
*
* ENTRY: via a 'JSR'
*       <drvr_dev_num = Device Number of current device being accessed
*      <drvr_tran_cnt = $00000000
*               A Reg = Call Number
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 0 x x  0
*
* EXIT: via an 'RTS'
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 0 x 0  0   No error occured
*                       x x 0 0 0 0 x 1  0   Error occured
*
*******************************************************************************

close		proc

		longa	on
		longi	on

		lda	OpenFlag		;Is driver realy open?
		beq	Not_Open		;If not, error out.

		stz	OpenFlag

		lda	Status_Word		;This is the last close
		and	#$FFFE			;so fix the Status_Word
		sta	Status_Word		;to reflect that the driver
						;is closed.

Good_Close	lda	#no_error
		clc
		rts

Not_Open	lda	#drvr_not_open
		sec
		rts

		endp

*******************************************************************************
*
* DRIVER CALL:  STATUS
*
* This routine supports all the standard device status calls.
*
* Status Code:  $0000   Return Device Status
*               $0001   Return Control Parameters
*               $0002   Return Wait/No Wait Mode
*               $0003   Return Format Options
*
* ENTRY: via a 'JSR'
*       <drvr_dev_num = Device Number of current device being accessed
*     <drvr_clist_ptr = Pointer to control list
*     <drvr_ctrl_code = Control code
*       <drvr_req_cnt = Number of bytes to be transferred
*      <drvr_tran_cnt = $00000000
*               A Reg = Call Number
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 0 x x  0
*
* EXIT: via an 'RTS'
*      <drvr_tran_cnt = Number of bytes transferred
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 0 x 0  0   No error occured
*                       x x 0 0 0 0 x 1  0   Error occured
*
*******************************************************************************

status		proc

		entry	Status_Word

		longa	on
		longi	on

		lda	<drvr_stat_code		;Is this a legal status call?
		cmp	#$8001			;Get Port?
		beq	get_port
		cmp	#status_max
		blt	@L1

		lda	#drvr_bad_code		;Invalid call number
		sec
		rts

@L1		asl	a
		tax
		lda	status_table,x
		pha
		rts

status_null	lda	#no_error
		clc
		rts

dev_stat	ldy	<drvr_req_cnt+2		;High word
		bne	status_bparm
		ldy	<drvr_req_cnt		;Low word
		beq	status_null
		cpy	#0002
		blt	status_bparm
		cpy	#$0007
		blt	L2

status_bparm	lda	#drvr_bad_parm		;Invalid request count
		sec
		rts

L2		sep	#$20
		longa	off
		dey
@L3		lda	Status_Word,y
		sta	[<drvr_slist_ptr],y
		dey
		bpl	@L3
		rep	#$30
		longa	on

set_xfer_cnt	lda	<drvr_req_cnt		;Set the transfer count equal
		sta	<drvr_tran_cnt		;to the request count.
		lda	<drvr_req_cnt+2
		sta	<drvr_tran_cnt+2

		bra	status_null


get_ctrl	lda	<drvr_req_cnt+2
		bne	status_bparm
		lda	<drvr_req_cnt
		beq	set_xfer_cnt
		cmp	#0002
		bne	status_bparm

		lda	#0
		sta	[<drvr_slist_ptr]	;Store 0

		bra	set_xfer_cnt


get_wait	lda	<drvr_req_cnt+2
		bne	status_bparm
		lda	<drvr_req_cnt
		beq	set_xfer_cnt
		cmp	#0002
		bne	status_bparm

		lda	#0000
		sta	[<drvr_slist_ptr]

		bra	set_xfer_cnt


get_port	lda	<drvr_req_cnt+2		;High word
		bne	status_bparm
		lda	<drvr_req_cnt		;Low word
		beq	set_xfer_cnt
		cmp	#0002
		bne	status_bparm

		lda	Channel
		sta	[<drvr_slist_ptr]

		bra	set_xfer_cnt


Status_Word	dc.w	$0010
		dc.l	0

status_table	dc.w	dev_stat-1
		dc.w	get_ctrl-1
		dc.w	get_wait-1
		dc.w	status_null-1		;get_format-1
		dc.w	status_null-1		;get_partn_map-1
status_max	equ	(*-status_table)/2

		endp

*******************************************************************************
*
* DRIVER CALL:  CONTROL
*
* This routine supports all the standard device control calls.
*
* Control Code: $0000   Reset Device
*               $0001   Format Device
*               $0002   eject Media
*               $0003   Set Control Parameters
*               $0004   Set Wait/No Wait Mode
*               $0005   Set Format Options
*               $0006   Assign Partition Owner
*               $0007   Arm Signal
*               $0008   Disarm Signal
*
* ENTRY: via a 'JSR'
*       <drvr_dev_num = Device Number of current device being accessed
*     <drvr_clist_ptr = Pointer to control list
*     <drvr_ctrl_code = Control code
*       <drvr_req_cnt = Number of bytes to be transferred
*      <drvr_tran_cnt = $00000000
*               A Reg = Call Number
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 0 x x  0
*
* EXIT: via an 'RTS'
*      <drvr_tran_cnt = Number of bytes transferred
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 0 x 0  0   No error occured
*                       x x 0 0 0 0 x 1  0   Error occured
*
*******************************************************************************

control		proc

		longa	on
		longi	on

		lda	<drvr_ctrl_code		;Is this a legal control call?
		cmp	#control_max
		blt	L1

control_bad	lda	#drvr_bad_code		;Invalid call number
		sec
		rts

L1		asl	a
		tax
		lda	control_table,x
		pha
		rts

control_null	lda	#no_error
		clc
		rts

set_ctrl	lda	<drvr_req_cnt+2		;If there are ANY parameters
		bne	@L1
		lda	<drvr_req_cnt		;to set, we have an error!
		cmp	#0003
		blt	control_null

@L1		lda	#drvr_bad_parm
		sec
		rts


control_table	dc.w	control_null-1		;dev_reset-1
		dc.w	control_null-1		;format-1
		dc.w	control_null-1		;media_eject-1
		dc.w	set_ctrl-1
		dc.w	control_null-1		;set_wait-1
		dc.w	control_null-1		;set_format-1
		dc.w	control_null-1		;set_partn-1
		dc.w	control_bad-1		;arm_signal-1
		dc.w	control_bad-1		;disarm_signal-1
		dc.w	control_null-1		;set_partn_map-1
control_max	equ	(*-control_table)/2

		endp

*******************************************************************************
*
* DRIVER CALL:  SHUTDOWN
*
* This call prepares the driver for shutdown.  This may include
* closing a character device as well as releasing any and all
* system resources that may have been aquired by either a
* STARTUP or OPEN call.
*
* ENTRY: via a 'JSR'
*       <drvr_dev_num = Device Number of current device being accessed
*      <drvr_tran_cnt = $00000000
*               A Reg = Call Number
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 0 x x  0
*
* EXIT: via an 'RTS'
*      <drvr_tran_cnt = Number of bytes transferred
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 0 x 0  0   No error occured
*                       x x 0 0 0 0 x 1  0   Error occured
*
*******************************************************************************

shutdown	proc

		longa	on
		longi	on

		dec	SS_Count
		beq	@L1

		lda	#drvr_bad_req
		sec
		rts

@L1		lda	#$0000
		clc
		rts

		endp


;--------------------------------------------------------------------------------------

		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/ATalk/Equates b/IIGS.601.SRC/GS.OS/Drivers/ATalk/Equates
new file mode 100644
index 0000000..d1d0230
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/ATalk/Equates
@@ -0,0 +1 @@
+*******************************************************************************
*
* Common equates for GS/OS
*
* Created:	4/7/87
* Modified:	See Revision History below
* Author:	GS/OS Team
*
* Copyright (C) 1987-1988 Apple Computer, Inc.	All rights reserved.
*
* REVISION HISTORY:
*
* DATE	   BY	DESCRIPTION
*
* 04/27/87 RBM	Correction: drvr_blk_size is a word wide parameter.
*
* 04/16/87 JJ	Correction: changed error number for duplicate volume
*			    from $55 to $57
* 04/29/87 GRT	Addition:   added definition of path flag
*			    and defined "span1" and "span2"
*
* 05/18/87 RBM	Addition:   Added "boot_slot", "dev_id_ref",
*			    "drvr_char_config" & "drvr_pro_config"
*			    These parameters are passed from the F_Loader
*			    to the device dispatcher during boot init.
*
* 06/04/87 JJ	Addition:   Add global equates for system direct page base,
*			    stack top, and ProDOS FST header.
*
* 06/11/87 JJ	Change:     Direct page locations used by SCM to pass
*			    parameters to FST's fundamentally changed. Look
*			    between labels dev_num and span2, inclusive.
*
* 06/30/87 RM/RC Addition:  Added cache manager equates.
*			    Cache priority now cache enable.
*
* 07/20/87 RM/AS Addition:  Equates for control/status list pointers.
*			    Equates for control/status codes.
*
* 07/22/87 RM/RC Change:    Cache enable now cache priority.
*
* 07/24/87 MSA	 Addition:  System Service Table Equates & FCR Equates
*
* 07/29/87 RC	 Addition:  Added cache header equates.
*
* 08/03/87 RC	 Addition:  Added 4 byte pointer in direct page
*
* 08/05/87 MSA	 Change:    System Service Table chgd to make GRT happy
*			    Added Parameter Block Equates
*
* 08/10/87 RC/RM Change:    Changed c_volumeid in cache equates into c_devnum.
*
* 08/12/87 FAB	 Addition:  Added gquit_stack_top
*
*	   MSA	 Addition:  Added pblk equate for Get Boot Volume
*			     Star prefix equate added
*
* 08/13/87 RBM	 Deletion:  Removed status and control codes for
*			    driver newline since it's not ported.
*
* 08/14/87 MSA	 Addition:  Added pblk equate for SetLevel, GetLevel
*
* 08/18/87 RBM	 Deletion:  Drvr_vol_id is now Drvr_reserved.
*
* 09/15/87 RBM	 Change:    Moved control/status code location on direct page
*
* 09/24/87 MSA	 Addition:  Added pblk equate for Close, Flush
*
* 10/02/87 ADS	 Deletion:  Removed pro_fst_entry
*
* 10/06/87 MSA	 Addition:  Added pblk equate for Expand_Path
*
* 10/29/87 MSA	 Addition:  Added debug call flag, debug.calls
*			     and debug.type for SCM
*
* 11/12/87 RBM	 Change:    Device dispatcher cmd numbers
*
* 11/13/87 MSA	 Addition:  GS/OS System Death Error Codes
*
* 11/15/87 RBM	 Addition:  Added 'DRVR_VOL_ID' on direct page.
*
* 11/17/87 RC	 Addition:  Added 'c_volumeid' to cache header
*
* 12/6/87  JJ	 Addition:  Added system call error codes $64, $65, and $66
*
* 1/5/88   fab	 addition:  move commands word for moveinfo system service call
*
* 1/5/88   RBM	 addition:  status and control codes.
*
* 1/13/88  fab	 addition:  movevaliditymask equate added
*
* 1/14/88  RBM	 change:    moved status/control code
*
* 1/14/88  BPA	 change:    made all equ's gequ's
*
* 1/15/88  fab	 replace:   move_block to move_info
*
* 1/19/88  rc	 addition:  default_cache_size
*
* 1/20/88  MSA	 addition:  system service table equates
*
* 1/23/88  RBM	 Addition:  System service table equates
*
* 2/08/88  RBM	 Addition:  driver busy error code ($0029)
*		 Addition:  Supervisory driver direct page equates
*
* 3/04/88  MSA	 Addition:  get, set boot_vol equates
*
*******************************************************************************

****************************************************************
*
* The following are direct page equates on the GS/OS
* direct page for driver usage.
*
****************************************************************

stack_top	equ	$00BFFF 	; initial value of system stack pointer
direct_base	equ	$00BD00 	; base address of system direct page
gquit_stack_top equ	$00BCFF 	; gquit sets stk here for boot/switching

drvr_start	equ	$0000		; start location of driver parameters
gs_start	equ	$0030		; start of GS/OS parameters
fst_start	equ	$0080		; start of FST parameters
cache_wspace	equ	$005A		; beginning addr of cache mgr w/space
drvr_wspace	equ	$006A		; ***** NUKE THIS LATER ****
sup_wspace	equ	$0070		; supervisory driver workspace

drvr_dev_num	equ	drvr_start	; (w)  device number
drvr_call_num	equ	drvr_dev_num+2	; (w)  call number
drvr_buf_ptr	equ	drvr_call_num+2 ; (lw) buffer pointer
drvr_slist_ptr	equ	drvr_call_num+2 ; (lw) buffer pointer
drvr_clist_ptr	equ	drvr_call_num+2 ; (lw) buffer pointer
boot_slot	equ	drvr_buf_ptr	; (w)  boot slot for dispatcher only
dev_id_ref	equ	drvr_buf_ptr	; (w)  indirect device ID
dev_char_config equ	drvr_buf_ptr+2	; (w)  BASIC/Pascal1.1 configuration
dev_pro_config	equ	drvr_buf_ptr+4	; (w)  ProDOS configuration
drvr_req_cnt	equ	drvr_buf_ptr+4	; (lw) request count
drvr_tran_cnt	equ	drvr_req_cnt+4	; (lw) transfer count
drvr_blk_num	equ	drvr_tran_cnt+4 ; (lw) block number
drvr_blk_size	equ	drvr_blk_num+4	; (w)  block size
drvr_fst_num	equ	drvr_blk_size+2 ; (w)  File System Translator Number
drvr_stat_code	equ	drvr_fst_num	; (b)  status code for status call
drvr_ctrl_code	equ	drvr_fst_num	; (b)  control code for control call
drvr_vol_id	equ	drvr_fst_num+2	; (w)  volume id
drvr_cache	equ	drvr_vol_id+2	; (w)  Cache Priority
drvr_cach_ptr	equ	drvr_cache+2	; (lw) pointer to cached block
drvr_dib_ptr	equ	drvr_cach_ptr+4 ; (lw) pointer to active DIB
drvr_dev_ptr	equ	drvr_dib_ptr+4	; (lw) pointer to device list

****************************************************************
*
* The following are equates for the DIB.
*
****************************************************************

link_ptr	equ	$0000		; (lw) pointer to next DIB
entry_ptr	equ	$0004		; (lw) pointer to driver
dev_char	equ	$0008		; (w) device characteristics
blk_cnt		equ	$000A		; (lw) number of blocks
dev_name	equ	$000E		; (32) count and ascii name
slot_num	equ	$002E		; (w) slot number
unit_num	equ	$0030		; (w) unit number
ver_num		equ	$0032		; (w) version number
dev_id_num	equ	$0034		; (w) device ID number
head_link	equ	$0036		; (w) backward device link
forward_link	equ	$0038		; (w) forward device link
reserved_1	equ	$003A		; (w) dib reserved field #1
reserved_2	equ	$003C		; (w) dib reserved field #2
dib_dev_num	equ	$003E		; (w) device number of this device

dib_specific	equ	$0040		;
afpn_session	equ	$0042
afpn_volname	equ	$0044
afpn_volID	equ	$0060
afpn_status	equ	$0062
afpn_server	equ	$0064
afpn_zone	equ	$0084
first_free	equ	$00A5

specific_size	equ	first_free-dib_specific

****************************************************************
*
* Cache Manager Direct Page
*
****************************************************************

cache_cur_ptr	equ	cache_wspace	; (lw) pointer to current cache cell
cache_nxt_ptr	equ	cache_cur_ptr+4 ; (lw) pointer to next cache cell
cache_pre_ptr	equ	cache_nxt_ptr+4 ; (lw) pointer to prev cache cell
cache_bkt_ptr	equ	cache_pre_ptr+4 ; (lw) pointer to bucket list

default_cache_size equ $0040		;16k is default cache size


****************************************************************
*
* Supervisory Driver Direct Page
*
****************************************************************

sup_drvr_ptr	equ	sup_wspace	; (lw) ptr to supervisor driver list
sib_ptr 	equ	sup_wspace+4	; (lw) ptr to SIB
sup_parm_ptr	equ	sib_ptr+4	; (lw) ptr to supervisor parameters

****************************************************************
*
* The following are absolute zero page equates for use by
* slot resident firmware based ProDOS block device drivers.
*
****************************************************************

pcmd		equ	$0042		; (b)  ProDOS device command
punit		equ	$0043		; (b)  ProDOS unit number
pbuffer 	equ	$0044		; (w)  ProDOS buffer address
pblock		equ	$0046		; (w)  ProDOS block number

****************************************************************
*
* The following are equates for driver command types.
*
****************************************************************

drvr_startup	equ	$0000		; driver startup command
drvr_open	equ	$0001		; driver open command
drvr_read	equ	$0002		; driver read command
drvr_write	equ	$0003		; driver write command
drvr_close	equ	$0004		; driver close command
drvr_status	equ	$0005		; driver status command
drvr_control	equ	$0006		; driver control command
drvr_flush	equ	$0007		; driver flush command
drvr_shutdn	equ	$0008		; driver shutdown command

****************************************************************
*
* The following are equates for dispatcher command types.
*
****************************************************************

dsptch_bootinit equ	$0000		; dispatcher boot init command
get_dib_ptr	equ	$0001		; return a drivers DIB pointer
dsptch_shutdn	equ	$0002		; dispatcher shutdown command

****************************************************************
*
* GS/OS Direct Page Equates
*
****************************************************************

call_number	equ	gs_start	; FST call number
param_blk_ptr	equ	call_number+2	; pointer to user's parameter block
dev_num 	equ	param_blk_ptr+4 ; device number from parameter block
dev1_num	equ	dev_num 	; alias name for dev_num
dev2_num	equ	dev1_num+2	; second device number
path1_ptr	equ	dev2_num+2	; ptr to 1st partial/entire pathname
fcr_ptr 	equ	path1_ptr	; pointer to file control record
path2_ptr	equ	path1_ptr+4	; ptr to 2nd partial/entire pathname
vcr_ptr 	equ	path2_ptr	; pointer to volume control record
path_flag	equ	path2_ptr+4	; flag for path information
*					;
*					; bit  14: 0 = pathname1 is null
*					;      14: 1 = pathname1 is non-null
*					;
*					;      06: 0 = pathname2 is null
*					;      06: 1 = pathname2 is non-null
*					;
span1		equ	path_flag+2	; largest distance between path1 term.
span2		equ	span1+2 	; maxdist. between seperators for path2

****************************************************************
*
* The following are equates for GS/OS error codes.
*
****************************************************************

no_error	equ	$00		; no error has occured
bad_system_call equ	$01		; bad system call number
invalid_pcount	equ	$04		; invalid parameter count
gsos_active	equ	$07		; gsos already active
dev_not_found	equ	$10		; device not found
invalid_dev_num equ	$11		; invalid device number
drvr_bad_req	equ	$20		; bad request or command
drvr_bad_code	equ	$21		; bad control or status code
drvr_bad_parm	equ	$22		; bad call parameter
drvr_not_open	equ	$23		; character device not open
drvr_prior_open equ	$24		; character device already open
irq_table_full	equ	$25		; interrupt table full
drvr_no_resrc	equ	$26		; resources not available
drvr_io_error	equ	$27		; I/O error
drvr_no_dev	equ	$28		; device not connected
drvr_busy	equ	$29		; driver is busy & not available
drvr_wr_prot	equ	$2B		; device is write protected
drvr_bad_count	equ	$2C		; invalid byte count
drvr_bad_block	equ	$2D		; invalid block number
drvr_disk_sw	equ	$2E		; disk has been switched
drvr_off_line	equ	$2F		; device off line / no media present
bad_path_syntax equ	$40		; invalid pathname syntax
invalid_ref_num equ	$43		; invalid reference number
path_not_found	equ	$44		; subdirectory does not exist
vol_not_found	equ	$45		; volume not found
file_not_found	equ	$46		;
dup_pathname	equ	$47		; create or rename with existing name
volume_full	equ	$48		;
vol_dir_full	equ	$49		; volume directory full
version_error	equ	$4A		;
bad_store_type	equ	$4B		; bad storage type
end_of_file	equ	$4C		;
out_of_range	equ	$4D		; position out of range
invalid_access	equ	$4E		; access not allowed
buff_too_small	equ	$4F		; buffer too small
file_busy	equ	$50		; file is already open
dir_error	equ	$51		; directory error
unknown_vol	equ	$52		; unknown volume type
parm_range_err	equ	$53		; parameter out of range
out_of_mem	equ	$54		; out of memory
dup_volume	equ	$57		; duplicate volume name
not_block_dev	equ	$58		; not a block device
invalid_level	equ	$59		; specified level outside legal range
damaged_bitmap	equ	$5A		; block number too large
bad_path_names	equ	$5B		; invalid pathnames for change_path
not_system_file equ	$5C		; not an executable file
os_unsupported	equ	$5D		; operating system not supported
stack_overflow	equ	$5F		; too many applications on stack
data_unavail	equ	$60		; data unavailable
end_of_dir	equ	$61		; end of directory has been reached
invalid_class	equ	$62		; invalid FST call class
res_not_found	equ	$63		; file does not contain req. resource
invalid_fst_id	equ	$64		; specified FST is not present in system
invalid_fst_op	equ	$65		; FST does not handle this type of call
fst_caution	equ	$66		; FST handled call, but result is weird
network_error	equ	$88

****************************************************************
*
* Fatal Errors:
*
****************************************************************

unclaimed_irq	equ	$01		; unclaimed interrupt
sd_scm_dealloc	equ	$02		; deallocation error
sd_scm_alloc	equ	$03		; allocation error
wrong_os_ver	equ	$11		; wrong operating system version

****************************************************************
*
* FST equates: to be removed when lou loader is working!!!!!!!!!
*
****************************************************************

char_fst_entry	equ	$095000 	;address of Character FST header


****************************************************************
*
* DRIVER Equates:
*
****************************************************************

drvr_dev_stat	equ	$0000		; device status code
drvr_ctrl_stat	equ	$0001		; return control parms
drvr_get_wait	equ	$0002		; return wait/no-wait mode
drvr_get_format equ	$0003		; get format options

drvr_reset	equ	$0000		; reset the device
drvr_format	equ	$0001		; physically format the device
drvr_eject	equ	$0002		; eject the media
drvr_set_ctrl	equ	$0003		; set control parms
drvr_set_wait	equ	$0004		; set wait/no-wait mode
drvr_set_format equ	$0005		; set format options
drvr_set_ptn	equ	$0006		; assign partition owner
drvr_insert	equ	$0007		; logical media insertion

****************************************************************
*
* System Service Table Equates:
*
****************************************************************

dev_dispatcher	equ	$01FC00 	;dev_dispatch
cache_find_blk	equ	$01FC04 	;cash_find
cache_add_blk	equ	$01FC08 	;cash_add
cache_init	equ	$01FC0C 	;cache initialization
cache_shutdn	equ	$01FC10 	;cash_shutdown
cache_del_blk	equ	$01FC14 	;cash_delete
cache_del_vol	equ	$01FC18 	;cash_del_vol
alloc_seg	equ	$01FC1C 	;alloc_zero
release_seg	equ	$01FC20 	;deallocate
alloc_vcr	equ	$01FC24 	;allocvcr
release_vcr	equ	$01FC28 	;releasevcr
alloc_fcr	equ	$01FC2C 	;allocfcr
release_fcr	equ	$01FC30 	;releasefcr
swap_out	equ	$01FC34 	;swapout
deref		equ	$01FC38 	;deref2
get_sys_gbuf	equ	$01FC3C 	;s_get_sys_gbuf
sys_exit	equ	$01FC40 	;s_sys_exit
sys_death	equ	$01FC44 	;s_sys_death
find_vcr	equ	$01FC48 	;findvcr
find_fcr	equ	$01FC4C 	;findfcr
set_sys_speed	equ	$01FC50 	; set system speed
cache_flsh_def	equ	$01FC54 	; flush deferred blocks from cache
rename_vcr	equ	$01FC58 	;renamevcr
rename_fcr	equ	$01FC5C 	;renamefcr
get_vcr 	equ	$01FC60 	;getvcr
get_fcr 	equ	$01FC64 	;getfcr
lock_mem	equ	$01FC68 	;lockmem
unlock_mem	equ	$01FC6C 	;unlockmem
move_info	equ	$01FC70 	;block move routines
cvt_0to1	equ	$01FC74 	;cvt0to1
cvt_1to0	equ	$01FC78 	;cvt1to0
replace_80	equ	$01FC7C 	;replace80
to_b0_core	equ	$01FC80 	;to_bank0_core
gen_dispatch	equ	$01FC84 	;g_dispatch
signal		equ	$01FC88 	;signal_event
get_sys_buf	equ	$01FC8C 	;get_b0_buf
set_disksw	equ	$01FC90 	;set_disk_sw
report_error	equ	$01FC94 	;s_report_error
mount_message	equ	$01FC98 	;s_mount_msg
full_error	equ	$01FC9C 	;s_full_error
report_fatal	equ	$01FCA0 	;s_report_fatal
sup_drvr_disp	equ	$01FCA4 	; supervisory dispatcher
install_driver	equ	$01FCA8 	; install device driver
get_boot_pfx	equ	$01FCAC 	;s_get_boot_vol
set_boot_pfx	equ	$01FCB0 	;s_set_boot_vol


****************************************************************
*
* Volume Control Record (VCR) Equates
*
****************************************************************

vcr_size	equ	18		;Currently 18 bytes in length

vcr_id		equ	$0000		;offset to volume ID
vcr_name	equ	vcr_id+2	;offset to volume name pointer
vcr_status	equ	vcr_name+4	;offset volume status
vcr_open_cnt	equ	vcr_status+2	;offset to number of open files on vol.
vcr_fst_id	equ	vcr_open_cnt+2	;offset to owner ID number
vcr_dev 	equ	vcr_fst_id+2	;offset to where volume was last seen
vcr_fst_ptr	equ	vcr_dev+2	;offset to where volume was last seen

vcr_swapped	equ	$4000		;FLAG:Volume is swapped out (1 = true)
vcr_swapped_in	equ	$BFFF		;FLAG:Volume is swapped in

vcr_wr_enable	equ	$2000		;FLAG:Volume has been seen write enabled
vcr_wr_unknown	equ	$DFFF		;FLAG:Volume has not been seen wrenbld

****************************************************************
*
* File Control Record Equates:
*
****************************************************************

fcr_ref_num	equ	$0000
fcr_path_name	equ	fcr_ref_num+2
fcr_fst_id	equ	fcr_path_name+4
fcr_vol_id	equ	fcr_fst_id+2
fcr_level	equ	fcr_vol_id+2
fcr_newline	equ	fcr_level+2
fcr_newline_len equ	fcr_newline+4
fcr_mask	equ	fcr_newline_len+2
fcr_access	equ	fcr_mask+2

;--------------------------------------------------------------------------
; cache header equates
;
; Copyright (c) 1987 Apple Computer Inc. All rights reserved.
; author: Ray (Rowdy Yates) Chiang
;--------------------------------------------------------------------------

c_lru_fwd	equ	$0000		;vp to	forward LRU vp link
c_lru_bwd	equ	c_lru_fwd+4	;vp to backward LRU vp link
c_bkt_fwd	equ	c_lru_bwd+4	;vp to	forward bucket vp link
c_bkt_bwd	equ	c_bkt_fwd+4	;vp to backward bucket vp link
c_blknum	equ	c_bkt_bwd+4	;block number  of cached block
c_blksize	equ	c_blknum+4	;block	 size  of cached block
c_fstnum	equ	c_blksize+2	;FST number    of cached block
c_volumeid	equ	c_fstnum+2	;volume id     of cached block
c_devnum	equ	c_volumeid+2	;device number of cached block
c_priority	equ	c_devnum+2	;cache priority
c_cellsize	equ	c_priority+2	;size of this cache cell
c_reserved	equ	c_cellsize+2	;reserved
c_headerlen	equ	c_reserved+4	;length of cache header
c_cached_data	equ	c_reserved+4	;offset to cached data block

;--------------------------------------------------------------------------
; general and miscellaneous equates
;--------------------------------------------------------------------------

ram_cache_size	equ	$0081		;battery ram location for this

star_pfx_num	equ	32		;Prefix #32 is the star prefix

sys_version	equ	$8200		;Unreleased Version 2.00
debug_calls	equ	$0001		;Turn on debugging calls
debug_type	equ	$0010		;Highest numbered type


****************************************************************
*
* Parameter Block Equates
*
****************************************************************

pblk_09_pfxnum	equ	$0000		;Set and Get Prefix
pblk_09_pname	equ	$0002

pblk_0E_pname1	equ	$0000		;Expand Path
pblk_0E_pname2	equ	$0004

pblk_14_refnum	equ	$0000		;Close and Flush

pblk_1a_level	equ	$0000		;Set and Get Level

pblk_28_pname	equ	$0000		;Get Boot Volume

pblk_2a_version equ	$0000		;Get Version Number


*****************************************************************
*
* Emulation mode stack pointer
*
*****************************************************************

emulstack	equ	$010100

*****************************************************************
*
* command word for the moveinfo routine
*
*****************************************************************

moveblkcmd	equ	$0800		;tell hardware to do block move option

; the movevaliditymask is a mask used to determine if a user's command word
;   is using any invalid (reserved bits or not).  this value changes as reserved
;   bits become active!!!!!!!

movevaliditymask equ	$f7f0		;invalid move if any of these bits =1

; most common command

move_sinc_dinc	equ	$05+moveblkcmd	;source incs - destination incs

; less common commands

move_sinc_ddec	equ	$09+moveblkcmd	;source incs - destination decs
move_sdec_dinc	equ	$06+moveblkcmd	;source decs - destination incs
move_sdec_ddec	equ	$0a+moveblkcmd	;source decs - destination decs

move_scon_dcon	equ	$00+moveblkcmd	;source constant - destination constant
move_sinc_dcon	equ	$01+moveblkcmd	;source incs - destination constant
move_sdec_dcon	equ	$02+moveblkcmd	;source decs - destination constant
move_scon_dinc	equ	$04+moveblkcmd	;source constant - destination incs
move_scon_ddec	equ	$08+moveblkcmd	;source constant - destination decs
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/ATalk/Main.aii b/IIGS.601.SRC/GS.OS/Drivers/ATalk/Main.aii
new file mode 100644
index 0000000..9b69d8c
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/ATalk/Main.aii
@@ -0,0 +1 @@
+		msb	off
		string	asis
		print	sym
		print	nopage
		print	nomdir

;--------------------------------------------------------------------------------------
;
;				.RPM Driver
;				.AFP Driver
;				.APPLETALK Driver
;
;				Copyright (c) 1988
;				Apple Computer, Inc.
;				All rights reserved.
;
;--------------------------------------------------------------------------------------
;
; All drivers go in the */SYSTEM/DRIVERS/ sub-directory.  They MUST have the following
; attributes set correctly.
;
;	File		File type	Aux type
;
;	ATALK		$00 BB		$0000 0110
;
;--------------------------------------------------------------------------------------
;
; Here is a list of the files that are needed to build the ATALK driver file...
;
;	appletalk.aii		This file contain the APPLETALK driver code.
;	atalk.aii		This file contains the DIBs for all the drivers.
;	equates			This is a general GS/OS equate file.
;	others.aii		This file contains the AFP driver code.
;	rpm.aii			This file contains the RPM driver code.
;
; To build the ATALK driver file, simply use the build command and build 'ALL'.
;
;--------------------------------------------------------------------------------------
;
; Change History:
;
; 0.01e01	03/27/88	TGH	-First attempt
; 0.02a01	07/12/88	TGH	-Took out AFP (character) driver.
; 0.03a01	08/01/88	TGH	-Changes to AFP driver.
; 0.04a01	08/04/88	MSD	-Control call's reset routine now forces the
;					 DIBs to be rebuilt.
; 0.05a01	08/04/88	TGH	-Added support for PFI vector notification.
; 0.06a01	09/19/88	TGH	-Fixed BlockRead bug.
; 0.07a01	11/28/88	TGH	-Changed characteristics for AFPn drivers
;					 from $03E4 to $03A4.  Write not allowed.
; 00.05		11/29/88	TGH	-Changed version string to match system disk.
;					-Changed the order of the DIBs.
; 00.07		12/15/88	TGH	-No longer make AppleTalk calls to the
;					 supervisor (RPM).
;					-Changed transfer and request count from
;					 6 to 13 in DSTATUS and DCONTROL calls (RPM).
;					-Added RESET call to .APPLETALK driver.
;					-Fixed unmount check bug. I was looking at
;					 the P8 device # which wasn't valid.
;					-Added 'unknown block size' bit to status word.
;
; 2.18A		1/4/88		TGH	-Changed error code for open and write in the
;					 AFP drivers from BAD_REQUEST to NO_ERROR.
;
; 2.19A		1/16/88		TGH	-Fixed bug in .APPLETALK get_port call.
;
; 2.1BB		2/9/88		TGH	-Changed flush error result from $20 to $00 in
;					 .AFPn and .APPLETALK drivers.
;					-Added RPM session between OPEN and CLOSE calls.
;
; 2.1CB		2/9/88		TGH	-Changed the characteristics word for the .RPM
;					 driver so that you can now read from it.
;					-Changed the characteristics word for the
;					 .APPLETALK driver so you cannot rename it.
;					-Added support for standard STATUS and CONTROL
;					 calls for the .APPLETALK and .AFPn drivers.
;					-Now use channel # to report port # in Get_Port
;					 call.  I used to use a ATalk global in bank
;					 $E1.
;					-Added AFP messages.
;
; 2.1DB		3/6/89		TGH	-Now all drivers are re-startable.
;					-Added minutes to .AFP driver messages.
;					-Fixed MountVol bug (moved 1 byte too much.)
;
; 2.1EB		3/28/89		MSD	-Changed device characteristics for AFP
;					 drivers from $BA4 to $BE4 (device is writable).
;
; NOTE: I changed the version number to it's final value (2.01).  From now on,
;       changes will be refered to by build disk name (e.g. 5.0 d19) and date.
;
; 5.0 d20	4/24/89		TGH	-Changed version number to 201B (2.01B).
;					-Added ASL A to EjectStatus table calculation.
;
; 5.0 d22	5/11/89		TGH	-Fixed eject status check bug in .AFPn driver.
;					-Changed hook call to follow ERS documentation.
;
; 5.0 d25	6/1/89		TGH	-Changed version number to Final.
;
; 5.0.3 d16	7/5/90		MSD	-Changed .RPM characteristics from $0B60
;					 to $0B40 (clearing the Read enable bit)
;					 since it doesn't make sense to read from
;					 a printer.  Fixes the DRead hang.
;
; 6.0 d37	16-May-91	MSD	Changed version number to $4000 (i.e. 4.0)
;					to match the GS/OS version number.
; *** 6.0.1
;
; 6.0.1d12	14-Dec-92	DAL	Changed version number to $402B.
;
; 6.0.1d16	2-Apr-93	SS	Changed version number to $4020 (final)
;
;--------------------------------------------------------------------------------------

version		equ	$4020		;2-Apr-93 SS

AFPChar		equ	$0BE4
RPMChar		equ	$0B40
ATALKChar	equ	$0F00

atalk_dispatch	equ	$E11014

		print	off
		include	'm16.util'
		include	'equates'
		print	on

		eject

;--------------------------------------------------------------------------------------
;
; Below is the header that is required for drivers.
;
;--------------------------------------------------------------------------------------

header		proc

		EXPORT	dib_table
		EXPORT	dibv1
		EXPORT	SS_Count

		IMPORT	entryvols
		IMPORT	entry1
		IMPORT	entry2

TotDIB_Count	equ	16

		dc.w	dibv1-header		;Offset to 1st DIB
Dev_Count	dc.w	TotDIB_Count			;17 devices
		dc.w	confv1-header		;offset to V1 configuration list
		dc.w	confv2-header		;offset to V2 configuration list
		dc.w	confv3-header		;offset to V3 configuration list
		dc.w	confv4-header		;offset to V4 configuration list
		dc.w	confv5-header		;offset to V5 configuration list
		dc.w	confv6-header		;offset to V6 configuration list
		dc.w	confv7-header		;offset to V7 configuration list
		dc.w	confv8-header		;offset to V8 configuration list
		dc.w	confv9-header		;offset to V9 configuration list
		dc.w	confv10-header		;offset to V10 configuration list
		dc.w	confv11-header		;offset to V11 configuration list
		dc.w	confv12-header		;offset to V12 configuration list
		dc.w	confv13-header		;offset to V13 configuration list
		dc.w	confv14-header		;offset to V14 configuration list
		dc.w	conf_1-header		;offset to 1st configuration list
		dc.w	conf_2-header		;offset to 2nd configuration list

SS_Count	dc.w	0

confv1		dc.l	0			;0 bytes in parameter list
		dc.l	0			;0 bytes in default list
confv2		dc.l	0			;0 bytes in parameter list
		dc.l	0			;0 bytes in default list
confv3		dc.l	0			;0 bytes in parameter list
		dc.l	0			;0 bytes in default list
confv4		dc.l	0			;0 bytes in parameter list
		dc.l	0			;0 bytes in default list
confv5		dc.l	0			;0 bytes in parameter list
		dc.l	0			;0 bytes in default list
confv6		dc.l	0			;0 bytes in parameter list
		dc.l	0			;0 bytes in default list
confv7		dc.l	0			;0 bytes in parameter list
		dc.l	0			;0 bytes in default list
confv8		dc.l	0			;0 bytes in parameter list
		dc.l	0			;0 bytes in default list
confv9		dc.l	0			;0 bytes in parameter list
		dc.l	0			;0 bytes in default list
confv10		dc.l	0			;0 bytes in parameter list
		dc.l	0			;0 bytes in default list
confv11		dc.l	0			;0 bytes in parameter list
		dc.l	0			;0 bytes in default list
confv12		dc.l	0			;0 bytes in parameter list
		dc.l	0			;0 bytes in default list
confv13		dc.l	0			;0 bytes in parameter list
		dc.l	0			;0 bytes in default list
confv14		dc.l	0			;0 bytes in parameter list
		dc.l	0			;0 bytes in default list
conf_1		dc.l	0			;0 bytes in parameter list
		dc.l	0			;0 bytes in default list
conf_2		dc.l	0			;0 bytes in parameter list
		dc.l	0			;0 bytes in default list

;		Block devices below

dibv1		dc.l	dibv2			;Link pointer to next DIB
		dc.l	entryvols		;Entry pointer
		dc.w	AFPChar			;Characteristics
		dc.l	$007FFFFF		;Block count
		str	'AFP1'			;Device name with length
		dcb.b	27,$20
		dc.w	0			;Slot number
		dc.w	1			;Unit number		;This will
		dc.w	version			;Version number		;always be
		dc.w	$001E			;ID # (AFP generic)	;device #1
		dc.w	0			;No header link
		dc.w	0			;No forward link
		dc.w	0			;Reser3ed
		dc.w	0			;Reser3ed
		dc.w	0			;Device number

		dc.w	0			;Block device #0
		dc.w	0			;Session reference number
		dcb.b	28,0			;Volume name
		dc.w	0			;Volume ID
		dc.w	0			;Device status word
		dcb.b	32,0			;Server name
		dcb.b	33,0			;Zone name

dibv2		dc.l	dibv3			;Link pointer to next DIB
		dc.l	entryvols		;Entry pointer
		dc.w	AFPChar			;Characteristics
		dc.l	$007FFFFF		;Block count
		str	'AFP2'			;Device name with length
		dcb.b	27,$20
		dc.w	0			;Slot number
		dc.w	0			;Unit number
		dc.w	version			;Version number
		dc.w	$001E			;ID # (AFP generic)
		dc.w	0			;No header link
		dc.w	0			;No forward link
		dc.w	0			;Reser3ed
		dc.w	0			;Reser3ed
		dc.w	0			;Device number

		dc.w	1			;Block device #1
		dc.w	0			;Session reference number
		dcb.b	28,0			;Volume name
		dc.w	0			;Volume ID
		dc.w	0			;Device status word
		dcb.b	32,0			;Server name
		dcb.b	33,0			;Zone name

dibv3		dc.l	dibv4			;Link pointer to next DIB
		dc.l	entryvols		;Entry pointer
		dc.w	AFPChar			;Characteristics
		dc.l	$007FFFFF		;Block count
		str	'AFP3'			;Device name with length
		dcb.b	27,$20
		dc.w	0			;Slot number
		dc.w	0			;Unit number
		dc.w	version			;Version number
		dc.w	$001E			;ID # (AFP generic)
		dc.w	0			;No header link
		dc.w	0			;No forward link
		dc.w	0			;Reser3ed
		dc.w	0			;Reser3ed
		dc.w	0			;Device number

		dc.w	2			;Block device #2
		dc.w	0			;Session reference number
		dcb.b	28,0			;Volume name
		dc.w	0			;Volume ID
		dc.w	0			;Device status word
		dcb.b	32,0			;Server name
		dcb.b	33,0			;Zone name

dibv4		dc.l	dibv5			;Link pointer to next DIB
		dc.l	entryvols		;Entry pointer
		dc.w	AFPChar			;Characteristics
		dc.l	$007FFFFF		;Block count
		str	'AFP4'			;Device name with length
		dcb.b	27,$20
		dc.w	0			;Slot number
		dc.w	0			;Unit number
		dc.w	version			;Version number
		dc.w	$001E			;ID # (AFP generic)
		dc.w	0			;No header link
		dc.w	0			;No forward link
		dc.w	0			;Reser3ed
		dc.w	0			;Reser3ed
		dc.w	0			;Device number

		dc.w	3			;Block device #3
		dc.w	0			;Session reference number
		dcb.b	28,0			;Volume name
		dc.w	0			;Volume ID
		dc.w	0			;Device status word
		dcb.b	32,0			;Server name
		dcb.b	33,0			;Zone name

dibv5		dc.l	dibv6			;Link pointer to next DIB
		dc.l	entryvols		;Entry pointer
		dc.w	AFPChar			;Characteristics
		dc.l	$007FFFFF		;Block count
		str	'AFP5'			;Device name with length
		dcb.b	27,$20
		dc.w	0			;Slot number
		dc.w	0			;Unit number
		dc.w	version			;Version number
		dc.w	$001E			;ID # (AFP generic)
		dc.w	0			;No header link
		dc.w	0			;No forward link
		dc.w	0			;Reser3ed
		dc.w	0			;Reser3ed
		dc.w	0			;Device number

		dc.w	4			;Block device #4
		dc.w	0			;Session reference number
		dcb.b	28,0			;Volume name
		dc.w	0			;Volume ID
		dc.w	0			;Device status word
		dcb.b	32,0			;Server name
		dcb.b	33,0			;Zone name

dibv6		dc.l	dibv7			;Link pointer to next DIB
		dc.l	entryvols		;Entry pointer
		dc.w	AFPChar			;Characteristics
		dc.l	$007FFFFF		;Block count
		str	'AFP6'			;Device name with length
		dcb.b	27,$20
		dc.w	0			;Slot number
		dc.w	0			;Unit number
		dc.w	version			;Version number
		dc.w	$001E			;ID # (AFP generic)
		dc.w	0			;No header link
		dc.w	0			;No forward link
		dc.w	0			;Reser3ed
		dc.w	0			;Reser3ed
		dc.w	0			;Device number

		dc.w	5			;Block device #5
		dc.w	0			;Session reference number
		dcb.b	28,0			;Volume name
		dc.w	0			;Volume ID
		dc.w	0			;Device status word
		dcb.b	32,0			;Server name
		dcb.b	33,0			;Zone name

dibv7		dc.l	dibv8			;Link pointer to next DIB
		dc.l	entryvols		;Entry pointer
		dc.w	AFPChar			;Characteristics
		dc.l	$007FFFFF		;Block count
		str	'AFP7'			;Device name with length
		dcb.b	27,$20
		dc.w	0			;Slot number
		dc.w	0			;Unit number
		dc.w	version			;Version number
		dc.w	$001E			;ID # (AFP generic)
		dc.w	0			;No header link
		dc.w	0			;No forward link
		dc.w	0			;Reser3ed
		dc.w	0			;Reser3ed
		dc.w	0			;Device number

		dc.w	6			;Block device #6
		dc.w	0			;Session reference number
		dcb.b	28,0			;Volume name
		dc.w	0			;Volume ID
		dc.w	0			;Device status word
		dcb.b	32,0			;Server name
		dcb.b	33,0			;Zone name

dibv8		dc.l	dibv9			;Link pointer to next DIB
		dc.l	entryvols		;Entry pointer
		dc.w	AFPChar			;Characteristics
		dc.l	$007FFFFF		;Block count
		str	'AFP8'			;Device name with length
		dcb.b	27,$20
		dc.w	0			;Slot number
		dc.w	0			;Unit number
		dc.w	version			;Version number
		dc.w	$001E			;ID # (AFP generic)
		dc.w	0			;No header link
		dc.w	0			;No forward link
		dc.w	0			;Reser3ed
		dc.w	0			;Reser3ed
		dc.w	0			;Device number

		dc.w	7			;Block device #7
		dc.w	0			;Session reference number
		dcb.b	28,0			;Volume name
		dc.w	0			;Volume ID
		dc.w	0			;Device status word
		dcb.b	32,0			;Server name
		dcb.b	33,0			;Zone name

dibv9		dc.l	dibv10			;Link pointer to next DIB
		dc.l	entryvols		;Entry pointer
		dc.w	AFPChar			;Characteristics
		dc.l	$007FFFFF		;Block count
		str	'AFP9'			;Device name with length
		dcb.b	27,$20
		dc.w	0			;Slot number
		dc.w	0			;Unit number
		dc.w	version			;Version number
		dc.w	$001E			;ID # (AFP generic)
		dc.w	0			;No header link
		dc.w	0			;No forward link
		dc.w	0			;Reser3ed
		dc.w	0			;Reser3ed
		dc.w	0			;Device number

		dc.w	8			;Block device #8
		dc.w	0			;Session reference number
		dcb.b	28,0			;Volume name
		dc.w	0			;Volume ID
		dc.w	0			;Device status word
		dcb.b	32,0			;Server name
		dcb.b	33,0			;Zone name

dibv10		dc.l	dibv11			;Link pointer to next DIB
		dc.l	entryvols		;Entry pointer
		dc.w	AFPChar			;Characteristics
		dc.l	$007FFFFF		;Block count
		str	'AFP10'			;Device name with length
		dcb.b	26,$20
		dc.w	0			;Slot number
		dc.w	0			;Unit number
		dc.w	version			;Version number
		dc.w	$001E			;ID # (AFP generic)
		dc.w	0			;No header link
		dc.w	0			;No forward link
		dc.w	0			;Reser3ed
		dc.w	0			;Reser3ed
		dc.w	0			;Device number

		dc.w	9			;Block device #9
		dc.w	0			;Session reference number
		dcb.b	28,0			;Volume name
		dc.w	0			;Volume ID
		dc.w	0			;Device status word
		dcb.b	32,0			;Server name
		dcb.b	33,0			;Zone name

dibv11		dc.l	dibv12			;Link pointer to next DIB
		dc.l	entryvols		;Entry pointer
		dc.w	AFPChar			;Characteristics
		dc.l	$007FFFFF		;Block count
		str	'AFP11'			;Device name with length
		dcb.b	26,$20
		dc.w	0			;Slot number
		dc.w	0			;Unit number
		dc.w	version			;Version number
		dc.w	$001E			;ID # (AFP generic)
		dc.w	0			;No header link
		dc.w	0			;No forward link
		dc.w	0			;Reser3ed
		dc.w	0			;Reser3ed
		dc.w	0			;Device number

		dc.w	10			;Block device #10
		dc.w	0			;Session reference number
		dcb.b	28,0			;Volume name
		dc.w	0			;Volume ID
		dc.w	0			;Device status word
		dcb.b	32,0			;Server name
		dcb.b	33,0			;Zone name

dibv12		dc.l	dibv13			;Link pointer to next DIB
		dc.l	entryvols		;Entry pointer
		dc.w	AFPChar			;Characteristics
		dc.l	$007FFFFF		;Block count
		str	'AFP12'			;Device name with length
		dcb.b	26,$20
		dc.w	0			;Slot number
		dc.w	0			;Unit number
		dc.w	version			;Version number
		dc.w	$001E			;ID # (AFP generic)
		dc.w	0			;No header link
		dc.w	0			;No forward link
		dc.w	0			;Reser3ed
		dc.w	0			;Reser3ed
		dc.w	0			;Device number

		dc.w	11			;Block device #11
		dc.w	0			;Session reference number
		dcb.b	28,0			;Volume name
		dc.w	0			;Volume ID
		dc.w	0			;Device status word
		dcb.b	32,0			;Server name
		dcb.b	33,0			;Zone name

dibv13		dc.l	dibv14			;Link pointer to next DIB
		dc.l	entryvols		;Entry pointer
		dc.w	AFPChar			;Characteristics
		dc.l	$007FFFFF		;Block count
		str	'AFP13'			;Device name with length
		dcb.b	26,$20
		dc.w	0			;Slot number
		dc.w	0			;Unit number
		dc.w	version			;Version number
		dc.w	$001E			;ID # (AFP generic)
		dc.w	0			;No header link
		dc.w	0			;No forward link
		dc.w	0			;Reser3ed
		dc.w	0			;Reser3ed
		dc.w	0			;Device number

		dc.w	12			;Block device #12
		dc.w	0			;Session reference number
		dcb.b	28,0			;Volume name
		dc.w	0			;Volume ID
		dc.w	0			;Device status word
		dcb.b	32,0			;Server name
		dcb.b	33,0			;Zone name

dibv14		dc.l	dib_1			;Link pointer to next DIB
		dc.l	entryvols		;Entry pointer
		dc.w	AFPChar			;Characteristics
		dc.l	$007FFFFF		;Block count
		str	'AFP14'			;Device name with length
		dcb.b	26,$20
		dc.w	0			;Slot number
		dc.w	0			;Unit number
		dc.w	version			;Version number
		dc.w	$001E			;ID # (AFP generic)
		dc.w	0			;No header link
		dc.w	0			;No forward link
		dc.w	0			;Reser3ed
		dc.w	0			;Reser3ed
		dc.w	0			;Device number

		dc.w	13			;Block device #13
		dc.b	0			;Session reference number
		dc.b	0			;Dummy byte (slot/drive)
		dcb.b	28,0			;Volume name
		dc.w	0			;Volume ID
		dc.w	0			;Device status word
		dcb.b	32,0			;Server name
		dcb.b	33,0			;Zone name

dib_1		dc.l	dib_2			;Link pointer to next DIB
		dc.l	entry1			;Entry pointer
		dc.w	RPMChar			;Characteristics
		dc.l	0			;Block count
		str	'RPM'			;Device name with length byte
		dcb.b	28,$20
		dc.w	7			;Slot number
		dc.w	1			;Unit number
		dc.w	version			;Version number
		dc.w	$001F			;ID # (RPM driver)
		dc.w	0			;No header link
		dc.w	0			;No forward link
		dc.w	0			;Reserved
		dc.w	0			;Reserved
		dc.w	0			;Device number

; These additional DIB values are used as a GDIB.  These are needed in order to use the
; generated device slot emulation code.

		dc.w	$0080			;Generated drvr_class (character)
		dc.w	$0000			;Smartport type (none)
		dc.w	$0000			;Smartport sub-type (none)
		dc.w	$0000			;Open flag
		dc.w	$0000			;Block size (none)
		dc.w	$0000			;Hardware unit # (none)

dib_2		dc.l	0			;Link pointer to next DIB
		dc.l	entry2			;Entry pointer
		dc.w	ATALKChar		;Characteristics
		dc.l	0			;Block count
		str	'APPLETALK'		;Device name with length
		dcb.b	22,$20
		dc.w	7			;Slot number
		dc.w	2			;Unit number
		dc.w	version			;Version number
		dc.w	$001D			;ID # (AppleTalk main)
		dc.w	0			;No header link
		dc.w	0			;No forward link
		dc.w	0			;Reserved
		dc.w	0			;Reserved
		dc.w	0			;Device number

;
;The following pointers point to the each individual AFP DIBs session reference numbers.
;

dib_table	dc.w	dibv1+$42
		dc.w	dibv2+$42
		dc.w	dibv3+$42
		dc.w	dibv4+$42
		dc.w	dibv5+$42
		dc.w	dibv6+$42
		dc.w	dibv7+$42
		dc.w	dibv8+$42
		dc.w	dibv9+$42
		dc.w	dibv10+$42
		dc.w	dibv11+$42
		dc.w	dibv12+$42
		dc.w	dibv13+$42
		dc.w	dibv14+$42

		endp

;--------------------------------------------------------------------------------------


		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/ATalk/MakeFile b/IIGS.601.SRC/GS.OS/Drivers/ATalk/MakeFile
new file mode 100644
index 0000000..eb047b7
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/ATalk/MakeFile
@@ -0,0 +1 @@
+atalk		Ä	main.aii.obj rpm.aii.obj appletalk.aii.obj others.aii.obj
	LinkIIGS ¶
			main.aii.obj ¶
			rpm.aii.obj ¶
			appletalk.aii.obj ¶
			others.aii.obj ¶
			-t $70BB0110 ¶
			-o atalk
	echo "FileType = $BB  AuxType = $0110" >> {Worksheet}
	quote `directory`atalk

main.aii.obj	Ä	main.aii
	AsmIIGS 	main.aii

rpm.aii.obj	Ä	rpm.aii
	AsmIIGS 	rpm.aii

appletalk.aii.obj Ä	appletalk.aii
	AsmIIGS 	appletalk.aii

others.aii.obj	Ä	others.aii
	AsmIIGS 	others.aii

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/ATalk/Others.aii b/IIGS.601.SRC/GS.OS/Drivers/ATalk/Others.aii
new file mode 100644
index 0000000..7d6489e
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/ATalk/Others.aii
@@ -0,0 +1 @@
+		msb	off
		string	asis
		print	sym
		print	nopage
		print	nomdir

;-------------------------------------------------------------------------------
;
;				.AFPn Drivers
;
;				Copyright (c) 1988
;				Apple Computer, Inc.
;				All rights reserved.
;
;-------------------------------------------------------------------------------
;
; 0.01e01	05/18/88	TGH	-First attempt
;
; 0.02a01	07/12/88	TGH	-Moved code from .AFP (character) driver
;					to initialize the DIBs on startup.
;
; 0.03a01	08/01/88	TGH	-Added disk switch checking for read and
;					 status calls.
;
; 0.04a01	08/04/88	MSD	-Control call's reset routine now forces
;					 the DIBs to be rebuilt.
;
; 0.05a01	08/04/88	TGH	-Added support for PFI vector
;					 notification.
;
; 0.06a01	09/19/88	TGH	-Fixed BlockRead bug.
;
; 0.07a01	11/15/88	TGH	-Fixed bug in attention routines by
;					 adding a PHK/PLB.
;					-Fixed eject bug in that we were always
;					 trying to mount instead of unmount.
;					-No longer mark the volume as unmounted.
;					 The unmount vector does it instead.
;
; 00.07		12/15/88	TGH	-Fixed unmount check bug. I was looking
;					 at the P8 device # which wasn't valid.
;					-Added 'unknown block size' bit to status
;					 word.
;
; 2.18A		1/4/88		TGH	-Changed error code for open and write
;					 in the AFP drivers from BAD_REQUEST to
;					 NO_ERROR.
;
;		1/25/89		MSD	-Read now returns network_error instead
;					 of unknown_vol.
;
; 0.11B		2/9/88		TGH	-Added null flush call.
;
; 27-Sep-91	MSD	Shutdown messages with a non-zero time for devices other
;			than .AFP1 were writing outside our space (likely to stomp
;			on something else) because only 4 bytes were reserved per
;			number string, but the pointers were offset by 32 bytes.
;			Fixed the pointers and rewrote ConvertToAscii which
;			builds the number of minutes string.
;
;  6-Mar-93	JCM	Fixed bug in VUnMountVol where string compare was really
;			quite bogus. It was comparing the entire volume name buffer
;			when it should have been simply comparing the Pascal strings.
;			This was the source of volumes appearing to not unmount when
;			they were ejected under GS/OS.
;
;-------------------------------------------------------------------------------

		print	off
		include	'equates'
		include	'm16.misctool'
		include	'm16.memory'
		include	'm16.util'
		include	'm16.intmath'
		print	on

RamDispatch	equ	$E11014			;Entry point for all AppleTalk
						;calls.
Warm_Cold_Flag	equ	$E101CF			;Word:	0=cold startup/shutdown
						;	1=warm startup/shutdown
Post_OS_Event	equ	$1FCC4			;SCM entry point.

		IMPORT	SS_Count

		ENTRY	startup,\
			read,\
			write,\
			status,\
			control,\
			nullreq,\
			shutdown	:CODE

		ENTRY	VMountVol,\
			VUnMountVol,\
			VAttention,\
			ShowMessages	:CODE
	
		IMPORT	dib_table,\
			dibv1		:CODE

		eject

;-------------------------------------------------------------------------------
;
; Following is the dispatch table used for to call the supported call numbers.
;
;-------------------------------------------------------------------------------

disp_table	proc

		dc.w	startup-1		;startup
		dc.w	nullreq-1		;open
		dc.w	read-1			;read
		dc.w	write-1			;write
		dc.w	nullreq-1		;close
		dc.w	status-1		;status
		dc.w	control-1		;control
		dc.w	nullreq-1		;flush
		dc.w	shutdown-1		;shutdown

		endp

eject_status	proc

		dcb.w	14,0000			;14 zeros

		endp

		eject

*******************************************************************************
*
* DRIVER MAIN entry POINT: entryvols
*
* This is the main entry point for the device driver.  The
* routine validates the call number prior to dispatching to
* the requested function.
*
* Call Number:  $0000   Function: Startup
*               $0001             Open
*               $0002             Read
*               $0003             Write
*               $0004             Close
*               $0005             Status
*               $0006             Control
*               $0007             Flush
*               $0008             Shutdown
*               $0009-$FFFF       Reserved
*
* ENTRY: Call via 'JSL'
*     [<drvr_dib_ptr] = Points to the DIB for the device being accessed
*       <drvr_dev_num = Device number of device being accessed
*      <drvr_call_num = Call number
*               A Reg = Call Number
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 0 x x  0
*
* EXIT:   Direct page = unchanged with the exception of <drvr_tran_cnt
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 0 x 0  0   No error occured
*                       x x 0 0 0 0 x 1  0   Error occured
*
*******************************************************************************

entryvols	proc	EXPORT

		longa	on
		longi	on

		phb			;Save the GS/OS bank register

		phk
		plb

		cmp	#0009		;Max command number
		bge	illegal_req	;Oops, too big.

		pea	func_ret-1	;Push our return address
		asl	a
		tax
		lda	disp_table,x
		pha			;Push the address of routine on the stack
		rts

func_ret	tay			;Save the returned error code

		plb
		bcs	gen_exit	;Branch if there is an error
		ldy	#no_error
gen_exit	tya
		rtl

illegal_req	plb
		lda	#drvr_bad_req
		sec
		rtl

		endp

*******************************************************************************
*
* DRIVER CALL:  STARTUP
*
* This routine must prepare the driver to accept all other driver
* calls.
*
* ENTRY: Call via 'JSR'
*     [<drvr_dib_ptr] = Points to the DIB for the device being accessed
*       <drvr_dev_num = Device number of device being accessed
*      <drvr_call_num = Call number
*      <drvr_tran_cnt = $00000000
*               A Reg = Call Number
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as program bank
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 0 x x  0
*
* EXIT: via an 'RTS'
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 0 x 0  0   No error occured
*                       x x 0 0 0 0 x 1  0   Error occured
*
*******************************************************************************

startup		proc

work1		equ	$00
work2		equ	$04

		entry	sup_num,start_flag

		longa	on
		longi	on

;------------------------------------------------------------------------------
; Below we check to see if we've been cold started.  If we haven't cold
; started yet, we call the supervisory driver.
;------------------------------------------------------------------------------

		lda	#$0000			;Supervisor number (0=find)
		tax				;Call number (find sup number)
		ldy	#$0001			;Supervisor ID (SCC Manager)
		jsl	sup_drvr_disp
		bcs	justleave		;AHH! SCC Manager not found!
						;AppleTalk is off!

		stx	sup_num			;Store the sup number for later.

		lda	#Start_ParmList		;Move parameter list pointer
		sta	<sup_parm_ptr		;onto the zero page.
		lda	#^Start_ParmList+2
		sta	<sup_parm_ptr+2
		lda	sup_num			;Supervisor number (SCC)
		ldx	#$0002			;call number 2
		ldy	#$0001			;Supervisor number
		jsl	sup_drvr_disp
		bcs	justleave

		ldy	#slot_num		;Move the slot
		lda	Slot			;number received from the
		sta	[drvr_dib_ptr],y	;SCC Manager into our DIB.

;------------------------------------------------------------------------------
; Below we check to see if we're initilizing .AFP1 and if so, we don't
; store the unit number because it's hard-coded to #1 in order to replace
; any boot device that might exist.  This will waste one unit number, but
; that shouldn't hurt anything.
;------------------------------------------------------------------------------

		ldy	#dib_specific		;Offset to internal DIB #
		lda	[drvr_dib_ptr],y	;Load the internal DIB #
		beq	@L1			;Branch if .AFP1

		ldy	#unit_num		;Move the unit
		lda	Unit			;number received from the
		sta	[drvr_dib_ptr],y	;SCC Manager into our DIB.

;------------------------------------------------------------------------------
; Below we check to see if we've been warm started.  If we haven't warm
; started yet, we init all the DIBS and set the PFI vectors.
;------------------------------------------------------------------------------

@L1		lda	start_flag		;Load warm start flag
		bne	DoneInit		;Branch if we've already started

		jsr	InitDIBs		;Only init the DIBs the first time
						;through here.

		ldx	#SetPFIVecs		;Tell PFI to jump to me when
		ldy	#^SetPFIVecs		;anything important happens.
		jsl	>RamDispatch

DoneInit	inc	SS_Count		;Increment the global startup/
						;shutdown flag.
		inc	start_flag		;Mark that we've started.

		lda	#0000			;No error
		clc
justleave	rts				;Leave

;-----------------------------------------------------------------------------
; InitDIBs routine first sets all the .AFP drivers status word to $8001
; (disk offline).  It then gets some memory for the ListSessions2 call.  It
; then stuffs the resulting data from the ListSessions2 call into the DIBs.
;-----------------------------------------------------------------------------

InitDIBs	pei	<work1
		pei	<work1+2
		pei	<work2

;-----------------------------------------------------------------------------
; Below we init all the status words to Device Offline.
;-----------------------------------------------------------------------------

		ldx	#0000		;Start with entry number 1
InitLoop	txa
		asl	a
		tay
		lda	dib_table,y
		sta	<work2

		ldy	#$0020		;Index to status word.
		lda	#$8000		;Disk not in drive
		sta	(<work2),y

		inx
		cpx	#0014
		bne	InitLoop

;-----------------------------------------------------------------------------
; Below we get a unique ID for our ListSessions2 destination buffer.
;-----------------------------------------------------------------------------

		pea	0000			;Result space
		pea	$3C00			;Allocated by driver
		_GetNewID
		pla				;Get an ID and
		sta	MyID			;store ID
		bcc	@GotID			;Branch if successful
		jmp	FixZP			;Ahh! Error out.

;-----------------------------------------------------------------------------
; Below we get a destination buffer for the ListSessions2 call.
;-----------------------------------------------------------------------------

@GotID		PushLong #0000			;Result space
		PushLong #1358			;Max size of block for ListSession2
		PushWord MyID			;User ID
		PushWord #$C018			;Locked no-cross
		PushLong #0			;Location (don't care)
		_NewHandle
		pla				;Pull low word
		sta	<work1
		sta	MyHandle
		pla				;Pull high word
		sta	<work1+2
		sta	MyHandle+2
		bcc	@GotMem			;Branch if successful
		jmp	DeleteID		;Ahh! Error out.

@GotMem		ldy	#2			;Dereference handle at WORK1
		lda	[<work1]		;and store the resulting pointer
		tax				;back at WORK1 and into the
		lda	[<work1],y		;ListSession2 call parameter
		sta	<work1+2		;block.
		sta	DestBuffer+2
		stx	<work1
		stx	DestBuffer

		ldx	#ListSessions		;Get the list of volumes that
		ldy	#^ListSessions		;are already mounted.  This will
		jsl	>RamDispatch		;be nill on booting.
		bcs	NoVols			;If error, just leave.

;-----------------------------------------------------------------------------
; Below we loop through (0..NUMVOLS) and set all the necessary data in
; all the .AFPn drivers DIBs.
;-----------------------------------------------------------------------------

		lda	NumVols		;Are there any volumes?
		beq	NoVols		;Branch if not.

		ldx	#0000		;Start with entry number 1

CleanLoop	txa
		asl	a
		tay
		lda	dib_table,y
		sta	<work2

		ldy	#0030			;Move 32 bytes (0-31)
NameLoop	lda	[<work1],y		;Move the session ref #,
		sta	(<work2),y		;name, and vol ID in.
		dey
		dey
		bpl	NameLoop

		inc	<Work2			;Bump Work2 so that Work2,20 and
		inc	<Work2			;Work1,20 both point to server name.

		sep	#$30
		longa	off
		longi	off

		ldy	#96			;Move the next 65 bytes (base
@L1		lda	[<Work1],y		;32 + 32 (server) +33 (zone) -1
		sta	(<Work2),y		;(we start at 0) = 96 into the
		dey				;dest buffer.
		cpy	#32			;Keep going until we reach the
		bcs	@L1			;status word.

		rep	#$30
		longa	on
		longi	on

		ldy	#$0020-2		;-2 because of two incs.
		lda	#$8010			;Disk in drive
		sta	(<work2),y

		clc			;plus address
		lda	<work1
		adc	#97
		sta	<work1
		lda	<work1+2
		adc	#0
		sta	<work1+2

				inx
		cpx	NumVols
		bcc	CleanLoop

;-----------------------------------------------------------------------------
; Now we dispose of our memory and user ID and leave.
;-----------------------------------------------------------------------------

NoVols		PushLong MyHandle	;My handle
		_DisposeHandle		;Get rid of the memory

DeleteID	lda	MyID		;Push my ID onto the stack
		pha
		_DeleteID		;Delete my ID.

FixZP		pla
		sta	<work2
		pla
		sta	<work1+2
		pla
		sta	<work1

		lda	#0000
		clc
		rts

MyID		dc.w	0
MyHandle	dc.l	0

sup_num		dc.w	0

Start_ParmList
Slot		dc.w	0000
Channel		dc.w	0000
Unit		dc.w	0000

start_flag	dc.w	0			;+1 for each AFPn driver started.

ListSessions	dc.b	00			;Synchronous
		dc.b	$39			;FIListSessions
		dc.w	0			;Result
		dc.w	1358			;Buffer length
DestBuffer	dc.l	0			;Buffer pointer
NumVols		dc.b	00			;Entries returned
		dc.b	00			;dummy zero for long compare

SetPFIVecs	dc.b	00			;Synchronous
		dc.b	$37			;FISetVectors
		dc.w	0			;Result code
		dc.b	$40			;$40 = GS/OS active
		dc.l	VMountVol		;Mount Vol Vector
		dc.l	VUnMountVol		;UnMount Vol Vector
		dc.l	VAttention		;Attention Vector
		dc.l	0
		dc.l	0

		endp

		eject

*******************************************************************************
*
* Below is the routine that is called for all un-supported calls with no error.
*
*******************************************************************************

nullreq		proc

		longa	on
		longi	on

		lda	#no_error
		clc
		rts

		endp

*******************************************************************************
*
* DRIVER CALL:  READ
*
* This call executes a read from the device.  Block devices must
* validate the initial block number and that the request count is
* an integral multiple of the block size.  In addition the block
* number of each successive block must be validated as it is
* accessed when an multiple block I/O transaction is in place.
*
* ENTRY: via a 'JSR'
*       <drvr_dev_num = Device Number of current device being accessed
*       <drvr_buf_ptr = Pointer to I/O buffer
*       <drvr_blk_num = Initial block number
*       <drvr_req_cnt = Number of bytes to be transferred
*      <drvr_blk_size = Size of block to be accessed
*      <drvr_tran_cnt = $00000000
*               A Reg = Call Number
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 0 x x  0
*
* EXIT: via an 'RTS'
*      <drvr_tran_cnt = Number of bytes transferred
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 0 x 0  0  if no error
*                       x x 0 0 0 0 x 1  0  if error
*
*******************************************************************************

read		proc

		longa	on
		longi	on

		ldy	#afpn_status
		lda	[<drvr_dib_ptr],y	;Check for a disk switch
		bit	#$0001			;(Insertion or Ejection)
		beq	read1			;Branch if not.

		and	#$FFFE			;Clear the disk switch
		sta	[<drvr_dib_ptr],y	;state bit.
		lda	#drvr_disk_sw		;Return with proper error.
		sec
		rts

read1		ldy	#afpn_status		;Get the current status for this
		lda	[drvr_dib_ptr],y	;device.
		and	#$0010			;Drive offline?
		bne	readit			;Branch if not.
		lda	#drvr_off_line		;Return with proper error.
		sec
		rts

readit		lda	<drvr_req_cnt		;If the request count = 0 then
		ora	<drvr_req_cnt+2		;we're already done.
		beq	GoodExit

		lda	<drvr_req_cnt+2		;Check the request count
		cmp	#$0080			;If > $007FFFFF, too much.
		blt	@L1

		lda	#drvr_bad_count		;They asked for too much
		sec				;Flag error and leave.
		rts

@L1		lda	#network_error		; was unknown_vol (MSD)
		sec
		rts

; The code below transfers a block of zeros into the destination buffer.  This
; routine was taken out in favor of the above error condition.
;
;		sta	<drvr_tran_cnt+2	;Set the transfer count =
;		lda	<drvr_req_cnt
;		sta	<drvr_tran_cnt		;to the request count.
;
;		pea	SourceBuffer>>16	;Source buffer
;		pea	SourceBuffer
;		pei	drvr_buf_ptr+2		;Destination buffer
;		pei	drvr_buf_ptr
;		pei	drvr_req_cnt+2		;Request count
;		pei	drvr_req_cnt
;		pea	$0804
;		jsl	>$01FC70		;MOVE_INFO

GoodExit	lda	#no_error
		clc
		rts

SourceBuffer	dc.w	0000

		endp

*******************************************************************************
*
* DRIVER CALL:  WRITE
*
* This call executes a write from the device.  Block devices must
* validate the initial block number and that the request count is
* an integral multiple of the block size.  In addition the block
* number of each successive block must be validated as it is
* accessed when an multiple block I/O transaction is in place.
*
* ENTRY: via a 'JSR'
*       <drvr_dev_num = Device Number of current device being accessed
*       <drvr_buf_ptr = Pointer to I/O buffer
*       <drvr_blk_num = Initial block number
*       <drvr_req_cnt = Number of bytes to be transferred
*      <drvr_blk_size = Size of block to be accessed
*      <drvr_tran_cnt = $00000000
*               A Reg = Call Number
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 0 x x  0
*
* EXIT: via an 'RTS'
*      <drvr_tran_cnt = Number of bytes transferred
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = 0=m=x=e
*                       Carry = 1 if error occured
*                       Carry = 0 if no error occured
*
*******************************************************************************

write		proc

		longa	on
		longi	on

		ldy	#afpn_status
		lda	[<drvr_dib_ptr],y	;Check for a disk switch
		bit	#$0001			;(Insertion or Ejection)
		beq	write1			;Branch if not.

		and	#$FFFE			;Clear the disk switch
		sta	[<drvr_dib_ptr],y	;state bit.
		lda	#drvr_disk_sw		;Return with proper error.
		sec
		rts

write1		ldy	#afpn_status		;Get the current status for this
		lda	[drvr_dib_ptr],y	;device.
		and	#$0010			;Drive offline?
		bne	writeit			;Branch if not.
		lda	#drvr_off_line		;Return with proper error.
		sec
		rts

writeit		lda	<drvr_req_cnt		;If the request count = 0 then
		ora	<drvr_req_cnt+2		;we're already done.
		beq	GoodExit

		lda	<drvr_req_cnt+2		;Check the request count
		cmp	#$0080			;If > $007FFFFF, too much.
		blt	@L1

		lda	#drvr_bad_count		;They asked for too much
		sec				;Flag error and leave.
		rts

@L1		lda	#drvr_wr_prot		;Just return with this error.
		sec
		rts

GoodExit	lda	#no_error
		clc
		rts

		endp

*******************************************************************************
*
* DRIVER CALL:  STATUS
*
* This routine supports all the standard device status calls.
* Any status call which is able to detect an OFFLINE or DISK
* SWITCHED condition should call the system service routine
* SET_DISKSW.  OFFLINE and DISKSW are conditions and not errors
* when detected by a status call and should only be returned as
* conditions in the status list.
*
* Status Code:  $0000   Return Device Status
*               $0001   Return Control Parameters
*               $0002   Return Wait/No Wait Mode
*               $0003   Return Format Options
*
* ENTRY: via a 'JSR'
*       <drvr_dev_num = Device Number of current device being accessed
*     <drvr_clist_ptr = Pointer to control list
*     <drvr_ctrl_code = Control code
*       <drvr_req_cnt = Number of bytes to be transferred
*      <drvr_tran_cnt = $00000000
*               A Reg = Call Number
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 0 x x  0
*
* EXIT: via an 'RTS'
*      <drvr_tran_cnt = Number of bytes transferred
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 0 x 0  0   No error occured
*                       x x 0 0 0 0 x 1  0   Error occured
*
*******************************************************************************

status		proc

		longa	on
		longi	on

		lda	<drvr_stat_code		;Is this a legal status call?
		cmp	#$8002
		beq	get_eject_status
		cmp	#status_max
		blt	@L1

		lda	#drvr_bad_code		;Invalid call number
		sec
		rts

@L1		asl	a
		tax
		lda	status_table,x
		pha
		rts

get_eject_status
		lda	<drvr_req_cnt+2
		bne	@badreqcnt
		lda	<drvr_req_cnt
		beq	status_null
		cmp	#0002			;We only want 2.
		bne	@badreqcnt

		ldy	#dib_specific
		lda	[drvr_dib_ptr],y
		asl	a
		tay
		lda	eject_status,y
		sta	[drvr_slist_ptr]

@setxfercnt	brl	set_xfer_cnt
@badreqcnt	lda	#drvr_bad_parm		;Invalid request count
		sec
		rts

status_table	dc.w	dev_stat-1
		dc.w	get_ctrl-1
		dc.w	get_wait-1
		dc.w	status_null-1		;get_format-1
		dc.w	status_null-1		;get_partn_map-1
status_max	equ	(*-status_table)/2

blockcount	dc.l	$007FFFFF


status_null	lda	#no_error
		clc
		rts

dev_stat	ldx	<drvr_req_cnt+2		;High word
		bne	status_bparm
		ldx	<drvr_req_cnt		;Low word
		beq	status_null
		cpx	#0002
		blt	status_bparm
		cpx	#0007
		bge	status_bparm

		pei	<drvr_slist_ptr
		pei	<drvr_slist_ptr+2

		ldy	#afpn_status

		sec
		lda	<drvr_slist_ptr
		sbc	#afpn_status
		sta	<drvr_slist_ptr
		lda	<drvr_slist_ptr+2
		sbc	#0000
		sta	<drvr_slist_ptr+2

		lda	[<drvr_dib_ptr],y
		sta	[<drvr_slist_ptr],y

		cpx	#0003
		blt	doneit

		sep	#$20
		longa	off

		ldy	#afpn_status+2
		ldx	#0002

@L1		lda	blockcount-2,x
		sta	[<drvr_slist_ptr],y
		inx
		iny
		cpx	<drvr_req_cnt
		bne	@L1

doneit		rep	#$20
		longa	on

		pla
		sta	<drvr_slist_ptr+2
		pla
		sta	<drvr_slist_ptr

;
; Now that we're done returning the device status (and block count), we have to
; check for OFFLINE and DISKSW state.  If this condition exist then the
; driver must call SET_DISKSW via the system service call table.  We don't want
; to call SET_DISKSW if the volume is coming on-line.  The SET_DISKSW routine
; doesn't understand that case.
;

		ldy	#afpn_status
		lda	[<drvr_dib_ptr],y
		and	#$0001			;Has it gone offline or disksw?
		beq	set_xfer_cnt		;Branch if not.

		ldy	#afpn_status		;Offset into dib
		lda	[<drvr_dib_ptr],y	;Load current status
		and	#$FFFE			;Disk switched handled.
		sta	[<drvr_dib_ptr],y	;Store new status

		jsl	set_disksw		;Tell GS/OS about switch

set_xfer_cnt	lda	<drvr_req_cnt		;Set the transfer count equal
		sta	<drvr_tran_cnt		;to the request count.
		lda	<drvr_req_cnt+2
		sta	<drvr_tran_cnt+2

		lda	#no_error
		clc
		rts


get_ctrl	ldx	<drvr_req_cnt+2
		bne	status_bparm
		ldx	<drvr_req_cnt
		beq	set_xfer_cnt
		cpx	#0002			;Check againts min.
		blt	status_bparm
		cpx	#specific_size+3	;Check againts max.
		blt	get_ctrl1

status_bparm	lda	#drvr_bad_parm		;Invalid request count
		sec
		rts

get_ctrl1	lda	#specific_size		;Load real length of list
		sta	[<drvr_slist_ptr]	;Store it in destination
		dex				;Are we at the end yet?
		dex
		beq	set_xfer_cnt

		ldx	#0002
		ldy	#dib_specific

		sep	#$20
		longa	off

@L1		lda	[drvr_dib_ptr],y
		phy
		txy
		sta	[<drvr_slist_ptr],y
		ply
		iny
		inx
		cpx	<drvr_req_cnt
		bne	@L1

		rep	#$20
		longa	on

		bra	set_xfer_cnt


get_wait	lda	<drvr_req_cnt+2
		bne	status_bparm
		lda	<drvr_req_cnt
		beq	set_xfer_cnt
		cmp	#0002
		bne	status_bparm

		lda	#0000
		sta	[<drvr_slist_ptr]

		bra	set_xfer_cnt

		endp

*******************************************************************************
*
* DRIVER CALL:  CONTROL
*
* This routine supports all the standard device control calls.
*
* Control Code: $0000   Reset Device
*               $0001   Format Device
*               $0002   eject Media
*               $0003   Set Control Parameters
*               $0004   Set Wait/No Wait Mode
*               $0005   Set Format Options
*               $0006   Assign Partition Owner
*               $0007   Arm Signal
*               $0008   Disarm Signal
*
* ENTRY: via a 'JSR'
*       <drvr_dev_num = Device Number of current device being accessed
*     <drvr_clist_ptr = Pointer to control list
*     <drvr_ctrl_code = Control code
*       <drvr_req_cnt = Number of bytes to be transferred
*      <drvr_tran_cnt = $00000000
*               A Reg = Call Number
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 0 x x  0
*
* EXIT: via an 'RTS'
*      <drvr_tran_cnt = Number of bytes transferred
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 0 x 0  0   No error occured
*                       x x 0 0 0 0 x 1  0   Error occured
*
*******************************************************************************

control		proc

work1		equ	00

		longa	on
		longi	on

		lda	<drvr_ctrl_code		;Is this a legal control call?
		cmp	#$8001
		beq	spec_c1
		cmp	#$8002
		beq	set_eject_status
		cmp	#control_max
		blt	L1

control_bad	lda	#drvr_bad_code		;Invalid call number
		sec
		rts

L1		asl	a
		tax
		lda	control_table,x
		pha
		rts

spec_c1		jsl	ShowMessages
		bra	control_null		;Leave with no error

set_eject_status
		lda	<drvr_req_cnt+2
		bne	@badreqcnt
		lda	<drvr_req_cnt
		beq	control_null
		cmp	#0002			;We only want 2.
		bne	@badreqcnt

		ldy	#dib_specific
		lda	[drvr_dib_ptr],y
		asl	a
		tay
		lda	[drvr_clist_ptr]
		sta	eject_status,y

@setxfercnt	brl	set_xfer_cnt
@badreqcnt	brl	bad_req_cnt

control_null	lda	#no_error
		clc
		rts

control_table	dc.w	control_null-1		;dev_reset-1
		dc.w	control_null-1		;format-1
		dc.w	media_eject-1
		dc.w	set_ctrl-1
		dc.w	control_null-1		;set_wait-1
		dc.w	control_null-1		;set_format-1
		dc.w	control_null-1		;set_partn-1
		dc.w	control_bad-1		;arm_signal-1
		dc.w	control_bad-1		;disarm_signal-1
		dc.w	control_null-1		;set_partn_map-1
control_max	equ	(*-control_table)/2


media_eject	ldy	#afpn_status		;Get the current status for this
		lda	[drvr_dib_ptr],y	;device.
		and	#$0010			;=zero if drive offline
		beq	GoodExit			;Disk is offline, just leave

@diskthere	ldy	#dib_specific		;Load index to DIB number
		lda	[drvr_dib_ptr],y	;Load DIB number (0-13)
		asl	a
		tay				;Move into index reg.
		lda	eject_status,y		;Load the eject status
		beq	DoEject			;Branch if zero

		ldy	#afpn_status		;Reset our status word to volume
		lda	[drvr_dib_ptr],y
		ora	#$0001			;disk switched. (bit 0)
		sta	[drvr_dib_ptr],y

		pei	<drvr_dev_num		;Device number
		ldx	#0000			;Load null
		phx				;Null
		phx				;Null
		lda	#$0008			;Disk inserted (not really)
		jsl	>Post_OS_Event

		bra	GoodExit

		ENTRY	DoEject			;Entry for ShutDown call.

DoEject		ldy	#afpn_session		;Get the session number of this
		lda	[drvr_dib_ptr],y	;volume.
		and	#$00FF			;Mask off dummy slot/drive byte.
		beq	GoodExit		;Just leave if no volume mounted.
		sta	LOSession		;Store in logoff call block.
		sta	UMSessNum		;Store in unmount call block.

		lda	drvr_dib_ptr		;UMVolName=^volume name in DIB.
		clc
		adc	#afpn_volname
		sta	UMVolName
		lda	drvr_dib_ptr+2
		and	#$00FF
		adc	#0
		sta	UMVolName+2

		ldy	#afpn_volID		;Copy the volid into the unmount
		lda	[drvr_dib_ptr],y	;call block.
		sta	UMVolID

		ldx	#UnMountVol		;Unmount the volume.
		ldy	#^UnMountVol
		jsl	>RamDispatch
		bcs	@L0

;
; We no longer fix-up the status word.  We let the unmount vector routine handle
; this.  11/15/88   **TGH
;
;		ldy	#afpn_session		;Zero our session number in the
;		lda	#0000			;DIB.
;		sta	[drvr_dib_ptr],y
;		ldy	#afpn_status		;Reset our status word to volume
;		lda	#$0001			;offline and disk switched. (bit 4 & 0)
;		sta	[drvr_dib_ptr],y

		jsr	Scan_4_Session		;Scan for other volumes with this #
		bcc	GoodExit		;Branch if session # is valid.

		ldx	#LogOut
		ldy	#^LogOut
		jsl	>RamDispatch
		bcc	GoodExit

@L0		lda	#$0088
		sec
		rts

GoodExit	lda	#$0000
		clc
		rts

Scan_4_Session	pei	<work1

		ldx	#0013

ScanLoop	txa
		asl	a
		tay
		lda	dib_table,y
		sta	<work1

		ldy	#$0020
		lda	(<work1),y		;Load the status word
		and	#$0010			;Is the disk in drive bit set?
		beq	ScanNext

		lda	(<work1)		;Load the session ref #
		and	#$00FF
		cmp	LOSession
		beq	ScanExit

ScanNext	dex
		bpl	ScanLoop

		pla
		sta	work1
		sec
		rts

ScanExit	pla
		sta	work1

		lda	#no_error
		clc
		rts

UnMountVol	dc.b	00			;Synchronous
		dc.b	$2E			;FIMountVol
		dc.w	0			;Result code
UMSessNum	dc.b	0			;Session number ->
		dc.b	$80			;UnMount Vol
UMVolName	dc.l	0			;Volume name pointer ->
UMVolID		dc.w	0			;Volume ID # ->
		dc.b	0			;Slot and driver
		dc.l	0			;Password pointer (nil)

LogOut		dc.b	00			;Synchronous
		dc.b	$2D			;FILogout
		dc.w	0			;Result code
LOSession	dc.b	0			;Session number
		dc.b	0			;dummy byte for word store


set_ctrl	lda	<drvr_req_cnt+2
		bne	bad_req_cnt
		lda	<drvr_req_cnt
		beq	set_xfer_cnt
		cmp	#specific_size+2	;Plus 2 because of length word.
		blt	set_xfer_cnt

bad_req_cnt	lda	#drvr_bad_parm
		sec
		rts

set_xfer_cnt	lda	<drvr_req_cnt		;Set the transfer count equal
		sta	<drvr_tran_cnt		;to the request count.
		lda	<drvr_req_cnt+2
		sta	<drvr_tran_cnt+2

		lda	#no_error
		clc
		rts

		endp

*******************************************************************************
*
* DRIVER CALL:  SHUTDOWN
*
* This call prepares the driver for shutdown.  This may include
* closing a character device as well as releasing any and all
* system resources that may have been aquired by either a
* STARTUP or OPEN call.
*
* ENTRY: via a 'JSR'
*       <drvr_dev_num = Device Number of current device being accessed
*      <drvr_tran_cnt = $00000000
*               A Reg = Call Number
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 0 x x  0
*
* EXIT: via an 'RTS'
*      <drvr_tran_cnt = Number of bytes transferred
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 0 x 0  0   No error occured
*                       x x 0 0 0 0 x 1  0   Error occured
*
*******************************************************************************

shutdown	proc

		longa	on
		longi	on

; First we check to see if we're shuting down for good (cold).  If we're not,
; we just continue on.  If we are, we unmount the volume (if any) and log off
; the server if it's the last volume.

		lda	Warm_Cold_Flag		;0 = cold, 1 = warm
		bne	@CheckLocalShutdown	;Branch if we're just switching.

; We now know that the machine is about to be turned off or restarted.  We
; want to log off all file servers just to stay clean.

		ldy	#afpn_status		;Offset into DIB for status word
		lda	[<drvr_dib_ptr],y	;Load the status word
		and	#$0010			;Is there a volume on line?
		beq	@CheckLocalShutdown	;Branch if not.

		jsr	DoEject			;This will do the ejectulation.

; Now we check if we've shutdown any .AFPn drivers.  If not, we re-set the
; PFI hooks to their default settings and mark us as shutdown.  We only want
; to re-set the PFI hooks on the last driver.  If we have shutdown once, we
; just skip to the main ATALK shutdown check.

@CheckLocalShutdown
		dec	start_flag		;Have we shutdown all yet?
		bne	@CheckMainShutdown

		ldx	#SetPFIVecs		;Tell PFI to NOT jump to me when
		ldy	#^SetPFIVecs		;anything important happens.
		jsl	>RamDispatch

; Now we check to see if we're the last driver to shutdown.  We're just part
; of the main .AFPn, .APPLETALK, and .RPM driver file.

@CheckMainShutdown
		dec	SS_Count
		beq	@LastOne

		lda	#drvr_bad_req
		sec
		rts

@LastOne	lda	#no_error
		clc
		rts

SetPFIVecs	dc.b	00			;Synchronous
		dc.b	$37			;FISetVectors
		dc.w	0			;Result code
		dc.b	$40			;$40 = GS/OS active
		dc.l	0	;Default	;Mount Vol Vector
		dc.l	0	;Default	;UnMount Vol Vector
		dc.l	0	;Default	;Attention Vector
		dc.l	0
		dc.l	0

		endp

;-------------------------------------------------------------------------------
;
; VMountVol
;
; This routine is called by PFI when a volume has come on line.  It will first
; scan the AFP DIBs for a free DIB.  If one is found its DIB specific information
; is updated and is marked as on-line.  If a free DIB is NOT found, the MountVol
; event is ignored.
;
; On Entry (via JSL):
;
;	A Reg = Unknown
;	X Reg = Low word of parameter block pointer
;	Y Reg = High word of parameter block pointer
;	D Reg = PFI direct page
;	B Reg = PFI data bank
;	P Reg = N V M X D I Z C E
;	        x x 0 0 0 x x x 0
;
; X and Y point to the following data structure:
;
;		Byte		Session reference number
;		Byte		Unit #
;		PString[28]	Volume name
;		Word		Volume ID
;		PString[32]	Server name
;		PString[33]	Zone name
;
; On Exit (via RTL):
;
;	A Reg = Unknown
;	X Reg = Unknown
;	Y Reg = Unknown
;	D Reg = PFI direct page
;	B Reg = PFI data bank
;	P Reg = N V M X D I Z C E
;	        x x 0 0 0 x x x 0
;

VMountVol	proc				;Mount Vol Vector

Work1		equ	$00
Work2		equ	$04

		phb
		php				;     and P.

		phk
		plb

		rep	#$30			;Longall
		longa	on
		longi	on

		pei	<Work1			;Save PFI's zero page.
		pei	<Work1+2
		pei	<Work2

		stx	<Work1			;Put the pointer to the data on zero
		sty	<Work1+2		;page so we can access the data.

		ldx	#0000
SearchLoop	txa
		asl	a
		tay
		lda	dib_table,y
		sta	<Work2

		ldy	#$0020
		lda	(<Work2),y		;Load status word
		and	#$0010
		bne	KeepLooking

		ldy	#0030
NameLoop	lda	[<Work1],y		;Move the session ref #,
		sta	(<Work2),y		;name, and vol ID in.
		dey
		dey
		bpl	NameLoop

		inc	<Work2
		inc	<Work2

		sep	#$30
		longa	off
		longi	off

		ldy	#97-1
@L1		lda	[<Work1],y
		sta	(<Work2),y
		dey
		cpy	#32
		bcs	@L1

		rep	#$30
		longa	on
		longi	on

		ldy	#$0020-2		;minus 2 because of the 2 inc's.
		lda	#$8011			;Disk in drive, Disk switched
		sta	(<Work2),y

		bra	Exit			;Leave now...

KeepLooking	inx				;Next DIB please...
		cpx	#14			;Are we past the last one?
		blt	SearchLoop		;Branch if not.

Exit		pla				;Restore PFI's zero page.
		sta	<Work2
		pla
		sta	<Work1+2
		pla
		sta	<Work1

		plp				;Restore the state.
		plb				;Restore b
		
		rtl				;And exit.

		endp

;-------------------------------------------------------------------------------
;
; VUnMountVol
;
; This routine is called by PFI when a volume has gone off line.  It will first
; scan all the AFP DIBs.  If the DIB was found it will mark the drive as off-line.
; If the DIB was NOT found, the unmount event will be ignored.
;
; On Entry (via JSL):
;
;	A Reg = Unknown
;	X Reg = Low word of parameter block pointer
;	Y Reg = High word of parameter block pointer
;	D Reg = PFI direct page
;	B Reg = PFI data bank
;	P Reg = N V M X D I Z C E
;	        x x 0 0 0 x x x 0
;
; X and Y point to the following data structure:
;
;		Byte		Session reference number
;		Byte		Unit #
;		PString[28]	Volume name
;		Word		Volume ID
;		PString[32]	Server name
;		PString[33]	Zone name
;
; On Exit (via RTL):
;
;	A Reg = Unknown
;	X Reg = Unknown
;	Y Reg = Unknown
;	D Reg = PFI direct page
;	B Reg = PFI data bank
;	P Reg = N V M X D I Z C E
;	        x x 0 0 0 x x x 0
;

VUnMountVol	proc				;UnMount Vol Vector

Work1		equ	$00			;Zero page equates	(LONG)
Work2		equ	$04			;			(WORD)

		phb
		php				;     and P.

		phk
		plb

		rep	#$30			;Longall
		longa	on
		longi	on

		pei	<Work1			;Save PFI's zero page.
		pei	<Work1+2
		pei	<Work2

		stx	<Work1			;Put the pointer to the data on zero
		sty	<Work1+2		;page so we can access the data.

		ldx	#0000
SearchLoop	txa
		asl	a
		tay
		lda	dib_table,y
		sta	<Work2

		sep	#$30			;3-Mar-93 JCM
		longa	off
		longi	off			;3-Mar-93 JCM

		lda	[<Work1]		;session refNum
		cmp	(<Work2)
		bne	KeepLooking

*** Added - 3-Mar-93 JCM - This actually does a string compare based on the current length
***			   of the string in the buffer. Before it was comparing all of the
***			   bytes in the buffer, which can be a bad thing. If you had mounted
***			   two volumes, one with a longer name than the other, the extra
***			   characters could be in the source buffer (such as those coming
***			   from the Ethernet card), causing the old compare to fail even when
***			   we had really found the right volume. This caused AFP volumes to
***			   appear not to unmount sometimes under GS/OS with the Ethertalk card.

		ldy	#2
		lda	[<Work1],y		;volume name string length byte
			
		inc	a
		inc	a
		tay
			
ScanLoop	lda	[<Work1],y
		cmp	(<Work2),y
		bne	KeepLooking
		dey
		cpy	#2
		bge	ScanLoop

;;;		ldy	#0002
;;;ScanLoop	lda	[<Work1],y
;;;		cmp	(<Work2),y
;;;		bne	KeepLooking
;;;		iny
;;;		cpy	#30
;;;		bne	ScanLoop

*** End - 3-Mar-93 JCM

		rep	#$30			;3-Mar-93 JCM
		longa	on
		longi	on			;3-Mar-93 JCM

		ldy	#$0020
		lda	#$8001			;Disk NOT in drive, Disk switched
		sta	(<Work2),y

		bra	Exit			;Leave now...

KeepLooking	rep	#$30			;3-Mar-93 JCM
		longa	on
		longi	on			;3-Mar-93 JCM

		inx				;Next DIB please...
		cpx	#14			;Are we past the last one?
		blt	SearchLoop		;Branch if not.

Exit		pla				;Restore PFI's zero page.
		sta	<Work2
		pla
		sta	<Work1+2
		pla
		sta	<Work1

		plp				;Restore the state.
		plb				;Restore b
		
		rtl				;And exit.

		endp

;-------------------------------------------------------------------------------
;
; VAttention
;
; This routine is called by PFI when an attention routine was received from the
; server of the connection to the server was closed.
;
; On Entry (via JSL):
;
;	A Reg = Unknown
;	X Reg = Low word of parameter block pointer
;	Y Reg = High word of parameter block pointer
;	D Reg = PFI direct page
;	B Reg = PFI data bank
;	P Reg = N V M X D I Z C E
;	        x x 0 0 0 x x x 0
;
; X and Y point to the following data structure:
;
;		Byte		Session reference number
;		Byte		Type
;		Word		Attention data
;		PString[32]	Server name
;
; On Exit (via RTL):
;
;	A Reg = Unknown
;	X Reg = Unknown
;	Y Reg = Unknown
;	D Reg = PFI direct page
;	B Reg = PFI data bank
;	P Reg = N V M X D I Z C E
;	        x x 0 0 0 x x x 0
;

VAttention	proc				;Attention Vector

		ENTRY	ShowMessages

Work1		equ	$00			;Zero page equates	(LONG)
Work2		equ	$04			;			(WORD)
Work3		equ	$06			;			(WORD)

		phb				;Save B register
		php				;     and P register.

		phk
		plb

		rep	#$30			;Longall
		longa	on
		longi	on

		pei	<Work1			;Save PFI's zero page.
		pei	<Work1+2
		pei	<Work2
		pei	<Work3

		stx	<Work1			;Put the pointer to the data on zero
		sty	<Work1+2		;page so we can access the data.

		lda	[Work1]			;Session reference number
		and	#$00FF			;1 byte long!
		asl	a			;Times 2 for table.
		tay
		lda	AMessageTable,y		;Address of 1st sub string.
		sta	Work2
		lda	BMessageTable,y		;Address of 2nd sub string.
		sta	Work3

		jsr	MoveServerName		;Move server name into 1st
						;sub string.

		lda	[<Work1]		;Load attention type byte
		and	#$FF00
		bne	CrashCode		;Branch if session lost

		ldy	#0002
		lda	[<Work1],y		;Test attention code
		and	#$00FF
		bit	#$0040
		bne	CrashCode
		bit	#$0080
		bne	ShutdownTime
		jmp	Exit			;Anything else we ignore!

CrashCode	lda	#0051
		brl	PostIt

ShutdownTime	ldy	#2
		lda	[<Work1],y

		xba				;Swap word because it's in
						;AFP (high-low) format and
						;we want it the other way.

		beq	@L1			;If zero, it's closed down.
		and	#$0FFF
		cmp	#$0FFF
		beq	ShutdownCancel
		
		pha				; save number of minutes
		
		sta	HValue
		stz	DValue

		ldy	#16
		sed
@L2		asl	HValue
		lda	DValue
		adc	DValue
		sta	DValue
		dey
		bne	@L2
		cld

		jsr	ConvertToAscii

		pla				; get number of minutes
		jsr	SetCMsg			; set CMessages entry
		
		lda	#0048			;Closing down in x minutes!
		bra	PostIt

@L1
		lda	#0			; time is 0 minutes from now
		jsr	SetCMsg
		
		lda	#0049			;Closed down (0 minutes)!
		bra	PostIt

SetCMsg
; Convert minutes in A to seconds on stack
		pha				; room for result
		pha
		pha				; push number of minutes
		pea	60			; seconds/minute
		_Multiply

; Get the current date/time in seconds
		pha				; room for result
		pha
		pea	$0006			; return time in seconds
		pha				; ignore number of seconds
		pha
		pha				; ignore pointer to buffer
		pha
		_ConvSeconds			; get current time in seconds
		
; Add current and offset and store in CMessages
		lda	[Work1]			; get session refnum
		and	#$00FF			; low byte only
		dea				; convert from 1-8 to 0-7
		asl	a			; *2
		asl	a			; *4
		tay				; index to table of longs
		clc
		pla				; get current time low
		adc	3,s			; add offset low
		sta	CMessages,y
		pla				; current time high
		adc	3,s			; offset high
		sta	CMessages+2,y

		pla				; remove offset seconds
		pla
		
		rts
		

HValue		dc.w	0
DValue		dc.w	0

ShutdownCancel	lda	#0050

PostIt		pha				;Save message number.
		lda	[Work1]			;Get session number for
		and	#$00FF			;index.  One byte!
		asl	a
		tay
		pla				;Restore message number.
		sta	MessageTable,y		;Store message number.

		jsr	CallPost

Exit		rep	#$30
		longa	on
		longi	on

		pla				;Restore PFI's zero page.
		sta	<Work3
		pla
		sta	<Work2
		pla
		sta	<Work1+2
		pla
		sta	<Work1

		plp				;Restore the state.
		plb				;Restore b
		
		rtl				;And exit.

CallPost	sep	#$20
		longa	off
		lda	>$E1C068		;Save the statereg
		pha
		lda	>$E1C08B		;LCBANK1 - Switch in RAM
		lda	>$E1C08B		;LCBANK1

		rep	#$20
		longa	on

		lda	#0000			;Priority
		ldx	#SHandler		;Handler low
		ldy	#^SHandler		;Handler hight
		jsl	>$01FC88		;Post Signal

		sep	#$20
		longa	off
		pla
		sta	>$E1C068		;Restore the statereg

		rep	#$20
		longa	on
		rts

MoveServerName	php

		sep	#$30
		longa	off
		longi	off

		ldy	#4
		lda	[Work1],y
		tax
		clc
		adc	#4
		tay

@L1		lda	[Work1],y
		phy
		txy
		sta	(Work2),y
		ply
		dex
		dey
		cpy	#4
		bcs	@L1

		plp
		longa	on
		longi	on
		rts


;--------------------------------------------------------------------------------
; Convert a two-byte BCD number at DValue to a Pascal string of at most 3 digits
; at the address pointed to by (Work3).  The upper nibble is ignored.  Leading
; zero digits are removed (a value of zero is converted to "0").
;--------------------------------------------------------------------------------
ConvertToAscii
		ldx	#2		; number of digits to generate - 1
		ldy	#0		; index into string
@loop
		bit	#$0F00		; is upper digit zero?
		bne	@stuff		; no, so start putting digits in
		asl	a		; shift up one nibble (one BCD digit)
		asl	a
		asl	a
		asl	a
		dex			; any more digits to strip?
		bne	@loop
@stuff
		pha			; save value
		xba			; get next digit in low byte
		and	#$000F		; want low digit only
		ora	#$0030		; convert to ASCII digit character
		iny			; point to next char in string
		
		sep	#$20		; short A for store
		sta	(Work3),y	; put ASCII digit in string
		rep	#$20
		
		pla			; get old value back
		asl	a		; shift next digit up
		asl	a
		asl	a
		asl	a
		dex			; any more digits to do?
		bpl	@stuff
		
		tya			; get length in A
		sep	#$20		; short A for store
		sta	(Work3)		; save length byte
		rep	#$20
		
		rts

		longa	on
		longi	on


;>>>>>>>>>>>>>>>>>>>>>>>>>>>	Signal Handler Below

SHandler	phb
		phk
		plb

		php
		php
		pla
		and	#$0004
		beq	@L1

		jsr	CallPost
		bra	@L2

@L1		ldy	#dib_dev_num
		lda	dibv1,y
		sta	DisplayDevice

		jsl	>$E100A8
		dc.w	$202E			;DCONTROL Class 2
		dc.l	DisplayBlock

@L2		plb
		rtl

ShowMessages
		ldx	#0016
@L0		lda	MessageTable,x
		beq	@L1

		stz	MessageTable,x

		phx

		pha				;Push message number
		
		lda	AMessageTable,x		; get pointer to server name
		sta	Substitutions		; update sub. string *0
		lda	BMessageTable,x		; get pointer to minutes string
		sta	Substitutions+4		; update sub. string *1
		
; Make a date/time string by calling ConvSeconds
		pha				; room for result
		pha
		pea	$0002			; convert seconds to ASCII text
		txa				; get index into table of words
		asl	a			; make it an index into table of longs
		tax
		lda	CMessages-2,x		; get high word of seconds
		pha
		lda	CMessages-4,x		; get low word of seconds
		pha
		PushLong #DateTimeStr+1		; push pointer to string data
		_ConvSeconds
		pla				; ignore result
		pla
		
		ldx	#18			; index to last word
@loop
		lda	DateTimeStr+1,x
		and	#$7F7F			; strip high bits
		sta	DateTimeStr+1,x
		dex
		dex
		bpl	@loop
		
		PushLong #Substitutions
		jsl	>$01FC9C		; full_error system service call

		plx

@L1		dex
		dex
		bne	@L0
		rtl

DisplayBlock	dc.w	0005			;Pcount
DisplayDevice	dc.w	0			;Dev num
		dc.w	$8001			;control code
		dc.l	FakeList		;control list
		dc.l	0			;request count
		dc.l	0			;transfer count

FakeList	equ	*			;NOT REALLY USED!

MessageTable	dc.w	0
		dcb.w	8,0

Substitutions
		dc.l	AMessages	; *0 = server name
		dc.l	BMessages	; *1 = number of minutes to shutdown
		dc.l	DateTimeStr	; *2 = date/time of shutdown

DateTimeStr	dc.b	20		; length is always 20 bytes
		dcb.b	20,0		; overwritten by ConvSeconds
		
AMessageTable	dc.w	0
		dc.w	AMessages
		dc.w	AMessages+(1*32)
		dc.w	AMessages+(2*32)
		dc.w	AMessages+(3*32)
		dc.w	AMessages+(4*32)
		dc.w	AMessages+(5*32)
		dc.w	AMessages+(6*32)
		dc.w	AMessages+(7*32)

BMessageTable	dc.w	0
		dc.w	BMessages
		dc.w	BMessages+(1*4)
		dc.w	BMessages+(2*4)
		dc.w	BMessages+(3*4)
		dc.w	BMessages+(4*4)
		dc.w	BMessages+(5*4)
		dc.w	BMessages+(6*4)
		dc.w	BMessages+(7*4)

AMessages	dcb.b	32,0		; Server name strings
		dcb.b	32,0
		dcb.b	32,0
		dcb.b	32,0
		dcb.b	32,0
		dcb.b	32,0
		dcb.b	32,0
		dcb.b	32,0

BMessages	dc.l	0		; number of minutes strings
		dc.l	0
		dc.l	0
		dc.l	0
		dc.l	0
		dc.l	0
		dc.l	0
		dc.l	0

CMessages
		dc.l	0		; date/time of shutdown strings
		dc.l	0
		dc.l	0
		dc.l	0
		dc.l	0
		dc.l	0
		dc.l	0
		dc.l	0

		endp
		
;-------------------------------------------------------------------------------

		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/ATalk/rpm.aii b/IIGS.601.SRC/GS.OS/Drivers/ATalk/rpm.aii
new file mode 100644
index 0000000..05f215c
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/ATalk/rpm.aii
@@ -0,0 +1 @@
+		msb	off
		string	asis
		print	sym
		print	nopage
		print	nomdir

;--------------------------------------------------------------------------------------
;
;				.RPM Driver
;
;				Copyright (c) 1988
;				Apple Computer, Inc.
;				All rights reserved.
;
;--------------------------------------------------------------------------------------
;
; 0.01e01	03/27/88	TGH	-First attempt
;
; 00.07		12/15/88	TGH	-No longer make AppleTalk calls to the
;					 supervisor.
;					-Changed transfer and request count from
;					 6 to 13 in DSTATUS and DCONTROL calls.
;
; 00.11B	2/1/88		TGH	-Added session between Opens and Closes
;
; NOTE:	All new change notes can be found in the MAIN.AII file.
;
;		1/6/90		MSD	-Added call to PMFlushSession in Close.
;					 Fixes BRC #57640.  Also added call to
;					 PMFlushSession in Flush (so Flush really
;					 works).
;
;		14-Dec-92	DAL	-Changed BRAMLocation logic to allow for
;					 having NO BRAM location controlling the
;					 CR+LF preference, in the case of Ethernet.
;
;--------------------------------------------------------------------------------------

		print	off
		include	'm16.misctool'
		include	'equates'
		print	on

		eject

RAMDispatch	equ	$E11014

		IMPORT	SS_Count

		entry	startup,\
			open,\
			read,\
			write,\
			close,\
			slot_mask,\
			status,\
			control,\
			flush,\
			shutdown	:CODE

		entry	Old_Timeout
		entry	OpenCount
		entry	read_mode
		entry	x_value,y_value,e_read,e_status

;--------------------------------------------------------------------------------------
;
; Following is the dispatch table used to call the supported call numbers.
;
;--------------------------------------------------------------------------------------

disp_table	proc
 
		dc.w	startup-1
		dc.w	open-1
		dc.w	read-1
		dc.w	write-1
		dc.w	close-1
		dc.w	status-1
		dc.w	control-1
		dc.w	flush-1
		dc.w	shutdown-1

		endp

;--------------------------------------------------------------------------------------
;
; Main entry point for the .RPM driver.
;
;--------------------------------------------------------------------------------------

		EXPORT	entry1

entry1		proc

		longa	on
		longi	on

		phb			;Save the GS/OS bank register

		phk
		plb

		cmp	#0009		;Max command number
		bge	illegal_req	;Oops, too big.

		pea	func_ret-1	;Push our return address
		asl	a
		tax
		lda	disp_table,x
		pha			;Push the address of routine on the stack
		rts

func_ret	tay			;Save the returned error code

		plb
		bcs	gen_exit	;Branch if there is an error
		ldy	#no_error
gen_exit	tya
		rtl

illegal_req	plb
		lda	#drvr_bad_req
		sec
		rtl

		endp

		eject

;--------------------------------------------------------------------------------------
;
; STARTUP
;
; We first operate on this function and then pass control on to the generated device
; driver dispatch entry point.
;
;--------------------------------------------------------------------------------------

startup		proc
		entry	sup_num,BRAMLocation

		longa	on
		longi	on

		lda	#$0000
		tax
		ldy	#$0001
		jsl	sup_drvr_disp
		bcs	@shortleave

		stx	sup_num

		lda	#Start_ParmList
		sta	<sup_parm_ptr
		lda	#^Start_ParmList+2
		sta	<sup_parm_ptr+2
		lda	sup_num
		ldx	#$0002			;call number 2
		ldy	#$0001
		jsl	sup_drvr_disp
@shortleave	bcs	justleave

		ldy	#slot_num
		lda	Slot
		sta	[drvr_dib_ptr],y
		ldy	#unit_num
		lda	Unit
		sta	[drvr_dib_ptr],y

		jsl	gen_dispatch
		bcs	justleave

		lda	Slot
		pha
		ora	#$00C0
		sta	x_value			;This stores $00Cn
		xba
		sta	slot_mask		;This stores $Cn00
		pla
		and	#$000F
		asl	a
		asl	a
		asl	a
		asl	a
		sta	y_value

		lda	slot_mask		;Load $Cn00
		ora	#$000E			;OR it with read offset
		tax				;Move to index reg
		lda	>0,x			;Load the offset value.
		and	#$00FF			;We only want the low byte.
		ora	slot_mask		;OR it with the $Cn00
		sta	e_read			;Store it in read vector value.

		lda	slot_mask		;Load $Cn00
		ora	#$0010			;OR it with status offset
		tax				;Move to index reg
		lda	>0,x			;Load the offset value.
		and	#$00FF			;We only want the low byte.
		ora	slot_mask		;OR it with the $Cn00
		sta	e_status		;Store it in status vector value.

		stz	read_mode		;Make sure readmode is set to wait

*** Modified 14-Dec-92 DAL
  		ldx	#0			;anticipate no BRAM preference available (Ethernet)
		lda	Channel			;Load channel (1 or 2)
		beq	@storeBRAM
*** end 14-Dec-92

		ldx	#$0003			;Assume slot 1 firmware use
		lda	Channel			;Load channel (1 or 2)
		cmp	#0001			;Is it 1?
		beq	@storeBRAM		;Branch if yes (store $3)
		ldx	#$000F			;Load a $F for slot 2 firmware)
@storeBRAM	stx	BRAMLocation		;Store BRAM location for firmware

		inc	SS_Count

		stz	OpenCount		;Mark us as not open

		lda	#no_error
		clc
justleave	rts

sup_num		dc.w	0

BRAMLocation	dc.w	0000

Start_ParmList
Slot		dc.w	0000
Channel		dc.w	0000
Unit		dc.w	0000

		endp

;--------------------------------------------------------------------------------------
;
; OPEN
;
; This call is passed on to the generated device driver dispatch entry point.
;
;--------------------------------------------------------------------------------------

open		proc

		entry	OpenCount

		lda	OpenCount
		beq	@L1

		lda	#drvr_prior_open
		sec
		rts

@L1		lda	#$0001
		sta	RPM_Flags

		ldx	#RPM_ParmList
		ldy	#^RPM_ParmList
		jsl	>RamDispatch

		lda	RPM_Timeout
		sta	Old_Timeout
		stz	RPM_Timeout

		ldx	#RPM_ParmList
		ldy	#^RPM_ParmList
		jsl	>RamDispatch

		jsl	gen_dispatch
		bcc	@good_open

;----------------------------------------------------------------------
; Oops, below we handle the case of an error from the generated
; device management code after the open call.  We have to restore
; the old timeout value.
;----------------------------------------------------------------------

		pha				;Save the error number

		lda	Old_Timeout		;Load the old timeout value
		sta	RPM_Timeout		;Store it for re-set.

		ldx	#RPM_ParmList		;Reset the old timeout
		ldy	#^RPM_ParmList		;value with a PMSetPrinter
		jsl	>RamDispatch		;call.

		pla				;Restore the error number
		sec				;Flag an error
		rts				;Return

;----------------------------------------------------------------------
; Below we read the battery ram byte to see if we should set the bit
; in the AppleTalk slot screen hole that will add a linefeed to 
; carriage returns.  We have to do this because the Pascal open routine
; always turns this bit off regardless to the Control Panel settings.
;----------------------------------------------------------------------

@good_open	lda	BRAMLocation		;Load $3 or $F
		beq	@done_open		;or $00 for Ethernet, no BRAM parameter (added 14-Dec-92 DAL)
		pea	0000			;Result space
		pha				;Push reference number (03 or 0F)
		_ReadBParam
		pla				;1 = yes, 0 = no
		beq	@done_open		;Branch if don't add LF to CR

		lda	slot_mask		;Load $Cn00 value
		xba				;Make it $00Cn
		tax				;Move into index register

		sep	#$20
		longa	off
		lda	>$000738,x		;Load 738,$Cn
		ora	#$40			;Turn on the +LFtoCR bit
		sta	>$000738,x		;Store it back
		rep	#$20
		longa	on

@done_open	inc	OpenCount		;Mark us as open
		clc				;Flag no error
		rts				;Return

RPM_ParmList	dc.b	$00				;Synchronous Call
		dc.b	$28				;Call Number
RPM_Result	dc.w	$00				;Result Code
		dc.l	Entity_Name			;Entity Pointer
RPM_Flags	dc.b	$01				;Flags
RPM_Flush	dc.w	$0000				;Flush Interval
RPM_Timeout	dc.w	$0000				;Timeout Interval
RPM_BuffNum	dc.w	$0000				;Number of Buffers

Entity_Name	ds.b	33		;Name
		ds.b	33		;Kind
		ds.b	34		;Zone

OpenCount	dc.w	0

		endp

;--------------------------------------------------------------------------------------
;
; READ
;
; This call is passed on to the generated device driver dispatch entry point.
;
;--------------------------------------------------------------------------------------

read		proc
		ENTRY	read_mode,\
			e_status,\
			e_read,\
			x_value,\
			y_value

		lda	OpenCount		;Load the open count flag
		bne	@drvr_open		;Branch if we're open
		lda	#drvr_not_open		;Else we report not open
		sec				;error.
		rts

@drvr_open	lda	<drvr_req_cnt		;Check the request count
		ora	<drvr_req_cnt+2		;for zero
		bne	read_loop		;Branch if not zero
		jmp	rgood_exit		;Just exit, no error.

read_loop	pea	0000		;Result space
		pea	0000		;Result space
		pea	0000		;Result space
		pea	0000		;Result space
		pea	0001		;A reg (1 = read ready?)
		lda	x_value		;X reg
		pha
		lda	y_value		;Y reg
		pha
		lda	e_status	;emulation entry point
		pha
		ldx	#$2403		;_FWEntry
		jsl	>$E10000
		ply			;Y reg (ignore)
		plx			;X reg ( 0 = no error, 3 = error)
		ply			;A reg (ignore
		pla			;P reg ( c=0 = not ready, c=1 = ready)

		cpx	#0		;Was there an error?
		bne	rgood_exit	;Branch if yes (shouldn't happen)
		and	#$0100		;Are there characters to read?
		bne	@read_it	;Branch if yes
		lda	read_mode	;Load read mode flag
		bpl	read_loop
		bra	rgood_exit

; No we fall through and read a character

@read_it	pea	0000		;Result space
		pea	0000		;Result space
		pea	0000		;Result space
		pea	0000		;Result space
		pea	0000		;A reg (1 = read ready?)
		lda	x_value		;X reg
		pha
		lda	y_value		;Y reg
		pha
		lda	e_read		;emulation entry point
		pha
		ldx	#$2403		;_FWEntry
		jsl	>$E10000
		ply			;Y reg (ignore)
		plx			;X reg ( 0 = no error, 3 = error )
		pla			;A reg ( character )
		ply			;P reg (ignore)

		cpx	#0		;Was there an error?
		beq	@goodread	;Branch if not
		lda	#drvr_io_error	;Some kind of read error.
		bra	exit		;Leave with IO ERROR.

@goodread	sta	[<drvr_buf_ptr]	;Store the character in user buffer
		inc	<drvr_buf_ptr
		bne	@inc_tran_cnt
		inc	<drvr_buf_ptr+2
@inc_tran_cnt	inc	<drvr_tran_cnt
		bne	@check_req_cnt
		inc	<drvr_tran_cnt+2
@check_req_cnt	lda	<drvr_tran_cnt
		cmp	<drvr_req_cnt
		bne	@loop_back
		lda	<drvr_tran_cnt+2
		cmp	<drvr_req_cnt+2
		beq	rgood_exit
@loop_back	jmp	read_loop

rgood_exit	lda	#no_error
		clc
exit		rts

read_mode	dc.w	0

e_status	dc.w	0
e_read		dc.w	0
	export slot_mask
slot_mask	dc.w	0
x_value		dc.w	0
y_value		dc.w	0

		endp

;--------------------------------------------------------------------------------------
;
; WRITE
;
; This call is passed on to the generated device driver dispatch entry point.
;
;--------------------------------------------------------------------------------------

write		proc

		jsl	gen_dispatch
		rts

		endp

;--------------------------------------------------------------------------------------
;
; CLOSE
;
; This call is passed on to the generated device driver dispatch entry point.
;
;--------------------------------------------------------------------------------------

close		proc

		entry	Old_Timeout

		lda	OpenCount
		beq	@L1
;
; MSD: Added call to PMFlushSession (1/6/90).  Fixes BRC #57640 (DTS 89.0602).
; Unwritten data now gets flushed before closing session.
;
		ldx	#PMFlushSession
		ldy	#^PMFlushSession
		jsl	>RamDispatch
		
		ldx	#PMCloseSession
		ldy	#^PMCloseSession
		jsl	>RamDispatch

		lda	#$0001
		sta	RPM_Flags

		ldx	#RPM_ParmList
		ldy	#^RPM_ParmList
		jsl	>RamDispatch

		lda	RPM_Timeout
		bne	@L1
		lda	Old_Timeout
		sta	RPM_Timeout

		ldx	#RPM_ParmList
		ldy	#^RPM_ParmList
		jsl	>RamDispatch

@L1		jsl	gen_dispatch
		bcs	@L2

		stz	OpenCount

@L2		rts

PMCloseSession	dc.b	$00				;Synchronous Call
		dc.b	$47				;PMCloseSession
		dc.w	0				;Result Code

; MSD: Added 1/6/90
PMFlushSession	dc.b	$00				;Synchronous Call
		dc.b	$48				;PMFlushSession
		dc.w	0				;Result Code

RPM_ParmList	dc.b	$00				;Synchronous Call
		dc.b	$28				;Call Number
RPM_Result	dc.w	$00				;Result Code
		dc.l	Entity_Name			;Entity Pointer
RPM_Flags	dc.b	$01				;Flags
RPM_Flush	dc.w	$0000				;Flush Interval
RPM_Timeout	dc.w	$0000				;Timeout Interval
RPM_BuffNum	dc.w	$0000				;Number of Buffers

Entity_Name	ds.b	33		;Name
		ds.b	33		;Kind
		ds.b	34		;Zone

Old_Timeout	dc.w	$0000				;Old Timeout Interval

		endp

;--------------------------------------------------------------------------------------
;
; STATUS
;
; We first operate on this function and then pass control on to the generated device
; driver dispatch entry point.
;
;--------------------------------------------------------------------------------------

status		proc

		longa	on
		longi	on

		lda	<drvr_stat_code
		cmp	#$0002			;Return wait status?
		beq	stat0002		;branch if yes
		cmp	#$8001			;Return RPM data?
		beq	stat8001		;branch if yes

		jsl	gen_dispatch
		rts

stat0002	lda	#drvr_bad_parm		;Assume error for now
		ldx	<drvr_req_cnt+2		;If high word > 0, error
		bne	@bad_stat0002
		ldx	<drvr_req_cnt		;If low word <> 0, error
		beq	set_xfer_cnt
		cpx	#$0002
		beq	@ok_stat0002

@bad_stat0002	sec
		rts

@ok_stat0002	lda	read_mode
		sta	[<drvr_slist_ptr]
		bra	set_xfer_cnt

stat8001	lda	<drvr_req_cnt+2
		bne	badstat8001
		lda	<drvr_req_cnt
		beq	set_xfer_cnt
		cmp	#$000D
		beq	goodstat8001

badstat8001	lda	#drvr_bad_parm
		sec
		rts

goodstat8001	lda	#$0001
		sta	RPM_Flags
		ldy	#$0002
		lda	[drvr_slist_ptr],y
		sta	RPM_Entity
		iny
		iny
		lda	[drvr_slist_ptr],y
		sta	RPM_Entity+2

		ldx	#RPM_ParmList
		ldy	#^RPM_ParmList
		jsl	>RamDispatch
		php
		pha
		lda	RPM_Result
		sta	[drvr_slist_ptr]
		pla
		plp
		bcs	done

		ldy	#$0006
		lda	RPM_Flags
		sta	[drvr_slist_ptr],y
		iny
		lda	RPM_Flush
		sta	[drvr_slist_ptr],y
		iny
		iny
		lda	RPM_Timeout
		sta	[drvr_slist_ptr],y
		iny
		iny
		lda	RPM_BuffNum
		sta	[drvr_slist_ptr],y

set_xfer_cnt	lda	<drvr_req_cnt
		sta	<drvr_tran_cnt
		lda	#0000
		sta	<drvr_tran_cnt+2
		clc
done		and	#$00FF
		rts

RPM_ParmList	dc.b	$00				;Synchronous Call
		dc.b	$28				;Call Number
RPM_Result	dc.w	$00				;Result Code
RPM_Entity	dc.l	$0000				;Entity Pointer
RPM_Flags	dc.b	$01				;Flags
RPM_Flush	dc.w	$0000				;Flush Interval
RPM_Timeout	dc.w	$0000				;Timeout Interval
RPM_BuffNum	dc.w	$0000				;Number of Buffers

		endp


;--------------------------------------------------------------------------------------
;
; CONTROL
;
; We first operate on this function and then pass control on to the generated device
; driver dispatch entry point.
;
;--------------------------------------------------------------------------------------

control		proc

		longa	on
		longi	on

		lda	<drvr_ctrl_code
		cmp	#$0000			;Reset?
		beq	ctrl0000
		cmp	#$0004			;Set wait/nowait mode?
		beq	ctrl0002		;branch if yes
		cmp	#$8001			;Set RPM parameters?
		beq	ctrl8001		;branch if yes

ctrl_todispatch	jsl	gen_dispatch
		rts

ctrl0000	stz	read_mode
		bra	ctrl_todispatch

ctrl0002	lda	#drvr_bad_parm		;Assume error for now
		ldx	<drvr_req_cnt+2		;If high word > 0, error
		bne	@bad_ctrl0002
		ldx	<drvr_req_cnt		;If low word <> 0, error
		beq	set_xfer_cnt
		cpx	#$0002
		beq	@ok_ctrl0002

@bad_ctrl0002	sec
		rts

@ok_ctrl0002	lda	[<drvr_clist_ptr]
		sta	read_mode
		bra	set_xfer_cnt

ctrl8001	lda	<drvr_req_cnt+2
		bne	badctrl8001
		lda	<drvr_req_cnt
		beq	set_xfer_cnt
		cmp	#$000D
		beq	goodctrl8001

badctrl8001	lda	#drvr_bad_parm
		sec
		rts

goodctrl8001	ldy	#$0002
		lda	[drvr_clist_ptr],y
		sta	RPM_Entity
		iny
		iny
		lda	[drvr_clist_ptr],y
		sta	RPM_Entity+2
		iny
		iny
		lda	[drvr_clist_ptr],y
		sta	RPM_Flags
		iny
		lda	[drvr_clist_ptr],y
		sta	RPM_Flush
		iny
		iny
		lda	[drvr_clist_ptr],y
		sta	RPM_Timeout
		iny
		iny
		lda	[drvr_clist_ptr],y
		sta	RPM_BuffNum

		ldx	#RPM_ParmList
		ldy	#^RPM_ParmList
		jsl	RamDispatch
		php
		pha
		lda	RPM_Result
		sta	[drvr_clist_ptr]
		pla
		plp
		bcs	done

		ldy	#$0006
		lda	RPM_Flags
		sta	[drvr_slist_ptr],y
		iny
		lda	RPM_Flush
		sta	[drvr_slist_ptr],y
		iny
		iny
		lda	RPM_Timeout
		sta	[drvr_slist_ptr],y
		iny
		iny
		lda	RPM_BuffNum
		sta	[drvr_slist_ptr],y

set_xfer_cnt	lda	<drvr_req_cnt
		sta	<drvr_tran_cnt
		lda	#0000
		sta	<drvr_tran_cnt+2
		clc
done		and	#$00FF
		rts

RPM_ParmList	dc.b	$00				;Synchronous Call
		dc.b	$28				;Call Number
RPM_Result	dc.w	$00				;Result Code
RPM_Entity	dc.l	$0000				;Entity Pointer
RPM_Flags	dc.b	$01				;Flags
RPM_Flush	dc.w	$0000				;Flush Interval
RPM_Timeout	dc.w	$0000				;Timeout Interval
RPM_BuffNum	dc.w	$0000				;Number of Buffers

		endp

;--------------------------------------------------------------------------------------
;
; FLUSH
;
; This call first passes the call on to the generated device driver dispatcher
; and then does a PMFlushSession to make sure all the bytes are written.
;
;--------------------------------------------------------------------------------------

flush		proc

		jsl	gen_dispatch
		bcs	exit			; just return if error
		
		ldx	#<PMFlushSession	; Flush them bytes
		ldy	#^PMFlushSession
		jsl	RamDispatch
		
		clc
		lda	#0
exit
		rts

PMFlushSession	dc.b	$00				;Synchronous Call
		dc.b	$48				;PMFlushSession
		dc.w	0				;Result Code

		endp

;--------------------------------------------------------------------------------------
;
; SHUTDOWN
;
; This call is passed on to the generated device driver dispatch entry point.
;
;--------------------------------------------------------------------------------------

shutdown	proc

		jsl	gen_dispatch

		dec	SS_Count
		beq	@L1

		lda	#drvr_bad_req
		sec
		rts

@L1		lda	#$0000
		clc
		rts

		endp

;--------------------------------------------------------------------------------------

		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/AppleDisk3.5/AD3.5.cmds b/IIGS.601.SRC/GS.OS/Drivers/AppleDisk3.5/AD3.5.cmds
new file mode 100644
index 0000000..a883b40
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/AppleDisk3.5/AD3.5.cmds
@@ -0,0 +1 @@
+		eject
*****************************************************************
*
* DRIVER CALL:  OPEN
*
* This call has no application with block device drivers and will
* return with no error.
*
* ENTRY: via a 'JSR'
*       <drvr_dev_num = Device Number of current device being accessed
*      <drvr_tran_cnt = $00000000
*               A Reg = Call Number
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 0 x x  0
*
* EXIT: via an 'RTS'
*               A Reg = Error code
*               X Reg = Undefined

*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 0 x 0  0   No error occured
*                       x x 0 0 0 0 x 1  0   Error occured
*
*****************************************************************
		export	open		
open		proc
					;using   driver_data
		longa	on
		longi	on

		lda	#no_error
		clc
		rts

		endp
		eject
*****************************************************************
*
* DRIVER CALL:  WRITE
*
* This call executes a write to the device.  Block devices must
* validate the initial block number and that the request count is
* an integral multiple of the block size.  In addition the block
* number of each successive block must be validated as it is
* accessed when an multiple block I/O transaction is in place.
*
* ENTRY: via a 'JSR'
*       <drvr_dev_num = Device Number of current device being accessed
*       <drvr_buf_ptr = Pointer to I/O buffer
*       <drvr_blk_num = Initial block number
*       <drvr_req_cnt = Number of bytes to be transferred
*      <drvr_blk_size = Size of block to be accessed
*      <drvr_tran_cnt = $00000000
*               A Reg = Call Number
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 0 x x  0
*
* EXIT: via an 'RTS'
*      <drvr_tran_cnt = Number of bytes transferred
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = 0=m=x=e
*                       Carry = 1 if error occured
*                       Carry = 0 if no error occured
*
*****************************************************************
		export	write		
write		proc
					;using   driver_data
		longa	on
		longi	on

		jsr	check_access	; did dispatch signal a fake DSW error?
		bcs	write_exit	; yes

		lda	drvr_req_cnt+2
		ora	drvr_req_cnt	;req count zero? (A = no_error)
		clc
		beq	write_exit

		lda	<drvr_blk_size	; validate the current block size
		cmp	#$0200
		beq	chk_multi
		cmp	#$020C
		beq	chk_multiple
bad_parm	lda	#drvr_bad_parm	; invalid block size
		sec
		rts

*
* Now call Int Math Toolset to do req_cnt DIV 524
*
chk_multiple
		ldx	<drvr_req_cnt+2	
		bmi	bad_parm	;I don't do negative request counts for 524
		lda	#0
		pha
		pha
		pha
		pha
		phx
		pei	<drvr_req_cnt
		pha
		pei	<drvr_blk_size
		_LongDivide		;call int math for the remainder
		pla			;discard quot
		pla
		pla			;get remainder
		ora	1,s		;get hi & lo word together in A
		plx
		tax			;is remainder zero?
		beq	do_write	;yes...
bad_count	lda	#drvr_bad_count	; invalid byte count
		sec
		rts
*
* Now see if the request count is an even multiple of the block size
* (block size of $0200 is much easier to perform a MOD operation on!)
*
chk_multi	lda	<drvr_req_cnt
		and	#$01FF
		bne	bad_count	;insist req_cnt is divisible by 512

		eject
*
* The following routine is executed for write calls
* directed toward class 2 block devices.
*
do_write
		clc			; specify block search
		jsl	cache_find_blk	; is the block in the cache?
		bcc	wr_cache	; yes, xfer from buf to cache
		lda	<drvr_cache	; add to cache?
		beq	wr_dev		; no
		jsl	cache_add_blk	; else add block to cache
		bcs	wr_dev		; if block was not allocated
wr_cache
		jsl	buff_to_cache	; yes, read block from cache to buffer
		bit	<drvr_cache	; deferred mode?
		bmi	wr_done		; yes, dont xfer to device
wr_dev
		jsr	do_sp_writeblk	; write through to the device
		bcs	write_exit	; if device returned error
wr_done				; 
		jsr	next_blk_ptr	; set next block address & test if more
		bcc	do_write	; if more blocks to write
		clc			; all done with no errors
		lda	#no_error
write_exit
		rts

		eject
*****************************************************************
*
* The following routine executes a writeblock to the SmartPort
* device.
*
* ENTRY:        A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*               B Reg = Same as program bank
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 x x x  0
*
* EXIT:         A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*               B Reg = Unchanged
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 x x 0  0 if no error
*                       x x 0 0 0 x x 1  0 if error
*
*****************************************************************
		export	do_sp_writeblk
do_sp_writeblk
		jsr	setup_sp_call	; setup SmartPort call parameters

		ldy	#dib_last_sts	;was media offline last time?
		lda	[drvr_dib_ptr],y
		and	#%10000		
		beq	@doStatus	;offline so do Status to get blockcount
		ldy	#blk_cnt
		lda	[drvr_dib_ptr],y
		bne	@doWrite
@doStatus	jsr	Fixup_blkcnt	;go do DevStat to see if blockcount is known	
		bcs	@dswErr		;status returned disk switch so ERROR the Read
		
@doWrite	lda	<drvr_dev_num	; device number to read
		ldx	<drvr_blk_size	;which block size to do?
		cpx	#$020C		;a mac write?
		ldx	#blockwrite_list
		bcc	@10		;NO.
		ldx	#writbyts_list	;yes.
@10		jsl	to_b0_core
@dswErr		rts

		endp
		eject
*****************************************************************
*
* DRIVER CALL:  CLOSE
*
* This call has no application with block devices and will
* return with no error.
*
* ENTRY: via a 'JSR'
*       <drvr_dev_num = Device Number of current device being accessed
*      <drvr_tran_cnt = $00000000
*               A Reg = Call Number
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 0 x x  0
*
* EXIT: via an 'RTS'
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 0 x 0  0   No error occured
*                       x x 0 0 0 0 x 1  0   Error occured
*
*****************************************************************
		export	close		
close		proc
					;using   driver_data
		longa	on
		longi	on

		lda	#no_error
		clc
		rts

		endp
		eject
*****************************************************************
*
* DRIVER CALL:  STATUS
*
* This routine supports all the standard device status calls.
* Any status call which is able to detect an OFFLINE or DISK
* SWITCHED condition should call the system service routine
* SET_DISKSW.  OFFLINE and DISKSW are conditions and not errors
* when detected by a status call and should only be returned as
* conditions in the status list.
*
* Status Code:  $0000   Return Device Status
*               $0001   Return Control Parameters
*               $0002   Return Wait/No Wait Mode
*               $0003   Return Format Options
*
* ENTRY: via a 'JSR'
*       <drvr_dev_num = Device Number of current device being accessed
*     <drvr_clist_ptr = Pointer to control list
*     <drvr_ctrl_code = Control code
*       <drvr_req_cnt = Number of bytes to be transferred
*      <drvr_tran_cnt = $00000000
*               A Reg = Call Number
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 0 x x  0
*
* EXIT: via an 'RTS'
*      <drvr_tran_cnt = Number of bytes transferred
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 0 x 0  0   No error occured
*                       x x 0 0 0 0 x 1  0   Error occured
*
*****************************************************************
		export	status		
status		proc
					;using   driver_data
		longa	on
		longi	on

		lda	<drvr_stat_code	; is this a get_format_options call?
		cmp	#drvr_get_format
		beq	get_format	; yes

		jsr	check_access	; did an access occur?
		ror	|pre_check	; save it
		
		jsl	g_dispatch	; pass call on to generic driver

		bcs	not_dev_stat	; if error, history cant be updated
		lda	<drvr_stat_code	; is this a return from device status?
		bne	not_dev_stat	; no
		

* On return from a device status call, only the first offline and disk switch
* status should be returned while the media remains offline.  Subsequent status
* calls with the media offline should return only the offline and omit the
* disk switched status.
*
		lda	[<drvr_slist_ptr]
		and	#$0001		
		beq	@05		;no
* only reset dsw for the internal SmartPort
		bit	ext_slot
		bmi	@05
* only do the drive ejected latch reset for ROM 0001
		lda	|rom_version
		cmp	#$0002
		bge	@05
* for old rom only reset the drive latch
		jsr	reset_sts_dsw	;clear drive dsw bit
*
* If a direct firmware access occured then fake a disk switched.
*
@05		rol	|pre_check	; did an access occur?
		bcc	@10		; no, continue with history check
		lda	[<drvr_slist_ptr]
		ora	#$0001		; yes, simulate a disk switched
		sta	[<drvr_slist_ptr]
*
@10		ldy	#dib_last_sts
		lda	[drvr_slist_ptr]	;get status result word
		sta	[drvr_dib_ptr],y	;save this for online test
		lda	#no_error
		clc
not_dev_stat		
		rts
**********************************************************************
**********************************************************************
		export	reset_sts_dsw
reset_sts_dsw	SEP	#$30
		longa	off
		longi	off
		jsr	enable_slot6
		jsr	phases_off
		ldy	#%00001111
		jsr	IFf_set_mode
		lda	>select		;reselect in case set_iwm_mode worked
		jsr	enable_sense
		bcc	@10		;drive ejected bit is not set
		bpl	@10		;was just offline not dsw
		lda	#ejct_reset
		jsr	writebit 	;clear the drive ejected latch
@10		lda	#00
		sta	>diskreg	;deactivate /EN35 to cancel drive timer
		nop
		nop
		nop
		sta	>deselect	;now turn off the drive enable 
		jsr	phases_off
		jsr	restore_slot6
		longa	on
		longi	on
		REP	#$30
		rts

		eject
*****************************************************************
*
* This routine returns the format options for the device.
* Consult the driver specification for the format option list.
* This call requires a minimum request count of $00000002.  The
* maximum request count may exceed the size of the format list
* in which case the request count returned will indicate the
* size of the format list.
*
* ENTRY: via a 'JSR'
*               A Reg = Call Number
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 0 x x  0
*
* EXIT: via an 'RTS'
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 0 x 0  0   No error occured
*                       x x 0 0 0 0 x 1  0   Error occured
*
*****************************************************************
		export	get_format
get_format
		longa	on
		longi	on

		lda	#drvr_bad_parm	; assume invalid request count
		ldx	<drvr_req_cnt+2	; and validate request count
		bne	bad_get_format
		ldx	<drvr_req_cnt
		cpx	#$0002
		bge	ok_get_format
bad_get_format
		sec
		rts
*
* Request count is valid. Return the format options for this device.
*
ok_get_format	bit	ext_slot	; Internal device?
		bpl	@doInternal

*** changed 25-Mar-93 DAL to return useful information in small buffers for FDHDs
***   The book says we can return $22 (g_dispatch is returning no error).
***   For compatibility, I'm electing to return partial information rather
***   than return an error (the book says we can do that, too).
;;;		jsr	g_dispatch
;;;		bcs	@doInternal	;use internal table if external fails
;;;		rts

		pei	<drvr_req_cnt
		pei	<drvr_slist_ptr+2
		pei	<drvr_slist_ptr

		lda	#$0080
		sta	<drvr_req_cnt
		lda	#^kludgeBuffer
		sta	<drvr_slist_ptr+2
		lda	#kludgeBuffer
		sta	<drvr_slist_ptr

		jsr	g_dispatch

		pla
		sta	<drvr_slist_ptr
		pla
		sta	<drvr_slist_ptr+2
		pla
		sta	<drvr_req_cnt
		bcs	@doInternal

*** Figure out what the *real* transfer count is (8 + numFormats*16)
		lda	kludgeBuffer
		asl	a
		asl	a
		asl	a
		asl	a
		adc	#8
		cmp	<drvr_req_cnt	; is request longer then list length?
		bge	@req_count_ok
		sta	<drvr_req_cnt
@req_count_ok

*** Copy as much data as we can into the user's real buffer

		pea	kludgeBuffer>>16
		pea	kludgeBuffer
		pei	<drvr_slist_ptr+2
		pei	<drvr_slist_ptr
		pea	0
		pei	<drvr_req_cnt
		pea	$0805		;move_sinc_dinc
		jsl	move_info

		lda	<drvr_req_cnt	;already doctored up as necessary
		sta	<drvr_tran_cnt

		clc
		rts

*** end 25-Mar-93

@doInternal	ldy	#dib_hw_unit	; internal device #
		lda	[<drvr_dib_ptr],y
		dec	a
		asl	a
		tax
		lda	|format_tbl,x	; get pointer to format option list
		tax
		lda	|0,x		; get # entries in option list
		asl	a		; list length = (n * 16) + 8
		asl	a
		asl	a
		asl	a
		clc
		adc	#$0008		; now have option list length
		cmp	<drvr_req_cnt	; is request longer then list length?
		bge	req_count_ok
		sta	<drvr_req_cnt
req_count_ok				; 
		ldy	#$0000		; status list index
		sep	#$20		; 8 bit 'm'
		longa	off
copy_format				; 
		lda	|0,x		; copy format option list to slist_ptr
		sta	[<drvr_slist_ptr],y
		inx
		iny
		cpy	<drvr_req_cnt	; copy = request count size
		bne	copy_format
		rep	#$20		; 16 bit 'm'
		longa	on

		export	set_xfer_cnt
set_xfer_cnt				;               
		lda	<drvr_req_cnt	; set transfer count
		sta	<drvr_tran_cnt
		lda	<drvr_req_cnt+2
		sta	<drvr_tran_cnt+2
		lda	#no_error	; and return with no error
		clc
		rts

kludgeBuffer	ds.b	$80		;added 25-Mar-93 DAL

		endp
		eject
*****************************************************************
*
* DRIVER CALL:  CONTROL
*
* This routine supports all the standard device control calls.
*
* Control Code: $0000   Reset Device
*               $0001   Format Device
*               $0002   eject Media
*               $0003   Set Control Parameters
*               $0004   Set Wait/No Wait Mode
*               $0005   Set Format Option
*               $0006   Assign Partition Owner
*               $0007   Arm Signal
*               $0008   Disarm Signal
*
* ENTRY: via a 'JSR'
*       <drvr_dev_num = Device Number of current device being accessed
*     <drvr_clist_ptr = Pointer to control list
*     <drvr_ctrl_code = Control code
*       <drvr_req_cnt = Number of bytes to be transferred
*      <drvr_tran_cnt = $00000000
*               A Reg = Call Number
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 0 x x  0
*
* EXIT: via an 'RTS'
*      <drvr_tran_cnt = Number of bytes transferred
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 0 x 0  0   No error occured
*                       x x 0 0 0 0 x 1  0   Error occured
*
*****************************************************************
		export	control		
control		proc
					;using   driver_data
		longa	on
		longi	on

*
* restore original read_data hooks before this call or system will
*    use patch incorrectly.
*
		lda	>rd_hook+4	;restore hook with original
		sta	>rd_hook+0
		lda	>rd_hook+6
		sta	>rd_hook+2

		lda	<drvr_stat_code	; is this a set format option call?
		cmp	#drvr_set_format
		beq	set_format	; yes, go set the interleave or sides
		cmp	#drvr_format	; is this a format call?
		beq	format		; yes, go do format and restore default

		jsl	g_dispatch	; pass call on to generated core

control_return				; 
		longa	on
		longi	on

		php			;save error status
		pha			;save error code

		jsr	set_hook	;put back the patch and exit

		pla			;restore error code
		plp			;restore error status
		rts

		eject
*****************************************************************
*
* This control call sets the format option in preperation for
* a subsequent format control call.
*
* ENTRY: via a 'JSR'
*       <drvr_dev_num = Device Number of current device being accessed
*     <drvr_clist_ptr = Pointer to control list
*     <drvr_ctrl_code = Control code
*       <drvr_req_cnt = Number of bytes to be transferred
*      <drvr_tran_cnt = $00000000
*               A Reg = Call Number
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 0 x x  0
*
* EXIT: via an 'RTS'
*      <drvr_tran_cnt = Number of bytes transferred
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 0 x 0  0   No error occured
*                       x x 0 0 0 0 x 1  0   Error occured
*
*****************************************************************
		export	set_format
set_format				;               
		longa	on
		longi	on

		lda	[<drvr_slist_ptr]	;get the format option
		bne	@10
		lda	#drvr_bad_parm
		sec
		brl	control_return		;zero is not a valid option
@10		ldy	#dib_fmt_optn
		sta	[drvr_dib_ptr],y	;save format option in case of fmt error
		
		jsr	set_option		;not called from here with a zero

		lda	#no_error
		clc
		brl	control_return

		eject
*****************************************************************
*
* This control call implements the format call and then restores
* the format option to the recomended default as specified in the
* format options list.
*
* ENTRY: via a 'JSR'
*       <drvr_dev_num = Device Number of current device being accessed
*     <drvr_clist_ptr = Pointer to control list
*     <drvr_ctrl_code = Control code
*       <drvr_req_cnt = Number of bytes to be transferred
*      <drvr_tran_cnt = $00000000
*               A Reg = Call Number
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 0 x x  0
*
* EXIT: via an 'RTS'
*      <drvr_tran_cnt = Number of bytes transferred
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 0 x 0  0   No error occured
*                       x x 0 0 0 0 x 1  0   Error occured
*
*****************************************************************
		export	format
format					;               
		longa	on
		longi	on

		jsr	check_access		; did direct access occur?
		bcs	@exit			; yes

		jsl	g_dispatch		; pass call on to generated core
		pha
		php
		ldy	#dib_fmt_optn		
		bcc	@setDflts		;if No error  set default option
		cmp	#drvr_disk_sw		;did fmt return disk switched error?
		bne	@setDflts		;no so reset to defaults
		lda	[drvr_dib_ptr],y	;get last selected option
@setDflts	lda	#0000			;tell set_option to restore "defaults"
@fmtswitch	sta	[drvr_dib_ptr],y	;clear or save the format option 

		jsr	set_option		;reset the "default" options in a card 
		
		plp
		bcs	@err			;format failed so can't fix the blkcount
		php
		jsr	Fixup_blkcnt		;after format reset blkcnt in DIB to match
		plp
@err		pla
@exit			
		brl	control_return
**********************************************************************
*
*  Update the DIB block count by making a DIB status call
**********************************************************************
		export	Fixup_blkcnt
Fixup_blkcnt				;
		longa	on
		longi	on
		
		ldy	#unit_num
		lda	[drvr_dib_ptr],y

		sep	#$20		; 8 bit 'm'
		longa	off
		sta	dib_unit	;setup unit number for call
		 
		rep	#$20		; 16 bit 'm'
		longa	on
		
		lda	<drvr_dev_num
		ldx	#dib_stat	;extended DIB status call to firmware
		jsl	to_b0_core	
		bcs	@error
		
		lda	dib_slist	;get the status byte
		and	#%10111		;is media online?
		ldy	#dib_last_sts
		sta	[drvr_dib_ptr],y	;save last online status
		ldx	#no_error
		bit	#%00001		;is the result a disk switched status?
		beq	@10
		pha
* only reset dsw for the internal SmartPort
		bit	ext_slot
		bmi	@05
* only do the drive ejected latch reset for ROM 0001
		lda	|rom_version
		cmp	#$0002
		bge	@05
* for old rom only reset the drive latch
		jsr	reset_sts_dsw	;clear drive dsw bit
@05		pla
		ldx	#drvr_disk_sw+$100
@10
		bit	#$0010		;is media online?
		bne	@20		;yes.
		lda	#drvr_off_line
		bra	@exit		;nope
@20		lda	dib_blkcnt	;get blockcount from firmware
		beq	@exit		;blank media is online!
		ldy	#blk_cnt
		sta	[drvr_dib_ptr],y
		lda	dib_blkcnt+2
		iny
		iny
		sta	[drvr_dib_ptr],y	;update the block count in the dib
@exit		txa
		cmp	#no_error+1
@error		rts
		eject
*****************************************************************
*
* This call actually sets the number of sides and interleave
*  or makes a SetFmtOption call to a Mustang card
*
* ENTRY: via a 'JSR'
*               A Reg = Option Number
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 0 x x  0
*
* EXIT: via an 'RTS'
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 0 x 0  0   No error occured
*                       x x 0 0 0 0 x 1  0   Error occured
*
*****************************************************************
		export	set_option
set_option				;               
		longa	on
		longi	on

		pha			; save format option

		ldy	#unit_num	; set unit number in parameter lists
		sep	#$20		; 8 bit 'm'
		longa	off

		lda	[drvr_dib_ptr],y
		sta	sides_unit
		sta	ilv_unit
		sta	set_fmt_unit

		rep	#$20		; 16 bit 'm'
		longa	on

		pla			; restore option number
		
		bit	ext_slot
		bpl	@Internal
		
		sta	set_fmt_opt
		
		ldx	#set_fmt_option
		lda	<drvr_dev_num
		jsl	to_b0_core	;4-Nov-92 DAL (was jsr, but assembler did jsl anyway)
		bcs	@05
		
		ldx	set_fmt_opt	;was this a "defaults" or specific option set?
		bne	@05		;specific option so all done
* Must now suppress the 800K 4:1 "default" option selection of Mustang card
		lda	#0002
		sta	intlv		;force 2:1 interleave
		lda	#$0080
		sta	sides_cnt
		bra	@setDeflts	;and double sided
@05		rts
		
@Internal	
		dec	a
		bpl	@10		;zero means set the "default" = 0001
		lda	#0001
@10		cmp	format1		;(number of entries)
		bge	option_error

		asl	a
		asl	a
		tax
		lda	|option_xlate,x	; get interleave
		sta	|intlv
		inx
		inx
		lda	|option_xlate,x	; get sides
		sta	|sides_cnt

@setDeflts	lda	<drvr_dev_num
		ldx	#set_intlv
		jsl	to_b0_core

		lda	<drvr_dev_num
		ldx	#set_sides
		jsl	to_b0_core

		lda	#no_error
		clc
		rts

option_error				; 
		longa	on
		longi	on

		lda	#drvr_bad_parm
		sec
		rts

		endp
		eject
*****************************************************************
*
* DRIVER CALL:  FLUSH
*
* This call writes any data in the devices internal buffer to
* the device.  It should be noted that this is a WAIT MODE call
* which is only supported by devices which maintain their own
* internal I/O buffer.  Devices that cannot write in NO WAIT mode
* do not support this call and will return with no error.
*
* ENTRY: via a 'JSR'
*       <drvr_dev_num = Device Number of current device being accessed
*      <drvr_tran_cnt = $00000000
*               A Reg = Call Number
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 0 x x  0
*
* EXIT: via an 'RTS'
*      <drvr_tran_cnt = Number of bytes transferred
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 0 x 0  0   No error occured
*                       x x 0 0 0 0 x 1  0   Error occured
*
*****************************************************************
		export	flush		
flush		proc
					;using   driver_data
		longa	on
		longi	on

		lda	#no_error
		clc
		rts

		endp
		eject
*****************************************************************
*
* DRIVER CALL:  SHUTDOWN
*
* This call prepares the driver for shutdown.  This may include
* closing a character device as well as releasing any and all
* system resources that may have been aquired by either a
* STARTUP or OPEN call.
*
* ENTRY: via a 'JSR'
*       <drvr_dev_num = Device Number of current device being accessed
*      <drvr_tran_cnt = $00000000
*               A Reg = Call Number
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 0 x x  0
*
* EXIT: via an 'RTS'
*      <drvr_tran_cnt = Number of bytes transferred
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 0 x 0  0   No error occured
*                       x x 0 0 0 0 x 1  0   Error occured
*
*****************************************************************
		export	shutdn		
shutdn		proc
					;using   driver_data
		longa	on
		longi	on

		sep	#$20		; 8 bit 'm'
		longa	off

		ldy	#unit_num
		lda	[drvr_dib_ptr],y
		sta	clr_intlv_unit
		sta	set_fmt_unit

		rep	#$20		; 16 bit 'm'
		longa	on
		stz	set_fmt_opt	;reset options to defaults
		
		ldy	#dib_hw_unit
		lda	[drvr_dib_ptr],y	;is this 1st drive on a slot?
		cmp	#0001
		bne	@10
		
		ldy	#slot_num
		lda	[drvr_dib_ptr],y
		bit	#%1000		;external slot shutdown?
		beq	@10		;only do 1 clr_fmt_option per External slot
		
		lda	<drvr_dev_num	; control call to set fmt option to defaults
		ldx	#set_fmt_option
		jsl	to_b0_core

@10
		ldy	#slot_num	;are we dealing with a Mustang here?
		lda	[<drvr_dib_ptr],y
		bit	#$80		;(must be an external slot)
		bne	@20		;nope, it's the built-in SmartPort

; Since Startup downloaded some code to Mustang to have Mustang store a flag into
; the DIB when an external access occurs, we have to nullify the code to ensure
; that Mustang doesn't try to write the flag byte into memory that no longer
; belongs to us (for example, on a subsequent reboot). {GAB - 1/15/92}

		ldy	#unit_num
		lda	[drvr_dib_ptr],y ;get SmartPort Unit #

		sep	#$20		; 8 bit 'm'
		longa	off
		sta	setAdrs_unit
		sta	dnLoad_unit2
		rep	#$20		; 16 bit 'm'
		longa	on

		asl	a
		tax
		lda	dwnldAdrs-2,x
		sta	setAdrs_addr	;fill in the adrs for this unit

		lda	<drvr_dev_num	;device number
		ldx	#setAdrs_list
		jsl	to_b0_core
		bcs	@exit

		lda	<drvr_dev_num	;device number
		ldx	#dnLoad_list2
		jsl	to_b0_core	;download the 'rts' to the card's "ROM"
@exit
@20
		dec	|device_count	; number of appledisk3.5's online
		bne	not_last
		
		lda	dib1_slot	;1st dib always used but may be external
		and	#%1000		;internal slot?
		bne	@80

*
* Set default Internal firmware interleave to 4:1.
*
		lda	<drvr_dev_num	; control call to clr interleave (to 4:1)
		ldx	#clr_interleave
		jsl	to_b0_core
*
* Remove the merge patch for Internal SmartPort ONLY
*
		sep	#$20		; 8 bit 'm'
		longa	off

		ldy	#unit_num
		lda	[<drvr_dib_ptr],y
		sta	|resethook_unit
		lda	#$02		; hook refernece is for read data
		sta	|rsthook_ref

		rep	#$20		; 16 bit 'm'
		longa	on

		lda	<drvr_dev_num	; device number to read
		ldx	#resethook_list
		jsl	to_b0_core
*
* Remove the access detection patch for Internal SmartPort ONLY
		sep	#$20		; 8 bit 'm'
		longa	off

		lda	#$08		; hook refernece is for main entry
		sta	|rsthook_ref

		stz	dib_unit	;reset 8-bit unit # to zero

		rep	#$20		; 16 bit 'm'
		longa	on

		lda	<drvr_dev_num	; device number to read
		ldx	#resethook_list
		jsl	to_b0_core
*
* Now clear the startup variables to make driver restartable from memory
@80		stz	device_count
		stz	dib1acc_flag
		stz	dib2acc_flag
		stz	dib3acc_flag
		stz	dib4acc_flag
		stz	dib5acc_flag
		stz	dib6acc_flag
		stz	dib7acc_flag
		stz	dib8acc_flag
		stz	slot_count
		stz	last_slot
		stz	last_drive
		
		lda	#no_error	; no error if all shutdown
		clc
		rts

not_last				; 
		lda	#drvr_busy	; else return busy
		sec
		rts

		endp
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/AppleDisk3.5/AD3.5.data b/IIGS.601.SRC/GS.OS/Drivers/AppleDisk3.5/AD3.5.data
new file mode 100644
index 0000000..5afcd28
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/AppleDisk3.5/AD3.5.data
@@ -0,0 +1 @@
+		eject
*****************************************************************
*
* The following table is the header required for all loaded
* drivers which consists of the following:
*
*               Word    Offset from start to 1st DIB
*               Word    Number of DIBs
*               Word    Offset from start to 1st configuration list
*               Word    Offset from start to 2nd configuration list
*               etc.
*
*****************************************************************
		export	driver_data	
driver_data	proc	ENTRY
		export	here
here					;               
		dc.w	dib_1-here	; offset to 1st DIB
		dc.w	8		; number of devices
		dc.w	conf1-here	; offset to 1st configuration list
		dc.w	conf2-here	; offset to 2nd configuration list
		dc.w	conf3-here	; offset to 3rd configuration list
		dc.w	conf4-here	; offset to 4th configuration list
		dc.w	conf3-here	; offset to 5th configuration list
		dc.w	conf4-here	; offset to 6th configuration list
		dc.w	conf3-here	; offset to 7th configuration list
		dc.w	conf4-here	; offset to 8th configuration list
*
* The following are the driver configuration parameter lists.
*
		export	conf1
conf1		dc.w	0		; 0 bytes in parameter list
		export	default1
default1	dc.w	0		; 0 bytes in default list

		export	conf2
conf2		dc.w	0		; 0 bytes in parameter list
		export	default2
default2	dc.w	0		; 0 bytes in default list

		export	conf3
conf3		dc.w	0
		export	default3
default3	dc.w	0

		export	conf4
conf4		dc.w	0
		export	default4
default4	dc.w	0

		eject
*****************************************************************
*
* The following are tables of format options for each device.
* The format option tables have the following structure:
*
*               Word    Number of entries in list
*               Word    Display count (number of head links)
*               Word    Recommended default option
*               Word    Option that current online media is formatted with
*               Entries 16 bytes per entry in the format list
*
* The twenty byte structure for each entry in the format list
* is as follows:
*
*               Word    Media variables reference number
*               Word    Link to reference number n.
*               Word    Flags / Format environment
*               Long    Number of blocks supported by device
*               Word    Block size
*               Word    Interleave factor
*               Long    Number of bytes defined by flag
*
* Bit definition within the flags word is as follows:
*  ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___
* |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |
* | F | E | D | C | B | A | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 |
* |___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |___|__ Format
*   |   |   |   |   |   |   |   |   |   |   |   |   |___|__________ Flags
*   |___|___|___|___|___|___|___|___|___|___|___|__________________ Reserved
*
* Format Bit Definition: 00   Universal format
*                        01   Apple Format
*                        02   NonApple Format
*                        11   Not Valid
*
* Flag Bit Definition:   00   Size is in bytes
*                        01   Size is in Kb
*                        02   Size is in Mb
*                        11   Size is in Gb
*
*****************************************************************
		export	format_tbl
format_tbl				;               
		dc.w	format1		; pointer to format option list #1
		dc.w	format1		; pointer to format option list #2

		eject
		export	format1
format1					; 
		dc.w	2		; number of entries
		dc.w	2		; number of displayed entries
		dc.w	1		; recommended option is 1
		dc.w	0		; current media formatted w/option 1
		export	format1_entry1
format1_entry1				; 
		dc.w	1		; RefNum
		dc.w	0		; LinkRef
		dc.w	4+1		; Apple format / size in kb
		dc.l	1600		; block count
		dc.w	512		; block size
		dc.w	2		; interleave factor
		dc.w	800		; media size is 800kb
		export	format1_entry2
format1_entry2				; 
		dc.w	2		; reference number 1
		dc.w	0		; LinkRef
		dc.w	4+1		; Apple format / size in kb
		dc.l	1600		; block count
		dc.w	512		; block size
		dc.w	4		; interleave factor
		dc.w	800		; media size is 800kb
	if 0	then
		export	format1_entry3
format1_entry3				; 
		dc.w	3		; reference number 1
		dc.w	0		; LinkRef
		dc.w	4+1		; Apple format / size in kb
		dc.l	800		; block count
		dc.w	512		; block size
		dc.w	2		; interleave factor
		dc.w	400		; media size is 400kb
	endif

		export	option_xlate
option_xlate				; 
		dc.w	2		; option 1 interleave
		dc.w	128		; option 1 sides
		dc.w	4		; option 2 interleave
		dc.w	128		; option 2 sides
		dc.w	2		; option 3 interleave
		dc.w	0		; option 3 sides

		eject
*****************************************************************
*
*               Link Pointer
*               entry Pointer
*               Device Characteristics
*  ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___
* |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |
* | F | E | D | C | B | A | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 |
* |___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |___|_ RESERVED
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |_________ REMOVABLE
*   |   |   |   |   |   |   |   |   |   |   |   |   |_____________ FORMAT
*   |   |   |   |   |   |   |   |   |   |   |   |_________________ RESERVED
*   |   |   |   |   |   |   |   |   |   |   |_____________________ READ
*   |   |   |   |   |   |   |   |   |   |_________________________ WRITE
*   |   |   |   |   |   |   |   |   |_____________________________ BLOCK DEVICE
*   |   |   |   |   |   |   |___|_________________________________ SPEED GROUP
*   |   |   |   |   |   |_________________________________________ FIXED NAME
*   |   |   |   |   |_____________________________________________ RESTARTABLE
*   |   |   |   |_________________________________________________ BUSY
*   |   |   |_____________________________________________________ LINKED
*   |   |_________________________________________________________ GENERATED
*   |_____________________________________________________________ RAM/ROM DEV
*
*               Block Count
*               Device Name
*               Slot Number
*               Unit Number
*               Device ID Number
*               Head Device Link
*               Forward Device Link
*               Reserved Word
*               Reserved Word
*               DIB device number
*
*****************************************************************
* NOTE: dib's are used only in pairs 1&2, 3&4, 5&6, 7&8
* with one pair for each "slot" that has SmartPort Firmware
* each controller can have two AppleDisk drives 
*****************************************************************
		dc.l	0		;align dibs at 16 byte boundary for debugging
		export	dib1acc_flag
		export	dib3acc_flag
		export	dib5acc_flag
		export	dib7acc_flag
		export	dib2acc_flag
		export	dib4acc_flag
		export	dib6acc_flag
		export	dib8acc_flag

		export	dib_1
		export	dib1_slot
dib_1					;               
		dc.l	dib_2		; link pointer to second DIB
		dc.l	dispatch	; entry pointer
		dc.w	$0BEC		; characteristics
		dc.l	00000000	; block count
		dc.b	13		; device name (length & 32 bytes ascii)
		dc.b	'APPLEDISK3.5A                  '	
dib1_slot	dc.w	$0000		; slot # (valid only after startup)
		dc.w	$0000		; unit # (valid only after startup)
		dc.w	current_version	; version
		dc.w	$0000		; device ID # (valid only after startup)
		dc.w	$0000		; head device link
		dc.w	$0000		; forward device link
		dc.l	stats_tbl	; Extended DIB pointer
		dc.w	$0000		; dib device number
*
* The following data is an extension to the DIB required by the generated
* driver core routines called the GENERATED DRIVER INFORMATION BLOCK (GDIB).
*
		dc.w	$0002		; driver class
		dc.w	$0001		; SmartPort Type
		dc.w	$00C0		; SmartPort Subtype
		dc.w	$FFFF		; Cache Mask
		dc.w	512		; Device Block Size
		dc.w	$0000		; Device Hardware Unit Number(1/2)
dib1acc_flag	dc.w	$0000		; External access detect flag
		dc.w	$0000		; Selected format option (if non zero)
		dc.w	$0000		; Last status result returned by driver
		ds.w	4		; slot environ save temps
		export	dib_2
dib_2					;               
		dc.l	dib_3		; link pointer
		dc.l	dispatch	; entry pointer
		dc.w	$0BEC		; characteristics
		dc.l	00000000	; block count
		dc.b	13		; device name (length & 32 bytes ascii)
		dc.b	'APPLEDISK3.5B                  '	
		dc.w	$0000		; slot # (valid only after startup)
		dc.w	$0000		; unit # (valid only after startup)
		dc.w	current_version	; version
		dc.w	$0000		; device ID # (valid only after startup)
		dc.w	$0000		; head device link
		dc.w	$0000		; forward device link
		dc.l	stats_tbl	; Extended DIB pointer
		dc.w	$0000		; dib device number
*
* The following data is an extension to the DIB required by the generated
* driver core routines called the GENERATED DRIVER INFORMATION BLOCK (GDIB).
*
		dc.w	$0002		; driver class
		dc.w	$0001		; SmartPort Type
		dc.w	$00C0		; SmartPort Subtype
		dc.w	$FFFF		; Cache Mask
		dc.w	512		; Device Block Size
		dc.w	$0000		; Device Hardware Unit Number
dib2acc_flag	dc.w	$0000		; External access detect flag
		dc.w	$0000		; Selected format option (if non zero)
		dc.w	$0000		; Last status result returned by driver
		ds.w	4		; slot environ save temps

		export	dib_3
dib_3					;               
		dc.l	dib_4		; link pointer
		dc.l	dispatch	; entry pointer
		dc.w	$0BEC		; characteristics
		dc.l	00000000	; block count
		dc.b	13		; device name (length & 32 bytes ascii)
		dc.b	'APPLEDISK3.5C                  '	
		dc.w	$0000		; slot # (valid only after startup)
		dc.w	$0000		; unit # (valid only after startup)
		dc.w	current_version	; version
		dc.w	$0000		; device ID # (valid only after startup)
		dc.w	$0000		; head device link
		dc.w	$0000		; forward device link
		dc.l	stats_tbl	; Extended DIB pointer
		dc.w	$0000		; dib device number
*
* The following data is an extension to the DIB required by the generated
* driver core routines called the GENERATED DRIVER INFORMATION BLOCK (GDIB).
*
		dc.w	$0002		; driver class
		dc.w	$0001		; SmartPort Type
		dc.w	$00C0		; SmartPort Subtype
		dc.w	$FFFF		; Cache Mask
		dc.w	512		; Device Block Size
		dc.w	$0000		; Device Hardware Unit Number
dib3acc_flag	dc.w	$0000		; External access detect flag
		dc.w	$0000		; Selected format option (if non zero)
		dc.w	$0000		; Last status result returned by driver
		ds.w	4		; slot environ save temps

		export	dib_4
dib_4					;               
		dc.l	dib_5		; link pointer
		dc.l	dispatch	; entry pointer
		dc.w	$0BEC		; characteristics
		dc.l	00000000	; block count
		dc.b	13		; device name (length & 32 bytes ascii)
		dc.b	'APPLEDISK3.5D                  '	
		dc.w	$0000		; slot # (valid only after startup)
		dc.w	$0000		; unit # (valid only after startup)
		dc.w	current_version	; version
		dc.w	$0000		; device ID # (valid only after startup)
		dc.w	$0000		; head device link
		dc.w	$0000		; forward device link
		dc.l	stats_tbl	; Extended DIB pointer
		dc.w	$0000		; dib device number
*
* The following data is an extension to the DIB required by the generated
* driver core routines called the GENERATED DRIVER INFORMATION BLOCK (GDIB).
*
		dc.w	$0002		; driver class
		dc.w	$0001		; SmartPort Type
		dc.w	$00C0		; SmartPort Subtype
		dc.w	$FFFF		; Cache Mask
		dc.w	512		; Device Block Size
		dc.w	$0000		; Device Hardware Unit Number
dib4acc_flag	dc.w	$0000		; External access detect flag
		dc.w	$0000		; Selected format option (if non zero)
		dc.w	$0000		; Last status result returned by driver
		ds.w	4		; slot environ save temps

		export	dib_5
dib_5					;               
		dc.l	dib_6		; link pointer
		dc.l	dispatch	; entry pointer
		dc.w	$0BEC		; characteristics
		dc.l	00000000	; block count
		dc.b	13		; device name (length & 32 bytes ascii)
		dc.b	'APPLEDISK3.5E                  '	
		dc.w	$0000		; slot # (valid only after startup)
		dc.w	$0000		; unit # (valid only after startup)
		dc.w	current_version	; version
		dc.w	$0000		; device ID # (valid only after startup)
		dc.w	$0000		; head device link
		dc.w	$0000		; forward device link
		dc.l	stats_tbl	; Extended DIB pointer
		dc.w	$0000		; dib device number
*
* The following data is an extension to the DIB required by the generated
* driver core routines called the GENERATED DRIVER INFORMATION BLOCK (GDIB).
*
		dc.w	$0002		; driver class
		dc.w	$0001		; SmartPort Type
		dc.w	$00C0		; SmartPort Subtype
		dc.w	$FFFF		; Cache Mask
		dc.w	512		; Device Block Size
		dc.w	$0000		; Device Hardware Unit Number
dib5acc_flag	dc.w	$0000		; External access detect flag
		dc.w	$0000		; Selected format option (if non zero)
		dc.w	$0000		; Last status result returned by driver
		ds.w	4		; slot environ save temps

		export	dib_6
dib_6					;               
		dc.l	dib_7		; link pointer
		dc.l	dispatch	; entry pointer
		dc.w	$0BEC		; characteristics
		dc.l	00000000	; block count
		dc.b	13		; device name (length & 32 bytes ascii)
		dc.b	'APPLEDISK3.5F                  '	
		dc.w	$0000		; slot # (valid only after startup)
		dc.w	$0000		; unit # (valid only after startup)
		dc.w	current_version	; version
		dc.w	$0000		; device ID # (valid only after startup)
		dc.w	$0000		; head device link
		dc.w	$0000		; forward device link
		dc.l	stats_tbl	; Extended DIB pointer
		dc.w	$0000		; dib device number
*
* The following data is an extension to the DIB required by the generated
* driver core routines called the GENERATED DRIVER INFORMATION BLOCK (GDIB).
*
		dc.w	$0002		; driver class
		dc.w	$0001		; SmartPort Type
		dc.w	$00C0		; SmartPort Subtype
		dc.w	$FFFF		; Cache Mask
		dc.w	512		; Device Block Size
		dc.w	$0000		; Device Hardware Unit Number
dib6acc_flag	dc.w	$0000		; External access detect flag
		dc.w	$0000		; Selected format option (if non zero)
		dc.w	$0000		; Last status result returned by driver
		ds.w	4		; slot environ save temps

		export	dib_7
dib_7					;               
		dc.l	dib_8		; link pointer
		dc.l	dispatch	; entry pointer
		dc.w	$0BEC		; characteristics
		dc.l	00000000	; block count
		dc.b	13		; device name (length & 32 bytes ascii)
		dc.b	'APPLEDISK3.5G                  '	
		dc.w	$0000		; slot # (valid only after startup)
		dc.w	$0000		; unit # (valid only after startup)
		dc.w	current_version	; version
		dc.w	$0000		; device ID # (valid only after startup)
		dc.w	$0000		; head device link
		dc.w	$0000		; forward device link
		dc.l	stats_tbl	; Extended DIB pointer
		dc.w	$0000		; dib device number
*
* The following data is an extension to the DIB required by the generated
* driver core routines called the GENERATED DRIVER INFORMATION BLOCK (GDIB).
*
		dc.w	$0002		; driver class
		dc.w	$0001		; SmartPort Type
		dc.w	$00C0		; SmartPort Subtype
		dc.w	$FFFF		; Cache Mask
		dc.w	512		; Device Block Size
		dc.w	$0000		; Device Hardware Unit Number
dib7acc_flag	dc.w	$0000		; External access detect flag
		dc.w	$0000		; Selected format option (if non zero)
		dc.w	$0000		; Last status result returned by driver
		ds.w	4		; slot environ save temps

		export	dib_8
dib_8					;               
		dc.l	0		; link pointer
		dc.l	dispatch	; entry pointer
		dc.w	$0BEC		; characteristics
		dc.l	00000000	; block count
		dc.b	13		; device name (length & 32 bytes ascii)
		dc.b	'APPLEDISK3.5H                  '	
		dc.w	$0000		; slot # (valid only after startup)
		dc.w	$0000		; unit # (valid only after startup)
		dc.w	current_version	; version
		dc.w	$0000		; device ID # (valid only after startup)
		dc.w	$0000		; head device link
		dc.w	$0000		; forward device link
		dc.l	stats_tbl	; Extended DIB pointer
		dc.w	$0000		; dib device number
*
* The following data is an extension to the DIB required by the generated
* driver core routines called the GENERATED DRIVER INFORMATION BLOCK (GDIB).
*
		dc.w	$0002		; driver class
		dc.w	$0001		; SmartPort Type
		dc.w	$00C0		; SmartPort Subtype
		dc.w	$FFFF		; Cache Mask
		dc.w	512		; Device Block Size
		dc.w	$0000		; Device Hardware Unit Number
dib8acc_flag	dc.w	$0000		; External access detect flag
		dc.w	$0000		; Selected format option (if non zero)
		dc.w	$0000		; Last status result returned by driver
		ds.w	4		; slot environ save temps

		eject
*****************************************************************
*
* The following table is used to dispatch to GS/OS driver
* functions.
*
*****************************************************************
		export	dispatch_table
dispatch_table				;               
		dc.w	startup-1
		dc.w	open-1
		dc.w	read-1
		dc.w	write-1
		dc.w	close-1
		dc.w	status-1
		dc.w	control-1
		dc.w	flush-1
		dc.w	shutdn-1

		export	stats_tbl
		export	Total_reads
		export	Total_multiblk
		export	Total_multifail
		export	Total_multidisq
stats_tbl
Total_reads	dc.l	0	;total calls to Read (BLOCK 512)
Total_multiblk	dc.l	0	;total calls of 5 or more blks per call
total_multidisq	dc.l	0	;total multiblk disqualified by caching/DSW
total_multifail	dc.l	0	;total multiblk reads that got errors

		eject
*****************************************************************
*
* The following table contains the device status for each
* device supported by this driver.
*
* Encoding of status for a block device is as follows:
*  ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___
* |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |
* | F | E | D | C | B | A | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 |
* |___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |__ DISK SW
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |______ INTERRUPT
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |__________ WRITE PROT
*   |   |   |   |   |   |   |   |   |   |   |   |   |______________ 0 RESERVED
*   |   |   |   |   |   |   |   |   |   |   |   |__________________ ONLINE
*   |___|___|___|___|___|___|___|___|___|___|______________________ 0 RESERVED
*
*****************************************************************

		eject
*****************************************************************
*
* The following table is used to maintain the current head cylinder
* position for read's SEEK routine ; indexed by Drive # (0,1)
*
*****************************************************************
		export	Cur_Cyl
Cur_Cyl		dc.b	$FF		; driv 1 Internal current head posn
		dc.b	$FF		; dirv 2 Internal current head posn

*****************************************************************
*
* The following table is used to maintain the current drive status
* status bits for dsw (b7), offline(b6), and motoron (b5).
*
*****************************************************************
		export	drv_sts
Drv_Sts		dc.b	$00		; driv 1 Internal status bits
		dc.b	$00		; dirv 2 Internal status bits

*****************************************************************
*
* The following table is used to maintain a flag for detection 
* of non-driver "external" access to the SmartPort device.
* This table requires that the two drives have SmartPort unit #'s
* of 1 to 4
*
*****************************************************************
		export	pre_check
pre_check	dc.w	0

		export	bank1_lgth
bank1_lgth	dc.w	end_bank1-beg_bank1

*****************************************************************
* Used during Startup process to scan slots and drives 
*****************************************************************

		export	device_count
device_count	dc.w	0		; number of devices started up

		export	slot_units
slot_units	dc.w	0		; number of the units in this slot

		export	slot_count	
slot_count	dc.w	0		; number of SmartPort controllers Cards

		export	last_slot
last_slot	dc.w	0		;has $5,$D,$F,$E,$C,$A,$9 during startup

		export	last_drive
last_drive	dc.w	0		;has 1/2   0 means not known

		export	name_char
name_char	dc.b	' A'		;driver name suffix character to "count"


*****************************************************************
*
* The following equates are general workspace used by the driver.
*
*****************************************************************
		export	rom_version
rom_version	dc.w	0

* ext_slot set during all calls except Startup (which set it itself)
		export	ext_slot
ext_slot	dc.w	0		;0 = internal, -1 = external


		export	curnsect	;sectors/cyl for current cyl
		export	drive		;dib_hw_unit - 1 for current read
		export	class		;speed group 
		export	cyl		;input to Seek
		export	track		;input to READTRK
		export	sector		;output from BlkMap
		export	side		;input to RDMODE, SetHead
		export	msdelayctr	;temp for MSWait routine
		export	temp		;scratch for various
		export	adrsret		;work for ReadTrk
		export	seekret		;  "   
		export	basepgbk	;work for ReadTrk
		export	basesave	;save for ReadTrk	
		export	drswtch		;output from FastBuffr
		export	irq_state	;control for Seek enable of IRQ
		export	prior_sts
prior_sts	dc.w	0		;prior contents of drv_sts,drive		
irq_state	dc.w	0		;$00 = don't open for interrupts
drswtch		dc.w	0		;$FF = fast buffer; $00 = slow memory
basesave	dc.w	0		;save for drvr_buf_ptr+1 & +2
basepgbk	dc.w	0		;base page+bank of current track buffer
seekret		dc.w	0		;
adrsret		dc.w	0		;
temp		dc.w	0
msdelayctr	dc.w	0		;counter for # of milliseconds
side		dc.w	0		;$00 = side 0; $80 = side 1
sector		dc.w	0		; 
track		dc.w	0		;0..159  (cyl with side bit as lsb)
cyl		dc.w	0		;0..79
class		dc.w	0		; = cyl div 16
drive		dc.w	0		;dib_hw_unit - 1 (0 or 1)
curnsect	dc.w	0

		export	sectinfo	;output table of adrs field data
		export	fmtfnd		; from the RdAddr routine
		export	sidefnd
		export	sectfnd
		export	trkfnd
		export	csfnd
;  Sectinfo is really a table and must occur in order		
sectinfo	
csfnd		dc.b	0
fmtfnd		dc.b	0
sidefnd		dc.b	0
sectfnd		dc.b	0
trkfnd		dc.b	0
;
;--------------------------------------------
;  Want-Found Table used by Track Read
;      Value	Meaning
;	$00	Sector Read sucessfully
;	$40	Don't Want this sector
;	$80	Read this sector (ASAP)
;--------------------------------------------
		export	want_fnd_tbl	
want_fnd_tbl	ds.b	18
;----------------------------------------
; multi-track read input parmaeters
;----------------------------------------
		export	Cn00
		export	Slotx16
		export	SlotsReg
		export	Mu_cmdmode
		export	Mu_unitnum
		export	Mu_blk_num
		export	Mu_blk_cnt
		export	multi_err
		export	found_ctr
		export	read_ctr	;input to ReadTrk
		export	begin_sect	;input to ReadTrk
		export	tail_cnt	;input to ReadTrk
		export	block_cnt	;work for ReadTrk 
		export	block_ctr	;input to ReadTrk
		export	trk_ctr		;input to ReadTrk
		export	end_blk_num
		export	end_sector
		export	end_track
		export	beg_blk_num
beg_blk_num:
end_track	dc.w	0
end_blk_num	dc.w	0
block_ctr	dc.w	0		; input & counter for ReadTrk
block_cnt	dc.w	0		; total number of blocks to read
tail_cnt	dc.w	0		; number of sectors on last track

trk_ctr		dc.w	0		;number of tracks (not cyls) to read (0..159)
begin_sect	dc.w	0		; sector # of 1st sector on first track
end_sector	dc.w	0
read_ctr	dc.w	0		;count of number of sect to read on cur track
found_ctr	dc.w	0
		ORG	trk_ctr
* The following overlay the above 10 bytes
Mu_cmdmode	dc.b	0
Mu_unitnum	dc.b	0
		dc.b	0
Mu_blk_num	dc.w	0
		dc.w	0
Mu_blk_cnt	dc.w	0
		dc.b	0
		ORG

multi_err	dc.w	0		;temp to record Bad ending Block error
Cn00		dc.w	0		;gets $Cs00 
Slotx16		dc.w	0		;gets $00s0 
SlotsReg	dc.w	0		;saves copy of sltromsel register ($C02D)

;-----------------------------------
; GCR DATA TABLES FOR RDADDRs
;-----------------------------------
		export	DATAMARKS
		export	BSLIP1
		export	BSLIP2
		export	ADRMARKS
ADRMARKS	DC.B	$96,$AA,$D5		
DATAMARKS       DC.B    $AD,$AA,$D5
BSMARKS         DC.B    $FF
BSLIP2		DC.B	$AA
BSLIP1		DC.B	$DE

		eject
****************************************************************
*
*	Following are the parameter lists used by the
*	BANK $00 CORE DISPATCHER when calling a SmartPort
* 	interface.
*
****************************************************************
*
* The following is the parameter list for a unit 0 status call
* to the SmartPort.  This is used to determine the number of
* devices logically connected to SmartPort.
*
*****************************************************************
		export	unit0_stat
unit0_stat	dc.b	$40		; extended status call
		dc.l	unit0_plist	; pointer to parameter list
unit0_plist	dc.b	3		; parameter count
		dc.b	0		; unit number
		dc.l	unit0_slist	; pointer to status list
		dc.b	0		; status code
		export	unit0_slist
unit0_slist	dc.b	0		; number of units
		dc.b	0		; interrupt status
		dc.b	0		; vendor ID
		dc.b	0		; reserved
		dc.l	0		; native mode entry point

*****************************************************************
*
* The following is the parameter list for a unit N status call
* to the SmartPort.  This is used to determine characteristics
* of the SmartPort device.
*
*****************************************************************
		export	dib_stat
dib_stat	dc.b	$40		; extended status call
		dc.l	dib_plist	; pointer to parameter list
dib_plist	dc.b	3		; parameter count
		export	dib_unit
dib_unit	dc.b	0		; unit number
		dc.l	dib_slist	; pointer to status list
		dc.b	3		; status code
		export	dib_slist
		export	dib_blkcnt
dib_slist	dc.b	0		; General status byte
dib_blkcnt	dc.l	0		; Block count
		dc.b	0		; ID string length
		dc.b	'0123'		; ID string
		dc.b	'4567'		
		dc.b	'89AB'		
		dc.b	'CDEF'		
		export	sp_type
sp_type		dc.b	0		; SmartPort Type
		export	sp_subtype
sp_subtype	dc.b	0		; SmartPort Subtype
		export	sp_version
sp_version	dc.w	0		; SmartPort Version

*****************************************************************
*
* The following parameter list is used to set the number of
* sides for the current online media in preperation for a
* subsequent format call.
*
*****************************************************************
		export	set_sides
set_sides	dc.b	$44		; control call
		dc.l	sides_plist	; parameter list pointer
sides_plist	dc.b	3		; parameter count
		export	sides_unit
sides_unit	dc.b	0		; unit number
		dc.l	sides_list	; control list pointer
		dc.b	$09		; control code
sides_list	dc.w	1		; count word
		export	sides_cnt
sides_cnt	dc.w	0		; number of sides to set

*****************************************************************
*
* The following parameter list is used to set the interleave
* for the current online media in preperation for a subsequent
* format call.
*
*****************************************************************
		export	set_intlv
set_intlv	dc.b	$44		; control call
		dc.l	ilv_plist	; parameter list pointer
ilv_plist	dc.b	3		; parameter count
		export	ilv_unit
ilv_unit	dc.b	0		; unit number
		dc.l	intlv_list	; control list pointer
		dc.b	$0A		; control code
intlv_list	dc.w	1		; count word
		export	intlv
intlv		dc.w	2		; interleave value

*****************************************************************
*
* The following is the parameter list used to set the interleave
* to 4:1 on Shutdown.
*
*****************************************************************
		export	clr_interleave
		export	clr_intlv_unit
clr_interleave	dc.b	$44		; extended control call
		dc.l	@plist		; pointer to parameter list

@plist		dc.b	3		; parameter count
clr_intlv_unit	dc.b	0		; unit number
		dc.l	@list		; pointer to control list
		dc.b	$0A		; control code

@list		dc.w	1		; count byte
		dc.b	4		; interleave

		export	set_fmt_option
		export	set_fmt_unit
		export	set_fmt_opt
set_fmt_option	dc.b	$4A
		dc.l	@plist
	
@plist		dc.b	3
set_fmt_unit	dc.b	0		;unit number
		dc.l	@plist
		dc.w	2
@plist
set_fmt_opt	dc.w	0
		dc.w	0

*****************************************************************
* The following is the parameter list used to read a block
*****************************************************************
		export	blockread_list
blockread_list	dc.b	$41		; extended control call
		dc.l	blockrd_plist	; pointer to parameter list
blockrd_plist	dc.b	3		; parameter count
		export	blockrd_unit
blockrd_unit	dc.b	0		; unit number
		export	blockrd_buf
blockrd_buf	dc.l	0		; pointer to buffer
		export	blockrd_blk
blockrd_blk	dc.l	0		; block address
		
*****************************************************************
* The following is the parameter list used to write a block
*****************************************************************
		export	blockwrite_list
blockwrite_list	dc.b	$42		; extended control call
		dc.l	blockwr_plist	; pointer to parameter list
blockwr_plist	dc.b	3		; parameter count
		export	blockwr_unit
blockwr_unit	dc.b	0		; unit number
		export	blockwr_buf
blockwr_buf	dc.l	0		; pointer to buffer
		export	blockwr_blk
blockwr_blk	dc.l	0		; block address

*****************************************************************
* The following is the parameter list used to read a MAC block
*****************************************************************
		export	readbyts_list
		export	rdbyts_unit
		export	rdbyts_buf
		export	rdbyts_count
		export	rdbyts_blk
readbyts_list	dc.b	$48		; extended readbytes call
		dc.l	rdbyts_plist	; pointer to parameter list
rdbyts_plist	dc.b	4		; parameter count
rdbyts_unit	dc.b	0		; unit number
rdbyts_buf	dc.l	0		; pointer to buffer
rdbyts_count	dc.w	0		; count of bytes to read
rdbyts_blk	dc.l	0		; block address
		
*****************************************************************
* The following is the parameter list used to write a MAC block
*****************************************************************
		export	writbyts_list
		export	wrbyts_blk
		export	wrbyts_buf
		export	wrbyts_count
		export	wrbyts_unit
writbyts_list	dc.b	$49		; extended writebytes call
		dc.l	wrbyts_plist	; pointer to parameter list
wrbyts_plist	dc.b	4		; parameter count
wrbyts_unit	dc.b	0		; unit number
wrbyts_buf	dc.l	0		; pointer to buffer
wrbyts_count	dc.w	0		; count of bytes to read
wrbyts_blk	dc.l	0		; block address

		eject	
*****************************************************************
*
* The following is the parameter list used to set the hooks.
* Hook reference numbers are as follows:
*
*	$00	Main entry hook (not published)
*	$01	Read address field
*	$02	Read data field
*	$03	Write data field
*	$04	Seek
*	$05	Format disk
*	$06	Write track
*	$07	Verify track
*
*****************************************************************
		export	sethook_list
sethook_list	dc.b	$44		; extended control call
		dc.l	sethook_plist	; pointer to parameter list
sethook_plist	dc.b	3		; parameter count
		export	sethook_unit
sethook_unit	dc.b	0		; unit number
		dc.l	hook_list	; pointer to hook list
		dc.b	5		; control code = set hook
		export	hook_list
hook_list	dc.w	4		; count word
		export	hook_ref
hook_ref	dc.b	0		; hook reference number
		export	hook_addr
hook_addr	dc.l	0		; new hook address
				
*****************************************************************
*
* The following is the parameter list used to reset the hooks
*
*****************************************************************
		export	resethook_list
resethook_list	dc.b	$44		; extended control call
		dc.l	resethook_plist	; pointer to parameter list
resethook_plist	dc.b	3		; parameter count
		export	resethook_unit
resethook_unit	dc.b	0		; unit number
		dc.l	rsthook_list	; pointer to hook list
		dc.b	6		; control code = set hook
		export	rsthook_list
rsthook_list	dc.w	4		; count word
		export	rsthook_ref
rsthook_ref	dc.b	0		; hook reference number

**********************************************************************
*
* This parameter list is used to do a SetAdrs call to UCIC
*
**********************************************************************
		export	setAdrs_list
setAdrs_list	dc.b	$44		; extended control call
		dc.l	@plist		; pointer to parameter list
@plist		dc.b	3		; parameter count
		export	setAdrs_unit
setAdrs_unit	dc.b	0		; unit number
		dc.l	@data		; pointer to setAdrs list
		dc.b	16		; control code = set setAdrs
@data		dc.w	2		; count word
		export	setAdrs_addr
setAdrs_addr	dc.w	0		; download/execute address
				
**********************************************************************
*
* This parameter list is used for the DownLoad call to UCIC
*
**********************************************************************
		export	dnLoad_list
dnLoad_list	dc.b	$44		; extended control call
		dc.l	@plist		; pointer to parameter list
@plist		dc.b	3		; parameter count
		export	dnLoad_unit
dnLoad_unit	dc.b	0		; unit number
		dc.l	@data		; pointer to dnLoad list
		dc.b	17		; control code = DownLoad
@data		dc.w	7		; byte word
		longa	off
		lda	#$FF		;
		export	dibXflag_adrs
dibXflag_adrs	sta	>dib1acc_flag
		rts
		longa	on

**********************************************************************
*
* This parameter list is used for the DownLoad call to UCIC when
* nullifying the original DownLoad.
*
**********************************************************************
		export	dnLoad_list2
dnLoad_list2	dc.b	$44		; extended control call
		dc.l	@plist		; pointer to parameter list
@plist		dc.b	3		; parameter count
		export	dnLoad_unit2
dnLoad_unit2	dc.b	0		; unit number
		dc.l	@data		; pointer to dnLoad list
		dc.b	17		; control code = DownLoad
@data		dc.w	1		; byte word
		rts

	if 0	then
**********************************************************************		
		export	dnLd_list
dnLd_list	dc.b	$44		; extended control call
		dc.l	@plist		; pointer to parameter list
@plist		dc.b	3		; parameter count
		export	dnLd_unit
dnLd_unit	dc.b	0		; unit number
		export	dnLd_dataPtr
dnLd_dataPtr	dc.l	MediaChk	; pointer to dnLoad list
		dc.b	17		; control code = DownLoad
	endif
**********************************************************************
*
*	Read Disk Switch Status with phantom unit number status call
*
**********************************************************************
		export	dsw_stat
dsw_stat	dc.b	$40		; extended status call
		dc.l	@plist		; pointer to parameter list
@plist		dc.b	3		; parameter count
		export	dsw_unit
dsw_unit	dc.b	0		; unit number
		dc.l	dsw_slist	; pointer to status list
		dc.b	0		; status code
		export	dsw_slist
dsw_slist	dc.b	0		; General status byte
		dc.l	0		; Block count

			
		endp
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/AppleDisk3.5/AD3.5.directRD b/IIGS.601.SRC/GS.OS/Drivers/AppleDisk3.5/AD3.5.directRD
new file mode 100644
index 0000000..13f3f5c
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/AppleDisk3.5/AD3.5.directRD
@@ -0,0 +1 @@
+
                PRINT   NODATA      	
                TITLE   '     Direct Read Equates'       
****************************************************
* Revision history for a direct.Read routine
* that will work in Bank $01 RAM 
*
* Derived from TenSpeed Sources on Feb 2, 1989
*
****************************************************;
***************************************************************
*
*        **** WARNING **** WARNING **** WARNING ****
*
*    The order of this source code is critical to the
*    generation of the object segment.  The ASHIFT, BSHIFT,
*    DENIBLTBL, READ routine and then the CSHIFTBL
*    must be in THAT SPECIFIC sequential order.  
*    OTHERWISE the positions of the nyble tables will be wrong.
*
*******************************************
bank1_code	proc	export
		endp
		ENTRY	DIRECT_READ
read1to1	PROC	temporg  $01bc00
		EXPORT	DIRECT_READ		
		export	beg_bank1
		export	end_bank1
*
*  IWM EQUATES :  These equates assume DBR points to an I/O bank !!!
*
DB_IWM		EQU	$C0E0
*
DR_CA0CLR       EQU     DB_IWM+0
DR_CA0SET       EQU     DB_IWM+1
DR_CA1CLR       EQU     DB_IWM+2
DR_CA1SET       EQU     DB_IWM+3
DR_CA2CLR       EQU     DB_IWM+4
DR_CA2SET       EQU     DB_IWM+5
DR_LSTRBCLR     EQU     DB_IWM+6
DR_LSTRBSET     EQU     DB_IWM+7
DR_DESELECT     EQU     DB_IWM+8
DR_SELECT       EQU     DB_IWM+9
DR_ENABLE1      EQU     DB_IWM+10
DR_ENABLE2      EQU     DB_IWM+11          
DR_L6CLR        EQU     DB_IWM+12          
DR_L6SET        EQU     DB_IWM+13          
DR_L7CLR        EQU     DB_IWM+14          
DR_L7SET        EQU     DB_IWM+15          

                TITLE   '      Extra Bits Shift Tables'        
beg_bank1
ASHIFT          DC.B    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
                DC.B    64,64,64,64,64,64,64,64,64,64,64,64,64,64,64,64
                DC.B    128,128,128,128,128,128,128,128
                DC.B    128,128,128,128,128,128,128,128
                DC.B    192,192,192,192,192,192,192,192
                DC.B    192,192,192,192,192,192,192,192
*
BSHIFT          DC.B    0,0,0,0,64,64,64,64
                DC.B    128,128,128,128,192,192,192,192
                DC.B    0,0,0,0,64,64,64,64
                DC.B    128,128,128,128,192,192,192,192
                DC.B    0,0,0,0,64,64,64,64
                DC.B    128,128,128,128,192,192,192,192
                DC.B    0,0,0,0,64,64,64,64
                DC.B    128,128,128,128,192,192,192,192
*
DATAMARKS       DC.B    $AD,$AA,$D5
BSMARKS         DC.B    $FF,$AA,$DE
*
* ABSOLUTE WORK SPACE (max of 16 bytes)
SECTCHK		DS.B	1
* Now Pad up to $XX96 
                DS.B    15        	
                TITLE   '     Denibbilizing Table' 
******************************************************
*                                                    *
*          7 bit to 6 bit 'Deniblize' Table          *
*                                                    *
*          Valid codes are $96 to $FF only           *
*     Codes with more than one pair of adjacent      *
*      zeroes or with no adjacent ones (except       *
*               bit 7) are excluded.                 *
*                                                    *
*      This table *must* be aligned at the end       *
*               of a page in memory.                 *
*                                                    *
******************************************************
DNIBTAB         EQU     *-$96
*
                DC.B    $00,$01,$98
                DC.B    $99,$02,$03
                DC.B    $9C,$04,$05
                DC.B    $06,$A0,$A1
                DC.B    $A2,$A3,$A4
                DC.B    $A5,$07,$08
                DC.B    $A8,$A9,$AA
                DC.B    $09,$0A,$0B
                DC.B    $0C,$0D,$B0
                DC.B    $B1,$0E,$0F
                DC.B    $10,$11,$12
                DC.B    $13,$B8,$14
                DC.B    $15,$16,$17
                DC.B    $18,$19,$1A
                DC.B    $C0,$C1,$C2
                DC.B    $C3,$C4,$C5
                DC.B    $C6,$C7,$C8
                DC.B    $C9,$CA,$1B
                DC.B    $CC,$1C,$1D
                DC.B    $1E,$D0,$D1
                DC.B    $D2,$1F,$D4
                DC.B    $D5,$20,$21
                DC.B    $D8,$22,$23
                DC.B    $24,$25,$26
                DC.B    $27,$28,$E0
                DC.B    $E1,$E2,$E3
                DC.B    $E4,$29,$2A
                DC.B    $2B,$E8,$2C
                DC.B    $2D,$2E,$2F
                DC.B    $30,$31,$32
                DC.B    $F0,$F1,$33
                DC.B    $34,$35,$36
                DC.B    $37,$38,$F8
                DC.B    $39,$3A,$3B
                DC.B    $3C,$3D,$3E
                DC.B    $3F
                TITLE   '     Direct Read Data Field'          
**********************************************************
*                                                        *
* DirectRead: Read data field directly to users buffer   *
*                                                        *
*   Assumes: the user buffer is in fast ram              *
*            i.e. not in $E0-E1 or $00-01 with shadowing *
*         and the buffer does NOT span a bank boundary!! *
*                                                        *
*   Output:   512 bytes stored in user buffer            *
*                                                        *
**********************************************************
*							 *
* WARNING:   The size of this DS.B may need to change if *
*            this routine is changed in length !!!!!!!!!!*
**********************************************************
		DS.B	$18		;pad to put pgcross in right place!!!!
*
DIRECT_READ	PHB
		PHK
                PLB                     ;POINT   data bank at mycode/tables
*
		STA	SECTCHK		;save sect# to verify
                STZ     CSUMA
                STZ     CSUMB
                STZ     CSUMC
*
* Find the data marks
*
                LDY     #READTO         ;Rather short timeout
@02             LDX     #2              ;Three of 'em
@04             DEY                     ;MAINTAIN        t.o. ctr
                BEQ     @TO_ERR       ;=> Too many bytes passed 
* 
                LDA     DR_L6CLR           ;Look for a byte
                BPL     *-3             ;Branch if no byte ready
                CMP     DATAMARKS,X 	;Is it the right mark? 
                BNE     @02             ;No, start all over 

                DEX                     ;YES,    found a mark 
                BPL     @04             ;If more marks, go back 
*
* Found the data marks. Verify the sector number matches adrs field
*
                LDX     DR_L6CLR           
                BPL     *-3
*
                LDA     DNIBTAB,X       ;Denibblize the sector mark
                EOR     SECTCHK 	;leave zero in A for cksum algorthm
                BNE     @WS_ERR
*
* Now read the 16 nybl (12 bytes) tag field
*
                LDY     #12
                CLC
@TAGLOOP        LDX     DR_L6CLR           ;(6-9,11)
*
                BPL     *-3             ;(3)
                ADC     CSUMC 		;(2)
                CMP     #$80            ;(2)
                ROL     A               ;(2)
                STA     CSUMC 		;(3)
                LDA     DNIBTAB,X       ;(4)
                STA     EXINDEX 	;(3)
                LDX     DR_L6CLR           ;(6-9,11)
*
                BPL     *-3             ;(3)
                LDA     DNIBTAB,X       ;(3)
                LDX     EXINDEX 	;(3)
                ORA     ASHIFT,X        ;(4)
                EOR     CSUMC 		;(3)
                ADC     CSUMA 		;(3) just perform cksum algorithm
                STA     CSUMA 		;(3)
                DEY                     ;(2)     dey  ;(2)

                LDX     DR_L6CLR           ;(6-9,11)
*
                BPL     *-3             ;(3)
                LDA     DNIBTAB,X       ;(3)
                LDX     EXINDEX 	;(3)
                ORA     BSHIFT,X        ;(4)
                EOR     CSUMA 		;(3)
                ADC     CSUMB 		;(3)
                STA     CSUMB 		;(3)
                DEY                     ;(2)     dey  ;(2)

                LDX     DR_L6CLR           ;(6-9,11)
*
                BPL     *-3             ;(3)
                LDA     DNIBTAB,X       ;(3)
                LDX     EXINDEX 	;(3)
                ORA     CSHIFT,X        ;(4)
                EOR     CSUMB 		;(3)
                DEY                     ;(2)     dey  ;(2)

                BNE     @TAGLOOP        ;(3)
                BRA     @GO             ;(3) enter the 1st page loop
*********************************************
@TO_ERR      	LDA 	#TOERROR
		BRA	@GOERR
@WS_ERR		LDA 	#WSERROR
@GOERR		BRL     @ERRXIT
*
* Now read the 1st 256 data bytes of data field
*
@PG1LOOP        LDX     DR_L6CLR           ;(6-9,11) (best-worst,loop)
                BPL     *-3             ;(3)  get nybl B
                LDA     DNIBTAB,X       ;(3) Denib: 00BBBBBB
                LDX     EXINDEX 	;(3) top bits index
                ORA     BSHIFT,X        ;(4) BBBBBBBB XOR csuma
                EOR     CSUMA 		;(3) BBBBBBBB
                STA     [drvr_buf_ptr],Y 	;(6) put the data byte b
                INY                     ;(2)     
                ADC     CSUMB 		;(3) A <- csumb + byteb 
                STA     CSUMB 		;(3) 
*
                LDX     DR_L6CLR           ;(6-9,11) 4 1us cycles/loop 
                BPL     *-3             ;(3)    get nybl C
                LDA     DNIBTAB,X       ;(3)
                LDX     EXINDEX 	;(3)
                ORA     CSHIFT,X        ;(4) Add top bits 
                EOR     CSUMB 		;(3) Got CCCCCCCC
                STA     [drvr_buf_ptr],Y 	;(6)
                INY                     ;(2)     

*
@GO             LDX     DR_L6CLR           ;(6-9,11) Get the top bits nybl
                BPL     *-3             ;(3) Back if no byte 
                ADC     CSUMC 		;(2)
                CMP     #$80            ;(2)
                ROL     A               ;(2)
                STA     CSUMC 		;(3)
                LDA     DNIBTAB,X       ;(4) Denibblize top bit nybl
                STA     EXINDEX 	;(3) 
*
                LDX     DR_L6CLR           ;(6-9,11) Get nybl A
                BPL     *-3             ;(3) 
                LDA     DNIBTAB,X       ;(3) Denib: 00AAAAAA
                LDX     EXINDEX 	;(3) top bit index
                ORA     ASHIFT,X        ;(4) AAAAAAAA XOR csumc
                EOR     CSUMC 		;(3) AAAAAAAA
                STA     [drvr_buf_ptr],Y 	;(6) put the data byte A   
                ADC     CSUMA 		;(3) Add it in to the carry
                STA     CSUMA 		;(3) Keep it
                INY                     ;(2)     end of 1st 256 bytes yet?
                BNE     @PG1LOOP        ;(3)
*
* cross over nybl to 2nd loop and 2nd code page!
* WARNING! The code page boundary must occur within the
*          following instructions before the loop label
*
@DRCHK1         EQU     *
                LDX     DR_L6CLR           ;(6-9,11) get the C nybl
                BPL     *-3             ;(3)
                LDA     DNIBTAB,X       ;(3)
                LDX     EXINDEX 	;(3)
                ORA     BSHIFT,X        ;(4)
                EOR     CSUMA 		;(3)
                STA     [drvr_buf2_ptr],Y 	;(6)
                ADC     CSUMB 		;(3)
                STA     CSUMB 		;(3)
                INY                     ;(2)     

@DRCHK2		EQU     *
*
* Now read the 2nd 256 data bytes of data field
*
@PG2LOOP        LDX     DR_L6CLR           ;(6-9,11)  (best-worst,loop)
                BPL     *-3             ;(3)    (4 slow cycles/loop)
                LDA     DNIBTAB,X       ;(3)
                LDX     EXINDEX 	;(3)
                ORA     CSHIFT,X        ;(4) Add top bits 
                EOR     CSUMB 		;(3) Got CCCCCCCC
                STA     [drvr_buf2_ptr],Y 	;(6)
                INY                     ;(2) 
*
                LDX     DR_L6CLR           ;(6-9,11) Get the top bits nybl
                BPL     *-3             ;(3) Back if no byte 
                ADC     CSUMC 		;(2)
                CMP     #$80            ;(2)
                ROL     A               ;(2)
                STA     CSUMC 		;(3)
                LDA     DNIBTAB,X       ;(4) Denibblize top bit nybl
                STA     EXINDEX 	;(3) 
*
                LDX     DR_L6CLR           ;(6-9,11) Get nybl A
                BPL     *-3             ;(3) 
                LDA     DNIBTAB,X       ;(3) Denib: 00AAAAAA
                LDX     EXINDEX 	;(3) top bit index
                ORA     ASHIFT,X        ;(4) AAAAAAAA XOR csumc
                EOR     CSUMC 		;(3) AAAAAAAA
                STA     [drvr_buf2_ptr],Y 	;(6) put the data byte 
                INY                     ;(2)     

                ADC     CSUMA 		;(3) A <- csuma + bytea 
                STA     CSUMA 		;(3) 
*
                LDX     DR_L6CLR           ;(6-9,11) get nybl B
                BPL     *-3             ;(3)
                LDA     DNIBTAB,X       ;(3) Denib: 00BBBBBB
                LDX     EXINDEX 	;(3)
                ORA     BSHIFT,X        ;(4) BBBBBBBB XOR csuma
                EOR     CSUMA 		;(3) BBBBBBBB 
                STA     [drvr_buf2_ptr],Y 	;(6) Get rid of byteb
                ADC     CSUMB 		;(3) Add it in to the carry
                STA     CSUMB 		;(3) Keep it
                INY                     ;(2)     done with 2nd page yet? 
                BNE     @PG2LOOP        ;(3)
*
* Now grab, decode, and verify the checksum bytes
*
                LDX     DR_L6CLR           ;(4) Get the extras
                BPL     *-3             ;(2) Wait until byte ready
                LDA     DNIBTAB,X       ;(3) Denibbilize it
                TAX                     ;(2)     save it
                LDA     CSHIFT,X        ;(4) Grab C extras in A[7..6]
                STA     EXINDEX 	;(3) Keep for later
                LDA     BSHIFT,X        ;(4) Get shifted B extras
                STA     EXINDEX2 	;(3)
                LDA     ASHIFT,X        ;(4) Get A extras shifted
*
                LDY     #2
*
@80             LDX     DR_L6CLR           ;(4)
                BPL     *-3             ;(2) Wait until byte ready
                AND     #$C0            ;(2) Isolate hi bits in A
                ORA     DNIBTAB,X       ;(4) 'or' in denibbed low 6
                TYX                     ;(2)     need zpg indexed addressing
                CMP     CSUMC,X 	;(4) Is it what we calc'd?
                BNE     @110            ;(2) If not, flag a checksum error
                LDA     EXINDEX-1,X 	;(4) Get next hi set of extras
                DEY                     ;(2)     Almost done
                BPL     @80             ;(3) Back maybe...
*
* Checksum okay... How are the bitslip mark?
*
                LDX     #2              ;(2) Got two bitslip marks 
@90             LDA     DR_L6CLR           ;(4) Wait for a byte
                BPL     *-3             ;(2) 
                CMP     BSMARKS,X 	;(4) Right one?
                BNE     @120            ;(2) If not, you know where to go
                DEX                     ;(2)    

                BNE     @90             ;(3) Get the other mark
*
* Return good...we did it!
*
                LDA	#00 		;RETURN ZERO ERROR CODE
                CLC
                BRA     @OKEXIT
*
* 'Blew it' so return an error code
*
@110            LDA     #DCSERROR	;Data CheckSum Error
                BNE     @RDERR
*
@120            LDA     #DBSERROR	;Data BitSlip Error
@RDERR		DEC     drvr_buf_ptr+1 	;restore buffer adrs
*
@ERRXIT         SEC
@OKEXIT		PLB			;restore users DBR
                RTL
*
CSHIFT          DC.B    0,64,128,192,0,64,128,192
                DC.B    0,64,128,192,0,64,128,192
                DC.B    0,64,128,192,0,64,128,192
                DC.B    0,64,128,192,0,64,128,192
                DC.B    0,64,128,192,0,64,128,192
                DC.B    0,64,128,192,0,64,128,192
                DC.B    0,64,128,192,0,64,128,192
                DC.B    0,64,128,192,0,64,128,192
*
		string	asis
		dc.b	'© COPYRIGHT 1989 by '
		dc.b	'Apple Computer, Inc'
		dc.b	'All rights Reserved'
		dc.b	'NOTE: This code is protected'
		dc.b	'under U.S. Patent #4,564,941'
		dc.b	'dated Jan. 14, 1986'
end_bank1
		ENDPROC
*		
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/AppleDisk3.5/AD3.5.drivsubs b/IIGS.601.SRC/GS.OS/Drivers/AppleDisk3.5/AD3.5.drivsubs
new file mode 100644
index 0000000..f76d9d3
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/AppleDisk3.5/AD3.5.drivsubs
@@ -0,0 +1 @@
+                TITLE   '     Seek Routine'  
drivsubs	proc
**************************************************
*                                                *
*  seek                     Seek to a cylinder   *
*                     Assume cur_cyl is correct  *
*                                                *
*   Input:    cyl <- cylinder to seek to         *
*             drive <- drive on which to seek    *
*             cur_cyl <- head rests here         *
*   Output:   C <- set if seek error occurred    *
*             curnsect <- # sectors this cyl     *
*   Uses:     recal, sendsteps, WriteBit         *
*   Regs:     A <- error2 (if carry set)         *
*   Destroys: X, Y                               *
*                                                *
**************************************************
		export	seek
SEEK
*
* If drive is offline (cyl unknown), do a recal
                LDX     DRIVE
                BIT     cur_cyl,X 	;Set N to online
                BPL     @05             ;If cyl known, skip recal
                JSR     RECAL
                BCS     @SERR
@05             EQU     *
*
* Determine # of steps to take, and direction
                SEC
                LDX     DRIVE
                LDA     cur_cyl,X
                SBC     CYL 		;Calculate delta 
                BEQ     @80	        ;If on track, skip down
*
* At this point, C clear means inward seek, ow out
                LDY     #DIROUTADR      ;Assume outward seek 
                BCS     @10             ;Branch on outward seek
*
                LDY     #DIRINADR       ;Setnasrt value for inward seek
                EOR     #$FF            ;Gotta convert the negative delta
                ADC     #1              ;Carry was already clear 
*
@10             EQU     *
                TAX                     ;move delta to X reg
                TYA                     ;Setup to set the direction
                JSR     WRITEBIT
*
* Now do the stepping ; delta in X
                JSR     SENDSTEPS       ;Send the step pulses 
*
* NOW THAT a STEP is in progress open and close IRQ
		lda	irq_state	;were interrupts disabled?
		bne	@40		;yep so leave em that way
		cli			;this should allow 1 interrupt per seek
		nop
		sei			;per track during seek/settling time
*
* Wait until any seeking/speed changing/head settling finishes
@40		lda	#readyadr
		jsr	Read_bit	;is seek done yet?
		bcc	@80		;yes
		longi	on
		rep	#$10
		ldx	#700		;allow at least 80*6+30 =510 Ms
@50		ldy	#200
@60		lda	>L7clr		;(09) read ready status again
		bpl	@70		;(11) It's ready now
		dey			;(13)
		bne	@60		;=16 *.350 = 5.6 us * 200 >= 1 ms 
		dex
		beq	@66		;Oh boy I timed out after seek???
		bra 	@50		;see if the dumb drive is ready yet.
@66		SEP	#$10
                BRA     @NVRRDY		;something's wrong if seek takes > .7 secs
@70		SEP	#$10
		longi	off
@80		EQU     *
* 
* Update the current cylinder byte and exit error free 
                LDX     DRIVE
                LDA     CYL
                STA     cur_cyl,X
                CLC                     ;RETURN  Good!
@SERR		RTS
*
@NVRRDY		LDA     #drvr_off_line
                SEC
		RTS

**************************************************
*                                                *
*  sendsteps           Steps a number of tracks  * 
*                        assume IWMDIR to drive  *
*                                   and dir set  * 
*                                                *
*   Input:    X <- number of tracks to step      *
*   Destroys: A, Y                               *
*             X cleared                          *
*                                                *
*  (Delays after stepping until /READY is valid) *
*                                                *
**************************************************
SENDSTEPS       EQU     *
*
* Take a step
*
                LDA     #STEP0ADR
                JSR     WRITEBIT
*
* Wait for handshake from drive
*
@10             JSR     IWM_sense	; IWM_sense leaves IWM in sense mode
                BCC     @10
*
* See if more steps to do
*
                DEX
                BNE     SENDSTEPS
*
* The current Sony /READY is not valid for 150 microseconds after a
*  step pulse.
*
                LDX     #$4F            ; constant for 150 usec delay
@20		DEX
                BNE     @20
                RTS
                TITLE   '     Recalibrate'   
**************************************************
*                                                *
*  recal                       Seek to track 0   *
*                                                *
*   Input:    drive <- current drive             *
*   Output:   cur_cyl <- 0                       *
*             C <- clr:okay, ow step/sensor err  *
*             X <- drive                         *
*   Destroys: A, X, Y                            *
*                                                *
**************************************************
RECAL           EQU     *
*
* Set the step direction to out
*
                LDA     #DIROUTADR
                JSR     WRITEBIT
*
                LDA     #TK0ADR
                JSR     READ_BIT        ;is is already at trk0?
                BCC     @30             ;yes. so alldone
*
* Send a whole bunch of step pulses
*
                LDX     #RECALTRKS
                JSR     SENDSTEPS
*
* Now wait for /TK0 with timeout
*
                LDX     #RECALTRKS+5    ;head settling = 5 trk seeks
@10             LDA     #TK0WAIT        ;Gonna wait a few ms
                JSR     WAITMS
*
                LDA     #TK0ADR
                JSR     READ_BIT
                BCC     @30             ;=> Saw track 0 
*
                DEX
                BNE     @10
*
* Never saw /TK0
@20             EQU     *
                SEC
@30             EQU     *
                LDX     DRIVE
                STZ     cur_cyl,X
                RTS
                TITLE   '     Low Level Drive Control Routines'        
**************************************************************
*
*  Enable & Sense drive status
* 
*   Input:    drive <- current drive
*   Output:   drv_sts <- b7,b6,b5
*             C <- clr:okay NO dsw or Offline
*             C <- set:either dsw or Offline (or both)
*             X <- drive 
*   Destroys: A, X, Y
*
**************************************************************
		longa	off
		longi	off
		export	enable_sense
Enable_Sense
		ldx	drive
		lda	drv_sts,x
		sta	prior_sts	;save it for offline-online check
		lda	>enable1,x
		lda	select		;activate drive enable1/2
		stz	drv_sts,x	;clear prior bits
		ldy	#03
@10		lda	sensbit-1,y
		jsr	read_bit
		bcc	@20		;status is low
		lda	statbit-1,y	;status is high so set
		ora	drv_sts,x	;this bit 
		sta	drv_sts,x
@20		dey	
		bne 	@10
		lda	#$20
		bit	drv_sts,x	
		sec
		bmi	@30		;dsw is true!
		bvs	@30		;offline is true
		clc			;no error status sensed
@30		rts
		
sensbit		dc.b	mtronadr,dipadr,ejctadr
statbit		dc.b	$20,$40,$80
		
		eject
*****************************************************************
* 
*  WaitRdyTO   Waits for /READY for 1.5 seconds
* 
*****************************************************************
		export	wait_rdy_to
WAIT_RDY_TO
*
* Set up to read the /READY line
*
                LDA     #READYADR
                JSR     READ_BIT        ;Set the control lines
                BCS     @10             ;its not ready on 1st try
@RDY            CLC
                RTS
* Now Poll for /Ready for 1.5 seconds max
@10             LDX     #>1500
                LDY     #<1500
@20             LDA     #01
                JSR     WAITMS          ;waste a 1 ms
                LDA     >L7clr		;and test again
                BPL     @RDY
                DEY
                BNE     @20
                DEX
                BNE     @20
                SEC
                RTS
***********************************************************
*
* MotorOn
*
***********************************************************
		export	motoron
MOTORON
*
* First check if the motor is on already
                LDA     #MTRONADR
                JSR     READ_BIT
                BCC     @90		;Yeah no waiting
*
* It wasn't.  Turn it on now.  Control lines are already set.
                JSR     PULSELSTB
		lda	>L6CLR		;back to rd mode
*
* Have to wait 100 milliseconds before proceeding
		LDA     #STDMUPWAIT     ;100
		JSR     WAIT2MS         ;Wait some time
@90             RTS
***************************************************
*
* SetHead
***************************************************
		export	sethead
SETHEAD
                LDA     >DISKREG         ; get disk/hdsel register
                AND     #$7F            ; mask off head select bit
                BIT     SIDE ; check which side
                BPL     @10		; set head 0
                ORA     #$80            ; else set head 1
@10		STA     >DISKREG         ; set it
                RTS
		eject
**************************************************
*                                                *
*  ReadBit                Control routines for   *
*  WriteBit       reading/writing signals from   *
*                               the SONY drive   *
*                                                *
*                                                *
*   Input:    A <-  X X X X CA1 CA0 SEL CA2      *
*   Regs:     A cleared (ReadBit: IWM status)    *
*             X preserved                        *
*             Y destroyed                        *
*             c = sense bit 1=high  0 = low      *
**************************************************
		export	read_bit
read_bit
*
* Set up the iwm phase 'control' lines
*
                jsr     SDCLINES
*
* Now read the sense line from the IWM into the C flag
* AND leave the IWM in the status sense mode
*
IWM_sense       cmp     >L6SET		;Set L6 
                LDA     >L7CLR		;Read the status
		rol	a		;put bit in carry
                rts
*
********************************************************
*   WriteBit
*
**********************************************************
		export	WriteBit
WRITEBIT
*
* Set up the lines, then 'LSTRB' Acc's lsb over
*
                JSR     SDCLINES
*
PULSELSTB       cmp     >LSTRBSET        ;Raise LSTRB
                cmp     >LSTRBCLR        ;Lower it after 2 micros (twice spec)
                RTS
                eject
***********************************************************
*
* SDCLINES
***********************************************************
SDCLINES
*
* Must set CA0, CA1 before changing HDSEL 1->0
*
                cmp     >CA0CLR		;use CMP long to tag IWM controls
                cmp     >CA1SET		;without disturbing the A reg
                cmp     >LSTRBCLR        ;
*
* Set CA2 per Acc lsb
*
                cmp     >CA2CLR          ;Assume lsb clear
                LSR     A               ;lsb -> C ; Acc has 0XXXX CA1 CA0 SEL
                BCC     @10		;=> We were right
                cmp     >CA2SET          ;We were wrong, set CA2
*
* Deal with SEL setting
*
@10		EQU     *
                LSR     A               ;SEL -> C ; Acc has 00XXXX CA1 CA0
                xba                     ;HOLD    that thought
                LDA     >DISKREG         ;Assume SEL will be 0
                AND     #$7F            ; => I'm just psychic
                BCC     @20		; Luckily HDSEL is lsb
                ORA     #$80            ; set Hdsel to a one
@20		STA     >DISKREG         ; Finally set SEL correctly
                xba                     ;GET     CA0 & CA1 back
*
* Now for CA0, CA1. CA0 is low, CA1 is high,
*  clear them if we were asked to.
*
                LSR     A               ;C has CA0
                BCC     @30		;If 0, nothing to be done
                cmp     >CA0SET          ;Okay, set it
*
@30		LSR     A               ;Get the CA1
                BCS     @40           
                cmp     >CA1CLR          ;Clear it
*
@40		RTS

                TITLE   '     Time Delay Subroutines'          
**************************************************
*                                                *
*  waitms        Wait the specified # millisecs  * 
*                         assuming a 2MHZ clock  *
*                   (accurate to roughly +0.7%)  * 
*                                                *
*  If code straddles pages, it is less accurate  *
*                                                *
*   Input:    A <- milliseconds of delay         *
*   Destroys: A ; msdelayctr                     *
*   Prserves: X, Y                               *
*                                                *
**************************************************
WAIT2MS         EQU     *
                PHA
                JSR     WAITMS
                PLA
*****************
WAITMS          EQU     *               ;Time = Acc * 1.007 millisecs
                STA	msdelayctr	;(4) 
                LDA     >CYAREG		; slow down to 1Mhz
                PHA			;        save old settings
                AND     #$7F		;
                STA     >CYAREG		;

@10		LDA     #102		;(2) loop is 1020 1 Mhz cycles 
*
@20		DEC     A		;(2) waita is 10 cycles
		BNE	@30		;(3)
@30		NOP                     ;(2)     
                BNE     @20		;(3,2) 
*
		DEC	msdelayctr	;(6)
                BNE     @10		;(3,2) 
*
                PLA                     ;        restore cya register
                STA     >CYAREG          ;
                RTS                     ;(6)     

		title	'     Device DSW Status'
*****************************************************************
*
* The following routine issues a status call to a class 2 device
* to check for disk switched.  Class 2 devices indicate disk
* switched through bit 0 of the general status byte returned
* on a device status call.
*
*
* ENTRY:        A Reg = Unspecified
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Unspecified
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 x x x  0
*
* EXIT:         A Reg = Condition code
*               X Reg = Unchanged
*               Y Reg = Unchanged
*               B Reg = Unchanged
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 x x 0  0 if no error
*                       x x 0 0 0 x x 1  0 if error
*
*****************************************************************
		export	c2_dev_stat
c2_dev_stat               
		longa	on
		longi	on

		phx
		phy

		bit	ext_slot
		bmi	@notInternal

		sep	#$30		; 8 bit 'm' & 'x'
		longa	off
		longi	off

		jsr	Enable_Slot6	;save environ & enable the Internal IWM 
;		
		jsr	phases_off	; all IWM phase lines off
*
* REVISION: Driver does its own disk switch sensing and activates the 3.5 drive 
*           timer (unlike SmartPort status which cancels the 3.5 drive timer)
*           thus leaving the drive light on and motor running iff a media read
*           has preceeded this status sense done for a cached read!
*
* NOTE:  It is not necessary to change the IWM mode register to do a Status Sense!
*        A 3.5 drive status sense can be done with the IWM in either 5.25 or 3.5 mode
*        A 3.5 drive status sense can ALSO be done the the IWM timer running!
*
*        if the IWM timer is NOT running the timer must be disabled before the
*        drive enable is DE-activated to prevent the IWM timer from starting!
*
		ldy	#%00000100
		jsr	Iff_set_mode ;prevent IWM timer activation iff its now off
		
		jsr	read_dsw_status	; read disk switched status 
		php
		ldy	#$00
		jsr	Iff_set_mode	;reset IWM mode if Iff its off
		jsr	phases_off
		jsr	Restore_Slot6	;reset slotromsel etc
		plp
		
		rep	#$30		; 16 bit 'm' & 'x'
		longa	on
		longi	on

@25		ldx	#no_error	; assume no disk switched error
		bcc	@30		; if assumed correct

		ldx	#drvr_disk_sw+$100	; else set disk switched error
@30		txa			; restore error code
		ply
		plx
		rts
**********************************************************************
*
*	External Slot Device Status Sense 
*	How the hell do I do this Without disturbing drive?
*
**********************************************************************
@notInternal	
		ldy	#unit_num
		lda	[drvr_dib_ptr],y
		
		sep	#$20
		longa	off
		ora	#$80
		sta	dsw_unit	;phantom unit number for dsw sense
		rep	#$20
		longa	on
		
		lda	<drvr_dev_num
		ldx	#dsw_stat	;make a seemingly invalid status call
		jsl	to_b0_core	;just doit bozo

		lda	dsw_slist
		and	#$0001
		cmp	#$0001
		bra	@25		
		
*****************************************************************
*
* The following routine accesses one of two AppleDisk3.5 drives to
* determine if the media has been switched.
*
* ENTRY:        A Reg = Unspecified
*               X Reg = Unspecified
*               Y Reg = unspecified
*               B Reg = Unspecified
*               D Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*                       x x 1 1 0 x x x  0
*               Drive = (0/1) setup from dib_hw_unit
* ASSUMES:      IWM is switched
*
* EXIT:         A Reg = Unspecified
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Unspecified
*               D Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*                       x x 1 1 0 x x 0  0   No disk switch occured
*                       x x 1 1 0 x x 1  0   Disk switch occured
*
*****************************************************************
		export	read_dsw_status
read_dsw_status				; 
		longa	off
		longi	off
		
		ldx	drive		
		lda	>enable1,x	; select desired drive
		lda	>select		; Activate the drive interface
		lda	#ejctadr
		jsr	read_bit	; was device ejected? (preserves X)
		lda	>L6clr		;   (restore IWM to read mode)
		bcc	@10		; no
		lda	#ejct_reset
		jsr	writebit
		sec
@10		lda	>deselect	;DeActivate, Thus starting drive's Timer
		rts

		eject
*****************************************************************
*
* Save Slot 6 environment and enable internal slot 6 IWM
* Setup the Drive work temp from the DIB hw_unit parm
* 
*
* ENTRY:        A Reg = Unspecified
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Unspecified
*               D Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*                       x x 1 1 0 x x x  0
*
* EXIT:         A Reg = Unspecified
*               X Reg = unchanged
*               Y Reg = unchanged
*               B Reg = unchanged
*               D Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*                       x x 1 1 0 x x x  0 
*
*****************************************************************
		export	enable_slot6
enable_slot6 				;  
		longa	off
		longi	off
		
		ldy	#dib_en_save
		lda	>cyareg
		sta	[drvr_dib_ptr],Y
		and	#%11111011	;disable slot 6 motor on detector
		sta	>cyareg
;
		lda	>sltromsel
		iny
		sta	[drvr_dib_ptr],Y
		and 	#%10111111	;enable internal IWM in slot 6
		sta	>sltromsel
;
		lda	>diskreg
		iny
		sta	[drvr_dib_ptr],Y
		ora	#%01000000
		sta	>diskreg
;
		ldy	#dib_hw_unit
		lda	[drvr_dib_ptr],Y
		dec	a
		sta	drive		;set 0 or 1 into work variable
;	
		rts
		eject
*****************************************************************
*
* Restore Slot 6 environment to the saved values in DIB
* 
*
* ENTRY:        A Reg = Unspecified
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Unspecified
*               D Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*                       x x 1 1 0 x x x  0
*
* EXIT:         A Reg = Unspecified
*               X Reg = unchanged
*               Y Reg = 00
*               B Reg = unchanged
*               D Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*                       x x 1 1 0 x x x  0 
*
*****************************************************************
		export	restore_slot6
restore_slot6 				;  
		longa	off
		longi	off

		ldy	#dib_en_save+2
		lda	[drvr_dib_ptr],Y
		sta	>diskreg
;
		dey
		lda	[drvr_dib_ptr],Y
		sta	>sltromsel
;
		dey		
		lda	[drvr_dib_ptr],Y
		sta	>cyareg
;	
		rts
		
		eject
*****************************************************************
* This routine checks to see if the iwm Timer is off
* If it is then the IWM mode register is set to the Y-reg mode
* Otherwise nothing is done, leaving the timer running
*
* ENTRY:        A Reg = Unspecified
*               X Reg = Unspecified
*               Y Reg = New IWM mode
*               B Reg = Unspecified
*               D Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*                       x x 1 1 0 x x x  0
*
* EXIT:         Y Reg = unchanged
*****************************************************************
		export	Iff_set_mode
		longa	off
		longi	off
Iff_set_mode 				;               
		lda	>L7clr		; besure not in Write mode
		lda	>L6set		; enable status sense mode
		lda	>L7clr		; read status reg 
		and	#$20 		; is the timer running?
		beq	set_iwm_mode	; NO. Thus set mode won't hangup
@10		cmp	>L6clr		; leave IWM in read mode
		rts
		
*****************************************************************
* This routine is used to set the IWM mode register.
*
* ENTRY:        A Reg = Unspecified
*               X Reg = Unspecified
*               Y Reg = New IWM mode
*               P Reg = N V M X D I Z C  E
*                       x x 1 1 0 x x x  0
*
* EXIT:         A Reg = Unspecified
*               X Reg = Unspecified
*               Y Reg = Unchanged
*               P Reg = N V M X D I Z C  E
*                       x x 1 1 0 x x x  0
*
*****************************************************************
		export	set_iwm_mode
		longa	off
		longi	off
set_iwm_mode				;               
		lda	>deselect	; motor must be off
		lda	>l6set		; set up access to status register
@10		lda	>l7clr		; read iwm status reg
		and 	#%00100000	; is enable OFF?
		bne	@10		; wait for access to IWM mode register
		bra	@30
@20				; 
		tya			; attempt to set new mode
		sta	>L7set
@30				; 
		tya			; need new mode
		eor	>L7clr		; does mode need set?
		and	#%00011111	; 5 LSB's are only relevant parameters
		bne	@20		; still need new mode to be set
		lda	>L6clr	; leave IWM in read mode
		rts
		eject
*****************************************************************
*
* This routine turns off all IWM motor phase lines.
*
* ENTRY:        A Reg = Unspecified
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Unspecified
*               D Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*                       x x 1 1 0 x x x  0
*
* EXIT:         A Reg = Unspecified
*               X Reg = #$0060 = Slot * 16
*               Y Reg = Unspecified
*               B Reg = Unspecified
*               D Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*                       x x 1 1 0 x x x  0
*
*****************************************************************
		export	phases_off
phases_off				;               
		longa	off
		longi	off

		lda	>ca0clr	; turn off all phases
		lda	>ca1clr
		lda	>ca2clr
		lda	>lstrbclr
		rts
;-----------------------------------		
		endp

		eject
*****************************************************************
*
* The following routine copies the contents of a block that
* resides in the cache to the buffer specified by the driver
* call.
*
* ENTRY:        A Reg = Unspecified
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Unspecified
*             Dir Reg = GS/OS Direct Page
*               P Reg = 16 bit 'm' & 'x'
*
* EXIT:         A Reg = Unspecified
*               X Reg = Same as entry
*               Y Reg = Unspecified
*               B Reg = Same as entry
*             Dir Reg = GS/OS Direct Page
*               P Reg = 16 bit 'm' & 'x'
*
*****************************************************************
		export	cache_to_buff
cache_to_buff	proc

		pei	<drvr_cach_ptr+2 ; source buffer
		pei	<drvr_cach_ptr
		pei	<drvr_buf_ptr+2	; destination buffer
		pei	<drvr_buf_ptr
		pea	$0000		; transfer count
		pei	<drvr_blk_size
		pea	move_sinc_dinc	; src incr & dest incr
		jsl	move_info	; go do it to it
		rtl

		eject
*****************************************************************
*
* The following routine copies the contents of a block that
* resides in the buffer specified by the driver call to the
* cache.
*
* ENTRY:        A Reg = Unspecified
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Unspecified
*             Dir Reg = GS/OS Direct Page
*               P Reg = 16 bit 'm' & 'x'
*
* EXIT:         A Reg = Unspecified
*               X Reg = Same as entry
*               Y Reg = Unspecified
*               B Reg = Same as entry
*             Dir Reg = GS/OS Direct Page
*               P Reg = 16 bit 'm' & 'x'
*
*****************************************************************
		export	buff_to_cache
buff_to_cache				;               
		pei	<drvr_buf_ptr+2	; source buffer
		pei	<drvr_buf_ptr
		pei	<drvr_cach_ptr+2 ; destination buffer
		pei	<drvr_cach_ptr
		pea	$0000		; transfer count
		pei	<drvr_blk_size
		pea	move_sinc_dinc	; src incr & dest incr
		jsl	move_info	; go do it to it
		rtl

		endp
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/AppleDisk3.5/AD3.5.main b/IIGS.601.SRC/GS.OS/Drivers/AppleDisk3.5/AD3.5.main
new file mode 100644
index 0000000..2206791
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/AppleDisk3.5/AD3.5.main
@@ -0,0 +1 @@
+		eject
*****************************************************************
*
* DRIVER MAIN entry POINT: DISPATCH
*
* This is the main entry point for the device driver.  The
* routine validates the call number prior to dispatching to
* the requested function.
*
* Call Number:  $0000   Function: Startup
*               $0001             Open
*               $0002             Read
*               $0003             Write
*               $0004             Close
*               $0005             Status
*               $0006             Control
*               $0007             Flush
*               $0008             Shutdown
*               $0009-$FFFF       Reserved
*
* ENTRY: Call via 'JSL'
*     [<drvr_dib_ptr] = Points to the DIB for the device being accessed
*       <drvr_dev_num = Device number of device being accessed
*      <drvr_call_num = Call number
*               A Reg = Call Number
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 0 x x  0
*
* EXIT:   Direct page = unchanged with the exception of <drvr_tran_cnt
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 0 x 0  0   No error occured
*                       x x 0 0 0 0 x 1  0   Error occured
*
*****************************************************************
		export	dispatch	
dispatch	proc	
					;using   driver_data
		longa	on
		longi	on

		phb			; save environment
		phk
		plb
		cmp	#max_command	; is it a legal command?
		bge	illegal_req	; no
		ldx	#$0000
save_parms				; 
		lda	<drvr_dev_num,x	; save GS/OS call parameters
		pha
		lda	<drvr_blk_num,x
		pha
		inx
		inx
		cpx	#$000C		; up to but not including DRVR_TRAN_CNT
		bne	save_parms

		lda	<drvr_call_num	; is this a startup call?
		beq	continue	; yes
		
		ldy	#slot_num	;set the int_slot flag
		lda	[<drvr_dib_ptr],y
		and	#%1000		; 
		beq	@10		; 0 for internal slot 5
		lda	#-1		;-1 for external slot N
@10		sta	ext_slot	;record if this call's slot is external

		jsr	check_access	; did external access occur?
		bcc	continue	; no
		jsl	set_disksw	; mark the VCRs and flush cache
		jsr	set_hook	; reinstall our patches

continue				; 
		lda	<drvr_call_num	; restore command #
		pea	func_ret-1	; return address from function
		asl	a		; make index to dispatch table
		tax
		lda	|dispatch_table,x
		pha			; push function address for dispatch
		rts			; rts dispatches to function
*
* Must clear the access flag on the way out so that any direct
* access to an AppleDisk3.5 drive can be detected.
*
func_ret				; 
		php
		pha				; save error code
		bcc	@80			;no error
		cmp	#drvr_disk_sw+$100	;returning with pseudo disk_sw from Fixup?
		bne	@10
		pla
		pea	#drvr_disk_sw		;convert pseudo to read dsw
		bra	@80
@10		cmp	#drvr_disk_sw		;is this a REAL disk switched ERROR ?
		bne	@80			;no.
* when firmware gives a disk_sw then go try to get blk count		
		jsr	Fixup_blkcnt		;go try to get a new blockcount in DIB
		
@80		ldy	#dib_acc_flag
		lda	#00
		sta	[<drvr_dib_ptr],y	;clear the access flag
		ply				; this is the error code
		plp

		ldx	#$000A		; number of words to restore
restore_parms	
		pla			; restore GS/OS call parameters
		sta	<drvr_blk_num,x
		pla
		sta	<drvr_dev_num,x
		dex
		dex
		bpl	restore_parms
		plb
		bcs	gen_exit	; force error code 0 if flag cleared
		ldy	#no_error
gen_exit				; 
		tya			; restore error code
		rtl
*
* Received an illegal request.  Return with an error.
*
illegal_req				; 
		plb			; restore environement
		lda	#drvr_bad_req	; set error
		sec
		rtl

		eject
*****************************************************************
*
* CHECK_ACCESS
*
* This routine is called by various driver functions to determine
* if an invalid external access has occured.
*
* ENTRY: Call via 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 0 x x  0
*
* EXIT: via an 'RTS'
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 0 x 0  0   No error occured
*                       x x 0 0 0 0 x 1  0   Error occured
*
*****************************************************************
		export	check_access
check_access				;               
		longa	on
		longi	on
		phy
		clc
		ldy	#dib_acc_flag		; determine if this unit was accessed
		lda	[<drvr_dib_ptr],y
		beq	check_done		; if no direct access ocurred

		lda	#drvr_disk_sw+$100		; then return a disk switch error
		sec
check_done	ply
		rts
		endp
		eject
*****************************************************************
*
* DRIVER CALL:  STARTUP
*
* This routine must prepare the driver to accept all other driver
* calls.
*
* ENTRY: Call via 'JSR'
*     [<drvr_dib_ptr] = Points to the DIB for the device being accessed
*       <drvr_dev_num = Device number of device being accessed
*      <drvr_call_num = Call number
*      <drvr_tran_cnt = $00000000
*               A Reg = Call Number
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as program bank
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 0 x x  0
*
* EXIT: via an 'RTS'
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 0 x 0  0   No error occured
*                       x x 0 0 0 0 x 1  0   Error occured
*
*****************************************************************
		longa	on
		longi	on

		export	startup		
startup		proc
		php
*
* Check ROM version number.
		lda	#$0000
		pha			; space for result
		pha
		pha
		pha
		pha			; A Reg on call
		pha			; X Reg on call
		pha			; Y Reg on call
		pea	$FE1F		; call monitor id routine
		_fwentry
		ply
		plx
		pla
		pla
		plp
		sty	|rom_version	; save version for conditional patches
*****
		
		lda	last_drive
		lda	slot_count
		lda	last_slot	;last_slot must be zeroed by ShutDown!
		beq	@1stTime
		bpl	@scanSlots
		brl	no_drive_exit	;negative last_slot mean I tried em all
@1stTime	lda	#05		;start with Internal slot 5
		sta	last_slot
		stz	last_drive
		stz	device_count
		stz	slot_count
		lda	#' A'
		sta	name_char	;start device names at ...A
*
*  copy the code to bank 1 on the assumption Internal S5 in use
		jsr	copy_to_bank1
@scanSlots	
*
* setup Y with contents of slots reg
		sep	#$20		; 8 bit 'm'
		longa	off
		lda	>sltromsel	; need slot internal/external
		sta	SlotsReg
		rep	#$20		; 16 bit 'm'
		longa	on
		
		inc	last_drive	;= 1,2,3
		lda	last_drive
		cmp	#0002		;is this 1st drive for a slot?
		bcc	@chkSlot	;< must be a 1
		beq	do_2nd_drive	;already checkd the slot 
		lda	#0001		
		sta	last_drive	;back to drive 1 for next slot
		jsr	nextSlot	;move last_slot to next candidate
*
* now check the for internal vs external tests
@chkSlot	lda	last_slot
		bit	#%1000
		bne	check_extslots
*
* now check for Slot 5 set to internal! (since slot 5 is the only internal one)
		lda	SlotsReg	; bug fix 09/24/91 JOA
		and	#$0020		; is slot 5 set for external?
		bne	@do_S5_ext	; yes!. so go see if its a SmartPort card
*
* The following 3 lines were added in version 4.1a02. (locks out ROM 0, I think)
		lda	>$00C5FB	; is extended supported by this ROM?
		and	#$0080
		bne	do_a_Slot	; require GS ROM with Extended SmartPort Firmware
		
@do_S5_ext	lda	#0005+8		;switch to slot 5 external
		sta	last_slot
check_extslots	jsr	is_XSP_slot	;is this a slot with Extended & Addnl SmartPort
		beq	do_a_slot	;yep.

next_Slot	jsr	nextslot	;move last_slot to the next possible one
		bpl	check_extslots	;more slots to check

no_drive_exit	lda	#drvr_no_dev	;assume I found at least 1 slot to use
		ldx	slot_count	;did I find anything?
		bne	@exit		;yep
*
* Either this is ROM 00 or this system has zero 3.5 drives
		lda	#drvr_io_error	;cause the entire Driver to be removed!
@exit		sec
		rts
*
* Need to determine if any AppleDisk3.5 devices are connected to
* the slot's controller.  Get number of devices and walk its chain.
do_a_slot	stz	slot_units	;assmue no units attached to controller card
		stz	unit0_slist	;zero the slot's unit count
		stz	unit0_slist+2	;zero the vendor ID too
		sep	#$20		; 8-bit m
		longa	off
		stz	dib_unit	;zero dib_unit.b
		rep	#$20		; 16-bit m
		longa	on
		jsr	Fillin_dib	;fillin the dib stuff for Unit0 Status call

*
* Get device count by making Unit Zero status call
		lda	<drvr_dev_num
		ldx	#unit0_stat
		jsl	to_b0_core	;returns error code in A
		bcc	@10
		rts
@10		lda	|unit0_slist	; any devices in this slot?
		and	#$007F		;(16-bit fetch above of 8 bit item)
		beq	next_slot	; no. see if any other slots have SP firmware
		sta	slot_units
		inc	slot_count	; cnt number of slots with SmartPort
		lda	slot_count
		cmp	#05		;have I found 4 slots of SmartPorts?
		bcs	no_drive_exit	;how'd I get more than 8 dib startup calls?!??		
		bra	do_a_drive
do_2nd_drive	jsr	Fillin_dib	;fillin the dib stuff for Smartport calls
*
* Devices are connected to the SmartPort device chain.  Find the
* first 3.5 drive starting with the next unit number and continue
* unitl the end of the chain if neccessary.
do_a_drive:
		inc	dib_unit	; next SmartPort Unit to check (16-bit INC of 8 bit item!!)
		lda	dib_unit	; is unit # valid? (16-bit fetch of 8 bit item!)
		and	#$007F		; drop the extra byte
		cmp	slot_units	;have I scanned all the units yet?
		bcc	call_ok		; no.
		beq	call_ok		; no.
		lda	last_drive	; yes. 
		cmp	#0001		;still looking for 1st drive in this slot?
		bne	no_drive_exit	; 1st unit (drive) found for previous dib startup
		dec	slot_count	; un count this slot since no AD35 drives found
		bra	next_Slot	; this slot doesn't have any AD3.5 drives!
*		
call_ok		
		lda	<drvr_dev_num	; make dib status call to see if 
		ldx	#dib_stat	; this unit is an AD3.5 or SuperDrive
		stz	sp_type		; trash previous device type result
		jsl	to_b0_core
		bcs	do_a_drive	; check next unit if error
		lda	sp_type		; is type/subtype appledisk3.5
		and	#$FEFF		; ignore additional cmds bit of SuperDrive
		cmp	#$C001
		bne	do_a_drive	; if not AD3.5 or FDHD then check next unit
		
		lda	sp_type+1
		lsr	a		;C = 1 if FDHD
		lda	#0003		;assume AppleDisk3.5 drive
		bcc	@10
		lda	#$0017		;FDHD ID number
@10		ldy	#dev_id_num
		sta	[drvr_dib_ptr],y ;mark the dib with proper Device ID number
		lda	dib_slist	;get general status byte (16-bit fetch of 8 bit item)
		and	#%10111		;save all the status bits
		ldy	#dib_last_sts
		sta	[drvr_dib_ptr],y	; initialize last-sts in DIB
		cmp	#$0010		;c = 1 if Online media so block count is real
		lda	dib_blkcnt
		bcs	@11
		lda	#0000		;zero blocks if Offline
@11		ldy	#blk_cnt
		sta	[drvr_dib_ptr],y ;init the blockcount in dib
		lda	dib_blkcnt+2
		bcs	@12
		lda	#0000		;zero blocks if Offline
@12		iny
		iny
		sta	[drvr_dib_ptr],y ;init the blockcount in dib
@blksNotknown	jsr	Fillin_Unit	;put SmartPort unit# into my DIB

		lda	last_slot
		and	#%1000		;internal slot?
		beq	@20		;no. so make flag zero
		lda	#-1		;-1 = External Mustang card
@20		sta	ext_slot	;set slot type for set_hook and set_extaccess

		jsr	set_extaccess	;download external access detector code
		bcs	@err
					
		lda	last_drive	
		cmp	#0001		;1st drive for this slot ?
		clc			;clear carry for dispatch
		bne	@30
*
* The rom version requires the driver and slot 5 is set internal.
* and this is the first drive  SOOO
* Let's install the MERGIT patch before passing control to the
* generated driver core routines in order to finish the startup
* sequence which includes setting the default interleave to 2:1.
		jsr	set_hook	;only need to do this once per slot (after unit 1)
		bcs	@30		;might get an error! 
*
* Now set default options and interleave to 2:1.
		lda	#0000		;internal call to set "defaults"
		jsr	set_option	;just in case last fmt was 400K or something stupid
		
@30		bcs	@err

		inc	device_count	; cnt number of appledisk3.5's online
*** added 3-Jun-92 DAL -- Don't rebuild device names on a warm start
		lda	>warm_cold_flag	;nonzero = warm startup
		bne	@noBuildName
*** end 3-Jun-92
		ldy	#dev_name
		lda	[drvr_dib_ptr],y ;
		and	#$003F
		clc
		adc	#dev_name
		tay
		lda	name_char
		sta	[drvr_dib_ptr],y
		inc	name_char		;count to next letter for next device 
@noBuildName	lda	#no_error
		clc
@err		rts

**********************************************************************
*	Is_XSP_slot:
*
*	Entry:	m = 1, x = 1
*		y = sltromsel register
*
*	Exit:	m = 1, x= 1
*		EQ if it is
*		NE if it aint (either slot is internal or no SP firmware
*
*  Preserves: 	Y	Uses A,X
*
**********************************************************************
		longa	on
		longi	on
Is_XSP_slot:	lda	last_slot
		and	#0007
		asl	a		;slot * 2
		tax
		lda	SlotsReg	
		and	slotreg_bit-2,x	;is this slot set to external?
		beq	@notxSlot	;nope. so don't check any further
		txa
		lsr	a
		ora	#$00C0
		xba			;A = $Cs00
		tax			;X = $Cs00

		longa	off
		sep	#$20

		lda	>1,x		
		cmp	#$20		;$Cs01 = $20?
		bne	@nextSlot	;nope
		lda	>3,x
		bne	@nextSlot	;$Cs03 != $00
		lda	>5,x
		cmp	#$03		;$Cs05 = $03?
		bne	@nextSlot
		lda	>7,x
		bne	@nextSlot	;$Cs07 = $00
		lda	>$FB,x		;get smartport ID byte
		cmp	#$C0		;have extended and additionals?
@nextSlot	
		longa	on
		rep	#$20
		rts
		
@notxSlot	txa			;set NE 
		rts
		
slotreg_bit	dc.w	$0002		;slot 1 slotreg ext bit
		dc.w	$0004		;slot 2 slotreg ext bit
		dc.w	$0000
		dc.w	$0010		;slot 4 slotreg ext bit
		dc.w	$0020		;slot 5 slotreg ext bit
		dc.w	$0040		;slot 6 slotreg ext bit
		dc.w	$0080		;slot 7 slotreg ext bit

**********************************************************************
* FillinDibStuff
*               Entry:
*                       m=1, x=1
*
*               Exit:
*                       m=1, x=1
*
**********************************************************************
Fillin_dib:
		lda	last_slot
		ldy	#slot_num
		sta	[drvr_dib_ptr],y
		lda	last_drive
		ldy	#dib_hw_unit
		sta	[drvr_dib_ptr],y
		ldy	#dib_acc_flag
		lda	#00
		sta	[drvr_dib_ptr],y	;clear the access flag
Fillin_Unit	lda	dib_unit	;16-bit fetch of 8-bit item!!!
		and	#$7F
		ldy	#unit_num
		sta	[drvr_dib_ptr],y
		rts
**********************************************************************
* NextSlot:	calculates next slot number
*
*	creates slot scan in the following order:
*	5int,5ext,7ext,6ext,4ext,2ext,1ext
*
**********************************************************************
NextSlot:	
		lda	last_slot
		bmi	@10
		asl	a
		tax
		lda	scanordermap-10,x
		sta	last_slot
@10		rts
		
scanordermap	dc.w	$D		;5 -> $D
		dc.w	-1
		dc.w	-1
		dc.w	-1
		dc.w	-1		;$9 -> -1
		dc.w	9		;$A -> $9
		dc.w	-1
		dc.w	$A		;$C -> $A
		dc.w	$F		;$D -> $F
		dc.w	$C		;$E -> $C	
		dc.w	$E		;$F -> $E

*****************************************************************
*	Copy to bank1 the Direct Read routine for multi-blk read
*
*               Entry:	no regs defined
*
*               Exit:	no regs defined
*
*****************************************************************
		export	copy_to_bank1
copy_to_bank1
		longa	on
		longi	on
		ldx	bank1_lgth
		longa	off
		SEP	#$20
@loop		lda	bank1_code,X
		sta	>bank1_org,X
		dex
		bpl	@loop
		longa	on
		REP	#$20
		rts

*****************************************************************
* Merge data from read into a contiguous block.
*
*               Entry:
*                       m=1, x=1
*                       c = 0 successful data read
*                       c = 1 go retry read of data block
*
*               Exit:
*                       m=1, x=1
*                       X = low byte of number of data bytes read
*                       Y = high byte of number of data bytes read
*****************************************************************
		export	new_merge_it
		longa	off
		longi	off
new_merge_it				;               
		pla			; get return address off stack
		pla

		bcc	data_read_ok	; if error during read_data try again
		jmp	>try_more	; otherwise give data to caller

data_read_ok				; 
		php			; Native m=1, x=1 (from disk3.5 rom)

		longa	off		;
		longi	on		;
		sep	#$20		;
		rep	#$10		;

		ldx	#$0001		;
		ldy	#511		; assume non-mac 512 byte blk
		lda	|mac_flag	; check for mac read or write
		beq	mgit2		;
		ldy	#523		; If Mac call move 524 bytes
		bra	mgit2		; 512 or 524 bytes not 513 or 525
mgit1					; 
		lda	|buf3,x
		sta	[<cmdbuffl],y
		dey			; 255->256 xtion happens here
		bmi	exit_merge	;
mgit2					; 
		lda	|buf2,x
		sta	[<cmdbuffl],y
		dey			; 511->512 transition occurs here
		bmi	exit_merge	;
mgit3					; 
		lda	|buf1,x
		sta	[<cmdbuffl],y
		inx			; point to next possible byte
		dey			; move destination index
		bpl	mgit1		;
exit_merge				; 
		inx			; form accurate byte count

		longa	on		; m=0, x=0
		longi	on		;
		rep	#$30		;

		txa			; byte count
		plp			; restore processor state

		longa	off		;
		longi	off		;

		tax			; x = low byte of byte count
		xba			;
		tay			; y = high byte of byte count
		jmp	>sbset		; all done here go back to the rom
		eject
*****************************************************************
*
*               This module will install return addresses
*               on the stack which will allow us to call routines
*               in the bank $FF rom for the Disk 3.5 driver and
*               return back to us when done.
*
*               The routine pushes a 24 bit return address to the
*               new Merge_it, pushes a 16 bit address to a rtl
*               instruction in bank $FF.
*               When a call is made to the ReadData routine in the
*               3.5" disk driver control will be passed here. This
*               routine pushes the 24 bit address of the new_merge_it
*               code, pushes the return address to a RTL instruction
*               in bank $FF and then jumps to the read_data routine
*               in the rom.
*                       When the read_data routine completes, it does
*               an RTS to the RTL instruction which will return to the
*               new merge_it code.  Merge it in turn will pass control
*               back to the rom when it completes.
*
*               Entry:
*                       m=1, x=1
*                       Data bank = $E1
*
*
*               Exit:
*                       m=1, x=1
*                       Data bank = $E1
*                       A = trashed
*
*                       Stack layout
*                       +-----------+ --------
*                       |   Bank    |
*                       +-----------+
*                       |   High    |   Address of new_merge_it
*                       +-----------+
*                       |    Low    |
*                       +-----------+ --------
*                       |   High    |
*                       +-----------+   Address to RTL inst. in bank $FF
*                       |    Low    |
*                       +-----------+ --------
*               SP >--> |    ???    |
*                       +-----------+
*
*****************************************************************
		export	merge_patch
merge_patch				;               
		longa	off
		longi	off

		pla			; remove old 'RTL' - 1/9/89 RBM
		pla
		pla
		
		phk			; push long return address
		pea	new_merge_it-1	; of new merge_it routine
		pea	rtl_addr-1	; push return addr to rtl
		jmp	>read_data	; call the rom read data routine

		eject
*****************************************************************
*
*               This module will modify the read_data hook for
*               the AppleDisk 3.5 driver to point to a ram based
*               patch which contains a modified Merge it routine.
*
* Entry: via a 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = $0000
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 0 x x  0
*
* EXIT: via an 'RTS'
*               A Reg = Unchanged
*               X Reg = Unchanged
*               Y Reg = Unchanged
*             Dir Reg = Unchanged
*               B Reg = Unchanged
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 0 x x  0
*
*
*****************************************************************
		export	set_hook
set_hook				;               
		longa	on
		longi	on

*
* Set unit number for hook installation.
*
		clc
		bit	ext_slot
		bmi	@doNothing	;
		
		sep	#$20		; 8 bit 'm'
		longa	off

		ldy	#unit_num
		lda	[<drvr_dib_ptr],y
		sta	|sethook_unit
		lda	#$02		; hook refernece is for read data
		sta	|hook_ref

		rep	#$20		; 16 bit 'm'
		longa	on
*
* Install the merge patch so that the drive can operate at 2:1 interleave.
* This patch is only installed on old roms.
*
		lda	|rom_version	; should merge patch be installed?
		cmp	#$0002
		bge	@no_merge
		lda	#merge_patch	;point to the new merge it code
		sta	|hook_addr
		lda	#merge_patch>>8
		sta	|hook_addr+1
		lda	<drvr_dev_num	; device number to read
		ldx	#sethook_list
		jsl	to_b0_core
*
* Install the patch to detect direct firmware access.
*		
@no_merge
		sep	#$20		; 8 bit 'm'
		longa	off

		lda	#$08		; hook reference number is for main vector
		sta	|hook_ref

		rep	#$20		; 16 bit 'm'
		longa	on

		lda	#access_detect	;point at external access detection
		sta	|hook_addr
		lda	#access_detect>>8
		sta	|hook_addr+1
		lda	<drvr_dev_num	; device number to read
		ldx	#sethook_list
		jsl	to_b0_core
@doNothing	rts

**********************************************************************
*
*	Download code for the access detector in UCIC card "ROM"
*
**********************************************************************
		export	set_extaccess
		longa	on
		longi	on
set_extaccess	clc
		bit	ext_slot
		bpl	@exit

		ldy	#unit_num
		lda	[drvr_dib_ptr],y	;get SmartPort Unit #

		sep	#$20		; 8 bit 'm'
		longa	off
		sta	setAdrs_unit
		sta	dnLoad_unit
		rep	#$20		; 16 bit 'm'
		longa	on

		asl	a
		tax
		lda	dwnldAdrs-2,x
		sta	setAdrs_addr		;fill in the adrs for this unit

		lda	<drvr_dev_num	; device number to read
		ldx	#setAdrs_list
		jsl	to_b0_core
		bcs	@exit
*
* now fill in the address of this dib's access flag for the detector routine
		lda	<drvr_dib_ptr		;get low word of dib adrs
		clc
		adc	#dib_acc_flag
		sta	dibXflag_adrs+1		;+1 to skip the opcode
* the bank adrs should have been relocated properly when I was loaded
		
		lda	<drvr_dev_num	; device number to read
		ldx	#dnLoad_list
		jsl	to_b0_core	;download the 7 bytes to the card's "ROM"

@exit		rts

		entry	dwnldAdrs
dwnldAdrs	dc.w	$0B80
		dc.w	$0BA0
		dc.w	$0BC0
		dc.w	$0BE0
		
*****************************************************************
* ACCESS_DETECT
*
* ENTRY: Call via 'JSL'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = $0000
*               B Reg = Undefined
*               P Reg = x x 1 1 0 0 x x  0
* EXIT: via an 'RTL'
*               A Reg = Unchanged
*               X Reg = Unchanged
*               Y Reg = Unchanged
*             Dir Reg = Unchanged
*               B Reg = Unchanged
*               P Reg = x x 1 1 0 0 x x  0
*
*  Called from IIgs SmartPort dispatcher firmware 
*  in 8 bit native mode
*****************************************************************
		export	access_detect
		longa	off
		longi	off
access_detect	php			;save status before changing it
		pha
		lda	>cmdid		; get internal firmware unit #
		cmp	>id1		; is it the same as drive #1?
		bne	@10
		lda	#$FF
		sta	>dib1acc_flag	;set dib1 access flag
		bra	@20		;all done
@10		cmp	>id2
		bne	@20
		lda	#$FF
		sta	>dib2acc_flag	;set dib2 access flag
@20		pla			;restore 8bit A
		plp			;restore status
		rtl

* Switched OFF since time for testing this is not available
	if 0	then
**********************************************************************
*
*	Download code for the 800K drive formatter HD media checker
*
**********************************************************************
		export	set_extHDchk
		longa	on
		longi	on
set_extHDchk	clc
		bit	ext_slot
		bpl	@exit

		ldy	#unit_num
		lda	[drvr_dib_ptr],y	;get SmartPort Unit #

		sep	#$20			; 8 bit 'm'
		longa	off
		sta	setAdrs_unit
		sta	dnLd_unit
		rep	#$20			; 16 bit 'm'
		longa	on

		lda	#HDChk_Org
		sta	setAdrs_addr		;fill in the adrs for this unit

		lda	<drvr_dev_num		; device number to read
		ldx	#setAdrs_list
		jsl	to_b0_core
		bcs	@exit
*
* the bank adrs should have been relocated properly when I was loaded
		lda	#<MediaChk
		sta	dnLd_dataPtr
		
		lda	<drvr_dev_num		; device number to read
		ldx	#dnLd_list
		jsl	to_b0_core		;download the patch to Format cmd 

@exit		rts
		endif
* end of PROC
		endp

* Switched Off since time for testing this is not available
	if 0	then
MediaChk	PROC	ENTRY,TEMPORG HDChk_Org-2
**********************************************************************
* Check HD media
*
* Attempt to determine if media is reliable in innner tracks
*
**********************************************************************
* Make a jump table in ROM so these routine can be accessed without
* this code having to know their locations in the rom
j_U35MtrON	equ	$D100
j_Recal		equ	$D103
j_Seek		equ	$D106
j_WaitRdyTO	equ	$D109
j_rdmode	equ	$D10C
j_DoEject	equ	$D10F
m_q6l		equ	$0A0C
m_q6h		equ	$0A0D
m_q7l		equ	$0A0E
m_q7h		equ	$0A0F

start:
		dc.w	endCode-start
		jsr	j_U35MtrOn	;turn unified motor on

		jsr	j_Recal		;start in the right place
		bcs	@exit		;can't recal ??

		
		lda	#75
		sta	cyl
		jsr	j_Seek		;seek inner track

		jsr	j_WaitRdyTO	;wait until motor up to	speed
		bcc	@rdy		;Never Ready??
@exit		clc
		rts
		
@rdy		jsr	j_rdmode
		
@writetst	ldx	#00
		ldy	#6600/256
		iny
		lda	#$D8		;has 1 XL 8us long transition
		bit	m_q6h
		sta	m_q7H
@TrkFill	bit	m_q6l
		bpl	*-3
		sta	m_q6h		;writ nth byte
		dex
		bne	@TrkFill
		dey
		bne	@TrkFill
		bit	m_q7l		;turn write gate off
		bit	m_q6l		;back to read mode

		ldx	#103
@wait600us	phx
		plx
		DEX
		bne	@wait600us
		
		ldx	#00
@clrem		stz	$400,x
		inx
		bne	@clrem

		jsr	j_rdmode
		
		lda	#$10
		sta	temp
		ldy	#00
@readback	lda	m_q6l
		bpl	@readback
		and	#$7F		
		tax
		inc	$0400,x
		bne	@nxt
		inc	$0480,x
@nxt
		dey
		bne	@readback
		dec	temp
		bne	@readback

		ldx	$00
@scantbl	lda	$0400,x
		ora	$0480,x
		beq	@nxtx
		lda	$0400,x
		sta	$0500,x
		lda	$0480,x
		sta	$0580,x
@nxtx		inx
		bpl	@scantbl
		
		lda	$04D8		;copy hi byte of $D8 count
		sta	$0501
		lda	$0458		;     lo byte of $D8 count
		clc
		adc	$0446		;add lo byte of $C6 count
		sta	$0500
		lda	$04C6
		adc	$0501
		sta	$0501		;add hi byte of $C6 count
		
		lda	$0431		
		clc
		adc	$0500
		sta	$0500
		lda	$04B1
		adc	$0501
		sta	$0501
		
		lda	$040D		
		clc
		adc	$0500
		sta	$0500
		lda	$048D
		adc	$0501
		sta	$0501		;$500.501 = count of "correct" readback's

		stz	$0502
		stz	$0503
		ldx	#00
@sumloop	cpx	#$58
		beq	@skipV
		cpx	#$0D
		beq	@skipV
		cpx	#$46
		beq	@skipV
		cpx	#$31
		beq	@skipV
		lda	$0400,x
		ora	$0480,x
		beq	@skipV		;don't add in zeros
		lda	$0400,x
		beq	@addit		;low = 00 but hi is not
		cmp	#$01
		bne	@addit		;low != 01 so do it
		lda	$0480,x		; if hi = $00
		beq	@skipV		;any count of $0001 is ignored
@addit		lda	$0400,x
		clc
		adc	$0502
		sta	$0502
		lda	$0480,x
		adc	$0503
		sta	$0503
@skipV		inx
		bpl	@sumloop
*
* Now $500.501 = count of "correct" readbacks'
* and $502.503 = count of "bad" readbacks
*
* Now if the ratio of bad > good/32 (ie if Bad > 3.125 % of good )
* the media is almost certainly HD media instead of DD media
		lda	$0500
		sta	$0504
		lda	$0501
		lsr	a
		ror	$0504
		lsr	a
		ror	$0504
		lsr	a
		ror	$0504
		lsr	a
		ror	$0504
		lsr	a
		ror	$0504
		sta	$0505
		
		ldx	drive
		lda	$0502		;if "bad" count 
		cmp	$0504		; >= good count / 32
		lda	$0503
		sbc	$0505
		bcc	@ok
		jsr	j_DoEject
		sec
@ok		rts
endCode:
		endp
	endif
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/AppleDisk3.5/AD3.5.read b/IIGS.601.SRC/GS.OS/Drivers/AppleDisk3.5/AD3.5.read
new file mode 100644
index 0000000..55e9666
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/AppleDisk3.5/AD3.5.read
@@ -0,0 +1 @@
+		eject
		TITLE	'      READ command'
*****************************************************************
*
* DRIVER CALL:  READ
*
* This call executes a read from the device.  Block devices must
* validate the initial block number and that the request count is
* an integral multiple of the block size.  In addition the block
* number of each successive block must be validated as it is
* accessed when an multiple block I/O transaction is in place.
*
* ENTRY: via a 'JSR'
*       <drvr_dev_num = Device Number of current device being accessed
*       <drvr_buf_ptr = Pointer to I/O buffer
*       <drvr_blk_num = Initial block number
*       <drvr_req_cnt = Number of bytes to be transferred
*      <drvr_blk_size = Size of block to be accessed
*      <drvr_tran_cnt = $00000000
*               A Reg = Call Number
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 0 x x  0
*
* EXIT: via an 'RTS'
*      <drvr_tran_cnt = Number of bytes transferred
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 0 x 0  0  if no error
*                       x x 0 0 0 0 x 1  0  if error
*
*****************************************************************
		export	read		
read		proc
		import	Direct_Read	;import the entry point
DNIBTAB		EQU	$01BC00		;addres of page with dnibtab
		longa	on
		longi	on

		jsr	check_access	; did direct access occur?
		bcs	read_exit	; yes
		
		lda	drvr_req_cnt+2
		ora	drvr_req_cnt	;req count zero? (A = no_error)
		clc
		beq	read_exit

		lda	<drvr_blk_size	; validate the current block size
		cmp	#$0200
		beq	chk_multi
		cmp	#$020C
		beq	chk_multiple
bad_parm
		lda	#drvr_bad_parm	; invalid block size
		sec
		rts
*
* Now call Int Math Toolset to do req_cnt DIV 524
*
chk_multiple
		ldx	<drvr_req_cnt+2	
		bmi	bad_parm	;I don't do negative request counts for 524
		lda	#0
		pha
		pha
		pha
		pha
		phx
		pei	<drvr_req_cnt
		pea	0000
		pei	<drvr_blk_size
		_LongDivide		;call int math for the remainder
		pla			;discard quot
		pla
		pla			;get remainder
		ora	1,s		;get hi & lo word together in A
		plx
		tax			;is remainder zero?
		beq	do_read		; can't be 1:1 candidate if mac read
bad_count	lda	#drvr_bad_count	; invalid byte count
		sec
read_exit	rts
*
* Now see if this is a multi-block read candidate
chk_multi	lda	<drvr_req_cnt
		and	#$01FF
		bne	bad_count	;insist req_cnt is divisible by 512
		inc	total_reads	;count all the 512 byte reads
		bne	@10
		inc	total_reads+2
@10		
	if NOT Version6x then
		bit	ext_slot	;is slot external?
		bpl	@internal
		brl	do_read		;later this will do special multi-blk stuff
@internal	
	endif
		lda	drvr_req_cnt+1	; Is this a multi-block read of at least 
		cmp	#512*5/256	; half of the smallest 800K floppy track+1 sect?
		bcc	do_read		;NO. too small for multi-track
		inc	total_multiblk	;count all the multiblk candidates
		bne	@20
		inc	total_multiblk+2
@20		lda	<drvr_cache	; caching requested

		beq	multi_blkrd	; NO. so do it mmmyyyyy waaaaayy@#$!eek

		inc	total_multidisq	; count the ones disqualified for cache/dsw/etc
		bne	@30
		inc	total_multidisq+2
@30		
		eject
**********************************************************************
*
* The following routine is executed for read calls
* directed toward class 2 block devices.
*
**********************************************************************
do_read					; 
		bit	<drvr_fst_num	; force device access
		bmi	@dev_acc
		clc			; specify block search
		jsl	cache_find_blk	; is the block in the cache?
		bcs	@not_cached	; no, may want to cache it though.
		jsl	cache_to_buff	; yes, read block from cache to buffer
		jsr	c2_dev_stat	; check for disk switched error
		bcs	@error
@no_purge				; 
*
* Block has been read.  Need to adjust the block address
* and buffer pointer in preperation for the next read if
* a multiple block transaction is in process.  If the
* request count has been satisfied, no further action is required.
*
		jsr	next_blk_ptr	; prepare for next block & test if more
		bcc	do_read		; more blocks to read
		clc			; all done with no errors
		lda	#no_error
@error		rts
*
* If block is not in cache or volume ID is zero, must force
* access to the device to read the block.
*
@dev_acc				; 
		jsr	do_sp_readblk	; execute device read
		bcs	@error		; if error from device
		bra	@no_purge	; and continue with transaction
*
* If block is not cached, action depends on the cache enable in the
* current call.  If the cache enable is zero then must force access
* to the device.  If cache enable is nonzero, a request for a block
* for caching must be made of the cache manager.  If no block is granted,
* then must force access to the device while reading only to the buffer.
* if the block is granted, the block is read from the device to the buffer
* and then transferred from the buffer to the cache.
*
@not_cached				; 
		lda	<drvr_cache	; is the cache enable OFF?
		beq	@dev_acc	; yes, read but don't do caching
		jsr	do_sp_readblk	; execute device read
		bcs	@error		; if error from device
		jsl	cache_add_blk	; request a block for caching
		bcs	@no_cache
		jsl	buff_to_cache	; copy data to the cache
@no_cache				; 
		bra	@no_purge	; and continue with transaction
		eject
;----------------------------------------
; exit paths from multi-blkrd back to 
; the original code to handle errors
;----------------------------------------
count_error	REP	#$30
		inc	total_multifail
		bne	force_error
		inc	total_multifail+2
		longa	off
		longi	off
force_error	SEP	#$30
		lda	>deselect	;deactivate drive enable and start timer
		jsr	phases_off
		jsr	restore_slot6
do_error	REP	#$30
		longa	on
		longi	on
		stz	drvr_tran_cnt
		stz	drvr_tran_cnt+2	;incase Direct_read was called
		bra	do_read		; do it the hard way for some reason
		eject
****************************************************************
*
*   An UNcached read request of at least 5 blocks
*
****************************************************************
		export	multi_blkrd
multi_blkrd	
		ldy	#dib_last_sts	;was media offline last time?
		lda	[drvr_dib_ptr],y
		and	#%10000		
		beq	@doStatus	;offline so do Status to get blockcount
		ldy	#blk_cnt
		lda	[drvr_dib_ptr],y
		bne	@doRead
@doStatus	jsr	Fixup_blkcnt	;go do DevStat to see if blockcount is known	
		bcc	@doRead		;status returned disk switch so ERROR the Read
		sta	multi_err
		rts			;return the disk switched/offline error
@doRead		equ	*

	if Version6x then
		bit	ext_slot
		bpl	@04		;if Internal slot
		brl	multi_blk_Ext
@04		equ	*
	endif
		ldy	#blk_cnt
		lda	[drvr_dib_ptr],y
		cmp	#1600			;is this an 800K disk?
		bne	do_error		;multi_blk only works for 800K disks
		
		SEP	#$30
		longa	off
		longi	off
		jsr	FastBufr	; is buffer in bk0/1 with shadowing on?
		bcc	@05
		inc	total_multidisq
		bne	do_error
		inc	total_multidisq+2
		bra	do_error		
*
* Save slot environment and enable the IWM and set DRIVE from DIB
@05		jsr	enable_slot6	;activate /EN35 
		jsr	phases_off
		ldy	#%00001111
		jsr	IFf_set_mode	;set mode if and only if mode reg available
		jsr	enable_sense	;enable drive and sense dsw/onl/mtr status
		bcc	@09
		inc	total_multidisq
		bne	force_error
		inc	total_multidisq
		bra	force_error	;since status is bad use sp to say so.
*
* The drive is enabled and does not have dsw or offline status 
* so I must switch the IWM mode to do actual I/O to the media.
@09		ldy	#%00001111
		jsr	set_iwm_mode	;this time I have to wait if IWM busy
* activate the drive select which was dropped to change IWM modes
		lda	>select
*
* If the motor was not on, turn is on now!
		jsr	motoron	;if not on activate the motor
*
* Now setup all the parameters for ReadTrk and check to see
* if the buffer spans any slow memory
		longa	on
		longi	on
		REP	#$30	
		lda	drvr_blk_num+2
		bne	@bberrxit	;blknum > 65535 is an error
		lda	drvr_blk_num
		jsr	blockchker	;block num in range?
		bcc	@10		;yep
@bberrxit	lda	#drvr_bad_block	;return drvr_bad_blk error
@Aerrxit	pha
		longa	off
		longi	off
		SEP	#$30
		lda	>deselect	;deactivate drive enable and start timer
		jsr	phases_off
		jsr	restore_slot6
		REP	#$30
		longa	on
		longi	on
		pla
		and	#$00FF
		sec
		rts
* Now calc block count and end blocknum		
@10		lda	<drvr_req_cnt+2
		and	#$FF00
		bne	@17		;gigantic req_cnt !
		lda	<drvr_req_cnt+1
		lsr	a		;req_cnt div 512 = block cnt
		stz	multi_err	
@15		sta	block_cnt	;
		clc
		adc	drvr_blk_num
		bcs	@17		;any carry means end_blk_num > 65535
		dec	a		;beg_blk+blk_cnt-1 ==> end_blk_num
		sta	end_blk_num
		jsr	blockchker	;check end_blk_num is in range too!
		bcc	@20		;block_cnt now not too big!!
@17		lda	#drvr_bad_block
		sta	multi_err	;record this as if it happens at end of volume
		ldy	#blk_cnt
		lda	[drvr_dib_ptr],Y	;get max block (last + 1)
		sec
		sbc	drvr_blk_num		;subtract starting blk num
		bra	@15			;and use result as the blk cnt
*
@20		lda	block_cnt	;retrieve final block count
		asl	a		;turn into a byte count
		sta	<drvr_req_cnt+1	;make sure we only read this many bytes

		ldx	drvr_blk_num
		lda	end_blk_num
		sta	drvr_blk_num
* Now X = beg_blk_num
*     A = end_blk_num
*     block_cnt is setup for MIN (req_cnt DIV 512 , MaxBlock - BeginBlk) 
		jsr	setup_readtrk	;(restores drvr_blk_num)
;		
		longa	off
		longi	off
		SEP	#$30
*
* Now Update my Cur_cyl from the firmware CurCyl
		jsr	Get_CURCYL
		php
		pla	
		and	#%00000100	;extract IRQ disable bit
		sta	irq_state	;and save for the SEEK routine
*
* Do the lead-in seek here with interrupts ON if user left em that way
		jsr	Seek	; and wait for Ready with interrupts ON?
		bcc	@seekok
@not_ready
		REP	#$30
		longa	on
		lda	#drvr_off_line
		bra	@Aerrxit
		longa	off
*
* NOW INTERRUPTS MUST BE TURNED OFF TO READ the TRACKS
@seekok
		jsr	Wait_Rdy_TO	;ensure that the drive is ready
		bcs	@not_ready	;oops
		php
 		sei			;disable interrupts 
		jsr	Read_tracks	;read the track/tracks 
		php			;save error status
		jsr	Put_CURCYL	;update firmware CurCyl before irq allowd
		plp
		bcc	@its_ok
		plp			;RESTORE interrupts
		brl	count_error	;redo the read because of an error
*
* The ReadTrk worked so now do the ugly stuff
@its_OK		
		lda	>deselect	;deactivate drive enable and start drive's timer
		jsr	phases_off
		jsr	restore_slot6	;now deactivate /EN35
		plp			;RESTORE interrupts
* NOW INTERRUPTS ARE BACK ON
		longa	on
		longi	on
		REP	#$30
		stz	drvr_tran_cnt
		stz	drvr_tran_cnt+2	;clear out direct_read scratch garbage
		lda	block_cnt	
		asl	a		;make it a page cnt
		sta	drvr_tran_cnt+1	;set this incase dev_only access
		lda	drvr_fst_num	;did caller want only device access?
		bmi	@dev_rd_only	;yep. so forget the slow stuff
		stz	drvr_tran_cnt+1	;let next_blk_ptr re-fill this
		lda	#0002
		sta	drvr_call_num	;restore this too just in case
*
* now search the cache incase some of the blocks I read
* were in the cache and must be copied from cache to buffer
		clc			;for 1st time thru
@cach_chk	jsl	cache_find_blk	;is the block in cache
		bcs	@not_in_cache	;it aint there try the next one
		jsl	cache_to_buff
@not_in_cache	jsr	next_blk_ptr	;update blk_num, buf_ptr, & tran_cnt
		bcc	@cach_chk
@dev_rd_only	lda	multi_err	;incase req count was too big
		cmp	#1		;conditionalize carry properly
		rts
	if Version6x 	then
**********************************************************************
*
*  Multi_blk Read for external slot "Mustang" cards
*
**********************************************************************
Multi_blk_Ext
		longa	on
		longi	on

*
* Setup the slot's c800 space so I can talk to the Mustang cpu
		jsr	enable_slotN	

* Now calc block count and end blocknum		
		lda	<drvr_req_cnt+2
		and	#$FF00
		beq	@10		;gigantic req_cnt !
@05		lda	#drvr_bad_block
		sta	multi_err	;record this as if it happens at end of volume
		ldy	#blk_cnt
		lda	[drvr_dib_ptr],Y	;get max block (last + 1)
		sec
		sbc	drvr_blk_num		;subtract starting blk num
		bra	@15			;and use result as the blk cnt
*
@10		lda	<drvr_req_cnt+1
		lsr	a			;req_cnt div 512 = block cnt
		stz	multi_err	
@15		sta	block_cnt		;
		clc
		adc	drvr_blk_num
		bcs	@05			;any carry means end_blk_num > 65535
		dec	a			;beg_blk+blk_cnt-1 ==> end_blk_num
		sta	end_blk_num
		ldy	#blk_cnt
		cmp	[drvr_dib_ptr],y	;is end > volume size?
		bcs	@05			;yep. so limit to last block num

		lda	drvr_blk_num
		sta	beg_blk_num
		lda	drvr_buf_ptr
		sta	drvr_buf2_ptr
		lda	drvr_buf_ptr+2
		sta	drvr_buf2_ptr+2		;setup the starting buffer pointer
		lda	drvr_buf_ptr+1
		sta	basePgBk
*     block_cnt is setup for MIN (req_cnt DIV 512 , MaxBlock - BeginBlk) 
Do_hunk		jsr	SelectBank0
		lda	block_cnt
		sta	Mu_blk_cnt
		
		ldx	#NuM_CalcBlks
		jsr	Send_CPU_Cmd
		bcs	Anerror			;device Busy error!
		
		ldy	#-1
@waitReply1	lda	>c8_reply		;16-bit fetch of 8-bit item
		and	#$0080
		beq	replied1
		phy
		ply
		dey
		bne	@waitReply1
Rdbusyerr	lda	#drvr_busy
DSWexit		sec
		rts
		
replied1	lda	>c8_error
		and	#$00FF
		beq	rd_the_hunk
		cmp	#drvr_disk_sw	;if the error is Disk switched JOA 11/15/91
		beq	DSWexit		;it must be reported my me NOW JOA 11/15/91
Anerror		and	#$00FF		; bad block/Offline/diskSwitched error
		sta	multi_err
		inc	total_multidisq
		bne	@ferr
		inc	total_multidisq
@ferr		brl	do_error	;since somthin is bad use slow way.

rd_the_hunk	equ	*
		lda	>c8_xfr_cnt
		sta	tail_cnt
		sta	Mu_blk_cnt
		bne	@01
		brl	@done
@01		
		ldx	#NuM_ReadNBlks
		jsr	Send_CPU_Cmd	;when CPU is ready
		bcs	Rdbusyerr
@cmdok		equ	*
*
* Now look for initial reply
		php
		sei
		ldy	#-1
@waitReply1	lda	>c8_reply		;16-bit fetch of 8-bit item
		bit	#$0080
		beq	@replied1
		phy
		ply
		dey
		bne	@waitReply1
		plp
		bra	Rdbusyerr
		
@replied1	plp
		and	#$00FF
		bne	@get_blocks
		lda	>c8_error
		and	#$00FF
		bne	Anerror
*
* Now start waiting for sectors
@get_blocks	equ	*
		stz	block_ctr	;
		jsr	SelectBank1
		
@wait_cnt	lda	>cA_rcount
		bmi	@booboo		;Oh Boy! the C800 space must ev gotn LOST
		beq	@wait_cnt	;it hasn't read any yet
		cmp	#$100		;was there an IOError or such?
		bcs	@BADNEWS	;its all fizzed up boys
		cmp	block_ctr
		beq	@wait_cnt	;not ahead of my count
		bcs	@scanrtbl	;CPU's count is > mycounter	
*  bad news boys something has switched out the c800 space
@booboo		rep	#$30		;force longa and longi
		jmp	Rdbusyerr	;cA_rcount is way out of range!
		
@BADNEWS	ldx	tail_cnt
		sep	#$20
		longa	off
@05		lda	>cA_rtable-1,x
		cmp	#$A0		;is this the error code?
		bcs	@goterr		;either IO or Offline
		dex
		bne	@05
		lda	#drvr_io_error	;well report it as IO if all else fails
@goterr		rep	#$20
		longa	on
		and	#$007F		;zero unknown hi byte and $80 bit
		sec
		rts			;WELL FOLKS    I AM OUTA HERE ___....---^^^"""
*
@scanrtbl	equ	*
		ldx	tail_cnt
		sep	#$20
		longa	off
@10		lda	>cA_rtable-1,x
		beq	@20		;this one not read yet
		bpl	@fnd
@20		dex
		bne	@10
* Now What??? it said another block was done but the rtable doesn't say so
		bra	@booboo
		
@fnd		ora	#$80
		sta	>cA_rtable-1,x	;mark this buffer as mooovvvveeeddd
		rep	#$20
		longa	on
		and	#$007F
		dex		;convert index to relative block number (0..n-1)
*
* move the buffer given in A to relative block given by X
		jsr	Move_blk_buffer

		inc	block_ctr
		lda	block_ctr
		cmp	tail_cnt
		bcc	@wait_cnt
		
@next_hunk	equ	*
		lda	tail_cnt
		clc
		adc	beg_blk_num
		sta	beg_blk_num		;add count to begin
*
* Now update the driver tran count and my hunk buffer pointer
		lda	tail_cnt		;get block count transferred
		xba			;* 256
		asl	a		;* 512
		pha				;save for ptr update
		clc	
		adc	drvr_tran_cnt
		sta	drvr_tran_cnt
		bcc	@sk1
		inc	drvr_tran_cnt+2	;move up to next 65K transferred
@sk1		lda	basePgBk
		sta	drvr_buf2_ptr+1	;restore pointer to begin of hunk buffer
		pla
		clc
		adc	drvr_buf2_ptr
		sta	drvr_buf2_ptr	;don't use drvr_buf_ptr due to error restart
		bcc	@sk2
		inc	drvr_buf2_ptr+2	;move up to next bank
@sk2		lda	drvr_buf2_ptr+1
		sta	basePgBk	;update base adrs upper 16 bits
		lda	block_cnt
		sec
		sbc	tail_cnt	;subtract this hunk from remainder
		sta	block_cnt		
		beq	@done		;remainder == ZERO so must be all done
		brl	Do_hunk		;do the next hunk of blocks
		
@done		lda	multi_err
		cmp	#1		;conditionalize carry properly
		rts
		
**********************************************************************
*	Select_BufX
*
*  INPUT:	X = is relative buffer for this hunk
*		A = buffer number of the buffer to select 
*		basePgBk contains page and bank start for this hunk
* OUTPUT:	C = which half of bank is the buffer (0 = $C8, 1 = $CA)
*
**********************************************************************
Select_BufX	equ	*
		longa	on
		longi	on
		txy
		and	#$001F		;make sure result in 31 max
		lsr	a		;convert buffer # into bank select

		php			;save carry for result

		ora	Slotx16		;combine  $00S0 with $000b
		tax
		sep	#$20
		longa	off
		lda	>$C080,x	;select the bank of RAM with the buffer
		rep	#$20
		longa	on
		tya			;get relative block number in A
		asl	a		;calc relative page offset (
		clc
		adc	basePgBk
		sta	drvr_buf2_ptr+1	;set the pointer for this block

		plp			;get carry back for caller
		rts
		
**********************************************************************
*
*  Move Block Buffer to User Buffer
*
*  INPUT:	A = buffer to move
*		X = relative block number
*
**********************************************************************
Move_blk_buffer	equ	*
		longa	on
		longi	on
		
		jsr	Select_BufX	;select buffer and set Y per buffer offset
* return C = 0 for $C800 buffer and C=1 for $CA00 buffer
		phb
		pea	0000
		plb
		plb		;set data bank for bank for 00
		ldy	#512-2
		bcs	@cAloop
@c8loop		lda	$C800,y
		sta	[drvr_buf2_ptr],y
		dey				;$1FD
		dey				;$1FC,F8,F4,F0, ... 0004,0000
		lda	$C800,y		
		sta	[drvr_buf2_ptr],y
		dey				;$1FB
		dey				;$1FA,F6,F2,FE, ... 0002,FFFE
		bpl	@c8loop
		bra	@done

@cAloop		lda	$CA00,y
		sta	[drvr_buf2_ptr],y
		dey
		dey
		lda	$CA00,y		
		sta	[drvr_buf2_ptr],y
		dey
		dey
		bpl	@cAloop
@done		equ	*
		plb		;restore data bank
*	|	|	|
*	v	v	v	fall thru into SelectBank1 for exit
**********************************************************************
* Select Mustang RAM bank 1 for xfer loop
**********************************************************************
SelectBank1	equ	*
		ldx	Slotx16
		sep	#$20
		longa	off
		lda	>$C081,X
		rep	#$20
		longa	on
		rts
		
**********************************************************************
*
* Send Cmd to NuMustang CPU
*
*  INPUT:	x = cmdnum to send
*
*  ASSUMES:	SelectBank0 has been called
*		Other parameters are already setup
**********************************************************************
Send_CPU_Cmd	equ	*
		longa	on
		longi	on

		lda	beg_blk_num
		sta	Mu_blk_num
		stz	Mu_blk_num+2
		ldy	#unit_num
		
		sep	#$20
		longa	off
* 8-bit A mode		
		lda	[drvr_dib_ptr],y
		sta	Mu_unitnum
		txa
		ora	#$40
		sta	Mu_cmdmode		;make it an "extended" call

		ldy	#-1
@waitCPUrdy	lda	>c8_cmd_msg		;+5
		bmi	@rdy1			;+7
		phy
		ply
		dey				;+9
		bne	@waitCPUrdy		;+12
		lda	#drvr_busy
		sec
		rts
		
@rdy1		phx
		ldx	#9-1
@mvMu_parms	lda	Mu_cmdmode,x
		sta	>c8_parms,x
		dex
		bpl	@mvMu_parms
		
		lda	#$FF
		sta	>c8_reply		;clear the reply
		pla
		sta	>c8_cmd_msg
		pla		; (pull upper half of phx above (longi is ON!!!)
		
* 16-bit A mode
		rep	#$20
		longa	on
		clc
		rts
		
	
**********************************************************************
*
* Enable SlotN's C800 space 
*
**********************************************************************
		longa	on
		longi	on
Enable_SlotN
		ldy 	#slot_num
		lda	[drvr_dib_ptr],y	;get slot number
		and	#$0007
		ora	#$00C0		;A = $00CN
		
		php
		sei		;interrupts off for a moment

		sep	#$20
		longa	off

		sta	>mslot		;set mslot to $Cn for interrupt restore of C8space
		xba			
		lda	>$CFFF		;(8-bit fetch) switch out all c800 spaces
		lda	#00		; A = $Cs00

		rep	#$20
		longa	on

		tax
		lda	>0,x		;(2 8-bit fetches) switch in the desired slot's c800 space
		stx	Cn00
		plp		;restore interrupts
		txa
		xba
		and	#0007
		asl	a
		asl	a
		asl	a
		asl	a
		sta	Slotx16		;contains $00s0 where s = slot number
*       |       |       |   fall thru into Select Bank 0
*       v       v       v
**********************************************************************
* Select Bank 0 
*
**********************************************************************
		longa	on
		longi	on
SelectBank0	equ	*
		ldx	Slotx16
		sep	#$20
		longa	off
		lda	>$C080,X
		rep	#$20
		longa	on
		rts
	endif

		eject
*****************************************************************
*
* The following routine is used to increment the block # and ptr
* in preperation for the next I/O transaction. Then the transfer
* count is compared to the request count with the carry set as a
* result of the compare.
*
* ENTRY:        A Reg = Unspecified
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Unspecified
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 x x x  0
*
* EXIT:         A Reg = Unspecified
*               X Reg = drvr_blk_size
*               Y Reg = Unspecified
*               B Reg = Same as entry
*             Dir Reg = GS/OS Direct Page
*               P Reg = 16 bit 'm' & 'x'
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 x x 1  0 if transfer count ³ request count
*                       x x 0 0 0 x x 0  0 if transfer count < request count
*
*****************************************************************
		export	next_blk_ptr
next_blk_ptr				;               
		longa	on
		longi	on

		clc			; adjust buffer pointer
		lda	<drvr_blk_size
		TAX
		adc	<drvr_buf_ptr
		sta	<drvr_buf_ptr
		lda	#$0000
		adc	<drvr_buf_ptr+2
		sta	<drvr_buf_ptr+2

		inc	<drvr_blk_num	; point at next block
		bne	@10
		inc	<drvr_blk_num+2
@10				; 
		clc			; update transfer count
		TXA
		adc	<drvr_tran_cnt
		sta	<drvr_tran_cnt
		lda	#$0000
		adc	<drvr_tran_cnt+2
		sta	<drvr_tran_cnt+2
		cmp	<drvr_req_cnt+2	; compare MSB trans to req
		bcc	@20
		lda	<drvr_tran_cnt	; compare LSB trans to req
		cmp	<drvr_req_cnt
@20		rts			; carry set if I/O transaction done


		eject
*****************************************************************
*
* The following routine executes a readblock from the SmartPort
* device.
*
* ENTRY:        A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*               B Reg = Same as program bank
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 x x x  0
*
* EXIT:         A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*               B Reg = Unchanged
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 x x 0  0 if no error
*                       x x 0 0 0 x x 1  0 if error
*
*****************************************************************
		export	do_sp_readblk
do_sp_readblk
		longa	on
		longi	on
		
		jsr	setup_sp_call	; setup SmartPort call parameters
		
		ldy	#dib_last_sts	;was media offline last time?
		lda	[drvr_dib_ptr],y
		and	#%10000		
		beq	@doStatus	;offline so do Status to get blockcount
		ldy	#blk_cnt
		lda	[drvr_dib_ptr],y
		bne	@doRead
@doStatus	jsr	Fixup_blkcnt	;go do DevStat to see if blockcount is known	
		bcs	@dswErr		;status returned disk switch so ERROR the Read
		
@doRead		lda	<drvr_dev_num	; device number to read
		ldx	<drvr_blk_size	;which block size to do?
		cpx	#$020C		;a mac write?
		ldx	#blockread_list
		bcc	@10		;NO.
		ldx	#readbyts_list	;yes.
@10		jsl	to_b0_core
@dswErr		rts
		eject
*****************************************************************
*
* The following routine sets up call parameters in the SmartPort
* parameter lists for both the readblock and writeblock SmartPort
* device calls.
*
* ENTRY:        A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*               B Reg = Same as program bank
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 x x x  0
*
* EXIT:         A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*               B Reg = Unchanged
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 x x x  0
*
*****************************************************************
		export	setup_sp_call
		longa	on
		longi	on
setup_sp_call
		lda	<drvr_blk_num	; setup block number for SmartPort call
		sta	blockrd_blk
		sta	blockwr_blk
		sta	rdbyts_blk
		sta	wrbyts_blk
		lda	<drvr_blk_num+2
		sta	blockrd_blk+2
		sta	blockwr_blk+2
		sta	rdbyts_blk+2
		sta	wrbyts_blk+2

		lda	<drvr_buf_ptr	; setup buffer pointer for SmartPort call
		sta	blockrd_buf
		sta	blockwr_buf
		sta	rdbyts_buf
		sta	wrbyts_buf
		lda	<drvr_buf_ptr+2
		sta	blockrd_buf+2
		sta	blockwr_buf+2
		sta	rdbyts_buf+2
		sta	wrbyts_buf+2
		lda	<drvr_blk_size
		sta	rdbyts_count
		sta	wrbyts_count
; now setup the smartport unit number from the DIB
		ldy	#unit_num		; get unit number from DIB
		sep	#$20			; 8 bit 'm'
		longa	off
		
		lda	[<drvr_dib_ptr],y
		sta	blockrd_unit		; install in read call list
		sta	blockwr_unit		; install in write call list
		sta	rdbyts_unit
		sta	wrbyts_unit
		
		rep	#$20			; 16 bit 'm'
		longa	on
		rts

*****************************************************************
*                                                               *
*  blockchker     Check the 16-bit A-reg against the DIB        *
*                                                               *
*    This routine checks the block in the A-reg to see          *
*  if it is within the correct bounds for disk volume size      *
*                                                               *
*   Regs:   A,Y  destroyed                                      *
*           C <-- 1 if block out of range ; 0 otherwise         *
*                                                               *
*****************************************************************
		longa	on
		longi	on
BlockChker	ldy	#blk_cnt
                cmp     [drvr_dib_ptr],Y	;
		bcc	@exit
		sec		
@exit		rts
		eject
*****************************************************************
*  Do all the setup calculations for the Read_tracks variables
*
* ENTRY:        A Reg = end_blk_num
*               X Reg = drvr_blk_num
*               Y Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 x x x  0
*
* EXIT:         A,X,Y = Undefined
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 x x x  0  
*****************************************************************
		export	setup_readtrk
		longa	on
		longi	on
Setup_ReadTrk	phx
		jsr	blkmap		;convert end_blk_num to track,sector
		sta	end_sector
		sty	end_track
		plx
		stx	drvr_blk_num
		jsr	blkmap		;convert beg_blk_num to track,sector
		SEP	#$30
		jsr	tracksect	;convert track in Y into curnsect in A
		sta	curnsect	;save sect/beg_track
		REP	#$30
* now Calc the track cnt
		lda	end_track
		sec
		sbc	track
		inc	a
		sta	trk_ctr		;trk_ctr is number of tracks
		tay			;for testing 1 track case
; now setup all the parameters
		lda	block_cnt
		sta	block_ctr	;set up count down for Read_Tracks
;
		lda	end_sector
		inc	a		;E.G. if last sector #= 3 tail cnt = 4
		sta	tail_cnt	; this may not get used if 1 trk case
		tax			;save end_sector+1
		lda	sector
		sta	begin_sect	;start at the beginning 
;
		lda	curnsect	;get sects/begin_track
		cpy	#0001		;are all the sectors on 1 track?
		bne	@30		;no.
		txa			;for 1 trk case use end_sector+1 instead of curnsect
@30		sec
		sbc	begin_sect	;calc sectors on 1 track
		sta	read_ctr
;		
		longa	off
		longi	off
@40		SEP	#$30		;8 bit native
		ldx	#00
		lda	#$40		;assume begin_sect is > 0
@50		cpx	begin_sect
		bcc	@60
		lda	#$80		;now fill to (if trk_cnt > 1 then curnsect) 
@60		cpy	#0001		;      or to (if trk_cnt = 1 then tail_cnt)
		bne	@70
		cpx	tail_cnt
		bcc	@70
		LDA	#$40		;if partial 1 trk case fill to end with don't want
@70		sta	want_fnd_tbl,x
		inx
		cpx	curnsect	;am I done yet?
		bcc	@50
		REP	#$30
		longa	on
		longi	on
		rts

		TITLE   '     Block Mapping Routine'   
********************************************************
*
*  BlkMap           Map the block number to
*                   cyl, track, sector, & side
*
* Assumes:    800K  only and BlkChk has been called 1st
* 
*   Input:    drvr_blk_num <- block to convert
*   Output:   track, cyl, sector, side
*   Uses:     TrackSect
*   Regs:     A <- sector
*	      Y <- track
*   Destroys: X, temp
* 
********************************************************
		longa	on
		longi	on
*
* Preserve the low order six bits
BLKMAP		SEP	#$30
		longa	off
		longi	off
                LDA     drvr_blk_num
                AND     #$3F
                STA     SECTOR
*
* Obtain a table driven "guess" for the track, sector.
*  Get index into table with CmdBlock div 64.
                LDA     drvr_blk_num 	;
                STA     TEMP		;dexxxxxx
                LDA     drvr_blk_num+1	;0000 0abc  (max of 06)
                ROL     TEMP
                ROL     A               ;0000 abcd
                ROL	TEMP
                ROL     A               ;000abcde = Block DIV 64
*
* If this disk is 800K GCR offset to second half
*  of the track and sector tables.
@10             EQU     *
                TAX                     ;        set up table index
                LDA     SECTAB,X	; sector number
                PHA                     ;        save it
                LDA     TRACKTAB,X	; track number
                TAY                     ;        save it
                PLA                     ;        restore sector number
*
* Y now has the track and A has the sector of the
*  requested CmdBlock with the low six bits clear.
*  Now we add the low six bits and correct an 
*  illegal mapping by subtracting off tracks
*  of sectors.
                CLC
                ADC     SECTOR
@20             PHA                     ;PRESERVE        the sector number 
                JSR     TRACKSECT       ;A <- # sectors on current track 
                STA	TEMP		;Keep A 
                PLA                     ;PULL    back sector number 
                CMP	TEMP		;Bigger than # on this track? 
                BLT     @30             ;No: block's been mapped ; branch 
                INY                     ;NEXT    track 
                SBC	TEMP		;Subtract # sectors that track 
                BRA     @20             ;Try again 
*
* Acc now has the sector, and X now has the track. 
*  In the case of a two sided disk, the track is
*  actually twice the cylinder, so correct for that.
*
********************************************
*  Note that the carry is clear here.   ****
@30             STY     CYL
		sty	track		;save cyl+side
                STA     SECTOR
*
* The track (A) is really the cylinder*2 plus the side.
*  -> CCCCCCCS. Div by two puts cyl->A and side->carry.
                LSR     CYL	;convert track to cyl and set 
		stz	side
                ROR     SIDE 	;side = 00 or $80
		longa	on
		longi	on
		REP	#$30
		LDA	SECTOR	;return 16 bits
                RTS
**************************************************
*                                                *
*  TrackSect        Determine the number of      *
*                       sectors for a cylinder   *
*                                                *
*   Input:    Y <- the track                     *
*             X <- the drive                     *
*   Output:   A <- number of sectors this cyl    *
*             class <- speed group (0-4)         *
*   Prsrves:  X & Y (carry is set)               *
*   Max time: 16 microsec  (2MHZ)                *
*                                                *
**************************************************
		longa	off
		longi	off
TRACKSECT	TYA
                LSR     A               ;map trk (0..159) to cyl (0..79)
*
		export	CYLSECT
CYLSECT         LSR     A               ;Alt entry for A <- cyl 
                LSR     A
                LSR     A
                LSR     A
                STA     CLASS 
                LDA     #12
                SEC
                SBC     CLASS		; 12-(0,1,2,3,4)=12..8
		RTS                  	;A has # of sectors per track
*
*
* This table contains the track number of blocks with
*  the low six bits clear.  Table has 25 entries for
*  a double sided 800K format diskette.
*
TRACKTAB        DC.B    0,5,10,16,21,26,32,37,43,49
                DC.B    55,61,67,73,80,86,92,99,106,113 
                DC.B    120,128,136,144,152
*
* This is the sector table.
SECTAB          DC.B    0,4,8,0,4,8,0,9,7,5 
                DC.B    3,1,2,6,0,4,8,5,6,7 
                DC.B    8,0,0,0,0       

                TITLE   '     GET & PUT CURCYL to cyr_cyl'    
*****************************************************************
* The following routine extracts CURCYL from firmware $E1 bank
* variables and sets cur_cyl table
*
* ENTRY:        A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       x x 1 1 0 x x x  0
*
* EXIT:         A Reg = Undefined
*               X Reg = unchanged
*               Y Reg = unchanged
*               P Reg = N V M X D I Z C  E
*                       x x 1 1 0 x x x  0 
*
*****************************************************************
		export	Get_CurCyl
		longa	off
		longi	off
Get_CurCyl	REP	#$20
		longa	on
		lda	rom_version
		cmp	#0002
		bge	@10
		lda	$E10F22		;rev 01 rom stores this here
		bra 	@20
@10		lda	$E10F3A		;rev 03 rom stores this here
@20		sta	cur_cyl
		longa	off
		SEP	#$20
		rts
*****************************************************************
* The following routine updates CURCYL in firmware $E1 bank
* variables from my  cur_cyl table
*
* ENTRY:        A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       x x 1 1 0 x x x  0
*
* EXIT:         A Reg = Undefined
*               X Reg = drive
*               Y Reg = unchanged
*               P Reg = N V M X D I Z C  E
*                       x x 1 1 0 x x x  0 
*
*****************************************************************
		export	Put_CurCyl
		longa	on
Put_CurCyl	ldx	drive
		REP	#$20
		lda	rom_version
		cmp	#0002
		longa	off
		SEP	#$20
		lda	cur_cyl,x
		bcs	@10
		sta	$E10F22,x		;rev 01 rom stores this here
		rts
@10		sta	$E10F3A,x		;rev 03 rom stores this here
 		rts
                TITLE   '     Read n Partial/whole Tracks'    
******************************************************
* Reads all the sectors on one side of a track into a 
* buffer.  The routine allows for 1 
* retry per sector (2 revs max) to read all sectors.
*
* If a TRKREAD fails for any reason the read must be
* retried sector by sector since on 1 retry per sector
* is performed.
******************************************************
;  Assumed
;  1) that volume is online and been checked for dsw
;  2) the motor is up to speed and the drive is READY
;  3) that the TRACK, TRKCNT, SECT_CNT, WANT_FND_TBL, 
;     READRET, BEGIN_SECT, and TAIL_CNT have been setup. 
;  4) that drvr_buf_ptr points to a contiguous buffer
;     large enough to contain SECT_CNT sectors 
;  5) that the sectors will be positioned in the buffer
;     in ordinal order by sector number beginning with 
;     BEGIN_SECT of TRACK 
;  6) IF trackcnt > 2 Then all sectors must be 'wanted'
;     for the tracks other than begin and end tracks.
******************************************************
		longa	on
		longi	on
		export	read_tracks
Read_tracks	REP	#$30
		LDA	drvr_buf_ptr+1
                STA     BASESAVE	;save original base pg +bk
		longa	off
		longi	off
		SEP	#$30
		lda	drvr_buf_ptr
		sta	drvr_buf2_ptr	;low byte to 2nd pg pointer
; Track loop begins here		
@RDTRK          LDA     TRACK
                CMP     #160
                BCS     @IOERR          ;oops. an idiot caller!!
                STZ     SIDE
                LSR     A               ;extract a side bit
                STA     CYL		;save cyl for seek
                ROR     SIDE		; set side = $00/$80
*
* Convert cyl to curnsect (sects/trk) and setup readret, adrsret
		ldx	drive
		lda	cyl
		jsr	cylsect 	;convert cyl to sects/trk
                sta     CURNSECT	;determine current sects/trk
		ldy	read_ctr	;was this input or should I fill it in?
		bne	@03		;input provided so use it
		sta	read_ctr	;must not be first/last track.
@03		ASL     A
                INC     A               ;plus 1
                STA     ADRSRET		;save curnsect*2 as limit ctr
		STZ	found_ctr
*
* Set up the maximum number of reseeks
                LDA     #02
                STA     SEEKRET
*
* Now save drvr_buf_ptr page+bank address
		longa	on
		REP	#$20
                LDA     drvr_buf_ptr+1
                STA     basepgbk
		longa	off
		SEP	#$20
*
* Seek to the cylinder in cyl
@30             EQU     *
                JSR     SEEK		;
                BCC     @50             ;If no error, get an adr field 
		CMP	#drvr_off_line	;timeout after waiting 700ms for a seek???
		beq	@seterr		;yes!
                bra     @35
*
* Seeked to the wrong cylinder.  Use the cylinder
*  number found to define our current position. 
@SEEKERR        EQU     *
                LDX     DRIVE
                STA     cur_cyl,X	;Use cyl found as reference
*
* There was a seek error ("hard" or "soft"). Maintain seek counter
@35             EQU     *
                DEC     SEEKRET
                BNE     @30             ;Maybe try a reseek 
*
* Set the fatal error flag
@IOERR          EQU     *
                LDA     #drvr_io_error	;just back down to 1 blk at a time code
@SETERR		REP	#$30
		longi	on
		longa	on
		AND	#$00FF		;clear hi byte of a for caller
		LDX     BASESAVE
                STX     drvr_buf_ptr+1	;restore zpg
		longa	off
		longi	off
		SEP	#$30
                SEC
		RTS
*
* Count down the address retry counter
@40             DEC     ADRSRET
                BEQ     @IOERR
*
* Okay, read an address field
@50             EQU     *
                JSR     RDADDR
                BCC     @60
                cmp	#ADRERROR+DBSERROR ;was err bit slip or chksum?
                bcs	@40             ;yes. so retry it once
                BRA     @IOERR          ;no. either timeout or SSfmt err.
*
* Now, see if this is the cylinder we expected 
@60             EQU     *
                LDA     SIDEFND		;00S0000t 
                LSR     A               ;000S0000 t->c
                LDA     TRKFND
                BCC     @66
                ORA     #$40
@66             CMP     CYL
                BNE     @SEEKERR
*
* Is side found what we thought?
@70             EQU     *
                LDA     #$20
                AND     SIDEFND		;00s00000
                ASL     A               ;0s000000
                ASL     A               ;s0000000
                EOR     SIDE		;0&0,1&1 leaves 0
                BMI     @40             ;treat this like adrs err
*
* don't double read a sector if it read correctly before
                LDX     SECTFND
                BIT     WANT_FND_TBL,X	;Have I found or do I want this sector?
                BVS     @40             ;Don't want this one so keep looking
		BPL	@40		;Already found this one so keep looking
*
* Calc the Direct read addresses 
		longa	on
		longi	on
		REP	#$30
                TXA                     ;  (== ldx sectfnd)
		SEC
		SBC	begin_sect	;in case this is partial track read
                ASL     A               ;sect# * 2 is offset in pages
                ADC     basepgbk	; add offset to page&bank
                STA     drvr_buf_ptr+1
		INC	A
		STA	drvr_buf2_ptr+1	;set the ptr for 2nd page
		SEP	#$30
		longa	off
		longi	off
*
* Now Direct read this sector into the buffer
		lda	sectfnd
                jsl     Direct_read	;read direct to user buffer
                bcs     @40             ;bad read. so get the next one
		inc	found_ctr	;count sectors (blocks) I read
*
* record that this sector has been read into users buffer
                LDX     SECTFND 	;
                STZ     WANT_FND_TBL,X	
		REP	#$20
		DEC	block_ctr	;all blocks (up to 640 of em) done?
		SEP	#$20
		BEQ	@99		;yes. so forget this noise
                DEC     read_ctr 	;is this track done?
                BNE     @40             ;no. so cnt adrs and read next sector
		DEC     trk_ctr		;any more tracks to do?
                BEQ     @99             ;nope.
*
* now adjust track and drvr_buf_ptr pointer 
                INC     TRACK 		;increment to next cyl+side
		longa	on
		REP	#$20
                LDA     found_ctr 	;get sects/trk I just read in
                ASL     A               ;sects * 2 = pagecnt I red
                CLC
                ADC     basepgbk
                STA     drvr_buf_ptr+1
		SEP	#$20
		longa	off
		stz	begin_sect	;start next track at sect 00
*
* clear the sector want_found table for next full/partial track
		ldy	#12
		sty	csum
		stz	read_ctr
		lda	trk_ctr		;is this the last track?
		dec	a
		bne	@80		;nope. so read em all
		lda	tail_cnt	;yep. so set NOT wanted until tail_cnt
		sta	read_ctr		
		sta	csum
@80		LDA     #$40
@84		cpy	csum
		bne	@88
		LDA	#$80		;set 'doread' status from cnt-1..0
@88		DEY
                STA     want_fnd_tbl,Y
                BNE     @84		;fill table with the status
                BRL     @RDTRK		;and read this track
@99		REP	#$30
		longi	on
		longa	on
		and	#$00FF
		LDX     BASESAVE
                STX     drvr_buf_ptr+1 
		longa	off
		longi	off
		SEP	#$30
                CLC
                RTS
                EJECT
**************************************************
* FastBufr
*
* FastBufr determines if the user buffer address
* is in fast memory or if the 512 bytes spans a
* bank boundary
*
*    INPUT :  cmdbuffl+1,+2 is user buffer adrs
*    OUTPUT: DRswtch =  00 if bk spanned or slow (shadowed)
*            DRswtch = $FF if fast and not bk spanned 
*
***************************************************
		longa	off
		longi	off
FASTBUFR        EQU     *
                LDY     drvr_buf_ptr+2
                CPY     #$E0
                BCC     @10
                CPY     #$E1+1
                BCC     @SLOW
@10             CPY     #02
                BCC     @15
                BRA     @FAST		;02..DF and E2..FF
*now test the bank 00 and 01 cases		
@15             LDA     >SHADOW
                AND     #$3E
                CMP     #$3E            ;all fast with TenSpeed CYA (nee FPI)?
                BEQ     @FAST           ;yep
                CMP     #$1E            ;all fast with GS FPI?
                BNE     @SLOW		;no. forget it
		LDX	drvr_buf_ptr+1
		CPX	#$0C		;is buffer above txtpg2?
		BCS	@FAST		;yep. it safe
                BRA     @SLOW		;nope. might be TenSpeed with txtpg2 shadowing on
@FAST           CLC
		RTS
@SLOW		SEC
		RTS
		if	0	THEN
		TITLE	'     Check a page address of bnk 00/01'
**************************************
* ChkpgSlow checks the page address
* of a page in bank 0/1 to see
* if it is shadowed and therefore slow
*
* INPUTS :  X = page address to check
*           A = shadow Reg shadow bits
*               (Shadow AND $3E)
*           Y = Bank address (00/01)
* OUTPUT :  C = 1 if slow
*           C = 0 if fast    
*
* PRESERVES : A-reg, X-reg, Y-reg
* DESTROYS  : carry  (and P)
***************************************
		longa	off
		longi	off
CHKPGSLOW 
                CPX     #$FF            ;do bufr pags span bank boundary?
                BEQ     @SLOW           ;yes. so do block indirect!
                CPX     #$D0
                BCS     @FAST
                CPX     #$C0
                BCS     @SLOW
                CPX     #$A0
                BCS     @FAST
                CPX     #$08
                BCC     @SLOW
                CPY     #01             ;bank 1 only check?
                BNE     @20
                CPX     #$60
                BCC     @20             ;adrs not in range
                BIT     %00001000       ;is $6000..$9FFF fast RAM
                BNE     @FAST           ;yep
                BRA     @SLOW
@20             CPX     #$20            ;in hires 1/2 range?
                BCC     @40             ;no.
                CPX     #$40            ;hires 1 or 2?
                BCS     @30
                BIT     #%00000010      ;are HiRes1,1X both fast?
                BRA     @35             
@30             BIT     #%00000100      ;is HiRes2,2x both fast?
@35             BNE     @FAST
                CPY     #00
                BEQ     @SLOW           ;
                BIT     #%00010000      ;is HiRes1x or 2x fast 
                BNE     @FAST           ;yes
                BRA     @SLOW           ;no.
@40             CPX     #$0C            ;txtpg2?
                BCS     @FAST
                BIT     #%00100000      ;only 1 if Rev D FPI
                BEQ     @SLOW
@FAST           CLC
                RTS
@SLOW           SEC
                RTS
		endif
                TITLE   '     Read Address Field'      
**************************************************
* 
*  rdaddr                Read an address field
*                                 with timeout
* 
*   Output:   sectinfo[0..4] of sector found
*             c=0 Read OK
*             c=1 Read BAD 
*	A-reg   Cause
*	$20	Single Sided Format
*	$24	Timeout no Adrs Mark
*	$28	Bit slip error
* 	$30	CheckSum error
*   Destroys: A, X, Y, temp
* 
**************************************************
		longa	off
		longi	off
		export	RDADDR
RDADDR
*
* Set IWM into read mode
		JSR     RDMODE          ;Set read mode & hdsel
*
* Set up the timeout
                LDA     #>AMTOUT
                STA     TEMP
                LDY     #<AMTOUT
*
* Find the 3  marks nybbles
@10             LDX     #2              ;Three of 'em
@20		DEY                     ;MAINTAIN        double byte t.o. ctr
                BNE     @30             ;=> no timeout
                DEC     TEMP
                BMI     @TOERR		;Oops, timeout error
* 
@30		LDA     >L6CLR           ;Look for a byte
                BPL     @30             ;Branch if no byte ready
                CMP     ADRMARKS,X	;Is it the right mark? 
                BNE     @10             ;No, start all over 
                DEX                     ;YES,    found a mark 
                BPL     @20             ;If more marks, go back 
*
* Found an address field. Now grab the info 
*
                LDY     #4              ;Four pieces of info + csum
                STZ     CSUM
@40		LDA     >L6CLR           ;Get a byte
                BPL     @40             ;If not ready, back again
		TAX			;
                LDA     >DNIBTAB,X      ;Perform 8 to 6 bit xform 
                STA     SECTINFO,Y	;Save that chunk 
                EOR     CSUM		;Add into the checksum
                STA	CSUM
                DEY                     ;ONE     less piece of info
                BPL     @40             ;If more, go back
*
* The last byte was the checksum. If our calculated
*  checksum is not zero now, we've had a problem
*
                TAY
                BNE     @CSERR
*
* Now identify the bitslip marks
*
@50             LDA     >L6CLR
                BPL     @50
                CMP     BSLIP1
                BNE	@BSERR
*
@60             LDA     >L6CLR
                BPL     @60
                CMP     BSLIP2
                BNE     @BSERR
*
                LDX     DRIVE
                LDA     FMTFND		;extract the DS bit from Fmt 
                AND     #$20
                beq	@ERR		;error if its NOT double sided format!!!	
*
                CLC                     ;GOT     a good sector
                RTS
*
@TOERR		LDA	#TOERROR		
		bra	@err
@CSERR		LDA	#DCSERROR	
		bra	@err
@BSERR		LDA	#DBSERROR
@ERR	        ORA     #ADRERROR	;$20=ssfmt, $24=timeout, $28=BSlip, $30=Cksum
                SEC
                RTS
*
*
RDMODE          EQU     *
                LDA     >L7CLR
                LDA     #READ0ADR
                BIT     SIDE
                BPL     @10
                LDA     #READ1ADR
@10             JSR     READ_BIT
                LDA     >L6CLR
                RTS
		
;----------------------------------------
		endp
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/AppleDisk3.5/AD3.5.revhist b/IIGS.601.SRC/GS.OS/Drivers/AppleDisk3.5/AD3.5.revhist
new file mode 100644
index 0000000..cf7acb4
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/AppleDisk3.5/AD3.5.revhist
@@ -0,0 +1 @@
+*****************************************************************
*
*               Copyright (c) 1988
*               Apple Computer, Inc.
*               All rights reserved.
*
*****************************************************************
*
*               AppleDisk 3.5 Driver Version 0.02e01
*
* NOTE:         This driver must be installed on the boot
*               volume in the subdirectory "/SYSTEM/DRIVERS'.
*               Additionally, the FileType for the driver file
*               must be set to $00BB.  AuxType is also critical
*               to the operating system recognizing the driver
*               as a GS/OS device driver.  The AuxType is a long
*               word which must have the upper word set to $0000.
*               The most significant byte of the least significant
*               word in the AuxType must be set to $01 to indicate
*               an active GS/OS device driver or $81 to indicate
*               an inactive GS/OS device driver.  The least
*               significant byte of the least significant word
*               of the AuxType field indicates the number of
*               devices supported by the driver file.  This value
*               should be analogous to the number of DIB's
*               contained in the driver file.  GS/OS will only
*               install the number of devices indicated in the
*               AuxType field.
*
*               GS/OS Device Driver:    FileType = $00BB
*                                       AuxType  = $000001XX where:
*                                                  XX = number of devices.
*
*               An AuxType of $00000102 indicates two devices.  When
*               building a device driver, the best way to set the
*               FileType and AuxType is to use the Exerciser to get
*               the current file info (GET_FILE_INFO), modify the
*               FileType & AuxType and then SET_FILE_INFO.
*
*****************************************************************
*
* REVISION HISTORY:
*
* Date_____ Version By____ 	Description__________________________
*
* 03-Mar-88 0.00e01 GA/RBM 	Started initial coding.
*
* 07-Mar-88 0.00e02 rt/fb  	fix format call by storing original read_data
*                          	hooks before this call or system will use patch
*                          	incorrectly.
*
* 08-Mar-88 0.00e03 RBM    	Startup now sets interleave itself and
*                          	no longer calls generated startup.
*                          	Shutdown sets 4:1 interleave.
*
* 18-Mar-88 0.05a01 RBM    	DRVR_BUSY error will be returned on shutdown
*                          	for all but last device.
*
* 18-May-88 0.08a01 GA     	Fixed bug which causes stack crawl and crash
*                          	if a bad disk is inserted into the drive.
*                          	during a block read call.
*
* 05-Jun-88 0.09a01 RBM    	Both write and read check the block size for
*                          	a value of $0200 or $020C before passing off
*                          	to the generated core routines.  An invalid
*                          	parameter error will be returned for non-
*                          	standard block sizes.
*
* 08-Jun-88 0.09a02 RBM    	Post process all status calls with a status
*                          	code of $0000 so that when media is ejected
*                          	the status indicates offline and disk switch
*                          	only on the first status call.  On subsequent
*                          	status calls when the media is offline, only
*                          	the offline will be indicated.
*
* 23-Jun-88 0.09a03 RBM    	Added patch to firmware (VECTOR) to detect
*                          	any direct firmware access by an application.
*                          	Any direct access will result in the cache
*                          	being flushed and VCRs marked as switched.
*                          	Additionally, read, write & format will
*                          	return a disk switch error while status call
*                          	$0000 will return a disk switched status.
*
*                          	Startup revised to use class 1 calls and
*                          	then update the DIB class after the DIBs
*                          	have been created.  Neccessary to accomodate
*                          	status of class 1 devices.
*
* 13-Jul-88 0.10a02 RBM    	Dispatch routine only checks for external access
*                          	if the current call is not a startup.
*
*                          	After detecting an external access, the dispatch
*                          	routine will reinstall the hooks for patches that
*                          	were installed at startup time.
*
*
* 15-Jul-88 0.10a03 RBM    	Disk switch history now uses the DIB_HW_UNIT
*                          	to index into the status history list.
*                          	Format options no longer specifies a linkref
*                          	for format option #1.
*
* 02-Aug-88 0.16b01 MSA/GRT	if error during format do NOT change default option
*                          	changed appledisk3.5/control subroutine 'format'
*
* 11-Aug88  0.17b01	RBM	changed appledisk3.5/control subroutine set_option
*                       	set proper unit number in parameter list.
*
* 02 Dec 88  4.1 a01	RBM	Ported device specific hardware access routines from
* 				the generated driver core routines.
*
* 21 Dec 88  4.1 d10	RBM	Add support for 10 speed rom.  The status call in the
*				firmware cannot support GS/OS at the current time.  The
*				loaded driver must therefore be modified so that the 
*				mergeit patch is not installed when running with a 10
*				speed rom.  All other loaded driver operation shall 
*				remain the same.
*
* 09 Jan 88		RBM	Access detect now returns to ROM dispatch table via RTL.
*
* 31 Jan 89	2.1a01	RBM	Clear out SmartPort type/subtype during startup prior to
*				issuing call to device (Chinook does not return an error
*				on extended status call so status result remained from
*				previous device).
*
* 06 Feb 89	2.1a02	RBM	Startup call now checks $CnFB.  If extended SmartPort
*				is not supported then the device driver will not be
*				installed by GS/OS.
*
* 26 Feb 89	2.1a03  RBM	Changed two Longa offs to longa ons at end of Shutdn.
*				Problem noticed when system loader hung on bad id's
*
* 27 Feb 89	2.1a04  JOA	Started modification to include direct read code and
*				Multi-block 1:1 track read logic in to the ReadBlock
*				function.  Requires 1K of space in Bank 01 for the
*   				direct readdata routine plus about 2K more code size.
* 20 Mar 89	2.1a04	JOA	Fixed the failure to check for a zero request count
*
* 20 Mar 89	2.1a04	JOA	Fixed Reading of 524 byte blocks and call the
* 				SmartPort ReadBytes call instead of the ReadBlock call
*
* 23 Mar 89	2.1a04	JOA	Fixed the ShutDown call to properly reset firmware
*				interleave to $04 and make the driver restartable
*
* 24 Mar 89	3.0b01	JOA	Modified ReadTrack and Seek to enable interrupts
*				once each time seek must move the head to a new cylindr
*
* 30 Aug 91		JOA	Begin modifications to support NuMustang and FDHD drives
*				Heavy mods to Startup to support 8 DIB's and scan the
*				the slots for external slot NuMustang cards.
*
* 09 Sep 91	4.0d00	JOA	Initial operational version for all the stuff except
*				Get&SetFmtOptions Status&Control calls.
*
* 13 Sep 91	4.0a01	JOA	Initial SCM release to testing with all functions.
*				(Alpha Candidate)
*
* 19 Sep 91	4.1a01	JOA	Initial version of driver for GS/OS 6.0 with Scatter
*				Read firmware in Mustang and Driver Multi-block read
*				support for NuMustang. (Using condiditonal assembly
*				switch in the source code named "Version6x")
*
* 17 Sep 91	4.0a02	JOA	Fixed bug in Startup that was using Y reg instead of
*				a work variable to test for slot internal/external state
*
* 24 Sep 91	4.0a03	JOA	Fixed another place in Startup that was still using Y
*				instead of the new work variable SlotsReg.
*
* 15 Jan 92	4.0a04	GAB	Added logic in Shutdown to effectively remove the
*				external access notification code that is downloaded
*				to Mustang during Startup.
*
* 24 Jan 92	4.0a05	GAB	A READ request with a combination of starting block
*				and request count which would read >= 5 blocks but
*				read beyond the end of the volume would return with
*				no error and the transfer count equal to the request
*				count as if the read completed without error.  In
*				the multiblock read logic, the driver is correctly
*				limiting the read to the remainder of the blocks in
*				the volume, but is not limiting the request count
*				at the same time.  In addition, the drvr_bad_block
*				error was placed in the accumulator, but the carry
*				was not being set.  This has all been corrected.
*
*************************************************************************************
*
* 3-Jun-92	5.4a01	DAL	AD3.5.main no longer crams 'A', 'B', etc onto
*				device names during a warm start.  So you can
*				rename your 3.5 devices and not have the names
*				mutilated on return from P8.
*
*************************************************************************************
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/AppleDisk3.5/Max.Macros b/IIGS.601.SRC/GS.OS/Drivers/AppleDisk3.5/Max.Macros
new file mode 100644
index 0000000..8263ec6
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/AppleDisk3.5/Max.Macros
@@ -0,0 +1 @@
+***************************************************************
*
*               Macros used by the DISK][ driver
*
*               Oct 10, 1987 10:10
*
***************************************************************

 MACRO
&lab _setheartbeat
*
* Stack input for SetHeartBeat is as follows:
*
*               longword   Pointer to task header
*           sp->
*
&lab ldx #$1203
 jsl $E10000
 MEND

 MACRO
&lab _delheartbeat
*
* Stack input for DelHeartBeat is as follows:
*
*               longword   Pointer to task header
*           sp->
*
&lab ldx #$1303
 jsl $E10000
 MEND

 MACRO
&lab _longdivide
*
* Stack input for LongDivide is as follows:
*
*               word    space for remainder result
*               word    space for quotient result
*               long    Numerator
*               long    Denominator
*           sp->
*
&lab ldx #$0D0B
 jsl $E10000
 MEND

 MACRO
&lab _fwentry
*
* Stack input for FWentry is as follows:
*
*               word    space for result: Y Register
*               word    space for result: X Register
*               word    space for result: A Register
*               word    space for result: P Register
*               word    A Register
*               word    X Register
*               word    Y Register
*               word    Entry point in bank $00
*           sp->
*
&lab ldx #$2403
 jsl $E10000
 MEND
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/AppleDisk3.5/ad3.5.src b/IIGS.601.SRC/GS.OS/Drivers/AppleDisk3.5/ad3.5.src
new file mode 100644
index 0000000..c9a1c02
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/AppleDisk3.5/ad3.5.src
@@ -0,0 +1 @@
+		String	AsIs
		
		Print	off
		Include	'Max.Macros'	
		Include	'Common.equ.src'
		Include	'driver.equ.src'
		Include	'hw.equ.src'
		Print	on		
		eject
		include 'AD3.5.revhist'
		eject
	if &TYPE('VERSION6X') = 'UNDEFINED' then
VERSION6X	EQU	1
	endif
;---------------------------------------------------------
; GS & Driver Equates
;---------------------------------------------------------
tool_locator 	equ	$E10000		; Tool locator entry point
bank1_org	equ	$01BC00		; address of by bank1 segment
mac_flag	equ	$0F51		; Mac block read/write flag
buf1		equ	$0C00		; Three work buffers for data off disk
buf2		equ	$0D00		;
buf3		equ	$0E00		;
cmdbuffl	equ	$42		;refed in the Mergeit patch
rtl_addr	equ	$C59C		; rtl instruction in bank $FF
read_data	equ	$FF6244		; disk 3.5 driver read data routine
try_more	equ	$FF59C7		; read retry code in rom
sbset		equ	$FF5A1C		; return point back into rom code
rd_hook		equ	$E10F77		; Read data hook routine
vector_hook	equ	$E10FA7		; main firmware dispatcher
jmp_inst	equ	$5C		; jump long instruction
cmdid		equ	$00005A		; firmware internal unit
id1		equ	$E10F20		; internal internal unit for drive #1
id2		equ	$E10F21		; internal internal unit for drive #2
dib_hw_unit	equ	$004A		; (w)  Hardware reference unit
dib_acc_flag	equ	$004C		; (w)  external access detect flag 
dib_fmt_optn	equ	$004E		; (w)  last selected format option
dib_last_sts	equ	$0050		; (w)  last status call result word
dib_En_save	equ	$0052		; (l)  save temp 4 CYA, SLTROM, DISKREG, spare
g_dispatch	equ	$01FC84		; call generated driver core
	if Version6X	then
;;;current_version equ	$5030		; version for System 6 disk
current_version	equ	$5040		; version for 6.0.1 (2-Apr-93 SS)
	else
current_version	equ	$4000		; current device version
	endif
;----------------------------------------
;    VARIOUS READ CONSTANTS
;----------------------------------------
TK0Wait		equ	7
recaltrks	equ	80
amtout		equ	1950
readto		equ	25
maxseeks	equ	4
skrclthrsh	equ	2
inmupwait	equ	500/2
stdmupwait	equ	100/2

;-----------------------------------------------
;      REDEFINE IWM HARDWARE EQUATES
;-----------------------------------------------
IWM		EQU	ph0off+$60
CA0CLR          EQU     IWM+0
CA0SET          EQU     IWM+1
CA1CLR          EQU     IWM+2
CA1SET          EQU     IWM+3
CA2CLR          EQU     IWM+4
CA2SET          EQU     IWM+5
LSTRBCLR        EQU     IWM+6
LSTRBSET        EQU     IWM+7
DESELECT        EQU     IWM+8
SELECT          EQU     IWM+9
ENABLE1         EQU     IWM+10
ENABLE2         EQU     IWM+11          
L6CLR           EQU     IWM+12          
L6SET           EQU     IWM+13          
L7CLR           EQU     IWM+14          
L7SET           EQU     IWM+15          
*
* AppleDisk 3.5 Drive Control Constants
*
DIRINADR        EQU     0               ;0 -> /DIRTN : set dir in
DIROUTADR       EQU     1               ;1 -> /DIRTN : set dir out
READ0ADR        EQU     1               ;Read data head 0
READ1ADR        EQU     3               ;Read data head 1
STEP0ADR        EQU     4               ;0 -> /STEP : step a track
STEP1ADR        EQU     5               ;1 -> /STEP
MTRONADR        EQU     8               ;/MOTORON
MTROFFADR       EQU     9
EJCTADR         EQU     12              ;0   -> Read disk ejected latch
EJECT1ADR       EQU     13              ;1 -> /EJECT : eject the disk
DIPADR          EQU     2               ;/CSTIN : sense disk in place
WPROTADR        EQU     6               ;/WRTPRT : sense write protect
TK0ADR          EQU     10              ;/TK0 : sense recal posn
TACHADR         EQU     14              ;/TACH : sense motor speed
SIDESADR        EQU     9               ;SIDES : sense single/dual head
DRVXSTADR       EQU     13              ;/DRVIN : sense if a drive is there
READYADR        EQU     11              ;/READY : ready to read or write
EJCT_RESET      EQU     $03             ; reset disk ejected bit

;-----------------------------------------------
; GS/OS ZERO PAGE OVERLAY EQUATES
;-----------------------------------------------
;
CSUM            EQU	drvr_tran_cnt	;overlayed during Sector/Track read
CSUMC           EQU	CSUM+1
CSUMB           EQU	CSUM+2
CSUMA           EQU	CSUM+3
;
EXINDEX         EQU	drvr_call_num	;overlayed during Sector/Track read
EXINDEX2        EQU	EXINDEX+1	;dispatcher restores these bytes  
drvr_buf2_ptr	EQU	drvr_cach_ptr	;overlayed during Sector/Track read
;
**********************************************************************
* Mustang FDHD controller card equates
**********************************************************************
NuM_CalcBlks	EQU	$0D
NuM_ReadNBlks	EQU	$0E
c8_cmd_msg	EQU	$00C800
c8_reply	EQU	$00C801
c8_parms	equ	$00C802
c8_xfr_cnt	EQU	$00C80B
c8_error	EQU	$00C856
cA_rcount	EQU	$00CA00 ;reply count for multi_blk read
cA_rtable	EQU	$00CA02	;reply vector for multi_blk read
HDChk_Org	EQU	$7800

****************************************************************
*
*  ERROR CODE values for Direct Read Segment 
*
WSERROR       	EQU     $20             ;Wrong Sector # error
DCSERROR        EQU     $10             ;Data Field Checksum error
DBSERROR        EQU     $08             ;Data Field Bitslip error
TOERROR         EQU     $04             ;No Data Field Error
SFTSKERROR	EQU	$04		;Seek found wrong cylinder
SEEKERR		EQU	$02		;NO Seek cmd reply from drive
ADRERROR	EQU	$20		;Adrs Mark Error
****************************************************************

;-----------------------------------------------
;	BEGIN MAIN CODE SEGMENT
;-----------------------------------------------

;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

		entry	access_detect
		entry	check_access
		entry	close
		entry	conf1
		entry	conf2
		entry	control
		entry	dib_1
		entry	dib_2
		entry	dispatch
		entry	flush
		entry	format
		entry	format1
		entry	fixup_blkcnt
		entry	reset_sts_dsw
		entry	get_format
		entry	open
		entry	read
		entry	set_format
		entry	set_hook
		entry	set_option
		entry	shutdn
		entry	startup
		entry	status
		entry	write
		entry	c2_dev_stat
		entry	next_blk_ptr
		entry	read_dsw_status
		entry	set_iwm_mode
		entry	seek
		entry	motoron
		entry	wait_rdy_to
		entry	read_bit
		entry	writebit
		entry	phases_off
		entry	enable_slot6
		entry	restore_slot6
		entry	Iff_set_mode
		entry	enable_sense
		entry	cache_to_buff
		entry	buff_to_cache
		entry	do_sp_readblk
		entry	do_sp_writeblk
		entry	setup_sp_call
		entry	bank1_code
		entry	beg_bank1
		entry	end_bank1
;----------------------------------------------------------------
		include 'AD3.5.data'
		include	'AD3.5.main'
		include 'AD3.5.cmds'
		print	on
		include 'AD3.5.read'
		include 'AD3.5.drivsubs'
		print	on
;----------------------------------------------------------------
;  BEGIN Bank $01 code segment
;----------------------------------------------------------------
		include	'AD3.5.directRD'		
		end	
		
		
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/AppleDisk5.25/AppleDisk5.25.src b/IIGS.601.SRC/GS.OS/Drivers/AppleDisk5.25/AppleDisk5.25.src
new file mode 100644
index 0000000..8e10bb2
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/AppleDisk5.25/AppleDisk5.25.src
@@ -0,0 +1 @@
+		String	AsIs
		print	push
		Print	Off
		include	'Max.Macros'	
		include	'common.equ.src'
		include	'm16.util2'
		Print	pop
		blanks	off

*****************************************************************
*
*               Copyright (c) 1987-1992
*               Apple Computer, Inc.
*               All rights reserved.
*
*****************************************************************
*
*               GS/OS DISK][ Driver Version 1.00
*
* NOTE:         All driver files must be installed on the
*               boot volume in the subdirectory "/SYSTEM/DRIVERS'.
*               Additionally, the FileType for the driver file
*               must be set to $00BB.  AuxType is also critical
*               to the operating system recognizing the driver
*               as a GS/OS device driver.  The AuxType is a long
*               word which must have the upper word set to $0000.
*               The most significant byte of the least significant
*               word in the AuxType must be set to $01 to indicate
*               an active GS/OS device driver or $81 to indicate
*               an inactive GS/OS device driver.  The least
*               significant byte of the least significant word
*               of the AuxType field indicates the number of
*               devices supported by the driver file.  This value
*               should be analogous to the number of DIB's
*               contained in the driver file.  GS/OS will only
*               install the number of devices indicated in the
*               AuxType field.
*
*               GS/OS Device Driver:    FileType = $00BB
*                                       AuxType  = $000001XX where:
*                                                  XX = number of devices.
*
*               An AuxType of $00000108 indicates eight devices.  When
*               building a device driver, the best way to set the
*               FileType and AuxType is to use the Exerciser to get
*               the current file info (GET_FILE_INFO), modify the
*               FileType & AuxType and then SET_FILE_INFO.
*
*****************************************************************
*
* REVISION HISTORY:
*
* MM-DD-YY Version Who Description
*
* 11-16-87 0.00e01 RBM Started initial coding.
*
* 01-10-88 0.00e02 RBM Added new status & control calls.
*                      Fixed startup for dynamic slot numbers.
*
* 01-12-88 0.00e03 RBM Ported core driver routines to disk][.
*                      Completed coding of startup call.
*                      Status & Control code moved.
*                      Code reduction in status & control
*                      Disk switch emulation.
*
* 01-17-88 0.00e04 RBM Appended DISK][ files.
*                      Fixed ZP & Absolute references.
*                      Call translator installed.
*                      Call parameter translation complete.
*                      1st attempt media access.
*                      Added DIBs for slots 1-3.
*                      Seek & Recal fixed (move_sinc_dinc).
*                      Self modifying now in correct bank.
*                      Realignment of IWM code.
*
* 01-30-88 0.00e05 RBM Added format routines.
*
* 02-01-88 0.01a01 RBM 1st alpha release.
*
* 03-08-88 0.04a01 RBM Added set/get partition call.
*
* 03-18-88 0.04a02 RBM Shutdown returns busy for all but last
*                      device to be shutdown.
*
* 06-02-88 0.08a01 RBM Format options to return 140k.
*
* 06-13-88 0.10a01 RBM Repaired slot 2 drive 2 DIB (ProDOS unit number).
*
* 06-22-88 0.10a02 RBM Changed device name from DISK][A to DISK2A.
*
* 07-13-88 0.11b01 RBM Changed DIB name to APPLEDISK5.25
*
* 07-27-88 0.14b01 JOA fixed formating bug for disk2 cards
*                      added this line to fix formating to disk2 card problem
*                      in wr_adr_16
*                      lda     |q6h,x          ;into write sense-setup mode
*
* 07-27-88 0.14b01 JOA added ibwpbit status reporting from rwts level
*                      back on every call so the READ routine can maintain
*                      the WriteProtect bit in the status word on every call.
*                      Also whenever the rwts reports OFFLINE the WP status bit
*                      is also cleared (along with the online bit).
*
* 07-27-88 0.14b1  JOA added write protect status bit clearing whenever
*                      READ or WRITE call senses the 'fake' timeout and
*                      returns the pseudo Disk Switched error.  Likewise in
*                      the STATUS call, the Write Protected bit is cleared
*                      before returning the status word if the timeout has
*                      occured and the volume may have been switched.
*
* 08-13-88 0.18b2  RBM Both read and write now check for a request count
*                      of $00000000 prior to executing the call.
*
* 08-16-88 f1      FAB changed sta |wrefd1+1 to sta >wrefd1+1 so it writes
*                      into the correct bank of memory. disk2/rwts.nibblize
*                                                         (prenib16)
*
* 08-17-88 f3      RBM Block number does not need validated if not
*                      a read or write call.
*
* 11-11-88	   RBM Transfer count on a status call to request the
*			configuration parameters now returns a value
*			of $00000002 in the transfer count rather than
*			a value equal to the request count.
*
* 02-23-89	RBM	Readblock now updates internal status so that subsequent
*			status call indicates write protect sense from previous
*			media access.
*
* 05-17-89	RBM	An experiment: Disable history so that write protect
*			is never returned from a status call.  Jim Merritt will
*			give final disposition as to whether this change is to
*			be checked in or not.
*
* 09-07-90	MVS	Increased reading speed 200%,increased writing speed 275%.
*
* 09-12-90	GAB	The driver is now restartable!
*			Added device specific status call:  get_last_volnum ($8001).
*			This status call returns the volume number that was read from
*			the disk media on the last media access.
*			Added device specific control call:  set_next_volnum ($8001).
*			This control call allows the caller to specify the volume
*			number to be placed in the sector headers when a diskette is
*			formatted.  The volume number is reset to 0 after the format
*			call is accomplished, which means that the volume number
*			normally defaults to 254.
*
* 03-08-91	GAB	Changed flags word in the format options lists to show
*			that this driver is an Apple // Format driver only.
*
* 03-22-91	GAB	¥ Fixed status call to return write protected status.
*			¥ Fixed xlate_call to ensure that the request count is an
*			even multiple of the block size.
*			¥ Combined all calls that have no function into a single
*			code sequence (see Open)
*			¥ Removed format_mode table, since it wasn't being used
*			¥ Remove set_format call, since it served no purpose
*			¥ Removed set_ctrl (SetConfigParms), since it served no
*			useful purpose.
*
* 04/14/91	GAB	¥ Bug fix - LYP281LWA - SetNextVolnum now restricts the
*			supplied volume number to 0-254.
*			¥ Bug fix - LYP282LWA - DControl Format call now ignores
*			the supplied request count.
*
* 07/31/91	GAB	¥ Altered Startup code to check for a physical drive
*			connected to the slot.  If no drive is found, Startup
*			returns error code $28 (No Device Connected) to the
*			device dispatcher, which forces the dispatcher to skip
*			installing the DIB into the device list.
*
* 09/18/91	GAB	¥ Fixed Startup call to save and restore the contents
*			of CYAREG around the call to ChkDrv0.
*
* 10/02/91	GAB	¥ Changed format options flags to show that this
*			driver supports Apple ][ file systems ONLY.
*
* 10/09/91	GAB	¥ Added delay in startup code between the time
*			that the drive motor is turned on and the subroutine
*			call which checks for the presence of the drive.  This
*			was done to allow either the motor to come up to speed
*			or the data line to stabilize (in the case of a
*			nonexistent drive).  Without the delay, there was
*			enough transient noise on the line for the driver
*			to recognize the existence of a phantom second
*			drive.
*
**********************************************************************
* System 6.0.1
*
* 08/12/92	DAL	¥ Removed check for drive being present.  For some
*			people, it was deciding they had no drive when they
*			actually did.  Version $206A.
*
* 2-Apr-93	JCM	¥ During startup we now clear the internal/external
*			slot number in our dibs as we scan each slot. This
*			stops drives that are attached to a card from disappearing
*			when we switch to P8 and come back.
*
* 2-Apr-93	SS	¥Version $2060 for 6.0.1 (final)
*
*****************************************************************
		
sltromsel	equ	$E1C02D		;slot rom select 
shadow		equ	$E1C035		;shadow register 
cyareg		equ	$E1C036		;speed and motor on detect 
statereg	equ	$E1C068		;state register 
clrrom		equ	$E1CFFF		;switch out $c8 roms
phaseoff	equ	$E1C080		; stepper phase off.
phaseon		equ	$E1C081		; stepper phase on.
ph0off		equ	$E1C080		; phase 0 off
ph0on		equ	$E1C081		; phase 0 on
ph1off		equ	$E1C082		; phase 1 off
ph1on		equ	$E1C083		; phase 1 on
ph2off		equ	$E1C084		; phase 2 off
ph2on		equ	$E1C085		; phase 2 on
ph3off		equ	$E1C086		; phase 3 off
ph3on		equ	$E1C087		; phase 3 on
motoroff	equ	$E1C088		; disk motor off
motoron		equ	$E1C089		; disk motor on
drv0en		equ	$E1C08A		; select drive 0
drv1en		equ	$E1C08B		; select drive 1
q6l		equ	$E1C08C		; Q6 low
q6h		equ	$E1C08D		; Q6 high
q7l		equ	$E1C08E		; Q7 low
q7h		equ	$E1C08F		; Q7 high

;		absolute zero page used by low level routines.

ibtype		equ	$000000		; RWTS IOB Type
ibslot		equ	$000001		; slot * 16
ibdrvn		equ	$000002		; drive number  ($01 or $02)
ibvol		equ	$000003		; volume number ($00 = wildcard)
ibtrk		equ	$000004		; track number  ($00 - $34)
ibsect		equ	$000005		; sector number ($00 - $0F)
ibwpbit		equ	$000006		; Word = $0000 or $0004 if WP true
ibbufp		equ	$000008		; I/O buffer pointer (in bank $00)

ibcmd		equ	$00000C		; RWTS command: $00 = Null
ibstat		equ	$00000D		; RWTS status:  $10 = write protected
ibsmod		equ	$00000E		; volume number of disk found in drive

iobpsn		equ	$00000F		; last slot number accessed
iobpdn		equ	$000010		; last drive number accessed

d2_dct		equ	$000011		; 4 bytes for device char. table
wtemp		equ	$000018
midnib1		equ	wtemp+1
midnib2		equ	wtemp+2
lstnib		equ	wtemp+3
yend		equ	wtemp+4
intrtry		equ	$000022		; read:   irq retry count
blktemp		equ	$000027		; local temp: block number
buftemp		equ	$000028		; local temp: buffer pointer
buf		equ	$000029		; local temp:
sector		equ	$00002A		; local temp: sector number
retryadr	equ	$00002B		; local temp: sector find retries
recalcnt	equ	$00002D		; local temp: recalibrate count
blkcount	equ	$00002E		; blocks required to satisfy blockcnt
seekwait	equ	$00002F		; <>0 if seek delay needed
irqmask		equ	$000030		; entry 'I' bit
temp		equ	$000031		; just a temp
aa		equ	$000032		; used by formatter
idx		equ	$000033		; used by formatter
nsync		equ	$000034		; used by formatter
nvol		equ	$000035		; used by formatter
trkretry	equ	$000036		; used by formatter

l1		equ	$40
l2		equ	$44
l3		equ	$48

w1		equ	$4c


zp_size		equ	$000050		; must be even



found		equ	$00D000		; used by formatter
dnibl		equ	$00D096-$96	; for now, put nibblize tables here
dnibl_dest	equ	$00D096
twobit3		equ	$00D0A0
twobit2		equ	$00D0C0
endmrks		equ	$00D0C4
twobit1		equ	$00D0E0
dnibl2		equ	$00D100
dnibl3		equ	$00D101
dnibl4		equ	$00D102
nibl		equ	$00D103
nbuf2		equ	$00D200
ontable		equ	$00D256
offtable	equ	$00D25F
curtrk		equ	$00D268
drv0trk		equ	$00D269
retrycnt	equ	$00D279		; local temp: I/O retries
seekcnt		equ	$00D27A		; seek retry count
count		equ	$00D27B
trkcnt		equ	$00D27B		; half tracks moved
last		equ	$00D27B
csum		equ	$00D27C
csstv		equ	$00D27D		; rdadr:  cksum
sect		equ	$00D27E		; rdadr:  sec
track		equ	$00D27F		; rdadr:  track
volume		equ	$00D280		; rdadr:  volume
prior		equ	$00D281
trkn		equ	$00D282
montimel	equ	$00D283
montimeh	equ	$00D284
dvmot		equ	$E8		; I have no idea what this is
sys_buffer	equ	$00AA00		; bank $00 system buffer


slot_num	equ	$002E		; (w)  slot number
unit_num	equ	$0030		; (w)  unit number
dib_dev_num	equ	$003E		; (w)  Device number of this device
driver_unit	equ	$0040		; (w)  driver's internal DIB data
dib_pro_unit	equ	$0042		; (w)  ProDOS unit number
max_command	equ	$0009		; commands $0009 - $ffff undefined
dev_name	equ	$000E		; (32) count and ascii name (pstring)
blk_cnt		equ	$000A		; (lw) number of blocks

current_version	equ	$2060		;2-Apr-93 SS

;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

		ENTRY	alloff
		ENTRY	arm_event
		ENTRY	check_block
		ENTRY	chkdrv
		ENTRY	chkprev
		ENTRY	chkpv2
		ENTRY	ckdrts
		ENTRY	close
		ENTRY	clrphase
		ENTRY	control
		ENTRY	ctrl_list
		ENTRY	dev_reset
		ENTRY	dev_stat
		ENTRY	dib_1
		ENTRY	dib_2
		ENTRY	dib_3
		ENTRY	dib_4
		ENTRY	dib_5
		ENTRY	dib_6
		ENTRY	dib_7
		ENTRY	dib_8
		ENTRY	dib_9
		ENTRY	dib_a
		ENTRY	dib_b
		ENTRY	dib_c
		ENTRY	dib_d
		ENTRY	dib_e
		ENTRY	disarm_event
		ENTRY	disk2_task
		ENTRY	dispatch
		ENTRY	drivsel
		ENTRY	drvindx
		ENTRY	dstat1
		ENTRY	dstat2
		ENTRY	dstat3
		ENTRY	dstat4
		ENTRY	dstat5
		ENTRY	dstat6
		ENTRY	dstat7
		ENTRY	dstat8
		ENTRY	dstat9
		ENTRY	dstatB
		ENTRY	dstatC
		ENTRY	dstatD
		ENTRY	dstatE
		ENTRY	flush
		ENTRY	format
		ENTRY	format_media
		ENTRY	get_ctrl
		ENTRY	get_format
		ENTRY	get_partition
		ENTRY	get_wait
		ENTRY	media_eject
		ENTRY	msw2
		ENTRY	mswait
		ENTRY	myseek
		ENTRY	ok
		ENTRY	ok1
		ENTRY	open
		ENTRY	prenib1
		ENTRY	prenib16
		ENTRY	prenib2
		ENTRY	prenib3
		ENTRY	preset_dsw
		ENTRY	prn1
		ENTRY	prn2
		ENTRY	prn3
		ENTRY	rd4
		ENTRY	rd5
		ENTRY	rd6
		ENTRY	rd7
		ENTRY	rd8
		ENTRY	rda1
		ENTRY	rdadr16,rdadr16E
		ENTRY	rderr
		ENTRY	rderr1
		ENTRY	rderr2
		ENTRY	rdok
		ENTRY	rdright
		ENTRY	read
		ENTRY	read16
		ENTRY	recal1
		ENTRY	ref1
		ENTRY	ref2
		ENTRY	ref3
		ENTRY	rsetphse
		ENTRY	rttrk
		ENTRY	rwts1
		ENTRY	seek
		ENTRY	set_ctrl
		ENTRY	set_dev_stat
		ENTRY	set_format
		ENTRY	set_partition
		ENTRY	set_partn
		ENTRY	set_wait
		ENTRY	set_xfer_cnt
		ENTRY	settrk
		ENTRY	shutdn
		ENTRY	startup
		ENTRY	status
		ENTRY	trytrk
		ENTRY	trytrk2
		ENTRY	verify16
		ENTRY	wdata1
		ENTRY	wdata4
		ENTRY	wdne1
		ENTRY	wdone
		ENTRY	wexit
		ENTRY	wmod1
		ENTRY	wmod2
		ENTRY	wmod3
		ENTRY	wnibl
		ENTRY	wnibl7
		ENTRY	wnibl9
		ENTRY	wr16
		ENTRY	write
		ENTRY	write16
		ENTRY	write_fmt_16
		ENTRY	wrtodd
		ENTRY	xlate_call
		entry	highsc,lowsc,nsec,nsec2,secleft,tk_base,Tscmap,cbl,mts
		entry	seccnt,nxtwrt
		entry	cblE,pdf
		
		EJECT


;;		macros.

		MACRO
		skip1
		dc.b	$24
		ENDM




*****************************************************************
*
* The following table is the header required for all loaded
* drivers which consists of the following:
*
*               Word    Offset from start to 1st DIB
*               Word    Number of DIBs
*               Word    Offset from start to 1st control list
*               Word    Offset from start to 2nd control list
*               etc.
*
*****************************************************************
		export	driver_data	
driver_data	PROC	align		256
		export	here
here
		dc.w	dib_1-here	; offset to 1st DIB
		dc.w	14		; number of devices
		dc.w	ctrl_list-here	; offset to 1st control list
		dc.w	ctrl_list-here	; offset to 2nd control list
		dc.w	ctrl_list-here	; offset to 3rd control list
		dc.w	ctrl_list-here	; offset to 4th control list
		dc.w	ctrl_list-here	; offset to 5th control list
		dc.w	ctrl_list-here	; offset to 6th control list
		dc.w	ctrl_list-here	; offset to 7th control list
		dc.w	ctrl_list-here	; offset to 8th control list
		dc.w	ctrl_list-here	; offset to 9st control list
		dc.w	ctrl_list-here	; offset to And control list
		dc.w	ctrl_list-here	; offset to Brd control list
		dc.w	ctrl_list-here	; offset to Cth control list
		dc.w	ctrl_list-here	; offset to Dth control list
		dc.w	ctrl_list-here	; offset to Eth control list
*
* The following are the driver control parameter lists.  Since
* the DISK][ has no real control lists, one common list is shared
* among all DISK][ devices.
*
		export	ctrl_list
ctrl_list	dc.w	0		; 0 bytes in parameter list
		export	default_list
default_list	dc.w	0		; 0 bytes in default list


		eject
*****************************************************************
*
* The following are tables of format options for each device.
* The format option tables have the following structure:
*
*               Word    Number of entries in list
*               Word    Display count (number of head links)
*               Word    Recommended default option
*               Word    Option that current online media is formatted with
*               Entries 16 bytes per entry in the format list
*
* The twenty byte structure for each entry in the format list
* is as follows:
*
*               Word    Media variables reference number
*               Word    Link to reference number n.
*               Word    Flags / Format environment
*               Long    Number of blocks supported by device
*               Word    Block size
*               Word    Interleave factor

*               Long    Number of bytes defined by flag
*
* Bit definition within the flags word is as follows:
*  ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___
* |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |
* | F | E | D | C | B | A | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 |
* |___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |___|__ Format
*   |   |   |   |   |   |   |   |   |   |   |   |   |___|__________ Flags
*   |___|___|___|___|___|___|___|___|___|___|___|__________________ Reserved
*
* Format Bit Definition: 00   Universal format
*                        01   Apple Format
*                        02   NonApple Format
*                        11   Not Valid
*
* Flag Bit Definition:   00   Size is in bytes
*                        01   Size is in Kb
*                        02   Size is in Mb
*                        11   Size is in Gb
*
*****************************************************************
		export	format_tbl
format_tbl
		dc.w	2		; 2 entries this list
		dc.w	1		; 1 display entry
		dc.w	1		; recommended option is 1
		dc.w	0		; current media formatted w/option
*
* List for entry reference number 1.
*
		dc.w	1		; reference number 1
		dc.w	2		; ref num of linked entry
		dc.w	7		; flags = Apple //, size in K
		dc.l	280		; block count
		dc.w	512		; block size
		dc.w	0		; interleave factor
		dc.w	140		; device byte count in kilobytes
*
* List for entry reference number 2.
*
		dc.w	2		; reference number 1
		dc.w	0		; ref num of linked entry
		dc.w	7		; flags = Apple //, size in K
		dc.l	560		; block count
		dc.w	256		; block size
		dc.w	0		; interleave factor
		dc.w	140		; device byte count in kilobytes

		eject
*****************************************************************
*
*               Link Pointer
*               Entry Pointer
*               Device Characteristics
characteristics	equ	%0000101111101100
*  ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___
* |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |
* | F | E | D | C | B | A | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 |
* |___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |_ RESERVED
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |_____ RESERVED
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |_________ REMOVABLE
*   |   |   |   |   |   |   |   |   |   |   |   |   |_____________ FORMAT
*   |   |   |   |   |   |   |   |   |   |   |   |_________________ RESERVED
*   |   |   |   |   |   |   |   |   |   |   |_____________________ READ
*   |   |   |   |   |   |   |   |   |   |_________________________ WRITE
*   |   |   |   |   |   |   |   |   |_____________________________ BLOCK DEVICE
*   |   |   |   |   |   |   |   |_________________________________ SPEED GROUP (LSB)
*   |   |   |   |   |   |   |_____________________________________ SPEED GROUP (MSB)
*   |   |   |   |   |   |_________________________________________ FIXED NAME
*   |   |   |   |   |_____________________________________________ RESTARTABLE
*   |   |   |   |_________________________________________________ BUSY
*   |   |   |_____________________________________________________ LINKED
*   |   |_________________________________________________________ GENERATED
*   |_____________________________________________________________ RAM/ROM DEV
*
*               Block Count
*               Device Name
*               Slot Number
*               Unit Number
*               Device ID Number
*               Head Device Link
*               Forward Device Link
*               Extended DIB Pointer
*               DIB Device Number
*
*****************************************************************
		export	dib_1
dib_1
		dc.l	dib_2		; link pointer to second DIB
		dc.l	dispatch	; entry pointer
		dc.w	characteristics
		dc.l	280		; block count
		dc.b	14		; device name (length & ascii)
		dc.b	'APPLEDISK5.25A                 ' 
		dc.w	7		; slot #
		dc.w	1		; unit #
		dc.w	current_version	; version # 2.01
		dc.w	0		; device ID number
		dc.w	0		; head device link
		dc.w	0		; forward device link
		dc.l	0		; Extended DIB pointer
		dc.w	0		; DIB Device Number
		dc.w	0		; drivers internal device number
		dc.w	$0070		; driver ProDOS unit for RWTS

		export	dib_2
dib_2
		dc.l	dib_3		; link pointer
		dc.l	dispatch	; entry pointer
		dc.w	characteristics
		dc.l	280		; block count
		dc.b	14		; device name (length & ascii)
		dc.b	'APPLEDISK5.25A                 ' 
		dc.w	7		; slot #
		dc.w	2		; unit #
		dc.w	current_version	; version # 2.01
		dc.w	0		; device ID number
		dc.w	0		; head device link
		dc.w	0		; forward device link
		dc.l	0		; Extended DIB pointer
		dc.w	0		; DIB Device Number
		dc.w	1		; drivers internal device number
		dc.w	$00F0		; driver ProDOS unit for RWTS

		eject
		export	dib_3
dib_3
		dc.l	dib_4		; link pointer
		dc.l	dispatch	; entry pointer
		dc.w	characteristics
		dc.l	280		; block count
		dc.b	14		; device name (length & ascii)
		dc.b	'APPLEDISK5.25A                 ' 
		dc.w	6		; slot #
		dc.w	1		; unit #
		dc.w	current_version	; version # 2.01
		dc.w	0		; device ID number
		dc.w	0		; head device link
		dc.w	0		; forward device link
		dc.l	0		; Extended DIB pointer
		dc.w	0		; DIB Device Number
		dc.w	2		; drivers internal device number
		dc.w	$0060		; driver ProDOS unit for RWTS

		export	dib_4
dib_4
		dc.l	dib_5		; link pointer
		dc.l	dispatch	; entry pointer
		dc.w	characteristics
		dc.l	280		; block count
		dc.b	14		; device name (length & ascii)
		dc.b	'APPLEDISK5.25A                 ' 
		dc.w	6		; slot #
		dc.w	2		; unit #
		dc.w	current_version	; version # 2.01
		dc.w	0		; device ID number
		dc.w	0		; head device link
		dc.w	0		; forward device link
		dc.l	0		; Extended DIB pointer
		dc.w	0		; DIB Device Number
		dc.w	3		; drivers internal device number
		dc.w	$00E0		; driver ProDOS unit for RWTS

		export	dib_5
dib_5
		dc.l	dib_6		; link pointer
		dc.l	dispatch	; entry pointer
		dc.w	characteristics
		dc.l	280		; block count
		dc.b	14		; device name (length & ascii)
		dc.b	'APPLEDISK5.25A                 ' 
		dc.w	5		; slot #
		dc.w	1		; unit #
		dc.w	current_version	; version # 2.01
		dc.w	0		; device ID number
		dc.w	0		; head device link
		dc.w	0		; forward device link
		dc.l	0		; Extended DIB pointer
		dc.w	0		; DIB Device Number
		dc.w	4		; drivers internal device number
		dc.w	$0050		; driver ProDOS unit for RWTS

		eject
		export	dib_6
dib_6
		dc.l	dib_7		; link pointer
		dc.l	dispatch	; entry pointer
		dc.w	characteristics
		dc.l	280		; block count
		dc.b	14		; device name (length & ascii)
		dc.b	'APPLEDISK5.25A                 ' 
		dc.w	5		; slot #
		dc.w	2		; unit #
		dc.w	current_version	; version # 2.01
		dc.w	0		; device ID number
		dc.w	0		; head device link
		dc.w	0		; forward device link
		dc.l	0		; Extended DIB pointer
		dc.w	0		; DIB Device Number
		dc.w	5		; drivers internal device number
		dc.w	$00D0		; driver ProDOS unit for RWTS

		export	dib_7
dib_7
		dc.l	dib_8		; link pointer
		dc.l	dispatch	; entry pointer
		dc.w	characteristics
		dc.l	280		; block count
		dc.b	14		; device name (length & ascii)
		dc.b	'APPLEDISK5.25A                 ' 
		dc.w	4		; slot #
		dc.w	1		; unit #
		dc.w	current_version	; version # 2.01
		dc.w	0		; device ID number
		dc.w	0		; head device link
		dc.w	0		; forward device link
		dc.l	0		; Extended DIB pointer
		dc.w	0		; DIB Device Number
		dc.w	6		; drivers internal device number
		dc.w	$0040		; driver ProDOS unit for RWTS

		export	dib_8
dib_8
		dc.l	dib_9		; link pointer
		dc.l	dispatch	; entry pointer
		dc.w	characteristics
		dc.l	280		; block count
		dc.b	14		; device name (length & ascii)
		dc.b	'APPLEDISK5.25A                 ' 
		dc.w	4		; slot #
		dc.w	2		; unit #
		dc.w	current_version	; version # 2.01
		dc.w	0		; device ID number
		dc.w	0		; head device link
		dc.w	0		; forward device link
		dc.l	0		; Extended DIB pointer
		dc.w	0		; DIB Device Number
		dc.w	7		; drivers internal device number
		dc.w	$00C0		; driver ProDOS unit for RWTS

		eject
		export	dib_9
dib_9
		dc.l	dib_a		; link pointer
		dc.l	dispatch	; entry pointer
		dc.w	characteristics
		dc.l	280		; block count
		dc.b	14		; device name (length & ascii)
		dc.b	'APPLEDISK5.25A                 ' 
		dc.w	3		; slot #
		dc.w	1		; unit #
		dc.w	current_version	; version # 2.01
		dc.w	0		; device ID number
		dc.w	0		; head device link
		dc.w	0		; forward device link
		dc.l	0		; Extended DIB pointer
		dc.w	0		; DIB Device Number
		dc.w	8		; drivers internal device number
		dc.w	$0030		; driver ProDOS unit for RWTS

		export	dib_a
dib_a
		dc.l	dib_b		; link pointer
		dc.l	dispatch	; entry pointer
		dc.w	characteristics
		dc.l	280		; block count
		dc.b	14		; device name (length & ascii)
		dc.b	'APPLEDISK5.25A                 ' 
		dc.w	3		; slot #
		dc.w	2		; unit #
		dc.w	current_version	; version # 2.01
		dc.w	0		; device ID number
		dc.w	0		; head device link
		dc.w	0		; forward device link
		dc.l	0		; Extended DIB pointer
		dc.w	0		; DIB Device Number
		dc.w	9		; drivers internal device number
		dc.w	$00B0		; driver ProDOS unit for RWTS

		export	dib_b
dib_b
		dc.l	dib_c		; link pointer
		dc.l	dispatch	; entry pointer
		dc.w	characteristics
		dc.l	280		; block count
		dc.b	14		; device name (length & ascii)
		dc.b	'APPLEDISK5.25A                 ' 
		dc.w	2		; slot #
		dc.w	1		; unit #
		dc.w	current_version	; version # 2.01
		dc.w	0		; device ID number
		dc.w	0		; head device link
		dc.w	0		; forward device link
		dc.l	0		; Extended DIB pointer
		dc.w	0		; DIB Device Number
		dc.w	10		; drivers internal device number
		dc.w	$0020		; driver ProDOS unit for RWTS

		eject
		export	dib_c
dib_c
		dc.l	dib_d		; link pointer
		dc.l	dispatch	; entry pointer
		dc.w	characteristics
		dc.l	280		; block count
		dc.b	14		; device name (length & ascii)
		dc.b	'APPLEDISK5.25A                 ' 
		dc.w	2		; slot #
		dc.w	2		; unit #
		dc.w	current_version	; version # 2.01
		dc.w	0		; device ID number
		dc.w	0		; head device link
		dc.w	0		; forward device link
		dc.l	0		; Extended DIB pointer
		dc.w	0		; DIB Device Number
		dc.w	11		; drivers internal device number
		dc.w	$00A0		; driver ProDOS unit for RWTS

		export	dib_d
dib_d
		dc.l	dib_e		; link pointer
		dc.l	dispatch	; entry pointer
		dc.w	characteristics
		dc.l	280		; block count
		dc.b	14		; device name (length & ascii)
		dc.b	'APPLEDISK5.25A                 ' 
		dc.w	1		; slot #
		dc.w	1		; unit #
		dc.w	current_version	; version # 2.01
		dc.w	0		; device ID number
		dc.w	0		; head device link
		dc.w	0		; forward device link
		dc.l	0		; Extended DIB pointer
		dc.w	0		; DIB Device Number
		dc.w	12		; drivers internal device number
		dc.w	$0010		; driver ProDOS unit for RWTS

		export	dib_e
dib_e
		dc.l	0		; link pointer
		dc.l	dispatch	; entry pointer
		dc.w	characteristics
		dc.l	280		; block count
		dc.b	14		; device name (length & ascii)
		dc.b	'APPLEDISK5.25A                 ' 
		dc.w	1		; slot #
		dc.w	2		; unit #
		dc.w	current_version	; version # 2.01
		dc.w	0		; device ID number
		dc.w	0		; head device link
		dc.w	0		; forward device link
		dc.l	0		; Extended DIB pointer
		dc.w	0		; DIB Device Number
		dc.w	13		; drivers internal device number
		dc.w	$0090		; driver ProDOS unit for RWTS

		eject
*****************************************************************
*
* The following table is used to dispatch to GS/OS driver
* functions.
*
*****************************************************************
		export	dispatch_table
dispatch_table
		dc.w	startup
		dc.w	open
		dc.w	read
		dc.w	write
		dc.w	close
		dc.w	status
		dc.w	control
		dc.w	flush
		dc.w	shutdn

		export	status_table
status_table
		dc.w	dev_stat
		dc.w	get_ctrl
		dc.w	get_wait
		dc.w	get_format
		dc.w	get_partition

		export	control_table
control_table
		dc.w	dev_reset
		dc.w	format
		dc.w	media_eject
		dc.w	set_ctrl
		dc.w	set_wait
		dc.w	set_format
		dc.w	set_partn
		dc.w	arm_event
		dc.w	disarm_event
		dc.w	set_partition

		eject
*****************************************************************
*
* The following table contains the device status for each
* device supported by this driver.
*
* Encoding of status for a block device is as follows:
*  ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___
* |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |
* | F | E | D | C | B | A | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 |
* |___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |__ DISK SW
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |______ INTERRUPT
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |__________ WRITE PROT
*   |   |   |   |   |   |   |   |   |   |   |   |   |______________ 0 RESERVED
*   |   |   |   |   |   |   |   |   |   |   |   |__________________ ONLINE
*   |   |___|___|___|___|___|___|___|___|___|______________________ 0 RESERVED
*   |______________________________________________________________ BLK FLAG
*
*****************************************************************
		export	dstat_tbl
dstat_tbl
		dc.w	dstat1		; pointer to status for DIB 1 device
		dc.w	dstat2		; pointer to status for DIB 2 device
		dc.w	dstat3		; pointer to status for DIB 3 device
		dc.w	dstat4		; pointer to status for DIB 4 device
		dc.w	dstat5		; pointer to status for DIB 5 device
		dc.w	dstat6		; pointer to status for DIB 6 device
		dc.w	dstat7		; pointer to status for DIB 7 device
		dc.w	dstat8		; pointer to status for DIB 8 device
		dc.w	dstat9		; pointer to status for DIB 9 device
		dc.w	dstat1		; pointer to status for DIB A device
		dc.w	dstatB		; pointer to status for DIB B device
		dc.w	dstatC		; pointer to status for DIB C device
		dc.w	dstatD		; pointer to status for DIB D device
		dc.w	dstatE		; pointer to status for DIB E device

		export	dstat1
dstat1		dc.b	$10,$00		; device general status word
		dc.l	280		; device block count

		export	dstat2
dstat2		dc.b	$10,$00		; device general status word
		dc.l	280		; device block count

		export	dstat3
dstat3		dc.b	$10,$00		; device general status word
		dc.l	280		; device block count

		export	dstat4
dstat4		dc.b	$10,$00		; device general status word
		dc.l	280		; device block count

		export	dstat5
dstat5		dc.b	$10,$00		; device general status word
		dc.l	280		; device block count

		export	dstat6
dstat6		dc.b	$10,$00		; device general status word
		dc.l	280		; device block count

		export	dstat7
dstat7		dc.b	$10,$00		; device general status word
		dc.l	280		; device block count

		export	dstat8
dstat8		dc.b	$10,$00		; device general status word
		dc.l	280		; device block count

		export	dstat9
dstat9		dc.b	$10,$00		; device general status word
		dc.l	280		; device block count

		export	dstatA
dstatA		dc.b	$10,$00		; device general status word
		dc.l	280		; device block count

		export	dstatB
dstatB		dc.b	$10,$00		; device general status word
		dc.l	280		; device block count

		export	dstatC
dstatC		dc.b	$10,$00		; device general status word
		dc.l	280		; device block count

		export	dstatD
dstatD		dc.b	$10,$00		; device general status word
		dc.l	280		; device block count

		export	dstatE
dstatE		dc.b	$10,$00		; device general status word
		dc.l	280		; device block count

		eject
*****************************************************************
*
* The following flag is initially set to zero on loading of the
* device driver.  If DISK][ hardware is found, a VBL task is
* installed to simulate disk switched errors for the DISK][.
* If this task is intalled, the VBL_TASK_FLAG will be nonzero.
*
*****************************************************************
		export	vbl_task_flag
vbl_task_flag
		dc.w	0		; nonzero if task already installed
		export	access_flag
access_flag
		dc.w	0		; 1=256 byte, 2=512 byte

*****************************************************************
*
* The following flag is is used to generate a unique device
* name for each DISK][ device during startup.
*
*****************************************************************
		export	unique_name
unique_name
		dc.b	'A '		; Always start with DISK][A

*****************************************************************
*
* The following table is used by the VBL task to simulate
* disk switched status for device access.
*
*****************************************************************
		export	dsw_timers
dsw_timers
		dc.w	0		; timer for DIB device #1
		dc.w	0		; timer for DIB device #2
		dc.w	0		; timer for DIB device #3
		dc.w	0		; timer for DIB device #4
		dc.w	0		; timer for DIB device #5
		dc.w	0		; timer for DIB device #6
		dc.w	0		; timer for DIB device #7
		dc.w	0		; timer for DIB device #8
		dc.w	0		; timer for DIB device #9
		dc.w	0		; timer for DIB device #A
		dc.w	0		; timer for DIB device #B
		dc.w	0		; timer for DIB device #C
		dc.w	0		; timer for DIB device #D
		dc.w	0		; timer for DIB device #E

		eject
*****************************************************************
*
* This data area is used to save absolute zero page locations
* used on driver calls which are translated to the DISK][
* core routines ported from the SOS driver.
*
*****************************************************************
		export	azp_save
azp_save
		DS.B	zp_size

		eject
*****************************************************************
*
* The following table is an image of the RWTS I/O Block
* maintained in the current bank and used to translate calls
* into bank $00 prior to calling RWTS.
*
*****************************************************************
		export	my_iob
my_iob
		export	my_ibtype
my_ibtype	dc.b	$01		; RWTS IOB Type
		export	my_ibslot
my_ibslot	dc.b	$60		; slot * 16
		export	my_ibdrvn
my_ibdrvn	dc.b	$01		; drive number  ($01 or $02)
		export	my_ibvol
my_ibvol	dc.b	$00		; volume number ($00 = wildcard)
		export	my_ibtrk
my_ibtrk	dc.b	$00		; track number  ($00 - $34)
		export	my_ibsect
my_ibsect	dc.b	$00		; only used by format routine
		export	my_ibwpbit
my_ibwpbit	dc.w	0		; word status from rwts =0000/0004=WP
		export	my_ibbufp
my_ibbufp	dc.l	0		; I/O buffer pointer (in bank $00)
		export	my_ibcmd
my_ibcmd	dc.b	$01		; RWTS command
		export	my_ibstat
my_ibstat	dc.b	$00		; RWTS status
		export	my_ibsmod
my_ibsmod	dc.b	$00		; volume number of disk found in drive
		export	iobpsnxx
iobpsnxx	dc.b	$00		; last slot number accessed
		export	iobpdnxx
iobpdnxx	dc.b	$00		; last drive number accessed
*
* The followint is the device characteristics table for the Disk][
*
		export	d2_ibdct
d2_ibdct	dc.b	$00		; Disk][
		dc.b	$01		; Fixed parameter
		dc.b	$EF,$D8		; Disk][ Motor on time

		entry	format_volnum
format_volnum	dc.w	$00		; volume # to use when formatting

		entry	rwts_volnum
rwts_volnum	dc.w	$00		; volume # to pass to RWTS

		eject
*****************************************************************
*
* The following tables are used to select the interleave for
* the Disk][.  Note that each block size may require a specific
* interleave.
*
*****************************************************************
		export	interleave_512
interleave_512		

		dc.b	$0,$8,$1,$9,$2,$a,$3,$b,$4,$c,$5
		dc.b	$d,$6,$e,$7,$f
		

		export	interleave_256
interleave_256
		dc.b	0,$7,$e,$6,$d,$5,$c,$4,$b,$3
		dc.b	$a,$2,$9,$1,$8,$f

		eject
*****************************************************************
*
* 7-bit to 6-bit 'deniblize' table (16-sector format)
*
* Valid codes $96 to $FF only.
*
* Codes with more than one pair of adjacent zeroes or with no
* adjacent ones (except bit 7) are excluded.
*
* nibls in the ranges of $a0-$a3, $c0-$c7, $e0-$e3 are used for
* other tables since no valid nibls are in these ranges.
*
*****************************************************************
		export	my_dnibl
my_dnibl
		dc.b	$00,$04
		dc.b	$FF,$FF,$08,$0C
		dc.b	$FF,$10,$14,$18
		export	my_twobit3
my_twobit3	dc.b	$00,$80,$40,$C0	; used in fast prenib as lookup for 2-bi
		dc.b	$FF,$FF,$1C,$20
		dc.b	$FF,$FF,$FF,$24
		dc.b	$28,$2C,$30,$34
		dc.b	$FF,$FF,$38,$3C
		dc.b	$40,$44,$48,$4C
		dc.b	$FF,$50,$54,$58
		dc.b	$5C,$60,$64,$68
		export	my_twobit2
my_twobit2	dc.b	$00,$20,$10,$30	; used in fast prenib.
		export	my_endmrks
my_endmrks	dc.b	$DE,$AA,$EB,$FF	; using 'unused' nibls ($c4 c5 c6 c7)
		dc.b	$FF,$FF,$FF,$6C
		dc.b	$FF,$70,$74,$78
		dc.b	$FF,$FF,$FF,$7C
		dc.b	$FF,$FF,$80,$84
		dc.b	$FF,$88,$8C,$90
		dc.b	$94,$98,$9C,$A0
		export	my_twobit1
my_twobit1	dc.b	$00,$08,$04,$0C	; used in fast prenib.
		dc.b	$FF,$A4,$A8,$AC
		dc.b	$FF,$B0,$B4,$B8
		dc.b	$BC,$C0,$C4,$C8
		dc.b	$FF,$FF,$CC,$D0
		dc.b	$D4,$D8,$DC,$E0
		dc.b	$FF,$E4,$E8,$EC
		dc.b	$F0,$F4,$F8,$FC

		eject
*****************************************************************
*
* Page align the following tables.
* 6-bit to 2-bit conversion tables.
*
* dnibl2 abcdef-->0000fe
* dnibl3 abcdef-->0000dc
* dnibl4 abcdef-->0000ba
*
*****************************************************************
*
* 6-bit to 7-bit nibl conversion table
*
* Codes with more than one pair of adjacent zeroes or with no
* adjacent ones (except b7) are excluded.
*
*****************************************************************
		export	my_dnibl2
my_dnibl2	dc.b	$00
		export	my_dnibl3
my_dnibl3	dc.b	$00
		export	my_dnibl4
my_dnibl4	dc.b	$00
		export	my_nibl
my_nibl		dc.b	$96,$02,$00,$00,$97
		dc.b	$01,$00,$00,$9A,$03,$00,$00,$9B
		dc.b	$00,$02,$00,$9D,$02,$02,$00,$9E
		dc.b	$01,$02,$00,$9F,$03,$02,$00,$A6
		dc.b	$00,$01,$00,$A7,$02,$01,$00,$AB
		dc.b	$01,$01,$00,$AC,$03,$01,$00,$AD
		dc.b	$00,$03,$00,$AE,$02,$03,$00,$AF
		dc.b	$01,$03,$00,$B2,$03,$03,$00,$B3
		dc.b	$00,$00,$02,$B4,$02,$00,$02,$B5
		dc.b	$01,$00,$02,$B6,$03,$00,$02,$B7
		dc.b	$00,$02,$02,$B9,$02,$02,$02,$BA
		dc.b	$01,$02,$02,$BB,$03,$02,$02,$BC
		dc.b	$00,$01,$02,$BD,$02,$01,$02,$BE
		dc.b	$01,$01,$02,$BF,$03,$01,$02,$CB
		dc.b	$00,$03,$02,$CD,$02,$03,$02,$CE
		dc.b	$01,$03,$02,$CF,$03,$03,$02,$D3
		dc.b	$00,$00,$01,$D6,$02,$00,$01,$D7
		dc.b	$01,$00,$01,$D9,$03,$00,$01,$DA
		dc.b	$00,$02,$01,$DB,$02,$02,$01,$DC
		dc.b	$01,$02,$01,$DD,$03,$02,$01,$DE
		dc.b	$00,$01,$01,$DF,$02,$01,$01,$E5
		dc.b	$01,$01,$01,$E6,$03,$01,$01,$E7
		dc.b	$00,$03,$01,$E9,$02,$03,$01,$EA
		dc.b	$01,$03,$01,$EB,$03,$03,$01,$EC
		dc.b	$00,$00,$03,$ED,$02,$00,$03,$EE
		dc.b	$01,$00,$03,$EF,$03,$00,$03,$F2
		dc.b	$00,$02,$03,$F3,$02,$02,$03,$F4
		dc.b	$01,$02,$03,$F5,$03,$02,$03,$F6
		dc.b	$00,$01,$03,$F7,$02,$01,$03,$F9
		dc.b	$01,$01,$03,$FA,$03,$01,$03,$FB
		dc.b	$00,$03,$03,$FC,$02,$03,$03,$FD
		dc.b	$01,$03,$03,$FE,$03,$03,$03,$FF

*
*  nibl buffer for read/write of low 2-bits of each byte.
*
		export	my_nbuf2
my_nbuf2
		dcb.b	86,0

		eject
*****************************************************************
*
* Phase on-, off-time tables in 100-usec intervals. (seek)
*
*****************************************************************
		export	my_ontable
my_ontable	dc.b	$01,$30,$28,$24,$20,$1E,$1D,$1C,$1C
		export	my_offtable
my_offtable	dc.b	$70,$2C,$26,$22,$1F,$1E,$1D,$1C,$1C

		export	my_curtrk
my_curtrk	dc.b	$00
		export	my_drv0trk
my_drv0trk	DS.B	16		; current track (slot/drive 10 - F0)

		entry	my_retrycnt
my_retrycnt	dc.b	0

		entry	my_seekcnt
my_seekcnt	dc.b	0

		export	my_count
my_count
		export	my_last
my_last		dc.b	$00
		export	my_csum
my_csum		dc.b	$00
		export	my_csstv
my_csstv	dc.b	$00
		export	my_sect
my_sect		dc.b	$00
		export	my_track
my_track	dc.b	$00
		export	my_volume
my_volume	dc.b	$00
		export	my_prior
my_prior	dc.b	$00
		export	my_trkn
my_trkn		dc.b	$00

		ENDP
		EJECT
*****************************************************************
*
* DRIVER MAIN ENTRY POINT: DISPATCH
*
* This is the main entry point for the device driver.  The
* routine validates the call number prior to dispatching to
* the requested function.
*
* Call Number: $0000    Function: Startup
*              $0001              Open
*              $0002              Read
*              $0003              Write
*              $0004              Close
*              $0005              Status
*              $0006              Control
*              $0007              Flush
*              $0008              Shutdown
*
* ENTRY: Call via 'JSL'
*     [<drvr_dib_ptr] = Points to the DIB for the device being accessed
*       <drvr_dev_num = Device number of device being accessed
*      <drvr_call_num = Call number
*               A Reg = Call Number
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x x   0
*
* EXIT:   Direct page = unchanged with the exception of <drvr_tran_cnt
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x 0   0  if no error
*                       x x 0 0 0 x x 1   0  if error
*
*****************************************************************
dispatch	PROC
					;using   driver_data
		longa	on
		longi	on

		phb			; save environment
		phk
		plb
		cmp	#max_command	; is it a legal command?
		bge	illegal_req	; no
		tay			; save command #

		ldx	#$0000
save_parms
		lda	<drvr_dev_num,x	; save GS/OS call parameters
		pha
		lda	<drvr_blk_num,x
		pha
		inx
		inx
		cpx	#$000C		; up to but not including DRVR_TRAN_CNT
		bne	save_parms

		tya			; restore command #
		asl	a		; make index to dispatch table
		tax
		jsr	(|dispatch_table,x)
		tay			; save error code

		ldx	#$000A		; number of words to restore
restore_parms
		pla			; restore GS/OS call parameters
		sta	<drvr_blk_num,x
		pla
		sta	<drvr_dev_num,x
		dex
		dex
		bpl	restore_parms
		plb
		bcs	gen_exit	; force error code 0 if flag cleared
		ldy	#no_error
gen_exit
		tya			; restore error code
		rtl
*
* Received an illegal request.  Return with an error.
*
illegal_req
		plb			; restore environement
		lda	#drvr_bad_req	; set error
		sec
		rtl

		ENDP
		EJECT
*****************************************************************
*
* DRIVER CALL:  STARTUP
*
* This routine must prepare the driver to accept all other driver
* calls.
*
* ENTRY: Call via 'JSR'
*     [<drvr_dib_ptr] = Points to the DIB for the device being accessed
*       <drvr_dev_num = Device number of device being accessed
*      <drvr_call_num = Call number
*               A Reg = Call Number
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as program bank
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x x   0
*
* EXIT: via an 'RTS'
*         Direct page = unchanged with the exception of <drvr_tran_cnt
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x 0   0  if no error
*                       x x 0 0 0 x x 1   0  if error
*
*****************************************************************
startup		PROC
		Import	chkdrv0
					;using   driver_data
		longa	on
		longi	on

		ldy	#slot_num	; slot to check for hardware
		lda	[<drvr_dib_ptr],y

*** Added - 2-Apr-93 JCM - Store a clean copy of the slot number back into our
***			   DIB. We'll update the internal/external bit after
***			   we get done searching.

		and	#$0007		;just keep slot number 0-7
		sta	[<drvr_dib_ptr],y		

*** End - 2-Apr-93 JCM

		tay
		xba
		ora	#$C001		; create $Cn01
		tax

		sep	#$20		; 8 bit 'm'
		longa	off

		lda	>0,x		; $Cn01 s/b $20
		cmp	#$20
		bne	@no_disk2
		inx
		inx
		lda	>0,x		; $Cn03 s/b $00
		bne	@no_disk2
		inx
		inx
		lda	>0,x		; $Cn05 s/b $03
		cmp	#$03
		bne	@no_disk2

		lda	#$FF
		tax
		lda	>0,x		; $CnFF s/b $00
		beq	@found_hardware
@no_disk2
		brl	no_disk2
@found_hardware

;;; Removed 12-Aug-92 DAL
;*
;* Disk][ hardware was located.  Make sure there's actually
;* a drive connected.
;*
;		phy			; save slot #
;		phb			; save my DBR
;		pea	$0000		; set to bank 0
;		plb
;		plb
;
;		sep	#$30		; 8-bit registers
;		longa	off
;		longi	off
;		
;		tya			; get $x0 into X
;		asl	a
;		asl	a
;		asl	a
;		asl	a
;		tax
;
;		ldy	#unit_num	; get drive #
;		lda	[<drvr_dib_ptr],y
;		lsr	a		; drive 1 or 2?
;		bcc	@drive_2	; drive 2...
;		lda	|drv0en,x	; enable drive 1
;		bra	@1
;@drive_2
;		lda	|drv1en,x	; enable drive 2
;@1
;		lda	|motoron,x	; turn on the drive motor
;
;		lda	|cyareg		; save current setting
;		pha
;		stz	|cyareg		; slow down for this
;
;		ldy	#3		; delay to let the motor
;@loop
;		jsr	delay		;   come up to speed
;		dey
;		bne	@loop
;
;		jsr	chkdrv0		; see if the motor actually comes on
;		php			; save status
;		ply			; in Y register
;		lda	|motoroff,x	; turn off motor
;		pla			; restore speed register
;		sta	|cyareg
;		tya			; restore processor status into Accumulator
;		bit	#%0000010	; check the Z flag
;		rep	#$10		; back to 16-bit registers
;		longi	on
;		bne	no_device	; if motor not on, then no drive connected!
;		
;		plb			; restore my DBR
;		ply			; and slot #

*
* Correct the slot number in the DIB for internal/external.
*
		lda	>sltromsel
		rep	#$20		; 16 bit 'm'
		longa	on
check_int_ext
		lsr	a
		dey
		bpl	check_int_ext
		bcc	not_ext_slot	; if not an external slot
		ldy	#slot_num	; else update DIB
		lda	[<drvr_dib_ptr],y
		ora	#$0008
		sta	[<drvr_dib_ptr],y
not_ext_slot
		bit	|vbl_task_flag	; has task been installed?
		bmi	task_already_in	; yes
		pea	disk2_task>>16	; else install VBL task
		pea	disk2_task
		_setheartbeat
		bcs	no_disk2	; if cant install task
		pea	$0002		; enable VBL interrupts
		_intsource
		bcs	no_disk2	; if cant get interrupts started
task_already_in
		dec	|vbl_task_flag	; prevent redundant vbl installation
*
* Now generate a unique name for the device.
*
		ldy	#dev_name+14	;'AppleDisk5.25A'
		lda	|unique_name
		sta	[<drvr_dib_ptr],y
		inc	|unique_name
*
* Startup is complete.
*
		lda	#no_error
delay
		clc
		rts
*
* Either the hardware was not found or the vbl task used to detect
* disk switched status could not be installed.  In either case the
* device will be purged.
*
no_device
		plb			; restore DBR
		ply			; clean up stack
no_disk2
		rep	#$20		; 16 bit 'm'
		longa	on
		lda	#drvr_no_dev	; return error to purge device
		sec
		rts

		eject
*****************************************************************
*
* This is the VBL task used to simulate disk switched errors.
* If the counter maintained for a device is nonzero, then it
* can be assumed that the device had a media access within the
* last 1 second.  If the counter maintained for the device is
* zero then the media has not been accessed within the last 1
* second and it is assumed that a switch occured.  Counters are
* preset to 60 (60 vbl cycles = 1 second) after a successful
* media access and are decremented by the vbl task every vbl
* if and only if the counters are nonzero.
*
* Each timer is a word value but is limited to 0 through 60.
*
* ENTRY: Call via 'JSL'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C   E
*                       x x 1 1 0 x x x   0
*
* EXIT: via an 'RTL'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = Unchanged
*               B Reg = Unchanged
*               P Reg = N V M X D I Z C   E
*                       x x 1 1 0 x x x   0
*
*****************************************************************
		entry	disk2_task
		entry	task_counter
disk2_task
		dc.l	0		; room for task header link
task_counter
		dc.w	1		; call me every vbl
		dc.b	$5A,$A5		; task signature word

		longa	off
		longi	off

		phb
		phk
		plb
		ldx	#(14*2)-2	; point at last disksw timer
next_timer
		lda	|dsw_timers,x
		beq	dont_decr	; leave alone if already zero
		dec	|dsw_timers,x	; else time down 1 second
dont_decr
		dex
		dex
		bpl	next_timer	; check all 14 timers
		inc	|task_counter	; reset task count for next vbl
		plb
		rtl

		ENDP
		EJECT
*****************************************************************
*
* DRIVER CALL:  OPEN
*
* This call opens a device in preparation for subsequent read
* from or writes to the device.  The DISK][ driver is a block
* device which does not support the open function and will
* return with no error.
*
* ENTRY: via a 'JSR'
*       <drvr_dev_num = Device Number of current device being accessed
*               A Reg = Call Number
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x x   0
*
* EXIT: via an 'RTS'
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x 0   0  if no error
*                       x x 0 0 0 x x 1   0  if error
*
*****************************************************************
open		PROC
					;using   driver_data
		longa	on
		longi	on

		entry	close,get_partition,dev_reset,media_eject,set_partn
		entry	arm_event,disarm_event,set_partition,flush,set_format
		entry	set_ctrl
close		
get_partition
dev_reset
media_eject
set_partn
arm_event
disarm_event
set_partition
flush
set_format
set_ctrl
		lda	#no_error	; and exit w/o error
		clc
		rts
		
		ENDP
		EJECT
*****************************************************************
*
* DRIVER CALL:  READ
*
* This call executes a read from the device.  The DISK][ device
* driver supports two different block and volume sizes:
*
*               Block Size              Volume Size
*                256 byte                560 block
*                512 byte                280 block
*
* The DIB is configured for the 512 byte 280 block format.  In
* order to support DOS3.3 file system translators this driver
* will interpret 256 byte access' as half block access'.
*
* ENTRY: via a 'JSR'
*       <drvr_dev_num = Device Number of current device being accessed
*       <drvr_buf_ptr = Pointer to I/O buffer
*       <drvr_blk_num = Initial block number
*       <drvr_req_cnt = Number of bytes to be transferred
*      <drvr_blk_size = Size of block to be accessed
*               A Reg = Call Number
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x x   0
*
* EXIT: via an 'RTS'
*      <drvr_tran_cnt = Number of bytes transferred
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x 0   0  if no error
*                       x x 0 0 0 x x 1   0  if error
*
*****************************************************************
read		PROC
					;using   driver_data
		longa	on
		longi	on
*
* 		Precheck the request count for a request of $00000000.
*
		lda	<drvr_req_cnt
		ora	<drvr_req_cnt+2
		bne	not_null_req	;if something to do
		lda	#no_error
		clc
		rts
*
* 		Precheck the disk switch task counter for this device.
* 		Preset counter to 60 after check regardless of result of check.
* 		If check is zero then exit imeadiately with a disk switched error.
*
not_null_req
		ldy	#driver_unit	; my internal unit number
		lda	[<drvr_dib_ptr],y
		asl	a
		tax
		lda	|dsw_timers,x	; get current disk switch status
		bne	no_dsw_error	; ok to access device!
		
*
* Disk switch timer timed out.  Must be a disk switched error.
* Preset the counter for next access prior to exit with error.
*
		lda	#$0004		; JOA 7/27/88
		clc
		jsr	set_dev_stat	;clear WP status (leave online???!)
*
		jsr	preset_dsw
		lda	#drvr_disk_sw
		sec
		rts
*
* No disk switch occured.  OK to complete read operation.
*
no_dsw_error
		lda	#$0001		; set RWTS command: read
		sta	|my_ibcmd
		jsr	xlate_call	; translate to DISK][ call
		bcc	next_blk_chk	; if no error
		php
		pha
		cmp	#drvr_off_line	; is device offline?
		bne	stat_done	; no
		lda	#$0014		; clear online & WP status JOA 7/27/88
		clc
		jsr	set_dev_stat
		
stat_done	pla
		plp
		jsr	preset_dsw	; set disksw timer for next access
		rts
		
		
next_blk_chk		
*
* We know some things about the device status at this point.
* Set Online and *wrprot.
*
		lda	#$0010		; set device online status
		ora	|my_ibwpbit	; add in the WriteProt status if any
		sec
		jsr	set_dev_stat
		lda	#$0001		; clear disksw status
		clc
		jsr	set_dev_stat

		jsr	preset_dsw	; set disksw timer for next access
		lda	#no_error	; else time to return
		clc
		rts
		EndP

		eject
*****************************************************************
*
* This routine presets the disk switched counter for the
* device currently being accessed.
*
* ENTRY: via a 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Current program bank
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x x   0
*
* EXIT: via an 'RTS'
*               A Reg = Unchanged
*               X Reg = driver_unit * 2
*               Y Reg = DIB offset to driver_unit
*             Dir Reg = GS/OS Direct Page
*               B Reg = Current program bank
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x x   0  Status is unchanged
*
*****************************************************************
preset_dsw	Proc
		longa	on
		longi	on

		php
		pha
		ldy	#driver_unit	; my internal unit number
		lda	[<drvr_dib_ptr],y
		asl	a
		tax
		lda	#60
		sta	|dsw_timers,x	; and preset for next access
		pla
		plp
		rts
		endp

		eject
*****************************************************************
*
* This routine will set the device status word maintained
* internally by the driver.  Since there is no status call
* to support the DISK][ device it is neccessary to update
* the status word dynamically based on results from a device
* access.  This indicates that the result of a status call will
* be based on assumptions resulting from the last device access.
*
* ENTRY: via a 'JSR'
*               A Reg = Bits to be set or reset in status word
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Current program bank
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x 0   0 to clear status bits
*                       x x 0 0 0 x x 1   0 to set status bits
*
* EXIT: via an 'RTS'
*               A Reg = Device Status Word
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Current program bank
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x 0   0
*                       x x 0 0 0 x x 1   0
*
*****************************************************************
set_dev_stat	Proc
		php
		pha
		ldy	#driver_unit	; internal device number
		lda	[<drvr_dib_ptr],y
		asl	a
		tax
		lda	|dstat_tbl,x
		tax			; point at device status word
		pla
		plp
		bcs	set_bits
		eor	#$FFFF		; clear status bits
		and	|0,x
		sta	|0,x
		rts
set_bits
		ora	|0,x		; set bits
		sta	|0,x
		rts

		ENDP
		EJECT
*****************************************************************
*
* DRIVER CALL:  WRITE
*
* This call executes a read from the device.  The DISK][ device
* driver supports two different block and volume sizes:
*
*               Block Size              Volume Size
*                256 byte                560 block
*                512 byte                280 block
*
* The DIB is configured for the 512 byte 280 block format.  In
* order to support DOS3.3 file system translators this driver
* will interpret 256 byte access' as half block access'.
*
* ENTRY: via a 'JSR'
*       <drvr_dev_num = Device Number of current device being accessed
*       <drvr_buf_ptr = Pointer to I/O buffer
*       <drvr_blk_num = Initial block number
*       <drvr_req_cnt = Number of bytes to be transferred
*      <drvr_blk_size = Size of block to be accessed
*               A Reg = Call Number
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x x   0
*
* EXIT: via an 'RTS'
*      <drvr_tran_cnt = Number of bytes transferred
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x 0   0  if no error
*                       x x 0 0 0 x x 1   0  if error
*
*****************************************************************
write		PROC
					;using   driver_data
		longa	on
		longi	on
*
* Precheck the request count for a request of $00000000.
*
		lda	<drvr_req_cnt
		ora	<drvr_req_cnt+2
		bne	not_null_req
		lda	#no_error
		clc
		rts
*
* Precheck the disk switch task counter for this device.
* Preset counter to 60 after check regardless of result of check.
* If check is zero then exit imeadiately with a disk switched error.
*
not_null_req
		ldy	#driver_unit	; my internal unit number
		lda	[<drvr_dib_ptr],y
		asl	a
		tax
		lda	|dsw_timers,x	; get current disk switch status
		bne	no_dsw_error	; ok to access device!
* added 7/27/88 JOA
		lda	#$0004
		clc
		jsr	set_dev_stat	;clear WP bits (and leave ONLINE ???!)
*
* Disk switch timer timed out.  Must be a disk switched error.
* Preset the counter for next access prior to exit with error.
*
		jsr	preset_dsw
		lda	#drvr_disk_sw
		sec
		rts
*
* No disk switch occured.  OK to complete read operation.
*
no_dsw_error
		lda	#$0002		; set RWTS command: write
		sta	|my_ibcmd
		jsr	xlate_call	; translate to DISK][ call
		bcc	next_blk_chk	; if no error this block
		php
		pha
		cmp	#drvr_off_line	; is device offline?
		bne	not_off_line	; no
		lda	#$0014		; clear online and WP bits
		clc
		jsr	set_dev_stat
		bra	stat_done
not_off_line
		cmp	#drvr_wr_prot	; is device write protected?
		bne	stat_done	; no

		lda	#$0004		; else set wrprot status
		sec
		jsr	set_dev_stat
stat_done
		pla
		plp
		jsr	preset_dsw	; set disksw timer for next access
		rts
next_blk_chk
*
* We know some things about the device status at this point.
* Set Online and *wrprot.
*
		lda	#$0010		; set device online status
		sec
		jsr	set_dev_stat
		lda	#$0005		; clear wrprot & disksw status
		clc
		jsr	set_dev_stat

		jsr	preset_dsw	; set disksw timer for next access
		lda	#no_error	; else time to return
		clc
		rts
		
		ENDP
		EJECT
*****************************************************************
*
* DRIVER CALL:  STATUS
*
* This routine supports all the standard device status calls.
* Any status call which is able to detect an OFFLINE or DISK
* SWITCHED condition should call the system service routine
* SET_DISKSW.  OFFLINE and DISKSW are conditions and not errors
* when detected by a status call and should only be returned as
* conditions in the status list.
*
* Status Code:  $0000   Return Device Status
*               $0001   Return Control Parameters
*               $0002   Return Wait/No Wait Mode
*               $0003   Return Format Options
*               $0004   Return Parition Map
*
* ENTRY: via a 'JSR'
*       <drvr_dev_num = Device Number of current device being accessed
*     <drvr_clist_ptr = Pointer to control list
*     <drvr_ctrl_code = Control code
*       <drvr_req_cnt = Number of bytes to be transferred
*               A Reg = Call Number
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x x   0
*
* EXIT: via an 'RTS'
*      <drvr_tran_cnt = Number of bytes transferred
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x 0   0  if no error
*                       x x 0 0 0 x x 1   0  if error
*
*****************************************************************
status		PROC
					;using   driver_data
		longa	on
		longi	on

*
* Need to verify that the status code specifies a
* legal status request.
*
		lda	<drvr_stat_code	; is this a legal status request?
		bmi	dev_specific	; could be, it's device specific

		cmp	#$0005
		blt	legal_status	; yes
bad_code_err
		lda	#drvr_bad_code	; else return 'BAD CODE' error
		rts
*
* It's a legal status.  Dispatch to the appropriate status routine.
*
legal_status
		asl	a
		tax
 		jmp	(|status_table,x)

dev_specific	cmp	#$8001		; return volume #?
		sec			; assume error (pessimists, ain't we?)
		bne	bad_code_err	; no...
		jmp	get_wait	; else go "borrow" some code

		eject
*****************************************************************
*
* The DEVICE STATUS call returns a status list that indicates
* specific status information regarding a character of block
* device and the total number of blocks supported by a block device.
*
* Status List Pointer:  Word            General status word
*                       Longword        Total number of blocks
*
* Encoding of status for a block device is as follows:
*  ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___
* |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |
* | F | E | D | C | B | A | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 |
* |___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |__ DISK SW
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |______ INTERRUPT
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |__________ WRITE PROT
*   |   |   |   |   |   |   |   |   |   |   |   |   |______________ 0 RESERVED
*   |   |   |   |   |   |   |   |   |   |   |   |__________________ ONLINE
*   |   |___|___|___|___|___|___|___|___|___|______________________ 0 RESERVED
*   |______________________________________________________________ BLK FLAG
*
* Valid request counts versus returned status list for this status
* call are as follows:
*
* ENTRY: via a 'JSR'
*       <drvr_dev_num = Device Number of current device being accessed
*     <drvr_slist_ptr = Pointer to status list
*     <drvr_stat_code = Status code
*       <drvr_req_cnt = Number of bytes to be transferred (2 - 6)
*               A Reg = Status code * 2
*               X Reg = Status code * 2
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x x   0
*
* EXIT: via an 'RTS'
*      <drvr_tran_cnt = Number of bytes transferred
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x 0   0  if no error
*                       x x 0 0 0 x x 1   0  if error
*
*****************************************************************
		entry	dev_stat
dev_stat
		longa	on
		longi	on

		lda	#drvr_bad_parm	; assume invalid request count
		ldx	<drvr_req_cnt+2	; and validate request count
		bne	bad_dev_stat
		ldx	<drvr_req_cnt
		cpx	#$0002
		blt	bad_dev_stat
		cpx	#$0007
		blt	ok_dev_stat
bad_dev_stat
		sec
		rts
*
* Request count is valid.  Deterime device status and if appropriate, the
* total number of blocks for the device and return them in the device
* status list.  You insert the code required for this operation.
*
ok_dev_stat
		ldy	#driver_unit	; internal device #
		lda	[<drvr_dib_ptr],y
		asl	a
		tax
* added 7/27/88        JOA
		lda	|dsw_timers,x	;should offline be the state  ?
		bne	no_dsw_err	;no.
		phx
		lda	#$0004		;be sure WP status is off
		clc
		jsr	set_dev_stat	;clear WP status bits (leave online??!)
		plx
*
no_dsw_err	lda	|dstat_tbl,x	; get pointer to device status list
		tax
*
* Get default block count from DIB.
*
		ldy	#blk_cnt
		lda	[<drvr_dib_ptr],y
		sta	|2,x
		iny
		iny
		lda	[<drvr_dib_ptr],y
		sta	|4,x
*
* If it's a DOS3.3 access then the block count in the DIB is half
* of the actual block count for the block size accessed by the
* DOS3.3 file system translator.
*
		lda	<drvr_blk_size	; is this a DOS3.3 access?
		cmp	#256
		bne	not_sos_stat	; no
		lda	|2,x		; else double the block count!
		asl	a
		sta	|2,x
		lda	|4,x
		rol	a
		sta	|4,x

not_sos_stat
		phx			; save offset
		lda	#0		; clear accumulator
		sep	#$20		; go to 8-bit accumulator
		longa	off
		ldy	#slot_num	; get the slot number
		lda	[<drvr_dib_ptr],y
		pha			; save for a minute
		and	#$07		; make into 0-7
		asl	a		; make into $x0
		asl	a
		asl	a
		asl	a
		tax			; into X
		ldy	#unit_num	; check drive 1 or drive 2
		lda	[<drvr_dib_ptr],y
		dec	a		; is it drive 1?
		beq	@drive_1	; yes, select it
		lda	>drv1en,x	; else select drive 2
		bra	@selected
@drive_1
		lda	>drv0en,x
@selected
		pla			; retrieve slot number
		bit	#%00001000	; internal?
		bne	@external	; no, must be Disk][ controller
		lda	>q7l,x		; ensure read mode (not write)
		lda	>q6h,x		; prepare to read status
		lda	>q7l,x		; read it
		tay			; save in Y
		bit	#%00100000	; motor still on?
		bne	@store_wp	; yes, wp status is valid
		lda	>q7h,x		; prepare to set mode
		lda	#%00000100	; turn off 1 second motor-off timer
		sta	>q6h,x
		lda	>q6l,x
		lda	>q7l,x		; make sure write mode is off
		lda	>motoron,x	; motor on
		lda	>q6h,x		; sense write protect
		lda	>q7l,x
		tay			; save status
		lda	>motoroff,x	; motor off
@wait
		lda	>q6h,x		; wait for the motor to go off
		lda	>q7l,x
		bit	#%00100000
		bne	@wait
		lda	>q7h,x
		lda	#$00		; turn timer back on
		sta	>q6h,x
		lda	>q6l,x		; leave everything in a safe mode
		lda	>q7l,x
		bra	@store_wp	; go store the write protect bit
@external
		lda	>motoron,x	; motor on
		lda	>q6h,x		; sense write protect
		lda	>q7l,x
		tay			; save status
		lda	>motoroff,x	; motor off
@store_wp
		plx			; retrieve internal status index
		tya			; retrieve status
		asl	a		; bit 7 -> carry
		lda	#$00		; clear accumulator
		rol	a		; carry -> bit 0
		asl	a		; bit 0 -> bit 1
		asl	a		; bit 1 -> bit 2
		pha			; save for a bit
		lda	|0,x		; get status
		and	#%11111011	; clear write-protect bit
		ora	1,s		; and set to real status
		sta	|0,x		; store again
		pla			; clean up stack

*
* Now copy the internal status list to the destination
* status list specified in the call parameters.
*
		ldy	#$0000		; status list pointer
copy_dstat
		lda	|0,x		; copy device status list to slist_ptr
		sta	[<drvr_slist_ptr],y
		inx
		iny
		cpy	<drvr_req_cnt	; copy = request count size
		bne	copy_dstat
		rep	#$20		; 16 bit 'm'
		longa	on
*
* After returning the device status list check for an OFFLINE
* or DISKSW state.  If either of these conditions exist then
* the driver must call SET_DISKSW via the system service call
* table.
*
		ldy	#driver_unit	; internal device #
		lda	<drvr_blk_size	; is this a 512 byte access?
		cmp	#512
		beq	dont_set_bf	; yes, block count is valid!
		cmp	#256		; is this a 256 byte access?
		beq	dont_set_bf	; yes, block count is valid!
		lda	[<drvr_slist_ptr]
		ora	#$8000		; dont know if block count is valid!
		sta	[<drvr_slist_ptr]
dont_set_bf
		lda	[<drvr_slist_ptr]
		eor	#$0010		; convert online to offline
		and	#$0011		; offline or disk switched?
		beq	not_blk_stat	; no
		jsl	set_disksw	; else call system service
not_blk_stat
		brl	set_xfer_cnt	; update xfer count & exit

		eject
*****************************************************************
*
* This call returns a byte count as the first word in the status
* list followed by the data from the configuration parameter list.
* The request count specifies how much data is to be returned
* from the list.  If the byte count is smaller than the request
* count then only the number of bytes specified by the byte
* count will be returned and the transfer count will indicate
* this.
*
* Status List:  Word    Number of bytes in configuration list (including byte count).
*               Data    Data from the configuration list (device specific).
*
* ENTRY: via a 'JSR'
*       <drvr_dev_num = Device Number of current device being accessed
*     <drvr_slist_ptr = Pointer to status list
*     <drvr_stat_code = Status code
*       <drvr_req_cnt = Number of bytes to be transferred (2 - $FFFF)
*               A Reg = Status code * 2
*               X Reg = Status code * 2
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x x   0
*
* EXIT: via an 'RTS'
*      <drvr_tran_cnt = Number of bytes transferred
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x 0   0  if no error
*                       x x 0 0 0 x x 1   0  if error
*
*****************************************************************
		entry	get_ctrl
get_ctrl
		longa	on
		longi	on

		lda	#drvr_bad_parm		; assume invalid request count
		ldx	<drvr_req_cnt+2		; and validate request count
		bne	bad_get_ctrl
		ldx	<drvr_req_cnt
		cpx	#$0002
		bge	ok_get_ctrl
bad_get_ctrl
		sec
		rts
*
* Request count is valid.  Return control list.
*
ok_get_ctrl
		lda	#$0000			; no control list this device
		sta	[<drvr_slist_ptr]
		
		sta	<drvr_tran_cnt+2	; transfer count always $00000002
		lda	#$0002
		sta	<drvr_tran_cnt
		lda	#no_error
		clc
		rts

		eject
*****************************************************************
*
* This routine returns the Wait/No Wait mode that the driver
* is currently operating in.  This is returned in a word
* parameter which indicates a request count of $0002.
*
* ENTRY: via a 'JSR'
*       <drvr_dev_num = Device Number of current device being accessed
*     <drvr_slist_ptr = Pointer to status list
*     <drvr_stat_code = Status code
*       <drvr_req_cnt = Number of bytes to be transferred (2)
*               A Reg = Status code * 2
*               X Reg = Status code * 2
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x x   0
*
* EXIT: via an 'RTS'
*      <drvr_tran_cnt = Number of bytes transferred
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x 0   0  if no error
*                       x x 0 0 0 x x 1   0  if error
*
*****************************************************************
		entry	get_wait
get_wait
		longa	on
		longi	on

		lda	#drvr_bad_parm	; assume invalid request count
		ldx	<drvr_req_cnt+2	; and validate request count
		bne	bad_get_wait
		ldx	<drvr_req_cnt
		cpx	#$0002
		beq	ok_get_wait
bad_get_wait
		sec
		rts
*
* Request count is valid. Return the wait mode for this device.
*
ok_get_wait
		lda	#$0000		; block devices always in wait mode
		ldx	drvr_stat_code	; is this a get_wait_mode or get_vol_num call?
		bpl	set_slist_field	; get_wait_mode, go ahead and return

		lda	|my_volume	; get the last volume number returned by a RWTS call
		and	#$00FF		; low byte only
set_slist_field
		sta	[<drvr_slist_ptr]
		brl	set_xfer_cnt

		eject
*****************************************************************
*
* This routine returns the format options for the device.
* Consult the driver specification for the format option list.
* This call requires a minimum request count of $00000002.  The
* maximum request count may exceed the size of the format list
* in which case the request count returned will indicate the
* size of the format list.
*
* ENTRY: via a 'JSR'
*       <drvr_dev_num = Device Number of current device being accessed
*     <drvr_slist_ptr = Pointer to status list
*     <drvr_stat_code = Status code
*       <drvr_req_cnt = Number of bytes to be transferred (2 - n)
*               A Reg = Status code * 2
*               X Reg = Status code * 2
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x x   0
*
* EXIT: via an 'RTS'
*      <drvr_tran_cnt = Number of bytes transferred
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x 0   0  if no error
*                       x x 0 0 0 x x 1   0  if error
*
*****************************************************************
		entry	get_format
get_format
		longa	on
		longi	on

		lda	#drvr_bad_parm	; assume invalid request count
		ldx	<drvr_req_cnt+2	; and validate request count
		bne	bad_get_format
		ldx	<drvr_req_cnt
		cpx	#$0002
		bge	ok_get_format
bad_get_format
		sec
		rts
*
* Request count is valid. Return the format options for this device.
*
ok_get_format
		ldx	#format_tbl	; point at format options list
		lda	|0,x		; get # entries in option list
		asl	a		; list length = (n * 16) + 8
		asl	a
		asl	a
		asl	a
		clc
		adc	#$0008		; now have option list length
		cmp	<drvr_req_cnt	; is request longer then list length?
		bge	req_count_ok
		sta	<drvr_req_cnt
req_count_ok
		ldy	#$0000		; status list index
		sep	#$20		; 8 bit 'm'
		longa	off
copy_format
		lda	|0,x		; copy format option list to slist_ptr
		sta	[<drvr_slist_ptr],y
		inx
		iny
		cpy	<drvr_req_cnt	; copy = request count size
		bne	copy_format
		rep	#$20		; 16 bit 'm'
		longa	on
		brl	set_xfer_cnt

		eject
*****************************************************************
*
* This is a common exit routine for successful status calls.
* The transfer count is set to the same value as the request
* count prior to returning with no error.
*
* ENTRY: via a 'JSR'
*       <drvr_req_cnt = Number of bytes to be transferred (2 - 6)
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x x   0
*
* EXIT: via an 'RTS'
*      <drvr_tran_cnt = Number of bytes transferred
*               A Reg = Error code = No Error
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x 0   0  if no error
*
*****************************************************************
		entry	set_xfer_cnt
set_xfer_cnt
		longa	on
		longi	on

		lda	<drvr_req_cnt	; set transfer count
		sta	<drvr_tran_cnt
		lda	<drvr_req_cnt+2
		sta	<drvr_tran_cnt+2

		lda	#no_error
		clc
		rts

		ENDP
		EJECT
*****************************************************************
*
* DRIVER CALL:  CONTROL
*
* This routine supports all the standard device control calls.
*
* Control Code: $0000   Reset Device
*               $0001   Format Device
*               $0002   Eject Media
*               $0003   Set Control Parameters
*               $0004   Set Wait/No Wait Mode
*               $0005   Set Format Options
*               $0006   Assign Partition Owner
*               $0007   Arm Event
*               $0008   Disarm Event
*               $0009   Set Partition Map
*
* ENTRY: via a 'JSR'
*       <drvr_dev_num = Device Number of current device being accessed
*     <drvr_clist_ptr = Pointer to control list
*     <drvr_ctrl_code = Control code
*       <drvr_req_cnt = Number of bytes to be transferred
*               A Reg = Call Number
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x x   0
*
* EXIT: via an 'RTS'
*      <drvr_tran_cnt = Number of bytes transferred
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x 0   0  if no error
*                       x x 0 0 0 x x 1   0  if error
*
*****************************************************************
control		PROC
					;using   driver_data
		longa	on
		longi	on

*
* Need to verify that the control code specifies a
* legal control request.
*
		lda	<drvr_stat_code	; is this a legal control request?
		bmi	dev_specific
		cmp	#$000A
		blt	legal_control	; yes
bad_code
		lda	#drvr_bad_code	; else return 'BAD CODE' error
		rts
*
* It's a legal control.  Dispatch to the appropriate control routine.
*
legal_control
		asl	a
		tax
 		jmp	(|control_table,x)

dev_specific
		cmp	#$8001		; only device specific call we have!
		sec			; assume error
		bne	bad_code	; return error
		brl	set_volnum	; go ahead and set the volume number

		eject
*****************************************************************
*
* This routine will physically format the media.  No additional
* information associated with any particular file system will
* be written to the media. Check task count for disk switch
* prior to  execution of read.
*
* ENTRY: via a 'JSR'
*       <drvr_dev_num = Device Number of current device being accessed
*     <drvr_clist_ptr = Pointer to control list
*     <drvr_ctrl_code = Control code
*       <drvr_req_cnt = Number of bytes to be transferred
*               A Reg = Control code * 2
*               X Reg = Control code * 2
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x x   0
*
* EXIT: via an 'RTS'
*      <drvr_tran_cnt = Number of bytes transferred
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x 0   0  if no error
*                       x x 0 0 0 x x 1   0  if error
*
*****************************************************************
		entry	format
format
		longa	on
		longi	on
		
		lda	|format_volnum	; get the desired volume number
		sta	|rwts_volnum	; set to pass to RWTS
		stz	|format_volnum	; reset it
		lda	#$0003		; set RWTS command: format
		sta	|my_ibcmd
		jmp	xlate_call

		eject
*****************************************************************
*
* This routine will set the WAIT/NO WAIT mode as specified
* by the contents of the control list.
*
* ENTRY: via a 'JSR'
*       <drvr_dev_num = Device Number of current device being accessed
*     <drvr_clist_ptr = Pointer to control list
*     <drvr_ctrl_code = Control code
*       <drvr_req_cnt = Number of bytes to be transferred
*               A Reg = Control code * 2
*               X Reg = Control code * 2
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x x   0
*
* EXIT: via an 'RTS'
*      <drvr_tran_cnt = Number of bytes transferred
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x 0   0  if no error
*                       x x 0 0 0 x x 1   0  if error
*
*****************************************************************
		entry	set_wait
set_wait
		longa	on
		longi	on

		lda	#drvr_bad_parm	; assume invalid request count
		ldx	<drvr_req_cnt+2	; and validate request count
		bne	bad_set_wait
		ldx	<drvr_req_cnt
		cpx	#$0002
		beq	ok_set_wait
bad_set_wait
		sec
		rts
*
* Request count is valid. Set the wait mode for this device.
*
ok_set_wait
		lda	[<drvr_slist_ptr]
		beq	wait_mode_ok
		lda	#drvr_bad_parm
		sec
		rts
wait_mode_ok
		brl	set_xfer_cnt

		eject
*****************************************************************
*
* This routine will set the volume # to be used in the next Format
* call.
*
* ENTRY: via a 'JSR'
*       <drvr_dev_num = Device Number of current device being accessed
*     <drvr_clist_ptr = Pointer to control list
*     <drvr_ctrl_code = Control code
*       <drvr_req_cnt = Number of bytes to be transferred
*               A Reg = $8001
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x x   0
*
* EXIT: via an 'RTS'
*      <drvr_tran_cnt = Number of bytes transferred
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x 0   0  if no error
*                       x x 0 0 0 x x 1   0  if error
*
*****************************************************************
set_volnum
		longa	on
		longi	on

		ldx	#drvr_bad_parm	; assume invalid request count
		lda	<drvr_req_cnt+2	; and validate request count
		bne	oops
		lda	<drvr_req_cnt
		cmp	#$0002
		beq	ok_set_num
oops
		txa			; put error code into Acc
		sec
		rts
*
* Request count is valid. Set the volume number for the next format.
*
ok_set_num
		ldx	#drvr_bad_parm	; assume bad volume number
		lda	[<drvr_slist_ptr]
		cmp	#255		; volume number in range?
		bge	oops		; no...
		sta	|format_volnum
		brl	set_xfer_cnt

		ENDP

		EJECT
*****************************************************************
*
* DRIVER CALL:  SHUTDOWN
*
* This call prepares the driver for shutdown.  This may include
* closing a character device as well as releasing any and all
* system resources that may have been aquired by either a
* STARTUP or OPEN call.
*
* ENTRY: via a 'JSR'
*       <drvr_dev_num = Device Number of current device being accessed
*               A Reg = Call Number
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x x   0
*
* EXIT: via an 'RTS'
*      <drvr_tran_cnt = Number of bytes transferred
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x 0   0  if no error
*                       x x 0 0 0 x x 1   0  if error
*
*****************************************************************
shutdn		PROC
					;using   driver_data
		longa	on
		longi	on

		inc	|vbl_task_flag	; should task be removed?
		bpl	@do_shutdown	; yes, continue
		lda	#drvr_busy	; not until last device is shutdown
		sec			; busy if task left in
		rts


@do_shutdown
		pea	disk2_task>>16	; else remove task
		pea	disk2_task
		_delheartbeat

; now we reinitialize the modified data in preparation for a warm restart

		ldx	#(14*2)-2	; 14 devices
@loop1		stz	|dsw_timers,x	; zero the disk switched timers
		dex
		dex
		bpl	@loop1

		stz	|access_flag

		lda	#' A'		; bytes will be reversed when stored
		sta	|unique_name

		stz	|disk2_task	; reinit the hearbeat task header
		stz	|disk2_task+2
		lda	#1
		sta	|task_counter

		; reinit the device status table
		phb			; save DBR (mvn changes it)
		lda	#xtra_dstat_end-xtra_dstat1-1
		ldx	#xtra_dstat1
		ldy	#dstat1
		mvn	xtra_dstat1,dstat1
		plb

		lda	#no_error	; no error if task left in
		clc
		rts

xtra_dstat1	dc.b	$10,$00		; device general status word
		dc.l	280		; device block count

xtra_dstat2	dc.b	$10,$00		; device general status word
		dc.l	280		; device block count

xtra_dstat3	dc.b	$10,$00		; device general status word
		dc.l	280		; device block count

xtra_dstat4	dc.b	$10,$00		; device general status word
		dc.l	280		; device block count

xtra_dstat5	dc.b	$10,$00		; device general status word
		dc.l	280		; device block count

xtra_dstat6	dc.b	$10,$00		; device general status word
		dc.l	280		; device block count

xtra_dstat7	dc.b	$10,$00		; device general status word
		dc.l	280		; device block count

xtra_dstat8	dc.b	$10,$00		; device general status word
		dc.l	280		; device block count

xtra_dstat9	dc.b	$10,$00		; device general status word
		dc.l	280		; device block count

xtra_dstatA	dc.b	$10,$00		; device general status word
		dc.l	280		; device block count

xtra_dstatB	dc.b	$10,$00		; device general status word
		dc.l	280		; device block count

xtra_dstatC	dc.b	$10,$00		; device general status word
		dc.l	280		; device block count

xtra_dstatD	dc.b	$10,$00		; device general status word
		dc.l	280		; device block count

xtra_dstatE	dc.b	$10,$00		; device general status word
		dc.l	280		; device block count

xtra_dstat_end

		ENDP
		EJECT
*****************************************************************
*
* This routine will translate the GS/OS device call into
* a format compatable with the existing SOS Disk Driver core
* routines and execute the device access.
*
* ENTRY: via a 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Current program bank
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x x   0
*
* EXIT: via an 'RTS'
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Current program bank
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x 0   0  If no error occured.
*                       x x 0 0 0 x x 1   0  If error occured.
*
*****************************************************************
xlate_call	PROC
					;using   driver_data
		longa	on
		longi	on

		pei	<drvr_blk_num	;save for later restoring

		sep	#$20		; 8 bit 'm'
		longa	off

		lda	>cyareg
		
		pha			; save for now
		lda	#$80		; fast speed and no motor on detect
		sta	>cyareg
		
		lda	>statereg
		pha
		ora	#%00000100	; switch LC to right side
		sta	>statereg
		rep	#$20		; 16 bit 'm'
		longa	on

		lda	<drvr_call_num	; is this a control call?
		cmp	#drvr_control
		beq	xlate1		; yes, dont care about parameters

		lda	<drvr_blk_size
		cmp	#512		; is it a standard block access?
		beq	xlate0		; yes
		
		cmp	#256		; is this a DOS3.3 access?
		beq	xlate2		; yes
		ldx	#drvr_bad_parm	; can't deal with any other block size

error_exit
		sep	#$20		; 8 bit 'm'
		longa	off

		pla
		sta	>statereg
		
		pla
		sta	>cyareg

		rep	#$20		; 16 bit 'm'
		longa	on

		pla
		sta	<drvr_blk_num
		txa			; return error in accumulator
		sec
		rts

*
* must validate the request count to ensure it's a multiple of the block size
*
xlate0
		ldx	#drvr_bad_count	; assume error
		lda	<drvr_req_cnt	; get the request count
		and	#$01FF		; MOD with block size
		bne	error_exit	; if remainder, bad request count

*
* For a standard access, double the block address and read two 256 byte
* sectors for each block requested.
*
xlate1		asl	<drvr_blk_num
		rol	<drvr_blk_num+2
		bra	xlate3
*
* For DOS3.3 access of the device, only 256 byte blocks are allowed.
* In this case, the device supports 560 blocks total. Save absolute zero page.
*

xlate2
		ldx	#drvr_bad_count	; assume error
		lda	<drvr_req_cnt	; get the request count
		and	#$00FF		; MOD with block size
		bne	error_exit	; if remainder, bad request count

xlate3
;		save the absolute zero page.

 		phb			; save DBR
		lda	#zp_size-1	; init count
		ldx	#0		; init source (absolute zero page)
		ldy	#azp_save	; init destination
		mvn	0,azp_save	; do the move
		plb			; restore DBR


*
* Set flag to indicate that this is either a 256 byte or 512 byte access.
*
		lda	<drvr_blk_size
		xba
		sta	|access_flag
*
* Validate block prior to device access
*
				

xlate5				 
*
* Translate GS/OS Driver Call to RWTS Call.
*
		sep	#$20		; 8 bit 'm'
		longa	off

		ldy	#dib_pro_unit
		lda	[<drvr_dib_ptr],y
		and	#%01110000
		sta	|my_ibslot	; set slot * 16
		ldy	#unit_num
		lda	[<drvr_dib_ptr],y
		sta	|my_ibdrvn	; set drive #
		lda	#$01
		sta	|my_ibtype	; RWTS IOB
		lda	|rwts_volnum	; copy the requested volume # to IOB
		sta	|my_ibvol
		stz	|rwts_volnum	; reset for next access

		rep	#$20		; 16 bit 'm'
		longa	on

		jsr	check_block
		bcc	xlate5a		; if ok
		
		jmp	xlate8a		; return with bad block number error
				
xlate5a		lda	<drvr_blk_num	; validate block number
		lsr	a		; block number / 16 = track
		lsr	a
		lsr	a
		lsr	a

		sep	#$20		; 8 bit 'm'
		longa	off

		sta	|my_ibtrk	; track  = quotient:  block / 16

;		set the initial buffer pointer.

		rep	#$20
		longa	on
		lda	<drvr_buf_ptr
		sta	my_ibbufp
		lda	<drvr_buf_ptr+2
		sta	my_ibbufp+2


*
* 		Copy our IOB to bank $00 for RWTS routines.
*
		phb			; save DBR
		lda	#$14-1		; init count
		ldx	#my_iob		; init source
		ldy	#ibtype		; init destination
		mvn	my_iob,ibtype	; do the move
		plb			; restore DBR
*
* Copy nibblizing tables to bank $00
*
		pea	my_dnibl>>16	; source buffer
		pea	my_dnibl
		pea	dnibl_dest>>16	; destination buffer
		pea	dnibl_dest
		pea	$0000		; block size
		pea	$0200
		pea	move_sinc_dinc	; src incr & dest incr
		jsl	move_info
		
		
		rep	#$20		; 16 bit 'm'
		longa	on

		lda	<drvr_buf_ptr+1
		sta	tk_base
		
		lda	<drvr_req_cnt+1
		sta	secleft		; # of sectors left

		
		lda	<drvr_blk_num	; sector = remainder: block / 16
		and	#$0F
		sta	|lowsc
		
;		start of main loop for each track.
		
xlate5d		lda	secleft
		clc
		adc	lowsc
		bcs	xlate6		; if it actually wrapped
		dea
		cmp	#15+1
		bcc	xlate7		; if doesn't extend into next track
xlate6		lda	#15
xlate7		sta	highsc		; high sector on this track
		sec
		sbc	lowsc
		ina
		sta	nsec		; # of sectors to read on this track
		sta	nsec2

;		init the sector map for this track.

		ldx	#16-1-1
xlate7a		stz	Tscmap,x
		dex
		dex
		bpl	xlate7a		; if more to clear		

* 		Call RWTS for device access.

		phd
		phb

 		lda	#0		; clear accumulator
		tcd			; set direct register to absolute zero page
		sep	#$30		; 8 bit 'm' & 'x'
		longa	off
		longi	off
		pha			; put #0 on stack...
		plb			; to set DBR to bank 0
		
		jsr	rwts1		; call read/write track sector

		rep	#$30		; 16 bit 'm' & 'x'
		longa	on
		longi	on
		
		plb
		pld
*
* Update our IOB with the results from the call to RWTS.
*
		phb			; save DBR
		lda	#$14-1		; init counter
		ldx	#ibtype		; init source pointer
		ldy	#my_iob		; init destination pointer
		mvn	ibtype,my_iob	; do the move
		plb			; restore DBR

*
* Need to keep my current track, prior etc...
*
		pea	curtrk>>16	; source buffer
		pea	curtrk
		pea	my_curtrk>>16	; destination buffer
		pea	my_curtrk
		pea	$0000		; block size
		pea	$0019
		pea	move_sinc_dinc	; src incr & dest incr
		jsl	move_info

		lda	<drvr_call_num
		cmp	#drvr_control	; is this a control (format)?
		beq	exit_time	; yes
		
		
		lda	nsec2
		sec
		sbc	nsec		; # left to read on track
		sta	>w1		; save sectors transferred for now
		lda	<drvr_tran_cnt+1
		clc
		adc	>w1
		sta	<drvr_tran_cnt+1
		cmp	<drvr_req_cnt+1
		bcs	exit_time	; if done		
		
		lda	|my_ibstat
		and	#$ff
		bne	exit_time	; if got an error
		
;		process next track.
				
		lda	tk_base
		clc
		adc	nsec2		; # of sectors read off this track
		sta	tk_base
				
		lda	my_ibtrk	; get track and sector
		and	#$ff		; remove sector information
		ina
		cmp	#34+1
		bcc	xlate9		; if haven't hit end of disk
		
xlate8a		lda	#drvr_bad_block
		
		sep	#$20
		sta	|my_ibstat
		rep	#$20
		bra	exit_time

xlate9		shortm
		sta	|my_ibtrk
		sta	>ibtrk
		longm
		
		stz	lowsc		; start at begining of track
		lda	secleft
		sec
		sbc	>w1
		sta	secleft		
		jmp	xlate5d		; process next track
		

*	 Restore absolute zero page.

exit_time
 		phb			; save DBR
		lda	#zp_size-1	; init count
		ldx	#azp_save	; init source pointer
		ldy	#0		; init destination pointer (absolute zero page)
		mvn	azp_save,0	; do the move
		plb			; restore DBR

 		inc	a		; make accumulator = 0 (was $FFFF after MVN operation)

		sep	#$20		; 8 bit 'm'
		longa	off
		pla
		sta	>statereg	; restore original hardware state

		pla
		sta	>cyareg
		
		plx
		stx	<drvr_blk_num

		lda	|my_ibstat	; accumulator is still 8-bits wide here
		rep	#$20		; shift back to 16-bits
		longa	on
		cmp	#$0001		; condition carry status from error code in accumulator
		rts

		eject
*****************************************************************
*
* Validate the block number and block size.
*
* ENTRY: via a 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Current program bank
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x x   0
*
* EXIT: via an 'RTS'
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Current program bank
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x 0   0  If no error occured.
*                       x x 0 0 0 x x 1   0  If error occured.
*
*****************************************************************
		entry	check_block
check_block
		longa	on
		longi	on

		lda	<drvr_call_num	; is it a read or write call?
		cmp	#drvr_read
		beq	chk_blk_now	; yes
		cmp	#drvr_write
		bne	in_range	; no

chk_blk_now
		lda	<drvr_blk_num+2
		bne	ret_bad_blk
		lda	<drvr_blk_num
		cmp	#560		; is the block number in range?
		bge	ret_bad_blk	; no...
*
* Block number is in range.  Go ahead and read it.
*
in_range
		lda	#no_error
		clc
		rts
		
ret_bad_blk
		lda	#drvr_bad_block	; cant deal with this block number
		sec
		rts

		ENDP
		EJECT
*****************************************************************
*
* DRIVER SUBROUTINE: RWTS1
*
* NOTE:  Critical timing requires page bound considerations
*        for code and data.  Vertually the entire WRITE routine
*        must not cross page boundaries.  Critical branches in
*        the WRITE, READ and READADDR subroutines which must not
*        cross page boundaries are noted in comment fields.
*
*               35 tracks
*               16 sectors per track
*              256 bytes per sector
*
* ENTRY: via a 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*               B Reg = Bank $00
*             Dir Reg = Absolute Zero Page
*               P Reg = N V M X D I Z C  E
*                       x x 1 1 0 1 x x  1
*               Speed = 1 mHz
*            IWM Mode = Read Mode
*              <slotz = Slot * 16
*
* EXIT: via a 'RTS'
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*               B Reg = Bank $00
*             Dir Reg = Absolute Zero Page
*               P Reg = N V M X D I Z C  E
*                       x x 1 1 0 1 x 0  1  if no error
*                       x x 1 1 0 1 x 1  1  if error
*
*****************************************************************
rwts1		PROC
		entry	drivsel
		entry	drvwait
		entry	ok
		entry	ok1
		entry	motof
		entry	trytrk
		entry	trytrk2
		entry	tryadr
		entry	tryadr2
		entry	rdright
		entry	recal1
		entry	alldone
					;using   driver_data
		entry	rttrk
		longa	off
		longi	off
		
		php			; save interrupt state
		lda	1,s
		sta	<irqmask
		jsr	rsetphse	; reset phase lines
		lda	|q7l,x		; turn off write enable
		jsr	rwts2
		plp			; restore interrupt state
		rts

rwts2
		ldy	#1		; retry count
		sty	|seekcnt	; only one recalibrate per call
		jsr	chkprev		; make all drives are stopped.
*
* 		Now check if the motor is on, then start it
*
		jsr	chkdrv		; set zero flag if motor stopped
		php			; save test results
		lda	#dvmot
		sta	|montimeh
		lda	<ibdrvn		; determine drive 1 or 2
		cmp	<iobpdn		; same drive used before?
		sta	<iobpdn		; save it for next time
		php			; keep results of compare
		lda	<ibslot		; determine slot number
		cmp	<iobpsn		; same slot used before?
		sta	<iobpsn		; save it for next time
		beq	slot_ok
		php
		pla
		sta	1,s
slot_ok
		lda	<ibdrvn		; get drive number into carry
		dec	a
		ror	a
		lda	|motoron,x	; turn on the drive
		bcc	drivsel		; if drive 1
		inx			; else drive 2
drivsel
		lda	|drv0en,x
		plp			; was it same drive?
		beq	ok
		plp			; Indicate drive off in Z flag
		ldy	#$07		; delay 150 mSec before stepping
drvwait
		jsr	mswait		; (on return A=0)
		dey
		bne	drvwait
		php			; now zero flag set
ok
		lda	<ibcmd		; make sure this command needs seeked.
		beq	ok1		; if status check.
		cmp	#$03		; format does not need seeked either
		beq	ok1
		lda	<ibtrk		; get destination track		
		jsr	myseek		; and go to it.
*

* Now R/W head is at the desired track.  Was the motor on to start with?
*
ok1
		plp			; was motor on?
		bne	trytrk		; if so, dont delay
*
* Motor was off, wait for it to speed up.
*
motof
		lda	#1		; Wait 100uS per count in montime
		jsr	mswait		
		lda	|montimeh	
		bmi	motof		; count up to zero

*
* Motor should be up to speed.  If it still looks stopped then
* the drive is not present.
*
		jsr	chkdrv		; is drive present?		
		bne	trytrk0		;if drive is present
		
		jmp	hndlerr		; handle error of drive not being found
		

* 		code to return ibwpbit added 7/27/88 JOA

trytrk0		stz	ibwpbit		;assume its not WP
		lda	|q6h,x		;go to sense mode
		lda	|q7l,x		;get the sense status
		bit	|q6l,x		;reset to read mode
		rol	a		;carry set if WP is true
		bcc	trytrk		;forget it
		
		lda	#$04
		sta	ibwpbit		;return an 0004
*
* 		Now check if it is not the format disk command, locate the correct
* 		sector for this operation.
*
trytrk
		lda	<ibcmd		; get command code #
		bne	trytrk1		; if not status command
		jmp	statcmd		; try status command
		
trytrk1		cmp	#$03		; is it a format?
		bne	not_format	; no
		jmp	format_media	; else go format media

not_format
		lsr	a		; set carry=1 for read, 0 for write
		bcs	trytrk2		; must prenibblize for write.
		
		lda	#$ff
		sta	>nxtwrt
		
		
trytrk2
		ldy	#$40		; only 64 retries of any kind
		sty	retrycnt
tryadr
		ldx	<ibslot		; get slot num into x-reg
		jsr	rdadr16		; read next address field
		bcc	rdright		; if read it right, hurrah!
		
tryadr2
		dec	|retrycnt	; another mistake!!
		bpl	tryadr		; well, let it go this time.,
		
		lda	#drvr_io_error	; anticipate a bad drive error
		dec	|seekcnt	; only recalibrate once!
		bmi	hndlerr		; tried ot recalibrate too many times

		
		lda	|curtrk
		pha			; save track we really want
		lda	#40		; pretent we are on track 40
		ldy	#$40
		sty	|retrycnt	; reset retrys to 64 max.
		bne	recal1		; branch always 
* 
* have now read an address field correctly.
* make sure this is the track, sector, and volume desired.
*
rdright
		ldy	|track		; on the right track?
		cpy	|curtrk		
		beq	rttrk		; if so, good
*
* 		recalibrating from this track
*
		lda	|curtrk		; preserve destination track
		pha
		tya	
		asl	a		; (washing machine fix!)
		jsr	settrk
		bra	junk
		
recal1
		jsr	settrk
		jsr	myseek
				
junk		pla
		jsr	myseek
		
		lda	#$80
		sta	>cyareg
		lda	<irqmask
		pha
		plp			; allow any pending interrupts
		sei			; close interrupt window
		bra	tryadr		; try again
		

* 		drive is on right track

		
rttrk		lda	<ibcmd		; read or write?
		lsr	a		; the carry will tell.
		bcc	writ		; carry was set for read operation,

		jsr	cbl		; compute buffer location
		bcc	rttrk1		; if wanted
		
		lda	<irqmask
		pha
		plp			; allow any pending interrupts
		sei			; close interrupt window
		bra	tryadr2
		
rttrk1		ldx	<ibslot
		jsr	read16		; read the data field
		bcs	tryadr2		; if got an error

rttrk2		lda	#$80
		sta	>cyareg
		jsr	mts		; mark this sector
		beq	alldone		; if done
		jmp	tryadr


alldone
		lda	#no_error	; no error
		dc.b	$d0		; branch never (skip 1 byte)
hndlerr		sec			; indicate an error
		
aldone1		sta	<ibstat		; give him error#

		php			; save error
		lda	<irqmask
		pha
		plp			; allow any pending interrupts
		sei			; close interrupt window
		plp
		
		ldx	<ibslot		; get the slot offset
		lda	|motoroff,x	; turn drive off
		
		rts			; all finished! 

writ		lda	sect
		cmp	>nxtwrt		
		beq	writ2		;if set to write this sector
		tax
		lda	>nxtwrt
		sta	w1
		
writ1		inx
		txa
		and	#$f		;make sure in range
		sta	>nxtwrt
		tax
		jsr	cblE		;compute buffer location
		bcs	writ1		;if we aren't interested in this sector
		
		jsr	pdf		;prenibblize data buffer
writ1a		jmp	tryadr2		;this prevents infinite waiting
		
writ2
		jsr	write16		; write nybbles now
		bcs	stat2
		jmp	rttrk2
		
		
statcmd		ldx	<ibslot
		lda	|q6h,x		; test for write protected. 
		lda	|q7l,x
		rol	a		; write protect-->carry-->bit 0=1
		lda	|q6l,x		; keep in read mode...
		
stat2		bcc	alldone
		lda	#drvr_wr_prot	; disk is write protected!!
		bne	hndlerr		; branch always 

		longa 	off
		
		eject
*****************************************************************
*
* MYSEEK: Seek to the desired track
*
* Seeks track 'n' in slot #x/$10
* if drivno is negative, on drive 0
* if drivno is positive, on drive 1
*
* ENTRY: via a 'JSR'
*               A Reg = Destination track
*               X Reg = Slot * 16
*               Y Reg = Undefined
*               B Reg = Bank $00
*             Dir Reg = Absolute Zero Page
*               P Reg = N V M X D I Z C  E
*                       x x 1 1 0 1 x x  1
*               Speed = 1 mHz
*            IWM Mode = Read Mode
*              <ibtrk = Destination track #
*              <ibsec = Destination sector #
*             <ibslot = Slot * 16
*
* EXIT: via a 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*               B Reg = Bank $00
*             Dir Reg = Absolute Zero Page
*               P Reg = N V M X D I Z C  E
*                       x x 1 1 0 1 x 0  1  if no error
*                       x x 1 1 0 1 x 1  1  if error
*             <ibstat = error code
*
*****************************************************************
		entry	myseek
myseek
		entry	alloff
		entry	nxoff

		longa	off
		longi	off

		asl	a		; assume two phase stepper.
		sta	|track		; save destination track(*2)
		
		lda	#$0
		sta	>cyareg		; make sure slow
		
		jsr	alloff		; turn all phases off to be sure.
		jsr	drvindx		; get index to previous track for drive
		lda	>drv0trk,x
		sta	|curtrk		; this is where i am
		lda	|track		; and where i'm going to
		sta	>drv0trk,x
		jsr	seek		; go there!
alloff
		ldy	#3		; turn off all phases before returning
nxoff
		tya			; (send phase in acc.)
		jsr	clrphase	; carry is clear, phases shold be turned off
		dey
		bpl	nxoff
		lsr	|curtrk		; divide back down
		
		lda	#$80
		sta	>cyareg		; reset to fast speed
		clc
		rts			; all off... now it's dark

		ENDP
		EJECT
*****************************************************************
*
*  Fast Seek Subroutine:
*
* Waveform shown is a seek from track 0 to track 9.  Even tracks
* appear under phase 0 while odd tracks appear under phase 2.
*             ___         ___         ___         ___
* P3 ________|11m|_______|9m |_______|9m |_______|11m|_______________
*          ___         ___         ___         ___         ________
* P2 _____|13m|_______|9m |_______|9m |_______|10m|_______|   36m  |_
*       ___         ___         ___         ___         ___
* P1 __|16m|_______|9m |_______|9m |_______|9m |_______|10m|_________
*                ___         ___         ___         ___
* P0 ___________|10m|_______|9m |_______|9m |_______|12m|____________
*
* TRK.......1.....2.....3.....4.....5.....6.....7.....8.....9........
*
* The last phase asserted must be on for an additional 25mS to allow
* for read/write head settling.  Each phase assertion is overlapped
* for approximately the final third of it's phase assertion by the
* next phase assertion.  Phase lines are off before and after the seek.
* The spindle motor should be on for a minimum of 150mS prior to
* initiating the seek operation.
*
* Entry: via a 'JSR'
*              curtrk = current half track
*               A Reg = Desired halftrack (single phase)
*               X Reg = Slot number * 16
*               Y Reg = undefined
*               B Reg = Current program Bank
*             Dir Reg = Absolute zero page
*               P Reg = N V M X D I Z C  E
*                       x x 1 1 0 1 x x  1
*
* ExIt: via a 'RTS'
*              curtrk = final halftrack
*               prior = last halftrack if seek was required
*               A Reg = Undefined
*               X Reg = Unchanged
*               Y Reg = Undefined
*               B Reg = Current program Bank
*             Dir Reg = Absolute zero page
*               P Reg = N V M X D I Z C  E
*                       x x 1 1 0 1 x 0  1  if no error
*                       x x 1 1 0 1 x 1  1  if error
*
*  montimel and montimeh are incremented by the number of 100 usec quantums
*  required by seek for motor on time overlap.
*
* --- variables used ---
*
*  curtrk, trkn, count, prior, slottemp, montimel, montimeh
*
*****************************************************************
seek		PROC
		entry	clrphase
					;using   driver_data
		longa	off
		longi	off

		sta	|trkn		; save target track
		cmp	|curtrk		; on desired track?
		beq	setphase	; yes,energize phase and return
		lda	#$0
		sta	|trkcnt		; halftrack count.
seek2		lda	|curtrk		; save curtrk for
		sta	|prior		; delayed turnoff.
		sec
		sbc	|trkn		; delta-tracks.
		beq	seekend		; br if curtrk=destination
		bcs	out		; (move out, not in)
		eor	#$FF		; calc trks to go.
		inc	|curtrk		; incr current track (in).
		bcc	mintst		; (always taken)
out		adc	#$FE		; calc trks to go.
		dec	|curtrk		; decr current track (out).
mintst		cmp	|trkcnt
		bcc	maxtst		;  and 'trks moved'.
		lda	|trkcnt
maxtst		cmp	#$9
		bcs	step2		; if trkcnt>$8 leave y alone (y=$8).
		tay			; else set acceleration index in y
		sec
step2		jsr	setphase
		phx
		tyx
		lda	>ontable,x	; for 'ontime'.
		plx
		jsr	mswait		; (100 usec intervals)
		lda	|prior
		clc			; for phaseoff
		jsr	clrphase	; turn off prior phase
		phx
		tyx
		lda	>offtable,x	;  then wait 'offtime'.
		plx
		jsr	mswait		; (100 usec intervals)
		inc	|trkcnt		;  'tracks moved' count.
		bne	seek2		; (always taken)
seekend		jsr	mswait		; settle 25 msec
		clc			; set for phase off
setphase	lda	|curtrk		; get current track
clrphase
		and	#3		; mask for 1 of 4 phases
		rol	a		; double for phaseon/off index
		ora	<ibslot		
		tax
		lda	|phaseoff,x	; turn on/off one phase
		ldx	<ibslot		; restore x-reg
		rts			; and return

		ENDP
		EJECT
*****************************************************************
*
* MSWAIT Subroutine
*
* Delays a specified number of 100 usec intervals for motor on timing.           
*
* Entry: via a 'JSR'
*               A Reg = Number of 100uS intervals to delay
*               X Reg = Slot number * 16
*               Y Reg = Undefined
*               B Reg = Current program Bank
*             Dir Reg = Absolute zero page
*               P Reg = N V M X D I Z C  E
*                       x x 1 1 0 1 x x  1
*               Speed is unknown.
*            IWM Mode = Read mode
*
* ExIt: via a 'RTS'
*               A Reg = $00
*               X Reg = $00
*               Y Reg = Unchanged
*               B Reg = Current Program Bank
*             Dir Reg = Absolute zero page
*               P Reg = N V M X D I Z C  E
*                       x x 1 1 0 1 x 1  1
*
*****************************************************************
mswait		PROC
		entry	msw1
		entry	msw2
					;using   driver_data
		longa	off
		longi	off

		tax			; save for now
		lda	#0
		sta	>cyareg		; make sure slow
		
		txa			; restore count
		
		ldx	#$11
msw1
		dex			; delay 86 usec.
		bne	msw1
		inc	|montimel
		bne	msw2		; double-byte
		inc	|montimeh	; increment.
msw2
		sec
		sbc	#$1		; done 'n' intervals?
		bne	mswait		; if not.  Don't cross Page Boundary
		
		lda	#$80
		sta	>cyareg		; reset to fast
		
		lda	#0
		
		longa	on
		longi	on
		
		rts

		ENDP
		EJECT
*****************************************************************
*
* This subroutine detects if the motor is stopped.  If motor is
* stopped, controller's shift reg will not be changing.
*
* Entry: via a 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*               B Reg = Bank $00
*             Dir Reg = Absolute zero page
*               P Reg = N V M X D I Z C  E
*                       x x 1 1 0 1 x x  1
*            IWM Mode = Read Mode
*               Speed = 1 mhz
*
* Exit: via a 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = $00 if stopped
*               B Reg = Bank $00
*             Dir Reg = Absolute zero page
*               P Reg = N V M X D I Z C  E
*                       x x 1 1 0 1 1 x  1  if stopped
*                       x x 1 1 0 1 0 x  1  if not stopped
*
*****************************************************************
chkdrv		PROC
		entry	chkdrv0
		entry	ckdrts
					;using   driver_data
		longa	off
		longi	off

		ldx	<ibslot
		lda	#0
		sta	>cyareg		; reset to slow mode

chkdrv0
		longa	off
		longi	off

		ldy	#0		; init loop counter
chkdrv1		lda	|q6l,x		; read the shift reg
		jsr	ckdrts		; delay
		pha
		pla			; more delay
		cmp	|q6l,x		; has shift reg changed?
		bne	chkdrv2		; if motor is running
		lda	#drvr_off_line	; anticipate error.
		dey			; no,dec retry counter
		bne	chkdrv1		; and try 256 times
		
chkdrv2		php			; save error flag
		pha
		lda	#$80
		sta	>cyareg		; reset to fast speed
		pla
		plp			; restore error flag
		
ckdrts		rts			; then return

		eject
*****************************************************************
*
* Entry: via a 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*               B Reg = Bank $00
*             Dir Reg = Absolute zero page
*               P Reg = N V M X D I Z C  E
*                       x x 1 1 0 1 x x  1
*            IWM Mode = Read Mode
*               Speed = 1 mhz
*
* ExIt: via a 'RTS'
*               A Reg = Unchanged
*               X Reg = Slot * 2
*               Y Reg = Unchanged
*               B Reg = Bank $00
*             Dir Reg = Absolute zero page
*               P Reg = N V M X D I Z C  E
*                       x x 1 1 0 1 1 0  1  if drive 0
*                       x x 1 1 0 1 0 1  1  if drive 1
*
*****************************************************************
		entry	drvindx
drvindx
		longa	off
		longi	off

		pha			; preserve acc.
		clc
		lda	<ibdrvn		; drive ($01 or $02)
		dec	a		; drive now ($00 or $01)
		ror	a
		php			; carry = drive #
		ror	a		; drive to bit 7
		clc
		adc	<ibslot		; bits 4-6 are slot #
		lsr	a
		lsr	a
		lsr	a
		lsr	a
		tax			; into x for index to table
		plp
		pla			; restore acc.
		rts

		ENDP
		EJECT
*****************************************************************
*
* Read address field subroutine (16-sector format)
*  ______ _____ _____ _____ _____ _____ _____ ______ _____ _____ _____
* |      |     |     |     |     |     |     |      |     |     |     |
* | GAP1 | $D5 | $AA | $96 | VOL | TRK | SEC | CSUM | $DE | $AA | $EB |
* |______|_____|_____|_____|_____|_____|_____|______|_____|_____|_____|
*
* GAP1:         12 to 85 bytes of self sync nibbles ($FF)
* VOL:          Volume number (two bytes - 4 & 4 encoded)
* TRK:          Track number  (two bytes - 4 & 4 encoded)
* SEC:          Sector number (two bytes - 4 & 4 encoded)
* CSUM:         Check sum = EOR of volume, track & sector (1 byte)
*
* Entry: via a 'JSR'
*               A Reg = Undefined
*               X Reg = Slot * 16
*               Y Reg = Undefined
*               B Reg = Current program bank
*             Dir Reg = Absolute zero page
*               P Reg = N V M X D I Z C  E
*                       x x 1 1 0 1 x x  1
*            IWM Mode = Read Mode (q6l, q7l)
*               Speed is unknown.
*
* Exit: via a 'RTS'
*               A Reg = $AA
*               X Reg = Unchanged
*               Y Reg = $00
*               B Reg = Current program bank
*             Dir Reg = Absolute zero page
*               P Reg = N V M X D I Z C  E
*                       x x 1 1 0 1 x 0  1  if no error
*                       x x 1 1 0 1 x 1  1  if error
*
* csstv holds chksum, sector, track, and volume read.
* Uses temps count, last, csum, and 4 bytes at csstv.
*
*    ---- expects ----
*
* Original 10-sector normal density nibls (4-bit), odd bits, then even.
*
*    ---- caution ----
*
* Observe 'no page cross' warnings on some branches!!
*
*****************************************************************
rdadr16		PROC	align 256
		entry	rdadr16E
		entry	rdasyn
		entry	rda1
		entry	rdasn1
		entry	rda2
		entry	rda3
		entry	rdafld
		entry	rda4
		entry	rda5
		entry	rda6
		entry	rda7
		entry	rderr

		longa	off
		longi	off
		
		lda	<irqmask
		pha
		plp			; allow any pending interrupts
		sei			; close interrupt window


rdadr16E	lda	#0
		sta	>cyareg		; put machine in slow mode

		ldy	#$FC
		sty	|count		; 'must find' count.
rdasyn
		iny
		bne	rda1		; low order of count.

		inc	|count		; (2k nibls to find
		bne	rda1		; if more to check
	
		jmp	rderr		; error - couldn't find address mark
		
rda1
		lda	|q6l,x		; read nibl.
		bpl	rda1		; *** no page cross! ***
rdasn1
		cmp	#$D5		; adr mark 1?
		bne	rdasyn		; (loop if not)
		nop			; added nibl delay.
rda2
		lda	|q6l,x
		bpl	rda2		; *** no page cross! ***
		cmp	#$AA		; adr mark 2?
		bne	rdasn1		;  (if not, is it am1?)
		ldy	#$3		; index for 4-byte read.
*
*            (added nibl delay)
*
rda3
		lda	|q6l,x
		bpl	rda3		; *** no page cross! ***
		cmp	#$96		; adr mark 3?
		bne	rdasn1		;  (if not, is it am1?)
	

		lda	#$0		; init checksum.
rdafld
		sta	|csum
rda4
		lda	|q6l,x		; read 'odd bit' nibl.
		bpl	rda4		; *** no page cross! ***
		rol	a		; align odd bits, '1' into lsb.
		sta	|last		;  (save them)
rda5
		lda	|q6l,x		; read 'even bit' nibl.
		bpl	rda5		; *** no page cross! ***
		and	|last		; merge odd and even bits.
		sta	|csstv,y	; store data byte.
		eor	|csum
		dey
		bpl	rdafld		; loop on 4 data bytes.
		tay			; if final checksum
		bne	rderr		; nonzero, then error.
rda6
		lda	|q6l,x		; first bit-slip nibl.
		bpl	rda6		; *** no page cross! ***
		cmp	#$DE
		bne	rderr		; error if nonmatch.
		nop			; delay
rda7
		lda	|q6l,x		; second bit-slip nibl.
		bpl	rda7		; *** no page cross! ***
		cmp	#$AA
		bne	rderr		; error if nonmatch.
rddebug		clc			; clear carry on
		rts			;  normal read exits.
		
rderr		sec
		rts




;	the next few routines are placed in this proc because otherwise it is wasted space.


;;	cbl - compute buffer location.
;
;	entry	(access_flag) != 1 if ProDOS access.
;		(interleave_256..) = logical to physical conversion table for DOS.
;		(interleave_512..) = logical to physical conversion table for ProDOS.
;		(sc_found) = sector read.
;		(t.scmap..) = map of sectors already processed.
;		(lowsc) = lowest sector to process.
;		(highsc) = highest sector to process.
;
;	exit	(c) set if don't need next sector.
;		if need the next sector then [ibufp] = where to store the next sector.



;;		alternate entrypoint cblE:
;
;		(x) = sector to check.


		entry	cbl,cblE
	
	
cbl		ldx	sect		;sector found on the disk	
	
cblE		lda	>Tscmap,x
		bne	cbl4		;if we already processed this disk sector
	
		lda	>access_flag	;access type
		dea
		bne	cbl1		;if ProDOS access
		lda	>interleave_256,x
		bra	cbl2

cbl1		lda	>interleave_512,x
cbl2		cmp	>lowsc
		bcc	cbl4		;if not in range
		cmp	>highsc		
		bcc	cbl3		;if less than
		bne	cbl4		;if greater than
	
cbl3		sec
		sbc	>lowsc
		longmx
		and	#$ff
		clc
		adc	>tk_base
		sta	ibbufp+1	;adjust bufptr

		skip1			
	
cbl4		sec			;flag that sector can be ignored
		shortmx			;reset to short mode
		rts



;;		mts - mark this sector.
;
;		entry	(sect) = physical sector that was processed.
;			(Tscmap..) = map of processed sectors.
;
;		exit	(nsec) = (nsec) -1.
;			(Tscmap+sect) = $ff.
;			z flag will be set if no more sectors to process on this track.


		entry	mts

mts		lda	#$ff
		ldx	sect
		sta	>Tscmap,x	;mark this sector as being processed
		lda	>nsec
		dea
		sta	>nsec
		rts



;;		pdf - prenibblize data buffer
;

		entry	pdf


* 		If this is a write operation then transfer sector data to
* 		bank $00 buffer in preperation for nibblization.
*

pdf		rep	#$30
		longmx

		pei	<ibbufp+2	; source buffer
		pei	<ibbufp

		pea	sys_buffer>>16	; destination buffer
		pea	sys_buffer
		pea	$0000		; block size
		pea	$0100
		pea	move_sinc_dinc	; src incr & dest incr
		jsl	move_info
		jsr	prenib16	;prenibblize the data

		shortmx
		rts
		

;	this just fits here...

		entry	Tscmap
		
Tscmap		ds.b	16		; map of used sectors



		ENDP
		EJECT
*****************************************************************
*
* Read subroutine (16-sector format)
*
* Reads encoded bytes into nbuf1 and nbuf2.  First reads nbuf2
* high to low, then reads nbuf1 low to high.
*  ______ _____ _____ _____ _________________ ______ _____ _____ _____
* |      |     |     |     |                 |      |     |     |     |
* | GAP2 | $D5 | $AA | $AD | 342 BYTES DATA  | CSUM | $DE | $AA | $EB |
* |______|_____|_____|_____|_________________|______|_____|_____|_____|
*
* GAP2:         5 to 10 bytes of self sync nibbles ($FF)
* CSUM:         Checksum is 4 & 4 encoded (two bytes)
*
* Entry: via a 'JSR'
*               A Reg = Undefined
*               X Reg = Slot * 16
*               Y Reg = Undefined
*               B Reg = Current program bank
*             Dir Reg = Absolute zero page
*               P Reg = N V M X D I Z C  E
*                       x x 1 1 0 1 x x  1
*            IWM Mode = Read Mode
*
* Exit: via a 'RTS'
*               A Reg = $AA
*               X Reg = Unchanged
*               Y Reg = $00
*               B Reg = Current program bank
*             Dir Reg = Absolute zero page
*               P Reg = N V M X D I Z C  E
*                       x x 1 1 0 1 x 0  1  if no error
*                       x x 1 1 0 1 x 1  1  if error
*
* ---- caution -----
*
* Observe 'no page cross' warnings on some branches!!
*
*****************************************************************
read16		PROC	align 256
		entry	rsync
		entry	rd1
		entry	rsync1
		entry	rd2
		entry	rd3
		entry	rdata1
		entry	rd4
		entry	rderr2
		entry	ref1
		entry	rd5
		entry	rd6
		entry	ref2
		entry	rd7
		entry	rdata2
		entry	ref3
		entry	rd8
		entry	rd9
		entry	rderr1
		entry	rdok

		longa	off
		longi	off

		phb
		phk
		plb

		lda	#$80
		sta	>cyareg		; make sure fast mode 
		
		txa			; get slot #.
		ora	#$8c		; prepare mods to read routine.
		sta	|rd4+1		; warning: the read routine is self modified!!!
		sta	|rd5+1
		sta	|rd6+1
		sta	|rd7+1
		sta	|rd8+1
		
		longm
		lda	<ibbufp		; modify storage addresses also.
		sta	l1
		ldy	<ibbufp+2
		sty	l1+2
		
		sec
		sbc	#$54
		sta	l2
		bcs	rdf1
		dey
		sec
rdf1		sty	l2+2

		sbc	#$57
		sta	l3
		bcs	rdf2
		dey
rdf2		sty	l3+2
		shortm
		
		plb			; restore original data bank

		lda	#$0
		sta	>cyareg		; go into slow mode
		
		ldy	#$20		; 'must find count'
rsync
		dey
		beq	rderr2		; branch if can't find data header marks.
rd1
		lda	|q6l,x
		bpl	rd1
rsync1
		eor	#$D5		; first data mark.
		bne	rsync
		nop			; waste a little time...
rd2
		lda	|q6l,x
		bpl	rd2
		cmp	#$AA		; data mark 2
		bne	rsync1		; if not, check for first again.
		nop
rd3
		lda	|q6l,x
		bpl	rd3
		cmp	#$AD		; data mark 3
		bne	rsync1		; if not, check for data mark 1 again.

		ldy	#$AA
		lda	#0
rdata1
		sta	<wtemp		; use zpage for checksum keeping.

rd4
		ldx	|q6l+$60	; warning: self modified.
		bpl	rd4
		lda	|dnibl,x
		sta	|nbuf2-$aa,y	; save the two-bit groups in nbuf.
		eor	<wtemp		; update checksum.
		iny			; bump to next nbuf position.
		bne	rdata1		; loop for all $56 two-bit groups.
		ldy	#$AA		; now read directly into user buffer.
		bra	rd5		

rderr2
		sec		
		rts

ref1					              
		sta	[l3],y
		
rd5
		ldx	|q6l+$60
		bpl	rd5
		eor	|dnibl,x	; get actual 6-bit data from dnib table.
		ldx	|nbuf2-$aa,y	; get associated two-bit pattern.
		eor	|dnibl2,x	; and combine to form whole byte.
		iny
		bne	ref1		; loop for $56 bytes.
		pha			; save this byte for now, no time to store...
		and	#$FC		; strip low bits...
		ldy	#$AA		; prepare for next $56 bytes.

rd6
		ldx	|q6l+$60
		bpl	rd6
		eor	|dnibl,x
		ldx	|nbuf2-$aa,y
		eor	|dnibl3,x
ref2
		sta	[l2],y
		
		iny
		bne	rd6		; loop until this group of $56 read in.
		
rd7
		ldx	|q6l+$60
		bpl	rd7
		and	#$FC
		ldy	#$AC		; last group is $54 long.
rdata2
		eor	|dnibl,x
		ldx	|nbuf2-$ac,y
		eor	|dnibl4,x	; combine to form full byte.
ref3
		sta	[l1],y
		
rd8
		ldx	|q6l+$60	; warning: self modified.
		bpl	rd8
		iny
		bne	rdata2
		and	#$FC
		eor	|dnibl,x	; check sum ok?
		
		bne	rderr1		; branch if not.

		ldx	<ibslot		; test end marks.
		
rd9		lda	|q6l,x
		bpl	rd9
		cmp	#$DE
		clc
		beq	rdok		; branch if good trailer...
rderr1
		sec
rdok
		pla			; place last byte into user buffer.
		ldy	#$55
		sta	[l1],y		;place last byte in buffer
		rts
		

*
* this subroutine sets the slot dependent track
* location.
*
		entry	settrk
settrk
		jsr	drvindx		; get index to drive number.
		sta	|drv0trk,x
		rts

		ENDP
		EJECT
*****************************************************************
*
* Write subroutine ( 16 sector format)
*
* Writes data from nbuf1 and buf.  First nbuf2 high to low.
* Then direct from (buf) low to high.  Self modified code!!!
*
* Entry: via a 'JSR'
*               A Reg = Undefined
*               X Reg = Slot * 16
*               Y Reg = Undefined
*               B Reg = Current program bank
*             Dir Reg = Absolute zero page
*               P Reg = N V M X D I Z C  E
*                       x x 1 1 0 1 x x  1
*            IWM Mode = Read Mode
*               Speed = 1 mhz
*
* Exit: via a 'RTS'
*               A Reg = Undefined
*               X Reg = Unchanged
*               Y Reg = $00
*               B Reg = Current program bank
*             Dir Reg = Absolute zero page
*               P Reg = N V M X D I Z C  E
*                       x x 1 1 0 1 x 0  1  if no error
*                       x x 1 1 0 1 x 1  1  if error
*
*****************************************************************
write16		PROC	align 256
		entry	wr16
		entry	wsync
		entry	wdata0
		entry	wdata1
		entry	wrefd1
		entry	wdata2
		entry	wrefa1
		entry	wrefd2
		entry	wrefa2
		entry	wdata3
		entry	wrefa3
		entry	wrefd3
		entry	wrefa4
		entry	wrefa5
		entry	wrtodd
		entry	wrefd4
		entry	wrefa6
		entry	wdne1
		entry	wdata4
		entry	wdone
		entry	wrefd5
		entry	wrtendmk
		entry	wexit
					;using driver_data
		longa	off
		longi	off

		sec			; anticipate wprot err.
		lda	|q6h,x
		lda	|q7l,x		; sense wprot flag.
		bpl	@wr16
		jmp	wexit		; exit if write protected

@wr16
		lda	#$0
		sta	>cyareg		; reset to slow mode
wr16
		lda	|nbuf2
		sta	<wtemp
		lda	#$FF		; sync data.
		sta	|q7h,x		; (5) goto write mode
		ora	|q6l,x		; (4)
		ldy	#$4		; (2) for five nibls.
		nop			; (2)
		pha			; (3)
		pla			; (4)
wsync
		pha			; (3) exact timing.
		pla			; (4) exact timing.
		jsr	wnibl7		; (13,9,6)  write sync.
		dey			; (2)
		bne	wsync		; (3-)  must not cross page!
		lda	#$D5		; (2)  1st data mark.
		jsr	wnibl9		; (15,9,6)
		lda	#$AA		; (2)  2nd data mark.
		jsr	wnibl9		; (15,9,6)
		lda	#$AD		; (2)  3rd data mark.
		jsr	wnibl9		; (15,9,6)
		tya			; (2) zero checksum 
		ldy	#$56		; (2) nbuf2 index
		bne	wdata1		; (3)branch always taken. 
wdata0
		lda	|nbuf2,y	; (4) prior 6-bit nibl.
wdata1
		eor	|nbuf2-1,y	; (5) xor with current.
		tax			; (2) index to 7-bit nibl (nbuf2 must be on page boundary).
		lda	|nibl,x		; (4) must not cross page boundary 
		ldx	<ibslot		; (3) restore slot index. 
		sta	|q6h,x		; (5) store encoded byte.
		lda	|q6l,x		; (4) time must = 32 us per byte!
		dey			; (2)
		bne	wdata0		; (3-) must not cross page boundary 
		lda	<wtemp		; (3) get prior nibl (from nbuf2).
wrefd1
		ldy	#0		; (2) warning: load value modified by prenib!
wdata2
wrefa1
		eor	|$1000,y	; (4) warning: address modified by prenib!
		and	#$FC		; (2)
		tax			; (2) index to nibl table
		lda	|nibl,x		; (4)
wrefd2
		ldx	#$60		; (2) warning: load value modified by prenib
		sta	|q6h,x		; (5) write nibl.
		lda	|q6l,x		; (4) handshake.
wrefa2
		lda	|$1000,y	; (4) prior nibl. warning: address modified by prenib.
		iny			; (2) all done with this page?
		bne	wdata2		; (3-) loop until page end.

		lda	<midnib1	; (3) get next (precalculated and translated) nibl.
		beq	wdone		; (2+) branch if code writen was page aligned.
		lda	<yend		; (3) get byte address of last byte to be written.
		beq	wdata4		; (2+) branch if only 1 byte left to write.
		lsr	a		; (2) test for odd or even last byte (carry set or clear)
		lda	<midnib1	; (3) restore nibl to acc.
		sta	|q6h,x		; (5)
		lda	|q6l,x		; (4)
		lda	<midnib2	; (3) =byte 0 of second page. xor'd with byte 1 if above test set carry.
		nop			; (2) waste time.
		iny			; (2) y=1
		bcs	wrtodd		; (2+) branch if last byte to be odd.

wdata3
wrefa3
		eor	|$1100,y	; (4) warning: address modified by prenib.
		and	#$FC		; (2) strip low 2 bits.
		tax			; (2) index to nibl table.
		lda	|nibl,x		; (4) get nibl.
wrefd3
		ldx	#$60		; (2) restore slot index. warning: modified by prenib.
		sta	|q6h,x		; (5)
		lda	|q6l,x		; (4)
wrefa4
		lda	|$1100,y	; (4) warning: modified by prenib.
		iny			; (2) got prior nibl, bump to next.
wrefa5
		eor	|$1100,y	; (4) warning: modified by prenib.
wrtodd
		cpy	<yend		; (3) set carry if this is last nibl.
		and	#$FC		; (2)
		tax			; (2) 
		lda	|nibl,x		; (4)
wrefd4
		ldx	#$60		; (2) restore slot. warning: modified by prenib.
		sta	|q6h,x		; (5) 
		lda	|q6l,x		; (4) 
wrefa6
		lda	|$1100,y	; (4) get prior. warning: these warnings are all the same.
		iny			; (2) 
		bcc	wdata3		; (3-) branch if that was not the last.
		bcs	wdne1		; (3) waste 3 cycles, branch always
wdne1
		bcs	wdone		; (3) branch always

wdata4
		lda	|midnib1	; (4) absolute reference to zero page.
		sta	|q6h,x		; (5)
		lda	|q6l,x		; (4)
		pha			; (3) waste 14 us total.
		pla			; (4)
		pha			; (3)
		pla			; (4) 
wdone
		ldx	<lstnib		; (3) last nibl (and w/$fc) for checksum.
		lda	|nibl,x		; (4)
wrefd5
		ldx	#$60		; (2) restore slot. warning: see above warnings...
		sta	|q6h,x		; (5) 
		lda	|q6l,x		; (4)
		ldy	#0		; (2) set y to index end mark table. 
		pha			; (3) waste another 11 us. 
		pla			; (4) 
		nop			; (2) 
		nop			; (2) 
wrtendmk
		lda	|endmrks,y	; (4) dm4, dm5, dm6, and turn off byte.
		jsr	wnibl		; (15,6)    write it.
		iny			; (2)
		cpy	#4		; (2) have all end marks been written? 
		bne	wrtendmk	; (3)
		clc			; (2,9) 
wexit
		lda	|q7l,x		; out of write mode.
		lda	|q6l,x		; to read mode.
		lda	#$80
		sta	>cyareg
		rts			; return from write.

		eject

*****************************************************************
*
*   7-bit nibl write subrs
*
*   a-reg or'd prior exit
*       carry cleared
*
*****************************************************************
		entry	wnibl9
		entry	wnibl7
		entry	wnibl
wnibl9
		clc			; (2)  9 cycles, then write.
wnibl7
		pha			; (3)  7 cycles, then write.
		pla			; (4)
wnibl
		sta	|q6h,x		; (5)  nibl write sub.
		ora	|q6l,x		; (4)  clobbers acc, not carry.
		rts			; (6) 

		ENDP
		EJECT
*****************************************************************
*
* Preniblize subroutine (16 sector format)
*
* Converts 256 bytes of user data in (buf) into 6 bit nibls
* into nbuf2. High 6 bits are translated directly by the write
* routines.
*
* Entry: via a 'JSR'
*                 Buf = Word pointer to 256 bytes of user data
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*               B Reg = Current program bank
*             Dir Reg = Absolute zero page
*               P Reg = N V M X D I Z C  E
*                       x x 1 1 0 1 x x  1
*            IWM Mode = Read Mode
*
* Exit: via a 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*               B Reg = Current program bank
*             Dir Reg = Absolute zero page
*               P Reg = N V M X D I Z C  E
*                       x x 1 1 0 1 x 0  1  if no error
*                       x x 1 1 0 1 x 1  1  if error
*
* Write routine modified to do direct conversion of high
* 6 bits of users buffer data.
*
*****************************************************************
prenib16	PROC
		entry	prenib1
		entry	prenib2
		entry	prenib3
		entry	prenib4
		entry	prn1
		entry	prn2
		entry	prn3
		entry	wmod1
		entry	wmod2
		entry	wmod3
					;using   driver_data

		phb			; need our bank for self modification
		phk
		plb

		longa	on
		longi	on

		lda	#sys_buffer
		sta	l1

		sep	#$30
		longa	off
		longi	off
		
		lda	<l1		; first self modify addresses so we can be fast!
		ldy	<l1+1		; y contains high order address. 
		clc			; all offsets are -$aa... 
		adc	#2		; the highest set is buf+$ac 
		bcc	prenib1		; branch if no carry. 
		iny			; otherwise add carry to high address. 
prenib1
		sta	|prn3+1		; self mod 3
		sty	|prn3+2		
		sec	
		sbc	#$56		; middle set is buf+$56 
		bcs	prenib2		; branch if no borrow 
		dey			; otherwise deduct from high..
prenib2
		sta	|prn2+1		; self mod 2.
		sty	|prn2+2		
		sec
		sbc	#$56		; low set is exactly buf.
		bcs	prenib3
		dey
prenib3
		sta	|prn1+1		; self mod 1.
		sty	|prn1+2

		plb			; back to I/O bank

		ldy	#$AA		; count up to 0. 
prenib4
prn1
		lda	|$1000,y	; fetch byte from lowest group. warning: self modified.
		and	#$3		; strip high 6 bits. 
		tax			; index to 2 bit equiv.
		lda	|twobit1,x	
		pha			; save pattern 
prn2
		lda	|$1056,y	; fetch from middle group
		and	#3		
		tax	
		pla			; restore pattern.
		ora	twobit2,x	; combine second group with first. 
		pha			; save new pattern. 
prn3
		lda	|$10ac,y	; get highest group.
		and	#3		
		tax	
		pla			; restore new pattern. 
		ora	|twobit3,x	; and form final nibl. 
		pha
		tya
		eor	#$FF
		tax
		pla
		sta	|nbuf2,x	; save in nibl buffer! 
		iny			; bump to next set. 
		bne	prenib4		; loop until all $56 nibls formed. 
		ldy	<l1		; now prepare data bytes for write16 routine.
		dey			; prepare end addr.
		sty	<yend
		lda	<l1
		sta	>wrefd1+1	; warning: the following storage addresses starting
		beq	wmod1		;  with 'wref' are referces into code space,
		eor	#$FF		;  changed by this routine.
		tay			; index to last byte of page pointed to by buf.
		lda	(<l1),y		; pre-niblize the last byte of the page with
		iny			;  the first byte of the next page.
		eor	(<l1),y
		and	#$FC
		tax
		lda	|nibl,x		; get disk 7-bit nibl equivalent.
wmod1
		sta	<midnib1
		beq	wmod3		; branch if data to be written is page aligned.
		lda	<yend		; find out if last byte is even or odd address.
		lsr	a		; shift even/oddness into carry
		lda	(<l1),y		; if even, then leave in tact.
		bcc	wmod2		; branch if odd.
		iny			; if even, then pre-xor with byte 1.
		eor	(<l1),y
wmod2
		sta	<midnib2	; save result for write routine.
wmod3
		ldy	#$FF		; index to last byte of data to be writen
		lda	(<l1),y		;  to be used as checksum.
		and	#$FC		; strip extra bits

		phb			; need our bank for self modification
		phk
		plb

		sta	<lstnib		; save it.
		ldy	<l1+1		; now modify address reference to user data.
		sty	|wrefa1+2
		sty	|wrefa2+2
		iny
		sty	|wrefa3+2
		sty	|wrefa4+2
		sty	|wrefa5+2
		sty	|wrefa6+2
		ldx	<ibslot		; and lastly index references to controller.
		stx	|wrefd2+1	
		stx	|wrefd3+1	
		stx	|wrefd4+1	
		stx	|wrefd5+1	

		plb

		rts			; all done.

		eject
*****************************************************************
*
* Checks to see if this access is to the same device as the
* previous access.
*
* Entry: via a 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*               B Reg = Current program bank
*             Dir Reg = Absolute zero page
*               P Reg = N V M X D I Z C  E
*                       x x 1 1 0 1 x x  1
*            IWM Mode = Read Mode
*               Speed = 1 mhz
*
* Exit: via a 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*               B Reg = Current program bank
*             Dir Reg = Absolute zero page
*               P Reg = N V M X D I Z C  E
*                       x x 1 1 0 1 x 0  1  if no error
*                       x x 1 1 0 1 x 1  1  if error
*
*****************************************************************
		entry	chkprev
		entry	chkpv1
		entry	chkpv2
chkprev
		longa	off
		longi	off

		lda	<ibslot		; same slot as last previous access
		cmp	<iobpsn
		bne	not_same
		lda	<ibdrvn		; same unit as last previous access
		cmp	<iobpdn
		beq	chkpv2
not_same
		lda	#01
		sta	|montimeh
chkpv1
		ldx	<ibslot
		beq	chkpv2		; branch if no previous ever (boot only)
		jsr	chkdrv0		; find out if previous drive running. 
		beq	chkpv2		; branch if stopped.
		lda	#1		; waste some time.
		jsr	mswait
		lda	|montimeh
		bne	chkpv1
chkpv2
		rts

		eject
*****************************************************************
*
* Reset all phase lines to the drive in preperation for I/O.
*
* Entry: via a 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*               B Reg = Current program bank
*             Dir Reg = Absolute zero page
*               P Reg = N V M X D I Z C  E
*                       x x 1 1 0 1 x x  1
*            IWM Mode = Read Mode
*               Speed = 1 mhz
*
* ExIt: via a 'rts'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*               B Reg = Current program bank
*             Dir Reg = Absolute zero page
*               P Reg = N V M X D I Z C  E
*                       x x 1 1 0 1 x x  1
*
*****************************************************************
		entry	rsetphse
rsetphse
		longa	off
		longi	off

		ldx	<ibslot		; get unit number
		lda	|phaseoff+0,x	; make sure all motor phases
		lda	|phaseoff+2,x	; are off
		lda	|phaseoff+4,x
		lda	|phaseoff+6,x
		rts

		ENDP
		EJECT
*****************************************************************
*
* DRIVER SUBROUTINE: Format_media
*
* Disk][ sector looks like:
*  _____ ______ _____ ______ ______________ _______ ______ _____
* |     |      |     |      |              |       |      |     |
* | GAP | ADDR | GAP | DATA |  342 BYTES   | CHECK | END  | GAP |
* |  1  | MARK |  2  | MARK |  DATA FIELD  |  SUM  | MARK |  3  |
* |_____|______|_____|______|______________|_______|______|_____|
*
* GAP 1:        12 to 85 bytes of self sync nibbles ($FF)
* ADDR MARK:    $D5, $AA, $96, volume, track, sector & checksum
* GAP 2:        5 to 10 bytes of self sync nibbles ($FF)
* DATA MARK:    $D5, $AA, $AD
* DATA FIELD:   342 bytes of six and two encoded data
* CHECKSUM:     1 byte eor checksum
* END MARK:     $DE, $AA, $EB, $FF
* GAP 3:        16 to 28 bytes of self sync nibbles ($FF)
*
* ENTRY: via a 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*               B Reg = Bank $00
*             Dir Reg = Absolute Zero Page
*               P Reg = N V M X D I Z C  E
*                       x x 1 1 0 1 x x  1
*               Speed = 1 mHz
*            IWM Mode = Read Mode
*              <slotz = Slot * 16
*
* EXIT: via a 'RTS'
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*               B Reg = Bank $00
*             Dir Reg = Absolute Zero Page
*               P Reg = N V M X D I Z C  E
*                       x x 1 1 0 1 x 0  1  if no error
*                       x x 1 1 0 1 x 1  1  if error
*
*****************************************************************
format_media	PROC	
					;using   driver_data
		longa	off
		longi	off

		lda	#$D7		; almost 1 second
		sta	|montimeh
*
* Recalibrate the read/write head.
*
		jsr	drvindx		; get current track index this drive
		lda	#80		; pretend on track 80
		sta	>drv0trk,x
		lda	#0		; destination track is zero
		jsr	myseek		; move the head
wait_up
		lda	|montimeh	; motor up to speed?
		beq	up_to_speed	; yes
		jsr	mswait		; else continue delay
		bra	wait_up
*
* Initialize things.
*
up_to_speed
 		lda	<ibvol		; wildcard volume #?
		bne	@1		; no...
		lda	#254		; else default it (like DOS 3.3)
		sta	<ibvol
@1
		lda	#$AA		; time dependent references
		sta	<aa
		lda	#$1D		; number of selfsync nibbles
		sta	<nsync
		lda	#0		; start on track zero
		sta	<ibtrk

format_track
		lda	<ibtrk		; seek to track to be formatted
		ldx	<ibslot
		jsr	myseek
		ldx	<ibslot		; get slot * 16
		lda	|q6h,x		; to sense mode (check WRPROT)
		lda	|q7l,x
		tay
		lda	|q7l,x		; back into read mode
		lda	|q6l,x
		tya
		bpl	write_enable	; if write enabled
		lda	#drvr_wr_prot	; else return write protected error
		bra	format_done

write_enable
		jsr	write_fmt_16	; write & verify track
		bcc	trk_fmt_ok	; if this track formatted ok
return_io_err
		lda	#drvr_io_error	; else return an I/O error
		bra	format_done
*
* Track formatted ok.  Check if drive speed is within exceptable limits.
*
trk_fmt_ok
		ldy	<nsync		; gaps to small?
		cpy	#$0E
		blt	return_io_err	; yes
		cpy	#$1B		; gaps to large?
		bge	return_io_err	; yes
*
* Drive speed appears to be within limits.  Open an interrupt
* window just in case an IRQ is pending.
*
track_ok
		lda	<irqmask
		pha
		plp
		sei			; close interrupt window
		lda	#$10		; to find sector zero
		sta	|retrycnt
find_sec_0
		dec	|retrycnt	; any more retries
		bmi	return_io_err	; no
		ldx	<ibslot		; need slot * 16
		jsr	rdadr16E	; find address field  DEBUG
		bcs	find_sec_0	; retry if cant find address field
		lda	|sect		; check sector that was read
		bne	find_sec_0	; if not sector zero
		ldx	<ibslot		; need slot * 16
		jsr	verify16	; now read data field
		bcs	find_sec_0	; if cant read data field then retry
*
* Head is now properly positioned for optimum latency on seek to next track.
*
		inc	<ibtrk
		lda	<ibtrk
		cmp	#35
		blt	format_track
		lda	#no_error
format_done
		pha
		ldx	<ibslot		; need slot * 16
		lda	|motoroff,x	; turn motor off
		lda	#0		; restore r/w head to track zero
		jsr	myseek
		pla
		sta	<ibstat
		rts

		eject
*****************************************************************
*
* VERIFY16
*
* ENTRY: via a 'JSR'
*               A Reg = Undefined
*               X Reg = Slot * 16
*               Y Reg = Undefined
*               B Reg = Bank $00
*             Dir Reg = Absolute Zero Page
*               P Reg = N V M X D I Z C  E
*                       x x 1 1 0 1 x x  1
*               Speed = 1 mHz
*            IWM Mode = Read Mode
*              <slotz = Slot * 16
*
* EXIT: via a 'RTS'
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*               B Reg = Bank $00
*             Dir Reg = Absolute Zero Page
*               P Reg = N V M X D I Z C  E
*                       x x 1 1 0 1 x 0  1  if no error
*                       x x 1 1 0 1 x 1  1  if error
*
*****************************************************************
		entry	verify16
verify16
		longa	off
		longi	off

		lda	#$00		; ensure 1Mhz clock
		sta	>cyareg

		ldy	#$20		; 'must find' count
vsync
		dey
		beq	verr		; if cant find marks then error
v1
		lda	|q6l,x		; read nibl
		bpl	v1		; *** NO PAGE CROSS ***
vsync1
		eor	#$D5		; data mark #1?
		bne	vsync		; no
		nop
v2
		lda	|q6l,x
		bpl	v2		; *** NO PAGE CROSS ***
		cmp	#$AA		; data mark #2?
		bne	vsync1		; no, is it data mark #1?
		ldy	#$56		; init nbuf2 index
v3
		lda	|q6l,x
		bpl	v3		; *** NO PAGE CROSS ***
		cmp	#$AD		; data mark #3
		bne	vsync1		; no, is it data mark #1?
		lda	#$00		; init checksum
vdata1
		dey
		sty	<idx
v4
		lda	|q6l,x
		bpl	v4		; *** NO PAGE CROSS ***

		cmp	#$96		; is it one of our zeros?
		bne	verr		; no, exit with an error
		ldy	<idx
		bne	vdata1
vdata2
		sty	<idx
v5
		lda	|q6l,x
		bpl	v5		; *** NO PAGE CROSS ***
		cmp	#$96		; is it one of our zeros?
		bne	verr		; no, exit with an error
		ldy	<idx
		iny
		bne	vdata2
v6
		lda	|q6l,x		; read 7 bit checksum nibl
		bpl	v6		; *** NO PAGE CROSS ***
		cmp	#$96		; checksum correct?
		bne	verr		; no, exit with an error
v7
		lda	|q6l,x
		bpl	v7		; *** NO PAGE CROSS ***
		cmp	#$DE		; first bit slip mark?
		bne	verr		; no, exit with an error
v8
		lda	|q6l,x
		bpl	v8		; *** NO PAGE CROSS ***
		cmp	#$AA		; second bit slip mark?
		bne	verr		; no, exit with an error
		clc
		dc.b	$B0		; BCS opcode (skip SEC)
verr
		sec
		lda	#$80		; reset to fast clock
		sta	>cyareg
		rts

		ENDP
		EJECT
*****************************************************************
*
* FORMAT16
*
* This routine writes a sector of 256 $00's (342 $96's).
* Code is very time critical.  Observe all page cross warnings.
*
* ENTRY: via a 'JSR'
*               A Reg = Undefined
*               X Reg = Slot * 16
*               Y Reg = Undefined
*               B Reg = Bank $00
*             Dir Reg = Absolute Zero Page
*               P Reg = N V M X D I Z C  E
*                       x x 1 1 0 1 x x  1
*               Speed = 1 mHz
*            IWM Mode = Read Mode
*              <slotz = Slot * 16
*
* EXIT: via a 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*               B Reg = Bank $00
*             Dir Reg = Absolute Zero Page
*               P Reg = N V M X D I Z C  E
*                       x x 1 1 0 1 x x  1
*
*****************************************************************
format16	PROC	align		256
		longa	off
		longi	off

		lda	#$00		; slow mode
		sta	>cyareg

		jsr	fmt_exit	; delay
		bit	|q6h,x		; switch to write sense/setup mode
		lda	#$FF		; self sync data
		sta	|q7h,x		; write 1st nibl
		cmp	|q6l,x
		pha
		pla
		nop
		ldy	#4		; for 5 nibls
fsync
		pha
		pla
		jsr	fnibl7		; write sync
		dey
		bne	fsync		; *** NO PAGE CROSS ***
		lda	#$D5		; write 1st address mark
		jsr	fnibl9
		lda	#$AA		; write 2nd address mark
		jsr	fnibl9
		lda	#$AD		; write 3rd address mark
		jsr	fnibl9
		ldy	#$56		; 1st loop: write 86 zeros
		nop
		nop
		nop
		bne	fdata1		; *** NO PAGE CROSS ***
fdata0
		jsr	fmt_exit
fdata1
		nop
		nop
		lda	#$96		; write zeros into data field
		sta	|q6h,x
		cmp	|q6l,x
		dey
		bne	fdata0		; *** NO PAGE CROSS ***
		bit	<$00		; then write additional 256 zeros
		nop
fdata2
		jsr	fmt_exit
		lda	#$96		; write zeros into data field
		sta	|q6h,x
		cmp	|q6l,x
		lda	#$96		; load for checksum fall through
		nop
		iny
		bne	fdata2		; *** NO PAGE CROSS ***
		jsr	fnibl9		; write checksum
		lda	#$DE		; write 1st bit slip mark
		jsr	fnibl9
		lda	#$AA		; write 2nd bit slip mark
		jsr	fnibl9
		lda	#$EB		; write 3rd bit slip mark
		jsr	fnibl9
		lda	#$FF		; turn off byte
		jsr	fnibl9
		lda	|q7l,x		; switch back to read mode
		lda	|q6l,x
		lda	#$80		; fast mode
		sta	>cyareg
fmt_exit
		rts

fnibl9
		nop			; 9 cycles, then write
fnibl7
		pha			; 7 cycles, then write
		pla
		sta	|q6h,x
		cmp	|q6l,x
		rts

		eject
*****************************************************************
*
* WRITE ADDRESS 16
*
* Writes specified number fo 40 uS (10 bit) self sync nibls,
* address marks and fields.
*
* ENTRY: via a 'JSR'
*               A Reg = Undefined
*               X Reg = Slot * 16
*               Y Reg = Number of self sync nibbles
*               B Reg = Bank $00
*             Dir Reg = Absolute Zero Page
*               P Reg = N V M X D I Z C  E
*                       x x 1 1 0 1 x x  1
*               Speed = 1 mHz
*            IWM Mode = Read Mode
*              <slotz = Slot * 16
*
* EXIT: via a 'RTS'
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*               B Reg = Bank $00
*             Dir Reg = Absolute Zero Page
*               P Reg = N V M X D I Z C  E
*                       x x 1 1 0 1 x 0  1  if no error
*                       x x 1 1 0 1 x 1  1  if error
*
*****************************************************************
		entry	wr_adr_16
wr_adr_16
		longa	off
		longi	off

		lda	#0		; slow mode
		sta	>cyareg

		sei			; no interrupts for now

* we added these to lines to fix formating to disk2 card problem

		lda	|q6h,x		;into write setup mode
		lda	|q7l,x

* end of our patch

		lda	#$FF		; self sync nibble
		sta	|q7h,x
		cmp	|q6l,x
		pha
		pla
wr_sync1
		jsr	wr_adr_rts1	; for 40uS nibbles
		jsr	wr_adr_rts1
		sta	|q6h,x		; write nibble
		cmp	|q6l,x
		nop
		dey
		bne	wr_sync1	; *** NO PAGE CROSS ***
		lda	#$D5		; write 1st address mark
		jsr	wniblb2
		lda	#$AA		; write 2nd address mark
		jsr	wniblb2
		lda	#$96		; write 3rd address mark
		jsr	wniblb2
		lda	<ibvol		; write volume
		jsr	wbyte
		lda	<ibtrk		; write track
		jsr	wbyte
		lda	<ibsect		; write sector
		jsr	wbyte
		lda	<ibvol		; form address field checksum
		eor	<ibtrk
		eor	<ibsect
		pha			; save for even bits
		lsr	a
		ora	<aa		; set clock bits
*
* Precise timing, 32 cycles per nibblized byte)
*
		sta	|q6h,x		; write checksum odd bits
		lda	|q6l,x
		pla
		ora	#$AA		; set clock bits
		jsr	wnibla
		lda	#$DE		; end mark 1
		jsr	wniblb2
		lda	#$AA		; end mark 2
		jsr	wniblb2
		lda	#$EB		; end mark 3
		jsr	wniblb2
		clc			; indicate no wrprot error
wr_adr_rts
		lda	|q7l,x		; out of write mode
		lda	|q6l,x
		lda	#$80		; fast mode
		sta	 >cyareg
wr_adr_rts1
		rts
wbyte
		pha			; preserve for even bits
		lsr	a		; align odd bits
		ora	<aa		; set clock bits
		sta	|q6h,x		; write nibble
		cmp	|q6l,x
		pla			; recover even bits
		nop
		nop
		nop
		ora	#$AA		; set clock bits
wnibla
		nop
wniblb2
		nop
		pha
		pla
		sta	|q6h,x
		cmp	|q6l,x
		rts

		eject
*****************************************************************
*
* WRITE_FORMAT_16
*
* We have a counter (trkretry) which prevents wtrack16 from
* retrying forever.  The extensive retries caused the track
* to precess on successive writes, possibly allowing a damaged
* spot on the media to be slit into an intersector gap.
* Subsequent data writes could then encounter the damaged area.
* Finally, the routine verifies that the first sector encountered
* is sector 0, and that all 16 sectors are readable withing
* 2 revolutions of the disk.  If the first sector is not zero
* then the current number of self sync nibls is decremented by 1.
* Then sector 15 is located so as to position the track for a
* rewrite.  If unable to read any sector then the entire track
* will be rewritten.
*
* ENTRY: via a 'JSR'
*               A Reg = Undefined
*               X Reg = Slot * 16
*               Y Reg = Undefined
*               B Reg = Bank $00
*             Dir Reg = Absolute Zero Page
*               P Reg = N V M X D I Z C  E
*                       x x 1 1 0 1 x x  1
*               Speed = 1 mHz
*            IWM Mode = Read Mode
*              <slotz = Slot * 16
*
* EXIT: via a 'RTS'
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*               B Reg = Bank $00
*             Dir Reg = Absolute Zero Page
*               P Reg = N V M X D I Z C  E
*                       x x 1 1 0 1 x 0  1  if no error
*                       x x 1 1 0 1 x 1  1  if error
*
*****************************************************************
		entry	write_fmt_16
write_fmt_16
		longa	off
		longi	off

		lda	#3		; max retries per track
		sta	<trkretry
*
* On first attempt, deliberately write to large a seam.
* This ensures that all of the track is erased.
*
wr_retry
		ldy	#128		; 128 nibls prior to sector zero
		lda	#0
		sta	<ibsect
		bra	wr_sect_0

wr_sect
		ldy	<nsync		; current number of gap selfsync nibls
wr_sect_0
		ldx	<ibslot
		jsr	wr_adr_16	; write gap and adr field
		ldx	<ibslot
		jsr	format16	; write sector from nbuf1, nbuf2
		inc	<ibsect
		lda	<ibsect
		cmp	#16
		bcc	wr_sect		; do all 16 sectors
		
		eject
*
* Start of track verify routine.
*
		ldy	#16-1		; sector zero is special
		sty	<ibsect
		lda	#16
		sta	|retrycnt
		
clr_found	sta	|found,y	; mark each sector as not found
		dey
		bpl	clr_found
*
* Delay for 40 mS per nsysc byte to ensure that the
* gap between sector 15 and 0 is large enough.
*
		lda	#0
		sta	>cyareg		; make sure slow mode
		
		lda	<nsync		; get current count
		sec
		sbc	#5		; 2 already past & 5 for self sync
		tay
sec_0_delay
		jsr	wexit
		jsr	wexit
		pha
		pla
		nop
		nop
		dey
		bne	sec_0_delay

		lda	#$80		; back to fast clock
		sta	>cyareg
*
* See if we have a sector zero here
*
		ldx	<ibslot		; need slot * 16
		jsr	rdadr16E	; read next address field.DEBUG
		bcs	rewrite		; err, locate sect 15 & rewrite track
		lda	|sect		; was it sector zero?
		beq	verify_data	; yes, now verify data field
*
* Not sector zero.  Gaps are to large.  Rewrite to reduce gap size.
*
		dec	<nsync
		lda	<nsync
		cmp	#$0E		; are gaps already to small?
		bge	rewrite		; no, go ahead and rewrite track
		lda	#drvr_io_error
		sec
		rts
*
* Make sure we can read the track we just wrote.
*
verify_sector
		ldx	<ibslot		; need slot * 16
		jsr	rdadr16E	; read address field
		bcs	verify_err	; retry if cant read address field
verify_data	
		ldx	<ibslot		; need slot * 16
		jsr	verify16	; verify data field
		bcs	verify_err	; retry if cant read data
		ldy	|sect		; this is the sector we just read
		lda	|found,y	; already found?
		bmi	verify_err	; yes, ignore it
		lda	#$FF		; else mark it as found
		sta	|found,y
		dec	<ibsect		; next sector to find
		bpl	verify_sector	; loop for all 16 sectors
		lda	#no_error
		clc
		rts
*
* Either could not read address marks, data or sector was previously
* verified.  In any case, if retry count is not exhausted then try
* to verify the sector again.
*
verify_err
		dec	|retrycnt	; next of 48 sector retries
		bne	verify_sector
		dec	|trkretry	; should track be rewritten?
		bne	rewrite		; yes
		lda	#drvr_io_error
		sec
		rts
*
* Could not verify the track.  Find sector 15 before rewritting.
*
rewrite
		lda	<ibtrk		; if not track zero then dont open
		bne	no_window	; an interrupt window
		lda	<irqmask
		pha
		plp
		sei
no_window
		lda	#$20		; maximum retries = 2 revolutions
		sta	|retrycnt
find_sec_15
		ldx	<ibslot		; need slot * 16
		jsr	rdadr16E	; read address field
		bcs	not_sec_15	; if cant read
		lda	<ibsect		; sector that was read
		cmp	#15		; was it sector 15?
		beq	found_sec_15	; yes
not_sec_15
		dec	|retrycnt
		bne	find_sec_15
		sec
wexit
		rts
*
* Delay to let most of sector 15's data pass by, then go back and
* rewrite the track (including the 28 nibblies of seam).  This assures
* that we will rewrite the track entirely, and that sector zero will be
* aligned at roughly the same place as it was on the prior try.
*
found_sec_15
		lda	#$00		; slow clock
		sta	>cyareg
		ldx	#342-128	; let most go by
verify_delay
		jsr	wexit
		jsr	wexit
		bit	<$00
		dex
		bne	verify_delay
		lda	#$80		; fast clock
		sta	>cyareg
		jmp	wr_retry



		entry	highsc,lowsc,nsec,nsec2,secleft,tk_base
		entry	seccnt
		entry	nxtwrt
		
		
highsc		ds.b	2
lowsc		ds.b	2	
nsec		ds.b	2
nsec2		ds.b	2
secleft		ds.b	2
tk_base		ds.b	2
nxtwrt		ds.b	2
seccnt		dc.w	0






		ENDP
		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/AppleDisk5.25/Max.Macros b/IIGS.601.SRC/GS.OS/Drivers/AppleDisk5.25/Max.Macros
new file mode 100644
index 0000000..4afe28c
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/AppleDisk5.25/Max.Macros
@@ -0,0 +1 @@
+***************************************************************
*
*               Macros used by the DISK][ driver
*
*               Oct 10, 1987 10:10
*
***************************************************************

 MACRO
&lab _setheartbeat
*
* Stack input for SetHeartBeat is as follows:
*
*               longword   Pointer to task header
*           sp->
*
&lab ldx #$1203
 jsl $E10000
 MEND

 MACRO
&lab _delheartbeat
*
* Stack input for DelHeartBeat is as follows:
*
*               longword   Pointer to task header
*           sp->
*
&lab ldx #$1303
 jsl $E10000
 MEND

 MACRO
&lab _intsource
*
* Stack input for IntSource is as follows:
*
*               Word       Reference Number
*           sp->
*
&lab ldx #$2303
 jsl $E10000
 MEND

 MACRO
&lab _longdivide
*
* Stack input for LongDivide is as follows:
*
*               word    space for remainder result
*               word    space for quotient result
*               long    Numerator
*               long    Denominator
*           sp->
*
&lab ldx #$0D0B
 jsl $E10000
 MEND
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/Console.Driver/Console.aii b/IIGS.601.SRC/GS.OS/Drivers/Console.Driver/Console.aii
new file mode 100644
index 0000000..bbe4dcf
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/Console.Driver/Console.aii
@@ -0,0 +1 @@
+		pagesize 70
		string	asis
		blanks	off

* change the following equate to change the version number of the driver

VersNum		equ	$3040			;version 3.4 final

		print	push
		print	off
; - - - - - - - - - - - - - - - - - - -
; Event Manager Macros
; - - - - - - - - - - - - - - - - - - - 

		MACRO
&lab		_EMStatus
&lab		LDX	#$0606
		JSL	$E10000
		MEND

		MACRO
&lab		_GetNextEvent
&lab		LDX	#$0A06
		JSL	$E10000
		MEND

; - - - - - - - - - - - - - - - - - - -
; Miscellaneous Macros
; - - - - - - - - - - - - - - - - - - -

;----------------------------------------------------
;
; mode_8
;
; Does a sep instruction to set m and x, and does
; longa off and longi off.
;
;----------------------------------------------------
		MACRO
&lab		mode_8
&lab		SEP	#$30
		LongA	Off
		LongI	Off
		MEND

;----------------------------------------------------
;
; mode_16
;
; Does a rep instruction to clear m and x, and does
; longa on and longi on.
;
;----------------------------------------------------
		MACRO
&lab		mode_16
&lab		REP	#$30
		LongA	On
		LongI	On
		MEND

;----------------------------------------------------
;
; Long  --  Short
;
; Does a LongA and LongI ON (Long) or OFF (Short)
;
;----------------------------------------------------
		MACRO
&lab		Long
&lab		
		LongA	On
		LongI	On
		MEND

		MACRO
&lab		Short
&lab		
		LongA	Off
		LongI	Off
		MEND


		include	'common.equ.src' 

		
;------------------------------------------
;
; Equates from procedure hw_equ
;
;------------------------------------------
cswl		equ	$000036		;character output hook
cswh		equ	$000037		
kswl		equ	$000038		;character input hook  
kswh		equ	$000039		
mslot		equ	$0007f8		;=$cn ;n=slot using $c800
mnemstkptr	equ	$010100		;main stack pointer 
alemstkptr	equ	$010101		;alternate stack pointer 
oswmstrt	equ	$0003d0		;quitmon jumps here 
brkv		equ	$0003f0		;vectors here after break  
softev		equ	$0003f2		;vector for warm start 
pwredup		equ	$0003f4		;this must = eor #$a5 of softev+1  
amperv		equ	$0003f5		;applesoft & exit vector 
usradr		equ	$0003f8		;applesoft usr function vector  
nmi		equ	$0003fb		;nmi vector  
irqloc		equ	$0003fe		;maskable interrupt vector  
pro8mli		equ	$00bf00		;address of prodos8 mli entry point
ioadr		equ	$c000		;all i/o is at $cxxx
kbd		equ	$c000		;bit 7=1 if keystroke  
clr80col	equ	$c000		;disable 80 column store  
set80col	equ	$c001		;enable 80 column store  
rdmainram	equ	$c002		;read from main 48k ram  
rdcardram	equ	$c003		;read from alt. 48k ram  
wrmainram	equ	$c004		;write to main 48k ram  
wrcardram	equ	$c005		;write to alt. 48k ram  
setslotcxrom	equ	$c006		;use roms on cards 
setintcxrom	equ	$c007		;use internal rom 
setstdzp	equ	$c008		;use main zero page/stack  
setaltzp	equ	$c009		;use alt. zero page/stack  
setintc3rom	equ	$c00a		;enable internal slot 3 rom 
setslotc3rom	equ	$c00b		;enable external slot 3 rom 
clr80vid	equ	$c00c		;disable 80 column hardware  
set80vid	equ	$c00d		;enable 80 column hardware  
clraltchar	equ	$c00e		;normal lc, flashing uc  
setaltchar	equ	$c00f		;normal inverse, lc ; no flash  
kbdstrb		equ	$c010		;turn off key pressed flag  
rdlcbnk2	equ	$c011		;bit 7=1 if LC bank 2 is in  
rdlcram		equ	$c012		;bit 7=1 if LC ram read enabled  
rdramrd		equ	$c013		;bit 7=1 if reading alt 48k 
rdramwrt	equ	$c014		;bit 7=1 if writing alt 48k  
rdcxrom		equ	$c015		;bit 7=1 if using int rom
rdaltzp		equ	$c016		;bit 7=1 if slot zp enabled 
rdc3rom		equ	$c017		;bit 7=1 if slot c3 space enabled 
rd80col		equ	$c018		;bit 7=1 if 80 column store    
rdvblbar	equ	$c019		;bit 7=1 if not vbl  
rdtext		equ	$c01a		;bit 7=1 if text (not graphics)  
rdmix		equ	$c01b		;bit 7=1 if mixed mode on 
rdpage2		equ	$c01c		;bit 7=1 if txtpage2 switched in  
rdhires		equ	$c01d		;bit 7=1 if hires is on 
altcharset	equ	$c01e		;bit 7=1 if alternate char set in use 
rd80vid		equ	$c01f		;bit 7=1 if 80 column hardware in  
vgcint		equ	$c023		;vgc interrupt register 
keymodreg	equ	$c025		;key modifier register 
datareg		equ	$c026		;data register in keyglu chip 
kmstatus	equ	$c027		;keyboard/mouse status register 
sltromsel	equ	$c02d		;slot rom select 
spkr		equ	$c030		;clicks the speaker
diskreg		equ	$E1C031		;used for 3.5" disk drives 
shadow		equ	$c035		;shadow register 
cyareg		equ	$c036		;speed and motor on detect 
inten		equ	$c041		;interrupt enable register 
intflag		equ	$c046		;interrupt flag register
clrvblint	equ	$c047		;clear the vbl and 3.75hz interrupt flags 
txtclr		equ	$c050		;switch in graphics (not text)
txtset		equ	$c051		;switch in text (not graphics)  
mixclr		equ	$c052		;clear mixed-mode  
mixset		equ	$c053		;set mixed-mode (4 lines text)  
txtpage1	equ	$c054		;switch in text page 1  
txtpage2	equ	$c055		;switch in text page 2  
lores		equ	$c056		;low-resolution graphics  
hires		equ	$c057		;high-resolution graphics  
setan0		equ	$c058		;clear annunciator 0 
clran0		equ	$c059		;set annunciator 0 
setan1		equ	$c05a		;clear annunciator1 
clran1		equ	$c05b		;set annunciator 1 
setan2		equ	$c05c		;clear annunciator 2 
clran2		equ	$c05d		;set annunciator 2 
setan3		equ	$c05e		;clear annunciator 3 
clran3		equ	$c05f		;set annunciator 3 
butn3		equ	$c060		;read switch 3 
butn0		equ	$c061		;open apple key 
butn1		equ	$c062		;closed apple key 
butn2		equ	$c063		;read switch 2 
statereg	equ	$c068		;state register 
romin		equ	$c081		;enable rom read, 2 reads write enb LC ram 
lcbank2		equ	$c083		;sel LC ram bank2, 2 rds wrt enb LC ram 
lcbank1		equ	$c08b		;sel LC ram bank1, 2 rds wrt enb LC ram
clrrom		equ	$cfff		;switch out $c8 roms  
mtn		equ	$03		;miscellaneous tool number 
rthfn		equ	$0d		;read time hex function number 
wthfn		equ	$0e		;write time hex function number 
mmn		equ	$02		;memory manager tool number 
initdismgr	equ	$fe0000		;init dispatch handler (tool locator)
brambuffer	equ	$e102c0		;image of batteryram
osvariables	equ	brambuffer+$80+$01 ;32 bytes of operating system vari
dispatch1	equ	$e10000		;jmp vector to tool locator1 
dispatch2	equ	$e10004		;jmp vector to tool locator2 
udispatch1	equ	$e10008		;jmp vector to user's tool locator1 
udispatch2	equ	$e1000c		;jmp vector to user's tool locator2 
intmgrv		equ	$e10010		;jmp vector to interrupt manager 
copmgrv		equ	$e10014		;jmp vector to cop manager 
abortmgrv	equ	$e10018		;jmp vector to abort manager 
sysdmgrv	equ	$e1001c		;jmp vector to system death manager 
irq_aptlk	equ	$e10020		;jmp vector to aptlk interrupt handler 
irq_serial	equ	$e10024		;jmp vector to serial port int handler 
irq_scan	equ	$e10028		;jmp vector to scan line interrupt handler 
irq_sound	equ	$e1002c		;jmp vector to sound interrupt handler 
irq_vbl		equ	$e10030		;jmp vector to vbl interrupt handler 
irq_mouse	equ	$e10034		;jmp vector to mouse interrupt handler 
irq_qtr		equ	$e10038		;jmp vector to 1/4 sec interrupt handler 
irq_kbd		equ	$e1003c		;jmp vector to keyboard interrupt handler 
irq_response	equ	$e10040		;jmp vctr to fdb response byte int handler 
irq_srq		equ	$e10044		;jmp vector to srq int handler 
irq_dskacc	equ	$e10048		;jmp vector to desk accessory int handler 
irq_flush	equ	$e1004c		;jmp vector to flush buffer int handler 
irq_micro	equ	$e10050		;jmp vector to key micro int handler 
irq_1sec	equ	$e10054		;jmp vector to 1 second interrupt handler 
irq_ext		equ	$e10058		;jmp vector to ext vgc interrupt handler 
irq_other	equ	$e1005c		;jmp vector to other interrupt handler 
cupdate		equ	$e10060		;jmp vector to cursor update handler 
incbusyflg	equ	$e10064		;jmp vector to increment busyflag routine 
decbusyflg	equ	$e10068		;jmp vector to decrement busyflag routine 
pro16mli	equ	$e100a8		;1st os vector is prodos16 mli entry poi
os_switch	equ	$e100ac		;called before application launch 
stkpro16mli	equ	$e100b0		;stack based entry to prodos16
os_internal	equ	$e100b4		;internal calls from fst to fst manager
os_reserved	equ	$e100b8		;2 bytes reserved for os
zero_word	equ	$e100ba		;guaranteed 2 zeros 
os_kind		equ	$e100bc		;0/1-p8/p16 current os running 
os_boot		equ	$e100bd		;0/1-p8/p16 booted os 
os_flag		equ	$e100be		;word for prodos 16 flags 
ph0off		equ	$E1C080		; phase 0 off
ph0on		equ	$E1C081		; phase 0 on
ph1off		equ	$E1C082		; phase 1 off
ph1on		equ	$E1C083		; phase 1 on
ph2off		equ	$E1C084		; phase 2 off
ph2on		equ	$E1C085		; phase 2 on
ph3off		equ	$E1C086		; phase 3 off
ph3on		equ	$E1C087		; phase 3 on
motor_off	equ	$E1C088		; disk motor off
motor_on	equ	$E1C089		; disk motor on
drive0		equ	$E1C08A		; select drive 0
drive1		equ	$E1C08B		; select drive 1
q6l		equ	$E1C08C		; Q6 low
q6h		equ	$E1C08D		; Q6 high
q7l		equ	$E1C08E		; Q7 low
q7h		equ	$E1C08F		; Q7 high

;------------------------------------------
;
; Equates from procedure console_equ
;
;------------------------------------------
max_commands	equ	drvr_shutdn	; max driver command
max_stat	equ	drvr_get_format	; max normal status
max_cont	equ	drvr_insert	; max normal control
max_spec_stat	equ	$8007		; Largest legal call number
max_spec_cont	equ	$8007		; Largest legal call number

;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

		IMPORT	call_alloc
		IMPORT	call_deref
		IMPORT	call_release
		IMPORT	shutdown_patch
		IMPORT	start_patch

;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

		ENTRY	dib_1
		ENTRY	the_console
		
;-----------------------------------------------
;Console errors
add_trap_failed	equ	$32
		print	pop

		Eject
;******************************************************************************
;*                                                                            *
;*                 Console Driver Routines for the Apple //gs                 *
;*                                                                            *
;*      Copyright Apple Computer Inc., 1985-1988      All Rights Reserved     *
;*____________________________________________________________________________*
;*                                                                            *
;*      Written by Andy Stadler                                               *
;*                                                                            *
;*      Based on work by Neal Johnson, Lou Infeld, and Jay Schaffer           *
;*                                                                            *
;******************************************************************************
;
;  Modification history:
;
;  01-Feb-88    ADS     Initial release 0.01 a01
;  08-Feb-88    ADS     removed clr_mixed_mode softswitch hit
;                       added >set80col on status & control calls
;                       second release 0.02 a01
;  09-Feb-88    ADS     removed call_alloc, call_deref, etc
;                       (they are now in a separately linked module)
;                       And added start_patch and shutdown_patch calls.
;  10-Feb-88    ADS     added rmv_curs_time to shutdown call
;
;  03-jun-88	RT	Changed default input mode to raw read.
;
;  27-jun-88	RT	Fixed a bug in the read routine.  It was
;			Not using the termintor list
;
;  29-jun-88	RT	Changed the status word to include the online bit
;
;  13-Jul-88	RT	Fixed a bug in Kill_Port_Chain.  The routine
;			Was using a temp word as a temp long. So
;			I changed dp_temp_2 (Word) to dp_temp_1 (Long)
;
;  19-Jul-88	RT	Fixed a bug in Set_UIR_Port and Get_UIR_Port
;			Several fields were left out of the save buffer
;
;  20-Jul-88	RT	Fixed a bug in the UIR.  The allow control 
;			character flag was not working correctly
;
;  21-Jul-88	RT	Fixed a bug in set wait/no-wait mode.  The
;			count routine would transfer upto 6 bytes
;			when only two are valid.
;
;			Fixed a bug in the read routine.  The 
;			terminators were not working.
;
;  01-Aug-88	RT	Fixed the 40 col. switch routine
;
;  08-Aug-88	RT	Fixed the read routine.  In no wait mode 
;			the label "Check_immed" could be called in
;			8 or 16 bit mode.  So it would fail
;
;  12-Jan-89	RT	Fixed a bug in the restore_port routine.
;  		Bug #1	The routine did not handle a request of
;			zero bytes.
;
;
;  02-Feb-89	RT	Fixed a bug in the restore_port routine
;			The routine did not check if the width
;			or length was zero.
;
;  13-Feb-89	RT	Fixed a bug in the read routine.  The 255
;			terminator was not being used.
;
;  20-Feb-89	RT	Added Add_trap and Remove_trap routines
;			to the console driver.
;
;  23-Feb-89	RT	Fixed bug with save screen.  The save
;			screen routine was saving data from
;			bank zero and one, when it should have
;			been using bank $E0 and $E1.
;
;  08-Mar-89	RT	Added restartable BIT to the console
;			driver.
;
;  10-Apr-89	RT	Invalid Control Calls now return an Error
;
;  27-Apr-89	RT	Fixed Status Code 3 error code. (error)
;
;  10-May-89	RT	Fixed Status Code 3 error code. (No-Error)
;			Note: Testing cannot make up their mind!
;
;  22-Jul-89	RT	Made user input routine work via a signal
;			handler
;
;  25-Aug-89	GB	Set bit in characteristics word to prevent
;			D_Rename (fixed name)
;
;  20-Dec-89	GB	Added conditional assembly to user input routine
;			so that if this is being assembled to be used
;			as a library (like the Exerciser does), the
;			signal handler is not called like it is
;			for the OS driver.  The portion of code that
;			is assembled for the library version is a
;			duplicate of the code used for System Disk 5.0.
;
;  31-Jan-90	GB	Fixed BRC #54395.  The User Input Read routine
;			was not updating the GS/OS direct page
;			transfer_count field during the call.  During
;			investigation, it was noticed that the raw
;			read routine had the same problem.  Both
;			routines have been fixed.
;
;  23-Feb-91	GB	Removed some dead code that I discovered in
;			  scroll_copy.  It looked like it was left over
;			  from a previous version of the routine.
;			Since the UIR Read call is now handled via a GS/OS
;			  signal, the actual read doesn't happen until
;			  SCM dispatches to the signal handler during the
;			  call exit process.  This precludes using the
;			  UIR while a GS/OS call is currently being
;			  handled (like during a Format call).  I've fixed
;			  this so that the call will be handled with the
;			  signal handler only if the GS/OS call number
;			  on direct page is an FST read ($0010 or $2010),
;			  or a DRead.  All other read requests will be
;			  handled like they were prior to Rob's change.
;			Raw read mode now updates the exitType, lastChar,
;			  lastMod, lastTermChar, and lastTermMod fields
;			  of the InputPortRec as you'd expect it to.  (The
;			  remaining fields of the InputPortRec have no
;			  meaning during a raw read.)
;
;  14-May-91	GB	Fixed UIR so that if a read call is already buffered
;			  up in the signal queue, any subsequent read requests
;			  are handled immediately.
;
;  03-Jun-91	GAB	Modified entry code to use a page-aligned direct page
;			  at absolute page 2 in memory ($00/0200).
;			Convert direct page label definitions into a data template
;			  for ease of maintenance.
;			Added device-specified GetVectors status call, and single-
;			  character I/O support subroutines.
;			Removed code in main entry dispatcher that zeros out the
;			  transfer count on direct page, since the Device Dispatcher
;			  does it prior to calling the driver.
;
; 25-Jul-91	GAB	Altered action of UIR so that if input is happening on the
;			  last line of the textport, the driver will support
;			  scrolling of the field if the cons_scroll flag allows it.
;			Changed input_bell to use SysBeep2 Bad Keypress code.
;			Changed add_to_str to use SysBeep2 InputFieldFull code when
;			  no more characters can be added to input string.
;			Minor code optimizations throughout.
;
; 11-Sep-91	GAB	In do_delete, we now decrement the input_length AFTER
;			  calling wr_part_string to allow wr_part_string to
;			  overwrite the last string character with the fill
;			  character.
;
; 18-Oct-91	GAB	Reverted direct page handling back to original style
;			  (borrowing space from stack) for library version
;			  of driver.
;
; 09-Dec-91	GAB	Added logic in call dispatcher to save the current
;			  state of the HIRES softswitch and restore it after
;			  handling the call.  This is done so that we can
;			  explicitly turn OFF the softswitch so that when
;			  the driver is flipping back and forth between main
;			  and aux display memory, the hires buffer isn't
;			  accidently switched back and forth as well.  This
;			  could cause problems if the stack and/or direct
;			  page happen to be within the bank 0 hires buffer.
;
; 10-Jan-92	GAB	Fix in ed_restart.  When Ctrl-Z is used during UIR input,
;			  and the default string is shorter than the length of
;			  the string typed in so far, the portion of the old
;			  string beyond the end of the default string is not
;			  cleared from the screen.  Fixed by saving the original
;			  string length prior to restoring the default string
;			  and using the original length for the screen update.
;			  The new length is then restored.
;
; === for 6.1 ===
;
; 11-Mar-92	DAL	Fixed remove_trap to store the correct default addresses.
;			Version 3.4alpha.
;
;  2-Apr-93 	SS	Version 3.4 ($3040) for 6.0.1 (final)
;
;
;================================================================

;Revisions
		eject
****************************************************************************************************
*
* Console driver direct page definition
*
* Defined as a decrementing template so that the driver will use as
* little of page 2 as possible
*
****************************************************************************************************

my_dp		equ	$0200		; absolute page 2

		include	'Direct.Page.aii'

		Eject
;==========================================================
;
;  Header area.  This is the stuff which tells the world
;  that we are a driver.
;
;==========================================================

		EXPORT	driver_data	
driver_data	PROC
		EXPORT	here
here
		DC.W	dib_1-here	; offset to 1st (only) DIB
		DC.W	1		; 1 device (the console)
		DC.W	ctrl_1-here	; offset to control list

ctrl_1		DC.L	0
default_1	DC.L	0

		EXPORT	dib_1
dib_1
		DC.L	0		; link pointer
		DC.L	the_console	; entry pointer
; device characteristics word
		DC.W	%0000111101100000
;			 |||||||||||||||Reserved
;			 ||||||||||||||Reserved
;			 |||||||||||||Media removeable
;			 ||||||||||||Format allowed
;			 |||||||||||Reserved
;			 ||||||||||Read allowed
;			 |||||||||Write allowed
;			 ||||||||Block device
;			 |||||||Speed Group (lsb)
;			 ||||||Speed Group (msb)
;			 |||||Fixed Name
;			 ||||Restarable
;			 |||Device busy
;			 ||Linked
;			 |Generated
;			 RAM or ROM disk

		DC.L	0		; block ct
		string	Pascal
		DC.B	'CONSOLE'	; name (with a leading length byte)
		string	AsIs
		dcb.b	31-&len('CONSOLE'),' '		; padded to 31 chars
		DC.W	$8003		; no slot rsrcs, internal 3
		DC.W	1		; unit 1
		DC.W	VersNum		; version number
		DC.W	$000A		; console
		DC.W	0		; no links
		DC.W	0
		DC.W	0		; reserved fields
		DC.W	0
		DC.W	0		; dib device #
		DC.W	0		; internal device #

		ENDP

		Eject
****************************************************************************************************
*
* the_console - main entry point for the console driver
*
****************************************************************************************************

the_console	PROC	Export
		with	direct_page

trap_vector	jsl	our_rtl
		jmp	text_driver

		eject
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
;
;  Cons.data
;
;  Data areas for the GS/OS console driver.
;
;  Copyright (C) 1987 Apple Computer, Inc.
;  All Rights Reserved.
;
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
;
;  Modification History:
;
;  10-Aug-87    Most variables renamed to GS/OS standards
;  16-Sep-87    complete re-work with console re-write
;  14-Jan-88    cursor positions (ch, cv) swapped
;  23-Jan-88    dp storage removed.  extra status bytes added
;
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
;
; GLOBALS
;
exit_temp	DS.B	2
exit_flag	DS.B	2
cons_call_number DS.B	2

dle_save	DC.B	$FF
lf_save		DC.B	$FF
;
; Output routine status block
;
; These values can not be set by the users.  They can only be read.
;
cons_stat_blk				; ; Console Status Block

ch		DS.B	1		; Cursor horizontal
cv		DS.B	1		; Cursor vertical

wnd_left	DS.B	1		; Window left
wnd_top		DS.B	1		; Window top
wnd_right	DS.B	1		; Window right
wnd_bottom	DS.B	1		; Window bottom

wnd_width	DS.B	1		; Window width
wnd_length	DS.B	1		; Window length

cons_wrap	DS.B	1		; Console wrap flag
cons_advance	DS.B	1		; Console cursor advance flag
cons_lf		DS.B	1		; Console linefeed flag
cons_scroll	DS.B	1		; Console scroll flag
cons_video	DS.B	1		; Console video flag
cons_dle	DS.B	1		; Pascal text DLE expansion flag
cons_mouse	DS.B	1		; mouse character fill flag
cons_fill	DS.B	1		; Console fill character (space)

c_stat_size	equ	*-cons_stat_blk

; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
;
; DISPATCHER - Data storage
;
startup_flag	DS.B	2		; hi-bit on = startup has beed received
status_word	DC.W	$0010		; Bit 5-15: reserved
;                                            Bit 4: 1=online, 0=offline
;                                          Bit 2-3: reserved
;                                            Bit 1: 1=interrupting, 0=not interrupting
;                                            Bit 0: 1=open, 0=closed
status_extra	DC.L	0		; block count = 0

the_req_cnt	DS.B	4		; Our copy of request_Count
the_tra_cnt	DS.B	4		; local copy of transfer_count

; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
; CONSOLE - Data storage
;

console_state	DS.B	1		; state machine register
col_size	DS.B	1		; $80 for 80-col, $00 for 40-col
msg_len		DS.B	4		; Console message length
line_buffer	DS.B	80		; storage for shifting
port_chain	DS.B	4		; head vp of saved text ports

buffer_width	DS.B	1		; used for save & restore screen
buffer_length	DS.B	1
restore_width	DS.B	1

minus		DS.B	1		; for horiz. shift
line_num	DS.B	1
num_lines	DS.B	1
shift		DS.B	1

rgt1_bound	DS.B	1		; Right Bounds (text page 1)
rgt2_bound	DS.B	1		; Right Bounds (text page 2)
lft1_bound	DS.B	1		; Left Bounds (text page 1)

lft2_bound	DS.B	1		; Left Bounds (text page 2)

dle_count	DS.B	1		; for counting dle spaces

;  Command character jump table. Each non-zero entry in this table
;  is the address of the routine to handle the function performed
;  by that command character.

con_table	DC.W	con_nop		; $00 (no effect)
		DC.W	con_save_vp	; $01 push & reset viewport
		DC.W	con_set_vp	; $02 Set viewport
		DC.W	con_clr_bol	; $03 Clear beginning of line
		DC.W	con_rest_vp	; $04 pop viewport
		DC.W	con_h_shift	; $05 horizontal scroll
		DC.W	con_v_pos	; $06 vertical position
		DC.W	con_bell	; $07 Sound 'bell'
		DC.W	con_left	; $08 Move cursor left
		DC.W	con_nop		; $09 tab - (no effect)
		DC.W	con_lf		; $0A Move cursor down
		DC.W	con_clr_eov	; $0B Clear to end of viewport
		DC.W	con_clr_vp	; $0C Clear viewport
		DC.W	con_return	; $0D Return cursor
		DC.W	con_norm	; $0E Normal video
		DC.W	con_inv		; $0F Inverse video
		DC.W	con_dle		; $10 Expand Pascal 'DLE'
		DC.W	con_40_col	; $11 set 40 column display
		DC.W	con_80_col	; $12 set 80 column display
		DC.W	con_clr_bov	; $13 Clear top of viewport to cursor
		DC.W	con_h_pos	; $14 Horizontal position
		DC.W	con_mode	; $15 Cursor movement control
		DC.W	con_scr_dn	; $16 Scroll down
		DC.W	con_scr_up	; $17 Scroll up
		DC.W	con_mt_off	; $18 mouseText characters off
		DC.W	con_home	; $19 Home cursor
		DC.W	con_clr_ln	; $1A Clear line
		DC.W	con_mt_on	; $1B mouseText characters on
		DC.W	con_right	; $1C Move cursor right
		DC.W	con_clr_eol	; $1D Clear to end of line
		DC.W	con_goto_xy	; $1E Absolute position (goto XY)
		DC.W	con_up		; $1F Move cursor up

;  Addresses of completion routines.  When a routine wishes the
;  next byte to be interpreted specially, it sets console_state
;  to the index in this table of the special handler.

comp_tbl	DC.W	0		; #0 (dummy entry)
		DC.W	comp_vp_left	; #1 set vp, left side
		DC.W	comp_vp_top	; #2 set vp, top
		DC.W	comp_vp_rt	; #3 set vp, right side
		DC.W	comp_vp_bt	; #4 set vp, bottom
		DC.W	comp_h_scr	; #5 horizontal scroll
		DC.W	comp_vtab	; #6 set vertical pos
		DC.W	comp_dle	; #7 DLE space expansion
		DC.W	comp_htab	; #8 set horizontal pos
		DC.W	comp_mode	; #9 cursor movement flags
		DC.W	comp_goto_x	; #10 goto xy - hor. pos.
		DC.W	comp_goto_y	; #11 goto xy - ver. pos.


; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
; User Input Routine - Data storage

input_info				; ; input information block

fill_char	DS.B	1		; field padding char
def_cursor	DS.B	1		; default cursor mode
cursor_mode	DS.B	1		; working cursor mode
beep_flag	DS.B	1		; beep on user error
entry_type	DS.B	1		; tells UIR what to do
exit_type	DS.B	1		; term # reported here
last_char	DS.B	1		; most recent keypress
last_mod	DS.B	1		; most recent modifier
last_term	DS.B	2		; most recent terminator
cursor_pos	DS.B	1		; cursor position in string
input_length	DS.B	1		; length of input string
input_field	DS.B	1		; length of input field
origin_h	DS.B	1		; saved ch of field start
origin_x	DS.B	2		; saved X of field start
origin_v	DS.B	1		; saved cv of field start

input_info_sz	equ	*-input_info


;  Internal stuff

max_length	DS.B	2		; space left in window
immed_flag	DS.B	2		; wait / no-wait flag
read_mode	DS.B	2		; UIR or raw mode
flash_flag	DS.B	1		; current cursor state
curs_int_flag	DS.B	1		; interrupt semaphore
cursor_rate	DS.B	1		; cursor time constant
wd_state_flag	DS.B	1		; used for finding word bounds
bord_char	DS.B	1		; saved overstrike if past edge


term_vp		DS.B	4
term_mask	DS.B	2
term_count	DS.B	2

def_str_vp	DS.B	4		; vp to default string
def_str_len	DS.B	2		; length of default string

;
; Event Manager Parameter List
;

evt_record

evt_what	DS.B	2		; EventCode
evt_message	DS.B	4		; EventMessage (lowest byte has key)
evt_when	DS.B	4		; Tick Counter
evt_where	DS.B	4		; mouse location
evt_modifiers	DS.B	2		; Modifiers flags
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

call_vector	DC.W	startup		; Dispatch vectors
		DC.W	open
		DC.W	read
		DC.W	write
		DC.W	close
		DC.W	status
		DC.W	control
		DC.W	flush
		DC.W	shutdown

		eject
;***********************************************************************
;
; Main Entry Point - The call dispatcher
;
;  In:          A   =  Call Number
;               X,Y =  undefined
;               DP  =  GS/OS direct page
;               DB  =  undefined
;               SP  =  GS/OS stack
;
;  Out:         A   =  Return code
;               X,Y =  undefined
;               DP  =  GS/OS direct page
;               DB  =  undefined
;               SP  =  GS/OS stack
;               P   =  C set if A != no_error


text_driver	long

; Now set bank register to current bank.  NOTE: No long addressing is used to
; access variables in these routines since the data segment and the routines
; are all attached and will reside in the same bank.  (This will have to be
; changed if these routines are to be made ROMable.)

		phk
		plb

		sta	cons_call_number ; Save the call number

;  Transfer often-used values to my memory

		lda	drvr_req_cnt
		sta	the_req_cnt
		lda	drvr_req_cnt+2
		sta	the_req_cnt+2

 if 0 then
;  Character drivers must zero out the direct page transfer count themselves

		stz	drvr_tran_cnt
		stz	drvr_tran_cnt+2
 endif

; Make stack space for correct number of bytes of local zero-page storage

		tdc			; save gs/os direct page
		tax			; (also for use as parm_ptr)

	if Library=1 then
		tsc			; Get stack pointer
		sec			; Prepare for subtraction
		sbc	#direct_page.size	; Bytes needed for zero-page storage
		tcs			; Update stack pointer
		inc	a
		tcd			; Relocate direct page to stack
	else
 		lda	#my_dp		; use absolute page 2 as direct page
		tcd
	endif
;
; Now set drvr_parm_ptr to the caller's direct page, the location of his/her
; parameter block
;
		stx	drvr_parm_ptr	; old dp now a pointer
		stz	drvr_parm_ptr+2

;  and build a pointer to the message buffer (if any)

		ldy	#drvr_buf_ptr
		lda	[drvr_parm_ptr],y
		sta	msg_ptr
		iny
		iny
		lda	[drvr_parm_ptr],y
		sta	msg_ptr+2

; read and save the current state of the HIRES softswitch, then make sure
; it's turned OFF so that switching between text page 1 and 2 doesn't ALSO
; swap the hi-res buffers.

		sep	#$20		;must be done in 8-bit mode
		longa	off
		lda	>rdhires	;read state of hires switch
		pha			;save it
		sta	>lores		;make sure it's turned off
		rep	#$20
		longa	on

; dispatch the call...

		lda	cons_call_number ; Get the call number
		cmp	#max_commands+1	; Range check the value
		blt	dispatch	; If OK, dispatch the call

		lda	#drvr_bad_req	; Oops!  No such command number
		bra	dispatch_exit	; Return to caller (Carry already set)

dispatch	asl	a		; Multiply by two
		tax			; Now use it as an index
		jsr	(call_vector,x)	;   and dispatch the call
;
; ...and return to caller
;
dispatch_exit	long			; Gotta do this stuff in 8-bit mode

		sta	exit_temp	; save exit code
		rol	a		; get carry flag
		sta	exit_flag	; and save it too

; restore the original state of the HIRES softswitch

		sep	#$20		; must be done in 8-bit mode
		longa	off
		sta	>txtpage1	; ensure page 1 is selected on exit
		pla			; retrieve state
		bpl	@no_change	; was already off
		sta	>hires		; else turn it back on
@no_change
		rep	#$20		; back to 16-bit mode
		longa	on

	if Library=1 then
		ldx	drvr_parm_ptr	; get the old dp

		tsc			; Set stack pointer back to proper value
		clc			; Prepare to add
		adc	#direct_page.size
		tcs

		txa			; restore caller's direct page
		tcd

	else
		lda	drvr_parm_ptr	; get the old dp
		tcd			; and restore it
	endif

		lda	exit_temp	; Restore exit status
		pha			;   and hold it for a minute
		ldx	exit_flag

		txa			; recover the error flag
		ror	a		; put it in the carry bit
		pla			; and get the error number!

		rtl

		eject
;**********************************************************
;*                                                        *
;*                  The Text Driver Calls                 *
;*                                                        *
;**********************************************************
;
;  Calls are dispatched in 16-bit mode.  16 bit mode will be
;  considered the norm in the interface region of the code.
;
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
;
; startup
;
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
;
; First initialize the console routine
;
startup		long

		stz	port_chain	; clear vp's
		stz	port_chain+2
		stz	term_vp
		stz	term_vp+2
		stz	def_str_vp
		stz	def_str_vp+2
		lda	#$8000		; set the input mode to ram keyboard data
		sta	read_mode
		jsr	start_patch	; get user ID if library version

		brl	ok_exit		; no error here

		eject
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
;
; open call
;
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
open		long

		lda	status_word	; is driver already open?
		ror	a
		bcs	open_1		; yes, return error

		sec			; make it open now!
		rol	a
		sta	status_word	; is this cute code or what?

		lda	#$8000		; set the input mode to ram keyboard data
		sta	read_mode

		jsr	initialize	; initialize in & out ports
		jsr	turn_screen_on	; activate text mode
		jsr	init_curs_tim	; setup the cursor timer
		bcc	open_2

		lda	#drvr_no_resrc
		brl	error_exit

open_1		lda	#drvr_prior_open ; Yes, it's already open
		brl	error_exit

open_2
		brl	ok_exit


		eject
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
;
; read Call - Get keyboard input
;
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

read		long

		ldy	#drvr_blk_size	; must be 0, char dev
		lda	[drvr_parm_ptr],y
		beq	read_0

		lda	#not_block_dev
		brl	error_exit

read_0		lda	status_word
		ror	a		; open?
		bcs	read_1

		lda	#drvr_not_open
		brl	error_exit

read_1		mode_8
		stz	exit_type	; Zero the exit_type
		mode_16

		lda	msg_ptr		; tell uir where the string goes
		sta	input_str
		lda	msg_ptr+2
		sta	input_str+2

		lda	read_mode	; raw read or UIR
		bmi	read_x1		; raw read...
		brl	read_1a		; UIR read...

		eject
;---------------------------------------------------------------------------------------------------
;
; This is the entry for the 'raw' keyboard read routine
; 
read_x1		long
		stz	the_tra_cnt
		stz	the_tra_cnt+2

		lda	the_req_cnt
		ora	the_req_cnt+2	; null request?
		beq	read_exit

		jsr	make_term_ptr	; setup pointer to terminator list
		jsr	get_term_parms	; copy out mask & length

read_x2		mode_8
		jsr	read_key	; A=character, X=modifiers
		bcc	check_immed	; If no keypress, check for immediate

		phx			; remember the modifier
		pha			; and the character
		mode_16

		clc
		lda	input_str	; Calculate address for next store
		adc	the_tra_cnt
		sta	dp_temp_1
		lda	input_str+2
		adc	the_tra_cnt+2
		sta	dp_temp_1+2

		pla			; recovers char AND mod
		sta	last_char	; update InputPortRec (last_mod field too)

		mode_8
		sta	[dp_temp_1]	; store char only in buffer
		mode_16	

		inc	the_tra_cnt	; Update the transfer count
		bne	@low_only
		inc	the_tra_cnt+2
@low_only
		and	term_mask	; mask off unused bits
		sta	dp_temp_2	; and hold for later use

; character driver must update the direct page transfer_count after every character

		ldy	#drvr_tran_cnt
		lda	the_tra_cnt
		sta	[drvr_parm_ptr],y
		iny
		iny
		lda	the_tra_cnt+2
		sta	[drvr_parm_ptr],y

		lda	term_count	; are there any terminators?
		beq	chk_transfer	; no....

		dec	a		; adjust for [],y addressing
		asl	a		; and x 2 since its a word count
		tay			; better set up the index

chk_term_lp	lda	[term_ptr],y	; get a terminator
		and	#$D7FF		; remove term-type bit
		cmp	dp_temp_2	; got one?
		beq	term_exit	; yes!!!!!!

		dey			; so sad, not found
		dey
		bpl	chk_term_lp

chk_transfer	lda	the_tra_cnt	; Check if drvr_req_cnt has been filled
		cmp	the_req_cnt
		bne	check_immed
		lda	the_tra_cnt+2
		cmp	the_req_cnt+2
		beq	read_exit	

check_immed	mode_16
		bit	immed_flag	; we are in 8 bit mode here
		bpl	read_x2		; Hi-bit=0 is NOT immediate mode
 
read_exit	lda	the_tra_cnt	; report xfer ct and quit
		ldx	the_tra_cnt+2
		brl	report_tra_cnt

term_exit
		sta	last_term	; update InputPortRec
		tya			; get index into terminator table
		lsr	a		; turn into a terminator number
		inc	a
		sep	#$20		; 8-bit store here
		sta	exit_type
		rep	#$20
		bra	read_exit

		eject
;---------------------------------------------------------------------------------------------------
;
; This is the entry for the User Input Routine
;
 
read_1a		long
		lda	the_req_cnt+2	; max input length is 254
		bne	read_2
		lda	the_req_cnt
		cmp	#255		; Can't be over 254
		blt	read_3		; It's OK

read_2		lda	#254		; clamp input to max of 254
read_3		sta	max_length

	if	Library=1 then		;conditional assembly for library version

		jsr	input		; Call User input Routine

		lda	input_length	; return string length
		and	#$00FF		; (which is only 8 bits)
		ldx	#0
		brl	report_tra_cnt

	else

		lda	user_input_running
		beq	@continue
		
		jsr	input		; Call User input Routine

		lda	input_length	; return string length
		and	#$00FF		; (which is only 8 bits)
		ldx	#0
		brl	report_tra_cnt

@continue	
		inc	user_input_running
		
		lda	the_req_cnt	;save the state of the world.
		sta	hold_the_req_cnt
		lda	the_req_cnt+2
		sta	hold_the_req_cnt+2
		
		lda	drvr_parm_ptr
		sta	hold_drvr_parm_ptr

		lda	msg_ptr
		sta	hold_msg_ptr
		lda	msg_ptr+2
		sta	hold_msg_ptr+2
		
		lda	input_str
		sta	hold_input_str
		lda	input_str+2
		sta	hold_input_str+2

;Now get the address of the user's parameter block

		ldy	#param_blk_ptr
		lda	[drvr_parm_ptr],y
		sta	input_str		;build pointer to user's parameter block
		iny
		iny
		lda	[drvr_parm_ptr],y
		sta	input_str+2
		
		ldy	#call_number		;is this a file read call?
		lda	[drvr_parm_ptr],y
		
		ldy	#$000A
		cmp	#$0012			;Class 0 read call.
		beq	@do_XFer_cnt
		
		cmp	#$2012			;class 1 read call
		bne	@DType_Call
		
		ldy	#$000C
		lda	[input_str]		;Check the PCount for Class 1 write call
		cmp	#$0004
		bcc	@error			;Sorry the PCount DOES NOT include TRANSFER Count
		bra	@do_XFer_cnt
@DType_Call
		ldy	#$0012
		cmp	#$202F			;is it really DRead?
		beq	@do_XFer_cnt		;yup!

; it's not an FST read, nor a DRead, so handle it like before we set it up as a
; signal handler

		lda	hold_input_str		; restore pointer to user's buffer
		sta	input_str
		lda	hold_input_str+2
		sta	input_str+2

		jsr	input			; Call User input Routine

		stz	user_input_running
		lda	input_length		; return string length
		and	#$00FF			; (which is only 8 bits)
		ldx	#0
		brl	report_tra_cnt

@do_XFer_cnt
		tya
		clc
		adc	input_str		;build a pointer to the xfer count field
		sta	hold_xfer_cnt_ptr
		lda	#$0000
		adc	input_str+2
		sta	hold_xfer_cnt_ptr+2
		
		lda	#$FFFF
		ldx	#user_input_handler
		ldy	#^user_input_handler
		jsl	signal			;long jump to arm procedure
@error
		ldx	#0
		txa
		brl	report_tra_cnt

user_input_running	dc.w	00		
hold_the_req_cnt	dc.l	00
hold_drvr_parm_ptr 	dc.w	00
hold_msg_ptr		dc.l	00
hold_input_str		dc.l	00
hold_old_dp		dc.w	00
hold_xfer_cnt_ptr	dc.l	00

user_input_handler

		phk
		plb			;force our bank!

; Make stack space for correct number of bytes of local zero-page storage

		tdc			; save gs/os direct page
		sta	hold_old_dp	; save for later restore

 		lda	#my_dp		; use absolute page 2 as direct page
		tcd
;
; Now set drvr_parm_ptr to the caller's direct page, the location of his/her
; parameter block
;
		lda	hold_drvr_parm_ptr
		sta	drvr_parm_ptr	; points to GS/OS direct page.
		stz	drvr_parm_ptr+2

;  and build a pointer to the message buffer (if any)
		
		lda	hold_msg_ptr	; points to user's buffer
		sta	msg_ptr
		lda	hold_msg_ptr+2
		sta	msg_ptr+2

		lda	hold_the_req_cnt
		sta	the_req_cnt	; number of bytes wanted
		lda	hold_the_req_cnt+2
		sta	the_req_cnt+2

		lda	hold_input_str	; pointer to user's buffer
		sta	input_str
		lda	hold_input_str+2
		sta	input_str+2

		ldy	#drvr_tran_cnt	;zero out direct page transfer count variable
		lda	#0
		sta	[drvr_parm_ptr],y
		iny
		iny
		sta	[drvr_parm_ptr],y
		
		jsr	input		; Call User input Routine

; Since we're handling the input as part of a signal dispatch, we have to update the
; transfer count in the caller's GS/OS parameter block.  Normally, this is done by
; whoever called the driver (either the Character FST or the Device Manager).  Since
; the signal dispatch doesn't happen until after the FST or Device Manager has already
; exited, it's up to us to fill in the Transfer Count field.

		lda	hold_xfer_cnt_ptr
		sta	input_str	; setup pointer to the user's transfer count.
		lda	hold_xfer_cnt_ptr+2
		sta	input_str+2
		
		lda	input_length	; return string length
		and	#$00FF		; (which is only 8 bits)
		sta	[input_str]	; update user's parameter block
		ldy	#$0002
		lda	#$0000
		sta	[input_str],y

 		lda	hold_old_dp
		tcd

		lda	#$0000		; allow use of user input routine again.
		sta	>user_input_running
		rtl

	endif				;end of conditional section

		eject
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
;
; write Call
;
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
;
; Set up msg_len and msg_ptr to point to string to output
;
write		long

		ldy	#drvr_blk_size	; must be 0, char dev
		lda	[drvr_parm_ptr],y
		beq	write_0

		lda	#not_block_dev
		brl	error_exit

write_0		lda	status_word
		ror	a		; Is the driver open?
		bcs	write_1		; Yes, continue

		lda	#drvr_not_open
		brl	error_exit

write_1
		lda	the_req_cnt
		sta	msg_len		; Console message length
		lda	the_req_cnt+2
		sta	msg_len+2	

		mode_8
		jsr	console		; Output it!
		mode_16

		lda	the_req_cnt
		ldx	the_req_cnt+2
		brl	report_tra_cnt

		eject
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
;
; close Call
;
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

close		long

		lda	status_word
		ror	a		; Is driver open?
		bcs	close_1		; Yes, continue

		lda	#drvr_not_open
		brl	error_exit

close_1
		clc			; flag closed
		rol	a
		sta	status_word

		jsr	kill_term_list	; release terminators memory
		jsr	kill_def_str	; and default input string
		jsr	kill_port_chain	; release saved viewports
		jsr	rmv_curs_time	; disable the cursor interrupt

		brl	ok_exit

		eject
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
;
; status Call
;
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

stat_vect	DC.W	get_driver_stat
		DC.W	get_parms
		DC.W	get_wait_stat
		DC.W	status_error		; unsupported - char device

spec_stat_vect	DC.W	get_cons_info
		DC.W	get_uir_info
		DC.W	get_term_stat
		DC.W	save_viewport
		DC.W	get_char
		DC.W	get_read_mode
		DC.W	get_def_string
		dc.w	get_vectors

status		long

		ldy	#drvr_stat_code	; Get the status request code
		lda	[drvr_parm_ptr],y
		bmi	special_status

		cmp	#max_stat+1
		bge	status_error	
		asl	a		; Double the status code
		tax			;   for use as an index
		jmp	(stat_vect,X)

special_status	long
		cmp	#max_spec_stat+1
		bge	status_error	
		asl	a		; Double the status code
		tax			;   for use as an index

		lda	status_word	; by the way, are we open?
		ror	a
		bcs	go_spec_stat

		lda	#drvr_not_open
		brl	error_exit

go_spec_stat
		jmp	(spec_stat_vect,X) 

status_error	lda	#drvr_bad_code
		brl	error_exit	; None of the above!  Error

		Eject
; TextDriver status

get_driver_stat	long

		lda	#6		; stat word 2, blk count 4
		ldx	#<status_word
		ldy	#^status_word
		clc			; transfer as much as possible
		brl	xfer_status

		Eject
; Return control Parameters

get_parms	long

		lda	#2		; empty control parms
		ldx	#<fake_ct_parms
		ldy	#^fake_ct_parms
		clc
		brl	xfer_status

fake_ct_parms	DC.W	0000


		Eject
; Wait/No-Wait status

get_wait_stat	long

		lda	#2
		ldx	#<immed_flag
		ldy	#^immed_flag
		clc
		brl	xfer_status

		Eject
; Get console Information

get_cons_info	long

		lda	#c_stat_size
		ldx	#<cons_stat_blk
		ldy	#^cons_stat_blk
		clc
		brl	xfer_status


		Eject
; Get User input Routine Information

get_uir_info	long

		lda	#input_info_sz
		ldx	#<input_info
		ldy	#^input_info
		clc
		brl	xfer_status


		Eject
; Terminator status

get_term_stat	long

		jsr	make_term_ptr	; where did they go?

		ldy	#2		; get count word
		lda	[term_ptr],y

		inc	a		; *2 and add 4
		inc	a
		asl	a		; or, add 2 and *2

		ldx	term_ptr
		ldy	term_ptr+2

		sec			; only transfer complete lists!
		brl	xfer_status


		Eject
;  Save Viewport

save_viewport	long

		lda	wnd_length	; calculate memory needed
		and	#$00FF		; by doing a cheap multiplication
		tax

		lda	wnd_width
		and	#$00FF
		sta	dp_temp_2

		lda	#0

sv_vp_1
		clc
		adc	dp_temp_2
		dex
		bne	sv_vp_1

		clc			; add 2 for header bytes
		adc	#2
		sta	dp_temp_2

		lda	the_req_cnt+2	; if buffer > 64k we have enough
		bne	sv_vp_2

		lda	the_req_cnt	; enough room (lo word) ?
		cmp	dp_temp_2
		bge	sv_vp_2		; yes!

		lda	#drvr_bad_parm	; not enough room!
		brl	error_exit

sv_vp_2
		lda	dp_temp_2	; remember buffer size
		pha

		mode_8
		jsr	vp_save
		mode_16

		pla			; report success
		ldx	#0
		brl	report_tra_cnt


		Eject
; Get Text character

get_char	mode_8

		jsr	cv_bas_calc
		sta	>set80col
		sta	>txtpage1	; assuming 40 or 80 odd
		lda	ch

		bit	col_size	; 80-col or 40-col ?
		bpl	get_char_1	; 40. leave things as is.

		lsr	a		; 80.  1/2 index and maybe p2
		bcs	get_char_1
		sta	>txtpage2

get_char_1
		tay
		lda	[cur_base],y
		sta	line_buffer
		sta	>txtpage1	

		mode_16
		lda	#1
		ldx	#<line_buffer
		ldy	#^line_buffer
		clc
		brl	xfer_status


		Eject
; Get read Mode

get_read_mode	long
		lda	#2
		ldx	#<read_mode
		ldy	#^read_mode
		clc
		brl	xfer_status


		Eject
;  Get Default Input String

get_def_string	long
		jsr	make_def_ptr	; dereference the vp

		lda	def_str_len
		ldx	def_str_ptr
		ldy	def_str_ptr+2
		sec
		brl	xfer_status

		eject
;
; Get single character I/O vectors
get_vectors
		lda	#8		; 8 bytes to return to caller
		ldx	#<sngl_io_tbl	; point to table of addresses
		ldy	#^sngl_io_tbl
		clc			; report error if not enough room
		brl	xfer_status	; go do it

sngl_io_tbl	dc.l	COut		; address of single character output routine
		dc.l	KeyIn		; address of single character input routine

		eject
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
;
; control Call
;
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

cont_vect	DC.W	driver_reset
		DC.W	ok_exit			; (Except Format Device)
		DC.W	status_error		; unsupported- char device
		DC.W	ok_exit			; has no control parms
		DC.W	set_wait_stat
		DC.W	status_error		; unsupported- char device
		DC.W	status_error		; unsupported- char device
		DC.W	status_error		; unsupported- char device

spec_cont_vect	DC.W	set_uir_info
		DC.W	term_control
		DC.W	restore_port
		DC.W	set_read_mode
		DC.W	set_def_str
		DC.W	cancel_input
		DC.W	add_trap	; install the console trap please
		DC.W	remove_trap	; Remove the console trap please

control		long

		ldy	#drvr_ctrl_code	; Get the control request code
		lda	[drvr_parm_ptr],y
		bmi	special_control

		cmp	#max_cont+1
		bge	control_error
		asl	a		; Double the control code
		tax			;   for use as an index
		jmp	(cont_vect,X)

special_control	cmp	#max_spec_cont+1
		bge	control_error
		asl	a		; Double the control code
		tax			;   for use as an index

		lda	status_word	; by the way, are we open?
		ror	a
		bcs	go_spec_cont

		lda	#drvr_not_open
		brl	error_exit

go_spec_cont
		jmp	(spec_cont_vect,X)

control_error	lda	#drvr_bad_code
		brl	error_exit	; None of the above!  Error

		Eject
;
;Add console trap.  This routine will take a long word vector to a user routine
;

add_trap	long
		lda	the_req_cnt+2	;make sure the request count is OK
		bne	@bad_count	;sorry the count is way too large
		lda	the_req_cnt
		cmp	#$0004		;the only valid count
		bne	@bad_count
		
		ldy	#$0002
		lda	[msg_ptr]	;get the address please
		sta	users_vector+1
		lda	[msg_ptr],y
		sta	users_vector+3
		
		lda	trap_vector	;see if a trap is already installed
		cmp	our_vector
		bne	@trap_error	;sorry you cannot install a new vector
		lda	trap_vector+2
		cmp	our_vector+2
		bne	@trap_error
		
		
		lda	users_vector	;install the users address please
		sta	trap_vector
		lda	users_vector+2
		sta	trap_vector+2
		
		lda	#$0004
		ldx	#$0000
		brl	report_tra_cnt
		
@bad_count
		lda	#drvr_bad_parm	; when length & term_count don't match
		brl	error_exit
		
@trap_error	lda	#add_trap_failed
		brl	error_exit

users_vector
		dc.b	$22		; a JSL instruction
		dc.b	00,00,00,00	; users address goes here

our_vector	jsl	our_rtl
our_rtl		rtl


		Eject
;
;This routine will remove the user installed trap vector
;
remove_trap	long
		lda	the_req_cnt
		ora	the_req_cnt+2
		bne	@bad_count
		
		lda	our_vector
		sta	trap_vector
		lda	our_vector+2
		sta	trap_vector+2

; must reset the single character i/o vectors too, just in case someone changed 'em
		lda	#<COut_1	;11-Mar-92 DAL
		sta	COut+1
		lda	#COut_1>>8	;11-Mar-92 DAL
		sta	COut+2
		lda	#<KeyIn_1	;11-Mar-92 DAL
		sta	KeyIn+1
		lda	#KeyIn_1>>8	;11-Mar-92 DAL
		sta	KeyIn+2

		lda	#$0000
		tax
		brl	report_tra_cnt
		
@bad_count
		lda	#drvr_bad_parm	; when length & term_count don't match
		brl	error_exit
		
		Eject
;
; Reset Text Driver

driver_reset	long

		jsr	initialize	; Re-initialize everything

		brl	ok_exit


		Eject
; Wait/No-Wait control

set_wait_stat	long

		lda	#2
		ldx	#<immed_flag
		ldy	#^immed_flag
		clc
		brl	xfer_control

		Eject
; Set User input Routine Information

set_uir_info	long

		lda	#input_info_sz
		ldx	#<input_info
		ldy	#^input_info
		clc
		brl	xfer_control

		Eject
; Terminator control

term_control	long

		lda	the_req_cnt+2	; if buffer > 64k, too long!
		bne	term_cnt_error

		lda	the_req_cnt	; did the user give us at least 2?
		tay
		cmp	#$0002
		bcc	term_cnt_error	; he did not provide the mask
		
		lda	[msg_ptr]	; what is the mask
		beq	kill_the_terms	; if 0, disable

					; did the user give us at least 4?
		cpy	#$0004
		bcc	term_cnt_error	; he did not provide the mask and terminator count
		
		ldy	#2		; examine count for correctness
		lda	[msg_ptr],y
		beq	kill_the_terms	; if 0, disable
		cmp	#256		; max 255 terminators
		bge	term_cnt_error

		inc	a		; (calculating byte count)
		inc	a
		asl	a

		cmp	the_req_cnt	; exact transfers only!
		bne	term_cnt_error

;  The terminators are ok.  Prepare a new list!

		sta	term_count	; remember the length
		jsr	kill_term_list	; kill old list
		lda	term_count	; get the length again
		jsr	call_alloc	; make a new one
		bcc	term_cnt_1

		lda	#drvr_no_resrc
		brl	error_exit

term_cnt_1
		stx	term_vp		; save the new terminator vp
		sty	term_vp+2
		jsr	call_deref

		lda	term_count	; get the length (again)
		sec			; transfer exact count
		brl	xfer_control

term_cnt_error
		lda	#drvr_bad_parm	; when length & term_count don't match
		brl	error_exit

kill_the_terms
		jsr	kill_term_list	; user selected disable
		lda	#4		; we just looked at the header
		ldx	#0
		brl	ok_exit

		Eject
; Restore console Viewport

restore_port	long

		lda	the_req_cnt+2	; if buffer >64k, too big!
		bne	rest_cnt_error
		lda	the_req_cnt
		cmp	#$0002		; We need at least two bytes
		bcc	rest_cnt_error	; sorry bud
		
		lda	[msg_ptr]	; see if enough data was supplied
;
;Fixed BRC#39797 Bug #1.  I added the BEQ to handle the case of zero
;
		bne	do_restore
		
		lda	#$0002		; we handled the first two bytes.
		bra	skip_restore	; there is nothing to restore!
;
;End of bug fix
;
do_restore
		xba
		and	#$00FF
		tax
		lda	[msg_ptr]
		and	#$00FF
		sta	dp_temp_2
		lda	#0

rest_pt_lp
		clc
		adc	dp_temp_2
		dex
		bne	rest_pt_lp

		inc	a		; add two for record header
		inc	a

		cmp	the_req_cnt
		bne	rest_cnt_error

		pha			; its ok!

		mode_8
		jsr	vp_restore
		mode_16

		pla			; report the save!
skip_restore	ldx	#0
		brl	report_tra_cnt

rest_cnt_error
		lda	#drvr_bad_parm	; only perfect data allowed!
		brl	error_exit

		Eject
;
; Set read Mode
;
set_read_mode	long

		lda	#2		; word param
		ldx	#<read_mode
		ldy	#^read_mode
		clc
		brl	xfer_control

		Eject
;  Set default string for uir input

set_def_str	long
		lda	the_req_cnt+2	; if >64k, too long!
		bne	def_str_error
		lda	the_req_cnt
		beq	def_str_clr	; 0.  no default string!
		cmp	#255		; max length 254
		bge	def_str_error

		jsr	kill_def_str	; dump old string

		lda	the_req_cnt
		jsr	call_alloc	; get new memory
		bcc	set_def_1

		lda	#drvr_no_resrc	; out of memory!
		brl	error_exit

set_def_1
		stx	def_str_vp
		sty	def_str_vp+2
		jsr	call_deref

		lda	the_req_cnt	; always copy everything
		sta	def_str_len
		clc
		brl	xfer_control

def_str_error	long
		lda	#drvr_bad_parm
		brl	error_exit

def_str_clr	long
		jsr	kill_def_str	; dump old one!
		lda	#0
		tax
		brl	report_tra_cnt	; 0 bytes xferred

		Eject
;  Cancel in-progress input

cancel_input	mode_8			; called in 16 bit mode
		jsr	rmv_cursor
		stz	entry_type
		stz	exit_type

		mode_16
		lda	#0		; 0 bytes xferred
		tax
		brl	report_tra_cnt


		eject
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
;
; flush Call
;
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
;
; This call does nothing
;
flush		long

		lda	#0		; Be sure drvr_tran_cnt is zero
		tax			; (A = lo-word,  X = hi-word) 
		brl	report_tra_cnt	; No error here

		eject
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
;
; shutdown Call
;
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
;
;  If the driver is open, first perform close actions.
;
shutdown	long

		lda	status_word
		ror	a		; Is the driver open?
		bcc	shutdown_2	; No, continue

		clc			; closing- clear open flag
		rol	a
		sta	status_word

		jsr	kill_term_list	; closing ; dump terminators
		jsr	kill_def_str
		jsr	kill_port_chain
		jsr	rmv_curs_time	; disable the cursor interrupt

shutdown_2
		jsr	shutdown_patch	; release ID if library version

		bra	ok_exit		;  and goto ok_exit

		eject
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
;
; console exit routines:
;
;  Report_tra_cnt:      A lo and X hi are the transfer count.
;                       Place it in the param blk and return no error.
;
;  OK_exit:             Return with no error.
;
;  Error_Exit:          Return with error code passed in A.
;
;  (All exit routines entered in 16 bit mode!!!)
;
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

report_tra_cnt	long
		ldy	#drvr_tran_cnt	; Report the transfer count
		sta	[drvr_parm_ptr],y
		iny
		iny
		txa
		sta	[drvr_parm_ptr],y

ok_exit		long
		lda	#no_error	; No error entry point
		clc
		rts

error_exit	long
		sec			; error passed in a
		rts

		eject
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
;
; Initialization subroutine
;
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

initialize	mode_8			; called as 16 bit

		jsr	init_viewport	; initialize viewport

; Now initialize the User input Routine

uir_init	mode_16
		jsr	kill_term_list
		jsr	kill_def_str

		mode_8
		lda	#$20		; fill char = space
		sta	fill_char
		stz	def_cursor	; def curs = insert, at end, no ctrls
		lda	#$80
		sta	beep_flag	; beeper on
		stz	entry_type	; initial entry
		jsr	new_curs_rate	; initialize blinker
		mode_16
		rts			; exit 16


		eject
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
;
;  init_viewport
;
;  initializes the viewport to published standards.  Its
;  size is expanded to the full size for the current config.
;

init_viewport	short
		stz	cv
		stz	ch
		stz	wnd_left
		stz	wnd_top
		lda	#23
		sta	wnd_bottom
		inc	a
		sta	wnd_length

		lda	#39
		bit	col_size
		bpl	init_vp_1
		lda	#79
init_vp_1
		sta	wnd_right
		inc	a
		sta	wnd_width

		lda	#$A0		; normal video's fill char
		sta	cons_fill

		lda	#$80		; use for setting flags 'true'
		sta	cons_wrap
		sta	cons_advance
		sta	cons_lf
		sta	cons_scroll
		sta	cons_video	; normal video
		sta	cons_dle
		stz	cons_mouse	; mousetext off

		rts

		eject
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
;
;  Make_Term_Ptr
;
;  Returns a pointer to the terminator list, at term_ptr.  If
;  there is no terminator list (term_vp == 0) then set up a
;  pointer to an 'empty' terminator list of 0,0,0,0.
;

make_term_ptr	long
		lda	term_vp		; is there data?
		ora	term_vp+2
		beq	make_fake_ptr	; no!

		ldx	term_vp		; yes, dereference it
		ldy	term_vp+2
		jsr	call_deref
		stx	term_ptr
		sty	term_ptr+2

		rts

make_fake_ptr	long
		lda	#<fake_list
		sta	term_ptr
		lda	#^fake_list
		sta	term_ptr+2

		rts

fake_list	DC.W	00		; mask = 0
		DC.W	00		; length = 0

		eject
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
;  get_term_parms
;
;  Called right after make_term_ptr if we are going to interpret
;  the terminator info.  Copies the mask and count into term_mask
;  and term_count, then modifies term_ptr to point to the actual
;  list (4 bytes into the data structure).

get_term_parms	long

		lda	[term_ptr]	; word 0 is mask
		sta	term_mask
		ldy	#0002
		lda	[term_ptr],y	; word 1 is length
		sta	term_count

		clc			; adjust pointer
		lda	term_ptr
		adc	#0004
		sta	term_ptr
		bcc	@1
		inc	term_ptr+2	; propogate carry
@1
		rts

		eject
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
;
;  kill_term_list
;
;  Dump the memory, if any, used for the terminator list.
;

kill_term_list	long
		lda	term_vp		; do we have any?
		ora	term_vp+2
		beq	q_kill_term	; no...

		ldx	term_vp
		ldy	term_vp+2
		jsr	call_release

		stz	term_vp
		stz	term_vp+2
q_kill_term	rts


		eject
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
;
;  make_def_ptr
;
;  Setup def_str_ptr as a pointer to the input default string
;  (by dereferencing def_str_vp).
;

make_def_ptr	long
		lda	def_str_vp
		ora	def_str_vp+2
		beq	no_def_str

		ldx	def_str_vp
		ldy	def_str_vp+2
		jsr	call_deref
		stx	def_str_ptr
		sty	def_str_ptr+2

		rts

no_def_str
		stz	def_str_ptr
		stz	def_str_ptr+2
		rts


		eject
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
;
;  kill_def_str
;
;  Dump the memory, if any, used for the default input string
;

kill_def_str	long
		lda	def_str_vp	; do we have one?
		ora	def_str_vp+2
		beq	q_kill_def	; no...

		ldx	def_str_vp
		ldy	def_str_vp+2
		jsr	call_release

		stz	def_str_vp
		stz	def_str_vp+2
		stz	def_str_len	; 0 length used as flag
q_kill_def	rts


		eject
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
;
;  kill_port_chain
;
;  Walk the saved-textport-chain and release any ports.
;

kill_port_chain	long
		lda	port_chain	; any more to do?
		ldy	port_chain+2	; get high word
@loop
		tax
		ora	port_chain+2
		beq	q_kill_ports

		jsr	call_deref
		stx	dp_temp_1	; get the next one!
		sty	dp_temp_1+2

		lda	[dp_temp_1]	; handle to next one
		pha
		ldy	#2
		lda	[dp_temp_1],y
		pha

		ldx	port_chain	; kill the current one
		ldy	port_chain+2
		jsr	call_release

		pla			; step to next one
		sta	port_chain+2
		tay			; put in Y too
		pla
		sta	port_chain

		bra	@loop		; repeat

q_kill_ports
		rts


		eject
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
;  XFER_STATUS
;
;  Copy driver status data to the user buffer.  Transfers only
;  as much as (a) exists in the source and (b) there is room for.
;  Reports the final transfer count and exits.
;
;  Inputs:      A            source length
;               X,Y          source pointer
;               msg_ptr      destination pointer
;               the_req_cnt  max length of dest buffer
;               C clear      transfer as much as possible
;               C set        if not enough room, report drvr_bad_parm
;
;  Outputs:     If C was clear or C set and A <= the_req_cnt, returns
;               no_error and transfer_count set to bytes transferred.
;               If C was set and A > the_req_cnt, returns drvr_bad_parm.
;
;  Note:  By the driver specs, user buffers may be greater than 64k,
;         however because the source length is passed in A, the max
;         transfer count is $FFFF.
;

xfer_status	long
		stx	dp_temp_1	; store source pointer
		sty	dp_temp_1+2
		sta	dp_temp_2	; store source length

		ror	a		; get C into hi bit of A

		ldx	the_req_cnt+2	; if dest > 64k, no size problem
		bne	xfer_stat_1

		ldx	the_req_cnt
		cpx	dp_temp_2
		bge	xfer_stat_1	; buffer big enough

;  The buffer is smaller than the available data.  If there is
;  a problem, report an error.

		rol	a		; get the flag again
		bcc	xfer_stat_2	; just return partial data

		lda	#drvr_bad_parm	; report xfer error
		brl	error_exit

;  The buffer is big enough for the available data.  Use the
;  source data size.

xfer_stat_1
		ldx	dp_temp_2

;  Take the transfer length in X.  If it's non-zero,
;  move that many bytes.

xfer_stat_2
		phx			; remember the xfer count
		txy

		longa	off
		sep	#$20		; move bytes

xfer_stat_lp
		tyx			; test for end
		beq	xfer_stat_3

		dey			; decrement pointer
		lda	[dp_temp_1],y	; source data
		sta	[msg_ptr],y	; destination buffer
		bra	xfer_stat_lp

xfer_stat_3
		longa	on
		rep	#$20		; back to full native

		pla			; restore transfer count (x=0)
		brl	report_tra_cnt


		eject
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
;  XFER_CONTROL
;
;  Copy driver control data from the user buffer.  Transfers only
;  as much as (a) exists in the source and (b) there is room for.
;  Reports the final transfer count and exits.
;
;  Inputs:      A            max length of destination
;               X,Y          destination pointer
;               msg_ptr      source pointer
;               the_req_cnt  length of source data
;               C clear      transfer as much as possible
;               C set        if not enough room, report drvr_bad_parm
;
;  Outputs:     If C was clear or C set and A <= the_req_cnt, returns
;               no_error and transfer_count set to bytes transferred.
;               If C was set and A > the_req_cnt, returns drvr_bad_parm.
;
;  Note:  By the driver specs, user buffers may be greater than 64k,
;         however because the dest length is passed in A, the max
;         transfer count is $FFFF.
;

xfer_control	long
		stx	dp_temp_1	; store dest pointer
		sty	dp_temp_1+2
		sta	dp_temp_2	; store dest length

		ror	a		; get C into hi bit of A

		ldx	the_req_cnt	; Check the user's request count
		cpx	dp_temp_2	; compare sizes
		bge	xfer_cont_1	; destination big enough

;  The buffer is bigger than the destination area.  If there is
;  a problem, report an error.  User is sending less then max data.

		rol	a		; get the flag again
		bcc	xfer_cont_2	; just return partial data

		lda	#drvr_bad_parm	; report xfer error
		brl	error_exit

;  The destination is big enough for the source data.  Use the
;  source data size.

xfer_cont_1
		ldx	dp_temp_2

;  Take the transfer length in X.  If it's non-zero,
;  move that many bytes.

xfer_cont_2
		phx			; remember the xfer count
		txy

		longa	off
		sep	#$20		; move bytes

xfer_cont_lp
		tyx			; test for end
		beq	xfer_cont_3

		dey			; decrement pointer
		lda	[msg_ptr],y	; source data
		sta	[dp_temp_1],y	; destination buffer
		bra	xfer_cont_lp

xfer_cont_3
		longa	on
		rep	#$20		; back to full native

		pla			; restore transfer count (x=0)
		brl	report_tra_cnt


		eject
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
;
;  Turn_Screen_On
;
;  The driver has just been opened.  Initialize the screen
;  to 80 column mode.  If the screen was previously 40,
;  convert the data so we don't have to see garbage.

turn_screen_on	mode_8			; (enter in 16 mode)

		lda	>rd80vid	; already there?
		bmi	already_80	; yes.  no changes
		jsr	tr_4080		; convert screen data
		sta	>set80vid	; 80 column hardware

already_80
		ldx	#$80		; flag for 80 col mode
		stx	col_size	; save column mode flag

		lda	#79		; screen right side
		sta	wnd_right	; save right side
		inc	a		; convert and save width
		sta	wnd_width

		sta	>setaltchar	; alt character set
		lda	>txtset		; text mode on
		sta	>clr80col	; no funny storage mode (yet)
		lda	>txtpage1	; show page 1

		mode_16
		rts

		eject
;---------------------------------------------------------------------------------------------------
;
; COut - single character output vector
;
; Address is returned to a client with the GetVectors DStatus subcall.  The client can
; then place a character in the accumulator and JSL to this address.  It is also allowed
; for the client to modify the address to intercept single character I/O calls through
; the vector (for example, Prizm).

COut		jml	COut_1

COut_1		pha			; save registers
		phx
		phy
		php			; save register sizes
		phb			; save caller's DBR
		phd			; and direct page

		pea	my_dp		; set up our direct page
		pld
		phk			; set DBR to our bank
		plb

		sep	#$30		; back to 8-bit mode
		longa	off
		longi	off
		sta	>set80col	; allow even/odd access
		jsr	char_out	; go output the character

		pld			; restore direct page
		plb			; restore DBR
		plp			; restore register sizes
		ply			; restore registers
		plx
		pla
		rtl			; back to caller

;---------------------------------------------------------------------------------------------------
;
; KeyIn - Single Character Input Vector
;
; Address is returned to a client with the GetVectors DStatus subcall.  The client can
; then JSL to this address and have a single keypress returned in the accumulator.  It
; is also allowed for the client to modify the address to intercept single character
; I/O calls through the vector (for example, Prizm).
;
; Note that calling this vector will cause the program to pause until a key is pressed
; (i.e. wait mode).  On exit, the ASCII value of the keypress will be in the low byte
; of the accumulator, with the state of the keyboard modifiers in the high byte.

KeyIn		jml	KeyIn_1

KeyIn_1		phx			; save X and Y
		phy
		php			; save register sizes
		phb			; save caller's DBR
		phd			; and direct page

		pea	my_dp		; set to my direct page
		pld
		phk			; and DBR
		plb
@key_loop
		rep	#$30		; 16-bit mode
		lda	>$4e		; increment random # seed, like the monitor does
		inc	a
		sta	>$4e
		sep	#$30		; ensure 8-bit mode
		longa	off
		longi	off
		jsr	read_key	; go get a keypress
		bcc	@key_loop	; wait until a key is pressed
		xba			; put keypress into high byte
		txa			; put modifiers into low byte
		xba			; then put 'em where they belong

		pld			; restore caller's direct page
		plb			; and DBR
		plp			; restore register sizes
		ply			; restore X and Y
		plx
		rtl			; back to caller

		eject
;----------------------------------------------------------
;
;  CONS.MAIN
;
;  The main routine for console output.
;
;  Inputs:      msg_ptr                 pointer to output data
;               msg_len                 how many bytes to print
;
;  Author:      Andy Stadler
;  Created:     Sept 15, 1987
;
;  Modifications:
;
;  15-Sep-87    Rewrite begun
;  15-Oct-87    Rewrite finished.
;  23-Jan-88    alloc, deref & release glue added
;
;  Copyright (C) 1987 Apple Computer, Inc.
;  All Rights Reserved
;
;----------------------------------------------------------


console		short
		sta	>set80col	; allow even/odd access
		jsr	cv_bas_calc	; pre-calculate base address

		mode_16

console_loop	long
		lda	msg_len		; any more characters?
		ora	msg_len+2
		mode_8
		bne	console_gotone
		rts			; no.  done!

console_gotone
		lda	[msg_ptr]	; get the character
		jsr	char_out	; print it.

		mode_16
		inc	msg_ptr		; increment the pointer
		bne	con_next_1
		inc	msg_ptr+2

con_next_1
		lda	msg_len		; decrement the count
		bne	con_next_2
		dec	msg_len+2
con_next_2
		dec	msg_len

		bra	console_loop	; (in long mode)


		eject
;----------------------------------------------------------
;
;  Char_Out  -  display a single character.  This takes
;               the characters as they come from the input
;               stream and does all the mapping and interpreting
;               as necessary.  Characters destined for the
;               screen are finally routed to 'display_it'.
;
;  In:  A = Ascii character to print.
;
;-----------------------------------------------------------

char_out	short

		ldx	console_state	; part of a cmd?
		bne	in_command	; yes.  finish it.

;  A fresh character.  Process it.

		cmp	#$20		; control command?
		bge	map_char	; printable.  do it.

;  Process a control character.

new_command	short
		asl	a		; make char -> index
		tax
		jmp	(con_table,X)	; (rts) do the command

;  Finish a previous command.

in_command	short
		jmp	(comp_tbl,X)	; (rts) completion routines

;  Map a character to the screen codes.  This is based on a combination
;  of the 'inverse' and 'mousetext' flags.  In addition, codes $80-$FF
;  are sent directly (except they are flipped by the inverse flag).

map_char	short
		tay			; test char range
		bmi	sk_uc_map	; special inverse, send it through

;  Check for uppercase characters,

		cmp	#$40		; bottom of UC/MT range
		blt	sk_uc_map
		cmp	#$60		; top of range
		bge	sk_uc_map

;  If not mousetext, map uppercase $40-$5F to $00-$1F

		ldx	cons_mouse	; mousetext on?
		bpl	uc_map		; no, so remap UC
		ldx	cons_video	; inverse mode?
		bpl	sk_uc_map	; yes, mt too, so don't remap

;  We are not displaying a mousetext character.  Remap the upper case

uc_map
		and	#$BF		; $40->$00, $5F->$1F

;  Now apply the inverse mapping.

sk_uc_map
		eor	cons_video	; $80 is normal

;  And display the character on the screen.


; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
; display_it - send a character to the screen memory
;
; character to send must be in the A-register.
;

display_it	short	

		tax			; remember the character!

		lda	ch
		bit	col_size	; 40 or 80?
		bpl	display_it_1	; 40.  index and go
		lsr	a		; divide column #
		bcs	display_it_1	; odd.  Stay on main mem

		sta	>txtpage2	; even. go to aux mem.

		tay			; y = screen offset
		txa			; Get the character back
		sta	[cur_base],y	; Write the character on the screen
		lda	cons_advance	; Should we advance the cursor?
		bne	con_right	; move the cursor right
display_it_2
		rts			; return to the caller

display_it_1
		tay			; y = screen offset
		lda	>txtpage1	; assume even column OR 40 mode
		txa			; Get the character back
		sta	[cur_base],y	; Write the character on the screen
		lda	cons_advance	; Should we advance the cursor?
		beq	display_it_2

;					; (rts) advance the cursor!
;----------------------------------------------------------
;
;  $1C  Move cursor right
;	We have the code here since we call it on each character write!
;

con_right	short
		lda	ch		; at right yet?
		cmp	wnd_right
		beq	con_right_2

		inc	ch		; no.  just move it.
con_right_1
		rts

con_right_2
		lda	cons_wrap	; wrap enabled?
		bpl	con_right_1	; no, stay put.

		lda	wnd_left	; yes.  move over and maybe down
		sta	ch
		brl	con_lf		; (rts)

		eject
;-----------------------------------------------------------
;
;  CONSOLE COMMAND HANDLERS
;
;  Each of these routines handles a control character.
;

;-----------------------------------------------------------
;
;  $00  No Operation
;

con_nop		short
		rts

;-----------------------------------------------------------
;
;  $01  Push and reset view port
;

con_save_vp	mode_16
		lda	port_chain	; save vp of old viewport
		sta	dp_temp_1
		lda	port_chain+2
		sta	dp_temp_1+2

		lda	#c_stat_size+4	; request some memory
		jsr	call_alloc
		bcs	sk_push		; memory error!

		stx	port_chain	; save new first entry
		sty	port_chain+2
		jsr	call_deref
		stx	dst_line	; I will be copying to it
		sty	dst_line+2

		lda	dp_temp_1	; save link vp
		sta	[dst_line]
		lda	dp_temp_1+2
		ldy	#2
		sta	[dst_line],y

		ldx	#c_stat_size-1	; source counter
		ldy	#c_stat_size+4-1

		sep	#$20		; move bytes

push_vp_lp
		lda	cons_stat_blk,x
		sta	[dst_line],y

		dey
		dex
		bpl	push_vp_lp

sk_push		mode_8
		brl	init_viewport	; (rts)

;----------------------------------------------------------
;
;  $02  Set Text Port
;
;  (Just initializes the state machine to process 4 more bytes.)

con_set_vp	short
		lda	#2		; code for set vp #1
		sta	console_state
		rts

;-----------------------------------------------------------
;
;  $03  Clear from left edge to cursor
;

con_clr_bol	short
		ldx	wnd_left	; left/right bounds
		ldy	ch
		jsr	spc_cmp_bnds	; compute bounds for clear line
		ldy	cv
		brl	spc_clear_line	; (rts)


;-----------------------------------------------------------
;
;  $04  Pop or reset text port
;

con_rest_vp	mode_16
		lda	port_chain
		ora	port_chain+2
		beq	sk_push		; (look above) just reset

		ldx	port_chain	; get the recently saved port
		ldy	port_chain+2
		phx			; save it for later release
		phy			; of the memory
		jsr	call_deref
		stx	src_line	; but first get a pointer so
		sty	src_line+2	; we can suck it dry!

		lda	[src_line]	; get the link to the next one
		sta	port_chain
		ldy	#2
		lda	[src_line],y
		sta	port_chain+2

		ldx	#c_stat_size-1	; dest counter
		ldy	#c_stat_size+4-1 ; source

		sep	#$20		; move bytes

pop_vp_lp
		lda	[src_line],y
		sta	cons_stat_blk,x

		dey
		dex
		bpl	pop_vp_lp

		rep	#$20		; reset to 16 accumulator

		ply			; release the memory
		plx
		jsr	call_release

		mode_8
		lda	col_size	; if restoring to 40,
		bmi	q_pop_vp	; might have to move the port
		brl	fix_4080
q_pop_vp
		brl	cv_bas_calc	; (rts)


;----------------------------------------------------------
;
;  $05  Horizontal Scroll
;

con_h_shift	short
		lda	#10		; horizontal shift state code
		sta	console_state
		rts

;----------------------------------------------------------
;
;  $06  Set Vertical Position
;

con_v_pos	short
		lda	#12		; VTAB state code
		sta	console_state
		rts

;----------------------------------------------------------
;
;  $07  Ring Bell
;

con_bell	mode_16
		ldx	#$2C03		; Misc tools, sys beep
		jsl	$E10000
		mode_8
		rts

;----------------------------------------------------------
;
;  $08  Cursor left (backspace)
;

con_left	short
		lda	ch		; are we at the left edge?
		cmp	wnd_left
		bne	con_left_1	; no.  move left and quit.


		lda	cons_wrap	; wrap mode?
		beq	q_con_left	; no.  stay put.

		lda	wnd_right
		sta	ch
		brl	con_up		; (rts) and maybe scroll

con_left_1
		dec	ch		; no.
q_con_left
		rts




;----------------------------------------------------------
;
;  $0A  Line feed
;

con_lf		short
		lda	cv		; are we at the bottom?
		cmp	wnd_bottom
		beq	con_lf_1	; yes.  maybe scroll

		inc	cv
		brl	cv_bas_calc	; (rts) we moved so recalc line base

con_lf_1
		lda	cons_scroll	; scrolling allowed?
		bpl	con_lf_2	; no.

		brl	scroll_up	; yes.  move the page.

con_lf_2
		rts


;----------------------------------------------------------
;
;  $0B  Clear to end of port
;

con_clr_eov	short
		jsr	con_clr_eol	; clear cursor's line

		ldy	cv		; are we already done?
		cpy	wnd_bottom
		beq	con_clr_eov_1

		iny			; clear from next line to end
		jsr	clr_screen

con_clr_eov_1
		rts


;----------------------------------------------------------
;
;  $0C  Clear screen and home.
;

con_clr_vp	short
		ldy	wnd_left	; home cursor
		sty	ch
		ldy	wnd_top
		sty	cv
		jsr	clr_screen	; clear screen
		brl	cv_bas_calc	; (rts) recalc cursor address

;----------------------------------------------------------
;
;  $0D  Carriage Return
;

con_return	short
		lda	wnd_left	; move to left edge
		sta	ch
		lda	cons_lf		; move down enabled?
		bmi	con_lf		; yes.  execute line feed.
		rts


;----------------------------------------------------------
;
;  $0E  Set normal display mode
;

con_norm	short
		lda	#$80		; set inverse mode
		sta	cons_video
		lda	#$A0		; fill character to normal spaces
		sta	cons_fill
		rts


;----------------------------------------------------------
;
;  $0F  Set inverse display mode
;

con_inv		short
		stz	cons_video	; video = 00
		lda	#$20		; fill = inverse space
		sta	cons_fill
		rts


;----------------------------------------------------------
;
;  $10  DLE space expansion
;

con_dle		short
		lda	cons_dle	; dle enabled?
		bpl	con_dle_1	; no.  print the next byte
		lda	#14		; dle state code
		sta	console_state
con_dle_1
		rts


;----------------------------------------------------------
;
;  $11  Set 40 column mode
;

con_40_col	short
		lda	col_size	; are we already there?
		bmi	con_40_1
		rts			; yes.  no operation.

con_40_1
		jsr	tr_8040		; convert screen contents

		sta	>clr80vid	; done.  kill 80 col hardware.
		stz	col_size	; and set for 40 mode

;  The following code fixes the viewport if the environment changes
;  from 80 to 40 columns.  If the viewport will fit, it attempts to
;  maintain the size of the viewport by completely shifting it to the
;  left into the 40 column area.  If that doesn't work, the viewport
;  simply shrinks to 40 columns wide.


fix_4080	short
		lda	wnd_width	; will the viewport fit?
		cmp	#41
		blt	fix_1

;  No.  Just make it 40 columns wide and put the cursor
;  somewhere in the main screen area.

		stz	wnd_left	; text port -> full 40
		lda	#39
		sta	wnd_right
		lda	ch		; cursor on screen?
		cmp	#40
		blt	fix_done	; yes.  leave it alone
		stz	ch		; no.  set to left edge.

;  The port will fit in 40 columns wide.  Shift if necessary.

fix_1
		lda	wnd_right	; is right edge on screen?
		cmp	#40
		blt	fix_done

		sec			; compute shift vector
		sbc	#39
		sta	dp_temp_2
		
		sec
		lda	wnd_right
		sbc	dp_temp_2	;adjust the right edge
		sta	wnd_right

		lda	wnd_left	; shift left edge
		sec
		sbc	dp_temp_2
		sta	wnd_left

		lda	ch		; shift cursor
		sec
		sbc	dp_temp_2
		sta	ch

fix_done
		sec			; and fix wnd_width
		lda	wnd_right
		sbc	wnd_left
		inc	a
		sta	wnd_width

		rts


;----------------------------------------------------------
;
;  $12  Set 80 column mode
;

con_80_col	short
		lda	col_size	; already there?
		bpl	con_80_1
		rts

con_80_1
		jsr	tr_4080

		sta	>set80vid	; turn on 80 screen
		lda	#$80		; and set 80 mode for myself
		sta	col_size
		rts


;----------------------------------------------------------
;
;  $13  Clear from beginning of text port
;

con_clr_bov	short
		jsr	con_clr_bol	; clear the front of this line
		ldy	wnd_top

con_clr_bov_1
		cpy	cv
		beq	con_clr_bov_2

		phy
		jsr	clr_line	; clearing from top down
		ply

		iny			; move down and repeat
		bra	con_clr_bov_1

con_clr_bov_2
		rts


;----------------------------------------------------------
;
;  $14  Set horizontal position
;

con_h_pos	short
		lda	#16		; HTab state code

		sta	console_state
		rts


;----------------------------------------------------------
;
;  $15  Set cursor movement flags
;

con_mode	short
		lda	#18		; cursor flags state code
		sta	console_state
		rts


;----------------------------------------------------------
;
;  $16  Scroll down
;

con_scr_dn	short
		brl	scroll_down	; (rts)


;----------------------------------------------------------
;
;  $17  Scroll up
;

con_scr_up	short
		brl	scroll_up	; (rts)


;----------------------------------------------------------
;
;  $18  MouseText off
;

con_mt_off	short
		stz	cons_mouse
		rts


;----------------------------------------------------------
;
;  $19  Home cursor
;

con_home	short
		lda	wnd_left
		sta	ch
		lda	wnd_top
		sta	cv
		brl	cv_bas_calc	; (rts)


;----------------------------------------------------------
;
;  $1A  Clear line
;

con_clr_ln	short
		ldy	cv		; clear the line
		brl	clr_line	; (rts)


;----------------------------------------------------------
;
;  $1B  MouseText on
;

con_mt_on	short
		lda	#$80
		sta	cons_mouse
		rts



;----------------------------------------------------------
;
;  $1D  Clear to end of line
;

con_clr_eol	short
		ldx	ch		; left/right bounds
		ldy	wnd_right
		jsr	spc_cmp_bnds	; compute bounds for clear line
		ldy	cv
		brl	spc_clear_line	; (rts)


;----------------------------------------------------------
;
;  $1E  Goto XY
;

con_goto_xy	short
		lda	#20
		sta	console_state
		rts

;----------------------------------------------------------
;
;  $1F  Move cursor up (reverse line feed)
;

con_up		short
		lda	cv		; at top?
		cmp	wnd_top
		beq	con_up_2	; yes.  maybe scroll

		dec	cv		; no.  move up
		brl	cv_bas_calc	; (rts) fix ptrs and quit

con_up_2
		lda	cons_scroll	; hitting top.  scroll?
		bmi	con_up_3	; yes.

		rts			; no.  stay put.

con_up_3
		brl	scroll_down	; (rts)

		eject
;----------------------------------------------------------
;
;  The following are completion routines for the multi-byte
;  command sequences.  Some finish the command and reset the
;  state for a new command or character.  Others are midway,
;  they do part of the work and set the state for yet another
;  handler.
;
;----------------------------------------------------------


;-----------------------------------------------------------
;
;  Completion routine #1:  Set viewport, parm= new left
;

comp_vp_left	short
		sec			; parm is +32
		sbc	#32

		bpl	comp_vp_left_1	; check for left clip
		lda	#0		; .lt. 0 : reset to 0
		bra	comp_vp_left_3

comp_vp_left_1
		ldx	col_size	; what is physical right bound?
		bmi	comp_vp_left_2

		cmp	#40		; check 40 column screen
		blt	comp_vp_left_3
		lda	#39		; clip to right side
		bra	comp_vp_left_3

comp_vp_left_2
		cmp	#80		; check 80 column screen
		blt	comp_vp_left_3
		lda	#79		; clip to right side

comp_vp_left_3
		sta	wnd_left	; set the new value
		sta	ch		; and put the cursor there

		lda	#4		; set state for next parm
		sta	console_state
		rts


;-----------------------------------------------------------
;
;  Completion routine #2:  Set viewport, parm= new top
;

comp_vp_top	short
		sec			; parm is +32
		sbc	#32

		bpl	comp_vp_top_1	; check for top clip
		lda	#0		; .lt. 0 : reset to 0
		bra	comp_vp_top_2

comp_vp_top_1
		cmp	#24		; check for bottom clip
		blt	comp_vp_top_2
		lda	#23		; clip to screen bottom

comp_vp_top_2
		sta	wnd_top		; set the new value
		sta	cv		; and put the cursor there

		lda	#6		; set state for next parm
		sta	console_state

		brl	cv_bas_calc

;-----------------------------------------------------------
;
;  Completion routine #3:  Set viewport, parm= new right
;

comp_vp_rt	short
		ldy	#39
		bit	col_size	; compute right edge
		bpl	comp_vp_rt_1
		ldy	#79
comp_vp_rt_1
		sty	dp_temp_2

		sec			; parm is +32
		sbc	#32

		bpl	comp_vp_rt_2	; if negative #, set to edge
		lda	dp_temp_2
		bra	comp_vp_rt_4

comp_vp_rt_2
		cmp	wnd_left	; >= left edge?
		bge	comp_vp_rt_3
		lda	wnd_left	; no.  make 1 char wide.

comp_vp_rt_3
		cmp	dp_temp_2	; on screen?
		blt	comp_vp_rt_4
		lda	dp_temp_2	; no.  clip to right edge

comp_vp_rt_4
		sta	wnd_right	; set the new value.
		sec
		sbc	wnd_left	; calculate new width
		inc	a
		sta	wnd_width

		lda	#8		; store next state
		sta	console_state
		rts


;-----------------------------------------------------------
;
;  Completion routine #4:  Set viewport, parm= new bottom
;

comp_vp_bt	short
		sec			; parm is +32
		sbc	#32

		bpl	comp_vp_bt_1	; if negative #, set to bottom
		lda	#23
		bra	comp_vp_bt_3

comp_vp_bt_1
		cmp	wnd_top		; >= top?
		bge	comp_vp_bt_2
		lda	wnd_top		; no.  make 1 char tall

comp_vp_bt_2
		cmp	#23		; on screen?
		blt	comp_vp_bt_3
		lda	#23		; no.  clip to top

comp_vp_bt_3
		sta	wnd_bottom	; set the new value.
		sec
		sbc	wnd_top		; calculate new length
		inc	a
		sta	wnd_length

		stz	console_state	; sequence finished
		rts


;-----------------------------------------------------------
;
;  Completion routine #5:  Horizontal Scroll
;

comp_h_scr	short
		stz	console_state	; this will end this sequence
		stz	minus		; assume right shift

		tax			; test the shift value
		bne	comp_h_scr_1
		rts			; it was zero.  bye bye.

comp_h_scr_1
		bpl	comp_h_scr_2
		eor	#$ff		; two's complement
		inc	a
		dec	minus		; 0 -> -1

comp_h_scr_2
		sta	shift
		cmp	wnd_width	; is it >= window size?
		bge	con_h_scr_3	; yes.  execute clear screen

		brl	shift_it	; (rts) shift screen
; 
; Shift size is greater than or equal to the window size so clear it
;
con_h_scr_3
		ldy	wnd_top
		brl	clr_screen	; (rts)


;-----------------------------------------------------------
;
;  Completion routine #6:  Vertical Tab
;


comp_vtab	short
		stz	console_state
		brl	set_vtab	; (rts)


;-----------------------------------------------------------
;
;  Completion routine #7:  DLE space expansion
;

comp_dle	short
		sec
		sbc	#32

		sta	dle_count

comp_dle_1
		beq	comp_dle_2

		lda	cons_fill
		jsr	display_it

		dec	dle_count
		bra	comp_dle_1

comp_dle_2
		stz	console_state
		rts


;-----------------------------------------------------------
;
;  Completion routine #8:  Horizontal Tab
;


comp_htab	short
		stz	console_state
		brl	set_htab	; (rts)


;----------------------------------------------------------
;
;  Completion routine #9:  Cursor movement control
;

comp_mode	short
		stz	cons_advance	; zero out the destinations
		stz	cons_lf
		stz	cons_wrap
		stz	cons_scroll
		stz	cons_dle

		lsr	a		; roll out the bits
		ror	cons_advance
		lsr	a
		ror	cons_lf
		lsr	a
		ror	cons_wrap
		lsr	a
		ror	cons_scroll
		lsr	a
		ror	cons_dle

		stz	console_state
		rts


;----------------------------------------------------------
;
;  Completion routine #10:  Goto XY   parm = new relative ch
;

comp_goto_x	short
		jsr	set_htab
		lda	#22		; setup for second byte
		sta	console_state
		rts


;----------------------------------------------------------
;
;  Completion routine #11:  Goto XY   parm = new relative cv
;

comp_goto_y	short
		jsr	set_vtab
		stz	console_state	; done.
		rts



;----------------------------------------------------------
;
;  set_vtab
;  set_htab
;
;  These are called by the set_h, set_v, and goto_xy routines.
;

set_vtab	short
		sec
		sbc	#32
		clc
		adc	wnd_top		; relative coords.

		bpl	set_vtab_1	; off screen?
		lda	wnd_top

set_vtab_1
		cmp	wnd_top		; too high?
		bge	set_vtab_2
		lda	wnd_top

set_vtab_2
		cmp	wnd_bottom
		blt	set_vtab_3
		lda	wnd_bottom

set_vtab_3
		sta	cv
		brl	cv_bas_calc	; (rts)


set_htab	short
		sec
		sbc	#32
		clc
		adc	wnd_left	; relative coords.

		bpl	set_htab_1	; off screen?
		lda	wnd_left

set_htab_1
		cmp	wnd_left	; too high?
		bge	set_htab_2
		lda	wnd_left

set_htab_2
		cmp	wnd_right
		blt	set_htab_3
		lda	wnd_right

set_htab_3
		sta	ch
		rts

		eject
;-----------------------------------------------------------------------------
;
;  file cons.sub
;
;  Subroutines for the console driver output routines- scrolling,
;  display, clear screen, etc.
;
;  Copyright (C) 1987 Apple Computer, Inc.
;  All Rights Reserved.
;
;  Modification History:
;
;  10-Aug-87    Upgraded to GS/OS source code rules
;  16-Sep-87    Many things rewritten
;  01-Feb-88    Initial release
;  04-Feb-88    Fixed scroller
;
;-----------------------------------------------------------------------------
;
;  Base address tables for screen lines.

line_tbl

		DC.W	$400,$480,$500,$580 ; Lines 0-3
		DC.W	$600,$680,$700,$780 ; Lines 4-7
		DC.W	$428,$4A8,$528,$5A8 ; Lines 8-11
		DC.W	$628,$6A8,$728,$7A8 ; Lines 12-15
		DC.W	$450,$4D0,$550,$5D0 ; Lines 16-19
		DC.W	$650,$6D0,$750,$7D0 ; Lines 20-23

; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
;
;  cv_bas_calc
;   y_bas_calc
;
;  These routines calculate screen base addresses.  cv_bas_calc uses
;  the current value of cv and places the base address in cur_base.
;  It is called each time the console is entered, and every time
;  cv might change.  y_bas_calc uses the value passed in y and returns
;  line_base.
;

cv_bas_calc	short
		lda	cv
		jsr	bas_calc	; returns in LONG MODE
		long
		sta	cur_base
		lda	#$0000		; use mega// memory directly
		sta	cur_base+2
		mode_8
		rts			; return in SHORT mode

y_bas_calc	short
		tya
		jsr	bas_calc	; returns in LONG mode
		long
		sta	line_base
		lda	#$0000		; use mega// memory directly
		sta	line_base+2
		mode_8			; return in SHORT mode
		rts

bas_calc	short
		asl	a
		tax

		mode_16
		lda	line_tbl,x
		rts

; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
; COMPUTE BOUNDS - this routine computes the bounds of a screen
;                  line, based on wnd_left and wnd_right.
;
; SPC_CMP_BNDS - Similar, but uses X as the left bound and Y as
;                the right bound.
;

cmp_bnds	short
		ldx	wnd_left
		ldy	wnd_right

spc_cmp_bnds	short
		lda	col_size	; 40 or 80 columns
		bmi	cmp_bnds_1
;
; 40 column routine
;
		stx	lft1_bound	; easy!
		sty	rgt1_bound

		rts

;80 column version
 
cmp_bnds_1
		txa			; Set up to compute left hand bound
		lsr	a		; Divide it by 2
		sta	lft1_bound	; Store it away for page 1
		bcc	cmp_bnds_2
		inc	a
cmp_bnds_2	sta	lft2_bound	; Store it away for page 2

		tya
		lsr	a
		sta	rgt2_bound
		bcs	cmp_bnds_3
		dec	a
cmp_bnds_3	sta	rgt1_bound

		rts			; All done now!!

; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
;  CLEAR_LINE - clears the line whose number is in Y-REG (0-23)
;  This routine clears from the right edge of the current viewport to
;  the left edge.
;
;  SPC CLEAR LINE - similar, but I have to do the bounds calculations
;                   before hand.  This allows stuff like clear to eol.
;
clr_line	short

		phy
		jsr	cmp_bnds	; calculate left & right bounds
		ply

spc_clear_line	short
		jsr	y_bas_calc	; setup line address

		lda	>txtpage1	; do page 1 stuff
		ldx	lft1_bound
		ldy	rgt1_bound
		jsr	clear_a_line	; clear it!

		lda	col_size	; 80 columns?
		bpl	q_clr_line

		lda	>txtpage2	; yes, clear them too
		ldx	lft2_bound
		ldy	rgt2_bound
		jsr	clear_a_line

q_clr_line	rts

;  This subroutine clears a single line.  But first it checks
;  the bounds (passed in x and y) and quits if they're not legal.
;  This makes us work ok in single column viewports.

clear_a_line	short
		stx	dp_temp_2	; save left bound

		cpy	dp_temp_2	; left bound
		blt	q_clr_a_line	; too far, quit now
		bmi	q_clr_a_line	; special case
		
		iny			; futz around
		lda	cons_fill	; what to clear to

clr_line_lp	dey
		sta	[line_base],y
		cpy	dp_temp_2	; at end yet?
		bne	clr_line_lp

q_clr_a_line	rts


; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
; CLEAR_SCREEN - will clear the current viewport, starting at the
;                absolute line # passed in Y
;
clr_screen	short

		phy			; save current line
		jsr	clr_line
		ply

		cpy	wnd_bottom
		bge	q_clr_screen
		iny
		bra	clr_screen

q_clr_screen	rts
		

; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
; SCROLL UP - this routine will scroll the contents of the viewport upwards.
;
scroll_up	short

		jsr	cmp_bnds	; calculate left & right sides
		lda	wnd_top		; start at top and work down
		sta	num_lines

scrl_up_lp
		lda	num_lines	; are we at bottom yet?
		cmp	wnd_bottom
		beq	q_scrl_up

		tax			; source line is cur + 1
		inx
		jsr	scroll_base	; calculate pointers
		jsr	scroll_copy	; copy the data

		inc	num_lines	; move down 1
		bra	scrl_up_lp

q_scrl_up
		dec	origin_v	; update UIR variable
		tay			; bottom line was in A
		brl	clr_line	; clear it!


; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
; SCROLL DOWN - this routine will scroll the contents of the viewport down.
; It uses the values that define the viewport (see above)
;
; Uses num_lines from scroll up procedure
;
scroll_down	short

		jsr	cmp_bnds	; calculate left & right sides
		lda	wnd_bottom	; start at bottom and work up
		sta	num_lines

scrl_down_lp
		lda	num_lines	; are we at top yet?
		cmp	wnd_top
		beq	q_scrl_down

		tax			; source line is cur - 1
		dex
		jsr	scroll_base	; calculate pointers
		jsr	scroll_copy	; copy the data

		dec	num_lines	; move down 1
		bra	scrl_down_lp

q_scrl_down
		inc	origin_v	; update UIR variable
		tay			; top line was in A
		brl	clr_line	; clear it!

; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
;
;  SCROLL BASE - Calculates the base addresses for the source line
;                (passed in X) and the destination line (passed in A)
;                and puts them in src_line and dst_line.

scroll_base	short


		pha			; remember destination
		txy
		jsr	y_bas_calc	; of source

		mode_16
		lda	line_base	; copy pointer
		sta	src_line
		lda	line_base+2
		sta	src_line+2
		mode_8

		ply			; get dest line
		jsr	y_bas_calc

		mode_16
		lda	line_base	; copy pointer
		sta	dst_line
		lda	line_base+2
		sta	dst_line+2
		mode_8

		rts

; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
;  SCROLL COPY - Copies data from src_line to dst_line, using
;                bounds set up by cmp_bnds.

scroll_copy	short

		lda	>txtpage1	; do page 1 stuff

		longa	on
		rep	#$30
		
		clc
		lda	lft1_bound
		and	#$00FF
		pha
		adc	src_line	; load in the source address
		tax
		
		clc
		pla
		adc	dst_line	; load in the destination count
		tay
		
		sec
		sep	#$20
		lda	rgt1_bound
		sbc	lft1_bound	; calculate the number of bytes to move
		bcc	@next_page
		rep	#$20
		and	#$00FF
		phk
		mvn	$000000,$000000
		plb
@next_page
		longa	off
		sep	#$20
		
		lda	col_size	; 80 columns?
		bpl	q_scr_copy

		lda	>txtpage2	; yes, copy them too!

		longa	on
		rep	#$30

		clc
		lda	lft2_bound
		and	#$00FF
		pha
		adc	src_line	; load in the source address
		tax
		
		clc
		pla			; load in the destination count
		adc	dst_line
		tay
		
		sec
		sep	#$20
		lda	rgt2_bound
		sbc	lft2_bound	; calculate the number of bytes to move
		bcc	q_scr_copy
		rep	#$20
		and	#$00FF
		phk
		mvn	$000000,$000000
		plb
q_scr_copy	
		longa	off
		sep	#$30
		rts


; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
; VIEWPORT SAVE - Save the viewport into the buffer starting at
;                 [msg_ptr].  The format of the save is
;                 wnd_width, wnd_length, screen bytes.  Therefore
;                 the minimum size of the buffer must be
;                 (wnd_width * wnd_length) + 2 bytes.

vp_save		short
		sta	>set80col	; status call, needs setup!

		mode_16
		lda	msg_ptr		; copy msg_ptr into dp_temp_1
		sta	dp_temp_1
		lda	msg_ptr+2
		sta	dp_temp_1+2
		mode_8

		lda	wnd_width	; save width & length
		sta	[dp_temp_1]
		jsr	inc_dp_temp

		lda	wnd_length
		sta	[dp_temp_1]
		jsr	inc_dp_temp

		lda	wnd_top		; remember first line
		sta	line_num

		jsr	cmp_bnds	; compute left and right sides

vp_save_lp
		ldy	line_num
		jsr	y_bas_calc
		lda	#$00E0		; use mega// memory directly
		sta	line_base+2
		jsr	save_line	; copy current line into buffer

		lda	line_num
		cmp	wnd_bottom	; done?
		beq	q_vp_save

		inc	line_num	; no.  move down a line
		bra	vp_save_lp

q_vp_save
		rts

; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
;  SAVE LINE - Copy the line at [line_base] into the buffer
;              at [dp_temp_1] and then increment dp_temp_1
;              by wnd_width so its ready for the next line!

save_line	short

		ldy	lft1_bound	; assuming 40 col ...

		lda	col_size	; test size
		bpl	start_with_main	; 40 columns, use main mem only

		cpy	lft2_bound	; 80.  Start with aux or main?
		bne	start_with_main	;                (even)  (odd)

save_line_lp

		lda	>txtpage2	; start with aux data (even column)

		lda	[line_base],y	; copy the byte
		sta	[dp_temp_1]
		jsr	inc_dp_temp	; move destination pointer

		cpy	rgt2_bound	; done?
		bne	start_with_main	; no

		cpy	rgt1_bound	; maybe...
		bne	q_save_line	; done!

start_with_main
		lda	>txtpage1	; now do the even column

		lda	[line_base],y
		sta	[dp_temp_1]
		jsr	inc_dp_temp

		iny			; move over ...

		lda	col_size	; 40 or 80?
		bmi	save_80_test

		cpy	rgt1_bound	; 40.  Done?
		blt	start_with_main
		beq	start_with_main	; no
		bra	q_save_line

save_80_test
		cpy	rgt2_bound	; more to get from aux page?
		blt	save_line_lp
		beq	save_line_lp	; ah but for the lack of ble

q_save_line
		rts

; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
; VIEWPORT RESTORE - Copy the data from the viewport buffer at
;                    [msg_ptr] into the current viewport.  This
;                    is a bit tricky when the viewport is not
;                    the same size as the data stored in the buffer.


vp_restore	short
		sta	>set80col	; status call, needs setup!

		mode_16
		lda	msg_ptr		; use dp_temp_1
		sta	dp_temp_1
		lda	msg_ptr+2
		sta	dp_temp_1+2
		mode_8

		lda	[dp_temp_1]	; get width
		sta	buffer_width
		beq	vp_exit		; do not handle a zero case
		
		cmp	wnd_width	; use smaller of two for looping
		blt	save_buf_wid
		lda	wnd_width

save_buf_wid
		sta	restore_width
		jsr	inc_dp_temp

		lda	[dp_temp_1]	; get length
		beq	vp_exit		; do not handle zero case
		
		cmp	wnd_length	; use smaller of two
		blt	save_buf_len
		lda	wnd_length	; buffer too big, use vp size

save_buf_len
		sta	buffer_length
		jsr	inc_dp_temp

		jsr	cmp_bnds	; compute left & right bounds

		lda	wnd_top		; where to start restoring to
		sta	line_num

vp_rest_lp
		ldy	line_num
		jsr	y_bas_calc
		jsr	restore_line

		mode_16
		clc
		lda	buffer_width	; 8-bit qty
		and	#$00FF
		adc	dp_temp_1	; move to next line of buffer
		sta	dp_temp_1
		bcc	vp_rest_1
		inc	dp_temp_1+2
vp_rest_1	mode_8

		inc	line_num
		dec	buffer_length	; loop until 0
		bne	vp_rest_lp
vp_exit
		rts

; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
;  RESTORE LINE - Restore one line from [dp_temp_1] to the screen.
;                 Assumes line_base points to the screen line,
;                 lft1_bound and lft2_bound are set up, and
;                 restore_width is the number of bytes to restore.
;

restore_line	short

		ldy	lft1_bound	; screen index
		sty	dp_temp_2
		ldx	#0		; buffer index

		lda	col_size	; 40 or 80?
		bpl	restore_main	; 40.  Only use page 1.

		cpy	lft2_bound	; 80.  start with aux or main?
		bne	restore_main	; main first.

restore_line_lp
		lda	>txtpage2	; start with aux (even column)
		txy			; get buffer index
		lda	[dp_temp_1],y	; get data
		ldy	dp_temp_2	; get screen index
		sta	[line_base],y	; store data

		inx			; move up in buffer
		cpx	restore_width	; done?
		beq	q_restore_line

restore_main
		lda	>txtpage1	; now do odd column (main mem)
		txy			; buffer index
		lda	[dp_temp_1],y
		ldy	dp_temp_2	; screen index
		sta	[line_base],y

		inc	dp_temp_2	; move over in screen addresses

		inx			; done?
		cpx	restore_width
		beq	q_restore_line

		lda	col_size	; no.  loop now for 40 or 80
		bmi	restore_line_lp	; 80.  Goto page 2
		bra	restore_main	; 40.  goto page 1

q_restore_line
		rts


; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
;  inc_dp_temp - Add 1 to dp_temp_1.  Used for moving through
;                a buffer.


inc_dp_temp	mode_16

		inc	dp_temp_1
		bne	q_inc_dp_temp
		inc	dp_temp_1+2

q_inc_dp_temp	mode_8
		rts


; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
;  Shifting Routines -
;
;  Here's how they work.  First, copy the line into line_buffer.
;  Then, adjust line buffer, moving the data which 'survives' and
;  filling the rest with cons_fill characters.  Finally, write
;  the entire buffer back to the screen.
;
;  This routine is called with the absolute shift vector in A, and
;  'minus' 0 for right shift and -1 for left shift.
;

shift_it	short

		jsr	cmp_bnds	; compute left and right bounds

		lda	wnd_top		; start at top
		sta	line_num
		lda	wnd_width	; set width of viewport
		sta	restore_width

shft_it_lp	mode_16
		lda	#<line_buffer	; setup work buffer pointer
		sta	dp_temp_1
		lda	#^line_buffer
		sta	dp_temp_1+2
		mode_8

		ldy	line_num
		jsr	y_bas_calc

		jsr	save_line	; (part of vp save routines)
		jsr	shift_line	; adjust data in the buffer

		mode_16
		lda	#<line_buffer	; reset work buffer pointer
		sta	dp_temp_1
		lda	#^line_buffer
		sta	dp_temp_1+2
		mode_8

		jsr	restore_line	; write it back to the screen

		inc	line_num
		lda	wnd_bottom
		cmp	line_num
		bge	shft_it_lp

		rts

; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
;  SHIFT LINE - Adjust the line data in line_buffer.  If minus,
;               shift left by the amount in shift.  If plus,
;               shift to the right.  Fill the rest of the buffer
;               with cons_fill.

shift_line	short
		lda	minus		; which way?
		bpl	sh_line_rt	; -> right

;  shift to the left.  compute the # of chars to copy and the src offset

		ldx	shift		; source = shift value
		ldy	#0		; dest = leftmost

sh_lft_lp_1
		lda	line_buffer,X	; get characters
		sta	line_buffer,Y
		iny
		inx
		cpx	wnd_width
		bne	sh_lft_lp_1

		ldx	shift		; fill width = shift #
		lda	cons_fill

sh_lft_lp_2
		sta	line_buffer,Y
		iny
		dex
		bne	sh_lft_lp_2

		rts

; SHIFT RIGHT - move bytes from left to right.

sh_line_rt
		lda	wnd_width	; dst = width - 1
		dec	a
		tay
		sec
		sbc	shift		; src = width - 1 - shift
		tax

sh_rt_lp_1
		lda	line_buffer,x
		sta	line_buffer,y
		dey
		dex
		bpl	sh_rt_lp_1

		lda	cons_fill	; finish by clearing the buffer

sh_rt_lp_2
		sta	line_buffer,y
		dey
		bpl	sh_rt_lp_2

		rts

; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
;  tr_8040 - translate 80 column screen onto 40 screen.
;

tr_8040		short
		ldy	#23		; start from bottom
		sty	dp_temp_2
		lda	>txtpage1	; first access will be #19/main

tr_8040_1
		ldy	dp_temp_2	; calculate base address
		jsr	y_bas_calc
		ldx	#39		; start from right edge

tr_8040_2
		txa			; divide col by 2 for 80 index
		lsr	a
		tay
		bcs	tr_8040_3	; (40 col save has tpage1 set)
		lda	>txtpage2	; even col.  use aux mem

tr_8040_3
		lda	[line_base],y	; get char from 80 col screen
		sta	>txtpage1	; save to 40 col screen
		txy			; get 40 col index
		sta	[line_base],y

		dex			; move to right
		bpl	tr_8040_2

		dec	dp_temp_2	; move up one line
		bpl	tr_8040_1

		rts			; done.

; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
;  tr_4080 - translate 40 column screen onto 80 screen.
;

tr_4080		short
		ldy	#23		; start at bottom

tr_4080_1
		sty	dp_temp_2
		jsr	y_bas_calc	; calculate row address
		ldx	#0		; start at left edge

tr_4080_2
		lda	>txtpage1	; read from 40 col
		txy
		lda	[line_base],y
		pha			; save it

		txa			; compute 80 col index
		lsr	a
		tay
		bcs	tr_4080_3
		lda	>txtpage2

tr_4080_3
		pla
		sta	[line_base],y

		inx			; move over
		cpx	#40		; done yet?
		blt	tr_4080_2

		iny			; now clear right half
		lda	cons_fill

tr_4080_4
		sta	>txtpage1
		sta	[line_base],y
		sta	>txtpage2
		sta	[line_base],y

		iny			; loop till right edge
		cpy	#40
		blt	tr_4080_4

		ldy	dp_temp_2	; move up to previous row
		dey
		bpl	tr_4080_1

		rts			; done.


;------------------------------------------------------------------------------

*********************************************************************
*                                                                   *
*  File:  CONS.INPUT                                                *
*                                                                   *
*               U S E R   I N P U T   R O U T I N E                 *
*                                                                   *
*  This is the GS/OS console user input routine.  It implements     *
*  the 'standard' apple // line edit routine.                       *
*                                                                   *
*  Original version written by Lou Infeld, November, 1984           *
*  First IIgs adaptation by Jay Schaffer, March, 1987               *
*  GS/OS version by Andy Stadler, October, 1987                     *
*                                                                   *
*  Copyright (c) 1987 Apple Computer, Inc.                          *
*  All rights reserved.                                             *
*                                                                   *
*********************************************************************
*                                                                   *
*  Calling:     native mode, 16 bit registers                       *
*                                                                   *
*  msg_ptr:     pointer to user's input buffer                      *
*  max_length:  user's request count.  this is the maximum width    *
*               of the input field.                                 *
*  input_info:  input control block containing cursor mode          *
*               defaults, entry type, pad character, etc.           *
*  entry_type:  input mode byte:                                    *
*                 0 = initial entry.  begin a new input             *
*                 1 = interrupt key re-entry.  continues input      *
*                     after an interrupt key was pressed.           *
* Feature Removed 2 = no-wait mode re-entry.  continues input       *
*                     after a no-wait mode exit.                    *
*                                                                   *
*  Exit:        native mode, 16 bit registers                       *
*                                                                   *
*  input_length: final length of user's input                       *
*  exit_type:   0 = no-wait exit                                    *
*               # = terminator/interrupt entry #                    *
*  entry_type:  setup for next call (see above)                     *
*                                                                   *
*********************************************************************


input		long

		jsr	make_term_ptr	; setup terminator list
		jsr	get_term_parms

		mode_8

;  Split here.  No-wait re-entries assume no changes
;  so jump right into the read loop.

		lda	entry_type

;
;  This is either an input start or an interrupt re-start.  The
;  editing field needs to be refreshed.  If new, set up the defaults.
;

		cmp	#1		; interrupt?
		beq	input_2		; yes.

;  Begin a fresh edit session.  Calculate the size of the destination
;  field.  Copy the default string to the input buffer.  And set up
;  the cursor.

		jsr	calc_field
		jsr	copy_def_str
		jsr	copy_curs_mode

;  Now get ready to display the current input string and begin
;  editing it.

input_2
		jsr	fake_controls	; make $0-$1F displayable
		jsr	pad_input	; add fill chars to end of field
		jsr	wr_full_string
		jsr	set_cursor

;		bra	read_loop
;	fall through into read_loop


		eject
;----------------------------------------------------------
;
;  Read loop.
;
;  Loops, reading the keyboard, and interpreting keystrokes
;  and either executing edit commands, or inserting characters
;  into the input string.
;
;  There are two ways to leave the loop.  If no-wait mode is
;  selected, the loop quits anytime no characters are available
;  from the keyboard.  Otherwise we continue until a standard
;  (not interrupt) terminator is typed.
;
;----------------------------------------------------------

read_loop	short
		jsr	next_char	; sets last_char & last_mod
		bcc	read_loop	; nothing to do yet
	
read_loop_1	short
		jsr	check_special	; terminator or edit key?
		bcs	read_loop_2	; a terminator was found.
		cpx	#-1		; already handled?
		beq	read_loop
		cpx	#0		; terminator?
		bne	read_loop_2

		jsr	add_to_str	; X=0 : type key into string
		bra	read_loop

read_loop_2
		lda	last_term+1	; get terminator's mod byte
		and	#$20		; to find out which type.
		beq	q_read_loop	; real.  exit with A=0

		lda	#1		; interrupt.  restart with 1.

q_read_loop
		stx	exit_type	; save terminator #
		sta	entry_type	; prepare for next entry
		jsr	rmv_cursor	; remove cursor from screen
		jsr	fix_controls	; control chars -> true values

		mode_16			; exit in 16 bits
		rts



		eject
;----------------------------------------------------------
;
;               Input Subroutines
;
;----------------------------------------------------------


;----------------------------------------------------------
;
;  fake_controls
;  fix_controls
;
;  Internally, I represent control characters in the input
;  string by shifting them into the 'special inverse' region.
;  This means I must pre-process the input string on entry
;  and fix it up on exit.
;
;----------------------------------------------------------

fake_controls	short
		ldy	input_length
		beq	q_fake_controls

fake_ctrl_lp
		dey
		lda	[input_str],y
		cmp	#$20		; control?
		bge	nx_fake_ctrl

		ora	#$80		; $00-$1F -> $80-$9F
		sta	[input_str],y

nx_fake_ctrl
		tyx
		bne	fake_ctrl_lp

q_fake_controls
		rts


fix_controls	short
		ldy	input_length
		beq	q_fix_controls

fix_ctrl_lp
		dey
		lda	[input_str],y
		cmp	#$9F		; control?
		bge	nx_fix_ctrl
		cmp	#$80
		blt	nx_fix_ctrl

		and	#$7F		; $80-$9F -> $00-$1F
		sta	[input_str],y

nx_fix_ctrl
		tyx
		bne	fix_ctrl_lp

q_fix_controls
		rts


		eject
;----------------------------------------------------------
;
;  calc_field
;
;  Records the maximum input field, based on the cursor
;  starting position and the size of the window ;  user
;  input request count ;  and the driver max of 254.
;
;  The formula for the amount of screen to work with is:
;
;  [ (wnd_width) * (wnd_bot - cv + 1) ] - origin_x
;
;                (proof left to reader)
;
;  In addition, calculates origin_x and saves it for later.
;
;----------------------------------------------------------

calc_field	short
		lda	ch		; record start position
		sta	origin_h
		sec
		sbc	wnd_left
		sta	origin_x	; 16 bit quantity, always <255
		stz	origin_x+1
		lda	cv
		sta	origin_v

		lda	wnd_bottom	; setup index for cheap multiply
		sec
		sbc	cv
		inc	a
		tax

		mode_16
		lda	wnd_width
		and	#$00FF
		sta	dp_temp_1
		lda	#0

calc_fld_lp
		clc
		adc	dp_temp_1
		dex
		bne	calc_fld_lp

		sec
		sbc	origin_x

;  Now calculate input_field by the following equation:
;
;  input_field = MIN (max_length, field_length-2, 254)

		dec	a		; field_length in A
		cmp	#255
		blt	calc_field_1
		lda	#254		; field much bigger than we need

calc_field_1	mode_8
		ldx	cons_scroll	; allow scrolling?
		bne	@do_scroll	; yes...
		cmp	max_length	; how about user request
		blt	calc_field_2	; field is too small
@do_scroll
		lda	max_length	; usually use user's request

calc_field_2	sta	input_field

		rts

		eject
;----------------------------------------------------------
;
;  copy_def_str - Starting a new input.  Copy the default
;                 string into the user buffer.  Use a length
;                 of MIN (def_len, input_field)
;
;----------------------------------------------------------

copy_def_str	short
		lda	def_str_len	; always <255
		beq	copy_def_1
		cmp	input_field
		blt	copy_def_1	; take the smaller of the two
		lda	input_field

copy_def_1
		sta	input_length
		beq	q_copy_def	; quit here if no def string
		pha

		mode_16
		jsr	make_def_ptr
		mode_8

		ply

copy_def_lp
		dey
		lda	[def_str_ptr],y
		sta	[input_str],y
		tyx
		bne	copy_def_lp

q_copy_def
		rts			; exit 8-bit


		eject
;----------------------------------------------------------
;
;  pad_input    - from the end of the string to the end of
;                 the field, pad the input buffer with
;                 fill characters (fill_char)
;
;----------------------------------------------------------

pad_input	short
		ldy	input_length
		lda	fill_char

pad_input_lp
		cpy	input_field
		beq	q_pad_input

		sta	[input_str],y
		iny
		bra	pad_input_lp

q_pad_input
		rts


		eject
;----------------------------------------------------------
;
;  copy_curs_mode - copies def_cursor into cursor_mode.  Then,
;                   based on (1) size of string and (2) cursor
;                   mode, choose a 0..n position for it.
;
;-----------------------------------------------------------

copy_curs_mode	short
		lda	def_cursor
		sta	cursor_mode

		stz	cursor_pos	; assume start of string
		bmi	copy_curs_1
		lda	input_length	; but if mode indicates,
		sta	cursor_pos	; put it at the end.

copy_curs_1
		lda	#-1		; initialize cursor
		sta	flash_flag
		rts

		eject
;----------------------------------------------------------
;
;  set_cursor
;
;  First, remove the cursor (if displayed) from the screen.
;  Then, based on origin_h, origin_v, and cursor_pos, move
;  the cursor (ch, cv) to the correct screen position.
;
;  ch = wnd_left + [(cursor_pos + origin_x) MOD wnd_width]
;  cv = origin_v + [(cursor_pos + origin_x) DIV wnd_width]
;
;  Finally, if we have moved to cursor_pos == input_field,
;  which is actually 1 beyond the field, record the character
;  underneath the cursor.  This way we can non-destructively
;  blink outside of our given workspace.
;
;-----------------------------------------------------------

set_cursor	short
		jsr	rmv_cursor	; take it away and re-initialize

		mode_16
		lda	wnd_width	; make 16 bit version of w_w
		and	#$00FF
		sta	dp_temp_2

		lda	cursor_pos	; add an 8 bit qty
		and	#$00FF
		clc
		adc	origin_x	; to a 16 bit qty

		stz	dp_temp_1	; count DIV here

set_cursor_lp
		cmp	dp_temp_2
		blt	set_cursor_1

		sbc	dp_temp_2	; carry's already set
		inc	dp_temp_1
		bra	set_cursor_lp

set_cursor_1	mode_8
		clc
		adc	wnd_left
		sta	ch

		lda	dp_temp_1
		clc
		adc	origin_v
		sta	cv
		jsr	cv_bas_calc

;  record screen char if at end of field

		lda	cursor_pos
		cmp	input_field
		bne	q_set_cursor

		sta	>txtpage1
		lda	ch
		bit	col_size	; screen mode?
		bpl	set_cursor_2	; 40.

		lsr	a		; 80.  choose even or odd
		bcs	set_cursor_2
		sta	>txtpage2	; even

set_cursor_2
		tay
		lda	[cur_base],y
		sta	bord_char
		sta	>txtpage1

q_set_cursor
		rts


		eject
;----------------------------------------------------------
;
;  rmv_cursor
;
;  If the cursor is currently displayed (flash_flag = +1)
;  remove it from the screen.  Then reset the cursor to
;  non-initialized state (flash_flag = -1).
;
;----------------------------------------------------------

rmv_cursor	short
		dec	flash_flag	; showing cursor?
		bne	rmv_curs_1	; if <> 1, not showing

		jsr	draw_char	; erase the cursor.

rmv_curs_1
		lda	#-1
		sta	flash_flag
		rts


		eject
;----------------------------------------------------------
;
;  init_curs_tim
;
;  This installs a VBL task which will be the cursor timer.
;  At installation time the timer is disabled, but later the
;  timer will be activated each time a cursor phase is
;  begun.
;
;  Output:  C = installation status
;
;----------------------------------------------------------

init_curs_tim	long
		stz	curs_int_cnt	; don't start yet!

		pea	curs_tim_hdr>>16
		pea	curs_tim_hdr
		ldx	#$1203
		jsl	$E10000		; SetHeartBeat toolbox call
		bcs	q_init_vbl	; something's awry

		pea	$0002		; vbl ON
		ldx	#$2303
		jsl	$E10000		; IntSource toolbox call

q_init_vbl	rts


;----------------------------------------------------------
;
;  rmv_curs_time
;
;  Remove the cursor interrupt timer.
;
;----------------------------------------------------------

rmv_curs_time	long
		pea	curs_tim_hdr>>16
		pea	curs_tim_hdr
		ldx	#$1303
		jsl	$E10000		; DelHeartBeat toolbox call
		rts


		eject
;----------------------------------------------------------
;
;  This is the cursor interrupt handler.  It works like
;  this:  If you want to get a message sometime later,
;  put the number of ticks into curs_int_cnt.  That many
;  ticks later, curs_int_flag will be incremented.
;
;----------------------------------------------------------

curs_tim_hdr	short
		DS.B	4		; space for interrupt chain
curs_int_cnt	DS.B	2		; interrupt count
		DC.B	$5A,$A5		; goofy signature

		phk			; this is the handler
		plb
		stz	curs_int_cnt
		stz	curs_int_cnt+1
		inc	curs_int_flag

		rtl

		eject
;----------------------------------------------------------
;
;  blink
;
;  This handles blinking the cursor.  The key player here is
;  'flash_flag' which has three values:
;
;  -1 = cursor not displayed, timer not running
;   0 = cursor displayed, timer running
;  +1 = character displayed, timer running
;
;  If curs_int_flag becomes non-zero, it's time for the cursor
;  to change state.  This is done by drawing the new cursor and
;  resetting the cursor timer.
;
;----------------------------------------------------------

blink		short
		lda	flash_flag	; cursor initialized?
		bpl	blink_run	; yes.  keep running.

;  Time to initialize the cursor.  We always initialize to
;  'display cursor' mode.  This keeps the cursor on the screen
;  during cursor movement, etc.

		lda	#1		; 'cursor on'
		sta	flash_flag

		jsr	set_curs_time	; reset the timer
		brl	draw_cursor	; (rts) show the cursor

;  Cursor is currently displayed.  If time for a new one,
;  invert state and redraw.

blink_run
		lda	curs_int_flag	; timed out yet?
		bne	blink_1		; yes...

		rts			; no.  done.

;  ok.  time for a new cursor

blink_1
		lda	flash_flag
		eor	#1
		and	#1
		sta	flash_flag

		jsr	set_curs_time	; reset the timer

		lda	flash_flag
		beq	blink_off	; go for character display

		jsr	draw_cursor	; now its curs time
		brl	new_curs_rate

blink_off
		jsr	draw_char	; now its char time
		brl	new_curs_rate

		eject
;----------------------------------------------------------
;
;  set_curs_time
;
;  Based on (1) cursor state, (2) insert mode, and (3) control
;  panel cursor flash rate ; pick a new time constant for the
;  cursor speed.
;
;  The basic cursor flash rates (normal speed) are:
;
;                 Insert mode        Overstrike mode
;  Cursor      :    15 ticks             30 ticks
;  Character   :    30 ticks             15 ticks
;
;  Where 'ticks' are 1/60 of a second intervals signalled by
;  VBL interrupts.
;
;----------------------------------------------------------

set_curs_time	short
		stz	curs_int_flag
		stz	curs_int_cnt+1	; (always <= 255)

		lda	flash_flag	; compute cursor state
		eor	cursor_mode
		and	#1
		beq	set_curs_long

;  set for short flash time.

		lda	cursor_rate
		sta	curs_int_cnt
		rts

;  set for long flash time

set_curs_long
		lda	cursor_rate
		asl	a
		sta	curs_int_cnt
		rts

		eject
;----------------------------------------------------------
;
;  new_curs_rate
;
;  Lookup the current cursor speed # from the battery RAM.
;  From this number [0..4] pick a time constant from a table,
;  which is the number of ticks duration for a short flash.
;
;----------------------------------------------------------

curs_time_tb	DC.B	22,18,15,11,8

new_curs_rate	mode_16			; (call in 8 mode)
		pha			; get flash rate from pRam
		pea	$002F
		ldx	#$0C03
		jsl	$E10000
		plx
		mode_8
		bcs	set_ctime_1	; something wrong...  take default

		lda	curs_time_tb,X	; get flash tick time
		bra	set_ctime_2

set_ctime_1
		lda	curs_time_tb+2	; error.  use the default rate

set_ctime_2
		sta	cursor_rate
		rts

		eject
;----------------------------------------------------------
;
;  draw_cursor
;
;  Draw the cursor....
;
;----------------------------------------------------------

draw_cursor	short
		stz	cons_advance	; stay put!
		lda	cursor_mode	; which type?
		ror	a
		bcc	draw_ins_curs	; insert cursor.

;  overstrike cursor.  set inverse display mode and print
;  the actual character, unless we are past the end of the
;  string, where we print the reverse of the fill_char.
;  That is, unless the fill_char is MouseText, in which case
;  no inverse exists, thus we default in that case to a simple
;  inverse space.  Is this exciting or what?  But wait, there's
;  more.  If we are beyond the very very end of the field,
;  we also print this simple inverse space.  Now how much would
;  you pay?

		lda	cons_video	; set inverse of current mode
		pha
		eor	#$80
		and	#$80
		sta	cons_video

		lda	fill_char	; assume past end
		cmp	#$C0		; mouse text?
		blt	draw_curs_1	; no
		cmp	#$E0		; mouse text?
		bge	draw_curs_1

		lda	#$20		; mouse fill chars become space

draw_curs_1
		ldy	cursor_pos	; where are we?
		cpy	input_field	; at very very end?
		bne	draw_curs_2
		lda	#$20		; yes. draw inv. space
		bra	draw_curs_past
draw_curs_2
		cpy	input_length	; in filler space?
		bge	draw_curs_past	; yes.  a = fill_char

		lda	[input_str],y	; within string - take a char

draw_curs_past
		jsr	char_out	; draw it!

		pla			; restore video mode
		sta	cons_video
		bra	q_draw_curs

;  draw an insert cursor.  this is easy, just print a '_'.

draw_ins_curs
		lda	#'_'		
		jsr	char_out

q_draw_curs
		lda	#$80		; restore cursor advance
		sta	cons_advance
		rts


		eject
;----------------------------------------------------------
;
;  Draw_char
;
;  Draw the character underneath the cursor position,
;  or fill_char if in the padded area, or bord_char if
;  outside of the input field.
;
;----------------------------------------------------------

draw_char	short
		ldy	cursor_pos
		cpy	input_field	; very worstest case?
		beq	draw_char_2
		lda	fill_char	; assume the next most worst
		cpy	input_length
		bge	draw_char_1
		lda	[input_str],y	; its only the somewhat disagreeable

draw_char_1
		stz	cons_advance	; freeze position
		jsr	char_out	; print the sucker
		lda	#$80		; release cursor
		sta	cons_advance
		rts

draw_char_2
		sta	>txtpage1	; we must write directly to screen
		lda	ch
		bit	col_size	; screen mode?
		bpl	draw_char_3	; 40.

		lsr	a		; 80.  choose even or odd
		bcs	draw_char_3
		sta	>txtpage2	; even

draw_char_3
		tay
		lda	bord_char
		sta	[cur_base],y
		sta	>txtpage1
		rts

		eject
;----------------------------------------------------------
;
;  wr_full_string - output the entire string.
;
;  wr_part_string - output the string from cursor_pos right.
;
;----------------------------------------------------------

wr_full_string	short
		lda	origin_h
		sta	ch
		lda	origin_v
		sta	cv
		jsr	cv_bas_calc
		lda	#0
		bra	write_string

wr_part_string	short
		jsr	set_cursor
		lda	cursor_pos

write_string	short
		pha			; save starting point
		lda	input_field	; calculate # bytes to print
		ldx	fill_char	; check the fill character
		cpx	#$20		; is it a space?
		bne	@not_space	; no, continue as before
		lda	input_length	; else print only the valid contents
@not_space
		sec
		sbc	1,s
		sta	msg_len		; always <= 255
		stz	msg_len+1
		pla

		mode_16
		stz	msg_len+2	; finish above job!

		and	#$00FF		; calc start offset into string
		clc
		adc	input_str
		sta	msg_ptr
		lda	input_str+2
		adc	#0
		sta	msg_ptr+2

		mode_8
		brl	console		; (rts)  print the sucker!


		eject
;----------------------------------------------------------
;
;  add_to_str
;
;  Add the character at last_char into the string.  Either
;  insert it or replace the current character (depending on
;  the current cursor mode).  If we are going off the end,
;  call the beeper.
;
;----------------------------------------------------------

add_to_str	short
		ldy	cursor_pos	; where are we?
		cpy	input_field
		bne	add_to_str_1	; add or insert

		lda	beep_flag	; enabled?
		beq	@no_beep	; no, skip it
		mode_16			; go to 16-bit mode
		pea	$000A		; code for Input Field Full
		ldx	#$3803		; SysBeep2
		jsl	$E10000
		mode_8
		bcc	@no_beep	; if no error, we're done
		pla			; else remove parameter
		pla			; (compatibility w/5.0.x)
@no_beep
		rts
		

add_to_str_1
		lda	cursor_mode	; which mode?
		ror	a
		bcs	add_overstrike	; (with y=cursor_pos)

;  insert cursor is active.  right shift
;  the string from cursor to end

		ldy	input_field	; shift the string over!
		cpy	input_length	; (grow if not full already)
		beq	add_to_lp
		inc	input_length

add_to_lp
		dey			;  (y=input_field)
		cpy	cursor_pos	; done yet?
		beq	add_common	;  (with y = cursor_pos)

		dey			; shift 1 char right
		lda	[input_str],y
		iny
		sta	[input_str],y

		bra	add_to_lp

;  overstrike.  The only trick here is to lengthen the string
;  _only if_ we are at the end.

add_overstrike	short
		lda	input_length	; have we lengthened the string?
		cmp	cursor_pos
		bne	add_common
		inc	input_length	; yes

;  now stick the new character in at the cursor position,
;  display it, and reposition the cursor.

add_common
		lda	last_char	; store character
		sta	[input_str],y

; update direct page transfer_count variable.  No need to update the high word, 'cause
; it'll never change (UIR is limited to 254 characters)

		ldy	#drvr_tran_cnt
		lda	input_length
		sta	[drvr_parm_ptr],y

		jsr	rmv_cursor
		jsr	wr_part_string	; update string
		inc	cursor_pos	; move up
		brl	set_cursor	; (rts)


		eject
;----------------------------------------------------------
;
;  next_char
;
;  Checks for keypress and flashes the cursor.
;
;  Output:  C           clear = no key, C set = key pressed
;           last_char   0 if no key, ascii if key
;           last_mod    0 if no key, modifier bits if key
;
;----------------------------------------------------------

next_char	short
		jsr	read_key	; keypress?
		bcs	next_char_1

		stz	last_char
		stz	last_mod
		jsr	blink
		clc
		rts

next_char_1
		sta	last_char
		stx	last_mod
		sec
		rts


		eject
;----------------------------------------------------------
;
;  read_key
;
;  Attempts to read a key from the keyboard.  If the event
;  manager is active, use it.  Otherwise read the hardware
;  directly.
;
;  Outputs:  C = set if key pressed, clear if no key
;            A = ascii code of key (0-127)
;            X = keypress modifiers
;
;----------------------------------------------------------

read_key	mode_16			; called from 8 bit mode
		pea	$0000		; check event mgr
		_EMStatus
		pla
		bne	em_active

;  Read directly from keyboard.

		mode_8
		lda	>kbd		; anything?
		bpl	no_key

		and	#$7F		; got one.
		pha
		lda	>keymodreg	; get the modifiers
		and	#$D7		; remove b3 and b5
		tax
		lda	>kbdstrb	; clear strobe
		pla			; get keypress again
		bra	xit_with_key

;  No key pressed

no_key
		clc
		rts

;  Key pressed

xit_with_key
		sec
		rts

;  Read key from event manager

em_active
		Long
		pea	$0000		; result space
		lda	#$0428		; key-down, autokey, DA
		pha
		lda	#^evt_record
		pha
		lda	#<evt_record
		pha
		_getnextevent
		pla

		mode_8
		beq	no_key

;  Got one!  Now re-translate the modifiers from event mgr format
;  to the same format as output by the hardware.
;
;     EM:  xx xx KP CT OP CL SH AP B0 B1 xx xx xx xx xx xx
;  $C025:                          AP OP 00 KP 00 CL CT SH

		lda	evt_modifiers+1
		sta	dp_temp_1

		lda	#0		; build new word in A
		asl	dp_temp_1	; throw out 1st 2 bits
		asl	dp_temp_1
		bpl	em_act_1	; testing KP bit
		ora	#%00010000
em_act_1
		asl	dp_temp_1
		bpl	em_act_2	; testing CT bit
		ora	#%00000010
em_act_2
		asl	dp_temp_1
		bpl	em_act_3	; testing OP bit
		ora	#%01000000
em_act_3
		asl	dp_temp_1
		bpl	em_act_4	; testing CL bit
		ora	#%00000100
em_act_4
		asl	dp_temp_1
		bpl	em_act_5	; testing SH bit
		ora	#%00000001
em_act_5
		asl	dp_temp_1
		bpl	em_act_6	; testing AP bit
		ora	#%10000000

em_act_6
		tax			; modifiers in X
		lda	evt_message	; keypress in A
		sec
		rts

		eject
;----------------------------------------------------------
;
;  check_special
;
;  Check for special keypresses.  First, check for terminator
;  hits (so terminators can override standard edit keys).
;  Then, check the built-in table of editing keys.  Finally,
;  if we still have a control character, it is invalid and
;  we beep.  If a key is entered as 'control-open-apple-char'
;  then we convert it to our internal control char representation
;  ($80-$9F) and pass it as a normal keystroke.
;
;  in:   last_key = ascii of current keypress
;        last_mod = modifier bits
;
;  out:  X  = -1 : key already processed internally
;           =  0 : not special.  add to the string.
;           >  0 : terminator #.
;	c set = X = termintor #
;
;----------------------------------------------------------

check_special	short
		nop
		jsr	rmv_cursor	; clear the cursor

		lda	last_mod	; build combined input word
		xba
		lda	last_char

		mode_16
		pha

		lda	term_count	; any terminators?
		beq	try_specials

;  Okay, we need to scan the terminator list.

		dec	a		; convert count to word index
		asl	a
		tay

		lda	1,s		; apply the terminator mask
		and	term_mask
		pha

scan_term_lp
		lda	[term_ptr],y
		and	#$DFFF		; remove interrupt bit
		cmp	1,s		; match?
		beq	found_term
		dey			; move to next
		dey
		bpl	scan_term_lp

;  terminator not found.  clean up and go to special char check

		pla			; dump work value...
		bra	try_specials

;  found a terminator!  save the terminator, and return its index
;  number in X.

found_term
		pla			; clean up stack
		pla
		lda	[term_ptr],y	; get it again
		sta	last_term
		tya			; convert to terminator #
		lsr	a
		inc	a
		tax
		sec			; indicate that we have found a terminator
		mode_8
		rts

;  no terminators encountered.  Try for an editing key.

try_specials	long
		lda	1,s		; get key+mod again
		and	#$D2FF		; we ignore caplock, shift, keypad
		ldx	#edit_tb_len-2	; tables index

spec_scan_lp
		cmp	edit_ch_codes,X
		beq	found_edit
		dex
		dex
		bpl	spec_scan_lp
		bra	no_edit_found

found_edit	pla
		mode_8			; NOTE - max 127 edit chars!
		jsr	(edit_ch_jumps,X)

		ldx	#-1		; signal: already completed
		clc		
		rts

;  No editing keys were found.  There is one more alternative.
;  If open-apple and control are simultaneous, the user is
;  entering a control char.

no_edit_found	long
		lda	1,s		; first some special cases
		and	#$C0FF		; checking apple keys only
		cmp	#$8009		; special case OA-tab
		beq	ins_control
		cmp	#$801B		; special case OA-esc
		beq	ins_control

		and	#$4000		; check CA key
		bne	spec_ch_beep	; pressed.  beep.

		lda	1,s
		and	#$8200		; look for OA+CTRL
		beq	ins_normal	; neither.  regular kind o' guy
		cmp	#$8200
		bne	spec_ch_beep	; one or other.  error.

ins_control
		lda	1,s		; final check - really a control ch?
		and	#$00FF
		cmp	#$20
		bge	spec_ch_beep	; no.  beep!

		bit	cursor_mode-1	; final check- ctrl entry allowed? (minus 1 for byte)
		bvc	spec_ch_beep

		pla			; convert to 'my' representation
		ora	#$0080		; from $00-$1F to $80-$9F

		mode_8
		sta	last_char	; new insertion char
		ldx	#0
		clc
		rts

ins_normal	long
		pla
		mode_8
		cmp	#$20		; final check:  control char?
		blt	spec_ch_beep_2
		ldx	#0
		clc
		rts

spec_ch_beep	long
		pla
spec_ch_beep_2	mode_8
		jsr	input_beep
		ldx	#-1
		clc
		rts


		eject
;----------------------------------------------------------
;
;  input_beep
;
;  if the edit beep is enabled, call the console beep
;  output routine.
;
;----------------------------------------------------------

input_beep	short
		lda	beep_flag	; enabled?
		beq	q_input_beep
		mode_16
		pea	$0008		; code for Bad Keypress
		ldx	#$3803		; SysBeep2
		jsl	$E10000
		mode_8
		bcc	q_input_beep	; if no error, exit
		pla			; else remove input parameter
		pla			; (compatibility w/pre-6.0 system)
q_input_beep
		rts


		eject
;----------------------------------------------------------
;
;  Editing character tables.  The first is word-combinations
;  of editing keystrokes with their modifiers.
;
;  In all cases, only the following subset of mod bits is
;  used:
;
;  bit 7 : open apple                   { all other
;  bit 6 : closed apple (option)          bits are 0 }
;  bit 4 : keypad
;  bit 1 : control
;
;----------------------------------------------------------

edit_ch_codes
		DC.W	$0008		; left arrow
		DC.W	$0208		; control H

		DC.W	$0015		; right arrow
		DC.W	$0215		; control U

		DC.W	$8008		; apple left arrow

		DC.W	$8015		; apple right arrow

		DC.W	$803E		; apple >
		DC.W	$802E		; apple dot

		DC.W	$803C		; apple <
		DC.W	$802C		; apple comma

		DC.W	$007F		; delete
		DC.W	$027F		; control delete
		DC.W	$807F		; apple delete
		DC.W	$0204		; control D
		DC.W	$8044		; apple D
		DC.W	$8064		; apple d

		DC.W	$0206		; control F
		DC.W	$8046		; apple F
		DC.W	$8066		; apple f

		DC.W	$0218		; control X
		DC.W	$1018		; clear key
		DC.W	$8058		; apple X
		DC.W	$8078		; apple x

		DC.W	$0219		; control Y
		DC.W	$8059		; apple Y
		DC.W	$8079		; apple y

		DC.W	$021A		; control Z
		DC.W	$805A		; apple Z
		DC.W	$807A		; apple z

		DC.W	$0205		; control E
		DC.W	$8045		; apple E
		DC.W	$8065		; apple e

edit_tb_len	equ	*-edit_ch_codes


edit_ch_jumps
		DC.W	ed_left_char
		DC.W	ed_left_char

		DC.W	ed_right_char
		DC.W	ed_right_char

		DC.W	ed_left_word

		DC.W	ed_rt_word

		DC.W	ed_right_end
		DC.W	ed_right_end

		DC.W	ed_left_end
		DC.W	ed_left_end

		DC.W	ed_del_left
		DC.W	ed_del_left
		DC.W	ed_del_left
		DC.W	ed_del_left
		DC.W	ed_del_left
		DC.W	ed_del_left

		DC.W	ed_del_right
		DC.W	ed_del_right
		DC.W	ed_del_right

		DC.W	ed_clear
		DC.W	ed_clear
		DC.W	ed_clear
		DC.W	ed_clear

		DC.W	ed_clr_eol
		DC.W	ed_clr_eol
		DC.W	ed_clr_eol

		DC.W	ed_restart
		DC.W	ed_restart
		DC.W	ed_restart

		DC.W	ed_toggle
		DC.W	ed_toggle
		DC.W	ed_toggle


		eject
;----------------------------------------------------------
;
;  editing subroutines.  Each performs a keystroke
;  function on the input string.
;
;----------------------------------------------------------


;----------------------------------------------------------
;
;  ed_left_char  -  like, backspace, dude!
;

ed_left_char	short
		lda	cursor_pos	; at left already?
		bne	ed_left_ch_1

		brl	input_beep	; can't move no more!

ed_left_ch_1
		dec	cursor_pos
		brl	set_cursor	; (rts)


;----------------------------------------------------------
;
;  ed_right_char  -  you know, move FORWARD man!
;

ed_right_char	short
		lda	cursor_pos	; at end already?
		cmp	input_length
		bne	ed_rt_ch_1

		brl	input_beep	; sorry, sir, maximum warp

ed_rt_ch_1
		inc	cursor_pos
		brl	set_cursor	; (rts)


;----------------------------------------------------------
;
;  ed_left_word  -  okay, the definition of a word is kinda
;                   tricky:  (from UI guidelines....)
;
;  "A word is defined as any continuous string that contains
;   only the following characters:
;
;  -  a letter or a digit
;  -  a dollar sign or percent sign or hyphen
;  -  a comma between digits
;  -  a period before a digit
;  -  an apostrophe between letters or digits "
;
;  However, examination of popular Apple II software (ie
;  Appleworks) shows these rules to be largely ignored, so
;  we will too!  From here on out the definition of a word
;  is 'a sequence of characters bordered by spaces'.
;
;  So what we do is to scan from our current position left,
;  keeping track of our current state (in or out) and looking
;  for a transition from in to out.  When the next motion
;  would cause such a transition, we stop.
;

ed_left_word	short
		ldy	cursor_pos	; already at start?
		bne	ed_lf_wd_1

		brl	input_beep	; at start.  beep!

ed_lf_wd_1
		dey			; move back at least one
		jsr	word_state

ed_lf_lp
		dey			; test previous loc
		cpy	#255		; off edge yet?
		beq	ed_lf_wd_2
		jsr	word_state
		bcc	ed_lf_lp	; loop until word exit

ed_lf_wd_2
		iny			; ok!  we're here!
		sty	cursor_pos
		brl	set_cursor


;----------------------------------------------------------
;
;  ed_rt_word  -  an identical twin to the routine above.
;                 except that this routine is black on the
;                 left side, and the one above is black on
;                 the right side.  can't you see it?
;

ed_rt_word	short
		ldy	cursor_pos	; already at start?
		cpy	input_length
		bne	ed_rt_wd_1

		brl	input_beep	; at start.  beep!

ed_rt_wd_1
		iny			; move up at least one
		jsr	word_state

ed_rt_lp
		iny			; test next loc
		jsr	word_state
		bcc	ed_rt_lp

		dey			; ok!  we're here!
		sty	cursor_pos
		brl	set_cursor


;----------------------------------------------------------
;
;  word_state
;
;  this is the guts of the word move routine.  it examines
;  a particular character in the input string and determines
;  whether it's 'in a word' (see above for extremely arbi-
;  trary definition of 'word').  It maintains this information
;  in a state byte called 'wd_state_flag' into which bits
;  are rolled from the lsb end.  '0' means the current
;  character is an 'innie' and '1' means it's an 'outie.'
;  thusly one can examine the rightmost 2 bits of the flag
;  and look for transitions!
;
;  And isn't that special!
;
;  In:  Y = character index
;
;  Out: C set         = transition found, or out of bounds
;       C clear       = no transition found
;       wd_state_flag = history of states
;
;----------------------------------------------------------

word_state	short
		cpy	#255		; moved back too far?
		beq	word_state_xx
		cpy	input_length	; moved forward too far?
		beq	word_state_yy	; special case if outside
		bge	word_state_xx	; (bgt word_state_xx)

word_state_1
		lda	[input_str],y	; ok, what do we have here?
		cmp	#' '		
		php			; get Z flag, 1 if space
		pla
		lsr	a		; and roll it to the C
		lsr	a
word_state_2
		rol	wd_state_flag	; and roll it into the state reg

		lda	wd_state_flag
		and	#3		; now, have we left a word?
		cmp	#1		; 0, 1  means  in, out
		beq	word_state_out

		clc			; report no transition
		rts


word_state_xx
		sec			; out of word.  force 'out'
		rol	wd_state_flag	; _and_ report 'out'

word_state_out
		sec			; report exit transition
		rts

word_state_yy
		sec
		bra	word_state_2

;----------------------------------------------------------
;
;  ed_left_end
;

ed_left_end	short
		lda	cursor_pos
		bne	ed_left_end_1
		brl	input_beep	; (rts)

ed_left_end_1
		stz	cursor_pos
		brl	set_cursor	; (rts)


;----------------------------------------------------------
;
;  ed_right_end
;

ed_right_end	short
		lda	input_length
		cmp	cursor_pos
		bne	ed_rt_end_1
		brl	input_beep	; (rts)

ed_rt_end_1
		sta	cursor_pos
		brl	set_cursor	; (rts)


;----------------------------------------------------------
;
;  ed_del_left
;
;  Delete the character one position to the left.  And move
;  the cursor there.  This is the delete key.
;

ed_del_left	short
		ldy	cursor_pos	; at left edge already?
		bne	ed_d_lf_1
		brl	input_beep	; (rts)

ed_d_lf_1
		dey			; deleting previous char
		sty	cursor_pos	; and put cursor there
		brl	do_delete	; (rts) finish the process


;----------------------------------------------------------
;
;  ed_del_right
;

ed_del_right	short
		ldy	cursor_pos	; anything under the cursor?
		cpy	input_length
		bne	do_delete	; (rts)
		brl	input_beep	; (rts)


;----------------------------------------------------------
;
;  do_delete.
;
;  Shift right from 'Y' to the end of the input string, then
;  set the new cursor position and redraw the string.
;

do_delete	short
		iny			; copy next char
		cpy	input_field	; at end yet?
		beq	do_del_1

		lda	[input_str],y
		dey
		sta	[input_str],y

		iny			; and keep going
		bra	do_delete

do_del_1
		dey
		lda	fill_char	; bring in empty space char
		sta	[input_str],y

		jsr	wr_part_string
		dec	input_length	; shrink a say!
		brl	set_cursor	; (rts)


;----------------------------------------------------------
;
;  ed_clear  -   zapola!
;

ed_clear	short
		ldy	input_field
		lda	fill_char

ed_clr_lp
		dey
		sta	[input_str],y
		bne	ed_clr_lp

		lda	origin_h	; restore starting cursor position
		sta	ch
		lda	origin_v
		sta	cv
		jsr	cv_bas_calc
		lda	input_length	; get the length of the original input
		sta	dle_count	; set as # of spaces to write
		jsr	comp_dle_1	; go write some spaces
		
		stz	input_length
		stz	cursor_pos
		jsr	wr_full_string
		brl	set_cursor	; (rts)


;----------------------------------------------------------
;
;  ed_clr_eol
;

ed_clr_eol	short
		lda	input_length
		sec
		sbc	cursor_pos	; calc # of characters to clear
		sta	dle_count
		jsr	comp_dle_1	; blast to end of input
		jsr	set_cursor	; reset cursor position

		ldy	cursor_pos
		sty	input_length
		lda	fill_char

ed_clreol_lp
		cpy	input_field
		beq	ed_clreol_1

		sta	[input_str],y
		iny
		bra	ed_clreol_lp

ed_clreol_1
		jsr	wr_part_string
		brl	set_cursor	; (rts)


;----------------------------------------------------------
;
;  ed_restart  -  return to default input
;

ed_restart	short
		lda	input_length	; remember current input length
		pha
		jsr	copy_def_str	; get the default string
		jsr	copy_curs_mode	; reset cursor
		jsr	fake_controls	; diddle with control chars
		jsr	pad_input	; insert fill_char's
		pla			; retrieve original string length
		ldx	input_length	; get the new length
		phx			; save it
		cmp	input_length	; which is longer, the old or the new?
		bcc	@new_longer	; the new one is, so use that length
		sta	input_length	; reset to original length for proper screen update
@new_longer
		jsr	wr_full_string	; print it!
		pla			; restore new string length
		sta	input_length
		brl	set_cursor	; (rts)


;----------------------------------------------------------
;
;  ed_toggle - switch between insert & overstrike modes
;

ed_toggle	short
		lda	cursor_mode
		eor	#1		; toggle the bit!
		sta	cursor_mode
		rts

		ENDP
		END			; anything?
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/Console.Driver/Direct.Page.aii b/IIGS.601.SRC/GS.OS/Drivers/Console.Driver/Direct.Page.aii
new file mode 100644
index 0000000..1b9ed19
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/Console.Driver/Direct.Page.aii
@@ -0,0 +1 @@
+
; The following record defines the direct page used by the Console Driver.
; It allocates the direct page starting at the top of the page and builds
; down as variables are added.

	if Library=1 then		;conditional assembly for library version
direct_page	record	0
	else
direct_page	record	$100,decrement
	endif
cur_base	ds.l	1		; (ptr)   Cursor's base address
line_base	ds.l	1		; (ptr)   Work base address
msg_ptr		ds.l	1		; (ptr)   buffer pointer
src_line	ds.l	1		; (ptr)   Source line
dst_line	ds.l	1		; (ptr)   Destination line
dp_temp_1	ds.l	1		; (ptr)   Temporary storage
dp_temp_2	ds.w	1		; (word)
drvr_parm_ptr	ds.l	1		; (ptr)   Points to GS/OS DP
input_str	ds.l	1		; (ptr)   Input String address
term_ptr	ds.l	1		; (ptr)   To my terminator list
def_str_ptr	ds.l	1		; (long)  pointer to default string
size
		endr

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/Console.Driver/New.DRI.Patch b/IIGS.601.SRC/GS.OS/Drivers/Console.Driver/New.DRI.Patch
new file mode 100644
index 0000000..3803261
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/Console.Driver/New.DRI.Patch
@@ -0,0 +1 @@
+
		string	asis
		blanks	off
		print	off
		include	'common.equ.src'
		print	on

Library		equ	0			;don't build library version of the direct page

		include	'Direct.Page.aii'
		
;==========================================================
;
;  file cons.dri.patch
;
;  This file must be linked in if we are building the
;  GS/OS driver version of the console driver.
;
;  There is a similar file which is used for the library.
;
;  Author:      Andy Stadler
;  Created:     09-Feb-88
;  Modified:    See modification history below.
;
;  Copyright Apple Computer, Inc.  1988
;  All rights reserved.
;
;==========================================================
;
;  Modification history:
;
;  09-Feb-88    ADS     Created.
;
;==========================================================

		EXPORT	cons_dri_patch  
cons_dri_patch  PROC
*               using   common_equ
		with	direct_page
                longa   on
                longi   on

;==========================================================
;
;  start_patch
;  shutdown_patch
;
;  In GS/OS, there is nothing to do.  Simply return.
;
;==========================================================

		EXPORT	start_patch
start_patch
		EXPORT	shutdown_patch
shutdown_patch
                rts

                eject
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
;
;  jsr call_alloc       (replaces jsl alloc_seg)
;  jsr call_deref       (replaces jsl deref)
;  jsr call_release     (replaces jsl release_seg)
;
;  These are glue routines to make system service calls-
;  because I have to set DP back to GS/OS area before I
;  can call them.
;
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

		EXPORT	call_alloc
call_alloc				; (preserves A and C bit)
                phd
                ldx     <drvr_parm_ptr  ; which is actually dp
                phx
                pld
                jsl     alloc_seg
                pld
                rts

		EXPORT	call_deref
call_deref				; (preserves X and Y)
                phd
                lda     <drvr_parm_ptr
                tcd
                jsl     deref
                pld
                rts

		EXPORT	call_release
call_release				; (preserves X and Y)
                phd
                lda     <drvr_parm_ptr
                tcd
                jsl     release_seg
                pld
                rts

		ENDP
		end
		
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/Console.Driver/New.Lib.Patch b/IIGS.601.SRC/GS.OS/Drivers/Console.Driver/New.Lib.Patch
new file mode 100644
index 0000000..20b382c
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/Console.Driver/New.Lib.Patch
@@ -0,0 +1 @@
+;==========================================================
;
;  file cons.lib.patch
;
;  This file must be linked in if we are building the
;  universal library version of the console driver.
;
;  There is a similar file which is used for the GS/OS
;  device driver.
;
;  Author:      Andy Stadler
;  Created:     09-Feb-88
;  Modified:    See modification history below.
;
;  Copyright Apple Computer, Inc.  1988
;  All rights reserved.
;
;==========================================================
;
;  Modification history:
;
;  09-Feb-88    ADS     Created.
;
;==========================================================

		EXPORT	cons_lib_patch  
cons_lib_patch  PROC
*               using   common_equ
                longa   on
                longi   on

;==========================================================
;
;  start_patch
;  shutdown_patch
;
;  We will be using the memory manager, so we need an ID.
;
;==========================================================

		EXPORT	start_patch
start_patch		;		
                pha                     ; result space
                pea     $6000           ; type=lib, auxID=0
                ldx     #$2003          ; GetNewID
                jsl     $E10000

                pla
                sta     >patch_id

                rts


		EXPORT	shutdown_patch
shutdown_patch		;		
                lda     >patch_id
                pha
                ldx     #$2103          ; deleteID
                jsl     $E10000

                rts


patch_id	DC.W	0	; store the patch here

                eject
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
;
;  jsr call_alloc       (replaces jsl alloc_seg)
;  jsr call_deref       (replaces jsl deref)
;  jsr call_release     (replaces jsl release_seg)
;
;  These are glue routines to simulate GS/OS device service
;  calls.  For example, a GS/OS driver gets memory by jsl alloc_seg
;  and returns a VP in X and Y.  Here we'll use the memory
;  manager.  And so forth for the other calls.
;
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

		EXPORT	call_alloc
call_alloc		;		; X,Y = call_alloc(a=size, C=clear)
                pha                     ; long result
                pha
                pea     $0000           ; size is < 64k
                pha
                lda     >patch_id
                pha
                pea     $0000           ; no restrictions
                pha                     ; address ignored
                pha
                ldx     #$0902          ; NewHandle
                jsl     $E10000
                plx                     ; get handle into X and Y
                ply
                rts

		EXPORT	call_deref
call_deref		;		; X,Y = deref (X,Y)
                phd                     ; in this case just deref handle
                phy
                phx
                tsc
                tcd
                lda     [<1]
                tax
                ldy     #2
                lda     [<1],y
                tay
                pla
                pla
                pld
                rts



		EXPORT	call_release
call_release		;		; release_seg(X,Y)
                phy
                phx
                ldx     #$1002          ; DisposeHandle
                jsl     $E10000
                rts

		ENDP
		end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/ETalk/ETalk.aii b/IIGS.601.SRC/GS.OS/Drivers/ETalk/ETalk.aii
new file mode 100644
index 0000000..443c5bc
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/ETalk/ETalk.aii
@@ -0,0 +1 @@
+;======================================================================
;
;	EtherTalk driver for the Apple IIGS
;
; This code intercepts the main AppleTalk entry points on the GS and
; calls the Apple II EtherTalk Card to perform the actual call.
;
; The supported entry points are:
; $E11014	RamDispatch	Pointer to PB in X, Y
; $E11018	RamForbid	Prevents AppleTalk completion
;				routines, etc. being called.
; $E1101C	RamPermit	Allows AppleTalk interrupts.
;
; Not supported (yet):
; $E1100C	RamGoComp	Used for calling completion
;				routines in any bank.
;
;
; This code also handles the necessary initialization to use the card
; with GS/OS, and does whatever is appropriate to when switching
; between GS/OS and ProDOS 8.
;
; RamDispatch is not intercepted directly.  Instead, the entry points
; (in the CmdTable at $E1D600) point to a common routine that calls
; the card.
;
;  2-Apr-92 MSD	Reorganized the code, especially where it deals with
;		interrupt handlers and switching OS's.  For network
;		booting, we directly patch the IRQ.OTHER vector; under
;		normal booting, we install/remove interrupt handlers
;		through the currently running OS.
;
; 21-Apr-92 MSD	Finished removing the desk accessory-related code.
;		The DA is now a stand-alone item.  When network booting,
;		it now does a partial Init.
;
;  4-Jun-92 MSD	I can't do an AddNotifyProc call at boot time on a ROM
;		01 GS because it uses a toolbox call not in ROM and
;		TOOL.SETUP hasn't been loaded yet.  We modified the
;		definition of os_p8_switch so it gets called when either
;		P8 or GS/OS is about to shut down.  We can tell which
;		by looking in the A register.
;
;  5-Aug-92 MSD	Implemented functionality of RamGoComp vector.  Since it
;		switches into emulation mode, it had used the $Cnxx space
;		which may not be available.
;
; 19-Aug-92 MSD	Removed extra PHB from RamGoComp.  It was causing stack to
;		be unbalanced when completion routine was not in bank 0.
;
;  2-Sep-92 DAL Changed the codes for Forbid and Permit to be $8000 and
;		$4000 like DoRight expects.
;
;  5-Sep-92 DAL	Changed the code for Forbid to $FFFF for DoRight 2.0b1C.3.
;
; 18-Sep-92 DAL	Sets the card-died vector and tries to give them a nicer
;		message.  Initializes *all* the command addresses in
;		CmdTable, so we are no longer pre-filtering what a valid
;		command is.
;
; 13-Oct-92 DAL	On fatal error, show card version and time of death.
;               Remove timeout.  Add delay & keyboard-clear before letting
;               user dismiss the death message.
;
; 16-Oct-92 DAL On fatal error, check for black text+background colors.
;		If it's all black, make the text color white.
;
; 21-Oct-92 DAL	On fatal error, hitting Esc tries to put you into the
;		EtherTalk CDA (using SendRequest to Apple~EtherTalkCDA~
;		with reqCode $8000).
;
; 14-Dec-92 DAL	Added and AND #$0007 because the slot number we get in
;		Y from the SCC Manager will be 9..15, not 1..7.  Stores
;		slot number into $E101C2 (RPM slot number, as defined for
;		ROM 3 and later by AppleTalk Technical Note #4, Printing
;		Through the Firmware).
;
;		Disables interrupts in DoPatchIRQ (low-probability of
;		causing a problem, but fixed it anyway).
;
;		For net booting only ("Handler"), restores MSLOT from
;		irq_MSLOT and re-activates the correct expansion ROM,
;		because the ROM does not do this for us, and in the
;		net-boot case the BindInt handling code can't do it for
;		us either (as of 6.0.1d12, BindInt takes care of it for
;		the local-boot case, though).
;
; 9-Mar-93 DAL	¥Added a call that makes the Ethernet card install the
;		Network Preferences CDA (see InstallNetPrefs).
;		¥Added code in os_p8_switch to shut down the card on an
;		OSShutDown (SCM now calls os_p8_switch with A=$8000 on
;		a shutdown).
;
; 17..18-Mar-93 DAL
;		¥Added a version of the os_p8_switch stuff that works for
;		a network boot, so we can shut down the card on OSShutDown
;		when the system is net booted.
;		¥If the "Programmer CDAs" bit is set in Battery RAM, now
;		we pass an "e" as the "power up key" to the InstallCDAs
;		command, so the Ethernet card will install Ethernet CDA
;		as well as Network Preferences.
;
; 25-Mar-93 DAL	¥In the CardDied handler, if we're in ProDOS 8 we restore
;		the $BF00 jump to $BF4B, so the user has some chance of
;		saving their work to local disks.
;
; 25-Mar-93 DAL	¥Set the high bit on the 'e' that I pass to install the
;		programmer CDAs.
;
;======================================================================
		include 'all.macros'

cmdlist		equ	$80		; pointer to parameter block
execaddr	equ	$84		; pointer to code entry

MSLOT		equ	$0007F8

RamGoComp	equ	$E1100C
RamDispatch	equ	$E11014
RamForbid	equ	$E11018
RamPermit	equ	$E1101C
CmdTable	equ	$E1D600

StateReg	equ	$E1C068
LCBank2		equ	$E1C083

OnExitVector	equ	$E1104A		; 1/4 second exit vector

os_switch	equ	$E100AC		; called on switch of OS's
os_kind		equ	$E100BC		; 0=> P8, 1=> GS/OS, $FF => in-between
os_p8_switch	equ	$E100B4		; called just before shutting and operating system
					; A = 0 on entry if shutting down P8 to go to GS/OS
					; A = 1 on entry if shutting down GS/OS to go to P8
					; A = $8000 if shutting down GS/OS thru OSShutDown

IRQ_Other	equ	$E1005C		; vector for external interrupts

;----------------------------------------------------------------------
;		Patch
;
; This routine is executed after the file is loaded.  It does the actual
; patching and initialization necessary to use the card in a GS/OS
; environment.
;
; On entry:
;	A = Channel number (0 since it doesn't use a serial port)
;	X = GS ROM version
;	Y = Slot #
;
;----------------------------------------------------------------------

Patch		proc
		import	CardJump,slotX10,CN00Val,CnProDOS
		import	Forbid,Permit,CommonDispatch,GoComp
		import	OurSwitch,OurChain
		import	OurP8Switch,OurP8Chain
		import	CnIntEntry
		import	DoBindInt,NotifyPB,DoPatchIRQ
		import	SetNaming,SetupCardDied,InstallNetPrefs

		phb
		phk
		plb

;
; Reset AppleTalk's vectors to point back at ROM so we can patch
; over only the ones we want changed.
;
		phy			; save our slot number
		
		cpx	#1		; was it ROM 1?
		bne	rom3		; no, so assume ROM 3
		
		jsl	$FF1C06		; ROM 1 vector reset
		bra	continue
rom3
		jsl	$FDE594		; ROM 3 vector reset
continue

;
; Fix up the JML to the card and the slot * $10 value
;
		pla			; get slot in A
*** added 14-Dec-92 DAL
		and	#$0007		;strip off the external-slot bit (9 becomes 1, etc)

		sep	#$20
		sta	>$E101C2	;RPMSlotNumber
		rep	#$20
*** end 14-Dec-92
		xba			; A = $0n00
		ora	#$C000		; A = $Cn00
		sta	CN00Val		; save for ToCard
		ora	#$0014		; A = $Cn14
		sta	CnProDOS	; save ProDOS entry point
		ora	#$001E		; A = $Cn1E
		sta	CardJump+1	; fix up JML address
		eor	#$0007		; A = $Cn19
		sta	CnIntEntry
		
		lsr	a
		lsr	a
		lsr	a
		lsr	a		; A = $0Cn1
		and	#$00F0		; A = $00n0
		sta	slotX10

;
; Patch the RamForbid and RamPermit vectors
;
		lda	ToForbid
		sta	RamForbid
		lda	ToForbid+2
		sta	RamForbid+2
		
		lda	ToPermit
		sta	RamPermit
		lda	ToPermit+2
		sta	RamPermit+2

;
; 5-Aug-92 MSD: Patch the RamGoComp vector.
;
		lda	ToGoComp
		sta	RamGoComp
		lda	ToGoComp+2
		sta	RamGoComp+2

;
; Patch the entries in CmdTable to point to CommonDispatch.
;
; The upper byte of the table entry is the number of zero page bytes
; to save.  I leave it at zero since the card does its own save/restore.
;
		sep	#$20
		lda	>StateReg
		pha			; save LC bank
		lda	>LCBank2
		lda	>LCBank2	; allow write to language card
		rep	#$20
		
;;;		ldx	#$4F*4		; do up to command $4F
		ldx	#$ff*4		; do all the commands!  18-Sep-92 DAL
loop
		lda	#<CommonDispatch
		sta	>CmdTable,x
		lda	#^CommonDispatch
		sta	>CmdTable+2,x
		dex
		dex
		dex
		dex
		bpl	loop		; down through command $00
		
		sep	#$20
		pla
		sta	>StateReg	; restore LC bank
		rep	#$20

;
; Install ourselves in the OS switch vector so we can patch P8, change naming
; modes, reset the PFI hooks, etc.
;
		lda	>os_switch	; copy previous OS Switch vector contents
		sta	OurChain
		lda	>os_switch+2
		sta	OurChain+2

		lda	ToSwitch	; copy in a JML to our code
		sta	>os_switch
		lda	ToSwitch+2
		sta	>os_switch+2

*** this os_p8_switch stuff was under the ELSE below until just now (17-Mar-93 DAL)
;
; Install ourselves in the os_p8_switch vector to get called before switching
; from ProDOS 8 to GS/OS, or before switching from GS/OS to ProDOS 8.
;
		lda	>os_p8_switch	; save previous contents
		sta	OurP8Chain
		lda	>os_p8_switch+2
		sta	OurP8Chain+2

		lda	ToP8Switch	; install a JML to our code
		sta	>os_p8_switch
		lda	ToP8Switch+2
		sta	>os_p8_switch+2

;
; Install interrupt handler.  Because we're loading during net booting, we patch
; IRQ.OTHER before GS/OS does.  Therefore GS/OS won't remove us, and we can stay
; patched in without regard to switching of OS's.
;
		IF NetBoot THEN
		jsr	DoPatchIRQ	; patch the IRQ.OTHER vector
		ELSE
;
; Install a GS/OS interrupt handler
;
		jsr	DoBindInt	; bind an interrupt handler into GS/OS
		
		ENDIF

;
; Init the card
;
		ldx	#<init
		ldy	#^init
		jsl	RamDispatch

;
; Set up naming mode for GS/OS
;
		lda	#$C0C0		; long naming, disable device table updates
		jsr	SetNaming

;
; Set up the card-died vector to give them a nice message
;
		jsr	SetupCardDied

;
; Install the "Network Preferences" CDA
;
		jsr InstallNetPrefs

		plb
		rtl

ToGoComp	jml	GoComp		; call a completion routine "the right way"
ToForbid	jml	Forbid
ToPermit	jml	Permit
ToSwitch	jml	OurSwitch
;;;		IF not NetBoot THEN
ToP8Switch	jml	OurP8Switch
;;;		ENDIF


init
		dc.b	0,1		; sync Init
		dc.w	0
		IF NetBoot THEN
		dc.b	$00		; partial init, no MLI global page update
		ELSE
		dc.b	$80		; full init, no MLI global page update
		ENDIF			; if NetBoot
		dc.l	0		; no ProDOS entry point
		dc.b	0		; pick any node
		dc.w	0		; reserved
		
		endp



ForbidCount	dc.w	0
slotX10		dc.w	0
CN00Val		record	export
		dc.w	0
		endr
CnProDOS	dc.w	0
CnIntEntry	dc.w	0

;----------------------------------------------------------------------
;		ToCard
;
; This routine sets the index registers to 8-bit mode, sets B=0,
; puts slot*16 in X, and does a JML to the card's GS entry point.
;
;----------------------------------------------------------------------

ToCard		proc
		import	slotX10,CardDiedFlag
		export	CardJump

		ldx	CardDiedFlag
		bne	CardIsDead
		
		pha			; save command number

		sep	#$20		; short A for MSLOT stuff
		longa	off
		lda	CN00Val+1
		sta	>MSLOT
		rep	#$20
		longa	on
		
		pla			; get command number back
		
		ldx	slotX10
		ldy	CN00Val
		
		pea	0
		plb
		plb			; set bank to 0
CardJump	jml	0		; patched at startup

		export CardDiedFlag
CardDiedFlag	dc.w	0

;
; CardIsDead
;
; Ignore Forbid and Permit calls.
;
; For real calls, return error $0101.
;
CardIsDead	tax
		bne	@doNothing

		lda	#$0101		;"invalid command"
		ldy	#2
		sta	[<cmdlist],y	;store error code

@doNothing	pea 0
		plb
		plb
		rtl

		endp
		



;----------------------------------------------------------------------
;		CommonDispatch
;
; This is the common routine that causes calls to be handled by the card.
; The address of this routine is placed in the command table for each
; call to be passed to the card.
;
; On entry,
;	cmdlist points to the parameter block
;
;----------------------------------------------------------------------

CommonDispatch	proc
		
		phk
		plb
		
		pei	cmdlist+2	; push pointer to PB
		pei	cmdlist
		lda	#0		; tell card it's a call
		
		jsl	ToCard		; call the card
		rep	#$30		; force long registers
		
		pla			; strip PB pointer off stack
		pla
		
		rtl			; return to dispatcher
		
		endp




;----------------------------------------------------------------------
;		Forbid
;
; This routine intercepts the RamForbid vector.  It maintains its own
; counting semaphore and calls the card's forbid routine as necessary.
;----------------------------------------------------------------------

Forbid		proc

		pha			; save registers
		phx
		phy
		php			; save M,X bits
		phb
		
		phk
		plb
		
		rep	#$30		; force long A,X,Y
		lda	ForbidCount	; is card forbidden already?
		bne	forbidden	; yes, so don't bother again
		
		lda	#$FFFF		; tell card to do RamForbid (was $0080 2-Sep-92)
		jsl	ToCard
		
forbidden
		lda	>ForbidCount
		ina
		sta	>ForbidCount
		
		plb
		plp
		ply
		plx
		pla
		
		rtl

		endp




;----------------------------------------------------------------------
;		Permit
;
; This routine intercepts the RamPermit vector.  It maintains its own
; counting semaphore and calls the card's permit routine as necessary.
;----------------------------------------------------------------------

Permit		proc

		pha
		phx
		phy
		php
		phb
		
		phk
		plb
		
		rep	#$30
		dec	ForbidCount	; still forbidden?
		bne	forbidden	; yes, don't permit

		lda	#$4000		; tell card to do RamPermit (was $0040, 2-Sep-92 DAL)
		jsl	ToCard

forbidden
		plb
		plp
		ply
		plx
		pla
		
		rtl
		
		endp



;----------------------------------------------------------------------
;			GoComp
;
; This implements the RamGoComp vector which allows user's code to call
; a completion routine using the same conventions as AppleTalk does.
;
; On entry:
;	(Note: It is assumed that direct page is already $0000)
;	$84..$87 on direct page point to the routine to call.
;	$80..$83 is usually pointer to PB whose completion routine is
;		 being called (so caller can have one routine for many
;		 parameter blocks).
;	Native mode.
;	Called via JSL
;
; State on entry to called routine:
;	If outside bank 0, called in full native mode with data bank
;	set to routine's code bank.
;
;	If routine in bank 0, called in emulation mode.
;
; This routine preserves it caller's data bank register.  A,X,Y are
; undefined at exit.  Always exits in full native mode.
;
; NOTE: In the LocalTalk code, if a completion routine ended with an
; RTL instead of doing a JMP to the completion routine return address,
; it still worked.  And, since DoRight's completion routine return is
; just an RTL, we have to handle that situation.  Unfortunately, this
; means we can't use the toolbox's FWEntry routine (since it expects
; to return via an RTS).
;
; Another complication is that we can't switch to emulation mode until
; we're executing in bank 0 (because an interrupt could come along,
; and emulation mode interrupts don't get their bank saved).  Therefore,
; the switch to and from emulation mode has to be done with code in
; bank 0 (i.e. on the stack!).
;
; Here's what the stack looks like:
;
;		|	...		|
;		|-----------------------|
; Part1:	|	sec		|
;		|	xce		|
;		|	jmp ($0084)	|
; Part2:	|	clc		|
;		|	xce		|
;		|	rtl		|
;		|-----------------------|
;		|	Return		|
;		|	Address		|
;		|	to Driver	|
;		|-----------------------|
;		|	Return		|
;		|	Address		|
;		|	to Part2	|
;		|-----------------------|
;		|	Return		|
;		|	Address		|
;		|	to Part1	|
;		|-----------------------|
;
; We set the registers up, then do an RTL to cause execution to continue
; with Part1.  When the completion routine is finished, it RTL's back to
; Part2, which goes into native mode and RTL's back to the driver.  Once
; in the driver, we go to full native mode and pop the junk off the stack.
;----------------------------------------------------------------------

GoComp		proc
CompAddr	equ	$84		; address on direct page containing
					; pointer to routine to be called

;
; Save caller's bank byte
;
		phb
		
		phk
		plb

		rep	#$30
		
		lda	CompAddr+2	; is bank non-zero?
		beq	emulation	; nope, so call it the hard way

		lda	CompAddr+1
		pha
		plb			; pull page byte
		plb			; code's bank byte now in B
		
		jsl	TheJML		; do JSL indirect
		rep	#$30		; force full native again
		
		plb			; fix old bank
		
		rtl			; return to RamGoComp's caller

emulation
		
;
; Set up Part1 and Part2 code on the stack.
;
		lda	StackCode+6
		pha
		lda	StackCode+4
		pha
		lda	StackCode+2
		pha
		lda	StackCode
		pha

;
; Put a return address to our driver on the stack
;
		jsl	CallBank0

;
; Remove the code from the stack
;
		rep	#$30
		pla			; remove 8 bytes of junk
		pla
		pla
		pla

		plb			; restore original caller's bank byte
		rtl			; return to RamGoComp's caller

;
; At this point, there is a return address to the driver at 1,s.  The Part1
; code is at 4,s.  Part2 is at 9,s.  We need to construct return addresses
; to Part2 and Part1 and push them (in that order).  The two values are
; S+8 and S+3 (for the current value of S=stack pointer).
;
CallBank0
		pea	$0000
		plb
		plb			; set B to zero
		
		tsc
		clc
		adc	#8
		
		phb
		pha			; push RTL to Part 2
		
		sec
		sbc	#5
		
		phb
		pha			; push RTL to Part 1
		
		rtl			; "return" to Part 1
StackCode				; size = 8 bytes
		sec
		xce
TheJML		jml	[CompAddr]
		clc
		xce
		rtl
		
		endp
		



;----------------------------------------------------------------------
;			SetNaming
;
; On entry, A = direction flag (low), naming flag (high)
;
;----------------------------------------------------------------------
SetNaming	proc

		sta	FINaming+4	; save direction, naming flags
		
		ldx	#<FINaming
		ldy	#^FINaming
		jsl	$E11014
		
		rts

FINaming
		dc.b	$00,$33		; sync FINaming
		dc.w	0		; result
		dc.b	0,0		; direction, naming flags
		
		endp


*** added 9-Mar-93 DAL
;----------------------------------------------------------------------
; InstallNetPrefs
;----------------------------------------------------------------------
InstallNetPrefs	proc

*** added 18-Mar-93 DAL -- Read programmer CDAs setting from Battery RAM
		pha
		pea $0059		; Programmer CDAs location
		ldx #$0c03
		jsl $e10000
;		_ReadBParam
		pla
		and #$0080
		beq @storeKey
		lda #$0065+$80	;'e' with high bit set
@storeKey	sta progCDAflag
*** end 18-Mar-93

		ldx	#<InstallThemCDAs
		ldy	#^InstallThemCDAs
		jsl	RamDispatch
		rts

InstallThemCDAs	dc.b	$00,$6F		; sync Control_Cmd
		dc.w	$0000		; result
		dc.w	$0001		; command 1 = install CDAs (2=shutdown)
progCDAflag	dc.l	0		; more info (reserved)

		EndP
*** end 9-Mar-93

;----------------------------------------------------------------------
;			SetupCardDied
;----------------------------------------------------------------------
SetupCardDied	proc

		ldx	#<SetupDeath
		ldy	#^SetupDeath
		jsl	RamDispatch
		rts

SetupDeath	dc.b	$00,$72		; Q&D debug vectors
		dc.w	0		; result
		dc.l	CardDied	; exception handler
		dc.l	0		; GSOSmsgHandler
		dc.l	0		; reserved (use 0)

;Notes from Wes's QuickMail on GSOSmsgHandler:
;
;word Async & cmd - $0072
;word results
;long   ExceptionHandler
;long   GSOSmsgHandler
;long   reserved
;-------
;Handlers called via jsl
;
;GSOSmsgHandler will be called w/ A,X,Y
;  A = msg type
;  X = Address Lo
;  Y = Address Hi
;------
;  A     = 0x0000 = A router is available
;  X+Y = ptr to zone name str32
;-------
;  A     = 0x0001 = Node was put into the default zone
;  X+Y = ptr to zone name str32
;-------
;  A    = 0xFFFF   = Print String255
;  X+Y = ptr to str255
;=====
;Buffmove (used to fetch the message strings above)
;word Async & cmd - $0070
;word results
;long   SrcBuf
;long   DstBuf
;word   count


;
; CardDied
;
; Input:
;   8-bit native mode, called with JSL
;   Bank and direct page are zero
;   $00/00FB = pointer to $Cn00
;
; Card2MBPB (in Cn00):
;   +0 = P register
;   +1 = PC (3 bytes)
;   +4 = break value
;   
;
CardDied
		import CardDiedFlag,FWEntry

Card2MBPB	equ $AE
MB_ZP		equ $FB

		rep #$30

		lda #$ffff
		sta >CardDiedFlag

*** added 25-Mar-93 DAL -- If we're in ProDOS 8, restore the $BF00 jump so the user
***   has some chance of saving their work on local disks.
		lda >OS_KIND		;$00 = P8
		and #$00ff
		bne @not_ProDOS8

		lda #$BF4B
		sta >$00BF01

@not_ProDOS8
*** end 25-Mar-93

		ldy #Card2MBPB+0	;get P register
		jsr GetHexValue		;returns A = high word
		sta >Button2+2

		ldy #Card2MBPB+3	;get bank register of PC
		jsr GetHexValue
		sta >Button2+8

		ldy #Card2MBPB+1	;get low word of PC
		jsr GetHexValue
		sta >Button2+12
		txa
		sta >Button2+10

		ldy #Card2MBPB+4	;get BRK value
		jsr GetHexValue
		sta >Button2+16

		pushlong #TextLine4
		_ReadAsciiTime

		ldy #$00F7		;version # at $CnF7
		jsr GetHexValue
		sta >TextLine4+30+2
		txa
		sta >TextLine4+30

		jsr ShowPrettyMessage

		rtl

TextLine1	dc.b 'There is a problem on the Ethernet  '
TextLineb	dc.b 'card.  Try to save your work to a   '
TextLine2	dc.b 'local disk and restart the system.  '
TextLine4	dc.b 'mm/dd/yy hh:mm:ss xM         vXXXX  '
Button2		dc.b 'P=xx PC=xxxxxx [xx]   Press Return  '

GetHexValue	lda (MB_ZP),y
		pha
		pha
		pha
		_HexIt
		plx
		pla
		rts

ShowPrettyMessage
		phb
		pea 0
		plb
		plb

		pha
		pha
		_SaveTextState

*** added 16-Oct-92 DAL -- If text+background are both black, make text white
		sep #$20
		longa off

		lda >$00c022
		bne @notBlack
		lda #$f0
		sta >$00c022

@notBlack	rep #$20
		longa on
*** end 16-Oct-92

		lda #$fb2f	;text mode, full window
		jsr FWEntry
		lda #$fc58	;clear screen
		jsr FWEntry

		sep #$20
		sta $c00c	;40-column mode
		rep #$20

		lda #$2020
		ldy #40-2
@topAndBottom	sta $600,y	;line 6
		sta $7a8,y	;line 17
		dey
		dey
		bpl @topAndBottom

		ldx #18
@edges		phx
		lda >LineTable,x
		tax
		lda #$a020
		sta |0,x
		lda #$20a0
		sta |38,x
		plx
		dex
		dex
		bpl @edges

		ldx #34
@theText	lda >TextLine1,x
		ora #$8080
		sta $700+2,x
		lda >TextLineb,x
		ora #$8080
		sta $780+2,x
		lda >TextLine2,x
		ora #$8080
		sta $428+2,x
		lda >TextLine4,x
		ora #$8080
		sta $528+2,x
		lda >Button2,x
		ora #$8080
		sta $6a8+2,x
		dex
		dex
		bpl @theText

@notEsc		jsr GetKeypress
		cmp #$0d
		beq @hitReturn

		cmp #$1b	;Esc for EtherTalk CDA
		bne @notEsc

		pea $8000	;reqCode
		pea $8001	;sendToName+stopAfterOne
		pushlong #theCDAName
		lda #0
		pha
		pha		;dataIn = nil
		pha
		pha		;dataOut = nil
		_SendRequest
		bcs @notEsc

@hitReturn	_RestoreTextState
		plb
		rts

theCDAName	str 'Apple~EtherTalkCDA~'

*
* Addresses of lines 7 through 16 of 40-column text screen
*
LineTable	dc.w $680,$700,$780,$428,$4a8,$528,$5a8,$628,$6a8,$728

GetKeypress
;
; Before allowing keypress to dismiss dialog, wait & then clear the buffer
;
		sep #$20
		longa off
		lda >$c068
		pha
		and #$7f
		sta >$c068

		ldy #5
		ldx #0
@wait		sta >$c010
		dex
		bne @wait
		dey
		bne @wait

@getkey		lda >$c000
		bpl @getkey
		tax
		sta >$c010

		pla
		sta >$c068
		rep #$20
		longa on
		txa
		and #$007f
		rts

		EndP

;----------------------------------------------------------------------
;		OurSwitch
;
; This routine is called by the os_switch vector after switching
; operating systems or when launching GS/OS applications.
;
;----------------------------------------------------------------------

OurSwitch	proc
		import	DoBindInt,DoAllocInt
		export	OurChain
		
		phb
		phk
		plb
		
		lda	>os_kind
		and	#$00FF		; os_kind is only a byte
		cmp	last_os_kind	; have we changed OS's?
		sta	last_os_kind	; remember current OS (won't change flags)
		beq	done		; haven't changed OS, don't do anything
		
		cmp	#0		; is os_kind=0 (i.e. P8)
		bne	gsos

;
; We just switched into ProDOS 8
;
		IF not NetBoot THEN
		jsr	DoAllocInt	; allocate a P8 interrupt handler
		jsl	Permit		; allow interrupts again
		ENDIF

		lda	#$00C0		; P8 naming, enable device table
		jsr	SetNaming

		lda	>$BF01		; get old P8 entry point
		sta	hooks+$11	; save for card
		lda	CnProDOS	; get card's entry point
		sta	>$BF01		; as replacement for MLI

		ldx	#<hooks
		ldy	#^hooks
		jsl	>RamDispatch	; set hooks and P8 entry point

		bra	done

gsos
;
; We just switched into GS/OS
;
		IF not NetBoot THEN
		jsr	DoBindInt	; install a GS/OS interrupt handler
		jsl	Permit		; enable interrupts
		ENDIF
		
		lda	#$C0C0		; long naming, no device table
		jsr	SetNaming
done
		plb

OurChain	dc.l	0		; previous contents of vector
last_os_kind	dc.w	1		; previous os_kind (GS/OS)

hooks
		dc.b	0,$37		; sync FIHooks
		dc.w	0
		dc.b	$E0		; P8 active, set hooks, set P8 entry
		dc.l	0		; mount vector
		dc.l	0		; unmount vector
		dc.l	0		; attention vector
		dc.w	0		; P8 entry point (will be modified)

		endp



		IF NetBoot THEN

*** network boot
OurP8Switch	proc
		export OurP8Chain
		tax
		bpl	OurP8Chain
		jsr	doSysShutdown
OurP8Chain	dc.l	0

		ELSE

*** non-network boot
		
;----------------------------------------------------------------------
;		OurP8Switch
;
; This routine is called by the os_p8_switch vector just before P8
; gets shut down when switching from P8 to GS/OS, or before going
; from GS/OS to P8.
;
; Input:
;   A = $0000 if shutting down P8 to go to GS/OS
;   A = $0001 if shutting down GS/OS to go to P8
;   A = $8000 if shutting down GS/OS through OSShutDown
;
;----------------------------------------------------------------------

OurP8Switch	proc
		export	OurP8Chain
		import	UnbindIntPB

		tax
		bmi	SystemShutdown
		beq	FromP8	

*** switching from GS/OS to P8
FromGSOS	jsl	Forbid		;turn off net interrupts
		
		jsl	$E100A8
		dc.w	$2032		; class 1 UnbindInt
		dc.l	UnbindIntPB

		lda	#1		; tell others we're coming from GS/OS
		bra	OurP8Chain	; go to next guy in the chain.

*** switching from P8 to GS/OS
FromP8		jsl	Forbid		; turn off net interrupts
		lda	#0		; tell others in chain we're coming from P8
OurP8Chain	dc.l	0		; JMP--previous contents of vector

systemShutdown	jsr	doSysShutdown
		bra	OurP8Chain

		ENDIF

*
* shutting down the system (OSShutDown)
*
doSysShutdown	pha
		ldx	#<ShutDownCard
		ldy	#^ShutDownCard
		jsl	RamDispatch

*** Wait until the Ethernet card is doing with diagnostics
		lda	>CardJump+1
		and	#$ff00
		tax

		sep #$20
		longa off
@wait0		lda	>$0000FD,X
		cmp	#$00f0
		bne	@wait0

@waiting	lda	>$0000FD,X	; load $CnFD
		cmp	#1
		bne	@waiting

		rep #$20
		longa on

		pla
		rts

ShutDownCard	dc.b	$00,$6F		; sync Control_Cmd
		dc.w	$0000		; result
		dc.w	$0002		; command 2 = shutdown
		dc.l	0		; more info (reserved)

		EndP

	
;----------------------------------------------------------------------
;			FWEntry
;
; Given the address of a bank 0 routine in A, make a call to FWEntry.
; Zero is passed for all registers.  On return, the processor status
; and registers are set as returned by the call.  Return is always
; in full native mode.
;
;----------------------------------------------------------------------
FWEntry		proc

		phb			; save bank
		
		ldx	#0		; for pushing zeroes
		phx			; push room for results
		phx
		phx
		phx
		phx			; push zero for all registers
		phx
		phx
		pha			; push entry point
		
		ldx	#$2403		; FWEntry too call
		jsl	$E10000		; make the tool call
		
		ply
		plx
		pla
		plb			; high byte of P ignored (trashes bank byte)
		plp			; get processor status
		
		plb			; restore bank byte
				
		rts
		
		endp
		


;----------------------------------------------------------------------
;		IntHandler
;
; This is the GS/OS version of the interrupt handler.  It calls the
; card's ProDOS 8 interrupt handler, which returns c=0 if it handled
; the interrupt.
;
;----------------------------------------------------------------------

IntHandler	proc

		longa	off
		longi	off
		
;		bcs	exit		; if already handled, we won't handle it
		
		rep	#$30		; long mode for tool call
		longa	on
		longi	on

		lda	>CnIntEntry
		jsr	FWEntry
		
		sep	#$30		; return in short native mode
		longa	off
		longi	off
		
exit
		rtl

		longa	on
		longi	on
		
		endp


		IF NetBoot THEN

;----------------------------------------------------------------------
;			DoPatchIRQ
;
; Patch the IRQ.OTHER vector to point to our routine that calls the
; interrupt handler, and passes it on to the previous routine if our
; handler didn't claim the interrupt.
;
;----------------------------------------------------------------------

DoPatchIRQ	proc

		php			;added 15-Dec-92 DAL
		sei			;added 15-Dec-92 DAL

		lda	IRQ_Other
		sta	ToOther
		lda	IRQ_Other+2
		sta	ToOther+2
		
		lda	ToHandler	; JML Handler
		sta	IRQ_Other
		lda	ToHandler+2
		sta	IRQ_Other+2

		plp			;added 15-Dec-92 DAL

		rts

; (8-bit native)

Handler		jsl	IntHandler	; try servicing the interrupt

*** added 15-Dec-92 DAL
		php

		longa	off
		longi	off
		lda	>$e1011b		;irq_MSLOT
		sta	>$07f8			;MSLOT
		rep	#$10
		longi	on
		xba
		lda	#0			;have $Cn00 in A
		tax
		lda	>$cfff			;CLRROM -- turn off all expansion ROMs
		lda	>0,x			;turn on just the one expansion ROM
		sep	#$10
		longi	off

@never_mind	plp
*** end 15-Dec-92

		bcs	ToOther		; didn't handle, try other
		rtl			; return carry clear, we handled interrupt

ToOther		dc.l	0		; old IRQ.OTHER contents go here
ToHandler	jml	Handler

		longa on
		longi on

		endp
		
		ELSE			; if NetBoot

;----------------------------------------------------------------------
;			DoBindInt
;
; Install our interrupt handler in GS/OS via a BindInt call.  While
; we're at it, install a notification proc so we can remove our
; interrupt handler.
;----------------------------------------------------------------------

DoBindInt	proc

		jsl	$E100A8		; GS/OS inline entry
		dc.w	$2031		; class 1 BindInt
		dc.l	BindIntPB
		
		lda	BindIntPB+2	; get interrupt refnum
		sta	UnbindIntPB+2	; save for unbinding
		
		rts
		
BindIntPB
		dc.w	3
		dc.w	0		; interrupt refnum
		dc.w	$17		; IRQ.OTHER
		dc.l	IntHandler

		export	UnbindIntPB
UnbindIntPB
		dc.w	1
		dc.w	0		; interrupt refnum
		
		endp
		
		
		
;----------------------------------------------------------------------
;			DoAllocInt
;
; Call ProDOS 8 to install an interrupt handler.
;
;----------------------------------------------------------------------

DoAllocInt	proc
		import	CnIntEntry
		
		lda	CnIntEntry
		sta	pb+2
		
		ldx	#10		; offset of last word
@loop
		lda	>$0200,x
		sta	Page2Save,x	; save previous contents of page 2
		lda	AllocInterrupt,x
		sta	>$0200,x	; copy our code to page 2
		dex
		dex
		bpl	@loop
		
		lda	#$0200
		jsr	FWEntry		; do the call
		
		ldx	#10
@loop2
		lda	Page2Save,x
		sta	>$0200,x
		dex
		dex
		bpl	@loop2
		
		rts

AllocInterrupt
		jsr	$BF00
		dc.b	$40		; ALLOC_INTERRUPT
		dc.w	pb-AllocInterrupt+$200
		rts
pb
		dc.b	2
		dc.b	0		; interrupt handler number
		dc.w	0		; interrupt handler entry point
		
Page2Save	ds.b	12

		endp
		
		ENDIF			; if NetBoot
				
		end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/RAM5/ram5.aii b/IIGS.601.SRC/GS.OS/Drivers/RAM5/ram5.aii
new file mode 100644
index 0000000..159c3c4
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/RAM5/ram5.aii
@@ -0,0 +1 @@
+******************************************************************************
*
* GS/OS loaded driver for /RAM5 (the SmartPort RAM disk)
*
* Originally by Matt Deatherage
*
* Copyright 1990-92 Apple Computer, Inc.
* All rights reserved.
*
******************************************************************************
*
* This driver replaces the generated driver for the built-in SmartPort
* RAM disk.  It implements all block driver functions.  It does not
* support caching because it's faster to just read from the disk than
* to search the cache for memory.
*
* No functions in the RAM disk toolset (#13) are used, although some of
* the RAM disk toolset's internal storage locations (such as the RAM disk
* handle beginning) must be used so when GS/OS is shut down, P8 has the
* same RAM disk.
*
******************************************************************************
*
* 26-Mar-92 Dave Lyons
*
* Converted source to MPW IIgs (from APW).  So far, only ROM 3's RAMdisk
* is supported.  ROM 1 is different.
*
* 6-Apr-92 Dave Lyons
*
* Fixed DStatus(0) to not always return 6 bytes.  If you only ask for two,
* you only get two.
*
******************************************************************************
*
* 5-Feb-93 Steve Stephenson (for 6.0.1d13)
*
* Added support for ROM 1.
*
* 10-Feb-93 Steve Stephenson
*
* Rewrote the FixUnitNum routine to work when there are no floppies attached.
* Changed the ROM 1 error reporter to use 'report_error' vice TLTextMountVolume
*  (it is not around at boot time!)
*
* 11-Feb-93 Steve Stephenson (for 6.0.1d13+)
*
* Fixed a stack imbalance bug in ROM 1 format.
*
* 17-Feb-93 JCM (for 6.0.1d14)
*
* Fixed the main call handler, DStatus and DControl subcall handlers
* to validate the call requests and return errors on the ones we know
* nothing about. I also removed all of the device-specific subcalls,
* since they aren't useful any more with the new ROM 01 architecture.
*
* 25-Feb-93 SS
*
* Fixed Read & Write to return an error _and_ copy bytes that are in range when
* the request count would take us past the end of the disk (previously it just
* returned an error and copied nothing).
*
* Optimized and significantly cleaned up the Status and Control subcalls.  Changed
* eject to return no error.  Removed all references to set/get format options -
* they now do nothing and return no err.
*
* Removed some dead code and old data.  Changed the version from experimental to beta.
*
* 1-Mar-93 DAL
*
* If the RAM disk has never been formatted, we need to put down an empty ProDOS
* directory, like the ROM does.  See routine FormatIfNeeded.  It calls the
* ROM to do the work for us.
*
* 4-Mar-93 SS
*
* Fixed a fatal flaw in the ROM1 read/write where <bufferPtr was not being incremented
* for each subsequent chunk.
*
* 8-Mar-93 SS
*
* Added more bullet proofing to the startup code to trap for a resized disk on a ROM1
* that hasn't yet had all of the handles allocated.
*
* 1-Apr-93 SS (for 6.0.1d16)
*
* Changed version to 1.0 for release.
*
* 6-May-93 DAL (6.0.1d17)
*
* Added NukeIfEmptyPascal routine to cause a reformat as ProDOS in the case that
* the ROM formats RAM5 as Pascal because is was slot 5 unit 1 and the startup
* scanned past slot 5 before the environment looked like ProDOS.
*
**********************************************************************
*
* To Do
*
* Make this work even if slot 5 is not switched in (for ex, Mustang in slot 5)
*
******************************************************************************

DebugSymbols	equ 0
	
	print push
	print off
	include 'e16.gsos'
	include 'all.macros'

	macro
&lab	DateTimeStamp
&lab	dc.b '&Sysdate &SysTime'
	mend
	print pop
	
TheVersion	equ $1000	;1.0 (final)

;
; First, GS/OS direct page equates and our additions
;

deviceNum	equ $00
callNum	equ $02
bufferPtr	equ $04
requestCount	equ $08
transferCount	equ $0C
blockNum	equ $10
blockSize	equ $14
controlCode	equ $16
statusCode	equ $16
fstID	equ $16
volumeID	equ $18
cachePriority	equ $1A
cachePointer	equ $1C
dibPointer	equ $20

handle	equ dibPointer+4
pointer	equ handle+4
transferBlocks	equ pointer+4
temp	equ transferBlocks+4
DPSize	equ temp+4

SET_DISKSW	equ $01FC90
MOVE_INFO	equ $01FC70
moveblkcmd	equ $0800
move_sinc_dinc	equ $05+moveblkcmd
move_scon_dinc	equ $04+moveblkcmd	; for zeroing blocks

report_error	equ $01FC94	; GS/OS error message handler

;SmartPort globals
RamUnit	equ $E10FBC	;the generated RAM disk's number	
ReMap	equ $E10FC0	;where the units got remapped

DrvrDiskSw	equ $002E	; disk switched error

;
; Now some of our private equates
;

CurDiskSize	equ $E11642
DiskHandles	equ $E11646
FormatFlag	equ $E1164A

OurBlockSize	equ $0200

BootRAM	equ $0008	; startup slot value in BRAM

StatusWord	equ $0010	; only "disk in drive", normally

;
; First, the device driver header.  We only support one device with no
; device-specific configuration list, so this isn't too hard.
;

RAMDisk	PROC

Offset	dc.w OurDIB-RAMDisk	; offset to our DIB
DevCount	dc.w 1	; just one device
ListOffset	dc.w 0	; no configuration list

;
; Here's our driver's code section.  We dispatch based on the command
; number and go do it.
;

RAMDiskCode	name

	phk
	plb

	cmp #8+1	;Driver_Shutdown+1
	bcc @handleCall

	lda #drvrBadReq	;invalid driver request
	
	bra @exitDriver	;return the error and condition the carry

@handleCall	
	asl a	; double the accumulator
	tax
	
	stz OurError
	
	jsr (DrvrTable,X)	; dispatch to it

	lda OurError

@exitDriver	cmp #1	; condition the carry
	rtl	; and we're out of here

DrvrTable	dc.w Startup
	dc.w Open
	dc.w Read
	dc.w Write
	dc.w Close
	dc.w Status
	dc.w Control
	dc.w Flush
	dc.w Shutdown

**********************************************************************
*
* The startup call looks to see if a SmartPort RAM disk exists in
* slot 5, and which ROM version we're using.  If we can't find the
* SP RAM disk, we return with an error so we get unloaded.	If we
* do find it, we claim it and go to town.
*
* Inputs: GS/OS direct page
*
* Outputs: GS/OS direct page
*
**********************************************************************

Startup	name
;
; First, see if there is a RAMdisk installed or not
;

	lda >DiskHandles
	ora >DiskHandles+2
	bne gotdisk

NoRAMDisk	lda #DrvrNoDevice	; no device found
	sta OurError
	rts	; goodbye

;
; OK, so there's a disk.  Find out what ROM version this is.
;
gotdisk
	pha	; space for P
	pha	; space for A
	pha	; space for X
	pha	; space for Y
	lda #0
	pha
	pha
	pha
	pea $FE1F	; IDROUTINE
	_FWEntry
	pla	; the ROM version number
	plx	; don't care
	plx	; don't care
	plx	; don't care
	and #$00FF	; just in case
	sta ROMVersion	; now we know
	cmp #1
	bne @ok
	
* for ROM1, both min & max must be the same - we don't support dynamic resizing!

	pha	; space for result
	pea $0036	; minimum RAM disk size
	_ReadBParam	;leave result on stk
	pha	; space for result
	pea $0037	; maximum RAM disk size
	_ReadBParam
	pla
	sta chunkNum	;temp hold # of 32k chunks for next check
	eor 1,s	;compare min and max
	sta 1,s
	pla
	bne @err	;must be the same, or show error msg

* Look at the last chunk handle in the chain.  If it's zero, not all of the handles
* were allocated.  User probably reset min/max without recycling power.

	lda chunkNum	;convert to highest 16k chunk number
	asl a
	dec a
	pha	;(spc for handle)
	pha	
	asl a	;* 20 (size of a handle)
	asl a
	adc 1,s	
	asl a	
	asl a	;= offset
	adc >DiskHandles	;+ 1st handle
	sta 1,s
	lda >DiskHandles+2
	sta 3,s	;= last handle
	phd
	tsc
	tcd
	ldy #1
	lda [3],y	;get mid word in X (MUST be non-zero if handle)
	tax
	pld	;fix stk
	pla
	pla
	txa	;was there a handle?
	bne @ok	; yes
	
@err	pea 68	; error 68 (size mismatch error)
	lda #0
	pha
	pha
	pha
	pha
	jsl report_error	; cause message to be displayed
	brl NoRAMDisk	; and exit with no disk.
	
@ok	jsr FixUnitNum	; put the right unit # in our DIB
	jsr FixBlockCount	; put the right size in our DIB

	jsr NukeIfEmptyPascal  ; added 6-May-93 DAL

	jsr FormatIfNeeded	; make a ProDOS directory (added 1-Mar-93 DAL)

	inc AreWeHere
	rts
	
;
; Find the SmartPort Unit Number so we can fill in our DIB's unitNum
; field with the same value.  If we don't, the device dispatcher won't kill
; the generated driver for the RAM disk.
;

FixUnitNum	
	longa off
	longi off
	sep #$30
	lda >RamUnit	;get the orig unitNum (should be a 1)
	ldx #4
@search	cmp >ReMap-1,x	;find where in the table it ended up (1É4)
	beq @found
	dex
	bne @search
	brk $cf	;shouldn't happen!
	
@found	stx UnitNum	
	longa on
	longi on
	rep #$30
	rts

*** added 6-May-93 DAL -- If we have an empty Pascal RAM5, nuke it
***  (This happens if we Scan past slot 5 and there are no floppies attached.
***  The ROM decides we are in UCSD Pascal even though we aren't in anything
***  yet.)
NukeIfEmptyPascal	phd
	lda >DiskHandles+2
	pha
	lda >DiskHandles
	pha
	tsc
	tcd
	ldy #2
	lda [1],y
	tax
	lda [1]
	sta 1
	stx 3	;<1 = ptr to first chunk

	ldy #$0400
	lda [1],y
	bne @notPascal	;blk 2 first word must be $0000 (HFS has signature here)

	ldy #$0406	;blk 2 +006 = $04 $52 for Pascal (as in 4 'RAM5')
	lda [1],y
	cmp #$5204
	bne @notPascal

	ldy #$0410	;look at io_file_count
	lda [1],y
	bne @notEmpty

	lda #0
	sta >FormatFlag	;mark it as unformatted

@notEmpty
@notPascal	pla
	pla	;discard ptr
	pld
	rts
*** end 6-May-93

;
; FixBlockCount sees how big our RAM disk is supposed to be from the
; MemMgr global and sets that parameter in our DIB.
;

FixBlockCount	lda >CurDiskSize+1
	lsr a
	sta BlockCount
	stz BlockCount+2
	rts

**********************************************************************
*
* FormatIfNeeded
*
* If FormatFlag is $0000, then there has been no access to RAM5
* through the firmware, because slot 5 is set to Your Card, and
* the firmware never got a chance to write an empty ProDOS directory.
*
* We have to force the directory to be written so the user won't
* get an annoying and confusing "GS/OS doesn't recognize the disk
* in device .RAMDISK" dialog.
*
* For ROM 1, we call $FF/12C0.
* For ROM 3, we call $FC/159D.
*
* In either case, we need B=$E1, and D pointing to some scratch space;
* the ROM will uses $00..$1A.  The ROM sets FormatFlag to $FFFF before
* returning.
*
* Since the ROM routine ends with an RTS (and we are obviously not in
* the same bank as the ROM routine we're calling), we have to push our
* 3-byte RTL address manually, then push the 2-byte address (minus 1)
* of an RTL in the same bank as the ROM routine, and do a long jump to
* the routine.  It RTSs to the RTL, which RTLs to us.
*
**********************************************************************
FormatIfNeeded	name

	lda >FormatFlag
	bmi @alreadyFormatted

	phb
	pea $E1E1
	plb
	plb
	phd
	tsc
	sec
	sbc #$0020
	tcs
	inc a
	tcd

	lda >ROMVersion
	dec a
	beq @FormatROM1
	dec a
	dec a
	bne @cleanUp	;not ROM 1, not ROM 3, give up

@FormatROM3	phk
	per @cleanUp-1
	pea $FE7F-1	;RTS at $FC/FE7F
	jml >$FC159D

@FormatROM1	phk
	per @cleanUp-1
	pea $01E8-1	;RTS at $FF/01E8
	jml >$FF12C0

@cleanUp	tsc
	clc
	adc #$0020
	tcs
	pld
	plb

@alreadyFormatted	rts

**********************************************************************
*
* Open does nothing for a block device.
*
* Inputs: GS/OS direct page
*
* Outputs: GS/OS direct page
*
**********************************************************************

Open	name
	rts


**********************************************************************
*
* Read is half the meat of the driver - this transfers bytes from the
* RAM disk into the destination buffer.	On ROM 03 this does a single,
* gigantic MOVE_INFO for the whole transfer.  On ROM 01 this is broken
* up into as many 16K or less transfers as necessary.
*
* Inputs: GS/OS direct page
*
* Outputs: GS/OS direct page
*
**********************************************************************

Read	name
;
; Before doing anything else, set up our hybrid DP on the stack
;

	lda AreWeHere
	bne @WereHere
	jsl SET_DISKSW
	inc AreWeHere
	lda #DrvrDiskSw
	brl ReadError2

@WereHere	jsr MakeOurDP
;
; Make sure there is something to do
;
	lda <requestCount
	ora <requestCount+2
	bne @CheckSize	
	brl ReadExit	; no action in this case
;
; Make sure this has our block size
;
@CheckSize	lda <BlockSize
	cmp #OurBlockSize
	bne rBadCount
	
	lda <requestCount+2	;clone the amount to do into a local
	sta bytesToDo+2
	lda <requestCount
	sta bytesToDo
;
; Make sure the requested transfer is within our RAM disk's size
;
	clc
	lda <blockNum
	adc <TransferBlocks
	sta <temp
	lda <BlockNum+2
	adc <TransferBlocks+2
	sta <temp+2	; temp contains the last block to do

	sec
	lda BlockCount
	sbc <Temp
	lda BlockCount+2
	sbc <temp+2
	bcs @CheckTheCount	; yes, continue
		
	lda #DrvrBadBlock	; no, flag as out of bounds,
	sta OurError

	stz bytesToDo	; but do what will fit anyway.
	stz bytesToDo+2
	lda BlockCount	;reset BytesToDo
	sec	; to amount between starting blk and last blk
	sbc <blockNum
	asl a
	sta BytesToDo+1
;
; Make sure the request count is an integral multiple of the block size
;
@CheckTheCount	lda <requestCount
	and #$1FF	; the block size
	beq DoTheRead
	
rBadCount	lda #DrvrBadCount
	sta OurError
	brl ReadExit
;
; If we got this far, we have something to read and 'BytesToDo' holds the amount
;
DoTheRead
	lda ROMVersion
	cmp #1
	beq ROM1read

;
; If we're on ROM 3, just do a big transfer
;
ROM3read	name
; calc the offset into the block
	stz <temp
	stz <temp+2
	lda <blockNum
	asl a
	sta <temp+1	; now temp = starting block * $200

; add the offset to the start of the block to get the abs addr	
	clc
	lda <temp
	adc <Pointer
	tay
	lda <temp+2
	adc <Pointer+2
	pha
	phy	; source address now on stack

	pei <bufferPtr+2
	pei <bufferPtr	; destination address on the stack

	pushlong BytesToDo	; request count on stack

	pea move_sinc_dinc	; the command word
	jsl MOVE_INFO	; system service call

	lda BytesToDo+2	;return the actual amount copied
	sta <transferCount+2
	lda BytesToDo
	sta <transferCount

	brl ReadExit

;
; On ROM 1, the source may be distributed over 1 or more 16k chunks.  The first
; group of bytes may or may not be aligned to the chunk start, but all remaining
; groups will be.  The number of bytes to move must be the lesser of: 16k; the
; remaining bytes available in the chunk; or the request count.
;
ROM1read	name
	lda <blockNum	;figure the offset addr just like ROM 3
	asl a	; (by multiplying by $200)
	and #$3F	;but ignore all above 16k
	xba
	sta chunkOffset	;offset into this 16k chunk

	lda <blockNum	;now find the chunk..
	lsr a	;div by 32 as there are 32 blocks in 16k
	lsr a	
	lsr a	
	lsr a	
	lsr a	
	sta chunkNum
@nextChunk
	jsr GetChunkPointer	;convert chunkNum (in A) to its pointer
	
	lda #$4000	;init chunkSize to the remainder in
	sec	; this chunk
	sbc chunkOffset
	sta chunkSize
	
	ldy bytesToDo+2	;if # to do is bigger, OK
	bne @useChunkSize
	cmp bytesToDo
	bcc @useChunkSize
	lda bytesToDo	;else use the lesser
	sta chunkSize
@useChunkSize
	jsr ReadAChunk	;read 'chunkSize' # of bytes
	
	jsr DecBytesToDo	;reduce 'to do' by chunkSize
	beq ReadExit	; til zero = done.
	
	stz chunkOffset	;read nxt chunk from the beginning
	inc chunkNum
	lda chunkNum	;repeat with next chunk
	bra @nextChunk
;
; That's all.  Remove our DP and get out of here.
;

ReadExit	jsr FixDP
ReadError2	rts


;
; Move some bytes.  Source addr is within a 16k chunk.  The range starts at
; the offset and ends at offset + size (which is pinned to the chunk).
;
ReadAChunk	name
	clc
	lda <pointer
	adc chunkOffset
	tay
	lda <pointer+2
	adc #0
	pha
	phy	; source address now on stack

	pei <bufferPtr+2
	pei <bufferPtr	; destination address on the stack

	pea 0
	pushword chunkSize	; request count on stack

	pea move_sinc_dinc	; the command word
	jsl MOVE_INFO	; system service call
	
	lda <transferCount	;keep a running total for final exit
	clc
	adc chunkSize
	sta <transferCount
	bcc @nohi
	inc <transferCount+2
@nohi
	rts
	

**********************************************************************
*
* Write takes the buffer and puts it to the RAM disk, after verifying
* all the same stuff Read did.
*
* Inputs: GS/OS direct page
*
* Outputs: GS/OS direct page
*
**********************************************************************

Write	name
;
; Before doing anything else, set up our hybrid DP on the stack after checking
; for a startup error
;

	lda AreWeHere
	bne @WereHere
	jsl SET_DISKSW
	inc AreWeHere
	lda #DrvrDiskSw
	brl WriteError2

@WereHere	jsr MakeOurDP
;
; Make sure there is something to do
;
	lda <requestCount
	ora <requestCount+2
	bne @CheckSize	
	brl WriteExit	; no action in this case
;
; Make sure this has our block size
;
@CheckSize	lda <BlockSize
	cmp #OurBlockSize
	bne wBadCount
	
	lda <requestCount+2	;clone the amount to do into a local
	sta bytesToDo+2
	lda <requestCount
	sta bytesToDo
;
; Make sure the requested transfer is within our RAM disk's size
;
	clc
	lda <blockNum
	adc <TransferBlocks
	sta <temp
	lda <BlockNum+2
	adc <TransferBlocks+2
	sta <temp+2	; temp contains the last block to do

	sec
	lda BlockCount
	sbc <Temp
	lda BlockCount+2
	sbc <temp+2
	bcs @CheckTheCount	; yes, continue
		
	lda #DrvrBadBlock	; no, flag as out of bounds,
	sta OurError

	stz bytesToDo	; but do what will fit anyway.
	stz bytesToDo+2
	lda BlockCount	;reset BytesToDo
	sec	; to amount between starting blk and last blk
	sbc <blockNum
	asl a
	sta BytesToDo+1
;
; Make sure the request count is an integral multiple of the block size
;

@CheckTheCount	lda <requestCount
	and #$1FF	; the block size
	beq DoTheWrite
	
wBadCount	lda #DrvrBadCount
	sta OurError
	brl WriteExit

;
; If we got this far, we have something to write and 'BytesToDo' holds the amount
;
DoTheWrite
	lda ROMVersion
	cmp #1
	beq ROM1write

;
; If we're on ROM 3, just do a big transfer
;
ROM3write	name
	pei <bufferPtr+2
	pei <bufferPtr	; source address on the stack

; calc the offset into the block
	stz <temp
	stz <temp+2
	lda <blockNum
	asl a
	sta <temp+1	; now temp = starting block * $200

; add the offset to the start of the block to get the abs addr	
	clc
	lda <temp
	adc <Pointer
	tay
	lda <temp+2
	adc <Pointer+2
	pha
	phy	; destination address now on stack

	pushlong BytesToDo	; request count on stack

	pea move_sinc_dinc	; the command word
	jsl MOVE_INFO	; system service call

	lda BytesToDo+2	;return the actual amount copied
	sta <transferCount+2
	lda BytesToDo
	sta <transferCount

	brl WriteExit

;
; On ROM 1, the source may be distributed over 1 or more 16k chunks.  The first
; group of bytes may or may not be aligned to the chunk start, but all remaining
; groups will be.  The number of bytes to move must be the lesser of: 16k; the
; remaining bytes available in the chunk; or the request count.
;
ROM1write	name
	lda <blockNum	;figure the offset addr just like ROM 3
	asl a	; (by multiplying by $200)
	and #$3F	;but ignore all above 16k
	xba
	sta chunkOffset	;offset into this 16k chunk

	lda <blockNum	;now find the chunk..
	lsr a	;div by 32 as there are 32 blocks in 16k
	lsr a	
	lsr a	
	lsr a	
	lsr a	
	sta chunkNum
@nextChunk
	jsr GetChunkPointer	;convert chunkNum (in A) to its pointer
	
	lda #$4000	;init chunkSize to the remainder in
	sec	; this chunk
	sbc chunkOffset
	sta chunkSize
	
	ldy bytesToDo+2	;if # to do is bigger, OK
	bne @useChunkSize
	cmp bytesToDo
	bcc @useChunkSize
	lda bytesToDo	;else use the lesser
	sta chunkSize
@useChunkSize
	jsr WriteAChunk	;write 'chunkSize' # of bytes
	
	jsr DecBytesToDo	;reduce 'to do' by chunkSize
	beq WriteExit	; til zero = done.
	
	stz chunkOffset	;read nxt chunk from the beginning
	inc chunkNum
	lda chunkNum	;repeat with next chunk
	bra @nextChunk
;
; That's all.  Remove our DP and get out of here.
;

WriteExit	jsr FixDP
WriteError2	rts


;
; Move some bytes.  Destination addr is within a 16k chunk.  The range starts at
; the offset and ends at offset + size (which is pinned to the chunk).
;
WriteAChunk	name
	pei <bufferPtr+2
	pei <bufferPtr	; source address on the stack

	clc
	lda <pointer
	adc chunkOffset
	tay
	lda <pointer+2
	adc #0
	pha
	phy	; destination address now on stack

	pea 0
	pushword chunkSize	; request count on stack

	pea move_sinc_dinc	; the command word
	jsl MOVE_INFO	; system service call
	
	lda <transferCount
	clc
	adc chunkSize
	sta <transferCount
	bcc @nohi
	inc <transferCount+2
@nohi	rts
	

**********************************************************************
*
* Close doesn't do anything for block devices.
*
* Inputs: GS/OS direct page
*
* Outputs: GS/OS direct page
*
**********************************************************************

Close	name
	rts


**********************************************************************
*
* Status handles all the status subcalls.
*
* Inputs: GS/OS direct page
*
* Outputs: GS/OS direct page
*
**********************************************************************

Status	name
	lda <statusCode
	cmp #4+1	;GetPartitionMap+1
	bcc @handleCall
	
	lda #drvrBadCode	;we don't know about this call so return an error
	sta OurError
	rts
	
@handleCall	asl a
	tax

	stz <TransferCount	;preset to zero as most functions return nothing
	stz <TransferCount+2
	
	jsr (statusTable,x)

	rts

StatusTable	dc.w GetDeviceStatus
	dc.w GetConfigParams
	dc.w GetWaitStatus
	dc.w GetFormatOptions
	dc.w GetPartitionMap
	
;
; Do nothing.  Return no error and transfer count of zero.
;
GetFormatOptions	name
GetPartitionMap	name
	rts
;
; GetDeviceStatus returns our status word and block count
;
GetDeviceStatus	name
	lda #2
	sta <transferCount

*** added 6-Apr-92 DAL -- Don't always return block count!  Check request count first.
	lda <requestCount
	cmp #6
	bcc @skipBlockCount
	lda #6
	sta <transferCount
*** end 6-Apr-92

	ldy #4
	lda BlockCount+2
	sta [<BufferPtr],y
	dey
	dey
	lda BlockCount
	sta [<BufferPtr],y
@skipBlockCount

;
; Ah, yes -- remember to set the disk_switched bit if we are in fact
; switched...
;

	lda AreWeHere
	bne NotSwitched
	lda #StatusWord+1	; set the disk_sw bit
	bra GDSOut

NotSwitched	lda #StatusWord

GDSOut	sta [<BufferPtr]
	rts

;
; GetConfigParameters returns our configuration list, of which we don't
; have one.  Of.
;
GetConfigParams	name
	;fall thru to do same as GetWaitStatus...
;
; GetWaitStatus returns that we're always in wait mode.
;
GetWaitStatus	name
	lda #0
	sta [<BufferPtr]

	lda #2
	sta <transferCount
	rts


**********************************************************************
*
* Control takes the control list and sets our drivers parameters
* accordingly.
*
* Inputs: GS/OS direct page
*
* Outputs: GS/OS direct page
*
**********************************************************************

Control	name

	lda AreWeHere
	bne @WereHere

	jsl SET_DISKSW

	inc AreWeHere

	lda #DrvrDiskSw
	bra @error

@WereHere	lda <controlCode
	cmp #setPartitionMap+1 ;maximum command we know+1
	bcc @handleCall
	
	lda #drvrBadCode	;invalid control subcall
@error	sta OurError
	rts
	
@handleCall	asl a
	tax

	stz <TransferCount	;preset to zero as most functions return nothing
	stz <TransferCount+2
	
	jsr (controlTable,x)

	rts

ControlTable	dc.w doResetDevice
	dc.w doFormatDevice
	dc.w doEjectMedium
	dc.w doSetConfigParams
	dc.w doSetWaitStatus
	dc.w doSetFormatOptions
	dc.w doAssignPartitionOwner
	dc.w doArmSignal
	dc.w doDisarmSignal
	dc.w doSetPartitionMap

;
; The following routines do nothing, return no error, and zero transfer count.
;

NoAction	name
doResetDevice	name
doEjectMedium	name
doSetFormatOptions	name
doAssignPartitionOwner name
doArmSignal	name
doDisarmSignal	name
doSetPartitionMap	name
	rts

;
; FormatDevice does a physical format.  For us, that's zeroing the entire disk.
;
doFormatDevice	name
blkHandle	equ transferCount	;borrow some dp vars for ROM 1
chunkHandle	equ cachePointer

	lda >DiskHandles	;get the first handle
	sta <blkHandle
	lda >DiskHandles+2
	sta <blkHandle+2
	
	lda ROMversion
	cmp #1
	beq ROM1Format
	
ROM3Format	name
	lda [<blkHandle]	;only 1 handle, deref in place
	tax
	ldy #2
	lda [<blkHandle],y
	sta <blkHandle+2
	stx <blkHandle	
	
	pushlong #ZeroWord	; address of word of $0000
	pei <blkHandle+2
	pei <blkHandle
	pha
	pha
	pushlong >DiskHandles
	_GetHandleSize	; count now on the stack
	pea move_scon_dinc	; source constant, destination inc
	jsl MOVE_INFO
	rts
	
ROM1Format	name
	lda BlockCount	;start at the handle with the last block
	dec a
	lsr a	;div by 32 to find which 16k it's in
	lsr a	
	lsr a	
	lsr a	
	lsr a	
	sta chunkNum
@nextChunk
	pha	;(chunkNum * 20) + 1st handle addr
	asl a	; = this chunk handle
	asl a
	adc 1,s	
	asl a	
	asl a	
	plx	
	adc <blkHandle
	sta <chunkHandle
	lda <blkHandle+2
	sta <chunkHandle+2
	
	ldy #2
	lda [chunkHandle],y	;deref in place
	tax
	lda [chunkHandle]
	sta <chunkHandle
	stx <chunkHandle+2

	jsr FormatAChunk	;zero out this 16k chunk
	dec chunkNum
	lda chunkNum
	bpl @nextchunk	;and loop on remaining chunks
	rts
	
FormatAChunk	name
	pushlong #ZeroWord	; address of word of $0000
	pei <chunkHandle+2
	pei <chunkHandle
	pushlong #$4000
	pea move_scon_dinc	; source constant, destination inc
	jsl MOVE_INFO
	rts
	

;
; SetConfigParameters has to make sure they don't do something stupid
;
doSetConfigParams	name
	;fall thru to do same as SetWaitStatus...
	;..if input non-zero, return error
;
; SetWaitStatus checks to make sure they don't ask for no-wait mode
;
doSetWaitStatus	name
	lda [<BufferPtr]
	bne ConfigError
	rts
	
ConfigError	name
	lda #DrvrBadParm
	sta OurError
	rts


**********************************************************************
*
* Flush does nothing for block devices
*
* Inputs: GS/OS direct page
*
* Outputs: GS/OS direct page
*
**********************************************************************

Flush	name
	rts


**********************************************************************
*
* Shutdown undoes what we did at Startup.
*
* Inputs: GS/OS direct page, warm_cold_flag
*
* Outputs: GS/OS direct page
*
**********************************************************************

Shutdown	name
	stz AreWeHere
	rts


*******************************************************************************
*
* Get the pointer to the 16k chunk
*
* Input: A = chunkNum ; <handle valid
*
* Output: <Pointer set
*
* Uses <temp
*
*******************************************************************************
;To find the handle of the proper block, multiply the chunkNum by 20 (width of
; a handle) and add the result to the first handle.  Deref and return the pointer.

GetChunkPointer	name
	pha	
	asl a
	asl a
	adc 1,s	;times 5
	asl a	;times 10
	asl a	;times 20
	plx	;fix stk
	adc <handle
	sta <temp
	lda <handle+2
	sta <temp+2
	
	ldy #2	;deref
	lda [temp],y
	sta <pointer+2
	lda [temp]
	sta <pointer
	rts
	
	
*******************************************************************************
*
* Reduce the bytes to do count by the amount done
*  and step the buffer pointer for the next chunk
*
* Inputs: None
*
* Outputs: Z=1=done (no more to do)
*
*******************************************************************************

DecBytesToDo	name
	lda <bufferPtr	;*** added 4-Mar-93 SS
	clc	;*** bump the caller's addr for MOVE_INFO
	adc chunkSize
	sta <bufferPtr
	bcc @nohi
	inc <bufferPtr+2
@nohi
	lda bytesToDo
	sec
	sbc chunkSize
	sta bytesToDo
	lda bytesToDo+2
	sbc #0
	sta bytesToDo+2
	ora bytesToDo
	rts
	

**********************************************************************
*
* MakeOurDP creates a DPsize-byte direct page on the stack, filling the
* first 36 bytes of it with the parameters from GS/OS direct page.
*
* Inputs: None
*
* Outputs: None
*
**********************************************************************

MakeOurDP	name
	ply	; the RTS address

	tdc
	sta GSOSDP	; save this for later

	tsc
	sec
	sbc #DPSize	; how many bytes to use
	tcs	; now it's the stack pointer
	phy	; now the RTS address is back
	inc a	; fix the offsets for DP
	tcd	; and set up our DP

;
; Now we get to copy GS/OS direct page to ours without admitting we know
; it's at $BD00...
;

	tay	; y contains destination
	ldx GSOSDP	; x contains source
	lda #dibPointer+3	; one less than count
	phb
	mvn $00,$00	; here's the move
	plb
;
; Now we set up the other things on our DP
;
	lda >DiskHandles
	sta <Handle
	lda >DiskHandles+2
	sta <Handle+2

	lda [<Handle]
	sta <Pointer
	ldy #2
	lda [<Handle],y
	sta <Pointer+2	; now they point to block zero

;
; The number of blocks to transfer is the transfer count / $200
;
	lda <requestCount+1
	sta <TransferBlocks
	lda <requestCount+3
	and #$00FF	; clear the high byte
	lsr a
	sta <TransferBlocks+2
	ror <TransferBlocks	; that's tc / $200

	rts


**********************************************************************
*
* FixDP undoes what MakeOurDP did, and copies the parameters back
* to GS/OS direct page.
*
* Inputs: none
*
* Outputs: none
*
**********************************************************************

FixDP
;
; Now we get to copy our stuff to the GS/OS DP without admitting we know
; it's at $BD00...
;

	ldy GSOSDP	; y contains destination
	tyx
	lda >bufferPtr,x	;*** 4-Mar-93 SS
	sta <bufferPtr	;*** restore caller's buffer ptr after using it
	lda >bufferPtr+2,x
	sta <bufferPtr+2
	tdc
	tax	; x contains source
	lda #dibPointer+3	; one less than count
	phb
	mvn $00,$00	; here's the move
	plb

	ply	; the RTS address

	tsc
	clc
	adc #DPSize
	tcs	; fixed the stack

	lda GSOSDP
	tcd	; fixed the direct page

	phy
	rts	; and this one's done


******************************************************************************
*
* Here's our driver's DIB and supporting data.
*
******************************************************************************

OurDIB
LinkPtr	dc.l 0	; only one device
EntryPtr	dc.l RAMDiskCode	; our entry point
DevChars	dc.w %1000101111101000 ; our characteristics:
;
; For those playing along at home: RAM disk, restartable, not speed-dependent,
; block device, allows reading, writing and formatting, no removable media
;

BlockCount	dc.l 0	; we have to fill this in later
DevName	str 'RAMDISK'	; our device name
DevFiller	dc.b '                        ' ; spaces for filler
SlotNum	dc.w 5	; only in internal SmartPort
UnitNum	dc.w 0	; fill this in at startup
Version	dc.w TheVersion
DeviceID	dc.w $000E	; RAM disk
headLink	dc.w 0	; no head link
fwdLink	dc.w 0	; no forward link
ExtDIBPtr	dc.l 0	; no extended DIB
DIBDevNum	dc.w 0	; filled in by the device dispatcher

;
; These things aren't in the DIB but are in this segment
;

ZeroWord	dc.w 0	; word of zero
AreWeHere	dc.w 0	; incremented on startup
ROMVersion	ds.b 2	; for our ROM version
MaxHandles	ds.b 2	; number of handles for ROM 01
GSOSDP	ds.b 2	; stored GS/OS direct page
OurError	ds.b 2	; saved error code to return
BytesToDo	ds.b 4	; running count of bytes remaining to r/w

;
; These are needed for ROM1 support
;

ChunkNum	ds.b 2	; which 16k handle we are in
ChunkOffset	ds.b 2	; offset into the 16k handle
ChunkSize	ds.b 2	; # bytes to read/write in this chunk


	dc.b 'by Matt, Dave, Steve, & Jim'

	DateTimeStamp
	
	EndP

	END

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSI Command Table b/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSI Command Table
new file mode 100644
index 0000000..dea7078
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSI Command Table	
@@ -0,0 +1 @@
+
;*******************************************************
;
;	SCSI Driver 'Command Table'.
;
;	Written by Matt Gulick.		Started May 20,1988
;
;	Copyright Apple Computer, Inc. 1988,89
;
;*******************************************************

;*******************************************************
;
;	This file contains the Command Tables that actually
;	drives the SCSI Driver when talking to a target
;	device.  By changing these tables, the SCSI Driver
;	will be able to talk to almost any class of SCSI
;	Device.  There are actually two tables in this file.
;	The first table is a list of a two word group for
;	each command supported.
;
;	The first word is the actual SCSI Command Number
;	followed by the low word of that commands table
;	address.  We use the only the low word because the
;	second table is in the same bank as the indexing
;	table.
;
;	The second table is the actual command translation
;	data.  The first word is a set of flags that
;	indicate some of the translation and verification
;	that needs to take place.
;
;		Bit	15	=	Data is being sent to the device
;			14	=	Data is to be received by us
;			13	=	This is a Status Command
;			12	=	This is a Control Command
;			11	=	Data I/O Command
;			10	=	Device I/O Command
;			 9	=	Command Includes Block Number
;			 8	=	Must be first device if linked
;			 7	=	Internal Driver Command Only
;			 6	=	Must issue a DISK_SW with this call
;			 5	=	Results in device offline
;			 4	=	Reserved
;			 3	=	Command Data needs no translation
;			 2	=	Reserved
;			 1	=	Block request count goes into command
;			 0	=	Byte request count goes into command
;
;	The second word is a time out tick count to be used by
;	the SCSI Manager to determine when to abandone any SCSI
;	Device transaction due to lack of response by the
;	target.  Each tick = 250 ms.
;
;	Any additional words are only used if Bit 3 above is
;	zero.  The translation bytes conatin two offsets.  A
;	Source and a Destination offset.  This is used by the
;	driver to take information fron the caller's command
;	(Source) and .OR. them in to their proper location in
;	the SCSI Command Packet (Destination).
;
;		MSBit							LSBit
;			%0000	0000	0000	0000
;			
;			   R	  S		  R		  D
;			   e	  o		  e		  e
;			   s	  u		  s		  s
;			   e	  r		  e		  t
;			   r	  c		  r		  i
;			   v	  e		  v		  t
;			   e			  e		  i
;			   d			  d		  n
;									  a
;									  t
;									  i
;									  o
;									  n
;
;	A NULL Word at any location in the command entry
;	will terminate translation for that command.
;
;*******************************************************

;*******************************************************
;
;	Revision History:
;
;*******************************************************

;	May 20, 1988	File started.
;	Feb 28, 1989	Added Tape Drive Tables

				STRING		PASCAL
				BLANKS		OFF
				PAGESIZE	70
				PRINT		NOGEN
				PRINT		NOMDIR
				MACHINE		M65816

				PRINT		OFF

				INCLUDE		'scsihd.equates'
				INCLUDE		'M16.MEMORY'
				INCLUDE		'M16.UTIL'
				PRINT		ON

				EJECT
			
;*******************************************************
;
;	List of Commands Supported:
;
;*******************************************************

			EXPORT	cmd_t_tbl
cmd_t_tbl	PROC

;-------------------------------------------------------------------------------

			IF		scsi_dtype = direct_acc	THEN
									;
									; 
									;
									; 
			dc.w	$0028			; Command $28 'READ (EXTENDED)'
			dc.w	scsi_cmd28		; Mandatory
									; 
			dc.w	$002A			; Command $2A 'WRITE (EXTENDED)'
			dc.w	scsi_cmd2A		; Mandatory
									; 
			dc.w	$0008			; Command $08 'READ'
			dc.w	scsi_cmd08		; Mandatory
									; 
			dc.w	$000A			; Command $0A 'WRITE'
			dc.w	scsi_cmd0A		; Mandatory
									;
			dc.w	$0000			; Command $00 'TEST UNIT READY'
			dc.w	scsi_cmd00		; Mandatory
									;
			dc.w	$0003			; Command $03 'REQUEST SENSE'
			dc.w	scsi_cmd03		; Mandatory
									; 
			dc.w	$0025			; Command $25 'READ CAPACITY'
			dc.w	scsi_cmd25		; Mandatory
									; 
			dc.w	$0012			; Command $12 'INQUIRY'
			dc.w	scsi_cmd12		; Mandatory
									; 
			dc.w	$001A			; Command $1A 'MODE SENSE'
			dc.w	scsi_cmd1A		; Optional
									; 
			dc.w	$0015			; Command $15 'MODE SELECT'
			dc.w	scsi_cmd15		; Optional
									; 
			dc.w	$0004			; Command $04 'FORMAT UNIT'
			dc.w	scsi_cmd04		; Mandatory
									; 
			dc.w	$001E			; Command $1E 'PREVENT/ALLOW REMOVAL'
			dc.w	scsi_cmd1E		; Optional
									;
			dc.w	$0001			; Command $01 'REZERO UNIT'
			dc.w	scsi_cmd01		; Optional
									; 
			dc.w	$0007			; Command $07 'REASSIGN BLOCKS'
			dc.w	scsi_cmd07		; Optional
									; 
			dc.w	$000B			; Command $0B 'SEEK'
			dc.w	scsi_cmd0B		; Optional
									; 
			dc.w	$002B			; Command $2B 'SEEK (EXTENDED)'
			dc.w	scsi_cmd2B		; Optional
									; 
			dc.w	$0016			; Command $16 'RESERVE UNIT'
			dc.w	scsi_cmd16		; Mandatory
									; 
			dc.w	$0017			; Command $17 'RELEASE UNIT'
			dc.w	scsi_cmd17		; Mandatory
									; 
			dc.w	$001B			; Command $1B 'START/STOP UNIT'
			dc.w	scsi_cmd1B		; Optional
									; 
			dc.w	$001C			; Command $1C 'RECEIVE DIAGNOSTIC RESULTS'
			dc.w	scsi_cmd1C		; Optional
									; 
			dc.w	$001D			; Command $1D 'SEND DIAGNOSTICS'
			dc.w	scsi_cmd1D		; Mandatory
									; 
			dc.w	$002E			; Command $2E 'WRITE AND VERIFY'
			dc.w	scsi_cmd2E		; Optional
									; 
			dc.w	$002F			; Command $2F 'VERIFY'
			dc.w	scsi_cmd2F		; Optional
									; 
			dc.w	$0033			; Command $33 'SET LIMITS'
			dc.w	scsi_cmd33		; Optional
									; 
			dc.w	$0034			; Command $34 'PRE-FETCH'
			dc.w	scsi_cmd34		; Optional
									; 
			dc.w	$0035			; Command $35 'SYNCHRONIZE CACHE'
			dc.w	scsi_cmd35		; Optional
									;
			dc.w	$0036			; Command $36 'LOCK/UNLOCK CACHE'
			dc.w	scsi_cmd36		; Optional
									; 
			dc.w	$0037			; Command $37 'READ DEFECT DATA'
			dc.w	scsi_cmd37		; Optional
									; 
			dc.w	$003B			; Command $3B 'WRITE BUFFER'
			dc.w	scsi_cmd3B		; Optional
									; 
			dc.w	$003C			; Command $3C 'READ BUFFER'
			dc.w	scsi_cmd3C		; Optional
									; 
			dc.w	$003E			; Command $3E 'READ LONG'
			dc.w	scsi_cmd3E		; Optional
									; 
			dc.w	$003F			; Command $3F 'WRITE LONG'
			dc.w	scsi_cmd3F		; Optional
									; 
			dc.w	$004C			; Command $4C 'LOG SELECT'
			dc.w	scsi_cmd4C		; Optional
									; 
			dc.w	$004D			; Command $4D 'LOG SENSE'
			dc.w	scsi_cmd4D		; Optional
									; 
			dc.w	$0055			; Command $55 'MODE SELECT'
			dc.w	scsi_cmd55		; Optional
									; 
			dc.w	$005A			; Command $5A 'MODE SENSE'
			dc.w	scsi_cmd5A		; Mandatory
									; 
			dc.w	$00B3			; Command $B3 'SET LIMITS'
			dc.w	scsi_cmdB3		; Optional

			ENDIF

;-------------------------------------------------------------------------------

			IF		scsi_dtype = apple_cd	THEN
									;
									;
			dc.w	$00CC			; Command $CC 'AUDIO STATUS'
			dc.w	scsi_cmdCC		; Mandatory
									; 
			dc.w	$0003			; Command $03 'REQUEST SENSE'
			dc.w	scsi_cmd03		; Mandatory
									; 
			dc.w	$0028			; Command $28 'READ (EXTENDED)'
			dc.w	scsi_cmd28		; Mandatory
									; 
			dc.w	$0008			; Command $08 'READ'
			dc.w	scsi_cmd08		; Mandatory
									; 
			dc.w	$0000			; Command $00 'TEST UNIT READY'
			dc.w	scsi_cmd00		; Mandatory
									;
			dc.w	$0012			; Command $12 'INQUIRY'
			dc.w	scsi_cmd12		; Mandatory
									; 
			dc.w	$001A			; Command $1A 'MODE SENSE'
			dc.w	scsi_cmd1A		; Optional
									; 
			dc.w	$0025			; Command $25 'READ CAPACITY'
			dc.w	scsi_cmd25		; Mandatory
									; 
			dc.w	$0015			; Command $15 'MODE SELECT'
			dc.w	scsi_cmd15		; Optional
									; 
			dc.w	$00C0			; Command $C0 'EJECT DISK'
			dc.w	scsi_cmdC0		; Mandatory
									; 
			dc.w	$001E			; Command $1E 'PREVENT/ALLOW REMOVAL'
			dc.w	scsi_cmd1E		; Optional
									; 
			dc.w	$00C9			; Command $C9 'AUDIO PLAY'
			dc.w	scsi_cmdC9		; Mandatory
									; 
			dc.w	$00CE			; Command $CE 'AUDIO CONTROL'
			dc.w	scsi_cmdCE		; Mandatory
									; 
			dc.w	$00CA			; Command $CA 'AUDIO PAUSE'
			dc.w	scsi_cmdCA		; Mandatory
									; 
			dc.w	$00CB			; Command $CB 'AUDIO STOP'
			dc.w	scsi_cmdCB		; Mandatory
									; 
			dc.w	$00CD			; Command $CD 'AUDIO SCAN'
			dc.w	scsi_cmdCD		; Mandatory
									;
			dc.w	$0001			; Command $01 'REZERO UNIT'
			dc.w	scsi_cmd01		; Optional
									;
			dc.w	$000B			; Command $0B 'SEEK'
			dc.w	scsi_cmd0B		; Optional
									; 
			dc.w	$0016			; Command $16 'RESERVE UNIT'
			dc.w	scsi_cmd16		; Mandatory
									; 
			dc.w	$0017			; Command $17 'RELEASE UNIT'
			dc.w	scsi_cmd17		; Mandatory
									; 
			dc.w	$001B			; Command $1B 'START/STOP UNIT'
			dc.w	scsi_cmd1B		; Optional
									; 
			dc.w	$001C			; Command $1C 'RECEIVE DIAGNOSTIC RESULTS'
			dc.w	scsi_cmd1C		; Optional
									; 
			dc.w	$001D			; Command $1D 'SEND DIAGNOSTICS'
			dc.w	scsi_cmd1D		; Mandatory
									; 
			dc.w	$002B			; Command $2B 'SEEK (EXTENDED)'
			dc.w	scsi_cmd2B		; Optional
									; 
			dc.w	$002F			; Command $2F 'VERIFY'
			dc.w	scsi_cmd2F		; Optional
									; 
			dc.w	$003B			; Command $3B 'WRITE BUFFER'
			dc.w	scsi_cmd3B		; Optional
									; 
			dc.w	$003C			; Command $3C 'READ BUFFER'
			dc.w	scsi_cmd3C		; Optional
									; 
			dc.w	$004C			; Command $4C 'LOG SELECT'
			dc.w	scsi_cmd4C		; Optional
									; 
			dc.w	$004D			; Command $4D 'LOG SENSE'
			dc.w	scsi_cmd4D		; Optional
									; 
			dc.w	$0055			; Command $55 'MODE SELECT (EXTENDED)'
			dc.w	scsi_cmd55		; Optional
									; 
			dc.w	$005A			; Command $5A 'MODE SENSE (EXTENDED)'
			dc.w	scsi_cmd5A		; Optional
									; 
			dc.w	$00C1			; Command $C1 'READ TOC'
			dc.w	scsi_cmdC1		; Mandatory
									; 
			dc.w	$01C2			; Command $1C2 'READ Q SUBCODE VOLUME LEVEL'
			dc.w	scsi_cmd1C2		; Mandatory
									; 
			dc.w	$00C2			; Command $C2 'READ Q SUBCODE'
			dc.w	scsi_cmdC2		; Mandatory
									; 
			dc.w	$00C3			; Command $C3 'READ HEADER'
			dc.w	scsi_cmdC3		; Mandatory
									; 
			dc.w	$00C8			; Command $C8 'AUDIO TRACK SEARCH'
			dc.w	scsi_cmdC8		; Mandatory

			ENDIF

;-------------------------------------------------------------------------------

			IF			scsi_dtype = mcd_40	THEN
									;
									; 
									;
									; 
			dc.w	$002A			; Command $2A 'WRITE (EXTENDED)'
			dc.w	scsi_cmd2A		; Mandatory
									; 
			dc.w	$0028			; Command $28 'READ (EXTENDED)'
			dc.w	scsi_cmd28		; Mandatory
									; 
			dc.w	$002B			; Command $2B 'SEEK (EXTENDED)'
			dc.w	scsi_cmd2B		; Optional
									; 
			dc.w	$001B			; Command $1B 'LOAD/UNLOAD UNIT'
			dc.w	scsi_cmd1B		; Optional
									; 
			dc.w	$0000			; Command $00 'TEST UNIT READY'
			dc.w	scsi_cmd00		; Mandatory
									;
			dc.w	$0003			; Command $03 'REQUEST SENSE'
			dc.w	scsi_cmd03		; Mandatory
									; 
			dc.w	$0001			; Command $01 'REZERO UNIT'
			dc.w	scsi_cmd01		; Optional
									; 
			dc.w	$0025			; Command $25 'READ CAPACITY'
			dc.w	scsi_cmd25		; Mandatory
									; 
			dc.w	$0012			; Command $12 'INQUIRY'
			dc.w	scsi_cmd12		; Mandatory
									; 
			dc.w	$001A			; Command $1A 'MODE SENSE'
			dc.w	scsi_cmd1A		; Optional
									; 
			dc.w	$0015			; Command $15 'MODE SELECT'
			dc.w	scsi_cmd15		; Optional
									; 
			dc.w	$0016			; Command $16 'RESERVE UNIT'
			dc.w	scsi_cmd16		; Mandatory
									; 
			dc.w	$0017			; Command $17 'RELEASE UNIT'
			dc.w	scsi_cmd17		; Mandatory
									; 
			dc.w	$000A			; Command $0A 'WRITE'
			dc.w	scsi_cmd0A		; Mandatory
									;
			dc.w	$0008			; Command $08 'READ'
			dc.w	scsi_cmd08		; Mandatory
									; 
			dc.w	$000B			; Command $0B 'SEEK'
			dc.w	scsi_cmd0B		; Optional
									; 
			dc.w	$0004			; Command $04 'FORMAT UNIT'
			dc.w	scsi_cmd04		; Mandatory
									; 
			dc.w	$0007			; Command $07 'REASSIGN BLOCKS'
			dc.w	scsi_cmd07		; Optional
									; 
			dc.w	$001C			; Command $1C 'RECEIVE DIAGNOSTIC RESULTS'
			dc.w	scsi_cmd1C		; Optional
									; 
			dc.w	$001D			; Command $1D 'SEND DIAGNOSTICS'
			dc.w	scsi_cmd1D		; Mandatory
									; 
			dc.w	$0037			; Command $37 'READ DEFECT DATA'
			dc.w	scsi_cmd37		; Optional
									; 
			dc.w	$003B			; Command $3B 'WRITE BUFFER'
			dc.w	scsi_cmd3B		; Optional
									; 
			dc.w	$003C			; Command $3C 'READ BUFFER'
			dc.w	scsi_cmd3C		; Optional
									; 
			dc.w	$0005			; Command $05 'Send QIC 100 Sys Data'
			dc.w	scsi_cmd05		; Optional
									; 
			dc.w	$0006			; Command $06 'Recv QIC 100 Sys Data'
			dc.w	scsi_cmd06		; Optional
									; 
			dc.w	$0009			; Command $09 'VERIFY UNIT'
			dc.w	scsi_cmd09		; Optional
									; 
			dc.w	$000D			; Command $0D 'Read SCSI Defect (Vendor)'
			dc.w	scsi_cmd0D		; Optional
									; 
			dc.w	$000E			; Command $0E 'Read Controller Info'
			dc.w	scsi_cmd0E		; Optional
									; 
			dc.w	$000F			; Command $0F 'Write Controller Info'
			dc.w	scsi_cmd0F		; Optional
									; 
			dc.w	$0010			; Command $10 'DRIVE PASS-THRU'
			dc.w	scsi_cmd10		; Optional
									; 
			dc.w	$0011			; Command $11 'READ DRIVE LINES'
			dc.w	scsi_cmd11		; Optional
									; 
			dc.w	$0013			; Command $13 'Read QIC INFO'
			dc.w	scsi_cmd13		; Optional
									; 
			dc.w	$0014			; Command $14 'Write QIC INFO'
			dc.w	scsi_cmd14		; Optional
									; 
			dc.w	$0019			; Command $19 'Read QIC Defect Data'
			dc.w	scsi_cmd19		; Optional
									; 
			dc.w	$004C			; Command $4C 'LOG SELECT'
			dc.w	scsi_cmd4C		; Optional
									; 
			dc.w	$004D			; Command $4D 'LOG SENSE'
			dc.w	scsi_cmd4D		; Optional
									; 
			dc.w	$0055			; Command $55 'MODE SELECT (EXTENDED)'
			dc.w	scsi_cmd55		; Optional
									; 
			dc.w	$005A			; Command $5A 'MODE SENSE (EXTENDED)'
			dc.w	scsi_cmd5A		; Optional

			ENDIF

;-------------------------------------------------------------------------------

			IF			scsi_dtype = scanner	THEN
									;
									; 
									;
									; 
			dc.w	$0034			; Command $34 'GET DATA STATUS'
			dc.w	scsi_cmd34		; Optional
									; 
			dc.w	$0007			; Command $07 'GET DATA STATUS'
			dc.w	scsi_cmd07		; Optional
									; 
			dc.w	$000E			; Command $0E 'EXPLORATORY STATUS'
			dc.w	scsi_cmd0E		; Optional
									; 
			dc.w	$0011			; Command $11 'SPACE'
			dc.w	scsi_cmd11		; Optional
									; 
			dc.w	$0028			; Command $28 'READ (EXTENDED)'
			dc.w	scsi_cmd28		; Mandatory
									; 
			dc.w	$0008			; Command $08 'READ'
			dc.w	scsi_cmd08		; Mandatory
									; 
			dc.w	$000A			; Command $0A 'SEND'
			dc.w	scsi_cmd0A		; Mandatory
									; 
			dc.w	$0024			; Command $24 'DEFINE WINDOW PARAMETERS'
			dc.w	scsi_cmd24		; Mandatory
									; 
			dc.w	$001B			; Command $1B 'SCAN (EXTENDED)'
			dc.w	scsi_cmd1B		; Optional
									; 
			dc.w	$0000			; Command $00 'TEST UNIT READY'
			dc.w	scsi_cmd00		; Mandatory
									;
			dc.w	$0012			; Command $12 'INQUIRY'
			dc.w	scsi_cmd12		; Mandatory
									; 
			dc.w	$0003			; Command $03 'REQUEST SENSE'
			dc.w	scsi_cmd03		; Mandatory
									; 
			dc.w	$0025			; Command $25 'GET WINDOW PARAMETRS'
			dc.w	scsi_cmd25		; Optional
									; 
			dc.w	$001A			; Command $1A 'MODE SENSE'
			dc.w	scsi_cmd1A		; Optional
									; 
			dc.w	$0015			; Command $15 'MODE SELECT'
			dc.w	scsi_cmd15		; Optional
									; 
			dc.w	$0016			; Command $16 'RESERVE UNIT'
			dc.w	scsi_cmd16		; Mandatory
									; 
			dc.w	$0017			; Command $17 'RELEASE UNIT'
			dc.w	scsi_cmd17		; Mandatory
									; 
			dc.w	$0031			; Command $31 'MEDIUM POSSITION'
			dc.w	scsi_cmd31		; Optional
									; 
			dc.w	$002A			; Command $2A 'SEND (EXTENDED)'
			dc.w	scsi_cmd2A		; Optional
									; 
			dc.w	$0018			; Command $18 'COPY'
			dc.w	scsi_cmd18		; Optional
									; 
			dc.w	$001C			; Command $1C 'RECEIVE DIAGNOSTIC RESULTS'
			dc.w	scsi_cmd1C		; Optional
									; 
			dc.w	$001D			; Command $1D 'SEND DIAGNOSTICS'
			dc.w	scsi_cmd1D		; Mandatory
									; 
			dc.w	$0039			; Command $39 'COMPARE'
			dc.w	scsi_cmd39		; Optional
									; 
			dc.w	$003A			; Command $3A 'COPY AND VERIFY'
			dc.w	scsi_cmd3A		; Optional
									; 
			dc.w	$003B			; Command $3B 'WRITE BUFFER'
			dc.w	scsi_cmd3B		; Optional
									; 
			dc.w	$003C			; Command $3C 'READ BUFFER'
			dc.w	scsi_cmd3C		; Optional
									; 
			dc.w	$004C			; Command $4C 'LOG SELECT'
			dc.w	scsi_cmd4C		; Optional
									; 
			dc.w	$004D			; Command $4D 'LOG SENSE'
			dc.w	scsi_cmd4D		; Optional
									; 
			dc.w	$0055			; Command $55 'MODE SELECT (EXTENDED)'
			dc.w	scsi_cmd55		; Optional
									; 
			dc.w	$005A			; Command $5A 'MODE SENSE (EXTENDED)'
			dc.w	scsi_cmd5A		; Optional

			ENDIF

;-------------------------------------------------------------------------------

			IF		scsi_dtype = appl_laser	THEN
									;
									; 
									;
									;
			dc.w	$0000			; Command $00 'TEST UNIT READY'
			dc.w	scsi_cmd00		; Mandatory
									; 
			dc.w	$0001			; Command $01 'RESET PRINTER'
			dc.w	scsi_cmd01		; Optional
									;
			dc.w	$0002			; Command $02 'DOWN LOAD CODE'
			dc.w	scsi_cmd02		; Optional
									; 
			dc.w	$0003			; Command $03 'REQUEST SENSE'
			dc.w	scsi_cmd03		; Mandatory
									; 
			dc.w	$0004			; Command $04 'FORMAT UNIT'
			dc.w	scsi_cmd04		; Mandatory
									;
			dc.w	$0005			; Command $05 'DRAW BITS'
			dc.w	scsi_cmd05		; Optional
									;
			dc.w	$0006			; Command $06 'CLEAR BITS'
			dc.w	scsi_cmd06		; Optional
									; 
			dc.w	$000A			; Command $0A 'PRINT'
			dc.w	scsi_cmd0A		; Mandatory
									; 
			dc.w	$0012			; Command $12 'INQUIRY'
			dc.w	scsi_cmd12		; Mandatory
									; 
			dc.w	$0015			; Command $15 'MODE SELECT'
			dc.w	scsi_cmd15		; Optional
									; 
			dc.w	$0016			; Command $16 'RESERVE UNIT'
			dc.w	scsi_cmd16		; Mandatory
									; 
			dc.w	$0017			; Command $17 'RELEASE UNIT'
			dc.w	scsi_cmd17		; Mandatory
									; 
			dc.w	$001A			; Command $1A 'MODE SENSE'
			dc.w	scsi_cmd1A		; Optional

			ENDIF

;-------------------------------------------------------------------------------

			dc.w	$FFFF			; End of the List.
			dc.w	$FFFF			;

			EJECT


;*******************************************************
;
;	Command translation Table:
;
;*******************************************************

;*******************************************************
;
;scsi_cmdxx	dc.w	scsit_tx++\		; SCSI Send Data Command
;					scsit_rx++\		; SCSI Receive Data Command
;					scsit_stat++\	; SCSI Status Command
;					scsit_cont++\	; SCSI Control Command
;					scsit_data++\	; SCSI Data I/O Command
;					scsit_dvc++\	; SCSI Device I/O Command
;					scsit_blk++\	; Command has a Block Number
;					scsic_1st++\	; Must be first device if linked
;					scsic_int++\	; Internal Driver Command only
;					scsic_dsw++\	; Issue DISK_SW with this call
;					scsic_off++\	; Device is going offline.
;					scsic_tout++\	; Adjust time out by block count
;					scsid_asis++\	; CMD Data is in SCSI format
;					scsid_blk++\	; Convert Trans Count to Blocks
;					scsid_byte++\	; Leave Trans Count in Bytes
;					scsid_none		; Transfer count does not go in CMD
;			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
;			dc.w	scsi_endcmd		; End of SCSI Translation Table
;
;*******************************************************

;-------------------------------------------------------------------------------

			IF		scsi_dtype = direct_acc	THEN

									;
									; Command $00 'TEST UNIT READY'
									; Mandatory
									; 
scsi_cmd00	dc.w	scsit_stat++\	; It is a Status Command
					scsit_dvc++\	; It is a Device I/O Command
					scsid_asis++\	; It is an as is Packet
					scsid_none		; Length is not in command
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd
									;
									; Command $01 'REZERO UNIT'
									; Optional
									; 
scsi_cmd01	dc.w	scsit_cont++\	; It is a Control Command
					scsit_dvc++\	; It is a Device I/O Command
					scsid_asis++\	; It is an as is Packet
					scsid_none		; Length is not in command
			dc.w	2*one_min		; Time out = 2 minutes.
			dc.w	scsi_endcmd
									;
									; Command $03 'REQUEST SENSE'
									; Mandatory
									; 
scsi_cmd03	dc.w	scsit_rx++\		; It requests data from target
					scsit_stat++\	; It is a Status Command
					scsit_dvc++\	; It is a Device I/O Command
					scsid_asis++\	; It is an as is Packet
					scsid_byte		; Length is in Bytes
			dc.w	10*one_sec		; Time out = 10 second ticks.
			dc.w	scsi_endcmd
									;
									; Command $04 'FORMAT UNIT'
									; Mandatory
									; 
scsi_cmd04	dc.w	scsit_tx++\		; It sends data to the target
					scsit_cont++\	; It is a Control Command
					scsit_dvc++\	; It is a Device I/O Command
					scsic_1st++\	; Must be first device if linked
					scsic_dsw++\	; Issue DISK_SW with this call
					scsic_off++\	; Device is going offline.
					scsid_asis++\	; It is an as is Packet
					scsid_none		; Length is not in command
			dc.w	60*one_min		; Time out = 10 minutes.
			dc.w	scsi_endcmd
									;
									; Command $07 'REASSIGN BLOCKS'
									; Optional
									; 
scsi_cmd07	dc.w	scsit_tx++\		; It sends data to the target
					scsit_cont++\	; It is a Control Command
					scsit_dvc++\	; It is a Device I/O Command
					scsic_1st++\	; Must be first device if linked
					scsic_int++\	; Internal Driver Command Only
					scsid_asis++\	; It is an as is Packet
					scsid_none		; Length is not in command
			dc.w	1*one_sec		; Time out = one second.
			dc.w	scsi_endcmd
									;
									; Command $08 'READ'
									; Mandatory
									; 
scsi_cmd08	dc.w	scsit_rx++\		; It requests data from target
					scsit_stat++\	; It is a Status Command
					scsit_data++\	; It is a Data I/O Command
					scsic_tout++\	; Adjust time out by block count
					scsit_blk++\	; It has a Block Number
					scsid_asis++\	; It is an as is Packet
					scsid_blk		; Length is in Blocks
			dc.w	one_sec			; Time out = 1 second/Block.
			dc.w	scsi_endcmd
									;
									; Command $0A 'WRITE'
									; Mandatory
									; 
scsi_cmd0A	dc.w	scsit_tx++\		; It sends data to the target
					scsit_cont++\	; It is a Control Command
					scsit_data++\	; It is a Data I/O Command
					scsic_tout++\	; Adjust time out by block count
					scsit_blk++\	; It has a Block Number
					scsid_asis++\	; It is an as is Packet
					scsid_blk		; Length is in Blocks
			dc.w	one_sec			; Time out = 1 second/Block.
			dc.w	scsi_endcmd
									;
									; Command $0B 'SEEK'
									; Optional
									; 
scsi_cmd0B	dc.w	scsit_cont++\	; It is a Control Command
					scsit_dvc++\	; It is a Device I/O Command
					scsit_blk++\	; It has a Block Number
					scsid_asis++\	; It is an as is Packet
					scsid_none		; Length is not in command
			dc.w	1*one_sec		; Time out = 1 second.
			dc.w	scsi_endcmd
									;
									; Command $12 'INQUIRY'
									; Mandatory
									; 
scsi_cmd12	dc.w	scsit_rx++\		; It requests data from target
					scsit_stat++\	; It is a Status Command
					scsit_dvc++\	; It is a Device I/O Command
					scsid_asis++\	; It is an as is Packet
					scsid_byte		; Length is in Bytes
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd
									;
									; Command $15 'MODE SELECT'
									; Optional
									; 
scsi_cmd15	dc.w	scsit_tx++\		; It sends data to the target
					scsit_cont++\	; It is a Control Command
					scsit_dvc++\	; It is a Device I/O Command
					scsic_1st++\	; Must be first device if linked
					scsid_asis++\	; It is an as is Packet
					scsid_byte		; Length is in Bytes
			dc.w	20*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd
									;
									; Command $16 'RESERVE UNIT'
									; Mandatory
									; 
scsi_cmd16	dc.w	scsit_tx++\		; It sends data to the target
					scsit_cont++\	; It is a Control Command
					scsit_dvc++\	; It is a Device I/O Command
					scsic_1st++\	; Must be first device if linked
					scsid_asis++\	; It is an as is Packet
					scsid_byte		; Length is in Bytes
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd
									;
									; Command $17 'RELEASE UNIT'
									; Mandatory
									; 
scsi_cmd17	dc.w	scsit_cont++\	; It is a Control Command
					scsit_dvc++\	; It is a Device I/O Command
					scsic_1st++\	; Must be first device if linked
					scsid_asis++\	; It is an as is Packet
					scsid_none		; Length is not in command
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd
									;
									; Command $1A 'MODE SENSE'
									; Optional
									; 
scsi_cmd1A	dc.w	scsit_rx++\		; It requests data from target
					scsit_stat++\	; It is a Status Command
					scsit_dvc++\	; It is a Device I/O Command
					scsid_asis++\	; It is an as is Packet
					scsid_byte		; Length is in Bytes
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd
									;
									; Command $1B 'START/STOP UNIT'
									; Optional
									; 
scsi_cmd1B	dc.w	scsit_cont++\	; It is a Control Command
					scsit_dvc++\	; It is a Device I/O Command
					scsic_1st++\	; Must be first device if linked
					scsic_dsw++\	; Issue DISK_SW with this call
					scsic_off++\	; Device is going offline.
					scsid_asis++\	; It is an as is Packet
					scsid_none		; Length is not in command
			dc.w	10*one_min		; Time out = 10 minutes.
			dc.w	scsi_endcmd
									;
									; Command $1C 'RECEIVE DIAGNOSTIC RESULTS'
									; Optional
									; 
scsi_cmd1C	dc.w	scsit_rx++\		; It requests data from target
					scsit_stat++\	; It is a Status Command
					scsit_dvc++\	; It is a Device I/O Command
					scsid_asis++\	; It is an as is Packet
					scsid_byte		; Length is in Bytes
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd
									;
									; Command $1D 'SEND DIAGNOSTICS'
									; Mandatory
									; 
scsi_cmd1D	dc.w	scsit_tx++\		; It sends data to the target
					scsit_cont++\	; It is a Control Command
					scsit_dvc++\	; It is a Device I/O Command
					scsid_asis++\	; It is an as is Packet
					scsid_byte		; Length is in Bytes
;			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	10*one_min		; Time out = 10 minutes.
			dc.w	scsi_endcmd
									;
									; Command $1E 'PREVENT/ALLOW REMOVAL'
									; Optional
									; 
scsi_cmd1E	dc.w	scsit_cont++\	; It is a Control Command
					scsit_dvc++\	; It is a Device I/O Command
					scsid_asis++\	; It is an as is Packet
					scsid_none		; Length is not in command
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd
									;
									; Command $25 'READ CAPACITY'
									; Mandatory
									; 
scsi_cmd25	dc.w	scsit_rx++\		; It requests data from target
					scsit_stat++\	; It is a Status Command
					scsit_dvc++\	; It is a Device I/O Command
					scsid_asis++\	; It is an as is Packet
					scsid_none		; Length is not in command
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd
									;
									; Command $28 'READ (EXTENDED)'
									; Mandatory
									; 
scsi_cmd28	dc.w	scsit_rx++\		; It requests data from target
					scsit_stat++\	; It is a Status Command
					scsit_data++\	; It is a Data I/O Command
					scsic_tout++\	; Adjust time out by block count
					scsit_blk++\	; It has a Block Number
					scsid_asis++\	; It is an as is Packet
					scsid_blk		; Length is in Blocks
			dc.w	one_sec			; Time out = 1 second/Block.
			dc.w	scsi_endcmd
									;
									; Command $2A 'WRITE (EXTENDED)'
									; Mandatory
									; 
scsi_cmd2A	dc.w	scsit_tx++\		; It sends data to the target
					scsit_cont++\	; It is a Control Command
					scsit_data++\	; It is a Data I/O Command
					scsic_tout++\	; Adjust time out by block count
					scsit_blk++\	; It has a Block Number
					scsid_asis++\	; It is an as is Packet
					scsid_blk		; Length is in Blocks
			dc.w	one_sec			; Time out = 1 second/Block.
			dc.w	scsi_endcmd
									;
									; Command $2B 'SEEK (EXTENDED)'
									; Optional
									; 
scsi_cmd2B	dc.w	scsit_cont++\	; It is a Control Command
					scsit_dvc++\	; It is a Device I/O Command
					scsit_blk++\	; It has a Block Number
					scsid_asis++\	; It is an as is Packet
					scsid_none		; Length is not in command
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd
									;
									; Command $2E 'WRITE AND VERIFY'
									; Optional
									; 
scsi_cmd2E	dc.w	scsit_tx++\		; It sends data to the target
					scsit_cont++\	; It is a Control Command
					scsit_data++\	; It is a Data I/O Command
					scsic_tout++\	; Adjust time out by block count
					scsit_blk++\	; It has a Block Number
					scsid_asis++\	; It is an as is Packet
					scsid_blk		; Length is in Blocks
			dc.w	one_sec			; Time out = 1 second/Block.
			dc.w	scsi_endcmd
									;
									; Command $2F 'VERIFY'
									; Optional
									; 
scsi_cmd2F	dc.w	scsit_cont++\	; It is a Control Command
					scsit_dvc++\	; It is a Device I/O Command
					scsic_tout++\	; Adjust time out by block count
					scsit_blk++\	; It has a Block Number
					scsid_asis++\	; It is an as is Packet
					scsid_none		; Length is not in command
			dc.w	one_sec			; Time out = 1 second/Block.
			dc.w	scsi_endcmd
									;
									; Command $33 'SET LIMITS'
									; Optional
									; 
scsi_cmd33	dc.w	scsit_cont++\	; It is a Control Command
					scsic_int++\	; Internal Driver Command Only
					scsit_dvc++\	; It is a Device I/O Command
					scsit_blk++\	; It has a Block Number
					scsid_asis++\	; It is an as is Packet
					scsid_none		; Length is not in command
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd
									;
									; Command $34 'PRE-FETCH'
									; Optional
									; 
scsi_cmd34	dc.w	scsit_cont++\	; It is a Control Command
					scsit_dvc++\	; It is a Device I/O Command
					scsit_blk++\	; It has a Block Number
					scsid_asis++\	; It is an as is Packet
					scsid_none		; Length is not in command
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd
									;
									; Command $35 'SYNCHRONIZE CACHE'
									; Optional
									; 
scsi_cmd35	dc.w	scsit_cont++\	; It is a Control Command
					scsit_dvc++\	; It is a Device I/O Command
					scsit_blk++\	; It has a Block Number
					scsid_asis++\	; It is an as is Packet
					scsid_none		; Length is not in command
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd
									;
									; Command $36 'LOCK/UNLOCK CACHE'
									; Optional
									; 
scsi_cmd36	dc.w	scsit_cont++\	; It is a Control Command
					scsit_dvc++\	; It is a Device I/O Command
					scsit_blk++\	; It has a Block Number
					scsid_asis++\	; It is an as is Packet
					scsid_none		; Length is not in command
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd
									;
									; Command $37 'READ DEFECT DATA'
									; Optional
									; 
scsi_cmd37	dc.w	scsit_rx++\		; It requests data from target
					scsit_stat++\	; It is a Status Command
					scsit_dvc++\	; It is a Device I/O Command
					scsid_asis++\	; It is an as is Packet
					scsid_byte		; Length is in Bytes
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd
									;
									; Command $3B 'WRITE BUFFER'
									; Optional
									; 
scsi_cmd3B	dc.w	scsit_tx++\		; It sends data to the target
					scsit_cont++\	; It is a Control Command
					scsit_data++\	; It is a Data I/O Command
					scsid_asis++\	; It is an as is Packet
					scsid_byte		; Length is in Bytes
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd
									;
									; Command $3C 'READ BUFFER'
									; Optional
									; 
scsi_cmd3C	dc.w	scsit_rx++\		; It requests data from target
					scsit_stat++\	; It is a Status Command
					scsit_data++\	; It is a Data I/O Command
					scsid_asis++\	; It is an as is Packet
					scsid_byte		; Length is in Bytes
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd
									;
									; Command $3E 'READ LONG'
									; Optional
									; 
scsi_cmd3E	dc.w	scsit_rx++\		; It requests data from target
					scsit_stat++\	; It is a Status Command
					scsit_data++\	; It is a Data I/O Command
					scsit_blk++\	; It has a Block Number
					scsid_asis++\	; It is an as is Packet
					scsid_byte		; Length is in Bytes
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd
									;
									; Command $3F 'WRITE LONG'
									; Optional
									; 
scsi_cmd3F	dc.w	scsit_tx++\		; It sends data to the target
					scsit_cont++\	; It is a Control Command
					scsit_data++\	; It is a Data I/O Command
					scsit_blk++\	; It has a Block Number
					scsid_asis++\	; It is an as is Packet
					scsid_byte		; Length is in Bytes
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd
									;
									; Command $4C 'LOG SELECT'
									; Optional
									; 
scsi_cmd4C	dc.w	scsit_tx++\		; SCSI Send Data Command
					scsit_cont++\	; SCSI Control Command
					scsit_data++\	; SCSI Data I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_byte		; Leave Trans Count in Bytes
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $4D 'LOG SENSE'
									; Optional
									; 
scsi_cmd4D	dc.w	scsit_rx++\		; SCSI Receive Data Command
					scsit_stat++\	; SCSI Status Command
					scsit_data++\	; SCSI Data I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_byte		; Leave Trans Count in Bytes
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $55 'MODE SELECT'
									; Optional
									; 
scsi_cmd55	dc.w	scsit_tx++\		; It sends data to the target
					scsit_cont++\	; It is a Control Command
					scsit_dvc++\	; It is a Device I/O Command
					scsic_1st++\	; Must be first device if linked
					scsid_asis++\	; It is an as is Packet
					scsid_byte		; Length is in Bytes
			dc.w	one_sec			; Time out = 4 qtr second tick.
			dc.w	scsi_endcmd
									;
									; Command $5A 'MODE SENSE'
									; Mandatory
									; 
scsi_cmd5A	dc.w	scsit_rx++\		; It requests data from target
					scsit_stat++\	; It is a Status Command
					scsit_dvc++\	; It is a Device I/O Command
					scsid_asis++\	; It is an as is Packet
					scsid_byte		; Length is in Bytes
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd
									;
									; Command $B3 'SET LIMITS'
									; Optional
									; 
scsi_cmdB3	dc.w	scsit_cont++\	; It is a Control Command
					scsit_dvc++\	; It is a Device I/O Command
					scsit_blk++\	; It has a Block Number
					scsid_asis++\	; It is an as is Packet
					scsid_none		; Length is not in command
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd

			ENDIF

;-------------------------------------------------------------------------------

			IF		scsi_dtype = apple_cd	THEN

									;
									; Command $00 'TEST UNIT READY'
									; Mandatory
									; 
scsi_cmd00	dc.w	scsit_stat++\	; It is a Status Command
					scsit_dvc++\	; It is a Device I/O Command
					scsid_asis++\	; It is an as is Packet
					scsid_none		; Length is not in command
;			dc.w	qtr_sec			; Time out = 1 qtr second tick.
			dc.w	10*one_sec		; Time out = 10 seconds.
			dc.w	scsi_endcmd
									;
									; Command $01 'REZERO UNIT'
									; Optional
									; 
scsi_cmd01	dc.w	scsit_cont++\	; It is a Control Command
					scsit_dvc++\	; It is a Device I/O Command
					scsid_asis++\	; It is an as is Packet
					scsid_none		; Length is not in command
;			dc.w	2*one_min		; Time out = 2 minutes.
			dc.w	10*one_min		; Time out = 10 minutes.
			dc.w	scsi_endcmd
									;
									; Command $03 'REQUEST SENSE'
									; Mandatory
									; 
scsi_cmd03	dc.w	scsit_rx++\		; It requests data from target
					scsit_stat++\	; It is a Status Command
					scsit_dvc++\	; It is a Device I/O Command
					scsid_asis++\	; It is an as is Packet
					scsid_byte		; Length is in Bytes
;			dc.w	2*qtr_sec		; Time out = 2 qtr second ticks.
			dc.w	10*one_min		; Time out = 10 minutes.
			dc.w	scsi_endcmd
									;
									; Command $08 'READ'
									; Mandatory
									; 
scsi_cmd08	dc.w	scsit_rx++\		; It requests data from target
					scsit_stat++\	; It is a Status Command
					scsit_data++\	; It is a Data I/O Command
					scsic_tout++\	; Adjust time out by block count
					scsit_blk++\	; It has a Block Number
					scsid_asis++\	; It is an as is Packet
					scsid_blk		; Length is in Blocks
;			dc.w	4*qtr_sec		; Time out = 1 second/block.
			dc.w	10*one_min		; Time out = 10 minutes.
			dc.w	scsi_endcmd
									;
									; Command $0B 'SEEK'
									; Optional
									; 
scsi_cmd0B	dc.w	scsit_cont++\	; It is a Control Command
					scsit_dvc++\	; It is a Device I/O Command
					scsit_blk++\	; It has a Block Number
					scsid_asis++\	; It is an as is Packet
					scsid_none		; Length is not in command
;			dc.w	1*one_sec		; Time out = 1 second.
			dc.w	10*one_min		; Time out = 10 minutes.
			dc.w	scsi_endcmd
									;
									; Command $12 'INQUIRY'
									; Mandatory
									; 
scsi_cmd12	dc.w	scsit_rx++\		; It requests data from target
					scsit_stat++\	; It is a Status Command
					scsit_dvc++\	; It is a Device I/O Command
					scsid_asis++\	; It is an as is Packet
					scsid_byte		; Length is in Bytes
;			dc.w	2*qtr_sec		; Time out = 2 qtr second ticks.
			dc.w	10*one_min		; Time out = 10 minutes.
			dc.w	scsi_endcmd
									;
									; Command $15 'MODE SELECT'
									; Optional
									; 
scsi_cmd15	dc.w	scsit_tx++\		; It sends data to the target
					scsit_cont++\	; It is a Control Command
					scsit_dvc++\	; It is a Device I/O Command
					scsic_1st++\	; Must be first device if linked
					scsid_asis++\	; It is an as is Packet
					scsid_byte		; Length is in Bytes
;			dc.w	2*qtr_sec		; Time out = 2 qtr second ticks.
			dc.w	10*one_min		; Time out = 10 minutes.
			dc.w	scsi_endcmd
									;
									; Command $16 'RESERVE UNIT'
									; Mandatory
									; 
scsi_cmd16	dc.w	scsit_tx++\		; It sends data to the target
					scsit_cont++\	; It is a Control Command
					scsit_dvc++\	; It is a Device I/O Command
					scsic_1st++\	; Must be first device if linked
					scsid_asis++\	; It is an as is Packet
					scsid_byte		; Length is in Bytes
;			dc.w	2*qtr_sec		; Time out = 2 qtr second ticks.
			dc.w	10*one_min		; Time out = 10 minutes.
			dc.w	scsi_endcmd
									;
									; Command $17 'RELEASE UNIT'
									; Mandatory
									; 
scsi_cmd17	dc.w	scsit_cont++\	; It is a Control Command
					scsit_dvc++\	; It is a Device I/O Command
					scsic_1st++\	; Must be first device if linked
					scsid_asis++\	; It is an as is Packet
					scsid_none		; Length is not in command
;			dc.w	2*qtr_sec		; Time out = 2 qtr second ticks.
			dc.w	10*one_min		; Time out = 10 minutes.
			dc.w	scsi_endcmd
									;
									; Command $1A 'MODE SENSE'
									; Optional
									; 
scsi_cmd1A	dc.w	scsit_rx++\		; It requests data from target
					scsit_stat++\	; It is a Status Command
					scsit_dvc++\	; It is a Device I/O Command
					scsid_asis++\	; It is an as is Packet
					scsid_byte		; Length is in Bytes
;			dc.w	2*qtr_sec		; Time out = 2 qtr second ticks.
			dc.w	10*one_min		; Time out = 10 minutes.
			dc.w	scsi_endcmd
									;
									; Command $1B 'START/STOP UNIT'
									; Optional
									; 
scsi_cmd1B	dc.w	scsit_cont++\	; It is a Control Command
					scsit_dvc++\	; It is a Device I/O Command
					scsic_1st++\	; Must be first device if linked
					scsic_dsw++\	; Issue DISK_SW with this call
					scsic_off++\	; Device is going offline.
					scsid_asis++\	; It is an as is Packet
					scsid_none		; Length is not in command
;			dc.w	2*qtr_sec		; Time out = 2 qtr second ticks.
			dc.w	10*one_min		; Time out = 10 minutes.
			dc.w	scsi_endcmd
									;
									; Command $1C 'RECEIVE DIAGNOSTIC RESULTS'
									; Optional
									; 
scsi_cmd1C	dc.w	scsit_rx++\		; It requests data from target
					scsit_stat++\	; It is a Status Command
					scsit_dvc++\	; It is a Device I/O Command
					scsid_asis++\	; It is an as is Packet
					scsid_byte		; Length is in Bytes
;			dc.w	2*qtr_sec		; Time out = 2 qtr second ticks.
			dc.w	10*one_min		; Time out = 10 minutes.
			dc.w	scsi_endcmd
									;
									; Command $1D 'SEND DIAGNOSTICS'
									; Mandatory
									; 
scsi_cmd1D	dc.w	scsit_tx++\		; It sends data to the target
					scsit_cont++\	; It is a Control Command
					scsit_dvc++\	; It is a Device I/O Command
					scsid_asis++\	; It is an as is Packet
					scsid_byte		; Length is in Bytes
;			dc.w	2*qtr_sec		; Time out = 2 qtr second ticks.
			dc.w	10*one_min		; Time out = 10 minutes.
			dc.w	scsi_endcmd
									;
									; Command $1E 'PREVENT/ALLOW REMOVAL'
									; Optional
									; 
scsi_cmd1E	dc.w	scsit_cont++\	; It is a Control Command
					scsit_dvc++\	; It is a Device I/O Command
					scsid_asis++\	; It is an as is Packet
					scsid_none		; Length is not in command
;			dc.w	2*qtr_sec		; Time out = 2 qtr second ticks.
			dc.w	10*one_min		; Time out = 10 minutes.
			dc.w	scsi_endcmd
									;
									; Command $25 'READ CAPACITY'
									; Mandatory
									; 
scsi_cmd25	dc.w	scsit_rx++\		; It requests data from target
					scsit_stat++\	; It is a Status Command
					scsit_dvc++\	; It is a Device I/O Command
					scsid_asis++\	; It is an as is Packet
					scsid_none		; Length is not in command
;			dc.w	2*qtr_sec		; Time out = 2 qtr second ticks.
			dc.w	10*one_min		; Time out = 10 minutes.
			dc.w	scsi_endcmd
									;
									; Command $28 'READ (EXTENDED)'
									; Mandatory
									; 
scsi_cmd28	dc.w	scsit_rx++\		; It requests data from target
					scsit_stat++\	; It is a Status Command
					scsit_data++\	; It is a Data I/O Command
					scsic_tout++\	; Adjust time out by block count
					scsit_blk++\	; It has a Block Number
					scsid_asis++\	; It is an as is Packet
					scsid_blk		; Length is in Blocks
;			dc.w	4*qtr_sec		; Time out = 1 second/block.
			dc.w	10*one_min		; Time out = 10 minutes.
			dc.w	scsi_endcmd
									;
									; Command $2B 'SEEK (EXTENDED)'
									; Optional
									; 
scsi_cmd2B	dc.w	scsit_cont++\	; It is a Control Command
					scsit_dvc++\	; It is a Device I/O Command
					scsit_blk++\	; It has a Block Number
					scsid_asis++\	; It is an as is Packet
					scsid_none		; Length is not in command
;			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	10*one_min		; Time out = 10 minutes.
			dc.w	scsi_endcmd
									;
									; Command $2F 'VERIFY'
									; Optional
									; 
scsi_cmd2F	dc.w	scsit_cont++\	; It is a Control Command
					scsit_dvc++\	; It is a Device I/O Command
					scsic_tout++\	; Adjust time out by block count
					scsit_blk++\	; It has a Block Number
					scsid_asis++\	; It is an as is Packet
					scsid_blk		; Length is in Blocks
;					scsid_none		; Length is not in command
			dc.w	4*qtr_sec		; Time out = 1 second/block.
			dc.w	scsi_endcmd
									;
									; Command $3B 'WRITE BUFFER'
									; Optional
									; 
scsi_cmd3B	dc.w	scsit_tx++\		; It sends data to the target
					scsit_cont++\	; It is a Control Command
					scsit_data++\	; It is a Data I/O Command
					scsid_asis++\	; It is an as is Packet
					scsid_byte		; Length is in Bytes
;			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	10*one_min		; Time out = 10 minutes.
			dc.w	scsi_endcmd
									;
									; Command $3C 'READ BUFFER'
									; Optional
									; 
scsi_cmd3C	dc.w	scsit_rx++\		; It requests data from target
					scsit_stat++\	; It is a Status Command
					scsit_data++\	; It is a Data I/O Command
					scsid_asis++\	; It is an as is Packet
					scsid_byte		; Length is in Bytes
;			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	10*one_min		; Time out = 10 minutes.
			dc.w	scsi_endcmd
									;
									; Command $4C 'LOG SELECT'
									; Optional
									; 
scsi_cmd4C	dc.w	scsit_tx++\		; SCSI Send Data Command
					scsit_cont++\	; SCSI Control Command
					scsit_data++\	; SCSI Data I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_byte		; Leave Trans Count in Bytes
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $4D 'LOG SENSE'
									; Optional
									; 
scsi_cmd4D	dc.w	scsit_rx++\		; SCSI Receive Data Command
					scsit_stat++\	; SCSI Status Command
					scsit_data++\	; SCSI Data I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_byte		; Leave Trans Count in Bytes
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $55 'MODE SELECT (EXTENDED)'
									; Optional
									; 
scsi_cmd55	dc.w	scsit_tx++\		; SCSI Send Data Command
					scsit_cont++\	; SCSI Control Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_byte		; Leave Trans Count in Bytes
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $5A 'MODE SENSE (EXTENDED)'
									; Optional
									; 
scsi_cmd5A	dc.w	scsit_rx++\		; SCSI Receive Data Command
					scsit_stat++\	; SCSI Status Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_byte		; Leave Trans Count in Bytes
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $C0 'EJECT DISK'
									; Mandatory
									; 
scsi_cmdC0	dc.w	scsit_cont++\	; It is a Control Command
					scsit_dvc++\	; It is a Device I/O Command
					scsic_dsw++\	; Issue DISK_SW with this call
					scsic_off++\	; Device is going offline.
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_none		; Length is not in command
;			dc.w	2*qtr_sec		; Time out = 2 qtr second ticks.
			dc.w	10*one_min		; Time out = 10 minutes.
			dc.w	scsi_endcmd
									;
									; Command $C1 'READ TOC'
									; Mandatory
									; 
scsi_cmdC1	dc.w	scsit_rx++\		; SCSI Receive Data Command
					scsit_stat++\	; SCSI Status Command
					scsit_data++\	; SCSI Data I/O Command
					scsid_byte		; Leave Trans Count in Bytes
;			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	10*one_min		; Time out = 10 minutes.
			dc.w	$0101
			dc.w	$0205
			dc.w	$0307
			dc.w	$0408
			dc.w	$0509
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $C2 'READ Q SUBCODE'
									; Mandatory
									; 
scsi_cmdC2	dc.w	scsit_rx++\		; SCSI Receive Data Command
					scsit_stat++\	; SCSI Status Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsid_byte		; Leave Trans Count in Bytes
;			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	10*one_min		; Time out = 10 minutes.
			dc.w	$0101
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $C3 'READ HEADER'
									; Mandatory
									; 
scsi_cmdC3	dc.w	scsit_rx++\		; SCSI Receive Data Command
					scsit_stat++\	; SCSI Status Command
					scsit_data++\	; SCSI Data I/O Command
					scsid_byte		; Leave Trans Count in Bytes
;					scsit_blk++\	; Command has a Block Number
;			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	10*one_min		; Time out = 10 minutes.
			dc.w	$0101
			dc.w	$0202
			dc.w	$0303
			dc.w	$0404
			dc.w	$0505
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $C8 'AUDIO TRACK SEARCH'
									; Mandatory
									; 
scsi_cmdC8	dc.w	scsit_tx++\		; SCSI Send Data Command
					scsit_cont++\	; SCSI Control Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsid_none		; Transfer count does not go in CMD
;					scsit_blk++\	; Command has a Block Number
;			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	10*one_min		; Time out = 10 minutes.
			dc.w	$0101
			dc.w	$0201
			dc.w	$0301
			dc.w	$0402
			dc.w	$0503
			dc.w	$0604
			dc.w	$0705
			dc.w	$0809
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $C9 'AUDIO PLAY'
									; Mandatory
									; 
scsi_cmdC9	dc.w	scsit_tx++\		; SCSI Send Data Command
					scsit_cont++\	; SCSI Control Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsid_none		; Transfer count does not go in CMD
;					scsit_blk++\	; Command has a Block Number
;			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	10*one_min		; Time out = 10 minutes.
			dc.w	$0101
			dc.w	$0201
			dc.w	$0301
			dc.w	$0402
			dc.w	$0503
			dc.w	$0604
			dc.w	$0705
			dc.w	$0809
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $CA 'AUDIO PAUSE'
									; Mandatory
									; 
scsi_cmdCA	dc.w	scsit_tx++\		; SCSI Send Data Command
					scsit_cont++\	; SCSI Control Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsid_none		; Transfer count does not go in CMD
;			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	10*one_min		; Time out = 10 minutes.
			dc.w	$0101
			dc.w	$0201
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $CB 'AUDIO STOP'
									; Mandatory
									; 
scsi_cmdCB	dc.w	scsit_tx++\		; SCSI Send Data Command
					scsit_cont++\	; SCSI Control Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsid_none		; Transfer count does not go in CMD
;					scsit_blk++\	; Command has a Block Number
;			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	10*one_min		; Time out = 10 minutes.
			dc.w	$0101
			dc.w	$0202
			dc.w	$0303
			dc.w	$0404
			dc.w	$0505
			dc.w	$0609
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $CC 'AUDIO STATUS'
									; Mandatory
									; 
scsi_cmdCC	dc.w	scsit_rx++\		; SCSI Receive Data Command
					scsit_stat++\	; SCSI Status Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsid_byte		; Leave Trans Count in Bytes
;			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	10*one_min		; Time out = 10 minutes.
			dc.w	$0101
			dc.w	$0201
			dc.w	$0301
			dc.w	$0402
			dc.w	$0503
			dc.w	$0604
			dc.w	$0705
			dc.w	$0809
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $CD 'AUDIO SCAN'
									; Mandatory
									; 
scsi_cmdCD	dc.w	scsit_tx++\		; SCSI Send Data Command
					scsit_cont++\	; SCSI Control Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsid_none		; Transfer count does not go in CMD
;			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	10*one_min		; Time out = 10 minutes.
			dc.w	$0101
			dc.w	$0201
			dc.w	$0301
			dc.w	$0402
			dc.w	$0503
			dc.w	$0604
			dc.w	$0705
			dc.w	$0809
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $CE 'AUDIO CONTROL'
									; Mandatory
									; 
scsi_cmdCE	dc.w	scsit_tx++\		; SCSI Send Data Command
					scsit_cont++\	; SCSI Control Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_byte		; Leave Trans Count in Bytes
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $1C2 'READ Q SUBCODE'
									; Mandatory
									; 
scsi_cmd1C2	dc.w	scsit_rx++\		; SCSI Receive Data Command
					scsit_stat++\	; SCSI Status Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_byte		; Leave Trans Count in Bytes
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd		; End of SCSI Translation Table

			ENDIF

;-------------------------------------------------------------------------------

			IF		scsi_dtype = mcd_40	THEN

									;
									; Command $00 'TEST UNIT READY'
									; Mandatory
									; 
scsi_cmd00	dc.w	scsit_stat++\	; SCSI Status Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_none		; Transfer count does not go in CMD
			dc.w	1*qtr_sec		; Time out = 1 qtr second ticks.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $01 'REZERO UNIT'
									; Optional
									; 
scsi_cmd01	dc.w	scsit_cont++\	; SCSI Control Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_none		; Transfer count does not go in CMD
;			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	90*one_sec		; Time out = 90 seconds.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $03 'REQUEST SENSE'
									; Mandatory
									; 
scsi_cmd03	dc.w	scsit_rx++\		; SCSI Receive Data Command
					scsit_stat++\	; SCSI Status Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_byte		; Leave Trans Count in Bytes
			dc.w	1*qtr_sec		; Time out = 1 qtr second ticks.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $04 'FORMAT UNIT'
									; Mandatory
									; 
scsi_cmd04	dc.w	scsit_tx++\		; SCSI Send Data Command
					scsit_cont++\	; SCSI Control Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsic_dsw++\	; Issue DISK_SW with this call
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_none		; Transfer count does not go in CMD
			dc.w	one_min*50		; Time out = 50 Minutes.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									; 
									; Command $05 'Send QIC 100 Sys Data'
									; Optional
									; 
scsi_cmd05	dc.w	scsit_tx++\		; SCSI Send Data Command
					scsit_cont++\	; SCSI Control Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_none		; Transfer count does not go in CMD
			dc.w	1*qtr_sec		; Time out = 1 qtr second ticks.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									; 
									; Command $06 'Recv QIC 100 Sys Data'
									; Optional
									; 
scsi_cmd06	dc.w	scsit_rx++\		; SCSI Receive Data Command
					scsit_stat++\	; SCSI Status Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_none		; Transfer count does not go in CMD
			dc.w	1*qtr_sec		; Time out = 1 qtr second ticks.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $07 'REASSIGN BLOCKS'
									; Optional
									; 
scsi_cmd07	dc.w	scsit_tx++\		; SCSI Send Data Command
					scsit_cont++\	; SCSI Control Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_none		; Transfer count does not go in CMD
;			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	90*one_sec		; Time out = 90 seconds.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $08 'READ'
									; Mandatory
									; 
scsi_cmd08	dc.w	scsit_rx++\		; SCSI Receive Data Command
					scsit_stat++\	; SCSI Status Command
					scsit_data++\	; SCSI Data I/O Command
					scsit_blk++\	; Command has a Block Number
					scsic_tout++\	; Adjust time out by block count
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_blk		; Convert Trans Count to Blocks
			dc.w	90*one_sec		; Time out = 90 seconds/Block.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $09 'VERIFY UNIT'
									; Optional
									; 
scsi_cmd09	dc.w	scsit_tx++\		; SCSI Send Data Command
					scsit_cont++\	; SCSI Control Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_none		; Transfer count does not go in CMD
			dc.w	one_min*50		; Time out = 50 Minutes.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $0A 'WRITE'
									; Mandatory
									; 
scsi_cmd0A	dc.w	scsit_tx++\		; SCSI Send Data Command
					scsit_cont++\	; SCSI Control Command
					scsit_data++\	; SCSI Data I/O Command
					scsit_blk++\	; Command has a Block Number
					scsic_tout++\	; Adjust time out by block count
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_blk		; Convert Trans Count to Blocks
			dc.w	90*one_sec		; Time out = 90 seconds/Block.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $0B 'SEEK'
									; Optional
									; 
scsi_cmd0B	dc.w	scsit_tx++\		; SCSI Send Data Command
					scsit_cont++\	; SCSI Control Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsit_blk++\	; Command has a Block Number
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_none		; Transfer count does not go in CMD
			dc.w	90*one_sec		; Time out = 90 seconds.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $0D 'Read SCSI Defect (Vendor)'
									; Optional
									; 
scsi_cmd0D	dc.w	scsit_rx++\		; SCSI Receive Data Command
					scsit_stat++\	; SCSI Status Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_none		; Transfer count does not go in CMD
			dc.w	90*one_sec		; Time out = 90 seconds.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $0E 'Read Controller Info'
									; Optional
									; 
scsi_cmd0E	dc.w	scsit_rx++\		; SCSI Receive Data Command
					scsit_stat++\	; SCSI Status Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_none		; Transfer count does not go in CMD
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									; 
									; Command $0F 'Write Controller Info'
									; Optional
									; 
scsi_cmd0F	dc.w	scsit_tx++\		; SCSI Send Data Command
					scsit_cont++\	; SCSI Control Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_none		; Transfer count does not go in CMD
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									; 
									; Command $10 'DRIVE PASS-THRU'
									; Optional
									; 
scsi_cmd10	dc.w	scsit_tx++\		; SCSI Send Data Command
					scsit_cont++\	; SCSI Control Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_none		; Transfer count does not go in CMD
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $11 'READ DRIVE LINES'
									; Optional
									; 
scsi_cmd11	dc.w	scsit_rx++\		; SCSI Receive Data Command
					scsit_stat++\	; SCSI Status Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_none		; Transfer count does not go in CMD
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $12 'INQUIRY'
									; Mandatory
									; 
scsi_cmd12	dc.w	scsit_rx++\		; SCSI Receive Data Command
					scsit_stat++\	; SCSI Status Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_byte		; Leave Trans Count in Bytes
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $13 'Read QIC INFO'
									; Optional
									; 
scsi_cmd13	dc.w	scsit_rx++\		; SCSI Receive Data Command
					scsit_stat++\	; SCSI Status Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_none		; Transfer count does not go in CMD
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									; 
									; Command $14 'Write QIC INFO'
									; Optional
									; 
scsi_cmd14	dc.w	scsit_tx++\		; SCSI Send Data Command
					scsit_cont++\	; SCSI Control Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_none		; Transfer count does not go in CMD
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $15 'MODE SELECT'
									; Optional
									; 
scsi_cmd15	dc.w	scsit_tx++\		; SCSI Send Data Command
					scsit_cont++\	; SCSI Control Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_byte		; Leave Trans Count in Bytes
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $16 'RESERVE UNIT'
									; Mandatory
									; 
scsi_cmd16	dc.w	scsit_tx++\		; SCSI Send Data Command
					scsit_cont++\	; SCSI Control Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_none		; Transfer count does not go in CMD
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $17 'RELEASE UNIT'
									; Mandatory
									; 
scsi_cmd17	dc.w	scsit_tx++\		; SCSI Send Data Command
					scsit_cont++\	; SCSI Control Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_none		; Transfer count does not go in CMD
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $19 'Read QIC Defect Data'
									; Optional
									; 
scsi_cmd19	dc.w	scsit_rx++\		; SCSI Receive Data Command
					scsit_stat++\	; SCSI Status Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_none		; Transfer count does not go in CMD
			dc.w	90*one_sec		; Time out = 90 seconds.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $1A 'MODE SENSE'
									; Optional
									; 
scsi_cmd1A	dc.w	scsit_rx++\		; SCSI Receive Data Command
					scsit_stat++\	; SCSI Status Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_byte		; Leave Trans Count in Bytes
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $1B 'LOAD/UNLOAD UNIT'
									; Optional
									; 
scsi_cmd1B	dc.w	scsit_tx++\		; SCSI Send Data Command
					scsit_cont++\	; SCSI Control Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_none		; Transfer count does not go in CMD
			dc.w	90*one_sec		; Time out = 90 seconds.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $1C 'RECEIVE DIAGNOSTIC RESULTS'
									; Optional
									; 
scsi_cmd1C	dc.w	scsit_rx++\		; SCSI Receive Data Command
					scsit_stat++\	; SCSI Status Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_byte		; Leave Trans Count in Bytes
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $1D 'SEND DIAGNOSTICS'
									; Mandatory
									; 
scsi_cmd1D	dc.w	scsit_tx++\		; SCSI Send Data Command
					scsit_cont++\	; SCSI Control Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_none		; Transfer count does not go in CMD
;			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	10*one_min		; Time out = 10 minutes.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $25 'READ CAPACITY'
									; Mandatory
									; 
scsi_cmd25	dc.w	scsit_rx++\		; SCSI Receive Data Command
					scsit_stat++\	; SCSI Status Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_none		; Transfer count does not go in CMD
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $28 'READ (EXTENDED)'
									; Mandatory
									; 
scsi_cmd28	dc.w	scsit_rx++\		; SCSI Receive Data Command
					scsit_stat++\	; SCSI Status Command
					scsit_data++\	; SCSI Data I/O Command
					scsit_blk++\	; Command has a Block Number
					scsic_tout++\	; Adjust time out by block count
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_blk		; Convert Trans Count to Blocks
			dc.w	90*one_sec		; Time out = 90 seconds/Block.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $2A 'WRITE (EXTENDED)'
									; Mandatory
									; 
scsi_cmd2A	dc.w	scsit_tx++\		; SCSI Send Data Command
					scsit_cont++\	; SCSI Control Command
					scsit_data++\	; SCSI Data I/O Command
					scsit_blk++\	; Command has a Block Number
					scsic_tout++\	; Adjust time out by block count
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_blk		; Convert Trans Count to Blocks
			dc.w	90*one_sec		; Time out = 90 seconds/Block.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $2B 'SEEK (EXTENDED)'
									; Optional
									; 
scsi_cmd2B	dc.w	scsit_tx++\		; SCSI Send Data Command
					scsit_cont++\	; SCSI Control Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsit_blk++\	; Command has a Block Number
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_none		; Transfer count does not go in CMD
			dc.w	90*one_sec		; Time out = 90 seconds.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $37 'READ DEFECT DATA'
									; Optional
									; 
scsi_cmd37	dc.w	scsit_rx++\		; SCSI Receive Data Command
					scsit_stat++\	; SCSI Status Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_byte		; Leave Trans Count in Bytes
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $3B 'WRITE BUFFER'
									; Optional
									; 
scsi_cmd3B	dc.w	scsit_tx++\		; SCSI Send Data Command
					scsit_cont++\	; SCSI Control Command
					scsit_data++\	; SCSI Data I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_byte		; Leave Trans Count in Bytes
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $3C 'READ BUFFER'
									; Optional
									; 
scsi_cmd3C	dc.w	scsit_rx++\		; SCSI Receive Data Command
					scsit_stat++\	; SCSI Status Command
					scsit_data++\	; SCSI Data I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_byte		; Leave Trans Count in Bytes
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $4C 'LOG SELECT'
									; Optional
									; 
scsi_cmd4C	dc.w	scsit_tx++\		; SCSI Send Data Command
					scsit_cont++\	; SCSI Control Command
					scsit_data++\	; SCSI Data I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_byte		; Leave Trans Count in Bytes
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $4D 'LOG SENSE'
									; Optional
									; 
scsi_cmd4D	dc.w	scsit_rx++\		; SCSI Receive Data Command
					scsit_stat++\	; SCSI Status Command
					scsit_data++\	; SCSI Data I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_byte		; Leave Trans Count in Bytes
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $55 'MODE SELECT (EXTENDED)'
									; Optional
									; 
scsi_cmd55	dc.w	scsit_tx++\		; SCSI Send Data Command
					scsit_cont++\	; SCSI Control Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_byte		; Leave Trans Count in Bytes
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $5A 'MODE SENSE (EXTENDED)'
									; Optional
									; 
scsi_cmd5A	dc.w	scsit_rx++\		; SCSI Receive Data Command
					scsit_stat++\	; SCSI Status Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_byte		; Leave Trans Count in Bytes
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd		; End of SCSI Translation Table

			ENDIF

;-------------------------------------------------------------------------------

			IF		scsi_dtype = scanner	THEN

									;
									; Command $00 'TEST UNIT READY'
									; Mandatory
									; 
scsi_cmd00	dc.w	scsit_stat++\	; SCSI Status Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_none		; Transfer count does not go in CMD
			dc.w	1*qtr_sec		; Time out = 1 qtr second ticks.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $03 'REQUEST SENSE'
									; Mandatory
									; 
scsi_cmd03	dc.w	scsit_rx++\		; SCSI Receive Data Command
					scsit_stat++\	; SCSI Status Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_byte		; Leave Trans Count in Bytes
			dc.w	1*qtr_sec		; Time out = 1 qtr second ticks.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $07 'GET DATA STATUS'
									; Optional
									; 
scsi_cmd07	dc.w	scsit_rx++\		; SCSI Receive Data Command
					scsit_stat++\	; SCSI Status Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_byte		; Leave Trans Count in Bytes
;			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	10*one_min		; Time out = 10 minutes.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $08 'READ'
									; Mandatory
									; 
scsi_cmd08	dc.w	scsit_rx++\		; SCSI Receive Data Command
					scsit_stat++\	; SCSI Status Command
					scsit_data++\	; SCSI Data I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_byte		; Leave Trans Count in Bytes
			dc.w	10*one_min		; Time out = 10 minutes.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $0A 'SEND'
									; Mandatory
									; 
scsi_cmd0A	dc.w	scsit_tx++\		; SCSI Send Data Command
					scsit_cont++\	; SCSI Control Command
					scsit_data++\	; SCSI Data I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_byte		; Leave Trans Count in Bytes
			dc.w	10*one_min		; Time out = 10 minutes.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $0E 'SPACE'
									; Mandatory
									; 
scsi_cmd0E	dc.w	scsit_tx++\		; SCSI Send Data Command
					scsit_cont++\	; SCSI Control Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_byte		; Leave Trans Count in Bytes
			dc.w	8*qtr_sec		; Time out = 1 qtr second ticks.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $11 'SPACE'
									; Mandatory
									; 
scsi_cmd11	dc.w	scsit_tx++\		; SCSI Send Data Command
					scsit_cont++\	; SCSI Control Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_none		; Transfer count does not go in CMD
			dc.w	1*qtr_sec		; Time out = 1 qtr second ticks.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $12 'INQUIRY'
									; Mandatory
									; 
scsi_cmd12	dc.w	scsit_rx++\		; SCSI Receive Data Command
					scsit_stat++\	; SCSI Status Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_byte		; Leave Trans Count in Bytes
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd		; End of SCSI Translation Table

			dc.w	$000E			; Command $0E 'EXPLORATORY STATUS'
			dc.w	scsi_cmd0E		; Optional
									;
									; Command $15 'MODE SELECT'
									; Optional
									; 
scsi_cmd15	dc.w	scsit_tx++\		; SCSI Send Data Command
					scsit_cont++\	; SCSI Control Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_byte		; Leave Trans Count in Bytes
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $16 'RESERVE UNIT'
									; Mandatory
									; 
scsi_cmd16	dc.w	scsit_tx++\		; SCSI Send Data Command
					scsit_cont++\	; SCSI Control Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_none		; Transfer count does not go in CMD
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $17 'RELEASE UNIT'
									; Mandatory
									; 
scsi_cmd17	dc.w	scsit_tx++\		; SCSI Send Data Command
					scsit_cont++\	; SCSI Control Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_none		; Transfer count does not go in CMD
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $18 'COPY'
									; Optional
									; 
scsi_cmd18	dc.w	scsit_tx++\		; SCSI Send Data Command
					scsit_cont++\	; SCSI Control Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_none		; Transfer count does not go in CMD
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $1A 'MODE SENSE'
									; Optional
									; 
scsi_cmd1A	dc.w	scsit_rx++\		; SCSI Receive Data Command
					scsit_stat++\	; SCSI Status Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_byte		; Leave Trans Count in Bytes
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $1B 'SCAN'
									; Optional
									; 
scsi_cmd1B	dc.w	scsit_tx++\		; SCSI Send Data Command
					scsit_cont++\	; SCSI Control Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_byte		; Leave Trans Count in Bytes
			dc.w	1*one_min		; Time out = 1 Minute.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $1C 'RECEIVE DIAGNOSTIC RESULTS'
									; Optional
									; 
scsi_cmd1C	dc.w	scsit_rx++\		; SCSI Receive Data Command
					scsit_stat++\	; SCSI Status Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_byte		; Leave Trans Count in Bytes
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $1D 'SEND DIAGNOSTICS'
									; Mandatory
									; 
scsi_cmd1D	dc.w	scsit_tx++\		; SCSI Send Data Command
					scsit_cont++\	; SCSI Control Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_none		; Transfer count does not go in CMD
;			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	10*one_min		; Time out = 10 minutes.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $24 'DEFINE WINDOW PARAMETERS'
									; Mandatory
									; 
scsi_cmd24	dc.w	scsit_tx++\		; SCSI Send Data Command
					scsit_cont++\	; SCSI Control Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_byte		; Leave Trans Count in Bytes
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $25 'GET WINDOW PARAMETERS'
									; Optional
									; 
scsi_cmd25	dc.w	scsit_rx++\		; SCSI Receive Data Command
					scsit_stat++\	; SCSI Status Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_byte		; Leave Trans Count in Bytes
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $28 'READ (EXTENDED)'
									; Mandatory
									; 
scsi_cmd28	dc.w	scsit_rx++\		; SCSI Receive Data Command
					scsit_stat++\	; SCSI Status Command
					scsit_data++\	; SCSI Data I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_byte		; Leave Trans Count in Bytes
			dc.w	10*one_min		; Time out = 10 minutes.
;			dc.w	2*one_sec		; Time out = 2 seconds
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $2A 'WRITE (EXTENDED)'
									; Mandatory
									; 
scsi_cmd2A	dc.w	scsit_tx++\		; SCSI Send Data Command
					scsit_cont++\	; SCSI Control Command
					scsit_data++\	; SCSI Data I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_byte		; Leave Trans Count in Bytes
			dc.w	2*one_sec		; Time out = 2 seconds
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $31 'MEDIUM POSITION'
									; Optional
									; 
scsi_cmd31	dc.w	scsit_tx++\		; SCSI Send Data Command
					scsit_cont++\	; SCSI Control Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_none		; Transfer count does not go in CMD
			dc.w	1*one_min		; Time out = 1 Minute.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $34 'GET DATA STATUS'
									; Optional
									; 
scsi_cmd34	dc.w	scsit_rx++\		; SCSI Receive Data Command
					scsit_stat++\	; SCSI Status Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_byte		; Leave Trans Count in Bytes
			dc.w	2*one_min		; Time out = 1 Minute.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $39 'COMPARE'
									; Optional
									; 
scsi_cmd39	dc.w	scsit_tx++\		; SCSI Send Data Command
					scsit_cont++\	; SCSI Control Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_none		; Transfer count does not go in CMD
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $3A 'COPY AND VERIFY'
									; Optional
									; 
scsi_cmd3A	dc.w	scsit_tx++\		; SCSI Send Data Command
					scsit_cont++\	; SCSI Control Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_none		; Transfer count does not go in CMD
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $3B 'WRITE BUFFER'
									; Optional
									; 
scsi_cmd3B	dc.w	scsit_tx++\		; SCSI Send Data Command
					scsit_cont++\	; SCSI Control Command
					scsit_data++\	; SCSI Data I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_byte		; Leave Trans Count in Bytes
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $3C 'READ BUFFER'
									; Optional
									; 
scsi_cmd3C	dc.w	scsit_rx++\		; SCSI Receive Data Command
					scsit_stat++\	; SCSI Status Command
					scsit_data++\	; SCSI Data I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_byte		; Leave Trans Count in Bytes
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $4C 'LOG SELECT'
									; Optional
									; 
scsi_cmd4C	dc.w	scsit_tx++\		; SCSI Send Data Command
					scsit_cont++\	; SCSI Control Command
					scsit_data++\	; SCSI Data I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_byte		; Leave Trans Count in Bytes
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $4D 'LOG SENSE'
									; Optional
									; 
scsi_cmd4D	dc.w	scsit_rx++\		; SCSI Receive Data Command
					scsit_stat++\	; SCSI Status Command
					scsit_data++\	; SCSI Data I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_byte		; Leave Trans Count in Bytes
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $55 'MODE SELECT (EXTENDED)'
									; Optional
									; 
scsi_cmd55	dc.w	scsit_tx++\		; SCSI Send Data Command
					scsit_cont++\	; SCSI Control Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_byte		; Leave Trans Count in Bytes
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd		; End of SCSI Translation Table
									;
									; Command $5A 'MODE SENSE (EXTENDED)'
									; Optional
									; 
scsi_cmd5A	dc.w	scsit_rx++\		; SCSI Receive Data Command
					scsit_stat++\	; SCSI Status Command
					scsit_dvc++\	; SCSI Device I/O Command
					scsid_asis++\	; CMD Data is in SCSI format
					scsid_byte		; Leave Trans Count in Bytes
			dc.w	4*qtr_sec		; Time out = 4 qtr second ticks.
			dc.w	scsi_endcmd		; End of SCSI Translation Table

			ENDIF

;-------------------------------------------------------------------------------

			IF		scsi_dtype = appl_laser	THEN

									;
									; Command $00 'TEST UNIT READY'
									; Mandatory
									; 
scsi_cmd00	dc.w	scsit_stat++\	; It is a Status Command
					scsit_dvc++\	; It is a Device I/O Command
					scsid_asis++\	; It is an as is Packet
					scsid_none		; Length is not in command
			dc.w	1*qtr_sec		; Time out = 1 qtr second ticks.
			dc.w	scsi_endcmd
									;
									; Command $01 'RESET PRINTER'
									; Optional
									; 
scsi_cmd01	dc.w	scsit_cont++\	; It is a Control Command
					scsit_dvc++\	; It is a Device I/O Command
					scsid_asis++\	; It is an as is Packet
					scsid_none		; Length is not in command
			dc.w	1*qtr_sec		; Time out = 1 qtr second ticks.
			dc.w	scsi_endcmd
									;
									; Command $02 'DOWN LOAD CODE'
									; Optional
									; 
scsi_cmd02	dc.w	scsit_tx++\		; SCSI Send Data Command
					scsit_cont++\	; It is a Control Command
					scsit_dvc++\	; It is a Device I/O Command
					scsid_asis++\	; It is an as is Packet
					scsid_byte		; Leave Trans Count in Bytes
			dc.w	1*qtr_sec		; Time out = 1 qtr second ticks.
			dc.w	scsi_endcmd
									;
									; Command $03 'REQUEST SENSE'
									; Mandatory
									; 
scsi_cmd03	dc.w	scsit_rx++\		; It requests data from target
					scsit_stat++\	; It is a Status Command
					scsit_dvc++\	; It is a Device I/O Command
					scsid_asis++\	; It is an as is Packet
					scsid_byte		; Length is in Bytes
			dc.w	1*qtr_sec		; Time out = 1 qtr second ticks.
			dc.w	scsi_endcmd
									;
									; Command $04 'FORMAT UNIT'
									; Mandatory
									; 
scsi_cmd04	dc.w	scsit_tx++\		; It sends data to the target
					scsit_cont++\	; It is a Control Command
					scsit_dvc++\	; It is a Device I/O Command
					scsid_asis++\	; It is an as is Packet
					scsid_byte		; Length is in Bytes
			dc.w	1*qtr_sec		; Time out = 1 qtr second ticks.
			dc.w	scsi_endcmd
									;
									; Command $05 'DRAW BITS'
									; Optional
									; 
scsi_cmd05	dc.w	scsit_tx++\		; It sends data to the target
					scsit_cont++\	; It is a Control Command
					scsit_dvc++\	; It is a Device I/O Command
					scsid_asis++\	; It is an as is Packet
					scsid_none		; Transfer count does not go in CMD
			dc.w	10*one_min		; Time out = 10 Minute.
			dc.w	scsi_endcmd
									;
									; Command $06 'CLEAR BITS'
									; Mandatory
									; 
scsi_cmd06	dc.w	scsit_tx++\		; It requests data from target
					scsit_cont++\	; It is a Control Command
					scsit_dvc++\	; It is a Device I/O Command
					scsid_asis++\	; It is an as is Packet
					scsid_byte		; Length is in Bytes
			dc.w	10*one_min		; Time out = 10 Minute.
			dc.w	scsi_endcmd
									;
									; Command $0A 'PRINT'
									; Mandatory
									; 
scsi_cmd0A	dc.w	scsit_cont++\	; It is a Control Command
					scsit_dvc++\	; It is a Device I/O Command
					scsid_asis++\	; It is an as is Packet
					scsid_none		; Transfer count does not go in CMD
			dc.w	10*one_min		; Time out = 10 Minute.
			dc.w	scsi_endcmd
									;
									; Command $12 'INQUIRY'
									; Mandatory
									; 
scsi_cmd12	dc.w	scsit_rx++\		; It requests data from target
					scsit_stat++\	; It is a Status Command
					scsit_dvc++\	; It is a Device I/O Command
					scsid_asis++\	; It is an as is Packet
					scsid_byte		; Length is in Bytes
			dc.w	1*qtr_sec		; Time out = 1 qtr second ticks.
			dc.w	scsi_endcmd
									;
									; Command $15 'MODE SELECT'
									; Optional
									; 
scsi_cmd15	dc.w	scsit_tx++\		; It sends data to the target
					scsit_cont++\	; It is a Control Command
					scsit_dvc++\	; It is a Device I/O Command
					scsid_asis++\	; It is an as is Packet
					scsid_byte		; Length is in Bytes
			dc.w	1*qtr_sec		; Time out = 1 qtr second ticks.
			dc.w	scsi_endcmd
									;
									; Command $16 'RESERVE UNIT'
									; Mandatory
									; 
scsi_cmd16	dc.w	scsit_cont++\	; It is a Control Command
					scsit_dvc++\	; It is a Device I/O Command
					scsid_asis++\	; It is an as is Packet
					scsid_none		; Transfer count does not go in CMD
			dc.w	1*qtr_sec		; Time out = 1 qtr second ticks.
			dc.w	scsi_endcmd
									;
									; Command $17 'RELEASE UNIT'
									; Mandatory
									; 
scsi_cmd17	dc.w	scsit_cont++\	; It is a Control Command
					scsit_dvc++\	; It is a Device I/O Command
					scsid_asis++\	; It is an as is Packet
					scsid_none		; Length is not in command
			dc.w	1*qtr_sec		; Time out = 1 qtr second ticks.
			dc.w	scsi_endcmd
									;
									; Command $1A 'MODE SENSE'
									; Optional
									; 
scsi_cmd1A	dc.w	scsit_rx++\		; It requests data from target
					scsit_stat++\	; It is a Status Command
					scsit_dvc++\	; It is a Device I/O Command
					scsid_asis++\	; It is an as is Packet
					scsid_byte		; Length is in Bytes
			dc.w	1*qtr_sec		; Time out = 1 qtr second ticks.
			dc.w	scsi_endcmd

			ENDIF

;-------------------------------------------------------------------------------

			ENDP
			
			EJECT


;*******************************************************
;
;	Command Packet Size Table:
;
;	This table is indexed by (Group Number * 6)
;
;	The first word in an entry equals the Packet Size.
;	This is used to set the command length in the data
;	for the SCSI Manager calls.  If this value is null,
;	then the group is undefined for this driver.
;
;	The next byte is the offset to the first and most
;	significant byte of the requested block number if
;	used in this packet.
;
;	The byte following this is the number of bytes that
;	make up a valid Block Number.
;
;	The next byte is the offset to the first and most
;	significant byte of the requested data length if
;	used in this packet.
;
;	The byte following this is the number of bytes that
;	make up a valid request length.
;
;*******************************************************

			EXPORT	cmd_ps_tbl
cmd_ps_tbl	PROC
start_tbl
									;
									; Group 0 Commands
									;
			dc.w	0006			; 6 Byte Command.
			dc.b	$03				; Offset to last Block Parm
			EXPORT	c_blk_len:EQU
c_blk_len	equ		*-start_tbl		; Equated offset to Block Length
			dc.b	$03				; Length of Block Parm
			dc.b	$04				; Offset to last Length Parm
			EXPORT	c_len_len:EQU
c_len_len	equ		*-start_tbl		; Equated offset to Length Length

;-------------------------------------------------------------------------------

			IF		scsi_dtype = scanner	THEN

			dc.b	$02				; Length of Length Parm

			ELSE

;-------------------------------------------------------------------------------


			dc.b	$01				; Length of Length Parm

			ENDIF

;-------------------------------------------------------------------------------

									;
									; Group 1 Commands
									;
			dc.w	0010			; 10 Byte Command.
			dc.b	$05				; Offset to last Block Parm
			dc.b	$04				; Length of Block Parm
			dc.b	$08				; Offset to last Length Parm
			dc.b	$03				; Length of Length Parm
									;
									; Group 2 Commands
									;
			dc.w	0010			; 10 Byte Command.
			dc.b	$05				; Offset to last Block Parm
			dc.b	$04				; Length of Block Parm
			dc.b	$08				; Offset to last Length Parm
			dc.b	$03				; Length of Length Parm
									;
									; Group 3 Commands
									;
			dc.w	0000			; Reserved Command.
			dc.b	$00				; Offset to last Block Parm
			dc.b	$00				; Length of Block Parm
			dc.b	$00				; Offset to last Length Parm
			dc.b	$00				; Length of Length Parm
									;
									; Group 4 Commands
									;
			dc.w	0000			; Reserved Command.
			dc.b	$00				; Offset to last Block Parm
			dc.b	$00				; Length of Block Parm
			dc.b	$00				; Offset to last Length Parm
			dc.b	$00				; Length of Length Parm
									;
									; Group 5 Commands
									;
			dc.w	0012			; 12 Byte Command.
			dc.b	$05				; Offset to last Block Parm
			dc.b	$04				; Length of Block Parm
			dc.b	$09				; Offset to last Length Parm
			dc.b	$04				; Length of Length Parm
									;
									; Group 6 Commands
									;
			dc.w	0010			; 10 Byte Command.
			dc.b	$05				; Offset to last Block Parm
			dc.b	$04				; Length of Block Parm
			dc.b	$08				; Offset to last Length Parm
			dc.b	$03				; Length of Length Parm
									;
									; Group 7 Commands
									;
			dc.w	0000			; Reserved Command.
			dc.b	$00				; Offset to last Block Parm
			dc.b	$00				; Length of Block Parm
			dc.b	$00				; Offset to last Length Parm
			dc.b	$00				; Length of Length Parm

			ENDP
			
			EJECT

;*******************************************************
;
;	Internal Data Buffer:
;
;	This buffer is used by the driver for all of it's
;	maintainence I/O between it and the devices that it
;	manages or communicates with.  This is where any
;	INQUIRY data will be received or blocks read in that
;	are needed by the driver to make any kind of
;	determination.  There is also a section reserved for
;	the REQUEST SENSE command for that last command sent.
;
;*******************************************************

				EXPORT	internal_buff
internal_buff	PROC

;-------------------------------------------------------------------------------

				IF			scsi_dtype = direct_acc	THEN

				dcb.b	block_size+20,0		;Incase 532 byte block

				ENDIF

;-------------------------------------------------------------------------------

				IF			scsi_dtype = apple_cd	THEN

				dcb.b	block_size*4,0		;Worst case 2k Block size

				ENDIF

;-------------------------------------------------------------------------------

				IF			scsi_dtype = mcd_40	THEN

				dcb.b	block_size,0

				ENDIF

;-------------------------------------------------------------------------------

				IF			scsi_dtype = scanner	THEN

				dcb.b	one_page*2,0

				ENDIF

;-------------------------------------------------------------------------------

				IF			scsi_dtype = appl_laser	THEN

				dcb.b	one_page*2,0

				ENDIF

;-------------------------------------------------------------------------------

				ENDP

				END

				EJECT
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSI Driver Mgmt b/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSI Driver Mgmt
new file mode 100644
index 0000000..72c92d4
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSI Driver Mgmt	
@@ -0,0 +1 @@
+
;*******************************************************
;
;	SCSI Driver Management Routines.
;
;	Written by Matt Gulick.		Started May 16,1988
;
;	Copyright Apple Computer, Inc. 1988,89
;
;*******************************************************

;*******************************************************
;
;	This file contains the subroutines needed by the
;	SCSI Driver for things such as Getting RAM, Building
;	data areas, calling outside routines for DIB
;	management, as well as other generic routines that
;	are used to make life easier for the driver.  Also
;	included in this file is the record definition for
;	the DIB structure including all it's extensions.
;
;*******************************************************

;*******************************************************
;
;	Revision History:
;
;*******************************************************

;	May 16, 1988	File started.
;	May 17,	1988	DIB Record defined.
;	June 6,	1988	Main Driver Written.
;	Jun 20,	1988	Update Input/Output Data in Comments
;	Apr	14,	1989	Added Conditional Logic to remove
;					block routines from character device
;					assemblies.

				STRING		PASCAL
				BLANKS		OFF
				PAGESIZE	70
				PRINT		NOGEN
				PRINT		NOMDIR
				MACHINE		M65816

				IMPORT		stat_cont

				IMPORT		master_uid
				IMPORT		scsi_uid
				IMPORT		scsi_mgrnum
				IMPORT		rout2_s_disp
				IMPORT		hndl_offset
				IMPORT		buff_len
				IMPORT		page_cnt
				IMPORT		dpi_overide
				IMPORT		call_type
				IMPORT		main_drvr
				IMPORT		internal
;				IMPORT		disk_switch
				IMPORT		ram_page_cnt
				IMPORT		internal_buff
				IMPORT		default_dib
				IMPORT		first_time
				IMPORT		only_one
				IMPORT		part_cnt
				IMPORT		t_dvc_blocks
				IMPORT		f_partition
				IMPORT		part_num
				IMPORT		vPart_cnt
				IMPORT		rebuild
				IMPORT		trash_it
				IMPORT		direct_page
				IMPORT		exit_dpage
				IMPORT		gsos_dpage
				IMPORT		saved_zp
				IMPORT		valid
				IMPORT		dvc_ram
				IMPORT		sense_data
				IMPORT		dvc_count
				IMPORT		result
				IMPORT		divend
				IMPORT		divsor
				IMPORT		max_blk_cnt
				IMPORT		tot_dib_cnt
				IMPORT		dib_data_struct
				IMPORT		main_caller
				IMPORT		curr_hndl
				IMPORT		new_dib
				IMPORT		scratch0
				IMPORT		scratch1
				IMPORT		scratch2
				IMPORT		scratch3
				IMPORT		killer_blk
				IMPORT		auto_sense_data
				IMPORT		temp_acc
				IMPORT		pdi_flag
				IMPORT		new_list
				IMPORT		new_dib_cnt
				IMPORT		new_dib_list
				IMPORT		real_unit			;*************************

				IMPORT		m_blk_size
				IMPORT		m_blk_cnt
				IMPORT		m_rslt

				ENTRY		zero_mem
				ENTRY		get_space

				ENTRY		make_dib
				ENTRY		find_empty
				ENTRY		chk_ram

				ENTRY		rebld_dibs
				ENTRY		dibicise_new_ram
				ENTRY		dibicise_new_dib
				ENTRY		set_link_ptrs
				ENTRY		major_update
				ENTRY		minor_update

				ENTRY		fix_unit_1
				ENTRY		add_dib_ptr
				ENTRY		do_post_install

				ENTRY		read_pm_blk
				ENTRY		rpm_blk_num
;				ENTRY		wpm_blk_num
				ENTRY		chk_map
				ENTRY		no_partition
				ENTRY		check_map_entry

				ENTRY		c_strt_buffer
				ENTRY		c_strt_rqst_cnt
				ENTRY		c_strt_blk_num
				ENTRY		cache_valid
				ENTRY		put_in_cache
				ENTRY		get_from_cache

				ENTRY		test_unit_rdy
				ENTRY		read_capacity
				ENTRY		mode_sense
				ENTRY		mode_sense2

				ENTRY		start_unit
				ENTRY		stop_unit
				ENTRY		set_512_mode

				ENTRY		notify_me

				ENTRY		set_disk_sw
				ENTRY		trash_volume
				ENTRY		save_dp
				ENTRY		restore_dp
				ENTRY		set_our_dp
				ENTRY		check_532_rw
				ENTRY		munge_532
				ENTRY		divide

				PRINT		OFF

				INCLUDE		'scsihd.equates'
				INCLUDE		'M16.MEMORY'
				INCLUDE		'M16.UTIL'
				INCLUDE		'M16.MISCTOOL'
				PRINT		ON

				EJECT
;____Mem_Manager_____
;*******************************************************
;
;	This routine is used to Get a User ID from the
;	memory manager for the SCSI Driver.  This is
;	required to get a userID for access reference.
;
;	Inputs:		None.
;
;	Outputs:	SCSID_uID	=	userID.
;				Registers	=	Scrambled
;
;	Errors:		$0207	iderr	Invalid userID.
;
;*******************************************************

			EXPORT	get_mm_id
get_mm_id	PROC
								;
								; Get userID.
								;
			pushword	#$0000

			pushword	#scsi_duid

			_GetNewID
			pla
			sta		|master_uid
			sta		|scsi_uid
@rts		rts
			
			ENDP

			EJECT

;*******************************************************
;
;	This routine is used to get the SCSI Manager Number
;	from the Supervisory Dispatcher at startup time.
;
;	Inputs:		None.
;
;	Outputs:	scsi_mgrnum		=	SCSI Manager Number
;				All Registers	=	scrambled
;
;	Errors:		None.
;
;*******************************************************

			EXPORT	get_scsimgr
get_scsimgr	PROC
								;
								; Get userID.
								;
			lda		#$0000		; Supervisor Driver Number (Unknown at this time)
			tax					; Supervisor Call Number ($0000)
			ldy		#$0002		; Spervisor ID for SCSI Manager ($0002)
			jsr		|rout2_s_disp
			stx		|scsi_mgrnum	; Preserve SCSI Driver Number for later use.
			rts
			
			ENDP

			EJECT

;*******************************************************
;
;	'zero_mem'
;
;	This routine will fill a section of memory with
;	$00s.
;
;	Inputs:		Acc			=	Buffer Size
;				X			=	Low Byte of new RAM Address
;				Y			=	High Byte of new RAM Address
;
;	Outputs:	scsi_zp0	=	Long Pointer to new RAM
;								Address
;				Acc			=	Scrambled
;
;	Errors:		None.
;
;*******************************************************

				EXPORT	zero_mem
zero_mem		PROC
										;
										; Save the buffer size.
										;
				sta		@buff_size
										;
										; Setup MOVE_INFO call for a
										; non-incrementing source and an
										; incrementing destination.
										;
				pushlong	#null_buff	;Source
				phy						;Destination High Word
				phx						;Destination Low Word
										;
										; Restore buffer size.  If = 0 then
										; we are to do an entire bank or at
										; least 64k bytes.  This may cross
										; banks.
										;
				lda		@buff_size
				beq		@do_64k
				pea		$0000
				pha
				bra		@move_type

@do_64k			pea		$0001
				pea		$0000

@move_type		pea		#move_scon_dinc
				jsl		move_info

@rts			rts
										;
										; Data for this call
										;
@buff_size		dc.w	null
null_buff		dc.w	null

				ENDP

				EJECT

;*******************************************************
;
;	This routine is used to request a section of RAM from
;	the memory manager for use by the driver.  This
;	routine allocates space for as requested by the byte
;	count in the Acc.
;
;	Inputs:		Acc			=	Number of bytes requested.
;								0 = 1 bank
;
;				Y			=	Offset to where the Handle
;								should be stored within
;								the allocated structure.
;
;	Outputs:	X			=	Low Word of new RAM Address
;				Y			=	High Word of new RAM Address
;				scsi_zp0	=	Long Pointer to new RAM
;								Address
;				Acc			=	Scrambled
;
;	Errors:		Not enough memory if carry set.
;
;*******************************************************

				EXPORT	get_space
get_space		PROC
											;
											; Request Acc bytes of RAM from
											; Memory Manager.
											;
				sty		|hndl_offset

				pushlong #00000000			;Space for result handle

				cmp		$0000				;Is it Null?
				beq		@null				;Yes. Request 1 bank

				pushword #0000				;Size in bytes of requested memory.
				bra		@stuff_a

@null			pushword #0001				;Request 1 bank

@stuff_a		sta		|buff_len
				pha
			
				pushword scsi_uid			;Our User ID
			
											;Attributes of requested mem.
				pea		attrfixed++\
						attrnospec++\
						attrpage

				pushlong #00000000			;Location Pointer.  Unused.

				_newhandle

				plx							; Get handle
				ply

				bcs		@rts				; Exit if an error.

											;
											; Save Handle for later
											;
				phy
				phx
											;
											; DEREF the Handle and get a
											; pointer for the new RAM.
											;
				stx		<scsi_zp0
				sty		<scsi_zp0+2
				ldy		#$0002
				lda		[scsi_zp0]
				tax
				lda		[scsi_zp0],y
				tay
											;
											; Stuff pointer for indirect access.
											;
				stx		<scsi_zp0
				sty		<scsi_zp0+2
											;
											; Call routine to zero out the
											; new memory
											;
				lda		|buff_len
				jsr		zero_mem
											;
											; Stuff Handle in RAM. Low byte first
											;
				ldy		|hndl_offset
				pullword [scsi_zp0],y
				iny
				iny
				pullword [scsi_zp0],y
											;
											; Restore X and Y to pointer status
											;
				ldx		<scsi_zp0
				ldy		<scsi_zp0+2
											;
											; Clean Exit.
											;
				clc
@rts			rts

				ENDP

				EJECT

;*******************************************************
;
;	This routine is used to request a section of RAM from
;	the memory manager for use by the driver.  This
;	routine allocates space for the get_devices call to
;	the SCSI Manager.
;
;	Inputs:		None.
;
;	Outputs:	dvc_list	=	Long Pointer to device List
;				next_dib	=	Long Pointer to First DIB
;				first_dib	=	Long Pointer to the beginning
;								of the RAM Allocated for the
;								new DIBs.
;				Acc			=	Scrambled
;
;	Errors:		Not enough memory if carry set.
;
;*******************************************************

				EXPORT	get_dvc_ram
get_dvc_ram		PROC
											;
											; Request the maximum device list
											; size bytes of RAM from GS/OS
											; System Service calls.
											;
				lda		#max_gdvc_buf+4		; Allocate space for list.
				ldy		#$0000

				ldx		|direct_page		;If this is the first time, then
				bne		@use_ours
				phx							;we don't want a DP setting of
											;NULL
											;
											; Save away GS/OS Direct Page values
											; until we have our own direct Page.
											;
				jsr		save_dp

				lda		#max_gdvc_buf+4		; Allocate space for list.
				ldy		#$0000

				ldx		|gsos_dpage
				stx		|direct_page

				jsr		|get_space

				pla							;Restore our settings preserving X & Y
				sta		|direct_page
				sta		|exit_dpage
				bra		@over_use_ours

@use_ours		jsr		|get_space
											;
											; Store newly allocated buffer
											; pointer into the parm list for
											; the get devices call.  Account
											; for the first 4 bytes that
											; contain the handle associated
											; with this memory segment.
											;
@over_use_ours	bcs		@rts_long
				clc
				txa
				sta		|dvc_ram
				adc		#$0004
				sta		|dvc_buff
				sta		<dvc_list
				tya
				sta		|dvc_ram+2
				adc		#$0000
				sta		|dvc_buff+2
				sta		<dvc_list+2
											;
											; Setup Pointer to our parm list
											; in GS/OS Direct Page.
											;
				ldx		|gsos_dpage
				lda		#get_dev_lst
				sta		>smgr_pl_ptr,x
				lda		#^get_dev_lst
				sta		>smgr_pl_ptr+2,x
											;
											; Load registers with their
											; required values.
											;
				lda		|scsi_mgrnum
				ldx		#cmd_get_dvc
				jsr		|rout2_s_disp
@rts_long		bcs		@rts
											;
											; Restore our direct page Device List
											;
				lda		|dvc_buff
				sta		<dvc_list
				lda		|dvc_buff+2
				sta		<dvc_list+2
											;
											; First word in [dvc_list}] contains
											; the address of a 1 page area that
											; we will be using for our direct
											; page.  Get it and move the
											; 'dvc_list' pointer to our direct
											; page area, but only if we have not
											; yet done it.
											;
				lda		|direct_page
				bne		@we_did_it			;It's already been done.

				lda		[dvc_list]
				tax
				lda		<dvc_list
				sta		>dvc_list,x
				lda		<dvc_list+2
				sta		>dvc_list+2,x
				txa
				sta		|direct_page
				sta		|exit_dpage
											;
											; Undocumented feature.  Store the SCSI
											; Managers Direct Page in the Default DIB
											; for external Access.
											;
				clc
				adc		#$0100
				sta		>default_dib+dib.handle
											;
											; Set our Direct Page with the first
											; 'x' Bytes equal to the GS/OS DP
											; settings.
											;
											;
				clc							; Calculate Source Address of GS/OS
				tdc							; Direct Page that we want.
				sta		|gsos_dpage			; Preserving GS/OS DP for later use.
				adc		#dev_num
				pea		$0000
				pha
											;
				clc							; Calculate Destination Address of
				lda		|direct_page		; our Direct Page that we want.
				adc		#dev_num
				pea		$0000
				pha
				
				pushlong	#dib_ptr+4		;Length of the move
				
				pushword	#move_sinc_dinc

				jsl		move_info			;Move the data
											;
											; Restore the Direct Page that we
											; borrowed until this was done.
											;
				jsr		restore_dp
											;
											; Set our Direct Page.
											;
				lda		|direct_page
				tcd
											;
											; Check for zero Devices.
											;
@we_did_it		ldy		#$0002
				lda		[dvc_list],y
				beq		@no_devices
											;
											; Ensure that device count is
											; in range.
											;
				cmp		#$0100+1			;No more than 256 devices
				blt		@count_ok
				lda		#max_dvc_cnt		;Max Count
@count_ok		sta		|dvc_count
				jsr		|make_dib
				stx		<next_dib
				stx		<first_dib
				sty		<next_dib+2
				sty		<first_dib+2

				lda		#no_error
				clc
											;
											; Restore the Direct Page that we
											; borrowed until this was done.
											;
@rts			pha
				php
				jsr		restore_dp
				plp
				pla
				rts
											;
											; No Devices Error.
											;
											; Restore the Direct Page that we
											; borrowed until this was done.
											;
@no_devices		jsr		restore_dp
				lda		#drvr_no_dev
				sec
				rts

get_dev_lst		dc.w	scsi_dtype
				dc.l	notify_me
dvc_buff		dc.l	null

				ENDP

				EJECT

;*******************************************************
;
;	This routine is the inverse of the above routine.
;	It calls the memory manager to deallocate the space
;	we used to request the device list from the SCSI
;	manager.
;
;	Inputs:		X			=	Low byte of Buffer pointer
;				Y			=	High byte of Buffer pointer
;
;	Outputs:	All Regs	=	Scrambled
;
;	Errors:		Not enough memory if carry set.
;
;*******************************************************

				EXPORT	fre_dvc_ram
fre_dvc_ram		PROC
										;
										; Remove the device list from
										; active use and free the mem.
										;
										; Stuff pointer for indirect access.
										;
				lda		|dvc_ram
				sta		<scsi_zp0
				lda		|dvc_ram+2
				sta		<scsi_zp0+2

				ldy		#$0002			;High byte first on stack
				pushword [scsi_zp0],y
				pushword [scsi_zp0]

				_disposehandle					

				rts

				ENDP

				EJECT

;____DIB_Mem_Mgr_____
;*******************************************************
;
;	This routine is used to request a section of RAM from
;	the memory manager for use by the driver.  This
;	routine allocates space for 1 DIB.
;
;	Inputs:		Acc			=	$00xx = DIB Count.
;								Null = $0100
;
;	Outputs:	X			=	Low Byte of new RAM Address
;				Y			=	High Byte of new RAM Address
;				scsi_zp0	=	Long Pointer to new RAM
;								Address
;				Acc			=	Scrambled
;
;	Errors:		Not enough memory if carry set.
;
;*******************************************************

				EXPORT	make_dib
make_dib		PROC
										;
										; Request $100 bytes of RAM for
										; each DIB from GS/OS System
										; Service calls.
										;
				and		#$00ff
				sta		|ram_page_cnt
				xba						;Cheap multiply by $0100
				ldy		#dib.handle		;Offset to where we want the handle
				jsr		|get_space		;Allocate space for DIBs.
				bcc		@rts
				stz		|ram_page_cnt
@rts			rts
			
				ENDP

				EJECT

;*******************************************************
;
;	This routine is called via a 'jsl' and returns the
;	page number of the caller in X and Y with X being
;	the low byte.  This is intended for use by the
;	completion routines in the DIB as a tool to find
;	the DIB's starting location in memory
;
;	Inputs:		None.
;
;	Outputs:	X			=	Low byte of callers page
;				Y			=	High byte of callers page
;				Acc			=	Scrambled
;
;	Errors:		None.
;
;*******************************************************

				EXPORT	g_dib_ptr
g_dib_ptr		PROC
									;
									; Get the callers return
									; address from the stack,
									; strip down to a page number,
									; transfer to X and Y and
									; return to caller via an 'rtl'
									;
				lda		<1,s
				sec
				sbc		#dib.complet+3-dib.linkptr
				tax
				lda		<3,s
				and		#$00ff
				tay
				rtl

				ENDP

				EJECT

;*******************************************************
;
;	'ADD_DIB_RAM'
;
;	This routine searches for the last DIB for this
;	driver, allocates enough ram for 4 additional DIBs
;	and links them in.
;
;	Inputs:		dib_ptr			=	Last DIB in Device link
;				add_dib_here	=	Where the new DIB is to be built
;				Acc				=	Unspecified
;				Y register		=	Unspecified
;				X register		=	Unspecified
;				P register		=	0=M=X=e
;				Direct Page		=	Ours
;				Data Bank		=	Ours
;
;	Outputs:	Acc				=	Unspecified
;				Y register		=	Unspecified
;				X register		=	Unspecified
;				P register		=	0=M=X=e
;				Direct Page		=	Ours
;				Data Bank		=	Ours
;
;	Errors:		Carry set if not enough memory
;
;*******************************************************

				EXPORT	add_dib_ram
add_dib_ram		PROC
											;
											; 'ADD_DIB_HERE' Pointer now points
											; to the last DIB currently allocated
											; and preserve location of last DIB.
											;
				lda		<add_dib_here
				sta		<last_dib
				pha							;Save and later restore
				lda		<add_dib_here+2
				sta		<last_dib+2
				pha							;Save and later restore
											;
											; Get some RAM for a few more DIBs..
											;
				lda		#dibs_2_make
				jsr		make_dib
				bcc		@over_0
											;
											; Got an Error. Fix the Stack and Exit.
											;
				tax

				pla							;Saved, and now restore
				sta		<last_dib+2
				pla							;Saved, and now restore
				sta		<last_dib

				txa

				rts
											;
											; Do First link
											;
@over_0			sty		<first_dib+2
				stx		<first_dib
											;
											; Dibicise first new DIB in the new
											; Memory.
											;
				sec							;Don't do the links.
				jsr		dibicise_new_ram
											;
											; Do the Head and Forward links also.
											;
				lda		#null
				ldy		#dib.headlnk
				sta		[first_dib],y

				ldy		#dib.fdvclnk
				sta		[first_dib],y

				ldy		#dib.unitnum		;Don't forget the unit number
				sta		[first_dib],y
											;
											; Finalise the new DIB Structure.
											;
				dec		|main_caller
											;********
											;******** 6/12/89  Begin fix MSG
											;******** rebuild flag being destroyed.
											;********
				lda		|rebuild			;The state of this flag must be preserved.
				pha
				stz		|rebuild			;Set to zero.  (Full Rebuild)

				jsr		set_link_ptrs		;Now we do the links.

				pla
				sta		|rebuild			;Restore the callers state for this flag.

;				stz		|rebuild			;Set to zero.  (Full Rebuild)

;				jsr		set_link_ptrs		;Now we do the links.
											;********
											;******** 6/12/89  End fix MSG
											;******** rebuild flag being destroyed.
											;********
											;
											; Finish the last three links.  They
											; live in the new memory segment.
											;
				lda		#dibs_2_make-1
				sta		@loop_cnt

@link_loop		clc

				lda		<next_dib
				sta		<last_dib
				adc		#dib_size
				sta		<next_dib

				lda		<next_dib+2
				sta		<last_dib+2
				adc		#^dib_size
				sta		<next_dib+2

				dec		|main_caller
											;********
											;******** 6/12/89  Begin fix MSG
											;******** rebuild flag being destroyed.
											;********
				lda		|rebuild			;The state of this flag must be preserved.
				pha
				stz		|rebuild			;Set to zero.  (Full Rebuild)

				jsr		dibicise_new_dib

				pla
				sta		|rebuild			;Restore the callers state for this flag.

;				stz		|rebuild

;				jsr		dibicise_new_dib
											;********
											;******** 6/12/89  End fix MSG
											;******** rebuild flag being destroyed.
											;********
				dec		@loop_cnt
				bne		@link_loop
											;
											; Clean Exit
											;
											; Reinitialise mem_dib_cnt to zero.
											;
				lda		#null
				ldy		#dib.mem_dib_cnt
				sta		[first_dib],y
											;
											; Wipe out last link pointer to no where.
											;
				sta		[next_dib]
				ldy		#dib.linkptr+2
				sta		[next_dib],y

				pla							;Saved, and now restore
				sta		<last_dib+2
				pla							;Saved, and now restore
				sta		<last_dib

				clc
				rts
											;
											; Data Area.
											;
@loop_cnt		dc.w	null

				ENDP

				EJECT

;*******************************************************
;
;	FIND_EMPTY
;
;	This routine serches forward from the current DIB
;	looking for an empty.  If it exits with the carry
;	clear, then one has been found.  If the carry is
;	set, then it points to the last DIB in the linked
;	list and found non empty.
;
;	Inputs:		<DIB_PTR		=	Last DIB Location
;				Acc				=	Unspecified
;				Y register		=	Unspecified
;				X register		=	Unspecified
;				P register		=	0=M=X=e
;				Direct Page		=	Ours
;				Data Bank		=	Ours
;
;	Outputs:	<ADD_DIB_HERE	=	Empty DIB if found
;				Acc				=	Unspecified
;				Y register		=	Unspecified
;				X register		=	Unspecified
;				P register		=	0=M=X=e
;				Direct Page		=	Ours
;				Data Bank		=	Ours
;
;	Errors:		Carry set if no empties were found
;
;*******************************************************

				EXPORT	find_empty
find_empty		PROC
										;
										; Are we at the last DIB? Set beginning
										; pointer for check.
										;
				lda		<dib_ptr
				sta		<last_dib
				sta		<add_dib_here
				lda		<dib_ptr+2
				sta		<last_dib+2
				sta		<add_dib_here+2
										;
										; Are we at the last DIB? (LOOP)
										;
@fnd_empty_lup	ldy		#$0002
				lda		[add_dib_here]
				tax

				lda		[add_dib_here],y;Should never be in Bank $00
				bne		@advance_ptr	;No.

@sec			sec						;Yes. Exit
				rts
										;
										; Advance Ptr to next DIB.
										;
@advance_ptr	sta		<add_dib_here+2
				stx		<add_dib_here
										;
										; Is it Free?
										;
										; Must have a zero Head Link Ptr,
										; Forward Device Link Ptr, and
										; DIB Device Number to be considered
										; free.
										;
				ldy		#dib.devnum
				lda		[add_dib_here],y
				bne		@fnd_empty_lup	;No.  Check next one.

				ldy		#dib.headlnk
				lda		[add_dib_here],y
				bne		@fnd_empty_lup	;No.  Check next one.

				ldy		#dib.fdvclnk
				lda		[add_dib_here],y
				bne		@fnd_empty_lup	;No.  Check next one.
										;
										; Make the DIB Device Number non-zero
										; to prvent it from being selected
										; again before it is started up by
										; the operating system.
										;
				ldy		#dib.devnum
				lda		[add_dib_here],y
				inc		a
				sta		[add_dib_here],y

				clc						;Yes. Exit
				rts

				ENDP

				EJECT
			
;*******************************************************
;
;	'chk_ram'
;
;	This routine checks to see if we have any room left
;	in this memory segment for another DIB.  If not then
;	the memory manager is called and the new RAM is
;	dibicised.
;		
;	Inputs:		Acc			=	Unspecified
;				Carry		=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Outputs:	Carry		=	1
;					Acc		=	Error
;				Carry		=	0
;					Acc		=	ram_page_cnt
;							=	0	no more devices
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Errors:		None.
;
;*******************************************************
										;
										; Start of the code segment for this.
										;
				EXPORT	chk_ram
chk_ram			PROC
										;
										; All done with the DIB Update now
										; do we have any more RAM left to
										; build further DIBs?
										;
				dec		|ram_page_cnt
				bne		@adv_ptrs		;Yes we do.  Continue on.

										;
										; Account for 'part_cnt' being equal
										; to the Actual Partition Count - 1
										;
				sec
;				clc						;Bug Fix 4/3/89

				lda		|dvc_count		;No we don't.  Get the remaining device
				adc		|part_cnt		;count and add the remaining Part count
;				dec		a				;Subtract our current working device
;				dec		a				;Subtract our current working DIB
				beq		@exit			;Are we done? Yes.
				bmi		@exit			;Yes.
				cmp		#$00ff+1		;No. Bound check the result and
				blt		@call_make_dib

@set_max		lda		#$00ff			;Set to max if greater.
@call_make_dib	jsr		make_dib		;Call routine to make the DIB RAM
				bcc		@update_new		;available.  ERROR?
				cmp		#drvr_no_dev	;Yes.  Then Exit
				bne		@sec
				clc
				rts
@sec			sec
				rts
										;
										; We had room in the current RAM
										; Space so we will advance all the
										; pointers to their next values
										; within that space.
										;
@adv_ptrs		clc
				lda		<next_dib
				sta		<last_dib
				adc		#dib_size
				sta		<next_dib
				lda		<next_dib+2
				sta		<last_dib+2
				adc		#^dib_size
				sta		<next_dib+2
				jsr		dibicise_new_dib
				bra		@exit
											;
											; We have a new memory segment so
											; we need to account for this when
											; we advance our pointers.
											;
@update_new		stx		<first_dib
				sty		<first_dib+2
				lda		<next_dib
				sta		<last_dib
				lda		<next_dib+2
				sta		<last_dib+2
				clc							;Do Links Also
				jsr		dibicise_new_ram
											;
											; Clean exit.
											;
@exit			lda		|ram_page_cnt
				clc
				rts

				ENDP

				EJECT

;____DIB_Building____
;*******************************************************
;
;	REBLD_DIBS
;
;	It is the function of this routine to blindly
;	rebuild the DIBs for the physical device attached to
;	the current DIB.  If that device is non-partitioned,
;	then only one DIB will be built, and a DISK SWITCHED
;	will be issued.  If there are more than one device,
;	as in partitioned media, then all the DIBs for the
;	partitions will be re-built.  This is treated as if
;	the device just came online for the first time.  If
;	the new device has fewer partitions than there are
;	DIBs that are already allocated, then the left over
;	will be marked as being offline.  If, on the other
;	hand, there are more partitions than DIBs, then new
;	ones will be allocated and built.  These will then be
;	permanantly linked to that physical device.
;
;	Inputs:		Acc			=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Outputs:	Acc			=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Errors:		Carry set if operation could not be
;				completed.  Out of memory for example.
;
;*******************************************************
										;
										; Start of the code segment for this.
										;
				EXPORT	rebld_dibs
rebld_dibs		PROC
										;
										; Clear Linked Device Flag.  This will
										; account for the situation where a
										; partitioned disk has been reduced to
										; a single volume.
										;
				stz		@linked
										;
										; Zero the count of new devices to be
										; started.
										;
				stz		|new_dib_cnt
										;
										; Point to first DIB in link if any.
										; If it is zero, then we are already
										; there.
										;
				ldy		#dib.headptr+2
				lda		[dib_ptr],y
				ldy		#dib.headptr
				ora		[dib_ptr],y
				beq		@over
										;
										; It's non-zero.  Set up DIB_PTR
										;
				lda		[dib_ptr],y
				tax
				ldy		#dib.headptr+2
				lda		[dib_ptr],y
				sta		<dib_ptr+2
				stx		<dib_ptr
										;
										; Set Temp Pointer to first DIB in the link.
										;
@over			lda		<dib_ptr
				sta		<scsi_zp6
				lda		<dib_ptr+2
				sta		<scsi_zp6+2 
										;
										; Mark each DIB in the link as offline
										; and switched.
										;
@loop			ldy		#dib.dvcflag
				lda		[scsi_zp6],y
				and		#(dvc_online++\
						pdos_part)--\
						$ffff
				ora		#dvc_switch++\
						dvc_hardofl
				sta		[scsi_zp6],y
										;
										; Mark each DIB in the link as Unlinked.
										;
				ldy		#dib.dvcchar
				lda		[scsi_zp6],y
				and		#linked_dvc--\
						$ffff
				sta		[scsi_zp6],y
										;
										; Zero Partition Offset for each DIB
										;
				lda		#null
				ldy		#dib.start_blk
				sta		[scsi_zp6],y
				ldy		#dib.start_blk+2
				sta		[scsi_zp6],y
										;
										; It's non-zero.  Set up next DIB_PTR
										;
				clc
				ldy		#dib.fdvcptr
				lda		[scsi_zp6],y
				tax
				beq		@null

				sec

@null			ldy		#dib.fdvcptr+2
				lda		[scsi_zp6],y
				bne		@doit
				bcc		@over_0

@doit			sta		<scsi_zp6+2
				stx		<scsi_zp6

				bra		@loop
										;
										; Initialize a few values.
										;
@over_0			lda		#$ffff			;The following values will be incrimented
				sta		|first_time		;with zero indicating special action.
				sta		|rebuild		;This is set to $ffff so that it will only
				sta		|only_one		;occur on the first pass through.

				stz		|part_cnt
				stz		|rpm_blk_num
				stz		|new_dib
										;
										; MAIN LOOP OF CODE SEGMENT.
										;
@main_loop		jsr		read_pm_blk
				bcc		@with_data		;This device is with data
				lda		auto_sense_data+\		;Is it an audio disk?
						rqst_sens.addnl_sens_code
				and		#$00fe			;Checking for $84, $64, or $63
				cmp		#$0064			;This cover $63, $64
				beq		@single
				cmp		#$0084
				beq		@single
				sec
				rts						;There was an error!
										;
										; Valid Partition Map?
										;
@with_data		jsr		chk_map
				bcs		@done
				bne		@main
										;
										; We have a vaild Partition Map so
										; we need to make an entry for each
										; partition other than those with
										; the partition types of 'MAP',
										; 'SCRATCH', and 'FREE'.  All others
										; will be considered valid.  We also
										; only accept up to 'max_partitions'
										; partitions per disk.
										;
										; How many partitions are there?
										;
				lda		|pm.MapBlkCnt\
						+internal_buff
				bne		@force_max
				lda		|pm.MapBlkCnt+2\
						+internal_buff
				xba						;Value is High --> Low
				cmp		#max_partitions+1
				blt		@cnt_ok
@force_max		lda		#max_partitions
@cnt_ok			sta		|part_cnt

				cmp		#$0002+1
				blt		@non_linked
				dec		@linked
@non_linked		dec		|part_cnt
				bpl		@main
										;
										; No valid entry.  Set as if no
										; partitions.
										;
@single			jsr		no_partition	;Marks DIB as online and switched also.
				jsr		trash_volume	;Trash the volume if caller wishes.
										;See |trash_it flag in trash_volume
				lda		#null
				clc
				rts
										;
										; Check validity of partiton map.
										;
@main			jsr		check_map_entry
				bcc		@chk_pdos
										;
										; It was undefined or unusable
										;
										; Is the Pointer good?
										;
										; Is it a cold DIB?
										;
				ldy		#dib.dvcflag
				lda		[add_dib_here],y
				and		#cold_dib
				beq		@over_cold		;No.  Skip clear code.
										;
										; Mark DIB to the Default.
										;
				ldy		#dib.dvcflag
				lda		#wait_mode++\	; Wait Mode is default
						cold_dib		; and they start cold.
				sta		[add_dib_here],y
										;
										; Must set Head Link Ptr, Forward
										; Device Link Ptr, and DIB Device
										; Number to Null.
										;
				lda		#null

				ldy		#dib.devnum
				sta		[add_dib_here],y

				ldy		#dib.headlnk
				sta		[add_dib_here],y

				ldy		#dib.fdvclnk
				sta		[add_dib_here],y
										;
										; And skip it.
										; Is there more to do?
										;
@over_cold		dec		|part_cnt
				bmi		@do_dpi			;No!
				jmp		@main_loop		;Yes!
										;
										; Check to see if the post driver install
										; list contains any entries.
										;
@do_dpi			jsr		do_post_install		
										;
										; Check the only one flag.  If true
										; then unlink it.
										;
				lda		|only_one
				bne		@done

				ldy		#dib.dvcchar
				lda		[rebuild_zp],y
				and		#linked_dvc--\
						$ffff
				sta		[rebuild_zp],y
										;
										; Clean exit.
										;
@done

;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++


				IF			scsi_dtype = mcd_40\
				OR			scsi_dtype = direct_acc		THEN

				jsr		mode_sense

				lda		|internal_buff+1
				bpl		@write_enable

@write_protect	ldy		#dib.dvcchar
				lda		[dib_ptr],y
				and		#write_allow--\
						$ffff
				bra		@wp_chk

@write_enable	ldy		#dib.dvcchar
				lda		[dib_ptr],y
				ora		#write_allow

@wp_chk			sta		[dib_ptr],y
				lda		#$0000

				ENDIF

;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

				clc
@rts			rts
										;
										; Check the Overflow bit.  If it is set,
										; then this is a ProDOS Partition and we
										; need to set the correct bit in the DIB.
										;
@chk_pdos		bvc		@over_1
										;
										; Set the ProDOS Bit.
										;
				ldy		#dib.dvcflag
				lda		[dib_ptr],y
				ora		#pdos_part
				sta		[dib_ptr],y
										;
										; Issue call to fix unit 1.  This will
										; guarantee that the first unit is also
										; the first ProDOS Partition on the disk.
										;
				jsr		fix_unit_1
										;
										; Get the Block Count for this
										; Partition and store it in the
										; DIB.  The count as it exists
										; in the partition data is stored
										; High byte to Low byte.  We will
										; need to alter this to Low --> High
										; format.
										;
@over_1			ldy		#dib.blkcnt
				lda		|pm.PartBlkCnt+2\
						+internal_buff
				xba
				sta		[dib_ptr],y
				ldy		#dib.blkcnt+2
				lda		|pm.PartBlkCnt\
						+internal_buff
				xba
				sta		[dib_ptr],y
										;
										; Now we need to get the starting
										; location for this partition.  This
										; will be added to the requested
										; block to generate a real block
										; address.  Also in High --> Low format.
										;
				ldy		#dib.start_blk+2
				lda		|pm.PyPartStart+2\
						+internal_buff
				sta		[dib_ptr],y
				ldy		#dib.start_blk
				lda		|pm.PyPartStart\
						+internal_buff
				sta		[dib_ptr],y
										;
										; Get Location of this partition on disk.
										;
				ldy		#dib.part_blk
				lda		|rpm_blk_num
				sta		[dib_ptr],y
										;
										; Mark DIB as online and switched.
										;
				ldy		#dib.dvcflag
				lda		[dib_ptr],y
				and		#dvc_hardofl--\
						$ffff
				ora		#dvc_switch++\
						dvc_online
				sta		[dib_ptr],y

;-------------------------------------------------------------------------------

				IF			scsi_dtype = direct_acc	THEN

										;
										; Set the Write Allow/Read Allow
										; Mask byte to allow all bits to pass.
										;
										; This is used to filter or strip out the
										; Write Enable bit in the case where the
										; DIB Status says that the partition is
										; write enabled but the disk is physically
										; write protected.  This can happen with a
										; Partitioned Syquest Drive.
										;
				lda		#$ffff
				sta		@mask_flag
										;
										; Is the device Removable?
										;
				ldy		#dib.dvcchar

				lda		[dib_ptr],y
				and		#removable
				beq		@non_remove		;No.
										;
										; Issue the MODE SENSE Call to see if
										; Write Protected.
										;
				jsr		mode_sense2		;Issue call to use Sense Buffer
				bcs		@non_remove
										;
										; Check the Write Protected Bit.
										;
				lda		|sense_data+\
						mode.w_protect-1		;But bit in Hi Byte
				bpl		@non_remove
										;
										; Set the Write Allow/Read Allow
										; Mask byte to filter the Write Allow out.
										;
				lda		#write_allow--\
						$ffff
				sta		@mask_flag
										;
										; Set the Characteristics to Match the
										; Read and Write Enables in the Partition
										; Status Field.
										;
@non_remove		lda		|pm.PartStatus+2\
						+internal_buff
				xba
				and		#vconf_wr_enable++\
						vconf_rd_enable
				asl		a
				sta		@temp
				ldy		#dib.dvcchar
				lda		[dib_ptr],y
				and		#write_allow++\
						read_allow--\
						$ffff
				ora		@temp
				and		@mask_flag
				sta		[dib_ptr],y

				ENDIF

;-------------------------------------------------------------------------------

										;
										; Mark DIB as Linked.
										;
				lda		@linked
				bpl		@skip_link
				ldy		#dib.dvcchar
				lda		[dib_ptr],y
				ora		#linked_dvc
				sta		[dib_ptr],y
										;
										; Inc the ONLY_ONE Flag.  If it is
										; null then save the dib_ptr.  On
										; exit we will check this flag and
										; if = 0 we will use this pointer
										; to clear the linked flag.
										;
				inc		|only_one
				bne		@skip_link

				lda		<dib_ptr
				sta		<rebuild_zp
				lda		<dib_ptr+2
				sta		<rebuild_zp+2
										;
										; Wipe out block 2 of partition or
										; volume
										;
@skip_link		jsr		trash_volume
										;
										; Is this a new dib?
										;
				bit		|new_dib
				bpl		@set_dsw		;No.  Set disk switch

				ldx		<dib_ptr
				ldy		<dib_ptr+2
				jsr		add_dib_ptr		;Yes. Add to the list for post driver
				bra		@over_dsw		; install.
										;
										; Set the DISK SWITCHED
										;
@set_dsw
;				jsr		set_disk_sw
										;
										; Is there more to do?
										;
@over_dsw		stz		|new_dib
				dec		|part_cnt
				bpl		@over_do_dpi	;Yes!
				jmp		@do_dpi			;No!
										;
										; All done with the DIB Update now
										; do we have any more DIBs, for this
										; linked device?
										;
@over_do_dpi	ldy		#dib.fdvcptr
				lda		[dib_ptr],y
				tax

				ldy		#dib.fdvcptr+2
				ora		[dib_ptr],y
				beq		@over_2
				lda		[dib_ptr],y

				sta		<dib_ptr+2
				stx		<dib_ptr
										;
										; Do the next one.
										;
@jmp_main		jmp		@main_loop
										;
										; It's zero.  Need to add DIBs
										;
										; Is there an empty DIB some where?
										;
@over_2			jsr		find_empty
				bcc		@found_empty
										;
										; Get room for some more DIBs.
										;
				jsr		add_dib_ram
				bcc		@over_2
				

				rts
										;
										; We need to set some pointers for
										; the routines that we will be
										; calling.  These pointers are similar
										; to those used in the startup code
										;
										; 1st.  Set the pointer to the next
										; DIB to be build.
										;
@found_empty	lda		<add_dib_here
				sta		<dib_ptr
				sta		<next_dib
				lda		<add_dib_here+2
				sta		<dib_ptr+2
				sta		<next_dib+2
										;
										; Preserve the Link Pointer.  Otherwise
										; it will be destroyed by the dibicise
										; routine.
										;
				ldy		#dib.linkptr+2
				lda		[next_dib]
				pha
				lda		[next_dib],y
				pha
										;
										; Preserve the Handle for this RAM Segment.
										; Otherwise it will be destroyed by the
										; dibicise routine.
										;
				ldy		#dib.handle+2
				lda		[next_dib],y
				pha
				ldy		#dib.handle
				lda		[next_dib],y
				pha
										;
										; Preserve the current Device Flags.
										;
				ldy		#dib.dvcflag
				lda		[next_dib],y
				pha
										;
										; Set the 'first_dib' pointer to the
										; first dib in the same memory segment
										; from the memory manager as the one
										; that contains the space to be used
										; for this new dib.  first we get the
										; handle.
										;
				ldy		#dib.handle
				lda		[next_dib],y
				sta		<first_dib

				ldy		#dib.handle+2
				lda		[next_dib],y
				sta		<first_dib+2
										;
										; then we deref the handle.
										;
				ldy		#$0002
				lda		[first_dib]
				tax
				lda		[first_dib],y
				sta		<first_dib+2
				stx		<first_dib
										;
										; Tell the dibicize routine that this
										; is not from the startup code.  This
										; also forces the descriptive names
										; minor id to be changed leaving the
										; major or device portion as it is.
										;
				dec		|main_caller
										;
										; Dibicise the new dib.
										;
				jsr		dibicise_new_dib
										;
										; Restore the current Device Flags.
										;
				pla
				ldy		#dib.dvcflag
				sta		[next_dib],y
										;
										; Restore the Handle for this RAM.
										; Otherwise it is destroyed by the
										; dibicise routine.
										;
				pla
				ldy		#dib.handle
				sta		[next_dib],y
				pla
				ldy		#dib.handle+2
				sta		[next_dib],y
										;
										; Restore the Link Pointer.  Otherwise
										; it is destroyed by the dibicise
										; routine.
										;
				pla
				ldy		#dib.linkptr+2
				sta		[next_dib],y
				pla
				sta		[next_dib]
										;
										; Restore the DIB Extension Pointer.
										; Otherwise it is destroyed by the
										; dibicise routine.
										;
				clc						;we are going to add
				lda		<next_dib		;get low word of this dib

				adc		#dib.start_blk	;adc offset to ext dib ptr
				ldy		#dib.ext_ptr	;get offset to where this goes
				sta		[next_dib],y	;and store low word of ptr

				lda		<next_dib+2		;get low word of this dib
				adc		#^dib.start_blk	;adc high offset to ext ptr
				ldy		#dib.ext_ptr+2	;get offset to where this goes
				sta		[next_dib],y	;and store the high word ptr
										;
										; Rev the unit number to be unique
										;
				ldy		#dib.unitnum
				lda		[next_dib],y
				tax
				and		#max_p_mask
				cmp		#max_p_mask
				beq		@all_done

				txa
				clc
				adc		#p_mask_adder
				sta		[next_dib],y
										;
										; This flag indicates that this is a
										; new dib and that the routine that
										; finalizes this dib will have to
										; issue a post driver install call.
										;
				dec		|new_dib
										;
										; Go back to the main loop where this
										; dib will be finalized and installed.
										;
				jmp		@main_loop
										;
										; Clean Exit
										;
@all_done		clc
				rts
										;
										; Misc Data for this sub-routine
										;
@linked			dc.w		null
@part_num		dc.w		null
@vPart_cnt		dc.w		null
@temp			dc.w		null
@mask_flag		dc.w		null

				ENDP

				EJECT
			
;*******************************************************
;
;	'do_part_dib'
;
;	This routine issues a READ call to the device and
;	then uses the data returned to check for any
;	partitions on the media.  If partitions do exist, it
;	then creates the needed dibs from those that have
;	been allocated but unused, or if needed will create
;	a new memory segment and continue on.
;		
;	Inputs:		<next_dib	=	Next DIB start		(LONG)
;				Acc			=	Unspecified
;				Carry		=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Outputs:	<next_dib	=	last DIB Built		(LONG)
;				Acc			=	Unspecified
;				Carry		=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Errors:		None.
;
;*******************************************************
										;
										; Start of the code segment for this.
										;
				EXPORT	do_part_dib
do_part_dib		PROC

;-------------------------------------------------------------------------------

				IF			part_suprt = true		THEN

										;
										; MAIN LOOP OF CODE SEGMENT.
										;
@main_loop		jsr		read_pm_blk
				bcc		@chk_map		;Was there an error?
				
				jsr		no_partition										;
				bra		@done
										; Valid Partition Map?
										;
@chk_map		jsr		chk_map
				bcs		@done
				bne		@main
										;
										; We have a vaild Partition Map so
										; we need to make an entry for each
										; partition other than those with
										; the partition types of 'MAP',
										; 'SCRATCH', and 'FREE'.  All others
										; will be considered valid.  We also
										; only accept up to 'max_partitions'
										; partitions per disk.
										;
										; How many partitions are there?
										;
				lda		|pm.MapBlkCnt\
						+internal_buff
				bne		@force_max
				lda		|pm.MapBlkCnt+2\
						+internal_buff
				xba						;Value is High --> Low
				cmp		#max_partitions+1
				blt		@cnt_ok
@force_max		lda		#max_partitions
@cnt_ok			sta		|part_cnt

				dec		|part_cnt
				bpl		@main
										;
										; No valid entry.  Set as if no
										; partitions.
										;
				jsr		no_partition
				clc
				rts
										;
										; Check validity of partiton map.
										;
@main			jsr		check_map_entry
				bcc		@chk_pdos
										;
										; It was undefined or unusable
										; Mark DIB to the Default.
										;
				ldy		#dib.dvcflag
				lda		#wait_mode++\	; Wait Mode is default
						cold_dib		; and they start cold.
				sta		[next_dib],y
										;
										; Must set Head Link Ptr, Forward
										; Device Link Ptr, and DIB Device
										; Number to Null.
										;
				lda		#null

				ldy		#dib.devnum
				sta		[next_dib],y

				ldy		#dib.headlnk
				sta		[next_dib],y

				ldy		#dib.fdvclnk
				sta		[next_dib],y
										;
										; And skip it.
										; Is there more to do?
										;
				dec		|part_cnt
				bpl		@main_loop
										;
										; Clean exit.
										;
@done			clc
@rts			rts
										;
										; Check the Overflow bit.  If it is set,
										; then this is a ProDOS Partition and we
										; need to set the correct bit in the DIB.
										;
@chk_pdos		bvc		@over
										;
										; Set the ProDOS Bit.
										;
				ldy		#dib.dvcflag
				lda		[next_dib],y
				ora		#pdos_part
				sta		[next_dib],y
										;
										; Issue call to fix unit 1.  This will
										; guarantee that the first unit is also
										; the first ProDOS Partition on the disk.
										;
				jsr		fix_unit_1
										;
										; Get the Block Count for this
										; Partition and store it in the
										; DIB.  The count as it exists
										; in the partition data is stored
										; High byte to Low byte.  We will
										; need to alter this to Low --> High
										; format.
										;
@over			ldy		#dib.blkcnt
				lda		|pm.PartBlkCnt+2\
						+internal_buff
				xba
				sta		[next_dib],y
				ldy		#dib.blkcnt+2
				lda		|pm.PartBlkCnt\
						+internal_buff
				xba
				sta		[next_dib],y
										;
										; Now we need to get the starting
										; location for this partition.  This
										; will be added to the requested
										; block to generate a real block
										; address.  Also in High --> Low format.
										;
				ldy		#dib.start_blk+2
				lda		|pm.PyPartStart+2\
						+internal_buff
				sta		[next_dib],y
				ldy		#dib.start_blk
				lda		|pm.PyPartStart\
						+internal_buff
				sta		[next_dib],y
										;
										; Get Location of this partition on disk.
										;
				ldy		#dib.part_blk
				lda		|rpm_blk_num
				sta		[next_dib],y
										;
										; Set this device to ONLINE.
										;
				ldy		#dib.dvcflag
				lda		[next_dib],y
				ora		#dvc_online
				sta		[next_dib],y

;-------------------------------------------------------------------------------

				IF			scsi_dtype = direct_acc	THEN

										;
										; Set the Characteristics to Match the
										; Read and Write Enables in the Partition
										; Status Field.
										;
				lda		|pm.PartStatus+2\
						+internal_buff
				xba
				and		#vconf_wr_enable++\
						vconf_rd_enable
				asl		a
				sta		@temp
				ldy		#dib.dvcchar
				lda		[next_dib],y
				and		#write_allow++\
						read_allow--\
						$ffff
				ora		@temp
				sta		[next_dib],y

				ENDIF

;-------------------------------------------------------------------------------

										;
										; Increment the partition count.
										;										
				inc		|part_num
				beq		@chk_ram
										;
										; Update the High seven bits of the
										; unit number checking for the max
										; value of 'max_partitions'.
										;
				ldy		#dib.unitnum
				lda		[next_dib],y
				tax
				and		#max_p_mask
				cmp		#max_p_mask
				beq		@all_done
				txa
				clc
				adc		#p_mask_adder
				sta		[next_dib],y
				inc		|vPart_cnt
										;
										; All done with the DIB Update now
										; do we have any more DIBs, and if
										; so, do we have any more RAM left
										; to build further DIBs?
										;
@chk_ram		dec		|part_cnt		
				bmi		@all_done
				dec		|main_caller
				jsr		chk_ram
				bcs		@bad_call		;ERROR?
				jmp		@main_loop		;No. Do the next one.
@bad_call		cmp		#drvr_no_dev	;Yes.  Then Exit
				bne		@sec
				clc
				rts
@sec			sec
				rts
										;
										; Clean Exit
										;
@all_done		clc
				rts
										;
										; Data Area
										;
@temp			dc.w	null

				ELSE

;-------------------------------------------------------------------------------

										;
										; Clean Exit
										;
				lda		#null
				clc
				rts

				ENDIF

;-------------------------------------------------------------------------------

				ENDP

				EJECT
			
;*******************************************************
;
;	'dibicise_new_ram'
;
;	This routine takes the DIB located at [last_dib] and
;	copies it into the new ram space.  It does this
;	while preserving the handle at offset 'dib.handle'.
;	By so doing, it will be possible to free this ram
;	space at some later time if that is deemed correct.
;		
;	Inputs:		<last_dib		=	Last DIB built		(LONG)
;				<first_dib		=	Pointer to new		(LONG)
;									ram space.
;				Acc				=	Unspecified
;				Carry	Clear	=	Do Link Pointers
;						Set		=	Skip Link Pointers
;				Y register		=	Unspecified
;				X register		=	Unspecified
;				P register		=	0=M=X=e
;				Direct Page		=	Ours
;				Data Bank		=	Ours
;
;	Outputs:	<last_dib		=	unchanged			(LONG)
;				<first_dib		=	unchanged			(LONG)
;				<next_dib		=	<first_dib			(LONG)
;				|curr_hndl		=	Handle for new ram	(LONG)
;
;				Acc				=	Unspecified
;				Carry			=	Unspecified
;				Y register		=	Unspecified
;				X register		=	Unspecified
;				P register		=	0=M=X=e
;				Direct Page		=	Ours
;				Data Bank		=	Ours
;
;		If Carry Set on entry then
;
;				|tot_dib_cnt	=	$0000				(WORD)
;
;		If Carry Clear on entry then
;
;				[last_dib]		=	points to this DIB	(LONG)
;				[first_dib]		=	defaults set		(PTR)
;				'Int Pntrs'		=	Set to this DIB		(LONG)s
;				'dispname'		=	Device Name			(STR)
;				|tot_dib_cnt	=	# of valid DIBs		(WORD)
;
;	Errors:		None.
;
;*******************************************************

				EXPORT	dibicise_new_ram
dibicise_new_ram	PROC
											;
											; Save Do Links Flag.
											;
				php
											;
											; Preserve Handle for this
											; memory segment.
											;
				ldy		#dib.handle
				lda		[first_dib],y
				sta		|curr_hndl
				ldy		#dib.handle+2
				lda		[first_dib],y
				sta		|curr_hndl+2
											;
											; Using the built in move routine,
											; copy the last DIB built to the 
											; first_dib location for the next
											; dib to be built.
											;
				pushlong	<last_dib
				pushlong	<first_dib
				pushlong	#dib_size
				pushword	#move_sinc_dinc

				jsl		move_info			;Move the data
											;
											; Restore the handle to it's
											; origonal location.  This will
											; then be copied to every other
											; dib that is built in this
											; memory segment.
											;
				ldy		#dib.handle
				lda		|curr_hndl
				sta		[first_dib],y
				ldy		#dib.handle+2
				lda		|curr_hndl+2
				sta		[first_dib],y
											;
											; Set 'next_dib' pointer to the
											; first dib in this memory
											; segment.
											;
				lda		<first_dib
				sta		<next_dib
				lda		<first_dib+2
				sta		<next_dib+2

				ldy		#dib.dvcflag

;				lda		[first_dib],y
;				ora		#cold_dib			;New DIB.  Do Cold Start.
				lda		#wait_mode++\		;New DIB.  Do Cold Start and in Wait Mode.
						cold_dib

				sta		[first_dib],y
											;
											; Reinitialise mem_dib_cnt to zero.
											;
				lda		#null
				ldy		#dib.mem_dib_cnt
				sta		[first_dib],y
											;
											; Reinitialise DIB Dev Number also.
											;
				ldy		#dib.devnum
				sta		[first_dib],y
											;
											; Finalise the new DIB Structure?
											;
				plp
				bcc		set_link_ptrs
				rts

				ENDP

				EJECT
			
;*******************************************************
;
;	'dibicise_new_dib'
;
;	This routine takes the DIB located at [last_dib] and
;	copies it into the new ram space.
;		
;	Inputs:		<last_dib	=	Last DIB built		(LONG)
;				<next_dib	=	Next DIB start		(LONG)
;				Acc			=	Unspecified
;				Carry		=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Outputs:	<last_dib	=	unchanged			(LONG)
;				<next_dib	=	unchanged			(LONG)
;				[last_dib]	=	points to this DIB	(LONG)
;				[next_dib]	=	defaults set		(PTR)
;				'Int Pntrs'	=	Set to this DIB		(LONG)s
;				'dispname'	=	Device Name			(STR)
;				|tot_dib_cnt=	# of valid DIBs		(WORD)
;				Acc			=	Unspecified
;				Carry		=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Errors:		None.
;
;*******************************************************

				EXPORT	dibicise_new_dib
dibicise_new_dib	PROC
											;
											; Using the built in move routine,
											; copy the last DIB built to the 
											; next_dib location for the next
											; dib to be built.
											;
				pushlong	<last_dib
				pushlong	<next_dib
				pushlong	#dib_size
				pushword	#move_sinc_dinc

				jsl		move_info			;Move the data

											;
											; Finalise the new DIB Structure.
											;
				EXPORT	set_link_ptrs
											;
											; Update Links and DIB ext ptrs
											;
set_link_ptrs	bit		|rebuild
				bmi		@rebuild_links

				clc							;we are going to add
				lda		<next_dib			;get low word of this dib
				sta		[last_dib]			;store in last dib (implied y = 0)

				adc		#dib.start_blk		;adc offset to ext dib ptr
				ldy		#dib.ext_ptr		;get offset to where this goes
				sta		[next_dib],y		;and store low word of ptr

				ldy		#dib.linkptr+2		;get offset to high word
				lda		<next_dib+2			;get the high word and
				sta		[last_dib],y		;store it in the last dib

				adc		#^dib.start_blk		;adc high offset to ext ptr
				ldy		#dib.ext_ptr+2		;get offset to where this goes
				sta		[next_dib],y		;and store the high word ptr
											;
											; Zero out the Link for this DIB
											;
				lda		#null
				sta		[next_dib]
				ldy		#dib.linkptr+2
				sta		[next_dib],y
											;
											; Zero out the Starting Block for this DIB
											;
@rebuild_links	lda		#null
				ldy		#dib.start_blk
				sta		[next_dib],y
				ldy		#dib.start_blk+2
				sta		[next_dib],y
											;
											; Increment the number of active DIBs in
											; this memory segement.
											;
				ldy		#dib.mem_dib_cnt
				lda		[first_dib],y
				inc		a
				sta		[first_dib],y
											;
											; In the DIB Extension as defined for this
											; driver is the root structure of the
											; pointers that are used to call the SCSI
											; Manager.  At this time we need to update
											; them so that they too point into this
											; dib and not the last one.
											;
				clc
				lda		<next_dib			;Low word of Completion Pointer
				adc		#dib.complet
				ldy		#dib.compvec
				sta		[next_dib],y

				lda		<next_dib+2			;High word of Completion Pointer
				adc		#^dib.complet
				ldy		#dib.compvec+2
				sta		[next_dib],y

				clc
				lda		<next_dib			;Low word of Command Packet Pointer
				adc		#dib.scsicmd
				ldy		#dib.cp_ptr
				sta		[next_dib],y

				lda		<next_dib+2			;High word of Command Packet Pointer
				adc		#^dib.scsicmd
				ldy		#dib.cp_ptr+2
				sta		[next_dib],y

				clc
				lda		<next_dib			;Low word of Send Structure Pointer
				adc		#dib.trx_buff
				ldy		#dib.trx_ptr
				sta		[next_dib],y

				lda		<next_dib+2			;High word of Send Structure Pointer
				adc		#^dib.trx_buff
				ldy		#dib.trx_ptr+2
				sta		[next_dib],y
											;
											; Were we called from the
											; main outside loop?
											;
				lda		|main_caller
				bne		@skip_links			; No.  Do device links.
											;
											; Zero out the HEAD LINK and FORWARD LINK
											; pointers.
											;
				ldy		#dib.headlnk
				sta		[next_dib],y		;Acc = 0. See Load.
				ldy		#dib.fdvclnk
				sta		[next_dib],y
				ldy		#dib.headptr
				sta		[next_dib],y		;Acc = 0. See Load.
				ldy		#dib.fdvcptr
				sta		[next_dib],y
				ldy		#dib.headptr+2
				sta		[next_dib],y		;Acc = 0. See Load.
				ldy		#dib.fdvcptr+2
				sta		[next_dib],y
											;
											; Set slot and device words in dib
											;
				lda		[dvc_list]

				ldy		#dib.slotnum
				sta		[next_dib],y

				ldy		#$0002
				lda		[dvc_list],y

				ldy		#dib.unitnum
				sta		[next_dib],y
											;
											; Set pointer to the descriptive or
											; device name so that we can rev the
											; name to prevent duplicates.
											;
@skip_links		clc
				lda		<next_dib
				adc		#dib.namelen
				sta		<scsi_zp0
				lda		<next_dib+2
				adc		#^dib.namelen
				sta		<scsi_zp0+2
											;
											; Was internal or externally called?
											; If internal, then we need to update
											; the major revision part of the
											; descriptive name.  If it was external,
											; then we will update the minor revision
											; part only.
											;
				lda		|main_caller
				beq		@do_major
											;
											; Do the minor revision.
											;
				jsr		minor_update
				bra		@clear_busy
											;
											; Do the major revision.
											;
@do_major		jsr		major_update
											;
											; Clear artifacts.  We copied this data
											; from the first dib that has the
											; call_active bit set.  Clear the sucker.
											;
@clear_busy		ldy		#dib.dvcchar
				lda		[next_dib],y
				and		#call_active--\
						$ffff
				sta		[next_dib],y
											;
											; Clear the ProDOS Bit.
											;
				ldy		#dib.dvcflag
				lda		[next_dib],y
				and		#pdos_part--\
						$ffff
				sta		[next_dib],y
											;
											; Inc the DIB Count at this point.
											; Every DIB that is succesfully built
											; will be modified by the above code.
											;
				stz		|main_caller
				inc		|tot_dib_cnt
				clc
				rts

				ENDP

				EJECT

;*******************************************************
;
;	MAJOR_UPDATE
;
;	This routine updates the major revision portion of
;	the descriptive name portion of the DIB.
;
;	Inputs:		<DIB_PTR		=	DIB Location
;				Acc				=	Unspecified
;				Y register		=	Unspecified
;				X register		=	Unspecified
;				P register		=	0=M=X=e
;				Direct Page		=	Ours
;				Data Bank		=	Ours
;
;	Outputs:	Acc				=	Unspecified
;				Y register		=	Unspecified
;				X register		=	Unspecified
;				P register		=	0=M=X=e
;				Direct Page		=	Ours
;				Data Bank		=	Ours
;
;	Errors:		Better be none.
;
;*******************************************************

				EXPORT	major_update
major_update	PROC
									;
									; Change name so as not to conflict
									; with any other name already built.
									; All names end with '00' - '99'.
									;
				short

				ldx		#$02		;Don't change this value.
				sec
				lda		[scsi_zp0]
									;
									; Reset Minor Revision to '00'.
									;
				pha
				tay
				lda		#'0'
				sta		[scsi_zp0],y
				dey
				sta		[scsi_zp0],y
				pla

				sbc		#$03
				tay
@name_loop		lda		[scsi_zp0],y
				inc		a
				cmp		#'9'+1
				blt		@update
				lda		#'0'
				dex
@update			sta		[scsi_zp0],y
				dey
				dex
				beq		@name_loop

				longmx

				rts

				ENDP

				EJECT

;*******************************************************
;
;	MINOR_UPDATE
;
;	This routine updates the minor revision portion of
;	the descriptive name portion of the DIB.
;
;	Inputs:		<DIB_PTR		=	DIB Location
;				Acc				=	Unspecified
;				Y register		=	Unspecified
;				X register		=	Unspecified
;				P register		=	0=M=X=e
;				Direct Page		=	Ours
;				Data Bank		=	Ours
;
;	Outputs:	Acc				=	Unspecified
;				Y register		=	Unspecified
;				X register		=	Unspecified
;				P register		=	0=M=X=e
;				Direct Page		=	Ours
;				Data Bank		=	Ours
;
;	Errors:		Better be none.
;
;*******************************************************

				EXPORT	minor_update
minor_update	PROC
									;
									; Change name so as not to conflict
									; with any other name already built.
									; All names end with '00' - '99'.
									;
				short

				ldx		#$02		;Don't change this value.
				lda		[scsi_zp0]
									;
									; Check the length of the string.  If
									; it is different from the one in the
									; Default DIB, then we need to assume
									; that it has been renamed.  In this
									; case, we will crank the count up by
									; 2 but not past the max count of 31
									; and append the version number
									; change to that.
									;
				cmp		|default_dib+\
						dib.namelen
				beq		@len_ok
									;
									; Has it already been adjusted?
									;
				tay
				lda		[scsi_zp0],y
				cmp		#'0'
				blt		@fix_it
				cmp		#'9'+1
				bge		@fix_it
				dey
				lda		[scsi_zp0],y
				cmp		#'0'
				blt		@fix_it
				cmp		#'9'+1
				bge		@fix_it
				iny
				bra		@name_loop

@fix_it			lda		[scsi_zp0]
				inc		a
				inc		a
				cmp		#$31
				blt		@set_new_len

				lda		#$31
@set_new_len	sta		[scsi_zp0]

@len_ok			tay
@name_loop		lda		[scsi_zp0],y
				inc		a

				cmp		#'1'
				blt		@force_zero

				cmp		#'9'+1
				blt		@update

@force_zero		lda		#'0'
				dex
@update			sta		[scsi_zp0],y
				dey
				dex
				beq		@name_loop

				longmx

				rts

				ENDP

				EJECT

;____DIB_Support_____
;*******************************************************
;
;	This call is used to determine if the current DIB is
;	the first device.  This routine will return true
;	(with the carry clear) if the device is unlinked or,
;	if linked, then it will return true if this is the
;	head device.
;
;	Inputs:		Acc			=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Outputs:	Acc			=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Errors:		Carry set if Unit is not the first
;				device or it's equivelent.
;
;*******************************************************

				EXPORT	chk_first_dvc
chk_first_dvc	PROC

;-------------------------------------------------------------------------------

				IF			part_suprt = true		THEN

									;
									; Check Linkes to see if single device.
									;
				ldy		#dib.headlnk
				lda		[dib_ptr],y
				bne		@check_devnum
									;
									; Head Link = 0.  Return True.
									;
@true			clc
				rts
									;
									; Check to see if the Device Number and
									; Head Links are the same.  If not then
									; we return false (carry set).
									;
@check_devnum	ldy		#dib.devnum
				cmp		[dib_ptr],y
				beq		@true
									;
									; Return False.
									;
				sec
				rts

				ELSE

;-------------------------------------------------------------------------------

				lda		#null
				clc
				rts

				ENDIF

;-------------------------------------------------------------------------------


				ENDP

				EJECT

;*******************************************************
;
;	This call checks to see if the other device tied to
;	it are offline.  If they are then the carry will be
;	clear on exit.  If this device is tied to any other
;	device that is currently online, then the carry will
;	be set on exit.
;
;	Inputs:		Acc			=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Outputs:	Acc			=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Errors:		Carry set if Unit is not the only
;				device in this link that is still
;				online.
;
;*******************************************************

				EXPORT	chk_lnk_offline
chk_lnk_offline	PROC

;-------------------------------------------------------------------------------

				IF			part_suprt = true		THEN

									;
									; Get the Head Pointer. Check for null.
									;
				clc
				ldy		#dib.headptr
				lda		[dib_ptr],y
				sta		<scsi_zp6
				beq		@over_0
				sec
@over_0			ldy		#dib.headptr+2
				lda		[dib_ptr],y
				sta		<scsi_zp6+2
									;
									; Check if ­ null.
									;
				bne		@check_it_loop
				bcs		@check_it_loop
									;
									; It was null.  This may be the head
									; of the link. Check it out.
									;
				ldy		#dib.fdvcptr
				lda		[dib_ptr],y
				ldy		#dib.fdvcptr+2
				ora		[dib_ptr],y
				beq		@no_link	;No. Return to the caller with the carry clear.
									;
									; Yes. This was the head of the link.
									; Set our pointer to this DIB.
									;
				lda		<dib_ptr
				sta		<scsi_zp6
				lda		<dib_ptr+2
				sta		<scsi_zp6+2
									;
									; At this point, 'scsi_zp6' points to the
									; head of the link.  Now walk the links
									; checking for online.  If a device is
									; online we will need to check if it is the
									; callers device. if so, then we will
									; continue the search.  If not, we will then
									; exit with the carry set.
									;
@check_it_loop	ldy		#dib.dvcflag

				lda		[scsi_zp6],y
				and		#dvc_online		;Is it online?
				beq		@not_online		;No.

				lda		[scsi_zp6],y	;Yes.  Maybe.  Check hard offline
				and		#dvc_hardofl	;Is it hard offline?
				bne		@not_online		;Yes.

				lda		<scsi_zp6+2	;Is it the caller device?
				cmp		<dib_ptr+2
				bne		@linked		;No.
				lda		<scsi_zp6
				cmp		<dib_ptr
				bne		@linked		;No.
									;
									; Point to next device.
									;
@not_online		clc
				ldy		#dib.fdvcptr
				lda		[scsi_zp6],y
				tax
				beq		@over_2
				sec
@over_2			ldy		#dib.fdvcptr+2
				lda		[scsi_zp6],y
				bne		@save_it
				bcc		@no_link
@save_it		sta		<scsi_zp6+2
				stx		<scsi_zp6

				bra		@check_it_loop
				
									;
									; Only device online.
									;
@no_link		clc
				rts
									;
									; Not the only device online.
									;
@linked			sec
				rts

				ELSE

;-------------------------------------------------------------------------------

				lda		#null
				clc
				rts

				ENDIF

;-------------------------------------------------------------------------------


				ENDP

				EJECT

;*******************************************************
;
;	'wake_me_up'
;
;	This call walks the DIBs, slaps them in the face and
;	pours cold water on them.  It seems that they have
;	been sleeping while P8 was running.
;
;				!!!! WAAAAAAAAKE  UUUUUUUP !!!!
;
;	Inputs:		Acc			=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Outputs:	Acc			=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Errors:		None.
;
;*******************************************************

				EXPORT	wake_me_up
wake_me_up		PROC

;-------------------------------------------------------------------------------

				IF		warm_ss_suprt = true		THEN

											;
											; Start with the first DIB after
											; the default DIB
											;
				lda		|default_dib
				sta		<first_dib
				sta		<next_dib
				lda		|default_dib+2
				sta		<first_dib+2
				sta		<next_dib+2
											;
											; Is he asleep?
											;
@check_it_loop	ldy		#dib.dvcflag
				lda		[next_dib],y
				tax
				and		#relaxing
				beq		@next_dib			;No he is not asleep
											;
											; Yes he is!  Is he also Hard
											; Offline?
											;
				txa
				and		#dvc_hardofl
				beq		@not_hardofl		;No.  Wake him up all the way then.

				txa							;Yes.  Only Clear Sleep Bit.
				and		#relaxing--\		;Don't set online.
						$ffff
				sta		[next_dib],y

				bra		@next_dib
											;
											; Yes he is, wake him up.
											;
@not_hardofl	txa
				and		#relaxing--\
						$ffff
				ora		#dvc_online
				sta		[next_dib],y
											;
											; Advance to the next one
											;
@next_dib		clc
				ldy		#dib.linkptr
				lda		[next_dib],y
				tax
				beq		@over_0
				sec
@over_0			ldy		#dib.linkptr+2
				lda		[next_dib],y
				sta		<next_dib+2
				stx		<next_dib
											;
											; Check if ­ null.
											;
				bne		@check_it_loop
				bcs		@check_it_loop
											;
											; That was the last one.
											;
											; By default of the branches above,
											; the Acc. = 0 and the carry is clear.
											;
				rts

;-------------------------------------------------------------------------------

 				ELSE

;-------------------------------------------------------------------------------

				clc
				rts

 				ENDIF

;-------------------------------------------------------------------------------


				ENDP

				EJECT

;*******************************************************
;
;	'fix_unit_1'
;
;	This call walks the DIBs, ensuring that unit 1 is
;	the first ProDOS Partition on the disk..
;
;	Inputs:		Acc			=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Outputs:	Acc			=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Errors:		None.
;
;*******************************************************

				EXPORT	fix_unit_1
fix_unit_1		PROC

;-------------------------------------------------------------------------------

				IF		part_suprt = true		THEN

										;
										; Check the pdos Bit for the Unit number 1.
										; This may or may not be the head device.
										;
				ldy		#dib.headptr
				lda		[dib_ptr],y
				sta		<scsi_zp0
				ldy		#dib.headptr+2
				lda		[dib_ptr],y
				sta		<scsi_zp0+2
				ora		<scsi_zp0		;Are we at the Head Now?
				bne		@check_it		;No.
										;
										; We were already at the head.  Set pointer
										; to this DIB before going on.
										;
				lda		<dib_ptr
				sta		<scsi_zp0
				lda		<dib_ptr+2
				sta		<scsi_zp0+2
										;
										; Is this unit number 1?
										;
@check_it		ldy		#dib.unitnum
				lda		[scsi_zp0],y
				and		#max_p_mask
				beq		@unit_1			;Yes.
										;
										; No.  It's not unit number one.  Check the
										; next DIB in the link if it is non-zero.
										;
				clc
				ldy		#dib.fdvcptr
				lda		[scsi_zp0],y
				tax

				beq		@over_sec
				sec

@over_sec		ldy		#dib.fdvcptr+2
				lda		[scsi_zp0],y

				bne		@set_ptr
				bcc		@out

@set_ptr		sta		<scsi_zp0+2
				stx		<scsi_zp0
				bra		@check_it
										;
										; This is unit 1.  Is it a ProDOS Partition?
										;
@unit_1			ldy		#dib.dvcflag
				lda		[scsi_zp0],y
				and		#pdos_part
				bne		@out			;It's ProDOS, Get out of here.
										;
										; We're out of here.
										;
@out			clc
				rts

;-------------------------------------------------------------------------------

 				ELSE					;part_suprt = true

;-------------------------------------------------------------------------------

				clc
				rts

 				ENDIF					;part_suprt = true

;-------------------------------------------------------------------------------


				ENDP					;fix_unit_1

				EJECT

;*******************************************************
;
;	ADD_DIB_PTR
;
;	This routine adds a pointer to a list of dibs to be
;	installed by the 'POST_DRIVER_INSTALL' System
;	Service call.  Refer to the System Service ERS for
;	details of how this works.
;
;	Inputs:		Acc				=	Unspecified
;				Y register		=	High word of dib ptr
;				X register		=	Low word of dib ptr
;				P register		=	0=M=X=e
;				Direct Page		=	Ours
;				Data Bank		=	Ours
;
;	Outputs:	<DIB_PTR		=	Empty DIB if found
;				Acc				=	Unspecified
;				Y register		=	Unspecified
;				X register		=	Unspecified
;				P register		=	0=M=X=e
;				Direct Page		=	Ours
;				Data Bank		=	Ours
;
;	Errors:		None
;
;*******************************************************

				EXPORT	add_dib_ptr
add_dib_ptr		PROC

;-------------------------------------------------------------------------------

				IF			part_suprt = true		THEN

										;
										; Check to see if this has an overide
										; placed on it.
										;
				lda		|dpi_overide
				bmi		@exit			;Yes.
										;
										; Is this the first time that this has been
										; called for this session.  Only the
										; do_post_install can clear this flag.
										;
				lda		|new_list
				beq		@start_over		; Acc. = 0
										;
										; Inc the count of new devices to be started.
										;
				lda		|new_dib_cnt
@start_over		pha
				inc		a
				sta		|new_dib_cnt
				sta		|new_list
				pla
												;
												; Calculate offset for next ptr.
												;
				asl		a
				asl		a
				pha
				txa
				plx
				sta		|new_dib_list,x			;Place Ptr in list
				sta		<scsi_zp0				;and on zero page.

				tya
				sta		|new_dib_list+2,x		;Place Ptr in list
				sta		<scsi_zp0+2				;and on zero page.

				ldy		#dib.dvcflag
				lda		[scsi_zp0],y
				ora		#cold_dib				;New DIB.  Do Cold Start.
				sta		[scsi_zp0],y

@exit			clc
				rts

				ELSE

;-------------------------------------------------------------------------------

				lda		#null
				clc
				rts

				ENDIF

;-------------------------------------------------------------------------------

				ENDP

				EJECT

;*******************************************************
;
;	DO_POST_INSTALL
;
;	This routine calls the 'POST_DRIVER_INSTALL' System
;	Service call.  Refer to the System Service ERS for
;	details of how this works.
;
;	Inputs:		Acc				=	Unspecified
;				Y register		=	High word of dib ptr
;				X register		=	Low word of dib ptr
;				P register		=	0=M=X=e
;				Direct Page		=	Ours
;				Data Bank		=	Ours
;
;	Outputs:	<DIB_PTR		=	Empty DIB if found
;				Acc				=	Unspecified
;				Y register		=	Unspecified
;				X register		=	Unspecified
;				P register		=	0=M=X=e
;				Direct Page		=	Ours
;				Data Bank		=	Ours
;
;	Errors:		None
;
;*******************************************************

				EXPORT	do_post_install
do_post_install	PROC

;-------------------------------------------------------------------------------

				IF			part_suprt = true		THEN

										;
										; Check to see if this has an overide
										; placed on it.
										;
				lda		|dpi_overide
				bmi		@exit			;Yes.
										;
										; Clear flag indicating that the call was
										; sent.
										;
				stz		|pdi_flag
				stz		|new_list
										;
										; Check the count of new devices to be
										; started.
										;
				lda		|new_dib_cnt
				beq		@exit
										;
										; Make the call
										;
				lda		|gsos_dpage
				tcd
				ldx		#new_dib_cnt
				ldy		#^new_dib_cnt

				jsl		install_driver
				pha
				lda		|direct_page
				tcd
				pla

				bcs		@exit
				dec		|pdi_flag
				
@exit			clc
				rts

				ELSE

;-------------------------------------------------------------------------------

				lda		#null
				clc
				rts

				ENDIF

;-------------------------------------------------------------------------------

				ENDP

				EJECT

;____Part_Support____

;-------------------------------------------------------------------------------

				IF			part_suprt = true		THEN

;*******************************************************
;
;	READ_PM_BLK
;
;	
;
;	Inputs:		Acc			=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Outputs:	Acc			=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Errors:		Carry set if operation could not be
;				completed.  Out of memory for example.
;
;*******************************************************

				EXPORT	read_pm_blk
read_pm_blk		PROC
										;
										; Tell the Main Driver where
										; our command structure resides.
										;
				lda		#@read_part
				sta		<scsi_mdrvr
				lda		#^@read_part
				sta		<scsi_mdrvr+2
										;
										; And our buffer
										;
				lda		#internal_buff
				sta		<buff_ptr
				lda		#^internal_buff
				sta		<buff_ptr+2
										;
										; Was this from the STARTUP Call?
										;
				bit		|rebuild
				bmi		@over			;No.
										;
										; Yes, then stuff the pointer to
										; the dib that we are building into
										; the Direct Page locations.  The
										; main driver will use this to build
										; the SCSI READ BLOCK Command that
										; we will issue.
										;
				lda		<next_dib
				sta		<dib_ptr
				lda		<next_dib+2
				sta		<dib_ptr+2
										;
										; And our length from the DIB's
										; Block Size value
										;
@over			lda		#block_size
				sta		<rqst_cnt
				lda		#^block_size
				sta		<rqst_cnt+2
										;
										; Was this from a Status or Control Call?
										;
				bit		|stat_cont
				bmi		@block_set
										;
										; Set block to read for the next
										; partition map block.  This field
										; is initialized to zero.  Because
										; the first partition map block is
										; on block 1, this will be initialized
										; to zero and then blindly incremented
										; until we are finished.
										;
										; *** This is High --> Low format ***
										;
				lda		|rpm_blk_num
				xba
				inc		a
				xba
				sta		|rpm_blk_num
										;
										; Set internal command flag
										;
@block_set		stz		|stat_cont		;We used the flag, now clear it.
				dec		|internal
										;
										; Set the Partition call flag
										;
				dec		|f_partition
										;
										; Set the Call Type and Issue the
										; READ BLOCK Command.
										;
				lda		#scsit_stat
				sta		|call_type
										;
										; Issue the call.
										;
				jsr		check_532_rw

@rts			rts
										;
										; Data for the READ BLOCK Command
										;
@read_part		dc.b		$08
				dc.b		null
				EXPORT		rpm_blk_num
rpm_blk_num		dc.w		null
				dcb.b		10,null

				ENDP

				EJECT

;*******************************************************
;
;	'write_pm_blk'
;
;	
;
;	Inputs:		Acc			=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Outputs:	Acc			=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Errors:		Carry set if operation could not be
;				completed.  Out of memory for example.
;
;*******************************************************

				EXPORT	write_pm_blk
write_pm_blk	PROC
										;
										; Tell the Main Driver where
										; our command structure resides.
										;
				lda		#@write_part
				sta		<scsi_mdrvr
				lda		#^@write_part
				sta		<scsi_mdrvr+2
											;
											; And our buffer
											;
				lda		#internal_buff
				sta		<buff_ptr
				lda		#^internal_buff
				sta		<buff_ptr+2
										;
										; And our length from the DIB's
										; Block Size value
										;
				lda		#block_size
				sta		<rqst_cnt
				lda		#^block_size
				sta		<rqst_cnt+2
										;
										; Set internal command flag
										;
				dec		|internal
										;
										; Set the Partition call flag
										;
				dec		|f_partition
										;
										; Set the Call Type and Issue the
										; READ BLOCK Command.
										;
				lda		#scsit_cont
				sta		|call_type
										;
										; Issue the call.
										;
				jsr		check_532_rw

@rts			rts
										;
										; Data for the READ BLOCK Command
										;
@write_part		dc.b		$0A
				dc.b		null
				EXPORT		wpm_blk_num
wpm_blk_num		dc.w		null
				dcb.b		10,null

				ENDP

				EJECT

;*******************************************************
;
;	CHK_MAP
;
;	This routine checks the validity of the partition
;	map block currently loaded in the internal buffer.
;	This need only be called once per device.  If the
;	map is valid, then the carry will be clear.  The 'Z'
;	flag will also be set if this is not the first time
;	that this routine was called for this device.  If
;	the carry is set, then the map was invalid and the
;	block count at 'T_DVC_BLOCKS' has been placed in the
;	DIB pointed to by 'DIB_PTR'.  The starting block will
;	also have been set to null.
;
;	Inputs:		<DIB_PTR		=	DIB Location
;				|T_DVC_BLOCKS	=	Total blocks for this device
;				Acc				=	Unspecified
;				Y register		=	Unspecified
;				X register		=	Unspecified
;				P register		=	0=M=X=e
;				Direct Page		=	Ours
;				Data Bank		=	Ours
;
;	Outputs:	Acc				=	Unspecified
;				Y register		=	Unspecified
;				X register		=	Unspecified
;				P register		=	0=M=X=e
;								=	Z = 0 if routine called before
;								=	C = 1 if not a partition map
;				Direct Page		=	Ours
;				Data Bank		=	Ours
;
;	Errors:		Carry set if 'internal_buff does not
;				contain a valid Partition map entry.
;
;*******************************************************

				EXPORT	chk_map
chk_map			PROC
										;
										; Valid Partition Map?
										;
@over_0			inc		|first_time		;Don't need to do this but once.
				bne		@clc			;Already done if taken.
				
				lda		|pm.Sig\
						+internal_buff
				cmp		#Part_sig
				bne		no_partition	;No.

@clc			clc
				rts
										;
										; We didn't have a valid partition
										; map, so this device will be
										; treated as a single non-partitioned
										; device.
										;
				EXPORT	no_partition
										;
										; Issue the READ CAPACITY Command.
										;
no_partition	jsr		read_capacity
				bcs		@over_0			;Was there an error?
										;
										; Get the Block Count (Stored
										; High >> Low.  Must be switched
										; to Low >> High).  This is the last
										; readable block number.  Add 1 to
										; it for comparison reasons.
										;
				lda		|block.count\
						+internal_buff\
						+2
				xba
				adc		#$0001

				ldy		#dib.blkcnt
				sta		[dib_ptr],y

				lda		|block.count\
						+internal_buff
				xba
				adc		#null

				ldy		#dib.blkcnt+2
				sta		[dib_ptr],y

@over_0			ldy		#dib.start_blk
				lda		#null
				sta		[dib_ptr],y
				ldy		#dib.start_blk+2
				sta		[dib_ptr],y
										;
										; Set Read and Write Enables
										;
				lda		>default_dib+dib.dvcchar	;Get Default Settings for
				and		#write_allow++\				;Write Enable
						read_allow++\				;Read Enable
						format_allow				;And Format Allowed
				ldy		#dib.dvcchar
				ora		[dib_ptr],y					;Combine with the current
				sta		[dib_ptr],y					;Settings for this device
										;
										; Mark DIB as online and switched.
										;
				ldy		#dib.dvcflag
				lda		[dib_ptr],y
				and		#dvc_hardofl--\
						$ffff
				ora		#dvc_switch++\
						dvc_online
				sta		[dib_ptr],y

				sec
				rts

				ENDP

				EJECT

;*******************************************************
;
;	'check_map_entry'
;
;	Check the Partition Map Entry currently loaded in
;	the internal buffer.  If it is of type
;	'Apple_partition_map', 'Apple_Driver', 'Apple_Free',
;	or 'Apple_Scratch', then this routine will return
;	with the carry set.  Any other type will return
;	with the carry clear.  In addition, 'Apple_ProDOS'
;	will return with the overflow flag set.
;
;	Inputs:		Acc			=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Outputs:	Acc			=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Errors:		Carry set if Partition Map Entry is not
;				for a valid Volume.  Overflow set if the
;				Partition is a ProDOS Partition.
;
;*******************************************************

				EXPORT	check_map_entry
check_map_entry	PROC
										;
										; This routine runs in
										; 8 bit m and x only.
										;
				short
										;
										; Is it ProDOS?
										;
				ldx		#@p_map-@prodos-2
				ldy		#null

@loop			lda		|pm.PartType\
						+internal_buff,y
				beq		@over_0			;Yes or null.  Either way we do the rest.
				cmp		@prodos,y
				beq		@next
				eor		#'A'--'a'
				cmp		@prodos,y
				bne		@over_0			;No.  Continue on.
@next			iny
				dex
				bpl		@loop
				brl		@pdos_part		;Skip over 8 bit code area to 16 bit area.
										;
										; Is it the Partition Map?
										;
@over_0			ldx		#32-1
				ldy		#null

@loop_0			lda		|pm.PartType\
						+internal_buff,y
				beq		@skip			;Yes or null.  Either way we skip it.
				cmp		@p_map,y
				beq		@next_0
				eor		#'A'--'a'
				cmp		@p_map,y
				bne		@over_1			;No.  Continue on.
@next_0			iny
				dex
				bpl		@loop_0
				bra		@skip			;Yes. Skip it.
										;
										; Is it a FREE Partition?
										;
@over_1			ldx		#32-1
				ldy		#null

@loop_1			lda		|pm.PartType\
						+internal_buff,y
				beq		@skip			;Yes or null.  Either way we skip it.
				cmp		@free,y
				beq		@next_1
				eor		#'A'--'a'
				cmp		@free,y
				bne		@over_2			;No.  Continue on.
@next_1			iny
				dex
				bpl		@loop_1
				bra		@skip			;Yes. Skip it.
										;
										; Is it a SCRATCH Partition?
										;
@over_2			ldx		#32-1
				ldy		#null

@loop_2			lda		|pm.PartType\
						+internal_buff,y
				beq		@skip			;Yes or null.  Either way we skip it.
				cmp		@scratch,y
				beq		@next_2
				eor		#'A'--'a'
				cmp		@scratch,y
				bne		@over_3			;No.  Continue on.
@next_2			iny
				dex
				bpl		@loop_2
										;
										; Is it a Driver Partition?
										;
@over_3			ldx		#32-1
				ldy		#null

@loop_3			lda		|pm.PartType\
						+internal_buff,y
				beq		@skip			;Yes or null.  Either way we skip it.
				cmp		@driver,y
				beq		@next_3
				eor		#'A'--'a'
				cmp		@driver,y
				bne		@over_4			;No.  Continue on.
@next_3			iny
				dex
				bpl		@loop_3
										;
										; At this point the Current Partition
										; Type matched one of the three types
										; checked for.  Exit with the carry
										; set.
										;
@skip			longmx
				sec
				rts
										;
										; At this point the Current Partition
										; Type did not match one of the three
										; types checked for and it was not a
										; ProDOS Partition..  Exit with the
										; Carry and Overflow bits clear.
										;
@over_4			longmx
				clc
				clv
				rts
										;
										; At this point the Current Partition
										; Type is a ProDOS Partition.  Exit with
										; the Carry clear and Overflow set.
										;
@pdos_part		longmx
				clc
				sep		#%01000000		;Set the v flag
				rts
										;
										; Inactive Partion Types to check for.
										;
				STRING		ASIS

@prodos			dc.b		'Apple_ProDOS'
				dc.b		$00
@driver			dc.b		'Apple_Driver'
				dc.b		$00
@p_map			dc.b		'Apple_partition_map'	
				dc.b		$00
@free			dc.b		'Apple_Free'
				dc.b		$00
@scratch		dc.b		'Apple_Scratch'
				dc.b		$00

				STRING		PASCAL

				ENDP

				EJECT

				ELSE					;part_suprt = true

;-------------------------------------------------------------------------------

				EXPORT		read_pm_blk
read_pm_blk		PROC

				EXPORT		check_map_entry
check_map_entry
				lda		#null
				clc
				clv
				rts


				EXPORT		rpm_blk_num
rpm_blk_num		dc.w	null

				EXPORT		chk_map
chk_map
										;
										; We can't have a valid partition
										; map, so this device will be
										; treated as a single non-partitioned
										; device.
										;
				EXPORT	no_partition
										;
										; Issue the READ CAPACITY Command.
										;
no_partition	jsr		read_capacity
				bcs		@over_0			;Was there an error?
										;
										; Get the Block Count (Stored
										; High >> Low.  Must be switched
										; to Low >> High).  This is the last
										; readable block number.  Add 1 to
										; it for comparison reasons.
										;
				lda		|block.count\
						+internal_buff\
						+2
				xba
				adc		#$0001

				ldy		#dib.blkcnt
				sta		[dib_ptr],y

				lda		|block.count\
						+internal_buff
				xba
				adc		#null

				ldy		#dib.blkcnt+2
				sta		[dib_ptr],y

@over_0			ldy		#dib.start_blk
				lda		#null
				sta		[dib_ptr],y
				ldy		#dib.start_blk+2
				sta		[dib_ptr],y
										;
										; Mark DIB as online and switched.
										;
				ldy		#dib.dvcflag
				lda		[dib_ptr],y
				and		#dvc_hardofl--\
						$ffff
				ora		#dvc_switch++\
						dvc_online
				sta		[dib_ptr],y

				sec
				rts

				ENDIF					;part_suprt = true

;-------------------------------------------------------------------------------

;____Cache_Suport____

;-------------------------------------------------------------------------------

				IF	cache_blks = true	THEN

;*******************************************************
;
;	'r_all_in_cache'
;
;	This routine is used to check if the entire
;	requested block count is in the cache.  This routine
;	will check each block individually, incrementing the
;	block count and subtracting the block size from the
;	request count until either a block is found that is
;	not in the cache (Exit Carry Set) or request count
;	has been exausted (Exit Carry Clear).
;
;	On entry this routine clears some values to indicate
;	it's starting point for this call.  As it goes
;	throughthe cache looking for blocks, it will fetch
;	the block from the cache and advance the starting
;	point.  What this does is eliminate double searches
;	throughthe cache and if a read is needed, these
;	blocks will not have to be transfered.  When this
;	routine exits, the caller will think that the first
;	block that we found that was not in the cache was
;	the first block requested.  For this reason, any
;	code that uses this call will need to preserve those
;	values so that they can be restored on exit.
;
;	If we receive a Read Call for 256 blocks and the
;	first 128 are in the cache, then we don't want to
;	re-read them, and we don't want to do a find again
;	later when we fetch them.  let's fetch them now and
;	advance our pointers.
;
;	Inputs:		Acc			=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				<buff_ptr	=	Original Starting Buffer
;				<rqst_cnt	=	Original Request Count
;				<block_num	=	Original Starting Block
;				Data Bank	=	Ours
;
;	Outputs:	Acc			=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				<buff_ptr	=	New Starting Buffer
;				<rqst_cnt	=	New Request Count
;				<block_num	=	New Starting Block
;				Data Bank	=	Ours
;
;	Errors:		Acc = 0 and Carry set if 1 or more
;				blocks of the request are not in the
;				cache.
;
;				Acc <> 0 if any other error occurs.
;				Error code is in Acc.
;
;*******************************************************

				EXPORT	r_all_in_cache
r_all_in_cache	PROC
										;
										; Switch Direct Pages.
										;
				lda		|gsos_dpage
				tcd
										;
										; Get the requested count and devide
										; by block size to get the loop counter.
										; If Count = 0, then exit.
										;
				lda		<rqst_cnt
				sta		|divend
				lda		<rqst_cnt+2
				sta		|divend+2

				ora		<rqst_cnt
				bne		@continue

				lda		|direct_page
				tcd
				lda		#null
				clc
@rts			rts

										;
										; Call divide routine.
										;
@continue		lda		<blk_size
				sta		|divsor

				jsr		divide
				bcc		@over_divide

				lda		|direct_page
				tcd

				lda		#drvr_bad_cnt	;non-integral rqst count.
				sec
				rts
										;
										; Count = count -1.  This way we can
										; use a BMI to exit with.
										;
@over_divide	lda		|result+2
				sta		@blk_cnt+2
				lda		|result
				sta		@blk_cnt
				bne		@over_dec_high
				dec		@blk_cnt+2
@over_dec_high	dec		@blk_cnt
										;
										; Setup is now completed.  Now we start to
										; check to see if the blocks are in the
										; cache.
										;
@chk_blk_loop	sec						;return error if not in cache. Don't add.
				jsr		|get_from_cache
				bcc		@found
				lda		#null			;Not there.  Clear the Acc. and Exit.
				bra		@restore
										;
										; Are there any more to do?
										;
@found			lda		@blk_cnt
				bne		@over_dec
				dec		@blk_cnt+2
				bpl		@over_dec
										;
										; No. Count is exausted.
										;
				lda		#null
				clc
				bra		@restore
										;
										; Yes. Finish the DEC and update the
										; Buffer Pointer, Request Count, and
										; the Block Number.
										;
@over_dec		dec		@blk_cnt

				clc						;Bump Buffer Pointer
				lda		<buff_ptr
				adc		<blk_size
				sta		<buff_ptr
				lda		<buff_ptr+2
				adc		#null
				sta		<buff_ptr+2

				sec						;Back off Request Count
				lda		<rqst_cnt
				sbc		<blk_size
				sta		<rqst_cnt
				lda		<rqst_cnt+2
				sbc		#null
				sta		<rqst_cnt+2

				inc		<block_num		;Inc the Block Number
				bne		@chk_blk_loop
				inc		<block_num+2
				bra		@chk_blk_loop
										;
										; We are finished.  We don't need to
										; know if we were succesfull.  We only
										; need to restore the state of the
										; corrupted direct page values while
										; preserving the Acc. and Carry bit.
										;
@restore		pha
				php

				ldx		|direct_page

				lda		<buff_ptr
				sta		>buff_ptr,x
				sta		|c_strt_buffer
				lda		<buff_ptr+2
				sta		>buff_ptr+2,x
				sta		|c_strt_buffer+2

				lda		<rqst_cnt
				sta		>rqst_cnt,x
				sta		|c_strt_rqst_cnt
				lda		<rqst_cnt+2
				sta		>rqst_cnt+2,x
				sta		|c_strt_rqst_cnt+2

				lda		<block_num
				sta		>block_num,x
				sta		|c_strt_blk_num
				lda		<block_num+2
				sta		>block_num+2,x
				sta		|c_strt_blk_num+2
										;
										; Validate Flag for the Read Cache
										; Routines
										;
				dec		|cache_valid

				txa
				tcd

				plp
				pla
				rts
										;
										; Internal Data
										;
@blk_cnt		dc.l	null
										;
										; The following values are used to advance
										; the starting point of the cache calls.
										;
				EXPORT		c_strt_buffer
				EXPORT		c_strt_rqst_cnt
				EXPORT		c_strt_blk_num
				EXPORT		cache_valid

c_strt_buffer	dc.l	null			;Starting Buffer Pointer
c_strt_rqst_cnt	dc.l	null			;Starting Request Count
c_strt_blk_num	dc.l	null			;Starting Block Number
cache_valid		dc.w	null

				ENDP

				EJECT

;*******************************************************
;
;	'w_update_cache'
;
;	This routine is used when writting data to the disk
;	with a cache priority of $0000.  If the block is in
;	the cache, then the cache will be updated.  If not,
;	then nothing will happen.
;
;	Inputs:		Acc			=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;				Carry Clear	=	Always place in cache
;				Carry set	=	Only place in cache if
;								already there.
;
;	Outputs:	Acc			=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Errors:		Carry set if requested block is not
;				added to the cache.
;
;*******************************************************

				EXPORT	w_update_cache
w_update_cache	PROC
										;
										; Zero Deferred Write failed flag.
										;
				stz		@deferred
										;
										; Preserve Carry Flag for later.
										;
				php
										;
										; Set GS/OS Direct Page
										;
				lda		|gsos_dpage
				tcd
										;
										; Preserve Block Number and request
										; count.  Set count to 1 block per
										; call.
										;
				lda		<buff_ptr
				sta		@orig_buff

				lda		<rqst_cnt
				sta		@bytes_rem

				lda		<block_num
				sta		@start_blk

				lda		<buff_ptr+2
				sta		@orig_buff+2

				lda		<rqst_cnt+2
				sta		@bytes_rem+2

				lda		<block_num+2
				sta		@start_blk+2
										;
										; Is the requested block in the cache?
										;
@do_cache		plp
				php
				jsr		put_in_cache
				bcc		@cached			;Carry set only if a deferred write
				dec		@deferred		;failed to go in the cache.
										;
										; Advance to the next block.
										;
@cached			inc		<block_num
				bne		@over
				inc		<block_num+2
										;
										; Bump Buffer Pointer.
										;
@over			clc
				lda		<buff_ptr
				adc		<blk_size
				sta		<buff_ptr
				bcc		@over_1
				inc		<buff_ptr+2
										;
										; Any Data Left
										;
@over_1			sec
				lda		@bytes_rem
				sbc		<blk_size
				sta		@bytes_rem
				sta		|temp_acc

				lda		@bytes_rem+2
				sbc		#null
				sta		@bytes_rem+2
				ora		|temp_acc

				bne		@do_cache		;Yes.
				clc
										;
										; Restore Values.
										;

@restore		lda		@orig_buff
				sta		<buff_ptr

				lda		@start_blk
				sta		<block_num

				lda		@orig_buff+2
				sta		<buff_ptr+2

				lda		@start_blk+2
				sta		<block_num+2
										;
										; Exit.
										;
				lda		|direct_page
				tcd

				lda		@deferred
				beq		@clean_out
				plp						;Restore the Stack.
				sec
				rts

@clean_out		plp						;Restore the Stack.
				clc
				rts
										;
										; Internal Data
										;
@deferred		dc.w	null
@orig_buff		dc.l	null
@bytes_rem		dc.l	null
@start_blk		dc.l	null

				ENDP

				EJECT

;*******************************************************
;
;	'put_in_cache'
;
;	This routine is used to place the current block in
;	the cache.  First we will check if the requested
;	block is in the cache.  If the block is not in the
;	cache then we will add it.  if there is no room and
;	the driver call was issued in deferred mode then we
;	will exit with the carry set.  In all other cases
;	we will exit Carry Clear.
;
;	Inputs:		Acc			=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;				Carry Clear	=	Always place in cache
;				Carry set	=	Only place in cache if
;								already there.
;
;	Outputs:	Acc			=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Errors:		Carry set if requested block is not
;				added to the cache in deferred mode
;				only.
;
;*******************************************************

				EXPORT	put_in_cache
put_in_cache	PROC
										;
										; Is the requested block in the cache?
										;
				php

				clc
				jsl		cache_find_blk

				bcc		@move_it_in		;Yes. It is.
				plp
				bcs		@clc
										;
										; Not there.  Allocate space.
										;
				jsl		cache_add_blk
				bcc		@skip_fix
				lda		<cache_prio		;Deferred Mode?
				bpl		@clc			;No.  Exit Carry Clear.
				rts						;Yes. Exit carry set
										;
										; Move the block in.
										;
@move_it_in		plp						;Restore the stack.

@skip_fix		pei		<buff_ptr+2
				pei		<buff_ptr
				pei		<cache_ptr+2
				pei		<cache_ptr
				pea		$0000
				pei		<blk_size
				pea		|move_sinc_dinc
				jsl		move_info
										;
										; Exit.
										;
@clc			clc
@rts			rts

				ENDP

				EJECT

;*******************************************************
;
;	'r_get_cache'
;
;	This routine is used when reading data from the disk
;	with a cache priority of $0000.  If the block is in
;	the cache, then the data will be updated.  If not,
;	then nothing will happen.
;
;	Inputs:		Acc			=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;				Carry Clear	=	Always place in cache
;				Carry set	=	Only place in cache if
;								already there.
;
;	Outputs:	Acc			=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Errors:		Carry set if requested block is not
;				added to the cache.
;
;*******************************************************

				EXPORT	r_get_cache
r_get_cache		PROC
										;
										; Preserve Carry Flag for later.
										;
				php
										;
										; Check Validity of the call.
										;
				lda		|cache_valid
				bmi		@valid

				plp
				lda		#drvr_bad_code
				sec
				rts
										;
										; Set GS/OS Direct Page
										;
@valid			lda		|gsos_dpage
				tcd
										;
										; Get Request count.
										;
				lda		|c_strt_rqst_cnt
				sta		@bytes_rem
				lda		|c_strt_rqst_cnt+2
				sta		@bytes_rem+2
										;
										; Is the requested block in the cache?
										;
@do_cache		plp
				php
				jsr		get_from_cache
										;
										; Advance to the next block.
										;
				inc		<block_num
				bne		@over
				inc		<block_num+2
										;
										; Bump Buffer Pointer.
										;
@over			clc
				lda		<buff_ptr
				adc		<blk_size
				sta		<buff_ptr
				bcc		@over_1
				inc		<buff_ptr+2
										;
										; Any Data Left
										;
@over_1			sec
				lda		@bytes_rem
				sbc		<blk_size
				sta		@bytes_rem
				sta		|temp_acc

				lda		@bytes_rem+2
				sbc		#null
				sta		@bytes_rem+2
				ora		|temp_acc

				bne		@do_cache		;Yes.
										;
										; Exit.
										;
				stz		|cache_valid	;Cache Values no longer valid

				lda		|direct_page
				tcd

				plp						;Restore the Stack.
				clc
				rts
									;
									; Internal Data
									;
@bytes_rem		dc.l	null

				ENDP

				EJECT

;*******************************************************
;
;	'get_from_cache'
;
;	This routine is used to get the current block from
;	the cache.  First we will check if the requested
;	block is in the cache.  If the block is not in the
;	cache then we will exit with the Carry Set.  If it
;	is found, then we will move it to the requested ram
;	and exit Carry Clear.
;
;	Inputs:		Acc			=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Outputs:	Acc			=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Errors:		Carry set if requested block is not
;				in the cache.
;
;*******************************************************

				EXPORT	get_from_cache
get_from_cache	PROC
										;
										; Is the requested block in the cache?
										;
				php

				clc
				jsl		cache_find_blk

				bcc		@move_it_in		;Yes. It is.
				plp
				bcs		@rts
										;
										; Not there.  Allocate space.
										;
				jsl		cache_add_blk
				bcs		@rts

				pei		<buff_ptr+2
				pei		<buff_ptr
				pei		<cache_ptr+2
				pei		<cache_ptr
				pea		$0000
				pei		<blk_size
				pea		|move_sinc_dinc
				jsl		move_info

				bra		@clc
										;
										; Move the block in.
										;
@move_it_in		plp						;Restore the stack.

@skip_fix		pei		<cache_ptr+2
				pei		<cache_ptr
				pei		<buff_ptr+2
				pei		<buff_ptr
				pea		$0000
				pei		<blk_size
				pea		|move_sinc_dinc
				jsl		move_info
										;
										; Exit.
										;
@clc			clc
@rts			rts

				ENDP

				EJECT

;*******************************************************
;
;	'ko_cache'
;
;	This routine is used to kill all blocks that are
;	cached that are included in a device specific write
;	type call.
;
;	Inputs:		Acc			=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Outputs:	Acc			=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Errors:		None.
;
;*******************************************************

				EXPORT	ko_cache
ko_cache		PROC
									;
									; Switch Direct Pages.
									;
				lda		|gsos_dpage
				tcd
									;
									; Preserve the block number on direct
									; page.
									;
				lda		<block_num
				sta		|scratch0
				lda		<block_num+2
				sta		|scratch1
									;
									; Set our starting block number on
									; direct page.
									;
				lda		|killer_blk
				sta		<block_num
				lda		|killer_blk+2
				sta		<block_num+2
									;
									; Get the requested count and devide
									; by block size to get the loop counter.
									; If Count = 0, then exit.
									;
				lda		<rqst_cnt+2
				sta		|divend+2
				lda		<rqst_cnt
				sta		|divend
				ora		<rqst_cnt+2
				bne		@do_devide

				clc
@rts			bra		@restore
									;
									; Call divide routine.
									;
@do_devide		lda		<blk_size
				sta		|divsor

				jsr		divide
				bcc		@over_divide
				lda		#drvr_bad_cnt	;non-integral rqst count.
				sec
				bra		@restore
									;
									; Count = count -1.  This way we can
									; use a BMI to exit with.
									;
@over_divide	lda		|result+2
				sta		@blk_cnt+2
				lda		|result
				sta		@blk_cnt
				bne		@over_dec_high
				dec		@blk_cnt+2
@over_dec_high	dec		@blk_cnt
									;
									; Setup is now completed.  Now we start to
									; check to see if the blocks are in the
									; cache.
									;
@chk_blk_loop	jsl		cache_kil_blk
									;
									; Are there any more to do?
									;
				lda		@blk_cnt
				bne		@over_dec
				dec		@blk_cnt+2
				bpl		@over_dec
									;
									; No. Count is exausted.
									;
				clc
				bra		@restore
									;
									; Yes. Finish the DEC and update
									; the block number.
									;
@over_dec		dec		@blk_cnt

				inc		<block_num
				bne		@chk_blk_loop
				inc		<block_num+2
				bra		@chk_blk_loop
									;
									; We are finished.  We don't need to
									; know if we were succesfull.  We only
									; need to restore the state of the
									; corrupted direct page values while
									; preserving the Acc. and Carry bit.
									;
@restore		pha
				php
				lda		|scratch0
				sta		<block_num
				lda		|scratch1
				sta		<block_num+2

				lda		|direct_page
				tcd

				plp
				pla
				rts
									;
									; Internal Data
									;
@blk_cnt		dc.l	null

				ENDP

				EJECT

				ELSE

;-------------------------------------------------------------------------------


put_in_cache	PROC		Export

				EXPORT		get_from_cache
				EXPORT		c_strt_buffer
				EXPORT		c_strt_rqst_cnt
				EXPORT		c_strt_blk_num
				EXPORT		cache_valid

get_from_cache	sec
				rts

c_strt_buffer
c_strt_rqst_cnt
c_strt_blk_num
cache_valid		dc.w	null

				ENDP

				EJECT

				ENDIF

;-------------------------------------------------------------------------------

;____Device_Tests____
;*******************************************************
;
;	'unit_state'
;
;	Tests the Target Device to see if it is ready to
;	accept our commands.  If the device responds with a
;	CHECK CONDITION, then we will find out why and
;	perform the correct actions.
;
;	Inputs:		Acc			=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;				<dib_ptr	=	Called DIB
;
;	Outputs:	Acc			=	Error Code if any
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;				<dib_ptr	=	Called DIB
;
;	Errors:		Carry set if Unit no ready.
;
;*******************************************************

				EXPORT	unit_state
unit_state		PROC

				stz		|un_formatted	;**** test Code ****
										;
										; This device is removable.  Now we
										; need to check to see if the unit
										; has gone offline, (then we need to
										; report that to the OS) or if the
										; unit has come back online (Rebuild
										; the DIBs).
										;
@try_again		jsr		test_unit_rdy	;Is there anything that we should know about?
				bcs		@turdy_fail		;Yes.
@rtg			brl		@ready_to_go	;No.

@turdy_fail

;-------------------------------------------------------------------------------

				IF			scsi_dtype = direct_acc		THEN

				cmp		#$FE16
				bne		@not_down
				brl		@off_line
@not_down		

				ENDIF

;-------------------------------------------------------------------------------

				lda		|auto_sense_data+\
						rqst_sens.sense_key
				beq		@rtg
				cmp		#$ffff
				beq		@try_again

				and		#$00ff
				cmp		#$0006
				beq		@do_switch

;-------------------------------------------------------------------------------

				IF			scsi_dtype = direct_acc		THEN

				cmp		#$0002
				bne		@on_line_hd
				brl		@off_line
@on_line_hd		lda		auto_sense_data+\		;Was it a RESET?
						rqst_sens.addnl_sens_code
				and		#$00fe
				cmp		#$0028			;Checking for $28 (Medium Changed), $29 (RESET)
				bne		@io_error

				ENDIF

;-------------------------------------------------------------------------------

				IF			scsi_dtype = apple_cd		THEN

				lda		auto_sense_data+\		;Was it a RESET?
						rqst_sens.addnl_sens_code
				and		#$00ff
				cmp		#$00b7			;Checking for $B7 (Media being mounted)
				beq		@do_switch
				cmp		#$00b0			;Checking for $B0 (NO MEDIA)
				bne		@on_line_cd
				brl		@off_line
@on_line_cd		and		#$00fe
				cmp		#$0028			;Checking for $28 (Medium Changed), $29 (RESET)

				beq		@no_error_cd
				brl		@io_error
@no_error_cd
										;
										; Set this location to a $B0.  This will
										; prevent problems if the device is reset
										; durring startup while auto sensing is
										; off.
										;
				lda		#$00b0
				sta		auto_sense_data+\
						rqst_sens.addnl_sens_code
				bra		unit_state

				ENDIF

;-------------------------------------------------------------------------------

				IF			scsi_dtype = mcd_40		THEN

				cmp		#$0008			;**** test Code ****
				bne		@err_8			;**** test Code ****
@no_format		dec		|un_formatted	;**** test Code ****
				brl		@io_error		;**** test Code ****

@err_8			lda		auto_sense_data+\		;Was it a RESET?
						rqst_sens.addnl_sens_code
				and		#$00ff

				cmp		#$00a7			;Checking for $A7 (Load Error, UnFormatted)
				beq		@no_format

				cmp		#$0010			;Checking for $10 (ID CRC Medium Error)
				beq		@no_format

				cmp		#$0011			;Checking for $11 (Unrecovered Read Error)
				beq		@no_format

				cmp		#$0015			;Checking for $15 (Seek Position Error)
				beq		@no_format

				cmp		#$0019			;Checking for $19 (Defect List Error)
				beq		@no_format

				cmp		#$0031			;Checking for $31 (Medium Format corrupted)
				beq		@no_format

				cmp		#$0032			;Checking for $32 (No Defect Spare Location Avail.)
				beq		@no_format

				cmp		#$00a8			;Checking for $A8 (Media being mounted)
				beq		@do_switch

				cmp		#$00b0			;Checking for $B0 (NO MEDIA)
				bne		@chk_other
										;
										; No Media.  Mark the DIB Hard Ofline also.
										;
				ldy		#dib.dvcflag
				lda		[dib_ptr],y
				and		#dvc_online--\
						$ffff
				ora		#dvc_hardofl++\
						dvc_switch++\
						dvc_hard_sw
				sta		[dib_ptr],y

				brl		@off_line

@chk_other		cmp		#$0028			;Checking for $28 (Medium Changed), $29 (RESET)
				bne		@io_error

				ENDIF

;-------------------------------------------------------------------------------

											;
											; Rebuild the DIBs.
											;
@do_switch		jsr		test_unit_rdy		;Is it ready yet?
				bcc		@its_ready			;Yes.

											;**** test Code ****
				lda		|auto_sense_data+\
						rqst_sens.sense_key
				and		#$00ff
				cmp		#$0008
				bne		@not_err_8
@no_format2		dec		|un_formatted
				bra		@its_ready
;				brl		@io_error
											;**** test Code ****

@not_err_8		lda		auto_sense_data+\	;Is there media in the drive?
						rqst_sens.addnl_sens_code
				and		#$00ff

				cmp		#$00a7				;Checking for $A7 (Load Error, UnFormatted)
				beq		@no_format2

;-------------------------------------------------------------------------------

				IF			scsi_dtype = mcd_40		THEN

				cmp		#$0028				;Checking for $28 (Medium Changed)
				beq		@do_switch			;Yes.
				cmp		#$0029				;Checking for $29 (Power On/Reset)
				beq		@do_switch			;Yes.
				cmp		#$00A8				;Checking for $A8 (Cart Loading)
				beq		@do_switch			;Yes.
				cmp		#$00b0				;Checking for $B0 (NO MEDIA)
				bne		@no_format2			;No.



				ELSE

;-------------------------------------------------------------------------------

				cmp		#$00b0				;Checking for $B0 (NO MEDIA)
				bne		@do_switch			;No.
;				bcs		@do_switch			;*************************

				ENDIF

;-------------------------------------------------------------------------------


@its_ready

;-------------------------------------------------------------------------------

				IF			scsi_dtype <> mcd_40		THEN

				jsr		set_512_mode

				ENDIF

;-------------------------------------------------------------------------------

										;
										; Issue the READ CAPACITY Command.
										;
				jsr		read_capacity
				bcs		@over_0			;Was there an error?
										;
										; Get the Block Count (Stored
										; High >> Low.  Must be switched
										; to Low >> High).  This is the last
										; readable block number.  Add 1 to
										; it for comparison reasons.
										;
				lda		|block.count\
						+internal_buff\
						+2
				xba
				adc		#$0001
				sta		|t_dvc_blocks
				lda		|block.count\
						+internal_buff
				xba
				adc		#null
				sta		|t_dvc_blocks+2

@over_0			stz		|trash_it		;DO NOT TRASH THIS DISK.

				pei		<dib_ptr
				pei		<dib_ptr+2

				jsr		rebld_dibs		;Rebuild DIBs and Issue a DISK_SW for each

				tax
				pla
				sta		<dib_ptr+2
				pla
				sta		<dib_ptr
				txa

				php
										;
										; Restore the original Direct Page values.
										;
				jsr		set_our_dp
				plp
				bcc		@switch_error
				jsr		test_unit_rdy
				bcs		@io_error
										;
										; Disk Switched Error.
										;
@switch_error	lda		#drvr_dsk_swch
				sec
				rts
										;
										; Some kind of I/O Error.
										;
@io_error		lda		#drvr_io
				sec
				rts
										;
										; Are we really ready to go?  If the
										; dvc_hard_sw flag is set, then we
										; will clear it and report the device
										; as switched.
										;
@ready_to_go	ldy		#dib.dvcflag
				lda		[dib_ptr],y
				tax

				and		#dvc_hard_sw
				beq		@no_switch

				txa
				and		#dvc_hard_sw--\
						$ffff
				sta		[dib_ptr],y

@no_switch		lda		#null
				clc
@rts			rts
										;
										; Device is currently offline.
										;
@off_line		lda		#drvr_off_line
				sec
				rts

				EXPORT	un_formatted	;**** test Code ****
un_formatted	dc.w	null			;**** test Code ****

				ENDP

				EJECT

;*******************************************************
;
;	'test_unit_rdy'
;
;	Test the Target Device to see if it is ready to
;	accept our commands.  If the device responds with a
;	CHECK CONDITION, then it will be up to the caller of
;	this routine to find out why.  This is not a test
;	routine.
;
;	Inputs:		Acc			=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Outputs:	Acc			=	Error Code if any
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Errors:		Carry set if Unit no ready.
;
;*******************************************************

				EXPORT	test_unit_rdy
test_unit_rdy	PROC
									;
									; Set Internal Command Flag
									;
				dec		|internal
									;
									; Set Parm Pointer.
									;
				lda		#@test_unit_p
				sta		<scsi_mdrvr
				lda		#^@test_unit_p
				sta		<scsi_mdrvr+2
									;
									; It's a Status Call.
									;
				lda		#scsit_stat
				sta		|call_type
									;
									; Issue the Call
									;
				jmp		|main_drvr
									;
									; Data for this call
									; TEST UNIT READY Command Packet
									;
@test_unit_p	dc.b	$00			;Command Number
				dc.b	$00			;SCSI Command Flags
				dcb.b	3,$00		;Reserved
				dc.b	$00			;Vendor Unique
				dcb.b	6,$00		;Resrved

				ENDP

				EJECT

;*******************************************************
;
;	'CHK_PLAY_MODE'
;
;	This command is used to tell if the device is
;	currently in Audio Play Mode.
;
;	Inputs:		Acc			=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Outputs:	Acc			=	Error Code if any
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Errors:		Carry set not in play mode
;
;*******************************************************

;-------------------------------------------------------------------------------

				IF		scsi_dtype = apple_cd	THEN

				EXPORT	chk_play_mode
chk_play_mode	PROC
										;
										; First, disable auto sensing.
										;
				ldy		#dib.rslt_ptr
				lda		[dib_ptr],y
				pha
				lda		#null
				sta		[dib_ptr],y

				ldy		#dib.rslt_ptr+2
				lda		[dib_ptr],y
				pha
				lda		#null
				sta		[dib_ptr],y
										;
										; Set Internal Command Flag
										;
				dec		|internal
										;
										; Set Parm length.
										;
				lda		#$0006
				sta		<rqst_cnt
				stz		<rqst_cnt+2
										;
										; Set Parm Pointer.
										;
				lda		#@chk_play
				sta		<scsi_mdrvr
				lda		#^@chk_play
				sta		<scsi_mdrvr+2
										;
										; Set Buff Pointer.
										;
				lda		#@play_data
				sta		<buff_ptr
				lda		#^@play_data
				sta		<buff_ptr+2
										;
										; It's a Status Call.
										;
				lda		#scsit_stat
				sta		|call_type
										;
										; Issue the Call
										;
				jsr		|main_drvr
				bcs		@restore_dp		;Carry is set.  Not play mode
										;
										; Check the Status.
										;
										; Status $00 = In play mode
										;		 $01 = Pause (Play Mode)
										;		 $02 = Muting (Play Mode)
										;
										;		 $03 = Play completed (No Play)
										;		 $04 = Error (No Play)
										;		 $05 = Play not requested.
										;
				lda		@play_data
				and		#$0007
				cmp		#$0003			; <3 = Carry Clear. =>3 = Carry set
										;
										; Restore the Direct Page Values.
										;
@restore_dp		php
				jsr		set_our_dp
				plp
										;
										; Restore Auto Sensing Pointer.
										;
				ldy		#dib.rslt_ptr+2
				pla
				sta		[dib_ptr],y

				ldy		#dib.rslt_ptr
				pla
				sta		[dib_ptr],y

				rts
										;
										; AUDIO STATUS Command Packet
										;
@chk_play		dc.b	$cc				;Command Number
				dc.b	null			;SCSI Command Flags
				dcb.b	10,null			;Reserved
										;
										; Data received for this call
										;
@play_data		dcb.b	6,null

				ENDP

				ENDIF

;-------------------------------------------------------------------------------

				EJECT

;*******************************************************
;
;	The REQUEST SENSE Call is used to request any
;	information from the target device that might tell
;	us something about the way that the last call
;	competed.  This call should always be issued if any
;	SCSI Command returns from the SCSI Manager with a
;	CHECK CONDITION in the status result field.  The
;	data returned will be kept until the next REQUEST
;	SENSE Command is issued.  A flag however will be set
;	if any other commands are received by the SCSI Driver
;	indicating that this data is outdated.
;
;	Inputs:		Acc			=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Outputs:	Acc			=	Error Code if any
;				|sense_data	=	Data returned by the device
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Errors:		Carry set if Unit no ready.
;
;*******************************************************

				EXPORT	rqst_sense
rqst_sense		PROC
									;
									; Set Internal Command Flag
									;
				dec		|internal
									;
									; Set Parm Pointer.
									;
				lda		#@rqst_sens_p
				sta		<scsi_mdrvr
				lda		#^@rqst_sens_p
				sta		<scsi_mdrvr+2
									;
									; Preserve the Current Direct
									; Page values stored in the
									; buff_ptr and rqst_cnt fields.
									;
				pei		<buff_ptr
				pei		<buff_ptr+2
				pei		<rqst_cnt
				pei		<rqst_cnt+2
									;
									; Set our own buffer pointer
									; for this call.
									;
				lda		#sense_data
				sta		<buff_ptr
				lda		#^sense_data
				sta		<buff_ptr+2
									;
									; Set our own request count
									; for this call.
									;
				lda		#$0012
				sta		<rqst_cnt
				stz		<rqst_cnt+2
									;
									; It's a Status Call.
									;
				lda		#scsit_stat
				sta		|call_type
									;
									; Issue the Call
									;
				stz		@error
				jsr		|main_drvr
				bcc		@return_dp
									;
									; Save error code
									;
				sta		@error
									;
									; Restore the Direct Page Values.
									;
@return_dp		pla
				sta		<rqst_cnt+2
				pla
				sta		<rqst_cnt
				pla
				sta		<buff_ptr+2
				pla
				sta		<buff_ptr
									;
									; Restore the Acc resutl.
									;
				lda		@error
				cmp		#$0001
				rts
									;
									; Data for this call
									;
@error			dc.w	null
									;
									; REQUEST SENSE Command Packet
									;
@rqst_sens_p	dc.b	$03			;Command Number
				dc.b	$00			;SCSI Command Flags
				dcb.b	3,$00		;Reserved
				dc.b	$00			;Vendor Unique
				dcb.b	6,$00		;Reserved

				ENDP

				EJECT

;*******************************************************
;
;	'reserve_unit'
;
;	The RESERVE UNIT Call is used to reserve the target
;	device for use by this host only.
;
;	Inputs:		Acc			=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Outputs:	Acc			=	Error Code if any
;				|sense_data	=	Data returned by the device
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Errors:		Carry set if Unit already reserved.
;
;*******************************************************

				EXPORT	reserve_unit
reserve_unit	PROC

;-------------------------------------------------------------------------------

				IF			scsi_dtype = scanner		THEN
									;
									; Set Internal Command Flag
									;
				dec		|internal
									;
									; Set Parm Pointer.
									;
				lda		#@rsrv_unit_p
				sta		<scsi_mdrvr
				lda		#^@rsrv_unit_p
				sta		<scsi_mdrvr+2
									;
									; It's a Control Call.
									;
				lda		#scsit_cont
				sta		|call_type
									;
									; Issue the Call
									;
				jmp		|main_drvr
									;
									; RESERVE UNIT Command Packet
									;
@rsrv_unit_p	dc.b	$16			;Command Number
				dc.b	$00			;SCSI Command Flags
				dcb.b	3,$00		;Reserved
				dc.b	$00			;Vendor Unique
				dcb.b	6,$00		;Reserved

				ELSE					;scsi_dtype = scanner

;-------------------------------------------------------------------------------

				lda		#null
				clc
				rts

				ENDIF					;scsi_dtype = scanner

;-------------------------------------------------------------------------------

				ENDP

				EJECT

;*******************************************************
;
;	'release_unit'
;
;	The RELEASE UNIT Call is used to release the target
;	device from use by this host only.
;
;	Inputs:		Acc			=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Outputs:	Acc			=	Error Code if any
;				|sense_data	=	Data returned by the device
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Errors:		None.
;
;*******************************************************

				EXPORT	release_unit
release_unit	PROC

;-------------------------------------------------------------------------------

				IF			scsi_dtype = scanner		THEN
									;
									; Set Internal Command Flag
									;
				dec		|internal
									;
									; Set Parm Pointer.
									;
				lda		#@rles_unit_p
				sta		<scsi_mdrvr
				lda		#^@rles_unit_p
				sta		<scsi_mdrvr+2
									;
									; It's a Control Call.
									;
				lda		#scsit_cont
				sta		|call_type
									;
									; Issue the Call
									;
				jmp		|main_drvr
									;
									; RELEASE UNIT Command Packet
									;
@rles_unit_p	dc.b	$17			;Command Number
				dc.b	$00			;SCSI Command Flags
				dcb.b	3,$00		;Reserved
				dc.b	$00			;Vendor Unique
				dcb.b	6,$00		;Reserved

				ELSE					;scsi_dtype = scanner

;-------------------------------------------------------------------------------

				lda		#null
				clc
				rts

				ENDIF					;scsi_dtype = scanner

;-------------------------------------------------------------------------------

				ENDP

				EJECT
			
;*******************************************************
;
;	'mode_sense'
;
;	This routine issues an MODE SENSE call to the device.
;		
;	Inputs:		<dib_ptr	=	DIB start			(LONG)
;				Acc			=	Unspecified
;				Carry		=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Outputs:	Acc			=	Unspecified
;				Carry		=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Errors:		None.
;
;*******************************************************

				EXPORT	mode_sense
mode_sense		PROC
										;
										; And our buffer
										;
				lda		#internal_buff
				sta		<buff_ptr
				lda		#^internal_buff
				sta		<buff_ptr+2
				bra		command_ptr

				EXPORT	mode_sense2
										;
										; And our buffer
										;
mode_sense2		lda		#sense_data
				sta		<buff_ptr
				lda		#^sense_data
				sta		<buff_ptr+2
										;
										; Tell the Main Driver where
										; our command structure resides.
										;
command_ptr		lda		#@start_mode
				sta		<scsi_mdrvr
				lda		#^@start_mode
				sta		<scsi_mdrvr+2
										;
										; And our length of $ff Bytes
										;
				lda		#$0014
				sta		<rqst_cnt
				stz		<rqst_cnt+2
										;
										; Initialize the Page code to 1
										;
				lda		#$0001
				sta		@page_code
										;
										; Set internal command flag
										;
@try_again		dec		|internal
										;
										; Set the Call Type and Issue the
										; MODE SENSE Command.
										;
				lda		#scsit_stat
				sta		|call_type
				jsr		|main_drvr
				bcc		@rts
				pha
				lda		@page_code
				beq		@pla
				pla
				stz		@page_code
				bra		@try_again
				
@pla			pla
@rts			rts
										;
										; Data for the MODE SENSE Command
										;
@start_mode		dc.b	$1a
				dc.b	$00
@page_code		dc.b	$01
				dcb.b	9,$00

				ENDP

				EJECT
			
;*******************************************************
;
;	'read_capacity'
;
;	This routine issues an READ CAPACITY call to the
;	device and then uses the data returned to fill in
;	some of the blank holes in the DIB.
;		
;	Inputs:		<dib_ptr	=	DIB start			(LONG)
;				Acc			=	Unspecified
;				Carry		=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Outputs:	Acc			=	Unspecified
;				Carry		=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Errors:		None.
;
;*******************************************************

				EXPORT	read_capacity
read_capacity	PROC

;-------------------------------------------------------------------------------

				IF			block_dvc = true\
				AND			character_dvc = false		THEN
										;
										; Set internal command flag
										;
				dec		|internal
										;
										; Tell the Main Driver where
										; our command structure resides.
										;
				lda		#@read_cap
				sta		<scsi_mdrvr
				lda		#^@read_cap
				sta		<scsi_mdrvr+2
										;
										; And our buffer
										;
				lda		#internal_buff
				sta		<buff_ptr
				lda		#^internal_buff
				sta		<buff_ptr+2
										;
										; And our length of $ff Bytes
										;
				lda		#$0008
				sta		<rqst_cnt
				stz		<rqst_cnt+2
										; Set the Call Type and Issue the
										; READ CAPACITY Command.
										;
				lda		#scsit_stat
				sta		|call_type
				jsr		|main_drvr
				rts
										;
										; Data for the READ CAPACITY Command
										;
@read_cap		dc.b	$25
				dcb.b	11,$00

				ELSE

;-------------------------------------------------------------------------------

				lda		#null
				clc
				rts

				ENDIF

;-------------------------------------------------------------------------------

				ENDP

				EJECT

;*******************************************************
;
;	'get_data_status'
;
;	The GET DATA STATUS Call is used to find out how
;	much data is available to be read from the Scanner.
;
;	Inputs:		Acc			=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Outputs:	Acc			=	Error Code if any
;				|sense_data	=	Data returned by the device
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Errors:		None.
;
;*******************************************************

				EXPORT	get_data_status
get_data_status	PROC

;-------------------------------------------------------------------------------

				IF			scsi_dtype = scanner		THEN
									;
									; Set Internal Command Flag
									;
				dec		|internal
									;
									; Set Parm Pointer.
									;
				lda		#@get_d_stat_p
				sta		<scsi_mdrvr
				lda		#^@get_d_stat_p
				sta		<scsi_mdrvr+2
									;
									; Preserve the Current Direct
									; Page values stored in the
									; buff_ptr and rqst_cnt fields.
									;
				pei		<buff_ptr
				pei		<buff_ptr+2
				pei		<rqst_cnt
				pei		<rqst_cnt+2
									;
									; Set our own buffer pointer
									; for this call.
									;
				lda		#sense_data
				sta		<buff_ptr
				lda		#^sense_data
				sta		<buff_ptr+2
									;
									; Set our own request count
									; for this call.
									;
				lda		#$000C
				sta		<rqst_cnt
				stz		<rqst_cnt+2
									;
									; It's a Status Call.
									;
				lda		#scsit_stat
				sta		|call_type
									;
									; Issue the Call
									;
				jsr		|main_drvr
									;
									; Save error code
									;
				sta		@error
									;
									; Restore the Direct Page Values.
									;
@return_dp		pla
				sta		<rqst_cnt+2
				pla
				sta		<rqst_cnt
				pla
				sta		<buff_ptr+2
				pla
				sta		<buff_ptr
									;
									; Restore the Acc resutl.
									;
				lda		@error
				cmp		#$0001
				rts
									;
									; Data for this call
									;
@error			dc.w	null
									;
									; GET DATA STATUS Command Packet
									;
@get_d_stat_p	dc.b	$34			;Command Number
				dc.b	$00			;SCSI Command Flags
				dcb.b	3,$00		;Reserved
				dc.b	$00			;Vendor Unique
				dcb.b	6,$00		;Reserved

				ELSE					;scsi_dtype = scanner

;-------------------------------------------------------------------------------

				lda		#null
				clc
				rts

				ENDIF					;scsi_dtype = scanner

;-------------------------------------------------------------------------------

				ENDP

				EJECT

;____Dvc_Controls____
;*******************************************************
;
;	'start_unit'
;
;	Issue a START UNIT Command to the target device
;
;	Inputs:		Acc			=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Outputs:	Acc			=	Error Code if any
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Errors:		None
;
;*******************************************************

				EXPORT	start_unit
start_unit		PROC

;-------------------------------------------------------------------------------

				IF			scsi_dtype = direct_acc	THEN

				ldy		#dib.dvcchar
				lda		[dib_ptr],y
				and		#removable
				bne		@do_it
				rts

@do_it

				ELSE

;-------------------------------------------------------------------------------

										;
										; Set Stop Flag
										;
				lda		#$0001
				tsb		|stop_bit
				bra		start_stop

				ENDIF

;-------------------------------------------------------------------------------

				EJECT

;*******************************************************
;
;	'stop_unit'
;
;	Issue a STOP UNIT Command to the target device
;
;	Inputs:		Acc			=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Outputs:	Acc			=	Error Code if any
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Errors:		None
;
;*******************************************************

				EXPORT	stop_unit
stop_unit

;-------------------------------------------------------------------------------

				IF			scsi_dtype = direct_acc	THEN

				ldy		#dib.dvcchar
				lda		[dib_ptr],y
				and		#removable
				bne		@do_it
				rts

@do_it

				ELSE

;-------------------------------------------------------------------------------

									;
									; Set Stop Flag
									;
				lda		#$0001
				trb		|stop_bit
									;
									; Secondary entry point for START_UNIT
									; Command
									;
				EXPORT	start_stop
start_stop
									;
									; Set Internal Command Flag
									;
				dec		|internal
									;
									; Set Parm Pointer.
									;
				lda		#@start_stop_p
				sta		<scsi_mdrvr
				lda		#^@start_stop_p
				sta		<scsi_mdrvr+2

;-------------------------------------------------------------------------------

				IF			scsi_dtype = mcd_40	THEN

									;
									; Set IMMED Bit
									;
				lda		#immed_load

				ELSE

;-------------------------------------------------------------------------------

									;
									; Set IMMED Bit
									;
				lda		#immed_loc

				ENDIF

;-------------------------------------------------------------------------------

				tsb		@immed_loc
									;
									; It's a Control Call.
									;
				lda		#scsit_cont
				sta		|call_type
									;
									; Issue the Call
									;
				jmp		|main_drvr
									;
									; Data for this call
									; TEST UNIT READY Command Packet
									;
@start_stop_p	dc.b	$1B			;Command Number
@immed_loc		dc.b	$00			;SCSI Command Flags
				dcb.b	2,$00		;Reserved
				EXPORT	stop_bit
stop_bit		dc.b	$00			;Start/Stop Bit
				dc.b	$00			;Vendor Unique
				dcb.b	6,$00		;Resrved

				ENDIF

;-------------------------------------------------------------------------------

				ENDP

				EJECT

;*******************************************************
;
;	'SET 512 MODE'
;
;	This command is used to tell the device to set it's
;	block size to 512 mode.  This is used for the CD-ROM
;	Drives as well as any others that may need this
;	function.
;
;	Inputs:		Acc			=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Outputs:	Acc			=	Error Code if any
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Errors:		Carry set if call failed
;
;*******************************************************

				EXPORT	set_512_mode
set_512_mode	PROC

;-------------------------------------------------------------------------------

				IF			block_dvc = true\
				AND			character_dvc = false		THEN

;-------------------------------------------------------------------------------

				IF			scsi_dtype = mcd_40	THEN

				clc
				rts

				ELSE					;scsi_dtype = mcd_40	THEN

;-------------------------------------------------------------------------------

										;
										; Set try twice flag.
										;
				dec		@try_twice
										;
										; Set Internal Command Flag
										;
				dec		|internal
										;
										; Set Parm length.
										;
				lda		#end_4_512-\
						data_4_512
				sta		<rqst_cnt
				stz		<rqst_cnt+2
										;
										; Set Parm Pointer.
										;
@try_again		lda		#@set_512_p
				sta		<scsi_mdrvr
				lda		#^@set_512_p
				sta		<scsi_mdrvr+2
										;
										; Set Parm Pointer.
										;
				lda		#data_4_512
				sta		<buff_ptr
				lda		#^data_4_512
				sta		<buff_ptr+2
										;
										; It's a Control Call.
										;
				lda		#scsit_cont
				sta		|call_type
										;
										; Issue the Call
										;
				jsr		|main_drvr
				bcc		@alles_klar
										;
										; Set Parm length.
										;
				lda		#$0000000c
				sta		<rqst_cnt
				stz		<rqst_cnt+2

				inc		@try_twice
				beq		@try_again
										;
										; Restore the values we destroyed
										;
@alles_klar		stz		@try_twice
				php
				pha
				jsr		set_our_dp
				pla
				plp
				rts
										;
										; Data for this call
										;
@try_twice		dc.w	null
										;
										; TEST UNIT READY Command Packet
										;
@set_512_p		dc.b	$15				;Command Number

;-------------------------------------------------------------------------------

				IF		scsi_dtype = direct_acc	THEN
										;
										; Set bit to save these values
										;
				dc.b	$01

				ENDIF					;scsi_dtype = direct_acc

;-------------------------------------------------------------------------------

				IF		scsi_dtype = apple_cd	THEN
										;
										; Clear bit to save these values
										;
				dc.b	$00

				ENDIF					;scsi_dtype = apple_cd

;-------------------------------------------------------------------------------

				dcb.b	3,$00			;Reserved
				dc.b	$00				;Vendor Unique
				dcb.b	6,$00			;Resrved
										;
										; Data sent durring this call
										;
data_4_512		dc.b	null
				dc.b	$00
				dc.b	null
				dc.b	$08
										;number of blocks
				dc.b	null
				dc.b	$00
				dc.b	$00
				dc.b	$00
										;block size
				dc.b	null
				dc.b	$00
				dc.b	$02
				dc.b	$00

;-------------------------------------------------------------------------------

				IF		scsi_dtype = apple_cd	THEN

end_4_512

				EXPORT		select_page_num
select_page_num	dc.b	$01				;Page Number
				dc.b	$06				;Page Length
				dc.b	$e4				;Error Correction Flags
				dc.b	$03				;Retry Count
				dc.b	$00				;Correction Span
				dc.b	$00				;Head Offset Count
				dc.b	$00				;Data Strobe Offset
				dc.b	$00				;Recovery Time Limit

				ELSE					;scsi_dtype = apple_cd

;-------------------------------------------------------------------------------

										;Page 1 Data
				EXPORT		select_page_num
select_page_num	dc.b	$01				;Page Number
				dc.b	$06				;Page Length
				dc.b	$e4				;Error Correction Flags
				dc.b	$03				;Retry Count
				dc.b	$00				;Correction Span
				dc.b	$00				;Head Offset Count
				dc.b	$00				;Data Strobe Offset
				dc.b	$00				;Recovery Time Limit
end_4_512

				ENDIF					;scsi_dtype = apple_cd

;-------------------------------------------------------------------------------

				ENDIF					;scsi_dtype = mcd_40

;-------------------------------------------------------------------------------

				ELSE					;block_dvc = true

;-------------------------------------------------------------------------------

				lda		#null
				clc
				rts

				ENDIF					;block_dvc = true

;-------------------------------------------------------------------------------

				ENDP

				EJECT

;____Evnt_Support____
;*******************************************************
;
;	'notify_me'
;
;	This routine gets called by the SCSI Manager when
;	some event occurs that is out of the ordinary.
;
;	Inputs:		None Yet
;
;	Outputs:	All Regs	=	Scrambled
;
;	Errors:		None Yet
;
;*******************************************************

				EXPORT	notify_me
notify_me		PROC
										;
										; Vector for the SCSI Manager
										; to call when an event occurs
										; that affects my DIB
										; structures.  This could be a
										; new device online or media
										; insertion.
										;
				clc						;Add CODE LATER
				rtl

				ENDP

				EJECT

;____Misc_Support____
;*******************************************************
;
;	SET_DISK_SW
;
;	This routine checks the validity of the partition
;	map block currently loaded in the internal buffer.
;	This need only be called once per device.  If the
;	map is valid, then the carry will be clear.  The 'Z'
;	flag will also be set if this is not the first time
;	that this routine was called for this device.  If
;	the carry is set, then the map was invalid and the
;	block count at 'T_DVC_BLOCKS' has been placed in the
;	DIB pointed to by 'DIB_PTR'.  The starting block will
;	also have been set to null.
;
;	Inputs:		<DIB_PTR		=	DIB Location
;				Acc				=	Unspecified
;				Y register		=	Unspecified
;				X register		=	Unspecified
;				P register		=	0=M=X=e
;				Direct Page		=	Ours
;				Data Bank		=	Ours
;
;	Outputs:	Acc				=	Unspecified
;				Y register		=	Unspecified
;				X register		=	Unspecified
;				P register		=	0=M=X=e
;								=	Z = 0 if routine called before
;								=	C = 1 if not a partition map
;				Direct Page		=	Ours
;				Data Bank		=	Ours
;
;	Errors:		Only those allowed by the System Service
;				Call SET_DISKSW.
;
;*******************************************************

				EXPORT	set_disk_sw
set_disk_sw		PROC

;-------------------------------------------------------------------------------

				IF			block_dvc = true\
				AND			character_dvc = false		THEN
										;
										; Check the removable flag.  If the media
										; is removable, then we will only set the
										; switch flag and let the status calls do
										; their thing before this device goes
										; online.  If it is non-removable, then
										; we need to say that the device is
										; switched, but also set the online bits.
										;
				ldy		#dib.dvcchar
				lda		[dib_ptr],y
				and		#removable
				beq		@non_removable
										;
										; Set the Disk Switched Bit in Status.
										;
				ldy		#dib.dvcflag
				lda		[dib_ptr],y
				ora		#dvc_switch
				sta		[dib_ptr],y
				bra		@over1
										;
										; Set the Disk Online Bit in Status.
										;
@non_removable	lda		leave_switched	; *** MSG 12/12/91 ***
				bmi		@over1			; *** MSG 12/12/91 ***

				ldy		#dib.dvcflag	; *** MSG 12/12/91 ***
;@non_removable	ldy		#dib.dvcflag	; *** MSG 12/12/91 ***
				lda		[dib_ptr],y
				and		#$ffff--\
						dvc_switch--\
						dvc_hardofl
				ora		#dvc_online
				sta		[dib_ptr],y
										;
										; Preserve the World from this.
										;
@over1			ldx		|gsos_dpage

				lda		>dev_num,x
				pha
				lda		>dib_ptr,x
				pha
				lda		>dib_ptr+2,x
				pha
				lda		<dev_num
				sta		>dev_num,x
				lda		<dib_ptr
				sta		>dib_ptr,x
				lda		<dib_ptr+2
				sta		>dib_ptr+2,x

				txa
				tcd

				jsl		set_disksw
				tay

				lda		|direct_page
				tcd

				ldx		|gsos_dpage
				pla
				sta		>dib_ptr+2,x
				pla
				sta		>dib_ptr,x
				pla
				sta		>dev_num,x

				stz		leave_switched	;Clear this flag *** MSG 12/12/91 ***

				tya
				cmp		#$0001
				rts
										;
										; Data for this call
										;
				EXPORT	leave_switched
leave_switched	dc.w	null			; *** MSG 12/12/91 ***

				ELSE

;-------------------------------------------------------------------------------

				lda		#null
				clc
				rts

				ENDIF

;-------------------------------------------------------------------------------

				ENDP

				EJECT

;*******************************************************
;
;	TRASH_VOLUME
;
;	This routine write a non-formatted pattern to block
;	2 of the volume whose DIB is [dib_ptr].  This is to
;	force the OS to re-format or lay down the OS data for
;	that volume rather than using what is already there
;	and appears to be valid.
;
;	Inputs:		<DIB_PTR		=	DIB Location
;				|trash_it		=	Boolean
;							0	=	Trash the Volume
;				Acc				=	Unspecified
;				Y register		=	Unspecified
;				X register		=	Unspecified
;				P register		=	0=M=X=e
;				Direct Page		=	Ours
;				Data Bank		=	Ours
;
;	Outputs:	Acc				=	Unspecified
;				Y register		=	Unspecified
;				X register		=	Unspecified
;				P register		=	0=M=X=e
;				Direct Page		=	Ours
;				Data Bank		=	Ours
;
;	Errors:		Better be none.
;
;*******************************************************

				EXPORT	trash_volume
trash_volume	PROC

;-------------------------------------------------------------------------------

				IF			scsi_dtype = direct_acc	THEN

										;
										; Should we really trash the volume?
										;
				lda		|trash_it
				beq		@dont_trash
										;
										; Set Main Driver Pointer to
										; our data for the command.
										;
				lda		#@cmd_$800A
				sta		<scsi_mdrvr
				lda		#^@cmd_$800A
				sta		<scsi_mdrvr+2
										;
										; Set our buffer Pointer to
										; our Code for the data for
										; the command.
										;
				lda		#trash_volume
				sta		<buff_ptr
				lda		#^trash_volume
				sta		<buff_ptr+2
										;
										; Set length of our data for the
										; command.
										;
				lda		#block_size
				sta		<rqst_cnt
				stz		<rqst_cnt+2
										;
										; Call Main Driver
										;
				lda		#scsit_cont
				sta		|call_type
										;
										; Issue the call.
										;
				jsr		check_532_rw

@dont_trash		rts

										;
										; Command Data for this call.
										;
@cmd_$800A		dc.b	$0A
				dc.b	$00
				dc.b	$00
				dc.b	$02
				dc.b	$01
				dcb.b	7,$00

				ELSE

;-------------------------------------------------------------------------------

				lda		#null
				clc
				rts

				ENDIF

;-------------------------------------------------------------------------------

				ENDP

				EJECT

;*******************************************************
;
;	'SAVE_DP'
;
;	This routine is only called durring the initial
;	startup.  It saves away the current values on GS/OS
;	Direct Page so that we can use the space until we
;	have our own Direct Page.
;
;	Inputs:		Acc			=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	GS/OS
;				Data Bank	=	Ours
;
;	Outputs:	Acc			=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	GS/OS
;				Data Bank	=	Ours
;
;	Errors:		None.
;
;*******************************************************

				EXPORT	save_dp
save_dp			PROC
											;
											; Check to see if this call was
											; nested.
											;
				lda		|valid
				bne		@exit
											;
											; Calculate Source Address.
											;
				clc
				lda		|gsos_dpage
				adc		#start_our_zp
				pea		$0000
				pha
											;
											; Destination Address of temporary
											; storage
											;
				pushlong	#saved_zp
				
				pushlong	#end_our_zp-\	;Length of the move
							start_our_zp
				
				pushword	#move_sinc_dinc

				jsl		move_info			;Move the data

				dec		|valid

@exit			rts

				ENDP

				EJECT

;*******************************************************
;
;	Move the contents of the first $20 bytes of GS/OS
;	Direct Page to our Direct Page.
;
;	Inputs:		Acc			=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Outputs:	Acc			=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Errors:		Carry set if Unit is not the only
;				device in this linke that is still
;				online.
;
;*******************************************************

				EXPORT	restore_dp
restore_dp		PROC
											;
											; Check to see if this call was
											; nested.
											;
				lda		|valid
				beq		@exit
											;
											; Source Address of temporary
											; storage
											;
				pushlong	#saved_zp
											;
											; Calculate Destination Address.
											;
				clc
				lda		|gsos_dpage
				adc		#start_our_zp
				pea		$0000
				pha
				
				pushlong	#end_our_zp-\	;Length of the move
							start_our_zp
				
				pushword	#move_sinc_dinc

				jsl		move_info			;Move the data

				stz		|valid

@exit			rts

				ENDP

				EJECT

;*******************************************************
;
;	Move the contents of the first $20 bytes of GS/OS
;	Direct Page to our Direct Page.
;
;	Inputs:		Acc			=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Outputs:	Acc			=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Errors:		Carry set if Unit is not the only
;				device in this linke that is still
;				online.
;
;*******************************************************

				EXPORT	set_our_dp
set_our_dp		PROC
										;
										; Calculate Source Address.
										;
				clc
				lda		|gsos_dpage
				adc		#dev_num
				pea		$0000
				pha
										;
										; Calculate Destination Address of
										; our Direct Page that we want.
										;
				clc
				lda		|direct_page
				adc		#dev_num
				pea		$0000
				pha
				
				pushlong	#dib_ptr+4	;Length of the move
				
				pushword	#move_sinc_dinc

				jsl		move_info		;Move the data
				rts
				ENDP

				EJECT

;*******************************************************
;
;	'check_532_rw'
;
;	There are a few drives that have been formated with
;	512 ($214) bytes per block.  These devices work
;	perfectly fine in single block I/O, padding the end
;	with 20 bytes in a write, or stripping them for a
;	read, but when doing a multi-block transaction we
;	need to account for the 20 bytes between the end of
;	real data for this block and the beginning of the
;	next block.  Because of this, we will need to build
;	a data chaining structure that will read or write
;	512 bytes of data to the users buffer, followed by
;	20 bytes read or written to ROM space.  Doing this
;	will hinder performance and will prevent caching
;	from working.  If these are important to the user,
;	they can reformat their drive.
;
;	This routine is called in place of calling the Main
;	Driver.  It decides if the call should go via the
;	normal or 532 method.  All Inputs, Outputs and Setup
;	Structures are the same.
;
;	Inputs:		Acc			=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Outputs:	Acc			=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	GS/OS Direct Page
;				Data Bank	=	Ours
;
;	Errors:		None
;
;*******************************************************

				EXPORT	check_532_rw
check_532_rw	PROC

;-------------------------------------------------------------------------------

				IF			scsi_dtype = direct_acc	THEN

										;
										; Check for 532 byte block.
										;
				ldy		#dib.blksize
				lda		[dib_ptr],y
				cmp		#$214
				beq		@do_532
				jmp		|main_drvr

@do_532			jmp		munge_532

;-------------------------------------------------------------------------------

				ELSE

				jmp		|main_drvr

				ENDIF

;-------------------------------------------------------------------------------

				ENDP

				EJECT

;*******************************************************
;
;	'munge_532'
;
;	There are a few drives that have been formated with
;	512 ($214) bytes per block.  These devices work
;	perfectly fine in single block I/O, padding the end
;	with 20 bytes in a write, or stripping them for a
;	read, but when doing a multi-block transaction we
;	need to account for the 20 bytes between the end of
;	real data for this block and the beginning of the
;	next block.  Because of this, we will need to build
;	a data chaining structure that will read or write
;	512 bytes of data to the users buffer, followed by
;	20 bytes read or written to ROM space.  Doing this
;	will hinder performance and will prevent caching
;	from working.  If these are important to the user,
;	they can reformat their drive.
;
;	This routine is called in place of calling the Main
;	Driver.  All Inputs, Outputs and Setup Structures
;	are the same.
;
;	Inputs:		Acc			=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Outputs:	Acc			=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	GS/OS Direct Page
;				Data Bank	=	Ours
;
;	Errors:		None
;
;*******************************************************

				EXPORT	munge_532
munge_532		PROC

;-------------------------------------------------------------------------------

				IF			scsi_dtype = direct_acc	THEN

										;
										; Set User's buffer location
										;
				lda		<buff_ptr
				sta		|@User_buff
				lda		<buff_ptr+2
				sta		|@User_buff+2
										;
										; Generate a block count.
										;
				stz		@block_cnt
				lda		<rqst_cnt+2
				sta		@block_cnt+1
				lda		<rqst_cnt
				and		#$fe00
				cmp		<rqst_cnt
				beq		@equal_512

				lda		#drvr_bad_cnt
				sec
				rts

@equal_512		lsr		@block_cnt+1
				ror		a
				tsb		@block_cnt-1
										;
										; Adjust users request cnt to reflect
										; that there are 20 bytes/block more
										; to transfer than the user requested.
										; This is done by multiplying the block
										; count that we just calculated bu $14.
										;
										; First preserve the old value.
										;
				lda		<rqst_cnt+2
				sta		@rqst_cnt+2
				lda		<rqst_cnt
				sta		@rqst_cnt
										;
										; Now adjust count.
										;
				lda		@block_cnt+2
				sta		|scratch0+2
				lda		@block_cnt
				sta		|scratch0
										;
										; x4 first
										;
				asl		|scratch0		;x2
				asl		|scratch0+2

				asl		|scratch0		;x2 (x4)
				asl		|scratch0+2
										;
										; Save the x4.
										;
				lda		|scratch0
				sta		|scratch2
				lda		|scratch0+2
				sta		|scratch2+2
										;
										; Finish the x16
										;
				asl		|scratch0		;x2 (x8)
				asl		|scratch0+2

				asl		|scratch0		;x2 (x16)
				asl		|scratch0+2
										;
										; Add the x4 to x16 for x20
										;
				clc
				lda		|scratch0
				adc		|scratch2
				sta		|scratch0
				lda		|scratch0+2
				adc		|scratch2+2
				sta		|scratch0+2
										;
										; Add the x20 to the original
										; request count.
										;
				clc
				lda		|scratch0
				adc		<rqst_cnt
				sta		<rqst_cnt
				lda		|scratch0+2
				adc		<rqst_cnt+2
				sta		<rqst_cnt+2
										;
										; Drop the Loop Counter by 1.
										;
				sec
				lda		@block_cnt
				sbc		#$0001
				sta		@block_cnt
				lda		@block_cnt+2
				sbc		#$0000
				sta		@block_cnt+2
										;
										; Preserve the data pointer currently
										; used in the DIB and replace it with
										; a pointer to our 532 byte block
										; Data Chaining instructions.
										;
				clc
				ldy		#dib.trx_ptr
				lda		[dib_ptr],y
				sta		|dib_data_struct

				lda		#@munger_DC
				sta		[dib_ptr],y

				ldy		#dib.trx_ptr+2
				lda		[dib_ptr],y
				sta		|dib_data_struct+2

				lda		#^@munger_DC
				sta		[dib_ptr],y
										;
										; Preserve the Block size and replace
										; it with $0214
										;
				lda		<blk_size
				sta		@blk_size
				lda		#$0214
				sta		<blk_size
										;
										; Issue the call.
										;
				jsr		|main_drvr
										;
										; Preserve the result.
										;
				pha
				php
										;
										; Restore the Block size.
										;
				lda		@blk_size
				sta		<blk_size
										;
										; Restore DIB's data pointer.
										;

				ldy		#dib.trx_ptr
				lda		|dib_data_struct
				sta		[dib_ptr],y

				ldy		#dib.trx_ptr+2
				lda		|dib_data_struct+2
				sta		[dib_ptr],y
										;
										; Restore the original request count.
										;
				lda		@rqst_cnt+2
				sta		<rqst_cnt+2
				lda		@rqst_cnt
				sta		<rqst_cnt
										;
										; Restore state of the call's exit.
										;
				plp
				pla
										;
										; Exit.
										;
				rts
										;
										; Temp Storage area.
										;
@rqst_cnt		dc.l	null
@blk_size		dc.w	null

@munger_DC								;
										; Data Chaining Structure.
										;
@User_buff		dc.l	$00000000		;Users Buffer Space
				dc.l	$00000200		;Request Count
				dc.l	$00000200		;Add to buffer at each pass
				dc.l	$00000000		;Reserved.

				dc.l	$00ff0600		;Location for spare bytes (ROM)
				dc.l	$00000014		;Number of bogus bytes
				dc.l	$00000000		;Leave buffer pointer alone
				dc.l	$00000000		;Reserved.

				dc.l	$ffffffff		;Looping Command
@block_cnt		dc.l	$00000000		;Block Count
				dc.l	$00000000-2		;Go Back 2 commands
				dc.l	$00000000		;Reserved

				dc.l	$00000000		;DCStop Command
				dc.l	$00000000		;DCStop Command
				dc.l	$00000000		;DCStop Command
				dc.l	$00000000		;DCStop Command

				dc.l	$00000000		;Safety space

;-------------------------------------------------------------------------------

				ELSE

				lda		#null
				clc
				rts

				ENDIF

;-------------------------------------------------------------------------------

				ENDP

				EJECT

;*******************************************************
;
;	'divide'
;
;	This routine divides a 16 bit number stored in
;	'divsor' into the 32 bit number stored in 'divend'.
;	The result will be in 'result' if no error occured.
;	If 'divend' is not an integral multiple of 'divsor'
;	an error will be returned.
;
;	Inputs:		'divsor'		=	16 bit number
;				'divend'		=	32 bit number
;				'max_blk_cnt'	=	Max Result Allowed
;				Acc				=	Unspecified
;				Y register		=	Unspecified
;				X register		=	Unspecified
;				P register		=	0=M=X=e
;				Direct Page		=	GS/OS Direct Page
;				Data Bank		=	Ours
;
;	Outputs:	'result'		=	result of division
;				Acc				=	Error Code if Carry Set
;				'max_blk_cnt'	=	null if no error
;									Intact if an error is returned
;				Y register		=	Unspecified
;				X register		=	Unspecified
;				P register		=	0=M=X=e
;				Direct Page		=	GS/OS Direct Page
;				Data Bank		=	Ours
;
;	Errors:		Carry set if non-integral result
;
;*******************************************************

				EXPORT	divide
divide			PROC

;-------------------------------------------------------------------------------

				IF			block_dvc = true\
				AND			character_dvc = false		THEN
												;
												; Clear Result field
												;
				stz		|result
				stz		|result+2
												;
												; 32 bits in result.
												;
				ldx		#32-1
												;
												; Make 'divsor' an odd value.
												; This is nothing more than
												; deviding both numbers by 16
												; until 'divsor' is an odd value.
												; If any bits roll out of 'divend'
												; then this was an incorrect call.
												;
@div16_loop		lda		|divsor
				cmp		#block_size				;Special Case /block_size
				bne		@not_512
				lda		|divend
				and		#block_size-1
				bne		@error

;-------------------------------------------------------------------------------

				IF			scsi_dtype = direct_acc	THEN
												;
												; Quick Divide by block_size
												;
				lda		|divend+3
				and		#$00ff
				lsr		a
				sta		|result+2

				lda		|divend+1
				ror		a
				sta		|result

				jmp		@chk_rslt

				ENDIF

;-------------------------------------------------------------------------------

				IF			scsi_dtype = apple_cd	THEN
												;
												; Quick Divide by $0200
												;
				lda		|divend+3
				and		#$00ff
				lsr		a
				sta		|result+2

				lda		|divend+1
				ror		a
				sta		|result

				jmp		@chk_rslt

				ENDIF

;-------------------------------------------------------------------------------

				IF			scsi_dtype = mcd_40	THEN
												;
												; Quick Divide by $2000
												;
				stz		|result
				stz		|result+2
				lda		|divend+2
				sta		|result

				lda		|divend					;$2000
				asl		a						;$4000
				rol		|result					;x2
				rol		|result+2				;x2

				asl		a						;$8000
				rol		|result					;x4
				rol		|result+2				;x4

				asl		a						;$0000
				rol		|result					;x8
				rol		|result+2				;x8

				jmp		@chk_rslt

				ENDIF

;-------------------------------------------------------------------------------

@not_512		and		#bit_0
				bne		@do_divide
				lsr		|divsor
				lsr		|divend+2
				ror		|divend
				bcc		@div16_loop
				bra		@error
												;
												; Main division loop.  We will
												; continue to divide the divsor
												; by 16 until finished.  Each
												; time that divsor becomes odd,
												; we will subtract divend and
												; roll a bit into the high end
												; of result.
												;
@do_divide		lda		|divend
				and		#bit_0
				clc								;We must clear the carry incase
				beq		@do_div16				;the branch is taken.
												;
												; We are odd. Do the subtraction.
												;
				sec
				lda		|divend
				sbc		|divsor
				sta		|divend
				lda		|divend+2
				sbc		#$0000
				sta		|divend+2
				bcc		@error					;If this is taken, bad data.
												;
												; Divide both the divsor and 
												; results by 16.  The carry will
												; roll into the reult from the
												; high bit end.
												;
@do_div16		php
				lsr		|divend+2
				ror		|divend
				plp
@clean_up		ror		|result+2
				ror		|result
												;
												; Have we done 32 bits yet?
												;
				dex
				bmi		@chk_rslt				;Yes.
												;
												; No we havent.  If divsor is
												; non-zero then do next itteration.
												; If it is = zero then clean up
												; result and exit.
												;
				lda		|divend+2
				ora		|divend
				bne		@do_divide
												;
												; Clean up Result.
												;
				clc
				bra		@clean_up
												;
												; Here for bcs offset.
												;
@error			sec
				lda		#drvr_bad_cnt
				rts
												;
												; Check to see if the result is within
												; the max.
												;
@chk_rslt		lda		|max_blk_cnt
				ora		|max_blk_cnt+2
				beq		@out

				sec
				lda		|max_blk_cnt
				sbc		|result
				sta		@temp
				lda		|max_blk_cnt+2
				sbc		|result+2
				bge		@clean
												;
												; Exit
												;
				sec
				lda		#drvr_bad_parm
				rts

@clean			stz		|max_blk_cnt
				stz		|max_blk_cnt+2
@out			clc
				rts
													;
													; Data Area.
													;
@temp			dc.w	null

				ELSE

;-------------------------------------------------------------------------------

				lda		#null
				clc
				rts

				ENDIF

;-------------------------------------------------------------------------------

				ENDP

				EJECT

;*******************************************************
;
;	'calc_bytes'
;
;	This routine Multiplies a 16 bit number stored in
;	'm_blk_size' by a 32 bit number stored in 'm_blk_cnt'.
;	The result will be in 'm_rslt'.
;
;	Inputs:		'm_blk_size'=	16 bit Block Size
;				'm_blk_cnt'	=	32 bit Block Count
;				Acc			=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	GS/OS Direct Page
;				Data Bank	=	Ours
;
;	Outputs:	'm_rslt'	=	result of division
;				Acc			=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	GS/OS Direct Page
;				Data Bank	=	Ours
;
;	Errors:		None
;
;*******************************************************

				EXPORT	calc_bytes
calc_bytes		PROC

;-------------------------------------------------------------------------------

				IF			block_dvc = true\
				AND			character_dvc = false		THEN
											;
											; Clear Result field
											;
				stz		|m_rslt
				stz		|m_rslt+2
											;
											; Check 'm_blk_size' against the block
											; size for this device.  If it is Equal,
											; the do cheap processing.  Otherwise do
											; full multiply logic.
											;
@div16_loop		lda		|m_blk_size
				cmp		#block_size			;Special Case *block_size
				bne		@not_512

;-------------------------------------------------------------------------------

				IF			scsi_dtype = direct_acc	THEN
											;
											; Quick Multiply by $0200
											;
				lda		|m_blk_cnt
				asl		a
				sta		|m_rslt+1

				lda		|m_blk_cnt+2
				and		#$007f
				rol		a
				ora		|m_rslt+3			;Watch out for that +4 value.
				sta		|m_rslt+3			;It doesn't belong to us.

				jmp		@clean

				ENDIF

;-------------------------------------------------------------------------------

				IF			scsi_dtype = apple_cd	THEN
											;
											; Quick Multiply by $0200
											;
				lda		|m_blk_cnt
				asl		a
				sta		|m_rslt+1

				lda		|m_blk_cnt+2
				and		#$007f
				rol		a
				ora		|m_rslt+3			;Watch out for that +4 value.
				sta		|m_rslt+3			;It doesn't belong to us.

				jmp		@clean

				ENDIF

;-------------------------------------------------------------------------------

				IF			scsi_dtype = mcd_40	THEN
											;
											; Quick Multiply by $2000
											;
				lda		|m_blk_cnt
				sta		|m_rslt+2			;Cheap * $10000

				lda		|m_blk_cnt+2
				lsr		a
				ror		|m_rslt+2			;Cheap * $8000 ( * $10000/2 )
				ror		|m_rslt				;Cheap * $8000 ( * $10000/2 )

				lsr		a
				ror		|m_rslt+2			;Cheap * $4000 ( * $10000/4 )
				ror		|m_rslt				;Cheap * $4000 ( * $10000/4 )

				lsr		a
				ror		|m_rslt+2			;Cheap * $2000 ( * $10000/8 )
				ror		|m_rslt				;Cheap * $2000 ( * $10000/8 )

				jmp		@clean

				ENDIF

;-------------------------------------------------------------------------------

@not_512
											;
											; Actual Multiply Loop.
											;
				lsr		|m_blk_size
				bcc		@shift_cnt			;Don't Add this one.
											;
											; Add in Current Byte Count.
				clc
				lda		|m_rslt
				adc		|m_blk_cnt
				sta		|m_rslt
				lda		|m_rslt+2
				adc		|m_blk_cnt+2
				sta		|m_rslt+2
											;
											; Multiply Count by 2.
											;
@shift_cnt		asl		|m_blk_cnt
				rol		|m_blk_cnt+2

				lda		|m_blk_size
				bne		@not_512			;only do till 0  ( <16 times )
											;
											; Clean Exit.
											;
@clean			clc
				rts

				ELSE

;-------------------------------------------------------------------------------

				lda		#null
				clc
				rts

				ENDIF

;-------------------------------------------------------------------------------

				ENDP

				EJECT

				END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSI Driver main b/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSI Driver main
new file mode 100644
index 0000000..6e55cf6
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSI Driver main	
@@ -0,0 +1 @@
+;*******************************************************
;
;	SCSI Driver Main Driver.
;
;	Written by Matt Gulick.		Started May 16,1988
;
;	Copyright Apple Computer, Inc. 1988,89
;
;*******************************************************

;*******************************************************
;
;	This file contains the code segment that is called
;	when a Device call comes in.  This code is
;	responsible for checking the validity of the
;	command, setting the environment and parsing the
;	call to the desired filter.
;
;*******************************************************

;*******************************************************
;
;	Revision History:
;
;*******************************************************

;	May 16, 1988	File started.
;	May 17,	1988	DIB Record defined.
;	June 6,	1988	Main Driver Written.
;	Jun	10,	1988	Broke down files into links.
;	Jun	20,	1988	Add comments concerning Registers to the
;					routine headers.  Also incorporate
;					changes from code review.
;	July 8,	1988	Added code to allocate Directpage area
;					of $100 bytes.
;	Oct 25,	1988	Modified the default DIB to reflect the
;					changes in the SCSI Manager Interface.
;					Also made changes in the code to account
;					for this.
;
;	Apr	10,	1989	Started code for character devices.  The
;					Scanner Driver in particular.
;
; *** 6.0.1 ***
;
; 15-Dec-92 DAL		Changed default bitmap for CD device, to
;					support Apple CD-300.
;
;  6-Mar-93 JCM		Added the new "driver wasn't written by a bonehead" bit to the
;					default_dib characteristics for all drivers.
;

				STRING		PASCAL
				BLANKS		OFF
				PAGESIZE	70
				PRINT		NOGEN
				PRINT		NOMDIR
				MACHINE		M65816

				IMPORT		startup
				IMPORT		Open
				IMPORT		Read
				IMPORT		Write
				IMPORT		Close
				IMPORT		Status
				IMPORT		Control
				IMPORT		Flush
				IMPORT		Shutdown
				IMPORT		g_dib_ptr

				ENTRY		default_dib
				ENTRY		direct_page		;Driver Mgmt
				ENTRY		exit_dpage		;Driver Mgmt
				ENTRY		gsos_dpage		;Driver Mgmt
				ENTRY		lst_rslt_ec		;Status
				ENTRY		lst_rslt_id
				ENTRY		lst_rslt_stat
				ENTRY		lst_rslt_skey
				ENTRY		lst_rslt_info
				ENTRY		lst_rslt_rqlen
				ENTRY		lst_rslt_scode
				ENTRY		auto_sense_data	;Main Driver

				EJECT

				INCLUDE		'scsihd.equates'

				PRINT		OFF
				INCLUDE		'M16.MEMORY'
				INCLUDE		'M16.UTIL'
				PRINT		ON
			
;*******************************************************
;
;	This dummy Procedure is used to inform the loader.
;	Drivers start with data but are not data segments.
;	The loader may load what it thinks to be a data
;	segment accross bank boundries.  This is not good
;	for code.
;
;*******************************************************

				EXPORT	dummy
dummy			PROC
				ENDP
			
;*******************************************************
;
;	Header as required by the device dispatcher for
;	drivers.
;
;*******************************************************

				EXPORT	start
start			PROC

				dc.w	default_dib-start
				dc.w	$0001
				dc.w	ctrl_list-start
				
ctrl_list		dc.l	null
				dc.l	null

				ENDP
			
;*******************************************************
;
;	Main entry to the SCSI Driver code segment.  The
;	state of the machine at this point is:
;
;		Acc				=	Call Number
;					$0000	=	Startup
;					$0001	=	Open
;					$0002	=	Read
;					$0003	=	Write
;					$0004	=	Close
;					$0005	=	Status
;					$0006	=	Control
;					$0007	=	Flush
;					$0008	=	Shutdown
;		Y register		=	Unspecified
;		X register		=	Unspecified
;		P register		=	0=M=X=e
;		Direct Page		=	GS/OS Direct Page
;		Data Bank		=	Unspecified
;		Stack Pointer	=	GS/OS Stack
;		System Speed	=	Fast
;
;*******************************************************

				EXPORT	drvr_main
drvr_main		PROC
										;
										; Diagnostic Flag
										;
				sta		>$ff0500
										;
										; Preserve Callers Data Bank
										; and set ours.
										;
				phb
				phk
				plb
										;
										; Check to see if we have our own
										; Direct Page. If so then copy first
										; 'x' bytes to our temp, switch DP and
										; copy it back to ours.
										;
				ldx		|direct_page
				beq		@chk_startup	;No DP. This must be a startup call.
										;
										; Set our Direct Page with the first
										; 'x' Bytes equal to the GS/OS DP
										; settings.
										;
				pha
										;
				clc						; Calculate Source Address of GS/OS
				tdc						; Direct Page that we want.
				sta		|gsos_dpage		; Preserving GS/OS DP for later use.
				adc		#dev_num
				pea		$0000
				pha
										;
				clc						; Calculate Destination Address of
				lda		|direct_page	; our Direct Page that we want.
				adc		#dev_num
				pea		$0000
				pha
				
				pushlong	#dib_ptr+4	;Length of the move
				
				pushword	#move_sinc_dinc

				jsl		move_info		;Move the data
										;
										; Set our Direct Page.
										;
				lda		|direct_page
				tcd
										;
										; Continue with call.
										;
				pla
				bra		@do_command
										;
										; Validate for Startup Command.
										;
@chk_startup	cmp		#cmd_start
				bne		@error1
										;
										; Convert call number in Acc
										; to an index into our jmp table
										;
@do_command		cmp		#max_d_cmd+1
				bge		@error
@do_cmd1		asl		a
				tax
										;
										; If this is a status call $0005
										; then don't clear these values.
										; That's what they are trying to
										; get.
										;
				cmp		#cmd_status*2	;Account for the ASL
				bne		@clear			;Not a status call
				lda		<stat_code		;Is it Code $0005?
				cmp		#$0005
				beq		@dont_clear		;Yes. Skip the clear code.
										;
										; Clear the data from the last call.
										;
@clear			lda		<dev_num
				sta		|lst_rslt_id
										;
										; Check to see if device is still
										; performing the last call isued.
										;
@dont_clear		ldy		#dib.dvcflag
				lda		[dib_ptr],y
				and		#int_busy
				beq		@do_call
										;
										; Still Busy.  Return Busy Error.
										;
				lda		|gsos_dpage
				tcd

				lda		#drvr_busy
				bra		@error2

@do_call		jsr		(@table,x)
										;
										; Clean Exit.
										;
										; Get our Direct Page with the first
										; 'x' Bytes equal to the GS/OS DP
										; settings and return them.
										;
				pha
				php
										;
										; Check to see if premature termination.
										;
				lda		|exit_dpage
				beq		@purge_me		;Hurt Me! I Like it.
										;
										; No. Then Return Control of the
										; Direct Page back to GS/OS.
										;
				clc						; Calculate Source Address of
				adc		#dev_num		; our Direct Page that we used.
				pea		$0000
				pha

				clc						; Calculate Destination Address of
				lda		|gsos_dpage		; GS/OS Direct Page.
				tcd						; Resetting it also at this time.
				adc		#dev_num		; Preserving GS/OS DP for later use.
				pea		$0000
				pha
				
				pushlong	#dib_ptr	;Length of the move
				
				pushword	#move_sinc_dinc

				jsl		move_info		;Return the data

										;
										; If Direct_page = 0 then this is
										; the final exit and we need to also
										; zero out the exit_dpage value.
										;
				lda		|direct_page
				bne		@purge_me
				stz		|exit_dpage

@purge_me		plp
				pla
				plb
				bcs		@yes_error
				lda		#null
@yes_error
				sta		>$ff0502		;*** Debug only

				rtl
										;
										; Error Exit
										;
										; Reset GS/OS Direct Page.
										;
@error			lda		|gsos_dpage
				tcd
@error1			lda		#drvr_bad_code
@error2			sec
				plb
										;
										; Save Error Code for Get Last
										; Result Call
										;
				sta		|lst_rslt_ec

				sta		>$ff0502		;*** Debug only

				rtl
			
;*******************************************************
;
;	Jump table and code.
;
;*******************************************************

@table			dc.w	startup
				dc.w	Open
				dc.w	Read
				dc.w	Write
				dc.w	Close
				dc.w	Status
				dc.w	Control
				dc.w	Flush
				dc.w	Shutdown


				EJECT
										;
										; Dispatcher Routing routine
										;
				EXPORT	rout2_s_disp
rout2_s_disp	pha

				lda		|direct_page	;If this is the first time, then
				bne		@use_ours

				pla
				jsl		s_dispatch
				rts

@use_ours		lda		|gsos_dpage
				tcd
				pla
				jsl		s_dispatch
				pha
				lda		|direct_page
				tcd
				pla
				rts

				ENDP

				EJECT
			
;*******************************************************
;
;	The following statements are used to define the DIB
;	structure.  The structure contains the traditional
;	DIB followed by an extension used for device
;	maintainence.  All together each DIB with the
;	associated extensions will take one page of RAM.
;
;*******************************************************
;
;	$00	------------------------------------------------
;		|											   |
;		|      Device Information Block Data (DIB)     |
;	$3F	|											   |
;		------------------------------------------------
;	$40	|             Physical Block Number            |
;		|											   |
;	$43	|        that maps to logical block zero       |
;		------------------------------------------------
;	$44	|											   |
;		|                 Head Pointer                 |
;	$47	|											   |
;		------------------------------------------------
;	$48	|											   |
;		|               Forward Pointer                |
;	$4B	|											   |
;		------------------------------------------------
;	$4C	|				Memory DIB Count			   |
;		------------------------------------------------
;	$4E	|					Reserved				   |
;		------------------------------------------------
;	$50	|											   |
;		|      Memory Manager Handle for this DIB      |
;	$53	|											   |
;		------------------------------------------------
;	$54	|											   |
;		|              Block Size (Bytes)              |
;	$57	|											   |
;		------------------------------------------------
;	$58	|       Max SCSI Command for this Device       |
;		------------------------------------------------
;	$5A	|                                              |
;		|   Command Bitmap (See ERS for description)   |
;	$79	|                                              |
;		------------------------------------------------
;	$7A	|              SCSI Command Data               |
;		|                     and                      |
;	$D9	|      SCSI Manager Call Buffer Structures     |
;		------------------------------------------------
;	$DA	|            'Busy' and other Flags            |
;		------------------------------------------------
;	$DC	|                                              |
;		|          Completion Vector with Code         |
;	$FF	|                                              |
;		------------------------------------------------
;
;*******************************************************

			EXPORT	default_dib
default_dib	PROC
									;
									; Definition of DIB Structure.
									;
			dc.l	$00000000		; DIB Link Pointer				(LONG)
			dc.l	drvr_main		; Pointer to Drvrs Main Entry	(LONG)

;-------------------------------------------------------------------------------

			IF		scsi_dtype = direct_acc	THEN

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

			IF		warm_ss_suprt = true		THEN

			dc.w	restartable++\	;Restartable from ram	if Set	(WORD)
					speed_ind++\	;Device is speed ind	if Set
					blk_device++\	;Block Device			if Set
					write_allow++\	;Write is Allowed		if Set
					read_allow++\	;Read is Allowed		if Set
					format_allow++\	;Format is Allowed		if Set
					driver_is_clean	;Follows guidelines		if Set - 6-Mar-93 JCM

			ELSE

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

			dc.w	speed_ind++\	;Device is speed ind	if Set	(WORD)
					blk_device++\	;Block Device			if Set
					write_allow++\	;Write is Allowed		if Set
					read_allow++\	;Read is Allowed		if Set
					format_allow++\	;Format is Allowed		if Set
					driver_is_clean	;Follows guidelines		if Set - 6-Mar-93 JCM

			ENDIF

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

			ENDIF

;-------------------------------------------------------------------------------

									;
									; Is it a Write-once Read-multiple Device.
									;
			IF		scsi_dtype = apple_cd	THEN

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

			IF		warm_ss_suprt = true		THEN

			dc.w	restartable++\	;Restartable from ram	if Set	(WORD)
					speed_ind++\	;Device is speed ind	if Set
					blk_device++\	;Block Device			if Set
					read_allow++\	;Read is Allowed		if Set
					removable++\	;Removable Media		if Set
					driver_is_clean	;Follows guidelines		if Set - 6-Mar-93 JCM

			ELSE

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

			dc.w	speed_ind++\	;Device is speed ind	if Set	(WORD)
					blk_device++\	;Block Device			if Set
					read_allow++\	;Read is Allowed		if Set
					removable++\	;Removable Media		if Set
					driver_is_clean	;Follows guidelines		if Set - 6-Mar-93 JCM

			ENDIF

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

			ENDIF

;-------------------------------------------------------------------------------

									;
									; Is it an MCD 40 Tape Drive
									;
			IF		scsi_dtype = mcd_40	THEN

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

			IF		warm_ss_suprt = true		THEN

			dc.w	restartable++\	;Restartable from ram	if Set	(WORD)
					speed_ind++\	;Device is speed ind	if Set
					blk_device++\	;Block Device			if Set
					write_allow++\	;Write is Allowed		if Set
					read_allow++\	;Read is Allowed		if Set
					format_allow++\	;Format is Allowed		if Set
					removable++\	;Removable Media		if Set
					driver_is_clean	;Follows guidelines		if Set - 6-Mar-93 JCM

			ELSE

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

			dc.w	speed_ind++\	;Device is speed ind	if Set	(WORD)
					blk_device++\	;Block Device			if Set
					write_allow++\	;Write is Allowed		if Set
					read_allow++\	;Read is Allowed		if Set
					format_allow++\	;Format is Allowed		if Set
					removable++\	;Removable Media		if Set
					driver_is_clean	;Follows guidelines		if Set - 6-Mar-93 JCM

			ENDIF

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

 			ENDIF

;-------------------------------------------------------------------------------

			IF		scsi_dtype = scanner	THEN
									;
									; Is it a Scanner Device?
									;
			dc.w	speed_ind++\	;Device is speed ind	if Set
					read_allow++\	;Read is Allowed		if Set
					driver_is_clean	;Follows guidelines		if Set - 6-Mar-93 JCM

 			ENDIF

;-------------------------------------------------------------------------------

			IF		scsi_dtype = appl_laser	THEN
									;
									; Is it a appl_laser Device?
									;
			dc.w	speed_ind++\	;Device is speed ind	if Set
					write_allow++\	;Write is Allowed		if Set
					driver_is_clean	;Follows guidelines		if Set - 6-Mar-93 JCM

 			ENDIF

;-------------------------------------------------------------------------------

			dc.l	$00000000		; Block Count for this device	(LONG)
									; Set to default. This can change
									;
									; Length of Descriptive Name	(PSTR)
									; Followed by the Descriptive
									; Name for the device.  This
									; is a conditional Assembly.
									;

;-------------------------------------------------------------------------------

			IF		scsi_dtype = direct_acc	THEN
									;
									; Is it a Direct-Access Device.
									;
			dc.b	'APPLESCSI.HD00.00'
			ENDIF

;-------------------------------------------------------------------------------

			IF		scsi_dtype = seq_acc	THEN
									;
									; Is it a Sequential-Access Device.
									;
			dc.b	'SCSI.TAPE00.00'
			ENDIF

;-------------------------------------------------------------------------------

			IF		scsi_dtype = appl_laser	THEN
									;
									; Is it a LaserWriter Device.
									;
			dc.b	'APPLESCSI.LW00.00'
			ENDIF

;-------------------------------------------------------------------------------

			IF		scsi_dtype = proc_dvc	THEN
									;
									; Is it a Processor Device.
									;
			dc.b	'APPLESCSI.PROC00.00'
			ENDIF

;-------------------------------------------------------------------------------

			IF		scsi_dtype = worm_dvc	THEN
									;
									; Is it a Write-once Read-multiple Device.
									;
			dc.b	'APPLESCSI.WORM00.00'
			ENDIF

;-------------------------------------------------------------------------------

			IF		scsi_dtype = apple_cd	THEN
									;
									; Is it a Read-only Direct-Access Device.
									;
			dc.b	'APPLESCSI.CDROM00.00'
			ENDIF

;-------------------------------------------------------------------------------

			IF		scsi_dtype = scanner	THEN
									;
									; Is it a Scanner Device.
									;
			dc.b	'APPLESCSI.SCANNER00.00'
			ENDIF

;-------------------------------------------------------------------------------

			IF		scsi_dtype = optic_mem	THEN
									;
									; Is it a Optical Memory Device.
									;
			dc.b	'APPLESCSI.OPTICAL00.00'
			ENDIF

;-------------------------------------------------------------------------------

			IF		scsi_dtype = changer	THEN
									;
									; Is it a Changer Device.
									;
			dc.b	'APPLESCSI.CHANGER00.00'
			ENDIF

;-------------------------------------------------------------------------------

			IF		scsi_dtype = comm_dvc	THEN
									;
									; Is it a Communication Device.
									;
			dc.b	'APPLESCSI.COM00.00'
			ENDIF

;-------------------------------------------------------------------------------

			IF		scsi_dtype = mcd_40	THEN
									;
									; Is it a Direct Access Magnetic
									; Tape Device.
									;
			dc.b	'APPLESCSI.TAPE00.00'
			ENDIF

;-------------------------------------------------------------------------------

									;
									; Pad space to fill gap to next field.
									;
			dcb.b	dib.slotnum+default_dib-*,$20
			
			dc.w	$8000			; Device Slot Number from MGR.	(WORD)
									; By setting bit 15 in the slot
									; number we can force the device
									; dispatcher to keep it around.
									; We will save this as a default
									; dib.  This will also allow us
									; to remain loaded if there are
									; no devices available at boot
									; time.
									;
			dc.w	$0000			; Device Unit Number from MGR.	(WORD)
			dc.w	drvr_vers		; Version Number for our Driver	(WORD)

;-------------------------------------------------------------------------------

			IF		scsi_dtype = direct_acc	THEN
			dc.w	$0005			; ID of Device we talk to		(WORD)
			ENDIF

;-------------------------------------------------------------------------------

			IF		scsi_dtype = apple_cd	THEN
			dc.w	$0007			; ID of Device we talk to		(WORD)
			ENDIF

;-------------------------------------------------------------------------------

			IF		scsi_dtype = mcd_40	THEN
			dc.w	$0020			; ID of Device we talk to		(WORD)
			ENDIF

;-------------------------------------------------------------------------------

			IF		scsi_dtype = scanner	THEN
			dc.w	$001A			; ID of Device we talk to		(WORD)
			ENDIF

;-------------------------------------------------------------------------------

			IF		scsi_dtype = appl_laser	THEN
			dc.w	$001C			; ID of Device we talk to		(WORD)
			ENDIF

;-------------------------------------------------------------------------------

			dc.w	$0000			; Head Device Link				(WORD)
			dc.w	$0000			; Forward Device Link			(WORD)
									;
									; Pointer to DIB Extension		(LONG)
									;
			dc.l	dib.start_blk+default_dib
			
			dc.w	$0000			; DIB Device Number				(WORD)
									;
									; The Starting Block Number for this device
									; is maintained here.  This is used to
									; modify the requested block number from
									; a logical to a physical number.
									;
			dc.l	$00000000		; Starting Physical Block Num.	(LONG)
									;
									; These two pointers are the compliment
									; to the links in the standard DIB and
									; will point to the actual DIB referenced
									; in the Head and Forward Device Links.
									;
			dc.l	null			; Head Dvc Pointer				(LONG)
			dc.l	null			; Forward Dvc Pointer			(LONG)
			dc.w	null			; Number of active dibs in mem	(WORD)
			dc.w	null			; Block containing partition	(WORD)
									;
									; Memory Manager Handle
									;
			dc.l	$00000000		;								(LONG)
									;
									; Block Size
									;
			dc.l	block_size		;								(LONG)
									;
									; Maximum SCSI Command supported by
									; the device for this DIB.
									;
			dc.w	$00FF			;								(WORD)
									;
									; SCSI Command Group Bitmaps
									;

;-------------------------------------------------------------------------------

			IF		scsi_dtype = direct_acc	THEN
									;
									; It is a Direct-Access Device.
									;
			dc.B	$D9,$B0,$27,$BE	; Group 0						(LONG)
			dc.B	$04,$A3,$1E,$FB	; Group 1						(LONG)
			dc.B	$00,$00,$04,$21	; Group 2						(LONG)
			dc.B	$00,$00,$00,$00	; Group 3						(LONG)
			dc.B	$00,$00,$00,$00	; Group 4						(LONG)
			dc.B	$00,$00,$00,$00	; Group 5						(LONG)
			dc.B	$00,$00,$00,$00	; Group 6						(LONG)
			dc.B	$00,$00,$00,$00	; Group 7						(LONG)
			ENDIF

;-------------------------------------------------------------------------------

			IF		scsi_dtype = seq_acc	THEN
									;
									; It is a Sequential-Access Device.
									;
			dc.B	$D4,$B1,$FF,$FF	; Group 0						(LONG)
			dc.B	$00,$10,$08,$78	; Group 1						(LONG)
			dc.B	$00,$00,$04,$21	; Group 2						(LONG)
			dc.B	$00,$00,$00,$00	; Group 3						(LONG)
			dc.B	$00,$00,$00,$00	; Group 4						(LONG)
			dc.B	$00,$00,$00,$00	; Group 5						(LONG)
			dc.B	$00,$00,$00,$00	; Group 6						(LONG)
			dc.B	$00,$00,$00,$00	; Group 7						(LONG)
			ENDIF

;-------------------------------------------------------------------------------

			IF		scsi_dtype = appl_laser	THEN
									;
									; It is a LaserWriter Device.
									;
			dc.B	$FE,$20,$27,$20	; Group 0						(LONG)
			dc.B	$00,$00,$00,$00	; Group 1						(LONG)
			dc.B	$00,$00,$00,$00	; Group 2						(LONG)
			dc.B	$00,$00,$00,$00	; Group 3						(LONG)
			dc.B	$00,$00,$00,$00	; Group 4						(LONG)
			dc.B	$00,$00,$00,$00	; Group 5						(LONG)
			dc.B	$00,$00,$00,$00	; Group 6						(LONG)
			dc.B	$00,$00,$00,$00	; Group 7						(LONG)
			ENDIF

;-------------------------------------------------------------------------------

			IF		scsi_dtype = proc_dvc	THEN
									;
									; It is a Processor Device.
									;
			dc.B	$90,$A0,$20,$8C	; Group 0						(LONG)
			dc.B	$00,$00,$00,$00	; Group 1						(LONG)
			dc.B	$00,$00,$04,$21	; Group 2						(LONG)
			dc.B	$00,$00,$00,$00	; Group 3						(LONG)
			dc.B	$00,$00,$00,$00	; Group 4						(LONG)
			dc.B	$00,$00,$00,$00	; Group 5						(LONG)
			dc.B	$00,$00,$00,$00	; Group 6						(LONG)
			dc.B	$00,$00,$00,$00	; Group 7						(LONG)
			ENDIF

;-------------------------------------------------------------------------------

			IF		scsi_dtype = worm_dvc	THEN
									;
									; It is a Write-once Read-multiple Device.
									;
			dc.B	$D1,$90,$27,$BE	; Group 0						(LONG)
			dc.B	$04,$03,$10,$60	; Group 1						(LONG)
			dc.B	$00,$00,$04,$21	; Group 2						(LONG)
			dc.B	$00,$00,$00,$00	; Group 3						(LONG)
			dc.B	$00,$00,$00,$00	; Group 4						(LONG)
			dc.B	$00,$00,$00,$00	; Group 5						(LONG)
			dc.B	$00,$00,$00,$00	; Group 6						(LONG)
			dc.B	$00,$00,$00,$00	; Group 7						(LONG)
			ENDIF

;-------------------------------------------------------------------------------

			IF		scsi_dtype = apple_cd	THEN
									;
									; It is a Read-only Direct-Access Device.
									;
;			dc.B	$D0,$90,$27,$BE	; Group 0						(LONG)
;			dc.B	$04,$01,$10,$60	; Group 1						(LONG)
;			dc.B	$00,$00,$04,$21	; Group 2						(LONG)
;			dc.B	$00,$00,$00,$00	; Group 3						(LONG)
;			dc.B	$00,$00,$00,$00	; Group 4						(LONG)
;			dc.B	$00,$00,$00,$00	; Group 5						(LONG)
;			dc.B	$00,$00,$00,$00	; Group 6						(LONG)
;			dc.B	$00,$00,$00,$00	; Group 7						(LONG)
*** changed 15-Dec-92 DAL -- Hard-code capabilities of Apple CD-300
*** (page 18 of AppleCD 300 SCSI Spec v1.2)
			dc.B	$D0,$90,$27,$BE	; Group 0	;00,01,03,08,0B,12,15-17,1A-1E
			dc.B	$04,$90,$00,$18	; Group 1	;25,28,2B,3B,3C
			dc.B	$3F,$90,$00,$00	; Group 2	;42-48,4B
			dc.B	$00,$00,$00,$00	; Group 3
			dc.B	$00,$00,$00,$00	; Group 4
			dc.B	$04,$80,$00,$00	; Group 5	;A5,A8
			dc.B	$00,$04,$00,$C1	; Group 6	;CD,D8,D9,DF
			dc.B	$00,$00,$00,$00	; Group 7
*** end 15-Dec-92
			ENDIF

;-------------------------------------------------------------------------------

			IF		scsi_dtype = scanner	THEN
									;
									; It is a Scanner Device.
									;
			dc.B	$91,$82,$67,$BC	; Group 0						(LONG)
			dc.B	$0C,$A0,$48,$78	; Group 1						(LONG)
			dc.B	$00,$00,$00,$00	; Group 2						(LONG)
			dc.B	$00,$00,$00,$00	; Group 3						(LONG)
			dc.B	$00,$00,$00,$00	; Group 4						(LONG)
			dc.B	$00,$00,$00,$00	; Group 5						(LONG)
			dc.B	$00,$00,$00,$00	; Group 6						(LONG)
			dc.B	$00,$00,$00,$00	; Group 7						(LONG)
			ENDIF

;-------------------------------------------------------------------------------

			IF		scsi_dtype = optic_mem	THEN
									;
									; It is a Optical Memory Device.
									;
			dc.B	$D9,$B0,$27,$BE	; Group 0						(LONG)
			dc.B	$04,$0F,$1E,$FC	; Group 1						(LONG)
			dc.B	$00,$00,$04,$21	; Group 2						(LONG)
			dc.B	$00,$00,$00,$00	; Group 3						(LONG)
			dc.B	$00,$00,$00,$00	; Group 4						(LONG)
			dc.B	$00,$AF,$11,$04	; Group 5						(LONG)
			dc.B	$00,$00,$00,$00	; Group 6						(LONG)
			dc.B	$00,$00,$00,$00	; Group 7						(LONG)
			ENDIF

;-------------------------------------------------------------------------------

			IF		scsi_dtype = changer	THEN
									;
									; It is a Changer Device.
									;
			dc.B	$90,$00,$20,$8C	; Group 0						(LONG)
			dc.B	$00,$00,$00,$80	; Group 1						(LONG)
			dc.B	$00,$00,$04,$21	; Group 2						(LONG)
			dc.B	$00,$00,$00,$00	; Group 3						(LONG)
			dc.B	$00,$00,$00,$00	; Group 4						(LONG)
			dc.B	$06,$00,$00,$00	; Group 5						(LONG)
			dc.B	$00,$00,$00,$00	; Group 6						(LONG)
			dc.B	$00,$00,$00,$00	; Group 7						(LONG)
			ENDIF

;-------------------------------------------------------------------------------

			IF		scsi_dtype = comm_dvc	THEN
									;
									; It is a Communication Device.
									;
			dc.B	$90,$A0,$24,$2C	; Group 0						(LONG)
			dc.B	$00,$00,$00,$18	; Group 1						(LONG)
			dc.B	$00,$00,$00,$00	; Group 2						(LONG)
			dc.B	$00,$00,$00,$00	; Group 3						(LONG)
			dc.B	$00,$00,$00,$00	; Group 4						(LONG)
			dc.B	$00,$00,$00,$00	; Group 5						(LONG)
			dc.B	$00,$00,$00,$00	; Group 6						(LONG)
			dc.B	$00,$00,$00,$00	; Group 7						(LONG)
			ENDIF

;-------------------------------------------------------------------------------

			IF		scsi_dtype = mcd_40	THEN
									;
									; It is a Direct Access Magnetic
									; Tape Device.
									;
			dc.B	$DF,$F7,$FF,$7C	; Group 0						(LONG)
			dc.B	$04,$B0,$01,$18	; Group 1						(LONG)
			dc.B	$00,$00,$00,$00	; Group 2						(LONG)
			dc.B	$00,$00,$00,$00	; Group 3						(LONG)
			dc.B	$00,$00,$00,$00	; Group 4						(LONG)
			dc.B	$00,$00,$00,$00	; Group 5						(LONG)
			dc.B	$00,$00,$00,$00	; Group 6						(LONG)
			dc.B	$00,$00,$00,$00	; Group 7						(LONG)
			ENDIF

;-------------------------------------------------------------------------------

									;
									; SCSI Manager Call PList
									;
			dc.w	$0000			; Same as our Slot Number		(WORD)
			dc.w	scsi_dtype		; Same as our Unit Number		(WORD)			
			dc.w	$0000			; Version of call issued		(WORD)
			dc.w	$0000			; Flags from Command Table		(WORD)			
			dc.w	$0000			; Time Out Factor * xxx ms		(WORD)
									; Completion Routine Pointer	(LONG)
			dc.l	dib.complet\
					+default_dib
									; Pointer to Command Packet		(LONG)
			dc.l	dib.scsicmd\
					+default_dib			
									; Ptr to Send/R'cv Structure	(LONG)
			dc.l	dib.trx_buff\
					+default_dib
			dc.l	$00000000		; Users Send/R'cv Length		(LONG)
									; Pointer to Status Structure	(LONG)
			dc.l	auto_sense_data

			dc.l	$00000000		; Reserved space 1				(LONG)

			dc.l	$00000000		; Reserved space 2				(LONG)
									;
									; SCSI Command Packet
									;
			dcb.b	12,$00			; Room for any SCSI Command		(BYTES)
									;
									; SCSI Manager Device Send/R'cv Buffers List
									;
			dc.l	$00000000		; Users Send Buffer				(LONG)
			dc.l	$00000000		; Request cnt for this buffer	(LONG)
			dc.l	$00000000		; Offset for next pass			(LONG)
			dc.l	$00000000		; Null							(LONG)
			dc.l	$00000000		; Null							(LONG)
			dc.l	$00000000		; Null							(LONG)
			dc.l	$00000000		; Null							(LONG)
			dc.l	$00000000		; Null							(LONG)
			dcb.l	4,$00000000		; Reserved Space * 4 for future	(LONG)
									;
									; Device Busy and other Flags	(WORD)
									;
			dc.w	wait_mode++\	; Wait Mode is default
					cold_dib		; and they start cold.

									;
									; Completion Routine for this DIB.
									; This takes the remaining space in
									; the allocated RAM.  Any routine can
									; be placed here but must never go
									; beyond offset $FF
									;
			jsl		g_dib_ptr
			pei		scsi_zp0
			pei		scsi_zp1
			stx		<scsi_zp0
			sty		<scsi_zp1
			ldy		#dib.dvcflag
			lda		#int_busy--\
					$ffff
			and		[scsi_zp0],y
			sta		[scsi_zp0],y
			pla
			sta		<scsi_zp1
			pla
			sta		<scsi_zp0
			clc
			lda		#null
			rtl
@end		equ		*

;-------------------------------------------------------------------------------

			IF		@end-default_dib = dib_size	THEN
									;
									; Perfect Fit of DIB
									;
			ENDIF

;-------------------------------------------------------------------------------

			IF		@end-default_dib>dib_size	THEN
									;
									; It's too long.  Force an error
									;
			bad	 dib length
			ENDIF

;-------------------------------------------------------------------------------

			IF		@end-default_dib<dib_size	THEN
									;
									; Too Small.	 Pad to fit.
									;
			dcb.b	default_dib+$100-@end,$00
			ENDIF

;-------------------------------------------------------------------------------

			ENDP

			EJECT
			
;*******************************************************
;
;	This area contains the format options for the device
;	that this driver was written for.  It's construction
;	is as defined in the SCSI Device Driver ERS.
;
;*******************************************************

					EXPORT	format_options        
format_options		PROC

;-------------------------------------------------------------------------------

		IF		scsi_dtype = direct_acc	THEN

				EXPORT		display_cnt
				EXPORT		current_fmt
				EXPORT		opt1_blk_cnt
				EXPORT		opt1_blk_siz
				EXPORT		opt1_interleave
				EXPORT		opt1_med_siz
				EXPORT		opt2_blk_cnt
				EXPORT		opt2_blk_siz
				EXPORT		opt2_interleave
				EXPORT		opt2_med_siz
				EXPORT		opt3_blk_cnt
				EXPORT		opt3_blk_siz
				EXPORT		opt3_interleave
				EXPORT		opt3_med_siz
										;
										; Direct Access Device format options.
										;
				dc.w	$0003			;Number of entries
display_cnt		dc.w	$0002			;Number of display entries
				dc.w	$0001			;Recommended Default entry
current_fmt		dc.w	$0001			;Current Format

				dc.w	$0001			;Refnum = Option #1
				dc.w	$0002			;Linkref = Option #2
				dc.w	$0008			;Universal format
										;Size in megabytes
opt1_blk_cnt	dc.l	null			;Block Count Option #1
opt1_blk_siz	dc.w	$0200			;Block Size Option #1
opt1_interleave	dc.w	$0001			;Interleave = 1:1
opt1_med_siz	dc.w	null			;Media size in megabytes

				dc.w	$0002			;Refnum = Option #2
				dc.w	$0000			;Linkref = Option #0
				dc.w	$0008			;Universal format
										;Size in megabytes
opt2_blk_cnt	dc.l	null			;Block Count Option #2
opt2_blk_siz	dc.w	$0200			;Block Size Option #2
opt2_interleave	dc.w	$0002			;Interleave = 2:1
opt2_med_siz	dc.w	null			;Media size in megabytes

				dc.w	$0003			;Refnum = Option #3
				dc.w	$0000			;Linkref = Option #0
				dc.w	$0008			;Universal format
										;Size in megabytes
opt3_blk_cnt	dc.l	null			;Block Count Option #3
opt3_blk_siz	dc.w	$0214			;Block Size Option #3
opt3_interleave	dc.w	$0005			;Interleave = 5:1
opt3_med_siz	dc.w	null			;Media size in megabytes

				ENDIF

;-------------------------------------------------------------------------------

				ENDP
			
				EJECT
			
;*******************************************************
;
;	All the Data for this driver is maintained in this
;	procedure.  This is to allow easy future conversion
;	to ROM code if that is ever needed.  In order for
;	this to work, the following should be changed to a
;	RECORD structure and then the appropriate space
;	requested from the memory manager and used as a
;	temporary Direct Page space.  The template created
;	by changing this to a RECORD would then be used to
;	overlay the RAM supplied by the memory manager.
;
;*******************************************************

				EXPORT	drvrdata        
drvrdata		PROC
			
				EXPORT	direct_page
direct_page		dc.w	null				;Our Direct Page Start Address

				EXPORT	exit_dpage
exit_dpage		dc.w	null				;Our Direct Page Start Address

				EXPORT	gsos_dpage
gsos_dpage		dc.w	null				;GS/OS Direct Page Start Address

				EXPORT	valid
valid			dc.w	null				;Saved ZP Validity flag

				EXPORT	saved_zp
saved_zp		dcb.b	end_our_zp-\		;Saved GS/OS ZP Slept here
						start_our_zp,null

											;
											;Data for the GET LAST RESULT Call
											;
				EXPORT	lst_rslt_ec
				EXPORT	lst_rslt_id
				EXPORT	lst_rslt_stat
				EXPORT	lst_rslt_skey		;*** DO NOT SEPERATE THESE LABLES ***
				EXPORT	lst_rslt_info
				EXPORT	lst_rslt_rqlen
				EXPORT	lst_rslt_scode

lst_rslt_ec		dc.w	null				;GS/OS Error Code
lst_rslt_id		dc.w	null				;Device ID Number
lst_rslt_stat	dc.w	null				;Status Code
lst_rslt_skey	dc.w	null				;Sense Key
lst_rslt_info	dc.l	null				;Information Bytes
lst_rslt_rqlen	dc.w	null				;Data Length
lst_rslt_scode	dc.w	null				;Additional Sense Code

				EXPORT	master_uid
master_uid		dc.w	$0000				;Master MM User ID

				EXPORT	scsi_uid
scsi_uid		dc.w	$0000				;Our MM User ID

				EXPORT	page_cnt
page_cnt		dc.w	$0000				;Page Count for Remaining free RAM.

				EXPORT	hndl_offset
hndl_offset		dc.w	$0000				;Handle offset in new memory structure.

				EXPORT	buff_len
buff_len		dc.w	$0000				;Length of Requested Memory

				EXPORT	scratch0
scratch0		dc.w	$0000				;Scratch Working Area

				EXPORT	scratch1
scratch1		dc.w	$0000				;Scratch Working Area

				EXPORT	scratch2
scratch2		dc.w	$0000				;Scratch Working Area

				EXPORT	scratch3
scratch3		dc.w	$0000				;Scratch Working Area

				EXPORT	call_type
call_type		dc.w	$0000				;Current SCSI Command Type

				EXPORT	curr_hndl
curr_hndl		dc.l	$00000000

				EXPORT	main_caller
main_caller		dc.w	$0000

				EXPORT	ram_page_cnt
ram_page_cnt	dc.w	$0000

				EXPORT	tot_dib_cnt
tot_dib_cnt		dc.w	$0000

				EXPORT	active_starts
active_starts	dc.w	$0000
						
				EXPORT	t_dvc_blocks
t_dvc_blocks	dc.l	null				; Storage for the total block count

				EXPORT	dvc_ram				;Start of the device buffer plus
dvc_ram			dc.l	null				;the handle space

				EXPORT	format_data
format_data		dc.l	null

				EXPORT	sense_data
				EXPORT	ddm_data
ddm_data
sense_data		dcb.b	one_page*2,null

				EXPORT	auto_sense_data
auto_sense_data	dcb.b	one_page,null

				EXPORT	dvc_count		;Number of devices returned by the
dvc_count		dc.w	null			;SCSI Manager get devices call.
										;
										; Flag to indicate whether this call
										; came as a STARTUP or a rebuild of
										; the DIBs.
										;
				EXPORT	rebuild
rebuild			dc.w	null
				EXPORT	stat_cont
stat_cont		dc.w	null

				EXPORT	dpi_overide
dpi_overide		dc.w	null

				EXPORT	trash_it
trash_it		dc.w	null

				EXPORT	part_num
part_num		dc.w	null

				EXPORT	vPart_cnt
vPart_cnt		dc.w	null

				EXPORT	part_cnt
part_cnt		dc.w	null

				EXPORT	first_time
first_time		dc.w	null

				EXPORT	only_one
only_one		dc.w	null

				EXPORT	result
result			dc.l	null			;Result of Divide routine

				EXPORT	divend
divend			dc.l	null			;Dividend for the division

				EXPORT	divsor
divsor			dc.w	null			;Divisor for the division

				EXPORT	max_blk_cnt
max_blk_cnt		dc.l	null			;Maximum Result allowed

				EXPORT	m_rslt
m_rslt			dc.l	null			;Result of Multiply routine

				EXPORT	m_blk_cnt
m_blk_cnt		dc.l	null			;Block Count for the Multiply

				EXPORT	m_blk_size
m_blk_size		dc.w	null			;Block Size for the Multiply

				EXPORT	timeout_flag
timeout_flag	dc.w	null			;Timeout based on block count flag

				EXPORT	time_cnt
time_cnt		dc.l	null			;Timeout Calculation Area.
										;
										; DIB Data Structure Pointer
										;
				EXPORT	dib_data_struct
dib_data_struct	dc.l	null
										;
										; Data Chaining Flag
										;
				EXPORT		uses_dc
uses_dc			dc.w	null
										;
										; Data Areas for the Main Driver.
										;
				EXPORT	f_partition
f_partition		dc.w	null			;Get the partition call flag.

				EXPORT	internal		;Internally generated command if
internal		dc.w	null			;bit 15 is set.

				EXPORT	disk_switch		;Command requires a Disk Switch if
disk_switch		dc.w	null			;bit 15 is set.

				EXPORT	scsi_mgrnum
scsi_mgrnum		dc.w	null				;SCSI Manager Number for S_DISPATCH

				EXPORT	manager_cmd
manager_cmd		dc.w	null			;SCSI Manager Command Number

				EXPORT	cur_cmd
cur_cmd			dc.w	null			;Current SCSI Command Number 8 bits

				EXPORT	cur_cmd2
cur_cmd2		dc.w	null			;Current SCSI Command Number 12 bits

				EXPORT	cur_group
cur_group		dc.w	null			;Current SCSI Command Group

				EXPORT	trans_src
trans_src		dc.w	null			;Source Command Data Offset

				EXPORT	trans_dest
trans_dest		dc.w	null			;Destination Command Data Offset

				EXPORT	p_block_num
p_block_num		dc.l	null			;Temp location for block offset.

				EXPORT	killer_blk
killer_blk		dc.l	null			;Temp location for block offset.

				EXPORT	temp_acc
temp_acc		dc.w	null			;Temporary Accumulator

				EXPORT	temp_x
temp_x			dc.w	null			;Temporary X Register

				EXPORT	temp_y
temp_y			dc.w	null			;Temporary Y Register

				EXPORT	temp_len
temp_len		dc.w	null			;Temporary Loop Length

				EXPORT	trans_flag
trans_flag		dc.w	null			;SCSI Translation Flags.

				EXPORT	new_dib
new_dib			dc.w	null			;Building a new dib flag.

				EXPORT	pdi_flag
pdi_flag		dc.w	null			;Post Driver Install is Active

				EXPORT	new_list
new_list		dc.w	null			;Post Driver List Active Flag

				EXPORT	new_dib_cnt
new_dib_cnt		dc.l	null			;Number of new devices to startup

				EXPORT	new_dib_list
										;List of DIB ptrs for the new devices
new_dib_list	dcb.l	max_partitions,0

				ENDP

				END
			
				EJECT
			
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSI Filter close b/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSI Filter close
new file mode 100644
index 0000000..29a9f52
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSI Filter close	
@@ -0,0 +1 @@
+
;*******************************************************
;
;	SCSI Driver 'Close' Filter
;
;	Written by Matt Gulick.		Started June 8,1988
;
;	Copyright Apple Computer, Inc. 1988,89
;
;*******************************************************

;*******************************************************
;
;	This file contains the subroutines needed by the
;	SCSI Driver to respond to the Close call number
;	$0004.  In a Block Device Driver this will return no
;	error and perform no function.  In the case of a
;	Character device however, this will need to reset
;	the state of the target device to what it was prior
;	to the Open Call..
;
;*******************************************************

;*******************************************************
;
;	Revision History:
;
;*******************************************************

;	June 8,		1988	File started.
;	June 20		1988	Registers in and out are
;						described and changes from Code
;						review inserted.
;	April 11,	1989	Added Code for Scanner.

				STRING		PASCAL
				BLANKS		OFF
				PAGESIZE	70
				PRINT		NOGEN
				PRINT		NOMDIR
				MACHINE		M65816

				IMPORT		test_unit_rdy
				IMPORT		auto_sense_data
				IMPORT		release_unit
				IMPORT		open_flag

				PRINT		OFF

				INCLUDE		'scsihd.equates'
				INCLUDE		'M16.MEMORY'
				INCLUDE		'M16.UTIL'
				PRINT		ON

				EJECT

				IF			block_dvc = true\
				AND			character_dvc = false		THEN
			
;*******************************************************
;
;	This routine is used as the Close code for a Block
;	Device Driver.
;
;	Inputs:		None.
;
;	Outputs:	Acc			=	0
;				Carry		=	0
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	GS/OS Direct Page
;				Data Bank	=	Ours
;
;	Errors:		None
;
;*******************************************************

			ENDIF

;-------------------------------------------------------------------------------

				IF			character_dvc = true\
				AND			block_dvc = false		THEN
             	
;*******************************************************
;
;	This routine is used as the Close code for a
;	Character Device Driver.  This code is commented out
;	so that is available to any one who uses this SCSI
;	Driver Skeleton.
;
;	Inputs:		None.
;
;	Outputs:	Acc			=	Error
;				Carry		=	Set or Clear
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	GS/OS Direct Page
;				Data Bank	=	Ours
;
;	Errors:		Device not open Error	$0023
;				For other errors see Spec.
;
;*******************************************************

				ENDIF

;-------------------------------------------------------------------------------

				EXPORT	close
close			PROC

;-------------------------------------------------------------------------------

				IF			block_dvc = true\
				AND			character_dvc = false		THEN
												;
												; Is the device online?
												;
				ldy		#dib.dvcflag

				lda		[dib_ptr],y
				and		#dvc_online
				bne		@close					;Yes.
												;
												; Device is currently offline.
												;
				lda		#drvr_off_line
				sec
				rts
												;
												; Return to caller
												;
@close			lda		#$0000
				clc
				rts

				ENDIF

;-------------------------------------------------------------------------------

				IF			character_dvc = true\
				AND			block_dvc = false		THEN
												;
												; Is the device online?
												;
				ldy		#dib.dvcflag

				lda		[dib_ptr],y
				and		#dvc_online
				bne		@close					;Yes.
												;
												; Device is currently offline.
												;
				lda		#drvr_off_line
				sec
				rts
												;
												; Check if Open.
												;
@close			lda		|open_flag
				beq		@dvc_closed
												;
												; Clear Open Flag Now incase we
												; terminate from an I/O Problem.
												;
				lda		#$0000
				sta		|open_flag

;-------------------------------------------------------------------------------

				IF			scsi_dtype = scanner\
				OR			scsi_dtype = appl_laser		THEN
												;
												; It's a character device.  Prepare it
												; for operation.
												;
												; Set flag so that we will do this
												; at most 2 times for this call.
												;
@try_again		lda		#$ffff
				sta		@loop_cnt
												;
												; Is the Unit Ready for
												; communications?
												;
				jsr		|test_unit_rdy
				bcc		@its_ready				;Yes.
												;
												; No.  But why not?
												;
				lda		|auto_sense_data+\
						rqst_sens.sense_key
				and		#$00ff
				beq		@its_ready				;I quess it was only kidding.
												;
												; Is it doing somthing for sombody
												; right now?
												;
				cmp		#$0002
				bne		@check_6				;No.
												;
												; Yes it is. The Device is not yet
												; ready.
												;
@dvc_busy		lda		#drvr_busy
				sec
				rts
												;
												; Was it maybe reset or powered up
												; again?
												;
@check_6		cmp		#$0006
				beq		@handle_6				;Yes.
												;
												; No. The Device has Problems.
												;
@io_error		lda		#drvr_io
				sec
				rts
												;
												; The auto sensing should have cleared
												; this state, so lets try it again.
												; But only a second time.
												;
@handle_6		inc		@loop_cnt
				beq		@try_again
				bra		@io_error

@loop_cnt		dc.w	null					;Loop Counter.
												;
												; The Device is Ready.  Issue a
												; RELEASE UNIT Call.
												;
@its_ready		jsr		release_unit
				bcs		@io_error
				

				ELSE

;-------------------------------------------------------------------------------

				Insert Your Code Here.

				ENDIF

;-------------------------------------------------------------------------------

				lda		#$0000
				clc
				rts

@dvc_closed		lda		#drvr_not_open
				sec
				rts

				ENDIF

;-------------------------------------------------------------------------------

				ENDP

				END

				EJECT
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSI Filter control b/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSI Filter control
new file mode 100644
index 0000000..2028a03
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSI Filter control	
@@ -0,0 +1 @@
+
;*******************************************************
;
;	SCSI Driver 'Control' filter.
;
;	Written by Matt Gulick.		Started August 13,1988
;
;	Copyright Apple Computer, Inc. 1988,89
;
;*******************************************************

;*******************************************************
;
;	This file contains the 'Control' filter as defined
;	in the ERS.
;
;*******************************************************

;*******************************************************
;
;	Revision History:
;
;*******************************************************

;	Aug 13,		1988	File started.

				STRING		PASCAL
				BLANKS		OFF
				PAGESIZE	70
				PRINT		NOGEN
				PRINT		NOMDIR
				MACHINE		M65816

				IMPORT		rpm_blk_num
				IMPORT		wpm_blk_num
				IMPORT		stat_cont
				IMPORT		rebuild
				IMPORT		read_pm_blk
				IMPORT		write_pm_blk

				IMPORT		call_type
				IMPORT		internal
				IMPORT		main_drvr
				IMPORT		f_partition
				IMPORT		direct_page
				IMPORT		gsos_dpage
				IMPORT		internal_buff
				IMPORT		set_our_dp
				IMPORT		chk_lnk_offline
				IMPORT		set_disk_sw
				IMPORT		leave_switched	; *** MSG 12/12/91 ***
				IMPORT		disk_switch
				IMPORT		rebld_dibs
				IMPORT		unit_state
				IMPORT		test_unit_rdy
				IMPORT		trash_volume
				IMPORT		trash_it
				IMPORT		ko_cache
				IMPORT		trans_flag
				IMPORT		uses_dc
				IMPORT		dib_data_struct
				IMPORT		display_cnt
				IMPORT		current_fmt
				IMPORT		opt1_blk_cnt
				IMPORT		opt1_blk_siz
				IMPORT		opt1_interleave
				IMPORT		opt1_med_siz
				IMPORT		opt2_blk_cnt
				IMPORT		opt2_blk_siz
				IMPORT		opt2_interleave
				IMPORT		opt2_med_siz
				IMPORT		opt3_blk_cnt
				IMPORT		opt3_blk_siz
				IMPORT		opt3_interleave
				IMPORT		opt3_med_siz
				IMPORT		format_data
				IMPORT		check_532_rw
				IMPORT		sense_data
				IMPORT		t_dvc_blocks
				IMPORT		un_formatted

				ENTRY		reset_dvc
				ENTRY		eject
				ENTRY		s_config_parms
				ENTRY		s_wait_mode
				ENTRY		format_opt
				ENTRY		assign_part
				ENTRY		arm_signal
				ENTRY		disarm_sig
				ENTRY		set_p_map
				ENTRY		format_dvc

				PRINT		OFF

				INCLUDE		'scsihd.equates'
				INCLUDE		'M16.MEMORY'
				INCLUDE		'M16.UTIL'
				PRINT		ON

;-------------------------------------------------------------------------------

				IF			scsi_dtype = direct_acc	THEN

				ENTRY		sdp
				ENTRY		svp

				ENDIF

;-------------------------------------------------------------------------------

				EJECT
			
;*******************************************************
;
;	Main Entry point to the 'Control' filter.  This
;	"Filter" is called when a Control Command comes in.
;	See the headers of the seperate sections for the
;	details of the commands.
;
;	Called via 'JSR'
;
;	Inputs:		[dib_ptr]	=	Target DIB	l	(LONG)
;				Acc			=	Unspecified
;				Carry		=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Returns via 'RTS'
;
;	Outputs:	Acc			=	0
;				Carry		=	0
;	or
;				Acc			=	Error
;				Carry		=	1
;
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Errors:		See Spec.
;
;*******************************************************
			
				EXPORT	control
control			PROC
										;
										; Check to see if this is a set Config call.
										; If so, then don't worry yet about ONLINE
										; or REMOVABLE.
										;
				lda		<cont_code
				cmp		#$0003
				beq		@control
										;
										; Is the device Removable?
										;
				ldy		#dib.dvcchar

				lda		[dib_ptr],y
				and		#removable
				beq		@online			;No.
										;
										; This device is removable.  Now we
										; need to check to see if the unit
										; has gone offline, (then we need to
										; report that to the OS) or if the
										; unit has come back online (Rebuild
										; the DIBs).
										;
				jsr		unit_state
				beq		@online			;**** test Code ****
				bit		|un_formatted	;**** test Code ****

				bpl		@sec_out		;**** test Code ****
;				bmi		@rts_out
										;
										; Check to see if this is a Device Specific
										; Status call.  If so, then don't worry
										; about it being Offline
										;
@online			lda		<cont_code
				bmi		@control
										;
										; Is the device online?
										;
				ldy		#dib.dvcflag

				lda		[dib_ptr],y
				and		#dvc_online
				bne		@control		;Yes.
										;
										; Device is currently offline.
										;
				lda		#drvr_off_line
@sec_out		sec
@rts_out		rts
										;
										; Zero out the Data Chaining Flag
										;
@control		stz		|uses_dc
										;
										; Clear transfer count.
										;
				lda		#null
				ldy		#dib.trx_len
				sta		[dib_ptr],y
				ldy		#dib.trx_len+2
				sta		[dib_ptr],y
										;
										; Entry to the Control Call Filter.
										; This filter acts as a mini driver.
										; It examines the Control Code sent
										; and calls the appropriate routines.
										; If the Command is $8000 or greater,
										; then it will be routed to the device
										; specific section.
										;
				lda		<cont_code
				bmi		@do_dvc_spec	;Device Specific Code.
										;
										; Check the range of the command.
										;
				cmp		#max_c_cmd+1
				bge		@error
										;
										; Convert to an index
										;
				asl		a
				tax
				jsr		(@ncmd_tbl,x)
				rts
										;
										; Normal Command Table.
										;
@ncmd_tbl		dc.w	reset_dvc		;Coded
				dc.w	format_dvc		;Coded
				dc.w	eject			;Coded
				dc.w	s_config_parms	;Coded Temp
				dc.w	s_wait_mode		;Coded
				dc.w	format_opt		;Coded
				dc.w	assign_part
				dc.w	arm_signal		;Coded & Tested
				dc.w	disarm_sig		;Coded & Tested
				dc.w	set_p_map		;Coded & Tested
										;
										; Bad Command Error.
										;
@error			lda		#drvr_bad_req
				sec
				rts
										;
										; Device Specific Code handling
										; starts here.
										;
@do_dvc_spec
;-------------------------------------------------------------------------------

				IF			scsi_dtype = direct_acc	THEN

				cmp		#$F000
				blt		@do_scsi_cmd
				and		#$00ff
				cmp		#max_config_cmd+1
				bge		@error
										;
										; Convert to an index
										;
				asl		a
				tax
				jsr		(@c_cmd_tbl,x)
				rts
										;
										; Config Command Table.
										;
@c_cmd_tbl		dc.w	sdp				;Coded (Set Disk Parms)
				dc.w	svp				;Coded (Set Volume Parms)

@do_scsi_cmd

				ENDIF

;-------------------------------------------------------------------------------

										;
										; Check version of data structure
										;
				stz		@chk_zero		;Precondition the flag to no check
				lda		[buff_ptr]
				beq		@version_0
				cmp		#$0001
				bne		@error
										;
										; Version 1.  Preserve the data pointer
										; currently used in the DIB and replace
										; it with a pointer to the USER supplied
										; Data Chaining instructions.
										;
				clc
				ldy		#dib.trx_ptr
				lda		[dib_ptr],y
				sta		|dib_data_struct

				lda		<buff_ptr
				adc		#ds.DCcode		;Offset to first D.C. Data
				sta		[dib_ptr],y

				ldy		#dib.trx_ptr+2
				lda		[dib_ptr],y
				sta		|dib_data_struct+2

				lda		<buff_ptr+2
				adc		#^ds.DCcode
				sta		[dib_ptr],y
										;
										; Set flag to indicate that D.C. Commands
										; were used and that we need to restore
										; the pointer in the DIB to the normal
										; data descriptor.  Also set the flag to
										; indicate that we need to check the first
										; buffer pointer for Zero.
										;
				dec		|uses_dc
				dec		@chk_zero
										;
										; Do the rest normally and check the above
										; flag later.
										;
@version_0		clc
				lda		<buff_ptr
				adc		#$0002
				sta		<scsi_mdrvr

				lda		<buff_ptr+2
				adc		#null
				sta		<scsi_mdrvr+2
				
				ldy		#$000C
				lda		[scsi_mdrvr],y
				sta		<buff_ptr
				ldy		#$000C+2
				lda		[scsi_mdrvr],y
				sta		<buff_ptr+2
										;
										; Check First Buffer for $00000000
										;
				ora		<buff_ptr
				bne		@DH_Branch
				lda		@chk_zero
				bne		@error
										;
										; Call Main Driver
										;
@DH_Branch		lda		#scsit_cont
				sta		|call_type
				jsr		|main_drvr
				bcs		@exit
										;
										; Save transfer count.
										;
				ldy		#dib.trx_len
				lda		[dib_ptr],y
				sta		@call_trns_cnt
				ldy		#dib.trx_len+2
				lda		[dib_ptr],y
				sta		@call_trns_cnt+2
										;
										; Check to see if we need to handle
										; a Disk Switched Event.  If not,
										; then exit.
										;
				lda		disk_switch		;= $ffff
				bpl		@exit
										;
										; Don't Trash the Volumes.
										;
				jsr		set_disk_sw		;DISK_SW for each Linked DIB.
				jsr		rebld_dibs		;Rebuild DIBs.
				lda		#null
				clc
										;
										; Restore Direct Page Values.
										;
@exit			pha
				php
										;
										; Check the D.C. Flag
										;
				lda		|uses_dc
				beq		@set_our_zp

				ldy		#dib.trx_ptr
				lda		|dib_data_struct
				sta		[dib_ptr],y

				ldy		#dib.trx_ptr+2
				lda		|dib_data_struct+2
				sta		[dib_ptr],y
				
				stz		|uses_dc		;Reset Flag

@set_our_zp		jsr		set_our_dp
										;
										; Set transfer count.
										;
				lda		@call_trns_cnt
				sta		<trans_cnt
				lda		@call_trns_cnt+2
				sta		<trans_cnt+2

;-------------------------------------------------------------------------------

				IF			cache_blks = true	THEN

										;
										; If it is a Data Call and has a timer
										; that is adjusted by the block count,
										; then this call could cause the cache
										; to be in-validated.
										;
				lda		|trans_flag
				and		#scsit_data++\	;Is it a data call
						scsic_tout++\	;with a block count
						scsit_cont		;Writing data?
				cmp		#scsit_data++\
						scsic_tout++\
						scsit_cont
				bne		@no_write		;No.
				jsr		ko_cache		;Yes. Kill the blocks.

				ENDIF

;-------------------------------------------------------------------------------

										;
										; Exit.
										;
@no_write		plp
				pla
				rts
										;
										; Data Area.
										;
@call_trns_cnt	dc.l	null			;Transfer count befor we steped on it.
@chk_zero		dc.w	null			;Check first DCMove Flag.

				ENDP

				EJECT
			
;*******************************************************
;
;	This Control Call is used to reset a particular
;	device to it's default settings.  A Device Driver
;	should configure itself based on the contents of the
;	drivers configuration parameter list.  This call
;	should reset any media variables that were modified
;	through a Set_Format_Options call.
;
;	Called via 'JSR'
;
;	Inputs:		[dib_ptr]	=	Target DIB	l	(LONG)
;				Acc			=	Unspecified
;				Carry		=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Returns via 'RTS'
;
;	Outputs:	Acc			=	0
;				Carry		=	0
;	or
;				Acc			=	Error
;				Carry		=	1
;
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Errors:		See Spec.
;
;*******************************************************
			
				EXPORT	reset_dvc
reset_dvc		PROC
										;
										; Issue a REeZero Unit Call to the device.
										;
										; Set Main Driver Pointer to
										; our data for the command.
										;
				lda		#cmd_$8001
				sta		<scsi_mdrvr
				lda		#^cmd_$8001
				sta		<scsi_mdrvr+2
										;
										; Call Main Driver
										;
				lda		#scsit_cont
				sta		|call_type
				jsr		|main_drvr
										;
										; Update Transfer Count.
										;
				stz		<trans_cnt
				stz		<trans_cnt+2
										;
										; Exit No Error.
										;
				lda		#$0000
				clc
				rts
										;
										; Command Data for this call.
										;
cmd_$8001		dc.b	$01
				dcb.b	11,$00

				ENDP

				EJECT
			
;*******************************************************
;
;	The Format call will ensure that the media is
;	formatted and ready to receive data.  If the DIB
;	points to a partition then the Format call will
;	return no error while taking no action (If it is
;	partitioned, then it must have been formatted or the
;	partition map could not have been written.  Right?).
;
;	Called via 'JSR'
;
;	Inputs:		[dib_ptr]	=	Target DIB	l	(LONG)
;				Acc			=	Unspecified
;				Carry		=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Returns via 'RTS'
;
;	Outputs:	Acc			=	0
;				Carry		=	0
;	or
;				Acc			=	Error
;				Carry		=	1
;
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Errors:		See Spec.
;
;*******************************************************
			
				EXPORT	format_dvc
format_dvc		PROC

;-------------------------------------------------------------------------------

				IF		character_dvc = true	THEN
										;
										; It's a character device and
										; the Acc is zero by virtue of
										; the missed branch.
										;
				stz		<trans_cnt
				stz		<trans_cnt+2
				lda		#null
				clc
				rts

				ENDIF

;-------------------------------------------------------------------------------

				IF			scsi_dtype = apple_cd	THEN
										;
										; If the device is a CD_ROM, then
										; it is write protected.
										;
				stz		<trans_cnt
				stz		<trans_cnt+2
				lda		#drvr_wrt_prot
				sec
				rts

				ENDIF

;-------------------------------------------------------------------------------

				IF			scsi_dtype = mcd_40	THEN

										;
										; Is the device Write Enabled?
										;
				ldy		#dib.dvcchar
				lda		[dib_ptr],y
				and		#write_allow
				beq		@write_protect
										;
										; Set Format Parm Pointer.
										;
				lda		#@format_p
				sta		<scsi_mdrvr
				lda		#^@format_p
				sta		<scsi_mdrvr+2
										;
										; Set our own buffer pointer
										; for this call.
										;
				lda		#format_data
				sta		<buff_ptr
				lda		#^format_data
				sta		<buff_ptr+2
										;
										; Set our own request count
										; for this call.
										;
				stz		<rqst_cnt
				stz		<rqst_cnt+2
										;
										; It's a Control Call.
										;
				lda		#scsit_cont
				sta		|call_type
										;
										; Set Internal Command Flag
										;
				dec		|internal
										;
										; Issue the Call
										;
				jsr		|main_drvr

				pha
				php

@test_loop		jsr		|test_unit_rdy
				bcc		@fmt_done
				cmp		#$FE08
				beq		@test_loop
				cmp		#$FE02
				bne		@test_loop
				bra		@tape_io_error

@fmt_done		plp
				pla

				rts
										;
										; Return an I/O Error
										;
@tape_io_error	plp
				pla

				lda		#drvr_io
				sec
				rts
										;
										; Return a Write Protected Error
										;
@write_protect	lda		#drvr_wrt_prot
				sec
				rts
										;
										; FORMAT Command Packet
										;
@format_p		dc.b	$04				;Command Number
				dc.b	$00				;Vendor Unique
				dc.b	$00				;Reserved
				dc.b	$00				;SCSI Interleave (MSB)
@interleave		dc.b	interleave		;SCSI Interleave (LSB)
				dcb.b	6,$00			;Reserved

				ENDIF

;-------------------------------------------------------------------------------

				IF			scsi_dtype = direct_acc	THEN
										;
										; It's a block device.  But is
										; it partitioned?  If it has a
										; zero start block then there is
										; no partition.
										;
				stz		@error			;Set to No Error.
				ldy		#dib.start_blk
				lda		[dib_ptr],y
				ldy		#dib.start_blk+2
				ora		[dib_ptr],y
				beq		@over
										;
										; Well, it is a partition.  But is it
										; the only partition.  By this, I mean,
										; is it a disk with a partition map
										; containing only two entries, one for
										; the partition map and the other for
										; a single volume?
										;
										; First check if this is the first or
										; second entry in the Partition Map.
										;
				ldy		#dib.part_blk
				lda		[dib_ptr],y
				xba
				cmp		#$0003
				bge		@do_part_fmt	;Past the second entry.  Do as if multi
										;partition.
										;
										; Is it linked?  Let's see.
										;
				ldy		#dib.dvcchar
				lda		[dib_ptr],y
				and		#linked_dvc
				beq		@over			;Not linked. Must be only one.

@do_part_fmt	jsr		trash_volume	;Trash this volume only.
				jmp		@clean_exit		;Sorry.  Not the only volume
										;
										; Well there is no getting around
										; it.  We need to issue a format
										; call to this device.
										;
										; Setup from last format options call
										;
@over			lda		|current_fmt
				dec		a
				asl		a
				asl		a
				asl		a
				asl		a
				tax

				ldy		#dib.blksize
				lda		|opt1_blk_siz,x
				sta		[dib_ptr],y
				xba
				sta		@blk_size+2

				lda		|opt1_blk_cnt,x
				sta		|t_dvc_blocks

				lda		|opt1_blk_cnt+2,x
				sta		|t_dvc_blocks+2

				stz		@blk_size
				shortm
				lda		opt1_interleave,x
				sta		@interleave
				longm
										;
										; Preserve the Current Direct
										; Page values stored in the
										; buff_ptr and rqst_cnt fields.
										;
				pei		<buff_ptr
				pei		<buff_ptr+2
				pei		<rqst_cnt
				pei		<rqst_cnt+2
										;
										; Set Format Parm Pointer.
										;
				lda		#@format_p
				sta		<scsi_mdrvr
				lda		#^@format_p
				sta		<scsi_mdrvr+2
										;
										; Set our own buffer pointer
										; for this call.
										;
				lda		#format_data
				sta		<buff_ptr
				lda		#^format_data
				sta		<buff_ptr+2
										;
										; Set our own request count
										; for this call.
										;
				stz		<rqst_cnt
				stz		<rqst_cnt+2
										;
										; It's a Control Call.
										;
				lda		#scsit_cont
				sta		|call_type
										;
										; Set Internal Command Flag
										;
				dec		|internal
										;
										; Issue the Call
										;
				jsr		|main_drvr
				bcc		@rebuild_dib
										;
										; Save error code
										;
				sta		@error
										;
										; Rebuild the DIB.
										;
@rebuild_dib	jsr		rebld_dibs
										;
										; Restore the Direct Page Values.
										;
@return_dp		pla
				sta		<rqst_cnt+2
				pla
				sta		<rqst_cnt
				pla
				sta		<buff_ptr+2
				pla
				sta		<buff_ptr
										;
										; Restore the Acc result.
										;
@clean_exit		jsr		set_disk_sw
				lda		@error
				and		#$7FFF
				cmp		#$7E00
				bge		@io_error
				cmp		#$0001
				rts
										;
										; Some kind of I/O Error.
										;
@io_error		lda		#drvr_io
				rts
										;
										; Data for this call
										;
@error			dc.w	null
										;
										; MODE SELECT Command Packet
										;
@mode_select	dc.b	$15				;Command Number
				dc.b	$00				;Vendor Unique
				dc.b	$00				;Reserved
				dc.b	$00				;Reserved
				dc.b	$00				;Resolved by Main Driver
				dcb.b	6,$00			;Reserved
										;
										; MODE SELECT Data
										;
@mode_data		dc.b	$00				;Command Number
				dc.b	$00				;Reserved
				dc.b	$00				;Reserved
				dc.b	$08				;Length of extension
				dc.b	$00				;Block Count (MSB)
				dc.b	$00				;Block Count
				dc.b	$00				;Block Count
				dc.b	$00				;Block Count (LSB)
@blk_size		dc.b	$00				;Block Size (MSB)
				dc.b	$00				;Block Size
				dc.b	$02				;Block Size
				dc.b	$00				;Block Size (LSB)
										;
										; FORMAT Command Packet
										;
@format_p		dc.b	$04				;Command Number
				dc.b	$00				;Vendor Unique
				dc.b	$00				;Reserved
				dc.b	$00				;SCSI Interleave (MSB)
@interleave		dc.b	interleave		;SCSI Interleave (LSB)
				dcb.b	6,$00			;Reserved

				ENDIF

;-------------------------------------------------------------------------------

										;
										; Bad Parm Error
										;
@bad_parm		lda		#drvr_bad_parm
				sec
				rts

				ENDP

				EJECT
			
;*******************************************************
;
;	The EJECT command is used to cause the target to
;	eject the currently mounted device.  This could be a
;	CD Device, Tape Drive or Removable hard disk.  The
;	first thing that we will check is to see if the
;	removable bit is set.  It not then a DRVR_BAD_CODE
;	error will be returned.  Otherwise the call will be
;	sent to the device.  Any error, if any at all, will
;	be returned to the caller of this routine.
;
;	Called via 'JSR'
;
;	Inputs:		[dib_ptr]	=	Target DIB	l	(LONG)
;				Acc			=	Unspecified
;				Carry		=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Returns via 'RTS'
;
;	Outputs:	Acc			=	0
;				Carry		=	0
;	or
;				Acc			=	Error
;				Carry		=	1
;
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Errors:		See Spec.
;
;*******************************************************
			
				EXPORT	eject
eject			PROC

;-------------------------------------------------------------------------------

				IF			block_dvc = true\
				AND			character_dvc = false		THEN
										;
										; Verify request count.  Should be
										; zero
										;
				clc
				lda		<rqst_cnt
				bne		@bad_parm
										;
										; Check to see if it's removable.  If it
										; is then we will only mark it as offline,
										; no EJECT will be attempted.
										;
				ldy		#dib.dvcchar
				lda		[dib_ptr],y
				and		#removable
				clc
				beq		@mark_offline	;Carry Clear says do Switch
										;
										; Is this device linked to other
										; active devices?
										;
				jsr		chk_lnk_offline
				bcs		@mark_offline	;Yes.  Skip Eject and DISK SWITCH Calls
										;
										; Issue the eject call to the device.
										;
										; Set internal command flag
										;
				dec		|internal
										;
										; Tell the Main Driver where
										; our command structure resides.
										;
				lda		#@eject
				sta		<scsi_mdrvr
				lda		#^@eject
				sta		<scsi_mdrvr+2
										;
										; Set the Call Type and Issue the
										; EJECT Command.
										;
				lda		#scsit_cont
				sta		|call_type
				jsr		|main_drvr
;				bcs		@rts
										;
										; Issue DISK_SW Call. This is only done
										;	when the media is actually EJECTed
										;	in response to this call.
										;
				jsr		set_disk_sw
										;
										; Mark this DIB as Switched and Hard
										; Offline.
										;
				lda		#dvc_hardofl++\
						dvc_switch
				clc						;Do the Switch Call
				bra		@mark_offline2
										;
										; Mark this DIB as Switched only.
										;
@mark_offline	lda		#dvc_switch
				dec		leave_switched

@mark_offline2	ldy		#dib.dvcflag
				ora		[dib_ptr],y
				and		#dvc_online--\
						$ffff
				sta		[dib_ptr],y
										;
										; Issue DISK_SW Call. This is only done when
										; carry is clear which can only happen when
										; ejecting non-removable media or when the
										; media is actually EJECTed in response to
										; this call.
										;
				bcs		@no_switch
				jsr		set_disk_sw
										;
										; Clean Exit.
										;
@no_switch		lda		#no_error
				clc
				rts
										;
										; Bad request length.
										;
@bad_parm		lda		#drvr_bad_parm
				sec
										;
										; Exit.
										;
@rts			rts

;-------------------------------------------------------------------------------

				IF		scsi_dtype = direct_acc		THEN

										;
										; Command Packet
										;
@eject 			dc.b	$1B
				dc.b	$01				;IMMED Bit Set
				dcb.b	2,$00			;Reserved
				dc.b	$02				;Normal Unload. See document.
				dcb.b	7,$00

				ENDIF					;scsi_dtype = direct_acc

;-------------------------------------------------------------------------------

				IF		scsi_dtype = apple_cd	THEN

										;
										; Command Packet
										;
@eject			dc.b	$C0
				dcb.b	11,$00

				ENDIF					;scsi_dtype = apple_cd

;-------------------------------------------------------------------------------

				IF		scsi_dtype = mcd_40	THEN

										;
										; Command Packet
										;
@eject			dc.b	$1B
				dc.b	$01				;IMMED Bit Set
				dcb.b	2,$00			;Reserved
				dc.b	$00				;Normal Unload. See document.
				dcb.b	7,$00

				ENDIF					;scsi_dtype = mcd_40

;-------------------------------------------------------------------------------

				ENDIF					;block_dvc = true

;-------------------------------------------------------------------------------

				IF			block_dvc = false\
				AND			character_dvc = true		THEN
										;
										; If the device is a Character Device,
										; then there is nothing to eject.
										;
				stz		<trans_cnt
				stz		<trans_cnt+2
				lda		#null
				clc
				rts

				ENDIF					;character_dvc = true

;-------------------------------------------------------------------------------

				ENDP

				EJECT
			
;*******************************************************
;
;	This call set the configuration parms for the
;	specified device.  The parameters are device
;	specific.  The list is preceded by a word length
;	which must be equal to the transmit count.  If not
;	then a DRVR_BAD_PARM error is returned.
;
;	Called via 'JSR'
;
;	Inputs:		[dib_ptr]	=	Target DIB	l	(LONG)
;				Acc			=	Unspecified
;				Carry		=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Returns via 'RTS'
;
;	Outputs:	Acc			=	0
;				Carry		=	0
;	or
;				Acc			=	Error
;				Carry		=	1
;
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Errors:		See Spec.
;
;*******************************************************
			
				EXPORT	s_config_parms
s_config_parms	PROC

;-------------------------------------------------------------------------------

				IF			block_dvc = true\
				AND			character_dvc = false		THEN

;-------------------------------------------------------------------------------

				IF			scsi_dtype = apple_cd	THEN
											;
											; Exit Write Protect Error.
											;
				lda		#drvr_wrt_prot
				sec
				rts

				ENDIF						;scsi_dtype = apple_cd

;-------------------------------------------------------------------------------

				IF			scsi_dtype = mcd_40	THEN
											;
											; Exit Bad Call Error.
											;
				lda		#drvr_bad_code
				sec
				rts

				ENDIF						;scsi_dtype = mcd_40

;-------------------------------------------------------------------------------

				IF			scsi_dtype = direct_acc	THEN

;				INCLUDE		'SCSI Set Config'

				lda		#null
				sta		<trans_cnt
				sta		<trans_cnt+2
				clc
				rts

				ENDIF						;scsi_dtype = direct_acc

;-------------------------------------------------------------------------------

				ELSE						;block_dvc = False

;-------------------------------------------------------------------------------

											;
											; Lie for now.  Say that we did even
											; though we didn't.
											;
				clc
				lda		<rqst_cnt			;*************************
				beq		@rts				;*************************
											;
											; Bad request length.
											;
				lda		#drvr_bad_parm
				sec
											;
											; Exit.
											;
@rts			rts

;-------------------------------------------------------------------------------

				ENDIF						;block_dvc = true

;-------------------------------------------------------------------------------

				IF			scsi_dtype = direct_acc	THEN

				INCLUDE		'SCSI Set Vol/Disk'

				ENDIF						;scsi_dtype = direct_acc

;-------------------------------------------------------------------------------


				ENDP

				EJECT
			
;*******************************************************
;
;	This call is used to set the Wait or No Wait state
;	for a character device.  If in wait mode the device
;	will wait until request count bytes have been read
;	before returning to the caller.  Block devices will
;	return no error for this call.
;
;	Called via 'JSR'
;
;	Inputs:		[dib_ptr]	=	Target DIB	l	(LONG)
;				[buff_ptr]	=	Wait flag
;								$0000	=	Wait Mode
;								$8000	=	No Wait Mode
;				Acc			=	Unspecified
;				Carry		=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Returns via 'RTS'
;
;	Outputs:	Acc			=	0
;				Carry		=	0
;	or
;				Acc			=	Error
;				Carry		=	1
;
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Errors:		See Spec.
;
;*******************************************************
			
				EXPORT	s_wait_mode
s_wait_mode		PROC
										;
										; Check the parameters list.
										; Should contain a WORD
										;
				lda		<rqst_cnt
				cmp		#$0002
				bne		@bad_parm
										;
										; Is it a block device?
										;
				ldy		#dib.dvcchar
				lda		[dib_ptr],y
				and		#blk_device
				bne		@clean_exit
										;
										; It's a character device.  Do we
										; set or clear the wait bit?
										;
@char_dvc		lda		[buff_ptr]
				beq		@set_wait		;Set the Wait Mode
				cmp		#$8000
				bne		@bad_parm
										;
										; Clear the Wait mode to No Wait.
										;
				ldy		#dib.dvcflag
				lda		[dib_ptr],y
				and		#wait_mode--\	;Generate a mask for this bit
						$ffff
										;
										; Save it and exit.
										;
				bra		@set_state
										;
										; Set Wait Mode
										;
@set_wait		ldy		#dib.dvcflag
				lda		[dib_ptr],y
				ora		#wait_mode
										;
										; Save New Mode
										;
@set_state		sta		[dib_ptr],y
				lda		#$0002
				sta		<trans_cnt
				stz		<trans_cnt+2
										;
										; Clean Exit
										;
@clean_exit		lda		#null			;Clear the Acc.
				clc
				rts
										;
										; Bad Parm Error
										;
@bad_parm		lda		#drvr_bad_parm
				sec
				rts

				ENDP

				EJECT
			
;*******************************************************
;
;	The set format options call is not supported by this
;	driver.  No error is returned unless they send a
;	transfer length > 0000.
;
;	Called via 'JSR'
;
;	Inputs:		[dib_ptr]	=	Target DIB	l	(LONG)
;				Acc			=	Unspecified
;				Carry		=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Returns via 'RTS'
;
;	Outputs:	Acc			=	0
;				Carry		=	0
;	or
;				Acc			=	Error
;				Carry		=	1
;
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Errors:		See Spec.
;
;*******************************************************
			
				EXPORT	format_opt
format_opt		PROC

;-------------------------------------------------------------------------------

				IF			block_dvc = true\
				AND			character_dvc = false		THEN

;-------------------------------------------------------------------------------

				IF			scsi_dtype = apple_cd	THEN
										;
										; If the device is a CD_ROM, then there
										; are no format options.
				stz		<trans_cnt
				stz		<trans_cnt+2
				lda		#bad_dev_number
				sec
				rts

				ENDIF					;scsi_dtype = apple_cd

;-------------------------------------------------------------------------------

				IF			scsi_dtype = mcd_40	THEN
										;
										; If the device is a Tape, then there
										; are no format options.
				stz		<trans_cnt
				stz		<trans_cnt+2
				lda		#bad_dev_number
				sec
				rts

				ENDIF					;scsi_dtype = mcd_40

;-------------------------------------------------------------------------------

				IF			scsi_dtype = direct_acc	THEN
										;
										; If we are partitioned, then no data.
										;
				ldy		#dib.dvcchar

				lda		[dib_ptr],y
				and		#linked_dvc
				beq		@no_link		;No.
				stz		<trans_cnt
				stz		<trans_cnt+2
				lda		#null
				clc
				rts
										;
										;
										; Check the count
										;
@no_link		lda		<rqst_cnt
				beq		@bad_parm
				cmp		#$0002
				bne		@bad_parm
				sta		<trans_cnt
				stz		<trans_cnt+2
										;
										; Set default Option.
										;
				lda		[buff_ptr]
				sta		current_fmt
										;
										; Exit.
										;
				lda		#null
				clc
				rts
										;
										; Bad request length.
										;
@bad_parm		lda		#drvr_bad_parm
				sec
				rts

				ENDIF					;scsi_dtype = direct_acc

;-------------------------------------------------------------------------------

				ENDIF					;block_dvc = true

;-------------------------------------------------------------------------------

				IF			block_dvc = false\
				AND			character_dvc = true		THEN
										;
										; If the device is a Character Device,
										; then there are no format options.
										;
				lda		#drvr_bad_code
				sec
				rts

				ENDIF					;character_dvc = true

;-------------------------------------------------------------------------------

				ENDP

				EJECT
			
;*******************************************************
;
;	Main Entry point to the 'Control' filter.  This
;	"Filter" is called when a Control Command comes in.
;	See the headers of the seperate sections for the
;	details of the commands.
;
;	Called via 'JSR'
;
;	Inputs:		[dib_ptr]	=	Target DIB	l	(LONG)
;				Acc			=	Unspecified
;				Carry		=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Returns via 'RTS'
;
;	Outputs:	Acc			=	0
;				Carry		=	0
;	or
;				Acc			=	Error
;				Carry		=	1
;
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Errors:		See Spec.
;
;*******************************************************
			
				EXPORT	assign_part
assign_part		PROC

;-------------------------------------------------------------------------------

				IF			block_dvc = true\
				AND			character_dvc = false		THEN

;-------------------------------------------------------------------------------

				IF			scsi_dtype = apple_cd	THEN
											;
											; Exit Write Protect Error.
											;
				lda		#drvr_wrt_prot
				sec
				rts

				ENDIF						;scsi_dtype = apple_cd

;-------------------------------------------------------------------------------

				IF			scsi_dtype = mcd_40	THEN
											;
											; Exit Bad Call Error.
											;
				lda		#drvr_bad_code
				sec
				rts

				ENDIF						;scsi_dtype = mcd_40

;-------------------------------------------------------------------------------

				IF			scsi_dtype = direct_acc	THEN

											;
											; Validate that this DIB is from
											; a Partition Map Entry.
											;
				ldy		#dib.start_blk
				lda		[dib_ptr],y
				ldy		#dib.start_blk+2
				ora		[dib_ptr],y
				bne		@over
											;
											; Not from a partition.
											;
				lda		#bad_dev_number
				sec
				rts
											;
											; Get block that contains this
											; DIB's Partition Map Entry.
											;
@over			ldy		#dib.part_blk
				lda		[dib_ptr],y
				sta		|rpm_blk_num
				sta		|wpm_blk_num
											;
											; Tell the code that we have already
											; set the Block Number and that this
											; is not a startup call.
											;
				dec		|stat_cont			;This is from a Status or Control Call
				dec		|rebuild			;And not from a startup Call
											;
											; Issue the Read PM Block Call.
											;
				jsr		|read_pm_blk
											;
											; Restore Direct Page Values.
											;
				pha
				php
				jsr		set_our_dp
				plp
				pla
				bcs		@bad_exit			;There was an error.
											;
											; Is what we read a Partition Map?
											;
				lda		|pm.Sig\
						+internal_buff
				cmp		#Part_sig
				bne		@bad_exit			;Bad Data Read.
											;
											; Set a pointer to actual text.
											;
				clc
				lda		<buff_ptr
				adc		#$0002
				sta		<scsi_zp4
				lda		<buff_ptr+2
				adc		#null
				sta		<scsi_zp4+2
											;
											; Get length of data
											;
				lda		[buff_ptr]
				cmp		#$0020+1
				bge		@bad_exit		
				tay
				tax
				dey							;16 bit mode
				dex
											;
											; Are they the same?  If so we can
											; save a block write.
											;
@cmp_loop		lda		|pm.PartType\
						+internal_buff,y
				cmp		[scsi_zp4],y
				bne		@move_new
				dey
				bpl		@cmp_loop
				bra		@all_done
											;
											; Not the same.  Replace old with
												; the new.
											;
@move_new		txa
				tay
@move_loop		lda		[scsi_zp4],y
				sta		|pm.PartType\
						+internal_buff,y
				dey
				bpl		@move_loop
											;
											; Issue the Write PM Block Call.
											;
				jsr		|write_pm_blk
											;
											; Restore Direct Page Values.
											;
				pha
				php
				jsr		set_our_dp
				plp
				pla
				bcc		@all_done			;There was no error.
											;
											; Error exit point.
											;
@bad_exit		lda		#drvr_io
				sec
				rts
											;
											; Clean Exit
											;
@all_done		lda		#no_error
				clc
				rts

				ENDIF						;scsi_dtype = direct_acc

;-------------------------------------------------------------------------------

				ENDIF						;block_dvc = true

;-------------------------------------------------------------------------------

				IF			block_dvc = false\
				AND			character_dvc = true		THEN
											;
											; If the device is a Character Device,
											; then there are no Partitions to
											; assign.
											;
				stz		<trans_cnt
				stz		<trans_cnt+2
				lda		#null
				clc
				rts

				ENDIF						;character_dvc = true

;-------------------------------------------------------------------------------

				ENDP

				EJECT
			
;*******************************************************
;
;	Entry point for the Arm Signal Drivcer Call.  This
;	call is not supported by this driver.  An error is
;	returned in all cases.
;
;	Called via 'JSR'
;
;	Inputs:		[dib_ptr]	=	Target DIB	l	(LONG)
;				Acc			=	Unspecified
;				Carry		=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Returns via 'RTS'
;
;	Outputs:	Acc			=	0
;				Carry		=	0
;	or
;				Acc			=	Error
;				Carry		=	1
;
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Errors:		See Spec.
;
;*******************************************************
			
				EXPORT	arm_signal
arm_signal		PROC

				lda		#drvr_bad_code
				sec
				rts

				ENDP

				EJECT
			
;*******************************************************
;
;	Entry point for the Disarm Signal Drivcer Call.
;	This call is not supported by this driver.  An error
;	is returned in all cases.
;
;	Called via 'JSR'
;
;	Inputs:		[dib_ptr]	=	Target DIB	l	(LONG)
;				Acc			=	Unspecified
;				Carry		=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Returns via 'RTS'
;
;	Outputs:	Acc			=	0
;				Carry		=	0
;	or
;				Acc			=	Error
;				Carry		=	1
;
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Errors:		See Spec.
;
;*******************************************************
			
				EXPORT	disarm_sig
disarm_sig		PROC

				lda		#drvr_bad_code
				sec
				rts

				ENDP

				EJECT
			
;*******************************************************
;
;	Most be the first device in a link!!!!
;
;	Entry point to the 'Set PMap' call.  This call
;	takes the information given by the caller on direct
;	page and builds the equivilent to a Write Status
;	Call to write request count bytes starting at
;	physical block number 1.  This is done by setting
;	the high bit of the partition call flag
;	'f_partition'.
;
;			Block Size				=	dib.blksize
;
;	We now Build the SCSI Main Driver Command and send
;	it.
;
;	The following will be validated by the Main Driver
;	when it builds the command. 
;
;			Request Count			=	Block Size * i
;			Block Number			=	Blk Num (No Offset)
;				This is for partitions.
;
;	After calling the Main driver and if no errors were
;	encountered, then the Transfer count will be
;	updated.
;
;	Called via 'JSR'
;
;	Inputs:		[dib_ptr]	=	Target DIB	l	(LONG)
;				Acc			=	Unspecified
;				Carry		=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Returns via 'RTS'
;
;	Outputs:	Acc			=	0
;				Carry		=	0
;	or
;				Acc			=	Error
;				Carry		=	1
;
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Errors:		See Spec.
;
;*******************************************************
			
				EXPORT	set_p_map
set_p_map		PROC

;-------------------------------------------------------------------------------

				IF			block_dvc = true\
				AND			character_dvc = false		THEN

;-------------------------------------------------------------------------------

				IF			scsi_dtype = apple_cd		THEN
											;
											; Exit Write Protect Error.
											;
				lda		#drvr_wrt_prot
				sec
				rts

				ENDIF						;scsi_dtype = apple_cd

;-------------------------------------------------------------------------------

				IF			scsi_dtype = mcd_40	THEN
											;
											; Exit No Error.
											;
				lda		#drvr_bad_code
				sec
				rts

				ENDIF						;scsi_dtype = mcd_40

;-------------------------------------------------------------------------------

				IF			scsi_dtype = direct_acc	THEN

				stz		@do_532
											;
											; Set the Block size on Direct Page.
											; It is not placed there for this call,
											; and we should not rely on it being
											; left behind by the last call.
											;
				lda		#block_size
				sta		<blk_size
											;
											; Check if first DIB in link if any.
											; If it is zero, then we are already
											; there.  If not then error out.
											;
				ldy		#dib.headptr+2
				lda		[dib_ptr],y
				ldy		#dib.headptr
				ora		[dib_ptr],y
				bne		@bad_dev_num
											;
											; Let's check the request count.  If
											; this is $00000000, then exit clean
											; with no data transfered.
											;
				lda		<rqst_cnt
				ora		<rqst_cnt+2
				bne		@cnt_non_zero
				jmp		@out_of_here
											;
											; Verify Block Size.
											;
@cnt_non_zero	ldy		#dib.blksize
				lda		[dib_ptr],y			;Block Size
				cmp		<blk_size
				bne		@chk_532

				ldy		#dib.blksize+2
				lda		[dib_ptr],y
				beq		@blk_size_ok

@bad_parm		lda		#drvr_bad_parm
				sec
				rts

@bad_dev_num	lda		#bad_dev_number
				sec
				rts
											;
											; Check for 532 byte block size
											;
@chk_532		tax

				lda		<blk_size
				cmp		#block_size
				bne		@bad_parm

				cpx		#$0214
				bne		@bad_parm
				dec		@do_532

@blk_size_ok
											;
											; Build the (Write Data)
											; Control Command $800A
				lda		#$0001				; Sent to me Low >> High.
				xba							; Send it out High >> Low.
				sta		|c_block_num
											;
											; Set Main Driver Pointer to
											; our data for the command.
											;
				lda		#cmd_$800A
				sta		<scsi_mdrvr
				lda		#^cmd_$800A
				sta		<scsi_mdrvr+2
											;
											; Set the Partition call flag
											;
				dec		|f_partition
											;
											; Call Main Driver
											;
				lda		#scsit_cont
				sta		|call_type
											;
											; Issue the call.
											;
				jsr		check_532_rw
				bcs		@rts
											;
											; Build the (Write Data) command
											; to write the Driver Descriptor
											; Map.
											;
@do_ddm			lda		#$5245				;Defined by MAC as $4552
				sta		|sense_data

				lda		#block_size
				sta		<rqst_cnt
				stz		<rqst_cnt+2
				xba
				sta		|sense_data+2		;Defined by MAC as $0200

				ldx		#$0040
@loop			stz		|sense_data+4,x
				dex
				dex
				bpl		@loop

				stz		|c_block_num
											;
											; Set our buffer pointer
											;
				lda		#sense_data
				sta		<buff_ptr
				lda		#^sense_data
				sta		<buff_ptr+2
											;
											; Set Main Driver Pointer to
											; our data for the command.
											;
				lda		#cmd_$800A
				sta		<scsi_mdrvr
				lda		#^cmd_$800A
				sta		<scsi_mdrvr+2
											;
											; Set the Partition call flag
											;
				dec		|f_partition
											;
											; Call Main Driver
											;
				lda		#scsit_cont
				sta		|call_type
											;
											; Issue the call.
											;
				jsr		check_532_rw
				bcs		@rts
											;
											; Rebuild the DIBs.
											; Trashing the Volumes.
											;
				dec		|trash_it
											;
				jsr		rebld_dibs			;Issues a DISK_SW for each rebuilt DIB.
											;
											; Reset The 'TRASH IT' Flag..
											;
				stz		|trash_it
											;
											; Restore the origonal Direct Page values.
											;
				jsr		set_our_dp
											;
											; Update Transfer Count.
											;
@out_of_here	lda		<rqst_cnt
				sta		<trans_cnt
				lda		<rqst_cnt+2
				sta		<trans_cnt+2
											;
											; Exit No Error.
											;
				lda		#$0000
				clc
@rts			rts
											;
											; Variables and storage for short call.
											;
@do_532			dc.w	null				;532 byte block flag
											;
											; Command Data for this call.
											;
cmd_$800A		dc.b	$0A
				dc.b	$00
c_block_num		dc.w	$0000
c_block_cnt		dc.b	$00
				dcb.b	7,$00

				ENDIF						;scsi_dtype = direct_acc

;-------------------------------------------------------------------------------

				ENDIF						;block_dvc = true

;-------------------------------------------------------------------------------

				IF			block_dvc = false\
				AND			character_dvc = true		THEN
											;
											; If the device is a Character Device,
											; then there are no Partitions to
											; write.
											;
				stz		<trans_cnt
				stz		<trans_cnt+2
				lda		#null
				clc
				rts

				ENDIF						;character_dvc = true

;-------------------------------------------------------------------------------

				ENDP

				EJECT
				
				END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSI Filter flush b/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSI Filter flush
new file mode 100644
index 0000000..eb22791
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSI Filter flush	
@@ -0,0 +1 @@
+
;*******************************************************
;
;	SCSI Driver 'Flush' Filter
;
;	Written by Matt Gulick.		Started June 13,1988
;
;	Copyright Apple Computer, Inc. 1988,89
;
;*******************************************************

;*******************************************************
;
;	This file contains the subroutines needed by the
;	SCSI Driver to respond to the Flush call number
;	$0007.  In a Block Device Driver this will return a
;	Driver Bad Request error and perform no function.
;	In the case of a Character device however, this will
;	need to request that the target device finalize what
;	it was doing and flush it's buffers.
;
;*******************************************************

;*******************************************************
;
;	Revision History:
;
;*******************************************************

;	June 13,	1988	File started.
;	June 20,	1988	Added Register Status in comments

				STRING		PASCAL
				BLANKS		OFF
				PAGESIZE	70
				PRINT		NOGEN
				PRINT		NOMDIR
				MACHINE		M65816

				PRINT		OFF

				INCLUDE		'scsihd.equates'
				INCLUDE		'M16.MEMORY'
				INCLUDE		'M16.UTIL'
				PRINT		ON
			
;*******************************************************
;
;	This routine is used as the Flush code for a Block
;	Device Driver.
;
;	Inputs:		None.
;
;	Outputs:	Acc			=	0
;				Carry		=	0
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	GS/OS Direct Page
;				Data Bank	=	Ours
;
;	Errors:		DRVR_BAD_REQ.
;
;*******************************************************

			EXPORT	Flush
Flush		PROC
			lda		#drvr_bad_req
			sec
			rts
			ENDP
			
			END
             	
;*******************************************************
;
;	This routine is used as the Flush code for a
;	Character Device Driver.  This code is commented out
;	so that is available to any one who uses this SCSI
;	Driver Skeleton.
;
;	Inputs:		None.
;
;	Outputs:	Acc			=	Error
;				Carry		=	Set or Clear
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	GS/OS Direct Page
;				Data Bank	=	Ours
;
;	Errors:		Device not open Error	$0023
;				For other errors see Spec.
;
;*******************************************************
;
;				EXPORT	flush
;flush			PROC
;										;
;										; Is the device online?
;										;
;				ldy		#dib.dvcflag
;
;				lda		[dib_ptr],y
;				and		#dvc_online
;				bne		@flush			;Yes.
;										;
;										; Device is currently offline.
;										;
;				lda		#drvr_off_line
;				sec
;				rts
;										;
;										; Check Open Flag
;										;
;@flush			lda		|open_flag
;				beq		@dvc_closed
;
;				Insert Your Code Here.
;
;				lda		#$0000
;				clc
;				rts
;
;@dvc_closed	lda		#$drvr_not_open
;				sec
;				rts
;
;				ENDP
;

				END

				EJECT
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSI Filter open b/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSI Filter open
new file mode 100644
index 0000000..1214f0d
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSI Filter open	
@@ -0,0 +1 @@
+
;*******************************************************
;
;	SCSI Driver 'Open' Filter
;
;	Written by Matt Gulick.		Started June 8,1988
;
;	Copyright Apple Computer, Inc. 1988,89
;
;*******************************************************

;*******************************************************
;
;	This file contains the subroutines needed by the
;	SCSI Driver to respond to the Open call number
;	$0001.  In a Block Device Driver this will return no
;	error and perform no function.  In the case of a
;	Character device however, this will need to prepare
;	the target device for Data I/O that may be sent to
;	it.
;
;*******************************************************

;*******************************************************
;
;	Revision History:
;
;*******************************************************

;	June 8,		1988	File started.
;	June 20		1988	Registers in and out are
;
;	April 11	1989	Added Character Device Code.

				STRING		PASCAL
				BLANKS		OFF
				PAGESIZE	70
				PRINT		NOGEN
				PRINT		NOMDIR
				MACHINE		M65816

				IMPORT		test_unit_rdy
				IMPORT		auto_sense_data
				IMPORT		reserve_unit

				PRINT		OFF

				INCLUDE		'scsihd.equates'
				INCLUDE		'M16.MEMORY'
				INCLUDE		'M16.UTIL'
				PRINT		ON

				EJECT

				IF			block_dvc = true\
				AND			character_dvc = false		THEN
			
;*******************************************************
;
;	This routine is used as the Open code for a Block
;	Device Driver.
;
;	Inputs:		None.
;
;	Outputs:	Acc			=	0
;				Carry		=	0
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	GS/OS Direct Page
;				Data Bank	=	Ours
;
;	Errors:		None.
;
;*******************************************************

				ENDIF

;-------------------------------------------------------------------------------

				IF			character_dvc = true\
				AND			block_dvc = false		THEN
             	
;*******************************************************
;
;	This routine is used as the Open code for a
;	Character Device Driver.  This code is commented out
;	so that is available to any one who uses this SCSI
;	Driver Skeleton.
;
;	Inputs:		None.
;
;	Outputs:	Acc			=	Error
;				Carry		=	Set or Clear
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	GS/OS Direct Page
;				Data Bank	=	Ours
;
;	Errors:		Already Open Error	$0024
;				For other errors see Spec.
;
;*******************************************************

				ENDIF

;-------------------------------------------------------------------------------

				EXPORT	open
open			PROC

;-------------------------------------------------------------------------------

				IF			block_dvc = true\
				AND			character_dvc = false		THEN
												;
												; Is the device online?
												;
				ldy		#dib.dvcflag

				lda		[dib_ptr],y
				and		#dvc_online
				bne		@open					;Yes.
												;
												; Device is currently offline.
												;
				lda		#drvr_off_line
				sec
				rts
												;
												; Return ok.
												;
@open			lda		#$0000
				clc
				rts

				ENDIF

;-------------------------------------------------------------------------------

				IF			character_dvc = true\
				AND			block_dvc = false		THEN
												;
												; Is the device online?
												;
				ldy		#dib.dvcflag

				lda		[dib_ptr],y
				and		#dvc_online
				bne		@open					;Yes.
												;
												; Device is currently offline.
												;
				lda		#drvr_off_line
				sec
				rts
												;
												; Check if Open.
												;
@open			lda		|open_flag
				bne		@alrdy_opn

;-------------------------------------------------------------------------------

				IF			scsi_dtype = scanner\
				OR			scsi_dtype = appl_laser		THEN
												;
												; It's a character device.  Prepare it
												; for operation.
												;
												; Set flag so that we will do this
												; at most 2 times for this call.
												;
@try_again		lda		#$ffff
				sta		@loop_cnt
												;
												; Is the Unit Ready for
												; communications?
												;
				jsr		|test_unit_rdy
				bcc		@its_ready				;Yes.
												;
												; No.  But why not?
												;
				lda		|auto_sense_data+\
						rqst_sens.sense_key
				and		#$00ff
				beq		@its_ready				;I quess it was only kidding.
												;
												; Is it doing somthing for sombody
												; right now?
												;
				cmp		#$0002
				bne		@check_6				;No.
												;
												; Yes it is. The Device is not yet
												; ready.
												;
@dvc_busy		lda		#drvr_busy
				sec
				rts
												;
												; Was it maybe reset or powered up
												; again?
												;
@check_6		cmp		#$0006
				beq		@handle_6				;Yes.
												;
												; No. The Device has Problems.
												;
@io_error		lda		#drvr_io
				sec
				rts
												;
												; The auto sensing should have cleared
												; this state, so lets try it again.
												; But only a second time.
												;
@handle_6		inc		@loop_cnt
				beq		@try_again
				bra		@io_error

@loop_cnt		dc.w	null					;Loop Counter.
												;
												; The Device is Ready.  Issue a
												; RESERVE UNIT Call to ensure that
												; nobody else can talk to the Scanner
												; while we have it opened.
												;
@its_ready		jsr		reserve_unit
				bcs		@io_error
												;
												; Make sure that it's block size is
												; 1 byte/block. This will make it easy
												; to get what the user requests if at
												; all possible.
												;
				

				ELSE

;-------------------------------------------------------------------------------

				Insert Your Code Here.

				ENDIF

;-------------------------------------------------------------------------------

				inc		|open_flag

				lda		#$0000
				clc
				rts

@alrdy_opn		lda		#drvr_prior_open
				sec
				rts

				ENDIF

;-------------------------------------------------------------------------------

										;
										; Internal Data Area for Open and Close.
										;
				EXPORT	open_flag
open_flag		dc.w	$0000

				ENDP

				END

				EJECT
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSI Filter read b/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSI Filter read
new file mode 100644
index 0000000..2d8f2ba
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSI Filter read	
@@ -0,0 +1 @@
+
;*******************************************************
;
;	SCSI Driver 'Read' filter.
;
;	Written by Matt Gulick.		Started June 13,1988
;
;	Copyright Apple Computer, Inc. 1988,89
;
;*******************************************************

;*******************************************************
;
;	This file contains the 'Read' filter as defined in
;	the ERS.
;
;*******************************************************

;*******************************************************
;
;	Revision History:
;
;*******************************************************

;	June 13,	1988	File started.
;	June 20,	1988	Registers in and out are

				STRING		PASCAL
				BLANKS		OFF
				PAGESIZE	70
				PRINT		NOGEN
				PRINT		NOMDIR
				MACHINE		M65816

				IMPORT		unit_state
				IMPORT		main_drvr
				IMPORT		call_type
				IMPORT		r_get_cache
				IMPORT		r_all_in_cache
				IMPORT		divend
				IMPORT		divsor
				IMPORT		result
				IMPORT		max_blk_cnt
				IMPORT		m_blk_size
				IMPORT		m_blk_cnt
				IMPORT		calc_bytes
				IMPORT		m_rslt
				IMPORT		gsos_dpage
				IMPORT		divide
				IMPORT		check_532_rw
				IMPORT		chk_play_mode
				IMPORT		auto_sense_data
				IMPORT		sense_data
				IMPORT		open_flag
				IMPORT		get_data_status
				IMPORT		internal_buff
				IMPORT		scratch0
				IMPORT		internal

				PRINT		OFF

				INCLUDE		'scsihd.equates'
				INCLUDE		'M16.MEMORY'
				INCLUDE		'M16.UTIL'
				PRINT		ON

				EJECT

				IF			block_dvc = true\
				AND			character_dvc = false		THEN
			
;*******************************************************
;
;	Main Entry point to the 'Read' filter.  This
;	"Filter" takes the information given by the caller
;	on direct page and builds the equivilent to a Read
;	Extended Status Call.  In order of appearence:
;
;			Verify that Device #	­	$0000
;			Call Number				=	$0002
;			Block Size				=	dib.blksize
;
;	We now Build the SCSI Main Driver Command and send
;	it.
;
;	The following will be validated by the Main Driver
;	when it builds the command. 
;
;			Request Count			=	Block Size * i
;			Block Number			=	Blk Num + Offset
;				This is for partitions.
;
;	After calling the Main driver and if no errors were
;	encountered, then the Transfer count will be
;	updated.
;
;	Inputs:		None.
;
;	Outputs:	Acc			=	0
;				Carry		=	0
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Errors:		See Spec.
;
;*******************************************************

				ENDIF

				IF			character_dvc = true\
				AND			block_dvc = false		THEN
			
;*******************************************************
;
;	Main Entry point to the 'Read' filter.  This
;	"Filter" takes the information given by the caller
;	on direct page and builds the equivilent to a Read
;	Extended Status Call.  In order of appearence:
;
;			Verify that Device #	­	$0000
;			Call Number				=	$0002
;			Block Size				=	$0000
;			Device Opened			=	True
;
;	We now Build the SCSI Main Driver Command and send
;	it.
;
;	After calling the Main driver and if no errors were
;	encountered, then the Transfer count will be
;	updated.
;
;	Inputs:		None.
;
;	Outputs:	Acc			=	0
;				Carry		=	0
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Errors:		See Spec.
;
;*******************************************************

				ENDIF

				EXPORT	Read
Read			PROC

;-------------------------------------------------------------------------------

				IF			block_dvc = true\
				AND			character_dvc = false		THEN

				stz		@cache
										;
										; Is the device Removable?
										;
				ldy		#dib.dvcchar

				lda		[dib_ptr],y
				and		#removable
				beq		@online			;No.
										;
										; This device is removable.  Now we
										; need to check to see if the unit
										; has gone offline, (then we need to
										; report that to the OS) or if the
										; unit has come back online (Rebuild
										; the DIBs).
										;
				jsr		unit_state
				bcs		@rts_out
										;
										; Is the device online?
										;
@online			ldy		#dib.dvcflag

				lda		[dib_ptr],y
				and		#dvc_hardofl
				bne		@off_line		;Yes.

				lda		[dib_ptr],y
				and		#dvc_online
				bne		@read			;Yes.
										;
										; Device is currently offline.
										;
@off_line		lda		#drvr_off_line
				sec
@rts_out		rts

										;
										; Preserve entry values.  This will
										; help restore the environment when
										; we exit.  To much is going on for
										; speeds sake to rely on these
										; locations.
										;
@read			lda		<rqst_cnt
				sta		@orig_rqst
				lda		<rqst_cnt+2
				sta		@orig_rqst+2
										;
										; Preserve Buffer pointer in case we
										; need to bump it.
										;
				lda		<buff_ptr
				sta		@orig_buff
				lda		<buff_ptr+2
				sta		@orig_buff+2
										;
										; Preserve starting Block Number in case
										; we need to bump it.
										;
				lda		<block_num
				sta		@orig_strt_blk
				lda		<block_num+2
				sta		@orig_strt_blk+2

;-------------------------------------------------------------------------------

				IF			scsi_dtype = apple_cd	THEN
										;
										; If the device is a CD_ROM device
										; then check to see if it is in audio
										; play mode.  If not clear the play
										; flag, otherwise set the audio play
										; flag.  This is used to prevent reads
										; while the audio tracks are playing.
										;
										; Is the device in Play Mode?
										;
				jsr		chk_play_mode

				ldy		#dib.dvcflag
				bcs		@no_play_mode

				lda		#play_mode
				ora		[dib_ptr],y
				bra		@store_play

@no_play_mode	lda		#play_mode--\
						$ffff
				and		[dib_ptr],y

@store_play		sta		[dib_ptr],y

				bcs		@read_2			;No.
										;
										; Device is Busy in PLAY MODE..
										;
				lda		#drvr_busy
				sec
				rts

@read_2
				ENDIF

;-------------------------------------------------------------------------------

										;
										; Let's check the request count.  If
										; this is $00000000, then exit clean
										; with no data transfered.
										;
				lda		<rqst_cnt
				and		#$01ff			;Cheap Check for multiple of 512
				bne		@bad_rqst_cnt
				lda		<rqst_cnt
				ora		<rqst_cnt+2
				bne		@chk_max
				jmp		@out_of_here
										;
										; Block Number is beyond the range for this disk.
										;
@out_of_range	lda		#drvr_bad_blk
				sec
				rts
										;
										; Requested Byte Count not a multiple of 512
										;
@bad_rqst_cnt	lda		#drvr_bad_cnt
				sec
				rts
										;
										; Check to see if more is being
										; requested then we can give him.
										;
@chk_max		lda		<rqst_cnt
				sta		|divend
				lda		<rqst_cnt+2
				sta		|divend+2

				lda		#block_size
				sta		|divsor

				sec
				ldy		#dib.blkcnt
				lda		[dib_ptr],y
				sbc		<block_num
				sta		|max_blk_cnt
				tax

				ldy		#dib.blkcnt+2
				lda		[dib_ptr],y
				sbc		<block_num+2
				sta		|max_blk_cnt+2

				bcc		@out_of_range
				ora		|max_blk_cnt
				beq		@out_of_range

				jsr		divide
				bcc		@dont_fix_cnt

				lda		#block_size
				sta		|m_blk_size

				lda		|max_blk_cnt
				sta		|m_blk_cnt

				lda		|max_blk_cnt+2
				sta		|m_blk_cnt+2

				jsr		calc_bytes

				lda		|m_rslt
				sta		<rqst_cnt
				sta		@orig_rqst
				lda		|m_rslt+2
				sta		<rqst_cnt+2
				sta		@orig_rqst+2

@dont_fix_cnt

;-------------------------------------------------------------------------------

				IF			scsi_dtype = direct_acc	THEN

										;
										; Verify Block Size.
										;
@cnt_non_zero	ldy		#dib.blksize
				lda		[dib_ptr],y		;Block Size
				cmp		<blk_size
				bne		@chk_532

				ldy		#dib.blksize+2
				lda		[dib_ptr],y
				beq		@blk_size_ok

@bad_parm		lda		#drvr_bad_parm
				sec
@rts_now		rts
										;
										; Check for 532 byte block size
										;
@chk_532		tax

				lda		<blk_size
				cmp		#block_size
				bne		@bad_parm

				cpx		#$0214
				beq		@no_cache
				bra		@bad_parm

				ELSE

;-------------------------------------------------------------------------------

										;
										; Verify Block Size.
										;
@cnt_non_zero	ldy		#dib.blksize
				lda		[dib_ptr],y		;Block Size
				cmp		<blk_size
				bne		@bad_parm

				ldy		#dib.blksize+2
				lda		[dib_ptr],y
				beq		@blk_size_ok

@bad_parm		lda		#drvr_bad_parm
				sec
@rts_now		rts

				ENDIF

;-------------------------------------------------------------------------------

@blk_size_ok

;-------------------------------------------------------------------------------

				IF			cache_blks = true	THEN
										;
										; Skip Cache if FST Number >$8000
										; Otherwise check to see if they are
										; all in the cache.  If not we will
										; need to issue a read call.  If they
										; are all there we will skip the read
										; and go to the post processing
										; section.
										;
				bit		<fst_num		;Force Device Access?
				bmi		@no_cache		;Yes.

				dec		@cache

				jsr		r_all_in_cache	;Are they all there?
				bcc		@all_there		;Yes.

				ENDIF

;-------------------------------------------------------------------------------

@no_cache
										;
										; Build the (Read Data) Status
										; Command $8028, and just in case
										; it is not accepted, we will also
										; build $8008.
										;
				lda		<block_num		; Sent to me Low >> High.
				xba						; I Send it out High >> Low.
				sta		|c_block_num_l+2
				sta		|c_block_num_s
				lda		<block_num+2
				xba	
				sta		|c_block_num_l
										;
										; Set Main Driver Pointer to
										; our data for the command.
										;
				lda		#cmd_$8028
				sta		<scsi_mdrvr
				lda		#^cmd_$8028
				sta		<scsi_mdrvr+2
										;
										; Call Main Driver
										;
				lda		#scsit_stat
				sta		|call_type

;-------------------------------------------------------------------------------

				IF			scsi_dtype = direct_acc	THEN
										;
										; Issue the call.
										;
				jsr		check_532_rw
				bcc		@all_there		;Everything went ok.
				cmp		#drvr_bad_code	;Was it a Bad Command?
				beq		@munge			;Yes.  Do the Munging
				brl		@crapped_out2	;No. Then get out of here.

@all_there		jmp		@completed
										;
										; At this point the extended call was not
										; excepted.  We must now issue the normal
										; version of this command.  First, we must
										; check to see if the request is within the
										; one byte block count range.  If not, we
										; will need to special process this request.
										;
										; Setup Divide routine while preserving the
										; origonal count for later.
										;
@munge			lda		@orig_rqst
				sta		@rem_rqst
				sta		|divend
				lda		@orig_rqst+2
				sta		@rem_rqst+2
				sta		|divend+2

				lda		<blk_size
				sta		|divsor

				jsr		divide
				bcs		@rts_0
										;
										; Get result in block count.  If > $80,
										; then we need to break it into multiple
										; calls.  If not, then send it as is.
										;
				lda		|result+1
				bne		@gr8er_80
				lda		|result
				dec		a
				cmp		#$0080
				blt		@issue_call
										;
										; Set the max count for a single byte block
										; count (Block size * $80).
										;
@gr8er_80		lda		<blk_size+1
				and		#$00ff
				lsr		a
				sta		<rqst_cnt+2
				lda		<blk_size-1
				and		#$ff00
				ror		a
				sta		<rqst_cnt
										;
										; Set Main Driver Pointer to
										; our data for the command.
										;
@issue_call		lda		#cmd_$8008
				sta		<scsi_mdrvr
				lda		#^cmd_$8008
				sta		<scsi_mdrvr+2
										;
										; Call Main Driver
										;
				lda		#scsit_stat
				sta		|call_type
										;
										; Issue the call.
										;
				jsr		check_532_rw
				bcc		@did_munge
				sta		@error_loc
				lda		auto_sense_data+\
						rqst_sens.sense_key
				and		#$00ff			;Checking for $03
				cmp		#$0003			;This covers $03
				bne		@craped_out
										;
										; Some kind of I/O Error.
										;
@io_error		lda		#drvr_io
				sec
				rts

@craped_out		lda		@error_loc
@crapped_out2	and		#$7FFF
				cmp		#$7E00
				bge		@io_error
				sec
@rts_0			rts

@error_loc		dc.w	null
										;
										; Check for special processing.
										;
@did_munge								;
										; Get Transfer Result and bump values
										; for the next call.
										;
				clc
				ldy		#dib.trx_rqst
				lda		[dib_ptr],y
				sta		@trans_cnt
				adc		<buff_ptr
				sta		<buff_ptr
				ldy		#dib.trx_rqst+2
				lda		[dib_ptr],y
				sta		@trans_cnt+2
				adc		<buff_ptr+2
				sta		<buff_ptr+2
										;
										; Get remaining bytes to be transfered.
										;
				sec
				lda		@rem_rqst
				sbc		@trans_cnt
				sta		@rem_rqst
				lda		@rem_rqst+2
				sbc		@trans_cnt+2
				sta		@rem_rqst+2
				ora		@rem_rqst
				beq		@done

				clc						;Cause = values to result in Negative
				lda		@rem_rqst
				sbc		<rqst_cnt
				lda		@rem_rqst+2
				sbc		<rqst_cnt+2
				bpl		@over

				lda		@rem_rqst
				sta		<rqst_cnt
				lda		@rem_rqst+2
				sta		<rqst_cnt+2
				
										;
										;*****************************************
										;* Bump Block number.  Pay close         *
										;* attention to what this comment says.  *
										;* If you don't and you change the code  *
										;* then your on your own.  This word is  *
										;* in MSB >> LSB order.  We need to add  *
										;* $100 to it.  This is done by a simple *
										;* increment.                            *
										;*****************************************
										;
@over			lda		|c_block_num_s
				clc
				xba
				adc		#$0080
				xba
				sta		|c_block_num_s

				brl		@issue_call
										;
										; Restore the environment.
										;
@done			lda		@orig_rqst
				sta		<rqst_cnt
				lda		@orig_rqst+2
				sta		<rqst_cnt+2

				lda		@orig_buff
				sta		<buff_ptr
				lda		@orig_buff+2
				sta		<buff_ptr+2


				ENDIF

;-------------------------------------------------------------------------------

				IF			scsi_dtype = apple_cd	THEN

@redo_CDread	jsr		|main_drvr
				bcc		@all_there
				cmp		#$fe11
				beq		@redo_CDread

				lda		auto_sense_data+\		;Is it an audio disk?
						rqst_sens.addnl_sens_code
				and		#$00ff			;Checking for $84, $64, or $63
				cmp		#$0063			;This cover $63
				beq		@audio_disk
				cmp		#$0064			;This cover $64
				beq		@audio_disk
				cmp		#$0084			;This cover $84
				beq		@audio_disk

				lda		#drvr_io
				sec
				rts						;There was an error!

@audio_disk		lda		#drvr_no_dev
				sec
				rts
@all_there

				ENDIF

;-------------------------------------------------------------------------------

				IF			scsi_dtype = mcd_40	THEN

				jsr		|main_drvr
				bcc		@all_there

				lda		auto_sense_data+\
						rqst_sens.addnl_sens_code
				and		#$00ff			;Checking for $04, $A7, $A8, or $B0
				cmp		#$0004			;This cover $04
				beq		@not_ready
				cmp		#$00A7			;This cover $A7
				beq		@not_ready
				cmp		#$00A8			;This cover $A8
				beq		@not_ready
				cmp		#$00B0			;This cover $B0
				beq		@not_ready

				lda		#drvr_io
				sec
				rts						;There was an error!

@not_ready		lda		#drvr_off_line
				sec
				rts

@all_there

				ENDIF

;-------------------------------------------------------------------------------

@completed

;-------------------------------------------------------------------------------

				IF			cache_blks = true	THEN
										;
										; Check force device access Flag.  If
										; set, then exit out.
										;
				bit		@cache			;Forced Device Access?
				bpl		@out_of_here	;Yes.

										;
										; Check for CACHING.
										;
				clc						;Flag to force cache if needed.
				lda		<cache_prio		;Force Cache?
				bne		@do_cache		;Yes.
				sec						;Update only.
@do_cache		jsr		r_get_cache

				ENDIF

;-------------------------------------------------------------------------------

@out_of_here
										;
										; Restore the environment and
										; update Transfer Count.
										;
				ldx		|gsos_dpage
				lda		>rqst_cnt,x
				sta		<rqst_cnt
				lda		>rqst_cnt+2,x
				sta		<rqst_cnt+2

				lda		@orig_rqst
				sta		<trans_cnt
				lda		@orig_rqst+2
				sta		<trans_cnt+2

				lda		@orig_buff
				sta		<buff_ptr
				lda		@orig_buff+2
				sta		<buff_ptr+2

				lda		@orig_strt_blk
				sta		<block_num
				lda		@orig_strt_blk+2
				sta		<block_num+2
										;
										; Exit No Error.
										;
				lda		#$0000
				clc
@rts			rts

										;
										; Variables and storage for short call.
										;
@cache			dc.w	null			;Cache flag

@orig_buff		dc.l	null			;Origonal Buffer Pointer
@orig_rqst		dc.l	null			;Origonal Request Count
@orig_strt_blk	dc.l	null			;Origonal Starting Block Number
@rem_rqst		dc.l	null			;Number of bytes remaining
@trans_cnt		dc.l	null			;number of bytes transfered by device
										;this time
										;
										; Command Data for this call.
										;
cmd_$8028		dc.b	$28
				dc.b	$00
c_block_num_l	dc.l	$00000000
c_block_cnt_l	dcb.b	3,$00
				dcb.b	7,$00
										;
										; Command Data for this call.
										;
cmd_$8008		dc.b	$08
				dc.b	$00
c_block_num_s	dc.w	$0000
c_block_cnt_s	dc.b	$00
				dcb.b	7,$00

				ENDIF

;-------------------------------------------------------------------------------

				IF			character_dvc = true\
				AND			block_dvc = false		THEN

											;
											; Check to see if the Device is Opened.
											;
				lda		|open_flag
				beq		@not_open
											;
											; Is the device online?
											;
@open
				ldy		#dib.dvcflag

				lda		[dib_ptr],y
				and		#dvc_hardofl
				bne		@off_line			;Yes.

				lda		[dib_ptr],y
				and		#dvc_online
				bne		@read				;Yes.
											;
											; Device is currently offline.
											;
@off_line		lda		#drvr_off_line
				sec
@rts_out		rts
											;
											; Device is not Opened.
											;
@not_open		lda		#drvr_not_open
				sec
				rts

@read

;-------------------------------------------------------------------------------

				IF			scsi_dtype = scanner	THEN

											;
											; Save Requested amount for later.
											;
				lda		<rqst_cnt
				sta		@t_rqst_cnt			;Total Request Count (LOW)
				sta		@r_rqst_cnt			;Remaining Request Count (LOW)
				lda		<rqst_cnt+2
				sta		@t_rqst_cnt+2		;Total Request Count (HIGH)
				sta		@r_rqst_cnt+2		;Remaining Request Count (HIGH)

				lda		<buff_ptr
				sta		@orig_buffer
				lda		<buff_ptr+2
				sta		@orig_buffer+2

											;
											; Clear out Total Data Transfered Area.
											;
				stz		@t_transfered
				stz		@t_transfered+2
											;
											; Check to see if there is data to be had.
											;
@wait_loop		jsr		|get_data_status
				bcs		@io_error
				lda		|gds.data_avail\
						+sense_data
				ora		|gds.data_avail\
						+sense_data\
						+1
				beq		@wait_loop
				bra		@have_data
											;
											; Return an I/O Error.
											;
@io_error		lda		#drvr_io
				sec
				rts
											;
											; We have Data.  We need to check to see
											; if this is enough to give the user what
											; he requested.
											;
@have_data		stz		@enough_data

				lda		|gds.data_avail\	;Data is in High -> Low format.
						+sense_data\
						+1
				xba
				sta		|scratch0

				lda		|gds.data_avail\
						+sense_data\
						-1
				xba
				and		#$00ff
				sta		|scratch0+2

				sec
				lda		@r_rqst_cnt
				sbc		|scratch0
				sta		@stuff

				lda		@r_rqst_cnt+2
				sbc		|scratch0+2
											;
											; Was the request count < than what is
											; available in the scanner?  If so then
											; we will return request count bytes only.
											;
											; Were They equal?
											;
				blt		@do_rqst_cnt		;Yes.
				ora		@stuff
				beq		@do_rqst_cnt		;Yes.
											;
											; Well, it would apear that the request
											; count is > then what is available. We
											; will go ahead and get what is there
											; and then we will  check the wait flag.
											; If we are in wait state, then we will
											; loop around until we are able to get
											; what the user has requested. If we are
											; not in wait state, then we will exit
											; after the read.
											;
				ldx		|scratch0
				ldy		|scratch0+2

				sec
				lda		@r_rqst_cnt
				sbc		|scratch0
				sta		@r_rqst_cnt
				lda		@r_rqst_cnt+2
				sbc		|scratch0+2
				sta		@r_rqst_cnt+2

				dec		@enough_data
				bra		@do_read

@do_rqst_cnt	ldx		@r_rqst_cnt
				ldy		@r_rqst_cnt+2
				stz		@r_rqst_cnt
				stz		@r_rqst_cnt+2
											;
											; Set our Request Count for this call.
											;
@do_read		stx		<rqst_cnt
				sty		<rqst_cnt+2
											;
											; Set Main Driver Pointer to our data for the
											; command.
											;
				lda		#cmd_$8028
				sta		<scsi_mdrvr
				lda		#^cmd_$8028
				sta		<scsi_mdrvr+2
											;
											; It's a Status Call.
											;
				lda		#scsit_stat
				sta		|call_type
											;
											; Set Internal Command Flag
											;
				dec		|internal
											;
											; Issue the call.
											;
				jsr		|main_drvr
											;
											; Save transfer count.
											;
				clc
				ldy		#dib.trx_len
				lda		[dib_ptr],y
				adc		@t_transfered
				sta		@t_transfered
				ldy		#dib.trx_len+2
				lda		[dib_ptr],y
				adc		@t_transfered+2
				sta		@t_transfered+2
											;
											; Was there enough data?
											;
				lda		@enough_data
				beq		@no_wait			;Yes.
											;
											; Are we in WAIT Mode?
											;
				ldy		#dib.dvcflag
				lda		[dib_ptr],y
				and		#wait_mode
				beq		@no_wait			;No.
											;
											; Bump Buffer Pointer
											;
				clc
				ldy		#dib.trx_len
				lda		[dib_ptr],y
				adc		<buff_ptr
				sta		<buff_ptr
				ldy		#dib.trx_len+2
				lda		[dib_ptr],y
				adc		<buff_ptr+2
				sta		<buff_ptr+2
				
				jmp		@wait_loop			;Yes.
											;
											; Update transfer count.
											;
@no_wait		lda		@orig_buffer
				sta		<buff_ptr
				lda		@orig_buffer+2
				sta		<buff_ptr+2

				lda		@t_transfered
				sta		<trans_cnt
				lda		@t_transfered+2
				sta		<trans_cnt+2
											;
											; Clean Exit.
											;
				lda		#$0000
				clc
				rts
										
											; 
											; Data Area.
											;
@orig_buffer	dc.l	null				;Origonal Buffer Pointer
@t_rqst_cnt		dc.l	null				;TOTAL REQUEST COUNT
@r_rqst_cnt		dc.l	null				;REMAINING REQUEST COUNT
@t_transfered	dc.l	null				;AMOUNT ACTUALLY TRANSFERED
@enough_data	dc.w	null				;Is there enough data flag.
@stuff			dc.w	null				;Temporary Storage
											;
											; Command Description.
											;
cmd_$8028		dc.b	$28
rel_adr			dc.b	null				;Relative Address Bit is bit 0
t_data_type		dc.b	null				;Transfer Data Type
				dc.b	null				;Reserved
t_id			dc.w	null				;Transfer ID
t_length		dcb.b	3,null				;Transfer Length
control			dc.b	null				;Control Byte

				ENDIF

;-------------------------------------------------------------------------------

				ENDIF

;-------------------------------------------------------------------------------


				ENDP

				EJECT

				END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSI Filter shutdown b/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSI Filter shutdown
new file mode 100644
index 0000000..f67a0a3
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSI Filter shutdown	
@@ -0,0 +1 @@
+
;*******************************************************
;
;	SCSI Driver 'Shutdown' filter.
;
;	Written by Matt Gulick.		Started August 9,1988
;
;	Copyright Apple Computer, Inc. 1988,89
;
;*******************************************************

;*******************************************************
;
;	This file contains the 'Shutdown' filter as defined
;	in the ERS.
;
;*******************************************************

;*******************************************************
;
;	Revision History:
;
;*******************************************************
;
;	Aug 9,		1988	File started.
;	Mar	8,		1989	Modified to support Warm/Cold
;						Shutdown.

				STRING		PASCAL
				BLANKS		OFF
				PAGESIZE	70
				PRINT		NOGEN
				PRINT		NOMDIR
				MACHINE		M65816

				IMPORT		direct_page
				IMPORT		default_dib
				IMPORT		tot_dib_cnt
				IMPORT		active_starts
				IMPORT		stop_unit

				PRINT		OFF

				INCLUDE		'scsihd.equates'
				INCLUDE		'M16.MEMORY'
				INCLUDE		'M16.UTIL'
				PRINT		ON

				EJECT
			
;*******************************************************
;
;	Main Entry point to the 'Shutdown' filter.  This
;	"Filter" is called when a Device is no longer
;	desired in the tables.  The following code segment
;	first checks to see if the DIB being shut down is
;	the default dib (it will only be shutdown durring
;	startup).  If it is the default dib we will do
;	nothing and exit with no error.  If on the other
;	hand it is a valid DIB, we will clear some key
;	fields within the dib and then we will alter the
;	links to skip this DIB, then we update a field in the
;	first DIB of this memory segment.  This count tells
;	how many active dibs there are in that segment.  If
;	this reaches zero we will then dispose this handle
;	because it is unused.  If we later need space to
;	bring new devices online and we don't have the space,
;	we'll get it at that time.  If on exit there are
;	still any active dibs that use this code segment then
;	a DRVR_BUSY error will be returned.  If no DIBs are
;	active then no error will be returned.
;
;	Inputs:		[dib_ptr]	=	Last DIB built		(LONG)
;				Acc			=	Unspecified
;				Carry		=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Outputs:	Acc			=	DRVR_BUSY
;				Carry		=	1
;						unless we have no more dibs then
;				Acc			=	0
;				Carry		=	0
;
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	GS/OS Direct Page
;				Data Bank	=	Ours
;
;	Errors:		See Spec.
;
;*******************************************************

				EXPORT	shutdown
shutdown		PROC
											;
											; Check to see if this is for the
											; 'default_dib'.  If it is, then we
											; need to exit with a DRVR_BUSY Error.
											;
				lda		<dib_ptr
				cmp		#default_dib
				bne		@real_dib
				lda		<dib_ptr+2
				cmp		#^default_dib
				bne		@real_dib
											;
											; Return a DRVR BUSY error and take
											; no action.
											;
				lda		#drvr_busy
				sec
				rts

@real_dib

;-------------------------------------------------------------------------------

				IF		warm_ss_suprt = true		THEN

											;
											; It's a real DIB.  Is it a COLD
											; SHUTDOWN?
											;
				lda		>warm_cold_flag
				and		#$0001
				beq		@do_cold			;It's Cold
											;
											; Yeah, so it's a warm shutdown.  But
											; does this device know what that
											; means?  We'll see!
											;
				ldy		#dib.dvcchar
				lda		[dib_ptr],y
				and		#restartable
				beq		@do_cold			;Not restartable.
											;
											; Mark as OFFLINE and Relaxing
											;
				ldy		#dib.dvcflag
				lda		[dib_ptr],y
				and		#dvc_online--\
						$ffff
				ora		#relaxing
				sta		[dib_ptr],y
											;
											; Is the device removable?
											;
;				ldy		#dib.dvcchar
;				lda		[dib_ptr],y
;				and		#removable
;				beq		@continue			;Not removable.
											;
											; Reinitialise DIB Device Number to
											; zero.
											;
				lda		#null
				ldy		#dib.devnum
				sta		[dib_ptr],y
											;
											; Do the Head and Forward links also.
											;
				ldy		#dib.headlnk
				sta		[dib_ptr],y

				ldy		#dib.fdvclnk
				sta		[dib_ptr],y
											;
											; Get out of here updating only
											; the active DIB count not the
											; total DIB Count.
											;
@continue		jmp		@update_acnt

 				ENDIF

;-------------------------------------------------------------------------------

											;
											; It's a real DIB.  Issue a $1B
											; START/STOP Command.  Ignor all
											; errors, not all devices support
											; this optional command.
											;
@do_cold		jsr		stop_unit
											;
											; Set Device to Default.
											;
				ldy		#dib.dvcflag
				lda		#wait_mode++\
						cold_dib
				sta		[dib_ptr],y
											;
											; Shut it down.  To do this we clear
											; the DIB Device Number.
											;
				ldy		#dib.devnum
				lda		[dib_ptr],y
				sta		@this_device		;Save for a while
				lda		#null
				sta		[dib_ptr],y
											;
											; Dec Device count for this memory
											; segment.
											;
				ldy		#dib.handle			;Set up to deref the handle to find
				lda		[dib_ptr],y			;where this memory segment starts.
				sta		<scsi_zp0
				sta		|@deref_handle		;Save in case we dispose of it.
				ldy		#dib.handle+2
				lda		[dib_ptr],y
				sta		<scsi_zp0+2
				sta		|@deref_handle+2
											;
											; Deref the Handle.
											;
				ldy		#$0002
				lda		[scsi_zp0]
				tax
				lda		[scsi_zp0],y
				sta		scsi_zp0+2
				stx		scsi_zp0
											;
											; Dec the count.  If now = zero then
											; dispose of this handle.
											;
				ldy		#dib.mem_dib_cnt
				lda		[scsi_zp0],y
				dec		a
				sta		[scsi_zp0],y

				bne		@chk_links			;Not zero.  Update link if it exists.
											;
											; We have emptied this memory segment.
											; We now need to deallocate this
											; memory segment.
											;
				ldy		#$0002
				pushword |@deref_handle+2
				pushword |@deref_handle
				_disposehandle					
											;
											; Find location of previous DIB in
											; linked list.
											;
											; Start at the default DIB.
											;
				lda		#default_dib
				sta		<prev_dib
				lda		#^default_dib
				sta		<prev_dib+2
											;
											; Does this DIB point to the
											; requseted DIB?
											;
				ldy		#dib.linkptr+2

@prev_loop		lda		[prev_dib],y
				tax							;Save value for later

				lda		[prev_dib]			;Do they match?
				cmp		<dib_ptr
				bne		@advnc_loop			;No.
				cpx		<dib_ptr+2
				beq		@set_prev			;Yes. Set new links.

@advnc_loop		stx		<prev_dib+2			;No.  Advance to the next DIB.
				sta		<prev_dib
				ora		<prev_dib+2
				bne		@prev_loop
				bra		@chk_links
											;
											; Set previous DIBs link pointer
											; to the DIB that follws the one
											; being shutdown.
											;
@set_prev		lda		[dib_ptr]
				sta		[prev_dib]
				lda		[dib_ptr],y
				sta		[prev_dib],y
											;
											; We must now check to see if this DIB
											; that was shutdown is linked to any
											; other DIBs.
											;
@chk_links		ldy		#dib.dvcchar
				lda		[dib_ptr],y
				and		#linked_dvc
				beq		@update_tcnt		;No it is not linked.
											;
											; It is linked. First we need to go to
											; the head device if this is not it. If
											; it is the head, then we need to do
											; something completly different.
											;
				clc
				ldy		#dib.headptr
				lda		[dib_ptr],y
				ldy		#dib.headptr+2
				ora		[dib_ptr],y
				beq		@at_head

				lda		[dib_ptr],y
				sta		<scsi_zp0+2
				ldy		#dib.headptr
				lda		[dib_ptr],y
				sta		<scsi_zp0
				bra		@chk_lnk_loop

@at_head		lda		<dib_ptr
				sta		<scsi_zp0
				lda		<dib_ptr+2
				sta		<scsi_zp0+2
				
@chk_lnk_loop	ldy		#dib.fdvclnk
				lda		[scsi_zp0],y
				beq		@update_tcnt

				cmp		@this_device
				beq		@update_link

				ldy		#dib.fdvcptr
				lda		[scsi_zp0],y
				tax
				ldy		#dib.fdvcptr+2
				lda		[scsi_zp0],y
				sta		<scsi_zp0+2
				stx		<scsi_zp0
				bra		@chk_lnk_loop

@update_link	ldy		#dib.headptr
				lda		[dib_ptr],y
				sta		[scsi_zp0],y
				ldy		#dib.headptr+2
				lda		[dib_ptr],y
				sta		[scsi_zp0],y

				ldy		#dib.fdvcptr
				lda		[dib_ptr],y
				sta		[scsi_zp0],y
				ldy		#dib.fdvcptr+2
				lda		[dib_ptr],y
				sta		[scsi_zp0],y

				ldy		#dib.fdvclnk
				lda		[dib_ptr],y
				sta		[scsi_zp0],y
											;
											; Clear the FDVCLNK and HEADLNKs
											; incase this segment is used later.
											;
				lda		#null
				sta		[dib_ptr],y
				ldy		#dib.headlnk
				sta		[dib_ptr],y
											;
											; Update the total DIB Count.  If
											; there are still some dibs left,
											; then we will return a DRVR_BUSY
											; error.  If all done we will return
											; no error.  This will cause us to
											; be purged.
											;
@update_tcnt	dec		|tot_dib_cnt
@update_acnt	dec		|active_starts
				beq		@thats_all_folks
											;
											; More left. Return an error.
											;
				lda		#DRVR_BUSY
				sec
				rts
											;
											; ThThThThThaaaaattt'ss all folks.
											; I give, go ahead purge me.  I
											; LOVE IT when you do that to
											; me!!!!!!
											;
@thats_all_folks
											;
											; Exit no Error.
											;
				lda		#null
				clc
				rts
											;
											; Internal Data Areas.
											;
@deref_handle	dc.l	null
@this_device	dc.w	null

				ENDP

				END

				EJECT
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSI Filter startup b/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSI Filter startup
new file mode 100644
index 0000000..329c0e7
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSI Filter startup	
@@ -0,0 +1 @@
+
;*******************************************************
;
;	SCSI Driver 'Startup' filter.
;
;	Written by Matt Gulick.		Started July 1,1988
;
;	Copyright Apple Computer, Inc. 1988,89
;
;*******************************************************

;*******************************************************
;
;	This file contains the 'Startup' filter as defined
;	in the ERS.
;
;*******************************************************

;*******************************************************
;
;	Revision History:
;
;*******************************************************
;
;	July 1,		1988	File started.
;	July 21,	1988	reworked logic and added
;						a few new subroutines.
;	April 10,	1989	Started to add code for
;						character devices for the
;						Scanner.

				STRING		PASCAL
				BLANKS		OFF
				PAGESIZE	70
				PRINT		NOGEN
				PRINT		NOMDIR
				MACHINE		M65816

				IMPORT		wake_me_up
				IMPORT		get_mm_id
				IMPORT		get_dvc_ram
				IMPORT		set_512_mode
				IMPORT		select_page_num
				IMPORT		test_unit_rdy
				IMPORT		start_unit
				IMPORT		mode_sense
				IMPORT		read_capacity
				IMPORT		default_dib
				IMPORT		rebld_dibs
				IMPORT		dpi_overide
				IMPORT		set_our_dp
				IMPORT		direct_page
				IMPORT		gsos_dpage
				IMPORT		main_drvr
				IMPORT		internal
				IMPORT		internal_buff
				IMPORT		get_scsimgr
				IMPORT		call_type
				IMPORT		fre_dvc_ram
				IMPORT		dvc_count
				IMPORT		rpm_blk_num
				IMPORT		rebuild
				IMPORT		part_num
				IMPORT		do_part_dib
				IMPORT		first_time
				IMPORT		part_cnt
				IMPORT		chk_ram
				IMPORT		dibicise_new_ram
				IMPORT		dibicise_new_dib
				IMPORT		main_caller
				IMPORT		active_starts
				IMPORT		tot_dib_cnt
				IMPORT		t_dvc_blocks
				IMPORT		auto_sense_data

				ENTRY		do_inq_parms
				ENTRY		do_mode_parms
				ENTRY		do_read_cap
				ENTRY		do_partition
				ENTRY		get_nxt_dvc

				PRINT		OFF

				INCLUDE		'scsihd.equates'
				INCLUDE		'M16.MEMORY'
				INCLUDE		'M16.UTIL'
				PRINT		ON

				EJECT
			
;*******************************************************
;
;	Main Entry point to the 'Startup' filter.  This
;	'Filter' is called after the driver is loaded.  The
;	code that follows sets up the drivers environment,
;	then calls 'get_dvc_ram'.  On return from the
;	'get_dvc_ram' call, the following structure are in
;	place if no error ocured.
;
;		dvc_list	=	Long Pointer to device List
;		next_dib	=	Long Pointer to First DIB
;		first_dib	=	Long Pointer to the beginning
;						of the RAM Allocated for the
;						new DIBs.
;
;			This contains enough RAM for one DIB for
;			each device in the device list.  If more
;			space is needed due to partitioning, then
;			the startup filter will be responsible for
;			getting that space from the memory manager.
;
;	From this point, we need to build the DIB for each
;	device. 
;		
;	Inputs:		None.
;
;	Outputs:	Acc			=	0
;				Carry		=	0
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	GS/OS Direct Page
;				Data Bank	=	Ours
;
;	Errors:		See Spec.
;
;*******************************************************

				EXPORT	startup
startup			PROC

;-------------------------------------------------------------------------------

				IF		warm_ss_suprt = true		THEN

											;
											; Check to see if this is a WARM STARTUP
											; Call.  If it is, we will need to handle
											; this a lot differently than a normal
											; startup.  First of all our DIBs are, for
											; the most part, already built.  The only
											; possible changes might be in respect to
											; removable media.  In any case we will
											; call the warm start routine in the Driver
											; Mgmt file to take care of this for us.
											;
											; Is it a COLD STARTUP?
											;
				lda		>warm_cold_flag
				and		#$0001
				bne		@do_warm			;It's Warm
@no_warm_start	jmp		@chk_dflt			;It's Cold
											;
											; Check to see if this is for the
											; 'default_dib'.  If it is, then we need
											; to exit with an error.  The error is so
											; that our default DIB is purged from the
											; startup list.
											;
@do_warm		lda		<dib_ptr
				cmp		#default_dib
				bne		@not_dflt

				lda		<dib_ptr+2
				cmp		#^default_dib
				bne		@not_dflt

				lda		#drvr_io			;Error Out.
				sec
				rts
											;
											; Yeah, so it's a WARM STARTUP.  But
											; does this device know what that
											; means?  We'll see!
											;
@not_dflt		ldy		#dib.dvcchar
				lda		[dib_ptr],y
				and		#restartable
				beq		@no_warm_start		;Not restartable.
											;
											; Yeah, so it knows what that means!
											; But first let's see if it is a new
											; DIB.
											;
				ldy		#dib.dvcflag
				lda		[dib_ptr],y
				tax
											;
											; Compare to default value.
											;
				cmp		#wait_mode++\
						cold_dib
				beq		@in_valid_dib		;Unused DIB.  Reject it.
											;
											; One last check. Is it partitioned
											; and if so, does it also have a valid
											; block offset?
											;
				ldy		#dib.dvcchar
				lda		[dib_ptr],y
				and		#linked_dvc
				beq		@valid_dib			;Used DIB.  Start it.

				ldy		#dib.start_blk
				lda		[dib_ptr],y
				ldy		#dib.start_blk+2
				ora		[dib_ptr],y
				bne		@valid_dib			;Used DIB.  Start it.
											;
											; Zero out the Device Number and
											; remove link.
											;
@in_valid_dib	lda		#null
				ldy		#dib.devnum
				sta		[dib_ptr],y

				ldy		#dib.dvcchar
				lda		[dib_ptr],y
				and		#linked_dvc--\
						$ffff
				sta		[dib_ptr],y

				lda		#drvr_no_dev		;Error Out.
				sec
				rts
											;
											;
@valid_dib		txa
				and		#cold_dib
				bne		@no_warm_start		;New DIB and Awake.  Do Cold Start
											;
											; Old DIB.  But is it asleep?
											;
				txa
				and		#relaxing
				beq		@over_wake_up		;Not asleep.
											;
											; Call the Warm Restart Routine.
											;
				jsr		wake_me_up
											;
											; The device is now awake.  If it is
											; removable we need to see if the
											; disk has been changed.
											;
@over_wake_up	ldy		#dib.dvcchar
				lda		[dib_ptr],y
				and		#removable
				beq		@bra_been_had		;Not removable.
											;
											; Rebuild the DIBs for this device if
											; this is the first partition for this
											; device.
											;
				ldy		#dib.unitnum
				lda		[dib_ptr],y
				and		#max_p_mask
				bne		@bra_been_had		;Not the head.  They've been done already
											;
											; Current pointer is the first.
											;
				lda		<dib_ptr+2
				ldx		<dib_ptr
@set_pointer	stx		<scsi_zp0
				sta		<scsi_zp0+2
											;
											; Set the Flags.
											;
				ldy		#dib.dvcflag
				lda		[scsi_zp0],y
				and		#dvc_hardofl--\
						$ffff
				ora		#dvc_switch++\
						dvc_online
				sta		[scsi_zp0],y
											;
											; If there is a forward device
											; pointer than get it.
											;
				ldy		#dib.fdvcptr
				lda		[scsi_zp0],y
				tax
				ldy		#dib.fdvcptr+2
				lda		[scsi_zp0],y
				bne		@set_pointer

				jsr		set_512_mode
				lda		#$ffff				;Don't Do Post Driver Installs
				sta		|dpi_overide
				jsr		rebld_dibs			;Rebuild DIBs and Issue a DISK_SW for each
				php
				stz		|dpi_overide		;Clear the Overide
											;
											; Restore the origonal Direct Page values.
											;
				jsr		set_our_dp
				plp
				bcc		@bra_been_had
				jsr		test_unit_rdy
				bcc		@bra_been_had
											;
											; For some reason, we cannot talk to the
											; device.  It must be offline.
											;
@chk_switch		ldy		#dib.dvcflag
				lda		[dib_ptr],y
				and		#dvc_online--\
						$ffff
				sta		[dib_ptr],y

;@bra_been_had	jmp		@links_done
@bra_been_had	bra		@ive_been_had

 				ENDIF

;-------------------------------------------------------------------------------

											;
											; Check to see if this is for the
											; 'default_dib'.  If it is, then we need
											; to build all the devices that we can and
											; exit with an error.  The error is so that
											; our default DIB is purged from the startup
											; list.  The device dispatcher will then
											; call us for the DIB pointed to in the
											; 'default_dib's link pointer.  This and any
											; further 'STARTUP' calls will exit with no
											; error, except that no action will be taken
											; other than to increment the startup call
											; count to be used as a balance for the
											; shutdown calls that will eventually be
											; issued.
											;
@chk_dflt		lda		<dib_ptr
				cmp		#default_dib
				bne		@ive_been_had

				lda		<dib_ptr+2
				cmp		#^default_dib

;-------------------------------------------------------------------------------

				IF			part_suprt = false	Then

				beq		@im_a_virgin

@ive_been_had									;
												; Mark the device as started and
												; as online.
												;
				ldy		#dib.dvcflag
				lda		[dib_ptr],y
				and		#cold_dib--\
						$ffff

;===============================================================================

				IF			character_dvc = true	Then

				ora		#dvc_online

				ENDIF

;===============================================================================

				sta		[dib_ptr],y

				ELSE

;-------------------------------------------------------------------------------

				bne		@ive_been_had

				jmp		@im_a_virgin

@ive_been_had
												;
												; Clear the Cold Start Flag.
												;
				ldy		#dib.dvcflag
				lda		[dib_ptr],y
				and		#cold_dib--\
						$ffff
				sta		[dib_ptr],y

												;
												; Check the Partition Bits.  If they
												; are all clear, then we will set the
												; head device link to this device.
												;
				ldy		#dib.unitnum
				lda		[dib_ptr],y
				cmp		#$0001
				beq		@jmp_links_done

				and		#max_p_mask
				bne		@not_head
												;
												; Too far to branch to.
												;
@jmp_links_done	jmp		@links_done
												;
												; This is not the first or boot device,
												; nor is it the first or only logical
												; device on this physical device.  That
												; means that it is probably partitioned.
												; This means we need to set the head and
												; forward links.  The following code will
												; do this for us.
												;
												; Get the Device Number for setting as
												; a forward link.  Also save the unit
												; number (less the partition bits) to
												; match the other DIBs from this device.
												;
@not_head		ldy		#dib.devnum
				lda		[dib_ptr],y
				sta		@current_dev

				ldy		#dib.unitnum
				lda		[dib_ptr],y
				and		#max_p_mask\
						--$ffff
				sta		@our_unit

				ldy		#dib.slotnum
				lda		[dib_ptr],y
				sta		@our_slot
												;
												; Start pointer out at the default DIB.
												;
				lda		#default_dib
				sta		<scsi_zp4

				lda		#^default_dib
				sta		<scsi_zp4+2
												;
												; Main Search loop.
												;
												; Advance pointer to the next DIB.  If
												; link is = to zero, then exit loop.
												;
@links_loop		ldy		#dib.linkptr+2
				lda		[scsi_zp4]
				tax
				ora		[scsi_zp4],y
				bne		@non_zero

				jmp		@links_done

@non_zero		lda		[scsi_zp4],y

@advance		sta		<scsi_zp4+2
				stx		<scsi_zp4
											;
											; Check unit number to see if it is the same.
											;
				ldy		#dib.unitnum
				lda		[scsi_zp4],y
				and		#max_p_mask\
						--$ffff
				cmp		@our_unit			;Is it ours?
				bne		@links_loop			;No. Check the next one.
											;
											; Check Slot number to see if it is the same.
											;
				ldy		#dib.slotnum
				lda		[scsi_zp4],y
				cmp		@our_slot			;Is it ours?
				bne		@links_loop			;No. Check the next one.
											;
											; They are equal.  Is the forward link = zero?
											;
				ldy		#dib.fdvclnk
				lda		[scsi_zp4],y
;				beq		@found_end
;				cmp		@current_dev
				bne		@links_loop			;No. Check the next one.
											;
											; Yes.  This DIB has no forward device link.
											; We will volunteer the users DIB for the Job.
											; Set the head Link in the DIB called and the
											; forward link in ours.
											;
@found_end		lda		@current_dev
				sta		[scsi_zp4],y

				ldy		#dib.headlnk
				lda		[scsi_zp4],y

				beq		@stuff_head
											;
											; Set Head Pointer to scsi_zp4
											;
				pha

				ldy		#dib.headptr
				lda		[scsi_zp4],y
				sta		[dib_ptr],y
				ldy		#dib.headptr+2
				lda		[scsi_zp4],y
				sta		[dib_ptr],y

				pla
				bra		@do_head
											;
											; Set head Pointer to the same as
											; in scsi_zp4
											;
@stuff_head		ldy		#dib.headptr
				lda		<scsi_zp4
				sta		[dib_ptr],y
				ldy		#dib.headptr+2
				lda		<scsi_zp4+2
				sta		[dib_ptr],y

				ldy		#dib.devnum
				lda		[scsi_zp4],y

@do_head		ldy		#dib.headlnk
				sta		[dib_ptr],y
											;
											; Also set the Forward Device Ptr.
											;
				ldy		#dib.fdvcptr
				lda		<dib_ptr
				sta		[scsi_zp4],y
				ldy		#dib.fdvcptr+2
				lda		<dib_ptr+2
				sta		[scsi_zp4],y
											;
											; And the forward link.
											;
				ldy		#dib.devnum
				lda		[dib_ptr],y

				ldy		#dib.fdvclnk
				sta		[scsi_zp4],y
											;
											; Is it a COLD STARTUP?
											;
				lda		>warm_cold_flag
				and		#$0001
				bne		@links_done			;It's Warm.  Skip the links
											;
											; Set the linked bit in both DIBs.
											;
				ldy		#dib.dvcchar

				lda		[scsi_zp4],y
				ora		#linked_dvc
				sta		[scsi_zp4],y

				lda		[dib_ptr],y
				ora		#linked_dvc
				sta		[dib_ptr],y

				ENDIF

;-------------------------------------------------------------------------------

											;
											; Not the first one, so increment the counter
											; if we are not beyond what we have for an
											; active dib count.
											;
@links_done		lda		|active_starts
				cmp		|tot_dib_cnt
				beq		@over_inc
				inc		|active_starts
@over_inc		clc
				rts
											;
											; Local Data storage here.
											;
@current_dev	dc.w	null				;Device Number for this DIB
@our_unit		dc.w	null				;His unit number less the partition bits.
@our_slot		dc.w	null				;His slot number
											;
											; Check to see if we've been called before.
											; If not then we need to get the gs/os
											; direct page address.
											;
@im_a_virgin	lda		|direct_page
				bne		@we_have_it
											;
											; Where is GS/OS Direct Page?
											;
				tdc
				sta		|gsos_dpage
											;
											; We also need to get the SCSI Managers
											; ID for the S_DISPATCHER.
											;
				jsr		get_scsimgr
				bcs		@rts
											;
											; Get ID from the memory manager.  All that
											; this does is request a new ID.
											;
@we_have_it		jsr		get_mm_id
											;
											; Call the get_dvc_ram subroutine.
											; This will allocate the space
											; that we need for the device list
											; returned by the SCSI Manager.
											; It then calculates a DIB count
											; (Max 256) and allocates RAM for
											; those structures.  This can be
											; increased later if it is needed.
											; This can occur if some of the
											; devices contain more than one
											; partition.
											;
				jsr		get_dvc_ram
				bcc		@do_dflt_dib		;Check for errors.

				jsr		fre_dvc_ram			;Dump Get Devices Ram

				lda		#drvr_no_dev		;Exit
				sec
@rts			rts
											;
											; Now we need to build the DIBs for
											; these devices.  The first one will
											; not be built in the default_dib
											; area.  The default_dib will be 
											; copied first to the new memory that
											; has been allocated.  It is here
											; that the first DIB will be built.
											; After this the last DIB built will
											; be copied into the space for the
											; next DIB to be built and then
											; updated accordingly.  We do not use
											; the default_dib because this will
											; serve to keep this driver active
											; even if no devices are present at
											; boot time.  Just in case a drive
											; does come online later.
											;
@do_dflt_dib	lda		<dvc_list			;Advance pointer to the first entry.
				adc		#$0004				;Pass Direct page pointer and
				sta		<dvc_list			;device count. Carry was CLEAR!!!!
				lda		<dvc_list+2
				adc		#$0000
				sta		<dvc_list+2

				lda		#default_dib
				sta		<last_dib
				lda		#^default_dib
				sta		<last_dib+2

				stz		|main_caller		;tell the link setter that he was called
				clc							;Do Links Also
				jsr		dibicise_new_ram	;by the main loop
				bra		@over

@over			jsr		do_mode_parms		;Do MODE SENSE supplied parms

				jsr		do_inq_parms		;Do INQUIRY supplied parms

;-------------------------------------------------------------------------------

				IF			block_dvc = true	Then

				jsr		do_read_cap			;Do READ CAPACITY supplied parms

				ENDIF

;-------------------------------------------------------------------------------

				IF			part_suprt = true	Then

				jsr		do_partition		;Do partition DIBs

				ENDIF

;-------------------------------------------------------------------------------

				jsr		get_nxt_dvc			;Go to the next physical device

				bne		@over				;But only if they exist.
											;
											; This SEC is extremely important.  At
											; this point the startup call was issued
											; to the default DIB.  We took this
											; opertunity to build all of our DIBs
											; and we have a count of how many we did
											; build.  We do not want the device manager
											; to keep the default DIB as an active
											; device and so we exit with the carry
											; set.  He will then check the link
											; pointer and if it is not zero, he will
											; call the startup routine for that dib.
											; At that time we will exit with the carry
											; clear.
											;
											; Free Get Devices Ram first.
											;
				jsr		fre_dvc_ram

				lda		#drvr_io
				sec
				rts

				ENDP

				EJECT
			
;*******************************************************
;
;	'do_inq_parms'
;
;	This routine issues an INQUIRY call to the device and
;	then uses the data returned to fill in some of the blank
;	holes in the DIB.
;		
;	Inputs:		<next_dib	=	Next DIB start		(LONG)
;				Acc			=	Unspecified
;				Carry		=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Outputs:	<next_dib	=	unchanged			(LONG)
;				[next_dib]	=	INQUIRY values set	(PTR)
;									Removable bit
;									Command bitmap
;				Acc			=	Unspecified
;				Carry		=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Errors:		None.
;
;*******************************************************

				EXPORT	do_inq_parms
do_inq_parms	PROC
										;
										; Set internal command flag
										;
				dec		|internal
										;
										; Tell the Main Driver where
										; our command structure resides.
										;
				lda		#@start_inq
				sta		<scsi_mdrvr
				lda		#^@start_inq
				sta		<scsi_mdrvr+2
										;
										; And our buffer
										;
				lda		#internal_buff
				sta		<buff_ptr
				lda		#^internal_buff
				sta		<buff_ptr+2
										;
										; And our length 0f $40 Bytes
										;
				lda		#$0040
				sta		<rqst_cnt
				stz		<rqst_cnt+2
										;
										; Stuff the pointer to the dib
										; that we are building into the
										; Direct Page locations.  The
										; main driver will use this to
										; build the SCSI INQUIRY Command
										; that we will issue.
										;
				lda		<next_dib
				sta		<dib_ptr
				lda		<next_dib+2
				sta		<dib_ptr+2
										;
										; Set the Call Type and Issue the
										; INQUIRY Command.
										;
				lda		#scsit_stat
				sta		|call_type
				jsr		|main_drvr
				bcc		@over_0			;Was there an error?

				rts						;Yes.
										;
										; Is the device removable?
										;
@over_0			lda		|inq.removable\
						+internal_buff
				and		#bit_7
				beq		@non_remove
										;
										; Yes.  Set the bit in the
										; characteristics field.
										;
				ldy		#dib.dvcchar
				lda		[next_dib],y
				ora		#removable
				sta		[next_dib],y
				bra		@over_1
										;
										; No.  Clear the bit in the
										; characteristics field.
										;
@non_remove		ldy		#dib.dvcchar
				lda		[next_dib],y
				and		#removable--\
						$ffff
				sta		[next_dib],y
										;
										; Set a ZP pointer to where the
										; command bitmap information will
										; be placed.
										;
@over_1			clc
				lda		<next_dib
				adc		#dib.group0
				sta		<scsi_zp0
				lda		<next_dib+2
				adc		#^dib.group0
				sta		<scsi_zp0+2
										;
										; Not all devices conform to the
										; Apple Command Command Set.  We
										; need to check if the Command
										; Bitmap is available.  If not
										; then we will stuff the default
										; bitmap and then clear bits as
										; the device indicates.  This will
										; be done elsewhere in response to
										; a command not supported error.
										;
										; First check the return length.
										;

				ldy		#dib.trx_len
				lda		[dib_ptr],y
				cmp		#inq.group+5-1	;End of first group - 1
				blt		@do_default
										;
										; We got those bytes. Are they 0?
										;
				short					;5 Bytes to check.  Best done 8 bit

				sec						;The Carry will be our flag
				lda		|inq.group\
						+internal_buff
				bne		@chk_carry		;Must Start w/ Group Zero.

				clc						;The Carry will be our flag
				ldx		#$0005
@chk_bm_loop	lda		|inq.group\
						+internal_buff,x
				bne		@chk_carry
				dex
				bpl		@chk_bm_loop
				sec
@chk_carry		longmx
				bcs		@do_default
										;
										; There are some devices out there
										; that return bogus bitmaps.  They
										; look correct, but are not.  We will
										; check the first 4 bytes of the
										; Bitmap to see if they support the
										; Mandatory Commands.  If not, then
										; we will use our default bitmap.
										;
				lda		|inq.group\
						+internal_buff+1
				and		@min_cmnds
				cmp		@min_cmnds
				bne		@do_default

				lda		|inq.group\
						+internal_buff+3
				and		@min_cmnds+2
				cmp		@min_cmnds+2
				bne		@do_default
										;
										; Zero out the current data in the
										; dib.  If there are any holes in
										; the information then we are sure
										; that those holes are null.
										;
				ldy		#dib.group7\
						-dib.group0\
						+2
				lda		#null
@loop_0			sta		[scsi_zp0],y
				dey
				dey
				bpl		@loop_0
										;
										; Get the group number for the next
										; four bytes of bitmap.
										;
										;	Group x			(BYTE)
										;	Bitmap			(LONG)
										;	Group y			(BYTE)
										;	Bitmap			(LONG)
										;	Group z			(BYTE)
										;	Bitmap			(LONG)
										;	Group '$FF		(BYTE)
										;
				ldx		#null
@loop_1			lda		|inq.group\
						+internal_buff,x

				and		#$00ff			;Real Code
				cmp		#$00ff
				beq		@over_2

				cmp		#$0007+1
				bge		@do_default
										;
										; Convert group number into an
										; index into the group table in
										; the dib.
										;
				asl		a
				asl		a
				tay
				inx
										;
										; Transfer the bitmap.
										;
				lda		|inq.group\
						+internal_buff,x
				sta		[scsi_zp0],y
				inx
				inx
				iny
				iny
				lda		|inq.group\
						+internal_buff,x
				sta		[scsi_zp0],y
				inx
				inx
				bra		@loop_1
										;
										; The device did not support
										; the Command Bitmap in the
										; INQUIRY Parms.  We need to
										; put the default bitmap in
										; place.
										;
@do_default		ldy		#dib.group7\
						-dib.group0\
						+2
@dflt_loop		lda		default_dib\
						+dib.group0,y
				sta		[scsi_zp0],y
				dey
				dey
				bpl		@dflt_loop
										;
										; Clean exit when done.
										;
@over_2			clc
				rts
										;
										; Data Area.
										;
										; Inquiry Command Packet.
										;
@start_inq		dc.b	$12
				dcb.b	11,$00
										;
										; Data of Minimum Command set that
										; must be supported.
										;
@min_cmnds

;-------------------------------------------------------------------------------

				IF			scsi_dtype = direct_acc	Then
										;
										; It is a Direct-Access Device.
										;
				dc.B	$98,$A0,$20,$00	; Group 0 Commands

				ENDIF					;scsi_dtype = direct_acc

;-------------------------------------------------------------------------------

				IF		scsi_dtype = seq_acc	THEN
										;
										; It is a Sequential-Access Device.
										;
				arl						;Cause error if used.  Force definition
				dc.B	$D0,$A0,$20,$00	; Group 0 Commands

				ENDIF					;scsi_dtype = seq_acc

;-------------------------------------------------------------------------------

				IF		scsi_dtype = appl_laser	THEN
										;
										; It is an Apple LaserWriter Device.
										;
				dc.B	$98,$A0,$20,$00	; Group 0 Commands

				ENDIF					;scsi_dtype = appl_laser

;-------------------------------------------------------------------------------

				IF		scsi_dtype = proc_dvc	THEN
										;
										; It is a Processor Device.
										;
				arl						;Cause error if used.  Force definition
				dc.B	$98,$A0,$20,$00	; Group 0 Commands

				ENDIF					;scsi_dtype = proc_dvc

;-------------------------------------------------------------------------------

				IF		scsi_dtype = worm_dvc	THEN
										;
										; It is a Write-once Read-multiple Device.
										;
				arl						;Cause error if used.  Force definition
				dc.B	$98,$A0,$20,$00	; Group 0 Commands

				ENDIF					;scsi_dtype = worm_dvc

;-------------------------------------------------------------------------------

				IF		scsi_dtype = read_dacc	THEN
										;
										; It is a Read-only Direct-Access Device.
										;
				dc.B	$90,$00,$23,$00	; Group 0 Commands

				ENDIF					;scsi_dtype = read_dacc

;-------------------------------------------------------------------------------

				IF		scsi_dtype = scanner	THEN
										;
										; It is a Scanner Device.
										;
				dc.B	$90,$00,$23,$00	; Group 0 Commands

				ENDIF					;scsi_dtype = scanner

;-------------------------------------------------------------------------------

				IF		scsi_dtype = optic_mem	THEN
										;
										; It is a Optical Memory Device.
										;
				arl						;Cause error if used.  Force definition
				dc.B	$98,$A0,$20,$00	; Group 0 Commands

				ENDIF					;scsi_dtype = optic_mem

;-------------------------------------------------------------------------------

				IF		scsi_dtype = changer	THEN
										;
										; It is a Changer Device.
										;
				arl						;Cause error if used.  Force definition
				dc.B	$98,$A0,$20,$00	; Group 0 Commands

				ENDIF					;scsi_dtype = changer

;-------------------------------------------------------------------------------

				IF		scsi_dtype = comm_dvc	THEN
										;
										; It is a Communication Device.
										;
				arl						;Cause error if used.  Force definition
				dc.B	$98,$A0,$20,$00	; Group 0 Commands

				ENDIF					;scsi_dtype = comm_dvc

;-------------------------------------------------------------------------------

				IF		scsi_dtype = mcd_40	THEN
										;
										; It is a Direct Access Magnetic
										; Tape Device.
										;
				dc.B	$DF,$77,$FF,$7C	; Group 0 Commands

				ENDIF					;scsi_dtype = mcd_40

;-------------------------------------------------------------------------------

				ENDP

				EJECT
			
;*******************************************************
;
;	'do_mode_parms'
;
;	This routine issues an MODE SENSE call to the device and
;	then uses the data returned to fill in some of the blank
;	holes in the DIB.
;		
;	Inputs:		<next_dib	=	Next DIB start		(LONG)
;				Acc			=	Unspecified
;				Carry		=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Outputs:	<next_dib	=	unchanged			(LONG)
;				[next_dib]	=	MODE SENSE vals set	(PTR)
;									Write Protect bit
;				Acc			=	Unspecified
;				Carry		=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Errors:		None.
;
;*******************************************************

				EXPORT	do_mode_parms
do_mode_parms	PROC
										;
										; Stuff the pointer to the dib
										; that we are building into the
										; Direct Page locations.  The
										; main driver will use this to
										; build the SCSI MODE SENSE
										; Command that we will issue.
										;
				lda		<next_dib
				sta		<dib_ptr
				lda		<next_dib+2
				sta		<dib_ptr+2
										;
										; Start the Unit
										;

;-------------------------------------------------------------------------------

				IF			scsi_dtype <> scanner	THEN

				jsr		start_unit
		
				ENDIF
		
;-------------------------------------------------------------------------------

				IF			scsi_dtype = mcd_40\
				OR			scsi_dtype = apple_cd	THEN

										;
										; Check for no-media
										;
				bcc		@cd_tape_ok
										;
										; Check for No Media Error
										;
				lda		|auto_sense_data+\
						rqst_sens.sense_key
				beq		@cd_tape_ok

				and		#$00ff
				cmp		#$0002			;Is there Media?
				bne		@cd_tape_ok		;Yes.
										;
										; No Media.  Mark the DIB Hard Ofline also.
										;
				ldy		#dib.dvcflag
				lda		[dib_ptr],y
				ora		#dvc_hardofl
				sta		[dib_ptr],y


@cd_tape_ok

				ENDIF

;-------------------------------------------------------------------------------

										;
										; Check if unit Ready
										;
				jsr		test_unit_rdy
										;
										; Issue MODE SENSE Call
										;
				jsr		mode_sense
				bcs		@rts			;Was there an error?

;-------------------------------------------------------------------------------

				IF		scsi_dtype <> apple_cd\
				AND		scsi_dtype <> scanner	THEN

										;
										; Is the device writable?  If CD-ROM
										; then don't even bother with this
										; code.
										;
				lda		|mode.w_protect\
						+internal_buff
				and		#bit_7
				beq		@over_1			;No.
										;
										; Yes.  Set the bit in the
										; characteristics field.
										;
				ldy		#dib.dvcchar
				lda		#write_allow
				ora		[next_dib],y
				sta		[next_dib],y
		
				ENDIF
		
;-------------------------------------------------------------------------------

@over_1									;Label must always be available.
		
;-------------------------------------------------------------------------------

				IF		scsi_dtype <> mcd_40\
				AND		scsi_dtype <> scanner\
				AND		scsi_dtype <> appl_laser	THEN
										;
										; Check to see if the device supports
										; the page discriptors.
										;
				lda		|mode.blk_disc\
						+internal_buff
				and		#$00ff
				beq		@clc
										;
										; Ensure that the device is in
										; 512 mode if possible and send
										; data from page 1 back to the
										; device.
										;
				lda		|mode.page_number\
						+internal_buff
				and		#$ff3f			;Clear the invalid bits.
				sta		|select_page_num
				lda		|mode.page_number\
						+internal_buff+2
				ora		#bit_6++\		;Set AWRE and ARRE bits.
						bit_7
				sta		|select_page_num+2
				lda		|mode.page_number\
						+internal_buff+4
				sta		|select_page_num+4
				lda		|mode.page_number\
						+internal_buff+6
				sta		|select_page_num+6

				jsr		set_512_mode
				bcs		@rts

@clc

				ENDIF

;-------------------------------------------------------------------------------

										;
										; Exit
										;
				clc
@rts			rts
										;
										; Data for the MODE SENSE Command
										;
@start_mode		dc.b	$1a
				dc.b	$00
				dc.b	$01
				dcb.b	9,$00

				ENDP

				EJECT
			
;*******************************************************
;
;	'do_read_cap'
;
;	This routine issues an READ CAPACITY call to the
;	device and then uses the data returned to fill in
;	some of the blank holes in the DIB.
;		
;	Inputs:		<next_dib	=	Next DIB start		(LONG)
;				Acc			=	Unspecified
;				Carry		=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Outputs:	<next_dib	=	unchanged			(LONG)
;				[next_dib]	=	READ CAP.. vals set	(PTR)
;									Block Count
;									Block Size
;				Acc			=	Unspecified
;				Carry		=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Errors:		None.
;
;*******************************************************

				EXPORT	do_read_cap
do_read_cap		PROC
		
;-------------------------------------------------------------------------------

				IF		scsi_dtype <> scanner	THEN
										;
										; Stuff the pointer to the dib
										; that we are building into the
										; Direct Page locations.  The
										; main driver will use this to
										; build the SCSI READ CAPACITY
										; Command that we will issue.
										;
				lda		<next_dib
				sta		<dib_ptr
				lda		<next_dib+2
				sta		<dib_ptr+2
										;
										; Issue the READ CAPACITY Command.
										;
				jsr		read_capacity
				bcc		@over_0			;Was there an error?

				rts						;Yes.
										;
										; Get the Block Count (Stored
										; High >> Low.  Must be switched
										; to Low >> High).  This is the last
										; readable block number.  Add 1 to
										; it for comparison reasons.
										;
@over_0			lda		|block.count\
						+internal_buff\
						+2
				xba
				adc		#$0001
				sta		|t_dvc_blocks
				lda		|block.count\
						+internal_buff
				xba
				adc		#null
				sta		|t_dvc_blocks+2

;-------------------------------------------------------------------------------

				IF		block_dvc = true	THEN

				beq		@over_mo
										;
										; Some devices do not return a bitmap
										; of the commands that they support.
										; For these devices we use a default
										; minimum command set.  If the Block
										; Count is > $ffff, then we need to
										; update this to support the exrended
										; read and write commands.
										;
				ldy		#dib.group1
				lda		[next_dib],y
				ora		#$b000			;Bit 15 = Extended Read
										;Bit 13 = Extended Write
										;Bit 12 = Extended Seek
				sta		[next_dib],y

@over_mo

				ENDIF

;-------------------------------------------------------------------------------

										;
										; Get the devices block size (This
										; also needs to be switched from
										; High >> Low to Low >> High) and
										; place it in the dib.
										;
				lda		|block.size\
						+internal_buff\
						+2
				xba
				ldy		#dib.blksize
				sta		[next_dib],y
				sta		<blk_size		;Place on direct page.
				lda		|block.size\
						+internal_buff
				xba
				ldy		#dib.blksize+2
				sta		[next_dib],y
				sta		<blk_size+2		;Place on direct page.
										;
										; Clean exit.
										;
				clc
				rts

				ELSE

;-------------------------------------------------------------------------------

				clc
				rts

				ENDIF

;-------------------------------------------------------------------------------

				ENDP

				EJECT
			
;*******************************************************
;
;	'do_partition'
;
;	This routine issues a READ call to the device and
;	then uses the data returned to check for any
;	partitions on the media.
;		
;	Inputs:		<next_dib	=	Next DIB start		(LONG)
;				Acc			=	Unspecified
;				Carry		=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Outputs:	<next_dib	=	last DIB Built		(LONG)
;				Acc			=	Unspecified
;				Carry		=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Errors:		None.
;
;*******************************************************
										;
										; Start of the code segment for this.
										;
				EXPORT	do_partition
do_partition	PROC

;-------------------------------------------------------------------------------

				IF			part_suprt = true	Then

										;
										; Initialize a few values.
										;
				lda		#$ffff			;The following values will be incrimented
				sta		|first_time		;with zero indication special action.
				sta		|part_num		;This is set to $ffff so that it will only
										;occur on the first pass through.

				stz		|part_cnt
				stz		|rpm_blk_num
				stz		|rebuild
										;
										; MAIN LOOP OF CODE SEGMENT.
										;
				jsr		do_part_dib
				rts

				ELSE

;-------------------------------------------------------------------------------

				clc
				rts

				ENDIF

;-------------------------------------------------------------------------------

				ENDP

				EJECT
			
;*******************************************************
;
;	'get_nxt_dvc'
;
;	This routine checks to see if there are any
;	remaining devices in the list handed to us by the
;	GET_DEVICES Call to the SCSI Manager.  If there are
;	devices, then we advance our pointers and exit with
;	the Z flag set.  The caller can the do a BNE to
;	continue his loop ( Z(ero) indicates that there are
;	no devices left ). 
;		
;	Inputs:		<next_dib	=	Next DIB start		(LONG)
;				Acc			=	Unspecified
;				Carry		=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Outputs:	<next_dib	=	last DIB Built		(LONG)
;				Carry		=	1
;					Acc		=	Error
;				Carry		=	0
;					Acc		=	ram_page_cnt
;							=	0	no more devices
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;								Z=1 if more devices
;								Z=0 if no more devices
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Errors:		None.
;
;*******************************************************

				EXPORT	get_nxt_dvc
get_nxt_dvc		PROC
									;
									; Are there any more devices?
									;
				dec		|dvc_count
				bne		@we_have_more
				clc
				rts					;Z Flag set here.
									;
									; Advance the Device Data Pointer
									; in the device list from the SCSI
									; Manager
									;
@we_have_more	clc
				lda		<dvc_list
				adc		#$0004
				sta		<dvc_list
				lda		<dvc_list+2
				adc		#null
				sta		<dvc_list+2
									;
									; Call Check Ram routine.  This will
									; check to see if there is room for an
									; additional DIB.  If not then room
									; will be made for enough DIBs to cover
									; the remaining partitions and devices.
									; From this caller, there should be no
									; partitions to account for.
									;
				stz		|main_caller
				jmp		chk_ram

				ENDP

				END

				EJECT
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSI Filter status b/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSI Filter status
new file mode 100644
index 0000000..9f32125
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSI Filter status	
@@ -0,0 +1 @@
+
;*******************************************************
;
;	SCSI Driver 'Status' filter.
;
;	Written by Matt Gulick.		Started August 12,1988
;
;	Copyright Apple Computer, Inc. 1988-93
;	All Rights Reserved
;
;*******************************************************

;*******************************************************
;
;	This file contains the 'Status' filter as defined
;	in the ERS.
;
;*******************************************************

;*******************************************************
;
;	Revision History:
;
;*******************************************************
;
;	Aug 12,		1988	File started.
;	April 17,	1989	Made changes to accomadate the
;						Scanner Driver.
;
;	*** System 6.0.1 ***
;
;	16-Feb-93			Jim Murphy added DStatus $4000
;						to return SCSI ID (search for
;						JCM).
;
;*******************************************************

				STRING		PASCAL
				BLANKS		OFF
				PAGESIZE	70
				PRINT		NOGEN
				PRINT		NOMDIR
				MACHINE		M65816

				IMPORT		bitmap
				IMPORT		rpm_blk_num
				IMPORT		stat_cont
				IMPORT		rebuild
				IMPORT		read_pm_blk

				IMPORT		call_type
				IMPORT		main_drvr
				IMPORT		internal
				IMPORT		f_partition
				IMPORT		test_unit_rdy
				IMPORT		rqst_sense
				IMPORT		mode_sense
				IMPORT		read_capacity
				IMPORT		t_dvc_blocks
				IMPORT		set_512_mode
				IMPORT		open_flag
				IMPORT		set_our_dp
				IMPORT		disk_switch
				IMPORT		set_disk_sw
				IMPORT		rebld_dibs
				IMPORT		unit_state
				IMPORT		trash_it
				IMPORT		uses_dc
				IMPORT		dib_data_struct
				IMPORT		lst_rslt_ec		;Status
				IMPORT		lst_rslt_id		;Status
				IMPORT		lst_rslt_stat	;Status
				IMPORT		lst_rslt_skey	;Status
				IMPORT		lst_rslt_info	;Status
				IMPORT		lst_rslt_rqlen	;Status
				IMPORT		lst_rslt_scode	;Status
				IMPORT		sense_data
				IMPORT		auto_sense_data
				IMPORT		internal_buff
				IMPORT		display_cnt
				IMPORT		current_fmt
				IMPORT		opt1_blk_cnt
				IMPORT		opt1_blk_siz
				IMPORT		opt1_med_siz
				IMPORT		opt2_blk_cnt
				IMPORT		opt2_blk_siz
				IMPORT		opt2_med_siz
				IMPORT		opt3_blk_cnt
				IMPORT		opt3_blk_siz
				IMPORT		opt3_med_siz
				IMPORT		format_options
				IMPORT		check_532_rw

				ENTRY		dvc_status
				ENTRY		g_config_parms
				ENTRY		wait_status
				ENTRY		fmt_options
				ENTRY		read_p_map
				ENTRY		g_last_rslt
				ENTRY		get_target_priority

				PRINT		OFF

				INCLUDE		'scsihd.equates'
				INCLUDE		'M16.MEMORY'
				INCLUDE		'M16.UTIL'
				PRINT		ON

;-------------------------------------------------------------------------------

				IF			scsi_dtype = direct_acc	THEN

				ENTRY		gdp
				ENTRY		gvp

				ENDIF

;-------------------------------------------------------------------------------

				EJECT
			
;*******************************************************
;
;	Main Entry point to the 'Status' filter.  This
;	"Filter" is called when a Status Command comes in.
;	See the headers of the seperate sections for the
;	details of the commands.
;
;	Inputs:		[dib_ptr]	=	Last DIB built		(LONG)
;				Acc			=	Unspecified
;				Carry		=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Outputs:	Acc			=	DRVR_BUSY
;				Carry		=	1
;						unless we have no more dibs then
;				Acc			=	0
;				Carry		=	0
;
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	GS/OS Direct Page
;				Data Bank	=	Ours
;
;	Errors:		See Spec.
;
;*******************************************************

				EXPORT	status
status			PROC
										;
										; Check to see if this is a Get Last Result
										; call.  If so, then don't worry yet about
										; getting the Unit State.
										;
				lda		<cont_code
				cmp		#$0005
				beq		@status

*** Added - 16-Feb-93 JCM

				cmp		#$4000			;how about GetSCSITargetPriority?
				beq		@status

*** End - 16-Feb-93 JCM
										;
										; Is the device Removable?
										;
				ldy		#dib.dvcchar

				lda		[dib_ptr],y
				and		#removable
				beq		@online			;No.
										;
										; This device is removable.  Now we
										; need to check to see if the unit
										; has gone offline, (then we need to
										; report that to the OS) or if the
										; unit has come back online (Rebuild
										; the DIBs).
										;
				jsr		unit_state
				bcc		@online
										;
										; Check to see if this is a Device Status.
										; If so, then don't worry yet about returning
										; the Error State.
										;
				tay
				lda		<cont_code
				beq		@status
				cmp		#$0004
				blt		@status
				bpl		@tya_out
				cmp		#$8040
				blt		@status
;				bmi		@status
@tya_out		tya						;The Carry Bit is still set.
				rts
										;
										; Check to see if this is a Device Specific
										; Status call.  If so, then don't worry
										; about it being Offline
										;
@online			lda		<cont_code
				beq		@status
				bmi		@status
										;
										; Is the device online?
										;
				ldy		#dib.dvcflag

				lda		[dib_ptr],y
				and		#dvc_online
				bne		@status			;Yes.
										;
										; Device is currently offline.
										;
				lda		#drvr_off_line
				sec
@rts_out		rts
										;
										; Zero out the Data Chaining Flag
										;
@status			stz		|uses_dc
										;
										; Clear transfer count.
										;
				lda		#null
				ldy		#dib.trx_len
				sta		[dib_ptr],y
				ldy		#dib.trx_len+2
				sta		[dib_ptr],y
										;
										; Entry to the Status Call Filter.
										; This filter acts as a mini driver.
										; It examines the Status Code sent
										; and calls the appropriate routines.
										; If the Command is $8000 or greater,
										; then it will be routed to the device
										; specific section.
										;
				lda		<stat_code
				bmi		@do_dvc_spec	;Device Specific Code.
										;
										; Check the range of the command.
										;

*** Added - 16-Feb-93 JCM - This implements a new Apple-defined subcode for returning
***							the SCSI target priority (aka SCSI ID).

				cmp		#$4000			;is it GetSCSITargetPriority?
				bne		@checkStandards

				brl		get_target_priority

@checkStandards

*** End - 16-Feb-93 JCM

				cmp		#max_s_cmd+1
				bge		@error
										;
										; Convert to an index
										;
				asl		a
				tax
				jsr		(@ncmd_tbl,x)
				rts
										;
										; Bad Command Error.
										;
@error			lda		#drvr_bad_req
				sec
				rts
										;
										; Normal Command Table.
										;
@ncmd_tbl		dc.w	dvc_status		;Coded
				dc.w	g_config_parms	;Coded
				dc.w	wait_status		;Coded
				dc.w	fmt_options		;Coded
				dc.w	read_p_map		;Coded
				dc.w	g_last_rslt		;Coded
										;
										; Device Specific Code handling
										; starts here.
										;
@do_dvc_spec
;-------------------------------------------------------------------------------

				IF			scsi_dtype = direct_acc	THEN

				cmp		#$F000
				blt		@do_scsi_cmd
				and		#$00ff
				cmp		#max_config_cmd+1
				bge		@error
										;
										; Convert to an index
										;
				asl		a
				tax
				jsr		(@c_cmd_tbl,x)
				rts
										;
										; Config Command Table.
										;
@c_cmd_tbl		dc.w	gdp				;Coded (Get Disk Parms)
				dc.w	gvp				;Coded (Get Volume Parms)

@do_scsi_cmd

				ENDIF

;-------------------------------------------------------------------------------

										;
										; Check version of data structure
										;
				stz		@chk_zero		;Precondition the flag to no check
				lda		[buff_ptr]
				beq		@version_0
				cmp		#$0001
				bne		@error
										;
										; Version 1.  Preserve the data pointer
										; currently used in the DIB and replace
										; it with a pointer to the USER supplied
										; Data Chaining instructions.
										;
				clc
				ldy		#dib.trx_ptr
				lda		[dib_ptr],y
				sta		|dib_data_struct

				lda		<buff_ptr
				adc		#ds.DCcode		;Offset to first D.C. Data
				sta		[dib_ptr],y

				ldy		#dib.trx_ptr+2
				lda		[dib_ptr],y
				sta		|dib_data_struct+2

				lda		<buff_ptr+2
				adc		#^ds.DCcode
				sta		[dib_ptr],y
										;
										; Set flag to indicate that D.C. Commands
										; were used and that we need to restore
										; the pointer in the DIB to the normal
										; data descriptor.  Also set the flag to
										; indicate that we need to check the first
										; buffer pointer for Zero.
										;
				dec		|uses_dc
				dec		@chk_zero
										;
										; Do the rest normally and check the above
										; flag later.
										;
@version_0		clc
				lda		<buff_ptr
				adc		#$0002
				sta		<scsi_mdrvr

				lda		<buff_ptr+2
				adc		#null
				sta		<scsi_mdrvr+2
										;
										; Check the buffer pointer for Null.
										;
				ldy		#$000C
				lda		[scsi_mdrvr],y
				sta		<buff_ptr
				ldy		#$000C+2
				lda		[scsi_mdrvr],y
				sta		<buff_ptr+2
										;
										; Check First Buffer for $00000000
										;
				ora		<buff_ptr
				bne		@DH_Branch
				lda		@chk_zero
				bne		@error
										;
										; Call Main Driver
										;
@DH_Branch		lda		#scsit_stat
				sta		|call_type
				jsr		|main_drvr

;-------------------------------------------------------------------------------

				IF		scsi_dtype	=	apple_cd	THEN

				bcc		@no_cd_error
				lda		auto_sense_data+\	;Was it an $82, $84, or $85 Error?
						rqst_sens.addnl_sens_code
				and		#$00ff
				cmp		#$0082			;Checking for $82 (End of User Area)
				beq		@eua
				cmp		#$0084			;Checking for $84 (Illegal Mode)
				beq		@im
				cmp		#$0085			;Checking for $85 (Bad Audio Address)
				beq		@baa
				cmp		#$00B0			;Checking for $B0 (No Media)
				beq		@no_media
										;
										; None of those.  Return I/O Error.
										;
				lda		#$0027
				sec
				bra		@exit
										;
										; End of User Area.
										; Carry is set by CMP being equal
										;
@eua			lda		#$00F0
				bra		@exit
										;
										; Illegal Mode.
										; Carry is set by CMP being equal
										;
@im				lda		#$00F1
				bra		@exit
										;
										; Bad Audio Address.
										; Carry is set by CMP being equal
										;
@baa			lda		#$00F2
				bra		@exit
										;
										; Bad Audio Address.
										; Carry is set by CMP being equal
										;
@no_media		lda		#$002f
				bra		@exit


				ELSE

;-------------------------------------------------------------------------------

				bcs		@exit

				ENDIF

;-------------------------------------------------------------------------------

				IF		scsi_dtype	=	apple_cd	THEN

@no_cd_error

				ENDIF

;-------------------------------------------------------------------------------

										;
										; Save transfer count.
										;
				ldy		#dib.trx_len
				lda		[dib_ptr],y
				sta		@call_trns_cnt
				ldy		#dib.trx_len+2
				lda		[dib_ptr],y
				sta		@call_trns_cnt+2
										;
										; Check to see if we need to handle
										; a Disk Switched Event.  If not,
										; then exit.
										;
				lda		|disk_switch
				bpl		@exit
										;
										; Don't Trash the Volumes.
										;
				jsr		rebld_dibs		;Issues a DISK_SW for each rebuilt DIB.
										;
										; Restore Direct Page Values.
										;
@exit			pha
				php
										;
										; Check the D.C. Flag
										;
				lda		|uses_dc
				beq		@set_our_zp

				ldy		#dib.trx_ptr
				lda		|dib_data_struct
				sta		[dib_ptr],y

				ldy		#dib.trx_ptr+2
				lda		|dib_data_struct+2
				sta		[dib_ptr],y
				
				stz		|uses_dc		;Reset Flag

@set_our_zp		jsr		set_our_dp
										;
										; Set transfer count.
										;
				lda		@call_trns_cnt
				sta		<trans_cnt
				lda		@call_trns_cnt+2
				sta		<trans_cnt+2
										;
										; Exit.
										;
				plp
				pla
				rts
										;
										; Data Area.
										;
@call_trns_cnt	dc.l	null			;Transfer count before we stepped on it.
@chk_zero		dc.w	null			;Check first DCMove Flag.

				ENDP

				EJECT
			
;*******************************************************
;
;	
;
;	Called via 'JSR'
;
;	Inputs:		[dib_ptr]	=	Target DIB	l	(LONG)
;				Acc			=	Unspecified
;				Carry		=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Returns via 'RTS'
;
;	Outputs:	Acc			=	0
;				Carry		=	0
;	or
;				Acc			=	Error
;				Carry		=	1
;
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Errors:		See Spec.
;
;*******************************************************
			
				EXPORT	dvc_status
dvc_status		PROC
										;
										; Get Device Status Call
										;
				lda		<rqst_cnt+2
				bne		@do_max
				lda		<rqst_cnt
				cmp		#$0007
				blt		@no_odds
@do_max			lda		#$0006
@no_odds		lsr		a				;0 --> Bit 15, Bit 0 --> Carry
				bcs		@bad_rqst_cnt	;No odd byte transfers
				asl		a				;Carry <-- Bit 15, Bit 0 <-- 0
				sta		<trans_cnt
				stz		<trans_cnt+2
				bne		@at_least_2
				jmp		@clc
										;
										; Bad Request Count.
										;
@bad_rqst_cnt	lda		#drvr_bad_cnt
				rts
										;
										; Init Status to $0000
										;
@at_least_2		stz		@dvc_stat
										;
										; Is the Device Linked?
										;
				ldy		#dib.dvcchar

				lda		[dib_ptr],y
				and		#linked_dvc
				beq		@no_link		;No.

				lda		#bit_14			;Yes. Set the bit
				tsb		@dvc_stat
										;
										; Is the device busy with a pending call?
										;
@no_link		ldy		#dib.dvcflag

				lda		[dib_ptr],y
				and		#int_busy
				beq		@not_busy		;No.

;-------------------------------------------------------------------------------

				IF		character_dvc = true	THEN

										;
										; If the device is a character device,
										; and it's busy, then also set the Buffer
										; Not Empty Flag.
										;
				lda		#bit_13\
						++bit_5			;Yes. Set the bits
				tsb		@dvc_stat

				ENDIF

;-------------------------------------------------------------------------------

				IF		block_dvc = true	THEN

				lda		#bit_13			;Yes. Set the bit
				tsb		@dvc_stat

				ENDIF

;-------------------------------------------------------------------------------

										;
										; Is the Device Online?
										;
@not_busy		ldy		#dib.dvcflag

				lda		[dib_ptr],y
				and		#dvc_online
				beq		@not_online2	;No. Skip Switch flag.

				lda		[dib_ptr],y		;Also Check Hard Offline
				and		#dvc_hardofl	;Is it hard offline?
				bne		@not_online		;Yes. Do switch flag

				lda		#bit_4			;Online, Set the bit
				tsb		@dvc_stat

				lda		[dib_ptr],y		;Also Check switch flag
				and		#dvc_switch		;Is it Switched?
				pha

				lda		[dib_ptr],y		;Clear Switch Flag.
				and		#dvc_switch--\
						$ffff
				sta		[dib_ptr],y

				pla
				bne		@not_online1	;Yes. Do switch flag

				bra		@online			;Skip the following mess.

@not_online
										;
										; If the device's Online Flag is set
										; and it's Hard Offline Flag is also
										; set, then we will treat this as a
										; disk switch.
										;
				lda		[dib_ptr],y
				and		#dvc_online++\
						dvc_switch--\
						$ffff
				sta		[dib_ptr],y

@not_online1	lda		#bit_0
				tsb		@dvc_stat

@not_online2

@online

;-------------------------------------------------------------------------------

				IF		block_dvc = true	THEN

										;
										; If the device is a block device, is
										; the Device Write Protected?
										;
				ldy		#dib.dvcchar

				lda		[dib_ptr],y
				and		#write_allow
				bne		@writeable		;No.

				lda		#bit_2			;Yes. Set the bit
				tsb		@dvc_stat

				ENDIF

;-------------------------------------------------------------------------------

@writeable

;-------------------------------------------------------------------------------

				IF		block_dvc = true	THEN

										;
										; If the device is a block device, has
										; the Device been switched?
										;
				jsr		rqst_sense
				bcc		@no_error
				jmp		@switch			;Yes!
										;
										; The following lines of code commented
										; by a '****' were added because of an
										; SCSI Device that returned no error when
										; there was no media on line.  This was
										; not the correct thing for the device to
										; do.  Shame on him.  What we needed to do
										; to correct this was to get the offline
										; flag, then check to see if the device
										; returned an error.  If an error is
										; returned, then we process it normally.
										; If no error was returned and the device
										; is still ofline, then we treat it as a
										; device not ready error.  The offline will
										; be cleared when the device returns an 06
										; in the sense key.
										;
@no_error		ldy		#dib.dvcflag
				lda		[dib_ptr],y		;****
				and		#dvc_hardofl	;****
				tax						;****
										;****
				lda		|sense_data+\
						rqst_sens.sense_key
				bne		@chk_sense_key	;****
				txa						;****
				beq		@too_far
				jmp		@opened			;****
@too_far		jmp		@its_back		;****

@chk_sense_key	and		#$00ff
				cmp		#$0002
				bne		@chk_for_6
				jmp		@chk_switch


;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

				IF		scsi_dtype<>apple_cd	THEN

@chk_for_6		cmp		#$0006
				beq		@inserted

				ELSE

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

@chk_for_6		cmp		#$0006
				bne		@not_a_6

				lda		sense_data+\	;Was it a RESET?
						rqst_sens.addnl_sens_code
				and		#$00ff
				cmp		#$00b0			;Checking for $B0 (NO MEDIA)
				beq		@fixit
				and		#$00fe			;Checking for $28 (INSERTION)
				cmp		#$0028			;or $29 (RESET)
				beq		@inserted		;Yes it was.
@fixit			jmp		@chk_switch
										;
										; If the device is a CD_ROM device
										; then check to see if the SENSE KEY
										; = 5.  If so, then treat it as no
										; error.
										;
@not_a_6		cmp		#$0005
				bne		@its_bs
				jmp		@its_back
@its_bs
				ENDIF

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

				stz		<trans_cnt
				ora		#$ff00
				sec
				rts
										;
										; Rebuild the DIBs.
										;
@inserted
										;
										; Is this device linked?  If it is,
										; then we need to mark them all as
										; being online.
										;
										; Start at the headptr if non-zero.
										;
				ldy		#dib.headptr
				lda		[dib_ptr],y
				tax
				ldy		#dib.headptr+2
				lda		[dib_ptr],y
				bne		@set_pointer0	;Should not be bank 0
										;
										; Current pointer is the first.
										;
				lda		<dib_ptr+2
				ldx		<dib_ptr
										;
										; Set temp Zero Page Pointer
										;
@set_pointer0	stx		<scsi_zp0
				sta		<scsi_zp0+2
										;
										; Set the Flags.
										;
				ldy		#dib.dvcflag
				lda		[scsi_zp0],y
				and		#dvc_hardofl--\
						$ffff
				ora		#dvc_switch++\
						dvc_online++\
						dvc_hard_sw
				sta		[scsi_zp0],y
											;
											; If there is a forward device
											; pointer than get it.
											;
				ldy		#dib.fdvcptr
				lda		[scsi_zp0],y
				tax
				ldy		#dib.fdvcptr+2
				lda		[scsi_zp0],y
				bne		@set_pointer0

@turdy			jsr		test_unit_rdy		;Is it ready yet?
				bcc		@they_r_built		;Yes.
				lda		auto_sense_data+\	;Is there media in the drive?
						rqst_sens.addnl_sens_code
				and		#$00ff
				cmp		#$00b0				;Checking for $B0 (NO MEDIA)
				bne		@turdy				;No.
;				bcs		@turdy				;*************************

@they_r_built	

;-------------------------------------------------------------------------------

				IF			scsi_dtype <> mcd_40		THEN

				jsr		set_512_mode

				ENDIF						;scsi_dtype <> mcd_40

;-------------------------------------------------------------------------------

											;
											; Issue the READ CAPACITY Command.
											;
				jsr		read_capacity
				bcs		@no_capacity		;Was there an error?
											;
											; Get the Block Count (Stored
											; High >> Low.  Must be switched
											; to Low >> High).  This is the last
											; readable block number.  Add 1 to
											; it for comparison reasons.
											;
				lda		|block.count\
						+internal_buff\
						+2
				xba
				adc		#$0001				;Carry is Clear as a result
				sta		|t_dvc_blocks		;of the 'READ CAPACITY' Call
				lda		|block.count\
						+internal_buff
				xba
				adc		#null
				sta		|t_dvc_blocks+2

@no_capacity	jsr		rebld_dibs			;Rebuild DIBs and Issue a DISK_SW
				php							;for each
											;
											; Restore the origonal Direct Page
											; values.
											;
				jsr		set_our_dp
				plp
				bcc		@set_switch
				jsr		test_unit_rdy
				bcc		@set_switch
											;
											; For some reason, we cannot talk to the
											; device.  It must be offline.
											;
@chk_switch		ldy		#dib.dvcflag
				lda		[dib_ptr],y
				tax

				and		#dvc_hardofl
				bne		@opened

				txa
				and		#dvc_online--\
						$ffff
				ora		#dvc_hardofl
				sta		[dib_ptr],y

				lda		#bit_4				;Clear the Online bit
				trb		@dvc_stat

				lda		#bit_0				;Set the Switch bit
				tsb		@dvc_stat

				bra		@opened
										;
										; Set Online Bit.  If dvc_hard_sw is
										; set, then clear it and return the
										; disk switch bit.
										;
@its_back		lda		[dib_ptr],y
				pha
				and		#dvc_hard_sw
				tax
				pla
				and		#dvc_hard_sw--\
						$ffff
				sta		[dib_ptr],y
				txa
				bne		@set_switch
				bra		@opened			;Back in business

@switch									;
										; Is this device linked?  If it is,
										; then we need to mark them all as
										; being offline.
										;
										; Start at the headptr if non-zero.
										;
				ldy		#dib.headptr
				lda		[dib_ptr],y
				tax
				ldy		#dib.headptr+2
				lda		[dib_ptr],y
				bne		@set_pointer2	;Should not be bank 0
										;
										; Current pointer is the first.
										;
				lda		<dib_ptr+2
				ldx		<dib_ptr
										;
										; Set temp Zero Page Pointer
										;
@set_pointer2	stx		<scsi_zp0
				sta		<scsi_zp0+2
										;
										; Set the Flags.
										;
				ldy		#dib.dvcflag
				lda		[scsi_zp0],y
				ora		#dvc_switch++\
						dvc_online++\
						dvc_hard_sw
				and		#dvc_online--\
						$ffff
				sta		[scsi_zp0],y
										;
										; If there is a forward device
										; pointer than get it.
										;
				ldy		#dib.fdvcptr
				lda		[scsi_zp0],y
				tax
				ldy		#dib.fdvcptr+2
				lda		[scsi_zp0],y
				bne		@set_pointer2
				
										;
										; Set the Switched Bit in Status
										;
@set_switch		lda		#bit_0			;Yes. Set the bit
				tsb		@dvc_stat
										;
										; No forward pointer.  Continue on.
										;
				ENDIF

;-------------------------------------------------------------------------------

@opened

;-------------------------------------------------------------------------------

				IF		character_dvc = true	THEN
										;
										; If the device is a character device,
										; has the Device been opened?
										;
				lda		|open_flag
				beq		@not_open		;No.

				lda		#bit_0			;Yes. Set the bit
				tsb		@dvc_stat

@not_open

				ENDIF

;-------------------------------------------------------------------------------

										;
										; If it is switched, then call disk switch.
										;
				lda		@dvc_stat
				and		#bit_0+bit_4	;If Online Bit is set then
				cmp		#bit_0			;don't call disk switch
				bne		@no_call
				jsr		set_disk_sw
										;
										; Return the combined flags.
										; 
@no_call		lda		<rqst_cnt+2
				bne		@its_big
				lda		<rqst_cnt
				beq		@clc
				cmp		#$0007
				blt		@no_odds_1
@its_big		lda		#$0006
@no_odds_1		and		#$fffe			;No odd byte transfers
				sta		<trans_cnt
				stz		<trans_cnt+2

				tax
				lda		@dvc_stat
				sta		[buff_ptr]
										;
										; Return the Block Count.
										;
				dex
				dex
				beq		@clc

				ldy		#dib.blkcnt
				lda		[dib_ptr],y
				ldy		#$0002
				sta		[buff_ptr],y

				dex
				dex
				beq		@clc

				ldy		#dib.blkcnt+2
				lda		[dib_ptr],y
				ldy		#$0004
				sta		[buff_ptr],y
										;
										; Exit real nice like.
										;
@clc			clc
				rts
										;
										; Data for this call.
										;
@dvc_stat		dc.w	null

				ENDP

				EJECT
			
;*******************************************************
;
;	'g_config_parms'
;
;	Called via 'JSR'
;
;	Inputs:		[dib_ptr]	=	Target DIB	l	(LONG)
;				Acc			=	Unspecified
;				Carry		=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Returns via 'RTS'
;
;	Outputs:	Acc			=	0
;				Carry		=	0
;	or
;				Acc			=	Error
;				Carry		=	1
;
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Errors:		See Spec.
;
;*******************************************************

				EXPORT	g_config_parms
g_config_parms	PROC
										;
										; Get Config Parms Call
										;
				lda		#null
				sta		<trans_cnt
				sta		<trans_cnt+2
				clc
				rts

;-------------------------------------------------------------------------------

				IF			scsi_dtype = direct_acc	THEN

				INCLUDE		'SCSI Get Vol/Disk'

				ENDIF

;-------------------------------------------------------------------------------

				ENDP

				EJECT
			
;*******************************************************
;
;	Get the current Wait/No Wait status of this device.
;	If it is a block device then no error will occur and
;	a $0000 (Wait Mode) will be returned.
;
;	Called via 'JSR'
;
;	Inputs:		[dib_ptr]	=	Target DIB	l	(LONG)
;				Acc			=	Unspecified
;				Carry		=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Returns via 'RTS'
;
;	Outputs:	Acc			=	0
;				Carry		=	0
;	or
;				Acc			=	Error
;				Carry		=	1
;
;				[buff_ptr]	=	Current Mode
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Errors:		See Spec.
;
;*******************************************************
			
				EXPORT	wait_status
wait_status		PROC
									;
									; Check the parameters list.
									; Should contain a WORD
									;
				lda		<rqst_cnt
				cmp		#$0002
				bne		@bad_parm
				sta		<trans_cnt

;-------------------------------------------------------------------------------

				IF 		block_dvc = true	THEN
									;
									; If a Block Device then return Wait Mode.
									;
				lda		#null

				ENDIF

;-------------------------------------------------------------------------------

				IF 		character_dvc = true	THEN
									;
									; Check the Current Mode
									;
				ldy		#dib.dvcflag
				lda		[dib_ptr],y
				and		#wait_mode
				bne		@wait
									;
									; Return No Wait Mode.
									;
				lda		#bit_15
				bra		@exit
									;
									; Return Wait Mode.
									;
@wait			lda		#null

				ENDIF

;-------------------------------------------------------------------------------

									;
									; Save it and exit.
									;
@exit			sta		[buff_ptr]
				lda		#null		;Clear the Acc.
				clc
				rts
									;
									; Bad Parm Error
									;
@bad_parm		lda		#drvr_bad_parm
				sec
				rts

				ENDP

				EJECT
			
;*******************************************************
;
;	Get Format Options Call
;
;	Called via 'JSR'
;
;	Inputs:		[dib_ptr]	=	Target DIB	l	(LONG)
;				Acc			=	Unspecified
;				Carry		=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Returns via 'RTS'
;
;	Outputs:	Acc			=	0
;				Carry		=	0
;	or
;				Acc			=	Error
;				Carry		=	1
;
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Errors:		See Spec.
;
;*******************************************************
			
				EXPORT	fmt_options
fmt_options		PROC

;-------------------------------------------------------------------------------

				IF			block_dvc = true\
				AND			character_dvc = false		THEN

;-------------------------------------------------------------------------------

				IF			scsi_dtype = apple_cd		THEN
											;
											; If the device is a CD_ROM, then there
											; are no format options.
				stz		<trans_cnt
				stz		<trans_cnt+2
				lda		#bad_dev_number
				sec
				rts

				ENDIF						;scsi_dtype = apple_cd

;-------------------------------------------------------------------------------

				IF			scsi_dtype = mcd_40	THEN
											;
											; If the device is a Tape, then there
											; are no format options.
				stz		<trans_cnt
				stz		<trans_cnt+2
				lda		#null
				clc
				rts

				ENDIF						;scsi_dtype = mcd_40

;-------------------------------------------------------------------------------

				IF			scsi_dtype = direct_acc	THEN
											;
											; Get Format Options Call
											;
											; It's a block device.  But is
											; it partitioned?  If it has a
											; zero start block then there is
											; no partition.
											;
				ldy		#dib.start_blk
				lda		[dib_ptr],y
				ldy		#dib.start_blk+2
				ora		[dib_ptr],y
				beq		@no_link
											;
											; Well, it is a partition.  But is it
											; the only partition.  By this, I mean,
											; is it a disk with a partition map
											; containing only two entries, one for
											; the partition map and the other for
											; a single volume?
											;
											; Is it linked?  Let's see.
											;
				ldy		#dib.dvcchar
				lda		[dib_ptr],y
				and		#linked_dvc
				bne		@linked				;Linked.
											;
											; Now check if this is the first or
											; second entry in the Partition Map.
											;
				ldy		#dib.part_blk
				lda		[dib_ptr],y
				xba
				cmp		#$0003
				blt		@no_link			;Only one partition.

@linked			stz		<trans_cnt
				stz		<trans_cnt+2
				lda		#null
				clc
				rts
											;
											; Set display count to 3
											;
@no_link		lda		#$0003
				sta		|display_cnt-2
				sta		|display_cnt
											; 
											; Issue MODE SENSE Call
											;
				jsr		mode_sense
											;
											; Check to see if the device supports
											; the page discriptors.
											;
				lda		|mode.blk_disc\
						+internal_buff
				and		#$00ff
				beq		@do_from_dib
											;
											; Not all device return the block count
											; in this call.  Shame on them.  If the
											; block count is missing, then get it
											; from the DIB.  This data is 3 bytes
											; MSB >> LSB formatted.
											;
				lda		|mode.blocks\		;High Byte
						+internal_buff\
						-1
				and		#$ff00
				ora		|mode.blocks\		;.OR.ed with the Low Word
						+internal_buff\
						+1
				beq		@do_from_dib
											;
											; MODE SENSE is legal.  Use it.
											;
											; Set Block Count in format
											; option list.
											;
				lda		|mode.blocks\
						+internal_buff\
						+1
				xba
				sta		|opt1_blk_cnt
				sta		|opt2_blk_cnt

				lda		|mode.blocks\
						+internal_buff\
						-1
				xba
				sta		|opt1_blk_cnt+2
				sta		|opt2_blk_cnt+2
											;
											; Set Block Size in format
											; option list.
											;
				lda		|mode.blk_size\
						+internal_buff\
						+1
				xba
				cmp		#$0214				;is it = 532?
				bne		@not_532			;No.
				lda		#$0200				;Yes.
@not_532		sta		|opt1_blk_siz
				sta		|opt2_blk_siz
				bra		@set_med_size
											;
											; Set Block Count in format
											; option list from DIB.
											;
@do_from_dib	ldy		#dib.blkcnt
				lda		[dib_ptr],y
				sta		|opt1_blk_cnt
				sta		|opt2_blk_cnt

				ldy		#dib.blkcnt+2
				lda		[dib_ptr],y
				sta		|opt1_blk_cnt+2
				sta		|opt2_blk_cnt+2
											;
											; Set Block Size in format
											; option list.
											;
				ldy		#dib.blksize
				lda		[dib_ptr],y
				sta		|opt1_blk_siz
				sta		|opt2_blk_siz
											;
											; Set Media Size in format
											; option list.
											;
@set_med_size	lda		|opt1_blk_cnt+3
				and		#$00ff
				sta		@t_blocks
				lda		|opt1_blk_cnt+1
				lsr		@t_blocks
				lsr		a
				lsr		@t_blocks
				lsr		a
				lsr		@t_blocks
				lsr		a
				adc		#$0000
				sta		|opt1_med_siz
				sta		|opt2_med_siz
											;
											; Get Read Capacity
											;
				jsr		read_capacity
											;
											; Set Block Size in format
											; option list.
											;
				lda		|block.size\
						+internal_buff\
						+2
				xba
				sta		|opt3_blk_siz
				cmp		#$0200
				bne		@over
											;
											; Set display count to 2
											;
				lda		#$0002
				sta		|display_cnt-2
				sta		|display_cnt
											;
											; Set Block Count in format
											; option list.
											;
@over			lda		|block.count\
						+internal_buff\
						+2
				xba
				sta		|opt3_blk_cnt

				lda		|block.count\
						+internal_buff
				xba
				sta		|opt3_blk_cnt+2
											;
											; Set Media Size in format
											; option list.
											;
				lda		|block.count\
						+internal_buff\
						-1
				xba
				sta		@t_blocks
				lda		|block.count\
						+internal_buff\
						+1
				xba
				lsr		@t_blocks
				lsr		a
				lsr		@t_blocks
				lsr		a
				lsr		@t_blocks
				lsr		a
				adc		#$0000
				sta		|opt3_med_siz
											;
											; Restore Direct Page
											;
				jsr		set_our_dp
											;
											; Check Count range
											;
				lda		<rqst_cnt+2
				bne		@do_max
				lda		<rqst_cnt
				cmp		#opt3_med_siz-\
						format_options+\
						2
				blt		@this_many
@do_max			lda		#opt3_med_siz-\
						format_options+\
						2
											;
											; Send this many bytes of the list.
											;
@this_many		sta		<trans_cnt
				stz		<trans_cnt+2
				tay
				dey
				bmi		@exit
				short
@loop			lda		format_options,y
				sta		[buff_ptr],y
				dey
				bpl		@loop
				longmx
											;
											; Exit.
											;
@exit			lda		#null
				clc
				rts
											;
											; Data Area
											;
@t_blocks		dc.w	null

				ENDIF						;scsi_dtype = direct_acc

;-------------------------------------------------------------------------------

				ENDIF						;block_dvc = true

;-------------------------------------------------------------------------------

				IF			block_dvc = false\
				AND			character_dvc = true		THEN
											;
											; If the device is a Character Device,
											; then there are no Format Options to
											; return.
											;
				stz		<trans_cnt
				stz		<trans_cnt+2
				lda		#null
				clc
				rts

				ENDIF						;character_dvc = true

;-------------------------------------------------------------------------------

				ENDP

				EJECT
			
;*******************************************************
;
;	Most be the first device in a link!!!!
;
;	Entry point to the 'Read PMap' call.  This call
;	takes the information given by the caller on direct
;	page and builds the equivilent to a Read Status Call
;	to read request count bytes starting at physical
;	block number 1.  This is done by setting the high
;	bit of the partition call flag 'f_partition'.
;
;			Block Size				=	dib.blksize
;
;	We now Build the SCSI Main Driver Command and send
;	it.
;
;	The following will be validated by the Main Driver
;	when it builds the command. 
;
;			Request Count			=	Block Size * i
;			Block Number			=	Blk Num (No Offset)
;				This is for partitions.
;
;	After calling the Main driver and if no errors were
;	encountered, then the Transfer count will be
;	updated.
;
;	Called via 'JSR'
;
;	Inputs:		[dib_ptr]	=	Target DIB	l	(LONG)
;				Acc			=	Unspecified
;				Carry		=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Returns via 'RTS'
;
;	Outputs:	Acc			=	0
;				Carry		=	0
;	or
;				Acc			=	Error
;				Carry		=	1
;
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Errors:		See Spec.
;
;*******************************************************

				EXPORT	read_p_map
read_p_map		PROC

;-------------------------------------------------------------------------------

				IF			block_dvc = true\
				AND			character_dvc = false		THEN

;-------------------------------------------------------------------------------

				IF			scsi_dtype = apple_cd		THEN
											;
											; Exit No Error.
											;
				lda		#drvr_bad_code
				sec
				rts

				ENDIF						;scsi_dtype = apple_cd

;-------------------------------------------------------------------------------

				IF			scsi_dtype = mcd_40	THEN
											;
											; Exit No Error.
											;
				lda		#drvr_bad_code
				sec
				rts

				ENDIF						;scsi_dtype = mcd_40

;-------------------------------------------------------------------------------

				IF			scsi_dtype = direct_acc	THEN

				stz		@do_532
											;
											; Set the Block size on Direct Page.
											; It is not placed there for this call,
											; and we should not rely on it being
											; left behind by the last call.
											;
				lda		#block_size
				sta		<blk_size
											;
											; Check if first DIB in link if any.
											; If it is zero, then we are already
											; there.  If not then error out.
											;
				ldy		#dib.headptr+2
				lda		[dib_ptr],y
				ldy		#dib.headptr
				ora		[dib_ptr],y
				bne		@bad_dev_num
											;
											; Let's check the request count.  If
											; this is $00000000, then exit clean
											; with no data transfered.
											;
				lda		<rqst_cnt
				ora		<rqst_cnt+2
				bne		@cnt_non_zero
				jmp		@out_of_here
											;
											; Verify Block Size.
											;
@cnt_non_zero	ldy		#dib.blksize
				lda		[dib_ptr],y			;Block Size
				cmp		<blk_size
				bne		@chk_532

				ldy		#dib.blksize+2
				lda		[dib_ptr],y
				beq		@blk_size_ok

@bad_parm		lda		#drvr_bad_parm
				sec
				rts
											;
											; Check for 532 byte block size
											;
@chk_532		tax

				lda		<blk_size
				cmp		#block_size
				bne		@bad_parm

				cpx		#$0214
				bne		@bad_parm
				dec		@do_532

@blk_size_ok
											;
											; Build the (Read Data)
											; Status Command $8008
											;
				lda		#$0001				; Sent to me Low >> High.
				xba							; I Send it out High >> Low.
				sta		|c_block_num
											;
											; Set Main Driver Pointer to
											; our data for the command.
											;
				lda		#cmd_$8008
				sta		<scsi_mdrvr
				lda		#^cmd_$8008
				sta		<scsi_mdrvr+2
											;
											; Set the Partition call flag
											;
				dec		|f_partition
											;
											; Call Main Driver
											;
				lda		#scsit_stat
				sta		|call_type
											;
											; Issue the call.
											;
				jsr		check_532_rw
				bcs		@rts
											;
											; Update Transfer Count.
											;
@out_of_here	lda		<rqst_cnt
				sta		<trans_cnt
				lda		<rqst_cnt+2
				sta		<trans_cnt+2
											;
											; Exit No Error.
											;
				lda		#$0000
				clc
				rts


@bad_dev_num	lda		#bad_dev_number
				sec
@rts			rts
											;
											; Variables and storage for short call.
											;
@do_532			dc.w	null				;532 byte block flag
											;
											; Command Data for this call.
											;
cmd_$8008		dc.b	$08
				dc.b	$00
c_block_num		dc.w	$0000
c_block_cnt		dc.b	$00
				dcb.b	7,$00

				ENDIF						;scsi_dtype = direct_acc

;-------------------------------------------------------------------------------

				ENDIF						;block_dvc = true

;-------------------------------------------------------------------------------

				IF			block_dvc = false\
				AND			character_dvc = true		THEN
											;
											; If the device is a Character Device,
											; then there are no Partitions to
											; read.
											;
				stz		<trans_cnt
				stz		<trans_cnt+2
				lda		#null
				clc
				rts

				ENDIF						;character_dvc = true

;-------------------------------------------------------------------------------

				ENDP

				EJECT
			
;*******************************************************
;
;	'g_last_rslt'
;
;	This call returns the Error code result of the last
;	call.  This used to inquire about the result of a
;	call that may have been executed asyncronously.  If
;	the device is busy with a pending call when this call
;	is issued, a DEVICE_BUSY Error will be returned.
;
;	Called via 'JSR'
;
;	Inputs:		[dib_ptr]	=	Target DIB	l	(LONG)
;				Acc			=	Unspecified
;				Carry		=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Returns via 'RTS'
;
;	Outputs:	Acc			=	0
;				Carry		=	0
;	or
;				Acc			=	Error
;				Carry		=	1
;
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;			Users Buffer	=
;			|----------------------------------------|
;	WORD	+-			GS/OS Error Code			-+
;			|----------------------------------------|
;	WORD	+-			Device ID Number			-+
;			|----------------------------------------|
;	WORD	+-			SCSI Status Code			-+
;			|----------------------------------------|
;	WORD	+-		SCSI REQUEST SENSE sense key	-+
;			|----------------------------------------|
;	LONG	+-	MSB									-+
;			+-			Information Bytes			-+
;			+-									LSB	-+
;			|----------------------------------------|
;	WORD	+-		REQUEST SENSE data length		-+
;			|----------------------------------------|
;	WORD	+-				Reserved				-+
;			|----------------------------------------|
;
;	Errors:		Device Busy.  Only if the target device
;				currently has a call pending.
;
;*******************************************************

				EXPORT	g_last_rslt
g_last_rslt		PROC
											;
											; Is this the same device?
											;
				lda		<dev_num
				cmp		|lst_rslt_id
				bne		@bad_dvc_num
											;
											; Check if the device has a call
											; pending.
											;
				ldy		#dib.dvcflag
				lda		[dib_ptr],y
				and		#int_busy
				bne		@device_busy
											;
											; Update Transfer Count.
											;
				lda		<rqst_cnt+2
				bne		@rslt_all
				lda		<rqst_cnt
				and		#$fffe				;No odd byte transfers
				beq		@exit
				cmp		#lst_rslt_scode+2-\
						lst_rslt_ec
				blt		@set_rslt

@rslt_all		lda		#lst_rslt_scode+2-\
						lst_rslt_ec
@set_rslt		sta		<trans_cnt
				tay
				lda		#null
				sta		<trans_cnt+2
											;
											; Move the Data.
											;
				dey
				dey

@loop			lda		|lst_rslt_ec,y
				sta		[buff_ptr],y
				dey
				dey
				bpl		@loop
											;
											; Exit No Error.
											;
@exit			lda		#$0000
				clc
				rts
											;
											; Errors.
											;
@device_busy	lda		#drvr_busy
				sec
@rts			rts

@bad_dvc_num	lda		#bad_dev_number
				sec
				rts

				ENDP

*** Added - 16-Feb-93 JCM

;*******************************************************
;
;	'get_target_priority'
;
;	This is skanky, this is skanky, this is skanky. Did
;	I mention that this is skanky? - jm3
;
;	This call returns the SCSI target priority (known to
;	most as the SCSI ID) for a given device. We walk the
;	SCSI Manager's internal tables to figure this out,
;	since we never need to know the ID otherwise.
;	This was added solely for Jim Murphy's convience in
;	adding a bit of new information to Finder's Get Info
;	window ("Where" card). I've always wanted an easier
;	method of getting SCSI ID's, and the Macintosh shows
;	it in it's device Icon Info, so why shouldn't we? Now
;	we will (at least when this code is done :-).
;
;	Called via 'JSR'
;
;	Inputs:		[dib_ptr]	=	Target DIB	l	(LONG)
;				Acc			=	Unspecified
;				Carry		=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Returns via 'RTS'
;
;	Outputs:	Acc			=	0
;				Carry		=	0
;	or
;				Acc			=	Error
;				Carry		=	1
;
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;			User's Buffer	=
;			|----------------------------------------|
;	WORD	+-			SCSI Target Priority		-+
;			|----------------------------------------|
;
;	Errors:		ACC = drvr_bad_cnt if user did not request
;				2 bytes as the request count
;
;*******************************************************

				EXPORT	get_target_priority
get_target_priority		PROC

				lda		<rqst_cnt+2
				bne		@bad_rqst_cnt

				lda		<rqst_cnt
				dec		a
				dec		a
				beq		@doCall

@bad_rqst_cnt	lda		#drvr_bad_cnt

				sec
				
				rts

; Force the SCSI Manager to update its internal variables so we can be assured that
; <active_sdr points to the SCSI Device Record associated with this dib and, correspondingly,
; this device.

@doCall			jsr		test_unit_rdy			;basically a dummy call, we don't care about errors

; By taking advantage of the fact that our Direct Page is $100 bytes before the SCSI Manager's,
; (it gave it to us), we can quickly get lots of cool things from it.

				tdc								;our DP is active
				clc
				adc		#$100
				sta		<scsi_zp0				;we now have the SCSI Manager's direct page. Whooee! :-)
				stz		<scsi_zp0+2

; Now we will also rely on the fact that the SCSI Manager's direct page is set up
; at $4C on like this:

active_sdr		equ		$4C						;pointer to currently active SDR

				ldy		#active_sdr
				lda		[<scsi_zp0],y
				tax
				iny
				iny
				lda		[<scsi_zp0],y
				sta		<scsi_zp0+2
				stx		<scsi_zp0
				
; Finally we have a pointer to the SDR for the target SCSI device. At offset $14 in the
; record we have the magic word - the target priority value. A single bit that's set
; within the low order byte indicates the priority.

sdr_targ_priot	equ		$14						;Target device priority

				ldy		#sdr_targ_priot			;offset to the SCSI target priority
				lda		[<scsi_zp0],y
				beq		@ouch					;if no bits are set, we're screwed, so exit now

				ldx	#-1
		
@getTheID		inx
				lsr		a
				bcc		@getTheID
				
				txa
@ouch			sta		[buff_ptr]				;stuff this value in the caller's buffer

				lda		#2						;we transferred 2 bytes
				sta		<trans_cnt
				stz		<trans_cnt+2

				dec		a						;no errors possible
				dec		a						; (was 2 - now 0 - save's a byte)
				clc

				rts
				
				ENDP

*** End - 16-Feb-93 JCM
				
				EJECT

				END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSI Filter write b/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSI Filter write
new file mode 100644
index 0000000..4d1ab34
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSI Filter write	
@@ -0,0 +1 @@
+
;*******************************************************
;
;	SCSI Driver 'Write' filter.
;
;	Written by Matt Gulick.		Started June 14,1988
;
;	Copyright Apple Computer, Inc. 1988,89
;
;*******************************************************

;*******************************************************
;
;	This file contains the 'Write' filter as defined in
;	the ERS.
;
;*******************************************************

;*******************************************************
;
;	Revision History:
;
;*******************************************************

;	June 14,	1988	File started.
;	June 21,	1988	Modified to mach the results of
;						the Code Review and added
;						register comments.

				STRING		PASCAL
				BLANKS		OFF
				PAGESIZE	70
				PRINT		NOGEN
				PRINT		NOMDIR
				MACHINE		M65816

				IMPORT		unit_state
				IMPORT		test_unit_rdy
				IMPORT		auto_sense_data
				IMPORT		main_drvr
				IMPORT		call_type
				IMPORT		w_update_cache
				IMPORT		divend
				IMPORT		divsor
				IMPORT		result
				IMPORT		max_blk_cnt
				IMPORT		divide
				IMPORT		check_532_rw

				PRINT		OFF

				INCLUDE		'scsihd.equates'
				INCLUDE		'M16.MEMORY'
				INCLUDE		'M16.UTIL'
				PRINT		ON

				EJECT
			
;*******************************************************
;
;	Main Entry point to the 'Write' filter.  This
;	"Filter" takes the information given by the caller
;	on direct page and builds the equivilent to a Write
;	Extended Control Call.  In order of appearence:
;
;			Verify that Device #	­	$0000
;			Call Number				=	$0003
;			Block Size				=	dib.blksize
;
;	We now Build the SCSI Main Driver Command and send
;	it.
;
;	The following will be validated by the Main Driver
;	when it builds the command. 
;
;			Request Count			=	Block Size * i
;			Block Number			=	Blk Num + Offset
;				This is for partitions.
;
;	After calling the Main driver and if no errors were
;	encountered, then the Transfer count will be
;	updated.
;
;	Inputs:		None.
;
;	Outputs:	Acc			=	0
;				Carry		=	0
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	GS/OS Direct Page
;				Data Bank	=	Ours
;
;	Errors:		See Spec.
;
;*******************************************************

				EXPORT	Write
Write			PROC

;-------------------------------------------------------------------------------

				IF			scsi_dtype = scanner	THEN
										;
										; Device is not writable.
										;
				lda		#drvr_bad_req
				sec
				rts

				ENDIF

;-------------------------------------------------------------------------------

				IF			scsi_dtype = apple_cd	THEN
										;
										; Device is not writable.
										;
				lda		#drvr_wrt_prot
				sec
				rts

				ENDIF

;-------------------------------------------------------------------------------

				IF			scsi_dtype <> apple_cd\
				AND			scsi_dtype <> scanner	THEN

				stz		@cache
										;
										; Is the device Removable?
										;
				ldy		#dib.dvcchar

				lda		[dib_ptr],y
				and		#removable
				beq		@write			;No.
										;
										; This device is removable.  Now we
										; need to check to see if the unit
										; has gone offline, (then we need to
										; report that to the OS) or if the
										; unit has come back online (Rebuild
										; the DIBs).
										;
				jsr		unit_state
				bcs		@rts_out
										;
										; Is the device online?
										;
				ldy		#dib.dvcflag

				lda		[dib_ptr],y
				and		#dvc_hardofl
				bne		@off_line		;Yes.

				lda		[dib_ptr],y
				and		#dvc_online
				bne		@write			;Yes.
										;
										; Device is currently offline.
										;
@off_line		lda		#drvr_off_line
				sec
@rts_out		rts
										;
										; Let's check the request count.  If
										; this is $00000000, then exit clean
										; with no data transfered.
										;
@write			lda		<rqst_cnt
				and		#$01ff			;Cheap Check for multiple of 512
				bne		@bad_rqst_cnt
				lda		<rqst_cnt
				ora		<rqst_cnt+2
				bne		@chk_max
				jmp		@completed
										;
										; Block Number is beyond the range for this disk.
										;
@out_of_range	lda		#drvr_bad_blk
				sec
				rts
										;
										; Requested Byte Count not a multiple of 512
										;
@bad_rqst_cnt	lda		#drvr_bad_cnt
				sec
				rts
										;
										; Check to see if more is being
										; requested then we can give him.
										;
@chk_max		lda		<rqst_cnt
				sta		|divend
				lda		<rqst_cnt+2
				sta		|divend+2

				lda		#block_size
				sta		|divsor

				sec
				ldy		#dib.blkcnt
				lda		[dib_ptr],y
				sbc		<block_num
				sta		|max_blk_cnt

				ldy		#dib.blkcnt+2
				lda		[dib_ptr],y
				sbc		<block_num+2
				sta		|max_blk_cnt+2

				bcc		@out_of_range
				ora		|max_blk_cnt
				beq		@out_of_range

				jsr		divide
				bcs		@rts_now

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

				IF			scsi_dtype = direct_acc	THEN

										;
										; Verify Block Size.
										;
@cnt_non_zero	ldy		#dib.blksize
				lda		[dib_ptr],y		;Block Size
				cmp		<blk_size
				bne		@chk_532

				ldy		#dib.blksize+2
				lda		[dib_ptr],y
				beq		@blk_size_ok

@bad_parm		lda		#drvr_bad_parm
				sec
@rts_now		rts
										;
										; Check for 532 byte block size
										;
@chk_532		tax

				lda		<blk_size
				cmp		#block_size
				bne		@bad_parm

				cpx		#$0214
				beq		@no_cache
				bra		@bad_parm

				ELSE

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

										;
										; Verify Block Size.
										;
@cnt_non_zero	ldy		#dib.blksize
				lda		[dib_ptr],y		;Block Size
				cmp		<blk_size
				bne		@bad_parm

				ldy		#dib.blksize+2
				lda		[dib_ptr],y
				beq		@blk_size_ok

@bad_parm		lda		#drvr_bad_parm
				sec
@rts_now		rts

				ENDIF

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

@blk_size_ok

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

				IF			cache_blks = true	THEN
										;
										; Regardless of the Cache Priority,
										; we need to see if it is in the cache.
										;
										; Set flag to cache the block only if
										; it is already there.
										;
				dec		@cache

				lda		<cache_prio		;Deferred Mode?
				bmi		@deferred		;Yes.

				ENDIF

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

@no_cache
										;
										; Build the (Write Data) Status
										; Command $802A, and just in case
										; it is not accepted, we will also
										; build $800A.
										;
				lda		<block_num		; Sent to me Low >> High.
				xba						; I Send it out High >> Low.
				sta		|c_block_num_l+2
				sta		|c_block_num_s
				lda		<block_num+2
				xba	
				sta		|c_block_num_l
										;
										; Set Main Driver Pointer to
										; our data for the command.
										;
				lda		#cmd_$802A
				sta		<scsi_mdrvr
				lda		#^cmd_$802A
				sta		<scsi_mdrvr+2
										;
										; Call Main Driver
										;
				lda		#scsit_cont
				sta		|call_type

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

				IF			scsi_dtype = direct_acc	THEN
										;
										; Issue the call.
										;
				jsr		check_532_rw
				bcc		@deferred		;Everything went ok.
				cmp		#drvr_bad_code	;Was it a Bad Command?
				beq		@munge			;Yes.  Do the Munging
				brl		@crapped_out2	;No. Then get out of here.

@deferred		jmp		@completed
										;
										; At this point the extended call was not
										; excepted.  We must now issue the normal
										; version of this command.  First, we must
										; check to see if the request is within the
										; one byte block count range.  If not, we
										; will need to special process this request.
										;
										; Setup Divide routine while preserving the
										; origonal count for later.
										;
@munge			lda		<rqst_cnt
				sta		@orig_rqst
				sta		@rem_rqst
				sta		|divend
				lda		<rqst_cnt+2
				sta		@orig_rqst+2
				sta		@rem_rqst+2
				sta		|divend+2

				lda		<blk_size
				sta		|divsor

				jsr		divide
				bcc		@do_it
				rts
										;
										; Preserve Buffer pointer.  We will need to
										; bump it a few times.
										;
@do_it			lda		<buff_ptr
				sta		@orig_buff
				lda		<buff_ptr+2
				sta		@orig_buff+2
										;
										; Get result in block count.  If > $80,
										; then we need to break it into multiple
										; calls.  If not, then send it as is.
										;
				lda		|result+1
				bne		@gr8er_80
				lda		|result
				dec		a
				cmp		#$0080
				blt		@issue_call
										;
										; Set the max count for a single byte block
										; count (Block size * $80).
										;
@gr8er_80		lda		<blk_size+1
				and		#$00ff
				lsr		a
				sta		<rqst_cnt+2
				lda		<blk_size-1
				and		#$ff00
				ror		a
				sta		<rqst_cnt
										;
										; Set Main Driver Pointer to
										; our data for the command.
										;
@issue_call		lda		#cmd_$800A
				sta		<scsi_mdrvr
				lda		#^cmd_$800A
				sta		<scsi_mdrvr+2
										;
										; Call Main Driver
										;
				lda		#scsit_cont
				sta		|call_type
										;
										; Issue the call.
										;
				jsr		check_532_rw
				bcc		@did_munge
				sta		@error_loc
				lda		auto_sense_data+\
						rqst_sens.sense_key
				and		#$00ff			;Checking for $03
				cmp		#$0003			;This covers $03
				bne		@craped_out
										;
										; Some kind of I/O Error.
										;
@io_error		lda		#drvr_io
				sec
				rts

@craped_out		lda		@error_loc
@crapped_out2	and		#$7FFF
				cmp		#$7E00
				bge		@io_error
				sec
@rts_0			rts

@error_loc		dc.w	null
										;
										; Check for special processing.
										;
@did_munge								;
										; Get Transfer Result and bump values
										; for the next call.
										;
				clc
				ldy		#dib.trx_rqst
				lda		[dib_ptr],y
				sta		@trans_cnt
				adc		<buff_ptr
				sta		<buff_ptr
				ldy		#dib.trx_rqst+2
				lda		[dib_ptr],y
				sta		@trans_cnt+2
				adc		<buff_ptr+2
				sta		<buff_ptr+2
										;
										; Get remaining bytes to be transfered.
										;
				sec
				lda		@rem_rqst
				sbc		@trans_cnt
				sta		@rem_rqst
				lda		@rem_rqst+2
				sbc		@trans_cnt+2
				sta		@rem_rqst+2
				ora		@rem_rqst
				beq		@done

				clc						;Cause = values to result in Negative
				lda		@rem_rqst
				sbc		<rqst_cnt
				lda		@rem_rqst+2
				sbc		<rqst_cnt+2
				bpl		@over

				lda		@rem_rqst
				sta		<rqst_cnt
				lda		@rem_rqst+2
				sta		<rqst_cnt+2
				
										;
										;*****************************************
										;* Bump Block number.  Pay close         *
										;* attention to what this comment says.  *
										;* If you don't and you change the code  *
										;* then your on your own.  This word is  *
										;* in MSB >> LSB order.  We need to add  *
										;* $80 to it.  This is done by a simple  *
										;* increment.                            *
										;*****************************************
										;
@over			lda		|c_block_num_s
				clc
				xba
				adc		#$0080
				xba
				sta		|c_block_num_s

				brl		@issue_call
										;
										; Restore the environment.
										;
@done			lda		@orig_rqst
				sta		<rqst_cnt
				lda		@orig_rqst+2
				sta		<rqst_cnt+2

				lda		@orig_buff
				sta		<buff_ptr
				lda		@orig_buff+2
				sta		<buff_ptr+2


				ELSE

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

				jsr		|main_drvr
				bcc		@completed

;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

				IF			scsi_dtype = mcd_40	THEN

				lda		auto_sense_data+\
						rqst_sens.addnl_sens_code
				and		#$00ff			;Checking for $04, $A7, $A8, or $B0
				cmp		#$0004			;This cover $04
				beq		@not_ready
				cmp		#$0027			;This cover $27 Write Protected
				beq		@write_protect
				cmp		#$00A7			;This cover $A7
				beq		@not_ready
				cmp		#$00A8			;This cover $A8
				beq		@not_ready
				cmp		#$00B0			;This cover $B0
				beq		@not_ready

				lda		#drvr_io
				sec
				rts						;There was an error!

@write_protect	ldy		#dib.dvcchar
				lda		[dib_ptr],y
				and		#write_allow--\
						$ffff
				sta		[dib_ptr],y

				lda		#drvr_wrt_prot
				sec
				rts

@not_ready		lda		#drvr_off_line
				sec
				rts

				ENDIF

;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

				lda		#drvr_io
				rts						;There was an error!

@deferred

				ENDIF

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

										;
										; Update Transfer Count.
										;
@completed		lda		<rqst_cnt

;-------------------------------------------------------------------------------

				IF			block_dvc = true\
				AND			character_dvc = false		THEN

				and		#%1111111111111110

				ENDIF					;block_dvc = true

;-------------------------------------------------------------------------------

				sta		<trans_cnt
				lda		<rqst_cnt+2
				sta		<trans_cnt+2

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

				IF			cache_blks = true	THEN
										;
										; Check if cache bypassed.
										;
				bit		@cache
				bpl		@out_of_here	;Yes.

				clc
				lda		<cache_prio		;Deferred Mode?
				bmi		@chk_cache		;Yes.

				bne		@chk_cache		;No.

				sec						;Update only
@chk_cache		jsr		w_update_cache
				bcc		@out_of_here
				lda		<cache_prio		;Deferred Mode?
				bpl		@out_of_here	;No
				stz		@cache			;Yes. Force write skipping the cache
				jmp		@no_cache		;logic this time around.

				ENDIF

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

										;
										; Exit No Error.
										;
@out_of_here	lda		#$0000
				clc
@rts			rts

										;
										; Variables and storage for short call.
										;
@cache			dc.w	null			;Cache flag
@do_532			dc.w	null			;532 byte block flag

@orig_buff		dc.l	null			;Origonal Buffer Pointer
@orig_rqst		dc.l	null			;Origonal Request Count
@rem_rqst		dc.l	null			;Number of bytes remaining
@trans_cnt		dc.l	null			;number of bytes transfered by device
										;this time
										;
										; Command Data for this call.
										;
cmd_$800A		dc.b	$0A
				dc.b	$00
c_block_num_s	dc.w	$0000
c_block_cnt_s	dc.b	$00
				dcb.b	7,$00
										;
										; Command Data for this call.
										;
cmd_$802A		dc.b	$2A
				dc.b	$00
c_block_num_l	dc.l	$00000000
c_block_cnt_l	dcb.b	3,$00
				dcb.b	7,$00

				ENDIF

;-------------------------------------------------------------------------------

				ENDP

				EJECT
			
				END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSI Get Config b/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSI Get Config
new file mode 100644
index 0000000..e8372ea
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSI Get Config	
@@ -0,0 +1 @@
+
;*******************************************************
;
;	SCSI Driver Get Configuration Parms code.
;
;	Written by Matt Gulick.		Started June 22,1990
;
;	Copyright Apple Computer, Inc. 1990
;
;*******************************************************

;*******************************************************
;
;	This file contains the Get Configuration Parms as
;	defined in the ERS.
;
;*******************************************************

;*******************************************************
;
;	Revision History:
;
;*******************************************************

;	June 22,	1988	File started.

				IMPORT		chk_count
				IMPORT		bitmap
				IMPORT		length
				IMPORT		rqst
				IMPORT		gc_buff_ptr
				IMPORT		count
				IMPORT		temp
				IMPORT		error
				IMPORT		ddm_index
				IMPORT		pre_load_ddm
				IMPORT		pdata_block
				IMPORT		find_drvr_part

				EJECT
			
;*******************************************************
;
;	'g_config_parms'
;
;	This routine is used to get information about the
;	volume or disk in question.  If this call is issued
;	to get disk info, then the DIB Pointer must point to
;	the head DIB if this is a linked device.  Volume
;	calls should have the DIB Pointer set to the volume
;	for which the information is being requested.
;
;	The structure of the parameter list is defined in the
;	SCSI Driver ERS.  The parameters are going to depend
;	greatly on the type of device that this driver is
;	written for.  That means that the info for the Scanner
;	will not be the same in any form as that for a Hard
;	Disk, or a Tape drive.  These calls will be particular
;	for the device type supported.
;
;	Called via 'JSR'
;
;	Inputs:		[dib_ptr]	=	Target DIB			(LONG)
;				[buff_ptr]	=	Data Buffer Pointer	(LONG)
;				Acc			=	Unspecified
;				Carry		=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Returns via 'RTS'
;
;	Outputs:	Acc			=	0
;				Carry		=	0
;	or
;				Acc			=	Error
;				Carry		=	1
;
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Errors:		See Spec.
;
;*******************************************************

gcp
											;
											; Check the Request Count.  Volume calls
											; need at least 4 bytes.  Disk calls need
											; more and that will be verified there.
											;
				lda		<rqst_cnt+2
				bne		@rqst_cnt_ok
				lda		<rqst_cnt
				cmp		#$0004
				blt		@bad_cnt
											;
											; Do a mini check of the parameter list
											; to see if it is correct.
											;
@rqst_cnt_ok	lda		[buff_ptr]			;Is the Request Count = 0?
				beq		@exit_none			;Yes.  Get Zero

				cmp		#$0002				;Is the count bigger than the min
				blt		@exit_parm			;Overhead Structure? No?  Parm Error.
											;
											; Check to see if this Volume is Online.
											;
				ldy		#dib.dvcflag
				lda		[dib_ptr],y
				and		#dvc_online
				beq		@not_online
											;
											; Validate that this DIB is from
											; a Partition Map Entry.
											;
				ldy		#dib.start_blk
				lda		[dib_ptr],y
				ldy		#dib.start_blk+2
				ora		[dib_ptr],y
				beq		@exit_parm
											;
											; Check Bitmap.
											;
				ldy		#config_pl.bitmap
				lda		[buff_ptr],y
				bmi		@do_volume
				brl		do_disk
											;
											; Not from a partition.
											;
@not_online		lda		#drvr_off_line
				bra		@exit_none
											;
											; Error exit point.
											;
@bad_exit		jsr		set_our_dp
				lda		#drvr_io
				bra		@exit_none
											;
											; Error exit point.
											;
@bad_cnt		lda		#drvr_bad_cnt
				bra		@exit_none
											;
											; Use this code to exit when no data is
											; being returned.
											;
@exit_parm		lda		#drvr_bad_parm
@exit_none		stz		<trans_cnt
				stz		<trans_cnt+2
				cmp		#$0001
				rts
											;
											; Do the Volume Parms Here.
											; Acc = Bitmap on entry.
											;
@do_volume		cmp		#$8000				;All other bits must be zero or
				bne		@exit_parm			;we have a parm error.
				sta		|bitmap
											;
											; Get block that contains this
											; DIB's Partition Map Entry.
											;
				ldy		#dib.part_blk
				lda		[dib_ptr],y
				sta		|rpm_blk_num
											;
											; Tell the code that we have already
											; set the Block Number and that this
											; is not a startup call.
											;
				dec		|stat_cont			;This is from a Status or Control Call
				dec		|rebuild			;And not from a startup Call
											;
											; Issue the Read PM Block Call.
											;
				jsr		|read_pm_blk
				bcs		@bad_exit			;There was an error.
				jsr		set_our_dp
											;
											; Is what we read a Partition Map?
											;
				lda		|pm.Sig\
						+internal_buff
				cmp		#Part_sig
				bne		@bad_exit			;Bad Data Read.
											;
											; GTet the Status Byte
											;
				ldy		#config_pl.bitmap
				lda		|pm.PartStatus+2\
						+internal_buff
				xba
				and		#$00ff
				ora		|bitmap
				sta		[buff_ptr],y
											;
											; Clean Exit
											;
				lda		#$0004
				sta		<trans_cnt
				lda		#no_error
				sta		<trans_cnt+2
				clc
				rts
											;
											; Get Config Disk Calls are handled
											; here.
											;
											; Init Transfer Count to Null.  Then
											; check to be sure that this is a get
											; Config ParmList and not a Set Config
											; List.
											;
do_disk			stz		length
				stz		length+2
											;
											; Get the Request Count.We will set this
											; aside and subtract from that as data
											; is transfered.  This way we will not
											; over run their buffers.
											;
				ldy		<rqst_cnt
				sty		rqst
				ldy		<rqst_cnt+2
				sty		rqst+2

				sta		temp
				and		#$4000
				bne		@exit_parm
											;
											; Check Count. Must have a count that
											; is at least big enough to cover the
											; count and bitmap fields plus the first
											; DDM_Info field.  If not then there is
											; an error.
											;
				ldy		#config_pl.count
				sec
				lda		[buff_ptr],y
				sbc		#config_pl.vol_info\
						-config_pl.count
				sta		count
				blt		@exit_parm
											;
											; Put the first flag bit in Bit 15.
											;%00xxx00000000000
				asl		temp				;%0xxx000000000000
				asl		temp				;%xxx0000000000000
											;
											; Preserve the Users Buffer Pointer.
											;
				lda		<buff_ptr
				sta		gc_buff_ptr
				lda		<buff_ptr+2
				sta		gc_buff_ptr+2
											;
											; Pre_load the DDM if needed.
											;
				jsr		pre_load_ddm
				bcc		@ddm_loaded
				rts
											;
											; Use this code to exit when no data is
											; being returned.
											;
@exit_parm		lda		#drvr_bad_parm
				sec
				rts
											;
											; Check Set DDM Bit
											;
@ddm_loaded		asl		temp
				bcc		@chk_vol
				jsr		get_ddm
				bcs		@disk_done
											;
											; Check Get Volume Info Bit
											;
@chk_vol		jsr		|chk_count
				bcs		@disk_done
				asl		temp
				bcc		@chk_drvr
				jsr		get_vol
				bcs		@disk_done
											;
											; Check Get Driver Bit
											;
@chk_drvr		jsr		|chk_count
				bcs		@disk_done
				asl		temp
				bcc		@disk_done
				jsr		get_drvr
											;
											; All done.  Return the transfer
											; length and any error codes that
											; were encountered
											;
@disk_done		sta		error
				lda		length
				sta		<trans_cnt
				lda		length+2
				sta		<trans_cnt+2
											;
											; Replace the Buffer Pointer.
											;
				lda		gc_buff_ptr
				sta		<buff_ptr

				lda		gc_buff_ptr+2
				sta		<buff_ptr+2

				lda		error
				cmp		#$0001
				rts
											;
											; Subroutines for this code.
											;
											; The first Routine is used to Read
											; the DDM into the callers buffer.
											;
get_ddm
											;
											; Tell the Main Driver where
											; our command structure resides.
											;
				lda		#@read_ddm
				sta		<scsi_mdrvr
				lda		#^@read_ddm
				sta		<scsi_mdrvr+2
											;
											; Set the user's buffer
											;
				ldy		#config_pl.ddm_info
				clc

				lda		[buff_ptr],y
				sta		<config_tcnt
				adc		#$0004
				tax

				ldy		#config_pl.ddm_info+2

				lda		[buff_ptr],y
				sta		<config_tcnt+2
				adc		#$0000
				sta		<buff_ptr+2
				sta		<ddm_buff+2			;Incase we need it for the Driver Code
				stx		<buff_ptr
				stx		<ddm_buff			;Incase we need it for the Driver Code
											;
											; And our length from the DIB's
											; Block Size value
											;
				lda		[config_tcnt]
				cmp		#block_size+4
				beq		@over_0

@over_0			lda		#block_size
				sta		<rqst_cnt
				lda		#^block_size
				sta		<rqst_cnt+2
											;
											; Set internal command flag
											;
				dec		|internal
											;
											; Set the Partition call flag
											;
				dec		|f_partition
											;
											; Set the Call Type and Issue the
											; READ BLOCK Command.
											;
				lda		#scsit_stat
				sta		|call_type
											;
											; Issue the call.
											;
				jsr		check_532_rw
				php
											;
											; Replace the Buffer Pointer.
											;
				lda		gc_buff_ptr
				sta		<buff_ptr

				lda		gc_buff_ptr+2
				sta		<buff_ptr+2
											;
											; Check for Call Errors
											;
				plp
				bcs		@bad_exit1
											;
											; Is what we read a Driver
											; Descriptor Map?
											;
				lda		[ddm_buff]
				cmp		#DDM_sig
				bne		@bad_exit1			;Bad Data Read.
											;
											; Add in the Length
											;
				clc
				lda		#block_size
				ldy		#$0002
				sta		[config_tcnt],y

				adc		length
				sta		length

				lda		length+2
				adc		#^block_size
				sta		length+2
											;
											; Clean Exit.
											;
				lda		#$0000
				clc
				rts
											;
											; Error exit point.
											;
@bad_exit1		jsr		set_our_dp
				lda		#drvr_io
				sec
				rts
											;
											; Data for the READ BLOCK Command
											;
@read_ddm		dc.b		$08
				dc.b		null
				dc.w		null
				dcb.b		10,null
											;
											; This Routine is used to get the
											; Volume Info into the callers buffer.
											;
get_vol
											;
											; Find the Partition Map Entry that matches
											; the data blocks used in the DDM.
											;
				ldy		ddm_index
				lda		[ddm_buff],y
				sta		|pdata_block

				iny
				iny
				lda		[ddm_buff],y
				sta		|pdata_block+2
											;
											; Set the user's buffer
											;
				ldy		#config_pl.vol_info
				clc

				lda		[buff_ptr],y
				sta		<config_tcnt
				adc		#$0004
				tax

				ldy		#config_pl.vol_info+2

				lda		[buff_ptr],y
				sta		<config_tcnt+2
				adc		#$0000
				sta		<buff_ptr+2
				sta		<config_buff+2
				tay
				stx		<buff_ptr
				stx		<config_buff
											;
											; And our length from the DIB's
											; Block Size value
											;
				lda		[config_tcnt]
				cmp		#block_size+4
				beq		@over_0
											;
											; Use this code to exit when no data is
											; being sent.
											;
@exit_parm1		lda		#drvr_bad_parm
				sec
				rts

@over_0			lda		#$0001				;Start looking here.
				jsr		find_drvr_part
				php
											;
											; Replace the Buffer Pointer.
											;
				lda		gc_buff_ptr
				sta		<buff_ptr

				lda		gc_buff_ptr+2
				sta		<buff_ptr+2
											;
											; Check for Call Errors
											;
				plp
				bcs		@bad_exit1
											;
											; Is what we read a Driver
											; Descriptor Map?
											;
				lda		[config_buff]
				cmp		#Part_sig
				bne		@bad_exit1			;Bad Data Read.
											;
											; Add in the Length
											;
				clc
				lda		#block_size
				ldy		#$0002
				sta		[config_tcnt],y

				adc		length
				sta		length

				lda		length+2
				adc		#^block_size
				sta		length+2
											;
											; Clean Exit.
											;
				lda		#$0000
				clc
@rts			rts
											;
											; Error exit point.
											;
@bad_exit1		jsr		set_our_dp
				lda		#drvr_io
				sec
				rts
											;
											; Data for the READ BLOCK Command
											;
@read_vol		dc.b		$08
				dc.b		null
@read_vol_num	dc.w		null
				dcb.b		10,null
											;
											; This Routine is used to get the
											; Driver Data into the callers buffer.
											;
get_drvr
											;
											; At this point the DDM is in Memory
											; and the Zero Page Pointer 'DDM_BUFF'
											; points to it.
											;
				ldy		ddm_index
				lda		[ddm_buff],y
				and		#%0001111100000000	;Allow Byte 1, bits 0-4 to pass
				ora		#$0008				;OR in the command number
				sta		@read_drvr

				iny
				iny
				lda		[ddm_buff],y
				sta		@block_num

				iny
				iny
				lda		[ddm_buff],y
				xba
				asl		a					;Cheap Multiply by $200
				stz		<rqst_cnt
				stz		<rqst_cnt+2		
				sta		<rqst_cnt+1
											;
											; Set the user's buffer
											;
				ldy		#config_pl.driver_info
				clc

				lda		[buff_ptr],y
				sta		<config_tcnt
				adc		#$0004
				tax

				ldy		#config_pl.driver_info+2

				lda		[buff_ptr],y
				sta		<config_tcnt+2
				adc		#$0000
				sta		<buff_ptr+2
				sta		<config_buff+2
				stx		<buff_ptr
				stx		<config_buff
											;
											; And our length from the DIB's
											; Block Size value
											;
				lda		<rqst_cnt+2
				bne		@too_big
				lda		[config_tcnt]
				cmp		<rqst_cnt
				bge		@length_ok

@too_big		sec
				stz		<rqst_cnt+2
				lda		[config_tcnt]
				sbc		#$0004
				sta		<rqst_cnt
											;
											; Tell the Main Driver where
											; our command structure resides.
											;
@length_ok		lda		#@read_drvr
				sta		<scsi_mdrvr
				lda		#^@read_drvr
				sta		<scsi_mdrvr+2
											;
											; Set internal command flag
											;
				dec		|internal
											;
											; Set the Partition call flag
											;
				dec		|f_partition
											;
											; Set the Call Type and Issue the
											; READ BLOCK Command.
											;
				lda		#scsit_stat
				sta		|call_type
											;
											; Issue the call.
											;
				jsr		check_532_rw
				php
											;
											; Replace the Buffer Pointer.
											;
				lda		gc_buff_ptr
				sta		<buff_ptr

				lda		gc_buff_ptr+2
				sta		<buff_ptr+2
											;
											; Check for Call Errors
											;
				plp
				bcs		@bad_exit1
											;
											; Add in the Length
											;
				clc
				lda		<rqst_cnt
				ldy		#$0002
				sta		[config_tcnt],y

				adc		length
				sta		length

				lda		length+2
				adc		<rqst_cnt+2
				sta		length+2
											;
											; Clean Exit.
											;
				lda		#$0000
				rts
											;
											; Error exit point.
											;
@bad_exit1		jsr		set_our_dp
				lda		#drvr_io
				sec
				rts
											;
											; Data for the READ BLOCK Command
											;
@temp			dc.w		null
											;
											; Command to Read the Driver Data
											;
@read_drvr		dc.b		$08
				dc.b		null
@block_num		dc.w		null
				dcb.b		10,null

				EJECT



\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSI Get Vol_Disk b/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSI Get Vol_Disk
new file mode 100644
index 0000000..6c2c49c
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSI Get Vol_Disk	
@@ -0,0 +1 @@
+
;*******************************************************
;
;	SCSI Driver Get Volume/Disk Parms code.
;
;	Written by Matt Gulick.		Started April 17,1991
;
;	Copyright Apple Computer, Inc. 1990
;
;*******************************************************

;*******************************************************
;
;	This file contains the Get Volume/Disk Parms as
;	defined in the ERS.
;
;*******************************************************

;*******************************************************
;
;	Revision History:
;
;*******************************************************

;	April 17,	1991	File started.

				IMPORT		ddm_data
				IMPORT		drvr_size
				IMPORT		ddm_index
				IMPORT		error
				IMPORT		gc_buff_ptr

				ENTRY		pre_load_ddm
				ENTRY		find_drvr_part
				ENTRY		pdata_block

				EJECT
			
;*******************************************************
;
;	'g_vol_parms'
;
;	This routine is used to get information about the
;	volume in question.  Calls should have the DIB
;	Pointer set to the volume for which the information
;	is being requested.
;
;	The structure of the parameter list is defined in the
;	SCSI Driver ERS.  The parameters are going to depend
;	greatly on the type of device that this driver is
;	written for.  That means that the info for the Scanner
;	will not be the same in any form as that for a Hard
;	Disk, or a Tape drive.  These calls will be particular
;	for the device type supported.
;
;	Called via 'JSR'
;
;	Inputs:		[dib_ptr]	=	Target DIB			(LONG)
;				[buff_ptr]	=	Data Buffer Pointer	(LONG)
;				Acc			=	Unspecified
;				Carry		=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Returns via 'RTS'
;
;	Outputs:	Acc			=	0
;				Carry		=	0
;	or
;				Acc			=	Error
;				Carry		=	1
;
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Errors:		See Spec.
;
;*******************************************************

				EXPORT		gvp
gvp
											;
											; Check the Request Count.  We need at
											; least 4 bytes.
											;
				lda		<rqst_cnt+2
				bne		@rqst_cnt_ok
				lda		<rqst_cnt
				cmp		#$0002
				blt		@bad_cnt
											;
											; Check to see if this Volume is Online.
											;
@rqst_cnt_ok	ldy		#dib.dvcflag
				lda		[dib_ptr],y
				and		#dvc_online
				beq		@not_online
											;
											; Validate that this DIB is from
											; a Partition Map Entry.
											;
				ldy		#dib.start_blk
				lda		[dib_ptr],y
				ldy		#dib.start_blk+2
				ora		[dib_ptr],y
				beq		@exit_parm
											;
											; Get block that contains this
											; DIB's Partition Map Entry.
											;
				ldy		#dib.part_blk
				lda		[dib_ptr],y
				sta		|rpm_blk_num
											;
											; Tell the code that we have already
											; set the Block Number and that this
											; is not a startup call.
											;
				dec		|stat_cont			;This is from a Status or Control Call
				dec		|rebuild			;And not from a startup Call
											;
											; Issue the Read PM Block Call.
											;
				jsr		|read_pm_blk
				bcs		@bad_exit			;There was an error.
				jsr		set_our_dp
											;
											; Is what we read a Partition Map?
											;
				lda		|pm.Sig\
						+internal_buff
				cmp		#Part_sig
				bne		@bad_exit			;Bad Data Read.
											;
											; Get the Status Byte
											;
				lda		|pm.PartStatus+2\
						+internal_buff
				xba
				and		#$00ff
				sta		[buff_ptr]
											;
											; Clean Exit
											;
				lda		#$0002
				sta		<trans_cnt
				lda		#no_error
				sta		<trans_cnt+2
				clc
				rts
											;
											; Not from a partition.
											;
@not_online		lda		#drvr_off_line
				bra		@exit_none
											;
											; Error exit point.
											;
@bad_exit		jsr		set_our_dp
				lda		#drvr_io
				bra		@exit_none
											;
											; Error exit point.
											;
@bad_cnt		lda		#drvr_bad_cnt
				bra		@exit_none
											;
											; Use this code to exit when no data is
											; being returned.
											;
@exit_parm		lda		#drvr_bad_parm
@exit_none		stz		<trans_cnt
				stz		<trans_cnt+2
				cmp		#$0001
				rts

				EJECT
			
;*******************************************************
;
;	'g_disk_parms'
;
;	This routine is used to get information about the
;	disk in question.  The DIB Pointer must point to
;	the head DIB if this is a linked device.
;
;	The structure of the parameter list is defined in the
;	SCSI Driver ERS.  The parameters are going to depend
;	greatly on the type of device that this driver is
;	written for.  That means that the info for the Scanner
;	will not be the same in any form as that for a Hard
;	Disk, or a Tape drive.  These calls will be particular
;	for the device type supported.
;
;	Called via 'JSR'
;
;	Inputs:		[dib_ptr]	=	Target DIB			(LONG)
;				[buff_ptr]	=	Data Buffer Pointer	(LONG)
;				Acc			=	Unspecified
;				Carry		=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Returns via 'RTS'
;
;	Outputs:	Acc			=	0
;				Carry		=	0
;	or
;				Acc			=	Error
;				Carry		=	1
;
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Errors:		See Spec.
;
;*******************************************************

				EXPORT		gdp
gdp
											;
											; Check the Request Count.  Calls need
											; at least  and that will be verified there.
											;
				lda		<rqst_cnt+2
				bne		@rqst_cnt_ok
				lda		<rqst_cnt
				cmp		#$001A
				blt		@bad_cnt
											;
											; Check to see if this Volume is Online.
											;
@rqst_cnt_ok	ldy		#dib.dvcflag
				lda		[dib_ptr],y
				and		#dvc_online
				beq		@not_online
											;
											; Validate that this DIB is from
											; a Partition Map Entry.
											;
				ldy		#dib.start_blk
				lda		[dib_ptr],y
				ldy		#dib.start_blk+2
				ora		[dib_ptr],y
				bne		do_gdisk
											;
											; Not from a partition.
											;
				bra		@exit_parm
											;
											; Not from a partition.
											;
@not_online		lda		#drvr_off_line
				bra		@exit_none
											;
											; Error exit point.
											;
@bad_exit		jsr		set_our_dp
				lda		#drvr_io
				bra		@exit_none
											;
											; Error exit point.
											;
@bad_cnt		lda		#drvr_bad_cnt
				bra		@exit_none
											;
											; Use this code to exit when no data is
											; being returned.
											;
@exit_parm		lda		#drvr_bad_parm
@exit_none		stz		<trans_cnt
				stz		<trans_cnt+2
				cmp		#$0001
				rts
											;
											; Get Disk Calls are handled here.
											;
do_gdisk		stz		|error
											;
											; Preserve the Users Buffer Pointer.
											;
				lda		<buff_ptr
				sta		gc_buff_ptr
				lda		<buff_ptr+2
				sta		gc_buff_ptr+2
											;
											; If a call is unacceptable an error will
											; be returned and the transfer length
											; will reflect the buffer size that is
											; needed if the current one is too small.
											;
											; Check Get DDM Info
											;
				ldy		#disk_pl.ddm_buff_len
				lda		[buff_ptr],y
				bne		@chk_ddm_len
				ldy		#disk_pl.ddm_buff_ptr
				ora		[buff_ptr],y
				ldy		#disk_pl.ddm_buff_ptr+2
				ora		[buff_ptr],y
				bne		@bad_ddm_len
				bra		@pre_load_ddm
											;
											; Is the DDM Buffer Long enough?
											;
@chk_ddm_len	cmp		#$0200
				bge		@do_ddm
											;
											; Bad request length for the DDM
											;
@bad_ddm_len	lda		#$0200						
				ldy		#disk_pl.ddm_trns_len
				sta		[buff_ptr],y
				lda		#drvr_bad_cnt
				sta		|error
				bra		@pre_load_ddm
											;
											; Get DDM.
											;
@do_ddm			jsr		get_ddm
				bcc		@chk_vol
				brl		@disk_done
											;
											; If called, the user is not
											; requesting the DDM and we need
											; to load it into our own buffer.
											;
@pre_load_ddm	jsr		pre_load_ddm
				bcc		@chk_vol
				brl		@disk_done
											;
											; Check Get Volume Info
											;
@chk_vol		ldy		#disk_pl.vol_buff_len
				lda		[buff_ptr],y
				bne		@chk_vol_len
				ldy		#disk_pl.vol_buff_ptr
				ora		[buff_ptr],y
				ldy		#disk_pl.vol_buff_ptr+2
				ora		[buff_ptr],y
				bne		@bad_vol_len
				bra		@chk_drvr
											;
											; Is the DDM Buffer Long enough?
											;
@chk_vol_len	cmp		#$0200
				bge		@do_vol
											;
											; Bad request length for the DDM
											;
@bad_vol_len	lda		#$0200						
				ldy		#disk_pl.vol_trns_len
				sta		[buff_ptr],y
				lda		#drvr_bad_cnt
				sta		|error
				bra		@chk_drvr
											;
											; Get Volume Info.
											;
@do_vol			jsr		get_vol
				bcs		@disk_done
											;
											; Check Get Driver Info
											;
@chk_drvr		clc
				lda		|ddm_index
				adc		#$0004
				tay
				lda		[ddm_buff],y
				xba
				asl		a					;Convert Blocks to Bytes
				stz		|drvr_size
				stz		|drvr_size+2
				sta		|drvr_size+1
											;
											; Check Get Driver Bit
											;
				ldy		#disk_pl.drvr_buff_len
				lda		[buff_ptr],y
				bne		@chk_drvr_len
				ldy		#disk_pl.drvr_buff_ptr
				ora		[buff_ptr],y
				ldy		#disk_pl.drvr_buff_ptr+2
				ora		[buff_ptr],y
				bne		@bad_drvr_len
				bra		@disk_done1
											;
											; Is the DDM Buffer Long enough?
											;
@chk_drvr_len	cmp		|drvr_size
				bge		@do_drvr
											;
											; Bad request length for the DDM
											;
@bad_drvr_len	lda		|drvr_size					
				ldy		#disk_pl.drvr_trns_len
				sta		[buff_ptr],y
				lda		#drvr_bad_cnt
				bra		@disk_done
											;
											; Get Volume Info.
											;
@do_drvr		jsr		get_drvr
											;
											; All done.  Return the transfer
											; length and any error codes that
											; were encountered
											;
@disk_done		sta		|error
@disk_done1		lda		#$001A
				sta		<trans_cnt
				stz		<trans_cnt+2
											;
											; Replace the Buffer Pointer.
											;
				lda		gc_buff_ptr
				sta		<buff_ptr

				lda		gc_buff_ptr+2
				sta		<buff_ptr+2

				lda		|error
				cmp		#$0001
				rts
											;
											; Subroutines for this code.
											;
											; The first Routine is used to Read
											; the DDM into the callers buffer.
											;
get_ddm			jsr		set_drvr_ndex
											;
											; Tell the Main Driver where
											; our command structure resides.
											;
				lda		#read_ddm
				sta		<scsi_mdrvr
				lda		#^read_ddm
				sta		<scsi_mdrvr+2
											;
											; Set the user's buffer
											;
				ldy		#disk_pl.ddm_buff_ptr
				lda		[buff_ptr],y
				tax

				ldy		#disk_pl.ddm_buff_ptr+2

				lda		[buff_ptr],y
				sta		<buff_ptr+2
				sta		<ddm_buff+2			;Incase we need it for the Driver Code
				stx		<buff_ptr
				stx		<ddm_buff			;Incase we need it for the Driver Code

				lda		#block_size
				sta		<rqst_cnt
				lda		#^block_size
				sta		<rqst_cnt+2
											;
											; Set internal command flag
											;
				dec		|internal
											;
											; Set the Partition call flag
											;
				dec		|f_partition
											;
											; Set the Call Type and Issue the
											; READ BLOCK Command.
											;
				lda		#scsit_stat
				sta		|call_type
											;
											; Issue the call.
											;
				jsr		check_532_rw
				php
											;
											; Replace the Buffer Pointer.
											;
				lda		gc_buff_ptr
				sta		<buff_ptr

				lda		gc_buff_ptr+2
				sta		<buff_ptr+2
											;
											; Check for Call Errors
											;
				plp
				bcs		@bad_exit1
											;
											; Is what we read a Driver
											; Descriptor Map?
											;
				lda		[ddm_buff]
				cmp		#DDM_sig
				bne		@bad_exit1			;Bad Data Read.
											;
											; Add in the Length
											;
				lda		#block_size
				ldy		#disk_pl.ddm_trns_len
				sta		[buff_ptr],y
											;
											; Clean Exit.
											;
				lda		#$0000
				clc
				rts
											;
											; Error exit point.
											;
@bad_exit1		jsr		set_our_dp
				lda		#drvr_io
				sec
				rts
											;
											; Because all three sub-calls require a
											; DDM for information we must make sure
											; that this is available.  If they are
											; not setting the DDM we will load ity
											; from the disk.  If they are we will
											; use theirs as it is the most current.
											;
											; Check Driver Index for which Driver
											; they want and use it to set the
											; ddm_index.
											;
				EXPORT		pre_load_ddm
pre_load_ddm	jsr		set_drvr_ndex
											;
											; We need to load the DDM into the
											; internal buffer.
											;
											; Tell the Main Driver where
											; our command structure resides.
											;
				lda		#read_ddm
				sta		<scsi_mdrvr
				lda		#^read_ddm
				sta		<scsi_mdrvr+2
											;
											; Set our buffer
											;
				lda		#ddm_data
				sta		<buff_ptr
				sta		<ddm_buff
				lda		#^ddm_data
				sta		<buff_ptr+2
				sta		<ddm_buff+2
											;
											; And our Block Size value
											;
				lda		#block_size
				sta		<rqst_cnt
				lda		#^block_size
				sta		<rqst_cnt+2
											;
											; Set internal command flag
											;
				dec		|internal
											;
											; Set the Partition call flag
											;
				dec		|f_partition
											;
											; Set the Call Type and Issue the
											; READ BLOCK Command.
											;
				lda		#scsit_stat
				sta		|call_type
											;
											; Issue the call.
											;
				jsr		check_532_rw
				php
											;
											; Replace the Buffer Pointer.
											;
				lda		gc_buff_ptr
				sta		<buff_ptr

				lda		gc_buff_ptr+2
				sta		<buff_ptr+2
											;
											; Check for Call Errors
											;
				plp
				bcs		@bad_exit1

@ddm_loaded		clc
				rts
											;
											; Use this code to exit when no data is
											; being sent.
											;
@exit_parm		lda		#drvr_bad_parm
				sec
				rts
											;
											; Error exit point.
											;
@bad_exit1		jsr		set_our_dp
				lda		#drvr_io
				sec
				rts
											;
											; Command to Read the DDM if we
											; need it.
											;
read_ddm		dc.b		$08
				dc.b		null
				dc.w		null
				dcb.b		10,null
											;
											; This routine is called by both Get_DDM and Pre_Load_DDM and is used to set the index into the DDM for the requested driver.
											;
				EXPORT		set_drvr_ndex
set_drvr_ndex	ldy		#disk_pl.drvr_num
				lda		[buff_ptr],y
				and		#$000F				;Max of 15 Drivers in the DDM
				dec		a					;Dec so we can use for index
				asl		a					;*2
				asl		a					;*4
				asl		a					;*8
				clc
				adc		#$0012				;Account for the $12 bytes of header
				sta		ddm_index
				rts
											;
											; This Routine is used to get the
											; Volume Info into the callers buffer.
											;
get_vol
											;
											; Find the Partition Map Entry that matches
											; the data blocks used in the DDM.
											;
				ldy		ddm_index
				lda		[ddm_buff],y
				sta		|pdata_block

				iny
				iny
				lda		[ddm_buff],y
				sta		|pdata_block+2
											;
											; Set the user's buffer
											;
				ldy		#disk_pl.vol_buff_ptr
				lda		[buff_ptr],y
				tax

				ldy		#disk_pl.vol_buff_ptr+2

				lda		[buff_ptr],y
				sta		<buff_ptr+2
				sta		<config_buff+2
				tay
				stx		<buff_ptr
				stx		<config_buff

				lda		#$0001				;Start looking here.
				jsr		find_drvr_part
				php
											;
											; Replace the Buffer Pointer.
											;
				lda		gc_buff_ptr
				sta		<buff_ptr

				lda		gc_buff_ptr+2
				sta		<buff_ptr+2
											;
											; Check for Call Errors
											;
				plp
				bcs		@bad_exit1
											;
											; Is what we read part of a
											; Partition Map?
											;
				lda		[config_buff]
				cmp		#Part_sig
				bne		@bad_exit1			;Bad Data Read.
											;
											; Add in the Length
											;
				lda		#block_size
				ldy		#disk_pl.vol_trns_len
				sta		[buff_ptr],y
											;
											; Clean Exit.
											;
				lda		#$0000
				clc
@rts			rts
											;
											; Error exit point.
											;
@bad_exit1		jsr		set_our_dp
				lda		#drvr_io
				sec
				rts
											;
											; Data for the READ BLOCK Command
											;
@read_vol		dc.b		$08
				dc.b		null
@read_vol_num	dc.w		null
				dcb.b		10,null
											;
											; This routine will search for the
											; Partition Map entry that has the same
											; data block location as that for the
											; referenced entry in the DDM.
											;
											; Acc	= Block to start with
											; Y reg = High word of the Buffer to use
											; X reg = Low word of the Buffer to use
											;
				EXPORT		find_drvr_part
find_drvr_part
				xba
				sta		@block_num
				stx		<buff_ptr
				sty		<buff_ptr+2

											;
											; And our length.
											;
				stz		<rqst_cnt+2
				lda		#block_size
				sta		<rqst_cnt
											;
											; Tell the Main Driver where
											; our command structure resides.
											;
				lda		#@read_part
				sta		<scsi_mdrvr
				lda		#^@read_part
				sta		<scsi_mdrvr+2
											;
											; Set internal command flag
											;
@loop			dec		|internal
											;
											; Set the Partition call flag
											;
				dec		|f_partition
											;
											; Set the Call Type and Issue the
											; READ BLOCK Command.
											;
				lda		#scsit_stat
				sta		|call_type
											;
											; Issue the call.
											;
				jsr		check_532_rw
				php
											;
											; Is this the block that we want?
											;
				ldy		#pm.PyPartStart
				lda		[buff_ptr],y
				cmp		|pdata_block
				bne		@next
				ldy		#pm.PyPartStart+2
				lda		[buff_ptr],y
				cmp		|pdata_block+2
				bne		@next
											;
											; Replace the Buffer Pointer.
											;
				lda		gc_buff_ptr
				sta		<buff_ptr

				lda		gc_buff_ptr+2
				sta		<buff_ptr+2
											;
											; It's a match.  Pass it on in the Acc.
											;
				lda		@block_num
											;
											; Check for Call Errors
											;
				plp
				clc
				rts
											;
											; Not a match.  Do the next one only if
											; still in the range of the partition map.
											;
@next			plp
				lda		@block_num
				xba
				inc		a
				xba
				sta		@block_num
				ldy		#pm.MapBlkCnt+2
				cmp		[buff_ptr],y
				bne		@loop
											;
											; Not found.  Do Cleanup and exit
											; with an error.
											;
											; Replace the Buffer Pointer.
											;
				lda		gc_buff_ptr
				sta		<buff_ptr

				lda		gc_buff_ptr+2
				sta		<buff_ptr+2

				sec
				lda		#drvr_bad_blk
				rts
											;
											; Command to Read the DDM if we
											; need it.
											;
@read_part		dc.b		$08
				dc.b		null
@block_num		dc.w		null
				dcb.b		10,null

				EXPORT		pdata_block
pdata_block		dc.l	null

											;
											; This Routine is used to get the
											; Driver Data into the callers buffer.
											;
get_drvr
											;
											; At this point the DDM is in Memory
											; and the Zero Page Pointer 'DDM_BUFF'
											; points to it.
											;
				ldy		ddm_index
				lda		[ddm_buff],y
				and		#%0001111100000000	;Allow Byte 1, bits 0-4 to pass
				ora		#$0008				;OR in the command number
				sta		@read_drvr

				iny
				iny
				lda		[ddm_buff],y
				sta		@block_num

				iny
				iny
				lda		[ddm_buff],y
				xba
				asl		a					;Cheap Multiply by $200
				stz		<rqst_cnt
				stz		<rqst_cnt+2		
				sta		<rqst_cnt+1
											;
											; Set the user's buffer
											;
				ldy		#disk_pl.drvr_buff_ptr
				lda		[buff_ptr],y
				tax

				ldy		#disk_pl.drvr_buff_ptr+2

				lda		[buff_ptr],y
				sta		<buff_ptr+2
				sta		<config_buff+2
				stx		<buff_ptr
				stx		<config_buff
											;
											; Tell the Main Driver where
											; our command structure resides.
											;
@length_ok		lda		#@read_drvr
				sta		<scsi_mdrvr
				lda		#^@read_drvr
				sta		<scsi_mdrvr+2
											;
											; Set internal command flag
											;
				dec		|internal
											;
											; Set the Partition call flag
											;
				dec		|f_partition
											;
											; Set the Call Type and Issue the
											; READ BLOCK Command.
											;
				lda		#scsit_stat
				sta		|call_type
											;
											; Issue the call.
											;
				jsr		check_532_rw
				php
											;
											; Replace the Buffer Pointer.
											;
				lda		gc_buff_ptr
				sta		<buff_ptr

				lda		gc_buff_ptr+2
				sta		<buff_ptr+2
											;
											; Check for Call Errors
											;
				plp
				bcs		@bad_exit1
											;
											; Add in the Length
											;
				lda		<rqst_cnt
				ldy		#disk_pl.drvr_trns_len
				sta		[buff_ptr],y
											;
											; Clean Exit.
											;
				lda		#$0000
				rts
											;
											; Error exit point.
											;
@bad_exit1		jsr		set_our_dp
				lda		#drvr_io
				sec
				rts
											;
											; Command to Read the Driver Data
											;
@read_drvr		dc.b		$08
				dc.b		null
@block_num		dc.w		null
				dcb.b		10,null

				EJECT
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSI Main Driver b/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSI Main Driver
new file mode 100644
index 0000000..13c1ea8
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSI Main Driver	
@@ -0,0 +1 @@
+
;*******************************************************
;
;	SCSI Driver 'Main Driver'.
;
;	Written by Matt Gulick.		Started May 25,1988
;
;	Copyright Apple Computer, Inc. 1988,89
;
;*******************************************************

;*******************************************************
;
;	This file contains the 'Main Driver' as defined in
;	the ERS.
;
;*******************************************************

;*******************************************************
;
;	Revision History:
;
;*******************************************************

;	May 25,		1988	File started.
;	June 6,		1988	Turned sections into subroutines
;						and wrote the Main Driver Proper.
;	June 20,	1988	Added Register Input and Output.
;						Also included the changes from
;						the code review.
;	Oct  25,	1988	Made changes in code to reflect the
;						redesign of the SCSI Manager interface.
;

					STRING		PASCAL
					BLANKS		OFF
					PAGESIZE	70
					PRINT		NOGEN
					PRINT		NOMDIR
					MACHINE		M65816

					IMPORT		cmd_t_tbl
					IMPORT		call_type
					IMPORT		scratch0
					IMPORT		cmd_ps_tbl
					IMPORT		c_len_len
					IMPORT		c_blk_len
					IMPORT		divide
					IMPORT		result
					IMPORT		divend
					IMPORT		divsor
					IMPORT		time_cnt
					IMPORT		rout2_s_disp
					IMPORT		gsos_dpage
					IMPORT		f_partition
					IMPORT		internal
					IMPORT		disk_switch
					IMPORT		scsi_mgrnum
					IMPORT		manager_cmd
					IMPORT		cur_cmd
					IMPORT		cur_cmd2
					IMPORT		cur_group
					IMPORT		trans_dest
					IMPORT		p_block_num
					IMPORT		killer_blk
					IMPORT		trans_flag
					IMPORT		temp_x
					IMPORT		temp_y
					IMPORT		timeout_flag
					IMPORT		auto_sense_data
					IMPORT		lst_rslt_ec
					IMPORT		lst_rslt_stat
					IMPORT		lst_rslt_skey
					IMPORT		lst_rslt_info
					IMPORT		lst_rslt_rqlen
					IMPORT		lst_rslt_scode

					PRINT		OFF

					INCLUDE		'scsihd.equates'
					INCLUDE		'M16.MEMORY'
					INCLUDE		'M16.UTIL'

					PRINT		ON

					EJECT

;*******************************************************
;
;	Main Entry point to the 'Main Driver'.
;
;	The function of this code is to take the callers
;	command data and build a SCSI Command Packet.  This
;	is done using the conversion tables in the file
;	'SCSI Command Table'.  The command and other data
;	is actually built in the space that has been added
;	to the DIB and then routed to the SCSI Manager.
;
;	The routine is called with the LONG pointer to the
;	callers command data in the Direct Page location
;	'scsi_mdrvr'.  This, in conjunction with the DIB Ptr
;	at direct page location 'dib_ptr' as the address
;	for the template overlay, will be used to do the
;	following:
;
;		Transfer the callers command data to the command
;		packet.
;			Zero all 12 bytes first.
;			Validate Internal Command flag if set.
;			.OR. in all values durring translation.
;			Adjust Transfer length if needed.
;			Convert Block Number from Logical to Actual
;				If partition Flag is ­ zero then leave
;				block number unmodified.
;			Check for command errors.
;
;		Stuff SCSI Manager Flags
;
;		Stuff data in the TRX buffer data structure
;
;		Ship the call out to the SCSI Manager.
;
;		Clear Partition Call Flag.
;
;		Clear the Internal Command Flag.
;
;		Translate any SCSI errors into GS/OS errors.
;
;	Inputs:		Acc			=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Outputs:	Acc			=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Errors:		Carry set if Error.
;
;*******************************************************

					EXPORT	main_drvr
main_drvr			PROC
												;
												; Clear the Timeout flag
												;
					stz		|timeout_flag
												;
												; Clear the last error stuff
												;
					stz		|lst_rslt_ec
					stz		|lst_rslt_stat
					stz		|lst_rslt_skey
					stz		|lst_rslt_info
					stz		|lst_rslt_rqlen
					stz		|lst_rslt_scode
												;
												; Clear the Command Buffer
												;
					ldx		#max_cmd_len*2\
							-2
					ldy		#max_cmd_len*2\
							+dib.scsicmd\
							-2
					lda		#$0000
@loop				sta		[dib_ptr],y
					dey
					dey
					dex
					dex
					bpl		@loop
												;
												; Get the Curren CoMmanD and GRouP
												;
					lda		[scsi_mdrvr]
					and		#$0fff
					sta		|cur_cmd2			;Preserve Current Command Number
					and		#$00ff
					sta		|cur_cmd			;Preserve Current Command Number
					pha
												;
												; Get Offsets to Validate Command
												; Support by the device.
												;
					tax
					and		#bit_4\
							+bit_5\
							+bit_6\
							+bit_7
					lsr		a
					lsr		a
					lsr		a
					tay
					lda		|bm_cmd_offset,y
					tay
					txa
					and		#bit_0\
							+bit_1\
							+bit_2\
							+bit_3
					asl		a
					tax
					lda		[dib_ptr],y
					and		|bm_cmd_mask,x
					bne		@cmd_support
												;
												; Command Not Supported
												; by this device.
												;
					pla							;Fix Stack
					lda		#drvr_bad_code
					sec
@exit				rts
												;
												; Get the SCSI Group Number.
												;
@cmd_support		pla
					and		#bit_5\
							+bit_6\
							+bit_7
					lsr		a
					lsr		a
					lsr		a
					lsr		a
					lsr		a
					sta		|cur_group
												;
												; Set TRANSlation PoiNTer
												;
					jsr		s_trans_ptr
					bcs		@exit
												;
												; VALidate the CoMmanD TYPe
												;
					jsr		val_cmd_typ
					bcs		@exit				;Bad Command
												;
												; Set 'scsi_zp4' to scsi Command
												; in DIB
												;
					clc
					lda		<dib_ptr
					adc		#dib.scsicmd
					sta		<scsi_zp4
					lda		<dib_ptr+2
					adc		#$0000
					sta		<scsi_zp4+2
												;
												; TRANSLATE user's command data
												; into SCSI Command Packet
												;
					jsr		translate
												;
												; FINALIZE the SCSI Command Packet.
												; This includes updating the
												; requested block number to account
												; for partitioning, and the request
												; length from bytes to blocks.
												;
					jsr		finalize
					bcs		@exit
					bvs		@no_data
												;
												; Stuff SCSI Manager flags.
												;
					jsr		stuff_flag
												;
												; Build the Transmit/Receive
												; structure.
												;
					lda		#scsi_io_call		;set SCSI Manager Command to
					sta		|manager_cmd		;I/O Call.

					ldy		#dib.trx_buff		;Stuff the Buffer Pointer
					lda		<buff_ptr
					sta		[dib_ptr],y

					ldy		#dib.trx_buff+2
					lda		<buff_ptr+2
					sta		[dib_ptr],y
											;
											; Stuff the request count in both the
											; Total length and in the DCMove command.
											;
					lda		<rqst_cnt

					ldy		#dib.trx_length		;Stuff the DCMove transfer count
					sta		[dib_ptr],y

					ldy		#dib.trx_rqst		;Stuff the Requested transfer count
					sta		[dib_ptr],y

					lda		<rqst_cnt+2

					ldy		#dib.trx_length+2
					sta		[dib_ptr],y

					ldy		#dib.trx_rqst+2
					sta		[dib_ptr],y
											;
											; Mark auto sense buffer as trashed.
											;
					lda		#$ffff
					sta		|auto_sense_data
					sta		|auto_sense_data+2
											;
											; Send command to the SCSI Manager
											;
					jsr		issue_cmd
											;
											; Place Info in for Get Last Result
											; Status Call.
											;
					php
					pha

					sta		|lst_rslt_stat
											;
											; Did we get auto sense data?
											;
					lda		|auto_sense_data
					and		|auto_sense_data+2
					cmp		#$ffff
					beq		@no_sense		;No.
											;
											; Yes we did.  Setup last result
											; info incase it is needed.
											;
					lda		|auto_sense_data+\
							rqst_sens.sense_key
					and		#$00ff
					sta		|lst_rslt_skey

					lda		|auto_sense_data+\
							rqst_sens.info_bytes
					sta		|lst_rslt_info
					lda		|auto_sense_data+\
							rqst_sens.info_bytes+2
					sta		|lst_rslt_info+2

					clc
					lda		|auto_sense_data+\
							rqst_sens.addnl_sens_len
					and		#$00ff
					adc		#$0008
					sta		|lst_rslt_rqlen

					lda		|auto_sense_data+\
							rqst_sens.addnl_sens_code
					and		#$00ff
					sta		|lst_rslt_scode
											;
											; Restore Acc. Carry and Stack.
											;
@no_sense			pla
					plp
											;
											; Clear partiton call and internal
											; command flags.
											;
@no_data			stz		|f_partition
					stz		|internal
											;
											; return to Driver front end.
											;
					rts

;*******************************************************
;
; Transfer the callers command data to the command
; packet.
;
;*******************************************************

;*******************************************************
;*******************************************************
;
;	Subroutines from the Main Driver.
;
;*******************************************************
;*******************************************************

					EJECT
			
;*******************************************************
;
;	Point to Command Translation Table
;		'trans_flag'	=	Translation Flags
;		'scsi_zp2'		=	Translation Data.
;
;*******************************************************


s_trans_ptr			lda		#cmd_t_tbl
					sta		<scsi_zp2
										;
										; Find Command Translation Table for conversion
										;
@find_cmd			lda		(scsi_zp2)
					bmi		@chk_end
					cmp		|cur_cmd	;Check for 8 bits of 16 match
					beq		@got_r_cmd
					cmp		|cur_cmd2	;Check for 12 bits of 16 match
					beq		@got_r_cmd
										;
										; Goto next entry.
										;
					clc
					lda		<scsi_zp2
					adc		#$0004
					sta		<scsi_zp2
					bra		@find_cmd
										;
										; Is it really the end of the table?
										;
@chk_end			cmp		#$ffff
					beq		@no_cmd_fnd
										;
										; The Command was not found.
										; Return a Bad Command error
										;
@no_cmd_fnd			lda		#drvr_bad_code
					sec
					rts
										;
										; We found our command.  Now
										; point to the translation data.
										;
@got_r_cmd			ldy		#$0002
					lda		(scsi_zp2),y
					sta		<scsi_zp2
										;
										; Now get the Translation Flags.
										;
					lda		(scsi_zp2)
					sta		|trans_flag
										;
										; Set Timeout Factor.
										;
@check_timer		and		#scsic_tout
					beq		@not_by_block

					dec		|timeout_flag

@not_by_block		ldy		#$0002
					lda		(scsi_zp2),y
					ldy		#dib.time_out
					sta		[dib_ptr],y
										;
										; Advance pointer to translation data
										;
					clc
					lda		<scsi_zp2
					adc		#$0004			;Setup Pointer to translation data
					sta		<scsi_zp2
					rts

					EJECT
			
;*******************************************************
;
;	Check to see if this is an internal command.  If it
;	is, then the high of 'internal' must be set.
;
;	Validate that this command is a Staus Command if we
;	were called with a Status type call.  Or is it a
;	Control call with a Control Command?
;
;*******************************************************


val_cmd_typ			stz		|disk_switch		;Ensure that this flag is clear.

					lda		|trans_flag
					tay
					and		#scsic_int
					beq		@non_int		;If = then Internal Command flag = 0
					bit		|internal		;non-0.  Is it an internal command?
					bpl		@no_cmd_fnd
											;
											; Is the command a Status if entry
											; was via status, or is it a Control
											; vial control entry.  If neither
											; then error out.
											;
@non_int			tya
					and		|call_type
					beq		@no_cmd_fnd		;No match.  Error.
											;
											; Must this command be issued to the
											; first DIB of a linked device?
											;
					tya
					and		#scsic_1st
					beq		@chk_dsksw
											;
											; Check Headlink Pointer.
											;
					phy
					ldy		#dib.headlnk
					lda		[dib_ptr],y
					beq		@ply
					ldy		#dib.devnum
					cmp		[dib_ptr],y
					beq		@ply
											;
											; The Command was invalid.
											; Return a Bad Command error
											;
					ply						;Restore the stack.
@bad_dev_num		lda		#bad_dev_number
					sec
					rts
											;
											; Check to see if we need to do a
											; DISK SWITCH after this command.
											;
@ply				ply

@chk_dsksw			tya
					and		#scsic_dsw
					beq		@clc

					dec		disk_switch

@clc				clc
					rts
											;
											; The Command was invalid.
											; Return a Bad Command error
											;
@no_cmd_fnd			lda		#drvr_bad_code
					sec
@rts				rts

					EJECT
			
;*******************************************************
;
;	Is it an ASIS Command, or does it need to be
;	translated?  What ever the case, when this command
;	returns, the command data will be in it's place
;	ready for the length and block fields to be updated
;	in needed.
;
;*******************************************************


translate			lda		|trans_flag
					and		#scsid_asis
					beq		@translate
										;
										; Yes. It is as is.  Move the Command
										; bytes over.
										;
					ldy		#max_cmd_len-2
@move_cmd			lda		[scsi_mdrvr],y
					sta		[scsi_zp4],y
					dey
					dey
					bpl		@move_cmd
@rts				rts					;Return to caller.
										;
										;
										; We have gotten to this piece of code
										; because the user data is not in the
										; form accepted by the SCSI Target.
										; We need to translate the data using
										; the translation data pointed to by
										; the direct page value 'scsi_zp2' It
										; is extremely important that we .OR.
										; in all values during translation.
										;
@translate			lda		#null		;Always do the Command Byte
					bra		@over

@loop				lda		(scsi_zp2)	;Get translation Data.
					beq		@rts		;we are at the end if value = $0000
										;
										; Place High Byte in Source Offset and
										; the Low Byte in Destination Offset.
										;
@over				tay
					and		#bit_0\
							+bit_1\
							+bit_2\
							+bit_3
					sta		|trans_dest
					tya
					xba					;Move High Byte to Low Byte
					and		#bit_0\
							+bit_1\
							+bit_2\
							+bit_3
					tay
										;
										; Move Command Data.
										;
					shortm				;We only want the byte from this
					lda		[scsi_mdrvr],y
					ldy		|trans_dest	;offset.
					ora		[scsi_zp4],y
					sta		[scsi_zp4],y
					longm
										;
										; Point to next Translation Byte
										;
					clc
					lda		<scsi_zp2
					adc		#$0002
					sta		<scsi_zp2
					bra		@loop

					EJECT
			
;*******************************************************
;
;	The command Packet is now built except for some
;	minor cosmetic work.
;
;*******************************************************
											;
											; Stuff the SCSI Device ID (Our unit
											; number) and our Slot Number into the
											; commad area for the SCSI Manager.
											;
finalize
					ldy		#dib.slotnum	;***** Temp Change *****
					lda		[dib_ptr],y		;***** Temp Change *****
					ldy		#dib.scsi_slot	;***** Temp Change *****
					sta		[dib_ptr],y		;***** Temp Change *****

					ldy		#dib.unitnum
					lda		[dib_ptr],y
					and		#max_p_mask\
							--$ffff
					ldy		#dib.scsiid
					sta		[dib_ptr],y
											;
											; Set ZP3 to point to the Command
											; Packet information.  This will be
											; used to place the length and
											; block number as well as the
											; command length for the SCSI
											; Manager.
											;
					lda		|cur_group
					asl		a				;Multiply by 6
					sta		|scratch0
					asl		a
					adc		|scratch0		;Carry Clear by asl and adc.
					adc		#cmd_ps_tbl		;Carry still Clear.
					sta		<scsi_zp3
											;
											; Adjust Transfer length if needed.
											;
					lda		trans_flag
					and		#scsid_blk++\	;Convert Trans Count to Blocks
							scsid_byte++\	;Leave Trans Count in Bytes
							scsid_none		;Transfer count does not go in CMD

					cmp		#scsid_none		;Is the Request length in the command?
					beq		@blknum_jmp		;No.
					cmp		#scsid_byte		;Yes.  Is it in Byte form?
					beq		@move_byte		;Yes.
					cmp		#scsid_blk		;No.  Is it in Block form?
					beq		@move_blk		;Yes.
					sec						;No. Return Bad Byte Count Error.
@bad_rqst			lda		#drvr_bad_cnt
@clv				clv						;Clear Overflow Flag
					rts

@blknum_jmp			jmp		@block_num		;No.
											;
											; If the request count = 0 then exit with
											; the overflow flag set.  This will indicate
											; that no data is to tbe transfered.  It
											; also indicates that this is not an error
											; condition.
											;
@zero_cnt			bit		@overflow
					clc
					rts

@overflow			dc.w	$4000
											;
											; Convert Request Count to Blocks.
											;
@move_blk			lda		<rqst_cnt		;Setup Divide Routine.
					sta		|divend

					ora		<rqst_cnt+2		;Check for zero request from block device.
					beq		@zero_cnt

					lda		<rqst_cnt+2
					sta		|divend+2

					ldy		#dib.blksize
					lda		[dib_ptr],y
					sta		|divsor

					jsr		divide
					bcs		@clv
											;
											; Get requested Length in blocks and
											; goto stuff routine. Also stuff for
											; timeout calculation if needed.
											;
					ldx		|result
					stx		|time_cnt
					ldy		|result+2
					sty		|time_cnt+2

					bra		@stuff_len
											;
											; Get requested length in bytes and goto
											; stuff routine.
											;
@move_byte			ldx		<rqst_cnt
					ldy		<rqst_cnt+2
											;
											; Clear timeout Values.
											;
					stz		|time_cnt
					stz		|time_cnt+2

;*******************************************************
;
;	Transfer request length to command packet.
;
;*******************************************************

@stuff_len			sty		|temp_y			;Save 32 bit transfer length for later
					stx		|temp_x
					short					;Goto 8 bit Acc
					ldy		#<c_len_len		;Get offset into command packet description
					lda		(scsi_zp3),y	;table and get Length of length field
					tax
											;
											; Check byte count so that any value greater
											; than the max will be represented by the
											; max.
											;
					lda		|temp_y+1
					beq		@byte_3_ok
					lda		#$ff
					stz		|temp_y+1
					sta		|temp_y
					sta		|temp_x+1
					sta		|temp_x
@byte_3_ok			cpx		#$03
					bge		@count_ok

					lda		|temp_y
					beq		@byte_2_ok
					lda		#$ff
					stz		|temp_y
					sta		|temp_x+1
					sta		|temp_x
@byte_2_ok			cpx		#$02
					beq		@count_ok

					lda		|temp_x+1
					beq		@byte_1_ok
					lda		#$ff
					stz		|temp_x+1
					sta		|temp_x
@byte_1_ok			cpx		#$01
					beq		@count_ok

					stz		|temp_x

@count_ok			dey
					lda		(scsi_zp3),y	;and the offset to the end of the length
					tay						;field
					lda		|temp_x			;Stuff the Low byte of the length
					ora		[scsi_zp4],y
					sta		[scsi_zp4],y
					dex
					beq		@exit_len		;Do Block Number.
					dey
					lda		|temp_x+1		;Stuff the Mid-Low byte of the
					ora		[scsi_zp4],y	;length if used.
					sta		[scsi_zp4],y
					dex
					beq		@exit_len		;Do Block Number.
					dey
					lda		|temp_y			;Stuff the Mid-High byte of the
					ora		[scsi_zp4],y	;length if used.
					sta		[scsi_zp4],y
					dex
					beq		@exit_len		;Do Block Number.
					dey
					lda		|temp_y+1		;Stuff the High byte of the
					ora		[scsi_zp4],y	;length if used.
					sta		[scsi_zp4],y
									;
									; Clean up Processor.
									;
@exit_len			longmx

;*******************************************************
;
;	Convert Block Number from Logical to Actual If
;	partition Flag is ­ zero then leave block number
;	unmodified.
;
;*******************************************************

@block_num			lda		|trans_flag		;Does it have a block number in the
					and		#scsit_blk		;command packet?
					beq		@exit_blk1		;No.
											;
											; Is this a partition Map call?
											;
					bit		|f_partition	;Get the partition call flag.
					bmi		@exit_blk1		;It's a partition map call.
											;
											; It has a block number and is not a
											; partition map command.  Translate
											; that logical block number to a
											; physical number.
											;
					ldy		#dib.start_blk+2
					lda		[dib_ptr],y
					sta		|p_block_num\	;Stored High È Low
							-dib.start_blk,y
					ldy		#dib.start_blk
					lda		[dib_ptr],y
					sta		|p_block_num\	;Stored High È Low
							-dib.start_blk,y
											;
											; Zero out starting block number space.
											; This space is used to retrieve the
											; starting block number for a call incase
											; it is needed.  An example of this is a
											; device specific write type call that is
											; going to update blocks that might be in
											; the cache.  If this happens, then this
											; will be used as a starting point from
											; whence to kill those blocks that are in
											; the cache.
											;
					stz		|killer_blk
					stz		|killer_blk+2
											;
											; We now have the block offset where we
											; need it.
											;
					short					;Goto 8 bit Acc
					ldy		#<c_blk_len		;Get offset into command packet description
					lda		(scsi_zp3),y	;table and get Length of block field
					tax
					dey
					lda		(scsi_zp3),y	;and the offset to the end of the block
					tay						;field
					clc
					lda		[scsi_zp4],y	;adjust the Low byte of block num.
					sta		|killer_blk
					adc		|p_block_num+3	;add the physical block offset.
					sta		[scsi_zp4],y
					dex
					beq		@exit_blk		;Do Block Number.
					dey
					lda		[scsi_zp4],y	;adjust the Mid-Low byte of block num.
					sta		|killer_blk+1
					adc		|p_block_num+2	;add the physical block offset.
					sta		[scsi_zp4],y
					dex
					beq		@exit_blk		;Do Block Number.
					dey
					lda		[scsi_zp4],y	;adjust the Mid-High byte of block num.
					sta		|killer_blk+2
					adc		|p_block_num+1		;add the physical block offset.
					sta		[scsi_zp4],y
					dex
					beq		@exit_blk			;Do Block Number.
					dey
					lda		[scsi_zp4],y		;adjust the High byte of block num.
					sta		|killer_blk+3
					adc		|p_block_num		;add the physical block offset.
					sta		[scsi_zp4],y
												;
												; Clean up Processor.
												;
@exit_blk			longmx
												;
												; Check for Block Number overflow
												; (Carry Set)
												;
					bcc		@exit_blk2
					lda		#drvr_bad_req
					rts
			
@exit_blk1			clc
@exit_blk2			clv							;Clear no data flag
					rts

					EJECT
			
;*******************************************************
;
;	Stuff Flags for SCSI Manager
;
;*******************************************************

stuff_flag

;-------------------------------------------------------------------------------

					IF		scsi_dtype = mcd_40	THEN
									;
									; It is a Direct Access Magnetic
									; Tape Device.
									;
					lda		#$8000

					ELSE

;-------------------------------------------------------------------------------

									;
									; It is not a Direct Access Magnetic
									; Tape Device.
									;
					lda		#$0000

					ENDIF

;-------------------------------------------------------------------------------

					ldy		#dib.scsic_flgs
					sta		[dib_ptr],y
					rts

					EJECT
			
;*******************************************************
;
;	Call the SCSI Manager VIA the Supervisory Dispatcher.
;
;*******************************************************
issue_cmd
										;
										; Set Timeout Factor.
										;
				lda		|timeout_flag
				beq		@over
										;
										; Adjust Time Out Value.
										;
				ldy		#dib.time_out
				lda		[dib_ptr],y
				sta		@time_mult

				lda		|time_cnt+2
				bne		@do_max_time
				lda		|time_cnt
				stz		|time_cnt
				beq		@do_max_time

@mult_loop		lsr		@time_mult
				bcc		@shift

				php
				clc
				adc		|time_cnt
				sta		|time_cnt
				bcs		@fix
				cmp		#max_timeout
				bge		@fix
				plp

@shift			beq		@save
				asl		a
				bcc		@mult_loop
				bra		@do_max_time

@time_mult		dc.w	null

@fix			plp

@do_max_time	lda		#max_timeout
@save			ldy		#dib.time_out
				sta		[dib_ptr],y
										;
										; Setup the pointer to our Command
										; list within the DIB on GS/OS Direct
										; Page
										;
@over			ldx		|gsos_dpage
				clc
				lda		<dib_ptr

;				adc		#dib.scsiid
				adc		#dib.scsi_slot

				sta		>smgr_pl_ptr,x
				lda		<dib_ptr+2

;				adc		#^dib.scsiid
				adc		#^dib.scsi_slot

				sta		>smgr_pl_ptr+2,x
										;
										; Call the SCSI Manager via the
										; S_DISPATCHER
										;
				lda		|scsi_mgrnum	;Get the Managers ID
				ldx		|manager_cmd	;Get Manager Command Number
				jmp		rout2_s_disp

				EJECT
										;
										; Bitmaps used to check
										; for command errors.
										;
										; Offset into DIB to where
										; the WORD is that holds the
										; bit for this group.
										;
bm_cmd_offset	dc.w	dib.group0		;group0	Low  WORD
				dc.w	dib.group0+2	;		High WORD
				dc.w	dib.group1		;group1	Low  WORD
				dc.w	dib.group1+2	;		High WORD
				dc.w	dib.group2		;group2	Low  WORD
				dc.w	dib.group2+2	;		High WORD
				dc.w	dib.group3		;group3	Low  WORD
				dc.w	dib.group3+2	;		High WORD
				dc.w	dib.group4		;group4	Low  WORD
				dc.w	dib.group4+2	;		High WORD
				dc.w	dib.group5		;group5	Low  WORD
				dc.w	dib.group5+2	;		High WORD
				dc.w	dib.group6		;group6	Low  WORD
				dc.w	dib.group6+2	;		High WORD
				dc.w	dib.group7		;group7	Low  WORD
				dc.w	dib.group7+2	;		High WORD
										;
										; Mask for commands $00 - $0F
										; in the low word and commands
										; $10 - $1F in the high word.
										;
bm_cmd_mask		dc.w	bit_7			;CMD $x0 Bit 7 Low Byte
				dc.w	bit_6			;CMD $x1 Bit 6 Low Byte
				dc.w	bit_5			;CMD $x2 Bit 5 Low Byte
				dc.w	bit_4			;CMD $x3 Bit 4 Low Byte
				dc.w	bit_3			;CMD $x4 Bit 3 Low Byte
				dc.w	bit_2			;CMD $x5 Bit 2 Low Byte
				dc.w	bit_1			;CMD $x6 Bit 1 Low Byte
				dc.w	bit_0			;CMD $x7 Bit 0 Low Byte
				dc.w	bit_15			;CMD $x8 Bit 7 High Byte
				dc.w	bit_14			;CMD $x9 Bit 6 High Byte
				dc.w	bit_13			;CMD $xA Bit 5 High Byte
				dc.w	bit_12			;CMD $xB Bit 4 High Byte
				dc.w	bit_11			;CMD $xC Bit 3 High Byte
				dc.w	bit_10			;CMD $xD Bit 2 High Byte
				dc.w	bit_9			;CMD $xE Bit 1 High Byte
				dc.w	bit_8			;CMD $xF Bit 0 High Byte

				ENDP

				EJECT

				END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSI Set Config b/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSI Set Config
new file mode 100644
index 0000000..6e7b5ab
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSI Set Config	
@@ -0,0 +1 @@
+
;*******************************************************
;
;	SCSI Driver Set Configuration Parms code.
;
;	Written by Matt Gulick.		Started June 22,1990
;
;	Copyright Apple Computer, Inc. 1990
;
;*******************************************************

;*******************************************************
;
;	This file contains the Set Configuration Parms as
;	defined in the ERS.
;
;*******************************************************

;*******************************************************
;
;	Revision History:
;
;*******************************************************

;	June 22,	1988	File started.

				EJECT
				IMPORT	ddm_data
			
;*******************************************************
;
;	's_config_parms'
;
;	This routine is used to set information about the
;	volume or disk in question.  If this call is issued
;	to set disk info, then the DIB Pointer must point to
;	the head DIB if this is a linked device.  Volume
;	calls should have the DIB Pointer set to the volume
;	for which the information is being requested.
;
;	The structure of the parameter list is defined in the
;	SCSI Driver ERS.  The parameters are going to depend
;	greatly on the type of device that this driver is
;	written for.  That means that the info for the Scanner
;	will not be the same in any form as that for a Hard
;	Disk, or a Tape drive.  These calls will be particular
;	for the device type supported.
;
;	Called via 'JSR'
;
;	Inputs:		[dib_ptr]	=	Target DIB			(LONG)
;				[buff_ptr]	=	Data Buffer Pointer	(LONG)
;				Acc			=	Unspecified
;				Carry		=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Returns via 'RTS'
;
;	Outputs:	Acc			=	0
;				Carry		=	0
;	or
;				Acc			=	Error
;				Carry		=	1
;
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Errors:		See Spec.
;
;*******************************************************

scp
											;
											; Check the Request Count.  Volume calls
											; need at least 4 bytes.  Disk calls need
											; more and that will be verified there.
											;
				lda		<rqst_cnt+2
				bne		@rqst_cnt_ok
				lda		<rqst_cnt
				cmp		#$0004
				blt		@bad_cnt
											;
											; Do a mini check of the parameter list
											; to see if it is correct.
											;
@rqst_cnt_ok	lda		[buff_ptr]			;Is the Request Count = 0?
				beq		@exit_none			;Yes.  Send Zero

				cmp		#$0002				;Is the count bigger than the min
				blt		@exit_parm			;Overhead Structure? No?  Parm Error.
											;
											; Check to see if this Volume is Online.
											;
				ldy		#dib.dvcflag
				lda		[dib_ptr],y
				and		#dvc_hardofl
				bne		@not_online
											;
											; Validate that this DIB is from
											; a Partition Map Entry.
											;
				ldy		#dib.start_blk
				lda		[dib_ptr],y
				ldy		#dib.start_blk+2
				ora		[dib_ptr],y
				beq		@exit_parm
											;
											; Check Bitmap.
											;
				ldy		#config_pl.bitmap
				lda		[buff_ptr],y
				bmi		@do_volume
				brl		do_disk
											;
											; Not from a partition.
											;
@not_online		lda		#drvr_off_line
				bra		@exit_none
											;
											; Error exit point.
											;
@bad_exit		jsr		set_our_dp
				lda		#drvr_io
				bra		@exit_none
											;
											; Error exit point.
											;
@bad_cnt		lda		#drvr_bad_cnt
				bra		@exit_none
											;
											; Use this code to exit when no data is
											; being returned.
											;
@exit_parm		lda		#drvr_bad_parm
@exit_none		stz		<trans_cnt
				stz		<trans_cnt+2
				cmp		#$0001
				rts
											;
											; Do the Volume Parms Here.
											; Acc = Bitmap on entry.
											;
@do_volume		sta		|bitmap
				and		#vconf_resv2++\
						vconf_resv3++\		;Check Bits that are not supported
						vconf_resv4++\		;at this time.
						vconf_resv5++\
						vconf_resv6
				bne		@exit_parm			;If unsupported bit set then error out.
											;
											; Check for Remount Bit
											;
				lda		|bitmap
				and		#vconf_remount
				beq		@next_0
				jsr		remount_vol
											;
											; Check Status Bits Flag.  If set, then we
											; use the low byte of this word to set the
											; status bits in the Partition Map and in
											; the DIB Status.
											;
@next_0			lda		|bitmap
				and		#vconf_set_stat
				beq		@next_1
				jsr		set_stat_bits

@next_1			bcs		@rts
				lda		#$0004
				sta		<trans_cnt
				lda		#null
				sta		<trans_cnt+2
				clc
@rts			rts
											;
											; Routines used by the above code to
											; perform the requested task.
											;
remount_vol
											;
											; Mark this DIB as Switched and Hard
											; Offline.
											;
				ldy		#dib.dvcflag
				lda		[dib_ptr],y
				ora		#dvc_online++\
						dvc_switch
				and		#dvc_hardofl--\
						$ffff
				sta		[dib_ptr],y
											;
											; Generate a Disk Switched Event
											;
				jsr		set_disk_sw
											;
											; Clean Exit.
											;
				rts

set_stat_bits
											;
											; Set the Status Bits in the Partition
											; Map entry to mach those supplied by
											; this call.
											;
											; Check to see if this Volume is Online.
											;
				ldy		#dib.dvcflag
				lda		[dib_ptr],y
				and		#dvc_online
				beq		@not_online
											;
											; Validate that this DIB is from
											; a Partition Map Entry.
											;
				ldy		#dib.start_blk
				lda		[dib_ptr],y
				ldy		#dib.start_blk+2
				ora		[dib_ptr],y
				bne		@over
											;
											; Not from a partition.
											;
				lda		#drvr_bad_parm
				sec
				rts
											;
											; Not from a partition.
											;
@not_online		lda		#drvr_off_line
				sec
				rts
											;
											; Get block that contains this
											; DIB's Partition Map Entry.
											;
@over			ldy		#dib.part_blk
				lda		[dib_ptr],y
				sta		|rpm_blk_num
				sta		|wpm_blk_num
											;
											; Tell the code that we have already
											; set the Block Number and that this
											; is not a startup call.
											;
				dec		|stat_cont			;This is from a Status or Control Call
				dec		|rebuild			;And not from a startup Call
											;
											; Issue the Read PM Block Call.
											;
				jsr		|read_pm_blk
				bcs		@bad_exit			;There was an error.
											;
											; Is what we read a Partition Map?
											;
				lda		|pm.Sig\
						+internal_buff
				cmp		#Part_sig
				bne		@bad_exit			;Bad Data Read.
											;
											; Set the Status Byte
											;
				lda		|bitmap
				and		#$00ff
				sta		@temp
				lda		|pm.PartStatus+2\
						+internal_buff
				xba
				and		#$ff00
				ora		@temp
				xba
				sta		|pm.PartStatus+2\
						+internal_buff
											;
											; Issue the Write PM Block Call.
											;
				jsr		|write_pm_blk
				bcc		@all_done			;There was no error.
											;
											; Error exit point.
											;
@bad_exit		jsr		set_our_dp
				lda		#drvr_io
				sec
				rts
											;
											; Clean Exit
											;
@all_done		jsr		set_our_dp

				lda		@temp				;Update the DIB.
				and		#vconf_wr_enable++\
						vconf_rd_enable
				asl		a
				sta		@temp
				ldy		#dib.dvcchar
				lda		[dib_ptr],y
				and		#write_allow++\
						read_allow--\
						$ffff
				ora		@temp
				sta		[dib_ptr],y
											;
											; Generate a Disk Switched Event
											;
				jsr		set_disk_sw

				lda		#no_error
				clc
				rts
											;
											; Data Area.
											;
@temp			dc.w	null

											;
											; Set Config Disk Calls are handled
											; here.
											;
											; Init Transfer Count to Null.  Then
											; check to be sure that this is a Set
											; Config ParmList and not a Get Config
											; List.
											;
do_disk			stz		length
				stz		length+2
											;
											; Get the Request Count.We will set this
											; aside and subtract from that as data
											; is transfered.  This way we will not
											; over run their buffers.
											;
				ldy		<rqst_cnt
				sty		rqst
				ldy		<rqst_cnt+2
				sty		rqst+2

				sta		temp
				and		#$4000
				beq		@exit_parm
											;
											; Check Count. Must have a count that
											; is at least big enough to cover the
											; count and bitmap fields plus the first
											; DDM_Info field.  If not then there is
											; an error.
											;
				ldy		#config_pl.count
				sec
				lda		[buff_ptr],y
				sbc		#config_pl.vol_info\
						-config_pl.count
				sta		count
				blt		@exit_parm
											;
											; Put the first flag bit in Bit 15.
											;%01xxx00000000000
				asl		temp				;%1xxx000000000000
				asl		temp				;%xxx0000000000000
											;
											; Preserve the Users Buffer Pointer.
											;
				lda		<buff_ptr
				sta		gc_buff_ptr
				lda		<buff_ptr+2
				sta		gc_buff_ptr+2
											;
											; Pre_load the DDM if needed.
											;
				jsr		pre_load_ddm
				bcc		@ddm_loaded
				rts
											;
											; Use this code to exit when no data is
											; being returned.
											;
@exit_parm		lda		#drvr_bad_parm
				sec
				rts
											;
											; Check Set DDM Bit
											;
@ddm_loaded		asl		temp
				bcc		@chk_vol
				jsr		set_ddm
				bcs		@disk_done
											;
											; Check Set Volume Info Bit
											;
@chk_vol		jsr		|chk_count
				bcs		@disk_done
				asl		temp
				bcc		@chk_drvr
				jsr		set_vol
				bcs		@disk_done
											;
											; Check Set Driver Bit
											;
@chk_drvr		jsr		|chk_count
				bcs		@disk_done
				asl		temp
				bcc		@disk_done
				jsr		set_drvr
											;
											; All done.  Return the transfer
											; length and any error codes that
											; were encountered
											;
@disk_done		pha
				lda		length
				sta		<trans_cnt
				lda		length+2
				sta		<trans_cnt+2
											;
											; Replace the Buffer Pointer.
											;
				lda		gc_buff_ptr
				sta		<buff_ptr

				lda		gc_buff_ptr+2
				sta		<buff_ptr+2

				pla
				cmp		#$0001
				rts
											;
											; Subroutines for this code.
											;
											; Check to see if the count contains
											; another entry.
											;
				EXPORT	chk_count
chk_count		sec
				lda		|count
				sbc		#config_pl.vol_info\
						-config_pl.ddm_info
				sta		|count
				clc
				bpl		@chk_done
				sec
@chk_done		rts
											;
											; The first Routine is used to Write
											; the DDM from the callers buffer.
											;
set_ddm
											;
											; Tell the Main Driver where
											; our command structure resides.
											;
				lda		#@write_ddm
				sta		<scsi_mdrvr
				lda		#^@write_ddm
				sta		<scsi_mdrvr+2
											;
											; Set the user's buffer
											;
				ldy		#config_pl.ddm_info
				clc

				lda		[buff_ptr],y
				sta		<config_tcnt
				adc		#$0004
				tax

				ldy		#config_pl.ddm_info+2

				lda		[buff_ptr],y
				sta		<config_tcnt+2
				adc		#$0000
				sta		<buff_ptr+2
				sta		<ddm_buff+2			;Incase we need it for the Driver Code
				stx		<buff_ptr
				stx		<ddm_buff			;Incase we need it for the Driver Code
											;
											; Is what we are writing a Driver
											; Descriptor Map?
											;
				lda		[ddm_buff]
				cmp		#DDM_sig
				bne		@bad_exit1			;Bad Data.
											;
											; And our length from the DIB's
											; Block Size value
											;
				lda		[config_tcnt]
				cmp		#block_size+4
				beq		@over_0
											;
											; Use this code to exit when no data is
											; being sent.
											;
@exit_parm1		lda		#drvr_bad_parm
				sec
				rts

@over_0			lda		#block_size
				sta		<rqst_cnt
				lda		#^block_size
				sta		<rqst_cnt+2
											;
											; Set internal command flag
											;
				dec		|internal
											;
											; Set the Partition call flag
											;
				dec		|f_partition
											;
											; Set the Call Type and Issue the
											; READ BLOCK Command.
											;
				lda		#scsit_cont
				sta		|call_type
											;
											; Issue the call.
											;
				jsr		check_532_rw
				php
											;
											; Replace the Buffer Pointer.
											;
				lda		gc_buff_ptr
				sta		<buff_ptr

				lda		gc_buff_ptr+2
				sta		<buff_ptr+2
											;
											; Check for Call Errors
											;
				plp
				bcs		@bad_exit1
											;
											; Add in the Length
											;
				clc
				lda		#block_size
				ldy		#$0002
				sta		[config_tcnt],y

				adc		length
				sta		length

				lda		length+2
				adc		#^block_size
				sta		length+2
											;
											; Clean Exit.
											;
				lda		#$0000
				clc
				rts
											;
											; Error exit point.
											;
@bad_exit1		jsr		set_our_dp
				lda		#drvr_io
				sec
				rts
											;
											; Data for the WRITE BLOCK Command
											;
@write_ddm		dc.b		$0A
				dc.b		null
				dc.w		null
				dcb.b		10,null
											;
											; Other Data Storage areas.
											;
				EXPORT		bitmap
bitmap			dc.w		null
				EXPORT		length
length			dc.l		null			;Total length of all data sent
				EXPORT		rqst
rqst			dc.l		null			;Total length of all data requested
				EXPORT		gc_buff_ptr
gc_buff_ptr		dc.l		null			;Their buffer pointer
				EXPORT		count
count			dc.w		null			;Parmlist count.  Will be adjusted as we go.
				EXPORT		temp
temp			dc.w		null
				EXPORT		error
error			dc.w		null
				EXPORT		ddm_index
ddm_index		dc.w		null			;Index Into the DDM for the rqsted DRVR
											;
											; This Routine is used to set the
											; Volume Info from the callers buffer.
											;
set_vol
											;
											; Find the Partition Map Entry that matches
											; the data blocks used in the DDM.
											;
				ldy		ddm_index
				lda		[ddm_buff],y
				sta		|pdata_block

				iny
				iny
				lda		[ddm_buff],y
				sta		|pdata_block+2

				lda		#$0001				;Start looking here.
				ldx		#internal_buff
				ldy		#^internal_buff
				jsr		find_drvr_part
				bcs		@rts
											;
											; Set the Partition Map Block Number
											; that we need to Write.
											;
				sta		@write_vol_num
											;
											; Tell the Main Driver where
											; our command structure resides.
											;
				lda		#@write_vol
				sta		<scsi_mdrvr
				lda		#^@write_vol
				sta		<scsi_mdrvr+2
											;
											; Set the user's buffer
											;
				ldy		#config_pl.vol_info
				clc

				lda		[buff_ptr],y
				sta		<config_tcnt
				adc		#$0004
				tax

				ldy		#config_pl.vol_info+2

				lda		[buff_ptr],y
				sta		<config_tcnt+2
				adc		#$0000
				sta		<buff_ptr+2
				sta		<config_buff+2
				stx		<buff_ptr
				stx		<config_buff
											;
											; Is what we are writing a Driver
											; Descriptor Map?
											;
				lda		[config_buff]
				cmp		#Part_sig
				bne		@bad_exit1			;Bad Data Read.
											;
											; And our length from the DIB's
											; Block Size value
											;
				lda		[config_tcnt]
				cmp		#block_size+4
				beq		@over_0
											;
											; Use this code to exit when no data is
											; being sent.
											;
@exit_parm1		lda		#drvr_bad_parm
				sec
@rts			rts

@over_0			lda		#block_size
				sta		<rqst_cnt
				lda		#^block_size
				sta		<rqst_cnt+2
											;
											; Set internal command flag
											;
				dec		|internal
											;
											; Set the Partition call flag
											;
				dec		|f_partition
											;
											; Set the Call Type and Issue the
											; READ BLOCK Command.
											;
				lda		#scsit_cont
				sta		|call_type
											;
											; Issue the call.
											;
				jsr		check_532_rw
				php
											;
											; Replace the Buffer Pointer.
											;
				lda		gc_buff_ptr
				sta		<buff_ptr

				lda		gc_buff_ptr+2
				sta		<buff_ptr+2
											;
											; Check for Call Errors
											;
				plp
				bcs		@bad_exit1
											;
											; Add in the Length
											;
				clc
				lda		#block_size
				ldy		#$0002
				sta		[config_tcnt],y

				adc		length
				sta		length

				lda		length+2
				adc		#^block_size
				sta		length+2
											;
											; Clean Exit.
											;
				lda		#$0000
				clc
				rts
											;
											; Error exit point.
											;
@bad_exit1		jsr		set_our_dp
				lda		#drvr_io
				sec
				rts
											;
											; Data for the WRITE BLOCK Command
											;
@write_vol		dc.b	$0A
				dc.b	null
@write_vol_num	dc.w	null
				dcb.b	10,null
											;
											; This Routine is used to set the
											; Driver Data into the callers buffer.
											;
set_drvr
											;
											; At this point the DDM is in Memory
											; and the Zero Page Pointer 'DDM_BUFF'
											; points to it.
											;
				ldy		ddm_index
				lda		[ddm_buff],y
				and		#%0001111100000000	;Allow Byte 1, bits 0-4 to pass
				ora		#$000A				;OR in the command number
				sta		@write_drvr

				iny
				iny
				lda		[ddm_buff],y
				sta		@block_num
											;
											; Set the user's buffer
											;
				ldy		#config_pl.driver_info
				clc

				lda		[buff_ptr],y
				sta		<config_tcnt
				adc		#$0004
				tax

				ldy		#config_pl.driver_info+2

				lda		[buff_ptr],y
				sta		<config_tcnt+2
				adc		#$0000
				sta		<buff_ptr+2
				sta		<config_buff+2
				stx		<buff_ptr
				stx		<config_buff
											;
											; And our length.
											;
				sec
				stz		<rqst_cnt+2
				lda		[config_tcnt]
				sbc		#$0004
				sta		<rqst_cnt
											;
											; Tell the Main Driver where
											; our command structure resides.
											;
				lda		#@write_drvr
				sta		<scsi_mdrvr
				lda		#^@write_drvr
				sta		<scsi_mdrvr+2
											;
											; Set internal command flag
											;
				dec		|internal
											;
											; Set the Partition call flag
											;
				dec		|f_partition
											;
											; Set the Call Type and Issue the
											; WRITE BLOCK Command.
											;
				lda		#scsit_cont
				sta		|call_type
											;
											; Issue the call.
											;
				jsr		check_532_rw
				php
											;
											; Replace the Buffer Pointer.
											;
				lda		gc_buff_ptr
				sta		<buff_ptr

				lda		gc_buff_ptr+2
				sta		<buff_ptr+2
											;
											; Check for Call Errors
											;
				plp
				bcs		@bad_exit1
											;
											; Add in the Length
											;
				clc
				lda		<rqst_cnt
				ldy		#$0002
				sta		[config_tcnt],y

				adc		length
				sta		length

				lda		length+2
				adc		<rqst_cnt+2
				sta		length+2
											;
											; Clean Exit.
											;
				lda		#$0000
				rts
											;
											; Error exit point.
											;
@bad_exit1		jsr		set_our_dp
				lda		#drvr_io
				sec
				rts
											;
											; Data for the I/O Commands.
											;
@temp			dc.w		null
											;
											; Command to Write the Driver Data
											;
@write_drvr		dc.b		$0A
				dc.b		null
@block_num		dc.w		null
				dcb.b		10,null
											;
											; Because all three sub-calls require a
											; DDM for information we must make sure
											; that this is available.  If they are
											; not setting the DDM we will load ity
											; from the disk.  If they are we will
											; use theirs as it is the most current.
											;
											; Check low byte of the Bitmap for which
											; Driver they want and use it to set the
											; ddm_index.
											;
				EXPORT	pre_load_ddm
pre_load_ddm
				ldy		#config_pl.bitmap
				lda		[buff_ptr],y
				and		#$200F				;Max of 15 Drivers in the DDM
				dec		a					;Dec so we can use for index
				asl		a					;*2
				asl		a					;*4
				asl		a					;*8
				php
				clc
				adc		#$0012				;Account for the $12 bytes of header
				sta		ddm_index
											;
											; If Carry is set, then the DDM is in
											; users memory and we do not need to
											; read it from the disk.
											;
				plp
				bcs		@ddm_loaded
											;
											; We need to load the DDM into the
											; internal buffer.
											;
											; Tell the Main Driver where
											; our command structure resides.
											;
				lda		#@read_ddm
				sta		<scsi_mdrvr
				lda		#^@read_ddm
				sta		<scsi_mdrvr+2
											;
											; Set our buffer
											;
				lda		#ddm_data
				sta		<buff_ptr
				sta		<ddm_buff
				lda		#^ddm_data
				sta		<buff_ptr+2
				sta		<ddm_buff+2
											;
											; And our Block Size value
											;
				lda		#block_size
				sta		<rqst_cnt
				lda		#^block_size
				sta		<rqst_cnt+2
											;
											; Set internal command flag
											;
				dec		|internal
											;
											; Set the Partition call flag
											;
				dec		|f_partition
											;
											; Set the Call Type and Issue the
											; READ BLOCK Command.
											;
				lda		#scsit_stat
				sta		|call_type
											;
											; Issue the call.
											;
				jsr		check_532_rw
				php
											;
											; Replace the Buffer Pointer.
											;
				lda		gc_buff_ptr
				sta		<buff_ptr

				lda		gc_buff_ptr+2
				sta		<buff_ptr+2
											;
											; Check for Call Errors
											;
				plp
				bcs		@bad_exit1

@ddm_loaded		clc
				rts
											;
											; Use this code to exit when no data is
											; being sent.
											;
@exit_parm		lda		#drvr_bad_parm
				sec
				rts
											;
											; Error exit point.
											;
@bad_exit1		jsr		set_our_dp
				lda		#drvr_io
				sec
				rts
											;
											; Command to Read the DDM if we
											; need it.
											;
@read_ddm		dc.b		$08
				dc.b		null
				dc.w		null
				dcb.b		10,null
											;
											; This routine will search for the
											; Partition Map entry that has the same
											; data block location as that for the
											; referenced entry in the DDM.
											;
											; Acc	= Block to start with
											; Y reg = High word of the Buffer to use
											; X reg = Low word of the Buffer to use
											;
				EXPORT	find_drvr_part
find_drvr_part
				xba
				sta		@block_num
				stx		<buff_ptr
				sty		<buff_ptr+2

											;
											; And our length.
											;
				stz		<rqst_cnt+2
				lda		#block_size
				sta		<rqst_cnt
											;
											; Tell the Main Driver where
											; our command structure resides.
											;
				lda		#@read_part
				sta		<scsi_mdrvr
				lda		#^@read_part
				sta		<scsi_mdrvr+2
											;
											; Set internal command flag
											;
@loop			dec		|internal
											;
											; Set the Partition call flag
											;
				dec		|f_partition
											;
											; Set the Call Type and Issue the
											; READ BLOCK Command.
											;
				lda		#scsit_stat
				sta		|call_type
											;
											; Issue the call.
											;
				jsr		check_532_rw
				php
											;
											; Is this the block that we want?
											;
				ldy		#pm.PyPartStart
				lda		[buff_ptr],y
				cmp		|pdata_block
				bne		@next
				ldy		#pm.PyPartStart+2
				lda		[buff_ptr],y
				cmp		|pdata_block+2
				bne		@next
											;
											; Replace the Buffer Pointer.
											;
				lda		gc_buff_ptr
				sta		<buff_ptr

				lda		gc_buff_ptr+2
				sta		<buff_ptr+2
											;
											; It's a match.  Pass it on in the Acc.
											;
				lda		@block_num
											;
											; Check for Call Errors
											;
				plp
				clc
				rts
											;
											; Not a match.  Do the next one only if
											; still in the range of the partition map.
											;
@next			plp
				lda		@block_num
				xba
				inc		a
				xba
				sta		@block_num
				ldy		#pm.MapBlkCnt+2
				cmp		[buff_ptr],y
				bne		@loop
											;
											; Not found.  Do Cleanup and exit
											; with an error.
											;
											; Replace the Buffer Pointer.
											;
				lda		gc_buff_ptr
				sta		<buff_ptr

				lda		gc_buff_ptr+2
				sta		<buff_ptr+2

				sec
				lda		#drvr_bad_blk
				rts
											;
											; Command to Read the DDM if we
											; need it.
											;
@read_part		dc.b		$08
				dc.b		null
@block_num		dc.w		null
				dcb.b		10,null

				EXPORT	pdata_block
pdata_block		dc.l	null

				EJECT
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSI Set Vol_Disk b/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSI Set Vol_Disk
new file mode 100644
index 0000000..2a099ac
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSI Set Vol_Disk	
@@ -0,0 +1 @@
+
;*******************************************************
;
;	SCSI Driver Set Volume/Disk Parms code.
;
;	Written by Matt Gulick.		Started April 17,1991
;
;	Copyright Apple Computer, Inc. 1990
;
;*******************************************************

;*******************************************************
;
;	This file contains the Set Volume/Disk Parms as
;	defined in the ERS.
;
;*******************************************************

;*******************************************************
;
;	Revision History:
;
;*******************************************************

;	April 17,	1991	File started.

				IMPORT		chk_count
				IMPORT		length
				IMPORT		rqst
				IMPORT		gc_buff_ptr
				IMPORT		count
				IMPORT		temp
				IMPORT		error
				IMPORT		ddm_index
				IMPORT		pre_load_ddm
				IMPORT		pdata_block
				IMPORT		find_drvr_part
				IMPORT		set_drvr_ndex

				EJECT
			
;*******************************************************
;
;	's_vol_parms'
;
;	This routine is used to set information about the
;	volume.  Calls should have the DIB Pointer set to
;	the volume for which the information is being
;	requested.
;
;	The structure of the parameter list is defined in the
;	SCSI Driver ERS.  The parameters are going to depend
;	greatly on the type of device that this driver is
;	written for.  That means that the info for the Scanner
;	will not be the same in any form as that for a Hard
;	Disk, or a Tape drive.  These calls will be particular
;	for the device type supported.
;
;	Called via 'JSR'
;
;	Inputs:		[dib_ptr]	=	Target DIB			(LONG)
;				[buff_ptr]	=	Data Buffer Pointer	(LONG)
;				Acc			=	Unspecified
;				Carry		=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Returns via 'RTS'
;
;	Outputs:	Acc			=	0
;				Carry		=	0
;	or
;				Acc			=	Error
;				Carry		=	1
;
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Errors:		See Spec.
;
;*******************************************************

				EXPORT		svp
svp
											;
											; Check the Request Count.  Volume calls
											; need 2 bytes.
											;
				lda		<rqst_cnt+2
				bne		@rqst_cnt_ok
				lda		<rqst_cnt
				cmp		#$0002
				blt		@bad_cnt
											;
											; Check Bitmap.
											;
@rqst_cnt_ok	lda		[buff_ptr]
											;
											; Do the Volume Parms Here.
											; Acc = Bitmap on entry.
											;
				sta		|bitmap
				and		#vconf_resv2++\
						vconf_resv3++\		;Check Bits that are not supported
						vconf_resv4++\		;at this time.
						vconf_resv5++\
						vconf_resv6
				bne		@exit_parm			;If unsupported bit set then error out.
											;
											; Check for Remount Bit
											;
				lda		|bitmap
				and		#vconf_remount
				beq		@next_0
				jsr		remount_vol
											;
											; Check Status Bits Flag.  If set, then we
											; use the low byte of this word to set the
											; status bits in the Partition Map and in
											; the DIB Status.
											;
@next_0			lda		|bitmap
				and		#vconf_set_stat
				beq		@next_1
				jsr		set_stat_bits

@next_1			bcs		@rts
				lda		#$0002
				sta		<trans_cnt
				lda		#null
				sta		<trans_cnt+2
				clc
@rts			rts
											;
											; Error exit point.
											;
@bad_cnt		lda		#drvr_bad_cnt
				brl		exit_none
											;
											; Drive is Offline.
											;
@not_online		lda		#drvr_off_line
				sec
				rts
											;
											; Not from a partition.
											;
@exit_parm		brl		exit_parm
											;
											; Routines used by the above code to
											; perform the requested task.
											;
remount_vol
											;
											; Mark this DIB as Switched and Hard
											; Offline.
											;
				ldy		#dib.dvcflag
				lda		[dib_ptr],y
				ora		#dvc_online++\
						dvc_switch
				and		#dvc_hardofl--\
						$ffff
				sta		[dib_ptr],y
											;
											; Generate a Disk Switched Event
											;
				jsr		set_disk_sw
											;
											; Clean Exit.
											;
				rts

set_stat_bits
											;
											; Set the Status Bits in the Partition
											; Map entry to mach those supplied by
											; this call.
											;
											; Check to see if this Volume is Online.
											;
				ldy		#dib.dvcflag
				lda		[dib_ptr],y
				and		#dvc_online
				beq		@not_online
											;
											; Validate that this DIB is from
											; a Partition Map Entry.
											;
				ldy		#dib.start_blk
				lda		[dib_ptr],y
				ldy		#dib.start_blk+2
				ora		[dib_ptr],y
				bne		@over
											;
											; Not from a partition.
											;
				lda		#drvr_bad_parm
				sec
				rts
											;
											; Get block that contains this
											; DIB's Partition Map Entry.
											;
@over			ldy		#dib.part_blk
				lda		[dib_ptr],y
				sta		|rpm_blk_num
				sta		|wpm_blk_num
											;
											; Tell the code that we have already
											; set the Block Number and that this
											; is not a startup call.
											;
				dec		|stat_cont			;This is from a Status or Control Call
				dec		|rebuild			;And not from a startup Call
											;
											; Issue the Read PM Block Call.
											;
				jsr		|read_pm_blk
				bcs		@bad_exit			;There was an error.
											;
											; Is what we read a Partition Map?
											;
				lda		|pm.Sig\
						+internal_buff
				cmp		#Part_sig
				bne		@bad_exit			;Bad Data Read.
											;
											; Set the Status Byte
											;
				lda		|bitmap
				and		#$00ff
				sta		@temp
				lda		|pm.PartStatus+2\
						+internal_buff
				xba
				and		#$ff00
				ora		@temp
				xba
				sta		|pm.PartStatus+2\
						+internal_buff
											;
											; Issue the Write PM Block Call.
											;
				jsr		|write_pm_blk
				bcs		@bad_exit			;There was no error.
											;
											; Clean Exit
											;
@all_done		jsr		set_our_dp

				lda		@temp				;Update the DIB.
				and		#vconf_wr_enable++\
						vconf_rd_enable
				asl		a
				sta		@temp
				ldy		#dib.dvcchar
				lda		[dib_ptr],y
				and		#write_allow++\
						read_allow--\
						$ffff
				ora		@temp
				sta		[dib_ptr],y
											;
											; Generate a Disk Switched Event
											;
				jsr		set_disk_sw

				lda		#no_error
				clc
				rts
											;
											; Data Area.
											;
@temp			dc.w	null
											;
											; Not from a partition.
											;
@not_online		lda		#drvr_off_line
				bra		exit_none
											;
											; Error exit point.
											;
@bad_exit		jsr		set_our_dp
				lda		#drvr_io
				bra		exit_none
											;
											; Error exit point.
											;
@bad_cnt		lda		#drvr_bad_cnt
				bra		exit_none
											;
											; Use this code to exit when no data is
											; being returned.
											;
exit_parm		lda		#drvr_bad_parm
exit_none		stz		<trans_cnt
				stz		<trans_cnt+2
				cmp		#$0001
				rts

				EJECT
							
;*******************************************************
;
;	's_disk_parms'
;
;	This routine is used to set information about the
;	disk in question.  The DIB Pointer must point to
;	the head DIB if this is a linked device.
;
;	The structure of the parameter list is defined in the
;	SCSI Driver ERS.  The parameters are going to depend
;	greatly on the type of device that this driver is
;	written for.  That means that the info for the Scanner
;	will not be the same in any form as that for a Hard
;	Disk, or a Tape drive.  These calls will be particular
;	for the device type supported.
;
;	Called via 'JSR'
;
;	Inputs:		[dib_ptr]	=	Target DIB			(LONG)
;				[buff_ptr]	=	Data Buffer Pointer	(LONG)
;				Acc			=	Unspecified
;				Carry		=	Unspecified
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Returns via 'RTS'
;
;	Outputs:	Acc			=	0
;				Carry		=	0
;	or
;				Acc			=	Error
;				Carry		=	1
;
;				Y register	=	Unspecified
;				X register	=	Unspecified
;				P register	=	0=M=X=e
;				Direct Page	=	Ours
;				Data Bank	=	Ours
;
;	Errors:		See Spec.
;
;*******************************************************

				EXPORT		sdp
sdp
											;
											; Check the Request Count.  Volume calls
											; need at least 4 bytes.  Disk calls need
											; more and that will be verified there.
											;
				lda		<rqst_cnt+2
				bne		@rqst_cnt_ok
				lda		<rqst_cnt
				cmp		#$001A
				blt		@bad_cnt
											;
											; Check to see if this Volume is Online.
											;
@rqst_cnt_ok	ldy		#dib.dvcflag
				lda		[dib_ptr],y
				and		#dvc_online
				beq		@not_online
											;
											; Validate that this DIB is from
											; a Partition Map Entry.
											;
				ldy		#dib.start_blk
				lda		[dib_ptr],y
				ldy		#dib.start_blk+2
				ora		[dib_ptr],y
				bne		do_sdisk
											;
											; Not from a partition.
											;
				lda		#drvr_bad_parm
				brl		exit_none
											;
											; Not from a partition.
											;
@not_online		lda		#drvr_off_line
				brl		exit_none
											;
											; Error exit point.
											;
@bad_exit		jsr		set_our_dp
				lda		#drvr_io
				brl		exit_none
											;
											; Error exit point.
											;
@bad_cnt		lda		#drvr_bad_cnt
				brl		exit_none
											;
											; Set Disk Calls are handled here.
											;
do_sdisk		stz		|error
											;
											; Preserve the Users Buffer Pointer.
											;
				lda		<buff_ptr
				sta		gc_buff_ptr
				lda		<buff_ptr+2
				sta		gc_buff_ptr+2
											;
											; If a call is unacceptable an error will
											; be returned and the transfer length
											; will reflect the buffer size that is
											; needed if the current one is too small.
											;
											; Check Set DDM Info
											;
				ldy		#disk_pl.ddm_buff_len
				lda		[buff_ptr],y
				bne		@chk_ddm_len
				ldy		#disk_pl.ddm_buff_ptr
				ora		[buff_ptr],y
				ldy		#disk_pl.ddm_buff_ptr+2
				ora		[buff_ptr],y
				bne		@bad_ddm_len
				bra		@pre_load_ddm
											;
											; Is the DDM Buffer Long enough?
											;
@chk_ddm_len	cmp		#$0200
				beq		@do_ddm
											;
											; Bad request length for the DDM
											;
@bad_ddm_len	lda		#$0200						
				ldy		#disk_pl.ddm_trns_len
				sta		[buff_ptr],y
				lda		#drvr_bad_cnt
				sta		|error
				bra		@pre_load_ddm
											;
											; Set DDM.
											;
@do_ddm			jsr		set_ddm
				bcc		@chk_vol
				brl		@disk_done
											;
											; If called, the user is not
											; setting the DDM and we need
											; to load it into our own buffer.
											;
@pre_load_ddm	jsr		pre_load_ddm
				bcc		@chk_vol
				brl		@disk_done
											;
											; Check Set Volume Info
											;
@chk_vol		ldy		#disk_pl.vol_buff_len
				lda		[buff_ptr],y
				bne		@chk_vol_len
				ldy		#disk_pl.vol_buff_ptr
				ora		[buff_ptr],y
				ldy		#disk_pl.vol_buff_ptr+2
				ora		[buff_ptr],y
				bne		@bad_vol_len
				bra		@chk_drvr
											;
											; Is the DDM Buffer Long enough?
											;
@chk_vol_len	cmp		#$0200
				beq		@do_vol
											;
											; Bad request length for the DDM
											;
@bad_vol_len	lda		#$0200						
				ldy		#disk_pl.vol_trns_len
				sta		[buff_ptr],y
				lda		#drvr_bad_cnt
				sta		|error
				bra		@chk_drvr
											;
											; Set Volume Info.
											;
@do_vol			jsr		set_vol
				bcs		@disk_done
											;
											; Check Set Driver Info
											;
@chk_drvr		clc
				lda		|ddm_index
				adc		#$0004
				tay
				lda		[ddm_buff],y
				xba
				asl		a					;Convert Blocks to Bytes
				stz		|drvr_size
				stz		|drvr_size+2
				sta		|drvr_size+1
											;
											; Check Set Driver Data
											;
				ldy		#disk_pl.drvr_buff_len
				lda		[buff_ptr],y
				bne		@chk_drvr_len
				ldy		#disk_pl.drvr_buff_ptr
				ora		[buff_ptr],y
				ldy		#disk_pl.drvr_buff_ptr+2
				ora		[buff_ptr],y
				bne		@bad_drvr_len
				bra		@disk_done1
											;
											; Is the DDM Buffer Long enough?
											;
@chk_drvr_len	cmp		|drvr_size
				blt		@do_drvr
				beq		@do_drvr
											;
											; Bad request length for the DDM
											;
@bad_drvr_len	lda		|drvr_size					
				ldy		#disk_pl.drvr_trns_len
				sta		[buff_ptr],y
				lda		#drvr_bad_cnt
				bra		@disk_done
											;
											; Get Volume Info.
											;
@do_drvr		jsr		set_drvr
											;
											; All done.  Return the transfer
											; length and any error codes that
											; were encountered
											;
@disk_done		sta		|error
@disk_done1		lda		#$001A
				sta		<trans_cnt
				stz		<trans_cnt+2
											;
											; Replace the Buffer Pointer.
											;
				lda		gc_buff_ptr
				sta		<buff_ptr

				lda		gc_buff_ptr+2
				sta		<buff_ptr+2

				lda		|error
				cmp		#$0001
				rts
											;
											; Subroutines for this code.
											;
											; The first Routine is used to Write
											; the DDM from the callers buffer.
											;
set_ddm			jsr		set_drvr_ndex
											;
											; Tell the Main Driver where
											; our command structure resides.
											;
				lda		#@write_ddm
				sta		<scsi_mdrvr
				lda		#^@write_ddm
				sta		<scsi_mdrvr+2
											;
											; Set the user's buffer
											;
				ldy		#disk_pl.ddm_buff_ptr
				lda		[buff_ptr],y
				tax

				ldy		#disk_pl.ddm_buff_ptr+2

				lda		[buff_ptr],y
				sta		<buff_ptr+2
				sta		<ddm_buff+2			;Incase we need it for the Driver Code
				stx		<buff_ptr
				stx		<ddm_buff			;Incase we need it for the Driver Code
											;
											; Is what we are writing a Driver
											; Descriptor Map?
											;
				lda		[ddm_buff]
				cmp		#DDM_sig
				bne		@bad_exit1			;Bad Data.

				lda		#block_size
				sta		<rqst_cnt
				lda		#^block_size
				sta		<rqst_cnt+2
											;
											; Set internal command flag
											;
				dec		|internal
											;
											; Set the Partition call flag
											;
				dec		|f_partition
											;
											; Set the Call Type and Issue the
											; READ BLOCK Command.
											;
				lda		#scsit_cont
				sta		|call_type
											;
											; Issue the call.
											;
				jsr		check_532_rw
				php
											;
											; Replace the Buffer Pointer.
											;
				lda		gc_buff_ptr
				sta		<buff_ptr

				lda		gc_buff_ptr+2
				sta		<buff_ptr+2
											;
											; Check for Call Errors
											;
				plp
				bcs		@bad_exit1
											;
											; Add in the Length
											;
				lda		#block_size
				ldy		#disk_pl.ddm_trns_len
				sta		[buff_ptr],y
											;
											; Clean Exit.
											;
				lda		#$0000
				clc
				rts
											;
											; Error exit point.
											;
@bad_exit1		jsr		set_our_dp
				lda		#drvr_io
				sec
				rts
											;
											; Data for the WRITE BLOCK Command
											;
@write_ddm		dc.b		$0A
				dc.b		null
				dc.w		null
				dcb.b		10,null
											;
											; This Routine is used to set the
											; Volume Info from the callers buffer.
											;
set_vol
											;
											; Find the Partition Map Entry that matches
											; the data blocks used in the DDM.
											;
				ldy		ddm_index
				lda		[ddm_buff],y
				sta		|pdata_block

				iny
				iny
				lda		[ddm_buff],y
				sta		|pdata_block+2

				lda		#$0001				;Start looking here.
				ldx		#internal_buff
				ldy		#^internal_buff
				jsr		find_drvr_part
				bcs		@rts
											;
											; Set the Partition Map Block Number
											; that we need to Write.
											;
				sta		@write_vol_num
											;
											; Tell the Main Driver where
											; our command structure resides.
											;
				lda		#@write_vol
				sta		<scsi_mdrvr
				lda		#^@write_vol
				sta		<scsi_mdrvr+2
											;
											; Set the user's buffer
											;
				ldy		#disk_pl.vol_buff_ptr
				lda		[buff_ptr],y
				tax

				ldy		#disk_pl.vol_buff_ptr+2

				lda		[buff_ptr],y
				sta		<buff_ptr+2
				sta		<config_buff+2
				stx		<buff_ptr
				stx		<config_buff
											;
											; Is what we are writing a Driver
											; Descriptor Map?
											;
				lda		[config_buff]
				cmp		#Part_sig
				bne		@bad_exit1			;Bad Data Read.

				lda		#block_size
				sta		<rqst_cnt
				lda		#^block_size
				sta		<rqst_cnt+2
											;
											; Set internal command flag
											;
				dec		|internal
											;
											; Set the Partition call flag
											;
				dec		|f_partition
											;
											; Set the Call Type and Issue the
											; READ BLOCK Command.
											;
				lda		#scsit_cont
				sta		|call_type
											;
											; Issue the call.
											;
				jsr		check_532_rw
				php
											;
											; Replace the Buffer Pointer.
											;
				lda		gc_buff_ptr
				sta		<buff_ptr

				lda		gc_buff_ptr+2
				sta		<buff_ptr+2
											;
											; Check for Call Errors
											;
				plp
				bcs		@bad_exit1
											;
											; Add in the Length
											;
				lda		#block_size
				ldy		#disk_pl.vol_trns_len
				sta		[buff_ptr],y
											;
											; Clean Exit.
											;
				lda		#$0000
				clc
@rts			rts
											;
											; Error exit point.
											;
@bad_exit1		jsr		set_our_dp
				lda		#drvr_io
				sec
				rts
											;
											; Data for the WRITE BLOCK Command
											;
@write_vol		dc.b	$0A
				dc.b	null
@write_vol_num	dc.w	null
				dcb.b	10,null
											;
											; This Routine is used to set the
											; Driver Data into the callers buffer.
											;
set_drvr
											;
											; At this point the DDM is in Memory
											; and the Zero Page Pointer 'DDM_BUFF'
											; points to it.
											;
				ldy		ddm_index
				lda		[ddm_buff],y
				and		#%0001111100000000	;Allow Byte 1, bits 0-4 to pass
				ora		#$000A				;OR in the command number
				sta		@write_drvr

				iny
				iny
				lda		[ddm_buff],y
				sta		@block_num

				iny
				iny
				lda		[ddm_buff],y
				xba
				asl		a					;Cheap Multiply by $200
				stz		<rqst_cnt
				stz		<rqst_cnt+2		
				sta		<rqst_cnt+1
											;
											; Set the user's buffer
											;
				ldy		#disk_pl.drvr_buff_ptr
				lda		[buff_ptr],y
				tax

				ldy		#disk_pl.drvr_buff_ptr+2

				lda		[buff_ptr],y
				sta		<buff_ptr+2
				sta		<config_buff+2
				stx		<buff_ptr
				stx		<config_buff
											;
											; Tell the Main Driver where
											; our command structure resides.
											;
				lda		#@write_drvr
				sta		<scsi_mdrvr
				lda		#^@write_drvr
				sta		<scsi_mdrvr+2
											;
											; Set internal command flag
											;
				dec		|internal
											;
											; Set the Partition call flag
											;
				dec		|f_partition
											;
											; Set the Call Type and Issue the
											; WRITE BLOCK Command.
											;
				lda		#scsit_cont
				sta		|call_type
											;
											; Issue the call.
											;
				jsr		check_532_rw
				php
											;
											; Replace the Buffer Pointer.
											;
				lda		gc_buff_ptr
				sta		<buff_ptr

				lda		gc_buff_ptr+2
				sta		<buff_ptr+2
											;
											; Check for Call Errors
											;
				plp
				bcs		@bad_exit1
											;
											; Add in the Length
											;
				lda		<rqst_cnt
				ldy		#disk_pl.drvr_trns_len
				sta		[buff_ptr],y
											;
											; Clean Exit.
											;
				lda		#$0000
				rts
											;
											; Error exit point.
											;
@bad_exit1		jsr		set_our_dp
				lda		#drvr_io
				sec
				rts
											;
											; Command to Write the Driver Data
											;
@write_drvr		dc.b		$0A
				dc.b		null
@block_num		dc.w		null
				dcb.b		10,null
											;
											; Other Data Storage areas.
											;
				EXPORT		drvr_size
drvr_size		dc.l		null			;Driver Size in Bytes
				EXPORT		gc_buff_ptr
gc_buff_ptr		dc.l		null			;Their buffer pointer
				EXPORT		error
error			dc.w		null
				EXPORT		ddm_index
ddm_index		dc.w		null			;Index Into the DDM for the rqsted DRVR
bitmap			dc.w		null			;Bitmap supplied by user.

				EJECT
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSICD.Driver.make b/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSICD.Driver.make
new file mode 100644
index 0000000..4acb3dd
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSICD.Driver.make
@@ -0,0 +1 @@
+#   File:       SCSI.Driver.make
#   Target:     SCSICD.Driver
#   Sources:    'SCSI Driver main'
#               'SCSI Command Table'
#               'SCSI Filter startup'
#               'SCSI Filter open'
#               'SCSI Filter read'
#               'SCSI Filter write'
#               'SCSI Filter close'
#               'SCSI Filter status'
#               'SCSI Filter control'
#               'SCSI Filter flush'
#               'SCSI Filter shutdown'
#               'SCSI Main Driver'
#               'SCSI Driver Mgmt'
#   Created:    Thursday, June 9, 1988 9:30:49 AM
#  Modified:    Monday, November 21, 1988 7:05:00 AM

SCSICD.Driver ÄÄ SCSICD.Driver.make ¶
		:CD.Obj:'SCSICD Driver main.obj' ¶
		:CD.Obj:'SCSICD Command Table.obj' ¶
		:CD.Obj:'SCSICD Filter startup.obj' ¶
		:CD.Obj:'SCSICD Filter open.obj' ¶
		:CD.Obj:'SCSICD Filter read.obj' ¶
		:CD.Obj:'SCSICD Filter write.obj' ¶
		:CD.Obj:'SCSICD Filter close.obj' ¶
		:CD.Obj:'SCSICD Filter status.obj' ¶
		:CD.Obj:'SCSICD Filter control.obj' ¶
		:CD.Obj:'SCSICD Filter flush.obj' ¶
		:CD.Obj:'SCSICD Filter shutdown.obj' ¶
		:CD.Obj:'SCSICD Main Driver.obj' ¶
		:CD.Obj:'SCSICD Driver Mgmt.obj'
    LinkIIGS -t $bb -at $013f ¶
#	LinkIIGS -t $bb -at $0105 ¶
		:CD.Obj:'SCSICD Driver main.obj' ¶
		:CD.Obj:'SCSICD Command Table.obj' ¶
		:CD.Obj:'SCSICD Filter startup.obj' ¶
		:CD.Obj:'SCSICD Filter open.obj' ¶
		:CD.Obj:'SCSICD Filter read.obj' ¶
		:CD.Obj:'SCSICD Filter write.obj' ¶
		:CD.Obj:'SCSICD Filter close.obj' ¶
		:CD.Obj:'SCSICD Filter status.obj' ¶
		:CD.Obj:'SCSICD Filter control.obj' ¶
		:CD.Obj:'SCSICD Filter flush.obj' ¶
		:CD.Obj:'SCSICD Filter shutdown.obj' ¶
		:CD.Obj:'SCSICD Main Driver.obj' ¶
		:CD.Obj:'SCSICD Driver Mgmt.obj' ¶
		-o 'SCSICD.Driver'
#		-o :CD.Obj:'SCSICD.Driver.lnk'
#	ExpressIIGS ¶
#		':CD.Obj:SCSICD.Driver.lnk' ¶
#		-o 'SCSICD.Driver'
	duplicateiigs -y -m SCSICD.Driver SCSICD.Driver
:CD.Obj:'SCSICD Driver main.obj' Ä ¶
		'SCSICD.Driver.make' ¶
		'SCSI Driver main' ¶
		'SCSIHD.Equates'
	AsmIIGS -d &type,type=1 'SCSI Driver main' ¶
		-o :CD.Obj:'SCSICD Driver main.obj'
:CD.Obj:'SCSICD Command Table.obj' Ä ¶
		'SCSICD.Driver.make' ¶
		'SCSI Command Table' ¶
		'SCSIHD.Equates'
	AsmIIGS -d &type,type=1 'SCSI Command Table' ¶
		-o :CD.Obj:'SCSICD Command Table.obj'
:CD.Obj:'SCSICD Filter startup.obj' Ä ¶
		'SCSICD.Driver.make' ¶
		'SCSI Filter startup' ¶
		'SCSIHD.Equates'
	AsmIIGS -d &type,type=1 'SCSI Filter startup' ¶
		-o :CD.Obj:'SCSICD Filter startup.obj'
:CD.Obj:'SCSICD Filter open.obj' Ä ¶
		'SCSICD.Driver.make' ¶
		'SCSI Filter open' ¶
		'SCSIHD.Equates'
	AsmIIGS -d &type,type=1 'SCSI Filter open' ¶
		-o :CD.Obj:'SCSICD Filter open.obj'
:CD.Obj:'SCSICD Filter read.obj' Ä ¶
		'SCSICD.Driver.make' ¶
		'SCSI Filter read' ¶
		'SCSIHD.Equates'
	AsmIIGS -d &type,type=1 'SCSI Filter read' ¶
		-o :CD.Obj:'SCSICD Filter read.obj'
:CD.Obj:'SCSICD Filter write.obj' Ä ¶
		'SCSICD.Driver.make' ¶
		'SCSI Filter write' ¶
		'SCSIHD.Equates'
	AsmIIGS -d &type,type=1 'SCSI Filter write' ¶
		-o :CD.Obj:'SCSICD Filter write.obj'
:CD.Obj:'SCSICD Filter close.obj' Ä ¶
		'SCSICD.Driver.make' ¶
		'SCSI Filter close' ¶
		'SCSIHD.Equates'
	AsmIIGS -d &type,type=1 'SCSI Filter close' ¶
		-o :CD.Obj:'SCSICD Filter close.obj'
:CD.Obj:'SCSICD Filter status.obj' Ä ¶
		'SCSICD.Driver.make' ¶
		'SCSI Filter status' ¶
		'SCSIHD.Equates'
	AsmIIGS -d &type,type=1 'SCSI Filter status' ¶
		-o :CD.Obj:'SCSICD Filter status.obj'
:CD.Obj:'SCSICD Filter control.obj' Ä ¶
		'SCSICD.Driver.make' ¶
		'SCSI Filter control' ¶
		'SCSIHD.Equates'
	AsmIIGS -d &type,type=1 'SCSI Filter control' ¶
		-o :CD.Obj:'SCSICD Filter control.obj'
:CD.Obj:'SCSICD Filter flush.obj' Ä ¶
		'SCSICD.Driver.make' ¶
		'SCSI Filter flush' ¶
		'SCSIHD.Equates'
	AsmIIGS -d &type,type=1 'SCSI Filter flush' ¶
		-o :CD.Obj:'SCSICD Filter flush.obj'
:CD.Obj:'SCSICD Filter shutdown.obj' Ä ¶
		'SCSICD.Driver.make' ¶
		'SCSI Filter shutdown' ¶
		'SCSIHD.Equates'
	AsmIIGS -d &type,type=1 'SCSI Filter shutdown' ¶
		-o :CD.Obj:'SCSICD Filter shutdown.obj'
:CD.Obj:'SCSICD Main Driver.obj' Ä ¶
		'SCSICD.Driver.make' ¶
		'SCSI Main Driver' ¶
		'SCSIHD.Equates'
	AsmIIGS -d &type,type=1 'SCSI Main Driver' ¶
		-o :CD.Obj:'SCSICD Main Driver.obj'
:CD.Obj:'SCSICD Driver Mgmt.obj' Ä ¶
		'SCSICD.Driver.make' ¶
		'SCSI Driver Mgmt' ¶
		'SCSIHD.Equates'
	AsmIIGS -d &type,type=1 'SCSI Driver Mgmt' ¶
		-o :CD.Obj:'SCSICD Driver Mgmt.obj'
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSICD.Equates b/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSICD.Equates
new file mode 100644
index 0000000..aaa706a
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSICD.Equates
@@ -0,0 +1 @@
+

*** WARNING *** Far as I can tell, this file is completely unused.  15-Dec-92 DAL ***

;*******************************************************
;
;	This file contains all the global equates for the
;	SCSI Driver.  Only those items below that are marked
;	as "**** Changable ****" can be altered safly
;	without detailed intimate knowledge of how the
;	generic driver functions.  Any other values should
;	only be modified by someone who understands how this
;	generic driver functions.
;
;*******************************************************

									;
									; Bit Location equates
									;
null			equ		%0000000000000000
bit_0			equ		%0000000000000001
bit_1			equ		%0000000000000010
bit_2			equ		%0000000000000100
bit_3			equ		%0000000000001000
bit_4			equ		%0000000000010000
bit_5			equ		%0000000000100000
bit_6			equ		%0000000001000000
bit_7			equ		%0000000010000000
bit_8			equ		%0000000100000000
bit_9			equ		%0000001000000000
bit_10			equ		%0000010000000000
bit_11			equ		%0000100000000000
bit_12			equ		%0001000000000000
bit_13			equ		%0010000000000000
bit_14			equ		%0100000000000000
bit_15			equ		%1000000000000000
									;
									; Partition Map Signature
									;
Part_sig		equ		$4d50
									;
									; Booleans
									;
true			equ		bit_0
false			equ		null
									;
									; Structure Sizes.
									;
qtr_sec			equ		$0001
one_sec			equ		4*qtr_sec
one_min			equ		60*one_sec
max_timeout		equ		2*one_min	;**** Changable ****
one_page		equ		$00000100
block_size		equ		one_page*2	;**** Changable ****
dib_size		equ		one_page
max_dvc_cnt		equ		100			;Yes: that's decimal 100
max_gdvc_buf	equ		$00000704
max_cmd_len		equ		12			;Yes: that's decimal 12
p_mask_adder	equ		bit_10		;First Bit of Partition Count. *** Changable ***
max_p_mask		equ		p_mask_adder\		;6 bits of unit number
						+p_mask_adder*2\
						+p_mask_adder*4\
						+p_mask_adder*8\
						+p_mask_adder*16\
						+p_mask_adder*32
max_partitions	equ		max_p_mask/p_mask_adder+1
interleave		equ		1			;**** Changable ****
									;
									; SCSI Driver Version Number.
									; and other driver dependent data
									;
drvr_vers		equ		$0010		;**** Changable ****

cmd_start		equ		$0000		;Driver Startup Call
cmd_open		equ		$0001		;Driver Open Call
cmd_read		equ		$0002		;Driver Read Call
cmd_write		equ		$0003		;Driver Write Call
cmd_close		equ		$0004		;Driver Close Call
cmd_status		equ		$0005		;Driver Status Call
cmd_control		equ		$0006		;Driver Control Call
cmd_flush		equ		$0007		;Driver Flush Call
cmd_shutdown	equ		$0008		;Driver Shutdown Call
max_d_cmd		equ		$0008		;Max Driver Command	**** Changable ****
max_s_cmd		equ		$0004		;Max Status Code	**** Changable ****
max_c_cmd		equ		$0009		;Max Control Code	**** Changable ****
									;
									; Suppervisory Dispatcher IDs and
									; SCSI Manager Command Numbers
									;
super_d_id		equ		$0000		;Supervisory Dispatcher's ID
get_sdrvr_id	equ		$0000		;Get S Driver's ID Number
set_sib_ptr		equ		$0001		;Set SIB Pointer
cmd_get_dvc		equ		$0002		;SCSI Manager Get Devices Call
cmd_claim_dvc	equ		$0003		;SCSI Manager Claim Devices Call
scsi_io_call	equ		$0004		;SCSI Manager I/O Call
									;
									; SCSI Device Types from INQUIRY Call
									;
direct_acc		equ		$0000		; Direct-Access Device
seq_acc			equ		$0001		; Sequential-Access Device
print_dvc		equ		$0002		; Printer Device
proc_dvc		equ		$0003		; Processor Device
worm_dvc		equ		$0004		; Write-once Read-multiple Device
read_dacc		equ		$0005		; Read-only Direct-Access Device
scanner			equ		$0006		; Scanner Device
optic_mem		equ		$0007		; Optical Memory Devices
changer			equ		$0008		; Changer Devices
comm_dvc		equ		$0009		; Communication Devices
mcd_40			equ		$0010		; Apple's tape. Direct Access Magnetic Tape Device
apple_cd		equ		$0005		; Apple's CD-ROM
apple_scan		equ		$00ff		; Apple's Scanner
appl_laser		equ		$00ff		; Apple's LaserWriter SC
data_dat		equ		$00ff		; Data Dat Device
mag_optical		equ		$00ff		; Magneto-Optical Device
									;
									; Type of Device we support in this driver.
									;
scsi_dtype		equ		apple_cd	;**** Changable ****
scsi_duid		equ		$3C00		;**** Changable ****
claim_dvc		equ		false		;**** Changable ****
block_dvc		equ		true		;**** Changable ****
character_dvc	equ		false		;**** Changable ****

				IF 		block_dvc=character_dvc	THEN

;				"These two can not be the same!"

				ENDIF
									;
									; IMMED Bit is bit 0 of byte 1 in
									; the standard SCSI Command for
									; Direct-Access Devices.
									; That means the high byte because
									; of the 65xxx Low -> High structure.
									; Kind of confusing!
									;
immed_loc		equ		bit_8		;**** Changable ****
									;
									; System Service Calls we need.
									;
;*******************************************************
;
;	ENTRY:	move_info via 'jsl'
;
;				LONGWORD	- Source buffer pointer
;				LONGWORD	- Destination buffer pointer
;				LONGWORD	- Transfer length
;				WORD		- Source buffer pointer
;		SP -->
;
;		A Reg	=	Undefined
;		X Reg	=	Undefined
;		Y Reg	=	Undefined
;	 Bank Reg	=	Undefined
;	  Dir Reg	=	GS/OS Direct Page
;		P Reg	=	N V M X D I Z C  E
;					x x 0 0 0 x x x  0
;
;	EXIT:	move_info via 'rtl'
;
;		A Reg	=	Error Code
;		X Reg	=	Undefined
;		Y Reg	=	Undefined
;	 Bank Reg	=	Undefined
;	  Dir Reg	=	GS/OS Direct Page
;		P Reg	=	N V M X D I Z C  E
;					x x 0 0 0 x x 0  0	No Error
;					x x 0 0 0 x x 1  0	Error
;
;*******************************************************

move_info		equ		$01fc70

moveblkcmd		equ		$0800		;Block Move Option
move_sinc_dinc	equ		$0805		;Source Inc, Dest Inc

move_sinc_ddec	equ		$0809		;Source Inc, Dest Dec
move_sdec_dinc	equ		$0806		;Source Dec, Dest Inc
move_sdec_ddec	equ		$080a		;Source Dec, Dest Dec

move_scon_dcon	equ		$0800		;Source con, Dest con
move_sinc_dcon	equ		$0801		;Source Inc, Dest con
move_sdec_dcon	equ		$0802		;Source Dec, Dest con
move_scon_dinc	equ		$0804		;Source con, Dest Inc
move_scon_ddec	equ		$0808		;Source con, Dest Dec

;*******************************************************
;
;	ENTRY:	set_disksw via 'jsl'
;
;		A Reg	=	Undefined
;		X Reg	=	Undefined
;		Y Reg	=	Undefined
;	 Bank Reg	=	Undefined
;	  Dir Reg	=	GS/OS Direct Page
;		P Reg	=	N V M X D I Z C  E
;					x x 0 0 0 x x x  0
;
;	EXIT:	set_disksw via 'rtl'
;
;		A Reg	=	Undefined
;		X Reg	=	Undefined
;		Y Reg	=	Undefined
;	 Bank Reg	=	Undefined
;	  Dir Reg	=	GS/OS Direct Page
;		P Reg	=	N V M X D I Z C  E
;					x x 0 0 0 x x 0  0	No Error
;
;*******************************************************

set_disksw		equ		$01fc90

s_dispatch		equ		$01fca4

install_driver	equ		$01fca8
									;
									; Direct Page Addresses.
									;
dev_num			equ		$0000		;Device Number
call_num		equ		$0002		;Call Number
buff_ptr		equ		$0004		;Buffer Pointer
rqst_cnt		equ		$0008		;Request Count
trans_cnt		equ		$000C		;Transfer Count
block_num		equ		$0010		;Block Number (Read/Write only)
blk_size		equ		$0014		;Block Size
fst_num			equ		$0016		;FST Number (Read/Write only)
stat_code		equ		$0016		;Status Command Code
cont_code		equ		$0016		;Control Command Code
volume_id		equ		$0018		;Volume ID (Read/Write only)
cache_prio		equ		$001A		;Cache Priority Value (Read/Write only)
cache_ptr		equ		$001C		;Cache Pointer (Read/Write only)
dib_ptr			equ		$0020		;DIB Pointer
scsi_mdrvr		equ		$005A		;Main Driver Command Data Ptr goes here.
dvc_list		equ		scsi_mdrvr+4;Get Devices List (Startup Command Only)
scsi_zp0		equ		dvc_list+4	;User Defined Direct page scratch pad
scsi_zp1		equ		scsi_zp0+2	;User Defined Direct page scratch pad
scsi_zp2		equ		scsi_zp1+2	;User Defined Direct page scratch pad
scsi_zp3		equ		scsi_zp2+2	;User Defined Direct page scratch pad
scsi_zp4		equ		scsi_zp3+2	;User Defined Direct page scratch pad
scsi_zp5		equ		scsi_zp4+2	;User Defined Direct page scratch pad
scsi_zp6		equ		scsi_zp5+2	;User Defined Direct page scratch pad
scsi_zp7		equ		scsi_zp6+2	;User Defined Direct page scratch pad
first_dib		equ		scsi_zp7+2	;Start of DIB RAM (Startup Command Only)
next_dib		equ		first_dib+4	;Next DIB to be used (Startup Command Only)
last_dib		equ		next_dib+4	;Pointer to Default DIB Structure

sib_pointer		equ		$0074
smgr_pl_ptr		equ		$0078
									;
									; Memory attribute equates
									;
attrlock		equ		bit_15		;Block is locked down.
attrfixed		equ		bit_14		;Block can't move in mem
attrpurg1		equ		bit_8		;Purge level 1
attrpurg2		equ		bit_9		;Purge level 2
attrpurg3		equ		bit_8+bit_9	;Purge level 3
attrnocross		equ		bit_4		;May not cross banks
attrnospec		equ		bit_3		;don't use special mem
attrpage		equ		bit_2		;Page alligned
attraddr		equ		bit_1		;Remain at fixed address
attrbank		equ		bit_0		;Remain in fixed bank
									;
									; SCSI Command Translation Table Flags
									;
scsit_tx		equ		bit_15		;SCSI Send Data Command
scsit_rx		equ		bit_14		;SCSI Receive Data Command
scsit_stat		equ		bit_13		;SCSI Status Command
scsit_cont		equ		bit_12		;SCSI Control Command
scsit_data		equ		bit_11		;SCSI Data I/O Command
scsit_dvc		equ		bit_10		;SCSI Device I/O Command
scsit_blk		equ		bit_9		;Command has a Block Number
scsic_1st		equ		bit_8		;Must be first device if linked
scsic_int		equ		bit_7		;Internal Driver Command only
scsic_dsw		equ		bit_6		;Issue DISK_SW with this call
scsic_off		equ		bit_5		;Device is going offline.
scsic_tout		equ		bit_4		;Adjust time out by block count
scsid_asis		equ		bit_3		;CMD Data is in SCSI format
scsid_blk		equ		bit_1		;Convert Trans Count to Blocks
scsid_byte		equ		bit_0		;Leave Trans Count in Bytes
scsid_none		equ		null		;Transfer count does not go in CMD
scsi_endcmd		equ		null		;End of SCSI Translation Table
									;
									; Device Characteristics.
									;
ram_rom_disk	equ		bit_15		;RAM or ROM Disk		if Set
gened_drvr		equ		bit_14		;Generated Driver		if Set
linked_dvc		equ		bit_13		;Linked Device			if Set
call_active		equ		bit_12		;Device Busy			if Set
mhz_1			equ		null		;1 Mhz Device
mhz_2_6			equ		bit_8		;2.6 Mhz Device
mhz_gt_2_6		equ		bit_9		;>2.6 Mhz Device
speed_ind		equ		bit_8+bit_9	;Device is speed independent
blk_device		equ		bit_7		;Block Device			if Set
write_allow		equ		bit_6		;Write is Allowed		if Set
read_allow		equ		bit_5		;Read is Allowed		if Set
format_allow	equ		bit_3		;Format is Allowed		if Set
removable		equ		bit_2		;Removable Media		if Set
									;
									; Device Flags for 'dvcflag'.  All
									; are considered true if set.
									;
int_busy		equ		bit_15		;Internal busy flag for async
wait_mode		equ		bit_14		;Driver Wait/No Wait state
dvc_online		equ		bit_13		;Device Online Flag
dvc_switch		equ		bit_12		;Device Switched Flag
dvc_hardofl		equ		bit_11		;Device Hard Offline Flag
;	Bits 0 - 10 are reserved at this time.
									;
									; Error Codes.
									;
no_error		equ		$0000
bad_dev_number	equ		$0011
drvr_bad_req	equ		$0020
drvr_bad_code	equ		$0021
drvr_bad_parm	equ		$0022
drvr_not_open	equ		$0023
drvr_prior_open	equ		$0024
drvr_io			equ		$0027
drvr_no_dev		equ		$0028
drvr_busy		equ		$0029
drvr_bad_cnt	equ		$002c
drvr_off_line	equ		$002f


;*******************************************************
;
;	The following statements are used to define the DIB
;	structure.  The structure contains the traditional
;	DIB followed by an extension used for device
;	maintainence.  All together each DIB with the
;	associated extensions will take one page of RAM.
;
;*******************************************************
;
;	$00	------------------------------------------------
;		|											   |
;		|      Device Information Block Data (DIB)     |
;	$3F	|											   |
;		------------------------------------------------
;	$40	|             Physical Block Number            |
;		|											   |
;	$43	|        that maps to logical block zero       |
;		------------------------------------------------
;	$44	|											   |
;		|                 Head Pointer                 |
;	$47	|											   |
;		------------------------------------------------
;	$48	|											   |
;		|               Forward Pointer                |
;	$4B	|											   |
;		------------------------------------------------
;	$4C	|				Memory DIB Count			   |
;		------------------------------------------------
;	$4E	|					Reserved				   |
;		------------------------------------------------
;	$50	|											   |
;		|      Memory Manager Handle for this DIB      |
;	$53	|											   |
;		------------------------------------------------
;	$54	|											   |
;		|              Block Size (Bytes)              |
;	$57	|											   |
;		------------------------------------------------
;	$58	|       Max SCSI Command for this Device       |
;		------------------------------------------------
;	$5A	|                                              |
;		|   Command Bitmap (See ERS for description)   |
;	$79	|                                              |
;		------------------------------------------------
;	$7A	|              SCSI Command Data               |
;		|                     and                      |
;	$D9	|      SCSI Manager Call Buffer Structures     |
;		------------------------------------------------
;	$DA	|            'Busy' and other Flags            |
;		------------------------------------------------
;	$DC	|                                              |
;		|          Completion Vector with Code         |
;	$FF	|                                              |
;		------------------------------------------------
;
;*******************************************************

dib				RECORD	$0000
									;
									; Definition of DIB Structure.
									;
linkptr			ds.l	1			; DIB Link Pointer				(LONG)
entry			ds.l	1			; Pointer to Drvrs Main Entry	(LONG)
dvcchar			ds.w	1			; Device Characteristics		(WORD)
blkcnt			ds.l	1			; Block Count for this device	(LONG)
namelen			ds.b	1			; Length of Descriptive Name	(PSTR)
disname			ds.b	31			; Field for this devices Name	(STR)
slotnum			ds.w	1			; Device Slot Number from MGR.	(WORD)
unitnum			ds.w	1			; Device Unit Number from MGR.	(WORD)
versnum			ds.w	1			; Version Number for our Driver	(WORD)
dvcid			ds.w	1			; ID of Device we talk to		(WORD)
headlnk			ds.w	1			; Head Device Link				(WORD)
fdvclnk			ds.w	1			; Forward Device Link			(WORD)
ext_ptr			ds.l	1			; Pointer to DIB Extension		(LONG)
devnum			ds.w	1			; DIB Device Number				(WORD)
									;
									; The Starting Block Number for this device
									; is maintained here.  This is used to
									; modify the requested block number from
									; a logical to a physical number.
									;
start_blk		ds.l	1			; Starting Physical Block Num.	(LONG)
									;
									; These two pointers are the compliment
									; to the links in the standard DIB and
									; will point to the actual DIB referenced
									; in the Head and Forward Device Links.
									;
headptr			ds.l	1			; Head Dvc Pointer				(LONG)
fdvcptr			ds.l	1			; Forward Dvc Pointer			(LONG)
mem_dib_cnt		ds.w	1			; Number of active dibs in mem	(WORD)
part_blk		ds.w	1			; Reserved						(WORD)
									;
									; Memory Manager Handle
									;
handle			ds.l	1			;								(LONG)
									;
									; Block Size
									;
blksize			ds.l	1			;								(LONG)
									;
									; Maximum SCSI Command supported by
									; the device for this DIB.
									;
maxcmd			ds.w	1			;								(WORD)
									;
									; SCSI Command Group Bitmaps
									;
group0			ds.l	1			; Group 0						(LONG)
group1			ds.l	1			; Group 1						(LONG)
group2			ds.l	1			; Group 2						(LONG)
group3			ds.l	1			; Group 3						(LONG)
group4			ds.l	1			; Group 4						(LONG)
group5			ds.l	1			; Group 5						(LONG)
group6			ds.l	1			; Group 6						(LONG)
group7			ds.l	1			; Group 7						(LONG)
									;
									; SCSI Manager Call PList
									;
scsiid			ds.w	1			; Same as our Unit Number		(WORD)
scsic_flgs		ds.w	1			; Flags from Command Table		(WORD)
time_out		ds.w	1			; Time Out Factor * xxx ms		(WORD)
compvec			ds.l	1			; Completion Routine Pointer	(LONG)
cp_ptr			ds.l	1			; Pointer to Command Packet		(LONG)
trx_ptr			ds.l	1			; Ptr to Send/R'cv Structure	(LONG)
trx_len
trx_rqst		ds.l	1			; Users Send/R'cv Length		(LONG)
rslt_ptr		ds.l	1			; Pointer to Status Structure	(LONG)
msg_ptr			ds.l	1			; Pointer to Message Structure	(LONG)
reserv0			ds.w	1			; Reserved space 0				(WORD)
reserv1			ds.w	1			; Reserved space 1				(WORD)
									;
									; SCSI Command Packet
									;
scsicmd			ds.b	12			; Room for any SCSI Command		(BYTES)
									;
									; SCSI Manager Device Send/R'cv Buffers List
									;
trx_buff		ds.l	1			; Users Send Buffer				(LONG)
trx_length		ds.l	1			; Request cnt for this buffer	(LONG)
trx_offset		ds.l	1			; Offset for next pass			(LONG)
trx_null		ds.l	1			; Null							(LONG)
trx_stop		ds.l	1			; Null							(LONG)
				ds.l	1			; Null							(LONG)
				ds.l	1			; Null							(LONG)
				ds.l	1			; Null							(LONG)
trx_rsrv		ds.l	4			; Reserved Space * 4 for future	(LONG)
									;
									; Device Busy and other Flags and results
									;
dvcflag			ds.w	1			; Device Busy and other Flags	(WORD)
									;
									; Completion Routine for this DIB.
									; This takes the remaining space in
									; the allocated RAM.  Any routine can
									; be placed here but must never go
									; beyond offset $FF
									;
end				equ		*
complet			ds.b	$100-end

				ENDR

pm				RECORD	$0000
									;
									; All Values given below are
									; in Macintosh High >> Low
									; format.
									; 
Sig				ds.w	1			;Signature Always $504d
									;		Apple II = $4d50
SigPad			ds.w	1			;Reserved for future use
MapBlkCnt		ds.l	1			;Number of blocks in Map
PyPartStart		ds.l	1			;First Physical Block of Partition
PartBlkCnt		ds.l	1			;Number of Blocks in Partition
PartName		ds.b	32			;Partition Name
PartType		ds.b	32			;Partition Type
LgDataStart		ds.l	1			;1st Logical Data Block
DataCnt			ds.l	1			;Number of data blocks
PartStatus		ds.l	1			;Partition Status Info
LgBootStart		ds.l	1			;1st Logical Boot Block
BootSize		ds.l	1			;Size of Boot Code in Bytes
BootLoad		ds.l	1			;Boot Code Load Address
BootLoad2		ds.l	1			;Additional Boot Load Info
BootEntry		ds.l	1			;Boot Code Entry Point
BootEntry2		ds.l	1			;Additional Boot Entry Info
BootCksum		ds.l	1			;Boot Code Checksum
Processor		ds.b	16			;Processor Type
Args			ds.b	128			;Boot Specific Arguments
end				equ		*
				ds.b	$200-end	;Pad to 1 Block
				ENDR

block			RECORD	$0000

count			ds.l	1		;Block Count High >> Low
size			ds.l	1		;Block Size High >> Low

				ENDR

mode			RECORD	$0000

sense_len		ds.b	1		;Sense Data Length
med_type		ds.b	1		;Medium Type
w_protect		ds.b	1		;Write Protect bit 7
				ds.b	2		;Unused data
blocks			ds.b	3		;Block Count High >> Low
				ds.b	1		;Unused data
blk_size		ds.b	3		;Block Size High >> Low

				ENDR

inq				RECORD	$0000

pd_type			ds.b	1		;Peripheral Device Type
removable		ds.b	1		;Removable bit 7
				ds.b	$26-2	;Unused data
group			ds.b	1		;First Group Number

				ENDR

ds				RECORD	$0000

version			ds.w	1		;Version Number of this structure
				ds.b	12		;Command Bytes
DCcode			ds.l	1		;1st DC Code
DCcount			ds.l	1		;1st Count
DCoffset		ds.l	1		;1st Offset
DCreserved		ds.l	1		;1st Reserved

				ENDR

				EJECT
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSIHD.Driver.make b/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSIHD.Driver.make
new file mode 100644
index 0000000..3b4456c
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSIHD.Driver.make
@@ -0,0 +1 @@
+#   File:       SCSI.Driver.make
#   Target:     SCSIHD.Driver
#   Sources:    'SCSI Driver main'
#               'SCSI Command Table'
#               'SCSI Filter startup'
#               'SCSI Filter open'
#               'SCSI Filter read'
#               'SCSI Filter write'
#               'SCSI Filter close'
#               'SCSI Filter status'
#               'SCSI Filter control'
#               'SCSI Filter flush'
#               'SCSI Filter shutdown'
#               'SCSI Main Driver'
#               'SCSI Driver Mgmt'
#   Created:    Thursday, June 9, 1988 9:30:49 AM
#  Modified:    Monday, November 21, 1988 7:05:00 AM

SCSIHD.Driver ÄÄ SCSIHD.Driver.make ¶
		:HD.Obj:'SCSIHD Driver main.obj' ¶
		:HD.Obj:'SCSIHD Command Table.obj' ¶
		:HD.Obj:'SCSIHD Filter startup.obj' ¶
		:HD.Obj:'SCSIHD Filter open.obj' ¶
		:HD.Obj:'SCSIHD Filter read.obj' ¶
		:HD.Obj:'SCSIHD Filter write.obj' ¶
		:HD.Obj:'SCSIHD Filter close.obj' ¶
		:HD.Obj:'SCSIHD Filter status.obj' ¶
		:HD.Obj:'SCSIHD Filter control.obj' ¶
		:HD.Obj:'SCSIHD Filter flush.obj' ¶
		:HD.Obj:'SCSIHD Filter shutdown.obj' ¶
		:HD.Obj:'SCSIHD Main Driver.obj' ¶
		:HD.Obj:'SCSIHD Driver Mgmt.obj'
    LinkIIGS -t $bb -at $013f ¶
		:HD.Obj:'SCSIHD Driver main.obj' ¶
		:HD.Obj:'SCSIHD Command Table.obj' ¶
		:HD.Obj:'SCSIHD Filter startup.obj' ¶
		:HD.Obj:'SCSIHD Filter open.obj' ¶
		:HD.Obj:'SCSIHD Filter read.obj' ¶
		:HD.Obj:'SCSIHD Filter write.obj' ¶
		:HD.Obj:'SCSIHD Filter close.obj' ¶
		:HD.Obj:'SCSIHD Filter status.obj' ¶
		:HD.Obj:'SCSIHD Filter control.obj' ¶
		:HD.Obj:'SCSIHD Filter flush.obj' ¶
		:HD.Obj:'SCSIHD Filter shutdown.obj' ¶
		:HD.Obj:'SCSIHD Main Driver.obj' ¶
		:HD.Obj:'SCSIHD Driver Mgmt.obj' ¶
		-o 'SCSIHD.Driver'
	duplicateiigs -y -m SCSIHD.Driver SCSIHD.Driver
:HD.Obj:'SCSIHD Driver main.obj' Ä ¶
		'SCSIHD.Driver.make' ¶
		'SCSI Driver main' ¶
		'SCSIHD.equates'
	AsmIIGS -d &type,type=0 'SCSI Driver main' ¶
		-o :HD.Obj:'SCSIHD Driver main.obj'
:HD.Obj:'SCSIHD Command Table.obj' Ä ¶
		'SCSIHD.Driver.make' ¶
		'SCSI Command Table' ¶
		'SCSIHD.equates'
	AsmIIGS -d &type,type=0 'SCSI Command Table' ¶
		-o :HD.Obj:'SCSIHD Command Table.obj'
:HD.Obj:'SCSIHD Filter startup.obj' Ä ¶
		'SCSIHD.Driver.make' ¶
		'SCSI Filter startup' ¶
		'SCSIHD.equates'
	AsmIIGS -d &type,type=0 'SCSI Filter startup' ¶
		-o :HD.Obj:'SCSIHD Filter startup.obj'
:HD.Obj:'SCSIHD Filter open.obj' Ä ¶
		'SCSIHD.Driver.make' ¶
		'SCSI Filter open' ¶
		'SCSIHD.equates'
	AsmIIGS -d &type,type=0 'SCSI Filter open' ¶
		-o :HD.Obj:'SCSIHD Filter open.obj'
:HD.Obj:'SCSIHD Filter read.obj' Ä ¶
		'SCSIHD.Driver.make' ¶
		'SCSI Filter read' ¶
		'SCSIHD.equates'
	AsmIIGS -d &type,type=0 'SCSI Filter read' ¶
		-o :HD.Obj:'SCSIHD Filter read.obj'
:HD.Obj:'SCSIHD Filter write.obj' Ä ¶
		'SCSIHD.Driver.make' ¶
		'SCSI Filter write' ¶
		'SCSIHD.equates'
	AsmIIGS -d &type,type=0 'SCSI Filter write' ¶
		-o :HD.Obj:'SCSIHD Filter write.obj'
:HD.Obj:'SCSIHD Filter close.obj' Ä ¶
		'SCSIHD.Driver.make' ¶
		'SCSI Filter close' ¶
		'SCSIHD.equates'
	AsmIIGS -d &type,type=0 'SCSI Filter close' ¶
		-o :HD.Obj:'SCSIHD Filter close.obj'
:HD.Obj:'SCSIHD Filter status.obj' Ä ¶
		'SCSIHD.Driver.make' ¶
		'SCSI Filter status' ¶
		'SCSI Get Vol/Disk' ¶
#		'SCSI Get Config' ¶
		'SCSIHD.equates'
	AsmIIGS -d &type,type=0 'SCSI Filter status' ¶
		-o :HD.Obj:'SCSIHD Filter status.obj'
:HD.Obj:'SCSIHD Filter control.obj' Ä ¶
		'SCSIHD.Driver.make' ¶
		'SCSI Filter control' ¶
		'SCSI Set Vol/Disk' ¶
#		'SCSI Set Config' ¶
		'SCSIHD.equates'
	AsmIIGS -d &type,type=0 'SCSI Filter control' ¶
		-o :HD.Obj:'SCSIHD Filter control.obj'
:HD.Obj:'SCSIHD Filter flush.obj' Ä ¶
		'SCSIHD.Driver.make' ¶
		'SCSI Filter flush' ¶
		'SCSIHD.equates'
	AsmIIGS -d &type,type=0 'SCSI Filter flush' ¶
		-o :HD.Obj:'SCSIHD Filter flush.obj'
:HD.Obj:'SCSIHD Filter shutdown.obj' Ä ¶
		'SCSIHD.Driver.make' ¶
		'SCSI Filter shutdown' ¶
		'SCSIHD.equates'
	AsmIIGS -d &type,type=0 'SCSI Filter shutdown' ¶
		-o :HD.Obj:'SCSIHD Filter shutdown.obj'
:HD.Obj:'SCSIHD Main Driver.obj' Ä ¶
		'SCSIHD.Driver.make' ¶
		'SCSI Main Driver' ¶
		'SCSIHD.equates'
	AsmIIGS -d &type,type=0 'SCSI Main Driver' ¶
		-o :HD.Obj:'SCSIHD Main Driver.obj'
:HD.Obj:'SCSIHD Driver Mgmt.obj' Ä ¶
		'SCSIHD.Driver.make' ¶
		'SCSI Driver Mgmt' ¶
		'SCSIHD.equates'
	AsmIIGS -d &type,type=0 'SCSI Driver Mgmt' ¶
		-o :HD.Obj:'SCSIHD Driver Mgmt.obj'
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSIHD.Equates b/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSIHD.Equates
new file mode 100644
index 0000000..1102cd2
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSIHD.Equates
@@ -0,0 +1 @@
+
;*********************************************************************************
;
;	SCSI Driver 'Equates' file..
;
;	Written by Matt Gulick.		Started August 13,1988
;
;	Copyright Apple Computer, Inc. 1988-93
;	All Rights Reserved
;
;*********************************************************************************
;
; *** 6.0.1 ***
;
; 15-Dec-92 DAL for 6.0.1d12
;   Changed apple_cd version number to $601a.
;
; 17-Feb-93 JCM for 6.0.1d14
;   Changed direct_acc, mcd_40, scanner and appl_laser (for good measure anyway)
;   version numbers to $601a.
;
;  6-Mar-93 JCM for 6.0.1d14
;	Added equate for new characteristics bit ($0010) called "driver_is_clean".
;	This indicates that we cleanly ignore/return errors when we get a command
;	request from GS/OS or the Device Manager that we don't know about. This was
;	specified in the guidelines since day one, but can people read and follow them?
;   Of course not, that would make my job too easy.
;
;  2-Apr-93 SS for 6.0.1d16
;
;   Changed direct_acc, apple_cd, mcd_40, scanner and appl_laser
;   version numbers to $6010 (final)
;
;*********************************************************************************

;*********************************************************************************
;
;	This file contains all the global equates for the
;	SCSI Driver.  Only those items below that are marked
;	as "**** Changable ****" can be altered safly
;	without detailed intimate knowledge of how the
;	generic driver functions.  Any other values should
;	only be modified by someone who understands how this
;	generic driver functions.
;
;*********************************************************************************

									;
									; Bit Location equates
									;
null			equ		%0000000000000000
bit_0			equ		%0000000000000001
bit_1			equ		%0000000000000010
bit_2			equ		%0000000000000100
bit_3			equ		%0000000000001000
bit_4			equ		%0000000000010000
bit_5			equ		%0000000000100000
bit_6			equ		%0000000001000000
bit_7			equ		%0000000010000000
bit_8			equ		%0000000100000000
bit_9			equ		%0000001000000000
bit_10			equ		%0000010000000000
bit_11			equ		%0000100000000000
bit_12			equ		%0001000000000000
bit_13			equ		%0010000000000000
bit_14			equ		%0100000000000000
bit_15			equ		%1000000000000000
									;
									; Partition Map Signature
									;
Part_sig		equ		$4d50		;High-->Low
									;
									; Driver Descriptor Map Signature
									;
DDM_sig			equ		$5245		;High-->Low
									;
									; Booleans
									;
true			equ		bit_0
false			equ		null
									;
									; Time definitions.
									;
qtr_sec			equ		$0001
one_sec			equ		4*qtr_sec
one_min			equ		60*one_sec
									;
									; SCSI Driver dependent data
									;
cmd_start		equ		$0000		;Driver Startup Call
cmd_open		equ		$0001		;Driver Open Call
cmd_read		equ		$0002		;Driver Read Call
cmd_write		equ		$0003		;Driver Write Call
cmd_close		equ		$0004		;Driver Close Call
cmd_status		equ		$0005		;Driver Status Call
cmd_control		equ		$0006		;Driver Control Call
cmd_flush		equ		$0007		;Driver Flush Call
cmd_shutdown	equ		$0008		;Driver Shutdown Call
max_d_cmd		equ		$0008		;Max Driver Command	**** Changable ****
max_s_cmd		equ		$0005		;Max Status Code	**** Changable ****
max_c_cmd		equ		$0009		;Max Control Code	**** Changable ****
max_config_cmd	equ		$0001		;Max Config Code	**** Changable ****
									;
									; Suppervisory Dispatcher IDs and
									; SCSI Manager Command Numbers
									;
super_d_id		equ		$0000		;Supervisory Dispatcher's ID
get_sdrvr_id	equ		$0000		;Get S Driver's ID Number
set_sib_ptr		equ		$0001		;Set SIB Pointer
cmd_get_dvc		equ		$0002		;SCSI Manager Get Devices Call
cmd_claim_dvc	equ		$0003		;SCSI Manager Claim Devices Call
scsi_io_call	equ		$0004		;SCSI Manager I/O Call
									;
									; SCSI Device Types from INQUIRY Call
									;
direct_acc		equ		$0000		; Direct-Access Device
seq_acc			equ		$0001		; Sequential-Access Device
print_dvc		equ		$0002		; Printer Device
proc_dvc		equ		$0003		; Processor Device
worm_dvc		equ		$0004		; Write-once Read-multiple Device
read_dacc		equ		$0005		; Read-only Direct-Access Device
scanner			equ		$0006		; Scanner Device
optic_mem		equ		$0007		; Optical Memory Devices
changer			equ		$0008		; Changer Devices
comm_dvc		equ		$0009		; Communication Devices
mcd_40			equ		$0010		; Apple's tape. Direct Access Magnetic Tape Device
apple_cd		equ		read_dacc	; Apple's CD-ROM
apple_scan		equ		scanner		; Apple's Scanner
appl_laser		equ		$0002		; Apple's LaserWriter SC
data_dat		equ		$00ff		; Data Dat Device
mag_optical		equ		direct_acc	; Magneto-Optical Device
									;
									; Type of Device we support in this driver.
									;

;-------------------------------------------------------------------------------

				IF			Type = 0	Then

									;
									; SCSI Driver Version Number.
									; and other driver dependent data
									;
drvr_vers		equ		$6010		;Driver 6.0.1 for GS/OS 6.0.1 - 2-Apr-93 SS
scsi_dtype		equ		direct_acc
block_dvc		equ		true
character_dvc	equ		false
part_suprt		equ		true		;Supports Partions TRUE/FALSE
warm_ss_suprt	equ		true		;Supports Warm Shutdown/Startups
;warm_ss_suprt	equ		false		;Supports Warm Shutdown/Startups
block_size		equ		$200
cache_blks		equ		true
dibs_2_make		equ		4			;Number of dibs to make if growing
max_dvc_cnt		equ		100			;Yes: that's decimal 100
p_mask_adder	equ		bit_10		;First Bit of Partition Count. *** Changable ***
max_p_mask		equ		p_mask_adder\		;6 bits of unit number
						+p_mask_adder*2\
						+p_mask_adder*4\
						+p_mask_adder*8\
						+p_mask_adder*16\
						+p_mask_adder*32
max_partitions	equ		max_p_mask\
						/p_mask_adder+1
interleave		equ		1
max_timeout		equ		60*one_min	;**** Changable ****
									;
									; IMMED Bit is bit 0 of byte 1 in
									; the standard SCSI Command for
									; Direct-Access Devices.
									; That means the high byte because
									; of the 65xxx Low -> High structure.
									; Kind of confusing!
									;
immed_loc		equ		bit_0		; IMMED Bit Usage

				ENDIF

;-------------------------------------------------------------------------------

				IF			Type = 1	Then

									;
									; SCSI Driver Version Number.
									; and other driver dependent data
									;
drvr_vers		equ		$6010		;Driver 6.0.1 for GS/OS 6.0.1 (2-Apr-93 SS)
scsi_dtype		equ		apple_cd
block_dvc		equ		true
character_dvc	equ		false
part_suprt		equ		true		;Supports Partions TRUE/FALSE
warm_ss_suprt	equ		true		;Supports Warm Shutdown/Startups
;warm_ss_suprt	equ		false		;Supports Warm Shutdown/Startups
block_size		equ		$200
cache_blks		equ		true
dibs_2_make		equ		4			;Number of dibs to make if growing
max_dvc_cnt		equ		100			;Yes: that's decimal 100
p_mask_adder	equ		bit_10		;First Bit of Partition Count. *** Changable ***
max_p_mask		equ		p_mask_adder\		;6 bits of unit number
						+p_mask_adder*2\
						+p_mask_adder*4\
						+p_mask_adder*8\
						+p_mask_adder*16\
						+p_mask_adder*32
max_partitions	equ		max_p_mask\
						/p_mask_adder+1
interleave		equ		0			;Format not allowed
max_timeout		equ		60*one_min	;**** Changable ****
									;
									; IMMED Bit is bit 0 of byte 1 in
									; the standard SCSI Command for
									; Direct-Access Devices.
									; That means the high byte because
									; of the 65xxx Low -> High structure.
									; Kind of confusing!
									;
immed_loc		equ		null		;No IMMED Bit Usage

				ENDIF

;-------------------------------------------------------------------------------

				IF			Type = 2	Then

									;
									; SCSI Driver Version Number.
									; and other driver dependent data
									;
drvr_vers		equ		$6010		;Driver 6.0.1 for GS/OS 6.0.1 - 2-Apr-93 SS
scsi_dtype		equ		mcd_40
block_dvc		equ		true
character_dvc	equ		false
part_suprt		equ		false		;Supports Partions TRUE/FALSE
warm_ss_suprt	equ		false		;Supports Warm Shutdown/Startups
block_size		equ		$2000
cache_blks		equ		false
dibs_2_make		equ		1			;Number of dibs to make if growing
max_dvc_cnt		equ		10			;Yes: that's decimal 10
p_mask_adder	equ		bit_10		;First Bit of Partition Count. *** Changable ***
max_p_mask		equ		p_mask_adder	;1 bit unit number
max_partitions	equ		max_p_mask\
						/p_mask_adder
interleave		equ		0			;None for tape drive
max_timeout		equ		60*one_min	;**** Changable ****
									;
									; IMMED Bit is bit 0 of byte 1 in
									; the standard SCSI Command for
									; Direct-Access Devices.
									; That means the high byte because
									; of the 65xxx Low -> High structure.
									; Kind of confusing!
									;
immed_loc		equ		bit_8		;**** Changable ****
immed_load		equ		bit_0		;**** Changable ****

				ENDIF

;-------------------------------------------------------------------------------

				IF			Type = 3	Then

									;
									; SCSI Driver Version Number.
									; and other driver dependent data
									;
drvr_vers		equ		$6010		;Driver 6.0.1 for GS/OS 6.0.1 - 2-Apr-93 SS
scsi_dtype		equ		scanner
block_dvc		equ		false
character_dvc	equ		true
part_suprt		equ		false		;Supports Partions TRUE/FALSE
warm_ss_suprt	equ		false		;Supports Warm Shutdown/Startups
block_size		equ		null
cache_blks		equ		false
dibs_2_make		equ		1			;Number of dibs to make if growing
max_dvc_cnt		equ		1			;Yes: that's decimal 1
p_mask_adder	equ		bit_10		;First Bit of Partition Count. *** Changable ***
max_p_mask		equ		p_mask_adder	;1 bit unit number
max_partitions	equ		max_p_mask\
						/p_mask_adder
interleave		equ		0			;None for Scanner
max_timeout		equ		60*one_min	;**** Changable ****
									;
									; IMMED Bit is bit 0 of byte 1 in
									; the standard SCSI Command for
									; Direct-Access Devices.
									; That means the high byte because
									; of the 65xxx Low -> High structure.
									; Kind of confusing!
									;
immed_loc		equ		null

				ENDIF

;-------------------------------------------------------------------------------

				IF			Type = 4	Then

									;
									; SCSI Driver Version Number.
									; and other driver dependent data
									;
drvr_vers		equ		$6010		;Driver 6.0.1 for GS/OS 6.0.1 - 2-Apr-93 SS
scsi_dtype		equ		appl_laser
block_dvc		equ		false
character_dvc	equ		true
part_suprt		equ		false		;Supports Partions TRUE/FALSE
warm_ss_suprt	equ		false		;Supports Warm Shutdown/Startups
block_size		equ		null
cache_blks		equ		false
dibs_2_make		equ		1			;Number of dibs to make if growing
max_dvc_cnt		equ		1			;Yes: that's decimal 1
p_mask_adder	equ		bit_10		;First Bit of Partition Count. *** Changable ***
max_p_mask		equ		p_mask_adder	;1 bit unit number
max_partitions	equ		max_p_mask\
						/p_mask_adder
interleave		equ		0			;None for appl_laser
max_timeout		equ		60*one_min	;**** Changable ****
									;
									; IMMED Bit is bit 0 of byte 1 in
									; the standard SCSI Command for
									; Direct-Access Devices.
									; That means the high byte because
									; of the 65xxx Low -> High structure.
									; Kind of confusing!
									;
immed_loc		equ		null

				ENDIF

;-------------------------------------------------------------------------------

				IF 		block_dvc = character_dvc	THEN

;				"These two can not be the same!"

				ENDIF

;-------------------------------------------------------------------------------

									;
									; Structure Sizes.
									;
one_page		equ		$00000100
dib_size		equ		one_page
max_gdvc_buf	equ		$00000704
max_cmd_len		equ		12			;Yes: that's decimal 12

scsi_duid		equ		$3C00		;**** Changable ****
claim_dvc		equ		false		;**** Changable ****

warm_cold_flag	equ		$e101d0		;word:	0 = cold startup/shutdown
									;		1 = warm startup/shutdown

									;
									; System Service Calls we need.
									;
;*******************************************************
;
;	ENTRY:	move_info via 'jsl'
;
;				LONGWORD	- Source buffer pointer
;				LONGWORD	- Destination buffer pointer
;				LONGWORD	- Transfer length
;				WORD		- Source buffer pointer
;		SP -->
;
;		A Reg	=	Undefined
;		X Reg	=	Undefined
;		Y Reg	=	Undefined
;	 Bank Reg	=	Undefined
;	  Dir Reg	=	GS/OS Direct Page
;		P Reg	=	N V M X D I Z C  E
;					x x 0 0 0 x x x  0
;
;	EXIT:	move_info via 'rtl'
;
;		A Reg	=	Error Code
;		X Reg	=	Undefined
;		Y Reg	=	Undefined
;	 Bank Reg	=	Undefined
;	  Dir Reg	=	GS/OS Direct Page
;		P Reg	=	N V M X D I Z C  E
;					x x 0 0 0 x x 0  0	No Error
;					x x 0 0 0 x x 1  0	Error
;
;*******************************************************

move_info		equ		$01fc70

moveblkcmd		equ		$0800		;Block Move Option
move_sinc_dinc	equ		$0805		;Source Inc, Dest Inc

move_sinc_ddec	equ		$0809		;Source Inc, Dest Dec
move_sdec_dinc	equ		$0806		;Source Dec, Dest Inc
move_sdec_ddec	equ		$080a		;Source Dec, Dest Dec

move_scon_dcon	equ		$0800		;Source con, Dest con
move_sinc_dcon	equ		$0801		;Source Inc, Dest con
move_sdec_dcon	equ		$0802		;Source Dec, Dest con
move_scon_dinc	equ		$0804		;Source con, Dest Inc
move_scon_ddec	equ		$0808		;Source con, Dest Dec

;*******************************************************
;
;	ENTRY:	set_disksw via 'jsl'
;
;		A Reg	=	Undefined
;		X Reg	=	Undefined
;		Y Reg	=	Undefined
;	 Bank Reg	=	Undefined
;	  Dir Reg	=	GS/OS Direct Page
;		P Reg	=	N V M X D I Z C  E
;					x x 0 0 0 x x x  0
;
;	EXIT:	set_disksw via 'rtl'
;
;		A Reg	=	Undefined
;		X Reg	=	Undefined
;		Y Reg	=	Undefined
;	 Bank Reg	=	Undefined
;	  Dir Reg	=	GS/OS Direct Page
;		P Reg	=	N V M X D I Z C  E
;					x x 0 0 0 x x 0  0	No Error
;
;*******************************************************

cache_find_blk	equ		$01fc04

cache_add_blk	equ		$01fc08

cache_kil_blk	equ		$01fc14

cache_del_vol	equ		$01fc18

set_disksw		equ		$01fc90

s_dispatch		equ		$01fca4

install_driver	equ		$01fca8
									;
									; Direct Page Addresses.
									;
dev_num			equ		$0000		;Device Number
call_num		equ		$0002		;Call Number
buff_ptr		equ		$0004		;Buffer Pointer
rqst_cnt		equ		$0008		;Request Count
trans_cnt		equ		$000C		;Transfer Count
block_num		equ		$0010		;Block Number (Read/Write only)
blk_size		equ		$0014		;Block Size
fst_num			equ		$0016		;FST Number (Read/Write only)
stat_code		equ		$0016		;Status Command Code
cont_code		equ		$0016		;Control Command Code
volume_id		equ		$0018		;Volume ID (Read/Write only)
cache_prio		equ		$001A		;Cache Priority Value (Read/Write only)
cache_ptr		equ		$001C		;Cache Pointer (Read/Write only)
dib_ptr			equ		$0020		;DIB Pointer
start_our_zp	equ		$0030
scsi_mdrvr		equ		start_our_zp;Main Driver Command Data Ptr goes here.
dvc_list		equ		scsi_mdrvr+4;Get Devices List (Startup Command Only)
scsi_zp0		equ		dvc_list+4	;User Defined Direct page scratch pad
scsi_zp1		equ		scsi_zp0+2	;User Defined Direct page scratch pad
scsi_zp2		equ		scsi_zp1+2	;User Defined Direct page scratch pad
scsi_zp3		equ		scsi_zp2+2	;User Defined Direct page scratch pad
scsi_zp4		equ		scsi_zp3+2	;User Defined Direct page scratch pad
scsi_zp5		equ		scsi_zp4+2	;User Defined Direct page scratch pad
scsi_zp6		equ		scsi_zp5+2	;User Defined Direct page scratch pad
scsi_zp7		equ		scsi_zp6+2	;User Defined Direct page scratch pad
first_dib		equ		scsi_zp7+2	;Start of DIB RAM (Startup Command Only)
next_dib		equ		first_dib+4	;Next DIB to be used (Startup Command Only)
last_dib		equ		next_dib+4	;Pointer to Default DIB Structure
prev_dib		equ		last_dib+4	;Pointer to previous DIB in linked list
add_dib_here	equ		prev_dib+4	;Pointer for DIB walking code
rebuild_zp		equ		add_dib_here+4	;Reserved for the use of rebuild dib code
config_buff		equ		rebuild_zp+4;Pointer to the current Config Data
ddm_buff		equ		config_buff+4	;Pointer to DDM
config_tcnt		equ		ddm_buff+4	;Pointer to the Transfer Count word.
end_our_zp		equ		config_tcnt+4

sib_pointer		equ		$0074
smgr_pl_ptr		equ		$0078
									;
									; Memory attribute equates
									;
attrlock		equ		bit_15		;Block is locked down.
attrfixed		equ		bit_14		;Block can't move in mem
attrpurg1		equ		bit_8		;Purge level 1
attrpurg2		equ		bit_9		;Purge level 2
attrpurg3		equ		bit_8+bit_9	;Purge level 3
attrnocross		equ		bit_4		;May not cross banks
attrnospec		equ		bit_3		;don't use special mem
attrpage		equ		bit_2		;Page alligned
attraddr		equ		bit_1		;Remain at fixed address
attrbank		equ		bit_0		;Remain in fixed bank
									;
									; SCSI Command Translation Table Flags
									;
scsit_tx		equ		bit_15		;SCSI Send Data Command
scsit_rx		equ		bit_14		;SCSI Receive Data Command
scsit_stat		equ		bit_13		;SCSI Status Command
scsit_cont		equ		bit_12		;SCSI Control Command
scsit_data		equ		bit_11		;SCSI Data I/O Command
scsit_dvc		equ		bit_10		;SCSI Device I/O Command
scsit_blk		equ		bit_9		;Command has a Block Number
scsic_1st		equ		bit_8		;Must be first device if linked
scsic_int		equ		bit_7		;Internal Driver Command only
scsic_dsw		equ		bit_6		;Issue DISK_SW with this call
scsic_off		equ		bit_5		;Device is going offline.
scsic_tout		equ		bit_4		;Adjust time out by block count
scsid_asis		equ		bit_3		;CMD Data is in SCSI format
scsid_blk		equ		bit_1		;Convert Trans Count to Blocks
scsid_byte		equ		bit_0		;Leave Trans Count in Bytes
scsid_none		equ		null		;Transfer count does not go in CMD
scsi_endcmd		equ		null		;End of SCSI Translation Table
									;
									; Device Characteristics.
									;
ram_rom_disk	equ		bit_15		;RAM or ROM Disk		if Set
gened_drvr		equ		bit_14		;Generated Driver		if Set
linked_dvc		equ		bit_13		;Linked Device			if Set
call_active		equ		bit_12		;Device Busy			if Set
restartable		equ		bit_11		;Restartable from ram	if Set
mhz_1			equ		null		;1 Mhz Device
mhz_2_6			equ		bit_8		;2.6 Mhz Device
mhz_gt_2_6		equ		bit_9		;>2.6 Mhz Device
speed_ind		equ		bit_8+bit_9	;Device is speed independent
blk_device		equ		bit_7		;Block Device			if Set
write_allow		equ		bit_6		;Write is Allowed		if Set
read_allow		equ		bit_5		;Read is Allowed		if Set
driver_is_clean	equ		bit_4		;Driver follows guidelines if Set
format_allow	equ		bit_3		;Format is Allowed		if Set
removable		equ		bit_2		;Removable Media		if Set
									;
									; Device Flags for 'dvcflag'.  All
									; are considered true if set.
									;
int_busy		equ		bit_15		;Internal busy flag for async
wait_mode		equ		bit_14		;Driver Wait/No Wait state
dvc_online		equ		bit_13		;Device Online Flag
dvc_switch		equ		bit_12		;Device Switched Flag
dvc_hardofl		equ		bit_11		;Device Hard Offline Flag
dvc_hard_sw		equ		bit_10		;Device Hard Switch Flag
relaxing		equ		bit_9		;Device is relaxing (Warm Shutdown)
cold_dib		equ		bit_8		;Do cold startup regardless of warmstart
play_mode		equ		bit_7		;In Audio Play Mode if set
pdos_part		equ		bit_6		;ProDOS Partition if set.
;	Bits 0 - 5 are reserved at this time.
									;
									; Config Bitmap Definitions
									;
conf_vol		equ		bit_15		;Volume Config if set

dconf_ddm		equ		bit_14		;Disk DDM if set and 15 clear
vconf_remount	equ		bit_14		;Remount Vol if set and 15 set

dconf_bvol		equ		bit_13		;Boot Volume if set and 15 clear
vconf_resv2		equ		bit_13		;RESERVED if set and 15 set

dconf_drvr		equ		bit_12		;Boot Driver if set and 15 clear
vconf_resv3		equ		bit_12		;RESERVED if set and 15 set

dconf_resv4		equ		bit_11		;RESERVED if set and 15 clear
vconf_resv4		equ		bit_11		;RESERVED if set and 15 set

dconf_resv5		equ		bit_10		;RESERVED if set and 15 clear
vconf_resv5		equ		bit_10		;RESERVED if set and 15 set

dconf_resv6		equ		bit_9		;RESERVED if set and 15 clear
vconf_resv6		equ		bit_9		;RESERVED if set and 15 set

dconf_resv7		equ		bit_8		;RESERVED if set and 15 clear
vconf_set_stat	equ		bit_8		;Set Stat Bits if set and 15 set

dconf_resv8		equ		bit_7		;RESERVED if set and 15 clear
vconf_resv8		equ		bit_7		;RESERVED if set and 15 set

dconf_resv9		equ		bit_6		;RESERVED if set and 15 clear
vconf_resv9		equ		bit_6		;RESERVED if set and 15 set

dconf_resv10	equ		bit_5		;RESERVED if set and 15 clear
vconf_wr_enable	equ		bit_5		;Do Write Inhibit if set & 8 & 15 are set

dconf_resv11	equ		bit_4		;RESERVED if set and 15 clear
vconf_rd_enable	equ		bit_4		;Do Read Inhibit if set & 8 & 15 are set

dconf_resv12	equ		bit_3		;RESERVED if set and 15 clear
vconf_resv12	equ		bit_3		;RESERVED if set and 15 set

dconf_resv13	equ		bit_2		;RESERVED if set and 15 clear
vconf_resv13	equ		bit_2		;RESERVED if set and 15 set

dconf_resv14	equ		bit_1		;RESERVED if set and 15 clear
vconf_resv14	equ		bit_1		;RESERVED if set and 15 set

dconf_resv15	equ		bit_0		;RESERVED if set and 15 clear
vconf_resv15	equ		bit_0		;RESERVED if set and 15 set
									;
									; Config Parm List
									;
disk_pl			RECORD	$0000

drvr_num		ds.w	1			;Driver Number

ddm_buff_len	ds.w	1			;DDM Buffer Length
ddm_trns_len	ds.w	1			;DDM Transfer Length
ddm_buff_ptr	ds.l	1			;DDM Buffer Pointer

vol_buff_len	ds.w	1			;Volume Buffer Length
vol_trns_len	ds.w	1			;Volume Transfer Length
vol_buff_ptr	ds.l	1			;Volume Buffer Pointer

drvr_buff_len	ds.w	1			;Driver Buffer Length
drvr_trns_len	ds.w	1			;Driver Transfer Length
drvr_buff_ptr	ds.l	1			;Driver Buffer Pointer

				ENDR
									;
									; Error_Codes.
									;
no_error		equ		$0000
bad_dev_number	equ		$0011
drvr_bad_req	equ		$0020
drvr_bad_code	equ		$0021
drvr_bad_parm	equ		$0022
drvr_not_open	equ		$0023
drvr_prior_open	equ		$0024
drvr_io			equ		$0027
drvr_no_dev		equ		$0028
drvr_busy		equ		$0029
drvr_wrt_prot	equ		$002b
drvr_bad_cnt	equ		$002c
drvr_bad_blk	equ		$002d
drvr_dsk_swch	equ		$002e
drvr_off_line	equ		$002f


;*******************************************************
;
;	The following statements are used to define the DIB
;	structure.  The structure contains the traditional
;	DIB followed by an extension used for device
;	maintainence.  All together each DIB with the
;	associated extensions will take one page of RAM.
;
;*******************************************************
;
;	$00	------------------------------------------------
;		|											   |
;		|      Device Information Block Data (DIB)     |
;	$3F	|											   |
;		------------------------------------------------
;	$40	|             Physical Block Number            |
;		|											   |
;	$43	|        that maps to logical block zero       |
;		------------------------------------------------
;	$44	|											   |
;		|                 Head Pointer                 |
;	$47	|											   |
;		------------------------------------------------
;	$48	|											   |
;		|               Forward Pointer                |
;	$4B	|											   |
;		------------------------------------------------
;	$4C	|				Memory DIB Count			   |
;		------------------------------------------------
;	$4E	|					Reserved				   |
;		------------------------------------------------
;	$50	|											   |
;		|      Memory Manager Handle for this DIB      |
;	$53	|											   |
;		------------------------------------------------
;	$54	|											   |
;		|              Block Size (Bytes)              |
;	$57	|											   |
;		------------------------------------------------
;	$58	|       Max SCSI Command for this Device       |
;		------------------------------------------------
;	$5A	|                                              |
;		|   Command Bitmap (See ERS for description)   |
;	$79	|                                              |
;		------------------------------------------------
;	$7A	|              SCSI Command Data               |
;		|                     and                      |
;	$D9	|      SCSI Manager Call Buffer Structures     |
;		------------------------------------------------
;	$DA	|            'Busy' and other Flags            |
;		------------------------------------------------
;	$DC	|                                              |
;		|          Completion Vector with Code         |
;	$FF	|                                              |
;		------------------------------------------------
;
;*******************************************************

dib				RECORD	$0000
									;
									; Definition of DIB Structure.
									;
linkptr			ds.l	1			; DIB Link Pointer				(LONG)
entry			ds.l	1			; Pointer to Drvrs Main Entry	(LONG)
dvcchar			ds.w	1			; Device Characteristics		(WORD)
blkcnt			ds.l	1			; Block Count for this device	(LONG)
namelen			ds.b	1			; Length of Descriptive Name	(PSTR)
disname			ds.b	31			; Field for this devices Name	(STR)
slotnum			ds.w	1			; Device Slot Number from MGR.	(WORD)
unitnum			ds.w	1			; Device Unit Number from MGR.	(WORD)
versnum			ds.w	1			; Version Number for our Driver	(WORD)
dvcid			ds.w	1			; ID of Device we talk to		(WORD)
headlnk			ds.w	1			; Head Device Link				(WORD)
fdvclnk			ds.w	1			; Forward Device Link			(WORD)
ext_ptr			ds.l	1			; Pointer to DIB Extension		(LONG)
devnum			ds.w	1			; DIB Device Number				(WORD)
									;
									; The Starting Block Number for this device
									; is maintained here.  This is used to
									; modify the requested block number from
									; a logical to a physical number.
									;
start_blk		ds.l	1			; Starting Physical Block Num.	(LONG)
									;
									; These two pointers are the compliment
									; to the links in the standard DIB and
									; will point to the actual DIB referenced
									; in the Head and Forward Device Links.
									;
headptr			ds.l	1			; Head Dvc Pointer				(LONG)
fdvcptr			ds.l	1			; Forward Dvc Pointer			(LONG)
mem_dib_cnt		ds.w	1			; Number of active dibs in mem	(WORD)
part_blk		ds.w	1			; Block containing partition	(WORD)
									;
									; Memory Manager Handle
									;
handle			ds.l	1			;								(LONG)
									;
									; Block Size
									;
blksize			ds.l	1			;								(LONG)
									;
									; Maximum SCSI Command supported by
									; the device for this DIB.
									;
maxcmd			ds.w	1			;								(WORD)
									;
									; SCSI Command Group Bitmaps
									;
group0			ds.l	1			; Group 0						(LONG)
group1			ds.l	1			; Group 1						(LONG)
group2			ds.l	1			; Group 2						(LONG)
group3			ds.l	1			; Group 3						(LONG)
group4			ds.l	1			; Group 4						(LONG)
group5			ds.l	1			; Group 5						(LONG)
group6			ds.l	1			; Group 6						(LONG)
group7			ds.l	1			; Group 7						(LONG)
									;
									; SCSI Manager Call PList
									;
scsi_slot		ds.w	1			; Same as our Slot Number		(WORD)
scsiid			ds.w	1			; Same as our Unit Number		(WORD)
version			ds.w	1			; Version of call issued		(WORD)
scsic_flgs		ds.w	1			; Flags from Command Table		(WORD)
time_out		ds.w	1			; Time Out Factor * xxx ms		(WORD)
compvec			ds.l	1			; Completion Routine Pointer	(LONG)
cp_ptr			ds.l	1			; Pointer to Command Packet		(LONG)
trx_ptr			ds.l	1			; Ptr to Send/R'cv Structure	(LONG)
trx_len
trx_rqst		ds.l	1			; Users Send/R'cv Length		(LONG)
rslt_ptr		ds.l	1			; Pointer to Status Structure	(LONG)

				ds.l	1			; Reserved space 0				(LONG)
				ds.l	1			; Reserved space 1				(LONG)
									;
									; SCSI Command Packet
									;
scsicmd			ds.b	12			; Room for any SCSI Command		(BYTES)
									;
									; SCSI Manager Device Send/R'cv Buffers List
									;
trx_buff		ds.l	1			; Users Send Buffer				(LONG)
trx_length		ds.l	1			; Request cnt for this buffer	(LONG)
trx_offset		ds.l	1			; Offset for next pass			(LONG)
trx_null		ds.l	1			; Null							(LONG)
trx_stop		ds.l	1			; Null							(LONG)
				ds.l	1			; Null							(LONG)
				ds.l	1			; Null							(LONG)
				ds.l	1			; Null							(LONG)
trx_rsrv		ds.l	4			; Reserved Space * 4 for future	(LONG)
									;
									; Device Busy and other Flags and results
									;
dvcflag			ds.w	1			; Device Busy and other Flags	(WORD)
									;
									; Completion Routine for this DIB.
									; This takes the remaining space in
									; the allocated RAM.  Any routine can
									; be placed here but must never go
									; beyond offset $FF
									;
end				equ		*
complet			ds.b	$100-end

				ENDR

pm				RECORD	$0000
									;
									; All Values given below are
									; in Macintosh High >> Low
									; format.
									; 
Sig				ds.w	1			;Signature Always $504d
									;		Apple II = $4d50
SigPad			ds.w	1			;Reserved for future use
MapBlkCnt		ds.l	1			;Number of blocks in Map
PyPartStart		ds.l	1			;First Physical Block of Partition
PartBlkCnt		ds.l	1			;Number of Blocks in Partition
PartName		ds.b	32			;Partition Name
PartType		ds.b	32			;Partition Type
LgDataStart		ds.l	1			;1st Logical Data Block
DataCnt			ds.l	1			;Number of data blocks
PartStatus		ds.l	1			;Partition Status Info
LgBootStart		ds.l	1			;1st Logical Boot Block
BootSize		ds.l	1			;Size of Boot Code in Bytes
BootLoad		ds.l	1			;Boot Code Load Address
BootLoad2		ds.l	1			;Additional Boot Load Info
BootEntry		ds.l	1			;Boot Code Entry Point
BootEntry2		ds.l	1			;Additional Boot Entry Info
BootCksum		ds.l	1			;Boot Code Checksum
Processor		ds.b	16			;Processor Type
Args			ds.b	128			;Boot Specific Arguments
end				equ		*
				ds.b	$200-end	;Pad to 1 Block
				ENDR
									;
									; Structure of data from Read Capacity Call
									;
block			RECORD	$0000

count			ds.l	1			;Block Count High >> Low
size			ds.l	1			;Block Size High >> Low

				ENDR
									;
									; Structure of data from Mode Sense Call
									;
mode			RECORD	$0000

sense_len		ds.b	1			;Sense Data Length
med_type		ds.b	1			;Medium Type
w_protect		ds.b	1			;Write Protect bit 7
blk_disc		ds.b	1			;Block Descriptor Length
				ds.b	1			;Unused data
blocks			ds.b	3			;Block Count High >> Low
				ds.b	1			;Unused data
blk_size		ds.b	3			;Block Size High >> Low
page_number		ds.b	1			;Page number of mode sense data
length			ds.b	1			;Length of data that follows

				ENDR
									;
									; Structure of data from Request Sense Call
									;
rqst_sens			RECORD	$0000

error_code		ds.b	1			;Bit 7		= Valid Flag
									;Bits 0-6	= Error Code
segment			ds.b	1			;			= Segment Number
sense_key		ds.b	1			;Bit 7		= Filemark bit
									;Bit 6		= EOM bit
									;Bit 5		= ILI bit
									;Bit 4		= Reserved
									;Bits 0-3	= Sense Key
info_bytes		ds.b	4			;			= Information Bytes
addnl_sens_len	ds.b	1			;			= Additional Sense Length (n-7)
command_spec	ds.b	4			;			= Command Specific Information
addnl_sens_code	ds.b	1			;			= Additional Sense Code
addnl_code_qual	ds.b	1			;			= Additional Sense Code Qualifier

				ENDR
									;
									; Structure of data from Inquiry Call
									;
inq				RECORD	$0000

pd_type			ds.b	1			;Peripheral Device Type
removable		ds.b	1			;Removable bit 7
				ds.b	$26-2		;Unused data
group			ds.b	1			;First Group Number

				ENDR
									;
									; Structure of data from GET DATA STATUS Call
									;
gds				RECORD	$0000

				ds.b	2			;reserved
data_len		ds.b	1			;Amount of data returned by this call
block			ds.b	1			;bit 0
winw_id			ds.b	1			;Window Identifier
				ds.b	1			;reserved
buf_avail		ds.b	3			;Amount of available Scanner Buffer Space
data_avail		ds.b	3			;Amount of Available Scan Data

				ENDR
									;
									; Structure of data from Device Specific Calls
									;
ds				RECORD	$0000

version			ds.w	1			;Version Number of this structure
				ds.b	12			;Command Bytes
DCcode			ds.l	1			;1st DC Code
DCcount			ds.l	1			;1st Count
DCoffset		ds.l	1			;1st Offset
DCreserved		ds.l	1			;1st Reserved

				ENDR

				EJECT
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSIScanner.Driver.make b/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSIScanner.Driver.make
new file mode 100644
index 0000000..4512e68
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSIScanner.Driver.make
@@ -0,0 +1 @@
+#   File:       SCSIScanner.Driver.make
#   Target:     SCSIScan.Driver
#   Sources:    'SCSI Driver main'
#               'SCSI Command Table'
#               'SCSI Filter startup'
#               'SCSI Filter open'
#               'SCSI Filter read'
#               'SCSI Filter write'
#               'SCSI Filter close'
#               'SCSI Filter status'
#               'SCSI Filter control'
#               'SCSI Filter flush'
#               'SCSI Filter shutdown'
#               'SCSI Main Driver'
#               'SCSI Driver Mgmt'
#   Created:    Monday, April 10, 1989 8:30:49 AM
#  Modified:    Monday, April 10, 1989 8:30:49 AM

SCSIScan.Driver ÄÄ SCSIScanner.Driver.make ¶
		:Scanner.Obj:'SCSIScanner Driver main.obj' ¶
		:Scanner.Obj:'SCSIScanner Command Table.obj' ¶
		:Scanner.Obj:'SCSIScanner Filter startup.obj' ¶
		:Scanner.Obj:'SCSIScanner Filter open.obj' ¶
		:Scanner.Obj:'SCSIScanner Filter read.obj' ¶
		:Scanner.Obj:'SCSIScanner Filter write.obj' ¶
		:Scanner.Obj:'SCSIScanner Filter close.obj' ¶
		:Scanner.Obj:'SCSIScanner Filter status.obj' ¶
		:Scanner.Obj:'SCSIScanner Filter control.obj' ¶
		:Scanner.Obj:'SCSIScanner Filter flush.obj' ¶
		:Scanner.Obj:'SCSIScanner Filter shutdown.obj' ¶
		:Scanner.Obj:'SCSIScanner Main Driver.obj' ¶
		:Scanner.Obj:'SCSIScanner Driver Mgmt.obj'
    LinkIIGS -t $bb -at $0103 ¶
		:Scanner.Obj:'SCSIScanner Driver main.obj' ¶
		:Scanner.Obj:'SCSIScanner Command Table.obj' ¶
		:Scanner.Obj:'SCSIScanner Filter startup.obj' ¶
		:Scanner.Obj:'SCSIScanner Filter open.obj' ¶
		:Scanner.Obj:'SCSIScanner Filter read.obj' ¶
		:Scanner.Obj:'SCSIScanner Filter write.obj' ¶
		:Scanner.Obj:'SCSIScanner Filter close.obj' ¶
		:Scanner.Obj:'SCSIScanner Filter status.obj' ¶
		:Scanner.Obj:'SCSIScanner Filter control.obj' ¶
		:Scanner.Obj:'SCSIScanner Filter flush.obj' ¶
		:Scanner.Obj:'SCSIScanner Filter shutdown.obj' ¶
		:Scanner.Obj:'SCSIScanner Main Driver.obj' ¶
		:Scanner.Obj:'SCSIScanner Driver Mgmt.obj' ¶
		-o 'SCSIScan.Driver'
#		-o ':Scanner.Obj:SCSIScanner.Driver.lnk'
#	ExpressIIGS ¶
#		':Scanner.Obj:SCSIScanner.Driver.lnk' ¶
#		-o 'SCSIScan.Driver'
	duplicateiigs -y -m SCSIScan.Driver SCSIScan.Driver
:Scanner.Obj:'SCSIScanner Driver main.obj' Ä ¶
		'SCSIScanner.Driver.make' ¶
		'SCSI Driver main' ¶
		'SCSIHD.equates'
	AsmIIGS -d &type,type=3 'SCSI Driver main' ¶
		-o :Scanner.Obj:'SCSIScanner Driver main.obj'
:Scanner.Obj:'SCSIScanner Command Table.obj' Ä ¶
		'SCSIScanner.Driver.make' ¶
		'SCSI Command Table' ¶
		'SCSIHD.equates'
	AsmIIGS -d &type,type=3 'SCSI Command Table' ¶
		-o :Scanner.Obj:'SCSIScanner Command Table.obj'
:Scanner.Obj:'SCSIScanner Filter startup.obj' Ä ¶
		'SCSIScanner.Driver.make' ¶
		'SCSI Filter startup' ¶
		'SCSIHD.equates'
	AsmIIGS -d &type,type=3 'SCSI Filter startup' ¶
		-o :Scanner.Obj:'SCSIScanner Filter startup.obj'
:Scanner.Obj:'SCSIScanner Filter open.obj' Ä ¶
		'SCSIScanner.Driver.make' ¶
		'SCSI Filter open' ¶
		'SCSIHD.equates'
	AsmIIGS -d &type,type=3 'SCSI Filter open' ¶
		-o :Scanner.Obj:'SCSIScanner Filter open.obj'
:Scanner.Obj:'SCSIScanner Filter read.obj' Ä ¶
		'SCSIScanner.Driver.make' ¶
		'SCSI Filter read' ¶
		'SCSIHD.equates'
	AsmIIGS -d &type,type=3 'SCSI Filter read' ¶
		-o :Scanner.Obj:'SCSIScanner Filter read.obj'
:Scanner.Obj:'SCSIScanner Filter write.obj' Ä ¶
		'SCSIScanner.Driver.make' ¶
		'SCSI Filter write' ¶
		'SCSIHD.equates'
	AsmIIGS -d &type,type=3 'SCSI Filter write' ¶
		-o :Scanner.Obj:'SCSIScanner Filter write.obj'
:Scanner.Obj:'SCSIScanner Filter close.obj' Ä ¶
		'SCSIScanner.Driver.make' ¶
		'SCSI Filter close' ¶
		'SCSIHD.equates'
	AsmIIGS -d &type,type=3 'SCSI Filter close' ¶
		-o :Scanner.Obj:'SCSIScanner Filter close.obj'
:Scanner.Obj:'SCSIScanner Filter status.obj' Ä ¶
		'SCSIScanner.Driver.make' ¶
		'SCSI Filter status' ¶
		'SCSIHD.equates'
	AsmIIGS -d &type,type=3 'SCSI Filter status' ¶
		-o :Scanner.Obj:'SCSIScanner Filter status.obj'
:Scanner.Obj:'SCSIScanner Filter control.obj' Ä ¶
		'SCSIScanner.Driver.make' ¶
		'SCSI Filter control' ¶
		'SCSIHD.equates'
	AsmIIGS -d &type,type=3 'SCSI Filter control' ¶
		-o :Scanner.Obj:'SCSIScanner Filter control.obj'
:Scanner.Obj:'SCSIScanner Filter flush.obj' Ä ¶
		'SCSIScanner.Driver.make' ¶
		'SCSI Filter flush' ¶
		'SCSIHD.equates'
	AsmIIGS -d &type,type=3 'SCSI Filter flush' ¶
		-o :Scanner.Obj:'SCSIScanner Filter flush.obj'
:Scanner.Obj:'SCSIScanner Filter shutdown.obj' Ä ¶
		'SCSIScanner.Driver.make' ¶
		'SCSI Filter shutdown' ¶
		'SCSIHD.equates'
	AsmIIGS -d &type,type=3 'SCSI Filter shutdown' ¶
		-o :Scanner.Obj:'SCSIScanner Filter shutdown.obj'
:Scanner.Obj:'SCSIScanner Main Driver.obj' Ä ¶
		'SCSIScanner.Driver.make' ¶
		'SCSI Main Driver' ¶
		'SCSIHD.equates'
	AsmIIGS -d &type,type=3 'SCSI Main Driver' ¶
		-o :Scanner.Obj:'SCSIScanner Main Driver.obj'
:Scanner.Obj:'SCSIScanner Driver Mgmt.obj' Ä ¶
		'SCSIScanner.Driver.make' ¶
		'SCSI Driver Mgmt' ¶
		'SCSIHD.equates'
	AsmIIGS -d &type,type=3 'SCSI Driver Mgmt' ¶
		-o :Scanner.Obj:'SCSIScanner Driver Mgmt.obj'
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSITape.Driver.make b/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSITape.Driver.make
new file mode 100644
index 0000000..f387985
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/SCSI.Drivers/SCSITape.Driver.make
@@ -0,0 +1 @@
+#   File:       SCSITape.Driver.make
#   Target:     SCSITape.Driver
#   Sources:    'SCSI Driver main'
#               'SCSI Command Table'
#               'SCSI Filter startup'
#               'SCSI Filter open'
#               'SCSI Filter read'
#               'SCSI Filter write'
#               'SCSI Filter close'
#               'SCSI Filter status'
#               'SCSI Filter control'
#               'SCSI Filter flush'
#               'SCSI Filter shutdown'
#               'SCSI Main Driver'
#               'SCSI Driver Mgmt'
#   Created:    Friday, February 17, 1989 8:30:49 AM
#  Modified:    Tuesday, May 2, 1989 8:090:49 AM

SCSITape.Driver ÄÄ SCSITape.Driver.make ¶
		:Tape.Obj:'SCSITape Driver main.obj' ¶
		:Tape.Obj:'SCSITape Command Table.obj' ¶
		:Tape.Obj:'SCSITape Filter startup.obj' ¶
		:Tape.Obj:'SCSITape Filter open.obj' ¶
		:Tape.Obj:'SCSITape Filter read.obj' ¶
		:Tape.Obj:'SCSITape Filter write.obj' ¶
		:Tape.Obj:'SCSITape Filter close.obj' ¶
		:Tape.Obj:'SCSITape Filter status.obj' ¶
		:Tape.Obj:'SCSITape Filter control.obj' ¶
		:Tape.Obj:'SCSITape Filter flush.obj' ¶
		:Tape.Obj:'SCSITape Filter shutdown.obj' ¶
		:Tape.Obj:'SCSITape Main Driver.obj' ¶
		:Tape.Obj:'SCSITape Driver Mgmt.obj'
    LinkIIGS -t $bb -at $0103 ¶
#	LinkIIGS -t $bb -at $0105 ¶
		:Tape.Obj:'SCSITape Driver main.obj' ¶
		:Tape.Obj:'SCSITape Command Table.obj' ¶
		:Tape.Obj:'SCSITape Filter startup.obj' ¶
		:Tape.Obj:'SCSITape Filter open.obj' ¶
		:Tape.Obj:'SCSITape Filter read.obj' ¶
		:Tape.Obj:'SCSITape Filter write.obj' ¶
		:Tape.Obj:'SCSITape Filter close.obj' ¶
		:Tape.Obj:'SCSITape Filter status.obj' ¶
		:Tape.Obj:'SCSITape Filter control.obj' ¶
		:Tape.Obj:'SCSITape Filter flush.obj' ¶
		:Tape.Obj:'SCSITape Filter shutdown.obj' ¶
		:Tape.Obj:'SCSITape Main Driver.obj' ¶
		:Tape.Obj:'SCSITape Driver Mgmt.obj' ¶
		-o 'SCSITape.Driver'
#		-o ':Tape.Obj:SCSITape.Driver.lnk'
#	ExpressIIGS ¶
#		':Tape.Obj:SCSITape.Driver.lnk' ¶
#		-o 'SCSITape.Driver'
	duplicateiigs -y -m SCSITape.Driver SCSITape.Driver
:Tape.Obj:'SCSITape Driver main.obj' Ä ¶
		'SCSITape.Driver.make' ¶
		'SCSI Driver main' ¶
		'SCSIHD.equates'
	AsmIIGS -d &type,type=2 'SCSI Driver main' ¶
		-o :Tape.Obj:'SCSITape Driver main.obj'
:Tape.Obj:'SCSITape Command Table.obj' Ä ¶
		'SCSITape.Driver.make' ¶
		'SCSI Command Table' ¶
		'SCSIHD.equates'
	AsmIIGS -d &type,type=2 'SCSI Command Table' ¶
		-o :Tape.Obj:'SCSITape Command Table.obj'
:Tape.Obj:'SCSITape Filter startup.obj' Ä ¶
		'SCSITape.Driver.make' ¶
		'SCSI Filter startup' ¶
		'SCSIHD.equates'
	AsmIIGS -d &type,type=2 'SCSI Filter startup' ¶
		-o :Tape.Obj:'SCSITape Filter startup.obj'
:Tape.Obj:'SCSITape Filter open.obj' Ä ¶
		'SCSITape.Driver.make' ¶
		'SCSI Filter open' ¶
		'SCSIHD.equates'
	AsmIIGS -d &type,type=2 'SCSI Filter open' ¶
		-o :Tape.Obj:'SCSITape Filter open.obj'
:Tape.Obj:'SCSITape Filter read.obj' Ä ¶
		'SCSITape.Driver.make' ¶
		'SCSI Filter read' ¶
		'SCSIHD.equates'
	AsmIIGS -d &type,type=2 'SCSI Filter read' ¶
		-o :Tape.Obj:'SCSITape Filter read.obj'
:Tape.Obj:'SCSITape Filter write.obj' Ä ¶
		'SCSITape.Driver.make' ¶
		'SCSI Filter write' ¶
		'SCSIHD.equates'
	AsmIIGS -d &type,type=2 'SCSI Filter write' ¶
		-o :Tape.Obj:'SCSITape Filter write.obj'
:Tape.Obj:'SCSITape Filter close.obj' Ä ¶
		'SCSITape.Driver.make' ¶
		'SCSI Filter close' ¶
		'SCSIHD.equates'
	AsmIIGS -d &type,type=2 'SCSI Filter close' ¶
		-o :Tape.Obj:'SCSITape Filter close.obj'
:Tape.Obj:'SCSITape Filter status.obj' Ä ¶
		'SCSITape.Driver.make' ¶
		'SCSI Filter status' ¶
		'SCSIHD.equates'
	AsmIIGS -d &type,type=2 'SCSI Filter status' ¶
		-o :Tape.Obj:'SCSITape Filter status.obj'
:Tape.Obj:'SCSITape Filter control.obj' Ä ¶
		'SCSITape.Driver.make' ¶
		'SCSI Filter control' ¶
		'SCSIHD.equates'
	AsmIIGS -d &type,type=2 'SCSI Filter control' ¶
		-o :Tape.Obj:'SCSITape Filter control.obj'
:Tape.Obj:'SCSITape Filter flush.obj' Ä ¶
		'SCSITape.Driver.make' ¶
		'SCSI Filter flush' ¶
		'SCSIHD.equates'
	AsmIIGS -d &type,type=2 'SCSI Filter flush' ¶
		-o :Tape.Obj:'SCSITape Filter flush.obj'
:Tape.Obj:'SCSITape Filter shutdown.obj' Ä ¶
		'SCSITape.Driver.make' ¶
		'SCSI Filter shutdown' ¶
		'SCSIHD.equates'
	AsmIIGS -d &type,type=2 'SCSI Filter shutdown' ¶
		-o :Tape.Obj:'SCSITape Filter shutdown.obj'
:Tape.Obj:'SCSITape Main Driver.obj' Ä ¶
		'SCSITape.Driver.make' ¶
		'SCSI Main Driver' ¶
		'SCSIHD.equates'
	AsmIIGS -d &type,type=2 'SCSI Main Driver' ¶
		-o :Tape.Obj:'SCSITape Main Driver.obj'
:Tape.Obj:'SCSITape Driver Mgmt.obj' Ä ¶
		'SCSITape.Driver.make' ¶
		'SCSI Driver Mgmt' ¶
		'SCSIHD.equates'
	AsmIIGS -d &type,type=2 'SCSI Driver Mgmt' ¶
		-o :Tape.Obj:'SCSITape Driver Mgmt.obj'
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/Slinky/slinky.aii b/IIGS.601.SRC/GS.OS/Drivers/Slinky/slinky.aii
new file mode 100644
index 0000000..a7a0626
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/Slinky/slinky.aii
@@ -0,0 +1 @@
+currentversion	equ	$1010		;version 1.01 (final)


*****************************************************************
*
*               Copyright (c) 1990
*               Apple Computer, Inc.
*               All rights reserved.
*
*****************************************************************
*
*               Slinky (RAM card) Driver
*
* NOTE:         This driver must be installed on the boot
*               volume in the subdirectory "/SYSTEM/DRIVERS'.
*               Additionally, the FileType for the driver file
*               must be set to $00BB.  AuxType is also critical
*               to the operating system recognizing the driver
*               as a GS/OS device driver.  The AuxType is a long
*               word which must have the upper word set to $0000.
*               The most significant byte of the least significant
*               word in the AuxType must be set to $01 to indicate
*               an active GS/OS device driver or $81 to indicate
*               an inactive GS/OS device driver.  The least
*               significant byte of the least significant word
*               of the AuxType field indicates the number of
*               devices supported by the driver file.  This value
*               should be analogous to the number of DIB's
*               contained in the driver file.  GS/OS will only
*               install the number of devices indicated in the
*               AuxType field.
*
*               GS/OS Device Driver:    FileType = $00BB
*                                       AuxType  = $000001XX where:
*                                                  XX = number of devices.
*
*               An AuxType of $00000107 indicates seven devices.  When
*               building a device driver, the best way to set the
*               FileType and AuxType is to use the Exerciser to get
*               the current file info (GET_FILE_INFO), modify the
*               FileType & AuxType and then SET_FILE_INFO.
*
*****************************************************************
*
* REVISION HISTORY:
*
* Date_____ Version By_ Description______________________________
*
* 06/01/90  0.91    MVS Initial release
*
* 11/02/90          GAB Added formatting directives to source
*
* 11/12/90  0.92d   GAB	Minor code cleanups, optimizations, etc.
*
* 05/10/91  0.93d   GAB set_ctrl and set_format calls now simply
*			return with no error.
*
* 05/20/91  0.94d   GAB	vrw now returns drvr_bad_count error when
*			the request count is a non-integral multiple
*			of the block size
*
* 08/01/91  0.95    GAB	Startup now performs a ProDOS-style Status
*			call after verifying the existence of a
*			RAM card.  This allows Applied Engineering
*			cards to format themselves as ProDOS
*			devices.
*
* 23-Feb-93 1.01b    SS	Added format options to allow downsizing
*			to 800k on a full card.
*
* 1-Apr-93  1.01     SS Changed version to 1.01 (final).
*
*****************************************************************



		String	AsIs

		print	push
		print	off
		include	'common.equ.src'
		include	'driver.equ.src'
		include	'hw.equ.src'
		include	'm16.misctool'
		include	'm16.util2'
		print	pop

		blanks	off
		print	nogen


;;		macros.


		MACRO
		skip1
		dc.b	$24
		ENDM



;;		readb - read a byte from slinky card.

		macro
		readb	&offset
		lda	>slinky,x
		sta	|&offset,y
		endm



;;		writeb - write a byte to slinky card.

		macro
		writeb	&offset
		lda	|&offset,y
		sta	>slinky,x
		endm
		
		
		eject
*****************************************************************
*
* The following table is the header required for all loaded
* drivers which consists of the following:
*
*               Word    Offset from start to 1st DIB
*               Word    Number of DIBs
*               Word    Offset from start to 1st control list
*               Word    Offset from start to 2nd control list
*               etc.
*
*****************************************************************

main		proc

slinky		equ	$bffb		;base read/write loc for slinky card
slinkadd	equ	$bff8		;base loc to set slinky address

		
here		dc.w	dib_1-here	;offset to 1st DIB
		dc.w	7		;number of devices

		dc.w	ctrl_list-here	;offset to 1st control list
		dc.w	ctrl_list-here	;offset to 2nd control list
		dc.w	ctrl_list-here	;offset to 3rd control list
		dc.w	ctrl_list-here	;offset to 4th control list
		dc.w	ctrl_list-here	;offset to 5th control list
		dc.w	ctrl_list-here	;offset to 6th control list
		dc.w	ctrl_list-here	;offset to 7th control list


* 		The following are the driver control parameter lists.  
*		Since the slinky has no real control lists, one common 
*		list is shared among all slinky devices.
		
		
ctrl_list	dc.w	0		;0 bytes in parameter list		
		
default_list	dc.w	0		;0 bytes in default list


		
scr		equ	$5a		;- $5e used as temp storage

		eject
*****************************************************************
*
* The following are tables of format options for each device.
* The format option tables have the following structure:
*
*               Word    Number of entries in list
*               Word    Display count (number of head links)
*               Word    Recommended default option
*               Word    Option that current online media is formatted with
*               Entries 16 bytes per entry in the format list
*
* The twenty byte structure for each entry in the format list
* is as follows:
*
*               Word    Media variables reference number
*               Word    Link to reference number n.
*               Word    Flags / Format environment
*               Long    Number of blocks supported by device
*               Word    Block size
*               Word    Interleave factor

*               Long    Number of bytes defined by flag
*
* Bit definition within the flags word is as follows:
*  ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___
* |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |
* | F | E | D | C | B | A | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 |
* |___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |___|__ Format
*   |   |   |   |   |   |   |   |   |   |   |   |   |___|__________ Flags
*   |___|___|___|___|___|___|___|___|___|___|___|__________________ Reserved
*
* Format Bit Definition: 00   Universal format
*                        01   Apple Format
*                        02   NonApple Format
*                        11   Not Valid
*
* Flag Bit Definition:   00   Size is in bytes
*                        01   Size is in Kb
*                        02   Size is in Mb
*                        11   Size is in Gb
*
*****************************************************************
		export	format_tbl
format_tbl
		dc.w	2		; 2 entries this list
		dc.w	2		; 2 display entries
		dc.w	1		; recommended option is #1
		dc.w	0		; current media formatted w/option
*
* List for entry reference number 1.
*
		dc.w	1		; reference number #1
		dc.w	2		; ref num of linked entry
		dc.w	4		; universal, size in K
		dc.l	2048		; block count
		dc.w	512		; block size
		dc.w	0		; interleave factor
		dc.w	1024		; device byte count in kilobytes
*
* List for entry reference number 2.
*
		dc.w	2		; reference number #2
		dc.w	0		; ref num of linked entry
		dc.w	4		; universal, size in K
		dc.l	1600		; block count
		dc.w	512		; block size
		dc.w	0		; interleave factor
		dc.w	800		; device byte count in kilobytes

formatOption	dc.w	0		;the current option
availableBlocks	dc.w	0		;absolute total blocks available

		eject
*****************************************************************
*
*               Link Pointer
*               Entry Pointer
*               Device Characteristics
characteristics	equ	%1000101111101000
*  ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___
* |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |
* | F | E | D | C | B | A | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 |
* |___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |_ RESERVED
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |_____ RESERVED
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |_________ REMOVABLE
*   |   |   |   |   |   |   |   |   |   |   |   |   |_____________ FORMAT
*   |   |   |   |   |   |   |   |   |   |   |   |_________________ RESERVED
*   |   |   |   |   |   |   |   |   |   |   |_____________________ READ
*   |   |   |   |   |   |   |   |   |   |_________________________ WRITE
*   |   |   |   |   |   |   |   |   |_____________________________ BLOCK DEVICE
*   |   |   |   |   |   |   |   |_________________________________ SPEED GROUP (LSB)
*   |   |   |   |   |   |   |_____________________________________ SPEED GROUP (MSB)
*   |   |   |   |   |   |_________________________________________ FIXED NAME
*   |   |   |   |   |_____________________________________________ RESTARTABLE
*   |   |   |   |_________________________________________________ BUSY
*   |   |   |_____________________________________________________ LINKED
*   |   |_________________________________________________________ GENERATED
*   |_____________________________________________________________ RAM/ROM DEV
*
*               Block Count
*               Device Name
*               Slot Number
*               Unit Number
*               Device ID Number
*               Head Device Link
*               Forward Device Link
*               Extended DIB Pointer
*               DIB Device Number
*
*****************************************************************

				
dib_1		dc.l	dib_2		;link pointer to second DIB
		dc.l	dispatch	;entry pointer
		dc.w	characteristics	;characteristics
		dc.l	0		;block count
		dc.b	8		;device name (length & ascii)
		dc.b	'RAMCARD1                       '        
		dc.w	8+1		;slot #
		dc.w	1		;unit #   
		dc.w	currentversion	;version # 
		dc.w	$e		;device ID number
		dc.w	0		;head device link
		dc.w	0		;forward device link
		dc.l	0		;Extended DIB pointer
		dc.w	0		;DIB Device Number


dib_2		dc.l	dib_3		;link pointer
		dc.l	dispatch	;entry pointer
		dc.w	characteristics	;characteristics
		dc.l	0		;block count
		dc.b	8		;device name (length & ascii)
		dc.b	'RAMCARD2                       '        
		dc.w	8+2		;slot #
		dc.w	1		;unit #
		dc.w	currentversion	;version # 
		dc.w	$e		;device ID number
		dc.w	0		;head device link
		dc.w	0		;forward device link
		dc.l	0		;Extended DIB pointer
		dc.w	0		;DIB Device Number
		

dib_3		dc.l	dib_4		;link pointer
		dc.l	dispatch	;entry pointer
		dc.w	characteristics	;characteristics
		dc.l	0		;block count
		dc.b	8		;device name (length & ascii)
		dc.b	'RAMCARD3                       '        
		dc.w	8+3		;slot #
		dc.w	1		;unit #
		dc.w	currentversion	;version #
		dc.w	$e		;device ID number
		dc.w	0		;head device link
		dc.w	0		;forward device link
		dc.l	0		;Extended DIB pointer
		dc.w	0		;DIB Device Number
		
		
dib_4		dc.l	dib_5		;link pointer
		dc.l	dispatch	;entry pointer
		dc.w	characteristics	;characteristics
		dc.l	0		;block count
		dc.b	8		;device name (length & ascii)
		dc.b	'RAMCARD4                       '        
		dc.w	8+4		;slot #
		dc.w	1		;unit #
		dc.w	currentversion	;version #
		dc.w	$e		;device ID number
		dc.w	0		;head device link
		dc.w	0		;forward device link
		dc.l	0		;Extended DIB pointer
		dc.w	0		;DIB Device Number
		
		
dib_5		dc.l	dib_6		;link pointer
		dc.l	dispatch	;entry pointer
		dc.w	characteristics	;characteristics
		dc.l	0		;block count
		dc.b	8		;device name (length & ascii)
		dc.b	'RAMCARD5                       '        
		dc.w	8+5		;slot #
		dc.w	1		;unit #
		dc.w	currentversion	;version #
		dc.w	$e		;device ID number
		dc.w	0		;head device link
		dc.w	0		;forward device link
		dc.l	0		;Extended DIB pointer
		dc.w	0		;DIB Device Number


dib_6		dc.l	dib_7		;link pointer
		dc.l	dispatch	;entry pointer
		dc.w	characteristics	;characteristics
		dc.l	0		;block count
		dc.b	8		;device name (length & ascii)
		dc.b	'RAMCARD6                       '        
		dc.w	8+6		;slot #
		dc.w	1		;unit #
		dc.w	currentversion	;version #
		dc.w	$e		;device ID number
		dc.w	0		;head device link
		dc.w	0		;forward device link
		dc.l	0		;Extended DIB pointer
		dc.w	0		;DIB Device Number

		
dib_7		dc.l	0		;link pointer - last one
		dc.l	dispatch	;entry pointer
		dc.w	characteristics	;characteristics
		dc.l	0		;block count
		dc.b	8		;device name (length & ascii)
		dc.b	'RAMCARD7                       '        
		dc.w	8+7		;slot #
		dc.w	1		;unit #
		dc.w	currentversion	;version #
		dc.w	$e		;device ID number
		dc.w	0		;head device link
		dc.w	0		;forward device link
		dc.l	0		;Extended DIB pointer
		dc.w	0		;DIB Device Number
		

	if *-dib_1 <> ($40*7) then
		aerror	'incorrect sizes for dibs'
	endif

		eject
*****************************************************************
*
* The following table is used to dispatch to GS/OS driver
* functions.
*
*****************************************************************
		
		
dispatch_table	dc.w	startup
		dc.w	open
		dc.w	read
		dc.w	write
		dc.w	close
		dc.w	status
		dc.w	control
		dc.w	flush
		dc.w	shutdn

		
		
status_table	dc.w	dev_stat
		dc.w	get_ctrl
		dc.w	get_wait
		dc.w	get_format
		dc.w	get_partition


control_table	dc.w	dev_reset
		dc.w	format
		dc.w	media_eject
		dc.w	set_ctrl
		dc.w	set_wait
		dc.w	set_format
		dc.w	set_partn
		dc.w	arm_event
		dc.w	disarm_event
		dc.w	set_partition

		eject
*****************************************************************
*
* DRIVER MAIN ENTRY POINT: DISPATCH
*
* This is the main entry point for the device driver.  The
* routine validates the call number prior to dispatching to
* the requested function.
*
* Call Number: $0000    Function: Startup
*              $0001              Open
*              $0002              Read
*              $0003              Write
*              $0004              Close
*              $0005              Status
*              $0006              Control
*              $0007              Flush
*              $0008              Shutdown
*
* ENTRY: Call via 'JSL'
*     [<drvr_dib_ptr] = Points to the DIB for the device being accessed
*       <drvr_dev_num = Device number of device being accessed
*      <drvr_call_num = Call number
*               A Reg = Call Number
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x x   0
*
* EXIT:   Direct page = unchanged with the exception of <drvr_tran_cnt
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x 0   0  if no error
*                       x x 0 0 0 x x 1   0  if error
*
*****************************************************************


		longa	on
		longi	on

dispatch	phb			;save environment
		phk
		plb
		cmp	#max_command	;is it a legal command?
		bcs	illegal_req	;no

;		save direct page that is used by driver.
		
		pei	<scr
		pei	<scr+2
		pei	<scr+4

;		pea	func_ret-1	;return address from function
		asl	a		;make index to dispatch table
		
		tax

;	lda	|dispatch_table,x
;	pha			;push function address for dispatch
;	rts			;rts dispatches to function

		jsr	(dispatch_table,x)


;		restore direct page that is used by driver.

func_ret	plx
		stx	<scr+4
		plx
		stx	<scr+2
		plx
		stx	<scr
		
		plb			;restore data bank
		rtl


* 		Received an illegal request.  Return with an error.

illegal_req	plb			;restore environement
		lda	#drvr_bad_req	;set error
		sec
		rtl

		
		eject
*****************************************************************
*
* DRIVER CALL:  STARTUP
*
* This routine must prepare the driver to accept all other driver
* calls.
*
* ENTRY: Call via 'JSR'
*     [<drvr_dib_ptr] = Points to the DIB for the device being accessed
*       <drvr_dev_num = Device number of device being accessed
*      <drvr_call_num = Call number
*               A Reg = Call Number
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as program bank
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x x   0
*
* EXIT: via an 'RTS'
*         Direct page = unchanged with the exception of <drvr_tran_cnt
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x 0   0  if no error
*                       x x 0 0 0 x x 1   0  if error
*
*****************************************************************

		
		longa	on
		longi	on
		
startup		

;		see if we're being restarted

		ldy	#blk_cnt
		lda	[<drvr_dib_ptr],y
		iny
		iny
		ora	[<drvr_dib_ptr],y
		beq	@1		;block count == 0, must check for card
		brl	noerr		;else we've already identified the card

@1
;		try to identify if the card is here.

		ldy	#slot_num	;slot to check for hardware
		lda	[<drvr_dib_ptr],y
		and	#7
		sta	<scr+4
		tay
		tax			;save for now
		shortm
		cmp	#3			
		bne	startup1	;if not slot 3
	
		lda	>rdc3rom	;get status of slot 3
		bpl	startup2a	;if internal slot
		bra	startup3	;see if slinky is there
	
startup1  	lda	>sltromsel	;get status of slots
			
startup2  	lsr	a
		dey
		bpl	startup2	;if more to check
		bcs	startup3	;if an external slot

startup2a 	brl	startup6	;return with error
		

startup3	longm
		txa			;restore
		tay
		xba
		ora	#$C001		;create $Cn01
		tax
		shortm
	
		lda	>0,x		;$Cn01 s/b $20
		cmp	#$20
		bne	startup2a
		inx
		inx
		lda	>0,x		;$Cn03 s/b $00
		bne	startup2a
		inx
		inx
		lda	>0,x		;$Cn05 s/b $03
		cmp	#$03
		bne	startup2a

		lda	#$fb
		tax			;set low byte
		lda	>0,x		;$CnFB 
		and	#3
		dec	a
		bne	startup2a	;if not slinky


;		see how much memory is in the card.

;		now we create a smartport parameter block in bank zero:
;
;		+0 	= command = 0 to do a status call.
;		+1 - 2	= abs ptr to parameter list (right after this)
;		+3	= parameter count = 3.
;		+4	= unit #.  Always equal to 1.
;		+5 - 6	= ptr to buffer to get status (right after nxt item)
;		+7	= status code = 3.  Returns DIB
;
;		the stuff after this is what comes back from smartport:
;		+8	= general status byte returned by smartport
;		+9 - 11	= # of blocks in the device
;		+12	= length of device name
;		+13-27	= device name
;		+28	= type of device.  Should be 0 for ram card
;		+29	= subtype of device.  Should be 0 for ram card
;		+30-31	= version #


		
;		determine the address to call.

		lda	#$ff
		tax			;set address to access
		lda	>0,x		;get offset from start
		tax			;move low byte into X
		longm
		txa			;16-bit address into accumulator
		sta	pdVector+1	;store into ProDOS call block
		clc
		adc	#3		;add 3 to get SmartPort entry point
		sta	spcall+1	;address to call
		
		tsc
		sta	<scr		;save stack ptr
		
		sec
		sbc	#spslistlen	;offset for status info
		tcs
		sta	spptr2		;address of status buffer
		sbc	#4
		sta	spptr1		;address of parameter buffer on stack
		
;		copy over the call info for smartport.

		shortmx
		ldx	#spcall_len-1
startup4	lda	spcall,x
		pha
		dex
		bpl	startup4	;if more to copy
		longmx
		
		tsc
		inc	a		;points to SP code start

		ldx	#0
		phx			;result space
		phx
		phx
		phx
		phx			;a register
		phx			;x register
		phx			;y register
		pha			;address of call
		_FWEntry		;call to our code in bank zero
		ply			;get Y-reg after the call ($00yy)
		plx			;get X-reg after the call ($00xx)
		pla			;get A-reg after the call ($00aa)
		cmp  	#1
		bcc	fill_in_dib	;no error, continue

startup5	lda	<scr		;restore stack pointer
		tcs

startup6	longm
		lda	#drvr_io_error
		sec
		rts
		
fill_in_dib
;		parameter block that is on the stack after call to fwentry
;		these are accessed +1 to account for the fact that (sp)+1 is the
;		first byte to access.
;		
;
;		+0 - 1	= garbage left on stack
;		+2 - 3	= jsr to smartport address on card.
;		+4	= SP command = 0 to get status.
;		+5 - 6	= (word) abs ptr to parameter list (right after nxt item)
;		+7	= rts
;		+8	= parameter count = 3.
;		+9	= unit #.  Always equal to 1.
;		+10-11	= (word) ptr to buffer to get status (right after nxt item)
;		+12	= status code = 3.  Returns DIB
;
;		the stuff after is filled in by smartport:
;		+13	= general status byte returned by smartport
;		+14-16	= # of blocks in the device
;		+17	= length of device name
;		+18-33	= device name
;		+34	= type of device.  Should be 0 for ram card
;		+35	= subtype of device.  Should be 0 for ram card
;		+36-37	= version #


		lda	35,s		;get type and subtype of device
		bne	startup5	;if not an apple ram card (slinky)
		
		lda	14+1+2,s	;get uppermost byte of block count
		and	#$ff		;strip off unused bits
		ldy	#blk_cnt+2
		sta	[drvr_dib_ptr],y  ;place into dib
		lda	14+1,s		;get low 2 bytes of block count
		ldy	#blk_cnt		
		sta	[<drvr_dib_ptr],y  ;place into dib

		sta	|availableBlocks	;keep a copy to reset to defaults
		stz	|formatOption	;reset to default format option number
		cmp	#1600		;got more than 800k?
		lda	#2		;preset for yes (and 2 options)
		bcs	@full		; yes
		dec	a		; no, reset to no options
		dec	a
@full		sta	|format_tbl	;number of options
		sta	|format_tbl+2	;number to display
		
		lda	<scr		;clean up stack
		tcs

; now that we know we have a slinky card, make a ProDOS-style Status call
; to the card's firmware.  This will allow Applied Engineering cards to
; format themselves as ProDOS devices.

		ldy	#slot_num	;get slot # again
		lda	[<drvr_dib_ptr],y
		and	#$07
		asl	a		;make into ProDOS Unit Num
		asl	a
		asl	a
		asl	a
		ora	unitNum+1	;combine with following instruction
		sta	unitNum+1	;and store back into code block
		
		jsl	get_sys_gbuf	;get address of SCM's global buffer
		txa			;put low word into Accumulator
		shortmx
		xba			;get address into accumulator
		sta	gbuf_addr+1	;store into code block

		ldx	#pdcall_len-1
@loop
		lda	pdStatus,x
		pha			;put code block on stack
		dex
		bpl	@loop
		longmx
		
		tsc
		inc	a		;points to SP code start

		ldx	#0
		phx			;result space
		phx
		phx
		phx
		phx			;a register
		phx			;x register
		phx			;y register
		pha			;address of call
		_FWEntry		;call to our code in bank zero
		lda	<scr		;clean up stack
		tcs
		brl	noerr		;flag that everything is good and return


		longa	off
		longi	off

;		code that is placed into bank 0 on the stack.

spcall		jsr  	$0000		;SP dispatch address
		dc.b	0		;SP command
spptr1		dc.w	0  		;param list ptr
		rts
		

spcall1		dc.b	3		;3 parameters
		dc.b	1		;unit #
spptr2		dc.w	0		;ptr to status list
		dc.b	3		;status code

spcall_len	equ	*-spcall

spslistlen	equ	25		;length of returned status list

; ProDOS-style status call, placed into bank 0 (stack area) and called
; to allow the card to configure itself as a ProDOS device.

pdStatus	stz	$42		;command number
unitNum		lda	#$00		;modified by code above
		sta	$43		;ProDOS unit number
		stz	$44		;buffer address
gbuf_addr	lda	#$00		;filled in by code above
		sta	$45
		stz	$46
		stz	$47
pdVector	jmp	$0000		;filled in above, ProDOS entry point

pdcall_len	equ	*-pdStatus

		longa	on
		longi	on
		eject
*****************************************************************
*
* DRIVER CALL:  READ
*
* ENTRY: via a 'JSR'
*       <drvr_dev_num = Device Number of current device being accessed
*       <drvr_buf_ptr = Pointer to I/O buffer
*       <drvr_blk_num = Initial block number
*       <drvr_req_cnt = Number of bytes to be transferred
*      <drvr_blk_size = Size of block to be accessed
*               A Reg = Call Number
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x x   0
*
* EXIT: via an 'RTS'
*      <drvr_tran_cnt = Number of bytes transferred
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x 0   0  if no error
*                       x x 0 0 0 x x 1   0  if error
*
*****************************************************************


		longa	on
		longi	on

read		lda	<drvr_req_cnt
		ora	<drvr_req_cnt+2
		bne	read1		;if something to do
		clc			;return with no error (acc already 0)
		
read0		rts
						
read1		jsr	vrw		;verify read write parameters
		bcs	read0		;if error 

		jsr	gso		;get slot offset		
		ldy	<drvr_buf_ptr	;starting offset in bank
		
;		set the address to check.

		lda	<drvr_blk_num
		sta	<scr+4		;save for later
		asl	a			
		shortm
		sta	>slinkadd+1,x	;middle 8 bits of 24 bit address
		xba
		sta	>slinkadd+2,x	;hi 8 bits of 24 bit address
		lda	#0
		sta	>slinkadd,x	;lo 8 bits of address
		
read1a		lda	#512/32		;# of times through the loop
		sta	<scr+2		
		lda	drvr_buf_ptr+2
		pha
		plb			;set bank correctly
		
;		now read the blocks in groups of 32.
;		32 was chosen since it isn't enough to add another block of disk space and
;		it is large enough to get some savings.


read2		readb	0
		readb	1
		readb	2
		readb	3
		readb	4
		readb	5
		readb	6
		readb	7
		readb	8
		readb	9
		readb	10
		readb	11
		readb	12
		readb	13
		readb	14
		readb	15
		readb	16
		readb	17
		readb	18
		readb	19
		readb	20
		readb	21
		readb	22
		readb	23
		readb	24
		readb	25
		readb	26
		readb	27
		readb	28
		readb	29
		readb	30
		readb	31

		longmx
		tya
		clc
		adc	#32
		tay

		shortm
		bcc	read3		;if didn't cross bank
		
		lda	<drvr_buf_ptr+2
		ina
		sta	<drvr_buf_ptr+2	;bump up the bank
		pha
		plb			;set the new data bank

read3		dec	<scr+2			
		beq	read4		;if done with block
		jmp	read2		;process next group of 32		
		

read4		longm
		sty	<scr		;save for now
				
		lda	<drvr_tran_cnt
		ldy	<drvr_tran_cnt+2
		clc
		adc	#512
		sta	<drvr_tran_cnt
		bcc	read5
		iny
		sty	<drvr_tran_cnt+2
read5		cmp	<drvr_req_cnt
		bne	read6
		cpy	<drvr_req_cnt+2
		beq	read9		;if totally done
		
;		check if beyond the size of the card.

read6		lda	<scr+4		;current block that was read
		ina			;increment block number
		ldy	#blk_cnt
		cmp	[<drvr_dib_ptr],y
		bcs	read8		;if at end of disk
		sta	<scr+4		;replace new value
		
read7		ldy	<scr		;last offset
		shortm
		jmp	read1a		;process next block
		
		longa	on

;		user tried to read too far.
		
read8		lda	#drvr_bad_block	
		rts			;(c) is set


;		no problems.

read9		clc
		lda	#0
		rts
	
		
	
		eject
*****************************************************************
*
* DRIVER CALL:  WRITE
*
* ENTRY: via a 'JSR'
*       <drvr_dev_num = Device Number of current device being accessed
*       <drvr_buf_ptr = Pointer to I/O buffer
*       <drvr_blk_num = Initial block number
*       <drvr_req_cnt = Number of bytes to be transferred
*      <drvr_blk_size = Size of block to be accessed
*               A Reg = Call Number
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x x   0
*
* EXIT: via an 'RTS'
*      <drvr_tran_cnt = Number of bytes transferred
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x 0   0  if no error
*                       x x 0 0 0 x x 1   0  if error
*
*****************************************************************

				
		longa	on
		longi	on

write		lda	<drvr_req_cnt
		ora	<drvr_req_cnt+2
		bne	write1		;if something to do
		clc			;return with no error (acc already 0)
		
write0		rts

write1		jsr	vrw		;verify read/write parameters
		bcs	write0		;if error ocurred
		jsr	gso		;get slot offset
		
		ldy	<drvr_buf_ptr	;starting offset in bank
		
;		set the address to check.
	
		lda	<drvr_blk_num
		sta	<scr+4		;save for later
		asl	a	
		
		shortm
		sta	>slinkadd+1,x	;middle 8 bits of 24 bit address
		xba
		sta	>slinkadd+2,x	;hi 8 bits of 24 bit address
		lda	#0
		sta	>slinkadd,x	;lo 8 bits of address
		
		
write1a		lda	#512/32		;# of times through the loop
		sta	<scr+2		
		lda	drvr_buf_ptr+2
		pha
		plb			;set bank correctly
		
;		now write the blocks in groups of 32.
;		32 was chosen since it isn't enough to add another block of disk space and
;		it is large enough to get some savings.


write2		writeb	0
		writeb	1
		writeb	2
		writeb	3
		writeb	4
		writeb	5
		writeb	6
		writeb	7
		writeb	8
		writeb	9
		writeb	10
		writeb	11
		writeb	12
		writeb	13
		writeb	14
		writeb	15
		writeb	16
		writeb	17
		writeb	18
		writeb	19
		writeb	20
		writeb	21
		writeb	22
		writeb	23
		writeb	24
		writeb	25
		writeb	26
		writeb	27
		writeb	28
		writeb	29
		writeb	30
		writeb	31

		longmx
		tya
		clc
		adc	#32
		tay
	
		shortm
		bcc	write3		;if didn't cross bank
		
		lda	drvr_buf_ptr+2
		ina
		sta	drvr_buf_ptr+2	;bump up the bank
		pha
		plb			;set the new data bank

write3		dec	<scr+2
		beq	write4		;if done with block
		jmp	write2		;process next group of 32		
		

write4		longm
		sty	<scr		;save for now
				
		lda	<drvr_tran_cnt
		ldy	<drvr_tran_cnt+2
		clc
		adc	#512
		sta	<drvr_tran_cnt
		bcc	write5
		iny
		sty	<drvr_tran_cnt+2
write5		cmp	<drvr_req_cnt
		bne	write6
		cpy	<drvr_req_cnt+2
		beq	write9		;if totally done
		
;		check if beyond the size of the card.

write6		lda	<scr+4		;current block that was written
		ina			;increment block number
		ldy	#blk_cnt
		cmp	[<drvr_dib_ptr],y
		bcs	write8		;if trying to write past end of disk
		sta	<scr+4		;replace new value

write7		ldy	<scr		;last offset
		shortm
		jmp	write1a		;process next block
		
		longa	on

;		user tried to write too far
		
write8		lda	#drvr_bad_block
		rts			;(c) set


;		no problems.

write9		clc
		lda	#0
		rts
		
		
		EJECT
*****************************************************************
*
* DRIVER CALL:  STATUS
*
* This routine supports all the standard device status calls.
* Any status call which is able to detect an OFFLINE or DISK
* SWITCHED condition should call the system service routine
* SET_DISKSW.  OFFLINE and DISKSW are conditions and not errors
* when detected by a status call and should only be returned as
* conditions in the status list.
*
* Status Code:  $0000   Return Device Status
*               $0001   Return Control Parameters
*               $0002   Return Wait/No Wait Mode
*               $0003   Return Format Options
*               $0004   Return Parition Map
*
* ENTRY: via a 'JSR'
*       <drvr_dev_num = Device Number of current device being accessed
*     <drvr_clist_ptr = Pointer to control list
*     <drvr_ctrl_code = Control code
*       <drvr_req_cnt = Number of bytes to be transferred
*               A Reg = Call Number
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x x   0
*
* EXIT: via an 'RTS'
*      <drvr_tran_cnt = Number of bytes transferred
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x 0   0  if no error
*                       x x 0 0 0 x x 1   0  if error
*
*****************************************************************

		longa	on
		longi	on
			
status		

*		 Need to verify that the status code specifies a
* 		legal status request.

		lda	<drvr_stat_code	;is this a legal status request?
		cmp	#$0005
		bcc	legal_status	;yes
		lda	#drvr_bad_code	;else return 'BAD CODE' error
		rts

* 		It's a legal status.  Dispatch to the appropriate status routine.

legal_status	asl	a
		tax
		jmp	(|status_table,x)

;	lda	|status_table,x
;	pha
;	rts			;dispatch is via an 'RTS'



		eject
*****************************************************************
*
* The DEVICE STATUS call returns a status list that indicates
* specific status information regarding a character of block
* device and the total number of blocks supported by a block device.
*
* Status List Pointer:  Word            General status word
*                       Longword        Total number of blocks
*
* Encoding of status for a block device is as follows:
*  ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___
* |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |
* | F | E | D | C | B | A | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 |
* |___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |__ DISK SW
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |______ INTERRUPT
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |__________ WRITE PROT
*   |   |   |   |   |   |   |   |   |   |   |   |   |______________ 0 RESERVED
*   |   |   |   |   |   |   |   |   |   |   |   |__________________ ONLINE
*   |   |___|___|___|___|___|___|___|___|___|______________________ 0 RESERVED
*   |______________________________________________________________ BLK FLAG
*
* Valid request counts versus returned status list for this status
* call are as follows:
*
* ENTRY: via a 'JSR'
*       <drvr_dev_num = Device Number of current device being accessed
*     <drvr_slist_ptr = Pointer to status list
*     <drvr_stat_code = Status code
*       <drvr_req_cnt = Number of bytes to be transferred (2 - 6)
*               A Reg = Status code * 2
*               X Reg = Status code * 2
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x x   0
*
* EXIT: via an 'RTS'
*      <drvr_tran_cnt = Number of bytes transferred
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x 0   0  if no error
*                       x x 0 0 0 x x 1   0  if error
*
*****************************************************************


		longa	on
		longi	on
				
dev_stat	lda	#drvr_bad_parm	;assume invalid request count
		ldx	<drvr_req_cnt+2	;and validate request count
		bne	bad_dev_stat
		ldx	<drvr_req_cnt
		cpx	#$0002
		bcc	bad_dev_stat
		cpx	#$0007
		bcc	ok_dev_stat
		
bad_dev_stat	sec
		rts

* 		Request count is valid.  Deterime device status and 
*		if appropriate, the total number of blocks for the
*		device and return them in the device status list.  
*		You insert the code required for this operation.


ok_dev_stat	lda	#$10		;flag that media is here
		sta	statbuff
		

* 		Get default block count from DIB.

		ldy	#blk_cnt
		lda	[<drvr_dib_ptr],y
		sta	statbuff+2
		iny
		iny
		lda	[<drvr_dib_ptr],y
		sta	statbuff+4

* 		Now copy the internal status list to the destination
* 		status list specified in the call parameters.

not_sos_stat	ldy	#$0000		;status list pointer
		sep	#$20		;8 bit 'm'
		longa	off
copy_dstat	lda	statbuff,y	;copy device status list to slist_ptr
		sta	[<drvr_slist_ptr],y
		iny
		cpy	<drvr_req_cnt	;copy = request count size
		bne	copy_dstat
		rep	#$20		;16 bit 'm'
		longa	on

not_blk_stat	brl	set_xfer_cnt	;update xfer count & exit

statbuff	ds.b	2+4		


		eject
*****************************************************************
*
* This call returns a byte count as the first word in the status
* list followed by the data from the configuration parameter list.
* The request count specifies how much data is to be returned
* from the list.  If the byte count is smaller than the request
* count then only the number of bytes specified by the byte
* count will be returned and the transfer count will indicate
* this.
*
* Status List:  Word    Number of bytes in configuration list (including byte count).
*               Data    Data from the configuration list (device specific).
*
* ENTRY: via a 'JSR'
*       <drvr_dev_num = Device Number of current device being accessed
*     <drvr_slist_ptr = Pointer to status list
*     <drvr_stat_code = Status code
*       <drvr_req_cnt = Number of bytes to be transferred (2 - $FFFF)
*               A Reg = Status code * 2
*               X Reg = Status code * 2
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x x   0
*
* EXIT: via an 'RTS'
*      <drvr_tran_cnt = Number of bytes transferred
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x 0   0  if no error
*                       x x 0 0 0 x x 1   0  if error
*
*****************************************************************
		
		
		longa	on
		longi	on
		
get_ctrl	lda	#drvr_bad_parm		;assume invalid request count
		ldx	<drvr_req_cnt+2		;and validate request count
		bne	bad_get_ctrl
		ldx	<drvr_req_cnt
		cpx	#$0002
		bcs	ok_get_ctrl
		
bad_get_ctrl	sec
		rts

* 		Request count is valid.  Return control list.

ok_get_ctrl	lda	#$0000			;no control list this device
		sta	[<drvr_slist_ptr]
		
		sta	<drvr_tran_cnt+2	;transfer count always $00000002
		lda	#$0002
		sta	<drvr_tran_cnt
		brl	noerr

		eject
*****************************************************************
*
* This routine returns the Wait/No Wait mode that the driver
* is currently operating in.  This is returned in a word
* parameter which indicates a request count of $0002.
*
* ENTRY: via a 'JSR'
*       <drvr_dev_num = Device Number of current device being accessed
*     <drvr_slist_ptr = Pointer to status list
*     <drvr_stat_code = Status code
*       <drvr_req_cnt = Number of bytes to be transferred (2)
*               A Reg = Status code * 2
*               X Reg = Status code * 2
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x x   0
*
* EXIT: via an 'RTS'
*      <drvr_tran_cnt = Number of bytes transferred
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x 0   0  if no error
*                       x x 0 0 0 x x 1   0  if error
*
*****************************************************************


		longa	on
		longi	on

get_wait	lda	#drvr_bad_parm	  ;assume invalid request count
		ldx	<drvr_req_cnt+2	  ;get request count
		bne	bad_get_wait	  ;if too large
		ldx	<drvr_req_cnt
		cpx	#$0002
		beq	ok_get_wait	  ;if correct size
		
bad_get_wait	sec			  ;set error flag
		rts

* 		Request count is valid. Return the wait mode for this device.

ok_get_wait	lda	#$0000		  ;block devices always in wait mode
		sta	[<drvr_slist_ptr]
		brl	set_xfer_cnt

		eject
*****************************************************************
*
* This routine returns the format options for the device.
* Consult the driver specification for the format option list.
* This call requires a minimum request count of $00000002.  The
* maximum request count may exceed the size of the format list
* in which case the request count returned will indicate the
* size of the format list.
*
* ENTRY: via a 'JSR'
*       <drvr_dev_num = Device Number of current device being accessed
*     <drvr_slist_ptr = Pointer to status list
*     <drvr_stat_code = Status code
*       <drvr_req_cnt = Number of bytes to be transferred (2 - n)
*               A Reg = Status code * 2
*               X Reg = Status code * 2
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x x   0
*
* EXIT: via an 'RTS'
*      <drvr_tran_cnt = Number of bytes transferred
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x 0   0  if no error
*                       x x 0 0 0 x x 1   0  if error
*
*****************************************************************
		
		
		longa	on
		longi	on
		
get_format	lda	#drvr_bad_parm	  ;assume invalid request count
		ldx	<drvr_req_cnt+2	  ;get request count
		bne	bad_get_format	  ;if too large
		ldx	<drvr_req_cnt
		cpx	#$0002
		bcs	ok_get_format	  ;if ok
		
bad_get_format	sec
		rts

* 		Request count is valid. Return the format options for this device.

ok_get_format
		ldx	#format_tbl	; point at format options list
		lda	|0,x		; get # entries in option list
		bne	@nonzero
		
		stz	<drvr_tran_cnt	;no format options to return!
		stz	<drvr_tran_cnt+2
		brl	noerr		;return with no error

@nonzero	asl	a		; list length = (n * 16) + 8
		asl	a
		asl	a
		asl	a
		clc
		adc	#$0008		; now have option list length
		cmp	<drvr_req_cnt	; is request longer then list length?
		bge	req_count_ok
		sta	<drvr_req_cnt
req_count_ok
		ldy	#$0000		; status list index
		sep	#$20		; 8 bit 'm'
		longa	off
copy_format
		lda	|0,x		; copy format option list to slist_ptr
		sta	[<drvr_slist_ptr],y
		inx
		iny
		cpy	<drvr_req_cnt	; copy = request count size
		bne	copy_format
		rep	#$20		; 16 bit 'm'
		longa	on
		brl	set_xfer_cnt

		eject
*****************************************************************
*
* This is a common exit routine for successful status calls.
* The transfer count is set to the same value as the request
* count prior to returning with no error.
*
* ENTRY: via a 'JSR'
*       <drvr_req_cnt = Number of bytes to be transferred (2 - 6)
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x x   0
*
* EXIT: via an 'RTS'
*      <drvr_tran_cnt = Number of bytes transferred
*               A Reg = Error code = No Error
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x 0   0  if no error
*
*****************************************************************
		
		
		longa	on
		longi	on
		
set_xfer_cnt	lda	<drvr_req_cnt	;set transfer count
		sta	<drvr_tran_cnt
		lda	<drvr_req_cnt+2
		sta	<drvr_tran_cnt+2
		brl	noerr		;return with no error
		
		EJECT
*****************************************************************
*
* DRIVER CALL:  CONTROL
*
* This routine supports all the standard device control calls.
*
* Control Code: $0000   Reset Device
*               $0001   Format Device
*               $0002   Eject Media
*               $0003   Set Control Parameters
*               $0004   Set Wait/No Wait Mode
*               $0005   Set Format Options
*               $0006   Assign Partition Owner
*               $0007   Arm Event
*               $0008   Disarm Event
*               $0009   Set Partition Map
*
* ENTRY: via a 'JSR'
*       <drvr_dev_num = Device Number of current device being accessed
*     <drvr_clist_ptr = Pointer to control list
*     <drvr_ctrl_code = Control code
*       <drvr_req_cnt = Number of bytes to be transferred
*               A Reg = Call Number
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x x   0
*
* EXIT: via an 'RTS'
*      <drvr_tran_cnt = Number of bytes transferred
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x 0   0  if no error
*                       x x 0 0 0 x x 1   0  if error
*
*****************************************************************		


		longa	on
		longi	on
		
control		
					
* 		Need to verify that the control code specifies a
* 		legal control request.

		lda	<drvr_stat_code	;is this a legal control request?
		cmp	#$000A
		bcc	legal_control	;yes
		lda	#drvr_bad_code	;else return 'BAD CODE' error
		rts

* 		It's a legal control.  Dispatch to the appropriate control routine.

legal_control	asl	a
		tax
		jmp	(|control_table,x)

;	lda	|control_table,x
;	pha
;	rts			;dispatch is via an 'RTS'

		eject
*****************************************************************
*
* This control call sets the format option in preperation for
* a subsequent format control call.
*
* ENTRY: via a 'JSR'
*       <drvr_dev_num = Device Number of current device being accessed
*     <drvr_clist_ptr = Pointer to control list
*     <drvr_ctrl_code = Control code
*       <drvr_req_cnt = Number of bytes to be transferred
*      <drvr_tran_cnt = $00000000
*               A Reg = Call Number
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 0 x x  0
*
* EXIT: via an 'RTS'
*      <drvr_tran_cnt = Number of bytes transferred
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 0 x 0  0   No error occured
*                       x x 0 0 0 0 x 1  0   Error occured
*
*****************************************************************

set_format				;               
		longa	on
		longi	on
		
		lda	|format_tbl
		beq	@inrange		;no options; less than 800k on card
		
		lda	[<drvr_slist_ptr]	;get the format option
		beq	@bad			;zero is not a valid option
		dec	a
		cmp	|format_tbl
		inc	a
		bcc	@inrange
		
@bad		lda	#drvr_bad_parm
		sec
		rts				
		
@inrange	sta	|formatOption
		brl	noerr		;return with no error

		eject
*****************************************************************
*
* This routine will physically format the media.  No additional
* information associated with any particular file system will
* be written to the media. Check task count for disk switch
* prior to  execution of read.
*
* ENTRY: via a 'JSR'
*       <drvr_dev_num = Device Number of current device being accessed
*     <drvr_clist_ptr = Pointer to control list
*     <drvr_ctrl_code = Control code
*       <drvr_req_cnt = Number of bytes to be transferred
*               A Reg = Control code * 2
*               X Reg = Control code * 2
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x x   0
*
* EXIT: via an 'RTS'
*      <drvr_tran_cnt = Number of bytes transferred
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x 0   0  if no error
*                       x x 0 0 0 x x 1   0  if error
*
*****************************************************************


		longa	on
		longi	on
				
format		
		lda	|formatOption
		beq	@default
		dec	a
		asl	a
		asl	a
		asl	a
		asl	a
		adc	#8
		tax
		lda	|format_tbl+6,x	;optional block count
		bra	@gotit
@default	lda	|availableBlocks	;absolute block count
@gotit		ldy	#blk_cnt
		sta	[<drvr_dib_ptr],y
		sta	<scr+2		;save # of blocks to initialize
		jsr	gso		;get slot offset
		
		shortm
		lda	#0
		sta	>slinkadd+1,x	;middle 8 bits of 24 bit address
		sta	>slinkadd+2,x	;hi 8 bits of 24 bit address
		sta	>slinkadd,x	;lo 8 bits of address

format1		ldy	#$200		;# of bytes per block

format2		sta	>slinky,x	;initialize byte to zero
		dey
		bne	format2		;if more in this block	
		
		ldy	<scr+2		;decrement # of blocks to format
		dey			;* 25-Feb-93 SS - dec memory won't work in shortm
		sty	<scr+2
		bne	format1		;if more blocks to do
		longm
		
		stz	|formatOption	;always reset to default
		brl	noerr		;return with no error
		
		eject
*****************************************************************
*
* This routine will set the WAIT/NO WAIT mode as specified
* by the contents of the control list.
*
* ENTRY: via a 'JSR'
*       <drvr_dev_num = Device Number of current device being accessed
*     <drvr_clist_ptr = Pointer to control list
*     <drvr_ctrl_code = Control code
*       <drvr_req_cnt = Number of bytes to be transferred
*               A Reg = Control code * 2
*               X Reg = Control code * 2
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x x   0
*
* EXIT: via an 'RTS'
*      <drvr_tran_cnt = Number of bytes transferred
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C   E
*                       x x 0 0 0 x x 0   0  if no error
*                       x x 0 0 0 x x 1   0  if error
*
*****************************************************************
		
		
		longa	on
		longi	on
		
set_wait	lda	#drvr_bad_parm	  ;assume invalid request count
		ldx	<drvr_req_cnt+2	  ;and validate request count
		bne	bad_set_wait
		ldx	<drvr_req_cnt
		cpx	#$0002
		beq	ok_set_wait
bad_set_wait	sec
		rts

* 		Request count is valid. 

ok_set_wait	lda	[<drvr_slist_ptr]
		beq	wait_mode_ok	  ;if user is clearing wait mode
		
		lda	#drvr_bad_parm	  
		sec			  ;error - can only clear wait mode
		rts
		
wait_mode_ok	brl	set_xfer_cnt

		eject
;;		gso - get slot offset.
;
;		entry	driver zero page is set up..
;
;		exit	(x) = offset to use to access slinky card.


		longa	on
		longi	on

gso		ldy	#slot_num
		lda	[drvr_dib_ptr],y	;get slot
		and	#7			;remove external flag
		asl	a
		asl	a
		asl	a
		asl	a
		ora	#$88			;offset into soft switches
		tax
		rts



;;		vrw - verify read and write parameters.
;
;		entry	driver zero page is set up..
;
;		exit	if no error (c) clear.
;			if error, (a) = error #, (c) set.


		longa	on
		longi	on
				

vrw
		ldx	#drvr_bad_parm	;init error number in X
		lda	<drvr_blk_size
		cmp	#512
		bne	vrw2		;if error in block size
		
		ldx	#drvr_bad_count
		lda	<drvr_req_cnt
		and	#$1ff
		bne	vrw2		;if bad request count
		
		ldx	#drvr_bad_block
		lda	<drvr_blk_num+2
		bne	vrw2		;if way too big of block number
		
		lda	<drvr_blk_num
		ldy	#blk_cnt
		cmp	[<drvr_dib_ptr],y
		bcc	vrw3		;if ok starting block
		
vrw2		txa			;put error code into Accumulator
		sec			;indicate the error
vrw3		rts




		eject
;		dummy routines that are meaningless for the slinky driver.
;
;		All of these routines simply return without an error.

		longa	on
		longi	on

arm_event
close	
dev_reset
disarm_event
flush
media_eject
get_partition
open	
set_ctrl
set_partition
set_partn
shutdn		
noerr		lda	#no_error	;and exit without error
		clc
		rts
	
		endp
		
		end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/UniDisk3.5/Max.Macros b/IIGS.601.SRC/GS.OS/Drivers/UniDisk3.5/Max.Macros
new file mode 100644
index 0000000..8263ec6
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/UniDisk3.5/Max.Macros
@@ -0,0 +1 @@
+***************************************************************
*
*               Macros used by the DISK][ driver
*
*               Oct 10, 1987 10:10
*
***************************************************************

 MACRO
&lab _setheartbeat
*
* Stack input for SetHeartBeat is as follows:
*
*               longword   Pointer to task header
*           sp->
*
&lab ldx #$1203
 jsl $E10000
 MEND

 MACRO
&lab _delheartbeat
*
* Stack input for DelHeartBeat is as follows:
*
*               longword   Pointer to task header
*           sp->
*
&lab ldx #$1303
 jsl $E10000
 MEND

 MACRO
&lab _longdivide
*
* Stack input for LongDivide is as follows:
*
*               word    space for remainder result
*               word    space for quotient result
*               long    Numerator
*               long    Denominator
*           sp->
*
&lab ldx #$0D0B
 jsl $E10000
 MEND

 MACRO
&lab _fwentry
*
* Stack input for FWentry is as follows:
*
*               word    space for result: Y Register
*               word    space for result: X Register
*               word    space for result: A Register
*               word    space for result: P Register
*               word    A Register
*               word    X Register
*               word    Y Register
*               word    Entry point in bank $00
*           sp->
*
&lab ldx #$2403
 jsl $E10000
 MEND
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Drivers/UniDisk3.5/UniDisk3.5.src b/IIGS.601.SRC/GS.OS/Drivers/UniDisk3.5/UniDisk3.5.src
new file mode 100644
index 0000000..a886437
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Drivers/UniDisk3.5/UniDisk3.5.src
@@ -0,0 +1 @@
+		String	AsIs
		Print	Off
		Include	'Max.Macros'	
		Include	'driver.equ.src'
		Include	'Common.equ.src'
		Include	'hw.equ.src'

* change the following equate to update the version number
current_version	equ	$3000		; version is 3.00

dev_chars	equ	%0000101111101100 ;device characteristics

		Print	On
*****************************************************************
*
*               Copyright (c) 1988
*               Apple Computer, Inc.
*               All rights reserved.
*
*****************************************************************
*
*               UniDisk 3.5 Driver Version 0.10a01
*
* NOTE:         This driver must be installed on the boot
*               volume in the subdirectory "/SYSTEM/DRIVERS'.
*               Additionally, the FileType for the driver file
*               must be set to $00BB.  AuxType is also critical
*               to the operating system recognizing the driver
*               as a GS/OS device driver.  The AuxType is a long
*               word which must have the upper word set to $0000.
*               The most significant byte of the least significant
*               word in the AuxType must be set to $01 to indicate
*               an active GS/OS device driver or $81 to indicate
*               an inactive GS/OS device driver.  The least
*               significant byte of the least significant word
*               of the AuxType field indicates the number of
*               devices supported by the driver file.  This value
*               should be analogous to the number of DIB's
*               contained in the driver file.  GS/OS will only
*               install the number of devices indicated in the
*               AuxType field.
*
*               GS/OS Device Driver:    FileType = $00BB
*                                       AuxType  = $000001XX where:
*                                                  XX = number of devices.
*
*               An AuxType of $00000104 indicates four devices.  When
*               building a device driver, the best way to set the
*               FileType and AuxType is to use the Exerciser to get
*               the current file info (GET_FILE_INFO), modify the
*               FileType & AuxType and then SET_FILE_INFO.
*
*****************************************************************
*
* REVISION HISTORY:
*
* Date_____ Version By_ Description______________________________
*
* 28-Jun-88 0.10a01 RBM Started initial coding.
*
* 06-Jul-88 0.10a02 RBM Added offset to bank $00 parameters to
*                       avoid collision with data resulting from
*                       calls to the generated driver core routines.
*
* 13-Jul-88 0.10a03 RBM Offline error is no longer lost during a
*                       read or write call.
*
* 20-Jul-88 0.12a03 RBM External access bit is now reset after
*                       detecting external access.
*
* 03-Aug-88 0.16b01 GRT added get format option!!!!! It was missing.
*
* 09-Aug-88 0.16b01 FAB forced generated driver to remove downloaded unidisk3.5
*                       code on driver shutdown.  Patched unidisk3.5/shutdown
*                       subroutine called shutdn
*
* 09-Aug-88 0.16b01 FAB added error code when slot arbitor can't give us
*                          slot 5 (error= drvr_io_error).  Added in
*                          unidisk/startup in subroutine called startup
*
* 13-Aug-88 0.18b02 RBM Detection of external access now updates switch
*                       history in DIB.
*
*  9 Mar 89 5.00a13 RBM	Make driver restartable from memory.
*
*  7 Apr 89 5.00d18 RBM Ported generated driver startup and shutdown
*			tasks to the loaded driver.  Startup call downloads
*			and executes disk switch support code.  Shutdown
*			resets the internal hooks, effectively removing the
*			disk switch support patch.
*
*  3 May 89 5.00d20 RBM	Fixed missing disk switch on status call $0000.  Both
*			insertion and ejection are properly reported now.
*
*  4 Jan 90 6.00d05 GAB Fix for BRC #57779.  In shutdn, the code that restores
*			the various parameter lists to their "just-loaded" state
*			was not handling the parameter lists for executesw,
*			execute_res, and downloadsw.  This has been corrected.
*			In addition, the original code was only copying
*			every other byte of the image (due to using an
*			8-bit accumulator, but decrementing the index
*			twice per iteration).  This has been corrected also.
*
*  4 Sep 90 6.00d16 GAB	Fix for the above fix (4 Jan 90).  One byte was left
*			off the end of the download parameter block that's
*			used to restore the real parameter block at shutdown
*			time.  The byte count used to initialize the X-register
*			for the restoration loop has been corrected to account
*			for this extra byte.
*
* 15 Jan 91 6.00d23 GAB	The driver was incorrectly reporting a disk-switched
*			condition during a status call after a successful media
*			access call.  This happened because the dsw_history was
*			not being updated after the media access call, thereby
*			making the status call believe that the last driver call
*			had returned an offline error.  The problem has been
*			corrected by adding post-processing logic to the read,
*			write, and format calls which set up the history correctly
*			depending on the results of the call.
*
*			The procedure do_execute and its associated data have
*			been removed, since none of it was being used anyways.
*
*			The dispatch procedure has been made slightly more
*			efficient by using a JSR (adr,x) addressing mode.
*
*			The Read and Write procedures have been combined into
*			a single procedure, since they both do the exact same
*			thing anyways.  (They both rely on the generated core
*			routines to perform the actual media access.)
*
*			The Open, Close, and Flush routines have been combined
*			into a single procedure, since none of them actually
*			do anything anyways.  (These functions are only supported
*			by character devices.)
*
* 14 Apr 91 6.00d32 GAB Cleared fixed_name bit in device characteristics.
*
* 16 Nov 91         JOA Begin conversion to support mustang 
*
* 20 Nov 91 6.0d59  GAB	Fix bug in Startup call.  When the first call to
*			startup discovered that there were no UniDisks
*			connected to the system, it left 'the_slot' set
*			to -1.  On the second call to startup (for the
*			second DIB), the code was checking 'the_slot'
*			and assuming that it contained a valid slot
*			number. It then made a SmartPort call to the
*			indicated slot.  A slot number of -1 translates
*			into a physical slot location of $C7xx.  If
*			there was no SmartPort in slot 7, the system
*			crashed when the call was made.  Fixed by
*			checking for a negative 'the_slot' and exiting
*			immediately if true (which means that we've
*			already scanned all the slots and haven't
*			found any more Uni's).
*
*			Removed John's limitation about having multiple
*			drives connected to multiple interfaces.
*
*****************************************************************
		
;------------------------------------------
;
; Equates from procedure 
;
;------------------------------------------

tool_locator 	equ	$E10000		; Tool locator entry point
mac_flag	equ	$0F51		;Mac block read/write flag
buf1		equ	$0C00		;Three work buffers for data off disk
buf2		equ	$0D00		;
buf3		equ	$0E00		;
cmdbuffl	equ	$42		;parameter variable area (buffer ptr)
rtl_addr	equ	$C59C		;rtl instruction in bank $FF
read_data	equ	$FF6244		;disk 3.5 driver read data routine
try_more	equ	$FF59C7		;read retry code in rom
sbset		equ	$FF5A1C		;return point back into rom code
rd_hook		equ	$E10F77		;Read data hook routine
vector_hook	equ	$E10FA7		;main firmware dispatcher
jmp_inst	equ	$5C		;jump long instruction
cmdid		equ	$00005A		; firmware internal unit
id1		equ	$E10F20		; internal internal unit for drive #1
id2		equ	$E10F21		; internal internal unit for drive #2
dib_hw_unit	equ	$004A		; (w)  Hardware reference unit
g_dispatch	equ	$01FC84		; call generated driver core

sp_char		equ	$00C0		; SmartPort DIB characterisics
sp_size		equ	sp_char+1	; SmartPort DIB device size
sp_id_len	equ	sp_size+3	; SmartPort DIB id string length
sp_id_str	equ	sp_id_len+1	; SmartPort DIB id string
sp_type		equ	sp_id_str+16	; SmartPort DIB device type
sp_subtype	equ	sp_type+1	; SmartPort DIB device subtype
sp_version	equ	sp_subtype+2	; SmartPort DIB version
sp_byte		equ	$00C0		; Undefined   or Error1
sp_soft_err	equ	sp_byte+1	; Soft error  or Error2
sp_retries	equ	sp_soft_err+1	; Retry count or Error3
sp_a_reg	equ	sp_retries+1	; A Register  or Error4
sp_x_reg	equ	sp_a_reg+1	; X Register  or Error5
sp_y_reg	equ	sp_x_reg+1	; Y Register  or Error6
sp_p_reg	equ	sp_y_reg+1	; P Register  or Error7
sp_last_byte	equ	sp_p_reg+1	; Undefined   or Error8
sp_addr_cnt	equ	$00C0		; SmartPort count word = $0002
sp_addr		equ	sp_addr_cnt+2	; SmartPort address for download
sp_dnld_cnt	equ	$00C0		; SmartPort count word = $xxxx
sp_routine	equ	sp_dnld_cnt+2	; SmartPort routine to download
error7		equ	$005C
dsw_history	equ	$004C		; (w)  Disk switched history
switched_bit	equ	%0000000000000001
online_bit	equ	%0000000000010000
b0_buff_addr	equ	$0052		; (lw) Pointer to bank $00 buffer
dsw_current	equ	$004E		; (w)  Current disk switch status
get_sys_buff	equ	$01FC8C		; return address of bank $00 buffer

		eject
*****************************************************************
*
* The following table is the header required for all loaded
* drivers which consists of the following:
*
*               Word    Offset from start to 1st DIB
*               Word    Number of DIBs
*               Word    Offset from start to 1st configuration list
*               Word    Offset from start to 2nd configuration list
*               etc.
*
*****************************************************************
		EXPORT	driver_data	
driver_data	PROC
		dc.w	dib_1-driver_data	; offset to 1st DIB
		dc.w	4			; number of devices
		dc.w	conf1-driver_data	; offset to 1st configuration list
		dc.w	conf2-driver_data	; offset to 2nd configuration list
		dc.w	conf3-driver_data	; offset to 3rd configuration list
		dc.w	conf4-driver_data	; offset to 4th configuration list
*
* The following are the driver configuration parameter lists.
*
conf1		dc.w	0		; 0 bytes in parameter list
default1	dc.w	0		; 0 bytes in default list

conf2		dc.w	0		; 0 bytes in parameter list
default2	dc.w	0		; 0 bytes in default list

conf3		dc.w	0		; 0 bytes in parameter list
default3	dc.w	0		; 0 bytes in default list

conf4		dc.w	0		; 0 bytes in parameter list
default4	dc.w	0		; 0 bytes in default list

		eject
*****************************************************************
*
* The following are tables of format options for each device.
* The format option tables have the following structure:
*
*               Word    Number of entries in list
*               Word    Display count (number of head links)
*               Word    Recommended default option
*               Word    Option that current online media is formatted with
*               Entries 16 bytes per entry in the format list
*
* The twenty byte structure for each entry in the format list
* is as follows:
*
*               Word    Media variables reference number
*               Word    Link to reference number n.
*               Word    Flags / Format environment
*               Long    Number of blocks supported by device
*               Word    Block size
*               Word    Interleave factor
*               Long    Number of bytes defined by flag
*
* Bit definition within the flags word is as follows:
*  ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___
* |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |
* | F | E | D | C | B | A | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 |
* |___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |___|__ Format
*   |   |   |   |   |   |   |   |   |   |   |   |   |___|__________ Flags
*   |___|___|___|___|___|___|___|___|___|___|___|__________________ Reserved
*
* Format Bit Definition: 00   Universal format
*                        01   Apple Format
*                        02   NonApple Format
*                        11   Not Valid
*
* Flag Bit Definition:   00   Size is in bytes
*                        01   Size is in Kb
*                        02   Size is in Mb
*                        11   Size is in Gb
*
*****************************************************************
format_tbl				;               
		dc.w	format1		; pointer to format option list #1
		dc.w	format1		; pointer to format option list #2
		dc.w	format1		; pointer to format option list #3
		dc.w	format1		; pointer to format option list #4
format1					; 
		dc.w	1		; number of entries
		dc.w	1		; number of displayed entries
		dc.w	1		; recommended option is 1
		dc.w	1		; current media formatted w/option 1
format1_entry1				; 
		dc.w	1		; RefNum
		dc.w	0		; LinkRef
		dc.w	4		; univeral format / size in kb
		dc.l	1600		; block count
		dc.w	512		; block size
		dc.w	4		; interleave factor
		dc.w	800		; media size is 800kb

		eject
*****************************************************************
*
*               Link Pointer
*               Entry Pointer
*               Device Characteristics
*  ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___
* |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |
* | F | E | D | C | B | A | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 |
* |___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |_ RESERVED	(cleared to 0)
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |_____ RESERVED	(cleared to 0)
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |_________ REMOVABLE	
*   |   |   |   |   |   |   |   |   |   |   |   |   |_____________ FORMAT	
*   |   |   |   |   |   |   |   |   |   |   |   |_________________ RESERVED	(cleared to 0)
*   |   |   |   |   |   |   |   |   |   |   |_____________________ READ		
*   |   |   |   |   |   |   |   |   |   |_________________________ WRITE	
*   |   |   |   |   |   |   |   |   |_____________________________ BLOCK DEVICE	
*   |   |   |   |   |   |   |   |_________________________________ SPEED GROUP	(lsb)
*   |   |   |   |   |   |   |_____________________________________ SPEED GROUP	(msb)
*   |   |   |   |   |   |_________________________________________ FIXED NAME	
*   |   |   |   |   |_____________________________________________ RESTARTABLE	
*   |   |   |   |_________________________________________________ BUSY		(managed by dispatcher)
*   |   |   |_____________________________________________________ LINKED	(partitioned)
*   |   |_________________________________________________________ GENERATED	
*   |_____________________________________________________________ RAM/ROM DEV	
*
*               Block Count
*               Device Name
*               Slot Number
*               Unit Number
*               Device ID Number
*               Head Device Link
*               Forward Device Link
*               Extended DIB Pointer
*               DIB device number
*
*****************************************************************
dib_1            
		dc.l	dib_2				; link pointer to second DIB
		dc.l	dispatch			; entry pointer
		dc.w	dev_chars			; characteristics
		dc.l	1600				; block count
		dc.b	11				; device name (length & 32 bytes ascii)
		dc.b	'UNIDISK3.5A                    '	
		dc.w	5				; slot # (valid only after startup)
dib_subtract	dc.w	0				; unit # (valid only after startup)
		dc.w	current_version			; version # 2.00
		dc.w	3				; device ID # (valid only after startup)
		dc.w	0				; head device link
		dc.w	0				; forward device link
		dc.l	0				; extended DIB pointer
		dc.w	0				; dib device number
*
* The following data is an extension to the DIB required by the generated
* driver core routines called the GENERATED DRIVER INFORMATION BLOCK (GDIB).
*
		dc.w	1				; driver class
		dc.w	$0001				; SmartPort Type
		dc.w	$0000				; SmartPort Subtype
		dc.w	$FFFF				; Cache Mask
		dc.w	512				; Device Block Size
		dc.w	0				; Device Hardware Unit Number
		dc.w	0				; disk switched history
		dc.w	0				; current disk switched status

		eject
*****************************************************************
*
*               Link Pointer
*               Entry Pointer
*               Device Characteristics
*  ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___
* |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |
* | F | E | D | C | B | A | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 |
* |___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |___|_ RESERVED
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |_________ REMOVABLE
*   |   |   |   |   |   |   |   |   |   |   |   |   |_____________ FORMAT
*   |   |   |   |   |   |   |   |   |   |   |   |_________________ RESERVED
*   |   |   |   |   |   |   |   |   |   |   |_____________________ READ
*   |   |   |   |   |   |   |   |   |   |_________________________ WRITE
*   |   |   |   |   |   |   |   |   |_____________________________ BLOCK DEVICE
*   |   |   |   |   |   |   |___|_________________________________ SPEED GROUP
*   |   |   |   |   |   |_________________________________________ FIXED NAME
*   |   |   |   |   |_____________________________________________ RESTARTABLE
*   |   |   |   |_________________________________________________ BUSY
*   |   |   |_____________________________________________________ LINKED
*   |   |_________________________________________________________ GENERATED
*   |_____________________________________________________________ RAM/ROM DEV
*
*               Block Count
*               Device Name
*               Slot Number
*               Unit Number
*               Device ID Number
*               Head Device Link
*               Forward Device Link
*               Extended DIB Pointer
*               DIB device number
*
*****************************************************************
dib_2            
		dc.l	dib_3				; link pointer to second DIB
		dc.l	dispatch			; entry pointer
		dc.w	dev_chars			; characteristics
		dc.l	1600				; block count
		dc.b	11				; device name (length & 32 bytes ascii)
		dc.b	'UNIDISK3.5B                    '	
		dc.w	5				; slot # (valid only after startup)
		dc.w	0				; unit # (valid only after startup)
		dc.w	current_version			; version # 2.00
		dc.w	3				; device ID # (valid only after startup)
		dc.w	0				; head device link
		dc.w	0				; forward device link
		dc.l	0				; extended DIB pointer
		dc.w	0				; dib device number
*
* The following data is an extension to the DIB required by the generated
* driver core routines called the GENERATED DRIVER INFORMATION BLOCK (GDIB).
*
		dc.w	1				; driver class
		dc.w	$0001				; SmartPort Type
		dc.w	$0000				; SmartPort Subtype
		dc.w	$FFFF				; Cache Mask
		dc.w	512				; Device Block Size
		dc.w	0				; Device Hardware Unit Number
		dc.w	0				; disk switched history
		dc.w	0				; current disk switched status

		eject
*****************************************************************
*
*               Link Pointer
*               Entry Pointer
*               Device Characteristics
*  ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___
* |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |
* | F | E | D | C | B | A | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 |
* |___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |___|_ RESERVED
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |_________ REMOVABLE
*   |   |   |   |   |   |   |   |   |   |   |   |   |_____________ FORMAT
*   |   |   |   |   |   |   |   |   |   |   |   |_________________ RESERVED
*   |   |   |   |   |   |   |   |   |   |   |_____________________ READ
*   |   |   |   |   |   |   |   |   |   |_________________________ WRITE
*   |   |   |   |   |   |   |   |   |_____________________________ BLOCK DEVICE
*   |   |   |   |   |   |   |___|_________________________________ SPEED GROUP
*   |   |   |   |   |   |_________________________________________ FIXED NAME
*   |   |   |   |   |_____________________________________________ RESTARTABLE
*   |   |   |   |_________________________________________________ BUSY
*   |   |   |_____________________________________________________ LINKED
*   |   |_________________________________________________________ GENERATED
*   |_____________________________________________________________ RAM/ROM DEV
*
*               Block Count
*               Device Name
*               Slot Number
*               Unit Number
*               Device ID Number
*               Head Device Link
*               Forward Device Link
*               Extended DIB Pointer
*               DIB device number
*
*****************************************************************
dib_3          
		dc.l	dib_4				; link pointer to second DIB
		dc.l	dispatch			; entry pointer
		dc.w	dev_chars			; characteristics
		dc.l	1600				; block count
		dc.b	11				; device name (length & 32 bytes ascii)
		dc.b	'UNIDISK3.5C                    '	
		dc.w	5				; slot # (valid only after startup)
		dc.w	0				; unit # (valid only after startup)
		dc.w	current_version			; version # 2.00
		dc.w	3				; device ID # (valid only after startup)
		dc.w	0				; head device link
		dc.w	0				; forward device link
		dc.l	0				; extended DIB pointer
		dc.w	0				; dib device number
*
* The following data is an extension to the DIB required by the generated
* driver core routines called the GENERATED DRIVER INFORMATION BLOCK (GDIB).
*
		dc.w	1				; driver class
		dc.w	$0001				; SmartPort Type
		dc.w	$0000				; SmartPort Subtype
		dc.w	$FFFF				; Cache Mask
		dc.w	512				; Device Block Size
		dc.w	0				; Device Hardware Unit Number
		dc.w	0				; disk switched history
		dc.w	0				; current disk switched status

		eject
*****************************************************************
*
*               Link Pointer
*               Entry Pointer
*               Device Characteristics
*  ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___
* |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |
* | F | E | D | C | B | A | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 |
* |___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |___|_ RESERVED
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |_________ REMOVABLE
*   |   |   |   |   |   |   |   |   |   |   |   |   |_____________ FORMAT
*   |   |   |   |   |   |   |   |   |   |   |   |_________________ RESERVED
*   |   |   |   |   |   |   |   |   |   |   |_____________________ READ
*   |   |   |   |   |   |   |   |   |   |_________________________ WRITE
*   |   |   |   |   |   |   |   |   |_____________________________ BLOCK DEVICE
*   |   |   |   |   |   |   |___|_________________________________ SPEED GROUP
*   |   |   |   |   |   |_________________________________________ FIXED NAME
*   |   |   |   |   |_____________________________________________ RESTARTABLE
*   |   |   |   |_________________________________________________ BUSY
*   |   |   |_____________________________________________________ LINKED
*   |   |_________________________________________________________ GENERATED
*   |_____________________________________________________________ RAM/ROM DEV
*
*               Block Count
*               Device Name
*               Slot Number
*               Unit Number
*               Device ID Number
*               Head Device Link
*               Forward Device Link
*               Extended DIB Pointer
*               DIB device number
*
*****************************************************************
dib_4
		dc.l	0				; link pointer to second DIB
		dc.l	dispatch			; entry pointer
		dc.w	dev_chars			; characteristics
		dc.l	1600				; block count
		dc.b	11				; device name (length & 32 bytes ascii)
		dc.b	'UNIDISK3.5D                    '	
		dc.w	5				; slot # (valid only after startup)
		dc.w	0				; unit # (valid only after startup)
		dc.w	current_version			; version # 2.00
		dc.w	3				; device ID # (valid only after startup)
		dc.w	0				; head device link
		dc.w	0				; forward device link
		dc.l	0				; extended DIB pointer
		dc.w	0				; dib device number
*
* The following data is an extension to the DIB required by the generated
* driver core routines called the GENERATED DRIVER INFORMATION BLOCK (GDIB).
*
		dc.w	1				; driver class
		dc.w	$0001				; SmartPort Type
		dc.w	$0000				; SmartPort Subtype
		dc.w	$FFFF				; Cache Mask
		dc.w	512				; Device Block Size
		dc.w	0				; Device Hardware Unit Number
		dc.w	0				; disk switched history
		dc.w	0				; current disk switched status

		eject
*****************************************************************
*
* The following table is used to dispatch to GS/OS driver
* functions.
*
*****************************************************************
dispatch_table
		dc.w	startup
		dc.w	open
		dc.w	read
		dc.w	write
		dc.w	close
		dc.w	status
		dc.w	control
		dc.w	flush
		dc.w	shutdn

startup_unit	dc.w	0		; startup unit
current_unit	dc.w	0		; current unit being accessed
startup_name	dc.b	'A '		; startup with BLOCK1
retry_count	dc.w	0		; retry count
device_count	dc.w	0		; device count
access_flag	dc.w	0		; bit 0 set if disk switched

SlotsReg	dc.w	0		;copy of slots reg at startup
the_slot	dc.w	0

		eject
*****************************************************************
*
* DRIVER MAIN ENTRY POINT: DISPATCH
*
* This is the main entry point for the device driver.  The
* routine validates the call number prior to dispatching to
* the requested function.
*
* Call Number:  $0000   Function: Startup
*               $0001             Open
*               $0002             Read
*               $0003             Write
*               $0004             Close
*               $0005             Status
*               $0006             Control
*               $0007             Flush
*               $0008             Shutdown
*               $0009-$FFFF       Reserved
*
* ENTRY: Call via 'JSL'
*     [<drvr_dib_ptr] = Points to the DIB for the device being accessed
*       <drvr_dev_num = Device number of device being accessed
*      <drvr_call_num = Call number
*               A Reg = Call Number
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 0 ¥ ¥  0
*
* EXIT:   Direct page = unchanged with the exception of <drvr_tran_cnt
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 0 ¥ 0  0   No error occured
*                       ¥ ¥ 0 0 0 0 ¥ 1  0   Error occured
*
*****************************************************************
dispatch
		longa	on
		longi	on

		phb			; save environment
		phk
		plb
		cmp	#max_command	; is it a legal command?
		bge	illegal_req	; no
		tay			; save command #
		ldx	#$0000
save_parms				; 
		lda	<drvr_dev_num,x	; save GS/OS call parameters
		pha
		lda	<drvr_blk_num,x
		pha
		inx
		inx
		cpx	#$000C		; up to but not including DRVR_TRAN_CNT
		bne	save_parms

		phy
		jsr	set_b0_buff	; set direct page for bank 0 access

		ldy	#dsw_current	; init current disk switch status
		lda	#0
		sta	[<drvr_dib_ptr],y

		pla			; restore command #
		asl	a		; make index to dispatch table
		tax
		jsr	(|dispatch_table,x) ; call the correct procedure

		tay			; save error code

		ldx	#$000A		; number of words to restore
restore_parms				; 
		pla			; restore GS/OS call parameters
		sta	<drvr_blk_num,x
		pla
		sta	<drvr_dev_num,x
		dex
		dex
		bpl	restore_parms
		plb
		bcs	gen_exit	; force error code 0 if flag cleared
		ldy	#no_error
gen_exit				; 
		tya			; restore error code
		rtl
*
* Received an illegal request.  Return with an error.
*
illegal_req				; 
		plb			; restore environement
		lda	#drvr_bad_req	; set error
		sec
		rtl

		eject
*****************************************************************
*
* DRIVER CALL:  STARTUP
*
* This routine must prepare the driver to accept all other driver
* calls.  The UniDisk3.5 driver must download a code segment to
* the UniDisk device in order to support disk switched errors and
* detection of device access external to the operating system.
*
* ENTRY: Call via 'JSR'
*     [<drvr_dib_ptr] = Points to the DIB for the device being accessed
*       <drvr_dev_num = Device number of device being accessed
*      <drvr_call_num = Call number
*      <drvr_tran_cnt = $00000000
*               A Reg = Call Number
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as program bank
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 0 ¥ ¥  0
*
* EXIT: via an 'RTS'
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 0 ¥ 0  0   No error occured
*                       ¥ ¥ 0 0 0 0 ¥ 1  0   Error occured
*
*****************************************************************
startup
		longa	on
		longi	on

		lda	the_slot
		bmi	no_slot			;if already -1, we've already discovered
						; that there are no drives connected.
		bne	have_one_slot

		jsr	setup_disp_list		; update all dispatch lists ONCE only

* setup SlotsReg with contents of slots reg ONCE on 1st startup call
		sep	#$20			; 8 bit 'm'
		longa	off
		lda	>sltromsel		; need slot internal/external
		sta	SlotsReg
		rep	#$20			; 16 bit 'm'
		longa	on
		
		lda	#$0005			; request slot 5 internal
		sta	the_slot
		jsl	dyn_slot_arbiter
		bcc	have_one_slot		; if slot 5 was available
		
		lda	#$000D
		sta	the_slot
try_another	lda	the_slot
		jsl	dyn_slot_arbiter
		bcs	nother_slot
		jsr	is_XSP_slot		;exteneded SmartPort in slot?
		beq	have_one_slot		;yes.
nother_slot	jsr	next_slot
		bpl	try_another

no_slot		lda	#drvr_io_error		;can't get slot so exit with error
		sec
		rts
*
* Need to determine if any UniDisk3.5 devices are connected to
* the one slot.  Walk chain starting with device #1.
*
have_one_slot
		
@unitLoop
		inc	|startup_unit		; device that is being checked
		lda	|startup_unit
		sta	|current_unit

		ldy	#slot_num
		lda	the_slot
		sta	[drvr_dib_ptr],y	;put the slot number in the DIB 
		
		jsr	setup_disp_unit		; update unit in dispatch lists
		jsr	get_sp_dib		; get SmartPort DIB
		bcc	@10			; if got result for DIB status call
		cmp	#drvr_no_dev		;reached the end of the chain?
		bne	no_slot			;no, just skip it then
		stz	startup_unit		;reset to unit zero for next slot
		bra	nother_slot		;no. and try next slot

@10		ldy	#sp_type		; is it a UniDisk3.5 device?
		lda	[<b0_buff_addr],y
		cmp	#$0001
		bne	@unitLoop		; no, keep walking until found / err
		
		ldy	#unit_num		; update DIB
		lda	|unitn_unit		; need current unit number
		and	#$007F
		sta	[<drvr_dib_ptr],y
		ldy	#dib_hw_unit
		sta	[<drvr_dib_ptr],y
		inc	|device_count		; bump startup count (used for shutdown management)
		jsr	dnld_disk_sw		; download disk switch patches to drive
		jsr	reset_access		; initialize external access flags
		lda	#no_error
		clc
exit_time
		rts

		eject
**********************************************************************
*	Is_XSP_slot:
*
*	Entry:	m = 1, x = 1
*		SlotsReg = sltromsel register
*
*	Exit:	m = 1, x= 1
*		EQ if it is
*		NE if it aint (either slot is internal or no SP firmware
*
*  Preserves: 	Y	Uses A,X
*
**********************************************************************
		longa	on
		longi	on
Is_XSP_slot:	lda	the_slot
		and	#0007
		asl	a		;slot * 2
		tax
		lda	SlotsReg	
		and	slotreg_bit-2,x	;is this slot set to external?
		beq	@notxSlot	;nope. so don't check any further
		txa
		lsr	a
		ora	#$00C0
		xba			;A = $Cs00
		tax			;X = $Cs00

		longa	off
		sep	#$20

		lda	>1,x		
		cmp	#$20		;$Cs01 = $20?
		bne	@nextSlot	;nope
		lda	>3,x
		bne	@nextSlot	;$Cs03 != $00
		lda	>5,x
		cmp	#$03		;$Cs05 = $03?
		bne	@nextSlot
		lda	>7,x
		bne	@nextSlot	;$Cs07 = $00
		lda	>$FB,x		;get smartport ID byte
		cmp	#$C0		;have extended and additionals?
@nextSlot	
		longa	on
		rep	#$20
		rts
		
@notxSlot	txa			;set NE 
		rts
		
slotreg_bit	dc.w	$0002		;slot 1 slotreg ext bit
		dc.w	$0004		;slot 2 slotreg ext bit
		dc.w	$0000
		dc.w	$0010		;slot 4 slotreg ext bit
		dc.w	$0020		;slot 5 slotreg ext bit
		dc.w	$0040		;slot 6 slotreg ext bit
		dc.w	$0080		;slot 7 slotreg ext bit

**********************************************************************
* Next_Slot:	calculates next slot number
*
*	creates slot scan in the following order:
*	5int,5ext,7ext,6ext,4ext,2ext,1ext
*
**********************************************************************
Next_Slot:	
		lda	the_slot
		bmi	@10
		asl	a
		tax
		lda	scanordermap-10,x
		sta	the_slot
@10		rts
		
scanordermap	dc.w	$D		;5 -> $D
		dc.w	-1
		dc.w	-1
		dc.w	-1
		dc.w	-1		;$9 -> -1
		dc.w	9		;$A -> $9
		dc.w	-1
		dc.w	$A		;$C -> $A
		dc.w	$F		;$D -> $F
		dc.w	$C		;$E -> $C	
		dc.w	$E		;$F -> $E



		eject
*****************************************************************
*
* This routine prepares all the dispatch lists which may be used
* with the bank $00 core dispatch routines so that they reference
* the proper bank $00 address space.
*
* ENTRY: Call via 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as program bank
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 0 ¥ ¥  0
*
* EXIT: via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 0 ¥ ¥  0
*
*****************************************************************
setup_disp_list          
		longa	on
		longi	on

		ldx	<b0_buff_addr

		clc				; update DIB status dispatch list
		txa
		adc	|unitn_plist_ptr
		sta	|unitn_plist_ptr
		clc
		txa
		adc	|unitn_slist_ptr
		sta	|unitn_slist_ptr

		clc				; update error status dispatch list
		lda	<b0_buff_addr
		adc	|err7_plist_ptr
		sta	|err7_plist_ptr
		clc
		txa
		adc	|err7_slist_ptr
		sta	|err7_slist_ptr

		clc				; update set address dispatch list
		txa
		adc	|saddr_plist_ptr
		sta	|saddr_plist_ptr
		clc
		txa
		adc	|saddr_clist_ptr
		sta	|saddr_clist_ptr

		clc				; update download dispatch list
		txa
		adc	|dnld_plist_ptr
		sta	|dnld_plist_ptr
		clc
		txa
		adc	|dnld_clist_ptr
		sta	|dnld_clist_ptr

		clc				; update download disksw dispatch list
		txa
		adc	|dnsw_plist_ptr
		sta	|dnsw_plist_ptr
		clc
		txa
		adc	|dnsw_clist_ptr
		sta	|dnsw_clist_ptr

		clc				; update execute disksw dispatch list
		txa
		adc	|exsw_plist_ptr
		sta	|exsw_plist_ptr
		clc
		txa
		adc	|exsw_clist_ptr
		sta	|exsw_clist_ptr

		clc				; update reset device dispatch list
		txa
		adc	|exr_plist_ptr
		sta	|exr_plist_ptr
		clc
		txa
		adc	|exr_clist_ptr
		sta	|exr_clist_ptr
		rts

		eject
*****************************************************************
*
* This routine prepares all the dispatch lists which may be used
* with the bank $00 core dispatch routines so that they reference
* the current unit that is to be accessed.
*
* ENTRY: Call via 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as program bank
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 0 ¥ ¥  0
*
* EXIT: via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 0 ¥ ¥  0
*
*****************************************************************
setup_cur_unit             
		longa	on
		longi	on

		ldy	#unit_num		; set current unit from DIB
		lda	[<drvr_dib_ptr],y
		sta	|current_unit

setup_disp_unit          
		longa	on
		longi	on

		sep	#$20			; 8 bit 'm'
		longa	off

		lda	|current_unit		; update parameter list unit numbers
		sta	|unitn_unit
		sta	|err7_unit
		sta	|saddr_unit
		sta	|dnld_unit
		sta	|dnsw_unit
		sta	|exsw_unit
		sta	|exr_unit

		rep	#$20			; 16 bit 'm'
		longa	on
		rts

		eject
*****************************************************************
*
* This routine issues a call to the UniDisk3.5 device via the
* bank $00 core dispatch routines to execute a DIB status call
* or status call $00.  The result is returned in the bank $00
* buffer.
*
* ENTRY: Call via 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as program bank
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 0 ¥ ¥  0
*
* EXIT: via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 0 ¥ ¥  0
*
*****************************************************************
get_sp_dib            
		longa	on
		longi	on

		jsr	set_b0_buff		; init bank $00 buffer pointer
		ldy	#8			; copy dispatch list to bank $00
copy_unitn_stat
		lda	|unitn_stat,y
		sta	[<b0_buff_addr],y
		dey
		dey
		bpl	copy_unitn_stat
		brl	b0_dispatch

		eject
*****************************************************************
*
* This routine issues a call to the UniDisk3.5 device via the
* bank $00 core dispatch routines to execute a set address control
* call or control call $06.  The address is passed in the bank
* $00 buffer.
*
* ENTRY: Call via 'JSR'
*               A Reg = Address to set
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as program bank
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 0 ¥ ¥  0
*
* EXIT: via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 0 ¥ ¥  0
*
*****************************************************************
do_set_address           
		longa	on
		longi	on

		jsr	set_b0_buff		; init bank $00 buffer pointer
		ldy	#sp_addr		; set download address & count
		sta	[<b0_buff_addr],y
		dey
		dey
		lda	#2
		sta	[<b0_buff_addr],y

		ldy	#8			; copy dispatch list to bank $00
copy_set_addr
		lda	|set_addr,y
		sta	[<b0_buff_addr],y
		dey
		dey
		bpl	copy_set_addr
		bra	b0_dispatch

		eject
*****************************************************************
*
* This routine issues a call to the UniDisk3.5 device via the
* bank $00 core dispatch routines to execute a download control
* call or control call $07.  The download routine is passed in
* the bank $00 buffer.
*
* ENTRY: Call via 'JSR'
*               A Reg = Undefined
*               X Reg = Pointer to Dowload Routine
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as program bank
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 0 ¥ ¥  0
*
* EXIT: via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 0 ¥ ¥  0
*
*****************************************************************
do_download        
		longa	on
		longi	on

		jsr	set_b0_buff		; init bank $00 buffer pointer

		ldy	#sp_dnld_cnt
		lda	#$0001			; count in control list
		sta	[<b0_buff_addr],y
		iny
		iny
		lda	#$0008			; Data to download
		sta	[<b0_buff_addr],y

copy_dnld_list
		ldy	#8			; copy dispatch list to bank $00
copy_download
		lda	|download,y
		sta	[<b0_buff_addr],y
		dey
		dey
		bpl	copy_download
		bra	b0_dispatch

		eject
*****************************************************************
*
* This routine issues a call to the UniDisk3.5 device via the
* bank $00 core dispatch routines to execute a download control
* call or control call $07.  The download resets all the hooks
* internal to the UniDisk3.5 drive.
*
* ENTRY: Call via 'JSR'
*               A Reg = Undefined
*               X Reg = Pointer to Dowload Routine
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as program bank
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 0 ¥ ¥  0
*
* EXIT: via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 0 ¥ ¥  0
*
*****************************************************************
		EXPORT	do_other_dnld
do_other_dnld           
		longa	on
		longi	on

		jsr	set_b0_buff		; init bank $00 buffer pointer

		ldx	#$0000
		ldy	#sp_dnld_cnt
hook_loop
		lda	|hook_addr,x		; copy hook table to UniDisk3.5
		sta	[<b0_buff_addr],y
		iny
		iny
		inx
		inx
		cpx	#$0018
		bne	hook_loop
		bra	copy_dnld_list

		eject
*****************************************************************
*
* This routine issues a call to the UniDisk3.5 device via the
* bank $00 core dispatch routines to execute a diagnostic status
* call or status call $05.  The result status list is passed in
* the bank $00 buffer.
*
* ENTRY: Call via 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as program bank
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 0 ¥ ¥  0
*
* EXIT: via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 0 ¥ ¥  0
*
*****************************************************************
do_diag_status      
		longa	on
		longi	on

		jsr	set_b0_buff		; init bank $00 buffer pointer
		ldy	#8			; copy dispatch list to bank $00
copy_err7_stat
		lda	|err7_stat,y
		sta	[<b0_buff_addr],y
		dey
		dey
		bpl	copy_err7_stat

		eject
*****************************************************************
*
* This routine actually sets up and executes the dispatch to the
* bank $00 core dispatch routines.
*
* ENTRY: Call via 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as program bank
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 0 ¥ ¥  0
*
* EXIT: via an 'RTS'
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 0 ¥ 0  0 = No error
*                       ¥ ¥ 0 0 0 0 ¥ 1  0 = Error
*
*****************************************************************
b0_dispatch    
		longa	on
		longi	on

		ldx	<b0_buff_addr		; setup & execute SmartPort call
		pea	<b0_buff_addr+1
		plb
		plb
		lda	<drvr_dev_num
		jsl	to_b0_core		; call SmartPort via core dispatcher
		phk
		plb
		bcc	no_b0_error		; if no error from SmartPort
		php
		pha
		cmp	#drvr_disk_sw		; was it a disk switched error?
		bne	not_disk_sw		; no
		ldy	#dsw_current		; set disk switch flag
		lda	#$0001
		sta	[<drvr_dib_ptr],y
not_disk_sw
		pla
		plp
no_b0_error
		rts

		eject
*****************************************************************
*
* This routine issues a call to the UniDisk3.5 device via the
* bank $00 core dispatch routines to execute a download and execute
* to install the disk switch patch.
*
* ENTRY: Call via 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as program bank
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 0 ¥ ¥  0
*
* EXIT: via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 0 ¥ ¥  0
*
*****************************************************************
dnld_disk_sw            
		longa	on
		longi	on

		jsr	set_b0_buff		; init bank $00 buffer pointer
		
		lda	#$0700			; set address for download
		jsr	do_set_address
		
		ldy	#78			; copy dispatch list to bank $00
copy_dnldsw
		lda	|downloadsw,y
		sta	[<b0_buff_addr],y
		dey
		dey
		bpl	copy_dnldsw
		jsr	b0_dispatch		; issue download call
		
		jsr	set_b0_buff		; init bank $00 buffer pointer
		ldy	#16			; copy dispatch list to bank $00
copy_exec_sw
		lda	|executesw,y
		sta	[<b0_buff_addr],y
		dey
		dey
		bpl	copy_exec_sw
		brl	b0_dispatch		; issue execute call

		eject
*****************************************************************
*
* This routine issues a call to the UniDisk3.5 device via the
* bank $00 core dispatch routines to execute an execute
* to remove the disk switch patch.
*
* ENTRY: Call via 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as program bank
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 0 ¥ ¥  0
*
* EXIT: via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 0 ¥ ¥  0
*
*****************************************************************
delete_patch
		longa	on
		longi	on

		jsr	set_b0_buff		; init bank $00 buffer pointer
		ldy	#16			; copy dispatch list to bank $00
copy_ex_r
		lda	|execute_res,y
		sta	[<b0_buff_addr],y
		dey
		dey
		bpl	copy_ex_r
		brl	b0_dispatch		; issue execute call

		eject
*****************************************************************
*
* Before returning, set the value of ERROR7 (UniDisk3.5 direct
* page location $005C) so that bit 3 is set to indicate that
* decimal mode is active.  Any UniDisk call with the exception of
* status call $05 (diagnostic status) will clear bit 3 of ERROR7.
* This bit will be examined prior to dispatching to the device
* in order to detect a direct external access.
*
* ENTRY: via a 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 0 ¥ ¥  0
*
* EXIT: via an 'RTS'
*               A Reg = Unchanged
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 0 ¥ ¥  0  Unchanged
*
*****************************************************************
reset_access       
		longa	on
		longi	on

		php
		pha

		lda	#$0072			; set address for hook table
		jsr	do_set_address
		jsr	do_other_dnld

		lda	#error7			; set address to ERROR7
		jsr	do_set_address
		jsr	do_download

		pla
		plp
		rts

		eject
*****************************************************************
*
* This routine is used to detect if decimal mode is indicated
* by ERROR7 (UniDisk3.5 zero page location $005C).  If decimal
* mode is active then no direct external access has occured.
* if decimal mode is not active then direct external access has
* occured and will result in a disk switch status or error as
* appropriate for the current device call.
*
* ENTRY: via a 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 0 ¥ ¥  0
*
* EXIT: via an 'RTS'
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 0 ¥ 0  0  no external access occurred
*                       ¥ ¥ 0 0 0 0 ¥ 1  0  external access occured
*
*****************************************************************
check_access    
		longa	on
		longi	on

		jsr	do_diag_status		; execute status call $05
		bcc	have_access		; if no error on status call
		
		lda	#%00000001		; else, assume disk switched
		bra	fake_access
have_access
		ldy	#sp_p_reg		; get UniDisk processor status
		lda	[<b0_buff_addr],y
		eor	#$0008			; inverse of decimal bit indicates switch
		and	#$0008
		ror	a
		ror	a
		ror	a			; bit 1 = disk switch
fake_access
		ldy	#dsw_current		; OR in any diskswitch this drvr call
		ora	[<drvr_dib_ptr],y
		sta	[<drvr_dib_ptr],y
		ror	a			; c = DiskSwitch
		lda	#drvr_disk_sw		; assume an error
		rts

		eject
*****************************************************************
*
* This routine is used to set the location B0_BUFF_ADDR to
* point to the system buffer in bank $00.
*
* ENTRY: via a 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 0 ¥ ¥  0
*
* EXIT: via an 'RTS'
*               A Reg = Unchanged
*               X Reg = Unchanged
*               Y Reg = Unchanged
*             Dir Reg = GS/OS Direct Page
*               B Reg = Unchanged
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 0 ¥ ¥  0
*
*****************************************************************
set_b0_buff         
		longa	on
		longi	on

		php
		pha
		phx
		phy
		phb

		jsl	get_sys_buff		; return bank $00 buffer in X reg.

		clc
		txa
		adc	#$0100
		sta	<b0_buff_addr
		stz	<b0_buff_addr+2

		plb
		ply
		plx
		pla
		plp

		rts

		eject
*****************************************************************
*
* The following data area contains images of dispatch lists to
* be used for calls to the UniDisk3.5 firmware via the bank $00
* core dispatch routine.  Note that these images must be updated
* for the bank $00 buffer address and the current unit to be
* accessed.  A common update routine is provided for this purpose.
* Bank zero buffer usage is as follows:
*
*				 _______________________
* 			+$01FX	|			|
*			+$01EX	|			|
*			+$01DX	|			|
*			+$01CX	|_______________________| <- Status / Control list
*			+$01BX	|			|
*			+$01AX	|			|
*			+$019X	|			|
*			+$018X	|			|
*			+$017X	|			|
*			+$016X	|			|
*			+$015X	|			|
*			+$014X	|			|
*			+$013X	|			|
*			+$012X	|			|
*			+$011X	|			|
*	b0_buff_addr	+$010X	|_______________________| <- SmartPort parameter block
* 			+$00FX	|			|
*			+$00EX	|			|
*			+$00DX	|			|
*			+$00CX	|			|
*			+$00BX	|			|
*			+$00AX	|			|
*			+$009X	|			|
*			+$008X	|	   Do		|
*			+$007X	|	   Not		|
*			+$006X	|	   Use		|
*			+$005X	|			|
*			+$004X	|			|
*			+$003X	|			|
*			+$002X	|			|
*			+$001X	|			|
*			+$000X	|_______________________| <- This area used by generated core
*
* SmartPort parmater block (as passed to bank 0 core):
*
*				dc.b	command
*				dc.w	parameter list pointer
*	parameter list pointer	dc.b	parameter count
*				dc.b	unit number
*				dc.w	pointer to status / control list
*				dc.b	status / control code
*
*****************************************************************
parms_start
*
* The following is the parameter list for a unit N status call
* to the SmartPort.  This is used to determine the device type
* and subtype.
*
unitn_stat	dc.b	$00		; status call
unitn_plist_ptr	dc.w	$0003		; pointer to parameter list

unitn_plist	dc.b	3		; parameter count
unitn_unit	dc.b	1		; unit number
unitn_slist_ptr	dc.w	$00C0		; pointer to status list
		dc.b	3		; status code = DIB status

*
* The following is the parameter list for a unit N status call
* to the SmartPort.  This is used to determine the state of
* location ERROR7 ($005C) from the internal zero page resident
* within the UniDisk3.5 device.
*
err7_stat	dc.b	$00		; status call
err7_plist_ptr	dc.w	$0003		; pointer to parameter list

err7_plist	dc.b	3		; parameter count
err7_unit	dc.b	1		; unit number
err7_slist_ptr	dc.w	$00C0		; pointer to status list
		dc.b	5		; status code = diagnostic status

*
* The following is the parameter list for a unit N set download address call.
*
set_addr	dc.b	$04		; control call
saddr_plist_ptr	dc.w	$0003		; pointer to parameter list

saddr_plist	dc.b	3		; parameter count
saddr_unit	dc.b	1		; unit number
saddr_clist_ptr	dc.w	$00C0		; pointer to status list
		dc.b	6		; control code = set address

*
* The following is the parameter list for a unit N download call.
*
download	dc.b	$04		; control call
dnld_plist_ptr	dc.w	$0003		; pointer to parameter list

dnld_plist	dc.b	3		; parameter count
dnld_unit	dc.b	1		; unit number
dnld_clist_ptr	dc.w	$00C0		; pointer to status list
		dc.b	7		; control code = down load

hook_addr	dc.w	21
		jmp	$E106
		jmp	$E203
		jmp	$EF03
		jmp	$E492
		jmp	$E2CF
		jmp	$E317
		jmp	$E464

		eject
*****************************************************************
*
* The following data is actually the object code that is to be
* downloaded to UniDisk3.5 devices in order to support the disk
* switched status code. This code will be downloaded to
* address $0700 within the UniDisk3.5 internal RAM.
*
* NOTE: The count word must always be an even number!!!
*
*****************************************************************
*
* The following is the parameter list for a unit N execute call.
*
executesw	dc.b	$04		; control call
exsw_plist_ptr	dc.w	$0003		; pointer to parameter list

exsw_plist	dc.b	3		; parameter count
exsw_unit	dc.b	1		; unit number
exsw_clist_ptr	dc.w	$0008		; pointer to status list
		dc.b	5		; control code = execute
exsw_parms	dc.w	6		; count word
		dc.b	0		; A register
		dc.b	0		; X register
		dc.b	0		; Y register
		dc.b	%00100100	; N V ¥ÊBÊD I Z C
		dc.w	$0700		; Program counter

*
* The following is the parameter list for a unit N execute RESET call.
*
execute_res	dc.b	$04		; control call
exr_plist_ptr	dc.w	$0003		; pointer to parameter list

exr_plist	dc.b	3		; parameter count
exr_unit	dc.b	1		; unit number
exr_clist_ptr	dc.w	$0008		; pointer to status list
		dc.b	5		; control code = execute
exr_parms	dc.w	6		; count word
		dc.b	0		; A register
		dc.b	0		; X register
		dc.b	0		; Y register
		dc.b	%00100100	; N V ¥ÊBÊD I Z C
		dc.w	$E7D9		; Program counter

; include the following line to ensure that there are an even # of bytes in
; this block of data (the various parameter blocks).
 		dc.b	0		;make sure there's an even # of bytes

		eject
*****************************************************************
*
* The following is the parameter list for a unit N download call.
*
*****************************************************************
downloadsw	dc.b	$04		; control call
dnsw_plist_ptr	dc.w	$0003		; pointer to parameter list

dnsw_plist	dc.b	3		; parameter count
dnsw_unit	dc.b	1		; unit number
dnsw_clist_ptr	dc.w	$0008		; pointer to status list
		dc.b	7		; control code = down load

parms_end
 if (((parms_end-parms_start)//2)<>0) then
 	aerror	'Uneven # of bytes in SmartPort parameter lists'
 endif

disksw_data	dc.w	70		; # bytes to be downloaded
					; patch code follows.....

*****************************************************************
*
* This routine is downloaded to the UniDisk3.5 driver at location $0700.
* This routine is installed inline with the main entry point in the
* UniDisk3.5 internal firmware and monitors a zero page location executed
* during the EJECT process.  The location MIDEJECT within the UniDisk3.5
* internal zero page contains values of $01, $02 or $80 as a result of an
* eject operation.  Our patch installs a value of $C0 (bit 6 set) to 
* indicate that an eject has not occured.  Bit 6 of location MIDEJECT will 
* be cleared if an eject occurs.  The remainder of the patch is installed
* in-line with the UniDisk3.5 firmware SmartPort command dispatcher and 
* monitors the state of bit 6 in location MIDEJECT.  If bit 6 is cleared,
* a DISKSW error will be returned and bit 6 will be SET.  Note that the
* DISKSW error will only be returned from the UniDisk3.5 on a READBLOCK, 
* WRITEBLOCK, READBYTES or WRITEBYTES call (SmartPort).  Note that the
* location that this patch resides at in the UniDisk3.5 memory map cannot
* move and cannot grow beyond the length of 64 bytes.  All other available
* free memory in the UniDisk3.5 internal memory map has been made available
* to the developer community and cannot be used for compatibility sake.
*
*					; Entry via a 'JSR'
*					;	A Reg =	$00
*					;	X Reg =	$00
*					;	Y Reg =	$00
*					;	P Reg =	N V ¥ÊBÊD I Z C
*					;		x x x 0 0 x x x
*					;	PC    =	$0700
*					;
*					; Exit via a 'RTS'
*					;	A Reg =	$00
*					;	X Reg =	$00
*					;	Y Reg =	$00
*					;	P Reg =	N V ¥ÊBÊD I Z C
*					;		x x x 0 0 x x x
*					;	PC    =	$0700
*					;
*****************************************************************
*					;mideject	equ	$006F	; location used by eject code
*					;vector_hook	equ	$0087	; main entry vector
*					;cmdcode	equ	$004C	; location of SmartPort command
*					;statbyte	equ	$005E	; error status returned by SmartPort
*					;bytecountl	equ	$003F	; byte count LSB
*					;bytecounth	equ	$0040	; byte count MSB
*					;
*                                       ;init		start
		dc.b	$A2,$02		;		ldx	#$02
*                                       ;movehook	anop
		dc.b	$B5,$87		;		lda	<vector_hook,x	; patch main entry
		dc.b	$9D,$3C,$07	;		sta	|execute,x
		dc.b	$CA		;		dex
		dc.b	$10,$F8		;		bpl	movehook
		dc.b	$A9,$17		;		lda	#<swstat
		dc.b	$85,$88		;		sta	oldhook+1
		dc.b	$A9,$07		;		lda	#>swtat
		dc.b	$85,$89		;		sta	oldhook+2
*                                       ;init_mid	anop
		dc.b	$A9,$C0		;		lda	#notsw		; bit 6 says not switched
		dc.b	$85,$6F		;		sta	mideject
		dc.b	$60		;		rts
*                                       ;
*                                       ;swstat		anop
		dc.b	$A5,$4C		;		lda	cmdcode		; is it a status call?
		dc.b	$F0,$13		;		beq	chk_sw		; yes
		dc.b	$C9,$05		;		cmp	#$05		; is it an init call?
		dc.b	$D0,$06		;		bne	not_init	; no
		dc.b	$20,$D9,$E7	;		jsr	init_hooks	; else restore hooks
		dc.b	$4C,$87,$00	;		jmp	vectorhook	; and execute init call
*                                       ;not_init	anop
		dc.b	$C9,$03		;		cmp	#$03		; is it a rdblk or wrblk?
		dc.b	$B0,$01		;		bge	cmd_chk		; no
		dc.b	$3A		;		dec			; yes, translate
*                                       ;cmd_chk	anop
		dc.b	$29,$06		;		and	#%11110110	; is it rdblk, wrblk, rd or wr?
		dc.b	$D0,$0E		;		bne	execute		; no
		dc.b	$24,$6F		;		bit	mideject	; has eject occured?
		dc.b	$70,$0A		;		bvs	execute		; no, execute call
		dc.b	$A9,$AE		;		lda	#disksw+$80	; else return disk switch error
		dc.b	$85,$5E		;		sta	statbyte
		dc.b	$64,$3F		;		stz	bytecountl	; byte count on error is zero
		dc.b	$64,$40		;		stz	bytecounth
		dc.b	$80,$D6		;		bra	init_mid	; set disk not switched flag
*                                       ;execute	anop
		dc.b	$4C,$FD,$00	;		jmp	newhook		; execute the call

		eject
*****************************************************************
*
* DRIVER CALL:  OPEN
* DRIVER CALL:  CLOSE
* DRIVER CALL:  FLUSH
*
* These calls have no application with block device drivers and will
* return with no error.
*
* ENTRY: via a 'JSR'
*       <drvr_dev_num = Device Number of current device being accessed
*      <drvr_tran_cnt = $00000000
*               A Reg = Call Number
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 0 ¥ ¥  0
*
* EXIT: via an 'RTS'
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 0 ¥ 0  0   No error occured
*                       ¥ ¥ 0 0 0 0 ¥ 1  0   Error occured
*
*****************************************************************
open
close
flush
		longa	on
		longi	on

		lda	#no_error
		clc
		rts

		eject
*****************************************************************
*
* DRIVER CALL:  READ
*
* This call executes a read from the device.  Block devices must
* validate the initial block number and that the request count is
* an integral multiple of the block size.  In addition the block
* number of each successive block must be validated as it is
* accessed when an multiple block I/O transaction is in place.
*
* DRIVER CALL:  WRITE
*
* This call executes a write to the device.  Block devices must
* validate the initial block number and that the request count is
* an integral multiple of the block size.  In addition the block
* number of each successive block must be validated as it is
* accessed when an multiple block I/O transaction is in place.
*
* Note that both functions can be handled by this single procedure,
* since the procedure simply calls the generated core driver routines
* to perform the actual media access.
*
* ENTRY: via a 'JSR'
*       <drvr_dev_num = Device Number of current device being accessed
*       <drvr_buf_ptr = Pointer to I/O buffer
*       <drvr_blk_num = Initial block number
*       <drvr_req_cnt = Number of bytes to be transferred
*      <drvr_blk_size = Size of block to be accessed
*      <drvr_tran_cnt = $00000000
*               A Reg = Call Number
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 0 ¥ ¥  0
*
* EXIT: via an 'RTS'
*      <drvr_tran_cnt = Number of bytes transferred
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 0 ¥ 0  0  if no error
*                       ¥ ¥ 0 0 0 0 ¥ 1  0  if error
*
*****************************************************************
read
write
		longa	on
		longi	on

		lda	<drvr_blk_size		; validate the current block size
		cmp	#$0200
		beq	do_access
		cmp	#$020C
		beq	do_access
		lda	#drvr_bad_parm		; invalid block size
		sec
		rts

do_access
		jsr	setup_cur_unit		; adjust unit parameter
		jsr	check_access		; did direct access occur?
		bcs	almost_done		; yes
		jsl	g_dispatch		; pass call on to generated core
almost_done
		jsr	reset_access		; prepare for direct access detection
set_history					; entry point used after a format call
		bcs	@chk_offline		; if error occured (v0.10a03)
		ldy	#dsw_current		; did disk switch occur?
		lda	[<drvr_dib_ptr],y
		bne	@set_switched		; yes, make sure history is updated
		ldy	#dsw_history		; update the history
		lda	[<drvr_dib_ptr],y
		and	#Åswitched_bit		; clear the switched bit
		ora	#$8000+online_bit	; and set the online bit
		sta	[<drvr_dib_ptr],y
		lda	#no_error		; return no error
		rts

@set_switched
		lda	#$8000+switched_bit	; set switched bit and clear online bit
		ldy	#dsw_history
		sta	[<drvr_dib_ptr],y
		lda	#drvr_disk_sw		; else return disk switched error
@call_done
		cmp	#$0001			; condition carry
		rts

@chk_offline
		cmp	#drvr_off_line		; no disk in drive?
		bne	@call_done		; nope, must be sump'in else!
		ldy	#dsw_history		; else update our history word
		lda	[<drvr_dib_ptr],y
		and	#Åonline_bit		; clear the online bit in the history
		sta	[<drvr_dib_ptr],y
		lda	#drvr_off_line		; return the offline error
		sec
		rts

		eject
*****************************************************************
*
* DRIVER CALL:  STATUS
*
* This routine supports all the standard device status calls.
* Any status call which is able to detect an OFFLINE or DISK
* SWITCHED condition should call the system service routine
* SET_DISKSW.  OFFLINE and DISKSW are conditions and not errors
* when detected by a status call and should only be returned as
* conditions in the status list.
*
* Status Code:  $0000   Return Device Status
*               $0001   Return Control Parameters
*               $0002   Return Wait/No Wait Mode
*               $0003   Return Format Options
*
* ENTRY: via a 'JSR'
*       <drvr_dev_num = Device Number of current device being accessed
*     <drvr_clist_ptr = Pointer to control list
*     <drvr_ctrl_code = Control code
*       <drvr_req_cnt = Number of bytes to be transferred
*      <drvr_tran_cnt = $00000000
*               A Reg = Call Number
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 0 ¥ ¥  0
*
* EXIT: via an 'RTS'
*      <drvr_tran_cnt = Number of bytes transferred
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 0 ¥ 0  0   No error occured
*                       ¥ ¥ 0 0 0 0 ¥ 1  0   Error occured
*
*****************************************************************
status
		longa	on
		longi	on

		lda	<drvr_stat_code		;is this a get format option call
		cmp	#drvr_get_format
		beq	get_format		;yes

		stz	|access_flag		; assume no access occurred
		jsr	setup_cur_unit		; adjust unit parameter
		jsr	check_access		; did direct access occur?
		php
		rol	|access_flag		; access = disk switch
		plp
		bcc	ok			; if no direct access occured
		jsl	set_disksw		; delete cache & mark VCR's
ok						; 
		jsl	g_dispatch		; pass call on to generated core
		jsr	reset_access		; prepare for direct access detection
call_done1					; 
		bcs	stat_done		; if error, history cant be updated
		lda	<drvr_stat_code		; is this a return from device status?
		bne	stat_done		; no

		eject
*
* On return from a device status call, only the first offline and disk switch
* status should be returned while the media remains offline.  Subsequent status
* calls with the media offline should return only the offline and omit the
* disk switched status.  Prior to checking the history, any direct access
* detection is ORed in as a disk switch status.
*
		ldy	#dsw_current		; was disk switch returned this call
		lda	[<drvr_dib_ptr],y	; bit 0 set if disksw error returned (fw)
		ora	|access_flag		; bit 0 set if external firmware access
		ora	[<drvr_slist_ptr]
		sta	[<drvr_slist_ptr]	; status = firmware + access + current

		ldy	#dsw_history		; has history ever been set?
		lda	[<drvr_dib_ptr],y
		bpl	update_history		; no, go initialize history
check_history
		eor	[<drvr_slist_ptr]	; offline/online reported before?
		and	#$0010
		beq	update_history		; yes
		lda	#$0001			; no, indicate switch
		ora	[<drvr_slist_ptr]
		sta	[<drvr_slist_ptr]
update_history					; 
		lda	[<drvr_slist_ptr]
		and	#$0011			; want only offline and disk sw
		ora	#$8000			; history must never = $0000
		sta	[<drvr_dib_ptr],y
stat_done					; 
		lda	#no_error
		clc
		rts

		eject
*****************************************************************
*
* This routine returns the format options for the device.
* Consult the driver specification for the format option list.
* This call requires a minimum request count of $00000002.  The
* maximum request count may exceed the size of the format list
* in which case the request count returned will indicate the
* size of the format list.
*
* ENTRY: via a 'JSR'
*               A Reg = Call Number
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 0 ¥ ¥  0
*
* EXIT: via an 'RTS'
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 0 ¥ 0  0   No error occured
*                       ¥ ¥ 0 0 0 0 ¥ 1  0   Error occured
*
*****************************************************************
get_format					;               
		longa	on
		longi	on

		lda	#drvr_bad_parm		; assume invalid request count
		ldx	<drvr_req_cnt+2		; and validate request count
		bne	bad_get_format
		ldx	<drvr_req_cnt
		cpx	#$0002
		bge	ok_get_format
bad_get_format					; 
		sec
		rts
*
* Request count is valid. Return the format options for this device.
*
ok_get_format					; 
		ldy	#dib_hw_unit		; internal device #
		sec
		lda	[<drvr_dib_ptr],y
		sbc	>dib_subtract		; convert hardware units to 0 thru 4
		asl	a
		tax
		lda	|format_tbl,x		; get pointer to format option list
		tax
		lda	|0,x			; get # entries in option list
		asl	a			; list length = (n * 16) + 8
		asl	a
		asl	a
		asl	a
		clc
		adc	#$0008			; now have option list length
		cmp	<drvr_req_cnt		; is request longer then list length?
		bge	req_count_ok
		sta	<drvr_req_cnt
req_count_ok					; 
		ldy	#$0000			; status list index
		sep	#$20			; 8 bit 'm'
		longa	off
copy_format					; 
		lda	|0,x			; copy format option list to slist_ptr
		sta	[<drvr_slist_ptr],y
		inx
		iny
		cpy	<drvr_req_cnt		; copy = request count size
		bne	copy_format
		rep	#$20			; 16 bit 'm'
		longa	on

		EXPORT	set_xfer_cnt
set_xfer_cnt					;               
		lda	<drvr_req_cnt		; set transfer count
		sta	<drvr_tran_cnt
		lda	<drvr_req_cnt+2

		sta	<drvr_tran_cnt+2
		lda	#no_error		; and return with no error
		clc
		rts


		eject
*****************************************************************
*
* DRIVER CALL:  CONTROL
*
* This routine supports all the standard device control calls.
*
* Control Code: $0000   Reset Device
*               $0001   Format Device
*               $0002   eject Media
*               $0003   Set Control Parameters
*               $0004   Set Wait/No Wait Mode
*               $0005   Set Format Options
*               $0006   Assign Partition Owner
*               $0007   Arm Signal
*               $0008   Disarm Signal
*
* ENTRY: via a 'JSR'
*       <drvr_dev_num = Device Number of current device being accessed
*     <drvr_clist_ptr = Pointer to control list
*     <drvr_ctrl_code = Control code
*       <drvr_req_cnt = Number of bytes to be transferred
*      <drvr_tran_cnt = $00000000
*               A Reg = Call Number
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 0 ¥ ¥  0
*
* EXIT: via an 'RTS'
*      <drvr_tran_cnt = Number of bytes transferred
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 0 ¥ 0  0   No error occured
*                       ¥ ¥ 0 0 0 0 ¥ 1  0   Error occured
*
*****************************************************************
control
		longa	on
		longi	on

		stz	|access_flag		; assume no access occurred
		jsr	setup_cur_unit		; adjust unit parameter
		jsr	check_access		; did direct access occur?
		bcc	ok1			; if no direct access occured
		jsl	set_disksw		; delete cache & mark VCR's
ok1						; 
		jsl	g_dispatch		; pass call on to generated core
		jsr	reset_access		; prepare for direct access detection
		ldx	<drvr_ctrl_code		; was this a format call?
		dex				; (this doesn't change the carry bit)
		beq	@post_process		; yes, must update our history word
		rts

@post_process	jmp	set_history		; go condition the history word

		eject
*****************************************************************
*
* DRIVER CALL:  SHUTDOWN
*
* This call prepares the driver for shutdown.  This may include
* closing a character device as well as releasing any and all
* system resources that may have been aquired by either a
* STARTUP or OPEN call.
*
* ENTRY: via a 'JSR'
*       <drvr_dev_num = Device Number of current device being accessed
*      <drvr_tran_cnt = $00000000
*               A Reg = Call Number
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 0 ¥ ¥  0
*
* EXIT: via an 'RTS'
*      <drvr_tran_cnt = Number of bytes transferred
*               A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               B Reg = Same as entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 0 ¥ 0  0   No error occured
*                       ¥ ¥ 0 0 0 0 ¥ 1  0   Error occured
*
*****************************************************************
shutdn
		longa	on
		longi	on

		jsr	setup_cur_unit		; adjust unit parameter
		jsr	delete_patch		; remove disk switch patch

		dec	|device_count		; number of appledisk3.5's online
		bne	not_last
		stz	the_slot		;reset slot to unknown
; reinitialize all variables (for a possible warm-start)

		ldx	#restore_end-restore_tbl-2
restore_loop
		lda	|restore_tbl,x
		sta	|startup_unit,x
		dex
		dex
		bpl	restore_loop
		
		ldx	#restore1_end-restore_1-2
		
restore1_loop
		lda	|restore_1,x
		sta	|unitn_stat,x
		dex
		dex
		bpl	restore1_loop
		
		lda	#no_error		; no error if all shutdown
		clc
		rts

not_last
		lda	#drvr_busy		; else return busy
		sec
		rts

restore_tbl	dc.w	0			; startup unit
		dc.w	0			; current unit being accessed
		dc.b	'A '			; startup with BLOCK1
		dc.w	0			; retry count
		dc.w	0			; device count
		dc.w	0			; bit 0 set if disk switched
restore_end


; the following values are used to restore the various parameter lists to their "just-loaded"
; state.  This allows the driver to be restartable from memory (so it doesn't have to be
; reloaded when switching from P8 to GS/OS).  The values were copied directly from their
; original locations.

restore_1

; parms for unitn_stat
		dc.b	$00			; status call
		dc.w	$0003			; pointer to parameter list
		dc.b	3			; parameter count
		dc.b	1			; unit number
		dc.w	$00C0			; pointer to status list
		dc.b	3			; status code = DIB status

; parms for err7_stat
		dc.b	$00			; status call
		dc.w	$0003			; pointer to parameter list
		dc.b	3			; parameter count
		dc.b	1			; unit number
		dc.w	$00C0			; pointer to status list
		dc.b	5			; status code = diagnostic status

; parms for set_addr
		dc.b	$04			; control call
		dc.w	$0003			; pointer to parameter list
		dc.b	3			; parameter count
		dc.b	1			; unit number
		dc.w	$00C0			; pointer to status list
		dc.b	6			; control code = set address

; parms for download
		dc.b	$04			; control call
		dc.w	$0003			; pointer to parameter list
		dc.b	3			; parameter count
		dc.b	1			; unit number
		dc.w	$00C0			; pointer to status list
		dc.b	7			; control code = down load

; parms for hook_addr
		dc.w	21
		jmp	$E106
		jmp	$E203
		jmp	$EF03
		jmp	$E492
		jmp	$E2CF
		jmp	$E317
		jmp	$E464

; parms for executesw
		dc.b	$04		; control call
		dc.w	$0003		; pointer to parameter list

		dc.b	3		; parameter count
		dc.b	1		; unit number
		dc.w	$0008		; pointer to status list
		dc.b	5		; control code = execute
		dc.w	6		; count word
		dc.b	0		; A register
		dc.b	0		; X register
		dc.b	0		; Y register
		dc.b	%00100100	; N V ¥ÊBÊD I Z C
		dc.w	$0700		; Program counter

; parms for execute_res
		dc.b	$04		; control call
		dc.w	$0003		; pointer to parameter list

		dc.b	3		; parameter count
		dc.b	1		; unit number
		dc.w	$0008		; pointer to status list
		dc.b	5		; control code = execute
		dc.w	6		; count word
		dc.b	0		; A register
		dc.b	0		; X register
		dc.b	0		; Y register
		dc.b	%00100100	; N V ¥ÊBÊD I Z C
		dc.w	$E7D9		; Program counter

 if (((parms_end-parms_start)//2)<>0) then
 		dc.b	0		;make sure there's an even # of bytes
 endif

; parms for downloadsw
		dc.b	$04		; control call
		dc.w	$0003		; pointer to parameter list

		dc.b	3		; parameter count
		dc.b	1		; unit number
		dc.w	$0008		; pointer to status list
		dc.b	7		; control code = down load

restore1_end

		endp
		
		end

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/FSTs/AppleShare/MakeFile b/IIGS.601.SRC/GS.OS/FSTs/AppleShare/MakeFile
new file mode 100644
index 0000000..871f368
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/FSTs/AppleShare/MakeFile
@@ -0,0 +1 @@
+#
# This MakeFile will build the AppleShare FST for GS/OS.
#
# It is assumed that all of the sources are in the same directory
# and that all objects will be placed there, too.
#
# The file AppleShare.FST will be generated as final output.
#
#
# Modification history:
#
# 15-Aug-88	MSD	Equates are now in a dump file.
#			Objects and listings in their own folders.
# 10-Nov-88	MSD	By default, no listings generated.
# 10-Jan-88	MSD	Added -i for :obj:equates.dump

#
# First, define all of the objects that need to be linked.
#
objects		=	:obj:header.o ¶
			:obj:volume.o ¶
			:obj:getdevnum.o ¶
			:obj:create.o ¶
			:obj:destroy.o ¶
			:obj:clearbackup.o ¶
			:obj:getinfo.o ¶
			:obj:setinfo.o ¶
			:obj:changepath.o ¶
			:obj:open.o ¶
			:obj:close.o ¶
			:obj:volmod.o ¶
			:obj:flush.o ¶
			:obj:mark.o ¶
			:obj:eof.o ¶
			:obj:read.o ¶
			:obj:write.o ¶
			:obj:getdir.o ¶
			:obj:specific.o ¶
			:obj:time.o ¶
			:obj:subs.o ¶
			:obj:FindPath.o ¶
			:obj:sendpacket.o ¶
			:obj:data.o

#
# Now define the default option for listings, etc.
#
# Note: to generate full listings, use the following Make
# command line:
# make -d "AsmOpts=-l -lo :list:" -d "LinkOpts=-l >:list:link.map"
#

AsmOpts		=
LinkOpts	=

#
# The FST depends on all of its object files....
#
AppleShare.FST		 Ä	{objects}
	LinkIIGS -t $BD -at 0 -o AppleShare.FST {objects} {LinkOpts}

#
# The "FST" target is useful for building just the FST
# without running the DuplicateIIGS tool.
#
FST			Ä	{objects}
	LinkIIGS -t $BD -at 0 -o AppleShare.FST {objects} {LinkOpts}


#
# Almost all of the object files include the equates.dump
# file, so rebuild them all if the equates file changes.
#
# Currently, the only object file that does NOT depend on
# the equates file is data.o since equates imports some
# of the data fields from data.
#
{objects}		Ä	:obj:equates.dump


#
# Generic rule for assembling a file (turning xxx.aii into xxx.o)
#
:obj:			Ä	:src:
.o			Ä	.aii
	AsmIIGS -f -i :obj: -o {TargDir}{Default}.o {AsmOpts} {DepDir}{Default}.aii


#
# Rule for building the equates.dump file
#
:obj:equates.dump	Ä	:src:equates.aii
	AsmIIGS -f {AsmOpts} -o :obj:equates.o :src:equates.aii
	Delete -i :obj:equates.o
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/ChangePath.aii b/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/ChangePath.aii
new file mode 100644
index 0000000..2e38764
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/ChangePath.aii
@@ -0,0 +1 @@
+;------------------------------------------------------------
;
; Change_path
;
; This call will move and/or rename a file or directory.
; Volume renames are not allowed, and a directory may not
; be moved into one of its descendants (AFP will flag that).
;
; On entry:
;	Full native mode.
;
; On exit:
;	Full native mode.
;
; Modification history:
; 15-Jul-88	MSD	Started coding.
;  5-Dec-91	MSD	Now checks the unused bits in the flags
;			word (third parameter).
;
; Known bug: If the source file exists and the parent of the
; destination does not, then you will get a file not found
; error instead of a path not found error.  Can be fixed by
; trying to find the parent of destination as well.
;
;------------------------------------------------------------

		load	'equates.dump'

		import	(PreProcess,main_exit,CheckParent):code
		import	(proc_path1,proc_path2):code
		import	(StartPacket,SendPacket):code
		import	(PutWord,PutLong,PutByte):code
		import	(PutPath,PutIDs,PutPString):code
		import	PutPartPath:code
		import	(StartReply,GetWord,GetLong):code
		import	(GetPlace,GetPString):code
		import	mydata:tdata


p		record	0		; class 1 parameter block
source_path	ds.l	1
dest_path	ds.l	1
flags		ds.w	1		; $8000 = assume source is duplicate volume
		endr
		
		
change_path	proc	export
		with	dp,mydata

		ProcName change_path

		jsr	PreProcess		; validate parameters

;------------------------------------------------------------
; If the pcount was 3, make sure the flags word doesn't have
; the extra bits set (only bit 15 is defined).	(5-Dec-91 MSD)
;------------------------------------------------------------
		lda	pcount
		cmp	#3			; did they supply flags?
		blt	no_flags
		
		ldy	#p.flags
		lda	[my_pb_ptr],y		; get the flags
		bit	#$7FFF			; any reserved bits set?
		beq	no_flags		; no, so it's OK
		
		lda	#invalid_parm
		sec
		brl	exit
no_flags

;------------------------------------------------------------
; Process the source path.  Volume only gets access denied.
;------------------------------------------------------------
		jsr	proc_path1		; parse source pathname
		bcs	go_exit_1
		
		lda	volume_sep		; root only?
		bne	@ok
		brl	no_access		; can't do it to root
@ok
		lda	#afpMove		; move and rename
		sta	my_call_num		; save as call to issue
		
		lda	#$FFFF			; volume must match
		sta	same_vol_flag
		
;------------------------------------------------------------
; Common processing code for two pathname calls.
;------------------------------------------------------------
		export	two_file_call
two_file_call

;------------------------------------------------------------
; See if source object actually exists.  If it does, save
; its parent DirID and the child name.
;------------------------------------------------------------
		lda	#afpGetFlDrParms
		jsr	StartPacket
		
		jsr	PutIDs
		
		lda	#$4200			; files: long name, parent DirID
		ldx	#$4200			; dirs: long name, parent DirID
		jsr	PutLong			; put bitmaps in
		
		jsr	PutPath
		
		jsr	SendPacket
		jsr	CheckParent
		bcs	go_exit_1
		
		jsr	StartReply
		jsr	GetLong			; ignore bitmaps
		jsr	GetWord			; ignore object flag

		jsr	GetPlace		; mark start of parms
		
		jsr	GetLong			; get parent DirID
		sta	src_dirid
		stx	src_dirid+2
		
		ldx	#<src_name
		ldy	#^src_name
		jsr	GetPString		; get source child name
		
		lda	SessRefnum		; remember source session and
		sta	src_srefnum
		lda	VolID			; VolID for later compare for
		sta	src_volid		; same volume
		
;------------------------------------------------------------
; Process the destination path
;------------------------------------------------------------
		jsr	proc_path2		; parse destination pathname
go_exit_1
		bcc	@ok
		brl	exit
@ok
		lda	volume_sep		; volume only?
		beq	go_bad_path		; not valid as destination file
		
;------------------------------------------------------------
; Make sure the two volumes are on the same server (and
; same volume if needed)
;------------------------------------------------------------
		lda	SessRefnum
		cmp	src_srefnum
		bne	go_bad_path		; not same, can't do it
		lda	same_vol_flag		; need to be on same volume?
		bpl	ok_vol			; no, so don't check
		lda	VolID
		cmp	src_volid		; same volume?
		beq	ok_vol			; yes, so continue
go_bad_path	brl	bad_path		; no, can't do it
ok_vol

;------------------------------------------------------------
; Find the parent of the destination (get its DirID).  If it
; does not exist or is not a directory, return path_not_found.
; Leave destination child as the partial path (my_path_len
; and my_path_ptr set).
;------------------------------------------------------------
		ldy	my_path_len
		sep	#$20			; 8 bit A for chars
		longa	off
@loop
		dey
		beq	child_only		; only a child name!
		lda	[my_path_ptr],y		; get char
		cmp	#':'			; is it a separator?
		bne	@loop			; no, so check next char

		rep	#$20			; back to full native
		longa	on
		sty	partial_len		; save partial path length
		
		lda	#afpGetFlDrParms	; do a GetFileDirParms
		jsr	StartPacket
		
		jsr	PutIDs			; copy VolID, DirID in
		
		lda	#$0000			; files: get nothing
		ldx	#$0001			; folders: get DirID
		jsr	PutLong
		
		jsr	PutPartPath		; put partial path in packet
		
		jsr	SendPacket
		bcc	@ok
		brl	err_parent		; convert file not found error
@ok
		jsr	StartReply		; begin processing result
		jsr	GetLong			; ignore bitmaps
		jsr	GetWord			; get file/dir flag
		and	#$0080			; is dir bit set?
		bne	@ok2
		brl	no_parent		; wasn't a directory!
@ok2
		jsr	GetLong			; get DirID
		sta	DirID			; save current DirID
		stx	DirID+2
		
		sec				; (add 1 for trailing separator)
		lda	my_path_ptr		; bump path pointer past parent
		adc	partial_len
		sta	my_path_ptr
		lda	my_path_ptr+2
		adc	#0
		sta	my_path_ptr+2
		
		clc				; (minus 1 for separator)
		lda	my_path_len		; path length becomes
		sbc	partial_len		; child only
		sta	my_path_len
child_only
		rep	#$20			; in case we branched from loop
		lda	my_path_len
		sta	partial_len		; partial path is child only
		
;------------------------------------------------------------
; If this is a Move, and the source and destination parents
; are the same, do a Rename instead (so that a file can
; be renamed to itself, useful for changing capitalization).
;------------------------------------------------------------
		lda	my_call_num
		cmp	#afpMove		; was it originally a Move?
		bne	not_rename		; no, so can't be a rename
		
		lda	src_dirid
		cmp	DirID			; do DirIDs match?
		bne	not_rename		; no, so really is a move
		lda	src_dirid+2
		cmp	DirID+2
		bne	not_rename
		bra	is_rename		; it really is a rename!
not_rename
		
;------------------------------------------------------------
; Build up the Move/CopyFile command packet
;------------------------------------------------------------
		lda	my_call_num		; get AFP command number
		jsr	StartPacket
		
		lda	src_volid
		jsr	PutWord
		
		lda	src_dirid
		ldx	src_dirid+2
		jsr	PutLong
		
		lda	same_vol_flag		; is a different dest vol ok?
		bmi	no_dest_vol		; no, so don't put one in
		lda	VolID
		jsr	PutWord
no_dest_vol

		lda	DirID			; parent of destination
		ldx	DirID+2
		jsr	PutLong
		
		lda	#afp_long
		jsr	PutByte
		ldx	#<src_name		; source child name
		ldy	#^src_name
		jsr	PutPString
		
		lda	#afp_long		; path type and null string
		jsr	PutWord			; for dest parent path
		
		jsr	PutPartPath		; put destination child in
		
		jsr	SendPacket		; try to do the call
exit
		jmp	main_exit		; return to caller

err_parent
		cmp	#file_not_found		; parent not found?
		bne	err_exit
no_parent
		lda	#path_not_found		; yes, then path not found
err_exit
		sec
		bcs	exit
		
bad_path
		sec
		lda	#invalid_path		; invalid paths for rename
		bcs	exit

no_access
		sec
		lda	#access_error		; can't rename root
		bcs	exit

is_rename
		lda	#afpRename		; build an FPRename call
		jsr	StartPacket
		
		jsr	PutIDs
		
		lda	#afp_long
		jsr	PutByte
		ldx	#<src_name		; source child name
		ldy	#^src_name
		jsr	PutPString
		
		jsr	PutPartPath		; put destination child in
		
		jsr	SendPacket		; try to do the call
		bra	exit			; return from call
		
		endwith				; with dp,mydata
		endp
		
		end

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/ClearBackup.aii b/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/ClearBackup.aii
new file mode 100644
index 0000000..a0a8a08
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/ClearBackup.aii
@@ -0,0 +1 @@
+;------------------------------------------------------------
;
; clear_backup
;
; This call takes a pathname and clears its backup bit.
;
; On entry:
;	Full native mode.
;
; On exit:
;	Full native mode.
;
; Modification history:
; 11-Jul-88	MSD	Started coding.
;
;------------------------------------------------------------

		load	'equates.dump'

		import	(PreProcess,main_exit,CheckParent):code
		import	proc_path1:code
		import	(StartPacket,SendPacket):code
		import	(PutWord,PutLong,PutByte):code
		import	(PutIDs,PutPath):code
		import	mydata:tdata

cb_bitmap	equ	$0100			; attributes only
cb_attr		equ	$4000			; clear backup bit

clear_backup	proc	export
		with	dp,mydata

		ProcName clear_backup
		
		jsr	PreProcess		; validate parameters
		
		jsr	proc_path1		; parse pathname
		bcs	exit
		
		lda	#afpSetFlDrParms	; ready to send FPSetFileDirParms
		jsr	StartPacket

		jsr	PutIDs			; put VolID and DirID in

		lda	#cb_bitmap		; bitmap: attributes only
		jsr	PutWord
		
		sec				; alignment after path
		jsr	PutPath			; put partial path in packet

		lda	#cb_attr		; clear backup bit
		jsr	PutWord

		jsr	SendPacket		; shoot it out the door
		jsr	CheckParent		; check for path not found
exit
		jmp	main_exit		; return to caller

		endwith
		endp
		end

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/Close.aii b/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/Close.aii
new file mode 100644
index 0000000..f2d354d
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/Close.aii
@@ -0,0 +1 @@
+;------------------------------------------------------------
; Close
;
; This call takes a file reference number and closes the
; associated file or directory.
;
; On entry:
;	Full native mode.
;
; On exit:
;	Full native mode.
;
; Modification history:
; 21-Jul-88	MSD	Started coding.
; 17-Aug-88	MSD	Always removes FCR, even on error
;			(I can't recover from an error!)
;
;------------------------------------------------------------

		load	'equates.dump'

		import	(PreProcess,main_exit):code
		import	(StartPacket,SendPacket):code
		import	PutWord:code
		import	do_flush:code
		import	delclient:code
		import	mydata:tdata

		entry	remove_fcr:code
		entry	set_eject:code

close		proc	export
		with	dp,mydata

		ProcName close
		
		jsr	PreProcess		; setup for call

		stz	my_error		; assume no errors

;------------------------------------------------------------
; First thing to do is make sure data files are flushed.
;------------------------------------------------------------
		jsr	do_flush		; flush any data
		bcc	do_close		; continue if no error
		sta	my_error		; save any error
do_close
;------------------------------------------------------------
; If this is a file, issue an FPClose command
;------------------------------------------------------------
		ldy	#fcr.dirflag
		lda	[my_fcr_ptr],y		; is this a file?
		bmi	not_file		; skip for directories

		lda	#afpForkClose		; FPCloseFork command
		jsr	StartPacket
		
		ldy	#fcr.forkrefnum
		lda	[my_fcr_ptr],y		; get AFP's fork refnum
		jsr	PutWord			; and put it in packet
		
		jsr	SendPacket
		bcc	closed			; continue if no error
		sta	my_error		; save any error
		bra	closed			; skip directory stuff
not_file
		bit	#fcr_is_root		; should we turn off vol mod events?
		beq	closed			; no, since this isn't a root
		jsr	delclient		; one less event client
closed
		jsr	remove_fcr		; get rid of the FCR
		bcc	exit			; continue if no error
		sta	my_error		; save any error
exit
		lda	my_error		; get any saved error
		cmp	#1			; set carry if error
		jmp	main_exit

		endwith				; with dp
		endp

;------------------------------------------------------------
; Remove_FCR
;
; This routine does the work of removing an open FCR.  It
; decrements the volume's open file count and calls the
; Release_FCR system service routine.
;
; On entry:
;	Full native mode.
;	(Assumes my_fcr_ptr and my_vcr_ptr have been set up)
;
; On exit:
;	c = 0 (no error possible)
;
;------------------------------------------------------------
remove_fcr	proc	export
		with	dp,mydata

		ProcName remove_fcr
		
		ldy	#vcr.open_cnt
		lda	[my_vcr_ptr],y		; get volume's open count
		dea				; minus 1
		bmi	very_sick		; if negative, we're dead!
		sta	[my_vcr_ptr],y		; update open count
		bne	@continue		; files still open, continue

;------------------------------------------------------------
; Here, we closed the last file on the volume.  Mark the
; volume as ejectable.
;------------------------------------------------------------
		lda	#0			; ejectable
		jsr	set_eject		; set it for driver
@continue
		lda	[my_fcr_ptr]		; get file refnum
		jsl	Release_FCR		; be free and happy

		rts
		
;------------------------------------------------------------
; If we get here, a VCR's open count went negative.  If this
; happens, the system must be very sick, so do system death.
;------------------------------------------------------------
very_sick
		lda	#vcr_unusable		; the VCR is messed up
		jml	Sys_Death		; bury 'em

		endwith				; with dp
		endp

;------------------------------------------------------------
; Set_Eject
;
; Sets the eject status of the current volume to the value
; passed as input.
;
; On entry:
;	my_vcr_ptr	points to VCR for volume whose status
;			is to be modified
;	A		new eject flag
;
;------------------------------------------------------------
set_eject	proc	export
		with	dp,mydata

		ProcName set_eject
		
		sta	[gbuf_ptr]		; save eject flag
		ldy	#vcr.dev
		lda	[my_vcr_ptr],y		; get device number
		sta	dev_num
		lda	#6			; Control call
		sta	dev_callnum
		lda	gbuf_ptr		; low word of address
		sta	dev_buff
		stz	dev_buff+2		; always in bank 0!
		lda	#2			; only setting 2 bytes
		sta	dev_req_cnt
		lda	#$8002			; set eject status
		sta	dev_ctl_code

		jsl	Dev_Dispatcher		; go make the call
		rts
		
		endwith
		endp
		
		end

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/Create.aii b/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/Create.aii
new file mode 100644
index 0000000..035af59
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/Create.aii
@@ -0,0 +1 @@
+;------------------------------------------------------------
;
; Create
;
; This call creates a file or directory.  Some ProDOS info
; can also be set at create time (access rights, filetype
; and auxtype, for example).
;
; Class 1: data EOF and resource EOF are ignored (since
; there is no way I can reserve the storage space and keep
; the EOF's at 0).
;
; On entry:
;	Full native mode.
;
; On exit:
;	Full native mode.
;
; Modification history:
; 12-Jul-88	MSD	Started coding.
; 15-Aug-88	MSD	Com_set_info moved to setinfo.aii
;			since it is not used by Create.
; 29-Aug-88	MSD	If filetype = $0F and storage type
;			not given, assume storage type = $0D
;			(for directories).
;  1-Sep-88	MSD	Create with volume name gets invalid
;			pathname error.
; 10-Nov-88	MSD	Storage type of $8005 means to add a
;			resource fork to existing file, or
;			create extended file.
;  8-Feb-89	MSD	Fixed problem in converting class 0
;			create date/time.  Storage type $0D
;			forces filetype $0F, auxtype $0000.
; 12-Nov-90	MSD	Create of a directory now sets default
;			privileges, owner name, group name.
; 26-Sep-91	MSD	Change to use new format for default
;			privileges.
; 30-Jan-92	MSD	Due to the date/time routines now supporting
;			dates after the year 2000, I can no longer use
;			all-zeroes for an AFP date as a "no date given"
;			flag.  Class 0 Create only sets the create date
;			if a non-zero one was given.  Class 1 never sets
;			the create date.
;------------------------------------------------------------

		load	'equates.dump'

		import	(PreProcess,main_exit,CheckParent):code
		import	proc_path1:code
		import	(StartPacket,SendPacket):code
		import	(PutWord,PutLong,PutByte):code
		import	(PutPath,PutIDs,PutBlock):code
		import	PutPString:code
		import	(StartReply,GetWord,GetLong):code
		import	convert_access:code
		import	time_pro_afp:code
		import	com_set_info:code
		import	mydata:tdata

;------------------------------------------------------------
; Format of Create parameter list
;------------------------------------------------------------
p		record	0
		ds.l	1			; pointer to pathname
access		ds.w	1
filetype	ds.w	1
auxtype		ds.l	1
store_type	ds.w	1
cr_date		ds.l	1			; class 0 only: create date/time
		endr

;------------------------------------------------------------
; bitmaps for SetFileDirParms
;------------------------------------------------------------
set_pdos	equ	$0020			; set ProDOS info
set_attr	equ	$0100			; set attributes
set_cr_date	equ	$0400			; set create date/time
create_bits	equ	set_pdos+set_attr	; 30-Jan-92 MSD: removed +set_cr_date

create		proc	export
		with	dp,mydata

		ProcName create
		
;
; First off, set up the default parameters for class 1
;
; 30-Jan-92 MSD: Don't need to initialize date vars because they will be assigned
; only if they were supplied.  Otherwise, they won't get transmitted anyway.
;
;		stz	my_cr_date		; default: current time
;		stz	my_cr_date+2
;		stz	my_mod_date		; force mod date to current
;		stz	my_mod_date+2		; date and time
		stz	my_store_type		; default: file
		stz	my_filetype		; filetype = 0
		stz	my_auxtype		; auxtype = 0
		stz	my_auxtype+2
		lda	#$E3			; full access
		sta	my_access
		
		lda	#create_bits		; 30-Jan-92 MSD:
		sta	my_bitmap		; set default parameters to set
		
		jsr	PreProcess		; check parameters

		lda	class			; class 0?
		bne	class1pcnt

		lda	#5			; class 0 shares first
		sta	pcount			; 5 parms with class 1
;
; For class 0, get create date/time supplied by user.
;
		ldy	#p.cr_date
		lda	[my_pb_ptr],y		; get ProDOS create date/time
		sta	my_date_pro
		iny
		iny
		lda	[my_pb_ptr],y
		sta	my_date_pro+2
						; 30-Jan-92 MSD:
		ora	my_date_pro		; was a valid date supplied?
		beq	class1pcnt		; no, so don't set date
		lda	#set_cr_date		; cause create date to be set
		tsb	my_bitmap		; 30-Jan-92 MSD
		
		jsr	time_pro_afp		; convert to AFP format
		bcs	go_exit			; exit if error in date/time
		
		lda	my_date_afp+2
		xba
		sta	my_cr_date
		lda	my_date_afp		; save AFP format create date/time
		xba
		sta	my_cr_date+2

class1pcnt
		dec	pcount			; down 1 for filename
		beq	doit			; if that's all, do it
;
; Now replace default values with user-supplied ones (if any)
;
		ldy	#p.access
		lda	[my_pb_ptr],y		; get access word
		sta	my_access		; save user's access
		jsr	convert_access
		bcc	ok_access
go_exit		brl	exit			; return error if any
ok_access
		dec	pcount			; is that all?
		beq	doit
		
		iny				; point to filetype
		iny
		lda	[my_pb_ptr],y		; get filetype
		bit	#$FF00			; high byte must be 0
		bne	go_do_parm_err
		sta	my_filetype		; save user's filetype
		cmp	#$0F			; directory filetype?
		bne	not_dir			; no, don't bother
		lda	#$0D			; gotta use directory storage type
		sta	my_store_type
not_dir
		dec	pcount
		beq	doit

		ldy	#p.auxtype+2
		lda	[my_pb_ptr],y		; get auxtype high word
go_do_parm_err	beq	@ok_aux
		brl	do_parm_err
@ok_aux
		dey
		dey				; point to auxtype
		lda	[my_pb_ptr],y
		sta	my_auxtype		; save user's auxtype
		dec	pcount
		beq	doit
		
		ldy	#p.store_type
		lda	[my_pb_ptr],y		; get storage type
		cmp	#$D			; directory?
		beq	ok_store		; its OK
		cmp	#5			; extended?
		beq	ok_store		; its OK
		cmp	#$8005			; extend (add resource fork)?
		beq	ok_store
		cmp	#4			; 0-3 (file)?
		bge	do_parm_err
		lda	#1			; force a seedling
		sta	[my_pb_ptr],y		; return type created
ok_store
		sta	my_store_type
;		dec	pcount			; don't need -- this is last parm
;		beq	doit			; 30-Jan-92 MSD

;
; Currently I don't care what the EOF and resource EOF are given
; since I can't allocate space anyway (since the actual EOF must
; be set to 0).
;
doit
;
; If the storage type was directory, force filetype and auxtype
;
		lda	my_store_type
		cmp	#$D			; is it a directory?
		bne	@not_dir		; no, don't change type
		
		lda	#$F			; directory file type
		sta	my_filetype
		stz	my_auxtype		; force zero auxtype
		stz	my_auxtype+2
@not_dir
		jsr	convert_access		; my_access => attributes
		stz	attributes		; attributes are created clear!
		
		jsr	proc_path1		; parse pathname
		bcs	exit
		
;------------------------------------------------------------
; Check for volume name only given.  If so, return with an
; invalid pathname error.
;------------------------------------------------------------
		lda	volume_sep		; volume only?
		bne	not_volume
		sec
		lda	#invalid_path		; volume only is not valid
		bcs	exit			; return the error.

not_volume
; get appropriate create command in A
		ldx	my_store_type		; get storage type
		lda	#afpFileCreate		; assume file creation
		cpx	#$D			; was it a directory?
		bne	ok_create
		dea				; change A to afpDirCreate
ok_create
		jsr	StartPacket

		jsr	PutIDs			; copy VolID, DirID to packet

		sec				; force alignment
		jsr	PutPath			; put partial path in packet
		
		jsr	SendPacket		; shoot it out the door
		jsr	CheckParent		; check for path not found
		cmp	#dup_path		; does file already exist?
		beq	extend			; if so, see if they want to extend it
		cmp	#1			; set carry if error
		bcs	exit			; return if error

		lda	my_bitmap		; 30-Jan-92 MSD: set only what was supplied
		jsr	com_set_info		; send out SetFileDirParms
		bcs	exit			; return any error
		
;------------------------------------------------------------
; If a directory was created, see if I need to set any default
; access privileges.
;------------------------------------------------------------
		lda	my_store_type
		cmp	#$D			; directory?
		bne	ok_exit			; not a directory, so skip
		
		lda	def_flags		; anything to change?
		and	#fSetMask		; test just the defined bits
		beq	ok_exit			; no, so just return

		jsr	set_def_privs		; set default privileges
ok_exit
		clc
		lda	#0			; no error
exit
		jmp	main_exit
do_parm_err
		lda	#invalid_parm
		sec
		bcs	exit
do_dup_path
		lda	#dup_path
		sec
		bcs	exit
err_dir
		lda	#res_add_err		; can't add resource fork to dir.
		sec
		bcs	exit
err_extended
		lda	#resource_exist		; file is already extended
		sec
		bcs	exit

extend
		lda	my_store_type		; did they want to extend file?
		bpl	do_dup_path		; if not, return duplicate path error
		
;------------------------------------------------------------
; Now get file info to make sure it is a file, and without
; a resource fork.
;------------------------------------------------------------
		lda	#afpGetFlDrParms
		jsr	StartPacket
		
		jsr	PutIDs
		
		lda	#$0004			; resource fork length
		jsr	PutWord
		
		lda	#$0000			; no info for directories
		jsr	PutWord
		
		clc				; no alignment on pathname
		jsr	PutPath			; tell 'em what file
		
		jsr	SendPacket
		jsr	CheckParent		; normally, file DOES exist!
		bcs	exit			; file disappeared???
		
		jsr	StartReply
		
		jsr	GetLong			; ignore bitmaps
		
		jsr	GetWord			; get file/dir flag
		and	#$0080			; is it a directory?
		bne	err_dir			; can't extend directory!
		
		jsr	GetLong			; get resource fork length
		stx	math_temp
		ora	math_temp		; resource fork length = 0?
		bne	err_extended		; it is already extended!
		
		brl	ok_exit			; pretend file got extended
		

;--------------------------------------------------------------------------------
; Here is the subroutine that actually sets the default privileges for folders.
;--------------------------------------------------------------------------------
set_def_privs

;------------------------------------------------------------
; Find group ID, then owner ID, then change rights
;------------------------------------------------------------
		stz	my_bitmap
		
		lda	def_flags
		and	#fSetRights		; setting rights?
		beq	try_group		; no, check group name
		
		lda	#$0010			; change access rights
		tsb	my_bitmap
		
;------------------------------------------------------------
; Change Group Name.  If I can determine the Group ID, then
; save it and add its bit to the AFP bitmap.  If no match,
; then ignore the error, and don't change group.
;------------------------------------------------------------
try_group
		lda	def_flags
		and	#fSetGroup		; changing group name?
		beq	try_owner
		
		lda	#afpMapGroupName
		jsr	StartPacket

		ldx	#<def_group		; point to group PString
		ldy	#^def_group
		jsr	PutPString		; put group in packet
		
		jsr	SendPacket		; do the call
		bcs	try_owner		; bad group, ignore
		
		jsr	StartReply
		jsr	GetLong			; get the Group ID
		sta	my_group_id		; and save it off
		stx	my_group_id+2

		lda	#$0008			; group name bit
		tsb	my_bitmap		; changing group

;------------------------------------------------------------
; Change Owner Name.  If I can determine the User ID, then
; save it and add its bit to the AFP bitmap.  If no match,
; then ignore the error, and don't change owner.
;------------------------------------------------------------
try_owner
		lda	def_flags		; anything to change?
		and	#fSetOwner		; changing owner name?
		beq	no_owner
		
		lda	#afpMapUserName
		jsr	StartPacket

		ldx	#<def_owner		; point to owner PString
		ldy	#^def_owner
		jsr	PutPString		; put owner in packet
		
		jsr	SendPacket		; do the call
		bcs	no_owner		; bad owner, ignore
		
		jsr	StartReply
		jsr	GetLong			; get the User ID
		sta	my_user_id		; and save it off
		stx	my_user_id+2

		lda	#$0004			; owner name bit
		tsb	my_bitmap		; changing owner
no_owner
;------------------------------------------------------------
; Make the FPSetDirParms call.
;------------------------------------------------------------
		lda	#afpSetDirParms
		jsr	StartPacket
		
		jsr	PutIDs
		
		lda	my_bitmap
		jsr	PutWord
		
		sec				; pad after pathname
		jsr	PutPath
		
		lda	my_bitmap
		and	#$0004			; setting the owner?
		beq	skip_owner		; if not, don't put in packet
		
		lda	my_user_id
		ldx	my_user_id+2
		jsr	PutLong			; put user ID in packet
skip_owner
		lda	my_bitmap
		and	#$0008			; setting group?
		beq	skip_group
		
		lda	my_group_id
		ldx	my_group_id+2
		jsr	PutLong			; put group ID in packet
skip_group
		lda	my_bitmap
		and	#$0010			; setting rights?
		beq	skip_rights
		
		ldx	def_access+2		; get group and owner bytes
		lda	def_access		; get summary and world
		jsr	PutLong			; put access bytes in
skip_rights
		jsr	SendPacket		; send it out
		jsr	CheckParent		; check for path not found
		rts				; return any error

		endwith				; with dp,mydata
		endp


		end

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/Data.aii b/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/Data.aii
new file mode 100644
index 0000000..8859e2f
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/Data.aii
@@ -0,0 +1 @@
+;--------------------------------------------------
; File: data.aii
;
; This file contains global static data for use
; by the FST.  Identifiers should be exported in
; order to be used.
;--------------------------------------------------

		load	'equates.dump'

		IF DebugCode THEN
data_header	dc.b	'AS FST Data'
		ENDIF
		
mydata		record	export

		ds	tdata

		IF DebugCode THEN
		export	debug_dp:data
;
; The following data is for debugging only:
;
		dc.b	'AS FST Debug dp'
debug_dp	ds.b	256		; debug copy of direct page
		ENDIF

		endr

;--------------------------------------------------
; This is the parameter list for the SPWrite call
; which is used by the Write call.
;--------------------------------------------------
SPWrite		record	export
		ds	tSPWrite
		endr
		
;--------------------------------------------------
; This is the parameter list for the SPCommand call
; which is used to send out an AFP command.
;--------------------------------------------------
SPCommand	record	export
		ds	tSPCommand
		endr
		
;--------------------------------------------------
; This is the parameter list for GetSVersion.
;--------------------------------------------------
GetSVersion	record	export
		ds	tGetVersion
		endr


;--------------------------------------------------
; This table specifies the filetype conversions
; that supercede AppleShare 2.0.  It is a word of
; ProDOS filetype, a word of ProDOS auxtype and a
; long of HFS type, and a long of HFS creator.  If
; the HFS creator is $FFFFFFFF, it matches anything
; on hfs2pdos, and pdos2hfs will set creator to
; 'pdos'.
;--------------------------------------------------

		macro
&lab		ftype	&type,&aux,&hfs,&creator=$FFFFFFFF
&lab		dc.w	&type,&aux
		dc.l	&hfs,&creator
		endm
		
FileTypes	record	export
		export	NumFileTypes:equ
		
		ftype	$D7,$0000,'MIDI'
		ftype	$D8,$0000,'AIFF'
		ftype	$D8,$0001,'AIFC'
		ftype	$E0,$0005,'dImg','dCpy'
		
NumFileTypes	equ	(*-FileTypes)/12	; number of entries in table

		endr
		
		end

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/Destroy.aii b/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/Destroy.aii
new file mode 100644
index 0000000..e6e7415
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/Destroy.aii
@@ -0,0 +1 @@
+;------------------------------------------------------------
;
; Destroy
;
; This call takes a pathname and removes that file.
;
; On entry:
;	Full native mode.
;
; On exit:
;	Full native mode.
;
; Modification history:
; 11-Jul-88	MSD	Started coding.  Only parses pathname.
; 12-Jul-88	MSD	It works (32 byte directory names
;			seem to return a parameter error).
;  1-Sep-88	MSD	Destroy of volume only should return
;			an access error.
;------------------------------------------------------------

		load	'equates.dump'

		import	(PreProcess,main_exit,CheckParent):code
		import	proc_path1:code
		import	(StartPacket,SendPacket):code
		import	(PutWord,PutLong,PutByte):code
		import	(PutIDs,PutPath):code
		import	mydata:tdata

destroy		proc	export
		with	dp,mydata

		ProcName destroy
		
		jsr	PreProcess		; validate parameters
		
		jsr	proc_path1		; parse pathname
		bcs	exit

;------------------------------------------------------------
; Return access error if they try to destroy a volume.
;------------------------------------------------------------
		lda	volume_sep		; volume only given?
		bne	not_volume		; if not, continue
		sec
		lda	#access_error		; volume only is invalid
		bcs	exit

not_volume
		lda	#afpDelete		; ready to send FPDelete
		jsr	StartPacket

		jsr	PutIDs			; put VolID and DirID in
		
		clc				; no alignment after path
		jsr	PutPath			; put partial path in packet
		
		jsr	SendPacket		; shoot it out the door
		jsr	CheckParent		; check for path not found
exit
		jmp	main_exit		; return to caller

		endwith				; with dp,mydata
		endp
		end

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/EOF.aii b/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/EOF.aii
new file mode 100644
index 0000000..6cc0b4b
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/EOF.aii
@@ -0,0 +1 @@
+;------------------------------------------------------------
; File: eof.aii
;
; This file contains the code for the Set_EOF and Get_EOF
; calls.  It also contains the code for the get_disp routine
; which converts a base/displacement to an absolute offset
; for class 1 Set_Mark and Set_EOF.
;
;------------------------------------------------------------

		load	'equates.dump'

		import	(PreProcess,main_exit):code
		import	(StartPacket,SendPacket):code
		import	PutWord:code
		import	(StartReply,GetWord):code
		import	do_flush:code
		import	mydata:tdata
		
		entry	(get_the_eof,get_disp):code

;------------------------------------------------------------
; Structure of parameter lists
;------------------------------------------------------------
p		record	0
		ds.w	1		; file reference number
position	ds.l	1		; EOF for Get_EOF and Set_EOF(0)
		org	position
base		ds.w	1		; base for Set_EOF(1)
disp		ds.l	1		; displacement for Set_EOF(1)
		endr


;------------------------------------------------------------
; Get_EOF
;
; This call takes a file reference number and returns the
; current end of file (EOF).  This value is obtained directly
; from the server, and not the workstation's idea of the EOF.
;
; On entry:
;	Full native mode.
;
; On exit:
;	Full native mode.
;
; Modification history:
; 25-Jul-88	MSD	Started coding.
;
;------------------------------------------------------------

get_eof		proc	export
		with	dp

		ProcName get_eof
		
		jsr	PreProcess		; validate the call

		jsr	do_flush		; write data, update EOF
		bcs	exit

		jsr	get_the_eof		; do the real work
		bcs	exit			; return any error

		ldy	#p.position+2
		sta	[my_pb_ptr],y		; return high word
		txa				; get low word
		dey
		dey
		sta	[my_pb_ptr],y		; return low word

		clc				; no errors
		lda	#0
exit
		jmp	main_exit		; done with call

		endwith				; with dp
		endp


;------------------------------------------------------------
; Set_EOF
;
; This call takes a file reference number and an end of file.
; The fork's length is set to the given EOF.
;
; On entry:
;	Full native mode.
;
; On exit:
;	Full native mode.
;
; Modification history:
; 25-Jul-88	MSD	Started coding.
;  8-Sep-88	MSD	Don't allow an EOF < mark.
; 16-Sep-88	MSD	Return any errors from get_disp.
; 13-Feb-89	MSD	It is legal to set the mark less than
;			the current EOF.  In this case, the
;			mark is also set to the new EOF.
;
;------------------------------------------------------------
set_eof		proc	export
		with	dp,mydata

		ProcName set_eof
		
		jsr	PreProcess		; validate the call

		jsr	do_flush		; write data, update EOF
		bcs	exit

		jsr	get_disp		; base/displacement => mark
		bcs	exit			; return any errors

		sta	math_temp+2		; save EOF for packet
		stx	math_temp

		jsr	do_flush		; make sure unwritten data goes out
		bcs	exit

		ldy	#fcr.mark		; compare against low word first
		lda	math_temp		; get low word first
		cmp	[my_fcr_ptr],y		; fake a subtract
		iny
		iny
		lda	math_temp+2		; now compare high word
		sbc	[my_fcr_ptr],y
		bge	ok_mark			; continue if mark <= EOF

		lda	math_temp+2
		sta	[my_fcr_ptr],y		; update mark (high)
		dey
		dey
		lda	math_temp
		sta	[my_fcr_ptr],y		; update mark (low)
ok_mark
		ldy	#fcr.flags
		lda	[my_fcr_ptr],y
		and	#Åbuffer_valid		; don't use buffered data anymore
		sta	[my_fcr_ptr],y

		lda	#afpSetForkParms
		jsr	StartPacket		; start up the packet

		ldy	#fcr.forkrefnum
		lda	[my_fcr_ptr],y		; get AFP's refnum for file
		jsr	PutWord
		
		lda	my_fork_bitmap		; tell which fork this is for
		jsr	PutWord
		
		lda	math_temp+2		; get high word
		xba				; high-low byte order
		jsr	PutWord			; put high word in packet
		lda	math_temp		; get low word
		xba				; high-low byte order
		jsr	PutWord			; put low word in packet

		jsr	SendPacket
exit
		jmp	main_exit		; return any errors
do_bad_pos
		sec
		lda	#bad_pos		; position out of range
		bcs	exit			; return the error

		endwith				; with dp
		endp


;------------------------------------------------------------
; Get_The_EOF
;
; This routine does the real work of finding an open file's
; current EOF.
;
; On entry:
;	Full native mode.
;	(assumes PreProcess has been called to set up FCR)
;
; On exit:
;	Full native mode.
;	X = EOF (low word)
;	A = EOF (high word)
;	c = 1 => error (A = error code)
;
; Modification history:
; 25-Jul-88	MSD	Started coding.
;
;------------------------------------------------------------

get_the_eof	proc	export
		with	dp,mydata

		ProcName get_the_eof
		
		lda	#afpGetForkParms
		jsr	StartPacket		; start up the packet

		ldy	#fcr.forkrefnum
		lda	[my_fcr_ptr],y		; get AFP's refnum for file
		jsr	PutWord
		
		lda	my_fork_bitmap		; tell which fork this is for
		jsr	PutWord

		jsr	SendPacket		; send it off
		bcs	exit			; return any error

		jsr	StartReply		; prepare to process reply packet
		jsr	GetWord			; ignore bitmap returned
		
		jsr	GetWord			; get EOF high word
		xba				; low-high byte order
		pha				; save for later
		jsr	GetWord			; get EOF low word
		xba				; low-high byte order
		sta	cur_eof			; save EOF on direct page
		tax				; returned in X
		pla				; high word returned in A
		sta	cur_eof+2		; save high word of EOF
		clc				; no errors

exit
		rts				; return any errors to caller

		endwith				; with dp
		endp


;------------------------------------------------------------
; Get_Disp
;
; This routine takes a base/displacement pair and turns it
; into an absolute offset into the file for use by class 1
; Set_EOF and Set_Mark calls.  It is included in this file
; because it may need to determine the EOF from the server
; if the base is $0001 (EOF-displacement).
;
; On entry:
;	Full native mode.
;
; On exit:
;	Full native mode.
;	X = offset (low word)
;	A = offset (high word)
;	c = 1 => error (A = error code)
;
; Modification history:
; 25-Jul-88	MSD	Started coding.
;  8-Sep-88	MSD	Now includes class 0 positions.  The
;			EOF is always determined and saved in
;			the FCR.
; 16-Sep-88	MSD	Check for underflow or overflow on all
;			relative displacement modes.
;
;------------------------------------------------------------

get_disp	proc	export
		with	dp,mydata

		ProcName get_disp
		
;------------------------------------------------------------
; Get the file's current EOF and save it off.
;------------------------------------------------------------
		jsr	get_the_eof		; find file's EOF
		bcc	got_eof
		brl	exit			; return any error
got_eof
;------------------------------------------------------------
; If class 0, new position is given in p.position field.
; If class 1, we need to calculate the base/displacement.
;------------------------------------------------------------
		lda	class			; class 0?
		bne	class1

		ldy	#p.position
		lda	[my_pb_ptr],y		; get low word of position
		tax				; save in X
		iny
		iny
		lda	[my_pb_ptr],y		; get high word
		bra	return_disp		; go return it

class1

		ldy	#p.base
		lda	[my_pb_ptr],y		; get base field
		bne	not_base_0		; is it base=0?

		ldy	#p.disp			; base = 0 =>
		lda	[my_pb_ptr],y		; offset := displacement
		tax
		iny
		iny
		lda	[my_pb_ptr],y
		bra	return_disp		; return A,X

not_base_0
		dea				; is it base=1?
		bne	not_base_1

;------------------------------------------------------------
; Base = 1.  Offset := EOF - displacement.  This requires
; a network call to get the actual EOF.
;------------------------------------------------------------
		ldy	#p.disp			; point to displacement field
		sec				; prepare to subtract
		lda	cur_eof			; get low word
		sbc	[my_pb_ptr],y		; subtract displacement
		tax				; save low word
		lda	cur_eof+2		; get high word
		iny
		iny				; point to disp (high word)
		sbc	[my_pb_ptr],y
		bcc	do_bad_pos		; borrow => error
		bcs	return_disp

not_base_1
		dea				; base=2?
		bne	not_base_2

;------------------------------------------------------------
; Base = 2.  Offset := Mark + displacement.
;------------------------------------------------------------
		ldy	#fcr.mark
		lda	[my_fcr_ptr],y		; copy mark to math_temp
		sta	math_temp
		iny
		iny
		lda	[my_fcr_ptr],y
		sta	math_temp+2
		
		ldy	#p.disp
		clc
		lda	[my_pb_ptr],y		; get displacement
		adc	math_temp		; plus mark
		tax				; save low word
		iny
		iny
		lda	[my_pb_ptr],y
		adc	math_temp+2		; add high word
		bcs	do_bad_pos		; error if overflow
		bra	return_disp		; return OK
		
not_base_2
		dea				; base=3?
		bne	invalid_base		; >3 is not valid!

;------------------------------------------------------------
; Base = 3.  Offset := Mark - displacement.
;------------------------------------------------------------
		ldy	#fcr.mark
		lda	[my_fcr_ptr],y		; copy mark to math_temp
		sta	math_temp
		iny
		iny
		lda	[my_fcr_ptr],y
		sta	math_temp+2
		
		ldy	#p.disp
		sec				; base=3 => mark-displacement
		lda	math_temp		;   mark
		sbc	[my_pb_ptr],y		;   - displacement
		tax				; save low word
		iny
		iny
		lda	math_temp+2
		sbc	[my_pb_ptr],y
		bcc	do_bad_pos		; error if underflow (borrow)

return_disp
		clc				; no error here
exit
		rts

invalid_base
		lda	#invalid_parm		; base is invalid parameter
		sec
		bcs	exit

do_bad_pos
		lda	#bad_pos		; position out of range
		sec
		bcs	exit

		endwith				; with dp
		endp

		end

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/Equates.aii b/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/Equates.aii
new file mode 100644
index 0000000..03e8384
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/Equates.aii
@@ -0,0 +1 @@
+;------------------------------------------------------------
; File: Equates.aii
;
; Copyright Apple Computer, Inc 1988-93
; All Rights Reserved
;
; This file creates an equate dump file
; containing all the equates.
;
; Modification history:
;  8-Sep-88	MSD	Added EOF field for files in FCR.
;  9-Sep-88	MSD	DebugCode set to 1 if not defined
;			on command line at assemble time.
; 30-Sep-88	MSD	Changed the FCR structure to support
;			buffering of files.
;
; 12-Nov-90	MSD	Added new fields to support default
;			privileges for folders.
;
; 28-Jan-91	MSD	Turned debugging back on by default
;			and add a macro to generate Nifty
;			List compatible procedure headers.
;
; 15-Mar-91	MSD	Added a variable other_fst which will
;			be set by FindVol if there was a VCR
;			for the same volume name owned by
;			another FST.
; 17-Jun-91	MSD	For debugging, moved the device number
;			to the end of the VolRec.
; 18-Dec-91	MSD	Added equates max_filename and
;			max_volname.  Added variable my_span.
; 21-Jan-93	DAL	Added dib_slotnum.
;------------------------------------------------------------

;------------------------------------------------------------
; DebugCode: This flag controls the assembly of debugging
; code and data structures.  It can be controlled in 3 ways.
; The highest priority is a define on the command line.  The
; next is the value of the shell variable "MSDDebugFlag".
; Last is the value assigned below.
;------------------------------------------------------------

		if &trim(&type('DebugCode')) = 'UNDEFINED' then
		if &trim(&getenv('MSDDebugFlag')) = '' then
DebugCode	equ	0
		else
DebugCode	equ	&eval(&getenv('MSDDebugFlag'))
		endif
		endif

;------------------------------------------------------------
; The following flag controlls the conditional assembly of
; AFP++ code and data structures.
;------------------------------------------------------------

		if &trim(&type('AFPnew')) = 'UNDEFINED' then
AFPnew		equ	1
		endif

;
; GS/OS error codes:
;
bad_call_num	equ	$01			; call number out of range
bad_pcount	equ	$04			; bad parameter count (class>0)
prodos_busy	equ	$07			; ProDOS is busy
dev_not_found	equ	$10			; device not found
inval_dev_num	equ	$11			; invalid device number
int_vec_full	equ	$25			; interrupt vector table full
io_error	equ	$27			; general I/O error
no_dev_err	equ	$28			; no device connected
write_protected	equ	$2B			; disk write protected
disk_switched	equ	$2E			; media was switched
offline_error	equ	$2F			; media not on line
invalid_path	equ	$40			; invalid pathname syntax
inval_refnum	equ	$43			; invalid reference number
path_not_found	equ	$44			; a directory component not found
vol_not_found	equ	$45			; volume component not found
file_not_found	equ	$46			; filename component not found
dup_path	equ	$47			; duplicate pathname
vol_full	equ	$48			; volume full (no free blocks)
vol_dir_full	equ	$49			; volume directory full
version_error	equ	$4A			; incompatible version
bad_store_type	equ	$4B			; bad storage type
eof_error	equ	$4C			; End Of File encountered
bad_pos		equ	$4D			; position out of range
access_error	equ	$4E			; access denied
buffer_small	equ	$4F			; buffer too small
file_open	equ	$50			; file is open error
bad_vol_type	equ	$52			; bad volume type (not recognized)
invalid_parm	equ	$53			; invalid parameter
dup_vol		equ	$57			; duplicate volume
not_block_dev	equ	$58			; not a block device
bad_level	equ	$59			; bad file level
bad_block_num	equ	$5A			; bad block number
bad_file_sys	equ	$5D			; bad file_sys_id (Format)
data_unavail	equ	$60			; data unavailable (GetLastDev)
end_of_dir	equ	$61			; end of directory (GetDirEntry)
bad_class	equ	$62			; invalid call class
res_not_found	equ	$63			; required resource not found
resource_exist	equ	$70			; resource fork already exists		
res_add_err	equ	$71			; can't add res. fork to this type file
user_not_found	equ	$7E			; user name not recognized
group_not_found	equ	$7F			; group name not recognized

;
; System Death error codes
;
;unclaimed_int	equ	$0001			; unclaimed interrupt
vcr_unusable	equ	$000A			; VCR is unusable/inconsistent
fcr_unusable	equ	$000B			; FCR is unusable/inconsistent
;blk_0_alloc	equ	$000C			; block 0 allocated illegally
;unshadow_int	equ	$000D			; interrupt with I/O shadowing off

;
; Misc. addresses
;
QtrVector	equ	$E1104A			; what 1/4 sec handler calls
warm_cold_flag	equ	$e101d0			;word:	0=cold startup/shutdown,
						;	1=warm startup/shutdown

;
; Equates for System Service calls
;
Dev_Dispatcher	equ	$01FC00
Alloc_Seg	equ	$01FC1C
Release_Seg	equ	$01FC20
Alloc_VCR	equ	$01FC24
Release_VCR	equ	$01FC28
Alloc_FCR	equ	$01FC2C
Release_FCR	equ	$01FC30
Deref		equ	$01FC38
Get_Sys_GBuf	equ	$01FC3C
Sys_Exit	equ	$01FC40
Sys_Death	equ	$01FC44
Find_VCR	equ	$01FC48
Find_FCR	equ	$01FC4C
Rename_VCR	equ	$01FC58
Rename_FCR	equ	$01FC5C
Get_VCR		equ	$01FC60
Get_FCR		equ	$01FC64
Lock_Mem	equ	$01FC68
Unlock_Mem	equ	$01FC6C
Move_Info	equ	$01FC70
cvt_0_to_1	equ	$01FC74
cvt_1_to_0	equ	$01FC78
report_error	equ	$01FC94
get_boot_pfx	equ	$01FCAC		; get boot (*) prefix
set_boot_pfx	equ	$01FCB0		; set boot (*) prefix
parse_path	equ	$01FCC0
os_event	equ	$01FCC4
init_parse_path	equ	$01FCD4		;initialize for parse_path.


;
; Event codes for os_event
;
volmod_event	equ	$0040		; event code for volume modified
disk_in_event	equ	$0008		; disk inserted event

;
; Driver command codes
;
drvr_startup	equ	0
drvr_open	equ	1
drvr_read	equ	2
drvr_write	equ	3
drvr_close	equ	4
drvr_status	equ	5
drvr_control	equ	6
drvr_flush	equ	7
drvr_shutdown	equ	8

drvr_get_dib	equ	1

;
; Driver control and status call codes
;
stat_status	equ	0
stat_config	equ	1

;
; Offsets of fields in a DIB
;
dib_slotnum	equ	$2E			;46 (21-Jan-93 DAL)
dib_dev_id	equ	$34

;
; Equates for AFP command codes
;
afpByteRangeLock equ	1			; Byte Range Lock
afpVolClose	equ	2			; Close volume
afpDirClose	equ	3			; Close directory
afpForkClose	equ	4			; Close fork
afpCopyFile	equ	5			; Copy file
afpDirCreate	equ	6			; Create directory 
afpFileCreate	equ	7			; Create file (soft)
afpDelete	equ	8			; Delete file/folder
afpEnumerate	equ	9			; Enumerate directory
afpFlush	equ	10			; Flush volume
afpForkFlush	equ	11			; Flush fork
afpGetDirParms	equ	12			; Get directory parameters
afpGetFileParms	equ	13			; Get file parameters
afpGetForkParms	equ	14			; Get fork parameters
afpGetSInfo	equ	15			; Get server info
afpGetSParms	equ	16			; Get server parameters
afpGetVolParms	equ	17			; Get volume parameters
afpLogin	equ	18			; Login
afpContLogin	equ	19			; Login continue
afpLogout	equ	20			; Logout
afpMapID	equ	21			; Map ID
afpMapUserID	equ	afpMapID+$100		; Map ID, function = map user ID
afpMapGroupID	equ	afpMapID+$200		; Map ID, function = map group ID
afpMapName	equ	22			; Map name
afpMapUserName	equ	afpMapName+$300		; MapName, function = map user name
afpMapGroupName	equ	afpMapName+$400		; MapName, function = map group name
afpMove		equ	23			; Move
afpOpenVol	equ	24			; Open volume
afpOpenDir	equ	25			; Open directory
afpOpenFork	equ	26			; Open fork (file)
afpRead		equ	27			; Read
afpRename	equ	28			; Rename
afpSetDirParms	equ	29			; Set directory parameters
afpSetFileParms	equ	30			; Set file parameters
afpSetForkParms	equ	31			; Set fork parameters
afpSetVolParms	equ	32			; Set volume parameters
afpWrite	equ	33			; Write
afpGetFlDrParms	equ	34			; Get file/directory parameters
afpSetFlDrParms	equ	35			; Set file/directory parameters
afpGetUserInfo	equ	37			; Get user and primary group numbers
afpDTOpen	equ	48			; Open desktop
afpDTClose	equ	49			; Close desktop
afpGetIcon	equ	51			; Get icon
afpGtIcnInfo	equ	52			; Get icon info
afpAddAPPL	equ	53			; Add APPL mapping
afpRmvAPPL	equ	54			; Remove APPL mapping
afpGetAPPL	equ	55			; Get APPL mapping
afpAddCmt	equ	56			; Add comment
afpRmvCmt	equ	57			; Remove comment
afpGetCmt	equ	58			; Get comment
afpAddIcon	equ	192			; Add icon

afp_long	equ	2			; AFP PathType = long names

;
; Equates for ASP command codes
;
aspCloseSess	equ	1			; Close session
aspCommand	equ	2			; User command (used by AFP)
aspGetStat	equ	3			; Get status
aspOpenSess	equ	4			; Open session
aspTickle	equ	5			; Tickle
aspWrite	equ	6			; Write
aspWriteData	equ	7			; Write data (from server)
aspAttention	equ	8			; Attention (from server)

;--------------------------------------------------
; tConfig
;
; Describes the data structure returned by the
; drivers' GetConfigurationParameters status call.
;--------------------------------------------------
tConfig		record	0
length		ds.w	1			; length of returned parameters
devnum		ds.w	1			; device number (0..13)
session		ds.w	1			; SessRefnum
volname		ds.b	28			; volume name (pstring)
volid		ds.w	1			; VolID
status		ds.w	1			; driver status
minsize						; minimum to identify volume
server		ds.b	32			; server name (pstring)
zone		ds.b	33			; zone name (pstring)
size
		endr
;
; Definitions of data structures used by this FST.
;

;--------------------------------------------------
; tOpt
;
; Defines the fields in the option_list as returned
; by Open, GetFileInfo, and GetDirEntry.
;--------------------------------------------------
tOpt		record	0
buf_size	ds.w	1			; size of buffer
opt_size	ds.w	1			; size of actual data
data
file_sys_id	ds.w	1			; file system ID
f_info		ds.b	32			; Finder Info
parent_dirid	ds.l	1			; parent's DirID
access		ds.b	4			; access rights
size
		endr

;--------------------------------------------------
; vcr
;
; Defines the fields in a Volume Control Record
; as used by this FST.
;--------------------------------------------------

vcr		record	0
; Common fields
id		ds.w	1			; unique VCR number
name		ds.l	1			; pointer to volume name
status		ds.w	1			; volume status (???)
open_cnt	ds.w	1			; number of open files
fst_id		ds.w	1			; ID of owning FST
dev		ds.w	1			; device number of volume
; FST specific fields
sessrefnum	ds.w	1			; SessRefnum for volume
volid		ds.w	1			; VolID for volume
signature	ds.w	1			; AFP's volume signature
crdate		ds.l	1			; AFP create date of volume
modptr		ds.l	1			; ptr. to vol. modification record
		IF AFPnew THEN
version		ds.w	1			; AFP version number
		ENDIF
size
		endr

;--------------------------------------------------
; fcr
;
; Defines the fields in a File Control Record
; as used by this FST.
;--------------------------------------------------

fcr		record	0
; common FCR fields
ref_num		ds.w	1			; open file refnum
path_name	ds.l	1			; pointer to pathname
fst_id		ds.w	1			; owning FST
vcr_id		ds.w	1			; owning VCR
level		ds.w	1			; file level
newline		ds.l	1			; pointer to newline info
newline_len	ds.w	1			; length of newline info
mask		ds.w	1			; newline mask
access		ds.w	1			; access word
;
; FST specific fields
;
dirflag		ds.w	1			; $8000 = directory (not file)
						; $4000 = file's resource fork
						; $4000 = directory is root (and
						;         generating vol mod events)
flags		ds.w	1			; $8000 = buffering active
						; $4000 = buffered data is valid
						; $2000 = data needs to be flushed
						; $1000 = buffer partially full
;
; Better yet: assume data is always valid and use the buf_size field
; to see if the buffer is partially or completely full.
;
; Then turning buffering from off to on makes buf_size = 0
;

shared						; start of variant part of record
;
; Fields for files only
;
forkrefnum	ds.w	1			; AFP OForkRefnum
mark		ds.l	1			; current mark in the file
buf_start	ds.l	1			; mark of first byte in buffer
buf_size	ds.w	1			; # of valid bytes in buffer

;
; Fields for directories only
;
		org	shared
dirindex	ds.w	1			; Enumerate: current index
dirid		ds.l	1			; DirID of directory
dir_first	ds.w	1			; first dir index in buffer
dir_last	ds.w	1			; last dir index in buffer
lastmod		ds.l	1			; last mod date of volume

;
; End of share fields.  Add a block buffer to end and compute size.
;
		org				; force realignment
buffer
		endr
;
; Bitmaps used for fcr.dirflag
;
fcr_is_dir	equ	$8000			; this is a directory
fcr_is_res	equ	$4000			; this is a resource fork
fcr_is_root	equ	$4000			; directory is root directory
data_fork_bit	equ	$0002			; set/get data fork length
res_fork_bit	equ	$0004			; set/get resource fork len

;
; Bitmaps used for fcr.access
;
fcr_clean	equ	$8000			; this file is clean (for SCM only)
;fcr_is_res	equ	$4000			; this is a resource fork

;
; Bitmaps used for fcr.flags
;
buffer_active	equ	$8000
buffer_valid	equ	$4000
buffer_dirty	equ	$2000
buffer_partial	equ	$1000

;
; Flags used in vcr.status
;
vcr_offline	equ	$4000			; volume went offline with files open
vcr_wr_enabled	equ	$2000			; volume seen write enabled ?????


MaxSPCommand	equ	$242		; maximum size of command packet
MaxSPData	equ	$1210		; maximum size of data to read/write
NormSPData	equ	512		; normal size of command reply

;--------------------------------------------------
; DP
;
; Defines the direct-page area used by device
; drivers, GS/OS, and my FST.
;--------------------------------------------------

dp		record	0
;--------------------------------------------------
; Here are the device driver fields
;--------------------------------------------------
dev_num		ds.w	1		; device number being called
dev_callnum	ds.w	1		; call number
dev_dev_id	ds.w	1		; device ID (get_dib_ptr)
		org	dev_dev_id	;	- or -
dev_buff	ds.l	1		; I/O buffer address
dev_req_cnt	ds.l	1		; request count
dev_xfer_cnt	ds.l	1		; transfer count
dev_blk_num	ds.l	1		; block number
dev_blk_size	ds.w	1		; block size
dev_fst_num	ds.w	1		; FST number
		org	dev_fst_num	;  - or -
dev_stat_code	ds.w	1		;   status code
		org	dev_fst_num	;  - or -
dev_ctl_code	ds.w	1		;   control code
dev_vol_id	ds.w	1		; volume ID (???)
dev_cache_pr	ds.w	1		; cache priority
dev_cache_ptr	ds.l	1		; cache pointer
dev_dib_ptr	ds.l	1		; pointer to DIB
;--------------------------------------------------
; Here are the GS/OS fields
;--------------------------------------------------
		org	$30
call_number	ds.w	1			; current call number
p_b_addr	ds.l	1			; pointer to user's param block
src_dev_num	ds.w	1			; source device number
dest_dev_num	ds.w	1			; destination device number

path_1_addr	ds.l	1			; pointer to first pathname
		org	*-4			; 	- or -
fcr_addr	ds.l	1			; pointer to FCR

path_2_addr	ds.l	1			; pointer to second pathname
		org	*-4			; 	- or -
vcr_addr	ds.l	1			; pointer to VCR

path_flags	ds.w	1			; pathname flags
span1		ds.w	1			; max span of pathname 1
span2		ds.w	1			; max span of pathname 2
;--------------------------------------------------
; Here are the FST fields
;--------------------------------------------------
		org	$80
gbuf_ptr	ds.l	1			; pointer to Global Buffer
pcount		ds.w	1
class		ds.w	1
my_error	ds.w	1
reply_buf	ds.l	1			; pointer to ASP reply packet
newline_ptr					; newline pointer for Read
my_path_ptr	ds.l	1			;   or pointer into pathname
newline_len					; newline length for Read
my_path_len	ds.w	1			;   or length of rest of pathname
my_pb_ptr	ds.l	1			; my pointer to param block
my_fcr_ptr	ds.l	1			; my pointer to the FCR
my_vcr_ptr	ds.l	1			; my pointer to the VCR
src_ptr		ds.l	1			; temporary pointer (source)
dest_ptr	ds.l	1			; temporary pointer (dest)
math_temp					; temporary long (numeric)
quotient					;   or quotient for division
fact1		ds.l	1			;   or first factor in mult
divisor						; divisor in division
fact2		ds.l	1			;   or second factor in mult
remainder					; remainder in division
product		ds.l	1			;   or product in mult
cur_mark	ds.l	1			; used in EOF, Mark, and Read calls
data_buffer	ds.l	1			; address of user's data buffer
req_count	ds.l	1			; bytes left to transfer
trans_count	ds.l	1			; bytes already transfered
this_buffer	ds.l	1			; buffer addr for this read/write
this_mark	ds.l	1			; offset in file for this r/w
this_req	ds.l	1			; request size for this r/w
this_trans	ds.l	1			; transfer count for this r/w
		if	*>$D4 then
		aerror	&concat('Direct page overflow of ',&i2s(*-$D4),' bytes')
		endif
		endr

;--------------------------------------------------
; This is the parameter list for the SPWrite call
; which is used by the Write call.
;--------------------------------------------------

tSPWrite	record	0
		ds.b	2		; sync, call number
Result		ds.w	1		; result code
		ds.l	1		; completion routine
SRef		ds.b	1		; session reference #
ComLen		ds.w	1		; command block length
ComAddr		ds.l	1		; command block address
WrtBufLen	ds.w	1		; amount to be written
WrtAddr		ds.l	1		; address to write from
RepBufLen	ds.w	1		; reply buffer length
RepAddr		ds.l	1		; reply buffer address
ComRes		ds.l	1		; result (from server)
WrtLen		ds.w	1		; actual amount written
RepLen		ds.w	1		; actual reply length
		endr

;--------------------------------------------------
; This is the parameter list for the SPCommand call
; which is used to send out an AFP command.
;--------------------------------------------------
tSPCommand	record	0
cmd		ds.b	2		; async flag, call number
Result		ds.w	1
Completion	ds.l	1		; completion routine
SRef		ds.b	1		; session reference #
ComLen		ds.w	1		; command block length
ComAddr		ds.l	1		; command block address
RepBufLen	ds.w	1		; reply buffer length
RepAddr		ds.l	1		; reply buffer address
ComRes		ds.l	1		; result (from server)
RepLen		ds.w	1		; actual reply length
		endr

;--------------------------------------------------
; This is the parameter list for the GetSVersion
; call which is used to determine the version of
; AFP being used for a given session.
;--------------------------------------------------
tGetVersion	record	0
		ds.b	2		; sync, call number
Result		ds.w	1
Session		ds.b	1		; session reference number
AFPVersion	ds.w	1		; AFP version being used
		endr
		
tdata		record	0
fst_active	ds.w	1

my_mem_id	ds.w	1		; Memory manager ID for this FST

err_priority	ds.w	1		; see main_exit routine for details

other_fst	ds.w	1		; see FindVol

gbuf_addr	ds.l	1
gsos_dp_addr	ds.w	1		; contents of D on startup

SessRefnum	ds.w	1		; ASP session for this call
VolID		ds.w	1		; VolID used in current call
DirID		ds.l	1		; DirID used in current call
VolSignature	ds.w	1		; Volume's signature
VolCRDate	ds.l	1		; Volume's create date
VolModDate	ds.l	1		; Volume's modification date

dir_index	ds.w	1		; current entry for GetDirEntry
command_ndx	ds.w	1		; index to command packet
reply_ndx	ds.w	1		; index to reply packet

attributes	ds.w	1		; attributes to clear
attributes_hi	ds.w	1		; attributes to set

my_span		ds.w	1		; span of this pathname
my_store_type	ds.w	1		; storage type $D = dir
my_filetype	ds.w	1		; ProDOS filetype
my_auxtype	ds.l	1		; ProDOS auxtype (long)
my_access	ds.w	1		; ProDOS access word
my_data_eof	ds.l	1		; data fork size (bytes)
my_data_blks	ds.l	1		; data fork size (blocks)
my_res_eof	ds.l	1		; resource fork size (bytes)
my_res_blks	ds.l	1		; resource fork size (blocks)

my_cr_date	ds.b	8		; create date/time
my_mod_date	ds.b	8		; modified date/time
my_date_tool	ds.b	8		; general date/time in toolbox format
my_date_pro	ds.l	1		; general date/time in ProDOS format
my_date_afp	ds.l	1		; general date/time in AFP format

my_f_info	ds.b	32		; Finder info
my_parent	ds.l	1		; parent DirID from info
my_rights	ds.l	1		; access rights

my_dirid	ds.l	1		; Dir ID from info
my_offspring	ds.w	1		; offspring count for directory (65xxx order)

my_user_id	ds.l	1		; UserID from GetUserInfo
my_group_id	ds.l	1		; Primary group ID from GetUserInfo

request_access	ds.w	1		; request access for Open
fork_number	ds.w	1		; fork number for Open

my_fork_bitmap	ds.w	1		; bitmap indicating which fork
					; for SetForkParms call.

cur_eof		ds.l	1		; used in Mark and EOF calls
flags		ds.w	1		; call pre-processing flags
max_pcount	ds.w	1		; used in pre-processing
my_dev_num	ds.w	1		; device number for scanning
filedir_flag	ds.w	1		; file/directory flag
my_bitmap	ds.w	1		; used to set/get file info
partial_len				; partial pathname length
newline_mask	ds.w	1		;   or newline mask for Read
newline_word	ds.w	1		; newline mask and char (AFP format)

saved_ndx	ds.w	1		; index to start of file/dir parms
long_name	ds.b	32		; holds AFP Long name of file


		ds.b	1		; for prepending ":" to GString
gstring		ds.b	36		; room for general G-String
volume_name	ds.b	36		; holds volume name G-String
volume_sep	ds.w	1		; separator after volume name

partial_path	ds.b	256		; holds partial pathname

;
; The following data is used for GetDefPrivileges and SetDefPrivileges (and in
; Create when creating a directory).
;
; def_flags:
;	bit 0 = setting access rights
;	bit 1 = setting owner name
;	bit 2 = setting group name
fSetRights	equ	1
fSetOwner	equ	2
fSetGroup	equ	4
fSetMask	equ	7		; all flags set

def_access	ds.l	1		; default access rights
def_flags	ds.l	1
def_owner	ds.b	32		; default owner name (PString)
def_group	ds.b	32		; default group name (PString)

;
; The following data is used for Change_Path and Copy_File
;
my_call_num	ds.w	1		; which call to make
same_vol_flag	ds.w	1		; high bit set if must be same volume
src_srefnum	ds.w	1		; SessRefnum of source path
src_volid	ds.w	1		; VolID of source path
src_dirid	ds.l	1		; DirID of source path (parent)
src_name	ds.b	32		; child name of source file

;
; These are the buffers for outgoing AFP commands and their replies
;
command_pkt	ds.b	$242		; maximum SPCommand size
reply_pkt	ds.b	$200		; enough for normal commands
		endr

;------------------------------------------------------------
; Timer
; This is the parameter list for an InstallTimer call
;------------------------------------------------------------

Timer		record	0
cmd		ds.w	1		; async flag and command
result		ds.w	1		; result code
completion	ds.l	1		; completion routine address
		ds.w	1		; running tick count
ticks		ds.w	1		; ticks to completion
		ds.l	1		; reserved
		endr

		if 0 then
;------------------------------------------------------------
; SPCmd
; This is the parameter list for the SPCommand call
;------------------------------------------------------------

SPCmd		record	0
cmd		ds.w	1		; async flag and command #
result		ds.w	1		; result code
completion	ds.l	1		; completion routine address
sessrefnum	ds.b	1		; session reference number
cmdlen		ds.w	1		; command block length
cmdaddr		ds.l	1		; command block address
repbuflen	ds.w	1		; reply buffer length
repbufaddr	ds.l	1		; reply buffer address
cmdres		ds.l	1		; command result
replen		ds.w	1		; reply length
		endr
		endif

;------------------------------------------------------------
; GetModDate
; This is the AFP GetFileDirParms command block
;------------------------------------------------------------

GetModDate	record	0
cmd		ds.w	1		; GetFileDirParms command
volid		ds.w	1		; VolID
bitmap		ds.w	1		; bitmap
size					; size of command block
		endr
		
;------------------------------------------------------------
; Reply
; This is the AFP GetFileDirParms reply
;------------------------------------------------------------

Reply		record	0
		ds.w	1		; bitmap
date		ds.l	1		; mod date/time
size					; size of reply
		endr

;------------------------------------------------------------
; Event
; This is the parameter list returned by the volume modified
; event.
;------------------------------------------------------------

Event		record	0
devnum		ds.w	1		; device number
		endr

;------------------------------------------------------------
; VolRec
; This is the record used to detect and issue volume modified
; events.  It includes the parameter list to the event proc
; and some AppleTalk parameter lists.
;------------------------------------------------------------

volrec		record	0
polltimer	ds	Timer		; polling timer
lastmod		ds.l	1		; last modified date/time
modcount	ds.w	1		; number of event clients
spcmd		ds	tSPCommand	; SPCommand parameter list
getmod		ds	GetModDate	; GetFileDirParms command block
reply		ds	Reply		; GetFileDirParms reply
panictimer	ds	Timer		; about to go offline timer
panicflag	ds.w	1		; high bit set if we were in panic mode
event		ds	Event		; the event parameter list
size					; size of record
		endr


;------------------------------------------------------------
; Other equates and bitmaps used by GS/OS,
; particularly on the direct page
;------------------------------------------------------------
max_filename	equ	31		; max length of a filename
max_volname	equ	27		; max length of a volume name
path1_mask	equ	$4000		; indicates path1 present
path2_mask	equ	$0040		; indicates path2 present
my_fst_id	equ	$000D		; ID of AppleShare FST
hfs_fst_id	equ	$0006		; ID of HFS FST
pro_fst_id	equ	$0001		; ID of ProDOS FST
fst_blk_size	equ	$0200		; block size (meaningless)


;------------------------------------------------------------
; Now come a few utility macros that are used in only a few
; files.  They used to reside in the file Macros.aii which
; created the dump file Macros.dump.
;------------------------------------------------------------

;------------------------------------------------------------
;
; STR
;
; Allocates a Pascal string (length byte followed
; by the characters).
;
; Example:
;	STR	'Hello'
; generates: 05 48 45 4C 4C 4F
;
; Note: this macro preserves the state of the
; STRING pseudo-op's setting.
;
;------------------------------------------------------------

		macro
&lab		str	&parm
		lclc	&strs
&strs		setc	&setting('string')
		string	pascal
&lab		dc.b	&parm
		string	&strs
		endm

;------------------------------------------------------------
;
; ATCall
;
; Calls AppleTalk through the RamDispatch entry point with
; the parameter list given as first argument.
;
; Note: Destroys X,Y registers.  Error returned in A.
;
;------------------------------------------------------------
RamDispatch	equ	$E11014
RamForbid	equ	$E11018
RamPermit	equ	$E1101C
		macro
&lab		ATCall	&addr
&lab		ldx	#<&addr
		ldy	#^&addr
		jsl	RamDispatch
		endm

;............................................................
;
;        Push long (4 bytes) onto stack
;
;    pushlong address             - push contents of address
;    pushlong address,x           - push contents of address,x
;    pushlong const,s             - push contents of stack+const    
;    pushlong #address/const      - push address or constant
;    pushlong [zeropage],offset   - push using indirect address
;...............................................................
		MACRO
		pushlong &addr,&offset
		IF &addr[1:1]='#' THEN
		pea	&addr[2:255]>>16
		pea	|&addr[2:255]
		ELSEIF &addr[1:1]='[' THEN
		ldy	#&offset+2
		pushword &addr,y
		ldy		#&offset
		pushword &addr,y
		ELSEIF &offset='s' THEN
		pushword &addr+2,s
		pushword &addr,s
		ELSEIF &offset='' THEN
		pushword  &addr+2
		pushword  &addr
		ELSE
		pushword &addr+2,&offset
		pushword &addr,&offset
		ENDIF
		MEND

		MACRO 
&lab		_MMStartUp 
&lab		ldx	#$0202 
		jsl	$E10000 
		MEND 

		MACRO 
&lab		_MMShutDown 
&lab		ldx	#$0302 
		jsl	$E10000 
		MEND 

		MACRO 
&lab		_NewHandle 
&lab		ldx	#$0902 
		jsl	$E10000 
		MEND 

		macro
&lab		_FindHandle
&lab		ldx	#$1A02
		jsl	$E10000
		mend
		
		MACRO 
&lab		_DisposeHandle 
&lab		ldx	#$1002 
		jsl	$E10000 
		MEND 

		macro
&lab		ProcName &name
		IF DebugCode THEN
&lab		brl	over&sysndx
		dc.w	$7771	; unique value for NiftyList
		dc.b	&len(&name),'&name'
over&sysndx
		ENDIF
		mend
;------------------------------------------------------------
;
; Now, dump the equates and macros so that other files can
; use them more easily.
;
;------------------------------------------------------------

		dump	':obj:equates.dump'

		end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/FindPath.aii b/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/FindPath.aii
new file mode 100644
index 0000000..14747a4
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/FindPath.aii
@@ -0,0 +1 @@
+;------------------------------------------------------------
;
; File: FindPath.aii
;
; This file contains routines used to process pathnames.
; FindVol will strip the volume name off and find which
; device corresponds to that volume.  FindPath then creates
; a DirID and partial pathname corresponding to the rest
; of the pathname.  Process_path is a utility routine that
; calls FindVol and then FindPath for you.
;
; 06-Jul-88	MSD	Volume/device identification now
;			done by the id_vol.
; 07-Jul-88	MSD	FindVol incorrectly determined the
;			length of the volume name given.
; 24-Aug-88	MSD	Added support for paths > 255 chars.
; 31-Aug-88	MSD	Added code to differentiate between
;			path not found and file not found.
; 14-Sep-88	MSD	Removed parent finding code.  This
;			will be done only on file not found
;			errors.
; 19-Nov-90	MSD	Fixed a bug in id_vol where it didn't
;			check the fst_id field after finding
;			a VCR with the same name.
; 15-Mar-91	MSD	Made some more changes to FindVolume when
;			supplied a pathname.  If there is a VCR
;			from another FST, with open files, then
;			return $52 (unknown volume type -- it's
;			some other file system's).  If there were
;			no open files, then scan as usual; if I
;			don't find an AppleShare volume of the
;			same name, then just return $52 because
;			I there will still be a VCR owned by
;			another FST for that volume name.
; 18-Dec-91	MSD	Moved checking of the span into process_path
;			after the call to FindVol, so that the error
;			priority will be set correctly.  FindVol
;			was modified to check the length of the volume
;			name.
; 21-Jan-92	MSD	The length check added 18-Dec-91 had an off-by-
;			one error; it was rejecting volume names that
;			were 27 characters long.  It now accepts them.
;
;------------------------------------------------------------

		load	'equates.dump'

		import	upcase:code
		import	main_exit:code
		import	(StartPacket,SendPacket,StartReply):code
		import	(PutWord,PutPartPath,PutIDs):code
		import	(GetLong,GetWord):code
		import	(reopenvol,openvol):code
		import	mydata:tdata
		import	GetSVersion:tGetVersion
		
		entry	get_sig:code
		
;
; Offsets for drvr_status buffer
;
vol_name	equ	6		; vol name ptr
device_status	equ	$24
stat_session	equ	4		; session number
stat_vol_id	equ	$22		; volume ID
stat_len	equ	$26		; size of config parameters

afpn_id		equ	$001E		; device ID of .AFPn drivers
on_line_bit	equ	$0010		; vol on line status bit

colon		equ	$003A		; filename separator (':')

;------------------------------------------------------------
; ID_Vol
;
; This routine will determine if the given device number
; refers to an AppleShare volume.  If so, the SessRefnum and
; VolID are set up.  Also, a VCR will be allocated for the
; volume.
;
; On entry:
;	A = device number to look at
;
; On exit:
;	SessRefnum = session reference number
;	VolID = volume ID
;	my_vcr_ptr = address of new VCR
;	gstring = volume name found (as a G-String)
;	A = error (if carry set)
;
;------------------------------------------------------------

id_vol		proc	export
		with	dp,mydata

		ProcName id_vol
		
;------------------------------------------------------------
; First, get the DIB pointer so I can see if this is a
; .AFPn driver I'm talking to.
;------------------------------------------------------------
		sta	dev_dev_id	; save this device #
		stz	dev_num		; to dispatcher itself

		lda	#drvr_get_dib	; I want my DIB!
		sta	dev_callnum
		
		jsl	Dev_Dispatcher	; make the call....
		bcs	exit		; return any error

		ldy	#dib_dev_id	; point to device ID
		lda	[dev_dib_ptr],y
		cmp	#afpn_id	; is it .AFPn?
		bne	unknown

;------------------------------------------------------------
; Now that I know it is a .AFPn driver, I can do a status
; call to find out what volume (if any) is mounted.
;------------------------------------------------------------
		lda	dev_dev_id	; get device number
		sta	dev_num		; prepare to call it
		
		lda	#drvr_status	; do a status call
		sta	dev_callnum
		
		lda	gbuf_ptr	; buffer is GBUF
		sta	dev_buff
		lda	gbuf_ptr+2
		sta	dev_buff+2
		
		lda	#stat_len	; get everything
		sta	dev_req_cnt
		stz	dev_req_cnt+2
		
		lda	#stat_config	; get configuration
		sta	dev_stat_code
		
		jsl	Dev_Dispatcher	; go make the call
		bcs	exit

;------------------------------------------------------------
; Make sure there is a volume mounted here.
;------------------------------------------------------------
		ldy	#device_status
		lda	[gbuf_ptr],y	; get status word
		bit	#on_line_bit	; only want online bit
		bne	online		; if set, find out which vol

		sec			; not there => error
		lda	#offline_error
		bra	exit
unknown
		lda	#bad_vol_type	; signal unknown volume
error_exit
		sec
exit		rts

;------------------------------------------------------------
; Copy the pertinent information to local variables
;------------------------------------------------------------
online
		jsr	fake_read	; clears disk switched status of driver
		
		ldy	#stat_session
		lda	[gbuf_ptr],y	; get SessRefnum
		and	#$00FF		; only 1 byte
		sta	SessRefnum

		ldy	#stat_vol_id
		lda	[gbuf_ptr],y	; get VolID
		sta	VolID
		
;------------------------------------------------------------
; Turn the volume name into a Class 1 string
;------------------------------------------------------------
		clc
		lda	gbuf_ptr	; source is at
		adc	#vol_name	; GBUF + vol_name
		tax			; save low word
		lda	gbuf_ptr+2
		adc	#0
		pha			; push src address
		phx
		
		pushlong #gstring	; push dest address

		jsl	cvt_0_to_1	; convert that puppy

;------------------------------------------------------------
; Is there a VCR for this volume?
;------------------------------------------------------------
		ldx	#gstring	; pointer to the volume name
		ldy	#^gstring
		lda	#0		; 0=search for vcr by name
		jsl	find_vcr	; go find it
		bcc	got_vcr
		brl	no_vcr

;------------------------------------------------------------
; A VCR exists for this volume name.
;
; If (it belongs to me) and (signature and create date match)
;	update Sessrefnum and VolID
;	exit(no error)
; else { it belongs to another FST or isn't the same volume }
;       { CheckActive }
;	If there are open files
;		exit(duplicate volume)
;	else
;		release VCR
;		fall into no VCR case
;------------------------------------------------------------
got_vcr
		jsl	deref		; get VCR address
		stx	my_vcr_ptr	; save for later
		sty	my_vcr_ptr+2

;------------------------------------------------------------
; See if I own this VCR.  If not, I need to check for open
; files (by falling into CheckActive).
;------------------------------------------------------------
		ldy	#vcr.fst_id
		lda	[my_vcr_ptr],y	; get owning FST ID
		cmp	#my_fst_id	; is it mine?
		bne	CheckActive	; no, so see if I can kill it
		
;------------------------------------------------------------
; Do the VCR update only if the disk has been switched.
;------------------------------------------------------------
		ldy	#vcr.status
		lda	[my_vcr_ptr],y	; get VCR's status
		and	#vcr_offline	; did it go offline?
		beq	go_ok_exit	; no, so don't update the VCR
		
		jsr	get_sig		; get signature, etc.
		bcs	error_exit	; return error if any
		
		ldy	#vcr.signature
		lda	[my_vcr_ptr],y
		cmp	VolSignature	; same signature
		bne	CheckActive	; no, not the same volume
		
		ldy	#vcr.crdate
		lda	[my_vcr_ptr],y
		cmp	VolCRDate	; create date match?
		bne	CheckActive	; no, not same volume
		iny
		iny
		lda	[my_vcr_ptr],y
		cmp	VolCRDate+2
		bne	CheckActive

;------------------------------------------------------------
; It was really the same volume, so update the VCR with its
; current device number and mark it online.
;------------------------------------------------------------
		ldy	#vcr.sessrefnum
		lda	SessRefnum
		sta	[my_vcr_ptr],y	; update session for VCR
		sta	GetSVersion.Session
		
		ldy	#vcr.volid
		lda	VolID
		sta	[my_vcr_ptr],y	; update VolID for VCR
		
		ldy	#vcr.dev
		lda	dev_num		; update last device number seen
		sta	[my_vcr_ptr],y
		
		ldy	#vcr.status
		lda	[my_vcr_ptr],y
		and	#Åvcr_offline	; mark VCR as online
		sta	[my_vcr_ptr],y
		
		ATCall	GetSVersion
		lda	GetSVersion.AFPVersion
		ldy	#vcr.version
		sta	[my_vcr_ptr],y

		jsr	reopenvol	; update for vol modified structure
go_ok_exit	brl	ok_exit

CheckActive
		ldy	#vcr.open_cnt
		lda	[my_vcr_ptr],y	; any open files on volume?
		beq	kill_it		; no, so replace VCR with my new one
		
		lda	#dup_vol	; duplicate volume error
		sec
		rts
kill_it
		lda	[my_vcr_ptr]	; get VCR's ID
		jsl	release_vcr	; and kill it

;------------------------------------------------------------
; At this point, no VCR exists for the volume, so time to
; create one.
;------------------------------------------------------------
no_vcr
		jsr	get_sig		; get volume's signature, etc.
		bcs	@err		; return if error
		
		ldx	#gstring	; point to vol name
		ldy	#^gstring
		lda	#vcr.size	; size of my VCR
		jsl	alloc_vcr	; go get me one!
		bcc	did_alloc	; continue if no error
@err		rts			; return errors
did_alloc
		jsl	deref		; get actual address
		stx	my_vcr_ptr
		sty	my_vcr_ptr+2

;------------------------------------------------------------
; Now, fill in all the important fields of the VCR
;------------------------------------------------------------
		ldy	#vcr.fst_id
		lda	#my_fst_id	; I own this VCR
		sta	[my_vcr_ptr],y

		ldy	#vcr.dev
		lda	dev_num		; remember which device
		sta	[my_vcr_ptr],y

		lda	#0		; zero the status
		ldy	#vcr.status
		sta	[my_vcr_ptr],y
		ldy	#vcr.open_cnt	; and open file count
		sta	[my_vcr_ptr],y
		
		ldy	#vcr.sessrefnum
		lda	SessRefnum	; update session refnum
		sta	[my_vcr_ptr],y
		sta	GetSVersion.Session
		
		ldy	#vcr.volid
		lda	VolID		; save volume ID
		sta	[my_vcr_ptr],y

		ldy	#vcr.signature
		lda	VolSignature	; save volume signature
		sta	[my_vcr_ptr],y
		
		ldy	#vcr.crdate
		lda	VolCRDate	; save volume create date
		sta	[my_vcr_ptr],y
		iny
		iny
		lda	VolCRDate+2
		sta	[my_vcr_ptr],y
		
		ATCall	GetSVersion
		lda	GetSVersion.AFPVersion
		ldy	#vcr.version
		sta	[my_vcr_ptr],y	; save AFP version
		
		jsr	openvol		; turn on volume checking

ok_exit
		clc			; whew, it's done!
		rts

;------------------------------------------------------------
; Force a read of 0 bytes, on block 0, to force the device
; dispatcher to clear the disk switched status.
;------------------------------------------------------------
fake_read
		lda	#2		; driver read
		sta	dev_callnum
		lda	gbuf_ptr	; buffer is GBUF
		sta	dev_buff
		lda	gbuf_ptr+2
		sta	dev_buff+2
		stz	dev_req_cnt	; request count = 0
		stz	dev_req_cnt+2
		lda	#$200		; block size = 512
		sta	dev_blk_size
		stz	dev_blk_size+2
		stz	dev_blk_num	; block #0
		stz	dev_blk_num+2
		lda	#my_fst_id
		sta	dev_fst_num
		stz	dev_cache_pr	; don't cache
		lda	[my_vcr_ptr]	; get volume ID
		sta	dev_vol_id

		jsl	Dev_Dispatcher	; go make the call
		
		and	#$00FF		; get low byte of error code
		cmp	#$002E		; disk switched?
		beq	fake_read	; yes, try again
		
		rts
		
		endwith
		endp


;------------------------------------------------------------
; Get_Sig
;
; Get the volume's signature and create date so that it can
; be uniquely identified (in case it goes offline with files
; open and then comes back online).
;------------------------------------------------------------

Get_Sig		proc
		with	mydata
		
		ProcName get_sig
		
;------------------------------------------------------------
; Determine the volume's signature, create date so I can
; uniquely identify the volume.  Get its modified date, too,
; for use in the volume modification scanning.
;------------------------------------------------------------
		lda	#afpGetVolParms
		jsr	StartPacket
		lda	VolID
		jsr	PutWord
		lda	#$0E00		; bitmap: signature, mod/cr dates
		jsr	PutWord
		jsr	SendPacket
		bcs	exit		; return any error
		jsr	StartReply
		jsr	GetWord		; ignore bitmap
		jsr	GetWord		; volume signature
		sta	VolSignature
		jsr	GetLong		; create date
		sta	VolCRDate
		stx	VolCRDate+2
		jsr	GetLong		; mod date
		sta	VolModDate
		stx	VolModDate+2

		clc			; no error
exit
		rts
		
		endwith
		endp
		
;------------------------------------------------------------
; MatchVol
;
; Given a device number in A, determine if it is an
; AppleShare volume and if its name matches the name stored
; in volume_name.  Uses id_vol.  Note: assumes volume_name
; is uppercased.
;
; Exit:
;	carry clear if volume found, name matches
;	carry set on error
;		inval_dev_num	=> unknown device number
;		bad_vol_type	=> not an AppleShare device
;		vol_not_found	=> AppleShare, but no name match
;
;------------------------------------------------------------

MatchVol	proc
		with	mydata
		
		ProcName MatchVol
		
		jsr	id_vol		; is this an AppleShare device?
		bcs	exit		; no, so return the error

		lda	volume_name
		cmp	gstring		; are lengths equal?
		bne	no_match	; no, so can't match
		
		tay			; length in Y as index
		sep	#$20		; short A for characters
		longa	off
loop
		lda	gstring+1,y	; get a char
		jsr	upcase		; turn it into upper case
		cmp	volume_name+1,y	; does it match name?
		bne	no_match_s	; no, so exit without a match
		dey
		bne	loop
		
		rep	#$21		; clear carry, 16-bit A
		longa	on
		bcc	exit		; return to caller
no_match_s
		rep	#$20
		longa	on
no_match
		sec			; name didn't match
		lda	#vol_not_found
exit
		rts
		
		endwith			; with mydata
		endp


;------------------------------------------------------------
; FindVol
;
; This routine strips the volume name off of a pathname and
; sets up for FindPath to track down the file.
;
; On entry:
;	my_dev_num = device number (if device name used)
;	my_path_ptr = address of pathname
;	(typically:	my_dev_num  = src_dev_num
;			my_path_ptr = path_1_ptr
;
; On exit:
;	SessRefnum,VolID are set for volume given
;	DirID = 2  (for volume directory)
;	my_path_ptr = address of pathname past volume name
;	my_path_len = length of pathname past volume name
;	my_dev_num = device where volume was found
;	volume_sep = 0 if volume only, ":" if more path
;	A = error (if carry set)
;
; Modification History:
; 17-Aug-88	MSD	Now handles device name only (when
;			pathname pointer is null).
;  1-Sep-88	MSD	volume_sep set to 0 if no path given.
;------------------------------------------------------------
FindVol		proc	export
		with	dp,mydata

		ProcName FindVol
		
		stz	other_fst		; no VCR found yet
		stz	volume_sep		; assume volume name only

		lda	my_path_ptr		; if path pointer is null
		ora	my_path_ptr+2		; then pretend path length
		beq	got_path_len		; is zero
		lda	[my_path_ptr]		; get real path length
got_path_len
		sta	my_path_len		; save path length
		ora	my_dev_num		; null path and no device?
		beq	do_bad_path		; yep, so invalid path syntax
		
		stz	DirID			; DirID = 2 (68000 order)
		lda	#$0200
		sta	DirID+2
		
;------------------------------------------------------------
; If a device name (number) was given, then check only that
; device for an AppleShare volume.
;------------------------------------------------------------
		lda	my_dev_num		; device given?
		beq	by_name			; no, find by name
		
		jsr	id_vol			; see if volume is ours
		bcs	error

;------------------------------------------------------------
; A device name/number of an AppleShare volume was given so
; set up the path pointer (the path length was set on entry
; to FindVol).
;------------------------------------------------------------
		lda	#$8000			; I identified the volume
		sta	err_priority		; save for OR'ing into errors
		
		clc
		lda	my_path_ptr
		adc	#2			; point past length word
		sta	my_path_ptr
		lda	my_path_ptr+2
		adc	#0
		sta	my_path_ptr+2
		
		lda	my_path_len		; volume only?
		beq	ok_exit			; if volume only, exit now
		
		lda	#colon			; separator past device name
		sta	volume_sep		; means more than device given
ok_exit
		clc
error
		rts
do_bad_path
		sec				; error exit with
		lda	#invalid_path		; invalid path syntax
		bcs	error			; (name was null)
		
;------------------------------------------------------------
; If we get here, there was no device given, so we must find
; the volume by name.  First try to find one of my VCRs for
; the volume, else scan the devices.
;------------------------------------------------------------
by_name
		clc
		lda	my_path_ptr		; point past leading length
		adc	#3			; word and colon
		sta	my_path_ptr
		lda	my_path_ptr+2
		adc	#0
		sta	my_path_ptr+2
		
		sep	#$20			; short A for chars
		longa	off
		
		ldy	#0
copy_loop
		lda	[my_path_ptr],y		; get next byte
		beq	save_len		; if 0, that's end of pathname
		cmp	#colon			; separator after volume name?
		beq	save_len		; yes, end of volume name
		jsr	upcase			; convert to upper case
		sta	volume_name+2,y		; store in buffer
		iny
; Begin 18-Dec-91 MSD
		cpy	#max_volname+1		; is volume name too long?
						; 21-Jan-92 MSD: Added +1 above
		blt	copy_loop		; not yet, do some more
		rep	#$20			; back to full native mode
		bra	do_bad_path
; End 18-Dec-91 MSD
;		bra	copy_loop		; removed 18-Dec-91 MSD

save_len
		sty	volume_name		; save length of volume name
		rep	#$20			; back to full native
		longa	on
		and	#$00FF			; get byte only
		sta	volume_sep		; save volume separator char
		
;------------------------------------------------------------
; Here, we have an upper case version of the volume name
; so try to find a VCR for it.
;------------------------------------------------------------
		ldx	#volume_name
		ldy	#^volume_name
		lda	#0			; find VCR by name
		jsl	find_vcr		; call SCM to find it
		bcs	scan_devs		; not found, try devices

;------------------------------------------------------------
; A VCR was found.  Check to see if it is a valid one for me.
;------------------------------------------------------------
		jsl	deref			; turn VP into pointer
		stx	my_vcr_ptr		; save pointer
		sty	my_vcr_ptr+2
		
		ldy	#vcr.fst_id
		lda	[my_vcr_ptr],y		; get FST's number
		cmp	#my_fst_id		; is it my VCR?
		beq	found_my_vcr		; yes, go update it
		
		ldy	#vcr.open_cnt
		lda	[my_vcr_ptr],y		; any open files?
		bne	not_mine		; yes, so can't be mine
		
		inc	other_fst		; I've seen a VCR
		bra	scan_devs		; try to find my own volume
		
;------------------------------------------------------------
; I created this VCR.  Copy the SessRefnum and VolID from
; the VCR to my local copies.  If the volume is still online,
; use this VCR.  If offline (files open), return offline error.
;------------------------------------------------------------
found_my_vcr
		ldy	#vcr.sessrefnum		; get SessRefnum of this volume
		lda	[my_vcr_ptr],y		; get VCR's copy
		sta	SessRefnum		; save for use in this call
		
		ldy	#vcr.volid
		lda	[my_vcr_ptr],y		; get VolID from VCR
		sta	VolID
		
		ldy	#vcr.status
		lda	[my_vcr_ptr],y		; get status of VCR
		and	#vcr_offline		; is it offline?
		beq	found_vol		; no, so I've got the VCR

;------------------------------------------------------------
; If we get here, one of the following has happened:
; 1. No VCR was found
; 2. A VCR was found for another FST, but with no open files
; 3. A VCR was found for my FST, but there were open files and
;    the disk switch bit was set.
;
; Try to find an AppleShare volume of the same name.  In case
; 3, make sure it has the same create date and signature.
;------------------------------------------------------------
scan_devs
		lda	#1			; start with boot device
scan_dev_loop
		sta	my_dev_num		; save current dev num
		jsr	matchvol		; does the name match?
		bcc	found_vol		; yes, so take it and run
		cmp	#inval_dev_num		; run out of volumes?
		bne	scan_dev_next		; no, try another
		lda	other_fst		; was there an existing VCR?
		bne	not_mine		; yes, so unknown file system
		lda	#vol_not_found		; return as volume not found error
		sec				; force the error
		brl	error			; return the error
not_mine
		sec
		lda	#bad_vol_type		; unknown file system
		brl	error
		
scan_dev_next
		lda	my_dev_num
		ina				; go to next device number
		bra	scan_dev_loop

;------------------------------------------------------------
; Here, the volume is found and a VCR has been created for
; it.  Update the path pointer and length, set SessRefnum
; and VolID.
;------------------------------------------------------------
found_vol
		lda	#$8000			; I identified the volume
		sta	err_priority		; save for OR'ing into errors
		
		lda	volume_name		; length of volume name
		ldx	volume_sep		; anything past volume name?
		beq	vol_only		; no, so that's all
		ina				; add 1 for trailing colon
vol_only
		clc
		adc	my_path_ptr		; bump pointer by vol name length
		sta	my_path_ptr
		lda	my_path_ptr+2
		adc	#0
		sta	my_path_ptr+2
		
		lda	volume_sep		; volume name only?
		beq	store_len		; yes, save 0 as path length
		lda	my_path_len		; get old path length
		dea				; minus 1 for leading colon
		dea				; minus 1 for trailing colon
		sec
		sbc	volume_name		; minus volume name length
store_len
		sta	my_path_len		; is length of rest of path
		brl	ok_exit			; exit with success
		
		endwith
		endp


;------------------------------------------------------------
; FindPath
;
; Finds a DirID and partial pathname for input pathnames.
; If the path is too long for a P-String, then I take as
; much of the name as I can, find its DirID, and repeat
; (essentially traversing the pathname several directories
; at a time).
;
; On entry:
;	my_path_ptr	points to the rest of the pathname
;	my_path_len	length of the rest of the pathname
;	DirID		parent DirID of the rest of the path
;
; On exit:
;	DirID		parent DirID of partial path
;	my_path_ptr	points to partial path
;	my_path_len	length of partial path (<256)
;
; Note: This routine will NOT strip off the volume name.
; It is generally called with DirID = 2, and my_path_ptr
; pointing past the volume name or device name.
;------------------------------------------------------------

FindPath	proc	export
		with	dp,mydata

		ProcName FindPath
		
		lda	my_path_len
		and	#$FF00			; greater than 255?
		beq	ok_exit			; if not, we're done.

		ldy	#$FF			; look for longest possible name
		sep	#$20			; 8 bit A for chars
		longa	off
loop
		lda	[my_path_ptr],y		; get char
		cmp	#colon			; is it a separator?
		beq	found_it
		dey				; back up one and try again
		bne	loop			; always taken (since span<32)
found_it
		rep	#$20			; back to full native
		longa	on
		sty	partial_len		; save partial path length
		
;------------------------------------------------------------
; Use GetFileDirParms to determine the DirID of the directory
; given by the partial path.
;------------------------------------------------------------
		lda	#afpGetFlDrParms	; do a GetFileDirParms
		jsr	StartPacket
		
		jsr	PutIDs			; copy VolID, DirID in
		
		lda	#$0001			; files: get file number
		jsr	PutWord
		lda	#$0001			; folders: get DirID
		jsr	PutWord
		
		jsr	PutPartPath		; put partial path in packet
		
		jsr	SendPacket
		bcs	err_exit		; return any error
		
		jsr	StartReply		; begin processing result
		jsr	GetLong			; ignore bitmaps
		jsr	GetWord			; get file/dir flag
		and	#$0080			; is dir bit set?
		beq	not_found		; wasn't a directory!
		jsr	GetLong			; get DirID
		sta	DirID			; save current DirID
		stx	DirID+2
		
;------------------------------------------------------------
; Update path pointer and length to point past partial path
; and trailing separator (so change by length+1).
;------------------------------------------------------------
		sec				; account for separator
		lda	my_path_ptr
		adc	partial_len		; bump path pointer
		sta	my_path_ptr
		lda	my_path_ptr+2
		adc	#0
		sta	my_path_ptr+2
		
		clc				; account for separator
		lda	my_path_len
		sbc	partial_len
		sta	my_path_len
		
;------------------------------------------------------------
; Continue finding the path from where we are now.
;------------------------------------------------------------
		bra	FindPath

ok_exit
		clc
exit
		rts
not_found
		sec
		lda	#path_not_found		; expected a directory, got file
		bcs	exit
err_exit
		cmp	#file_not_found		; object not found?
		bne	@other
		lda	#path_not_found		; becomes path_not_found error
@other
		sec
		bcs	exit

		endwith				; with dp
		endp

;------------------------------------------------------------
; Process_path
;
; This routine will take the given device number and pathname
; and construct the SessRefnum, VolID, DirID, and partial
; pathname.  It does this by calling FindVol, FindPath, and
; putting the partial path into partial_path (the buffer)
; as a P-String.
;
; Alternate entry points:
;
; proc_path1	points to path_1 and calls process_path
; proc_path2	points to path_2 and calls process_path
;------------------------------------------------------------

process_path	proc	export
		with	dp,mydata

		ProcName process_path
		
		jsr	FindVol
		bcs	exit

; Begin 18-Dec-91 MSD
		lda	my_span		; get max span of this path
		cmp	#max_filename+1	; is it too much?
		bcc	ok_span		; no, it's ok so continue
		lda	#invalid_path	; bad path syntax
		bra	exit		; return error (note: carry is set!)
ok_span
; End 18-Dec-91 MSD

		jsr	FindPath
		bcs	exit

;------------------------------------------------------------
; Now copy the partial pathname over
;------------------------------------------------------------
		lda	my_path_len	; get length
		sta	partial_path	; save it locally
		beq	ok_exit		; done if length=0
		
		sep	#$20		; 8 bits for chars
		longa	off
		
		ldy	#0		; start copying from beginning
copy_loop
		lda	[my_path_ptr],y	; copy 1 char
		cmp	#colon		; is it a separator?
		bne	store_char	; if not, store it away
		lda	#0		; separator => null
store_char
		sta	partial_path+1,y
		iny			; Y = # chars copied
		cpy	my_path_len	; done yet?
		bne	copy_loop
		
		rep	#$20		; back to full native
		longa	on
ok_exit
		clc			; signal no errors
exit
		rts			; go back to caller

		export	proc_path1,proc_path2

proc_path1
; Begin 18-Dec-91 MSD
		lda	span1
		sta	my_span		; remember span so we can check it
; End 18-Dec-91 MSD
		lda	src_dev_num
		sta	my_dev_num
		lda	path_1_addr
		sta	my_path_ptr
		lda	path_1_addr+2
		sta	my_path_ptr+2
		bra	process_path

proc_path2
; Begin 18-Dec-91 MSD
		lda	span2
		sta	my_span		; remember span so we can check it
; End 18-Dec-91 MSD
		lda	dest_dev_num
		sta	my_dev_num
		lda	path_2_addr
		sta	my_path_ptr
		lda	path_2_addr+2
		sta	my_path_ptr+2
		bra	process_path

		endwith				; with dp
		endp

		end

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/Flush.aii b/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/Flush.aii
new file mode 100644
index 0000000..24029d3
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/Flush.aii
@@ -0,0 +1 @@
+;------------------------------------------------------------
; Flush
;
; This call takes a file reference number and writes any
; unwritten data to the server.  It also sends an FPFlush
; command to the server to force a write to disk.
;
; On entry:
;	Full native mode.
;
; On exit:
;	Full native mode.
;
; Modification history:
; 21-Jul-88	MSD	Started coding.
; 18-Oct-88	MSD	FPFlush moved out of do_flush and
;			into Flush call.
; 27-Mar-90	MSD	Allow a second parameter in class 1
;			flush (the "fast flush" flag).  It is
;			a word, and only the high bit may be set.
;
;------------------------------------------------------------

		load	'equates.dump'

		import	(PreProcess,main_exit):code
		import	(StartPacket,SendPacket):code
		import	(StartWrite,SendWrite):code
		import	(PutWord,PutLong):code
		import	mydata:tdata

		entry	do_flush:code

SPWrite		record	import
		ds.w	1		; sync, call number
Result		ds.w	1		; result code
		ds.l	1		; completion routine
SRef		ds.b	1		; session reference #
ComLen		ds.w	1		; command block length
ComAddr		ds.l	1		; command block address
WrtBufLen	ds.w	1		; amount to be written
WrtAddr		ds.l	1		; address to write from
RepBufLen	ds.w	1		; reply buffer length
RepAddr		ds.l	1		; reply buffer address
ComRes		ds.l	1		; result (from server)
WrtLen		ds.w	1		; actual amount written
RepLen		ds.w	1		; actual reply length
		endr


p		record	0
refnum		ds.w	1		; file refnum
flags		ds.w	1		; $8000 = "fast flush"
		endr


flush		proc	export
		with	dp,mydata

		ProcName flush
		
		jsr	PreProcess		; validate the call

;###############
;# This code added to allow the presence of the new "fast flush"
;# flag in the Flush call.  It is only checked for a valid value,
;# but otherwise ignored.
;#
;# Note: If you set one of the reserved bits, you'll get an
;# invalid parameter error, and no flush will happen.  Beware.
;###############

		lda	pcount			; (class 0 => pcount = 0)
		cmp	#2			; new flag present?
		blt	old_flush		; no, so do it the old way
						; Here, pCount = 2
		ldy	#p.flags		; offset to flags word
		lda	[my_pb_ptr],y		; get flags
		bit	#$7FFF			; any reserved bits set?
		beq	old_flush		; no, so do it the old way
		
		lda	#invalid_parm		; a reserved bit was set,
		sec				; so return invalid parameter
		bra	exit			; return the error
;###############
;# End of new code
;###############

old_flush		
		clc				; assume no error
		ldy	#fcr.flags
		lda	[my_fcr_ptr],y		; get flags
		and	#buffer_dirty		; only dirty bit
		beq	exit			; clean => exit no error
		
;------------------------------------------------------------
; Cause a dirty buffer to be written to the server.
;------------------------------------------------------------
		jsr	do_flush		; do the real work
		bcs	exit			; return any error we got

;------------------------------------------------------------
; Do an FPFlush to force the server to flush the file.
;------------------------------------------------------------
		lda	#afpForkFlush		; flush a file
		jsr	StartPacket

		ldy	#fcr.forkrefnum
		lda	[my_fcr_ptr],y		; get file's AFP refnum
		jsr	PutWord			; goes into packet

		jsr	SendPacket
exit
		jmp	main_exit		; return from call

		endwith				; with dp
		endp


;------------------------------------------------------------
; do_flush
;
; This routine makes sure that any buffered data for a file
; is written to the server.
;
; On entry:
;	Full native mode.
;	my_fcr_ptr = address of FCR for file to flush
;
; On exit:
;	Full native mode.
;
;------------------------------------------------------------


do_flush	proc	export
		with	dp,mydata

		ProcName do_flush
		
;------------------------------------------------------------
; Do nothing if the FCR's dirty bit is clear.
;------------------------------------------------------------
		ldy	#fcr.flags
		lda	[my_fcr_ptr],y		; get dirty bit, etc.
		bit	#buffer_dirty		; is the file dirty?
		beq	ok_exit			; not dirty, just exit
		and	#Åbuffer_dirty		; clear buffer_dirty
		sta	[my_fcr_ptr],y		; save cleared dirty bit

;------------------------------------------------------------
; Write out all of the data in the buffer.
;------------------------------------------------------------
		lda	#afpWrite		; write relative to start of fork
		jsr	StartWrite		; start up a write packet
		
		ldy	#fcr.forkrefnum
		lda	[my_fcr_ptr],y		; get AFP OForkRefnum
		jsr	PutWord			; into packet
		
		ldy	#fcr.buf_start
		lda	[my_fcr_ptr],y		; offset, low word
		and	#$FE00			; (start of block)
		xba				; high-low byte order
		tax				; second word in X
		iny
		iny
		lda	[my_fcr_ptr],y		; offset, high word
		xba				; high-low byte order
		jsr	PutLong			; put offset into packet
		
;------------------------------------------------------------
; Now, figure out how much data goes in this transaction.
;------------------------------------------------------------
		ldy	#fcr.buf_size
		lda	[my_fcr_ptr],y		; get valid buffer size
		sta	SPWrite.WrtBufLen	; save as SPWrite data length
		xba				; high-low order
		tax				; low word in X
		lda	#0			; high word is 0
		jsr	PutLong			; put request count in packet

;------------------------------------------------------------
; Now, make write data buffer point to FCR's buffer
;------------------------------------------------------------
		clc
		lda	my_fcr_ptr		; start with FCR
		adc	#fcr.buffer		; plus offset to buffer
		sta	SPWrite.WrtAddr
		lda	my_fcr_ptr+2		; carry to high word
		adc	#0
		sta	SPWrite.WrtAddr+2

;------------------------------------------------------------
; Send the write packet out the door...
;------------------------------------------------------------
		jsr	SendWrite
		bcs	exit

ok_exit
		clc				; no error
		lda	#0			; no error code (for Flush)
exit
		rts				; return to caller

		endwith				; with dp
		endp

		end

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/GetDevnum.aii b/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/GetDevnum.aii
new file mode 100644
index 0000000..fcfb4cf
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/GetDevnum.aii
@@ -0,0 +1 @@
+;------------------------------------------------------------
; Get_Dev_Num
;
; This call takes a device or volume name and returns the
; corresponding device number.  If a device name was given,
; GS/OS has already done most of the work and all I have to
; do is copy the device number into the users parameter list.
; If a volume name was given, I have to scan devices to find
; one with a matching volume name.
;
; On entry:
;	Full native mode
;
; On exit:
;	Full native mode
;
; Modification history:
; 06-Jul-88	MSD	Started coding.
;------------------------------------------------------------

		load	'equates.dump'

		import	PreProcess:code
		import	FindVol:code
		import	main_exit:code
		import	mydata:tdata

;------------------------------------------------------------
; Structure of Get_Dev_Num parameter list
;------------------------------------------------------------
p		record	0
		ds.l	1			; pointer to volume name
devnum		ds.w	1			; volume's device number
		endr


get_dev_num	proc	export
		with	dp,mydata

		ProcName get_dev_num
		
		jsr	PreProcess	; set up for call

;------------------------------------------------------------
; The reason I don't just call FindVol is that it would
; return an unknown volume error if a device name or a non-
; AppleShare device was used.  For this call only, I should
; handle any device name given to me with no errors.
;------------------------------------------------------------
		lda	src_dev_num	; device name given?
		bne	have_it		; no, look for name

;------------------------------------------------------------
; Now I have to go find the volume.  Do it by finding the
; pathname passed and then check to make sure it really
; was a volume (DirID=2, partial path='').
;------------------------------------------------------------
		sta	my_dev_num	; tell FindVol no device given
		lda	path_1_addr	; set my_path_ptr to point to
		sta	my_path_ptr	; the volume name to be processed
		lda	path_1_addr+2	; (this is normally done by
		sta	my_path_ptr+2	;  proc_path1 and proc_path2).

		jsr	FindVol		; go find the volume
		bcs	exit		; report any errors

; This code commented out because get_dev_num now allows full
; pathnames to be given.
;
; Of course, it doesn't actually check whether the filename
; given really exists, it just tries to find the volume.
;
;		lda	my_path_len	; volume name only?
;		beq	good_syntax	; if so, grab dev num
;		
;		sec
;		lda	#invalid_path	; invalid volume name syntax
;		bcs	exit
good_syntax
		ldy	#vcr.dev
		lda	[my_vcr_ptr],y	; get device number from VCR
have_it
		ldy	#p.devnum
		sta	[my_pb_ptr],y	; return to user

		clc
		lda	#0
exit
		jmp	main_exit

		endwith			; with dp,mydata
		endp

		end

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/GetDir.aii b/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/GetDir.aii
new file mode 100644
index 0000000..9ca50e6
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/GetDir.aii
@@ -0,0 +1 @@
+;------------------------------------------------------------
; Get_Dir_Entry
;
; This call is used to enumerate (list the contents of) a
; directory.  The file MUST be a directory.  I assume the
; volume is a fixed-DirID volume (so that I don't have to
; keep the directory open via an FPOpenDir call).
;
; On entry:
;	Full native mode.
;
; On exit:
;	Full native mode.
;
; Modification history:
; 25-Jul-88	MSD	Started coding.
;  9-Sep-88	MSD	Folders' read bit cleared if neither see
;			files nor see folders.
; 21-Sep-88	MSD	Allow up to 8 entries in buffer.
; 30-Sep-88	MSD	Use new field names in FCR.
;  9-Nov-90	MSD	Fixed bug where buffer size for name = 4
;			caused 64K to be copied (wasn't checking
;			for 0 bytes to copy).
; 28-Jan-91	MSD	Added call to hfs2pdos to do filetype
;			mapping like GetFileInfo does.
; 20-Sep-91	MSD	Now returns error $4A (invalid storage
;			type) instead of $4E (access error) when
;			you try to do a GetDirEntry on an open
;			file.  Don't update entry_num in parameter
;			block if there is an error.
; 5-May-93	JCM	We now return the filetype and auxtype just
;			like we do for GetFileInfo. 
;------------------------------------------------------------

		load	'equates.dump'

		import	(PreProcess,main_exit):code
		import	(StartPacket,SendPacket):code
		import	(PutWord,PutLong,PutIDs):code
		import	(StartReply,GetPString):code
		import	(GetByte,GetWord,GetLong):code
		import	(GetPlace,GetBlock):code
		import	(get_cr_date,get_mod_date):code
		import	(bytes_to_blks,convert_attr):code
		import	SPCommand:tSPCommand
		import	mydata:tdata
		import	save_pdos_info		;5-May-93 JCM
		
		entry	(from_server,from_buffer):code
		entry	(grab_parms,return_parms):code
		entry	do_tot_ent:code

;------------------------------------------------------------
; Definition of parameter block for Get_Dir_Entry call
;------------------------------------------------------------
p		record	0
		ds.w	1			; refnum
flags		ds.w	1			; high bit if extended file
base		ds.w	1			; $0000: disp. is absolute
						; $0001: add disp. to current
						; $0002: sub. disp. from current
disp		ds.w	1			; displacement of entry
name		ds.l	1			; pointer to pathname
entry_num	ds.w	1			; entry number of entry
filetype	ds.w	1			; file's filetype
eof		ds.l	1			; file's EOF
blks		ds.l	1			; total blocks used
cr_date		ds.b	8			; create date/time (toolbox)
mod_date	ds.b	8			; mod date/time (toolbox)
access		ds.w	1			; access word
auxtype		ds.l	1			; file's auxtype
file_sys	ds.w	1			; file system ID
opt_list	ds.l	1			; option list pointer
res_eof		ds.l	1			; resource EOF
res_blks	ds.l	1			; resource blocks used
		endr


;
; Requested file parameters bitmaps (i.e. what parts of the file info
; do I want for files and directories).
;
file_bitmap	equ	$6F26			; long name, finder info,
						; mod date, create date, parent DirID,
						; attributes, ProDOS info, fork lengths
dir_bitmap	equ	$6F12			; offspring instead of fork lengths,
						; access rights, no ProDOS info

get_dir_entry	proc	export
		with	dp,mydata

		ProcName get_dir_entry
		
		jsr	PreProcess		; validate the call

;------------------------------------------------------------
; Make sure this FCR refers to a directory.
;------------------------------------------------------------
		ldy	#fcr.dirflag
		lda	[my_fcr_ptr],y		; get the dir flag
		bmi	is_a_dir
		brl	not_a_dir		; flag is high bit
is_a_dir

;------------------------------------------------------------
; Class 0 acts like class 1 with 14 parameters (all but the
; option list and resource fork info).  Note: fields are
; returned in a different order than for the Open or
; Get_File_Info calls.  What a pain!
;------------------------------------------------------------
		lda	class			; what class?
		bne	class1
		lda	#14			; class 0 =>
		sta	pcount			;   14 parameters
class1

;------------------------------------------------------------
; Pretend I've scanned first 5 parameters.
;------------------------------------------------------------
		lda	pcount
		sec
		sbc	#5			; first 5 are done
		sta	pcount

;------------------------------------------------------------
; Copy DirID from FCR to direct page for PutIDs to use.
;------------------------------------------------------------
		ldy	#fcr.dirid
		lda	[my_fcr_ptr],y		; get DirID first word
		sta	DirID			; save in local data
		iny
		iny
		lda	[my_fcr_ptr],y		; get second word
		sta	DirID+2			; on direct page

;------------------------------------------------------------
; Which entry does the user want anyway?
;------------------------------------------------------------
		ldy	#p.disp
		lda	[my_pb_ptr],y		; get displacement
		sta	dir_index		; save for later

		ldy	#fcr.dirindex
		lda	[my_fcr_ptr],y		; get old entry number
		tax				; save in X for relative modes

		ldy	#p.base
		lda	[my_pb_ptr],y		; get base
		bne	not_abs			; $0000 = absolute

;------------------------------------------------------------
; base = absolute, entry := disp
;------------------------------------------------------------
		lda	dir_index		; already have displacement
		bra	got_entry_num		; save entry_num

not_abs
		dea				; was base=1?
		bne	not_add			; no, so don't add disp.
;------------------------------------------------------------
; base = forward relative, entry := entry + disp
;------------------------------------------------------------
		txa				; get old displacement
		clc
		adc	dir_index		; add displacement
		bcs	end_dir			; error if overflow
		bra	got_entry_num

not_add
		dea				; was base=2?
		bne	bad_parm		; no, bad parameter
;------------------------------------------------------------
; base = forward relative, entry := entry + disp
;------------------------------------------------------------
		txa				; get old displacement
		sec
		sbc	dir_index		; subtract displacement
		bcc	end_dir			; error if underflow
		beq	end_dir			; error if =0

;------------------------------------------------------------
; Here, entry number is in A.  Save in FCR, and in parameter
; block if user wants it (pcount>5).
;------------------------------------------------------------
got_entry_num
		sta	dir_index		; dir_index for convenience

; 20-Sep-91 MSD: Commented out the following lines:
;		ldx	pcount			; pcount>5?
;		beq	saved_num		; no, skip this
;		ldy	#p.entry_num
;		sta	[my_pb_ptr],y		; return entry_num
saved_num
		lda	dir_index		; get entry_num
		bne	read_one		; not zero => get an entry

		jsr	do_tot_ent		; return number of entries
		bra	exit			; and return any errors
read_one
;------------------------------------------------------------
; Read from buffer or directly from server?
;------------------------------------------------------------
		ldy	#fcr.flags
		lda	[my_fcr_ptr],y		; buffering on?
		bpl	do_server		; if not, get one entry

;------------------------------------------------------------
; Assume a read from the FCR's buffer.  Get enumeration data
; into reply buffer.
;------------------------------------------------------------
		jsr	from_buffer
		bcs	exit
		bcc	parse			; go extract GS/OS info

;------------------------------------------------------------
; Assume a read directly from the server.  Get enumeration
; into reply buffer.
;------------------------------------------------------------
do_server
		jsr	from_server
		bcs	exit			; exit if error

;------------------------------------------------------------
; Take parameters from reply buffer and put in local vars.
;------------------------------------------------------------
parse
		jsr	grab_parms

;------------------------------------------------------------
; Return requested parameters to user
;------------------------------------------------------------
		jsr	return_parms		; return to user
		bcs	exit

;------------------------------------------------------------
; Exit with no errors
;------------------------------------------------------------
ok_exit
		lda	dir_index		; get current entry
		ldy	#fcr.dirindex
		sta	[my_fcr_ptr],y		; save in FCR for next call

		clc
		lda	#0
		bra	exit

;------------------------------------------------------------
; The combined base/displacement would be before the start or
; past the end of the directory, so return end_of_dir.
;------------------------------------------------------------
end_dir
		lda	#end_of_dir
		sec
		bcs	exit

;------------------------------------------------------------
; A parameter (base or displacement) was bad.
;------------------------------------------------------------
bad_parm
		lda	#invalid_parm
		sec
		bcs	exit

;------------------------------------------------------------
; The file was not a directory, so report a bad file format.
;------------------------------------------------------------
not_a_dir
		lda	#version_error		; really bad file format
		sec				; it done be an error
exit
		jmp	main_exit		; return any errors

		endwith				; with dp,mydata
		endp



;------------------------------------------------------------
; from_buffer
;
; Copy one FPEnumerate structure from the FCR's buffer to
; the reply buffer as if it was just returned by an
; FPEnumerate.
;
; On entry:
;	dir_index	entry number to copy
;
; On exit:
;
;------------------------------------------------------------
from_buffer	proc
		with	dp,mydata

		ProcName from_buffer
		
		ldy	#fcr.flags
		lda	[my_fcr_ptr],y		; get buffer valid flag
		and	#buffer_valid		; is there valid data in buffer?
		beq	recharge		; if not, fill it up
		lda	dir_index		; get requested entry number
		ldy	#fcr.dir_first
		cmp	[my_fcr_ptr],y		; is it before start of buffer?
		blt	recharge		; if so, refill buffer
		ldy	#fcr.dir_last
		cmp	[my_fcr_ptr],y		; is it past end of buffer?
		bge	recharge		; if so, refill buffer
		ldy	#vcr.modptr
		lda	[my_vcr_ptr],y		; get pointer to volrec
		sta	src_ptr
		iny
		iny
		lda	[my_vcr_ptr],y
		sta	src_ptr+2
		ldy	#volrec.lastmod+2
		lda	[src_ptr],y		; get second word of lastmod
		tax				; in X for safe keeping
		dey
		dey
		lda	[src_ptr],y		; get first word
		ldy	#fcr.lastmod
		cmp	[my_fcr_ptr],y		; does it match FCR?
		bne	recharge
		iny
		iny
		txa				; get high word back
		cmp	[my_fcr_ptr],y
		bne	recharge		; fill if different
		
;------------------------------------------------------------
; It's in the buffer.  Now, just find the correct entry.
;------------------------------------------------------------
		ldy	#fcr.dir_first
		lda	[my_fcr_ptr],y		; get first entry number
		tax				; current entry in X
		ldy	#6+fcr.buffer		; offset of first structure
@loop
		cpx	dir_index		; is this the right one?
		beq	@found			; if so, copy it
		lda	[my_fcr_ptr],y		; get length of structure
		and	#$00FF			; length byte only
		sta	math_temp+2		; save for add
		tya				; get current offset
		clc
		adc	math_temp+2		; skip past this structure
		tay				; back in Y as index
		inx				; bump entry number
		bra	@loop
@found
		lda	[my_fcr_ptr],y		; get structure size
		and	#$00FF			; only a byte long
		sta	math_temp+2		; save size
		sep	#$20			; byte wide copy
		longa	off
		ldx	#0			; start at beginning
@copy
		lda	[my_fcr_ptr],y		; get a byte
		sta	reply_pkt+6,x		; save in reply
		iny
		inx
		dec	math_temp+2
		bne	@copy
		rep	#$20			; back to full native
		longa	on
		clc				; no errors
		rts				; all done

recharge
		ldy	#fcr.flags
		lda	[my_fcr_ptr],y		; get buffer valid flag
		and	#Åbuffer_valid		; clear buffer valid flag
		sta	[my_fcr_ptr],y		; update buffer valid flag

		lda	dir_index		; current entry becomes start
		ldy	#fcr.dir_first		; of buffer
		sta	[my_fcr_ptr],y

		lda	#afpEnumerate
		jsr	StartPacket		; start FPEnumerate call
		
		jsr	PutIDs			; put VolID, DirID in packet
		
		lda	#file_bitmap
		jsr	PutWord			; put file bitmap in packet
		
		lda	#dir_bitmap
		jsr	PutWord			; put directory bitmap in packet
		
		lda	#$2000			; 32 in high-low order
		jsr	PutWord			; request count of 32 entries
		
		lda	dir_index		; recover entry number
		xba				; high-low order
		jsr	PutWord
		
		lda	#2048			; size of reply buffer
		xba				; high-low order
		jsr	PutWord
		
		lda	#afp_long		; AFP long naming mode
		jsr	PutWord			; put path type and null string
		
		clc
		lda	my_fcr_ptr		; read directly into the
		adc	#fcr.buffer		; FCR's data buffer
		sta	SPCommand.RepAddr
		lda	my_fcr_ptr+2
		adc	#0
		sta	SPCommand.RepAddr+2
		
		lda	#2048
		sta	SPCommand.RepBufLen	; let ASP return full buffer size
		
		jsr	SendPacket		; go send it out
		bcs	err			; check for errors
no_err
		ldy	#fcr.buffer+4
		lda	[my_fcr_ptr],y		; get actual count
		xba				; in 65816 order
		clc
		adc	dir_index		; plus start is end
		ldy	#fcr.dir_last
		sta	[my_fcr_ptr],y		; save end count
		
		ldy	#fcr.flags
		lda	[my_fcr_ptr],y
		ora	#buffer_valid		; buffered data is valid
		sta	[my_fcr_ptr],y

		ldy	#vcr.modptr
		lda	[my_vcr_ptr],y		; get pointer to volrec
		sta	src_ptr
		iny
		iny
		lda	[my_vcr_ptr],y
		sta	src_ptr+2
		ldy	#volrec.lastmod+2
		lda	[src_ptr],y		; get second word of lastmod
		tax				; in X for safe keeping
		dey
		dey
		lda	[src_ptr],y		; get first word
		ldy	#fcr.lastmod
		sta	[my_fcr_ptr],y		; save in FCR
		iny
		iny
		txa				; get high word back
		sta	[my_fcr_ptr],y		; put it in FCR, too

		brl	from_buffer		; go get one of the entries
err
		cmp	#file_not_found		; was it object not found?
		bne	exit
		lda	#end_of_dir		; there are no more entries!
exit
		sec				; return the error
		rts
		
		endwith				; with dp
		endp


;------------------------------------------------------------
; from_server
;
; Issue an FPEnumerate call to the server for a single entry.
; Put results into reply buffer.
;
; On entry:
;	dir_index	entry number to read
;
; On exit:
;
;------------------------------------------------------------
from_server	proc
		with	dp,mydata

		ProcName from_server
		
		lda	#afpEnumerate
		jsr	StartPacket		; start FPEnumerate call
		
		jsr	PutIDs			; put VolID, DirID in packet
		
		lda	#file_bitmap
		jsr	PutWord			; put file bitmap in packet
		
		lda	#dir_bitmap
		jsr	PutWord			; put directory bitmap in packet
		
		lda	#$100			; 1 in high-low order
		jsr	PutWord			; request count of 1 entry
		
		lda	dir_index		; recover entry number
		xba				; high-low order
		jsr	PutWord
		
		lda	#NormSPData		; size of reply buffer
		xba				; high-low order
		jsr	PutWord
		
		lda	#afp_long		; AFP long naming mode
		jsr	PutWord			; put path type and null string
		
		jsr	SendPacket		; go send it out
		bcc	exit			; continue if no error
		cmp	#file_not_found		; object not found becomes
		bne	err_exit		; end of directory error
		lda	#end_of_dir
err_exit
		sec
exit
		rts				; return error to caller
		endp
		
		
grab_parms	proc
		with	dp,mydata

		import	hfs2pdos
		
		ProcName grab_parms
		
;------------------------------------------------------------
; Pull returned parameters from packet
;------------------------------------------------------------
		jsr	StartReply		; ready to get returned info
		
		jsr	GetLong			; ignore bitmaps
		
		jsr	GetWord			; ignore actual count
		
		jsr	GetByte			; get structure length

		jsr	GetByte			; get file/dir flag
		sta	filedir_flag		; save file/dir flag		

;------------------------------------------------------------
; Collect all the file info common to both files and folders
;------------------------------------------------------------
		jsr	GetPlace		; save index to dir entry

		jsr	GetWord			; get attributes
		jsr	convert_attr		; turn it into my_access
		
		jsr	GetLong			; get parent DirID
		sta	my_parent		; save for return later
		stx	my_parent+2

;------------------------------------------------------------
; For Get_Dir_Entry, date/time's returned are in Toolbox
; form even for a class 0 call.  Therefore, trick the
; date/time routines into thinking that this is a class 1
; call regardless of the actual class.
;------------------------------------------------------------
		pei	class			; save class on stack
		lda	#1			; force class 1
		sta	class
		jsr	get_cr_date		; get create date
		jsr	get_mod_date		; get mod date
		pla
		sta	class			; restore actual class

		ldx	#<my_f_info		; copy Finder Info to buffer
		ldy	#^my_f_info
		lda	#32			; (32 bytes to copy)
		jsr	GetBlock
		
		ldx	#<long_name		; get AFP Long name
		ldy	#^long_name
		jsr	GetPString
		
;------------------------------------------------------------
; Now, do processing that depends on file vs. folder.
;------------------------------------------------------------
		lda	filedir_flag		; get file/dir flag
		beq	is_file			; clear => file

;------------------------------------------------------------
; If we get here, it was a directory.  Compute storage type,
; and data fork length special.
;------------------------------------------------------------
		stz	my_res_eof		; directories don't have
		stz	my_res_eof+2		; a resource fork
		stz	my_res_blks
		stz	my_res_blks+2
		
		lda	#$D			; storage type = $D
		sta	my_store_type
		
		lda	#$F			; filetype = $F
		sta	my_filetype
		
		stz	my_auxtype		; auxtype = $0000 0000
		stz	my_auxtype+2

;------------------------------------------------------------
; Calculate blocks used for a directory by assuming that
; 8 entries fit in a block (really undefined!)
;------------------------------------------------------------
		stz	math_temp

		jsr	GetWord			; get offspring count
		xba				; low-high order
		
		lsr	a			; divide by 8 and put
		ror	math_temp		; extra bits in math_temp
		lsr	a
		ror	math_temp
		lsr	a
		ror	math_temp
		ldx	math_temp		; remainder?
		beq	@noinc			; if not, don't bump quotient
		ina				; round to whole blocks
@noinc
		sta	my_data_blks		; save block count
		stz	my_data_blks+2
		
		stz	my_data_eof		; no data fork, though
		stz	my_data_eof+2

;------------------------------------------------------------
; Check access rights to see if user has permission to read
; the directory (i.e. has see folders or see files).
;------------------------------------------------------------
		jsr	GetLong			; get access rights
		sta	my_rights		; save for option_list
		stx	my_rights+2
		
		and	#$0003			; see files or see folders?
		bne	@read			; if so, leave read bit alone
		lda	#$0001			; read bit in access word
		trb	my_access		; reset only that one bit
@read
		bra	exit			; exit with no errors

;------------------------------------------------------------
; If we get here, it was a file.  Take what the server
; gives me.
;------------------------------------------------------------
is_file
		stz	my_rights		; access rights for files are zero
		stz	my_rights+2
		
		jsr	GetLong			; get data EOF
		xba				; high word in low-high order
		pha				; save it off
		txa				; low word in A
		xba				; low-high order
		sta	my_data_eof		; save EOF low word
		plx				; get high word in X
		stx	my_data_eof+2		; save EOF high word
		jsr	bytes_to_blks		; convert to block count
		sta	my_data_blks		; save block count
		stx	my_data_blks+2

		jsr	GetLong			; get resource EOF
		xba				; high word in low-high order
		pha				; save it off
		txa				; low word in A
		xba				; low-high order
		sta	my_res_eof		; save EOF low word
		plx				; get high word in X
		stx	my_res_eof+2		; save EOF high word
		jsr	bytes_to_blks		; convert to block count
		sta	my_res_blks		; save block count
		stx	my_res_blks+2

*** Added - 5-May-93 JCM - Make sure we return the same filetype/auxtype info as we do
***			   with the GetFileInfo call.

;		jsr	GetWord			; get ProDOS filetype
;		sta	my_filetype		; (it was already in low-high order)
;		
;		jsr	GetLong			; get ProDOS auxtype
;		sta	my_auxtype		; (it was already in low-high order)
;		stx	my_auxtype+2
;
;		jsr	hfs2pdos		; map filetypes

		jsr	save_pdos_info

*** End - 5-May-93 JCM
		
;------------------------------------------------------------
; Now construct the storage type from the EOFs.  The rules:
;
; data fork EOF		resource fork EOF	storage type
; 0     <= x < $200	0			1
; $200  <= x < $20000	0			2
; $2000 <= x		0			3
; (any)			0 < x			5
;------------------------------------------------------------

		lda	my_res_eof
		ora	my_res_eof+2		; res EOF <> 0?
		beq	not_extended
		lda	#5			; it's an extended file
		bra	got_store
not_extended
		lda	my_data_eof		; AND $FFFF FE00 to see if
		and	#$FE00			; EOF >= $200
		ora	my_data_eof+2		; is it a seedling?
		bne	not_seedling
		lda	#1			; it's a seedling
		bra	got_store
not_seedling
		lda	my_data_eof+2		; high word AND $FE00
		and	#$FE00			; to see if >= $2 0000
		bne	not_sapling
		lda	#2			; it's a sapling
		bra	got_store
not_sapling
		lda	#3			; must be a tree
got_store
		sta	my_store_type

exit
		rts

		endwith				; with dp
		endp

;------------------------------------------------------------
; return_parms
;
; This routine takes the local copy of the file info and
; places it in the user's Get_Dir_Entry parameter list.
;
; On entry:
;	Full native mode
;	Assumes local file info set up
;	pcount = parameter count - 5 (first 5 required)
;
; On exit
;	Full native mode
;	user parameter block updated
;
;------------------------------------------------------------
return_parms	proc
		with	dp,mydata
		
		import	send_option

		ProcName return_parms
		
		lda	#0			; default: not extended
		ldx	my_store_type
		cpx	#5			; storage type = 5?
		bne	got_flags		; if not, normal file
		lda	#$8000			; was extended!
got_flags
		ldy	#p.flags
		sta	[my_pb_ptr],y		; store flag word

		lda	long_name		; get long name length
		and	#$00FF			; only 1 length byte
		sta	math_temp		; save length as word

		ldy	#p.name
		lda	[my_pb_ptr],y
		sta	dest_ptr		; copy pointer to
		iny				; output string
		iny
		lda	[my_pb_ptr],y
		sta	dest_ptr+2

		lda	#buffer_small		; assume buffer is too small
		sta	my_error		; save as error code
		
		lda	[dest_ptr]		; get buffer size
		cmp	#4			; must be at least 4 bytes!
		bge	@min			; well, at least 4 bytes
		sec
		lda	#invalid_parm		; <4 => parameter error
		brl	exit			; exit call now
@min						; fall through => carry set
		sbc	#4			; subtract 4 for length words
		cmp	math_temp		; is buffer len >= name length?
		blt	trunc			; buffer < namne length, so truncate
		lda	math_temp		; get name length in A
		stz	my_error		; no error (name fit)
trunc
;------------------------------------------------------------
; Here, there is something to transfer.  A holds number
; of characters to copy (entire name length or usable
; buffer size -- whichever is smaller).
;------------------------------------------------------------
		tax				; save length to copy in X
		ldy	#2
		lda	math_temp		; get actual length
		sta	[dest_ptr],y		; and return to user
		
		clc
		lda	dest_ptr		; point to byte before actual
		adc	#3			; string data (where a length
		sta	dest_ptr		; byte would go if it was a
		lda	dest_ptr+2		; pascal string).
		adc	#0
		sta	dest_ptr+2
		
		txy				; length back in Y
		beq	too_small		; nothing to copy!
		sep	#$20			; 8 bits for chars
		longa	off
loop
		lda	long_name,y		; copy one char
		sta	[dest_ptr],y
		dey
		bne	loop			; all but length byte

		rep	#$20			; back to full native
		longa	on

too_small
		lda	pcount			; anything else to return?
		bne	more1
		brl	done			; all done
more1
; 20-Sep-91 MSD: Return entry_num only if the resulting entry number was valid
		ldy	#p.entry_num
		lda	dir_index		; get current entry number
		sta	[my_pb_ptr],y		; update parameter block
; End 20-Sep-91 MSD

		dec	pcount			; entry_num already returned
		bne	more2
		brl	done			; all done
more2
		
		ldy	#p.filetype		; note: filename copy destroys Y
		lda	my_filetype
		sta	[my_pb_ptr],y		; return filetype
		dec	pcount
		bne	more3
		brl	done			; all done
more3
		
		iny
		iny				; Y = p.eof
		lda	my_data_eof
		sta	[my_pb_ptr],y		; return EOF low
		iny
		iny
		lda	my_data_eof+2
		sta	[my_pb_ptr],y		; return EOF high
		dec	pcount
		bne	more4
		brl	done			; all done
more4
		
		iny
		iny				; Y = p.blks
		lda	my_data_blks
		sta	[my_pb_ptr],y		; return blocks used low
		iny
		iny
		lda	my_data_blks+2
		sta	[my_pb_ptr],y		; return blocks used high
		dec	pcount
		bne	more5
		brl	done
more5

		iny
		iny				; Y = p.cr_date
		lda	my_cr_date		; return create date/time
		sta	[my_pb_ptr],y
		iny
		iny
		lda	my_cr_date+2
		sta	[my_pb_ptr],y
		iny
		iny
		lda	my_cr_date+4
		sta	[my_pb_ptr],y
		iny
		iny
		lda	my_cr_date+6
		sta	[my_pb_ptr],y
		dec	pcount
		bne	more6
		brl	done
more6
		
		iny
		iny				; Y = p.mod_date
		lda	my_mod_date		; return mod date/time
		sta	[my_pb_ptr],y
		iny
		iny
		lda	my_mod_date+2
		sta	[my_pb_ptr],y
		iny
		iny
		lda	my_mod_date+4
		sta	[my_pb_ptr],y
		iny
		iny
		lda	my_mod_date+6
		sta	[my_pb_ptr],y
		dec	pcount
		bne	more7
		brl	done
more7
		
		iny
		iny				; Y = p.access
		lda	my_access
		sta	[my_pb_ptr],y		; return access word
		dec	pcount
		bne	more8
		brl	done
more8

		iny
		iny				; Y = p.auxtype
		lda	my_auxtype
		sta	[my_pb_ptr],y		; return auxtype low
		iny
		iny
		lda	my_auxtype+2		; return auxtype high
		sta	[my_pb_ptr],y
		dec	pcount
		beq	done
		
		iny
		iny				; Y = p.file_sys
		lda	#my_fst_id		; I'm AppleShare
		sta	[my_pb_ptr],y		; return file system ID
		dec	pcount
		beq	done

;		bra	opt_ok			; ignore option_list for now
		iny
		iny				; Y = p.opt_list
		lda	[my_pb_ptr],y		; get option list address
		sta	src_ptr			; save a pointer to it
		iny
		iny
		lda	[my_pb_ptr],y
		sta	src_ptr+2
		
		jsr	send_option		; return option_list
		bcs	exit

		dec	pcount			; account for option_list
		beq	done

		ldy	#p.res_eof
		lda	my_res_eof
		sta	[my_pb_ptr],y		; return resource EOF low
		iny
		iny
		lda	my_res_eof+2
		sta	[my_pb_ptr],y		; return resource EOF high
		dec	pcount
		beq	done
		
		iny
		iny				; Y = p.res_blks
		lda	my_res_blks
		sta	[my_pb_ptr],y		; return resource blocks used
		iny
		iny
		lda	my_res_blks+2
		sta	[my_pb_ptr],y
done		
		clc
		lda	#0

exit
		rts

		endwith				; with dp
		endp

;------------------------------------------------------------
; do_tot_ent
;
; This routine simply calculates the number of directory
; entries in this directory (i.e., its offspring count)
; and returns it in the entry_num field.
;
; On entry:
;	Full native mode
;
; On exit:
;	Full native mode
;
;------------------------------------------------------------
do_tot_ent	proc
		with	dp,mydata

		ProcName do_tot_ent
		
		lda	pcount
		beq	ok_exit

		lda	#afpGetFlDrParms	; FPGetFileDirParms
		jsr	StartPacket
		
		jsr	PutIDs			; put VolID, DirID in packet
		
		lda	#$0001			; get file number for files
		jsr	PutWord			; put file bitmap
		
		lda	#$0002			; get offspring count for folder
		jsr	PutWord			; put directory bitmap
		
		lda	#afp_long		; AFP long names, null path
		jsr	PutWord			; put path type, null path
		
		jsr	SendPacket
		bcs	exit

		jsr	StartReply		; get read to read the reply
		
		jsr	GetLong			; ignore bitmaps
		
		jsr	GetWord			; ignore file/dir flag
		
		jsr	GetWord			; get offspring count
		xba				; low-high format
		
		ldy	#p.entry_num
		sta	[my_pb_ptr],y		; return number of entries
		
		ldy	#fcr.dirindex
		lda	#0			; start enumeration from 0
		sta	[my_fcr_ptr],y

ok_exit
		clc
		lda	#0
exit
		rts

		endwith				; with dp
		endp

		end

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/GetInfo.aii b/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/GetInfo.aii
new file mode 100644
index 0000000..2be7e44
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/GetInfo.aii
@@ -0,0 +1 @@
+;------------------------------------------------------------
;
; get_file_info
;
; This call takes a pathname and returns various pieces of
; information about it.
;
; On entry:
;	Full native mode.
;
; On exit:
;	Full native mode.
;
; Modification history:
; 18-Jul-88	MSD	Started coding.
;  9-Sep-88	MSD	Folder's read bit cleared if neither
;			see files nor see folders.
; 28-Jan-91	MSD	Now converts some HFS filetypes to
;			Apple II filetypes (see the list in
;			SetFileInfo).  The conversion only
;			happens if Apple II type and auxtype
;			are both zero.
; 12-Apr-91	MSD	Changed com_get_info to clear the high
;			byte of the filetype and high word of
;			the auxtype since some servers (like
;			one of the Unix-based ones, and FileShare
;			under System 7.0) return bogus values that
;			prevent the GS Finder from copying them.
;			There is also a special case for the
;			auxtype returned as $FFFFFFFF which gets
;			converted to zero (which is what it is
;			usually supposed to be).
;------------------------------------------------------------

		load	'equates.dump'

		import	(PreProcess,main_exit,CheckParent):code
		import	proc_path1:code
		import	(StartPacket,SendPacket):code
		import	(PutWord,PutLong,PutByte):code
		import	(PutIDs,PutPath):code
		import	(StartReply,GetWord,GetLong):code
		import	(GetBlock,GetPlace,GetPString):code
		import	(get_cr_date,get_mod_date):code
		import	bytes_to_blks:code
		import	convert_attr:code
		import	mydata:tdata

		entry	com_get_info,send_info,get_vol_info

;
; Format of class 0 parameter list
;
p0_parmlist	record	0
		ds.l	1			; pathname pointer
p0_access	ds.w	1
p0_filetype	ds.w	1
p0_auxtype	ds.l	1
p0_storage	ds.w	1
p0_create	ds.l	1
p0_mod		ds.l	1
p0_blocks	ds.l	1
		endr

;
; Format of class 1 parameter list (relative to start of info)
;
p1_parmlist	record	0
p1_access	ds.w	1
p1_filetype	ds.w	1
p1_auxtype	ds.l	1
p1_storage	ds.w	1
p1_create	ds.l	2			; create date/time in ToolBox format
p1_mod		ds.l	2			; mod date/time in ToolBox format
p1_option	ds.l	1			; pointer to option list
p1_data_eof	ds.l	1			; data fork EOF
p1_data_blks	ds.l	1			; data fork blocks used
p1_res_eof	ds.l	1			; resource fork EOF
p1_res_blks	ds.l	1			; resource fork blocks used
		endr


get_vol_bits	equ	$C000			; get bytes free/total


get_file_info	proc	export
		with	dp,mydata

		ProcName get_file_info
		
		jsr	PreProcess		; validate the call
		
		jsr	proc_path1		; go find the file
		bcs	exit			; return any errors

		jsr	com_get_info		; go get file info
		bcs	exit			; return any errors

		lda	class			; class 0?
		beq	class0			; if so, do it special
;
; Class 1 Get_File_Info and Open use the same common routine to
; return file info to the caller
;
		clc
		lda	my_pb_ptr		; point to where in param
		adc	#4			; block to start filling in
		sta	my_pb_ptr		; the info
		lda	my_pb_ptr+2
		adc	#0
		sta	my_pb_ptr+2
		dec	pcount			; adjust # of params to return

		jsr	send_info		; put in user's PB.
exit
		jmp	main_exit		; return to caller with any errros

;
; Here, the call was class 0, so we do some things special
;
class0
;
; If a volume directory, auxtype becomes total_blocks, and
; data blocks used becomes blocks_used on volume.
;
		lda	volume_sep		; anything past volume name
		bne	not_vol			; OK if not a volume only
		jsr	get_vol_info		; get volume information
		bcs	exit
not_vol
		with	p0_parmlist		; use class 0 offsets
		ldy	#p0_access		; index to save access byte
		lda	my_access
		sta	[my_pb_ptr],y		; return access word
		
		iny
		iny				; Y = p0_filetype
		lda	my_filetype
		sta	[my_pb_ptr],y		; return filetype
		
		iny
		iny				; Y = p0_auxtype
		lda	my_auxtype
		sta	[my_pb_ptr],y		; return auxtype (low word)
		iny
		iny
		lda	my_auxtype+2
		sta	[my_pb_ptr],y		; return auxtype (high word)
		
		iny
		iny				; Y = p0_storage
		lda	my_store_type
		sta	[my_pb_ptr],y		; return storage type
		
		ldy	#p0_create
		lda	my_cr_date		; return create date/time
		sta	[my_pb_ptr],y
		iny
		iny
		lda	my_cr_date+2
		sta	[my_pb_ptr],y
		
		ldy	#p0_mod
		lda	my_mod_date		; return mod date/time
		sta	[my_pb_ptr],y
		iny
		iny
		lda	my_mod_date+2
		sta	[my_pb_ptr],y
		
		iny
		iny				; Y = p0_blocks
		clc
		lda	my_data_blks		; compute total blocks used
		adc	my_res_blks
		sta	[my_pb_ptr],y		; return blocks used (low)
		iny
		iny
		lda	my_data_blks+2
		adc	my_res_blks+2
		sta	[my_pb_ptr],y		; return blocks used (high)

		endwith				; dp,mydata

		clc				; no errors
		lda	#0
		bra	exit			; return with no errors

		endwith				; with dp
		endp


;------------------------------------------------------------
; get_vol_info
;
; This routine gets the total blocks and used blocks for a
; volume and returns them in my_auxtype, and my_data_blks.
; My_res_blks is set to 0 so that used blocks is right.
;
; On entry:
;	Full native
;
; On exit:
;	Full native mode
;
;------------------------------------------------------------

get_vol_info	proc
		with	dp,mydata

		ProcName get_vol_info
		
		lda	#afpGetVolParms		; do FPGetVolParms
		jsr	StartPacket
		
		lda	VolID
		jsr	PutWord			; Vol ID in packet

		lda	#get_vol_bits		; bytes free/total
		jsr	PutWord
		
		jsr	SendPacket		; make the call
		bcs	exit
		
		jsr	StartReply		; process the results
		jsr	GetWord			; ignore bitmap
		
		jsr	GetLong			; get bytes free
		xba				; high word in 65xxx order
		pha
		txa				; get low word
		xba				; in 65xxx order
		plx				; get high word
		jsr	bytes_to_blks		; convert to block count
		sta	my_data_blks		; save temporarily
		stx	my_data_blks+2
		
		jsr	GetLong			; get bytes total
		xba				; high word in 65xxx order
		pha
		txa
		xba				; low word in 65xxx order
		plx
		jsr	bytes_to_blks
		sta	my_auxtype		; auxtype becomes total blocks
		stx	my_auxtype+2
		
		sec				; compute blocks used
		lda	my_auxtype
		sbc	my_data_blks
		sta	my_data_blks		; save in my_data_blks
		lda	my_auxtype+2
		sbc	my_data_blks+2
		sta	my_data_blks+2

		clc				; no errors
exit
		rts

		endwith				; with dp,mydata
		endp


;------------------------------------------------------------
; send_info
;
; This routine will return the saved file info to a class 1
; parameter list (such as Get_File_Info or Open).  It assumes
; that common_info was called to save the file info.
;
; On entry:
;	Full native
;	my_pb_ptr = address of "access" field of parameter list
;	pcount = number of parameters to return
;
; On exit:
;	Full native mode
;	(parameters returned in user's parameter list)
;	c,A indicate error status
;
;------------------------------------------------------------

send_info	proc	export
		with	dp,p1_parmlist,mydata
		
		import	send_option

		ProcName send_info
		
		ldy	#p1_access
		lda	my_access
		sta	[my_pb_ptr],y		; return access word
		dec	pcount
		bne	@more1
		brl	done
@more1
		
		iny
		iny				; Y = p1_filetype
		lda	my_filetype
		sta	[my_pb_ptr],y		; return filetype
		dec	pcount
		bne	@more2
		brl	done
@more2
		
		iny
		iny				; Y = p1_auxtype
		lda	my_auxtype
		sta	[my_pb_ptr],y		; return auxtype (low)
		iny
		iny
		lda	my_auxtype+2
		sta	[my_pb_ptr],y		; return auxtype (high)
		dec	pcount
		bne	@more3
		brl	done
@more3
		
		iny
		iny				; Y = p1_storage
		lda	my_store_type
		sta	[my_pb_ptr],y		; return storage type
		dec	pcount
		bne	@more4
		brl	done
@more4

		iny
		iny				; Y = p1_create
		lda	my_cr_date
		sta	[my_pb_ptr],y
		iny
		iny
		lda	my_cr_date+2
		sta	[my_pb_ptr],y
		iny
		iny
		lda	my_cr_date+4
		sta	[my_pb_ptr],y
		iny
		iny
		lda	my_cr_date+6
		sta	[my_pb_ptr],y
		dec	pcount
		bne	@more5
		brl	done
@more5
		
		iny
		iny				; Y = p1_mod
		lda	my_mod_date
		sta	[my_pb_ptr],y
		iny
		iny
		lda	my_mod_date+2
		sta	[my_pb_ptr],y
		iny
		iny
		lda	my_mod_date+4
		sta	[my_pb_ptr],y
		iny
		iny
		lda	my_mod_date+6
		sta	[my_pb_ptr],y
		dec	pcount
		bne	@more6
		brl	done
@more6

;
; Here is where the option list is returned
;
;		bra	opt_ok			; ignore option_list for now
		iny
		iny				; Y = p1_option
		lda	[my_pb_ptr],y		; get option list address
		sta	src_ptr			; save a pointer to it
		iny
		iny
		lda	[my_pb_ptr],y
		sta	src_ptr+2
		jsr	send_option
		bcs	exit			; return errors if any
		
		dec	pcount			; account for option_list
		beq	done

		ldy	#p1_data_eof
		lda	my_data_eof
		sta	[my_pb_ptr],y		; return data fork size (low)
		iny
		iny
		lda	my_data_eof+2
		sta	[my_pb_ptr],y		; return data fork size (high)
		dec	pcount
		beq	done
		
		iny
		iny				; Y = p1_data_blks
		lda	my_data_blks
		sta	[my_pb_ptr],y		; return data blocks (low)
		iny
		iny
		lda	my_data_blks+2
		sta	[my_pb_ptr],y		; return data blocks (high)
		dec	pcount
		beq	done
		
		iny
		iny				; Y = p1_res_eof
		lda	my_res_eof
		sta	[my_pb_ptr],y		; return resource fork size
		iny
		iny
		lda	my_res_eof+2
		sta	[my_pb_ptr],y		; return high word
		dec	pcount
		beq	done
		
		iny
		iny				; Y = p1_res_blks
		lda	my_res_blks
		sta	[my_pb_ptr],y		; return resource blocks
		iny
		iny
		lda	my_res_blks+2
		sta	[my_pb_ptr],y		; return high word
done
		clc
		lda	#0
exit
		rts

		endwith				; with dp,p1_parmlist,mydata
		endp


;------------------------------------------------------------
; send_option
;
; This routine returns the option_list data for GetFileInfo,
; Open, and GetDirEntry.
;
; On entry:
;	my_error	any error so far
;	src_ptr		pointer to option_list
;
; On exit:
;	my_error	set to $4F if option_list buffer too
;			small (otherwise unchanged)
;
;------------------------------------------------------------

send_option	proc	export
		with	dp,mydata
		
		ProcName send_option
		
		lda	src_ptr
		ora	src_ptr	+2		; was pointer = 0?
		beq	ok			; if so, skip this
		
		lda	[src_ptr]		; get size of buffer
		cmp	#4			; big enough for length words?
		blt	way_small		; if not, give up
		
		lda	#tOpt.size-tOpt.data	; size of option_list data
		ldy	#tOpt.opt_size		; offset of output length word
		sta	[src_ptr],y		; save length word
		
		lda	[src_ptr]		; get buffer size again
		cmp	#tOpt.size		; will data fit?
		blt	too_small		; if not, do error

		ldy	#tOpt.data		; offset to start of data
		lda	#my_fst_id		; get my file_sys_id
		sta	[src_ptr],y		; put in option_list
		iny
		iny				; Y = opt_list.f_info
loop
		lda	my_f_info-tOpt.f_info,y	; get a word
		sta	[src_ptr],y		; put in buffer
		iny
		iny				; point to next word
		cpy	#tOpt.size		; all done?
		bne	loop
		clc				; say no error
		bra	ok			; done, no errors
way_small
		lda	#invalid_parm		; buffer < 4 bytes
		bra	err
too_small
		lda	#buffer_small		; buffer too small!
err
		sec
ok
		rts

		endwith				; with dp,mydata
		endp



;------------------------------------------------------------
; com_get_info
;
; This routine will send an FPGetFileDirParms packet out for
; the current file and build its file information in local
; variables.
;
; On entry:
;	Full native
;	Assumes PreProcess and proc_path have been called.
;
; On exit:
;	Full native mode
;	Updates variables:
;		my_access
;		my_store_type
;		my_filetype
;		my_auxtype
;		my_data_eof
;		my_data_blks
;		my_res_eof
;		my_res_blks
;		my_f_info
;
;------------------------------------------------------------

com_get_info	proc	export
		with	dp,mydata

		import	hfs2pdos
		
		ProcName com_get_info
		
		lda	#afpGetFlDrParms	; FPGetFileDirParms
		jsr	StartPacket
		
		jsr	PutIDs			; put VolID, DirID in packet

		lda	#$6F26
		jsr	PutWord			; put file bitmap in
		
		lda	#$6F33
		jsr	PutWord			; put directory bitmap in

		clc				; don't have to align
		jsr	PutPath			; add pathname to packet
		
		jsr	SendPacket
		jsr	CheckParent		; check for path not found
		bcc	save_info		; fall through on error
exit
		rts				; return error

save_info
		jsr	StartReply		; start processing reply packet
		
		jsr	GetLong			; ignore bitmaps
		
		jsr	GetWord			; get file/dir flag
		sta	filedir_flag		; save for later use

;------------------------------------------------------------
; Note: first 8 parameters are the same for files and folders,
; so use some common code for both.
;------------------------------------------------------------
		jsr	GetPlace		; mark start of parameters

		jsr	GetWord			; get attributes word
		jsr	convert_attr		; convert to ProDOS access word

		lda	volume_sep		; is it a volume?
		bne	@novol			; no, leave rename bit alone
		lda	#$0040			; rename bit
		trb	my_access		; clear it (no rename)
@novol
		
		jsr	GetLong			; get parent DirID
		sta	my_parent		; save locally
		stx	my_parent+2

		jsr	get_cr_date		; get and convert create date

		jsr	get_mod_date		; get and convert mod date

		lda	#32			; get 32 bytes from packet
		ldx	#<my_f_info		; to "my_f_info" buffer
		ldy	#^my_f_info
		jsr	GetBlock

		ldx	#<long_name		; put into "long_name" buffer
		ldy	#^long_name
		jsr	GetPString		; get string from packet

;------------------------------------------------------------
; The following parameters are different depending on whether
; the object was a file or a directory.
;------------------------------------------------------------
		lda	filedir_flag
		bit	#$0080			; check file/directory bit
		bne	is_dir			; set => directory
		bra	is_file			; clear => file

;------------------------------------------------------------
; The object was a directory, so pull out directory-specific
; parameters.
;------------------------------------------------------------
is_dir
		jsr	GetLong			; get Dir ID
		sta	my_dirid		; save in info
		stx	my_dirid+2

		jsr	GetWord			; get offspring count
		xba				; in 65xxx order
		sta	my_offspring

		lda	#$D			; storage type = directory
		sta	my_store_type
		
		lda	#$F
		sta	my_filetype
		
		stz	my_auxtype
		stz	my_auxtype+2
		
;------------------------------------------------------------
; Pretend that 4 file entries fit in a block.
;------------------------------------------------------------
		clc
		lda	my_offspring		; get number of directory entries
		adc	#3			; round up to multiple of 4
		lsr	a
		lsr	a			; divide by 4 to get blocks
		sta	my_data_blks
		stz	my_data_blks+2

		stz	my_data_eof		; zero out EOF, resource EOF
		stz	my_data_eof+2		; and resource blocks used.
		stz	my_res_eof
		stz	my_res_eof+2
		stz	my_res_blks
		stz	my_res_blks+2
		
;------------------------------------------------------------
; Clear read bit in access word if no see files and no
; see folders.
;------------------------------------------------------------
		jsr	GetLong			; get access rights
		sta	my_rights		; save for option_list
		stx	my_rights+2

		and	#$0003			; see files or see folders?
		bne	@read
		lda	#$0001			; read bit in access word
		trb	my_access		; clear the bit
@read
		lda	my_rights		; get access rights back
		and	#$0004			; is make changes set?
		bne	@write			; yes, leave write bit set
		lda	#$0002			; write bit in access word
		trb	my_access		; clear access bit
@write

		brl	got_pdos_info		; exit, ProDOS info has been set

;------------------------------------------------------------
; The object was a file, so pull out file-specific info.
;------------------------------------------------------------
is_file
		stz	my_rights		; clear out access rights
		stz	my_rights+2
		
		jsr	GetLong			; get data fork length
		xba				; high word in 65xxx order
		sta	my_data_eof+2
		txa				; get low word
		xba				; in 65xxx order
		sta	my_data_eof
		ldx	my_data_eof+2		; get high word in X
		jsr	bytes_to_blks		; get block count in A,X
		sta	my_data_blks		; save data fork block count
		stx	my_data_blks+2

		jsr	GetLong			; get resource fork length
		xba				; high word in 65xxx order
		sta	my_res_eof+2
		txa				; get low word
		xba				; in 65xxx order
		sta	my_res_eof
		ldx	my_res_eof+2		; high word in X
		jsr	bytes_to_blks		; get block count in A,X
		sta	my_res_blks		; save resource block count
		stx	my_res_blks+2

;------------------------------------------------------------
; Compute storage type based on the EOFs.
;------------------------------------------------------------
		lda	my_res_eof
		ora	my_res_eof+2		; any resource bytes?
		beq	not_res_file
		ldy	#5			; must be storage type 5
		bra	got_store_type
not_res_file
		ldy	#1			; try seedling first
		lda	my_data_eof
		cmp	#513			; less than 513 bytes?
		lda	my_data_eof+2
		sbc	#0
		blt	got_store_type		; if so, must be seedling
		
		iny				; try sapling
		lda	my_data_eof
		cmp	#1			; less than 128K+1 bytes?
		lda	my_data_eof+2
		sbc	#2
		blt	got_store_type		; if so, must be sapling
		
		iny				; only choice left is tree
got_store_type
		sty	my_store_type

;------------------------------------------------------------
; Finally, the ProDOS Info field common to files and folders.
;------------------------------------------------------------
		export	save_pdos_info		;5-May-93 JCM
save_pdos_info
		jsr	GetWord			; get filetype
		and	#$00FF			; high byte must be zero (4/12/91)
		sta	my_filetype
		jsr	GetLong			; get auxtype
		sta	my_auxtype
;
; Begin 4/12/91 fix
;
		txa				; high word now in A
		stz	my_auxtype+2		; force high word to zero
		and	my_auxtype
		cmp	#$FFFF			; was auxtype = $FFFFFFFF?
		bne	@ok
		stz	my_auxtype		; yes, so make it zero
@ok
;
; End 4/12/91 fix
;

		jsr	hfs2pdos		; do Mac->ProDOS conversions
		
got_pdos_info
		clc				; no errors
		rts

		endwith				; with dp,mydata
		endp



;------------------------------------------------------------
; hfs2pdos
;
; This routine performs HFS -> ProDOS filetype conversions
; that were defined after AppleShare 2.0.  Conversions are
; done only on files with filetype and auxtype both zeros.
;
; File Type conversions:
;	creator: any,  type: 'MIDI' ->  $D7 $0000
;	creator: any,  type: 'AIFF' ->  $D8 $0000
;	creator: any,  type: 'AIFC' ->  $D8 $0001
;	creator:'dCpy' type: 'dImg' ->	$E0 $0005
;	
;
;
; On entry:
;	Full native mode.
;	my_filetype	= ProDOS filetype
;	my_auxtype	= ProDOS auxtype
;	my_f_info	= HFS Finder Info (only creator & type used)
;
; On exit:
;	Full native mode.
;	my_filetype	= ProDOS filetype (derived)
;	my_auxtype	= ProDOS auxtype (derived)
;
;------------------------------------------------------------

hfs2pdos	proc	export
		with	dp,mydata

		import	FileTypes:data
		import	NumFileTypes:equ
		
		ProcName hfs2pdos
		
		lda	my_filetype	; is ProDOS type unknown?
		ora	my_auxtype	; and unknown auxtype?
		bne	exit		; something set, don't change it
		
		ldx	#NumFileTypes	; loop counter
		ldy	#0		; index into filetype table
loop
		lda	my_f_info	; first two bytes of type
		cmp	FileTypes+4,y	; match type in table?
		bne	next
		lda	my_f_info+2	; last two bytes of type
		cmp	FileTypes+6,y	; match table?
		bne	next		; no, try another
		
		lda	FileTypes+8,y
		ora	FileTypes+10,y	; is it wildcard $FFFFFFFF?
		ina			; was A=$FFFF?
		beq	match		; yes, so creator matches
		
		lda	my_f_info+4	; compare creators
		cmp	FileTypes+8,y
		bne	next
		lda	my_f_info+6
		cmp	FileTypes+10,y
		beq	match		; even creator matches!
next
		tya
		clc
		adc	#12		; point to next table entry
		tay
		dex
		bne	loop
		bra	exit

match					; found type match in table
		lda	FileTypes,y	; get ProDOS type in table
		sta	my_filetype
		lda	FileTypes+2,y	; get ProDOS auxtype in table
		sta	my_auxtype

exit
		rts

		endwith
		endp
		
		end

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/Header.aii b/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/Header.aii
new file mode 100644
index 0000000..dd24379
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/Header.aii
@@ -0,0 +1 @@
+;********************************************************************************
;
; Copyright Apple Computer Inc 1987-93
; All Rights Reserved
;
;********************************************************************************
;
; Summary:
;	This is the AppleShare FST for GS/OS.  Its job is to take
;	requests from GS/OS and turn them into the appropriate
;	AFP calls.  Written by Mark Day.
;
; Credits:
;	Thanks to Rob Turner for his help and explanations of GS/OS
;	and how FSTs work (and his source code examples!)
;
; Modification history:
;
;  5-Jan-87	MSD	Coding started.
; 27-Jun-88	MSD	FST ID changed to $D ($C is used by CD-ROM)
; 27-Sep-88	MSD	Version is v02.01 d01
;  6-Feb-89	MSD	Checks for .AppleTalk on startup
;  8-Feb-89	MSD	If booting over the network, assume AppleTalk
;			drivers will be present (since they aren't
;			installed yet); this will avoid the check for
;			the .AppleTalk driver.
;  3-Aug-90	MSD	Fixed version number to 3.03 for 5.0.3 final.
;			The only change was to support extra parameter
;			to the Flush call (fast flush).
; 12-Nov-90	MSD	On a cold startup, set default access rights to
;			not set anything.  Set owner and group names to
;			the empty string.
; 05-Feb-91	MSD	Added JudgeName to the app entry.
; 06-Feb-91	MSD	Removed "Bozo" alerts.
;
; 25-Mar-92	DAL	For 6.0.1, bumped version to $8401 (4.01d1).
; 21-Jan-93	DAL	Shortcut the QDStatus and GetWAP.  Use new SCC
;			Manager call to get the network slot number for
;			LocalTalk vs. Ethernet checks (cosmetic).
; 17-Mar-93	DAL	Changed code after yes_atalk to check for Ethernet
;			by looking at the CmdTable (yuck) instead of looking
;			at the .AppleTalk DIB slot number, because on a network
;			boot the drivers don't exist yet.
;
;  2-Apr-93	SS	Changed version to $0401 for 6.0.1 (final)
;
;********************************************************************************

;
; Include equates and macro files
;

		load	'equates.dump'
		
;
; Set proper assembler modes, etc.
;
		longa	on
		longi	on
		string	asis			; strings without length byte
;
; Constants specific to this FST
;
my_fst_attr	equ	$0000			; block FST, mixed case, no format
my_fst_vers	equ	$0401			; 04.01 final
max_vol_size	equ	$007FFFFF
min_vol_size	equ	1			; meaningless (format use only)
max_file_size	equ	$FFFFFFFF

;
; Define imports/exports
;
		entry	app_entry:code
		entry	sys_entry:code
		entry	go_comp:code

;
; This is the FST header
;
header		proc

		dc.b	'FST '			; this is an FST
		dc.l	app_entry
		dc.l	sys_entry
		dc.w	my_fst_id
		dc.w	my_fst_attr
		dc.w	my_fst_vers
		dc.w	fst_blk_size
		dc.l	max_vol_size
		dc.l	min_vol_size
		dc.l	max_file_size
		dc.l	0			; reserved
; String to identify during formatting
		str	'AppleShare'		; type of FST
; String to display during booting
		str	'AppleShare FST        v04.01'
		dc.w	0			; reserved
		str	'AppleShare FST written by Mark Day.'
		endp


;------------------------------------------------------------
;
; cmd_tbl
;
; This table contains the addresses of command handlers for
; each GS/OS call.  The ones I don't handle (such as device
; calls) exit by returning a bad_call_num error.
;
;------------------------------------------------------------

cmd_tbl		record	entry
		import	cmd_err
		import	create,destroy
		import	change_path
		import	set_file_info,get_file_info
		import	volume
		import	clear_backup
		import	open,close
		import	read,write,flush
		import	get_mark,set_mark
		import	get_eof,set_eof
		import	get_dir_entry
		import	get_dev_num
		import	read_block,write_block
		import	format,erase_disk
		import	fst_specific
		import	JudgeName
first
		dc.w	create		; $01
		dc.w	destroy		; $02
		dc.w	cmd_err		; $03 = purge
		dc.w	change_path	; $04
		dc.w	set_file_info	; $05
		dc.w	get_file_info	; $06
		dc.w	JudgeName	; $07
		dc.w	volume		; $08
		dc.w	cmd_err		; $09 = set_prefix
		dc.w	cmd_err		; $0A = get_prefix
		dc.w	clear_backup	; $0B
		dc.w	cmd_err		; $0C = destroy_purge
		dc.w	cmd_err		; $0D = null
		dc.w	cmd_err		; $0E = expand_path
		dc.w	cmd_err		; $0F = alter_dir
		dc.w	open		; $10
		dc.w	cmd_err		; $11 = newline
		dc.w	read		; $12
		dc.w	write		; $13
		dc.w	close		; $14
		dc.w	flush		; $15
		dc.w	set_mark	; $16
		dc.w	get_mark	; $17
		dc.w	set_eof		; $18
		dc.w	get_eof		; $19
		dc.w	cmd_err		; $1A = set_level
		dc.w	cmd_err		; $1B = get_level
		dc.w	get_dir_entry	; $1C
		dc.w	cmd_err		; $1D = RESERVED
		dc.w	cmd_err		; $1E = RESERVED
		dc.w	cmd_err		; $1F = RESERVED
		dc.w	get_dev_num	; $20
		dc.w	cmd_err		; $21 = get_last_dev
		dc.w	read_block	; $22   (returns error)
		dc.w	write_block	; $23   (returns error)
		dc.w	format		; $24 = format (returns error)
		dc.w	erase_disk	; $25 = erase_disk (returns error)
		dc.w	cmd_err		; $26 = reset_cache
		dc.w	cmd_err		; $27 = get_name
		dc.w	cmd_err		; $28 = get_boot_vol
		dc.w	cmd_err		; $29 = quit
		dc.w	cmd_err		; $2A = get_version
		dc.w	cmd_err		; $2B = get_fst_info
		dc.w	cmd_err		; $2C = d_info
		dc.w	cmd_err		; $2D = d_status
		dc.w	cmd_err		; $2E = d_control
		dc.w	cmd_err		; $2F = d_read
		dc.w	cmd_err		; $30 = d_write
		dc.w	cmd_err		; $31 = alloc_interrupt / bind_int
		dc.w	cmd_err		; $32 = dealloc_interrupt / unbind_int
		dc.w	fst_specific	; $33
next
		export	max_cmd:equ
max_cmd		equ	next-first
		endr



;------------------------------------------------------------
;
; sys_tbl
;
; This table contains the addresses of command handlers for
; FST system calls.
;
;------------------------------------------------------------

sys_tbl		record	entry
		import	startup,shutdown
		import	remove_vcr,deferred_flush
first
		dc.w	startup
		dc.w	shutdown
		dc.w	remove_vcr
		dc.w	deferred_flush
next
		export	max_sys:equ
max_sys		equ	next-first
		endr


;------------------------------------------------------------
;
; app_entry
;
; This is the entry point for ALL standard operating system
; calls made through GS/OS.
;
; Entry:	X = call number * 2
;		Y = class number * 2
;
;------------------------------------------------------------

		longa	on
		longi	on
		
app_entry	proc	export
		import	QDFlag,QDDpage
		import	mydata:tdata	; for err_priority
		export	cmd_err
		
		ProcName app_entry
		
		phk
		plb			; lets me use short addressing
		rep	#$30		; make sure we're in 16-bit mode

		cpx	#max_cmd+1	; is command out of range?
		bge	cmd_err
		phx			; save X,Y
		phy

;		pha			; space for result
;		ldx	#$0604		; QDStatus
;		jsl	$E10000
;		pla
;		sta	QDFlag		; save for arrows
;		beq	inactive	; QD inactive, so no WAP
;		pha			; push long space for result
;		pha
;		pea	0		; system toolset
;		pea	4		; QuickDraw
;		ldx	#$0C01		; _GetWAP
;		jsl	$E10000
;		pla			; get direct page
;		plx			; ignore high word
;		sta	QDDPage		; save QuickDraw's DP address
;inactive
*** shortcutted 21-Jan-93 DAL
		phd
		lda $e103c8+2		;system WAP table pointer
		pha
		lda $e103c8
		pha
		tsc
		tcd
		ldy #4*4		;QuickDraw * 4
		lda [1],y
		sta QDDpage
		sta QDFlag
		plx
		plx
		pld		
*** end 21-Jan-93

		ply			; restore X,Y
		plx
		stz	mydata.err_priority	; clear error priority bit
		jmp	(cmd_tbl-2,x)
cmd_err
		lda	#bad_call_num	; call number out of range
		sec
		jml	sys_exit
		
		endp


;------------------------------------------------------------
;
; sys_entry
;
; This is the entry point for ALL FST system calls.
;
; Entry:	Full native mode
;		X = call number * 2
;		Y = class number * 2
;
;------------------------------------------------------------

sys_entry	proc	export
		
		ProcName sys_entry
		
		phk
		plb
		
		cpx	#max_sys+1	; is command number OK?
		bge	@err
		jmp	(sys_tbl-2,x)
@err
		lda	#bad_call_num
		sec
		rtl			; remember, return via RTL
		
		endp


;--------------------------------------------------
; Startup:
;
; Save address of system general I/O buffer for
; later calls.  Save completion return address.
; Check for presence of .AppleTalk (error if not
; present, causing FST to be unloaded).  If booting
; over the network, the device dispatcher hasn't
; been started up yet, so assume appletalk will be
; loaded properly.
;--------------------------------------------------

startup		proc	export
		import	SPCommand:tSPCommand
		import	SPWrite:tSPWrite
		import	GetSVersion:tGetVersion
		import	mydata:tdata
		import	QtrHandler:code
		
		ProcName startup
		
		with	dp,mydata
		
atalk_id	equ	$001D			; device ID of .AppleTalk
priority_vec	equ	$E1103A			; AppleTalk priority vector

		lda	priority_vec
		cmp	#$6B6B			; starting over AppleTalk?
		bne	check_atalk		; no, look for driver
		lda	priority_vec+2		; check high word for good measure
		beq	yes_atalk		; starting over net, AppleTalk present

check_atalk
		lda	#1			; start with first device
		sta	dev_dev_id		; save this device #
		stz	dev_num			; to dispatcher itself
loop
		lda	#drvr_get_dib		; I want my DIB!
		sta	dev_callnum
		
		jsl	Dev_Dispatcher		; make the call....
		bcs	no_atalk		; don't install me if error

		ldy	#dib_dev_id		; point to device ID
		lda	[dev_dib_ptr],y
		cmp	#atalk_id		; is it .AppleTalk?
		beq	yes_atalk		; yes, so get on with it
		
		inc	dev_dev_id		; try the next device
		bra	loop
no_atalk

		pea	47			; error 47: Install AppleShare
;		pushlong #0			; no substitution strings
;		pushlong #0
*** opt 21-Jan-93 DAL
		lda	#0
		pha
		pha
		pha
		pha
*** end 21-Jan-93
		jsl	report_error		; cause message to be displayed
		
		sec				; unload me please
		lda	#0			; I've already put up an error
		rtl

yes_atalk

;*** 21-Jan-93 DAL -- fetch network slot number for future reference
;		ldy	#dib_slotnum
;		lda	[dev_dib_ptr],y
;		sta	NetworkSlotNumber
;*** end 21-Jan-93

*** changed 17-Mar-93 DAL
CmdTable	equ	$E1D600

StateReg	equ	$E1C068
LCBank2		equ	$E1C083

		sep	#$20
		lda	>StateReg
		pha			; save LC bank
		lda	>LCBank2
		lda	>LCBank2	; allow write to language card
		rep	#$20

		lda	>$ff*4+CmdTable
		beq	@storeSlot
		lda	#8		;flag Ethernet
@storeSlot	sta	NetworkSlotNumber

		sep	#$20
		pla
		sta	>StateReg	; restore LC bank
		rep	#$20
*** end 17-Mar-93


		jsl	Get_Sys_GBuf		; Get buffer address
		stx	gbuf_addr		; and save off in static
		sty	gbuf_addr+2		; storage for later.
		stx	gbuf_ptr		; and temp. copy on DP
		sty	gbuf_ptr+2
		
		tdc				; remember where GSOS DP is
		sta	gsos_dp_addr
		
		pha				; space for result
		_MMStartup
		plx				; get user ID
		stx	my_mem_id		; save for others to use

		lda	#$0200			; sync GetInfo
		sta	[gbuf_ptr]		; in beginning of GBUF
		ldx	gbuf_ptr		; point to parameter list
		ldy	gbuf_ptr+2
		jsl	RamDispatch		; make the call
		ldy	#4
		lda	[gbuf_ptr],y		; get completion routine return
		sta	go_comp+1		; save for returns
		iny
		iny
		lda	[gbuf_ptr],y
		sta	go_comp+3

		lda	#$2000			; sync SPCommand
		sta	SPCommand
		lda	#$2100			; sync SPWrite
		sta	SPWrite
		lda	#$3A00			; sync GetSVersion
		sta	GetSVersion
		
		php				; save interrupt state
		sei				; stuffing an interrupt handler
		lda	ToQtr			; stuff the vector
		sta	QtrVector
		lda	ToQtr+2
		sta	QtrVector+2
		plp				; restore interrupt state
		
		lda	warm_cold_flag		; is it a warm startup?
		bne	ok_exit			; yes, don't change defaults
		
		stz	def_access		; default: don't set anything
		stz	def_access+2
		stz	def_owner		; null owner name (i.e. guest)
		stz	def_group		; no group name
		
ok_exit
		clc
		lda	#0
		rtl

ToQtr		jml	QtrHandler		; this goes in QtrVector

		export NetworkSlotNumber
NetworkSlotNumber dc.w 0			;21-Jan-93 DAL

		endwith				; with dp,mydata
		endp

shutdown	proc	export
		with	dp
		
		ProcName shutdown
		
		IF 0 THEN
		lda	#1			; first VCR in the list
loop
		jsl	Get_VCR			; any more VCRs?
		bcs	done
		jsl	Deref			; get real address
		stx	my_vcr_ptr
		sty	my_vcr_ptr+2
		ldy	#vcr.fst_id
		lda	[my_vcr_ptr],y		; who owns this VCR?
		cmp	#my_fst_id		; is it me?
		bne	next			; no, so check the next one
		lda	[my_vcr_ptr]		; get VCR ID number
		jsl	Release_VCR		; release it!
next
		lda	#0
		bra	loop
done
		ENDIF
		
		lda	warm_cold_flag		; warm shutdown?
		bne	is_warm			; yes, so don't remove vector

		php				; save interrupt state
		sei				; turn off interrupts to patch vector
		lda	#$006B			; RTL <NUL>
		sta	QtrVector
		lda	#$0000			; <NUL> <NUL>
		sta	QtrVector+2
		plp				; restore interrupt state
		
is_warm		clc
		lda	#0
		rtl
		
		endwith
		endp

remove_vcr	proc	export
		with	dp
		
		import	closevol:code
		
		ProcName remove_vcr
		
;		pei	my_vcr_ptr+2		; save vcr pointer
;		pei	my_vcr_ptr
;
; dereference VCR vp that GS/OS gave me
;		ldx	vcr_addr
;		ldy	vcr_addr+2
;		jsl	deref			; call SCM to deref the VP
;		stx	my_vcr_ptr
;		sty	my_vcr_ptr+2
		
		jsr	closevol		; stop the timers, etc.
		
;		pla
;		sta	my_vcr_ptr		; restore the pointer
;		pla
;		sta	my_vcr_ptr+2
		
		clc
		lda	#0
		rtl
		
		endwith				; with dp
		endp

deferred_flush	proc	export
		clc
		lda	#0
		rtl
		endp

;--------------------------------------------------
; Block I/O routines
;
; All of these routines return a bad_call_num error.
;--------------------------------------------------
common_block	proc		; return an invalid device request error
		export	(read_block,write_block,format,erase_disk):code

read_block
write_block
format
erase_disk
		sec
		lda	#$0088
		jml	sys_exit

		endp

;--------------------------------------------------
; Go_Comp
;
; This is the jump to the completion routine
; return address.
;--------------------------------------------------
go_comp		proc	export
		jml	0	; modified: will jump to completion return
		dc.b	0	; for extra address byte
		endp
		
		end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/JudgeName.aii b/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/JudgeName.aii
new file mode 100644
index 0000000..b84d5f2
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/JudgeName.aii
@@ -0,0 +1 @@
+;------------------------------------------------------------
;
; JudgeName
;
; Evaluates the syntax of a filename, including correcting it
; and returning a string for the user.
;
; Uses:
;	my_path_len	Maximum length of kind of name
;	my_path_ptr	Points to file name to check
;	my_store_type	Kind of name (fileKind)
;	my_bitmap	Flags indicating kind of error
;
;
; 06-Feb-91	MSD	Fixed check for buffer too small.  If
;			the size was less than 4 bytes, it
;			wasn't returning an error.
;
; 07-Jan-92	MSD	Now returns error $53 (invalid parm)
;			for fileKind > 3.  Fixed an unreported bug
;			where passing a name buffer less than 4 bytes
;			would return carry clear and the length-4
;			as the error code.
;
; 25-Mar-92	DAL	for 6.1.  Changed JudgeName message to read
;			"Disk names may..." instead of "Volume names
;			may...."
;
;------------------------------------------------------------

		load	'equates.dump'
		
		import	(PreProcess,main_exit):code
		import	mydata:tdata

;------------------------------------------------------------
; Definition of parameter list for JudgeName call
;------------------------------------------------------------
p		record	0
fileSysID	ds.w	1	; requested file system's syntax
fileKind	ds.w	1	; 0 = unknown
				; 1 = volume name
				; 2 = directory name
				; 3 = file name
syntax		ds.l	1	; returned string of syntax rules
maxLen		ds.w	1	; maximum length of kind of name
name		ds.l	1	; result buffer where name is
flags		ds.w	1	; bit 15 = contained invalid characters
				; bit 14 = was too long
				; bit 13 = syntax error
		endr

JudgeName	proc	export
		with	dp,mydata
		
kInvalChars	equ	$8000
kTooLong	equ	$4000
kSyntax		equ	$2000

kVolume		equ	1
kDirectory	equ	2
kFile		equ	3
kMaxFileKind	equ	3


leftLen		equ	math_temp	; how many chars on left to keep
rightLen	equ	math_temp+2	; how many chars on right to keep

		ProcName JudgeName

		jsr	PreProcess	; make sure call is valid

		dec	pcount		; skip fileSysID
		dec	pcount		; skip fileKind

;
; Get a local copy of the requested name kind
;
		ldy	#p.fileKind
		lda	[my_pb_ptr],y	; get kind of name
		sta	my_store_type	; save for later
		cmp	#kMaxFileKind+1	; bigger than anything I know about?
		blt	@ok		; no, it's OK
		lda	#invalid_parm
		bra	go_err		; return the error
@ok

;
; Always return a pointer to the syntax rules (PString).
;
		iny
		iny			; y = p.kSyntax
		lda	#<Syntax
		sta	[my_pb_ptr],y
		iny
		iny
		lda	#^Syntax
		sta	[my_pb_ptr],y

;
; Any processing to do?
;
		dec	pcount		; was syntax string last parameter?
		beq	go_done		; yes, so exit now

;
; Return the maximum length for requested name type
;
		lda	#31		; assume file or folder
		dec	my_store_type	; was it 1 (volume name)
		bne	got_max		; no, so use 31 as max
		lda	#27		; volume max length is 27
got_max
		ldy	#p.maxLen
		sta	[my_pb_ptr],y	; put max length in pb
		sta	my_path_len	; and save for code below
		dec	pcount		; is that all?
		bne	check_name	; no, so scan the name
go_done		brl	done

;
; A pathname was supplied.  Check and fix it.
;
check_name
		stz	my_bitmap	; assume no errors
		
		iny
		iny			; Y = p.name
		lda	[my_pb_ptr],y	; get pointer to name in local var
		sta	my_path_ptr
		iny
		iny
		lda	[my_pb_ptr],y
		sta	my_path_ptr+2
		
;
; First, make sure result buffer is big enough to hold maximal name
;
		lda	[my_path_ptr]	; get buffer size
		sec
		sbc	#4		; subtract two length words
		blt	size_err	; not even that big -- error!
		cmp	my_path_len	; room for maximum length?
		bge	size_ok		; yes, no error
size_err	lda	#buffer_small	; buffer too small error
go_err		sec			; indicate error
		brl	exit		; return from call now
size_ok
;
; Change my_path_ptr to point to length word of name
;
		clc
		lda	my_path_ptr
		adc	#2
		sta	my_path_ptr
		lda	my_path_ptr+2
		adc	#0
		sta	my_path_ptr+2
		
;
; If name was empty string, set it to "A" and indicate syntax error
;
		lda	[my_path_ptr]	; non-empty name?
		bne	got_name	; yep, so check it
		
		lda	#1		; length of "A"
		sta	[my_path_ptr]	; update string length
		ldy	#2		; point to string text
		lda	#'A'
		sta	[my_path_ptr],y	; name = "A"
		lda	#kSyntax
		tsb	my_bitmap	; indicate syntax error
		bra	flag_exit	; exit and return flag

;
; Here, we have a real name.  Convert illegal characters (nulls and colons)
; to periods.
;
got_name
		inc	a			;adjust for extra length byte
		tay

		ldx	#0			;init to 0
		
		longa	off			;set 8 bit A
		sep	#$20

loop1		lda	[my_path_ptr],y		;get byte
		beq	@bad_char		;branch if it's a nul
		cmp	#':'			;is it a colon?
		bne	@ok			;no
@bad_char	lda	#'.'			;it's an illegal character so
		sta	[my_path_ptr],y		;replace it with a period
		ldx	#$8000			;indicate illegal character found
@ok		dey				;decrement offset
		cpy	#1
		bne	loop1			;loop until done

		longa	on			;set 16 bit A
		rep	#$20
		
		txa				;set bit 15 if an illegal
		tsb	my_bitmap		;character was found

;
; Check if the name is too long; if so:
; For filenames - keep the first 15 chars, insert '..', keep the last 14 chars
; For volume names - keep first 13 chars, insert '..', leep last 12 chars
;
		lda	[my_path_ptr]		; get length
		dea				; length-1 is easier to compare with
		cmp	my_path_len		; is it short enough?
		blt	flag_exit		; yes, so done and return flags

		lda	my_path_len		;max_len = 31 or 27
		lsr	a
		sta	<leftLen		;leftLen <- 15 or 13
		inc	a
		inc	a
		tay				;Y <- 17 or 15
		lda	#'..'			
		sta	[my_path_ptr],y		;insert the '..'
		
		iny				;adjust Y past the '..'
		iny
		phy				;and save

		dec	<leftLen		;leftLen <- 14 or 12
		lda	[my_path_ptr]		;get length of name
		inc	a			;add 2 because of length word
		inc	a
		sta	<rightLen		;and save for later
		sec
		sbc	<leftLen		;subtract 14 or 12 to get offset
		tax				;to last part of name to keep
		
		longa	off			;set 8 bit A
		sep	#$20

loop2		txy				;move the last 12 or 14 chars 
		lda	[my_path_ptr],y		;so they are after the '..'
		ply
		sta	[my_path_ptr],y
		iny
		phy
		inx
		cpx	<rightLen		;are we done?
		bcc	loop2			;no - so loop
		ply				;clean up stack
		
		longa	on			;set 16 bit A
		rep	#$20
		
		lda	my_path_len		;adjust the name length
		sta	[my_path_ptr]
		
		lda	#kTooLong		;set bit 14 to indicate
		tsb	my_bitmap		;name was too long

;
; Here, we're done processing the name.  If they wanted the error flags,
; then return them.  Then just exit with no error.
;
flag_exit
		dec	pcount		; did name, anything else?
		beq	done		; no, so exit now
		
		ldy	#p.flags
		lda	my_bitmap	; get returned error flags
		sta	[my_pb_ptr],y	; put flags back in pb
		
done
		clc
		lda	#0
exit
		jmp	main_exit


Syntax
		dc.b	synEnd-synStart
synStart	DC.B	'AppleShare names may contain any character except a colon (:). '
		DC.B	'Disk names may be up to 27 characters long. '
		DC.B	'File and folder names may be up to 31 characters long.'
synEnd
		endwith
		endp

		end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/Mark.aii b/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/Mark.aii
new file mode 100644
index 0000000..cf3f9a0
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/Mark.aii
@@ -0,0 +1 @@
+;------------------------------------------------------------
; File: mark.aii
;
; This file contains the code for the Set_Mark and Get_Mark
; calls.  Note: Get_Mark is pretty easy, but Set_Mark has
; to deal with buffering and dirty I/O buffers.
;
;------------------------------------------------------------

		load	'equates.dump'

		import	(PreProcess,main_exit):code
		import	(get_disp,fill_buffer):code
		import	do_flush:code
		import	mydata:tdata
		
;------------------------------------------------------------
; Structure of Set_Mark and Get_Mark parameter lists
;------------------------------------------------------------
p		record	0
		ds.w	1		; file reference number
position	ds.l	1		; mark for Get_Mark, Set_Mark(0)
		org	position
base		ds.w	1		; base for Set_Mark(1)
disp		ds.l	1		; displacement for Set_Mark(1)
		endr


;------------------------------------------------------------
; Get_Mark
;
; This call takes a file reference number and returns the
; current position (mark) in the file.
;
; On entry:
;	Full native mode.
;
; On exit:
;	Full native mode.
;
; Modification history:
; 25-Jul-88	MSD	Started coding.
;
;------------------------------------------------------------

get_mark	proc	export
		with	dp,mydata

		ProcName get_mark
		
		jsr	PreProcess		; validate the call

		ldy	#fcr.mark+2
		lda	[my_fcr_ptr],y		; get mark, high word
		tax				; save in X
		dey
		dey
		lda	[my_fcr_ptr],y		; get mark low word

		ldy	#p.position
		sta	[my_pb_ptr],y		; return low word
		txa				; recover high word
		iny
		iny
		sta	[my_pb_ptr],y		; return high word

		clc				; no error
		lda	#0
		jmp	main_exit		; done with call

		endwith				; with dp
		endp

;------------------------------------------------------------
; Set_Mark
;
; This call takes a file reference number and position in
; the file (the mark).  It will set the current position to
; the value given.  This may force a flush of a dirty I/O
; buffer and the reading of a new data block if buffering is on.
;
; On entry:
;	Full native mode.
;
; On exit:
;	Full native mode.
;
; Modification history:
; 25-Jul-88	MSD	Started coding.
;  8-Sep-88	MSD	Check for mark>EOF (error if so)
; 16-Sep-88	MSD	Return any errors from get_disp.
; 25-Oct-88	MSD	Added support for buffering.
;
;------------------------------------------------------------

set_mark	proc	export
		with	dp,mydata

		ProcName set_mark
		
		jsr	PreProcess		; validate the call

		jsr	do_flush		; write data, update EOF
		bcs	exit

		jsr	get_disp		; base/displacement => mark
		bcs	exit			; return any errors

;------------------------------------------------------------
; At this point, the current mark is in A (high), X (low).
; Do a bad position error if mark > EOF (mark - EOF - 1 >= 0).
;------------------------------------------------------------
		sta	cur_mark+2		; save mark for fill_buffer
		stx	cur_mark
		
		sta	math_temp		; save high word
		txa				; get low word in A
		clc				; subtract an extra 1
		sbc	cur_eof			; subtract low words
		lda	math_temp		; get high word
		sbc	cur_eof+2		; subtract high words
		bge	do_bad_pos		; error if result >= 0

		lda	math_temp		; get high word
		ldy	#fcr.mark+2
		sta	[my_fcr_ptr],y		; set high word
		txa				; get low word
		dey
		dey
		sta	[my_fcr_ptr],y		; set low word

		clc				; no errors!
		lda	#0
exit
		jmp	main_exit		; call done
do_bad_pos
		sec
		lda	#bad_pos		; position out of range
		bcs	exit			; do the error

		endwith				; with dp
		endp

		end

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/Open.aii b/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/Open.aii
new file mode 100644
index 0000000..93db643
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/Open.aii
@@ -0,0 +1 @@
+;------------------------------------------------------------
; Open
;
; This call takes a pathname and opens the fork/directory.
; An FCR is created (hence a refnum is assigned).
; Directories are handled much differently than files.
;
; On entry:
;	Full native mode.
;
; On exit:
;	Full native mode.
;
; Modification history:
; 25-Jul-88	MSD	Started coding.
; 26-Aug-88	MSD	Class 0 calls used the fork number
;			and requested access of the previous
;			call.  Fixed by moving setting of
;			default values before PreProcess.
;  9-Sep-88	MSD	Do not allow open of folders with no
;			see files and no see folders.  Mode
;			file was opened in is stored in FCR.
; 19-Sep-88	MSD	Class 0 deny modes made same as for
;			Toucan (class 1 is still "safer").
; 17-Dec-88	MSD	Adding volume modified events.
; 06-Feb-91	MSD	Removed "Bozo" alert.
;
;------------------------------------------------------------

		load	'equates.dump'

		import	(PreProcess,main_exit,CheckParent):code
		import	proc_path1:code
		import	(StartPacket,SendPacket):code
		import	(PutIDs,PutByte,PutWord,PutPath):code
		import	(StartReply,GetWord):code
		import	remove_fcr:code
		import	(com_get_info,send_info):code
		import	addclient:code
		import	set_eject:code
		import	mydata:tdata

;------------------------------------------------------------
; Bitmaps for GS/OS and AFP request/deny access bits
;------------------------------------------------------------
req_read	equ	$0001			; request read access
req_write	equ	$0002			; request write access
deny_read	equ	$0010			; deny read access to others
deny_write	equ	$0020			; deny write access to others

;------------------------------------------------------------
; Definition of parameter list for Open call
;------------------------------------------------------------
p		record	0
refnum		ds.w	1			; returned reference number
pathname	ds.l	1			; pathname pointer
reserved0					; reserved long (class 0)
req_accs	ds.w	1			; requested access
fork_num	ds.w	1			; fork number to open
; returned file info starts here
access		ds.w	1			; returned access word
		ds.w	1			; returned file type
		ds.l	1			; returned aux type
		ds.w	1			; returned storage type
		ds.b	8			; returned create date/time
		ds.b	8			; returned mod date/time
		ds.l	1			; pointer to option list
		ds.l	1			; returned data fork EOF
		ds.l	1			; returned data blocks used
		ds.l	1			; returned resource EOF
		ds.l	1			; returned resource blocks used
		endr


open		proc	export
		with	dp,mydata

		ProcName open
		
		stz	request_access		; default: as permitted
		stz	fork_number		; default: data fork

		jsr	PreProcess		; validate the call
		bne	class1			; skip class 0 stuff if class 1

		lda	#2			; only refnum and path
		sta	pcount
				
class1
		dec	pcount			; skip refnum
		dec	pcount			; skip pathname
		beq	find_it			; end of parameters?

		ldy	#p.req_accs
		lda	[my_pb_ptr],y		; get requested access
		bit	#$FFFC			; make sure reserved bits are 0
		bne	do_invalid		; reserved<>0 => error
		sta	request_access
		
		dec	pcount			; skip over access
		beq	find_it

		iny
		iny				; Y = p.fork_num
		lda	[my_pb_ptr],y		; get fork number
		bit	#$FFFE			; is it valid (0,1)?
		beq	ok_forknum		; yes, so use it
do_invalid
		sec
		lda	#invalid_parm		; fork number was invalid
		brl	exit

ok_forknum
		lsr	a			; shift fork # into carry
		ror	fork_number		; shift into fork flag
		dec	pcount			; skip over fork number

find_it
		jsr	proc_path1		; go find the file
		bcc	found_file		; found, continue
		brl	exit			; return the error

found_file
		jsr	com_get_info		; go get file info
		bcc	got_info		; OK, continue
		cmp	#access_error		; in a drop box?
		bne	@err			; no, return other error
		ldx	pcount			; did they want file info?
		bne	@err			; if so, return access error
		stz	filedir_flag		; assume it's a file
		bra	got_info		; and continue with open
@err
		sec				; force carry set for error
		brl	exit			; return the error

got_info
;------------------------------------------------------------
; If this is a folder, and it does not have its read bit set,
; don't even bother to allow the open.
;------------------------------------------------------------
		lda	filedir_flag
		and	#$0080			; is it a folder?
		beq	@file			; no, skip read bit check

		lda	my_access		; get access word
		and	#$0001			; is read bit set?
		beq	@noaccess		; if not, return error

		lda	request_access		; how did they want to open it?
		and	#$0002			; want write to folder?
		beq	@access			; if not, it's ok to open
@noaccess
		sec				; do access denied error
		lda	#access_error
		brl	exit			; return the error
@access
		lda	fork_number		; did they want a resource fork?
		beq	@file			; data fork is OK
		
		sec
		lda	#res_not_found		; folders don't have resources!
		brl	exit
@file

		IF 0 THEN
;
; Note: This code is no longer used since a pointer to the
; volume name is now passed to Alloc_FCR
;
;------------------------------------------------------------
; Set up the FCR now, including common fields.
;
; First, strip off the filename to put in the FCR.
;------------------------------------------------------------

		ldx	gstring			; in case partial path is null
		sep	#$30			; 8 bits for strings
		longa	off
		longi	off

		ldy	partial_path		; get length, is it zero?
		beq	got_name		; zero, volume name already in gstring
		iny				; fix Y for loop
find_sep
		dey				; check next character
		lda	partial_path,y
		beq	found_sep		; branch if separator
		cpy	#0			; scanned whole name?
		bne	find_sep		; if not, loop again
;------------------------------------------------------------
; Here, Y points to the separator before the filename (or
; to the length byte if there was no separator).  Copy the
; rest of the partial path into gstring.
;
; Y = index into partial_path
; X = index into gstring
;------------------------------------------------------------
found_sep
		ldx	#0			; start with first char
copy_name
		inx
		iny
		lda	partial_path,y
		sta	gstring+1,x		; remember, length WORD
		cpy	partial_path		; copied it all?
		bne	copy_name		; no, do some more

;------------------------------------------------------------
; X = length of filename
;------------------------------------------------------------
got_name
		rep	#$30			; back to full native
		longa	on
		longi	on
		stx	gstring			; save length word
		ENDIF

do_fcr
;------------------------------------------------------------
; If folder, buffer is 2K.  If file, buffer is 512 bytes.
;------------------------------------------------------------
		ldx	#fcr.buffer+512		; assume a file
		lda	filedir_flag
		and	#$0080			; is it a folder?
		beq	@file			; no, skip read bit check
		ldx	#fcr.buffer+2048	; size for folders
@file
		txa				; size goes in A

		ldx	gstring			; get volume length
		inx				; plus 1 for colon
		ldy	#'::'			; just need one colon...
		sty	gstring			; put colon in gstring+1
		stx	gstring-1		; save word length in gstring-1
		
		ldx	#<gstring-1		; point to ":"volname
		ldy	#^gstring-1
		sec				; please zero the buffer
		jsr	Alloc_FCR		; build an FCR for me
		bcc	got_fcr			; return any errors
		brl	exit
		
;------------------------------------------------------------
; The FCR is built.  Save the pointer to it.
;------------------------------------------------------------
got_fcr
		lda	gstring-1		; get modified length
		dea
		sta	gstring			; save original length
		
		jsl	Deref			; get a real address
		stx	my_fcr_ptr		; save for filling in
		sty	my_fcr_ptr+2

		ldy	#vcr.open_cnt
		lda	[my_vcr_ptr],y		; get volume's open file count
		ina				; plus 1 for this file
		sta	[my_vcr_ptr],y		; and update open count
		lda	#$8000			; don't allow eject
		jsr	set_eject		; set eject status of volume
		
		lda	#my_fst_id
		ldy	#fcr.fst_id
		sta	[my_fcr_ptr],y		; set FST ID = mine
		
		lda	[my_vcr_ptr]		; get VCR ID
		iny
		iny				; Y = fcr.vcr_id
		sta	[my_fcr_ptr],y		; save FCR's VCR ID

		lda	#buffer_active		; turn on buffering
		ldy	#fcr.flags
		sta	[my_fcr_ptr],y		; save buffer flag.

;------------------------------------------------------------
; Now find out if this is a file or directory.
;------------------------------------------------------------
		lda	filedir_flag
		and	#$0080			; is it a directory?
		beq	is_file			; no, go do file open

;------------------------------------------------------------
; They want to open a directory.  Save off info
;------------------------------------------------------------
		ldy	#fcr.dirflag
		lda	#fcr_is_dir		; indicate this is directory
		sta	[my_fcr_ptr],y

		ldy	#fcr.dirindex
		lda	#0			; enumerations start with first
		sta	[my_fcr_ptr],y

		ldy	#fcr.dirid
		lda	my_dirid		; copy DirID to FCR
		sta	[my_fcr_ptr],y
		iny
		iny
		lda	my_dirid+2
		sta	[my_fcr_ptr],y

		ldy	#fcr.access
		lda	#fcr_clean		; file is clean
		sta	[my_fcr_ptr],y
		
		lda	volume_sep		; just a volume name?
		bne	open_done
		
		jsr	addclient		; yes, so start volume modified events
		ldy	#fcr.dirflag
		lda	#fcr_is_dir+fcr_is_root	; say it is a root directory
		sta	[my_fcr_ptr],y		; update dirflag
open_done
		lda	[my_fcr_ptr]		; get FCR # (file refnum)
;		ldy	#p.refnum		; Y = 0
		sta	[my_pb_ptr]		; return to user (was [],y)

;------------------------------------------------------------
; Now check to see if they want any file information back.
;------------------------------------------------------------
		lda	pcount			; anything to return?
		beq	ok_exit

		clc
		lda	my_pb_ptr		; point my_pb_ptr to
		adc	#p.access		; access field for
		sta	my_pb_ptr		; send_info routine
		lda	my_pb_ptr+2
		adc	#0
		sta	my_pb_ptr+2
		
		jsr	send_info		; copy file info to parm list
		bcc	exit			; if no error, just return
		pha				; save error (buffer too small)
		jsr	remove_fcr		; get rid of the FCR
		pla				; restore error code
		sec				; force error condition
exit
		jmp	main_exit		; return error if any
ok_exit
		clc				; no errors
		lda	#0
		bra	exit			; return to application

;------------------------------------------------------------
; Here, they want to open a file.  Depending on the access
; they requested, I may have to try several access modes.
;------------------------------------------------------------
is_file
		lda	request_access		; what access do they want?
		beq	as_permitted		; as permitted is special

		jsr	try_open		; try with what they gave us
		bcc	open_worked		; do the rest if Open went OK

;------------------------------------------------------------
; If we get here, the FPOpenFork failed.  Now we must remove
; the FCR and return error to the user.
;------------------------------------------------------------
open_failed
		pha				; save error code
		jsr	remove_fcr		; get rid of the FCR
		pla
		sec
		bcs	exit			; return with error


as_permitted		
		lda	#req_read+req_write	; first try read/write
		jsr	try_open
		bcc	open_worked		; if it worked, it's open
		
		lda	#req_read		; next try read-only
		jsr	try_open
		bcc	open_worked
		
		lda	#req_write		; lastly, try write-only
		jsr	try_open
		bcs	open_failed		; error if this failed

;------------------------------------------------------------
; The FPOpen finally worked.  Copy file-specific info into
; the FCR (dirflag, fork refnum, mark).
;------------------------------------------------------------
open_worked
		ldy	#fcr.forkrefnum
		sta	[my_fcr_ptr],y		; save fork refnum in FCR

		lda	fork_number		; get data/resource flag
		lsr	a			; shift to $4000 bit
		ldy	#fcr.dirflag
		sta	[my_fcr_ptr],y		; save data/resource flag

		ldy	#fcr.access		; get access word
		ora	[my_fcr_ptr],y		; add data/res flag to access
		ora	#fcr_clean		; and the file is clean
		sta	[my_fcr_ptr],y		; save new access word w/flags
		
		and	#req_read+req_write	; get the requested mode
		cmp	#req_write		; want write-only?
		bne	@ok_buf			; no, so leave buffering on
		ldy	#fcr.flags
		lda	#$0000			; no buffering
		sta	[my_fcr_ptr],y
@ok_buf

		ldy	#fcr.mark
		lda	#0			; start mark at 0
		sta	[my_fcr_ptr],y
		iny
		iny
		sta	[my_fcr_ptr],y

		brl	open_done		; return from Open call

;------------------------------------------------------------
; Try_Open
;
; Try to do an FPOpenFork with the requested access.  Save
; access mode in FCR.
;
; On entry:
;	Full native mode
;	A = access desired (GS/OS style, low two bits only)
;
; On error exit:
;	c = 1
;	A = error code
;
; On OK exit:
;	c = 0
;	A = AFP fork refnum
;
;------------------------------------------------------------
try_open
		bit	#req_write		; requesting write?
		beq	no_write		; no, so skip this
		ora	#deny_write		; don't allow multiple writers
no_write
		ldy	class			; class 0?
		beq	got_open_mode		; yes, be easy like Toucan

		bit	#req_read		; want read access?
		beq	no_read
		ora	#deny_write		; if so, deny write
no_read
		bit	#req_write		; want write access?
		beq	got_open_mode
		ora	#deny_read		; if so, also deny read
got_open_mode

		ldy	#fcr.access
		sta	[my_fcr_ptr],y		; save opened access

		xba				; put in AFP byte order
		pha				; save access mode word
		
		lda	#afpOpenFork
		ora	fork_number		; add in data/res flag
		jsr	StartPacket		; start an OpenFork packet

		jsr	PutIDs			; copy VolID, DirID
		
		lda	#0			; don't want file parameters
		jsr	PutWord			; so put null bitmap
		
		pla				; get access mode
		jsr	PutWord
		
		clc				; don't align after path
		jsr	PutPath			; put pathname in packet
		
		jsr	SendPacket		; try the open
		jsr	CheckParent		; check for path not found
		bcs	try_open_err		; return with error
		
		jsr	StartReply		; get ready to look at reply
		jsr	GetWord			; ignore bitmap word
		
		jsr	GetWord			; get AFP fork refnum
		clc				; no error
try_open_x
		rts				; return to caller

try_open_err
		cmp	#bad_store_type		; bad storage type error?
		bne	@err			; if so, was folder in drop box
		lda	#access_error		; so return access denied
@err
		sec
		bra	try_open_x
		
		endwith				; with dp,mydata
		endp

		end

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/SendPacket.aii b/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/SendPacket.aii
new file mode 100644
index 0000000..00cd46f
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/SendPacket.aii
@@ -0,0 +1 @@
+
YowzaAlert	equ 0		;2-Apr-93 DAL

;------------------------------------------------------------
; File: SendPacket.aii
;
; This file contains the routines used to prepare an ASP
; command packet with an AFP command in it.  It also contains
; routines used to read from the reply packet.
;
; Modification history:
; 29-Jun-88	MSD	Started coding.
; 20-Jul-88	MSD	Dedicated buffers are now used for
;			the outgoing packet and its reply
;			(instead of GBUF).
;  1-Aug-88	MSD	Added routines StartWrite, SendWrite
;			for sending SPWrite packets.
;  4-Aug-88	MSD	Added "flashing arrows" to menu bar
;			while SendPacket and SendWrite are
;			executing.
; 15-Aug-88	MSD	Changed definition of SPCommand and
;			SPWrite.
;
;  1-Apr-93	JCM	Fixed SendWrite so if an error occurred,
;			it now reads the code from the correct
;			buffer, SPWrite, instead of SPCommand.
;
; 2-Apr-93	DAL	Removed the debugging Yowza dialog
;			for 6.0.1 final.
;
;------------------------------------------------------------

		load	'equates.dump'

 MACRO
&lab _TLTextMountVolume
&lab ldx #$1201
     jsl $E10000
 MEND
 MACRO
&lab _HexIt
&lab ldx #$2A0B
     jsl $E10000
 MEND

		
		import	convert_error:code
		import	(draw_arrows,erase_arrows):code
		import	SPCommand:tSPCommand
		import	SPWrite:tSPWrite
		import	mydata:tdata

;------------------------------------------------------------
; StartPacket
;
; This routine prepares to fill in an ASP command packet.
; It takes the command number as input and puts it into
; the packet.  The packet pointer is initialized, etc.
;
; On entry:
;	Full native mode
;	A = AFP command number
;
; On exit:
;	Full native mode
;
;------------------------------------------------------------

StartPacket	proc	export
		with	dp,mydata

		ProcName StartPacket
		
;------------------------------------------------------------
; Fill in AFP command number
;------------------------------------------------------------
		sta	command_pkt		; for command number
		lda	#2			; offset past command
		sta	command_ndx		; and store in index		
;------------------------------------------------------------
; Copy command buffer and reply buffer addresses to
; parameter list
;------------------------------------------------------------
		lda	#<command_pkt		; low word
		sta	SPCommand.ComAddr
		lda	#^command_pkt		; high word
		sta	SPCommand.ComAddr+2

		lda	#<reply_pkt		; address of reply
		sta	reply_buf		; save pointer to it
		sta	SPCommand.RepAddr
		lda	#^reply_pkt
		sta	reply_buf+2
		sta	SPCommand.RepAddr+2

		lda	#NormSPData		; set up default SPCommand
		sta	SPCommand.RepBufLen	; reply buffer length

;------------------------------------------------------------
; Copy SessRefnum to SPCommand param list
;
; Note: this overwrites the Command Block Length field which
; will be set during the SendPacket routine.
;------------------------------------------------------------
		lda	SessRefnum
		sta	SPCommand.SRef

		rts

		endwith
		endp

;------------------------------------------------------------
; SendPacket
;
; This routine sends a filled-in SPCommand packet out on the
; appropriate session.  It takes the current command index to
; be the length of the command packet.
;
; On entry:
;	Full native mode
;	packet_ndx = length of command packet
;
; On exit:
;	Full native mode
;	c = 1 if error (A = error code)
;
;------------------------------------------------------------

SendPacket	proc	export

		ProcName SendPacket
		
		lda	mydata.command_ndx
		sta	SPCommand.ComLen

		php
		php
		pla				; get interrupt status
		and	#4			; interrupts disabled?
		bne	do_io_error		; yes, so can't do I/O

		jsr	draw_arrows		; draw arrows in menu bar
@again
		ATCall	SPCommand
		lda	SPCommand.Result
		cmp	#$0702			; too many ASP calls error?
		beq	@again			; if so, try the call again
		pha				; save ASP error code
		jsr	erase_arrows		; undraw arrows
		pla				; restore error code
		bne	offline			; assume an error means offline
		
		lda	SPCommand.ComRes+2	; get AFP's command result
		jsr	convert_error		; turn it into a GS/OS error
exit
		rts

offline		ldy	#^SPCommand
		ldx	#SPCommand
		jsr	DisplayError
		lda	#offline_error		; assume error was volume offline
		sec
		bcs	exit
do_io_error
		lda	#io_error
		sec
		bcs	exit

******************************************************************************************************
	if YowzaAlert then
;
; A = error code
; YX = pointer to parm block
;
		export DisplayError
DisplayError	pha

		phx	;low word

		pha
		pha	;space for HexIt
		phy	;input
		_HexIt
		pla	;discard high nibbles
		pla
		sta >String2+13

		plx
		pha
		pha	;space for HexIt
		phx	;input
		_HexIt
		pla
		sta >String2+15
		pla
		sta >String2+17

		lda 1,s		;added 1-Apr-93 DAL
		pha
		pha		;space for result
		pha		;input
		_HexIt
		pla
		sta >String2+1
		pla
		sta >String2+3

		pha
		pushlong #String1
		pushlong #String2
		pushlong #Button
		pushlong #Button
		_TLTextMountVolume
		pla

		pla
		rts

String1		dc.b 21,'Presto!  The error is'
String2		dc.b 4+14,'xxxx  ptr = xxxxxx'
Button		dc.b 5,'Yowza'

	else

		export DisplayError
DisplayError	rts

	endif

******************************************************************************************************
		endp

;------------------------------------------------------------
; PutByte
;
; This routine puts a byte into the current SPCommand
; packet at the current packet index.  The index is then
; bumped by 1 to point to the next byte in the packet.
;
; Note: StartPacket must have already been called.
;
; On entry:
;	Full native mode
;	A = byte to add to packet (only low order byte is
;	    significant)
;
; On exit:
;	Full native mode
;
;------------------------------------------------------------

PutByte		proc	export

		ProcName PutByte
		
		ldy	mydata.command_ndx
		sep	#$20			; store only 1 byte
		sta	mydata.command_pkt,y
		rep	#$20			; back to normal
		iny
		sty	mydata.command_ndx
		rts

		endp

;------------------------------------------------------------
; PutWord
;
; This routine puts a word into the current SPCommand
; packet at the current packet index.  The index is then
; bumped by 2 to point to the next byte in the packet.
;
; Note: StartPacket must have already been called.
;
; On entry:
;	Full native mode
;	A = word to add to packet
;
; On exit:
;	Full native mode
;
;------------------------------------------------------------

PutWord		proc	export

		ProcName PutWord
		
		ldy	mydata.command_ndx
		sta	mydata.command_pkt,y
		iny
		iny
		sty	mydata.command_ndx
		rts

		endp

;------------------------------------------------------------
; PutLong
;
; This routine puts 4 bytes into the current SPCommand
; packet at the current packet index.  The index is then
; bumped by 4 to point to the next byte in the packet.
;
; Note: StartPacket must have already been called.
;
; On entry:
;	Full native mode
;	A = first word to add to packet
;	X = second word to add to packet
;
;	Remember: AFP values are in high-low format!!!
;
; On exit:
;	Full native mode
;
;------------------------------------------------------------

PutLong		proc	export

		ProcName PutLong
		
		ldy	mydata.command_ndx
		sta	mydata.command_pkt,y
		iny
		iny
		txa
		sta	mydata.command_pkt,y
		iny
		iny
		sty	mydata.command_ndx
		rts

		endp

;------------------------------------------------------------
; PutBlock
;
; This routine puts a series of bytes from a user's buffer
; into the current command packet at the current command
; index.  It then bumps the command index past the block
; of bytes.
;
; On entry:
;	Full native mode
;	A = # of bytes to put
;	X = address of buffer to get bytes (low)
;	Y = address of buffer to get bytes (high)
;
; On exit:
;	Full native mode
;
;------------------------------------------------------------

PutBlock	proc	export
		with	dp,mydata

		ProcName PutBlock
		
		stx	src_ptr			; set up pointer to buffer
		sty	src_ptr+2
		sta	math_temp		; save block length
		cmp	#0			; null block size?
		beq	done			; if so, skip copy

		ldx	command_ndx		; index to command packet
		ldy	#0			; index to user buffer
		sep	#$20			; 8 bit mode to move bytes
		longa	off

loop
		lda	[src_ptr],y		; get from user buffer
		sta	command_pkt,x		; store in command packet
		inx				; point to next byte
		iny				; increment transfer count
		cpy	math_temp		; all transfered?
		bne	loop			; if not, do more

		rep	#$20			; back to full native
		longa	on

		stx	command_ndx		; save index to command packet
done
		rts				; return to caller

		endwith				; with dp
		endp

;------------------------------------------------------------
; PutPartPath
;
; This routine puts the partial path specified by my_path_ptr
; and my_path_len into the current command packet at the
; current command index.  It then bumps the command index
; past the pathname.
;
; On entry:
;	Full native mode
;	partial_len	length of partial pathname
;	my_path_ptr	pointer to partial pathname
;
; On exit:
;	Full native mode
;
;------------------------------------------------------------

PutPartPath	proc	export
		with	dp,mydata
colon		equ	$003A			; filename separator (':')

		ProcName PutPartPath
		
		lda	#afp_long		; say AFP long naming mode
		jsr	PutByte
		
		lda	partial_len
		jsr	PutByte			; put length of path
		lda	partial_len
		and	#$00FF			; is it null string?
		beq	done			; if so, skip copy

		ldx	command_ndx		; index to command packet
		ldy	#0			; index to user buffer
		sep	#$20			; 8 bit mode to move bytes
		longa	off

loop
		lda	[my_path_ptr],y		; get from user buffer
		cmp	#colon			; is it a separator?
		bne	stuff_it		; if not, copy as is
		lda	#0			; colon becomes a $00
stuff_it
		sta	command_pkt,x		; store in command packet
		inx				; point to next byte
		iny				; increment transfer count
		cpy	partial_len		; all transfered?
		bne	loop			; if not, do more

		rep	#$20			; back to full native
		longa	on

		stx	command_ndx		; save index to command packet
done
		rts				; return to caller

		endwith				; with dp
		endp

;------------------------------------------------------------
; PutPath
;
; This routine puts a byte signifying AFP long naming format
; and the string from partial_path into the current packet
; at the current packet index.  The packet index is bumped
; to point past the pathname.  Optionally, word alignment
; can be forced so that parameters following the pathname
; will start on a word boundary.  This routine is optimized
; for the partial_path buffer instead of being general.
;
; Note: StartPacket must have already been called.
;
; On entry:
;	Full native mode
;	c = 1  =>  Force word alignment after pathname
;	c = 0  =>  Don't force any special alignment
;
; On exit:
;	Full native mode
;
;------------------------------------------------------------

PutPath		proc	export
		with	dp,mydata

		ProcName PutPath
		
		php			; save alignment flag

		lda	#afp_long	; signify AFP long name
		jsr	PutByte

		lda	partial_path	; get string length
		and	#$00FF		; only want byte length
		sta	math_temp	; save for comparisons
		
		ldy	command_ndx	; get index to packet
		ldx	#0		; get index to string
		sep	#$20		; 8 bits for chars
		longa	off

copy_loop
		lda	partial_path,x	; get a byte
		sta	command_pkt,y	; put in packet
		iny			; bump pointers
		inx
		cpx	math_temp	; are we done yet?
		blt	copy_loop	; continue if X <= length
		beq	copy_loop
		
		rep	#$20		; back to full native
		longa	on
		
		sty	command_ndx	; save index into packet
		
		plp			; get alignment flag
		bcc	exit		; return if no alignment
		tya			; get packet index
		ror	a		; was it even?
		bcc	exit		; yep, already aligned
		lda	#0
		jsr	PutByte		; force word alignment
exit
		rts			; all done

		endwith
		endp

;------------------------------------------------------------
; PutPString
;
; This routine will put the p-string pointed to by X,Y into
; the current command packet.  On exit, the command packet
; index will point past the string.
;
; On entry:
;	Full native mode
;	X = string address (low word)
;	Y = string address (high word)
;
; On exit:
;	Full native mode
;
; Uses:
;	src_ptr		(points to string)
;	dest_ptr	(points to current packet location)
;
;------------------------------------------------------------

PutPString	proc	export
		with	dp,mydata

		ProcName PutPString
		
		stx	src_ptr			; save pointer to string
		sty	src_ptr+2

		clc				; compute address where
		lda	#<command_pkt		; string will be moved.
		adc	command_ndx
		sta	dest_ptr
		lda	#^command_pkt		; don't forget high word
		adc	#0
		sta	dest_ptr+2

		lda	[src_ptr]		; handle length byte specially
		sta	[dest_ptr]		; note: writes 2 bytes
		and	#$00FF			; get length byte only
		tay				; and use it as index
		sec				; add 1 for string length
		adc	command_ndx		; and bump packet pointer
		sta	command_ndx
		cpy	#0			; null string?
		beq	done			; if so, skip copy

		sep	#$20			; 8 bits to copy chars
		longa	off
loop
		lda	[src_ptr],y		; copy 1 char
		sta	[dest_ptr],y
		dey				; next
		bne	loop			; continue if more to copy

		rep	#$20			; back to full native
		longa	on
done
		rts				; all done

		endwith				; with dp
		endp

;------------------------------------------------------------
; PutIDs
;
; This routine copies VolID and DirID to the current packet.
;
; Note: StartPacket must have already been called.
;
; On entry:
;	Full native mode
;
; On exit:
;	Full native mode
;
;------------------------------------------------------------

PutIDs		proc	export
		with	dp,mydata
		
		ProcName PutIDs
		
		lda	VolID
		jsr	PutWord
		
		lda	DirID
		ldx	DirID+2
		jsr	PutLong
		
		rts
		
		endwith
		endp

;------------------------------------------------------------
; StartReply
;
; This routine sets up to start processing a reply from an
; ASP command packet send via StartPacket, etc.  Currently,
; it only sets the reply index to 0.
;
; On entry:
;	Full native mode
;
; On exit:
;	Full native mode
;------------------------------------------------------------

StartReply	proc	export

		ProcName StartReply
		
		stz	mydata.reply_ndx
		rts
		
		endp

;------------------------------------------------------------
; GetByte
;
; This routine gets one byte from the reply packet at the
; current reply index.  It then bumps the reply index by 1.
;
; On entry:
;	Full native mode
;
; On exit:
;	Full native mode
;	A = byte from reply (high byte is 0)
;------------------------------------------------------------

GetByte		proc	export

		ProcName GetByte
		
		ldy	mydata.reply_ndx
		lda	mydata.reply_pkt,y
		and	#$00FF			; mask off 1 byte
		iny				; bump index by 1
		sty	mydata.reply_ndx
		rts
		
		endp


;------------------------------------------------------------
; GetWord
;
; This routine gets one word from the reply packet at the
; current reply index.  It then bumps the reply index by 2.
;
; On entry:
;	Full native mode
;
; On exit:
;	Full native mode
;	A = word from reply
;------------------------------------------------------------

GetWord		proc	export

		ProcName GetWord
		
		ldy	mydata.reply_ndx
		lda	mydata.reply_pkt,y
		iny				; bump index by 2
		iny
		sty	mydata.reply_ndx
		rts
		
		endp


;------------------------------------------------------------
; GetLong
;
; This routine gets two words from the reply packet at the
; current reply index.  It then bumps the reply index by 4.
;
; On entry:
;	Full native mode
;
; On exit:
;	Full native mode
;	A = first word from reply
;	X = second word from reply
;------------------------------------------------------------

GetLong		proc	export

		ProcName GetLong
		
		ldy	mydata.reply_ndx
		lda	mydata.reply_pkt,y	; low word in A
		ldx	mydata.reply_pkt+2,y	; high word in X
		iny				; bump index by 4
		iny
		iny
		iny
		sty	mydata.reply_ndx
		rts
		
		endp

;------------------------------------------------------------
; GetBlock
;
; This routine gets a series of bytes from the reply packet
; at the current reply index.  It then bumps the reply index
; past the block of bytes.
;
; On entry:
;	Full native mode
;	A = # of bytes to get
;	X = address of buffer to store bytes (low)
;	Y = address of buffer to store bytes (high)
;
; On exit:
;	Full native mode
;
;------------------------------------------------------------

GetBlock	proc	export
		with	dp,mydata

		ProcName GetBlock
		
		stx	dest_ptr		; set up pointer to buffer
		sty	dest_ptr+2
		sta	math_temp		; save block length
		cmp	#0			; anything to get?
		beq	done			; if not, skip it

		ldx	reply_ndx		; index to reply packet
		ldy	#0			; index to user buffer
		sep	#$20			; 8 bit mode to move bytes
		longa	off

loop
		lda	reply_pkt,x		; get next byte
		sta	[dest_ptr],y		; save in user buffer
		inx				; point to next byte
		iny				; increment transfer count
		cpy	math_temp		; all transfered?
		bne	loop			; if not, do more

		stx	reply_ndx		; save index to reply packet
		rep	#$20			; back to full native
		longa	on
done
		rts				; return to caller

		endwith				; with dp
		endp

;------------------------------------------------------------
; GetPlace
;
; This routine saves the index to the start of file/directory
; parameters being returned.  This is used when getting
; variable length parameters since they are represented as
; offsets from this location.
;
; On entry:
;	Full native mode
;	reply_ndx = offset to start of file/dir parameters
;
; On exit:
;	Full native mode
;	saved_ndx = reply_ndx
;
;------------------------------------------------------------

GetPlace	proc	export

		ProcName GetPlace
		
		lda	mydata.reply_ndx	; get reply index
		sta	mydata.saved_ndx	; save it for later
		rts
		endp


;------------------------------------------------------------
; GetPString
;
; This routine will get the p-string whose offset is next
; in the reply packet into a buffer pointed to by X,Y.
; On exit, the reply packet index will point past the offset.
;
; On entry:
;	Full native mode
;	X = string address (low word)
;	Y = string address (high word)
;	Assumes GetPlace was called at start of dir entry
;	(just before getting the attributes word).
;
; On exit:
;	Full native mode
;
; Uses:
;	src_ptr		(points to packet location)
;	dest_ptr	(points to string buffer)
;
;------------------------------------------------------------

GetPString	proc	export
		with	dp,mydata

		ProcName GetPString
		
		stx	dest_ptr		; save address of destination
		sty	dest_ptr+2

		ldy	reply_ndx
		lda	reply_pkt,y		; get offset to string
		xba				; in low-high order
		iny
		iny				; bump index past offset word
		sty	reply_ndx
		clc
		adc	saved_ndx		; relative to file/dir parms
		adc	#<reply_pkt		; get address in packet
		sta	src_ptr			; as source pointer
		lda	#^reply_pkt
		adc	#0
		sta	src_ptr+2

		lda	[src_ptr]		; handle length byte specially
		sta	[dest_ptr]		; note: writes 2 bytes
		and	#$00FF			; get length byte only
		tay				; and use it as index

		sep	#$20			; 8 bits to copy chars
		longa	off
loop
		lda	[src_ptr],y		; copy 1 char
		sta	[dest_ptr],y
		dey				; next
		bne	loop			; continue if more to copy

		rep	#$20			; back to full native
		longa	on
		rts				; all done

		endwith				; with dp
		endp

;------------------------------------------------------------
; StartWrite
;
; This routine prepares to fill in an ASP write packet.
; It takes the command number as input and puts it into
; the command packet.  The packet pointer is initialized, etc.
;
; Remember, SPWrite is just like SPCommand, but with an extra
; buffer of data that will be "pulled" from the server.
;
; On entry:
;	Full native mode
;	A = AFP command number
;
; On exit:
;	Full native mode
;
;------------------------------------------------------------

StartWrite	proc	export
		with	dp,mydata

		ProcName StartWrite
		
;------------------------------------------------------------
; Fill in AFP command number
;------------------------------------------------------------
		sta	command_pkt		; for command number
		lda	#2			; offset past command
		sta	command_ndx		; and store in index		
;------------------------------------------------------------
; Copy command buffer and reply buffer addresses to
; parameter list
;------------------------------------------------------------
		lda	#<command_pkt		; low word
		sta	SPWrite.ComAddr
		lda	#^command_pkt		; high word
		sta	SPWrite.ComAddr+2

		lda	#<reply_pkt		; address of reply
		sta	reply_buf		; save pointer to it
		sta	SPWrite.RepAddr
		lda	#^reply_pkt
		sta	reply_buf+2
		sta	SPWrite.RepAddr+2

		lda	#NormSPData		; set up default SPCommand
		sta	SPWrite.RepBufLen	; reply buffer length

;------------------------------------------------------------
; Copy SessRefnum to SPCommand param list
;
; Note: this overwrites the Command Block Length field which
; will be set during the SendPacket routine.
;------------------------------------------------------------
		lda	SessRefnum
		sta	SPWrite.SRef

		rts

		endwith
		endp

;------------------------------------------------------------
; SendWrite
;
; This routine sends a filled-in SPWrite packet out on the
; appropriate session.  It takes the current command index to
; be the length of the command packet.
;
; On entry:
;	Full native mode
;	packet_ndx = length of command packet
;
; On exit:
;	Full native mode
;	c = 1 if error (A = error code)
;
;------------------------------------------------------------

SendWrite	proc	export

		ProcName SendWrite
		
		lda	mydata.command_ndx
		sta	SPWrite.ComLen

		php
		php
		pla
		and	#4			; interrupts disabled?
		bne	do_io_err		; yes, so can't do I/O
try_call
		jsr	draw_arrows		; draw arrows in menu bar
		ATCall	SPWrite
		php				; save error status
		jsr	erase_arrows		; undraw arrows
		plp				; restore error status
		bcs	offline			; assume error is offline
		
		lda	SPWrite.ComRes+2	; get AFP's command result
		jsr	convert_error		; turn it into a GS/OS error
exit
		rts

offline
;;;		lda	SPCommand.Result	;1-Apr-93 JCM
		lda	SPWrite.Result		;1-Apr-93 JCM - let's read this from the right buffer
		cmp	#$0702			; too many ASP calls?
		beq	try_call		; if so, try the call again
	import DisplayError
		ldy	#^SPWrite
		ldx	#SPWrite
		jsr DisplayError

		lda	#offline_error		; assume error was volume offline
		sec
		bcs	exit
do_io_err
		lda	#io_error
		sec
		bcs	exit
		
		endp

		end

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/SetInfo.aii b/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/SetInfo.aii
new file mode 100644
index 0000000..b9af70a
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/SetInfo.aii
@@ -0,0 +1 @@
+;------------------------------------------------------------
;
; set_file_info
;
; This call takes a pathname and sets its file information
; (type, auxtype, access, etc.).  The general procedure is to
; get all of the file's information, change just the values
; supplied in the set_file_info call, and set all of the
; file's information.  The alternative method of setting
; only the supplied values (by setting only some of the bits
; in the bitmap) is prone to errors and doesn't save much
; in actual network traffic.
;
; On entry:
;	Full native mode.
;
; On exit:
;	Full native mode.
;
; Modification history:
; 19-Jul-88	MSD	Started coding.
; 15-Aug-88	MSD	Com_set_info moved into this file.
;  8-Feb-89	MSD	A non-zero mod date in a class 0 call
;			was being converted as if it were a
;			class 1 date -- fixed.
; 28-Jan-91	MSD	Adding new file type conversions defined
;			after AppleShare file server was built.
;			Added new routine: map_file_type.
;			The conversions are:
;			$B3 $DBxy -> pdos $70 $B3 $DB $xy
;			$D7 $0000 -> pdos 'MIDI'
;			$D8 $0000 -> pdos 'AIFF'
;			$D8 $0001 -> pdos 'AIFC'
;			Note: If FinderInfo is already being
;			set (provided in the option_list),
;			it takes precedence and these conv-
;			ersions do not take place.
; 30-Jan-92	MSD	Set create and mod dates only if given and
;			they were non-zero.
;------------------------------------------------------------

		load	'equates.dump'

		import	(PreProcess,main_exit,CheckParent):code
		import	proc_path1:code
		import	convert_access:code
		import	com_get_info:code
		import	(StartPacket,SendPacket):code
		import	(PutIDs,PutWord,PutLong,PutPath,PutBlock):code
		import	(StartReply,GetLong,GetWord,GetBlock):code
		import	(time_tool_afp,time_pro_afp):code
		import	mydata:tdata
		
		entry	com_set_info:code

;------------------------------------------------------------
; This template defines the parameter list for Set_File_Info
; (past any parameter count field).
;------------------------------------------------------------
p		record	0
		ds.l	1			; pointer to pathname
access		ds.w	1
filetype	ds.w	1
auxtype		ds.l	1
null_st		ds.w	1			; null (storage type)
create0		ds.l	1			; class 0 create date/time
mod0		ds.l	1			; class 0 modified date/time
		org	create0			;   - or -
create1		ds.b	8			; class 1 create date/time
mod1		ds.b	8			; class 1 modified date/time
opt_list	ds.l	1			; pointer to option_list
null_9		ds.l	1			; null
null_A		ds.l	1
null_B		ds.l	1
null_C		ds.l	1
		endr

cr_bit		equ	$0400			; mask of create date/time flag
mod_bit		equ	$0800			; mask of mod date/time flag
set_attr	equ	$0100			; mask of attributes flag
f_info_bit	equ	$2000			; mask of Finder info flag
pdos_bit	equ	$0020			; mask of ProDOS info flag


set_file_info	proc	export
		with	dp,mydata

		ProcName set_file_info
		
		jsr	PreProcess		; validate the call
		bne	class1
		lda	#4			; class 0 shares first 4
		sta	pcount			; parameters with class 1
class1

		jsr	proc_path1		; find the file
		bcs	exit

;------------------------------------------------------------
; Try to get ProDOS filetype and auxtype if the user wanted
; to change only the filetype.
;------------------------------------------------------------
		lda	pcount
		cmp	#3			; filetype but not auxtype?
		bne	no_get			; if not, skip the get info

		stz	my_auxtype		; assume auxtype of 0
		stz	my_auxtype+2

		lda	#afpGetFlDrParms	; FPGetFileDirParms
		jsr	StartPacket
		
		jsr	PutIDs			; put VolID, DirID in packet

		lda	#$0020			; only get ProDOS info
		jsr	PutWord			; put file bitmap in
		
		lda	#$0020
		jsr	PutWord			; put directory bitmap in

		clc				; don't have to align
		jsr	PutPath			; add pathname to packet
		
		jsr	SendPacket
		jsr	CheckParent		; check for path not found
		bcs	no_get			; don't get auxtype if error

		jsr	StartReply		; start processing reply packet
		
		jsr	GetLong			; ignore bitmaps
		jsr	GetLong			; ignore file/dir flag and filetype
		jsr	GetLong			; get ProDOS auxtype
		sta	my_auxtype		; save ProDOS auxtype
		stx	my_auxtype+2

no_get
;------------------------------------------------------------
; Get file info from user's parameter list and update the
; bitmap to set only what the user supplied.
;------------------------------------------------------------
		stz	my_bitmap		; start with clean bitmap
		jsr	update_info		; update with user values
		bcs	exit			; return error (access word)

		lda	my_bitmap		; set what was provided
		jsr	com_set_info		; update on server
		bcs	exit

		clc				; no errors
		lda	#0
exit
		jmp	main_exit

update_info
;------------------------------------------------------------
; This subroutine takes the user supplied file info and
; updates the local file info variables accordingly.
;
; The bits in the AFP bitmap are set when those parameters
; are pulled from the user's parameter list.
;------------------------------------------------------------
		dec	pcount			; already used the pathname

		ldy	#p.access
		lda	[my_pb_ptr],y		; get access word
		sta	my_access		; save it
		jsr	convert_access		; turn it into AFP access words
		bcc	okay_access
		brl	update_exit		; propagate parameter errors
okay_access
		lda	#set_attr
		tsb	my_bitmap		; set attributes bit in bitmap
		dec	pcount			; is that all?
		bne	@more
		brl	done_update		; yep, finish it up
@more
		ldy	#p.filetype
		lda	[my_pb_ptr],y		; get filetype
		sta	my_filetype
		lda	#pdos_bit
		tsb	my_bitmap		; set ProDOS info bit in bitmap
		dec	pcount			; anything else, boss?
		bne	@more2
		brl	done_update
@more2
		iny
		iny				; Y = p.auxtype
		lda	[my_pb_ptr],y		; get auxtype low word
		sta	my_auxtype
		iny
		iny
		lda	[my_pb_ptr],y		; get auxtype high word
		sta	my_auxtype+2
		lda	volume_sep		; was it a volume directory?
		bne	@okaux			; no, so set auxtype
		stz	my_auxtype		; set auxtype to 0 for root
		stz	my_auxtype+2
@okaux
		dec	pcount
		bne	@more3
		brl	done_update
@more3
		dec	pcount			; ignore null field
		bne	@more4
		brl	done_update
@more4
;------------------------------------------------------------
; Do class 1 time conversion.
;------------------------------------------------------------
		ldy	#p.create1		; do class 1 create date
		jsr	date1_to_afp		; convert to AFP format
		bcs	@go_go_exit		; exit if there was an error
		bvs	@done_cr		; don't set if all zeroes
		sta	my_cr_date
		stx	my_cr_date+2

		lda	#cr_bit
		tsb	my_bitmap		; set create date in bitmap
@done_cr
		dec	pcount			; anything else to do?
		bne	@more5
		brl	done_update
@more5
		ldy	#p.mod1			; do class 1 mod date
		jsr	date1_to_afp		; convert to AFP format
@go_go_exit	bcs	go_exit			; exit if there was an error
		bvs	@done_mod		; don't set if all zeroes
		sta	my_mod_date
		stx	my_mod_date+2

		lda	#mod_bit
		tsb	my_bitmap		; set mod date in bitmap
@done_mod
		dec	pcount			; anything else to do?
		bne	@more6
		brl	done_update
@more6
;------------------------------------------------------------
; Do the option_list now.
;------------------------------------------------------------
		ldy	#p.opt_list
		lda	[my_pb_ptr],y		; get low word of pointer
		sta	src_ptr
		iny
		iny
		lda	[my_pb_ptr],y
		sta	src_ptr+2
		ora	src_ptr			; null pointer?
		beq	skip_opt		; yes, so don't do option_list
		
		lda	[src_ptr]		; how many bytes of data?
		cmp	#38			; at least FST ID and Finder Info?
		blt	skip_opt		; no, so skip it
		
		ldy	#2
		lda	[src_ptr],y		; get actual data size
		cmp	#34			; at least FST ID and Finder Info?
		blt	skip_opt		; no, so skip it
		
		ldy	#4			; offset to FST ID
		lda	[src_ptr],y		; get FST ID
		cmp	#my_fst_id		; is this mine?
		beq	do_opt			; I can use mine
		cmp	#hfs_fst_id		; is it HFS?
		beq	do_opt			; yes, I like HFS
		cmp	#pro_fst_id		; ProDOS?
		bne	skip_opt		; no, so skip it
do_opt
		ldx	#30			; index to last word of Finder Info
		ldy	#36			; index to last word in option_list
@loop
		lda	[src_ptr],y		; get a word of Finder info
		sta	my_f_info,x		; save it off
		dey
		dey
		dex
		dex
		bpl	@loop			; loop if more to copy
		
		lda	#f_info_bit		; get Finder info bit
		tsb	my_bitmap		; and say we're setting it
skip_opt
done_update
		lda	class
		bne	class1dates
;------------------------------------------------------------
; Convert class 0 dates (both create and mod).
;------------------------------------------------------------
		ldy	#p.create0		; do class 0 create date
		jsr	date0_to_afp		; convert to AFP format
go_exit		bcs	update_exit		; exit if there was an error
		bvs	try_mod_0		; don't set if all zeroes
		sta	my_cr_date
		stx	my_cr_date+2

		lda	#cr_bit
		tsb	my_bitmap		; set create date/time
try_mod_0
		ldy	#p.mod0			; do class 0 mod date
		jsr	date0_to_afp		; convert to AFP format
		bcs	update_exit		; exit if there was an error
		bvs	class1dates		; don't set if all zeroes
		sta	my_mod_date
		stx	my_mod_date+2

		lda	#mod_bit
		tsb	my_bitmap		; set mod and create dates
class1dates

;------------------------------------------------------------
; At this point, the local file information is updated and
; ready to be assembled into a packet for the server.
;------------------------------------------------------------
		clc
update_exit
		rts
parm_err
		sec
		lda	#invalid_parm
		rts

;------------------------------------------------------------
; Point to a class 1 date in parameter list and turn it
; into an AFP date in A,X.  On exit, carry clear if date is
; valid; if valid, overflow is set if date was all zeroes.
;------------------------------------------------------------
date1_to_afp
		lda	[my_pb_ptr],y
		sta	my_date_tool
		iny
		iny
		lda	[my_pb_ptr],y
		sta	my_date_tool+2
		iny
		iny
		lda	[my_pb_ptr],y
		sta	my_date_tool+4
		iny
		iny
		lda	[my_pb_ptr],y
		sta	my_date_tool+6
		jsr	time_tool_afp		; convert to AFP format
		bcs	date1_exit		; exit if error
		lda	my_date_afp		; get low word
		xba				; high-low order
		tax				; in X
		lda	my_date_afp+2		; get high word
		xba				; high-low order in A
date1_exit
		rts

;------------------------------------------------------------
; Point to a class 0 date in parameter list and turn it
; into an AFP date in A,X.  On exit, carry clear if date is
; valid; if valid, overflow is set if date was all zeroes.
;------------------------------------------------------------
date0_to_afp
		lda	[my_pb_ptr],y
		sta	my_date_pro
		iny
		iny
		lda	[my_pb_ptr],y
		sta	my_date_pro+2
		jsr	time_pro_afp		; convert to AFP format
		bcs	date0_exit
		lda	my_date_afp		; get low word
		xba				; high-low order
		tax				; in X
		lda	my_date_afp+2		; get high word
		xba				; high-low order in A
date0_exit
		rts

		endwith				; with dp,mydata
		endp



;------------------------------------------------------------
; com_set_info
;
; This routine takes the values from the local file info
; variables and sets them as the file's info.  Note: if
; a create or mod date is to be changed and its value is 0,
; that parameter is NOT set (its bit in the bitmap will be
; cleared).  If the Finder Info is not already being set,
; it checks for new file type conversions and will get the
; old Finder Info and change the Mac filetype and creator.
;
; File Type conversions:
;	$B3 $DBxy -> 'pdos' 'p' $B3 $DB $xy
;	$D7 $0000 -> 'pdos' 'MIDI'
;	$D8 $0000 -> 'pdos' 'AIFF'
;	$D8 $0001 -> 'pdos' 'AIFC'
;	
;
;
; On entry:
;	Full native mode.
;	A = AFP bitmap of file info to be set
;
; On exit:
;	Full native mode.
;
; Note: currently assumes that the access word (attributes)
; are always set.
;------------------------------------------------------------

com_set_info	proc	export
		with	dp,mydata

		import	pdos2hfs
		
		ProcName com_set_info
		
		ora	#set_attr		; force attributes to be set
		sta	my_bitmap		; save bits to set

; 24-Jan-92 MSD: Removed check for my_date_afp being 0 since this is now allowed.

		jsr	pdos2hfs		; do ProDOS->Mac filetype conversion
		
		lda	#afpSetFlDrParms	; FPSetFileDirParms
		jsr	StartPacket
		
		jsr	PutIDs
		
		lda	my_bitmap		; tell what info to change
		jsr	PutWord

		sec				; force alignment		
		jsr	PutPath			; put pathname in

		lda	attributes		; get attributes to clear
		bne	@clear			; if any, clear 'em
		lda	attributes+2		; get attributes to set
		ora	#$0080			; make them get set
@clear
		jsr	PutWord

		lda	#cr_bit			; test bitmap for create date/time
		bit	my_bitmap		; are we setting this?
		beq	no_cr_date		; if not, don't put in packet
		lda	my_cr_date		; get create date/time in AFP format
		ldx	my_cr_date+2
		jsr	PutLong
no_cr_date

		lda	#mod_bit		; test bitmap for mod date/time
		bit	my_bitmap		; are we setting this?
		beq	no_mod_date		; if not, don't put in packet
		lda	my_mod_date		; get create date/time in AFP format
		ldx	my_mod_date+2
		jsr	PutLong
no_mod_date

		lda	#f_info_bit		; test bitmap for Finder info
		bit	my_bitmap
		beq	no_f_info
		lda	#32			; Finder info is 32 bytes
		ldx	#<my_f_info		; from "my_f_info" buffer
		ldy	#^my_f_info
		jsr	PutBlock
no_f_info

		lda	#pdos_bit		; test bitmap for ProDOS info
		bit	my_bitmap
		beq	no_pdos_info

		lda	my_filetype
		jsr	PutWord			; put ProDOS filetype
		lda	my_auxtype
		ldx	my_auxtype+2
		jsr	PutLong			; put ProDOS auxtype
no_pdos_info

		jsr	SendPacket
		jsr	CheckParent		; check for path not found
		bcs	exit			; return if error

;
; If any attributes need to be set, and they weren't set in the first packet,
; then do another SetFileDirParms
;
		lda	attributes		; did I clear anything?
		beq	exit			; if not, set was done above
		lda	attributes+2		; anything to set?
		beq	exit			; no, so done
		ora	#$0080			; OR in set flag
		pha				; save for later
		
		lda	#afpSetFlDrParms
		jsr	StartPacket
		
		jsr	PutIDs
		
		lda	#set_attr		; only set attributes
		jsr	PutWord

		sec				; force alignment
		jsr	PutPath
		
		pla				; recover set attributes
		jsr	PutWord
		
		jsr	SendPacket
		jsr	CheckParent		; check for path not found
exit
		rts				; exit from setinfo_com

		endwith				; with dp,mydata
		endp



;------------------------------------------------------------
; pdos2hfs
;
; This routine performs ProDOS -> HFS filetype conversions
; that were defined after AppleShare 2.0.  If the Finder Info
; is not already being set, it checks for new file type
; conversions and will get the old Finder Info and change
; the Mac filetype and creator if necessary.  Conversions
; don't apply to directories.
;
; File Type conversions:
;	$B3 $DBxy -> 'pdos' 'p' $B3 $DB $xy
;	$D7 $0000 -> 'pdos' 'MIDI'
;	$D8 $0000 -> 'pdos' 'AIFF'
;	$D8 $0001 -> 'pdos' 'AIFC'
;	$E0 $0005 -> 'dCpy' 'dImg'
;	
;
;
; On entry:
;	Full native mode.
;	my_bitmap = AFP bitmap of file info to be set
;
; On exit:
;	Full native mode.
;	my_bitmap = AFP bitmap of file info to be set
;	my_f_info = new Finder Info to set
;
;------------------------------------------------------------

pdos2hfs	proc	export
		with	dp,mydata

		import	FileTypes:data
		import	NumFileTypes:equ
		
		ProcName pdos2hfs
				
		lda	#$2000		; Finder Info bit
		bit	my_bitmap	; Finder Info being set?
		bne	go_ok_exit	; yes, skip conversions

					; default creator to be 'pdos'
		lda	#'dp'		; reverse of 'pd'
		sta	my_f_info+4
		lda	#'so'		; reverse of 'os'
		sta	my_f_info+6
		
		lda	my_filetype
		cmp	#$B3		; S16 file?
		bne	not_s16		; no, check table
		ora	#$7000		; ASCII 'p' in high byte
		xba			; put in text order
		sta	my_f_info	; save first word of type
		lda	my_auxtype
		and	#$FF00		; only test high byte
		cmp	#$DB00		; is it GS/OS-aware?
		beq	fix_aux		; yes, preserve aux type
go_ok_exit	brl	ok_exit		; no, let server convert it
fix_aux		lda	my_auxtype	; get auxtype back
		xba			; put in Mac order
		sta	my_f_info+2	; second word of type
		bra	convert		; go get rest of Finder Info

;------------------------------------------------------------
; Check filetype table to see if given filetype/auxtype
; combination is a match.
;------------------------------------------------------------
not_s16
		ldx	#NumFileTypes
		ldy	#0
@loop
		lda	my_filetype
		cmp	FileTypes,y
		bne	@next
		lda	my_auxtype
		cmp	FileTypes+2,y
		beq	@match
@next
		tya
		clc
		adc	#12
		tay
		dex
		bne	@loop
		bra	ok_exit
		
;------------------------------------------------------------
; We found a match in the table, so pull out type (and
; creator if it isn't the default $FFFFFFFF).
;------------------------------------------------------------
@match
		lda	FileTypes+4,y
		sta	my_f_info	; save first word
		lda	FileTypes+6,y
		sta	my_f_info+2	; save second word
		
		lda	FileTypes+8,y
		ora	FileTypes+10,y	; is it all $FF's?
		ina			; was A=$FFFF?
		beq	convert		; yes, use creator='pdos'
		
		lda	FileTypes+8,y	; get non-pdos creator
		sta	my_f_info+4	; and replace in Finder Info
		lda	FileTypes+10,y
		sta	my_f_info+6

convert
;------------------------------------------------------------
;
; Get current Finder Info so I can change the Mac filetype.
; Send out GetFileDirParms call....
;
;------------------------------------------------------------
		lda	#afpGetFlDrParms	; FPGetFileDirParms
		jsr	StartPacket
		
		jsr	PutIDs			; put VolID, DirID in packet

		lda	#$2000			; Finder Info only
		jsr	PutWord			; put file bitmap in
		
		lda	#$2000			; Finder info only
		jsr	PutWord			; put directory bitmap in

		clc				; don't have to align
		jsr	PutPath			; add pathname to packet
		
		jsr	SendPacket
		jsr	CheckParent		; check for path not found
		bcs	exit			; return any errors

;------------------------------------------------------------
;
; Get the results of the GetFileDirParms
;
;------------------------------------------------------------
		jsr	StartReply		; start processing reply packet
		
		jsr	GetLong			; ignore bitmaps
		
		jsr	GetWord			; get file/dir flag
		bit	#$0080			; was directory bit set?
		bne	ok_exit			; yes, don't do conversion!

		jsr	GetLong			; ignore Mac filetype
		jsr	GetLong			; ignore Mac creator
		
		lda	#24			; get rest of Finder Info
		ldx	#<my_f_info+8		; to "my_f_info" buffer
		ldy	#^my_f_info+8
		jsr	GetBlock

;------------------------------------------------------------
;
; Change the Mac filetype/creator in Finder Info and set the
; Finder Info bit in my_bitmap (so it will be set in the
; SetFileDirParms call).
;
;------------------------------------------------------------
		lda	#$2000
		tsb	my_bitmap		; set FinderInfo in bitmap
		
						; always set creator to 'pdos'
ok_exit
		clc
exit
		rts
		
		endwith
		endp
		
		end

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/Specific.aii b/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/Specific.aii
new file mode 100644
index 0000000..df1e730
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/Specific.aii
@@ -0,0 +1 @@
+;------------------------------------------------------------
; File: specific.aii
;
; This file contains the code for the FST_Specific command
; and all of its subcommands.  This command actually has its
; own call dispatcher and parameter block parser so that
; other common routines can be used to process this call.
;
; 29-Nov-88	MSD	Inserted get_user_path command as
;			command #$08 (desktop calls move to
;			higher command numbers).
; 14-Jan-89	MSD	Added errors $7E (unknown user name)
;			and $7F (unknown group name).
; 20-Jun-90	MSD	SetBootVol ($4D44) now calls the
;			SystemLoader with a RenamePathname
;			to inform it that the boot volume
;			has been "renamed" (since SCM does
;			this only on a ChangePath call).
;
; 12-Nov-90	MSD	Added GetDefPrivileges and SetDefPrivileges
;			subcalls.
; 16-Jan-91	MSD	Fixed SetDefPrivileges so that it properly
;			updates pcount to account for the required
;			parameters.  This fixes the problem where it
;			looked at the owner name and group name buffers
;			when the pcount was 3.  Fixed GetDefPrivileges
;			to return the whole long of access rights (not
;			just the first two bytes).
;
;  7-Jun-91	MSD	get_user_path should return the path only if
;			it actually exists.  Added code to get info on
;			the path and return an error if it doesn't exist
;			or it is not a directory.
;
; 26-Sep-91	MSD	GetDefPrivileges and SetDefPrivileges now use
;			a separate flags parameter so we don't use other
;			bits in the access rights (which get used in
;			AFP 2.1).
;
;  8-Nov-91	MSD	Get_User_Path now sets FIUserPrefix if the path
;			exists.  GS/OS code like EasyMount and the
;			AppleShare CDEV should make this call rather than
;			setting FIUserPrefix themselves.  Shrunk user_path
;			buffer from 128 bytes to 70 bytes (max 66 for string,
;			plus 2 for trailing slash, plus 2 length bytes).
;
;------------------------------------------------------------

		load	'equates.dump'

		import	(PreProcess,main_exit):code
		import	(StartPacket,SendPacket):code
		import	(PutByte,PutBlock):code
		import	(PutWord,PutLong,PutIDs):code
		import	(PutPString,PutPath,CheckParent):code
		import	(StartReply,GetWord,GetLong):code
		import	(Out_PStr,proc_path1,proc_path2):code
		import	(do_flush,fill_buffer,remove_fcr):code
		import	set_eject:code
		import	mydata:tdata
		
		entry	find_recs:code



;------------------------------------------------------------
; Subcommands
;
; This is a table of entry points for each of the
; FST_Specific commands.  The table is a word wide starting
; with command number 1.  The dispatcher jumps to the code
; by doing a jmp (subcmds-2,x) where X = 2 * command #.
;------------------------------------------------------------

		entry	buffer_control,byte_range_lock,sp_open_fork
		entry	get_priv,set_priv,user_info,copy_file
		entry	open_dt,close_dt,get_comment,set_comment
		entry	get_user_path,getsrvrname,setbootvol
		entry	getdefpriv,setdefpriv
subcmds		record
first
		dc.w	buffer_control			; $0001
		dc.w	byte_range_lock			; $0002
		dc.w	sp_open_fork			; $0003
		dc.w	get_priv			; $0004
		dc.w	set_priv			; $0005
		dc.w	user_info			; $0006
		dc.w	copy_file			; $0007
		dc.w	get_user_path			; $0008
		dc.w	open_dt				; $0009
		dc.w	close_dt			; $000A
		dc.w	get_comment			; $000B
		dc.w	set_comment			; $000C
		dc.w	getsrvrname			; $000D
		dc.w	getdefpriv			; $000E
		dc.w	setdefpriv			; $000F
next
		export	max_spec:equ
max_spec	equ	next-first
		endr

;------------------------------------------------------------
; Cmd_Flags
;
; This table contains flags used to process the FST_Specific
; calls.  The table is a word wide starting with command
; number 1.  The fields in each entry are as follows:
;	1) Min PCount
;	2) Max PCount
;
;
;                  |   2   |   1   |
;  ________________|_______|_______|
;  | | | | | | | | | | | | | | | | |
;  |_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|
; 15                7     4 3     0
;
;------------------------------------------------------------

cmd_flags	proc
		dc.w	$43			; buffer control
		dc.w	$77			; byte range lock
		dc.w	$65			; special open fork
		dc.w	$64			; get privileges
		dc.w	$64			; set privileges
		dc.w	$54			; user info
		dc.w	$44			; copy file
		dc.w	$33			; get user path
		dc.w	$44			; open desktop
		dc.w	$44			; close desktop
		dc.w	$55			; get comment
		dc.w	$54			; set comment
		dc.w	$54			; get server name
		dc.w	$63			; get default privileges
		dc.w	$63			; set default privileges
		endp

fst_specific	proc	export
		with	dp,mydata

		ProcName fst_specific
		
;------------------------------------------------------------
; preprocess (like normal calls)
;------------------------------------------------------------
		jsr	PreProcess

;------------------------------------------------------------
; validate call class
;------------------------------------------------------------
		lda	class
		cmp	#1			; must be class 1!
		beq	good_class
		sec
		lda	#bad_class		; invalid call class
		bra	exit
good_class

;------------------------------------------------------------
; validate subcall (command) number
;------------------------------------------------------------
		ldy	#2			; offset to command number
		lda	[my_pb_ptr],y		; get command (subcall) number
		cmp	#$4D44			; set boot volume?
		bne	@ok
		jmp	setbootvol		; set boot volume as user volume
@ok
		asl	a			; times 2 as table index
		tax				; use in X
		beq	bad_call		; 0 is invalid call number
		cpx	#max_spec+1		; is it out of range?
		blt	good_call		; if OK, keep going
bad_call
		sec
		lda	#invalid_parm		; command number invalid
		bra	exit
good_call

;------------------------------------------------------------
; validate min/max pcount
;------------------------------------------------------------
		lda	cmd_flags-2,x		; get flag word
		and	#$000F			; get min PCount
		dea				; minus 1
		cmp	pcount			; is PCount OK?
		bge	err_pcount		; no, do an error
		lda	cmd_flags-2,x
		lsr	a
		lsr	a
		lsr	a
		lsr	a
		and	#$000F			; get max PCount
		cmp	pcount			; is max >= ?
		bge	ok_pcount		; everything is fine, continue
err_pcount
		sec
		lda	#bad_pcount		; parameter count is bad
		bra	exit			; return the error
ok_pcount

;------------------------------------------------------------
; init the pathname flags/pointers
;------------------------------------------------------------
		clc
		jsl	init_parse_path
;------------------------------------------------------------
; dispatch to subhandler
;------------------------------------------------------------
		jmp	(subcmds-2,x)		; go do the command

;------------------------------------------------------------
; Return any errors
;------------------------------------------------------------
		entry	sp_exit
sp_exit
		php
		pha
		sec
		jsl	init_parse_path		; free up pathnames
		pla
		plp				; restore error code
exit
		jmp	main_exit

		endwith				; with dp
		endp




buffer_control	proc
		with	dp,mydata

		ProcName buffer_control
		
;------------------------------------------------------------
; Take refnum, find FCR, and set/clear bufferring enabled flag
;------------------------------------------------------------
		stz	math_temp		; assume turn bufferring on
		lda	pcount
		cmp	#3			; did they supply flags?
		beq	no_flags		; if not, don't get it
		ldy	#6			; offset to flags
		lda	[my_pb_ptr],y		; get buffer disable flag
		sta	math_temp		; save for later
no_flags
		
		ldy	#4			; offset to refnum
		lda	[my_pb_ptr],y		; get refnum
		jsr	find_recs		; set up FCR and VCR
		bcs	exit			; return any errors

		ldy	#fcr.dirflag
		lda	[my_fcr_ptr],y		; is it file or folder?
		bpl	file			; go do file stuff
folder
;------------------------------------------------------------
; For folders, all I have to do is mark the buffer inactive
; or active/no valid data.
;------------------------------------------------------------
		ldy	#fcr.flags		; get offset to flag word
		lda	math_temp		; get disable flag
		bpl	@active			; turn it on!
		lda	#0			; buffering off, no valid data
		sta	[my_fcr_ptr],y		; set flags
		bra	ok_exit			; return with no errors
@active
		lda	[my_fcr_ptr],y		; get old flags
		ora	#buffer_active		; make sure buffering is on
		sta	[my_fcr_ptr],y		; (don't change data valid flag)
		bra	ok_exit			; return with no errors

file
;------------------------------------------------------------
; For files, I need to flush the buffer if bufferring turned
; off.  If turned on, fill the buffer.
;------------------------------------------------------------
		lda	math_temp		; what is disable flag?
		bpl	@active

		jsr	do_flush		; write any unwritten data
		pha				; save error code

; Note: this code doe not change the carry flag!!!!
		ldy	#fcr.flags
		lda	#0			; buffer inactive, no valid data
		sta	[my_fcr_ptr],y		; set flags
		
		pla				; restore error code
		bra	exit
@active
		ldy	#fcr.flags
		lda	[my_fcr_ptr],y
		ora	#buffer_active		; turn on buffering
		sta	[my_fcr_ptr],y
		
		clc				; no errors!
		lda	#0
exit
		jmp	sp_exit
ok_exit
		clc
		lda	#0			; no error
		bra	exit			; return it

		endwith				; with dp
		endp


byte_range_lock	proc
		with	dp,mydata

		ProcName byte_range_lock
		
		ldy	#4			; offset to refnum
		lda	[my_pb_ptr],y		; get refnum
		jsr	find_recs		; set up FCR and VCR
		bcs	exit			; return any errors
		
		ldy	#fcr.dirflag
		lda	[my_fcr_ptr],y		; is it a file or folder?
		bmi	bad_type		; can't do this to folders!

		ldy	#6			; offset to lock flag
		lda	[my_pb_ptr],y		; get lock flag
		sta	math_temp		; save to manipulate
		lda	#0			; start with no flags
		asl	math_temp		; check lock/unlock flag
		bcs	@lock			; default is lock
		ora	#$100			; set unlock bit
@lock
		asl	math_temp		; check relative to EOF flag
		bcc	@bof			; default is from start of file
		ora	#$8000			; set relative to EOF flag
@bof

		ora	#afpByteRangeLock	; add in command number
		jsr	StartPacket

		ldy	#fcr.forkrefnum
		lda	[my_fcr_ptr],y		; get AFP fork refnum
		jsr	PutWord
		
		ldy	#8			; offset to Offset in pb
		lda	[my_pb_ptr],y		; get low word
		xba				; in high-low order
		tax				; low word in X
		iny
		iny
		lda	[my_pb_ptr],y		; get high word
		xba				; in high-low order
		jsr	PutLong			; put offset in packet

		ldy	#12			; offset to Length in pb
		lda	[my_pb_ptr],y		; get low word
		xba				; in high-low order
		tax				; low word in X
		iny
		iny
		lda	[my_pb_ptr],y		; get high word
		xba				; in high-low order
		jsr	PutLong			; put Length in packet
		
		jsr	SendPacket		; go make the call
		bcs	exit			; return any error
		
		jsr	StartReply
		jsr	GetLong			; get start of range in A,X
		ldy	#18			; offset to high word returned in pb
		xba				; high word in low-high order
		sta	[my_pb_ptr],y
		dey
		dey
		txa
		xba				; low word in low-high order
		sta	[my_pb_ptr],y

		clc				; no error
		lda	#0

exit
		jmp	sp_exit
bad_type
		sec
		lda	#bad_store_type		; can't be a folder
		bra	exit

		endwith				; with dp
		endp


sp_open_fork	proc
		with	dp,mydata
		
		ProcName sp_open_fork
		
		lda	#8			; offset to pathname 1 pointer
		ldx	#0			; my FST attributes
		ldy	#0			; select path 1
		jsl	parse_path		; set pointers for pathname 1

		ldy	#10
		lda	[my_pb_ptr],y		; get requested access
		bit	#$FFCC			; make sure reserved bits are 0's
		bne	do_invalid
		sta	request_access		; save for later use

		stz	fork_number		; assume data fork
		lda	pcount
		cmp	#6			; did they include fork number?
		blt	data_fork		; no, so leave it as data fork
		ldy	#12			; offset to fork number
		lda	[my_pb_ptr],y		; get fork number
		bit	#$FFFE			; make sure only low bit used
		beq	valid_fork
do_invalid
		sec
		lda	#invalid_parm		; bad parameter given
		brl	exit
do_bad_type
		sec
		lda	#bad_store_type		; can't open (volume) directory
		brl	exit
valid_fork
		lsr	a			; fork number into carry
		ror	fork_number		; and into fork_number flag
data_fork

		jsr	proc_path1		; parse pathname
		bcc	@ok
		brl	exit			; return any error
@ok
		lda	volume_sep		; volume name only given?
		beq	do_bad_type		; yes, so return the right error
		
;------------------------------------------------------------
; Build an FCR for the file.
;------------------------------------------------------------
		ldx	gstring			; get volume length
		inx				; plus 1 for colon
		ldy	#'::'			; just need one colon...
		sty	gstring			; put colon in gstring+1
		stx	gstring-1		; save word length in gstring-1

		lda	#fcr.buffer+512		; size of file buffer
		ldx	#<gstring		; point to filename
		ldy	#^gstring
		sec				; please zero the buffer
		jsr	Alloc_FCR		; build an FCR for me
		bcc	@got_fcr
		brl	exit			; return any errors
@got_fcr
;------------------------------------------------------------
; The FCR is built.  Save the pointer to it.
;------------------------------------------------------------
		lda	gstring-1		; get modified length
		dea				; back to normal
		sta	gstring			; save original length
		
		jsl	Deref			; get a real address
		stx	my_fcr_ptr		; save for filling in
		sty	my_fcr_ptr+2

		ldy	#vcr.open_cnt
		lda	[my_vcr_ptr],y		; get volume's open file count
		ina				; plus 1 for this file
		sta	[my_vcr_ptr],y		; and update open count
		lda	#$8000			; don't allow eject of volume
		jsr	set_eject		; set eject status
		
		lda	#my_fst_id
		ldy	#fcr.fst_id
		sta	[my_fcr_ptr],y		; set FST ID = mine
		
		lda	[my_vcr_ptr]		; get VCR ID
		iny
		iny				; Y = fcr.vcr_id
		sta	[my_fcr_ptr],y		; save FCR's VCR ID

		lda	#0			; turn off buffering
		ldy	#fcr.flags
		sta	[my_fcr_ptr],y		; save buffer flag.

		lda	request_access		; get access they wanted
		ldy	#fcr.access
		sta	[my_fcr_ptr],y		; save opened access

		xba				; put in AFP byte order
		pha				; save access mode word
		
		lda	#afpOpenFork
		ora	fork_number		; add in data/res flag
		jsr	StartPacket		; start an OpenFork packet

		jsr	PutIDs			; copy VolID, DirID
		
		lda	#0			; don't want file parameters
		jsr	PutWord			; so put null bitmap
		
		pla				; get access mode
		jsr	PutWord
		
		clc				; don't align after path
		jsr	PutPath			; put pathname in packet
		
		jsr	SendPacket		; try the open
		jsr	CheckParent		; check for path not found
		bcs	abort			; remove FCR and return error
		
		jsr	StartReply		; get ready to look at reply
		jsr	GetWord			; ignore bitmap word
		
		lda	fork_number		; get data/resource flag
		lsr	a			; shift to $4000 bit
		ldy	#fcr.dirflag
		sta	[my_fcr_ptr],y		; save data/resource flag

		jsr	GetWord			; get AFP fork refnum
		ldy	#fcr.forkrefnum
		sta	[my_fcr_ptr],y		; save in FCR
		
		lda	#0			; start mark at 0
		iny
		iny				; Y = fcr.mark
		sta	[my_fcr_ptr],y
		iny
		iny
		sta	[my_fcr_ptr],y

		lda	[my_fcr_ptr]		; get FCR # (file refnum)
		ldy	#4			; offset of refnum
		sta	[my_pb_ptr],y		; return to user

		clc
		lda	#0			; no error
exit
		jmp	sp_exit

abort
		pha				; save error code
		jsr	remove_fcr		; get rid of the FCR
		pla
		sec
		bcs	exit			; return with error

		endwith				; with dp
		endp


get_priv	proc
		with	dp,mydata
		
		ProcName getprivileges
		
		lda	#6			; offset to path 1 pointer
		ldx	#0			; FST attributes
		ldy	#0			; select path 1
		jsl	parse_path
		jsr	proc_path1		; parse pathname
		bcc	@ok_path
		brl	exit			; return the error
@ok_path

;------------------------------------------------------------
; Now that I have the path, do the GetFileDirParms.
;------------------------------------------------------------
		lda	#afpGetFlDrParms
		jsr	StartPacket
		
		jsr	PutIDs			; put VolID, DirID in
		
		lda	#$0000			; no parameters for files
		jsr	PutWord
		
		lda	#$001C			; access, group ID, creator ID
		jsr	PutWord			; requested for folders
		
		clc				; no alignment after path
		jsr	PutPath			; put partial path in packet
		
		jsr	SendPacket		; shoot it out the door
		jsr	CheckParent		; check for path not found
		bcs	@go_exit		; return error if any
		
		jsr	StartReply		; get the results
		
		jsr	GetLong			; ignore bitmaps
		
		jsr	GetWord			; get file/dir flag
		and	#$0080			; is dir flag set?
		bne	@ok_type		; if dir, continue
		
		sec
		lda	#bad_store_type		; can't do this to files!
@go_exit	brl	exit
@ok_type

		jsr	GetLong			; get UserID
		sta	my_user_id		; save for later call
		stx	my_user_id+2
		
		jsr	GetLong			; get primary group ID
		sta	my_group_id		; save it for later, too.
		stx	my_group_id+2
		
		jsr	GetLong			; Get access bytes
		ldy	#8			; offset to access bytes in pb
		sta	[my_pb_ptr],y		; save first two bytes
		iny
		iny
		txa				; get last two bytes
		sta	[my_pb_ptr],y		; save last two bytes
		
		lda	pcount
		sec
		sbc	#4			; already handled first 4 parms
		sta	pcount
		beq	ok_exit
		
;------------------------------------------------------------
; Now return owner name
;------------------------------------------------------------
		lda	#afpMapUserID		; map user ID to user name
		jsr	StartPacket
		
		lda	my_user_id		; get user ID to map
		ldx	my_user_id+2
		jsr	PutLong
		
		jsr	SendPacket		; go do it
		bcs	exit			; return any errors

		lda	reply_buf		; get pointer to returned string
		sta	src_ptr			; save as pointer to source string
		lda	reply_buf+2
		sta	src_ptr+2
		
		ldy	#12			; offset in pb of name buffer pointer
		lda	[my_pb_ptr],y
		sta	dest_ptr
		iny
		iny
		lda	[my_pb_ptr],y
		sta	dest_ptr+2
		
		jsr	Out_PStr		; return the string to a buffer
		bcs	exit			; exit on any error

		dec	pcount
		beq	ok_exit
		
;------------------------------------------------------------
; Now return primary group name
;------------------------------------------------------------
		lda	#afpMapGroupID		; map group ID to group name
		jsr	StartPacket
		
		lda	my_group_id		; get user ID to map
		ldx	my_group_id+2
		jsr	PutLong
		
		jsr	SendPacket		; go do it
		bcs	exit			; return any errors

		lda	reply_buf		; get pointer to returned string
		sta	src_ptr			; save as pointer to source string
		lda	reply_buf+2
		sta	src_ptr+2
		
		ldy	#16			; offset in pb of group buffer pointer
		lda	[my_pb_ptr],y
		sta	dest_ptr
		iny
		iny
		lda	[my_pb_ptr],y
		sta	dest_ptr+2
		
		jsr	Out_PStr		; return the string to a buffer
		bra	exit			; return error if any
ok_exit
		clc
		lda	#0			; no error
exit
		jmp	sp_exit
		
		endwith				; with dp
		endp


set_priv	proc
		with	dp,mydata
		
		ProcName setprivileges
		
		lda	#6			; offset to path 1 pointer
		ldx	#0			; FST attributes
		ldy	#0			; select path 1
		jsl	parse_path
		jsr	proc_path1		; parse pathname
		bcc	@ok_path
		brl	exit			; return any error
@ok_path
		lda	#$0010			; access only
		sta	my_bitmap		; is minimum bitmap

;------------------------------------------------------------
; If they supplied a group name, map it to an ID.
;------------------------------------------------------------
		lda	pcount
		cmp	#6			; did they include group?
		blt	no_group		; no, so don't set group
		
		lda	#$0008			; group
		tsb	my_bitmap		; add to bitmap

		lda	#afpMapGroupName
		jsr	StartPacket
		
		ldy	#16			; offset to group name pointer
		lda	[my_pb_ptr],y		; get low word of pointer
		sta	src_ptr
		iny
		iny
		lda	[my_pb_ptr],y
		sta	src_ptr+2
		
		ldy	#2
		lda	[src_ptr],y		; get length word of string
		pha				; save for later
		jsr	PutByte			; save string length
		
		clc
		lda	src_ptr			; get address of structure
		adc	#4			; + 4 to point to first char
		tax				; low word in X
		lda	src_ptr+2
		adc	#0
		tay				; high word in Y
		pla				; recover length
		jsr	PutBlock		; copy the text into packet
		
		jsr	SendPacket
		bcc	@ok
		lda	#group_not_found	; don't know this group
		brl	exit			; return the error
@ok
		jsr	StartReply
		jsr	GetLong			; get the group ID
		sta	my_group_id		; and save it off
		stx	my_group_id+2
		
no_group
;------------------------------------------------------------
; If they supplied an owner name, map it to an ID.
;------------------------------------------------------------
		lda	pcount
		cmp	#5			; did they include owner?
		blt	no_owner		; no, so don't set owner
		
		lda	#$0004			; owner
		tsb	my_bitmap		; set owner, too

		lda	#afpMapUserName
		jsr	StartPacket
		
		ldy	#12			; offset to owner name pointer
		lda	[my_pb_ptr],y		; get low word of pointer
		sta	src_ptr
		iny
		iny
		lda	[my_pb_ptr],y
		sta	src_ptr+2
		
		ldy	#2
		lda	[src_ptr],y		; get length word of string
		pha				; save for later
		jsr	PutByte			; save string length
		
		clc
		lda	src_ptr			; get address of structure
		adc	#4			; + 4 to point to first char
		tax				; low word in X
		lda	src_ptr+2
		adc	#0
		tay				; high word in Y
		pla				; recover length
		jsr	PutBlock		; copy the text into packet
		
		jsr	SendPacket
		bcc	@ok
		lda	#user_not_found		; don't known this user
		bra	exit
@ok
		jsr	StartReply
		jsr	GetLong			; get the user ID
		sta	my_user_id		; and save it off
		stx	my_user_id+2

no_owner
;------------------------------------------------------------
; Make the FPSetDirParms call.
;------------------------------------------------------------
		lda	#afpSetDirParms
		jsr	StartPacket
		
		jsr	PutIDs
		
		lda	my_bitmap
		jsr	PutWord
		
		sec				; pad after pathname
		jsr	PutPath
		
		lda	my_bitmap
		and	#$0004			; setting the owner?
		beq	skip_owner		; if not, don't put in packet
		
		lda	my_user_id
		ldx	my_user_id+2
		jsr	PutLong			; put user ID in packet
skip_owner
		lda	my_bitmap
		and	#$0008			; setting group?
		beq	skip_group
		
		lda	my_group_id
		ldx	my_group_id+2
		jsr	PutLong			; put group ID in packet
skip_group
		ldy	#10			; offset to access (high) in pb
		lda	[my_pb_ptr],y
		tax				; put high word in X
		dey
		dey
		lda	[my_pb_ptr],y		; get low word in A
		and	#$FF00			; zero out user summary byte
		jsr	PutLong			; put access bytes in
		
		jsr	SendPacket		; send it out
		jsr	CheckParent		; check for path not found
		bcs	exit

		clc
		lda	#0			; no error
exit
		jmp	sp_exit
		
		endwith				; with dp
		endp


getdefpriv	proc

pb		record	0			; parameter block format
		ds.w	1			; FST#
		ds.w	1			; command #
flags		ds.l	1
access		ds.l	1			; access rights
owner		ds.l	1			; pointer to owner buffer
group		ds.l	1			; pointer to group buffer
		endr
		
		with	dp,mydata

		ProcName getdefpriv
		
; BEGIN 26-Sep-91 MSD
;------------------------------------------------------------
; Always return flags
;------------------------------------------------------------
		ldy	#pb.flags
		lda	def_flags
		sta	[my_pb_ptr],y
		iny
		iny
		lda	def_flags+2
		sta	[my_pb_ptr],y
		
		sec
		lda	pcount
		sbc	#3			; done through flags
		sta	pcount			; update it
		beq	ok_exit			; done => return no error
; END 26-Sep-91 MSD

;------------------------------------------------------------
; Return access rights
;------------------------------------------------------------
		lda	def_access
		ldy	#pb.access
		sta	[my_pb_ptr],y		; return access rights
; BEGIN 16-Jan-91 change
		iny
		iny
		lda	def_access+2
		sta	[my_pb_ptr],y		; return upper word
; END 16-Jan-91 change
		dec	pcount			; 26-Sep-91 MSD
		beq	ok_exit			; 26-Sep-91 MSD
		
;------------------------------------------------------------
; Return owner name string last set (flags tell if it is actually
; being changed on newly created directories).
;------------------------------------------------------------
		ldy	#pb.owner
		lda	[my_pb_ptr],y		; copy pointer to buffer
		sta	dest_ptr
		iny
		iny
		lda	[my_pb_ptr],y
		sta	dest_ptr+2
		ora	dest_ptr		; is it NULL?
		beq	did_owner		; skip copy of owner name
		
		lda	#<def_owner
		sta	src_ptr			; point to def. owner
		lda	#^def_owner
		sta	src_ptr+2
		
		jsr	Out_PStr		; try to put in buffer
		bcs	exit			; return error
did_owner
		dec	pcount			; anything else?
		beq	ok_exit			; no, so return no error

;------------------------------------------------------------
; Return group name string last set (flags tell if it is actually
; being changed on newly created directories).
;------------------------------------------------------------
		ldy	#pb.group
		lda	[my_pb_ptr],y		; copy pointer to buffer
		sta	dest_ptr
		iny
		iny
		lda	[my_pb_ptr],y
		sta	dest_ptr+2
		ora	dest_ptr		; is it NULL?
		beq	ok_exit			; yes, so done
		
		lda	#<def_group
		sta	src_ptr			; point to def. group
		lda	#^def_group
		sta	src_ptr+2
		
		jsr	Out_PStr		; try to put in buffer
		bra	exit			; done

ok_exit
		clc
		lda	#0			; no error
exit
		jmp	sp_exit
		
		endwith
		endp
		
		
setdefpriv	proc

pb		record	0			; parameter block format
		ds.w	1			; FST#
		ds.w	1			; command #
flags		ds.l	1
access		ds.l	1			; access rights
owner		ds.l	1			; pointer to owner buffer
group		ds.l	1			; pointer to group buffer
		endr
		
		with	dp,mydata
		
		ProcName setdefpriv


;------------------------------------------------------------
; Set owner and group strings to the empty string in case the
; user doesn't supply them.  If they are supplied, then the
; new values will be stored later.
;------------------------------------------------------------
		stz	def_owner
		stz	def_group
		
;------------------------------------------------------------
; Set flags
;------------------------------------------------------------
		ldy	#pb.flags
		lda	[my_pb_ptr],y
		sta	def_flags
		iny
		iny
		lda	[my_pb_ptr],y
		sta	def_flags+2
		
		sec
		lda	pcount
		sbc	#3			; done through flags
		sta	pcount
		bne	rights			; more to do

; Here, they only supplied flags.  If they're trying to set the
; access rights, don't let 'em do it (it doesn't make sense).
		lda	def_flags
		and	#fSetRights		; access rights bit set?
		beq	ok_exit			; all is well in the world
		
		sec				; indicate error
		lda	#invalid_parm
		bra	exit

;------------------------------------------------------------
; Set Access Rights
;------------------------------------------------------------
rights
		ldy	#pb.access		; don't copy flags
		lda	[my_pb_ptr],y		; world & group access
		sta	def_access
		iny
		iny
		lda	[my_pb_ptr],y		; group & owner access
		sta	def_access+2
		
		dec	pcount			; is that all?
go_ok_exit	beq	ok_exit
		
;------------------------------------------------------------
; Set Default Owner
;------------------------------------------------------------
		ldy	#pb.owner
		lda	[my_pb_ptr],y
		sta	src_ptr			; point to owner name
		iny
		iny
		lda	[my_pb_ptr],y
		sta	src_ptr+2
		
		ora	src_ptr			; is it NULL (i.e. guest)
		beq	owner_done		; yes, so leave null owner name
		
		lda	[src_ptr]		; get length
		cmp	#32			; less than 32?
		blt	owner_len		; yes, so use it
		
		sec				; error:
		lda	#user_not_found		; bad owner name
		bra	exit
owner_len
		sta	def_owner		; set length byte
		tay				; Y = index to GString
		iny				; add 1 because length is word
		tax				; X = index to def_owner
		beq	owner_done		; NULL? skip copy

@loop
		lda	[src_ptr],y		; get from GString
		sta	def_owner,x		; put in def_owner
		dey
		dex
		bne	@loop			; more to copy?

owner_done
		dec	pcount			; anything else?
		beq	ok_exit
		
;------------------------------------------------------------
; Set Default Group
;------------------------------------------------------------
		ldy	#pb.group
		lda	[my_pb_ptr],y
		sta	src_ptr			; point to group name
		iny
		iny
		lda	[my_pb_ptr],y
		sta	src_ptr+2
		
		ora	src_ptr			; is it NULL (i.e. no group)
		beq	group_done		; yes, so leave null group name
		
		lda	[src_ptr]		; get length
		cmp	#32			; less than 32?
		blt	group_len		; yes, so use it
		
		sec				; error:
		lda	#group_not_found	; bad group name
		bra	exit
group_len
		sta	def_group		; set length byte
		tay				; Y = index to GString
		iny				; add 1 because length is word
		tax				; X = index to def_group
		beq	ok_exit			; NULL? skip copy

@loop
		lda	[src_ptr],y		; get from GString
		sta	def_group,x		; put in def_group
		dey
		dex
		bne	@loop			; more to copy?
group_done

ok_exit
		clc
		lda	#0			; no error
exit
		jmp	sp_exit
		
		endwith
		endp
		
		
		
user_info	proc
		with	dp,mydata
		import	id_vol

		ProcName user_info
		
;------------------------------------------------------------
; First, make sure device is an AFP driver, or else return
; an inval_dev_num error.
;------------------------------------------------------------
		ldy	#4			; offset to device number
		lda	[my_pb_ptr],y		; get device number
		jsr	id_vol			; go see if it's mine
		bcc	found_vol		; it's mine!
		cmp	#bad_vol_type
		bne	@err			; change unsupported volume type
		lda	#inval_dev_num		; to invalid device number
@err
		brl	err_exit
found_vol
;------------------------------------------------------------
; Send an FPUserInfo command out to find user and primary
; group numbers.
;------------------------------------------------------------
		lda	#afpGetUserInfo+$100	; set "This User" bit
		jsr	StartPacket
		
		lda	#0			; UserID = 0
		tax
		jsr	PutLong
		
		lda	#$300			; get UserID and Primary Group ID
		jsr	PutWord
		
		jsr	SendPacket		; go send off the packet
		bcc	@ok
		brl	exit			; return any errors
@ok
		jsr	StartReply		; process reply packet
		jsr	GetWord			; ignore bitmap
		
		jsr	GetLong			; get UserID
		sta	my_user_id		; save for later call
		stx	my_user_id+2
		
		jsr	GetLong			; get primary group ID
		sta	my_group_id
		stx	my_group_id+2
		
;------------------------------------------------------------
; Turn UserID into user name
;------------------------------------------------------------
		lda	#afpMapUserID		; map user ID to user name
		jsr	StartPacket
		
		lda	my_user_id		; get user ID to map
		ldx	my_user_id+2
		jsr	PutLong
		
		jsr	SendPacket		; go do it
		bcs	exit			; return any errors

		lda	reply_buf		; get pointer to returned string
		sta	src_ptr			; save as pointer to source string
		lda	reply_buf+2
		sta	src_ptr+2
		
		ldy	#6			; offset in pb of name buffer pointer
		lda	[my_pb_ptr],y
		sta	dest_ptr
		iny
		iny
		lda	[my_pb_ptr],y
		sta	dest_ptr+2
		
		jsr	Out_PStr		; return the string to a buffer
		bcs	exit

		lda	pcount
		cmp	#4			; skip group name?
		beq	ok_exit			; yes, exit with no error
do_group
;------------------------------------------------------------
; Turn primary group ID into primary group name
;------------------------------------------------------------
		lda	#afpMapGroupID		; map group ID to group name
		jsr	StartPacket
		
		lda	my_group_id		; get user ID to map
		ldx	my_group_id+2
		jsr	PutLong
		
		jsr	SendPacket		; go do it
		bcs	exit			; return any errors

		lda	reply_buf		; get pointer to returned string
		sta	src_ptr			; save as pointer to source string
		lda	reply_buf+2
		sta	src_ptr+2
		
		ldy	#10			; offset in pb of group buffer pointer
		lda	[my_pb_ptr],y
		sta	dest_ptr
		iny
		iny
		lda	[my_pb_ptr],y
		sta	dest_ptr+2
		
		jsr	Out_PStr		; return the string to a buffer
exit
		jmp	sp_exit
ok_exit
		clc
		lda	#0
		bra	exit
err_exit
		sec
		bra	exit

		endwith				; with dp
		endp


copy_file	proc
		with	dp,mydata
		
		import	two_file_call:code
		
		ProcName copy_file
		
		lda	#6			; offset to path 1
		ldx	#0			; FST attributes
		ldy	#0			; select path 1
		jsl	parse_path
		lda	#10			; offset to path 2
		ldx	#0			; FST attributes
		ldy	#1			; select path 2
		jsl	parse_path
		
;------------------------------------------------------------
; Process the source path.  Volume only is bad storage type.
;------------------------------------------------------------
		jsr	proc_path1		; parse source pathname
		bcs	exit
		
		lda	volume_sep		; root only?
		beq	bad_type		; can't do it to root

		lda	#afpCopyFile		; move and rename
		sta	my_call_num		; save as call to issue
		
		stz	same_vol_flag		; don't need same volume
		
		jmp	two_file_call		; do common code in ChangePath
exit
		jmp	sp_exit			; return to caller
bad_type
		lda	#bad_store_type		; illegal copy: volume only
		sec
		bcs	exit

		endwith				; with dp
		endp


;------------------------------------------------------------
; Find_recs
;
; Given an open file refnum in A, set up the pointer to the
; FCR and VCR.  Extract SessRefnum and VolID from VCR.  Make
; sure I own this FCR (return invalid refnum if not).
;
; On entry:
;	A = refnum
;
; On exit:
;	c = 0 => no error
;	c = 1 => error (A = error code)
;	my_fcr_ptr = address of FCR
;	my_vcr_ptr = address of VCR
;	SessRefnum = session reference number for volume
;	VolID      = volume ID for volume
;------------------------------------------------------------

find_recs	proc
		with	dp,mydata
		
		ProcName find_recs
		
		jsl	find_fcr
		bcs	bad_ref			; error is invalid refnum
		jsl	deref			; get real address
		stx	my_fcr_ptr
		sty	my_fcr_ptr+2

		ldy	#fcr.fst_id
		lda	[my_fcr_ptr],y		; get owning FST
		cmp	#my_fst_id		; is this FCR mine?
		bne	bad_ref			; if not, do error

		ldy	#fcr.vcr_id
		lda	[my_fcr_ptr],y		; get corresponding VCR
		jsl	find_vcr		; find my VCR
		bcs	bad_ref			; should never get an error!
		jsl	deref
		stx	my_vcr_ptr
		sty	my_vcr_ptr+2
		
		ldy	#vcr.sessrefnum
		lda	[my_vcr_ptr],y		; get SessRefnum
		sta	SessRefnum
		
		iny
		iny				; Y = vcr.volid
		lda	[my_vcr_ptr],y		; get VolID of volume
		sta	VolID

		clc				; no errors
exit
		rts
bad_ref
		sec
		lda	#inval_refnum		; error must be invalid refnum
		bra	exit

		endwith				; with dp
		endp


;------------------------------------------------------------
; Get_User_Path
;
; Returns a pointer to a class 1 string containing the path
; to the user's folder on the user volume.  The string is of
; the form:
;	:VolumeName:Users:UserName
; where UserName is <Any User> if logged on as a guest.
;
; It first builds the string with slashes (/) instead of
; colons so it can be passed to FIUserPrefix.  The slashes
; are then changed to colons before returning.
;
;------------------------------------------------------------

get_user_path	proc
stat_userbit	equ	5
		with	dp,mydata
		import	(id_vol,process_path,com_get_info):code

		ProcName get_user_path
		
		lda	#1
loop
		sta	my_dev_num
		jsr	id_vol			; see if it's mine
		bcc	check_user		; see if it is a user volume
		
		cmp	#inval_dev_num
		bne	next			; other error, do next vol
		brl	none			; none found
next
		lda	my_dev_num		; get last dev num
		ina				; try the next one
		bra	loop
check_user
		ldy	#stat_userbit
		lda	[gbuf_ptr],y
		and	#1			; get user volume bit
		beq	next			; not set, try next volume

		lda	#1			; start with colon
		sta	user_path
		lda	#':'
		sta	user_path+2		; first char is colon
		
		ldx	#<gstring
		ldy	#^gstring
		jsr	append			; add volume name
		
		ldx	#<user_string
		ldy	#^user_string
		jsr	append			; add ":users:"
		
		lda	#afpGetUserInfo+$100	; get my info
		jsr	StartPacket
		
		jsr	PutLong			; ignore user ID
		
		lda	#$100			; my user ID only
		jsr	PutWord
		
		jsr	SendPacket
		bcs	bcs_none		; on error, couldn't find it
		
		jsr	StartReply
		jsr	GetWord			; ignore bitmap
		jsr	GetLong			; get my user ID
		pha				; save user ID on stack
		phx
		
		lda	#afpMapUserID		; map my ID to a name
		jsr	StartPacket
		
		plx
		pla				; recover my user ID
		jsr	PutLong
		
		jsr	SendPacket
		bcs	bcs_none
		
		lda	reply_pkt
		and	#$00FF			; get length of user name
		bne	registered		; if zero, then user "<Any User>"
		
		ldx	#<any_user
		ldy	#^any_user
		bra	append_name
		
registered
		pushlong #reply_pkt
		pushlong #reply_pkt
		jsr	cvt_0_to_1		; convert to class 1 string
		
		ldx	#<reply_pkt
		ldy	#^reply_pkt
append_name
		jsr	append
		
;
; Begin 7-Jun-91 MSD fix.  I shouldn't return the path to the user's folder
; unless the folder actually exists.  So, now I actually get info on the
; path I just created (and make sure it is a folder).
;
		lda	#31			; assume maximum span
		sta	my_span			; 18-Dec-91 MSD
		stz	my_dev_num		; don't use device number
		lda	#<user_path		; point to the path
		sta	my_path_ptr
		lda	#^user_path
		sta	my_path_ptr+2

		jsr	process_path		; go find the VolID, DirID, etc.
bcs_none	bcs	none			; error implies it doesn't exist
		
		jsr	com_get_info		; use existing FPGetFileDirParms code
		bcs	none			; error means it doesn't exist
		
		lda	my_filetype		; com_get_info set this
		cmp	#$F			; was it a directory?
		bne	none			; no, so not a valid user path
;
; End 7-Jun-91 MSD fix.
;
; By the time we get here, we've constructed the path and know that
; the given path actually exists and is a folder.
;

;
; 8-Nov-91 MSD: Add a trailing slash, convert it to a PString, and
; use it to set FIUserPrefix.  Then get rid of the trailing slash and
; convert the slashes to colons, and change it back to a class 1 string.
;
		lda	user_path		; get current length
		ina				; add 1 for trailing slash
		tay				; save in Y for index
		xba				; convert to PString
		sta	user_path		; PString at user_path+1
		lda	#'/'			; trailing slash
		sta	user_path+1,y		; will write 2 bytes!
		
		ldy	gstring			; get length of volume name
		
		sep	#$20			; short A for storing chars
		longa	off
		
		sta	user_path+2		; change leading colon to slash
		sta	user_path+3,y		; slash after volume name
		sta	user_path+2-us_start+us_end,y ; slash after Users
		
		rep	#$20
		longa	on
		
		ATCall	FIUserPrefix		; set the user prefix
		
		lda	user_path
		xba				; back to class 1 string
		dea				; remove trailing slash
		sta	user_path
		
		ldy	gstring			; get length of volume name
		
		sep	#$20			; short A for storing chars
		longa	off
		
		lda	#':'			; GS/OS uses colons, not slashes
		sta	user_path+2		; change leading slash
		sta	user_path+3,y		; colon after volume name
		sta	user_path+2-us_start+us_end,y ; colon after Users

		rep	#$20
		longa	on
;
; End 8-Nov-91 MSD fix.
;

		ldy	#4
		lda	#<user_path
		sta	[my_pb_ptr],y		; return low word of pointer
		iny
		iny
		lda	#^user_path
		sta	[my_pb_ptr],y		; return high word of pointer
		
		clc				; it all worked out
		lda	#0
exit
		jmp	sp_exit
none
		sec
		lda	#data_unavail		; return this if path couldn't be set
		bcs	exit
		
user_path	ds.b	70			; more than enough
user_string	dc.w	us_end-us_start		; length word for string
us_start	dc.b	':Users:'
us_end
any_user	dc.w	au_end-au_start
au_start	dc.b	'<Any User>'
au_end

FIUserPrefix
		dc.b	0,$2A
		dc.w	0
		dc.b	$AA			; SET the prefix
		dc.l	user_path+1

;------------------------------------------------------------
; Append
;
; This routine appends the class 1 string pointed to by X,Y
; to the class 1 string in user_path.
;------------------------------------------------------------
append
		stx	src_ptr			; save address of string
		sty	src_ptr+2
		
		clc
		lda	user_path
		adc	#<user_path
		sta	dest_ptr		; set up destination address
		lda	#^user_path
		adc	#0
		sta	dest_ptr+2
		
		lda	[src_ptr]		; get string length
		tax				; in X as loop counter
		ldy	#1			; remember: length WORD, not byte
		sep	#$20			; short A for chars
		longa	off
@loop
		iny				; point to next byte to move
		lda	[src_ptr],y
		sta	[dest_ptr],y
		dex				; done yet?
		bne	@loop
		
		rep	#$20
		longa	on
		
		dey				; get real length of string
		tya				; put in A for math
		clc
		adc	user_path		; add to old length to get new length
		sta	user_path		; and update string length
		
		rts

		endwith				; with dp
		endp


;------------------------------------------------------------
; Open_DT
;
; Given a pathname (volume name), the desktop database for
; that volume is opened and the desktop refnum is returned.
;
;------------------------------------------------------------

open_dt		proc
		with	dp,mydata
		
		ProcName open_dt
		
		lda	#8			; offset to path 1
		ldx	#0			; FST attributes
		ldy	#0			; select path 1
		jsl	parse_path
		jsr	proc_path1		; parse pathname
		bcs	exit			; return any error

		lda	#afpDTOpen
		jsr	StartPacket
		
		lda	VolID			; only parameter is VolID!
		jsr	PutWord
		
		jsr	SendPacket
		bcs	exit
		
		jsr	StartReply
		
		jsr	GetWord			; get DTRefnum
		ldy	#4			; offset to refnum
		sta	[my_pb_ptr],y		; return the refnum
		
		clc
		lda	#0			; no error
exit
		jmp	sp_exit
		
		endwith				; with dp
		endp
		
		
;------------------------------------------------------------
; Close_DT
;
; Given a desktop refnum of an open desktop database, the
; desktop database is closed.
;
;------------------------------------------------------------

close_dt	proc
		with	dp,mydata
		
		ProcName close_dt

		lda	#8			; offset to path 1
		ldx	#0			; FST attributes
		ldy	#0			; select path 1
		jsl	parse_path
		jsr	proc_path1		; parse pathname
		bcs	exit			; return any error

		lda	#afpDTClose
		jsr	StartPacket
		
		ldy	#4			; offset to DTRefnum
		lda	[my_pb_ptr],y
		jsr	PutWord
		
		jsr	SendPacket
exit
		jmp	sp_exit		; return error if any

		endwith				; with dp
		endp


;------------------------------------------------------------
; Get_Comment
;
; Given a desktop refnum and pathname, the comment for the
; given path in the given database is returned.  If no
; comment exists for the path, null string is returned.
;
;------------------------------------------------------------

get_comment	proc
		with	dp,mydata
		
		ProcName get_comment
		
		lda	#8			; offset to path 1
		ldx	#0			; FST attributes
		ldy	#0			; select path 1
		jsl	parse_path
		jsr	proc_path1		; parse pathname
		bcs	exit			; return any error

		lda	#afpGetCmt		; get comment
		jsr	StartPacket
		
		ldy	#4			; offset to DTRefnum
		lda	[my_pb_ptr],y
		jsr	PutWord
		
		lda	DirID
		ldx	DirID+2
		jsr	PutLong			; put DirID in packet
		
		clc				; no alignment after path
		jsr	PutPath			; put path in
		
		jsr	SendPacket		; go do it
		jsr	CheckParent		; check for path_not_found
		bcc	@got_cmt
		
		cmp	#data_unavail		; no comment?
		bne	err_exit		; other error, report it
		
		stz	reply_pkt		; zero out comment length
@got_cmt
		lda	#<reply_pkt		; set up source address for
		sta	src_ptr			; Out_PStr
		lda	#^reply_pkt
		sta	src_ptr+2
		
		ldy	#10			; offset to buffer pointer
		lda	[my_pb_ptr],y		; get output buffer address low
		sta	dest_ptr		; set up for Out_PStr
		iny
		iny
		lda	[my_pb_ptr],y
		sta	dest_ptr+2
		
		jsr	Out_PStr			; return comment to user
exit
		jmp	sp_exit
err_exit
		sec				; force carry set for error
		bcs	exit

		endwith				; with dp
		endp


;------------------------------------------------------------
; Set_Comment
;
; Given a desktop refnum, pathname, and comment string this
; call sets the comment for the given pathname to the given
; comment string.  If the comment string is null, the comment
; for the path is removed.
;
;------------------------------------------------------------

set_comment	proc
		with	dp,mydata
		
		ProcName set_comment
		
		lda	#8			; offset to path 1
		ldx	#0			; FST attributes
		ldy	#0			; select path 1
		jsl	parse_path
		jsr	proc_path1		; parse pathname
		bcs	exit			; return any error

		lda	pcount
		cmp	#4			; give a comment string?
		beq	remove			; no, so remove comment
		ldy	#10			; offset to comment
		lda	[my_pb_ptr],y
		sta	src_ptr
		iny
		iny
		lda	[my_pb_ptr],y
		sta	src_ptr+2
		lda	[src_ptr]		; null string?
		beq	remove			; yes, so remove comment
		
		lda	#afpAddCmt
		jsr	StartPacket
		
		ldy	#4			; offset to DTRefnum
		lda	[my_pb_ptr],y
		jsr	PutWord
		
		lda	DirID
		ldx	DirID+2
		jsr	PutLong			; put DirID in packet
		
		sec				; align after path
		jsr	PutPath			; put path in packet
		
		lda	[src_ptr]		; get string length
		cmp	#199			; truncate to 199 chars if more
		blt	@less
		lda	#199			; max length is 199
@less
		pha				; save length
		jsr	PutByte
		
		clc
		lda	src_ptr
		adc	#2			; point to start of text
		tax				; in X,Y
		lda	src_ptr+2
		adc	#0
		tay
		pla				; recover length
		jsr	PutBlock
		
		jsr	SendPacket
		jsr	CheckParent
exit
		jmp	sp_exit

;------------------------------------------------------------
; We were given a null string, so do an FPRemoveComment
;------------------------------------------------------------
remove
		lda	#afpRmvCmt
		jsr	StartPacket
		
		ldy	#4			; offset to DTRefnum
		lda	[my_pb_ptr],y
		jsr	PutWord
		
		lda	DirID
		ldx	DirID+2
		jsr	PutLong			; put DirID in packet
		
		clc				; no alignment
		jsr	PutPath
		
		jsr	SendPacket
		jsr	CheckParent
		cmp	#data_unavail		; no comment to remove?
		bne	@other			; no, so don't change
		lda	#0			; becomes no error
@other
		cmp	#1			; set carry if A<>0
		bra	exit
		
		endwith				; with dp
		endp

;------------------------------------------------------------
; GetSrvrName
;
; Given a pathname, this command returns the server name and
; zone name for that volume.
;
;------------------------------------------------------------

getsrvrname	proc
		with	dp,mydata
		
		ProcName getsrvrname
		
		lda	#6			; offset to path 1
		ldx	#0			; FST attributes
		ldy	#0			; select path 1
		jsl	parse_path
		jsr	proc_path1		; parse pathname
		bcc	@ok_path
		brl	exit			; return the error
@ok_path

		ldy	#vcr.dev
		lda	[my_vcr_ptr],y		; get device number
		sta	dev_num			; prepare to call it
		
		lda	#drvr_status		; do a status call
		sta	dev_callnum
		
		lda	gbuf_ptr		; buffer is GBUF
		sta	dev_buff
		lda	gbuf_ptr+2
		sta	dev_buff+2
		
		lda	#tConfig.size		; get everything (and names)
		sta	dev_req_cnt
		stz	dev_req_cnt+2
		
		lda	#stat_config		; get configuration
		sta	dev_stat_code
		
		jsl	Dev_Dispatcher		; go make the call
		bcs	exit

		ldy	#8			; offset to name buffer pointer
		lda	[my_pb_ptr],y
		sta	dest_ptr		; is destination
		iny
		iny
		lda	[my_pb_ptr],y
		sta	dest_ptr+2
		ora	dest_ptr		; any pointer given?
		beq	skip_srvr		; if not, don't return it
		
		clc
		lda	gbuf_ptr
		adc	#tConfig.server		; get pointer to server name
		sta	src_ptr			; configuration data
		lda	gbuf_ptr+2
		adc	#0
		sta	src_ptr+2
		
		jsr	Out_PStr
		bcs	exit
skip_srvr
		lda	pcount
		cmp	#4			; did they want zone name, too?
		beq	ok_exit

		ldy	#$C			; offset to zone name buffer
		lda	[my_pb_ptr],y
		sta	dest_ptr		; is destination
		iny
		iny
		lda	[my_pb_ptr],y
		sta	dest_ptr+2
		
		clc
		lda	gbuf_ptr
		adc	#tConfig.zone		; get pointer to zone name
		sta	src_ptr			; configuration data
		lda	gbuf_ptr+2
		adc	#0
		sta	src_ptr+2
		
		jsr	Out_PStr
exit
		jmp	sp_exit		; return from call
ok_exit
		clc
		lda	#0
		bra	exit
		
		endp

;------------------------------------------------------------
; SetBootVol
;
; This command should never be called by a user application.
; It is used only when booting over the network, when the
; name of the boot volume must be set to the user volume.
;
;------------------------------------------------------------

setbootvol	proc
		with	dp,mydata
		import	id_vol:code
		
		ProcName setbootvol
		
		lda	#1			; boot device
		jsr	id_vol			; see if it's mine
		bcs	exit			; return if error
		
		ldx	gstring			; get length of volume name
		inx				; plus 1 for leading ":"
		lda	#'::'			; leading colon
		sta	gstring
		stx	gstring-1		; new length before name
		
; 20-Jun-90 (MSD): Do a RenamePathname call to the System Loader so it also
; knows about the "rename" of the boot volume (since SCM does it only on a
; ChangePath call).

		jsl	get_boot_pfx		; get pointer to '*' prefix in X,Y
		phy				; push pointer to original path
		phx				; push low word
		pea	gstring-1>>16		; push pointer to new path
		pea	gstring-1
		ldx	#$1311			; Loader: RenamePath
		jsl	$E10000

; <-- End of 20-Jun-90 change

		ldx	#<gstring-1		; point to ":<volume_name>"
		ldy	#^gstring-1
		jsl	set_boot_pfx		; tell SCM to update "*"
		bcs	exit

;------------------------------------------------------------
; It's done.  Return with no errors.
;------------------------------------------------------------
		clc
		lda	#0
exit
		jmp	main_exit		; (init_parse_path never called)
		
		endp
		
		end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/Subs.aii b/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/Subs.aii
new file mode 100644
index 0000000..6d59156
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/Subs.aii
@@ -0,0 +1 @@
+;------------------------------------------------------------
;
; File: subs.aii
;
; This file contains subroutines common to several
; calls.
;
; Written 2-May-88 by Mark Day
;
; 06-Jul-88	MSD	Removed pathname processing from
;			PreProcess.  Process_path should
;			be called to do this as needed.
; 07-Jul-88	MSD	Added an "active" flag for debugging
;			purposes.  Some state information saved.
; 11-Jul-88	MSD	PreProcess was setting pcount to the maximum
;			for class 1 calls, instead of user's pcount.
; 12-Jul-88	MSD	Contrary to Inside AppleTalk, the maximum
;			span is 31, not 32.  Fixed PreProcess.
;  1-Aug-88	MSD	Get_Dir_Entry has two more parameters:
;			Resource_EOF, Resource_Blocks_Used.
; 31-Aug-88	MSD	Don't require read enable bit set when
;			converting ProDOS to AFP access.
; 14-Sep-88	MSD	Added routine CheckParent that will
;			search for a file's parent on a file
;			not found error.
;  3-Jan-89	MSD	CheckParent now makes sure the parent
;			is a folder (if it is a file, return
;			a path not found error).
; 30-Nov-90	MSD	Incorporated the 5.0.4 fix to MyShield so
;			that I save and restore the locations on
;			QuickDraw's direct page that I use while
;			shielding the cursor before drawing or
;			erasing the arrows in the menu bar.
; 05-Feb-91	MSD	Changed PreProcFlags for command $07
;			(now JudgeName).
; 21-Jan-93	DAL	Changed draw_arrows and erase_arrows to
;			distinguish LocalTalk from Ethernet, and
;			to undraw the arrows on SHR even if a screen
;			dimmer kicked in.
;------------------------------------------------------------

		load	'equates.dump'
		import	mydata:tdata

		entry	main_exit:code

;------------------------------------------------------------
; Convert_access
;
; This routine takes a ProDOS access word and turns it into
; the equivalent AFP bitmaps for clearing and setting file
; and directory attributes.  The variable "attributes" has
; a one word bitmap of attributes that must be cleared,
; followed by a bitmap of attributes that must be set.
;
; The backup needed bit will automatically be set.  The
; access word will be checked for validity (all unused bits
; must be zero, and the read enable bit must be set).  If
; not, an invalid parameter error will be returned.
;
; On entry:
;	full native mode
;	my_access = ProDOS access word
;
; On exit:
;	full native mode
;	attributes = clear bitmap for SetFileDirParms
;	attributes+2 = set bitmap for SetFileDirParms
;	c = 1 => error, A = error code
;
;
; The ProDOS access word looks like this:
;
; 111111
; 5432109876543210	<- bit position
; ........DNB..IWR 	<- flag
;
; where D = destroy enabled
;	N = rename enabled
;	B = backup needed
;	I = invisible
;	W = write enabled
;	R = read enabled  (ignored, assumed to be set)
;
; The AFP attributes word looks like this:
;
; 111111
; 5432109876543210	<- bit position
; *....C.DNBWrdSMI	<- flag
;
; where * = set / clear
;	C = copy protected
;	D = delete inhibit
;	N = rename inhibit
;	B = backup needed
;	W = write inhibit
;	r = resource fork already open (GetFileDirParms)
;	d = data fork already open (GetFileDirParms)
;	S = system (for MS-DOS)
;	M = multi-user
;	I = invisible
;------------------------------------------------------------

convert_access	proc	export
		with	dp,mydata
; Note: the following bitmaps are in AFP high-low byte ordering
attr_d		equ	$0001		; bit mask of D attribute
attr_n		equ	$8000		; bit mask of N attribute
attr_b		equ	$4000		; bit mask of B attribute
attr_w		equ	$2000		; bit mask of W attribute
attr_i		equ	$0100		; bit mask of I attribute

		ProcName convert_access
		
;------------------------------------------------------------
; First, validate the access word.
;------------------------------------------------------------
		lda	my_access	; get access word
		bit	#$FF18		; any reserved bits set?
		beq	ok_access	; if not, then it's OK
invalid
		sec			; indicate an error
		lda	#invalid_parm	; access word is invalid parameter
		rts			; return right now
ok_access
		ora	#$20		; force backup bit set
		sta	my_access
;------------------------------------------------------------
; Next thing to do is invert the meaning of the enable
; flags so that they become inhibit flags.
;------------------------------------------------------------
		eor	#%11000010	; remember, A = access
		sta	math_temp	; save for easy manipulation
		pha			; save again to restore later
;------------------------------------------------------------
; Now find all the flags that I have to clear
;------------------------------------------------------------
		lda	#0		; start with nothing to clear
					; math_temp         carry
		lsr	math_temp	; .........DNB..IW  R
		lsr	math_temp	; ..........DNB..I  W
		bcs	clr_w
		ora	#attr_w
clr_w
		lsr	math_temp	; ...........DNB..  I
		bcs	clr_i
		ora	#attr_i
clr_i
		lsr	math_temp	; ............DNB.  .
		lsr	math_temp	; .............DNB  .
		lsr	math_temp	; ..............DN  B
		bcs	clr_b
		ora	#attr_b
clr_b
		lsr	math_temp	; ...............D  N
		bcs	clr_n
		ora	#attr_n
clr_n
		lsr	math_temp	; ................  D
		bcs	clr_d
		ora	#attr_d
clr_d
		sta	attributes
;
; Now find all the flags I have to set
;
		pla			; recover access word
		sta	math_temp	; easy to manipulate

		lda	#$0000		; start with nothing to set
					; math_temp         carry
		lsr	math_temp	; .........DNB..IW  R
		lsr	math_temp	; ..........DNB..I  W
		bcc	set_w
		ora	#attr_w
set_w
		lsr	math_temp	; ...........DNB..  I
		bcc	set_i
		ora	#attr_i
set_i
		lsr	math_temp	; ............DNB.  .
		lsr	math_temp	; .............DNB  .
		lsr	math_temp	; ..............DN  B
		bcc	set_b
		ora	#attr_b
set_b
		lsr	math_temp	; ...............D  N
		bcc	set_n
		ora	#attr_n
set_n
		lsr	math_temp	; ................  D
		bcc	set_d
		ora	#attr_d
set_d
		sta	attributes+2	; save "set" attributes
		clc			; signal no errors
		rts

		endwith
		endp


;------------------------------------------------------------
; Convert_attr
;
; This routine takes an AFP attributes word and turns it
; into the equivalent ProDOS access word.  Bits will be
; shifted into my_access as they are determined.
;
; On entry:
;	A = AFP attributes word
;
; On exit:
;	my_access = ProDOS access word
;	attributes = AFP attributes word
;
; See convert_access for description of bitmaps.
;------------------------------------------------------------

convert_attr	proc	export
		with	mydata
attr_d		equ	$0001		; bit mask of D attribute
attr_n		equ	$8000		; bit mask of N attribute
attr_b		equ	$4000		; bit mask of B attribute
attr_w		equ	$2000		; bit mask of W attribute
attr_i		equ	$0100		; bit mask of I attribute

		ProcName convert_attr
		
		sta	attributes	; save attribute parameter
		stz	my_access	; assume no access

		clc
		lda	#attr_d
		bit	attributes	; is delete inhibit set?
		bne	set_d
		sec			; no, so delete enable
set_d
		rol	my_access	; shift D bit in
					; Note: carry is clear!
		lda	#attr_n
		bit	attributes	; rename inhibit?
		bne	set_n
		sec			; no, enable rename
set_n
		rol	my_access
		
		lda	#attr_b
		bit	attributes	; backup needed?
		beq	set_b
		sec			; yes, so needed for ProDOS
set_b
		rol	my_access
		
		asl	my_access	; next two bits are unused
		asl	my_access	; and set to 0

		lda	#attr_i
		bit	attributes	; file invisible?
		beq	set_i
		sec			; yes, so set for ProDOS
set_i
		rol	my_access
		
		lda	#attr_w
		bit	attributes	; write inhibit?
		bne	set_w
		sec			; no, so write enable
set_w
		rol	my_access
		
		sec			; always read enable
		rol	my_access
		
		rts			; all done (finally!)

		endwith
		endp


;------------------------------------------------------------
; Bytes_to_blks
;
; This routine converts a byte count into a block count by
; adding $1FF to the byte count (to round off to the next
; block) and dividing by $200 (the block size).
;
; On entry:
;	Full native mode
;	A = byte count (low word)
;	X = byte count (high word)
;
; On exit:
;	Full native mode
;	A = block count (low word)
;	X = block count (high word)
;
; Uses:
;	math_temp
;------------------------------------------------------------

bytes_to_blks	proc	export
		with	dp,mydata

		ProcName bytes_to_blks
		
;------------------------------------------------------------
; Round to next block
;------------------------------------------------------------
		clc
		adc	#$1FF		; round low word
		sta	math_temp	; save low word
		txa
		adc	#0		; bump high word
		
;------------------------------------------------------------
; Divide by 2
;------------------------------------------------------------
		lsr	a		; shift by 2
		sta	math_temp+2	; save high word
		ror	math_temp	; move carry in
		
;------------------------------------------------------------
; Divide by $100 (by selecting the right bytes)
;------------------------------------------------------------
		lda	math_temp+3	; get highest byte
		and	#$00FF		; only one byte
		tax			; becomes high word
		lda	math_temp+1	; get low word
		rts			; that's all folks.

		endwith
		endp



;------------------------------------------------------------
; UpCase
;
; Converts character in A to upper case.  Entry can be in
; either 8 or 16 bit mode (in 16 bit mode, only the low
; order byte of A is converted).
;------------------------------------------------------------

UpCase		proc	export

		ProcName UpCase
		
		php			; save 8/16 bit mode of A
		sep	#$20		; force short A for chars
		longa	off
		
		cmp	#'a'		; before the "a"?
		blt	exit		; yes, so don't change
		cmp	#'z'+1		; after "z"?
		bge	exit		; yes, so keep it, too
		
		and	#$DF		; force letter to upper case
exit
		plp			; restore 8/16 bit mode of A
		longa	on
		rts

		endp
		

;------------------------------------------------------------
; Out_PStr
;
; This routine will copy a P-String (string with leading
; length byte) into a user's buffer.  If the current call
; class is >0 then it will make sure that the string will
; fit in the user's buffer (a GS/OS output buffer).
; Otherwise, it just copies over the bytes.
;
; On entry:
;	Full native mode
;	class      = class number of current call
;	[src_ptr]  = address of length byte of P-String
;	[dest_ptr] = address of user output buffer
;			(output data address for class 0)
;			(output buffer size for class 1)
;
; On exit:
;	Full native mode
;	c = 0	if no error
;	  = 1	if error (buffer too small -- class 1)
;	A = error code (A = 0 if c = 0)
;
;------------------------------------------------------------

Out_PStr	proc	export
		with	dp,mydata

		ProcName Out_PStr
		
		lda	class		; class 0?
		beq	class0

		lda	[src_ptr]	; get length
		and	#$00FF		; mask off byte
		sta	math_temp	; save for later
		
		sec
		lda	[dest_ptr]	; get buffer size
		sbc	#4		; 4 bytes overhead
		bmi	way_too_small	; not even 4 bytes!?!
		
		pha			; save actual room
		
		lda	math_temp	; get length word
		ldy	#2		; index to buffer
		sta	[dest_ptr],y	; return length word

		pla			; get amount of room
		cmp	math_temp	; enough room?
		blt	too_small

		clc			; dest buffer + 4
		lda	dest_ptr	; is where data goes,
		adc	#3		; but index is 1..len,
		sta	dest_ptr	; so base should be
		lda	dest_ptr+2	; buffer + 3.
		adc	#0
		sta	dest_ptr+2
		
		lda	math_temp	; get length to copy
		beq	done		; don't copy if 0 bytes
		bra	copy_it		; move them bytes
way_too_small
		sec
		lda	#invalid_parm	; buffer < 4 bytes!!
		bra	exit
too_small
		sec			; indicate error
		lda	#buffer_small	; buffer too small error
		bra	exit
class0
		lda	[src_ptr]	; get length
		and	#$00FF		; only 1 byte valid
		sta	[dest_ptr]	; save length
		beq	done		; exit if null string
copy_it
		tay			; A had length to copy
		sep	#$20		; 8-bit A for chars
		longa	off
loop
		lda	[src_ptr],y	; move them bytes!
		sta	[dest_ptr],y
		dey			; more to copy?
		bne	loop		; do it again, Sam
		rep	#$20		; back to full native
		longa	on
done
		clc
		lda	#0
exit
		rts

		endwith
		endp


;------------------------------------------------------------
; Convert_error
;
; This routine takes an AFP error code as input and produces
; the equivalent GS/OS error message as output. Any unknown
; error code is turned into an I/O error.
;
; On entry:
;	A = AFP error code (possibly $0000)
;
; On exit:
;	A = GS/OS error code (possibly $0000)
;	c = 0 iff A = 0
;
;------------------------------------------------------------

convert_error	proc	export
		import	error_table:data
		with	dp,mydata

		ProcName convert_error
		
		cmp	#0		; was there no error?
		beq	got_it
		sta	math_temp	; save for comparison
		
		ldy	#0		; start with first entry
loop
		lda	error_table,y	; get next AFP error
		beq	unknown		; 0 is end of table
		cmp	math_temp	; is this the one?
		bne	next
		lda	error_table+2,y	; get GS/OS error
		bra	got_it
next
		iny			; point to next table entry
		iny
		iny
		iny
		bra	loop
unknown
		lda	#io_error	; unknown error => I/O Error
got_it
		cmp	#1		; foce c=1 if A<>0
		rts

		endwith
		endp


;------------------------------------------------------------
; Error_table
;
; This is a conversion table of error codes.  It consists of
; pairs of words: an AFP error (low word only) followed by
; the corresponding GS/OS error.  The table is terminated
; by a single word of zeroes.
;
; Note: the AFP error codes are in high-low byte order.
;
;------------------------------------------------------------

error_table	record

		dc.w	$78EC,access_error	; access denied
		dc.w	$77EC,io_error		; auth continue
		dc.w	$76EC,io_error		; bad UAM
		dc.w	$75EC,io_error		; bad version number
		dc.w	$74EC,invalid_parm	; bitmap error
		dc.w	$73EC,invalid_path	; can't move (into descendant)
		dc.w	$72EC,access_error	; deny conflict
		dc.w	$71EC,access_error	; dir not empty
		dc.w	$70EC,vol_full		; disk full
		dc.w	$6FEC,eof_error		; EOR error
		dc.w	$6EEC,file_open		; file busy
		dc.w	$6DEC,io_error		; flat volume
		dc.w	$6CEC,data_unavail	; item not found (in desktop DB)
		dc.w	$6BEC,access_error	; lock error
		dc.w	$6AEC,io_error		; misc error
		dc.w	$69EC,io_error		; no more locks
		dc.w	$68EC,io_error		; no server
		dc.w	$67EC,dup_path		; object exists
		dc.w	$66EC,file_not_found	; object (file/folder) not found
		dc.w	$65EC,invalid_parm	; invalid parameter
		dc.w	$64EC,bad_pos		; range not locked (not by you)
		dc.w	$63EC,bad_pos		; range overlap (locked by you)
		dc.w	$62EC,io_error		; session closed
		dc.w	$61EC,access_error	; user not authorized
		dc.w	$60EC,io_error		; call not supported (was $01)
		dc.w	$5FEC,bad_store_type	; object type error
		dc.w	$5EEC,$42		; too many files open
		dc.w	$5DEC,io_error		; server going down
		dc.w	$5CEC,access_error	; can't rename
		dc.w	$5BEC,path_not_found	; directory not found
		dc.w	$5AEC,io_error		; icon type error
		dc.w	$59EC,access_error	; volume locked
		dc.w	$58EC,access_error	; object locked
		dc.w	0

		endr


TopLine		equ	3
LeftEdge	equ	1
GrafStart	equ	$E12000			; start of Super HiRes screen
NewVideo	equ	$E0C029			; controls Super Hi-Res mode
Read80Vid	equ	$E0C01F			; minus if 80 cols displayed
TextStart	equ	$0400			; upper left char of text screen
text_save	dc.b	0			; used to save text char for apples
text_char	dc.b	0			; flip high bit on/off to flash
QDFlag		record	export
		dc.w	0			; true if QuickDraw active
		endr
WroteToSHRFlag	record	export			; added 21-Jan-93 DAL (means we drew arrows on SHR screen)
		dc.w	0
		endr
QDDpage		record	export
		dc.w	0			; QuickDraw's direct page
		endr
save_arrows	ds.w	6			; screen under arrows

SaveRestQD_minRect dc.w		0,0,0,0		; Temporary save area for locations on
SaveRestQD_imageRef dc.l	0		; QuickDraw's direct page used to shield
SaveRestQD_boundsRect dc.w	0,0,0,0		; the cursor before drawing arrows.

;------------------------------------------------------------
; MyShield
;
; Will make QuickDraw hide the cursor if it moves over the
; arrows as I'm drawing or erasing them.
;------------------------------------------------------------

MyShield	proc	export
ShieldCursor	equ	$E01E98
MinRect		equ	$00
ImageRef	equ	$0E
BoundsRect	equ	$14
DirtyFlags	equ	$EC

		ProcName MyShield
		
		phd				; save my direct page
		php				; save interrupt state
		sei				; disable interrupts
		lda	QDDpage			; get QuickDraw's DP
		tcd				; into D

;save minRect
		lda	<$00+0
		sta	SaveRestQD_minRect+0
		lda	<$00+2
		sta	SaveRestQD_minRect+2
		lda	<$00+4
		sta	SaveRestQD_minRect+4
		lda	<$00+6
		sta	SaveRestQD_minRect+6

;save imageRef
		lda	<$0E+0
		sta	SaveRestQD_imageRef+0
		lda	<$0E+2
		sta	SaveRestQD_imageRef+2

;save boundsRect
		lda	<$14+0
		sta	SaveRestQD_boundsRect+0
		lda	<$14+2
		sta	SaveRestQD_boundsRect+2
		lda	<$14+4
		sta	SaveRestQD_boundsRect+4
		lda	<$14+6
		sta	SaveRestQD_boundsRect+6

; First, set min clip rectangle (where I'll be drawing)
		stz	MinRect			; top
		stz	MinRect+2		; left
		lda	#10			; bottom
		sta	MinRect+4
		lda	#12			; right
		sta	MinRect+6

; Next, set up bounds rect for clipping (??? don't ask me, I only work here)
		stz	BoundsRect		; top
		stz	BoundsRect+2		; left
		lda	#199			; bottom
		sta	BoundsRect+4
		lda	#639			; right
		sta	BoundsRect+6

; Next, set image ref to point to screen (???)
		lda	#$E1
		sta	ImageRef+2
		lda	#$2000
		sta	ImageRef

; Finally, tell QD that its DP has been messed with
		ldx	#$200
		lda	DirtyFlags,x
		and	#$8000
		sta	DirtyFlags,x

; At last, we can call ShieldCursor
		plp				; restore interrupt state
		jsl	ShieldCursor
							
;restore minRect
		lda	SaveRestQD_minRect+0
		sta	<$00+0
		lda	SaveRestQD_minRect+2
		sta	<$00+2
		lda	SaveRestQD_minRect+4
		sta	<$00+4
		lda	SaveRestQD_minRect+6
		sta	<$00+6

;restore imageRef
		lda	SaveRestQD_imageRef+0
		sta	<$0E+0
		lda	SaveRestQD_imageRef+2
		sta	<$0E+2

;restore boundsRect
		lda	SaveRestQD_boundsRect+0
		sta	<$14+0
		lda	SaveRestQD_boundsRect+2
		sta	<$14+2
		lda	SaveRestQD_boundsRect+4
		sta	<$14+4
		lda	SaveRestQD_boundsRect+6
		sta	<$14+6
							
		pld				; restore my DP
		rts
		
		endp

;------------------------------------------------------------
; MyUnShield
;
; Undo the effect of MyShield above.
;------------------------------------------------------------

MyUnShield	proc	export
UnShield	equ	$E01E9C

		ProcName MyUnShield
		
		phd		
		lda	QDDpage
		tcd
		jsl	UnShield
		pld
		rts
		
		endp

;------------------------------------------------------------
; Draw_Arrows
; Puts arrows up on screen during network transaction, or put
; up characters in text mode.
;------------------------------------------------------------

draw_arrows	proc	export
		import	flash_arrows:code
		import	NetworkSlotNumber

		ProcName draw_arrows
		
		sep	#$20			; 8 bit mode for NewVideo register
		lda	>NewVideo
		rep	#$20			; return to 16 bit mode
		and	#$0080			; get Super Hi-Res bit
		beq	text			; do text mode draw

		lda	QDFlag			; was QuickDraw active?
		beq	hidden			; no, so cursor isn't a problem
		jsr	MyShield		; shield the cursor from arrows
hidden

		inc	WroteToSHRFlag		; 21-Jan-93 DAL

		lda	NetworkSlotNumber
		and	#8			;external slot?
		lsr	a
		lsr	a			;map external to X=2, internal to X=0
		tax

		lda	>GrafStart+(TopLine*160)+LeftEdge
		sta	save_arrows
		and	ArrowPictures,x
		sta	>GrafStart+(TopLine*160)+LeftEdge
		lda	>GrafStart+((TopLine+1)*160)+LeftEdge
		sta	save_arrows+2
		and	ArrowPictures+4,x
		sta	>GrafStart+((TopLine+1)*160)+LeftEdge
		lda	>GrafStart+((TopLine+2)*160)+LeftEdge
		sta	save_arrows+4
		and	ArrowPictures+8,x
		sta	>GrafStart+((TopLine+2)*160)+LeftEdge
		lda	>GrafStart+((TopLine+4)*160)+LeftEdge
		sta	save_arrows+6
		and	ArrowPictures+12,x
		sta	>GrafStart+((TopLine+4)*160)+LeftEdge
		lda	>GrafStart+((TopLine+5)*160)+LeftEdge
		sta	save_arrows+8
		and	ArrowPictures+16,x
		sta	>GrafStart+((TopLine+5)*160)+LeftEdge
		lda	>GrafStart+((TopLine+6)*160)+LeftEdge
		sta	save_arrows+10
		and	ArrowPictures+20,x
		sta	>GrafStart+((TopLine+6)*160)+LeftEdge
		
		lda	QDFlag			; was QD active?
		beq	shown			; no, cursor isn't a problem
		jsr	MyUnShield		; un shield cursor
shown		rts


text		stz	WroteToSHRFlag		; 21-Jan-93 DAL
		phb
		sep	#$20
		longa	off
		
		lda	>Read80Vid		; are we displaying 80 columns?
		rol	a
		rol	a			; flag now in bit 0
		and	#1			; get flag only
		ora	#$E0			; E1 if 80 columns
		pha				; save as bank for text
		plb				; get text screen bank
		
		lda	TextStart		; get original character
		sta	>text_save		; save for later

		lda	>text_char		; get inverse/normal
		eor	#$80			; flip it
		sta	>text_char		; save for next time

;;;		ora	#'*'			; make it an asterisk
*** 21-Jan-93 DAL -- If Ethernet, blank a "@" instead of a "*"
		ldx	#'*'			;anticipate LocalTalk ($2A/$AA for inverse/normal)
		lda	>NetworkslotNumber
		and	#8			;nonzero if external slot (Ethernet)
		beq	@1
		ldx	#$00			;Ethernet (use $00/$80 for inverse/normal)
@1		txa
		ora	>text_char
		sta	TextStart		; put on screen
*** end 21-Jan-93 DAL

		
		rep	#$20
		longa	on
		plb				; return to current bank
		rts

*
* First image is for LocalTalk, 2nd is for Ethernet
*
* Added 21-Jan-93 DAL
*
ArrowPictures	dc.b	$FF,$0F, $FF,$FF	;  ..*.   ....
		dc.b	$00,$00, $FF,$0F	;  ****   ..*.
		dc.b	$FF,$0F, $00,$00	;  ..*.   ****
;                       $FF,$FF, $FF,$FF        ;  ....   ....
		dc.b	$F0,$FF, $00,$00	;  .*..   ****
		dc.b	$00,$00, $F0,$FF	;  ****   .*..
		dc.b	$F0,$FF, $FF,$FF	;  .*..   ....
		
		endp
		

;------------------------------------------------------------
; Erase_Arrows
; Undo any screen manipulation happened during draw_arrows
;------------------------------------------------------------

erase_arrows	proc	export
		import	flash_arrows:code
		
		ProcName erase_arrows
		
;		sep	#$20			; 8 bit mode for NewVideo register
;		lda	>NewVideo
;		rep	#$20			; return to 16 bit mode
;		and	#$0080			; get Super Hi-Res bit
;		beq	text			; do text mode draw
*** 21-Jan-93 DAL -- Erase the activity indicator where we drew it, provided the SHR screen is linear
		lda	WroteToSHRFlag
		beq	text

		sep	#$20
		lda	>NewVideo
		rep	#$20
		and	#$00C0
		beq	text			;oops, SHR screen is off and nonlinear, don't touch it
*** 21-Jan-93

		lda	QDFlag			; was QuickDraw active?
		beq	hidden			; no, so cursor isn't a problem
		jsr	MyShield		; shield the cursor from arrows
hidden
		lda	save_arrows
		sta	>GrafStart+(TopLine*160)+LeftEdge
		lda	save_arrows+2
		sta	>GrafStart+((TopLine+1)*160)+LeftEdge
		lda	save_arrows+4
		sta	>GrafStart+((TopLine+2)*160)+LeftEdge
		lda	save_arrows+6
		sta	>GrafStart+((TopLine+4)*160)+LeftEdge
		lda	save_arrows+8
		sta	>GrafStart+((TopLine+5)*160)+LeftEdge
		lda	save_arrows+10
		sta	>GrafStart+((TopLine+6)*160)+LeftEdge
		
		lda	QDFlag			; was QD active?
		beq	shown			; no, cursor isn't a problem
		jsr	MyUnShield		; un shield cursor
shown		rts


text		phb
		sep	#$20
		longa	off
		
		lda	>Read80Vid		; are we displaying 80 columns?
		rol	a
		rol	a			; flag now in bit 0
		and	#1			; get flag only
		ora	#$E0			; E1 if 80 columns
		pha				; save as bank for text
		plb				; get text screen bank
		
		lda	>text_save		; get old char
		sta	TextStart		; restore it
		
		rep	#$20
		longa	on
		plb				; return to current bank
		rts
		
		endp
				

;------------------------------------------------------------
; PreProcess
;
; This routine will check validity of some parameters in the
; parameter list and then copy the appropriate GS/OS fields
; into my private working space.  Note that individual calls
; are responsible for calling proc_path to find files.
;
; On entry:
;	Full native mode
;	X = call number * 2
;	Y = class number * 2
;
; On exit:
;	Full native mode
;	A = class
;
;
; The call uses a table that provides the following
; information about each call:
;	1) Max PCount
;	2) Max Class
;	3) Pathname 1 required
;	4) Pathname 2 required
;	5) VCR used
;	6) FCR used
;	7) Check FCR to make sure this is a file.
;	   Set up AFP fork bitmap.
;
;
;	      |7|6|5|4|3|  2  |    1    |
;	______|_|_|_|_|_|_____|_________|
;	| | | | | | | | | | | | | | | | |
;	|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|
;	15	       8 7	       0
;
;
; Modification History:
; 17-Aug-88	MSD	Changed pathname(s) used flag to
;			two pathname required flags.
; 18-Dec-91	MSD	Removed code that checks the span of
;			pathnames so FindVol will be called to
;			find the volume (and the error priority
;			bit will be set).
;------------------------------------------------------------
path_1_req	equ	$100			; pathname 1 required
path_2_req	equ	$200			; pathname 2 required
vcr_used	equ	$400			; mask for VCR used bit
fcr_used	equ	$800			; mask for FCR used bit
files_only	equ	$1000			; check dirflag

PreProcess	proc	export
		with	dp,mydata
		import	PreProcFlags:data
		import	my_fork_bitmap

		ProcName PreProcess
		
		IF	DebugCode THEN
		stz	SessRefnum		; zero out values for debugging
		stz	VolID
		stz	DirID
		lda	fst_active
		beq	not_active
		brk	0			; HELP!! FST is already active!!
not_active
		inc	fst_active		; for debugging
		ENDIF

		phy				; save call class
		phx				; save call number
		jsl	Lock_Mem		; lock down GS/OS managed memory
		plx				; restore call number
		ply				; restore call class

		lda	gbuf_addr		; make a local copy of
		sta	gbuf_ptr		; the pointer to the
		lda	gbuf_addr+2		; general I/O buffer
		sta	gbuf_ptr+2
		
		lda	PreProcFlags-2,x	; get this call's flags
		sta	flags			; and save a local copy
		and	#$1F			; mask off max Pcount
		sta	max_pcount
		
		stz	pcount			; signal class 0 call
		
		tya				; A <- class * 2
		lsr	a			; A <- class
		sta	class			; save call class
		beq	class0			; skip the rest for old calls
		
		lda	flags
		and	#$E0			; mask off max class
		asl	a			; shift max class to high byte
		asl	a
		asl	a
		xba				; max class now in low byte
		cmp	class			; if max >= class then OK
		bge	good_class
		lda	#bad_class		; oops, class > max class
		brl	error_out		; go exit with error
good_class
		lda	max_pcount		; validate pcount for new calls
		cmp	[p_b_addr]		; test pcount in param list
		bge	good_pcount		; if max >= pcount then OK
		lda	#bad_pcount		; oops, pcount > max pcount
		brl	error_out
good_pcount
		lda	[p_b_addr]		; get user's pcount
		sta	pcount			; save the real pcount
		
		clc				; now set up a pointer
		lda	p_b_addr		; to the user's parameter
		adc	#2			; block (point after the
		sta	my_pb_ptr		; pcount field for class>0)
		lda	p_b_addr+2
		adc	#0
		sta	my_pb_ptr+2
		bra	continue		; do the rest of the setup
class0
		lda	p_b_addr		; for class 0 calls, just
		sta	my_pb_ptr		; copy the param block address
		lda	p_b_addr+2
		sta	my_pb_ptr+2
continue
; Now determine whether a VCR or FCR are used in this call
		lda	flags
		and	#vcr_used		; is VCR used?
		beq	check_fcr		; if not, check FCR
; Dereference the VCR virtual pointer GS/OS gave me
		ldx	vcr_addr
		ldy	vcr_addr+2
		jsl	deref			; call SCM to deref the VP
		stx	my_vcr_ptr
		sty	my_vcr_ptr+2

;------------------------------------------------------------
; Here is where I would do anything special to prepare
; for using a VCR in a call.
;
; Copy the SessRefnum and VolID from the VCR to local variables
;------------------------------------------------------------
		ldy	#vcr.sessrefnum
		lda	[my_vcr_ptr],y
		sta	SessRefnum
		
		iny
		iny				; Y = vcr.volid
		lda	[my_vcr_ptr],y
		sta	VolID

;------------------------------------------------------------
; Now see if an FCR is used in this call.  If so, set it up.
;------------------------------------------------------------
check_fcr
		lda	flags
		and	#fcr_used		; is an FCR used in this call?
		beq	check_path		; if not, process the path
		
		ldx	fcr_addr
		ldy	fcr_addr+2
		jsl	deref			; Deref VP to FCR
		stx	my_fcr_ptr
		sty	my_fcr_ptr+2

;------------------------------------------------------------
; Here is where I would do anything special to prepare
; for using an FCR in a call.
;
; Check that certain calls (Read, Write, EOF/Mark calls)
; act only on files, not directories.
;------------------------------------------------------------
		lda	flags
		and	#files_only		; enforce files only?
		beq	check_path		; if not, process the path

		ldy	#fcr.dirflag
		lda	[my_fcr_ptr],y		; get file/dir flag
		bit	#fcr_is_dir		; is it a directory?
		beq	is_a_file		; no, then OK
		lda	#access_error		; give access denied!
		bra	error_out		; return the error
is_a_file
		ldx	#data_fork_bit		; assume data fork of file
		bit	#fcr_is_res		; is it a resource fork?
		beq	got_fork_bitmap		; if not, bitmap is in X
		ldx	#res_fork_bit		; know now it is resouce fork
got_fork_bitmap
		stx	my_fork_bitmap		; save for calls

check_path
;------------------------------------------------------------
; This code makes sure that required pathnames are present.
; (Checking of spans was removed 18-Dec-91).
;------------------------------------------------------------
		lda	flags
		and	#path_1_req		; is pathname 1 required?
		beq	did_path_1		; if not, check pathname 2

;------------------------------------------------------------
; Make sure that a pathname or device name was given.
;------------------------------------------------------------
		lda	path_flags
		and	#path1_mask		; is pathname 1 given?
		ora	src_dev_num		; or source dev num?
		bne	did_path_1		; if so, check path 2

do_bad_path
		lda	#invalid_path		; span too big =>
		bra	error_out		;   invalid path syntax

did_path_1
		lda	flags
		and	#path_2_req		; is pathname 2 required?
		beq	did_path_2		; if not, skip this part
		
		lda	path_flags
		and	#path2_mask		; is pathname 2 given?
		ora	dest_dev_num		; or destination dev num?
		beq	do_bad_parm		; if not, error
		
did_path_2		
		lda	class			; let caller know the class
		rts

error_out
		sec				; indicate error
		jmp	main_exit		; go shut down call
do_bad_parm
		lda	#invalid_parm		; bad parameter (no path given)
		bra	error_out

		endwith				; with dp
		endp


;------------------------------------------------------------
; Main_Exit
;
; This routine cleans up for exiting an application call.
; It assumes you called PreProcess at the start of the call.
;
; On entry:
;	c = 1 for error
;	  = 0 for no error
;	A = error code (0 for no error)
;	err_priority =	$0000	if I didn't identify the volume
;			$8000	if I did identify the volume
;
; On exit:
;	Exits directly to GS/OS.  Returns c and A on entry.
;
; Main functions:
;	Unlock GS/OS managed memory.
;
; 05-Mar-91 MSD	Added new priority mechanism for error codes.
;		The problem was when several FSTs return
;		bouncing errors, and the error returned by
;		the first FST called is used (which is usually
;		ProDOS's invalid path syntax).  So, if an FST
;		identifies the volume, it should set the high
;		bit when it returns an error.
;
;------------------------------------------------------------

main_exit	proc	export
		with	mydata
		
		ProcName main_exit

		IF	DebugCode THEN
		import	debug_dp:data
		ENDIF
		
		php			; save error status
		pha

		IF	DebugCode THEN
		sta	dp.my_error	; remember error code
		ldx	#$FE
exit_loop
		lda	dp,x		; make a copy of my
		sta	debug_dp,x	; direct page for
		dex			; debugging purposes
		bpl	exit_loop
		
		dec	fst_active	; not active any more

		ENDIF

		jsl	Unlock_Mem
		
		pla			; restore error code
		beq	@no_priority
		ora	err_priority	; add in priority bit
@no_priority
		plp			; restore error status
		jml	Sys_Exit	; unwind the call

		endwith
		endp


;------------------------------------------------------------
;
; PreProcFlags
;
; This is the table of attributes used by the PreProcess
; routine.  It contains one word for each call.  See the
; comments for PreProcess for a description of the entries
; in this table.
;
; Note that the table starts with call #1, so it should be
; accessed by PreProcFlags-2,X where X has the call number
; times 2.
;
; Also note that identifiers are used for each entry.  This
; was done only because it seems easier to read than throwing
; a comment out to the far right.  These identifiers are not
; exported, so they should never conflict with other labels
; of the same name.
;
; 27-Mar-90	MSD	Increased maximum pCount for Flush to 2.
;  5-Dec-91	MSD	Increased maximum pCount for Change_Path
;			to 3, so it accepts a new "flags" parameter.
;------------------------------------------------------------

PreProcFlags	record
MaxClass0	equ	$00
MaxClass1	equ	$20

; For Create: should I actually try to find the path since
; it might not exist?  Depends on definition of "FindPath"
Create		dc.w	7+MaxClass1+path_1_req
Destroy		dc.w	1+MaxClass1+path_1_req
Reserved03	dc.w	0
; For ChangePath: find the common prefix on its own,
; so don't try to find the source path.
ChangePath	dc.w	3+MaxClass1+path_1_req+path_2_req
SetFileInfo	dc.w	12+MaxClass1+path_1_req
GetFileInfo	dc.w	12+MaxClass1+path_1_req
JudgeName	dc.w	6+MaxClass1
Volume		dc.w	6+MaxClass1
; Note: SetPrefix and GetPrefix are not passed to FSTs.
SetPrefix	dc.w	0
GetPRefix	dc.w	0
ClearBackup	dc.w	1+MaxClass1+path_1_req
SetSysPrefs	dc.w	0
Null		dc.w	0
Expand_Path	dc.w	0
GetSysPrefs	dc.w	0
Open		dc.w	15+MaxClass1+path_1_req
NewLine		dc.w	4+MaxClass1+fcr_used+files_only
Read		dc.w	5+MaxClass1+fcr_used+vcr_used+files_only
Write		dc.w	5+MaxClass1+fcr_used+vcr_used+files_only
Close		dc.w	1+MaxClass1+fcr_used+vcr_used
Flush		dc.w	2+MaxClass1+fcr_used+vcr_used
SetMark		dc.w	3+MaxClass1+fcr_used+vcr_used+files_only
GetMark		dc.w	2+MaxClass1+fcr_used+vcr_used+files_only
SetEOF		dc.w	3+MaxClass1+fcr_used+vcr_used+files_only
GetEOF		dc.w	2+MaxClass1+fcr_used+vcr_used+files_only
; For Set-/Get- Level: should not be passed to the FST
SetLevel	dc.w	0
GetLevel	dc.w	0
GetDirEntry	dc.w	17+MaxClass1+fcr_used+vcr_used
BeginSession	dc.w	0
EndSession	dc.w	0
SessionStatus	dc.w	0
GetDevNumber	dc.w	2+MaxClass1+path_1_req
GetLastDev	dc.w	0
ReadBlock	dc.w	0
WriteBlock	dc.w	0
Format		dc.w	0
EraseDisk	dc.w	0
Reserved26	dc.w	0
GetName		dc.w	0
GetBootVol	dc.w	0
Quit		dc.w	0
GetVersion	dc.w	0
; For GetFSTInfo: GS/OS should get this from FST header
GetFSTInfo	dc.w	0
DInfo		dc.w	0
DStatus		dc.w	0
DControl	dc.w	0
DRead		dc.w	0
DWrite		dc.w	0
BindInterrupt	dc.w	0
UnBindInterrupt	dc.w	0
; For FSTSpecific: I assume this gets passed to the FST!!!
; note: it does its own PCount checking, etc.
FSTSpecific	dc.w	31+MaxClass1
		endr
		
;------------------------------------------------------------
; CheckParent
;
; If A,c indicate a file not found error, try to get the
; DirID of the parent to see if it exists.  If the parent
; does not exist, turn the error into a path not found.
;
; On entry:
;	Full native mode
;	c = 1 if error
;	A = error code
;
; On exit:
;	Full native mode
;	c = 1 if error
;	A = error code
;
;------------------------------------------------------------

CheckParent	proc	export
		with	mydata
		
		import	(StartPacket,SendPacket):code
		import	(PutByte,PutWord,PutIDs,PutBlock):code
		import	(StartReply,GetLong,GetWord):code

		ProcName CheckParent
		
		bcc	done			; don't do anything if no error
		cmp	#file_not_found		; the right error?
		bne	exit			; if not, return the one we have

; Find length of parent's partial path

		sep	#$30			; 8 bits for chars
		longa	off
		longi	off
		
		ldy	partial_path		; get length of string
loop
		lda	partial_path,y		; get a byte of string
		beq	found_it		; done if null byte
		dey				; move to previous byte
		bne	loop			; continue if more string
		rep	#$30			; return in full native mode
		bra	do_file			; we already had parent's DirID!
found_it
		dey				; get length of partial path

		rep	#$30			; back to full native
		longa	on
		longi	on
		
		phy				; save parent length

		lda	#afpGetFlDrParms	; GetFileDirParms
		jsr	StartPacket
		
		jsr	PutIDs			; put VolID and DirID in

		lda	#$0000			; don't want file info
		jsr	PutWord
		
		lda	#$0000			; don't want folder info
		jsr	PutWord

		lda	#afp_long		; path type is long name
		jsr	PutByte
		
		pla				; get string length
		pha				; save again
		jsr	PutByte			; put string length in
		
		pla				; get length of block
		beq	send_it			; no more packet if null
		ldx	#<partial_path+1	; get pointer to string buffer
		ldy	#^partial_path+1
		jsr	PutBlock		; put string text in
		
send_it
		jsr	SendPacket		; go find parent
		bcs	do_path			; error returns path_not_found

		jsr	StartReply
		jsr	GetLong			; ignore the bitmaps
		jsr	GetWord			; get file/dir flag
		and	#$0080			; is it a folder?
		beq	do_path			; if not, do path_not_found
		
do_file
		lda	#file_not_found		; got parent, so file not found
		bra	exit			; return with error

do_path
		lda	#path_not_found		; assume path not found error
exit
		sec				; indicate error
done
		rts
		
		endwith
		endp

		end


\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/Time.aii b/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/Time.aii
new file mode 100644
index 0000000..1acec08
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/Time.aii
@@ -0,0 +1 @@
+;------------------------------------------------------------
; File: time.aii
;
; This file contains the routines used to convert time/date
; values between several formats.  There is also a day-of-week
; calculation routine used in calculating the day of the week
; given the month, day of the month, and year.  Utility routines
; are provided to get create and mod dates from a reply packet.
;
; The conversion routines and their coversions are:
;
; time_pro_tool		ProDOS	=> Toolbox
; time_tool_pro		Toolbox	=> ProDOS
;
; time_afp_tool		AFP	=> Toolbox
; time_tool_afp		Toolbox	=> AFP
;
; time_pro_afp		ProDOS	=> AFP
; time_afp_pro		AFP	=> ProDOS
;
; dow_convert		Toolbox	=> day of week
;
; get_cr_date		Read AFP date from packet and save
;			create date/time in my_cr_date.
;
; get_mod_date		Read AFP date from packet and save
;			mod date/time in my_mod_date.
;
; GetDate		Read AFP date from packet into
;			my_date_afp.
;
; Note: ProDOS month is in range 1..12 and day is 1..31
; where the Toolbox uses ranges 0..11 and 0..30 respectively.
;
; 19-Sep-89	msd	Changed time_afp_tool to use discreet
;			subtracts instead of a series of
;			divides to convert time.
;
; 24-Jan-92	MSD	¥ time_afp_tool now supports dates after
;			the year 2000.  All dates prior to 1933
;			are pinned to Jan 1, 1933 12:00:00 AM.
;			¥ time_tool_pro changes years less than
;			1940 or greater than 2039 to all-zeroes
;			for date/time (i.e. unknown date/time).
;			¥ tim_pro_tool converts years from 1900
;			through 1939 to 2000 through 2039.
;			¥ time_tool_afp converts unknown dates
;			or those before 1933 to the smallest
;			value possible (my_date_afp set to
;			$80000000).
;
;------------------------------------------------------------

		load	'equates.dump'

		import	mydata:tdata

		entry	dow_convert:code

;------------------------------------------------------------
; Define a bunch of constants to be used by time_afp_tool.
; These are the number of seconds in the indicated time period.
;------------------------------------------------------------
min1		equ	60			; 1 minute
min2		equ	2*min1			; 2 minutes
min4		equ	2*min2			; 4 minutes
min8		equ	2*min4
min16		equ	2*min8
min32		equ	2*min16
hour1		equ	60*min1			; 1 hour
hour2		equ	2*hour1			; 2 hours
hour4		equ	2*hour2
hour8		equ	2*hour4
hour16		equ	2*hour8
day1		equ	24*hour1			; 1 day
day2		equ	2*day1
day4		equ	2*day2
day8		equ	2*day4
day16		equ	2*day8
month1		equ	30*day1			; 1 month (30 days)
month2		equ	2*month1
month4		equ	2*month2
month8		equ	2*month4
; Note: for years, these constants are for CONSECUTIVE years so I can
; include the correct number of leap days.
year1		equ	365*day1		; 1 year (not a leap year)
year2		equ	2*year1			; 2 years (neither a leap year)
year4		equ	4*year1+day1		; 4 years (one of which is a leap year)
year8		equ	2*year4			; 8 years
year16		equ	2*year8
year32		equ	2*year16
year64		equ	2*year32
year128		equ	2*year64

;------------------------------------------------------------
; Define a macro to make life easier.  It performs one trial
; subtraction, including shifting in the 0/1 bit into the
; correct time field.
;
; Note: It assumes that my_date_afp is kept primarily in X,Y
; (low order in X).  Temporary remainder is kept in
; "remainder" on direct page.
;
; Also, if the constant is less than 32K, then the current
; remainder can only be <64K, Y = 0, and #^const = 0.
; In this case, the subtract of the high word is useless,
; and a shorter (and faster) form of the macro is used.
;
; 30-Jan-92 MSD: The test for &const > 32768 wasn't doing
; what I intended with the year128 constant which was being
; considered negative and therefore not > 32768 and using
; the wrong form of the macro.  I now test by shifting out the
; low 15 bits and seeing if the remaining 17 bits are non-zero.
;------------------------------------------------------------
		macro
&lab		trysub	&const,&field
&lab		sec				; set up for SBC
		IF	(&eval(&const)>>15) <> 0 THEN
		txa				; low word in A
		sbc	#<&const		; subtract low order
		sta	remainder		; save temporary on dp
		tya				; high word in A
		sbc	#^&const		; subtract high order
		bcc	@over			; subtract failed?
		tay				; subtract worked:
		ldx	remainder		; copy remainder back into X,Y
		ELSE
		txa
		sbc	#<&const		; subtract constant
		bcc	@over			; subtract failed?
		tax				; no, so copy remainder back to x
		ENDIF
@over
		rol	&field			; shift 0/1 bit into correct field
		endm


quotients	record
		entry	yr4,yr,mo,dy,hr,min,sec
yr4		dc.w	0
yr		dc.w	0
mo		dc.w	0
dy		dc.w	0
hr		dc.w	0
min		dc.w	0
sec		dc.w	0
		endr

month_adjust	dc.w	0,1,-1,0,0,1,1,2,3,3,4,4,5

month_days	record
		entry	feb_days
		dc.w	31
feb_days	dc.w	28
		dc.w	31,30,31,30,31,31,30,31,30,31
		endr

dc_const	record
		dc.l	60*60*24*(365*4+1)		; seconds per 4 years
		dc.l	60*60*24*365			; seconds per year
		dc.l	60*60*24*30			; seconds per month (30 days)
		dc.l	60*60*24			; seconds per day
		dc.l	60*60				; seconds per hour
		dc.l	60				; seconds per minute
		endr

afp_adjust	dc.l	2114294400			; seconds from 1933 to 2000

time_pro_tool	proc	export
		with	mydata
		
		ProcName time_pro_tool
		
		stz	my_date_tool
		stz	my_date_tool+2
		stz	my_date_tool+4
		stz	my_date_tool+6			; assume unknown date

		lda	my_date_pro
		ora	my_date_pro+2
		beq	done				; skip if unknown

		lda	my_date_pro+2			; get minutes and hours
		sta	my_date_tool+1			; save minutes and hours
		
		lda	my_date_pro+1
		and	#$FF				; get year only
		lsr	a				; get rid of extra bit
; Begin 24-Jan-92 MSD
		cmp	#40				; years less than 40 get converted
		bge	@ok				; to 2000..2039.
		adc	#100				; (note: carry was clear)
@ok
; End 24-Jan-92 MSD
		sta	my_date_tool+3

		lda	my_date_pro
		and	#$001F				; get day only
		beq	bad				; day 0 is invalid
		dea					; toolbox uses 0-30
		sta	my_date_tool+4			; overwrites month
		
		lda	my_date_pro
		and	#$01E0				; get month only
		asl	a				; do 3 bit shift left
		asl	a				; and 8 bit shift right
		asl	a				; to get 5 bit shift right
		xba
		beq	bad				; no month => invalid
		dea					; toolbox uses 0-11
		sta	my_date_tool+5			; overwrites null byte
		
		jsr	dow_convert			; get day-of-week
done
		clc					; no error
		rts
bad
		sec
		lda	#invalid_parm			; illegal date value
		rts
		
		endwith
		endp

time_tool_pro	proc	export
		with	mydata
		
		ProcName time_tool_pro
		
		stz	my_date_pro
		stz	my_date_pro+2			; assume unknown date

		lda	my_date_tool
		ora	my_date_tool+2
		ora	my_date_tool+4
		ora	my_date_tool+6
		beq	done				; skip if unknown date/time

; Begin 24-Jan-92 MSD: If the year is outside the range 1940..2039, leave the
; date/time as unknown.  While we've got the year, convert and store it.
		lda	my_date_tool+3			; get the year
		and	#$00FF				; just one byte
		cmp	#40				; before 1940?
		blt	done				; yes, unknown
		cmp	#140				; 2040 or after?
		bge	done				; yes, unknown
		cmp	#100				; 2000 or after?
		blt	is_19xx
		sbc	#100				; yes, so convert to 0..39	
is_19xx
		asl	a				; year is upper 7 bits of byte
		sta	my_date_pro+1			; store year in ProDOS date
; End 24-Jan-92 MSD

		lda	my_date_tool+1			; get minutes and hours
		sta	my_date_pro+2			; write minutes and hours

		lda	my_date_tool+4			; get day of month
		and	#$001F				; only one byte
		ina					; convert to 1..31
		ora	my_date_pro			; combine with year
		sta	my_date_pro			; overwrites month, year

		lda	my_date_tool+5			; get month
		and	#$000F				; only one byte
		ina					; convert to 1..12
		xba					; need to shift 5 bits left
		lsr	a				; by 8 bit shift left and
		lsr	a				; 3 bit shift right
		lsr	a
		ora	my_date_pro			; add to day and year
		sta	my_date_pro
done
		rts

		endwith
		endp


;------------------------------------------------------------
; time_afp_tool
;
; This routine converts from seconds since Jan 1, 2000
; (AFP time) to Toolbox date/time.  AFP's range allows for
; dates slightly before 1932 until slightly after 2068.  I
; will allow the subset 1933-1999.
;
; Internally, I convert to seconds since Jan 1, 1933 before
; computing the date and time.  This base year must be one
; more than a multiple of 4 so that a leap year is the last
; year in a four year period.
;
; (19-Sep-89) Instead of looping through 6 long divides,
; I can do trial subtractions for each possible bit to be
; set in the toolbox format (4 bits month + 5 bits date+
; 7 bits year + 5 bits hour + 6 bits minute = 27 bits), which
; results in less work than a single long divide!  (Note:
; the 6 bits of seconds are the remainder after I've removed
; all of the other, larger, time units).
;
; On entry:
;	my_date_afp = seconds since Jan. 1, 2000
;		(note: in 65816 order, NOT 68000 order)
;
; On exit:
;	my_date_tool = converted date/time
;
;------------------------------------------------------------

time_afp_tool	proc	export
		with	dp,mydata

		ProcName time_afp_tool
		
		stz	my_date_tool
		stz	my_date_tool+2
		stz	my_date_tool+4
		stz	my_date_tool+6			; clear any garbage

;------------------------------------------------------------
; Convert to seconds since Jan 1, 1933.  Earlier dates are
; pinned to Jan 1, 1933 (i.e. use 0 seconds).
;------------------------------------------------------------

; 24-Jan-92 MSD: Removed test for AFP dates after 2000 (i.e.
; positive numbers in my_date_afp).

		clc
		lda	my_date_afp
		adc	afp_adjust
		sta	my_date_afp
		lda	my_date_afp+2
		adc	afp_adjust+2
		sta	my_date_afp+2
; 24-Jan-2 MSD: If the result of the add is a positive number (or negative with
; overflow meaning a large positive number), keep it.  Otherwise, it was before
; 1933, so pin it to the start of 1933.
		bpl	ok_year		; 1933..2001+
		bvs	ok_year		; 2001+..2068+ (i.e. very large positive number)
		stz	my_date_afp	; negative offset from 1933, so pin to 1933
		stz	my_date_afp+2
ok_year
; End 24-Jan-92 MSD


;------------------------------------------------------------
; Compute how many 4 year, 1 year, 1 month, 1 day, 1 hour,
; 1 minute, 1 second periods have elapsed since 1933.
; Note: a month is assumed to have 30 days; corrections will
; be made to account for months with other than 30 days.
;------------------------------------------------------------
		jsr	trial_subs			; go do subtracts
		
;------------------------------------------------------------
; Handle the special case of Dec 31 on a leap year which gets
; calculated as Jan 1 of next year.
;
; The date gets set to Dec 35 because this is the date it
; would have been before the adjustments for leap day and
; months with other than 30 days.
;------------------------------------------------------------
		lda	yr
		cmp	#4
		bne	no_special
		dec	yr				; back to current year
		lda	#11				; month is December
		sta	mo
		lda	#35				; day is 35
		sta	dy
no_special

;------------------------------------------------------------
; Calculate year as 1933 plus years elapsed
;------------------------------------------------------------
		lda	yr4
		asl	a				; get full 4 year periods
		asl	a				; note: clears carry
		adc	yr
		adc	#33
		sta	yr				; = years since 1900

;------------------------------------------------------------
; Check for leap year
;------------------------------------------------------------
		lda	#28				; assume 28 days in
		sta	feb_days			; February
		lda	yr
		and	#3
		bne	not_leap
		inc	feb_days			; February has 29 days!
		lda	mo
		cmp	#2				; past Feb?
		blt	not_leap
		dec	dy				; adjust for leap year
not_leap

;------------------------------------------------------------
; Adjust for months with other than 30 days
;------------------------------------------------------------
		lda	mo
		asl	a				; index to month adjust
		tax
		sec
		lda	dy
		sbc	month_adjust,X
		sta	dy
		bpl	is_adjusted			; if day negative, back up
		dec	mo				; one month
		dex
		dex					; index to previous month
		clc					; 30-Jan-92 MSD
		adc	month_days,x			; add to days in previous month
		sta	dy
is_adjusted

;------------------------------------------------------------
; Check for too many days in Feb
;------------------------------------------------------------
		lda	mo
		cmp	#1				; Feb?
		bne	not_feb
		lda	dy
		sec
		sbc	feb_days
		bcc	not_feb				; if less, OK
		sta	dy
		inc	mo				; month becomes March
not_feb

;------------------------------------------------------------
; Move temporary variables to Toolbox date
;------------------------------------------------------------
		sep	#$30
		longa	off
		longi	off
		
		lda	sec
		sta	my_date_tool
		lda	min
		sta	my_date_tool+1
		lda	hr
		sta	my_date_tool+2
		lda	dy
		sta	my_date_tool+4
		lda	mo
		sta	my_date_tool+5
		lda	yr
		sta	my_date_tool+3

		rep	#$30
		longa	on
		longi	on
		
		jsr	dow_convert			; find day of week

		rts


;------------------------------------------------------------
; This is the routine that does the actual subtracts.  It
; is separate to make it easier to follow the above code,
; and to try to keep branches above shorter.  It takes
; my_date_afp and fills in the individual time fields.
;------------------------------------------------------------
trial_subs
		stz	yr4				; clear accumulated sums
		stz	yr
		stz	mo
		stz	dy
		stz	hr
		stz	min
;		stz	sec				; seconds will be stored later

;------------------------------------------------------------
; Starting with the longest unit of time (128 years), do a
; trial subtract of that many seconds.  If it works, shift
; in a 1 in the correct field, otherwise shift in a 0
; (sounds a lot like division, doesn't it!!).
;------------------------------------------------------------
		ldx	my_date_afp			; prepare for trial subs
		ldy	my_date_afp+2			; and trysub macro
		
; compute years
		trysub	year128,yr4
		trysub	year64,yr4
		trysub	year32,yr4
		trysub	year16,yr4
		trysub	year8,yr4
		trysub	year4,yr4
		trysub	year2,yr
		trysub	year1,yr
; compute months
		trysub	month8,mo
		trysub	month4,mo
		trysub	month2,mo
		trysub	month1,mo
; compute days
		trysub	day16,dy
		trysub	day8,dy
		trysub	day4,dy
		trysub	day2,dy
		trysub	day1,dy
; compute hours
		trysub	hour16,hr
		trysub	hour8,hr
		trysub	hour4,hr
		trysub	hour2,hr
		trysub	hour1,hr
; compute minutes
		trysub	min32,min
		trysub	min16,min
		trysub	min8,min
		trysub	min4,min
		trysub	min2,min
		trysub	min1,min
		
		stx	sec				; seconds are left over

		rts
		
		endwith					; with dp
		endp


;------------------------------------------------------------
;
; On exit:
;	carry set if the date was invalid
;		overflow undefined
;	carry clear if date was valid or all zeroes
;		overflow clear if non-zero
;		overflow set if all zeroes
;
;------------------------------------------------------------
time_tool_afp	proc	export
		with	mydata
		
		ProcName time_tool_afp
		
		stz	my_date_afp
		lda	#$8000				; smallest time possible
		sta	my_date_afp+2			; assume unknown time
		sep	#$40				; set overflow in case all zeroes
		lda	my_date_tool
		ora	my_date_tool+2
		ora	my_date_tool+4
		ora	my_date_tool+6			; unknown/default?
		bne	do_conv
		brl	no_err_exit			; all zero, clear carry and exit
do_conv

;------------------------------------------------------------
; Break up date/time into individual fields
;------------------------------------------------------------
		lda	my_date_tool			; get seconds
		and	#$00FF				; seconds only
		cmp	#60				; <60 seconds?
		bge	bad				; no, invalid
		sta	sec
		lda	my_date_tool+1			; get minutes
		and	#$00FF				; minutes only
		cmp	#60
		bge	bad
		sta	min
		lda	my_date_tool+2
		and	#$00FF
		cmp	#24
		bge	bad
		sta	hr
		lda	my_date_tool+4
		and	#$00FF
		cmp	#31
		bge	bad
		sta	dy
		lda	my_date_tool+5
		and	#$00FF
		cmp	#12
		bge	bad
		sta	mo
		lda	my_date_tool+3
		and	#$00FF
		cmp	#33				; before 1933 is unknown
		bge	@ok
		brl	done				; and remains valid, minimum date
@ok
		sta	yr
		bra	valid
bad
		sec
		lda	#invalid_parm
		rts
		
; here, date format is valid
valid
		stz	my_date_afp+2			; zero out AFP date for adds
		lda	#28				; init Feb to 28 days
		sta	feb_days

;------------------------------------------------------------
; Compute year and year/4 fields
;------------------------------------------------------------
		sec
		lda	yr				; get year
		sbc	#33				; origin to 1933
		sta	yr4				; get years/4
		lsr	yr4
		lsr	yr4
		and	#3				; get year mod 4
		sta	yr

;------------------------------------------------------------
; Check for leap year
;------------------------------------------------------------
		cmp	#3				; leap year if year mod 4 = 3
		bne	not_leap
		lda	mo
		cmp	#2				; before march?
		blt	not_leap			; if so, not leap day yet
		inc	dy				; add leap day
not_leap

;------------------------------------------------------------
; Adjust for months not = 30 days
;------------------------------------------------------------
		lda	mo				; get month
		asl	a				; times two for index
		tax
		lda	month_adjust,x			; get adjustment for this month
		clc
		adc	dy				; added to day of month
		bpl	ok_dy				; don't let day go negative
		dec	mo				; March -> Feb
		lda	#29				; March 1 -> "Feb 29"
ok_dy
		sta	dy

;------------------------------------------------------------
; Now multiply each value by seconds per unit time
;------------------------------------------------------------
		ldy	#0				; index to constants
		ldx	#0				; index to date values
mul_loop
		phy					; Y will be destroyed by mult
		phx					; save X, too
		pha					; push room for result
		pha					; (4 words -- 2 longs)
		pha
		pha
		pea	0				; push high word of zero
		lda	quotients,x			; get date value
		pha					; push as low word
		lda	dc_const+2,y			; get seconds per time unit
		pha
		lda	dc_const,y
		pha

		ldx	#$0C0B				; _LongMul
		jsl	$E10000

		clc
		pla					; get low word of product
		adc	my_date_afp			; add to total
		sta	my_date_afp
		pla
		adc	my_date_afp+2
		sta	my_date_afp+2
		pla					; ignore high long
		pla
		plx					; restore X
		ply					; restore Y
		inx
		inx					; point to next date value
		iny
		iny
		iny
		iny					; point to next constant
		cpx	#12				; reached seconds yet?
		bne	mul_loop			; if not, do more
		
		clc
		lda	sec				; don't forget seconds
		adc	my_date_afp			; add to total
		sta	my_date_afp
		lda	my_date_afp+2
		adc	#0				; high word of seconds = 0
		sta	my_date_afp+2

;------------------------------------------------------------
; Adjust from 1933 base to 2000 base
;------------------------------------------------------------
		sec
		lda	my_date_afp
		sbc	afp_adjust
		sta	my_date_afp
		lda	my_date_afp+2
		sbc	afp_adjust+2
		sta	my_date_afp+2
done
		clv					; signal valid, non-zero
no_err_exit
		clc
		rts

		endwith
		endp

time_pro_afp	proc	export
		
		ProcName time_pro_afp
		
		jsr	time_pro_tool
		bcs	exit
		jsr	time_tool_afp
exit
		rts
		endp

time_afp_pro	proc	export

		ProcName time_afp_pro
		
		jsr	time_afp_tool
		jsr	time_tool_pro
		rts
		endp

dow_convert	proc
		with	dp,mydata

		ProcName dow_convert
		
		stz	math_temp			; clear leap year counter

		sep	#$30				; need to manipulate bytes
		longa	off
		longi	off
		
;------------------------------------------------------------
; Find leap years since 1900
;------------------------------------------------------------
		lda	my_date_tool+3
		tay					; save year for use later
		lsr	a
		lsr	a
		sta	math_temp

;------------------------------------------------------------
; If it is a leap year and Jan or Feb, subtract 1 since we
; haven't gotten to this year's leap day
;------------------------------------------------------------
		tya					; get year back
		and	#3				; leap year
		bne	not_leap			; no, not a leap year
		lda	my_date_tool+5			; OK, what month is it?
; 30-Jan-92 MSD: was CMP #3 but month is 0-based, so month 2 is March.
		cmp	#2				; before March?
		bge	not_leap			; if not, keep leap day
		dec	math_temp			; kill this year's leap day
not_leap

;------------------------------------------------------------
; Add leap years, year, constant for month, and days.
; Note: a non-leap year has 52 weeks plus 1 day.
;------------------------------------------------------------
		lda	my_date_tool+5
		asl	a
		tax					; index to month adjust table

		rep	#$30				; back to 16 bits for add
		longa	on
		longi	on
		
		clc
		tya					; get years back
		adc	math_temp			; plus leap years
		sta	math_temp			; save for a bit
		lda	my_date_tool+4
		and	#$FF				; only want days
		adc	math_temp			; add to total
		adc	month_adjust,x			; add constant for month

;------------------------------------------------------------
; Take result modulo 7
;------------------------------------------------------------
mod_loop
		cmp	#7
		blt	mod_done
		sbc	#7				; note: carry is set
		bra	mod_loop
mod_done
		ina					; convert to 1..7
		ora	my_date_tool+7			; assume byte was 0
		sta	my_date_tool+7			; save day of week
		rts

month_adjust
		dc.w	1,4,4,0,2,5,0,3,6,1,4,6

		endwith				; with dp
		endp


;------------------------------------------------------------
; GetDate
;
; Read an AFP date from the current reply packet and put
; it in 65816 order in my_date_afp.
;
;------------------------------------------------------------

GetDate		proc	export
		with	mydata
		import	GetLong:code

		ProcName GetDate
		
		jsr	GetLong			; get date/time
		
		xba				; high word in 65816 order
		sta	my_date_afp+2
		txa				; low word in A
		xba
		sta	my_date_afp

		rts
		
		endwith
		endp


;------------------------------------------------------------
; Get_cr_date
;
; Read an AFP date from the current reply packet and convert
; it to the appropriate type for the current class.  The
; result is stored in my_cr_date.
;
;------------------------------------------------------------

get_cr_date	proc	export
		with	mydata

		ProcName get_cr_date
		
		jsr	GetDate			; get date into my_date_afp
		
		jsr	time_afp_tool		; convert to toolbox form

		lda	dp.class		; class 0?
		beq	class0			; if so, do more

		lda	my_date_tool		; copy Toolbox date and time
		sta	my_cr_date		; to create date and time
		lda	my_date_tool+2
		sta	my_cr_date+2
		lda	my_date_tool+4
		sta	my_cr_date+4
		lda	my_date_tool+6
		sta	my_cr_date+6
		rts				; return to caller

class0
		jsr	time_tool_pro		; convert to ProDOS form
		
		lda	my_date_pro		; copy ProDOS date to
		sta	my_cr_date		; create date and time
		lda	my_date_pro+2
		sta	my_cr_date+2
		
		rts
		
		endwith
		endp


;------------------------------------------------------------
; Get_mod_date
;
; Read an AFP date from the current reply packet and convert
; it to the appropriate type for the current class.  The
; result is stored in my_mod_date.
;
;------------------------------------------------------------

get_mod_date	proc	export
		with	mydata

		ProcName get_mod_date
		
		jsr	GetDate			; get date into my_date_afp
		
		jsr	time_afp_tool		; convert to toolbox form

		lda	dp.class		; class 0?
		beq	class0			; if so, do more

		lda	my_date_tool		; copy Toolbox date and time
		sta	my_mod_date		; to create date and time
		lda	my_date_tool+2
		sta	my_mod_date+2
		lda	my_date_tool+4
		sta	my_mod_date+4
		lda	my_date_tool+6
		sta	my_mod_date+6
		rts				; return to caller

class0
		jsr	time_tool_pro		; convert to ProDOS form
		
		lda	my_date_pro		; copy ProDOS date to
		sta	my_mod_date		; create date and time
		lda	my_date_pro+2
		sta	my_mod_date+2
		
		rts
		
		endwith
		endp

		end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/VolMod.aii b/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/VolMod.aii
new file mode 100644
index 0000000..9a52a5e
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/VolMod.aii
@@ -0,0 +1 @@
+;------------------------------------------------------------
; File: VolMod.aii
;
; This file contains routines used in detecting and issuing
; volume modified events when a volume directory is opened
; or closed.
;
; Modified
; 24-Jan-89	MSD	¥Volume change event no longer passes the volume name.  Registers now
;			contain the call and device numbers instead of a pointer to them.
; 25-Jan-89	MSD	¥Now uses FPGetVolParms instead of FPGetFileDirParms of root directory.
; 28-Mar-89	MSD	¥The vol mod data structure is now associated with the volume's VCR
;			instead of an FCR.
; 23-Aug-90	MSD	¥Reduced the PanicTime from 1 minute 20 seconds to 1 minute in the hope
;			that this will reduce the likelyhood of being disconnected from servers
;			due to interrupts being off a lot (the idea is that the panic timer
;			should be called soon enough so that ASP has time to retry the FPGetVolParms
;			call before its session timer completes).
; 11-Feb-91	MSD	¥Changed OpenVol to try to allocate non-special memory for its volrec
;			structure, and if that fails then it will allow for special memory.
; 17-Jun-91	MSD	¥Added debugging code to write to $FD/88xx as various routines are called.
; 25-Aug-92	DAL	Fixed device number parameter to the volume-changed os_event call in
;			SPComplete was using a structure offset as a storage location instead of
;			as an offset into the structure.
; 1-Sep-92	DAL	¥Now we send volume-changed notifications even if there are no folders open
;			on a volume.
;			¥When calling os_event, we bank in the language card explicitly, instead
;			of assuming the language card is available during a completion routine.
; 2-Sep-92	DAL	¥Removed above change--no longer bank in the language card, since DoRight
;			2.0d1C now does this to be like the GS.
; 2-Apr-93	JCM	¥The Panic completion routine never set the data bank, but it was incrementing
;			its PanicCount global. This resulted in a word in bank $E1 being trashed.
; 4-May-93	JCM	¥Fixed our 10-second timer completion code to save some GS/OS DP vals around
;			the call to os_event. By calling the os_event service vector, we were mucking
;			with a long ptr on the DP that could be valid if we interrupted a GS/OS call.
;			Hopefully the random $4x errors during heavy file read/writes should go away.
;------------------------------------------------------------

		load	'equates.dump'

		import	go_comp:code
		import	(startpacket,sendpacket):code
		import	(PutIDs,PutWord):code
		import	(StartReply,GetLong,GetWord):code
		import	mydata:tdata
		entry	(TimerComp,SPComplete,PanicComp):code

installtimer	equ	$0480		; async install timer
removetimer	equ	$0500		; sync remove timer
spcommand	equ	$2080		; async SPCommand
PanicTime	equ	4*30		; 30 seconds

plist_ptr	equ	$80		; AppleTalk parameter list pointer
;my_at_ptr	equ	0		; my parameter list pointer


;------------------------------------------------------------
; PanicCount
;
; This global word contains the number of sessions in danger
; of being disconnected.
;------------------------------------------------------------
PanicCount	dc.w	0


;------------------------------------------------------------
; Stop_Panic
;
; This routine removes the panic timer for a given volume
; and forces the panic flag to be clear (decrementing the
; global PanicCount if the panic flag was set).
;
; On entry:
;	src_ptr		points to volrec
;------------------------------------------------------------
stop_panic	proc
		with	dp,mydata
		
		ProcName stop_panic
;------------------------------------------------------------
; Remove the panic timer, since we're not in trouble
;------------------------------------------------------------
		IF DebugCode THEN
		ldy	#volrec.event.devnum
		lda	[src_ptr],y		; get device number
		sta	>$FD8802		; signal stop_panic(devnum)
		ENDIF
		
		ldy	#volrec.panictimer
		lda	#removetimer		; change to removetimer
		sta	[src_ptr],y		; save RemoveTimer command
		clc
		lda	src_ptr
		adc	#<volrec.panictimer	; point X,Y to PanicTimer
		tax
		lda	src_ptr+2
		adc	#^volrec.panictimer
		tay
		jsl	RamDispatch		; remove the timer

;------------------------------------------------------------
; If we were in panic mode, clear it, and decrement panic
; count
;------------------------------------------------------------
		entry	clear_panic
clear_panic
		IF DebugCode THEN
		ldy	#volrec.event.devnum
		lda	[src_ptr],y		; get device number
		sta	>$FD8800		; signal clear_panic(devnum)
		ENDIF
		
		ldy	#volrec.panicflag
		lda	[src_ptr],y		; panic?
		beq	no_panic
		lda	#0			; no longer in panic mode
		sta	[src_ptr],y
		dec	PanicCount		; one less to worry about
		
		IF DebugCode THEN
		lda	PanicCount
		sta	>$FD881E
		ENDIF
no_panic
		rts
		
		endwith
		endp
		
;------------------------------------------------------------
; StopTimers
;
; This routine will stop the timers associated with the
; volrec pointed to by src_ptr.  It also makes sure the
; SPCommand has completed.  After this, the volrec may
; be freely removed.
;------------------------------------------------------------

StopTimers	proc	export
		with	dp,mydata

		ProcName StopTimers
		
		jsl	RamForbid

		IF DebugCode THEN
		ldy	#volrec.event.devnum
		lda	[src_ptr],y		; get device number
		sta	>$FD8804		; signal StopTimers(devnum)
		ENDIF
		
		ldy	#volrec.panictimer
		lda	#removetimer
		sta	[src_ptr],y		; change to remove timer
		clc
		lda	src_ptr
		adc	#<volrec.panictimer
		tax
		lda	src_ptr+2
		adc	#^volrec.panictimer
		tay
		jsl	RamDisPatch
		
		lda	#removetimer
		sta	[src_ptr]		; save remove timer command
		ldx	src_ptr			; get command address
		ldy	src_ptr+2
		jsl	RamDispatch		; remove the timer
		
		jsl	RamPermit

wait
		ldy	#volrec.spcmd.result
		lda	[src_ptr],y		; get ASP's result
		and	#$00FF			; get low byte
		cmp	#$00FF			; still pending?
		beq	wait			; if so, wait 'til it's done
		
		jsr	clear_panic		; reset panic flag for volume
		
		rts
		
		endp
		

;------------------------------------------------------------
; StartTimers
;
; This routine will start the timers associated with the
; volrec pointed to by src_ptr.  Note: the timers must
; already be stopped (or not yet started).  It is suitable
; for use in OpenVol and ReOpenVol.
;------------------------------------------------------------

StartTimers	proc	export
		with	dp,mydata

		ProcName StartTimers
		
		jsl	RamForbid		; don't want these to complete yet
		
;------------------------------------------------------------
; start the polling timer going
;------------------------------------------------------------
		IF DebugCode THEN
		ldy	#volrec.event.devnum
		lda	[src_ptr],y		; get device number
		sta	>$FD8806		; signal StartTimers(devnum)
		ENDIF
		
		lda	#4*10			; 10 seconds
		ldy	#volrec.polltimer.ticks	; is polling interval
		sta	[src_ptr],y
		
		lda	#installtimer		; async install timer
		sta	[src_ptr]		; put command in
		
		ldx	src_ptr			; timer parameter list, low
		ldy	src_ptr+2		; timer parameter list, high
		jsl	RamDispatch
		
;------------------------------------------------------------
; start the panic timer going
;------------------------------------------------------------
		lda	#PanicTime		; time until panic
		ldy	#volrec.panictimer.ticks
		sta	[src_ptr],y
		
		lda	#installtimer		; async install timer
		ldy	#volrec.panictimer
		sta	[src_ptr],y		; put command in
		
		clc
		lda	src_ptr
		adc	#<volrec.panictimer
		tax				; low address of panic timer
		lda	src_ptr+2
		adc	#^volrec.panictimer
		tay				; high address of panic timer
		jsl	RamDispatch
		
		jsl	RamPermit		; let 'em rip!
		rts
		
		endp
		

;------------------------------------------------------------
; OpenVol
;
; This routine sets up the data structures to detect volume
; modified events, and then to issue them.  It is assumed to
; be called after a VCR has been allocated, and called only
; once per volume.
;
; On entry:
;	my_vcr_ptr	points to VCR for volume to set up
;	VolModDate	last modified date of volume
;	SessRefnum	Session reference number for volume
;	VolID		Volume identifier for volume
;------------------------------------------------------------

openvol		proc	export
		with	dp,mydata

		ProcName openvol
		
		pha
		pha				; long space for result
		pea	volrec.size>>16		; size of block to create
		pea	volrec.size
		lda	my_mem_id
		pha
		pea	$C008			; locked, fixed, no special memory
		pea	0			; don't care where it starts
		pea	0
		_NewHandle
		plx
		stx	src_ptr			; save handle
		plx
		stx	src_ptr+2
		bcc	got_handle		; if we got it, set it up
		
						; Now lets try special memory
		pha
		pha				; long space for result
		pea	volrec.size>>16		; size of block to create
		pea	volrec.size
		lda	my_mem_id
		pha
		pea	$C000			; locked, fixed
		pea	0			; don't care where it starts
		pea	0
		_NewHandle
		plx
		stx	src_ptr			; save handle
		plx
		stx	src_ptr+2
		bcc	got_handle

		brl	abort			; don't do it if error
got_handle
		ldy	#2
		lda	[src_ptr],y		; deref handle
		tax				; high word in X
		lda	[src_ptr]		; low word in A
		ldy	#vcr.modptr
		sta	src_ptr			; save in src_ptr
		sta	[my_vcr_ptr],y		; and in VCR
		iny
		iny
		txa				; get high word
		sta	[my_vcr_ptr],y
		sta	src_ptr+2

		lda	#0
		ldy	#volrec.modcount
		sta	[src_ptr],y		; no clients so far
		ldy	#volrec.panicflag
		sta	[src_ptr],y		; no volumes in trouble
		
;------------------------------------------------------------
; Copy sessrefnum, dirid, volid, last mod date, etc. to record
;------------------------------------------------------------
		ldy	#volrec.lastmod
		lda	VolModDate		; get volume's last mod date
		sta	[src_ptr],y		; save off mod date/time
		iny
		iny
		lda	VolModDate+2		; get second word
		sta	[src_ptr],y
		
		ldy	#volrec.spcmd.sref
		lda	SessRefnum
		sta	[src_ptr],y		; save session refnum

		ldy	#volrec.getmod.volid
		lda	VolID
		sta	[src_ptr],y		; save VolID
		
		ldy	#volrec.spcmd.cmd
		lda	#SPCommand
		sta	[src_ptr],y		; set up async SPCommand
		
		iny
		iny				; Y = volrec.spcmd.result
		lda	#0			; zero result word
		sta	[src_ptr],y		; zero SPCommand's result
		
		ldy	#volrec.spcmd.comlen
		lda	#GetModDate.size
		sta	[src_ptr],y		; save command block length

		iny
		iny				; Y = volrec.spcmd.cmdaddr
		clc
		lda	src_ptr
		adc	#volrec.getmod		; create address of command block
		sta	[src_ptr],y
		iny
		iny
		lda	src_ptr+2
		adc	#0
		sta	[src_ptr],y

		iny
		iny				; Y = volrec.spcmd.repbuflen
		lda	#Reply.size
		sta	[src_ptr],y		; save reply size

		iny
		iny				; Y = volrec.spcmd.repbufaddr
		clc
		lda	src_ptr
		adc	#volrec.reply		; get address of reply buffer
		sta	[src_ptr],y
		iny
		iny
		lda	src_ptr+2
		adc	#0
		sta	[src_ptr],y
		
		ldy	#volrec.getmod.cmd
		lda	#afpGetVolParms
		sta	[src_ptr],y		; put GetVolParms in packet
		
		ldy	#volrec.getmod.bitmap
		lda	#$0800			; mod date only
		sta	[src_ptr],y		; is file bitmap
		
;------------------------------------------------------------
; copy event parameter list to record
;------------------------------------------------------------
		ldy	#vcr.dev
		lda	[my_vcr_ptr],y		; get device number
		ldy	#volrec.event.devnum
		sta	[src_ptr],y		; save device number
		
		IF DebugCode THEN
		sta	>$FD8808		; signal OpenVol(devnum)
		ENDIF
		
;------------------------------------------------------------
; copy completion routine addresses to record
;------------------------------------------------------------
		ldy	#volrec.polltimer.completion
		lda	#<TimerComp
		sta	[src_ptr],y
		iny
		iny
		lda	#^TimerComp
		sta	[src_ptr],y
		
		ldy	#volrec.panictimer.completion
		lda	#<PanicComp
		sta	[src_ptr],y
		iny
		iny
		lda	#^PanicComp
		sta	[src_ptr],y
		
		ldy	#volrec.spcmd.completion
		lda	#<SPComplete
		sta	[src_ptr],y
		iny
		iny
		lda	#^SPComplete
		sta	[src_ptr],y
		
;------------------------------------------------------------
; Start the polling and panic timers going
;------------------------------------------------------------
		jsr	StartTimers
abort
		rts
		endwith				; with dp,mydata
		endp

;------------------------------------------------------------
; ReOpenVol
;
; This routine updates the SessRefnum and VolID for the given
; volume's vol mod structure.
;
; On entry:
;	my_vcr_ptr	points to VCR for volume to set up
;	SessRefnum	Session reference number for volume
;	VolID		Volume identifier for volume
;------------------------------------------------------------

reopenvol	proc	export
		with	dp,mydata

		ProcName reopenvol
		
		ldy	#vcr.modptr
		lda	[my_vcr_ptr],y		; get volume modified record
		sta	src_ptr
		iny
		iny
		lda	[my_vcr_ptr],y
		sta	src_ptr+2
		ora	src_ptr			; is it null?
		beq	done			; if so, don't update

		IF DebugCode THEN
		ldy	#volrec.event.devnum
		lda	[src_ptr],y		; get device number
		sta	>$FD880A		; signal ReOpenVol(devnum)
		ENDIF
		
		jsr	StopTimers		; stop timing stuff
		
		ldy	#volrec.spcmd.sref
		lda	SessRefnum
		sep	#$20			; short A to store a byte
		longa	off
		sta	[src_ptr],y		; save session refnum (byte)
		rep	#$20
		longa	on
		
		ldy	#volrec.getmod.volid
		lda	VolID
		sta	[src_ptr],y		; save VolID

		ldy	#vcr.dev
		lda	[my_vcr_ptr],y		; get device number
		ldy	#volrec.event.devnum
		sta	[src_ptr],y		; update for events
		
		jsr	StartTimers
done
		rts
		
		endp
		
		
;------------------------------------------------------------
; CloseVol
;
; This routine removes all data structures created by OpenVol
; and stops all related AppleTalk calls.
;
; On entry:
;	vcr_addr	pointer to volume to shut down
;------------------------------------------------------------

closevol	proc	export
		with	dp

		ProcName closevol
		
		pei	src_ptr+2		; will use src_ptr to point to
		pei	src_ptr			; volmod record
		
		ldy	#vcr.modptr
		lda	[vcr_addr],y		; get volume modified record
		sta	src_ptr			; save low word in src_ptr
		iny
		iny
		lda	[vcr_addr],y
		sta	src_ptr+2
		ora	src_ptr			; is it null?
		beq	done			; if so, don't remove

		IF DebugCode THEN
		ldy	#volrec.event.devnum
		lda	[src_ptr],y		; get device number
		sta	>$FD880C		; signal CloseVol(devnum)
		ENDIF
		
		jsr	StopTimers		; make sure timers are done
		
		pha				; push long space for result
		pha
		pei	src_ptr+2		; push address of volrec
		pei	src_ptr
		_FindHandle			; get the handle
		_DisposeHandle			; free up the memory
		
done
		pla
		sta	src_ptr			; restore src_ptr
		pla
		sta	src_ptr+2
		rts
		endwith				; with dp,mydata
		endp
		
;------------------------------------------------------------
; AddClient
;
; This routine increments the modcount field.  When the field
; is non-zero, events will be generated.
;
; On entry:
;	my_vcr_ptr	pointer to volume to shut down
;------------------------------------------------------------

addclient	proc	export
		with	dp

		ProcName addclient
		
		ldy	#vcr.modptr
		lda	[my_vcr_ptr],y		; create pointer to volrec
		sta	src_ptr
		iny
		iny
		lda	[my_vcr_ptr],y
		sta	src_ptr+2
		
		IF DebugCode THEN
		ldy	#volrec.event.devnum
		lda	[src_ptr],y		; get device number
		sta	>$FD880E		; signal AddClient(devnum)
		ENDIF
		
		ldy	#volrec.modcount
		lda	[src_ptr],y
		ina				; add 1 to client count
		sta	[src_ptr],y

		rts				; return to caller
		endp
		

;------------------------------------------------------------
; DelClient
;
; This routine decrements the modcount field.  When the field
; is non-zero, events will be generated.
;
; On entry:
;	my_vcr_ptr	pointer to volume to shut down
;------------------------------------------------------------

delclient	proc	export
		with	dp

		ProcName delclient
		
		ldy	#vcr.modptr
		lda	[my_vcr_ptr],y		; create pointer to volrec
		sta	src_ptr
		iny
		iny
		lda	[my_vcr_ptr],y
		sta	src_ptr+2
		
		IF DebugCode THEN
		ldy	#volrec.event.devnum
		lda	[src_ptr],y		; get device number
		sta	>$FD8810		; signal DelClient(devnum)
		ENDIF
		
		ldy	#volrec.modcount
		lda	[src_ptr],y
		dea				; subtract 1 from client count
		sta	[src_ptr],y
		
		rts				; return to caller
		endp
		

;------------------------------------------------------------
; TimerComp
;
; This is the completion routine for the timers
;------------------------------------------------------------

TimerComp	proc	export
		with	dp,mydata

		ProcName TimerComp
		
		ldy	#timer.result
		lda	[plist_ptr],y		; was there an error (cancelled)?
		bne	done			; yes, so just exit
		
		IF DebugCode THEN
		ldy	#volrec.event.devnum
		lda	[plist_ptr],y		; get device number
		sta	>$FD8812		; signal TimerComp(devnum), no error
		ENDIF
		
		clc
		lda	<plist_ptr
		adc	#volrec.spcmd		; get address of SPCommand
		tax				; parameter list in X,Y
		lda	<plist_ptr+2
		adc	#0
		tay
		jsl	RamDisPatch		; queue up the SPCommand
done
		jmp	go_comp			; go to completion routine exit
		
		endwith				; with dp,mydata
		endp
		
;------------------------------------------------------------
; PanicComp
;
; The panic timer completed.  Set the panic flag for this
; volume and increment the global panic count.
;------------------------------------------------------------

PanicComp	proc	export
		with	dp,mydata

		ProcName PanicComp
		
*** Whoops! - 2-Apr-93 JCM - When we get control, the data bank will be set to $E1.
***			     INCing a global that's in our bank is kinda' difficult if
***			     you don't at least set the data bank reg.

		phb
		
		phk
		plb

*** End - 2-Apr-93 JCM

		IF DebugCode THEN
		ldy	#volrec.event.devnum-volrec.panictimer
		lda	[<plist_ptr],y		; get device number
		sta	>$FD8814		; signal PanicComp(devnum)
		ENDIF
		
		ldy	#volrec.panicflag-volrec.panictimer
		lda	#$FFFF			; we be in panic
		sta	[<plist_ptr],y		; save panic flag
		
		inc	PanicCount		; bump global panic count
		
		IF DebugCode THEN
		lda	PanicCount
		sta	>$FD881E
		ENDIF
done

		plb				;2-Apr-93 JCM - restore bank to $E1

		jmp	go_comp			; go to completion routine exit
		
		endwith				; with dp,mydata
		endp
		
;------------------------------------------------------------
; SPComplete
;
; This is the completion routine for the SPCommand
;------------------------------------------------------------

SPComplete	proc	export
		with	dp,mydata

		ProcName SPComplete
		
		phb				; save caller's bank
		phk
		plb				; get my bank
		
		pei	src_ptr			; save off pointer
		pei	src_ptr+2
		
		sec
		lda	<plist_ptr
		sbc	#volrec.spcmd		; get address of volrec
		sta	src_ptr			; into src_ptr
		lda	<plist_ptr+2
		sbc	#0
		sta	src_ptr+2
		
		ldy	#volrec.spcmd.result
		lda	[src_ptr],y		; did the call complete OK?
		beq	ok			; yes, so process results
		cmp	#$0702			; too many ASP calls?
		bne	dont_install		; no, so stop checking

		IF DebugCode THEN
		ldy	#volrec.event.devnum
		lda	[src_ptr],y		; get device number
		sta	>$FD8818		; signal SPComplete(devnum), too many ASP calls
		ENDIF
		
		lda	#1			; try again 1/4 second later
		brl	re_install		; and re-install timer
dont_install

		IF DebugCode THEN
		ldy	#volrec.event.devnum
		lda	[src_ptr],y		; get device number
		sta	>$FD881A		; signal SPComplete(devnum), other error
		ENDIF
		
		jsr	stop_panic		; don't panic any more
		brl	done			; exit completion routine
ok

		IF DebugCode THEN
		ldy	#volrec.event.devnum
		lda	[src_ptr],y		; get device number
		sta	>$FD8816		; signal SPComplete(devnum), no error
		ENDIF
		
		jsr	stop_panic		; don't panic now
		
		ldx	#0			; assume no change
		ldy	#volrec.reply.date
		lda	[src_ptr],y		; get latest mod date/time
		ldy	#volrec.lastmod
		cmp	[src_ptr],y		; changed?
		beq	@equal1
		inx				; remember that it changed
@equal1
		sta	[src_ptr],y		; save new date
		ldy	#volrec.reply.date+2
		lda	[src_ptr],y		; check second word
		ldy	#volrec.lastmod+2
		cmp	[src_ptr],y		; changed?
		beq	@equal2
		inx
@equal2
		sta	[src_ptr],y		; save new date
		cpx	#0			; did either word change?
		beq	same			; no, so don't do event

; The mod date/time has changed, so issue the event
changed

		IF DebugCode THEN
		ldy	#volrec.event.devnum
		lda	[src_ptr],y		; get device number
		sta	>$FD881C		; signal SPComplete(devnum), mod date changed
		ENDIF
		
		phd				; save my direct page

*** Removed check 1-Sep-92 DAL -- Send Volume Changed even if no folders are open	
;		ldy	#volrec.modcount
;		lda	[src_ptr],y		; any clients?
;		beq	@skip			; no, so don't do event
*** end 1-Sep-92


;*** added 1-Sep-92 DAL -- force language card in, since DoRight does not set that up!
;		sep #$20
;		longa off
;		lda >$e0c068
;		pha
;		lda >$e0c08b			; give us access to the $01FCxx GS/OS services
;		lda >$e0c08b
;		rep #$20
;		longa on
;*** end 1-Sep-92

*** Added - 4-May-93 JCM - Since we're in an interrupt that could have happened during a GS/OS call,
***			   we can't modify the GS/OS DP, but os_event does just that. We'll save off
***			   the vals it modifies and restore them afterward. This should fix the random
***			   $40, $44, $45, and $46 errors I've seen during file copies.

link_pointer	equ	$D4			;GS/OS DP equate defined in os_event

		ldx	gsos_dp_addr
		lda	>link_pointer+2,x
		pha
		lda	>link_pointer,x
		pha

*** End - 4-May-93 JCM

*** fixed 25-Aug-92 DAL
		pea	0			; don't have a call number (to be passed in A)
		ldy	#volrec.event.devnum	; get the device number
		lda	[src_ptr],y
*** end 25-Aug-92
		pha				; to be passed in X
		pha				; undefined: passed in Y
		
		lda	gsos_dp_addr
		tcd				; restore GS/OS direct page
		
		lda	#<volmod_event		; get event code in A,X
		ldx	#^volmod_event
		jsl	os_event		; signal the event

*** Added - 4-May-93 JCM - See above fix for details.

		pla
		sta	<link_pointer
		pla
		sta	<link_pointer+2

*** End - 4-May-93 JCM

;*** added 1-Sep-92 DAL -- restore language card status
;		sep #$20
;		pla
;		sta >$e0c068
;		rep #$20
;*** end 1-Sep-92

@skip		pld				; restore caller's dp

; Re-install the timers
same
		lda	[src_ptr]		; get polling timer
		cmp	#installtimer		; has it been removed?
		bne	done			; yes, so don't install timers

		lda	#PanicTime
		ldy	#volrec.panictimer.ticks
		sta	[src_ptr],y		; length of panic
		
		lda	#installtimer
		ldy	#volrec.panictimer
		sta	[src_ptr],y		; InstallTimer command
		
		clc
		lda	src_ptr
		adc	#<volrec.panictimer	; point X,Y to PanicTimer
		tax
		lda	src_ptr+2
		adc	#^volrec.panictimer
		tay
		jsl	RamDispatch		; remove the timer

		lda	#4*10			; 10 seconds
re_install					; pass 1/4 seconds in A
		ldy	#volrec.polltimer.ticks
		sta	[src_ptr],y		; save as new tick count
		
		lda	[src_ptr]		; get command
		cmp	#installtimer		; has it been removed?
		bne	done			; yes, so don't install again
		
		ldx	src_ptr			; get parameter list address
		ldy	src_ptr+2
		jsl	RamDispatch		; queue up timer
done
		pla
		sta	src_ptr+2
		pla
		sta	src_ptr			; restore pointer
		plb				; restore bank
		
		jmp	go_comp			; go to completion routine exit

		endwith				; with dp,mydata
		endp
		
;------------------------------------------------------------
; QtrHandler
;
; This is the routine called by the AppleTalk 1/4 second
; interrupt handler routine (on exit).  I'll check my
; panic counter, and I'll wait until it is non-zero before
; I allow control to return.
;------------------------------------------------------------

QtrHandler	proc	export
		with	dp,mydata

BorderColor	equ	$E1C034

		ProcName QtrHandler

		phb				; save bank
		pha				; and save A
		
		phk
		plb				; set to my bank
		
;------------------------------------------------------------
; Don't allow this code to be re-entered.
;------------------------------------------------------------
		lda	#$8000
		tsb	qtractive		; am I active?
		bne	busy			; yes, just exit now

;------------------------------------------------------------
; Wait until no volumes are in trouble
;------------------------------------------------------------
		lda	PanicCount
		beq	exit

		IF	DebugCode THEN
		sep	#$20
		longa	off
		lda	>BorderColor
		eor	#$000F
		sta	>BorderColor		
		rep	#$20
		longa	on
		ENDIF
		
loop
		lda	PanicCount
		bne	loop

		IF	DebugCode THEN
		sep	#$20
		longa	off
		lda	>BorderColor
		eor	#$000F
		sta	>BorderColor
		rep	#$20
		longa	on
		ENDIF
		
exit
		lda	#$8000
		trb	qtractive		; no longer active
busy		
		pla				; restore state on entry
		plb				; and caller's bank
		rtl				; return to caller

qtractive	dc.w	0
		endp
		
		end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/Volume.aii b/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/Volume.aii
new file mode 100644
index 0000000..cb1fff3
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/Volume.aii
@@ -0,0 +1 @@
+		load	'equates.dump'

		import	(out_pstr,PreProcess):code
		import	(StartPacket,SendPacket):code
		import	(PutWord,PutLong):code
		import	id_vol:code
		import	main_exit:code
		import	bytes_to_blks:code
		import	mydata:tdata

;
; Offsets for drvr_status buffer
;
vol_name	equ	4		; vol name ptr
device_status	equ	$22
stat_session	equ	2		; session number
stat_vol_id	equ	$20		; volume ID

;
; Offsets into user's parameter list
;
pb_volname	equ	4		; output buffer address
total_blocks	equ	8
free_blocks	equ	12
file_sys_id	equ	16		; file system ID
block_size	equ	18

;
; Offsets into GetVolParms packet
;
gv_volid	equ	2
gv_bitmap	equ	4

;
; Offsets in reply packet
;
free_bytes	equ	2
total_bytes	equ	6

;
; Other bitmaps
;
on_line_bits	equ	$C010		; vol on line status
get_vol_bits	equ	$C000		; get bytes free/total
; Note: get_vol_bits has its bytes swapped since AFP has its
; bytes in high-low order when IIGS has them in low-high order.

;------------------------------------------------------------
;
; Volume
;
; This call takes a device name (number) and returns the
; name of the volume in that device.  It also returns some
; volume-level statistics (blocks used, blocks free, etc.)
;
; On entry:
;	Full native mode.
;
; On exit:
;	Full native mode.
;
; Modification history:
; 27-Jun-88	MSD	Started coding.
; 19-Nov-90	MSD	Fixed Volume to return the volume name when
;			it returns a dup_vol error.
; 26-Nov-90	MSD	Forced carry set on any non-duplicate volume
;			error.
;------------------------------------------------------------

volume		proc	export
		with	dp,mydata

		ProcName volume
		
;------------------------------------------------------------
; Process and validate call parameters.
;------------------------------------------------------------
		jsr	PreProcess

;------------------------------------------------------------
; Class 0 => pcount = 5
;------------------------------------------------------------
		lda	class
		bne	class1pcnt
		
		lda	#5
		sta	pcount
class1pcnt
		dec	pcount		; acknowledge device name

;------------------------------------------------------------
; Find out from driver which volume this is.
;------------------------------------------------------------
		lda	src_dev_num	; copy device number
		jsr	id_vol		; go find the sucker
		sta	my_error	; 11/19/90: remember error code
		bcc	found_it
		cmp	#dup_vol	; 11/19/90: duplicate volume
		beq	found_it	; 11/19/90: should return volume name
		sec			; 11/26/90: make sure carry is set for error!
		brl	exit
found_it
;------------------------------------------------------------
; My_vcr_ptr now points to the VCR for this volume, and the
; buffer "gstring" contains a class 1 representation of the
; volume name.  SessRefnum and VolID are also properly
; set up.  Time now to return the volume name to the
; user's buffer.
;-----------------------------------------------------------

		lda	gstring		; add 1 to length for
		ina			; slash or colon
		ldx	class		; class 0?
		beq	class0
		ora	#$3A00		; colon for class 1
		bra	store_len
class0
		ora	#$2F00		; slash for class 0
store_len
		sta	gstring		; now we have a pstring
;-----------------------------------------------------------
; Now set up to call Out_Pstr to send out name
;-----------------------------------------------------------
		lda	#gstring	; source is gstring
		sta	src_ptr
		lda	#^gstring
		sta	src_ptr+2

		ldy	#pb_volname
		lda	[my_pb_ptr],y	; get buffer address
		sta	dest_ptr
		iny
		iny
		lda	[my_pb_ptr],y
		sta	dest_ptr+2
		
		jsr	Out_Pstr	; copy name to buffer
		bcs	exit
		
		sec			; 11/19/90: assume error
		lda	my_error	; 11/19/90: duplicate volume?
		bne	exit		; 11/19/90: yes, return the error now
		
		dec	pcount
		beq	done
;------------------------------------------------------------
; If we get here, then the user wants total_blocks.  Since I
; have to make a network call anyway, I'll also find out
; how many free blocks there are.
;------------------------------------------------------------

;------------------------------------------------------------
; Start filling out GetVolParms packet
;------------------------------------------------------------
		lda	#afpGetVolParms	; the command number
		jsr	StartPacket	; put it in packet

		lda	VolID		; VolID is first
		jsr	PutWord		; put in packet

		lda	#get_vol_bits	; request bitmap
		jsr	PutWord		; put in packet
		
		jsr	SendPacket	; go send it
		bcs	exit		; exit on any error

;------------------------------------------------------------
; Note: SendPacket filled in the pointer reply_buf.
;
; Also, the bytes free/total are in high-low order (reversed
; for a 65xxx).
;------------------------------------------------------------

;------------------------------------------------------------
; Fill in total_blocks field
;------------------------------------------------------------
		ldy	#total_bytes
		lda	[reply_buf],y	; get high word
		xba			; in X
		tax
		iny
		iny
		lda	[reply_buf],y	; low word in A
		xba
		jsr	bytes_to_blks	; convert value

		ldy	#total_blocks	; ready to return param
		sta	[my_pb_ptr],y	; save low word
		iny
		iny
		txa			; get high word
		sta	[my_pb_ptr],y	; save high word

		dec	pcount
		beq	done

;------------------------------------------------------------
; Fill in free_blocks field
;------------------------------------------------------------
		ldy	#free_bytes
		lda	[reply_buf],y	; get high word
		xba			; in X
		tax
		iny
		iny
		lda	[reply_buf],y	; low word in A
		xba
		jsr	bytes_to_blks	; convert value

		ldy	#free_blocks	; ready to return param
		sta	[my_pb_ptr],y	; save low word
		iny
		iny
		txa			; get high word
		sta	[my_pb_ptr],y	; save high word

		dec	pcount
		beq	done

;------------------------------------------------------------
; Fill in file_sys_id field
;------------------------------------------------------------
		lda	#my_fst_id	; get FST ID
		ldy	#file_sys_id	; offset in param list
		sta	[my_pb_ptr],y	; store it away
		dec	pcount		; acknowledge it
		beq	done

;------------------------------------------------------------
; Fill in block_size field
;------------------------------------------------------------
		lda	#fst_blk_size	; get size of blocks
		ldy	#block_size	; offset in param list
		sta	[my_pb_ptr],y	; put it in list
done
		clc
		lda	#0
exit
		jmp	main_exit

		endwith			; with dp,mydata
		endp

		end


\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/Write.aii b/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/Write.aii
new file mode 100644
index 0000000..a46843c
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/Write.aii
@@ -0,0 +1 @@
+;------------------------------------------------------------
; Write
;
; This call will write bytes from a buffer to an open fork.
;
; On entry:
;	Full native mode.
;
; On exit:
;	Full native mode.
;
; Modification history:
; 29-Jul-88	MSD	Started coding.
; 15-Aug-88	MSD	Changed definition of SPWrite
; 25-Oct-88	MSD	Added buffering.
;
;------------------------------------------------------------

		load	'equates.dump'

		import	(PreProcess,main_exit):code
		import	(StartWrite,SendWrite):code
		import	(PutWord,PutLong):code
		import	(update_vars,fill_buffer):code
		import	(do_flush):code
		import	mydata:tdata

		entry	(write_buff,write_unbuff):code
		entry	(to_server,to_buffer):code

SPWrite		record	import
		ds.w	1		; sync, call number
Result		ds.w	1		; result code
		ds.l	1		; completion routine
SRef		ds.b	1		; session reference #
ComLen		ds.w	1		; command block length
ComAddr		ds.l	1		; command block address
WrtBufLen	ds.w	1		; amount to be written
WrtAddr		ds.l	1		; address to write from
RepBufLen	ds.w	1		; reply buffer length
RepAddr		ds.l	1		; reply buffer address
ComRes		ds.l	1		; result (from server)
WrtLen		ds.w	1		; actual amount written
RepLen		ds.w	1		; actual reply length
		endr

;------------------------------------------------------------
; This is the structure of the parameter list for the
; Write call (note: I ignore the cache_priority of the
; class 1 call since I never cache blocks).
;------------------------------------------------------------
p		record	0
		ds.w	1			; file refnum
buffer		ds.l	1			; address of user's data buffer
req_count	ds.l	1			; number of bytes requested
trans_count	ds.l	1			; number of bytes actually transferred
		endr


write		proc	export
		with	dp,mydata

		ProcName write
		
		jsr	PreProcess		; validate the call

;------------------------------------------------------------
; Initialize transfer count and mark in file since these are
; updated when the call completes (error or not).
;------------------------------------------------------------
		stz	trans_count		; reset transfer count since
		stz	trans_count+2		; nothing transfered yet

		ldy	#fcr.mark
		lda	[my_fcr_ptr],y		; get current mark in file
		sta	cur_mark		; save for now
		iny
		iny
		lda	[my_fcr_ptr],y
		sta	cur_mark+2

;------------------------------------------------------------
; Check to see if we have write access to this file.
;------------------------------------------------------------
		ldy	#fcr.access
		lda	[my_fcr_ptr],y		; get access from open
		and	#$0002			; can we write to the file?
		bne	@write			; if so, complete the call

		sec				; got an error!
		lda	#access_error		; don't have write access to file
		brl	done			; return the error
@write

;------------------------------------------------------------
; Initialize the rest of the local variables for write.
;------------------------------------------------------------
		ldy	#p.buffer
		lda	[my_pb_ptr],y		; get buffer address low
		sta	data_buffer		; save locally
		iny
		iny
		lda	[my_pb_ptr],y		; buffer address high
		sta	data_buffer+2
		
		iny
		iny				; Y = p.req_count
		lda	[my_pb_ptr],y
		sta	req_count		; copy request count
		iny
		iny
		lda	[my_pb_ptr],y
		sta	req_count+2
		clc				; get ready for no error
		ora	req_count		; anything to write?
		beq	done			; no, so just exit
		
;------------------------------------------------------------
; Do buffered or unbuffered write as specified in FCR.
;------------------------------------------------------------
		ldy	#fcr.flags
		lda	[my_fcr_ptr],y		; get buffering flag (high bit)
		bpl	no_buff
		
		jsr	write_buff		; do a buffered write
		bra	done			; return everything
no_buff
		jsr	write_unbuff		; do an unbuffered write

;------------------------------------------------------------
; The write is done.  Update the FCR's current mark and the
; actual transfer count in the user's parameter list.
;------------------------------------------------------------
done
		php				; save error status
		pha				; save error code

		ldy	#p.trans_count
		lda	trans_count		; return transfer count
		sta	[my_pb_ptr],y
		iny
		iny
		lda	trans_count+2
		sta	[my_pb_ptr],y
		
		ldy	#fcr.mark
		lda	cur_mark		; update current mark
		sta	[my_fcr_ptr],y
		iny
		iny
		lda	cur_mark+2
		sta	[my_fcr_ptr],y

		pla				; restore error code
		plp				; restore error status

		jmp	main_exit		; return from call

		endwith				; with dp
		endp



;------------------------------------------------------------
; Write_Unbuff
;
; This routine writes directly from the user's data buffer
; to the server.  It assumes that the main vars (cur_mark,
; req_count, data_buffer) have been set up.
;------------------------------------------------------------

write_unbuff	proc
		with	dp,mydata
		
		ProcName write_unbuff
		
;------------------------------------------------------------
; Copy main vars into local copies for to_server.
;------------------------------------------------------------
		lda	cur_mark
		sta	this_mark
		lda	cur_mark+2
		sta	this_mark+2
		
		lda	req_count
		sta	this_req
		lda	req_count+2
		sta	this_req+2
		
		lda	data_buffer
		sta	this_buffer
		lda	data_buffer+2
		sta	this_buffer+2
		
;------------------------------------------------------------
; Send the write to the server.
;------------------------------------------------------------
		jsr	to_server
		pha

;------------------------------------------------------------
; Update cur_mark, data_buffer, req_count, trans_count.
;------------------------------------------------------------
		jsr	update_vars
		pla
		bne	error_exit		; return any errors

;------------------------------------------------------------
; See if there is more to write
;------------------------------------------------------------
		lda	req_count
		ora	req_count+2
		bne	write_unbuff

;------------------------------------------------------------
; Write worked just fine.  Return with no errors.
;------------------------------------------------------------
		clc
		lda	#0
		rts

;------------------------------------------------------------
; Write got an error.  Return it.
;------------------------------------------------------------
error_exit
		sec
		rts

		
		endwith				; with dp
		endp



;------------------------------------------------------------
; Write_Buff
;
; This routine handles writes that should be buffered.  It
; assumes that the main vars (cur_mark, req_count, etc.)
; have been set up.
;------------------------------------------------------------

write_buff	proc
		with	dp,mydata
		
		ProcName write_buff
		
;------------------------------------------------------------
; If write is <= $200 bytes, then do write a block at a time
; through a block buffer.  Otherwise, do the write in one
; fell swoop with write_unbuff.
;------------------------------------------------------------
		lda	req_count+2		; more than a bank?
		bne	long
		lda	req_count
		cmp	#$200			; more than a block?
		blt	short

long
		jsr	do_flush		; flush unwritten data
		bcs	exit
		
		ldy	#fcr.flags
		lda	[my_fcr_ptr],y
		and	#Åbuffer_valid		; buffered data no longer valid
		sta	[my_fcr_ptr],y
		
		bra	write_unbuff		; do unbuffered write
		
short
		jsr	fill_buffer		; make sure buffer is full of data
		bcs	exit
		
		jsr	to_buffer		; try putting some data in buffer
		
		lda	req_count
		ora	req_count+2		; more to read?
		bne	short			; if so, go to next block
		clc				; all done, no errors
exit
		rts

		endwith				; with dp
		endp



;------------------------------------------------------------
; To_Buffer
;
; This routine writes from the user's data buffer into the
; FCR's buffer.  Note: the amount of valid data in the
; buffer may grow.
;
; On entry:
;	data_buffer	= address to write from
;	cur_mark	= mark in file to write to
;	req_count	= amount to try to write
;	trans_count	= amount transfered so far
;
; On exit:
;	data_buffer	= next address to write from
;	cur_mark	= next mark in file to write to
;	req_count	= amount left to try to write
;	trans_count	= amount transfered so far
;
;	(no errors possible)
;------------------------------------------------------------

to_buffer	proc
		with	dp,mydata

		ProcName to_buffer
		
		lda	cur_mark
		and	#$1FF				; get offset in block
		sta	this_mark
		clc
		adc	#fcr.buffer			; offset in FCR
		clc
		adc	my_fcr_ptr			; address in FCR
		sta	dest_ptr
		lda	my_fcr_ptr+2
		adc	#0
		sta	dest_ptr+2
		
		sec
		lda	#$200				; maximum buffer size
		sbc	this_mark			; get # bytes left in buffer
		sta	this_req

;------------------------------------------------------------
; If request was less than room left in buffer, cut down
; the write size.
;------------------------------------------------------------
		lda	req_count+2			; want a whole bank?
		bne	more
		lda	req_count
		cmp	this_req			; more than room left?
		bge	more				; yep, so only do room left
		sta	this_req			; doesn't fill up buffer

more
;------------------------------------------------------------
; See if this write grows the buffer.
;------------------------------------------------------------
		clc
		lda	this_mark
		adc	this_req			; got new mark
		ldy	#fcr.buf_size
		cmp	[my_fcr_ptr],y			; more than old size?
		blt	copy				; no, so skip update
		sta	[my_fcr_ptr],y			; update buffer size

;------------------------------------------------------------
; Now copy this_req bytes from (data_buffer) to (dest_ptr).
;------------------------------------------------------------
copy
		sep	#$20				; short A for chars
		longa	off

		ldy	#0				; start with first char
		ldx	this_req			; get byte count
@loop
		lda	[data_buffer],y
		sta	[dest_ptr],y			; write a byte
		iny
		dex					; more bytes to go?
		bne	@loop
		
		rep	#$20				; back to full native
		longa	on
		
		ldy	#fcr.flags
		lda	[my_fcr_ptr],y
		ora	#buffer_dirty			; we have unwritten data
		sta	[my_fcr_ptr],y
		
;------------------------------------------------------------
; Update the main vars.
;------------------------------------------------------------
		lda	this_req
		sta	this_trans
		stz	this_trans+2			; always <64K!
		jsr	update_vars
		
		rts

		endwith					; with dp
		endp


;------------------------------------------------------------
; To_Server
;
; This routine does the unbuffered writing directly to
; the server from the user's data buffer.
;
; On entry:
;	this_buffer	= address to write from
;	this_mark	= mark in file to write to
;	this_req	= amount to try to write
;
; On exit:
;	c = 1 if error (A = error code)
;
;	this_trans	= amount written
;
;------------------------------------------------------------

to_server	proc
		with	dp,mydata

		ProcName to_server
		
		lda	#afpWrite		; write relative to start of fork
		jsr	StartWrite		; start up a write packet
		
		ldy	#fcr.forkrefnum
		lda	[my_fcr_ptr],y		; get AFP OForkRefnum
		jsr	PutWord			; into packet
		
		lda	this_mark		; offset, low word
		xba				; high-low byte order
		tax				; second word in X
		lda	this_mark+2		; offset, high word
		xba				; high-low byte order
		jsr	PutLong			; put offset into packet
		
;------------------------------------------------------------
; Now, figure out how much data goes in this transaction.
;------------------------------------------------------------
		lda	this_req+2		; more than 64K?
		bne	write_max		; if so, write maximum

		lda	this_req		; get requested amount
		cmp	#MaxSPData		; can ASP handle it all?
		bge	write_max		; maybe not, do max ASP size
		bra	got_write_size		; here, asking for less than max
write_max
		lda	#MaxSPData		; ask for maximum ASP data size
got_write_size
		sta	SPWrite.WrtBufLen	; save as SPWrite data length
		
		lda	this_req
		xba				; high-low order
		tax				; low word in X
		lda	this_req+2		; high word
		xba
		jsr	PutLong			; put request count in packet

;------------------------------------------------------------
; Now, make write data buffer point to user's data buffer
;------------------------------------------------------------
		lda	this_buffer
		sta	SPWrite.WrtAddr
		lda	this_buffer+2
		sta	SPWrite.WrtAddr+2

;------------------------------------------------------------
; Send the write packet out the door...
;------------------------------------------------------------
		jsr	SendWrite

;------------------------------------------------------------
; Update current transfer count, request count, current mark,
; and data buffer address
;------------------------------------------------------------
		ldx	SPWrite.WrtLen		; get actual transfer amount
		stx	this_trans
		stz	this_trans+2
		
		bcs	return			; return any error

done
		clc				; no error
		lda	#0
return
		rts

		endwith				; with dp
		endp

		end

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/read.aii b/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/read.aii
new file mode 100644
index 0000000..b196787
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/FSTs/AppleShare/Src/read.aii
@@ -0,0 +1 @@
+;------------------------------------------------------------
; Read
;
; This call will read bytes from an open fork to a buffer.
;
; On entry:
;	Full native mode.
;
; On exit:
;	Full native mode.
;
; Modification history:
; 28-Jul-88	MSD	Started coding.
; 15-Aug-88	MSD	Changed definition of SPCommand
; 14-Oct-88	MSD	Reorganized from_server routine.
;			Adding support for buffered reads.
;			Added check for request_count = 0.
;
;------------------------------------------------------------

		load	'equates.dump'

		import	(PreProcess,main_exit):code
		import	(StartPacket,SendPacket):code
		import	(PutWord,PutLong):code
		import	(do_flush):code
		import	SPCommand:tSPCommand
		import	mydata:tdata
		
		entry	(from_server,from_buffer):code
		entry	(read_buffered,read_unbuffered):code

;------------------------------------------------------------
; This is the structure of the parameter list for the
; Read call (note: I ignore the cache_priority of the
; class 1 call since I never cache blocks).
;------------------------------------------------------------
p		record	0
		ds.w	1			; file refnum
buffer		ds.l	1			; address of user's data buffer
req_count	ds.l	1			; number of bytes requested
trans_count	ds.l	1			; number of bytes actually transferred
		endr


read		proc	export
		with	dp,mydata

		ProcName read
		
		jsr	PreProcess		; validate the call

;------------------------------------------------------------
; Initialize transfer count and file mark since these will
; be updated when the call completes (error or not).
;------------------------------------------------------------
		stz	trans_count		; reset transfer count since
		stz	trans_count+2		; nothing transfered yet

		ldy	#fcr.mark
		lda	[my_fcr_ptr],y		; get current mark in file
		sta	cur_mark		; save for now
		iny
		iny
		lda	[my_fcr_ptr],y
		sta	cur_mark+2

;------------------------------------------------------------
; Check to see if we have read access to this file.
;------------------------------------------------------------
		ldy	#fcr.access
		lda	[my_fcr_ptr],y
		and	#$0001			; is read bit set?
		bne	@read			; if so, continue the call

		lda	#access_error		; file wasn't opened for read
		brl	done			; return the error
@read

;------------------------------------------------------------
; We can read, so set up the rest of the local variables.
;------------------------------------------------------------
		ldy	#p.buffer
		lda	[my_pb_ptr],y		; get buffer address low
		sta	data_buffer		; save locally
		iny
		iny
		lda	[my_pb_ptr],y		; buffer address high
		sta	data_buffer+2
		
		iny
		iny				; Y = p.req_count
		lda	[my_pb_ptr],y
		sta	req_count		; copy request count
		iny
		iny
		lda	[my_pb_ptr],y
		sta	req_count+2

		ora	req_count		; anything requested?
		beq	done			; if not, exit with no error

		stz	newline_mask		; assume no newline mode
		stz	newline_word		; no newline mode
		
		ldy	#fcr.newline_len	; Y = fcr.newline_len
		lda	[my_fcr_ptr],y		; get newline list length
		sta	newline_len		; save for later
		beq	got_nl_info		; if no newline, skip this

		ldy	#fcr.newline
		lda	[my_fcr_ptr],y		; get VP to newline list
		tax				; low word in X
		iny
		iny
		lda	[my_fcr_ptr],y
		tay				; high word in Y
		jsl	deref			; turn VP into pointer
		stx	newline_ptr
		sty	newline_ptr+2
		
		ldx	newline_len		; get newline len
		ldy	#fcr.mask
		lda	[my_fcr_ptr],y		; get newline mask
		sta	newline_mask
		dex				; was newline_len = 1?
		bne	got_nl_info		; if not, don't use server newline
		lda	[newline_ptr]		; get newline char
		and	#$00FF			; just 1 char, please
		xba				; char to high byte
		ora	newline_mask		; mask in low byte
		sta	newline_word		; and save for AFP's use
got_nl_info

;------------------------------------------------------------
; Check for buffering.  Then do the right kind of read.
;------------------------------------------------------------
		ldy	#fcr.flags
		lda	[my_fcr_ptr],y		; get buffering flag (high bit)
		bpl	no_buff
		
		jsr	read_buffered		; do a buffered read
		bra	done			; return everything
no_buff
		jsr	read_unbuffered		; do an unbuffered read

done
		pha				; save error code

		ldy	#p.trans_count
		lda	trans_count		; return transfer count
		sta	[my_pb_ptr],y
		iny
		iny
		lda	trans_count+2
		sta	[my_pb_ptr],y
		
		ldy	#fcr.mark
		lda	cur_mark		; update current mark
		sta	[my_fcr_ptr],y
		iny
		iny
		lda	cur_mark+2
		sta	[my_fcr_ptr],y

		pla				; restore error code
		beq	no_error		; return if no error
		cmp	#eof_error		; was it an EOF error?
		bne	yes_error		; if so, return as error

;------------------------------------------------------------
; Don't return an EOF error if the transfer count is <>0.
;------------------------------------------------------------
		lda	trans_count
		ora	trans_count+1		; trans_count=0?
		bne	no_error		; no, so no error
		lda	#eof_error		; trans_count=0 => EOF error
yes_error
		sec				; yes, it was an error
		bcs	exit
no_error
		clc				; no error
		lda	#0			; force no error result
exit		
		jmp	main_exit		; return from call

		endwith				; with dp
		endp


;------------------------------------------------------------
; Update_Vars
;
; This routine adjusts the values of cur_mark, data_buffer,
; req_count, trans_count by the amount of data transfered
; (in this_trans).
;
;------------------------------------------------------------

update_vars	proc	export
		with	dp,mydata

		ProcName update_vars
		
		clc
		lda	cur_mark
		adc	this_trans
		sta	cur_mark
		lda	cur_mark+2
		adc	this_trans+2
		sta	cur_mark+2
		
		clc
		lda	data_buffer
		adc	this_trans
		sta	data_buffer
		lda	data_buffer+2
		adc	this_trans+2
		sta	data_buffer+2
		
		clc
		lda	trans_count
		adc	this_trans
		sta	trans_count
		lda	trans_count+2
		adc	this_trans+2
		sta	trans_count+2
		
		sec
		lda	req_count
		sbc	this_trans
		sta	req_count
		lda	req_count+2
		sbc	this_trans+2
		sta	req_count+2

		rts
		
		endwith				; with dp
		endp



;------------------------------------------------------------
; From_Server
;
; This routine does a read directly from the server to a
; buffer somewhere in memory.  The newline_word is used in
; case one newline char is used (no check for multiple newline
; chars).
;
; On entry:
;	A		= newline word
;	this_buffer	= address to read into
;	this_mark	= mark in file to read from
;	this_req	= amount to try to read
;
; On exit:
;	c = 1 if error (A = error code)
;
;	this_trans	= amount transfered this request
;
;------------------------------------------------------------

from_server	proc
		with	dp,mydata

		ProcName from_server
		
;------------------------------------------------------------
; Start FPRead packet to server
;------------------------------------------------------------
		pha				; save newline word

		lda	#afpRead
		jsr	StartPacket

		ldy	#fcr.forkrefnum
		lda	[my_fcr_ptr],y		; get AFP OForkRefnum
		jsr	PutWord

		lda	this_mark		; get mark, low word
		xba				; high-low order
		tax				; low word in X
		lda	this_mark+2		; get mark, high word
		xba				; high-low order
		jsr	PutLong			; put offset into packet

;------------------------------------------------------------
; The request amount in the packet will be the actual amount
; requested so that the server can try to optimize.
;------------------------------------------------------------
		lda	this_req		; get low word
		xba				; in 68000 order
		tax				; low word in X
		lda	this_req+2		; get high word
		xba				; in 68000 order
		jsr	PutLong			; put request count in packet

		pla				; get newline mask & char if any
		jsr	PutWord

;------------------------------------------------------------
; Adjust reply buffer to point directly at this buffer
;------------------------------------------------------------
		lda	this_buffer
		sta	SPCommand.RepAddr	; update reply address
		lda	this_buffer+2
		sta	SPCommand.RepAddr+2	; and high word

		lda	#MaxSPData		; allow maximum reply
		sta	SPCommand.RepBufLen	; buffer length (won't
						; overflow request)

;------------------------------------------------------------
; Make the read call
;------------------------------------------------------------
		jsr	SendPacket		; off it goes

;------------------------------------------------------------
; Save off the actual transfer count
;------------------------------------------------------------
		ldx	SPCommand.RepLen	; get actual transfer amount

		stx	this_trans		; return as transfer count
		stz	this_trans+2

		rts				; return with error in c/A

		endwith				; with dp
		endp

;------------------------------------------------------------
; From_Buffer
;
; This routine reads bytes from the FCR buffer to another
; buffer.  It handles newline character checking.  Hitting a
; newline character returns an EOF error.
;
; On entry:
;	req_count	= amount to try to read
;	data_buffer	= address to read into
;	cur_mark	= mark in file to read from
;	trans_count	= amount already transfered
;
; On exit:
;	c = 1 if error (A = error code)
;		EOF is returned if the end of a partially
;		filled buffer or a newline character is
;		encountered.
;
;	req_count	= amount left to read
;	data_buffer	= next address to read into
;	cur_mark	= next mark in file to read from
;	trans_count	= amount transfered to this point
;
;------------------------------------------------------------

from_buffer	proc
		with	dp,mydata

		ProcName from_buffer
		
		lda	cur_mark
		and	#$1FF				; get offset in block
		sta	this_mark
		clc
		adc	#fcr.buffer			; offset in FCR
		clc
		adc	my_fcr_ptr			; address in FCR
		sta	src_ptr
		lda	my_fcr_ptr+2
		adc	#0
		sta	src_ptr+2
		
		ldy	#fcr.buf_size
		lda	[my_fcr_ptr],y			; get size of buffer
		sta	math_temp			; temporarily save buffer size
		sec
		sbc	this_mark			; get # bytes left in buffer
		sta	this_req
		
;------------------------------------------------------------
; Now determine whether we should return an EOF error.  If
; they requested more than we have and the block is not a
; full $200 bytes, then we return EOF error.
;------------------------------------------------------------
		stz	my_error			; assume no error
		
		lda	req_count+2			; want more than a bank?
		bne	more
		lda	req_count
		cmp	this_req			; want as much as we have?
		bge	more				; yes, so give 'em what we have.
less
		sta	this_req
		bra	start

more
		lda	math_temp			; how big was the buffer?
		cmp	#$200				; a full block?
		beq	start				; yep, so do the read

		lda	#eof_error			; we will run into EOF!
		sta	my_error

start
		stz	this_trans			; start with nothing transfered
		stz	this_trans+2
		lda	this_req			; do they get nothing?
		beq	done				; if so, go home
		
		lda	newline_len			; how many newline chars?
		beq	speedy				; none -- it be fast!
		
		dea					; minus 1 as index to list
		beq	single				; only one char -- not bad

slug
		sep	#$20
		longa	off
@loop
		ldy	this_trans			; index to source, data buffer
		inc	this_trans			; we will transfer this byte
		lda	[src_ptr],y			; copy a byte
		sta	[data_buffer],y
		and	newline_mask			; apply mask byte
		ldy	newline_len
@newline_loop
		dey					; as index to list
		cmp	[newline_ptr],y			; was it a newline char?
		beq	@was_newline
		cpy	#0				; checked 'em all?
		bne	@newline_loop
		dec	this_req			; more to read?
		bne	@loop
		beq	@done
@was_newline
		lda	#eof_error			; newline is like EOF
		sta	my_error
@done
		rep	#$20				; back to full native
		longa	on
		bra	done

single
		lda	[newline_ptr]			; get newline char
		sta	math_temp			; save for compares
		
		sep	#$20				; short A for chars
		longa	off
		
		ldy	#0				; start with first byte
@loop
		lda	[src_ptr],y			; get first byte
		sta	[data_buffer],y
		iny
		and	newline_mask
		cmp	math_temp			; is it the newline char?
		beq	@end
		cpy	this_req			; transfered all the bytes?
		bne	@loop
		beq	@done
@end
		lda	#eof_error			; newline is like EOF
		sta	my_error
@done
		rep	#$20				; back to full native
		longa	on
		sty	this_trans			; update amount transfered
		bra	done				; finish up

speedy
		sep	#$20
		longa	off
		ldy	#0				; start with first char
		ldx	this_req			; get count
		stx	this_trans			; save as amount transfered
@loop
		lda	[src_ptr],y
		sta	[data_buffer],y
		iny
		dex
		bne	@loop
		
		rep	#$20
		longa	on

done
		jsr	update_vars			; update all the pointers, etc.
		
		lda	my_error
		cmp	#1				; set carry if error
		rts

		endwith					; with dp
		endp


;------------------------------------------------------------
; Fill_Buffer
;
; This routine makes sure that the FCR's buffer has data
; corresponding to the current mark (cur_mark) in the file.
; If the buffer contains unwritten data from another block,
; it will be written before the new block is read in.
;
;------------------------------------------------------------

fill_buffer	proc	export
		with	dp,mydata
		
		ProcName fill_buffer
		
		lda	cur_mark
		and	#$FE00			; get mark of start of block
		sta	this_mark
		iny
		iny
		lda	cur_mark+2
		sta	this_mark+2
		
		ldy	#fcr.flags
		lda	[my_fcr_ptr],y
		and	#buffer_valid		; is the buffer data valid?
		beq	fill_it			; if not, fill the buffer
		
		ldy	#fcr.buf_start
		lda	[my_fcr_ptr],y
		cmp	this_mark		; already have the right block?
		bne	fill_it
		iny
		iny
		lda	[my_fcr_ptr],y
		cmp	this_mark+2
		bne	fill_it
		
		clc				; buffer was already filled!
		lda	#0
		rts

fill_it
		jsr	do_flush		; flush any unwritten data
		bcs	exit

		ldy	#fcr.buf_start
		lda	this_mark
		sta	[my_fcr_ptr],y		; update buffer's starting mark
		iny
		iny
		lda	this_mark+2
		sta	[my_fcr_ptr],y
		
		ldy	#fcr.flags
		lda	[my_fcr_ptr],y
		and	#Åbuffer_valid		; for now, buffer is invalid
		sta	[my_fcr_ptr],y
		
		clc
		lda	my_fcr_ptr
		adc	#fcr.buffer		; set up address of FCR's buffer
		sta	this_buffer
		lda	my_fcr_ptr+2
		adc	#0
		sta	this_buffer+2
		
		lda	#$200			; want a block
		sta	this_req
		stz	this_req+2
		
		lda	#0			; don't use newline stuff
		jsr	from_server		; go get the data
		bcc	set_size		; no error, we have full buffer
		cmp	#eof_error		; EOF error is not bad
		beq	set_size		; EOF implies partially full buffer
		cmp	#access_error		; no access is also OK (kind of)
		beq	set_size		; access error implies empty buffer
error_exit
		sec
exit
		rts

set_size
		ldy	#fcr.buf_size
		lda	this_trans
		sta	[my_fcr_ptr],y		; save number of valid bytes

		ldy	#fcr.flags
		lda	[my_fcr_ptr],y
		ora	#buffer_valid		; buffer contains valid data
		sta	[my_fcr_ptr],y
		
		clc				; call is all done
		lda	#0
		rts

		endwith				; with dp
		endp



;------------------------------------------------------------
; Read_Unbuffered
;
; This handles file reads when buffering for the file is off.
; The main vars (mark, buffer, request, transfer) have been
; set up and must be maintained.
;
; Each time I read some, I have to see if it was terminated
; by a newline char.  If it was, the read call is done.
;------------------------------------------------------------

read_unbuffered	proc
		with	dp,mydata

		ProcName read_unbuffered
		
;------------------------------------------------------------
; Copy mark and buffer address to local vars used by
; routine that reads from server.
;------------------------------------------------------------
		lda	cur_mark
		sta	this_mark
		lda	cur_mark+2
		sta	this_mark+2
		
		lda	data_buffer
		sta	this_buffer
		lda	data_buffer+2
		sta	this_buffer+2
		
;------------------------------------------------------------
; If newline mode with more than 1 newline char, then this
; request becomes 1 byte.
;------------------------------------------------------------
		ldx	req_count
		ldy	req_count+2
		lda	newline_len
		cmp	#2			; 2 or more newline chars?
		blt	@full
		ldx	#1			; yep, so only request 1 byte
		ldy	#0
@full
		stx	this_req
		sty	this_req+2

;------------------------------------------------------------
; Get the data from the server.
;------------------------------------------------------------
		lda	newline_word		; indicate newline char if one
		jsr	from_server
		pha				; save error code
		
;------------------------------------------------------------
; Update mark, buffer, request, transfered.
;------------------------------------------------------------
		jsr	update_vars
		pla				; was there an error?
		bne	err_exit		; if so, exit with the error

;------------------------------------------------------------
; No error on read, so see if read terminated by hitting
; a newline character.
;------------------------------------------------------------
		ldy	newline_len		; any newline chars?
		beq	check_more		; if not, see if there is more to read
		
		sec
		lda	data_buffer		; get address of last byte transfered
		sbc	#1
		sta	src_ptr
		lda	data_buffer+2
		sbc	#0
		sta	src_ptr+2
		
		sep	#$20			; short A for chars
		longa	off
		lda	[src_ptr]		; get last char transfered
		and	newline_mask		; mask that puppy
check_newline
		dey				; offset to next newline char
		cmp	[newline_ptr],y		; is it a newline
		beq	was_newline
		cpy	#0			; any more to check?
		bne	check_newline
		
		rep	#$20			; back to full native
		longa	on

check_more
		lda	req_count
		ora	req_count+2		; any more bytes to read?
		bne	read_unbuffered
ok_exit
		clc				; return no error (A = 0)
		lda	#0
		rts
was_newline
		rep	#$20			; back to full native
		longa	on
		lda	#eof_error		; pretend we got newline
err_exit
		sec
		rts

		
		endwith				; with dp
		endp


;------------------------------------------------------------
; Read_Buffered
;
; This handles file reads when buffering for the file is on.
; The main vars (mark, buffer, request, transfer) have been
; set up and must be maintained.
;------------------------------------------------------------

read_buffered	proc
		with	dp,mydata

		ProcName read_buffered
		
;------------------------------------------------------------
; If the read is <= $200 bytes, or there are any newline
; characters, then do read a block at a time through the
; buffer.
;------------------------------------------------------------
		lda	newline_len
		bne	short			; newlines, so use buffer
		
		lda	req_count+2		; really big read?
		bne	long			; yes, do direct from server
		lda	req_count
		cmp	#$200			; big enough for server read?
		bge	long
short
		jsr	fill_buffer		; make sure buffer is full of data
		bcs	exit
		
		jsr	from_buffer		; try getting some data from buffer
		bcs	exit
		
		lda	req_count
		ora	req_count+2		; more to read?
		bne	short			; if so, go to next block
		clc
		bra	exit
long
		jsr	do_flush		; flush unwritten data
		bcs	exit
		
		ldy	#fcr.flags
		lda	[my_fcr_ptr],y
		and	#Åbuffer_valid		; buffered data no longer valid
		sta	[my_fcr_ptr],y
		
long2
		lda	cur_mark		; copy mark for server
		sta	this_mark
		lda	cur_mark+2
		sta	this_mark+2
		
		lda	data_buffer		; buffer is user's buffer
		sta	this_buffer
		lda	data_buffer+2
		sta	this_buffer+2
		
		lda	req_count		; copy amount requested
		sta	this_req
		lda	req_count+2
		sta	this_req+2

		lda	#0			; no newline stuff
		jsr	from_server
		pha				; save error if any
		
		jsr	update_vars		; update mark, buffer, etc.
		
		pla				; recover error code
		bne	error_exit

		lda	req_count
		ora	req_count+2		; any more to transfer?
		bne	long2			; yes, so transfer big chunks

ok_exit
		clc
		lda	#0
exit
		rts
error_exit
		sec
		rts

		endwith				; with dp
		endp

		end

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/FSTs/Character/Character.FST b/IIGS.601.SRC/GS.OS/FSTs/Character/Character.FST
new file mode 100644
index 0000000..4b83afb
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/FSTs/Character/Character.FST
@@ -0,0 +1 @@
+		string	asis
		blanks	off

		print	push
		print	off
		include	'common.equ.src'
		include 'driver.equ.src'
		print	pop

* change the following equate to update the version number
VersNum		Equ	$0400		;version 4.00

;================================================================
;
;  CFST.EQUATES
;
;  Equates file for the Character File System Translator.
;
;  Created:     July  8, 1987
;  Modified:    November 18, 1987
;  Author:      Andy Stadler
;
;================================================================
cfst_id		equ	9		; my ID number
read_access	equ	$01
write_access	equ	$02
read_write_acc	equ	$03
max_call	equ	$4A		; last valid command * 2
max_sys		equ	$4		; last valid command * 2

;================================================================
;
;  Dev_Data structure
;
;  This specifies the structure of dev_data records.  These are
;  a linked list of structures, one for each open device.
;
;  NOTE:  A device may be multiply opened.  For each open instance
;         there is an FCR, however there is only one Dev_Data for
;         each device.
;
;================================================================
dd_dev_num	equ	0		; device number
dd_next_dev	equ	dd_dev_num+2	; VP to next device
dd_open_stat	equ	dd_next_dev+4	; how many times opened.
dd_size		equ	dd_open_stat+2

;================================================================
;
;  cfst's fcr
;
;  Because devices opened as files have no associated "volume",
;  there is no associated VCR.  I need to store the device number
;  somewhere - normally found in the VCR.  So I add a field to
;  the end of the fcr.
;
;================================================================
fcr_fst_ptr	equ	fcr_access+2
fcr_dev_num	equ	fcr_fst_ptr	; device number
my_fcr_length	equ	fcr_dev_num+2	; length of cfst's fcr

;================================================================
;
;  CFST's direct page usage.  Starts at $80, the FST workspace.
;
;================================================================
my_ref_num	equ	fst_start	; working reference #
my_dev_num	equ	my_ref_num+2	; working device #
cur_dev		equ	my_dev_num+2	; vp of current dev_data
cur_dev_ptr	equ	cur_dev+4	; ptr to current dev_data
prev_dev	equ	cur_dev_ptr+4	; vp of previous dev_data
my_fcr		equ	prev_dev+4	; vp of current fcr
my_fcr_ptr	equ	my_fcr+4	; ptr to current fcr
newl_buf	equ	my_fcr_ptr+4	; vp of fcr's newline buffer
newl_buf_ptr	equ	newl_buf+4	; ptr to fcr's newline buffer
call_class_2	equ	newl_buf_ptr+4	; incoming call class x 2
my_open_flag	equ	call_class_2+2	; used for open's error recovery
req_access	equ	my_open_flag+2	; requested access bits
dev_access	equ	req_access+2	; device's access bits
grant_access	equ	dev_access+2	; computed access bits
my_req_count	equ	grant_access+2	; request count for read/write
my_pcount	equ	my_req_count+4	; incoming parameter count
my_newl_count	equ	my_pcount+2	; newline list length
my_newl_mask	equ	my_newl_count+2	; newline mask/enable
src_list_ptr	equ	my_newl_mask+2	; source pointer for newline copy
my_trans_count	equ	src_list_ptr+4	; working transfer count

;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

		ENTRY	bad_cmd
		ENTRY	block_cmd
		ENTRY	do_close
		ENTRY	do_flush
		ENTRY	do_open
		ENTRY	do_read
		ENTRY	do_shutdn
		ENTRY	do_startup
		ENTRY	do_write
		ENTRY	error_exit
		
		eject
;================================================================
;
;  CFST.MAIN
;
;  Contains header, entry points, and exit points of the
;  character file system translator.
;
;  Created:     July 27, 1987
;  Modified:    January 30, 1988
;  Author:      Andy Stadler
;
;  Copyright (c) 1987-1988, Apple Computer, Inc.
;  All Rights Reserved.
;
;================================================================
;
;  This is the Character FST header.
;
;  FST Header Definition:
;
;  dc  c'FST '                          ; FST identifier
;  dc  I4'Application_Entry'            ; Entry Point #1
;  dc  I4'System_Calls'                 ; Entry Point #2
;  dc  I2'FST_ID'                       ; FST's ID #
;  dc  I2'$C000'                        ; attribute 110xxxxxxxxxxxxx
;                                           bit 15 = 1=uppercase paths
;                                               14 = 0=block/1=character
;                                               13 = 1=supports formatting
;  dc  I2'version'
;  dc  I2'0'                            ; block size
;  dc  I4'0'                            ; max blocks
;  dc  I4'0'                            ; min blocks
;  dc  I4'0'                            ; max file in bytes
;  dc  I4'0'                            ; reserved field, must be 0
;  dc  I1'name length'                  ; file system name
;  dc  c'Character FST'
;  dc  I2'Comment Length'               ; install time comment
;  dc  C'Comment goes here'
;  dc  i2'0'
;
; Revision:
;
; Mar. 28, 1988 By Rob Turner
;
;               Changed the open routine.  The open routine was only
;               setting up 'drvr_dev_num' if the driver was currently
;               closed.  This caused 'get_last_dev' to fail.
;
;               files changed:
;                       (1) cfst.open
;
; Jun.	28, 1988 by Rob Turner
;
;		We now set the block size to zero on entry to the
;		character fst.
;
; Feb. 01, 1989 by Rob Turner
;
;		Fixed a bug in Read and Write.  These routines
;		were not honoring the access that was assigned
;		at the time of the open call.
;
; Mar  27, 1990 by Monte Benaresh
;
;		The FLUSH call now supports two types of flush: a "full"
;		flush, which flushes a file's dirty data blocks and dirty
;		directory blocks, and a "fast" flush which flushed dirty
;		data blocks only. Since this concept is only meaningful
;		for block FST's, the code in this file was simply changed
;		to allow a P_COUNT of 2.  The FLUSH_TYPE parameter is
;		ignored entirely.
;
;		New FLUSH parameter block:
;
;			|---------------|
;			|    P_COUNT	| (word)
;			|---------------|
;			|    REF_NUM	| (word)
;			|---------------|
;			|   FLUSH_TYPE	| (word)
;			|---------------|
;
;		Valid values for FLUSH_TYPE are:
;			$0000 = full flush (default)
;			$8000 = fast flush
;
; August 31, 1991 by Greg Branche
;
;		Logic added to speed up writes to the .CONSOLE driver.
;		At Startup, the FST now scans the device list looking
;		for the .CONSOLE driver.  When it's found, it stores
;		the device number for later comparisons, performs an
;		Add_Trap call to the driver, and then a Reset_Trap to
;		learn the address of the driver's internal entry point.
;		During a Write call, the device number is compared to
;		the .CONSOLE device number and, if they match, the write
;		call to the driver is dispatched directly to the driver's
;		internal entry point as opposed to going through the
;		device dispatcher.
;
; December 8, 1991 by Greg Branche
;
;		Now that SCM skips the pCount validation if the
;		callers makes a Read or Write call to the
;		Character FST, the FST has to do it for itself.
;		I've changed setup_rw_params to check for a minimum
;		pCount of 4 and return an invalid_pcount error if
;		the caller's parameter contains less than that.
;
;================================================================
;Revisions

fst_header	PROC
		Import	appl_call,system_call

		DC.B	'FST '		
		DC.L	appl_call
		DC.L	system_call
		DC.W	cfst_id
		DC.W	$C000
		DC.W	VersNum			; version number
		DC.W	0
		DC.L	0
		DC.L	0
		DC.L	0
		DC.L	0
		DC.B	13
		DC.B	'Character FST'	
		string	pascal
		DC.B	'Character FST         v04.00' 
		DC.W	0000
		dc.b	'Character FST by Andy Stadler and Rob Turner'
		string	asis
		ENDP

;================================================================
;
;  appl_call
;
;  This is the entry point for application calls.
;
;  Input:       X = Call number * 2
;               Y = Class number * 2
;
;================================================================

appl_call	PROC
		Import	cmd_tbl:data

		phk
		plb
		rep	#$30

		cpx	#max_call+1
		bcs	bad_cmd
		stz	<drvr_blk_size	; Set blk size to zero for char devices

		jmp	(|cmd_tbl-2,x)

;================================================================
;
;  bad_cmd
;
;  An out-of range system call was received.
;
;================================================================

		Entry	bad_cmd
bad_cmd

		lda	#bad_system_call
;		bra	error_exit
; fall into error_exit

;================================================================
;
;  error_exit
;
;  Return to the caller with an error condition.
;
;  Input:       A = Error Code
;
;================================================================

		entry	error_exit
error_exit

		sec
		jml	sys_exit

		ENDP

;================================================================
;
;  system_call
;
;  Entry point for FST system calls.
;
;  Input:       X = Call number * 2
;               Y = Class number * 2
;
;================================================================

system_call	PROC
		Import	sys_tbl:data

		phk
		plb

		cpx	#max_sys+1
		blt	system_call_1
		
		lda	#bad_system_call
		sec
		rtl

system_call_1
		stz	<drvr_blk_size	; Set blk size to zero for char devices
		jmp	(|sys_tbl-2,x)
		ENDP

;================================================================
;
;  block_cmd
;
;  A block-oriented command was received.  This is a character
;  I/O program.
;
;================================================================

block_cmd	PROC

		lda	#not_block_dev
		bra	error_exit
		ENDP

;================================================================
;
;  pcount_error
;
;  A parameter block was received without enough parameters.
;
;================================================================

pcount_error	PROC

		lda	#invalid_pcount
		bra	error_exit
		ENDP

;================================================================
;
;  ok_exit
;
;  Return to the caller after a successful operation.
;
;  OUTPUTS:     A = no_error
;               C = clear
;
;================================================================

ok_exit		PROC

		clc
		lda	#no_error
		jml	sys_exit
		ENDP

		eject
;================================================================
;
;  CFST.DATA
;
;  Data Tables for Character File System Translator.
;
;  Created:     July 08, 1987
;  Modified:    See modification history
;  Author:      Andy Stadler
;
;  Copyright 1987 Apple Computer, Inc.
;  All rights reserved.
;
;================================================================
;
;  Modification history:
;
;  01-Feb-88    ADS     Initial release
;  02-Feb-88    ADS     string_buffer added
;                       dispatch table cleaned up
;
;================================================================



;================================================================
;
;  dispatch_tables
;
;  These are the jump tables used for the various commands.
;
;================================================================

cmd_tbl		Record
		DC.W	block_cmd	; $01 Create
		DC.W	block_cmd	; $02 Destroy
		DC.W	bad_cmd		; $03 no call here
		DC.W	block_cmd	; $04 Change Path
		DC.W	block_cmd	; $05 Set File Info
		DC.W	block_cmd	; $06 Get File Info
		DC.W	bad_cmd		; $07 no call here
		DC.W	block_cmd	; $08 Volume
		DC.W	bad_cmd		; $09 Set Prefix
		DC.W	bad_cmd		; $0A Get Prefix
		DC.W	block_cmd	; $0B Clear Backup Bit
		DC.W	bad_cmd		; $0C Destroy Purge
		DC.W	bad_cmd		; $0D Null
		DC.W	bad_cmd		; $0E Expand Path
		DC.W	bad_cmd		; $0F Alter Dir
		DC.W	do_open		; $10 Open
		DC.W	bad_cmd		; $11 Newline (handled by SCM)
		DC.W	do_read		; $12 Read
		DC.W	do_write	; $13 Write
		DC.W	do_close	; $14 Close
		DC.W	do_flush	; $15 Flush
		DC.W	block_cmd	; $16 Set_mark
		DC.W	block_cmd	; $17 get_mark
		DC.W	block_cmd	; $18 set_eof
		DC.W	block_cmd	; $19 get_eof
		DC.W	bad_cmd		; $1A set_level
		DC.W	bad_cmd		; $1B get_level
		DC.W	block_cmd	; $1C get_dir_entry
		DC.W	bad_cmd		; $1D Reserved
		DC.W	bad_cmd		; $1E Reserved
		DC.W	bad_cmd		; $1F Reserved
		DC.W	bad_cmd		; $20 Get_dev_number
		DC.W	bad_cmd		; $21 get_last_dev
		DC.W	block_cmd	; $22 read_block
		DC.W	block_cmd	; $23 write_block
		DC.W	block_cmd	; $24 format
		DC.W	block_cmd	; $25 erase_disk
		EndR

sys_tbl		Record
		DC.W	do_startup	; $01 Startup
		DC.W	do_shutdn	; $02 Shutdown
		EndR

		eject
;================================================================
;
;  my_data
;
;  Private data area for the CFST.
;
;================================================================

cfst_data	Record

open_devices	DC.L	0000		; 1st vp of a linked list

string_buffer	DS.B	33		; for converting strings

cons_dev_num	ds.w	1		; console device number

cons_dib_ptr	ds.l	1		; console DIB pointer

		ENDP

		eject
;================================================================
;
;  add_dev
;
;  Adds a device to the device list.  Note that there better
;  not be another occurence of this device, because I make no
;  attempt to fish out duplicates.
;
;  Inputs:      A = Device Number
;
;  Outputs:     open_devices = VP of new device
;               cur_dev      = (same)
;               cur_dev_ptr  = Ptr to new device
;               C            = Set if couldn't allocate it
;
;  New Device Initialized to:
;
;               next_dev     = previous first dev (head insertion)
;               dev_num      = new device number
;               open_stat    = 0 (not yet opened)
;
;================================================================

add_dev		PROC
		with   cfst_data

		pha			; remember new dev #
		lda	|open_devices+2	; preserve link
		pha
		lda	|open_devices
		pha

		lda	#dd_size	; get some memory
		jsl	alloc_seg
		bcc	add_device_ok	; ok

		pla			; clean up stack
		pla
		pla
		lda	#out_of_mem
		rts			; error exit

add_device_ok
		stx	<cur_dev	; save the new vp in 2 places
		sty	<cur_dev+2
		stx	|open_devices
		sty	|open_devices+2
		jsl	deref
		stx	<cur_dev_ptr
		sty	<cur_dev_ptr+2

		ldy	#dd_next_dev	; reconnect chain
		pla
		sta	[<cur_dev_ptr],y
		iny
		iny
		pla
		sta	[<cur_dev_ptr],y

		ldy	#dd_dev_num	; store device number
		pla
		sta	[<cur_dev_ptr],y

		ldy	#dd_open_stat	; store new open status
		lda	#0000
		sta	[<cur_dev_ptr],y

		clc			; success exit
		rts
		ENDP

		eject
;================================================================
;
;  find_dev
;
;  Given a device number, see if it is currently open.  We do
;  this by looking for a Dev_Data record with the device number.
;
;  Inputs:      my_dev_num   = Device Number
;
;  Outputs:     cur_dev      = vp of the device record
;               cur_dev_ptr  = pointer to device record
;               prev_dev     = vp of the previous record (0 if 1st device)
;               C            = Set if not found, clear if found
;                              (above fields =0L if not found)
;================================================================

find_dev	PROC
		with	cfst_data

		stz	<prev_dev
		stz	<prev_dev+2

		lda	|open_devices	; any open?
		ora	|open_devices+2
		beq	none_found

		ldx	|open_devices	; setup to check 1st
		stx	<cur_dev
		ldy	|open_devices+2
		sty	<cur_dev+2
		jsl	deref

find_dev_lp
		stx	<cur_dev_ptr	; check device number
		sty	<cur_dev_ptr+2
		ldy	#dd_dev_num
		lda	[<cur_dev_ptr],y
		cmp	<my_dev_num
		beq	dev_found

		lda	<cur_dev	; move to next open device
		sta	<prev_dev
		lda	<cur_dev+2
		sta	<prev_dev+2

		ldy	#dd_next_dev
		lda	[<cur_dev_ptr],y
		sta	<cur_dev
		iny
		iny
		lda	[<cur_dev_ptr],y
		sta	<cur_dev+2
		ora	<cur_dev	; end of list?
		beq	none_found

		ldx	<cur_dev
		ldy	<cur_dev+2
		jsr	deref
		bra	find_dev_lp

none_found
		stz	<cur_dev
		stz	<cur_dev+2
		sec
		rts

dev_found	clc
		rts
		ENDP

		eject
;================================================================
;
;  release_dev
;
;  Removes a closed device from the device chain.  Assumes the
;  device was found using find_dev, i.e. cur_dev, cur_dev_ptr,
;  and prev_dev are all set up.
;
;================================================================

release_dev	PROC
		with	cfst_data

		lda	<prev_dev	; special case if 1st entry
		ora	<prev_dev+2
		bne	normal_remove

		ldy	#dd_next_dev	; remove the 1st item in the list
		lda	[<cur_dev_ptr],y ; by making the 2nd item into
		sta	|open_devices	; the 1st item
		iny
		iny
		lda	[<cur_dev_ptr],y
		sta	|open_devices+2
		bra	dispose_device	; and dump the memory

normal_remove
		ldy	#dd_next_dev	; get the link
		lda	[<cur_dev_ptr],y
		pha
		iny
		iny
		lda	[<cur_dev_ptr],y
		pha

		ldx	<prev_dev	; and connect it one back
		ldy	<prev_dev+2
		jsl	deref
		stx	<cur_dev_ptr
		sty	<cur_dev_ptr+2

		ldy	#dd_next_dev+2	; (restore comes off backwards)
		pla
		sta	[<cur_dev_ptr],y
		dey
		dey
		pla
		sta	[<cur_dev_ptr],y

dispose_device
		ldx	<cur_dev	; and deallocate the memory
		ldy	<cur_dev+2
		jsl	release_seg

		rts
		ENDP

		eject
;================================================================
;
;  setup_rw_params
;
;  Copy the data out of a read or write parameter block and
;  get the fcr.
;
;  INPUTS:      X = Call number x 2
;               Y = Call Class x 2
;
;  OUTPUTS:     my_ref_num              = file reference number
;               drvr_buf_ptr            = user buffer pointer
;               my_req_count            = requested transfer count
;               my_fcr                  = vp of active fcr
;               my_fcr_ptr              = ptr to active fcr
;
;  This call will return to the shell if there is a parameter
;  count error.
;
;================================================================

setup_rw_params	PROC

		sty	<call_class_2	; which class
		tya
		beq	read_params	; 0

		lda	[<param_blk_ptr] ; 1- get pcount
		cmp	#$0004		; at least minimum pCount?
		bcc	@bad_pCount	; no...
		cmp	#$0006		; max pcount + 1
		blt	read_params
@bad_pCount
		brl	pcount_error	; no.

read_params
		lda	[<param_blk_ptr],y
		sta	<my_ref_num
		iny
		iny
		lda	[<param_blk_ptr],y
		sta	<drvr_buf_ptr
		iny
		iny
		lda	[<param_blk_ptr],y
		sta	<drvr_buf_ptr+2
		iny
		iny
		lda	[<param_blk_ptr],y
		sta	<my_req_count
		iny
		iny
		lda	[<param_blk_ptr],y
		sta	<my_req_count+2

;  Get this guy's fcr

;================================================================
;
;  set_fcr_ptr
;
;  On refnum calls, the SCM sets up fcr_ptr with the VP of
;  the corresponding fcr.  Pull that value and convert it
;  to a true pointer 'my_fcr_ptr'.
;
;================================================================
		Entry	set_fcr_ptr
set_fcr_ptr

		ldx	<fcr_ptr
		ldy	<fcr_ptr+2
		jsl	deref
		stx	<my_fcr_ptr
		sty	<my_fcr_ptr+2

		rts

		ENDP

		eject
;================================================================
;
;  store_transfer
;
;  Compute an offset into the parameter block and save the
;  transfer count passed in X.  Used for read and write.
;
;  Note:  Since the minimum pcount for read/write includes
;         the transfer_count position, we don't need to
;         verify before writing into it.
;
;  INPUTS:      A,X                     = transfer count lo, hi
;               call_class_2            = call class x 2
;               param_block_ptr         = ptr to paramter block
;
;  OUTPUTS:     transfer_count field of parameter block contains
;               the transfer count.
;
;================================================================

store_transfer	PROC

		pha			; store 1/2 of xfer ct

		clc			; determine xfer ct position
		lda	<call_class_2	; class 0 - offset 10
		adc	#0010		; class 1 - offset 12
		tay			; offset -> Y

		pla			; get lo word
		sta	[<param_blk_ptr],y
		iny
		iny
		txa			; hi word -> A
		sta	[<param_blk_ptr],y
		rts

		ENDP

		eject
;================================================================
;
;  do_startup
;
;  Initialize the FST.
;
;  Output:      C = clear               (call can't fail!)
;
;================================================================

do_startup	PROC
		with	cfst_data
ConsVersNum	equ	$3000

		stz	|open_devices		; no open devices yet
		stz	|open_devices+2

; Scan the device list looking for the .CONSOLE driver

		stz	<drvr_dev_num		; call the dispatcher directly
		lda	#get_dib_ptr		; get_dib_ptr call
		sta	<drvr_call_num
		stz	<dev_id_ref		; start at device #0 (incremented before use)
@scan_loop
		inc	<dev_id_ref		; bump the device number
		jsl	<dev_dispatcher		; get the DIB pointer
		bcc	@check_info
@not_found
		stz	cons_dev_num		;we don't know where the console driver is
		clc
		rtl

@check_info
		ldy	#dev_id_num		; check the device ID first
		lda	[<drvr_dib_ptr],y
		cmp	#$000A
		bne	@scan_loop		; if not console driver, skip to next device

		ldy	#dev_char		; look at the characteristics
		lda	[<drvr_dib_ptr],y
		and	#%1111101111111111	; doesn't matter whether the name is fixed or not (gab)
		cmp	#$0B60
		bne	@scan_loop		; sorry I don't know this console
		ldy	#slot_num		; check the slot number
		lda	[<drvr_dib_ptr],y
		cmp	#$8003			; fake slot 3
		bne	@scan_loop
		ldy	#unit_num
		lda	[<drvr_dib_ptr],y
		dec	a
		bne	@scan_loop		; we want unit 1
		ldy	#ver_num
		lda	[<drvr_dib_ptr],y	; we can only use version 3 or greater
		and	#$FFF0			; don't care about alpha, beta, or whatever
		cmp	#ConsVersNum
		bcc	@scan_loop

; this particular driver has passed all the tests, so it must be the REAL
; .CONSOLE driver.

		lda	<dev_id_ref		; passed all tests, copy info to
		sta	cons_dev_num		;   private variables
		sta	<drvr_dev_num		; set up for following driver calls
		lda	<drvr_dib_ptr
		sta	cons_dib_ptr
		lda	<drvr_dib_ptr+2
		sta	cons_dib_ptr+2

; Now that we've found the console driver, make an add_trap call to tie into
; the console driver's execution sequence, then a reset_trap to get control during
; a driver call to learn the location of the driver's internal entry point.

;
;Before we can use the console driver we must open it first
;
		lda	#drvr_open
		sta	<drvr_call_num
		
		jsl	dev_dispatcher
		bcs	@not_found		;oops!

;
;Issue a reset_trap call to the console driver.  This will nuke anyone's installed handler
;
		
		stz	<drvr_req_cnt		;zero request count for this call
		stz	<drvr_req_cnt+2
		stz	<drvr_clist_ptr		;no control list for this one
		stz	<drvr_clist_ptr+2
		
		lda	#$8007			;reset trap address
		sta	<drvr_ctrl_code
		
		lda	#drvr_control		;it's a control call
		sta	<drvr_call_num

		jsl	dev_dispatcher		;call the dispatcher
		bcs	@error_close		;oops!
;
;Add in my console driver handling routine.
;
		lda	#$0004			;setup the request count
		sta	<drvr_req_cnt
		stz	<drvr_req_cnt+2
		
		lda	#ctrl_list		;address of control list
		sta	<drvr_clist_ptr
		lda	#^ctrl_list
		sta	<drvr_clist_ptr+2

		lda	#$8006			;Add_Trap address
		sta	<drvr_ctrl_code

		lda	#drvr_control		;it's a control call
		sta	<drvr_call_num

		jsl	dev_dispatcher		;call the dispatcher
		bcs	@error_close		;oops!
;
;Reset the handler again.
; Note:	this call will cause our Trap_Handler to be called, then
;	removed. How's that for trickyness?!?
;				
		stz	<drvr_req_cnt		;zero request count for this call
		stz	<drvr_req_cnt+2
		stz	<drvr_clist_ptr		;no control list for this one
		stz	<drvr_clist_ptr+2
		
		lda	#$8007			;reset trap address
		sta	<drvr_ctrl_code
		
		lda	#drvr_control		;it's a control call
		sta	<drvr_call_num

		jsl	dev_dispatcher		;call the dispatcher

;
; Now we can close the driver again
;
@error_close
		php
		pha				;save error code if any
		lda	#drvr_close
		sta	<drvr_call_num
		jsl	dev_dispatcher
		pla
		plp
		bcc	@all_done
		brl	@not_found
@all_done
		rtl

ctrl_list	dc.l	trap_handler

;====================================================================================================
;trap_handler:	This routine is called directly by the console driver!
;
;Input:         A = call number
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = console driver bank.
;
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = console driver bank
;
;
;====================================================================================================
		longa	on
		longi	on
trap_handler
		Import	Console_Address

		php
		pha
;
;Picture of the stack:
;
;	--------------
;	  A Register    $0001
;	--------------
;	  Process	$0003
;	--------------
;	  Return addr	$0004
;	--------------
;
		sec
		lda	4,s		;get the return address
		sbc	#$0003		;get address of Vector call routine!
		tax
		lda	6,s
		and	#$00FF
		sbc	#$0000
;
;Console_Address jsl	$000000		;call console
;
;		$22 00 00 00
;
		xba			;put bank address in high byte of accum.
		sta	>console_address+2
		txa			;low 16 bits of console address.
		sta	>console_address+1

		pla			;restore A register and flags
		plp
		rtl			;let the call continue please

		ENDP

		eject
;================================================================
;
;  do_shutdn
;
;  Shut down the FST.
;
;  Output:      C = Clear?  gotta check this....
;
;================================================================

do_shutdn	PROC

		clc
		rtl

		ENDP

		eject
;================================================================
;
;  do_open
;
;  This is the entry point for the open command.
;
;  If it's class 0, the device is opened as available,
;  and a refnum is returned.
;
;  If it's class 1, the device is opened per the request
;  access, a refnum is returned, and if there are enough
;  params, the access type is returned.  All other fields
;  are untouched.
;
;  INPUTS:      X = Call Number * 2
;               Y = Class number * 2
;               dev_num = device number (set up by SCM)
;
;================================================================

do_open		PROC
		with   cfst_data

		stz	<req_access	; default=0=open as permitted
		stz	<my_pcount	; disables stores if class 0

		sty	<call_class_2	; which class
		tya
		beq	open_1

		lda	[<param_blk_ptr]
		sta	<my_pcount
		cmp	#$0010		; max pcount + 1
		blt	open_0
		brl	pcount_error

open_0
		cmp	#0003
		blt	open_1		; <req_access specified?
		ldy	#0008
		lda	[<param_blk_ptr],y
		sta	<req_access

;================================================================
;
;  Step 1:  Based on the access (a) requested and (b) allowed,
;           generate an access bits word for this open.
;
;           In addition, I check the driver type.  If its a
;           block device, I must coerce the SCM into more
;           bouncing....  So I return 'File System Not Supported.'
;
;================================================================

open_1
		stz	<drvr_dev_num	; make get_dib_ptr call
		lda	#get_dib_ptr
		sta	<drvr_call_num
		lda	<dev_num
		sta	<drvr_buf_ptr
		jsl	dev_dispatcher
		bcc	got_the_dib

		lda	#file_not_found
		brl	error_exit	; probably bad device number

got_the_dib
		ldy	#8		; address of characteristics
		lda	[<drvr_dib_ptr],y
		and	#$0080		; block dev or char?
		beq	dib_says_char

		lda	#unknown_vol	; bounce!
		brl	error_exit

dib_says_char
		lda	[<drvr_dib_ptr],y ; now check access bits
		asl	a		; xxxxxxxxxWRxxxxx ->
		asl	a		; 00000000000000WR
		asl	a
		xba
		and	#0003
		sta	<dev_access

		lda	<req_access	; did they request 'as available'
		beq	as_avail

		and	#$FFFC		; any other modes requested?
		beq	set_access

		lda	#invalid_access	; yes, they're not supported!
		brl	error_exit

set_access
		lda	<req_access	; ok, take the requested modes
		and	<dev_access
		bra	store_access

as_avail
		lda	<dev_access	; take whatever's available

store_access
		sta	<grant_access
		ldx	<my_pcount	; response requested?
		cpx	#0005
		blt	open_2
		ldy	#0012		; yes, store it
		sta	[<param_blk_ptr],y

;================================================================
;
;  Step 2:  See if we already know this device.  If so, just
;           increment its open_stat.  If not, create a new
;           dev_data and actually open the device.
;
;================================================================

open_2
		stz	<my_open_flag
		lda	<dev_num
		sta	<my_dev_num

		lda	<dev_num	; open the driver
		sta	<drvr_dev_num

		jsr	find_dev	; do we already know it?
		bcc	inc_open

		lda	#drvr_open
		sta	<drvr_call_num
		jsl	dev_dispatcher
		bcc	open_ok
		brl	error_exit

open_ok
		inc	<my_open_flag	; 1 = opened this call
		lda	<dev_num	; create the new device data
		jsr	add_dev
		bcc	inc_open
		pha			; (stack futz, see open_punt)
		brl	punt_2		; can't add!  close the driver.

inc_open				; ; flag of # opens
		ldy	#dd_open_stat
		lda	[<cur_dev_ptr],y
		inc	a
		sta	[<cur_dev_ptr],y

;================================================================
;
;  Step 3:  Create an FCR.  Certain fields will have to be
;           filled in.
;
;================================================================

		ldy	<call_class_2	; class x 2 -> path ptr offset
		iny
		iny

		lda	[<param_blk_ptr],y
		tax			; path ptr -> X,Y
		iny
		iny
		lda	[<param_blk_ptr],y
		tay

		lda	<call_class_2	; class 0 needs conversion
		bne	get_the_fcr

;  convert class 0 string to class 1 string in local buffer

		phy			; source ptr
		phx
		pea	string_buffer>>16 ; dest ptr
		pea	string_buffer
		jsl	cvt_0to1

		ldx	#<string_buffer
		ldy	#^string_buffer

;  insert the new (or the original) string into a new fcr

get_the_fcr
		lda	#my_fcr_length
		jsl	alloc_fcr	; get the fcr memory
		bcc	fcr_ok

		lda	#out_of_mem
		brl	open_punt 

fcr_ok
		stx	<my_fcr		; make a real pointer to it
		sty	<my_fcr+2
		jsl	deref
		stx	<my_fcr_ptr
		sty	<my_fcr_ptr+2

		lda	<dev_num	; fill in the device number
		ldy	#fcr_dev_num
		sta	[<my_fcr_ptr],y

		lda	#cfst_id	; fill in my ID number
		ldy	#fcr_fst_id
		sta	[<my_fcr_ptr],y

		lda	#$FFFF		; 'no associated volume'
		ldy	#fcr_vol_id
		sta	[<my_fcr_ptr],y

		lda	<grant_access
		ldy	#fcr_access
		sta	[<my_fcr_ptr],y	; access

		lda	#0000		; newline starts out disabled
		ldy	#fcr_mask
		sta	[<my_fcr_ptr],y

		ldy	#fcr_ref_num	; return file ref number
		lda	[<my_fcr_ptr],y
		ldy	<call_class_2	; class + 0 = ref # index
		sta	[<param_blk_ptr],y

		brl	ok_exit		; success!

;================================================================
;
;  open_punt
;
;  Some sort of error occurred, probably out of memory.  If
;  this was the first instance of opening the driver, close
;  it before returning the error.
;
;================================================================

open_punt
		ldx	<my_open_flag	; did we just open it?
		beq	go_error

;  this call opened the driver.  Since something along the line
;  failed, we need to close it again.

		pha			; remember the error code

		jsr	find_dev	; seek out the new record
		jsr	release_dev	; and nuke it

;  entry point which just closes (from add_dev failure)

punt_2
		lda	<dev_num	; and close the driver
		sta	<drvr_dev_num
		lda	#drvr_close
		sta	<drvr_call_num
		jsl	dev_dispatcher

		pla

go_error
		brl	error_exit

		ENDP

		eject
;================================================================
;
;  do_read
;
;  This implements the read call.  Basically its a straight-
;  through translation from GS/OS to device-driver format.
;  Newline is implemented at this level, so for optimization,
;  there are two methods used:  If newline is disabled, the
;  entire requested block is transferred by the device.  If
;  newline is enabled, bytes are transferred one at a time
;  until the newline is matched.
;
;  Created:     July 21, 1987
;  Modified:    November 4, 1987
;  Author:      Andy Stadler
;
;  Copyright (C) 1987 Apple Computer, Inc.
;  All Rights Reserved.
;
;  INPUTS:      X =     Call number x 2
;               Y =     Call Class x 2
;               Param_Block containing:
;                       Reference #
;                       Buffer Pointer
;                       Request Count
;
;  OUTPUTS:     C = clear if no error, set if error
;               A = Error Code
;               Param_Block with response:
;                       Transfer Count
;
;  Possible Errors:
;               $23     Driver not open
;               $27     IO Error
;               $2F     Off-line error
;               $4E     Access error (not read-enabled)
;
;================================================================

do_read		PROC

		jsr	setup_rw_params	; get data from param block

;  setup default data for the device driver

		ldy	#fcr_access	; lets check the access please
		lda	[<my_fcr_ptr],y
		and	#read_access	; see if the caller has read access
		bne	@access_ok

		lda	#invalid_access
		sec
		bra	@exit
@access_ok
		ldy	#fcr_dev_num	; get the device number
		lda	[<my_fcr_ptr],y
		sta	<drvr_dev_num

		lda	#drvr_read
		sta	<drvr_call_num

		stz	<drvr_blk_size	; 0 = character mode

;  Split here for newline or raw modes

		ldy	#fcr_mask	; if mask == 0, newline disabled
		lda	[<my_fcr_ptr],y
		bne	newline_read

;  Execute a raw read.  Read the entire requested
;  amount into the user's buffer.

		lda	<my_req_count	; read full amount
		sta	<drvr_req_cnt
		lda	<my_req_count+2
		sta	<drvr_req_cnt+2
		jsl	dev_dispatcher
@exit
		pha			; save error status
		php

		lda	<drvr_tran_cnt
		ldx	<drvr_tran_cnt+2
		jsr	store_transfer	; return transfer count

		plp			; get the error status
		pla
		bcc	ok_read_1

		brl	error_exit	; quit with error code

ok_read_1
		brl	ok_exit

;  Execute a newline read.  We must read characters from the
;  device driver one-at-a-time into the destination buffer.
;  Then we compare them with the newline data.  If the newline
;  character is found, terminate the read operation.

newline_read
		ldy	#fcr_newline	; get the newline data
		lda	[<my_fcr_ptr],y
		tax
		iny
		iny
		lda	[<my_fcr_ptr],y
		tay
		jsl	deref		; make a pointer
		stx	<newl_buf_ptr
		sty	<newl_buf_ptr+2

		ldy	#fcr_mask	; get mask
		lda	[my_fcr_ptr],y
		and	#$00FF		; make sure hi byte is 0's!!!!
		sta	<my_newl_mask

		ldy	#fcr_newline_len ; get count
		lda	[my_fcr_ptr],y
		sta	<my_newl_count

		stz	<my_trans_count
		stz	<my_trans_count+2
		lda	#0001		; read 1 at a time
		sta	<drvr_req_cnt
		stz	<drvr_req_cnt+2

;  loop here reading one character at a time

read_lp
		jsl	dev_dispatcher
		bcc	read_ok

		pha			; read error!
		php

		lda	<my_trans_count
		ldx	<my_trans_count+2 ; read stopped by error
		jsr	store_transfer

		plp
		pla
		brl	error_exit

read_ok
		inc	<my_trans_count	; are we full yet?
		bne	read_ok_1
		inc	<my_trans_count

read_ok_1
		lda	<my_trans_count
		cmp	<my_req_count
		bne	read_ok_2

		lda	<my_trans_count+1
		cmp	<my_req_count+1
		beq	q_read

read_ok_2
		lda	[<drvr_buf_ptr]	; take a look at the character
		and	<my_newl_mask	; (removing bits of next char)
		pha
		ldy	<my_newl_count

newline_lp
		dey
		lda	[<newl_buf_ptr],y ; packed byte array
		and	#$00FF
		cmp	1,s
		beq	hit_newline
		tyx
		bne	newline_lp

		pla			; no, not end of line.
		inc	<drvr_buf_ptr	; move to next char position
		bne	read_lp
		inc	<drvr_buf_ptr+2
		bra	read_lp		; and keep reading.

hit_newline
		pla			; trash work value

q_read
		lda	<my_trans_count
		ldx	<my_trans_count+2
		jsr	store_transfer

		brl	ok_exit
		ENDP

		eject
;================================================================
;
;  do_write
;
;  Handles the write command for the character file system
;  translator.  Simply reprocesses the command into a device
;  driver format and lets the device driver do the work.
;
;  Created:     July 22, 1987
;  Modified:    November 4, 1987
;  Author:      Andy Stadler
;
;  INPUTS:      X =     Call number x 2
;               Y =     Call Class x 2
;               Param_Block containing:
;                       Reference #
;                       Buffer Pointer
;                       Request Count
;
;  OUTPUTS:     C = clear if no error, set if error
;               A = Error Code
;               Param_Block with response:
;                       Transfer Count
;
;  Possible Errors:
;               $23     Driver not open
;               $27     IO Error
;               $2B     Write protected
;               $2F     Off-line error
;               $4E     Access error (not write-enabled)
;
;================================================================

do_write	PROC
		entry	Console_Address
		with	cfst_data

		jsr	setup_rw_params	; get info from param block

		ldy	#fcr_access	; lets check the access please
		lda	[<my_fcr_ptr],y
		and	#write_access	; see if the caller has write access
		bne	@access_ok

		lda	#invalid_access
		sec
		bra	exit
@access_ok
		lda	#drvr_write
		sta	<drvr_call_num

		stz	<drvr_blk_size	; 0 = character mode

		lda	<my_req_count	; write full amount
		sta	<drvr_req_cnt
		lda	<my_req_count+2
		sta	<drvr_req_cnt+2

		ldy	#fcr_dev_num	; get the device number
		lda	[<my_fcr_ptr],y
		sta	<drvr_dev_num
		cmp	cons_dev_num	; is it the console driver?
		beq	@call_console	; yes, call the driver directly

		jsl	dev_dispatcher	; write the data
		bra	exit

@call_console
		lda	cons_dib_ptr	; copy the dib pointer to direct page
		sta	<drvr_dib_ptr
		lda	cons_dib_ptr+2
		sta	<drvr_dib_ptr
		lda	#drvr_write	; call # must be in accumulator
		phb			; drivers are allowed to modify DBR
Console_Address	jsl	$000000		; call console (address is filled in at startup
		plb

exit
		pha
		php			; remember the error status

		lda	<drvr_tran_cnt
		ldx	<drvr_tran_cnt+2
		jsr	store_transfer	; return transfer count

		plp
		pla
		bcc	write_ok

		brl	error_exit	; exit with error status

write_ok
		brl	ok_exit
		ENDP

		eject
;================================================================
;
;  do_close
;
;  Attempt to close the specified refnum.  If the device is
;  multiply open, simply decrement the open_stat flag in its
;  dev_data record, and scrap the fcr.  If it's really closing,
;  issue a drvr_close call.
;
;  INPUTS:      X = Call Number * 2
;               Y = Class number * 2
;
;  POSSIBLE ERROR CODES:
;
;  $27 drvr_io_error
;
;================================================================

do_close	PROC

		tyx			; test for max pcount
		beq	close_0
		lda	[<param_blk_ptr]
		dec	a		; must = 1
		beq	close_0
		brl	pcount_error

close_0
		jsr	set_fcr_ptr

		lda	[<my_fcr_ptr]	; ref # is 1st entry
		sta	<my_ref_num

		ldy	#fcr_dev_num	;get device # from fcr
		lda	[<my_fcr_ptr],y
		sta	<my_dev_num

		ldy	#fcr_mask	; if newline data, release it
		lda	[<my_fcr_ptr],y
		beq	close_1

		ldy	#fcr_newline	; kill the newline buffer
		lda	[<my_fcr_ptr],y
		tax
		iny
		iny
		lda	[<my_fcr_ptr],y
		tay
		jsl	release_seg

close_1
		lda	<my_ref_num	; kill the fcr
		jsl	release_fcr

		jsr	find_dev
		ldy	#dd_open_stat	;how many opens?
		lda	[<cur_dev_ptr],y
		dec	a
		sta	[<cur_dev_ptr],y ;if other opens,
		bne	sk_close	;don't close the device

;  This is the last close for this device, remove its
;  device info record and issue a close call.

		lda	<my_ref_num
		jsr	release_dev	; remove my device record

		lda	<my_dev_num	;close the device
		sta	<drvr_dev_num
		lda	#drvr_close
		sta	<drvr_call_num
		jsl	dev_dispatcher
		bcc	sk_close

		brl	error_exit

sk_close
		brl	ok_exit		; all done!
		ENDP

		eject
;================================================================
;
;  do_flush
;
;  Sends the flush command to the device driver, if that device
;  is open.
;
;  Inputs:      X = Call number x 2
;               Y = Class number x 2
;
;  Outputs:     A = error code
;               C = clear if ok, set if error
;
;  Error Codes:
;
;  $27          not open (someone else closed the device)
;  $2F          off line
;
;================================================================

do_flush	PROC

		tya			; check class
		beq	params_ok

		lda	[<param_blk_ptr]
		dec	a		; pcount must = 1 or 2
		beq	params_ok
		dec	a		; pcount of 2 now allowed 3/27/90
		beq	params_ok	; by Monte Benaresh
		brl	pcount_error

params_ok
		lda	[<param_blk_ptr],y
		sta	<my_ref_num

		jsr	set_fcr_ptr

		ldy	#fcr_dev_num	; get device number
		lda	[<my_fcr_ptr],y
		sta	<drvr_dev_num

		lda	#drvr_flush	; send command to driver
		sta	<drvr_call_num
		jsl	dev_dispatcher
		bcc	flush_ok

		brl	error_exit	; send the error through

flush_ok
		brl	ok_exit
		ENDP
		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/FSTs/DOS3.3/DOS.FST.Identifiers b/IIGS.601.SRC/GS.OS/FSTs/DOS3.3/DOS.FST.Identifiers
new file mode 100644
index 0000000..3c19eb3
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/FSTs/DOS3.3/DOS.FST.Identifiers
@@ -0,0 +1 @@
+***********************************************************************************************
*                                                                                             *
*	DOS 3.3 File System Translator for GS/OS(TM)                                          *
*                                                                                             *
*	Copyright Apple Computer Inc. 1988  ALL RIGHTS RESERVED                               *
*                                                                                             *
*       Identifiers and records.                                                              *
***********************************************************************************************


			;definitions of os data structures

		dsect 0			;vcr
vcr_id		word
vcr_name	long
vcr_status	word
vcr_open_cnt	word
vcr_fst_id	word
vcr_dev		word
;	fst-specific info here
vcr_buf_vp	long			;vp to directory sectors buffer
vcr_cat_sec_count	word		;number of catalog sectors

vcr_size	block 0


		dsect 0			;fcr structure
fcr_ref_num	word
fcr_path_name	long
fcr_fst_id	word
fcr_vcr_id	word
fcr_level	word
fcr_newline	long
fcr_newline_len	word
fcr_mask	word
fcr_access	word
;	fst-specific info here
fcr_buf_vp	long			;vp to info sector buffer
fcr_eof		long
fcr_aux		word
fcr_mark	long
fcr_type	word			;GS/OS filetype
fcr_dos_type	word			;old DOS 3.3 filetype
fcr_blks_used	long
fcr_entry_num	block 0			;for a directory file, number of current valid entry
fcr_cat_sec	word			;number of the directory sector in which the file'sÉ
					;Éfde resides
fcr_fde_num	word			;number of the fde entry within the directory sector
fcr_tot_ent	block 0			;for a directory file, the total # of active entries
fcr_data_sect	word			;track/sector presently in high page of buffer

fcr_size	block 0


			;storage on direct page for the ENTIRE FST
			;fst's share the space $80-$D3 on the GS/OS(TM) direct page.

		dsect $80
gen_buf_ptr	long
volname_buf_ptr	long
vcr_ptr		long
vol_buf_ptr	long
fcr_ptr		long
old_fcr_ptr	long
fcr_buf_ptr	long
fcr_name_ptr	long
str1_ptr	long
str2_ptr	long
fde_ptr		long
namegen_ptr	word
src_scratch	block 0		;shared with ptr1
ptr1		long
file_name_ptr	word
user_ptr	long
vol_name_ptr	word
nl_list_ptr	long
nl_msk		word
nl_char		word
fill_tabl	word
clear_ctr	word

direct_end	block 0		;dummy end marker

	if direct_end < $D5 goto .ok
	aerror '### ERROR: Direct page storage overflow'
.ok	anop
			;structures native to the DOS 3.3 disk format

		dsect 0		;fde entry
fde_ts_link	word
fde_type	byte
fde_name	block 30
fde_sec_used	word

fde_len		block 0

		dsect 0		;track/sector list sector
		block 1		;not used
ts_link		word
		block 2		;not used
ts_sec_offset	word
		block 5		;not used
ts_list_start	block 0


		dsect 0		;vtoc
		block 1		;not used
vtoc_cat_link	word		;track/sector of 1st directory sector
vtoc_dos_rel	byte		;DOS release number
		block 2		;not used
vtoc_vol_num	byte		;volume number
		block 32	;spares--not used
vtoc_max_ts	byte
		block 8		;not used
		block 2		;allocation algorithm bytes
		block 2		;not used
vtoc_tracks	byte		;tracks per diskette
vtoc_sectors	byte		;sectors per track
vtoc_bytes_sec	word		;number of bytes per sector
vtoc_bitmap	block 0		;start of the vtoc bitmap


base_fde	equ $B		;offset to 1st fde in a catalog sector
max_fde		equ 7		;7 fde's in a catalog sector



		;constants used by the fst

my_id		equ 2		;fst id
cat_strt_off	equ $100	;offset to 1st catalog sector in the general buffer
alpha_len_limit	equ 15		;longest alpha part of generated disk name
namegen_mask	equ $7F		;just in case we don't like some of the bits in ROM names
namegen_limit	equ $C0		;boundry ASCII value for terminator characters
gen_buf_size	equ $100 * 16	;buffer for 16 disk sectors
;vol_buf_size	equ $100 * 2	;buffer for vtoc & 1st catalog sector
file_buf_size	equ $100 * 2	;buffer for 2 "info" sectors
name_buf_len	equ 50
max_cat_sec	equ 15		;maximum # of directory sectors to read in
access_locked	equ $01		;equivalent GS/OS access value for a locked DOS file
access_unlocked	equ $C3		;equivalent GS/OS access value for an unlocked DOS file
storage_type	equ $0001	;GS/OS storage type for all DOS 3.3 files
vol_max_char	equ 20		;maximum number of characters in a volume name
fn_max_char	equ 30		;maximum number of characters in a filename
move_info_be	equ 100		;break-even point for moving bytes by hand rather thanÉ
				;Éwith move_info
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/FSTs/DOS3.3/DOS.FST.storage b/IIGS.601.SRC/GS.OS/FSTs/DOS3.3/DOS.FST.storage
new file mode 100644
index 0000000..8a91864
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/FSTs/DOS3.3/DOS.FST.storage
@@ -0,0 +1 @@
+*****************************************************************************************
*											*
*	DOS 3.3 File System Translator for GS/OS(TM)					*
*											*
*	Copyright Apple Computer Inc. 1989  ALL RIGHTS RESERVED				*
*											*
*       Storage Areas									*
*											*
*****************************************************************************************



		;misc storage locations used by the fst

gen_buf_vp	ds.l 1
supposed_dev	ds 1
valid_vcr	ds 1
file_name_mark	ds 1
old_fcr		ds 1
fcr_index	ds 1
cat_sec_count	ds 1
cmp_mask	ds 1
cat_index	ds 1
fde_index	ds 1
class		ds 1
p_cnt		ds 1
vol_name_vp	ds.l 1
info_state	ds 1
data_offset	ds 1
nl_len		ds 1
r_cnt		ds.l 1
endmark		ds.l 1
phys_mark	ds 1
ts_num		ds 1
d_sect_off	ds 1
data_sect	ds 1
bytes_left	ds.l 1
sec_start	ds 1
byte_cnt	ds 1
recent_xfer	ds 1
mark		ds.l 1
req_cnt		ds.l 1
sec_num		ds.l 1
sec_end		ds 1
bytes_sent	ds.l 1
dbr_word	ds 1		;dbr in low byte, 0 in high byte
last_data_sec	ds 1		;last data sector read in by find_eof
temp_vp		ds.l 1		;vp for temporary buffer
gbuf_ptr	ds.l 1		;pointer to 1K system general buffer
text_flag	ds.w 1		;flag for TEXT file read mode, 0 = as-is,É
				;É1 = clear high bits
vcr_fcr_flags	ds.w 1		;bit 15 = VCR allocated during this call
				;bit 14 = FCR allocated during this call
				;these flags are read if an error occurs during the OPEN callÉ
				;Éso that any allocated structures may be released on abort
vol_buf_vp	ds.l 1		;vp to VCR buffer
error_priority	ds.w 1		;error priority for bouncing errors; zero indicates not my disk
p_max_cnt	ds 1		;maximum pcount for this call
p_min_cnt	ds 1		;minimum pcount for this call

		;these buffers are too small to justify dynamic memory allocation:
name_buf	ds.b name_buf_len
file_buf	ds.b name_buf_len
vol_name_buf	ds.b name_buf_len
scratch_str_buf	ds.b name_buf_len


		export global_params
;		export g

global_params	PROC  EXPORT		;this is put into table format for the fill_param routine

	EXPORT g	
g				;use this label in the table expression because it's easierÉ
				;Éto read (and to type).

	EXPORT dir_cnt	
dir_cnt		ds 1
	EXPORT dos_type	
dos_type	ds 1
	EXPORT os_type	
os_type		ds 1
	EXPORT access	
access		ds 1
	EXPORT aux_type	
aux_type	ds 1
	EXPORT eof	
eof		ds.l 1
	EXPORT blks_used	
blks_used	ds 1
	EXPORT entry_num	
entry_num	ds 1
	EXPORT stor_type	
stor_type	dc.w storage_type	;keep a copy in memory for fill_param
	EXPORT fst_id	
fst_id		dc.w my_id		;keep a copy in memory for fill_param
	EXPORT null	
null		dc.w 0

		ENDP
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/FSTs/DOS3.3/DOS3.3.FST b/IIGS.601.SRC/GS.OS/FSTs/DOS3.3/DOS3.3.FST
new file mode 100644
index 0000000..e0874b2
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/FSTs/DOS3.3/DOS3.3.FST
@@ -0,0 +1 @@
+	print nohdr
***********************************************************************************************
*                                                                                             *
*	DOS 3.3 File System Translator for GS/OS                                              *
*                                                                                             *
*	Copyright Apple Computer Inc. 1988-1992  ALL RIGHTS RESERVED                          *
*                                                                                             *
*                                                                                             *
***********************************************************************************************


*******	REVISION HISTORY:	***************************************************************
*
*	August 15, 1988	Monte Benaresh
*
*		Created this file and entered basic directives, includes, etc.
*		At this point the preliminary ERS, version 0.1, is about to be
*		released.
*
*		Much of this file is based on the source for the ProDOS FST by
*		Rob Turner.
*
*	October 27, 1988 Monte Benaresh
*
*		All the code needed for the OPEN call is essentially completed.
*		Ported dispatch "shell" routines from the ProDOS FST v02.00.
*		Existing source assembles, and code is about to be set up
*		for testing under the GS/OS exerciser.
*
*	November 17, 1988 Monte Benaresh
*
*		The OPEN, VOLUME, and GET_FILE_INFO calls are now functional and
*		the Finder will mount DOS 3.3 disks.
*
*	August 13, 1989 Monte Benaresh
*
*		All calls are now implemented, and the FST is just a few hours away
*		from being called Alpha.
*
*	August 14, 1989 Monte Benaresh
*
*		Projectorized the source and created a makefile.
*
* 1.0 d17
* 10/08/90	CAF	Changed the code in match_vcr to increment the vcr open count before
*			trying to read in some blocks from the disk.  I did this because SCM
*			was throwing out the VCR when it got the disk_switched error from the
*			appledisk5.25, so an FCR would be created with a link to no VCR - when
*			you tried to close the FCR, SCM would die.  Fixed following bugs:
*				EDS213WMP - changed flush to check for pcount max = 2.
*				EDS212WMP - changed parameter table to not include pcount as a parm.
*				EDS205WMP - uncommented some existing code which fixed it.
*				EDS207WMP - added a check for the resource_num parameter.
*				EDS208WMP - fixed by match_vcr addition.
*				EDS209WMP - fixed by EDS207WMP fix.
*				EDS210WMP - changed code in open to preserve error number.
*				EDS211WMP - fixed by commenting out code which copied old fcr
*					    into new fcr in open call.
*				EDS222WMP - changed gfi to put total_blocks into aux_type for c0.
*
* 1.0 d18
* 10/15/90	CAF	Fixed Bugs:
*				EDS224WMP - Changed read code to skip the high bit stripping for dirs.
* 10/17/90	CAF	Fixed Bugs:
*				APG209WMP - Volume call was getting a $2C error because of a request
*					    count to the driver of $100, I changed this to a bouncing
*					    error.
*				EDS226WMP - Same fix as APG209WMP
*				EDS215WMP - The newline code for a single char was transferring the
*					    data backwards, so I changed the loop to go forwards.  Also
*					    the local transfer count was not being returned correctly.
*				EDS214WMP - The local transfer count in newline was not being returned
*					    correctly (it was being returned as 0), so the fst would
*					    sit and spin forever because the request_count was never met.
*
* 1.0 d19 - Beta Candidate
* 11/02/90	CAF	Fixed Bugs:
*				LYP225LWA - Changed volume size constants used in volume_s to correct values.
*				LYP226LWA - Changed class 0 version of volume_s to not divide free block
*					    count by 2.
*				LYP227LWA - Changed parse_path to check for a class 0 separator as well
*					    as a class 1 separator at the start of the pathname.
*				LYP229LWA - Changed class 0 getfileinfo to check to see if the file is a directory
*					    before stuffing the total_blocks into the aux_type.
*
* 1.0 d20 - Beta Candidate
* 11/06/90	CAF	Fixed Bugs:
*				LYP227LWA - removed addition to parse_path added on 11/02/90, and changed
*					    get_dev_num_s to check for a duplicate volume error and mask it
*					    into a volume not found error.
*				LYP230LWA - changed open to zero out the resource_blocks field.
*
* 1.0 d21 - Beta Candidate
* 11/06/90	CAF	Fixed Bugs:
*				LYP231LWA - changed open_setup to check to see if a volume is a dos
*					    volume and that it is online before trying to create a vcr
*					    for it.
*				LYP228LWA - same as 231.
*			Completely rewrote most of open_setup because the algorithm used in finding
*			volumes and building vcr's was not handling the operation correctly.
*			Fixed a bug in find_vol_online where it was not returning a vol_not_found
*			error and so the call would not bounce to other fsts.
*			Fixed get_dir_entry to update the vcr_dev if the disk moves.
*			Fixed a bug in get_dir_entry where the drvr_dev_num was not being setup if the end_of_dir
*			had been reached, so a subsequent get_last_dev call would not work correctly.
*				
* 1.0 d22 - Beta Candidate
* 11/09/90	CAF	Fixed a bug in parse_path where it was executing 16 bit code in 8 bit mode.
*			Fixed a bug in open_setup where I was not setting up a pointer before a call, and
*			so the fst was getting confused enough to cause SCM to commit hari-kari.
*				LYP237LWA - Fixed a bug in open_setup that was causing vcrs to be dumped.
*
* 1.0 d23
* 11/28/90	CAF	Fixed Bugs:
*				LYP243LWA - changed newline code to strip the high bits off of text
*					    file data during xfer.
*				LYP248LWA - changed some 8/16bit A errors in newline read.
*				LYP247LWA - same as LYP248LWA
*				LYP245LWA - same as LYP248LWA
*				LYP246LWA - same as LYP248LWA
*				LYP238LWA - changed pblock copy data to null out the blocks_used field.
*				LYP241LWA - changed get_dir_entry to check for out of range values
*					    when base = 2.
*
* 1.0 d24
* 12/06/90	CAF	Fixed Bugs:
*				LYP249LWA - Fixed a bug in read where it wasn't taking into account
*					    the data_offset into a file.
*				LYP252LWA - same as 249.
*				LYP250LWA - Fixed a bug in newline_read where it wasn't using
*					    long index registers during the newline compare, and
*					    so any multiple of $100 would give a length of $00.
*			Fixed a bug where newline mode with > 1 char would not work on text files.
*
* 1.0 d25
* 12/07/90	CAF	Changed volume_s to output the volume name on a dup_vol error.
*
* 1.0 d26
* 12/18/90	CAF	Fixed Bugs:
*				LYP254LWA - changed open to not output blocks_used parameter.
*				LYP255LWA - changed allocate_vcr to allow the starting search
*					    device (supposed_dev) to be setup by the caller.
*
* 1.0 d27
* 12/19/90	CAF	Fixed Bugs:
*				LYP256LWA - changed open to special case the directory file.
*				LYP257LWA - changed gfi to special case a class 1 call on a directory.
*				LYP258LWA - changed not_supported2 and not_supported to return drvr_wr_prot.
*				LYP259LWA - changed not_supported2 and not_supported to return drvr_wr_prot.
*				LYP260LWA - changed not_supported2 and not_supported to return drvr_wr_prot.
*				LYP261LWA - changed not_supported2 and not_supported to return drvr_wr_prot.
*				LYP262LWA - changed not_supported2 and not_supported to return drvr_wr_prot.
*				LYP263LWA - changed not_supported2 and not_supported to return drvr_wr_prot.
*
* 1.0 b01
* 12/19/90	CAF/JEV	Fixed a bug that was causing a vcr to be thrown out during a gfi call.
*			Added "support" for judge_name call ($07).
*
* 1.0 b02	jev	Changed how volume names are generated.  It was felt that just 'DOS 3.3 Vxxxx' was
*			all that was needed.
*
* 1.0 b03	jev	Fixed Bug:
*				BGK053LWA - changed error code from a $60 to $4A
* 3/31/91	jev	changed vol_not_found error to unknown vol error if we try to access any
*			other device other than an 5.25.
* 3/31/91	jev	fixed problem with checking for correct pcount.
* 3/31/91	jev	added error priority support.  Added new flags in FST header
*			to indicate apple format and read-only fst.
* 8/18/91	jev	Fixed Bug:
*				86672 - add check in parsepath to check for path2 to see if
*				it exsists or is too long even though we don't use it 
*				because we con't do a changepath.  But we need to be a 
*				good FST and return $40 instead of a $45 if the path is bad.
* 8/19/91	jev	Fixed Do_Option_list.  Was not setting up the length of the data.
* 8/21/91	jev	Changed max-pcnt for Judename call to 6.  Fixes a bug reported by 
*			developer in which DOS3.3 returns a bad pcount error instead of an
*			invalidFSTop for a judeName call.
*
* 9/18/91	jev	fixed open call to resource fork.  Any open call to a resource fork
*			passed to this fst would return res_not_found error even the destination
*			volume was not a DOS 3.3 volume.  Moved this check to after the destination
*			was located because this is a non-bouncing error and we don't want to return
*			this error unless the destination belongs to us.
*
* 9/19/91	jev	Fixed Bug:
*				86425 - open call with invalid access to any target would return
*				invalid access even if the target was not a DOS 3.3 file.
*				Moved access check to after the destination was located as above.
*
* 11/19/91	GAB	Fixed occurances of returning VolumeNotFound errors when that
*			particular error shouldn't be returned.  (Confuses SCM's error
*			priority logic.)
*
*			Changed device_id routine so that it no longer performs a Status
*			call to the device driver simply to have the dispatcher set the
*			DIB pointer on direct page.  The dispatcher has a call that will
*			perform this service without getting the driver involved.
*
* 12/05/91	GAB	Change maximum allowable pCount for ChangePath call to 3.
*
* 01/08/92	GAB	Fixed READ call to properly initialize fde_ptr before it tries
*			to use it.  It was using an invalid pointer when it tried to
*			retrieve the first track/sector list location out of the
*			directory entry.
*
*			Fixed READ call to decrement the destination pointer after
*			moving an odd number of bytes out of the sector buffer.  When
*			moving an odd number of bytes, it moved the first byte, then
*			incremented the destination pointer and performed the remainder
*			of the move 2 bytes at a time.  Once it had moved the remainder
*			of the sector buffer to the caller's buffer, it was adjusting
*			the destination pointer by the number of bytes moved (which
*			skipped one byte, due to the initial increment).  It was then
*			going back to read the next sector to finish the call, but
*			using the invalid (off-by-one) destination pointer.
*
*			Changed 'brl' instructions to 'bra' wherever possible
*
* 02/07/92	MSD	Changed version number to 01.00 (final).
*
* 02/19/92 - Monte Benaresh
*			Added code to the OPEN call to zero-out the resource_eof field
*			when the param is active, and changed to param copy tables for
*			GET_DIR_ENTRY and GET_FILE_INFO to zero out the resource_eof
*			and resource_blocks fields when those params are active.
*
* 19-Feb-92 Dave Lyons
*			Rolled version to $0101 and v01.01 for Monte's change.
*
* 02/20/92 - Monte Benaresh
*			Fixed problem in find_eof with 0-length text files.
*			Bumped version to 1.02.
*
***********************************************************************************************
*
* BEGIN 6.0.1
*
* 26-May-92 Dave Lyons for 6.0.1
*
* Try changing name to "Apple II DOS 3.3" instead of just "DOS 3.3", to avoid
* confusion with MS-DOS.
*
* 7-Nov-92 DAL with jcm, version 1.3d12
*
* Added an entry to the end of fcr_to_pblk so that Open will stop when pcount is 15 instead
* of trashing a variable amount of memory past the end of the parameter block.
*
*
* 2-Apr-93 SS -- Changed version to $0103 for 6.0.1 (final)
*
* 5-May-93 DAL -- for 6.0.1d17
*
* Handle zero-length filenames like deleted directory entries, because the Finder
* gets really confused on a zero-length name, and it doesn't make much sense to
* begin with.  Some DOS 3.3 disks have zero-length filenames to make the catalog
* look pretty.
*
***********************************************************************************************

	machine M65816
	string asis

	print off
	
	include 'my.all.macros'
	include 'm16.debug'
	;load 'C.Floor:MPW:aiigsincludes:my.cmn.d'
	include 'my.common.equ'
	include 'param.records'
	include 'DOS.FST.identifiers'

	print on

;======================================================================
;Below is the FST header definition used by GS/OS at boot time
;
;This PROC was adapted directly from the ProDOS FST v02.00 by Rob Turner
;
;======================================================================

		
		EXPORT	fst_header	
fst_header	PROC
		import appl_call
		import system_call
		EXPORT	code_start
code_start            

		DC.B	'FST '		;Says I'm an FST
		DC.L	appl_call	;Process a normal application call
		DC.L	system_call	;Process an FST system call
		DC.W	my_id		;ID number (DOS 3.3) = $02
		DC.W	$1803		;don't uppercase pathnames, not formattable, strip high bit(?).
					;read-only,apple II format
		DC.W	$0103		;Version 1.03 final
		DC.W	256		;block size
		DC.L	560		;Max Blocks (140K)
		DC.L	32		;Min Blocks-need at least 2 tracks.
		DC.L	$FFFFFFFF	;max file size in bytes.
		DC.L	$0000		;reserved
		DC.B	@n_end-@n_strt	;length of next field
@n_strt		DC.B	'Apple II DOS 3.3'	
@n_end
		dc.b	@c_end-@c_strt	;length of comment
@c_strt		DC.B	'DOS 3.3 FST           v01.03'
					;comment field
@c_end
		DC.W	0000		;reserved field
		dc.b	'DOS 3.3 FST. Written by Monte Benaresh, maintained by Cary '
		dc.b	'Farrier and Jack Valois.  Tested by Linda Pan.  '
		dc.b	'Copyright 1992 Apple Computer'


		ENDP

		print off
	include 'DOS.FST.storage'
		print on

open_s		PROCNAME		;shell for open call

		import open

		stz error

		jsl lock_mem
		
;	No need to check for the p_count here anymore.  It is all done
;	at the app entry point now.
;
;check_pcount
;		lda class		;get the class of the call
;		beq @class0		;if class 0, no pcount

;		lda p_cnt
;		cmp #open1.pmax
;		bcc @class0
;		lda #invalid_pcount	;too big
;		sta error
;		bra exit
;@ok

; moved these checks into open call.  we need to check to see if this
; is a DOS3.3 volume first before we return a non-bouncing error
; 							9/17/91	JEV

;@check_access
;		cmp #4			;enough parameters for request_access?
;		bcc @class0		;no, can't check it
		
;		ldy #open1.request_access
;		lda [param_blk_ptr],y	;get the request access word
;		and #%0000000000000010	;check for write access
;		beq @ok0		;no write access
		
;		lda #invalid_access
;		sta  error
;		bra exit
;@ok0					; opening resource fork?
;		bra @class0
;
;		lda  p_cnt
;		cmp  #5
;		bcc  @class0		; pcount too small ->
		
;		ldy  #open1.resource_number
;		lda  [<param_blk_ptr],y
;		beq  @class0		; ok ->
		
;		cmp  #1			; == 1?
;		beq  @class0		; ok ->
;		bne  @range_err		; no ->
		
;
;		lda  #res_not_found
;		sta  error
;		bra  exit

;@range_err	lda  #parm_range_err
;		sta  error
;		bra  exit
		
@class0
		jsr open

		sta error		;save error

		lda gen_buf_vp
		tax
		ora gen_buf_vp+2
		beq @skip3

		ldy gen_buf_vp+2
		jsl release_seg
@skip3
exit
		;brk $22
		jsl unlock_mem

		lda error		;restore error
		cmp #1			;set carry accordingly
		bcc @noErr
		
		ora error_priority
@noErr

		;brk $11

		jml sys_exit

error		ds.w 1			;temp storage for error code

		ENDP


volume_s	PROC			;shell for volume call

		import volume
		import free_sectors
		import load_cat_secs
		import match_vcr
		import allocate_vcr
		import device_id

		;stz gen_buf_vp		;this is now done on entry
		;stz gen_buf_vp+2
		stz vcr_fcr_flags	;init flags

		;brk $13

		jsl lock_mem
		jsr device_id		; we're looking for a device_id of $00
		bcs err_done
		beq @device_ok
		lda #unknown_vol	; not a 5.25' drive return a bouncing error
		bra err_done
@device_ok
		lda class
		beq @class0
@class1
;		lda p_cnt
;		cmp #volume1.pmax
;		bcc @ok1

;		lda #invalid_pcount
;		brl exit
@ok1
		ldy #volume1.vol_name	;copy pointer to direct page
		lda [param_blk_ptr],y
		sta <user_ptr
		iny
		iny
		lda [param_blk_ptr],y
		sta <user_ptr+2
		lda #vol_max_char+4	;check the buffer size
		cmp [user_ptr]
		bcc @ok2

		lda #vol_max_char+1	;this is the size we need
		ldy #$0002		;point to string length field
		sta [user_ptr],y	;let caller know what we need
		lda #buff_too_small
		;pha
		;php
		brl exit
@ok2
		bra get_buffs
@class0
		ldy #volume0.vol_name	;copy pointer to direct page
		lda [param_blk_ptr],y
		sta <user_ptr
		iny
		iny
		lda [param_blk_ptr],y
		sta <user_ptr+2

get_buffs
		lda #vol_name_buf		;get address of this internal buffer
		sta <vol_name_ptr

		lda #gen_buf_size	;let's get some buffer space for the vtoc & directory
		jsl alloc_seg
		bcc @ok
		lda #out_of_mem		;can't get buffer space
		brl done
@ok
		stx gen_buf_vp		;4K buffer used by volume routine
		sty gen_buf_vp+2
		jsl deref
		stx <gen_buf_ptr
		sty <gen_buf_ptr+2

		;lda gbuf_ptr
		;sta <gen_buf_ptr
		;lda gbuf_ptr+2
		;sta <gen_buf_ptr+2

		;brk $A9


		jsr volume
		bcc ok1
@vol_error				;volume identification failed
		cmp #drvr_bad_parm	; bad parameter?
		beq @mask		; yes ->
		cmp #drvr_bad_count	; bad count because of the $100 request count?
		bne err_done		; no, return the error back up ->

@mask		lda #unknown_vol	;translate to bouncing error
err_done	sec
		brl done		;if error, pack up and leave
ok1
		lda #<vol_name_buf		;set up our volume name for other routines
		sta <volname_buf_ptr
		lda #^vol_name_buf
		sta <volname_buf_ptr+2
		
		lda  drvr_dev_num	; look in this device
		sta  supposed_dev
		jsr allocate_vcr
		bcc  have_vcr
		
		cmp  #dup_volume	; duplicate volume error ?
		bne  err_done		; no ->
		
		lda  path_flag		; device name only?
		and  #$4000
		beq  name_out		; yes ->
		
err_bra		lda  #dup_volume	; no ->
		bra  err_done
		
*
* copy the volume name to the output buffer anyways
*
name_out	lda class		;output the volume name
		beq @class0
@class1
		lda (vol_name_ptr)	;get volume name length
		inc a			;account for leading character
		ldy #2			;point to start of g-string
		sta [user_ptr],y	;set the length

		lda <user_ptr
		clc
		adc #$0003		;bump pointer to look at g-string plus room forÉ
					;Éleading '/' or ':'
		sta <user_ptr
		bcc @no_carry
		inc <user_ptr+2
@no_carry
		ldy #$0002		;point to 1st char
		bra @copy_string		;we're now ready to copy

@class0		
		lda (vol_name_ptr)	;get length
		inc a			;account for leading character
		sta [user_ptr]
@copy_string

		sep #%00100000		;work with bytes
		LONGA OFF

		ldy #$0002
@loop
		lda (vol_name_ptr),y
		beq @done		;if we hit a null, that's the end of the volume name
		sta [user_ptr],y
		iny
		bpl @loop		;use bpl so if something weird happens, the most we'llÉ
					;Étrash is 32K!
@done
		rep #%00100000
		LONGA ON

		lda class
		bne @sep1
@sep0
		ldy #1			;point to space for '/'
		lda [user_ptr],y
		and #$FF00		;erase the garbage
		ora #'/'		;place the slash
		sta [user_ptr],y
		
		bra  err_bra		; up ->
		
@sep1		ldy #1			;point to space for ':'
		lda [user_ptr],y
		and #$FF00		;erase the garbage
		ora #':'		;place the colon
		sta [user_ptr],y
		
		bra  err_bra		; up ->
		
****************		
have_vcr
		lda class		;here we go again!
		beq @class0
@class1
		lda (vol_name_ptr)	;get volume name length
		inc a			;account for leading character
		ldy #2			;point to start of g-string
		sta [user_ptr],y	;set the length

		lda <user_ptr
		clc
		adc #$0003		;bump pointer to look at g-string plus room forÉ
					;Éleading '/' or ':'
		sta <user_ptr
		bcc @no_carry
		inc <user_ptr+2
@no_carry
		ldy #$0002		;point to 1st char
		bra copy_string		;we're now ready to copy

@class0		
		lda (vol_name_ptr)	;get length
		inc a			;account for leading character
		sta [user_ptr]
copy_string

		sep #%00100000		;work with bytes
		LONGA OFF

		ldy #$0002
@loop
		lda (vol_name_ptr),y
		beq @done		;if we hit a null, that's the end of the volume name
		sta [user_ptr],y
		iny
		bpl @loop		;use bpl so if something weird happens, the most we'llÉ
					;Étrash is 32K!
@done
		rep #%00100000
		LONGA ON

*
* output the total_blocks and free_blocks
*
		lda class
		bne @class1
@class0
		ldy #1			;point to space for '/'
		lda [user_ptr],y
		and #$FF00		;erase the garbage
		ora #'/'		;place the slash
		sta [user_ptr],y

		ldy #vtoc_sectors	;get # of sector per track
		lda [vol_buf_ptr],y
		and #32
		bne @32a		;there are 32 sectors per track
		lda #$230		;# of 512-byte blocks on 5 1/4 volume
		bra @stor
@32a
		lda #$640		;# of 512-byte blocks on a 3 1/2
@stor
		ldy #volume0.total_blocks
		sta [param_blk_ptr],y
		iny
		iny
		lda #$0000
		sta [param_blk_ptr],y	;zero the high word
		jsr free_sectors
		ldy #volume0.free_blocks
		sta [param_blk_ptr],y
		iny
		iny
		lda #$0000
		sta [param_blk_ptr],y	;zero the high word
		lda #my_id		;FST ID
		ldy #volume0.file_sys_id
		sta [param_blk_ptr],y
		clc			;call successful
		bra done

@class1
		ldy #1			;point to space for ':'
		lda [user_ptr],y
		and #$FF00		;erase the garbage
		ora #':'		;place the colon
		sta [user_ptr],y

		lda p_cnt
		sta param_countdn
		dec param_countdn	;this way we can use bmi
		dec param_countdn	;dev_name
		dec param_countdn	;vol_name
		bmi done
				;now we want total_blocks
		ldy #vtoc_sectors	;get # of sector per track
		lda [vol_buf_ptr],y
		and #32
		bne @32			;there are 32 sectors per track
		lda #$230		;# of sectors on 5 1/4 volume
		bra @store
@32		lda #$640		;# of sectors on a 3 1/2
@store		ldy #volume1.total_blocks
		sta [param_blk_ptr],y
		iny
		iny
		lda #$0000
		sta [param_blk_ptr],y	;zero the high word
		dec param_countdn
		bmi done
				;get blocks free
		jsr free_sectors
		ldy #volume1.free_blocks
		sta [param_blk_ptr],y
		iny
		iny
		lda #$0000
		sta [param_blk_ptr],y	;zero the high word
		dec param_countdn
		bmi done
		lda #my_id		;FST ID
		ldy #volume1.file_sys_id
		sta [param_blk_ptr],y
		dec param_countdn
		bmi done
		lda #$0100		;this is our "block" size
		ldy #volume1.block_size
		sta [param_blk_ptr],y

		clc			;call successful
		lda #0
exit
done		pha
		php

		;jsl unlock_mem
		bcc @no_error		;if no error, let VCR's stay

		bit vcr_fcr_flags	;check whether we alocated a VCR
		bpl @no_vcr		;high bit tells whether VCR was allocated
@cancel_vcr
		ldy #vcr_open_cnt
		lda #$0000
		sta [vcr_ptr],y		;must zero the open count to release it!

		ldy #vcr_id
		lda [vcr_ptr],y		;get ID of the VCR
		jsl release_vcr		;this invokes sys_remove_vol call to this fst
@no_vcr
@no_error
		lda gen_buf_vp		;we may have to release this segment
		tax
		ora gen_buf_vp+2
		beq @skip3

		ldy gen_buf_vp+2
		jsl release_seg
@skip3

		plp
		pla
		bcc @noErr
		
		ora error_priority
@noErr

		;brk $88

		jml sys_exit

param_countdn	ds.w 1			;local countdown var

		ENDP



free_sectors	PROC		;determine the number of free sectors listed in the vtoc
				;vtoc must be at vol_buf_ptr
				;result is in accumulator

		;first set up some looping limits
		ldy #vtoc_sectors	;number of sectors per track
		lda [vol_buf_ptr],y
		and #$00FF		;take low byte
		lsr a
		lsr a
		lsr a
		lsr a			;divide by 16 to get # of words of bitmap per track
		sta words
		stz result		;start with a clean slate

				;let the loops begin!
		ldy #vtoc_tracks	;# of tracks on the disk
		lda [vol_buf_ptr],y
		and #$00FF
		sta track_index
@track_loop
		lda words
		sta words_index
		lda track_index
		dec a
		bmi done
		sta track_index
		asl a
		asl a			;multiply by 4 to get byte offset. this should clear carry
		adc #vtoc_bitmap	;add offset to start of bitmap. carry should be clear
		tay
@word_loop	lda [vol_buf_ptr],y	;get a bitmap word
		sta bitmap_temp
		lda result
		ldx #$0010
@bit_loop	asl bitmap_temp
		adc #$0000		;carry set if we just shifted a high bit
		dex
		bne @bit_loop
		sta result
		dec words_index
		beq @track_loop
		iny
		iny			;bump index to next word
		bra @word_loop
done		lda result		;this is a good place for the result
		rts


words		ds 1
result		ds 1
track_index	ds 1
words_index	ds 1
bitmap_temp	ds 1

		ENDP



get_file_info_s	PROC			;shell for get_file_info call

		import open_setup
		import match_vcr
		import load_cat_secs
		import search_fcr
		import check_dir
		import get_file_info
		import fill_param
		import get_file_info0_f
		import get_file_info1_f
		import do_option_list

		stz temp_vp
		stz temp_vp+2

		;brk $AC

		jsl lock_mem

;		lda class
;		beq @class0
;@class1
;		lda p_cnt
;		cmp #get_file_info1.pmax
;		bcc @ok
;		lda #invalid_pcount
;		brl error
;@ok
;		bra do_it
;@class0
do_it
		jsr open_setup		;among other things, this will find VCR forÉ
					;Éthis volume name and verify identity
		bcc @ok1
		brl pack_up

@ok1
		;jsr match_vcr		;find VCR for this volume name and verify identity
		;bcc @ok2
		;brl pack_up		;return with duplicate volume error
@ok2
		;beq no_vcr
found_vcr			;we found the volume's vcr
		stz good_vcr		;flag to say we have a vcr

		ldy #vcr_buf_vp
		lda [vcr_ptr],y
		tax
		iny
		iny
		lda [vcr_ptr],y
		tay
		jsl deref
		;stx gen_buf_ptr
		;sty gen_buf_ptr+2	;set up correct buffer for check_dir
		stx vol_buf_ptr
		sty vol_buf_ptr+2	;set up correct buffer for check_dir

		ldy #vcr_cat_sec_count
		lda [vcr_ptr],y
		sta cat_sec_count	;get that right, too
		;bra have_vcr

no_vcr
		;lda #$8000
		;sta good_vcr		;keep flag to tell whether we have a vcr
		;jsr load_cat_secs
		;bcc check_file
		;brl pack_up
@ok3

have_vcr
check_file			;was there a file to get info on?
		lda (file_name_ptr)	;was there a filename?
		bne handle_file
handle_vol
					;a bunch of things get zeroes
		stz aux_type		;fill the globals
		stz eof+2
		stz  blks_used
		
		lda cat_sec_count
		inc  a			;account for vtoc
		ldx  class
		bne  @1
		sta blks_used
@1		xba
		sta eof
		lda #$000F
		sta os_type
		sta stor_type
		lda #access_unlocked
		sta access

		bra stuff_globals

handle_file
		;brk $02

		;lda good_vcr		;did we have a valid vcr?
		;bne chk_dir		;no, check the directory

		ldy #vcr_open_cnt
		lda [vcr_ptr],y		;see if any files are already open in this vcr
		beq chk_dir		;we'll have to look in the directory
		jsr search_fcr		;this routine will return number of fcr, for previousÉ
					;Éopen of the file named in file_name_ptr, in old_fcr
		;bcs chk_dir		;not found, check directory
		bcc from_fcr		;fetch all info from fcr
		
chk_dir				;does this guy exist in the directory?
		jsr check_dir		;this sub checks for filename in file_name_ptr
		bcc @ok
		lda #dir_error		;problem with the directory structure
		brl pack_up

@ok
		lda fde_index
		bpl filename_good
file_not_here		;file not on this volume
		lda #file_not_found
		brl pack_up

filename_good			;file exists in directory

go_to_disk				;otherwise, we have to get it ourselves from disk

		;lda #file_buf_size	;request segments for file buffers  ***************
		;jsl alloc_seg
		;bcc @ok1
		;lda #out_of_mem		;we *must* have those buffers!
		;bra error

;@ok1
		;stx temp_vp
		;sty temp_vp+2
		;jsl deref
		;stx <fcr_buf_ptr
		;sty <fcr_buf_ptr+2
					;make it look like we have an FCR
					;hopefully, the device number will be left over from
					;the "volume" routine

		lda gbuf_ptr		;use system gbuf
		sta <fcr_buf_ptr
		lda gbuf_ptr+2
		sta <fcr_buf_ptr+2

		lda #drvr_read
		sta <drvr_call_num
		jsr get_file_info	;get all the good stuff
		bcc @ok2
		bra error		;return with driver error
@ok2
stuff_globals				;now copy from globals to user param list
		lda class
		bne class1
class0
		lda #$0001
		sta p_cnt		;this will make the fill_param tables work right
		
		
		lda  os_type
		cmp  #$0F
		bne  @cont
		lda  #$230		; auxtype = total blocks
		sta  aux_type
		
@cont		lda #<get_file_info0_f
		sta <fill_tabl		;set up for right parameter fill table
		jsr fill_param

		lda #0
		bra pack_up		;all done!

class1
		lda #<get_file_info1_f
		sta <fill_tabl		;set up for right parameter fill table
		jsr fill_param

		lda p_cnt
		cmp #8			;do we need option list?
		bcc @no_list

		ldy #get_file_info1.option_list
		jsr do_option_list
		bcc @done

		lda #buff_too_small
		bra pack_up
@no_list
@done
		lda #0
		bra pack_up

from_fcr			;pull info out of the fcr and into the globals
		ldy #fcr_access
		lda [old_fcr_ptr],y
		sta access
		ldy #fcr_eof
		lda [old_fcr_ptr],y
		sta eof
		iny
		iny
		lda [old_fcr_ptr],y
		sta eof+2
		ldy #fcr_aux
		lda [old_fcr_ptr],y
		sta aux_type
		ldy #fcr_type
		lda [old_fcr_ptr],y
		sta os_type
		ldy #fcr_blks_used
		lda [old_fcr_ptr],y
		sta blks_used

		bra stuff_globals		;now give it all to the user
error
		sec
pack_up
		pha

		;lda temp_vp
		;tax
		;ora temp_vp+2
		;beq @skip1
		;ldy temp_vp+2
		;jsl release_seg
@skip1
		lda gen_buf_vp
		tax
		ora gen_buf_vp+2
		beq @skip3
		ldy gen_buf_vp+2
		jsl release_seg
@skip3
exit
		;brk $22

		jsl unlock_mem

		pla
		cmp #1
		bcc @noErr
		
		ora error_priority
@noErr

		jml sys_exit

good_vcr	ds 1

		ENDP


get_dir_entry_s	PROCNAME		;shell for the get_dir_entry call

		import get_dir_entry

		;brk $ED

		jsl lock_mem

		ldx <g_fcr_ptr		;SCM provides the FCR & VCR
		ldy <g_fcr_ptr+2
		jsl deref
		stx <fcr_ptr
		sty <fcr_ptr+2

		ldx <g_vcr_ptr
		ldy <g_vcr_ptr+2
		jsl deref
		stx <vcr_ptr
		sty <vcr_ptr+2

		lda #gen_buf_size	;let's get some buffer space for the vtoc & directory
		jsl alloc_seg
		bcc @mem_ok

		lda #out_of_mem		;can't get buffer space
		rts
@mem_ok
		stx gen_buf_vp		;4K buffer used by volume routine
		sty gen_buf_vp+2
		jsl deref
		stx <gen_buf_ptr
		sty <gen_buf_ptr+2

		;lda #file_buf_size	;request segments for file buffers for find_eof
		;jsl alloc_seg
		;bcc @ok1
		;lda #out_of_mem		;we *must* have those buffers!
		;bra exit2
@ok1
		;stx temp_vp
		;sty temp_vp+2
		;jsl deref
		;stx <fcr_buf_ptr
		;sty <fcr_buf_ptr+2	;make it look like we have an FCR

		lda gbuf_ptr
		sta <fcr_buf_ptr	;use system gbuf
		lda gbuf_ptr+2
		sta <fcr_buf_ptr+2

		lda class
;		beq @class0
;@class1
;		WITH get_dir_entry1

;		lda p_cnt
;		cmp #pmax
;		bcc @ok2
;		lda #invalid_pcount
;		sec
;		bra exit
;@ok2
;		ENDWITH
@class0
		jsr get_dir_entry

exit
		;pha

		;lda temp_vp
		;tax
		;ora temp_vp+2
		;beq @skip1
		;ldy temp_vp+2
		;jsl release_seg
@skip1
		;pla
exit2				;alternate exit which does not deallocate buffer

		pha			;save error code

		lda gen_buf_vp
		tax
		ora gen_buf_vp+2	;is vp valid?
		beq @skip3

		ldy gen_buf_vp+2
		jsl release_seg
@skip3

		jsl unlock_mem

		pla			;restore error
		cmp #1
		bcc @noErr
		
		ora error_priority
@noErr

		jml sys_exit

		ENDP


read_s		PROCNAME		;shell for the read call
		import read, find_fde

		jsl lock_mem

		ldx <g_fcr_ptr		;set up real pointers to vp's to fcr & vcr providedÉ
		ldy <g_fcr_ptr+2	;Éby the SCM
		jsl deref
		stx <fcr_ptr
		sty <fcr_ptr+2
		ldx <g_vcr_ptr
		ldy <g_vcr_ptr+2
		jsl deref
		stx <vcr_ptr
		sty <vcr_ptr+2

; init fde_ptr properly so that if we need to read anything out of the file
; directory entry, we won't be using an invalid pointer (and reading who-knows-what)

		ldy  #vcr_buf_vp	;set up correct buffer for find_fde
		lda  [vcr_ptr],y
		tax
		iny
		iny
		lda  [vcr_ptr],y
		tay
		jsl  deref
		stx  vol_buf_ptr
		sty  vol_buf_ptr+2

		ldy #fcr_fde_num
		lda [fcr_ptr],y		;need these to set up ptr to fde
		tax
		ldy #fcr_cat_sec
		lda [fcr_ptr],y
		jsr find_fde		;this sets up fde_ptr


;		lda class
;		beq @class0
;@class1
;		lda p_cnt
;		cmp #read1.pmax
;		bcc @ok1
;		lda #invalid_pcount
;		sec
;		bra exit
;@ok1
;@class0
		jsr read
exit
		pha
		php

		jsl unlock_mem

		plp
		pla
		bcc @noErr
		
		ora error_priority
@noErr
		jml sys_exit

		ENDP


close_s		PROCNAME		;shell for the CLOSE call
		import close

		jsl lock_mem

		ldx <g_fcr_ptr		;set up real pointers to vp's to fcr & vcr providedÉ
		ldy <g_fcr_ptr+2	;Éby the SCM
		jsl deref
		stx <fcr_ptr
		sty <fcr_ptr+2
		ldx <g_vcr_ptr
		ldy <g_vcr_ptr+2
		jsl deref
		stx <vcr_ptr
		sty <vcr_ptr+2
check_pcnt
;		lda class
;		beq @class0
;@class1
;		WITH close1

;		lda p_cnt
;		cmp #pmax
;		bcc @ok1
;		lda #invalid_pcount
;		sec
;		bra exit
;@ok1
;		ENDWITH
@class0

do_close
		ldy #fcr_type
		lda [fcr_ptr],y
		cmp #$000F		;is it a directory?
		beq free_fcr		;if directory file then don't release its bufferÉ
					;Ébecause it is shared with the VCR
		ldy #fcr_buf_vp
		lda [fcr_ptr],y		;get fcr buffer's vp so we can release it
		tax
		iny
		iny
		lda [fcr_ptr],y
		tay
		jsl release_seg

free_fcr
		ldy #fcr_ref_num
		lda [fcr_ptr],y
		jsl release_fcr
		bcc @ok1
		lda #invalid_ref_num OR $8000	;internal error
		bra exit
@ok1
		ldy #vcr_open_cnt
		lda [vcr_ptr],y		;get the open count
		bne @ok2		;make sure open count isn't aleady 0
		lda #8000		;generic internal error
		bra exit
@ok2
		dec a			;one less open file
		sta [vcr_ptr],y

no_err				;successful close
		clc
		lda #$0000

exit
		pha
		php

		jsl unlock_mem

		plp
		pla
		bcc @noErr
		
		ora error_priority
@noErr
		jml sys_exit

		ENDP


get_dev_num_s	PROCNAME		;shell for the GET_DEV_NUM call

		import open_setup
		import match_vcr
		import find_vol_online

		;brk $09

		;stz gen_buf_vp
		;stz gen_buf_vp+2

		jsl lock_mem

check_pcnt
;		lda class
;		beq @class0
;@class1
;		WITH get_dev_num1

;		lda p_cnt
;		cmp #pmax
;		bcc @ok1
;		lda #invalid_pcount
;		sec
;		bra exit
;@ok1 
;		ENDWITH
@class0

check_scm				;see whether SCM has done the work for us yet
		lda <dev1_num		;is the number there already?
		beq hard_way		;if not, we have to figure it out ourselves
easy_way
		ldy #get_dev_num1.dev_num	;anticipate class 1
		ldx class
		bne @store		;class 1, store the value
@class0
		ldy #get_dev_num0.dev_num
@store
		sta [param_blk_ptr],y

		bra no_err		;that's the whole show!

hard_way				;we have to find the volume ourselves
		jsr open_setup		;init vars, set up buffers, put volume name inÉ
					;Évolname_buf_ptr
		bcc @ok
		cmp  #dup_volume	; duplicate volume?  if yes, that means that someone else
					; will claim it...
		bne  @1
		
		lda  #unknown_vol
@1		sec
		bra exit		;return with error
@ok
		ldy #vcr_dev
		lda [vcr_ptr],y		;get device number
		bra easy_way		;we got it!


;have_name			;check for vcr with the given name
		;jsr match_vcr		;find vcr for volume name in volname_buf_ptr
		;bcc @ok
		;lda #vol_not_found
		;bra exit		;return with error
;@ok
		;bne use_old_vcr		;if we got a match, use it
		;stz supposed_dev
		;jsr find_vol_online	;no vcr, walk the devices
		;bcc @ok1
		;lda #vol_not_found
		;bra exit
@ok1
		;lda <drvr_dev_num	;the answer is here
		;bra easy_way		;mail it and we're done

use_old_vcr			;we have a vcr for the volume
				;vcr_ptr points to it
		;lda <dev1_num
		;bra easy_way


no_err				;successful get_dev_num
		clc
		lda #$0000

exit
		pha
		php

		lda gen_buf_vp
		tax
		ora gen_buf_vp+2
		beq @skip3
		ldy gen_buf_vp+2
		jsl release_seg
@skip3

		jsl unlock_mem

		plp
		pla
		bcc @noErr
		
		ora error_priority
@noErr
		jml sys_exit

		ENDP


get_eof_s	PROCNAME		;shell for the GET_EOF call

		jsl lock_mem

		ldx <g_fcr_ptr		;set up real pointers to vp's to fcr & vcr providedÉ
		ldy <g_fcr_ptr+2	;Éby the SCM
		jsl deref
		stx <fcr_ptr
		sty <fcr_ptr+2

;		ldx <g_vcr_ptr
;		ldy <g_vcr_ptr+2
;		jsl deref
;		stx <vcr_ptr
;		sty <vcr_ptr+2
check_pcnt
;		lda class
;		beq @class0
;@class1
;		WITH get_eof1

;		lda p_cnt
;		cmp #pmax
;		bcc @ok1
;		lda #invalid_pcount
;		sec
;		bra exit
;@ok1
;		ENDWITH
@class0

do_get_eof
		ldy #fcr_eof
		lda [fcr_ptr],y		;get the eof (of all things)
		tax
		iny
		iny
		lda [fcr_ptr],y		;high word
		pha			;save accum

		lda class
		beq @class0
@class1
		pla			;get back low word

		ldy #get_eof1.eof+2
		sta [param_blk_ptr],y
		txa			;restore low word
		dey
		dey
		sta [param_blk_ptr],y

		bra no_err		;that's it!
@class0
		pla			;get back low word

		ldy #get_eof0.eof+2
		sta [param_blk_ptr],y
		txa			;restore low word
		dey
		dey
		sta [param_blk_ptr],y

no_err
		clc
		lda #$0000

exit
		pha
		php

		jsl unlock_mem

		plp
		pla
		bcc @noErr
		
		ora error_priority
@noErr
		jml sys_exit

		ENDP


get_mark_s	PROCNAME		;shell for the GET_MARK call

		jsl lock_mem

		ldx <g_fcr_ptr		;set up real pointers to vp's to fcr & vcr providedÉ
		ldy <g_fcr_ptr+2	;Éby the SCM
		jsl deref
		stx <fcr_ptr
		sty <fcr_ptr+2

;		ldx <g_vcr_ptr
;		ldy <g_vcr_ptr+2
;		jsl deref
;		stx <vcr_ptr
;		sty <vcr_ptr+2
check_pcnt
;		lda class
;		beq @class0
;@class1
;		lda p_cnt
;		cmp #get_mark1.pmax
;		bcc @ok1
;		lda #invalid_pcount
;		sec
;		bra exit
;@ok1
;@class0

do_get_mark
		ldy #fcr_mark
		lda [fcr_ptr],y		;get the mark (of all things)
		tax
		iny
		iny
		lda [fcr_ptr],y		;high word
		pha			;save accum

		lda class
		beq @class0
@class1
		pla			;get back low word

		ldy #get_mark1.position+2
		sta [param_blk_ptr],y
		txa			;restore low word
		dey
		dey
		sta [param_blk_ptr],y

		bra no_err		;that's it!
@class0
		pla			;get back low word

		ldy #get_mark0.position+2
		sta [param_blk_ptr],y
		txa			;restore low word
		dey
		dey
		sta [param_blk_ptr],y

no_err
		clc
		lda #$0000

exit
		pha
		php

		jsl unlock_mem

		plp
		pla
		bcc @noErr
		
		ora error_priority
@noErr
		jml sys_exit

		ENDP


set_mark_s	PROCNAME		;shell for the SET_MARK call

		;brk $EF

		jsl lock_mem

		ldx <g_fcr_ptr		;set up real pointers to vp's to fcr & vcr providedÉ
		ldy <g_fcr_ptr+2	;Éby the SCM
		jsl deref
		stx <fcr_ptr
		sty <fcr_ptr+2

;		ldx <g_vcr_ptr
;		ldy <g_vcr_ptr+2
;		jsl deref
;		stx <vcr_ptr
;		sty <vcr_ptr+2
check_pcnt
		lda class
		beq @class0
@class1
		ldy #set_mark1.displacement
		lda [param_blk_ptr],y
		sta disp
		iny
		iny
		lda [param_blk_ptr],y
		sta disp+2

;		lda p_cnt
;		cmp #set_mark1.pmax
;		bcc get_base
		bra get_base

;		lda #invalid_pcount
;		sec
;		brl exit
;@ok1
@class0
		ldy #set_mark0.position
		lda [param_blk_ptr],y
		sta disp
		iny
		iny
		lda [param_blk_ptr],y
		sta disp+2

		bra absolute		;class 0 displacement is always absolute

get_base			;fetch displacement from param block
		ldy #set_mark1.base
		lda [param_blk_ptr],y
		beq absolute		;base = 0 --> mark = displacement

		dec a
		beq minus		;base = 1 --> mark = eof - displacement

		dec a
		beq add			;base = 2 --> mark = mark + displacement

		dec a
		beq subtract		;base = 3 --> mark = mark - displacement

bad_base			;if we get here, base had an invalid value
		lda #parm_range_err	;base is out of range
		brl exit		;can't continue

absolute			;set mark to (displacement)
		lda disp
		sta new_mark
		lda disp+2
		sta new_mark+2
		bra validate_new_mark	;make sure it's in range, and we're done!

minus				;set mark to (eof - displacement)
		ldy #fcr_eof
		lda [fcr_ptr],y		;get eof
		sec
		sbc disp
		sta new_mark
		iny
		iny
		lda [fcr_ptr],y		;get high word of eof
		sbc disp+2
		bcs @no_underflow

		lda #out_of_range	;position fell below 0
		bra exit
@no_underflow
		sta new_mark+2

		bra set_new_mark	;new mark is guaranteed to be valid now

subtract			;set mark to (mark - displacement)
		ldy #fcr_mark
		lda [fcr_ptr],y
		sec
		sbc disp
		sta new_mark
		iny
		iny
		lda [fcr_ptr],y		;get high word of present mark
		sbc disp+2
		bcs @no_underflow

		lda #out_of_range	;mark would go below 0
		bra exit
@no_underflow
		sta new_mark+2

		bra set_new_mark	;new mark is guaranteed to be valid now

add				;set mark to (mark + displacement)
		ldy #fcr_mark
		lda [fcr_ptr],y
		clc
		adc disp
		sta new_mark
		iny
		iny
		lda [fcr_ptr],y		;get high word of mark
		adc disp+2
		bcc @no_overflow

		lda #out_of_range	;new mark overflowed 32-bit range
		bra exit
@no_overflow
		sta new_mark+2

validate_new_mark		;check value of new mark against eof
		lda new_mark+2
		ldy #fcr_eof+2
		cmp [fcr_ptr],y		;compare to high word of eof
		bcc @in_range

		bne @out_of_range
@maybe				;now check low words
		dey
		dey
		lda [fcr_ptr],y		;get low word of eof
		cmp new_mark
		bcs @in_range
@out_of_range
		lda #out_of_range
		bra exit
@in_range
set_new_mark
		lda new_mark
		ldy #fcr_mark
		sta [fcr_ptr],y		;set new mark
		lda new_mark+2
		iny
		iny
		sta [fcr_ptr],y		;that completes the new mark setting!
no_err
		clc
		lda #$0000

exit
		pha

		jsl unlock_mem

		pla
		cmp #1
		bcc @noErr
		
		ora error_priority
@noErr

		jml sys_exit

disp		ds.l 1			;local copy of user parameter "displacement"
new_mark	ds.l 1			;scratch space for new mark value

		ENDP


flush_s		PROCNAME		;handle the FLUSH call

check_pcnt			;this is about all we do?
		lda class
		beq @class0
@class1
		lda p_cnt
		cmp #2+1		;max pcount for FLUSH is 2
		bcc @ok1
		lda #invalid_pcount
		sec
		bra exit
@ok1
@class0

no_err
		clc
		lda #$0000

exit
		bcc @noErr
		
		ora error_priority
@noErr
		jml sys_exit

		ENDP

fst_specific_s	PROCNAME		;shell for fst-specific calls

		import set_text_mode
		import get_text_mode

		WITH fst_specific

		ldy #command
		lda [param_blk_ptr],y	;get command parameter
		beq @bad_command	;0 not a valid command

		dec a
		bne @next1

		jsr set_text_mode	;command = 1
		bra exit
@next1
		dec a
		bne @next2

		jsr get_text_mode	;command = 2
		bra exit
@next2
@bad_command			;command number not valid
		lda #invalid_fst_op
		sec
exit
		cmp #1

		bcc @noErr
		
		ora error_priority
@noErr
		jml sys_exit

		ENDWITH

		ENDP


not_supported2	PROCNAME	;handle FST calls which are not supported because they requireÉ
				;Éwrite operations

				;this routine handles calls which take a pathname as a parameter

				;if the pathname refers to a DOS 3.3 disk, we return anÉ
				;Éinvalid_fst_op error

				;if the pathname refers to a non-DOS 3.3 disk, we return aÉ
				;Éunknown_vol error, which allows the call to bounce to otherÉ
				;ÉFST's

		import open_setup

		;brk $AC

		jsl lock_mem
check_volume			;the main thing is to know whom the volume belongs to
		jsr open_setup		;this routine allocates a buffer, sets up name bufferÉ
					;Épointers, parses the path provided by SCM, 

		bcs pack_up		;return with unknown_vol, or pathalogical error
@ok1
		lda #drvr_wr_prot	;call was meant for us
pack_up
		pha

		lda gen_buf_vp
		tax
		ora gen_buf_vp+2
		beq @skip3
		ldy gen_buf_vp+2
		jsl release_seg
@skip3
exit
		;brk $22

		jsl unlock_mem

		pla
		cmp #1
		bcc @noErr
		
		ora error_priority
@noErr

		jml sys_exit

		ENDP



;======================================================================
;Below is the main entry point for ALL standard operating system calls.
;
;This PROC was adapted directly from the ProDOS FST v02.00 by Rob Turner
;
;Input:         X = Call number * 2
;               Y = Class number * 2
;               A = undefined
;======================================================================
		longa	on
		longi	on
		
		EXPORT	appl_call	
appl_call	PROCNAME

		import	max_call

		sta $FF0500		;debug tag

		phk			;set up our bank register
		plb

		rep #$30		; 16 bit A & X

		stz  p_cnt		; zero it out
		stz  error_priority	; for bouncing errors

		sty class		;keep this around for future reference
		cpy #0
		beq @class0
@class1
		lda [param_blk_ptr]	;first word of class1 is always pcount
		sta p_cnt		;save for future reference
		
		lda pcount_tbl,x	; get the min/max pcount for this call
		sep #$20		; 8 bit accum. please
		LONGA OFF

		sta p_max_cnt
		xba
		sta p_min_cnt
		lda p_cnt
		
		cmp p_max_cnt		; Max pcount - pcount
		bcs pcnt_err		; pcount too big
		cmp p_min_cnt		; Min pcount - pcount
		blt pcnt_err		; pcount too small

		rep #$20		; back to 16 bit accu.
		LONGA ON
		
@class0

		stz gen_buf_vp		;invalidate vp's until buf gets allocated
		stz gen_buf_vp+2

		cpx #end_tbl+1		;check command number
		bcs cmd_error
		jmp (cmd_tbl,x)		;call the function

pcnt_err		; bad pcount in the call

		rep #$20		; back to 16 bit accu.
		LONGA ON
		lda #invalid_pcount
		bra err

cmd_error		;bad command number, or not FST call
		
		lda #bad_system_call
err		sec
		ora error_priority
		jml sys_exit

not_supported		;call not supported by this FST
			;we get here if the call takes a ref num as a parameter, inÉ
			;Éwhich case we are certain the call was meant for this FST

		lda #drvr_wr_prot
		bra  err

not_implemented		; no handler for this call
		lda #invalid_fst_op
		bra  err

cmd_tbl		dc.w	cmd_error	;undefined		00
		DC.W	not_supported2	;CREATE			01
		DC.W	not_supported2	;DESTROY		02
		DC.W	cmd_error	;OS_SHUTDOWN		03
		DC.W	not_supported2	;CHANGE_PATH		04
		DC.W	not_supported2	;SET_FILE_INFO		05
		DC.W	get_file_info_s	;GET_FILE_INFO		06
		DC.W	not_implemented	;JUDGE_NAME		07
		DC.W	volume_s	;VOLUME			08
		DC.W	cmd_error	;SET_PREFIX		09
		DC.W	cmd_error	;GET_PREFIX		0A
		DC.W	not_supported2	;CLEAR_BACKUP		0B
		DC.W	cmd_error	;SET_SYS_PREFS		0C
		DC.W	cmd_error	;NULL			0D
		DC.W	cmd_error	;EXPAND_PATH		0E
		DC.W	cmd_error	;GET_SYS_PREFS		0F
		DC.W	open_s		;OPEN			10
		DC.W	cmd_error	;NEWLINE		11
		DC.W	read_s		;READ			12
		DC.W	not_supported	;WRITE			13
		DC.W	close_s		;CLOSE			14
		DC.W	flush_s		;FLUSH			15
		DC.W	set_mark_s	;SET_MARK		16
		DC.W	get_mark_s	;GET_MARK		17
		DC.W	not_supported	;SET_EOF		18
		DC.W	get_eof_s	;GET_EOF		19
		DC.W	cmd_error	;SET_LEVEL		1A
		DC.W	cmd_error	;GET_LEVEL		1B
		DC.W	get_dir_entry_s	;GET_DIR_ENTRY		1C
		DC.W	cmd_error	;BEGIN_SESSION		1D
		DC.W	cmd_error	;END_SESSION		1E
		DC.W	cmd_error	;SESSION_STATUS		1F
		DC.W	get_dev_num_s	;GET_DEV_NUM		20
		DC.W	cmd_error	;GET_LAST_DEV		21
		DC.W	cmd_error	;READ_BLOCK		22
		DC.W	cmd_error	;WRITE_BLOCK		23
		DC.W	not_supported	;FORMAT			24
		DC.W	not_supported	;ERASE_DISK		25
		DC.W	cmd_error	;RESET_CACHE		26
		DC.W	cmd_error	;GET_NAME		27
		DC.W	cmd_error	;GET_BOOT_VOL		28
		DC.W	cmd_error	;QUIT			29
		DC.W	cmd_error	;GET_VERSION		2A
		DC.W	cmd_error	;GET_FST_INFO		2B
		DC.W	cmd_error	;D_INFO			2C
		DC.W	cmd_error	;D_STATUS		2D
		DC.W	cmd_error	;D_CONTROL		2E
		DC.W	cmd_error	;D_READ			2F
		DC.W	cmd_error	;D_WRITE		30
		DC.W	cmd_error	;ALLOC_INT and BIND_INT	31
		DC.W	cmd_error	;DEALLOC_INT and UNBIND_INT	32
		DC.W	fst_specific_s	;FST_SPECIFIC		33

		;EXPORT	end_tbl
end_tbl		equ * - cmd_tbl

;=====================================================================
; Below is the table used to check the pcount on the calls that are
; not supported.  This should have been done in general for all the 
; calls instead of doing it inline in each call.  Oh well I didn't
; start this thing and "to each his own".  If I had time I would go back 
; and change all the calls, but we're too close to beta to do it now.
; jev	3/26/91
;=====================================================================

pcount_tbl	DC.W	cmd_error
		DC.W	max_pcnt7+min_pcnt1	;CREATE			01
		DC.W	max_pcnt1+min_pcnt1	;DESTROY		02
		DC.W	max_pcnt1+min_pcnt1	;OS_SHUTDOWN		03
		DC.W	max_pcnt3+min_pcnt2	;CHANGE_PATH		04
		DC.W	max_pcnt12+min_pcnt2	;SET_FILE_INFO		05
		DC.W	max_pcnt12+min_pcnt1	;GET_FILE_INFO		06
		DC.W	max_pcnt6+min_pcnt1	;JUDGE_NAME		07
		DC.W	max_pcnt6+min_pcnt2	;VOLUME			08
		DC.W	max_pcnt2+min_pcnt2	;SET_PREFIX		09
		DC.W	max_pcnt2+min_pcnt2	;GET_PREFIX		0A
		DC.W	max_pcnt1+min_pcnt1	;CLEAR_BACKUP		0B
		DC.W	max_pcnt1+min_pcnt1	;SET_SYS_PREFS		0C
		DC.W	max_pcnt0+min_pcnt0	;NULL			0D
		DC.W	max_pcnt3+min_pcnt2	;EXPAND_PATH		0E
		DC.W	max_pcnt1+min_pcnt1	;GET_SYS_PREFS		0F
		DC.W	max_pcnt15+min_pcnt2	;OPEN			10
		DC.W	max_pcnt4+min_pcnt4	;NEWLINE		11
		DC.W	max_pcnt5+min_pcnt4	;READ			12
		DC.W	max_pcnt5+min_pcnt4	;WRITE			13
		DC.W	max_pcnt1+min_pcnt1	;CLOSE			14
		DC.W	max_pcnt1+min_pcnt1	;FLUSH			15
		DC.W	max_pcnt3+min_pcnt3	;SET_MARK		16
		DC.W	max_pcnt2+min_pcnt2	;GET_MARK		17
		DC.W	max_pcnt3+min_pcnt3	;SET_EOF		18
		DC.W	max_pcnt2+min_pcnt2	;GET_EOF		19
		DC.W	max_pcnt1+min_pcnt1	;SET_LEVEL		1A
		DC.W	max_pcnt1+min_pcnt1	;GET_LEVEL		1B
		DC.W	max_pcnt17+min_pcnt5	;GET_DIR_ENTRY		1C
		DC.W	max_pcnt0+min_pcnt0	;BEGIN_SESSION		1D
		DC.W	max_pcnt0+min_pcnt0	;END_SESSION		1E
		DC.W	max_pcnt1+min_pcnt1	;SESSION_STATUS		1F
		DC.W	max_pcnt2+min_pcnt2	;GET_DEV_NUM		20
		DC.W	max_pcnt0+min_pcnt0	;GET_LAST_DEV		21
		DC.W	max_pcnt0+min_pcnt0	;READ_BLOCK		22
		DC.W	max_pcnt0+min_pcnt0	;WRITE_BLOCK		23
		DC.W	max_pcnt4+min_pcnt3	;FORMAT			24
		DC.W	max_pcnt4+min_pcnt3	;ERASE_DISK		25
		DC.W	max_pcnt0+min_pcnt0	;RESET_CACHE		26
		DC.W	max_pcnt1+min_pcnt1	;GET_NAME		27
		DC.W	max_pcnt1+min_pcnt1	;GET_BOOT_VOL		28
		DC.W	max_pcnt2+min_pcnt0	;QUIT			29
		DC.W	max_pcnt1+min_pcnt1	;GET_VERSION		2A
		DC.W	max_pcnt8+min_pcnt2	;GET_FST_INFO		2B
		DC.W	max_pcnt11+min_pcnt2	;D_INFO			2C
		DC.W	max_pcnt5+min_pcnt5	;D_STATUS		2D
		DC.W	max_pcnt5+min_pcnt5	;D_CONTROL		2E
		DC.W	max_pcnt6+min_pcnt6	;D_READ			2F
		DC.W	max_pcnt6+min_pcnt6	;D_WRITE		30
		DC.W	max_pcnt0+min_pcnt0	;ALLOC_INT and BIND_INT	31
		DC.W	max_pcnt0+min_pcnt0	;DEALLOC_INT and UNBIND_INT	32
		DC.W	max_pcnt17+min_pcnt1	;FST_SPECIFIC		33
		
		;EXPORT	pend_tbl
pend_tbl	equ * - pcount_tbl

		ENDP

;======================================================================
;Below is the main entry point for ALL FST system calls
;
;This PROC was adapted directly from the ProDOS FST v02.00 by Rob Turner
;
;
;Input:     X = Call number * 2
;           Y = Class number * 2
;           A = undefined
;======================================================================

		EXPORT	system_call	
system_call	PROCNAME

		sta $FF0510		;debug tag

		phk			;setup our bank register
		plb
		
		cpx	#max_sys+1	;maximum system calls
		bcs	sys_err
		jmp	(sys_tbl,x)	;call system routine

sys_err
		lda	#bad_system_call
		rtl			;return error to the SCM

startup

		jsl get_sys_gbuf	;get pointer to general 1K buffer

		stx gbuf_ptr
		sty gbuf_ptr+2

		lda #$0001		;set default text mode to clear high bits
		sta text_flag

		bra exit
shutdown
deferred_flush

exit
		lda #$0000
		clc
		rtl

sys_remove_vol			;clean up a vcr before SCM throws it away
		sta >$FE0358

		ldx <g_vcr_ptr
		ldy <g_vcr_ptr+2
		stx <vcr_ptr
		sty <vcr_ptr+2

		ldy #vcr_buf_vp		;point to vp for the segment owned by the vcr
		lda [g_vcr_ptr],y	;g_vcr_ptr contains a real pointer
		tax
		iny
		iny
		ora [g_vcr_ptr],y	;check that it's not 0
		beq @invalid_vp

		lda [g_vcr_ptr],y
		tay
		jsl release_seg		;throw away the 4K buffer
@invalid_vp
		rtl			;return with any error


sys_tbl		dc.w	sys_err
		DC.W	startup		;set ready for work
		DC.W	shutdown	;get ready to quit
		DC.W	sys_remove_vol	;remove local data from VCR
		DC.W	deferred_flush	;flush deferred blocks.

max_sys		equ	* - sys_tbl

		ENDP


match_vcr	PROCNAME	;given a volume name, try to find a matching vcr.
				;volume name in volname_buf_ptr

		import throw_away
		import find_vol_online
		import cmp_vol_vcr

		;this is a complicated task, so here is the pseudocode:

;	try to find a VCR with the same volume name
;
;		NOT FOUND: return with no match
;
;		FOUND:
;			is it mine?
;				NO: try to discard it (no open files)
;					SUCCESSFUL discard: return with no match
;					CAN'T discard: return w/duplicate_vol error
;
;				YES: find the disk online, checking in dev_num or last known
;					device (error if failure)
;
;					is the disk really the same as one that VCR refers to?
;						YES: return with match
;						NO: try to discard it (no open files)
;							SUCCESSFUL discard: return with no match
;							CAN'T discard: return w/dup_vol error

				;check for vcr with same name

		;brk $03

		ldx <volname_buf_ptr
		ldy <volname_buf_ptr+2
		lda #$0000		;tell find_vcr to search by name
		jsl find_vcr		;see if a vcr exists for this volume
		bcc same_name		;same name, see if it's mine
no_match
		lda #0			;report no match
		clc
		rts
same_name
		jsl deref
		stx <vcr_ptr
		sty <vcr_ptr+2
		ldy #vcr_fst_id
		lda [vcr_ptr],y		;see if it's mine
		cmp #my_id
		beq mine
		jsr throw_away
		bcc no_match		;successful discard, return no match

dup_vol				;return with error
		lda #dup_volume		;duplicate volume
		sec
		rts
mine				;it's mine

		ldy  #vcr_open_cnt	; <CAF> By incrementing the vcr open count, I
		lda  [<vcr_ptr],y	; fool SCM into not throwing away the vcr for
		inc  a			; this volume when the disk is accessed.
		sta  [<vcr_ptr],y
	
		lda <dev1_num		;was a device number given by SCM?
		bne verify_same		;if so, see if the vcr matches the online disk

					;no dev_num given, search devices starting with theÉ
					;Éone it was last seen in
		ldy #vcr_dev
		lda [vcr_ptr],y		;find where it was last seen
		sta supposed_dev
		jsr find_vol_online	;find the physical disk
		bcc verify_same		;we found one, check it
		
		ldy  #vcr_open_cnt	; <CAF> Restore the previous open count.
		lda  [<vcr_ptr],y
		dec  a
		sta  [<vcr_ptr],y

		lda #vol_not_found
		sec
		rts

verify_same	;we have a disk with the same name, but let's check two fullÉ
		;Ésectors' worth of data
	
		ldy  #vcr_open_cnt	; <CAF> Restore the previous open count.
		lda  [<vcr_ptr],y
		dec  a
		sta  [<vcr_ptr],y

		jsr cmp_vol_vcr
		bcs try_discard		;it's not the same, try to get rid of the VCR
match				;we have a match!

		ldy #vcr_id
		lda [vcr_ptr],y
		clc
		rts			;return with vcr_id in accum

try_discard
		jsr throw_away		;try to throw away the incorrect vcr
		bcs dup_vol		;can't, report duplicate volume
		bra no_match		;otherwise, report no match

		ENDP


		export open_setup
open_setup	PROCNAME		;perform basic setup for OPEN and GET_FILE_INFO

		import parse_path
		import volume
		import find_vol_online
		import allocate_vcr
		import cmp_vol_vcr
		import device_id

		stz supposed_dev	;init to 0
		stz valid_vcr
		stz gen_buf_vp
		stz gen_buf_vp+2

		lda #gen_buf_size	;let's get some buffer space for the vtoc & directory
		jsl alloc_seg
		bcc @ok
		lda #out_of_mem		;can't get buffer space
		rts
@ok
		stx gen_buf_vp		;4K buffer used by volume routine
		sty gen_buf_vp+2
		jsl deref
		stx <gen_buf_ptr
		sty <gen_buf_ptr+2

		lda #name_buf
		sta <volname_buf_ptr
		lda #^name_buf
		sta <volname_buf_ptr+2

		lda #<file_buf		;get address of this internal buffer
		sta <file_name_ptr
		lda #^file_buf
		sta <file_name_ptr+2

		lda #<vol_name_buf	;get address of this internal buffer
		sta <vol_name_ptr
		lda #^vol_name_buf
		sta <vol_name_ptr+2

		;brk $12

		jsr parse_path		;check path and break off filename and volume name
		bcc @ok4
		lda #bad_path_syntax
		rts

* <CAF> 11/08/90
* ok, at this point we have allocated any buffers and broken down the pathname, and it
* is a valid dos pathname.  now we must attempt to find the volume which is the target
* of this call.  the target may actually belong to another FST, so this is what must
* be done:
*
* A. does a vcr exist?
*  1. yes - 
*    a. is it DOS?
*      1. yes -
*        a. is it same volume?
*          1. yes - verify that has not been switched.  
*            a. if not switched, then done (goto B)
*            b. if switched, start scanning from last seen device (goto A.2.a)
*          2. no - if no open files, then proceed as if it was not DOS (goto A.1.b)
*      2. no - act as if a vcr does not exist, so that if a volume is found, we can try
*         to throw this vcr out (goto A.2.a)
*  2. no -
*    a. find the dos volume in one of the devices.  If the vcr exists, attempt to throw
*       it out.  If it was thrown out, then create the new vcr for the dos volume.
*       done. (goto B)
* B. done
*
@ok4
		lda <dev1_num
		beq have_vol_name	;if 0 dev_num then we have our volume pointedÉ
					;Éto by volname_buf_ptr

		sta <drvr_dev_num
		jsr device_id		;check to see if this is a 5.25 device
		bcs @exit		;failed to find the device
		bne @exit		;can't deal with non-5.25 drives

		jsr volume		;get name of volume in that device
					;that routine will return a g-string in vol_name_ptr
		bcc @ok5		;can't recognize volume
@exit		sec
		lda #unknown_vol
		rts			;return with bouncing error
@ok5
		lda #<vol_name_buf		;this is our volume name for sure
		sta <volname_buf_ptr
		lda #^vol_name_buf
		sta <volname_buf_ptr+2

* A. does a vcr exist?
have_vol_name

		ldx  <volname_buf_ptr
		ldy  <volname_buf_ptr+2
		lda  #$0000		;tell find_vcr to search by name
		jsl  find_vcr		;see if a vcr exists for this volume
*  2. no -
		bcs  find_vol		; no vcr, so go look for volume ->
*  1. yes - 
same_name
		jsl  deref
		stx  <vcr_ptr
		sty  <vcr_ptr+2
		
*    a. is it DOS?
		ldy  #vcr_fst_id		; is it a vcr for a dos volume?
		lda  [vcr_ptr],y		;
		cmp  #my_id
*      1. yes -
		beq  mine		; yes ->
		
*      2. no - act as if a vcr does not exist, so that if a volume is found, we can try
*         to throw this vcr out (goto A.2.a)
lab112		ldy  #vcr_open_cnt	; no, any open files?
		lda  [<vcr_ptr],y
		beq  find_vol		; no, so lets act as if I haven't seen the vcr, and go try
					; to find a dos volume with the same name.

*
* ok, I've found a vcr for a volume that has open files.  this means that even if
* I were to find a dos volume of the same name, I couldn't mount it because of this volume.
* that means that now I must return either dup_vol or vol_not_found.
*
* dup_vol        ->  I found a dos volume online but couldn't mount it.
* vol_not_found  ->  couldn't find a dos volume of this name.
*
* what are the side effects of my just returning vol_not_found?
* - won't be able to tell if a duplicate volume has been inserted
*
*
		stz  supposed_dev	; we have no clue what device it might be in
		jsr  find_vol_online

		lda  #vol_not_found	; assume that we couldn't find it
		bcc  @1
		brl  exit		; couldn't find it ->

@1		lda  #dup_volume	; was found, so error is a dup_volume error
		brl  exit		; ->

*
* I've found a vcr for a dos volume.  check to see if it is the same volume.
*
*        a. is it same volume?
mine		ldy  #vcr_buf_vp	;set up correct buffer for check_dir
		lda  [vcr_ptr],y
		tax
		iny
		iny
		lda  [vcr_ptr],y
		tay
		jsl  deref
		stx  vol_buf_ptr
		sty  vol_buf_ptr+2

		jsr  cmp_vol_vcr	; same?
		bcs  @not_same		; no ->

*          1. yes - verify that has not been switched.  
@same		ldy  #vcr_status
		lda  [<vcr_ptr],y
		and  #vcr_swapped
*            a. if not switched, then done (goto B)
		beq  done		; not switched ->
*            b. if switched, start scanning from last seen device (goto A.2.a)
		ldy  #vcr_dev		; get the last device it was in
		lda  [<vcr_ptr],y
		sta  supposed_dev
		bra  find_vol2		; switched, so go find it ->

*          2. no - if no open files, then proceed as if it was not DOS (goto A.1.b)
@not_same	bra  lab112		; lab112 checks vcr_open_cnt ->

*      2. no -
*        a. find the (possibly) dos volume in one of the devices.  If the vcr exists, attempt to throw
*           it out.  If it was thrown out, then create the new vcr for the dos volume.
*           done. (goto B)
find_vol				; we have a volume name, but make sure that it is a dos disk in
					; one of the drives
					
		stz  vcr_ptr		; zero out the vcr pointer so that I know if I only need to
		stz  vcr_ptr+2		; update the device number
		stz  supposed_dev	; start at first device
		
find_vol2	stz  myflag1		; assume no prior vcr

		lda  vcr_ptr		; vcr?
		ora  vcr_ptr+2
		beq  @1			; no ->
	
		inc  myflag1		; set flag indicating that I have bumped the open count
		ldy  #vcr_open_cnt	; increment the open count so volume won't be lost
		lda  [<vcr_ptr],y	; the only time that this might not work would be if we are
		inc  a			; searching for a duplicate dos 3.3 volume, but that is not
		sta  [<vcr_ptr],y	; very likely.

@1		jsr  find_vol_online
		php
		pha
		
		lda  myflag1
		beq  @2
		
		ldy  #vcr_open_cnt	; decrement the open count
		lda  [<vcr_ptr],y
		dec  a
		sta  [<vcr_ptr],y
		stz  myflag1
		
@2		pla
		plp
		bcs  exit		; couldn't find it ->

		lda  vcr_ptr		; found a volume, did we have a vcr already?
		ora  vcr_ptr+2
		beq  @alloc		; no, go create one ->
	
		ldy  #vcr_dev		; yes, update the device number in the vcr
		lda  drvr_dev_num
		sta  [<vcr_ptr],y
		
		ldy  #vcr_status	; clear the disk swapped flag
		lda  [<vcr_ptr],y
		and  #$BFFF
		sta  [<vcr_ptr],y

		bra  done
		
@alloc		jsr  allocate_vcr	; found volume, allocate the vcr
		bcs  exit		; error ->

* B. done
done		ldy  #vcr_dev		; setup the drvr_dev_num
		lda  [<vcr_ptr],y
		sta  drvr_dev_num
		
		clc
exit		rts

myflag1		dc.w	0

		ENDP


		export fill_param
fill_param	PROCNAME	;fill the user param list according to the table pointed toÉ
				;Éby fill_tabl.  p_cnt must be correct

		ldy #$0000-2		;init index
		ldx p_cnt		;keep countdown in x
@cpy_loop
		iny
		iny			;move to next word entry
		lda (fill_tabl),y	;get the table entry
		asl a			;test 2 highest bits
		php			;save the results in carry and neg flags
		bmi @no_copy		;if original bit 14 was set, don't copy
		lsr a			;shift things back into place
		phy			;save the present index
		tay
		lda global_params,y
		ply
		sta [param_blk_ptr],y
@no_copy
		plp			;restore the first test result
		bcc @cpy_loop		;should we decrement pcount?
		dex			;decrement pcount
		bne @cpy_loop		;if we're not done, keep looping
@done
		rts

		;now we have the param list fill tables:

		;table to specify what data to copy from the fcr to the user
		;parameter block.  each position corresponds to the same position
		;in the user parameter block.
		;each word entry contains:
		;	bit 15 = decrement pcount--high for the 1st word in each parameter
		;	bit 14 = copy inhibit--if high, nothing gets copied for this word position
no_copy		equ %0100000000000000
dec		equ %1000000000000000

		;the label 'g' is short for 'global_params' and is the address of the startÉ
		;Éof the table of global parameters.  It is needed in the offset expressionÉ
		;Éfor each entry that represents a param to be copied, so I used a one-letterÉ
		;Élabel for convenience.

*************************************************************
	EXPORT get_file_info0_f

get_file_info0_f

	dc.w no_copy				;pathname
	dc.w no_copy
	dc.w access		- g		;access
	dc.w os_type		- g		;file_type
	dc.w aux_type 		- g		;aux_type
	dc.w null		- g
	dc.w stor_type		- g		;storage_type
	dc.w null		- g		;create_date
	dc.w null		- g		;create_time
	dc.w null		- g		;mod_date
	dc.w null		- g		;mod_time
	dc.w blks_used		- g		;blocks_used
	dc.w null		- g	+ dec

*************************************************************
	EXPORT get_file_info1_f
get_file_info1_f

	dc.w no_copy				;pcount
	dc.w no_copy				;pathname
	dc.w no_copy			+ dec
	dc.w access		- g	+ dec	;access
	dc.w os_type		- g	+ dec	;file_type
	dc.w aux_type		- g		;aux_type
	dc.w null		- g	+ dec
	dc.w stor_type		- g	+ dec	;storage_type
	dc.w null		- g		;create_date_time
	dc.w null		- g
	dc.w null		- g
	dc.w null		- g	+ dec
	dc.w null		- g		;mod_date_time
	dc.w null		- g
	dc.w null		- g
	dc.w null		- g	+ dec
	dc.w no_copy				;option_list
	dc.w no_copy			+ dec
	dc.w eof		- g		;eof
	dc.w eof+2		- g	+ dec
	dc.w blks_used		- g		;blocks_used
	dc.w null		- g	+ dec

	;dc.w no_copy				;resource_eof
	;dc.w no_copy			+ dec
	;dc.w no_copy				;resource_blocks
	;dc.w no_copy			+ dec

;	Resource fork info now gets zeroed
;	-- Monte Benaresh 2/19/92 for 6.0.1

	dc.w null		- g		;resource_eof
	dc.w null		- g	+ dec
	dc.w null		- g		;resource_blocks
	dc.w null		- g	+ dec

*************************************************************
	EXPORT volume0_f
volume0_f		;this call is all special-case, so this routine never gets called for it.

*************************************************************
	EXPORT volume1_f	
volume1_f		;this call is all special-case, so this routine never gets called for it.

*************************************************************
	EXPORT open0_f	
open0_f		;this call is all special-case, so this routine never gets called for it.

*************************************************************
	EXPORT open1_f
open1_f		;this call is all special-case, so this routine never gets called for it.

*************************************************************
	EXPORT read0_f	
read0_f		;this call is all special-case, so this routine never gets called for it.

*************************************************************
	EXPORT read1_f	
read1_f		;this call is all special-case, so this routine never gets called for it.

*************************************************************
	EXPORT close0_f	
close0_f	;this call is all special-case, so this routine never gets called for it.

*************************************************************
	EXPORT close1_f	
close1_f	;this call is all special-case, so this routine never gets called for it.

*************************************************************
	EXPORT set_mark0_f	
set_mark0_f	;this call is all special-case, so this routine never gets called for it.

*************************************************************
	EXPORT set_mark1_f	
set_mark1_f	;this call is all special-case, so this routine never gets called for it.

*************************************************************
	EXPORT get_mark0_f	
get_mark0_f	;this call is all special-case, so this routine never gets called for it.

*************************************************************
	EXPORT get_mark1_f	
get_mark1_f	;this call is all special-case, so this routine never gets called for it.


*************************************************************
	EXPORT get_eof0_f	
get_eof0_f	;this call is mostly special-case, so this routine never gets called for it.

*************************************************************
	EXPORT get_eof1_f	
get_eof1_f	;this call is mostly special-case, so this routine never gets called for it.

*************************************************************
	EXPORT get_dir_entry0_f

get_dir_entry0_f

	dc.w no_copy				;ref_num
	dc.w no_copy				;flags
	dc.w no_copy				;base
	dc.w no_copy				;displacement
	dc.w no_copy				;name
	dc.w no_copy
	dc.w entry_num		- g		;entry_num
	dc.w os_type		- g		;file_type
	dc.w eof		- g		;eof
	dc.w eof+2		- g
	dc.w blks_used		- g		;block_count
	dc.w null		- g
	dc.w null		- g		;create_date_time
	dc.w null		- g
	dc.w null		- g
	dc.w null		- g
	dc.w null		- g		;mod_date_time
	dc.w null		- g
	dc.w null		- g
	dc.w null		- g
	dc.w access		- g		;access
	dc.w aux_type		- g		;aux_type
	dc.w null		- g
	dc.w fst_id		- g	+ dec	;file_sys_id	

*************************************************************
	EXPORT get_dir_entry1_f

get_dir_entry1_f

	dc.w no_copy				;pcount
	dc.w no_copy			+ dec	;ref_num
	dc.w no_copy			+ dec	;flags
	dc.w no_copy			+ dec	;base
	dc.w no_copy			+ dec	;displacement
	dc.w no_copy				;name
	dc.w no_copy			+ dec
	dc.w entry_num		- g	+ dec	;entry_num
	dc.w os_type		- g	+ dec	;file_type
	dc.w eof		- g		;eof
	dc.w eof+2		- g	+ dec
	dc.w blks_used		- g		;block_count
	dc.w null		- g	+ dec
	dc.w null		- g		;create_date_time
	dc.w null		- g
	dc.w null		- g
	dc.w null		- g	+ dec
	dc.w null		- g		;mod_date_time
	dc.w null		- g
	dc.w null		- g
	dc.w null		- g	+ dec
	dc.w access		- g	+ dec	;access
	dc.w aux_type		- g		;aux_type
	dc.w null		- g	+ dec
	dc.w fst_id		- g	+ dec	;file_sys_id
	dc.w no_copy				;option_list
	dc.w no_copy			+ dec

	;dc.w no_copy				;resource_eof
	;dc.w no_copy			+ dec
	;dc.w no_copy				;resource_blocks
	;dc.w no_copy			+ dec

;	Resource fork info now gets zeroed
;	-- Monte Benaresh 2/19/92 for 6.0.1

	dc.w null		- g		;resource_eof
	dc.w null		- g	+ dec
	dc.w null		- g		;resource_blocks
	dc.w null		- g	+ dec

*************************************************************
	EXPORT get_dev_num0_f	
get_dev_num0_f	;this call is all special-case, so this routine never gets called for it.

*************************************************************
	EXPORT get_dev_num1_f	
get_dev_num1_f	;this call is all special-case, so this routine never gets called for it.

*************************************************************

		ENDP


;======================================================================
;new_rwts	Read/write a given track/sector.
;		Calculates: block = (16 * track) + sector
; 
;Enter:         JSR
;
;			sector	   |    track
;Input:         A =|F|E|D|C|B|A|9|8|7|6|5|4|3|2|1|0|
;			This is what you get if you do a 16-bit load on a
;			track/sector entry typically found in a DOS 3.3
;			data structure.
;
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..0
;               b = k
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..|___ high = device error, low = successful
;               b = k
;
;uses:	Good for reading sectors.
; 
;======================================================================

		longa on
		longi on
new_rwts	PROCNAME		;read/write a track/sector
		xba			;switch track byte/sector byte

		sep #%00100000		;work with bytes
		LONGA OFF
		asl a			;get sector nibble flush left in byte
		asl a
		asl a
		asl a
		
		rep #%00100000		;now open up to 16 bits
		LONGA ON
		lsr a
		lsr a
		lsr a
		lsr a			;calculation done--we have a block number
		sta <drvr_blk_num	;put on parm list
		stz <drvr_blk_num+2	;clear high word
;make this call	lda #drvr_read
;more general	sta <drvr_call_num
		lda #$0100		;256-byte "blocks"
		sta <drvr_blk_size
		sta <drvr_req_cnt	;we only deal in whole blocksÉ
		stz <drvr_req_cnt+2	;Éand only one at a time!
		lda #my_id
		sta <drvr_fst_num
		stz <drvr_cache		;to hell with caching
@retry		jsl dev_dispatcher	;go read
		bcs @err
		rts
@err
		cmp #drvr_disk_sw
		beq @retry
		sec
		rts

		ENDP	


;======================================================================
;find_fde	Find the file descriptive entry #n in catalog sector #k
;		in vol_name_buf.
;
; 
;Enter:         JSR
;
;
;Input:         A = k, as in "catalog sector #k"
;
;               X = n, as in "fde #n"
;               Y = undefined
;               P = nvmxdizc
;                   ..000..0
;               b = k
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..|___ high = error, low = successful
;               b = k
;		fde_ptr = longword pointer to first byte of that fde
;
;uses:
; 
;======================================================================

find_fde	PROCNAME		;find a file descriptive entry
		cmp #max_cat_sec+1	;see if in range
		bcs @error		;range error
		xba			;we now have a byte offset to start of that cat sector
		adc #cat_strt_off	;add offset to first cat sector
		adc #base_fde		;add base fde offset within catalog sector
		cpx #max_fde+1		;check range
		bcs @error
@add		dex			;decrement fde offset
		bmi @fde_done		;we're done when we get below zero--loop 0 or more times
		adc #fde_len		;add byte length of each fde
		bra @add
@fde_done	;clc	hopefully, carry will be clear
		adc vol_buf_ptr		;finished product is address of fde in contiguousÉ
		sta fde_ptr		;Ébuffer of catalog sectors
		lda vol_buf_ptr+2	;get high part
		adc #$0000
		sta fde_ptr+2
		rts
@error
		rts
		ENDP

;======================================================================
;
; load_fde_flag (added 6-May-93 DAL)
;
; This routine is similar to
;   lda [fde_ptr]
;   and #$00ff
; That first byte of an fde is $FF for a deleted entry.
;
; We also return $FF for a non-deleted entry if the filename is
; all blanks, which would be a zero-length filename.
;
;Enter:         JSR
;
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;		fde_ptr = points to a file-descriptive entry
;
;Output:        A = first byte of fde, or $FF if the filename is blanks
;               X = preserved
;               Y = preserved
;               P = nvmxdizc
;                   ..000.|.___ Z is conditioned for A
;               b = k
;
;======================================================================
load_fde_flag	PROC

		lda [fde_ptr]
		and #$00ff
		beq @done	;beyond end of catalog--done
		cmp #$00ff
		beq @done	;a real deleted entry--done

*** If all 30 filename characters are blank, simulate a deleted entry
		phy
		phx

		ldx #15
		ldy #fde_name
@search		lda [fde_ptr],y
		cmp #$A0A0	;blanks?
		bne @nonBlank
		iny
		iny
		dex
		bne @search

		lda #$00ff	;all blanks--simulate a deleted entry
		bra @leave

@nonBlank	lda [fde_ptr]
@leave		plx
		ply

@done		and #$00FF
		rts

		ENDP

;======================================================================
;cmp_string	Compare two class 1 strings pointed to by str1 and str2.
;		Str2 is masked with cmp_mask.  Maximum length is $8000
;		bytes.
; 
;Enter:         JSR
;
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..0
;               b = k
;
;		str1_ptr = longword pointer to one string, usually from GS/OS
;		str2_ptr = longword pointer to other string, possibly with high bits set,
;			   usually from DOS.  This string gets masked with cmp_mask.
;		cmp_mask = 8-bit value to be ANDed with each character in str2.
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..|___ high = compare false, low = compare true
;               b = k
;
;uses:		Good for comparing two strings.
; 
;======================================================================



			;let's try this using LONG accumulator!
cmp_string	PROCNAME		;compare two strings
		lda [str1_ptr]		;get string length
		cmp [str2_ptr]
		bne @different		;if they're not even the same length...
		tay
		bpl @ok
		ldy #$7FFF		;in the unlikely event that y is greater than $7FFF, itÉ
					;Éis truncated to $7FFF
@ok		iny			;point to last character

		sep #%00100000		;work with bytes
		LONGA OFF
@loop		lda [str2_ptr],y	;y must be signed POSITIVE
		and cmp_mask		;user mask, maybe to strip high bit?
		cmp [str1_ptr],y
		bne @different
		dey
		bpl @loop
		rep #%00100001		;16-bit accum, carry clear
		rts
@different	sec
		rep #%00100000		;16-bit accum
		rts
		LONGA ON
		
		ENDP


allocate_vcr	PROCNAME		;find old VCR or allocate new one for volumeÉ
					;Éfound by the "volume" subroutine

		;enter with
		;	volname_buf_ptr		points to volume name


		import load_cat_secs
		import find_vol_online


		;brk $A4

		;do we need to allocate a VCR for this volume?

		jsr match_vcr		;find vcr for volume name in volname_buf_ptr
		bcc @ok

		lda #dup_volume		;return with duplicate_volume error
		rts
@ok
		beq find_vol		;no match, find volume and allocate a new VCR
		brl have_vcr		;if we got a match, don't allocate new VCR
find_vol
		jsr find_vol_online	; supposed_dev is setup by the caller of allocate_vcr
		bcc req_vcr

		lda #vol_not_found
		rts
req_vcr
		lda #vcr_size
		;ldx #<vol_name_buf
		;ldy #^vol_name_buf
		ldx <volname_buf_ptr
		ldy <volname_buf_ptr+2
		jsl alloc_vcr

		;brk $AA

		bcc @ok
		lda #out_of_mem		;can't get new vcr
		rts			;return carry set
@ok
		jsl deref
		stx <vcr_ptr
		sty <vcr_ptr+2

		lda #$8000
		tsb vcr_fcr_flags	;set flag to say we allocated a VCR
fill_new_vcr
		lda gen_buf_vp
		ora gen_buf_vp+2	;is there a valid buffer?
		bne @have_gen_buf
@get_gen_buf
		lda #gen_buf_size	;let's get some buffer space for the vtoc & directory
		jsl alloc_seg
		bcc @got_buf
		lda #out_of_mem		;can't get buffer space
		bra vol_vcr_err
@got_buf
		stx gen_buf_vp		;4K buffer used by volume routine
		sty gen_buf_vp+2
@have_gen_buf
		ldy #vcr_fst_id
		lda #my_id
		sta [vcr_ptr],y

		ldy #vcr_open_cnt
		;lda #$FFFF		;this value will prevent a swap-out, but we understandÉ
					;Éit to be 0
		lda #0
		sta [vcr_ptr],y		;set open count to 0 since we just allocated this vcr

		ldy #vcr_dev
		lda <drvr_dev_num	;where did we find the disk?
		sta [vcr_ptr],y

		ldy #vcr_buf_vp		;index to virtual pointer to vtoc & directory buffers
		lda gen_buf_vp		;transfer the vp's for the general bufferÉ
					;Éto the vol_buf now that we knowÉ
					;Éthat we want to keep them
		tax			;save for deref
		sta [vcr_ptr],y
		iny
		iny
		lda gen_buf_vp+2
		sta [vcr_ptr],y
		tay			;set up for deref
		jsl deref

		stx vol_buf_ptr		;set up for rest of the FST
		sty vol_buf_ptr+2

		stz gen_buf_vp		;nail the original vp's so that we knowÉ
		stz gen_buf_vp+2	;Énot to release them later
load
		ldy  #vcr_open_cnt	; prevent swap out of vcr
		lda  [<vcr_ptr],y
		inc  a
		sta  [<vcr_ptr],y
		
		jsr load_cat_secs	;load catalog sectors into vol_buf
		
		php
		pha
		
		ldy  #vcr_open_cnt	; restore original count
		lda  [<vcr_ptr],y
		dec  a
		sta  [<vcr_ptr],y
		
		pla
		plp
		
		bcc load_ok
vol_vcr_err
		pha			;save error code
@cancel_vcr
		ldy #vcr_open_cnt
		lda #$0000
		sta [vcr_ptr],y		;must zero the open count to release it!

		ldy #vcr_id
		lda [vcr_ptr],y		;get ID of the VCR
		jsl release_vcr		;this invokes sys_remove_vol call to this fst

		lda #$8000
		trb vcr_fcr_flags	;clear flag since we deallocated the VCR

		pla			;restore error
		sec
		rts

load_ok
		lda cat_sec_count	;enter catalog sector count into VCR
		ldy #vcr_cat_sec_count
		sta [vcr_ptr],y

		bra vol_exit

have_vcr
				;update old VCR
		ldy #vcr_buf_vp		;get the vcr's buffer set up
		lda [vcr_ptr],y
		tax
		iny
		iny
		lda [vcr_ptr],y
		tay
		jsl deref

		stx vol_buf_ptr
		sty vol_buf_ptr+2

		ldy #vcr_dev
		lda <drvr_dev_num	;where did we find the disk?
		sta [vcr_ptr],y
vol_exit
		;lda gen_buf_vp		;we may have to release this segment
		;tax			;save in case it's valid
		;ora gen_buf_vp+2	;null vp?
		;beq @skip3

		;ldy gen_buf_vp+2
		;jsl release_seg		;release unused gen buf
@skip3

		clc
		rts			;that's all, folks!


		ENDP



volume		PROCNAME		;check a device for a valid DOS 3.3 disk
					;caller must set device in drvr_dev_num
					;returns a volume name in vol_name_ptr
					;carry set means that a DOS 3.3 disk wasÉ
					;Énot found.

		
		lda <gen_buf_ptr
		sta <drvr_buf_ptr
		lda <gen_buf_ptr+2
		sta <drvr_buf_ptr+2
		lda #drvr_read
		sta <drvr_call_num
		lda #$0011		;get VTOC, always at track 17, sector 0
		jsr new_rwts		;make driver call
		bcc @ok

		rts			;return error

@ok			;so, is it a DOS volume?

		;brk 99

		sep #$30		;work with bytes
		LONGI OFF
		LONGA OFF

		ldx #id_tbl_end-id_values-1	;point to last entry in id tables
@loop1		lda id_offset,x		;get offset into VTOC
		tay
@loop2		lda [drvr_buf_ptr],y	;get the actual value
		cmp id_values,x		;compare to the table value
		bne @false		;not the same

@loop3		dex
		bmi confirmed		;table finished

		tya
		cmp id_offset,x		;skip over other entries for same position
		beq @loop3

		bra @loop1		;move on to next compare

@false		dex
		bmi @failed

		tya
		cmp id_offset,x		;see if there's an alternate value for that offset
		beq @loop2		;yes, get a second chance

@failed		sec
		
		rep #$30		;word accum
		LONGA ON
		LONGI ON

		lda #unknown_vol	;return bouncing error
		rts			;sorry, not a DOS volume

confirmed		;well, it looks like a DOS 3.3 volume!
		
		rep #$31		;word accum, carry clear
		LONGA ON
		LONGI ON
		
		;now we must load the first directory sector!
		ldy #vtoc_cat_link	;get the link to first catalog sector
		lda [drvr_buf_ptr],y
		bne @ok
		lda #dir_error		;this is a weird error
		rts
@ok
		pha			;save this for a minute
		lda <drvr_buf_ptr
		sta <gen_buf_ptr
		clc
		adc  #$0100		;bump by a page
		sta <drvr_buf_ptr
		lda <drvr_buf_ptr+2
		sta <gen_buf_ptr+2
		adc #$0000
		sta <drvr_buf_ptr+2
		lda #drvr_read
		sta <drvr_call_num
		pla			;get back the track/sector
		jsr new_rwts		;read the sector
		bcc @ok1

;		lda #error		;device error
		rts

@ok1
generate_name			;now generate the name
		ldy #$01FE		;point to end of area to be checksummed
		lda #$0000		;seed the checksum
		clc			;this is part of the seed
@loop		eor [gen_buf_ptr],y
		ror a			;scramble bits
		bpl @1			;random condition

		eor #$7FFF		;conditional flip of all but high bit
@1		dey
		dey
		bpl @loop
			;we now have a 16-bit checksum in the accumulator
		sta chksum

;		and #$F800		;take the high five bits
;		lsr a
;		lsr a			;use it as an index into word table
;		xba
;		tax
		ldx #0			;we no longer use the table of names
		lda name_tabl,x		;this table contains word pointers to 2 bytesÉ
		sta <namegen_ptr	;Ébefore name strings

copy_alpha		;now copy the alphabetic part of the generated name to the buffer

		sep #%00100000		;work with bytes
		LONGA OFF

		ldy #$0002		;we need this offset for the g-string

@loop
		lda (namegen_ptr),y
		beq @done
		sta (vol_name_ptr),y
		iny
		cpy #alpha_len_limit	;just in case, we don't want to overflow our buffer
		bne @loop
@done
		
		rep #%00100000
		LONGA ON

bcd		stz bcd_result		;we're going to do a BCD calculation
		stz bcd_result+2	;1 *byte*/digit
		lda chksum
		and #$07FF		;get lowest 11 bits
		sta bin_temp
@1000		sec
		sbc #1000
		bcc @100
		sta bin_temp
		lda bcd_result
		adc #$1-1		;carry is set
		sta bcd_result
		lda bin_temp
		bra @1000
@100		lda bin_temp
		sec
		sbc #100
		bcc @10
		sta bin_temp
		lda bcd_result
		adc #$100-1		;carry is set
		sta bcd_result
		bra @100
@10		lda bin_temp
		sec
		sbc #10
		bcc @almost_done
		sta bin_temp
		lda bcd_result+2
		adc #$1-1		;carry is set
		sta bcd_result+2
		bra @10
@almost_done
		;brk $ED

		lda bin_temp
		xba
		adc bcd_result+2	;take care of ones place.  carry is clear
		sta bcd_result+2
		
		;we should now have the bcd value of lower 11 bits of the checksum in bcd_result.
		lda bcd_result
		adc #'00'		;get ascii for this digit.  carry is clear.
		sta (vol_name_ptr),y
		iny
		iny
		lda bcd_result+2
		adc #'00'		;get ascii for this digit.  carry is clear.
		sta (vol_name_ptr),y
		iny
		iny
		lda #$0000
		sta (vol_name_ptr),y
@done2	
		dey
		dey			;adjust to find name length
		tya
		sta (vol_name_ptr)	;this completes the g-string
;we are done generating the name
		
		rep #$31		;long accum, carry clear
		LONGA ON
		LONGI ON
		
		lda #$8000
		sta error_priority	;any error now has priority
		
		rts

;	1/4/91	jev	Removed table of volume names.  It was felt that it would not be
;			appropriate to use the names from Prinston and that just DOS 3.3
;			was what was aggreed on.

name_tabl		;this table contains word pointers to 3 bytes before the name strings
		dc.w name1 - 2
;		dc.w name2 - 2
;		dc.w name3 - 2
;		dc.w name4 - 2
;		dc.w name5 - 2
;		dc.w name6 - 2
;		dc.w name7 - 2
;		dc.w name8 - 2
;		dc.w name9 - 2
;		dc.w name10 - 2
;		dc.w name11 - 2
;		dc.w name12 - 2
;		dc.w name13 - 2
;		dc.w name14 - 2
;		dc.w name15 - 2
;		dc.w name16 - 2
;		dc.w name17 - 2
;		dc.w name18 - 2
;		dc.w name19 - 2
;		dc.w name20 - 2
;		dc.w name21 - 2
;		dc.w name22 - 2
;		dc.w name23 - 2
;		dc.w name24 - 2
;		dc.w name25 - 2
;		dc.w name26 - 2
;		dc.w name27 - 2
;		dc.w name28 - 2
;		dc.w name29 - 2
;		dc.w name30 - 2
;		dc.w name31 - 2
;		dc.w name32 - 2

		;now we have the actual name data:

		string C

name1		dc.b 'DOS 3.3 v'
; name2		dc.b 'HAMILTON'
; name3		dc.b 'DOD'
; name4		dc.b 'HENRY'
; name5		dc.b 'EDWARDS'
; name6		dc.b 'HOLDER'
; name7		dc.b 'WITHERSPOON'
; name8		dc.b 'PYNE'
; name9		dc.b 'SPELMAN'
; name10		dc.b 'MCCOSH'
; name11		dc.b 'WOOLWORTH'
; name12		dc.b 'PALMER'
; name13		dc.b 'JADWIN'
; name14		dc.b 'DILLON'
; name15		dc.b 'PROSPECT'
; name16		dc.b 'ALEXANDER'
; name17		dc.b 'FINE'
; name18		dc.b 'EQUAD'
; name19		dc.b 'FIRESTONE'
; name20		dc.b 'MATHEY'
; name21		dc.b 'NASSAU'
; name22		dc.b 'KRESGE'
; name23		dc.b 'MCCORMICK'
; name24		dc.b 'CLAPP'
; name25		dc.b 'WAWA'
; name26		dc.b 'TI'
; name27		dc.b 'CHARTER'
; name28		dc.b 'ELM'
; name29		dc.b 'COLONIAL'
; name30		dc.b 'QUAD'
; name31		dc.b 'TERRACE'
; name32		dc.b 'CAMPUS'


id_offset		;these are offsets into the VTOC of bytes which are checked in order
			;to determine whether a disk is DOS 3.3 format:

		dc.b $3		;DOS release #
		dc.b $27	;# of T/S pairs per T/S list sector
		dc.b $36,$37	;# of bytes per sector
		dc.b $31,$31	;direction of track allocation (2 possible values)
		dc.b $34,$34	;# of tracks per disk (2 possible values??)
		dc.b $35,$35	;# of sectors per track (2 possible values??)


id_values		;these are the actual values required for a DOS 3.3 disk:

		dc.b 3		;DOS release #
		dc.b $7A	;# of T/S pairs per T/S list sector
		dc.b $00,$01	;# of bytes per sector
		dc.b $01,$FF	;direction of track allocation (2 possible values)
		dc.b 35,50	;# of tracks per disk (2 possible values??)
		dc.b 16,32	;# of sectors per track (2 possible values??)
id_tbl_end

			;storage area
chksum		ds 1
bin_temp	ds 1
bcd_result	ds.l 1

		ENDP



throw_away	PROCNAME		;try to throw away the current vcr

		ldy #vcr_open_cnt
		lda [vcr_ptr],y		;see if I can throw this away
		beq go_ahead
		sec			;we can't throw it away
		rts

go_ahead	ldy #vcr_id
		lda [vcr_ptr],y
		jsl release_vcr
		clc
		rts

		ENDP


cmp_vol_vcr	PROCNAME		;compare vcr buffers to region read in by "volume" routine

		ldy #vcr_buf_vp
		lda [vcr_ptr],y		;set up some real pointers to this vcr's buffers
		tax
		iny
		iny
		lda [vcr_ptr],y
		tay
		jsl deref
		stx <ptr1
		sty <ptr1+2		;we are now ready to compare buffers
		ldy #$01FE		;set index for compare
@loop2
		lda [vol_buf_ptr],y	;get word from VOLUME routine
		cmp [ptr1],y		;match with word from VCR
		bne @different		;if any difference, go on to next dev

		dey
		dey
		bpl @loop2
@same
		clc	;if we get this far then they're identical
		rts
@different
		sec
		rts

		ENDP


device_id	PROCNAME		;get the device ID of given device
					;on entry:
					;	<drvr_dev_num must contain the number of the device

					;on exit:
					;	carry clear: Accumulator contains device ID
					;	carry set: Accumulator contains device error
	if 0 then
		lda #drvr_status
		sta <drvr_call_num
		lda #$0002
		sta <drvr_req_cnt	;we'd like just a word
		stz <drvr_req_cnt+2
		lda #ptr1 OR direct_base	;use this direct-page loc for the lousy 2 bytes
		sta <drvr_slist_ptr
		stz <drvr_slist_ptr+2
		stz <drvr_stat_code	;$0000 means get device status
		jsl dev_dispatcher
		bcc @ok
		rts			;return with driver error
@ok
		ldy #$34		;offset to device ID in DIB
		lda [drvr_dib_ptr],y	;get the device id

		rts
	else
		lda <drvr_dev_num
		pha			;save for restoration
		sta <drvr_buf_ptr	;store for dispatcher's use
		stz <drvr_dev_num	;call the dispatcher directly
		lda #$0001		;call to get_dib_ptr
		sta <drvr_call_num
		jsl dev_dispatcher	;call the dispatcher
		ply			;restore device number
		sty <drvr_dev_num
		bcs @done		;just punt on error
		ldy #$34		;offset to device ID in DIB
		lda [drvr_dib_ptr],y	;get the device id
@done
		rts
	endif

		ENDP


find_vol_online	PROCNAME	;look for a volume in online devices

			;enter with:
			;	volume name as g-string in volname_buf_ptr
			;	supposed_dev contains the number of the device where we expectÉ
			;	Éto find the volume or 0 to walk all devices

		;brk $05

		ldx supposed_dev
		bne recover_loop	;this is the case where we look for a lost disk
simple_loop				;this is the easy case: walk the device list
@dev_loop
		inx
		stx <drvr_dev_num
		jsr volume		;who's in that drive?
		bcc @chk_name		;my disk, verify that it's the right name
		cmp #invalid_dev_num	;see if out of devices
		;bne @next
		beq not_found		;end of devs
@next
		ldx <drvr_dev_num	;restore
		bra @dev_loop
@chk_name
		lda volname_buf_ptr	;set up pointers for cmp_string
		sta <str1_ptr
		lda volname_buf_ptr+2
		sta <str1_ptr+2
		lda vol_name_ptr
		sta <str2_ptr
		lda #^vol_name_buf
		sta <str2_ptr+2

		lda #$00FF
		sta cmp_mask		;bit mask for ASCII characters
		jsr cmp_string		;are the names the same?
		bcc found		;right disk!
		stz error_priority	;wrong disk, clear the error proirity		
		bra @next		;look for another

recover_loop			;find a lost disk
		stx <drvr_dev_num	;start with the suspected location. X contains supposed_dev
		jsr device_id		;get that device's ID

		bcc @ok
		rts			;return with driver error
@ok
		sta dev_id		;save this value

@loop
		jsr volume
		bcc @chk_name2
		cmp #invalid_dev_num	;see if out of devices
		bne @next2
@wrap
		stz <drvr_dev_num	;wrap down to start of list
@next2
		ldx <drvr_dev_num
		inx
		cpx supposed_dev	;have we come full circle?
		beq not_found		;if so, we're done

		stx <drvr_dev_num
		jsr device_id		;get that device's ID

		bcc @ok1
		cmp #invalid_dev_num
		beq @wrap
		rts			;return with driver error
@ok1
		cmp dev_id		;same type of device?
		beq @loop
		bra @next2		
@chk_name2
		lda volname_buf_ptr	;set up pointers for cmp_string
		sta str1_ptr
		lda volname_buf_ptr+2
		sta str1_ptr+2
		lda vol_name_ptr
		sta str2_ptr
		lda #^vol_name_buf
		sta str2_ptr+2
		lda #$00FF
		sta cmp_mask
		jsr cmp_string		;are the names the same?
		bcs @next2		;wrong disk

found			;right disk
		clc
		rts

not_found	lda  #vol_not_found
		sec
		rts

dev_id		ds 1

		ENDP


search_fcr	PROCNAME	;find an fcr by name in file_name_ptr
				;checks that fcr belongs to vcr in vcr_ptr

		stz old_fcr		;if we find a dup fcr, we'll save its number here
		stz fcr_index		;walk the fcr's
loop		inc fcr_index
		lda fcr_index
		jsl get_fcr
		bcs not_found		;no match

@ok1		jsl deref
		stx old_fcr_ptr
		sty old_fcr_ptr+2
		ldy #fcr_fst_id
		lda [old_fcr_ptr],y	;is it mine?
		cmp #my_id
		bne loop
		ldy #fcr_vcr_id
		lda [old_fcr_ptr],y
		ldy #vcr_id
		cmp [vcr_ptr],y		;does it belong to the right volume?
		bne loop
		ldy #fcr_type
		lda [old_fcr_ptr],y	;get filetype
		cmp #$000F		;is it a directory file?
		beq loop
		ldy #fcr_path_name
		lda [old_fcr_ptr],y		;get virtual pointer to the pathname
		tax
		iny
		iny
		lda [old_fcr_ptr],y
		tay
		jsl deref
		stx src_scratch
		sty src_scratch+2
parse					;now parse off file name
		sep #$20
		longa off

		ldy #4-1		;start with second valid character
@loop2
		iny
		lda [src_scratch],y
		cmp #':'		;look for colon before filename
		bne @loop2

		ldx #2-1		;init ptr to dest string
@loop3
		iny			;now copy filename to scratch buffer
		inx
		lda [src_scratch],y
		sta scratch_str_buf,x
		bne @loop3		;if last character wasn't null, keep going

		rep #$30
		longa on

		txa			;get final pointer
		dec a
		dec a			;adjust to string length
		sta scratch_str_buf	;set length

		ldx #<scratch_str_buf
		ldy #^scratch_str_buf

		stx <str2_ptr
		sty <str2_ptr+2
			;now set up for compare and see if the name matches
		lda <file_name_ptr
		sta <str1_ptr
		lda #^file_buf
		sta <str1_ptr+2
		jsr cmp_string
		bcs loop		;try next fcr in vcr's list
			;at this point, we've found an fcr for a previous open of this file
		lda fcr_index
		sta old_fcr
@found_exit
		clc
not_found
		rts

		ENDP


parse_path	PROCNAME	;parse off the path1 string into volume and filename.
				;outputs are g-strings pointed to by volname_buf_ptr (vol name)É
				;Éand file_name_ptr.  These strings will contain null lengthÉ
				;Éwords if they do not exist.
				;this proc also checks length and syntax and returnsÉ
				;Éwith carry set if they are not valid.
		lda <path_flag
		and #$4000		;make sure path1 is valid
		bne @continue

@null		rep  #$30		; ensure 16bit mode

		lda #$0000		;null out the strings
		ldy #$0001
		sta [volname_buf_ptr],y	;this takes care of the terminator nulls
		sta (file_name_ptr),y
		sta [volname_buf_ptr]	;this takes care of the length words
		sta (file_name_ptr)
		clc
		rts
@continue					
		sep #%00100000		;work with bytes
		LONGA OFF

		ldy #$0002		;start of path1 string after length word
		lda [path1_ptr],y	;get char
		beq @null		;if terminator, set strings to null
		cmp #':'
		bne filename0
		
vol					;parse volume name
@loop		iny
		lda [path1_ptr],y
		beq vol_end		;null means end of path string
		cmp #':'
		beq vol_end		;colon means end of the volume name
		dey			;adjust for destination index
		sta [volname_buf_ptr],y
		iny			;adjust back
		cpy #vol_max_char+3	;over the volume name length limit?
		bcc @loop
vol_end
		dey			;index past last char in dest
		lda #$00
		sta [volname_buf_ptr],y	;place terminator

		rep #%00100001		;clear carry as well
		LONGA ON

		tya
		sbc #2-1		;adjust for length.  carry is clear
		sta [volname_buf_ptr]	;set the length word
		iny
		lda [path1_ptr],y	;refresh my memory...
		and #$00FF
		bne filename
		lda #$0000		;null out the strings
		ldy #$0001
		sta (file_name_ptr),y	;there is no filename
		sta (file_name_ptr)
		
; We need to check to see if there might be a second pathname and if it might be bad.
; We do this because we are a good FST and we need to return the right error for calls
; like change path.
check2		lda path_flag
		and #path2_mask		; is there a second path
		bne check_path2		; if so check it out.
		clc
		rts
bad_span	sec
		rts
check_path2	lda span2
		beq bad_span
		cmp #$001F		; carry is set if too big.
		rts

filename0	dey			;adjustment
filename
		ldx #$0002
		stx temp_index		;this will be our index to the destination string

		sep #%00100000		;work with bytes
		LONGA OFF
@loop		iny
		lda [path1_ptr],y
		beq fn_end
		cmp #':'
		beq error		;sorry, can't have subdirectories!
		tyx			;save source index
		ldy temp_index		;get dest index
		cmp #','
		bne @not_comma
		lda #':'		;translate commas to colons
@not_comma
		sta (file_name_ptr),y
		iny
		cpy #fn_max_char+4
		bcs error
		sty temp_index
		txy
		bra @loop
fn_end
		ldy temp_index
		sta (file_name_ptr),y	;accum contains zero

		rep #%00100000
		LONGA ON
		tya
		dec a
		dec a			;adjust for length
		sta (file_name_ptr)	;set length word
		bra check2		;we're done with path1, now check path 2
error
		rep #%00100000
		LONGA ON
		sec
		rts

temp_index	ds 1

		ENDP


find_eof	PROCNAME	;find the eof and aux_type for a file on an online volume

	;on entry:
	;		volume's directory must be in vol_buf_ptr
	;		dev_num must be set up
	;		accum should contain T/S of first T/S list sector

	;on exit:
	;		X = eof (low)
	;		Y = eof (high)
	;
	;	for Text, A-, B-, S-types:
	;		A = total number of sectors used
	;
	;	for Bin, Asoft, Int, Rel
	;		A = aux_type


		ldx <fcr_buf_ptr	;set up buffer for driver
		stx <drvr_buf_ptr
		ldx <fcr_buf_ptr+2
		stx <drvr_buf_ptr+2
		stz data_secs_cnt
		stz ts_secs_cnt
		stz eof_scratch
		stz eof_scratch+2
				;load sectors with useful info -->T/S list & 1 data sect
		pha
		phy
		ldy  #vcr_open_cnt
		lda  [<vcr_ptr],y
		inc  a
		sta  [<vcr_ptr],y
		ply
		pla
		jsr new_rwts		;read in 1st T/S list sector
		php
		pha
		phy
		ldy  #vcr_open_cnt
		lda  [<vcr_ptr],y
		dec  a
		sta  [<vcr_ptr],y
		ply
		pla
		plp
		
		bcc @ok1
		rts			;return with driver error
@ok1
		lda dos_type		;this should contain the dos filetype
		beq text		;text may be sparse
		and #$0017		;check for "easy" types: Int, Asoft, Bin, Rel
		beq not_easy
		brl easy		;go handle easy types
not_easy
@count
		ldy #ts_list_start	;point to start of t/s list entries
		inc ts_secs_cnt		;count T/S list sector
@loop
		lda [drvr_buf_ptr],y	;get the entry
		beq @empty
		inc data_secs_cnt	;keep count of actual blocks used
		iny
		iny			;next entry
		cpy #$0100
		bne @loop		;get next unless we overflowed
		lda #drvr_read
		sta <drvr_call_num
		ldy #ts_link		;offset in T/S sector to link bytes
		lda [fcr_buf_ptr],y	;get the links
		beq @done		;$0000 means no more links --> last T/S list sector

		pha
		phy
		ldy  #vcr_open_cnt
		lda  [<vcr_ptr],y
		inc  a
		sta  [<vcr_ptr],y
		ply
		pla
		jsr new_rwts		;load next T/S list
		php
		pha
		phy
		ldy  #vcr_open_cnt
		lda  [<vcr_ptr],y
		dec  a
		sta  [<vcr_ptr],y
		ply
		pla
		plp

		bcc @count		;if good, count valid t/s entries
		rts			;return with driver error
@empty
@done
				;assume file is all bytes in all allocated sectors
				;calculate: eof = (sectors used) * 256
		lda data_secs_cnt	;get the number of data sectors used
		xba			;multiply low byte by 256
		tax			;save this value
		and #$FF00		;clear (former) high byte
		sta eof_scratch
		txa			;get back that flipped sector count
		and #$00FF		;now we want the other half
		sta eof_scratch+2	;all done!
		lda data_secs_cnt
		clc
		adc ts_secs_cnt		;find total number of sectors used
		brl eof_exit
text
@count
		ldx #ts_list_start	;init offset to 1st entry in case all are 0
					;** Monte Benaresh -- 2/20/92
		ldy #ts_list_start	;point to start of T/S list entries
		inc ts_secs_cnt		;count T/S list sector
@loop
		lda [drvr_buf_ptr],y	;get the entry
		beq @empty
		tyx			;save in case it's the last non-zero
		inc data_secs_cnt
@empty
		iny
		iny			;next entry
		cpy #$0100
		bne @loop		;get next unless we overflowed
		lda #drvr_read
		sta <drvr_call_num
		ldy #ts_link		;offset in T/S sector to link bytes
		lda [fcr_buf_ptr],y	;get the links
		beq @done		;$0000 means no more links --> last T/S list sector

		pha
		phy
		ldy  #vcr_open_cnt
		lda  [<vcr_ptr],y
		inc  a
		sta  [<vcr_ptr],y
		ply
		pla
		jsr new_rwts		;next t/s list
		php
		pha
		phy
		ldy  #vcr_open_cnt
		lda  [<vcr_ptr],y
		dec  a
		sta  [<vcr_ptr],y
		ply
		pla
		plp
		bcc @count		;if good, count valid t/s entries
		rts			;return with driver error

@done			;we have the last T/S list sector for a text file.
get_eof			;now we have to find the last valid (non-0) sector in the list
		txa			;get that entry position so we can calculate
		sec
		sbc #ts_list_start	;subtract the offset to start of T/S list
		lsr a			;divide by 2 to get # of sectors
		xba			;turn it into a byte value
		sta eof_scratch		;store temporary result = # of bytes in all but lastÉ
					;Édata sector in this T/S list
		lda <drvr_buf_ptr
		adc #$0100		;incr bufer ptr to next pg. carry should be clear
		sta <drvr_buf_ptr
		bcc @no_carry
		inc <drvr_buf_ptr+2
@no_carry
		lda #drvr_read
		sta <drvr_call_num
		txy			;restore the index
		lda [fcr_buf_ptr],y
		sta last_data_sec	;save this number in case we're successful
;
;	next added 2/20/92 by Monte Benaresh
		bne @real_sector
@no_sector
		ldy #-1			;will get incremented to 0 for eof
		bra found_eof		;calculate now
@real_sector
;	end 2/20/92
		pha
		phy
		ldy  #vcr_open_cnt
		lda  [<vcr_ptr],y
		inc  a
		sta  [<vcr_ptr],y
		ply
		pla
		jsr new_rwts		;load in that last data sector
		php
		pha
		phy
		ldy  #vcr_open_cnt
		lda  [<vcr_ptr],y
		dec  a
		sta  [<vcr_ptr],y
		ply
		pla
		plp

		bcc @ok
;		lda #error		return with driver error
		rts
@ok
		;may need special check for case where data fills last sec exactly!
		ldy #$00FF		;offset to last byte
		
		sep #%00100000		;work with bytes
		LONGA OFF
@loop2		lda [drvr_buf_ptr],y
		bne found_eof		;when we hit a non-0, that's eof-1
		dey			;back up to next one
		bpl @loop2		;keep going as long as we don't hit bottom
					;if we hit bottom, just set eof to end at end of lastÉ
					;Ésector.  in effect this causes the fst to ignore theÉ
					;Ézero-filled sector.
found_eof	rep #%00100001		;clear carry, too
		LONGA ON
		iny			;eof points to *next* byte
		tyx			;save that byte part
		ldy #ts_sec_offset	;offset to offset number of 1st sector in this list
		lda [fcr_buf_ptr],y	;get sector offset word
		xba
		tay
		and #$FF00		;keep high part --> byte offset
		adc eof_scratch		;build this value.  carry is clear from above
		sta eof_scratch
		tya
		and #$00FF		;this is byte offset for the high word
		adc eof_scratch+2	;build high word with carry from low word
		sta eof_scratch+2
		txa			;get back that last byte part
		adc eof_scratch		;carry should be clear
		sta eof_scratch
		lda eof_scratch+2
		adc #$0000
		sta eof_scratch+2
				;find blks_used
		lda data_secs_cnt
		clc
		adc ts_secs_cnt		;find total number of sectors used
		bra eof_exit
		
easy				;filetypes Asoft, Int, Bin, and Rel contain their eof's!
		lda <drvr_buf_ptr
		clc
		adc #$0100		;incr buffer ptr to next pg.
		sta <drvr_buf_ptr
		lda <drvr_buf_ptr+2
		adc #$0000		;carry bank
		sta <drvr_buf_ptr+2
		lda #drvr_read
		sta <drvr_call_num
		ldy #ts_list_start	;offset to start of list entries
		lda [fcr_buf_ptr],y	;get first data sector
		sta last_data_sec
		pha
		phy
		ldy  #vcr_open_cnt
		lda  [<vcr_ptr],y
		inc  a
		sta  [<vcr_ptr],y
		ply
		pla
		jsr new_rwts		;load in that last data sector
		php
		pha
		phy
		ldy  #vcr_open_cnt
		lda  [<vcr_ptr],y
		dec  a
		sta  [<vcr_ptr],y
		ply
		pla
		plp
		bcc @ok
;		lda #error		return with driver error
		rts
@ok

		lda dos_type
		ldy #$0000		;offset to length bytes for Applesoft & Integer
		and #Å$FF83		;mask out Applesoft, Integer and lock bits
		beq @get_len		;get the length bytes
		ldy #$0002		;offset for binary and relocatable
@get_len
		lda [drvr_buf_ptr],y
		sta eof_scratch		;that's the eof, period.
		lda #$0000
		sta eof_scratch+2	;never a high word for these filetypes
@get_aux			;find the aux type
		lda dos_type
		and #Å$FF84		;mask out Binary
		beq @bin
		cmp #$0001		;is it integer?
		bne @apsoft
		lda #$0C00
		bra eof_done
@apsoft
		lda #$0801
		bra eof_done
@bin		lda [drvr_buf_ptr]	;for reloc & binary, 1st word is aux_type!
		
eof_done	;we now have the eof, for every type, stored safely in eof_scratch
eof_exit	ldx eof_scratch
		ldy eof_scratch+2	;load eof into X & Y for caller
				;on exit, A should contain either aux_type or blks_used
		clc
		rts

eof_scratch	ds.l 1
data_secs_cnt	ds 1
ts_secs_cnt	ds 1

		ENDP


load_cat_secs	PROCNAME	;load the catalog sectors into vol_buf_ptr, up toÉ
				;Émax of 15 total

				;at this point, the vtoc and the first catalog sector
				;have been read in by the subroutine "volume"
		lda <vol_buf_ptr
		clc
		adc #$0100		;set to first cat sector
		sta <drvr_buf_ptr
		lda <vol_buf_ptr+2
		adc #$0000		;carry bank
		sta <drvr_buf_ptr+2
		ldx #14			;max number of additional cat sectors
		stx countdn
@loop
		ldy #$0001		;offset to LINK BYTES in LAST CAT SECTOR
		lda [drvr_buf_ptr],y	;get track/sector of next cat sector
		beq @cat_done		;last cat sector
					;range checking?
		pha
		lda <drvr_buf_ptr
		adc #$0100		;bump to next sector.  carry should be clear
		sta <drvr_buf_ptr
		lda <drvr_buf_ptr+2
		adc #$0000		;carry bank
		sta <drvr_buf_ptr+2
		lda #drvr_read
		sta <drvr_call_num
		pla			;restore track/sector request
		jsr new_rwts		;go get it
		bcc @ok
;		lda #error		return with driver error
		rts
@ok		dec countdn
		bne @loop
@cat_done
		lda #15
		sec
		sbc countdn		;total # of cat sectors
		sta cat_sec_count	;this is the number of catalog sectors read in

		clc
		rts

countdn		ds 1

		ENDP



check_dir	PROCNAME	;check the directory sectors in vol_buf_ptr forÉ
				;Éthe filename in file_name_ptr
		lda file_name_ptr
		sta str1_ptr
		lda #^file_buf
		sta str1_ptr+2
		lda #$0000		;cat sector numbers start at 0
@cat_loop	ldx #$0000		;same for fde's
@fde_loop	sta cat_index
		stx fde_index			;save these
		jsr find_fde
		bcc @ok
;		lda #parm_range_err OR $8000	;internal range error
		rts			;error
@ok
*** changed 6-May-93 DAL
;;;		lda [fde_ptr]		;first byte tells whether in use
;;;		and #$00FF
		jsr load_fde_flag
*** end 6-May-93

		beq file_not_here	;a $00 means beyond last entry
		cmp #$00FF
		beq @next_fde		;inactive, go to next one
		lda <fde_ptr
		adc #fde_name-2		;add offset to name field w/room for length word.
					;carry should be clear
		sta <str2_ptr
		lda <fde_ptr+2
		adc #$0000		;carry bank
		sta <str2_ptr+2
		ldy #$1D+2		;offset to last character in name
		lda [str2_ptr]		;save this word before we crash it with length
		pha
		
		sep #%00100000		;work with bytes
		LONGA OFF
@loop		lda [str2_ptr],y	;borrow this pointer before we give it to cmp_string
		cmp #' ' OR $80		;check for spaces used as padding (w/high bit set)
		bne @nam_end
		dey
		bpl @loop		;as long as we don't hit bottom, keep going
;		lda #dir_error		;name is all spaces!
		plx

		rep #$30		;long a,x
		sec
		rts
@nam_end
		dey			;adjust to string length
		lda #$7F
		sta cmp_mask		;set the compare mask

		rep #%00100000
		LONGA ON
		tya
		sta [str2_ptr]		;str2 is a g-string without the terminator
		jsr cmp_string		;str1_ptr should contain file_name_ptr
		pla			;restore that one word we stepped on
		sta [str2_ptr]
		bcc right_fde		;we got it!
@next_fde	ldx fde_index
		lda cat_index
		inx			;next fde
		cpx #$0007		;check limit of 7 fde's per cat sector
		bcc @fde_loop		;we're ok, check next fde
		ina			;next catalog sector
		cmp cat_sec_count	;past our limit?
		bcc @cat_loop		;move on to next cat sector
file_not_here		;file not on this volume
		lda #$FFFF
		sta fde_index		;indicate file not found
		clc
		rts

right_fde	clc			;success
		rts

		ENDP


		export do_option_list
do_option_list	PROCNAME	;return option list data to user buffer
				;enter with:
				;	Y = offset in param block to option list ptr

		;brk $05

		lda [param_blk_ptr],y
		sta <user_ptr
		iny
		iny
		lda [param_blk_ptr],y
		sta <user_ptr+2

		ora <user_ptr		;test for 0
		beq done		;if $00000000, don't use it!
list_good
		lda [user_ptr]		;get length word
		cmp #4+2		;need 4 bytes for overhead, 2 for data
		bcs @ok
@too_small
		sec			;this is an error
		rts
@ok
		lda #my_id		; my id is same as its length = 2
		tay
		sta [user_ptr],y
		iny
		iny 			;offset to actual buffer
		sta [user_ptr],y	;give user our FST ID
done
		clc
		rts			;that's all there is to it!

		ENDP


		export set_text_mode
set_text_mode	PROCNAME	;handle FST-specific call

		WITH fst_specific

		lda p_cnt
		cmp #3			;check pcount
		beq @pcount_ok

		lda #invalid_pcount
		sec
		rts
@pcount_ok
		ldy #param1		;get parameter
		lda [param_blk_ptr],y
		cmp #1+1		;range check
		bcc @mode_ok
@bad_mode
		lda #parm_range_err
		sec
		rts
@mode_ok
		sta text_flag

		lda #0			;no error
		clc
		rts

		ENDWITH

		ENDP


		export get_text_mode
get_text_mode	PROCNAME	;handle FST-specific call

		WITH fst_specific

		lda p_cnt
		cmp #3			;check pcount
		beq @pcount_ok

		lda #invalid_pcount
		sec
		rts
@pcount_ok
		lda text_flag
		ldy #param1		;get parameter
		sta [param_blk_ptr],y

		lda #0			;no error
		clc
		rts

		ENDWITH

		ENDP


get_file_info	PROCNAME	;get all necessary info for a file and stuff it intoÉ
				;Églobal variables
				;fde_ptr must point to the file's fde

		lda #storage_type	;if it's not the root directory, it gets this storage type
		sta stor_type

		ldy #fde_type
		lda [fde_ptr],y		;get the filetype
		tax

		and #$0080		;look at the lock bit
		bne @locked
		lda #access_unlocked
		bra @store

@locked
		lda #access_locked
@store
		sta access
		txa			;get back original fetch
		and #$007F		;mask out high byte and lock bit
		sta dos_type
translate_type		;determine corresponding filetype
		ldx #8
@loop
		lsr a
		bcs @lookup
		dex
		bne @loop
@lookup
		txa
		asl a			;multiply by two for table
		tax
		lda type_table,x
		sta os_type
		lda dos_type
		and #$0017		;is it basic, Bin, or Rel?
		beq not_easy
easy
		ldy #fde_ts_link
		lda [fde_ptr],y		;find_eof needs this
		jsr find_eof
		bcc @ok
		rts			;return with driver error
@ok
		sta aux_type
		stx eof
		sty eof+2
		ldy #fde_sec_used
		lda [fde_ptr],y		;we can trust the directory for these filetypes
		sta blks_used

		clc
		rts
not_easy
		ldy #fde_ts_link
		lda [fde_ptr],y		;find_eof needs this
		jsr find_eof
		bcc @ok
		rts			;return with driver error
@ok		sta blks_used
		stx eof
		sty eof+2
		stz aux_type

		rts			;carry is clear


type_table		;lookup table to translate DOS filetypes to GS/OS(TM)

;				 GS/OS type			DOS 3.3 type
;				 ----------			------------
	dc.w $04	;	ASCII Text File			Text
	dc.w $0F	;	Directory			(undefined)
	dc.w $00	;	uncatgegorized			B-type
	dc.w $00	;	uncatgegorized			A-type
	dc.w $FE	;	EDASM Relocatable Code File	Relocatable
	dc.w $00	;	uncatgegorized			S-type
	dc.w $06	;	Binary File			Binary
	dc.w $FC	;	Applesoft Basic Program		Applesoft Basic
	dc.w $FA	;	Integer Basic Program		Integer Basic
	dc.w $EE	;	Classic Auto			E-type

		ENDP


get_dir_entry	PROCNAME

		;brk $1C

		ldy  #vcr_dev		; even if we don't access the device, set this up
		lda  [<vcr_ptr],y	; for get_last_dev.
		sta  drvr_dev_num
		
		stz error		;we store the non-fatal error here
		ldy #fcr_type
		lda [fcr_ptr],y		;SCM promises to give me the right fcr
		cmp #$000F		;is it a directory file?
		beq @ok
		lda #version_error OR $8000	;internal error
		sec
		rts
@ok
		lda class
		beq @class0
@class1	
		ldy #get_dir_entry1.base
		lda [param_blk_ptr],y		;get the base
		sta base1
		ldy #get_dir_entry1.displacement
		lda [param_blk_ptr],y		;get displacement
		sta displacement1
		ldy #get_dir_entry1.name	;copy pointer to direct page
		lda [param_blk_ptr],y
		sta <user_ptr
		iny
		iny
		lda [param_blk_ptr],y
		sta <user_ptr+2
		bra chk_entry			;go validate the entry num
@class0
		ldy #get_dir_entry0.base
		lda [param_blk_ptr],y		;get the base
		sta base1
		ldy #get_dir_entry0.displacement
		lda [param_blk_ptr],y		;get displacement
		sta displacement1

		ldy #fcr_blks_used
		lda [fcr_ptr],y			;get number of sectors owned by this directory
		dea				;account for vtoc
		sta cat_sec_count		;we need this below
		ldy #get_dir_entry0.name	;copy pointer to direct page
		lda [param_blk_ptr],y
		sta <user_ptr
		iny
		iny
		lda [param_blk_ptr],y
		sta <user_ptr+2

		;brk $1d

chk_entry
		lda base1
		tax			;save for a moment
		ora displacement1	;are they both zero?
		beq special		;special funtion for base = displacement = 0

		txa			;restore original base value
		beq absolute
		dea
		beq add
		dea
		beq subtract
		lda #parm_range_err
		rts
special				;base and displacement are both zero
		ldy #fcr_tot_ent
		lda [fcr_ptr],y		;get the total number of valid entries
		sta entry_num		;user gets this value here

		lda #0
		ldy #fcr_entry_num
		sta [fcr_ptr],y		;reset entry number for this directory

		brl fill_param_blk	;that all we do!
absolute
		ldy #fcr_tot_ent
		lda [fcr_ptr],y		;get the total number of valid entries
		cmp displacement1
		bcs @ok
		lda #end_of_dir		;entry number too high
		sec
		rts
@ok
		lda displacement1
		sta entry_num
		bra find_entry
add
		ldy #fcr_entry_num
		lda [fcr_ptr],y		;get the current entry number
		clc
		adc displacement1
		sta entry_num
		ldy #fcr_tot_ent
		lda [fcr_ptr],y		;get the total number of valid entries
		cmp entry_num		;range check
		bcs find_entry
		lda #end_of_dir
		sec
		rts
subtract
		ldy #fcr_entry_num
		lda [fcr_ptr],y		;get the current entry number
		dec  a
		cmp  displacement1
		bcc  @err		; out of range, displacement would make entry < 1
		inc  a
		sec
		sbc displacement1
		sta entry_num
		ldy #fcr_tot_ent
		lda [fcr_ptr],y		;get the total number of valid entries
		cmp entry_num		;range check
		bcs find_entry
		
@err		lda #end_of_dir
		sec
		rts

find_entry			;cycle through to nth directory entry
		lda entry_num
		ldy #fcr_entry_num
		sta [fcr_ptr],y
		sta countdown		;set this up for the loop

		ldy #vcr_buf_vp		;get the vcr's buffer set up
		lda [vcr_ptr],y
		tax
		iny
		iny
		lda [vcr_ptr],y
		tay
		jsl deref
		stx vol_buf_ptr
		sty vol_buf_ptr+2
				;now loop through valid entries
		lda #$0000		;cat sector numbers start at 0
@cat_loop
		ldx #$0000		;same for fde's
@fde_loop
		sta cat_index
		stx fde_index		;save these
		jsr find_fde
		bcc @ok
		rts			;error
@ok
*** changed 6-May-93 DAL
;;;		lda [fde_ptr]		;first byte tells whether in use
;;;		and #$00FF
		jsr load_fde_flag
*** end 6-May-93
		bne @cont		;a $00 means beyond last entry
		lda #end_of_dir OR $8000	;internal error
		sec
		rts
@cont
		cmp #$00FF
		beq @inactive		;inactive, don't count it
		dec countdown
		beq right_fde		;if countdown hits 0, we've got our man
@inactive
		ldx fde_index
		lda cat_index
		inx			;next fde
		cpx #$0007		;check limit of 7 fde's per cat sector
		bcc @fde_loop		;we're ok, check next fde
		ina			;next catalog sector
		cmp cat_sec_count	;past our limit?
		bcc @cat_loop		;move on to next cat sector

right_fde			;fde_ptr now points to the fde in question!
				;now, alas, we have to go to disk for some of the info
		ldy #vcr_name
		lda [vcr_ptr],y		;get the vp's to volume name
		tax
		iny
		iny
		lda [vcr_ptr],y
		tay
		jsl deref
		stx volname_buf_ptr
		sty volname_buf_ptr+2
		ldy #vcr_dev
		lda [vcr_ptr],y		;get last known device
		sta supposed_dev
		jsr find_vol_online
		bcc @ok
		lda #vol_not_found	;we must have the device online
		rts

@ok		ldy  #vcr_dev		; has the volume moved?
		lda  [<vcr_ptr],y
		cmp  drvr_dev_num
		beq  @ok1		; no ->
		
		ldy  #vcr_dev		; update the dev_num
		lda  drvr_dev_num
		sta  [<vcr_ptr],y

@ok1		jsr get_file_info
		bcc @ok2
		lda #dir_error
		rts
@ok2				;we now have all our file info in global variables
do_name
		sep #%00100000		;work with bytes
		LONGA OFF
		ldy #fde_sec_used-1	;this points to the last byte of the filename
@loop
		lda [fde_ptr],y
		cmp #' ' OR $80		;is it a space?
		bne @set_len		;if not, we've found the last character
		dey
		bne @loop		;use bne just in case...
@set_len
		rep #%00100001		;16-bit accum, carry clear
		LONGA ON
		iny			;get past end
		sty src_end
		tya
		sbc #fde_name-1		;adjust for name len.  note: carry is clear
		sta name_len
		ina
		ina
		ina			;add three
		tay
		lda [user_ptr]
		sta usr_len		;this will be a worthwile investment
		cpy usr_len
		bcc @big_enough
		lda #buff_too_small
		sta error		;non-fatal
@big_enough
		ldy #fde_name-1		;this is our source pointer
		lda #$0004-1
		sta dest_ptr

		sep #%00100000		;work with bytes
		LONGA OFF
@loop1
		iny
		cpy src_end
		beq @name_done
		ldx dest_ptr
		inx
		cpx usr_len		;check for end of user buffer
		beq @name_done
		stx dest_ptr
		lda [fde_ptr],y
		tyx
		ldy dest_ptr
		and #$7F		;strip high bits
		cmp #':'
		bne @not_colon
		lda #','		;replace colons with commas
@not_colon
		sta [user_ptr],y
		txy			;restore source pointer
		bra @loop1
@name_done
		rep #%00100001		;16-bit accum, carry clear
		LONGA ON
		lda name_len
		ldy #$0002
		sta [user_ptr],y	;that sets the length word

fill_param_blk			;now fill in the user param block
		lda class
		bne @class1
@class0
		lda #$0000
		ldy #get_dir_entry0.flags
		sta [param_blk_ptr],y		;indicate not extended file

		lda #$0001
		sta p_cnt		;this will make the fill_param tables work right

		lda #<get_dir_entry0_f
		sta <fill_tabl		;set up for right parameter fill table
		jsr fill_param
		bra all_done			;now take care of the name
@class1	
		lda #$0000		;non_extended file
		ldy #get_dir_entry1.flags
		sta [param_blk_ptr],y

		lda #<get_dir_entry1_f
		sta <fill_tabl		;set up for right parameter fill table
		jsr fill_param

		lda p_cnt
		cmp #15			;do we need option list?
		bcc @no_list

		ldy #get_dir_entry1.option_list
		jsr do_option_list
		bcc @list_ok

		lda #buff_too_small
		sta error
@no_list
@list_ok

all_done
		lda error
		cmp #$0001		;set carry
		rts

src_end		ds 1
dest_ptr	ds 1
error		ds 1
base1		ds 1
displacement1	ds 1
countdown	ds 1
name_len	ds 1
usr_len		ds 1

		ENDP


read_newline	PROCNAME	;transfer a range of bytes according to newline

				;pointer at src_scratch must be set to the start of theÉ
				;Ésource range

				;pointer at usr_ptr must be set to destination buffer

				;byte_cnt must contain the maximum number of bytesÉ
				;Éto be transferred

				;recent_xfer gets updated

				;on exit, carry set means a newline character was encountered
newline
		ldy #fcr_newline	;get the newline pointer
		lda [fcr_ptr],y
		tax
		iny
		iny
		lda [fcr_ptr],y
		tay
		jsl deref
		stx nl_list_ptr
		sty nl_list_ptr+2
		ldy #fcr_mask
		lda [fcr_ptr],y
		sta <nl_msk
		lda nl_len		;how many nl characters are we dealing with?
		dea
		bne slow_nl		;if more than 1 newline char, things slow down
fast_nl
		lda [nl_list_ptr]
		and #$00FF		;there's only one real byte there
		sta <nl_char

		ldy byte_cnt
		beq end_nl2		;check for degenerate case
		ldy  #0

		sep #$30		;short registers and accumulator
		LONGA OFF
		LONGI  OFF

		
@loop		phy

		rep  #$30
		LONGA  ON
		LONGI  ON
		ldy #fcr_dos_type
		lda [fcr_ptr],y		;get the DOS 3.3 filetype
		sep  #$30
		LONGA  OFF
		LONGI  OFF
		bne @1			;if NOT 0 (TEXT file) don't touch the data
		ply
		lda  [<src_scratch],y	; xfer char
		sta  [<user_ptr],y
		and  #$7F		; strip the high bit for newline compare
		bra  @2			; continue ->

@1		ply
		lda [src_scratch],y
		sta [user_ptr],y
@2		inc  recent_xfer
		and <nl_msk
		cmp <nl_char
		beq @hit_nl
		
		rep  #$30
		LONGA  ON
		LONGI  ON
		iny
		cpy  byte_cnt
		sep  #$30
		LONGA  OFF
		LONGI  OFF
		
		bcc  @loop
		
		rep #$30		;16-bit accum, carry clear
		LONGA ON
		LONGI ON
		clc

		bra end_nl
@hit_nl
		rep #$30		;16-bit accum
		LONGA ON
		LONGI  ON

		sec			;indicate that newline was encountered
		bra end_nl

slow_nl		ldy #$0000

		sep #$20		;short accumulator
		LONGA OFF
		
@loop		phy

		rep  #$20
		LONGA  ON
		ldy #fcr_dos_type
		lda [fcr_ptr],y		;get the DOS 3.3 filetype
		sep  #$20
		LONGA  OFF
		bne @1			;if NOT 0 (TEXT file) don't touch the data
		ply
		lda  [<src_scratch],y	; xfer char
		sta  [<user_ptr],y
		and  #$7F		; strip the high bit for newline compare
		bra  @2			; continue ->

@1		ply
		lda [src_scratch],y
		sta [user_ptr],y
@2		inc  recent_xfer
		and <nl_msk
		tyx
		
		ldy nl_len
@cmp_loop	dey
		bmi @not_end		;we've run out of newline characters
		cmp [nl_list_ptr],y
		bne @cmp_loop
		bra @hit_nl		;we've hit a newline character
		
@not_end	txy			;restore buffer position
		iny
		cpy byte_cnt		;are we out of bytes anyway?
		bne @loop

		rep #$20		;16-bit accum
		LONGA ON
		clc
		
		bra end_nl

@hit_nl		sec			;indicate that newline was encountered

end_nl		rep  #$30
		LONGA  ON
		LONGI  ON
end_nl2		rts

		ENDP



read		PROCNAME		;handle the READ call

		stz error		;errors go here
		stz bytes_sent
		stz bytes_sent+2
		
		stz recent_xfer

		;brk $42

find_offset			;figure out what the "data_offset" value is for this file
		ldy #fcr_dos_type
		lda [fcr_ptr],y
		beq @pure_data		;0 means text
		and #Å$0003		;mask off bits for Asoft & Integer
		bne @not_basic
		lda #$0002		;basic files have 2 bytes before the real data
		sta data_offset
		bra fetch_fcr
@not_basic
		and #Å$0014		;bits for binary & relocatable
		bne @not_bin
		lda #$0004		;these types have 4 bytes before real data
		sta data_offset
		bra fetch_fcr
@not_bin
@pure_data			;the only types left are considered to have pure data
		stz data_offset

fetch_fcr			;fetch stuff from fcr for handy reference
		ldy #fcr_mask
		lda [fcr_ptr],y		;get newline mask
		sta nl_msk
		ldy #fcr_newline_len
		lda [fcr_ptr],y		;get newline list length
		sta nl_len
		ldy #fcr_eof
		lda [fcr_ptr],y
		sta eof
		iny
		iny
		lda [fcr_ptr],y
		sta eof+2
		ldy #fcr_mark
		lda [fcr_ptr],y
		sta mark
		iny
		iny
		lda [fcr_ptr],y
		sta mark+2
		ldy #fcr_buf_vp		;set up the pointer to the buffers
		lda [fcr_ptr],y
		tax
		iny
		iny
		lda [fcr_ptr],y
		tay
		jsl deref
		stx <fcr_buf_ptr
		sty <fcr_buf_ptr+2
		;txa

		lda class
		beq @class0
@class1
		ldy #read1.request_count
		lda [param_blk_ptr],y
		sta req_cnt
		iny
		iny
		lda [param_blk_ptr],y
		sta req_cnt+2
		ldy #read1.data_buffer
		lda [param_blk_ptr],y
		sta <user_ptr
		iny
		iny
		lda [param_blk_ptr],y
		sta <user_ptr+2
		bra @fetch_done
@class0
		ldy #read0.request_count
		lda [param_blk_ptr],y
		sta req_cnt
		iny
		iny
		lda [param_blk_ptr],y
		sta req_cnt+2
		ldy #read0.data_buffer
		lda [param_blk_ptr],y
		sta <user_ptr
		iny
		iny
		lda [param_blk_ptr],y
		sta <user_ptr+2
@fetch_done
check_mark			;must return error if mark = eof
		lda mark
		cmp eof
		bne @not_equal

		lda mark+2
		cmp eof+2
		bne @not_equal

		lda #end_of_file
		sta error
		brl store_tcount		;return transfer count and exit
@not_equal
check_limits
		;brk $A1

		lda mark
		clc
		adc req_cnt
		sta endmark
		lda mark+2
		adc req_cnt+2
		bcs @too_big		;overflowed 32 bits!
		sta endmark+2
		cmp eof+2
		bcc limit_ok
		bne @too_big
@maybe
		lda eof
		cmp endmark
		bcs limit_ok
@too_big
		;lda #end_of_file
		;sta error		;remember, it's non-fatal
		lda eof+2
		sta endmark+2
		lda eof
		sta endmark		;that's as far as we can go!
limit_ok
				;now calculate needed scratch values
		lda endmark
		sec
		sbc mark
		sta bytes_left		;this is the maximum number of bytes left to transfer
		lda endmark+2
		sbc mark+2
		sta bytes_left+2	;this is the transfer count based on lesser ofÉ
					;Érequest count and (eof minus mark)
		lda mark
		clc
		adc data_offset
		sta phys_mark		;this is the "mark" for disk sectors
		lda mark+2
		adc #$0000
		sta phys_mark+2

		ldy #fcr_type
		lda [fcr_ptr],y		;check for directory file
		cmp #$000F
		bne @normal
		brl directory_file	;some weirdo wants to read the directory file
@normal

init_drvr			;initialize direct page driver vars
		ldy #vcr_dev
		lda [vcr_ptr],y		;where did we see the disk last?
		sta <drvr_dev_num	;we'll trust this number for now

		lda #drvr_read		;set up for reading sectors
		sta <drvr_call_num
				;now we have to locate the t/s list sector we need

find_sector			;this is the return point for the big sector loop
				;bytes_sent, bytes_left, and phys_mark should be updatedÉ
				;Ébefore iterating

		;brk $49

		lda phys_mark
		xba
		and #$00FF		;this is now low byte of sector num which contains mark
		sta sec_num
		lda phys_mark+2
		xba
		tax
		and #$FF00
		ora sec_num
		sta sec_num
		txa
		and #$00FF
		sta sec_num+2		;this completes a 24-bit value for sec_num

		;lda phys_mark
		;ldy #$0000
check_ts
		lda fcr_buf_ptr		;t/s list sectors go here
		sta drvr_buf_ptr
		lda fcr_buf_ptr+2
		sta drvr_buf_ptr+2

		lda sec_num
		ldy #ts_sec_offset
		sec
		sbc [fcr_buf_ptr],y	;do we have the right t/s list?
		bcc start_over		;the one we have is too far, start from top
		cmp #122		;are we within the range of the one we want?
		bcc have_ts		;if the difference is less than the capacity of aÉ
					;Ét/s list, then we have the right one
walk_ahead
		ldy #ts_link
		lda [fcr_buf_ptr],y
		bne @ok1
		lda #dir_error		;the linked list is bad
		sec
		rts
@ok1		jsr new_rwts		;go get that next t/s list sector
		bra check_ts
start_over
		ldy #fde_ts_link	;start from the first t/s list sector
		lda [fde_ptr],y		;get the track/sector of first t/s list sector
		jsr new_rwts
		bcc @ok
		rts			;return with driver error
@ok
		bra check_ts
have_ts
		;brk $43
				;the accumulator contains the t/s entry offset number
		asl a			;convert to word offset
		adc #ts_list_start	;carry is clear
		tay
		lda [fcr_buf_ptr],y	;get the entry
		bne @real		;if non-0 then it's a real sector
		brl null_sect		;if the entry is zero, hopefully it's because we've hitÉ
					;Éa null portion of a sparse file
@real
		sta data_sect		;save entry
		ldy #fcr_data_sect
		cmp [fcr_ptr],y		;is our sector already there?
		beq xfer_data		;if it is, skip the driver call!

		lda nl_msk		;is newline mode set?
		bne double_buf		;if so, we have to bite the bullet on this one!
		lda phys_mark
		and #$00FF		;look at least sig byte
		bne double_buf		;are we sector aligned?
		lda bytes_left
		cmp #$101
		bcc double_buf		;if user gets partial sector, must double buffer

single_buf			;read the puppy right into the user's buffer!
		lda user_ptr
		sta drvr_buf_ptr
		lda user_ptr+2
		sta drvr_buf_ptr+2
		lda data_sect		;this was from the t/s list
		jsr new_rwts
		bcc @ok1
		rts			;return with driver error
@ok1
		lda #$0100
		sta recent_xfer		;this is what we've transfered
		brl next_sector		;we're done with this sector
double_buf
		lda <fcr_buf_ptr
		clc
		adc #$100		;second page of buffer is for data sectors
		sta drvr_buf_ptr
		lda <fcr_buf_ptr+2
		adc #$0000
		sta drvr_buf_ptr+2
		lda data_sect
		jsr new_rwts		;read in the sector
		bcc @ok
		rts			;return with driver error
@ok
		ldy #fcr_data_sect
		lda data_sect
		sta [fcr_ptr],y		;make a record that we have this sector in the fcr buffer
xfer_data
		lda phys_mark	
		and #$00FF		;this is the physical start position
		sta sec_start		;save for later
		ldy bytes_left+2
		bne @rest_of_sec	;if this isn't 0, we're definitely going to the end ofÉ
					;Éthis sector
		clc
		adc bytes_left		;find physical end position
		cmp #$0100+1		;does it go past the end of the sector?
		bcc @store
@rest_of_sec
		lda #$0100
@store
		sta sec_end		;the physical end position for this particular sector
		sec
		sbc sec_start		;now we have the number of bytes to be transferedÉ
					;Éfrom this sector
		sta byte_cnt

		lda sec_start		;get back least significant byte of start addr
		clc
		adc #$0100		;bump to second page of fcr buffer
		adc <fcr_buf_ptr
		sta <src_scratch
		lda <fcr_buf_ptr+2
		adc #$0000
		sta <src_scratch+2

		ldx nl_msk
		bne newline		;go do it the ugly way

		;brk $47

		lda byte_cnt		;this is the # of bytes to be moved from this sector
		cmp #move_info_be	;check transfer value against the break-even pointÉ
					;Éfor using the move_info call
my_move
		bcs use_mi
		lsr a			;divide by 2
		tax
		bcc @even		;if no remainder, go move by word

					;otherwise we transfer the odd byte
		sep #%00100000		;work with bytes
		LONGA OFF
		lda [src_scratch]
		sta [user_ptr]		;that takes care of the blasted odd byte!

		rep #%00100001		;16-bit accum, carry clear
		LONGA ON
		inc src_scratch
		bne @no_carry
		inc src_scratch+2
@no_carry
		inc user_ptr
		bne @no_carry2
		inc user_ptr+2
@no_carry2
@even
		txa			;this is a word count
		dea			;decrement effectively by 2 to point to the word
		bmi @done
		asl a
		tay
@loop		lda [src_scratch],y
		sta [user_ptr],y
		dey
		dey
		bpl @loop
@done				;transfer complete!
		lda byte_cnt
		sta recent_xfer		;the whole amount was transferred
		lsr a			;did we increment user_ptr earlier?
		bcc next_sector		;no, no need to fix it up...
		lda user_ptr		;else we must decrement it once to account for
		bne @1			; the increment that we did above (for odd-size
		dec user_ptr+2		; move)
@1		dec user_ptr		;This ensures proper math when we update the pointer
		bra next_sector		; at the end of the loop.

use_mi				;use move_info
		pei src_scratch+2	;high word of source pointer
		pei src_scratch		;low word  "     "      "
		pei user_ptr+2		;destination
		pei user_ptr
		pea $0000		;high word of transfer count is always 0
		lda byte_cnt
		pha
		pea move_sinc_dinc	;command word
		jsl move_info
		bcc @ok1
		lda #$8000		;internal generic error
		rts
@ok1
		lda byte_cnt
		sta recent_xfer		;the whole amount was transferred
		bra next_sector
newline
		jsr read_newline
		bcc next_sector		;we ran out of bytes, so get more
		
		lda recent_xfer
		clc
		adc bytes_sent
		sta bytes_sent
		bcc @no_carry
		inc bytes_sent+2
		
@no_carry	clc			; all done, so compensate for the subtraction that
		lda  bytes_sent		; is performed during post_process for newline mode.
		adc  data_offset
		sta  bytes_sent
		lda  bytes_sent+2
		adc  #0
		sta  bytes_sent+2

		brl post_process	;we hit a newline char, so return to caller

next_sector			;at this point, only recent_xfer should reflect what has beenÉ
				;Ésent to the caller
		lda recent_xfer
		clc
		adc bytes_sent
		sta bytes_sent
		bcc @no_carry

		inc bytes_sent+2
@no_carry
		lda bytes_left
		sec
		sbc recent_xfer
		sta bytes_left
		bcs @no_borrow
		dec bytes_left+2
		
@no_borrow	lda  bytes_left		; done?
		ora  bytes_left+2
		bne  @1			; maybe ->
		
		clc			; all done, so compensate for the subtraction that
		lda  bytes_sent		; is performed during post_process for newline mode.
		adc  data_offset
		sta  bytes_sent
		lda  bytes_sent+2
		adc  #0
		sta  bytes_sent+2
		brl  post_process
		
					; if in newline mode, then it will go negative when
					; it is done, but only by the amount of data_offset...
@1		lda  bytes_left		; check to see if there are any more bytes to xfer.
		clc			; must add the data_offset or else the value may be
		adc  data_offset	; < 0.
		sta  @temp
		lda  bytes_left+2
		adc  #0
		ora  @temp
		
		bne @more		;no more bytes left to transfer!
		brl post_process
		
@temp		dc.w	0

@more
		lda recent_xfer
		tax			;save for other calculations
		clc
		adc phys_mark		;update the physical mark
		sta phys_mark
		bcc @no_carry1
		inc phys_mark+2
@no_carry1
		txa			;get back recent_xfer
		clc
		adc user_ptr		;update user_ptr
		sta user_ptr
		bcc @no_carry3
		inc user_ptr+2
@no_carry3
		brl find_sector		;we're set to iterate

null_sect
		lda nl_msk
		beq @no_nl		;no newline if mask is 0
		ldy nl_len

		sep #%00100000		;work with bytes
		LONGA OFF
@loop		dey
		bmi @no_nl
		lda [nl_list_ptr],y	;determine whether 0 is on the newline list
		bne @loop		;fall through on a zero

		sta [user_ptr]		;store the single zero in user's buffer

		rep #%00110001		;16-bit accum, carry clear
		LONGA ON
		inc bytes_sent
		bne @no_carry
		inc bytes_sent+2
@no_carry
		lda bytes_left
		sec
		sbc #$0001
		sta bytes_left
		bcs @no_borrow
		dec bytes_left+2
@no_borrow
		brl post_process	;all done!
@no_nl
		rep #%00110001		;16-bit accum, carry clear
		LONGA ON

		lda phys_mark	
		and #$00FF		;this is the physical start position
		sta sec_start		;save for later
		ldy bytes_left+2
		bne @rest_of_sec	;if this isn't 0, we're definitely going to the end ofÉ
					;Éthis sector
		clc
		adc bytes_left		;find physical end position
		cmp #$0100+1		;does it go past the end of the sector?
		bcc @store
@rest_of_sec
		lda #$0100
@store
		sta sec_end		;the physical end position for this particular sector
		sec
		sbc sec_start		;now we have the number of bytes to be transferedÉ
					;Éfrom this sector
		sta byte_cnt
		lsr a			;divide by 2
		tax
		lda #$0000		;null sectors contain zeros
		bcc @even		;if no remainder, go move by word

		sep #%00100000		;work with bytes
		LONGA OFF
		sta [user_ptr]		;that takes care of the blasted odd byte!

		rep #%00100001		;16-bit accum, carry clear
		LONGA ON

		inc user_ptr
		bne @no_carry2
		inc user_ptr+2
@no_carry2
@even
		txa			;this is a word count
		dea			;decrement effectively by 2
		bmi @done
		asl a			;make it a byte value again
		tay
		lda #$0000
@loop1
		sta [user_ptr],y
		dey
		dey
		bpl @loop1
@done
		lda byte_cnt
		sta recent_xfer		;the whole amount was transferred
		brl next_sector

directory_file			;read stuff from the directory file
		lda nl_msk		;is newline mode set?
		beq dir_no_nl		;if not, just shove the bytes over
@newline
		lda bytes_left
		sta byte_cnt		;only one word should be non-zero
		stz byte_cnt+2

		lda mark
		clc
		adc fcr_buf_ptr
		sta src_scratch
		lda mark+2
		adc fcr_buf_ptr+2
		sta src_scratch+2

		jsr read_newline
		lda recent_xfer
		sta bytes_sent
		stz bytes_sent+2	;high word is always 0
		bra post_process	;that's all there is to it!

dir_no_nl
		lda mark		;get back least significant word of start addr
		clc
		adc fcr_buf_ptr
		tax
		lda mark+2
		adc fcr_buf_ptr+2
		pha			;high word of source pointer
		phx			;low word  "     "      "
		pei user_ptr+2
		pei user_ptr
		pea $0000		;high word of transfer count is always 0
		lda bytes_left
		pha
		pea move_sinc_dinc	;command word
		jsl move_info
		bcc @ok1
		lda #$8000		;internal generic error
		rts
@ok1
		lda bytes_left
		sta bytes_sent		;the whole amount was transferred
		lda bytes_left+2
		sta bytes_sent+2
		;brl post_process
		bra  pack_up		; don't strip high bits on directory data ->
		
post_process	sec			; subtract the data_offset from the amount
		lda  bytes_sent		; actually transferred.
		sbc  data_offset
		sta  bytes_sent
		lda  bytes_sent+2
		sbc  #0
		sta  bytes_sent+2
					;clear high bit of each byte sent, if specified by mode
		ldy #fcr_dos_type
		lda [fcr_ptr],y		;get the DOS 3.3 filetype
		bne pack_up		;if NOT 0 (TEXT file) don't touch the data
@text
		lda text_flag		;this global flag decides the text transfer mode
		beq pack_up		;if flag = 0, leave text as-is

		;bra pack_up		;shunt-out this code for the time being

		lda class
		beq @class0
@class1
		ldy #read1.data_buffer
		lda [param_blk_ptr],y
		sta <user_ptr
		iny
		iny
		lda [param_blk_ptr],y
		sta <user_ptr+2
		bra @clear_bit
@class0
		ldy #read0.data_buffer
		lda [param_blk_ptr],y
		sta <user_ptr
		iny
		iny
		lda [param_blk_ptr],y
		sta <user_ptr+2
@clear_bit
		ldy bytes_sent+2
		iny			;adjust for countdown
		ldx bytes_sent
		bne @not_0

		dey			;account for low part = 0

		txa
		ora bytes_sent+2	;are they both zero?
		beq @done
@not_0
		sty <clear_ctr		;this is the high part of the counter

		ldy #0			;init index

		sep #$20
		LONGA OFF
@loop
		lda [user_ptr],y
		and #$7F		;clear that archaic high bit
		sta [user_ptr],y	;put it back

		iny			;bump ptr
		bne @no_carry1

		inc <user_ptr+2		;bump high part of pointer
@no_carry1
		dex			;low part of counter
		bne @loop

		dec <clear_ctr		;high part of counter
		bne @loop
@done
		rep #$20
		LONGA ON
pack_up				;square away all the values for the user param block beforeÉ
				;Éreturning
				;bytes_sent should reflect the total amount transfered duringÉ
				;Éthe entire call
		ldy #fcr_mark
		lda [fcr_ptr],y
		clc
		adc bytes_sent
		sta [fcr_ptr],y		;update the file's mark
		iny
		iny
		lda [fcr_ptr],y
		adc bytes_sent+2
		sta [fcr_ptr],y
store_tcount
		lda class
		bne @class1
@class0
		ldy #read0.transfer_count
		bra exit

@class1
		ldy #read1.transfer_count
exit
		lda bytes_sent
		sta [param_blk_ptr],y
		lda bytes_sent+2
		iny
		iny
		sta [param_blk_ptr],y

		lda error		;there may be a non-fatal error here
		cmp #$0001		;set carry to appropriate sign
		rts

error		ds 1

		ENDP

		export check_access
		
;	check_access checks to see if the parameter block is specifying  
;	an invalid access for the open call.  The things that it checks
;	for are: 
;
;		Are we trying to open the resource fork of a file.  
;		Are we trying to open the file other than read only.
;
;	If so it returns with the carry set and the accumulator set to the 
;	appropriate error.  We do this here, instead of in the open_s routine
;	because these are non_bouncing errors and we need to check this after
;	we have determined that the target is a DOS file.

check_access	PROCNAME		
		
		lda class		;get the class of the call
		beq @done		;if class 0, no resource fork
		
		lda  p_cnt
		cmp #4			;enough parameters for request_access?
		bcc @done		;no, can't check it
		
		clc
		ldy #open1.request_access
		lda [param_blk_ptr],y	;get the request access word
		and #%0000000000000010	;check for write access
		beq @checkRez		;no write access
		
		lda #invalid_access
		bra @access_err
@checkRez		
		lda  p_cnt
		cmp  #5
		bcc  @done		; pcount too small ->
		
		clc
		ldy  #open1.resource_number
		lda  [<param_blk_ptr],y
		beq  @done		; ok -> its not the resource fork
		
		cmp #1			; == to 1
		beq @fork_err		; can't open resource fork
		
		lda #parm_range_err	; bad value for ressource_number
		bra @access_err
		
@fork_err	
		lda  #res_not_found
@access_err	
		sec
@done		
		rts
		
		ENDP
		
		

		export open
open		PROCNAME		;handle the OPEN call

		;brk $49

		stz vcr_fcr_flags	;init flags

		jsr open_setup		;init vars, set up buffers, put volume name inÉ
					;Évolname_buf_ptr, verify that volume isÉ
					;Éonline, mount the volume
		bcc @ok
		brl err_exit		;deallocate stuff on the way out
@ok


;	we now have a valid vcr for the volume we want

;	now see exactly what we're supposed to open
		
		
@process_file
		;we now have a legal filename and a vcr
		;now look for fcrs unless we just created the vcr

		;brk $07

		lda (file_name_ptr)	;was there a filename?
		beq handle_vol
		brl handle_file

handle_vol			;this section opens the volume "root" directory file
				;first build string of vol name with leading colon
				; but first check to see if for some reason the caller
				;has specified the resource fork as the target or is trying
				;to open this vol readWrite.
		
		jsr check_access	
		bcc @h_vol	; nope! everythings OK here
		brl err_exit	;deallocate stuff on the way out
@h_vol
		lda vol_name_buf		;get length
		inc a			;account for colon character
		sta scratch_str_buf

		sep #$20
		LONGA OFF

		lda #':'
		ldy #2
		sta scratch_str_buf,y	;place the colon

@loop
		lda vol_name_buf,y
		cmp #1			;save zero status in carry
		iny			;position one byte over in dest string
		sta scratch_str_buf,y
		bcs @loop		;if character was non-zero, loop

		rep #$20
		LONGA ON

		ldx #<scratch_str_buf
		ldy #^scratch_str_buf
		lda #fcr_size
		jsl alloc_fcr
		bcc @ok

		brl err_exit		;can't get FCR
@ok
		jsl deref
		stx fcr_ptr
		sty fcr_ptr+2

		lda #$4000
		tsb vcr_fcr_flags	;set flag to say we allocated an FCR

				;special fcr setup for root directory file
		ldy #fcr_fst_id
		lda #my_id
		sta [fcr_ptr],y

		ldy #vcr_id
		lda [vcr_ptr],y
		ldy #fcr_vcr_id
		sta [fcr_ptr],y

		ldy #vcr_buf_vp
		lda [vcr_ptr],y		;the fcr has the same buffer as the vcr
		tax
		iny
		iny
		lda [vcr_ptr],y		;high word
		ldy #fcr_buf_vp+2
		sta [fcr_ptr],y
		txa
		dey
		dey
		sta [fcr_ptr],y

		ldy #fcr_mark		;zero the mark
		lda #$0000
		sta [fcr_ptr],y
		iny
		iny
		sta [fcr_ptr],y

		ldy #fcr_eof+2
		sta [fcr_ptr],y		;zero high word of eof

		ldy #fcr_aux
		sta [fcr_ptr],y		;zero aux_type
		iny
		iny
		sta [fcr_ptr],y

		ldy #fcr_entry_num
		sta [fcr_ptr],y		;zero the entry position for get_dir_entry
		
		ldy #fcr_blks_used+2	;set blocks used
		sta [fcr_ptr],y		;zero high word
		dey
		dey
		sta [fcr_ptr],y		;low word of blocks used
		
		xba			;transform to byte value for EOF
		ldy #fcr_eof
		sta [fcr_ptr],y		;that's our EOF!

		ldy #fcr_type
		lda #$000F		;GS/OS directory file
		sta [fcr_ptr],y

		ldy #fcr_access
		lda #access_unlocked
		sta [fcr_ptr],y

count_dir			;count entries in the directory
		stz dir_cnt
		lda #$0000		;cat sector numbers start at 0
@cat_loop
		ldx #$0000		;same for fde's
@fde_loop
		sta cat_index
		stx fde_index		;save these
		jsr find_fde
		bcc @ok
		brl err_exit		;error
@ok
*** changed 6-May-93 DAL
;;;		lda [fde_ptr]		;first byte tells whether in use
;;;		and #$00FF
		jsr load_fde_flag
*** 6-May-93
		beq @done		;a $00 means beyond last entry
		cmp #$00FF
		beq @inactive		;inactive, don't count it
		inc dir_cnt
@inactive
		ldx fde_index
		lda cat_index
		inx			;next fde
		cpx #$0007		;check limit of 7 fde's per cat sector
		bcc @fde_loop		;we're ok, check next fde
		ina			;next catalog sector
		cmp cat_sec_count	;past our limit?
		bcc @cat_loop		;move on to next cat sector
@done
		lda dir_cnt
		ldy #fcr_tot_ent
		sta [fcr_ptr],y		;save this for get_dir_entry

		ldy #vcr_open_cnt
		lda [vcr_ptr],y
		inc a
		bne @not_first		;if it was $FFFF, increment it again
		inc a
@not_first
		sta [vcr_ptr],y
		brl stuff_usr_prm_blk

handle_file
		;brk $02
;		ldy #vcr_open_cnt
;		lda [vcr_ptr],y		;see if any files are already open in this vcr
;		beq chk_dir		;if no open files, we'll have to look in the directory
;
;		inc a			;this field is inited to $FFFF
;		beq chk_dir		;check for $FFFF also
;
;		jsr search_fcr		;this routine will return number of fcr for previousÉ
;					;Éopen of the file in old_fcr (0 means none found)
;		bcc req_fcr		;we're ready to get a new fcr
		
chk_dir				;does this guy exist in the directory?
		jsr check_dir		;this sub checks for filename in file_name_ptr
		bcc @ok

		lda #dir_error		;problem with the directory structure
		brl err_exit
@ok
		lda fde_index		;if negative, we didn't find the file
		bpl req_fcr

file_not_here			;file not on this volume
		lda #file_not_found
		brl err_exit

		;now we have to allocate a new fcr
		;but first lets check to see what fork the caller is trying to open
	
req_fcr		jsr check_access	;test for invalid operation
		bcc @not_Rez		;if not resource fork
		brl err_exit		;cleanup and return the appropriate error.
@not_Rez
		;first build string of vol name with leading colon
		lda vol_name_buf	;get length
		inc a			;account for colon character
		sta scratch_str_buf

		sep #$20
		LONGA OFF

		lda #':'
		ldy #2
		sta scratch_str_buf,y	;place the colon

@loop
		lda vol_name_buf,y
		cmp #1			;save zero status in carry
		iny			;position one byte over in dest string
		sta scratch_str_buf,y
		bcs @loop		;if character was non-zero, loop

		rep #$20
		LONGA ON

		ldx #<scratch_str_buf	;alloc_fcr now gets volume name
		ldy #^scratch_str_buf
		lda #fcr_size
		jsl alloc_fcr
		bcc @ok1

		lda #out_of_mem		;can't get an fcr
		brl err_exit
@ok1				;SCM has successfully allocated the FCR
		jsl deref
		stx <fcr_ptr
		sty <fcr_ptr+2

		lda #$4000
		tsb vcr_fcr_flags	;set flag to say we allocated an FCR

		lda #file_buf_size	;request segments for file buffers
		jsl alloc_seg
		bcc @ok2
				;can't get needed buffers, cancel the OPEN
		lda #out_of_mem
		brl err_exit
@ok2
		tya			;stash the vp's in the fcr
		ldy #fcr_buf_vp+2
		sta [fcr_ptr],y
		txa
		dey
		dey
		sta [fcr_ptr],y

		ldy #vcr_open_cnt	;bump the open count in the vcr
		lda [vcr_ptr],y
		inc a
		bne @not_first		;this field is inited to $FFFF
		inc a
@not_first
		sta [vcr_ptr],y
reset_mark
		lda #$0000
		ldy #fcr_mark		;offset to mark in fcr
		sta [fcr_ptr],y
		iny
		iny
		sta [fcr_ptr],y
		
;		lda old_fcr		;what was the result of the fcr dup search?
;		beq fill_new_fcr	;first open for this file

;		brl copy_fcr		;let's not reinvent this wheel

fill_new_fcr
		ldy #fcr_fde_num	;index to fde number of the file
		lda fde_index
		sta [fcr_ptr],y

		ldy #fcr_cat_sec	;sector where file's directory entry lives
		lda cat_index
		sta [fcr_ptr],y

		ldy #fcr_fst_id		;FST ID number
		lda #my_id
		sta [fcr_ptr],y

		ldy #vcr_id		;link to VCR
		lda [vcr_ptr],y
		ldy #fcr_vcr_id
		sta [fcr_ptr],y

		ldy #fde_type		;DOS 3.3 filetype
		lda [fde_ptr],y
		and #$007F		;mask high byte & lock bit
		ldy #fcr_dos_type
		sta [fcr_ptr],y

		bra get_info		;now get info for param block

copy_fcr		;copy appropriate stuff from old to new fcr

		;brk $31

		stz copy_fcr_ctr
		ldy #0			;init index
@big_loop
		lda copy_fcr_ctr	;get counter of number of bitmapped words
		lsr a
		tax
		lda copy_tbl,x		;get bitmapped word
		sta copy_fcr_temp

		ldx #16			;init counter
@loop
		asl copy_fcr_temp
		bcc @no_copy

		lda [old_fcr_ptr],y
		sta [fcr_ptr],y
@no_copy
		iny
		iny			;bump index by a word

		dex			;decrement counter
		bne @loop		;repeat for each bit

		lda copy_fcr_ctr
		bne @done		;if not 0, we're done (loop executes twice)

		inc copy_fcr_ctr
		bra @big_loop
@done
		bra stuff_usr_prm_blk

get_info				;call get_file_info
		;brk $01

		ldy #fcr_buf_vp		;get the vp to the fcr's buffer
		lda [fcr_ptr],y
		tax
		iny
		iny
		lda [fcr_ptr],y
		tay
		jsl deref
		stx <drvr_buf_ptr
		stx <fcr_buf_ptr
		sty <drvr_buf_ptr+2
		sty <fcr_buf_ptr+2
					;hopefully, the device number will be left over from
					;the "volume" routine
		lda #drvr_read
		sta <drvr_call_num

		ldy #fcr_fde_num
		lda [fcr_ptr],y		;need these to set up ptr to fde
		tax
		ldy #fcr_cat_sec
		lda [fcr_ptr],y
		jsr find_fde		;this sets up fde_ptr

		jsr get_file_info	;get all the good stuff
		bcc @ok1

		brl err_exit
@ok1				;now copy from globals to the fcr
		ldy #fcr_data_sect
		lda last_data_sec
		sta [fcr_ptr],y		;make note of number of sector in buffer

		ldy #fcr_access
		lda access
		sta [fcr_ptr],y
		ldy #fcr_eof
		lda eof
		sta [fcr_ptr],y
		lda eof+2
		iny
		iny
		sta [fcr_ptr],y
		ldy #fcr_aux
		lda aux_type
		sta [fcr_ptr],y
		ldy #fcr_type
		lda os_type
		sta [fcr_ptr],y
		ldy #fcr_blks_used
		lda blks_used
		sta [fcr_ptr],y
		lda #$0000
		iny
		iny
		sta [fcr_ptr],y		;zero long word of blks_used

stuff_usr_prm_blk		;fill everything the user asked for

		;brk $44

		lda class		;get the class of the call
		bne @class1
		brl @class0
@class1		
		lda p_cnt
		tax			;keep countdown in x

		ldy #$0000-2		;init Y for index to table in loop
@cpy_loop
		iny
		iny			;move to next word entry
		lda fcr_to_pblk,y	;get the table entry
		asl a			;test 2 highest bits
		bcc @no_dec		;should we decrement pcount?
		dex
		bmi @special		;if we hit bottom, go on to the special cases
@no_dec
		asl a			;test next bit
		bcs @cpy_loop		;if original bit 14 was set, don't copy
		lsr a
		lsr a			;shift things back into place
		phy			;save the present index
		tay
		lda [fcr_ptr],y
		ply
		sta [param_blk_ptr],y
		bra @cpy_loop
@special			;handle special case parameters
		ldx p_cnt
		cpx #8			;do we need aux_type?
		bcc @done

		ldy #open1.aux_type+2
		lda #$0000
		sta [param_blk_ptr],y	;zero the high word of aux_type

		cpx #9			;need storage type?
		bcc @done

		ldy #fcr_type
		lda [fcr_ptr],y
		cmp #$000F		;root directory?
		beq @store_s_type	;filetype happens to equal storage type

		lda #storage_type	;for regular files
@store_s_type
		ldy #open1.storage_type
		sta [param_blk_ptr],y

		cpx #10
		bcc @done

		lda #$0000
		ldy #open1.create_date_time
		sta [param_blk_ptr],y
		iny
		iny
		sta [param_blk_ptr],y
		iny
		iny
		sta [param_blk_ptr],y
		iny
		iny
		sta [param_blk_ptr],y
		cpx #11
		bcc @done

		ldy #open1.mod_date_time
		sta [param_blk_ptr],y
		iny
		iny
		sta [param_blk_ptr],y
		iny
		iny
		sta [param_blk_ptr],y
		iny
		iny
		sta [param_blk_ptr],y

		cpx #12
		bcc @done

		ldy #open1.option_list
		jsr do_option_list	;this routine needs offset in param blk in Y
		bcc @done

		lda #buff_too_small
		bra err_exit
@class0
		ldy #fcr_ref_num
		lda [fcr_ptr],y		;get ref num from FCR
		ldy #open0.ref_num
		sta [param_blk_ptr],y	;set reference number
@done
;	Added zeroing of res eof
;	-- Monte Benaresh 2/19/92 for 6.0.1

		lda  p_cnt		; res eof included?
		cmp  #$0E		
		bcc  @d1		; no ->
		
		ldy  #open1.resource_eof
		lda  #0
		sta  [<param_blk_ptr],y
		iny
		iny
		sta  [<param_blk_ptr],y

		lda  p_cnt		; res blocks included?
		cmp  #$0f		
		bcc  @d1		; no ->
		
		ldy  #open1.resource_blocks
		lda  #0
		sta  [<param_blk_ptr],y
		iny
		iny
		sta  [<param_blk_ptr],y

@d1		clc
		lda #$0000
		rts			;all done with open!

err_exit			;if an error occurs, return through here

		;brk $91

		pha			;save error code


		bit vcr_fcr_flags	;that's the first time I've used this instruction!
		php			;save result for VCR test below
		bvc @no_fcr
@cancel_fcr
		ldy #fcr_type
		lda [fcr_ptr],y
		cmp #$000F		;is it a directory?
		beq @not_dir		;if directory file then don't release its bufferÉ
					;Ébecause it is shared with the VCR
		ldy #fcr_buf_vp
		lda [fcr_ptr],y		;get fcr buffer's vp so we can release it
		tax
		iny
		iny
		ora [fcr_ptr],y		;check for 0 vp
		beq @invalid_vp

		lda [fcr_ptr],y
		tay
		jsl release_seg
@not_dir
@invalid_vp
		ldy #fcr_ref_num
		lda [fcr_ptr],y		;get ref num
		jsl release_fcr		;get rid of the FCR

		ldy #vcr_open_cnt
		lda [vcr_ptr],y
		beq @open_cnt_ok	;if open count is 0, leave it alone

		inc a			;check for $FFFF
		beq @store_open_cnt	;change $FFFF to 0
@dec_open_cnt
		dec a			;reverse inc
		dec a			;now decrement
@store_open_cnt
		sta [vcr_ptr],y		;Y reg should point to vcr_open_cnt
@open_cnt_ok
@no_fcr
		plp			;restore result of bit instruction above
		bpl @no_vcr		;high bit tells whether VCR was allocated
@cancel_vcr
		ldy #vcr_open_cnt
		lda #$0000
		sta [vcr_ptr],y		;must zero the open count to release it!

		ldy #vcr_id
		lda [vcr_ptr],y		;get ID of the VCR
		jsl release_vcr		;this invokes sys_remove_vol call to this fst
@no_vcr
		pla			;restore error code
		sec
		rts

copy_tbl		;defines which words get copied into the new fcr for a multiply-opened
			;file.  A 0 entry indicates that the word does NOT get copied.

	;dc.w %0001100000100111
;	      |
;     first word in fcr

;             last word in fcr
;                     |
	;dc.w %0011111100000000

copy		equ $1
no_copy		equ 0

;	***** NOTE *****	The presence of comments after the line continuation	*****
;				character (\) is NOT officially supported by the MAX
;				assembler but works fine for version 1.1d9.

;				If errors are generated for these lines by a later
;				version of the assembler, remove all text between the
;	****************	'\' and the carriage return.	|			*****
;								|
;								|
;				bit position		field	|
;				------------		-----	|
	dc.w 0				++	\		¥
		no_copy		<< 0	++	\	fcr_ref_num
		no_copy		<< 1	++	\	fcr_path_name
		no_copy		<< 2	++	\	fcr_path_name (h)
		copy		<< 3	++	\	fcr_fst_id
		copy		<< 4	++	\	fcr_vcr_id (h)
		no_copy		<< 5	++	\	fcr_level
		no_copy		<< 6	++	\	fcr_newline
		no_copy		<< 7	++	\	fcr_newline (h)
		no_copy		<< 8	++	\	fcr_newline_len
		no_copy		<< 9	++	\	fcr_mask
		copy		<< 10	++	\	fcr_access
		no_copy		<< 11	++	\	fcr_buf_vp
		no_copy		<< 12	++	\	fcr_buf_vp (h)
		copy		<< 13	++	\	fcr_eof
		copy		<< 14	++	\	fcr_eof (h)
		copy		<< 15		;	fcr_aux

	dc.w 0				++	\
		no_copy		<< 0	++	\	fcr_mark
		no_copy		<< 1	++	\	fcr_mark (h)
		copy		<< 2	++	\	fcr_type
		copy		<< 3	++	\	fcr_dos_type
		copy		<< 4	++	\	fcr_blks_used
		copy		<< 5	++	\	fcr_blks_used (h)
		copy		<< 6	++	\	fcr_cat_sec
		copy		<< 7	++	\	fcr_fde_num
		no_copy		<< 8		;	fcr_data_sec


;	These words were derived from this table:

;@copy		equ $1
;@no_copy	equ 0


;	dc.w @no_copy		;fcr_ref_num
;	dc.l @no_copy		;fcr_path_name
;	dc.w @copy		;fcr_fst_id
;	dc.w @copy		;fcr_vcr_id
;	dc.w @no_copy		;fcr_level
;	dc.l @no_copy		;fcr_newline
;	dc.w @no_copy		;fcr_newline_len
;	dc.w @no_copy		;fcr_mask
;	dc.w @copy		;fcr_access
;		;fst-specific:
;	dc.l @no_copy		;fcr_buf_vp
;	dc.l @copy		;fcr_eof
;	dc.w @copy		;fcr_aux
;	dc.l @no_copy		;fcr_mark
;	dc.w @copy		;fcr_type
;	dc.w @copy		;fcr_dos_type
;	dc.l @copy		;fcr_blks_used
;	dc.w @copy		;fcr_cat_sec
;	dc.w @copy		;fcr_fde_num
;	dc.w @no_copy		;fcr_data_sec


fcr_to_pblk	;table to specify what data to copy from the fcr to the user
		;parameter block.  each position corresponds to the same position
		;in the user parameter block.
		;each word entry contains:
		;	bit 15 = decrement pcount--high for the 1st word in each parameter
		;	bit 14 = copy inhibit--if high, nothing gets copied for this word position
@no_copy	equ %0100000000000000
@dec		equ %1000000000000000

;		dc.w @no_copy		++ @dec	;pcount
	dc.w @no_copy			;pcount <CAF> removed the @dec because pcount is not an actual parm.
	dc.w fcr_ref_num	++ @dec	;ref_num
	dc.w @no_copy		++ @dec	;pathname (low)
	dc.w @no_copy			;pathname (high)
	dc.w @no_copy		++ @dec	;request access
	dc.w @no_copy		++ @dec	;resource number
	dc.w fcr_access		++ @dec	;access
	dc.w fcr_type		++ @dec	;file_type
	dc.w fcr_aux		++ @dec	;aux_type (low)
	dc.w @no_copy			;aux_type (high)
	dc.w @no_copy		++ @dec	;storage_type
	dc.w @no_copy		++ @dec	;create_date_time (0)
	dc.w @no_copy			;create_date_time (1)
	dc.w @no_copy			;create_date_time (2)
	dc.w @no_copy			;create_date_time (3)
	dc.w @no_copy		++ @dec	;mod_date_time (0)
	dc.w @no_copy			;mod_date_time (1)
	dc.w @no_copy			;mod_date_time (2)
	dc.w @no_copy			;mod_date_time (3)
	dc.w @no_copy		++ @dec	;option_list (low)
	dc.w @no_copy			;option_list (high)
	dc.w fcr_eof		++ @dec	;eof (low)
	dc.w fcr_eof+2			;eof (high)
	dc.w fcr_blks_used	++ @dec	;blocks_used (low)
	dc.w @no_copy+2			;blocks_used (high)
	dc.w @no_copy		++ @dec	;resource_eof (low)
	;no entry			resource_eof (high)
	dc.w @no_copy		++ @dec	;resource_blocks (low)
	;no entry			resource_blocks (high)
*** added 7-Nov-92 DAL to fix run-off-the-end-of-the-table problem
	dc.w @no_copy++@dec
*** end 7-Nov-92

copy_fcr_temp	ds.w 1
copy_fcr_ctr	ds.w 1
;vcr_fcr_flags	ds.w 1		;bit 15 = VCR allocated during this call
				;bit 14 = FCR allocated during this call
				;these flags are read if an error occurs during the OPEN callÉ
				;Éso that any allocated structures may be released on abort


		ENDP

		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/FSTs/DOS3.3/my.all.macros b/IIGS.601.SRC/GS.OS/FSTs/DOS3.3/my.all.macros
new file mode 100644
index 0000000..faf164c
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/FSTs/DOS3.3/my.all.macros
@@ -0,0 +1 @@
+
*************************************************************************
*																		*
*						Apple //GS Utility Macros						*
*								by										*
*							Lou Infeld									*
*																		*
*					Copyright Apple Computer, Inc. 1986-1988			*
*							All Rights Reserved							*
*																		*
*	Revision History													*
*	----------------													*
*	v1.0R1 (04/29/87) --	First Release								*
*							This file is a subset of the old			*
*								'M16.Utility'							*
*	v2.0R1 (01/22/88) --	First AsmIIGS release						*
*	v2.0R2 (02/11/88) --	"writelin" renamed "writeline"				*
*	v2.0R3 (03/29/88) --	"|" added to pea instrs to avoid Assembler	*
*								warning									*
*							"pushlong" was incorrect if &offset was "s"	*
*								or not specified						*
*	v2.0R4 (04/14/88) --	"writestr" and "writeline" didn't restore	*
*							STRING setting								*
*	v2.0R5 (08/22/88) --	"inc4" and "dec4" redefined to support only	*
*								positive 4 byte integers				*
*							"sub4" fixed so that there will not be any	*
*								truncation warnings generated			*
*							Pull macros now check for missing parameter *
*							  	or extra parameter						*
*	v2.0R6 (09/06/88) --	"dec4" fixed to support positive 4 byte		*
*								integers								*
*************************************************************************

;............................................................
;
;        Pull long (4 bytes) from stack
;
;    pulllong address             - pull off stack to address
;    pulllong addr1,addr2         - pull off stack into 2 places
;    pulllong [zeropage],offset   - pull off stack and store indirectly             
;    pulllong                     - pull off stack and leave in A
;...............................................................
	MACRO
	pulllong &addr1,&addr2
	IF &addr1='' THEN
	IF &addr2­'' THEN 
		AERROR 'Illegal 2nd parameter'
	ENDIF
		pullword
		pullword
	ELSEIF &addr2='' THEN
		pullword  &addr1
		pullword  &addr1+2
	ELSEIF &addr1[1:1]='[' THEN
		ldy   #&addr2
		pullword  &addr1,y
		ldy   #&addr2+2
		pullword  &addr1,y
	ELSE
		pullword  &addr1
		sta   &addr2
		pullword  &addr1+2
		sta   &addr2+2
	ENDIF
	MEND
;...............................................................
;
;        Pull 3 bytes from stack
;
;    pull3 addr    -- pulls bytes off stack and stores in 'loc'
;...............................................................
	MACRO
	pull3 &addr
	IF &addr='' THEN
		AERROR 'A parameter must be specified'
	ENDIF
		pull1	&addr
		pullword  &addr+1
	MEND
;...............................................................
;
;        Pull 2 bytes from stack
;
;    pullword loc     -- pulls bytes off stack and stores in 'loc'
;    pullword loc,x   -- pulls bytes off stack and stores in 'loc,x'
;    pullword         -- pulls bytes off stack and leaves in A
;...............................................................
	MACRO
	pullword &addr,&reg
		pla
	IF &addr­'' THEN
		IF &reg­'' THEN
			sta		&addr,&reg
		ELSE
			sta		&addr
		ENDIF
	ELSEIF &reg­'' THEN 
		AERROR 'Illegal 2nd parameter'
	ENDIF
	MEND
;...............................................................
;
;        Pull 1 byte from stack
;
;    pull1 loc     -- pulls byte off stack and stores in 'loc'
;    pull1 loc,x   -- pulls byte off stack and stores in 'loc,x'
;    pull1         -- pulls byte off stack and leaves in A
;...............................................................
	MACRO
	pull1 &addr,&reg
		shortm
		pullword	&addr,&reg
		longm
	MEND
;...............................................................
;
;        Push 1 byte onto stack
;
;    push1 loc     -- pushes byte onto stack from 'loc'
;    push1 loc,x   -- pushes byte onto stack from 'loc,x'
;    push1 #n      -- pushes constant #n onto stack
;    push1         -- pushes byte onto stack (from A)
;...............................................................
	MACRO
	push1 &addr,&reg
		shortm
		pushword &addr,&reg
		longm
	MEND
;............................................................
;
;        Push long (4 bytes) onto stack
;
;    pushlong address             - push contents of address
;    pushlong address,x           - push contents of address,x
;    pushlong const,s             - push contents of stack+const    
;    pushlong #address/const      - push address or constant
;    pushlong [zeropage],offset   - push using indirect address
;...............................................................
	MACRO
	pushlong &addr,&offset
	IF &addr[1:1]='#' THEN
		pea		&addr[2:255]>>16
		pea		|&addr[2:255]
	ELSEIF &addr[1:1]='[' THEN
		ldy		#&offset+2
		pushword &addr,y
		ldy		#&offset
		pushword &addr,y
	ELSEIF &offset='s' THEN
		pushword &addr+2,s
		pushword &addr+2,s
	ELSEIF &offset='' THEN
		pushword  &addr+2
		pushword  &addr
	ELSE
		pushword &addr+2,&offset
		pushword &addr,&offset
	ENDIF
	MEND
;...............................................................
;
;        Push 3 bytes onto stack
;
;    push3 addr    -- pushes bytes onto stack from 'loc'
;    push3 addr,x  -- pushes bytes onto stack from 'loc,x'
;    push3 #n      -- pushes constant #n onto stack
;...............................................................
	MACRO
	push3 &addr,&reg
	IF &reg­'' THEN
		lda		&addr+1,&reg
		pha
		phb
		lda		&addr,&reg
		sta		1,s
	ELSEIF &addr[1:1]='#' THEN
		lda		#&addr[2:255]>>8
		pha
	GOTO .a
	ELSE
		lda		&addr+1
		pha
.a		phb
		lda		&addr
		sta		1,s
	ENDIF
	MEND
;...............................................................
;
;        Push 2 bytes onto stack
;
;    pushword loc     -- pushes bytes onto stack from 'loc'
;    pushword loc,x   -- pushes bytes onto stack from 'loc,x'
;    pushword #n      -- pushes constant #n onto stack
;    pushword         -- pushes bytes onto stack (from A)
;...............................................................
	MACRO
	pushword &addr,&reg
	IF &addr[1:1]='#' AND &SETTING('LONGA')='ON' THEN
		pea		|&addr[2:255]
	ELSE
		IF &addr­'' THEN
			IF &reg­'' THEN 
				lda		&addr,&reg
			ELSE
				lda		&addr
			ENDIF
		ENDIF
		pha
	ENDIF
	MEND
;...............................................................
;
;        Add 2 byte integers
;
;    add loc1,loc2,loc3 - adds 'loc1' to 'loc2' and stores in 'loc3'
;    add loc1,loc2      - adds 'loc1' to 'loc2' and leaves in A
;    add ,loc2,loc3     - adds A with 'loc2' and stores in 'loc3' 
;
;        'loc1' and 'loc2' can be constants
;...............................................................
         MACRO
	add   &a1,&a2,&a3
	IF &a1­'' THEN
		lda		&a1
	ENDIF
		clc
		adc		&a2
	IF &a3­'' THEN
		sta		&a3
	ENDIF
	MEND
;...............................................................
;
;        Add 4 byte integers
;
;    add4 loc1,loc2,loc3 - adds 'loc1' to 'loc2' and stores in 'loc3'
;    add4 ,loc2,loc3     - adds A to 'loc2' and stores in 'loc3'
;
;        'loc1' and 'loc2' can be constants
;...............................................................
	MACRO
	add4	&a1,&a2,&a3
	IF &a1­'' THEN
		lda		&a1
	ENDIF
		clc
		adc		&a2
		sta		&a3
	IF &a1='' THEN
		lda		#0
	ELSEIF &a1[1:1]='#' THEN
		lda		#^&a1[2:255]
	ELSE
		lda		&a1+2
	ENDIF
	IF &a2[1:1]='#' THEN
		adc		#^&a2[2:255]
	ELSE
		adc		&a2+2
	ENDIF
		sta		&a3+2
	MEND
;...............................................................
;
;        Increment a positive 4 byte integer
;
;    inc4 loc - increments 'loc'
;...............................................................
	MACRO
	inc4  &a1
		inc		&a1
		bne		@a
		inc		&a1+2
@a 
	MEND
;...............................................................
;
;        Subtract 2 byte integers
;
;    sub loc1,loc2,loc3 - subtracts 'loc2' from 'loc1' and stores in 'loc3'
;    sub loc1,loc2      - subtracts 'loc2' from 'loc1' and leaves in A
;    sub ,loc2,loc3      - subtracts 'loc2' from A and stores in 'loc3' 
;
;        'loc1' and 'loc2' can be constants
;...............................................................
	MACRO
	sub   &a1,&a2,&a3
	IF &a1­'' THEN
		lda		&a1
	ENDIF
		sec
		sbc		&a2
	IF &a3­'' THEN
		sta		&a3
	ENDIF
	MEND
;...............................................................
;
;        Subtract 4 byte integers
;
;    sub4 loc1,loc2,loc3 - subtracts 'loc2' from 'loc1' and stores in 'loc3'
;    sub4 ,loc2,loc3     - subtracts 'loc2' from A and stores in 'loc3'
;...............................................................
	MACRO
	sub4	&a1,&a2,&a3
	IF &a1­'' THEN
	IF &a1[1:1]='#' THEN
		lda		#<&a1[2:255]
	ELSE
		lda		&a1
	ENDIF
	ENDIF
		sec
	IF &a1[1:1]='#' THEN
		sbc		#<&a2[2:255]
	ELSE
		sbc		&a2
	ENDIF
		sta		&a3
	IF &a1='' THEN
		lda		#0
	ELSEIF &a1[1:1]='#' THEN
		lda		#^&a1[2:255]
	ELSE
		lda		&a1+2
	ENDIF
	IF &a2[1:1]='#' THEN
		sbc		#^&a2[2:255]
	ELSE
		sbc		&a2+2
	ENDIF
		sta		&a3+2
	MEND
;...............................................................
;
;        Decrement a positive 4 byte integer
;
;    dec4 loc - decrements 'loc'
;...............................................................
	MACRO
	dec4  &a1
		pha
		sec
		lda		&a1
		sbc		#1
		bcs		@a
		dec		&a1+2
@a 		sta		&a1
		pla
	MEND
;...............................................................
;
;        Define string
;
;        Generates a Pascal type of string
;...............................................................
	MACRO
	str	&string
		lclc	&sset
&sset	SETC &SETTING('STRING')
		STRING PASCAL
		dc.B &string
		STRING &sset
	MEND
;...............................................................
;
;        Define pointer
;...............................................................
	MACRO
	dp	&pointer
	dc.L &pointer
	MEND
;...............................................................
;
;        Left Shift 4 bytes
;
;        asl4  loc,#n                   ;n is shift count (pos)
;        asl4  loc,lnum                 ;lnum contains shift count (pos)
;        asl4  loc                      ;X contains shift count (pos)
;...............................................................
	MACRO
	asl4 &loc,&num
		lda   &loc+2
	IF &num­'' THEN
		ldx   &num
	ENDIF
@a		asl		a
		asl		&loc
		adc		#0
		dex
		bne		@a
		sta		&loc+2
	MEND
;...............................................................
;
;        Right Shift 4 bytes
;
;        lsr4  loc,#n                   ;n is shift count (pos)
;        lsr4  loc,lnum                 ;lnum contains shift count (pos)
;        lsr4  loc                      ;X contains shift count (neg)
;...............................................................
	MACRO
	lsr4  &loc,&num
	IF &num­'' THEN
		lda		&num
		eor		#$FFFF
		clc
		adc		#1
		tax
	ENDIF
		lda		&loc
@a		lsr		a
		lsr		&loc+2
		bcc		@b
		ora		#$8000
@b		inx
		bne		@a
		sta		&loc
	MEND
;...............................................................
;
;        Set Memory & A register to 16 bits
;...............................................................
	MACRO
	longm
		rep		#%00100000
		longa	on
	MEND
;...............................................................
;
;        Set X & Y registers to 16 bits
;...............................................................
	MACRO
	longx
		rep		#%00010000
		longi	on
	MEND
;...............................................................
;
;        Set Memory & registers to 8 bits
;...............................................................
	MACRO
	short
		sep		#%00110000
		longa	off
		longi	off
	MEND
;...............................................................
;
;        Set Memory & A register to 8 bits
;...............................................................
	MACRO
	shortm
		sep		#%00100000
		longa	off
	MEND
;...............................................................
;
;        Set X & Y registers to 8 bits
;...............................................................
	MACRO
	shortx
		sep		#%00010000
		longi	off
	MEND
;...............................................................
;
;        Write string
;
;        writestr loc     - string at loc 'loc'
;        writestr #'ABC'  - string='ABC'
;        writestr         - A,Y has loc of string         
;...............................................................
	MACRO
	writestr &addr
	IF &addr­'' THEN
		IF &addr[1:1]='#' THEN
			bra		@b
			LCLC	&sset
&sset		SETC	&SETTING('STRING')
			STRING	PASCAL
@a			DC.B	&addr[2:255]
			STRING	&sset
@b			pea		@a>>16
			pea		|@a
		ELSE
			pea		&addr>>16
			pea		|&addr
		ENDIF
	ELSE
		phy
		pha
	ENDIF
		ldx		#$1C0C
		jsl		$E10000
	MEND
;...............................................................
;
;        Write line (string+CR)
;
;        writeline loc     - string at loc 'loc'
;        writeline #'ABC'  - string='ABC'
;        writeline 'ABC'   - string='ABC'
;        writeline         - CR only
;
;...............................................................
	MACRO
	writeline &addr
	IF &addr­'' THEN
		IF &addr[1:1]='#' OR &addr[1:1]='''' THEN
			bra		@b
			LCLC	&sset
&sset		SETC	&SETTING('STRING')
			STRING	PASCAL
			IF &addr[1:1]='#' THEN
@a				DC.B	&addr[2:255]
			ELSE
@a				DC.B	&addr[1:255]
			ENDIF
			STRING	&sset
@b			pea		@a>>16
			pea		|@a
		ELSE
			pea		&addr>>16
			pea		|&addr
		ENDIF
	ELSE
		pea		@c+1>>16
		pea		|@c+1
	ENDIF
		ldx		#$1A0C
@c		jsl		$E10000
	MEND
;...............................................................
;
;        Write character
;
;        writech          - char in A register
;        writech #'A'     - char='A'
;        writech ch,x     - char in loc 'ch,x'
;...............................................................
	MACRO
	writech &addr,&reg
	IF &addr­'' THEN
		IF &reg­'' THEN
			lda		&addr,&reg
		ELSE
			lda		&addr
		ENDIF
	ENDIF
		pha
		ldx		#$180C
		jsl		$E10000
	MEND
;...............................................................
;
;              Read a char from keyboard
;
;        readch addr     - char stored in 'addr'
;        readch          - char left in A register
;
;...............................................................
	MACRO
	readch &addr
		pea		0
		pea		1
		ldx		#$220C
		jsl		$E10000
		pla
	IF &addr­'' THEN
		sta		&addr
	ENDIF
	MEND

;
; DSect Macros
;
; By Don Marsh  and	Steven Glass
; 11 Sep 87
;
; A series of macros to help in making equates.  This is
; useful when you want to define a series of    equates that
; relate to each other.  For example, offsets on the stack,
; locations on  direct page, offsets in	a record.
;
; Normally you  would do something like
;
;     lab1 equ  0
;     lab2 equ  lab1+4
;     lab3 equ  lab2+2
;     etc.
;
; These macros  let	you do the  following
;
;          DSECT 0
;     lab1 long
;     lab2 word
;     lab3 long
;
; The macros do the	equating and addition for you.  They also make the
; code more readable.
;
; The macro GlobalDSECT makes   the equates global rather than
; local.
;
; The macro DSectSize returns   the current value of the
; dummy program counter that is being maintained.
;
; The macro DefineStack is like using DSECT 1.
;




;
;  DSect &Value
;
;  Begin local  data section.   This defines a  dummy PC
;  register which can be used   in equates to avoid error-
;  prone linked equates for setting up direct page or
;  stack offsets.  The dummy PC begins at &Value and
;  is updated by the appropriate amount	by the BYTE,
;  WORD, LONG,  and	BLOCK macros.
;
	MACRO
	DSect &Value
DummyPC	SET &Value
	MEND


;
;  DefineStack
;
;  This is a specialized data   section	which defines
;  a dummy PC starting at 1 in order to	define a
;  series of stack offsets using the BYTE, WORD,
;  LONG, and BLOCK macros.
;
	MACRO
	DefineStack
DummyPC	SET 1
	MEND

;
;  &lab byte
;
;  Equate the given	label with the current dummy
;  PC (defined  by DSect, GlobalDSect, or
;  DefineStack), and update the dummy PC by the
;  appropriate  amount.
;
	MACRO
&lab	BYTE
&lab	equ DummyPC
DummyPC	SET DummyPC+1
	MEND

;
;  &lab word
;
;  Equate the given	label with the current dummy
;  PC (defined  by DSect, GlobalDSect, or
;  DefineStack), and update the dummy PC by the
;  appropriate  amount.
;
	MACRO
&lab	WORD
&lab	equ DummyPC
DummyPC	SET DummyPC+2
	MEXIT
	MEND

;
;  &lab long
;
;  Equate the given	label with the current dummy
;  PC (defined  by DSect, GlobalDSect, or
;  DefineStack), and update the dummy PC by the
;  appropriate  amount.
;
	MACRO
&lab	LONG
&lab	equ DummyPC
DummyPC	SET DummyPC+4
	MEND

;
;  &lab block &size
;
;  Equate the given	label with the current dummy
;  PC (defined  by DSect, GlobalDSect, or
;  DefineStack), and update the dummy PC by the
;  appropriate  amount (&size bytes).
;
	MACRO
&lab	BLOCK &Value
	if  &lab	= '' goto .skiplab
&lab	equ DummyPC
.skiplab
DummyPC	SET DummyPC+&Value
	MEND

;
;  &lab DSectSize
;
;  This macro equates the given label with the
;  current dummy PC	defined by the DSect,
;  GlobalDSect, or DefineStack macros.	This    is
;  useful for determing the size of data sections
;  or parts of  data sections.
;
	MACRO
&lab	DSectSize
&lab	equ DummyPC
	MEND

;
;  CheckSize &size,&limit
;
;  This macro causes an assembler error	if
;  &size > &limit.	Useful in   checking the size
;  of direct page assignments.
;
	MACRO
	CheckSize &size,&limit
	IF  &Eval(&size)<=&Eval(&limit) goto .DONE
	AError 'Programmer-specified size limit exceeded: ABORT ASSEMBLY!'
.DONE
	MEND

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/FSTs/DOS3.3/my.common.equ b/IIGS.601.SRC/GS.OS/FSTs/DOS3.3/my.common.equ
new file mode 100644
index 0000000..8f4e3c0
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/FSTs/DOS3.3/my.common.equ
@@ -0,0 +1 @@
+*******************************************************************************
*
* Common equates for GS/OS
*
* Created:      4/7/87
* Modified:     See Revision History below
* Author:       GS/OS Team 
*
* Copyright (C) 1987-1988 Apple Computer, Inc.  All rights reserved.
*
* REVISION HISTORY:
*
* DATE     BY   DESCRIPTION
*
* 04/27/87 RBM  Correction: drvr_blk_size is a word wide parameter.
*
* 04/16/87 JJ   Correction: changed error number for duplicate volume
*                           from $55 to $57
* 04/29/87 GRT  Addition:   added definition of path flag
*                           and defined 'span1' and 'span2'
*
* 05/18/87 RBM  Addition:   Added 'boot_slot', 'dev_id_ref',
*                           'drvr_char_config' & 'drvr_pro_config'
*                           These parameters are passed from the F_Loader
*                           to the device dispatcher during boot init.
*
* 06/04/87 JJ   Addition:   Add global equates for system direct page base,
*                           stack top, and ProDOS FST header.
*
* 06/11/87 JJ   Change:     Direct page locations used by SCM to pass
*                           parameters to FST's fundamentally changed. Look
*                           between labels dev_num and span2, inclusive.
*
* 06/30/87 RM/RC Addition:  Added cache manager equates.
*                           Cache priority now cache enable.
*
* 07/20/87 RM/AS Addition:  Equates for control/status list pointers.
*                           Equates for control/status codes.
*
* 07/22/87 RM/RC Change:    Cache enable now cache priority.
*
* 07/24/87 MSA   Addition:  System Service Table Equates & FCR Equates
*
* 07/29/87 RC    Addition:  Added cache header equates.
*
* 08/03/87 RC    Addition:  Added 4 byte pointer in direct page
*
* 08/05/87 MSA   Change:    System Service Table chgd to make GRT happy
*                           Added Parameter Block Equates
*
* 08/10/87 RC/RM Change:    Changed c_volumeid in cache equates into c_devnum.
*
* 08/12/87 FAB   Addition:  Added gquit_stack_top
*
*          MSA   Addition:  Added pblk equate for Get Boot Volume
*                            Star prefix equate added
*
* 08/13/87 RBM   Deletion:  Removed status and control codes for
*                           driver newline since it's not supported.
*
* 08/14/87 MSA   Addition:  Added pblk equate for SetLevel, GetLevel
*
* 08/18/87 RBM   Deletion:  Drvr_vol_id is now Drvr_reserved.
*
* 09/15/87 RBM   Change:    Moved control/status code location on direct page
*
* 09/24/87 MSA   Addition:  Added pblk equate for Close, Flush
*
* 10/02/87 ADS   Deletion:  Removed pro_fst_entry
*
* 10/06/87 MSA   Addition:  Added pblk equate for Expand_Path
*
* 10/29/87 MSA   Addition:  Added debug call flag, debug.calls
*                            and debug.type for SCM
*
* 11/12/87 RBM   Change:    Device dispatcher cmd numbers
*
* 11/13/87 MSA   Addition:  GS/OS System Death Error Codes
*
* 11/15/87 RBM   Addition:  Added 'DRVR_VOL_ID' on direct page.
*
* 11/17/87 RC    Addition:  Added 'c_volumeid' to cache header
*
* 12/6/87  JJ    Addition:  Added system call error codes $64, $65, and $66
*
* 1/5/88   fab   addition:  move commands word for moveinfo system service call
*
* 1/5/88   RBM   addition:  status and control codes.
*
* 1/13/88  fab   addition:  movevaliditymask equate added
*
* 1/14/88  RBM   change:    moved status/control code
*
* 1/14/88  BPA   change:    made all equ's gequ's
*
* 1/15/88  fab   replace:   move_block to move_info
*
* 1/19/88  rc    addition:  default_cache_size
*
* 1/20/88  MSA   addition:  system service table equates
*
* 1/23/88  RBM   Addition:  System service table equates
*
* 2/08/88  RBM   Addition:  driver busy error code ($0029)
*                Addition:  Supervisory driver direct page equates
*
* 3/04/88  MSA   Addition:  get, set boot_vol equates
*
* 3/26/91  JEV   Addition:   equates for pcount table
*
* 9/18/91  JEV	 Addition:  equate for path2_mask
*
*******************************************************************************

path2_mask	equ    $0040		;used to determine if path2 is avail.
stack_top       equ    $00BFFF         ; initial value of system stack pointer
direct_base     equ    $00BD00         ; base address of system direct page
gquit_stack_top equ    $00BCFF         ; gquit sets stk here for boot/switching
drvr_start      equ    $0000           ; start location of driver parameters
gs_start        equ    $0030           ; start of GS/OS parameters
fst_start       equ    $0080           ; start of FST parameters
cache_wspace    equ    $005A           ; beginning addr of cache mgr w/space
drvr_wspace     equ    $006A           ; ***** NUKE THIS LATER ****
sup_wspace      equ    $0070           ; supervisory driver workspace
drvr_dev_num    equ    drvr_start      ; (w)  device number
drvr_call_num   equ    drvr_dev_num+2  ; (w)  call number
drvr_buf_ptr    equ    drvr_call_num+2 ; (lw) buffer pointer
drvr_slist_ptr  equ    drvr_call_num+2 ; (lw) buffer pointer
drvr_clist_ptr  equ    drvr_call_num+2 ; (lw) buffer pointer
boot_slot       equ    drvr_buf_ptr    ; (w)  boot slot for dispatcher only
dev_id_ref      equ    drvr_buf_ptr    ; (w)  indirect device ID
dev_char_config equ    drvr_buf_ptr+2  ; (w)  BASIC/Pascal1.1 configuration
dev_pro_config  equ    drvr_buf_ptr+4  ; (w)  ProDOS configuration
drvr_req_cnt    equ    drvr_buf_ptr+4  ; (lw) request count
drvr_tran_cnt   equ    drvr_req_cnt+4  ; (lw) transfer count
drvr_blk_num    equ    drvr_tran_cnt+4 ; (lw) block number
drvr_blk_size   equ    drvr_blk_num+4  ; (w)  block size
drvr_fst_num    equ    drvr_blk_size+2 ; (w)  File System Translator Number
drvr_stat_code  equ    drvr_fst_num    ; (b)  status code for status call
drvr_ctrl_code  equ    drvr_fst_num    ; (b)  control code for control call
drvr_vol_id     equ    drvr_fst_num+2  ; (w)  volume id
drvr_cache      equ    drvr_vol_id+2   ; (w)  Cache Priority
drvr_cach_ptr   equ    drvr_cache+2    ; (lw) pointer to cached block
drvr_dib_ptr    equ    drvr_cach_ptr+4 ; (lw) pointer to active DIB
drvr_dev_ptr    equ    drvr_dib_ptr+4  ; (lw) pointer to device list
cache_cur_ptr   equ    cache_wspace    ; (lw) pointer to current cache cell
cache_nxt_ptr   equ    cache_cur_ptr+4 ; (lw) pointer to next cache cell
cache_pre_ptr   equ    cache_nxt_ptr+4 ; (lw) pointer to prev cache cell
cache_bkt_ptr   equ    cache_pre_ptr+4 ; (lw) pointer to bucket list
default_cache_size equ $0040           ;16k is default cache size
sup_drvr_ptr    equ    sup_wspace      ; (lw) ptr to supervisor driver list
sib_ptr         equ    sup_wspace+4    ; (lw) ptr to SIB
sup_parm_ptr    equ    sib_ptr+4       ; (lw) ptr to supervisor parameters
pcmd            equ    $0042           ; (b)  ProDOS device command
punit           equ    $0043           ; (b)  ProDOS unit number
pbuffer         equ    $0044           ; (w)  ProDOS buffer address
pblock          equ    $0046           ; (w)  ProDOS block number
drvr_startup    equ    $0000           ; driver startup command
drvr_open       equ    $0001           ; driver open command
drvr_read       equ    $0002           ; driver read command
drvr_write      equ    $0003           ; driver write command
drvr_close      equ    $0004           ; driver close command
drvr_status     equ    $0005           ; driver status command
drvr_control    equ    $0006           ; driver control command
drvr_flush      equ    $0007           ; driver flush command
drvr_shutdn     equ    $0008           ; driver shutdown command
dsptch_bootinit equ    $0000           ; dispatcher boot init command
get_dib_ptr     equ    $0001           ; return a drivers DIB pointer
dsptch_shutdn   equ    $0002           ; dispatcher shutdown command
call_number     equ    gs_start        ; FST call number
param_blk_ptr   equ    call_number+2   ; pointer to user's parameter block
dev_num         equ    $36             ; device number from parameter block
dev1_num        equ    dev_num         ; alias name for dev_num
dev2_num        equ    dev1_num+2      ; second device number
path1_ptr       equ    dev2_num+2      ; ptr to 1st partial/entire pathname
g_fcr_ptr         equ    path1_ptr       ; pointer to file control record
path2_ptr       equ    path1_ptr+4     ; ptr to 2nd partial/entire pathname
g_vcr_ptr         equ    path2_ptr       ; pointer to volume control record
path_flag       equ    path2_ptr+4     ; flag for path information
span1           equ    path_flag+2     ; largest distance between path1 term.
span2           equ    span1+2         ; max dist. between seperators for path2 
no_error        equ    $00             ; no error has occured
bad_system_call equ    $01             ; bad system call number
invalid_pcount  equ    $04             ; invalid parameter count
gsos_active     equ    $07             ; gsos already active
dev_not_found   equ    $10             ; device not found
invalid_dev_num equ    $11             ; invalid device number
drvr_bad_req    equ    $20             ; bad request or command
drvr_bad_code   equ    $21             ; bad control or status code
drvr_bad_parm   equ    $22             ; bad call parameter
drvr_not_open   equ    $23             ; character device not open
drvr_prior_open equ    $24             ; character device already open
irq_table_full  equ    $25             ; interrupt table full
drvr_no_resrc   equ    $26             ; resources not available
drvr_io_error   equ    $27             ; I/O error
drvr_no_dev     equ    $28             ; device not connected
drvr_busy       equ    $29             ; driver is busy & not available
drvr_wr_prot    equ    $2B             ; device is write protected
drvr_bad_count  equ    $2C             ; invalid byte count
drvr_bad_block  equ    $2D             ; invalid block number
drvr_disk_sw    equ    $2E             ; disk has been switched
drvr_off_line   equ    $2F             ; device off line / no media present
bad_path_syntax equ    $40             ; invalid pathname syntax
invalid_ref_num equ    $43             ; invalid reference number
path_not_found  equ    $44             ; subdirectory does not exist
vol_not_found   equ    $45             ; volume not found
file_not_found  equ    $46             ;
dup_pathname    equ    $47             ; create or rename with existing name
volume_full     equ    $48             ;
vol_dir_full    equ    $49             ; volume directory full
version_error   equ    $4A             ;
bad_store_type  equ    $4B             ; bad storage type
end_of_file     equ    $4C             ;
out_of_range    equ    $4D             ; position out of range
invalid_access  equ    $4E             ; access not allowed
buff_too_small  equ    $4F             ; buffer too small
file_busy       equ    $50             ; file is already open
dir_error       equ    $51             ; directory error
unknown_vol     equ    $52             ; unknown volume type
parm_range_err  equ    $53             ; parameter out of range
out_of_mem      equ    $54             ; out of memory
dup_volume      equ    $57             ; duplicate volume name
not_block_dev   equ    $58             ; not a block device
invalid_level   equ    $59             ; specified level outside legal range
damaged_bitmap  equ    $5A             ; block number too large
bad_path_names  equ    $5B             ; invalid pathnames for change_path
not_system_file equ    $5C             ; not an executable file
os_unsupported  equ    $5D             ; operating system not supported
stack_overflow  equ    $5F             ; too many applications on stack
data_unavail    equ    $60             ; data unavailable
end_of_dir      equ    $61             ; end of directory has been reached
invalid_class   equ    $62             ; invalid FST call class
res_not_found   equ    $63             ; file does not contain req. resource
invalid_fst_id  equ    $64             ; specified FST is not present in system
invalid_fst_op  equ    $65             ; FST does not handle this type of call
fst_caution     equ    $66             ; FST handled call, but result is weird
unclaimed_irq   equ    $01             ; unclaimed interrupt
sd_scm_dealloc  equ    $02             ; deallocation error
sd_scm_alloc    equ    $03             ; allocation error
wrong_os_ver    equ    $11             ; wrong operating system version
char_fst_entry  equ    $095000         ;address of Character FST header
drvr_dev_stat   equ    $0000           ; device status code
drvr_ctrl_stat  equ    $0001           ; return control parms
drvr_get_wait   equ    $0002           ; return wait/no-wait mode
drvr_get_format equ    $0003           ; get format options
drvr_reset      equ    $0000           ; reset the device
drvr_format     equ    $0001           ; physically format the device
drvr_eject      equ    $0002           ; eject the media
drvr_set_ctrl   equ    $0003           ; set control parms
drvr_set_wait   equ    $0004           ; set wait/no-wait mode
drvr_set_format equ    $0005           ; set format options
drvr_set_ptn    equ    $0006           ; assign partition owner
drvr_insert     equ    $0007           ; logical media insertion
dev_dispatcher  equ    $01FC00         ;dev_dispatch
cache_find_blk  equ    $01FC04         ;cash_find
cache_add_blk   equ    $01FC08         ;cash_add
cache_init      equ    $01FC0C         ;cache initialization
cache_shutdn    equ    $01FC10         ;cash_shutdown
cache_del_blk   equ    $01FC14         ;cash_delete
cache_del_vol   equ    $01FC18         ;cash_del_vol
alloc_seg       equ    $01FC1C         ;alloc_zero
release_seg     equ    $01FC20         ;deallocate
alloc_vcr       equ    $01FC24         ;allocvcr
release_vcr     equ    $01FC28         ;releasevcr
alloc_fcr       equ    $01FC2C         ;allocfcr
release_fcr     equ    $01FC30         ;releasefcr
swap_out        equ    $01FC34         ;swapout
deref           equ    $01FC38         ;deref2
get_sys_gbuf    equ    $01FC3C         ;s_get_sys_gbuf
sys_exit        equ    $01FC40         ;s_sys_exit
sys_death       equ    $01FC44         ;s_sys_death
find_vcr        equ    $01FC48         ;findvcr
find_fcr        equ    $01FC4C         ;findfcr
set_sys_speed   equ    $01FC50         ; set system speed
cache_flsh_def  equ    $01FC54         ; flush deferred blocks from cache
rename_vcr      equ    $01FC58         ;renamevcr
rename_fcr      equ    $01FC5C         ;renamefcr
get_vcr         equ    $01FC60         ;getvcr
get_fcr         equ    $01FC64         ;getfcr
lock_mem        equ    $01FC68         ;lockmem
unlock_mem      equ    $01FC6C         ;unlockmem
move_info       equ    $01FC70         ;block move routines
cvt_0to1        equ    $01FC74         ;cvt0to1
cvt_1to0        equ    $01FC78         ;cvt1to0
replace_80      equ    $01FC7C         ;replace80
to_b0_core      equ    $01FC80         ;to_bank0_core
gen_dispatch    equ    $01FC84         ;g_dispatch
signal          equ    $01FC88         ;signal_event
get_sys_buf     equ    $01FC8C         ;get_b0_buf
set_disksw      equ    $01FC90         ;set_disk_sw
report_error    equ    $01FC94         ;s_report_error
mount_message   equ    $01FC98         ;s_mount_msg
full_error      equ    $01FC9C         ;s_full_error
report_fatal    equ    $01FCA0         ;s_report_fatal
sup_drvr_disp   equ    $01FCA4         ; supervisory dispatcher
install_driver  equ    $01FCA8         ; install device driver
get_boot_pfx    equ    $01FCAC         ;s_get_boot_vol
set_boot_pfx    equ    $01FCB0         ;s_set_boot_vol
;vcr_size        equ    18              ;Currently 18 bytes in length
vcr_id          equ    $0000           ;offset to volume ID
vcr_name        equ    vcr_id+2        ;offset to volume name pointer
vcr_status      equ    vcr_name+4      ;offset volume status
vcr_open_cnt    equ    vcr_status+2    ;offset to number of open files on vol.
vcr_fst_id      equ    vcr_open_cnt+2  ;offset to owner ID number
vcr_dev         equ    vcr_fst_id+2    ;offset to where volume was last seen
vcr_fst_ptr     equ    vcr_dev+2       ;offset to where volume was last seen
vcr_swapped     equ    $4000           ;FLAG:Volume is swapped out (1 = true)
vcr_swapped_in  equ    $BFFF           ;FLAG:Volume is swapped in
vcr_wr_enable   equ    $2000           ;FLAG:Volume has been seen write enabled
vcr_wr_unknown  equ    $DFFF           ;FLAG:Volume has not been seen wrenbld
fcr_ref_num     equ    $0000
fcr_path_name   equ    fcr_ref_num+2
fcr_fst_id      equ    fcr_path_name+4
fcr_vol_id      equ    fcr_fst_id+2
fcr_level       equ    fcr_vol_id+2
fcr_newline     equ    fcr_level+2
fcr_newline_len equ    fcr_newline+4
fcr_mask        equ    fcr_newline_len+2
fcr_access      equ    fcr_mask+2
fcr_fst_ptr	equ	fcr_access+2

c_lru_fwd       equ    $0000           ;vp to  forward LRU vp link
c_lru_bwd       equ    c_lru_fwd+4     ;vp to backward LRU vp link
c_bkt_fwd       equ    c_lru_bwd+4     ;vp to  forward bucket vp link
c_bkt_bwd       equ    c_bkt_fwd+4     ;vp to backward bucket vp link
c_blknum        equ    c_bkt_bwd+4     ;block number  of cached block
c_blksize       equ    c_blknum+4      ;block   size  of cached block
c_fstnum        equ    c_blksize+2     ;FST number    of cached block
c_volumeid      equ    c_fstnum+2      ;volume id     of cached block
c_devnum        equ    c_volumeid+2    ;device number of cached block
c_priority      equ    c_devnum+2      ;cache priority
c_cellsize      equ    c_priority+2    ;size of this cache cell
c_reserved      equ    c_cellsize+2    ;reserved
c_headerlen     equ    c_reserved+4    ;length of cache header
c_cached_data   equ    c_reserved+4    ;offset to cached data block
ram_cache_size  equ    $0081           ;battery ram location for this
star_pfx_num    equ    32              ;Prefix #32 is the star prefix
sys_version     equ    $8200           ;Unreleased Version 2.00
debug_calls     equ    $0001           ;Turn on debugging calls
debug_type      equ    $0010           ;Highest numbered type
pblk_09_pfxnum  equ    $0000           ;Set and Get Prefix
pblk_09_pname   equ    $0002
pblk_0E_pname1  equ    $0000           ;Expand Path
pblk_0E_pname2  equ    $0004
pblk_14_refnum  equ    $0000           ;Close and Flush
pblk_1a_level   equ    $0000           ;Set and Get Level
pblk_28_pname   equ    $0000           ;Get Boot Volume
pblk_2a_version equ    $0000           ;Get Version Number
emulstack       equ    $010100
moveblkcmd      equ    $0800           ;tell hardware to do block move option
movevaliditymask equ   $f7f0           ;invalid move if any of these bits =1
move_sinc_dinc  equ    $05+moveblkcmd  ;source incs - destination incs
move_sinc_ddec  equ    $09+moveblkcmd  ;source incs - destination decs
move_sdec_dinc  equ    $06+moveblkcmd  ;source decs - destination incs
move_sdec_ddec  equ    $0a+moveblkcmd  ;source decs - destination decs
move_scon_dcon  equ    $00+moveblkcmd  ;source constant - destination constant
move_sinc_dcon  equ    $01+moveblkcmd  ;source incs - destination constant
move_sdec_dcon  equ    $02+moveblkcmd  ;source decs - destination constant
move_scon_dinc  equ    $04+moveblkcmd  ;source constant - destination incs
move_scon_ddec  equ    $08+moveblkcmd  ;source constant - destination decs

max_pcnt0	equ	0+1			;Values	for max	pcounts.
max_pcnt1	equ	1+1	
max_pcnt2	equ	2+1
max_pcnt3	equ	3+1
max_pcnt4	equ	4+1
max_pcnt5	equ	5+1
max_pcnt6	equ	6+1
max_pcnt7	equ	7+1
max_pcnt8	equ	8+1
max_pcnt9	equ	9+1
max_pcnt10	equ	10+1
max_pcnt11	equ	11+1
max_pcnt12	equ	12+1
max_pcnt13	equ	13+1
max_pcnt14	equ	14+1
max_pcnt15	equ	15+1
max_pcnt16	equ	16+1
max_pcnt17	equ	17+1

min_pcnt0	equ	$0000			;Values	for min	pcounts.
min_pcnt1	equ	$0100
min_pcnt2	equ	$0200
min_pcnt3	equ	$0300
min_pcnt4	equ	$0400
min_pcnt5	equ	$0500
min_pcnt6	equ	$0600



\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/FSTs/DOS3.3/param.records b/IIGS.601.SRC/GS.OS/FSTs/DOS3.3/param.records
new file mode 100644
index 0000000..6241551
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/FSTs/DOS3.3/param.records
@@ -0,0 +1 @@
+*
*****************************************************************************************
;
;	Record templates for parameter lists for GS/OS calls.
;
;	Monte Benaresh  September 13, 1988
;
*****************************************************************************************

	
*************************************************************
get_file_info0		record
			dsect 0

pathname		long
access			word
file_type		word
aux_type		long
storage_type		word
create_date		word
create_time		word
mod_date		word
mod_time		word
blocks_used		long
			endr

*************************************************************
get_file_info1		record
pmax			equ 12+1
			dsect 0

pcount			word
pathname		long
access			word
file_type		word
aux_type		long
storage_type		word
create_date_time	block 8
mod_date_time		block 8
option_list		long
eof			long
blocks_used		long
resource_eof		long
resource_blocks		long
			endr

*************************************************************
volume0			record
			dsect 0

dev_name		long
vol_name		long
total_blocks		long
free_blocks		long
file_sys_id		word
			endr

*************************************************************
volume1			record
pmax			equ 6+1
			dsect 0

pcount			word
dev_name		long
vol_name		long
total_blocks		long
free_blocks		long
file_sys_id		word
block_size		word
			endr

*************************************************************
open0			record
			dsect 0

ref_num			word
pathname		long
reserved		long
			endr

*************************************************************
open1			record
pmax			equ 15+1
			dsect 0

pcount			word
ref_num			word
pathname		long
request_access		word
resource_number		word
access			word
file_type		word
aux_type		long
storage_type		word
create_date_time	block 8
mod_date_time		block 8
option_list		long
eof			long
blocks_used		long
resource_eof		long
resource_blocks		long
			endr

*************************************************************
read0			record
			dsect 0

ref_num			word
data_buffer		long
request_count		long
transfer_count		long
			endr

*************************************************************
read1			record
pmax			equ 5+1
			dsect 0

pcount			word
ref_num			word
data_buffer		long
request_count		long
transfer_count		long
cache_priority		word
			endr

*************************************************************
close0			record
			dsect 0

ref_num			word
			endr

*************************************************************
close1			record
pmax			equ 1+1
			dsect 0

pcount			word
ref_num			word
			endr

*************************************************************
set_mark0		record
			dsect 0

ref_num			word
position		long
			endr

*************************************************************
set_mark1		record
pmax			equ 3+1
			dsect 0

pcount			word
ref_num			word
base			word
displacement		long
			endr

*************************************************************
get_mark0		record
			dsect 0

ref_num			word
position		long
			endr

*************************************************************
get_mark1		record
pmax			equ 2+1
			dsect 0

pcount			word
ref_num			word
position		long
			endr

*************************************************************
get_eof0		record
			dsect 0

ref_num			word
eof			long
			endr

*************************************************************
get_eof1		record
pmax			equ 2+1
			dsect 0

pcount			word
ref_num			word
eof			long
			endr

*************************************************************
get_dir_entry0		record
			dsect 0

ref_num			word
flags			word
base			word
displacement		word
name			long
entry_num		word
file_type		word
eof			long
block_count		long
create_date_time	block 8
mod_date_time		block 8
access			word
aux_type		long
file_sys_id		word
			endr

*************************************************************
get_dir_entry1		record
pmax			equ 17+1
			dsect 0

pcount			word
ref_num			word
flags			word
base			word
displacement		word
name			long
entry_num		word
file_type		word
eof			long
block_count		long
create_date_time	block 8
mod_date_time		block 8
access			word
aux_type		long
file_sys_id		word
option_list		long
resource_eof		long
resource_blocks		long
			endr

*************************************************************
get_dev_num0		record
			dsect 0

dev_name		long
dev_num			word
			endr

*************************************************************
get_dev_num1		record
pmax			equ 2+1
			dsect 0

pcount			word
dev_name		long
dev_num			word
			endr

*************************************************************
fst_specific		record

			dsect 0

pcount			word
fst_num			word
command			word
param1			word
param2			word
			endr

*************************************************************
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/FSTs/HFS/hfs.fst.btree b/IIGS.601.SRC/GS.OS/FSTs/HFS/hfs.fst.btree
new file mode 100644
index 0000000..2b978e0
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/FSTs/HFS/hfs.fst.btree
@@ -0,0 +1 @@
+			PRINT NOHDR
******************************************************************
*
* GS/OS HFS B*Tree Routines
* Copyright Apple Computer, Inc. 1989-1991.  All Rights Reserved.
*
* Implemented on the 65816 by Cary Farrier.
* Original routines on the MC68000 by Bill Bruffey et al.
*
******************************************************************
	
 EJECT
******************************************************************
*
* REVISION HISTORY:
*	
* Date		By		Description
*
* 10/16/89	CAF 	Created this file.
* 02/07/90	CAF		Changed byte sex on most c,e,&btree functions
* 05/25/90	CAF		Alpha Release.
* 05/30/90	CAF		Fixed a bug in ct_move_rec where I was allowing 
*					a directory to be moved into one of its children.
*					Also changed the error code that I report to
*					'bad_path_names', instead of an internal
*					error code.
* 06/14/90	CAF		Fixed a bug in strcmp where I wasn't correctly 
*					comparing characters with diacriticals.
* 06/25/90	CAF		Fixed a bug in bt_ext_bt_file where I was 
*					imbalancing the internal HFS stack, and fixed a
*					few typo bugs in the same routine.
* 06/26/90	CAF		Fixed a bug in bt_delete_rec where I was calculating a 
*					wrong address when deleting a record, thus stomping on memory
*					and corrupting the disk.
* 06/27/90	CAF		Fixed a bug in bt_alloc_node where I was using an incorrect
*					index value while searching for a free disk
*					node, and was only searching through half
*					of the map.
* 07/25/90	CAF		Fixed a bug in et_get_rec where I wasn't doing a clc before an
*					adc, thus throwing a pointer off by one.
* 07/26/90	CAF		Fixed a bug in bt_alloc_node where I was going past the end of
*					the map, and another bug in the same proc where I was ignoring
*					the return value of bt_rel_map.
* 07/27/90	CAF		Fixed a bug in bt_ext_bt_file where I was not allocating the block
*					in the bitmap when a new map node was allocated,
*					thus the map node was being used as a leaf node
*					as well.
* 07/31/90	CAF		Fixed a bug in bt_ext_bt_file where I was not correctly allocating
*					the block for a new map node, so the map node was
*					being allocated a second time as a leaf node.
* 08/01/90	CAF		Fixed a bug in bt_chk_node where I was returning a bad node
*					error when I encountered a map_node type.
* 					Fixed two bugs in bt_ext_bt_file where I wasn't checking the error
*					codes returned from some subroutines.
* 08/09/90	CAF		Added some code to bt_get_map to check if the node is either a
*					map node or a header node.  An internal error code will be returned
*					if it is neither.
* 08/15/90	CAE		Bug fix (BK004) - alloc_blocks was not restoring the registers if
*					a volume full error occurred.
* 					Bug fix (BK004) - et_extend_file was stopping after allocating
*					1 extent even if more blocks were required.
*					Bug fix (BK004) - alloc_blocks/get_next_word was writing out $0000  
*					to the bitmap if the current bitmap word was $FFFF.
* 08/16/90	CAE		Bug fix (BK005) - et_delete_file was calling bt_search with the
*					fcr ptr in <a2 instead of <a4.
* 08/27/90  CAE		Bug fix (BK007,BK009) - et_search_rec had a BEQ after an XBA which
*					caused the branch to be taken when the lo byte was 0 instead
*					of when the whole word was 0.
* 					Bug fix - ct_move_rec had references to '|temp1' instead of '<temp1'.
* 					Bug fix - et_delete_file and et_trunc_file had a BEQ after an XBA 
*					which would cause the branch to be taken when the lo byte was 0 
*					instead of when the whole word was 0.
* 08/30/90  CAE		Bug fix (BK006, BK012) - et_extend_file didn't call et_flush
*					if a 'volume full' error occurred while growing the CTree.
*					So,the ETree Header wasn't updated which resulted in a damaged disk 
*					if Extent Records had been added to the ETree.
* 					Bug fix - et_delete_file and et_trunc_file had a CLC after the
*					'jsr et_flush' which destroyed any errors returned by et_flush.
* 09/10/90  CAE		Bug fix (from latest HFS sources) - bt_delete had a 'word move'
*					that should have been a 'long move'.
* 					Bug fix (from latest HFS sources) - changed 2 branches in bt_search.
* 					Bug fix (from latest HFS sources) - the 'max key size' calculation
*					in bt_build_i_rec was incorrect.
* 					Bug fix (from latest HFS sources) - added check in bt_insert
*					to see if tree depth > maximum.
* 09/11/90  CAE		Added EXPORT for strcmp routine so change_path can call it.
* 09/14/90	CAF		Added a check in ct_create_rec to make sure that you can't place
*					more than $FFFF files and $FFFF dirs in the root dir.  Added a new error
*					code in case someone tries to create a record that I don't know
*					the type of.
* 09/24/90	CAF		Added new version of xtable in strcmp that Chad Williams created; 
*					fixes bugs in sorting/inserting files that were creating disks 
*					that were incompatable with the Mac.
* 09/26/90	CAF		Fixed a bug (BK019) in ct_rename_rec where I was assuming that an error
*					being returned was a dup_pathname error, but it was actually a 
*					volume_full error and was being handled incorrectly.
* 09/28/90  CAE		Bug fix (BK024) - et_extend_file was returning a "volume full" error
*					even though the needed bytes were available in the file's last extent.
* 10/03/90  CAE		Bug fix (BK029) - previous change to ct_rename_rec was checking
*					for the wrong error code. 
* 					Bug fix (CW006) - et_log_2_phys was returning the wrong value in D6.
* 10/11/90  CAE	    Removed IMPORT for type_flag since it's never used.
* 				 	Changed 2 references from vcr_ablk_size to ablk_size.
* 10/18/90  CAE		Removed 2 BRK instructions.  Changed error codes and modified
*					error reporting.  Added error checking.  Removed commented out code.
* 10/19/90  CAE		Moved equates into hfs.fst.equ file.
* 10/19/90  CAE		Beta 01 release.
* 11/14/90  CAE	 	Bug fix (BK030) - moved the 'jsr ct_flush' after the 'exit' label
*					in ct_create_rec, ct_delete_rec, ct_move_rec and ct_rename_rec so
*					that the CTree Header would be updated even if an error occurred.
* 				 	Bug fix - moved the 'jsr et_flush' after the 'exit' label in
*					et_delete_file and et_trunc_file to ensure that the
*					ETree Header would be updated even if an error occurred.
* 					Bug fix (BK031) - et_extend_file was returning with no error and
*					no bytes allocated if a request for $ffffffff bytes was made.
*					Bug fix - ct_delete_rec was getting an error when trying to
*					delete a thread record because D5.L was not being setup due to 
*					erroneous code cleanup on 10/90.
* 11/20/90  CAE  	Bug fix (BK032) - Added a fourth node buffer so that when a
*		   			Create call is done with a specified eof and/or resource eof
*		   			on a fragmented disk we won't run out of node buffers if we
*		   			need to split an ETree node while extending a fork.
* 11/28/90	CAE		Bug fix - et_update was calling bt_search with the
*					fcr ptr in <A2 instead of <A4.
*					Bug fix - The copy loop in et_update was off by 1
*					which smashed the first byte of the next extent record.
* 11/29/90  CAE		Bug fix - bt_delete_rec was calculating a ptr incorrectly
*					causing garbage to be copied into the node.
* 					Bug fix - When truncating a resource fork, the extents were not 
*					being found and released because et_trunc_file had 
*					"and #>rsrc_fork_bit" instead of "and #rsrc_fork_bit".   
* 11/30/90  CAE		Bug fix - When truncating a resource fork, the extents were not 
*					being found and released because et_trunc_file was not setting 
*					eky_fork_type to $FF. 
*					Bug fix - bt_delete and bt_update are now called with the fcr
*					pointer in A4 instead of A2 in order to be more consistent with
*					the rest of the code and to fix a bug in et_trunc_file where
*					the original value in A2 was trashed when calling bt_delete.
* 12/20/90  CAE		Bug fix (BK039) - Moving a subdirectory to the root 
*					level caused a $C56A error to be reported from ct_move_rec.  
* 01/14/91  CAE		Bug fix (BK041) - ct_move_rec now reports "bad_path_syntax"
*					for an illegal move instead of "bad_path_names".
* 01/28/91  CAE		Replaced some calls to long_multiply with calls to word_multiply.
*					Replaced some calls to long_multiply with inline code.
* 01/29/91  CAE		Replaced some calls to long_divide with calls to word_divide.
*					Replaced some calls to long_divide with inline code.
* 02/18/91  CAE		Catalog hint is now supplied as input to ct_delete_rec,
*					et_delete_file, and ct_move_rec.
* 02/19/91  CAE		Bug fix - bt_insert was copying too many bytes at "@loop"
*					which resulted in ctree_tpt being overwritten.
* 02/20/91  CAE		Bug fix - bt_delete was not compacting the tree properly
*					due to an erroneous compare operation at "upd_depth".
* 04/04/91  CAE		Bug fix - alloc_blocks was always rounding the request up to
*					a clump even when growing a tree. This caused problems if the
*					disk was severly fragmented and we had to allocate many small
*					fragments to grow the Catalog Tree. The last fragment allocated
*					was too big beacuse the request was rounded up. Since the peof
*					was set to the actual request, we ended up with extra blocks
*					allocated to the tree but never used.
* 02/11/92  CAE		Bug fix (Radar #1021793) - when moving and renaming a directory,
*					the directory's thread record was not updated with the new
*					name resulting in a damaged disk.  Proc changed - ct_move_rec.
*
* 03/23/92 Monte Benaresh
*					Changed the pseudo stack for the B-tree routines to reside in
*					bank $00 so that the routines pop_regs and push_regs could be
*					made considerably faster and smaller, resulting in a 7.7%
*					improvement in file copying speed in the Finder.
*
* 03/26/92 Monte Benaresh
*				Optimized the push/pop routines by adding a stack_end datum and
*				making stack_index a real address, and making other tweaks in
*				the code.
*
* 04/01/92 Monte Benaresh
*				Squeezed out a few more cycles from the push/pop routines.
*
* 04/02/92 Monte Benaresh
*				Squeezed out a few more instructions here and there.  Search
*				on my first name to find the changes.
*
******************************************************************

			PRINT  OFF
			INCLUDE 'common.equ.src'
			INCLUDE 'hfs.fst.equ'
			PRINT  ON

*
* stuff to make the assembler happy
*
			ENTRY	ct_upd_v_cnts,ct_upd_rt_cnts
			ENTRY	ct_create_key,ct_flush,ct_loc_fil_dir
			ENTRY	ct_loc_rec,ct_update_name,ct_upd_mod_dt
			
			ENTRY	et_delete_file,et_compare_key,et_flush
			ENTRY	et_get_rec,et_update,et_search_rec
			
			ENTRY	bt_alloc_node,bt_ext_bt_file,bt_free_node,bt_get_map
			ENTRY	bt_rel_map,bt_delete,bt_get_offset
			ENTRY	bt_get_rec_addr,bt_insert_rec,bt_loc_rec,bt_flush
			ENTRY	bt_clr_node,bt_delete_rec,bt_get_lt_sib,bt_get_rt_sib
			ENTRY	bt_get_record,bt_insert,gr_get_node,gr_rel_node
			ENTRY	bt_search,bt_update,bt_mark_node,bt_get_node,bt_rel_node
			ENTRY	bt_init_node,bt_loc_tpr,bt_set_up,bt_upd_d_rec
			ENTRY	bt_mov_off_lt,bt_mov_rec_lt,bt_mov_rec_rt,bt_mov_off_rt
			ENTRY	find_node_buf,bt_search_node,bt_upd_i_key,bt_rotate_lt
			ENTRY	bt_split_lt,bt_tree_search,bt_rot_rec_lt,strcmp
			
			ENTRY	get_next_word,update_bitmap,get_next_bit,get_bitmap_bit
			ENTRY	dealloc_blocks,alloc_blocks

*
* stuff to make Cheryl and I happy
*
			IMPORT	d0,d1,d2,d3,d4,d5,d6,d7
			IMPORT	cky_buffer,cat_buffer
			IMPORT	eky_buffer,ext_buffer
			IMPORT	ctree_fcr_ptr,etree_fcr_ptr
			IMPORT	time,ablk_size,save_gbuf_ptr2
			IMPORT	node_buf1,node_buf2,node_buf3,node_buf4
			
			IMPORT	word_divide,long_divide,long_divide_up
			IMPORT	word_multiply,long_multiply
			IMPORT	ablk2pblk
			IMPORT	node_buf_read,node_buf_write	
			IMPORT	bitmap_buf_read,bitmap_buf_write
			IMPORT	update_vib,update_alt_vib,update_bth
			
			EXPORT	ct_create_rec,ct_delete_rec,ct_get_rec,ct_get_dir_kid
			EXPORT	ct_move_rec,ct_rename_rec,ct_update,ct_compare_key
			EXPORT	et_delete_file,et_extend_file,et_trunc_file
			EXPORT	et_log_2_phys,et_compare_key,bt_get_node,bt_mark_node,strcmp
			
 EJECT
******************************************************************
*
* HFS Stack Manipulation Calls
*
******************************************************************
			
 EJECT
******************************************************************
*
* 			Name:	push_regs
*
*	 Description:	pushes registers specified by A onto the HFS
*					stack.
*
*		  Author:	Cary Farrier
*		 Created:	10/19/89
*
*		   Entry:	jsr
*
*		   Input:	A = flag word indicating which registers to
*						push onto HFS stack.
*
*  15                           8   7                           0
* +ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+
* | X | X | 5 | 4 | 3 | 2 | 1 | 0 | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 |
* +ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |
*   |   |   |   |   |   |   |   |   +ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ D0-D7
*   |   |   +ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ A0-A5
*   +ÑÑÑ+ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ reserved
*
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*			Exit:	rts
*
*			Uses:	<stack_ptr			"hfs.fst.equ"
*					<stack_index		"hfs.fst.equ"
*					#stack_size			"hfs.fst.equ"
*					|d0-|d7				"main.aii"
*					<a0-<a5				"hfs.fst.equ"
*
*		   Calls:	sys_death
*
******************************************************************
* Copyright Apple Computer, Inc. 1989-1990.  All rights reserved.
******************************************************************
*
* REVISION HISTORY:
*
* 10/19/89	CAF		Created.
* 02/07/90	CAF		Fixed a bug where I wasn't updating the
*					stack index correctly, I was only adding 2 
*					bytes to the stack index for every 4 pushed.
* 10/15/90  CAE		Removed BRK at 'overflow' label.
*
* 03/23/92 Monte Benaresh
*				Changed the pseudo stack for the B-tree routines to reside in
*				bank $00 so that the routines pop_regs and push_regs could be
*				made considerably faster and smaller, resulting in a 7.7%
*				improvement in file copying speed in the Finder.
*
* 03/26/92 Monte Benaresh
*				Optimized routine by adding a stack_end datum, making
*				stack_index a real address, and checking for 0 in the
*				remaining register bits at a good time among the shifts.
*
* 04/01/92 Monte Benaresh
*				Squeezed out a few more cycles.
*
******************************************************************

*** storage

;old_sp		ds.w 1					;old stack pointer


push_regs	PROC

			php						;save interrupt state
			tsx
			;stx old_sp				;save entry stack pointer
			txy						;save entry stack pointer
									;*** PRESERVE Y UNTIL END! ***

			ldx <stack_index		;this is in bank $00

			sei						;disable interrupts while in pseudo stack!
			txs						;set to pseudo stack

do_d0		lsr  a					; rotate the flag bit into carry
			bcc  do_d1				; is the flag for the reg set? no ->

			ldx  |d0				; get half of register
			phx						;push onto pseudo stack
			ldx  |d0+2				; get half of register
			phx

do_d1		lsr  a					; rotate the flag bit into carry
			bcc  do_d2				; is the flag for the reg set? no ->

			ldx  |d1				; get half of register
			phx						;push onto pseudo stack
			ldx  |d1+2				; get half of register
			phx

do_d2		lsr  a					; rotate the flag bit into carry
			bcc  do_d3				; is the flag for the reg set? no ->

			ldx  |d2				; get half of register
			phx						;push onto pseudo stack
			ldx  |d2+2				; get half of register
			phx

do_d3		lsr  a					; rotate the flag bit into carry
			bcc  do_d4				; is the flag for the reg set? no ->

			ldx  |d3				; get half of register
			phx						;push onto pseudo stack
			ldx  |d3+2				; get half of register
			phx

do_d4
			tax
			beq done				;check for no more to push
			lsr  a					; rotate the flag bit into carry
			bcc  do_d5				; is the flag for the reg set? no ->

			ldx  |d4				; get half of register
			phx						;push onto pseudo stack
			ldx  |d4+2				; get half of register
			phx

do_d5		lsr  a					; rotate the flag bit into carry
			bcc  do_d6				; is the flag for the reg set? no ->

			ldx  |d5				; get half of register
			phx						;push onto pseudo stack
			ldx  |d5+2				; get half of register
			phx

do_d6		lsr  a					; rotate the flag bit into carry
			bcc  do_d7				; is the flag for the reg set? no ->

			ldx  |d6				; get half of register
			phx						;push onto pseudo stack
			ldx  |d6+2				; get half of register
			phx

do_d7
			lsr  a					; rotate the flag bit into carry
			bcc  do_a0				; is the flag for the reg set? no ->

			ldx  |d7				; get half of register
			phx						;push onto pseudo stack
			ldx  |d7+2				; get half of register
			phx

do_a0		lsr  a					; rotate the flag bit into carry
			bcc  do_a1				; is the flag for the reg set? no ->

			pei a0
			pei a0+2

do_a1		lsr  a					; rotate the flag bit into carry
			bcc  do_a2				; is the flag for the reg set? no ->

			pei a1
			pei a1+2

do_a2		lsr  a					; rotate the flag bit into carry
			bcc  do_a3				; is the flag for the reg set? no ->

			pei a2
			pei a2+2

do_a3		lsr  a					; rotate the flag bit into carry
			bcc  do_a4				; is the flag for the reg set? no ->

			pei a3
			pei a3+2

do_a4		lsr  a					; rotate the flag bit into carry
									;*** PRESERVE z FLAG UNTIL do_a5
			bcc  do_a5				; is the flag for the reg set? no ->

			pei a4
			pei a4+2

do_a5		;lsr  a					; rotate the flag bit into carry
			;bcc  done				; is the flag for the reg set? no ->
			beq done				;z flag should remain from last lsr
									;changed 4/1/92 by Monte

			pei a5
			pei a5+2
done
			tsc
			sta <stack_index		;update pseudo stack pointer

			;ldx old_sp
			tyx						;Y = old stack ptr
			txs						;restore real stack pointer

			plp						;restore old interrupt state

			;inc a					;adjust in case 1 below stack
			cmp <stack_ptr			;still in healthy range? (points to lowest
									;address -1 of stack)
			bcc overflow

			rts						;return all OK

overflow	lda  #bt_stack_overflow	; load error code
			jml  >sys_death			; no one lives forever ->

			ENDP 					; end of push_regs
			
 EJECT
******************************************************************
*
* 			Name:	pop_regs
*
*	 Description:	pops registers specified by A off the HFS
*					stack.
*
*		  Author:	Cary Farrier
*		 Created:	10/21/89
*
*		   Entry:	jsr
*
*		   Input:	A = flag word indicating which registers to
*						pop off HFS stack.
*
*  15                           8   7                           0
* +ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+
* | 5 | 4 | 3 | 2 | 1 | 0 | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 | X | X |
* +ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |   +ÑÑÑ+ÑÑÑ reserved
*   |   |   |   |   |   |   +ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑÑÑÑÑÑÑÑÑ D0-D7
*   +ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑ+ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ A0-A5
*
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000..1 = error
*							   0 = no error
*
*		  Timing:	pop a  D register =  48 cycles
*					pop an A register =  46 cycles
*
*			Exit:	rts
*
*			Uses:	<stack_index		"hfs.fst.equ"
*					#stack_size			"hfs.fst.equ"
*					|d0-|d7				"main.aii"
*					<a0-<a5				"hfs.fst.equ"
*
*		   Calls:	sys_death
*
******************************************************************
* Copyright Apple Computer, Inc. 1989-1990.  All rights reserved.
******************************************************************
*
* REVISION HISTORY:
*
* 10/21/89	CAF		Created.
* 10/15/90  CAE		Removed BRK at 'underflow' label.
* 03/23/92 Monte Benaresh
*				Changed the pseudo stack for the B-tree routines to reside in
*				bank $00 so that the routines pop_regs and push_regs could be
*				made considerably faster and smaller, resulting in a 7.7%
*				improvement in file copying speed in the Finder.
*
* 03/26/92 Monte Benaresh
*				Optimized routine by adding a stack_end datum, making
*				stack_index a real address, and checking for 0 in certain
*				register bits before shifting, and changing all calls to this
*				routines to let the assembler pre-shift the register bits to
*				be left-justified.
*
* 04/01/92 Monte Benaresh
*				Squeezed out a few more cycles.
*
******************************************************************
pop_regs	PROC

;	next two instructions removed because they are not needed if
;	the accum is loaded with the constant already shifted by the
;	assembler -- Monte Benaresh 3/26/92

			;rol  a					; skip unused bits in flag word
			;rol  a

			php						;save interrupt state
			tsx
			;stx old_sp				;save entry stack pointer
			txy						;save entry stack pointer
									;*** PRESERVE Y UNTIL END! ***

			ldx <stack_index		;get our current location

			sei						;disable interrupts while in pseudo stack!
			txs						;set to pseudo stack

			bit #$FFC0				;these bits all 0?
			bne do_a5				;no, continue
@skip_some
			xba						;move remaining bits into position
			asl a
			asl a
			bra do_d3				;do those registers

do_a5		rol  a					; rotate the flag bit into carry
			bcc  do_a4				; is the flag for the reg set? no ->

			plx						;high word first
			stx <a5+2
			plx
			stx <a5

do_a4		rol  a					; rotate the flag bit into carry
			bcc  do_a3				; is the flag for the reg set? no ->

			plx						;high word first
			stx <a4+2
			plx
			stx <a4

do_a3		rol  a					; rotate the flag bit into carry
			bcc  do_a2				; is the flag for the reg set? no ->

			plx						;high word first
			stx <a3+2
			plx
			stx <a3

do_a2		rol  a					; rotate the flag bit into carry
			bcc  do_a1				; is the flag for the reg set? no ->

			plx						;high word first
			stx <a2+2
			plx
			stx <a2

do_a1		rol  a					; rotate the flag bit into carry
			bcc  do_a0				; is the flag for the reg set? no ->

			plx						;high word first
			stx <a1+2
			plx
			stx <a1

do_a0		rol  a					; rotate the flag bit into carry
			bcc  do_d7				; is the flag for the reg set? no ->

			plx						;high word first
			stx <a0+2
			plx
			stx <a0
 
do_d7		rol  a					; rotate the flag bit into carry
			bcc  do_d6				; is the flag for the reg set? no ->

			plx
			stx |d7+2				;high word first
			plx
			stx |d7

do_d6		rol  a					; rotate the flag bit into carry
			bcc  do_d5				; is the flag for the reg set? no ->

			plx
			stx |d6+2				;high word first
			plx
			stx |d6

do_d5		rol  a					; rotate the flag bit into carry
			bcc  do_d4				; is the flag for the reg set? no ->

			plx
			stx |d5+2				;high word first
			plx
			stx |d5

do_d4		rol  a					; rotate the flag bit into carry
			bcc  do_d3				; is the flag for the reg set? no ->

			plx
			stx |d4+2				;high word first
			plx
			stx |d4

do_d3		rol  a					; rotate the flag bit into carry
			bcc  do_d2				; is the flag for the reg set? no ->

			plx
			stx |d3+2				;high word first
			plx
			stx |d3

do_d2		rol  a					; rotate the flag bit into carry
			bcc  do_d1				; is the flag for the reg set? no ->

			plx
			stx |d2+2				;high word first
			plx
			stx |d2

do_d1		rol  a					; rotate the flag bit into carry
			bcc  do_d0				; is the flag for the reg set? no ->

			plx
			stx |d1+2				;high word first
			plx
			stx |d1

do_d0		rol  a					; rotate the flag bit into carry
			bcc  done				; is the flag for the reg set? no ->

			plx
			stx |d0+2				;high word first
			plx
			stx |d0
done
			tsc
			sta <stack_index		;update pseudo stack pointer

			;ldx old_sp
			tyx						;Y = old stack ptr
			txs						;restore real stack pointer

			plp						;restore old interrupt state

			cmp <stack_end			;still in correct range?
			bcs underflow

			rts						;return carry clear --> all OK

underflow	lda  #bt_stack_underflow	; load error code
			jml  >sys_death			; no one lives forever ->

			ENDP 
			
 EJECT
******************************************************************
*
* catalog tree routines
*
******************************************************************

 EJECT
******************************************************************
*
* 			Name:	ct_create_rec
*
*	 Description:	Creates a new directory or file record and
*					adds it to the catalog tree.  If a directory
*					record is being created, a thread record
*					will also be added.
*
*  65816 Version:	Cary A. Farrier
*		 Created:	10/26/89
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*					<my_vcr_ptr = ptr to vcr
*					A0.L = pointer to record name
*					D0.L = parent dirID
*					D1.W = new record type
*								cat_dir_type - directory
*								cat_fil_type - file
*
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined	
*					P = nvmxdizc
*					    ..000..0 = no error
*							   1 = error
*
*					D1.L = dirID of new record
*					D2.L = new catalog hint
*
*			Exit:	rts
*
*			Uses:	|d0-|d7			"hfs.main.aii"
*					|cky_buffer		"hfs.main.aii"
*					|cat_buffer		"hfs.main.aii"
*					|temp1			"hfs.main.aii"
*					<a0-<a5			"hfs.fst.equ"
*
*	   Called By:	create
*
*  Others Called:	push_regs
*					pop_regs
*					ct_loc_rec
*					ct_create_key
*					bt_insert
*					ct_update_name
*					bt_delete
*					ct_loc_fil_dir
*					bt_update
*					ct_upd_v_cnts
*					ct_upd_mod_dt
*					ct_flush
*
******************************************************************
* Copyright Apple Computer, Inc. 1984-1990.  All rights reserved.
******************************************************************
*
* REVISION HISTORY:
*
* 10/26/89	CAF		Created.
* 02/07/90	CAF		Changed byte sex on i/o operations.
* 09/14/90	CAF		Added a check to make sure that you can't place
*					more than $FFFF files and $FFFF dirs in the root dir.
* 10/17/90  CAE		Removed CLC after 'jsr ct_flush'.
* 11/14/90  CAE		Bug fix - moved 'jsr ct_upd_mod_dt' and 'jsr ct_flush' 
*					after the 'exit' label.  If a 'volume full' error
*					occurred while growing the CTree (as a result of
*					the call to bt_insert), the CTree Header wasn't
*					updated.  This resulted in a damaged disk 
*					if any nodes had been added to the CTree.
* 11/30/90  CAE		bt_delete and bt_update are now called with the
*					ctree fcr pointer in A4 instead of A2.
*
******************************************************************
ct_create_rec	PROC

*
* preserve registers
*
			lda  #f_d0+f_d3+f_d4+f_d5+f_d6+f_d7+f_a0+f_a1+f_a2+f_a3+f_a4+f_a5	; push registers on hfs stack
			jsr  push_regs
			
*
* set up some initial stuff
*
			ldy  #vcr_cur_dir						; clear current dirID marker
			lda  #0
			sta  [<my_vcr_ptr],y
			iny
			iny
			sta  [<my_vcr_ptr],y
			
			lda  |d1								; d5 = record type
			sta  |d5
			
			lda  |d0								; d3 = parID
			sta  |d3
			lda  |d0+2
			sta  |d3+2
			
			lda  <a0								; a3 = name pointer
			sta  <a3
			lda  <a0+2
			sta  <a3+2
			
*
* make sure parent exists
*
			stz  <a0								; no name
			stz  <a0+2
			
			stz  |d2								; no hint
			stz  |d2+2
			
			jsr  ct_loc_rec							; locate the parent's thread record
			bcc  @ok								; no error ->
			brl  exit								; error ->
			
*
* make sure that the parent directory has room for the new entry.
*	- for the root, there can be $FFFF files AND $FFFF dirs.
*
@ok			ldy  #4									; get the dir_id from the thread record
			lda  [<a0],y
			xba
			cmp  #2									; is it the volume directory?
			bne  build_key							; no ->
			iny
			iny
			lda  [<a0],y
			bne  build_key							; no ->
			
*
* the parent is the volume directory, so check the appropriate valence count.
*
@is_volume	lda  |d5								; am I creating a file or dir?
			cmp  #cat_fil_type						
			beq	 @is_file							; file ->
			cmp  #cat_dir_type
			beq  @is_dir							; dir ->
			cmp  #cat_thd_type
			beq  build_key							; thread ->
			
			lda  #bt_unknown_type					; I don't know the type!
			sec
			brl  exit								; error ->
			
@is_dir		ldy  #vcr_num_dirs						; load the directory count index
			bra  @chk								; check it ->
@is_file	ldy  #vcr_num_files						; load the file count index
			
@chk		lda  [<my_vcr_ptr],y					; load the file/dir count
@chk1		cmp  #$FFFF								; enough room?
			bcc  build_key							; yes ->
			
@err		lda  #vol_dir_full						; no, error 
			sec
			brl  exit								; error ->

*
* build key for new record
*
build_key	lda  |d3								; parID
			sta  |d0
			lda  |d3+2
			sta  |d0+2
			
			lda  <a3								; name pointer
			sta  <a0
			lda  <a3+2
			sta  <a0+2
			
			lda  #cky_buffer						; addr(key record buffer)
			sta  <a1
			lda  #^cky_buffer
			sta  <a1+2
			
			jsr  ct_create_key						; build the key record

*
* initialize the catalog data record (cat_buffer) for directory or file
*
			lda  #cat_buffer						; addr(data record buffer)
			sta  <a1
			lda  #^cat_buffer
			sta  <a1+2
			
			ldy  #max_cat_len-2						; clear the record
			lda  #0
@loop		sta  [a1],y
			dey
			dey
			bpl  @loop
			
			lda  |d5								; set record type
			and  #$FF						
			ldy  #cat_type
													; NOTE: this also stores a zero into
			sta  [<a1],y							; the reserved field.
			
*
* determine whether I am creating a directory or a file
*
			lda  |d5								; load record type
			cmp  #cat_dir_type						; creating a directory?
			bne  create_fil							; no ->

*
* creating a directory.
* first, get the next available directory/file id and assign it.  then bump
* the id to the next value.
*
			ldy  #vcr_next_id						; d6 = next file/dir id
			lda  [<my_vcr_ptr],y
			sta  |d6
			xba
			sta  <temp1+2
			iny
			iny
			lda  [<my_vcr_ptr],y
			sta  |d6+2
			xba
			sta  <temp1
			
			ldy  #dir_id							; assign id
			lda  <temp1
			sta  [<a1],y
			iny
			iny
			lda  <temp1+2
			sta  [<a1],y
			
			clc										; bump to next id
			lda  |d6
			adc  #1
			sta  <temp1
			lda  |d6+2
			adc  #0
			sta  <temp1+2
			
			ldy  #vcr_next_id						; save next id
			lda  <temp1
			sta  [<my_vcr_ptr],y
			iny
			iny
			lda  <temp1+2
			sta  [<my_vcr_ptr],y

*
* save the creation and modification date/times
*
			ldy  #dir_create_dt+2					; save...
			lda  |time
			xba
			sta  [<a1],y
			dey
			dey
			lda  |time+2
			xba
			sta  [<a1],y							; ...creation date
			
			ldy  #dir_mod_dt+2						; save...
			lda  |time
			xba
			sta  [<a1],y
			dey
			dey
			lda  |time+2
			xba
			sta  [<a1],y							; ...modification date

*
* init the size of of the record
*
			lda  #len_dir							; d1 = size of directory data record
			sta  |d1
			stz  |d1+2
			brl  add_rec							; add new record ->

*
* creating a file record
*
create_fil	ldy  #fil_create_dt+2					; save...
			lda  |time
			xba
			sta  [<a1],y
			dey
			dey
			lda  |time+2
			xba
			sta  [<a1],y							; ...creation date
			
			ldy  #fil_mod_dt+2						; save...
			lda  |time
			xba
			sta  [<a1],y
			dey
			dey
			lda  |time+2
			xba
			sta  [<a1],y							; ...modification date
						
			ldy  #vcr_next_id						; d6 = next file/dir id
			lda  [<my_vcr_ptr],y
			sta  |d6
			xba
			sta  <temp1+2
			iny
			iny
			lda  [<my_vcr_ptr],y
			sta  |d6+2
			xba
			sta  <temp1
			
			ldy  #fil_id							; assign id
			lda  <temp1
			sta  [<a1],y
			iny
			iny
			lda  <temp1+2
			sta  [<a1],y
			
			clc										; bump to next id
			lda  |d6
			adc  #1
			sta  <temp1
			lda  |d6+2
			adc  #0
			sta  <temp1+2
			
			ldy  #vcr_next_id						; save next id
			lda  <temp1
			sta  [<my_vcr_ptr],y
			iny
			iny
			lda  <temp1+2
			sta  [<my_vcr_ptr],y
						
			lda  #len_fil							; d1 = size of file data record
			sta  |d1
			stz  |d1+2

*
* add the new record
*
add_rec		lda  #cky_buffer						; load...
			sta  <a0
			lda  #^cky_buffer
			sta  <a0+2								; ...address of cky buffer
			
			lda  |ctree_fcr_ptr						; a4...
			sta  <a4
			lda  |ctree_fcr_ptr+2
			sta  <a4+2								; ...= ctree fcr pointer
			
			jsr  bt_insert							; insert the record
			bcc  @ok
			brl  exit								; error ->

@ok			lda  |d2								; d7 = new hint
			sta  |d7
			lda  |d2+2
			sta  |d7+2

*
* build the thread record if record is a directory record
*
bld_thd		lda  |d5								; load record type
			cmp  #cat_dir_type						; creating a directory?
			beq  @ok
			brl  upd_parent							; no ->
			
@ok			lda  |d6								; d0 = new record id (from above)
			sta  |d0
			lda  |d6+2
			sta  |d0+2
			
			stz  <a0								; no record name
			stz  <a0+2
			
			lda  #cky_buffer						; addr(key record buffer)
			sta  <a1
			lda  #^cky_buffer
			sta  <a1+2
			
			jsr  ct_create_key						; build the key record

			lda  #cat_buffer						; addr(key record buffer)
			sta  <a1
			lda  #^cat_buffer
			sta  <a1+2
			
			ldy  #max_cat_len-2						; clear the record
			lda  #0
@loop		sta  [<a1],y
			dey
			dey
			bpl  @loop

			ldy  #cat_type							; save...
			lda  #cat_thd_type
													; NOTE this stores zero to rsrvd field
			sta  [<a1],y							; ...thread record type
			
			ldy  #thd_parent_id+2					; save...
			lda  |d3
			xba
			sta  [<a1],y
			dey
			dey
			lda  |d3+2
			xba
			sta  [<a1],y							; ...thread parent id
			
			lda  <a3								; source...
			sta  <a0
			lda  <a3+2
			sta  <a0+2								; ...= input record name
			
			clc										; dest...
			lda  <a1
			adc  #thd_dirname
			sta  <a1
			lda  <a1+2
			adc  #0
			sta  <a1+2								; ...= thread record name
			
			jsr  ct_update_name						; move in the new record name

*
* add thread record to catalog btree
*
			lda  #len_thd							; d1...
			sta  |d1
			stz  |d1+2								; ...= length of thread record
			
			lda  #cky_buffer						; a0...
			sta  <a0
			lda  #^cky_buffer
			sta  <a0+2								; ...= address of cky buffer
			
			lda  #cat_buffer						; a1...
			sta  <a1
			lda  #^cat_buffer
			sta  <a1+2								; ...= address of cat buffer

			lda  |ctree_fcr_ptr						; a4...
			sta  <a4
			lda  |ctree_fcr_ptr+2
			sta  <a4+2								; ...= ctree fcr pointer

			jsr  bt_insert							; insert the record
			bcc  upd_parent							; no error ->
			
*
* couldn't add thread record, delete newly created directory record and exit
*
			pha										; save error code
			
			lda  |d3								; d0 = parent id
			sta  |d0
			lda  |d3+2
			sta  |d0+2
			
			lda  <a3								; a0 = record name pointer
			sta  <a0
			lda  <a3+2
			sta  <a0+2
			
			lda  #cky_buffer						; a1...
			sta  <a1
			lda  #^cky_buffer
			sta  <a1+2								; ...= ptr(key record buffer)
			
			jsr  ct_create_key						; create the key
			
			lda  <a1								; a1...
			sta  <a0
			lda  <a1+2
			sta  <a0+2								; ...= ptr to key
			
			lda  |ctree_fcr_ptr						; a4...
			sta  <a4
			lda  |ctree_fcr_ptr+2
			sta  <a4+2								; ...= ctree fcr pointer

			jsr  bt_delete							; delete the record
			
			pla										; restore error code
			sec
			brl  exit								; ->

*
* update parent directory
*
upd_parent	lda  |d3								; d0...
			sta  |d0
			lda  |d3+2
			sta  |d0+2								; ... = parent id
			
			stz  <a0								; a0...
			stz  <a0+2								; ...= no record name
			
			stz  |d2								; d2...
			stz  |d2+2								; ...= no hint
			
			jsr  ct_loc_fil_dir						; locate the parent directory record
			bcs  exit								; error ->
			
			ldy  #dir_valence						; increment...
			lda  [<a1],y
			xba
			inc  a
			xba
			sta  [<a1],y							; ...directory valence (# children)
			
			ldy  #dir_mod_dt+2						; update...
			lda  |time
			xba
			sta  [<a1],y
			dey
			dey
			lda  |time+2
			xba
			sta  [<a1],y							; ...directory modification date
			
			lda  |ctree_fcr_ptr						; a4...
			sta  <a4
			lda  |ctree_fcr_ptr+2
			sta  <a4+2								; ...= ctree fcr pointer

			jsr  bt_update							; update ctree info
			bcs  exit								; error ->

*
* update directory and file counts in the vcr
*
			lda  |d5								; d0...
			sta  |d0								; ...= record type
			
			lda  |d3								; d1...
			sta  |d1
			lda  |d3+2
			sta  |d1+2								; ...= parent id
			
			lda  #1									; increment value...
			sta  |d2								; ...= +1
			stz  |d2+2
			
			jsr  ct_upd_v_cnts						; update counts
			
*
* clean up and exit
*
done		lda  |d6								; d1...
			sta  |d1
			lda  |d6+2
			sta  |d1+2								; ...= dirID
			
			lda  |d7								; d2...
			sta  |d2
			lda  |d7+2
			sta  |d2+2								; ...= hint
			
			clc										; indicate no error
			
exit		php										; save status
			pha										; save error code
			
			jsr  ct_upd_mod_dt						; update the mod date/time in vcr
			jsr  ct_flush							; flush the ctree
			
			lda  #(f_d0+f_d3+f_d4+f_d5+f_d6+f_d7	\
				+f_a0+f_a1+f_a2+f_a3+f_a4+f_a5) << 2	; pop registers off hfs stack
			jsr  pop_regs							; pop regs
			
			pla										; restore error code
			plp										; restore status
			
			rts										; return to caller ->
			
			ENDP 									; end of ct_create_rec

 EJECT
******************************************************************
*
* 			Name:	ct_delete_rec
*
*	 Description:	Deletes an existing directory or file record.
*					The catalog BTree is first searched for the
*					designated record.  If not found, an error is
*					returned.  If found, the record is deleted.
*					For directories, the thread record is also
*					deleted.  Note that the valence for a 
*					directory must be zero before it can be
*					deleted.
*
*  65816 Version:	Cary A. Farrier
*		 Created:	10/27/89
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*					<my_vcr_ptr = ptr to vcr
*					A0.L = pointer to record name
*					D0.L = parent dirID
*					D2.L = catalog hint			@@@ added 2/18/91 CAE
*
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined	
*					P = nvmxdizc
*					    ..000..0 = no error
*							   1 = error
*
*			Exit:	rts
*
*			Uses:	|d0-|d7			"hfs.main.aii"
*					|cky_buffer		"hfs.main.aii"
*					|cat_buffer		"hfs.main.aii"
*					<a0-<a5			"hfs.fst.equ"
*
*	   Called By:	destroy
*
*  Others Called:	push_regs
*					pop_regs
*					bt_delete
*					ct_create_key
*					ct_loc_fil_dir
*					bt_update
*					ct_upd_v_cnts
*					ct_upd_mod_dt
*					ct_flush
*					
******************************************************************
* Copyright Apple Computer, Inc. 1984-1991  All rights reserved.
******************************************************************
*
* REVISION HISTORY:
*
* 10/27/89	CAF		Created.
* 02/07/90	CAF		Changed byte sex on i/o operations.
* 10/17/90  CAE		Removed CLC after 'jsr ct_flush'.
* 11/14/90  CAE		Bug fix - moved 'jsr ct_upd_mod_dt' and 'jsr ct_flush' 
*					after the 'exit' label to ensure that the CTree
*					Header would be updated even if an error occurred.
*					Bug fix - D5.L was not being setup due to erroneous
*					code cleanup.
* 11/30/90  CAE		bt_delete and bt_update are now called with the
*					ctree fcr pointer in A4 instead of A2.
* 02/18/91  CAE		Catalog hint is now supplied as input.
*
******************************************************************
ct_delete_rec	PROC

*
* save registers
*
			lda  #f_d0+f_d1+f_d2+f_d3+f_d4+f_d5+f_d6+f_a0+f_a1+f_a3+f_a4
			jsr  push_regs					; push 'em
			
*
* setup some common stuff
*
			ldy  #vcr_cur_dir				; clear current dirID marker
			lda  #0
			sta  [<my_vcr_ptr],y
			iny
			iny
			sta  [<my_vcr_ptr],y

			lda  |d0						; d3...
			sta  |d3
			lda  |d0+2
			sta  |d3+2						; ...= parID
			
			lda  <a0						; a3...
			sta  <a3
			lda  <a0+2
			sta  <a3+2						; ...= pointer to record name
			
*
* locate the record to be deleted
*
;			stz  |d2						; no hint	@@@ removed 2/18/91 CAE
;			stz  |d2+2
			
			jsr  ct_loc_fil_dir				; locate the record
			bcc  @ok
			brl  exit						; error ->
			
@ok			ldy  #cat_type					; d4...
			lda  [<a1],y
			and  #$FF
			sta  |d4						; ...= record type
			
			ldy  #cky_parent_id+2			; d6...
			lda  [<a0],y
			xba
			sta  |d6
			dey
			dey
			lda  [<a0],y
			xba
			sta  |d6+2						; ...= record parent id
			
*
* if record is a directory, then save the record id for later
*
			lda  |d4						; get the record type
			cmp  #cat_dir_type				; is it a directory?
			bne  @not_dir					; nope ->
			
			ldy  #dir_id+2					; d5...
			lda  [<a1],y
			xba
			sta  |d5
			dey
			dey
			lda  [<a1],y
			xba
			sta  |d5+2						; ...= record id
@not_dir

*
* delete the record
*
delete_it	lda  #cky_buffer				; a0...
			sta  <a0
			lda  #^cky_buffer
			sta  <a0+2						; ...= addr(key record buffer)

			lda  |ctree_fcr_ptr				; a4...
			sta  <a4
			lda  |ctree_fcr_ptr+2
			sta  <a4+2						; ...= ctree fcr pointer

			jsr  bt_delete					; delete the record
			bcc  del_thd
			brl  exit						; error ->
			
*
* if the record deleted was a directory, then delete the thread record
*
del_thd		lda  |d4						; get the record type
			cmp  #cat_dir_type				; is it a directory?
			bne  upd_parent					; nope ->
			
			stz  <a0						; no record name
			stz  <a0+2
			
			lda  |d5						; d0...
			sta  |d0
			lda  |d5+2
			sta  |d0+2						; ...= record id
			
			lda  #cky_buffer				; a1...
			sta  <a1
			lda  #^cky_buffer
			sta  <a1+2						; ...= addr(key record buffer)
			
			jsr  ct_create_key				; build the thread key record
			
			lda  #cky_buffer				; a0...
			sta  <a0
			lda  #^cky_buffer
			sta  <a0+2						; ...= addr(key record buffer)
			
			lda  |ctree_fcr_ptr				; a4...
			sta  <a4
			lda  |ctree_fcr_ptr+2
			sta  <a4+2						; ...= ctree fcr pointer
			
			jsr  bt_delete					; delete the thread record
			bcs  exit						; error ->

*
* update the parent directory
*
upd_parent	lda  |d6						; d0...
			sta  |d0
			lda  |d6+2
			sta  |d0+2						; ...= parent id
			
			stz  <a0						; no record name
			stz  <a0+2
			
			stz  |d2						; no hint
			stz  |d2+2
			
			jsr  ct_loc_fil_dir				; locate parent directory record
			bcs  exit						; error ->
			
			ldy  #dir_valence				; get the valence
			lda  [<a1],y
			xba
			dec  a							; decrement it
			xba
			sta  [<a1],y					; put it back
			
			ldy  #dir_mod_dt+2				; save...
			lda  |time						
			xba
			sta  [<a1],y
			dey
			dey
			lda  |time+2
			xba
			sta  [<a1],y					; ...the modification time
			
			lda  |ctree_fcr_ptr				; a4...
			sta  <a4
			lda  |ctree_fcr_ptr+2
			sta  <a4+2						; ...= ctree fcr pointer

			jsr  bt_update					; update the record
			bcs  exit						; error ->

*
* update vcb directory and file counts
*
			lda  |d4						; d0...
			sta  |d0						; ...= node type
			
			lda  |d6						; d1...
			sta  |d1
			lda  |d6+2
			sta  |d1+2						; ...= parent id
			
			lda  #-1						; d2...
			sta  |d2						; ...= decrement value
			sta  |d2+2						; ...= decrement value
			jsr  ct_upd_v_cnts				; update counts
			
*
* clean up and exit
*
done		clc								; indicate no error

exit		php								; save status
			pha								; save error code
			
			jsr  ct_upd_mod_dt				; update the mod date/time in the vcr
			jsr  ct_flush					; flush the ctree

			lda  #(f_d0+f_d1+f_d2+f_d3+		\
				f_d4+f_d5+f_d6+f_a0+f_a1+f_a3+f_a4) << 2
			jsr  pop_regs
			
			pla								; restore error code
			plp								; restore status
			
			rts								; back to caller ->
			
			ENDP 							; end of ct_delete_rec

 EJECT
******************************************************************
*
* 			Name:	ct_get_rec
*
*	 Description:	locates an existing directory or file record,
*					returning a pointer to the record key and
*					data records.
*
*  65816 Version:	Cary A. Farrier
*		 Created:	11/02/89
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*					<my_vcr_ptr = ptr to vcr
*					A0.L = pointer to name of record or 0
*					D0.L = parent dirID or dirID
*					D2.L = catalog hint
*
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined	
*					P = nvmxdizc
*					    ..000..0 = no error
*							   1 = error
*
*					A0.L = pointer to catalog key record (cky_buffer)
*					A1.L = pointer to catalog data record (cat_buffer)
*					D2.L = catalog hint
*
*			Exit:	rts
*
*			Uses:	nothing
*
*	   Called By:	et_delete_file
*					create
*					flush
*					walk_path
*
*  Others Called:	push_regs
*					pop_regs
*					ct_loc_fil_dir
*					
******************************************************************
* Copyright Apple Computer, Inc. 1984-1990.  All rights reserved.
******************************************************************
*
* REVISION HISTORY:
*
* 11/02/89	CAF		Created.
* 02/07/90	CAF		Changed byte sex on i/o operations.
*
******************************************************************
ct_get_rec	PROC
		
			lda  #f_d0+f_d1+f_d3+f_a3+f_a4	; save registers
			jsr  push_regs
			
			ldy  #vcr_cur_dir			; clear current dirID marker
			lda  #0
			sta  [<my_vcr_ptr],y
			iny
			iny
			sta  [<my_vcr_ptr],y

			jsr  ct_loc_fil_dir			; locate the record
			
			php							; save processor status
			pha							; save result code
			
			lda  #(f_d0+f_d1+f_d3+f_a3+	\
				f_a4) << 2				; restore registers
			jsr  pop_regs
			
			pla							; restore result code
			plp							; restore processor status
			
			rts							; return to caller ->
			
			ENDP 						; end of ct_get_rec

 EJECT
******************************************************************
*
* 			Name:	ct_get_dir_kid
*
*	 Description:	Attempts to locate the offspring of the given
*					index within the directory specified by D0.
*
*  65816 Version:	Cary A. Farrier
*		 Created:	11/02/89
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*					<my_vcr_ptr = ptr to vcr
*					D0.L = dirID
*					D1.W = offspring index
*
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined	
*					P = nvmxdizc
*					    ..000..0 = no error
*							   1 = error
*
*					A0.L = pointer to catalog key record (cky_buffer)
*					A1.L = pointer to catalog data record (cat_buffer)
*					D2.L = catalog hint
*
*			Exit:	rts
*
*			Uses:	
*
*	   Called By:	get_dir_entry
*
*  Others Called:	push_regs
*					pop_regs
*					ct_loc_rec
*					bt_get_record
*					
******************************************************************
* Copyright Apple Computer, Inc. 1984-1990.  All rights reserved.
******************************************************************
*
* REVISION HISTORY:
*
* 11/02/89	CAF		Created.
*
******************************************************************
ct_get_dir_kid	PROC
		
			lda  #f_d0+f_d1+f_d3+f_d4+f_a4	; save registers
			jsr  push_regs
			
			lda  |d0					; d3...
			sta  |d3
			lda  |d0+2
			sta  |d3+2					; ...= dir id
			
			lda  |d1					; d4...
			sta  |d4					; ...= offspring index

*
* locate the thread record for the specified dirID
*
			ldy  #vcr_cur_dir			; d1...
			lda  [<my_vcr_ptr],y
			sta  |d1
			iny
			iny
			lda  [<my_vcr_ptr],y
			sta  |d1+2					; ...= current dirID
			
			lda  |d1					; do we have a current dirID marker?
			ora  |d1+2
			beq  find_thread			; no ->
			
			lda  |d3					; same directory?
			cmp  |d1
			bne  find_thread			; no ->
			lda  |d3+2
			cmp  |d1+2
			beq  get_ospring			; yes ->

*
* the current dirID (if any) was not the same as the one
* we are looking for, so go get the thread record for the
* directory we are looking for.
*
find_thread	stz  <a0					; no record name
			stz  <a0+2
			
			jsr  ct_loc_rec				; locate the thread record
			bcc  @ok
			bra  exit					; error ->
			
@ok			ldy  #vcr_cur_dir			; update current dirID
			lda  |d3
			sta  [<my_vcr_ptr],y
			iny
			iny
			lda  |d3+2
			sta  [<my_vcr_ptr],y
			
			ldy  #vcr_cur_kid			; zero the offspring marker
			lda  #0
			sta  [<my_vcr_ptr],y
			
*
* get the offspring record
*
get_ospring	ldy  #vcr_cur_kid			; selection index =...
			lda  [<my_vcr_ptr],y
			sta  |d1
			lda  |d4
			sec
			sbc  |d1
			sta  |d1					; ...offspring index - current index
			
			lda  |ctree_fcr_ptr			; a4...
			sta  <a4
			lda  |ctree_fcr_ptr+2
			sta  <a4+2					; ...= ctree fcr pointer
			
			jsr  bt_get_record			; get the record
			bcc  clean_up				; ok ->
			
			cmp  #bt_not_found
			bne  @ok
			lda  #end_of_dir
			
@ok			sec
			pha							; save result code
			php							; save processor status
			
			ldy  #vcr_cur_dir			; clear current dirID marker
			lda  #0
			sta  [<my_vcr_ptr],y
			iny
			iny
			sta  [<my_vcr_ptr],y
			
			plp							; restore processor status
			pla							; restore result code
			
			bra  exit					; exit ->

not_found	lda  #end_of_dir			; load error code	
			sec
			bra  exit					; exit ->
			
clean_up	ldy  #cky_parent_id+2		; is the parent the same?
			lda  [<a0],y
			xba
			cmp  |d3
			bne  not_found
			dey
			dey
			lda  [<a0],y
			xba
			cmp  |d3+2
			bne  not_found
						
			ldy  #vcr_cur_kid			; update offspring index marker
			lda  |d4
			sta  [<my_vcr_ptr],y
			
*
* clean up and exit
*
done		clc
exit		php							; save processor status
			pha							; save result code
			
			lda  #(f_d0+f_d1+f_d3+		\
				f_d4+f_a4) << 2			; restore registers
			jsr  pop_regs

			pla							; restore result code
			plp							; restore processor status
		
			rts							; return to caller ->
			
			ENDP 						; end of ct_get_dir_kid
			
 EJECT
******************************************************************
*
* 			Name:	ct_move_rec
*
*	 Description:	Moves an existing directory or file record to
*					another directory record.  Note that for a
*					directory, all decendants are also moved.
*
*  65816 Version:	Cary A. Farrier
*		 Created:	11/02/89
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*					<my_vcr_ptr = ptr to vcr
*					A0.L = ptr (source record name)
*					A1.L = ptr (dest record name)
*					D0.L = source parent dirID
*					D1.L = dest dirID
*					D2.L = source catalog hint			@@@ added 2/18/91 CAE
*
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined	
*					P = nvmxdizc
*					    ..000..0 = no error
*							   1 = error
*
*					D2.L = catalog hint for moved record
*
*			Exit:	rts
*
*			Uses:	<temp1
*
*	   Called By:	change_path
*
*  Others Called:	push_regs
*					pop_regs
*					ct_loc_fil_dir
*					bt_insert
*					bt_update
*					ct_upd_rt_cnts
*					bt_delete
*					ct_loc_rec
*					ct_upd_mod_dt
*					ct_flush
*					ct_create_key
*					
******************************************************************
* Copyright Apple Computer, Inc. 1984-1991.  All rights reserved.
******************************************************************
*
* REVISION HISTORY:
*
* 11/02/89	CAF		Created.
* 12/18/89	CAF		Changed a1 to be a pointer to the destination
*					name, to allow a rename during a move op.
* 02/12/90	CAF		Changed byte sex on buffer i/o operations.
* 05/30/90	CAF		Fixed a bug where I was allowing a directory
*					to be moved into one of its children.  Also
*					changed the error code that I report to
*					'bad_path_names', instead of an internal
*					error code.
* 08/27/90  CAE		Bug fix - Replaced references to '|temp1' with '<temp1'.
* 10/17/90  CAE		Removed CLC after 'jsr ct_flush'.
* 11/14/90  CAE		Bug fix - moved 'jsr ct_upd_mod_dt' and 'jsr ct_flush' 
*					after the 'exit' label.  If a 'volume full' error
*					occurred while growing the CTree (as a result of
*					the call to bt_insert), the CTree Header wasn't
*					updated.  This would result in a damaged disk 
*					if any nodes had been added to the CTree.
* 11/30/90  CAE		bt_delete and bt_update are now called with the
*					ctree fcr pointer in A4 instead of A2.
* 12/20/90  CAE		Bug fix (BK039) - Moving a subdirectory to the root 
*					level caused a $C56A error.  The code at '@root' was
*					checking for "D0.L = #vol_dir_id" but it should
*					have been checking for "D0.L <= #vol_dir_id".
* 01/14/91  CAE		Bug fix (BK041) - changed the error which is reported for
*					an illegal move from "bad_path_names" to "bad_path_syntax".
* 02/18/91  CAE		Catalog hint for source record is now supplied as input.
* 02/11/92  CAE		Bug fix (Radar #1021793) - when moving and renaming a directory,
*					the directory's thread record was not updated with the new
*					name resulting in a damaged disk.
*
******************************************************************
ct_move_rec	PROC
			
			lda  #f_d0+f_d1+f_d3+f_d4+f_d5+f_d6+f_d7+f_a0+f_a1+f_a2+f_a3+f_a4+f_a5	; save registers
			jsr  push_regs

*
* set up common stuff
*
			ldy  #vcr_cur_dir			; clear current dirID marker
			lda  #0
			sta  [<my_vcr_ptr],y
			iny
			iny
			sta  [<my_vcr_ptr],y
			
			lda  |d1					; d5...
			sta  |d5 
			lda  |d1+2
			sta  |d5+2					; ...= dest dirID/parID
			
			lda  <a1					; d6...
			sta  |d6
			lda  <a1+2
			sta  |d6+2					; ...= ptr (dest record name)
			
			lda  |d0					; d3...
			sta  |d3
			lda  |d0+2
			sta  |d3+2					; ...= source dirID/parID

			lda  <a0					; a3...
			sta  <a3
			lda  <a0+2
			sta  <a3+2					; ...= ptr (source record name)
			
*
* make sure the source record exists
*
check_src	
;			stz  |d2					; no hint		@@@ removed 2/18/91 CAE
;			stz  |d2+2
			
			jsr  ct_loc_fil_dir			; find the record
			bcc  @ok
			brl  exit					; error ->
			
@ok			stz  |d4					; assume source is not a directory
			stz  |d4+2
			
			ldy  #cat_type				; is it a directory record?
			lda  [<a1],y
			and  #$FF
			cmp  #cat_dir_type
			bne  check_dest				; nope ->
			
			ldy  #dir_id+2				; d4...
			lda  [<a1],y
			xba
			sta  |d4
			dey
			dey
			lda  [<a1],y
			xba
			sta  |d4+2					; ...= source dirID
			
*
* make sure destination directory exists
*
check_dest	lda  |d5					; d0...
			sta  |d0
			lda  |d5+2
			sta  |d0+2					; ...= dest dirID
			
			stz  <a0					; no dest name ptr
			stz  <a0+2
			
			stz  |d2					; no hint
			stz  |d2+2
			
			jsr  ct_loc_fil_dir			; find the record
			bcc  @ok
			brl  exit					; error ->
			
@ok			ldy  #cat_type				; directory record?
			lda  [<a1],y
			and  #$FF
			cmp  #cat_dir_type
			beq  is_dir					; yes ->
			
bad_move	lda  #bad_path_syntax		; load error code
			sec
			brl  exit					; exit ->

is_dir		ldy  #dir_id+2				; d7...
			lda  [<a1],y
			xba
			sta  |d7
			dey
			dey
			lda  [<a1],y
			xba
			sta  |d7+2					; ...= dest dirID
			
*
* make sure the move is legal
*
			lda  |d4					; is the source a directory?
			ora  |d4+2
			beq  get_source				; no, nothing to worry about ->
			
			lda  |d4					; is it the root directory?
			cmp  #vol_dir_id
			bne  src_dest				; nope ->
			lda  |d4+2
			cmp  #^vol_dir_id
			beq  bad_move				; yes ->
			
src_dest	lda  |d4					; source = dest?
			cmp  |d7
			bne  chk_ancest				; nope ->
			lda  |d4+2
			cmp  |d7+2
			beq  bad_move				; yes ->

chk_ancest	ldy  #cky_parent_id+2		; D0.L <= parent ID of dest directory
			lda  [<a0],y
			xba
			sta	 |d0
			dey
			dey
			lda  [<a0],y
			xba
			sta  |d0+2
			
			lda  |d0					; source = dest ancestor?
			cmp  |d4
			bne  @root					; nope ->
			lda  |d0+2
			cmp  |d4+2
			beq  bad_move				; yes ->
			
@root		lda  |d0					; up to root directory?
			cmp  #vol_dir_id+1
			bcs  @bump					; nope ->
			lda  |d0+2
			cmp  #^vol_dir_id
			beq  get_source				; yes ->
			
@bump		stz  <a0					; locate next directory up the tree
			stz  <a0+2
			
			stz  |d2					; no hint
			stz  |d2+2
			
			jsr  ct_loc_fil_dir			; get the record
			bcc  chk_ancest				; do it again ->
			brl  exit					; error ->
			
*
* locate the source record and copy the key and data record
*
get_source	lda  |d3					; d0...
			sta  |d0
			lda  |d3+2
			sta  |d0+2					; ...= source dirID/parID
			
			lda  <a3					; a0...
			sta  <a0
			lda  <a3+2
			sta  <a0+2					; ...= ptr (source record name)
			
			stz  |d2					; no hint
			stz  |d2+2
			
			jsr  ct_loc_fil_dir			; locate the record
			bcc  @ok
			brl  exit					; error ->
			
@ok			ldy  #cky_parent_id+2		; source parID = dest dirID?
			lda  [<a0],y
			xba
			cmp  |d7
			bne  copy_key				; nope ->
			dey
			dey
			lda  [<a0],y
			xba
			cmp  |d7+2
			bne  copy_key				; nope ->
			
			lda  |d2					; d7...
			sta  |d7
			lda  |d2+2
			sta  |d7+2					; ...= new hint
			
			brl  done					; all done ->
			

*
* copy the key record
*
copy_key	lda  <a1					; save pointer to data record
			pha
			lda  <a1+2
			pha
			
			ldy  #cky_parent_id			; d0 = parent id
			lda  [<a0],y
			xba
			sta  |d0+2
			iny
			iny
			lda  [<a0],y
			xba
			sta  |d0
			
			lda  |d6					; a0 = pointer to key name
			sta  <a0
			lda  |d6+2
			sta  <a0+2
			
			lda  #cky_buffer			; a1 = ptr cky buffer
			sta  <a1
			lda  #^cky_buffer
			sta  <a1+2
			
			jsr  ct_create_key
			
*
* copy the data record
*
copy_data	pla
			sta  <a0+2
			pla
			sta  <a0
			
			lda  |d1					; length of data record
			tax
			tay
			
			sep  #$20
			LONGA  OFF
			
			bra  @ls
			
@loop		lda  [<a0],y				; copy the data record
			sta  |cat_buffer,x
@ls			dex
			dey
			bpl  @loop
			
			rep  #$20
			LONGA  ON

*
* insert new source record in btree with new key
*
			lda  #cky_buffer
			sta  <a0
			lda  #^cky_buffer
			sta  <a0+2
			
			ldy  #cky_parent_id			; d4...
			lda  [<a0],y
			xba
			sta  |d4+2
			iny
			iny
			lda  [<a0],y
			xba
			sta  |d4					; ...= source parent id
			
			ldy  #cky_parent_id			; set parID to new one
			lda  |d7+2
			xba
			sta  [<a0],y
			iny
			iny
			lda  |d7
			xba
			sta  [<a0],y
			
			lda  #cat_buffer			; a1...
			sta  <a1
			lda  #^cat_buffer
			sta  <a1+2					; ...= ptr(cat_buffer)
			
			lda  #len_fil				; assume its a file record
			sta  |d1					; d1...
			stz  |d1+2					; ...= length of file record
			
			ldy  #cat_type				; is it a file record?
			lda  [<a1],y
			and  #$FF
			cmp  #cat_fil_type
			beq  insert_rec				; yes ->
			
			lda  #len_dir				; d1...
			sta  |d1
			stz  |d1+2					; ...= length of directory record
			
			ldy  #dir_mod_dt			; update last modification date/time
			lda  |time+2
			xba
			sta  [<a1],y
			iny
			iny
			lda  |time
			xba
			sta  [<a1],y
			
insert_rec	lda  |ctree_fcr_ptr			; a4...
			sta  <a4
			lda  |ctree_fcr_ptr+2
			sta  <a4+2					; ...= ctree fcr pointer

			jsr  bt_insert				; insert the record
			bcc  @ok
			brl  exit					; error ->
			
@ok			lda  |d2					; d7...
			sta  |d7
			lda  |d2+2
			sta  |d7+2					; ...= new hint
			
			ldy  #cky_parent_id			; d0...
			lda  [<a0],y
			xba
			sta  |d0+2
			iny
			iny
			lda  [<a0],y
			xba
			sta  |d0					; ...= dest dirID
			
*
* update destination directory record
*
			lda  |d5					; temp1...
			sta  <temp1
			lda  |d5+2
			sta  <temp1+2				; ...= dest dirID/parID
			
			lda  |d0					; d5...
			sta  |d5
			lda  |d0+2
			sta  |d5+2					; ...= dest dirID
			
			lda  <temp1					; d0...
			sta  |d0
			lda  <temp1+2
			sta  |d0+2					; ...= dest dirID/parID
			
;			lda  |d6					; a0...
;			sta  <a0
;			lda  |d6+2
;			sta  <a0+2					; ...= ptr(dest record name)
			
			stz  <a0					; no name
			stz  <a0+2
			
			stz  |d2					; no hint
			stz  |d2+2
			
			jsr  ct_loc_fil_dir			; locate the record
			bcc  upd_val
			brl  exit					; error ->
			
upd_val		ldy  #dir_valence			; update valence
			lda  [<a1],y
			xba
			inc  a
			xba
			sta  [<a1],y
			
			ldy  #dir_mod_dt			; update mod date/time
			lda  |time+2
			xba
			sta  [<a1],y
			iny
			iny
			lda  |time
			xba
			sta  [<a1],y
			
			lda  |ctree_fcr_ptr			; a4...
			sta  <a4
			lda  |ctree_fcr_ptr+2
			sta  <a4+2					; ...= ctree fcr pointer
			
			jsr  bt_update				; update the btree record
			bcc  upd_rt
			brl  exit					; error ->
			
*
* update root directory counts
*
upd_rt		lda  #cat_buffer			; a1...
			sta  <a1
			lda  #^cat_buffer
			sta  <a1+2					; ...= ptr(cat_buffer)
			
			ldy  #cat_type				; d0...
			lda  [<a1],y
			and  #$FF
			sta  |d0					; ...= record type
			
			lda  |d5					; d1...
			sta  |d1
			lda  |d5+2
			sta  |d1+2					; ...= dest dirID
			
			lda  #1						; d2...
			sta  |d2
			stz  |d2+2					; ...= increment value
			
			jsr  ct_upd_rt_cnts			; update the counts
			
*
* delete old source record
*
			lda  |d3					; d0...
			sta  |d0
			lda  |d3+2
			sta  |d0+2					; ...= source dirID/parID
			
			lda  <a3					; a0....
			sta  <a0
			lda  <a3+2
			sta  <a0+2					; ...= ptr(source record name)
			
			stz  |d2					; no hint
			stz  |d2+2
			
			jsr  ct_loc_fil_dir			; locate the record
			bcc  @ok
			brl  exit					; error ->
			
@ok			lda  #cky_buffer			; a0...
			sta  <a0
			lda  #^cky_buffer
			sta  <a0+2					; ...= ptr(cky_buffer)
			
			lda  |ctree_fcr_ptr			; a4...
			sta  <a4
			lda  |ctree_fcr_ptr+2
			sta  <a4+2					; ...= ctree fcr pointer
			
			jsr  bt_delete				; delete the record
			bcc  upd_thd				; ok ->
			brl  exit					; error ->
*
* update source thread record if a directory was moved
*
upd_thd		ldx  #cat_type				; source = directory?
			lda  |cat_buffer,x
			and  #$FF
			cmp  #cat_dir_type
			bne  upd_parent				; no ->
			
			ldx  #dir_id				; d0...
			lda  |cat_buffer,x
			xba
			sta  |d0+2
			lda  |cat_buffer+2,x
			xba
			sta  |d0					; ...= source dirID
			
			stz  <a0					; no record name
			stz  <a0+2
			
			stz  |d2					; no hint
			stz  |d2+2
			
			jsr  ct_loc_rec				; locate the record
			bcc  @ok					; ok ->
			brl  exit					; error ->
			
@ok			ldy  #thd_parent_id			; new parID = dest dirID
			lda  |d5+2
			xba
			sta  [<a1],y
			iny
			iny
			lda  |d5
			xba
			sta  [<a1],y
			
*** start of new code CAE 2/11/92	
			lda  |d6					; a0...
			sta  <a0
			lda  |d6+2
			sta  <a0+2					; ...= ptr to new dir name
			
			clc							; a1...
			lda  <a1
			adc  #thd_dirname
			sta  <a1
			lda  <a1+2
			adc  #^thd_dirname
			sta  <a1+2					; ...= ptr to dir name in thd rec
			
			jsr  ct_update_name			; update the name in the thread record
*** end of new code	

			lda  |ctree_fcr_ptr			; a4...
			sta  <a4
			lda  |ctree_fcr_ptr+2
			sta  <a4+2					; ...= ctree fcr pointer
			
			jsr  bt_update				; update thread record
			bcc  upd_parent
			brl  exit					; error ->
			
*
* update source parent directory
*
upd_parent	lda  |d4					; d0...
			sta  |d0
			lda  |d4+2
			sta  |d0+2					; ...= source parID
			
			stz  <a0					; no record name
			stz  <a0+2
			
			stz  |d2					; no hint
			stz  |d2+2
			
			jsr  ct_loc_fil_dir			; locate the parent directory record
			bcs  exit					; error ->
			
			ldy  #dir_valence			; update the valence
			lda  [<a1],y
			xba
			dec  a
			xba
			sta  [<a1],y
			
			ldy  #dir_mod_dt			; update mod date/time
			lda  |time+2
			xba
			sta  [<a1],y
			iny
			iny
			lda  |time
			xba
			sta  [<a1],y
			
			lda  |ctree_fcr_ptr			; a4...
			sta  <a4
			lda  |ctree_fcr_ptr+2
			sta  <a4+2					; ...= ctree fcr pointer
			
			jsr  bt_update				; update former parent directory
			bcs  exit					; error ->

*
* update root directory counts
*
			lda  #cat_buffer			; a1...
			sta  <a1
			lda  #^cat_buffer
			sta  <a1+2					; ...= ptr(cat_buffer)
			
			ldx  #cat_type				; d0...
			lda  |cat_buffer,x
			and  #$FF
			sta  |d0					; ...= record type
			
			lda  |d4					; d1...
			sta  |d1
			lda  |d4+2
			sta  |d1+2					; ...= source parID
			
			lda  #-1					; increment value
			sta  |d2
			sta  |d2+2
			
			jsr  ct_upd_rt_cnts			; update counts
			
*
* clean up and exit
*
done		lda  |d7					; d2...
			sta  |d2
			lda  |d7+2
			sta  |d2+2					; ...= new hint
			
			clc							; indicate no error
			
exit		php							; save status
			pha							; save result code
			
			jsr  ct_upd_mod_dt			; update the mod date/time in the vcr
			jsr  ct_flush				; flush ctree
			
			lda  #(f_d0+f_d1+f_d3+f_d4+	\
				f_d5+f_d6+f_d7+f_a0+	\
				f_a1+f_a2+f_a3+f_a4+f_a5) << 2	; restore registers
			jsr  pop_regs

			pla							; restore result code
			plp							; restore status
			
			rts							; return to caller ->
			
			ENDP 						; end of ct_move_rec
			
 EJECT
******************************************************************
*
* 			Name:	ct_rename_rec
*
*	 Description:	Renames an existing directory or file record.
*
*  65816 Version:	Cary A. Farrier
*		 Created:	11/03/89
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*					<my_vcr_ptr = ptr to vcr
*					A0.L = ptr (record name)
*					A1.L = ptr (new record name)
*					D0.L = parent dirID
*					D2.L = catalog hint
*
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined	
*					P = nvmxdizc
*					    ..000..0 = no error
*							   1 = error
*
*					D2.L = new catalog hint
*
*			Exit:	rts
*
*			Uses:	cat_buffer
*					cky_buffer
*
*	   Called By:	change_path
*
*  Others Called:	push_regs
*					pop_regs
*					ct_loc_fil_dir
*					ct_create_key
*					bt_insert
*					ct_update_name
*					bt_update
*					bt_delete
*					ct_loc_rec
*					ct_upd_mod_dt
*					ct_flush
*					
******************************************************************
* Copyright Apple Computer, Inc. 1984-1990.  All rights reserved.
******************************************************************
*
* REVISION HISTORY:
*
* 11/03/89	CAF		Created.
* 02/12/90	CAF		Changed byte sex on buffer i/o operations.
* 09/26/90	CAF		Fixed a bug where I was assuming that an error
*					being returned was a dup_pathname error, but
*					it was actually a volume_full error and was being
*					handled incorrectly.
* 10/03/90  CAE		Bug fix (BK029) - previous change was incorrect.
*					It was checking for "dup_pathname" but it should 
*					have been checking for "bt_key_exists".
* 10/17/90  CAE		Removed CLC after 'jsr ct_flush'. 
*					Added error checking after 'jsr bt_update'.
* 11/14/90  CAE		Bug fix - moved 'jsr ct_upd_mod_dt' and 'jsr ct_flush' 
*					after the 'exit' label.  If a 'volume full' error
*					occurred while growing the CTree (as a result of
*					the call to bt_insert), the CTree Header wasn't
*					updated.  This would result in a damaged disk 
*					if any nodes had been added to the CTree.
* 11/30/90  CAE		bt_delete and bt_update are now called with the
*					ctree fcr pointer in A4 instead of A2.
*
******************************************************************
ct_rename_rec	PROC
			
			lda  #f_d0+f_d1+f_d3+f_d4+f_d5+f_d6+f_d7+f_a0+f_a1+f_a3+f_a4	; save registers
			jsr  push_regs

*
* set up common stuff
*
			ldy  #vcr_cur_dir					; clear current dirID marker
			lda  #0
			sta  [<my_vcr_ptr],y
			iny
			iny
			sta  [<my_vcr_ptr],y

			lda  |d0							; d3...
			sta  |d3
			lda  |d0+2
			sta  |d3+2							; ...= parID
			
			lda  <a0							; a3...
			sta  <a3
			lda  <a0+2
			sta  <a3+2							; ...= ptr(old record name)
			
			lda  <a1							; d5...
			sta  |d5
			lda  <a1+2
			sta  |d5+2							; ...= ptr(new record name)
			
*
* locate subject record
*
			jsr  ct_loc_fil_dir					; locate the record
			bcc  @ok
			brl  exit							; error ->
			
@ok			lda  |d2							; d4...
			sta  |d4
			lda  |d2+2
			sta  |d4+2							; ...= hint for old record
			
			lda  |d1							; d6...
			sta  |d6
			lda  |d1+2
			sta  |d6+2							; ...= len(data record)

*
* save a copy of the data record
*
			lda  |d6							; length = len(data record)
			tax
			tay
			
			sep  #$20							; short A
			LONGA  OFF
			
			bra  @start							; prime the loop
			
@loop		lda  [<a1],y						; copy the data record
			sta  |cat_buffer,x
@start		dex
			dey
			bpl  @loop
			
			rep  #$20							; long A
			LONGA  ON
			
*
* insert old record in btree with new key
*
ins_old		lda  #cky_buffer					; a1...
			sta  <a1
			lda  #^cky_buffer
			sta  <a1+2							; ...= ptr(cky_buffer)
			
			ldx  #cky_parent_id					; d0...
			lda  |cky_buffer,x
			xba
			sta  |d0+2							
			inx
			inx
			lda  |cky_buffer,x
			xba
			sta  |d0							; ...= parID (same as before)
			
			lda  |d5							; a0...
			sta  <a0
			lda  |d5+2
			sta  <a0+2							; ...= ptr(new record name)
			
			jsr  ct_create_key					; create the key
			
			lda  <a1							; a0...
			sta  <a0
			lda  <a1+2
			sta  <a0+2							; ...= addr(key record)
			
			lda  #cat_buffer					; a1...
			sta  <a1
			lda  #^cat_buffer
			sta  <a1+2							; ...= ptr(cat_buffer)
		
			lda  |d6							; d1...
			sta  |d1							; ...= record size
			
			lda  |ctree_fcr_ptr					; a2...
			sta  <a4
			lda  |ctree_fcr_ptr+2
			sta  <a4+2							; ...= ctree fcr pointer
			
			jsr  bt_insert						; insert the record
			bcc  @1
			
			cmp  #bt_key_exists					; file exists?
			beq  exists							; yes ->
			sec
			brl  exit							; no, must be other ->
			
@1			brl  del_rec						; ok ->
			
*
* the new record already exists, locate it
*
exists		lda  #cky_buffer					; a1...
			sta  <a1
			lda  #^cky_buffer
			sta  <a1+2							; ...= ptr(cky_buffer)
			
			ldx  #cky_parent_id					; d0...
			lda  |cky_buffer,x
			xba
			sta  |d0+2							; ...= parID (same as before)
			inx
			inx
			lda  |cky_buffer,x
			xba
			sta  |d0
			
			lda  |d5							; a0...
			sta  <a0
			lda  |d5+2
			sta  <a0+2							; ...= ptr(new record name)
			
			stz  |d2							; no hint
			stz  |d2+2
			
			jsr  ct_loc_fil_dir					; locate the record
			bcc  @ok
			brl  exit							; error ->
			
@ok			lda  |d2							; d7...
			sta  |d7
			lda  |d2+2
			sta  |d7+2							; ...= new hint
			
*
* check to see if it is the same record
*
			lda  <a0							; d6...
			sta  |d6
			lda  <a0+2
			sta  |d6+2							; ...= ptr(ckr)
			
			lda  |cat_buffer+cat_type			; is it the same record?
			and  #$FF
			sta  |d0
			lda  [<a1]
			and  #$FF
			cmp  |d0
			bne  not_same						; nope ->
			
			cmp  #cat_dir_type					; directory?
			bne  is_file
			
			ldy  #dir_id						; same dirID?
			lda  [<a1],y
			cmp  |cat_buffer+dir_id
			bne  not_same						; nope ->
			iny
			iny
			lda  [<a1],y
			cmp  |cat_buffer+dir_id+2
			beq  replace						; yes ->
			bra  not_same						; nope ->
			
is_file		ldy  #fil_id						; same file id?
			lda  [<a1],y
			cmp  |cat_buffer+fil_id
			bne  not_same						; no ->
			iny
			iny
			lda  [<a1],y
			cmp  |cat_buffer+fil_id+2
			beq  replace						; yes ->
			
not_same	lda  #dup_pathname					; load error code 
			sec
			brl  exit							; exit ->
			
*
* replace the name in the existing record key
*
replace		lda  |d6							; a1...
			sta  <a1
			lda  |d6+2
			sta  <a1+2							; ...= ptr(ckr)
			
			clc									; a1...
			lda  <a1
			adc  #cky_name
			sta  <a1
			lda  <a1+2
			adc  #^cky_name
			sta  <a1+2							; ...= ptr(name buffer in ckr) (dest)
						
			lda  |d5							; a0...
			sta  <a0
			lda  |d5+2
			sta  <a0+2							; ...= ptr(new name)
			
			jsr  ct_update_name					; update the name
			
			lda  |ctree_fcr_ptr					; a4...
			sta  <a4
			lda  |ctree_fcr_ptr+2
			sta  <a4+2							; ...= ctree fcr pointer
			
			jsr  bt_update						; update the record
 			bcc  upd_thd						; update thread record ->
			brl  exit							; error ->

*
* delete old cnode record
*
del_rec		lda  |d2							; d7...
			sta  |d7
			lda  |d2+2
			sta  |d7+2							; ...= hint for new record
			
			lda  |d3							; d0...
			sta  |d0
			lda  |d3+2
			sta  |d0+2							; ...= dirID/parID
			
			lda  <a3							; a0...
			sta  <a0
			lda  <a3+2
			sta  <a0+2							; ...= ptr(record name)
			
			lda  |d4							; d2...
			sta  |d2
			lda  |d4+2
			sta  |d2+2							; ...= hint
			
			jsr  ct_loc_fil_dir					; locate the record
			bcc  @ok
			brl  exit							; error ->
			
@ok			lda  #cky_buffer					; a0...
			sta  <a0
			lda  #^cky_buffer
			sta  <a0+2							; ...= addr(key record)
			
			stz  |d2							; no hint
			stz  |d2+2
			
			lda  |ctree_fcr_ptr					; a4...
			sta  <a4
			lda  |ctree_fcr_ptr+2
			sta  <a4+2							; ...= ctree fcr pointer
			
			jsr  bt_delete						; delete directory/file record
			bcs  exit							; error ->
			
*
* update thread record if a directory was renamed
*
upd_thd		lda  |cat_buffer+cat_type			; directory?
			and  #$FF
			cmp  #cat_dir_type
			bne  done							; nope ->
			
			lda  |cat_buffer+dir_id				; d0...
			xba
			sta  |d0+2
			lda  |cat_buffer+dir_id+2
			xba
			sta  |d0							; ...= source dirID
			
			stz  <a0							; no record name
			stz  <a0+2
			
			stz  |d2							; no hint
			stz  |d2+2
			
			jsr  ct_loc_rec						; locate record
			bcs  exit							; error ->
			
			lda  |d5							; a0...
			sta  <a0
			lda  |d5+2
			sta  <a0+2							; ...= ptr(new record name)
			
			clc									; a1...
			lda  <a1
			adc  #thd_dirname
			sta  <a1
			lda  <a1+2
			adc  #^thd_dirname
			sta  <a1+2							; ...= ptr to record name in thd rec
			
			jsr  ct_update_name					; update the name
			
			lda  |ctree_fcr_ptr					; a4...
			sta  <a4
			lda  |ctree_fcr_ptr+2
			sta  <a4+2							; ...= ctree fcr pointer
			
			jsr  bt_update						; update record
			bcs	 exit
			
*
* clean up and exit
*
done		lda  |d7							; d2...
			sta  |d2
			lda  |d7+2
			sta  |d2+2							; ...= new hint
			
			clc									; indicate no error
			
exit		php									; save status
			pha									; save result
			
			jsr  ct_upd_mod_dt					; update the mod date/time in the vcr
			jsr  ct_flush						; flush ctree
			
			lda  #(f_d0+f_d1+f_d3+f_d4+f_d5+		\
				f_d6+f_d7+f_a0+f_a1+f_a3+f_a4) << 2	; registers
			jsr  pop_regs
			
			pla									; restore result
			plp									; restore status
			
			rts									; return to caller
			
			ENDP 								; end of ct_rename_rec
			
 EJECT
******************************************************************
*
* 			Name:	ct_update
*
*	 Description:	Marks the catalog BTree node identified by the
*					given hint as dirty.
*
*  65816 Version:	Cary A. Farrier
*		 Created:	11/06/89
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*					D2.L = catalog hint
*
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined	
*					P = nvmxdizc
*					    ..000..0 = no error
*							   1 = error
*
*
*			Exit:	rts
*
*			Uses:	
*
*	   Called By:	create
*					set_file_info
*					clear_backup
*					flush
*
*  Others Called:	push_regs
*					bt_update
*					ct_upd_mod_dt
*					ct_flush
*					
******************************************************************
* Copyright Apple Computer, Inc. 1984-1990.  All rights reserved.
******************************************************************
*
* REVISION HISTORY:
*
* 11/06/89	CAF		Created.
* 10/17/90  CAE		Removed CLC after 'jsr ct_flush'.
* 11/30/90  CAE		bt_update is now called with the ctree fcr
*					pointer in A4 instead of A2.
*
******************************************************************
ct_update	PROC
			
			lda  #f_d0+f_d1+f_d2+f_a0+f_a1+f_a4	; save registers
			jsr  push_regs
			
			lda  |ctree_fcr_ptr					; a4...
			sta  <a4
			lda  |ctree_fcr_ptr+2
			sta  <a4+2							; ...= ctree fcr pointer

			jsr  bt_update						; mark the node dirty
			bcs  exit							; error
			
done		jsr  ct_upd_mod_dt					; update the mod date/time in vcr
			jsr  ct_flush						; flush the ctree
			
exit		php									; save state
			pha									; save return code
			
			lda  #(f_d0+f_d1+f_d2+f_a0+			\
				f_a1+f_a4) << 2					; restore registers
			jsr  pop_regs
			
			pla									; restore return code
			plp									; restore state
			
			rts									; return to caller ->
			
			ENDP 								; end of ct_update
			
 EJECT
******************************************************************
*
* 			Name:	ct_upd_v_cnts
*					ct_upd_rt_cnts (ALTERNATE ENTRY POINT!)
*
*	 Description:	Updates volume directory and file counts.
*
*  65816 Version:	Cary A. Farrier
*		 Created:	11/06/89
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*					<my_vcr_ptr = ptr to vcr
*					D0.W = record type
*					D1.L = parID
*					D2.L = increment value (+/-)
*
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined	
*					P = nvmxdizc
*					    ..000..0
*
*			Exit:	rts
*
*			Uses:	
*
*	   Called By:	ct_upd_v_cnts -
*						ct_create_rec
*						ct_delete_rec
*					ct_upd_rt_cnts -
*						ct_upd_v_cnts
*						ct_move_rec
*
*  Others Called:	none.
*					
******************************************************************
* Copyright Apple Computer, Inc. 1984-1990.  All rights reserved.
******************************************************************
*
* REVISION HISTORY:
*
* 11/06/89	CAF		Created.
*
******************************************************************
ct_upd_v_cnts	PROC

			lda  #cat_dir_type					; add/delete a directory?
			cmp  |d0
			bne  is_file1						; nope ->
			
			ldy  #vcr_num_dirs					; adjust the volume directory count
			lda  [<my_vcr_ptr],y
			clc
			adc  |d2
			sta  [<my_vcr_ptr],y
			iny
			iny
			lda  [<my_vcr_ptr],y
			adc  |d2+2
			sta  [<my_vcr_ptr],y
			bra  ct_upd_rt_cnts
			
is_file1	ldy  #vcr_num_files					; adjust the volume file count
			lda  [<my_vcr_ptr],y
			clc
			adc  |d2
			sta  [<my_vcr_ptr],y
			iny
			iny
			lda  [<my_vcr_ptr],y
			adc  |d2+2
			sta  [<my_vcr_ptr],y
		
*
*
*                    !!!!! ALTERNATE ENTRY POINT !!!!!
*
*
			EXPORT ct_upd_rt_cnts
			
ct_upd_rt_cnts	lda  #vol_dir_id				; add/delete a to root?
			cmp  |d1
			bne  done							; nope ->
			lda  #^vol_dir_id
			cmp  |d1+2
			bne  done							; nope ->
			
			lda  #cat_dir_type					; add/delete a directory?
			cmp  |d0
			bne  is_file2						; nope ->
			
			ldy  #vcr_num_r_dirs				; adjust the volume directory count
			lda  [<my_vcr_ptr],y
			clc
			adc  |d2
			sta  [<my_vcr_ptr],y
			iny
			iny
			lda  [<my_vcr_ptr],y
			adc  |d2+2
			sta  [<my_vcr_ptr],y
			bra  done
			
is_file2	ldy  #vcr_num_r_files				; adjust the volume file count
			lda  [<my_vcr_ptr],y
			clc
			adc  |d2
			sta  [<my_vcr_ptr],y
			iny
			iny
			lda  [<my_vcr_ptr],y
			adc  |d2+2
			sta  [<my_vcr_ptr],y			
			
done		clc									; no error
			rts									; return to caller ->

			ENDP 								; end of ct_upd_v_cnts/ct_upd_rt_cnts
			
 EJECT
******************************************************************
*
* 			Name:	ct_upd_mod_dt
*
*	 Description:	Updates modification date/time in VCR.
*
*  65816 Version:	Cheryl Ewy
*
*		   Entry:	jsr
*
*			Exit:	rts
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*					<my_vcr_ptr - ptr to vcr
*					time - current time in seconds
*
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined	
*					P = nvmxdizc
*					    ..000..0
*
*			Uses:	nothing
*
*	   Called By:	ct_create_rec
*					ct_delete_rec
*					ct_move_rec
*					ct_rename_rec
*					ct_update
*
*  		   Calls:	nothing
*					
* Copyright Apple Computer, Inc. 1990.  All rights reserved.
******************************************************************
ct_upd_mod_dt	PROC

			ldy	 #vcr_mod_dt
			lda	 time
			sta	 [my_vcr_ptr],y
			iny
			iny
			lda	 time+2
			sta	 [my_vcr_ptr],y
			clc
			rts
				
			ENDP 

 EJECT
******************************************************************
*
* 			Name:	ct_create_key
*
*	 Description:	Constructs a catalog key record given the
*					parent dirID and the new record name.
*
*  65816 Version:	Cary A. Farrier
*		 Created:	11/07/89
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*					A0.L = ptr to record name or 0
*					A1.L = ptr to cky_buffer 
*					D0.L = parent dirID or dirID
*
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined	
*					P = nvmxdizc
*					    ..000..0 
*
*			Exit:	rts
*
*			Uses:	
*
*	   Called By:	ct_loc_rec
*					ct_create_rec
*					ct_delete_rec
*					ct_move_rec
*					ct_rename_rec
*
*  Others Called:	push_regs
*					pop_regs
*					ct_update_name
*					
******************************************************************
* Copyright Apple Computer, Inc. 1984-1990.  All rights reserved.
******************************************************************
*
* REVISION HISTORY:
*
* 11/07/89	CAF		Created.
* 02/07/90	CAF		Changed byte sex on buffer i/o operations.
*
******************************************************************
ct_create_key	PROC
			
			lda  #f_d0+f_a0+f_a1				; registers to save
			jsr  push_regs						; save registers
			
			ldy  #cky_key_len					; initial key length
			lda  #6								; don't XBA it
			sta  [<a1],y						; this also stores a 0 into the rsrvd field!
			
			ldy  #cky_parent_id					; parent id
			lda  |d0+2
			xba
			sta  [<a1],y
			iny
			iny
			lda  |d0
			xba
			sta  [<a1],y
			
			ldy  #cky_name						; assume null name
			lda  #0
			sta  [<a1],y
			
			lda  <a0							; name given?
			ora  <a0+2
			beq  done							; no ->
			
			lda  <a1							; save a1
			pha
			lda  <a1+2
			pha
			
			clc									; get the pointer to the record name
			lda  <a1
			adc  #cky_name
			sta  <a1
			lda  <a1+2
			adc  #^cky_name
			sta  <a1+2
			
			jsr  ct_update_name					; move in the record name
			
			lda  [<a1]							; get length of record name
			and  #$FF
			sta  |d0
			
			pla									; restore a1
			sta  <a1+2
			pla
			sta  <a1
			
			sep  #$20							; add name length to key length
			LONGA  OFF
			
			clc
			ldy  #cky_key_len
			lda  [<a1],y
			adc  |d0
			sta  [<a1],y
			
			LONGA  ON
			rep  #$20

done		lda  #(f_d0+f_a0+f_a1) << 2			; registers to restore
			jsr  pop_regs						; restore registers
			clc									; no error
			rts									; return to caller ->
			
			ENDP 								; end of ct_create_key

 EJECT
******************************************************************
*
* 			Name:	ct_flush
*
*	 Description:	Flushes the catalog for a specified volume.
*
*  65816 Version:	Cary A. Farrier
*		 Created:	11/07/89
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined	
*					P = nvmxdizc
*					    ..000..0 = no error
*							   1 = error
*
*			Exit:	rts
*
*			Uses:	
*
*	   Called By:	ct_create_rec
*					ct_delete_rec
*					ct_move_rec
*					ct_rename_rec
*					ct_update
*
*  Others Called:	push_regs
*					pop_regs
*					update_vib
*					bt_flush
*					
******************************************************************
* Copyright Apple Computer, Inc. 1984-1990.  All rights reserved.
******************************************************************
*
* REVISION HISTORY:
*
* 11/07/89	CAF		Created.
*
******************************************************************
ct_flush	PROC

			lda  #f_d0+f_d1+f_a1+f_a4
			jsr  push_regs
			
			lda  |ctree_fcr_ptr					; a4...
			sta  <a4
			lda  |ctree_fcr_ptr+2
			sta  <a4+2							; ...= ctree fcr pointer

			jsr  bt_flush						; flush the cat tree
			bcs  exit

			jsr	 update_vib						; update the VIB
			bcs  exit

			clc
exit		php
			pha
			
			lda  #(f_d0+f_d1+f_a1+f_a4) << 2
			jsr  pop_regs
			
			pla
			plp
			
			rts									; return to caller
			
			ENDP 								; end of ct_flush
			
 EJECT
******************************************************************
*
* 			Name:	ct_compare_key
*
*	 Description:	Compares two catalog keys.
*
*  65816 Version:	Cary A. Farrier
*		 Created:	11/07/89
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*					A0.L = ptr (search key)
*					A1.L = ptr (trial key)
*
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined	
*					P = nvmxdizc
*					    ..000...
*						      ||
*							  |+- 0 = less than, 1 = greater than
*							  +-- 1 = equal (overrides carry, check z first!)
*
*			Exit:	rts
*
*			Uses:	<temp1
*
*	   Called By:
*
*  Others Called:	push_regs
*					pop_regs
*					strcmp
*					
******************************************************************
* Copyright Apple Computer, Inc. 1984-1990.  All rights reserved.
******************************************************************
*
* REVISION HISTORY:
*
* 11/07/89	CAF		Created.
* 02/12/90	CAF		Changed byte sex on buffer i/o operations.
*
******************************************************************
ct_compare_key	PROC
			
			lda  #f_d0+f_d1+f_d2+f_a0+f_a1+f_a2+f_a3
			jsr  push_regs
			
			lda  <a0							; a2...
			sta  <a2
			lda  <a0+2
			sta  <a2+2							; ...= ptr(search key)
			
			lda  <a1							; a3...
			sta  <a3
			lda  <a1+2
			sta  <a3+2							; ...= ptr(trial key)
			
*
* compare DirID's first
*
			ldy  #cky_parent_id					; d0...
			lda  [<a2],y
			xba
			sta  |d0+2
			iny
			iny
			lda  [<a2],y
			xba
			sta  |d0							; ...= parent id(search key)
			
			ldy  #cky_parent_id					; temp1 = parent id(trial key)
			lda  [<a3],y
			xba
			sta  <temp1+2
			iny
			iny
			lda  [<a3],y
			xba
			sta  <temp1
			
			lda  |d0							; are the two id's equal?
			cmp  <temp1
			bne  compare						; no ->
			lda  |d0+2
			cmp  <temp1+2
			beq  check_strings					; yes->

*
* the two ids are not equal, so find out which one is greater
*
compare		sec									; compare the two id's
			lda  |d0
			sbc  <temp1
			lda  |d0+2
			sbc  <temp1+2
			
			rep  #$02							; clear Z if set
			
			bra  done							; return the result ->
*
* the dirID's are equal, so compare the strings
*
check_strings
			
			clc									; a0 = ptr(name) for search key
			lda  <a2
			adc  #cky_name
			sta  <a0
			lda  <a2+2
			adc  #^cky_name
			sta  <a0+2
			
			clc									; a1 = ptr(name) for trial key
			lda  <a3
			adc  #cky_name
			sta  <a1
			lda  <a3+2
			adc  #^cky_name
			sta  <a1+2
						
			jsr  strcmp							; compare the strings

done		php									; save status
			
			lda  #(f_d0+f_d1+f_d2+f_a0+f_a1+	\
				f_a2+f_a3) << 2
			jsr  pop_regs						; restore regs
			
			plp									; restore status
			rts									; back to caller
			
			ENDP 								; end of ct_compare_key
			
 EJECT
******************************************************************
*
* 			Name:	ct_loc_fil_dir
*
*	 Description:	Locates the catalog record for an existing
*					directory file and returns pointers to the key
*					and data records.
*
*  65816 Version:	Cary A. Farrier
*		 Created:	11/09/89
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*					A0.L = ptr to record name or 0
*					D0.L = parent dirID or dirID
*					D2.L = catalog hint
*
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined	
*					P = nvmxdizc
*					    ..000..0 = no error
*							   1 = error
*
*					A0.L = pointer to catalog key record
*					A1.L = pointer to catalog data record
*					D1.W = size of catalog data record
*					D2.L = catalog hint
*
*			Exit:	rts
*
*			Uses:	
*
*	   Called By:	ct_create_rec
*					ct_delete_rec
*					ct_get_rec
*					ct_move_rec
*					ct_rename_rec
*
*  Others Called:	push_regs
*					pop_regs
*					ct_loc_rec
*					
******************************************************************
* Copyright Apple Computer, Inc. 1984-1990.  All rights reserved.
******************************************************************
*
* REVISION HISTORY:
*
* 11/09/89	CAF		Created.
*
******************************************************************
ct_loc_fil_dir	PROC

			jsr  ct_loc_rec						; locate the record
			bcs  exit							; error ->
			
			ldy  #cat_type						; is it a thread record?
			lda  [<a1],y
			and  #$FF							; mask off hi word
			cmp  #cat_thd_type
			bne  done							; no ->
			
*
* found a thread record.  locate directory record.
*
			clc									; a0...
			lda  <a1
			adc  #thd_dirname
			sta  <a0
			lda  <a1+2
			adc  #^thd_dirname+2
			sta  <a0+2							; ...= ptr(directory name)
			
			ldy  #thd_parent_id					; d0...
			lda  [<a1],y
			xba									; swap
			sta  |d0+2
			iny
			iny
			lda  [<a1],y
			xba									; swap 
			sta  |d0							; ...= directory id
			
			jsr  ct_loc_rec						; get the directory record
			bcs  exit
			
done		clc
exit		rts									; return to caller ->

			ENDP 								; end of ct_loc_fil_dir
			
 EJECT
******************************************************************
*
* 			Name:	ct_loc_rec
*
*	 Description:	Locates the existing catalog record and returns 
*					pointers to the key and data records.  If dirID
*					is specified, the corresponding thread record
*					is located.  If parID/record name is specified,
*					the corresponding directory or file is
*					located.
*
*  65816 Version:	Cary A. Farrier
*		 Created:	11/09/89
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*					A0.L = ptr to record name or 0
*					D0.L = parent dirID or dirID
*					D2.L = catalog hint
*
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined	
*					P = nvmxdizc
*					    ..000..0 = no error
*							   1 = error
*
*					A0.L = pointer to catalog key record
*					A1.L = pointer to catalog data record
*					D1.W = size of catalog data record
*					D2.L = catalog hint
*
*			Exit:	rts
*
*			Uses:	cky_buffer
*
*	   Called By:	ct_loc_fil_dir
*					ct_get_dir_kid
*					ct_move_rec
*					ct_create_rec
*					ct_rename_rec
*
*  Others Called:	push_regs
*					pop_regs
*					ct_create_key
*					bt_search
*					
******************************************************************
* Copyright Apple Computer, Inc. 1984-1990.  All rights reserved.
******************************************************************
*
* REVISION HISTORY:
*
* 11/09/89	CAF		Created.
* 02/07/90	CAF		Changed byte sex on i/o operations.
*
******************************************************************
ct_loc_rec	PROC

			lda  #f_a4
			jsr  push_regs
			
*
* create key record
*
			lda  #cky_buffer					; a1...
			sta  <a1
			lda  #^cky_buffer
			sta  <a1+2							; ...= ptr(key record buffer)
			
			jsr  ct_create_key					; create key record
			
*
* locate catalog record in BTree
*
			lda  <a0							; record name given?
			ora  <a0+2
			bne  use_hint						; yes ->
			
			stz  |d2							; no hint
			stz  |d2+2

use_hint	lda  #cky_buffer					; a0...
			sta  <a0
			lda  #^cky_buffer
			sta  <a0+2							; ...= ptr(key record buffer)
			
			lda  |ctree_fcr_ptr					; a4...
			sta  <a4
			lda  |ctree_fcr_ptr+2
			sta  <a4+2							; ...= ctree fcr pointer
			
			jsr  bt_search						; find the record
			
			php
			pha
			
			lda  #(f_a4) << 2
			jsr  pop_regs
			
			pla
			plp
			
			
			rts									; return to caller ->
			
			ENDP 								; end of ct_loc_rec
			
 EJECT
******************************************************************
*
* 			Name:	ct_update_name
*
*	 Description:	Updates a record name.
*
*  65816 Version:	Cary A. Farrier
*		 Created:	11/09/89
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*					A0.L = ptr (new name)
*					A1.L = ptr (dest name buffer)
*
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined	
*					P = nvmxdizc
*					    ..000..0
*
*			Exit:	rts
*
*			Uses:	
*
*	   Called By:	ct_create_rec
*					ct_rename_rec
*					ct_create_key
*
*  Others Called:	push_regs
*					pop_regs
*					
******************************************************************
* Copyright Apple Computer, Inc. 1984-1990.  All rights reserved.
******************************************************************
*
* REVISION HISTORY:
*
* 11/09/89	CAF		Created.
* 02/07/90	CAF		Changed byte sex on i/o operations.
*
******************************************************************
ct_update_name	PROC
			
			lda  #f_d0+f_d1+f_a0+f_a1			; save registers
			jsr  push_regs						
			
			lda  [<a0]							; is len > max key len?
			and  #$FF
			cmp  #max_filename+1
			bcc  ok								; no ->
			lda  #max_filename					; yes, truncate to max key len
ok			tay
			
			sep  #$20							; copy the name
			LONGA  OFF
			
loop		lda  [<a0],y
			sta  [<a1],y
			dey
			bpl  loop
			
			rep  #$20
			LONGA  ON
			
			lda  #(f_d0+f_d1+f_a0+f_a1) << 2	; restore registers
			jsr  pop_regs						
			
			clc
			rts									; return to caller
			
			ENDP 								; end of ct_update_name
			
 EJECT
******************************************************************
*
* extent tree routines
*
******************************************************************

 EJECT
******************************************************************
*
* 			Name:	et_delete_file
*
*	 Description:	De-allocates all disk space allocted to the 
*					specified file, including both forks.
*
*			Note:	The extent records resident in the catalog BTree
*					are not updated by et_delete_file.  The calling function
*					must delete the catalog record for the file (ct_delete_rec)
*					after calling et_delete_file.
*
*  65816 Version:	Cary A. Farrier
*		 Created:	11/09/89
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*					A0.L = pointer to record name
*					D0.L = parent dirID
*					D2.L = catalog hint			@@@ added 2/18/91 CAE
*
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined	
*					P = nvmxdizc
*					    ..000..0 = no error
*							   1 = error
*
*			Exit:	rts
*
*			Uses:	
*
*	   Called By:	destroy
*
*  Others Called:	push_regs
*					pop_regs
*					ct_get_rec		
*					bt_search						
*					dealloc_blocks					
*					bt_delete						
*					et_flush						
*					
******************************************************************
* Copyright Apple Computer, Inc. 1984-1991  All rights reserved.
******************************************************************
*
* REVISION HISTORY:
*
* 11/09/89	CAF		Created.
* 02/14/90	CAF		Changed byte sex on buffer i/o operations.
* 08/16/90	CAE		Bug fix (BK005) - bt_search was called with the
*					fcr ptr in <a2 instead of <a4.
* 08/27/90  CAE		Bug fix - there was a BEQ after an XBA which would
*					cause the branch to be taken when the lo byte was 0 
*					instead of when the whole word was 0.
* 08/30/90  CAE		Removed CLC after et_flush call.
* 11/14/90  CAE		Bug fix - moved 'jsr et_flush' after the 'exit' 
*					label to ensure that the ETree Header would 
*					be updated even if an error occurred.
* 11/30/90  CAE		bt_delete is now called with the etree fcr
*					pointer in A4 instead of A2.
* 02/18/91  CAE		Catalog hint is now supplied as input.
*
******************************************************************
et_delete_file PROC
			
			lda  #f_d0+f_d1+f_d2+f_d3+f_d4+f_d5+f_d6+f_d7+f_a0+f_a1+f_a3+f_a4
			jsr  push_regs						; save regs
			
			lda  <a0							; a3...
			sta  <a3
			lda  <a0+2
			sta  <a3+2							; ...= ptr(record name)
			
			lda  |d0							; d7...
			sta  |d7
			lda  |d0+2
			sta  |d7+2							; ...= parID
			
			lda  |d2							; save catalog hint	 @@@ added 2/18/91 CAE
			sta  |hint
			lda  |d2+2
			sta  |hint+2						
			
			stz  |d6							; d6 = initial fork type (0 = data fork)
*
* locate catalog record for file
*
fork_loop	stz  |d4							; initial FABN
			
			lda  <a3							; a0...
			sta  <a0
			lda  <a3+2
			sta  <a0+2							; ...= ptr to record name
			
			lda  |d7							; d0...
			sta  |d0
			lda  |d7+2
			sta  |d0+2							; ...= parID
			
			lda	 |hint							; d2...  		@@@ added 2/18/91 CAE
			sta  |d2
			lda  |hint+2
			sta  |d2+2							; ...= catalog hint
			
;			stz  |d2							; no hint		@@@ removed 2/18/91 CAE
;			stz  |d2+2
			
			jsr  ct_get_rec						; locate catalog record
			bcc  @ok
			brl  exit							; error ->
			
@ok			ldy  #cat_type						; file record?
			lda  [<a1],y
			and  #$FF							; mask off hi byte
			cmp  #cat_fil_type
			beq  @is_file						; yes ->
			
			lda  #file_not_found				; result = 'not found' 
			sec
			brl  exit							; exit ->

@is_file	ldy  #fil_id						; d5...
			lda  [<a1],y
			xba
			sta  |d5+2
			iny
			iny
			lda  [<a1],y
			xba
			sta  |d5							; ...= file id number
			
			lda  #eky_buffer					; a0...
			sta  <a0
			lda  #^eky_buffer
			sta  <a0+2							; ...= ptr(eky_buffer)
			
			stz  eky_buffer+eky_ablk_num		; indicate catalog resident extent record
			
			lda  |d6							; delete data fork?
			bne  @del_rsrc						; no ->
			
			clc									; a1...
			lda  <a1
			adc  #fil_data_ext
			sta  <a1
			lda  <a1+2
			adc  #^fil_data_ext
			sta  <a1+2							; ...= ptr(data fork extent)
			
			bra  copy_rec						; copy extent record ->

@del_rsrc	clc									; a1...
			lda  <a1
			adc  #fil_rsrc_ext
			sta  <a1
			lda  <a1+2
			adc  #^fil_rsrc_ext
			sta  <a1+2							; ...= ptr(rsrc fork extent)
			
			bra  copy_rec						; copy extent record ->

*
* setup key for next extent file record
*
rec_loop	lda  #eky_buffer					; a0...
			sta  <a0
			lda  #^eky_buffer
			sta  <a0+2							; ...= ptr(eky_buffer)
			
			sep  #$20
			LONGA  OFF

			ldy  #eky_key_len					; key length
			lda  #len_eky-1
			sta  [<a0],y
			
			ldy  #eky_fork_type					; fork type
			lda  |d6
			sta  [<a0],y
			
			rep  #$20
			LONGA  ON
			
			ldy  #eky_file_id+2					; file id number
			lda  |d5
			xba
			sta  [<a0],y
			dey
			dey
			lda  |d5+2
			xba
			sta  [<a0],y
			
			ldy  #eky_ablk_num					; file allocation block number (fabn)
			lda  |d4
			xba
			sta  [<a0],y
			
*
* get the next extent record
*
			stz  |d2							; no hint
			stz  |d2+2
			
			lda  |etree_fcr_ptr					; a4...			
			sta  <a4
			lda  |etree_fcr_ptr+2
			sta  <a4+2							; ...= etree fcr pointer
			
			jsr  bt_search						; find the record
			bcc  copy_rec						; got it ->
			
			cmp  #bt_not_found					; record not found?
			bne  @ok
			brl  next_fork						; yes, done with this fork ->
			
@ok			brl  exit							; error ->
			
*
* copy extent data to extent buffer
*
copy_rec	lda  #ext_buffer					; a0...
			sta  <a0
			lda  #^ext_buffer
			sta  <a0+2							; ...= ptr(ext_buffer)
			
			ldy  #len_ext-2						; loop index in words NOTE: will always be even!
@loop		lda  [<a1],y						; copy the data
			sta  [<a0],y
			dey
			dey
			bpl  @loop
			
			
*
* release extents for this record
*
			stz  |d1							; offset to 1st extent
			stz  |d1+2
			
rel_ext		clc									; d2...
			lda  #ext_start_ablk
			adc  |d1
			tay
			lda  [<a1],y
			xba
			sta  |d2							; ...= starting ablk number
			
			clc									; d3...
			lda  #ext_num_ablks
			adc  |d1
			tay
			lda  [<a1],y
			xba									; sets z-flag based on lo byte only!!
			tax									; make sure z-flag is set correctly!!
			sta  |d3							; ...= # of ablks
			
			beq  del_rec						; extent not used, delete the record ->
			
			jsr  dealloc_blocks					; deallocate the space
			bcs  exit							; error ->
			
			clc									; d4...
			lda  |d3
			adc  |d4
			sta  |d4							; ...= FABN of beginning of next extent
			
			clc									; d1...
			lda  #len_ext_desc
			adc  |d1
			sta  |d1							; ...= next extent
			
			cmp  #max_desc_off+1				; past last extent?
			bcc  rel_ext						; no, release next one ->
			
*
* delete extent record
*
del_rec		lda  #eky_buffer					; a0...
			sta  <a0
			lda  #^eky_buffer
			sta  <a0+2							; ...= ptr(eky_buffer)
			
			lda  |eky_buffer+eky_ablk_num		; catalog resident record?
			beq  @no_del						; yes, nothing to delete ->
			
			lda  |etree_fcr_ptr					; a4...
			sta  <a4
			lda  |etree_fcr_ptr+2
			sta  <a4+2							; ...= etree fcr pointer
			
			jsr  bt_delete						; delete the record
			bcs  exit							; error ->
			
@no_del		lda  |d3							; end with null extent entry?
			beq  next_fork						; yes ->
			brl  rec_loop						; no, get next record for same fork ->

*
* finished with current fork, check for another one
*
next_fork	lda  |d6							; just finished resource fork? (FF -> 00)
			eor  #$FF
			sta  |d6
			beq  done							; yes, all done ->
			brl  fork_loop						; no, do resource fork ->

*
* clean up and exit
*
done		clc									; indicate no error
			
exit		php									; save status
			pha									; save result
			
			jsr  et_flush						; flush the etree

			lda  #(f_d0+f_d1+f_d2+f_d3+f_d4+	\
				f_d5+f_d6+f_d7+f_a0+f_a1+		\
				f_a3+f_a4) << 2
			jsr  pop_regs						; restore regs
			
			pla									; restore status
			plp									; restore result
			
			rts									; return to caller

hint		DS.B	4							; local storage for catalog hint
			
			ENDP 								; end of et_delete_file
			
 EJECT
******************************************************************
*
* 			Name:	et_extend_file
*
*	 Description:	Extends the disk space allocated to a file.
*
*  65816 Version:	Cary A. Farrier
*		 Created:	11/13/89
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*					A2.L = pointer to fcr
*					D3.W = option flags
*							nonzero	-	allocate all requested bytes or none
*					D4.L = number of additional bytes to allocate
*
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined	
*					P = nvmxdizc
*					    ..000..0 = no error
*							   1 = error
*
*					D6.L = number of bytes allocated
*
*			Exit:	rts
*
*			Uses:	<multiplicand
*					<multiplier
*					<dividend
*					<divisor
*
*	   Called By:	create
*					set_eof
*					bt_ext_bt_file
*
*  Others Called:	push_regs
*					pop_regs
*					long_divide
*					long_multiply
*					et_get_rec
*					alloc_blocks
*					et_update
*					bt_insert
*					et_flush
*					
******************************************************************
* Copyright Apple Computer, Inc. 1984-1990.  All rights reserved.
******************************************************************
*
* REVISION HISTORY:
*
* 11/13/89	CAF		Created.
* 02/14/90	CAF		Changed byte sex on buffer i/o operations.
* 08/15/90  CAE		Bug fix (BK004) - when determining if enough space 
*					was allocated, only the hi word of D4 was checked
*					instead of checking both the hi and lo words.
* 08/30/90  CAE		Bug fix (BK006, BK012) - moved the 'jsr et_flush' 
*					after the 'exit' label.  If a 'volume full' error
*					occurred while growing the CTree, the ETree Header
*					wasn't updated.  This resulted in a damaged disk 
*					if Extent Records had been added to the ETree.
* 09/28/90  CAE		Bug fix (BK024) - if "all or nothing" is requested, we
*					will now first determine how many bytes are available in 
*					the file's last extent before checking to see if there is
*					enough free space on the volume to grow the file.  Originally,
*					we checked the volume free space first which caused
*					"volume full" errors to be erroneously reported.
* 11/14/90  CAE		Bug fix - added a check for overflow after the
*					'round_bytes' label.  Previous change was causing
*					a request for $ffffffff bytes to return with no error
*					and no bytes allocated.
*
******************************************************************
et_extend_file	PROC
			
			lda  #f_d0+f_d1+f_d2+f_d3+f_d4+f_d5+f_d7+f_a0+f_a1+f_a2+f_a3+f_a4
			jsr  push_regs						; save registers

*
* Save current peof and option flag.
*
			ldy  #fcr_peof						; save current peof
			lda  [<a2],y						
			sta  |ext_tempL						; var at end of this proc
			iny
			iny
			lda  [<a2],y
			sta  |ext_tempL+2

			lda	 |d3							; save option flag
			sta  |ext_options					; var at end of this proc
*
* first, attempt to allocate the space contiguously
*
ext_setup	lda  #alloc_contig					; alloc contiguous
			sta  |ext_flag						; var at end of this proc
			
*
* round the # of bytes requested up to next alloc blk
*
round_bytes	clc
			lda  |d4
			adc  |ablk_size
			sta  |d4
			lda  |d4+2
			adc  |ablk_size+2
			sta  |d4+2
			bcc	 @0
			lda  #volume_full					; overflow so report a volume full error
			brl  exit
@0			
			sec
			lda  |d4
			sbc  #1
			sta  <dividend
			lda  |d4+2
			sbc  #0
			sta  <dividend+2
			
			lda  |ablk_size
			sta  <divisor
			lda  |ablk_size+2
			sta  <divisor+2
			
			jsr  long_divide
			
			jsr  long_multiply
			
			lda  <product
			sta  |d4
			lda  <product+2
			sta  |d4+2
			
*
* locate the extent mapping the new PEOF - 1 (last byte in file)
*
loc_peof	ldy  #fcr_peof
			lda  [<a2],y						; d0...
			sta  |d0
			iny
			iny
			lda  [<a2],y
			sta  |d0+2							; ...= current peof

			clc									; d0...
			lda  |d0
			adc  |d4
			sta  |d0
			lda  |d0+2
			adc  |d4+2
			sta  |d0+2							; ...= new peof
			
			sec									; d0...
			lda  |d0
			sbc  #1
			sta  |d0
			lda  |d0+2
			sbc  #0
			sta  |d0+2							; ...= new peof-1 (last byte in file)

			lda  <a2							; a3...
			sta  <a3
			lda  <a2+2
			sta  <a3+2							; ...= fcr ptr

			jsr  et_get_rec						; locate the extent
			bcs  chk_error						; didn't find it ->
			
upd_peof	ldy  #fcr_peof
			clc									; update peof
			lda  [<a2],y
			adc  |d4
			sta  [<a2],y
			iny
			iny
			lda  [<a2],y
			adc  |d4+2
			sta  [<a2],y

			brl  done							; all done ->
			
*
* an error occured.  see if we can work ahead anyways
*
chk_error	cmp  #bt_range_err					; out of range?
			beq  @ok
			brl  exit							; nope ->
			
@ok			lda  |d2							; d7...
			sta  |d7
			lda  |d2+2
			sta  |d7+2							; ...= btree hint
			
			lda  |d3							; d6...
			sta  |d6							; ...= ending fabn + 1
			sta  <multiplicand
			stz  <multiplicand+2
			
			lda  |ablk_size
			sta  <multiplier
			lda  |ablk_size+2
			sta  <multiplier+2
			
			jsr  long_multiply					; calculate # of bytes allocated to file
			
			ldy  #fcr_peof						; d0 <= current peof
			lda  [<a2],y
			sta  |d0
			iny
			iny
			lda  [<a2],y
			sta  |d0+2							
			
			sec									; d0 <= (# bytes alloc to file) - current peof
			lda  <product
			sbc  |d0
			sta  |d0
			lda  <product+2
			sbc  |d0+2
			sta  |d0+2
			
			sec									; adjust # of bytes needed
			lda  |d4
			sbc  |d0
			sta  |d4
			lda  |d4+2
			sbc  |d0+2
			sta  |d4+2
*
* All or nothing allocation requested?  If so, then make sure that there is enough
* room on the volume to get the additional space we need.
*
			lda  |ext_options					; get the options word
			beq  enough_room					; allocate all or nothing? no ->
			
			ldy  #vcr_free_ablks				; get the # of free ablks on the volume
			lda  [<my_vcr_ptr],y
			sta  <multiplicand
			stz  <multiplicand+2
			
			lda  |ablk_size						; get the ablk size
			sta  <multiplier
			lda  |ablk_size+2
			sta  <multiplier+2
			
			jsr  long_multiply					; multiply 'em
			
			sec									; enough room?
			lda  <product
			sbc  |d4
			lda  <product+2
			sbc  |d4+2
			bcs  enough_room					; yes ->
			
			lda  #volume_full					; not enough space ->
			sec
			brl  exit
enough_room			
*
* Adjust peof to end of extent.
*
			lda  |d0							; is peof already at end of extent?
			ora  |d0+2
			
			beq  add_space						; yes ->
			
			ldy  #fcr_peof
			clc									; no, adjust peof to end of extent
			lda  [<a2],y
			adc  |d0
			sta  [<a2],y
			iny
			iny
			lda  [<a2],y
			adc  |d0+2
			sta  [<a2],y
			
*
* allocate additional disk space
*
add_space	ldy  |d1							; d5...
			lda  [<a1],y
			xba
			sta  |d5							; ...= starting abn
			
			iny									; d5 =
			iny
			lda  [<a1],y
			xba
			clc
			adc  |d5
			sta  |d5							; ...= d5 + # of blocks = last block + 1
			
			sta  |d2							; d2 = preferred starting block
			
			lda  |ext_flag						; current allocation type flag
			sta  |d3
			
			jsr  alloc_blocks					; allocate the block
			bcc  got_some						; got some space ->

*
* an error occured.  if it is a disk full error, then check to see if we were trying to
* allocate a contiguous segment.  if we were, then try allocating a non-contiguous
* segment.  if we already were looking for a non-contig segment, then there is not
* enough space on the volume, so return an error.
*
@checkit	cmp  #volume_full					; volume full?
			beq  @check2						; yes ->
			sec
			brl  exit							; no ->
			
@check2		lda  |ext_flag						; did we just try to alloc contig?
			beq  @out							; no ->
			
			stz  |ext_flag						; yes, now try non-contig ->
			bra  add_space
			
@out		sec									; so return
			lda  #volume_full					; a volume full error
			brl  exit							; ->
			
*
* got some space, see if we got the space we asked for
*
got_some	lda  |d5							; get the space requested?
			cmp  |d2
			
			bne  add_ext						; nope ->

*
* got the space, so update the number of blocks in this extent
*
			lda  #ext_num_ablks					; update the number of blocks in this extent
			clc
			adc  |d1
			tay
			lda  [<a1],y
			xba
			clc
			adc  |d3
			xba
			sta  [<a1],y
			
			bra  upd_ext
			
*
* add a new extent entry
*
add_ext		lda  #ext_num_ablks					; is the current extent empty?
			clc
			adc  |d1
			tay
			lda  [<a1],y
			beq  @1								; yes ->
			
			lda  |d1							; bump to next extent
			clc
			adc  #len_ext_desc
			sta  |d1
			cmp  #max_desc_off+1				; past last extent?
			bcs  new_rec
			
@1			ldy  |d1							; set starting ablk #
			lda  |d2
			xba
			sta  [<a1],y
			
			lda  #ext_num_ablks					; set # of ablks
			clc
			adc  |d1
			tay
			lda  |d3
			xba
			sta  [<a1],y
			
*
* update extent record
*
upd_ext		lda  |d7							; d2...
			sta  |d2
			lda  |d7+2
			sta  |d2+2							; ...= btree hint
			
			jsr  et_update						; update extent record
			bcc  @ok
			brl  exit							; error ->
			
@ok			lda  |d2							; d7...
			sta  |d7
			lda  |d2+2
			sta  |d7+2							; ...= new hint
			
			brl  upd_fcr
			
*
* add a new extent record
*
new_rec		ldy  #fcr_id						; d5...
			lda  [<a2],y
			sta  |d5
			iny
			iny
			lda  [<a2],y
			sta  |d5+2							; ...= file id number
			
			lda  |d5							; mapping the extents tree?
			cmp  #etree_file_id
			bne  @1								; no ->
			lda  |d5+2
			cmp  #^etree_file_id
			bne  @1								; no ->
			
			lda  #vol_dir_full					; extents tree overflow
			sec
			brl  exit							; exit ->
			
@1			lda  #eky_buffer					; a0 = ptr(eky buffer)
			sta  <a0
			lda  #^eky_buffer
			sta  <a0+2
			
			lda  #ext_buffer					; a1 = ptr(ext data buffer)
			sta  <a1
			lda  #^ext_buffer
			sta  <a1+2
			
			lda  #len_eky-1						; set key length and fork type
			sta  |eky_buffer
			
			ldy  #fcr_access					; mapping resource fork?
			lda  [<a2],y
			and  #rsrc_fork_bit
			beq  @2								; no ->
			
			lda  #len_eky-1						; yes, set type = resource
			ora  #$FF00							
			sta  |eky_buffer
			
@2			lda  |d5							; file number
			xba
			sta  |eky_buffer+eky_file_id+2
			lda  |d5+2
			xba
			sta  |eky_buffer+eky_file_id
			
			lda  |d6							; starting file alloc blk num
			xba
			sta  |eky_buffer+eky_ablk_num		
			
			ldx  #len_ext-2						; clear extent record
@3			stz  |ext_buffer,x
			dex
			dex
			bpl  @3
			
			lda  |d2							; starting ablk #
			xba
			sta  |ext_buffer+ext_start_ablk
			
			lda  |d3							; # of blks
			xba
			sta  |ext_buffer+ext_num_ablks
			
			lda  #len_ext
			sta  |d1
			
			lda  |etree_fcr_ptr					; a4...
			sta  <a4
			lda  |etree_fcr_ptr+2
			sta  <a4+2							; ...= etree fcr pointer
			
			jsr  bt_insert						; insert new record
			bcc  @ok
			brl  exit							; error ->
			
@ok			stz  |d1							; clear d1
			
			lda  |d2							; d7...
			sta  |d7
			lda  |d2+2
			sta  |d7+2							; ...= new hint
			
*
* finished with this extension, update fcr and see if more space is needed
*
upd_fcr		clc									; update ending fabn + 1
			lda  |d3
			adc  |d6
			sta  |d6
			
			lda  |d3							; convert # blks allocated to bytes
			sta  <multiplicand
			stz  <multiplicand+2
			
			lda  |ablk_size
			sta  <multiplier
			lda  |ablk_size+2
			sta  <multiplier+2

			jsr  long_multiply
			
			lda  <product
			sta  |d3
			lda  <product+2
			sta  |d3+2
			
			ldy  #fcr_peof						; update peof to include new space
			clc
			lda  [<a2],y
			adc  |d3
			sta  [<a2],y
			iny
			iny
			lda  [<a2],y
			adc  |d3+2
			sta  [<a2],y
			
			sec									; did we allocate enough space?
			lda  |d4
			sbc  |d3
			sta  |d4
			lda  |d4+2
			sbc  |d3+2
			sta  |d4+2
			ora  |d4							;*** added 8/15/90 CAE
			beq  @ok
			bcc  @ok
			brl  add_space						; no, do it again ->
			
@ok			clc									; adjust peof to blk bndry
			ldy  #fcr_peof
			lda  [<a2],y
			adc  |d4
			sta  [<a2],y
			iny
			iny
			lda  [<a2],y
			adc  |d4+2
			sta  [<a2],y

*
* clean up and exit
*
done		lda  #0								; no error						
			clc
			
exit		php									; save status
			pha									; save result code

			jsr  et_flush						; flush etree
			
			lda  |ext_tempL						; calculate # of bytes allocated
			sta  |d1
			lda  |ext_tempL+2
			sta  |d1+2
			
			ldy  #fcr_peof
			lda  [<a2],y
			sta  |d6
			iny
			iny
			lda  [<a2],y
			sta  |d6+2
			
			sec									
			lda  |d6
			sbc  |d1
			sta  |d6
			lda  |d6+2
			sbc  |d1+2
			sta  |d6+2
			
			lda  #(f_d0+f_d1+f_d2+f_d3+f_d4+	\
				f_d5+f_d7+f_a0+f_a1+f_a2+		\
				f_a3+f_a4) << 2
			jsr  pop_regs						; restore registers

			pla									; restore result code
			plp									; restore status
			
			rts									; return to caller ->
			
ext_flag	dc.w	0
ext_tempL	dc.l	0
ext_options dc.w	0
			
			ENDP 								; end of et_extend_file
			
 EJECT
******************************************************************
*
* 			Name:	et_compare_key
*
*	 Description:	Compares two extent tree record keys.
*
*  65816 Version:	Cary A. Farrier
*		 Created:	11/15/89
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*					
*					A0.L = search key pointer
*					A1.L = trial key pointer
*
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined	
*					P = nvmxdizc
*					    ..000...
*						      ||
*							  |+- 0 = less than, 1 = greater than
*							  +-- 1 = equal (overrides carry, check z first!)
*
*			Exit:	rts
*
*			Uses:	<temp1
*
*	   Called By:
*
*  Others Called:	push_regs
*					pop_regs
*					
******************************************************************
* Copyright Apple Computer, Inc. 1984-1990.  All rights reserved.
******************************************************************
*
* REVISION HISTORY:
*
* 11/15/89	CAF		Created.
*
******************************************************************
et_compare_key	PROC
			
			lda  #f_d0+f_a0+f_a1
			jsr  push_regs						; save regs

*
* compare the file id numbers
*
			ldy  #2								; d0...
			lda  [<a1],y	
			xba
			sta  |d0+2
			iny
			iny
			lda  [<a1],y
			xba
			sta  |d0							; ...= trial key file id
			
			ldy  #2								; get the search key file id
			lda  [<a0],y
			xba
			sta  <temp1+2
			iny
			iny
			lda  [<a0],y
			xba
			sta  <temp1
			
			lda  |d0							; are the file id's equal?
			cmp  <temp1
			bne  @1
			lda  |d0+2
			cmp  <temp1+2
			beq  cmp_forks						; yes, check fork types ->
			
@1			sec									; which id is greater?
			lda  <temp1
			sbc  |d0
			lda  <temp1+2
			sbc  |d0+2
			rep  #$02							; clear z if set
			bra  done							; return result ->
			
*
* the file id's are equal, so check the fork types
*
cmp_forks	ldy  #1								; get trial key fork type
			lda  [<a1],y
			and  #$FF
			sta  |d0
			lda  [<a0],y
			and  #$FF
			cmp  |d0							; compare 'em
			bne  done							; not equal, exit ->

*
* fork types are equal, check starting block numbers
*
			ldy  #6						
			lda  [<a1],y						; get trial key starting block number
			xba
			sta  |d0
			lda  [<a0],y						; get search key starting block number
			xba
			cmp  |d0	
			
*
* exit
*
done		php									; save result

			lda  #(f_d0+f_a0+f_a1) << 2
			jsr  pop_regs						; restore regs

			plp									; restore result
			
			rts									; return to caller ->

			ENDP 								; end of et_compare_key

 EJECT
******************************************************************
*
* 			Name:	et_log_2_phys
*
*	 Description:	maps a file position to a physical disk
*					block.
*
*  65816 Version:	Cary A. Farrier
*		 Created:	11/15/89
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*					
*					D5.L = file position (byte address)
*					A3.L = fcr pointer
*
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined	
*					P = nvmxdizc
*					    ..000..0 = no error
*							   1 = error
*
*					D3.L = physical block #
*					D6.L = # of physical blocks until end of extent
*					D7.L = byte # within block
*
*			Exit:	rts
*
*			Uses:	<temp1
*					<dividend
*					<divisor
*
*	   Called By:	find_node_buf
*					log2phys
*
*  Others Called:	push_regs
*					pop_regs
*					et_get_rec
*					word_divide
*					long_divide
*					ablk2pblk
*					
******************************************************************
* Copyright Apple Computer, Inc. 1984-1990.  All rights reserved.
******************************************************************
*
* REVISION HISTORY:
*
* 11/15/89	CAF		Created.
* 02/07/90	CAF		Changed byte sex on i/o operations.
* 10/03/90  CAE		Bug fix (CW006) - routine was setting D6 to the total 
*					# of physical blocks in the extent instead of to the
*					# of remaining physical blocks in the extent.
* 10/11/90  CAE	 	Changed reference from vcr_ablk_size to ablk_size.
* 01/29/91  CAE		Replaced a call to long_divide with call to word_divide.
*
******************************************************************
et_log_2_phys	PROC
	
			lda  #f_d0+f_d1+f_d2+f_d4+f_d5+f_a0+f_a1+f_a2+f_a3+f_a4+f_a5
			jsr  push_regs						; save registers
			
*
* locate the extent mapping the desired file position
*
			lda  |d5							; d0...
			sta  |d0
			lda  |d5+2
			sta  |d0+2							; ...= file position
			
			jsr  et_get_rec						; locate the extent
			bcc  @ok
			brl  exit							; error ->
						
*
* calculate address of extent descriptor
*
@ok			clc
			lda  <a1
			adc  |d1
			sta  <a1
			lda  <a1+2
			adc  |d1+2
			sta  <a1+2
			
*
* get # of ablks in extent
*
			ldy  #ext_num_ablks					; get # of ablks in this extent
			lda  [<a1],y
			xba
			sta  |d2

*
* (ending fabn of extent) - (# of ablks in extent) = starting fabn of extent
*			
			sec
			lda  |d3
			sbc  |d2
			sta  |d1							; d1 = beg fabn of extent

			lda  |d3							; d2 = end fabn of extent
			sta  |d2
			
*
* file position / ablk size = fabn mapping file position
*
			lda  |d5
			sta  <dividend
			lda  |d5+2
			sta  <dividend+2
			
			lda  ablk_size
			sta  <divisor
			lda  ablk_size+2
			sta  <divisor+2
			
			jsr  long_divide
			
			lda  <dividend						; d3 = fabn
			sta  |d3
			
*
* remainder / 512 = # of additional physical blocks, if any.
* this will only happen when the ablk size is > 512 bytes (if
* the volume is > 32 Mb).
*
			lda  <remainder
			sta  <dividend
			
			lda  #512
			sta  <divisor
			
			jsr  word_divide
			
			lda  <dividend
			sta  |d0
			
*
* remainder = byte # within physical block
*
			lda  <remainder						; d7 = remainder
			sta  |d7
			stz  |d7+2

*
* fabn - beginning fabn = alloc blk delta
*
			sec									; subtract it from fabn
			lda  |d3
			sbc  |d1
			sta  |d3
			
*
* alloc blk delta + starting abn = abn
*
			clc
			ldy  #ext_start_ablk				; get beg abn
			lda  [<a1],y
			xba
			adc  |d3

*
* convert abn to a physical block #
*
			jsr  ablk2pblk						; call Cheryl's rtn
			stx  |d3
			sty  |d3+2

*
* add remaining physical blocks to get the actual physical block #
*
			clc
			lda  |d0
			adc  |d3
			sta  |d3
			lda  #0
			adc  |d3+2
			sta  |d3+2							; d3 = physical block #
			
*
* calculate the # of phys blocks remaining in the extent
* (ending physical block #) - (current physical block #) = (# of physical blocks left)
*
			ldy  #ext_start_ablk				; get beginning abn of extent
			lda  [<a1],y
			xba
			sta  |d6

			ldy  #ext_num_ablks					; add to # of ablks in extent
			lda  [<a1],y
			xba
			clc
			adc	 |d6							; to get ending abn of extent
			jsr  ablk2pblk						; and convert to physical block #
			stx  |d6
			sty  |d6+2
			
			sec
			lda	 |d6							; ending physical block #
			sbc	 |d3							; - current physical block #
			sta  |d6							; = # of remaining physical blocks
			lda  |d6+2
			sbc  |d3+2
			sta  |d6+2
*
* clean up and exit
*
done		lda  #0
			clc									; no error

exit		php									; save status
			pha									; save result code
			
			lda  #(f_d0+f_d1+f_d2+f_d4+f_d5+	\
				f_a0+f_a1+f_a2+f_a3+f_a4+f_a5) << 2
			jsr  pop_regs						; restore registers

			pla									; restore result code
			plp									; restore status
			
			rts									; return to caller ->
			
			ENDP 								; end of et_log_2_phys
			
 EJECT
******************************************************************
*
* 			Name:	et_trunc_file
*
*	 Description:	Truncates the disk space allocated to a file.  
*					If D2.W = 0, the file is truncated to the specified PEOF 
*					rounded up to the next allocation block boundary.
*					If D2.W = 1, the file is truncated to the end
*					of the extent containing the specified PEOF.
*
*  65816 Version:	Cary A. Farrier
*		 Created:	11/16/89
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*					
*					A2.L = fcr pointer
*					D2.W = option flags
*							0 = truncate to the peof
*							1 = truncate to the end of the extent containing the peof
*					D3.L = peof
*
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined	
*					P = nvmxdizc
*					    ..000..0 = no error
*							   1 = error
*
*			Exit:	rts
*
*			Uses:	<multiplicand
*					<multiplier
*					<dividend
*					<divisor
*
*	   Called By:	close
*					set_eof
*
*  Others Called:	push_regs
*					pop_regs
*					long_divide
*					long_multiply
*					et_get_rec
*					dealloc_blocks
*					bt_search
*					et_update
*					bt_delete
*					et_flush
*					
******************************************************************
* Copyright Apple Computer, Inc. 1984-1990.  All rights reserved.
******************************************************************
*
* REVISION HISTORY:
*
* 11/16/89	CAF		Created.
* 02/14/90	CAF		Changed byte sex on buffer i/o operations.
* 08/27/90  CAE		Bug fix - there was a BEQ after an XBA which would
*					cause the branch to be taken when the lo byte was 0 
*					instead of when the whole word was 0.
* 08/30/90  CAE		Removed CLC after et_flush call.
* 10/17/90  CAE		Added error checking after 'jsr et_update'.
* 11/14/90  CAE		Bug fix - moved 'jsr et_flush' after the 'exit' 
*					label to ensure that the ETree Header would 
*					be updated even if an error occurred.
* 11/29/90  CAE		Bug fix - When truncating a resource fork, the 
*					extents were not being found and released because
*					of the line "and #>rsrc_fork_bit" which should
*					have been "and #rsrc_fork_bit".  
* 11/30/90  CAE		Bug fix - When truncating a resource fork, the 
*					extents were not being found and released because
*					of the line "ora |eky_buffer+eky_fork_type" which 
*					should have been "sta |eky_buffer+eky_fork_type",
*					and because of the line "lda #$FF00" which should
*					have been "lda #$00FF".
* 					Bug fix - bt_delete is now called with the etree  
*					fcr pointer in A4 instead of A2.
*
******************************************************************
et_trunc_file	PROC
			
			lda  #f_allRegs
			jsr  push_regs
			
			lda  |d2							; d6...
			sta  |d6							; ...= option flags
			
*
* locate the extent mapping the last byte of the truncated file
*
			lda  |d3							; d5...
			sta  |d5
			lda  |d3+2
			sta  |d5+2							; ...= new peof
			
			clc									; round the new peof...
			lda  |ablk_size
			adc  |d5
			sta  |d5
			lda  |ablk_size+2
			adc  |d5+2
			sta  |d5+2
			
			sec
			lda  |d5
			sbc  #1
			sta  |d5
			sta  <dividend
			lda  |d5+2
			sbc  #0
			sta  |d5+2
			sta  <dividend+2
			
			lda  |ablk_size
			sta  <divisor
			lda  |ablk_size+2
			sta  <divisor+2
			
			jsr  long_divide
			
			lda  <dividend
			sta  <multiplicand
			stz  <multiplicand+2
			
			lda  |ablk_size
			sta  <multiplier
			lda  |ablk_size+2
			sta  <multiplier+2

			jsr  long_multiply
			
			lda  <product
			sta  |d5
			sta  |d0
			lda  <product+2
			sta  |d5+2							; ...up to next alloc blk
			sta  |d0+2
			
			sec									; new peof - 1 = last byte in file
			lda  |d0
			sbc  #1
			sta  |d0
			lda  |d0+2
			sbc  #0
			sta  |d0+2
			
			lda  |d5
			ora  |d5+2
			bne  @1								; new peof > 0? yes ->
			
			ldy  #fcr_peof						; update peof in fcr
			lda  |d5
			sta  [<a2],y
			iny
			iny
			lda  |d5+2
			sta  [<a2],y
			
			stz  <a0							; indicate no fcr resident record
			stz  <a0+2
			
			stz  |d7							; no hint
			stz  |d7+2
					
			clc									; a1...
			lda  <a2
			adc  #fcr_ext
			sta  <a1
			lda  <a2+2
			adc  #^fcr_ext
			sta  <a1+2							; ...= addr(fcr extent record)
			
			stz  |d4							; last fabn in extent + 1
			
			brl  rel_ext						; release all extents ->
			
@1			lda  <a2							; a3 = fcr pointer
			sta  <a3
			lda  <a2+2
			sta  <a3+2
			
			jsr  et_get_rec						; locate the extent
			bcc  @2
			brl  exit							; error ->
			
@2			lda  |d2							; d7...
			sta  |d7
			lda  |d2+2
			sta  |d7+2							; ...= hint
			
			lda  |d3							; d4...
			sta  |d4							; ...= last fabn in extent + 1
			
			ldy  #fcr_peof						; update peof in fcr
			lda  |d5
			sta  [<a2],y
			iny
			iny
			lda  |d5+2
			sta  [<a2],y
			
			lda  |d6							; truncate to end of extent?
			beq  trun_peof						; no, truncate to new peof ->
			
			lda  #ext_num_ablks					; d3 = 
			clc
			adc  |d1
			tay
			lda  [<a1],y
			xba
			sta  |d3							; ...= # of blks in extent
			brl  rel_r_ext						; release remaining extents in record ->

*
* truncate extent containing new peof
*
trun_peof	lda  |d5							; d0...
			sta  |d0
			lda  |d5+2
			sta  |d0+2							; ...= new peof
			
			sec									; d0...
			lda  |d0
			sbc  #1
			sta  |d0
			sta  <dividend
			lda  |d0+2
			sbc  #0
			sta  |d0+2							; ...= new peof - 1
			sta  <dividend+2
			
			lda  |ablk_size
			sta  <divisor
			lda  |ablk_size+2
			sta  <divisor+2
			
			jsr  long_divide					; (new peof - 1) / alloc blk size = last fabn in file
			
			lda  <dividend						; d0...
			sta  |d0
			lda  <dividend+2
			sta  |d0+2							; ...= last fabn in file
			
			sec									; (last extent fabn + 1) - (last file fabn)
			lda  |d3							; - 1 = # to deallocate
			sbc  |d0
			sec
			sbc  #1
			sta  |d3						
			
			beq  @1								; nothing to deallocate ->
			
			clc									; starting abn
			lda  #ext_start_ablk
			adc  |d1
			tay
			lda  [<a1],y
			xba
			sta  |d2
			
			clc
			lda  #ext_num_ablks					; + # alloc blks in extent
			adc  |d1
			tay
			lda  [<a1],y
			xba
			clc
			adc  |d2
			
			sec									; - # to dealloc
			sbc  |d3
			sta  |d2							; = starting abn for dealloc
			
			jsr  dealloc_blocks					; dealloc blocks
			bcc  @1
			brl  exit							; error ->
			
@1			lda  |d3							; d0...
			sta  |d0							; ...= # of blocks deallocated
			
			clc									; d3...
			lda  #ext_num_ablks
			adc  |d1
			tay
			lda  [<a1],y
			xba
			sta  |d3							; ...= orig # of blks
			
			sec									; update # of blks in extent
			sbc  |d0
			xba									; sets z-flag based on lo byte only!!
			sta  [<a1],y
			
			cmp  #0								; any blocks left in the extent?
			beq  @2								; no ->
			brl  rel_r_ext						; yes ->
			
@2			lda  #ext_start_ablk
			clc
			adc  |d1
			tay
			lda  #0
			sta  [<a1],y						; set extent null
			
			brl  rel_r_ext						; release remaining extents in record ->
			
*
* get the next extent record in btree
*
loop		lda  #eky_buffer					; a0 = search key buffer ptr
			sta  <a0
			lda  #^eky_buffer
			sta  <a0+2
			
			lda  #len_eky-1						; key length, assume data fork
			sta  |eky_buffer+eky_key_len		; byte value, so don't xba
			
			ldy  #fcr_access					; dealing w/rsrc fork?
			lda  [<a2],y
			and  #rsrc_fork_bit
			beq  @0								; nope ->
			lda  #$00FF							; yes, set type to rsrc
			sta  |eky_buffer+eky_fork_type		; byte value, so don't xba
			
@0			ldy  #fcr_id						; file id number
			lda  [<a2],y
			xba
			sta  |eky_buffer+eky_file_id+2
			iny
			iny
			lda  [<a2],y
			xba
			sta  |eky_buffer+eky_file_id
			
			lda  |d4							; file alloc block number
			xba
			sta  |eky_buffer+eky_ablk_num
			
			stz  |d2							; no hint
			stz  |d2+2
			
			lda  |etree_fcr_ptr					; fcr pointer
			sta  <a4
			lda  |etree_fcr_ptr+2
			sta  <a4+2
			
			jsr  bt_search						; search for record
			bcc  @1								; found it
			
			cmp  #bt_not_found					; record not found?
			bne  @ok							; no, some other error ->
			brl  done							; yes, all done ->
			
@ok			brl  exit							; exit ->
			
@1			lda  |d2							; d7...
			sta  |d7
			lda  |d2+2
			sta  |d7+2							; ...= new hint
			
			ldx  #len_ext-2						; copy record into ext_buffer
@2			txy
			lda  [<a1],y
			sta  |ext_buffer,x
			dex
			dex
			bpl  @2
			
			lda  #eky_buffer					; a0...
			sta  <a0
			lda  #^eky_buffer
			sta  <a0+2							; ...= ptr(search key)
			
			lda  #ext_buffer					; a1...
			sta  <a1
			lda  #^ext_buffer
			sta  <a1+2							; ...= ptr(extent record)
			
*
* release the extents for this record
*
rel_ext		stz  |d1							; offset to 1st extent

rel_nxt		lda  #ext_start_ablk				; d2...
			clc
			adc  |d1
			tay
			lda  [<a1],y
			xba
			sta  |d2							; ...= starting ablk num
			
			lda  #ext_num_ablks					; d3...
			clc
			adc  |d1
			tay
			lda  [<a1],y
			xba									; sets z-flag based on lo byte only!!
			tax									; make sure z-flag is set correctly!!
			sta  |d3							; ...= num ablks in extent
			
			beq  upd_rec						; extent not used, update the record ->
			
			jsr  dealloc_blocks					; deallocate the space
			bcs  exit							; error ->
			
			lda  #ext_start_ablk				; set the extent null
			clc
			adc  |d1
			tay
			lda  #0
			sta  [<a1],y
			iny
			iny
			sta  [<a1],y
			
			clc									; bump fabn to beg. of next extent
			lda  |d3
			adc  |d4
			sta  |d4
			
rel_r_ext	clc									; bump to next extent
			lda  #len_ext_desc
			adc  |d1
			sta  |d1
			
			cmp  #max_desc_off+1				; past last extent?
			bcc  rel_nxt						; no, release next one ->
			
*
* update extent record
*
upd_rec		ldy  #ext_num_ablks					; 1st extent null?
			lda  [<a1],y
			beq  @1								; yes, delete record ->
			
			lda  |d7							; d2...
			sta  |d2
			lda  |d7+2
			sta  |d2+2							; ...= btree hint
			
			jsr  et_update						; update the record
			bcs	 exit							; error ->
			bra  @2
			
@1			lda  <a0							; fcr resident record?
			ora  <a0+2
			beq  @2								; yes, nothing to delete ->
			
			lda  |etree_fcr_ptr					; a4...
			sta  <a4
			lda  |etree_fcr_ptr+2
			sta  <a4+2							; ...= fcr ptr
			
			jsr  bt_delete						; delete the record
			bcs  exit							; error ->
			
@2			lda  |d3							; end with null extent entry?
			beq  done
			brl  loop
			
*
* clean up and exit
*
done		clc									; indicate no error

exit		php
			pha
			
			jsr  et_flush						; flush extent file

			lda  #(f_allRegs) << 2
			jsr  pop_regs
			
			pla
			plp
			
			rts									; return to caller ->
			
			ENDP 								; end of et_trunc_file
			
 EJECT
******************************************************************
*
* 			Name:	et_flush
*
*	 Description:	Writes out any dirty nodes belonging to the
*					etree, and writes out any information in the
*					etree fcr.
*
*  65816 Version:	Cary A. Farrier
*		 Created:	11/15/89
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*					
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined	
*					P = nvmxdizc
*					    ..000..0 = no error
*							   1 = error
*
*			Exit:	rts
*
*			Uses:	
*
*	   Called By:	et_delete_file
*					et_extend_file
*					et_trunc_file
*
*  Others Called:	push_regs
*					pop_regs
*					update_vib
*					bt_flush
*					
******************************************************************
* Copyright Apple Computer, Inc. 1984-1990.  All rights reserved.
******************************************************************
*
* REVISION HISTORY:
*
* 11/15/89	CAF		Created.
*
******************************************************************
et_flush	PROC
			
			lda  #f_d0+f_d1+f_a1+f_a4
			jsr  push_regs
			
			lda  |etree_fcr_ptr					; a4...
			sta  <a4
			lda  |etree_fcr_ptr+2
			sta  <a4+2							; ...= etree fcr pointer

			jsr  bt_flush						; flush it
			bcs  exit							; error ->

			jsr	 update_vib						; update the VIB
			bcs  exit							; error ->
			
*
* clean up and exit
*
done		clc									; no error ->

exit		php									; save status
			pha									; save return code
			
			lda  #(f_d0+f_d1+f_a1+f_a4) << 2	; restore regs
			jsr  pop_regs

			pla									; restore return code
			plp									; restore status
			
			rts									; return to caller ->

			ENDP 								; end of et_flush

 EJECT
******************************************************************
*
* 			Name:	et_get_rec
*
*	 Description:	Searches the extents tree (including the fcr
*					resident extent record) for the extent mapping
*					a given file position.
*
*  65816 Version:	Cary A. Farrier
*		 Created:	11/21/89
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*					
*					A3.L = fcr pointer
*					D0.L = file position (byte address)
*
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined	
*					P = nvmxdizc
*					    ..000..0 = no error
*							   1 = error
*
*					A0.L = pointer to extent key record
*							0 = fcr resident extent record
*					A1.L = pointer to extent data record
*					D1.L = offset to extent entry in extent data record
*							result = 0, offset to extent mapping desired fabn
*							result = range error, offset to last extent in record
*					D2.L = BTree hint for extent record
*					D3.W = ending fabn + 1 for extent
*
*			Exit:	rts
*
*			Uses:	<dividend
*					<divisor
*
*	   Called By:	et_extend_file
*					et_log_2_phys
*					et_trunc_file
*
*  Others Called:	push_regs
*					pop_regs
*					long_divide
*					et_search_rec
*					bt_search
*					bt_get_record
*					
******************************************************************
* Copyright Apple Computer, Inc. 1984-1990.  All rights reserved.
******************************************************************
*
* REVISION HISTORY:
*
* 11/21/89	CAF		Created.
* 02/07/90	CAF		Changed byte sex on i/o operations.
* 07/25/90	CAF		Fixed a bug where I wasn't doing a clc before an
*					adc, thus throwing a pointer off by one.
* 10/11/90  CAE	 	Changed reference from vcr_ablk_size to ablk_size.
*
******************************************************************
et_get_rec	PROC
	
			lda  #f_d4+f_d5+f_d6
			jsr  push_regs
		
			lda  |d0							; convert file position to fabn
			sta  <dividend
			lda  |d0+2
			sta  <dividend+2
			
			lda  ablk_size
			sta  <divisor
			lda  ablk_size+2
			sta  <divisor+2
			
			jsr  long_divide
			
			lda  <dividend						; d4...
			sta  |d4
			lda  <dividend+2
			sta  |d4+2							; ...= fabn
			
			ldy  #fcr_id						; d5...
			lda  [<a3],y
			sta  |d5
			iny
			iny
			lda  [<a3],y
			sta  |d5+2							; ...= file id number
			
*
* search FCR extent record first
*
sch_fcr		stz  <a0							; indicate fcb resident record
			stz  <a0+2
			
			stz  |d2							; no hint
			stz  |d2+2
			
			clc
			lda  <a3							; a1...
			adc  #fcr_ext
			sta  <a1
			lda  <a3+2
			adc  #^fcr_ext
			sta  <a1+2							; ...= ptr(ext record)
			
			lda  |d4							; d0...
			sta  |d0							; ...= desired fabn
			
			stz  |d3							; starting fabn
			
			jsr  et_search_rec					; search record for extent entry
			bcs  @ok
			brl  done							; found it ->
			
@ok			tax									; save error code
			
			lda  |d1							; end before the last extent record?
			cmp  #max_desc_off
			bcs  @1								; no ->
			
			txa									; yes, no more extents ->
			sec
			brl  exit
			
@1			clc									; end with a null extent?
			lda  #ext_num_ablks				
			adc  |d1
			tay
			lda  [<a1],y
			bne  @2								; no ->
			
			txa									; yes, no more extents ->
			sec
			brl  exit
			
			
@2			ldy  #fcr_id						; mapping the extents file ?
			lda  [<a3],y
			cmp  #etree_file_id
			bne  sch_file						; no ->
			iny
			iny
			lda  [<a3],y
			cmp  #^etree_file_id
			bne  sch_file						; no ->
			
			txa									; yes, no more extents ->
			sec		
			brl  exit							
			
*
* locate desired record in extents file
*
sch_file	ldy  #fcr_access					; determine fork type
			lda  [<a3],y
			and  #rsrc_fork_bit					; resource fork?
			beq  @1								; no ->

			lda  #$FF
			sta  |d6
			bra  @2

@1			lda  #$00
			sta  |d6
			
@2			sep  #$20
			LONGA  OFF
			
			sta  |eky_buffer+eky_fork_type		; fork type
			
			lda  #len_eky-1						; key length
			sta  |eky_buffer+eky_key_len
			
			rep  #$20
			LONGA  ON
			
			lda  |d5+2							; file number
			xba
			sta  |eky_buffer+eky_file_id
			lda  |d5
			xba
			sta  |eky_buffer+eky_file_id+2
			
			lda  |d4							; desired fabn
			xba
			sta  |eky_buffer+eky_ablk_num
			
			lda  |etree_fcr_ptr					; etree fcr ptr
			sta  <a4
			lda  |etree_fcr_ptr+2
			sta  <a4+2
			
			stz  |d2							; no hint
			stz  |d2+2
				
			lda  #eky_buffer					; ptr(key buffer)
			sta  <a0
			lda  #^eky_buffer
			sta  <a0+2
			
			jsr  bt_search						; search btree for extent
			bcc  copy_rec						; got it ->
			
chk_err		cmp  #bt_not_found					; result = 'not found'?
			beq  @0								; yes ->
			
			sec
			brl  exit							; error ->

@0			lda  |etree_fcr_ptr					; etree fcr ptr
			sta  <a4
			lda  |etree_fcr_ptr+2
			sta  <a4+2
			
			lda  #-1							; indicate previous record
			sta  |d1
			sta  |d1+2
			
			jsr  bt_get_record					; get record
			bcc  @1								; got it ->
			
			cmp  #bt_not_found					; result = 'not found'?
			beq  missed							; yes ->
			
			sec
			brl  exit

@1			ldy  #eky_file_id					; same file?
			lda  [<a0],y
			xba
			cmp  |d5+2
			bne  missed							; no ->
			iny
			iny
			lda  [<a0],y
			xba
			cmp  |d5
			bne  missed							; no ->
			
			sep  #$20
			LONGA  OFF
			
			ldy  #eky_fork_type
			lda  [<a0],y						; same fork?
			cmp  |d6
			
			rep  #$20
			LONGA  ON
			
			beq  copy_rec						; yes, got it ->
			
*
* didn't find extent record in btree, return pointing to last extent in fcr
*
missed		stz  <a0							; indicate no fcr resident record
			stz  <a0+2
			
			stz  |d2							; no hint
			stz  |d2+2
			
			clc
			lda  <a3							; a1...
			adc  #fcr_ext
			sta  <a1
			lda  <a3+2
			adc  #^fcr_ext
			sta  <a1+2							; ...= ptr(ext record)
			
			lda  #max_desc_off					; last extent
			sta  |d1
			
			lda  #bt_range_err					; range error
			sec
			bra  exit
			
*
* found extent record.  copy the key and data record into fxm vars
*
copy_rec	ldy  #len_eky-2						; copy key record
			tyx
@1			lda  [<a0],y
			sta  |eky_buffer,x
			dey
			dey
			tyx
			bpl  @1
			
			ldy  #len_ext-2						; copy data record
			tyx
@2			lda  [<a1],y
			sta  |ext_buffer,x
			dey
			dey
			tyx
			bpl  @2
			
			lda  #eky_buffer					; a0...
			sta  <a0
			lda  #^eky_buffer
			sta  <a0+2							; ...= ptr(eky buffer)
			
			lda  #ext_buffer					; a1...
			sta  <a1
			lda  #^ext_buffer
			sta  <a1+2							; ...= ptr(ext buffer)
			
			lda  |eky_buffer+eky_ablk_num		; d3...
			xba
			sta  |d3							; ...= beginning fabn for extent record

*
* search record for desired extent entry
*
sch_rec		lda  |d4							; d0...
			sta  |d0							; ...= desired fabn
			
			jsr  et_search_rec					; search
			bcs  exit
			
*
* clean up and exit
*
done		clc

exit		php
			pha
			
			lda  #(f_d4+f_d5+f_d6) << 2
			jsr  pop_regs
			
			pla
			plp

			rts									; return to caller ->

error		sec									; restore error flag
			bra  exit
			
			ENDP 								; end of et_get_rec

 EJECT
******************************************************************
*
* 			Name:	et_search_rec
*
*	 Description:	determines if the desired fabn is within the
*					extents in the given extent record.
*
*  65816 Version:	Cary A. Farrier
*		 Created:	11/15/89
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*					
*					A1.L = ptr(extent buffer)
*					D0.W = desired fabn
*					D3.W = beginning fabn for extent record
*
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined	
*					P = nvmxdizc
*					    ..000..0 = no error
*							   1 = error
*
*					D1.L = offset to extent entry in extent record
*							c=0: offset to extent mapping desired fabn
*							c=1,a=range error: offset to last extent in record
*					D3.W = ending fabn + 1
*
*			Exit:	rts
*
*			Uses:	
*
*	   Called By:	et_get_rec
*
*  Others Called:	push_regs
*					pop_regs
*					
******************************************************************
* Copyright Apple Computer, Inc. 1984-1990.  All rights reserved.
******************************************************************
*
* REVISION HISTORY:
*
* 11/15/89	CAF		Created.
* 02/07/90	CAF		Changed byte sex on i/o operations.
* 08/27/90  CAE	    Bug fix (BK007,BK009) - the XBA sets the z-flag based
*					on the lo byte instead of the whole word so the
*					'BEQ @3' was taken even though the extent wasn't null.
*
******************************************************************
et_search_rec	PROC
			
			lda  #f_d2
			jsr  push_regs
			
			lda  |d0							; d2...
			sta  |d2							; ...= desired fabn
			
			stz  |d1							; d1 = initial offset
			
@1			lda  |d1							; d0 = number of alloc blks in extent
			clc									;  calculate offset
			adc  #ext_num_ablks
			tay
			lda  [<a1],y
			xba									; sets z-flag based on lo byte only!!
			tax									; make sure z-flag is set correctly!!
			sta  |d0	
			
			beq  @3								; null extent ->
				
			clc									; d3...
			lda  |d0
			adc  |d3
			sta  |d3							; ...= ending fabn + 1
			
			cmp  |d2							; desired fabn within this extent?
			beq  @2
			bcs  done							; yes, all done ->

@2			clc									; bump to next extent
			lda  |d1
			adc  #len_ext_desc
			sta  |d1
			cmp  #max_desc_off+1				; past last extent?
			bcc  @1								; no, continue search ->
			
@3			lda  |d1
			sec									; back up to previous extent
			sbc  #len_ext_desc
			sta  |d1
			bpl  @4								; still within the record
			
			stz  |d1							; reset to 1st extent
			
@4			lda  #bt_range_err					; range error
			sec
			bra  exit							; exit ->

*
* clean up and exit
*
done		clc									; no error ->

exit		php									; save status
			pha									; save return code
			
			lda  #(f_d2) << 2					; restore regs
			jsr  pop_regs

			pla									; restore return code
			plp									; restore status
			
			rts									; return to caller ->
			
			ENDP 								; end of et_search_rec

 EJECT
******************************************************************
*
* 			Name:	et_update
*
*	 Description:	Updates the current extent record.
*
*  65816 Version:	Cary A. Farrier
*		 Created:	11/24/89
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*					
*					A0.L = pointer to extent key record
*							0 = fcr resident extent record
*					D2.L = btree hint
*
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined	
*					P = nvmxdizc
*					    ..000..0 = no error
*							   1 = error
*
*			Exit:	rts
*
*			Uses:	
*
*	   Called By:	et_extend_file
*					et_trunc_file
*
*  Others Called:	push_regs
*					pop_regs
*					bt_search
*					bt_update
*					
******************************************************************
* Copyright Apple Computer, Inc. 1984-1990.  All rights reserved.
******************************************************************
*
* REVISION HISTORY:
*
* 11/24/89	CAF		Created.
* 11/28/90  CAE		Bug fix - etree_fcr_ptr was being put in <a2
*					instead of <a4 before the call to bt_search.
*					Bug fix - changed "ldy  #len_ext-1" to
*					"ldy  #len_ext-2".  The copy loop was off by 1
*					which smashed the first byte of the next record.
* 11/30/90  CAE		bt_update is now called with the etree fcr
*					pointer in A4 instead of A2.
*
******************************************************************
et_update	PROC
			
			lda  #f_d0+f_d1+f_a0+f_a1+f_a4
			jsr  push_regs
			
			lda  <a0							; fcr resident record?
			ora  <a0+2
			beq  done							; yes - so done ->
			
upd_file	lda  |etree_fcr_ptr					; etree fcr ptr
			sta  <a4
			lda  |etree_fcr_ptr+2
			sta  <a4+2
			
			jsr  bt_search						; re-locate the extent file record
			bcs  exit							; error ->
			
			ldy  #len_ext-2						; update extent record in cache buffer
			tyx
@loop		lda  |ext_buffer,x
			sta  [<a1],y
			dey
			dey
			tyx
			bpl  @loop
			
			lda  |etree_fcr_ptr					; etree fcr ptr
			sta  <a4
			lda  |etree_fcr_ptr+2
			sta  <a4+2
			
			jsr  bt_update						; update btree record
			bcs  exit							; error ->

*
* clean up and exit
*
done		clc
exit		php
			pha
			
			lda  #(f_d0+f_d1+f_a0+f_a1+f_a4) << 2
			jsr  pop_regs

			pla
			plp
			
			rts			
			
			ENDP 								; end of et_update

 EJECT
******************************************************************
*
* btree routines
*
******************************************************************

 EJECT
******************************************************************
*
* 			Name:	bt_delete
*
*	 Description:	Deletes a record from a BTree file given the
*					key.
*
*  65816 Version:	Cary A. Farrier
*		 Created:	11/27/89
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*					
*					A0.L = ptr(key)
*					A4.L = fcr pointer
*
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined	
*					P = nvmxdizc
*					    ..000..0 = no error
*							   1 = error
*
*			Exit:	rts
*
*			Uses:	<temp1
*
*	   Called By:	ct_create_rec
*					ct_delete_rec
*					ct_move_rec
*					ct_rename_rec
*					et_delete_file
*					et_trunc_file
*
*  Others Called:	push_regs
*					pop_regs
*					bt_set_up
*					bt_tree_search
*					bt_delete_rec
*					bt_mark_node
*					bt_get_lt_sib
*					bt_rel_node
*					bt_get_rt_sib
*					bt_clr_node
*					bt_loc_tpr
*					bt_free_node
*					bt_get_node
*					bt_get_rec_addr
*					bt_upd_i_key
*					bt_loc_rec
*					
******************************************************************
* Copyright Apple Computer, Inc. 1984-1991.  All rights reserved.
******************************************************************
*
* REVISION HISTORY:
*
* 11/27/89	CAF		Created.
* 02/14/90	CAF		Changed byte sex on buffer i/o operations.
* 09/10/90  CAE		Bug fix (from latest HFS sources) - changed a
*					'word move' to a 'long move'.
* 10/17/90  CAE		Added error checking after 'jsr bt_free_node'.
* 10/18/90  CAE		Added error checking after calls to 'bt_rel_node'.
* 11/30/90  CAE		Now called with fcr pointer in A4 instead of A2.
*					Removed code which copied fcr pointer from A2 to A4.
* 02/20/91  CAE		Bug fix - tree was not being compacted properly
*					due to an erroneous compare operation at "upd_depth".
*
******************************************************************
bt_delete	PROC
			
			lda  #f_d0+f_d1+f_d2+f_d3+f_d4+f_d5+f_a0+f_a1+f_a2+f_a3+f_a4
			jsr  push_regs
			
			jsr  bt_set_up						; set up common stuff
			
			ldy  #bcr_node_mark
			lda  #0
			sta  [<a4],y
			
			stz  <a2							; no left node buffer
			stz  <a2+2
			
			stz  <a3							; no right node buffer
			stz  <a3+2
			
*
* search tree for key
*
			jsr  bt_tree_search					; search for key
			tax
			
			lda  <a1							; a3 = ptr(node buffer)
			sta  <a3
			lda  <a1+2
			sta  <a3+2
			
			txa
			bcc  @ok
			brl  exit							; didn't find it ->
			
@ok			lda  |d1							; d5 = record index
			sta  |d5
			
*
* delete record from node
*
delete		lda  <a3							; ptr(node buffer)
			sta  <a1
			lda  <a3+2
			sta  <a1+2
			
			lda  |d5							; record index
			sta  |d1
			
			jsr  bt_delete_rec					; delete it
			
			lda  <a3							; ptr(node buffer)
			sta  <a0
			lda  <a3+2
			sta  <a0+2
			
			jsr  bt_mark_node					; mark node dirty
			
			lda  |d5							; delete 1st record?
			bne  @1								; no ->
			
			ldy  #bcr_flags
			lda  [<a4],y
			ora  #bcr_keyupd_bit				; indicate key update required
			sta  [<a4],y
			
@1			ldy  #nd_type						; at leaf level?
			lda  [<a3],y
			and  #$FF
			cmp  #nd_leaf_type
			bne  remove							; no ->
			
			ldy  #bcr_num_recs					; decrement number of leaf records
			lda  [<a4],y
			sec
			sbc  #1
			sta  [<a4],y
			iny
			iny
			lda  [<a4],y
			sbc  #0
			sta  [<a4],y
			
*
* unlink the node if the last record was deleted
*
remove		ldy  #nd_num_recs					; node empty?
			lda  [<a3],y
			beq  @ok2
			brl  next_lev						; no ->
			
@ok2		lda  <a3							; ptr(node buffer)
			sta  <a0
			lda  <a3+2
			sta  <a0+2
			
			jsr  bt_get_lt_sib					; get left sibling node
			bcc  @ok1
			brl  exit							; error ->
			
@ok1		lda  |d1							; is there a left sibling node?
			ora  |d1+2
			beq  @1								; no ->
			
			ldy  #nd_flink						; update forward link
			lda  [<a3],y
			sta  [<a1],y
			iny
			iny
			lda  [<a3],y
			sta  [<a1],y
			
			lda  <a1							; release left node buffer
			sta  <a0
			lda  <a1+2
			sta  <a0+2
			
			lda  #node_dirty_bit				; node is dirty
			sta  |d1
			
			jsr  bt_rel_node
			bcc  @1
			brl  exit							; error ->
			
@1			lda  <a3							; ptr(node buffer)
			sta  <a0
			lda  <a3+2
			sta  <a0+2
			
			jsr  bt_get_rt_sib					; get right sibling
			bcc  @ok
			brl  exit							; error ->
			
@ok			lda  |d1							; is there a right sibling?
			ora  |d1+2
			beq  upd_ptrs						; no ->
			
			ldy  #nd_blink						; update backward link
			lda  [<a3],y
			sta  [<a1],y
			iny
			iny
			lda  [<a3],y
			sta  [<a1],y
			
			lda  <a1							; release right node buffer
			sta  <a0
			lda  <a1+2
			sta  <a0+2

			lda  #node_dirty_bit				; node is dirty
			sta  |d1

			jsr  bt_rel_node
			bcc  @2
			brl  exit							; error ->
@2

*
* update 1st and last node pointers
*
upd_ptrs	ldy  #nd_type						; at leaf level?
			lda  [<a3],y
			and  #$FF
			cmp  #nd_leaf_type
			bne  free							; no ->
			
			ldy  #nd_blink						; backward link = 0?
			lda  [<a3],y
			sta  <temp1
			iny
			iny
			lda  [<a3],y
			ora  <temp1
			bne  @1								; no ->
			
			ldy  #nd_flink						; yes, update 1st node number
			lda  [<a3],y
			xba
			tax
			iny
			iny
			lda  [<a3],y
			xba
			
			ldy  #bcr_first_node
			sta  [<a4],y
			iny
			iny
			txa
			sta  [<a4],y			
			
@1			ldy  #nd_flink						; forward link = 0?
			lda  [<a3],y
			sta  <temp1
			iny
			iny
			lda  [<a3],y
			ora  <temp1
			bne  free							; no ->
			
			ldy  #nd_blink						; yes, update last node number
			lda  [<a3],y
			xba
			tax
			iny
			iny
			lda  [<a3],y
			xba
			
			ldy  #bcr_last_node
			sta  [<a4],y
			iny
			iny
			txa
			sta  [<a4],y			
			
*
* free the empty node
*
free		lda  <a3							; clear the empty node
			sta  <a0
			lda  <a3+2
			sta  <a0+2
			
			jsr  bt_clr_node
			
			lda  #node_dirty_bit				; node is dirty
			sta  |d1

			jsr  bt_rel_node
			bcc  @1
			brl  exit							; error ->
@1			
			stz  <a3							; indicate no buffer
			stz  <a3+2
			
			ldy  #bcr_level						; locate tree path table
			lda  [<a4],y	
			sta  |d0
			jsr  bt_loc_tpr
			
			ldy  #tpr_node_num					; free the disk node
			lda  [<a0],y
			sta  |d1
			iny
			iny
			lda  [<a0],y
			sta  |d1+2
			
			jsr  bt_free_node
			bcc  @ok
			brl  exit							; error ->
@ok			
			ldy  #bcr_flags
			lda  [<a4],y
			ora  #bcr_delptr_bit				; indicate index record delete
			and  #<not_keyupd_bit				; and no key update
			sta  [<a4],y
			
*
* move to next level
*
next_lev	ldy  #bcr_level						; bump to next level up
			lda  [<a4],y
			dec  a
			sta  [<a4],y
			bne  @0
			brl  root							; up to root level ->
			
@0			ldy  #bcr_flags
			lda  [<a4],y
			and  #bcr_keyupd_bit			; key update required?
			bne  @1							; yes ->
			lda  [<a4],y
			and  #bcr_delptr_bit			; index record delete required?
			bne  @1
			brl  done						; no, all done ->
			
@1			ldy  #bcr_level					; locate tpr for this level
			lda  [<a4],y
			sta  |d0
			jsr  bt_loc_tpr
			
			ldy  #tpr_rec_index				; d5 = parent record index
			lda  [<a0],y
			sta  |d5
			
			ldy  #tpr_node_num				; d2 = parent node number
			lda  [<a0],y
			sta  |d2
			iny
			iny
			lda  [<a0],y
			sta  |d2+2
			
			stz  |d1						; get parent node
			stz  |d1+2
			
			jsr  bt_get_node
			bcc  @ok
			brl  exit						; error ->
			
@ok			lda  <a0						; a2 = ptr(parent node bufer)
			sta  <a2
			lda  <a0+2
			sta  <a2+2
			
*
* update parent key
*
upd_key		ldy  #bcr_flags					; key update required?
			lda  [<a4],y
			and  #bcr_keyupd_bit
			beq  @1							; no ->
			
			lda  |d5						; locate parent index record
			sta  |d0
			
			lda  <a2
			sta  <a1
			lda  <a2+2
			sta  <a1+2
			
			jsr  bt_get_rec_addr
			
			lda  <a0						; save ptr(parent index record)
			pha
			lda  <a0+2
			pha
			
			lda  <a3						; locate 1st key in node
			sta  <a1
			lda  <a3+2
			sta  <a1+2
			
			stz  |d0
			
			jsr  bt_get_rec_addr
			
			pla								; restore ptr(parent index record)
			sta  <a1+2
			pla
			sta  <a1
			
			jsr  bt_upd_i_key				; update the key
			
			lda  <a2						; ptr(parent node buffer)
			sta  <a0
			lda  <a2+2
			sta  <a0+2
			
			jsr  bt_mark_node				; mark it dirty
			
			lda  |d5						; update to 1st key in node?
			beq  @1							; yes, leave flag set ->
			
			ldy  #bcr_flags					; don't need to update the next level
			lda  [<a4],y
			and  #<not_keyupd_bit
			sta  [<a4],y
			
@1			stz  |d1						; release child node buffer
			
			lda  <a3
			sta  <a0
			lda  <a3+2
			sta  <a0+2
			
			jsr  bt_rel_node
			bcc  @ok
			brl  exit						; error ->
@ok			
			lda  <a2						; new child node = parent node
			sta  <a3
			lda  <a2+2
			sta  <a3+2
			
			lda  |d2
			sta  |d3
			lda  |d2+2						; changed to a 'long move' 9/10/90  CAE
			sta  |d3+2
			
*
* check if done
*
			ldy  #bcr_flags					; clear delptr bit
			lda  [<a4],y
			tax
			and  #<not_delptr_bit
			sta  [<a4],y
			
			txa								; index rec delete required?
			and  #bcr_delptr_bit
			beq  @2							; no ->
			brl  delete						; delete parent index record ->
			
@2			ldy  #bcr_flags					; another key update required?
			lda  [<a4],y
			and  #bcr_keyupd_bit
			beq  @3
			brl  next_lev					; yes ->
@3			brl  done						; no, all done ->
			
*
* up to the root, check for and empty tree
*
root		lda  <a3						; root node released?
			ora  <a3+2
			bne  upd_depth					; no ->
			
			ldy  #bcr_depth					; set tree to empty state
			lda  #0
			sta  [<a4],y
			
			ldy  #bcr_root_node
			sta  [<a4],y
			iny
			iny
			sta  [<a4],y
			
			brl  done						; done ->
			
*
* update tree depth
*
upd_depth	ldy  #nd_num_recs				; check # of records left in root
			lda  [<a3],y
			xba
;			inc  a							;@@@ removed 2/20/91 CAE
			cmp  #2
			bcc  @ok
			brl  done						; > 1, all done ->
			
@ok			ldy  #nd_type					; index node?
			lda  [<a3],y
			and  #$FF
			beq  @ok1
			brl  done						; no, all done ->
			
@ok1		ldy  #bcr_depth					; decrement tree depth
			lda  [<a4],y
			dec  a
			sta  [<a4],y
			
			stz  |d1						; locate key and data for 1st record in node
			stz  |d1+2
			
			lda  <a3
			sta  <a1
			lda  <a3+2
			sta  <a1+2
			
			jsr  bt_loc_rec
			
			ldy  #0							; new root = child node
			lda  [<a1],y
			xba
			sta  <temp1+2
			iny
			iny
			lda  [<a1],y
			xba
			sta  <temp1
			
			ldy  #bcr_root_node
			lda  <temp1
			sta  [<a4],y
			iny
			iny
			lda  <temp1+2
			sta  [<a4],y
			
*
* release the previous root node
*
			lda  <a3						; clear the node buffer
			sta  <a0
			lda  <a3+2
			sta  <a0+2
			
			jsr  bt_clr_node
			
			lda  #node_dirty_bit			; node is dirty
			sta  |d1

			jsr  bt_rel_node
			bcs  exit						; error ->
			
			stz  <a3						; indicate no buffer
			stz  <a3+2
			
			lda  |d3						; free the node
			sta  |d1
			lda  |d3+2
			sta  |d1+2
			
			jsr  bt_free_node
			bcs  exit						; error ->
			
*
* get new root node and check if depth can be reduced again
*
			ldy  #bcr_root_node				; d3 = new root node #
			lda  [<a4],y
			sta  |d3
			sta  |d2
			iny
			iny
			lda  [<a4],y
			sta  |d3+2
			sta  |d2+2
			
			stz  |d1
			stz  |d1+2
			
			jsr  bt_get_node				; get it
			bcs  exit						; error ->
			
			lda  <a0						; a3 = new node buffer ptr
			sta  <a3
			lda  <a0+2
			sta  <a3+2
			brl  upd_depth					; check out new root ->
			
*
* clean up and exit
*
done		ldy  #bcr_flags					; mark bcr dirty
			lda  [<a4],y
			ora  #bcr_dirty_bit
			sta  [<a4],y

			clc

exit		php
			pha
			
			lda  <a3						; ptr(node buffer)
			sta  <a0
			lda  <a3+2
			sta  <a0+2
			
			stz  |d1
			
			jsr  bt_rel_node				; release it
			
			lda  #(f_d0+f_d1+f_d2+f_d3+		\
				f_d4+f_d5+f_a0+f_a1+f_a2+	\
				f_a3+f_a4) << 2
			jsr  pop_regs
			
			pla
			plp
			
			rts
			
			ENDP 								; end of bt_delete

 EJECT
******************************************************************
*
* 			Name:	bt_flush
*
*	 Description:	if the bcr is dirty, then this routine will
*					call update_bth.
*
*  65816 Version:	Cary A. Farrier
*		 Created:	12/07/89
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*					A4.L = fcr pointer
*					
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined	
*					P = nvmxdizc
*					    ..000..0 = no error
*							   1 = error
*
*			Exit:	rts
*
*			Uses:	
*
*	   Called By:	ct_flush
*					et_flush
*
*  Others Called:	push_regs
*					pop_regs
*					update_bth
*					
******************************************************************
* Copyright Apple Computer, Inc. 1984-1990.  All rights reserved.
******************************************************************
*
* REVISION HISTORY:
*
* 12/07/89	CAF		Created.
*
******************************************************************
bt_flush	PROC
			
			lda  #f_d0+f_d1+f_d2+f_d3+f_d4+f_a0+f_a1+f_a2+f_a3+f_a4
			jsr  push_regs
			
			ldy  #bcr_flags
			lda  [<a4],y
			tax
			and  #<not_bcr_dirty_bit			; clear the dirty bit
			sta  [<a4],y
			
			txa									; is the bcr dirty?
			and  #bcr_dirty_bit
			beq  done							; no, all done ->
			
			jsr  update_bth
			bcs  exit
			
*
* clean up and exit
*
done		clc
exit		php
			pha
			
			lda  #(f_d0+f_d1+f_d2+f_d3+f_d4+	\
				f_a0+f_a1+f_a2+f_a3+f_a4) << 2
			jsr  pop_regs
			
			pla
			plp
			
			rts
			
			ENDP 								; end of bt_flush

 EJECT
******************************************************************
*
* 			Name:	bt_alloc_node
*
*	 Description:	Allocates a BTree disk node.
*
*  65816 Version:	Cary A. Farrier
*		 Created:	11/24/89
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*					A4.L = fcr pointer
*					
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined	
*					P = nvmxdizc
*					    ..000..0 = no error
*							   1 = error
*
*					D1.L = node number of allocated node
*
*			Exit:	rts
*
*			Uses:	<multiplicand
*					<multiplier
*
*	   Called By:	bt_insert
*					bt_split_lt
*
*  Others Called:	push_regs
*					pop_regs
*					bt_get_map
*					bt_rel_map
*					bt_mark_node
*					
******************************************************************
* Copyright Apple Computer, Inc. 1984-1991.  All rights reserved.
******************************************************************
*
* REVISION HISTORY:
*
* 11/24/89	CAF		Created.
* 02/14/90	CAF		Changed byte sex on buffer i/o operations.
* 06/27/90	CAF		Fixed a bug where I was using an incorrect
*					index value while searching for a free disk
*					node, and was only searching through half
*					of the map.
* 07/26/90	CAF		Fixed a bug where I was going past the end of
*					the map, and another bug where I was ignoring
*					the return value of bt_rel_map.
* 01/28/91  CAE		Replaced calls to long_multiply with inline code.
*
******************************************************************
bt_alloc_node	PROC
			
			lda  #f_d0+f_d2+f_d3+f_d4+f_a2+f_a3
			jsr  push_regs
			
			stz  |d4							; beg node # for current map record
			stz  |d4+2
			
			stz  <a2							; start with map in header node
			stz  <a2+2
			
*
* get next map record
*
get_map		jsr  bt_get_map						; get next map record
			bcc  search							; ok ->
			
			cmp  #bt_not_found					; map node not found?
			beq   @1
			
			sec
			brl  exit							; no, some other error ->
			
@1			lda  #volume_full					; yes, result = 'volume full'
			sec
			brl  exit
			
*
* search map record for a word containing a free node (zero bit)
*
search		lda  |d1							; map record size
			sta  |d2							; = loop maximum limit + 1
			
			ldy  #0								; init index
@loop		lda  [<a1],y						; get map word
			xba									; change byte sex
			sty  <a0							; save index
			sta  |d0							; save map word
			cmp  #$FFFF							; any free blocks?
			bne  found							; yes ->
			iny									; no, bump index to next word
			iny
			cpy  |d2							; past end of record?
			bcc  @loop							; no ->
			
			stz  d1+2							;make sure hi word is clear
			asl  d1								; map record size...
			rol  d1+2
			asl  d1
			rol  d1+2
			asl  d1
			rol  d1+2							; ...x 8 = # of nodes
			
			clc									; adjust beginning node #
			lda  |d4			
			adc  |d1
			sta  |d4
			lda  |d4+2
			adc  |d1+2
			sta  |d4+2							
			
			bra  get_map						; try next map record ->

*
* found a word with some free blocks, locate 1st one
*
found		lda  #$8000							; initial bit index
			ldx  #15
			stx  |d2
			stz  |d2+2
			
@1			bit  |d0							; free block?
			beq  @2								; yes ->

			lsr  a
			dec  |d2
			bpl  @1								; try next bit
			
@2			tsb  |d0							; mark block allocated
			
			lda  |d0
			sta  |d3							; save updated map word in d3
			stz  |d3+2
			
			sec									; position index before word
			lda  <a0
			sta  <a3							; save updated index in a3
						
*
* calculate node number for the selected node
*
			sta  <product						; byte offset to map word
			stz  <product+2						;make sure hi word is clear
			asl  <product
			rol  <product+2
			asl  <product
			rol  <product+2
			asl  <product
			rol  <product+2						; x8 = bit offset to map word
						
			clc									; bit offset to word
			lda  #15			
			adc  <product
			sta  |d1
			lda  #0
			adc  <product+2
			sta  |d1+2							; + maximum bit offset
			
			sec
			lda  |d1
			sbc  |d2
			sta  |d1
			lda  |d1+2
			sbc  #0
			sta  |d1+2							; - remaining offset
			
			clc									; + beginning node number = node number
			lda  |d4
			adc  |d1
			sta  |d1
			lda  |d4+2
			adc  |d1+2
			sta  |d1+2
			
*
* check for end of map
*
			ldy  #bcr_num_nodes					; # of nodes = max node + 1
			lda  [<a4],y			
			sta  |d0
			iny
			iny
			lda  [<a4],y
			sta  |d0+2
			
			sec									; target node within map range?
			lda  |d0
			sbc  |d1
			sta  |d0
			lda  |d0+2
			sbc  |d1+2
			sta  |d0+2
			bcc  @no							; no ->
			ora  |d0
			beq  @no							; no ->
			bra  alloc							; yes ->
			
@no			jsr  bt_rel_map						; release map node
			
			lda  #volume_full
			sec
			bra  exit							; exit ->

*
* allocate the node
*
alloc		ldy  <a0							; store the map word
			lda  |d3
			xba
			sta  [<a1],y
			
			lda  <a2							; mark the node dirty
			sta  <a0
			lda  <a2+2
			sta  <a0+2
			
			jsr  bt_mark_node
			
			sec
			ldy  #bcr_free_nodes				; update free node count
			lda  [<a4],y
			sbc  #1
			sta  [<a4],y
			iny
			iny
			lda  [<a4],y
			sbc  #0
			sta  [<a4],y
			
			ldy  #bcr_flags						; mark bcr dirty
			lda  [<a4],y
			ora  #bcr_dirty_bit
			sta  [<a4],y

*
* clean up and exit
*
done		jsr  bt_rel_map
exit		php
			pha
			
			lda  #(f_d0+f_d2+f_d3+f_d4+		\
				f_a2+f_a3) << 2
			jsr  pop_regs
			
			pla
			plp
		
			rts
			
			ENDP 								; end of bt_alloc_node

 EJECT
******************************************************************
*
* 			Name:	bt_ext_bt_file
*
*	 Description:	Extends the disk space allocated to a btree
*					file.
*
*  65816 Version:	Cary A. Farrier
*		 Created:	11/24/89
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*					
*					A4.L = fcr pointer
*
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined	
*					P = nvmxdizc
*					    ..000..0 = no error
*							   1 = error
*
*			Exit:	rts
*
*			Uses:	<temp1
*					<multiplicand
*					<multiplier
*					<dividend
*					<divisor
*
*	   Called By:	bt_insert
*
*  Others Called:	push_regs
*					pop_regs
*					et_extend_file
*					long_divide
*					bt_get_map
*					bt_mark_node
*					bt_rel_map
*					bt_init_node
*					update_alt_vib
*					
******************************************************************
* Copyright Apple Computer, Inc. 1984-1991.  All rights reserved.
******************************************************************
*
* REVISION HISTORY:
*
* 11/24/89	CAF		Created.
* 02/14/90	CAF		Changed byte sex on buffer i/o operations.
* 06/25/90	CAF		Fixed a bug in where I was 
*					imbalancing the internal HFS stack, and fixed a
*					few typo bugs.
* 07/27/90	CAF		Fixed a bug where I was not allocating the block
*					in the bitmap when a new map node was allocated,
*					thus the map node was being used as a leaf node
*					as well.
* 07/31/90	CAF		Fixed a bug where I was not correctly allocating
*					the block for a new map node, so the map node was
*					being allocated a second time as a leaf node.
* 08/01/90	CAF		Fixed two bugs where I wasn't checking the error
*					codes returned from some subroutines.
* 01/28/91  CAE		Replaced call to long_multiply with inline code.
* 01/29/91  CAE		Replaced call to long_divide with inline code.
*
******************************************************************
bt_ext_bt_file		PROC
			
			lda  #f_d0+f_d2+f_d3+f_d4+f_d5+f_d6+f_a2+f_a5
			jsr  push_regs
			
*
* extend the btree file space (data fork)
*
			stz  |d3							; no options
			stz  |d3+2
			
			ldy  #fcr_clump_size				; request 1 clump
			lda  [<a4],y
			sta  |d4
			iny
			iny
			lda  [<a4],y
			sta  |d4+2
			
			lda  <a4
			sta  <a2
			lda  <a4+2
			sta  <a2+2
			
			jsr  et_extend_file					; extend the file
			bcc  cal_range						; got the space ->
			
			cmp  #volume_full					; volume full?
			beq  @1
			
			sec									; no, other error ->
			brl  exit
			
@1			lda  |d6							; get any space at all?
			ora  |d6+2
			bne  cal_range						; yes ->
			
			lda  #volume_full					; no ->
			sec
			brl  exit

*
* calculate node number range for new space
*
cal_range	ldy  #bcr_num_nodes					; beg node # = curr # of nodes
			lda  [<a4],y
			sta  |d3
			sta  |d4
			iny
			iny
			lda  [<a4],y
			sta  |d3+2
			sta  |d4+2
			
			ldy  #fcr_peof						; new phys. length / node size...
			lda  [<a4],y
			sta  <dividend
			iny
			iny
			lda  [<a4],y
			sta  <dividend+2
			
			ldy  #bcr_node_size					
			lda  [<a4],y
			sta  <divisor
			stz  <divisor+2
			
			jsr  long_divide					; ...= number of nodes
				
			lda  <dividend						; get # of nodes
			sta  |d5
			stz  |d5+2							; clear hi word
			
			ldy  #bcr_num_nodes					; update # of nodes
			sta  [<a4],y
			iny
			iny
			lda  #0
			sta  [<a4],y
			
			lda  |d5							; # of nodes - 1 = ending node #
			dec  a
			sta  |d5
			
			sta  |d6							; d6 = ending node #
			stz  |d6+2
			
*
* locate map positions for beginning and end of new space
*
			stz  <a2							; start with map record in header
			stz  <a2+2
			
get_map		jsr  bt_get_map						; get next map record
			bcc  @ok
			brl  exit							; error ->
			
@ok			stz  d1+2							; map size (bytes) x 8...
			asl  d1
			rol	 d1+2
			asl  d1
			rol	 d1+2
			asl  d1
			rol	 d1+2							; ...= map size (bits)

			sec									; make relative begin / end node #s
			lda  |d3
			sbc  |d1
			sta  |d3
			lda  |d3+2
			sbc  |d1+2
			sta  |d3+2
			
			sec
			lda  |d5
			sbc  |d1
			sta  |d5
			lda  |d5+2
			sbc  |d1+2
			sta  |d5+2
			
			bcs  @1								; end node beyond this map ->
				
			sec									; adjust begin node # for no new map
			lda  |d4
			sbc  #1
			sta  |d4
			lda  |d4+2
			sbc  #0
			sta  |d4+2
			
			brl  upd_free						; update free count ->
			
@1			ldy  #nd_flink						; get pointer to next node
			lda  [<a2],y
			sta  <temp1
			iny
			iny
			lda  [<a2],y
			ora  <temp1							; have another node?
			bne  get_map						; yes, continue search ->
			
*
* must extend the map, update the previous 'last' map node and release it
*
add_map		ldy  #nd_flink						; link new node to last node
			lda  |d4+2
			xba
			sta  [<a2],y
			iny
			iny
			lda  |d4
			xba
			sta  [<a2],y
			
			lda  |d3+2							; new space begin within last map record?
			bpl  @1								; no, must all be in new record ->
			
			clc									; make node # relative to this record
			lda  |d3
			adc  |d1
			sta  <dividend
			lda  |d3+2
			adc  |d1+2
			sta  <dividend+2
			
			lda	 <dividend						;calculate remainder before we do
			and  #$0007							;the divide by 8
			sta  <remainder						;save the remainder
			
			lsr  <dividend+2					;divide node # by 8
			ror  <dividend
			lsr  <dividend+2
			ror  <dividend
			lsr  <dividend+2
			ror  <dividend						;to get byte offset
 			
			lda  <dividend						; quotient = byte offset
			sta  |d0
			stz  |d0+2
			
			sec									; 7 - remainder = bit index
			lda  #7
			sbc  <remainder
			tay

			lda  #1								; convert index to a mask
			bra  @start
@loop		asl  a
@start		dey
			bpl  @loop
			sta  <temp1
			
			ldy  |d0							; pre-allocate map node
			lda  [<a1],y
			ora  <temp1
			sta  [<a1],y
			
			lda  #-1
			sta  |d3
			sta  |d3+2
			
@1			lda  <a2							; mark the block dirty
			sta  <a0
			lda  <a2+2
			sta  <a0+2
			
			jsr  bt_mark_node
			
			jsr  bt_rel_map						; release the map node
			bcc  new_map
			brl  exit							; error ->
			
*
* initialize a new map node
*
new_map		lda  |d4							; map node # = beg node #
			sta  |d1
			lda  |d4+2
			sta  |d1+2
			
			jsr  bt_init_node					; get an initialized node
			bcc  @ok
			brl  exit							; error ->
			
@ok			lda  <a0							; a2 = ptr (new map node)
			sta  <a2
			lda  <a0+2
			sta  <a2+2
			
			sep  #$20							; set node type
			LONGA  OFF
			
			ldy  #nd_type
			lda  #nd_map_type
			sta  [<a2],y
			
			rep  #$20
			LONGA  ON
			
			ldy  #nd_num_recs					; map is one large record
			lda  #1
			xba
			sta  [<a2],y
			
			ldy  #bcr_node_size					; d1 = node size
			lda  [<a4],y
			sta  |d1
			
			sec									; nodesize - len(nd) - size(2 offsets)
			sbc  #(len_nd+4)					; = map rec size
			
			lsr  a								; round down to long word
			lsr  a
			asl  a
			asl  a
			
			clc									; rec offset = map rec size + len(nd)
			adc  #len_nd
			
			tax									; save temporarily
			
			ldy  #bcr_node_size					; calculate index to free space offset pointer
			lda  [<a4],y
			sec									
			sbc  #4
			tay
			
			txa									; restore offset
			xba
			sta  [<a2],y						; set free space offset
			
			sta  |d0
			
			lda  |d3+2							; map node bit within new map record?
			bmi  @1								; no, must be in old record ->
			
			sep  #$20
			LONGA  OFF
			
			ldy  #len_nd
			lda  #$80
			sta  [<a2],y						; pre-allocate 1st node (map node)
			
			rep  #$20
			LONGA  ON
			
@1			lda  <a2							; mark the map node dirty
			sta  <a0
			lda  <a2+2
			sta  <a0+2
			
			jsr  bt_mark_node
			
*
* update free node count
*
upd_free	sec									; end node # - beg node # = # of nodes -1
			lda  |d6
			sbc  |d4
			sta  |d6
			lda  |d6+2
			sbc  |d4+2
			sta  |d6+2
			
			clc									; adjust free node count
			ldy  #bcr_free_nodes
			lda  [<a4],y
			adc  |d6
			sta  [<a4],y
			iny
			iny
			lda  [<a4],y
			adc  |d6+2
			sta  [<a4],y
			
			ldy  #bcr_flags						; mark bcr dirty
			lda  [<a4],y
			ora  #bcr_dirty_bit
			sta  [<a4],y
			
*
* clean up and exit
*
done		jsr  bt_rel_map
			bcs  exit
			jsr  update_alt_vib
exit		php
			pha
			
			lda  #(f_d0+f_d2+f_d3+f_d4+f_d5+	\
				f_d6+f_a2+f_a5) << 2
			jsr  pop_regs
			
			pla
			plp
			
			rts
			
			ENDP 								; end of bt_ext_bt_file

 EJECT
******************************************************************
*
* 			Name:	bt_free_node
*
*	 Description:	Marks a btree node as free.
*
*  65816 Version:	Cary A. Farrier
*		 Created:	11/27/89
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*					
*					D1.L = node number of node being released
*					A4.L = fcr pointer
*
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined	
*					P = nvmxdizc
*					    ..000..0 = no error
*							   1 = error
*
*			Exit:	rts
*
*			Uses:	<temp1
*					<multiplicand
*					<multiplier
*					<dividend
*					<divisor
*
*	   Called By:	bt_delete
*
*  Others Called:	push_regs
*					pop_regs
*					bt_get_map
*					bt_mark_node
*					bt_rel_map
*					
******************************************************************
* Copyright Apple Computer, Inc. 1984-1991.  All rights reserved.
******************************************************************
*
* REVISION HISTORY:
*
* 11/27/89	CAF		Created.
* 02/14/90	CAF		Changed byte sex on buffer i/o operations.
* 01/28/91  CAE		Replaced call to long_multiply with inline code.
* 01/29/91  CAE		Replaced call to long_divide with inline code.
*
******************************************************************
bt_free_node	PROC
			
			lda  #f_d0+f_d2+f_d3+f_a2
			jsr  push_regs
			
			lda  |d1							; d3 = input node number
			sta  |d3
			lda  |d1+2
			sta  |d3+2
			
*
* locate map record for target node
*
			stz  <a2							; indicate no node buffer
			stz  <a2+2
			
get_map		jsr  bt_get_map						; get next map record
			bcc  @ok
			brl  exit							; didn't find it ->
			
@ok			lda  |d1							; get map size (in bytes)
			sta  <product
			stz	 <product+2						; clear hi word
			
			asl  <product						; map size (bytes) x 8 
			rol  <product+2
			asl  <product
			rol  <product+2
			asl  <product
			rol  <product+2						; = map size (bits)
			
			sec									; node within this record?
			lda  |d3
			sbc  <product
			sta  |d3
			lda  |d3+2
			sbc  <product+2
			sta  |d3+2
			
			bcs  get_map						; no, get next map record ->
			
*
* found map record, mark node free
*
			clc									; make node # relative to this rec
			lda  |d3
			adc  <product
			sta  |d3
			sta  <dividend
			lda  |d3+2
			adc  <product+2
			sta  |d3+2
			sta  <dividend+2
			
			lda	 <dividend						;calculate remainder before we do
			and  #$0007							;the divide by 8
			sta  <remainder						;save the remainder
			
			lsr  <dividend+2					;divide node # by 8
			ror  <dividend
			lsr  <dividend+2
			ror  <dividend
			lsr  <dividend+2
			ror  <dividend						;to get byte offset
			
			lda  <dividend						; quotient = byte offset
			sta  |d0
			stz  |d0+2
			
			sec									; 7 - remainder = bit index
			lda  #7
			sbc  <remainder
			tay

			lda  #1								; convert index to a mask
			dey									; is index 0?
			bmi  @loopdone						; yes ->
			
@loop		asl  a
			dey
			bpl  @loop
@loopdone	eor  #$FFFF							; invert the mask
			sta  <temp1
			
			ldy  |d0							; mark map node as free
			lda  [<a1],y
			and  <temp1
			sta  [<a1],y
			
			lda  <a2							; mark the map node dirty
			sta  <a0
			lda  <a2+2
			sta  <a0+2
			
			jsr  bt_mark_node
			
			clc									; increment free node count
			ldy  #bcr_free_nodes
			lda  [<a4],y
			adc  #1
			sta  [<a4],y
			iny
			iny
			lda  [<a4],y
			adc  #0
			sta  [<a4],y
			
			ldy  #bcr_flags						; mark bcr dirty
			lda  [<a4],y
			ora  #bcr_dirty_bit
			sta  [<a4],y
			
*
* clean up and exit
*
done		jsr  bt_rel_map
exit		php
			pha
			
			lda  #(f_d0+f_d2+f_d3+f_a2) << 2
			jsr  pop_regs

			pla
			plp
			
			rts
			
			ENDP 								; end of bt_free_node
			
 EJECT
******************************************************************
*
* 			Name:	bt_get_map
*
*	 Description:	retrieves the next map record for a btree, and
*					returns it's size and the next node number.
*
*  65816 Version:	Cary A. Farrier
*		 Created:	11/27/89
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*					
*					A2.L = ptr(node buffer) containing current map record
*							0 = no current node buffer
*					A4.L = fcr pointer
*
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined	
*					P = nvmxdizc
*					    ..000..0 = no error
*							   1 = error
*
*					A2.L = ptr(buffer) containing next map node
*					D2.L = node number of next map node
*					A1.L = ptr(map record) within map node
*					D1.W = size of map record (bytes)
*
*			Exit:	rts
*
*			Uses:	
*
*	   Called By:	bt_alloc_node
*					bt_ext_bt_file
*					bt_free_node
*
*  Others Called:	bt_rel_map
*					bt_get_node
*					bt_get_rec_addr
*					
******************************************************************
* Copyright Apple Computer, Inc. 1984-1991.  All rights reserved.
******************************************************************
*
* REVISION HISTORY:
*
* 11/27/89	CAF		Created.
* 02/14/90	CAF		Changed byte sex on buffer i/o operations.
* 08/09/90	CAF		Added some code to  check if the node is either a
*					map node or a header node.  An internal error code will be returned
*					if it is neither.
* 10/18/90  CAE		Changed 'file_not_found' error to 'bt_not_found'.
* 01/28/91  CAE		Minor cleanup.
******************************************************************
bt_get_map	PROC
			
*
* release current map node
*
			stz  |d2							; assume map in header node
			stz  |d2+2
			
			lda  <a2
			sta  |d0
			lda  <a2+2
			sta  |d0+2
			
			lda  <a2							; have a current node ?
			ora  <a2+2
			beq  get_node						; no, get header node ->
			
			ldy  #nd_flink						; get link to next map node
			lda  [<a2],y
			xba
			sta  |d2+2
			iny
			iny
			lda  [<a2],y
			xba
			sta  |d2
			
			jsr  bt_rel_map						; release current map node
			bcs  @1								; error ->
			
			lda  |d2							; have a next node?
			ora  |d2+2
			bne  get_node						; yes ->
			
			lda  #bt_not_found
			sec
@1			bra  exit
			
*
* get next map node
*
get_node	stz  |d1							; no get_block options
			
			jsr  bt_get_node					; get map node
			bcs  exit							; error ->
			
			lda  <a0							; a2 = ptr(node buffer)
			sta  <a2
			lda  <a0+2
			sta  <a2+2
			
*
* locate map record and caculate its size
*
			stz  |d0							; assume map record is record 0
			
			ldy  #nd_type						; header node?
			lda  [<a2],y
			and  #$FF
			cmp  #nd_hdr_type
			beq  @1								; yes ->
			cmp  #nd_map_type					; map node?
			beq  @2								; yes ->
			
			lda  #bt_not_map_node				; oops, the node is not a map node
			sec									; so report an error.
			bra  exit							; ->
			
			
@1			lda  #2								; map record is record 2
			sta  |d0
			
@2			lda  <a2
			sta  <a1
			lda  <a2+2
			sta  <a1+2
			
			jsr  bt_get_rec_addr				; locate the record
			
			lda  <a0							; d1 = ptr(record)
			sta  |d1
			lda  <a0+2
			sta  |d1+2
			
			ldy  #nd_num_recs
			lda  [<a2],y
			xba
			sta  |d0
			
			jsr  bt_get_rec_addr				; locate the last record in node
			
			lda  |d1							; a1 = ptr(record)
			sta  <a1
			lda  |d1+2
			sta  <a1+2
			
			sec									; map size = ptr(last record) - ptr(map record)
			lda  <a0
			sbc  <a1
			sta  <a0
			sta  |d1

*
* clean up and exit
*
done		clc
exit		rts
			
			ENDP 								; end of bt_get_map
			
 EJECT
******************************************************************
*
* 			Name:	bt_rel_map
*
*	 Description:	Releases the current map node.
*
*  65816 Version:	Cary A. Farrier
*		 Created:	11/28/89
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*					
*					A4.L = pointer to fcr
*					A2.L = pointer to current node buffer
*							0 = no node buffer
*
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined	
*					P = nvmxdizc
*					    ..000..0 = no error
*							   1 = error
*
*					A2.L = set to zero (no map node)
*
*			Exit:	rts
*
*			Uses:	
*
*	   Called By:	bt_alloc_node
*					bt_ext_bt_file
*					bt_free_node
*					bt_get_map
*
*  Others Called:	push_regs
*					pop_regs
*					bt_rel_node
*					
******************************************************************
* Copyright Apple Computer, Inc. 1984-1990.  All rights reserved.
******************************************************************
*
* REVISION HISTORY:
*
* 11/28/89	CAF		Created.
*
******************************************************************
bt_rel_map	PROC
			
			lda  #f_d0+f_d1+f_a0+f_a1
			jsr  push_regs
			
			stz  |d1							
			
			lda  <a2							; ptr(node buffer)
			sta  <a0
			lda  <a2+2
			sta  <a0+2
			
			jsr  bt_rel_node					; release the node
			
			stz  <a2							; indicate no map node
			stz  <a2+2
			
			bcs  exit							; error ->
			
*
* clean up and exit
*
			clc
exit		php
			pha
			
			lda  #(f_d0+f_d1+f_a0+f_a1) << 2
			jsr  pop_regs
			
			pla
			plp
			
			rts
			
			ENDP 								; end of bt_rel_map
			
 EJECT
******************************************************************
*
* 			Name:	bt_build_i_rec
*
*	 Description:	Constructs an index record in the index record
*					buffer of the fcr.
*
*  65816 Version:	Cary A. Farrier
*		 Created:	12/01/89
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*					A1.L = ptr(target node buffer)
*					D0.W = target node #
*					A4.L = fcr pointer
*					
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined	
*					P = nvmxdizc
*					    ..000..0 
*
*					A1.L = ptr(new index record) in btree buffer
*
*			Exit:	rts
*
*			Uses:	
*
*	   Called By:	bt_insert
*
*  Others Called:	push_regs
*					pop_regs
*					bt_get_rec_addr
*					bt_upd_i_key
*					
******************************************************************
* Copyright Apple Computer, Inc. 1984-1990.  All rights reserved.
******************************************************************
*
* REVISION HISTORY:
*
* 12/01/89	CAF		Created.
* 02/14/90	CAF		Changed byte sex on buffer i/o operations.
* 09/10/90  CAE		Bug fix (from latest HFS sources) - the 'max key size'
*					calculation was not adding 1 for the length byte.
*
******************************************************************
bt_build_i_rec	PROC
			
			lda  #f_d2
			jsr  push_regs
			
			lda  |d0							; save node #
			sta  |d2
			lda  |d0+2
			sta  |d2+2
			
			stz  |d0							; locate 1st record
			jsr  bt_get_rec_addr				; ...in node
			
			ldy  #bcr_idx_rec_ptr				; locate record buffer
			lda  [<a4],y
			sta  <a1
			iny
			iny
			lda  [<a4],y
			sta  <a1+2
			
			jsr  bt_upd_i_key
			
			ldy  #bcr_max_key					; node # offset = max key size
			lda  [<a4],y
			inc	 a								; add 1 for length byte
			inc  a								; round up
			lsr  a
			asl  a
			
			tay
			lda  |d2+2
			xba
			sta  [<a1],y
			iny
			iny
			lda  |d2
			xba
			sta  [<a1],y
			
			lda  #(f_d2) << 2
			jsr  pop_regs
			
			clc
			rts
			
			ENDP 								; end of bt_build_i_rec
			
 EJECT
******************************************************************
*
* 			Name:	bt_chk_node
*
*	 Description:	Checks a node to make sure that it is valid.
*					Checks the following:
*						- forward and backward links
*						- node type
*						- node height
*						- number of records
*						- record offsets
*
*  65816 Version:	Cary A. Farrier
*		 Created:	12/04/89
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*					A1.L = ptr node buffer
*					A4.L = fcr pointer
*					
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined	
*					P = nvmxdizc
*					    ..000..0 = no error
*							   1 = error
*
*			Exit:	rts
*
*			Uses:	<temp1
*					<dividend
*					<divisor
*
*	   Called By:	bt_get_node
*					bt_rel_node
*
*  Others Called:	push_regs
*					pop_regs
*					word_divide
*					long_divide
*					bt_get_offset
*					
******************************************************************
* Copyright Apple Computer, Inc. 1984-1991.  All rights reserved.
******************************************************************
*
* REVISION HISTORY:
*
* 12/04/89	CAF		Created.
* 02/07/90	CAF		Changed byte sex on i/o operations.
* 08/01/90	CAF		Fixed a bug where I was returning a bad node
*					error when I encountered a map_node type.
* 01/29/91  CAE		Replaced call to long_divide with call to word_divide.
* 04/02/92	Monte Benaresh
*			Squeezed out a few instructions in an attempt to speed up
*			the code.
*
******************************************************************
bt_chk_node	PROC
		
			lda  #f_d0+f_d1+f_d2+f_a0+f_a1+f_a2
			jsr  push_regs
			
*
* check out the links
*
			ldy  #fcr_peof						; peof / node size = end node + 1
			lda  [<a4],y
			sta  <dividend
			iny
			iny
			lda  [<a4],y
			sta  <dividend+2
			
			ldy  #bcr_node_size
			lda  [<a4],y
			sta  <divisor
			stz  <divisor+2
			
			jsr  long_divide
			
			lda  <dividend
			sta  |d0
			sta  |d1
			lda  <dividend+2
			sta  |d0+2
			sta  |d1+2
			
			ldy  #nd_flink						; get fwd link
			lda  [<a1],y
			xba
			sta  <temp1+2
			iny
			iny
			lda  [<a1],y
			xba
			sta  <temp1
			
			ora  <temp1+2						; is fwd link 0?
			beq  chk_blink						; yes ->
			
			sec									; is fwd link within range?
			lda  |d1
			sbc  <temp1
			lda  |d1+2
			sbc  <temp1+2
			bcs  chk_blink						; yes ->
			brl  bad_node						; no ->
			
chk_blink	ldy  #nd_blink						; get backward link
			lda  [<a1],y
			xba
			sta  <temp1+2
			iny
			iny
			lda  [<a1],y
			xba
			sta  <temp1
			
			ora  <temp1+2						; backward link 0?
			beq  chk_type						; yes ->
			
			sec									; backward link within range?
			lda  |d1
			sbc  <temp1
			lda  |d1+2
			sbc  <temp1+2
			
			bcs  chk_type						; yes ->
			brl  bad_node						; no ->
			
*
* check node type
* note: valid node types are $FF (leaf node) to $02 (map node)
*
chk_type	sep  #$20							; get node type
			LONGA  OFF
			
			ldy  #nd_type
			lda  [<a1],y
			inc  a								
			cmp  #nd_map_type+2					; node type + 1 > max type + 1?
			bcc  chk_hieght						; no ->
			
			rep  #$20
			brl  bad_node						; yes, error ->
			
*
* check node height
*
chk_hieght	ldy  #nd_level						; get nd level
			lda  [<a1],y
			;and  #$FF				;removed 4/2/92 by Monte
			sta  <temp1							; save temporarily
			
			ldy  #bcr_depth						; get tree depth
			lda  [<a4],y
			;and  #$FF				;removed 4/2/92 by Monte
			cmp  <temp1							; node height > tree depth?
			
			rep  #$20
			LONGA  ON
			
			bcs  @ok
			brl  bad_node						; yes, error ->
			
*
* check the number of records
*
@ok			ldy  #bcr_node_size					; max # of records =
			lda  [<a4],y
			sbc  #len_nd						; c=1!!!!
			sta  <dividend						; (node size - length of nd)
			
			lda  #6								; / (min record size + offset word)
			sta  <divisor
			
			jsr  word_divide
			
			ldy  #nd_num_recs					; node # within range?
			lda  [<a1],y
			xba
			cmp  <dividend
			beq  checkov						; #records <= max # records?
			bcs  bad_node						; no, error ->
			
*
* check record offsets
*
checkov		sta  |d1				; loop index = # records
			sta  |d0
			;cmp  #0
			tax						;test 0 - changed 4/2/92 by Monte
			beq  done							; no records ->
			
			jsr  bt_get_offset					; locate free space offset
			
			clc									; prime previous offset to
			lda  <a0							; ptr(free space offset) + 2
			adc  #2								; - ptr(node)
			sta  |d2
			lda  <a0+2
			adc  #0
			sta  |d2+2
			
			sec
			lda  |d2
			sbc  <a1
			sta  |d2
			lda  |d2+2
			sbc  <a1+2
			sta  |d2+2
			
			ldy  #0								; initialize index
			
			;dec  |d1
			ldx |d1
			dex						;use X for counter - changed 4/2/92 by Monte
			
@loop		lda  [<a0],y						; get next offset
			xba
			;sta  |d0
			;and  #$01							; odd offset?
			bit  #$0001				; odd offset? - changed 4/2/92 by Monte
			bne  bad_node						; yes, error ->
			
			;lda  |d0				; offset >= min? - removed 4/2/92 by Monte
			cmp  #len_nd
			bcc  bad_node						; no, error ->
			
			;lda  |d0				; offset < previous? - removed 4/2/92 by Monte
			cmp  |d2
			bcc  @ok
			bcs  bad_node						; no, error ->
			
@ok			;lda  |d0				; - removed 4/2/92 by Monte
			sta  |d2
			
			;tya									; increment index
			;clc
			;adc  #2
			;tay
			iny
			iny						;changed 4/2/92 by Monte
			
			;dec  |d1							; check next one ->
			dex						; check next one -> - changed 4/2/92 by Monte
			bpl  @loop
			
			;bra  done							; all done ->
done		clc
exit		php
			pha
			
			lda  #(f_d0+f_d1+f_d2+f_a0+f_a1+f_a2) << 2
			jsr  pop_regs
			
			pla
			plp
			
			rts

*
* clean up and exit
*
bad_node	lda  #bt_bad_node					; bad node
			sec
			bra  exit
			
			ENDP 								; end of bt_chk_node
			
 EJECT
******************************************************************
*
* 			Name:	bt_get_node_siz
*
*	 Description:	Returns the size of the data of a node.
*
*  65816 Version:	Cary A. Farrier
*		 Created:	12/05/89
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*					A1.L = ptr node buffer
*					A4.L = fcr pointer
*					
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined	
*					P = nvmxdizc
*					    ..000..0 
*
*					D0.W = size of node data
*
*			Exit:	rts
*
*			Uses:	
*
*	   Called By:	bt_rotate_lt
*
*  Others Called:	push_regs
*					pop_regs
*					bt_get_offset
*					
******************************************************************
* Copyright Apple Computer, Inc. 1984-1990.  All rights reserved.
******************************************************************
*
* REVISION HISTORY:
*
* 12/05/89	CAF		Created.
* 02/14/90	CAF		Changed byte sex on buffer i/o operations.
*
******************************************************************
bt_get_node_siz	PROC
			
			lda  #f_d1
			jsr  push_regs
			
			ldy  #nd_num_recs					; number of records in node
			lda  [<a1],y
			xba
			sta  |d1
			sta  |d0
			
			jsr  bt_get_offset					; get free space offset
			
			sec
			lda  |d0
			sbc  #len_nd
			
			asl  |d1							; # recs X 2 = overhead for offsets
			
			clc
			adc  |d1							; rec data size + offsets = node data size
			sta  |d0
			
			lda  #(f_d1) << 2
			jsr  pop_regs
			
			clc
			rts
			
			ENDP 								; end of bt_get_node_siz
			
 EJECT
******************************************************************
*
* 			Name:	bt_get_offset
*
*	 Description:	Returns the offset of the specified record.
*
*  65816 Version:	Cary A. Farrier
*		 Created:	12/05/89
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*					A1.L = ptr node buffer
*					D0.W = record index
*					A4.L = fcr pointer
*					
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined	
*					P = nvmxdizc
*					    ..000...
*
*					D0.W = record offset
*					A0.L = address of offset word
*
*			Exit:	rts
*
*			Uses:	<temp1
*
*	   Called By:	bt_get_rec_addr
*					bt_insert_rec
*					bt_delete_rec
*					bt_chk_node
*					bt_get_node_siz
*
*  Others Called:	none
*					
******************************************************************
* Copyright Apple Computer, Inc. 1984-1990.  All rights reserved.
******************************************************************
*
* REVISION HISTORY:
*
* 12/05/89	CAF		Created.
* 02/07/90	CAF		Changed byte sex on i/o operations.
* 04/02/92	Monte Benaresh
*			Squeezed out the clc before the rts since no caller checks
*			the carry flag.
*
******************************************************************
bt_get_offset	PROC
			
			ldy  #bcr_node_size			; get node size
			lda  [<a4],y
			sta  <temp1
			
			asl  |d0							; calculate record pointer offset
			sec
			lda  <temp1
			sbc  |d0
			sbc  #2								; adjust for first record offset
			sta  |d0

			clc									; calculate address of offset word
			lda  |d0
			adc  <a1
			sta  <a0
			lda  #0
			adc  <a1+2
			sta  <a0+2
			
			lda  [<a0]							; get record offset
			xba
			sta  |d0
			
			;clc					;removed 4/2/92 by Monte
			rts
			
			ENDP 								; end of bt_get_offset
			
 EJECT
******************************************************************
*
* 			Name:	bt_get_rec_addr
*
*	 Description:	Returns the address of the specified record.
*
*  65816 Version:	Cary A. Farrier
*		 Created:	12/06/89
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*					A1.L = ptr node buffer
*					D0.W = record index
*					A4.L = fcr pointer
*					
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined	
*					P = nvmxdizc
*					    ..000... 
*
*					D0.W = size of record
*					A0.L = address of record
*
*			Exit:	rts
*
*			Uses:	
*
*	   Called By:	bt_loc_rec
*					bt_insert
*					bt_search_node
*					bt_rotate_lt
*					bt_rot_rec_lt
*					bt_delete
*					bt_get_map
*					bt_build_i_rec
*
*  Others Called:	push_regs
*					pop_regs
*					bt_get_offset
*					
******************************************************************
* Copyright Apple Computer, Inc. 1984-1990.  All rights reserved.
******************************************************************
*
* REVISION HISTORY:
*
* 12/06/89	CAF		Created.
* 02/23/90	CAF		Fixed a bug where I wasn't popping d1/d2 off
*					of HFS stack.
* 04/02/92	Monte Benaresh
*			Squeezed out the clc before the rts since no caller checks
*			the carry flag.
*
******************************************************************
bt_get_rec_addr	PROC
			
			lda  #f_d1+f_d2
			jsr  push_regs
			
			lda  |d0							; d1 = record index
			sta  |d1
			
			jsr  bt_get_offset					; get offset of target record
			
			lda  |d0							; d2 = target offset
			sta  |d2
			
			lda  |d1							; get offset to next record
			inc  a
			sta  |d0
			jsr  bt_get_offset
			
			sec									; record size = next offset - target offset
			lda  |d0
			sbc  |d2
			sta  |d0
			
			clc									; calculate pointer to record
			lda  <a1
			adc  |d2
			sta  <a0
			lda  <a1+2
			adc  #0
			sta  <a0+2
			
			lda  #(f_d1+f_d2) << 2
			jsr  pop_regs
			
			;clc					;removed 4/2/92 by Monte
			rts
			
			ENDP 								; end of bt_get_rec_addr	
			
 EJECT
******************************************************************
*
* 			Name:	bt_insert_rec
*
*	 Description:	Attempts a simple insert of a record into a
*					node.
*
*  65816 Version:	Cary A. Farrier
*		 Created:	12/07/89
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*					A0.L = pointer to record
*					A1.L = ptr(node buffer)
*					D0.W = size of record
*					D1.W = index of insert point
*					
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined	
*					P = nvmxdizc
*					    ..000..0 = no error
*							   1 = error
*
*					D1.W = index of new record
*					A1.L = ptr(node buffer) containing record
*
*			Exit:	rts
*
*			Uses:	
*
*	   Called By:	bt_insert
*					bt_rotate_lt
*					bt_rot_rec_lt
*
*  Others Called:	push_regs
*					pop_regs
*					bt_get_offset
*					bt_mov_rec_rt
*					bt_mov_off_lt
*					bt_mov_rec_lt
*					
******************************************************************
* Copyright Apple Computer, Inc. 1984-1990.  All rights reserved.
******************************************************************
*
* REVISION HISTORY:
*
* 12/07/89	CAF		Created.
* 02/14/90	CAF		Changed byte sex on buffer i/o operations.
*
******************************************************************
bt_insert_rec	PROC
			
			lda  #f_dRegs+f_a1+f_a2+f_a3+f_a4+f_a5
			jsr  push_regs
			
*
* set up common stuff
*
			lda  |d0							; save size of record
			sta  |d7
			
			lda  |d1							; save insert index
			sta  |d6
			
			lda  <a0							; save ptr to record
			sta  |d5
			lda  <a0+2
			sta  |d5+2
			
			lda  |d1							; insert index
			sta  |d0
			
			jsr  bt_get_offset
			
			lda  |d0							; d4 = insert offset
			sta  |d4
			
			ldy  #nd_num_recs					; number of keys = last index
			lda  [<a1],y
			xba
			sta  |d0
			
			jsr  bt_get_offset
			
			lda  <a0							; a3 = ptr(last offset)
			sta  <a3
			lda  <a0+2
			sta  <a3+2
			
			lda  |d0							; d3 = last offset
			sta  |d3
			
*
* see if new record will fit
*
			clc									; avail space = 
			lda  <a1							;  ptr(last offset) - (last offset + node base)
			adc  |d3
			sta  |d0
			lda  <a1+2
			adc  |d3+2
			sta  |d0+2
			
			sec
			lda  <a3
			sbc  |d0
			sta  |d1
			lda  <a3+2
			sbc  |d0+2
			sta  |d1+2
			
			clc									; required size = 2 + record size
			lda  |d7
			adc  #2
			sta  |d0
			stz  |d0+2
			
			lda  |d1							; enough space?
			cmp  |d0
			bcs  insert							; yes ->
						
			lda  #bt_wont_fit					; result = "wont fit"
			sec
			brl  exit							; exit ->
			
*
* make hole for new record
*
insert		lda  <a1							; a5 = ptr(node buffer)
			sta  <a5
			lda  <a1+2
			sta  <a5+2
			
			clc									; source = ptr(insert record)
			lda  <a5
			adc  |d4
			sta  <a0
			lda  <a5+2
			adc  #0
			sta  <a0+2
			
			clc									; dest = source + size
			lda  <a0
			adc  |d7
			sta  <a1
			lda  <a0+2
			adc  #0
			sta  <a1+2
			
			sec
			lda  |d3							; count = last offset - insert offset
			sbc  |d4
			sta  |d0
			
			jsr  bt_mov_rec_rt					; make hole for new record
			
*
* adjust offsets for moved records
*
			lda  <a3							; src ptr = ptr to last offset
			sta  <a0
			lda  <a3+2
			sta  <a0+2
			
			sec									; dest ptr = src ptr - 2
			lda  <a3
			sbc  #2
			sta  <a1
			lda  <a3+2
			sbc  #0
			sta  <a1+2
			
			ldy  #nd_num_recs					; offset count = last index - insert index
			lda  [<a5],y
			xba
			sec
			sbc  |d6
			sta  |d0
			
			lda  |d7							; delta = record size
			sta  |d1
			
			jsr  bt_mov_off_lt
			
*
* move in the new record
*
			lda  |d5							; src = ptr(record)
			sta  <a0
			lda  |d5+2
			sta  <a0+2
			
			clc									; dest = ptr(insert record)
			lda  <a5
			adc  |d4
			sta  <a1
			lda  <a5+2
			adc  #0
			sta  <a1+2
			
			lda  |d7							; count = record size
			sta  |d0
			
			jsr  bt_mov_rec_lt					; move record in
			
			ldy  #nd_num_recs
			lda  [<a5],y
			xba
			inc  a
			xba
			sta  [<a5],y
			
*
* clean up and exit
*
done		clc			
exit		php
			pha
			
			lda  #(f_dRegs+f_a1+f_a2+f_a3+f_a4+f_a5) << 2
			jsr  pop_regs
			
			pla
			plp
			
			rts
			
			ENDP 								; end of bt_insert_rec
			
 EJECT
******************************************************************
*
* 			Name:	bt_loc_rec
*
*	 Description:	Locates the key and data record for a specified
*					btree record.
*
*  65816 Version:	Cary A. Farrier
*		 Created:	12/07/89
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*					A1.L = ptr(node buffer)
*					D1.W = record index
*					A4.L = fcr pointer
*					
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined	
*					P = nvmxdizc
*					    ..000..0 
*
*					A0.L = ptr(key)
*					D1.W = size of record
*					A1.L = ptr(data record)
*
*			Exit:	rts
*
*			Uses:	
*
*	   Called By:	gr_rel_node
*					bt_search
*					bt_upd_d_rec
*					bt_tree_search
*					bt_delete
*
*  Others Called:	push_regs
*					pop_regs
*					bt_get_rec_addr
*					
******************************************************************
* Copyright Apple Computer, Inc. 1984-1990.  All rights reserved.
******************************************************************
*
* REVISION HISTORY:
*
* 12/07/89	CAF		Created.
* 02/07/90	CAF		Changed byte sex on i/o operations.
*
******************************************************************
bt_loc_rec	PROC
			
			lda  #f_d0+f_d2+f_d3
			jsr  push_regs
			
			lda  |d1							; d3 = record index
			sta  |d3
			
			sta  |d0
			jsr  bt_get_rec_addr				; locate the record
			
			lda  <a0							; d2 = ptr(record)
			sta  |d2
			lda  <a0+2
			sta  |d2+2
			
			lda  |d3							; locate the next record
			inc  a
			sta  |d0
			
			jsr  bt_get_rec_addr
			
			lda  <a0							; d1 = ptr(next record)
			sta  |d1
			lda  <a0+2
			sta  |d1+2
			
			lda  |d2							; ptr(key) = ptr(record)
			sta  <a0
			lda  |d2+2
			sta  <a0+2
			
			lda  [<a0]							; calculate key length
			and  #$FF
			inc  a								; include length byte
			inc  a
			lsr  a								; adjust to word boundary
			asl  a
			sta  |d0
			stz  |d0+2
				
			sec									; record size = ptr(next record) - ptr(record) -
			lda  |d1							;		(adj key length)
			sbc  |d2
			sta  |d1
			lda  |d1+2
			sbc  |d2+2
			sta  |d1+2
			
			sec
			lda  |d1
			sbc  |d0
			sta  |d1
			lda  |d1+2
			sbc  |d0+2
			sta  |d1+2
			
			clc
			lda  <a0							; ptr(data record) = ptr(key) + (adj key length)
			adc  |d0
			sta  <a1
			lda  <a0+2
			adc  #0
			sta  <a1+2
			
			lda  #(f_d0+f_d2+f_d3) << 2
			jsr  pop_regs
			
			clc
			rts
			
			ENDP 								; end of bt_loc_rec
			
 EJECT
******************************************************************
*
* 			Name:	bt_loc_tpr
*
*	 Description:	Locates the tree path record for the current
*					tree level.
*
*  65816 Version:	Cary A. Farrier
*		 Created:	01/02/90
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*					D0.W = tree level
*					A4.L = fcr pointer
*					
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined	
*					P = nvmxdizc
*					    ..000..0
*
*					A0.L = ptr(tpr)
*
*			Exit:	rts
*
*			Uses:	<multiplicand
*					<multiplier
*
*	   Called By:	bt_insert
*					bt_split_lt
*					bt_tree_search
*					bt_delete
*
*  Others Called:	word_multiply
*					
******************************************************************
* Copyright Apple Computer, Inc. 1984-1991.  All rights reserved.
******************************************************************
*
* REVISION HISTORY:
*
* 01/02/90	CAF		Created.
* 01/28/91  CAE		Changed to use word_multiply instead of long_multiply.
*
******************************************************************
bt_loc_tpr	PROC
			
			lda  |d0							; calc offset into tpt
			dec  a
			sta  <multiplicand
			
			lda  #len_tpr
			sta  <multiplier
			
			jsr  word_multiply
			
			clc									; get ptr to tpr
			ldy  #bcr_tpt_ptr					; and add offset to it
			lda  [<a4],y
			adc  <product
			sta  <a0
			iny
			iny
			lda  [<a4],y
			adc  #0
			sta  <a0+2
			
			clc
			rts
			
			ENDP 								; end of bt_loc_tpr

 EJECT
******************************************************************
*
* 			Name:	bt_mov_off_lt
*
*	 Description:	move offsets left within a single node
*
*  65816 Version:	Cary A. Farrier
*		 Created:	01/02/90
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*					D0.W = # of offsets
*					D1.W = delta amount to be added to each offset
*					A0.L = pointer to source offset
*					A1.L = pointer to destination offset
*					
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined	
*					P = nvmxdizc
*					    ..000..0
*
*			Exit:	rts
*
*			Uses:	
*
*	   Called By:	bt_insert_rec
*
*  Others Called:	none
*					
******************************************************************
* Copyright Apple Computer, Inc. 1984-1990.  All rights reserved.
******************************************************************
*
* REVISION HISTORY:
*
* 01/02/90	CAF		Created.
* 02/14/90	CAF		Changed byte sex on buffer i/o operations.
*
******************************************************************
bt_mov_off_lt	PROC
			
			ldx  |d0							; loop index
			ldy  #0
			
@loop		lda  [<a0],y						; get source offset
			xba
			clc	
			adc  |d1							; add delta
			xba
			sta  [<a1],y						; save to destination
			
			iny									; move to next record
			iny
			
			dex									; decrement index
			
			bpl  @loop							; done? no ->
			
			clc
			rts
			
			ENDP 								; end of bt_mov_off_lt
			
 EJECT
******************************************************************
*
* 			Name:	bt_mov_off_rt
*
*	 Description:	move offsets right within a single node
*
*  65816 Version:	Cary A. Farrier
*		 Created:	01/02/90
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*					D0.W = # of offsets
*					D1.W = delta amount to be added to each offset
*					A0.L = pointer to source offset
*					A1.L = pointer to destination offset
*					
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined	
*					P = nvmxdizc
*					    ..000..0
*
*			Exit:	rts
*
*			Uses:	
*
*	   Called By:	bt_delete_rec
*
*  Others Called:	push_regs
*					pop_regs
*					
******************************************************************
* Copyright Apple Computer, Inc. 1984-1990.  All rights reserved.
******************************************************************
*
* REVISION HISTORY:
*
* 01/02/90	CAF		Created.
* 02/14/90	CAF		Changed byte sex on buffer i/o operations.
*
******************************************************************
bt_mov_off_rt	PROC
			
			lda  #f_a0+f_a1
			jsr  push_regs

*
* loop index = # of offsets to update
*
			ldx  |d0

*
* update the offsets
*
@loop

*
* get the offset, add the delta, and move it to the new location
* in the node.
*
			lda  [<a0]							; get source offset
			xba
			clc
			adc  |d1							; add delta
			xba
			sta  [<a1]							; save to destination

*
* update the offset pointers to point to the next offsets.
*
			sec									; decrement source addr
			lda  <a0
			sbc  #2
			sta  <a0
			lda  <a0+2
			sbc  #0
			sta  <a0+2
			
			sec									; decrement dest addr
			lda  <a1
			sbc  #2
			sta  <a1
			lda  <a1+2
			sbc  #0
			sta  <a1+2

*
* do it again?
*
			dex									; decrement index
			bpl  @loop							; done? no ->

*
* restore registers and exit
*
done		lda  #(f_a0+f_a1) << 2
			jsr  pop_regs
			
			clc
			rts
			
			ENDP 								; end of bt_mov_off_rt

 EJECT
******************************************************************
*
* 			Name:	bt_mov_rec_lt
*
*	 Description:	Move records left within a single node.
*
*  65816 Version:	Cary A. Farrier
*		 Created:	01/02/90
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*					D0.W = # of bytes to move
*					A0.L = pointer to source
*					A1.L = pointer to destination
*					
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined	
*					P = nvmxdizc
*					    ..000..0
*
*			Exit:	rts
*
*			Uses:	<temp1
*
*	   Called By:	bt_delete_rec
*					bt_insert_rec
*
*  Others Called:	none			
*					
******************************************************************
* Copyright Apple Computer, Inc. 1984-1990.  All rights reserved.
******************************************************************
*
* REVISION HISTORY:
*
* 01/02/90	CAF		Created.
*
******************************************************************
bt_mov_rec_lt	PROC

*
* if the requested transfer count is zero, then just return.  if not,
* then save the request count in <temp1 for checking during the copy
* loop.
*
			lda  |d0							; byte count > 0?
			beq  done							; no, done ->
			sta  <temp1

*
* setup to copy the bytes
*

			ldy  #0
			
			LONGA  OFF							; short a
			sep  #$20

*
* copy the bytes
*
@loop		lda  [<a0],y						; copy bytes
			sta  [<a1],y
			iny
			cpy  <temp1
			bcc  @loop
			
			LONGA  ON							; long a
			rep  #$20

*
* exit
*
done		clc
			rts									; return to caller ->
			
			ENDP 								; end of bt_mov_rec_lt

 EJECT
******************************************************************
*
* 			Name:	bt_mov_rec_rt
*
*	 Description:	move a number of bytes right within a node.
*
*  65816 Version:	Cary A. Farrier
*		 Created:	01/02/90
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*					D0.W = # of bytes to move
*					A0.L = pointer to source offset
*					A1.L = pointer to destination offset
*					
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined	
*					P = nvmxdizc
*					    ..000..0
*
*			Exit:	rts
*
*			Uses:	
*
*	   Called By:	bt_insert_rec
*
*  Others Called:	none
*					
******************************************************************
* Copyright Apple Computer, Inc. 1984-1990.  All rights reserved.
******************************************************************
*
* REVISION HISTORY:
*
* 01/02/90	CAF		Created.
*
******************************************************************
bt_mov_rec_rt	PROC
			
			ldy  |d0							; byte count > 0?
			beq  done							; no, done ->
			
			dey									; adjust index
			
			LONGA  OFF							; short a
			sep  #$20
			
@loop		lda  [<a0],y						; copy bytes
			sta  [<a1],y
			dey
			bpl  @loop
			
			LONGA  ON							; long a
			rep  #$20
			
done		clc
			rts									; return to caller ->
			
			ENDP 								; end of bt_mov_rec_rt

 EJECT
******************************************************************
*
* 			Name:	bt_clr_node
*
*	 Description:	clears a node to all zeros
*
*  65816 Version:	Cary A. Farrier
*		 Created:	12/08/89
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*					A0.L = ptr(node buffer)
*					A4.L = fcr pointer
*					
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined	
*					P = nvmxdizc
*					    ..000..0
*
*			Exit:	rts
*
*			Uses:	
*
*	   Called By:	bt_delete
*
*  Others Called:	none
*					
******************************************************************
* Copyright Apple Computer, Inc. 1984-1990.  All rights reserved.
******************************************************************
*
* REVISION HISTORY:
*
* 12/08/89	CAF		Created.
*
******************************************************************
bt_clr_node	PROC
			
			clc									; loop index = 
			ldy  #bcr_node_size					; node size
			lda  [<a4],y
			dec  a
			dec  a
			tay
			
			lda  #0
@loop		sta  [<a0],y
			dey
			dey
			bpl  @loop
			
			clc
			rts
			
			ENDP 								; end of bt_clr_node
			
 EJECT
******************************************************************
*
* 			Name:	bt_delete_rec
*
*	 Description:	Deletes a record from a BTree node.
*
*  65816 Version:	Cary A. Farrier
*		 Created:	12/08/89
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*					A1.L = ptr(node buffer)
*					A4.L = fcr pointer
*					D1.W = index of record to be deleted
*					
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined	
*					P = nvmxdizc
*					    ..000..0 
*
*			Exit:	rts
*
*			Uses:	
*
*	   Called By:	bt_delete
*					bt_rot_rec_lt
*
*  Others Called:	push_regs
*					pop_regs
*					bt_get_offset
*					bt_mov_rec_lt					
*					bt_mov_off_rt					
*					
******************************************************************
* Copyright Apple Computer, Inc. 1984-1990.  All rights reserved.
******************************************************************
*
* REVISION HISTORY:
*
* 12/08/89	CAF		Created.
* 02/14/90	CAF		Changed byte sex on buffer i/o operations.
* 06/26/90	CAF		Fixed a bug where I was calculating a wrong address
*					when deleting a record, thus stomping on memory
*					and corrupting the disk.
* 11/29/90  CAE		Bug fix - when calculating the source ptr for the
*					bt_mov_rec_lt call, the hi word of D3 was used
*					even though it was never setup.  This caused
*					garbage to be moved into the node.
*
******************************************************************
bt_delete_rec	PROC
			
			lda  #f_allRegs
			jsr  push_regs
			
*
* set up some common stuff
*
			lda  |d1							; d5 = delete index
			sta  |d5

*
* get the offset of the record to be deleted and save the results
*
			sta  |d0							; get delete offset
			jsr  bt_get_offset
			
			lda  <a0							; d6 = ptr(delete offset)
			sta  |d6
			lda  <a0+2
			sta  |d6+2
			
			lda  |d0							; d4 = delete offset
			sta  |d4

*
* calculate the pointer to the next offset by subtracting 2 from
* the pointer to the delete offset word
*
			sec									; a3 = ptr(next offset)
			lda  <a0
			sbc  #2
			sta  <a3
			lda  <a0+2
			sbc  #0
			sta  <a3+2

*
* get the offset to the next record
*
			lda  [<a3]							; d3 = next offset
			xba
			sta  |d3

*
* get the offset to the last record in the node and save the results.
*
			ldy  #nd_num_recs					; get last offset
			lda  [<a1],y
			xba
			sta  |d0
			jsr  bt_get_offset
			
			lda  <a0							; a2 = ptr(last offset)
			sta  <a2
			lda  <a0+2
			sta  <a2+2
			
			lda  |d0							; d2 = last offset
			sta  |d2
			
*
* prepare to compress the remaining records
*
			lda  <a1							; save ptr(node buffer)
			sta  <a5
			lda  <a1+2
			sta  <a5+2

*
* calculate the pointer to the records by adding the offset of the
* record to the node pointer
*
			clc									; source = ptr(next record)
			lda  |d3
			adc  <a5
			sta  <a0
			lda  #0
			adc  <a5+2
			sta  <a0+2
			
			clc									; dest = ptr(delete record)
			lda  |d4
			adc  <a5
			sta  <a1
			lda  #0								; d4 is a word value
			adc  <a5+2
			sta  <a1+2

*
* the number of bytes to move = the last offset - next offset
*
			sec
			lda  |d2							; count = last offset - next offset
			sbc  |d3
			sta  |d0

*
* move the records
*
			jsr  bt_mov_rec_lt					; move the records

*
* decrement the number of records in the node
*
			ldy  #nd_num_recs					; decrement number of records
			lda  [<a5],y
			xba
			dec  a
			xba
			sta  [<a5],y
			
*
* setup to adjust the offsets of the records which were moved
*
			lda  <a3							; source = ptr(next offset)
			sta  <a0
			lda  <a3+2
			sta  <a0+2
			
			lda  |d6							; dest = ptr(delete offset)
			sta  <a1
			lda  |d6+2
			sta  <a1+2

*
* the number of records of which to update the offsets = the last index - the
* delete index
*
			sec
			ldy  #nd_num_recs
			lda  [<a5],y						; count = last index - delete index
			xba
			sbc  |d5
			sta  |d0

*
* the amount by which to adjust each offset = the delete offset - the next offset
*
			sec
			lda  |d4							; delta = delete offset - next offset
			sbc  |d3
			sta  |d1	

*
* adjust the offsets
*
			jsr  bt_mov_off_rt					; adjust the offsets
			
*
* clean up and exit
*
done		clc
			php
			pha
			
			lda  #(f_allRegs) << 2
			jsr  pop_regs
			
			pla
			plp
			
			rts
			
			ENDP 								; end of bt_delete_rec
			
 EJECT
******************************************************************
*
* 			Name:	bt_get_lt_sib
*					bt_get_rt_sib
*
*	 Description:	Returns the left or right sibling node.
*
*  65816 Version:	Cary A. Farrier
*		 Created:	12/11/89
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*					A0.L = ptr(node buffer)
*					A4.L = fcr pointer
*					
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined	
*					P = nvmxdizc
*					    ..000..0 = no error
*							   1 = error
*
*					A1.L = pointer to node buffer containing sibling node
*					D1.L = node # of sibling node
*							0 = no sibling
*
*			Exit:	rts
*
*			Uses:	
*
*	   Called By:	bt_get_lt_sib
*						bt_insert
*						bt_delete
*					bt_get_rt_sib
*						bt_delete
*
*  Others Called:	push_regs
*					pop_regs
*					bt_get_node
*					
******************************************************************
* Copyright Apple Computer, Inc. 1984-1990.  All rights reserved.
******************************************************************
*
* REVISION HISTORY:
*
* 12/11/89	CAF		Created.
* 02/14/90	CAF		Changed byte sex on buffer i/o operations.
*
******************************************************************
bt_get_lt_sib	PROC
			
*
* setup call to get left sibling
*
			lda  #f_d0+f_d2+f_d3
			jsr  push_regs
			
			lda  #0								; indicate get lt sib
			bra  fetch_sib
	
*
* setup call to get right sibling
*
			EXPORT  bt_get_rt_sib
bt_get_rt_sib
			lda  #f_d0+f_d2+f_d3
			jsr  push_regs
			
			lda  #1								; indicate get rt sib

*
* determine which sibling to get
*
fetch_sib	cmp  #0								; getting left sibling?
			bne  get_rt							; no ->
			
			ldy  #nd_blink						; get left sibling node number
			lda  [<a0],y
			xba
			sta  |d2+2
			iny
			iny
			lda  [<a0],y
			xba
			sta  |d2
			
			bra  got_nd_nm
			
get_rt		ldy  #nd_flink						; get right sibling node number
			lda  [<a0],y
			xba
			sta  |d2+2
			iny
			iny
			lda  [<a0],y
			xba
			sta  |d2

*
* we have the correct node number.  Is it a valid node number?
*
got_nd_nm	lda  |d2							; do we have a sibling?
			ora  |d2+2
			bne  get_node						; yes ->
			
			stz  |d1							; indicate no sibling
			stz  |d1+2
			
			bra  done							; exit ->

*
* got the left/right node number, and it is a real node.
* now fetch it from disk
*
get_node	stz  |d1							; no get_block options
			stz  |d1+2
			
			jsr  bt_get_node					; get node from disk
			bcs  exit							; error ->
			
			lda  |d2							; return the node number
			sta  |d1
			lda  |d2+2
			sta  |d1+2
				
			lda  <a0							; return the buffer address
			sta  <a1
			lda  <a0+2
			sta  <a1+2
			
*
* clean up and exit
*
done		clc
exit		php
			pha
			
			lda  #(f_d0+f_d2+f_d3) << 2
			jsr  pop_regs
			
			pla
			plp
			
			rts
			
			ENDP 								; end of bt_get_lt_sib
			
 EJECT
******************************************************************
*
* 			Name:	bt_get_record
*
*	 Description:	Returns the record specified by the given
*					selection code.
*
*  65816 Version:	Cary A. Farrier
*		 Created:	12/11/89
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*					D1.W = selection code
*							-n = previous record
*							 0 = current record
*							+n = next record
*
*					A4.L = fcr pointer
*					
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined	
*					P = nvmxdizc
*					    ..000..0 = no error
*							   1 = error
*
*					A0.L = pointer to key
*					A1.L = pointer to data record
*					D1.W = size of data record
*					D2.L = btree hint
*
*			Exit:	rts
*
*			Uses:	<temp1
*
*	   Called By:	ct_get_dir_kid
*					et_get_rec
*
*  Others Called:	push_regs
*					pop_regs
*					bt_set_up
*					bt_get_node
*					bt_loc_rec
*					bt_rel_node
*					
******************************************************************
* Copyright Apple Computer, Inc. 1984-1990.  All rights reserved.
******************************************************************
*
* REVISION HISTORY:
*
* 12/11/89	CAF		Created.
* 10/18/90  CAE		Changed 'file_not_found' error to 'bt_not_found'.
*
******************************************************************
bt_get_record	PROC
			
			lda  #f_d0+f_d3+f_d4+f_d5+f_a2+f_a3+f_a4
			jsr  push_regs
			
			jsr  bt_set_up
			
			lda  |d1							; d5 = selection code
			sta  |d5
			lda  |d1+2
			sta  |d5+2
			
			stz  <a3							; indicate no node buffer
			stz  <a3+2
			
*
* set up starting position in btree
*
			ldy  #bcr_index_mark				; current index mark
			lda  [<a4],y
			sta  |d4
			
			ldy  #bcr_node_mark					; current node mark
			lda  [<a4],y
			sta  |d3
			sta  <temp1
			iny
			iny
			lda  [<a4],y
			sta  |d3+2
			ora  <temp1							; valid node number ->
			bne  @1
			
			lda  #bt_not_found					; result = 'not found'
			sec
			brl  exit							; exit ->
			
@1			clc									; adjust index
			lda  |d5
			adc  |d4
			sta  |d4
			
*
* locate the record relative to the starting position
*
locate		jsr  gr_get_node					; get the node (subroutine below)
			bcc  @1
			brl  exit							; error ->
			
@1			lda  |d4							; check index bounds
			bmi  @3								;   < 0, get previous node ->
			
			ldy  #nd_num_recs
			lda  [<a3],y
			xba
			sta  |d1
			
			lda  |d4
			cmp  |d1
			bcs  @11
			brl  got_it							;   < #recs, got it ->
			
@11			ldy  #nd_flink+2					; get next node number
			lda  [<a3],y
			xba
			sta  |d0
			dey
			dey
			lda  [<a3],y
			xba
			sta  |d0+2
			ora  |d0
			beq  @2								; don't have one ->
			
			lda  |d0							; d3 = next node number
			sta  |d3
			lda  |d0+2
			sta  |d3+2
			
			sec
			lda  |d4
			sbc  |d1
			sta  |d4							; adjust index
			bra  locate							; try next node ->
			
@2			lda  |d1							; new index mark = index of last record
			dec  a
			sta  |d4
			bra  @5								; use common exit ->
			
@3			ldy  #nd_blink+2					; get previous node number
			lda  [<a3],y
			xba
			sta  |d0
			dey
			dey
			lda  [<a3],y
			xba
			sta  |d0+2
			ora  |d0
			beq  @4								; don't have one ->
			
			lda  |d0							; d3 = previous node number
			sta  |d3
			lda  |d0+2
			sta  |d3+2
			
			jsr  gr_get_node					; get the node (subroutine below!!)
			bcs  exit							; error ->
			
			ldy  #nd_num_recs
			lda  [<a3],y
			xba
			clc
			adc  |d4
			sta  |d4							; adjust index
			brl  @1								; check bounds again ->
			
@4			stz  |d4							; new index mark = index of 1st record
			stz  |d4+2
			
@5			ldy  #bcr_node_mark					; new node mark
			lda  |d3
			sta  [<a4],y
			iny
			iny
			lda  |d3+2
			sta  [<a4],y
			
			ldy  #bcr_index_mark				; new index mark
			lda  |d4
			sta  [<a4],y
			
			lda  #bt_not_found					; set error code
			sec
			bra  exit							; exit ->
			
*
* found the record, set up pointers to key and data
*
got_it		lda  |d4							; record index
			sta  |d1
			
			lda  <a3							; ptr(node buffer)
			sta  <a1
			lda  <a3+2
			sta  <a1+2
			
			jsr  bt_loc_rec						; locate key and data record
			
			ldy  #bcr_node_mark					; new node mark
			lda  |d3
			sta  [<a4],y
			iny
			iny
			lda  |d3+2
			sta  [<a4],y
			
			ldy  #bcr_index_mark				; new index mark
			lda  |d4
			sta  [<a4],y
			
*
* release node buffer and exit
*
done		clc
exit		php
			pha
			
			lda  #f_d0+f_d1+f_a0+f_a1
			jsr  push_regs
			
			jsr  gr_rel_node
			
			lda  #(f_d0+f_d1+f_a0+f_a1) << 2
			jsr  pop_regs
			
			lda  |d3							; hint = node number
			sta  |d2
			lda  |d3+2
			sta  |d2+2
						
			lda  #(f_d0+f_d3+f_d4+f_d5+f_a2+f_a3+f_a4) << 2
			jsr  pop_regs
			
			pla
			plp
			
			rts
			
			ENDP 								; end of bt_get_record

*
* gr_get_node subroutine
* 	releases current node and gets the next node
*						 A3.L = ptr(current node buffer)
*						 D3.L = next node number
*
* ### called by bt_get_record only ###
*
gr_get_node	PROC								
			
			jsr  gr_rel_node					; release current node
			bcs  @1								; error ->
			
			stz  |d1							; no get_block options
			stz  |d1+2
			
			lda  |d3							; node number
			sta  |d2
			lda  |d3+2
			sta  |d2+2
			
			jsr  bt_get_node					; get the node
			bcs  @1								; error ->
			
			lda  <a0							; a3 = ptr(next node buffer)
			sta  <a3
			lda  <a0+2
			sta  <a3+2
@1			rts
			
			ENDP 								; end of gr_get_node
			
*
* gr_rel_node subroutine
*	releases current node buffer
*						 A3.L = ptr(current node buffer)
*
* ### called by bt_get_record only ###
*
gr_rel_node	PROC			
			
			stz  |d1							
			
			lda  <a3							; ptr(node_buffer)
			sta  <a0
			lda  <a3+2
			sta  <a0+2
			
			jsr  bt_rel_node					; release the node
			
			stz  <a3							; indicate no node buffer
			stz  <a3+2
			
			rts
			
			ENDP 								; end of gr_rel_node
			
 EJECT
******************************************************************
*
* 			Name:	bt_insert
*
*	 Description:	Attempts to insert a record into the btree.
*
*  65816 Version:	Cary A. Farrier
*		 Created:	12/18/89
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*					A0.L = address of key
*					A1.L = address of record data
*					D1.W = size of record
*					A4.L = fcr pointer
*					
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined	
*					P = nvmxdizc
*					    ..000..0 = no error
*							   1 = error
*
*					D2.L = btree hint
*
*			Exit:	rts
*
*			Uses:	<temp1
*
*	   Called By:	ct_create_rec
*					ct_move_rec
*					ct_rename_rec
*					et_extend_file
*
*  Others Called:	push_regs
*					pop_regs
*					bt_ext_bt_file
*					bt_set_up
*					bt_tree_search
*					bt_alloc_node
*					bt_init_node
*					bt_insert_rec
*					bt_get_lt_sib
*					bt_rotate_lt
*					bt_split_lt
*					bt_mark_node
*					bt_upd_d_rec
*					bt_loc_tpr
*					bt_get_node
*					bt_get_rec_addr
*					bt_upd_i_key
*					bt_rel_node
*					bt_build_i_rec
*					
******************************************************************
* Copyright Apple Computer, Inc. 1984-1990.  All rights reserved.
******************************************************************
*
* REVISION HISTORY:
*
* 12/18/89	CAF		Created.
* 02/14/90	CAF		Changed byte sex on buffer i/o operations.
* 09/10/90  CAE		Bug fix (from latest HFS sources) - added check
*					to see if tree depth > maximum.
* 10/17/90  CAE		Added error checking after calls to 'bt_insert_rec'.
* 10/18/90  CAE		Added error checking after calls to 'bt_rel_node'.
* 02/19/91  CAE		Bug fix - Y was set up incorrectly prior to @loop
*					so too many bytes were being copied which resulted
*					in ctree_tpt being overwritten.
*
******************************************************************
bt_insert	PROC
			
			lda  #f_d0+f_d1+f_d3+f_d4+f_d5+f_d6+f_d7+f_a0+f_a1+f_a2+f_a3+f_a4
			jsr  push_regs
			
			lda  <a1							; d7 = ptr(record)
			sta  |d7
			lda  <a1+2
			sta  |d7+2
			
			lda  |d1							; d6 = size of record
			sta  |d6
			
			lda  <a0							; d4 = ptr(key)
			sta  |d5
			lda  <a0+2
			sta  |d5+2
			
*
* make sure there is enough file space for a worst case split
*
			ldy  #bcr_depth						; required space (in nodes) = tree depth + 1
			lda  [<a4],y
			inc  a
			sta  |d3
			stz  |d3+2
			
			sec									; enough space?
			ldy  #bcr_free_nodes
			lda  [<a4],y
			sbc  |d3
			iny
			iny
			lda  [<a4],y
			sbc  |d3+2
			bcs  init							; yes ->
			
@1			jsr  bt_ext_bt_file					; extend the file
			bcc  @ok
			brl  exit1							; couldn't do it ->
			
@ok			sec									; enough space now?
			ldy  #bcr_free_nodes
			lda  [<a4],y
			sbc  |d3
			iny
			iny
			lda  [<a4],y
			sbc  |d3+2
			bcc  @1								; no ->
			
*
* initialize some things
*
init		jsr  bt_set_up
			
			lda  |d6							; save input record size in local below
			sta  |t_size
			stz  |t_size+2
			
			lda  |d7							; save input record ptr in local below
			sta  |t_ptr
			lda  |d7+2
			sta  |t_ptr+2
			
			stz  |d4							; indicate no parent node buffer
			stz  |d4+2
			
			stz  <a2							; ...no left node buffer
			stz  <a2+2
			
			stz  <a3							; ...no right node buffer
			stz  <a3+2
			
			ldy  #bcr_node_mark
			lda  #0
			sta  [<a4],y
			iny
			iny
			sta  [<a4],y
			
*
* build btree record consisting of input key with a junk data record
*
			ldy  #bcr_idx_rec_ptr				; dest = record buffer
			lda  [<a4],y						
			sta  <a1
			iny
			iny
			lda  [<a4],y
			sta  <a1+2

			lda  |d5							; source = input key
			sta  <a0
			lda  |d5+2
			sta  <a0+2
			
			lda  [<a0]							; get key length
			and  #$FF
			inc  a								;include length byte
			inc  a								;and adjust to word boundary
			lsr  a		
			asl  a
			tay									;@@@ added 2/19/91 CAE
			clc
			adc  |d6
			sta  |d6							;total size = key size + data size
			stz  |d6+2
;			tay									;@@@ removed 2/19/91 CAE

			LONGA  OFF
			sep  #$20
			bra  @loopstart
@loop		lda  [<a0],y						; copy key
			sta  [<a1],y
@loopstart	dey
			bpl  @loop
			LONGA  ON
			rep  #$20
			
			lda  |d6							; adjust total size to word boundary
			inc  a
			lsr  a
			asl  a
			sta  |d6
			
			lda  <a1							; d7 = ptr(btree record)
			sta  |d7
			lda  <a1+2
			sta  |d7+2
			
*
* search tree for key
*
search		jsr  bt_tree_search					; search for key
			tax									; save result code
			
			lda  <a1							; a3 = ptr(right node buffer)
			sta  <a3
			lda  <a1+2
			sta  <a3+2
			bcs  @1								; key not found or error ->
			
			lda  #bt_key_exists					; error, it already exists
			sec
			brl  exit							; ->
			
@1			txa									; restore result code
			cmp  #bt_not_found					; key not found?
			beq  @2								; yes ->
			
			sec
			brl  exit							; ->
			
@2			lda  |d2							; d3 = right node number
			sta  |d3
			lda  |d2+2
			sta  |d3+2
			
			lda  |d1							; d5 = insert index
			sta  |d5
			
*
* if tree is empty, add 1st leaf node
*
			ldy  #bcr_level						; tree empty?
			lda  [<a4],y
			bne  insert							; no ->
			
			jsr  bt_alloc_node					; allocate the node
			bcc  @ok1
			brl  exit							; error ->
			
@ok1		lda  |d1							; d3 = new node number
			sta  |d3
			lda  |d1+2
			sta  |d3+2
			
			jsr  bt_init_node					; get an initialized node
			bcc  @ok
			brl  exit							; error ->
			
@ok			lda  <a0							; a3 = ptr(new root node)
			sta  <a3
			lda  <a0+2
			sta  <a3+2
			
			LONGA  OFF
			sep  #$20
			
			ldy  #nd_type						; type = leaf node
			lda  #nd_leaf_type
			sta  [<a3],y
			
			ldy  #nd_level						; height = 1
			lda  #1
			sta  [<a3],y
			
			LONGA  ON
			rep  #$20
			
			ldy  #bcr_depth						; tree depth = 1
			lda  #1
			sta  [<a4],y
			
			ldy  #bcr_root_node					; new root node number
			lda  |d3
			sta  [<a4],y
			iny
			iny
			lda  |d3+2
			sta  [<a4],y
			
			ldy  #bcr_first_node				; 1st node number
			lda  |d3
			sta  [<a4],y
			iny
			iny
			lda  |d3+2
			sta  [<a4],y
			
			ldy  #bcr_last_node					; last node number
			lda  |d3
			sta  [<a4],y
			iny
			iny
			lda  |d3+2
			sta  [<a4],y
			
			ldy  #bcr_level						; current level = 1
			lda  #1
			sta  [<a4],y
			
*
* try a simple insert first
*
insert		lda  |d7							; a0 = ptr(record)
			sta  <a0
			lda  |d7+2
			sta  <a0+2
			
			lda  |d6							; d0 = record size
			sta  |d0
			
			lda  <a3							; a1 = ptr(node buffer)
			sta  <a1
			lda  <a3+2
			sta  <a1+2
			
			lda  |d5							; d1 = insert index
			sta  |d1
			
			jsr  bt_insert_rec					; try to insert it
			bcs  rotate							; didn't make it ->
			
			lda  |d5							; insert a new 1st record?
			beq  @ok
			brl  ins_done						; no, insert complete ->
			
@ok			ldy  #bcr_flags						; indicate key record update required
			lda  [<a4],y
			ora  #bcr_keyupd_bit
			sta  [<a4],y
			brl  ins_done						; insert complete ->
			
*
* insert didn't work, try rotation into left sibling node
*
rotate		lda  <a3							; a0 = ptr(node buffer)
			sta  <a0
			lda  <a3+2
			sta  <a0+2
			
			jsr  bt_get_lt_sib					; get left sibling node
			bcc  @ok
			brl  exit							; error ->
			
@ok			lda  |d1							; is there a left sibling?
			ora  |d1+2
			beq  split							; no ->
			
			lda  |d1							; d2 = left node #
			sta  |d2
			lda  |d1+2
			sta  |d2+2
			
			lda  <a1							; a2 = ptr(left node buffer)
			sta  <a2
			lda  <a1+2
			sta  <a2+2
			
			lda  |d7							; a0 = ptr(record)
			sta  <a0
			lda  |d7+2
			sta  <a0+2
			
			lda  |d6							; d0 = record size
			sta  |d0
			
			lda  |d5							; d1 = insert index
			sta  |d1
			
			jsr  bt_rotate_lt					; try rotating left
			bcc  split1							; ok ->
			
*
* rotate didn't work, got to split
*
split		lda  |d7							; a0 = ptr(record)
			sta  <a0
			lda  |d7+2
			sta  <a0+2
			
			lda  |d6							; d0 = record size
			sta  |d0
			
			lda  |d5							; d1 = insert index
			sta  |d1
			
			jsr  bt_split_lt					; split left
			bcc  @1								; ok ->
			
			lda  #volume_full					; volume full error 
			sec
			brl  exit							; exit ->
			
@1			ldy  #bcr_flags						; indicate new index record required
			lda  [<a4],y
			ora  #bcr_newptr_bit
			sta  [<a4],y
			
split1		ldy  #bcr_flags						; indicate key update required
			lda  [<a4],y
			ora  #bcr_keyupd_bit
			sta  [<a4],y
			
			lda  |d1							; d5 = new record index
			sta  |d5
			
			lda  <a2							; mark the left node dirty
			sta  <a0	
			lda  <a2+2
			sta  <a0+2
			jsr  bt_mark_node
			
*
* completed the record insert, clean up
*
ins_done	lda  <a3							; mark the right node dirty
			sta  <a0
			lda  <a3+2
			sta  <a0+2
			jsr  bt_mark_node
			
			ldy  #nd_type						; leaf level?
			lda  [<a1],y
			and  #$FF
			cmp  #nd_leaf_type
			bne  chk_done						; no ->
			
			lda  |t_size						; get input record size
			sta  |d0
			lda  |t_size+2
			sta  |d0+2
			
			lda  |t_ptr							; get input record ptr
			sta  <a0
			lda  |t_ptr+2
			sta  <a0+2
			
			jsr  bt_upd_d_rec					; replace the junk data record
			
			clc									; increment leaf record count
			ldy  #bcr_num_recs				
			lda  [<a4],y
			adc  #1
			sta  [<a4],y
			iny
			iny
			lda  [<a4],y
			adc  #0
			sta  [<a4],y
			
			ldy  #bcr_index_mark				; save index marker
			lda  |d5
			sta  [<a4],y
			
			lda  |d3							; assume right node number
			sta  |d0
			lda  |d3+2
			sta  |d0+2
			
			lda  <a3							; is new record in right node?
			cmp  <a1
			bne  @1								; no ->
			lda  <a3+2
			cmp  <a1+2
			beq  @2								; yes ->
			
@1			lda  |d2							; no, use left node number
			sta  |d0
			lda  |d2+2
			sta  |d0+2
			
@2			ldy  #bcr_node_mark					; save node marker
			lda  |d0
			sta  [<a4],y
			iny
			iny
			lda  |d0+2
			sta  [<a4],y
			
*
* check if all done
*
chk_done	ldy  #bcr_flags						; key update required?
			lda  [<a4],y
			and  #bcr_keyupd_bit
			bne  nxt_lev						; yes, move to next level ->
			
			lda  [<a4],y
			and  #bcr_newptr_bit				; new index record required?
			bne  nxt_lev
			brl  done							; no, all done ->
			
*
* move to next level
*
nxt_lev		sec									; up to next level
			ldy  #bcr_level
			lda  [<a4],y
			sbc  #1
			sta  [<a4],y
			
			bne  @ok1
			brl  root							; up to root level ->
			
@ok1		ldy  #bcr_level						; locate tpr for this level
			lda  [<a4],y
			sta  |d0
			jsr  bt_loc_tpr
			
			ldy  #tpr_rec_index					; d5 = parent record index
			lda  [<a0],y
			sta  |d5
			
			ldy  #tpr_node_num					; d3 = parent node number
			lda  [<a0],y
			sta  |d3
			iny
			iny
			lda  [<a0],y
			sta  |d3+2
			
			lda  |d2							; save d2
			pha
			lda  |d2+2
			pha
			
			stz  |d1							; get parent node
			stz  |d1+2
			
			lda  |d3
			sta  |d2
			lda  |d3+2
			sta  |d2+2
			
			jsr  bt_get_node					; get node
			tay									; save error code
			
			pla									; restore d2
			sta  |d2+2
			pla
			sta  |d2
			
			tya									; restore error code
			bcc  @ok
			brl  exit							; error ->
			
@ok			lda  <a0							; d4 = ptr(parent node buffer)
			sta  |d4
			lda  <a0+2
			sta  |d4+2
			
*
* update parent key
*
upd_key		ldy  #bcr_flags						; key update required?
			lda  [<a4],y
			and  #bcr_keyupd_bit
			beq  @1								; no ->
			
			lda  |d5							; locate parent index record
			sta  |d0
			
			lda  |d4
			sta  <a1
			lda  |d4+2
			sta  <a1+2
			
			jsr  bt_get_rec_addr
			
			lda  <a0							; save it
			pha
			lda  <a0+2
			pha
			
			lda  <a3							; locate 1st key in right node
			sta  <a1
			lda  <a3+2
			sta  <a1+2
			
			stz  |d0
			
			jsr  bt_get_rec_addr
			
			pla									; restore ptr(parent index record)
			sta  <a1+2
			pla
			sta  <a1
			
			jsr  bt_upd_i_key					; update the key
			
			lda  |d4							; mark the parent node dirty
			sta  <a0
			lda  |d4+2
			sta  <a0+2
			
			jsr  bt_mark_node
			
			lda  |d5							; update to 1st key in node?
			beq  @1								; yes, leave flag set ->
			
			ldy  #bcr_flags
			lda  [<a4],y
			sta  <temp1
			lda  #bcr_keyupd_bit				; don't need to update next level
			trb  <temp1
			lda  <temp1
			sta  [<a4],y
			
@1			stz  |d1							; release right node buffer
			
			lda  <a3
			sta  <a0
			lda  <a3+2
			sta  <a0+2
			
			jsr  bt_rel_node
			bcc  @0
			brl  exit							; error ->
@0
			lda  |d4							; parent is new right node
			sta  <a3
			lda  |d4+2
			sta  <a3+2
			
			stz  |d4							; indicate no parent node buffer
			stz  |d4+2
			
*
* build new index record pointing at new left node
*
new_rec		ldy  #bcr_flags						; new index record required?
			lda  [<a4],y
			and  #bcr_newptr_bit
			beq  @1								; no ->
			
			lda  <a2							; left node
			sta  <a1
			lda  <a2+2
			sta  <a1+2
			
			lda  |d2							; left node number
			sta  |d0
			lda  |d2+2
			sta  |d0+2
			
			jsr  bt_build_i_rec					; build index record
			
@1			stz  |d1							; release left node buffer
			
			lda  <a2
			sta  <a0
			lda  <a2+2
			sta  <a0+2
			
			jsr  bt_rel_node
			bcc  @0
			brl  exit							; error ->
@0			
			stz  <a2							; indicate no left node
			stz  <a2+2
			
*
* set up for insert of new index record
*
			ldy  #bcr_flags						; new index record required?
			lda  [<a4],y
			and  #bcr_newptr_bit
			bne  @ok
			brl  chk_done						; no, check if done ->
			
@ok			ldy  #bcr_idx_rec_ptr
			lda  [<a4],y						; locate new index record
			sta  <a0
			sta  |d7
			iny
			iny
			lda  [<a4],y
			sta  <a0+2
			sta  |d7+2
			
			ldy  #bcr_max_key					; get max key size
			lda  [<a4],y
			inc  a
			lsr  a
			asl  a
			
			clc									; max key length + 4 = size of index record
			adc  #4
			sta  |d0
			sta  |d6							; d6 = size of index record
			
			ldy  #bcr_flags						; clear new index rec flag
			lda  [<a4],y
			sta  <temp1
			lda  #bcr_newptr_bit
			trb  <temp1
			lda  <temp1
			sta  [<a4],y
			
			brl  insert							; insert new index record ->
			
*
* we updated the root, must add a level if it was split
*
root		ldy  #bcr_flags						; was root node split?
			lda  [<a4],y
			and  #bcr_newptr_bit
			bne  @ok2							; yes ->
			brl  done							; no, all done ->
			
*
* set up a new root index node
*
@ok2		ldy  #bcr_depth						; check tree depth
			lda  [<a4],y
			cmp	 #max_btree_depth				; is tree depth = maximum?
			bne  @depth_ok						; no - so continue
			lda  #bt_depth_err					; yes - so return an error
			sec
			brl  exit

@depth_ok	jsr  bt_alloc_node					; allocate the node ->
			bcc  @ok1
			brl  exit							; error ->
			
@ok1		lda  |d1							; d3 = new root node number
			sta  |d3
			lda  |d1+2
			sta  |d3+2
			
			jsr  bt_init_node					; get an initialized node
			bcc  @ok
			brl  exit							; error ->
			
@ok			lda  <a0							; d4 = ptr(new root node buffer)
			sta  |d4
			lda  <a0+2
			sta  |d4+2
			
			sep  #$20							; type = index node
			LONGA  OFF
			ldy  #nd_type
			lda  #nd_indx_type
			sta  [<a0],y

			ldy  #bcr_depth						; node height = previous height + 1
			lda  [<a4],y
			inc  a
			ldy  #nd_level
			sta  [<a0],y
			
			rep  #$20
			LONGA  ON
			
*
* add index record for left node
*
			lda  <a2							; build index record for left node
			sta  <a1
			lda  <a2+2
			sta  <a1+2
			
			lda  |d2
			sta  |d0
			lda  |d2+2
			sta  |d0+2
			
			jsr  bt_build_i_rec
			
			ldy  #bcr_max_key					; get max key size
			lda  [<a4],y
			inc  a
			lsr  a
			asl  a
			
			clc									; index record size = max key len + 4
			adc  #4
			sta  |d0
			
			ldy  #bcr_idx_rec_ptr				; locate new index record
			lda  [<a4],y
			sta  <a0
			iny
			iny
			lda  [<a4],y
			sta  <a0+2
			
			lda  |d4							; a1 = ptr(root node buffer)
			sta  <a1
			lda  |d4+2
			sta  <a1+2
			
			stz  |d1							; insert index = 0
			stz  |d1+2
			
			jsr  bt_insert_rec					; insert it
			bcc  @insert_ok
			brl  exit
@insert_ok

*
* add index record for right node
*
			lda  #1								; get node number of previous root
			sta  |d0
			
			jsr  bt_loc_tpr
			
			ldy  #tpr_node_num
			lda  [<a0],y
			sta  |d0
			iny
			iny
			lda  [<a0],y
			sta  |d0+2
			
			lda  <a3							; a1 = ptr(node buffer)
			sta  <a1
			lda  <a3+2
			sta  <a1+2
			
			jsr  bt_build_i_rec					; build index record
			
			ldy  #bcr_max_key					; get max key size
			lda  [<a4],y
			inc  a
			lsr  a
			asl  a
			
			clc									; index record size = max key len + 4
			adc  #4
			sta  |d0
			
			ldy  #bcr_idx_rec_ptr				; locate new index record
			lda  [<a4],y
			sta  <a0
			iny
			iny
			lda  [<a4],y
			sta  <a0+2
			
			lda  |d4							; a1 = ptr(root node buffer)
			sta  <a1
			lda  |d4+2
			sta  <a1+2
			
			lda  #1
			sta  |d1							; insert index = 1
			stz  |d1+2
			
			jsr  bt_insert_rec					; insert it
			bcs  exit
			
			lda  |d4							; mark the new root node dirty
			sta  <a0
			lda  |d4+2
			sta  <a0+2
			
			jsr  bt_mark_node
			
*
* update bcr
*
			ldy  #bcr_depth						; add a level
			lda  [<a4],y
			inc  a
			sta  [<a4],y
			
			ldy  #bcr_root_node					; new root node number
			lda  |d3
			sta  [<a4],y
			iny
			iny
			lda  |d3+2
			sta  [<a4],y
			
*
* clean up and exit
*
done		ldy  #bcr_flags						; mark bcr dirty
			lda  [<a4],y
			ora  #bcr_dirty_bit
			sta  [<a4],y
			
			clc									; no error
			
exit		php
			pha
			
			lda  <a2							; a0 = ptr(left node buffer)
			sta  <a0
			lda  <a2+2
			sta  <a0+2
			
			stz  |d1							
			
			jsr  bt_rel_node
			
			lda  <a3							; a0 = ptr(right node buffer)
			sta  <a0
			lda  <a3+2
			sta  <a0+2
			
			jsr  bt_rel_node
			
			lda  |d4							; a0 = ptr(parent node buffer)
			sta  <a0
			lda  |d4+2
			sta  <a0+2
			
			jsr  bt_rel_node
			
			ldy  #bcr_node_mark					; return hint (node number)
			lda  [<a4],y
			sta  |d2
			iny
			iny
			lda  [<a4],y
			sta  |d2+2
			
			lda  #0								; invalidate current markers
			sta  [<a4],y
			dey
			dey
			sta  [<a4],y
			
			pla
			plp

exit1		php
			pha
			
			lda  #(f_d0+f_d1+f_d3+f_d4+f_d5+	\
				f_d6+f_d7+f_a0+f_a1+f_a2+		\
				f_a3+f_a4) << 2
			jsr  pop_regs
			
			pla
			plp
			
			rts

t_size		dc.l	0
t_ptr		dc.l	0

			ENDP 								; end of bt_insert

 EJECT
******************************************************************
*
* 			Name:	bt_search
*
*	 Description:	Searches the btree for a specified key.
*
*  65816 Version:	Cary A. Farrier
*		 Created:	12/21/89
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*					A0.L = pointer to key
*					D2.L = btree hint
*					A4.L = fcr pointer
*					
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined	
*					P = nvmxdizc
*					    ..000..0 = no error
*							   1 = error
*
*					A0.L = ptr to key
*					A1.L = pointer to data record
*					D1.L = size of data record
*					D2.L = btree hint
*
*			Exit:	rts
*
*			Uses:	
*
*	   Called By:	ct_loc_rec
*					et_delete_file
*					et_trunc_file
*					et_get_rec
*					et_update
*
*  Others Called:	push_regs
*					pop_regs
*					bt_set_up
*					bt_get_node
*					bt_search_node
*					bt_rel_node
*					bt_tree_search
*					bt_loc_rec
*					
******************************************************************
* Copyright Apple Computer, Inc. 1984-1990.  All rights reserved.
******************************************************************
*
* REVISION HISTORY:
*
* 12/21/89	CAF		Created.
* 02/07/90	CAF		Changed byte sex on i/o operations.
* 09/10/90  CAE		Bug fix (from latest HFS sources) - changed the
*					branches after the calls to bt_get_node and
*					bt_rel_node to branch to 'exit' instead of 'done'.
*
******************************************************************
bt_search	PROC
			
			lda  #f_d0+f_d3+f_d4+f_d5+f_d6+f_d7+f_a2+f_a3+f_a4
			jsr  push_regs
			
*
* initialize some things
*
			jsr  bt_set_up
			
			lda  <a0							; a3 = ptr(key)
			sta  <a3
			lda  <a0+2
			sta  <a3+2
			
			stz  <a2							; indicate no node buffer
			stz  <a2+2
			
			
* 
* go directly to the leaf node if hint is given
*		
			lda  |d2							; hint given?
			ora  |d2+2
			beq  search							; no, do tree search ->
			
			stz  |d1							; get target node
			stz  |d1+2
			
			jsr  bt_get_node
			bcc  @ok
			brl  exit							; error ->
			
@ok			lda  <a0							; a2 = ptr(node buffer)
			sta  <a2
			lda  <a0+2
			sta  <a2+2
			
			ldy  #nd_type						; leaf node?
			lda  [<a0],y
			and  #$FF
			cmp  #nd_leaf_type
			bne  @1								; no ->
			
			ldy  #nd_num_recs					; node empty?
			lda  [<a0],y						; no need to xba, since checking for zero...
			beq  @1								; yes ->
			
			lda  <a3							; search node for key
			sta  <a0
			lda  <a3+2
			sta  <a0+2
			
			lda  <a2
			sta  <a1
			lda  <a2+2
			sta  <a1+2
			
			jsr  bt_search_node
			bcc  search1						; found it ->
			
@1			lda  <a2							; release node buffer
			sta  <a0
			lda  <a2+2
			sta  <a0+2
			
			stz  |d1							
			
			jsr  bt_rel_node
			bcs  exit							; error ->
			
*
* search tree for key
*
search		lda  <a3							; ptr(key)
			sta  <a0
			lda  <a3+2
			sta  <a0+2
		
			jsr  bt_tree_search
			tax									; save error code
			
			lda  <a1							; a2 = ptr(node buffer)
			sta  <a2
			lda  <a1+2
			sta  <a2+2
			
			txa									; restore error code
			bcc  search1						; key was found ->

			cmp  #bt_not_found					; key not found?
			beq  search1
			sec
			bra  exit							; no, must be i/o error ->
			
search1		php									; save search result
			pha

			lda  |d1							; d5 = record index
			sta  |d5
						
*
* update current markers in bcr
*
			ldy  #bcr_node_mark					; update current node mark
			lda  |d2
			sta  [<a4],y
			iny
			iny
			lda  |d2+2
			sta  [<a4],y
			
			ldy  #bcr_index_mark				; upate record index mark
			lda  |d5
			sta  [<a4],y
			
*
* setup pointers to key and data record
*
			lda  1,s							; record found?
			bne  done2							; no ->
			
			lda  |d5							; record index
			sta  |d0
			
			lda  <a2							; ptr(node buffer)
			sta  <a1
			lda  <a2+2
			sta  <a1+2
			
			jsr  bt_loc_rec
			bra  done2
			
*
* release node buffer and exit
*
done		php
			pha
			
done2		lda  #f_d1+f_d2+f_a0+f_a1			; save return stuff
			jsr  push_regs
			
			lda  <a2							; ptr(node buffer)
			sta  <a0
			lda  <a2+2
			sta  <a0+2
			
			stz  |d1							
			
			jsr  bt_rel_node
			
			lda  #(f_d1+f_d2+f_a0+f_a1) << 2
			jsr  pop_regs
			
			pla
			plp
			
exit		php
			pha
			
			lda  #(f_d0+f_d3+f_d4+f_d5+f_d6+	\
				f_d7+f_a2+f_a3+f_a4) << 2
			jsr  pop_regs
			
			pla
			plp
			
			rts
			
			ENDP 								; end of bt_search
			
 EJECT
******************************************************************
*
* 			Name:	bt_update
*
*	 Description:	Writes a dirty node out to disk.
*
*  65816 Version:	Cary A. Farrier
*		 Created:	12/21/89
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*					D2.L = btree hint (node number of dirty node)
*					A4.L = fcr pointer
*					
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined	
*					P = nvmxdizc
*					    ..000..0 = no error
*							   1 = error
*
*			Exit:	rts
*
*			Uses:	
*
*	   Called By:	ct_create_rec
*					ct_delete_rec
*					ct_move_rec
*					ct_rename_rec
*					et_update
*
*  Others Called:	push_regs
*					pop_regs
*					bt_get_node
*					bt_rel_node
*					
******************************************************************
* Copyright Apple Computer, Inc. 1984-1990.  All rights reserved.
******************************************************************
*
* REVISION HISTORY:
*
* 12/21/89	CAF		Created.
* 11/30/90  CAE		Now called with fcr pointer in A4 instead of A2.
*					Removed code which copied fcr pointer from A2 to A4.
*
******************************************************************
bt_update	PROC
			
			lda  #f_d1+f_a0
			jsr  push_regs
			
			lda	 #1								; node already exists
			sta	 |d1

			jsr  bt_get_node					; get the node
			bcs  exit							; error ->
						
			lda  #node_dirty_bit				; node is dirty
			sta  |d1

			jsr  bt_rel_node					; release the node

exit		php
			pha
			
			lda  #(f_d1+f_a0) << 2
			jsr  pop_regs
			
			pla
			plp
			
			rts
			
			ENDP 								; end of bt_update

 EJECT
******************************************************************
*
* 			Name:	bt_set_up
*
*	 Description:	Initializes variables for btree usage.
*
*  65816 Version:	Cary A. Farrier
*		 Created:	12/21/89
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*					A4.L = fcr pointer
*					
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined	
*					P = nvmxdizc
*					    ..000..0 
*
*			Exit:	rts
*
*			Uses:	<temp1
*
*	   Called By:	bt_delete
*					bt_get_record
*					bt_insert
*					bt_search
*
*  Others Called:	none
*					
******************************************************************
* Copyright Apple Computer, Inc. 1984-1990.  All rights reserved.
******************************************************************
*
* REVISION HISTORY:
*
* 12/21/89	CAF		Created.
*
******************************************************************
bt_set_up	PROC
			
			ldy  #bcr_flags						; clear status flags
			lda  [<a4],y
			sta  <temp1
			
			lda  #bcr_newptr_bit
			trb  <temp1
			
			lda  #bcr_delptr_bit
			trb  <temp1
			
			lda  #bcr_keyupd_bit
			trb  <temp1
			
			lda  <temp1
			sta  [<a4],y
			
			clc
			rts
			
			ENDP 								; end of bt_set_up
			
 EJECT
******************************************************************
*
* 			Name:	bt_upd_d_rec
*
*	 Description:	Updates the data in a btree record.
*
*  65816 Version:	Cary A. Farrier
*		 Created:	01/02/90
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*					D0.W = size of data record
*					A0.L = ptr (data record)
*					A1.L = ptr (node buffer) containing btree record
*					D1.W = index of btree record
*					A4.L = fcr pointer
*					
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined	
*					P = nvmxdizc
*					    ..000..0
*
*			Exit:	rts
*
*			Uses:	
*
*	   Called By:	bt_insert
*
*  Others Called:	push_regs
*					pop_regs
*					bt_loc_rec
*					
******************************************************************
* Copyright Apple Computer, Inc. 1984-1990.  All rights reserved.
******************************************************************
*
* REVISION HISTORY:
*
* 01/02/90	CAF		Created.
*
******************************************************************
bt_upd_d_rec	PROC
			
			lda  #f_d0+f_d1+f_a0+f_a1+f_a2
			jsr  push_regs
			
			lda  <a0
			sta  <a2
			lda  <a0+2
			sta  <a2+2
			
			jsr  bt_loc_rec						; locate data position in btree record
			
			ldy  |d0							; setup index
			dey
			
			lda  <a2							; ptr = 0?
			ora  <a2+2
			
			php									;  save status
			lda  #0								;  assume clear record
			plp									;  restore status
			
			beq  @2								; yes, clear the record ->
						
			LONGA  OFF							; short a
			sep  #$20
			
@loop1		lda  [<a2],y						; copy the data record
			sta  [<a1],y
			
			dey									; decrement index
			bpl  @loop1							; done? no ->
			
			LONGA  ON							; long a
			rep  #$20
			
			bra  done							; done ->
			
@loop2		sta  [<a1],y						; clear the record
@2			dey									; decrement index
			bpl  @loop2							; done? no ->
			
done		lda  #(f_d0+f_d1+f_a0+f_a1+f_a2) << 2	; restore regs
			jsr  pop_regs
			
			clc
			rts									; return to caller ->
			
			ENDP 								; end of bt_upd_d_rec

 EJECT
******************************************************************
*
* 			Name:	bt_search_node
*
*	 Description:	Searches a BTree node for a specified key.  A
*					binary search method is used.
*
*  65816 Version:	Cary A. Farrier
*		 Created:	01/16/90
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*					A0.L = ptr (search key)
*					A1.L = ptr (node buffer)
*					A4.L = fcr pointer
*					
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined	
*					P = nvmxdizc
*					    ..000..0 = no error
*							   1 = error
*
*					D1.W = index
*							record index if found
*							insert index if not found
*
*			Exit:	rts
*
*			Uses:	
*
*	   Called By:	bt_tree_search
*					bt_search
*
*  Others Called:	push_regs
*					pop_regs
*					bt_get_rec_addr
*					(d5,x) [ key compare routine ]
*					
******************************************************************
* Copyright Apple Computer, Inc. 1984-1990.  All rights reserved.
******************************************************************
*
* REVISION HISTORY:
*
* 01/16/90	CAF		Created.
* 02/07/90	CAF		Changed byte sex on i/o operations.
* 10/18/90  CAE		Changed 'file_not_found' error to 'bt_not_found'.
*
******************************************************************
bt_search_node	PROC
			
			lda  #f_d2+f_d3+f_d4+f_d5+f_d6+f_d7+f_aRegs
			jsr  push_regs

*
* setup some common stuff
*
			lda  <a0							; a3 = ptr(search key)
			sta  <a3
			lda  <a0+2
			sta  <a3+2
			
			lda  <a1							; a2 = ptr(node buffer)
			sta  <a2
			lda  <a1+2
			sta  <a2+2
			
			ldy  #bcr_key_cmp_ptr				; d5 = ptr(key compare routine)
			lda  [<a4],y
			sta  |d5
			iny
			iny
			lda  [<a4],y
			sta  |d5+2
			
*
* search node for key using a binary search
*
			stz  |d2							; lower bound = 0
			
			ldy  #nd_num_recs					; upper bound = num recs - 1
			lda  [<a2],y
			xba
			dec  a
			sta  |d3
		
			lda  |d2							; while lower bound <= upper bound
			cmp  |d3
			beq  srch_loop
			bcs  srch_exit
			
srch_loop	clc								; index = (upper+lower) / 2
			lda  |d2
			adc  |d3
			lsr  a
			sta  |d4						; d4 = new index
			
			lda  |d4						; get ptr(trial key)
			sta  |d0
			
			lda  <a2
			sta  <a1
			lda  <a2+2
			sta  <a1+2
			
			jsr  bt_get_rec_addr
			
			lda  <a0						; a1 = ptr(trial key)
			sta  <a1
			lda  <a0+2
			sta  <a1+2
			
			lda  <a3						; a0 = ptr(search key)
			sta  <a0
			lda  <a3+2
			sta  <a0+2
			
			ldx  #0							; compare the keys
			jsr  (d5,x)
			
			beq  srch_eq					; search key = trial key ->
			bcs  srch_gt					; search key > trial key ->
			
srch_lt		lda  |d4						; search key < trial key
			dec  a							; upper = index - 1
			bmi  srch_exit					; did we go negative? yes ->
			sta  |d3
			
			cmp  |d2						; upper >= lower?
			bcs  srch_loop					; yes ->
			
			bra  srch_exit

srch_eq		clc								; result = found
			lda  #0
			bra  done
			
srch_gt		lda  |d4						; lower = index + 1
			inc  a
			sta  |d2
			
			lda  |d2						; lower <= upper ?
			cmp  |d3
			bcc  srch_loop					; yes ->
			beq  srch_loop
			
srch_exit	lda  |d2						; index = lower
			sta  |d4
			
			lda  #bt_not_found				; result = 'not found'
			sec
			
*
* clean up and exit
*
done		php	
			pha
			
			lda  |d4
			sta  |d1

			lda  #(f_d2+f_d3+f_d4+f_d5+f_d6+f_d7+f_aRegs) << 2
			jsr  pop_regs
			
			pla
			plp
			
			rts									; return to caller ->
			
			ENDP 								; end of bt_search_node

 EJECT
******************************************************************
*
* 			Name:	bt_upd_i_key
*
*	 Description:	Updates the key portion of an index record.  Variable
*					length source keys are paded with $00 to obtain a 
*					fixed length index key.  Index keys are always
*					set to the maximum size specified in the bcr.
*
*  65816 Version:	Cary A. Farrier
*		 Created:	01/16/90
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*					A0.L = ptr (source key)
*					A1.L = ptr (index record key)
*					A4.L = fcr pointer
*					
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined	
*					P = nvmxdizc
*					    ..000..0 
*
*					A1.L = pointer to updated index record key
*
*			Exit:	rts
*
*			Uses:	
*
*	   Called By:	bt_delete
*					bt_build_i_rec
*					bt_insert
*
*  Others Called:	push_regs
*					pop_regs			
*					
******************************************************************
* Copyright Apple Computer, Inc. 1984-1990.  All rights reserved.
******************************************************************
*
* REVISION HISTORY:
*
* 01/16/90	CAF		Created.
*
******************************************************************
bt_upd_i_key	PROC
			
			lda  #f_d0+f_d1+f_a0+f_a1+f_a2
			jsr  push_regs

*
* get the maximum key length
*
			ldy  #bcr_max_key					; get max key length
			lda  [<a4],y
			sta  |d1

*
* force the key length of the index record key to the maximum value,
* and get the actual value of the source key length.
*
			sep  #$20
			LONGA  OFF
			sta  [<a1]							; stuff max key length
			lda  [<a0]							; get source key length
			LONGA  ON
			rep  #$20
			and  #$FF
			sta  |d0

*
* update the pointers past the key lengths.
*
			clc									; bump past key length
			lda  <a1
			adc  #1
			sta  <a1
			lda  <a1+2
			adc  #0
			sta  <a1+2
			
			clc									; bump past key length
			lda  <a0
			adc  #1
			sta  <a0
			lda  <a0+2
			adc  #0
			sta  <a0+2
			
*
* subtract the source key length from the max key length to determine
* how much, if any, padding is required.  If the source key length is
* less than the maximum key length, then go to the copy setup.
*
			sec									; max key length - source key length
			lda  |d1
			sbc  |d0
			sta  |d1
			bcs  setup_copy						; length ok, decrement before copy ->
			
*
* the source key length was greater than the maximum key length, so 
* force the length to the maximum allowable length.
*
			clc									; length = max length
			lda  |d1
			adc  |d0
			sta  |d0
			
*
* setup the index register and go into short mode.  decrement the index
* register to account for the key length byte that was forced and skipped.
*
setup_copy	ldy  |d0
			tyx									; save in case we need padding
			dey
			
			sep  #$20
			LONGA  OFF

*
* copy the key
*
do_copy		lda  [<a0],y
			sta  [<a1],y
			dey
			bpl  do_copy
			
			rep  #$20
			LONGA  ON

*
* check to see if I need to pad the key out
*
			lda  |d1							; need any null padding?
			beq  done							; no ->

*
* I need to pad the key, so set the y index to where the padding will 
* begin (the size of the source key), and set the x register to the
* number of bytes to pad (the difference between the max key size and the
* source key size).
*
			txy
			ldx  |d1
			lda  #0
			
			sep  #$20
			LONGA  OFF

*
* add the null padding.
*
clr_loop	sta  [<a1],y						; add null padding
			iny
			dex
			bpl  clr_loop
			
			rep  #$20
			LONGA  ON

* 
* clean up and exit
*
done		lda  #(f_d0+f_d1+f_a0+f_a1+f_a2) << 2
			jsr  pop_regs
			
			clc
			rts									; return ->
			
			ENDP 								; end of bt_upd_i_key

			eject
******************************************************************************
*
*		 Name:	bt_init_node
*
* Description:	Finds an unused node buffer and sets up the node information.
*				Zeros out the node.
*
*  Written by:	Cheryl Ewy
*
*		Entry:	jsr
*
*		 Exit:	rts
*
*		Input:	A = undefined
*				X = undefined
*				Y = undefined
*				P = nvmxdizc
*			 	    ..000...
*				B = K
*
*				A4.L - ptr to tree fcr
*				D1.L - node # of new node
*
*      Output:	A = error code if carry set
*				X = undefined
*				Y = undefined
*				P = nvmxdizc
*				    ..000..1 = error
*						   0 = no error
*				B = K
*
*				A0.L - ptr to node buffer
*
*		 Uses:	all registers
*
*   Called by:	bt_insert
*				ext_bt_file
*				split_lt
*
*		Calls:	find_node_buf
*
* 		Copyright Apple Computer, Inc. 1990  All rights reserved.
******************************************************************************
bt_init_node	PROC

			lda  #f_dRegs+f_a1+f_a2+f_a3+f_a4+f_a5
			jsr  push_regs
*
* Find an unused node buffer and setup the node information.
*
			lda	 d1						;D2.L <- node #
			sta	 d2
			lda	 d1+2
			sta	 d2+2
			jsr	 find_node_buf
			bcs	 exit
*
* Zero out the node.
*
			ldy	 #node_storage
			lda	 #0
loop		sta	 [a0],y
			iny
			iny
			cpy	 #node_size
			bne	 loop

*
* init the free space offset
*
			ldy  #bcr_node_size			; get node size
			lda  [<a4],y
			dec  a						; subtract 2
			dec  a					
			tay							; use as index 
			lda  #len_nd				; length of node header info
			xba
			sta  [<a0],y				; store it
			
*
* Indicate no error and exit.
*
			clc
			
exit		php
			pha
			
			lda  #(f_dRegs+f_a1+f_a2+f_a3+f_a4+f_a5) << 2
			jsr  pop_regs

			pla
			plp
			
			rts
 
			ENDP 					 	; end of bt_init_node
		
			eject
******************************************************************************
*
*		 Name:	bt_get_node
*
* Description:	If D1.W = 0, this routine will find an unused node buffer, set 
*				up the node information, read the node in from disk, verify
*				that the node is OK, and return a ptr to the node buffer.
*				If D1.W = 1, the node already exists in a node buffer so 
*				this routine will search the node buffers for the desired node
*				and return a ptr to the correct node buffer.
*
*  Written by:	Cheryl Ewy
*
*		Entry:	jsr
*
*		 Exit:	rts
*
*		Input:	A = undefined
*				X = undefined
*				Y = undefined
*				P = nvmxdizc
*				    ..000...
*				B = K
*
*				A4.L - ptr to tree fcr
*				D2.L - node # of desired node
*				D1.W - 0 = read node in from disk 
*					   1 = the node is already in a buffer
*
*      Output:	A = error code if carry set
*				X = undefined
*				Y = undefined
*				P = nvmxdizc
*				    ..000..1 = error
*						   0 = no error
*				B = K
*
*				A0.L - ptr to node buffer
*
*		 Uses:	all registers
*
*   Called by:	create
*				bt_tree_search
*				bt_delete
*				bt_get_map
*				bt_chk_node
*				bt_get_lt_sib
*				bt_get_record
*				bt_insert
*				bt_search
*				bt_update
*
*		Calls:	find_node_buf
*				node_buf_read
*				check_node
*
*		 Copyright Apple Computer, Inc. 1990  All rights reserved.
******************************************************************************
bt_get_node		PROC

			lda  #f_dRegs+f_a1+f_a2+f_a3+f_a4+f_a5
			jsr  push_regs

*
* If D1.W = 1 then the node is already in a buffer. 
*
			lda	 d1
			bne	 node_exists
*
* Find an unused node buffer and setup the node information.
*
			jsr	 find_node_buf
			bcs	 exit
*
* Read in the node.
*
			jsr	 node_buf_read
			bcs	 error
*
* Verify that the node is OK.
*
			lda  <a0							;A1 <- ptr to node buffer
			sta  <a1
			lda  <a0+2
			sta  <a1+2
			
			jsr	 bt_chk_node
			bcs	 error
*
* Exit.
*
exit		php
			pha
		
			lda  #(f_dRegs+f_a1+f_a2+f_a3+f_a4+f_a5) << 2
			jsr  pop_regs

			pla
			plp
			
			rts

*
* Either we got an error reading in the node or the node is bad.
* We need to save the error code, release the node buffer, and return the error.
*
error		pha									;save the error code
			stz	 d1								;indicate node is clean
			jsr	 bt_rel_node					;release the node buffer
			pla									;retrieve the error code
			sec									;return the error
			bra  exit

;-------------------------------------------------------------------------------
*
* The node already exists in one of the node buffers so
* search the node buffers looking for the desired node.
*
node_exists	lda  #node_buf1						;set up ptr to the first node buffer
			sta  <a0
			lda  #^node_buf1
			sta  <a0+2
			jsr	 check_buf						;check the buffer
			bcc	 exit							;we found the desired node
			
			lda	 #node_buf2						;set up ptr to the second node buffer
			sta	 <a0
			jsr	 check_buf						;check the buffer
			bcc	 exit							;we found the desired node

			lda	 #node_buf3						;set up ptr to the third node buffer
			sta	 <a0
			jsr	 check_buf						;check the buffer
			bcc	 exit							;we found the desired node							

			lda	 #node_buf4						;set up ptr to the fourth node buffer
			sta	 <a0
			jsr	 check_buf						;check the buffer
			bcc	 exit							;we found the desired node							
*
* We couldn't find the desired node.  This is an 'internal error' situation.
*
			lda	 #bt_lost_node					;get error code
			sec									;indicate error			
			bra  exit	


*
* Check_buf routine.
* Check the node buffer pointed to by A0.L to see if it contains the desired node.
*
check_buf	ldy  #node_num						
			lda  [<a0],y						;get lo word of node # from buffer
			cmp	 d2								;match desired node #?
			bne	 no_match						;no
			iny
			iny
			lda  [<a0],y						;get hi word of node # from buffer
			cmp  d2+2							;match desired node #?
			bne  no_match						;no
			ldy	 #node_ref
			lda  [<a0],y						;get tree's fcr ref_num from buffer
			cmp	 [<a4]							;match desired fcr ref_num?
			bne  no_match						;no
			clc									;yes - so indicate match
			rts									;and return
			
no_match	sec									;indicate no match
			rts									;and return

			ENDP 								; end of bt_get_node
		
			eject
******************************************************************************
*
*		 Name:	bt_rel_node
*
* Description:	Verifies the node and writes it out to disk if it's dirty.
*				Marks the node buffer as unused.
*
*  Written by:	Cheryl Ewy
*
*		Entry:	jsr
*
*		 Exit:	rts
*
*		Input:	A = undefined
*				X = undefined
*				Y = undefined
*				P = nvmxdizc
*				    ..000...
*				B = K
*
*				A0.L - ptr to node buffer
*				A4.L - ptr to tree fcr
*				D1.W - node_dirty_bit or 0
*
*      Output:	A = error code if carry set
*				X = undefined
*				Y = undefined
*				P = nvmxdizc
*				    ..000..1 = error
*						   0 = no error
*				B = K
*
*		 Uses:	all registers
*
*   Called by:	bt_delete
*				bt_insert
*				bt_get_record
*				bt_search
*				bt_update
*				bt_rel_map
*				bt_split_lt
*				bt_tree_search
*
*		Calls:	bt_chk_node
*				node_buf_write
*
* 		Copyright Apple Computer, Inc. 1990  All rights reserved.
******************************************************************************
* REVISION HISTORY
*
* 03/30/90	CAF		removed xba from where the code was checking the node
*					flags to see if it was dirty.
*
******************************************************************************
bt_rel_node	PROC
			
			lda  #f_allRegs
			jsr  push_regs
			
*
* If the node buffer ptr = 0, then exit.
*
			lda	 <a0
			ora	 <a0+2
			beq	 done
*
* If node_dirty_bit is set in D1, then write the node out to disk.
*
			lda	 d1
			bne	 its_dirty		
*
* If the node is marked dirty, then write it out to disk.
*
			ldy	 #node_flags		
			lda	 [a0],y					;get node_flags word
			and	 #node_dirty_bit		;is the node dirty?
			beq	 release_it				;no
*
* Verify that the node is OK.
*
its_dirty	lda	 <a0					;A1.L <- ptr to node buffer
			sta	 <a1
			lda	 <a0+2
			sta	 <a1+2
			jsr	 bt_chk_node
			bcs	 big_trouble
*
* Write the node out to disk.
*
			jsr	 node_buf_write
			bcs	 exit
*
* Mark the node buffer as unused.
*
release_it	ldy	 #node_flags
			lda	 #0
			sta	 [a0],y			
*
* Indicate no error and exit.
*
done		clc
exit		php
			pha
			
			lda  #(f_allRegs) << 2
			jsr  pop_regs

			pla
			plp
			
			rts

*
* The node in the node buffer is bad.  This should never happen.
*
big_trouble	lda	 #bt_bad_node_buf		;get error code
			bra  exit					
		
			ENDP 						; end of bt_rel_node

			eject
******************************************************************************
*
*	  	 Name:	bt_mark_node
*
* Description:	Marks node buffer as dirty.
*
*  Written by:	Cheryl Ewy
*
*		Entry:	jsr
*
*		 Exit:	rts
*
*		Input:	A = undefined
*				X = undefined
*				Y = undefined
*				P = nvmxdizc
*				    ..000...
*				B = K
*
*				A0.L - ptr to node buffer
*
*      Output:	A = undefined
*				X = undefined
*				Y = undefined
*				P = nvmxdizc
*				    ..000..0 
*				B = K
*
*		 Uses:	all registers
*
*   Called by:	create
*				bt_delete
*				bt_insert
*				ext_bt_file
*				alloc_node
*				free_node
*
*		Calls:	nothing
*
* 		Copyright Apple Computer, Inc. 1990  All rights reserved.
******************************************************************************
bt_mark_node PROC
			
*
* Set the dirty bit in the node_flags word.
*
			ldy	 #node_flags		
			lda	 [a0],y					;get the node_flags word
			ora	 #node_dirty_bit		;set the dirty bit
			sta	 [a0],y					;and store the word
*
* Indicate no error and exit.
*
			clc
			rts
		
			ENDP 						; end of bt_mark_node
		
			eject
******************************************************************************
*
*		 Name:	find_node_buf
*
* Description:	Finds an unused node buffer and sets up the node information.
*
*  Written by:	Cheryl Ewy
*
*		Entry:	jsr
*
*		 Exit:	rts
*
*		Input:	A = undefined
*				X = undefined
*				Y = undefined
*				P = nvmxdizc
*				    ..000...
*				B = K
*
*				A4.L - ptr to tree fcr
*				D2.L - node # of desired node
*
*      Output:	A = error code if carry set
*				X = undefined
*				Y = undefined
*				P = nvmxdizc
*				    ..000..1 = error
*						   0 = no error
*				B = K
*
*				A0.L - ptr to node buffer
*
*		 Uses:	all registers
*
*   Called by:	bt_get_node
*				bt_init_node
*
*		Calls:	et_log_2_phys
*
*		 Copyright Apple Computer, Inc. 1990  All rights reserved.
******************************************************************************
find_node_buf PROC

			lda  #f_dRegs+f_a1+f_a2+f_a3+f_a4+f_a5
			jsr  push_regs
			
*
* Look for an unused node buffer.
*
			ldy  #node_flags					;get offset to flags word
			
			lda  #node_buf1						;set up ptr to the first node buffer
			sta  <a0
			lda  #^node_buf1
			sta  <a0+2
			lda  [<a0],y						;is the node buffer unused?
			beq  found_buf						;yes
			
			lda	 #node_buf2						;set up ptr to the second node buffer
			sta	 <a0
			lda	 [<a0],y						;is the node buffer unused?
			beq	 found_buf						;yes
			
			lda	 #node_buf3						;set up ptr to the third node buffer
			sta	 <a0
			lda	 [<a0],y						;is the node buffer unused?
			beq	 found_buf						;yes
			
			lda	 #node_buf4						;set up ptr to the fourth node buffer
			sta	 <a0
			lda	 [<a0],y						;is the node buffer unused?
			bne	 no_buf							;no
found_buf		
*
* Convert the node # into a file mark.
* Then use the file mark to find the physical block # that the node starts at.
*
			lda	 <a4							;A3.L <- ptr to tree fcr
			sta	 <a3
			lda	 <a4+2
			sta	 <a3+2
			
			lda	 |d2							;D5.L <- node #
			sta	 |d5
			lda	 |d2+2
			sta	 |d5+2
			
			ldx	 #9								;# of bits to shift		
loop		asl	 |d5 							;multiply node # by 512 to convert
			rol	 |d5+2							;it into a file mark
			dex
			bne	 loop
			
			jsr	 et_log_2_phys					;convert file mark to phys block # (in D3)
			bcs  exit
*
* Mark the node buffer as in use.
*
			ldy	 #node_flags
			lda	 [<a0],y
			ora	 #node_used_bit
			sta	 [<a0],y
*
* Store the node # in the node buffer.
*
			ldy	 #node_num
			lda	 |d2
			sta	 [<a0],y
			iny
			iny
			lda	 |d2+2
			sta	 [<a0],y
*
* Store the node's disk location in the node buffer.
*
			ldy	 #node_loc
			lda	 |d3
			sta	 [<a0],y
			iny
			iny
			lda	 |d3+2
			sta	 [<a0],y
*
* Store the tree's fcr ref_num in the node buffer.
* (This is so we can determine which tree the node belongs to - see bt_get_node.)
*
			ldy	 #node_ref
			lda	 [<a4]							;get ref_num out of the tree fcr
			sta	 [<a0],y						;and store in node buffer
*
* Indicate no error and exit.
*
			clc
exit		php
			pha
			
			lda  #(f_dRegs+f_a1+f_a2+f_a3+f_a4+f_a5) << 2
			jsr  pop_regs

			pla
			plp
			
			rts
 
*
* We couldn't find an unused node buffer.  This is an 'internal error' situation.
*
no_buf		lda	 #bt_no_node_buffers			;get error code
			sec									;indicate error			
			bra  exit	

			ENDP 								; end of find_node_buf
		
 EJECT
******************************************************************
*
* 			Name:	bt_rotate_lt
*
*	 Description:	Inserts a record into a btree node via rotation
*					of records into the left sibling node.
*
*  65816 Version:	Cary A. Farrier
*		 Created:	01/20/90
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*					
*					A0.L = pointer to record
*					D0.W = size of record
*					A2.L = pointer to left node buffer
*					A3.L = pointer to right node buffer
*					D1.W = index of insert point (in right node)
*					A4.L = fcr pointer
*
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined	
*					P = nvmxdizc
*					    ..000..0 = no error
*							   1 = error
*
*					A1.L = pointer(node buffer) containing new record
*					D1.W = index of new record
*
*			Exit:	rts
*
*			Uses:	<temp1
*
*	   Called By:	bt_split_lt
*					bt_insert
*
*  Others Called:	push_regs
*					pop_regs
*					bt_get_node_siz
*					bt_get_rec_addr
*					bt_insert_rec
*					bt_rot_rec_lt
*					sys_death
*					
******************************************************************
* Copyright Apple Computer, Inc. 1984-1990.  All rights reserved.
******************************************************************
*
* REVISION HISTORY:
*
* 01/20/90	CAF		Created.
* 02/14/90	CAF		Changed byte sex on buffer i/o operations.
*
******************************************************************
bt_rotate_lt	PROC
			
			lda  #f_d2+f_d3+f_d4+f_d5+f_d6+f_d7+f_a2+f_a3+f_a4+f_a5
			jsr  push_regs
			
*
* setup some common stuff
*
			lda  <a0							; a5 = ptr(new record)
			sta  <a5
			lda  <a0+2
			sta  <a5+2
			
			lda  |d0							; d5 = size of new record
			sta  |d5
			
*
* calculate split point
*
			lda  <a2							; point to left node
			sta  <a1
			lda  <a2+2
			sta  <a1+2
			
			jsr  bt_get_node_siz				; get the size
			
			lda  |d0							; d2 = left node size
			sta  |d2			
			
			lda  <a3							; point to right node
			sta  <a1
			lda  <a3+2
			sta  <a1+2
			
			jsr  bt_get_node_siz				; get the size
			
			clc									; right size + left size
			lda  |d0							;  + (new record size + 2)
			adc  |d2							;  = total data size.
			adc  |d5							; total data size / 2 = split point
			inc  a								; d6 = split point
			inc  a
			lsr  a
			sta  |d0
			sta  |d6
			
*
* simulate left rotation to determine best fit
*
			ldy  #nd_num_recs					; d3 = init virt indx = #recs in lt node
			lda  [<a2],y
			xba
			sta  |d3
			
			clc									; d4 = virt insert index = rt insert index + #recs in lt node
			lda  |d1
			adc  |d3
			sta  |d4
			
			lda  #-1							; no current fit or previous fit
			sta  |d7
			sta  |d7+2
			
RLFitLoop	lda  |d4							; at insert point?
			cmp  |d3
			bne  @2								; no ->
			
			clc									; include new record in lt size
			lda  |d5
			adc  |d2
			sta  |d2
			bra  @4								; ->
			
@2			ldy  #nd_num_recs					; convert virt indx to a right node indx
			lda  [<a2],y
			xba
			sta  <temp1
			sec
			lda  |d3
			sbc  <temp1
			sta  |d0
			
			lda  |d3
			cmp  |d4
			bcc  @3
			beq  @3
			
			dec  |d0
			
@3			jsr  bt_get_rec_addr				; get record size
			clc
			lda  |d0
			adc  |d2
			sta  |d2							; include record in lt size
			
@4			inc  |d2							; include offset also
			inc  |d2
			
*
* check for a fit after simulated rotation of each record
*
RLChkFit	ldy  #bcr_node_size					; max node size - len(nd) - 2 = max data size
			lda  [<a4],y
			sec
			sbc  #(len_nd+2)
			sta  |d1
			
			lda  |d2							; left node fit?
			cmp  |d1							
			bcc  @1								; yes ->
			beq  @1
			
			lda  |d7							; have previous fit?
			tax
			lda  |d7+2
			sta  |d7
			txa
			sta  |d7+2
			
			lda  |d7
			bmi  @t3
			brl  RLRotate						; yes, use it ->
			
@t3			lda  #bt_wont_fit					; result = 'wont fit'.  
			sec
			brl  exit							; exit ->
			
@1			lda  |d6							; split point * 2 - lt size = rt size
			asl  a									
			sec
			sbc  |d2
			sta  |d0
			
			lda  |d0							; right node fit?
			cmp  |d1
			beq  @t1							; yes ->
			bcs  RlCkSplit						; no ->
			
@t1			lda  |d3							; save virtual index for this fit
			sta  |d7
			
*
* select best fit if we have reached split point
*
RLCkSplit	lda  |d2							; reached a split point?
			cmp  |d6
			bcc  @2								; no ->
			beq  @1								; right on the money ->
			
			lda  |d7							; past split point, try previous fit first
			ldx  |d7+2
			sta  |d7+2
			stx  |d7
			
@1			lda  |d7							; have a fit?
			bpl  RLRotate						; yes, use it ->
			
			lda  |d7							; no, get previous fit
			ldx  |d7+2
			sta  |d7+2
			stx  |d7
						
			lda  |d7							; have one?
			bpl  RLRotate						; yes, use it ->
			
@2			lda  |d7							; previous fit = current fit
			ldx  |d7+2
			sta  |d7+2
			stx  |d7

			lda  #-1							; no current fit
			sta  |d7
			
			inc  |d3							; bump index to next record
			
			ldy  #nd_num_recs					; max virt indx = #recs in lt node + #recs in rt node
			lda  [<a2],y
			xba
			sta  |d1
			lda  [<a3],y
			xba
			clc
			adc  |d1
			sta  |d1
			
			lda  |d3							; any more records?
			cmp  |d1
			beq  @t1
			bcs  @t2
@t1			brl  RLFitLoop 						; yes, keep trying ->
			
@t2			lda  #bt_wont_fit					; result = 'wont fit'.  
			sec
			brl  exit							; exit ->
			
*
* we have a fit, do actual rotation
*
RLRotate	ldy  #nd_num_recs					; init virt indx = 1st rec in rt node
			lda  [<a2],y
			xba
			sta  |d3
			
@1			lda  |d4							; at insert point?
			cmp  |d3
			bne  @2								; no ->
			
			lda  <a2							; ptr(lt node)
			sta  <a1
			lda  <a2+2
			sta  <a1+2
			
			lda  <a5							; ptr(new record)
			sta  <a0
			lda  <a5+2
			sta  <a0+2
			
			lda  |d5							; size of new record
			sta  |d0
			
			ldy  #nd_num_recs					; insert index = end of node
			lda  [<a1],y
			xba
			sta  |d1
			
			jsr  bt_insert_rec					; insert new record in left node
			bcs  uh_oh							; error ->
			
			lda  <a1							; save ptr(node buffer and index for new record
			sta  <a5
			lda  <a1+2
			sta  <a5+2
			
			lda  |d1
			sta  |d5
			
			bra  @3								; ->
			
@2			lda  <a2							; ptr(left node)
			sta  <a0
			lda  <a2+2
			sta  <a0+2
			
			lda  <a3							; ptr(rt node)
			sta  <a1
			lda  <a3+2
			sta  <a1+2
			
			jsr  bt_rot_rec_lt					; rotate 1st record in right node
			bcs  uh_oh							; error ->
			
@3			lda  |d3							; reached split index?
			cmp  |d7
			beq  RLCheckRt						; yes ->
			inc  |d3							; bump record index
			bra  @1								; rotate another one ->
			
*
* check if new record goes in right node
*
RLCheckRt	lda  |d4							; insert index > split index?
			cmp  |d7
			bcc  done							; no, not in right node ->
			beq  done
			
			lda  <a3							; ptr(rt node)
			sta  <a1
			lda  <a3+2
			sta  <a1+2
			
			lda  <a5							; ptr(new record)
			sta  <a0
			lda  <a5+2
			sta  <a0+2
			
			lda  |d5							; size of new record
			sta  |d0
			
			lda  |d4							; insert index = virt ins. index - splt indx - 1
			sec
			sbc  |d7
			dec  a
			sta  |d1
			
			jsr  bt_insert_rec					; insert new record in right node
			bcs  uh_oh							; error ->
			
			bra  exit							; all done ->
			
*
* fatal error
*
uh_oh		lda  #bt_bad_rotate
			jsl  sys_death			
			
			
*
* clean up and exit
*
done		lda  <a5							; ptr(node buffer)
			sta  <a1
			lda  <a5+2
			sta  <a1+2
			
			lda  |d5							; index
			sta  |d1
			
			clc
			
exit		php
			pha
			
			lda  #(f_d2+f_d3+f_d4+f_d5+f_d6+	\
				f_d7+f_a2+f_a3+f_a4+f_a5) << 2
			jsr  pop_regs
			
			pla
			plp
			
			rts
			
			ENDP 								; end of bt_rotate_lt
			
 EJECT
******************************************************************
*
* 			Name:	bt_split_lt
*
*	 Description:	Inserts a new record into a btree node by first inserting
*					an empty left node and then using bt_rotate_lt to insert
*					the new record.
*
*  65816 Version:	Cary A. Farrier
*		 Created:	01/20/90
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*					
*					A0.L = pointer to record
*					D0.W = size of record
*					A2.L = pointer to left node buffer
*					A3.L = pointer to right node buffer
*					D1.W = index of insert point (in right node)
*					A4.L = fcr pointer
*
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined	
*					P = nvmxdizc
*					    ..000..0 = no error
*							   1 = error
*
*					A1.L = pointer(node buffer) containing new record
*					D1.W = index of new record
*					A2.L = ptr(new left node)
*					D2.L = node number of new left node
*
*			Exit:	rts
*
*			Uses:	<temp1
*
*	   Called By:	bt_insert
*
*  Others Called:	push_regs
*					pop_regs
*					bt_loc_tpr
*					bt_alloc_node
*					bt_rel_node
*					bt_init_node
*					bt_rotate_lt
*					
******************************************************************
* Copyright Apple Computer, Inc. 1984-1990.  All rights reserved.
******************************************************************
*
* REVISION HISTORY:
*
* 01/20/90	CAF		Created.
* 02/14/90	CAF		Changed byte sex on buffer i/o operations.
*
******************************************************************
bt_split_lt	PROC			
			
			lda  #f_d3+f_d4+f_d5+f_d6+f_d7+f_a3
			jsr  push_regs
			
*
* setup some common stuff
*
			lda  <a0							; d7 = ptr(record)
			sta  |d7	
			lda  <a0+2
			sta  |d7+2
			
			lda  |d0							; d6 = size of record
			sta  |d6	
			
			lda  |d1							; d5 = insert index
			sta  |d5
			
			ldy  #bcr_level						; locate tpr
			lda  [<a4],y
			sta  |d0
			
			jsr  bt_loc_tpr
			
			ldy  #tpr_node_num					; d4 = right node number
			lda  [<a0],y
			sta  |d4
			iny
			iny
			lda  [<a0],y
			sta  |d4+2
			
*
* allocate a new disk node
*
			jsr  bt_alloc_node					; alloc the node
			bcc  @t2
			brl  exit							; error ->
			
@t2			lda  |d1							; d3 = new node #
			sta  |d3
			lda  |d1+2
			sta  |d3+2
			
*
* update forward link in original left node and release it
*
			lda  <a2							; have a left node?
			sta  |d0
			lda  <a2+2
			sta  |d0+2
			ora  |d0
			beq  SLInit							; no ->
			
			ldy  #nd_flink						; left forward link = new node number
			lda  |d3+2
			xba
			sta  [<a2],y
			iny
			iny
			lda  |d3
			xba
			sta  [<a2],y
			
			lda  <a2							; ptr(lt node buffer)
			sta  <a0
			lda  <a2+2
			sta  <a0+2
			
			lda  #node_dirty_bit				; node is dirty
			sta  |d1
			
			jsr  bt_rel_node					; release it
			bcc  SLInit
			brl  exit							; error ->
			
*
* initialize a new left node
*
SLInit		lda  |d3							; new node number
			sta  |d1
			lda  |d3+2
			sta  |d1+2
			
			jsr  bt_init_node					; get an initialized node
			bcc  @t1
			brl  exit							; error ->
			
@t1			lda  <a0							; a2 = ptr(new left node)
			sta  <a2
			lda  <a0+2
			sta  <a2+2
			
			LONGA  OFF
			sep  #$20
			
			ldy  #nd_type						; set to same type as right node
			lda  [<a3],y
			sta  [<a2],y
			
			rep  #$20
			LONGA  ON
			
			ldy  #nd_blink						; update links
			lda  [<a3],y
			sta  [<a2],y
			lda  |d3+2
			xba
			sta  [<a3],y
			iny
			iny
			lda  [<a3],y
			sta  [<a2],y
			lda  |d3
			xba
			sta  [<a3],y
			
			ldy  #nd_flink
			lda  |d4+2
			xba
			sta  [<a2],y
			iny
			iny
			lda  |d4
			xba
			sta  [<a2],y
			
			ldy  #bcr_depth						; node height = tree depth + 1 - current level
			lda  [<a4],y
			inc  a
			tax
			ldy  #bcr_level
			lda  [<a4],y
			sta  <temp1
			sec
			txa
			sbc  <temp1
			sta  |d0
			
			LONGA  OFF
			sep  #$20
			
			ldy  #nd_level
			sta  [<a2],y
			
			LONGA  ON
			rep  #$20
			
			ldy  #nd_type						; adding a new leaf node?
			lda  [<a2],y
			and  #$FF
			cmp  #nd_leaf_type
			bne  SLRotate						; no ->
			
			ldy  #nd_blink						; new 1st node?
			lda  [<a2],y
			sta  <temp1
			iny
			iny
			lda  [<a2],y
			ora  <temp1
			bne  SLRotate						; no ->
			
			ldy  #bcr_first_node				; yes, update first node pointer
			lda  |d3
			sta  [<a4],y
			iny
			iny
			lda  |d3+2
			sta  [<a4],y
			
*
* insert new record via rotate left
*
SLRotate	lda  |d7							; ptr(new record)
			sta  <a0
			lda  |d7+2
			sta  <a0+2
			
			lda  |d6							; size of new record
			sta  |d0
			
			lda  |d5							; insert index
			sta  |d1
			
			jsr  bt_rotate_lt					; insert it
			bcs  exit							; error ->
			
*
* clean up and exit
*
done		lda  |d3
			sta  |d2
			lda  |d3+2
			sta  |d2+2
			
			clc
			
exit		php
			pha
			
			lda  #(f_d3+f_d4+f_d5+f_d6+f_d7+f_a3) << 2
			jsr  pop_regs
			
			pla
			plp
			
			rts
			
			ENDP 								; end of bt_split_lt
			
 EJECT
******************************************************************
*
* 			Name:	bt_tree_search
*
*	 Description:	Searches btree for a specified key, setting
*					up the tree path table to reflect the
*					search path.
*
*  65816 Version:	Cary A. Farrier
*		 Created:	01/20/90
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*					
*					A0.L = pointer to search key
*					A4.L = fcr pointer
*
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined	
*					P = nvmxdizc
*					    ..000..0 = no error
*							   1 = error
*
*					A1.L = pointer(node buffer)
*					D1.W = index
*							record index if found
*							insert index if not found
*					D2.L = node number of target leaf node
*
*			Exit:	rts
*
*			Uses:	
*
*	   Called By:	bt_delete
*					bt_insert
*					bt_search
*
*  Others Called:	push_regs
*					pop_regs
*					bt_get_node
*					bt_search_node
*					bt_loc_tpr
*					bt_loc_rec
*					bt_rel_node
*					
******************************************************************
* Copyright Apple Computer, Inc. 1984-1990.  All rights reserved.
******************************************************************
*
* REVISION HISTORY:
*
* 01/20/90	CAF		Created.
* 02/07/90	CAF		Changed byte sex on i/o operations.
* 10/18/90  CAE		Added error checking after call to 'bt_rel_node'.
* 10/18/90  CAE		Changed 'file_not_found' error to 'bt_not_found'.
*
******************************************************************
bt_tree_search	PROC
			
			lda  #f_d3+f_d4+f_d5+f_d6+f_d7+f_a2+f_a3
			jsr  push_regs
			
*
* set up some common stuff
*
			lda  <a0							; d7 = ptr(search key)
			sta  |d7
			lda  <a0+2
			sta  |d7+2
			
			ldy  #bcr_depth						; tree empty?
			lda  [<a4],y
			cmp  #1
			bcs  @1								; no ->
			
*
* the tree is empty, so return 'not found'
*
			stz  <a1							; no node buffer
			stz  <a1+2
			
			stz  |d1							; index = 0
			stz  |d1+2
			
			stz  |d2							; node # = 0
			stz  |d2+2
			
			ldy  #bcr_level						; current level = 0
			lda  #0
			sta  [<a4],y
			
			lda  #bt_not_found					; result = 'not found'
			sec
			brl  exit							; exit ->
			
*
* the tree is not empty
*				
@1			lda  #1								; start at level 1
			sta  |d6
			stz  |d6+2
			
			ldy  #bcr_root_node					; root node #
			lda  [<a4],y
			sta  |d3
			iny
			iny
			lda  [<a4],y
			sta  |d3+2
			
*
* get the node and search for key
*
TSLoop		stz  |d1							; no getblock options
			stz  |d1+2
			
			lda  |d3							; node #
			sta  |d2
			lda  |d3+2
			sta  |d2+2
			
			jsr  bt_get_node					; get the node
			bcc  @t1
			brl  exit							; error ->
			
@t1			lda  <a0							; a1 = ptr(node buffer)
			sta  <a1
			lda  <a0+2
			sta  <a1+2
			
			lda  |d7							; ptr(search key)
			sta  <a0
			lda  |d7+2
			sta  <a0+2
			
			jsr  bt_search_node					; search node for key
			sta  |d5							; save search result
			
			lda  |d1							; d4 = index
			sta  |d4
			
*
* update tpr info
*
			lda  |d6							; locate tpr for this level
			sta  |d0
			
			jsr  bt_loc_tpr
			
			lda  <a0							; a3 = ptr(tpr)
			sta  <a3
			lda  <a0+2
			sta  <a3+2
			
			ldy  #tpr_node_num					; set node number
			lda  |d3
			sta  [<a3],y
			iny
			iny
			lda  |d3+2
			sta  [<a3],y
			
			lda  |d4							; assume parent index = insert index
			sta  |d2
			
			lda  |d5							; key found?
			beq  @1								; yes ->
			
			dec  |d2							; parent index = insert index - 1
			bpl  @1								; parent index >= 0? ok->
			
			lda  |d4							; use insert index
			sta  |d2
			
@1			ldy  #tpr_rec_index					; set record index
			lda  |d2
			sta  [<a3],y
			
			ldy  #bcr_depth						; at leaf level?
			lda  [<a4],y
			cmp  |d6
			beq  done							; yes ->
			
*
* move to next level down
*
			lda  |d2							; parent index
			sta  |d1
			
			lda  <a1							; save ptr to node buffer
			pha
			lda  <a1+2
			pha
			
			jsr  bt_loc_rec						; locate child record
			
			lda  [<a1]							; d3 = child node #
			xba
			sta  |d3+2
			sta  |last_node+2
			ldy  #2
			lda  [<a1],y
			xba
			sta  |d3
			sta  |last_node
			
			pla									; restore ptr(node buffer)
			sta  <a1+2
			pla
			sta  <a1
			
			stz  |d1							
			
			lda  <a1							; ptr(node buffer)
			sta  <a0
			lda  <a1+2
			sta  <a0+2
			
			jsr  bt_rel_node					; release it
			bcs  exit							; error ->
			
			inc  |d6							; bump level count
			brl  TSLoop							; continue the search ->
			
			
*
* clean up and exit
*
done		ldy  #bcr_level						; current level
			lda  |d6
			sta  [<a4],y
			
			lda  |d4							; return insert index in d1
			sta  |d1
			
			lda  |d3							; return node # in d2
			sta  |d2
			lda  |d3+2
			sta  |d2+2
			
			clc									; assume no error
			lda  |d5							; return search result
			beq  exit							; error?
			sec									; yes
	
exit		php
			pha
			
			lda  #(f_d3+f_d4+f_d5+f_d6+f_d7+f_a2+f_a3) << 2
			jsr  pop_regs
			
			pla
			plp
			
			rts
			
last_node	dc.l	0
			
			ENDP 								; end of bt_tree_search
			
 EJECT
******************************************************************
*
* 			Name:	bt_rot_rec_lt
*
*	 Description:	Rotates one record from the right node into the
*					left node.
*
*  65816 Version:	Cary A. Farrier
*		 Created:	01/20/90
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*					
*					A0.L = ptr(lt node)
*					A1.L = ptr(rt node)
*					A4.L = fcr pointer
*
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined	
*					P = nvmxdizc
*					    ..000..0 = no error
*							   1 = error
*
*			Exit:	rts
*
*			Uses:	
*
*	   Called By:	bt_rotate_lt
*
*  Others Called:	push_regs
*					pop_regs
*					bt_get_rec_addr
*					bt_insert_rec
*					bt_delete_rec
*					
******************************************************************
* Copyright Apple Computer, Inc. 1984-1990.  All rights reserved.
******************************************************************
*
* REVISION HISTORY:
*
* 01/20/90	CAF		Created.
*
******************************************************************
bt_rot_rec_lt	PROC
			
			lda  #f_a2+f_a3
			jsr  push_regs
			
*
* insert first record of right node at the end of the left node
*
			lda  <a0							; a2 = ptr(lt node)
			sta  <a2
			lda  <a0+2
			sta  <a2+2
			
			lda  <a1							; a3 = ptr(rt node)
			sta  <a3
			lda  <a1+2
			sta  <a3+2
			
			stz  |d0							; index of 1st record
			stz  |d0+2
			
			jsr  bt_get_rec_addr				; get the record size
			
			clc									; ptr(1st record) in rt node
			lda  <a1
			adc  #len_nd
			sta  <a0
			lda  <a1+2
			adc  #^len_nd
			sta  <a0+2
			
			lda  <a2							; a1 = ptr(lt node)
			sta  <a1
			lda  <a2+2
			sta  <a1+2
			
			ldy  #nd_num_recs					; insert index into left node
			lda  [<a1],y
			xba
			sta  |d1
			
			jsr  bt_insert_rec					
			
			lda  <a3							; a1 = ptr(right node)
			sta  <a1
			lda  <a3+2
			sta  <a1+2
			
			bcc  RRLDelete						; insert ok ->
			
			lda  #bt_wont_fit					; result = 'wont fit'.  
			bra  exit							; exit ->
			
*
* delete record from right node
*
RRLDelete	stz  |d1							; index = 0
			stz  |d1+2
			
			jsr  bt_delete_rec					; delete it
			
done		clc
exit		php
			pha
			
			lda  #(f_a2+f_a3) << 2
			jsr  pop_regs
			
			pla
			plp
			
			rts
			
			ENDP 								; end of bt_rot_rec_lt
			
			EJECT
******************************************************************
*
* misc support routines
*
******************************************************************

 EJECT
******************************************************************
*
* 			Name:	strcmp
*
*	 Description:	Compares two strings.  The compare is case
*					insensitive, and will map diacriticals into
*					their correct places in the character set.
*
*  65816 Version:	Cary A. Farrier
*		 Created:	01/21/90
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*					A0.L = ptr (search key)
*					A1.L = ptr (trial key)
*					
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined	
*					P = nvmxdizc
*					    ..000...
*						      ||
*							  |+- 0 = less than, 1 = greater than
*							  +-- 1 = equal (overrides carry, check z first!)
*
*			Exit:	rts
*
*			Uses:	<temp0
*					<temp1
*
*	   Called By:	change_path
*					ct_compare_key
*
*  Others Called:	push_regs
*					pop_regs			
*					
******************************************************************
* Copyright Apple Computer, Inc. 1984-1990.  All rights reserved.
******************************************************************
*
* REVISION HISTORY:
*
* 01/21/90	CAF		Created.
* 06/14/90	CAF		Added the 'xtable' for the translation of
*					diacriticals.
* 09/24/90	CAF		Added new version of xtable that Chad Williams
*					created; fixes bugs in sorting/inserting files
*					that were creating disks that were incompatable
*					with the Mac.
*
******************************************************************
strcmp		PROC
			
			LONGA  OFF
			LONGI  OFF
			sep  #$30							; short A,I
			
			lda  [<a0]							; get strlen(a0)
			sta  <temp1
			
			inc  a
			sta  <temp0							; assume a1 longer than a0
			
			lda  [<a1]							; get strlen(a1)
			cmp  <temp1							; strlen(a1) > strlen(a0)?
			bcs  ok								; yes ->
			
			inc  a
			sta  <temp0							; no, use shorter length
			
ok			ldy  #1

			lda  <temp0							; is the strlen 0?
			dec  a
			beq  chk_len						; yes ->

*
* compare the two strings
*
@loop		lda  [<a1],y						; get the ascii char
			tax
			lda  |xtable,x						; use as index into table
			sta  <temp1
			
			lda  [<a0],y						; get ascii char
			tax
			lda  |xtable,x						; use as index into table
			
			cmp  <temp1							; compare the two chars
			beq  @3								; equal, so check next char ->
			bra  done							; not equal, return result ->
			
@3			iny									; have I reached the end of the string?
			cpy  <temp0
			bcc  @loop							; no ->

*
* the strings are equal up to the length of the smaller string.
* if the string lengths are different, the return the longer string as being
* greater.
*
chk_len		lda  [<a1]
			sta  <temp1
			lda  [<a0]
			cmp  <temp1
			
done		rep  #$30
			LONGA  ON
			LONGI  ON
			rts

*
* This is the translation table to convert an ASCII character code to a value that
* will correctly identify the relationship between the different characters.  To
* use this table, load the ascii value into the X register and use it as an index
* into the table.  This table also takes care of uppercasing the lower case letters.
*
*				  0    1    2    3    4    5    6    7    8    9    A    B    C    D    E    F
*			   +----+----+----+----+----+----+----+----+----+----+----+----+----+----+----+---+
xtable	dc.b	$00, $01, $02, $03, $04, $05, $06, $07, $08, $09, $0A, $0B, $0C, $0D, $0E, $0F ; 0
		dc.b	$10, $11, $12, $13, $14, $15, $16, $17, $18, $19, $1A, $1B, $1C, $1D, $1E, $1F ; 1
		dc.b	$20, $22, $23, $28, $29, $2A, $2B, $2C, $2F, $30, $31, $32, $33, $34, $35, $36 ; 2
		dc.b	$37, $38, $39, $3A, $3B, $3C, $3D, $3E, $3F, $40, $41, $42, $43, $44, $45, $46 ; 3
		dc.b	$47, $49, $58, $5B, $5E, $61, $68, $69, $6B, $6D, $74, $76, $78, $7A, $7B, $7F ; 4
		dc.b	$8E, $8F, $92, $94, $96, $99, $9F, $A1, $A4, $A6, $A9, $AA, $AB, $AC, $AD, $AE ; 5
		dc.b	$54, $49, $58, $5B, $5E, $61, $68, $69, $6B, $6D, $74, $76, $78, $7A, $7B, $7F ; 6
		dc.b	$8E, $8F, $92, $94, $96, $99, $9F, $A1, $A4, $A6, $A9, $AF, $B0, $B1, $B2, $B3 ; 7
		dc.b	$4C, $50, $5C, $62, $7D, $81, $9A, $55, $4A, $56, $4C, $4E, $50, $5C, $62, $64 ; 8
		dc.b	$65, $66, $6F, $70, $71, $72, $7D, $89, $8A, $8B, $81, $83, $9C, $9D, $9E, $9A ; 9
		dc.b	$B4, $B5, $B6, $B7, $B8, $B9, $BA, $95, $BB, $BC, $BD, $BE, $BF, $C0, $52, $85 ; A
		dc.b	$C1, $C2, $C3, $C4, $C5, $C6, $C7, $C8, $C9, $CA, $CB, $57, $8C, $CC, $52, $85 ; B
		dc.b	$CD, $CE, $CF, $D0, $D1, $D2, $D3, $26, $27, $D4, $20, $4A, $4E, $83, $87, $87 ; C
		dc.b	$D5, $D6, $24, $25, $2D, $2E, $D7, $D8, $A7, $D9, $DA, $DB, $DC, $DD, $DE, $DF ; D
		dc.b	$E0, $E1, $E2, $E3, $E4, $E5, $E6, $E7, $E8, $E9, $EA, $EB, $EC, $ED, $EE, $EF ; E
		dc.b	$F0, $F1, $F2, $F3, $F4, $F5, $F6, $F7, $F8, $F9, $FA, $FB, $FC, $FD, $FE, $FF ; F

			ENDP 								; end of strcmp
			
				eject
******************************************************************************
*
*		 Name:	alloc_blocks
*
* Description:	Allocates space on a volume.
*
*				If contiguous allocation is requested, at least the requested
*				number of bytes will be allocated or an error will be returned.
*				If contiguous allocation is not requested, the space will be
*				allocated at the first free fragment following the requested
*				starting allocation block.  If there is not enough room there,
*				a block of less than the requested size will be allocated.
*
*				If the requested starting block is 0 (for new file allocations),
*				the volume's allocation block pointer will be used as a starting point.
*
*				Requests will be rounded up to the next highest clump size, 
*				unless we're allocating space for a tree.
*
*  Written by:	Cheryl Ewy
*
*		Entry:	jsr
*
*		 Exit:	rts
*
*		Input:	A = undefined
*				X = undefined
*				Y = undefined
*				P = nvmxdizc
*		  		  ..000...
*				B = K
*
*				<my_vcr_ptr - pointer to vcr
*				A3.L - ptr to fcr
*				D2.W - preferred starting allocation block, 0 = no preference
*				D3.W - force contiguous flag
*						0 = blocks need not be contiguous
*						alloc_contig = blocks must be contiguous
*				D4.L = # of bytes requested
*
*      Output:	A = error code if carry	set
*				X = undefined
*				Y = undefined
*				P = nvmxdizc
*		   			..000..1 = error
*			  			   0 = no error
*				B = K
*
*				D2.W - actual starting allocation block
*				D3.W - actual # of allocation blocks allocated
*
*		 Uses:	all registers
*				<multiplicand	(aka <dividend)
*				<multiplier		(aka <divisor)
*				<product		(aka <remainder)
*				A0.L - ptr to bitmap buffer
*				A1.W - # of allocation blocks on volume
*				A2.W - # of allocation blocks requested
*				A3.L - ptr to fcr
*				A4.W - # of allocation blocks until end of volume
*				A5.L - # of allocation blocks per clump
*				D0.L - current rotated bitmap word	
*				D1.W - # of unexamined bits in D0 
*				D2.L - preferred starting allocation block (lo word)
*		       		   copy of preferred starting allocation block (hi word)	
*				D3.W - flags  
*				D4.L - # of bytes requested ; # of allocation blocks to allocate
*				D5.L - current bitmap block # (lo word)
*		      		   dirty flag for bitmap block (hi word)
*				D6.W - index into bitmap block buffer	
*				D7.W - fragment length counter ; allocated block counter
*
*   Called by:	et_extend_file
*
*		Calls:	get_bitmap_bit
*				get_next_bit
*				get_next_word
*				update_bitmap
*				long_divide_up
*				long_multiply
*				push_regs
*				pop_regs
*
* Copyright Apple Computer, Inc. 1990-1991  All rights reserved.
******************************************************************************
alloc_blocks	PROC

*
* preserve registers
*
				lda  #f_d0+f_d1+f_d4+f_d5+f_d6+f_d7+f_a0+f_a1+f_a2+f_a3+f_a4+f_a5	; push registers on hfs stack
				jsr  push_regs
*
* Return an error if there are no free allocation blocks on the volume.
*
				ldy  #vcr_free_ablks
				lda  [my_vcr_ptr],y
				beq  brl_vol_full
*
* Calculate the # of allocation blocks requested and store in a2.
*
				lda  d4					;divide the # of bytes requested
				sta  <dividend
				lda  d4+2
				sta  <dividend+2
				lda  ablk_size			;by the allocation block size
				sta  <divisor
				lda  ablk_size+2
				sta  <divisor+2
				jsr  long_divide_up		;to get the # of alloc blocks requested
 				lda  <dividend
				sta  <a2				;store result in a2
				lda  <dividend+2
				beq  ok_so_far
brl_vol_full	brl  vol_full
ok_so_far
*
* Get the # of alloc blocks on the volume and store in a1.
*
				ldy  #vcr_num_ablks
				lda  [my_vcr_ptr],y
				sta  <a1
*
* If the requested starting block is 0, use the volume's allocation block pointer. 
* 
				lda	 d2					;is the requested starting block = 0?
				bne	 not_zero			;no
				ldy	 #vcr_alloc_start	;yes - so use the volume's alloc blk ptr
				lda	 [<my_vcr_ptr],y
				sta	 d2
				lda	 #$0080				;set bit 7 in d3 to indicate that
				tsb	 d3					;vcr_alloc_start was used
not_zero		lda	 d2					;save a copy of the starting block
				sta	 d2+2
*
* Look for a free fragment at or beyond the selected starting block.
*
loop1			jsr	 get_bitmap_bit		;get the relevant bitmap word
				bcs  brl_exit
		
check_ones		lda  d0
				cmp  #$ffff				;is the bitmap word all ones?
				beq	 all_ones			;yes - so branch
				lda	 d2					;get starting block
				cmp	 <a1				;have we reached the end of the volume?
				bcs  at_eov				;yes - so branch
 				lda  d0					;if bit 15 is clear, we've found
				bpl  found_free			;a free fragment
				inc  d2					;advance the starting block
				jsr  get_next_bit		;get the next bitmap bit
				bcs  brl_exit
				bra	 check_ones			;and loop
				
all_ones		clc						;advance starting block by 16
				lda  d2
				adc  #16
				sta  d2
				bcs  at_eov				;we overflowed the max starting block #
				cmp  <a1				;have we reached the end of the volume?
				bcs  at_eov				;yes 
				jsr  get_next_word		;no - so get next bitmap word
				bcc  check_ones			;and check it
brl_exit		brl  exit
		
at_eov			lda  d3					;have we already wrapped around the EOV?
				bmi  brl_vol_full		;yes - so report an error
				ora  #$8000				;no - so set bit 15 to indicate we wrapped
				sta  d3					;around the EOV
				stz  d2					;reset starting block to beginning of vol
				bra  loop1				;and loop
		
*
* We found a free fragment so check to see if it's big enough.
* For a contiguous allocation, this should guarantee that at least as much as
* requested is actually allocated, although more may be granted.  The request
* is rounded up to the next highest clump later.
*
found_free		sec
				lda  <a1				;set A4 to contain the # of alloc
				sbc  d2					;blocks left until EOV
				sta  <a4
				
				lda  d3					;was contiguous allocation requested?
				and  #alloc_contig
				beq  doit				;no - so do the allocation
				
				stz  d7					;init fragment length count
check_fragment	inc  d7					;bump fragment length count
				lda  d7					;is the fragment length =
				cmp  <a2				;# of alloc blocks requested?
				beq  big_enough			;yes - so fragment is big enough
				cmp  <a4				;have we reached the end of the volume?
				beq  at_eov				;yes - so fragment is too small
				jsr  get_next_bit		;no - so get the next bitmap bit
				bcs  brl_exit			
				lda  d0					;is bit 15 set (allocated block)? 
				bmi  too_small			;yes - so fragment is too small
				bra  check_fragment		;no - so loop
		
*
* The fragment is too small.
*
too_small		clc						;update the starting block
				lda  d2
				adc  d7
				sta  d2
				bcs  at_eov				;we overflowed the max starting block #
				
				lda  d3					;have we already wrapped around the EOV? 
				bpl  brl_loop1			;no - so loop 
				lda  d2					;yes - so check if we're up to or beyond
				cmp  d2+2				;the original starting block
				bcc  brl_loop1			;we're not - so loop
				brl  vol_full			;we are - so there's no room
				
brl_loop1		brl  loop1				;loop
		
*
* The fragment is big enough so get the bitmap word for the starting block.
*
big_enough		jsr  get_bitmap_bit
				bcs  brl_exit
*
* Round the request up to the next highest clump size.
* Note - Don't round the request up if we're allocating blocks for a tree.  @@@ 4/4/91 CAE
*
doit			
 				ldy	 #fcr_type			
				lda  [a3],y				;get fcr type
				cmp  #fcr_tree_type		;is this fcr for a tree?
				bne  @not_tree			;no - so round the request up
				lda	 <a2				;yes - so get # of allocation blocks requested
				sta  d4					;and store in d4
				bra  @cont				;branch
@not_tree			
				ldy  #fcr_clump_size	;divide the clump size (in bytes)
				lda  [a3],y				
				sta  <dividend
				iny
				iny
				lda  [a3],y
				sta  <dividend+2
				lda  ablk_size			;by the allocation block size
				sta  <divisor
				lda  ablk_size+2
				sta  <divisor+2
				jsr  long_divide_up		;to get the # of allocation blocks per clump
				
				lda  <dividend 			;store result in <a5 and copy to <divisor
				sta  <a5
				sta	 <divisor
				lda  <dividend+2
				sta  <a5+2
				sta  <divisor+2
				lda  <a2				;divide the # of allocation blocks requested
				sta  <dividend			;by the # of allocation blocks per clump
				stz  <dividend+2
				jsr  long_divide_up		;to get the # of clumps to allocate
				
				lda	 <a5				;multiply result by the # of ablks per clump
				sta  <multiplier
				lda  <a5+2
				sta  <multiplier+2
				jsr  long_multiply		;to get the # of allocation blocks to allocate
				lda  <product
				sta  d4					;store result in d4
@cont
*
* Allocate the blocks.
*
				stz  d7					;init allocated block count
alloc_loop		lda  d4					;have we allocated enough?
				beq  alloc_done			;yes - so we're done
				lda  d7
				cmp  <a4				;have we reached the end of the volume?
				bcs  alloc_done			;yes - so we're done
				lda  d0					;is the current block already allocated?
				bmi  alloc_done			;yes - so we're done
				
				ldy  #vcr_free_ablks	;does the volume think there are any
				lda  [my_vcr_ptr],y		;blocks left?
				beq  alloc_done			;no - so we're done
				dec  a					;yes - so adjust the free count
				sta  [my_vcr_ptr],y
				
				lda  #$8000				;allocate the block
				tsb  d0
				lda  #$0001				;set the bitmap dirty flag
				tsb  d5+2
				
				inc  d7					;increment allocated block count
				dec  d4					;decrement request count
				jsr  get_next_bit		;get next bitmap bit
				bcs  exit
				bra  alloc_loop			;and loop
		
*
* Allocation is done.
*
* If the preferred starting block was 0 then we need to update vcr_alloc_start.
* Adding in the length of the current allocation might reduce the next allocate call
* by avoiding a re-scan of the already allocated space.  However, the clump just
* allocated could end up being truncated or released when the file is closed or its
* EOF changed.  Leaving the allocation pointer at the start of the last allocation
* will avoid unnecessary fragmentation in this case.
*
alloc_done		lda  d3
				and  #$0080				;did we start from vcr_alloc_start?
				beq  skip_it			;no
				lda  d2					;yes - so get starting block
				ldy  #vcr_alloc_start
				sta  [my_vcr_ptr],y		;and update vcr_alloc_start
skip_it
*
* Update the bitmap and setup d3 for output.
*
				jsr  update_bitmap
				bcs	 exit
				lda  d7					;get # of blocks allocated
				sta  d3					;and store in d3
*
* Indicate no error and exit.
*
 				clc
exit			php						; save status
				pha						; save error code
			
				lda  #(f_d0+f_d1+f_d4+f_d5+	\
					f_d6+f_d7+f_a0+f_a1+	\
					f_a2+f_a3+f_a4+f_a5) << 2	; pop registers off hfs stack
				jsr  pop_regs			; pop regs
				
				pla						; restore error code
				plp						; restore status
				
				rts

*
* Return a volume full error.
*
vol_full		stz  d3					;indicate that no blocks were allocated
				lda  #volume_full		;get error code
				sec
				bra  exit				; restore registers and exit
				
				ENDP 
		
		eject
******************************************************************************
*
*	 	Name:	dealloc_blocks
*
* Description:	Deallocates space on a volume.
*
*  Written by:	Cheryl Ewy
*
*		Entry:	jsr
*
*		 Exit:	rts
*
*		Input:	A = undefined
*				X = undefined
*				Y = undefined
*				P = nvmxdizc
*				    ..000...
*				B = K
*
*				<my_vcr_ptr - ptr to vcr
*				D2.W - first allocation block to free up
*				D3.W - # of alloc blocks to free up
*
*      Output:	A = error code if carry	set
*				X = undefined
*				Y = undefined
*				P = nvmxdizc
*				    ..000..1 = error
*			  			   0 = no error
*				B = K
*
*		 Uses:	all registers
*
*   Called by:	et_delete_file
*				et_trunc_file
*
*		Calls:	get_bitmap_bit
*				get_next_bit
*				update_bitmap
*				push_regs
*				pop_regs
*
* Copyright Apple Computer, Inc. 1990  All rights reserved.
******************************************************************************
dealloc_blocks	PROC

*
* preserve registers
*
				lda  #f_allregs					; push registers on hfs stack
				jsr  push_regs
*
* If D3 = 0 then we're done.
*
				lda  |d3
				beq  done
*
* Read in the relevant bitmap block and get the relevant bitmap word in D0.
* The bitmap word will be rotated so that the relevant bit is in bit 15.
*
				jsr  get_bitmap_bit
				bcs  exit
*
* Free up the allocation block by clearing the relevant bitmap bit.
* Loop until we've freed up the requested # of allocation blocks.
*
loop			lda  #$8000						;free up the allocation block by
				trb  |d0						;clearing bit 15

				lda  #$0001						;set the bitmap dirty flag
				tsb  |d5+2
		
				ldy  #vcr_free_ablks			;adjust the free count in the vcr
				lda  [<my_vcr_ptr],y		
				inc  a
				sta  [<my_vcr_ptr],y
		
				dec  |d3						;are we done freeing up blocks?
				beq  finish_up					;yes
		
				jsr  get_next_bit				;no - so get the next bitmap bit
				bcs  exit
				bra  loop						;and loop
				
*
* Write the current bitmap block out to disk.
*
finish_up		jsr  update_bitmap
				bcs  exit
*
* Indicate no error and exit.
*
done			clc
exit			php								; save status
				pha								; save error code
				
				lda  #(f_allregs) << 2					; pop registers off hfs stack
				jsr  pop_regs					; pop regs
				
				pla								; restore error code
				plp								; restore status
				
				rts
		
				ENDP 
		
				eject
******************************************************************************
*
*	 	Name:	get_bitmap_bit
*
* Description:	For a given allocation block #, this routine will read in the
*				relevant bitmap block, put the relevant bitmap word into D0, and
*				rotate the bitmap word so that the relevant bit is in bit 15.
*
*  Written by:	Cheryl Ewy
*
*		Entry:	jsr
*
*		 Exit:	rts
*
*		Input:	A = undefined
*				X = undefined
*				Y = undefined
*				P = nvmxdizc
*		    		..000...
*				B = K
*
*				<my_vcr_ptr - ptr to vcr
*				D2.W - allocation block of interest
*				save_gbuf_ptr2 - ptr to 512 byte general purpose buffer used for bitmap
*
*      Output:	A = error code if carry	set
*				X = undefined
*				Y = undefined
*				P = nvmxdizc
*		    		..000..1 = error
*			  			   0 = no error
*				B = K
*
*				A0.L - ptr to bitmap buffer
*				D0.L - relevant bitmap word, rotated so that the relevant bit is in bit 15
*				D1.W - # of unexamined bits in D0 
*				D5.L - current bitmap block # (lo word)
*		       		   dirty flag for bitmap block (hi word)
*				D6.W - index of relevant bitmap word in bitmap buffer
*
*		 Uses:	all registers
*
*   Called by:	alloc_blocks
*				dealloc_blocks
*
*		Calls:	bitmap_buf_read
*
* Copyright Apple Computer, Inc. 1990  All rights reserved.
******************************************************************************

get_bitmap_bit	PROC

*
* Setup pointer to bitmap buffer in A0.
*
				lda  save_gbuf_ptr2			;we'll use the second 512 byte general
				sta  <a0					;purpose buffer for the bitmap block
				lda  save_gbuf_ptr2+2	
				sta  <a0+2
*
* Divide the alloc block # by 4096 (bits/block) to convert it into a bitmap block #. 
*
				lda  d2						;get alloc block # of interest
				ldx  #12
loop			lsr  a						;divide by 4096
				dex
				bne  loop
				sta  d5						;store bitmap block # in D5
*
* Compute the index to the relevant word in the bitmap block.
*
				lda  d2						;get alloc block # of interest
				and  #$0ff0					;want middle 8 bits for index
				lsr  a						;divide by 8 (bits/byte)
				lsr  a
				lsr  a
				sta  d6						;store word index in D6
*
* Compute bit position.
*
				lda  d2						;get alloc block # of interest
				and  #$000f					;get bit position
				sta  d1						;store in D1
*
* Read the bitmap block into the bitmap buffer.
*
				jsr  bitmap_buf_read
				bcs  exit
*
* Get the relevant word from the bitmap buffer.
*
				ldy  d6						;get word index
				lda  [a0],y					;get the word
				xba							;swap bytes
				sta  d0						;and store
				stz  d0+2
*
* Rotate the relevant bit into bit 15.
*
				ldx  d1						;get bit position
				beq  loop2_done				;done if bit position = 0
loop2			asl  d0						;rotate relevant bit into bit 15
				rol  d0+2		
				dex
				bne  loop2
loop2_done
*
* Compute # of unexamined bits.
*
				sec
				lda  #16
				sbc  d1						;subtract bit position from 16
				sta  d1						;to get # of unexamined bits
*
* Indicate that bitmap buffer is clean.
*
				stz  d5+2					;clear the dirty flag
*
* Indicate no error and exit.
*
				clc
exit			rts
		
				ENDP 

				eject
******************************************************************************
*
*		 Name:	get_next_bit
*
* Description:	Gets the next bit from the bitmap, rolling over to the next
*				bitmap word (and block) if necessary.
*
*  Written by:	Cheryl Ewy
*
*		Entry:	jsr
*
*		 Exit:	rts
*
*		Input:	A = undefined
*				X = undefined
*				Y = undefined
*				P = nvmxdizc
*				    ..000...
*				B = K
*
*				<my_vcr_ptr - ptr to vcr
*				A0.L - ptr to bitmap buffer
*				D0.L - current bitmap word under examination
*				D1.W - # of bits left unexamined in D0
*				D5.L - current bitmap block # (lo word)
*				       dirty flag for bitmap block (hi word)
*				D6.W - index of relevant bitmap word in bitmap buffer
*
*      Output:	A = error code if carry	set
*				X = undefined
*				Y = undefined
*				P = nvmxdizc
*				    ..000..1 = error
*						   0 = no error
*				B = K
*
*				D0.L - relevant bitmap word, rotated so that the relevant bit is in bit 15
*				D1.W - # of bits left unexamined in D0
*				D5.L - current bitmap block # (lo word)
*		    		   dirty flag for bitmap block (hi word)
*				D6.W - index of relevant bitmap word in bitmap buffer
*
*	 	 Uses:	all registers
*
*   Called by:	alloc_blocks
*				dealloc_blocks
*
*		Calls:	get_next_word
*
* Copyright Apple Computer, Inc. 1990  All rights reserved.
******************************************************************************

get_next_bit	PROC

*
* Rotate next bit into bit 15.
*
				asl  d0
				rol  d0+2
*
* Adjust the # of bits left unexamined.
*
				dec  d1
				bne  done
*
* Get the next word from the bitmap, rolling over to the next bitmap block if necessary.
*
				jsr  get_next_word
				bcs  exit
*
* Indicate no error and exit.
*
done			clc
exit			rts

				ENDP 
		
				eject
******************************************************************************
*
*		 Name:	get_next_word
*
* Description:	Gets the next word from the bitmap, rolling over to the next
*				bitmap block if necessary.
*
*  Written by:	Cheryl Ewy
*
*		Entry:	jsr
*
*		 Exit:	rts
*
*		Input:	A = undefined
*				X = undefined
*				Y = undefined
*				P = nvmxdizc
*				    ..000...
*				B = K
*
*				<my_vcr_ptr - ptr to vcr
*				A0.L - ptr to bitmap buffer
*				D0.L - current bitmap word under examination
*				D1.W - # of bits left unexamined in D0 
*				D5.L - current bitmap block # (lo word)
*				       dirty flag for bitmap block (hi word)
*				D6.W - index of bitmap word in bitmap buffer
*
*      Output:	A = error code if carry	set
*				X = undefined
*				Y = undefined
*				P = nvmxdizc
*				    ..000..1 = error
*						   0 = no error
*				B = K
*
*				D0.L - next bitmap word
*				D1.W - # of bits left unexamined in D0 (always 16)
*				D5.L - current bitmap block # (lo word)
*				       dirty flag for bitmap block (hi word)
*				D6.W - index of bitmap word in bitmap buffer
*
*		 Uses:	all registers
*
*   Called by:	alloc_blocks
*				get_next_bit
*
*		Calls:	bitmap_buf_read
*				bitmap_buf_write
*
* Copyright Apple Computer, Inc. 1990  All rights reserved.
******************************************************************************

get_next_word	PROC

*
* If the dirty flag is set, store the bitmap word back into the bitmap buffer.
*
				lda  d5+2					;is the dirty flag set?
				beq  @1						;no
				ldy  d6						;yes - so get the word index
				lda  d0+2					;get the bitmap word
				xba							;swap bytes
				sta  [a0],y					;and store the word back into the bitmap buffer
@1				
*
* Bump the bitmap word index.
*
				inc  d6
				inc  d6
*
* Check if we've reached the end of the bitmap block.
*
				lda  d6						;get the word index
				cmp  #512					;at end of block?
				bcc  get_word				;no - so continue
*		
* We've reached the end of the bitmap block.
* If the dirty flag is set, write the bitmap block back out to disk.
*
				lda  d5+2					;is the current bitmap block dirty?
				beq  not_dirty				;no
				jsr  bitmap_buf_write		;yes - so write it out to disk
				bcs  exit
not_dirty
*
* Read the next bitmap block into the bitmap buffer.
* Reset the bitmap word index to 0 and clear the dirty flag.
*
				inc  d5						;increment the bitmap block #
				jsr  bitmap_buf_read		;read the next bitmap block
				bcs  exit
				stz  d6						;reset the bitmap word index to 0
				stz  d5+2					;clear the dirty flag
*
* Get the next word from the bitmap buffer.
*
get_word		ldy  d6						;get word index
				lda  [a0],y					;get the word
				xba							;swap bytes
				sta  d0						;and store
				stz  d0+2
*
* Init # of unexamined bits.
*
				lda  #16
				sta  d1
*
* Indicate no error and exit.
*
 				clc
exit			rts

				ENDP 
		
				eject
******************************************************************************
*
*	 	 Name:	update_bitmap
*
* Description:	Stores the current bitmap word back into the bitmap buffer.
*				Writes the bitmap block out to disk if the dirty flag is set.
*
*  Written by:	Cheryl Ewy
*
*		Entry:	jsr
*
*		 Exit:	rts
*
*		Input:	A = undefined
*				X = undefined
*				Y = undefined
*				P = nvmxdizc
*		 		   ..000...
*				B = K
*
*				A0.L - ptr to bitmap buffer
*				D0.L - rotated bitmap word
*				D1.W - # of bits left unexamined in D0
*				D5.L - current bitmap block # (lo word)
*		     		   dirty flag for bitmap block (hi word)
*				D6.W - index into bitmap buffer
*
*      Output:	A = error code if carry	set
*				X = undefined
*				Y = undefined
*				P = nvmxdizc
*		 		   ..000..1 = error
*						  0 = no error
*				B = K
*
*		 Uses:	all registers
*
*   Called by:	alloc_blocks
*				dealloc_blocks
*
*		Calls:	bitmap_buf_write
*
* Copyright Apple Computer, Inc. 1990  All rights reserved.
******************************************************************************

update_bitmap	PROC

*
* Rotate the bitmap word completely into d0+2.
*
				clc
loop			asl  d0
				rol  d0+2
				dec  d1
				bne  loop
*
* Store the bitmap word back into the bitmap buffer.
*
				ldy  d6
				lda  d0+2
				xba
				sta  [a0],y
*
* If the dirty flag is set, write the bitmap block back out to disk.
*
				lda  d5+2						;is the current bitmap block dirty?
				beq  not_dirty					;no
				jsr  bitmap_buf_write			;yes - so write it out to disk
				bcs  exit
not_dirty
*
* Indicate no error and exit.
*
				clc
exit			rts
		
				ENDP 

			
				END  									; end of btree.aii
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/FSTs/HFS/hfs.fst.equ b/IIGS.601.SRC/GS.OS/FSTs/HFS/hfs.fst.equ
new file mode 100644
index 0000000..f6aeb23
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/FSTs/HFS/hfs.fst.equ
@@ -0,0 +1 @@
+		eject
*******************************************************************************
*
* GS/OS HFS FST Equates
*
* Copyright 1987-91 Apple Computer, Inc.  All Rights Reserved.
*******************************************************************************

*******************************************************************************
*
*  REVISION HISTORY:
*
*  Date	    By	 Description
*	
*  5/25/90  CAE	 Alpha 01 release.
*  6/19/90  CAE  Adjusted the input/output parameter equates since i_request_fst
*		   was removed.
* 10/04/90  CAE  Added equate for "ashare_id".
* 10/19/90  CAE  Removed some unused equates.  Moved equates from hfs.fst.btree
*		   into this file.
* 10/19/90  CAE  Beta 01 release.
*  1/18/91  CAE	 Added input and output parameter equates for the JudgeName call.
*  1/30/91  CAE  "product" is now 4 bytes long instead of 8.
*  2/01/91  CAE  Removed some unused equates.
*  2/18/91  CAE  Added equate for "prodos_id".
* 10/29/91  MSD  Added locked_access equate.
* 12/05/91  MSD  Added i_cp_flags.
*  3/26/92 Monte Benaresh
*		Added a stack_end variable on direct page and shortened the
*		stack_ptr to a word since it now resides in bank $00.
*
*******************************************************************************

;------------------------------------------------------------------------------
; Direct page equates	(FSTs may use up to 84 bytes on GS/OS direct page)
;------------------------------------------------------------------------------

; Main direct page equates

my_pblk_ptr	equ	fst_start		;pointer to parameter block
my_vcr_ptr	equ	my_pblk_ptr+4		;pointer to volume control record
my_fcr_ptr	equ	my_vcr_ptr+4		;pointer to file control record
my_path_ptr	equ	my_fcr_ptr+4		;pointer to pathname
gbuf_ptr	equ	my_path_ptr+4		;pointer to 512B general purpose buffer 
block_buf_ptr	equ	gbuf_ptr+4		;pointer to fcr's 512B block buffer
data_buf_ptr	equ	block_buf_ptr+4		;pointer to caller's data buffer

; Direct page equates for the BTree routines

stack_ptr	equ	data_buf_ptr+4		;pointer to stack-1 for BTree routines
*** stack_ptr changed to a word b/c pseudo stack is in bank $00
*** -- Monte Benaresh 3/26/92
stack_index	equ	stack_ptr+2		;index into BTree routine stack
stack_end	equ stack_index+2		;added 3/26/92 by Monte
a0		equ	stack_end+2
a1		equ	a0+4
a2		equ	a1+4
a3		equ	a2+4
a4		equ	a3+4
a5		equ	a4+4

; Direct page temporaries (used by main code and BTree routines)

temp0 		equ	a5+4			;4 byte temp
temp1		equ	temp0+4			;4 byte temp - must follow temp0

; Direct page equates for word_multiply, long_multiply, word_divide and long_divide

multiplicand	equ	temp1+4			;32 bit	multiplicand
multiplier	equ	multiplicand+4		;32 bit	multiplier
product		equ	multiplier+4		;32 bit multiplication product

dividend	equ	multiplicand		;32 bit	dividend/quotient
divisor		equ	multiplier		;32 bit	divisor
remainder	equ	product			;32 bit	remainder

; Direct page equates for copy_word, copy_long and copy_ext

source_ptr	equ	product			;pointer to source
dest_ptr	equ	source_ptr+4		;pointer to destination


;------------------------------------------------------------------------------
; Miscellaneous equates
;------------------------------------------------------------------------------

hfs_signature	equ	$4244			;signature word for an HFS volume
vib_block	equ	2			;physical block # where VIB resides
vbm_start	equ	3			;physical block # where bitmap starts

vol_parent_id	equ	1			;volume parent ID
vol_dir_id	equ	2			;volume directory ID
ctree_file_id	equ	4			;file ID for CTree
etree_file_id	equ	5			;file ID for ETree
next_file_id	equ	16			;next free file/dir ID 

min_vol_size	equ	10			;min volume size (in physical blocks)
phys_blk_size	equ	512			;physical block size (in bytes)
node_size	equ	512			;BTree node size (in bytes)
stack_size	equ	1024			;BTree psuedo stack size (in bytes)
max_btree_depth	equ	8			;max BTree depth

max_volname	equ	27			;max HFS volname length
max_filename	equ	31			;max HFS filename length
max_class0_name	equ	15			;max class 0 name length

separator0	equ	$2f			;class 0 separator ('/')
separator1	equ	$3a			;class 1 separator (':')

path1_bit	equ	$4000			;indicates if path1 is valid
path2_bit	equ	$0040			;indicates if path2 is valid
dib_blk_cnt	equ	$000a			;offset to block count in DIB

; FST ID equates

hfs_id		equ	$0006			;HFS file system ID
ashare_id	equ	$000d			;AppleShare file system ID
prodos_id	equ	$0001			;ProDOS file system ID

; Cache equates

cache_on	equ	$0002			;put blocks in cache
deferred_on	equ	$8000			;do deferred writes

; Device status flag bit equates

switched_bit	equ	$0001			;disk has been switched
protected_bit	equ	$0004			;device is write-protected
online_bit	equ	$0010			;disk is in drive

; GS/OS command equates

max_app_cmd	equ	$0066			;max valid application command * 2
max_sys_cmd	equ	$0008			;max valid system command * 2
max_fst_cmd	equ	$0000			;max valid fst specific command  
max_class	equ	$0001			;max valid class #
max_base_val	equ	$0003			;max valid value for base parameter
max_cache_val	equ	$0001			;max valid value for cache parameter
max_raccess_val	equ	$0003			;max valid value for request_access parameter
max_rsrcnum_val	equ	$0001			;max valid value for resource_num parameter
max_ntype_val	equ	$0003			;max valid value for name_type parameter
gfi_call_num	equ	$06			;call number for get_file_info
open_call_num	equ	$10			;call number for open
gde_call_num	equ	$1c			;call number for get_dir_entry
extended_bit	equ	$8000			;extended flag for get_dir_entry

; GS/OS access equates

read_enabled	equ	$0001
write_enabled	equ	$0002
invisible	equ	$0004
backup_needed	equ	$0020
rename_enabled	equ	$0040
destroy_enabled	equ	$0080
full_access	equ	$00c3
locked_access	equ	$00c2			; file locked if none of these bits set
reserved_bits	equ	$ff18

; GS/OS request_access equates

as_permitted	equ	$0000
read_access	equ	$0001
write_access	equ	$0002
read_write	equ	$0003

; GS/OS storage type equates

standard_stype	equ	$0001			;Standard file
extended_stype	equ	$0005			;Extended file
directory_stype	equ	$000d			;Subdirectory
volume_stype	equ	$000f			;Volume directory

; GS/OS file type equates

dir_ftype	equ	$0f			;directory file type

; Tool Call equates

tool_locator	equ	$e10000
Hex2Int		equ	$240b			;Hex2Int routine in Integer Math
ConvSeconds	equ	$3703			;ConvSeconds routine in Misc. Tools

; Driver direct page locations to save within do_rw_call to support 1 level 
; of recursion.

start_drvr_dp	equ	drvr_call_num		;start of saved driver direct page space
end_drvr_dp	equ	drvr_cache+2		;end of saved driver direct page space
len_drvr_dp	equ	end_drvr_dp-start_drvr_dp  ;Length of driver dp area to save


;------------------------------------------------------------------------------
; Error codes used by the BTree routines
;------------------------------------------------------------------------------

; The following errors are returned if there is a problem with the disk structure.
; The high byte of the error code is masked off before the error is reported to SCM.

bt_bad_node		equ	$C151				  
bt_not_map_node		equ	$C251				
bt_depth_err		equ	$C351				

; The following errors are generated and handled internally by the BTree routines.  
; These errors are only returned to the main routines if the FST is very confused.
; The high byte of the error code is masked off before the error is reported to SCM.

bt_key_exists		equ	$C46A				
bt_not_found		equ	$C56A				
bt_wont_fit		equ	$C66A				

; The following errors should hopefully never occur.
; The high byte of the error code is masked off before the error is reported to SCM.

bt_no_node_buffers	equ	$C76A				
bt_lost_node		equ	$C86A				
bt_bad_node_buf		equ	$C96A				
bt_range_err		equ	$CA6A				
bt_unknown_type		equ	$CB6A				

; The following errors are fatal and are reported through the 'sys_death' routine.

bt_bad_rotate		equ	$006A			
bt_stack_underflow	equ	$006A			
bt_stack_overflow	equ	$006A			


;------------------------------------------------------------------------------
; Node Buffer equates
;------------------------------------------------------------------------------

; Node Buffer offsets

node_storage	equ	$0000			;storage for one BTree node
node_flags	equ	node_storage+node_size	;flags word for node buffer
node_num	equ	node_flags+2		;# of node in node buffer
node_loc	equ	node_num+4		;node's location on disk (phys block #)
node_ref	equ	node_loc+4		;fcr ref_num from node's tree
len_node_buf	equ	node_ref+2		;length of a node buffer

; Node Buffer Flag bit definitions (in node_flags field)

node_used_bit	equ	$0001			;bit 0 - node buffer is in use
node_dirty_bit	equ	$8000			;bit 15 - node buffer is dirty 


;------------------------------------------------------------------------------
; Tree Path Table (TBT) and Tree Path Record (TPR) equates
;------------------------------------------------------------------------------

tpr_node_num	equ	$0000			;node number
tpr_rec_index	equ	tpr_node_num+4		;record index
len_tpr		equ	tpr_rec_index+2		;length of a Tree Path Record
len_tpt		equ	max_btree_depth*len_tpr	;length of a Tree Path Table


;------------------------------------------------------------------------------
; Volume Control Record	(VCR) equates
;------------------------------------------------------------------------------

;vcr_id         equ    	$0000           	;volume ID
;vcr_name       equ    	vcr_id+2        	;ptr to volume name
;vcr_status     equ    	vcr_name+4      	;volume status
;vcr_open_cnt   equ   	vcr_status+2    	;number of open files on volume
;vcr_fst_id     equ    	vcr_open_cnt+2  	;owner ID number
;vcr_dev        equ    	vcr_fst_id+2    	;where volume was last seen

vcr_create_dt	equ	vcr_dev+2		;date/time initialized
vcr_mod_dt	equ	vcr_create_dt+4		;date/time last modified
vcr_vol_attrib	equ	vcr_mod_dt+4		;volume attributes
vcr_num_r_files	equ	vcr_vol_attrib+2	;number of files in root dir
vcr_vbm_start	equ	vcr_num_r_files+2	;first block of volume bitmap (P blk #)
vcr_alloc_start	equ	vcr_vbm_start+2		;start of next allocation search
vcr_num_ablks	equ	vcr_alloc_start+2	;number of allocation blocks on vol
vcr_ablk_size	equ	vcr_num_ablks+2		;allocation block size (in bytes)
vcr_fclump_size	equ	vcr_ablk_size+4		;default clump size for files (in bytes)
vcr_ablk_start	equ	vcr_fclump_size+4	;loc of first alloc block (P blk #)
vcr_next_id	equ	vcr_ablk_start+2	;next dir/file ID
vcr_free_ablks	equ	vcr_next_id+4		;number of unused allocation blocks
vcr_write_cnt	equ	vcr_free_ablks+2	;volume write count 
vcr_num_r_dirs	equ	vcr_write_cnt+4		;number of dirs in root dir
vcr_num_files	equ	vcr_num_r_dirs+2	;number of files on volume
vcr_num_dirs	equ	vcr_num_files+4		;number of dirs on volume
vcr_num_pblks	equ	vcr_num_dirs+4		;number of physical blocks on vol
vcr_cur_dir	equ	vcr_num_pblks+4		;current dir ID (last searched)
vcr_cur_kid	equ	vcr_cur_dir+4		;current offspring index (at last search)
vcr_ct_fcr_vp	equ	vcr_cur_kid+2		;vp to fcr for Catalog Tree
vcr_et_fcr_vp	equ	vcr_ct_fcr_vp+4		;vp to fcr for Extents Tree
vcr_ct_ref_num	equ	vcr_et_fcr_vp+4		;refnum from Catalog Tree FCR
vcr_et_ref_num	equ	vcr_ct_ref_num+2	;refnum from Extents Tree FCR
len_vcr		equ	vcr_et_ref_num+2	;length of a VCR


;------------------------------------------------------------------------------
; File Control Record (FCR) equates
;------------------------------------------------------------------------------

; common FCR fields

;fcr_ref_num    equ    	$0000			;reference number
;fcr_path_name  equ    	fcr_ref_num+2		;vp to pathname
;fcr_fst_id     equ    	fcr_path_name+4		;owner ID number
;fcr_vol_id     equ    	fcr_fst_id+2		;volume ID
;fcr_level      equ    	fcr_vol_id+2
;fcr_newline    equ    	fcr_level+2
;fcr_newline_len equ    fcr_newline+4
;fcr_mask       equ    	fcr_newline_len+2
;fcr_access     equ    	fcr_mask+2

fcr_type	equ	fcr_access+2		;fcr type
fcr_flags	equ	fcr_type+2		;flags
fcr_parent_id	equ	fcr_flags+2		;parent dir ID 
fcr_id		equ	fcr_parent_id+4		;dir/file ID
fcr_cat_hint	equ	fcr_id+4		;catalog hint for CLOSE and FLUSH
fcr_mod_dt	equ	fcr_cat_hint+4		;date/time last modified

; FCR extensions for directories

fcr_valence	equ	fcr_mod_dt+4		;number of files and dirs in this dir
fcr_cur_kid	equ	fcr_valence+2		;current offspring index
len_d_fcr	equ	fcr_cur_kid+2		;length of an FCR for directories

; FCR extensions for files

fcr_clump_size	equ	fcr_mod_dt+4		;clump size (in bytes)
fcr_leof	equ	fcr_clump_size+4	;logical EOF 
fcr_peof	equ	fcr_leof+4		;physical EOF 
fcr_ext		equ	fcr_peof+4		;first extents record
fcr_file_mark	equ	fcr_ext+12		;file mark
fcr_block_mark	equ	fcr_file_mark+4		;block buffer mark
fcr_block_num	equ	fcr_block_mark+2	;# of physical block in block buffer
fcr_block_count	equ	fcr_block_num+4		;# physical blocks until end of extent
fcr_block_buf	equ	fcr_block_count+4	;block buffer 
len_f_fcr	equ	fcr_block_buf+512	;length of an FCR for files

; FCR extensions for trees

;fcr_clump_size	equ	fcr_mod_dt+4		;clump size (in bytes)
;fcr_leof	equ	fcr_clump_size+4	;logical EOF 
;fcr_peof	equ	fcr_leof+4		;physical EOF 
;fcr_ext	equ	fcr_peof+4		;first extents record

fcr_bcr		equ	fcr_ext+12		;BTree Control Record
bcr_flags	equ	fcr_bcr			;flags (1 byte)
bcr_reserved	equ	bcr_flags+1		;reserved (1 byte)
bcr_key_cmp_ptr	equ	bcr_reserved+1		;ptr to BTree's key compare routine
bcr_idx_rec_ptr	equ	bcr_key_cmp_ptr+4	;ptr to BTree's index record buffer
bcr_tpt_ptr	equ	bcr_idx_rec_ptr+4	;ptr to BTree's Tree Path Table
bcr_level	equ	bcr_tpt_ptr+4		;current level
bcr_node_mark	equ	bcr_level+2		;current node mark
bcr_index_mark	equ	bcr_node_mark+4		;current index mark
bcr_depth	equ	bcr_index_mark+2	;current depth of tree
bcr_root_node	equ	bcr_depth+2		;node # of root node
bcr_num_recs	equ	bcr_root_node+4		;number of leaf records in tree
bcr_first_node	equ	bcr_num_recs+4		;node # of first leaf node
bcr_last_node	equ	bcr_first_node+4	;node # of last leaf node
bcr_node_size	equ	bcr_last_node+4		;size of node (in bytes)
bcr_max_key	equ	bcr_node_size+2		;max key length
bcr_num_nodes	equ	bcr_max_key+2		;total number of nodes
bcr_free_nodes	equ	bcr_num_nodes+4		;number of free nodes
len_t_fcr	equ	bcr_free_nodes+4	;length of an FCR for trees


; FCR types (in fcr_type field)

fcr_tree_type	equ	0			;FCR is for a tree (CTree or ETree)
fcr_dir_type	equ	1			;FCR is for a directory
fcr_file_type	equ	2			;FCR is for a file

; FCR Flag bit definitions (in high byte of fcr_access field)

global_clean_bit equ	$8000			;bit 15 - file is clean 
rsrc_fork_bit	equ	$4000			;bit 14 - FCR is for resource fork
global_clean_mask equ	$7fff			;clears bit 15

; FCR Flag bit definitions (in high byte of fcr_flags field)

buf_empty_bit	equ	$8000			;bit 15 - FCR block buffer is empty
buf_dirty_bit	equ	$4000			;bit 14 - FCR block buffer is dirty
fcr_dirty_bit	equ	$2000			;bit 13 - FCR is dirty
file_dirty_bit	equ	$1000			;bit 12 - file is dirty
truncate_bit	equ	$0800			;bit 11 - truncate to peof on Close
buf_empty_mask	equ	$7fff			;clears bit 15
buf_dirty_mask	equ	$bfff			;clears bit 14
fcr_dirty_mask	equ	$dfff			;clears bit 13
file_dirty_mask	equ	$efff			;clears bit 12
truncate_mask	equ	$f7ff			;clears bit 11 

; BCR Flag bit definitions (in bcr_flags field)

bcr_delptr_bit	equ	$10			;bit 4 - pointer record delete required
bcr_newptr_bit	equ	$20			;bit 5 - new pointer record required
bcr_keyupd_bit	equ	$40			;bit 6 - key record update required
bcr_dirty_bit	equ	$80			;bit 7 - dirty flag
not_delptr_bit	equ	Åbcr_delptr_bit		
not_keyupd_bit	equ	Åbcr_keyupd_bit		
not_bcr_dirty_bit equ	Åbcr_dirty_bit		


;------------------------------------------------------------------------------
; HFS Volume Information Block (VIB) offsets
;------------------------------------------------------------------------------

vib_signature	equ	0			;signature word
vib_create_dt	equ	2			;date/time initialized
vib_mod_dt	equ	6			;date/time of last modification
vib_vol_attrib	equ	10			;volume attributes
vib_num_r_files	equ	12			;number of files in root dir
vib_vbm_start	equ	14			;first block of volume bitmap (P blk #)
vib_alloc_start	equ	16			;start of next allocation search
vib_num_ablks	equ	18			;number of allocation blocks on vol
vib_ablk_size	equ	20			;allocation block size (in bytes)
vib_fclump_size	equ	24			;default clump size for files (in bytes)
vib_ablk_start	equ	28			;loc of first alloc block (P blk #)
vib_next_id	equ	30			;next dir ID or file ID
vib_free_ablks	equ	34			;number of unused allocation blocks
vib_volname	equ	36			;volume name (max 27 chars)
vib_backup_dt	equ	64			;date/time of last backup
vib_backup_num	equ	68			;index of volume in backup set
vib_write_cnt	equ	70			;volume write count
vib_eclump_size	equ	74			;clump size of Extents tree (in bytes)
vib_cclump_size	equ	78			;clump size of Catalog tree (in bytes)
vib_num_r_dirs	equ	82			;number of dirs in root dir
vib_num_files	equ	84			;number of files on volume
vib_num_dirs	equ	88			;number of dirs on volume
vib_finder_info	equ	92			;Finder Info (32 bytes)
vib_vcache_size	equ	124			;volume cache size (in blocks)
vib_bcache_size	equ	126			;bitmap cache size (in blocks)
vib_tcache_size	equ	128			;ETree/CTree cache size (in blocks)
vib_etree_peof	equ	130			;physical EOF of Extents tree (in bytes)
vib_etree_ext	equ	134			;first extents record for Extents tree
vib_ctree_peof	equ	146			;physical EOF of Catalog tree (in bytes)
vib_ctree_ext	equ	150			;first extents record for Catalog tree
len_vib		equ	162			;length of a VIB


;------------------------------------------------------------------------------
; HFS BTree equates (used with both the Catalog and Extents trees)
;------------------------------------------------------------------------------

; Node Descriptor offsets

nd_flink	equ	0			;forward link
nd_blink	equ	4			;backward link
nd_type		equ	8			;node type (1 byte)
nd_level	equ	9			;node level (1 byte)
nd_num_recs	equ	10			;# of records in node
nd_reserved	equ	12			;reserved (2 bytes)
len_nd		equ	14			;length of a Node Descriptor

; Node types (in nd_type field)

nd_indx_type	equ	0			;index node type
nd_hdr_type	equ	1			;header node type
nd_map_type	equ	2			;map node type
nd_leaf_type	equ	$ff			;leaf node type

; Header Record offsets 

hdr_depth	equ	0			;current depth of tree
hdr_root_node	equ	2			;node # of root node
hdr_num_recs	equ	6			;number of leaf records in tree
hdr_first_node	equ	10			;node # of first leaf node
hdr_last_node	equ	14			;node # of last leaf node
hdr_node_size	equ	18			;size of node (in bytes)
hdr_max_key	equ	20			;max key length
hdr_num_nodes	equ	22			;total number of nodes
hdr_free_nodes	equ	26			;number of free nodes
hdr_reserved	equ	30			;reserved (76 bytes)
len_hdr		equ	106			;length of a Header Record

; Pointer Record offsets

ptr_node_num	equ	0			;node # of child
len_ptr		equ	4			;length of a Pointer Record


;------------------------------------------------------------------------------
; HFS Catalog Tree (CTree) equates
;------------------------------------------------------------------------------

; Key Record offsets

cky_key_len	equ	0			;key length (1 byte)
cky_reserved	equ	1			;reserved (1 byte)
cky_parent_id	equ	2			;parent dir ID
cky_name	equ	6			;name (max 31 chars)
max_cky_len	equ	38			;max length of a CTree Key Record

; Catalog Record offsets

cat_type	equ	0			;catalog record type (1 byte)
cat_reserved	equ	1			;reserved (1 byte)
cat_data	equ	2			;start of catalog record data

; Catalog Record types (in cat_type field)

cat_dir_type	equ	1			;directory record type
cat_fil_type	equ	2			;file record type
cat_thd_type	equ	3			;thread record type

; Directory Record offsets

dir_flags	equ	2			;flags (only lo byte used)
dir_valence	equ	4			;number of files and dirs in this dir
dir_id		equ	6			;ID of this directory
dir_create_dt	equ	10			;date/time created
dir_mod_dt	equ	14			;date/time last modified
dir_backup_dt	equ	18			;date/time last backed up
dir_finder_info	equ	22			;Finder Info (32 bytes)
dir_reserved	equ	54			;reserved (16 bytes)
len_dir		equ	70			;length of a Directory Record

; File Record offsets

fil_flags	equ	2			;flags (1 byte)
fil_type	equ	3			;file type (1 byte - always 0 for HFS)
fil_finfo1	equ	4			;Finder Info (16 bytes)
fil_id		equ	20			;ID of this file
fil_data_ablk	equ	24			;first alloc block of data fork
fil_data_leof	equ	26			;logical EOF of data fork
fil_data_peof	equ	30			;physical EOF of data fork
fil_rsrc_ablk	equ	34			;first alloc block of resource fork
fil_rsrc_leof	equ	36			;logical EOF of resource fork
fil_rsrc_peof	equ	40			;physical EOF of resource fork
fil_create_dt	equ	44			;date/time created
fil_mod_dt	equ	48			;date/time last modified
fil_backup_dt	equ	52			;date/time last backed up
fil_finfo2	equ	56			;Finder Info (16 bytes)
fil_clump_size	equ	72		 	;clump size of file (in ablks)
fil_data_ext	equ	74			;first extents record for data fork
fil_rsrc_ext	equ	86			;first extents record for resource fork
fil_reserved	equ	98			;reserved (4 bytes)
len_fil		equ	102			;length of a File Record
max_cat_len	equ	len_fil			;max length of a Catalog Record

; Thread Record offsets

thd_reserved	equ	2			;reserved (8 bytes)
thd_parent_id	equ	10			;ID of parent of associated dir
thd_dirname	equ	14			;name of associated dir (max 31 chars)
len_thd		equ	46			;length of a Thread Record


;------------------------------------------------------------------------------
; HFS Extents Tree (ETree) equates
;------------------------------------------------------------------------------

; Key Record offsets

eky_key_len	equ	0			;key length (1 byte)
eky_fork_type	equ	1			;fork type (1 byte) $00=data, $ff=rsrc
eky_file_id	equ	2			;file ID this extents record is for
eky_ablk_num	equ	6			;ablk # within file this ext rec starts at
len_eky		equ	8			;length of an ETree Key Record

; Extents Record offsets

ext_start_ablk	equ	0			;starting alloc block number on volume
ext_num_ablks	equ	2			;number of alloc blocks
len_ext_desc	equ	4			;length of an Extent Descriptor
len_ext		equ	12			;length of an Extents Record

num_ext_desc	equ	3			;# of Extent Descriptors per Extents Record
max_desc_off	equ	8			;maximum Extent Desciptor offset


;------------------------------------------------------------------------------
; HFS Finder Info offsets 
;------------------------------------------------------------------------------

fi_file_type	equ	0			;file's type  (file records only)
fi_file_creator	equ	4			;file's creator  (file records only)
fi_flags	equ	8			;Finder flags  (file and dir records)


;------------------------------------------------------------------------------
; HFS bit definitions
;------------------------------------------------------------------------------

; File/Directory Flag Bits (in low byte of fcr_flags, dir_flags and fil_flags fields)

locked_bit	equ	$01			;bit 0 - file is locked
rsrc_open_bit	equ	$04			;bit 2 - resource fork is open
data_open_bit	equ	$08			;bit 3 - data fork is open
directory_bit	equ	$10			;bit 4 - indicates a directory
file_open_bit	equ	$80			;bit 7 - file (either fork) is open

locked_mask	equ	$fffe			;clears bit 0

; Finder Flag Bits (in fi_flags field within dir_finder_info and fil_finfo1 fields)

fi_invis_bit	equ	$4000			;bit 14 - file/dir is invisible
fi_invis_mask	equ	$bfff			;clears bit 14


;------------------------------------------------------------------------------
; Option List equates
;------------------------------------------------------------------------------

ol_total_size	equ	$0000			;total size of option list
ol_req_size	equ	ol_total_size+2		;required size of data buffer
ol_fst_id	equ	ol_req_size+2		;fst id
ol_finder_info	equ	ol_fst_id+2		;finder info
ol_parent_id	equ	ol_finder_info+32	;parent directory id
len_ol		equ	ol_parent_id+4		;length of option list
req_ol_size	equ	len_ol-4		;required size for option list data buffer 


;------------------------------------------------------------------------------
; Equates for the Call Flags Table
;------------------------------------------------------------------------------

; Flag bit definitions

path_used	equ	$0100			;bit 8 - pathname is used by call
vcr_used	equ	$0200			;bit 9 - VCR is used by call
fcr_used	equ	$0400			;bit 10 - FCR is used by call

; Mask equates

max_mask	equ	$001f			;Isolate max pcount.
min_mask	equ	$00e0			;Isolate min pcount.

; Max pcount equates

max_pcnt1	equ	1
max_pcnt2	equ	2
max_pcnt3	equ	3
max_pcnt4	equ	4
max_pcnt5	equ	5
max_pcnt6	equ	6
max_pcnt7	equ	7
max_pcnt8	equ	8
max_pcnt9	equ	9
max_pcnt10	equ	10
max_pcnt11	equ	11
max_pcnt12	equ	12
max_pcnt13	equ	13
max_pcnt14	equ	14
max_pcnt15	equ	15
max_pcnt16	equ	16
max_pcnt17	equ	17

; Min pcount equates

min_pcnt1	equ	$0020
min_pcnt2	equ	$0040
min_pcnt3	equ	$0060
min_pcnt4	equ	$0080
min_pcnt5	equ	$00A0


;------------------------------------------------------------------------------
; Equates for the Parameter Lists
;------------------------------------------------------------------------------

; Flag bit definitions

input_flag	equ	$0000			;bit 7 - 0 indicates input
output_flag	equ	$0080			;bit 7 - 1 indicates output
terminate_flag	equ	$8000			;bit 15 - 1 indicates end of list

; Mask equates

param_mask	equ	$007f			;Isolate parameter number
offset_mask	equ	$7f00			;Isolate parameter offset
io_mask		equ	$0080			;Isolate i/o flag

; Input parameter equates

i_ref_num	equ	$0000			;(w)   
i_access	equ	$0001			;(w)   
i_storage_type	equ	$0002			;(w)   
i_file_type	equ	$0003			;(w)   
i_aux_type	equ	$0004			;(lw)  
i_eof		equ	$0005			;(lw)  
i_resource_eof	equ	$0006			;(lw) 
i_create_date	equ	$0007			;(w)   
i_create_time	equ	$0008			;(w)   
i_mod_date	equ	$0009			;(w)   
i_mod_time	equ	$000a			;(w)   
i_create_date_time equ	$000b			;(4w)  
i_mod_date_time	equ	$000c			;(4w)  
i_volname	equ	$000d			;(ptr) 
i_option_list	equ	$000e			;(ptr) 

i_pcount	equ	$000f			;(w)   
i_command_num	equ	$0010			;(w)   
i_resource_num	equ	$0011			;(w)   
i_cache_priority equ	$0012			;(w)   
i_request_access equ	$0013			;(w)   
i_request_count	equ	$0014			;(lw) 
i_base		equ	$0015			;(w) 
i_displacement	equ	$0016			;(lw)  
i_pathname	equ	$0017			;(ptr) 
i_new_pathname	equ	$0018			;(ptr) 
i_devname	equ	$0019			;(ptr) 
i_data_buffer	equ	$001a			;(ptr) 
i_null		equ	$001b			;(w) 
i_flush_type	equ	$001c			;(w) 
i_file_sys_id	equ	$001d			;(w) 	  
i_name_type	equ	$001e			;(w) 	
i_name		equ	$001f			;(ptr) 	
i_cp_flags	equ	$003e			;(w)

; Output parameter equates

o_ref_num	equ	$0020+output_flag	;(w)   
o_access	equ	$0021+output_flag	;(w)   
o_storage_type	equ	$0022+output_flag	;(w)   
o_file_type	equ	$0023+output_flag	;(w)   
o_aux_type	equ	$0024+output_flag	;(lw)
o_eof		equ	$0025+output_flag	;(lw)  
o_resource_eof	equ	$0026+output_flag	;(lw) 
o_create_date	equ	$0027+output_flag	;(w)   
o_create_time	equ	$0028+output_flag	;(w)   
o_mod_date	equ	$0029+output_flag	;(w)   
o_mod_time	equ	$002a+output_flag	;(w)  
o_create_date_time equ	$002b+output_flag	;(4w) 
o_mod_date_time	equ	$002c+output_flag	;(4w)  
o_volname	equ	$002d+output_flag	;(ptr) 
o_option_list	equ	$002e+output_flag	;(ptr) 

o_transfer_count equ	$002f+output_flag	;(lw)  
o_position	equ	$0030+output_flag	;(lw)  
o_entry_num	equ	$0031+output_flag	;(w)   
o_dev_number	equ	$0032+output_flag	;(w)   
o_file_sys_id	equ	$0033+output_flag	;(w)   
o_block_size	equ	$0034+output_flag	;(w)  
o_extended_flag	equ	$0035+output_flag	;(w)  
o_total_blocks	equ	$0036+output_flag	;(lw)  
o_blocks_used	equ	$0037+output_flag	;(lw)  
o_free_blocks	equ	$0038+output_flag	;(lw)  
o_resource_blocks equ	$0039+output_flag	;(lw)  
o_name		equ	$003a+output_flag	;(ptr) 
o_syntax	equ	$003b+output_flag	;(ptr) 
o_max_len	equ	$003c+output_flag	;(w) 	
o_name_flags	equ	$003d+output_flag	;(w) 	

; Parameter offset equates

offset0		equ	$0000
offset2		equ	$0200
offset4		equ	$0400
offset6		equ	$0600
offset8		equ	$0800
offsetA		equ	$0A00
offsetC		equ	$0C00
offsetE		equ	$0E00
offset10	equ	$1000
offset12	equ	$1200
offset14	equ	$1400
offset16	equ	$1600
offset18	equ	$1800
offset1A	equ	$1A00
offset1C	equ	$1C00
offset1E	equ	$1E00
offset20	equ	$2000
offset22	equ	$2200
offset24	equ	$2400
offset26	equ	$2600
offset28	equ	$2800
offset2A	equ	$2A00
offset2C	equ	$2C00
offset2E	equ	$2E00
offset30	equ	$3000
offset32	equ	$3200
offset34	equ	$3400
offset36	equ	$3600
offset3A	equ	$3A00


;------------------------------------------------------------------------------
; Equates used only by the BTree routines
;------------------------------------------------------------------------------

; Register push/pop flag bit definitions

f_d0		equ	$0001
f_d1		equ	$0002
f_d2		equ	$0004
f_d3		equ	$0008
f_d4		equ	$0010
f_d5		equ	$0020
f_d6		equ	$0040
f_d7		equ	$0080
f_a0		equ	$0100
f_a1		equ	$0200
f_a2		equ	$0400
f_a3		equ	$0800
f_a4		equ	$1000
f_a5		equ	$2000

f_dRegs		equ	f_d0+f_d1+f_d2+f_d3+f_d4+f_d5+f_d6+f_d7
f_aRegs		equ	f_a0+f_a1+f_a2+f_a3+f_a4+f_a5
f_allRegs	equ	f_dRegs+f_aRegs

; Constants

alloc_contig	equ	$0001

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/FSTs/HFS/hfs.fst.main b/IIGS.601.SRC/GS.OS/FSTs/HFS/hfs.fst.main
new file mode 100644
index 0000000..600541e
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/FSTs/HFS/hfs.fst.main
@@ -0,0 +1 @@
+		print	nohdr
*******************************************************************************
*
* GS/OS	HFS File System	Translator
*
* Version 01.00
* Written by Cheryl Ewy and Cary Farrier
*
* Some code stolen from -
* GS/OS	High Sierra FST written by Bryan Atsatt
* GS/OS ProDOS FST written by Rob Turner
*
* Copyright 1987-92 Apple Computer, Inc.  All Rights Reserved.
*
*******************************************************************************

		string	asis
		blanks	off
		pagesize 86
		
		eject
*******************************************************************************
*
*  REVISION HISTORY:
*
*  Date	    By	 Description
*	
*  5/25/90  CAE	 Alpha 01 release.
*  6/06/90  CAE	 Bug fix (CMW314SMW) - Changed the 'flags' in the FST Header so  
*		   that SCM will no longer clear the hi bits of pathname characters.
*		 Added support for 'standard' files (ie fil_rsrc_peof = 0).
*		   Procs affected - get_storage_type, create, open.
*  6/07/90  CAE  Added ability to extend a standard file via the Create call.
*		   Procs affected - ih_storage_type, create, get_cat_info.
*  6/12/90  CAE  Bug fix - When initializing a disk, the bitmap was built 
*		   incorrectly whenever there was more than 1 'remainder' bit.		
*		   Procs affected - hfs_init.
*  6/19/90  CAE  Removed data storage for the 'request_fst' parameter since it's
*		   not used.  Removed the ih_request_fst input handler.  Shortened
*		   the call_24_class1/call_25_class1 parameter list.
*  7/26/90  CAE  Bug fix - Changed the SCSI partition owner name to end with a NUL.
*		 Changed the 'ProDOS filetype/auxtype -> HFS filetype' translation
*		   so that filetype $FF is always translated to "PSYS" regardless
*		   of the auxtype value.  Procs affected - set_file_aux.
*  8/03/90  CAE  Bug fix (BK002) - Changed 'max_dt_values' and fixed errors in the 
*		   date/time verification routines.  
*		   Procs affected - ih_create_date_time, ih_create_date, ih_create_time.
*  8/09/90  CAE  Bug fix - If we get a 'disk switched' error when attempting to 
*		   ID a disk, we now retry the call instead of returning the error.
*		   Procs affected - do_rw_call, scan_devices. 
*  8/29/90  CAE  Bug fix (BK011) - Control characters are now allowed in pathnames.
*		   Procs affected - parse_path.
*  8/30/90  CAE  Bug fix (CW003) - Pcounts greater than the maximum did not cause
*		   an error.  Procs affected - ih_pcount.
*  9/06/90  CAE  Bug fix - An error was not reported when a Read call was done on
*		   a file which was opened with 'write only' access.
*		   Procs affected - read.
*  9/11/90  CAE  Bug fix (BK014) - Attempting to 'move and rename' a locked file
*		   will now return an error.  Procs affected - change_path.
*  9/14/90  CAE  Bug fix - The fcrs for the CTree and ETree are now forced to be
*		   at 'system level' so they won't be closed by a 'CLOSE all' call.
*		   Procs affected - build_vcr.
*		 Bug fix (BK017) - Reading in newline node wasn't working correctly.
*		   Procs affected - transfer_r_data.
*  9/27/90  CAE  Bug fix (BK018) - GetDirEntry now updates the valence in the fcr
*		   and clamps the offspring index to the new valence at the start
*		   of the call.  Procs affected - get_dir_entry.
* 10/01/90  CAE	 Bug fix (BK025) - When opening the resource fork of a file, the
*		   resource fork's eof was returned in the "eof" field as well as 
*		   in the "resource_eof" field.  Procs affected - open.
* 10/02/90  CAE  Bug fix (BK026) - If both forks of a file were open, and one or
*		   both of the fcrs were dirty, the correct eofs were not always
*		   returned by GetFileInfo.  Procs affected - get_cat_info, 
*		   is_file_closed.  New proc added - look_for_fcr.
* 10/04/90  CAE  Enhancement - SetFileInfo will now handle option lists with
*		   AppleShare's ID.  Procs affected - read_option_list.
* 10/12/90  CAE  Bug fix (CW005) and code cleanup.
*		 Rewrote ensure_vol_online and is_vol_locked. 
*		 Removed data storage for 'type_flag', 'filename' and 'command_num'.
*		 Removed code which saves the filename since it's not needed.
*		 Reordered some error checking at the start of the call handlers.
*		 Procs affected - id_disk, process_path, setup_call, app_entry,
*		   i_request_count, destroy,  set_eof, set_mark, read, write.
*		 Procs removed - activate_vcr.  New proc added - update_status.
* 10/18/90  CAE	 Added code to mask off the hi byte of BTree error codes. 
*		   Procs affected - app_entry.
* 10/19/90  CAE	 Bug fix - Renaming a volume to an existing volume name resulted
*		   in both volumes being damaged.  Procs affected - change_path.
* 10/19/90  CAE	 Beta 01 release.
* 11/01/90  CAE  Enhancement - Added filetype/auxtype conversion support for 
*		   "MIDI", "AIFF" and "AIFC" files.  
*		   Procs affected - set_file_aux, get_file_aux.
* 11/02/90  CAE  Bug fix (CW012) - If an error was returned from et_extend_file 
*		   when attempting to extend a fork during a Create call, the disk
*		   was not cleaned up properly.  Procs affected - create.
* 11/07/90  CAE  Renamed 'fst_error' proc to 'fst_op_error' because of conflict
*		   with new error equate in common.equ.
* 11/12/90  CAE  Bug fix (BK013) - Attempting to rename a volume to a null name
*		   will result in a bad_path_syntax error.  
*		   Procs affected - parse_path.
* 11/14/90  CAE  SetFileInfo will now return an error if the user tries to
*		   lock a directory.  Procs affected - set_file_info.
* 11/19/90  CAE  Bug fix (BK033) - If an invalid option list param is supplied 
*		   to an Open call, the file is not opened but the vcr_open_count 
*		   is incremented.  Procs affected - write_option_list.
* 11/20/90  CAE  Bug fix (BK032) - Added a fourth node buffer so that when a
*		   Create call is done with a specified eof and/or resource eof
*		   on a fragmented disk we won't run out of node buffers if we
*		   need to split an ETree node while extending a fork.
*		   Procs affected - setup_call.
* 11/21/90  CAE  Bug fix (BK036) - Build_fcr had a 'cmp cat_fil_type' instead
*		   of 'cmp #cat_fil_type' which caused an fcr to be built 
*		   incorrectly when doing a Create call with both eofs non-zero.  
*		   The data fork fcr was built correctly but the resource fork 
*		   fcr had a bad 'file ID' which resulted in incorrect extent
*		   records being stored in the ETree (if more than 3 extents
*		   were needed for the resource fork).
* 12/03/90  CAE  The Finder Info in the option list is now kept in 68000 format 
*		   in order to be consistent with the AppleShare FST.
*		   Procs affected - get_finder_info, set_finder_info.
* 12/04/90  CAE	 Enhancement - The Volume call will now setup the "volname" 
*		   output parameter if a "dup_volume" error is being returned.
*		   Procs affected - volume.
* 12/07/90  CAE  Enhancement - The ChangePath call will now allow a duplicate volume
*		   to be renamed if a device name is used as the source pathname.
*		   Procs affected - change_path, id_disk, build_vcr.
*  1/14/91  CAE	 Minor change to the FCR names for the CTree and ETree.
*  1/16/91  CAE  The walk_path routine will now only translate 'bt_not_found'
*		   errors and will return all other errors as is.
*  1/18/91  CAE	 Enhancement - Added support for the JudgeName call.  
*		   Procs affected - input_handlers, output_handlers.  
*		   New proc added - judge_name.
*  1/21/91  CAE  Bug fix - If we're doing a GetDirEntry call and the output buffer 
*		   is not big enough to hold the entire name string, we will now
*		   store as much of the string as will fit before reporting error.
*		   Procs affected - store_string (in output_handlers).
*		 Bug fix - GetDirEntry will now return all requested output 
*		   parameters even if an error occurs during output of the
*		   name string. Procs affected - setup_call, app_entry, oh_name.
*  1/25/91  CAE  Minor changes to JudgeName.
*  1/28/91  CAE  Added word_multiply proc.  Changed some routines to call
*		   word_multiply instead of long_multiply.  Procs affected -
*		   get_vol_info, hfs_init, ablk2pblk.
*		 Changed long_multiply to call word_multiply if the hi words
*		   of the multiplier and multiplicand are both 0.
*  1/29/91  CAE  Added word_divide proc.  Changed hfs_init to call word_divide 
*		   instead of long_divide when possible. 
*		 Changed long_divide to call word_divide if the hi words of
*		   the dividend and divisor are both 0.
*  1/30/91  CAE	 Rewrote long_multiply to make it faster.
*  1/31/91  CAE  Enhancement - Added filetype/auxtype conversion support for 
*		   DiskCopy disk images. Rewrote get_file_aux and set_file_aux
*		   to use one huge conversion table instead of inline code.
*  2/01/91  CAE	 Commented out the valence verification code in get_dir_entry 
*	   	   in order to speed up the code.  
*  2/06/91  CAE	 Bug fix (BK052) - JudgeName was not returning error $4F if
*		   the size of the name buffer was < 4.
*		 Bug fix (BK054) - GetDirEntry crashed if name buffer size = 4.
*		   Procs affected - store_string (in output_handlers).
*		 Put back the valence verification code in get_dir_entry but the
*		   code is now only executed if vcr_cur_dir <> fcr_id.
*  2/11/91  CAE	 Bug fix (BK049) - Doing a SetFileInfo call on a volume dir will
*		   now result in error $40 instead of $4B in order to be
*		   consistent with the ProDOS FST. Procs affected - set_file_info.
*		 Bug fix (BK053) - Doing a GetDirEntry call on a file will now
*		   result in error $4A instead of $4B in order to be consistent
*		   with the ProDOS FST.  Procs affected - get_dir_entry.
*  2/12/91  CAE  Bug fix (BK059) - If an Open call was done on a device, the fcr
*		   name didn't begin with a colon. A subsequent GetDirEntry call
*		   would result in error $6A due to the new valence verification
*		   code added on 2/6/91. A leading separator is now added to
*		   'disk_name' when allocating an fcr. Procs affected - build_fcr.
*  2/18/91  CAE	 Catalog hint is now supplied as input to ct_delete_rec and 
*		   et_delete_file.  Procs affected - destroy.
*		 SetFileInfo will now accept an option_list with a ProDOS ID.
*		   Procs affected - read_option_list.
*		 Source file catalog hint is now supplied as input to
*		   ct_move_rec.  Procs affected - change_path.
*  2/26/91  CAE	 Set bit 1 of the FST attributes word in the FST Header. This
*		   indicates that HFS is not a valid format for 5.25" disks.
*		 Changed the min and max pcounts allowed for Format and Erase_disk.
*		 Added error priority handling.  Procs affected - app_entry,
*		   setup_call, process_path.
*		 Modified Create to call process_path before checking name_count
*		   so that error_priority will be set up correctly.
*  3/01/91  CAE  Bug fix (BGK072) - Redefined the second field of the option_list
*		   to contain the actual data size when doing a SetFileInfo call.
*		   Procs affected - read_option_list.
*  3/05/91  CAE  Modified error priority handling.  Procs affected - process_path.
*  3/13/91  CAE  Bug fix - GetFileInfo didn't return correct eof info if both forks
*		   of a file were open and one fork was opened many times read_only
*		   and the other fork was opened writable and the eof was changed.
*		   Procs affected - get_cat_info.
*  3/20/91  CAE  Modified ChangePath to call process_path before checking
*		   path2_bit so that error_priority will be set up correctly.
*		 Bug fix (BGK060) - ChangePath was comparing the vcr ids to
*		   determine if the source and dest were on the same volume instead
*		   of comparing the device numbers.  This resulted in duplicate
*	 	   volumes being handled incorrectly in certain cases.
*  4/03/91  CAE  Bug fix - Class 0 Volume call wasn't allowing 16 char 'volname'.
*		   Procs affected - oh_volname.
*  6/04/91  CAE  Modified Read to zero out the transfer_count parameter before
*		   doing any other checking so that HyperCard 1.0 will be happy
*		   if we report an EOF error.  Procs affected - Read.
*  9/4/91   JEV  Fixed bug associated with disks over 32MB.  Changed HFS Init.
*  10/2/91  GAB	 Set bit 0 and clear bit 1 of the FST attributes word in the FST Header.
*		   This indicates that HFS is not a valid format for 5.25" disks.
* 10/29/91  MSD  ¥ A file is now locked only if the Rename, Destroy, and Write enable
*		   bits are ALL clear (a file used to be locked if ANY of those bits
*		   were clear).  This lets an application try to turn off the Destroy
*		   bit but still write to the file.
*                ¥ Get_Dev_Num sets a flag that tells process_path not to walk the
*		   catalog tree.  This helps the Finder if a disk-to-disk copy is
*		   aborted and the destination disk's catalog tree was overwritten.
* 11/07/91  MSD	 ¥ The build_vcr routine will now return error $5A (damaged_bitmap)
*		   when it detects the CTree or ETree to be damaged.  Volume will
*		   now return the volume name for this error (like it does with
*		   duplicate volume error).
* 11/13/91  MSD	 ¥ The above fix wasn't working because it loaded dup_volume
*		   back into A after returning the volume name.  It now saves
*		   and restores the error around calling oh_volname.
* 12/02/91  MSD	 ¥ In walk_path, if we get a not_found error from the CTree routines
*		   and we were looking for the volume directory's record (i.e.
*		   parent_id = vol_parent_id), then return error $5A instead of
*		   file/folder not found.  I wish we had a better way of determining
*		   when the disk was damaged in general.
* 12/05/91  MSD  ¥ Change_path now accepts a third parameter: flags.  If bit 15 is set
*		   and the source was a device name only, then it forces a fake VCR to
*		   be built and the volume renamed without chaning any VCR's or the
*		   name of the boot volume.  This lets Finder, HandleDiskInsert, etc.
*		   rename a duplicate disk without making the OS think the original
*		   volume was renamed.  It acts as if there was already a VCR by the
*		   same name, with open files on it.  Procs affected: change_path,
*		   id_disk.  Added proc ih_cp_flags.
* 12/17/91  MSD	 ¥ The FST now tries to find a volume before checking path syntax
*		   so it will properly set the error priority bit.  Parse_path no
*		   longer tests the span.  Process_path now checks the span (in x_span)
*		   after finding the disk.  Note that parse_path can still check
*		   for span=0 and that the volume name length is OK (since these are
*		   both required for the disk name to be a valid HFS disk name).
*		 ¥ Changed version number to 01.00 (final) for final candidate build.
* 02/05/92  MSD	 ¥ When doing a Change_Path with bit 15 of the flags set (the "trust
*		   me" bit), it first does a swap_out for the given device to prevent
*		   multiple online VCR's for a given device.
* 02/06/92  MSD	 ¥ If you use a pCount of 3 or 4 for the Create call and supply a
*		   file_type of $0F (i.e. a folder), the FST was defaulting the
*		   storage type to $05 (extended file).  Now, whenever the file_type
*		   is $0F, if forces the storage_type to $0D internally (ignoring
*		   anything the caller supplies).
*
* 02/09/92  GAB  ¥  Backed out part of Mark's changes made in the last revision.
*		    Neither the ProDOS FST nor the AppleShare FST (or, for that
*		    matter, P8) enforces a storage type of $0D when the filetype
*		    is $0F.  To make all FSTs consistent, I'm removing the
*		    portion of logic that forces the storage type to $0D here
*		    too.  I didn't touch the part that decides the proper
*		    storage type when the parameter is not supplied, though.
*
*********************************************************************************
*
* Begin 6.0.1
*
* 03/23/92 Monte Benaresh
*		 ¥  Changed the pseudo stack for the B-tree routines to reside in
*		    bank $00 so that the register push and pop routines could be
*		    sped up significantly, resulting in an overall improvement of
*		    7.7% in Finder file copying speed.  Thus, the memory is now
*		    allocated as a Memory Manager block, and stack_vp is now a
*		    handle.
*
* 03/25/92 Monte Benaresh
*		¥   Changed JUDGENAME syntax string from "Volume namesÉ" to
*		    "Disk namesÉ" in conformance with the changes being made
*		    to all other strings in the System with similar reference.
*
* 03/26/92 Monte Benaresh
*		¥   Further optimized the register push/pop routines by adding a 
*		    stack_end datum on direct page for checking against the end
*		    address of the pseudo stack.
*
* 03/30/92 Monte Benaresh
*		¥   Special-cased the long_divide routine for a divisor of $00000200,
*		    since this value is extremely common.  This sped up the average
*		    long divide by over 5X and imporved Finder file copying by over 3%.
*
* 04/01/92 Monte Benaresh
*		¥   Special-cased divisors > $01FF in the word_divide routine,
*		    increasing its average speed by over 40% and speeding up
*		    file copying in the Finder by about 1.5%.
*
* 04/02/92 Monte Benaresh
*		¥   Special-cased multiplier values 0-6 in the word_multiply routine,
*		    increasing its average speed by 7X and speeding up file
*		    copying in the Finder by another 2.7%.  We are now at 18.4% faster
*		    than the version on 6.0.
*
* 7-Apr-92 Dave Lyons
*		¥   Monte's stack thang didn't work with P8.  Changed to dispose
*		    stack block any any FST shutdown, even warm, and to reallocate
*		    it any time we need it & don't already have it.  (GS/OS does
*		    not make warm startup calls to FSTs!  Need to fix this!)
*
* 18-Jul-92 Dave Lyons
*		¥   Added a STZ newline_flag at do_update in write (search for
*		    18-Jul-92), to fix bug where Write stops prematurely after
*		    transferring 512 bytes, if the most recent Read call stopped
*		    because it hit a newline character.
*
* 2-Apr-93 Steve Stephenson
*		¥   Changed version to $0101 for 6.0.1 (final)
*
*******************************************************************************

		eject
*******************************************************************************
*
* Imported addresses
*
*******************************************************************************

		import	ct_create_rec
		import	ct_delete_rec
		import	ct_get_rec
		import	ct_get_dir_kid
		import	ct_move_rec
		import	ct_rename_rec
		import	ct_update
		import	ct_compare_key
		import	et_delete_file
		import	et_extend_file
		import	et_trunc_file
		import	et_log_2_phys
		import	et_compare_key
		import	bt_get_node
		import	bt_mark_node
		import	strcmp
		
		
*******************************************************************************
*
* Exported addresses
*
*******************************************************************************

		export	ablk2pblk
		export	word_multiply
		export	long_multiply
		export	word_divide
		export	long_divide
		export	long_divide_up
		export	node_buf_read
		export	node_buf_write
		export	bitmap_buf_read
		export	bitmap_buf_write
		export	update_vib
		export	update_alt_vib
		export	update_bth
		
		
		eject
*******************************************************************************
*
* Forward addresses 
*
*******************************************************************************

		entry	init_fst
		entry	kill_fst
		entry	kill_vcr
		entry	flush_def
		entry	cmd_error
		entry	fst_op_error
		
		entry	create
		entry	destroy
		entry	change_path
		entry	set_file_info
		entry	get_file_info
		entry	judge_name
		entry	volume
		entry	clear_backup
		entry	open
		entry	read
		entry	write
		entry	close
		entry	flush
		entry	set_mark
		entry	get_mark
		entry	set_eof
		entry	get_eof
		entry	get_dir_entry
		entry	get_dev_num
		entry	format
		entry	erase_disk
;		entry	fst_specific
		
		entry	ih_ref_num		
		entry	ih_access		 
		entry	ih_storage_type		
		entry	ih_file_type		
		entry	ih_aux_type		
		entry	ih_eof			 
		entry	ih_resource_eof		
		entry	ih_create_date		
		entry	ih_create_time		
		entry	ih_mod_date		
		entry	ih_mod_time		
		entry	ih_create_date_time	
		entry	ih_mod_date_time	
		entry	ih_volname		
		entry	ih_option_list		
		entry	ih_pcount		
		entry	ih_command_num		
		entry	ih_resource_num		
		entry	ih_cache_priority	
		entry	ih_request_access	
		entry	ih_request_count	
		entry	ih_base			
		entry	ih_displacement		
		entry	ih_pathname		
		entry	ih_new_pathname		
		entry	ih_devname		
		entry	ih_data_buffer		
		entry	ih_null		
		entry	ih_flush_type		
		entry	ih_file_sys_id		
		entry	ih_name_type		
		entry	ih_name
		entry	ih_cp_flags	; Added 5-Dec-91 MSD
		entry	oh_ref_num		
		entry	oh_access		 
		entry	oh_storage_type		
		entry	oh_file_type		
		entry	oh_aux_type		
		entry	oh_eof			 
		entry	oh_resource_eof		
		entry	oh_create_date		
		entry	oh_create_time		
		entry	oh_mod_date		
		entry	oh_mod_time		
		entry	oh_create_date_time	
		entry	oh_mod_date_time	
		entry	oh_volname		
		entry	oh_option_list
		entry	oh_transfer_count	
		entry	oh_position		
		entry	oh_entry_num		  
		entry	oh_dev_number		
		entry	oh_file_sys_id		 
		entry	oh_block_size		  
		entry	oh_extended_flag		  
		entry	oh_total_blocks		  
		entry	oh_blocks_used		
		entry	oh_free_blocks		
		entry	oh_resource_blocks	
		entry	oh_name			
		entry	oh_syntax			
		entry	oh_max_len			
		entry	oh_name_flags			
		
		eject
		include	'common.equ.src'
		include	'hw.equ.src'
		include 'hfs.fst.equ'
		include 'm16.debug'
		
		eject
*******************************************************************************
*
* FST HEADER
* Used by GS/OS	at boot	time.
*
*******************************************************************************

fst_header	PROC
code_start						        

		DC.B	'FST '			;Load identification (4	bytes)
		DC.L	app_entry		;Entry point for application calls
		DC.L	sys_entry		;Entry point for system	calls
		DC.W	hfs_id			;HFS FST ID
		DC.W	$2001			;Flags 
		DC.W	$0101			;Version 1.01 final
		DC.W	$200			;Normal	block size  (512 bytes)
		DC.L	$ffffffff		;Maximum blocks/volume
		DC.L	min_vol_size		;Minimum blocks/volume
		DC.L	$ffffffff		;Maximum file size (in bytes)
		DC.L	$00000000		;Reserved
		DC.B	3			;Length	of FST name
		DC.B	'HFS'			;Text of FST name
		DC.B	end_comment-start_comment
start_comment	DC.B	'HFS FST               v01.01'
end_comment
		DC.W	0000			;reserved field

		DC.B	end_credit-start_credit
start_credit	DC.B	'Copyright 1987-1992 Apple Computer, Inc. '
		DC.B	'Written by Cheryl Ewy and Cary Farrier.'
end_credit
		ENDP
		
		eject
*******************************************************************************
*
* DATA STORAGE AREA
*
*******************************************************************************

data		RECORD	export

;------------------------------------------------------------------------------
; Storage for input and output parameters
;------------------------------------------------------------------------------

start_params					;start of parameter storage

; input parameters

pcount		DS.B	2			;parameter count
resource_num	DS.B	2			;resource number
cache_priority	DS.B	2			;cache priority	flag
request_access	DS.B	2			;request access	permissions
request_count	DS.B	4			;request count
base		DS.B	2			;base
displacement	DS.B	4			;displacement
flush_type	DS.B	2			;flush type
name_type	DS.B	2			;name type
name_ptr	DS.B	4			;name ptr
;command_num	DS.B	2			;fst_specific command number 
cp_flags	DS.B	2			;flags for change_path (5-Dec-91 MSD)
; input/output parameters

ref_num		DS.B	2			;file reference	number
access		DS.B	2			;access information
storage_type	DS.B	2			;storage type
file_type	DS.B	2			;file type
aux_type	DS.B	4			;aux type
eof		DS.B	4			;data fork end of file
resource_eof	DS.B	4			;resource fork end of file
create_date_time DS.B	8			;create date/time (class 1)
create_date	equ	create_date_time	;create date (class 0)
create_time	equ	create_date+2		;create time (class 0)
mod_date_time	DS.B	8			;modification date/time (class 1)
mod_date	equ	mod_date_time		;modification date (class 0)
mod_time	equ	mod_date+2		;modification time (class 0)
finder_info	DS.B	32			;option list - finder info

; output parameters

transfer_count	DS.B	4			;transfer count
file_mark	DS.B	4			;file mark
entry_num	DS.B	2			;entry number
dev_number	DS.B	2			;device	number
extended_flag	DS.B	2			;extended flag
total_blocks	DS.B	4			;total blocks
blocks_used	DS.B	4			;blocks	used
free_blocks	DS.B	4			;free blocks
resource_blocks	DS.B	4			;resource blocks used
max_len		DS.B	2			;maximum name length
name_flags	DS.B	2			;name flags

end_params					;end of parameter storage
len_params	equ	end_params-start_params	;length of parameter storage

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;	GS/OS class 1 format 'date/time' structure (8 bytes)
;
;		byte 0   	second	(0-59)		
;		byte 1   	minute	(0-59)
;		byte 2   	hour	(0-23)
;		byte 3   	year	(year-1900)
;		byte 4   	day	(0-30)
;		byte 5   	month	(0-11)
;		byte 6   	null
;		byte 7   	weekday (1-7, 1 = Sunday)	
;
;	ProDOS class 0 format 'date' structure (2 bytes)
;
;		bits 0-4	day	(1-31)
;		bits 5-8	month	(1-12)
;		bits 9-15	year	(year-1900)
;
;	ProDOS class 0 format 'time' structure (2 bytes)
;
;		bits 0-7	minute	(0-59)
;		bits 8-15	hour	(0-23)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;------------------------------------------------------------------------------
; Storage used by the tree routines
;------------------------------------------------------------------------------

; data register equivalents

		EXPORT	d0
		EXPORT	d1
		EXPORT	d2
		EXPORT	d3
		EXPORT	d4
		EXPORT	d5
		EXPORT	d6
		EXPORT	d7
		
d0		DS.B	4
d1		DS.B	4
d2		DS.B	4
d3		DS.B	4
d4		DS.B	4
d5		DS.B	4
d6		DS.B	4
d7		DS.B	4

; data storage used for the Catalog Tree

		EXPORT	cky_buffer
		EXPORT	cat_buffer

cky_buffer	DS.B	max_cky_len		;buffer for CTree Key Record
cat_buffer	DS.B	max_cat_len		;buffer for CTree Catalog Record
ctree_idx_rec	DS.B	max_cky_len+len_ptr	;Index Record (Key + Ptr) for CTree
ctree_tpt	DS.B	len_tpt			;Tree Path Table for CTree

; data storage used for the Extents Tree

		EXPORT	eky_buffer
		EXPORT	ext_buffer

eky_buffer	DS.B	len_eky			;buffer for ETree Key Record
ext_buffer	DS.B	len_ext			;buffer for ETree Extents Record
etree_idx_rec	DS.B	len_eky+len_ptr		;Index Record (Key + Ptr) for ETree
etree_tpt	DS.B	len_tpt			;Tree Path Table for ETree

; node buffers   

		EXPORT	node_buf1
		EXPORT	node_buf2
		EXPORT	node_buf3
		EXPORT	node_buf4

node_buf1	DS.B	len_node_buf		;first node buffer
node_buf2	DS.B	len_node_buf		;second node buffer
node_buf3	DS.B	len_node_buf		;third node buffer
node_buf4	DS.B	len_node_buf		;fourth node buffer


;------------------------------------------------------------------------------
; Miscellaneous	storage
;------------------------------------------------------------------------------

; call information

class		DS.B	2			;current class #
call		DS.B	2			;current call #
trans_call	DS.B	2			;translated call # times 2
call_flags	DS.B	2			;call flags word
min_pcount	DS.B	2			;minimum pcount for call
max_pcount	DS.B	2			;maximum pcount for call
param_count	DS.B	2			;parameter count
param_index	DS.B	2			;parameter list index
param_flags	DS.B	2			;flags word for	parameter
input_error	DS.B	2			;storage for input error
error_priority	DS.B	2			;storage for error priority

; pathname information

x_path_flag	DS.B	2			;non-zero if pathname specified, else 0
x_dev_num	DS.B	2			;device number if specified, else 0
x_span		DS.B	2			;maximum span of pathname
volname		DS.B	30			;volume	name in	gstring	format
name_count	DS.B	2			;count of names	in pathname 
first_offset	DS.B	2			;offset to first name in pathname
last_offset	DS.B	2			;offset to last name in pathname
current_offset	DS.B	2			;offset to current name in pathname

; vcr information 

		EXPORT	ablk_size
		EXPORT	ctree_fcr_ptr
		EXPORT	etree_fcr_ptr
		
ablk_size	DS.B	4			;allocation block size (in bytes)
ablk_start	DS.B	2			;loc of first alloc block (P blk #)
pblks_per_ablk	DS.B	2			;# of physical blocks per alloc block
ctree_fcr_ptr	DS.B	4			;ptr to fcr for CTree
etree_fcr_ptr	DS.B	4			;ptr to fcr for ETree

; fcr information

type		DS.B	2			;fcr type
block_mark	DS.B	2			;block buffer mark
block_num	DS.B	4			;# of physical block in block buffer
block_count	DS.B	4			;# physical blocks until end of extent

; Catalog Record information

catalog_hint	DS.B	4			;catalog hint
parent_id	DS.B	4			;parent dir ID
id		DS.B	4			;file/dir ID
record_type	DS.B	2			;Catalog Record type
record_name	DS.B	32			;Catalog Record name (class 0 string)

; newline information

newline_mask	DS.B	2			;mask for newline
newline_ptr	DS.B	4			;pointer to newline list
newline_length	DS.B	2			;length	of newline list
newline_char	DS.B	2			;first byte of newline list
newline_flag	DS.B	2			;1 if newline char found, else 0

; read/write information

bytes_left	DS.B	4			;# bytes until request is satisfied
xfer_count	DS.B	4			;# bytes transfered
write_occurred	DS.B	2			;non-zero if write occurred during app call
write_dev_num	DS.B	2			;device # written to

; Change_Path local data storage

src_vcr_id	DS.B	2			;vcr ID 
src_dev_num	DS.B	2			;device number
src_cat_hint	DS.B	4			;catalog hint
src_parent_id	DS.B	4			;parent dir ID 
src_id		DS.B	4			;file/dir ID
src_record_name	DS.B	32			;Catalog Record name (class 0 string)
src_locked	DS.B	2			;error code from 'is_file_unlocked'
src_is_vol	DS.B	2			;1 if source is volume dir, else 0

; Scan_devices local data storage

current_device	DS.B	2			;current device #
start_device	DS.B	2			;starting device #

; Data_buf_read/data_buf_write local data storage

num_blocks	DS.B	4			;number of blocks to read/write

; Create local data storage

requested_stype	DS.B	2			;requested storage type 

; Look_for_fcr local data storage

fcr_index	DS.B	2			;index into FCR list 

; Get_Dev_Num flag (if set, process_path doesn't call walk_path)

Doing_GDN	ds.b	2			; non-zero if Get_Dev_Num is the active call

; miscellaneous information

		EXPORT	time
		EXPORT	save_gbuf_ptr2
		
time		DS.B	4			;date/time at start of call (in seconds)
save_gbuf_ptr1	DS.B	4			;ptr to 512 byte general purpose buffer
save_gbuf_ptr2	DS.B	4			;ptr to 512 byte general purpose buffer
stack_vp	DS.B	4			;(VP) to psuedo stack for tree routines
						; changed to MM handle 3/23/92 by
						; Monte Benaresh
save_drvr_cache	DS.B	2			;value of <drvr_cache at call start
option_flag	DS.B	2			;1 = option list valid, else 0
id_disk_flag	DS.B	2			;1 = id_disk routine active, else 0
cp_device_flag	DS.B	2			;1 = ChangePath using device name, else 0
io_flag		DS.B	2			;I/O flag for process_params
wp_status_flag 	DS.B	2			;1 = disk is write-protected
gde_buf_err	DS.B	2			;0 = no buffer error from GetDirEntry
status_list	DS.B	6			;space for status list

disk_name0	DS.B	1			;MUST PRECEED disk_name !!!
disk_name	DS.B	31			;disk name in gstring format

; Space to save driver direct page during do_rw_call

saved_drvr_dp	DS.B	len_drvr_dp		;space to save driver direct page


;------------------------------------------------------------------------------
; Strings and Constants
;------------------------------------------------------------------------------

ctree_str	DC.W	7			;filename string for CTree FCR
		DC.B	' CTree '
		DC.B	$00
		
etree_str	DC.W	7			;filename string for ETree FCR
		DC.B	' ETree '
		DC.B	$00
		
fake_name_str	DC.W	6			;fake name string for VCR
		DC.B	$C
		DC.B	$A
		DC.B	$E
		DC.B	$C
		DC.B	$A
		DC.B	$F
		DC.B	$00
		
control_list	DC.W	10			;partition owner name for FORMAT and ERASE
		DC.B	'Apple_HFS'		
		DC.B	$00			;must end with a NUL
		
syntax_str	DC.B	end_text-start_text			
start_text	DC.B	'HFS names may contain any character except a colon (:). '
		DC.B	'Disk names may be up to 27 characters long. '
		DC.B	'File and folder names may be up to 31 characters long.'
end_text

max_dt_values					;maximum date/time values 
		DC.B	59			;max second value 
		DC.B	59			;max minute value 
		DC.B	23			;max hour value 
		DC.B	255			;max year value 
		DC.B	30			;max day value 
		DC.B	11			;max month value 
		DC.B	0			;max null value 
		DC.B	7			;max weekday value 


;------------------------------------------------------------------------------
; Constant data for CTree and ETree BCRs
;------------------------------------------------------------------------------

ctree_bcr_data					;start of default data for ctree bcr
		DC.L	ct_compare_key		;ptr to ctree's key compare routine
		DC.L	ctree_idx_rec		'ptr to ctree's index record buffer
		DC.L	ctree_tpt		;ptr to ctree's Tree Path Table

etree_bcr_data					;start of default data for etree bcr
		DC.L	et_compare_key		;ptr to etree's key compare routine
		DC.L	etree_idx_rec		'ptr to etree's index record buffer
		DC.L	etree_tpt		;ptr to etree's Tree Path Table

len_bcr_data	equ	etree_bcr_data-ctree_bcr_data


;------------------------------------------------------------------------------
; HFS creator/filetype <-> ProDOS filetype/auxtype conversion table
;------------------------------------------------------------------------------

conversion_table
 		DC.B	'pdos'			;HFS creator
		DC.B	'PS16'			;HFS filetype
		DC.B	$B3			;ProDOS filetype
		DC.B	$00			;ProDOS auxtype
		
		DC.B	'pdos'			;HFS creator
		DC.B	'PSYS'			;HFS filetype
		DC.B	$FF			;ProDOS filetype
		DC.B	$00			;ProDOS auxtype

		DC.L	$FFFFFFFF		;matches any HFS creator
		DC.B	'BINA'			;HFS filetype
		DC.B	$00			;ProDOS filetype
		DC.B	$00			;ProDOS auxtype
		
		DC.L	$FFFFFFFF		;matches any HFS creator
		DC.B	'TEXT'			;HFS filetype
		DC.B	$04			;ProDOS filetype
		DC.B	$00			;ProDOS auxtype
		
		DC.L	$FFFFFFFF		;matches any HFS creator
		DC.B	'MIDI'			;HFS filetype
		DC.B	$D7			;ProDOS filetype
		DC.B	$00			;ProDOS auxtype
		
		DC.L	$FFFFFFFF		;matches any HFS creator
		DC.B	'AIFF'			;HFS filetype
		DC.B	$D8			;ProDOS filetype
		DC.B	$00			;ProDOS auxtype
		
		DC.L	$FFFFFFFF		;matches any HFS creator
		DC.B	'AIFC'			;HFS filetype
		DC.B	$D8			;ProDOS filetype
		DC.B	$01			;ProDOS auxtype
		
		DC.B	'dCpy'			;HFS creator
		DC.B	'dImg'			;HFS filetype
		DC.B	$E0			;ProDOS filetype
		DC.B	$05			;ProDOS auxtype
end_table
		
entry_size	equ	10			;size of a table entry in bytes
table_size	equ	end_table-conversion_table	;size of the table in bytes


;------------------------------------------------------------------------------
; Bouncing errors list
;------------------------------------------------------------------------------

bounce_list	dc.w	bad_system_call
		dc.w	invalid_pcount
		dc.w	bad_path_syntax
		dc.w	vol_not_found
		dc.w	unknown_vol
		dc.w	not_block_dev
end_bounce_list					;end of bounce list


		eject
;------------------------------------------------------------------------------
; Dispatch table for application commands
;------------------------------------------------------------------------------

app_tbl		DC.W	create			;($01) create
		DC.W	destroy			;($02) destroy
		DC.W	cmd_error		;($03) unimplemented
		DC.W	change_path		;($04) change_path
		DC.W	set_file_info		;($05) set_file_info
		DC.W	get_file_info		;($06) get_file_info
		DC.W	judge_name		;($07) judge_name
		DC.W	volume			;($08) volume
		DC.W	cmd_error		;($09) set_prefix
		DC.W	cmd_error		;($0A) get_prefix
		DC.W	clear_backup		;($0B) clear_backup
		DC.W	cmd_error		;($0C) unimplemented
		DC.W	cmd_error		;($0D) unimplemented
		DC.W	cmd_error		;($0E) unimplemented
		DC.W	cmd_error		;($0F) unimplemented
		DC.W	open			;($10) open
		DC.W	cmd_error		;($11) newline
		DC.W	read			;($12) read
		DC.W	write			;($13) write
		DC.W	close			;($14) close
		DC.W	flush			;($15) flush
		DC.W	set_mark		;($16) set_mark
		DC.W	get_mark		;($17) get_mark
		DC.W	set_eof			;($18) set_eof
		DC.W	get_eof			;($19) get_eof
		DC.W	cmd_error		;($1A) set_level
		DC.W	cmd_error		;($1B) get_level
		DC.W	get_dir_entry		;($1C) get_dir_entry
		DC.W	cmd_error		;($1D) unimplemented
		DC.W	cmd_error		;($1E) unimplemented
		DC.W	cmd_error		;($1F) unimplemented
		DC.W	get_dev_num		;($20) get_dev_num
		DC.W	cmd_error		;($21) get_last_dev
		DC.W	cmd_error		;($22) read_block
		DC.W	cmd_error		;($23) write_block
		DC.W	format			;($24) format
		DC.W	erase_disk		;($25) erase_disk
		DC.W	cmd_error		;($26) get_pathname
		DC.W	cmd_error		;($27) get_name
		DC.W	cmd_error		;($28) get_boot_vol
		DC.W	cmd_error		;($29) quit
		DC.W	cmd_error		;($2A) get_version
		DC.W	cmd_error		;($2B) get_fst_info
		DC.W	cmd_error		;($2C) d_info
		DC.W	cmd_error		;($2D) d_status
		DC.W	cmd_error		;($2E) d_control
		DC.W	cmd_error		;($2F) d_read
		DC.W	cmd_error		;($30) d_write
		DC.W	cmd_error		;($31) alloc_interrupt
		DC.W	cmd_error		;($32) dealloc_interrupt
		DC.W	fst_op_error		;($33) fst_specific


;------------------------------------------------------------------------------
; Dispatch table for system commands
;------------------------------------------------------------------------------

sys_tbl		DC.W	init_fst		;startup fst
		DC.W	kill_fst		;shutdown fst
		DC.W	kill_vcr		;releasing a VCR
		DC.W	flush_def		;flush deferred blocks


;------------------------------------------------------------------------------
; Dispatch table for fst_specific commands
;------------------------------------------------------------------------------

;fst_tbl	DC.W	0000			;(no FST specific calls yet)

		eject
;------------------------------------------------------------------------------
; Call List
;------------------------------------------------------------------------------

; The following	list is used to translate GS/OS application calls, which this 
; FST handles, into sequential values.
 
call_list	DC.B	$01			;create
		DC.B	$02			;destroy
		DC.B	$04			;change path
		DC.B	$05			;set file info
		DC.B	$06			;get file info
		DC.B	$07			;judge name
		DC.B	$08			;volume
		DC.B	$0B			;clear backup bit
		DC.B	$10			;open
		DC.B	$12			;read
		DC.B	$13			;write
		DC.B	$14			;close
		DC.B	$15			;flush
		DC.B	$16			;set mark
		DC.B	$17			;get mark
		DC.B	$18			;set eof
		DC.B	$19			;get eof
		DC.B	$1C			;get dir entry
		DC.B	$20			;get dev num
		DC.B	$24			;format
		DC.B	$25			;erase
;		DC.B	$33			;fst specific
end_call_list					;end of call list


;------------------------------------------------------------------------------
; Call Flags Table
;------------------------------------------------------------------------------

; The following	table is used to setup and verify some parameters.
; Each call has	a one word entry in the	table with the following format:
;
;     1	- Max pcount for the call
;     2	- Min pcount for the call
;     3	- Pathnames used by call
;     4	- Volume control record	used
;     5	- File control record used
;
;	        |5|4|3|	 2  |	 1    |
;      _________|_|_|_|_____|_________|
;     |	| | | |	| | | |	| | | |	| | | |
;     |_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|
;     |		      |		      |
;      f	     8 7	     0

call_flags_tbl	DC.W	max_pcnt7+min_pcnt1+path_used 		;Create
		DC.W	max_pcnt1+min_pcnt1+path_used 		;Destroy
		DC.W	max_pcnt3+min_pcnt2+path_used 		;Change_path (maxpcnt3 5-Dec-91 MSD)
		DC.W	max_pcnt12+min_pcnt2+path_used 		;Set_file_info
		DC.W	max_pcnt12+min_pcnt2+path_used 		;Get_file_Info
		DC.W	max_pcnt6+min_pcnt3	 		;Judge_name
		DC.W	max_pcnt6+min_pcnt2			;Volume
		DC.W	max_pcnt1+min_pcnt1+path_used 		;Clear_backup
		DC.W	max_pcnt15+min_pcnt2+path_used 		;Open
		DC.W	max_pcnt5+min_pcnt4+vcr_used+fcr_used 	;Read
		DC.W	max_pcnt5+min_pcnt4+vcr_used+fcr_used	;Write
		DC.W	max_pcnt1+min_pcnt1+vcr_used+fcr_used 	;Close
		DC.W	max_pcnt2+min_pcnt1+vcr_used+fcr_used	;Flush
		DC.W	max_pcnt3+min_pcnt3+vcr_used+fcr_used 	;Set_mark
		DC.W	max_pcnt2+min_pcnt2+fcr_used 		;Get_mark
		DC.W	max_pcnt3+min_pcnt3+vcr_used+fcr_used 	;Set_eof
		DC.W	max_pcnt2+min_pcnt2+fcr_used 		;Get_eof
		DC.W	max_pcnt17+min_pcnt5+vcr_used+fcr_used 	;Get_dir_entry
		DC.W	max_pcnt2+min_pcnt2+path_used 		;Get_dev_num
		DC.W	max_pcnt6+min_pcnt1+path_used		;Format
		DC.W	max_pcnt6+min_pcnt1+path_used		;Erase
;		DC.W	max_pcnt2+min_pcnt2			;Fst_specific

		eject
;------------------------------------------------------------------------------
; Parameter List Tables
;------------------------------------------------------------------------------

; The following	tables point to	the parameter lists for class 0 and 1 app calls.
 
param_list_tbl_0
		DC.W	call_01_class0		;Create
		DC.W	call_02_class0		;Destroy
		DC.W	call_04_class0		;Change_path
		DC.W	call_05_class0		;Set_file_info
		DC.W	call_06_class0		;Get_file_info
		DC.W	0			;Judge_name (class 1 call only)
		DC.W	call_08_class0		;Volume
		DC.W	call_0B_class0		;Clear_backup
		DC.W	call_10_class0		;Open
		DC.W	call_12_class0		;Read
		DC.W	call_13_class0		;Write
		DC.W	call_14_class0		;Close
		DC.W	call_15_class0		;Flush
		DC.W	call_16_class0		;Set_mark
		DC.W	call_17_class0		;Get_mark
		DC.W	call_18_class0		;Set_eof
		DC.W	call_19_class0		;Get_eof
		DC.W	call_1c_class0		;Get_dir_entry
		DC.W	call_20_class0		;Get_dev_num
		DC.W	call_24_class0		;Format
		DC.W	call_25_class0		;Erase_disk

param_list_tbl_1
		DC.W	call_01_class1		;Create
		DC.W	call_02_class1		;Destroy
		DC.W	call_04_class1		;Change_path
		DC.W	call_05_class1		;Set_file_info
		DC.W	call_06_class1		;Get_file_info
		DC.W	call_07_class1		;Judge_name (class 1 call only)
		DC.W	call_08_class1		;Volume
		DC.W	call_0B_class1		;Clear_backup
		DC.W	call_10_class1		;Open
		DC.W	call_12_class1		;Read
		DC.W	call_13_class1		;Write
		DC.W	call_14_class1		;Close
		DC.W	call_15_class1		;Flush
		DC.W	call_16_class1		;Set_mark
		DC.W	call_17_class1		;Get_mark
		DC.W	call_18_class1		;Set_eof
		DC.W	call_19_class1		;Get_eof
		DC.W	call_1c_class1		;Get_dir_entry
		DC.W	call_20_class1		;Get_dev_num
		DC.W	call_24_class1		;Format
		DC.W	call_25_class1		;Erase_disk
;		DC.W	call_33_class1		;Fst_specific (class 1 call only)


;------------------------------------------------------------------------------
; Parameter Lists
;------------------------------------------------------------------------------

; Each call has	a list of one word entries with	the following format:
;
;     1	- parameter number 
;     2	- I/O flag: 0 =	input, 1 = output
;     3	- parameter offset
;     4	- Terminator: 1	= last entry in	list
;
;     |4|      3      |2|      1      |
;     |_|_____________|_|_____________|
;     |	| | | |	| | | |	| | | |	| | | |
;     |_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|
;     |		      |		      |
;      f	     8 7	     0  

*
* Create parameter lists.
*

call_01_class0	DC.W	i_pathname+offset0
		DC.W	i_access+offset4
		DC.W	i_file_type+offset6
		DC.W	i_aux_type+offset8
		DC.W	i_storage_type+offsetC
		DC.W	i_create_date+offsetE
		DC.W	i_create_time+offset10+terminate_flag

call_01_class1	DC.W	i_pcount+offset0
		DC.W	i_pathname+offset2
		DC.W	i_access+offset6
		DC.W	i_file_type+offset8
		DC.W	i_aux_type+offsetA
		DC.W	i_storage_type+offsetE
		DC.W	i_eof+offset10
		DC.W	i_resource_eof+offset14+terminate_flag
*
* Destroy parameter lists.
*

call_02_class0	DC.W	i_pathname+offset0+terminate_flag

call_02_class1	DC.W	i_pcount+offset0
		DC.W	i_pathname+offset2+terminate_flag

*
* Change_path parameter lists.
*

call_04_class0	DC.W	i_pathname+offset0
		DC.W	i_new_pathname+offset4+terminate_flag

call_04_class1	DC.W	i_pcount+offset0
		DC.W	i_pathname+offset2
		DC.W	i_new_pathname+offset6
		DC.W	i_cp_flags+offsetA+terminate_flag	; Added 5-Dec-91 MSD

*
* Set_file_info	parameter lists.
*

call_05_class0	DC.W	i_pathname+offset0
		DC.W	i_access+offset4
		DC.W	i_file_type+offset6
		DC.W	i_aux_type+offset8
		DC.W	i_create_date+offsetE
		DC.W	i_create_time+offset10
		DC.W	i_mod_date+offset12
		DC.W	i_mod_time+offset14+terminate_flag

call_05_class1	DC.W	i_pcount+offset0
		DC.W	i_pathname+offset2
		DC.W	i_access+offset6
		DC.W	i_file_type+offset8
		DC.W	i_aux_type+offsetA
		DC.W	i_null+offsetE
		DC.W	i_create_date_time+offset10
		DC.W	i_mod_date_time+offset18
		DC.W	i_option_list+offset20+terminate_flag

*
* Get_file_info	parameter lists.
*

call_06_class0	DC.W	i_pathname+offset0
		DC.W	o_access+offset4
		DC.W	o_file_type+offset6
		DC.W	o_aux_type+offset8
		DC.W	o_storage_type+offsetC
		DC.W	o_create_date+offsetE
		DC.W	o_create_time+offset10
		DC.W	o_mod_date+offset12
		DC.W	o_mod_time+offset14
		DC.W	o_blocks_used+offset16+terminate_flag

call_06_class1	DC.W	i_pcount+offset0
		DC.W	i_pathname+offset2
		DC.W	o_access+offset6
		DC.W	o_file_type+offset8
		DC.W	o_aux_type+offsetA
		DC.W	o_storage_type+offsetE
		DC.W	o_create_date_time+offset10
		DC.W	o_mod_date_time+offset18
		DC.W	o_option_list+offset20
		DC.W	o_eof+offset24
		DC.W	o_blocks_used+offset28
		DC.W	o_resource_eof+offset2C
		DC.W	o_resource_blocks+offset30+terminate_flag

*
* Judge_name parameter list (this is a class 1 call only).
* 

call_07_class1	DC.W	i_pcount+offset0
		DC.W	i_file_sys_id+offset2
		DC.W	i_name_type+offset4
		DC.W	o_syntax+offset6
		DC.W	o_max_len+offsetA
		DC.W	i_name+offsetC
		DC.W	o_name_flags+offset10+terminate_flag

*
* Volume parameter lists.
*

call_08_class0	DC.W	i_devname+offset0
		DC.W	o_volname+offset4
		DC.W	o_total_blocks+offset8
		DC.W	o_free_blocks+offsetC
		DC.W	o_file_sys_id+offset10+terminate_flag

call_08_class1	DC.W	i_pcount+offset0
		DC.W	i_devname+offset2
		DC.W	o_volname+offset6
		DC.W	o_total_blocks+offsetA
		DC.W	o_free_blocks+offsetE
		DC.W	o_file_sys_id+offset12
		DC.W	o_block_size+offset14+terminate_flag

*
* Clear_backup parameter lists.
*

call_0B_class0	DC.W	i_pathname+offset0+terminate_flag

call_0B_class1	DC.W	i_pcount+offset0
		DC.W	i_pathname+offset2+terminate_flag

*
* Open parameter lists.
*

call_10_class0	DC.W	o_ref_num+offset0
		DC.W	i_pathname+offset2+terminate_flag

call_10_class1	DC.W	i_pcount+offset0
		DC.W	o_ref_num+offset2
		DC.W	i_pathname+offset4
		DC.W	i_request_access+offset8
		DC.W	i_resource_num+offsetA
		DC.W	o_access+offsetC
		DC.W	o_file_type+offsetE
		DC.W	o_aux_type+offset10
		DC.W	o_storage_type+offset14
		DC.W	o_create_date_time+offset16
		DC.W	o_mod_date_time+offset1E
		DC.W	o_option_list+offset26
		DC.W	o_eof+offset2A
		DC.W	o_blocks_used+offset2E
		DC.W	o_resource_eof+offset32
		DC.W	o_resource_blocks+offset36+terminate_flag

*
* Read and Write parameter lists.
*

call_12_class0	
call_13_class0	DC.W	i_ref_num+offset0
		DC.W	i_data_buffer+offset2
		DC.W	i_request_count+offset6
		DC.W	o_transfer_count+offsetA+terminate_flag

call_12_class1	
call_13_class1	DC.W	i_pcount+offset0
		DC.W	i_ref_num+offset2
		DC.W	i_data_buffer+offset4
		DC.W	i_request_count+offset8
		DC.W	o_transfer_count+offsetC
		DC.W	i_cache_priority+offset10+terminate_flag

*
* Close	parameter list.
*

call_14_class0	DC.W	i_ref_num+offset0+terminate_flag

call_14_class1	DC.W	i_pcount+offset0
		DC.W	i_ref_num+offset2+terminate_flag

*
* Flush parameter list.
*

call_15_class0	DC.W	i_ref_num+offset0+terminate_flag
		
call_15_class1	DC.W	i_pcount+offset0
		DC.W	i_ref_num+offset2
		DC.W	i_flush_type+offset4+terminate_flag

*
* Set_mark and Set_eof parameter lists.
*

call_16_class0	
call_18_class0	DC.W	i_ref_num+offset0
		DC.W	i_displacement+offset2+terminate_flag

call_16_class1	
call_18_class1	DC.W	i_pcount+offset0
		DC.W	i_ref_num+offset2
		DC.W	i_base+offset4
		DC.W	i_displacement+offset6+terminate_flag

*
* Get_mark parameter lists.
*

call_17_class0	DC.W	i_ref_num+offset0
		DC.W	o_position+offset2+terminate_flag

call_17_class1	DC.W	i_pcount+offset0
		DC.W	i_ref_num+offset2
		DC.W	o_position+offset4+terminate_flag

*
* Get_eof parameter lists.
*

call_19_class0	DC.W	i_ref_num+offset0
		DC.W	o_eof+offset2+terminate_flag

call_19_class1	DC.W	i_pcount+offset0
		DC.W	i_ref_num+offset2
		DC.W	o_eof+offset4+terminate_flag

*
* Get_dir_entry	parameter lists.
*

call_1c_class0	DC.W	i_ref_num+offset0
		DC.W	o_extended_flag+offset2
		DC.W	i_base+offset4
		DC.W	i_displacement+offset6
		DC.W	o_name+offset8
		DC.W	o_entry_num+offsetC
		DC.W	o_file_type+offsetE
		DC.W	o_eof+offset10
		DC.W	o_blocks_used+offset14
		DC.W	o_create_date_time+offset18
		DC.W	o_mod_date_time+offset20
		DC.W	o_access+offset28
		DC.W	o_aux_type+offset2A
		DC.W	o_file_sys_id+offset2E+terminate_flag

call_1c_class1	DC.W	i_pcount+offset0
		DC.W	i_ref_num+offset2
		DC.W	o_extended_flag+offset4
		DC.W	i_base+offset6
		DC.W	i_displacement+offset8
		DC.W	o_name+offsetA
		DC.W	o_entry_num+offsetE
		DC.W	o_file_type+offset10
		DC.W	o_eof+offset12
		DC.W	o_blocks_used+offset16
		DC.W	o_create_date_time+offset1A
		DC.W	o_mod_date_time+offset22
		DC.W	o_access+offset2A
		DC.W	o_aux_type+offset2C
		DC.W	o_file_sys_id+offset30
		DC.W	o_option_list+offset32
		DC.W	o_resource_eof+offset36
		DC.W	o_resource_blocks+offset3A+terminate_flag

*
* Get_dev_num parameter lists.
*

call_20_class0	DC.W	i_devname+offset0
		DC.W	o_dev_number+offset4+terminate_flag

call_20_class1	DC.W	i_pcount+offset0
		DC.W	i_devname+offset2
		DC.W	o_dev_number+offset6+terminate_flag
*
* Format and Erase_disk parameter lists.
*

call_24_class0
call_25_class0	DC.W	i_devname+offset0+terminate_flag

call_24_class1
call_25_class1	DC.W	i_pcount+offset0
		DC.W	i_devname+offset2+terminate_flag
*
* Fst_specific parameter list (this is always a class 1 call).
* @@@ no fst_specific commands supported yet
*

;call_33_class1	DC.W	i_pcount+offset0
;		DC.W	i_command_num+offset4+terminate_flag


;------------------------------------------------------------------------------
; Parameter Handlers Table
;------------------------------------------------------------------------------

; The following	table is a list	of the parameter handler addresses.
; Note - this table is indexed using the parameter number * 2

handlers_tbl	
		DC.W	ih_ref_num		
		DC.W	ih_access		 
		DC.W	ih_storage_type		
		DC.W	ih_file_type		
		DC.W	ih_aux_type		
		DC.W	ih_eof			 
		DC.W	ih_resource_eof		
		DC.W	ih_create_date		
		DC.W	ih_create_time		
		DC.W	ih_mod_date		
		DC.W	ih_mod_time		
		DC.W	ih_create_date_time	
		DC.W	ih_mod_date_time	
		DC.W	ih_volname		
		DC.W	ih_option_list		
		DC.W	ih_pcount		
		DC.W	ih_command_num		
		DC.W	ih_resource_num		
		DC.W	ih_cache_priority	
		DC.W	ih_request_access	
		DC.W	ih_request_count	
		DC.W	ih_base			
		DC.W	ih_displacement		
		DC.W	ih_pathname		
		DC.W	ih_new_pathname		
		DC.W	ih_devname		
		DC.W	ih_data_buffer
		DC.W	ih_null		
		DC.W	ih_flush_type
		DC.W	ih_file_sys_id		
		DC.W	ih_name_type		
		DC.W	ih_name		
		DC.W	oh_ref_num		
		DC.W	oh_access		 
		DC.W	oh_storage_type		
		DC.W	oh_file_type		
		DC.W	oh_aux_type		
		DC.W	oh_eof			 
		DC.W	oh_resource_eof		
		DC.W	oh_create_date		
		DC.W	oh_create_time		
		DC.W	oh_mod_date		
		DC.W	oh_mod_time		
		DC.W	oh_create_date_time	
		DC.W	oh_mod_date_time	
		DC.W	oh_volname		
		DC.W	oh_option_list
		DC.W	oh_transfer_count	
		DC.W	oh_position		
		DC.W	oh_entry_num		  
		DC.W	oh_dev_number		
		DC.W	oh_file_sys_id		 
		DC.W	oh_block_size		  
		DC.W	oh_extended_flag		  
		DC.W	oh_total_blocks		  
		DC.W	oh_blocks_used		
		DC.W	oh_free_blocks		
		DC.W	oh_resource_blocks	
		DC.W	oh_name			
		DC.W	oh_syntax			
		DC.W	oh_max_len			
		DC.W	oh_name_flags			
		DC.W	ih_cp_flags		; 5-Dec-91 MSD

******************************************************************************
		ENDR
		
		eject
******************************************************************************
*
*	 Name:	sys_entry
*
* Description:	Entry point for	all FST	system calls.  Called by GS/OS only.
*
*	Entry:	jsl
*
*	 Exit:	rtl
*
*	Input:	A = undefined
*		X = call number	times 2
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*
*      Output:	A = error code if carry	set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*	 Uses:	
*
*   Called by:	SCM
*
*	Calls:	all system call handlers
*
* Copyright Apple Computer, Inc. 1987-90  All rights reserved.
******************************************************************************

sys_entry	PROC
		with	data

*
* Setup	environment.
*
		phk				;setup our data bank register
		plb
*
* Call # valid?
*
		cpx	#max_sys_cmd+1		;command # in range?
		bcc	valid			;yes
		lda	#bad_system_call	;no - so get error code
		rtl				;and exit with carry set
*
* Jump to call handler.
*
valid		jmp	(sys_tbl-2,x)		;do it

		ENDP
		
		eject
******************************************************************************
*
*	 Name:	init_fst
*
* Description:	This routine is called by SCM to startup the HFS FST.
*
*	Entry:	jmp
*
*	 Exit:	rtl
*
*	Input:	A = undefined
*		X = call number	times 2
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		>warm_cold_flag - 0 if cold startup, non-zero if warm startup
*
*      Output:	A = error code if carry	set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*		save_gbuf_ptr1 - ptr to 512 byte general purpose buffer
*		save_gbuf_ptr2 - ptr to 512 byte general purpose buffer
*		stack_vp - (vp) handle for psuedo stack
*
*	 Uses:	all registers
*
*   Called by:	sys_entry
*
*	Calls:	get_sys_gbuf	(system service)
*		alloc_seg	(system service)
*
* Copyright Apple Computer, Inc. 1989-90  All rights reserved.
******************************************************************************

init_fst	PROC
		with	data

*
* Get the pointer to GS/OS's 1K general purpose buffer.
* We'll use the space as two 512 byte buffers, so we'll save two pointers.
*
		jsl	get_sys_gbuf		;get ptr to GS/OS's general purpose buffer 
		stx	save_gbuf_ptr1		;and save as ptr to first 512 byte buffer
		sty	save_gbuf_ptr1+2
		
		clc				;calculate ptr to the second 512 bytes
		txa
		adc	#512
		sta	save_gbuf_ptr2		;and save
		tya
		adc	#0
		sta	save_gbuf_ptr2+2

;;; 7-Apr-92 DAL -- Allocate bank 0 block on every startup
;;;                 (But GS/OS never calls us warm!  Will fix this.)
;*
;* Are we doing a warm startup?  Don't re-allocate psuedo stack if so.
;*
;		lda	>warm_cold_flag		;are we doing a warm startup?
;		bne	done			;yes - so we're done

*
* Get memory for psuedo stack and save vp.
*
;	memory allocation changed from Info Manager segment to a Memory Manager
;	block in bank 0 so we can use stack relative instructions in the
;	push/pop routines for speed -- Monte Benaresh 3/23/92

		;lda	#stack_size		;get default stack size
		;jsl	alloc_seg		;allocate memory
		;bcs	mem_err			
		;stx	stack_vp		;save the VP
		;sty	stack_vp+2

		pha
		pha				;space for result
		pea stack_size>>16
		pea <stack_size			;size requested, should be an
						;even # of pages so that we don't
						;screw up bank $00 memory

		; now we get our MM ID and leave it on the stack for NewHandle

		pha				;space for result
		ldx #$0202			;MMStartUp
		jsl $E10000			;leave ID on stack

		; continue building stack frame for NewHandle

		pea $8015			;locked, can't cross bank or page,
						;fixed bank
		pea $0000			;address in bank $00
		pea $0000
		ldx #$0902			;NewHandle
		jsl $E10000
		plx
		stx stack_vp			;this is really a handle
		plx
		stx stack_vp+2
		bcs mem_err			;check error now

;	end Monte 3/23/92

*
* Indicate no error and exit.
*
done		clc				;indicate no error
		rtl				;exit
		
*
* Report an out of memory error.
*
mem_err		lda	#out_of_mem		;get error code
 		rtl				;exit with carry set

		ENDP
		
		eject
******************************************************************************
*
*	 Name:	kill_fst
*
* Description:	This routine is called by SCM to shutdown the HFS FST.
*
*	Entry:	jmp
*
*	Input:	A = undefined
*		X = call number	times 2
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		stack_vp - VP for psuedo stack
*		>warm_cold_flag - 0 if cold shutdown, non-zero if warm shutdown
*
*      Output:	A = error code if carry	set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*	 Exit:	rtl
*
*	 Uses:	all registers
*
*   Called by:	sys_entry
*
*	Calls:	release_seg	(system service)
*
* Copyright Apple Computer, Inc. 1987-90  All rights reserved.
******************************************************************************

kill_fst	PROC
		with	data

;;; 7-Apr-92 DAL -- Always release our bank 0 segment on a shutdown.
;*
;* Are we doing a warm shutdown?  Do nothing if so.
;*
;		clc				;precondition to no error
;		lda	>warm_cold_flag		;are we doing a warm shutdown?
;		bne	exit			;yes - so exit

*
* Release psuedo stack memory.
*

;	next code changed because the pseudo stack in now allocated
;	directly from the Memory Manager, and stack_vp actually
;	contains a handle

		;ldx	stack_vp		;get the VP
		;ldy	stack_vp+2
		;jsl	release_seg		;release the memory

		lda stack_vp+2
		pha
		lda stack_vp
		pha
		ldx #$1002			;DisposeHandle
		jsl $E10000

		stz stack_vp+2			;7-Apr-92 DAL
		stz stack_vp			;7-Apr-92 DAL

;	end Monte 3/23/92

exit		rtl				;pass any errors back to SCM

		ENDP
		
		eject
******************************************************************************
*
*	 Name:	kill_vcr
*
* Description:	This routine is called by SCM when a VCR is being released.
*
*	Entry:	jmp
*
*	Input:	A = undefined
*		X = call number	times 2
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<vcr_ptr - ptr to vcr
*
*      Output:	A = error code if carry	set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*	 Exit:	rtl
*
*	 Uses:	all registers
*
*   Called by:	sys_entry
*
*	Calls:	release_fcr	(system service)
*
* Copyright Apple Computer, Inc. 1989-90  All rights reserved.
******************************************************************************

kill_vcr	PROC
		with	data

*
* Release the CTree FCR.
* 
		ldy	#vcr_ct_ref_num		;get offset to ctree refnum
		lda	[vcr_ptr],y		;get refnum for ctree fcr
		jsl	release_fcr		;release the fcr
		bcs	exit
*
* Release the ETree FCR.
* 
		ldy	#vcr_et_ref_num		;get offset to etree refnum
		lda	[vcr_ptr],y		;get refnum for etree fcr
		jsl	release_fcr		;release the fcr

exit		rtl				;return any errors to SCM	
		
		ENDP
		
		eject
******************************************************************************
*
*	 Name:	flush_def
*
* Description:	This routine is called by SCM when the EndSession call is
*		issued.  
*
*	Notes:	It's the application's responsibility to guarantee that the disk 
*		will not be ejected while sessions are active.  If the disk is 
*		ejected, the device dispatcher will tell the cache manager
*		to purge the volume's blocks from the cache.  As a result,
*		we don't need to make sure the volume is online before
*		calling cache_flsh_def.
*		
*	Entry:	jmp
*
*	Input:	A = undefined
*		X = call number	times 2
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<vcr_ptr - ptr to vcr 
*
*      Output:	A = error code if carry	set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*	 Exit:	rtl
*
*	 Uses:	all registers
*		<drvr_vol_id
*		<drvr_dev_num
*		<drvr_fst_num
*		<drvr_blk_size
*		<drvr_req_cnt
*
*   Called by:	sys_entry
*
*	Calls:	cache_flsh_def		(system service)
*
* Copyright Apple Computer, Inc. 1990  All rights reserved.
******************************************************************************

flush_def	PROC
		with	data

*
* Setup information needed by cache_flsh_def.
*
		lda	[vcr_ptr]		
		sta	<drvr_vol_id		;set volume id

		ldy	#vcr_dev		
		lda	[vcr_ptr],y		
		sta	<drvr_dev_num		;set device num
		
		lda	#hfs_id			
		sta	<drvr_fst_num		;set fst id
 
		lda	#phys_blk_size		
		sta	<drvr_blk_size		;set block size

		sta	<drvr_req_cnt		
		stz	<drvr_req_cnt+2		;set request count
*
* Flush the volume's deferred blocks to disk.
*
		jsl	cache_flsh_def		;flush deferred blocks to disk
 		rtl				;return any errors to SCM	
		
		ENDP
		
		eject
******************************************************************************
*
*	 Name:	cmd_error
*
******************************************************************************

cmd_error	PROC						        
		lda	#bad_system_call	;get error code
		sec				;indicate error
		rts				;exit
		ENDP


******************************************************************************
*
*	 Name:	fst_op_error
*
******************************************************************************

fst_op_error	PROC						        
		lda	#invalid_fst_op		;get error code
		sec				;indicate error
		rts				;exit
		ENDP

		eject
******************************************************************************
*
*	 Name:	app_entry
*
* Description:	Entry point for	all application	calls.	Called by GS/OS	only.
*		Validates call before passing control to call handler.
*
*	Entry:	jml
*
*	 Exit:	jml sys_exit
*
*	Input:	A = undefined
*		X = call number	times 2
*		Y = class number times 2
*		P = nvmxdizc
*		    ..000...
*
*		<param_blk_ptr - ptr to parameter block
*		<vcr_ptr - VP to vcr (if used)
*		<fcr_ptr - VP to fcr (if used)
*		<path_flag - indicates if path1_ptr and/or path2_ptr are valid
*		<path1_ptr - pointer to pathname1 in gstring format
*			     if <dev1_num = 0, then pathname1 begins with a volume name
*			     if <dev1_num <> 0, then pathname1 has no volume name
*		<path2_ptr - pointer to pathname2 in gstring format
*			     if <dev2_num = 0, then pathname2 begins with a volume name
*			     if <dev2_num <> 0, then pathname2 has no volume name
*		<dev1_num (<dev_num) - device number if specified, else 0
*		<dev2_num - device number if specified, else 0
*		<span1 - maximum span of pathname1
*		<span2 - maximum span of pathname2
*
*      Output:	A = error code if carry	set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*	 Uses:	all registers
*		save_drvr_cache
*		<drvr_cache
*
*   Called by:	SCM
*
*	Calls:	setup_call
*		send_output
*		all application call handlers
*		post_os_event		(system service)
*
* Copyright Apple Computer, Inc. 1987-91  All rights reserved.
******************************************************************************

app_entry	PROC
		with	data

*
* Setup	environment.
*
		phk				;Setup our bank	register.
		plb
		rep	#$30			;Make sure in 16 bit mode.
*
* Call # valid?  Error if not.
*
		cpx	#max_app_cmd+1		;in range?
		bcc	command_ok		;yes
		jmp	cmd_error		;no	
command_ok
*
* Validate call, get input parameters, set up required information.
*
		phx				;Save (call number * 2)
		jsr	setup_call		
		plx				;Recover (call number * 2)
		bcs	exit			;bad call
*
* Save the current value of <drvr_cache.	
*
		lda	<drvr_cache		
		sta	save_drvr_cache		
*
* Execute the call handler.
*
		jsr	(app_tbl-2,x)		;do the call
		bcs	clean_up
*
* Send output parameters.
*
		jsr	send_output
*
* Save the error code (if any) and processor status.
*
clean_up	pha				;save error code
		php				;save status
*
* Set <drvr_cache back to its original value.
*
		lda	save_drvr_cache		;get old cache value
		sta	<drvr_cache		;set cache value
*
* If an FCR was used by the call then we need to update the global_clean_bit
* in the fcr_access word.
* If the file is dirty, then clear the global_clean_bit.
* Otherwise, set the global_clean_bit.
* Note - the file_dirty_bit is set by the Write and SetEof routines.
*
		lda	call_flags	
		and	#fcr_used		;was an fcr used by the call?
		beq	no_fcr			;no
		
		ldx	#global_clean_bit
		ldy	#fcr_flags
		lda	[my_fcr_ptr],y		;get the fcr flags
		and	#file_dirty_bit		;is the file dirty?
		beq	its_clean		;no
		ldx	#0			;yes
its_clean
		stx	<temp0
		ldy	#fcr_access
		lda	[my_fcr_ptr],y		;get the fcr_access word
		and	#global_clean_mask	;clear the global_clean_bit
		ora	<temp0			;set the global_clean_bit if the
		sta	[my_fcr_ptr],y		;file is clean
no_fcr
*
* If a volume was modified during the call then post a 'volume change' event.
*
		lda	write_occurred		;did a device write occur during this call?
		beq	no_write		;no
		lda	call			;yes - so push the call #
		pha
		lda	write_dev_num		;push the device #
		pha
		pha				;push a word of garbage
		lda	#volume_change		;get lo word of event code
		ldx	#^volume_change		;get hi word of event code
		jsl	post_os_event		;post the event
no_write
*
* Restore the error code (if any) and processor status and exit.
*
		plp				;restore status
		pla				;restore error code
		bcs	error_exit		;branch if error
		lda	gde_buf_err		;output buffer error from GetDirEntry?
		bne	error_exit		;yes - so branch
		lda	#no_error		;indicate no error
exit		jml	sys_exit		;exit to SCM
*
* We're reporting an error.
* Check to see if it's a BTree error. If so, mask off the hi byte of the error code.
* Before exiting to SCM, put the error priority in the hi byte of the error code.
*
error_exit	tax				;save error code
		and	#$C000			;are we reporting a BTree error?
		cmp	#$C000
		bne	@0			;no
		txa				;yes - so retrieve error code
		and	#$00ff			;mask off hi byte
		tax				;store new error code in X
@0		txa				;get error code
		ora	error_priority		;put error priority in hi byte
		sec				;indicate error
		jml	sys_exit		;exit to SCM
			
		ENDP
		
		eject
******************************************************************************
*
*	 Name:	setup_call
*
* Description:	This routine is	called at the start of each application call
*		to setup parameters and check the validity of the call.  
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = two	times the call #.
*		Y = two	times the class	#.
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<param_blk_ptr - ptr to parameter block
*		<vcr_ptr - VP to vcr (if used)
*		<fcr_ptr - VP to fcr (if used)
*		<path_flag - indicates if path1_ptr and/or path2_ptr are valid
*		<path1_ptr - pointer to pathname1 in gstring format
*			     if <dev1_num = 0, then pathname1 begins with a volume name
*			     if <dev1_num <> 0, then pathname1 has no volume name
*		<path2_ptr - pointer to pathname2 in gstring format
*			     if <dev2_num = 0, then pathname2 begins with a volume name
*			     if <dev2_num <> 0, then pathname2 has no volume name
*		<dev1_num - <dev_num - device number if specified, else 0
*		<dev2_num - device number if specified, else 0
*		<span1 - maximum span of pathname1
*		<span2 - maximum span of pathname2
*
*      Output:	A = error code if carry set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..0 if	no error
*			   1 if	error
*		B = K
*
*		call - call number
*		class - call class
*		trans_call - translated call # times 2
*		call_flags - call flags
*		max_pcount - maximum pcount for call
*		min_pcount - minimum pcount for call
*		input_error - error code from get_input
*		time - current date/time in seconds
*
*		<my_pblk_ptr - pointer to parameter block
*		<gbuf_ptr - ptr to 512 byte general purpose buffer
*		<stack_ptr - pointer to psuedo stack -1 for tree routines
*		<stack_index - index into psuedo stack -- now an actual address
*							  - Monte 3/26/92
*
*		<my_vcr_ptr - pointer to vcr (if used) 
*		ablk_size - allocation block size in bytes (if vcr used)
*		ablk_start - location of first alloc block (if vcr used)
*		pblks_per_ablk - # of physical blocks per alloc block (if vcr used)
*		ctree_fcr_ptr - ptr to fcr for CTree (if vcr used)
*		etree_fcr_ptr - ptr to fcr for ETree (if vcr used)
*
*		<my_fcr_ptr - pointer to fcr (if used)
*		type - fcr type (if fcr used)
*		eof - logical eof (if fcr used) 
*		file_mark - file mark (if fcr used) 
*		block_mark - block buffer mark (if fcr used)
*		block_num - # of physical block in block buffer (if fcr used)
*		block_count - # physical blocks until end of extent (if fcr used)
*		<block_buf_ptr - ptr to block buffer in fcr (if fcr used)
*
*		<my_path_ptr - pointer to pathname (if used)
*		x_dev_num - device number if specified, else 0 (if pathname used)
*		x_span - maximum span of pathname (if pathname used)
*		name_count - # of names in pathname (if pathname used)
*		first_offset - offset to first name in pathname (if pathname used)
*		last_offset - offset to last name in pathname (if pathname used)
*		volname	- holds volume name (if pathname used)
*
*		pcount - parameter count 
*		resource_num - resource number (if supplied)
*		cache_priority - cache priority	flag (if supplied)
*		request_access - request access	permissions (if supplied)
*		request_count - request count (if supplied)
*		base - base (if supplied)
*		displacement - displacement (if supplied)
*		ref_num - file reference number (if supplied)
*		access - access information (if supplied)
*		storage_type - storage type (if supplied)
*		file_type - file type (if supplied)
*		aux_type - aux type (if supplied)
*		eof - data fork end of file (if supplied)
*		resource_eof - resource fork end of file (if supplied)
*		create_date - create date (if supplied)
*		create_time - create time (if supplied)
*		mod_date - modification date (if supplied)
*		mod_time - modification time (if supplied)
*		create_date_time - create date/time (if supplied) 
*		mod_date_time - modification date/time (if supplied)
*		finder_info - option list finder info (if supplied)
*		parent_id - option list parent dir id (if supplied)
*		<data_buf_ptr - ptr to data buffer (if supplied)
*
*	 Uses:	all registers
*
*   Called by:	app_entry
*
*	Calls:	get_input
*		setup_vcr_info
*		setup_fcr_info
*		parse_path1
*		handle_conv_err
*		deref			(system service)
*		ConvSeconds		(Misc. Tools)
*
* Copyright Apple Computer, Inc. 1987-91 All rights reserved.
*------------------------------------------------------------------------------
* Each call has	a one word entry in the	table with the following
* format:
*
*     1	- Max PCount for the call
*     2	- Min PCount for the call
*     3	- Pathnames used by call
*     4	- Volume control record	used
*     5	- File control record used
*
*		|5|4|3|	 2  |	 1    |
*      _________|_|_|_|_____|_________|
*     |	| | | |	| | | |	| | | |	| | | |
*     |_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|
*     |		      |		      |
*    1 6	     0 8	     0 0
*
******************************************************************************

setup_call	PROC
		with	data

*
* Init some variables and flags.
*
		stz	id_disk_flag		;id_disk routine not active
		stz	option_flag		;option list invalid
		stz	cp_device_flag		;normal changepath
		stz	wp_status_flag		;write-protect status unknown	
		stz	write_occurred		;no write has occurred
		stz	input_error		;no input error	found	
		stz	gde_buf_err		;no GetDirEntry buffer error found
		stz	name_count		;name count is 0
		stz	error_priority		;error priority is 0
		stz	doing_gdn		;not doing get_dev_num (29-Oct-91 MSD)
*
* Set call and	class.
*
		txa				;Divide	call # by 2.
		lsr	a
		sta	call			;Set current call.

		tya				;Divide	class #	by 2.
		lsr	a
		sta	class			;Set current class.
*
* Make sure that class is valid.  Report error if not.
*
		cmp	#max_class+1		;Valid?
		bcc	class_ok		;Yep.
		lda	#invalid_class		;Nope, so get error code.
		brl	error
class_ok
*
* Get translated call #.  Exit with carry clear if this is not a call we handle.
*
		ldy	#end_call_list-call_list-1 ;get size of call list - 1
call_loop	lda	call_list,y		;Get call #.
		and	#$00ff			;Clear high byte.
		cmp	call			;Is this the call?
		beq	valid_call		;Yep.
		dey				;Nope, checked all?
		bpl	call_loop		;No, so	loop.
		brl	exit			;yes - so exit with carry clear

valid_call	tya				;Get translated call #.
		asl	a			;Multiply by 2.
		sta	trans_call		;Save it.
		tax				;Put in	X.
*
* Get entry from call_flags_tbl and save it in call_flags.
*
		lda	call_flags_tbl,x	;Get flags word.
		sta	call_flags		;Save it.
*
* Set max_pcount and min_pcount.
*
		and	#max_mask		;Isolate max_pcount.
		sta	max_pcount		;Save it.

		lda	call_flags		;Get flags.
		and	#min_mask		;Isolate min_pcount.
		asl	a			;Get it	in low byte.
		asl	a
		asl	a
		xba
		sta	min_pcount		;Save it.
*
* Set my_pblk_ptr = param_blk_ptr.
*
		lda	<param_blk_ptr	
		sta	<my_pblk_ptr
		lda	<param_blk_ptr+2
		sta	<my_pblk_ptr+2
*
* Get input parameters.	Any errors?
*
		jsr	get_input		;Get input. Any	errors?
		bcc	input_ok		;no
*
* Yes. If this call does not use a pathname, then exit with the	error.
* If it	does, check to see if it is a bouncing error and if so,	exit with
* the error.  If not, save error in input_error	and continue.
*
		tax				;save error code
		lda	call_flags		;is a pathname used by the call?
		and	#path_used
		bne	got_path		;yes 
		txa				;no - so recover error code
brl_error	brl	error			;and return it

got_path	txa				;retrieve error code
		ldy	#end_bounce_list-bounce_list-2 
bounce_loop	cmp	bounce_list,y		;is it a bouncing error?
		beq	brl_error		;yes - so return it
		dey
		dey
		bpl	bounce_loop

		stx	input_error		;not a bouncing error so save it
*
* Setup gbuf_ptr to point to the first 512 byte general purpose buffer.
*
input_ok	lda	save_gbuf_ptr1		
		sta	<gbuf_ptr		
		lda	save_gbuf_ptr1+2
		sta	<gbuf_ptr+2
*
* Get pointer to psuedo stack and initialize stack index to 0.
*
;	next code changed because the pseudo stack in now allocated
;	directly from the Memory Manager, and stack_vp actually
;	contains a handle

		;ldx	stack_vp		;get the vp
		;ldy	stack_vp+2
		;jsl	deref			;dereference it
		;stx	<stack_ptr		;save the pointer
		;sty	<stack_ptr+2

*** added 7-Apr-92 DAL -- If we have no bank 0 block, allocate it.
*** @@@ This is a kludge.  Remove later!
		lda stack_vp+1
		bne @have_stack
		jsl init_fst
@have_stack
*** end 7-Apr-92

		lda stack_vp
		sta <temp0			;use this to deref the handle
		lda stack_vp+2
		sta <temp0+2
		lda [temp0]
		dec a				;save work for compare in push_regs
						;added 4/1/92 by Monte
		sta <stack_ptr			;only need low word for bank $00
;
;	added stack_end and made stack_index a real address to speed
;	up push/pop routines -- Monte 3/26/92
		clc
		adc #stack_size			;get end of stack
		sta <stack_end

		dec a				;start index 1 below end
;	end Monte 3/26/92
		sta <stack_index

;	end Monte 3/23/92

*
* Mark the node buffers as unused.
*
		ldx	#node_flags		;get offset to flags word
 		stz	node_buf1,x		;mark first node buffer as unused
 		stz	node_buf2,x		;mark second node buffer as unused
 		stz	node_buf3,x		;mark third node buffer as unused
 		stz	node_buf4,x		;mark fourth node buffer as unused
*
* Get current date/time (in seconds).
*
		pea	0			;space for result (init to 0)
		pea	0
		pea	6			;get current data/time in seconds
		pha				;number of seconds (unused)
		pha
		pha				;ptr to date/time record (unused)
		pha
		ldx	#ConvSeconds 		;call ConvSeconds routine in Misc Tools
		jsl	tool_locator
		bcc	conv_ok
		jsr	handle_conv_err		
conv_ok		pla				;get result and store
		sta	time
		pla
		sta	time+2
*
* If we	need a VCR, then get pointer to vcr and call setup_vcr_info.
*
		stz	<my_vcr_ptr		;init my_vcr_ptr to 0 in case a
		stz	<my_vcr_ptr+2		;vcr ptr isn't supplied
		
		lda	call_flags		;get call flags
		and	#vcr_used		;do we need a vcr?
		beq	no_vcr			;no

		ldx	<vcr_ptr		;yes - so get VP from direct page
		ldy	<vcr_ptr+2
		jsl	deref			;dereference it
		stx	<my_vcr_ptr		;save pointer
		sty	<my_vcr_ptr+2

		jsr	setup_vcr_info		;setup some vcr info 
no_vcr
*
* If we	need an FCR, then get pointer to fcr and call setup_fcr_info.
*
		stz	<my_fcr_ptr		;init my_fcr_ptr to 0 in case an
		stz	<my_fcr_ptr+2		;fcr ptr isn't supplied
		
		lda	call_flags		;get call flags
		and	#fcr_used		;do we need an fcr?
		beq	no_fcr			;no

		ldx	<fcr_ptr		;yes - so get VP from direct page
		ldy	<fcr_ptr+2
		jsl	deref			;dereference it
		stx	<my_fcr_ptr		;save pointer
		sty	<my_fcr_ptr+2
		
		jsr	setup_fcr_info		;setup some fcr info 
no_fcr
*
* If we	need a pathname, then parse pathname1.
*
		lda	call_flags		;get call flags
		and	#path_used		;do we need a pathname?
		beq	no_path			;no

		jsr	parse_path1		;yes - so parse pathname1
		bcs	error
no_path
*
* Indicate no error and exit.
*
exit		clc				
		rts	

*
* Report an error.
*
error		sec
		rts
		
		ENDP
		
		eject
******************************************************************************
*
*	 Name:	get_input
*
* Description:	Initializes all input and output parameter storage to 0.
*		Moves input params from caller's param list to storage area.  
*		Validates the parameters whose range is known.
*
*	Entry:	jsr
*
*	 Exit:	jmp process_params
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined.
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*      Output:	A = error code if carry set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..0 if	no error
*			   1 if	error
*		B = K
*
*	 Uses:	all registers
*
*   Called by:	setup_call
*
*	Calls:	process_params
*
* Copyright Apple Computer, Inc. 1987-90  All rights reserved.
******************************************************************************

get_input	PROC
		with	data

*
* Clear	input and output parameter storage.
*
		ldy	#len_params-2 		;get size of parameter storage
		lda	#0			
clear_loop	sta	start_params,y		;clear parameter storage
		dey				
		dey
		bpl	clear_loop		;loop until done
*
* Initialize pcount to maximum value in case this is a class 0 call.  
*
		lda	#$7fff
		sta	pcount
*
* Process input	params and exit.
*
		lda	#input_flag		;Select	input.
		jmp	process_params		;Process params.

		ENDP
		
		eject
******************************************************************************
*
*	 Name:	send_output
*
* Description:	Sends output params to caller's parameter list.
*
*	Entry:	jsr
*
*	 Exit:	jmp process_params
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined.
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*      Output:	A = error code if carry set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..0 if	no error
*			   1 if	error
*		B = K
*
*	 Uses:	all registers
*
*   Called by:	app_entry
*
*	Calls:	process_params
*
* Copyright Apple Computer, Inc. 1987-90  All rights reserved.
******************************************************************************

send_output	PROC
		with	data

*
* Process output params	and exit.
*
		lda	#output_flag		;Select	output.
		jmp	process_params		;Process 'em.

		ENDP
		
		eject
******************************************************************************
*
*	 Name:	process_params
*
* Description:	This routine calls the parameter handler subroutines listed
*		in the parameter list for the current call and class.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = $0000 if requesting input, $0080 if requesting output.
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		class - call class
*		trans_call - translated call #
*		max_pcount - maximum pcount for call
*		min_pcount - minimum pcount for call
*		pcount - parameter count
*		<my_pblk_ptr - pointer to parameter block
*
*      Output:	A = error code if carry set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..0 if	no error
*			   1 if	error
*		B = K
*
*	 Uses:	all registers
*		io_flag
*		param_count
*		param_index
*		param_flags
*
*   Called by:	get_input
*		send_output
*
*	Calls:	all parameter handlers
*
* Copyright Apple Computer, Inc. 1987-90  All rights reserved.
*-----------------------------------------------------------------------------
* The parameter list is a list of flag words with the following format:
*
*     1	- parameter number 
*     2	- I/O flag: 0 =	input, 1 = output
*     3	- parameter offset
*     4	- Terminator: 1	= last entry in	list
*
*     |4|      3      |2|     1	      |
*     |_|_____________|_|_____________|
*     |	| | | |	| | | |	| | | |	| | | |
*     |_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|
*     |		      |		      |
*      f	     8 7	     0  
*
******************************************************************************

process_params	PROC
		with	data

*
* Save requested direction and set param_list_ptr to point to correct list.
*
		sta	io_flag			;Save direction	flag.
		ldx	trans_call		;Get translated	call #.
		lda	param_list_tbl_0,x	;Get address of class 0 param list.
		ldy	class			;Is this a class 0 call?
		beq	set_ptr			;Yep.
		lda	param_list_tbl_1,x	;No, so get address of class 1 param list.
set_ptr		pha				;save address on stack
*
* Set param_count = pcount.
* Pcount is initialized to $7fff by get_input in case this is a class 0 call.  
* If it's a class 1 call, the pcount parameter handler will set param_count = pcount.
* Param_count is used to control the number of parameters to process.
*
		lda	pcount
		sta	param_count
*
* Init parameter list index.
*
 		stz	param_index			
*
* Get parameter flag word and save it.
*
input_loop	ldy	param_index		;get parameter list index
		lda	(1,s),y			;get parameter flag word
		sta	param_flags		;save it
*
* Does the i/o flag match the requested	direction?
*
		and	#io_mask		;isolate I/O flag
		cmp	io_flag			;does it match request?
		bne	next_param		;no, so skip it
*
* Yes, get parameter offset in Y and parameter number times 2 in X.
* If we're doing input params then use parameter offset to load 2 words into A and Y. 
* This is done to save bytes in the input handlers.
* Then use X to jsr to parameter handler.
*
		lda	param_flags		;recover flag word.
		and	#param_mask		;isolate parameter number
		asl	a			;multiply by 2
		tax				;use as	index into handlers table

		lda	param_flags		;recover flag word
		and	#offset_mask		;isolate parameter offset
		xba				;put in	low byte
		tay				;put in	Y
		
		lda	io_flag			
		cmp	#input_flag		;are we processing input params?
		bne	skip_load		;no - so don't read in param words
		
		lda	[my_pblk_ptr],y		;get word out of param block
		pha				;and save temporarily
		iny
		iny
		lda	[my_pblk_ptr],y		;get next word out of param block
		tay				;put in Y
		pla				;retrieve first word into A
skip_load
		clc				;clc here to save bytes in handlers
		jsr	(handlers_tbl,x)	;execute parameter handler
		bcs	exit			;error,	so exit
*
* Bump parameter number.
*
next_param	inc	param_index		;bump parameter list index
		inc	param_index		
*
* Are we done with list?
*
		lda	param_flags		;done with list?
		bmi	done			;yes
*
* Nope,	have we	used up	all the	parameters present?
*
		dec	param_count		;done all parameters?
		bpl	input_loop		;no, so loop
*
* Yes, so exit with carry clear.
*
done		clc				;indicate no errors
exit		plx				;clean up stack
		rts				

		ENDP
		
		eject
******************************************************************************
*
*	 Name:	input_handlers
*
* Description:	This section is	a collection of	subroutines which handle
*		each of	the input parameters in the parameter lists.  
*		These routines should only be called by process_params.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = first word at parameter offset 
*		X = undefined
*		Y = second word at parameter offset 
*		P = nvmxdizc
*		    ..000..0
*		B = K
*
*		<my_pblk_ptr - pointer to parameter block
*		max_pcount - maximum pcount for call
*		min_pcount - minimum pcount for call
*		call - call number
*		param_flags - parameter flags 
*
*      Output:	A = error code if carry set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..0 if	no error
*			   1 if	error
*		B = K
*
*	 Uses:	all registers
*		<temp0
*
*   Called by:	process_params
*
*	Calls:	read_option_list
*
* Copyright Apple Computer, Inc. 1987-91  All rights reserved.
******************************************************************************

input_handlers	PROC
		with	data


;------------------------------------------------------------------------------
; I_PCOUNT Parameter Handler: Input (w)
;------------------------------------------------------------------------------
		export	ih_pcount
ih_pcount						        
		cmp	min_pcount		;is pcount param < min?
		bcc	bad_pcount		;yes, so bad
		cmp	max_pcount		;is pcount param > max?
		beq	pcount_ok		;it's = max, so ok
		bcs	bad_pcount		;it's > max, so bad
pcount_ok	sta	pcount			;it's ok, so save it
		sta	param_count		;adjust param_count for process_params
		clc				;indicate no error
		rts				;exit

bad_pcount	lda	#invalid_pcount		;get error code
		sec				;indicate error
		rts				;exit


;------------------------------------------------------------------------------
; I_REF_NUM Parameter Handler: Input (w)
;------------------------------------------------------------------------------
		export	ih_ref_num
ih_ref_num						   
		sta	ref_num			;save param
		rts				;exit


;------------------------------------------------------------------------------
; I_ACCESS Parameter Handler: Input (w)
;------------------------------------------------------------------------------
		export	ih_access
ih_access	
		sta	access			;save param 
		and	#reserved_bits		;any reserved bits set?
		beq	access_ok		;no - so ok
		brl	bad_param		;yes - so param is bad
		
access_ok	clc				;indicate no error
		rts				;exit


;------------------------------------------------------------------------------
; I_STORAGE_TYPE Parameter Handler: Input (w)
;------------------------------------------------------------------------------
		export	ih_storage_type
ih_storage_type	

; Note - The CREATE call uses the storage_type parameter as both an input and output.
;	 This is the only case in which a parameter is used for both input and output.
;	 This causes problems with the parameter handling since a parameter can only be
;	 an input param or an output param, not both.  To fix this problem, the storage_type
;	 input handler will validate the input param, convert it if necessary, and then 
;	 store the result into the parameter block.  This is the only input handler which
;	 modifies the parameter block.  This is kind of kludgy but since this input 
;	 handler is only used for the CREATE call, it should be OK.

		cmp	#extended_stype		;'extended file' storage type?
		beq	stype_ok		;yes - so ok
		cmp	#directory_stype	;'subdirectory' storage type?
		beq	stype_ok		;yes - so ok
		cmp	#4			;is storage type = 0,1,2 or 3?
		bcc	cvt_stype		;yes - so convert to 'standard file'
		cmp	#extended_stype+$8000	;is storage type = $8005?
		beq	stype_ok		;yes - so ok
		brl	bad_param		;no - so param is bad

cvt_stype	lda	#standard_stype		;convert storage type to 'standard file'		
stype_ok	sta	storage_type		;save param

		lda	param_flags		;get flag word
		and	#offset_mask		;isolate parameter offset
		xba				;put in	low byte
		tay				;put in	Y
		lda	storage_type		;get converted storage type
		and	#$7fff			;mask off hi bit
		jmp	store_word		;and store into parameter block


;------------------------------------------------------------------------------
; I_FILE_TYPE Parameter Handler: Input (w)
;------------------------------------------------------------------------------
		export	ih_file_type
ih_file_type	
		sta	file_type		;save param
		and	#$ff00			;is hi byte 0?
		beq	file_type_ok		;yes - so ok
		brl	bad_param		;no - so bad
		
file_type_ok	rts				;exit
		

;------------------------------------------------------------------------------
; I_AUX_TYPE Parameter Handler: Input (lw)
;------------------------------------------------------------------------------
		export	ih_aux_type
ih_aux_type						        
		sta	aux_type		;save lo word of param
		sty	aux_type+2		;save hi word of param
		tya	 			;is hi word 0?
		beq	aux_type_ok		;yes - so ok
		brl	bad_param		;no - so bad
				
aux_type_ok	rts				;exit


;------------------------------------------------------------------------------
; I_EOF Parameter Handler: Input (lw)
;------------------------------------------------------------------------------
		export	ih_eof
ih_eof							        
		sta	eof			;save lo word of param
		sty	eof+2			;save hi word of param
		rts				;exit


;------------------------------------------------------------------------------
; I_RESOURCE_EOF Parameter Handler: Input (lw)
;------------------------------------------------------------------------------
		export	ih_resource_eof
ih_resource_eof						        
		sta	resource_eof		;save lo word of param
		sty	resource_eof+2		;save hi word of param
		rts				;exit


;------------------------------------------------------------------------------
; I_CREATE_DATE Parameter Handler: Input (w)
;------------------------------------------------------------------------------ 
		export	ih_create_date
ih_create_date						        
		sta	create_date		;save param
		
verify_date	beq	date_ok			;if param = 0 then it's ok
		tax				;save date in X
		and	#$001f			;isolate 'day'
		beq	bad_date		;error if 'day' = 0
		cmp	#32			;is 'day' > 31?
		bcs	bad_date		;yes - so bad param
		txa				;retrieve date
		lsr	a			;move 'month' into bits 0-3
		lsr	a
		lsr	a
		lsr	a
		lsr	a
		and	#$000f			;isolate 'month'
		beq	bad_date		;error if 'month' = 0
		cmp	#13			;is 'month' > 12?
		bcs	bad_date		;yes - so bad param
date_ok		rts				;no - so exit

bad_date	brl	bad_param		;param is bad


;------------------------------------------------------------------------------
; I_MOD_DATE Parameter Handler: Input (w)
;------------------------------------------------------------------------------ 
		export	ih_mod_date
ih_mod_date						        
		sta	mod_date		;save param
		bra	verify_date		;verify param


;------------------------------------------------------------------------------
; I_CREATE_TIME Parameter Handler: Input (w)
;------------------------------------------------------------------------------
		export	ih_create_time
ih_create_time		        
		sta	create_time		;save param
		
verify_time	beq	time_ok			;if param = 0 then it's ok
		tax				;save time in X
		and	#$00ff			;isolate 'minute'
		cmp	#60			;is 'minute' > 59?
		bcs	bad_time		;yes - so bad param
		txa				;retrieve time
		xba				;move 'hour' into low byte
		and	#$00ff			;isolate 'hour'
		cmp	#24			;is 'hour' > 23?
		bcs	bad_time		;yes - so bad param
time_ok		rts				;no - so exit

bad_time	brl	bad_param		;param is bad


;------------------------------------------------------------------------------
; I_MOD_TIME Parameter Handler: Input (w)
;------------------------------------------------------------------------------
		export	ih_mod_time
ih_mod_time		        
		sta	mod_time		;save param
		bra	verify_time		;verify param


;------------------------------------------------------------------------------
; I_CREATE_DATE_TIME Parameter Handler: Input (4w)
;------------------------------------------------------------------------------
		export	ih_create_date_time
ih_create_date_time	
		lda	#create_date_time	;get address of create_date_time
		sta	<temp0			;and store on direct page
		
get_date_time	lda	param_flags		;get flag word
		and	#offset_mask		;isolate parameter offset
		xba				;put in	low byte
		tay				;put in	Y
		ldx	#0			;init offset into date/time structure
		
get_dt_loop	lda	[my_pblk_ptr],y		;get word from parameter block
		phy				;save param block offset
		txy				;get date/time structure offset
		sta	(temp0),y		;store word in date/time structure
		tyx				;store date/time structure offset
		ply				;retrieve param block offset
		iny				;adjust offsets
		iny
		inx
		inx
		cpx	#8
		bne	get_dt_loop		;loop until done
		
		ldy	#7			;verify date/time
		sep	#$20			;begin 8-bit A
verify_dt	lda	max_dt_values,y		;get max allowed value
		cmp	(temp0),y		;is it < value in date/time structure?
		bcc	bad_dt			;yes - so param is bad
		dey
		bpl	verify_dt		;loop until done
		
		rep	#$20			;restore 16-bit A
		clc				;indicate no error
		rts				;exit

bad_dt		rep	#$20			;restore 16-bit A
 		brl	bad_param		;param is bad


;------------------------------------------------------------------------------
; I_MOD_DATE_TIME Parameter Handler: Input (4w)
;------------------------------------------------------------------------------
		export	ih_mod_date_time
ih_mod_date_time					        
		lda	#mod_date_time		;get address of mod_date_time
		sta	<temp0			;and store on direct page
		bra	get_date_time


;------------------------------------------------------------------------------
; I_VOLNAME Parameter Handler: Input (ptr)
;------------------------------------------------------------------------------
		export	ih_volname
ih_volname						
		rts				;exit
		
		
;------------------------------------------------------------------------------
; I_OPTION_LIST Parameter Handler: Input (ptr)
;------------------------------------------------------------------------------
		export	ih_option_list
ih_option_list	
		jsr	read_option_list	;read in option list info
 		rts				;exit


;------------------------------------------------------------------------------
; I_COMMAND_NUM Parameter Handler: Input (w)
;------------------------------------------------------------------------------
		export	ih_command_num
ih_command_num

;@@@ no fst_specific commands supported yet

;		cmp	#max_fst_cmd+1		;Is param in range?
;		bcs	bad_param		;Nope.
;		sta	command_num		;Yes, save it.
;		rts				;exit


;------------------------------------------------------------------------------
; I_RESOURCE_NUM Parameter Handler: Input (w)
;------------------------------------------------------------------------------
		export	ih_resource_num
ih_resource_num						        
		cmp	#max_rsrcnum_val+1	;Is param in range?
		bcc	@0			;yes
		brl	bad_param		;no
@0		sta	resource_num		;yes, save it.
		rts				;exit
		

;------------------------------------------------------------------------------
; I_CACHE_PRIORITY Parameter Handler: Input (w)
;------------------------------------------------------------------------------
		export	ih_cache_priority
ih_cache_priority					        
		cmp	#max_cache_val+1	;Is param in range?
		bcs	bad_param		;Nope.
		sta	cache_priority		;yes, save it.
		rts				;exit


;------------------------------------------------------------------------------
; I_REQUEST_ACCESS Parameter Handler: Input (w)
;------------------------------------------------------------------------------
		export	ih_request_access
ih_request_access								        
		cmp	#max_raccess_val+1	;Is param in range?
		bcs	bad_param		;Nope.
		sta	request_access		;Save param.
		rts				;exit


;------------------------------------------------------------------------------
; I_REQUEST_COUNT Parameter Handler: Input (lw)
;------------------------------------------------------------------------------
		export	ih_request_count
ih_request_count						        
		sta	request_count		;Save lo word of param
		sty	request_count+2		;Save hi word of param
 
; If request_count is >= $01000000 (16MB) then set it to $00ffffff (16MB-1).	
; 	ProDOS FST reports parm_range_err if request_count >= $01000000 
;	High Sierra FST sets it to $00ffffff and doesn't report error
 
		cpy	#$0100			;too big?
		bcc	req_count_ok		;no
		lda	#$ffff			;yes - so squash it
		sta	request_count
		lda	#$00ff
		sta	request_count+2
		clc
req_count_ok	rts				;exit


;------------------------------------------------------------------------------
; I_BASE Parameter Handler: Input (w)
;------------------------------------------------------------------------------
		export	ih_base
ih_base		
		sta	base			;save param
		ldx	call			;get call #
		cpx	#gde_call_num		;is the call get_dir_entry?
		beq	gde_base		;yes - so branch
		cmp	#max_base_val+1		;is param in range?
		bcs	bad_param		;no
		rts				;yes

gde_base	cmp	#max_base_val		;is param in range?
		bcs	bad_param		;no
		rts				;yes

;------------------------------------------------------------------------------
; I_DISPLACEMENT Parameter Handler: Input (lw)
;------------------------------------------------------------------------------
		export	ih_displacement
ih_displacement						        
		sta	displacement		;Save lo word of param.
		sty	displacement+2		;Save hi word of param.
		rts				;exit


;------------------------------------------------------------------------------
; I_PATHNAME Parameter Handler: Input (ptr)
;------------------------------------------------------------------------------
		export	ih_pathname
ih_pathname	        
		rts				;exit


;------------------------------------------------------------------------------
; I_NEW_PATHNAME Parameter Handler: Input (ptr)
;------------------------------------------------------------------------------
		export	ih_new_pathname		
ih_new_pathname						        
		rts				;exit


;------------------------------------------------------------------------------
; I_DEVNAME Parameter Handler: Input (ptr)
;------------------------------------------------------------------------------
		export	ih_devname
ih_devname	        
		rts				;exit


;------------------------------------------------------------------------------
; I_DATA_BUFFER Parameter Handler: Input (ptr)
;------------------------------------------------------------------------------
		export	ih_data_buffer
ih_data_buffer	        
		sta	<data_buf_ptr		;Save lo word of param.
		tya				;Get high word of param in A
		and	#$00ff			;Clear high byte.
		sta	<data_buf_ptr+2		;Save hi word of param.
		ora	<data_buf_ptr		;is ptr 0?
		beq	bad_param		;yes - so error
		rts				;no - so exit


;------------------------------------------------------------------------------
; I_NULL Parameter Handler: Input (w)
;------------------------------------------------------------------------------
		export	ih_null
ih_null	        
		rts				;exit


;------------------------------------------------------------------------------
; I_FLUSH_TYPE Parameter Handler: Input (w)
;------------------------------------------------------------------------------
		export	ih_flush_type
ih_flush_type	
		sta	flush_type		;save param
		and	#$7fff			;any reserved bits set?
		bne	bad_param		;yes - so error
		rts				;exit


;------------------------------------------------------------------------------
; I_FILE_SYS_ID Parameter Handler: Input (w)
;------------------------------------------------------------------------------
		export	ih_file_sys_id
ih_file_sys_id	        
		rts				;exit


;------------------------------------------------------------------------------
; I_NAME_TYPE Parameter Handler: Input (w)
;------------------------------------------------------------------------------
		export	ih_name_type
ih_name_type	
		cmp	#max_ntype_val+1	;is param in range?
		bcs	bad_param		;no
		sta	name_type		;yes - so save it
		rts				;exit


;------------------------------------------------------------------------------
; I_NAME Parameter Handler: Input (ptr)
;------------------------------------------------------------------------------
		export	ih_name
ih_name	        
		sta	name_ptr		;Save lo word of param.
		tya				;Get high word of param in A
		and	#$00ff			;Clear high byte.
		sta	name_ptr+2		;Save hi word of param.
		rts				;exit


;------------------------------------------------------------------------------
; I_CP_FLAGS Parameter Handler: Input (w)
; Routine added 5-Dec-91 MSD
;------------------------------------------------------------------------------
		export	ih_cp_flags
ih_cp_flags	
		sta	cp_flags		;save param
		and	#$7fff			;any reserved bits set?
		bne	bad_param		;yes - so error
		rts				;exit


;------------------------------------------------------------------------------
; Return a parameter range error
;------------------------------------------------------------------------------

bad_param	lda	#parm_range_err		;get error code
		sec				;indicate error
		rts				;exit


		ENDP

		eject
******************************************************************************
*
*	 Name:	output_handlers
*
* Description:	This section is	a collection of	subroutines which handle
*		each of	the output parameters in the parameter lists.  
*		These routines should only be called by process_params.
*
* 	 Note:  The oh_volname routine is called directly from the "volume" 
*		procedure if id_disk has returned a dup_volume error.  This is 
*		done so that the "volname" output parameter will be set up even 
*		though an error is being returned.  This is the only case in 
*		which a parameter handler is called directly.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = parameter offset
*		P = nvmxdizc
*		    ..000..0
*		B = K
*
*		<my_pblk_ptr - pointer to parameter block
*		call - call number
*		class - call class
*
*      Output:	A = error code if error
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..0 if	no error
*			   1 if	error
*		B = K
*
*		gde_buf_err - non-zero if an error occurred in 'oh_name'
*
*	 Uses:	all registers
*		<temp0
*		<source_ptr	(aka <product)
*		<dest_ptr	
*
*   Called by:	process_params
*
*	Calls:	write_option_list
*
* Copyright Apple Computer, Inc. 1987-91  All rights reserved.
******************************************************************************

output_handlers	PROC
		with	data


;------------------------------------------------------------------------------
; O_REF_NUM Parameter Handler: Output (w)
;------------------------------------------------------------------------------
		export	oh_ref_num
oh_ref_num						   
		lda	ref_num			;get ref_num
		brl	store_word		;store it in param block
		

;------------------------------------------------------------------------------
; O_ACCESS Parameter Handler: Output (w)
;------------------------------------------------------------------------------
		export	oh_access
oh_access						        
		lda	access			;get access
		brl	store_word		;store it in param block


;------------------------------------------------------------------------------
; O_STORAGE_TYPE Parameter Handler: Output (w)
;------------------------------------------------------------------------------
		export	oh_storage_type
oh_storage_type						        
		lda	storage_type		;get storage_type
		brl	store_word		;store it in param block


;------------------------------------------------------------------------------
; O_FILE_TYPE Parameter Handler: Output (w)
;------------------------------------------------------------------------------
		export	oh_file_type
oh_file_type						        
 		lda	file_type		;get filetype
		brl	store_word		;store it in param block
		

;------------------------------------------------------------------------------
; O_AUX_TYPE Parameter Handler: Output (lw)
;------------------------------------------------------------------------------
		export	oh_aux_type
oh_aux_type						        
		lda	call			;Is this a get_file_info call?
		cmp	#gfi_call_num
		beq	do_gfi_call		;yes
send_aux	lda	aux_type		;get lo word of auxtype
		ldx	aux_type+2		;get high word of auxtype
		brl	store_long		;store it in param block
		
do_gfi_call	lda	storage_type		;looking at volume directory?
		cmp	#volume_stype
		bne	send_aux		;no, so send auxtype
		lda	class			;yes, is it a class zero call?
		bne	send_aux		;no, so send auxtype
		brl	oh_total_blocks		;yes, so send total blocks 


;------------------------------------------------------------------------------
; O_EOF Parameter Handler: Output (lw)
;------------------------------------------------------------------------------
		export	oh_eof
oh_eof							        
		lda	eof			;get low word of eof
		ldx	eof+2			;get high word of eof
		brl	store_long		;store it in param block


;------------------------------------------------------------------------------
; O_RESOURCE_EOF Parameter Handler: Output (lw)
;------------------------------------------------------------------------------
		export	oh_resource_eof
oh_resource_eof						        
		lda	resource_eof		;get low word of resource_eof
		ldx	resource_eof+2		;get high word
		brl	store_long		;store it in param block


;------------------------------------------------------------------------------
; O_CREATE_DATE Parameter Handler: Output (w)
;------------------------------------------------------------------------------ 
		export	oh_create_date
oh_create_date						        
		lda	create_date		;get create_date
		brl	store_word		;store it in param block
		
		
;------------------------------------------------------------------------------
; O_MOD_DATE Parameter Handler: Output (w)
;------------------------------------------------------------------------------
		export	oh_mod_date
oh_mod_date						        
		lda	mod_date		;get mod_date
		brl	store_word		;store it in param block


;------------------------------------------------------------------------------
; O_CREATE_TIME Parameter Handler: Output (w)
;------------------------------------------------------------------------------
		export	oh_create_time
oh_create_time		        
		lda	create_time		;get create_time
		brl	store_word		;store it in param block


;------------------------------------------------------------------------------
; O_MOD_TIME Parameter Handler: Output (w)
;------------------------------------------------------------------------------
		export	oh_mod_time
oh_mod_time		        
		lda	mod_time		;get mod_time
		brl	store_word		;store it in param block


;------------------------------------------------------------------------------
; O_CREATE_DATE_TIME Parameter Handler: Output (4w)
;------------------------------------------------------------------------------
		export	oh_create_date_time
oh_create_date_time					        
		ldx	#0			;init offset
o_create_loop	lda	create_date_time,x	;get word
		sta	[my_pblk_ptr],y		;store it in param block
		iny				;bump offsets
		iny
		inx
		inx
		cpx	#8			;done all?
		bne	o_create_loop		;no, so	loop

		clc				;yes, so clear carry
		rts				;exit


;------------------------------------------------------------------------------
; O_MOD_DATE_TIME Parameter Handler: Output (4w)
;------------------------------------------------------------------------------
		export	oh_mod_date_time
oh_mod_date_time					        
		ldx	#0			;init offset
o_mod_loop	lda	mod_date_time,x		;get word
		sta	[my_pblk_ptr],y		;store it in param block
		iny				;bump offsets
		iny
		inx
		inx
		cpx	#8			;done all?
		bne	o_mod_loop		;no, so	loop

		clc				;yes, so clear carry
		rts				;exit


;------------------------------------------------------------------------------
; O_VOLNAME Parameter Handler: Output (ptr)
;------------------------------------------------------------------------------
		export	oh_volname
oh_volname					

; NOTE - This routine is called directly from the "volume" procedure if id_disk
;	 has returned a dup_volume error.  This is done so that the "volname" 
;	 output parameter will be set up even though an error is being returned.
;	 This is the only case in which a parameter handler is called directly.

; Convert string from gstring format (length word) to class 0 format (length byte)
; and add class 0 or class 1 separator at front of string.

		sep	#$20			;set 8-bit A
		longa	off
		
		lda	disk_name		;get lo byte of length word
		inc	a			;add 1 for separator
		sta	disk_name		;and save
		
		lda	#separator0		;get class 0 separator
		ldx	class			;is this a class 0 call?
		beq	save_sep		;yes
		lda	#separator1		;no - so get class 1 separator
save_sep	sta	disk_name+1		;insert the separator at front of string

		rep	#$20			;restore 16-bit A
		longa	on

; If we're doing a class 0 call, check the new string to make sure it's not too long.
; The maximum class 0 string length is 16 (15 chars + leading separator).

		lda	class			;is this a class 0 call?
		bne	length_ok		;no - so ok
		lda	disk_name		;yes - so get length
		and	#$00ff			;only want lo byte
		cmp	#max_class0_name+2	;legal length?
		bcs	too_long		;no
		
; Store the string in the caller's output buffer.

length_ok	lda	#disk_name		;get address of disk name
		jsr	store_string		;store the string
		rts				;exit

; String was too long for class 0 call so return an error.

too_long	lda	#drvr_off_line		;return offline error
		rts				;exit


;------------------------------------------------------------------------------
; O_OPTION_LIST Parameter Handler: Output (ptr)
;------------------------------------------------------------------------------
		export	oh_option_list
oh_option_list
		jsr	write_option_list	;write out option list info
 		rts				;exit


;------------------------------------------------------------------------------
; O_TRANSFER_COUNT Parameter Handler: Output (lw)
;------------------------------------------------------------------------------
		export	oh_transfer_count
oh_transfer_count					        
		lda	transfer_count		;Get low word.
		ldx	transfer_count+2	;Get high word.
		bra	store_long		;store it in param block


;------------------------------------------------------------------------------
; O_POSITION Parameter Handler: Output (lw)
;------------------------------------------------------------------------------
		export	oh_position
oh_position						        
		lda	file_mark		;Get low word.
		ldx	file_mark+2		;Get high word.
		bra	store_long		;store it in param block


;------------------------------------------------------------------------------
; O_ENTRY_NUM Parameter Handler: Output (w)
;------------------------------------------------------------------------------
		export	oh_entry_num
oh_entry_num						        
		lda	entry_num		;Get entry #.
		bra	store_word		;store it in param block


;------------------------------------------------------------------------------
; O_DEV_NUMBER Parameter Handler: Output (w)
;------------------------------------------------------------------------------
		export	oh_dev_number
oh_dev_number						        
		lda	dev_number		;Get number
		bra	store_word		;store it in param block


;------------------------------------------------------------------------------
; O_FILE_SYS_ID Parameter Handler: Output (w)
;------------------------------------------------------------------------------
		export	oh_file_sys_id
oh_file_sys_id						        
		lda	#hfs_id			;Get HFS ID.
		bra	store_word		;store it in param block
		
		
;------------------------------------------------------------------------------
; O_BLOCK_SIZE Parameter Handler: Output (w)
;------------------------------------------------------------------------------
		export	oh_block_size
oh_block_size						        
		lda	#phys_blk_size		;Get block size
		bra	store_word		;store it in param block
		
		
;------------------------------------------------------------------------------
; O_EXTENDED Parameter Handler: Output (w)
;------------------------------------------------------------------------------
		export	oh_extended_flag
oh_extended_flag						        
		lda	extended_flag		;Get extended flag.
		bra	store_word		;store it in param block


;------------------------------------------------------------------------------
; O_TOTAL_BLOCKS Parameter Handler: Output (lw)
;------------------------------------------------------------------------------
		export	oh_total_blocks
oh_total_blocks						        
		lda	total_blocks		;Get low word.
		ldx	total_blocks+2		;Get high word.
		bra	store_long		;store in param block


;------------------------------------------------------------------------------
; O_BLOCKS_USED Parameter Handler: Output (lw)
;------------------------------------------------------------------------------
		export	oh_blocks_used
oh_blocks_used						        
		lda	blocks_used		;Get low word.
		ldx	blocks_used+2		;Get high word.
		bra	store_long		;store it in param block


;------------------------------------------------------------------------------
; O_FREE_BLOCKS Parameter Handler: Output (lw)
;------------------------------------------------------------------------------
		export	oh_free_blocks
oh_free_blocks						        
		lda	free_blocks		;Get low word.
		ldx	free_blocks+2		;Get high word.
		bra	store_long		;store it in param block


;------------------------------------------------------------------------------
; O_RESOURCE_BLOCKS Parameter Handler: Output (lw)
;------------------------------------------------------------------------------
		export	oh_resource_blocks
oh_resource_blocks					        
		lda	resource_blocks		;Get low word.
		ldx	resource_blocks+2	;Get high word.
		bra	store_long		;store it in param block


;------------------------------------------------------------------------------
; O_NAME Parameter Handler: Output (ptr)
;------------------------------------------------------------------------------
		export	oh_name
oh_name	

; NOTE - This output handler is only used for GetDirEntry.
;	 The name string is always stored into a class 1 output buffer even if
;	 the GetDirEntry call was a class 0 call. If the buffer is too small to
;	 hold the entire string, we must store as much of the string as will fit
;	 and then report a 'buff_too_small' error. GetDirEntry must set up all 
;	 of the requested output parameters even if a 'buff_too_small' error 
;	 is being reported. So, if we get an error from the store_string routine, 
;	 we'll save the error for later and indicate no error so that the rest 
;	 of the output params will be set up.

		lda	class			;get call class
		pha				;and save
		inc	class			;force call class to 1
		lda	#record_name		;get address of record name
		jsr	store_string		;store the string
		plx				;restore call class (don't change A)
		stx	class
		bcc	@done			;if no error, then we're done
		sta	gde_buf_err		;save the error for later
		clc				;indicate no error
@done		rts				;exit


;------------------------------------------------------------------------------
; O_SYNTAX Parameter Handler: Output (ptr)
;------------------------------------------------------------------------------
		export	oh_syntax
oh_syntax						        
		lda	#syntax_str		;get ptr to string - lo word
		ldx	#^syntax_str		;get ptr to string - hi word
		bra	store_long		;store it in param block


;------------------------------------------------------------------------------
; O_MAX_LEN Parameter Handler: Output (w)
;------------------------------------------------------------------------------
		export	oh_max_len
oh_max_len						        
		lda	max_len			;get max length
		bra	store_word		;store it in param block


;------------------------------------------------------------------------------
; O_NAME_FLAGS Parameter Handler: Output (w)
;------------------------------------------------------------------------------
		export	oh_name_flags
oh_name_flags						        
		lda	name_flags		;get name flags
		bra	store_word		;store it in param block


;------------------------------------------------------------------------------
; store_long and store_word routines
;
;  Input:	A - lo word to store 
; 		X - hi word to store (store_long) 
;    		    undefined (store_word)
; 		Y - parameter offset
;
; Output:	A - undefined
;		X - undefined
;		Y - undefined
;------------------------------------------------------------------------------

		export	store_word
		
store_long	sta	[my_pblk_ptr],y		;store low word in param block
		iny				;bump offset
		iny
		txa				;get high word
store_word	sta	[my_pblk_ptr],y		;store it in param block
		clc				;indicate no error
		rts				;exit


;------------------------------------------------------------------------------
; store_string routine
;
;  Input:	A - address of source string (class 0 string in our data bank)
; 		X - undefined
; 		Y - parameter offset
;
; Output:	A - error code if carry set
;		X - undefined
;		Y - undefined
;------------------------------------------------------------------------------

store_string	

; Initialize flag to 0.

		stz	<temp0
		
; Store the address of the source string on direct page.

		sta	<source_ptr		;save address of source string

; Get the address of the destination from the parameter block and store on direct page.

		lda	[my_pblk_ptr],y		;get lo word of dest ptr  
		sta	<dest_ptr		;and save
		iny				
		iny
		lda	[my_pblk_ptr],y		;get hi word of dest ptr  
		and	#$00ff			;clear high byte
		sta	<dest_ptr+2		;and save

; Determine whether we're doing a class 0 or class 1 call.

		lda	class			;get call class
		bne	class1			;it's a class 1 call
		
; We're doing a class 0 call.
; Store the string length in the output buffer.

		lda	(source_ptr)		;get string length
		sta	[dest_ptr]		;and store in output buffer
		bra	store_it		;store the string


; We're doing a class 1 call.
; First, determine if the output buffer is large enough to hold the string length.
; If so, store the string length in the output buffer. Otherwise, report an error.
; Next, determine if the output buffer is large enough to hold the entire string.
; If not, then determine if we're doing a GetDirEntry call.
; If so, then return as much of the string as will fit and then report an error.
; Otherwise, just report an error and don't return the string.

class1		sec
		lda	[dest_ptr]		;get length of output buffer
		sbc	#4			;big enough to hold string length?
		bmi	buf_error		;no - so report an error
		tax				;yes - so save 'buffer size-4'
		lda	(source_ptr)		;get source string length
		and	#$00ff			;only want lo byte
		ldy	#2
		sta	[dest_ptr],y		;and store in output buffer

		txa				;put 'buffer size - 4' in A
		beq	buf_error		;if it's 0 then report an error
		cmp	[dest_ptr],y		;is it big enough to hold entire string?
		bcs	@0			;yes
		ldx	call			;no - so get call number
		cpx	#gde_call_num		;are we doing a GetDirEntry call?
		bne	buf_error		;no - so report an error
		inc	<temp0			;yes - so set flag
		sep	#$20			;set 8 bit A
		sta	(source_ptr)		;and adjust string length to fit
		rep	#$20			;set 16 bit A
@0
; Adjust dest ptr by 3 so we can treat it like a class 0 string.
 
adjust		clc				;add 3 to dest ptr
		lda	<dest_ptr
		adc	#3
		sta	<dest_ptr
		lda	<dest_ptr+2
		adc	#0
		sta	<dest_ptr+2

; Store the string in the output buffer

store_it	lda	(source_ptr)		;get source string length
		and	#$00ff			;only want lo byte
		tay
		
	 	longa	off			
		sep	#$20			;set 8 bit A

string_loop	lda	(source_ptr),y 		;get byte 
		sta	[dest_ptr],y		;store in output buffer
		dey				;adjust offset
		bne	string_loop		;loop until done

		longa	on			;restore 16-bit A
		rep	#$20

; If the flag is set, then return an error.

		lda	<temp0
		bne	buf_error
		
; Indicate no error and exit.

no_dest		clc				;indicate no error
		rts				;exit


; Return a 'buffer too small' error.

buf_error	lda	#buff_too_small		;get error code
		sec				;indicate error
		rts				;exit


		ENDP
		
		eject
******************************************************************************
*
*	 Name:	read_option_list
*
* Description:	Reads information from the option list buffer and stores it for later.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = lo word of ptr to option list buffer
*		X = undefined
*		Y = hi word of ptr to option list buffer
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		option_flag - set to 0 
*		option list buffer - input (word):  buffer size (inc. fields 1 and 2)
*				     input (word): data size
*				     input (word): fst id
*				     input (32 bytes): Finder Info
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..0 
*		B = K
*
*		finder_info - Finder Info
*		option_flag - 1 = option list valid 
*			      0 = option list invalid
*
*	 Uses:	all registers
*		<temp0
*
*   Called by:	ih_option_list	(parameter handler)	
*
*	Calls:	nothing
*
* Copyright Apple Computer, Inc. 1989-91  All rights reserved.
******************************************************************************

read_option_list PROC
		with	data

*
* Store ptr to option list buffer on direct page.  Exit if ptr = 0.
*
		sta	<temp0			;save low word of ptr
		tya				;get hi word of ptr
		and	#$00ff			;clear hi byte
		sta	<temp0+2		;and save
		ora	<temp0			;is ptr zero?
		beq	exit			;yes - so done
*
* Is the buffer big enough to contain what we expect (ie. Finder Info)?
*
		lda	[temp0]			;get buffer size
		cmp	#ol_finder_info+32	;is it big enough?
		bcc	exit			;no - so done
*
* The buffer is big enough so now check the data size to see if the data is
* really there.  We expect a minimum of 34 bytes of data.
* NOTE - We need to check both the buffer size and the data size because in
*	 previous releases of GS/OS, the data size field was undefined.
*
		ldy	#ol_req_size
		lda	[temp0],y		;get data size
		cmp	#34			;enough data?
		bcc	exit			;no - so done
*
* Check the FST ID.  If it's not HFS, AppleShare or ProDOS then exit.  
*
		ldy	#ol_fst_id		;get offset to fst id field
		lda	[temp0],y		;get the fst id
		cmp	#hfs_id			;is it hfs?
		beq	id_ok			;yes
		cmp	#ashare_id		;is it appleshare?
		beq	id_ok			;yes
		cmp	#prodos_id		;is it prodos?
		bne	exit			;no - so done
id_ok
*
* Copy Finder Info from option list buffer into input storage area.
*
 		ldx	#0			;init offset into finder_info storage
		ldy	#ol_finder_info		;init offset into option list buffer
finfo_loop	lda	[temp0],y		;get word of finder info 
		sta	finder_info,x		;and save it in storage area
		iny				;adjust offsets
		iny
		inx				
		inx
		cpx	#32	
		bne	finfo_loop		;loop until done
		
		inc	option_flag		;indicate that option list was valid
*
* Indicate no error and exit.
*
exit		clc				
		rts				
		
		ENDP
		
		eject
******************************************************************************
*
*	 Name:	write_option_list
*
* Description:	Writes information into the option list buffer.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = offset into parameter block 
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<my_pblk_ptr - pointer to parameter block
*		finder_info - Finder Info
*		parent_id - parent directory id
*		call - call number
*		<my_fcr_ptr - ptr to fcr (OPEN call only)
*
*      Output:	A = error code if error
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*		option list buffer - input (word):  total size (inc. fields 1 and 2)
*				     output (word): required size (exc. fields 1 and 2)
*				     output (word): fst id
*				     output (32 bytes): Finder Info
*				     output (long): parent directory id
*
*	 Uses:	all registers
*		<temp0
*
*   Called by:	oh_option_list 	(parameter handler)	
*
*	Calls:	release_fcr 	(system service)
*
* Copyright Apple Computer, Inc. 1989-90  All rights reserved.
******************************************************************************

write_option_list PROC
		with	data

*
* Get ptr to option list buffer from parameter block and store on direct page
*
		lda	[my_pblk_ptr],y		;get lo word of ptr
		sta	<temp0			;and save
		iny				;bump offset
		iny
		lda	[my_pblk_ptr],y		;get hi word of ptr
		and	#$00ff			;clear hi byte
		sta	<temp0+2		;and save
		ora	<temp0			;is ptr zero?
		beq	exit			;yes - so done
*
* Is the buffer big enough to hold the required size info?  Parm_range_err if not.
*
check_buffer	lda	[temp0]			;get total buffer size
		cmp	#4			;big enough to hold required size info?
		bcs	big_enough		;yes
		lda	#parm_range_err		;no, so parm_range_err
		brl	error_exit		
*
* Stuff in the required size info.
*
big_enough	lda	#req_ol_size		;get required size
 		ldy	#ol_req_size		;get offset to required size field
		sta	[temp0],y		;stuff it in
*
* Make sure buffer is big enough to hold the FST ID.  Buf_too_small error if not.
*
		lda	[temp0]			;get total buffer size
		cmp	#6			;will the id fit?
		bcc	buffer_err		;no
*
* Stuff in the FST ID.
*
		lda	#hfs_id			;get fst id
		ldy	#ol_fst_id		;get offset to id field
		sta	[temp0],y		;stuff it in
*
* Make sure buffer is big enough to hold the data.  Buf_too_small error if not.
*
		lda	[temp0]			;get total buffer size
		cmp	#len_ol 		;big enough for data?
		bcc	buffer_err		;no
*
* Copy Finder Info from output parameter storage area into option list buffer.
*
 		ldx	#0			;init offset into finder_info storage
		ldy	#ol_finder_info		;init offset into option list buffer
finfo_loop	lda	finder_info,x		;get word of finder info 
		sta	[temp0],y		;stuff it into option list buffer
		iny				;adjust offsets
		iny
		inx				
		inx
		cpx	#32	
		bne	finfo_loop		;loop until done
*
* Copy parent dir ID from output parameter storage area into option list buffer.
*
		ldy	#ol_parent_id		;init offset into option list buffer
		lda	parent_id		;get lo word of parent id
		sta	[temp0],y		;stuff it in
		iny				;adjust offset
		iny
		lda	parent_id+2		;get hi word of parent id
		sta	[temp0],y		;stuff it in
*
* Indicate no error and exit.
*
exit		clc				
		rts				
		
*
* Report a buffer too small error.  
*
buffer_err	lda	#buff_too_small		;get error code
*
* Report an error.  
* If we're processing an Open call, we must release the fcr and decrement vcr_open_cnt.
*
error_exit	ldx	call			;doing an Open call?
		cpx	#open_call_num
		bne	real_exit		;no
		
		pha				;yes - so save error code

		lda	[my_fcr_ptr]		;get ref_num
		jsl	release_fcr		;release fcr
		
		ldy	#vcr_open_cnt		
		lda	[my_vcr_ptr],y		;get open count
		dec	a			;decrement it
		sta	[my_vcr_ptr],y		;and store it

		pla				;restore error code
		
real_exit	sec				;indicate error
		rts				;and exit
		
		ENDP
		
		eject
******************************************************************************
*
*	 Name:	create
*
* Description:	Creates a new file or subdirectory on disk.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<gbuf_ptr - pointer to 512 byte general purpose buffer
*		<my_path_ptr - pointer to pathname (if specified) in gstring format
*		<dev_num - device number (if specified), else 0
*		name_count - total # of names in full pathname. 0 if device # only.
*		first_offset - offset to first name in pathname
*		last_offset - offset to last name in pathname
*		volname - volume name in gstring format (if dev_num = 0)
*		input_error - set if input error
*
*      Output:	A = error code if carry set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*	 Uses:	all registers
*		requested_stype
*		<source_ptr	(aka <product)
*		<dest_ptr	
*
*   Called by:	app_entry
*
*	Calls:	process_path
*		is_vol_unlocked
*		set_access
*		set_file_aux
*		set_create_dt
*		build_fcr
*		ct_create_rec
*		ct_get_rec
*		ct_update
*		et_extend_file
*		bt_get_node
*		bt_mark_node
*		et_delete_file
*		ct_delete_rec
*		copy_ext
*		copy_long
*		release_fcr		(system service)
*
* Copyright Apple Computer, Inc. 1989-91  All rights reserved.
******************************************************************************

create		PROC
		with	data

*
* If the 'storage_type' input param was not supplied, use default.
*
		lda	storage_type		;was the storage_type param supplied?
		bne	stype_ok		;yes - so ok
		lda	#extended_stype		;no - so use default
; Begin 6-Feb-92 MSD
		ldy	file_type
		cpy	#dir_ftype		; creating a folder?
		bne	stype_ok
		lda	#directory_stype	; yes, so force folder storage type
; End 6-Feb-92 MSD
stype_ok
		sta	requested_stype		;save requested storage type 
*
* See if the pathname already exists. Save results of call.
* Note - we need to call process_path before we check name_count so that
*	 error_priority is set correctly.
* 
		jsr	process_path		;look for Catalog Record   
		php				;save results of call
		pha
*
* This call cannot be used to create a volume directory.
* Check to see if there are 2 or more names in the pathname.  Report an error if not.
*
		lda	name_count		;get # of names in full pathname
		cmp	#2			;is it 2 or more?
		bcs	not_vol_dir		;yes - so we're ok
		pla				;no - so clean up stack
		plp
		lda	#bad_path_syntax	;and return an error
		brl	error
		
not_vol_dir	pla				;retrieve results from process_path call
		plp				
		bcs	not_found		;branch if the pathname doesn't exist 
*
* The pathname already exists.
* If we're not extending a file (requested_stype = $8005) then report a duplicate path error.
* Otherwise, make sure the file is not already extended and that it's a 'standard file'.
*
		lda	requested_stype		;are we extending a file?
		bmi	@1			;yes 
		lda	#dup_pathname		;no - so we have a duplicate pathname
		brl	error			;return the error
		
@1		lda	storage_type		;get existing file's storage type
		cmp	#extended_stype		;is the file already extended?
		bne	@2			;no
		lda	#resource_exist		;yes - so resource fork already exists
		brl	error			;return the error
		
@2		cmp	#standard_stype		;is the file a 'standard file'?
		beq	its_standard		;yes 
		lda	#res_add_err		;no - so can't extend the file 
brl_error	brl	error			;return the error

its_standard	lda	resource_eof		;get # of bytes to allocate to rsrc fork	
		ora	resource_eof+2		;is it 0?
		bne	check_vol		;no - so continue
		brl	done			;yes - so we're done
		
*
* The pathname doesn't already exist.
* Make sure that the only part of the pathname that doesn't already exist is the 
* last name in the path.
* If we're trying to extend a file, then report a 'file not found' error.
*
not_found	cmp	#file_not_found		;was the error 'file not found'?
		bne	brl_error		;no - so return the error
		ldx	requested_stype		;are we extending a file?
		bmi	brl_error		;yes - so report 'file not found' error
*
* If input_error is non-zero then exit with input_error.
*
		lda	input_error		;was there an input error?
		bne	brl_error		;yes - so return the error
*
* Make sure the volume is unlocked.
*
check_vol	jsr	is_vol_unlocked		;is the volume unlocked?
		bcs	brl_error		;no - so return error
*
* If we're extending a file then skip the ct_create_rec and ct_get_rec calls since
* the Catalog Record already exists and A1.L, D2.L and catalog_hint are already set up 
* correctly from the process_path routine.
*
		lda	requested_stype		;get requested storage type
		bmi	mark_node		;branch if we're extending a file
*
* The path is good and the file/dir doesn't exist so create a new Catalog Record.
*
		lda	#record_name		;A0.L <- ptr to name
		sta	<a0
		lda	#^record_name
		sta	<a0+2
		
		lda	parent_id		;D0.L <- parent ID
		sta	d0
		lda	parent_id+2
		sta	d0+2
		
		ldx	#cat_fil_type
		lda	requested_stype		;get requested storage type 
		cmp	#directory_stype	;are we creating a subdirectory?
		bne	store_d1		;no - so branch
		ldx	#cat_dir_type		;yes 
store_d1	stx	d1			;D1.W <- catalog record type
		stx	record_type		;save for later
		
		jsr	ct_create_rec		;create a new Catalog Record
		bcs	brl_error
*
* Get a pointer to the new Catalog Record and save the catalog hint for later.
* When we get here, A0.L = ptr to name, D0.L = parent ID, D2.L = catalog hint.
*
		jsr	ct_get_rec		;get the new Catalog Record
		bcs	brl_error

		lda	d2			;save resulting catalog hint
		sta	catalog_hint
		lda	d2+2
		sta	catalog_hint+2
*
* When we get here, A1.L = ptr to Catalog Record, D2.L = catalog hint (ie node #).
* The node buffer which A1.L is pointing into is marked unused. This causes a problem
* if we need to extend either of the file's forks. The et_extend_file routine may
* read in nodes from disk which would most likely write over the node buffer containing 
* the Catalog Record that A1.L points to. To avoid this problem, we need to mark the
* node buffer as 'dirty' so it won't get re-used until we're done with it. The easiest
* way to do this is to call bt_get_node to get a pointer to the node buffer and then
* call bt_mark_node to mark the node buffer 'dirty'. This is sort of a kludge since 
* this code really shouldn't be dealing directly with the node buffers or the node
* buffer routines but it works and it's easy so what the heck.
* Note - this problem doesn't occur on the Mac because the Mac CREATE call doesn't 
* allow the user to specify an initial size for the forks.
* 
mark_node	lda	ctree_fcr_ptr		;A4.L <- ptr to Catalog tree fcr
		sta	<a4
		lda	ctree_fcr_ptr+2
		sta	<a4+2
		
		lda	#1			;D1.W <- node exists in buffer
		sta	d1
		
		jsr	bt_get_node		;set up A0.L to point to node buffer
		bcs	error
		
		jsr	bt_mark_node		;mark the node buffer 'dirty'
*
* If we're extending a file then the only input parameter we're interested in is
* the resource_eof parameter so branch down to the code which deals with that.
*
		lda	requested_stype		;get requested storage type
		bmi	do_rsrc_eof		;branch if we're extending a file
*
* If we're handling a class 1 call and the 'access' param was not supplied, use default.
*
		lda	pcount			;get pcount
		cmp	#2			;were 2 or more params supplied?
		bcs	access_ok		;yes - so access param was supplied
		lda	#full_access		;no - so set access param to default
		sta	access
access_ok
*
* Set access information for the file/dir.
*
		jsr	set_access		
*
* Set the HFS creator and filetype for the file/dir.
*
		jsr	set_file_aux
*
* Set the create date/time for the file/dir (class 0 call only).
*
		lda	class			;get call class
		bne	skip_dt			;branch if not class 0
		jsr	set_create_dt
skip_dt
*
* If requested_stype <> 'directory' then check the eof and resource_eof parameters.
* If eof <> 0, allocate the requested storage to the data fork.
* If resource_eof <> 0, allocate the requested storage to the resource fork.
* Note - the resource_eof param is only valid if requested_stype = 'extended file'.
* When a fork is extended, the peof is adjusted but the leof remains 0.
*
		lda	requested_stype		;get requested storage type
		cmp	#directory_stype	;are we creating a directory?
		beq	eofs_done		;yes - so ignore eof params
		
		lda	eof			;D4.L <- # of bytes to allocate
		sta	d4			
		lda	eof+2
		sta	d4+2
		ora	eof			;is eof = 0?
		beq	@0			;yes - so branch
		
		jsr	extend_fork		;no - so allocate the requested bytes
		bcs	error			;to the data fork
@0	
		lda	requested_stype		;get requested storage type
		cmp	#extended_stype		;are we creating an extended file?
		bne	eofs_done		;no - so ignore resource_eof param
		
do_rsrc_eof	lda	resource_eof		;D4.L <- # of bytes to allocate
		sta	d4
		lda	resource_eof+2
		sta	d4+2
		ora	resource_eof		;is resource_eof = 0?
		beq	eofs_done		;yes - so branch
		
		inc	resource_num		;indicate we're extending the rsrc fork
		jsr	extend_fork		;allocate the requested bytes
		bcs	error			;to the resource fork
eofs_done
*
* Write the catalog node containing the record out to disk.
*
		lda	catalog_hint		;D2.L <- catalog hint
		sta	d2
		lda	catalog_hint+2
		sta	d2+2
		jsr	ct_update
		bcs	error
*
* Indicate no error and exit.
*
done		clc
 		rts
		
*
* Return an error.
*
error		sec				
		rts				

;------------------------------------------------------------------------------
; extend_fork routine
;------------------------------------------------------------------------------

extend_fork	

*
* Build an fcr for the fork.
*
		lda	#read_write		;set up 'request_access' for build_fcr
		sta	request_access
		
		jsr	build_fcr		;build an fcr for the fork
		bcs	extend_exit
*
* Set the file's clump size equal to the volume's allocation block size so that 
* et_extend_file won't allocate more space than we want. 
*
		ldy	#fcr_clump_size		
		lda	ablk_size		
		sta	[my_fcr_ptr],y		
		iny				
		iny
		lda	ablk_size+2
		sta	[my_fcr_ptr],y
*
* Allocate the requested # of bytes to the fork.
* D4.L has already been set up to contain the # of bytes to allocate.
* Note - et_extend_file updates the fcr_peof field and the fcr_ext field.
* 
		lda	<my_fcr_ptr		;A2.L <- ptr to fcr
		sta	<a2
		lda	<my_fcr_ptr+2
		sta	<a2+2
		
		lda	#1			;D3.W <- allocate all requested bytes
		sta	d3
		
		jsr	et_extend_file		;extend the fork
		bcs	extend_exit2		;branch if error
*
* Copy the new peof and ext from the fcr to the Catalog Record.
*
		lda	<my_fcr_ptr		;setup source ptr
		sta	<source_ptr
		lda	<my_fcr_ptr+2
		sta	<source_ptr+2
		
		lda	<a1			;setup destination ptr
		sta	<dest_ptr		
		lda	<a1+2
		sta	<dest_ptr+2

		ldy	#fcr_peof		;get starting source offset
		ldx	#fil_data_peof		;get starting dest offset
		lda	resource_num		;are we extending the resource fork?
		beq	cont1			;no - so branch
		ldx	#fil_rsrc_peof		;yes - so adjust dest offset
cont1		jsr	copy_long		;copy peof
		
		ldy	#fcr_ext		;get starting source offset
		ldx	#fil_data_ext		;get starting dest offset
		lda	resource_num		;are we extending the resource fork?
		beq	cont2			;no - so continue
		ldx	#fil_rsrc_ext		;yes - so adjust dest offset
cont2		jsr	copy_ext		;copy ext (6 words)
*
* Release the fcr and exit.
*		
		lda	[my_fcr_ptr]		;get fcr refnum
		jsl	release_fcr		;release the fcr
extend_exit	rts		


*
* We got an error from et_extend_file.
* We need to save the error code, do a bunch of cleaning up, and then return the error.
*
extend_exit2	pha				;save error code
*
* Release the fcr.
*
		lda	[my_fcr_ptr]		;get fcr refnum
		jsl	release_fcr		;release the fcr
*
* If we're extending a standard file (requested_stype = $8005), then we're done cleaning up.
*
		lda	requested_stype		;get requested storage type
		bmi	cleaned_up		;branch if we're extending a file
*
* Write the node containing the Catalog Record out to disk so that et_delete_file
* will get the correct extent information.
*
		lda	catalog_hint		;D2.L <- catalog hint
		sta	d2
		lda	catalog_hint+2
		sta	d2+2
		jsr	ct_update
*
* De-allocate any disk space allocated to the file
* then delete the Catalog Record for the file.
*
		lda	#record_name		;A0.L <- ptr to name
		sta	<a0
		lda	#^record_name
		sta	<a0+2
		
		lda	parent_id		;D0.L <- parent ID
		sta	d0
		lda	parent_id+2
		sta	d0+2
		
		jsr	et_delete_file		;de-allocate space allocated to file
		jsr	ct_delete_rec		;delete the Catalog Record
*
* Retrieve original error code and exit.
*
cleaned_up	pla				;retrieve original error code
		sec				;indicate error
		rts				;exit

		ENDP
		
		eject
******************************************************************************
*
*	 Name:	destroy
*
* Description:	Deletes a file or subdirectory.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<gbuf_ptr - pointer to 512 byte general purpose buffer
*		<my_path_ptr - pointer to pathname (if specified) in gstring format
*		<dev_num - device number (if specified), else 0
*		name_count - total # of names in full pathname. 0 if device # only.
*		first_offset - offset to first name in pathname
*		last_offset - offset to last name in pathname
*		volname - volume name in gstring format (if dev_num = 0)
*
*      Output:	A = error code if carry set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*	 Uses:	all registers
*
*   Called by:	app_entry
*
*	Calls:	process_path
*		is_vol_unlocked
*		is_file_unlocked
*		is_file_closed
*		et_delete_file
*		ct_delete_rec
*
* Copyright Apple Computer, Inc. 1989-91  All rights reserved.
******************************************************************************

destroy		PROC
		with	data
		
*
* Find the Catalog Record and vcr for the requested file or directory.
*
		jsr	process_path		   
		bcs	exit		
*
* Return an error if trying to delete a volume directory.  
*
		lda	storage_type		;get storage type
		cmp	#volume_stype		;trying to delete a volume directory?
		bne	stype_ok		;no
		lda	#invalid_access		;yes - so return an error 
		sec
		bra	exit
stype_ok
*
* Make sure the file/dir isn't currently open. 
*
		jsr	is_file_closed		;is the file/dir closed?
		bcs	exit			;no - so return error
*
* Make sure the file/dir is unlocked. 
*
		jsr	is_file_unlocked	;is the file/dir unlocked?
		bcs	exit			;no - so return error
*
* Make sure the volume is unlocked.
*
		jsr	is_vol_unlocked		;is the volume unlocked?
		bcs	exit			;no - so return error
*
* Setup inputs for calls to et_delete_file and ct_delete_rec.
* Note - et_delete_file saves and restores the input registers so we don't
*	 need to set them up again before calling ct_delete_rec.
*
		lda	#record_name		;A0.L <- ptr to name
		sta	<a0
		lda	#^record_name
		sta	<a0+2
		
		lda	parent_id		;D0.L <- parent ID
		sta	d0
		lda	parent_id+2
		sta	d0+2
		
		lda	catalog_hint		;D2.L <- catalog hint
		sta	d2
		lda	catalog_hint+2
		sta	d2+2
*
* If we're deleting a subdirectory, it must be empty.   
*
		lda	record_type		;get catalog record type
		cmp	#cat_dir_type		;are we deleting a directory?
		bne	not_dir			;no - so skip check
		ldy	#dir_valence		;yes - so get # of kids in dir
		lda	[a1],y			;is the dir empty?
		beq	delete_rec		;yes - so delete it
		lda	#invalid_access		;no - so return error
		sec
		bra	exit
not_dir
*
* De-allocate all disk space currently allocated to the file.
* Note - subdirectories have no space allocated to them so skip this call.
*
		jsr	et_delete_file		;de-allocate space allocated to file
		bcs	exit
*
* Delete the Catalog Record for the file/dir.
*
delete_rec	jsr	ct_delete_rec		;delete the Catalog Record
		bcs	exit
*
* Indicate no error and exit.
*
		clc				
exit		rts

		ENDP

		eject
******************************************************************************
*
*	 Name:	change_path
*
* Description:	Changes a file's pathname to another pathname on the same volume,
*		or renames a volume.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<path_flag - indicates if path1_ptr and/or path2_ptr are valid
*		<path1_ptr - pointer to source pathname in gstring format
*		<path2_ptr - pointer to dest pathname in gstring format
*		<dev1_num - device number for source if specified, else 0
*		<dev2_num - device number for destination if specified, else 0
*		<span1 - maximum span of source pathname
*		<span2 - maximum span of destination pathname
*
*		<gbuf_ptr - pointer to 512 byte general purpose buffer
*		<my_path_ptr - pointer to source pathname (if specified) in gstring format
*		name_count - total # of names in source pathname. 0 if device # only.
*		first_offset - offset to first name in source pathname
*		last_offset - offset to last name in source pathname
*		volname - volume name in gstring format (if dev_num = 0)
*
*      Output:	A = error code if carry set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*	 Uses:	all registers
*		src_vcr_id
*		src_dev_num
*		src_cat_hint
*		src_parent_id
*		src_id
*		src_record_name
*		src_locked
*		src_is_vol
*		volname
*		<temp0
*
*   Called by:	app_entry
*
*	Calls:	process_path
*		is_vol_unlocked
*		is_file_closed
*		is_file_unlocked
*		parse_path2
*		ct_move_rec
*		ct_rename_rec
*		update_vib_name
*		strcmp
*		release_vcr		(system service)
*		rename_vcr		(system service)
*
* Copyright Apple Computer, Inc. 1989-91  All rights reserved.
*
*-----------------------------------------------------------------------------
* Examples of valid combinations of source and destination pathnames -
*
* <volname or devname>	 	   --> <volname>		 	(rename)
* <volname or devname>:oldfile 	   --> <volname or devname>:newfile 	(rename)
*
* <volname or devname>:oldfile 	   --> <volname or devname>:dir:oldfile (move)
* <volname or devname>:dir:oldfile --> <volname or devname>:oldfile	(move)
*
* <volname or devname>:oldfile 	   --> <volname or devname>:dir:newfile	(move and rename)
* <volname or devname>:dir:oldfile --> <volname or devname>:newfile	(move and rename)
* 
* Examples of invalid combinations of source and destination pathnames -
*
* <any pathname> 		--> <devname>
* <volname or devname>		--> <volname or devname>:anything
* <volname or devname>:anything --> <volname or devname>
*
* Other rules -
*
* An open file/dir cannot be moved or renamed.
* A locked file can be moved but cannot be renamed.
* An open dir can have files/dirs moved into and out of it.
* Can move or rename the ancestor of an open file/dir.
*
* Notes -
*
* If an ancestor of an open file/dir is moved or renamed, the FCR for the open
*   file/dir will still have the old pathname.  (the ProDOS FST acts the same)
* If a volume is renamed, the FCRs for all open files/dirs on that volume will
*   still have the old volume name.  (the ProDOS FST acts the same)
* A volume, whose current name is a duplicate of another volume which has open files,
*   can be renamed by using a device name as the source pathname.
* If bit 15 of cp_flags is set and the source was a device name only, then assume
*   if was a duplicate and use the "fake VCR" method to rename it.
******************************************************************************

change_path	PROC
		with	data

*
* If the source is only a device # then set cp_device_flag to 1. 
* This is a special case so that the Finder can rename a volume whose current name 
* is a duplicate of another volume which has open files.
*
		lda	name_count		;was a source pathname supplied?
		bne	@not_dev		;yes
		inc	cp_device_flag		;no - so indicate source was a device #
@not_dev
*
* If the source was _not_ just a device #, force the high bit of cp_flags to 0 (since
* it only applies when the source is only a device #).  5-Dec-91 MSD
*
		lda	cp_device_flag		; was the source a device # only?
		bne	@is_dev			; yes, so leave cp_flags alone
		stz	cp_flags		; only high bit is defined, clear it
@is_dev
*
* Find the Catalog Record and vcr for the source file/dir.
* Note - we need to call process_path before we check path2_bit so that
*	 error_priority is set correctly.
*
		jsr	process_path
		bcs	brl_error
*
* The destination cannot be only a device #, so
* if a destination pathname wasn't specified then report an error.
*
		lda	<path_flag		;get pathname flags
		and	#path2_bit		;is pathname 2 defined?
		bne	path2_ok		;yes - so ok
		brl	bad_path		;no
path2_ok
*
* Make sure the source file/dir is closed. 
*
		jsr	is_file_closed		;is the file/dir closed?
		bcc	file_closed		;yes
brl_error	brl	error			;no - so return error
file_closed		
*
* Make sure the volume is unlocked.
*
		jsr	is_vol_unlocked		;is the volume unlocked?
		bcs	brl_error		;no - so return error
*
* Find out if the source file/dir is unlocked in case we're doing a rename. 
*
		stz	src_locked
		jsr	is_file_unlocked	;is the file/dir unlocked?
		bcc	unlocked		;yes
		sta	src_locked		;no - so save error code for later
unlocked
*
* Save the source file/dir's vcr id, device number, catalog hint, parent id, 
* file/dir id, and name.
* 
		lda	[my_vcr_ptr]		;get vcr id
		sta	src_vcr_id		;and save
		
		ldy	#vcr_dev
		lda	[my_vcr_ptr],y		;get device number
		sta	src_dev_num		;and save
		
		lda	catalog_hint		;get catalog hint
		sta	src_cat_hint		;and save
		lda	catalog_hint+2
		sta	src_cat_hint+2
		
		lda	parent_id		;get parent id
		sta	src_parent_id		;and save
		lda	parent_id+2
		sta	src_parent_id+2
		
		lda	id			;get file/dir id
		sta	src_id			;and save
		lda	id+2
		sta	src_id+2
		
		sep	#$30			;set 8-bit A and X
		longa	off
		longi	off
		
		ldx	record_name		;get name length
save_loop	lda	record_name,x		;save name 
		sta	src_record_name,x
		dex
		bpl	save_loop		;loop until done
		
		rep	#$30			;restore 16-bit A and X
		longa	on
		longi	on
*
* Set a flag if the source is a volume directory.
*
		stz	src_is_vol		;init flag
		lda	storage_type		;get storage type of source
		cmp	#volume_stype		;is it a volume dir?
		bne	@not_vol		;no
		inc	src_is_vol		;yes - so set flag
@not_vol
* 
* Parse the destination pathname.
*
 		jsr	parse_path2		;parse the destination pathname
		bcc	dest_ok		
		brl	error
dest_ok
*
* Branch if the source is not a volume directory.
*
		lda	src_is_vol		;is the source a volume dir?
		beq	src_not_vol		;no - so branch
*
* The source is a volume directory.
* First, make sure that the destination consists of only 1 name.
* Then check to see if a vcr exists for the destination name.
* If we find a vcr, then check to see if the dest vcr ID matches the source vcr ID.  
* If the vcr IDs match, do the rename (we might be changing the case of the name).  
* If they don't match, then check to see if the destination volume has any open files.
* If so, return a 'duplicate volume' error.  If not, release the vcr and do the rename.
*
		lda	name_count		
		cmp	#1			;does dest have only 1 name?
		bne	brl_bad_path		;no - so report error
		
	 	ldx	#volname		;get pointer to	destination volume name
		ldy	#^volname
		lda	#0000			;search	by name
		jsl	find_vcr		
		bcs	not_dup_vol		;didn't find a vcr so do rename
		
		jsl	deref			;dereference pointer
		stx	<temp0			;save it in 'temp0' so we don't trash
		sty	<temp0+2		;'my_vcr_ptr' which is needed later!
		
		lda	[temp0]			;get vcr id of dest
		cmp	src_vcr_id		;compare it to the vcr id of the source
		beq	not_dup_vol		;they're the same so do rename

		ldy	#vcr_open_cnt		;the source and dest are not the same volume
		lda	[temp0],y		;does the dest volume have any open files?
		bne	brl_dup_vol		;yes - so return 'duplicate volume' error
		lda	[temp0]			;no - so release the dest vcr 
		jsl	release_vcr
not_dup_vol	brl	do_rename		;and do rename		
		
brl_dup_vol	brl	dup_vol

*
* The source is not a volume directory.
* First, make sure that the destination consists of > 1 name.
* Then, try to find the Catalog Record and vcr for the destination file/dir.
*
src_not_vol	lda	name_count		
		cmp	#1			;does dest have > 1 name?
		bne	cont			;yes - so continue
brl_bad_path	brl	bad_path		;no - so report error
cont
		jsr	process_path		;did we find the Catalog Record and vcr?
		bcs	not_found		;no - so branch
*
* The destination file/dir exists.
* Check to see if the source and dest are the same file/dir.  
* If so, do a rename (we might be changing the case of the name). 
* Otherwise, return a 'duplicate pathname' error.
*
		ldy	#vcr_dev
		lda	[my_vcr_ptr],y		;get device number of dest
		cmp	src_dev_num		;same as device number of source?
		bne	brl_dup_path		;no - so report error
		
		lda	src_parent_id		;source and dest are on same device so
		cmp	parent_id		;compare their parent ids
		bne	brl_dup_path		;no match - return 'duplicate path' error
		lda	src_parent_id+2
		cmp	parent_id+2
		bne	brl_dup_path		;no match - return 'duplicate path' error
		
		lda	src_id			;source and dest have same parent ids
		cmp	id			;so compare their own ids
		bne	brl_dup_path		;no match - return 'duplicate path' error
		lda	src_id+2
		cmp	id+2
		beq	do_rename		;they're the same so do a rename
brl_dup_path	brl	dup_path		;no match - return 'duplicate path' error
		
*
* The destination file/dir doesn't exist.
* If we got a 'file not found' error then continue.
* If we got any other error, then return it.
*
not_found	cmp	#file_not_found		;'file_not found' error?
		beq	err_ok			;yes - so continue
brl_error2	brl	error			;no - so return the error
err_ok
*
* If we get here, we got a 'file not found' error from process_path on the destination.
* Make sure that the source and destination are on the same device.
*
		ldy	#vcr_dev
		lda	[my_vcr_ptr],y		;get device number of dest
		cmp	src_dev_num		;same as device number of source?
		bne	brl_bad_path		;no - so report error
*
* If the parent_id of the source and destination are the same then do a rename.
* If not, do a move.
*
		lda	parent_id		;get parent dir id of dest
		cmp	src_parent_id		;same as parent dir id of source?
		bne	do_move			;no - so do a move
		lda	parent_id+2
		cmp	src_parent_id+2
		bne	do_move
*
* We're doing a rename.
*  
do_rename	lda	src_locked		;is the source file/dir locked?
		bne	brl_error2		;yes - so return error
		
		lda	#src_record_name	;A0.L <- ptr to source record name
		sta	<a0
		lda	#^src_record_name
		sta	<a0+2
		
		lda	src_parent_id		;D0.L <- parent id of source
		sta	d0
		lda	src_parent_id+2
		sta	d0+2

		lda	src_cat_hint		;D2.L <- catalog hint for source
		sta	d2		
		lda	src_cat_hint+2
		sta	d2+2
		
		lda	src_is_vol		;are we renaming a volume directory?
		beq	@not_vol1		;no - so the new name is in record_name
		
		lda	volname			;yes - so new name is in volname
		xba				;convert volname from a gstring to a
		sta	volname			;class 0 string	
		
		lda	#volname+1		;A1.L <- ptr to dest record name
		sta	<a1
		lda	#^volname
		sta	<a1+2
		
		bra	@cont			;continue
		
@not_vol1	lda	#record_name		;A1.L <- ptr to dest record name
		sta	<a1
		lda	#^record_name
		sta	<a1+2
		
@cont		jsr	ct_rename_rec		;do the rename
		bcs	error
		
		lda	src_is_vol		;did we just rename a volume directory?
		beq	@not_vol2		;no
		
		jsr	vol_rename		;yes - so do volume specific stuff
		bcs	error
		
@not_vol2	bra	done			;we're done
		
*
* We're doing a move.
*
* Note - we may be moving and renaming at the same time. 
*	 For example - /vol/folder1/oldname --> /vol/newname
*	 If the source is locked then we need to report an error
*	 since renaming is not allowed on a locked file.
*
do_move		lda	#src_record_name	;A0.L <- ptr to source record name
		sta	<a0
		lda	#^src_record_name
		sta	<a0+2
		
		lda	#record_name		;A1.L <- ptr to dest record name
		sta	<a1
		lda	#^record_name
		sta	<a1+2
		
		lda	src_locked		;is the source file/dir locked?
		beq	@cont			;no - so rename is allowed
		jsr	strcmp			;do the source and dest names match? 
		beq	@cont			;yes - so not doing a rename
		lda	src_locked		;no - so get error code
		bra	error			;and return error
		
@cont		lda	src_parent_id		;D0.L <- parent id of source
		sta	d0
		lda	src_parent_id+2
		sta	d0+2
		
		lda	parent_id		;D1.L <- dir id of destination directory
		sta	d1			
		lda	parent_id+2
		sta	d1+2
		
		lda	src_cat_hint		;D2.L <- catalog hint for source
		sta	d2		
		lda	src_cat_hint+2
		sta	d2+2
		
  		jsr	ct_move_rec		;do the move (and rename)
		bcs	error
*
* Indicate no error and exit.
*
done		clc
 		rts

*
* Return a 'duplicate volume' error.
*
dup_vol		lda	#dup_volume		;get error code
		bra	error
		
*
* Return a 'duplicate pathname' error.
*
dup_path	lda	#dup_pathname		;get error code
		bra	error
		
*
* Return a 'bad path syntax' error.
*
bad_path	lda	#bad_path_syntax	;get error code

*
* Return an error.
*
error		ldx	cp_device_flag		;did we build a vcr with a fake name?
		bmi	clean_up		;yes - so need to clean up
		sec				;indicate error
		rts				;and exit

*
* We were renaming a duplicate volume so we built a vcr with a fake name.  Since we 
* got an error at some point in the process, we need to find the vcr with the fake
* name and release it (if it still exists).
*
clean_up 	pha				;save error code
		ldx	#fake_name_str		;get pointer to	fake name string
		ldy	#^fake_name_str
		lda	#0000			;search	by name
		jsl	find_vcr		
		bcs	@ok			;didn't find the vcr so we're ok
		jsl	deref			;dereference vcr pointer
		stx	<temp0			
		sty	<temp0+2		
		lda	[temp0]			;get vcr id 
		jsl	release_vcr		;release the vcr
@ok		pla				;retrieve error code
		sec				;indicate error
		rts				;and exit
		

;------------------------------------------------------------------------------
; vol_rename routine
;------------------------------------------------------------------------------

vol_rename	

; Copy the new volume name into the VIB.	
; Note - 'volname+1' is currently a class 0 string.

		jsr	update_vib_name
		bcs	vol_exit
		
; Change the new volume name from a class 0 string back to a gstring. 

		lda	volname			;make volname a gstring again
		xba				
		sta	volname

; Store the new volume name in the vcr.  

		lda	src_vcr_id		;get vcr id
		ldx	#volname		;get ptr to new volume name
		ldy	#^volname
		jsl	>rename_vcr		;rename the vcr
		bcs	vol_exit

; Get pointer to current boot prefix (class 1 string with leading separator).
; Convert boot prefix to a class 0 string without a leading separator.
; Compare current boot prefix with the original volume name.
; Note - the original volume name is a class 0 string without a leading separator.
; Restore boot prefix to a class 1 string with a leading separator.
; Note - if cp_device_flag is $8001 then we're renaming a duplicate volume. In this
;	 case, skip this section since the duplicate volume could have the same
;	 name as the boot volume and we don't want to change the boot prefix.
; @@@ this code is not needed until we support booting from an HFS volume 
;
;		lda	cp_device_flag		;are we renaming a duplicate volume?
;		bmi	vol_done		;yes - so don't change the boot prefix
;
;		jsl	>get_boot_pfx		;get ptr to current boot prefix
;		stx	<a0			;A0.L <- ptr to current boot prefix
;		sty	<a0+2
;
;		lda	[a0]			;save length word
;		pha
;		ldy	#1
;		lda	[a0],y			;save separator
;		pha
;		
;		lda	[a0]			;convert boot prefix to class 0 string
;		dec	a			;without a leading separator
;		xba
;		sta	[a0],y
;		inc	<a0			;adjust string ptr
;		inc	<a0
;		
;		lda	#src_record_name	;A1.L <- ptr to original volume name
;		sta	<a1			
;		lda	#^src_record_name
;		sta	<a1+2
;
;		jsr	strcmp			;compare the strings
;		php
;		php
;		plx				;save result in X
;
;		dec	<a0			;restore string ptr
;		dec	<a0
;		ldy	#1			;restore separator
;		pla
;		sta	[a0],y
;		pla				;restore length word
;		sta	[a0]
;		
;		phx				;restore result
;		plp
;		plp
;		bne	vol_done		;branch if strings did not match
;		
; The boot prefix = the original volume name so change the boot prefix to the 
; new volume name.
;
;		ldx	#kludge			;get ptr to new volume name
;		ldy	#^kludge
;		jsl	>set_boot_pfx		;set the boot prefix
;		bcs	vol_exit
 		
vol_done	clc
vol_exit	rts
		
		ENDP

		eject
******************************************************************************
*
*	 Name:	set_file_info
*
* Description:	Sets information about an existing file or directory.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		pcount - parameter count
*		access -  access information
*		file_type - ProDOS file type
*		aux_type - ProDOS aux type
*		create_date - create date (class 0 call)
*		create_time - create time (class 0 call)
*		mod_date - modification date (class 0 call)
*		mod_time - modification time (class 0 call)
*		create_date_time - create date and time (class 1 call)
*		mod_date_time - modification date and time (class 1 call)
*		finder_info - Finder Info (class 1 call)
*		option_flag - indicates whether a valid option list was provided
*
*		<gbuf_ptr - pointer to 512 byte general purpose buffer
*		<my_path_ptr - pointer to pathname (if specified) in gstring format
*		<dev_num - device number (if specified), else 0
*		name_count - total # of names in full pathname. 0 if device # only.
*		first_offset - offset to first name in pathname
*		last_offset - offset to last name in pathname
*		volname - volume name in gstring format (if dev_num = 0)
*
*      Output:	A = error code if carry set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*	 Uses:	all registers
*
*   Called by:	app_entry
*
*	Calls:	process_path
*		is_vol_unlocked
*		set_access
*		set_file_aux
*		set_create_dt
*		set_mod_dt
*		set_finder_info
*		ct_update
*
* Copyright Apple Computer, Inc. 1989-91  All rights reserved.
******************************************************************************

set_file_info	PROC
		with	data
		
*
* Find the Catalog Record and vcr for the requested file or directory.
*
		jsr	process_path		   
		bcs	exit			
*
* Return an error if trying to do SetFileInfo on a volume directory.  
*
		lda	storage_type		;get storage type
		cmp	#volume_stype		;trying to change a volume directory?
		bne	stype_ok		;no
		lda	#bad_path_syntax	;yes - so return an error
		sec
		brl	exit
stype_ok
*
* Make sure the volume is unlocked.
*
		jsr	is_vol_unlocked		;is the volume unlocked?
		bcs	exit			;no - so return error
*
* Set the access information for the file/dir.
*
		jsr	set_access		
*
* Set the translated ProDOS filetype and auxtype for the file/dir (if provided).
*
		lda	pcount			;get pcount 
		cmp	#3			;was the 'filetype' param provided?
		bcc	skip_it1		;no - so don't change current values
 		jsr	set_file_aux
skip_it1
*
* Set the create date/time for the file/dir (if provided).
*
		lda	pcount			;get pcount 
		cmp	#6			;was the 'create date/time' param provided?
		bcc	skip_it2		;no - so don't change current values
		jsr	set_create_dt		
skip_it2
*
* Set the modified date/time for the file/dir (if provided).
*
		lda	pcount			;get pcount 
		cmp	#7			;was the 'mod date/time' param provided?
		bcc	skip_it3		;no - so don't change current values
		jsr	set_mod_dt		
skip_it3
*
* Set the Finder Info for the file/dir (if provided).
*
		lda	option_flag		;was a valid option list provided? 
		beq	skip_it4		;no - so don't change current values
		jsr	set_finder_info
skip_it4
*
* Write the catalog node containing the record out to disk.
*
		lda	catalog_hint		;D2.L <- catalog hint
		sta	d2
		lda	catalog_hint+2
		sta	d2+2
		jsr	ct_update
		bcs	exit
*
* Return an error if we were asked to lock a directory.
*
		lda	storage_type		;get storage type
		cmp	#directory_stype	;directory?
		bne	@ok			;no

		lda	access			;get access word
		ora	#read_enabled		;make sure 'read enabled' bit is set
		and	#full_access		;mask off unwanted bits
		cmp	#full_access		;are all the 'enabled' bits set?
		beq	@ok			;yes - so ok
		lda	#invalid_access		;return an error since a dir can't be locked
		sec
		bra	exit
@ok
*
* Indicate no error and exit.
*
		clc				
exit		rts
		
		ENDP

		eject
******************************************************************************
*
*	 Name:	get_file_info
*
* Description:	Returns	information about an existing file or directory.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<gbuf_ptr - pointer to 512 byte general purpose buffer
*		<my_path_ptr - pointer to pathname (if specified) in gstring format
*		<dev_num - device number (if specified), else 0
*		name_count - total # of names in full pathname. 0 if device # only.
*		first_offset - offset to first name in pathname
*		last_offset - offset to last name in pathname
*		volname - volume name in gstring format (if dev_num = 0)
*
*      Output:	A = error code if carry	set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*		<my_vcr_ptr - ptr to vcr
*
*	 Uses:	all registers
*
*   Called by:	app_entry
*
*	Calls:	process_path
*		get_cat_info
*
* Copyright Apple Computer, Inc. 1989-90  All rights reserved.
******************************************************************************

get_file_info	PROC
		with	data

*
* Find the Catalog Record and vcr for the requested file or directory.
*
		jsr	process_path		   
		bcs	exit			
*
* Copy information from the Catalog Record into the output parameters.
*
		jsr	get_cat_info

exit		rts

		ENDP
		
		eject
******************************************************************************
*
*	 Name:	judge_name
*
* Description:	Returns information about HFS filename and volume name syntax.
*		Modifies name (if supplied) to conform to HFS syntax.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		name_type - type of name to judge
*		name_ptr - ptr to class 1 output buffer containing name to judge 
*			   (0 if no name supplied)
*
*      Output:	A = error code if carry set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*		max_len - maximum name length
*		name_flags - results of judging
*
*	 Uses:	all registers
*		<my_path_ptr
*		<temp0
*		<temp1
*
*   Called by:	app_entry
*
*	Calls:	nothing
*
* Copyright Apple Computer, Inc. 1991  All rights reserved.
******************************************************************************

judge_name	PROC
		with	data

*
* Check the name_type input parameter and set up the max_len output parameter.
*
		ldx	#max_filename		;get max length of filename
		lda	name_type		;get name type
		cmp	#1			;volume name?
		bne	@0			;no
		ldx	#max_volname		;get max length of volume name
@0		stx	max_len			;store max length
*
* Copy the name_ptr input parameter into <my_path_ptr.
* If name_ptr = 0, then no name was supplied so we're done.
*
		lda	name_ptr
		sta	<my_path_ptr
		lda	name_ptr+2
		sta	<my_path_ptr+2
		ora	<my_path_ptr
		beq	bra_done
*
* Check the name buffer size to make sure the buffer is large enough to contain
* the maximum size name of the specified type.  If not, return an error.
*
		lda	[my_path_ptr]		;get the buffer size
		sec
		sbc	#4			;subtract 4 for the 2 length words
		bcc	@too_small		;branch if buffer size is < 4
		cmp	max_len			;is the buffer big enough?
		bcs	@size_ok		;yes
@too_small	lda	#buff_too_small		;no - so return an error
		sec
		brl	exit			
@size_ok		
*
* Adjust <my_path_ptr so that it points to the length word of the name string 
* instead of to the buffer size word.  
*
		clc
		lda	<my_path_ptr		;adjust ptr to point to the name length
		adc	#2
		sta	<my_path_ptr
		lda	<my_path_ptr+2
		adc	#0
		sta	<my_path_ptr+2
*
* If the name length = 0 then set the name string to "A", indicate that
* there was a syntax error, and then exit.
*
		lda	[my_path_ptr]		;is the name length = 0?
		bne	got_name		;no - so we have a name
		lda	#1
		sta	[my_path_ptr]		;set name length to 1
		ldy	#2
		lda	#'A'
		sta	[my_path_ptr],y		;set name string to "A"
		lda	#$2000			;set bit 13 to indicate that
		tsb	name_flags		;there was a syntax error
bra_done	bra	done			;we're done
got_name
*
* We have a name to judge.
* Convert all illegal characters (colons and nuls) to periods.
*
		lda	[my_path_ptr]		;get length of pathname
		inc	a			;adjust for extra length byte
		tay

		ldx	#0			;init to 0
		
		longa	off			;set 8 bit A
		sep	#$20

loop1		lda	[my_path_ptr],y		;get byte
		beq	@bad_char		;branch if it's a nul
		cmp	#':'			;is it a colon?
		bne	@ok			;no
@bad_char	lda	#'.'			;it's an illegal character so
		sta	[my_path_ptr],y		;replace it with a period
		ldx	#$8000			;indicate illegal character found
@ok		dey				;decrement offset
		cpy	#1
		bne	loop1			;loop until done

		longa	on			;set 16 bit A
		rep	#$20
		
		txa				;set bit 15 if an illegal
		tsb	name_flags		;character was found
*
* Determine if the name is too long.
* For filenames - keep the first 15 chars, insert '..', keep the last 14 chars.
* For volume names - keep the first 13 chars, insert '..', keep the last 12 chars.
*
		lda	[my_path_ptr]		;get name length
		dec	a
		cmp	max_len			;is it too long?
		bcc	length_ok		;no

		lda	max_len			;max_len = 31 or 27
		lsr	a
		sta	<temp0			;temp0 <- 15 or 13
		inc	a
		inc	a
		tay				;Y <- 17 or 15
		lda	#'..'			
		sta	[my_path_ptr],y		;insert the '..'
		
		iny				;adjust Y past the '..'
		iny
		phy				;and save

		dec	<temp0			;temp0 <- 14 or 12
		lda	[my_path_ptr]		;get length of name
		inc	a			;add 2 because of length word
		inc	a
		sta	<temp1			;and save for later
		sec
		sbc	<temp0			;subtract 14 or 12 to get offset
		tax				;to last part of name to keep
		
		longa	off			;set 8 bit A
		sep	#$20

loop2		txy				;move the last 12 or 14 chars 
		lda	[my_path_ptr],y		;so they are after the '..'
		ply
		sta	[my_path_ptr],y
		iny
		phy
		inx
		cpx	<temp1			;are we done?
		bcc	loop2			;no - so loop
		ply				;clean up stack
		
		longa	on			;set 16 bit A
		rep	#$20
		
		lda	max_len			;adjust the name length
		sta	[my_path_ptr]
		
		lda	#$4000			;set bit 14 to indicate
		tsb	name_flags		;name was too long
length_ok
*
* Indicate no error and return.
*
done		clc
exit		rts
		
		ENDP

		eject
******************************************************************************
*
*	 Name:	volume
*
* Description:	Returns information about an HFS volume.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<dev_num - device number
*		<gbuf_ptr - pointer to 512 byte general purpose buffer
*
*      Output:	A = error code if carry	set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*		total_blocks - total number of blocks on the volume
*		free_blocks - total number of free blocks on the volume
*		<my_vcr_ptr - ptr to vcr
*
*	 Uses:	all registers
*
*   Called by:	app_entry
*
*	Calls:	id_disk
*		get_vol_info
*		oh_volname
*
* Copyright Apple Computer, Inc. 1989-90  All rights reserved.
******************************************************************************

volume		PROC
		with	data

*
* First, ID the disk and make sure it's an HFS disk.
*
		lda	<dev_num		;get device # from direct page
		jsr	id_disk			;ID the disk
		bcs	got_error		;branch if we got an error
*
* Setup the total_blocks and free_blocks output parameters.
*
 		jsr	get_vol_info
exit		rts

*
* We got an error from id_disk.
* If the error is "dup_volume" then we need to force the "volname" output parameter
* to be setup even though we're returning an error.
*
got_error	cmp	#dup_volume		;duplicate volume error?
		beq	return_volname		;yes, so return the volume name anyway
		cmp	#damaged_bitmap		;was the CTree/ETree damaged?
		bne	error			;no - so we're done
return_volname
		pha				; save error code (13-Nov-91 MSD)
		ldy	#4			;get class 0 offset to the volname param 
		lda	class			;get call class
		beq	doit			;branch if doing class 0
		iny				;adjust param offset for class 1
		iny
doit		jsr	oh_volname		;setup the volname output param
		ply				; get error back, but don't change A yet
						; in case there was an error (13-Nov-91 MSD)
		bcs	exit			;return output buffer errors
		tya				;restore the original error (13-Nov-91 MSD)
error		sec				;indicate error
		rts				;and exit

		ENDP
		
		eject
******************************************************************************
*
*	 Name:	clear_backup
*
* Description:	Sets information about a file/directory to indicate that the
*		file/directory has been backed up.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<gbuf_ptr - pointer to 512 byte general purpose buffer
*		<my_path_ptr - pointer to pathname (if specified) in gstring format
*		<dev_num - device number (if specified), else 0
*		name_count - total # of names in full pathname. 0 if device # only.
*		first_offset - offset to first name in pathname
*		last_offset - offset to last name in pathname
*		volname - volume name in gstring format (if dev_num = 0)
*
*      Output:	A = error code if carry set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*	 Uses:	all registers
*
*   Called by:	app_entry
*
*	Calls:	process_path
*		is_vol_unlocked
*		ct_update
*
* Copyright Apple Computer, Inc. 1989-90  All rights reserved.
******************************************************************************

clear_backup	PROC
		with	data
		
*
* Find the Catalog Record and vcr for the requested file or directory
*
		jsr	process_path		;go find the Catalog Record   
		bcs	exit
*
* If the requested file/directory is the volume directory then we're done.  
*
		lda	storage_type		;get storage type
		cmp	#volume_stype		;is it the volume directory?
		beq	done			;yes - so we're done
*
* Make sure the volume is unlocked.
*
		jsr	is_vol_unlocked		;is the volume unlocked?
		bcs	exit			;no - so return error
*
* Get the modified date/time from the Catalog Record, add 1, and store in <temp0.
*
		ldy	#fil_mod_dt+2		;init offset for File Record
		lda	record_type		;check type of Catalog Record
		cmp	#cat_fil_type		;is it a File Record?
		beq	cont1			;yes - so branch
		ldy	#dir_mod_dt+2		;adjust offset for Directory Record
cont1		
		clc
		lda	[a1],y			;get lo word of mod date/time
		xba				;change byte sex
		adc	#1			;add 1 second
		sta	<temp0			;and store		
		dey				
		dey
		lda	[a1],y			;get hi word of mod date/time
		xba				;change byte sex
		adc	#0			;add carry
		sta	<temp0+2		;and store
*
* Compare the current date/time to the modified date/time + 1.
* If the current date/time is later, then store it in <temp0.
*
		lda	time+2			;get hi word of current date/time
		cmp	<temp0+2		;compare to hi word of mod date/time
		bcc	use_mod			;current date/time < mod date/time
		bne	use_current		;current date/time > mod date/time
		lda	time			;hi words are equal so compare lo words
		cmp	<temp0			
		bcc	use_mod			;current date/time < mod date/time
use_current	lda	time			;current date/time >= mod date/time
		sta	<temp0			;so store current date/time in <temp0
		lda	time+2
		sta	<temp0+2
use_mod
*
* Set the Catalog Record's backup date/time to the value in <temp0.
*
		ldy	#fil_backup_dt+2	;init offset for File Record
		lda	record_type		;check type of Catalog Record
		cmp	#cat_fil_type		;is it a File Record?
		beq	cont2			;yes - so branch
		ldy	#dir_backup_dt+2	;adjust offset for Directory Record
cont2		
		lda	<temp0			;get lo word of new backup date/time
		xba				;change byte sex
		sta	[a1],y			;and store
		dey				
		dey
		lda	<temp0+2		;get hi word of new backup date/time
		xba				;change byte sex
		sta	[a1],y			;and store
*
* Write the catalog node containing the record out to disk.
*
		lda	catalog_hint		;D2.L <- catalog hint
		sta	d2
		lda	catalog_hint+2
		sta	d2+2
		jsr	ct_update
		bcs	exit
*
* Indicate no error and exit.
*
done		clc
exit		rts

		ENDP

		eject
******************************************************************************
*
*	 Name:	open
*
* Description:	Opens a file or directory.  
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<gbuf_ptr - pointer to 512 byte general purpose buffer
*		<my_path_ptr - pointer to pathname (if specified) in gstring format
*		<dev_num - device number (if specified), else 0
*		name_count - total # of names in full pathname. 0 if device # only.
*		first_offset - offset to first name in pathname
*		last_offset - offset to last name in pathname
*		volname - volume name in gstring format (if dev_num = 0)
*
*      Output:	A = error code if carry	set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*	 Uses:	all registers
*		<temp0
*		<temp1
*
*   Called by:	app_entry
*
*	Calls:	process_path
*		get_cat_info
*		build_fcr
*		get_fcr			(system service)
*		deref			(system service)
*
* Copyright Apple Computer, Inc. 1989-90  All rights reserved.
******************************************************************************

open		PROC
		with	data
		
index		equ	temp0			;local equates

*
* Find the Catalog Record and vcr for the requested file or directory.
*
		jsr	process_path		  
		bcc	path_ok			
		brl	error			
path_ok
*
* If resource_num is set, we're looking for a resource fork.
* If the storage type is not 'extended file' or 'standard file', then report an error.
*
 		lda	resource_num		;is resource_num set?
		beq	rsrc_ok			;nope - so no problem
		lda	storage_type		;check the storage type
		cmp	#extended_stype		;did we find an extended file?
		beq	rsrc_ok			;yes - so no problem
		cmp	#standard_stype		;did we find a standard file?
		beq	rsrc_ok			;yes - so no problem
		lda	#res_not_found		;no - so report an error
		brl	error
rsrc_ok	
*
* Are we opening a file or a directory?
*
		lda	record_type		;get the catalog record type
		cmp	#cat_dir_type		;is it a directory?
		bne	opening_file		;no - so branch
*
* We're opening a directory. 
*
* If 'write access' or 'read/write' is requested, then report an error.
* If 'as permitted' access is requested, change it to 'read access'.
*
		lda	request_access		;yes - so check the requested access
		and	#write_access		;is 'write' access requested?
		beq	dir_ok			;no - so OK
		lda	#invalid_access		;yes - so report an error
		brl	error
		
dir_ok		lda	#read_access		;change 'as permitted' to 'read access'
		sta	request_access
		brl	cont
		
*
* We're opening a file.
*
* First, loop through the existing FCRs to see if the requested fork of this file has 
* already been opened.   
* If we find a match and it has already been opened for writing, report an error.
* If we find a match and it has only been opened for reading, then check the requested
* access.  If the requested access is 'write access' or 'read/write', report an error.
* If the requested access is 'as permitted', change it to 'read access'.
* 
* Next, check to see if the file is locked.  If it is and the requested access is 
* 'write access' or 'read/write', then report an error.
* If 'as permitted' access is requested, change it to 'read/write' if the file is
* unlocked or to 'read access' if the file is locked.
*
opening_file	stz	<index			;initialize fcr index
		
fcr_loop	inc	<index			;increment fcr index
		lda	<index
		jsl	get_fcr			;get next fcr
		bcs	not_open
		
		jsl	deref			;derefence fcr vp
		stx	<my_fcr_ptr		;and store fcr ptr
		sty	<my_fcr_ptr+2
		
		ldy	#fcr_vol_id		
		lda	[my_fcr_ptr],y		;get volume id from fcr
		cmp	[my_vcr_ptr]		;is it the correct volume?
		bne	fcr_loop		;no - so loop
		
		ldy	#fcr_type		
		lda	[my_fcr_ptr],y		;get fcr type
		cmp	#fcr_file_type		;is the fcr for a file?
		bne	fcr_loop		;no - so loop
		
		ldy	#fcr_id
		lda	[my_fcr_ptr],y		;get lo word of file ID from fcr
		cmp	id			;match?
		bne	fcr_loop		;no - so loop
		iny
		iny
		lda	[my_fcr_ptr],y		;get hi word of file ID from fcr
		cmp	id+2			;match?
		bne	fcr_loop		;no - so loop

		lda	resource_num		;are we opening the resource fork?
		beq	@0			;no
		lda	#rsrc_fork_bit		;yes 
@0		sta	<temp1			;save correct value for the compare
		ldy	#fcr_access
		lda	[my_fcr_ptr],y		;get access word from fcr
		and	#rsrc_fork_bit		;mask off resource fork bit
		cmp	<temp1			;same fork?
		bne	fcr_loop		;no - so loop
		
		ldy	#fcr_access
		lda	[my_fcr_ptr],y		;get access word from fcr
		and	#write_access		;is the file already opened for writing?
		bne	report_busy		;yes - so report an error
		
		lda	request_access		;get requested access
		beq	open_as_perm		;branch if 'open as permitted'
		and	#write_access		;is 'write' access requested?
		beq	access_ok		;no - so no problem
report_busy	lda	#file_busy		;yes - so report error
		bra	error

open_as_perm	lda	#read_access		;change requested access from
		sta	request_access		;'open as permitted' to 'read access'
access_ok	
not_open
		ldy	#fil_flags		;get offset to flags field
		lda	[a1],y			;get file flags byte
		and	#locked_bit		;is the file locked?
		tax				;save result
		beq	file_ok			;no - so OK
		lda	request_access		;check the requested access
		and	#write_access		;is 'write' access requested?
		beq	file_ok			;no - so OK
		lda	#invalid_access		;yes - so report an error
		bra	error

file_ok		lda	request_access		;is the requested access 'as permitted'?
		bne	cont			;no - so branch
		lda	#read_write		;yes - so change request to 'read/write'
		cpx	#0			;was the file locked?
		beq	store_req		;no - so store new requested access
		lda	#read_access		;yes - so change request to 'read access'
store_req	sta	request_access		;store new requested access
*
* If we're dealing with a class 1 call, then setup the output parameters
*
cont
		lda	class			;get call class
		beq	class0			;branch if it's a class 0 call
		jsr	get_cat_info		;setup the output parameters
class0
*
* Now build a new FCR.
*
* Note - we need to save and restore "eof" since build_fcr may change it (if we're
* opening a resource fork) causing the "eof" output parameter to be incorrect.
*
		lda	eof+2			;save "eof"
		pha
		lda	eof
		pha
		jsr	build_fcr		;build the fcr
		plx				;restore "eof"
		stx	eof
		plx
		stx	eof+2
		bcs	error
*
* Update the vcr's open count.
*
		ldy	#vcr_open_cnt		;get offset to field
		lda	[my_vcr_ptr],y		;get current open count
		inc	a			;increment it
		sta	[my_vcr_ptr],y		;and store it
*
* Indicate no error and exit.
*
		clc				
  		rts				

*
* Return an error.
*
error		sec				;indicate error
		rts
		
		ENDP
		
		eject
******************************************************************************
*
*	 Name:	read
*
* Description:	Reads from an open file.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<gbuf_ptr - pointer to 512 byte general purpose buffer
*		<my_vcr_ptr - pointer to vcr
*		<my_fcr_ptr - pointer to fcr
*		<data_buf_ptr - pointer to caller's data buffer
*		request_count - maximum number of bytes to read
*
*		ablk_size - allocation block size in bytes
*		ablk_start - location of first alloc block (P blk #)
*		pblks_per_ablk - # of physical blocks per alloc block
*		ctree_fcr_ptr - ptr to fcr for CTree
*		etree_fcr_ptr - ptr to fcr for ETree
*
*		type - fcr type
*		eof - logical eof 
*		file_mark - file mark 
*		block_mark - block buffer mark
*		block_num - # of physical block in block buffer
*		block_count - # physical blocks until end of extent
*		<block_buf_ptr - ptr to block buffer in fcr
*
*      Output:	A = error code if carry set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*	 Uses:	all registers
*		<temp0
*		newline_flag
*		newline_mask 
*		newline_ptr 
*		newline_length 
*		newline_char 
*
*   Called by:	app_entry
*
*	Calls:	ensure_file
*		ensure_vol_online
*		fill_block_buf
*		transfer_r_data
*		data_buf_read
*		block_buf_read
*		update_rw_info
*		flush_block_buf
*		calc_next_block
*		update_fcr
*
* Copyright Apple Computer, Inc. 1987-91  All rights reserved.
******************************************************************************

read		PROC
		with	data

*
* Zero out the transfer_count parameter so that HyperCard 1.0 will be happy if
* we report an EOF error.
*
		ldy	#10			;get class 0 offset to transfer_count
		lda	class			;get call class
		beq	zeroit			;branch if doing class 0
		iny				;adjust param offset for class 1
		iny
zeroit		lda	#0
		sta	[my_pblk_ptr],y		;zero out transfer_count param
		iny
		iny
		sta	[my_pblk_ptr],y
*
* Make sure the fcr is for a file.
*
		jsr	ensure_file		;is the fcr for a file?
		bcs	brl_exit		;no - so return error
*
* Make sure the file was opened with 'read' access.
*
		ldy	#fcr_access		
		lda	[my_fcr_ptr],y		;get access word from fcr
		and	#read_access		;is 'read' access allowed?
		bne	access_ok		;yes - so continue
		brl	access_error		;no - so return an error
access_ok
*
* Exit if request count is zero.
*
		lda	request_count		;is request count zero?
		ora	request_count+2
		bne	not_zero		;no - so continue
brl_exit	brl	exit			;yes - so done
not_zero
*
* If file_mark = eof, exit with end_of_file error.
*
		lda	file_mark+2
		cmp	eof+2			;does file mark = eof?
		bne	mark_ok			;no
		lda	file_mark
		cmp	eof
		bne	mark_ok
		brl	eof_error		;yes - so report error
mark_ok
*
* Make sure volume is online and set up <drvr_dev_num.
*
 		jsr	ensure_vol_online		
		bcs	brl_exit		;exit if vol not online
*
* Make sure the fcr block buffer contains a block. 
*
		jsr	fill_block_buf		
		bcs	brl_exit		
*
* Clear newline_flag and get newline_mask from the fcr and save it.  
* If newline is enabled, then set newline_ptr, newline_length and newline_char.
*
		stz	newline_flag
		
		ldy	#fcr_mask		;get offset to mask
		lda	[my_fcr_ptr],y		;get mask
		sta	newline_mask		;and save it
		beq	skip_newline		;branch if newline not enabled

		ldy	#fcr_newline		;get offset to vp
		lda	[my_fcr_ptr],y		;get lo word of vp
		tax				;put in	X
		iny				
		iny
		lda	[my_fcr_ptr],y		;get hi word of vp
		tay				;put in	Y
		jsl	deref			;dereference the vp
		stx	newline_ptr		;store the ptr
		sty	newline_ptr+2
		stx	<temp0			;and put ptr on direct page
		sty	<temp0+2

		ldy	#fcr_newline_len	
		lda	[my_fcr_ptr],y		;get newline length
		sta	newline_length		;and save it

		lda	[temp0]			;get first newline character
		sta	newline_char		;and save it
skip_newline
*
* Set bytes_left = eof - file_mark.  
* If bytes_left > request_count then set bytes_left = request_count.
*
		sec				;bytes_left = eof - file_mark	
		lda	eof
		sbc	file_mark
		sta	bytes_left
		tax
		lda	eof+2
		sbc	file_mark+2
		sta	bytes_left+2

		cmp	request_count+2		;is bytes_left > request_count?
		bcc	bytes_left_ok		;no
		bne	set_to_request		;yes
		cpx	request_count		
		bcc	bytes_left_ok		;no

set_to_request	ldx	request_count		;set bytes_left	= request_count
		lda	request_count+2
		stx	bytes_left
		sta	bytes_left+2
bytes_left_ok
*
* Transfer data from fcr's block buffer to caller's data buffer. 
* Handle newline checking.
*
do_transfer	jsr	transfer_r_data		;transfer data 
*
* Update <data_buf_ptr, transfer_count, bytes_left and file_mark.
* Returns with carry clear if request has been satisfied.
*
do_update	jsr	update_rw_info
		bcc	all_done		;branch if request satisfied
*
* We haven't satisfied the request yet.
* Flush the fcr block buffer and setup the block information for the next block.
*
		jsr	flush_block_buf
		bcs	all_done
		jsr	calc_next_block
*
* Check if newline is enabled.
*
		lda	newline_mask		;is newline enabled?
		bne	double_buffer		;yes - so we must double buffer
*
* Newline is disabled.  Is bytes_left >= phys_blk_size?
*
		lda	bytes_left+2		;bytes_left >= phys_blk_size?
		bne	do_direct		;yes
		lda	bytes_left
		cmp	#phys_blk_size		
		bcc	double_buffer		;no - so we must double buffer
*
* Newline is disabled and bytes_left >= phys_blk_size. 
* Read as many blocks as possible directly into caller's data buffer.
* Data_buf_read marks the fcr block buffer as empty and adjusts the block information.
* Branch to do_update if no error.
* 
do_direct	jsr	data_buf_read				
		bcs	all_done
		bra	do_update		
		
*
* Either newline is enabled or bytes_left < phys_blk_size so we must double_buffer. 
* Read the next block into fcr's block buffer.  Branch to do_transfer if no error.
* 
double_buffer	jsr	block_buf_read		
		bcc	do_transfer		
		
*
* Either we've satisfied the read request or we got an error during the read.
* Save the error code (if any) and the state of the carry flag.
*
all_done	php				;save carry flag
		pha				;save error code 
*
* Update the fcr with the current file mark and block buffer information. 
*
		jsr	update_fcr		
*
* Retrieve error code (if any), retrieve carry flag, and exit.
*
		pla				;retrieve error code
		plp				;retrieve carry flag		
exit 		rts				;exit

*
* Report an end_of_file error.
*
eof_error	lda	#end_of_file		;get error code
 		sec				;indicate error
		rts				;exit

*
* Report an invalid_access error.
*
access_error	lda	#invalid_access		;get error code
		sec				;indicate error
		rts				;exit

		ENDP
		
		eject
******************************************************************************
*
*	 Name:	write
*
* Description:	Writes to an open file.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<gbuf_ptr - pointer to 512 byte general purpose buffer
*		<my_vcr_ptr - pointer to vcr
*		<my_fcr_ptr - pointer to fcr
*		<data_buf_ptr - pointer to caller's data buffer
*		request_count - maximum number of bytes to read
*
*		ablk_size - allocation block size in bytes
*		ablk_start - location of first alloc block (P blk #)
*		pblks_per_ablk - # of physical blocks per alloc block
*		ctree_fcr_ptr - ptr to fcr for CTree
*		etree_fcr_ptr - ptr to fcr for ETree
*
*		type - fcr type
*		eof - logical eof 
*		file_mark - file mark 
*		block_mark - block buffer mark
*		block_num - # of physical block in block buffer
*		block_count - # physical blocks until end of extent
*		<block_buf_ptr - ptr to block buffer in fcr
*
*      Output:	A = error code if carry set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*	 Uses:	all registers
*		<temp0
*		eof
*
*   Called by:	app_entry
*
*	Calls:	ensure_file
*		is_vol_unlocked
*		check_access
*		ensure_vol_online
*		grow_file
*		fill_block_buf
*		transfer_w_data
*		update_dirty_bit
*		data_buf_write
*		block_buf_read
*		update_rw_info
*		flush_block_buf
*		calc_next_block
*		update_fcr
*
* Copyright Apple Computer, Inc. 1989-90  All rights reserved.
******************************************************************************

write		PROC
		with	data

*
* First, make sure the fcr is for a file.
*
		jsr	ensure_file		;is the fcr for a file?
		bcs	brl_exit		;no - so return error
*
* Make sure the file was opened with 'write' access.
*
		jsr	check_access		;do we have 'write' access?
		bcs	brl_exit		;no - so return error
*
* Exit if request count is zero.
*
		lda	request_count		;is request count zero?
		ora	request_count+2
		bne	not_zero		;no - so continue
brl_exit	brl	exit			;yes - so done
not_zero
*
* Make sure volume is online and set up <drvr_dev_num.
*
 		jsr	ensure_vol_online		
		bcs	brl_exit		;exit if vol not online
*
* Make sure the volume is unlocked.
*
		jsr	is_vol_unlocked		;is the volume unlocked?
		bcs	brl_exit		;no - so return error
*
* Add the request count to the current file mark and store in <temp0.
* This value is what the file mark will be at the end of the write.
*
		clc
		lda	file_mark
		adc	request_count
		sta	<temp0
		lda	file_mark+2
		adc	request_count+2
		sta	<temp0+2
*
* If the current logical eof is >= temp0 then we're OK so do the write.
* Otherwise, we need to lengthen the logical eof.
*
		lda	eof+2			;is the logical eof big enough?
		cmp	<temp0+2
		bcc	leof_too_small		;no
		bne	cont			;yes
		lda	eof
		cmp	<temp0
		bcs	cont			;yes

leof_too_small	lda	<temp0			;no - so lengthen the logical eof		 
		sta	eof
		lda	<temp0+2
		sta	eof+2
*
* Get the current physical eof and store in <temp0.
*
		ldy	#fcr_peof
		lda	[my_fcr_ptr],y
		sta	<temp0
		iny
		iny
		lda	[my_fcr_ptr],y
		sta	<temp0+2
*
* The logical eof was lengthened so now we need to determine if the physical eof
* also needs to be lengthened.
* If the current physical eof is >= the new logical eof then we're OK.
* Otherwise, we need to lengthen the physical eof.
* When we get here, eof = new logical eof, <temp0 = current physical eof.
* 
		lda	<temp0+2		;is the physical eof big enough?
		cmp	eof+2
		bcc	peof_too_small		;no
		bne	peof_ok			;yes
		lda	<temp0
		cmp	eof
		bcs	peof_ok			;yes
*
* If we get here, the physical eof needs to be lengthened.
* We need to call et_extend_file, update the fcr_leof field, update the
* fcr block buffer information, and mark the fcr dirty.
* We'll just JSR into the SET_EOF routine since it does what we need.
*
peof_too_small	jsr	grow_file		;lengthen the file
		bcs	exit
		bra	cont			;and continue

*
* If we get here, the physical eof is OK but the logical eof was lengthened.
* Copy the new logical eof into the fcr and mark the fcr and file dirty.
*
peof_ok		ldy	#fcr_leof
		lda	eof
		sta	[my_fcr_ptr],y
		iny
		iny
		lda	eof+2
		sta	[my_fcr_ptr],y

		ldy	#fcr_flags
		lda	[my_fcr_ptr],y
		ora	#fcr_dirty_bit+file_dirty_bit
		sta	[my_fcr_ptr],y
*
* Set bytes_left = request_count.
*
cont		ldx	request_count		
		lda	request_count+2
		stx	bytes_left
		sta	bytes_left+2
*
* Make sure the fcr block buffer contains a block. 
*
		jsr	fill_block_buf		
		bcs	exit
*
* Transfer data from caller's data buffer to fcr's block buffer. 
* Mark the block buffer as dirty.
*
do_transfer	jsr	transfer_w_data		
		sec
		jsr	update_dirty_bit
*
* Update <data_buf_ptr, transfer_count, bytes_left and file_mark.
* Returns with carry clear if request has been satisfied.
*
do_update
*** added 18-Jul-92 DAL -- Fixes problem where we stopped writing after 512
*** bytes if we the most recent Read call stopped by hitting a newline char.
		stz	newline_flag
*** end 18-Jul-92
		jsr	update_rw_info
		bcc	all_done		;branch if request satisfied
*
* We haven't satisfied the request yet.
* Flush the fcr block buffer and setup the block information for the next block.
*
		jsr	flush_block_buf
		bcs	all_done
		jsr	calc_next_block
*
* Is bytes_left >= phys_blk_size?
*
		lda	bytes_left+2		;bytes_left >= phys_blk_size?
		bne	do_direct		;yes
		lda	bytes_left
		cmp	#phys_blk_size		
		bcc	double_buffer		;no - so we must double buffer
*
* Bytes_left >= phys_blk_size. 
* Write as many blocks as possible directly from caller's data buffer.
* Data_buf_write marks the fcr block buffer as empty and adjusts the block information.
* Branch to do_update if no error.
* 
do_direct	jsr	data_buf_write				
		bcs	all_done
		bra	do_update		
		
*
* Bytes_left < phys_blk_size so we must double_buffer. 
* Read the next block into fcr's block buffer.  Branch to do_transfer if no error.
* 
double_buffer	jsr	block_buf_read		
		bcc	do_transfer		
		
*
* Either we've satisfied the write request or we got an error during the write.
* Save the error code (if any) and the state of the carry flag.
*
all_done	php				;save carry flag
		pha				;save error code 
*
* Update the fcr with the current file mark and block buffer information. 
*
		jsr	update_fcr
*
* Mark the file dirty.
*
		ldy	#fcr_flags
		lda	[my_fcr_ptr],y
		ora	#file_dirty_bit
		sta	[my_fcr_ptr],y
*
* Retrieve error code (if any), retrieve carry flag, and exit.
*
		pla				;retrieve error code
		plp				;retrieve carry flag		
exit 		rts				;exit

		ENDP

		eject
******************************************************************************
*
*	 Name:	close
*
* Description:	Closes an open file or directory.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<gbuf_ptr - pointer to 512 byte general purpose buffer
*		<my_vcr_ptr - pointer to vcr
*		<my_fcr_ptr - pointer to fcr
*
*		ablk_size - allocation block size in bytes
*		ablk_start - location of first alloc block (P blk #)
*		pblks_per_ablk - # of physical blocks per alloc block
*		ctree_fcr_ptr - ptr to fcr for CTree
*		etree_fcr_ptr - ptr to fcr for ETree
*
*		type - fcr type
*		eof - logical eof 
*		file_mark - file mark 
*		block_mark - block buffer mark
*		block_num - # of physical block in block buffer
*		block_count - # physical blocks until end of extent
*		<block_buf_ptr - ptr to block buffer in fcr
*
*      Output:	A = error code if carry set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*	 Uses:	all registers
*
*   Called by:	app_entry
*
*	Calls:	ensure_vol_online
*		is_vol_unlocked
*		et_trunc_file
*		flush_file
*		release_fcr		(system service)
*		sys_death		(system service)
*
* Copyright Apple Computer, Inc. 1987-90  All rights reserved.
******************************************************************************

close		PROC
		with	data			

*
* Check the fcr type. 
* If the fcr is for a BTree then return an error.
* If the fcr is for a directory then skip over the file stuff.
*
		lda	type			;get fcr type
		cmp	#fcr_tree_type		;is this fcr for a tree?
		bne	not_tree		;no 
		lda	#bad_store_type		;yes - so return an error
		sec
		bra	exit
		
not_tree	cmp	#fcr_dir_type		;is this fcr for a directory?
		beq	release_it		;yes - so skip file stuff
*
* The fcr is for a file.
* Check to see if we need to truncate to the physical eof.  
* Note - the truncate_bit is set whenever the physical eof is changed.
*
		ldy	#fcr_flags
		lda	[my_fcr_ptr],y		;get fcr flags
		and	#truncate_bit		;do we need to truncate to peof?
		beq	do_flush		;no 
*
* Make sure volume is online and set up <drvr_dev_num.
*
 		jsr	ensure_vol_online		
		bcs	exit			;exit if vol not online
*
* Make sure the volume is unlocked.
*
		jsr	is_vol_unlocked		;is the volume unlocked?
		bcs	exit			;no - so return error
*
* Truncate the file to its physical eof.
* Note - et_trunc_file may update the fcr_ext field.
*
		ldy	#fcr_peof		;D3.L <- physical eof	
		lda	[my_fcr_ptr],y			
		sta	d3
		iny
		iny
		lda	[my_fcr_ptr],y			
		sta	d3+2
		
		stz	d2			;D2.W <- truncate to the physical eof
		
		lda	<my_fcr_ptr		;A2.L <- ptr to fcr
		sta	<a2
		lda	<my_fcr_ptr+2
		sta	<a2+2

		jsr	et_trunc_file		;truncate the file
		bcs	exit

		ldy	#fcr_flags		;mark the fcr and file dirty
		lda	[my_fcr_ptr],y
		ora	#fcr_dirty_bit+file_dirty_bit
		sta	[my_fcr_ptr],y
*
* Flush the file.
*
do_flush	jsr	flush_file
		bcs	exit
*
* Release the FCR.
*
release_it	lda	[my_fcr_ptr]		;get reference #
		jsl	release_fcr		;release fcr
*
* Decrement VCR	open count.  Error if open count = 0 before we decrement it.
*
		ldy	#vcr_open_cnt		;get offset to open count
		lda	[my_vcr_ptr],y		;get open count
		beq	bad_vcr			;it's already 0, we're in deep trouble!
		dec	a			;decrement it
		sta	[my_vcr_ptr],y		;save it
*
* Indicate no error and exit.
*
done 		clc								
exit		rts	

		
*
* Something's terribly wrong here.
*
bad_vcr		lda	#$000A			;get error code	for bad	VCR
		jml	>sys_death		;die

		ENDP
		
		eject
******************************************************************************
*
*	 Name:	flush
*
* Description:	Flushes an open file or directory.
*
*	 Note:	This routine contains an alternate entry point (flush_file) 
*		which is called by CLOSE.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<gbuf_ptr - pointer to 512 byte general purpose buffer
*		<my_vcr_ptr - pointer to vcr
*		<my_fcr_ptr - pointer to fcr
*		flush_type - $0000 = slow flush, $8000 = fast flush
*
*		ablk_size - allocation block size in bytes
*		ablk_start - location of first alloc block (P blk #)
*		pblks_per_ablk - # of physical blocks per alloc block
*		ctree_fcr_ptr - ptr to fcr for CTree
*		etree_fcr_ptr - ptr to fcr for ETree
*
*		type - fcr type
*		eof - logical eof 
*		file_mark - file mark 
*		block_mark - block buffer mark
*		block_num - # of physical block in block buffer
*		block_count - # physical blocks until end of extent
*		<block_buf_ptr - ptr to block buffer in fcr
*
*      Output:	A = error code if carry set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*	 Uses:	all registers
*
*   Called by:	app_entry
*		close		(calls alternate entry point)
*
*	Calls:	ensure_vol_online
*		is_vol_unlocked
*		flush_block_buf
*		get_fcr_name
*		ct_get_rec
*		ct_update
*		copy_long
*		copy_ext
*
* Copyright Apple Computer, Inc. 1989-90  All rights reserved.
******************************************************************************

flush		PROC
		with	data
		
*
* Check the fcr type. 
* If the fcr is for a BTree then return an error.
* If the fcr is for a directory then return with no error since nothing to do.
*
		lda	type			;get fcr type
		cmp	#fcr_tree_type		;is this fcr for a tree?
		bne	not_tree		;no 
		lda	#bad_store_type		;yes - so return an error
		sec
brl_exit	brl	exit
		
not_tree	cmp	#fcr_dir_type		;is this fcr for a directory?
		bne	not_dir			;no
brl_done	brl	done			;yes - so we're done
not_dir
*
* Alternate entry point called by CLOSE.
*
		EXPORT	flush_file
flush_file	
*
* The fcr is for a file.
* Check to see if the file is dirty.  If it isn't then we're done.
* Note - the file_dirty_bit is set by the Write, SetEof and Close routines.
*
		ldy	#fcr_flags
		lda	[my_fcr_ptr],y		;get fcr flags
		and	#file_dirty_bit		;is the file dirty?
		beq	brl_done		;no - so we're done
*
* Make sure volume is online and set up <drvr_dev_num.
*
 		jsr	ensure_vol_online		
		bcs	brl_exit		;exit if vol not online
*
* Make sure the volume is unlocked.
*
		jsr	is_vol_unlocked		;is the volume unlocked?
		bcs	brl_exit		;no - so return error
*
* If the fcr block buffer is dirty, flush it and mark it clean.
*
		jsr	flush_block_buf		;flush the fcr block buffer
		bcs	brl_exit
*
* Check to see if the fcr is dirty.  
* If it is, then we have to update the file's Catalog Record.
*
		ldy	#fcr_flags
		lda	[my_fcr_ptr],y		;get fcr flags
		and	#fcr_dirty_bit		;is the fcr dirty?
		bne	fcr_dirty		;yes 
*
* The fcr is clean so check to see if we're doing a fast or slow flush.
* If the user has requested a fast flush then we're done.
* If we're doing a slow flush then we need to update the modified date/time in the
* file's Catalog Record.
*
		lda	flush_type		;get the flush type
		bne	brl_done		;fast flush requested so we're done
*
* If we get here, either the fcr is dirty or the fcr is clean but we're doing a slow flush.
* Update the modified date/time in the fcr.
*
fcr_dirty	ldy	#fcr_mod_dt
		lda	time
		sta	[my_fcr_ptr],y
		iny
		iny
		lda	time+2
		sta	[my_fcr_ptr],y
*
* Find the Catalog Record for the file.
*
		jsr	get_fcr_name		;get the filename out of the fcr
		 
		lda	#record_name		;A0.L <- ptr to name
		sta	<a0
		lda	#^record_name
		sta	<a0+2
		
		ldy	#fcr_parent_id
		lda	[my_fcr_ptr],y		;D0.L <- parent ID
		sta	d0
		iny
		iny
		lda	[my_fcr_ptr],y
		sta	d0+2
		
		ldy	#fcr_cat_hint
		lda	[my_fcr_ptr],y		;D2.L <- catalog hint 
		sta	d2
		iny
		iny
		lda	[my_fcr_ptr],y		
		sta	d2+2
		
 		jsr	ct_get_rec		;get the Catalog Record
		bcs	exit
*
* Copy the new modified date/time from the fcr to the Catalog Record.
*
		lda	<my_fcr_ptr		;setup source ptr
		sta	<source_ptr
		lda	<my_fcr_ptr+2
		sta	<source_ptr+2
		
		lda	<a1			;setup destination ptr
		sta	<dest_ptr
		lda	<a1+2
		sta	<dest_ptr+2
		
		ldy	#fcr_mod_dt		;get starting source offset
		ldx	#fil_mod_dt		;get starting dest offset
		jsr	copy_long		;copy mod_dt
*
* If the fcr is dirty then copy the leof, peof and ext from the fcr to the Catalog Record.
*
		ldy	#fcr_flags
		lda	[my_fcr_ptr],y		;get fcr flags
		and	#fcr_dirty_bit		;is the fcr dirty?
		beq	not_dirty		;no - so no need to copy this stuff 
 
		ldy	#fcr_access
		lda	[my_fcr_ptr],y		;get access word from fcr
		and	#rsrc_fork_bit		;we only want the rsrc fork bit 
		pha				;save it
		
		ldy	#fcr_leof		;get starting source offset
		ldx	#fil_data_leof		;get starting dest offset
		lda	1,s			;is the fcr for a resource fork?
		beq	@cont1			;no - so branch
		ldx	#fil_rsrc_leof		;yes - so adjust dest offset
@cont1		jsr	copy_long		;copy leof
		jsr	copy_long		;copy peof
		
		ldy	#fcr_ext		;get starting source offset
		ldx	#fil_data_ext		;get starting dest offset
		lda	1,s			;is the fcr for a resource fork?
		beq	@cont2			;no - so continue
		ldx	#fil_rsrc_ext		;yes - so adjust dest offset
@cont2		jsr	copy_ext		;copy ext (6 words)
		
		pla				;clean up stack
not_dirty
*
* Write the catalog node containing the record out to disk.
* Note - D2.L contains the catalog hint from the ct_get_rec call.
*
		jsr	ct_update
		bcs	exit
*
* Mark the fcr and file clean.
*
		ldy	#fcr_flags
		lda	[my_fcr_ptr],y
		and	#fcr_dirty_mask
		and	#file_dirty_mask
		sta	[my_fcr_ptr],y
*
* Indicate no error and exit.
*
done 		clc								
exit		rts	
		
		ENDP

		eject
*******************************************************************************
*
*	 Name:	set_mark
*
* Description:	Sets the current file mark for an open file.	 
*		Marks the fcr block buffer as empty if the block # changes. 
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<gbuf_ptr - pointer to 512 byte general purpose buffer
*		<my_vcr_ptr - pointer to vcr
*		<my_fcr_ptr - pointer to fcr
*		base - 	0: mark = displacement
*			1: mark = eof - displacement
*			2: mark = mark + displacement
*			3: mark = mark - displacement
*		displacement - offset or absolute value
*
*		ablk_size - allocation block size in bytes
*		ablk_start - location of first alloc block (P blk #)
*		pblks_per_ablk - # of physical blocks per alloc block
*		ctree_fcr_ptr - ptr to fcr for CTree
*		etree_fcr_ptr - ptr to fcr for ETree
*
*		type - fcr type
*		eof - logical eof 
*		file_mark - file mark 
*		block_mark - block buffer mark
*		block_num - # of physical block in block buffer
*		block_count - # physical blocks until end of extent
*		<block_buf_ptr - ptr to block buffer in fcr
*
*      Output:	A = error code if carry set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 =	error
*			   0 =	no error
*		B = K
*
*	 Uses:	all registers
*
*   Called by:	app_entry
*
*	Calls:	ensure_file
*		ensure_vol_online
*		do_displacement
*		update_block_buf
*		update_fcr
*
* Copyright Apple Computer, Inc. 1989-90  All rights reserved.
******************************************************************************

set_mark	PROC
		with	data

*
* First, make sure the fcr is for a file.
*
		jsr	ensure_file		;is the fcr for a file?
		bcs	exit			;no - so return error
*
* Calculate the new file mark according to the 'base' and 'displacement' inputs.
* Return the new file mark in X (lo word) and Y (hi word).
*
		jsr	do_displacement
		bcs	exit
*
* If the new file mark matches the current file mark then we're done.
*
		cpy	file_mark+2		;does hi word match current mark?
		bne	no_match		;no
		cpx	file_mark		;yes - does lo word match current mark?
		beq	done			;yes, so we're done
no_match
*
* If the new mark is past the current eof then report an out of range error.
*
		cpy	eof+2			;is new mark past eof?
		bcc	in_range		;no
		bne	bad_range		;yes
		cpx	eof
		beq	in_range		;no
		bcs	bad_range		;yes
in_range
*
* New mark is ok so save it.
* 
		stx	file_mark
		sty	file_mark+2
*
* Make sure volume is online and set up <drvr_dev_num.
*
 		jsr	ensure_vol_online		
		bcs	exit			;exit if vol not online
*
* Update the fcr block buffer since the file mark has changed.
*
 		jsr	update_block_buf
		bcs	exit
*
* Copy the new file mark and block information into the fcr.
*
		jsr	update_fcr		
*
* Indicate no error and exit.
*
done		clc				
exit 		rts				

*
* Report an out of range error.
*
bad_range	lda	#out_of_range		;get error code
 		sec				
 		rts				

		ENDP
		
		eject
******************************************************************************
*
*	 Name:	get_mark
*
* Description:	Gets the current file mark for an open file.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<gbuf_ptr - pointer to 512 byte general purpose buffer
*		<my_fcr_ptr - pointer to fcr
*
*		type - fcr type
*		eof - logical eof 
*		file_mark - file mark 
*		block_mark - block buffer mark
*		block_num - # of physical block in block buffer
*		block_count - # physical blocks until end of extent
*		<block_buf_ptr - ptr to block buffer in fcr
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..0
*		B = K
*
*	 Uses:	all registers
*
*   Called by:	app_entry
*
*	Calls:	ensure_file
*
* Copyright Apple Computer, Inc. 1989-90  All rights reserved.
******************************************************************************

get_mark	PROC
		with	data

*
* Make sure the fcr is for a file.
*
		jsr	ensure_file		;is the fcr for a file?
 		rts

		ENDP
		
		eject
******************************************************************************
*
*	 Name:	set_eof
*
* Description:	Sets the logical eof for an open file.
*
*	 Note:	This routine contains an alternate entry point (grow_file) 
*		which is called by WRITE.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<gbuf_ptr - pointer to 512 byte general purpose buffer
*		<my_vcr_ptr - pointer to vcr
*		<my_fcr_ptr - pointer to fcr
*		base - 	0: eof = displacement
*			1: eof = eof - displacement
*			2: eof = mark + displacement
*			3: eof = mark - displacement
*		displacement - offset
*
*		ablk_size - allocation block size in bytes
*		ablk_start - location of first alloc block (P blk #)
*		pblks_per_ablk - # of physical blocks per alloc block
*		ctree_fcr_ptr - ptr to fcr for CTree
*		etree_fcr_ptr - ptr to fcr for ETree
*
*		type - fcr type
*		eof - logical eof 
*		file_mark - file mark 
*		block_mark - block buffer mark
*		block_num - # of physical block in block buffer
*		block_count - # physical blocks until end of extent
*		<block_buf_ptr - ptr to block buffer in fcr
*
*      Output:	A = error code if carry set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*	 Uses:	all registers
*		<temp0
*		<source_ptr	(aka <product)
*		<dest_ptr	
*		eof
*
*   Called by:	app_entry
*		write		(calls alternate entry point)
*
*	Calls:	ensure_file
*		ensure_vol_online
*		is_vol_unlocked
*		check_access
*		do_displacement
*		et_extend_file
*		et_trunc_file
*		flush_block_buf
*		update_block_buf
*		update_fcr
*
* Copyright Apple Computer, Inc. 1989-90  All rights reserved.
******************************************************************************

set_eof		PROC
		with	data
		
*
* First, make sure the fcr is for a file.
*
		jsr	ensure_file		;is the fcr for a file?
		bcs	brl_exit		;no - so return error
*
* Make sure the file was opened with 'write' access.
*
		jsr	check_access		;do we have 'write' access?
		bcs	brl_exit		;no - so return error
*
* Calculate the new logical eof according to the 'base' and 'displacement' inputs.
* Return the new eof in X (lo word) and Y (hi word).
*
		jsr	do_displacement
		bcs	brl_exit
*
* If the new logical eof = current logical eof then we're done.
*
		cpy	eof+2			;does hi word match current eof?
		bne	no_match		;no
		cpx	eof			;yes - does lo word match current eof?
		bne	no_match		;no
		brl	done			;yes - so we're done
no_match
*
* Save new logical eof.
*
		stx	eof
		sty	eof+2
*
* Make sure volume is online and set up <drvr_dev_num.
*
 		jsr	ensure_vol_online		
		bcs	brl_exit		;exit if vol not online
*
* Make sure the volume is unlocked.
*
		jsr	is_vol_unlocked		;is the volume unlocked?
		bcs	brl_exit		;no - so return error
*
* Get current physical eof.
*
		ldy	#fcr_peof
		lda	[my_fcr_ptr],y
		sta	<temp0
		iny
		iny
		lda	[my_fcr_ptr],y
		sta	<temp0+2
*
* If new logical eof is > current physical eof then we need to extend the file.
* If new logical eof is < current physical eof then we may be able to truncate the file.
* If new logical eof = current physical eof then we don't need to change the file length.
*
		lda	eof+2
		cmp	<temp0+2
		bcc	shrink_file		;new logical eof is < current physical eof
		bne	grow_file		;new logical eof is > current physical eof
		lda	eof
		cmp	<temp0
		bcc	shrink_file		;new logical eof is < current physical eof
		bne	grow_file		;new logical eof is > current physical eof
		beq	peof_ok			;new logical eof = current physical eof
*
* The new logical eof is < current physical eof so we may be able to truncate the file.
* If the new logical eof is < the current file mark then the file mark is adjusted.
* Note - et_trunc_file updates the fcr_peof field and possibly the fcr_ext field.
*
shrink_file	jsr	flush_block_buf		;first, flush the block buffer 
		bcs	brl_exit
		
		lda	eof			;D3.L <- new physical eof
		sta	d3
		lda	eof+2
		sta	d3+2
		
		lda	#1			;D2.W <- truncate to the end of the extent  
		sta	d2			;containing the new physical eof
		
		lda	<my_fcr_ptr		;A2.L <- ptr to fcr
		sta	<a2
		lda	<my_fcr_ptr+2
		sta	<a2+2

		jsr	et_trunc_file		;attempt to truncate the file
		bcc	truncate_ok
brl_exit	brl	exit
truncate_ok
		lda	file_mark+2		;is current file mark < new logical eof?
		cmp	eof+2
		bcc	mark_ok			;yes - so ok
		lda	file_mark
		cmp	eof
		bcc	mark_ok			;yes - so ok
		lda	eof			;no - so file mark <- new logical eof
		sta	file_mark
		lda	eof+2
		sta	file_mark+2
mark_ok		
		bra	set_bit

*
* The new logical eof is > current physical eof so we need to extend the file.
* Note - et_extend_file updates the fcr_peof field and possibly the fcr_ext field.
*
* Alternate entry point called by WRITE.
*
		EXPORT	grow_file
		
grow_file	sec				;D4.L <- # of additional bytes needed
		lda	eof
		sbc	<temp0
		sta	d4
		lda	eof+2
		sbc	<temp0+2
		sta	d4+2
		
		lda	#1			;D3.W <- allocate all requested bytes
		sta	d3
		
		lda	<my_fcr_ptr		;A2.L <- ptr to fcr
		sta	<a2
		lda	<my_fcr_ptr+2
		sta	<a2+2

		jsr	et_extend_file		;attempt to extend the file
		bcs	exit
*
* The fcr_peof field has been modified so set the truncate_bit to indicate that
* the CLOSE call should truncate the file to the new physical eof.
*
set_bit		ldy	#fcr_flags
		lda	[my_fcr_ptr],y		;get the flags word
		ora	#truncate_bit		;set the bit
		sta	[my_fcr_ptr],y		;and store
*
* Copy the new logical eof into the fcr.
*
peof_ok		ldy	#fcr_leof
		lda	eof
		sta	[my_fcr_ptr],y
		iny
		iny
		lda	eof+2
		sta	[my_fcr_ptr],y
*
* Mark the fcr and file dirty.
*
		ldy	#fcr_flags
		lda	[my_fcr_ptr],y
		ora	#fcr_dirty_bit+file_dirty_bit
		sta	[my_fcr_ptr],y
*
* Update the fcr block buffer since the file mark and/or block count may have changed.
*
		jsr	update_block_buf
		bcs	exit
*
* Copy the new file mark and block information into the fcr.
*
		jsr	update_fcr
*
* Indicate no error and exit.
*
done		clc
exit		rts

		ENDP

		eject
******************************************************************************
*
*	 Name:	get_eof
*
* Description:	Gets the logical eof of an open file.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<gbuf_ptr - pointer to 512 byte general purpose buffer
*		<my_fcr_ptr - pointer to fcr
*
*		type - fcr type
*		eof - logical eof 
*		file_mark - file mark 
*		block_mark - block buffer mark
*		block_num - # of physical block in block buffer
*		block_count - # physical blocks until end of extent
*		<block_buf_ptr - ptr to block buffer in fcr
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..0
*		B = K
*
*	 Uses:	all registers
*
*   Called by:	app_entry
*
*	Calls:	ensure_file
*
* Copyright Apple Computer, Inc. 1989-90  All rights reserved.
******************************************************************************

get_eof		PROC
		with	data

*
* Make sure the fcr is for a file.
*
		jsr	ensure_file		;is the fcr for a file?
 		rts

		ENDP
		
		eject
******************************************************************************
*
*	 Name:	get_dir_entry
*
* Description:	Returns information about a directory entry.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<gbuf_ptr - pointer to 512 byte general purpose buffer
*		<my_vcr_ptr - ptr to vcr
*		<my_fcr_ptr - ptr to fcr
*		base - 	0: entry_num = displacement
*			1: entry_num = entry_num+displacement
*			2: entry_num = entry_num-displacement
*		displacement - absolute entry number or offset
*
*		ablk_size - allocation block size in bytes
*		ablk_start - location of first alloc block (P blk #)
*		pblks_per_ablk - # of physical blocks per alloc block
*		ctree_fcr_ptr - ptr to fcr for CTree
*		etree_fcr_ptr - ptr to fcr for ETree
*
*		type - fcr type
*		eof - logical eof 
*		file_mark - file mark 
*		block_mark - block buffer mark
*		block_num - # of physical block in block buffer
*		block_count - # physical blocks until end of extent
*		<block_buf_ptr - ptr to block buffer in fcr
*
*      Output:	A = error code if carry	set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*		entry_num - entry number returned
*
*	 Uses:	all registers
*
*   Called by:	app_entry
*
*	Calls:	ensure_vol_online
*		ct_get_rec
*		ct_get_dir_kid
*		get_cat_info
*		get_record_name
*		get_storage_type
*		get_fcr_name
*
* Copyright Apple Computer, Inc. 1989-91  All rights reserved.
******************************************************************************

get_dir_entry	PROC
		with	data

*
* First, check the fcr type and return an error if the fcr isn't for a directory.
*
		lda	type			;get fcr type
		cmp	#fcr_dir_type		;is this fcr for a directory?
		beq	ok			;yes - so ok
		lda	#version_error		;no - so return an error
		sec
brl_exit	brl	exit
ok
*
* Make sure volume is online and set up <drvr_dev_num.
*
 		jsr	ensure_vol_online		
		bcs	brl_exit		;exit if vol not online
*
* If the 'current dir ID' in the vcr is not the same as the 'dir ID' this call is for, 
* then we need to update fcr_valence. Since offspring can be created and destroyed 
* while the parent directory is open, fcr_valence may no longer match the valence in
* the directory's Catalog Record. 
* NOTE - vcr_cur_dir is only set by ct_get_dir_kid. It's cleared by ct_create_rec,
* ct_delete_rec, ct_move_rec, ct_rename_rec and ct_get_rec. So, if it doesn't match
* the dir ID we're dealing with, then it's a clue that something may have changed in
* the directory. 
* IMPORTANT - We don't want to automatically update fcr_valence every time through
* this call because the 'jsr ct_get_rec' causes vcr_cur_dir to be cleared which then
* causes ct_get_dir_kid to have to re-find the directory's thread record. As a
* result, this call ends up being extremely slow.
*
	 	ldy	#fcr_id			;temp0 <- dir ID
		lda	[my_fcr_ptr],y		
		sta	<temp0
		iny
		iny
		lda	[my_fcr_ptr],y		
		sta	<temp0+2
		
		ldy	#vcr_cur_dir		
		lda	[my_vcr_ptr],y		;does the current dir ID 
		cmp	<temp0			;match the dir ID this call is for?
		bne	@get_valence		;no - so need to update fcr_valence
		iny
		iny
		lda	[my_vcr_ptr],y
		cmp	<temp0+2
		beq	@valence_ok		;yes - so fcr_valence is OK
		
@get_valence	jsr	get_fcr_name		;get the filename out of the fcr
		 
		lda	#record_name		;A0.L <- ptr to name
		sta	<a0
		lda	#^record_name
		sta	<a0+2
		
		ldy	#fcr_parent_id
		lda	[my_fcr_ptr],y		;D0.L <- parent ID
		sta	d0
		iny
		iny
		lda	[my_fcr_ptr],y
		sta	d0+2
		
		ldy	#fcr_cat_hint		;D2.L <- catalog hint
		lda	[my_fcr_ptr],y		
		sta	d2
		iny
		iny
		lda	[my_fcr_ptr],y		
		sta	d2+2
		
		jsr	ct_get_rec		;get the Catalog Record for the dir
		bcs	brl_exit
		
		ldy	#dir_valence		;get the current valence from the Cat rec
		lda	[a1],y
		xba
		ldy	#fcr_valence
		sta	[my_fcr_ptr],y		;and store in the fcr
@valence_ok
*
* Get current offspring index.
*
		ldy	#fcr_cur_kid
		lda	[my_fcr_ptr],y		;get current offspring index
		sta	entry_num		;save it
*
* If the current offspring index is greater than the valence then clamp it to the valence.
*
		ldy	#fcr_valence
		lda	[my_fcr_ptr],y		;get current valence
		cmp	entry_num		;is the offspring index > valence?
		bcs	index_ok		;no
		ldy	#fcr_cur_kid		;yes - so clamp the offspring index
		sta	[my_fcr_ptr],y		;to the valence
		sta	entry_num
index_ok		
*
* Branch to correct calculation	routine.
*
		ldx	base			;Get base. Is it 0?
		beq	base_0			;yes
		dex				;no - is it 1?
		beq	base_1			;yes
*
* Set entry_num	= entry_num - displacement.
*
base_2		sec				
		lda	entry_num		;get current offspring index
		sbc	displacement		;subtract the displacement
		bcs	save_it			;continue
		brl	dir_end			;oops, went too far back

*
* Set entry_num	= entry_num + displacement.
*
base_1		clc				
		lda	entry_num		;get current offspring index
		adc	displacement		;add the displacement
		bcc	save_it			;continue
		bra	dir_end			;oops, overflow

*
* Set entry_num	= displacement.	 
* If displacement = 0 then it's a special call.
*
base_0		lda	displacement		;get displacement
		bne	save_it			;continue if displacement <> 0
*
* Both base and	displacement are 0. 
* Set entry_num to the number of offspring in the directory.
* Then reset the current offspring index (in the fcr) to 0.
*
		ldy	#fcr_valence
		lda	[my_fcr_ptr],y		;get # of offspring in the directory
		sta	entry_num		;and store in entry_num
		
		ldy	#fcr_cur_kid
		lda	#0
		sta	[my_fcr_ptr],y		;reset current offspring index to 0
		
		bra	done			;we're done
		
*
* We're doing a normal call. Store the new offspring index in entry_num.
* If the offspring index = 0 then return an error.
* If the offspring index > the dir valence then return an error.
* If offspring index is OK, then get the Catalog Record for the requested offspring.
* Also, setup parent_id since it's needed later.
*
save_it		beq	dir_end			;if offspring index = 0 then return error

		sta	entry_num		;save new offspring index
		sta	d1			;D1.W <- offspring index

		ldy	#fcr_valence
		lda	[my_fcr_ptr],y		;get # of offspring in the directory
		cmp	entry_num		;is the offspring index too big?
		bcc	dir_end			;yes - so return an error
		
		ldy	#fcr_id			;D0.L <- dir ID
		lda	[my_fcr_ptr],y		
		sta	d0
		sta	parent_id		;setup parent_id for later
		iny
		iny
		lda	[my_fcr_ptr],y		
		sta	d0+2
		sta	parent_id+2
		
		jsr	ct_get_dir_kid		;get Catalog Record
		bcs	exit	
*
* Update the current offspring index in the fcr.
*
		ldy	#fcr_cur_kid		 
		lda	entry_num		;get current offspring index
		sta	[my_fcr_ptr],y		;and store in fcr
*
* Get the Catalog Record type and save
*
		ldy	#cat_type		;get offset to Catalog Record type
		lda	[a1],y			;get record type
		sta	record_type		;and save
*
* Get the storage type of the Catalog Record and save
*
		jsr	get_storage_type
*
* Setup the extended_flag output parameter
*
		lda	storage_type		;get storage type
		cmp	#extended_stype		;is it 'extended'?
		bne	skip_ext_flag		;no - so branch
		lda	#extended_bit		;yes - so set the 'extended bit'
		sta	extended_flag		;in the extended_flag output parameter
skip_ext_flag
*
* Copy offspring's name from the Catalog Key Record into record_name	
*
		jsr	get_record_name
*
* Setup the rest of the output parameters. 
* Note - call class must be forced to 1 so that create_date_time, mod_date_time, eof and
* blocks_used are setup correctly.
*
		lda	class			;get current call class
		pha				;and save it
		lda	#1			;force call class to 1
		sta	class
		jsr	get_cat_info		;setup the output params		
		pla				;restore call class
		sta	class

done		clc				;indicate no error
exit		rts

*
* Return an 'end of directory' error.
*
dir_end		lda	#end_of_dir		;get error code
 		sec				;indicate error
 		rts					

		ENDP
		
		eject
******************************************************************************
*
*	 Name:	get_dev_num
*
* Description:	Returns the device number of a specified device or volume.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<gbuf_ptr - pointer to 512 byte general purpose buffer
*		<my_path_ptr - pointer to pathname (if specified) in gstring format
*		<dev_num - device number (if specified), else 0
*		name_count - total # of names in full pathname. 0 if device # only.
*		first_offset - offset to first name in pathname
*		last_offset - offset to last name in pathname
*		volname - volume name in gstring format (if dev_num = 0)
*
*      Output:	A = error code if carry set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*		dev_number - device number
*
*	 Uses:	all registers
*
*   Called by:	app_entry
*
*	Calls:	process_path
*
* Copyright Apple Computer, Inc. 1987-90  All rights reserved.
******************************************************************************

get_dev_num	PROC
		with	data

*
* Did we get passed a device number?
*
		lda	<dev_num		;do we have a device #?
		bne	got_it			;yes
*
* No, so use the volume	name to	find it.
*
		inc	doing_gdn		;tell process_path not to walk catalog (29-Oct-91 MSD)
		jsr	process_path		;Look for the volume. Did we find it?
		bcs	exit			;no
		lda	<drvr_dev_num		;yes, so get device number
*
* Save device number and exit.
*
got_it		sta	dev_number		;store device number in output parameter
		clc				;indicate no error
exit 		rts				
		
		ENDP
		
		eject
******************************************************************************
*
*	 Name:	format
*
* Description:	Formats a volume.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<gbuf_ptr - pointer to 512 byte general purpose buffer
*		<dev_num - device number 
*		input_error - error code from get_input
*
*      Output:	A = error code if carry set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*	 Uses:	all registers
*
*   Called by:	app_entry
*
*	Calls:	parse_path2
*		hfs_init
*		swap_out		(system service)
*		dev_dispatcher		(system service)
*
* Copyright Apple Computer, Inc. 1989-90  All rights reserved.
******************************************************************************

format		PROC
		with	data
		
*
* If input_error is non-zero then exit with input_error.
*
		lda	input_error		;was there an input error?
		bne	error			;yes - so return the error
*
* Parse the pathname.
*		
 		jsr	parse_path2
		bcs	error		
*
* The pathname must consist of only 1 name.
*
		lda	name_count		
		cmp	#1			;does pathname have only 1 name?
		bne	bad_path		;no - so report error
*
* Setup <drvr_dev_num and mark any VCRs for this device as offline.
*
		lda	<dev_num		;copy device # 
		sta	<drvr_dev_num		;onto driver direct page
		jsl	swap_out		;mark vcrs for this device as offline
*
* Issue a hard format call to the device.
*
do_format	lda	#drvr_control		;call # = control call
		sta	<drvr_call_num
		
		lda	#drvr_format		;control code = format device
		sta	<drvr_ctrl_code
		
		stz	<drvr_clist_ptr		;control list is not used
		stz	<drvr_clist_ptr+2
		
		stz	<drvr_req_cnt		;request count is not used
		stz	<drvr_req_cnt+2

		jsl	dev_dispatcher		;do the call
		bcc	format_ok
		cmp	#drvr_disk_sw		;did we get a disk switched error?
		beq	do_format		;yes - so try again
		bra	error			;no - so return error
format_ok
*
* Tell the driver what name to store in the device partition map.
*
		lda	#drvr_control		;call # = control call
		sta	<drvr_call_num
		
		lda	#drvr_set_ptn		;control code = assign partition owner
		sta	<drvr_ctrl_code
		
		lda	#control_list		;setup ptr to control list
		sta	<drvr_clist_ptr		
		lda	#^control_list
		sta	<drvr_clist_ptr+2
		
		stz	<drvr_req_cnt		;request count is not used
		stz	<drvr_req_cnt+2

		jsl	dev_dispatcher		;do the call
*
* Write out an initial HFS volume structure.
*
		jsr	hfs_init
		bcs	error
*
* Indicate no error and exit.
*
		clc
 		rts

*
* Return an error.
*
bad_path	lda	#bad_path_syntax	;get error code

error 		sec				;indicate error
		rts

		ENDP

		eject
******************************************************************************
*
*	 Name:	erase_disk
*
* Description:	Erases a volume.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<gbuf_ptr - pointer to 512 byte general purpose buffer
*		<dev_num - device number 
*		input_error - error code from get_input
*
*      Output:	A = error code if carry set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*	 Uses:	all registers
*
*   Called by:	app_entry
*
*	Calls:	parse_path2
*		hfs_init
*		swap_out		(system service)
*		dev_dispatcher		(system service)
*
* Copyright Apple Computer, Inc. 1989-90  All rights reserved.
******************************************************************************

erase_disk	PROC
		with	data
		
*
* If input_error is non-zero then exit with input_error.
*
		lda	input_error		;was there an input error?
		bne	error			;yes - so return the error
*
* Parse the pathname.
*		
 		jsr	parse_path2
		bcs	error		
*
* The pathname must consist of only 1 name.
*
		lda	name_count		
		cmp	#1			;does pathname have only 1 name?
		bne	bad_path		;no - so report error
*
* Setup <drvr_dev_num and mark any VCRs for this device as offline.
*
		lda	<dev_num		;copy device # 
		sta	<drvr_dev_num		;onto driver direct page
		jsl	swap_out		;mark vcrs for this device as offline
*
* Tell the driver what name to store in the device partition map.
*
		lda	#drvr_control		;call # = control call
		sta	<drvr_call_num
		
		lda	#drvr_set_ptn		;control code = assign partition owner
		sta	<drvr_ctrl_code
		
		lda	#control_list		;setup ptr to control list
		sta	<drvr_clist_ptr		
		lda	#^control_list
		sta	<drvr_clist_ptr+2
		
		stz	<drvr_req_cnt		;request count is not used
		stz	<drvr_req_cnt+2

		jsl	dev_dispatcher		;do the call
*
* Write out an initial HFS volume structure.
*
		jsr	hfs_init
		bcs	error
*
* Indicate no error and exit.
*
		clc
exit		rts

*
* Return an error.
*
bad_path	lda	#bad_path_syntax	;get error code

error 		sec				;indicate error
		rts

		ENDP

		eject
******************************************************************************
*
*	 Name:	fst_specific		
*
*		@@@ this routine is currently not called since fst_specific 
*		    commands are not supported
*
* Description:	This routine is	a dispatcher for the fst_specific calls.  It
*		uses command_num to dispatch to	the correct routine.
*
*	 Note:  These routines do not use send_output to return
*		parameters, but do it themselves.
*
*	Entry:	jsr
*
*	 Exit:	jmp
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		command_num - command number
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*	 Uses:	all registers
*
*   Called by:	app_entry
*
*	Calls:	nothing
*
* Copyright Apple Computer, Inc. 1987-90  All rights reserved.
******************************************************************************
;
;fst_specific	PROC
;		with	data
;
;*
;* Dispatch to the selected routine.
;*
;		lda	command_num		;get command number
;		asl	a			;multiply by 2
;		tax				;use as	index
;		jmp	(fst_tbl,x)		;jump to command handler
;
;		ENDP
		
		eject
******************************************************************************
*
*	 Name:	parse_path1
*
* Description:	Validates pathname1, then copies first name in path to volname
*		(in gstring format). Sets name_count to # of names found. 
*		If there is only a device #, will exit with name_count = 0.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<path_flag - indicates if path1_ptr is valid
*		<path1_ptr - pointer to pathname1 in gstring format
*			     if <dev2_num = 0, then pathname1 begins with a volume name
*			     if <dev2_num <> 0, then pathname1 has no volume name
*		<dev1_num - device number if specified, else 0
*		<span1 - maximum span of pathname1
*
*      Output:	A = undefined or error code if carry set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*		<my_path_ptr - pointer to pathname in gstring format
*			     if x_dev_num = 0, then pathname begins with a volume name
*			     if x_dev_num <> 0, then pathname has no volume name
*		x_path_flag - indicates if my_path_ptr is valid
*		x_dev_num - device number if specified, else 0
*		x_span - contains maximum span of pathname
*		name_count - total # of names in full pathname. 0 if device # only.
*		first_offset - offset to first name in pathname
*		last_offset - offset to last name in pathname
*		volname - volume name in gstring format (if dev_num = 0)
*
*	 Uses:	all registers
*
*   Called by:	setup_call
*
*	Calls:	parse_path
*
* Copyright Apple Computer, Inc. 1990  All rights reserved.
******************************************************************************

parse_path1	PROC
		with	data

		lda	<path_flag		;get pathname flags
		and	#path1_bit		;only want pathname 1 bit
		sta	x_path_flag		;save it

		lda	<path1_ptr		;get ptr to pathname1
		sta	<my_path_ptr		;and save
		lda	<path1_ptr+2
		sta	<my_path_ptr+2
		
		lda	<span1			;get maximum span of pathname1
		sta	x_span			;and save

		lda	<dev1_num		;get device #
		sta	x_dev_num		;and save
 		
		jsr	parse_path
		rts
		
		ENDP

		eject
******************************************************************************
*
*	 Name:	parse_path2
*
* Description:	Validates pathname2, then copies first name in path to volname
*		(in gstring format). Sets name_count to # of names found. 
*		If there is only a device #, will exit with name_count = 0.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<path_flag - indicates if path2_ptr is valid
*		<path2_ptr - pointer to pathname2 in gstring format
*			     if <dev2_num = 0, then pathname2 begins with a volume name
*			     if <dev2_num <> 0, then pathname2 has no volume name
*		<dev2_num - device number if specified, else 0
*		<span2 - maximum span of pathname2
*
*      Output:	A = undefined or error code if carry set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*		<my_path_ptr - pointer to pathname in gstring format
*			     if x_dev_num = 0, then pathname begins with a volume name
*			     if x_dev_num <> 0, then pathname has no volume name
*		x_path_flag - indicates if my_path_ptr is valid
*		x_dev_num - device number if specified, else 0
*		x_span - contains maximum span of pathname
*		name_count - total # of names in full pathname. 0 if device # only.
*		first_offset - offset to first name in pathname
*		last_offset - offset to last name in pathname
*		volname - volume name in gstring format (if dev_num = 0)
*
*	 Uses:	all registers
*
*   Called by:	change_path
*		format
*		erase
*
*	Calls:	parse_path
*
* Copyright Apple Computer, Inc. 1990  All rights reserved.
******************************************************************************

parse_path2	PROC
		with	data

		lda	<path_flag		;get pathname flags
		and	#path2_bit		;only want pathname 2 bit
		sta	x_path_flag		;save it

		lda	<path2_ptr		;get ptr to pathname2
		sta	<my_path_ptr		;and save
		lda	<path2_ptr+2
		sta	<my_path_ptr+2
		
		lda	<span2			;get maximum span of pathname2
		sta	x_span			;and save

		lda	<dev2_num		;get device #
		sta	x_dev_num		;and save
 		
		jsr	parse_path
		rts
		
		ENDP

		eject
******************************************************************************
*
*	 Name:	parse_path
*
* Description:	Validates pathname, then copies first name in path to volname
*		(in gstring format). Sets name_count to # of names found. 
*		If there is only a device #, will exit with name_count = 0.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<my_path_ptr - pointer to pathname in gstring format
*			     if x_dev_num = 0, then pathname begins with a volume name
*			     if x_dev_num <> 0, then pathname has no volume name
*		x_path_flag - indicates if my_path_ptr is valid
*		x_dev_num - device number if specified, else 0
*		x_span - contains maximum span
*
*      Output:	A = undefined or error code if carry set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*		name_count - total # of names in full pathname. 0 if device # only.
*		first_offset - offset to first name in pathname
*		last_offset - offset to last name in pathname
*		volname - volume name in gstring format (if dev_num = 0)
*
*	 Uses:	all registers
*
*   Called by:	parse_path1
*		parse_path2
*
*	Calls:	nothing
*
* Copyright Apple Computer, Inc. 1987-90  All rights reserved.
******************************************************************************

parse_path	PROC
		with	data

*
* Initialize outputs.
*
		stz	name_count		;clear count
		stz	volname			;init volname length to 0
		stz	first_offset		;init offsets to 0
		stz	last_offset
*
* Do we have a pathname?
*
		lda	x_path_flag		;get pathname flags
		bne	check_span		;branch if we have a pathname 
*
* No, so check for a device #.  If we have a device # then exit with name_count = 0,
* otherwise exit with a	bad path error.
*
check_device	lda	x_dev_num		;do we have a device #?
		bne	got_dev_num		;yes - so exit
		brl	bad_path		;no - so error
got_dev_num	brl	exit

*
* We have a pathname so make sure span is in range.  Exit with bad path error if not.
*
check_span	lda	x_span			;get span
		beq	bad_path		;error if span = 0
;
; 17-Dec-91 MSD: Commented out check for maximum span since we want to let process_path
; find the disk first so it can set the error priority bit.  It will then check the
; span itself.
;
;		cmp	#max_filename+1		;is it in range?
;		bcs	bad_path		;no
;
; Note: if the span was 0, or the length of the volume name was greater than max_volname
; (checked below), it couldn't be an HFS disk anyway, so bad_path_syntax is OK to return.
;
*
* Validate pathname.
*
		ldy	#3			;point past length & first separator
		lda	x_dev_num		;do we have a device #?
		beq	no_dev_num		;nope
		inc	name_count		;yes, so bump name count since partial path
		dey				;and adjust for no separator
no_dev_num
		longa	off			;set 8 bit A
		sep	#$20

		sty	first_offset		;save offset to first name
		
new_name	sty	last_offset		;save offset to last name
check_loop	lda	[my_path_ptr],y		;Get byte. End of string?
		beq	end_of_string		;yes, so ok
		cmp	#separator1		;no, hit separator?
		beq	separator		;yes
		iny				;point to next character
		bra	check_loop		;loop

separator	iny				;point to next character
		inc	name_count		;bump name count
		bra	new_name		;loop

end_of_string	inc	name_count		;zero adjust
*
* If the pathname begins with a volume name then copy it to volname.
* 
		lda	x_dev_num		;do we have a device #?
		bne	no_volname		;yes - so pathname has no volume name

		ldy	first_offset		;get offset to first name
		ldx	#0			;get offset into volname
copy_loop1	lda	[my_path_ptr],y		;Get byte. End of string?
		beq	end_name_1		;yes
		cmp	#separator1		;end of	name?
		beq	end_name_1		;yes
		sta	volname+2,x		;no, put byte in volname
		inx				;bump offsets
		iny
		bra	copy_loop1		;loop

end_name_1	lda	#0			;terminate string
		sta	volname+2,x
		stx	volname			;store length word
		
		cpx	#max_volname+1		;is the volname too long?
		bcs	bad_path		;yes
no_volname
		longa	on			;set 16	bit A
 		rep	#$20
*
* Indicate no error and exit.
*
exit		clc				
		rts				

*
* Exit with bad path error.
*
		longa	on			
bad_path	rep	#$20			;ensure 16 bit A

		lda	#bad_path_syntax	;get error code
		sec				;indicate error
		rts				;exit
		
		ENDP
		
		eject
******************************************************************************
*
*	 Name:	process_path
*
* Description:	Processes pathname.  First makes sure that the volume is online.  
*		Then finds the Catalog Record for the last name in the pathname.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		x_dev_num - device # if specified, else 0
*		volname - volume name (if x_dev_num = 0)
*		input_error - set if input error
*
*      Output:	A = error code if carry	set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*		<drvr_dev_num - device number
*		<my_vcr_ptr - pointer to vcr
*		<a1 - ptr to Catalog Record
*		record_type - Catalog Record type
*		parent_id - parent dir id of file/dir
*		id - id of file/dir 
*		storage_type - storage type of file/dir
*		catalog_hint - catalog hint
*		error_priority - $8000 if we found the specified volume
*
*	 Uses:	all registers
*		<drvr_dev_num
*
*   Called by:	create
*		destroy
*		change_path
*		set_file_info
*		get_file_info
*		clear_backup
*		open
*		get_dev_num
*		format
*		erase
*
*	Calls:	id_disk
*		scan_devices		
*		walk_path
*		update_status
*		setup_vcr_info
*		deref			(system service)
*		find_vcr		(system service)
*
* Copyright Apple Computer, Inc. 1987-91  All rights reserved.
******************************************************************************

process_path	PROC
		with	data

*
* Do we	have a device number or	a volume name?
*
		lda	x_dev_num		;Is there a device #?
		beq	by_name			;No, so	find by	name.
*
* We have a device number.  
* ID the disk.	 Exit if it's not ours, otherwise continue on to got_vcr.
*
		jsr	id_disk			;Is it an HFS disk?
		bcs	exit			;no - so exit
		bra	got_vcr			;yes - so branch
		
*
* We have a volume name. 
* Look for a vcr with the correct volume name.
*
by_name		ldx	#volname		;get pointer to	volume name
		ldy	#^volname
		lda	#0000			;search	by name
		jsl	find_vcr		
		bcs	find_vol		;didn't find a vcr so must search for volume
*
* We found a vcr. 
* Is it for an HFS volume?  Exit with unknown_vol error if not.
*
		jsl	deref			;dereference pointer
		stx	<my_vcr_ptr		;save it
		sty	<my_vcr_ptr+2
		ldy	#vcr_fst_id		;get offset to fst id
		lda	[my_vcr_ptr],y		;get fst id
		cmp	#hfs_id			;is it HFS?
		beq	its_hfs			;yes
		lda	#unknown_vol		;no - so get error code
		sec				
		bra	exit			;and exit
		
*
* The vcr is for an HFS volume.  Has the vcr been marked as swapped?
* If so, we must search for the volume.
* 
its_hfs		ldy	#vcr_status		
		lda	[my_vcr_ptr],y		;get status word
		and	#vcr_swapped		;swapped?
		bne	find_vol		;yes - so must search for volume
*
* No - so get the current status of the device where the volume was last seen. 
* If carry clear then the volume is still online.
* If carry set then we need to search for the volume.
*
		jsr	update_status		;get the current device status
		bcs	find_vol		;must search for volume
*
* The volume is still online so setup the vcr information and continue on to got_vcr.
*
		jsr	setup_vcr_info		;setup vcr information
		bra	got_vcr			;and continue
		
*		
* Scan the devices for a volume with the correct volume name. 
* The scan_devices routine will build a vcr and activate it if none exists.
*
find_vol	jsr	scan_devices		;did we find the volume?
		bcs	exit			;no - so exit
*
* Ok, we found the volume and we have a vcr which has been marked active. 
* Now walk the pathname until we find the Catalog Record for the last name in the path.	
*
got_vcr		lda	#$8000			;indicate that we found the volume
		sta	error_priority		;and it's an HFS volume
;
; Begin 17-Dec-91 MSD: Now that we've identified the disk, check the span.  If it is
; too big, return bad_path_syntax.
;
		lda	x_span			; get span from last parse_path
		cmp	#max_filename+1		; are all filenames short enough?
		bcc	ok_span			; yes, so continue finding the file
		lda	#bad_path_syntax	; no, so return the error
		bra	exit			; note: carry was set if we got here!
ok_span
;
; End 17-Dec-91 MSD
;
		lda	doing_gdn		;should we skip walk_path? (29-Oct-91 MSD)
		bne	no_walk			;29-Oct-91 MSD
		jsr	walk_path		;did we find the record?
		bcs	exit			;no - so exit
*
* If input_error is non-zero then set carry and exit with input_error.
*
no_walk						; 29-Oct-91 MSD
		lda	input_error		;was there an input error?
		beq	exit			;no - so exit with carry clear
		sec				;yes - so exit with carry set
exit		rts				;exit

		ENDP
		
		eject
******************************************************************************
*
*	 Name:	walk_path
*
* Description:	Walks the pathname and gets the Catalog Record for each
*		successive name until it reaches the end of the pathname.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<my_vcr_ptr - pointer to vcr
*		<my_path_ptr - pointer to pathname
*		first_offset - offset to first name in pathname
*		last_offset - offset to last name in pathname
*		name_count - total # of names in pathname
*		x_dev_num - device # if specified, else 0
*
*      Output:	A = error code if carry set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*		<a1 - ptr to Catalog Record for file/dir
*		record_type - Catalog Record type
*		parent_id - parent dir id of file/dir
*		id - id of file/dir 
*		storage_type - storage type of file/dir
*		catalog_hint - catalog hint
*
*	 Uses:	all registers
*		current_offset
*		record_name
*		a0,a1,d0,d2
*
*   Called by:	process_path	
*
*	Calls:	get_record_name
*		get_next_name		
*		ct_get_rec
*		get_storage_type
*
* Copyright Apple Computer, Inc. 1989-91  All rights reserved.
******************************************************************************

walk_path	PROC
		with	data
		
*
* Initialize current_offset to point to the first name in the path.
*
		lda	first_offset		;get offset to first name in pathname
		sta	current_offset
*
* Initialize parent_id to be the volume parent ID.
*
		lda	#vol_parent_id		;set parent ID to volume parent ID
		sta	parent_id
		lda	#^vol_parent_id
		sta	parent_id+2
*
* Now, check to see if a device # was specified.
*
		lda	x_dev_num		;was a device # specified?
		beq	name_loop		;no
*
* A device # was specified. 
* We need to find the directory record for the volume directory but we don't know the 
* volume name. So, we'll use the volume dir id to find the record.
* If a pathname was also specified, then we'll jump into the name loop code.
* If we only have a device #, then we need to copy the name from the Catalog Record
* into record_name so we'll have it later.  Then finish up and exit.
*
		stz	<a0			;A0.L <- nil ptr (no name)
		stz	<a0+2

		lda	#vol_dir_id		;D0.L <- volume dir ID
		sta	d0
		lda	#^vol_dir_id
		sta	d0+2
		
		stz	d2			;D2.L <- no hint
		stz	d2+2

 		jsr	ct_get_rec		;get the Catalog Record
		bcs	bcs_not_found
		
		lda	name_count		;do we have a pathname?
		bne	cont			;yes - so continue
		jsr	get_record_name		;no - so copy Catalog Record name
		bra	found_it		;into record_name and finish up

*
* Get the Catalog Record for each successive name in the pathname until we
* reach the end of the pathname.
*
name_loop	jsr	get_next_name		;copy next name into record_name
		
		lda	#record_name		;A0.L <- ptr to name
		sta	<a0
		lda	#^record_name
		sta	<a0+2
		
		lda	parent_id		;D0.L <- parent ID
		sta	d0
		lda	parent_id+2
		sta	d0+2
		
		stz	d2			;D2.L <- no hint
		stz	d2+2

 		jsr	ct_get_rec		;get the Catalog Record
bcs_not_found	bcs	not_found
		
		lda	last_offset		;was this the last name in the pathname?
		cmp	current_offset
		bcc	found_it		;yes - so we're done
		
cont		ldy	#cat_type		;get offset to Catalog Record type
		lda	[a1],y			;get record type
		cmp	#cat_dir_type		;is it a directory record?
		bne	bad_path		;no - so error
		
		ldy	#dir_id			;get offset to dir ID
		lda	[a1],y			;get hi word of dir ID 
		xba				;change byte sex
		sta	parent_id+2		;store in hi word of parent_id
		iny
		iny
		lda	[a1],y			;get lo word of dir ID
		xba				;change byte sex
		sta	parent_id		;store in lo word of parent_id
		
		bra	name_loop
		
*
* We've found the record for the last name in the path. 
*
* Get the Catalog Record type and save.
*
found_it	ldy	#cat_type		;get offset to Catalog Record type
		lda	[a1],y			;get record type
		sta	record_type		;and save
*
* Get the file/dir id and save.
*
		ldy	#fil_id			;get offset to file id
;		lda	record_type		;are we dealing with a file?
		cmp	#cat_fil_type
		beq	get_id			;yes - so branch
		ldy	#dir_id			;no - so adjust offset
get_id		lda	[a1],y			;get hi word of id
		xba				;change byte sex
		sta	id+2			;and save
		iny
		iny
 		lda	[a1],y			;get lo word of id
		xba				;change byte sex
		sta	id			;and save
*
* Save the catalog hint which was returned from the last ct_get_rec call.
*
		lda	d2			
		sta	catalog_hint		
		lda	d2+2
		sta	catalog_hint+2
*
* Setup the storage type output parameter.
*
		jsr	get_storage_type
*
* Indicate no error and exit
*
 		clc				
		rts
		
*
* Return an error
*
not_found	cmp	#bt_not_found		;was error 'not found'?
		bne	error			;no - so return error as is
;
; Begin 2-Dec-91 MSD: Catch the peculiar case where the disk is damaged in such a way
; that the volume directory's entry couldn't be found in the CTree.  The disk is obviously
; damaged, so we'll return a damaged_bitmap error.  Too bad I can't detect this kind of
; damage in other parts of the CTree.
;
; The reason that I even bother to test this case is that it's a fairly common problem
; with disk-to-disk copies that don't complete successfully.  It may also be true when
; other whole-disk operations (like Erase or Zero) fail and leave the disk in an inconsistent
; state.
;
		lda	#damaged_bitmap		; assume the error
		ldx	parent_id		; is parent the volume's parent
		cpx	#<vol_parent_id		; (i.e. didn't find volume directory entry)?
		bne	@not_damaged		; no, was something else not found
		ldx	parent_id+2
		cpx	#^vol_parent_id
		beq	error			; was volume, so return the error
@not_damaged
;
; End 2-Dec-91 MSD
;
		lda	#file_not_found		;change error to 'file not found'
		ldx	last_offset		;was this the last name in the pathname?
		cpx	current_offset
		bcc	error			;yes - so return 'file not found' error
bad_path	lda	#path_not_found		;return 'path not found' error
error		sec				;indicate error
		rts
		
		ENDP
		
		eject
******************************************************************************
*
*	 Name:	get_storage_type
*
* Description:	Determines the storage type of a Catalog Record.  
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<a1 - ptr to Catalog Record
*		parent_id - parent dir id of Catalog Record
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..0 
*		B = K
*
*		storage_type - storage type of Catalog Record
*
*	 Uses:	all registers
*
*   Called by:	walk_path
*		get_dir_entry
*		get_cat_info
*
*	Calls:	nothing
*
* Copyright Apple Computer, Inc. 1989-90  All rights reserved.
******************************************************************************

get_storage_type PROC
		with	data

*
* First, determine whether the Catalog Record is for a file or a directory.
*
		ldy	#cat_type		;get offset to Catalog Record type
		lda	[a1],y			;get record type
		cmp	#cat_dir_type		;is it a directory record?
		bne	file_rec		;no
*
* The Catalog Record is for a directory.
* Determine if it's a subdirectory or the volume directory.
*
		lda	parent_id		;get lo word of record's parent id
		cmp	#vol_parent_id		;does it match the volume parent id?
		bne	subdir			;no
		lda	parent_id+2		;get hi word of record's parent id
		cmp	#^vol_parent_id		;does it match the volume parent id?
		bne	subdir			;no
		lda	#volume_stype		;set storage type to 'volume directory'
		bra	set_stype
		
subdir		lda	#directory_stype	;set storage type to 'subdirectory'
		bra	set_stype
		
*
* The Catalog Record is for a file.
* Determine if it's a standard file or an extended file.
*
file_rec	ldy	#fil_rsrc_peof
		lda	[a1],y			
		iny
		iny
		ora	[a1],y			;is the resource fork peof = 0?
		beq	standard		;yes - so it's a standard file
		lda	#extended_stype		;set storage type to 'extended file'
		bra	set_stype
		
standard	lda	#standard_stype		;set storage type to 'standard file'
*
* Set the storage_type output parameter.
*
set_stype	sta	storage_type
*
* Indicate no error and exit.
*
		clc
		rts
		
		ENDP

		eject		
******************************************************************************
*
*	 Name:	get_vol_info
*
* Description:	Gets information about a volume and stores it in the output 
*		parameter storage area.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<my_vcr_ptr - ptr to vcr
*		pblks_per_ablk - # of physical blocks per alloc block
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..0 
*		B = K
*
*		total_blocks - total number of blocks on the volume
*		free_blocks - total number of free blocks on the volume
*		blocks_used - total number of blocks used on the volume
*
*	 Uses:	all registers
*		<multiplier
*		<multiplicand
*		<product
*
*   Called by:	volume
*		get_cat_info
*
*	Calls:	word_multiply
*
* Copyright Apple Computer, Inc. 1989-91  All rights reserved.
******************************************************************************

get_vol_info	PROC
		with	data

*
* Setup the total_blocks output parameter 
*
		ldy	#vcr_num_pblks		;get # of physical blocks on vol
		lda	[my_vcr_ptr],y
		sta	total_blocks		;store in total_blocks
		iny
		iny
		lda	[my_vcr_ptr],y
		sta	total_blocks+2
*
* Setup the free_blocks output parameter 
* free_blocks = vcr_free_ablks * pblks_per_ablk
*
		lda	pblks_per_ablk		;multiplier = # of phys blks per alloc blk
		sta	<multiplier
		
		ldy	#vcr_free_ablks		;multiplicand = # of free alloc blks on vol
		lda	[my_vcr_ptr],y
		sta	<multiplicand
		
		jsr	word_multiply		;product = multiplier * multiplicand
		
		lda	<product		;store answer in free_blocks
		sta	free_blocks
		lda	<product+2
		sta	free_blocks+2
*
* Setup the blocks_used output parameter 
* blocks_used = total_blocks - free_blocks
*
		sec
		lda	total_blocks		;get total number of blocks on volume
		sbc	free_blocks		;subtract number of free blocks on volume
		sta	blocks_used		;to get number of used blocks on volume
		lda	total_blocks+2
		sbc	free_blocks+2
		sta	blocks_used+2
*
* Indicate no error and exit
*
		clc				;indicate no error
exit		rts				;exit

		ENDP
		
		eject
******************************************************************************
*
*	 Name:	get_cat_info
*
* Description:	Gets information from a Catalog Record and stores it in the output
*		parameter storage area.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		call - call number
*		class - call class
*		<my_vcr_ptr - ptr to vcr
*		<a1 - ptr to Catalog Record
*		record type - Catalog Record type
*		storage_type - storage type
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..0
*		B = K
*
*		access - access information
*		file_type - ProDOS file type
*		aux_type - ProDOS aux type
*		total_blocks - total number of blocks on volume (vol dir, class 0 call)
*		eof - logical eof of data fork (file, class 1 call) or
*		      undefined (subdir, class 1 call) or
*		      undefined (vol dir, class 1 call) 
*		resource_eof - logical eof of resource fork (file, class 1 call) or
*		      	       undefined (subdir, class 1 call) or
*		      	       undefined (vol dir, class 1 call) 
*		blocks_used - blocks used for data fork (file, class 1 call) or
*			      undefined (subdir, class 1 call) or
*			      undefined (vol dir, class 1 call) or
*			      total blocks used for file (file, class 0 call) or
*			      estimated blocks used for subdir (subdir, class 0 call) or
*			      total blocks used on volume (vol dir, class 0 call)
*		resource_blocks - blocks used for resource fork (file, class 1 call) or
*		      		  undefined (subdir, class 1 call) or
*		      		  undefined (vol dir, class 1 call) 
*		create_date - create date (class 0 call)
*		create_time - create time (class 0 call)
*		mod_date - modification date (class 0 call)
*		mod_time - modification time (class 0 call)
*		create_date_time - create date and time (class 1 call)
*		mod_date_time - modification date and time (class 1 call)
*		finder_info - Finder Info (class 1 call)
*
*	 Uses:	all registers
*		<temp0
*		<my_fcr_ptr
*		<source_ptr	(aka <product)
*		<dest_ptr 	
*
*   Called by:	get_file_info
*		open
*		get_dir_entry
*
*	Calls:	get_access
*		get_file_aux
*		get_create_mod
*		look_for_fcr
*		copy_long
*		calc_blocks_used
*		get_vol_info
*		get_finder_info
*		get_storage_type
*
* Copyright Apple Computer, Inc. 1989-90  All rights reserved.
******************************************************************************

get_cat_info	PROC
		with	data
		
*
* Get access information for the file/dir.
*
		jsr	get_access		
*
* Get a ProDOS filetype and auxtype for the file/dir.
*
		jsr	get_file_aux
*
* Get the create date/time and mod date/time for the file/dir.
*
		jsr	get_create_mod		
*
* Check the Catalog Record type.  Do we have a File or Directory Record?
*
		lda	record_type		;get Catalog Record type
		cmp	#cat_fil_type		;is it a file record?
		beq	do_fil_stuff		;yes 
		brl	do_dir_stuff		;no
*
* We have a File Record. 
* If we're doing a GetFileInfo call, we need to check if either (or both) of the
* file's forks are open.  If a fork is open and the fork's fcr is dirty then
* we need to copy the leof and peof from the fcr to the File Record so that the 
* correct information will be used when setting up the output parameters.
* Note - the new leof and peof are not written to disk.
* Note - after we update the File Record, we need to update the storage_type 
*	 output parameter since the new eofs may change the file 
*	 from a 'standard file' to an 'extended file' or vice-versa.
*
do_fil_stuff	lda	call			;get the call #
		cmp	#gfi_call_num		;are we doing a GetFileInfo call?
		bne	fil_rec_ok		;no - so File Record is OK
		
		jsr	look_for_fcr		;look for an fcr for the file
		bcs	fil_rec_ok		;didn't find one so File Record is OK
		jsr	update_fil_rec		;update the File Record if needed
		
@loop		jsr	look_for_fcr2		;look for another fcr for the file
		bcs	@cont			;didn't find one 
		jsr	update_fil_rec		;update the File Record if needed
		bra	@loop			;loop
@cont	
		jsr	get_storage_type 	;update storage type
fil_rec_ok
*
* We have a File Record which has been updated if necessary.
* Now check the class of the call.
*
		lda	class			;get class #
		bne	fil_class1		;branch if class 1 call
*
* We have a File Record and a class 0 call.
* Get the total blocks used for the file.
*
		ldy	#fil_data_peof		;get offset to data fork peof		
		jsr	calc_blocks_used	;calculate blocks used for data fork
		stx	blocks_used		;and store
		sty	blocks_used+2
		ldy	#fil_rsrc_peof		;get offset to rsrc fork peof		
		jsr	calc_blocks_used	;calculate blocks used for rsrc fork
		clc				;and add to blocks used for data fork
		txa				;to result in total blocks used for file
		adc	blocks_used
		sta	blocks_used
		tya
		adc	blocks_used+2
		sta	blocks_used+2

		brl	exit			;and we're done

*
* We have a File Record and a class 1 call.
* Get the logical eof of the data fork, the logical eof of the resource fork, 
* the blocks used for the data fork, the blocks used for the resource fork
* and the Finder Info for the file.
*
fil_class1
		ldy	#fil_data_leof		;get offset to data fork leof
		lda	[a1],y			;get hi word of data fork leof
		xba				;change byte sex
		sta	eof+2			;and store
		iny
		iny
		lda	[a1],y			;get lo word of data fork leof
		xba				;change byte sex
		sta	eof			;and store

		ldy	#fil_rsrc_leof		;get offset to rsrc fork leof
		lda	[a1],y			;get hi word of rsrc fork leof
		xba				;change byte sex
		sta	resource_eof+2		;and store
		iny
		iny
		lda	[a1],y			;get lo word of rsrc fork leof
		xba				;change byte sex
		sta	resource_eof		;and store

		ldy	#fil_data_peof		;get offset to data fork peof		
		jsr	calc_blocks_used	;calculate blocks used for data fork
		stx	blocks_used		;and store
		sty	blocks_used+2

		ldy	#fil_rsrc_peof		;get offset to rsrc fork peof		
		jsr	calc_blocks_used	;calculate blocks used for rsrc fork
		stx	resource_blocks		;and store
		sty	resource_blocks+2
		
		jsr	get_finder_info		;get Finder Info
		
		bra	exit			;and we're done
	
*
* We have a Directory Record. Now check the class of the call.
*
do_dir_stuff	lda	class			;get class #
		bne	dir_class1		;branch if class 1 call
*
* We have a Directory Record and a class 0 call.  Now check storage_type.
* If storage_type is 'volume' then get the total blocks on the volume and the 
* blocks used on the volume.
* If storage_type is 'subdirectory' then estimate the blocks used for the subdirectory.
*
		lda	storage_type		;get the storage type of the directory
		cmp	#volume_stype		;is it a volume directory?
		bne	subdir			;no - so branch

		jsr	get_vol_info		;setup total_blocks and blocks_used
		bra	exit			;and we're done 
		
subdir		ldy	#dir_valence		;get offset into Directory Record
		lda	[a1],y			;get # of files and dirs in this dir
		xba				;change byte sex
		lsr	a			;divide by 4 to estimate blocks used
		lsr	a			;for catalog info
		sta	blocks_used		;store result 
		bra	exit			;and we're done
		
*
* We have a Directory Record and a class 1 call.
* If storage_type is 'volume' then we're done since Finder Info is returned as 0 for volumes.
* If storage_type is 'subdirectory' then get the Finder Info for the subdirectory.
*
dir_class1	
		lda	storage_type		;get the storage type of the directory
		cmp	#volume_stype		;is it a volume directory?
		beq	exit			;yes - so we're done
		
		jsr	get_finder_info		;no - so get Finder Info
*
* Indicate no error and exit
*
exit		clc
		rts


;------------------------------------------------------------------------------
; update_fil_rec routine
;------------------------------------------------------------------------------

*
* If the fcr is dirty, then copy the leof and peof from the fcr to the File Record.
*
update_fil_rec	ldy	#fcr_flags		
		lda	[my_fcr_ptr],y		;get the fcr flags
		and	#fcr_dirty_bit		;is the fcr dirty?
		beq	update_done		;no - so nothing to update
		
		lda	<my_fcr_ptr		;the fcr is dirty so
		sta	<source_ptr		;setup source ptr
		lda	<my_fcr_ptr+2
		sta	<source_ptr+2
		
		lda	<a1			;setup destination ptr
		sta	<dest_ptr
		lda	<a1+2
		sta	<dest_ptr+2
		
		ldy	#fcr_access
		lda	[my_fcr_ptr],y		;get access word from fcr
		and	#rsrc_fork_bit		;we only want the rsrc fork bit 
		sta	<temp0			;save it
		
		ldy	#fcr_leof		;get starting source offset
		ldx	#fil_data_leof		;get starting dest offset
		lda	<temp0			;is the fcr for a resource fork?
		beq	@cont			;no - so branch
		ldx	#fil_rsrc_leof		;yes - so adjust dest offset
@cont		jsr	copy_long		;copy leof from fcr to File Record
		jsr	copy_long		;copy peof from fcr to File Record
update_done	rts

		ENDP
		
		eject
******************************************************************************
*
*	 Name:	get_access
*
* Description:	Gets the access information for a file/dir and stores it in the
*		output parameter storage area.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<a1 - ptr to Catalog Record
*		record_type - Catalog Record type
*		storage_type - storage type
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..0
*		B = K
*
*		access - access information for file/dir
*
*	 Uses:	all registers
*		<temp0
*
*   Called by:	get_cat_info	
*
*	Calls:	nothing
*
* Copyright Apple Computer, Inc. 1989-90  All rights reserved.
******************************************************************************

get_access	PROC
		with	data

*
* First, determine if we're dealing with a volume directory.
*
		lda	storage_type		;get storage type
		cmp	#volume_stype		;are we dealing with a volume dir?
		bne	not_vol			;no - so branch
*
* We're dealing with a volume directory.
* Set the access word to 'full access'.
*
		lda	#full_access		;set access word to
		sta	access			;'full access'
		brl	done			;and we're done

*
* We're dealing with a file or subdirectory.
* First, initialize the access word to 'read enabled' access.
*
not_vol		lda	#read_enabled
		sta	access
*		
* Set the overflow flag if the Catalog Record is for a file.
* 
		clc
		lda	#$7ffe
		adc	record_type		
*
* If we're dealing with a file, then check the flags byte in the Catalog Record.
* If the file is unlocked then set the 'write enabled', 'rename enabled' and 
* 'destroy enabled' bits in the access word.
* Subdirectories are always unlocked.
*
		bvc	unlocked		;branch if we're dealing with a dir
		
		ldy	#fil_flags		;get offset to file flags byte
		lda	[a1],y			;get file flags
		and	#locked_bit		;is the file locked?
		bne	locked			;yes
		
unlocked	lda	access			;no - so get access word
		ora	#write_enabled		;enable write
		ora	#rename_enabled		;enable rename
		ora	#destroy_enabled	;enable destroy
		sta	access			;and save
locked
*
* Now check the Finder Flags word in the Finder Info field of the Catalog Record.
* If the file/dir is invisible then set the 'invisible' bit in the access word.
*
		ldy	#fil_finfo1+fi_flags	;get offset to Finder Info flags
		bvs	get_fi_flags
		ldy	#dir_finder_info+fi_flags  ;get offset to Finder Info flags
get_fi_flags	lda	[a1],y			;get Finder Info flags
		xba				;change byte sex
		and	#fi_invis_bit		;is the file/dir invisible?
		beq	visible			;no
		
		lda	access			;yes - so get access word
		ora	#invisible		;set 'invisible' bit
		sta	access			;and save
visible	
*
* Now compare the 'modified date/time' to the 'backup date/time' in the Catalog Record.
* If the 'modified date/time' is later than the 'backup date/time' then set the
* 'backup needed' bit in the access word.
*
		ldy	#fil_mod_dt	
		bvs	get_mod_dt
		ldy	#dir_mod_dt	
get_mod_dt	lda	[a1],y			;get hi word of mod date/time
		xba				;change byte sex
		sta	<temp0			;and save
		iny
		iny
		lda	[a1],y			;get lo word of mod date/time
		xba				;change byte sex
		sta	<temp0+2		;and save
		
		ldy	#fil_backup_dt		
		bvs	cmp_2_backup
		ldy	#dir_backup_dt	
cmp_2_backup	lda	[a1],y			;get hi word of backup date/time
		xba				;change byte sex
		cmp	<temp0			;compare to hi word of mod date/time
		beq	equal			;branch if backup is same as mod
		bcs	backup_ok		;branch if backup is later than mod
		bcc	needs_backup		;branch if backup is earlier than mod
equal		iny				;adjust offset to point to lo word
		iny
		lda	[a1],y			;get lo word of backup date/time
		xba				;change byte sex
		cmp	<temp0+2		;compare to lo word of mod date/time
		bcs	backup_ok		;branch if backup is >= mod
		
needs_backup	lda	access			;get access word
		ora	#backup_needed		;set 'backup needed' bit
		sta	access			;and save
backup_ok
*
* Indicate no error and exit
*		
done		clc
		rts
		
		ENDP
		
		eject
******************************************************************************
*
*	 Name:	get_file_aux
*
* Description:	Converts the HFS creator and filetype information for the file/dir
*		into ProDOS filetype and auxtype information and stores it in the
*		output parameter storage area.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<a1 - ptr to Catalog Record
*		record_type - Catalog Record type
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..0
*		B = K
*
*		file_type - ProDOS filetype
*		aux_type - ProDOS auxtype
*
*	 Uses:	all registers
*		<temp0
*		<temp1
*
*   Called by:	get_cat_info	
*
*	Calls:	Hex2Int			(Integer Math routine)
*
* Copyright Apple Computer, Inc. 1989-91  All rights reserved.
******************************************************************************

get_file_aux 	PROC
		with	data
		
hfs_filetype	equ	temp0			;local equate - 4 bytes long
hfs_creator	equ	temp1			;local equate - 4 bytes long

*
* First, check the record type to see if we're dealing with a directory or a file.
*
		lda	record_type		;get Catalog Record type
		cmp	#cat_dir_type		;are we dealing with a directory?
		bne	do_cvt			;branch if not
*
* We're dealing with a directory so set the file_type output parameter to 'directory'.
* The aux_type output parameter was initialized to 0 so no need to clear it again.
*
		lda	#dir_ftype		;set file_type to 'directory'
		sta	file_type
		brl	done			;and we're done

*
* We're dealing with a file so we have to convert the HFS 'creator' and 'filetype' to
* a ProDOS 'filetype' and 'auxtype'.
* First, get the file's HFS filetype and creator and save them in local temps.
*
do_cvt		ldy	#fil_finfo1+fi_file_type ;get offset to file's type info
		lda	[a1],y			;get first 2 bytes of filetype info
		sta	<hfs_filetype		;and save
		iny				;adjust offset
		iny
		lda	[a1],y			;get next 2 bytes of filetype info
		sta	<hfs_filetype+2		;and save

 		ldy	#fil_finfo1+fi_file_creator ;get offset to file's creator info
		lda	[a1],y			;get first 2 bytes of creator info
		sta	<hfs_creator		;and save
		iny				;adjust offset
		iny
		lda	[a1],y			;get next 2 bytes of creator info
		sta	<hfs_creator+2		;and save
*
* Check the file's HFS creator to see if it's "pdos".  
*
		lda	<hfs_creator		;get first 2 bytes of file's creator
		cmp	#'dp'			;is it "pd" ?
		bne	check_table		;no - so branch
		lda	<hfs_creator+2		;get next 2 bytes of file's creator
		cmp	#'so'			;is it "os" ?
		bne	check_table		;no - so branch
*
* The file's HFS creator is "pdos" so we need to do some special checking on the filetype.
*
* First, check to see if the first byte of the HFS filetype is "p".
* If it is, set the ProDOS filetype to the second byte of the HFS filetype and set the 
* ProDOS auxtype to the third and fourth bytes of the HFS filetype.
*
		lda	<hfs_filetype		;get first 2 bytes of filetype
		and	#$00ff			;only want first byte
		cmp	#'p'			;is it "p" ?
		bne	not_p			;no - so branch

		lda	<hfs_filetype+1		;get second and third bytes of filetype
		and	#$00ff			;only want second byte
		sta	file_type		;and store in output parameter
		lda	<hfs_filetype+2		;get third and fourth bytes of filetype
		xba				;swap bytes
		sta	aux_type		;and store in output parameter
		bra	done			;we're done
not_p
*
* If the HFS filetype consists of 2 hex digits (i.e. "0"-"9" or "A"-"F") followed by 2 
* spaces then set the ProDOS filetype to the integer equivalent of the 2 hex digits.
* The Hex2Int routine in the Integer Math Toolset is used to convert the hex digits
* into an integer.  The routine returns an error if one of the bytes is not a hex digit.
*
		lda	<hfs_filetype+2		;get third and fourth bytes of filetype
		cmp	#'  '			;are they spaces ?
		bne	not_hex			;no - so branch
		
		pea	0			;push space for integer result
		pea	0			;push ptr to first 2 bytes of HFS filetype
		clc
		tdc
		adc	#hfs_filetype
		pha				
		pea	2			;push string length
		ldx	#Hex2Int		;call Hex2Int routine in Integer Math
		jsl	tool_locator		
		pla				;retrieve integer result
		bcs	not_hex			;got an error 
		sta	file_type		;store result in output parameter
		bra	done			;we're done
not_hex		
*
* Check the file's HFS creator and filetype against the strings listed in the 
* conversion table. If a match is found, set the ProDOS filetype and auxtype to 
* the values in the table. If there's no match, we're done since the file_type 
* and aux_type output parameters were already initialized to 0.
*
check_table	ldx	#0			;init table offset

table_loop	lda	conversion_table,x	;get 2 bytes from table
		bmi	skip_creator		;negative value matches any HFS creator
		cmp	<hfs_creator		;compare to first 2 bytes of HFS creator
		bne	next_entry		;no match so check next table entry
		lda	conversion_table+2,x	;get next 2 bytes from table
		cmp	<hfs_creator+2		;compare to next 2 bytes of HFS creator
		bne	next_entry		;no match so check next table entry
skip_creator		
		lda	conversion_table+4,x	;get next 2 bytes from table
		cmp	<hfs_filetype		;compare to first 2 bytes of HFS filetype
		bne	next_entry		;no match so check next table entry
		lda	conversion_table+6,x	;get next 2 bytes from table
		cmp	<hfs_filetype+2		;compare to next 2 bytes of HFS filetype
		beq	match			;got a match
next_entry	clc				;adjust table offset by the size of 
		txa				;a table entry
		adc	#entry_size
		tax
		cmp	#table_size		;at end of table?
		bcc	table_loop		;no - so loop
		bra	done			;yes - so we're done
		
match		lda	conversion_table+8,x	;get ProDOS filetype from table
		and	#$00ff			;only want 1 byte
		sta	file_type		;and store in output parameter
 		lda	conversion_table+9,x	;get ProDOS auxtype from table
		and	#$00ff			;only want 1 byte
		sta	aux_type		;and store in output parameter
*
* Indicate no error and exit
*		
done		clc
		rts
		
		ENDP
		
		eject
******************************************************************************
*
*	 Name:	get_create_mod
*
* Description:	Gets the create date/time and mod date/time information for a 
*		file/dir and stores it in the output parameter storage area.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<my_vcr_ptr - ptr to vcr
*		<a1 - ptr to Catalog Record
*		record_type - Catalog Record type
*		storage_type - storage type
*		class - call class
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..0
*		B = K
*
*		create_date - create date (class 0 call)
*		create_time - create time (class 0 call)
*		mod_date - modification date (class 0 call)
*		mod_time - modification time (class 0 call)
*		create_date_time - create date and time (class 1 call)
*		mod_date_time - modification date and time (class 1 call)
*
*	 Uses:	all registers
*		<temp0
*		<temp1
*		<source_ptr	(aka <product)
*		<dest_ptr	
*
*   Called by:	get_cat_info	
*
*	Calls:	copy_long
*		handle_conv_err
*		ConvSeconds		(Misc. Tools routine)
*
* Copyright Apple Computer, Inc. 1989-90  All rights reserved.
******************************************************************************

get_create_mod 	PROC
		with	data
			
*
* First, determine if we're dealing with a volume directory.
*
		lda	storage_type		;get storage type
		cmp	#volume_stype		;are we dealing with a volume dir?
		bne	not_vol			;no - so branch
*
* We're dealing with a volume directory.
* Get the 'create date/time' and 'modified date/time' information from the VCR
* (not the Catalog Record) and store it for later.
*
		ldy	#vcr_create_dt		;get offset into vcr
		ldx	#0
loop		lda	[my_vcr_ptr],y		;copy create date/time into <temp0
		sta	<temp0,x		;and modified date/time into <temp1
		iny
		iny
		inx
		inx
		cpx	#8
		bne	loop
		
		bra	do_convert
		
*		
* We're dealing with a file or subdirectory.
* Get the 'create date/time' and 'modified date/time' information from the Catalog Record
* and store it for later.
*
not_vol		lda	<a1			;set up source ptr
		sta	<source_ptr
		lda	<a1+2
		sta	<source_ptr+2
		
		clc
		tdc
		adc	#temp0			;set up destination ptr
		sta	<dest_ptr
		stz	<dest_ptr+2
		
		ldy	#fil_create_dt 		;init source offset
		lda	record_type		;get record type
		cmp	#cat_fil_type		;are we dealing with a File Record?
		beq	cont1			;yes - so continue
		ldy	#dir_create_dt		;no - so adjust source offset
cont1		ldx	#0			;init destination offset
		jsr	copy_long		;copy create date/time into <temp0
		jsr	copy_long		;copy modified date/time into <temp1
*
* Convert the 'create date/time' and 'modified date/time' information into ProDOS class 0
* format or GS/OS class 1 format, and store result in the output parameter storage area.
*
do_convert	pha				;push space for result
		pha
		pea	4			;convert seconds to class0 format date/time 
		lda	class			;check call class
		beq	@0			;branch if class 0
		lda	#0			;convert seconds to class1 format date/time
		sta	1,s
@0 		pei	<temp0+2		;push hi word of seconds
		pei	<temp0			;push lo word of seconds
		pea	create_date_time>>16	;push ptr to create date/time buffer
		pea	create_date_time
		ldx	#ConvSeconds 		;call ConvSeconds routine in Misc Tools
		jsl	tool_locator
		bcc	conv_ok1
		jsr	handle_conv_err		
conv_ok1	
;		pla				;pull result off stack (unused)
;		pla
		
;		pha				;push space for result
;		pha
		pea	4			;convert seconds to class0 format date/time 
		lda	class			;check call class
		beq	@0			;branch if class 0
		lda	#0			;convert seconds to class1 format date/time
		sta	1,s
@0 		pei	<temp1+2		;push hi word of seconds
		pei	<temp1			;push lo word of seconds
		pea	mod_date_time>>16	;push ptr to mod date/time buffer
		pea	mod_date_time
		ldx	#ConvSeconds 		;call ConvSeconds routine in Misc Tools
		jsl	tool_locator
		bcc	conv_ok2
		jsr	handle_conv_err		
conv_ok2	pla				;pull result off stack (unused)
		pla
*
* Indicate no error and exit
*		
done		clc
		rts
		
		ENDP

		eject
******************************************************************************
*
*	 Name:	get_finder_info
*
* Description:	Gets the Finder Info for a file/dir and stores it in the
*		output parameter storage area.
*
*	 Note:	The Finder Info is always in 68000 format so the byte sex
*		doesn't need to be reversed.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<a1 - ptr to Catalog Record
*		record_type - Catalog Record type
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..0
*		B = K
*
*		finder_info - Finder Info 
*
*	 Uses:	all registers
*
*   Called by:	get_cat_info	
*
*	Calls:	nothing
*
* Copyright Apple Computer, Inc. 1989-90  All rights reserved.
******************************************************************************

get_finder_info PROC
		with	data

*
* Determine if the Catalog Record we're dealing with is for a file or directory.
*
		lda	record_type		;get Catalog Record type
		cmp	#cat_dir_type		;are we dealing with a directory record?
		beq	its_dir			;yes - so branch
*
* We're dealing with a File Record.
*
		ldy	#fil_finfo1		;get offset to 1st 16 bytes of finder info
		ldx	#0			;init offset into output param storage
fil_loop	lda	[a1],y			;copy the bytes
		sta	finder_info,x		
		iny
		iny
		inx				
		inx
		cpx	#32			;done with second half?
		beq	done			;yes
		cpx	#16			;done with first half?
		bne	fil_loop		;no - so loop
		ldy	#fil_finfo2		;yes - so get offset to 2nd 16 bytes
		bra	fil_loop		;and loop
		
*
* We're dealing with a Directory Record.
*
its_dir		ldy	#dir_finder_info	;get offset to 32 bytes of finder info
		ldx	#0			;init offset into output param storage
dir_loop	lda	[a1],y			;copy the bytes
		sta	finder_info,x		
		iny
		iny
		inx				
		inx
		cpx	#32			;done?
		bne	dir_loop		;no - so loop
*
* Indicate no error and exit
*		
done		clc
		rts
		
		ENDP
		
		eject
******************************************************************************
*
*	 Name:	set_access
*
* Description:	Sets the access information for a file/dir.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<a1 - ptr to Catalog Record
*		record_type - Catalog Record type
*		storage_type - storage type 
*		access - access information for file/dir
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..0
*		B = K
*
*	 Uses:	all registers
*
*   Called by:	create
*		set_file_info	
*
*	Calls:	nothing
*
* Copyright Apple Computer, Inc. 1989-90  All rights reserved.
******************************************************************************

set_access	PROC
		with	data

*		
* Set the overflow flag if the Catalog Record is for a file.
* 
		clc
		lda	#$7ffe
		adc	record_type		
*
* If we're dealing with a file, then check the 'write enabled', 'rename enabled' and 
* 'destroy enabled' bits in the access word. If they are all clear, lock the file.  
* If any of them are set, unlock the file.
* If we're dealing with a subdirectory, then skip this section since dirs can't be locked.
*
		bvc	skip_it			;branch if the Catalog Record is for a dir
		
		ldy	#fil_flags		;get offset to file flags byte
		lda	[a1],y			;get file flags
		tax				;and save in X
		
		lda	access			;get access word
; BEGIN 29-Oct-91 MSD
		and	#locked_access		; are any of the enable bits set?
		bne	unlock_it		; yes, so unlock the file
						; otherwise, fall into locking the file
; This was the old code for reading pleasure...
;		ora	#read_enabled		;make sure 'read enabled' bit is set
;		and	#full_access		;mask off unwanted bits
;		cmp	#full_access		;are all the 'enabled' bits set?
;		beq	unlock_it		;yes - so unlock the file
; END 29-Oct-91 MSD

		txa				;no - so lock the file
		ora	#locked_bit		;set the 'locked' bit
		bra	store_flags
		
unlock_it	txa
		and	#locked_mask		;clear the 'locked' bit
store_flags	sta	[a1],y			;save new file flags
skip_it
*
* Now copy the 'invisible' bit in the access word into the Finder Flags word in the 
* Finder Info field of the Catalog Record.
*
		ldy	#fil_finfo1+fi_flags	;get offset to Finder Info flags
		bvs	get_fi_flags
		ldy	#dir_finder_info+fi_flags  ;get offset to Finder Info flags
get_fi_flags	lda	[a1],y			;get Finder Info flags
		xba				;change byte sex
		tax				;and save in X
		
		lda	access			;get access word
		and	#invisible		;is the 'invisible' bit set?
		beq	visible			;no - so make file/dir visible
		txa				;yes - so make file/dir invisible
		ora	#fi_invis_bit		;set the 'invisible' bit
		bra	store_fi_flags
		
visible		txa
		and	#fi_invis_mask		;clear the 'invisible' bit
store_fi_flags	xba				;change byte sex
		sta	[a1],y			;save new Finder Info flags
*
* Indicate no error and exit
*		
		clc
		rts
		
		ENDP
		
		eject
******************************************************************************
*
*	 Name:	set_file_aux
*
* Description:	Converts the ProDOS filetype and auxtype information from the input
*		parameter storage area into HFS creator and filetype information and 
*		stores it in the Catalog Record for the file/dir.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<a1 - ptr to Catalog Record
*		record_type - Catalog Record type
*		storage_type - storage type 
*		file_type - ProDOS filetype
*		aux_type - ProDOS auxtype
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..0
*		B = K
*
*	 Uses:	all registers
*
*   Called by:	create
*		set_file_info	
*
*	Calls:	nothing
*
* Copyright Apple Computer, Inc. 1989-91  All rights reserved.
******************************************************************************

set_file_aux 	PROC
		with	data
		
*
* First, determine if the Catalog Record we're dealing with is for a file or directory.
* If it's for a directory, then we're done since directory records don't contain 
* creator or filetype information.
*
		lda	record_type		;get Catalog Record type
		cmp	#cat_dir_type		;are we dealing with a directory record?
		bne	not_dir			;no
		brl	done			;yes - so we're done
not_dir
*
* The Catalog Record is for a file so we have to convert the ProDOS 'filetype' and 
* 'auxtype' into an HFS 'creator' and 'filetype'.
*
* First, set the HFS creator to "pdos". 
*
		ldy	#fil_finfo1+fi_file_creator  ;get offset into Catalog Record
		lda	#'dp'
		sta	[a1],y			;store first 2 bytes in Catalog Record
		iny
		iny
		lda	#'so'
		sta	[a1],y			;store next 2 bytes in Catalog Record
*
* If filetype = $B3 and hi byte of auxtype = $DB then use the default conversion.
* Otherwise, zero out the auxtype and use the conversion table.
*
		lda	file_type
		cmp	#$00b3			;is the ProDOS filetype = $B3?
		bne	@not_b3			;no
		lda	aux_type		;put ProDOS auxtype in A
		and	#$ff00			;only want the hi byte
		cmp	#$db00			;is the hi byte of the auxtype = $DB?
		beq	use_default		;yes - so use default conversion
		stz	aux_type		;no - so zero auxtype and use table
		bra	check_table
@not_b3				
*
* If filetype = $FF then zero out the aux_type and use the conversion table.
*
		lda	file_type
		cmp	#$00ff			;is the ProDOS filetype = $FF?
		bne	@not_ff			;no
		stz	aux_type		;yes - so zero auxtype and use table
		bra	check_table
@not_ff
*
* Check the ProDOS filetype and auxtype against the values listed in the conversion 
* table. If a match is found, set the HFS creator and filetype to the strings 
* specified in the table. If there's no match, then use the default conversion. 
*
check_table	ldx	#0			;init table offset

table_loop	lda	conversion_table+8,x	;get byte from table
		and	#$00ff			;only want 1 byte
		cmp	file_type		;compare to ProDOS filetype
		bne	next_entry		;no match so check next table entry
		lda	conversion_table+9,x	;get next byte from table
		and	#$00ff
		cmp	aux_type 		;compare to ProDOS auxtype
		beq	match			;got a match
next_entry	clc				;adjust table offset by the size of 
		txa				;a table entry
		adc	#entry_size
		tax
		cmp	#table_size		;at end of table?
		bcc	table_loop		;no - so loop
		bra	use_default		;yes - so use default conversion
		
*
* We found a match in the conversion table so set the HFS filetype and creator to 
* the strings specified in the table.  If no string is specified for the creator,
* then skip it since we already set the HFS creator to "pdos".
*
match		ldy	#fil_finfo1+fi_file_type  ;get offset into Catalog Record
		lda	conversion_table+4,x	;get first 2 bytes of HFS filetype
		sta	[a1],y			;and store into Catalog Record
		iny
		iny
		lda	conversion_table+6,x	;get next 2 bytes of HFS filetype
		sta	[a1],y			;and store into Catalog Record

 		ldy	#fil_finfo1+fi_file_creator  ;get offset into Catalog Record
		lda	conversion_table,x	;get first 2 bytes of HFS creator
		bmi	skip_creator		;no string specified so skip it
		sta	[a1],y			;and store into Catalog Record
		iny
		iny
		lda	conversion_table+2,x	;get next 2 bytes of HFS creator
		sta	[a1],y			;and store into Catalog Record
skip_creator	bra	done			;we're done

*
* Use the default conversion.
* Set first byte of HFS filetype to "p".  Set second byte of HFS filetype to the
* ProDOS filetype.  Set the third and fourth bytes of HFS filetype to the ProDOS auxtype.
*
use_default	ldy	#fil_finfo1+fi_file_type  ;get offset into Catalog Record
		lda	file_type		;get ProDOS filetype
		xba				;swap filetype into hi byte
		ora	#'p'			;put 'p' in lo byte
		sta	[a1],y			;and store into Catalog Record
		iny
		iny
		lda	aux_type		;get ProDOS auxtype
		xba				;swap bytes
		sta	[a1],y			;and store into Catalog Record
*
* Indicate no error and exit
*		
done		clc
		rts

		ENDP
		
		eject
******************************************************************************
*
*	 Name:	set_create_dt
*
* Description:	Sets the create date/time information for a file/dir.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<a1 - ptr to Catalog Record
*		record_type - Catalog Record type
*		storage_type - storage type 
*		create_date - create date (class 0 call)
*		create_time - create time (class 0 call)
*		create_date_time - create date and time (class 1 call)
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..0
*		B = K
*
*	 Uses:	all registers
*		<temp0
*		d0, d1
*
*   Called by:	create
*		set_file_info	
*
*	Calls:	handle_conv_err
*		ConvSeconds		(Misc. Tools)
*
* Copyright Apple Computer, Inc. 1989-90  All rights reserved.
******************************************************************************

set_create_dt 	PROC
		with	data

offset		equ	temp0			;local equate
		
*
* First, get the correct offset into the Catalog Record and save it for later.
*
		ldy	#fil_create_dt+2	;get offset into File Record
		lda	record_type		;get Catalog Record type
		cmp	#cat_fil_type		;are we dealing with a File Record?
		beq	save_offset		;yes - so continue
 		ldy	#dir_create_dt+2	;no - so get offset into Dir Record
save_offset	sty	<offset			;save the offset
*
* Now, determine if we're doing a class 0 or class 1 call.
*
		lda	class
		beq	class0
*
* We're doing a class 1 call.
* If create_date_time = 0, then we're done.
* Otherwise, convert create_date_time into seconds and store in the Catalog Record.
*
		lda	create_date_time	;is create_date_time = 0?
		ora	create_date_time+2
		ora	create_date_time+4
		ora	create_date_time+6
		bne	do_convert		;no - so do the conversion
		brl	done			;yes - so we're done
		
*
* We're doing a class 0 call.
* If create_date = 0 and create_time = 0, then we're done.
* Otherwise, convert create_date and create_time into seconds and store in the Cat Record. 
* If create_date = 0, then don't change the date.
* If create_time = 0, then don't change the time.
*
class0		lda	create_date		;are both create_date and create_time = 0?
		ora	create_time
		beq	done			;yes - so we're done

		lda	create_date		;is create_date = 0?
		beq	got_a_zero		;yes
		lda	create_time		;no - is create_time = 0?
		bne	do_convert		;no

; Either create_date or create_time is 0.
; Get create date/time from catalog record and convert into class 0 date/time. 
; Store results into create_date or create_time (whichever is 0) so that when we convert
; from class 0 format date/time into seconds we'll get a valid result.
	
got_a_zero	pha	 			;push space for result
 		pha	 			
		pea	4			;convert seconds to class0 format date/time 
		ldy	<offset			;get offset into Catalog Record
		lda	[a1],y			;get lo word of seconds
		xba				;change byte sex
		tax				;and save
		dey
		dey
		lda	[a1],y			;get hi word of seconds
		xba				;change byte sex
		pha				;and push
		phx				;push lo word of seconds
		pea	d0>>16			;push ptr to date/time buffer
		pea	d0			;we can use d0 and d1 as a temp buffer
		ldx	#ConvSeconds 		;call ConvSeconds routine in Misc Tools
		jsl	tool_locator
		bcc	conv_ok1
		jsr	handle_conv_err		
conv_ok1	pla				;pull result off stack (unused)
		pla
		
		lda	create_date		;was create_date = 0?
		bne	set_time		;no 
		lda	d0			;yes - so set it to the current 
		sta	create_date		;create_date in the catalog record
		bra	do_convert
		
set_time	lda	d0+2			;create_time was 0 so set it to the 
		sta	create_time		;current create_time in the catalog record
*
* Convert create date/time information into seconds and store result in the Catalog Record.
*
do_convert	pea	0	 		;push space for result (init to 0)
 		pea	0	 			
		pea	5			;convert class0 format date/time to seconds 
		lda	class			;check call class
		beq	@0			;branch if class 0
		lda	#1			;convert class1 format date/time to seconds
		sta	1,s
@0		pha				;push seconds (unused)
		pha
		pea	create_date_time>>16	;push ptr to date/time buffer
		pea	create_date_time
		ldx	#ConvSeconds 		;call ConvSeconds routine in Misc Tools
		jsl	tool_locator
		bcc	conv_ok2
		jsr	handle_conv_err		
conv_ok2	ldy	<offset			;get offset into Catalog Record
		pla				;pull lo word of result off stack
		xba				;change byte sex
		sta	[a1],y			;and store in Catalog Record
		dey
		dey
		pla				;pull hi word of result off stack
		xba				;change byte sex
		sta	[a1],y			;and store in Catalog Record
*
* Indicate no error and exit
*		
done		clc
		rts
		
		ENDP
		
		eject
******************************************************************************
*
*	 Name:	set_mod_dt
*
* Description:	Sets the mod date/time information for a file/dir.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<a1 - ptr to Catalog Record
*		record_type - Catalog Record type
*		storage_type - storage type 
*		mod_date - modification date (class 0 call)
*		mod_time - modification time (class 0 call)
*		mod_date_time - modification date and time (class 1 call)
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..0
*		B = K
*
*	 Uses:	all registers
*		<temp0
*		d0, d1
*
*   Called by:	set_file_info	
*
*	Calls:	handle_conv_err
*		ConvSeconds		(Misc. Tools)
*
* Copyright Apple Computer, Inc. 1989-90  All rights reserved.
******************************************************************************

set_mod_dt 	PROC
		with	data
		
offset		equ	temp0			;local equate
		
*
* First, get the correct offset into the Catalog Record and save it for later.
*
		ldy	#fil_mod_dt+2		;get offset into File Record
		lda	record_type		;get Catalog Record type
		cmp	#cat_fil_type		;are we dealing with a File Record?
		beq	save_offset		;yes - so continue
 		ldy	#dir_mod_dt+2		;no - so get offset into Dir Record
save_offset	sty	<offset			;save the offset
*
* Now, determine if we're doing a class 0 or class 1 call.
*
		lda	class
		beq	class0
*
* We're doing a class 1 call.
* If mod_date_time = 0, then store the current date/time in the Catalog Record.
* Otherwise, convert mod_date_time into seconds and store in the Catalog Record.
*
		lda	mod_date_time		;is mod_date_time = 0?
		ora	mod_date_time+2
		ora	mod_date_time+4
		ora	mod_date_time+6
		beq	store_current		;yes
		bra	do_convert		;no - so do the conversion
		
*
* We're doing a class 0 call.
* If mod_date = 0 and mod_time = 0, then store the current date/time in the Catalog Record. 
* Otherwise, convert mod_date and mod_time into seconds and store in the Catalog Record.
* If mod_date = 0, then get the current date.
* If mod_time = 0, then get the current time.
*
class0		lda	mod_date		;are both mod_date and mod_time = 0?
		ora	mod_time
		beq	store_current		;yes
		
		lda	mod_date		;is mod_date = 0?
		beq	got_a_zero		;yes
		lda	mod_time		;no - is mod_time = 0?
		bne	do_convert		;no

; Either mod_date or mod_time is 0.
; Get current date/time and convert into class 0 date/time. 
; Store results into mod_date or mod_time (whichever is 0) so that when we convert
; from class 0 format date/time into seconds we'll get a valid result.
	
got_a_zero	pha				;push space for result
		pha
		pea	4			;convert seconds to class0 format date/time 
		lda	time+2			;get hi word of current date/time
		pha				;and push
		lda	time			;get lo word of current date/time
		pha				;and push
		pea	d0>>16			;push ptr to date/time buffer
		pea	d0			;we can use d0 and d1 as a temp buffer
		ldx	#ConvSeconds 		;call ConvSeconds routine in Misc Tools
		jsl	tool_locator
		bcc	conv_ok1
		jsr	handle_conv_err		
conv_ok1	pla				;pull result off stack (unused)
		pla
		
		lda	mod_date		;was mod_date 0?
		bne	set_time		;no 
		lda	d0			;yes - so set it to the current date
		sta	mod_date		
		bra	do_convert
		
set_time	lda	d0+2			;mod_time was 0 so set it to the 
		sta	mod_time		;current time 
*
* Convert mod date/time information into seconds and store result in the Catalog Record.
*
do_convert	pea	0	 		;push space for result (init to 0)
 		pea	0	 			
		pea	5			;convert class0 format date/time to seconds 
		lda	class			;check call class
		beq	@0			;branch if class 0
		lda	#1			;convert class1 format date/time to seconds
		sta	1,s
@0		pha				;push seconds (unused)
		pha
		pea	mod_date_time>>16	;push ptr to date/time buffer
		pea	mod_date_time
		ldx	#ConvSeconds 		;call ConvSeconds routine in Misc Tools
		jsl	tool_locator
		bcc	conv_ok2
		jsr	handle_conv_err		
conv_ok2	ldy	<offset			;get offset into Catalog Record
		pla				;pull lo word of result off stack
		xba				;change byte sex
		sta	[a1],y			;and store in Catalog Record
		dey
		dey
		pla				;pull hi word of result off stack
		xba				;change byte sex
		sta	[a1],y			;and store in Catalog Record
				
		bra	done
		
*
* Store the current date/time in the Catalog Record.
*
store_current	ldy	<offset			;get offset into Catalog Record
		lda	time			;get lo word of current date/time
		xba				;change byte sex
		sta	[a1],y			;and store in Catalog Record
		dey
		dey
		lda	time+2			;get hi word of current date/time
		xba				;change byte sex
		sta	[a1],y
*
* Indicate no error and exit
*		
done		clc
		rts
		
		ENDP
		
		eject
******************************************************************************
*
*	 Name:	set_finder_info
*
* Description:	Sets the Finder Info for a file/dir.
*
*	 Note:	The Finder Info is always in 68000 format so the byte sex
*		doesn't need to be reversed.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<a1 - ptr to Catalog Record
*		record_type - Catalog Record type
*		finder_info - Finder Info 
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..0
*		B = K
*
*	 Uses:	all registers
*
*   Called by:	set_file_info	
*
*	Calls:	nothing
*
* Copyright Apple Computer, Inc. 1989-90  All rights reserved.
******************************************************************************

set_finder_info PROC
		with	data

*
* Determine if the Catalog Record we're dealing with is for a file or directory.
*
		lda	record_type		;get Catalog Record type
		cmp	#cat_dir_type		;are we dealing with a directory record?
		beq	its_dir			;yes - so branch
*
* We're dealing with a File Record.
*
		ldy	#fil_finfo1		;get offset to 1st 16 bytes of finder info
		ldx	#0			;init offset into input param storage
fil_loop	lda	finder_info,x		;copy the bytes
		sta	[a1],y		
		iny
		iny
		inx				
		inx
		cpx	#32			;done with second half?
		beq	done			;yes
		cpx	#16			;done with first half?
		bne	fil_loop		;no - so loop
		ldy	#fil_finfo2		;yes - so get offset to 2nd 16 bytes
		bra	fil_loop		;and loop
		
*
* We're dealing with a Directory Record.
*
its_dir		ldy	#dir_finder_info	;get offset to 32 bytes of finder info
		ldx	#0			;init offset into input param storage
dir_loop	lda	finder_info,x		;copy the bytes
		sta	[a1],y		
		iny
		iny
		inx				
		inx
		cpx	#32			;done?
		bne	dir_loop		;no - so loop
*
* Indicate no error and exit
*		
done 		clc
		rts

		ENDP
		
		eject
******************************************************************************
*
*	 Name:	word_multiply
*
* Description:	Does 16-bit multiplication. 
*		multiplicand * multiplier = product
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<multiplier - 16 bit multiplier
*		<multiplicand - 16 bit multiplicand
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..0 
*		B = K
*
*		<product - 32 bit product
*
*	 Uses:	all registers
*		<multiplier		
*		<multiplicand		
*		<product		
*
*   Called by:	get_vol_info
*		ablk2pblk
*		hfs_init
*		bt_loc_tpr
*		long_multiply
*
*	Calls:	nothing
*
* Copyright Apple Computer, Inc. 1991  All rights reserved.
******************************************************************************

word_multiply	PROC
		with	data

*** added special cases to optimize for the most common multipliers
*** 4/2/92 Monte Benaresh

		lda <multiplier
		cmp #6+1			;in range 0-6?
		bcs regular			;no, do it the regular way
case
		asl a				;make index
		tax
		lda <multiplicand		;init low word of product
		stz <product+2			;init high word of product
		jmp (val_tbl,x)

val_tbl
		dc.w @0
		dc.w case_done			;for times 1
		dc.w @2
		dc.w @3
		dc.w @4
		dc.w @5
		dc.w @6

@0
		lda #$0000			;set product to $0000
		bra case_done
@2
		asl a
		rol <product+2
		bra case_done
@3
		asl a
		rol <product+2
		adc <multiplicand		;c = 0
		bcc case_done
		inc <product+2
		bra case_done
@4
		asl a
		rol <product+2
		asl a
		rol <product+2
		bra case_done
@5
		asl a
		rol <product+2
		asl a
		rol <product+2
		adc <multiplicand		;c = 0
		bcc case_done
		inc <product+2
		bra case_done
@6
		asl a
		rol <product+2
		adc <multiplicand		;c = 0
		bcc @6_no_carry
		inc <product+2
@6_no_carry
		asl a
		rol <product+2
		; fall through to case_done
case_done
		sta <product
		rts
regular
*** end Monte 4/2/92

*
* Initialize.
*
		ldx	#16			;init bit count
		lda	#0			;init hi word of product to 0
		stz	<product 		;init lo word of product to 0
*
* Do the multiplication.
*
next_bit	lsr	<multiplier		;Shift multiplier right. Bit set?
		bcc	align			;no
		clc				;yes - so add multiplicand
		adc	<multiplicand		;to hi word of product
		bcc	align			;branch if no overflow
		inc	a			;add in carry bit
align		ror	a			;rotate	hi word of product right
		ror	<product		;rotate lo word of product right
		dex				;done all bits?
		bne	next_bit		;no - so loop

		sta	<product+2		;save hi word of product
		rts				;and exit


		ENDP
		
		eject
******************************************************************************
*
*	 Name:	long_multiply
*
* Description:	Does 32-bit multiplication. 
*		multiplicand * multiplier = product
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<multiplier - 32 bit multiplier
*		<multiplicand - 32 bit multiplicand
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..0 
*		B = K
*
*		<product - 32 bit product
*
*	 Uses:	all registers
*		<multiplier		
*		<multiplicand		
*		<product		
*
*   Called by:	build_fcr
*		hfs_init
*		et_extend_file
*		et_trunc_file
*		alloc_blocks
*
*	Calls:	word_multiply
*
* Copyright Apple Computer, Inc. 1987-91  All rights reserved.
******************************************************************************

long_multiply	PROC
		with	data

*
* If the hi words of both the multiplier and multiplicand are 0, then jump
* into the word_multiply routine since it's much faster.
*
		lda	<multiplier+2
		ora	<multiplicand+2
		bne	@do_long
		jmp	word_multiply
@do_long
*
* Initialize.
*
		ldx	#32			;init bit count
		lda	#0			;init lo word of product to 0
		stz	<product+2		;init hi word of product to 0
*
* Do multiplication and	exit.
*
next_bit	asl	a			;shift product left
		rol	<product+2
		asl	<multiplier		;shift multiplier left
		rol	<multiplier+2
		bcc	align			;branch if bit clear
		clc
		adc	<multiplicand		;add multiplicand to product
		tay
		lda	<product+2
		adc	<multiplicand+2
		sta	<product+2
		tya
align		dex				;done all bits?
		bne	next_bit		;no - so loop
		sta	<product		;store lo word of product
		rts				;and exit
		
		ENDP
		
		eject
******************************************************************************
*
*	 Name:	word_divide
*
* Description:	Does 16-bit division. 
*		dividend/divisor = quotient w/remainder
*
*	 Note:	We must zero out the hi word of the quotient and remainder
*		before returning since the actual call may have been to
*		long_divide or long_divide_up and the caller may expect
*		valid information in the hi bytes.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<dividend - 16 bit dividend
*		<divisor - 16 bit divisor
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..0 
*		B = K
*
*		<dividend - 32 bit quotient	(hi word is 0)
*		<remainder - 32 bit remainder	(hi word is 0)
*
*	 Uses:	all registers
*		<dividend
*		<divisor
*		<remainder
*
*   Called by:	hfs_init
*		et_log_2_phys
*		bt_chk_node
*		long_divide
*
*	Calls:	nothing	
*
* Copyright Apple Computer, Inc. 1991  All rights reserved.
******************************************************************************

word_divide	PROC
		with	data

*** special case for divisor > $01FF, added 4/1/92 by Monte Benaresh

		lda <divisor
		cmp #$0200
		bcc @regular			;divisor smaller, do normal case

	; since the divisor is > $01FF, we can safely do 10 shifts of the
	; dividend into the remainder before the remainder could possibly
	; exceed the divisor
@div_special
		lda <dividend
		xba				;do this instead of 8 shifts
		tax				;save untouched
		and #$FF00
		sta <dividend

		txa				;restore reversed bytes
		and #$00FF			;this is remainder value

		asl <dividend			;we can do one more shift
		rol a

		ldx #7				;this many more to go
		bra div_loop			;enter standard loop
@regular
*** end Monte 4/1/92

*
* Initialize.
*
		ldx	#16			;init bit count
		lda	#0			;init remainder
*
* Do division and exit.
*
div_loop
		asl	<dividend		;shift dividend	& quotient left
		rol	a			;shift partial dividend	left
		cmp	<divisor		;is partial dividend > divisor?
		bcc	next_bit		;no
		sbc	<divisor		;yes - so subtract divisor
		inc	<dividend		;set bit in quotient
next_bit
		dex				;done all bits?
		bne	div_loop		;no - so loop
		
		sta	<remainder		;store remainder
		stz	<remainder+2		;clear out hi word of remainder!
		stz	<dividend+2		;clear out hi word of quotient!
		rts				;and exit

		ENDP
		
		eject
******************************************************************************
*
*	 Name:	long_divide
*
* Description:	Does 32-bit division. 
*		dividend/divisor = quotient w/remainder
*
*      Author:	Bryan Atsatt  (adapted from '6502 Software Design')
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<dividend - 32 bit dividend
*		<divisor - 32 bit divisor
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..0 
*		B = K
*
*		<dividend - 32 bit quotient
*		<remainder - 32 bit remainder
*
*	 Uses:	all registers
*		<dividend
*		<divisor
*		<remainder
*
*   Called by:	long_divide_up
*		hfs_init
*		et_extend_file
*		et_log_2_phys
*		et_trunc_file
*		et_get_rec
*		bt_ext_bt_file
*		bt_chk_node
*
*	Calls:	word_divide	
*
* Copyright Apple Computer, Inc. 1987-91  All rights reserved.
******************************************************************************

long_divide	PROC
		with	data

*** next code added to special-case a divisor of $00000200 since it seems
*** to be extremely common regardless of volume size
*** -- added 3/30/92 by Monte Benaresh

		lda <divisor+2			;any chance of $00000200?
		bne @do_long			;no, do the hard way
@maybe_200
		ldx <divisor
		cpx #$0200
		bne @check_word			;not $200, but may be able to use
						;word divide
@divide_200
		lda <dividend
		and #$01FF
		sta <remainder			;this is the remainder
		stz <remainder+2

		lda <dividend+3
		and #$00FF			;this is /$100
		lsr a				;this is /$200
		tax				;high word in X

		lda <dividend+1			;this is /$100
		ror a				;this is /$200, with bit shifted
						;in from high word
		sta <dividend
		stx <dividend+2
		rts				;division by $200 complete

*** end Monte 3/30/92

*
* If the hi words of both the dividend and divisor are 0, then jump
* into the word_divide routine since it's much faster.
*

@check_word					;added 3/30/92 by Monte
		;lda	<divisor+2	-- not needed, 3/30/92 Monte
		ora	<dividend+2
		;bne	@do_long
		;jmp	word_divide
		beq word_divide			;changed 3/30/92 by Monte
@do_long
*
* Initialize.
*
		ldx	#32			;Get bit count.
		stz	<remainder		;Clear remainder.
		stz	<remainder+2
*
* Do division and exit.
*
div_loop	asl	<dividend		;Shift dividend	& quotient left.
		rol	<dividend+2
		rol	<remainder		;Shift partial dividend	left.
		rol	<remainder+2
		sec				;Subtract low bytes.
		lda	<remainder
		sbc	<divisor
		tay				;Save low result.
		lda	<remainder+2		;Subtract high bytes.
		sbc	<divisor+2		;Divisor > dividend?
		bcc	next_bit		;Yes.
		inc	<dividend		;No, set bit in	quotient.
		sty	<remainder		;Enter result in partial dividend.
		sta	<remainder+2
next_bit	dex				;Done all bits?
		bne	div_loop		;No, so	loop.
		rts				;Yes, so exit.

		ENDP
		
		eject
******************************************************************************
*
*	 Name:	long_divide_up
*
* Description:	Does 32-bit division then rounds-up the quotient. 
*		dividend/divisor = quotient (rounded up)
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<dividend - 32 bit dividend
*		<divisor - 32 bit divisor
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..0 
*		B = K
*
*		<dividend - 32 bit quotient (rounded up)
*		<remainder - 0
*
*	 Uses:	all registers
*		<dividend
*		<divisor
*		<remainder
*
*   Called by:	calc_blocks_used
*		alloc_blocks
*
*	Calls:	long_divide	
*
* Copyright Apple Computer, Inc. 1990  All rights reserved.
******************************************************************************

long_divide_up	PROC
		with	data

*
* First, do a 32-bit division.
*
		jsr	long_divide
*
* If the remainder is non-zero then clear it and round-up the quotient by 1.
*
		lda	<remainder		;is the remainder zero?
		ora	<remainder+2
		beq	exit			;yes - so we're done
		stz	<remainder		;no - so clear it
		stz	<remainder+2
		inc	<dividend		;and bump quotient by 1
		bne	exit
		inc	<dividend+2
exit		rts				

		ENDP
		
		eject
******************************************************************************
*
*	 Name:	calc_blocks_used
*
* Description:	Calculates the # of physical blocks used given an eof.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = offset to eof field in Catalog File Record
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<a1 - ptr to Catalog File Record
*
*      Output:	A = undefined
*		X = low	word of	physical blocks used
*		Y = high word of physical blocks used
*		P = nvmxdizc
*		    ..000..0
*		B = K
*
*	 Uses:	all registers
*		<dividend
*		<divisor
*		<remainder
*
*   Called by:	get_cat_info	
*
*	Calls:	long_divide_up	
*
* Copyright Apple Computer, Inc. 1987-90  All rights reserved.
******************************************************************************

calc_blocks_used PROC
		with	data
		
*
* Set dividend = eof.  If eof = 0 we're done.
*
		lda	[a1],y			;get hi word of eof
		xba				;change byte sex
		sta	<dividend+2		;and store
		iny
		iny
		lda	[a1],y			;get lo word of eof
		xba				;change byte sex
		sta	<dividend		;and store
		ora	<dividend+2		;is the eof 0?
		beq	get_it			;yes, so no need to divide
*
* Set divisor =	phys_blk_size and do the division.
*
		lda	#phys_blk_size		;get physical block size
		sta	<divisor		;and store
		stz	<divisor+2
		jsr	long_divide_up		;convert eof to # of physical blocks used
*
* Get # of physical blocks used and exit.
*
get_it 		ldx	<dividend		;get low word
		ldy	<dividend+2		;get high word
		clc				;indicate no error
		rts				;and exit

		ENDP
		
		eject
******************************************************************************
*
*	 Name:	calc_next_block
*
* Description:	Calculates the block information for the next physical block
*		in the file.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<my_fcr_ptr - ptr to fcr
*		file_mark - current file mark
*		block_mark - block buffer mark
*		block_num - # of physical block in block buffer
*		block_count - # physical blocks until end of extent
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..0
*		B = K
*
*		block_mark - block buffer mark
*		block_num - # of next physical block in file
*		block_count - # physical blocks until end of extent
*
*	 Uses:	all registers
*
*   Called by:	read
*		write
*
*	Calls:	log2phys	
*
* Copyright Apple Computer, Inc. 1989-90  All rights reserved.
******************************************************************************

calc_next_block PROC
		with	data

*
* Increment block_num.
*
 		inc	block_num		;block_num = block_num + 1
		bne	cont
		inc	block_num+2
cont
*
* Decrement block_count.  
* If the new block_count = 0 then we have reached the end of the extent.
*
		sec				;block_count = block_count - 1
		lda	block_count
		sbc	#1
		sta	block_count
		lda	block_count+2
		sbc	#0
		sta	block_count+2
		ora	block_count		;is block_count = 0?
		bne	got_block		;no
*
* We have reached the end of the extent so there are no more contiguous blocks.
* Use the file_mark to find the next physical block #.
*
		jsr	log2phys
*
* Block_num is now set to the next physical block # in the file.
* Block_count is now set to the # of physical blocks until the end of the extent.
* Set block_mark to 0.
*
got_block 	stz	block_mark
*
* Indicate no error and exit.
*
		clc
		rts
		
		ENDP
		
		eject
******************************************************************************
*
*	 Name:	log2phys
*
* Description:	Converts a file mark to physical block information.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<my_fcr_ptr - ptr to fcr
*		file_mark - current file mark
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..0
*		B = K
*
*		block_mark - block buffer mark
*		block_num - physical block #
*		block_count - # physical blocks until end of extent
*
*	 Uses:	all registers
*
*   Called by:	calc_next_block
*		update_block_buf
*
*	Calls:	et_log_2_phys	
*
* Copyright Apple Computer, Inc. 1989-90  All rights reserved.
******************************************************************************

log2phys 	PROC
		with	data

		lda	<my_fcr_ptr		;A3.L <- ptr to fcr
		sta	<a3
		lda	<my_fcr_ptr+2
		sta	<a3+2
		
		lda	file_mark		;D5.L <- file mark
		sta	d5
		lda	file_mark+2
		sta	d5+2
		
		jsr	et_log_2_phys		;convert file mark to physical block info

		lda	d3			;D3.L = physical block #
		sta	block_num
		lda	d3+2
		sta	block_num+2
		
		lda	d6			;D6.L = # phys blocks until end of extent
		sta	block_count
		lda	d6+2
		sta	block_count+2

		lda	d7			;D7.W = block mark
		sta	block_mark
*
* Indicate no error and exit.
*
		clc
		rts
		
		ENDP
		
		eject
******************************************************************************
*
*	 Name:	ablk2pblk
*
* Description:	Converts an allocation block # into a physical block #.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = alloc block #
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		ablk_start - loc of first alloc block (P blk #)
*		pblks_per_ablk - # of physical blocks per alloc block
*
*      Output:	A = undefined
*		X = lo word of physical block #
*		Y = hi word of physical block #
*		P = nvmxdizc
*		    ..000..0
*		B = K
*
*	 Uses:	all registers
*		<multiplicand
*		<multiplier
*		<product	(aka <source_ptr)
*
*   Called by:	build_vcr
*		update_bth
*		et_log_2_phys
*
*	Calls:	word_multiply	
*
* Copyright Apple Computer, Inc. 1989-91  All rights reserved.
******************************************************************************

ablk2pblk	PROC
		with	data
		
*
* physical block num = (alloc block num * pblks_per_ablk) + ablk_start
*
		sta	<multiplicand		;multiplicand = alloc block #
		
		lda	pblks_per_ablk		;multiplier = # of phys blks per alloc blk
		sta	<multiplier
		
		jsr	word_multiply		;product = multiplier * multiplicand
		
		clc				;now add ablk_start to get the
		lda	<product		;physical block number
		adc	ablk_start
		tax				;store lo word of result in X
		lda	<product+2
		adc	#0
		tay				;store hi word of result in Y
		
		clc				;indicate no error
		rts

		ENDP

		eject
******************************************************************************
*
*	 Name:	do_displacement
*
* Description:	Uses the current file mark and current eof to calculate a new 
*		value according to the 'base' and 'displacement' inputs.  
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		file_mark - current file mark
*		eof - current eof
*		base - 	0: new value = displacement
*			1: new value = eof - displacement
*			2: new value = mark + displacement
*			3: new value = mark - displacement
*		displacement - offset or absolute value
*
*      Output:	A = error code if carry set
*		X = lo word of new value
*		Y = hi word of new value
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*	 Uses:	all registers
*
*   Called by:	set_mark
*		set_eof
*
*	Calls:	nothing
*
* Copyright Apple Computer, Inc. 1989-90  All rights reserved.
******************************************************************************

do_displacement	PROC
		with	data

*
* Branch to the correct handler.
*
		ldx	base			;get base.  Zero?
		beq	base_0			;yes
		dex				;no, 1?
		beq	base_1			;yes
		dex				;no, 2?
		beq	base_2			;yes
*
* Base = 3.  New value = mark - displacement.
*
		sec				
		lda	file_mark		;get current file mark
		sbc	displacement		;subtract the displacement
		tax
		lda	file_mark+2
		sbc	displacement+2
		tay
		bcc	bad_range		;error if new value < 0
		bra	exit			;exit
		
*
* Base = 2.  New value = mark + displacement.
*
base_2		clc				
		lda	file_mark		;get current file mark
		adc	displacement		;add the displacement
		tax
		lda	file_mark+2
		adc	displacement+2
		tay
		bra	exit			;exit
		
*
* Base = 1.  New value = eof - displacement.
*
base_1		sec				
		lda	eof			;get current eof
		sbc	displacement		;subtract the displacement
		tax
		lda	eof+2
		sbc	displacement+2
		tay
		bcc	bad_range		;error if new value < 0
		bra	exit			;exit
		
*
* Base = 0.  New value = displacement.  
*
base_0		ldx	displacement		;get new absolute value
		ldy	displacement+2
*
* Indicate no error and exit.
*
exit		clc
 		rts

*
* Report an out of range error.
*
bad_range	lda	#out_of_range		
		sec
		rts
		
		ENDP
				
		eject
******************************************************************************
*
*	 Name:	get_disk_name
*
* Description:	Copies name from the VIB to disk_name.  
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<gbuf_ptr - ptr to 512 byte general purpose buffer (contains the VIB)
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*		disk_name - disk name (in gstring format)
*
*	 Uses:	all registers
*
*   Called by:	id_disk	
*
*	Calls:	nothing
*
* Copyright Apple Computer, Inc. 1989-90  All rights reserved.
******************************************************************************

get_disk_name	PROC
		with	data

*
* Get name length from the VIB and store in disk_name.
*
		ldy	#vib_volname		;get offset to name in vib
		lda	[gbuf_ptr],y		;get name length
		and	#$00ff			;only want 1 byte
		sta	disk_name		;and save in disk_name
		beq	error			;exit if name length = 0
*
* Now, copy the name from the VIB into disk_name.
*
 		longa	off			;set 8 bit A
		sep	#$20

		iny	 			;adjust offset to name in vib
		ldx	#0			;init offset into disk_name
		
name_loop	lda	[gbuf_ptr],y		;get byte from vib
		sta	disk_name+2,x		;store in disk_name
		iny				;adjust offsets
		inx
		cpx	disk_name		
		bne	name_loop		;loop until done

		lda	#0			;add null to end of string 
		sta	disk_name+2,x
		
		longa	on			;restore 16-bit A
		rep	#$20
*
* Indicate no error and exit.
*
		clc				
		rts
		
*
* Return an error.
*
error		sec
		rts

		ENDP
		
		
		eject
******************************************************************************
*
*	 Name:	get_record_name
*
* Description:	Copies name from the Catalog Key Record	to record_name.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<a0 - pointer to Catalog Key Record
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..0
*		B = K
*
*		record_name - name with length byte at start
*
*	 Uses:	all registers
*
*   Called by:	get_dir_entry
*		walk_path
*
*	Calls:	nothing
*
* Copyright Apple Computer, Inc. 1989-90  All rights reserved.
******************************************************************************

get_record_name	PROC
		with	data

*
* Copy name from Catalog Key Record to record_name.
*
 		sep	#$30			;set 8-bit mode
		longa	off
		longi	off

		ldy	#cky_name		;get offset to name in Catalog Key Record
		lda	[a0],y			;get name length
		tax				;and store
		clc
		adc	#cky_name		;add to name offset
		tay				;to create offset to end of name 

name_loop	lda	[a0],y			;get byte from Catalog Key Record
		sta	record_name,x		;store in record_name
		dey
		dex
		bpl	name_loop
		
		rep	#$30			;restore 16-bit mode
		longa	on
		longi	on
*
* Indicate no error and exit.
*
		clc
		rts
		
		ENDP

		eject
******************************************************************************
*
*	 Name:	get_next_name
*
* Description:	Copies the next name from the pathname to record_name.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<my_path_ptr - pointer to pathname
*		current_offset - offset to name (no validity checking is done!)
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..0
*		B = K
*
*		record_name - name with length byte at start
*		current_offset - offset to next name in path
*
*	 Uses:	all registers
*
*   Called by:	walk_path
*		get_fcr_name
*
*	Calls:	nothing
*
* Copyright Apple Computer, Inc. 1987-90  All rights reserved.
******************************************************************************

get_next_name	PROC
		with	data

*
* Copy next name from pathname to record_name.
*
		longa	off			;set 8 bit A
		sep	#$20

		ldx	#0			;init offset into record_name
		ldy	current_offset		;get offset to start of	name in path

move_loop	lda	[my_path_ptr],y		;Get byte. End of string?
		beq	hit_end			;yes
		cmp	#separator1		;no, is	it a separator?
		beq	hit_end			;yes
		sta	record_name+1,x		;no - so add to buffer
		iny				;bump offsets
		inx
		bra	move_loop		;loop

hit_end		txa				;put length in A (so it's 8 bit)
		sta	record_name		;save length

		iny				;skip over separator
		sty	current_offset		;update current_offset
		
		longa	on			;set 16	bit A
		rep	#$20
*
* Indicate no error and exit.
*
		clc				
		rts				

		ENDP

		eject
******************************************************************************
*
*	 Name:	get_fcr_name
*
* Description:	Extracts the filename from the fcr pathname and copies it to record_name.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<my_fcr_ptr - pointer to fcr
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..0
*		B = K
*
*		record_name - name with length byte at start
*
*	 Uses:	all registers
*		<my_path_ptr
*		current_offset
*
*   Called by:	flush
*		get_dir_entry
*
*	Calls:	get_next_name
*		deref		(system service)
*
* Copyright Apple Computer, Inc. 1990  All rights reserved.
******************************************************************************

get_fcr_name	PROC
		with	data

*
* Get the pathname vp out of the fcr, dereference it and store the ptr on direct page.
* The pathname is in gstring format.
*
		ldy	#fcr_path_name
		lda	[my_fcr_ptr],y
		tax				;put lo word of vp in X
		iny
		iny
		lda	[my_fcr_ptr],y
		tay				;put hi word of vp in Y
		jsl	deref			;dereference the vp
		stx	<my_path_ptr		;save the pointer on direct page
		sty	<my_path_ptr+2
*
* Determine the offset of the start of the filename and store it in current_offset.
* Work backwards from the end of the pathname to find the start of the filename.
*
		lda	[my_path_ptr]		;get length of pathname
		inc	a			;adjust for extra length byte
		tay
		
		longa	off			;set 8 bit A
		sep	#$20

loop		lda	[my_path_ptr],y		;get byte
		cmp	#separator1		;is it a separator?
		beq	hit_sep			;yes
		dey				;no - so decrement offset
		bra	loop			;and loop

hit_sep		iny				;don't count separator
		sty	current_offset		;store offset in current_offset

		longa	on			;set 16	bit A
		rep	#$20
*
* Copy the filename from the pathname into record_name.
*
		jsr	get_next_name
*
* Indicate no error and exit.
*
		clc				
		rts				

		ENDP

		eject
******************************************************************************
*
*	 Name:	id_disk
*
* Description:	Determines whether or not the media chosen is in HFS format.
*		If so and there	is no VCR for it, one is created and marked active.
*		If there is an existing VCR then it is marked active.
*
*	Entry:	jsr
*
*	 Exit:	rts 
*
*	Input:	A = device number
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		cp_device_flag - 1 if doing a ChangePath call and source is device #
*
*      Output:	A = error code if carry	set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*		<gbuf_ptr - ptr to 512 byte general purpose buffer (contains the VIB)
*		<drvr_dev_num - device number
*		<my_vcr_ptr - ptr to vcr
*		ablk_size - allocation block size in bytes
*		ablk_start - location of first alloc block (P blk #)
*		pblks_per_ablk - # of physical blocks per alloc block
*		ctree_fcr_ptr - ptr to fcr for CTree
*		etree_fcr_ptr - ptr to fcr for ETree
*
*	 Uses:	all registers
*		<temp0
*		<source_ptr	(aka <product)
*		<dest_ptr	
*		id_disk_flag
*
*   Called by:	process_path
*		scan_devices
*		volume
*
*	Calls:	gbuf_read
*		get_disk_name
*		build_vcr
*		setup_vcr_info
*		copy_long
*		find_vcr		(system service)
*		deref			(system service)
*		release_vcr		(system service)
*		swap_out		(system service)
*
* Copyright Apple Computer, Inc. 1987-90  All rights reserved.
******************************************************************************

id_disk		PROC
		with	data

*
* Set device number and make sure id_disk_flag is set.
*
		sta	<drvr_dev_num		;set device number
		inc	id_disk_flag		;set id_disk_flag
*
* Read the VIB into the general purpose buffer.
*
		ldx	#vib_block		;lo word of physical block to read
		ldy	#0			;hi word of physical block to read
		jsr	gbuf_read		;read in the block.
		bcc	got_vib			
		cmp	#drvr_bad_block		;did we get a volume too small error?
		beq	brl_not_hfs		;yes - so make into a bouncer
		brl	error			;no -  some other error
got_vib
*
* Ok, now look at the signature word.
*
 		ldy	#vib_signature		;get offset to signature word
		lda	[gbuf_ptr],y		;get word
		xba				;change byte sex
		cmp	#hfs_signature		;match?
		beq	sig_ok			;yes
brl_not_hfs	brl	not_hfs			;no - so not HFS
sig_ok
*
* The signature word is OK so now verify that the allocation block size is OK.
*
		ldy	#vib_ablk_size+2	;get offset to allocation block size
		lda	[gbuf_ptr],y		;get lo word
		tax				;save
		dey				
		dey
		ora	[gbuf_ptr],y		;OR lo word with the hi word 	
		beq	brl_bad_vib		;error if ablk_size is 0
		txa				;retrieve lo word
		xba				;change byte sex
		and	#$01ff			;make sure it's a multiple of 512
		bne	brl_bad_vib		;error if not
*
* We have an HFS disk.  Copy name from VIB into disk_name.
*
		jsr	get_disk_name
		bcc	got_name
brl_bad_vib	brl	bad_vib
got_name
*
* If change_path's duplicate volume bit is set in cp_flags, then force a fake VCR
* to be built (as if we'd found a duplicate volume).  5-Dec-91 MSD
*
		bit	cp_flags		;renaming a duplicate volume?
		bpl	@no_dup			;no, so do the usual
		brl	is_open			;pretend duplicate volume with files open
		
@no_dup
*
* Check to see if we already have a VCR with this name.  If not, build a new vcr.
*
		lda	#0000			;select	search by name
		ldx	#disk_name		;get pointer to	disk name
		ldy	#^disk_name
		jsl	find_vcr		;is there already a vcr with this name?
		bcc	found_vcr		;yes
		brl	new_vcr			;no - so make a new one
found_vcr
*
* We already have a VCR with this name.  Check to see if it's an HFS vcr.
* If is isn't then we have a duplicate volume.
*
		jsl	deref			;dereference VP
		stx	<my_vcr_ptr		;save pointer
		sty	<my_vcr_ptr+2

		ldy	#vcr_fst_id		;get offset to fst id
		lda	[my_vcr_ptr],y		;get the id
		cmp	#hfs_id			;is it an HFS vcr?
		bne	check_open		;no - so check if we can toss it
*
* It's an HFS vcr.
* Check some of the fields of the VIB and VCR to see if they match.
* If they don't match then we have a duplicate volume.
*
		ldy	#vib_create_dt+2	;first check the create date/time
		ldx	#vcr_create_dt		
		jsr	compare_long		;match?
		bne	check_open		;no
		
		ldy	#vib_free_ablks		;check # of unused alloc blocks
		ldx	#vcr_free_ablks
		jsr	compare_word		;match?
		bne	check_open		;no
		
		ldy	#vib_next_id+2		;check next file/dir id
		ldx	#vcr_next_id
		jsr	compare_long		;match?
		bne	check_open		;no

		ldy	#vib_num_files+2	;check # of files
		ldx	#vcr_num_files
		jsr	compare_long		;match?
		bne	check_open		;no
		
		ldy	#vib_num_dirs+2		;check # of dirs
		ldx	#vcr_num_dirs
		jsr	compare_long		;match?
		bne	check_open		;no

		ldy	#vib_num_r_files	;check # of files in root dir
		ldx	#vcr_num_r_files
		jsr	compare_word		;match?
		bne	check_open		;no

		ldy	#vib_num_r_dirs		;check # of dirs in root dir
		ldx	#vcr_num_r_dirs
		jsr	compare_word		;match?
		bne	check_open		;no
*
* The VCR appears to be for this volume.  
* Copy the mod_dt and write_cnt fields from the VIB to the VCR in case they've changed.
* (If we looked at the disk on a Mac, the mod_dt and write_cnt fields we're updated.)
* Update the last known device and activate the VCR.
*
		lda	<gbuf_ptr		;setup source ptr
		sta	<source_ptr
		lda	<gbuf_ptr+2
		sta	<source_ptr+2
		
		lda	<my_vcr_ptr		;setup destination ptr
		sta	<dest_ptr
		lda	<my_vcr_ptr+2
		sta	<dest_ptr+2
		
		ldy	#vib_mod_dt		;get starting source offset
		ldx	#vcr_mod_dt		;get starting dest offset
		jsr	copy_long		;copy mod_dt

		ldy	#vib_write_cnt		;adjust source offset
		ldx	#vcr_write_cnt		;adjust dest offset
		jsr	copy_long		;copy write_cnt

		ldy	#vcr_dev		
		lda	<drvr_dev_num		;get current device #
		sta	[my_vcr_ptr],y		;and update vcr

		brl	do_activate		;continue
		
*
* We have a duplicate volume.  
* If there are no open files then release the VCR and build a new one, 
* otherwise exit with a duplicate volume error.
* Note - If we get a duplicate volume error and cp_device_flag = 1 then ignore
* 	 the error since we are doing a ChangePath call with a device # as the source.
*
check_open	ldy	#vcr_open_cnt		;get offset to open count
		lda	[my_vcr_ptr],y		;any open files?
		beq	not_open		;no
is_open						;(added label 5-Dec-91 MSD)
		lda	cp_device_flag		;are we doing a special ChangePath call?
		beq	dup_vol			;no - so report a duplicate volume error
		ora	#$8000			;yes - so indicate we got a dup vol error
		sta	cp_device_flag
		lda	<drvr_dev_num		; 5-Feb-92 MSD: force other VCR's for this device
		jsl	swap_out		; 5-Feb-92 MSD: to be swapped out
		bra	new_vcr			;and continue
		
not_open	lda	[my_vcr_ptr]		;get the volume ID
		jsl	release_vcr		;release the vcr
*
* Ok, we need to allocate a new VCR.
*
new_vcr		jsr	build_vcr
		bcs	exit
*
* Activate the VCR.
*
do_activate	ldy	#vcr_status		
		lda	[my_vcr_ptr],y		;get vcr status word
		and	#vcr_swapped_in		;clear swapped bit
		sta	[my_vcr_ptr],y		
*
* Setup VCR information.
*
		jsr	setup_vcr_info
*
* Indicate no error.
*
		clc				
*
* Clear id_disk_flag and exit.
*
exit		stz	id_disk_flag
		rts				

*
* It's an HFS disk but the VIB is damaged so treat it as an unknown volume.
*
bad_vib		bra	not_hfs		
		
*
* Not an HFS disk.  Exit with unknown volume error.
*
not_hfs		lda	#unknown_vol		;get error code
		sec				;indicate error
		bra	exit			;return the error

*
* Exit with duplicate volume error.
*
dup_vol		lda	#dup_volume		;get error code
		sec				;indicate error
		bra	exit			;return the error
		
*
* Return an error.
*
error		sec				;indicate error
		bra	exit


;------------------------------------------------------------------------------
; compare_word and compare_long routines
;
; Input:	Y - contains offset into vib
;		X - contains offset into vcr
;
; Returns z=1 if word or long matches.
; Returns z=0 if word or long doesn't match.
;------------------------------------------------------------------------------

compare_word 	lda	[gbuf_ptr],y		;get word from vib
		xba				;change byte sex
		txy
		cmp	[my_vcr_ptr],y		;does it match word in vcr?
		rts				;return result of compare

compare_long	sty	<temp0			;save vib offset
		jsr	compare_word		;compare lo word 
		bne	compare_exit		;exit if lo word doesn't match
		tyx				;get vcr offset back in X
		inx				;and adjust
		inx
		ldy	<temp0			;get vib offset back in Y
		dey				;and adjust
		dey
		jsr	compare_word		;compare hi word
compare_exit	rts				;return result of compare

		ENDP
		
		eject
******************************************************************************
*
*	 Name:	build_vcr
*
* Description:	Creates	a new VCR.  
*
*	 NOTE:  Should only be called by id_disk!!
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<gbuf_ptr - ptr to 512 byte general purpose buffer (contains the VIB)
*		<drvr_dev_num - device number
*		disk_name - disk name
*		cp_device_flag - $8001 if doing a ChangePath call with device # as source 
*				 and got a duplicate volume error from id_disk
*
*      Output:	A = error code if carry	set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*		<my_vcr_ptr - ptr to vcr
*		ablk_size - allocation block size in bytes
*		ablk_start - location of first alloc block (P blk #)
*		pblks_per_ablk - # of physical blocks per alloc block
*		ctree_fcr_ptr - ptr to fcr for CTree
*		etree_fcr_ptr - ptr to fcr for ETree
*		<drvr_dev_num - device number
*
*	 Uses:	all registers
*		<dev_id_ref
*		<drvr_call_num
*		<temp0
*		<temp1
*		<source_ptr	(aka <product)
*		<dest_ptr	
*
*   Called by:	id_disk	
*
*	Calls:	ablk2pblk
*		gbuf_read	
*		setup_vcr_info
*		release_tree_fcrs
*		copy_word
*		copy_long
*		copy_ext
*		alloc_vcr		(system service)
*		alloc_fcr		(system service)
*		release_vcr		(system service)
*		deref			(system service)
*		dev_dispatcher		(system service)
*
* Copyright Apple Computer, Inc. 1987-90  All rights reserved.
******************************************************************************

build_vcr	PROC
		with	data

temp_flag	equ	source_ptr		;local equate

*
* First, allocate a new VCR.
* Note - If cp_device_flag = $8001 then we need to use a fake name for the VCR 
* 	 since id_disk got a duplicate volume error. 
*
		ldx	#disk_name		;point to disk name
		ldy	#^disk_name
		lda	cp_device_flag		;do we need to use fake name for vcr?
		bpl	@cont			;no
		ldx	#fake_name_str		;yes - so point to fake name string
		ldy	#^fake_name_str		
@cont		lda	#len_vcr		;get size of vcr
		jsl	alloc_vcr		;allocate new vcr
		bcs	mem_error		
		jsl	deref			;dereference vp
		stx	<my_vcr_ptr		;save vcr ptr
		sty	<my_vcr_ptr+2
*
* Now, allocate an FCR for the CTree. 
*
		lda	<path_flag		;get current path flag
		sta	<temp_flag		;and save
		stz	<path_flag		;make sure SCM uses our string for the fcr
		
		lda	#len_t_fcr		;get size of fcr
		ldx	#ctree_str		;point to special name string
		ldy	#^ctree_str
		jsl	alloc_fcr		;allocate new fcr
		bcc	ct_fcr_ok		
mem_error	lda	#out_of_mem		;exit with out of memory error
		rts 

ct_fcr_ok	phy				;save hi word of vp
		phx				;save lo word of vp
		jsl	deref			;dereference vp
		stx	ctree_fcr_ptr		;save fcr ptr
		sty	ctree_fcr_ptr+2
		stx	<temp0			;also store ptr on direct page
		sty	<temp0+2
		
		ldy	#vcr_ct_fcr_vp		;retrieve the vp and store in the vcr
		pla
		sta	[my_vcr_ptr],y
		iny
		iny
		pla
		sta	[my_vcr_ptr],y
		
		ldy	#vcr_ct_ref_num	
		lda	[temp0]			;get the refnum from the fcr
		sta	[my_vcr_ptr],y		;and store in the vcr
		
		ldy	#fcr_level		;force the fcr to be at 'system level'	
		lda	[temp0],y		;(hi bit clear) so it won't be closed by
		and	#$7fff			;a CLOSE call with refnum=0 (close all)
		sta	[temp0],y
*
* Now, allocate an FCR for the ETree. 
*
		lda	#len_t_fcr		;get size of fcr
		ldx	#etree_str		;point to special name string
		ldy	#^etree_str
		jsl	alloc_fcr		;allocate new fcr
		bcs	mem_error		

		phy				;save hi word of vp
		phx				;save lo word of vp
		jsl	deref			;dereference vp
		stx	etree_fcr_ptr		;save fcr ptr
		sty	etree_fcr_ptr+2
		stx	<temp1			;also store ptr on direct page
		sty	<temp1+2
		
		ldy	#vcr_et_fcr_vp		;retrieve the vp and store in the vcr
		pla
		sta	[my_vcr_ptr],y
		iny
		iny
		pla
		sta	[my_vcr_ptr],y

		ldy	#vcr_et_ref_num	
		lda	[temp1]			;get the refnum from the fcr
		sta	[my_vcr_ptr],y		;and store in the vcr
		
		ldy	#fcr_level		;force the fcr to be at 'system level'	
		lda	[temp1],y		;(hi bit clear) so it won't be closed by
		and	#$7fff			;a CLOSE call with refnum=0 (close all)
		sta	[temp1],y
		
		lda	<temp_flag		;restore original path flag
		sta	<path_flag
*
* Initialize some of the fields in the VCR.
*
		ldy	#vcr_status		;get offset to status
		lda	#vcr_swapped		;init to swapped and write_protected
		sta	[my_vcr_ptr],y

		ldy	#vcr_fst_id		;get offset to fst id
		lda	#hfs_id			;get id
		sta	[my_vcr_ptr],y		;save it

		ldy	#vcr_dev		;get offset to device
		lda	<drvr_dev_num		;get current device
		sta	[my_vcr_ptr],y		;save it
*
* Initialize some of the fields in the CTree and ETree FCRs.
*
		ldy	#fcr_fst_id		;get offset to fst id
		lda	#hfs_id			;get id
		sta	[temp0],y		;save it in the ctree fcr
		sta	[temp1],y		;and the etree fcr

		ldy	#fcr_vol_id		;get offset to vol id
		lda	[my_vcr_ptr]		;get volume id from vcr
		sta	[temp0],y		;save it in the ctree fcr
		sta	[temp1],y		;and the etree fcr

		ldy	#fcr_access		;get offset to access
		lda	#invisible		;get 'invisible' access
		ora	#global_clean_bit	;mark file clean
		sta	[temp0],y		;save it in the ctree fcr
		sta	[temp1],y		;and the etree fcr
		
		ldy	#fcr_type		;get offset to fcr type
		lda	#fcr_tree_type		;get 'tree' type
		sta	[temp0],y		;save it in the ctree fcr
		sta	[temp1],y		;and the etree fcr
		
		ldy	#fcr_parent_id		;get offset to parent id
		lda	#vol_parent_id		;get volume parent id
		sta	[temp0],y		;save it in the ctree fcr
		sta	[temp1],y		;and the etree fcr
		
		ldy	#fcr_id			;get offset to file/dir id
		lda	#ctree_file_id		;get ctree file id
		sta	[temp0],y		;save it in the ctree fcr
		lda	#etree_file_id		;get etree file id
		sta	[temp1],y		;save it in the etree fcr
*
* Initialize some of the fields in the CTree BCR and the ETree BCR (within the FCRs). 
*
		ldx	#0			;get offset to start of bcr data
		ldy	#bcr_key_cmp_ptr  	;get offset into bcr
bcr_loop	lda	ctree_bcr_data,x	;get CTree data word  
		sta	[temp0],y		;store word in CTree bcr
		lda	etree_bcr_data,x	;get ETree data word 
		sta	[temp1],y		;store word in ETree bcr
		inx				;increment both offsets to next word
		inx
		iny
		iny
		cpx	#len_bcr_data		;are we done with all the data?
		bne	bcr_loop		;no - so continue
*
* Now copy information from the VIB into the appropriate fields in the VCR.
*
		lda	<gbuf_ptr		;setup source ptr
		sta	<source_ptr
		lda	<gbuf_ptr+2
		sta	<source_ptr+2
		
		lda	<my_vcr_ptr		;setup destination ptr
		sta	<dest_ptr
		lda	<my_vcr_ptr+2
		sta	<dest_ptr+2
		
		ldy	#vib_create_dt		;get starting source offset
		ldx	#vcr_create_dt		;get starting dest offset
		jsr	copy_long		;copy create_dt
		jsr	copy_long		;copy mod_dt
		jsr	copy_word		;copy vol_attrib 
		jsr	copy_word		;copy num_r_files
		jsr	copy_word		;copy vbm_start
		jsr	copy_word		;copy alloc_start
		jsr	copy_word		;copy num_ablks
		jsr	copy_long		;copy ablk_size
		jsr	copy_long		;copy fclump_size
		jsr	copy_word		;copy ablk_start
		jsr	copy_long		;copy next_id
		jsr	copy_word		;copy free_ablks
		
		ldy	#vib_write_cnt		;adjust source offset 
		jsr	copy_long		;copy write_cnt
		
		ldy	#vib_num_r_dirs		;adjust source offset
		jsr	copy_word		;copy num_r_dirs
		jsr	copy_long		;copy num_files
		jsr	copy_long		;copy num_dirs
*
* Now copy information from the VIB into the appropriate fields in the CTree FCR.
* 
		lda	ctree_fcr_ptr		;setup destination ptr
		sta	<dest_ptr
		lda	ctree_fcr_ptr+2
		sta	<dest_ptr+2
		
		ldy	#vib_cclump_size	;get starting source offset
		ldx	#fcr_clump_size		;get starting dest offset 
		jsr	copy_long		;copy cclump_size
		
		ldy	#vib_ctree_peof		;adjust source offset
		ldx	#fcr_peof		;adjust dest offset
		jsr	copy_long		;copy ctree_peof
		jsr	copy_ext		;copy ctree_ext (6 words)
*
* Now copy information from the VIB into the appropriate fields in the ETree FCR.
* 
		lda	etree_fcr_ptr		;setup destination ptr
		sta	<dest_ptr
		lda	etree_fcr_ptr+2
		sta	<dest_ptr+2
		
		ldy	#vib_eclump_size	;get starting source offset
		ldx	#fcr_clump_size		;get starting dest offset 
		jsr	copy_long		;copy eclump_size
		
		ldy	#vib_etree_peof		;adjust source offset
		ldx	#fcr_peof		;adjust dest offset
		jsr	copy_long		;copy etree_peof
		jsr	copy_ext		;copy etree_ext (6 words)
*
* Setup ablk_start and pblks_per_ablk since they're needed by the ablk2pblk routine.
* 	
		jsr	setup_vcr_info
*
* Read in the CTree header node, verify it, and copy information from the 
* header record into the CTree BCR.
*
		lda	ctree_fcr_ptr		;put ptr to ctree fcr back on direct page
		sta	<temp0			;since temps are undefined at this point
		lda	ctree_fcr_ptr+2
		sta	<temp0+2
		
		ldy	#fcr_ext		;get offset to 1st ext descriptor in fcr
		lda	[temp0],y		;get # of ablk which contains header node
		xba				;change byte sex
		jsr	ablk2pblk		;convert to physical block # (in X,Y)
		jsr	gbuf_read		;read in the block  
		bcs	bcs_error

		jsr	verify_hdr		;verify the header node
		bcs	bcs_bad_hdr
		
		lda	<gbuf_ptr		;setup source ptr
		sta	<source_ptr
		lda	<gbuf_ptr+2
		sta	<source_ptr+2
		
		lda	ctree_fcr_ptr		;setup destination ptr
		sta	<dest_ptr
		lda	ctree_fcr_ptr+2
		sta	<dest_ptr+2
		
		ldy	#len_nd			;get starting source offset
		ldx	#bcr_depth		;get starting dest offset 
		jsr	copy_word		;copy depth
		jsr	copy_long		;copy root_node
		jsr	copy_long		;copy num_leaves
		jsr	copy_long		;copy first_node
		jsr	copy_long		;copy last_node
		jsr	copy_word		;copy node_size
		jsr	copy_word		;copy max_key
		jsr	copy_long		;copy num_nodes
		jsr	copy_long		;copy free_nodes
*
* Read in the ETree header node, verify it, and copy information from the 
* header record into the ETree BCR.
*
		lda	etree_fcr_ptr		;put ptr to etree fcr back on direct page
		sta	<temp1			;since temps are undefined at this point
		lda	etree_fcr_ptr+2
		sta	<temp1+2
		
		ldy	#fcr_ext		;get offset to 1st ext descriptor in fcr
		lda	[temp1],y		;get # of ablk which contains header node
		xba				;change byte sex
		jsr	ablk2pblk		;convert to physical block # (in X,Y)
		jsr	gbuf_read		;read in the block  
bcs_error	bcs	error

		jsr	verify_hdr		;verify the header node
bcs_bad_hdr	bcs	bad_hdr
		
		lda	<gbuf_ptr		;setup source ptr
		sta	<source_ptr
		lda	<gbuf_ptr+2
		sta	<source_ptr+2
		
		lda	etree_fcr_ptr		;setup destination ptr
		sta	<dest_ptr
		lda	etree_fcr_ptr+2
		sta	<dest_ptr+2
		
		ldy	#len_nd			;get starting source offset
		ldx	#bcr_depth		;get starting dest offset 
		jsr	copy_word		;copy depth
		jsr	copy_long		;copy root_node
		jsr	copy_long		;copy num_leaves
		jsr	copy_long		;copy first_node
		jsr	copy_long		;copy last_node
		jsr	copy_word		;copy node_size
		jsr	copy_word		;copy max_key
		jsr	copy_long		;copy num_nodes
		jsr	copy_long		;copy free_nodes
*
* Now, do a GET_DIB_PTR call on the current device.  This will set drvr_dib_ptr up on 
* direct page so that we can get the volume's block count and store it in the vcr.
*
		lda	<drvr_dev_num		;get current device num
		pha				;save it
		sta	<dev_id_ref		;and store as the device id
		stz	<drvr_dev_num		;device $00 = special internal calls
		lda	#1
		sta	<drvr_call_num		;call $01 = GET_DIB_PTR
		jsl	dev_dispatcher
		pla				;retrieve current device num
		sta	<drvr_dev_num
		
		ldy	#dib_blk_cnt		;get offset to block count in the DIB
		lda	[drvr_dib_ptr],y	;get lo word of block count
		ldy	#vcr_num_pblks
		sta	[my_vcr_ptr],y		;and store in vcr
		ldy	#dib_blk_cnt+2			
		lda	[drvr_dib_ptr],y	;get hi word of block count
		ldy	#vcr_num_pblks+2
		sta	[my_vcr_ptr],y		;and store in vcr
*
* Indicate no error and exit.
*
		clc
		rts
		
*
* An error occured, free the VCR and FCRs before exiting.
*
bad_hdr		lda	#damaged_bitmap		;was unknown_vol (changed 7-Nov-91 MSD)		

error		pha				;save error code
		lda	[my_vcr_ptr]		;get the volume	ID
		jsl	release_vcr		;release the vcr
		pla				;recover the error
		sec				;indicate error
		rts				;exit
		
;------------------------------------------------------------------------------
; verify_hdr routine
;
; Returns c=0 if header node OK, else returns c=1.
;------------------------------------------------------------------------------

verify_hdr	ldy	#len_nd+hdr_node_size	
 		lda	[gbuf_ptr],y		;get node size from header record
		xba				;change byte sex
		cmp	#node_size
		bne	verify_err		;error if node size not 512
		
		ldy	#len_nd+hdr_depth
 		lda	[gbuf_ptr],y		;get tree depth from header record
		xba				;change byte sex
		cmp	#max_btree_depth+1	
		bcs	verify_err		;error if > maximum allowed tree depth

		ldy	#len_nd+hdr_num_nodes
 		lda	[gbuf_ptr],y		;get # of nodes from header record
		xba				;change byte sex
		sta	<temp0			;and save for verify_it routine below
		iny
		iny
 		lda	[gbuf_ptr],y		
		xba				;change byte sex
		sta	<temp0+2

		ldy	#len_nd+hdr_free_nodes 	;first verify the # of free nodes
		jsr	verify_it
		bcs	verify_err
		
		ldy	#len_nd+hdr_root_node	;now verify the root node #
		jsr	verify_it
		bcs	verify_err
		
		ldy	#len_nd+hdr_first_node  ;now verify the first leaf node #
		jsr	verify_it
		bcs	verify_err
		
		ldy	#len_nd+hdr_last_node   ;now verify the last leaf node #
		jsr	verify_it
		bcs	verify_err
		rts				;we're done

verify_err	sec				;indicate error
		rts				;and return

;------------------------------------------------------------------------------
; verify_it routine
;
; Input:	Y - contains offset to value being verified
;		<temp0 - contains # of nodes

; Returns c=0 if value being verified is < # of nodes
; Returns c=1 if value being verified is >= # of nodes
;------------------------------------------------------------------------------

verify_it 	lda	[gbuf_ptr],y		;get hi word of value being verified		
		xba				;change byte sex
		cmp	<temp0			;compare it to hi word of # of nodes		
		bcc	verify_exit		;if it's < # of nodes then ok
		beq	verify_equal		;if it's = # of nodes then check lo word
		bcs	verify_exit		;if it's > # of nodes then error
verify_equal	iny				
		iny
 		lda	[gbuf_ptr],y		;get lo word of value being verified
		xba				;change byte sex
		cmp	<temp0+2		;compare it to lo word of # of nodes
verify_exit	rts				;return		
		
		ENDP
		
		eject
******************************************************************************
*
*	 Name:	setup_vcr_info 
*
* Description:	Sets up ablk_size, ablk_start and pblks_per_ablk.
*		Creates ptrs to CTree fcr and ETree fcr.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined.
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<my_vcr_ptr - pointer to current vcr
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..0
*		B = K
*
*		ablk_size - allocation block size in bytes
*		ablk_start - location of first alloc block (P blk #)
*		pblks_per_ablk - # of physical blocks per alloc block
*		ctree_fcr_ptr - ptr to fcr for CTree
*		etree_fcr_ptr - ptr to fcr for ETree
*
*	 Uses:	all registers
*		<temp0
*
*   Called by:	setup_call
*		process_path
*		build_vcr
*		id_disk
*
*	Calls:	nothing		
*
* Copyright Apple Computer, Inc. 1989-90  All rights reserved.
******************************************************************************

setup_vcr_info	PROC
		with	data

*
* Setup ablk_size and ablk_start.
*
		ldy	#vcr_ablk_start		;Get offset to alloc block start.
		lda	[my_vcr_ptr],y		;Get word
		sta	ablk_start		;and save it.

		ldy	#vcr_ablk_size		;Get offset to alloc block size.
		lda	[my_vcr_ptr],y		;Get lo word of size
		sta	ablk_size		;and save it.
		sta	<temp0			;also store in <temp0 for later
		iny
		iny
		lda	[my_vcr_ptr],y		;Get hi word of size
		sta	ablk_size+2		;and save it.
		sta	<temp0+2		;also store in <temp0+2 for later
*
* Convert ablk_size from bytes to physical blocks and store in pblks_per_ablk.
*
 		ldx	#9			;# of bits to shift		
loop		lsr	<temp0+2		;divide by 512 to convert
		ror	<temp0			;from bytes to physical blocks
		dex
		bne	loop
		
		lda	<temp0			;store result in pblks_per_ablk
		sta	pblks_per_ablk
*
* Get pointers to the CTree fcr and the ETree fcr.
*
		ldy	#vcr_ct_fcr_vp		;get offset to the vp for the CTree fcr
		lda	[my_vcr_ptr],y		;get lo word of vp
		tax				;store in X
		iny
		iny
		lda	[my_vcr_ptr],y		;get hi word of vp
		tay				;store in Y
		jsl	deref			;dereference the vp
		stx	ctree_fcr_ptr		;save pointer
		sty	ctree_fcr_ptr+2

		ldy	#vcr_et_fcr_vp		;get offset to the vp for the ETree fcr
		lda	[my_vcr_ptr],y		;get lo word of vp
		tax				;store in X
		iny
		iny
		lda	[my_vcr_ptr],y		;get hi word of vp
		tay				;store in Y
		jsl	deref			;dereference the vp
		stx	etree_fcr_ptr		;save pointer
		sty	etree_fcr_ptr+2
*
* Indicate no error and exit.
*
		clc				
		rts
		
		ENDP
		
		eject
******************************************************************************
*
*	 Name:	ensure_vol_online  
*
* Description:	Makes sure volume is online. Calls mount_message if needed.
*		Sets drvr_dev_num to the current location.  Activates vcr.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<my_vcr_ptr - pointer to vcr
*
*      Output:	A = error code if error
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*		<drvr_dev_num - device number 
*
*	 Uses:	all registers
*
*   Called by:	read
*		write
*		flush
*		set_mark
*		set_eof
*		get_dir_entry
*
*	Calls:	find_our_volume
*		update_status
*
* Copyright Apple Computer, Inc. 1987-90  All rights reserved.
******************************************************************************

ensure_vol_online PROC
		with	data

*
* Has the VCR been marked as swapped?
* 
		ldy	#vcr_status		
		lda	[my_vcr_ptr],y		;get status word
		and	#vcr_swapped		;swapped?
		bne	find_vol		;yes - so must search for volume
*
* No - so get the current status of the device where the volume was last seen. 
* If carry clear then the volume is still online.
* If carry set then we need to search for the volume.
*
		jsr	update_status		;get the current device status
		bcc	exit			;the volume is still online
*	
* Attempt to find the volume.  Call mount_message if needed.  
* Set <drvr_dev_num to current location of volume.  Activate the vcr.
*
find_vol	jsr	find_our_volume		
exit		rts

		ENDP

		eject
******************************************************************************
*
*	 Name:	update_status  
*
* Description:	Gets the current status of the device where a volume was last seen. 
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<my_vcr_ptr - pointer to vcr
*		wp_status_flag - set to 0
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = volume has been switched
*			   0 = volume has not been switched
*		B = K
*
*		<drvr_dev_num - device number 
*		wp_status_flag - non-zero if we know volume is write-protected
*
*	 Uses:	all registers
*		wp_status_flag
*
*   Called by:	ensure_vol_online
*		process_path
*
*	Calls:	do_status_call
*
* Copyright Apple Computer, Inc. 1987-90  All rights reserved.
******************************************************************************

update_status 	PROC
		with	data

*
* Set <drvr_dev_num to the device where the volume was last seen and do a
* Status call to that device.  If the disk has been ejected, the 'switched' bit
* will be set in the device status word.
* Note - if the disk has been ejected, the device dispatcher will call the 
* swap_out routine in SCM before returning from the Status call.  The swap_out
* routine will set the VCR status to 'vcr_swapped' and 'vcr_wr_unknown'.  
*
		ldy	#vcr_dev
		lda	[my_vcr_ptr],y		;get device #
		sta	<drvr_dev_num		;and set up <drvr_dev_num
		jsr	do_status_call		;do a Status call to the device
		bcs	exit			;got an error
*
* If the volume has been switched then return carry set.
*
		sec
		lda	status_list		;get status word
		tax				;save in X
		and	#switched_bit		;has disk been switched? 
		bne	exit			;yes - so return carry set
*
* The volume has not been switched so let's update the write_protect status.
*
		txa				;retrieve status word
		and	#protected_bit		;is the disk write-protected?
		bne	wr_protected		;yes - so branch
*
* The volume is write enabled.
* Set the 'vcr_wr_enable' bit in the vcr status word.
*
		ldy	#vcr_status
		lda	[my_vcr_ptr],y		;get the vcr status word
		ora	#vcr_wr_enable		;set the 'vcr_wr_enable' bit
		sta	[my_vcr_ptr],y	
		bra	done		
		
*
* The volume is write-protected.
* Clear the 'vcr_wr_enable' bit in the vcr status word and set wp_status_flag.
*
wr_protected	ldy	#vcr_status
		lda	[my_vcr_ptr],y		;get the vcr status word
		and	#vcr_wr_unknown		;clear the 'vcr_wr_enable' bit
		sta	[my_vcr_ptr],y	
		inc	wp_status_flag		;set flag to indicate vol is write-protected
*
* Indicate no error and exit.
*
done		clc				
exit		rts				
		
		ENDP
		
		eject
******************************************************************************
*
*	 Name:	find_our_volume
*
* Description:	Looks for a volume whose name matches that in <my_vcr_ptr.
*		Calls mount_message if needed.
*		Updates the device number in the vcr and marks the vcr active.
*		Returns an error if the volume is not found.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<my_vcr_ptr - pointer to vcr
*
*      Output:	A = error code if carry set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*		<drvr_dev_num - device number
*
*	 Uses:	all registers
*		volname
*		<temp0
*
*   Called by:	ensure_vol_online
*		do_rw_call
*
*	Calls:	scan_devices
*		mount_message	(system service)
*		deref		(system service)
*
* Copyright Apple Computer, Inc. 1987-90  All rights reserved.
******************************************************************************

find_our_volume	PROC
		with	data

*
* Get pointer to the vcr name and move it to volname.
*
		ldy	#vcr_name		;Point to low word of name vp.
		lda	[my_vcr_ptr],y		;Get low word.
		tax				;Put in	X.
		iny				;Point to high word.
		iny
		lda	[my_vcr_ptr],y		;Get high word.
		tay				;Put in	Y.
		jsl	deref			;Dereference it.
		stx	<temp0			;Save pointer.
		sty	<temp0+2

		lda	[temp0]			;Get length.
		and	#$00ff			;Clear high byte.
		tay				;Use as	index.
		iny				;Point to last char.

		longa	off			;Set 8 bit A.
		sep	#$20

		lda	#0			;Get zero.
		sta	volname+1,y		;Delimit string.

copy_loop	lda	[temp0],y		;Move byte.
		sta	volname,y
		dey				;Done all?
		bpl	copy_loop		;Nope, so loop.

		longa	on			;Set 16	bit A.
		rep	#$20
*
* Scan the devices to try to find the volume.	
*
mount_loop	jsr	scan_devices		
		bcc	done		
*
* We didn't find the volume, so put up a mount message.  
* First make volume name a class 0 name with a leading slash, put up the message,  
* then restore volume name.  
*
		lda	volname			;Get length word.
		pha				;Save it.
		inc	a			;Make it one longer.
		ora	#$2f00			;Add a slash (name must	be <256	chars!)
		sta	volname			;Save it.

		pea	volname>>16		;Push address of volume	name string.
		pea	volname
		lda	#0001
		jsl	mount_message		;Do message.

		plx				;Restore volname.
		stx	volname
		pha				;Save button status.
		pla				;Ok button pressed?
		beq	mount_loop		;Yes, so loop to re-try	scan_devices.
*
* 'Cancel' button was pressed so exit with a vol_not_found error.
*
 		lda	#vol_not_found		;get error code
		sec				
		rts				

*
* Indicate no error and exit
*
done		clc
		rts
		
		ENDP
		
		eject
******************************************************************************
*
*	 Name:	scan_devices
*
* Description:	Scans the devices looking for the specified volume.
*		If the volume is found, a vcr is built if none exists.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		volname - volume name to match
*		<my_vcr_ptr - pointer to vcr or 0 if no vcr
*
*      Output:	A = error code if carry set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*		<drvr_dev_num - device number found
*		<my_vcr_ptr - pointer to vcr
*
*	 Uses:	all registers
*		current_device
*		start_device
*
*   Called by:	process_path
*		find_our_volume
*
*	Calls:	id_disk
*
* Copyright Apple Computer, Inc. 1987-90  All rights reserved.
******************************************************************************

scan_devices	PROC
		with	data

*
* Initialize.
*
		stz	start_device		;clear start device
		lda	#0001			;init current device to	1
		sta	current_device
*
* First, check to see if we already have a vcr.
*
		lda	<my_vcr_ptr
		ora	<my_vcr_ptr+2		;do we have a vcr?
		beq	id_disk_loop		;no
*
* We have a vcr so get device # and setup to check it first.
*
 		ldy	#vcr_dev		
		lda	[my_vcr_ptr],y		;get device #
		sta	current_device		;set current device
		sta	start_device		;set start device
*
* Main loop.
* ID the disk in 'current_device'.  
* If we get a 'device not found' or 'duplicate volume' error then exit.
* If we get any other error, then continue the search.
*
id_disk_loop	lda	current_device		;get current device #
		jsr	id_disk			;id the disk
		bcc	compare_names		
		cmp	#dup_volume		;duplicate volume error?
		beq	error			;yes - so exit
		cmp	#invalid_dev_num	;device not found error?
		bne	no_match		;no - so continue search
		lda	#vol_not_found		;yes - so change error code
error		sec				;indicate error
		rts				;exit
		
*
* No error from	id_disk.  
* Compare the disk's name with volname.  If it matches we're done. 
* Note - we have to do a case-insensitive compare.
*
compare_names	sep	#$20			;set 8-bit A
		longa	off

		ldy	disk_name		;get length
		iny				;bump it one for length	word
compare_loop	lda	volname,y		;get byte
		cmp	disk_name,y		;match?
		beq	compare_cont		;yes
		
		cmp	#'a'			;no - do we have a lower case char in A?
		bcc	check_uc		;no
		cmp	#'z'+1
		bcs	no_match		;no
		and	#$df			;yes - so convert it to upper case
		cmp	disk_name,y		;match?
		beq	compare_cont		;yes
		bne	no_match		;no
		
check_uc	cmp	#'A'			;do we have an upper case char in A?
		bcc	no_match		;no
		cmp	#'Z'+1
		bcs	no_match		;no
		ora	#$20			;yes - so convert it to lower case
		cmp	disk_name,y		;match?
		bne	no_match		;no
		
compare_cont	dey				;done all?
		bpl	compare_loop		;no, so	loop

		longa	on			;set 16	bit A
		rep	#$20

 		clc				;indicate volume found
		rts				;exit

*
* We got an error from id_disk or the name didn't match.
* If we just checked the start device, then reset current device to 0.
* Bump current device and loop.
*
no_match	rep	#$20			;ensure 16 bit A
		lda	current_device		;get current device
		cmp	start_device		;same as start device?
		bne	next_device		;no
		stz	current_device		;yes, so reset current device
next_device	inc	current_device		;bump current device
		lda	start_device		;get start device
		cmp	current_device		;same as current device?
		beq	next_device		;yes, so skip it since we already did it
		bra	id_disk_loop		;loop

		ENDP
		
		eject
******************************************************************************
*
*	 Name:	is_vol_unlocked
*
* Description:	Checks to see if the volume is unlocked and therefore modifiable.
*		Returns an error if the volume is locked.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<my_vcr_ptr - ptr to vcr
*		<drvr_dev_num - device	number 
*		wp_status_flag - non-zero if we know volume is write-protected
*
*      Output:	A = error code if carry set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*	 Uses:	all registers
*		status_list
*
*   Called by:	create
*		destroy
*		change_path
*		set_file_info
*		clear_backup
*		write
*		set_eof
*		close
*		flush
*
*	Calls:	do_status_call
*
* Copyright Apple Computer, Inc. 1989-90  All rights reserved.
******************************************************************************

is_vol_unlocked PROC
		with	data

*
* If the vcr status word says the volume is write-enabled then we're done. 
*
		ldy	#vcr_status
		lda	[my_vcr_ptr],y		;get the vcr status word
		and	#vcr_wr_enable		;is the volume write-enabled?
		bne	done			;yes - so we're done
*
* The 'vcr_wr_enable' bit in the vcr status word is 0 which means that either 
* the volume is write-protected or its write-protect status is unknown.  So now 
* we'll check wp_status_flag.  If it's non-zero then we've already done a device 
* status call on this volume and determined that the volume is write-protected.
*
		lda	wp_status_flag		;get the flag word
		bne	wr_protected		;the volume is write-protected
*
* Do a device status call.
*
do_call		jsr	do_status_call		;do the device status call	
		bcs	exit
*
* Determine if there is a disk in the drive and if it's write-protected.
*
		lda	status_list		;get device status word
		tax				;save in X
		and	#online_bit		;is there a disk online?
		beq	switched		;no - so return error
		txa				;yes - so retrieve status word
		and	#switched_bit		;has the disk been switched?
		bne	switched		;yes - so return error
		txa				;no - so retrieve status word
		and	#protected_bit		;is the disk write-protected?
		bne	wr_protected		;yes - so return an error
*
* The volume is write-enabled so set the 'vcr_wr_enable' bit in the vcr status word.
*
		ldy	#vcr_status
		lda	[my_vcr_ptr],y		;get the vcr status word
		ora	#vcr_wr_enable		;mark the volume write-enabled
		sta	[my_vcr_ptr],y		
*
* Indicate no error and exit.
*
done		clc
exit		rts

*
* Return a 'write-protected' error.
*
wr_protected	lda	#drvr_wr_prot		;get error code
		sec				;indicate error
		rts

*
* There is no disk in the drive or the disk has been switched so return an error.
* Note - this should never happen, but just in case...
*
switched	lda	#drvr_disk_sw
		sec
		rts	
		
		ENDP

		
		eject
******************************************************************************
*
*	 Name:	do_status_call
*
* Description:	Does a device status call.
*
*	Entry:	jsr 
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<drvr_dev_num - device	number to access
*
*      Output:	A = error code if carry	set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*		status_list - contains device status
*
*	 Uses:	all registers
*		<drvr_call_num
*		<drvr_stat_code
*		<drvr_slist_ptr
*		<drvr_req_count
*
*   Called by:	erase
*		update_status
*		is_vol_unlocked
*
*	Calls:	dev_dispatcher		(system service)
*
* Copyright Apple Computer, Inc. 1990  All rights reserved.
******************************************************************************

do_status_call	PROC
		with	data

		lda	#drvr_status		;call number = device status
		sta	<drvr_call_num
		
		stz	<drvr_stat_code		;status code = GetDeviceStatus
		
		lda	#status_list		;setup pointer to status list
		sta	<drvr_slist_ptr
		lda	#^status_list
		sta	<drvr_slist_ptr+2
		
		lda	#6			;set request count
		sta	<drvr_req_cnt
		stz	<drvr_req_cnt+2
		
		jsl	dev_dispatcher		;do the call
		rts
		
		ENDP

		eject
******************************************************************************
*
* 	 Name:	update_vib_name
*
* Description:	Updates the volume name in the VIB.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
* 		   ..000...
*		B = K
*
*		<drvr_dev_num - device # of volume being renamed
*		<gbuf_ptr - ptr to 512 byte general purpose buffer
*		volname+1 - new volume name (class 0 format w/o leading separator)
*
*      Output:	A = error code if carry	set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
* 		   ..000..1 = error
*			  0 = no error
*		B = K
*
*	 Uses:	all registers
*
*   Called by:	change_path
*
*	Calls:	gbuf_read
*		gbuf_write
*
* Copyright Apple Computer, Inc. 1990  All rights reserved.
******************************************************************************

update_vib_name	PROC
		with	data
		
*
* Read the VIB into the general purpose buffer.
*
		ldx	#vib_block		;lo word of physical block to read
		ldy	#0			;hi word of physical block to read
		jsr	gbuf_read		;read in the block
		bcs	exit
*
* Copy the new volume name into the VIB.
*
		sep	#$30			;begin 8-bit mode
 		longa	off			
		longi	off			

		ldx	#0			;init offset into volname
		ldy	#vib_volname		;init offset into vib
		
loop		lda	volname+1,x		;get byte from volname
		sta	[gbuf_ptr],y		;and store in vib
		iny				;adjust offsets
		inx
		cpx	volname+1		
		bcc	loop			;loop until done
		beq	loop

		rep	#$30			;restore 16-bit mode
		longa	on			
		longi	on
*
* Write the VIB back out to disk.
*
		ldx	#vib_block		;lo word of physical block to write
		ldy	#0			;hi word of physical block to write
		jsr	gbuf_write		;write the block
exit		rts
			
		ENDP					
		
		eject
******************************************************************************
*
* 	 Name:	update_vib
*
* Description:	Updates the VIB.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
* 		   ..000...
*		B = K
*
*		<gbuf_ptr - ptr to 512 byte general purpose buffer
*		<my_vcr_ptr - ptr to vcr
*		ctree_fcr_ptr - ptr to fcr for CTree
*		etree_fcr_ptr - ptr to fcr for ETree
*
*      Output:	A = error code if carry	set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
* 		   ..000..1 = error
*			  0 = no error
*		B = K
*
*	 Uses:	all registers
*		<drvr_dev_num
*		<source_ptr	(aka <product)
*		<dest_ptr	
*
*   Called by:	ct_flush
*		et_flush
*
*	Calls:	gbuf_read
*		gbuf_write
*		copy_word
*		copy_long
*		copy_ext
*
* Copyright Apple Computer, Inc. 1990  All rights reserved.
******************************************************************************

update_vib	PROC
		with	data
		
*
* Read the VIB into the general purpose buffer and exit if error.
*
		ldy	#vcr_dev
		lda	[my_vcr_ptr],y
		sta	<drvr_dev_num
		ldx	#vib_block		;lo word of physical block to read
		ldy	#0			;hi word of physical block to read
		jsr	gbuf_read		;read in the block
		bcc	read_ok
		brl	exit
read_ok
*
* Copy information from the VCR into the VIB.
*
		lda	<my_vcr_ptr		;setup source ptr
		sta	<source_ptr
		lda	<my_vcr_ptr+2
		sta	<source_ptr+2
		
		lda	<gbuf_ptr		;setup destination ptr
		sta	<dest_ptr
		lda	<gbuf_ptr+2
		sta	<dest_ptr+2
		
		ldy	#vcr_mod_dt		;get starting source offset
		ldx	#vib_mod_dt		;get starting dest offset
		jsr	copy_long		;copy mod_dt
		jsr	copy_word		;copy vol_attrib 
		jsr	copy_word		;copy num_r_files
		
		ldy	#vcr_alloc_start	;adjust source offset
		ldx	#vib_alloc_start	;adjust dest offset
		jsr	copy_word		;copy alloc_start
		
		ldy	#vcr_next_id		;adjust source offset
		ldx	#vib_next_id		;adjust dest offset
		jsr	copy_long		;copy next_id
		jsr	copy_word		;copy free_ablks
		
		ldx	#vib_write_cnt		;adjust dest offset
		jsr	copy_long		;copy write_cnt
		
		ldx	#vib_num_r_dirs		;adjust dest offset
		jsr	copy_word		;copy num_r_dirs
		jsr	copy_long		;copy num_files
		jsr	copy_long		;copy num_dirs
*
* Copy information from the CTree FCR into the VIB.
*
		lda	ctree_fcr_ptr		;setup source ptr
		sta	<source_ptr
		lda	ctree_fcr_ptr+2
		sta	<source_ptr+2
		
		ldy	#fcr_peof		;get starting source offset
		ldx	#vib_ctree_peof		;get starting dest offset
		jsr	copy_long		;copy ctree_peof
		jsr	copy_ext		;copy ctree_ext (6 words)
*
* Copy information from the ETree FCR into the VIB.
*
		lda	etree_fcr_ptr		;setup source ptr
		sta	<source_ptr
		lda	etree_fcr_ptr+2
		sta	<source_ptr+2
		
		ldy	#fcr_peof		;get starting source offset
		ldx	#vib_etree_peof		;get starting dest offset
		jsr	copy_long		;copy etree_peof
		jsr	copy_ext		;copy etree_ext (6 words)
*
* Bump vib_write_cnt since vcr_write_cnt will be bumped when we write out the VIB.
*
		clc
		ldy	#vib_write_cnt+2	
		lda	[gbuf_ptr],y		;get lo word of write count
		xba				;change byte sex
		adc	#1			;bump it by 1
		xba				;change byte sex
		sta	[gbuf_ptr],y		;and store
		dey
		dey
		lda	[gbuf_ptr],y		;get hi word of write count
		xba				;change byte sex
		adc	#0			;bump if needed
		xba				;change byte sex
		sta	[gbuf_ptr],y		;and store
*
* Write the VIB back out to disk.
*
		ldx	#vib_block		;lo word of physical block to write
		ldy	#0			;hi word of physical block to write
		jsr	gbuf_write		;write the block
exit		rts
			
		ENDP					
		
		eject
******************************************************************************
*
* 	 Name:	update_alt_vib
*
* Description:	Updates the alternate VIB.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
* 		   ..000...
*		B = K
*
*		<gbuf_ptr - ptr to 512 byte general purpose buffer
*		<my_vcr_ptr - ptr to vcr
*		<A4.L - ptr to tree fcr
*		time - current time in seconds
*
*      Output:	A = error code if carry	set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
* 		   ..000..1 = error
*			  0 = no error
*		B = K
*
*	 Uses:	all registers
*		<drvr_dev_num
*		<source_ptr	(aka <product)
*		<dest_ptr	
*
*   Called by:	bt_ext_bt_file
*
*	Calls:	gbuf_read
*		gbuf_write
*		copy_ext
*		copy_long
*
* Copyright Apple Computer, Inc. 1990  All rights reserved.
******************************************************************************

update_alt_vib	PROC
		with	data
		
*
* Read the alternate VIB into the general purpose buffer and exit if error.
*
		ldy	#vcr_dev
		lda	[my_vcr_ptr],y
		sta	<drvr_dev_num
		
		sec
		ldy  	#vcr_num_pblks		;calculate the physical block # of 
		lda  	[my_vcr_ptr],y		;the alternate VIB and store in X,Y
		sbc  	#2			;for the read call
		tax
		iny
		iny
		lda  	[my_vcr_ptr],y
		sbc  	#0
		tay
		phy				;save physical block # on stack
		phx				;for the write call
		jsr	gbuf_read		
		bcs	exit
*
* Make sure the first word in the block is the HFS signature.  Exit if not.
*
		lda	[gbuf_ptr]		;get first word from block
		xba				;change byte sex
		cmp	#hfs_signature		;is it the HFS signature?
		bne	done			;no - so exit
*
* Update the modification date/time in the alternate VIB.
*
		ldy	#vib_mod_dt+2
		lda	time
		xba				;change byte sex
		sta	[gbuf_ptr],y
		dey
		dey
		lda	time+2
		xba				;change byte sex
		sta	[gbuf_ptr],y
*
* Copy information from the Tree FCR into the alternate VIB.
*
		lda	<a4			;setup source ptr
		sta	<source_ptr
		lda	<a4+2
		sta	<source_ptr+2
		
		lda	<gbuf_ptr		;setup destination ptr
		sta	<dest_ptr
		lda	<gbuf_ptr+2
		sta	<dest_ptr+2
		
		ldx	#vib_ctree_peof		;get starting dest offset
		ldy	#fcr_id
		lda	[a4],y			;get the file id from the fcr
		cmp	#ctree_file_id		;is this fcr for the Catalog Tree?
		beq	cont			;yes
		ldx	#vib_etree_peof		;no - so adjust starting dest offset
cont		ldy	#fcr_peof		;get starting source offset
		jsr	copy_long		;copy peof
		jsr	copy_ext		;copy ext (6 words)
*
* Write the alternate VIB back out to disk.
*
		lda	1,s			;get the physical block # off the stack
		tax				;and put it in X,Y
		lda	3,s
		tay
		jsr	 gbuf_write		;write out the block
		bcs	exit
*
* Indicate no error, clean up the stack and exit.
*
done		clc				;indicate no error
exit		plx				;clean up stack (don't trash A)
		ply				
		rts
		
		ENDP					

		eject
******************************************************************************
*
* 	 Name:	update_bth
*
* Description:	Updates a BTree header node.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
* 		   ..000...
*		B = K
*
*		<gbuf_ptr - ptr to 512 byte general purpose buffer
*		<my_vcr_ptr - ptr to vcr
*		<A4.L - ptr to tree fcr
*
*      Output:	A = error code if carry	set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
* 		   ..000..1 = error
*			  0 = no error
*		B = K
*
*	 Uses:	all registers
*		<drvr_dev_num
*		<source_ptr	(aka <product)
*		<dest_ptr	
*
*   Called by:	bt_flush
*
*	Calls:	gbuf_read
*		gbuf_write
*		copy_word
*		copy_long
*		ablk2pblk
*
* Copyright Apple Computer, Inc. 1990  All rights reserved.
******************************************************************************

update_bth	PROC
		with	data
		
*
* Read the BTree header node into the general purpose buffer and exit if error.
*
		ldy	#vcr_dev
		lda	[my_vcr_ptr],y
		sta	<drvr_dev_num
		
		ldy	#fcr_ext		;get offset to 1st ext descriptor in fcr
		lda	[a4],y			;get # of ablk which contains header node
		xba				;change byte sex
		jsr	ablk2pblk		;convert to physical block # (in X,Y)
		phy				;save physical block # on stack
		phx				;for the write call
		jsr	gbuf_read		;read in the block  
		bcs	exit
*
* Copy information from the Tree BCR into the BTree header node.
*
		lda	<a4			;setup source ptr
		sta	<source_ptr
		lda	<a4+2
		sta	<source_ptr+2
		
		lda	<gbuf_ptr		;setup destination ptr
		sta	<dest_ptr
		lda	<gbuf_ptr+2
		sta	<dest_ptr+2
		
		ldy	#bcr_depth		;get starting source offset 
		ldx	#len_nd			;get starting dest offset
		jsr	copy_word		;copy depth
		jsr	copy_long		;copy root_node
		jsr	copy_long		;copy num_leaves
		jsr	copy_long		;copy first_node
		jsr	copy_long		;copy last_node
		jsr	copy_word		;copy node_size
		jsr	copy_word		;copy max_key
		jsr	copy_long		;copy num_nodes
		jsr	copy_long		;copy free_nodes
*
* Write the BTree header node back out to disk.
*
		lda	1,s			;get the physical block # off the stack
		tax				;and put it in X,Y
		lda	3,s
		tay
		jsr	 gbuf_write		;write out the block
*
* Clean up the stack and exit.
*
exit		plx				;don't use A since it may contain
		ply				;an error code
		rts

		ENDP
		
		eject
******************************************************************************
*
*	 Name:	build_fcr
*
* Description:	Creates a new FCR for a file or directory.  
*		If it's a file FCR and the physical eof <> 0, the block buffer 
*		information is setup and the fcr block buffer is marked as empty.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<my_vcr_ptr - pointer to vcr
*		<a1 - ptr to Catalog Record
*		record_type - Catalog Record type
*		parent_id - parent dir id of file/dir
*		storage_type - storage type
*		catalog_hint - catalog hint
*		resource_num - resource number
*		request_access - requested access
*		disk_name - name of disk (in gstring format)
*
*      Output:	A = error code if error
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*		<my_fcr_ptr - ptr to fcr
*		ref_num - reference number from fcr
*		type - fcr type
*		eof - logical eof
*		file_mark - file mark 
*		block_mark - block buffer mark
*		block_num - # of physical block in block buffer
*		block_count - # physical blocks until end of extent
*		<block_buf_ptr - ptr to block buffer in fcr
*
*	 Uses:	all registers
*		<temp0
*		<source_ptr	(aka <product)
*		<dest_ptr 	
*		<multiplicand
*		<multiplier
*		<product
*
*   Called by:	open
*		create
*
*	Calls:	alloc_fcr		(system service)
*		deref			(system service)
*		setup_fcr_info
*		update_block_buf
*		update_fcr
*		long_multiply
*		copy_word
*		copy_long
*		copy_ext
*
* Copyright Apple Computer, Inc. 1987-91  All rights reserved.
******************************************************************************

build_fcr	PROC
		with	data

*
* Insert a leading separator into 'disk_name' since SCM may need to use 
* 'disk_name' to build the fcr name.
*
		lda	disk_name		;get length word
		inc	a			;add 1 for leading separator
		sta	disk_name0		;and store as length of special string
		lda	#':'			
		xba
		sta	disk_name		;insert leading separator
*
* Determine the correct fcr size and then allocate the fcr.
*
		lda	#len_d_fcr		;get fcr length for directories
		ldx	record_type		;get record type
		cpx	#cat_dir_type		;are we dealing with a directory?
		beq	do_alloc		;yes - so branch
		lda	#len_f_fcr		;get fcr length for files
do_alloc	ldx	#disk_name0	 	;get pointer to	disk name
		ldy	#^disk_name0	 
		jsl	alloc_fcr		;allocate the fcr
		bcc	got_fcr		
mem_error	lda	#out_of_mem		;exit with 'out of memory' error
		rts				
got_fcr
*
* Dereference the vp and save the fcr pointer. 
*
 		jsl	deref			;dereference vp
		stx	<my_fcr_ptr		;save pointer
		sty	<my_fcr_ptr+2
*
* Remove the leading separator from 'disk_name'.
*
		lda	disk_name0		;get length word of special string
		dec	a			;subtract 1 for leading separator
		sta	disk_name		;and store
*
* Get reference	number and store in output parameter storage area.
*
		lda	[my_fcr_ptr]		;get refnum
		sta	ref_num			;and store
*
* Set fcr access.
* 
		ldy	#fcr_access		;get offset to access
		lda	request_access		;get requested access
		ora	#global_clean_bit	;mark file clean
		sta	[my_fcr_ptr],y		;save it
*
* Initialize some of the fields in the FCR
*
		ldy	#fcr_fst_id		;get offset to fst id
		lda	#hfs_id			;get id
		sta	[my_fcr_ptr],y		;and save it 

		ldy	#fcr_vol_id		;get offset to vol id
		lda	[my_vcr_ptr]		;get volume id from vcr
		sta	[my_fcr_ptr],y		;and save it 

		ldy	#fcr_type		;get offset to fcr type
		lda	#fcr_file_type		;get fcr type for files
		ldx	record_type		;get record type
		cpx	#cat_fil_type		;are we dealing with a file?
		beq	store_type		;yes
		lda	#fcr_dir_type		;no - so get fcr type for directories
store_type	sta	[my_fcr_ptr],y		;and save it 
		
		ldy	#fcr_parent_id		;get offset to parent dir id
		lda	parent_id		;get lo word of parent dir id
		sta	[my_fcr_ptr],y		;and save it 
		iny
		iny
		lda	parent_id+2		;get hi word of parent dir id
		sta	[my_fcr_ptr],y		;and save it 

		ldy	#fcr_cat_hint		;get offset to catalog hint
		lda	catalog_hint		;get lo word of catalog hint
		sta	[my_fcr_ptr],y		;and save it 
		iny
		iny
		lda	catalog_hint+2		;get hi word of catalog hint
		sta	[my_fcr_ptr],y		;and save it 
*
* Setup the source and destination pointers for the copy routines.
*
		lda	<a1			;setup source ptr
		sta	<source_ptr
		lda	<a1+2
		sta	<source_ptr+2
		
		lda	<my_fcr_ptr		;setup destination ptr
		sta	<dest_ptr
		lda	<my_fcr_ptr+2
		sta	<dest_ptr+2
*
* Check the Catalog Record type. 
*
		lda	record_type		;get the catalog record type
		cmp	#cat_fil_type		;is it a File Record?
		beq	do_fil_record		;yes - so branch
*
* Copy information from the Directory Record into the FCR.
*
		ldy	#dir_flags		;get starting source offset
		ldx	#fcr_flags		;get starting dest offset
		jsr	copy_word		;copy flags
		
		ldx	#fcr_valence		;adjust dest offset
		jsr	copy_word		;copy valence
		
		ldx	#fcr_id			;adjust dest offset
		jsr	copy_long		;copy id

		ldy	#dir_mod_dt		;adjust source offset
		ldx	#fcr_mod_dt		;adjust dest offset
		jsr	copy_long		;copy mod_dt
		
		brl	done			;we're done
		
*
* Copy information from the File Record into the FCR.
*
do_fil_record	clc
		lda	#$7fff
		adc	resource_num		;set overflow flag if fcr is for rsrc fork
		
		ldy	#fil_flags-1		;get starting source offset
		ldx	#fcr_flags		;get starting dest offset 
		jsr	copy_word		;copy flags
		
		ldy	#fil_id			;adjust source offset
		ldx	#fcr_id			;adjust dest offset 
		jsr	copy_long		;copy id
		
		ldy	#fil_mod_dt		;adjust source offset
		ldx	#fcr_mod_dt		;adjust dest offset
		jsr	copy_long		;copy mod_dt
		
		ldy	#fil_data_leof		;adjust source offset
		bvc	not_rsrc1		;branch if fcr is for data fork
		ldy	#fil_rsrc_leof		;adjust source offset
not_rsrc1	ldx	#fcr_leof		;adjust dest offset
		jsr	copy_long		;copy leof
		jsr	copy_long		;copy peof
		
		ldy	#fil_data_ext		;adjust source offset
		bvc	not_rsrc2		;branch if fcr is for data fork
		ldy	#fil_rsrc_ext		;adjust source offset
not_rsrc2	ldx	#fcr_ext		;adjust dest offset
		jsr	copy_ext		;copy ext (6 words)
		
		bvc	flags_ok		;branch if fcr is for data fork
		ldy	#fcr_access		;get offset into fcr
		lda	[my_fcr_ptr],y		;get access word
		ora	#rsrc_fork_bit		;set rsrc fork bit
		sta	[my_fcr_ptr],y		;and store
flags_ok
		ldy	#fil_clump_size		
		lda	[a1],y			;get clump size from File Record
		beq	use_vcr_clump		;if it's 0, use clump size from VCR
		sta	<multiplicand		;it's non-zero so need to convert from
		stz	<multiplicand+2		;'# of ablks per clump' to 
		lda	ablk_size		;'# of bytes per clump' so multiply
		sta	<multiplier		;by allocation block size
		lda	ablk_size+2
		sta	<multiplier+2
		jsr	long_multiply
		lda	<product+2		;push result on stack
		pha
		lda	<product
		pha
		bra	store_clump		;and branch
		
use_vcr_clump	ldy	#vcr_fclump_size+2	
		lda	[my_vcr_ptr],y		;get default clump size from VCR
		pha				;and push on stack
		dey
		dey
		lda	[my_vcr_ptr],y
		pha
		
store_clump	ldy	#fcr_clump_size	
		pla				;pull clump size from stack and
		sta	[my_fcr_ptr],y		;store in FCR
		iny
		iny
		pla
		sta	[my_fcr_ptr],y
*
* Setup some fcr information.  
*
		jsr	setup_fcr_info
*
* If the file's physical eof = 0 then we're done. 
*
		ldy	#fcr_peof
		lda	[my_fcr_ptr],y
		iny
		iny
		ora	[my_fcr_ptr],y
		beq	done
*
* Setup the fcr block buffer information and mark the block buffer as empty.
*
 		jsr	update_block_buf
		bcs	exit
*
* Copy the block buffer information into the fcr.
*
		jsr	update_fcr		
*
* Indicate no error and exit.
*
done		clc				
exit		rts				

		ENDP
		
		eject
******************************************************************************
*
*	 Name:	setup_fcr_info
*
* Description:	Setup some fcr information.  
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<my_fcr_ptr - ptr to fcr
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..0 
*		B = K
*
*		type - fcr type
*		eof - logical eof 
*		file_mark - file mark 
*		block_mark - block buffer mark
*		block_num - # of physical block in block buffer
*		block_count - # physical blocks until end of extent
*		<block_buf_ptr - ptr to block buffer in fcr
*
*	 Uses:	all registers
*
*   Called by:	setup_call
*		build_fcr
*
*	Calls:	nothing
*
* Copyright Apple Computer, Inc. 1989-90  All rights reserved.
******************************************************************************

setup_fcr_info 	PROC
		with	data

*
* Get fcr type and save it.  Exit if fcr is not for a file.
*
		ldy	#fcr_type		
		lda	[my_fcr_ptr],y		;get fcr type
		sta	type			;and save
		cmp	#fcr_file_type		;is this fcr for a file?
		bne	exit			;no - so exit
*
* Get current leof.
*
		ldy	#fcr_leof		;get offset to leof
		lda	[my_fcr_ptr],y		;get lo word of leof
		sta	eof			;and save it
		iny				
		iny
		lda	[my_fcr_ptr],y		;get hi word of leof
		sta	eof+2			;and save it
*
* Get current file mark.
*
		ldy	#fcr_file_mark		;get offset to file mark
		lda	[my_fcr_ptr],y		;get lo word of file mark
		sta	file_mark		;and save it
		iny
		iny
		lda	[my_fcr_ptr],y		;get hi word of file mark
		sta	file_mark+2		;and save it
*
* Setup block_mark.
*
		ldy	#fcr_block_mark		;get offset to block mark
		lda	[my_fcr_ptr],y		;get block mark
		sta	block_mark		;and save it
*
* Setup block_num.
*
		ldy	#fcr_block_num		;get offset to block #
		lda	[my_fcr_ptr],y		;get lo word of block #
		sta	block_num		;and save it
		iny
		iny
		lda	[my_fcr_ptr],y		;get hi word of block #
		sta	block_num+2		;and save it
*
* Setup block_count.
*
		ldy	#fcr_block_count	;get offset to block count
		lda	[my_fcr_ptr],y		;get lo word of block count
		sta	block_count		;and save it
		iny
		iny
		lda	[my_fcr_ptr],y		;get hi word of block count
		sta	block_count+2		;and save it
*
* Create a ptr to the fcr block buffer and store it in <block_buf_ptr.
*
		clc				
		lda	<my_fcr_ptr		;get ptr to fcr
		adc	#fcr_block_buf		;add offset to block buffer
		sta	<block_buf_ptr		;to create ptr to block buffer
		lda	<my_fcr_ptr+2
		adc	#0
		sta	<block_buf_ptr+2
*
* Indicate no error and exit.
*
exit		clc
 		rts				

		ENDP
		
		eject
******************************************************************************
*
*	 Name:	update_fcr
*
* Description:	Updates fcr_file_mark, fcr_block_mark, fcr_block_num, fcr_block_count.
*		
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<my_fcr_ptr - ptr to fcr
*		file_mark - new file mark
*		block_mark - new block buffer mark
*		block_num - # of physical block in block buffer
*		block_count - # physical blocks until end of extent
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..0
*		B = K
*
*	 Uses:	all registers
*
*   Called by:	read
*		write
*		set_mark
*		set_eof
*		build_fcr
*
*	Calls:	nothing
*
* Copyright Apple Computer, Inc. 1987-90  All rights reserved.
******************************************************************************

update_fcr	PROC
		with	data

*
* Put new file_mark in fcr.
*
		ldy	#fcr_file_mark		;get offset to field
		lda	file_mark		;get lo word of file_mark
		sta	[my_fcr_ptr],y		;store it
		iny				
		iny
		lda	file_mark+2		;get hi word
		sta	[my_fcr_ptr],y		;store it
*
* Put new block_mark in fcr.
*
		ldy	#fcr_block_mark		;get offset to field
		lda	block_mark		;get block_mark
		sta	[my_fcr_ptr],y		;store it
*
* Put new block_num in fcr.
*
		ldy	#fcr_block_num		;get offset to field
		lda	block_num		;get lo word of block_num
		sta	[my_fcr_ptr],y		;store lo word of block #
		iny				
		iny
		lda	block_num+2		;get hi word of block_num
		sta	[my_fcr_ptr],y		;store hi word or block #
*
* Put new block_count in fcr.
*
		ldy	#fcr_block_count	;get offset to field
		lda	block_count		;get lo word of block_count
		sta	[my_fcr_ptr],y		;store it
		iny				
		iny
		lda	block_count+2		;get hi word
		sta	[my_fcr_ptr],y		;store it
*
* Indicate no error and exit.
*
		clc				
		rts				

		ENDP
		
		eject
******************************************************************************
*
*	 Name:	ensure_file
*
* Description:	Checks the fcr type and returns an error if fcr is not for a file.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		type - fcr type
*
*      Output:	A = error code if carry set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*	 Uses:	all registers
*
*   Called by:	read
*		write
*		set_mark
*		get_mark
*		set_eof
*		get_eof
*
*	Calls:	nothing
*
* Copyright Apple Computer, Inc. 1989-90  All rights reserved.
******************************************************************************

ensure_file	PROC
		with	data

		lda	type			;get fcr type
		cmp	#fcr_file_type		;is this fcr for a file?
		bne	error			;no - so return an error
		clc				;yes - so indicate no error
		rts				;and exit
		
error		lda	#bad_store_type		;return an error
		sec
		rts

		ENDP
		
		eject
******************************************************************************
*
*	 Name:	check_access
*
* Description:	Checks the fcr access and returns an error if 'write' access
*		is not allowed.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<my_fcr_ptr - ptr to fcr
*
*      Output:	A = error code if carry set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*	 Uses:	all registers
*
*   Called by:	write
*		set_eof
*
*	Calls:	nothing
*
* Copyright Apple Computer, Inc. 1989-90  All rights reserved.
******************************************************************************

check_access	PROC
		with	data

*
* Check the access word in the fcr. Return an error if 'write' access is not allowed.   
*
		ldy	#fcr_access		
		lda	[my_fcr_ptr],y		;get access word from fcr
		and	#write_access		;is 'write' access allowed?
		beq	error			;no - so return an error
		clc				;yes - so indicate no error
		rts				;and exit
		
error		lda	#invalid_access		;return an error
		sec
		rts

		ENDP
		
		eject
******************************************************************************
*
*	 Name:	is_file_unlocked
*
* Description:	Determines if the file/dir is unlocked and therefore modifiable.
*		Returns an error if the file is locked.
*		Note - Directories are always unlocked.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<a1 - ptr to Catalog Record for file/dir
*		record_type - Catalog Record type
*
*      Output:	A = error code if carry set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*	 Uses:	all registers
*
*   Called by:	destroy
*		change_path
*
*	Calls:	nothing
*
* Copyright Apple Computer, Inc. 1989-90  All rights reserved.
******************************************************************************

is_file_unlocked PROC
		with	data

*
* If we're dealing with a directory, then we're done since dirs are never locked.
*
		lda	record_type		;are we dealing with a dir?
		cmp	#cat_dir_type
		beq	done			;yes - so done
*
* We're dealing with a file.
* Get the flags field from the Catalog Record. Return an error if the locked bit is set.
*
		ldy	#fil_flags		;get offset to file flags byte
 		lda	[a1],y			;get flags
		and	#locked_bit		;is the locked bit set?
		bne	error			;yes - so return an error
*
* Indicate no error and exit
*
done		clc				;indicate no error			
		rts				;exit

*
* Return an error.
*
error		lda	#invalid_access		;put error code in A
		sec				;indicate error
		rts				;exit
		
		ENDP
		
		eject
******************************************************************************
*
*	 Name:	is_file_closed
*
* Description:	Determines if the specified file/dir is currently open or closed.
*		Returns an error if the file/dir is open.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<my_vcr_ptr - ptr to vcr
*		<a1 - ptr to Catalog Record for file/dir
*		record_type - Catalog Record type
*		id - id of file/dir
*
*      Output:	A = error code if carry set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*	 Uses:	all registers
*		<my_fcr_ptr
*
*   Called by:	destroy
*		change_path
*
*	Calls:	look_for_fcr
*
* Copyright Apple Computer, Inc. 1989-90  All rights reserved.
******************************************************************************

is_file_closed 	PROC
		with	data

*
* Look for an FCR for the specified file/dir. If we find one, report an error.
* 
		jsr	look_for_fcr		;look for an fcr for the file/dir
		bcs	not_open		;we didn't find one
*
* We found an fcr for the file/dir so report an error.
*
 		lda	#file_busy		;put error code in A
		sec				;indicate error
		rts				;exit

*
* We didn't find an fcr for the file/dir so indicate no error and exit.
*
not_open	clc						
		rts			

		ENDP
		
		eject
******************************************************************************
*
*	 Name:	look_for_fcr
*
* Description:	Walks the FCR list looking for an FCR for the specified file/dir.   
*		If an FCR for the file/dir is not found, an error is returned. 
*
*	Note:	This routine contains an alternate entry point (look_for_fcr2)
*		which does not initialize the starting fcr index.  This is used
*		when we need to find all fcrs for a specified file.  After look_for_fcr 
*		is called to find the first fcr, look_for_fcr2 can be called in a 
*		loop to find all other fcrs for the file.
*		
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<my_vcr_ptr - ptr to vcr
*		<a1 - ptr to Catalog Record for file/dir
*		record_type - Catalog Record type
*		id - id of file/dir
*
*      Output:	A = error code if carry set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*		<my_fcr_ptr - ptr to last fcr checked
*		fcr_index - index of last fcr checked
*
*	 Uses:	all registers
*		fcr_index
*		<my_fcr_ptr
*
*   Called by:	is_file_closed
*		get_cat_info
*
*	Calls:	get_fcr			(system service)
*		deref			(system service)
*
* Copyright Apple Computer, Inc. 1989-90  All rights reserved.
******************************************************************************

look_for_fcr 	PROC
		with	data

		stz	fcr_index		;initialize starting fcr index
		
		EXPORT	look_for_fcr2
look_for_fcr2
*
* Walk the FCR list looking for an FCR for the specified file/dir. 
* Return an error if an FCR for the file/dir is not found.
* 
fcr_loop	inc	fcr_index		;increment fcr index
		lda	fcr_index
		jsl	get_fcr			;get next fcr
		bcs	exit
		
		jsl	deref			;derefence fcr vp
		stx	<my_fcr_ptr		;and store fcr ptr
		sty	<my_fcr_ptr+2
		
		ldy	#fcr_vol_id		
		lda	[my_fcr_ptr],y		;get volume id from fcr
		cmp	[my_vcr_ptr]		;is it the correct volume?
		bne	fcr_loop		;no - so loop
		
		ldy	#fcr_type
		lda	[my_fcr_ptr],y		;get fcr type
		cmp	record_type		;is it the correct type?
		bne	fcr_loop		;no - so loop

		ldy	#fcr_id
		lda	[my_fcr_ptr],y		;get lo word of file/dir id from fcr
		cmp	id			;match?
		bne	fcr_loop		;no - so loop
		iny
		iny
		lda	[my_fcr_ptr],y		;get hi word of file/dir id from fcr
		cmp	id+2			;match?
		bne	fcr_loop		;no - so loop
*
* We found an fcr for the file/dir so indicate no error and exit.
*
		clc						
exit		rts			
		
		ENDP

		eject
******************************************************************************
*
*	 Name:	fill_block_buf
*
* Description:	Checks to see if the fcr block buffer is empty, and if so,
*		reads a block in from disk.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<my_fcr_ptr - ptr to fcr
*		block_num - # of physical block in block buffer
*		<block_buf_ptr - ptr to block buffer in fcr
*
*      Output:	A = error code if error
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*	 Uses:	all registers
*
*   Called by:	read
*		write
*
*	Calls:	block_buf_read
*
* Copyright Apple Computer, Inc. 1989-90  All rights reserved.
******************************************************************************

fill_block_buf	PROC
		with	data

*
* Check to see if the fcr block buffer is empty.  Exit if not.
*
		clc				;clear carry
		ldy	#fcr_flags		
		lda	[my_fcr_ptr],y		;get flag word
		and	#buf_empty_bit		;is the block buffer empty?
		beq	exit			;no - so exit with carry clear
*
* The block buffer is empty so read the block in from disk.
* 
		jsr	block_buf_read		
exit		rts

		ENDP
		
		eject
******************************************************************************
*
*	 Name:	flush_block_buf
*
* Description:	Checks to see if the fcr block buffer is dirty, and if so,
*		writes the block out to disk.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<my_fcr_ptr - ptr to fcr
*		block_num - # of physical block in block buffer
*		<block_buf_ptr - ptr to block buffer in fcr
*
*      Output:	A = error code if error
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*	 Uses:	all registers
*
*   Called by:	flush
*		read
*		write
*		update_block_buf
*
*	Calls:	block_buf_write
*
* Copyright Apple Computer, Inc. 1990  All rights reserved.
******************************************************************************

flush_block_buf	PROC
		with	data

*
* Check to see if the fcr block buffer is dirty. Exit if not.
*
		clc				;clear carry
		ldy	#fcr_flags		
		lda	[my_fcr_ptr],y		;get flag word
		and	#buf_dirty_bit		;is the block buffer dirty?
		beq	exit			;no - so exit with carry clear 
*
* The block buffer is dirty so write the block out to disk.
* 
		jsr	block_buf_write		;write the block out to disk
exit		rts

		ENDP
		
		eject
******************************************************************************
*
*	 Name:	update_block_buf
*
* Description:	Converts the current file mark into physical block information.
*		If the block num has changed, then the fcr block buffer is flushed
*		and the buffer is marked as empty.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<my_fcr_ptr - ptr to fcr
*		file_mark - file mark 
*		block_mark - block buffer mark
*		block_num - # of physical block in block buffer
*		block_count - # physical blocks until end of extent
*		<block_buf_ptr - ptr to block buffer in fcr
*
*      Output:	A = error code if error
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*		block_mark - block buffer mark
*		block_num - physical block #
*		block_count - # physical blocks until end of extent
*
*	 Uses:	all registers
*
*   Called by:	build_fcr
*		set_mark
*		set_eof
*
*	Calls:	log2phys
*		flush_block_buf
*		update_empty_bit
*
* Copyright Apple Computer, Inc. 1990  All rights reserved.
******************************************************************************

update_block_buf PROC
		with	data

*
* Convert current file_mark into physical block information.
* Setup new block_num, block_count and block_mark.
* 
		jsr	log2phys
* 
* Compare new block_num to fcr_block_num to see if the block has changed.
* 
		ldy	#fcr_block_num 		;get offset to block num in fcr
		lda	block_num		;get lo word of new block #
		cmp	[my_fcr_ptr],y		;same as lo word of old block #?
		bne	changed			;no
		iny				;yes	
		iny
		lda	block_num+2		;get hi word of new block #
		cmp	[my_fcr_ptr],y		;same as hi word of old block #?
		beq	done			;yes - so done
*
* The block # has changed, so flush the block buffer and mark the buffer as empty.
*
changed		jsr	flush_block_buf
		bcs	exit
		sec				
		jsr	update_empty_bit	
*
* Indicate no error and exit.
*
done		clc
exit		rts
		
		ENDP
		
		eject
******************************************************************************
*
*	 Name:	update_empty_bit
*
* Description:	Sets/clears buf_empty_bit based on the carry flag.
*		The A-register and the carry flag are returned unchanged.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = error code if error
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*		<my_fcr_ptr - ptr to fcr
*
*      Output:	A = unchanged
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*	 Uses:	all registers
*
*   Called by:	block_buf_read
*		data_buf_read
*		update_block_buf
*
*	Calls:	nothing
*
* Copyright Apple Computer, Inc. 1989-90  All rights reserved.
******************************************************************************

update_empty_bit PROC
		with	data

*
* Set buf_empty_bit if carry set, else clear it.
*
		tax				;save error code
		ldy	#fcr_flags		;get offset to fcr_flags
		lda	[my_fcr_ptr],y		;get the flags word
		bcs	set_it			
		and	#buf_empty_mask		;clear the bit
		bra	store_it
		
set_it		ora	#buf_empty_bit		;set the bit
store_it	sta	[my_fcr_ptr],y		;save new flags word
		txa				;recover error code
		rts				;exit

		ENDP

		eject
******************************************************************************
*
*	 Name:	update_dirty_bit
*
* Description:	Sets/clears buf_dirty_bit based on the carry flag.
*		The A-register and the carry flag are returned unchanged.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = error code if error
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*		<my_fcr_ptr - ptr to fcr
*
*      Output:	A = unchanged
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*	 Uses:	all registers
*
*   Called by:	write
*		block_buf_write
*
*	Calls:	nothing
*
* Copyright Apple Computer, Inc. 1990  All rights reserved.
******************************************************************************

update_dirty_bit PROC
		with	data

*
* Set buf_dirty_bit if carry set, else clear it.
*
		tax				;save error code
		ldy	#fcr_flags		;get offset to fcr_flags
		lda	[my_fcr_ptr],y		;get the flags word
		bcs	set_it			
		and	#buf_dirty_mask		;clear the bit
		bra	store_it
		
set_it		ora	#buf_dirty_bit		;set the bit
store_it	sta	[my_fcr_ptr],y		;save new flags word
		txa				;recover error code
		rts				;exit

		ENDP

		eject
******************************************************************************
*
*	 Name:	gbuf_read
*		gbuf_write
*
* Description:	Reads one physical block from disk into the general purpose buffer.
*		Writes one physical block to disk from the general purpose buffer .
*
*	Entry:	jsr
*
*	 Exit:	jmp do_rw_call
*
*	Input:	A = undefined
*		X = low	word of	physical block #
*		Y = high word of physical block #
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<drvr_dev_num - device number to access 
*		<gbuf_ptr - ptr to 512 byte general purpose buffer
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<drvr_blk_num - physical block number
*		<drvr_req_cnt - # of bytes to read/write
*		<drvr_buf_ptr - points to general purpose buffer
*
*	 Uses:	all registers
*		<drvr_cache
*
*   Called by:	id_disk		(read)
*		build_vcr	(read)
*		update_vib	(read, write)
*		update_alt_vib	(read, write)
*		update_bth	(read, write)
*
*	Calls:	setup_call_num
*		do_rw_call
*
* Copyright Apple Computer, Inc. 1989-90  All rights reserved.
******************************************************************************

gbuf_read	PROC
		with	data

		clc
		bra	common
	
		EXPORT	gbuf_write
gbuf_write
		sec
common		jsr	setup_call_num		;setup call number

*
* Turn on caching.
*
		lda	#cache_on		
		sta	<drvr_cache		
*
* Set the driver block #.
*
		stx	<drvr_blk_num		
		sty	<drvr_blk_num+2		
*
* Set the request count.
*
		lda	#phys_blk_size
		sta	<drvr_req_cnt		
		stz	<drvr_req_cnt+2
*
* Set the buffer ptr.
*
		lda	<gbuf_ptr		
		sta	<drvr_buf_ptr		
		lda	<gbuf_ptr+2		
		sta	<drvr_buf_ptr+2		
*
* Do the read/write.
*
		jmp	do_rw_call		

		ENDP
		
		eject
******************************************************************************
*
*	 Name:	block_buf_read
*
* Description:	Reads one physical block from disk into the fcr's block buffer.
*		Sets/clears buf_empty_bit depending on results of read call.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<drvr_dev_num - device number to access 
*		block_num - physical block # to read
*		<block_buf_ptr - ptr to block buffer in fcr
*		cache_priority - cache priority flag
*
*      Output:	A = error code if error
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*	 Uses:	all registers
*		<drvr_cache
*
*   Called by:	read		
*		write		
*		fill_block_buf	
*
*	Calls:	setup_call_num
*		do_rw_call
*		update_empty_bit
*
* Copyright Apple Computer, Inc. 1989-90  All rights reserved.
******************************************************************************

block_buf_read	PROC
		with	data

		clc
 		jsr	setup_call_num		;setup call number
*
* Turn caching on/off using the cache_priority input parameter.
* Default = off.
*
		lda	cache_priority		
		sta	<drvr_cache		
*
* Set the driver block #.
*
 		lda	block_num
		sta	<drvr_blk_num		
		lda	block_num+2
		sta	<drvr_blk_num+2		
*
* Set the request count.
*
		lda	#phys_blk_size
		sta	<drvr_req_cnt		
		stz	<drvr_req_cnt+2
*
* Set the buffer ptr.
*
		lda	<block_buf_ptr		
		sta	<drvr_buf_ptr		
		lda	<block_buf_ptr+2		
		sta	<drvr_buf_ptr+2		
*
* Do the read.
*
		jsr	do_rw_call
*
* Set/clear buf_empty_bit depending on the results of the read call.
*		
		jsr	update_empty_bit		
 		rts

		ENDP
		
		eject
******************************************************************************
*
*	 Name:	block_buf_write
*
* Description:	Writes one physical block to disk from the fcr's block buffer.
*		Sets/clears buf_dirty_bit depending on results of write call.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<drvr_dev_num - device number to access 
*		<my_fcr_ptr - ptr to fcr
*		<block_buf_ptr - ptr to block buffer in fcr
*		cache_priority - cache priority flag
*
*      Output:	A = error code if error
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*	 Uses:	all registers
*		<drvr_cache
*
*   Called by:	flush_block_buf	
*
*	Calls:	setup_call_num
*		do_rw_call
*		update_dirty_bit
*
* Copyright Apple Computer, Inc. 1989-90  All rights reserved.
******************************************************************************

block_buf_write	PROC
		with	data

		sec
 		jsr	setup_call_num		;setup call number
*
* Turn caching on/off using the cache_priority input parameter.
* Default = off.
*
		lda	cache_priority		
		sta	<drvr_cache		
*
* Set the driver block #.
*
		ldy	#fcr_block_num
 		lda	[my_fcr_ptr],y
		sta	<drvr_blk_num
		iny
		iny
 		lda	[my_fcr_ptr],y
		sta	<drvr_blk_num+2		
*
* Set the request count.
*
		lda	#phys_blk_size
		sta	<drvr_req_cnt		
		stz	<drvr_req_cnt+2
*
* Set the buffer ptr.
*
		lda	<block_buf_ptr		
		sta	<drvr_buf_ptr		
		lda	<block_buf_ptr+2		
		sta	<drvr_buf_ptr+2		
*
* Do the write.
*
		jsr	do_rw_call
*
* Set/clear buf_dirty_bit depending on the results of the write call.
*		
		jsr	update_dirty_bit		
 		rts

		ENDP
		
		eject
******************************************************************************
*
*	 Name:	data_buf_read
*		data_buf_write
*
* Description:	Reads as many physical blocks as possible in one driver call   
*		directly into the caller's data buffer from disk.
* 		Writes as many blocks as possible in one driver call directly  
*		to disk from the caller's data buffer.
*		Sets buf_empty_bit to indicate that the fcr block buffer is empty.
*		Updates block_num, block_count and block_mark to the correct values.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<drvr_dev_num - device number to access 
*		<data_buf_ptr - points to caller's data buffer
*		bytes_left - # bytes until request satisfied
*		file_mark - current file mark
*		block_mark - block buffer mark
*		block_num - # of next physical block in file
*		block_count - # physical blocks until end of extent
*		cache_priority - cache priority flag
*
*      Output:	A = error code if error
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*		xfer_count - # bytes read/written
*		block_mark - set to 512
*		block_num - # of last physical block read/written
*		block_count - # physical blocks until end of extent
*
*	 Uses:	all registers
*		<drvr_cache
*		num_blocks
*
*   Called by:	read
*		write
*
*	Calls:	setup_call_num
*		do_rw_call
*		update_empty_bit		
*
* Copyright Apple Computer, Inc. 1989-90  All rights reserved.
******************************************************************************

data_buf_read	PROC
		with	data

		clc
		bra	common
		
		EXPORT	data_buf_write
data_buf_write	

		sec
common		jsr	setup_call_num		;setup call number

*
* Turn caching on/off using the cache_priority input parameter.
* Default = off.
*
		lda	cache_priority		
		sta	<drvr_cache		
*
* Set buf_empty_bit to indicate that the fcr block buffer is empty.
*
		sec
		jsr	update_empty_bit		
*
* Convert bytes_left from bytes to physical blocks and store in num_blocks.
*
 		lda	bytes_left
		sta	num_blocks		
		lda	bytes_left+2
		sta	num_blocks+2

		ldx	#9			;# of bits to shift		
loop1		lsr	num_blocks+2		;divide by 512 to convert
		ror	num_blocks		;from bytes to physical blocks
		dex
		bne	loop1
*		
* If num_blocks > block_count, set num_blocks = block_count.
*
		lda	num_blocks+2
		cmp	block_count+2		;is num_blocks > block_count?
		bcc	num_ok			;no
		bne	too_big			;yes
		lda	num_blocks
		cmp	block_count		
		bcc	num_ok			;no
too_big		lda	block_count		;yes - so set num_blocks = block_count
		sta	num_blocks
		lda	block_count+2
		sta	num_blocks+2
num_ok
*
* Set xfer_count = num_blocks * phys_blk_size.
*
 		lda	num_blocks
		sta	xfer_count		
		lda	num_blocks+2
		sta	xfer_count+2

		ldx	#9			;# of bits to shift		
loop2		asl	xfer_count 		;multiply by 512 to convert
		rol	xfer_count+2		;from physical blocks to bytes
		dex
		bne	loop2
*
* Set the driver block #.
*
 		lda	block_num
		sta	<drvr_blk_num		
		lda	block_num+2
		sta	<drvr_blk_num+2		
*
* Set the request count.
*
 		lda	xfer_count		
		sta	<drvr_req_cnt		
		lda	xfer_count+2
		sta	<drvr_req_cnt+2
*
* Set the buffer ptr.
*
		lda	<data_buf_ptr		
		sta	<drvr_buf_ptr		
		lda	<data_buf_ptr+2		
		sta	<drvr_buf_ptr+2		
*
* Do the read/write.
*
		jsr	do_rw_call
		bcs	exit
*
* Update block_num, block_count and block_mark to the correct values.
*
		lda	#phys_blk_size
		sta	block_mark		;block_mark = 512
		
		sec				;zero adjust num_blocks 
		lda	num_blocks
		sbc	#1
		sta	num_blocks
		lda	num_blocks+2
		sbc	#0
		sta	num_blocks+2

		clc				;block_num = block_num + num_blocks
		lda	block_num
		adc	num_blocks
		sta	block_num
		lda	block_num+2
		adc	num_blocks+2
		sta	block_num+2

		sec				;block_count = block_count - num_blocks
		lda	block_count
		sbc	num_blocks
		sta	block_count
		lda	block_count+2
		sbc	num_blocks+2
		sta	block_count+2
*
* Indicate no error and exit.
*
		clc						
exit		rts				

		ENDP
		
		eject
******************************************************************************
*
*	 Name:	node_buf_read
*		node_buf_write
*
* Description:	Reads a node from disk into the node buffer pointed to by <A0.
*		Writes a node to disk from the node buffer pointed to by <A0.
*
*	Entry:	jsr
*
*	 Exit:	jmp do_rw_call
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<drvr_dev_num - device number to access 
*		<a0 - ptr to node buffer
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<drvr_blk_num - physical block number
*		<drvr_req_cnt - # of bytes to read/write
*		<drvr_buf_ptr - points to node buffer
*
*	 Uses:	all registers
*		<drvr_cache
*
*   Called by:	bt_get_node	(read)
*		bt_rel_node	(write)
*
*	Calls:	setup_call_num
*		do_rw_call
*
* Copyright Apple Computer, Inc. 1990  All rights reserved.
******************************************************************************

node_buf_read	PROC
		with	data

		clc
		bra	common
		
		EXPORT	node_buf_write
node_buf_write	

		sec
common		jsr	setup_call_num		;setup call number

*
* Turn on caching.
*
		lda	#cache_on		
		sta	<drvr_cache		
*
* Set the driver block #.
*
		ldy	#node_loc		
		lda	[a0],y			;get the node's location on disk
		sta	<drvr_blk_num		;and set the driver block #
		iny
		iny
		lda	[a0],y
		sta	<drvr_blk_num+2		
*
* Set the request count.
*
		lda	#node_size
		sta	<drvr_req_cnt				
		stz	<drvr_req_cnt+2
*
* Set the buffer ptr.
*
		lda	<a0			
		sta	<drvr_buf_ptr		
		lda	<a0+2		
		sta	<drvr_buf_ptr+2		
*
* Do the read/write.
*
		jmp	do_rw_call		

		ENDP
		
		eject
******************************************************************************
*
*	 Name:	bitmap_buf_read	
*		bitmap_buf_write
*
* Description:	Reads a bitmap block from disk into the bitmap buffer pointed to by <A0.
* 		Writes a bitmap block to disk from the bitmap buffer pointed to by <A0.
*
*	Entry:	jsr
*
*	 Exit:	jmp do_rw_call
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<drvr_dev_num - device number to access
*		<my_vcr_ptr - ptr to vcr
*		<a0 - ptr to bitmap buffer
*		d5 - bitmap block #
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<drvr_blk_num - physical block number
*		<drvr_req_cnt - # of bytes to read/write
*		<drvr_buf_ptr - points to bitmap buffer
*
*	 Uses:	all registers
*		<drvr_cache
*
*   Called by:	get_bitmap_bit	(read)
*		get_next_word	(read, write)
*		update_bitmap	(write)
*
*	Calls:	setup_call_num
*		do_rw_call
*
* Copyright Apple Computer, Inc. 1990  All rights reserved.
******************************************************************************

bitmap_buf_read	PROC
		with	data

		clc
		bra	common
		
		EXPORT	bitmap_buf_write
bitmap_buf_write 

		sec
common		jsr	setup_call_num		;setup call number

*
* Turn on caching.
*
		lda	#cache_on		
		sta	<drvr_cache		
*
* Set the driver block #.
*
		clc
		ldy	#vcr_vbm_start
		lda	[my_vcr_ptr],y		;get the phys block # of start of bitmap
		adc	d5			;add to the bitmap block #
		sta	<drvr_blk_num		;and store
		stz	<drvr_blk_num+2		
*
* Set the request count.
*
		lda	#phys_blk_size
		sta	<drvr_req_cnt		
		stz	<drvr_req_cnt+2
*
* Set the buffer ptr.
*
		lda	<a0		
		sta	<drvr_buf_ptr		
		lda	<a0+2		
		sta	<drvr_buf_ptr+2		
*
* Do the read/write.
*
		jmp	do_rw_call		

		ENDP
		
		eject
******************************************************************************
*
*	 Name:	setup_call_num
*
* Description:	Sets up	<drvr_call_num for a read or write call based on 
*		the carry flag.  
*
*	Entry:	jsr 
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined  
*		P = nvmxdizc
*		    ..000..0 - read call
*			   1 - write call
*		B = K
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined  
*		P = nvmxdizc
*		    ..000..0
*		B = K
*
*		<drvr_call_num - command number
*
*	 Uses:	all registers
*
*   Called by:	gbuf_read
*		block_buf_read
*		data_buf_read
*		node_buf_read
*		bitmap_buf_read
*   		gbuf_write
*		block_buf_write
*		data_buf_write
*		node_buf_write
*		bitmap_buf_write
*
*	Calls:	nothing
*
* Copyright Apple Computer, Inc. 1990  All rights reserved.
******************************************************************************

setup_call_num 	PROC
		with	data

		bcs	its_write
		lda	#drvr_read
		bra	store_it
		
its_write	lda	#drvr_write		
store_it	sta	<drvr_call_num

		clc
		rts
		
		ENDP
		
		eject
******************************************************************************
*
*	 Name:	do_rw_call
*
* Description:	Calls the device dispatcher to do a read or write call. 
*		Handles disk switched and offline errors.	
*
*	Entry:	jsr or jmp
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		id_disk_flag - 1 if id_disk routine active, else 0
*		<my_vcr_ptr - ptr to vcr
*		<drvr_dev_num - device	number to access
*		<drvr_call_num - call number
*		<drvr_buf_ptr - buffer	pointer
*		<drvr_req_cnt - request count 
*		<drvr_blk_num - block number 
*		<drvr_cache - cache priority
*
*      Output:	A = error code if carry	set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*		write_occurred - set to non-zero value if we did a write call
*		write_dev_num - device number written to if we did a write call
*
*	 Uses:	all registers
*		<drvr_cache
*		<drvr_fst_num
*		<drvr_blk_size
*		<drvr_vol_id
*
*   Called by:	gbuf_read
*		block_buf_read
*		data_buf_read
*		node_buf_read
*		bitmap_buf_read
*   		gbuf_write
*		block_buf_write
*		data_buf_write
*		node_buf_write
*		bitmap_buf_write
*
*	Calls:	find_our_volume
*		dev_dispatcher		(system service)
*
* Copyright Apple Computer, Inc. 1987-90  All rights reserved.
******************************************************************************

do_rw_call	PROC
		with	data

*
* Set the fst id.
*
		lda	#hfs_id			;get id for HFS FST
		sta	<drvr_fst_num		;set fst id
*
* Set the block size.
*
		lda	#phys_blk_size		
		sta	<drvr_blk_size		;set block size
*
* If we're doing a Write then indicate that a Write has occurred during the current
* application call, save the device # we're writing to, turn on deferred writing,
* set drvr_vol_id, and bump the write count in the vcr.
* Note - deferred writing will only take effect if Sessions are enabled.
*
		lda	<drvr_call_num		;get call #
		cmp	#drvr_write		;are we doing a write call?
		bne	not_write		;no
		
		sta	write_occurred		;indicate that a write occurred
		lda	<drvr_dev_num		;get device # we're writing to
		sta	write_dev_num		;and save it
		
		lda	<my_vcr_ptr		;do we have a vcr?
		ora	<my_vcr_ptr+2
		beq	no_vcr			;no
		
		lda	<drvr_cache		;get cache priority
		ora	#deferred_on		;turn on deferred writing
		sta	<drvr_cache		;and store new cache priority

		lda	[my_vcr_ptr]		;set volume id 
		sta	<drvr_vol_id		;(needed for deferred writing)
		
		ldy	#vcr_write_cnt		;bump write count in vcr
		clc
		lda	[my_vcr_ptr],y
		adc	#1
		sta	[my_vcr_ptr],y
		iny
		iny
		lda	[my_vcr_ptr],y
		adc	#0
		sta	[my_vcr_ptr],y
no_vcr
not_write
*
* Call the device dispatcher.  
* Exit if no error, or if error is not 'disk switched' or 'driver offline'. 
* If we got a 'disk switched' error and we were called from id_disk then retry.
* If we got a 'driver offline' error and we were called from id_disk then exit.
* If we got a 'disk switched' or 'driver offline' error and we were not called from
* id_disk and we have a non-zero vcr ptr, then try to recover.
*
re_try		jsl	dev_dispatcher		;do the call
		bcc	exit			
		
		pha				;save error
		cmp	#drvr_disk_sw		;disk switched error?
		bne	not_disk_sw		;no
		lda	id_disk_flag		;yes, is id_disk_flag set?
		beq	check_vcr		;no - so continue
		pla				;yes - so clean up stack
		bra	re_try			;and try again
		
not_disk_sw	cmp	#drvr_off_line		;offline error?
		bne	error			;no - so return the error
		lda	id_disk_flag		;Yes, is id_disk_flag set?
		bne	error			;Yep, so exit with error.
check_vcr	lda	<my_vcr_ptr		;do we have a non-zero vcr ptr?
		ora	<my_vcr_ptr+2
		bne	save_state		;yes - so let's see if we can recover

error		pla				;Get error code.
		sec				;Make sure carry set.
exit		rts				;Exit.

*
* We got a 'disk switched' or 'driver offline' error, so let's try to recover. 
* Save the driver direct page space since it may be modified by find_our_volume.
*
save_state	pla				;fix stack

		ldx	#len_drvr_dp-2		
drvr_dp_loop	lda	<start_drvr_dp,x
		sta	saved_drvr_dp,x
		dex
		dex
		bpl	drvr_dp_loop
*
* Call find_our_volume and save	error code and status.
*
		jsr	find_our_volume		;Go look for it.
		php				;Save status.
		pha				;Save error code.
*
* Restore the driver direct page space.
*
		ldx	#len_drvr_dp-2		
drvr_dp_loop2	lda	saved_drvr_dp,x
		sta	<start_drvr_dp,x
		dex
		dex
		bpl	drvr_dp_loop2

*
* Recover call status and error	code.  Re-try call if no error,	else exit.
*
		pla				;Recover error code.
		plp				;Recover status.
		bcs	exit			;Exit if error.
		jmp	re_try			;No error, so re-try call.

		ENDP
		
		eject
******************************************************************************
*
*	 Name:	transfer_r_data
*
* Description:	Transfers data from fcr's block buffer to caller's data buffer.
*		Handles newline checking.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<block_buf_ptr - ptr to fcr's block buffer
*		<data_buf_ptr - ptr to caller's data buffer
*		newline_flag - 0
*		newline_mask - mask for newline character
*		newline_ptr - pointer to newline table (if newline enabled)
*		newline_length - length	of newline table (if newline enabled)
*		newline_char - first byte of newline table (if newline enabled)
*		eof - end of file
*		file_mark - current file mark
*		block_mark - current block buffer mark
*		bytes_left - # bytes till satisfy request
*		transfer_count - # bytes already transfered
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..0 
*		B = K
*
*		xfer_count - # of bytes transfered
*		newline_flag - 1 if we hit a newline character, else 0
*		block_mark - new block buffer mark
*
*	 Uses:	all registers
*		<temp0
*		<temp1
*
*   Called by:	read	
*
*	Calls:	move_info		(system service)
*
* Copyright Apple Computer, Inc. 1987-90  All rights reserved.
******************************************************************************

transfer_r_data	PROC
		with	data

src_ptr		equ	temp0			;local equates
list_ptr	equ	temp1

*
* Init xfer_count to 0.
*
		stz	xfer_count
		stz	xfer_count+2
*
* If block_mark = phys_blk_size then there is nothing left in buffer to transfer so exit.
*
		lda	block_mark		;get block_mark
		cmp	#phys_blk_size		;are we at the end of the block?
		bne	mark_ok			;no - so continue
		brl	exit			;yes - so exit
mark_ok
*
* Set src_ptr = <block_buf_ptr + block_mark.
*
		clc				
		adc	<block_buf_ptr
		sta	<src_ptr
		lda	#0
		adc	<block_buf_ptr+2
		sta	<src_ptr+2
*
* Set xfer_count = phys_blk_size - block_mark.
*
		sec				
		lda	#phys_blk_size		
		sbc	block_mark		
		sta	xfer_count		
*
* If bytes_left	<= xfer_count then set xfer_count = bytes_left.
*
		ldx	bytes_left+2		;is bytes_left <= xfer_count?
		bne	count_ok		;no 
		cmp	bytes_left		
		bcc	count_ok		;no 
		lda	bytes_left		;yes - so set xfer_count = bytes_left
		sta	xfer_count
count_ok
*
* Check if newline is enabled.
*
		lda	newline_mask		;is newline enabled?
		beq	fast_xfer		;no - so go fast
*
* We have to watch for newline.
* Set 8-bit A.  Decrement newline_length.  Branch if only 1 newline character.
*
		lda	newline_ptr		;copy newline_ptr to direct page
		sta	<list_ptr
		lda	newline_ptr+2
		sta	<list_ptr+2
		
		longa	off			;set 8 bit A
		sep	#$20

		dec	newline_length		;point to last byte of newline table
		beq	medium_xfer		;branch if only 1 newline char
*
* We have more then 1 newline character so we'll slow to a crawl and check each byte 
* against the entire newline list after we transfer it.
*
		ldy	#0			;init offset
slow_loop	lda	[src_ptr],y		;get byte
		sta	[data_buf_ptr],y	;store byte
		and	newline_mask		;mask it
		tyx				;save offset
		ldy	newline_length		;point to end of newline list
newline_loop	cmp	[list_ptr],y		;match byte?
		beq	hit_newline1		;yes
		dey				;no - checked whole list?
		bpl	newline_loop		;no - so loop
		txy				;yes - so recover offset
		iny				;bump it
		cpy	xfer_count		;done all?
		bne	slow_loop		;no - so loop
		bra	restore_a		;yes - so continue
		
*
* We only have to look at one newline character. Do the transfer.
*
medium_xfer	ldy	#0			;init offset
medium_loop	lda	[src_ptr],y		;get byte
		sta	[data_buf_ptr],y	;store byte
		and	newline_mask		;mask it
		cmp	newline_char		;match newline?
		beq	hit_newline2		;yes
		iny				;no, bump offset
		cpy	xfer_count		;done all?
		bne	medium_loop		;no - so loop
		bra	restore_a		;yes - so continue
		
*
* We hit a newline character. 
* Set xfer_count to current offset + 1 and set newline_flag.
*
hit_newline1	txy				;retrieve offset
hit_newline2	iny				;bump offset by 1
		sty	xfer_count		;set xfer_count
		inc	newline_flag		;set newline_flag
*
* Restore 16-bit A.  Restore newline_length.  Branch to finish_up.
*
		longa	on			
restore_a	rep	#$20			;set 16	bit A

		inc	newline_length		;restore length
		bra	finish_up		;branch
		
*
* We don't have to check for newline so use move_info to move data into data_buffer.
*
fast_xfer	pei	<src_ptr+2		;push source pointer
		pei	<src_ptr
		pei	<data_buf_ptr+2		;push destination pointer
		pei	<data_buf_ptr
		pea	0			;push transfer request count
		lda	xfer_count
		pha
		pea	move_sinc_dinc
		jsl	move_info		;do the move
*
* Ok, we've moved the data, now set block_mark = block_mark + xfer_count. 
*
finish_up	clc				;block_mark = block_mark + xfer_count			
		lda	block_mark
		adc	xfer_count
		sta	block_mark
*
* Indicate no error and exit.
*
exit		clc
 		rts
		
		ENDP
		
		eject
******************************************************************************
*
*	 Name:	transfer_w_data
*
* Description:	Transfers data from caller's data buffer to fcr's block buffer.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<block_buf_ptr - ptr to fcr's block buffer
*		<data_buf_ptr - ptr to caller's data buffer
*		eof - end of file
*		file_mark - current file mark
*		block_mark - current block buffer mark
*		bytes_left - # bytes till satisfy request
*		transfer_count - # bytes already transfered
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..0 
*		B = K
*
*		xfer_count - # of bytes transfered
*		block_mark - new block buffer mark
*
*	 Uses:	all registers
*
*   Called by:	write	
*
*	Calls:	move_info		(system service)
*
* Copyright Apple Computer, Inc. 1990  All rights reserved.
******************************************************************************

transfer_w_data	PROC
		with	data

*
* Init xfer_count to 0.
*
		stz	xfer_count
		stz	xfer_count+2
*
* If block_mark = phys_blk_size then buffer is full so exit.
*
		lda	block_mark		;get block_mark
		cmp	#phys_blk_size		;are we at the end of the block?
		beq	exit			;yes - so exit
*
* Set xfer_count = phys_blk_size - block_mark.
*
		sec				
		lda	#phys_blk_size		
		sbc	block_mark		
		sta	xfer_count		
*
* If bytes_left	<= xfer_count then set xfer_count = bytes_left.
*
		ldx	bytes_left+2		;is bytes_left <= xfer_count?
		bne	count_ok		;no 
		cmp	bytes_left		
		bcc	count_ok		;no 
		lda	bytes_left		;yes - so set xfer_count = bytes_left
		sta	xfer_count
count_ok
*
* Use move_info to move data from data_buffer into block_buffer.
*
		pei	<data_buf_ptr+2		;push source pointer
		pei	<data_buf_ptr
		
		clc				;dest ptr = block_buf_ptr + block_mark	
		lda	<block_buf_ptr		
		adc	block_mark
		tax	
		lda	<block_buf_ptr+2
		adc	#0
		pha				;push destination ptr
		phx

		pea	0			;push transfer request count
		lda	xfer_count
		pha
		pea	move_sinc_dinc
		jsl	move_info		;do the move
*
* Ok, we've moved the data, now set block_mark = block_mark + xfer_count. 
*
		clc				;block_mark = block_mark + xfer_count			
		lda	block_mark
		adc	xfer_count
		sta	block_mark
*
* Indicate no error and exit.
*
exit		clc
 		rts
		
		ENDP
		
		eject
******************************************************************************
*
*	 Name:	update_rw_info
*
* Description:	Updates <data_buf_ptr, file_mark, bytes_left and transfer_count.
*		Returns carry clear if request has been satisfied.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		xfer_count - # of bytes just transfered
*		<data_buf_ptr - ptr to caller's data buffer
*		file_mark - file mark
*		bytes_left - # bytes till satisfy request
*		transfer_count - total # bytes transfered
*		newline_flag - 1 if newline character was found, else 0
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = request has not been satisfied
*			   0 = request has been satisfied
*		B = K
*
*		<data_buf_ptr - new ptr to caller's data buffer
*		file_mark - new file mark
*		bytes_left - new # bytes till satisfy request
*		transfer_count - new total # bytes transfered
*
*	 Uses:	all registers
*
*   Called by:	read
*		write
*
*	Calls:	nothing
*
* Copyright Apple Computer, Inc. 1989-90  All rights reserved.
******************************************************************************

update_rw_info	PROC
		with	data

*
* Set <data_buf_ptr = <data_buf_ptr + xfer_count.  
*
		clc				
		lda	xfer_count
		tax
		adc	<data_buf_ptr
		sta	<data_buf_ptr
		lda	xfer_count+2
		tay
		adc	<data_buf_ptr+2
		sta	<data_buf_ptr+2
*
* Set transfer_count = transfer_count +	xfer_count.
*
		clc				
		txa
		adc	transfer_count
		sta	transfer_count
		tya
		adc	transfer_count+2
		sta	transfer_count+2
*
* Set file_mark = file_mark + xfer_count.
*
		clc				
		txa
		adc	file_mark
		sta	file_mark
		tya
		adc	file_mark+2
		sta	file_mark+2
*
* Set bytes_left = bytes_left -	xfer_count.
*
		sec				
		lda	bytes_left
		sbc	xfer_count
		sta	bytes_left
		lda	bytes_left+2
		sbc	xfer_count+2
		sta	bytes_left+2
*
* Return with carry clear if bytes_left = 0 or newline_flag <> 0.
* Otherwise, return with carry set.
*
		clc				;clear carry
		lda	newline_flag		;did we hit a newline char?
		bne	exit			;yes - so return with carry clear
		lda	bytes_left	
		ora	bytes_left+2		;bytes_left = 0?
		beq	exit			;yes - so return with carry clear
		sec				;no - so return with carry set
exit		rts

		ENDP

		eject		
******************************************************************************
*
*	 Name:	hfs_init
*
* Description:	This routine writes an initial HFS volume structure on a
*		selected volume.  It is assumed that the disk has already
*		been formatted.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<drvr_dev_num - device number to init 
*		<gbuf_ptr - ptr to 512 byte general purpose buffer
*		volname - volume name in gstring format
*
*      Output:	A = error code if carry set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*	 Uses:	all registers
*		<temp0
*		<temp1
*		<a1 - <a5
*		d0, d1, d2
*
*   Called by:	erase
*		format
*
*	Calls:	do_status_call
*		gbuf_write
*		word_multiply
*		long_multiply
*		word_divide
*		long_divide
*		long_divide_up
*
* Copyright Apple Computer, Inc. 1984-91  All rights reserved.
******************************************************************************

hfs_init	PROC
		with	data

					;local equates
					
num_ablks	equ	a2		;word - # of alloc blocks on volume
tree_ablks	equ	a3		;word - tree clump size in alloc blocks
tree_pblks	equ	a4		;word - tree clump size in physical blocks
tree_bytes	equ	a5		;long - tree clump size in bytes


*
* Do a device status call to determine the # of physical blocks on the device.
*
		jsr	do_status_call
		bcs	brl_exit
*
* Make sure volume is big enough.
*
		lda	status_list+4
		bne	big_enough
		lda	status_list+2
		cmp	#min_vol_size
		bcs	big_enough
		lda	#drvr_bad_block		;volume is too small so return error
		sec
brl_exit	brl	exit
big_enough
*
* Zero out blocks 0 and 1 (the boot blocks) on disk.
*
		jsr	clear_gbuf		;zero out the buffer
		
write_block_0	ldx	#0			;lo word of physical block # to write
		ldy	#0			;hi word of physical block # to write
		jsr	gbuf_write		;write the block
		bcc	@write_ok
		cmp	#drvr_disk_sw		;did we get a disk switched error?
		beq	write_block_0		;yes - so try again
		sec				;no - so return error
		brl	exit
@write_ok		
		ldx	#1			;lo word of physical block # to write
		ldy	#0			;hi word of physical block # to write
		jsr	gbuf_write		;write the block
		bcs	brl_exit
*
* Calculate the allocation block size in bytes.
* (# of physical blocks on vol/64K) + 1 = # of physical blocks per alloc block
* # of physical blocks per alloc block * 512 = alloc block size in bytes
*
		sec				
		lda	status_list+2		;get # of physical blocks on volume
		sbc	#1			;subtract 1 in case it's an exact
		sta	<temp0			;multiple of 64K
		lda	status_list+4
		sbc	#0
		sta	<temp0+2
		
		lda	<temp0+2		;get # of 64K pieces on volume 
		inc	a			;zero adjust
		sta	pblks_per_ablk		;to get # of physical blocks per alloc blk
		sta	<multiplier
		
		lda	#phys_blk_size		;multiply by physical block size in bytes
		sta	<multiplicand
		
		jsr	word_multiply		;to get alloc block size in bytes
		
		lda	<product		;save result
		sta	ablk_size
		lda	<product+2
		sta	ablk_size+2
*
* Calculate the location of the first allocation block.
* volume size in physical blocks / pblks_per_ablk = volume size in alloc blocks
* volume size in alloc blocks / 4096 = # of bitmap blocks needed 
* # of bitmap blocks needed + vbm_start = location of first alloc block
*
		lda	status_list+2		;get # of physical blocks on volume
		sta	<dividend
		lda	status_list+4		
		sta	<dividend+2
		
		lda	pblks_per_ablk		;divide by # of physical blocks per 
		sta	<divisor		;alloc block
		stz	<divisor+2
		
		jsr	long_divide		;to get volume size in alloc blocks

		lda	#4096			;then divide by 4096
		sta	<divisor
		
;		jsr	word_divide		;to get # of bitmap blocks needed
		jsr	long_divide		;to get # of bitmap blocks needed  09/04/91 JEV
		
		lda	<remainder
		beq	@no_rem
		inc	<dividend		;adjust for non-zero remainder
@no_rem		
		clc
		lda	<dividend		;then add the # of bitmap blocks needed
		adc	#vbm_start		;to vbm_start to get
		sta	ablk_start		;the location of the first alloc block
*
* Calculate # of allocation blocks on volume.
* ((volume size in physical blocks - ablk_start) / pblks_per_ablk) - 2  = # of alloc blocks
*
		sec				;get # of physical blocks on volume
		lda	status_list+2
		sbc	ablk_start		;and adjust for 'lost' space
		sta	<dividend
		lda	status_list+4
		sbc	#0
		sta	<dividend+2
		
		lda	pblks_per_ablk		;divide by # of physical blocks per ablk
		sta	<divisor
		stz	<divisor+2
		
		jsr	long_divide		;to get # of alloc blocks on volume
		
		sec
		lda	<dividend		;get result
		sbc	#2			;subtract 2 for alternate VIB
		sta	<num_ablks		;and save
*
* Calculate tree clump size in bytes.
* (volume size in physical blocks / 128) * 512 = tree clump size in bytes
* (minimum tree clump size = 2 physical blocks)
* (maximum tree clump size = 1MB - ablk_size)
*
		lda	status_list+2		;get # of physical blocks on volume
		sta	<dividend
		lda	status_list+4		
		sta	<dividend+2
		
		lda	#128			;divide by 128 
		sta	<divisor		
		stz	<divisor+2
		
		jsr	long_divide		;to get tree clump size in physical blocks	

		lda	<dividend
		cmp	#2
		bcs	@ok			
		lda	#2			;minimum clump size = 2 physical blocks
@ok
		sta	<multiplicand

		lda	#phys_blk_size		;multiply by physical block size in bytes
		sta	<multiplier
		
		jsr	word_multiply		;to get clump size in bytes
		
		lda	<product		;save result
		sta	<tree_bytes
		lda	<product+2
		sta	<tree_bytes+2

		stz	<temp0			;temp0 <- (1MB - ablk_size)
		lda	#$0010
		sta	<temp0+2
		sec
		lda	<temp0
		sbc	ablk_size
		sta	<temp0
		lda	<temp0+2
		sbc	ablk_size+2
		sta	<temp0+2
		
		lda	<tree_bytes+2		;if tree_bytes > temp0 then
		cmp	<temp0+2
		bcc	clump_ok
		bne	clump_bad
		lda	<temp0
		cmp	<tree_bytes
		bcs	clump_ok
clump_bad	lda	<temp0			;tree_bytes <- temp0
		sta	<tree_bytes
		lda	<temp0+2
		sta	<tree_bytes+2
clump_ok
*
* Calculate tree clump size in alloc blocks.
* tree clump size in bytes / alloc block size = tree clump size in alloc blocks
*
		lda	<tree_bytes		;get tree clump size in bytes
		sta	<dividend
		lda	<tree_bytes+2
		sta	<dividend+2
		
		lda	ablk_size		;divide by alloc block size
		sta	<divisor
		lda	ablk_size+2
		sta	<divisor+2
		
		jsr	long_divide_up		;to get tree clump size in alloc blocks
		
		lda	<dividend		;store result
		sta	<tree_ablks
*
* Re-calculate tree_bytes so it's a multiple of ablk_size.
* tree clump size in alloc blocks * alloc block size = tree clump size in bytes
*
		lda	<tree_ablks		;get tree clump size in alloc blocks
		sta	<multiplicand
		stz	<multiplicand+2
		
		lda	ablk_size		;multiply by alloc block size
		sta	<multiplier
		lda	ablk_size+2
		sta	<multiplier+2
		
		jsr	long_multiply		;to get tree clump size in bytes

		lda	<product		;store result
		sta	<tree_bytes
		lda	<product+2
		sta	<tree_bytes+2
*
* Calculate tree clump size in physical blocks.
* tree clump size in alloc blocks * pblks_per_ablk = tree clump size in physical blocks
*
		lda	<tree_ablks		;get tree clump size in alloc blocks
		sta	<multiplicand
		
		lda	pblks_per_ablk		;multiply by pblks_per_ablk
		sta	<multiplier
		
		jsr	word_multiply		;to get tree clump size in physical blocks
		
		lda	<product		;store result
		sta	<tree_pblks		
*
* Create the Volume Information Block.
*
		lda	<gbuf_ptr		;setup A1.L to point to start of buffer
		sta	<a1
		lda	<gbuf_ptr+2
		sta	<a1+2
				
		lda	#hfs_signature
		ldy	#vib_signature
		jsr	store_word		;set vib_signature
		
		lda	time
		ldx	time+2
		jsr	store_long		;set vib_create_dt
		jsr	store_long		;set vib_mod_dt
		
		lda	#vbm_start
		ldy	#vib_vbm_start
		jsr	store_word		;set vib_vbm_start
		
		lda	<num_ablks
		ldy	#vib_num_ablks
		jsr	store_word		;set vib_num_ablks
		
		lda	ablk_size
		ldx	ablk_size+2
		jsr	store_long		;set vib_ablk_size
		
		lda	ablk_size		;file clump size = (4 * ablk_size)
		sta	<temp0
		lda	ablk_size+2
		sta	<temp0+2
		asl	<temp0
		rol	<temp0+2
		asl	<temp0
		rol	<temp0+2
		
		lda	<temp0
		ldx	<temp0+2
		jsr	store_long		;set vib_fclump_size
		
		lda	ablk_start
		jsr	store_word		;set vib_ablk_start
		
		lda	#next_file_id
		ldx	#^next_file_id
		jsr	store_long		;set vib_next_id
		
		sec				;# of free ablks on volume =
		lda	<num_ablks		;# of ablks on volume -
		sbc	<tree_ablks		;# of ablks used for the 2 trees
		sbc	<tree_ablks
		jsr	store_word		;set vib_free_ablks

		jsr	store_name		;copy volume name into vib

		lda	#2			;init write count to 2
		ldx	#0
		ldy	#vib_write_cnt
		jsr	store_long		;set vib_write_cnt
		
		lda	<tree_bytes
		ldx	<tree_bytes+2
		jsr	store_long		;set vib_eclump_size
		jsr	store_long		;set vib_cclump_size
		ldy	#vib_etree_peof
		jsr	store_long		;set vib_etree_peof
		ldy	#vib_ctree_peof
		jsr	store_long		;set vib_ctree_peof
		
		lda	<tree_ablks
		ldy	#vib_etree_ext+2
		jsr	store_word		;set ETree extent length
		ldy	#vib_ctree_ext
		jsr	store_word		;set CTree extent start
		jsr	store_word		;set CTree extent length
*
* Write the VIB out to disk.
*
		ldx	#vib_block		;lo word of physical block # to write
		ldy	#0			;hi word of physical block # to write
		jsr	gbuf_write		;write the block
		bcs	brl_exit2
*
* Put a spare copy of the VIB at the end of the volume.
*
		sec
		lda  	status_list+2		;calculate the physical block # of 
		sbc  	#2			;the alternate VIB and store in X,Y
		tax
		lda  	status_list+4
		sbc  	#0
		tay
		jsr	gbuf_write		;write the block
		bcs	brl_exit2
*
* Set up the volume bitmap.
*
		jsr	clear_gbuf		;zero out the buffer
		
		lda	<tree_ablks		;get tree size in alloc blocks
		asl	a			;multiply by 2 since we have 2 trees
		sta	<dividend		;to get # of used alloc blocks
		
		lda	#8			;divide by 8
		sta	<divisor
		
		jsr	word_divide		;to determine # of $FF bytes in bitmap
		
		ldy	#0			;init offset into bitmap
		
		lda	<dividend		;any whole bytes to set?
		beq	no_bytes		;no
		
		lda	#$00ff			;yes - so init byte to $FF
byte_loop	sta	[gbuf_ptr],y		;store byte into the buffer
		iny				;bump offset by 1
		dec	<dividend		
		bne	byte_loop		;loop until done
no_bytes
		lda	<remainder		;any remaining bits to set?
		beq	no_bits			;no
		
		lda	#$8000			;yes - so init byte with 1 bit set
bit_loop	dec	<remainder		;any more bits to set?
		beq	store_bits		;no
		sec				;yes - so set another bit
		ror	a			;and shift bits right by 1
		bra	bit_loop		;loop
		
store_bits	xba				;change byte sex
		sta	[gbuf_ptr],y		;store the byte into the buffer
no_bits
*
* Write out the first bitmap block.
*
		ldx	#vbm_start		;lo word of physical block # to write
		ldy	#0			;hi word of physical block # to write
		jsr	gbuf_write		;write the block
		bcc	vbm_ok
brl_exit2	brl	exit
vbm_ok
*
* Zero out the rest of the bitmap blocks (if any).
*
		jsr	clear_gbuf		;zero out the buffer
		
		ldx	#vbm_start		;lo word of physical block # to write
vbm_loop	inx
		cpx	ablk_start		;are we done?
;		beq	vbm_done		;yes
		bcs	vbm_done		;yes   09/03/91  JEV
		
		phx				;save block #
		ldy	#0			;hi word of physical block # to write
		jsr	gbuf_write		;write the block
		plx				;retrieve block #
		bcs	brl_exit2
		bra	vbm_loop		;loop
vbm_done
*
* Create and write out the Extents BTree Header Node.
*
		lda	ablk_start
		sta	d0			;D0.W <- physical block #
		
		stz	d1			;D1.W <- # of records in tree
		
		lda	#7
		sta	d2			;D2.W <- max key length
		
		jsr	create_hdr_node		;create and write out a BTree Header Node
		bcs	brl_exit2
*
* Create and write out the Catalog BTree Header Node.
*
		clc
		lda	ablk_start
		adc	<tree_pblks
		sta	d0			;D0.W <- physical block #
		
		lda	#2
		sta	d1			;D1.W <- # of records in tree
		
		lda	#37
		sta	d2			;D2.W <- max key length
		
		jsr	create_hdr_node		;create and write out a BTree Header Node
		bcs	brl_exit2
*
* Set up the Node Descriptor for the first leaf node in the Catalog Tree.
*
		jsr	clear_gbuf		;zero out the buffer
		
		lda	#$ff01			;node type = $ff, node level = 1
		ldy	#nd_type
		jsr	store_word		;set nd_type and nd_level
		
		lda	#2			;there will be 2 records in the node
		jsr	store_word		;set nd_num_recs
*
* Set up the first Key Record in the leaf node.
*
		clc				;bump buffer ptr past Node Descriptor
		lda	<a1			
		adc	#len_nd
		sta	<a1
		lda	<a1+2
		adc	#0
		sta	<a1+2
		
		ldy	#node_size-2		;get the offset to the record's offset
		jsr	store_offset		;store the record's offset

		lda	#vol_parent_id
		ldx	#^vol_parent_id
		ldy	#cky_parent_id
		jsr	store_long		;set cky_parent_id
		
		jsr	store_name		;copy volume name into key
		
		ldy	#cky_name
		lda	[a1],y			;get name length
		and	#$00ff			;only want lo byte
		inc	a			;add 1 for length byte itself
		inc	a			;round up to even # of bytes
		lsr	a
		asl	a
		clc
		adc	#5			;calculate length of key record
		xba				;change byte sex since length is a byte
		ldy	#cky_key_len
		jsr	store_word		;and store
*
* Set up the first Data Record (a directory record for the root dir) in the leaf node.
*
		ldy	#cky_key_len
		lda	[a1],y			;get length of key record
		inc	a			;add 1 for key length itself		
		clc
		adc	<a1			;bump buffer ptr past Key Record
		sta	<a1
		lda	<a1+2
		adc	#0
		sta	<a1+2

		lda	#$0100			;record type = 1 (directory record)
		ldy	#cat_type
		jsr	store_word

		lda	#vol_dir_id
		ldx	#^vol_dir_id
		ldy	#dir_id
		jsr	store_long		;set dir_id
		
		lda	time
		ldx	time+2
		jsr	store_long		;set dir_create_dt
		jsr	store_long		;set dir_mod_dt
*
* Set up the second Key Record in the leaf node.
*
		clc				;bump buffer ptr past Data Record
		lda	<a1
		adc	#len_dir
		sta	<a1
		lda	<a1+2
		adc	#0
		sta	<a1+2

		ldy	#node_size-4		;get the offset to the record's offset
		jsr	store_offset		;store the record's offset

		lda	#$0700			;key length = 7
		ldy	#cky_key_len
		jsr	store_word		;set cky_key_len
				
		lda	#vol_dir_id
		ldx	#^vol_dir_id
		ldy	#cky_parent_id
		jsr	store_long
*
* Set up the second Data Record (a thread record for the root dir) in the leaf node.
*
		clc				;bump buffer ptr past Key Record
		lda	<a1
		adc	#8
		sta	<a1
		lda	<a1+2
		adc	#0
		sta	<a1+2

		lda	#$0300			;record type = 3 (thread record)
		ldy	#cat_type
		jsr	store_word
		
		lda	#vol_parent_id
		ldx	#^vol_parent_id
		ldy	#thd_parent_id
		jsr	store_long		;set thd_parent_id
	
		jsr	store_name		;copy volume name into thread record
*
* Set up the free space offset in the leaf node.
*
		clc				;bump buffer ptr past Data Record
		lda	<a1
		adc	#len_thd
		sta	<a1
		lda	<a1+2
		adc	#0
		sta	<a1+2
		
		ldy	#node_size-6		;get the offset to the free space offset
		jsr	store_offset		;store the free space offset
*
* Write out the leaf node.
*
		clc
		lda	ablk_start
		adc	<tree_pblks		;get starting block # of CTree
		inc	a			;advance beyond header node
		tax				;lo word of physical block # to write
		ldy	#0			;hi word of physical block # to write
		jsr	gbuf_write		;write the block
		bcs	exit
*
* Indicate no error and exit.
*
		clc
exit		rts


;------------------------------------------------------------------------------
; store_word routine
;
; Input:	A = word to store into buffer
;		X = undefined
;		Y = offset into buffer
;
;		<A1.L - ptr to buffer
;
; Output:	A = unchanged
;		X = undefined
;		Y = original value + 2
;		P = nvmxdizc
;		    ..000... 
;
;------------------------------------------------------------------------------

store_word	xba				;change byte sex
		sta	[a1],y			;store word in buffer
		iny				;bump offset by 2
		iny
		xba				;restore original value of A
		rts				;and return

;------------------------------------------------------------------------------
; store_long routine
;
; Input:	A = lo word to store into buffer
;		X = hi word to store into buffer
;		Y = offset into buffer
;
;		<A1.L - ptr to buffer
;
; Output:	A = unchanged
;		X = unchanged
;		Y = original value + 4
;		P = nvmxdizc
;		    ..000... 
;
;------------------------------------------------------------------------------

store_long	pha				;save lo word
		txa				;get hi word 
		xba				;change byte sex
		sta	[a1],y			;store word in buffer
		iny				;bump offset by 2
		iny
		pla				;retrieve lo word
		xba				;change byte sex
		sta	[a1],y			;store word in buffer
		iny				;bump offset by 2
		iny
		xba				;restore original value of A
		rts				;and return
		
;------------------------------------------------------------------------------
; store_name routine
;
; Input:	A = undefined
;		X = undefined
;		Y = offset into buffer
;
;		<A1.L - ptr to buffer
;		volname - volume name in gstring format
;
; Output:	A = undefined
;		X = undefined
;		Y = undefined
;		P = nvmxdizc
;		    ..000... 
;
;------------------------------------------------------------------------------

store_name	ldx	#0			;init offset into volname
		
		lda	volname			;get length word
		sta	[a1],y			;and store in buffer
		iny				;bump buffer offset
		
		sep	#$30			;begin 8-bit mode
 		longa	off			
		longi	off			

name_loop	lda	volname+2,x		;get byte from volname
		sta	[a1],y			;and store in buffer
		iny				;bump offsets
		inx
		cpx	volname		
		bcc	name_loop		;loop until done

		rep	#$30			;restore 16-bit mode
		longa	on			
		longi	on
		
		rts				;and return
		
;------------------------------------------------------------------------------
; store_offset routine
;
; Input:	A = undefined
;		X = undefined
;		Y = offset to offset
;			   
;		<A1.L - ptr to start of record
;		<gbuf_ptr - ptr to start of buffer
;
; Output:	A = undefined
;		X = undefined
;		Y = undefined
;		P = nvmxdizc
;		    ..000... 
;
;------------------------------------------------------------------------------

store_offset	sec				;calculate offset to record
		lda	<a1			;from start of buffer
		sbc	<gbuf_ptr
		xba				;change byte sex
		sta	[gbuf_ptr],y		;and store at end of buffer
		
		rts
		
;------------------------------------------------------------------------------
; clear_gbuf routine
;------------------------------------------------------------------------------

clear_gbuf	lda	#0
		ldy	#$01FE

clear_loop	sta	[gbuf_ptr],y
		dey
		dey
		bpl	clear_loop
		
		rts

;------------------------------------------------------------------------------
; create_hdr_node routine
;
; Input:	A = undefined
;		X = undefined
;		Y = undefined
;
;		<A1.L - ptr to start of buffer
;		D0.W - physical block #
;		D1.W - # of records in tree
;		D2.W - max key length
;
; Output:	A = error code if carry set
;		X = undefined
;		Y = undefined
;		P = nvmxdizc
;		    ..000..1 = error
;			   0 = no error
;
;------------------------------------------------------------------------------

create_hdr_node

; Setup the Node Descriptor for the BTree Header Node

		ldy	#nd_type
		lda	#nd_hdr_type
		sta	[a1],y			;set nd_type
		
		ldy	#nd_num_recs
		lda	#3
		jsr	store_word		;set nd_num_recs
		
; Setup the Header Record

		lda	#$8000			;mark first node used in bitmap
		sta	<temp0
		
		lda	<tree_pblks		;temp1 <- # of free nodes in tree
		sta	<temp1
		
		lda	d1			;are there any records in the tree?
		beq	@no_recs		;no
		
		lda	#$c000			;yes - so mark second node used  
		sta	<temp0			
		dec	<temp1			;and decrement the # of free nodes
		
		ldy	#len_nd+hdr_depth
		lda	#1
		ldx	#0
		jsr	store_word		;set hdr_depth
		jsr	store_long		;set hdr_root_node
		
		lda	d1			;get # of records in tree
		jsr	store_long		;and set hdr_num_recs
		
		lda	#1
		jsr	store_long		;set hdr_first_node
		jsr	store_long		;set hdr_last_node
@no_recs
		ldy	#len_nd+hdr_node_size
		lda	#node_size
		jsr	store_word		;set hdr_node_size
		
		lda	d2			;get max key length
		jsr	store_word		;and set hdr_max_key
		
		lda	<tree_pblks		;get # of nodes in tree
		ldx	#0
		jsr	store_long		;set hdr_num_nodes
		
		lda	<temp1			;get # of free nodes in tree
		dec	a			;and dec since 1 node used for header
		jsr	store_long		;set hdr_free_nodes
		
; Setup the Bitmap Record

		ldy	#len_nd+len_hdr+128	;get offset to Bitmap Record
		lda	<temp0			;get first bitmap word
		jsr	store_word		;and store
		
; Store the offsets to the records at the end of the node

		ldy	#node_size-8
		
		lda	#len_nd+len_hdr+128+256	;get offset to free space
		jsr	store_word		;and store
		
		lda	#len_nd+len_hdr+128	;get offset to Bitmap Record
		jsr	store_word		;and store
		
		lda	#len_nd+len_hdr		;get offset to Reserved Record
		jsr	store_word		;and store
		
		lda	#len_nd			;get offset to Header Record
		jsr	store_word		;and store

; Write out the BTree Header Node

		ldx	d0			;lo word of physical block # to write
		ldy	#0			;hi word of physical block # to write
		jsr	gbuf_write		;write the block
		rts
		
		ENDP
				
		eject
******************************************************************************
*
*	 Name:	copy_word
*
* Description:	Copies 1 word from source to destination.
*		The byte sex of the word is reversed.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = destination offset
*		Y = source offset
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<source_ptr - ptr to source	(aka <product) 
*		<dest_ptr - ptr to destination	 
*
*      Output:	A = undefined
*		X = original value + 2
*		Y = original value + 2
*		P = nvmxdizc
*		    ..000..0 
*		B = K
*
*	 Uses:	all registers
*
*   Called by:	build_vcr
*		build_fcr
*		update_vib
*		update_bth
*
*	Calls:	nothing
*
* Copyright Apple Computer, Inc. 1990  All rights reserved.
******************************************************************************

copy_word	PROC
		with	data

 		lda	[source_ptr],y		;get word from source
		xba				;change byte sex
		phy				;save source offset
		txy				;get dest offset
		sta	[dest_ptr],y		;store word in dest
		tyx				;put dest offset back in X
		ply				;recover source offset into Y
		inx				;increment both offsets to next word
		inx
		iny				
		iny
		
		clc				;indicate no error
		rts				;and exit
		
		ENDP
		
		eject
******************************************************************************
*
*	 Name:	copy_long
*
* Description:	Copies 1 longword from source to destination.
*		The byte sex of the longword is reversed.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = destination offset
*		Y = source offset
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<source_ptr - ptr to source	(aka <product) 
*		<dest_ptr - ptr to destination	 
*
*      Output:	A = undefined
*		X = original value + 4
*		Y = original value + 4
*		P = nvmxdizc
*		    ..000..0 
*		B = K
*
*	 Uses:	all registers
*
*   Called by:	create
*		get_cat_info
*		build_vcr
*		build_fcr
*		update_vib
*		update_alt_vib
*		update_bth
*
*	Calls:	nothing
*
* Copyright Apple Computer, Inc. 1990  All rights reserved.
******************************************************************************

copy_long	PROC
		with	data

		phy				;save source offset
 		lda	[source_ptr],y		;get word from source
		xba				;change byte sex
		pha				;and save on stack
		iny
		iny
		lda	[source_ptr],y		;get next word from source
		xba				;change byte sex
		pha				;and save on stack
		
		txy				;get dest offset
		pla				;retrieve word from stack
		sta	[dest_ptr],y		;store word in dest
		iny
		iny
		pla				;retreive next word from stack
		sta	[dest_ptr],y		;store word in dest
		
		tyx				;put dest offset back in X
		inx				;adjust dest offset
		inx
		
		ply				;recover source offset into Y
		iny				;adjust dest offset
		iny
		iny				
		iny
		
		clc				;indicate no error
		rts				;and exit
		
		ENDP
		
		eject
******************************************************************************
*
*	 Name:	copy_ext
*
* Description:	Copies an extents record (6 words) from source to destination.
*		The byte sex of the words is NOT reversed.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = undefined
*		X = destination offset
*		Y = source offset
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		<source_ptr - ptr to source	(aka <product) 
*		<dest_ptr - ptr to destination	 
*
*      Output:	A = undefined
*		X = original value + 12
*		Y = original value + 12
*		P = nvmxdizc
*		    ..000..0 
*		B = K
*
*	 Uses:	all registers
*
*   Called by:	create
*		set_eof
*		build_vcr
*		build_fcr
*		update_vib
*		update_alt_vib
*
*	Calls:	nothing
*
* Copyright Apple Computer, Inc. 1990  All rights reserved.
******************************************************************************

copy_ext	PROC
		with	data

		lda	#6			;initialize count 
		
loop 		pha				;save count
		lda	[source_ptr],y		;get word from source
		phy				;save source offset
		txy				;get dest offset
		sta	[dest_ptr],y		;store word in dest
		tyx				;put dest offset back in X
		ply				;recover source offset into Y
		inx				;increment both offsets to next word
		inx
		iny				
		iny
		pla				;retrieve count
		dec	a			;decrement count
		bne	loop			;loop until done
		
		clc				;indicate no error
		rts				;and exit
		
		ENDP
		
		eject
******************************************************************************
*
*	 Name:	handle_conv_err
*
* Description:	Checks the error code returned from a call to ConvSeconds.
*		If the error code is $2, the ConvSeconds routine is not installed  
*		so the input parameters must be pulled off the stack.
*
*	Entry:	jsr
*
*	 Exit:	rts
*
*	Input:	A = error code
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..0 
*		B = K
*
*	 Uses:	all registers
*
*   Called by:	setup_call
*		get_create_mod
*		set_create_dt
*		set_mod_dt
*
*	Calls:	nothing
*
* Copyright Apple Computer, Inc. 1990  All rights reserved.
******************************************************************************

handle_conv_err	PROC
		with	data

		cmp	#2			;ConvSeconds routine not installed?
		bne	done			;no - we got a real error
		plx				;pull return address off stack
		pla				;pull input params off stack
		pla
		pla
		pla
		pla
		phx				;push return address back on stack
done		rts
		
		ENDP
		
		
		eject
*******************************************************************************
*
* END OF CODE
*
*******************************************************************************

end_segment	PROC
end_code					
		ENDP
		eject
		END


\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/FSTs/HighSierra/HS.FST.src b/IIGS.601.SRC/GS.OS/FSTs/HighSierra/HS.FST.src
new file mode 100644
index 0000000..08b5bb0
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/FSTs/HighSierra/HS.FST.src
@@ -0,0 +1 @@
+		print	nohdr
*******************************************************************************
*
* GS/OS	High Sierra File System	Translator
*
* Version 03.00
* Written by Bryan Atsatt
*
* Thanks to Rob	Turner for providing his ProDOS	FST as a model
* and for letting me steal some	of his routines!
*
* Copyright 1987-92 Apple Computer, Inc.  All Rights Reserved.
*
*******************************************************************************

		string	asis
		blanks	off
		pagesize 86
		eject
*******************************************************************************
*
* REVISION HISTORY:
*
* Date	   By	Description
*
* 2/1/88   BPA	00.01 a01 release.
* 2/3/88   BPA	remove status call from	setup_volume, changed polarity of
*		disk switched bit in vcr_status.
* 2/8/88   BPA	00.02 a01 release.
* 2/16/88  BPA	zero length strings converted to 'UNTITLED'.  Removed reserved
*		field checking from id_disk.  Added vcr_device_id field	to vcr
*		and added support for non-CD-ROM devices to device_read.
* 2/26/88  BPA	ISO support added, changed class 1 separator to	colon.
* 2/29/88  BPA	Forced directory bit of	file_flags byte	to 1 in	find_file to
*		fix problem found with Medline Knowledge Finder	(ISO) disc.
*		00.03 a01 release.
* 3/16/88  BPA	Changed	device read to handle non-2k blocks by doing one 512
*		byte block read.  Changed id_disk so will only recognize 512
*		and 2048 byte blocks.
* 3/18/88  BPA	Fixed get_dir_entry so that if the search_assoc	call changes
*		the directory block in memory that the current_record is
*		updated	in the FCR.
* 3/21/88  BPA	Fixed bug in make_gstring.
* 3/22/88  BPA	Added status call to find_volume.
*		00.05 a01 release
* 3/23/88  BPA	Removed	status call from find_volume (!).
* 3/24/88  BPA	Changed	device_read to handle logical block sizes 512, 1024
*		and 2048.  SCSI.DRIVER changed so that CD-ROM default block
*		size = 512.
* 3/28/88  BPA	Changed	setup_open_buf and build_fcr to	force log_blk_size to
*		2k if file is a	directory.  Changed find_file to force
*		log_blk_size to	2k.  Changed decice_read to use	trans_blk_size
*		instead	of log_blk_size.  Changed all routines which update
*		log_blk_size (except for setup_open_buf, build_fcr, and
*		find_file) to update trans_blk_size as well.  Fixed bug	in
*		get_name.  Built device_dispatch to handle disk	switched and
*		offline	errors.
* 3/29/88  BPA	Changed	setup_call to clear interleave_skip and	interleave_size.
*		Changed	setup_open_buf to force	log_blk_size only if file is
*		claimed	for get_dir_entry.  Changed read_next_block and
*		read_prev_block	to handle differences betx log_blk_size	and
*		trans_blk_size.
* 3/30/88  BPA	Added '.BAT' to	default	file type mapping table.
* 3/31/88  BPA	File 'access' field returns full access	($C3) instead of read
*		only ($01).
* 4/8/88   BPA	Changed	trans_blk_size to real_log_size.  Changed to look for
*		associated files before	it's companion file.  Changed
*		get_dir_entry to skip associated file entries.
* 4/11/88  BPA	Tested and fixed get_option_list.
* 4/18/88  BPA	00.05 a01 release
* 4/25/88  BPA	Changed	calc_open_block	and changed set_end_block to use it.
*		Changed	get_dir_entry to handle	zero length names.
*		00.06 a02 release
* 4/29/88  BPA	Fixes for interleaved files.
* 5/2/88   BPA	Additions for file and aux type	handling of discs made using
*		the GS/OS ISO 9660 Authoring Tool.  Bug	fixes.
*		00.07 a01 release
* 5/4/88   BPA	Conversion to MPW.
* 5/31/88  BPA	Enlarged string	buffers	to ensure that 37 character file names
*		will fit.  Fixed bugs in search_path_tbl and find_directory
*		which assumed path table offsets and were wrong	for ISO	9660.
*		Changed	find_dir_record	so doesn't care if directory bit is set
*		for entries whose name is 0 or 1.
* 6/6/88   BPA	Changed	h_file_sys_id to return	iso_id for ISO 9660 volumes.
*		Affects	Volume and Get_Dir_Entry calls only.
* 6/30/88  BPA	Added code to support the Apple	Extensions to ISO 9660.	 Fixed
*		bug in h_vol_name (was not checking for	illegal	length class 0
*		names).	 Changed setup_call to save non-bouncing errors	for
*		calls that require pathnames; if process_path has no errors,
*		and there is a saved error, it will return the saved error.
* 7/8/88   BPA	Modified code to support Apple Extensions under	High Sierra as
*		well (added check_apple_ext and	get_ext_type routines).
* 7/12/88  BPA	Modified get_date_time to verify date/time and return default
*		if illegal.
* 7/14/88  BPA	Fixed get_date_time to handle zero date/time. Added code to do
*		the ProDOS transformation on volume names.  Fixed bug which
*		caused duplicate volume	error when ISO disk with open files
*		is ejected and re-inserted by bumping the size of the date
*		fields in the VCR by 1.	 Fixed blocks_used bug:	 log_blk_size
*		set from vcr during calc_blocks.
* 7/21/88  BPA	Added transform_gstring	procedure, modified build_vcr to use it,
*		changed	find_volume so will not	do transform.
* 7/22/88  BPA	Changed	apple_string to	all uppercase.
* 7/26/88  BPA	Fixed device_read so doesn't clear drvr_fst_num after it sets
*		it to $000b.  Fixed direct_read	to set io_buffer = data_buffer.
* 7/27/88  BPA	Modified get_dir_entry to return resource_eof and
*		resource_blocks.  Fixed	get_option_list	to handle 00 length
*		option list buffer.
* 7/28/88  BPA	Fixed filename transformation in find_volume to	$2e5f.	Changed
*		search_dir from	using log_blk_size to using constant
*		sector_size.  Changed find_file	to force sector_size reads on
*		read_next_block	and to return file_not_found error if volume
*		is High	Sierra and resource_num	is non-zero.  Changed 
*		find_dir_record	so never sets extended_flag if volume is High
*		Sierra.
* 8/2/88   BPA	Changed	FST Attribute word in header so	SCM will clear msb's
*		in pathnames.
* 8/3/88   BPA	Changed	max_names to 9.
* 8/10/88  BPA	Changed	find_volume to look for	invalid_dev_num	instead	of
*		dev_not_found.
* 8/11/88  BPA	Fixed bounce_errors list; was defined incorrectly.  Updated
*		version	# in fst_header.
* 8/12/88  BPA	Fixed find_volume so sets drvr_stat_code and then checks status
*		word instead of	vcr, and also undoes volume name transformation.
*		Changed	get_ext_type to	handle padding field before signature.
* 8/16/88  BPA	Changed	version	info to	2.0.  Final!
* ------------
* 10/6/88  BPA	Converted source so data is a record.
* 11/14/88 BPA	Removed common equates from file and included them.  Also
*		reformatted source.
* 12/2/88  BPA	v02.01d5 release.
* 1/11/89  BPA	Cleared invisible bit of file flags in find file so that if
*		call is get_file_info and file is a directory, the bit will not
*		be set (fixes bug report RJHCAF237).  Fixed calculation of
*		open_buffer in setup_open_buf so uses byte size length from
*		directory record instead of word (fixes BRC# 37728).
* 1/24/89  BPA	Changed build_fcr so sets high bit of access word indicating
*		that file is never modified.
* 2/15/89  BPA	Changed build_fcr so when calls alloc_fcr uses pointer to full
*		pathname rather than to filename.
* 2/17/89  BPA	Changed build_fcr so when calls alloc_fcr uses pointer to
*		volume name rather than full path, and so sets bit 14 of the
*		fcr_access word if the file is the resource fork.
* 2/22/89  BPA	Changed id_disk so if gets a drvr_bad_block error cuz volume is
*		too small, will return unknown_vol err instead so will bounce.
* 2/23/89  BPA	Changed get_file_type to ignore version # in file name (fixes 
*		CAF207LWA).  Changed process_path to return res_not_found error
*		instead of path_not_found error if resource_num is non-zero
*		(fixes report CAF208LWA).  Changed build_vcr so will toss a
*		duplicate vcr if no open files even when it does not belong to
*		me (fixes report CAF209LWA).  Made a minor change to
*		find_volume which MAY fix report CAF210LWA (I can't reproduce
*		it but without the fix I can see how it could happen).
* 3/2/89   BPA	Changed shutdown to respect warm_cold_flag and do nothing if
*		warm shutdown.  Changed get_option_list to return fst id and
*		correctly handle small buffer conditions.
* 3/3/89   BPA	Fixed get_option_list so if error and call is open, will
*		release the fcr.
* 3/9/89   BPA	Modified search_dir and find_file so will return path_not_found
*		or file_not_found errors appropriately (fixes MJS246LWA).
* 3/10/89  BPA	Modified find_directory to return a dir_error if directory has
*		an XAR (fixes BRC 37350).  Added support for version 2 of the
*		Apple Extensions to ISO 9660.
* 4/6/89   BPA	Fixed bug in get_option_list which caused data to be transfered
*		when no XAR present, and fixed one which caused an end_of_dir
*		error on the next get_dir_entry call after one which returned
*		an XAR (XAR was read into open buffer instead of io_buffer).
*		Added support for Apple Extensions on CD-ROM XA discs.
* 4/14/89  BPA  Fixed process_path so will return res_not_found instead of
*		file_not_found if looking for resource.
* 5/30/89  BPA	Changed version number to 3.00 final.
* 6/6/89   BPA  Fixed bug in search_dir which caused it to fail incorrectly in
*		certain boundary conditions.
* 10/10/89 CAF	Added check to id_disk which maps drvr_disk_sw error code to
*		unknown_vol.
*
*	Changes for System Disk 5.0.3
*
* 08/08/90 CAF	device_dispatch now will re_try on a disk switched error always.  It wasn't
*		happening before during a volume call because no vcr was setup.
* 08/08/90 MSD 	Changed device_dispatch to retry the device access if the error
*		was drvr_disk_sw and id_disk_flag is set.  This is so drvr_disk_sw
*		will not be returned from the Volume call, but will be returned
*		during other calls (so that the FST can find out where the volume
*		has moved to).  It's ok to retry if all you want to do is find
*		out which disk is there; it's not ok to retry otherwise.
*		Thanks to Cheryl for pointing this out!!
*
*	Changes for System Disk 6.0
*
*  2/07/91 CAE	Added "support" for the JudgeName call. 
* 		Enhancement - The Volume call will now setup the "vol_name" 
*		output parameter if a "dup_volume" error is being returned.
*  2/21/91 CAE	Set bit 11 of the FST attributes word in the FST Header. This  
*		bit now indicates that the FST is read-only.
*		Changed version number to 4.00 final.
*  3/05/91 CAE	Added support for error priorities.
*  3/27/91 CAE	Bug fix - The start_flags table contained an incorrect maximum 
*		pcount for SetFileInfo. 
*  4/05/91 CAE  Changed version number to 4.00 prototype.
*  12/05/91 GAB	Change maximum allowable pCount for ChangePath.
*  12/18/91 MSD Moved checking of span1 from parse_path to process_path
*		(after it sets the error priority bit) so it will find the
*		volume first before checking the syntax.  Added code to check
*		volume name length (I'm assuming it must be less than 32).
*		Changed version to 4.00 final.
*
*	Changes for System Disk 6.0.1
*
* 25-Aug-92 DAL	Changed version to 4.02 prototype.
*		FSTSpecific map_enable and set_map_table now post volume-changed
*		notifications for all of our online volumes.
*
* 2-Dec-92 DAL	Changed VCR to have a Memory Manager handle to the path table,
*		so we can allow path tables larger than 8K (the GS/OS Memory
*		Manager limit).  Handle is allocated when VCR is allocated.
*		Handle is disposed when the VCR is released.  To unlock the
*		handle when it's not in use, the FST zeroes current_path_tbl_handle
*		on the way way in and stores a path table handle there when a new
*		one is allocated or an old one is dereferenced.  On the way out,
*		we unlock the handle stored in current_path_tbl_handle, if any.
*		(When disposing a handle, we zero the variable if the handle being
*		disposed is the same one stored, to avoid unlocking a handle we no
*		longer own.)  Instead of computing a path_table pointer by adding
*		a constant to the vcr_ptr, we now dereference the vcr_path_tbl_handle
*		field inside the vcr.
*
*		Curiously, GS/OS Internal Snooper CDA has always displayed a 4-byte
*		field for vcr_path_table, so no change is needed there.  It used to
*		display the first four bytes of the actual path table data.
*
* 2-Apr-93 SS	Changed version to $0402 for 6.0.1 (final)
*
*******************************************************************************
		eject
*******************************************************************************
*
* Forward addresses and	entries
*
*******************************************************************************

		entry	fst_header
		entry	appl_call
		entry	system_call
		entry	startup
		entry	shutdown
		entry	kill_vcr
		entry	easy_calls
		entry	setup_call
		entry	activate_vcr
		entry	get_input
		entry	send_output
		entry	process_fields
		entry	field_handlers
		entry	add_separator
		entry	send_gstring
		entry	make_gstring
		entry	move_gstring
		entry	parse_path
		entry	get_name
		entry	long_multiply
		entry	long_divide
		entry	pro_date_time
		entry	get_date_time
		entry	calc_dow
		entry	get_option_list
		entry	transform_in_s
		entry	transform_in_f
		entry	transform_out
		entry	transform_vol
		entry	transform_gstring
		entry	transform_name
		entry	get_ext_type
		entry	get_file_type
		entry	write_protect
		entry	create
		entry	get_file_info
		entry	volume
		entry	id_disk
		entry	check_apple_ext
		entry	build_vcr
		entry	set_file_system
		entry	open
		entry	process_path
		entry	find_a_vcr
		entry	find_volume
		entry	find_file
		entry	find_directory
		entry	search_path_tbl
		entry	move_dir_record
		entry	clear_dir_recs
		entry	search_dir
		entry	build_fcr
		entry	get_dir_info
		entry	calc_blocks
		entry	read
		entry	transfer_data
		entry	setup_volume
		entry	direct_read
		entry	sector_read
		entry	block_read
		entry	device_read
		entry	device_dispatch
		entry	read_next_block
		entry	read_prev_block
		entry	read_with_flag
		entry	setup_open_buf
		entry	check_open_buf
		entry	set_end_block
		entry	close
		entry	set_mark
		entry	calc_open_block
		entry	update_fcr
		entry	get_mark
		entry	get_eof
		entry	get_dir_entry
		entry	find_dir_record
		entry	count_dir_recs
		entry	do_update
		entry	get_dev_num
		entry	fst_specific
		entry	map_enable
		entry	get_map_size
		entry	get_map_table
		entry	set_map_table
		entry	end_segment
		entry	invalid_op
		entry	cmd_error
		entry	nop
		entry	wp_error
		entry	clc_rtl
		entry	h_pcount
		entry	h_ref_num
		entry	h_pathname
		entry	h_dev_name
		entry	h_request_access
		entry	h_resource_num
		entry	h_data_buffer
		entry	h_request_count
		entry	h_cache_priority
		entry	h_position
		entry	h_base
		entry	h_displacement
		entry	h_access
		entry	h_file_type
		entry	h_aux_type
		entry	h_total_blocks
		entry	h_storage_type
		entry	h_create_date
		entry	h_mod_date
		entry	h_create_time
		entry	h_mod_time
		entry	h_blocks_used
		entry	h_create_date_time
		entry	h_mod_date_time
		entry	h_option_list
		entry	h_eof
		entry	h_resource_eof
		entry	h_resource_blocks
		entry	h_vol_name
		entry	h_free_blocks
		entry	h_file_sys_id
		entry	h_block_size
		entry	h_transfer_count
		entry	h_entry_num
		entry	h_dev_number
		entry	h_name
		entry	h_extended
		entry	h_command_num
		entry	my_sys_exit
		entry	setup_vcr
		entry	set_user_cache
		entry	common_read
		entry	condition_flag
		entry	next_block
		entry	device_read_b
		entry	find_our_volume
		entry	check_xa
		
		eject
		include	'common.equ.src'
		include	'hw.equ.src'
		include 'M16.Memory'
		eject
*******************************************************************************
*
* High Sierra FST Equates
*
*******************************************************************************

*
* Volume Control Record	Equates	- FST Specific
*

vcr_total_blks	equ	vcr_dev+2		;Total # blocks	on volume.
vcr_block_size	equ	vcr_total_blks+4	;Size of a logical block.
vcr_path_size	equ	vcr_block_size+2	;Size of the path table.
vcr_root_dir	equ	vcr_path_size+4		;Directory record for root dir.
vcr_create_dt	equ	vcr_root_dir+34		;Create	date & time.
vcr_mod_dt	equ	vcr_create_dt+17	;Modification date & time.
vcr_state_flag	equ	vcr_mod_dt+17		;Flags for volume status.
*** changed 2-Dec-92 DAL
;vcr_path_table	equ	vcr_state_flag+2	;Path table.
vcr_path_tbl_handle equ vcr_state_flag+2	;handle to path table (Memory Manager handle)
our_vcr_size	equ	vcr_path_tbl_handle+4	;size of VCR (no longer varies with path table size)
*** end 2-Dec-92

*
* File Control Record Equates -	FST Specific
*

fcr_position	equ	fcr_access+2		;File mark.
fcr_entry_num	equ	fcr_position+4		;Directory entry #.
fcr_start_rec	equ	fcr_entry_num+2		;Start entry # of current dir block.
fcr_storage	equ	fcr_start_rec+2		;Storage type.
fcr_eof		equ	fcr_storage+2		;Eof.
fcr_blks	equ	fcr_eof+4		;Blocks	used.
fcr_open_block	equ	fcr_blks+4		;Block # in open buffer.
fcr_open_mark	equ	fcr_open_block+4	;Mark within open buffer.
fcr_skip_count	equ	fcr_open_mark+2		;Interleave skip counter.
fcr_error_flag	equ	fcr_skip_count+2	;Flag set if open buffer data invalid.
fcr_type_flag	equ	fcr_error_flag+2	;Shows read or get_dir_entry access.
fcr_dir_record	equ	fcr_type_flag+2		;Directory record. MUST	BE LAST	FIELD!

*
* FST direct page workspace equates.
*

io_buffer	equ	fst_start		;Pointer to io_buffer.
my_pblk		equ	io_buffer+4		;Pointer to my parameter block.
my_vcr		equ	my_pblk+4		;Pointer to my volume control record.
my_fcr		equ	my_vcr+4		;Pointer to my file control record.
newline_ptr	equ	my_fcr+4		;Pointer to newline list.
list_ptr	equ	newline_ptr+4		;Field list pointer.
path_ptr	equ	list_ptr+4		;Pointer to pathname.
dev_name	equ	path_ptr+4		;Pointer to device name.
data_buffer	equ	dev_name+4		;Pointer to data buffer.
path_table	equ	data_buffer+4		;Pointer to path table.
entry_offset	equ	path_table+4		;Offset	to entry in path table.
fcr_dir_ptr	equ	entry_offset+2		;Pointer to directory record in	fcr.
open_buf_ptr	equ	fcr_dir_ptr+4		;Pointer to open buffer	in fcr.
dividend	equ	open_buf_ptr+4		;32 bit	dividend.
multiplier	equ	dividend		;32 bit	multiplier.
divisor		equ	dividend+4		;32 bit	divisor.
multiplicand	equ	divisor			;32 bit	multiplicand.
remainder	equ	divisor+4		;32 bit	remainder.
newline_char	equ	remainder+4		;Will hold first byte of newline table.
bytes_left	equ	newline_char+2		;# bytes till satisfy read request.

*
* FST direct page to save within device_dispatch call...
*

input_string	equ	bytes_left+4		;Pointer to input string.
output_string	equ	input_string+4		;Pointer to output string.
product		equ	input_string		;8 byte	multiplication product.
temp0		equ	output_string+4		;Temporary storage.
temp1		equ	temp0+2			;Temporary storage.
length		equ	temp1+4			;Length	(temp).

drvr_dp_len	equ	drvr_blk_num+2-drvr_call_num ;Length of	driver dp area.
fst_dp_len	equ	length+4-input_string	;Length	of fst dp area.
misc_len	equ	$0060			;Length	of misc	area.

*
* High Sierra Volume Descriptor	equates.
* Suffix 0 (_0)	equates	are for	High Sierra, suffix 1 (_1) equates are for ISO.
*

vol_start	equ	16			;Start sector for volume header.
vol_terminator	equ	255			;Terminator value.

vol_type_0	equ	8			;Offset	to type.
vol_id_end_0	equ	13			;Offset	to end of 'CDROM' string.
vol_version_0	equ	14			;Offset	to version.
vol_file_ver_0	equ	854			;Offset	to file	structure standard ver.

vol_type_1	equ	0			;Offset	to type.
vol_id_end_1	equ	5			;Offset	to end of 'CD001' string.
vol_version_1	equ	6			;Offset	to version.
vol_file_ver_1	equ	881			;Offset	to file	structure standard ver.

vol_id_start_0	equ	48			;Offset	to start of volume name.
vol_id_len_0	equ	79-vol_id_start_0	;Length	of volume name -1.
vol_spce_size_0	equ	88			;Offset	to blocks used.
vol_blk_size_0	equ	136			;Offset	to block size.
vol_path_size_0	equ	140			;Offset	to path	table size.
vol_path_loc_0	equ	148			;Offset	to location of path table.
vol_root_dir_0	equ	180			;Offset	to root	directory.
vol_root_len_0	equ	213-vol_root_dir_0+1	;Length	of root	directory.
vol_create_dt_0	equ	790			;Offset	to create date & time.
vol_mod_dt_0	equ	806			;Offset	to modification	date & time.
vol_dt_len_0	equ	821-vol_create_dt_0+1	;Length	of create & mod	fields.

vol_id_start_1	equ	40			;Offset	to start of volume name.
vol_id_len_1	equ	71-vol_id_start_1	;Length	of volume name -1.
vol_spce_size_1	equ	80			;Offset	to blocks used.
vol_blk_size_1	equ	128			;Offset	to block size.
vol_path_size_1	equ	132			;Offset	to path	table size.
vol_path_loc_1	equ	140			;Offset	to location of path table.
vol_root_dir_1	equ	156			;Offset	to root	directory.
vol_root_len_1	equ	189-vol_root_dir_1+1	;Length	of root	directory.
vol_create_dt_1	equ	813			;Offset	to create date & time.
vol_mod_dt_1	equ	830			;Offset	to modification	date & time.
vol_dt_len_1	equ	846-vol_create_dt_1	;Length	of create & mod	fields -1.

vol_sys_id_0	equ	16			;Offset	to system id.
vol_sys_id_1	equ	8			;Offset	to system id.

vol_xa_label_1	equ	1024			;Offset to CD-ROM XA label.	

*
* High Sierra Directory	Record equates...
* Suffix 0 (_0)	equates	are for	High Sierra, suffix 1 (_1) equates are for ISO.
*

dir_len_dr	equ	0			;Length	of directory record.
dir_xar_len	equ	1			;Extended attribute record length.
dir_loc_extent	equ	2			;Location of extent.
dir_data_length	equ	10			;Length	of data, in bytes.
dir_date_time	equ	18			;Recording date	and time.
dir_flags_0	equ	24			;File flags.
dir_flags_1	equ	25			;File flags.
dir_int_size	equ	26			;Size of interleave.
dir_int_skip	equ	27			;Interleave skip factor.
dir_len_fi	equ	32			;Length	of file	identifier.
dir_file_id	equ	33			;File identifier.

max_rec_len	equ	256			;Max dir record	length.	Must be	even!
dir_mask	equ	2			;Bit mask for dir bit of file_flags.
assoc_mask	equ	4			;Bit mask for assoc file bit of	flags.
clear_invisible	equ	$fffe			;Bit mask for existence bit of flags.

*
* High Sierra Path Table equates...
* Suffix 0 (_0)	equates	are for	High Sierra, suffix 1 (_1) equates are for ISO.
*

pt_loc_extent_0	equ	0			;Offset	to location of directory extent.
pt_loc_extent_1	equ	2			;Offset	to location of directory extent.
pt_len_di_0	equ	5			;Offset	to len_di in path table	entry.
pt_len_di_1	equ	0			;Offset	to len_di in path table	entry.
pt_di_offset_0	equ	3			;Offset	from len_di to identifier in path table	entry.
pt_di_offset_1	equ	8			;Offset	from len_di to identifier in path table	entry.
pt_xar_len_0	equ	4			;Offset	to xar len in path table entry.
pt_xar_len_1	equ	1			;Offset	to xar len in path table entry.
pt_parent_dir	equ	6			;Offset	to parent_dir in path table.
pt_entry_len	equ	8			;Length	of path	table entry - len_di.

*
* General equates...
*

max_month	equ	12			;Max month value.
max_day		equ	31			;Max day value.
max_year	equ	100			;Max year value	+1.
max_hour	equ	60			;Max hour value	+1.
max_minute	equ	60			;Max minute value +1.
max_second	equ	60			;Max second value +1.

prodos_name_ln	equ	16			;Max length for	class 0	output names +1.
phys_blk_size	equ	512			;Physical block	size.
iso_bit		equ	$0001			;State flag ISO	version	bit.
apple_bit	equ	$0002			;State flag Apple Extensions bit.
prodos_bit	equ	$0004			;State flag ProDOS Filename Transformation bit.
xa_bit		equ	$0008			;State flag CD-ROM XA bit.
prodos_format	equ	$0001			;Apple Extensions ProDOS format	id.
sys_use_len	equ	35			;Length	used to	calculate for presence of sys use.
apple_str_len	equ	28			;Length	of apple string.
xa_str_len	equ	8			;Length of xa_string.
xa_offset	equ	14			;System use offset for XA discs.
apple_sig1	equ	$4142			;Signature word	1 in SystemUse field.
apple_sig2	equ	$4141			;Signature word	2 in SystemUse field.
crossover	equ	$2b800			;Size at which to switch calc_open_block.
type_file	equ	1			;Storage type for files.
type_extended	equ	5			;Storage type for extended files.
type_directory	equ	13			;Storage type for directories.
type_vol_dir	equ	15			;Storage type for volume directory.
file_type_dir	equ	15			;File type for directories.
set_extended	equ	$8000			;Extended flag for get_dir_entry.
online_mask	equ	$0010			;Mask for online bit of	device status.
switched_mask	equ	$0001			;Mask for switched bit of device status.
map_enable_off	equ	$0006			;Offset	into parm list for fst_specific.
map_size	equ	$0006			;Offset	into parm list for fst_specific.
map_buffer	equ	$0006			;Offset	into parm list for fst_specific.
get_file_call	equ	$06			;Call number for get_file_info.
get_dir_call	equ	$1c			;Call number for get_dir_entry.

max_names	equ	9			;Max # of names	in pathname.
separator0	equ	$2f			;Class 0 separator ('/').
separator1	equ	$3a			;Class 1 separator (':').
sector_size	equ	2048			;Size of a logical sector.
hs_id		equ	$000B			;Identifies high sierra	file system.
iso_id		equ	$000C			;Identifies ISO	9660 file system.
path1_mask	equ	$4000			;Used to determine if path1 is avail.
path2_mask	equ	$0040			;Used to determine if path2 is avail.
space		equ	$20			;Ascii space.

read_access	equ	$0001			;Read access.
full_access	equ	$00c3			;Full access.
user_cache_val	equ	$0001			;User cache value.
in_cache	equ	$0002			;Fst cache value.
max_base	equ	$0003			;Maximum base value.

*
* Storage Type Equates
*

standard_type	equ	$0001			;Standard file.
extended_type	equ	$0005			;Extended file.
directory_type	equ	$000d			;Directory file.

*
* Local	Equates...
*

map_ptr		equ	temp1			;startup/get_file_type/fst_specific     

day_of_mon	equ	temp0			;calc_dow
leap_years	equ	temp1			;calc_dow
option_list	equ	dividend		;get_option_list
max_len		equ	temp0			;get_option_list
block_count	equ	temp1			;get_option_list
current_dev	equ	temp0			;id_disk
sector_number	equ	temp1			;id_disk
vol_offset	equ	temp0			;build_vcr.
path_size	equ	temp1			;build_vcr.
device		equ	temp0			;find_a_vcr
last_offset	equ	temp0			;find_directory
start_record	equ	temp1			;search_path_table
file_type	equ	temp0			;search_dir
short_file_flag	equ	temp0			;build_fcr
status_flag	equ	temp0			;transfer_data
xfer_count	equ	temp1			;transfer_data
source_ptr	equ	dividend		;transfer_data
log_block	equ	temp1			;calc_open_block
old_vp		equ	list_ptr		;set_map_table

*
* General Equates...
*

len_bounce_tbl	equ	$000a			;Points	to end of bouncing_errors table.
specific_len	equ	$0008			;Length	of fst specific	dispatch table.
max_command_num	equ	$0004			;Max fst specific command_num.
input_len	equ	$0018			;Count of input	parameters.
file_sys_len	equ	$001e			;Length	of file_sys_table-2.
call_count	equ	$000f			;Count of handled calls.
max_call	equ	$0066			;Last valid application	call.
max_sys		equ	$0008			;Last valid system call.

*
* Equates used to build	the start_flags	table...
*

path_used	equ	$0100			;Path used bit.
vcr_used	equ	$0200			;Vcr used bit.
fcr_used	equ	$0400			;Fcr used bit.

max_mask	equ	$001f			;Isolate max pcount.
min_mask	equ	$00e0			;Isolate min pcount.

max_class	equ	$0001			;Maximum class #.

max_pcnt1	equ	1+1			;Values	for max	pcounts.
max_pcnt2	equ	2+1
max_pcnt3	equ	3+1
max_pcnt4	equ	4+1
max_pcnt5	equ	5+1
max_pcnt6	equ	6+1
max_pcnt7	equ	7+1
max_pcnt8	equ	8+1
max_pcnt9	equ	9+1
max_pcnt10	equ	10+1
max_pcnt11	equ	11+1
max_pcnt12	equ	12+1
max_pcnt13	equ	13+1
max_pcnt14	equ	14+1
max_pcnt15	equ	15+1
max_pcnt16	equ	16+1
max_pcnt17	equ	17+1

min_pcnt1	equ	$0020			;Values	for min	pcounts.
min_pcnt2	equ	$0040
min_pcnt3	equ	$0060
min_pcnt4	equ	$0080
min_pcnt5	equ	$00A0

*
* Equates for field list tables...
*

field_mask	equ	$00ff			;Isolate field.
offset_mask	equ	$3f00			;Isolate offset.
io_mask		equ	$4000			;Isolate i/o flag.

terminate	equ	$8000			;Terminator bit.
input		equ	$0000			;Input bit.
output		equ	$4000			;Output	bit.

f_pcount	equ	$0000			;(w)   input.
f_ref_num	equ	$0001			;(w)   input/output.
f_pathname	equ	$0002			;(ptr) input.
f_dev_name	equ	$0003			;(ptr) input.
f_request_access equ	$0004			;(w)   input.
f_resource_num	equ	$0005			;(w)   input.
f_data_buffer	equ	$0006			;(ptr) input.
f_request_count	equ	$0007			;(lw)  input.
f_cache_priority equ	$0008			;(w)   input.
f_position	equ	$0009			;(lw)  input/output.
f_base		equ	$000a			;(w)   input.
f_displacement	equ	$000b			;(lw)  input.
f_access	equ	$000c			;(w)   output.
f_file_type	equ	$000d			;(w)   output.
f_aux_type	equ	$000e			;(lw)  output.
f_total_blocks	equ	$000f			;(lw)  output.
f_storage_type	equ	$0010			;(w)   output.
f_create_date	equ	$0011			;(w)   output.
f_create_time	equ	$0012			;(w)   output.
f_mod_date	equ	$0013			;(w)   output.
f_mod_time	equ	$0014			;(w)   output.
f_blocks_used	equ	$0015			;(lw)  output.
f_create_date_time equ	$0016			;(4w)  output.
f_mod_date_time	equ	$0017			;(4w)  output.
f_option_list	equ	$0018			;(ptr) output.
f_eof		equ	$0019			;(lw)  output.
f_resource_eof	equ	$001a			;(lw)  output.
f_resource_blocks equ	$001b			;(lw)  output.
f_vol_name	equ	$001c			;(ptr) output.
f_free_blocks	equ	$001d			;(lw)  output.
f_file_sys_id	equ	$001e			;(w)   output.
f_block_size	equ	$001f			;(w)   output.
f_transfer_count equ	$0020			;(lw)  output.
f_entry_num	equ	$0021			;(w)   output.
f_dev_number	equ	$0022			;(w)   output.
f_name		equ	$0023			;(ptr) output.
f_extended	equ	$0024			;(w)   output.
f_command_num	equ	$0025			;(w)   input.

offset0		equ	$0000
offset2		equ	$0200
offset4		equ	$0400
offset6		equ	$0600
offset8		equ	$0800
offsetA		equ	$0A00
offsetC		equ	$0C00
offsetE		equ	$0E00
offset10	equ	$1000
offset12	equ	$1200
offset14	equ	$1400
offset16	equ	$1600
offset18	equ	$1800
offset1A	equ	$1A00
offset1C	equ	$1C00
offset1E	equ	$1E00
offset20	equ	$2000
offset22	equ	$2200
offset24	equ	$2400
offset26	equ	$2600
offset28	equ	$2800
offset2A	equ	$2A00
offset2C	equ	$2C00
offset2E	equ	$2E00
offset30	equ	$3000
offset32	equ	$3200
offset34	equ	$3400
offset36	equ	$3600
offset3A	equ	$3a00
		eject
*******************************************************************************
*
* FST HEADER
* Used by GS/OS	at boot	time.
*
*******************************************************************************

fst_header	proc
code_start	DC.B	'FST '			;Load identification (4	bytes).
		DC.L	appl_call		;Entry point for application calls.
		DC.L	system_call		;Entry point for system	calls.
		DC.W	HS_ID			;High Sierra FST id.
		DC.W	$9800			;Flags:	uppercase, clear msb, read-only.
		DC.W	$0402			;Version 4.02 final
		DC.W	$800			;Normal	block size.   (2k)
		DC.L	$57800			;Maximum blocks/volume.	(700Mb)
		DC.L	4			;Minimum blocks/volume.	(8k)
		DC.L	$2bbf7800		;Maximum file size.   (699.97Mb)
		DC.L	00000000		;Reserved.
		DC.B	11			;Length	of FST name.
		DC.B	'High Sierra'		;Text of FST name.
		DC.B	32			;Length	of comment.
		DC.B	'High Sierra FST       v04.02'
		DC.W	0000			;reserved field

		DC.B	endcredit-startcredit
startcredit	DC.B	'Copyright 1987-1992 Apple Computer, Inc. '
		DC.B	'Written by Bryan Atsatt.'
		DC.B	'Tested by Cary Farrier'
endcredit
		ENDP
		eject
*******************************************************************************
*
* DATA STORAGE AREA
*
*******************************************************************************

data		record	export

*
* Miscellaneous	constants/variables/storage...
*
apple_string	DC.B	'APPLE COMPUTER, INC., TYPE: ' ;Apple Extensions.
xa_string	dc.b	'CD-XA001'		;Must match this for CD-ROM XA.
hs_string	DC.B	'CDROM'			;Must match this for High Sierra.
iso_string	DC.B	'CD001'			;Must match this for ISO.

bounce_errors	dc.w	bad_system_call		;Bouncing errors list.
		dc.w	invalid_pcount
		dc.w	bad_path_syntax
		dc.w	vol_not_found
		dc.w	unknown_vol
		dc.w	not_block_dev

length_temp	ds.b	2			;Temporary length storage.
input_error	ds.b	2			;Storage for input error.
call		DS.B	2			;Current call #
trans_call	DS.B	2			;Translated call #.
class		DS.B	2			;Current class #.
real_log_size	DS.B	2			;Readl logical block size. MUST	INIT!
io_buffer_vp	DS.B	4			;VP to io_buffer.
max_pcount	DS.B	2			;Maximum pcount.
min_pcount	DS.B	2			;Minuimum pcount.
flags		DS.B	2			;Startup flags word.
io_flag		DS.B	2			;I/O flag for process_fields.
file_name	DS.B	45			;File name in gstring format.
string_buffer	DS.B	45			;Temporary storage for strings.
name_count	DS.B	2			;Count of names	in pathname.
name_offsets	DS.B	8			;Offsets to start of names in pathname.
temp_offsets	DS.B	8			;Temporary storage for offsets.
path_table_size	DS.B	2			;Path table size.
current_name	DS.B	2			;Current directory.
current_record	DS.B	2			;Current record.
record_number	DS.B	2			;Record	number.
record_offset	DS.B	2			;Offset	to record.
record_count	DS.B	2			;Record	count.
cache_value	DS.B	2			;Value of drvr_cache at	call start.
dir_record_0	DS.B	max_rec_len		;Buffer	for directory record 0.
dir_record_1	DS.B	max_rec_len		;Buffer	for directory record 1.
dir_length	DS.B	4			;Length	of directory record.
start_block	DS.B	4			;First block of	file/directory.
end_block	DS.B	4			;Last block of file/directory.
newline_length	DS.B	2			;Length	of newline list.
newline_mask	DS.B	2			;Mask for newline.
interleave_size	DS.B	2			;# consecutive blocks in file extent.
interleave_skip	DS.B	2			;# blocks to skip btwx consecutive.
skip_count	DS.B	2			;# blocks till next skip.
open_mark	DS.B	2			;position mark within open_buffer.
send_flag	DS.B	2			;Flag for send_open_bufr routine.
status_list	DS.B	6			;Space for status list.
skip_read_flag	DS.B	2			;Flag used by read_next_block.
read_size	DS.B	4			;Size of multi-block read.
abs_block	DS.B	4			;Absolute block	number.
read_count	DS.B	2			;Read block count.
id_disk_flag	DS.B	2			;1 = id_disk routine active, else 0.
state_flag	DS.B	2			;b0 = 1	if ISO version of High Sierra.
						;b1 = 1	if Apple Extensions disc.
						;b2 = 1	if ProDOS Transformation required.

error_priority	DS.B	2			;storage for error priority

*** added 2-Dec-92 DAL
current_path_tbl_handle ds.b 4			;path table handle to unlock on the way out
*** end 2-Dec-92

untitled_str	DC.B	'UNTITLED'		;Untitled string.
		DC.B	$00

*
* Miscellaneous	storage	that must be kept together so can be saved during
* the device_dispatch call...
*
* NOTE:	 If this section changes length, the misc_len equate MUST be changed!!!
*

gstring		DS.B	45			;Temp storage for gstrings.
volume_name	DS.B	45			;Volume	name in	gstring	format.
current_device	DS.B	2			;Current device.
start_device	DS.B	2			;Start device.
log_blk_size	DS.B	2			;Logical block size. MUST INIT!

storage_drvr	DS.B	drvr_dp_len		;Space for driver dp save.
storage_fst	DS.B	fst_dp_len		;Space for fst dp save.
storage_misc	DS.B	45+45+6			;Space for misc	save.

*
* D_info parameter table...
*

d_info_parms	DC.W	8			;Pcount.
d_info_device	DC.W	0			;Device	number.
		DC.L	string_buffer		;Pointer to output string.
		DC.W	0			;Characteristics.
		DC.L	0			;Total blocks.
		DC.W	0			;Slot number.
		DC.W	0			;Unit number.
		DC.W	0			;Version number.
d_info_id	DC.W	0			;Device	ID.

*
* File type map	data and map_enable_flag...
*

map_buffer_vp	DS.B	4			;Storage for vp.
map_buffer_ptr	DS.B	4			;Storage for pointer.

default_map	DC.W	$000f			;Size of default map.
		DC.B	'.TXT'			;Record	0.
		DC.B	$00,$04
		DC.B	'.BAT'			;Record	1.
		DC.B	$00,$04
		DC.B	$00			;Map terminator.

map_enable_flag	DC.W	0001			;Default is enabled.

*
* Dispatch table for fst_specific commands...
*
specific_cmds	DC.W	map_enable		;Map_enable.
		DC.W	get_map_size		;Get_map_size.
		DC.W	get_map_table		;Get_map_table.
		DC.W	set_map_table		;Set_map_table.

*
* Storage for input parameters...
*

pcount		DC.W	00			;Parameter count.
ref_num		DC.W	00			;File reference	number.
request_access	DC.W	00			;Request access	permissions.
resource_num	DC.W	00			;Resource number.
request_count	DC.L	00			;Request count.
cache_priority	DC.W	00			;Cache priority	flag.
position	DC.L	00			;File mark.
base		DC.W	00			;Base.
displacement	DC.L	00			;Displacement.
command_num	DC.W	00			;Fst_specific command number.

*
* Storage for output parameters...
*

total_blocks	DC.L	00			;Total blocks.
storage_type	DC.W	00			;Storage type.
prodos_time	DC.L	00			;Prodos	date/time.
blocks_used	DC.L	00			;Blocks	used.


create_date_time				;Create_date_time structure.
second		dc.b	00
minute		dc.b	00
hour		dc.b	00
year		dc.b	00
day		dc.b	00
month		dc.b	00
null		dc.b	00
weekday		dc.b	00

default_date_time dc.b	00,00,12,88,00,00,00,06


mod_date_time	DCB.B	8,00			;Modification date and time.
eof		DC.L	00			;End of	file.
resource_eof	DC.L	00			;Resource end of file.
resource_blocks	DC.L	00			;Resource blocks used.
block_size	DC.W	00			;Block size.
transfer_count	DC.L	00			;Transfer count.
entry_num	DC.W	00			;Entry number.
dev_number	DC.W	00			;Device	number.
extended_flag	DC.W	00			;Extended flag.

*
* High Sierra and ISO Version Support
*
* Set_file_system will copy either hs_offsets or iso_offsets into the
* file_sys_table and all references to the labels in this table	will be
* made as variables.
*
* High Sierra/ISO Field	Offsets...
*

file_sys_table					; 

vol_id_start	DS.B	2			;Offset	to start of volume name.
vol_id_len	DS.B	2			;Length	of volume name -1.
vol_space_size	DS.B	2			;Offset	to blocks used.
vol_block_size	DS.B	2			;Offset	to block size.
vol_path_size	DS.B	2			;Offset	to path	table size.
vol_path_loc	DS.B	2			;Offset	to location of path table.
vol_root_dir	DS.B	2			;Offset	to root	directory.
vol_root_len	DS.B	2			;Length	of root	directory.
vol_create_dt	DS.B	2			;Offset	to create date & time.
vol_mod_dt	DS.B	2			;Offset	to modification	date & time.
vol_dt_len	DS.B	2			;Length	of create & mod	fields.
dir_file_flags	DS.B	2			;File flags.
pt_loc_extent	DS.B	2			;Offset	to location of directory extent.
pt_len_di	DS.B	2			;Offset	to len_di in path table	entry.
pt_di_offset	ds.b	2			;Offset	from len_di to identifier in path table	entry.
pt_xar_len	ds.b	2			;Offset	to xar len in path table entry.

*
* High Sierra Field Offsets...
*

hs_offsets	DC.W	vol_id_start_0		;Offset	to start of volume name.
		DC.W	vol_id_len_0		;Length	of volume name -1.
		DC.W	vol_spce_size_0		;Offset	to blocks used.
		DC.W	vol_blk_size_0		;Offset	to block size.
		DC.W	vol_path_size_0		;Offset	to path	table size.
		DC.W	vol_path_loc_0		;Offset	to loc of path table.
		DC.W	vol_root_dir_0		;Offset	to root	directory.
		DC.W	vol_root_len_0		;Length	of root	directory.
		DC.W	vol_create_dt_0		;Offset	to create date & time.
		DC.W	vol_mod_dt_0		;Offset	to mod date & time.
		DC.W	vol_dt_len_0		;Length	of create & mod	fields.
		DC.W	dir_flags_0		;File flags.
		DC.W	pt_loc_extent_0		;Offset	to loc of dir extent.
		DC.W	pt_len_di_0		;Offset	to len_di in path table.
		DC.W	pt_di_offset_0		;Offset	from len_di to identifier in path table	entry.
		DC.W	pt_xar_len_0		;Offset	to xar len in path table entry.

*
* ISO Field Offsets...
*

iso_offsets	DC.W	vol_id_start_1		;Offset	to start of volume name.
		DC.W	vol_id_len_1		;Length	of volume name -1.
		DC.W	vol_spce_size_1		;Offset	to blocks used.
		DC.W	vol_blk_size_1		;Offset	to block size.
		DC.W	vol_path_size_1		;Offset	to path	table size.
		DC.W	vol_path_loc_1		;Offset	to loc of path table.
		DC.W	vol_root_dir_1		;Offset	to root	directory.
		DC.W	vol_root_len_1		;Length	of root	directory.
		DC.W	vol_create_dt_1		;Offset	to create date & time.
		DC.W	vol_mod_dt_1		;Offset	to mod date & time.
		DC.W	vol_dt_len_1		;Length	of create & mod	fields.
		DC.W	dir_flags_1		;File flags.
		DC.W	pt_loc_extent_1		;Offset	to loc of dir extent.
		DC.W	pt_len_di_1		;Offset	to len_di in path table.
		DC.W	pt_di_offset_1		;Offset	from len_di to identifier in path table	entry.
		DC.W	pt_xar_len_1		;Offset	to xar len in path table entry.

		eject
*
* STARTUP TABLES
*
* The following	table is used to translate GS/OS call #'s I handle
* to sequential	values from 0 to 9, times 2.
*
handled_calls	DC.B	$01,$02,$04,$05,$06,$08,$0b,$10,$12,$14,$16,$17,$19,$1c,$20,$33

*
* The following	table is used to setup and verify some parameters.
* Each call has	a one word entry in the	table with the following
* format:
*
*     1	- Max PCount for the call
*     2	- Min PCount for the call
*     3	- Pathnames used by call
*     4	- Volume control record	used
*     5	- File control record used
*     6	- I/O buffer used
*
*	      |6|5|4|3|	 2  |	 1    |
*      _______|_|_|_|_|_____|_________|
*     |	| | | |	| | | |	| | | |	| | | |
*     |_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|
*     |		      |		      |
*    1 6	     0 8	     0 0
*

start_flags					; 

		DC.W	max_pcnt7+min_pcnt1+path_used ;(01) Create
		DC.W	max_pcnt1+min_pcnt1+path_used ;(02) Destroy
		DC.W	max_pcnt3+min_pcnt2+path_used ;(04) Change_path
		DC.W	max_pcnt12+min_pcnt2+path_used ;(05) Set_file_info
		DC.W	max_pcnt12+min_pcnt2+path_used ;(06) Get_File_Info
		DC.W	max_pcnt6+min_pcnt2	;(08) Volume
		DC.W	max_pcnt1+min_pcnt1+path_used ;(0B) Clr_backup_bit
		DC.W	max_pcnt15+min_pcnt2+path_used ;(10) Open
		DC.W	max_pcnt5+min_pcnt4+vcr_used+fcr_used ;(12) Read
		DC.W	max_pcnt1+min_pcnt1+vcr_used+fcr_used ;(14) Close
		DC.W	max_pcnt3+min_pcnt3+vcr_used+fcr_used ;(16) Set_mark
		DC.W	max_pcnt2+min_pcnt2+vcr_used+fcr_used ;(17) Get_mark
		DC.W	max_pcnt2+min_pcnt2+vcr_used+fcr_used ;(19) Get_eof
		DC.W	max_pcnt17+min_pcnt5+vcr_used+fcr_used ;(1C) Get_dir_entry
		DC.W	max_pcnt2+min_pcnt2+path_used ;(20) Get_dev_num
		DC.W	max_pcnt3+min_pcnt3	;(33) Fst_specific

		eject

* DISPATCH TABLES
*
cmd_tbl		DC.W	create			;($01) create
		DC.W	write_protect		;($02) destroy
		DC.W	cmd_error		;($03) unimplemented
		DC.W	write_protect		;($04) change_path
		DC.W	write_protect		;($05) set_file_info
		DC.W	get_file_info		;($06) get_file_info
		DC.W	invalid_op		;($07) judge_name
		DC.W	volume			;($08) volume
		DC.W	cmd_error		;($09) set_prefix
		DC.W	cmd_error		;($0A) get_prefix'
		DC.W	write_protect		;($0B) clear_backup_bit
		DC.W	cmd_error		;($0C) unimplemented
		DC.W	cmd_error		;($0D) unimplemented
		DC.W	cmd_error		;($0E) unimplemented
		DC.W	cmd_error		;($0F) unimplemented
		DC.W	open			;($10) open
		DC.W	cmd_error		;($11) newline
		DC.W	read			;($12) read
		DC.W	wp_error		;($13) write
		DC.W	close			;($14) close
		DC.W	nop			;($15) flush
		DC.W	set_mark		;($16) set_mark
		DC.W	get_mark		;($17) get_mark
		DC.W	wp_error		;($18) set_eof
		DC.W	get_eof			;($19) get_eof
		DC.W	cmd_error		;($1A) set_level
		DC.W	cmd_error		;($1B) get_level
		DC.W	get_dir_entry		;($1C) get_dir_entry
		DC.W	cmd_error		;($1D) unimplemented
		DC.W	cmd_error		;($1E) unimplemented
		DC.W	cmd_error		;($1F) unimplemented
		DC.W	get_dev_num		;($20) get_dev_num
		DC.W	cmd_error		;($21) get_last_dev
		DC.W	cmd_error		;($22) read_block
		DC.W	cmd_error		;($23) write_block
		DC.W	wp_error		;($24) format
		DC.W	wp_error		;($25) erase_disk
		DC.W	cmd_error		;($26) get_pathname
		DC.W	cmd_error		;($27) get_name
		DC.W	cmd_error		;($28) get_boot_vol
		DC.W	cmd_error		;($29) quit
		DC.W	cmd_error		;($2A) get_version
		DC.W	cmd_error		;($2B) get_fst_info
		DC.W	cmd_error		;($2C) d_info
		DC.W	cmd_error		;($2D) d_status
		DC.W	cmd_error		;($2E) d_control
		DC.W	cmd_error		;($2F) d_read
		DC.W	cmd_error		;($30) d_write
		DC.W	cmd_error		;($31) alloc_interrupt
		DC.W	cmd_error		;($32) dealloc_interrupt
		DC.W	fst_specific		;($33) fst_specific.


sys_tbl		DC.W	startup			;Initialize
		DC.W	shutdown		;Quit
		DC.W	kill_vcr		;was clc_rtl, 2-Dec-92 DAL
		DC.W	clc_rtl			;Do nothing call.

		eject

* FIELD	TABLES
*
* The following	tables point to	the field lists	for class 0 and	1...
*
class0		DC.W	call01_class0		;Create.
		DC.W	call01_class0		;Destroy.
		DC.W	call01_class0		;Change_path.
		DC.W	call01_class0		;Set_file_info.
		DC.W	call06_class0		;Get_file_info.
		DC.W	call08_class0		;Volume.
		DC.W	call01_class0		;Clear_backup_bit.
		DC.W	call10_class0		;Open.
		DC.W	call12_class0		;Read.
		DC.W	call14_class0		;Close.
		DC.W	call16_class0		;Set_mark.
		DC.W	call17_class0		;Get_mark.
		DC.W	call19_class0		;Get_eof.
		DC.W	call1c_class0		;Get_dir_entry.
		DC.W	call20_class0		;Get_dev_num.

class1		DC.W	call01_class1		;Create.
		DC.W	call01_class1		;Destroy.
		DC.W	call01_class1		;Change_path.
		DC.W	call01_class1		;Set_file_info.
		DC.W	call06_class1		;Get_file_info
		DC.W	call08_class1		;Volume.
		DC.W	call01_class1		;Clear_backup_bit.
		DC.W	call10_class1		;Open.
		DC.W	call12_class1		;Read.
		DC.W	call14_class1		;Close.
		DC.W	call16_class1		;Set_mark.
		DC.W	call17_class1		;Get_mark.
		DC.W	call19_class1		;Get_eof.
		DC.W	call1c_class1		;Get_dir_entry.
		DC.W	call20_class1		;Get_dev_num.
		DC.W	call33_class1		;Fst_specific.

*
* Each call has	a list of one word entries with	the following format:
*
*     1	- Field	number times two
*     2	- Field	offset
*     3	- I/O flag: 0 =	input, 1 = output.
*     4	- Terminator: 1	= last entry in	list.
*
*     |4|3|	2     |	      1	      |
*     |_|_|___________|_______________|
*     |	| | | |	| | | |	| | | |	| | | |
*     |_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|
*     |		      |		      |
*    1 6	     0 8	     0 0

*
* Create, Destroy, Change_path,	Set_file_info, Clear_backup_bit	field lists...
*

call01_class0	DC.W	2*f_pathname+offset0+input+terminate

call01_class1	DC.W	2*f_pcount+offset0+input
		DC.W	2*f_pathname+offset2+input+terminate

*
* Get_file_info	field lists...
*

call06_class0	DC.W	2*f_pathname+offset0+input
		DC.W	2*f_access+offset4+output
		DC.W	2*f_file_type+offset6+output
		DC.W	2*f_aux_type+offset8+output
		DC.W	2*f_storage_type+offsetc+output
		DC.W	2*f_create_date+offsete+output
		DC.W	2*f_create_time+offset10+output
		DC.W	2*f_mod_date+offset12+output
		DC.W	2*f_mod_time+offset14+output
		DC.W	2*f_blocks_used+offset16+output+terminate

call06_class1	DC.W	2*f_pcount+offset0+input
		DC.W	2*f_pathname+offset2+input
		DC.W	2*f_access+offset6+output
		DC.W	2*f_file_type+offset8+output
		DC.W	2*f_aux_type+offseta+output
		DC.W	2*f_storage_type+offsete+output
		DC.W	2*f_create_date_time+offset10+output
		DC.W	2*f_mod_date_time+offset18+output
		DC.W	2*f_option_list+offset20+output
		DC.W	2*f_eof+offset24+output
		DC.W	2*f_blocks_used+offset28+output
		DC.W	2*f_resource_eof+offset2c+output
		DC.W	2*f_resource_blocks+offset30+output+terminate

*
* Volume field lists...
*

call08_class0	DC.W	2*f_dev_name+offset0+input
		DC.W	2*f_vol_name+offset4+output
		DC.W	2*f_total_blocks+offset8+output
		DC.W	2*f_free_blocks+offsetc+output
		DC.W	2*f_file_sys_id+offset10+output+terminate

call08_class1	DC.W	2*f_pcount+offset0+input
		DC.W	2*f_dev_name+offset2+input
		DC.W	2*f_vol_name+offset6+output
		DC.W	2*f_total_blocks+offseta+output
		DC.W	2*f_free_blocks+offsete+output
		DC.W	2*f_file_sys_id+offset12+output
		DC.W	2*f_block_size+offset14+output+terminate

*
* Open field lists...
*

call10_class0	DC.W	2*f_ref_num+offset0+output
		DC.W	2*f_pathname+offset2+input+terminate

call10_class1	DC.W	2*f_pcount+offset0+input
		DC.W	2*f_ref_num+offset2+output
		DC.W	2*f_pathname+offset4+input
		DC.W	2*f_request_access+offset8+input
		DC.W	2*f_resource_num+offseta+input
		DC.W	2*f_access+offsetc+output
		DC.W	2*f_file_type+offsete+output
		DC.W	2*f_aux_type+offset10+output
		DC.W	2*f_storage_type+offset14+output
		DC.W	2*f_create_date_time+offset16+output
		DC.W	2*f_mod_date_time+offset1e+output
		DC.W	2*f_option_list+offset26+output
		DC.W	2*f_eof+offset2a+output
		DC.W	2*f_blocks_used+offset2e+output
		DC.W	2*f_resource_eof+offset32+output
		DC.W	2*f_resource_blocks+offset36+output+terminate

*
* Read field lists...
*

call12_class0	DC.W	2*f_ref_num+offset0+input
		DC.W	2*f_data_buffer+offset2+input
		DC.W	2*f_request_count+offset6+input
		DC.W	2*f_transfer_count+offseta+output+terminate

call12_class1	DC.W	2*f_pcount+offset0+input
		DC.W	2*f_ref_num+offset2+input
		DC.W	2*f_data_buffer+offset4+input
		DC.W	2*f_request_count+offset8+input
		DC.W	2*f_transfer_count+offsetc+output
		DC.W	2*f_cache_priority+offset10+input+terminate

*
* Close	field lists...
*

call14_class0	DC.W	2*f_ref_num+offset0+input+terminate

call14_class1	DC.W	2*f_pcount+offset0+input
		DC.W	2*f_ref_num+offset2+input+terminate

*
* Set_mark field lists...
*

call16_class0	DC.W	2*f_ref_num+offset0+input
		DC.W	2*f_displacement+offset2+input+terminate

call16_class1	DC.W	2*f_pcount+offset0+input
		DC.W	2*f_ref_num+offset2+input
		DC.W	2*f_base+offset4+input
		DC.W	2*f_displacement+offset6+input+terminate

*
* Get_mark field lists...
*

call17_class0	DC.W	2*f_ref_num+offset0+input
		DC.W	2*f_position+offset2+output+terminate

call17_class1	DC.W	2*f_pcount+offset0+input
		DC.W	2*f_ref_num+offset2+input
		DC.W	2*f_position+offset4+output+terminate

*
* Get_eof field	lists...
*

call19_class0	DC.W	2*f_ref_num+offset0+input
		DC.W	2*f_eof+offset2+output+terminate

call19_class1	DC.W	2*f_pcount+offset0+input
		DC.W	2*f_ref_num+offset2+input
		DC.W	2*f_eof+offset4+output+terminate

*
* Get_dir_entry	field lists...
*

call1c_class0	DC.W	2*f_ref_num+offset0+input
		DC.W	2*f_extended+offset2+output
		DC.W	2*f_base+offset4+input
		DC.W	2*f_displacement+offset6+input
		DC.W	2*f_name+offset8+output
		DC.W	2*f_entry_num+offsetc+output
		DC.W	2*f_file_type+offsete+output
		DC.W	2*f_eof+offset10+output
		DC.W	2*f_blocks_used+offset14+output
		DC.W	2*f_create_date_time+offset18+output
		DC.W	2*f_mod_date_time+offset20+output
		DC.W	2*f_access+offset28+output
		DC.W	2*f_aux_type+offset2a+output
		DC.W	2*f_file_sys_id+offset2e+output+terminate

call1c_class1	DC.W	2*f_pcount+offset0+input
		DC.W	2*f_ref_num+offset2+input
		DC.W	2*f_extended+offset4+output
		DC.W	2*f_base+offset6+input
		DC.W	2*f_displacement+offset8+input
		DC.W	2*f_name+offseta+output
		DC.W	2*f_entry_num+offsete+output
		DC.W	2*f_file_type+offset10+output
		DC.W	2*f_eof+offset12+output
		DC.W	2*f_blocks_used+offset16+output
		DC.W	2*f_create_date_time+offset1a+output
		DC.W	2*f_mod_date_time+offset22+output
		DC.W	2*f_access+offset2a+output
		DC.W	2*f_aux_type+offset2c+output
		DC.W	2*f_file_sys_id+offset30+output
		DC.W	2*f_option_list+offset32+output
		DC.W	2*f_resource_eof+offset36+output
		DC.W	2*f_resource_blocks+offset3A+output+terminate

*
* Get_dev_num field lists...
*

call20_class0	DC.W	2*f_dev_name+offset0+input
		DC.W	2*f_dev_number+offset4+output+terminate

call20_class1	DC.W	2*f_pcount+offset0+input
		DC.W	2*f_dev_name+offset2+input
		DC.W	2*f_dev_number+offset6+output+terminate
*
* Fst_specific field list (this	is always a class 1 call)...
*

call33_class1	DC.W	2*f_pcount+offset0+input
		DC.W	2*f_command_num+offset4+input+terminate

*
* The following	table is a list	of the field handler subroutine
* addresses...
*

handlers	DC.W	h_pcount		;(w)   input.
		DC.W	h_ref_num		;(w)   input/output.
		DC.W	h_pathname		;(ptr) input.
		DC.W	h_dev_name		;(ptr) input.
		DC.W	h_request_access	;(w)   input.
		DC.W	h_resource_num		;(w)   input.
		DC.W	h_data_buffer		;(ptr) input.
		DC.W	h_request_count		;(lw)  input.
		DC.W	h_cache_priority	;(w)   input.
		DC.W	h_position		;(lw)  output.
		DC.W	h_base			;(w)   input.
		DC.W	h_displacement		;(lw)  input.
		DC.W	h_access		;(w)   output.
		DC.W	h_file_type		;(w)   output.
		DC.W	h_aux_type		;(lw)  output.
		DC.W	h_total_blocks		;(lw)  output.
		DC.W	h_storage_type		;(w)   output.
		DC.W	h_create_date		;(w)   output.
		DC.W	h_create_time		;(w)   output.
		DC.W	h_mod_date		;(w)   output.
		DC.W	h_mod_time		;(w)   output.
		DC.W	h_blocks_used		;(lw)  output.
		DC.W	h_create_date_time	;(4w)  output.
		DC.W	h_mod_date_time		;(4w)  output.
		DC.W	h_option_list		;(ptr) output.
		DC.W	h_eof			;(lw)  output.
		DC.W	h_resource_eof		;(lw)  output.
		DC.W	h_resource_blocks	;(lw)  output.
		DC.W	h_vol_name		;(ptr) output.
		DC.W	h_free_blocks		;(lw)  output.
		DC.W	h_file_sys_id		;(w)   output.
		DC.W	h_block_size		;(w)   output.
		DC.W	h_transfer_count	;(lw)  output.
		DC.W	h_entry_num		;(w)   output.
		DC.W	h_dev_number		;(w)   output.
		DC.W	h_name			;(ptr) output.
		DC.W	h_extended		;(w)   output.
		DC.W	h_command_num		;(w)   input.
*
* Storage for process_fields...
*

field_num	DS.B	2			;Field number.
field_flags	DS.B	2			;Flags word for	field.
field_count	DS.B	2			;Copy of pcount.

*
******************************************************************************
		endr
		eject
******************************************************************************
*
*	 Name:	Appl_call
*
* Description:	Entry point for	all application	calls.	Called by GS/OS	only.
*		Validates call before passing control to call handler.
*
*     Created:	Oct 6, 1987
*    Modified:	Mar 5, 1991
*      Author:	Bryan Atsatt
*
*	Entry:	jml
*
*	Input:	A = undefined
*		X = call number	times 2
*		Y = class number times 2
*		P = nvmxdizc
*		    ..000...
*
*      Output:	A = error code if carry	set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*
*	 Exit:	jml sys_exit
*
*	 Uses:	Everything!
*
******************************************************************************

appl_call	proc
		with	data

*
* Setup	environment...
*
		phk				;Setup our bank	register.
		plb
		rep	#$30			;Make sure in 16 bit mode.

*** added 2-Dec-92 DAL -- Handle to unlock on the way out
		stz	current_path_tbl_handle+2
		stz	current_path_tbl_handle
*** end 2-Dec-92

*
* Call # valid?
*
		cpx	#max_call+1		;In range?
		bcc	command_ok		;Yes.
		brl	cmd_error		;Nope.
*
* Yes, save drvr_cahce and clear id_disk_flag.	Call ok?
*
command_ok	lda	drvr_cache		;Get value.
		sta	cache_value		;Save it.
		stz	id_disk_flag		;Clear flag.

		phx				;Save x.
		jsr	setup_call		;Do setup parameters and validate.
		plx				;Recover x.
		bcs	exit			;Bad call.
*
* Yes, so jsr to call handler...
*
		jsr	(cmd_tbl-2,x)		;Do call.
*
* Unlock memory, set drvr_cache	back the way it	was and	exit...
*
exit		php				;Save carry.
		pha				;Save error code.
		jsr	unlock_mem		;Unlock	memory.
		lda	cache_value		;Get old value.
		sta	drvr_cache		;Set cache value.
*** added 2-Dec-92 DAL -- Unlock current_path_tbl_handle, if any
		lda	current_path_tbl_handle+1	;check middle word
		beq	@that_was_easy
		lda	current_path_tbl_handle+2
		pha
		lda	current_path_tbl_handle
		pha
		_HUnlock
@that_was_easy
*** end 2-Dec-92
		pla				;Recover error code.
		plp				;Recover carry.	Error?
		bcs	error_exit		;Yep.
		lda	#no_error		;No, so	get no error code.
		jml	sys_exit		;Exit to GS/OS.

*
* We're reporting an error.
* Before exiting to SCM, put the error priority in the hi byte of the error code.
*
error_exit	ora	error_priority		;put error priority in hi byte
		jml	sys_exit		;exit to GS/OS
		
		ENDP
		eject
******************************************************************************
*
*	 Name:	sys_call
*
* Description:	Entry point for	all FST	system calls.  Called by GS/OS only.
*
*     Created:	Oct 6, 1987
*    Modified:	Oct 6, 1987
*      Author:	Bryan Atsatt
*
*	Entry:	jsl
*
*	Input:	A = undefined
*		X = call number	times 2
*		Y = class number times 2
*		P = nvmxdizc
*		    ..000...
*
*      Output:	A = error code if carry	set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*	 Exit:	rtl
*
*	 Uses:	Everything!
*
******************************************************************************

system_call	proc
		with	data

*
* Setup	environment...
*
		phk				;Setup our bank	register.
		plb
*
* Call # valid?
*
		cpx	#max_sys+1		;In range?
		bcc	valid			;Yep.
		lda	#bad_system_call	;Nope, get error code.
		jmp	my_sys_exit		;Unlock	mem and	exit w/carry set.
*
* Jump to call handler...
*
valid		jmp	(sys_tbl-2,x)		;Yes, so do it.

		ENDP
		eject
******************************************************************************
*
*	 Name:	startup
*
* Description:	Gets a buffer from GIM to be used as a general io buffer, and
*		a buffer for the file_type_map and copies the default map into
*		it.  Also initializes log_blk_size and real_log_size.
*
*     Created:	Oct 6, 1987
*    Modified:	Mar 28,	1988
*      Author:	Bryan Atsatt
*
*	Entry:	jmp
*
*	Input:	A = undefined
*		X = call number	times 2
*		Y = class number times 2
*		P = nvmxdizc
*		    ..000...
*
*      Output:	A = error code if carry	set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*
*		io_buffer_vp		;vp for	io_buffer.
*		map_buffer_vp		;vp for	map_buffer.
*
*	 Exit:	rtl
*
*	 Uses:	io_buffer_vp
*		map_buffer_vp
*		temp1
*		log_blk_size
*		real_log_size
*		alloc_seg		(sub)
*
******************************************************************************

startup		proc
		with	data

*
* Get memory for io_buffer and save vp...
*
		lda	#Sector_size		;Get size of sector.
		jsr	alloc_seg		;Get a hunk that size.
		lda	#out_of_mem		;Get error code	in case	full.
		bcs	exit			;Error,	so exit	with carry set.

		stx	io_buffer_vp		;Save it.
		sty	io_buffer_vp+2
*
* Get memory for map_buffer and	save vp...
*
		lda	default_map		;Get size from default_map.
		jsr	alloc_seg		;Get a hunk that size.
		lda	#out_of_mem		;Get error code	in case	full.
		bcs	exit			;Error,	so exit	with carry set.

		stx	map_buffer_vp		;Save it.
		sty	map_buffer_vp+2
*
* Copy default map into	map buffer...
*
		jsl	deref			;Dereference vp.
		stx	map_ptr			;Save pointer.
		sty	map_ptr+2

		longa	off			;Set 8 bit A.
		sep	#$20

		ldy	default_map		;Get map size.
copy_loop	dey				;Done all?
		bmi	restore_a		;Yep.
		lda	default_map,y		;Nope, get byte.
		sta	[map_ptr],y		;Put it	in buffer.
		bra	copy_loop		;And loop.

		longa	on			;Restore 16 bit	A.
restore_a	rep	#$20
*
* Initialize log_blk_size and real_log_size...
*
		lda	#sector_size		;Get sector size (2k).
		sta	log_blk_size		;Init log_blk_size.
		sta	real_log_size		;Init real_log_size.
*
* Exit with no error...
*
		clc				;Exit with no error.
exit		rtl

		ENDP
		eject
******************************************************************************
*
*	 Name:	shutdown
*
* Description:	Releases 2k io_buffer and unlocks memory.
*
*     Created:	Oct 6, 1987
*    Modified:	Oct 6, 1987
*      Author:	Bryan Atsatt
*
*	Entry:	jmp
*
*	Input:	A = undefined
*		X = call number	times 2
*		Y = class number times 2
*		P = nvmxdizc
*		    ..000...
*
*      Output:	A = error code if carry	set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*
*	 Exit:	rtl
*
*	 Uses:	io_buffer_vp
*
******************************************************************************

shutdown	proc
		with	data

*
* Are we doing a warm shutdown?  Do nothing if so...
*
		clc				;Precondition to no error.
		lda	>warm_cold_flag		;Get flag. Warm shutdown?
		bne	exit			;Yes, so do nothing.
*
* Release memory...
*
		ldx	io_buffer_vp		;Get virtual pointer.
		ldy	io_buffer_vp+2
		jsr	release_seg		;Free it up.
*
* Unlock memory	and exit...
*
		entry	my_sys_exit
my_sys_exit					;	        
		php				;Save carry.
		pha				;Save error code.
		jsr	unlock_mem		;Unlock	memory.
		pla				;Recover error code.
		plp				;Recover carry.
exit		rtl				;Pass any errors back to Mike &	Jim.

		ENDP

*** added 2-Dec-92 DAL -- modeled after HFS FST
		eject
******************************************************************************
*
*	 Name:	kill_vcr
*
* Description:	This routine is called by SCM when a VCR is being released.
*
*	Entry:	jmp
*
*	Input:	A = undefined
*		X = call number	times 2
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K (??? I don't think so --DAL)
*
*		<vcr_ptr - ptr to vcr
*
*      Output:	A = error code if carry	set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*	 Exit:	rtl
*
*	 Uses:	all registers
*
*   Called by:	sys_entry
*
*	Calls:	DisposeHandle (Memory Manager)
*
******************************************************************************

kill_vcr	PROC
		with	data

		phk
		plb				;SCM assumes we munge DBR
*
* Dispose of the Path Table Handle, if any
*
		ldy	#vcr_path_tbl_handle+1	;check middle word ($0000=no handle)
		lda	[vcr_ptr],y
		clc				;anticipate no error
		beq	done

		ldy	#vcr_path_tbl_handle+2	;get offset path table handle, high word
		lda	[vcr_ptr],y
		pha
		dey
		dey
		lda	[vcr_ptr],y		;get low word of handle
		pha
		_DisposeHandle

*
* If we just disposed of our current_path_tbl_handle, zero it out so we
* don't accidentally try to unlock it again.
*
		php
		pha

		ldy	#vcr_path_tbl_handle+2
		lda	[vcr_ptr],y
		cmp	current_path_tbl_handle+2
		bne	@not_same
		dey
		dey
		lda	[vcr_ptr],y
		cmp	current_path_tbl_handle
		bne	@not_same

		stz	current_path_tbl_handle+2
		stz	current_path_tbl_handle
		
@not_same	pla
		plp

done		rtl				;return any errors to SCM	

		EndP
*** end 2-Dec-92

		eject
******************************************************************************
*
* HERE ARE THE EASY-TO-HANDLE APPLICATION & SYSTEM CALLS
*
******************************************************************************

easy_calls	proc
		with	data

		export	INVALID_OP
invalid_op					;	        
		lda	#invalid_fst_op		;Get invalid op error.
		sec				;Indicate error.
		rts				;Exit.

		export	CMD_ERROR
cmd_error					;	        
		lda	#bad_system_call	;Get bad call error.
		sec				;Indicate error.
		rts				;Exit.

		export	NOP
nop						;	        
		clc				;Indicate no error.
		rts				;Exit.

		export	WP_ERROR
wp_error					;	        
		lda	#drvr_wr_prot		;Get write-protect error.
		sec				;Indicate error.
		rts				;Exit.

		export	CLC_RTL
clc_rtl						;	        
		clc				;Indicate no error.
		rtl				;Exit.

		ENDP
		eject
******************************************************************************
*
*	 Name:	setup_call
*
* Description:	This routine is	called at the start of each system call	to
*		setup parameters and check the validity	of the call.  If a
*		VCR is used by the call	and the	media is swapped out, the
*		system mount routine will be called.
*
*		Also locks down	all GS/OS managed memory.
*
*     Created:	Oct 6, 1987
*    Modified:	Mar 5, 1991
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = two	times the call #.
*		Y = two	times the class	#.
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*      Output:	A = class of call, or error code if error
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..0 if	no error.
*			   1 if	error
*		B = K
*
*		call		 call number.
*		class		 call class.
*		trans_call	 translated call #.
*		io_buffer	 points	to 2k buffer.
*		my_pblk		 points	past to	1st param.
*		my_vcr		 points	to vcr,	if used, else 00.
*		path_table	 points	to path	table (if vcr used)
*		log_blk_size	 size of block (if vcr used)
*		real_log_size	 same as log_blk_size
*		path_table_size	 size of path table (if	vcr used)
*		my_fcr		 points	to fcr (if used).
*		pcount		 pcount	for call (0 if class 0).
*		ref_num		 file reference	number (if present).
*		path_ptr	 pointer to pathname (if present).
*		volume_name	 holds volume name (if pathname	present).
*		file_name	 holds file name (if pathname present).
*		name_count	 # of names in pathname	(if pathname present).
*		name_offsets	 offsets to names in pathname (if present).
*		dev_name	 pointer to device name	(if present).
*		request_access	 access	permissions (if	present).
*		resource_num	 resource number (if present).
*		data_buffer	 pointer to users data buffer (if present).
*		request_count	 read count (if	present).
*		cache_priority	 cache value (if present, 0 if not).
*		position	 file mark (if present).
*		base		 base flag (if present).
*		displacement	 displacement (if present).
*
*	 Exit:	rts
*
*	 Uses:	flags
*		max_pcount
*		min_pcount
*		all storage above
*		get_input		(sub)
*		parse_path		(sub)
*		mount_volume		(sub)
*
* Each call has	a one word entry in the	table with the following
* format:
*
*     1	- Max PCount for the call
*     2	- Min PCount for the call
*     3	- Pathnames used by call
*     4	- Volume control record	used
*     5	- File control record used
*
*		|5|4|3|	 2  |	 1    |
*      _________|_|_|_|_____|_________|
*     |	| | | |	| | | |	| | | |	| | | |
*     |_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|
*     |		      |		      |
*    1 6	     0 8	     0 0
*
******************************************************************************

setup_call	proc
		with	data

*
* Init some variables...
*
		stz	input_error		;Clear error.
		stz	name_count		;Clear it.
		stz	base			;Clear it.
		stz	interleave_size		;Clear it.
		stz	interleave_skip		;Clear it.
		stz	error_priority		;error priority is 0			
*
* Set call and	class...
*
		txa				;Divide	call # by 2.
		lsr	a
		sta	call			;Set current call.

		tya				;Divide	class #	by 2.
		lsr	a
		sta	class			;Set current class.
*
* Is class valid?
*
		cmp	#max_class		;Valid?
		beq	class_ok		;Yep.
		bcc	class_ok		;Yep.
*
* No, so exit with invalid_class error...
*
		lda	#invalid_class		;Nope, so get error code.
		sec				;Indicate error.
		rts				;Exit.
*
* Yes, get translated call #.  Exit if this is not a call I handle...
*
class_ok	ldy	#call_count		;Point to end of list.
call_loop	lda	handled_calls,y		;Get call #.
		and	#$00ff			;Clear high byte.
		cmp	call			;Is this the call?
		beq	valid_call		;Yep.
		dey				;Nope, checked all?
		bpl	call_loop		;No, so	loop.
		clc				;Yes, so exit with carry clear.
		rts

valid_call	tya				;Get call #.
		asl	a			;Multiply by 2.
		sta	trans_call		;Save it.
		tax				;Put in	X.
*
* Get entry from start_flags and save it in flags.
*
		lda	start_flags,x		;Get flags word.
		sta	flags			;Save it.
*
* Set max_pcount and min_pcount...
*
		and	#max_mask		;Isolate max_pcount.
		sta	max_pcount		;Save it.

		lda	flags			;Get flags.
		and	#min_mask		;Isolate min_pcount.
		asl	a			;Get it	in low byte.
		asl	a
		asl	a
		xba
		sta	min_pcount		;Save it.
*
* Set my_pblk =	param_blk_ptr...
*
		lda	param_blk_ptr		;Copy to my_pblk.
		sta	my_pblk
		lda	param_blk_ptr+2
		sta	my_pblk+2
*
* Get input parameters.	Any Errors?
*
		jsr	get_input		;Get input. Any	errors?
		bcc	input_ok		;Nope.
*
* Yep. If this call does not use a pathname, then exit with the	error.
* If it	does, check to see if it is a bouncing error and if so,	exit with
* the error.  If not, save error in input_error	and continue...
*
		tax				;Save error code.
		lda	flags			;Path used by call?
		and	#path_used
		beq	send_error		;Nope.

		ldy	#len_bounce_tbl		;Yes, is it a bouncing error?
		txa
bounce_loop	cmp	bounce_errors,y
		beq	send_error		;Yep.
		dey
		dey
		bpl	bounce_loop

		stx	input_error		;Nope, save error.
		bra	input_ok		;And continue.

send_error	txa				;Recover error code.
		sec				;Indicate error.
		rts				;Exit.
*
* Nope,	get pointer to io_buffer and map_buffer, and lock memory...
*
input_ok	ldx	io_buffer_vp		;Get vp.
		ldy	io_buffer_vp+2
		jsl	deref			;Dereference it.
		stx	io_buffer		;Save pointer.
		sty	io_buffer+2

		ldx	map_buffer_vp		;Get vp.
		ldy	map_buffer_vp+2
		jsl	deref			;Dereference it.
		stx	map_buffer_ptr		;Save pointer.
		sty	map_buffer_ptr+2

		jsl	lock_mem		;Lock all memory.
*
* Do we	need a VCR?
*
		stz	my_vcr			;Clear my_vcr in case don't need it.
		stz	my_vcr+2
		lda	flags			;Get flags.
		and	#vcr_used		;Need a	vcr?
		beq	check_fcr		;Nope.
*
* Yes, so setup	pointer	to vcr and call	setup_vcr...
*
		ldx	vcr_ptr			;Get VP	from zp.
		ldy	vcr_ptr+2
		jsl	deref			;Dereference it.
		stx	my_vcr			;Save pointer.
		sty	my_vcr+2

		jsr	setup_vcr		;Get some of the vcr variables.
*
* Do we	need a FCR?
*
check_fcr	lda	flags			;Get flags.
		and	#fcr_used		;Need a	vcr?
		beq	check_path		;Nope.
*
* Yes, setup pointer to	fcr...
*
		ldx	fcr_ptr			;Get VP	from zp.
		ldy	fcr_ptr+2
		jsl	deref			;Dereference it.
		stx	my_fcr			;Save pointer.
		sty	my_fcr+2
*
* Do we	need a pathname?
*
check_path	lda	flags			;Get flags.
		and	#path_used		;Need a	pathname?
		bne	need_path		;Yes.
*
* Nope,	so exit	with carry clear...
*
		clc				;Indicate no error.
		rts				;exit.
*
* Yes, exit through parse_path...
*
need_path	jmp	parse_path		;Parse pathname.

		ENDP
		eject
******************************************************************************
*
*	 Name:	activate_vcr
*
* Description:	Marks vcr as active, gets new log_blk_size and real_log_size,
*		sets pointer to	the path table and gets	the size of the	path
*		table.	Also sets state_flag and calls set_file_system.
*
*	 NOTE:	Contains an alternate entry point!
*
*     Created:	Oct 21,	1987
*    Modified:	Mar 28,	1988
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined.
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		my_vcr			points to current vcr.
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		log_blk_size		;size of blocks	on this	volume
*		real_log_size		;copy of log_blk_size
*		path_table_size		;size of path table
*		path_table		;pointer to path table
*		state_flag		;b0 = 1	if ISO version of High Sierra.
*					;b1 = 1	if Apple Extensions disc.
*					;b2 = 1	if ProDOS Transformation required.
*
*	 Exit:	rts
*
*	 Uses:	all registers
*		set_file_system		(sub)
*
******************************************************************************

activate_vcr	proc
		with	data

*
* Mark vcr as active...
*
		ldy	#vcr_status		;Get offset to status.
		lda	[my_vcr],y		;Get status.
		and	#vcr_swapped_in		;Clear swapped bit.
		sta	[my_vcr],y		;Save it.
*
* Set new log_blk_size and real_log_size ...
*
		export	SETUP_VCR
setup_vcr					;	        

		ldy	#vcr_block_size		;Get offset to block size.
		lda	[my_vcr],y		;Get size.
		sta	log_blk_size		;Set logical block size.
		sta	real_log_size		;Set real logical block	size.
*
* Set path_table_size...
*
		ldy	#vcr_path_size		;Get offset to path table size.
		lda	[my_vcr],y		;Get size.
		sta	path_table_size		;Set new size.
*
* Make a pointer to path table...
*
*** changed 2-Dec-92 DAL
;		clc				;Add offset to path table.
;		lda	#vcr_path_table
;		adc	my_vcr
;		sta	path_table
;		lda	#0
;		adc	my_vcr+2
;		sta	path_table+2

; use path_ptr as temporary direct page (restore when done)
		pei	<path_ptr+2
		pei	<path_ptr

		ldy	#vcr_path_tbl_handle+2
		lda	[my_vcr],y
		sta	current_path_tbl_handle+2
		sta	<path_ptr+2
		dey
		dey
		lda	[my_vcr],y
		sta	current_path_tbl_handle
		sta	<path_ptr
		ldy	#4
		lda	[<path_ptr],y
		ora	#$8000			;brutally lock the handle
		sta	[<path_ptr],y
		dey
		dey
		lda	[<path_ptr],y
		sta	path_table+2
		lda	[<path_ptr]
		sta	path_table

		pla
		sta	<path_ptr
		pla
		sta	<path_ptr+2
*** end 2-Dec-92

*
* Copy vcr_state_flag to state_flag and	exit thru set_file_system...
*
		ldy	#vcr_state_flag		;Get offset to flag.
		lda	[my_vcr],y		;Get flag.
		sta	state_flag		;Save flag.
		jmp	set_file_system		;Exit thru set_file_system.

		ENDP
		eject
******************************************************************************
*
*	 Name:	get_input
*
* Description:	Moves input parameters from callers parameter list to my
*		storage	area.  Validates the parameters	whose range is known.
*		All fields which are not defined for the call will be zero.
*
*     Created:	Oct 14,	1987
*    Modified:	Oct 14,	1987
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined.
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		class	    contains class #.
*		trans_call  contains translated	call #.
*
*      Output:	A = undefined, or error	code if	error
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..0 if	no error.
*			   1 if	error
*		B = K
*
*		pcount		 pcount	for call (0 if class 0).
*		ref_num		 file reference	number (if present).
*		pathname	 pointer to pathname (if present).
*		dev_name	 pointer to device name	(if present).
*		request_access	 access	permissions (if	present).
*		resource_num	 resource number (if present).
*		data_buffer	 pointer to users data buffer (if present).
*		request_count	 read count (if	present).
*		cache_priority	 cache value (if present, 0 if not).
*		position	 file mark (if present).
*		base		 base flag (if present).
*		displacement	 displacement (if present).
*
*	 Exit:	rts
*
*	 Uses:	all registers
*		process_fields
*
******************************************************************************

get_input	proc
		with	data

*
* Clear	input variables...
*
		ldy	#input_len		;Point to last variable.
		lda	#0			;Get zero.
clear_loop	sta	pcount,y		;Clear variable.
		dey				;Done all?
		dey
		bpl	clear_loop		;No, so	loop.
*
* Initialize pcount to maximum value in	case this is a class 0 call
* (see process_fields for more info)...
*
		lda	#$7fff			;Get max value.
		sta	pcount			;Set pcount.
*
* Process input	fields and exit...
*
		lda	#input			;Select	input.
		jmp	process_fields		;Process fields.

		ENDP
		eject
******************************************************************************
*
*	 Name:	send_output
*
* Description:	Sends output fields to callers parameter list.
*
*     Created:	Oct 15,	1987
*    Modified:	Oct 15,	1987
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined.
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		pcount
*		class
*		trans_call
*
*      Output:	A = undefined, or error	code if	error
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..0 if	no error.
*			   1 if	error
*		B = K
*
*	 Exit:	rts
*
*	 Uses:	all registers
*		process_fields
*
******************************************************************************

send_output	proc
		with	data

*
* Process output fields	and exit...
*
		lda	#output			;Select	output.
		jmp	process_fields		;Process 'em.

		ENDP
		eject
******************************************************************************
*
*	 Name:	process_fields
*
* Description:	This routine calls all of the field handler subroutines	listed
*		in the field list for the current call and class.
*
*     Created:	Oct 14,	1987
*    Modified:	Oct 14,	1987
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = 0 if requesting input, $4000 if requesting output.
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		class
*		trans_call
*		pcount			;must be initialized > max pcount!
*
*      Output:	A = error code if error
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..0 if	no error.
*			   1 if	error
*		B = K
*
*	 Exit:	rts
*
*	 Uses:	all registers
*		list_ptr
*		io_flag
*		field_count
*		field_num
*		field_flags
*
* The field list is a list of field flags words	which have the
* following format:
*
*     1	- Field	number times two
*     2	- Field	offset
*     3	- I/O flag: 0 =	input, 1 = output.
*     4	- Terminator: 1	= last entry in	list.
*
*     |4|3|	2     |	      1	      |
*     |_|_|___________|_______________|
*     |	| | | |	| | | |	| | | |	| | | |
*     |_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|
*     |		      |		      |
*    1 6	     0 8	     0 0
*
******************************************************************************

process_fields	proc
		with	data

*
* Save requested direction and set list_ptr to point to	correct	list...
*
		sta	io_flag			;Save direction	flag.
		ldx	trans_call		;Get translated	call #.
		lda	class0,x		;Get class 0 address.
		ldy	class			;Is this a class 0 call?
		beq	set_ptr			;Yep.
		lda	class1,x		;Nope, so get class 1 address.
set_ptr		sta	list_ptr		;Set pointer.
*
* Set field_count = pcount.  Pcount must be initialized	at call	start
* way out of range in case this	is a class 0 call (if it's a class 1 call,
* the pcount field handler will	set field_count	equal to pcount).
* Field_count is used to control the number of fields to process...
*
		lda	pcount			;Copy pcount to	field_count.
		sta	field_count
*
* Init field number...
*
lets_go		ldy	#0			;Init offset.
*
* Save field number, get field flags and save it...
*
input_loop	sty	field_num		;Save field number.
		lda	(list_ptr),y		;Get field flags.
		sta	field_flags		;Save it.
*
* Does the i/o flag match the requested	direction?
*
		and	#io_mask		;Isolate flag.
		cmp	io_flag			;Does it match request?
		bne	next_field		;Nope, so skip it.
*
* Yes, get field offset	in Y and jsr  to selected field	handler...
*
		lda	field_flags		;Recover flags.
		and	#offset_mask		;Isolate offset.
		xba				;Put in	low byte.
		tay				;Put in	Y.
		lda	field_flags		;Recover flags.
		and	#field_mask		;Isolate field.
		tax				;Use as	index.
		jsr	(handlers,x)		;Execute handler.
		bcs	exit			;Error,	so exit.
*
* Bump field number...
*
next_field	ldy	field_num		;Get field number.
		iny				;Bump it.
		iny
*
* Are we done with list?
*
		lda	field_flags		;Done with list?
		bmi	done			;Yes.
*
* Nope,	have we	used up	all the	fields present?
*
		dec	field_count		;Done all fields?
		bpl	input_loop		;Nope, so loop.
*
* Yes, so exit with carry clear...
*
done		clc				;Indicate no errors.
exit		rts				;Exit to caller.

		ENDP
		eject
******************************************************************************
*
*	 Name:	field_handlers
*
* Description:	This section is	a collection of	subroutines which handle
*		each of	the fields in the parameter lists.  These routines
*		should only be called by process_fields...
*
* 	 Note:  The h_vol_name routine is called directly from the "volume" 
*		procedure if id_disk has returned a dup_volume error.  This is 
*		done so that the "vol_name" output parameter will be set up even 
*		though an error is being returned.  This is the only case in 
*		which a parameter handler is called directly.  2/7/91 CAE
*
*     Created:	Oct 14,	1987
*    Modified:	June 30, 1988
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		io_flag
*		trans_call
*
*      Output:	A = error code if error
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..0 if	no error.
*			   1 if	error
*		B = K
*
*	 Exit:	rts
*
*	 Uses:	all registers
*
******************************************************************************

field_handlers	proc
		with	data

*
* PCOUNT Field Handler:	Input (w)
*
		export	H_PCOUNT
h_pcount					;	        

		lda	[my_pblk],y		;Get pcount.
		cmp	max_pcount		;< max?
		bcs	bad_pcount		;No, so	bad.
		cmp	min_pcount		;>= min?
		bcc	bad_pcount		;No, so	bad.
		sta	pcount			;Yep, so save it.
		sta	field_count		;Set count as well.
		clc				;Indicate no error.
		rts				;Exit.

bad_pcount	lda	#invalid_pcount		;No, get error code.
		sec				;Set carry.
		rts				;Exit.

*
* REF_NUM Field	Handler: Input/Output (w)
*
		export	H_REF_NUM
h_ref_num					;	        

		lda	field_flags		;Get flags word.
		and	#io_mask		;Is input?
		bne	ref_out			;Nope.
		lda	[my_pblk],y		;Yes, get word.
		sta	ref_num			;Set parameter.
		bra	ref_exit		;Exit.

ref_out		lda	ref_num			;Get reference number.
		sta	[my_pblk],y		;Send it.

ref_exit	clc				;Indicate ok.
		rts				;Exit.

*
* PATHNAME Field Handler: Input	(ptr)
*
		export	H_PATHNAME
h_pathname					;	        
		clc				;Do nothing.
		rts				;Exit.

*
* DEV_NAME Field Handler: Input	(ptr)
*
		export	H_DEV_NAME
h_dev_name					;	        

		clc				;Do nothing.
		rts				;Exit.

*
* REQUEST_ACCESS Field Handler:	Input (w)
*
		export	H_REQUEST_ACCESS
h_request_access				;	        

		lda	[my_pblk],y		;Get word.
		beq	access_ok		;Zero, so ok.
		cmp	#read_access		;Is read only?
		bne	access_bad		;Nope, so bad.
access_ok	clc				;Indicate ok.
		rts				;Exit.

access_bad	lda	#invalid_access		;No, so	error.
		sec				;Indicate error.
		rts				;Exit.

*
* RESOURCE_NUM Field Handler: Input (w)
*
		export	H_RESOURCE_NUM
h_resource_num					;	        

		lda	[my_pblk],y		;Get word.
		sta	resource_num		;Save it.
		clc				;No error.
		rts				;Exit.

*
* DATA_BUFFER Field Handler: Input (ptr)
*
		export	H_DATA_BUFFER
h_data_buffer					;	        

		lda	[my_pblk],y		;Get low word of ptr.
		sta	data_buffer		;Save it.
		iny				;Bump offset.
		iny
		lda	[my_pblk],y		;Get high word of ptr.
		and	#$00ff			;Clear high byte.
		sta	data_buffer+2		;Save it.
		clc				;Indicate ok.
		rts				;Exit.

*
* REQUEST_COUNT	Field Handler: Input (lw)
*
		export	H_REQUEST_COUNT
h_request_count					;	        

		lda	[my_pblk],y		;Get low word of count.
		sta	request_count		;Save it.
		iny				;Bump offset.
		iny
		lda	[my_pblk],y		;Get high word of count.
		sta	request_count+2		;Save it.
		clc				;Indicate ok.
		rts				;Exit.

*
* CACHE_PRIORITY Field Handler:	Input (w)
*
		export	H_CACHE_PRIORITY
h_cache_priority				;	        

		lda	[my_pblk],y		;Get word.
		beq	good_priority		;Ok.
		cmp	#user_cache_val		;Valid priority?
		bne	bad_priority		;Nope.
good_priority	sta	cache_priority		;Save it.
		clc				;No error.
		rts				;Exit.

bad_priority	lda	#parm_range_err		;Get error code.
		sec				;Indicate error.
		rts				;Exit.

*
* POSITION Field Handler: Output (lw)
*
		export	H_POSITION
h_position					;	        

		lda	position		;Get low word.
		ldx	position+2		;Get high word.
		brl	send_long_word		;Send it.

*
* BASE Field Handler: Input (w)
*
		export	H_BASE
h_base						;	        

		lda	[my_pblk],y		;Get word.
		cmp	#max_base+1		;In range?
		bcs	bad_base		;Nope.
		sta	base			;Yes, save it.
		rts				;Exit.

bad_base	lda	#parm_range_err		;Get error code.
		rts				;Exit.

*
* DISPLACEMENT Field Handler: Input (lw)
*
		export	H_DISPLACEMENT
h_displacement					;	        

		lda	[my_pblk],y		;Get low word.
		sta	displacement		;Save it.
		iny				;Bump offset.
		iny
		lda	[my_pblk],y		;Get high word.
		sta	displacement+2		;Save it.
		clc				;Indicate ok.
		rts				;Exit.

*
* ACCESS Field Handler:	Output (w)
*
		export	H_ACCESS
h_access					;	        

		ldx	dir_file_flags		;Get offset to file flags.
		lda	dir_record_0,x		;Get flags.
		and	#1			;Isolate existence bit.
		asl	a			;Shift it to invisible pos.
		asl	a
		ora	#full_access		;Add full access bits.
		brl	send_word		;Send it.

*
* FILE_TYPE Field Handler: Output (w)
*
		export	H_FILE_TYPE
h_file_type					;	        

		ldx	dir_file_flags		;Get offset to file flags.
		lda	dir_record_0,x		;Get flags.
		ldx	#file_type_dir		;Init file type	to directory.
		and	#dir_mask		;Is it a directory?
		bne	send_hop		;Yes.
		jsr	get_ext_type		;Nope, do we have Apple	Extensions info?
		bcc	send_hop		;Yep.
		jsr	get_file_type		;Nope, use map.
send_hop	txa				;Put type in A.
		brl	send_word		;Send it.

*
* AUX_TYPE Field Handler: Output (lw)
*
		export	H_AUX_TYPE
h_aux_type					;	        

		lda	call			;Yes. Is this a	get_file_info call?
		cmp	#get_file_call
		bne	check_apple		;Nope.
		lda	storage_type		;Yes, looking at volume	directory?
		cmp	#type_vol_dir
		bne	check_apple		;Nope.
		lda	class			;Yes, is it a class zero call?
		beq	h_total_blocks		;Yes, so send total blocks.
send_zero	brl	h_free_blocks		;Nope, send zero long word.

check_apple	jsr	get_ext_type		;Do we have Apple Extensions info?
		bcs	send_zero		;Nope.
		ldx	#0000			;Yep, clear high word.
		brl	send_long_word		;Send it.


*
* TOTAL_BLOCKS Field Handler: Output (lw)
*
		export	H_TOTAL_BLOCKS
h_total_blocks					;	        

		phy				;Save offset.
		ldy	#vcr_total_blks+2	;Get offset to high word.
		lda	[my_vcr],y		;Get high word.
		tax				;Save it.
		ldy	#vcr_total_blks		;Get offset to low word.
		lda	[my_vcr],y		;Get low word.
		ply				;Recover offset.
		brl	send_long_word		;Send it.

*
* STORAGE_TYPE Field Handler: Output (w)
*
		export	H_STORAGE_TYPE
h_storage_type					;	        

		lda	storage_type		;Get type.
		brl	send_word		;Send it.

*
* CREATE_DATE Field Handler: Output (w)
*
* NOTE:	 This must be called before mod_date, or mod_time
*	 so that the call to pro_date_time will	occur!
*
		export	H_CREATE_DATE
h_create_date					;	        

		phy				;Save offset.
		jsr	pro_date_time		;Get date & time.
		ply				;Recover offset.
*
* MOD_DATE Field Handler: Output (w)
*
		export	H_MOD_DATE
h_mod_date					;	        

		lda	prodos_time		;Get year/mon/day
		brl	send_word		;Send it.

*
* CREATE_TIME Field Handler: Output (w)
* MOD_TIME Field Handler: Output (w)
*
		export	H_CREATE_TIME
h_create_time					;	        
		export	H_MOD_TIME
h_mod_time					;	        

		lda	prodos_time+2		;Get hour/minute.
		brl	send_word		;Send it.

*
* BLOCKS_USED Field Handler: Output (lw)
*
		export	H_BLOCKS_USED
h_blocks_used					;	        

		lda	call			;Is this a get_dir_entry call?
		cmp	#get_dir_call
		beq	send_used		;Yes, so send blocks_used.

		ldx	storage_type		;Nope, is this a directory?
		cpx	#type_extended+1
		bcc	send_used		;Nope, so send blocks_used.

		cmp	#get_file_call		;Yes, is it a get_file_info call?
		bne	send_zero		;Nope, so this field undefined.

		lda	class			;Yes, is it a class zero call?
		bne	send_zero		;Nope, so this field undefined.

		cpx	#type_vol_dir		;Yes, is this the volume directory?
		bne	send_used		;Nope, so send blocks_used.
		bra	h_total_blocks		;Yes, so return	total_blocks.

send_used	lda	blocks_used		;Get low word.
		ldx	blocks_used+2		;Get high word.
		bra	send_long_word		;Send it.

*
* CREATE_DATE_TIME Field Handler: Output (4w)
* MOD_DATE_TIME	Field Handler: Output (4w)
*
		export	H_CREATE_DATE_TIME
h_create_date_time				;	        
		export	H_MOD_DATE_TIME
h_mod_date_time					;	        

		phy				;Save offset.
		jsr	get_date_time		;Get date & time.
		ply				;Recover offset.

		ldx	#0			;Init offset.
time_loop	lda	create_date_time,x	;Get word.
		sta	[my_pblk],y		;Send it.
		iny				;Bump offsets.
		iny
		inx
		inx
		cpx	#8			;Done all?
		bne	time_loop		;No, so	loop.

		clc				;Yes, so clear carry.
		rts				;Exit.

*
* OPTION_LIST Field Handler: Output (ptr)
*
		export	H_OPTION_LIST
h_option_list					;	        

		lda	[my_pblk],y		;Get low word of pointer.
		tax				;Save it.
		iny				;Bump offset.
		iny
		lda	[my_pblk],y		;Get high byte of pointer.
		and	#$00ff			;Clear high byte.
		jmp	get_option_list		;Go get	it.

*
* EOF Field Handler: Output (lw)
*
		export	H_EOF
h_eof						;	        

		lda	eof			;Get low word.
		ldx	eof+2			;Get high word.
		bra	send_long_word		;Send it.

*
* RESOURCE_EOF Field Handler: Output (lw)
*
		export	H_RESOURCE_EOF
h_resource_eof					;	        

		lda	resource_eof		;Get low word.
		ldx	resource_eof+2		;Get high word.
		bra	send_long_word		;Send it.

*
* RESOURCE_BLOCKS Field	Handler: Output	(lw)
*
		export	H_RESOURCE_BLOCKS
h_resource_blocks				;	        

		lda	resource_blocks		;Get low word.
		ldx	resource_blocks+2	;Get high word.
		bra	send_long_word		;Send it.

*
* VOL_NAME Field Handler: Output (ptr)
*
		export	H_VOL_NAME
h_vol_name					;	        

		phy				;Save offset.
		lda	#$2e5f			;Replace underscores with periods.
		ldx	#gstring
		ldy	#^gstring
		jsr	transform_name
		ldx	#gstring		;Point to volume name.
		ldy	#^gstring
		jsr	add_separator		;Add separator.
		ply				;Recover offset.
		lda	class			;Is this a class 0 call?
		bne	send_name		;Nope.
		lda	gstring			;Yep, get length.
		cmp	#prodos_name_ln		;Legal length?
		bcc	send_name		;Yep.
		lda	#drvr_off_line		;Nope, return offline error.
		rts				;Exit.

send_name					;	        

		lda	[my_pblk],y		;Get low word of pointer.
		sta	output_string		;Set low word.
		iny				;Bump offset.
		iny
		lda	[my_pblk],y		;Get high word of pointer.
		and	#$00ff			;Clear high byte.
		sta	output_string+2		;Set high word.

		ldx	#gstring		;Point to volume name.
		ldy	#^gstring
		jmp	send_gstring		;Send it out.

*
* FREE_BLOCKS Field Handler: Output (lw)
*
		export	H_FREE_BLOCKS
h_free_blocks					;	        
		ldx	#0000			;Always	= 0.
		txa

send_long_word	sta	[my_pblk],y		;Send low word.
		iny				;Bump offset.
		iny
		txa				;Get high word.
send_word	sta	[my_pblk],y		;Send it.
		clc				;Indicate no error.
		rts				;Exit.

*
* FILE_SYS_ID Field Handler: Output (w)
*
		export	H_FILE_SYS_ID
h_file_sys_id					;	        

		ldx	#hs_id			;Get High Sierra Id.
		lda	state_flag		;Get flag.
		and	#iso_bit		;Iso?
		beq	send_id			;Nope.
		ldx	#iso_id			;Yes, change id.
send_id		txa				;
		bra	send_word		;Send it.
*
* BLOCK_SIZE Field Handler: Output (w)
*
		export	H_BLOCK_SIZE
h_block_size					;	        

		tyx				;Save offset.
		ldy	#vcr_block_size		;Get offset to size.
		lda	[my_vcr],y		;Get word
		txy				;Recover offset.
		bra	send_word		;Send it.
*
* TRANSFER_COUNT Field Handler:	Output (lw)
*
		export	H_TRANSFER_COUNT
h_transfer_count				;	        

		lda	transfer_count		;Get low word.
		ldx	transfer_count+2	;Get high word.
		bra	send_long_word		;Send it.

*
* ENTRY_NUM Field Handler: Output (w)
*
		export	H_ENTRY_NUM
h_entry_num					;	        

		lda	entry_num		;Get entry #.
		bra	send_word		;Send it.

*
* DEV_NUMBER Field Handler: Output (w)
*
		export	H_DEV_NUMBER
h_dev_number					;	        

		lda	dev_number		;Get number
		sta	[my_pblk],y		;Send it.
		clc				;No error.
		rts				;Exit.

*
* NAME Field Handler: Output (ptr)
*
		export	H_NAME
h_name						;	        

		lda	dir_record_0+dir_len_fi	;Get length of name.
		and	#$00ff			;Clear high word.
		sta	gstring			;Put at	start of gstring.
		sta	file_name		;(Make a copy for get_file_type)
		tax				;Put in	X.

		longa	off			;Set 8 bit A.
		sep	#$20

		stz	gstring+2,x		;Add zero delimiter.
		stz	file_name+2,x		;(Make a copy for get_file_type)

name_loop	lda	dir_record_0+dir_len_fi,x ;Get byte.
		sta	gstring+1,x		;Put in	gstring.
		sta	file_name+1,x		;(Make a copy for get_file_type)
		dex				;Done all?
		bne	name_loop		;No, so	loop.

		longa	on			;Set 16	bit A.
		rep	#$20

		lda	class			;Get class.
		pha				;Save it.
		inc	class			;Make sure we send a class 1 string.
		phy				;Save Y.
		jsr	transform_out		;Transform it if needed.
		ply				;Recover Y.
		jsr	send_name		;Do send.
		pla				;Recover class.
		sta	class			;Restore it.
		rts				;Exit.

*
* EXTENDED Field Handler: Output (w)
*
		export	H_EXTENDED
h_extended					;	        

		lda	extended_flag		;Get extended flag.
		bra	send_word		;Send it.

*
* COMMAND_NUM Field Handler: Input (w)
*
		export	H_COMMAND_NUM
h_command_num					;	        

		lda	[my_pblk],y		;Get command number.
		cmp	#max_command_num	;Is it in range?
		bcs	bad_command		;Nope.
		sta	command_num		;Yes, save it.
		rts				;Exit

bad_command	lda	#parm_range_err		;Get error code.
		rts				;Exit.

		ENDP
		eject
******************************************************************************
*
*	 Name:	add_separator
*
* Description:	This routine will insert a class 0 or 1	separator at the
*		beginning of the gstring pointed to by X and Y.
*
*     Created:	Nov 6, 1987
*    Modified:	Nov 6, 1987
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = low	byte of	pointer	to gstring
*		Y = high byte of pointer to gstring
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		class			;class of call.
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*	 Exit:	rts
*
*	 Uses:	all registers
*		input_string
*		length
*
******************************************************************************

add_separator	proc
		with	data

*
* Save pointer,	bump string length, and	bump pointer...
*
		stx	input_string		;Save pointer.
		sty	input_string+2

		lda	[input_string]		;Get length.
		tay				;Put in	Y.
		inc	a			;Bump it.
		sta	[input_string]		;Save length.

		inc	input_string		;Bump pointer.
		bne	shift_it
		inc	input_string+2
*
* Shift	string 1 byte to the right...
*
		longa	off			;Set 8 bit A.
shift_it	sep	#$20

shift_loop	lda	[input_string],y	;Get byte.
		iny				;Bump offset.
		sta	[input_string],y	;Save byte.
		dey				;Adjust	offset.
		dey				;Done all?
		bne	shift_loop		;No, so	loop.
*
* Add separator	and exit...
*
		lda	#separator0		;Assume	class 0.
		ldx	class			;Is our	assumption right?
		beq	save_it			;Yes.
		lda	#separator1		;Nope.
save_it		iny				;Point at separator space.
		sta	[input_string],y	;Insert	it.

		longa	on			;Set 16	bit A.
		rep	#$20

		rts				;Exit.

		ENDP
		eject
******************************************************************************
*
*	 Name:	send_gstring
*
* Description:	This routine will send a class 0 or 1 output string to the
*		users name buffer. Should only be called by a field handler!!
*
*     Created:	Oct 15,	1987
*    Modified:	Nov 6, 1987
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = low	byte of	pointer	to gstring
*		Y = high byte of pointer to gstring
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		class			;class of call.
*		output_string		;points	to output buffer.
*
*      Output:	A = error code if error
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..0 if	no error.
*			   1 if	error
*		B = K
*
*	 Exit:	rts
*
*	 Uses:	all registers
*		input_string
*		output_string
*		length
*
******************************************************************************

send_gstring	proc
		with	data

*
* Save pointer,	get string length, bump	pointer	by 1...
*
		stx	input_string		;Save pointer.
		sty	input_string+2

		lda	[input_string]		;Get string length in A.
		sta	length			;Save it.

		inc	input_string		;Bump pointer.
		bne	check_class
		inc	input_string+2
*
* Is this a class 0 call?
*
check_class	ldy	class			;Class 0?
		bne	class_1			;Nope.
*
* Yes, so put a	one byte length	first and branch to send_string...
*
		longa	off			;Set 8 bit A.
		sep	#$20

		ldy	#0			;Point to start	of output string.
		sta	[output_string],y	;Put length.

		bra	send_string		;Continue.
*
* No, put a 1 word length first...
*
		longa	on			;Make sure 16 bit A.

class_1		ldy	#2			;Point to start	of output string.
		sta	[output_string],y	;Put length word.
*
* Will string fit in caller's buffer?
*
		clc				;Adjust	for buffer length.
		adc	#0004
		cmp	[output_string]		;Will it fit?
		bcc	adjust			;Yep.
		beq	adjust			;Yep.

		lda	#buff_too_small		;No, get error code.
		sec				;Indicate error.
		rts				;Exit.
*
* Yes, bump pointer past length...
*
		longa	on			;Set 16	bit mode.
adjust		rep	#$20

		clc				;Add 3 to pointer.
		lda	#3
		adc	output_string
		sta	output_string
		lda	#0
		adc	output_string+2
		sta	output_string+2

		longa	off			;Set 8 bit A.
		sep	#$20
*
* Now send the rest of the string and exit...
*
send_string	ldy	length			;Get length.
send_loop	lda	[input_string],y	;Get byte.
		sta	[output_string],y	;Save byte.
		dey				;Done all?
		bne	send_loop		;No, so	loop.

		longa	on			;Yes, restore 16 bit A.
		rep	#$20
		clc				;Indicate ok.
		rts				;Exit.

		ENDP
		eject
******************************************************************************
*
*	 Name:	make_gstring
*
* Description:	This routine will make a gstring from a	High Sierra format
*		string.
*
*     Created:	Oct 16,	1987
*    Modified:	Oct 16,	1987
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = offset to start of name from io_buffer
*		X = undefined
*		Y = maximum length of name -1
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		io_buffer		;points	to base	of buffer to which A
*					;and Y are offsets.
*
*      Output:	A = undefined
*		X = undefined
*		Y = length of string
*		P = nvmxdizc
*		    ..000..0
*
*		B = K
*
*		gstring			;holds gstring
*
*	 Exit:	rts
*
*	 Uses:	all registers
*		input_string
*		gstring
*
******************************************************************************

make_gstring	proc
		with	data

*
* Point	input_string to	start of string...
*
		clc				;Add A to io_buffer.
		adc	io_buffer
		sta	input_string		;Save in input_string.
		lda	#0
		adc	io_buffer+2
		sta	input_string+2
*
* Find real length of string.  Zero length?
*
		longa	off			;Set 8 bit A.
		sep	#$20

length_loop	lda	[input_string],y	;Get byte.
		cmp	#space			;Is it a space?
		bne	hit_end			;No, so	found end of string.
		dey				;Yes, done all?
		bpl	length_loop		;Nope, so loop.
*
* Yes, so force	to 'UNTITLED'...
*
		iny				;Yes, so point to first	byte.
un_loop		lda	untitled_str,y		;Get byte. End of string?
		beq	end_of_str		;Yes.
		sta	[input_string],y	;Nope, so stuff	it.
		iny				;Bump pointer.
		bra	un_loop			;And loop.

end_of_str	dey				;Adjust	length.
*
* Put length word in gstring and add null...
*
hit_end		iny				;Add 1 to the length.
		sty	gstring			;Put length word.
		lda	#0			;Get null.
		sta	gstring+2,y		;Add null to end of string.
		dey				;Adjust	Y.
*
* Now send the rest of the string, put length in Y and exit...
*
send_string	lda	[input_string],y	;Get byte.
		sta	gstring+2,y		;Save byte.
		dey				;Done all?
		bpl	send_string		;Nope, so loop.

		longa	on			;Restore 16 bit	A.
		rep	#$20

		ldy	gstring			;Get length.
		clc				;Indicate ok.
		rts				;Exit.

		ENDP
		eject
******************************************************************************
*
*	 Name:	move_gstring
*
* Description:	This routine will move a gstring from the gstring buffer to
*		the selected address.  No error	checking is done on the	string
*		so be careful!
*
*     Created:	Oct 21,	1987
*    Modified:	Oct 21,	1987
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = low	byte of	pointer	to destination buffer.
*		Y = high byte of pointer to destination	buffer.
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		gstring			contains gstring.
*
*      Output:	A = undefined
*		X = undefined
*		Y = length of string
*		P = nvmxdizc
*		    ..000...
*
*		B = K
*
*	 Exit:	rts
*
*	 Uses:	all registers
*		output_string
*		gstring
*
******************************************************************************

move_gstring	proc
		with	data

*
* Save pointer to destination...
*
		stx	output_string		;Save pointer.
		sty	output_string+2
*
* Copy length...
*
		lda	gstring			;Get length.
		sta	[output_string]		;Move it.
*
* Copy remainder of string and exit...
*
		longa	off			;Set 8 bit A.
		sep	#$20

		ldy	#2			;Point past length.
move_loop	lda	gstring,y		;Get byte.
		sta	[output_string],y	;Move it.
		beq	exit			;Exit if zero.
		iny				;Otherwise point to next.
		bra	move_loop		;And loop.

		longa	on			;Set 16	bit A.
exit		rep	#$20

		rts				;Exit.

		ENDP
		eject
******************************************************************************
*
*	 Name:	parse_path
*
* Description:	Vaidates string, then copies first name	in path	to volume_name
*		and last name to file_name (both in gstring format). Sets
*		name_count to #	of names found,	and puts offsets to start of
*		each name in name_offsets.  If there is	only a device name,
*		will exit with name_count = 0.
*
*     Created:	Oct 21,	1987
*    Modified:	July 14, 1988
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		path1_ptr		;points	to pathname.
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*		volume_name		;volume	name in	gstring	format.
*		file_name		;file name in gstring format.
*		name_count		;# of names found. 0 if	device only.
*		name_offsets		;list of offsets to start of names.
*
*	 Uses:	All registers
*		path_ptr
*		volume_name
*		file_name
*		name_count
*		name_offsets
*		transform_name		(sub)
*
******************************************************************************

parse_path	proc
		with	data

*
* Make sure that pathname 1 is defined and that	its span is in range...
*
		lda	path_flag		;Get pathname flags.
		and	#path1_mask		;Is pathname 1 defined?
		bne	have_path		; yes, go look at it (18-Dec-91 MSD)

; This code commented out 18-Dec-91 MSD.  Checking of the span was moved to
; process_path.
;		beq	check_device		;No, so	see if we have a device	#.
;
;		lda	span1			;Get span1.
;		cmp	#32			;In range?
;		bcc	have_path		;Yes.
;		bra	bad_path		;Nope, so bad.

*
* There	is no pathname.	 If we have a device # then exit with name_count = 0,
* otherwise exit with a	bad path error...
*
check_device	stz	name_count		;Clear count.
		lda	dev_num			;Do we have a device #?
		beq	bad_path		;Nope, so error.
		clc				;Yes, so exit with carry clear.
		rts
*
* We have a pathname, set path_ptr...
*
have_path	lda	path1_ptr		;Copy path1_ptr	to path_ptr.
		sta	path_ptr
		lda	path1_ptr+2
		sta	path_ptr+2
*
* Validate string and build name_offsets list. Valid string?
*
		ldy	#3			;Point past length & first separator.
		ldx	#0			;Init name count.
		lda	dev_num			;Do we have a device #?
		beq	set_eight		;Nope.
		inx				;Yes, so bump name count.
		dey				;Adjust	for no separator.

		longa	off			;Set 8 bit A.
set_eight	sep	#$20

new_name	tya				;Get offset.
		sta	name_offsets,x		;Put in	list.

check_loop	cpy	#255			;Too many characters?
		beq	bad_path		;Yes, so bad.
		lda	[path_ptr],y		;No, get byte. End of string?
		beq	end_of_string		;Yep, so ok.
		cmp	#separator1		;No, hit separator?
		beq	separator		;Yes.
		cmp	#'.'			;No, is	this a valid character?
		beq	next_char		;Yes.
		cmp	#'0'			;Maybe.
		bcc	bad_path		;Nope.
		cmp	#'9'+1			;Maybe.
		bcc	next_char		;Yes.
		cmp	#';'			;Maybe.
		beq	next_char		;Yes.
		cmp	#'A'			;Maybe.
		bcc	bad_path		;Nope.
		cmp	#'Z'+1			;Maybe.
		bcc	next_char		;Yes.
		cmp	#'_'			;Maybe.
		bne	bad_path		;Nope.
next_char	iny				;Point to next character.
		bra	check_loop		;Loop.

separator	iny				;Point to next character.
		inx				;Bump name count.
		cpx	#max_names		;Too many names?
		bne	new_name		;Nope, so loop.
*
* Nope,	exit with bad path error...
*
		longa	on			;Set 16	bit A.
bad_path	rep	#$20

		lda	#bad_path_syntax	;Nope, get error code.
		sec				;Indicate error.
		rts				;Exit.
*
* Yes, save name_count and move	first name to volume_name...
*
		longa	off			;Make sure 8 bit A.

end_of_string	inx				;Zero adjust.
		stx	name_count		;Save count.

		lda	name_offsets		;Get offset to first name.
		tay
		ldx	#0			;Get offset into volume	name.
copy_loop1	lda	[path_ptr],y		;Get byte. End of string?
		beq	end_name_1		;Yes.
		cmp	#separator1		;End of	name?
		beq	end_name_1		;Yes.
		sta	volume_name+2,x		;No, put byte in volume	name.
		inx				;Bump offsets.
		iny
; Begin 18-Dec-91 MSD
		cpx	#32			; volume name too long?
		bge	bad_path		; yes, so couldn't be ours anyway
; End 18-Dec-91 MSD
		bra	copy_loop1		;Loop.

end_name_1	lda	#0			;Terminate string.
		sta	volume_name+2,x
		stx	volume_name		;Put length word.
*
* Is there another name?
*
		ldx	name_count		;Get name count.
		cpx	#1			;More than 1?
		beq	done			;Nope, so done.
*
* Yes, move last one to	file_name...
*
		dex				;Point to last offset.
		lda	name_offsets,x		;Get offset to last name.
		tay
		ldx	#0			;Get offset into file name.
copy_loop2	lda	[path_ptr],y		;Get byte. End of string?
		beq	end_name_2		;Yes.
		cmp	#separator1		;End of	name?
		beq	end_name_2		;Yes.
		sta	file_name+2,x		;No, put byte in volume	name.
		inx				;Bump offsets.
		iny
		bra	copy_loop2		;Loop.

end_name_2	lda	#0			;Terminate string.
		sta	file_name+2,x
		stx	file_name		;Put length word.
*
* Done,	exit with carry	clear...
*
		longa	on			;Set 16	bit A.
done		rep	#$20

		clc				;Indicate ok.
		rts				;Exit.

		ENDP
		eject
******************************************************************************
*
*	 Name:	get_name
*
* Description:	Copies indicated name from the pathname	to string_buffer.
*
*     Created:	Oct 22,	1987
*    Modified:	Mar 28,	1988
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = name index (no validity checking is	done!)
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		path_ptr		;points	to pathname.
*		name_offsets		;list of offsets to start of names.
*
*      Output:	A = undefined
*		X = length of name
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		string_buffer		;name with length byte at start.
*
*	 Uses:	All registers
*		path_ptr
*		name_offsets
*		string_buffer
*
******************************************************************************

get_name	proc
		with	data

*
* Move name to string buffer...
*
		ldx	#0			;Init offset/counter.
		txa				;Clear accumulator.

		longa	off			;Set 8 bit A.
		sep	#$20

		lda	name_offsets,y		;Get offset to start of	name.
		tay

move_loop	lda	[path_ptr],y		;Get byte. End of string?
		beq	hit_end			;Yes.
		cmp	#separator1		;No, is	it a separator?
		beq	hit_end			;Yes.
		sta	string_buffer+1,x	;No, add to buffer.
		iny				;Bump offsets.
		inx
		bra	move_loop		;Loop.

hit_end		txa				;Put length in A (so is	8 bit).
		sta	string_buffer		;Save length.

		longa	on			;Set 16	bit A.
		rep	#$20

		rts				;Exit.

		ENDP
		eject
******************************************************************************
*
*	 Name:	long_multiply
*
* Description:	Does 32	bit multiplication. multiplicand * multiplier =	product
*
*     Created:	Nov 30,	1987
*    Modified:	Nov 30,	1987
*      Author:	Bryan Atsatt  (adapted from '6502 Software Design')
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		multiplier		;32 bit	multiplier.
*		multiplicand		;32 bit	multiplicand.
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*		product			;64 bit	product.
*
*	 Uses:	All registers
*		multiplier		(a.k.a.	dividend)
*		multiplicand		(a.k.a.	divisor)
*		product			(a.k.a.	input_string & output_string)
*
******************************************************************************

long_multiply	proc
		with	data

*
* Initialize...
*
		ldx	#32			;Get bit count.
		lda	#0			;MUST BE ZEROED!
		sta	product+4		;Clear upper 4 bytes of	product.
		sta	product+6
*
* Do multiplication and	exit...
*
next_bit	lsr	multiplier+2		;Shift multiplier right. Bit set?
		ror	multiplier
		bcc	align			;Nope.
		clc				;Yes, add product+4 to multiplicand.
		lda	product+4
		adc	multiplicand
		sta	product+4
		lda	product+6
		adc	multiplicand+2
align		ror	a			;Rotate	8 byte product right.
		sta	product+6
		ror	product+4
		ror	product+2
		ror	product
		dex				;Done all bits?
		bne	next_bit		;Nope, so loop.
		rts				;Yes, so exit.

		ENDP
		eject
******************************************************************************
*
*	 Name:	long_divide
*
* Description:	Does 32	bit division. dividend/divisor = dividend w/remainder.
*
*     Created:	Oct 29,	1987
*    Modified:	Oct 29,	1987
*      Author:	Bryan Atsatt  (adapted from '6502 Software Design')
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		dividend		;32 bit	dividend.
*		divisor			;32 bit	divisor.
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*		dividend		;quotient
*		remainder		;remainder
*
*	 Uses:	All registers
*		dividend
*		divisor
*		remainder
*
******************************************************************************

long_divide	proc
		with	data

*
* Initialize...
*
		ldx	#32			;Get bit count.
		stz	remainder		;Clear remainder.
		stz	remainder+2
*
* Do division and exit...
*
div_loop	asl	dividend		;Shift dividend	& quotient left.
		rol	dividend+2
		rol	remainder		;Shift partial dividend	left.
		rol	remainder+2
		sec				;Subtract low bytes.
		lda	remainder
		sbc	divisor
		tay				;Save low result.
		lda	remainder+2		;Subtract high bytes.
		sbc	divisor+2		;Divisor > dividend?
		bcc	next_bit		;Yes.
		inc	dividend		;No, set bit in	quotient.
		sty	remainder		;Enter result in partial dividend.
		sta	remainder+2
next_bit	dex				;Done all bits?
		bne	div_loop		;No, so	loop.
		rts				;Yes, so exit.

		ENDP
		eject
******************************************************************************
*
*	 Name:	pro_date_time
*
* Description:	Converts recording date	and time from dir_record_0 to prodos
*		date/time format.
*
*     Created:	Nov 2, 1987
*    Modified:	Nov 2, 1987
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		prodos_time		;Holds date and	time:
*   _______________________________________________________________
*  | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | |
*  |	year	 | month |   day   |0 0	0   hour   |0 0	  minute   |
*  |_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|
*
*					;year	= 1900-year
*					;month	= 1-12
*					;day	= 1-31
*					;hour	= 0-23
*					;minute	= 0-59
*
*	 Uses:	All registers
*		create_date_time
*		prodos_time
*		get_date_time		(sub)
*
******************************************************************************

pro_date_time	proc
		with	data

*
* Get the create_date_time...
*
		jsr	get_date_time		;Get it.
*
* Now convert it to prodos format and exit...
*
		lda	day			;Get day.
		and	#$00ff			;Clear high byte.
		inc	a			;Make it 1-31.
		sta	prodos_time		;Save it.
		lda	month			;Get month.
		and	#$00ff			;Clear high byte.
		inc	a			;Make it 1-12.
		asl	a			;Move to correct position.
		asl	a
		asl	a
		asl	a
		asl	a
		ora	prodos_time		;Insert	it.
		sta	prodos_time		;Save it.
		lda	year			;Get year.
		and	#$00ff			;Clear high byte.
		xba				;Move to correct position.
		asl	a
		ora	prodos_time		;Insert	it.
		sta	prodos_time		;Save it.
		lda	hour			;Get hour.
		and	#$00ff			;Clear high byte.
		xba				;Move to correct position.
		sta	prodos_time+2		;Save it.
		lda	minute			;Get minute.
		and	#$00ff			;Clear high byte.
		ora	prodos_time+2		;Insert	it.
		sta	prodos_time+2		;Save it.
		rts				;Exit.

		ENDP
		eject
******************************************************************************
*
*	 Name:	get_date_time
*
* Description:	Converts recording date	and time from dir_record_0 to GS/OS
*		date/time format.  If date/time	is illegal, will set to 
*		Jan 1, 1988 12:00 am default.
*
*     Created:	Nov 2, 1987
*    Modified:	July 14, 1988
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		create_date_time	;Holds date and	time:
*
*  |<--	 byte 7	-->|<--	 byte 6	-->|<--	 byte 5	-->|<--	 byte 4	-->|
*   _______________________________________________________________
*  | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | |
*  |	weekday	   |	 null	   |	 month	   |	  day	   |
*  |_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|
*
*  |<--	 byte 3	-->|<--	 byte 2	-->|<--	 byte 1	-->|<--	 byte 0	-->|
*   _______________________________________________________________
*  | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | |
*  |	 year	   |	 hour	   |	minute	   |	second	   |
*  |_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|
*
*					;year	 = year-1900
*					;month	 = 0-11
*					;day	 = 0-30
*					;weekday = 1-7,	1 = sunday
*					;hour	 = 0-23
*					;minute	 = 0-59
*					;second	 = 0-59
*
*	 Uses:	All registers
*
******************************************************************************

get_date_time	proc
		with	data


*
* Set 8	bit registers...
*
		longa	off			;Set 8 bit registers.
		longi	off
		sep	#$30
*
* Convert date and time...
*
		lda	dir_record_0+dir_date_time ;Get	year.
		cmp	#max_year		;In range?
		bcs	use_default		;Nope.
		sta	year			;Yes, save it.

		ldx	dir_record_0+dir_date_time+1 ;Get month.
		dex				;Make it 0-11.
		stx	month			;Save it.
		cpx	#max_month		;In range?
		bcs	use_default		;Nope.

		ldy	dir_record_0+dir_date_time+2 ;Get day.
		dey				;Make it 0-30.
		sty	day			;Save it.
		cpy	#max_day		;In range?
		bcs	use_default		;Nope.

		inx				;Bump month.
		iny				;Bump day.
		jsr	calc_dow		;Calculate day of week.
		sta	weekday			;Save it.

		stz	null			;Clear null.

		lda	dir_record_0+dir_date_time+3 ;Get hour.
		cmp	#max_hour		;In range?
		bcs	use_default		;Nope.
		sta	hour			;Yes, save it.

		lda	dir_record_0+dir_date_time+4 ;Get minute.
		cmp	#max_minute		;In range?
		bcs	use_default		;Nope.
		sta	minute			;Yes, save it.

		lda	dir_record_0+dir_date_time+5 ;Get second.
		cmp	#max_second		;In range?
		bcs	use_default		;Nope.
		sta	second			;Yes, save it.

		bra	exit			;Exit.
*
* Date or time is bad, use default date/time...
*
use_default	ldy	#7			;Copy default date/time.
copy_loop	lda	default_date_time,y
		sta	create_date_time,y
		dey
		bpl	copy_loop
*
* Restore 16 bit registers and exit...
*
		longa	on			;Set 16	bit registers.
		longi	on
exit		rep	#$30

		rts				;Exit.

		ENDP
		eject
******************************************************************************
*
*	 Name:	calc_dow
*
* Description:	Calculates the day of the week for a given date.
*
*		NOTE:  Call with m & x set!
*
*     Created:	Nov 2, 1987
*    Modified:	Nov 2, 1987
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = year    (year-1900)
*		X = month   (1-12)
*		Y = day	    (1-31)
*		P = nvmxdizc
*		    ..110...
*		B = K
*
*      Output:	A = day	of week
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..110...
*		B = K
*
*	 Uses:	All registers
*		temp0
*		temp1
*
******************************************************************************

calc_dow	proc
		with	data


		longa	off
		longi	off
*
* Calculate the	number of leap years since 1900...
*
		sty	day_of_mon		;Save day.
		tay				;Save year.
		lsr	a			;Divide	year by	4.
		lsr	a
		sta	leap_years		;Save it.
*
* If it's a leap year and it's Jan or Feb, subtract 1 from the year...
*
		tya				;Get year back.
		and	#3			;Is it a leap year?
		bne	continue		;Nope.
		cpx	#3			;Yep, is it Jan	or Feb?
		bcs	continue		;Nope.
		dey				;Yes, adjust year.
*
* Now add up the number	of leap	years elapsed, the year, the day, and a
* constant for the month...
*
continue	clc				;Prepare for add.
		tya				;Get year.
		adc	leap_years		;Add # leap years.
		adc	day_of_mon		;Add day.
		adc	constant-1,x		;Add constant.
*
* Convert the result to	a # in the range 1 to 7	and exit...
*
		sec				;Prepare for subtract.
adjust_loop	sbc	#7			;Subtact 7.
		cmp	#8			;In range?
		bcs	adjust_loop		;No, so	loop.

		rts				;Exit.

constant	DC.B	8,11,11,7,9,12,7,10,13,8,13

		longa	on
		longi	on

		ENDP
		eject
******************************************************************************
*
*	 Name:	get_option_list
*
* Description:	Load extended attribute	record (if present) into option	list
*		buffer.	 If it gets an error when trying to read the data,
*		will set transfer count	to zero	and exit with carry clear.
*
*     Created:	Nov 2, 1987
*    Modified:	Mar 2, 1989
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = high word of option	list pointer.
*		X = low	word of	option list pointer.
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		dir_record_0		;holds directory record.
*
*      Output:	A = error code if error.
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*		option list buffer:    1 = input:  buffer size, inc. 1 & 2.
*				       2 = output: required size, exc. 1 & 2.
*				       3 = output: fst id.
*				       4 = output: extended attribute record.
*		 _____________________
*		| | | |	| | | |	| | | >
*		| 1 | 2	| 3 | 4      <
*		|_|_|_|_|_|_|_|_|_|_|_>
*
*	 Uses:	All registers
*		dividend
*		data_buffer
*		temp0
*		temp1
*
******************************************************************************

get_option_list	proc
		with	data

*
* Save pointer,	exit if	zero...
*
		stx	option_list		;Save low word.
		sta	option_list+2
		ora	option_list		;Zero?
		bne	check_buffer		;No, so ok.
		clc				;Yes, so exit with no error.
		rts
*
* Is the buffer big enough to hold the length?  Parm_range_err if not...
*
check_buffer	lda	[option_list]		;Get buffer length.
		cmp	#4			;Big enough to hold length?
		bcs	init_len		;Yes.
		sec				;No, so parm_range_err.
		lda	#parm_range_err
		brl	error_exit		;Exit.
*
* Yes, so init length to 2 for the FST id...
*
init_len	lda	#2			;Get minimum length.
		sta	length			;Save it.
*
* Is there an XAR for this file?
*
		stz	block_count		;Clear in case no XAR.
		lda	dir_record_0+dir_xar_len ;Do we	have an	XAR?
		and	#$00ff
		beq	no_xar			;Nope, so exit.
		sta	block_count		;Yes, save block count.
*
* Yes, set length to required size...
*
		tax				;Use block_count as counter.
		clc				;Prepare for add.
		lda	#2			;Init size to include overhead.
add_loop	adc	log_blk_size		;Add logical block size.
		dex				;Done all?
		bne	add_loop		;No, so	loop.

		sta	length			;Yes, so save it.
*
* Set output length to required size...
*
no_xar		ldy	#2			;Get offset to length.
		lda	length			;Get required length.
		sta	[option_list],y		;Stuff it in.
*
* Will the buffer hold the FST ID?  Exit with buf_too_small error if not...
*
		lda	[option_list]		;Get length word.
		cmp	#0006			;Will the id fit?
		bcc	full			;Nope.
*
* Yes, so stuff it in...
*
		ldy	#0004			;Point to id area.
		lda	#hs_id			;Get fst id.
		sta	[option_list],y		;Stuff it in.
*
* Yes, set max_len to buffer size - 6 (carry set from above).  Exit with
* buf_too_small error if max_len = 0...  
*
		lda	[option_list]		;Get length word.
		sbc	#6			;Adjust	for overhead.
		sta	max_len			;Save it.
		beq	full			;Full if max_len zero.
*
* We're done with no error if there isn't an XAR...
*
		lda	block_count		;Is there an XAR?
		beq	ok_exit			;Nope, so done.
*
* We have an XAR.  Make a pointer to data area...
*
		clc				;Add 6 to option_list.
		lda	#6
		adc	option_list
		sta	data_buffer
		lda	#0
		adc	option_list+2
		sta	data_buffer+2
*
* Make sure io_buffer is pointed at the real io_buffer...
*
		ldx	io_buffer_vp		;Get vp.
		ldy	io_buffer_vp+2
		jsl	deref			;Dereference it.
		stx	io_buffer		;Save pointer.
		sty	io_buffer+2
*
* Get address of first block...
*
		ldx	dir_record_0+dir_loc_extent ;Get low word of block #.
		lda	dir_record_0+dir_loc_extent+2 ;Get high	word.
*
* Read block into io_buffer.  Exit on error...
*
read_loop	jsr	block_read		;Do read.
		bcs	error_exit		;Error,	so set count to	zero and exit.
*
* Send until we've filled caller's buffer or finished with block...
*
		longa	off			;Set 8 bit mode.
		sep	#$20

		ldy	#0			;Init offset.
move_loop	lda	[io_buffer],y		;Get byte.
		sta	[data_buffer],y		;Send it.
		iny				;Bump offset.
		cpy	max_len			;Full?
		beq	full			;Yes.
		cpy	log_blk_size		;No, run out of	buffer?
		bne	move_loop		;Nope, so loop.

		longa	on			;Set 16	bit mode.
		rep	#$20
*
* Ran out of data.  Add	log_blk_size to	transfer_count and get next block
* number (if there is one) and loop...
*
		ldx	drvr_blk_num		;Get current block.
		lda	drvr_blk_num+2
		inx				;Bump it.
		bne	check_block
		inc	a
check_block	dec	block_count		;Done all blocks?
		bne	read_loop		;No, so	loop.
*
* Done.	Exit with carry	clear...
*
ok_exit		clc				;No error.
		rts				;Exit.
*
* We've filled up the caller's buffer and there's more to go, so exit
* with a buffer	too small error.  If we're processing an open call, we
* must release the fcr...
*
		longa	on			;Set 16	bit mode.
full		rep	#$20

		lda	#buff_too_small		;Get error code.
		sec				;Indicate error.
error_exit	ldx	call			;Doing an open call?
		cpx	#$10
		bne	real_exit		;No.
		
		pha				;Yes, save error code.
		lda	[my_fcr]		;Get ref_num.
		jsl	release_fcr		;Release fcr.
		pla				;Recover error code.
		
real_exit	sec				;Make sure carry set.
		rts				;Exit.
		
		

		ENDP
		eject
******************************************************************************
*
*	 Name:	transform_in_s
*
* Description:	Replaces all periods in	string_buffer with underscores if
*		ProDOS Transformation bit is set in state_flag.
*
*     Created:	June 30, 1988
*    Modified:	June 30, 1988
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		my_vcr			;points	to current vcr.
*		string_buffer		;holds name in pascal string format
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*	 Uses:	All registers
*
******************************************************************************

transform_in_s	proc
		with	data

*
* Are we supposed to do	the transformation?  Exit if not...
*
		ldy	#vcr_state_flag		;Get offset to state flag in vcr.
		lda	[my_vcr],y		;Get state flags.
		and	#prodos_bit		;Prodos	bit set?
		beq	exit			;Nope, so exit.
*
* Yes, replace all "." in string with "_" and exit...
*
		lda	string_buffer		;Get length of string
		and	#$00ff			;Clear high byte.
		tay				;Point to end of string.

		lda	#$5f2e			;Get underscore	and period.

		longa	off			;Set 8 bit A.
		sep	#$20

transform_loop	cmp	string_buffer,y		;Is period?
		bne	next			;Nope.
		xba				;Yes, get underscore.
		sta	string_buffer,y		;Replace period.
		xba				;Recover period.
next		dey				;Done all?
		bne	transform_loop		;Nope, so loop.

		longa	on			;Yep, set 16 bit A.
		rep	#$20

exit		rts				;Exit.

		ENDP
		eject
******************************************************************************
*
*	 Name:	transform_in_f
*
* Description:	Replaces all periods in	file_name with underscores and appends
*		".;1" if ProDOS	Transformation bit is set in state_flag.
*
*     Created:	June 30, 1988
*    Modified:	June 30, 1988
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		my_vcr			;points	to current vcr.
*		file_name		;holds name in gstring format.
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*	 Uses:	All registers
*
******************************************************************************

transform_in_f	proc
		with	data

*
* Are we supposed to do	the transformation?  Exit if not...
*
		ldy	#vcr_state_flag		;Get offset to state flag in vcr.
		lda	[my_vcr],y		;Get state flags.
		and	#prodos_bit		;Prodos	bit set?
		beq	exit			;Nope, so exit.
*
* Yes, replace all "." in string with "_"...
*
		ldy	file_name		;Point to end of string		        
		lda	#$5f2e			;Get underscore	and period.

		longa	off			;Set 8 bit A.
		sep	#$20

transform_loop	cmp	file_name+1,y		;Is period?
		bne	next			;Nope.
		xba				;Yes, get underscore.
		sta	file_name+1,y		;Replace period.
		xba				;Recover period.
next		dey				;Done all?
		bne	transform_loop		;Nope, so loop.

		longa	on			;Yep, set 16 bit A.
		rep	#$20
*
* Append ".;1" and exit...
*
		ldy	file_name		;Point to end of string.
		lda	#$3b2e			;Get period-semicolon.
		sta	file_name+2,y		;Append	to name.
		lda	#$0031			;Get "1" and string terminator.
		sta	file_name+4,y		;Append	to name.

		clc				;Add 3 to length.
		lda	#0003
		adc	file_name
		sta	file_name

exit		rts				;Exit.

		ENDP
		eject
******************************************************************************
*
*	 Name:	transform_out
*
* Description:	If ProDOS Transformation bit is	set in state_flag, will	strip
*		".;1" (if present) and replace all underscores with periods.
*
*     Created:	June 30, 1988
*    Modified:	June 30, 1988
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		my_vcr			;points	to current vcr.
*		gstring			;holds name in gstring format
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*	 Uses:	All registers
*
******************************************************************************

transform_out	proc
		with	data

*
* Are we supposed to do	the transformation?  Exit if not...
*
		ldy	#vcr_state_flag		;Get offset to state flag in vcr.
		lda	[my_vcr],y		;Get state flags.
		and	#prodos_bit		;Prodos	bit set?
		beq	exit			;Nope, so exit.
*
* Yes, strip ".;1" if present...
*
		ldy	gstring			;Point to end of string.
		lda	gstring,y		;Get last two characters.
		cmp	#$313b			;Are they ";1"?
		bne	transform		;Nope.
		lda	gstring-1,y		;Yep, back up one byte.
		cmp	#$3b2e			;Are they ".;"?
		bne	transform		;Nope.

		dey				;Yes, so subtract 3 from length.
		dey
		dey
		sty	gstring			;Save new length.
		lda	#0			;Re-terminate string at	new position.
		sta	gstring+2,y
*
* Replace all "_" in string with "." and exit...
*
transform	ldy	gstring			;Point to end of string.	        
		lda	#$2e5f			;Get period and	underscore.

		longa	off			;Set 8 bit A.
		sep	#$20

transform_loop	cmp	gstring+1,y		;Is underscore?
		bne	next			;Nope.
		xba				;Yes, get period.
		sta	gstring+1,y		;Replace underscore.
		xba				;Recover underscore.
next		dey				;Done all?
		bne	transform_loop		;Nope, so loop.

		longa	on			;Yep, set 16 bit A.
		rep	#$20

exit		rts				;Exit.

		ENDP
		eject
******************************************************************************
*
*	 Name:	transform_vol
*
* Description:	Searches volume_name for character in low byte of A and	if
*		found, replaces	it with	character in high byte of A.
*
*     Created:	July 14, 1988
*    Modified:	July 14, 1988
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = character to match in low byte, replacement	in high	byte
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		volume_name		;holds name in gstring format
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*	 Uses:	All registers
*
******************************************************************************

transform_vol	proc
		with	data

*
* Transform volume_name	and exit...
*
		ldy	volume_name		;Point to end of string.	        

		longa	off			;Set 8 bit A.
		sep	#$20

transform_loop	cmp	volume_name+1,y		;Match?
		bne	next			;Nope.
		xba				;Yes, get replacement character.
		sta	volume_name+1,y		;Replace.
		xba				;Recover search	character.
next		dey				;Done all?
		bne	transform_loop		;Nope, so loop.

		longa	on			;Yep, set 16 bit A.
		rep	#$20

		rts				;Exit.

		ENDP
		eject
******************************************************************************
*
*	 Name:	transform_gstring
*
* Description:	If ProDOS transformation bit set in state flag,	searches
*		gstring	for character in low byte of A and if found, replaces
*		it with	character in high byte of A.
*
*     Created:	July 21, 1988
*    Modified:	July 21, 1988
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = character to match in low byte, replacement	in high	byte
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		gstring			;holds name in gstring format
*		state_flag		;b0 = 1	if ISO version of High Sierra.
*					;b1 = 1	if Apple Extensions disc.
*					;b2 = 1	if ProDOS Transformation required.
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*	 Uses:	All registers
*
******************************************************************************

transform_gstring proc
		with	data

*
* Should we do the transform?
*
		tax				;Save A.
		lda	state_flag		;Get state flag.
		and	#prodos_bit		;ProDOS	bit set?
		beq	exit			;Nope, so exit.
		txa				;Yes, recover 
A.
*
* Yep, transform gstring and exit...
*
		ldy	gstring			;Point to end of string.	        

		longa	off			;Set 8 bit A.
		sep	#$20

transform_loop	cmp	gstring+1,y		;Match?
		bne	next			;Nope.
		xba				;Yes, get replacement character.
		sta	gstring+1,y		;Replace.
		xba				;Recover search	character.
next		dey				;Done all?
		bne	transform_loop		;Nope, so loop.

		longa	on			;Yep, set 16 bit A.
		rep	#$20

exit		rts				;Exit.

		ENDP
		eject
******************************************************************************
*
*	 Name:	transform_name
*
* Description:	Searches gstring pointed to by X and Y for character in	low
*		byte of	A and if found,	replaces it with character in high
*		byte of	A.
*
*     Created:	July 14, 1988
*    Modified:	July 14, 1988
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = character to match in low byte, replacement	in high	byte
*		X = low	word of	pointer	to gstring.
*		Y = high word of pointer to gstring.
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		my_vcr			;points	to current vcr.
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*	 Uses:	All registers
*		remainder	        
*
******************************************************************************

transform_name	proc
		with	data

string_ptr	set	remainder		;Local direct page equate.

*
* Save pointer...
*
		stx	string_ptr		;Save low word.
		sty	string_ptr+2		;Save high word.
		tax				;Save A.
*
* Are we supposed to do	the transformation?  Exit if not...
*
		ldy	#vcr_state_flag		;Get offset to state flag in vcr.
		lda	[my_vcr],y		;Get state flags.
		and	#prodos_bit		;Prodos	bit set?
		beq	exit			;Nope, so exit.
*
* Yes, get length and bump pointer...
*
		lda	[string_ptr]		;Get length of string
		and	#$00ff			;Clear high byte.
		tay				;Point to end of string.
		inc	string_ptr		;Bump pointer.	Rollover?
		bne	replace			;Nope.
		inc	string_ptr+2		;Yep, bump high	word.
*
* Replace characters and exit...
*
replace		txa				;Get characters..

		longa	off			;Set 8 bit A.
		sep	#$20

transform_loop	cmp	[string_ptr],y		;Match?
		bne	next			;Nope.
		xba				;Yes, get replacement.
		sta	[string_ptr],y		;Replace it.
		xba				;Recover search	character.
next		dey				;Done all?
		bne	transform_loop		;Nope, so loop.

		longa	on			;Yep, set 16 bit A.
		rep	#$20

exit		rts				;Exit.

		ENDP
		eject
******************************************************************************
*
*	 Name:	get_ext_type
*
* Description:	Gets type and aux type from SystemUse field of directory record
*		if SystemUse field and our signature are present. 
*
*     Created:	July 8,	1988
*    Modified:	Apr 6, 1989
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		my_vcr			;points	to current vcr
*		dir_record_0		;holds directory record
*
*      Output:	A = aux_type if	no error
*		X = file_type if no error
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*	 Exit:	rts
*
*	 Uses:	all registers
*
******************************************************************************

get_ext_type	PROC
		with	data
*
* Do we have a SystemUse field?  Present if dir_record_length - dir_len_fi
* is >=	sys_use_len (35)...
*
		phy				;Save Y.

		sec				;Prepare to subtract.
		lda	dir_record_0+dir_len_fi	;Get length of file name.
		and	#$00ff			;Clear high byte.
		pha				;Save it.
		lda	dir_record_0		;Get length of directory record.
		and	#$00ff			;Clear high byte.
		sbc	1,s			;Do subtraction.
		plx				;Recover length	of file	name.
		cmp	#sys_use_len		;Is >= sys_use_len?
		bcc	not_here		;Nope.
*
* Yes, adjust offset by	one if we have a padding field...
*
		lda	dir_record_0+dir_len_fi+1,x ;Padding field?
		and	#$00ff
		bne	check_signature		;Nope.
		inx				;Yes, so bump offset.
*
* Yes, do we have an apple signature?
*
check_signature	ldy	#0001			;Set pass flag.

signature_loop	lda	dir_record_0+dir_len_fi+1,x ;Get SystemUseID signature.
		cmp	#apple_sig1		;Is old signature?
		beq	old_sig			;Yes.
		cmp	#apple_sig2		;No, is new signature?
		beq	new_sig			;Yes.
*
* No, is this an XA disc?
*
		lda	state_flag		;Get state_flag.
		and	#xa_bit			;Do we have an XA disc?
		beq	not_here		;Nope, so exit.
*
* Yes, have we bumped the offset already?  Exit if so...
*
		dey				;Done this already?
		bne	not_here		;Yes, so don't do it again.
*
* Nope, so bump offset past XA system_use stuff and re-try...
*
		clc				;Bump offset.
		txa
		adc	#xa_offset
		tax
		bra	signature_loop		;Re-try.
*
* We have a new signature.  See if we have a ProDOS field and, if so,
* adjust offset and continue on at get_type; else no extensions...
*
		longa	off			;Go to 8 bit regs.
		longi	off
new_sig		sep	#$30

search		lda	dir_record_0+dir_len_fi+4,x ;Get SystemUseID.
		cmp	#prodos_format		;Is it ProDOS?
		bne	next			;Nope.
		inx				;Yes, adjust offset.
		bra	get_type		;Go get type.
		
next		clc				;Point to next extensions.
		txa
		adc	dir_record_0+dir_len_fi+3,x
		tax
		bcs	not_here		;Done if rolled over.
		adc	#dir_len_fi+3		;Checked all?
		cmp	dir_record_0
		bcc	search			;No, so keep looking.
		bra	not_here		;Yes, so no extensions.
*
* Yes, we have an old signature.  Is this a ProDOS field?
*
		longa	on
		longi	on
		
old_sig		lda	dir_record_0+dir_len_fi+3,x ;Get SystemUseID.   
		and	#$00ff			;Clear high byte.
		cmp	#prodos_format		;Is it prodos format?
		bne	not_here		;Nope.
*
* Yes, get file_type in	X and aux_type in A and	exit with carry	clear...
*
get_type	rep	#$30			;Make sure 16 bit A.

		lda	dir_record_0+dir_len_fi+4,x ;Get file_type.
		and	#$00ff			;Clear high byte.
		tay				;Save it.
		lda	dir_record_0+dir_len_fi+5,x ;Get aux_type.
		tyx				;Put file_type in X.

		clc				;Indicate success.
		ply				;Recover Y.
		rts				;Exit.		    
*
* Data not here, so exit with carry set...
*
not_here	rep	#$30			;Make sure 16 bit A.
		sec				;Indicate failure.
		ply				;Recover Y.
		rts				;Exit.		    

		ENDP
		eject
******************************************************************************
*
*	 Name:	get_file_type
*
* Description:	Scans name in file_name	buffer and tries to assign file	type
*		by matching entries in the file	type map table.
*
*		The file type map is a list of file name suffixes and associated
*		file types.  Each record is variable length and	consists of an
*		ascii string followed by a zero	and a one byte file type.  The
*		table is terminated will a 1 byte null (00):
*
*		map_size		;(w) size in bytes.
*		record_0		;file type record.
*		record_1		;file type record.
*		null			;(b) map terminator.
*
*		If no matching entry is	found, the 'unknown' (00) type is
*		returned.
*
*     Created:	Dec 3, 1987
*    Modified:	Feb 23, 1989
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		file_name		;holds name in gstring format
*		map_buffer_ptr		;holds a pointer to the	file type map
*		map_enable_flag		;0 if disabled.
*
*      Output:	A = undefined
*		X = file_type
*		Y = unchanged
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*	 Uses:	All registers
*		temp1
*		length
*
******************************************************************************

get_file_type	proc
		with	data

*
* If map_enable_flag is	zero, then exit	with unknown file type...
*
		phy				;Save Y.

		lda	map_enable_flag		;Flag zero?
		beq	unknown			;Yep.
*
* Copy the pointer into	map_ptr, init offset and set 8 bit accumulator...
*
		lda	map_buffer_ptr		;Get pointer.
		ldx	map_buffer_ptr+2
		sta	map_ptr			;Put in	direct page pointer.
		stx	map_ptr+2

		longa	off			;Set 8 bit A.
		sep	#$20
*
* Set length_temp to either real length of file_name or length minus any
* version number...
*
		ldy	file_name		;Point to real end.
		sty	length_temp		;Init length_temp
version_check	lda	file_name+1,y		;Get byte.
		cmp	#';'			;Semicolon?
		beq	fix_length		;Yes, so must change length.
		dey				;No, done all?
		bne	version_check		;No, so loop.
		bra	init_search		;Yes, so leave length alone.
		
fix_length	dey				;Back up past semicolon.
		sty	length_temp		;Save new length.
*
* Have we checked all records?	If so, exit with file type 00...
*
init_search	ldy	#2			;Init offset past length.
record_loop	lda	[map_ptr],y		;Get byte. Zero?
		beq	exit			;Yes, so exit with file	type 00.
*
* Nope,	let's find the end of the string for this record and get its length...
*
		ldx	#0			;Init count.
end_loop	inx				;Bump count.
		iny				;Bump offset.
		lda	[map_ptr],y		;Get byte. Zero?
		bne	end_loop		;Nope, so continue.
		phy				;Yes, save offset.
		stx	length			;Save length.
		dey				;Point to last character.
*
* Does the string match?
*
		cpx	length_temp		;String	longer than file_name?
		beq	check_it		;Nope.
		bcs	next_record		;Yep, so don't check.
check_it	ldx	length_temp		;Get length of file_name.

match_loop	lda	[map_ptr],y		;Get character.
		cmp	file_name+1,x		;Match?
		bne	next_record		;Nope.
		dey				;Yes, back up one.
		dex
		dec	length			;Done with string?
		bne	match_loop		;Nope, so loop.
*
* Yes, so get file type, restore 16 bit	accumulator and	exit...
*
		ply				;Recover offset.
		iny				;Point to file type.
		lda	[map_ptr],y		;Get file type.

		longa	on			;Restore 16 bit	A.
exit		rep	#$20

		and	#$00ff			;Clear high byte.
unknown		tax				;Put file type in X.
		ply				;Recover Y.
		rts				;Exit.
*
* No, so let's point to the next record and loop...
*
next_record	ply				;Recover offset.
		iny				;Point to file type.
		iny				;Point to next record.
		bra	record_loop		;Loop.

		ENDP
		eject
******************************************************************************
*
*	 Name:	write_protect
*
* Description:	A common handler for all calls which require writing to	disk.
*		Will call process_path,	and if successful, will	return a
*		drvr_wr_prot error.  Always returns an error.
*
*     Created:	Dec 14,	1987
*    Modified:	Dec 14,	1987
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*      Output:	A = error code
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*		B = K
*
*	 Uses:	All registers
*		process_path
*
******************************************************************************

write_protect	proc
		with	data

*
* Go look for the requested file.  Found?
*
		jsr	process_path		;Go find it.
		bcs	exit			;Error,	so exit.
*
* Yes, but we can't write, so exit with write protect error...
*
		lda	#drvr_wr_prot		;Get error code.
		sec				;Indicate error.
exit		rts				;Exit.

		ENDP
		eject
******************************************************************************
*
*	 Name:	create
*
* Description:	Removes	any filename from pathname then	jumps to write_protect.
*
*     Created:	May 2, 1988
*    Modified:	May 2, 1988
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*      Output:	A = error code
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*		B = K
*
*	 Uses:	All registers
*		write_protect
*
******************************************************************************

create		proc
		with	data

*
* Decrement name_count if it is	greater	than 0,	then jump to write_protect...
*
		lda	name_count		;Get count. Zero?
		beq	jump			;Yep.
		dec	name_count		;Nope, so decrement it by one.
jump		jmp	write_protect

		ENDP
		eject
******************************************************************************
*
*	 Name:	get_file_info
*
* Description:	Returns	information about a file or directory.
*
*     Created:	Nov 3, 1987
*    Modified:	Nov 3, 1987
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*      Output:	A = error code if carry	set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*	 Uses:	All registers
*		process_path		(sub)
*		send_output		(sub)
*
******************************************************************************

get_file_info	proc
		with	data

*
* Go find the file requested...
*
		jsr	process_path		;Go find it.
		bcs	error			;Error.
*
* Send the parameters back and exit...
*
		jsr	send_output		;Send 'em.
error		rts				;Exit.

		ENDP
		eject
******************************************************************************
*
*	 Name:	volume
*
* Description:	Returns	volume information from	a High Sierra disk.
*
*     Created:	Oct 6, 1987
*    Modified:	Feb 7, 1991
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*      Output:	A = error code if carry	set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*	 Exit:	rts
*
*	 Uses:	all registers
*		id_disk			(sub)
*
******************************************************************************

volume		proc
		with	data

*
* Now ID the disk. Is it a High	Sierra disk?
*
		lda	#in_cache		;Force block into cache.
		sta	drvr_cache

		lda	dev_num			;Get device # from zp.
		jsr	id_disk			;See if	it's my kind of disk.
		bcs	got_error		;branch if we got an error
*
* Yes, so send the output parameters...
*
		jsr	send_output		;Send 'em.
*
* Set cache back to default value and exit...
*
		export	SET_USER_CACHE
set_user_cache					;	        

		pha				;Save A.
		lda	cache_priority		;Get user setting.
		sta	drvr_cache		;Set cache value.
		pla				;Recover A.
		rts				;Exit

*
* We got an error from id_disk.
* If the error is "dup_volume" then we need to force the "vol_name" output parameter
* to be setup even though we're returning an error.
*
got_error	cmp	#dup_volume		;duplicate volume error?
		bne	error			;no - so we're done
		
		ldy	#4			;get class 0 offset to the volname param 
		lda	class			;get call class
		beq	doit			;branch if doing class 0
		iny				;adjust param offset for class 1
		iny
doit		jsr	h_vol_name		;setup the volname output param
		bcs	set_user_cache		;return output buffer errors
		lda	#dup_volume		;restore the dup_volume error
error		sec				;indicate error
		bra	set_user_cache		;and exit

		ENDP
		eject
******************************************************************************
*
*	 Name:	id_disk
*
* Description:	Determines whether or not the media chosen is in High Sierra
*		or ISO format.	If so and there	is no VCR for it, one is
*		created; if there is a VCR then	it is marked active.
*
*     Created:	Oct 7, 1987
*      Author:	Bryan Atsatt
*    Modified:	Feb 22, 1989	Added check for drvr_bad_block error.
*		Oct 10, 1989	CAF. Added check for drvr_disk_sw error.
*		Aug 8, 1990	MSD. Removed Cary's check for drvr_disk_sw.
*				The device_dispatch routine now has a special
*				case for drvr_disk_sw during id_disk.
*
*	Entry:	jsr
*
*	Input:	A = device number
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*      Output:	A = error code if carry	set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*		gstring			;holds volume name.
*		state_flag		;b0 = 1	if ISO version of High Sierra.
*					;b1 = 1	if Apple Extensions disc.
*					;b2 = 1	if ProDOS Transformation required.
*
*	 Uses:	all registers
*		id_disk_flag
*		gstring
*		temp0
*		temp1
*		drvr_dev_num
*		drvr_call_num
*		dev_id_ref
*		drvr_dib_ptr
*		sector_read		(sub)
*		build_vcr		(sub)
*
******************************************************************************

id_disk		proc
		with	data

*
* Save current device, init state_flag to 0 (high sierra), and make sure
* id_disk_flag is clear...
*
		sta	current_dev		;Save device #.
		stz	state_flag		;Clear state_flag.
		stz	id_disk_flag		;Clear id_disk_flag.
*
* Read in sector with id_disk_flag set,	clear flag, then exit if error...
*
		ldx	#vol_start		;Init to volume	start.

try_next	stx	sector_number		;Save low word of sector #.
		lda	#0			;Get high word of sector #.
		ldy	current_dev		;Get driver number.
		sty	drvr_dev_num		;Set driver number.

		inc	id_disk_flag		;Set id_disk_flag.
		jsr	sector_read		;Read in the data.
		stz	id_disk_flag		;Clear flag.
		bcc	do_id			;Continue if no	error.
		cmp	#drvr_bad_block		;Error. Is volume too small?
		bne	return_error		;Nope, some other error.
		lda	#unknown_vol		;Yes, so make into a bouncer.
return_error	sec				;Re-set carry.
		rts				;Exit.
*
* Ok, now look at the Volume Structure Standard	Identifier.
* Is it	'CDROM'	(High Sierra)?
*
		longa	off			;Set 8 bit A.
do_id		sep	#$20

		ldx	#4			;Point to end of string.
		ldy	#vol_id_end_0		;Point to end of identifier.
check_hs	lda	[io_buffer],y		;Get byte.
		cmp	hs_string,x		;Match?
		bne	iso			;Nope, so not High Sierra.
		dey				;Yes, done all?
		dex
		bpl	check_hs		;No, so	loop.
		bra	high_sierra		;Yes, so it's High Sierra.
*
* No, is it 'CD001' (ISO)?
*
iso		ldx	#4			;Point to end of string.
		ldy	#vol_id_end_1		;Point to end of identifier.
check_iso	lda	[io_buffer],y		;Get byte.
		cmp	iso_string,x		;Match?
		bne	unknown_hop		;Nope, so not ISO either.
		dey				;Yes, done all?
		dex
		bpl	check_iso		;No, so	loop.
*
* We have an ISO disk, so set the iso_bit in the state_flag.  Is the Volume
* Structure Standard Version correct?
*
		lda	state_flag		;Get flag.
		ora	#iso_bit		;Set ISO bit.
		sta	state_flag		;Save flag.

		ldy	#vol_version_1		;Point to version.
		lda	[io_buffer],y		;Get byte.
		cmp	#1			;Is it a 1?
		bne	unknown_hop		;Nope, so not ISO.
*
* Yes.	Is this	a Standard File	Structure Volume Descriptor?
*
		ldy	#vol_type_1		;Point at type.
		lda	[io_buffer],y		;Get byte.
		cmp	#1			;Is it a 1?
		bne	not_standard		;Nope, so it's not standard.
*
* Yes.	Is the Logical Block Size either 512, 1024, or 2048 bytes?
*
		ldy	#vol_blk_size_1		;Point at block	size.
		lda	[io_buffer],y		;Get low byte of size.
		bne	unknown			;Unknown if not	zero.
		iny				;Point to high byte.
		lda	[io_buffer],y		;Get high byte.
		cmp	#>2048			;2k?
		beq	chk_file_ver_1		;Yep, so ok.
		cmp	#>1024			;1k?
		beq	chk_file_ver_1		;Yep, so ok.
		cmp	#>512			;Nope, 512?
		bne	unknown			;Nope, so unknown.
*
* Yes.	Is the File Structure Standard Version correct?
*
chk_file_ver_1	ldy	#vol_file_ver_1		;Point to file version.
		lda	[io_buffer],y		;Get byte.
		beq	check_id		;Ok if zero.
		cmp	#1			;Is it a 1?
		bne	unknown			;Nope, so not an ISO disk either.
*
* Yes, so we have an ISO disk.	See if disk conforms to	Apple Extensions, and/or
* if it is an XA disc, then continue...
*
check_id	ldy	#vol_sys_id_1		;Get offset to iso sys_id.
		jsr	check_apple_ext		;Check for Apple Extensions.
		jsr	check_xa		;Check for CD-ROM XA disc.
		bra	got_one			;Continue.
*
* We have a High Sierra	disk.  Is the Volume Structure Standard	Version
* correct?
*
high_sierra	ldy	#vol_version_0		;Point to version.
		lda	[io_buffer],y		;Get byte.
		cmp	#1			;Is it a 1?
		bne	unknown			;Nope, so not High Sierra.
*
* Yes.	Is this	a Standard File	Structure Volume Descriptor?
*
		ldy	#vol_type_0		;Point at type.
		lda	[io_buffer],y		;Get byte.
		cmp	#1			;Is it a 1?
		bne	not_standard		;Nope.
*
* Yes.	Is the Logical Block Size either 512, 1024, or 2048 bytes?
*
		ldy	#vol_blk_size_0		;Point at block	size.
		lda	[io_buffer],y		;Get low byte of size.
		bne	unknown			;Unknown if not	zero.
		iny				;Point to high byte.
		lda	[io_buffer],y		;Get high byte.
		cmp	#>2048			;2k?
		beq	chk_file_ver_0		;Yep, so ok.
		cmp	#>1024			;1k?
		beq	chk_file_ver_0		;Yep, so ok.
		cmp	#>512			;Nope, 512?
		bne	unknown			;Nope, so unknown.
*
* Yes.	Is the File Structure Standard Version correct?
*
chk_file_ver_0	ldy	#vol_file_ver_0		;Point to file version.
		lda	[io_buffer],y		;Get byte.
		beq	got_one			;Ok if zero.
		cmp	#1			;Is it a 1?
unknown_hop	bne	unknown			;Nope, so not High Sierra.
*
* Yes, so we have a High Sierra	disk.  See if disk conforms to Apple Extensions
* then continue...
*
		ldy	#vol_sys_id_0		;Get offset to high sierra sys_id.
		jsr	check_apple_ext		;Check for Apple Extensions.
		bra	got_one			;Continue.


*
* It looks like	we've got a High Sierra or ISO disk but we're not
* looking at the Standard File Volume Descriptor.  Bump	the sector # and
* loop back to start if	this is	not the	Volume Descriptor Sequence Terminator.
* If it	is the terminator, then	we can't ID disk...
*
		longa	on			;Restore 16 bit	A.
not_standard	rep	#$20

		and	#$00ff			;Clear high byte.
		cmp	#vol_terminator		;Is this a terminator type?
		beq	unknown			;Yes, so we can't ID the disk.

		ldx	sector_number		;Nope, get sector #.
		inx				;Bump it one.
		brl	try_next		;Try next one.
*
* Not a	High Sierra or ISO disk.  Exit with unknown volume error...
*
		longa	on			;First restore 16 bit A.
unknown		rep	#$20

		lda	#unknown_vol		;Get error code.
		sec				;Indicate error.
		rts				;Exit to caller.
*
* Ok, we've got a High Sierra disk and we're looking at	the Standard File
* Volume Descriptor.  Exit through build_vcr...
*
		longa	on			;Restore 16 bit	A.
got_one		rep	#$20

		jmp	build_vcr		;Exit thru build_vcr.

		ENDP
		eject
******************************************************************************
*
*	 Name:	check_apple_ext
*
* Description:	Sets state_flag	Apple Extensions and ProDOS Transformation bits
*		if present.
*
*     Created:	July 8,	1988
*    Modified:	July 8,	1988
*      Author:	Bryan Atsatt
*
*	 NOTE:	This routine must be entered with 8 bit	Accumulator!
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = offset to system identifier	field in volume	descriptor.
*		P = nvmxdizc
*		    ..100...
*		B = K
*
*		io_buffer		;points	to volume header
*		state_flag		;b0 = 1	if ISO version of High Sierra.
*					;b1 = 0
*					;b2 = 0
*
*      Output:	A = error code if carry	set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*		state_flag		;b0 = 1	if ISO version of High Sierra.
*					;b1 = 1	if Apple Extensions disc.
*					;b2 = 1	if ProDOS Transformation required.
*
*	 Exit:	rts
*
*	 Uses:	state_flag
*
******************************************************************************

check_apple_ext	proc
		with	data

		longa	off
*
* Does this disk conform to the	Apple Extensions?
*
		ldx	#0			;Point to start	of apple_string.
id_loop		lda	[io_buffer],y		;Get byte.
		cmp	apple_string,x		;Match?
		bne	exit			;Nope, so exit.
		iny				;Yes, bump offsets.
		inx
		cpx	#apple_str_len		;Reached end?
		bne	id_loop			;Nope, so loop.
*
* Yes, so put ProDOS Filename Transformation bit into state_flag and set the
* apple_bit then exit...
*
		lda	[io_buffer],y		;Get byte.
		and	#prodos_format		;Isolate prodos	transformation bit.
		asl	a			;Shift it to prodos_bit	position.
		asl	a
		ora	#apple_bit		;Add apple_bit.
		ora	state_flag		;Add to	current	state_flag.	        
		sta	state_flag		;Save it.
exit		rts				;Exit.

		longa	on

		ENDP
		eject
******************************************************************************
*
*	 Name:	check_xa
*
* Description:	Sets state_flag	xa_bit if this is a CD-ROM XA disc.
*
*     Created:	Apr 6, 1989
*    Modified:	Apr 6, 1989
*      Author:	Bryan Atsatt
*
*	 NOTE:	This routine must be entered with 8 bit	Accumulator!
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..100...
*		B = K
*
*		io_buffer		;points	to volume header
*		state_flag		;b0 = 1	if ISO version of High Sierra.
*					;b1 = 1	if Apple Extensions disc.
*					;b2 = 1	if ProDOS Transformation required.
*					;b3 = 0
*
*      Output:	A = error code if carry	set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*		state_flag		;b0 = 1	if ISO version of High Sierra.
*					;b1 = 1	if Apple Extensions disc.
*					;b2 = 1	if ProDOS Transformation required.
*					;b3 = 1 of CD-ROM XA disc.
*
*	 Exit:	rts
*
*	 Uses:	state_flag
*
******************************************************************************

check_xa	proc
		with	data

		longa	off
*
* Is this a CD-ROM XA disc?
*
		ldx	#0			;Point to start	of xa_string.
		ldy	#vol_xa_label_1		;Point to label area.
id_loop		lda	[io_buffer],y		;Get byte.
		cmp	xa_string,x		;Match?
		bne	exit			;Nope, so exit.
		iny				;Yes, bump offsets.
		inx
		cpx	#xa_str_len		;Reached end?
		bne	id_loop			;Nope, so loop.
*
* Yes, so set xa_bit in state_flag and exit...
*
		lda	state_flag		;Get current flags.
		ora	#xa_bit			;Add to	current	state_flag.	        
		sta	state_flag		;Save it.
exit		rts				;Exit.

		longa	on

		ENDP
		eject
******************************************************************************
*
*	 Name:	build_vcr
*
* Description:	Creates	a new VCR if needed.  If already present, it is
*		marked active.	Checks for duplicate volumes.
*
*		NOTE:  Should only be called by	id_disk!!
*
*     Created:	Oct 8, 1987
*    Modified:	July 21, 1988
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		io_buffer		;points	to volume header
*		state_flag		;b0 = 1	if ISO version of High Sierra.
*					;b1 = 1	if Apple Extensions disc.
*					;b2 = 1	if ProDOS Transformation required.
*
*      Output:	A = error code if carry	set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*		my_vcr			;points	to vcr.
*		path_table		;points	to path	table.
*		log_blk_size		;size of logical blocks	for this disc.
*		real_log_size		;copy of log_blk_size.
*
*	 Exit:	rts
*
*	 Uses:	all registers
*		id_disk_flag
*		my_vcr
*		length
*		temp0
*		temp1
*		set_file_system		(sub)
*		make_gstring		(sub)
*		block_read		(sub)
*		activate_vcr		(sub)
*		transform_name		(sub)
*		alloc_vcr		(sys service)
*		release_vcr		(sys service)
*		find_vcr		(sys service)
*		deref			(sys service)
*
******************************************************************************

build_vcr	proc
		with	data

*
* Set file system variables...
*
		jsr	set_file_system		;Set up	for ISO	or High	Sierra.
*
* Make a gstring from volume name and transform	if needed....
*
		lda	vol_id_start		;Get offset to start of	name.
		ldy	vol_id_len		;Get length of name.
		jsr	make_gstring		;Make gstring.
		lda	#$2e5f			;Replace underscores with periods.
		jsr	transform_gstring
*
* Do we	already	have a VCR with	this name?
*
		lda	#0000			;Select	search by name.
		ldx	#gstring		;Get pointer to	volume name.
		ldy	#^gstring
		jsl	find_vcr		;Do search.  Found?
		bcs	new_vcr			;Nope.
*
* Yes, does it belong to me?
*
		jsl	deref			;Yes, dereference VP.
		stx	my_vcr			;Save pointer.
		sty	my_vcr+2

		ldy	#vcr_fst_id		;Get offset to id.
		lda	[my_vcr],y		;Get id.
		cmp	#hs_id			;Is it mine?
		bne	check_active		;No, check if we can toss it.
*
* Yes, does the	volume creation	date & time match that in the vcr?
*
		ldy	vol_create_dt		;Get offset to create date & time.
		ldx	#vcr_create_dt		;Get offset into vcr.
		lda	vol_dt_len		;Get length of create +	mod fields.
		sta	length			;Save it.

		longa	off			;Set 8 bit A.
		sep	#$20

cmp_loop	lda	[io_buffer],y		;Get byte.
		sty	vol_offset		;Save vol offset.
		txy				;Get offset to vcr.
		cmp	[my_vcr],y		;Does it match?
		bne	check_active		;Nope, so see if it's active.
		ldy	vol_offset		;Yes, recover vol offset.
		iny				;Bump it.
		inx				;Bump vcr offset.
		dec	length			;Done all?
		bne	cmp_loop		;Nope, so loop.

		longa	on			;Set 16	bit A.
		rep	#$20
*
* Yes, so this is the same volume.  Update the last known device,
* put state_flag in vcr, mark vcr as active and	exit with the carry clear...
*
		ldy	#vcr_dev		;Get offset to device number.
		lda	drvr_dev_num		;Get device.
		sta	[my_vcr],y		;Update	vcr.

		ldy	#vcr_state_flag		;Get offset to state_flag.
		lda	state_flag		;Get flag.
		sta	[my_vcr],y		;Save state word.

		brl	do_activate		;Continue.
*
* Exit with duplicate volume error...
*
duplicate	lda	#dup_volume		;Get error code.
		sec				;Indicate error.
error_exit	rts				;Exit.
*
* No, so we have a duplicate volume.  If there are no open files then
* release the vcr and build a new one, otherwise exit with a duplicate
* volume error...
*
		longa	on			;Set 16	bit A.
check_active	rep	#$20

		ldy	#vcr_open_cnt		;Get offset to open count.
		lda	[my_vcr],y		;Any open?
		bne	duplicate		;Yes, so exit with error.
		lda	[my_vcr]		;Nope, get the volume ID.
		jsl	release_vcr		;Release vcr.
*
* Ok, we need to make a	new vcr.  First	calculate size of vcr...
*
new_vcr		ldy	vol_path_size		;Get offset to path table size.
		lda	[io_buffer],y		;Get size.
		sta	path_table_size		;Save it.
		sta	path_size		;And again.

*** changed 2-Dec-92 DAL -- size of VCR is now a constant
;;;		clc				;Add offset to path table.
;;;		adc	#vcr_path_table
		lda	#our_vcr_size
*** end 2-Dec-92

*
* Now allocate new vcr...
*
		ldx	#gstring		;Point to volume name.
		ldy	#^gstring
		jsl	alloc_vcr		;Allocate new vcr.  Ok?
		bcc	alloc_ok		;Yes.
*
* Couldn't allocate.  Exit with out of memory error...
*
		lda	#out_of_mem		;Get error code.
		rts				;Exit.
*
* Fill in all the fields...
*
alloc_ok	jsl	deref			;Dereference vp.
		stx	my_vcr			;Save pointer.
		sty	my_vcr+2

*** added 2-Dec-92 DAL -- zero the path_tbl_handle field, in case we can't get the handle later
		ldy	#vcr_path_tbl_handle+2
		lda	#0
		sta	[my_vcr],y
		dey
		dey
		sta	[my_vcr],y
*** end 2-Dec-92

		ldy	#vcr_status		;Get offset to status.
		lda	#vcr_swapped		;Init to swapped.
		sta	[my_vcr],y

		ldy	#vcr_fst_id		;Get offset to fst id.
		lda	#hs_id			;Get id.
		sta	[my_vcr],y		;Save it.

		ldy	#vcr_dev		;Get offset to device.
		lda	drvr_dev_num		;Get current device.
		sta	[my_vcr],y		;Save it.

		ldy	vol_space_size		;Get offset to low word	of size.
		tyx				;Save it.
		lda	[io_buffer],y		;Get it.
		ldy	#vcr_total_blks		;Get offset to vcr.
		sta	[my_vcr],y		;Send low word.
		txy				;Recover offset	to low word of size.
		iny				;Point to high word.
		iny
		lda	[io_buffer],y		;Get it.
		ldy	#vcr_total_blks+2	;Get offset to vcr.
		sta	[my_vcr],y		;Send high word.

		ldy	vol_block_size		;Get offset to block size.
		lda	[io_buffer],y		;Get it.
		ldy	#vcr_block_size		;Get offset into vcr.
		sta	[my_vcr],y		;Save it.
		sta	log_blk_size		;Set new log_blk_size.
		sta	real_log_size		;Set new real_log_size .

		ldy	#vcr_path_size		;Get offset to path table size.
		lda	path_table_size		;Get size.
		sta	[my_vcr],y		;Save it.

		ldy	vol_root_dir		;Get offset to root directory entry.
		ldx	#vcr_root_dir		;Get offset into vcr.
		lda	vol_root_len		;Get length of root dir.
		sta	length			;Save it.
dir_loop	lda	[io_buffer],y		;Get byte.
		sty	vol_offset		;Save vol offset.
		txy				;Get offset to vcr.
		sta	[my_vcr],y		;Put byte in vcr.
		ldy	vol_offset		;Recover vol offset.
		iny				;Bump it.
		inx				;Bump vcr offset.
		dec	length			;Done all?
		bne	dir_loop		;Nope, so loop.

		ldy	vol_create_dt		;Get offset to create date & time.
		ldx	#vcr_create_dt		;Get offset into vcr.
		lda	vol_dt_len		;Get length of create +	mod fields.
		sta	length			;Save it.
dt_loop		lda	[io_buffer],y		;Get byte.
		sty	vol_offset		;Save vol offset.
		txy				;Get offset to vcr.
		sta	[my_vcr],y		;Put byte in vcr.
		ldy	vol_offset		;Recover vol offset.
		iny				;Bump it.
		inx				;Bump vcr offset.
		dec	length			;Done all?
		bne	dt_loop			;Nope, so loop.

		ldy	#vcr_state_flag		;Get offset to state_flag.
		lda	state_flag		;Get flag.
		sta	[my_vcr],y		;Put flag in vcr.

*** changed 2-Dec-92 DAL -- allocate a Memory Manager handle for the path table
;*
;* Now, we need to append the path table to the vcr.  First make a
;* pointer to the path table...
;*
;		clc				;Prepare to add.
;		lda	#vcr_path_table		;Get offset to path table.
;		adc	my_vcr			;Add to	my_vcr ptr.
;		sta	path_table		;Save low word of pointer.
;		lda	#0			;Do high word.
;		adc	my_vcr+2
;		sta	path_table+2

		pha
		pha				;space for NewHandle
		pea	0			;high word of size
		lda	path_table_size
		pha				;low word of size
		pha				;space for User ID
		_MMStartUp			;use same User ID as our code (leave on stack)
		pea	$8000			;handle initially locked
		pha
		pha				;garbage (ignored)
		_NewHandle
		plx
		ply
		bcs	error

		pei	<path_ptr+2		;preserve & use temporarily
		pei	<path_ptr

		stx	<path_ptr
		sty	<path_ptr+2

		ldy	#2
		lda	[<path_ptr],y
		sta	path_table+2
		lda	[<path_ptr]
		sta	path_table

		ldy	#vcr_path_tbl_handle+2
		lda	<path_ptr+2
		sta	[my_vcr],y
		sta	current_path_tbl_handle+2
		dey
		dey
		lda	<path_ptr
		sta	[my_vcr],y
		sta	current_path_tbl_handle

		pla
		sta	<path_ptr
		pla
		sta	<path_ptr+2
*** end 2-Dec-92

*
* Get the block	number...
*
		ldy	vol_path_loc		;Get offset to path table location.
		lda	[io_buffer],y		;Get low word.
		tax
		iny				;Point to high word.
		iny
		lda	[io_buffer],y		;Get high word.
*
* Set id_disk_flag, read in one	block, clear id_disk_flag and exit if error...
*
read_loop	inc	id_disk_flag		;Set flag.
		jsr	block_read		;Do read.
		stz	id_disk_flag		;Clear flag.  Read ok?
		bcs	error			;Nope.
*
* Append path_size bytes to path_table.	Did we run out of data in the
* buffer?
*
		ldy	#0			;Init offset.
append_loop	lda	[io_buffer],y		;Get byte.
		sta	[path_table],y		;Appen to vcr.
		iny				;Bump offset.
		iny
		cpy	log_blk_size		;Run out of buffer?
		bcs	read_more		;Yep.
		cpy	path_size		;No, moved all?
		bcc	append_loop		;No, so	loop.
*
* No, activate_vcr and exit with carry clear...
*
do_activate	jsr	activate_vcr		;Activate it.
		clc				;Clear carry.
		rts				;Exit.
*
* Yes, adjust path_size, adjust	path_table, bump block # and loop...
*
read_more	sec				;Adjust	path_size.
		lda	path_size
		sbc	log_blk_size
		sta	path_size

		clc				;Adjust	path_table.
		lda	path_table
		adc	log_blk_size
		sta	path_table
		lda	path_table+2
		adc	#0
		sta	path_table+2

		ldx	drvr_blk_num		;Get block #.
		lda	drvr_blk_num+2
		inx				;Bump it.
		bne	read_loop		;Loop if didn't rollover.
		inc	a			;Rollover. Bump	high word.
		bra	read_loop		;Loop.
*
* An error occured, free the vcr before	exiting...
*
error		pha				;Nope, save error code.
		lda	[my_vcr]		;Get the volume	ID.
		jsl	release_vcr		;Release vcr.
		pla				;Recover the error.
		sec				;Indicate error.
		rts				;Exit.

		ENDP
		eject
******************************************************************************
*
*	 Name:	set_file_system
*
* Description:	Copies either hs_offsets or iso_offsets	into file_sys_table.
*
*     Created:	Feb 26,	1988
*    Modified:	Mar 23,	1988
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		state_flag		;b0 = 1	if ISO version of High Sierra.
*					;b1 = 1	if Apple Extensions disc.
*					;b2 = 1	if ProDOS Transformation required.
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*	 Exit:	rts
*
*	 Uses:	all registers
*
******************************************************************************

set_file_system	proc
		with	data

*
* High Sierra or ISO?
*
		ldy	#file_sys_len		;Get length of table.

		lda	state_flag		;Get flag.
		and	#iso_bit		;Iso?
		bne	iso_loop		;Yes.
*
* High Sierra, so copy hs_offsets into file_sys_table...
*
hs_loop		lda	hs_offsets,y		;Get word.
		sta	file_sys_table,y	;Put in	table.
		dey				;Done all?
		dey
		bpl	hs_loop			;Nope, so loop.
		rts				;Yes, so exit.
*
* ISO, so copy iso_offsets into	file_sys_table...
*
iso_loop	lda	iso_offsets,y		;Get word.
		sta	file_sys_table,y	;Put in	table.
		dey				;Done all?
		dey
		bpl	iso_loop		;Nope, so loop.
		rts				;Yes, so exit.

		ENDP
		eject
******************************************************************************
*
*	 Name:	open
*
* Description:	Opens file or directory	and prepares for reading.  Will	build
*		a new FCR if none exists.
*
*     Created:	Oct 20,	1987
*    Modified:	Oct 20,	1987
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*      Output:	A = error code if carry	set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*	 Uses:	All registers
*		process_path
*		build_fcr
*		send_output
*
******************************************************************************

open		proc
		with	data

*
* First	go find	the file requested...
*
		jsr	process_path		;Go find it.
		bcs	error			;Error.
*
* Now build the	FCR if necessary...
*
		jsr	build_fcr		;Build fcr.
		bcs	error			;Error.
*
* Ok, we've opened the file. Send the output parameters and exit...
*
		jsr	send_output		;Send 'em.
error		rts

		ENDP
		eject
******************************************************************************
*
*	 Name:	process_path
*
* Description:	Find location of file using full pathname.  Will make sure
*		that volume is online.
*
*     Created:	Oct 20,	1987
*    Modified:	Mar  5, 1991
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		dev_num			;holds device number if	used.
*		volume_name		;holds volume name.
*		file_name		;holds file name.
*		name_count		;# of names in path.
*		name_offsets		;offsets to start of names in path.
*		input_error		;set if	input error.
*
*      Output:	A = error code if carry	set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*		storage_type		;1=file, 5=extended file, D=directory,
*					 or F=volume directory.
*		dir_record_0		;holds directory record.
*		dir_record_1		;holds associated dir record (if any).
*		eof			;eof from dir_record_0.
*		blocks_used		;blocks_used from dir_record_0.
*		resource_eof		;eof from dir_record_1.
*		resource_blocks		;blocks_used from dir_record_1.
*		error_priority 		;$8000 if we found the specified volume
*
*	 Uses:	All registers
*		find_a_vcr		(sub)
*		id_disk			(sub)
*		find_volume		(sub)
*		find_file		(sub)
*		get_dir_info		(sub)
*
******************************************************************************

process_path	proc
		with	data

*
* Clear	out dir_record_0 and dir_record_1...
*
		jsr	clear_dir_recs		;Clear them.
*
* Make sure that all blocks read are cached...
*
		lda	#in_cache		;Cache 'em.
		sta	drvr_cache
*
* Do we	have a device number or	a volume name?
*
		lda	dev_num			;Is there a device #?
		beq	by_name			;No, so	find by	name.
*
* Device number.  Do we	have a vcr for it?
*
		sta	drvr_dev_num		;Set device number.
		jsr	find_a_vcr		;Do we have a vcr?
		bcc	check_file		;Yes.
*
* Nope,	so id the disk.	 Exit if it's not mine, else continue on to
* check_file...
*
		lda	dev_num			;Get device #.
		jsr	id_disk			;Is it mine?
		bcs	error			;Nope, so exit.
		bra	check_file		;Yes.
*
* We have a volume name. Try to	find the volume	using volume_name...
*
by_name		jsr	find_volume		;Look for volume.  Found?
		bcs	error			;Nope, so exit.
*
* Ok, we have the volume and my_vcr points to the vcr. Go find the file
* or directory.	Found?
*
check_file	lda	#$8000			;indicate that we found the volume
		sta	error_priority		;and it's my volume
; Begin 18-Dec-91 MSD: Make sure the maximum span is less than 32
; If not, return a bad path syntax error.
		lda	span1
		cmp	#32
		bcc	ok_path
		lda	#bad_path_syntax
		bra	error			; note: carry already set!
ok_path
; End 18-Dec-91 MSD
		jsr	find_file		;Go look for it. All ok?
		bcs	error			;Nope, so exit.
*
* Yes, so call get_dir_info and	clear carry...
*
		jsr	get_dir_info		;Get parameters.
		clc				;Indicate success.
*
* Restore user cache value. And	exit if	carry set.  If clear and
* input_error set, exit	with input_error...
*
error		jsr	set_user_cache		;Restore user cache value.

		bcs	check_error		;Exit if error.
		lda	input_error		;Was there an input error?
		beq	check_error		;Nope.
		sec				;Yes, indicate error.
*
* If we have a path_not_found error and resource_num is non-zero, change
* the error to res_not_found...
*
check_error	bcc	exit			;No error, so exit.
		cmp	#path_not_found		;Path not found error?
		beq	check_resource		;Yes, so check for resource.
		cmp	#file_not_found		;No, file not found error?
		sec				;(make sure carry set).
		bne	exit			;No, so exit.

check_resource	ldx	resource_num		;Yes, looking for resource?
		beq	exit			;No, so exit.
		lda	#res_not_found		;Yes, get other error code.
exit		rts				;Exit.

		ENDP
		eject
******************************************************************************
*
*	 Name:	find_a_vcr
*
* Description:	Looks for a vcr	whose device # matches dev_num and whose
*		id indicates that it belongs to	me.  Makes sure	volume is
*		online.
*
*     Created:	Oct 20,	1987
*    Modified:	Oct 20,	1987
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		dev_num			;device	number to match.
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = not found
*			   0 = found
*		B = K
*
*		my_vcr			;Points	to vcr if found.
*
*	 Uses:	All registers
*		temp0
*		my_vcr
*		setup_volume		(sub)
*
******************************************************************************

find_a_vcr	proc
		with	data

*
* Get vcr.  Exit with carry set	if checked all...
*
		stz	device			;Init to device	0.

loop		inc	device			;Bump device #
		lda	device			;Get it.
		jsl	get_vcr			;Get vcr.
		bcc	found_vcr		;Found.
		rts				;Not found.
*
* Is this my vcr?
*
found_vcr	jsl	deref			;Dereference vp.
		stx	my_vcr			;Save pointer.
		sty	my_vcr+2
		ldy	#vcr_fst_id		;Get offset to fst id.
		lda	[my_vcr],y		;Get id.
		cmp	#hs_id			;Is it mine?
		bne	loop			;Nope, so loop.
*
* Yes, is it the right device #?
*
		ldy	#vcr_dev		;Get offset to device #.
		lda	[my_vcr],y		;Get #.
		cmp	dev_num			;Match?
		bne	loop			;Nope, so loop.
*
* Yes, exit thru setup_volume to make sure volume is online and	setup some
* variables from the vcr...
*
		jmp	setup_volume		;Do setup.

		ENDP
		eject
******************************************************************************
*
*	 Name:	find_volume
*
* Description:	Looks for a volume whose name matches that in volume_name.
*		If there is a vcr, will	do a status call and if	the volume
*		has not	been switched will return with carry clear.
*
*     Created:	Oct 20,	1987
*    Modified:	July 28, 1988
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		volume_name		;volume	name to	match.
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = not found
*			   0 = found
*		B = K
*
*		drvr_dev_num		;device	number found.
*		my_vcr			;Points	to vcr.
*
*	 Uses:	All registers
*		my_vcr
*		current_device
*		start_device
*		find_vcr		(sub)
*		id_disk			(sub)
*		transform_name		(sub)
*		dev_dispatcher		(sys_service)
*
******************************************************************************

find_volume	proc
		with	data

*
* Initialize...
*
		lda	#0001			;Init device to	1.
		sta	current_device
		stz	start_device		;Clear start device.
*
* Look for vcr with volume_name. Found?
*
		ldx	#volume_name		;Get pointer to	volume name.
		ldy	#^volume_name
		lda	#0000			;Search	by name.
		jsl	find_vcr		;Do search.  Found one?
		bcs	check_device		;Nope.
*
* Yep, is it mine?  Exit with unknown_vol error	if not...
*
		jsl	deref			;Dereference pointer..
		stx	my_vcr			;Save it.
		sty	my_vcr+2
		ldy	#vcr_fst_id		;Get offset to id.
		lda	[my_vcr],y		;Get id.
		cmp	#hs_id			;Is it mine?
		beq	get_device		;Yes.
		lda	#unknown_vol		;No, get error code.
		sec				;Indicate error.
		rts				;Exit.
*
* Yep, get device # and	setup to check it first...
*
get_device	ldy	#vcr_dev		;Get offset to device #.
		lda	[my_vcr],y		;Get device #.
		sta	drvr_dev_num		;Set driver device number.
		sta	current_device		;Set current.
		sta	start_device		;Set start.
*
* Has the vcr been marked as switched?
*
		ldy	#vcr_status		;Get offset to status.
		lda	[my_vcr],y		;Get word.
		and	#vcr_swapped		;Swapped?
		bne	check_id		;Yes, so must do search.
*
* No, so fire off a status call	then check again.  This	will ensure that we
* know if the volume has been taken offline.  If it has	not been switched, then
* we can rest assured that the volume is present...
*
		lda	#drvr_status		;Set status command.
		sta	drvr_call_num
		stz	drvr_stat_code		;Set to	status code 0. (!8/12/88)
		lda	#status_list		;Set status list pointer.
		sta	drvr_slist_ptr
		lda	#^status_list
		sta	drvr_slist_ptr+2
		lda	#6			;Set request count.
		sta	drvr_req_cnt
		stz	drvr_req_cnt+2
		jsl	dev_dispatcher		;Do call. Error?
		bcs	check_id		;Yes, so go do id.
		lda	status_list		;Get status word. (!8/12/88)
		and	#switched_mask		;Swapped? (!8/12/88)
		bne	check_id		;Yes, so go do id.
		clc				;Nope, so exit with carry clear.
		rts
*
* Main loop.
* Need to check	this device?
*
check_device	lda	start_device		;Get start device.
		cmp	current_device		;Same as current?
		beq	next_device		;Yes, so skip it cuz we	already	did it.
*
* Yes, id disk.	 Any errors?
*
check_id	lda	current_device		;Get current device #.
		jsr	id_disk			;Do id.	 Ok?
		bcc	check_match		;Yes.
*
* Yes.	If it's a disk switched error, let's re-try id_disk.  While this may
* look like an infinite	loop, it's not because this error only occurs once per
* media	transition...
*
		cmp	#drvr_disk_sw		;Is it a disk switched?
		bne	not_disksw		;Nope.
		lda	current_device		;Yes, get current device number.
		bra	check_id		;Re-try	id_disk.
*
* Not a	disk switched. If it's a device not found or duplicate volume error
* then exit, otherwise continue	search...
*
not_disksw	cmp	#dup_volume		;Duplicate volume?
		beq	error			;Yes, so exit.
		cmp	#invalid_dev_num	;Checked all?
		bne	no_match		;No, so	continue search.
no_such_vol	lda	#vol_not_found		;Get error code.
error		sec				;Indicate error.
		rts				;Exit.
*
* No error from	id_disk.  Does the name	match?
*
check_match	lda	#$2e5f			;Get search and	replace	characters.
		ldx	#volume_name		;Get string address.
		ldy	#^volume_name
		jsr	transform_name		;Do transform if needed.

		longa	off			;Set 8 bit A.
		sep	#$20

		ldy	gstring			;Get length.
		iny				;Bump it one for length	word.
compare_loop	lda	volume_name,y		;Get byte.
		cmp	gstring,y		;Match?
		bne	undo_it			;Nope.
		dey				;Yes, done all?
		bpl	compare_loop		;No, so	loop.

		longa	on			;Set 16	bit A.
		rep	#$20
*
* Yes, so we've got it. Exit with carry clear...
*
found		clc				;Indicate found.
		rts				;Exit.
*
* No, undo transformation if necessary...
*
		longa	on			;Set 16	bit A.
undo_it		rep	#$20

		lda	#$5f2e			;Get search and	replace	characters.
		ldx	#volume_name		;Get string address.
		ldy	#^volume_name
		jsr	transform_name		;Do transform if needed.
*
* No, reset current_device if this is the start_device...
*
no_match	lda	current_device		;Get current.
		cmp	start_device		;Same as start?
		bne	next_device		;Nope.
		stz	current_device		;Yes, so reset current.
*
* Bump current device and loop...
*
next_device	inc	current_device		;Bump current.
		bra	check_device		;Loop.

		ENDP
		eject
******************************************************************************
*
*	 Name:	find_file
*
* Description:	Looks for a file whose name matches that in file_name.
*
*     Created:	Oct 21,	1987
*    Modified:	January 11, 1989
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		my_vcr			;points	to vcr.
*		file_name		;file name to match.
*		name_count		;# of names in pathname.
*		name_offsets		;offsets to start of names.
*		drvr_dev_num		;device	# of volume.
*		resource_num		;associated file flag.
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = not found
*			   0 = found
*		B = K
*
*		storage_type		;1=file, 5=extended file, D=directory,
*					 or F=volume directory.
*		dir_record_0		;holds directory record.
*		dir_record_1		;holds associated file record if
*					;present and we	were not looking for
*					;an associated file.
*
*	 Uses:	All registers
*		storave_type
*		dir_record_0
*		dir_record_1
*		record_offset
*		dir_length
*		eof
*		length
*		log_blk_size
*		transform_in_f		(sub)
*		activate_vcr		(sub)
*		find_directory		(sub)
*		block_read		(sub)
*		move_dir_record		(sub)
*		search_dir		(sub)
*		read_next_block		(sub)
*
******************************************************************************

find_file	proc
		with	data

*
* First, make sure the vcr is activated	and the	path table parameters
* are set up...
*
		jsr	activate_vcr		;Do activate.
*
* Get location of directory, set start_block, and read it in...
*
		jsr	find_directory		;Go find it.
		bcs	error			;Exit on error.
		stx	start_block		;Save start block.
		sta	start_block+2
		ldy	#sector_size		;Set to	read 2k.
		jsr	device_read		;Read in block.
		bcs	error			;Exit on error.
*
* Copy first directory record to dir_record_0 (in case there is	no file),
* force	directory bit in file_flags to 1 (cuz sometimes	not set), clear invisible
* bit in file_flags (in case call is get_file_info on a directory), and set
* end_block...
*
		lda	#0			;Select	dir_record_0.
		sta	record_offset		;Clear offset.
		jsr	move_dir_record		;Move it.

		ldx	dir_file_flags		;Get offset to file_flags. (2/29/88)
		lda	dir_record_0,x		;Get flags.
		ora	#dir_mask		;Set directory bit.
		and	#clear_invisible	;Clear invisible bit.
		sta	dir_record_0,x		;Save flags.

		stz	interleave_size		;Clear interleave values.
		stz	interleave_skip

		ldx	dir_record_0+dir_data_length ;Get low word of length.
		lda	dir_record_0+dir_data_length+2 ;Get high word of length.
		jsr	set_end_block		;Set end_block...
*
* Are we looking for a directory?
*
		lda	storage_type		;Get type.
		cmp	#type_file		;Is it a file?
		beq	transform		;Yes.
*
* Yes, so force	log_blk_size to	2k.  If	resource_num is	clear then branch to
* found, else exit with path_not_found error...
*
		lda	#sector_size		;Force log_blk_size to 2k.
		sta	log_blk_size
		lda	resource_num		;No, is	resource_num set?
		beq	found			;Nope, so we're done.
		lda	#path_not_found		;Yes, get error code.
		sec				;Indicate error.
		rts				;Exit.
*
* Transform file_name if needed.  If this is a High Sierra volume and resource_num
* is set, exit with a file_not_found error 'cuz we don't support associated files
* for High Sierra...
*
transform	jsr	transform_in_f		;Transform file_name string if needed.
		lda	resource_num		;Looking for associated	file?
		beq	search_loop		;Nope.
		lda	state_flag		;Yes, is this a	High Sierra volume?
		and	#iso_bit
		beq	not_found		;Yep, so error.
*
* We're looking for a file, so let's search for	it.  Found it?
*
search_loop	lda	resource_num		;Get associated	file flag.
		jsr	search_dir		;Do search.  Success?
		bcc	found_file		;Yes.
		lda	log_blk_size		;Save logical block size.
		pha
		lda	#sector_size		;Force to sector size.
		sta	log_blk_size
		jsr	read_next_block		;Nope, get next	directory block.
		plx				;Restore logical block size.
		stx	log_blk_size
		bcc	search_loop		;Loop if no error.
*
* Not found.  Exit with	file not found error...
*
not_found	lda	#file_not_found		;Get error code.
error		sec				;Indicate error.
		rts				;Exit.
*
* Yes, move directory record to	dir_record_0.  If we found an associated file
* then set storage_type	to extended...
*
found_file	lda	#0			;Select	dir_record_0.
		jsr	move_dir_record		;Move record.
		lda	extended_flag		;Did we	find an	associated file?
		beq	found			;Nope.
		lda	#type_extended		;Yes, set extended type.
		sta	storage_type
*
* Exit with carry clear...
*
found		clc				;Indicate no error.
		rts

		ENDP
		eject
******************************************************************************
*
*	 Name:	find_directory
*
* Description:	Searches path table for	correct	directory and returns block
*		# of directory.	 Sets storage_type to indicate whether caller
*		is looking for a file or a directory.
*
*     Created:	Oct 22,	1987
*    Modified:	Mar 10, 1989
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		path_ptr		;pointer to path name
*		name_count		;# of names in pathname.
*		name_offsets		;offsets to start of names.
*
*      Output:	A = high word of block #, or error code	if error.
*		X = low	word of	block #.
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = not found
*			   0 = found
*		B = K
*
*		storage_type		;1=file, D=directory, F=volume directory
*		current_name		;points	to file	name offset if file.
*
*	 Uses:	All registers
*		my_vcr
*		current_name
*		string_buffer
*		temp_offsets
*		temp0
*		record_number
*		transform_in_s		(sub)
*		get_name		(sub)
*		search_path_tbl		(sub)
*
******************************************************************************

find_directory	proc
		with	data

*
* Start	by setting up to point to volume name in case there is only a volume
* name,	and set	record_number to 1 (always the root directory).	 Init storage
* type to volume directory...
*
		lda	#type_vol_dir		;Init storage type to volume directory.
		sta	storage_type

		stz	current_name		;Point to volume name.
		lda	#0			;Init last_offset to record 1.
		ldx	#1			;Set record_number = 1.
*
* Main loop.
* Point	to next	name.  Have we done them all?
*
walk_path	stx	current_record		;Save current record number.
		sta	last_offset		;Save last offset.

		inc	current_name		;Bump current name.
		ldy	current_name		;Get it.
		cpy	name_count		;Done all?
		bcs	dir_found		;Yes, so we've got it.
*
* Nope,	set storage_type to directory and search the path table	for name.
* Did we find it?
*
		lda	#type_directory		;Set storage type to directory.
		sta	storage_type
		jsr	get_name		;Put the name in string_buffer.
		jsr	transform_in_s		;Transform name	if needed.
		ldx	#0			;Get starting record #.

try_again	jsr	search_path_tbl		;Go look for it. Found?
		bcs	name_not_found		;Nope.
*
* Yes, loop if parent record matches the current record...
*
		cpy	current_record		;Match?
		beq	walk_path		;Yes, so loop.
*
* Doesn't match.  Is there another one in the path table past the one
* we just found? (record # is in X from	last search)
*
		bra	try_again		;Go look again.
*
* Name not found.  Are we looking at the last name in the pathname?
*
name_not_found	ldy	current_name		;Get current.
		iny				;Bump it one.
		cpy	name_count		;Was it	the last one?
		beq	last_one		;Yes.
*
* Nope,	so exit	with path not found error...
*
		lda	#path_not_found		;Get error code.
		sec				;Set carry.
		rts				;Exit.
*
* Yes, we are, so assume it is a file name.  Set storage_type to file...
*
last_one	lda	#type_file		;Set storage type to file.
		sta	storage_type
*
* We've got it.  If this directory has an XAR on it, exit with a dir_error,
* else exit with block # in A and X and carry clear...
*
dir_found	clc				;Point to XAR length.
		lda	last_offset
		adc	pt_xar_len
		tay
		lda	[path_table],y		;Get length.
		and	#$00ff			;Make 1	byte. Zero?
		beq	get_location		;Yes, so ok.
		lda	#dir_error		;No, get error code.
		sec				;Indicate error.
		rts				;Exit.

get_location	clc				;Calc offset to	location of extent.
		lda	last_offset
		adc	pt_loc_extent
		tay
		lda	[path_table],y		;Get low word of directory location.
		tax				;Put in X.
		iny				;Bump offset.
		iny
		lda	[path_table],y		;Get high word of location in A.
		clc				;Indicate found.
		rts				;Exit.

		ENDP
		eject
******************************************************************************
*
*	 Name:	search_path_tbl
*
* Description:	Searches pathtable for name in string_buffer, starting one
*		entry past the record #	passed in X.
*
*     Created:	Oct 22,	1987
*    Modified:	May 31,	1988
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = starting record #. Set to 0	for full search.
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		string_buffer		;name to match.
*		path_table		;pointer to pathtable.
*		path_table_size		;size of pathtable.
*
*      Output:	A = entry_offset.
*		X = record number.
*		Y = parent record number.
*		P = nvmxdizc
*		    ..000..1 = not found
*			   0 = found
*		B = K
*
*	 Uses:	All registers
*		string_buffer
*		path_table
*		entry_offset
*		length
*		record_number
*		temp1
*
******************************************************************************

search_path_tbl	proc
		with	data

*
* Save start_record and	set record_number, length, and entry offset
* for first entry (the root directory),	which we always	want to	skip
* because there	is no name there...
*
		stx	start_record		;Save start record.

		lda	#1			;Init record # and length to 1.
		sta	record_number
		sta	length
		ldy	#0			;Init offset.
		sty	entry_offset		;Save it.
*
* Main loop.
* Bump offset to next entry and	bump record #...
*
		longa	on			;Make sure in 16 bit mode.
next_entry	rep	#$20

		clc				;Point to length byte.
		lda	length			;Get length.
		bit	#1			;Is it odd?
		beq	its_even		;Nope.
		inc	a			;Yes, so bump length by	1.
its_even	adc	#pt_entry_len		;Add length to entry offset.
		adc	entry_offset		;Add it	to current pointer.
		tay				;Put back in y.
		sty	entry_offset		;Save offset to	start of entry.
		inc	record_number		;Bump record number.
*
* Have we reached the end of the table?
*
		cpy	path_table_size		;Reached end?
		bcs	exit			;Yes, exit with	carry set.
*
* No, does the name match? (Note: if branch above changes must clc
* before add).
*
		tya				;Point Y at length byte.
		adc	pt_len_di
		tay

		adc	pt_di_offset		;Point X at directory identifier.
		tax

		longa	off			;Set 8 bit A.
		sep	#$20

		lda	[path_table],y		;Get length.
		sta	length			;Save it.
		cmp	string_buffer		;Match our length?
		bne	next_entry		;Nope, so next entry.
		txy				;Yes, point to directory identifier.

		ldx	#0			;Init offset to	string_buffer.
check_loop	lda	string_buffer+1,x	;Get byte.
		cmp	[path_table],y		;Match?
		bne	next_entry		;Nope, so next entry.
		iny				;Bump offsets.
		inx
		cpx	length			;Done all?
		bne	check_loop		;No, so	continue.
*
* Yes, are we past the starting	record #?
*
		longa	on			;Restore 16 bit	A.
		rep	#$20

		lda	start_record		;Get start record number.
		cmp	record_number		;Less than current?
		bcs	next_entry		;Nope, so continue.
*
* Yes, so get offset, record number and	parent record, and exit	with
* carry	clear...
*
		clc				;Point to pt_parent_dir.
		lda	#pt_parent_dir
		adc	entry_offset
		tay
		lda	[path_table],y		;Get parent record #.
		tay				;Put in	Y.
		lda	entry_offset		;Get offset in A.
		ldx	record_number		;Get record number in X.
		clc				;Indicate no errors.
exit		rts				;Exit.

		ENDP
		eject
******************************************************************************
*
*	 Name:	move_dir_record
*
* Description:	Copies directory record	to dir_record 0	or 1.
*
*	 NOTE:	Uses self-modifying code!
*
*     Created:	Oct 22,	1987
*    Modified:	Oct 29,	1987
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = destination: 0 = dir_record_0, 1 = dir_record_1
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		record_offset		;offset	to start of record.
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*		dir_record_0		;holds record 0.
*		dir_record_1		;holds record 1.
*
*	 Uses:	All registers
*		dir_record_0
*		dir_record_1
*		length
*		output_string
*
******************************************************************************

move_dir_record	proc
		with	data

*
* Set destination address...
*
		ldx	#dir_record_0		;Get pointer to	record 0.
		tay				;Move to 0?
		beq	set_address		;Yes.
		ldx	#dir_record_1		;Nope, get pointer to record 1.
set_address	stx	self_mod+1		;Set pointer.
*
* Copy record and exit...
*
		ldy	record_offset		;Get offset to record.
		lda	[io_buffer],y		;Get length.
		and	#$00ff			;Make 1	byte.
		sta	length			;Save it.

		ldx	#0			;Init offset to	buffer.
copy_loop	lda	[io_buffer],y		;Get byte.
self_mod	sta	$ffff,x			;Put in	record.
		iny				;Bump offsets.
		inx
		cpx	length			;Done all?
		bne	copy_loop		;No, so	loop.
		rts				;Yes, so exit.

		ENDP
		eject
******************************************************************************
*
*	 Name:	clear_dir_recs
*
* Description:	Clears both dir_record_0 and dir_record_1.
*
*     Created:	Nov 9, 1987
*    Modified:	Nov 9, 1987
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*	 Uses:	All registers
*		dir_record_0
*		dir_record_1
*
******************************************************************************

clear_dir_recs	proc
		with	data

*
* Clear	out dir_record_0 and dir_record_1 and exit...
*
		ldx	#max_rec_len-2		;Point to end of record.
clear_loop	stz	dir_record_0,x		;Clear word.
		stz	dir_record_1,x		;Clear word.
		dex				;Done all?
		dex
		bpl	clear_loop		;No, so	loop.
		rts				;Yes, so exit.

		ENDP
		eject
******************************************************************************
*
*	 Name:	search_dir
*
* Description:	Searches directory in io_buffer	for record with	a file name
*		that matches the name in file_name.
*
*     Created:	Oct 23,	1987
*    Modified:	Jun 6, 1989
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = 1 if looking for an	associated file, 0 if not
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		file_name		;file name to match.
*		io_buffer		;points	to directory.
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*		record_offset		;offset	to record.
*		extended_flag		;1 if found a matching associated file.
*		dir_record_1		;holds associated file record if
*					;present and we	were not looking for
*					;an associated file.
*
*	 Uses:	All registers
*		record_offset
*		length
*		temp0
*
******************************************************************************

search_dir	proc
		with	data

*
* Save file_type, init record offset and clear extended_flag ...
*
		sta	file_type		;Save file type.
		ldy	#0			;Init record offset.
		sty	extended_flag		;Clear extended_flag .
*
* Have we done all records?
*
search_loop	sty	record_offset		;Save offset.
		cpy	#sector_size		;Done all?
		bcs	not_found		;Yes, so not found.
		lda	[io_buffer],y		;No, get length	of record.
		and	#$00ff			;We only want 1	byte.  Zero?
		beq	not_found		;Yes, so not found.
		sta	length			;No, save it.
*
* No, does the name match?
*
		clc				;Point to dir_len_fi.
		tya
		adc	#dir_len_fi
		tay

		longa	off			;Set 8 bit A.
		sep	#$20

		lda	[io_buffer],y		;Get length.
		cmp	file_name		;Match length?
		bne	next_record		;Nope.

		iny				;Yes, point to file identifier.

		ldx	#0			;Init offset to	file_name.
check_loop	lda	file_name+2,x		;Get byte.
		cmp	[io_buffer],y		;Match?
		bne	next_record		;Nope.
		iny				;Yes, bump offsets.
		inx
		cpx	file_name		;Done all?
		bne	check_loop		;No, so	continue.
*
* Yes, is this a file?
*
		longa	on			;Back to 16 bit A.
		rep	#$20
		
		clc				;Point to dir_file_flags.
		lda	dir_file_flags
		adc	record_offset
		tay
		lda	[io_buffer],y		;Get flags byte.
		and	#dir_mask		;Is this a file?
		bne	next_record		;Nope, so next record.
		
		longa	off			;Back to 8 bit A.
		sep	#$20
*
* Yes, does associated file bit	match the file_type flag?
*
		lda	[io_buffer],y		;Get flags byte.
		and	#assoc_mask		;Isolate associated file bit.
		lsr	a			;Shift to bit 0.
		lsr	a
		cmp	file_type		;Is it what we're looking for?
		beq	found			;Yes, so exit.
*
* Nope.	 If this is an associated file then set	extended_flag and copy
* directory record to dir_record_1...
*
		cmp	#1			;Is it an associated file?
		bne	next_record		;Nope.
		sta	extended_flag		;Yes, so set flag.

		ldx	#0			;Init offset to	buffer.
		ldy	record_offset		;Get offset to record.
copy_loop	lda	[io_buffer],y		;Get byte.
		sta	dir_record_1,x		;Put in	record.
		iny				;Bump offsets.
		inx
		cpx	length			;Done all?
		bne	copy_loop		;No, so	loop.
*
* Skip to the next record...
*
		longa	on			;Make sure 16 bit mode.
next_record	rep	#$20

		clc				;Add length to offset.
		lda	length
		adc	record_offset
		tay
		bra	search_loop		;And loop.
*
* Yes, so exit with carry clear...
*
		longa	on			;Make sure 16 bit mode.
found		rep	#$20

		clc				;Indicate success.
		rts				;Exit.
*
* It's not here.  Exit with file not found error...
*
		longa	on			;Make sure 16 bit mode.
not_found	rep	#$20

		lda	#file_not_found		;Get error code.
		sec				;Indicate error.
		rts				;Exit.

		ENDP
		eject
******************************************************************************
*
*	 Name:	build_fcr
*
* Description:	Create a new FCR.  Uses	the last name in the pathname as the
*		FCR name, or, if there is only a device	#, will	use the	volume
*		name found by id_disk.	Puts first block of file into the
*		FCR;  if the file is less than 1 block long, the FCR size is
*		allocated accordingly.
*
*     Created:	Oct 29,	1987
*    Modified:	Feb 17, 1989
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		storage_type		;1=file, 5=extended file, D=directory,
*					 or F=volume directory.
*		name_count		;# of names in path.
*		name_offsets		;offsets to start of names in path.
*		dir_record_0		;holds directory record.
*		dir_record_1		;holds associated dir record (if any).
*
*      Output:	A = error code if error.
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*		my_fcr			;Points	to fcr.
*		open_buf_ptr		;Points	to open	buffer in fcr.
*
*	 Uses:	All registers
*		my_fcr
*		length
*		temp0
*		dir_length
*
******************************************************************************

build_fcr	proc
		with	data

*
* If the file is a directory, set log_blk_size to 2k, else set it using	the
* value	in the vcr...
*
		lda	#sector_size		;Init log_blk_size to 2k.
		sta	log_blk_size
		lda	storage_type		;Get storage type.
		cmp	#type_directory		;Is this a directory?
		bcs	get_length		;Yep.

		ldy	#vcr_block_size		;Nope, get block size from vcr.
		lda	[my_vcr],y
		sta	log_blk_size		;Set new logical block size.
*
* Ok, now set length = to the smaller of eof or	log_blk_size. Set
* short_file_flag if eof < 1 block and make sure length	is even...
*
get_length	lda	log_blk_size		;Get log_blk_size.
		sta	length			;Set length
		stz	short_file_flag		;Clear flag.

		lda	dir_record_0+dir_data_length+2 ;Get high eof. Zero?
		bne	calc_size		;Nope, use log_blk_size.
		lda	dir_record_0+dir_data_length ;Get low eof.  Zero?
		cmp	log_blk_size		;< log_blk_size?
		bcs	calc_size		;Nope.

		inc	short_file_flag		;Yes, set flag.
		bit	#1			;Is eof	odd?
		beq	set_length		;Nope.
		inc	a			;Yes, so make it even.
set_length	sta	length			;Save size.
*
* Calculate size of fcr	and allocate it...
*
calc_size	clc
		lda	#fcr_dir_record		;Get offset to dir_record.
		adc	dir_record_0		;Add length of dir_record.
; 1/11/89	adc	dir_record_1		;Add length of assoc_record.
		and	#$00ff			;Clear high byte cuz lengths are bytes.
		adc	length			;Add size.
		bcs	mem_error		;Exit if too big.
		ldx	#gstring		;Get pointer to	volume name.
		ldy	#^gstring
		jsl	alloc_fcr		;Allocate it.
		bcc	build_it		;Continue if no	error.
*
* We couldn't allocate it, exit with out of memory error...
*
mem_error	lda	#out_of_mem		;Get error code.
		rts				;Exit.
*
* Get pointer to fcr and dir_record in fcr...
*
build_it	jsl	deref			;Dereference vp.
		stx	my_fcr			;Save pointer.
		sty	my_fcr+2

		clc				;Make a	pointer	to dir_record.
		txa
		adc	#fcr_dir_record
		sta	fcr_dir_ptr
		tya
		adc	#0
		sta	fcr_dir_ptr+2
*
* Copy directory record	into fcr...
*
		lda	dir_record_0		;Get length.
		and	#$00ff			;Make one byte.
		sta	dir_length		;Save it for later.
		tay				;Use as	offset.

		longa	off			;Set 8 bit A.
		sep	#$20

copy_loop	dey				;Done all?
		bmi	continue		;Yes.
		lda	dir_record_0,y		;No, get byte.
		sta	[fcr_dir_ptr],y		;Put in	fcr.
		bra	copy_loop		;Loop.

		longa	on			;Set 16	bit A.
continue	rep	#$20
*
* Get reference	number...
*
		ldy	#fcr_ref_num		;Get offset to reference num.
		lda	[my_fcr],y		;Get #.
		sta	ref_num			;Save it.
*
* Set access to	read only and indicate that the file is never modified by
* setting the high bit, and set bit 14 if this is a resource fork...
*
		ldy	#fcr_access		;Get offset to access.
		lda	#read_access+$8000	;Set to	read only.
		ldx	resource_num		;Resource fork?.
		beq	save_access		;Nope.
		ora	#%0100000000000000	;Yes, so set bit 14.
save_access	sta	[my_fcr],y		;Save it.
*
* Set position,	open_mark, entry_num, error_flag and type_flag to zero and
* start_record to one...
*
		lda	#0000			;Get zero.
		ldy	#fcr_position		;Get offset to low word	of position.
		sta	[my_fcr],y		;Clear it.
		ldy	#fcr_open_mark		;Get offset to mark.
		sta	[my_fcr],y		;Clear it.
		ldy	#fcr_position+2		;Get offset to low word	of position.
		sta	[my_fcr],y		;Clear it.
		ldy	#fcr_entry_num		;Get offset to entry_num.
		sta	[my_fcr],y		;Clear it.
		ldy	#fcr_error_flag		;Get offset to error_flag.
		sta	[my_fcr],y		;Clear it.
		ldy	#fcr_type_flag		;Get offset to type_flag.
		sta	[my_fcr],y		;Clear it.
		inc	a			;Get one.
		ldy	#fcr_start_rec		;Get offset to start_record.
		sta	[my_fcr],y		;Save it.
*
* Fill in fcr_storage...
*
		ldy	#fcr_storage		;Get offset to storage.
		lda	storage_type		;Get type.
		sta	[my_fcr],y		;Put in	fcr.
*
* Fill in fcr_eof...
*
		ldy	#fcr_eof		;Get offset to low word.
		lda	eof			;Get low word.
		sta	[my_fcr],y		;Put in	fcr.

		ldy	#fcr_eof+2		;Get offset to high word.
		lda	eof+2			;Get high word.
		sta	[my_fcr],y		;Put in	fcr.
*
* Fill in fcr_blks...
*
		ldy	#fcr_blks		;Get offset to low word.
		lda	blocks_used		;Get low word.
		sta	[my_fcr],y		;Put in	fcr.

		ldy	#fcr_blks+2		;Get offset to high word.
		lda	blocks_used+2		;Get high word.
		sta	[my_fcr],y		;Put in	fcr.
*
* Set fcr_skip_count = interleave_size.	 If interleave_size = 0	then set
* fcr_skip_count to $ffff so that the calculation for direct reading will
* be happy...
*
		ldy	#fcr_skip_count		;Get offset to word.
		lda	dir_record_0+dir_int_size ;Get interleave_size.
		and	#$00ff			;Clear high byte. Zero?
		bne	save_skip		;Nope.
		dec	a			;Yes, so make $ffff.
save_skip	sta	[my_fcr],y		;Put in	fcr.
*
* Calculate start block	by adding the Extended Attribute Record	(XAR) length
* to the Location of Extent, and put in	fcr_open_block.	Set drvr_blk_num...
*
do_open		clc				;Prepare for add.
		ldy	#fcr_open_block		;Get offset to field.
		lda	dir_record_0+1		;Get XAR length.
		and	#$00ff			;Make sure only	1 byte.
		adc	dir_record_0+dir_loc_extent ;Add low word of start block.
		sta	[my_fcr],y		;Put in	fcr.
		sta	drvr_blk_num		;Save it.

		ldy	#fcr_open_block+2	;Get offset to field.
		lda	dir_record_0+dir_loc_extent+2 ;Get high	start block.
		adc	#0			;Add in	carry.
		sta	[my_fcr],y		;Put in	fcr.
		sta	drvr_blk_num+2		;Save it.
*
* Make pointer to open buffer in fcr...
*
		clc				;Add dir_length	to fcr_dir_ptr.
		lda	dir_length
		adc	fcr_dir_ptr
		sta	open_buf_ptr
		tax
		lda	#0
		adc	fcr_dir_ptr+2
		sta	open_buf_ptr+2
*
* If short_file_flag is	clear, set drvr_buf_ptr	= open_buf_ptr.	Otherwise,
* set it to io_buffer...
*
		ldy	short_file_flag		;Short file?
		beq	set_buf			;No, so	use open_buf_ptr.
		ldx	io_buffer		;Yes, get pointer to io_buffer.
		lda	io_buffer+2
set_buf		stx	drvr_buf_ptr		;Set low word of drvr_buf_ptr.
		sta	drvr_buf_ptr+2		;Set high word of drvr_buf_ptr.
*
* Read one block. Error?
*
		lda	log_blk_size		;Get log_blk_size.
		sta	drvr_req_cnt		;Set request count.
		stz	drvr_req_cnt+2

		jsr	common_read		;Do read.  Error?
		bcc	keep_going		;Nope, so continue.
*
* Yes, so release fcr and exit...
*
		pha				;Save error code.
		lda	[my_fcr]		;Get reference #.
		jsl	release_fcr		;Release fcr.
		pla				;Get error code.
		sec				;Indicate error.
		rts				;Exit.
*
* No, if short_file_flag is set	then we	must copy the data from	the io_buffer
* into our fcr...
*
keep_going	lda	short_file_flag		;Short file?
		beq	finish_up		;No, so	finish up.

		ldy	length			;Point to end.
data_loop	dey				;Done all?
		dey
		bmi	finish_up		;Yes, so finish	up.
		lda	[io_buffer],y		;No, get word.
		sta	[open_buf_ptr],y	;Put in	fcr.
		bra	data_loop		;Loop.
*
* Update vcr_open_cnt, fcr_fst_id, and fcr_vol_id, and exit with
* carry	clear...
*
finish_up	ldy	#vcr_open_cnt		;Get offset to field.
		lda	[my_vcr],y		;Get count.
		inc	a			;Bump it.
		sta	[my_vcr],y		;Save it.

		ldy	#fcr_fst_id		;Get offset to field.
		lda	#hs_id			;Get fst id.
		sta	[my_fcr],y		;Put in	fcr.

		ldy	#fcr_vol_id		;Get offset to field.
		lda	[my_vcr]		;Get vol ID.
		sta	[my_fcr],y		;Put in	fcr.

		clc				;Indicate success.
		rts				;Exit.

		ENDP
		eject
******************************************************************************
*
*	 Name:	get_dir_info
*
* Description:	Get information	out of dir_rec_0 and dir_rec_1 and put it in
*		the output parameter storage area...
*
*     Created:	Oct 30,	1987
*    Modified:	July 14, 1988
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		dir_record_0		;holds directory record.
*		dir_record_1		;holds associated dir record (if any).
*		my_vcr			;points	to current vcr.
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		eof			;eof from dir_record_0.
*		blocks_used		;blocks_used from dir_record_0.
*		resource_eof		;eof from dir_record_1.
*		resource_blocks		;blocks_used from dir_record_1.
*
*	 Uses:	All registers
*
******************************************************************************

get_dir_info	proc
		with	data

*
* Save log_blk_size and	set it from vcr...
*
		lda	log_blk_size		;Save current size.
		pha
		ldy	#vcr_block_size		;Get size from vcr.
		lda	[my_vcr],y
		sta	log_blk_size		;Set new size.
*
* Fill in eof from dir_record_0...
*
		ldy	#dir_data_length	;Get offset to low word	of data	len.
		lda	dir_record_0,y		;Get low word.
		sta	eof			;Put in	eof.
		tax				;Save for division.

		ldy	#dir_data_length+2	;Get offset to high word of data len.
		lda	dir_record_0,y		;Get high word.
		sta	eof+2			;Put in	eof.
*
* Fill in blocks_used from dir_record_0...
*
		jsr	calc_blocks		;Calculate blocks used.
		stx	blocks_used		;Save blocks_used.
		sta	blocks_used+2
*
* Fill in resource_eof from dir_record_1...
*
		ldy	#dir_data_length	;Get offset to low word	of data	length.
		lda	dir_record_1,y		;Get low word.
		sta	resource_eof		;Put in	resource_eof.
		tax				;Save for division.

		ldy	#dir_data_length+2	;Get offset to high word of data len.
		lda	dir_record_1,y		;Get high word.
		sta	resource_eof+2		;Put in	resource_eof.
*
* Fill in resource_blocks from dir_record_1...
*
		jsr	calc_blocks		;Calculate blocks used.
		stx	resource_blocks		;Save resource_blocks.
		sta	resource_blocks+2
*
* Restore log_blk_size and exit...
*
		pla				;Recover log_blk_size.
		sta	log_blk_size		;Restore it.
		rts				;Exit.

		ENDP
		eject
******************************************************************************
*
*	 Name:	calc_blocks
*
* Description:	Calculates blocks_used from eof.
*
*     Created:	Oct 29,	1987
*    Modified:	Oct 29,	1987
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = high word of eof
*		X = low	word of	eof
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		log_blk_size		;logical block size.
*
*      Output:	A = high word of blocks_used
*		X = low	word of	blocks_used
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*	 Uses:	All registers
*
******************************************************************************

calc_blocks	proc
		with	data

*
* Set dividend = eof.  Exit if eof is zero...
*
		stx	dividend		;Save low word of eof.
		sta	dividend+2		;Save high word	of eof.
		ora	dividend		;Eof zero?
		beq	exit			;Yes, so exit.
*
* Set divisor =	log_blk_size and do division...
*
do_divide	lda	log_blk_size		;Set divisor = log_blk_size.
		sta	divisor
		stz	divisor+2
		jsr	long_divide		;Do division.
*
* Bump count if	remainder not zero...
*
		lda	remainder		;Remainder zero?
		ora	remainder+2
		beq	get_it			;Yes.
		inc	dividend		;No, bump count.
		bne	get_it
		inc	dividend+2
*
* Get blocks_used and exit...
*
get_it		ldx	dividend		;Get low word.
		lda	dividend+2		;Get high word.
exit		rts				;Exit.

		ENDP
		eject
******************************************************************************
*
*	 Name:	read
*
* Description:	Read from an open file.
*
*     Created:	Nov 12,	1987
*    Modified:	May 2, 1988
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		my_vcr			;points	to vcr.
*		my_fcr			;points	to fcr.
*		request_count		;maximum number	of bytes to read.
*
*      Output:	A = error code if error
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*	 Uses:	All registers
*		send_flag
*		request_count
*		newline_length
*		newline_mask
*		newline_ptr
*		newline_char
*		eof
*		position
*		interleave_size
*		interleave_skip
*		interleave_next
*		deref			(system	service)
*		move_info		(system	service)
*		setup_open_buf		(sub)
*		send_from_open		(sub)
*		read_next_block		(sub)
*		update_fcr		(sub)
*
******************************************************************************

read		proc
		with	data

*
* Set cache value using	caller's cache_priority and clear transfer count...
*
		lda	cache_priority		;Get value.
		sta	drvr_cache		;Set/clear driver flag.
		stz	transfer_count		;Clear count.
		stz	transfer_count+2
*
* Exit thru send_output	if request count is zero...
*
		lda	request_count		;Count zero?
		ora	request_count+2
		bne	continue		;Nope.
		jmp	send_output		;Yes, so exit.
*
* Check	our fcr_type_flag and exit with	invalid_access error if	this FCR
* has been accessed by get_dir_entry.  If the flag is clear, claim this	file
* for reading by setting the flag to 1...
*
continue	ldy	#fcr_type_flag		;Get offset to type_flag.
		lda	[my_fcr],y		;Get flag.  Set	already?
		bne	check_flag		;Yes.
		inc	a			;No, so	set it to 1.
		sta	[my_fcr],y
		bra	check_dir		;And continue.

check_flag	cmp	#1			;Are we	allowed	to read	this file?
		bne	bad_access		;Nope, so exit with error.
*
* If this is a directory and class is zero, exit with an invalid_access	error...
*
check_dir	ldy	#fcr_storage		;Get offset to storage_type.
		lda	[my_fcr],y		;Get type.
		cmp	#type_directory		;Is it a directory?
		bcc	setup_vol		;Nope, so we're ok.
		lda	class			;Yes, is it class zero?
		bne	setup_vol		;Nope, so we're ok.
bad_access	lda	#invalid_access		;Yes, so exit with error.
		brl	error_exit
*
* Make sure volume is online and setup some variables from the vcr...
*
setup_vol	jsr	setup_volume		;Do setup. Online?
		bcc	online			;Yes.
		rts				;Nope, so exit.
*
* Setup	and check open buffer...
*
online		jsr	setup_open_buf		;Do it.
		jsr	check_open_buf		;Make sure data	is valid.
		bcc	set_newline		;Continue if no	error.
		rts				;Else exit.
*
* Get newline mask from	the FCR	and save it.  Is newline enabled?
*
set_newline	ldy	#fcr_mask		;Get offset to mask.
		lda	[my_fcr],y		;Get mask.
		sta	newline_mask		;Save it. Enabled?
		beq	skip_newline		;Nope.
*
* Yes, so get pointer to newline list, set newline_length and newline_char...
*
		ldy	#fcr_newline		;Get offset to vp.
		lda	[my_fcr],y		;Get low word.
		tax				;Put in	X.
		iny				;Point to high word.
		iny
		lda	[my_fcr],y		;Get high word.
		tay				;Put in	Y.
		jsl	deref			;Dereference vp.
		stx	newline_ptr		;Save pointer.
		sty	newline_ptr+2

		ldy	#fcr_newline_len	;Point at length.
		lda	[my_fcr],y		;Get it.
		sta	newline_length		;Save it.

		lda	[newline_ptr]		;Get first newline character.
		sta	newline_char		;Save it.
*
* Get current position and eof...
*
skip_newline	ldy	#fcr_eof		;Point to low word of eof.
		lda	[my_fcr],y		;Get low word.
		sta	eof			;Save it.
		iny				;Point to high word.
		iny
		lda	[my_fcr],y		;Get high word.
		sta	eof+2			;Save it.

		ldy	#fcr_position		;Point to low word of position.
		lda	[my_fcr],y		;Get low word.
		sta	position		;Save it.
		tax				;Keep for compare.
		iny				;Point to high word.
		iny
		lda	[my_fcr],y		;Get high word.
		sta	position+2		;Save it.
*
* Exit with end_of_file	error if position = eof...
*
		cmp	eof+2			;Match?
		bne	set_bytes_left		;Nope.
		cpx	eof			;Maybe.
		bne	set_bytes_left		;Nope.
		lda	#end_of_file		;Yes, get error	code.
		bra	error_exit
*
* Set bytes_left = eof - position.  If bytes_left is larger than request_count
* then set bytes_left =	request_count...
*
set_bytes_left	sec				;Do it.
		lda	eof
		sbc	position
		sta	bytes_left
		tax
		lda	eof+2
		sbc	position+2
		sta	bytes_left+2

		cmp	request_count+2		;Bytes_left > request_count?
		bcc	check_size		;Nope.
		bne	set_to_request		;Yes.
		cpx	request_count		;Maybe.
		bcc	check_size		;Nope.

set_to_request	ldx	request_count		;Set bytes_left	= request_count.
		lda	request_count+2
		stx	bytes_left
		sta	bytes_left+2
*
* If bytes_left	is >= 16 Mb then set it	to 16 Mb - 1...
*
check_size	cmp	#$0100			;Too big?
		bcc	set_flag		;Nope.
		lda	#$ffff			;Yes, so squash	it.
		sta	bytes_left
		lda	#$00ff
		sta	bytes_left+2
*
* Set send_flag.  Do we	have to	watch for newline?
*
set_flag	lda	#1			;Set send_flag.
		sta	send_flag
*
* Send data from open buffer.  Did we satisfy the request?
*
read_loop	jsr	transfer_data		;Do send.  Did we satisfy the request?
		bne	all_done		;Yep.
*
* No, do we have at least one block left in request and	is newline disabled?
* (bytes_left is in X and Y)
*
		lda	newline_mask		;Newline enabled?
		bne	double_buffer		;Yes, so we must double	buffer.

		tya				;Bytes_left >= log_blk_size?
		bne	do_direct		;Yes.
		cpx	log_blk_size		;Maybe.
		bcc	double_buffer		;Nope.
*
* Yes, clear send_flag and read	as many	blocks as possible directly into
* data_buffer.	Loop if	no error...
*
do_direct	stz	send_flag		;Clear flag.
		jsr	direct_read		;Do it.	Any errors?
		bcc	read_loop		;Nope.
		bra	error			;Yep.
*
* We must double_buffer, so point io_buffer back to open_buffer	and set
* send_flag to force transfer_data to do the move_info...
*
double_buffer	lda	open_buf_ptr		;Get pointer to	open_buffer.
		ldx	open_buf_ptr+2
		sta	io_buffer		;Set io_buffer.
		stx	io_buffer+2
		lda	#1			;Set send_flag.
		sta	send_flag
*
* Read in next block.  Loop if no error...
*
		jsr	read_next_block		;Read block.
		bcc	read_loop		;No error, so loop.
*
* We got an error while	reading.  Update fcr with position information,
* send transfer_count, and exit	with carry set and error code in A...
*
error		pha				;Save error code.
		jsr	all_done		;Do update.
		pla				;Recover error code.
error_exit	sec				;Indicate error.
		rts				;Exit.
*
* Ok, we're done with the read.  Did we manage to satisfy the request with
* the direct_read call?	 If so,	we must	restore	the io_buffer pointer, set
* open_mark = log_blk_size, and	set fcr_error_flag to indicate that the	data
* in the open_buffer is	not valid...
*
all_done	lda	send_flag		;Is flag clear?
		bne	do_update		;Nope.
		lda	open_buf_ptr		;Yes, get pointer to open_buffer.
		ldx	open_buf_ptr+2
		sta	io_buffer		;Restore io_buffer pointer.
		stx	io_buffer+2
		lda	log_blk_size		;Set open_mark = log_blk_size.
		sta	open_mark
		sec				;Set fcr_error_flag.
		jsr	condition_flag
*
* Update fcr with current position information and send	output...
*
do_update	ldx	drvr_blk_num		;Get current block #.
		lda	drvr_blk_num+2
		jsr	update_fcr		;Do update.
		jsr	send_output		;Send transfer_count.
*
* If this is a directory then we must exit with	the fst_caution	error code, else
* exit with carry clear...
*
		ldy	#fcr_storage		;Get offset to storage_type.
		lda	[my_fcr],y		;Get type.
		cmp	#type_directory		;Is it a directory?
		bcc	exit			;Nope, so we're ok.
		lda	#fst_caution		;Yes, so exit with error.
exit		rts				;Exit.

		ENDP
		eject
******************************************************************************
*
*	 Name:	transfer_data
*
* Description:	Transfer data from open_buffer to data_buffer and update
*		position information.
*
*     Created:	Nov 17,	1987
*    Modified:	May 2, 1988
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		send_flag		;0 = do	update only.
*		data_buffer		;points	to caller's buffer.
*		open_buf_ptr		;points	to open_buffer.
*		eof			;end of	file.
*		newline_length		;length	of newline table.
*		newline_ptr		;pointer to newline table.
*		newline_mask		;mask for newline character.
*		newline_char		;first byte of newline table.
*		position		;current file mark.
*		open_mark		;current position within open buffer.
*		transfer_count		;current bytes transfered.
*		bytes_left		;# bytes till satisfy request.
*		log_blk_size		;current size of blocks.
*		read_size		;size used in multi-block reads.
*
*      Output:	A = status_flag: 0 = continue, 1 = satisfied request
*		X = low	word of	bytes_left
*		Y = high word of bytes_left
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		position		;new file mark.
*		open_mark		;new position within open buffer.
*		transfer_count		;new bytes transfered.
*		bytes_left		;# bytes till satisfy request.
*
*	 Uses:	All registers
*		temp0
*		temp1
*		dividend
*		length
*		position
*		open_mark
*		transfer_count
*		request_count
*		bytes_left
*
******************************************************************************

transfer_data	proc
		with	data

*
* Clear	status_flag and	high word of xfer_count...
*
		stz	status_flag		;Clear flag.
		stz	xfer_count+2		;Clear high word of count.
*
* If send_flag is clear	it means that a	block has been transfered directly
* to data_buffer.  If that has happened, we set	xfer_count = read_size,	and
* skip to update...
*
		lda	send_flag		;Has a block been transfered directly?
		bne	check_buffer		;Nope.
		lda	read_size		;Yes, so set xfer_count	= read_size.
		sta	xfer_count
		lda	read_size+2
		sta	xfer_count+2
		brl	update			;And continue at update...
*
* If open_mark = log_blk_size then there is nothing left in this block to
* transfer, so we reset	open_mark to zero and exit with	status_flag clear and
* bytes_left in	X & Y...
*
check_buffer	lda	open_mark		;Get mark.
		cmp	log_blk_size		;Do we have anything left in here?
		bne	set_source		;Yep.
		stz	open_mark		;Nope, reset open_mark.
		ldx	bytes_left		;Get bytes_left.
		ldy	bytes_left+2
		brl	exit			;Exit.
*
* Set source_ptr = open_buf_ptr	+ open_mark...
*
set_source	clc				;Do addition.
		adc	open_buf_ptr
		sta	source_ptr
		lda	#0
		adc	open_buf_ptr+2
		sta	source_ptr+2
*
* Init xfer_count to log_blk_size - open_mark...
*
		sec				;Prepare for subtraction.
		lda	log_blk_size		;Get log_blk_size.
		sbc	open_mark		;Subtract open_mark.
		sta	xfer_count		;Save xfer_count.
*
* If bytes_left	<= xfer_count then set status_flag to 1	and xfer_count to
* bytes_left...
*
		ldx	bytes_left+2		;Is bytes_left <= xfer_count?
		bne	check_newline		;Nope.
		cmp	bytes_left		;Maybe.
		bcc	check_newline		;Nope, so use xfer_count.
		lda	bytes_left		;Yes, so set xfer_count	= bytes_left.
		sta	xfer_count
		inc	status_flag		;Set status to 1.
*
* Do we	have to	watch for newline?
*
check_newline	lda	newline_mask		;Newline enabled?
		beq	fast_xfer		;No, so	go fast.
*
* Yes, set short accumulator.  Do we have to look at more than one newline
* character?
*
		longa	off			;Set 8 bit A.
		sep	#$20

		dec	newline_length		;Point to last byte. More than 1?
		beq	medium_xfer		;Nope.
*
* Yes, so we'll slow to a crawl and check each byte against the entire
* newline table	after we transfer it...
*
		ldy	#0			;Init offset.
slow_loop	lda	[source_ptr],y		;Get byte.
		sta	[data_buffer],y		;Put byte.
		and	newline_mask		;Mask it.
		tyx				;Save offset.
		ldy	newline_length		;Point to end of newline table.
newline_loop	cmp	[newline_ptr],y		;Match byte?
		beq	hit_newline		;Yes.
		dey				;Nope, checked all in table?
		bpl	newline_loop		;No, so	loop.
		txy				;Yes, recover offset.
		iny				;Bump it.
		cpy	xfer_count		;Done all?
		bne	slow_loop		;No, so	loop.
		bra	restore_a		;Yes, so continue.
*
* We only have to look at one newline character. Do transfer...
*
medium_xfer	ldy	#0			;Init offset.
medium_loop	lda	[source_ptr],y		;Get byte.
		sta	[data_buffer],y		;Put byte.
		and	newline_mask		;Mask it.
		cmp	newline_char		;Match newline?
		beq	hit_newline_a		;Yep.
		iny				;Nope, bump offset.
		cpy	xfer_count		;Done all?
		bne	medium_loop		;Nope.
		bra	restore_a		;Yep.
*
* We hit a newline character so	set xfer_count to current offset +1, set
* set status_flag to 1,	restore	16 bit accumulator and branch to update...
*
hit_newline	txy				;Get offset.
hit_newline_a	iny				;Bump count by 1.
		sty	xfer_count		;Reset xfer_count.
		lda	#1			;Set status flag to 1.
		sta	status_flag

		longa	on			;Set 16	bit A.
restore_a	rep	#$20

		inc	newline_length		;Restore length.
		bra	update			;Continue.
*
* We don't have to check for newline so use move_info to move data into
* data_buffer...
*
fast_xfer	pei	source_ptr+2		;Push source pointer.
		pei	source_ptr
		pei	data_buffer+2		;Push destination pointer.
		pei	data_buffer
		pea	0			;Push transfer request count.
		pei	xfer_count
		pea	move_sinc_dinc
		jsl	move_info		;Do move.
*
* Ok, we've moved the data, now let's update the position information. If we
* did NOT satisfy the request, we must be finished with	this block so reset
* open_mark to zero...
*
update		lda	status_flag		;Did we	satisfy	the request?
		beq	reset_mark		;No, so	reset_mark.
*
* We satisfied the request, so set open_mark = open_mark + xfer_count. Ignore
* for now the case in which open_mark =	log_blk_size;  we handle that case at
* the beginning	of this	routine.
*
		clc				;Do addition.
		lda	xfer_count
		adc	open_mark
reset_mark	sta	open_mark
*
* Set data_buffer and io_buffer	= data_buffer +	xfer_count.  By	pointing
* io_buffer at data_buffer we may be able to avoid double buffering by
* reading directly into	the caller's buffer...
*
		clc				;Do it.
		lda	xfer_count
		tax
		adc	data_buffer
		sta	data_buffer
		sta	io_buffer
		lda	xfer_count+2
		tay
		adc	data_buffer+2
		sta	data_buffer+2
		sta	io_buffer+2
*
* Set transfer_count = transfer_count +	xfer_count...
*
		clc				;Do it.
		txa
		adc	transfer_count
		sta	transfer_count
		tya
		adc	transfer_count+2
		sta	transfer_count+2
*
* Set position = position + xfer_count...
*
		clc				;Do it.
		txa
		adc	position
		sta	position
		tya
		adc	position+2
		sta	position+2
*
* Set bytes_left = bytes_left -	xfer_count...
*
		sec				;Do it.
		lda	bytes_left
		sbc	xfer_count
		sta	bytes_left
		tax
		lda	bytes_left+2
		sbc	xfer_count+2
		sta	bytes_left+2
		tay
*
* Set status_flag if bytes_left	= zero...
*
		ora	bytes_left		;Bytes_left = zero?
		bne	exit			;Nope.
		inc	status_flag		;Yes, so set status_flag.
*
* Get status_flag in A and exit...
*
exit		lda	status_flag		;Get status_flag.
		rts				;Exit.

		ENDP
		eject
******************************************************************************
*
*	 Name:	setup_volume
*
* Description:	Sets up	all volume specific variables, and checks to see if
*		volume has been	switched.  Will	call mount_message if needed.
*
*	 NOTE:	There is an alternate entry point used by device_dispatch.
*
*     Created:	Nov 12,	1987
*    Modified:	Mar 28,	1988
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		my_vcr			;points	to vcr.
*
*      Output:	A = error code if error
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*	 Uses:	All registers
*		input_string
*		find_volume		(sub)
*		activate_vcr		(sub)
*		mount_message		(sub)
*
******************************************************************************

setup_volume	proc
		with	data

*
* Get device number out	of VCR and set drvr_dev_num...
*
		ldy	#vcr_dev		;Point to device #.
		lda	[my_vcr],y		;Get it.
		sta	drvr_dev_num		;Save it.
*
* Has a	disk switch occured?
*
		ldy	#vcr_status		;Point to status.
		lda	[my_vcr],y		;Get word.
		and	#vcr_swapped		;Disk switch occured?
		beq	ok_exit			;Nope.
*
* Yes, get pointer to the vcr name and move it to volume_name...
*
		export	find_our_volume
find_our_volume					;	        

		ldy	#vcr_name		;Point to low word of name vp.
		lda	[my_vcr],y		;Get low word.
		tax				;Put in	X.
		iny				;Point to high word.
		iny
		lda	[my_vcr],y		;Get high word.
		tay				;Put in	Y.
		jsl	deref			;Dereference it.
		stx	input_string		;Save pointer.
		sty	input_string+2

		lda	[input_string]		;Get length.
		and	#$00ff			;Clear high byte.
		tay				;Use as	index.
		iny				;Point to last char.

		longa	off			;Set 8 bit A.
		sep	#$20

		lda	#0			;Get zero.
		sta	volume_name+1,y		;Delimit string.

copy_loop	lda	[input_string],y	;Move byte.
		sta	volume_name,y
		dey				;Done all?
		bpl	copy_loop		;Nope, so loop.

		longa	on			;Set 16	bit A.
		rep	#$20
*
* See if we can	find it	by calling find_volume.	Found?
*
mount_loop	jsr	find_volume		;Go look. Found?
		bcc	got_volume		;Yes.
*
* No, so call mount_message.  First make volume	name a class 0 name with a
* leading slash, do call, then restore volume name.  Ok	button pressed?
*
		lda	#$2e5f			;Replace underscores with periods.
		ldx	#volume_name
		ldy	#^volume_name
		jsr	transform_name

		lda	volume_name		;Get length word.
		pha				;Save it.
		inc	a			;Make it one longer.
		ora	#$2f00			;Add a slash (name must	be <256	chars!)
		sta	volume_name		;Save it.

		pea	volume_name>>16		;Push address of volume	name string.
		pea	volume_name
		lda	#0001
		jsl	mount_message		;Do message.

		plx				;Restore volume_name.
		stx	volume_name
		pha				;Save button status.

		lda	#$5f2e			;Replace periods with underscores.
		ldx	#volume_name
		ldy	#^volume_name
		jsr	transform_name

		pla				;Ok button pressed?
		beq	mount_loop		;Yes, so loop to re-try	find_volume.
*
* User cancelled, so exit with a vol_not_found error...
*
		lda	#vol_not_found		;Get error code.
		sec				;Set carry.
		rts				;Exit.
*
* We have got the volume.  Update vcr with device number...
*
got_volume	ldy	#vcr_dev		;Point to device # in vcr.
		lda	drvr_dev_num		;Get it.
		sta	[my_vcr],y		;Put in	vcr.
*
* Activate vcr and exit	with carry clear...
*
ok_exit		jsr	activate_vcr		;Activate it.
		clc				;Indicate no error.
		rts				;Exit.

		ENDP
		eject
******************************************************************************
*
*	 Name:	direct_read
*
* Description:	Reads as many blocks in	one drvr_read call as possible for
*		this file directly into	the caller's buffer.
*
*     Created:	Nov 30,	1987
*    Modified:	July 26, 1988
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = low	word of	bytes_left
*		Y = high word of bytes_left
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		skip_count		;# blocks till interleave gap.
*		log_blk_size		;logical block size.
*		data_buffer		;points	to caller's buffer.
*
*      Output:	A = error code if error
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*		read_size		;# bytes read.
*		io_buffer		;points	to caller's buffer.
*
*	 Uses:	All registers
*		total_blocks
*		multiplier		(a.k.a.	dividend)
*		multiplicand		(a.k.a.	divisor)
*		product			(a.k.a.	input_string & output_string)
*		remainder
*		long_divide		(sub)
*		long_multiply		(sub)
*
******************************************************************************

direct_read	proc
		with	data

*
* Set dividend = bytes_left...
*
		stx	dividend		;Set dividend =	bytes_left.
		sty	dividend+2
*
* Point	io_buffer to caller's buffer...
*
		lda	data_buffer		;Set io_buffer = data_buffer.
		sta	io_buffer
		lda	data_buffer+2
		sta	io_buffer+2
*
* Advance the block number and save it.	 This will also	adjust skip_count to
* the correct value...
*
		jsr	next_block		;Get next block	number.
		bcs	error_exit		;Error!
		stx	drvr_blk_num		;Set block number to read.
		sta	drvr_blk_num+2
*
* Can we read more than	1 block?
*
		lda	skip_count		;Get skip_count.
		dec	a			;Skip_count = 1?
		bne	do_calc			;Nope.
*
* No, so set total_blocks to 1 and read_size to	log_blk_size, then skip
* calculation...
*
		inc	a			;Init total_blocks to 1.
		sta	total_blocks
		lda	log_blk_size		;Init read_size	to log_blk_size.
		ldx	#0
		bra	do_read			;Continue.
*
* Yes, so we must do calculation.  Set total_blocks = bytes_left/log_blk_size
* (since bytes_left cannot exceed 16 Mb	- 1, and log_blk_size should never be
* smaller than 256 bytes, total_blocks cannont exceed $ffff). If total_blocks
* is greater than skip_count, set total_blocks and multiplier =	skip_count...
*
do_calc		lda	log_blk_size		;Set divisor = log_blk_size.
		sta	divisor
		stz	divisor+2
		jsr	long_divide		;Do division.
		lda	dividend		;Set total_blocks = result.
		sta	total_blocks
		cmp	skip_count		;Is it larger than skip_count?
		bcc	calc_read_size		;Nope.

		lda	skip_count		;Yes, so set total_blocks = skip_count.
		sta	total_blocks
		sta	multiplier		;Set multiplier	= skip_count.
		stz	multiplier+2
*
* And set read_size = total_blocks * log_blk_size...
*
calc_read_size	lda	log_blk_size		;Set multiplicand = log_blk_size.
		sta	multiplicand
		stz	multiplicand+2
		jsr	long_multiply		;Do multiplication.
		lda	product			;Set read_size = low lw	of product.
		ldx	product+2
*
* Save read_size, set drvr_req_cnt = read_size,	do the read and	condition the
* fcr error flag.  Exit	if we get an error...
*
do_read		sta	read_size		;Save read_size.
		stx	read_size+2
		sta	drvr_req_cnt		;Set request count.
		stx	drvr_req_cnt+2
		jsr	device_read_b		;Do read.
		jsr	condition_flag		;Condition the error flag.
		bcs	error_exit		;Error,	so exit.
*
* Now, we have to adjust drvr_blk_num and skip_count to	account	for the	number
* of blocks we just read, and exit with	carry clear...
*
		dec	total_blocks		;First,	zero adjust total_blocks.

		clc				;Add total_blocks to drvr_blk_num.
		lda	total_blocks
		adc	drvr_blk_num
		sta	drvr_blk_num
		lda	#0
		adc	drvr_blk_num+2
		sta	drvr_blk_num+2

		sec				;Subtract total_blocks from skip_count.
		lda	skip_count
		sbc	total_blocks
		sta	skip_count
		clc				;Indicate success.
error_exit	rts				;Exit.

		ENDP
		eject
******************************************************************************
*
*	 Name:	sector_read
*
* Description:	Reads one sector into io_buffer.
*
*		NOTE: this call	should only be used by id_disk!!  Sectors are
*		      only used	to find	the Standard File Volume Descriptor.
*
*     Created:	Oct 21,	1987
*    Modified:	Oct 21,	1987
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = HIGH word of block #.
*		X = low	word of	block #.
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		drvr_dev_num		;device	number to access.
*
*      Output:	A = error code if carry	set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*		log_blk_size		;set to	2k.
*		real_log_size		;set to	2k.
*
*	 Exit:	rts
*
*	 Uses:	All registers
*		device_read		(sub)
*
******************************************************************************

sector_read	proc
		with	data

*
* Set to read 2k bytes and continue through device_read...
*
		ldy	#sector_size		;Set to	read 2k.
		sty	log_blk_size		;Set log_blk_size to 2k.
		sty	real_log_size		;Set real_log_size  to 2k.
		jmp	device_read		;Do read and exit...

		ENDP
		eject
******************************************************************************
*
*	 Name:	block_read
*
* Description:	Reads one block	of the current log_blk_size into io_buffer.
*
*     Created:	Oct 21,	1987
*    Modified:	Oct 21,	1987
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = HIGH word of block #.
*		X = low	word of	block #.
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		drvr_dev_num		;device	number to access.
*
*      Output:	A = error code if carry	set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*	 Exit:	rts
*
*	 Uses:	All registers
*		device_read		(sub)
*
******************************************************************************

block_read	proc
		with	data

*
* Set to read log_blk_size bytes and continue on through device_read...
*
		ldy	log_blk_size		;Get log_blk_size.
		jmp	device_read		;Do read.

		ENDP
		eject
******************************************************************************
*
*	 Name:	device_read
*
* Description:	Sets common parameters and does	read.  Handles logical block
*		sizes 512, 1024	and 2048.
*
*		NOTE: There are	two additional entry points in this routine.
*
*     Created:	Oct 7, 1987
*    Modified:	Mar 28,	1988
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = HIGH word of block #.
*		X = low	word of	block #.
*		Y = request count.  Must be multiple of	trans_blk_size!
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		drvr_dev_num		;device	number to read from
*		real_log_size		;real logical block size
*					;(usually = log_blk_size)
*
*      Output:	A = error code if carry	set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*	 Exit:	rts
*
*	 Uses:	All registers
*		Device Dispatcher
*
******************************************************************************

device_read	proc
		with	data

*
* Set driver block #...
*
		stx	drvr_blk_num		;Set low word.
		sta	drvr_blk_num+2		;Set high word.
*
* Set request count...
*
		sty	drvr_req_cnt		;Set it.
		stz	drvr_req_cnt+2
*
* Set to read into io_buffer...
*
		export	device_read_b
device_read_b					;	        

		lda	io_buffer		;Get low word of pointer.
		sta	drvr_buf_ptr		;Set low word of pointer.
		lda	io_buffer+2		;Get high word of pointer.
		sta	drvr_buf_ptr+2		;Set high word of pointer.
*
* Setup	common driver parameters...
*
		export	common_read
common_read					;	        

		lda	#drvr_read		;Set read command.
		sta	drvr_call_num

		lda	#hs_id			;Get High Sierra id.
		sta	drvr_fst_num		;Set it.

		lda	#phys_blk_size		;Set block size.
		sta	drvr_blk_size
*
* If real_log_size  is not equal to phys_blk_size (512)	then branch to
* translate_blk, else do call and exit...
*
		lda	real_log_size		;Get real logical block	size.
		cmp	#phys_blk_size		;Is it same as physical	size?
		bne	translate_blk		;Nope.
		jmp	device_dispatch		;Yep, exit thru	device_dispatch.
*
* We've got a non 512 byte block size.  First save the current block #...
*
translate_blk	pei	drvr_blk_num		;Save current block #.
		pei	drvr_blk_num+2
*
* Multiply the block # by 2.  Is real_log_size	= 1024?	 If so then branch to
* read_it, else	must be	2048 so	multiply it by 2 again then do read...
*
		asl	drvr_blk_num		;Multiply block	number by 2.
		rol	drvr_blk_num+2

		cmp	#1024			;real_log_size	= 1024?
		beq	read_it			;Yes.

		asl	drvr_blk_num		;Multiply block	number by 2.
		rol	drvr_blk_num+2

read_it		jsr	device_dispatch		;Do call.
*
* Ok, we've done the read, now let's restore the block number and exit...
*
exit		plx				;Restore block number.
		stx	drvr_blk_num+2
		plx
		stx	drvr_blk_num

		rts				;Exit.

		ENDP
		eject
******************************************************************************
*
*	 Name:	device_dispatch
*
* Description:	Calls device dispatcher	and checks for disk switched or	offline
*		error.	If found and id_disk_flag is clear and my_vcr is set,
*		will save current state, do a find_our_volume call, restore
*		state, and retry call.
*
*		This routine should only be called by device_read!!
*
*	 NOTE:	The id_disk_flag is used to ensure that	this routine can call
*		itself safely thru find_our_volume -> find_volume -> id_disk.
*
*
*     Created:	Mar 28,	1988
*    Modified:	8/8/90
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		id_disk_flag		;1 if id_disk routine called, else 0.
*		my_vcr			;clear if not in use.
*		drvr_dev_num		;device	number to access.
*		drvr_call_num		;call number.
*		drvr_buf_ptr		;buffer	pointer.
*		drvr_req_cnt		;request count (if read).
*		drvr_blk_num		;block number (if read).
*		drvr_blk_size		;block size.
*		drvr_fst_num		;FST id	number.
*
*      Output:	A = error code if carry	set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*	 Exit:	rts
*
*	 Uses:	All registers
*		find_our_volume		(sub)
*		Device Dispatcher	(sys service)
*
*
* revision history
*
* 08/08/90 CAF	now will re_try on a disk switched error always.  It wasn't
*		happening before during a volume call because no vcr was setup.
*
* 08/08/90 MSD.	Changed to retry the device access if the error was
*		drvr_disk_sw and id_disk_flag is set.  This is so
*		drvr_disk_sw will not be returned from the Volume call,
*		but will be returned during other calls (so that the FST
*		can find out where the volume has moved to).
*		Thanks to Cheryl for pointing this out!!
*
******************************************************************************

device_dispatch	proc
		with	data
;
; Cheryl says: Cary and Mark goofed.  If we came from the id_disk routine
; and we get a disk switched error, then we can retry.  Otherwise, the retry
; might access the wrong media (when we really need to go find out where it
; is after the disk switch).
;
*
* Call device dispatcher.  Exit	if no error, or	if id_disk_flag	is set,	or if
* my_vcr is clear, or if error not disk	switched or offline...
*
re_try		jsl	dev_dispatcher		;Do call.
		bcc	exit			;No error.
		pha				;Save error.
		cmp	#drvr_disk_sw		;Disk switched error?
		bne	@no_disk_sw		; not disk_sw, so try other errors
		lda	id_disk_flag		; trying to id a disk?
		beq	check_flag		; no, so do usual stuff
		pla				; clean up stack
		bra	re_try			; and try it again
@no_disk_sw
		cmp	#drvr_off_line		;Nope, offline?
		bne	error			;Nope.
		lda	id_disk_flag		;Yes, is id_disk_flag set?
		bne	error			;Yep, so exit with error.
						; in middle of call, so fix up VCR
check_flag	lda	my_vcr			;Nope, is my_vcr clear?
		ora	my_vcr+2
		bne	save_state		;Nope, so let's see if we can recover.

error		pla				;Get error code.
		sec				;Make sure carry set.
exit		rts				;Exit.
*
* We have a disk switched condition, so	let's try to recover. Save all of the
* data that will be modified by	calling	find_our_volume...
*
save_state	pla				;Fix stack.

		ldx	#drvr_dp_len-2		;Save driver direct page space.
drvr_loop	lda	drvr_call_num,x
		sta	storage_drvr,x
		dex
		dex
		bpl	drvr_loop

		ldx	#fst_dp_len-2		;Save fst direct page space.
fst_loop	lda	input_string,x
		sta	storage_fst,x
		dex
		dex
		bpl	fst_loop

		ldx	#misc_len-2		;Save miscellaneous space.
misc_loop	lda	gstring,x
		sta	storage_misc,x
		dex
		dex
		bpl	misc_loop
*
* Call find_our_volume and save	error code and status...
*
		jsr	find_our_volume		;Go look for it.
		php				;Save status.
		pha				;Save error code.
*
* Restore the state...
*
		ldx	#drvr_dp_len-2		;Restore driver	direct page space.
drvr_loop_r	lda	storage_drvr,x
		sta	drvr_call_num,x
		dex
		dex
		bpl	drvr_loop_r

		ldx	#fst_dp_len-2		;Restore fst direct page space.
fst_loop_r	lda	storage_fst,x
		sta	input_string,x
		dex
		dex
		bpl	fst_loop_r

		ldx	#misc_len-2		;Restore miscellaneous space.
misc_loop_r	lda	storage_misc,x
		sta	gstring,x
		dex
		dex
		bpl	misc_loop_r
*
* Recover call status and error	code.  Re-try call if no error,	else exit...
*
		pla				;Recover error code.
		plp				;Recover status.
		bcs	exit			;Exit if error.
		jmp	re_try			;No error, so re-try call.

		ENDP
		eject
******************************************************************************
*
*	 Name:	read_next_block
*
* Description:	Reads next block of file or directory.	Handles	interleaved
*		files; for directories,	interleave_skip	must be	zero!  Will
*		set fcr_error_flag if error occurs during read.
*
*		Handles	differences between log_blk_size and trans_blk_size.
*
*		NOTE: the entry	point 'next_block' can be used to get the
*		      next block # without doing the read.
*
*     Created:	Nov 9, 1987
*    Modified:	Mar 29,	1988
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		log_blk_size		;logical block size.
*		real_log_size		;usually same as log_blk_size.
*		drvr_blk_num		;current directory block.
*		end_block		;last block # of file/directory.
*		interleave_size		;# contiguous blocks.
*		interleave_skip		;# blocks between contiguous.
*		skip_count		;# blocks till skip. Init to int._size!
*
*		Interleaved file (blocks):
*     ___________________________________________________________________
*    | a | a | a | a | b | b | a | a | a | a | b | b | a | a | a |a  | b >
*    |___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___<
*
*				   for file 'a':  interleave_size = 4
*						  interleave_skip = 2
*
*				   for file 'b':  interleave_size = 2
*						  interleave_skip = 4
*
*      Output:	A = error code if error.
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*	 Uses:	All registers
*		skip_read_flag
*		drvr_blk_num
*		skip_count
*		read_with_flag		(sub)
*
******************************************************************************

read_next_block	proc
		with	data

*
* Clear	skip_read_flag and continue...
*
		stz	skip_read_flag		;Clear flag.
		bra	check_trans		;Continue.
*
* Set skip_read_flag and continue...
*
		export	next_block
next_block					;	        
		lda	#$8000			;Set flag.
		sta	skip_read_flag
*
* Is log_blk_size = trans_blk_size?
*
check_trans	ldx	drvr_blk_num		;Get low word of block #.
		lda	drvr_blk_num+2		;Get high word of block	#.
		ldy	real_log_size		;Get real logical size.
		cpy	log_blk_size		;Same as current logical size?
		beq	bump_block		;Yep.
*
* Nope,	so we must be dealing with a directory.	 Add 4 to block	number if
* real logical = 512, else add 2 (logical must be 1024).  We can skip the
* interleave stuff 'cuz directories cannot be interleaved...
*
		lda	#4			;Init offset to	4.
		cpy	#512			;Logical = 512?
		beq	do_add			;Yep.
		lda	#2			;Nope, so set offset to	2 (must	be 1024)
do_add		clc				;Add offset to block number.
		adc	drvr_blk_num
		tax
		lda	#0
		adc	drvr_blk_num+2
		bra	check_end		;Continue.
*
* Yes, so bump block #...
*
bump_block	inx				;Bump block #. Rollover?
		bne	check_int		;Nope.
		inc	a			;Yes, bump high	word.
*
* Check	for interleave gap and add in skip if needed...
*
check_int	dec	skip_count		;Time to skip?
		bne	check_end		;Nope.

		tay				;Yes, save A.
		lda	interleave_size		;Interleave_size zero?
		bne	set_skip		;Nope.
		dec	a			;Yes, so make $ffff.
set_skip	sta	skip_count		;Reset skip_count.
		clc				;Add interleave_skip to	block #.
		txa
		adc	interleave_skip
		tax
		tya
		adc	#0
*
* Did that put us past the end block?  Exit if so...
*
check_end	cmp	end_block+2		;Are we	past end_block?
		bcc	ok			;Nope.
		bne	no_more			;Yes.
		cpx	end_block		;Maybe.
		beq	ok			;Nope.
		bcs	no_more			;Yes.
*
* Do read if skip_read_flag clear, else	exit with carry	clear...
*
ok		clc				;Clear carry in	case flag set.
		bit	skip_read_flag		;Flag set?
		bmi	exit			;Yep, so exit with carry set.
		jmp	read_with_flag		;Nope, so read block.
*
* At end, so exit with an end of directory error...
*
no_more		lda	#end_of_dir		;Get error code.
		sec				;Indicate done.
exit		rts				;Exit.

		ENDP
		eject
******************************************************************************
*
*	 Name:	read_prev_block
*
* Description:	Reads previous block of	file or	directory.  Will set
*		fcr_error_flag if error	occurs during read.
*
*		Handles	differences between log_blk_size and trans_blk_size.
*
*		NOTE:  This routine does not handle interleave!
*
*     Created:	Nov 6, 1987
*    Modified:	Mar 29,	1988
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		log_blk_size		;logical block size.
*		real_log_size		;usually same as log_blk_size.
*		drvr_blk_num		;current directory block.
*		start_block		;first block # of file/directory.
*
*      Output:	A = error code if error
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*	 Uses:	All registers
*		temp1
*		drvr_blk_num
*		read_with_flag		(sub)
*
******************************************************************************

read_prev_block	proc
		with	data

*
* Is log_blk_size = trans_blk_size?
*
		ldx	drvr_blk_num		;Get low word of block #.
		lda	drvr_blk_num+2		;Get high word of block	#.
		ldy	real_log_size		;Get real logical size.
		cpy	log_blk_size		;Same as logical size?
		beq	prev_block		;Yep.
*
* Nope,	so we must be dealing with a directory.	 Subtract 4 from block number
* if logical = 2048, else subtract 2 (logical must be 1024).  We can skip the
* interleave stuff 'cuz directories cannot be interleaved...
*
		lda	#4			;Init offset to	4.
		cpy	#2048			;Logical = 2048?
		beq	do_subtract		;Yep.
		lda	#2			;Nope, so set offset to	2.
do_subtract	sta	temp1			;Save offset.
		sec				;Subtract offset from block number.
		lda	drvr_blk_num
		sbc	temp1
		tax
		lda	drvr_blk_num+2
		sbc	#0
		bra	check_start		;Continue.
*
* Nope,	so decrement block #...
*
prev_block	dex				;Decrement it.
		cpx	#$ffff			;Did we	rollover?
		bne	check_start		;Nope.
		dec	a			;Yep, so decrement high	word.
*
* Did that put us before start_block? If not, exit thru	read_with_flag...
*
check_start	cmp	start_block+2		;Are we	before start_block?
		bcc	no_more			;Yes.
		bne	ok			;Nope.
		cpx	start_block		;Maybe.
		bcc	no_more			;Yes.
ok		jmp	read_with_flag		;No, go	read it.
*
* Yes, so exit with an end of directory	error...
*
no_more		lda	#end_of_dir		;Get error code.
		sec				;Indicate done.
		rts				;Exit.

		ENDP
		eject
******************************************************************************
*
*	 Name:	read_with_flag
*
* Description:	Reads block and	sets/clears FCR	error flag.
*
*		NOTE:  The entry point 'condition_flag'	can be used to
*		       set/clear the error flag	only.
*
*     Created:	Nov 6, 1987
*    Modified:	Nov 6, 1987
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = high word of block #.
*		X = low	word of	block #.
*		Y = undefined
*		P = nvmxdizc
*		B = K
*
*		my_fcr			;points	to fcr.
*
*      Output:	A = error code if error
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*	 Uses:	All registers
*		my_fcr
*		block_read		(sub)
*
******************************************************************************

read_with_flag	proc
		with	data

*
* Do read...
*
		jsr	block_read		;Do read.
*
* Set error flag if carry set, else clear it and exit...
*
		export	condition_flag
condition_flag					;	        

		tax				;Save error code.
		lda	#0			;Assume	no error.
		bcc	continue		;That was the right assumption.
		lda	#1			;Error so get 1.
continue	ldy	#fcr_error_flag		;Get offset to error_flag.
		sta	[my_fcr],y		;Set/clear flag.
		txa				;Recover error code.
		rts				;Exit.

		ENDP
		eject
******************************************************************************
*
*	 Name:	setup_open_buf
*
* Description:	Setup pointers and variables for open_buffer.  If file is a
*		directory and it is claimed for	get_dir_entry, forces
*		log_blk_size to	2k.  This is done AFTER	the set_end_block call
*		so that	the end	block will be set correctly.
*
*     Created:	Nov 6, 1987
*    Modified:	Jan 11, 1989
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		my_fcr			;points	to fcr.
*		log_blk_size		;current log_blk_size.
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..0 = error
*		B = K
*
*		io_buffer		;points	to open_buffer in fcr.
*		open_buf_ptr		;points	to open_buffer in fcr.
*		start_block		;starting block	# of file/directory.
*		end_block		;ending	block #	of file/directory.
*		interleave_size		;# contiguous blocks.
*		interleave_skip		;# blocks between contiguous blocks.
*		skip_count		;# blocks till next skip.
*		open_mark		;position within open buffer.
*		log_blk_size		;2k if file is a directory.
*
*	 Uses:	All registers
*
******************************************************************************

setup_open_buf	proc
		with	data

*
* Point	io_buffer at open_buffer in fcr...
*
		clc				;Prepare for add.
		ldy	#fcr_dir_record		;Get offset to start of	dir record.
		lda	[my_fcr],y		;Get length of directory.
		and	#$00ff			;Clear high byte (1/11/89).
		adc	#fcr_dir_record		;Add length to fcr_dir_record.
		adc	my_fcr			;Add to	my_fcr.
		sta	io_buffer		;Save low word of pointer.
		sta	open_buf_ptr		;And again.
		lda	#0			;Add carry to high word.
		adc	my_fcr+2
		sta	io_buffer+2		;Save high word	of pointer.
		sta	open_buf_ptr+2		;And again.
*
* Set drvr_blk_num to open_block from fcr in case we need to read another
* block...
*
		ldy	#fcr_open_block		;Get offset.
		lda	[my_fcr],y		;Get low word.
		sta	drvr_blk_num		;Save it.
		ldy	#fcr_open_block+2	;Get offset.
		lda	[my_fcr],y		;Get high word.
		sta	drvr_blk_num+2		;Save it.
*
* Set interleave_size and interleave_skip...
*
		ldy	#fcr_dir_record+dir_int_size ;Get offset to size.
		lda	[my_fcr],y		;Get it.
		and	#$00ff			;Clear high byte.
		sta	interleave_size		;Save it.

		ldy	#fcr_dir_record+dir_int_skip ;Get offset to skip.
		lda	[my_fcr],y		;Get it.
		and	#$00ff			;Clear high byte.
		sta	interleave_skip		;Save it.
*
* Set start_block...
*
		ldy	#fcr_dir_record+dir_xar_len ;Point to xar_len.
		lda	[my_fcr],y		;Get length.
		and	#$00ff			;Clear high byte.

		clc				;Prepare to add.
		ldy	#fcr_dir_record+dir_loc_extent ;Point to low word.
		adc	[my_fcr],y		;Add low word to len.
		sta	start_block		;Save it.
		ldy	#fcr_dir_record+dir_loc_extent+2 ;Point	to high	word.
		lda	[my_fcr],y		;Get high word.
		adc	#0			;Add in	carry.
		sta	start_block+2		;Save it.
*
* Set end_block...
*
		ldy	#fcr_dir_record+dir_data_length	;Point to low word.
		lda	[my_fcr],y		;Get low word.
		tax				;Save it.
		ldy	#fcr_dir_record+dir_data_length+2 ;Point to high word.
		lda	[my_fcr],y		;Get high word.
		jsr	set_end_block		;Set end_block.
*
* Set skip_count and open_mark...
*
		ldy	#fcr_skip_count		;Get offset to count.
		lda	[my_fcr],y		;Get it.
		sta	skip_count		;Save it.

		ldy	#fcr_open_mark		;Get offset to mark.
		lda	[my_fcr],y		;Get it.
		sta	open_mark		;Save it.
*
* Is this a directory?	If so, and it is claimed for get_dir_entry, force
* log_blk_size to 2k, else exit...
*
		ldy	#fcr_storage		;Point at storage type.
		lda	[my_fcr],y		;Get type.
		cmp	#type_directory		;Is it a directory?
		bcc	exit			;Nope.
		ldy	#fcr_type_flag		;Yes, get offset to type flag.
		lda	[my_fcr],y		;Get flag.
		cmp	#2			;Claimed for get_dir_entry?
		bne	exit			;Nope.
		lda	#sector_size		;Yes, force log_blk_size = 2k.
		sta	log_blk_size
exit		rts				;Exit.

		ENDP
		eject
******************************************************************************
*
*	 Name:	check_open_buf
*
* Description:	Tries to re-fill open_buffer if	fcr_error_flag is set.
*
*     Created:	Nov 6, 1987
*    Modified:	Nov 6, 1987
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		my_fcr			;points	to fcr.
*		drvr_blk_num		;current open_block.
*		io_buffer		;points	to open_buffer in fcr.
*
*      Output:	A = error code if error
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*	 Uses:	All registers
*
******************************************************************************

check_open_buf	proc
		with	data
*
* Is error flag	set?
*
		ldy	#fcr_error_flag		;Point to flag.
		lda	[my_fcr],y		;Get flag. Set?
		bne	re_read			;Yes.
		clc				;No, so	indicate ok.
		rts				;Exit.
*
* Yes, so exit through read_with_flag...
*
re_read		ldx	drvr_blk_num		;Get block #.
		lda	drvr_blk_num+2
		jmp	read_with_flag		;Read it in.

		ENDP
		eject
******************************************************************************
*
*	 Name:	set_end_block
*
* Description:	Calculates and sets end_block.
*
*     Created:	Nov 6, 1987
*    Modified:	Apr 25,	1988
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = high word of file/directory	length
*		X = low	word of	file/directory length
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		start_block		;start_block.
*		log_blk_size		;current log_blk_size.
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		end_block		;ending	block #	of file/directory.
*
*	 Uses:	All registers
*		dividend
*		remainder
*		calc_open_block		(sub)
*
******************************************************************************

set_end_block	proc
		with	data

*
* Calculate end	block, subtract	1 if open_mark (remainder) = 0,	save it
* and exit...
*
		jsr	calc_open_block		;Calculate block.
		ldy	open_mark		;Open_mark = zero?
		bne	continue		;Nope.
		dex				;Yep, subtract 1.
		cpx	#$ffff
		bne	continue
		dec	a
continue	stx	end_block		;Save end_block.
		sta	end_block+2
		rts				;Exit.

		ENDP
		eject
******************************************************************************
*
*	 Name:	close
*
* Description:	Closes a file.
*
*     Created:	Nov 3, 1987
*    Modified:	Nov 3, 1987
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		my_vcr			;points	to vcr.
*		my_fcr			;points	to fcr.
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..0
*		B = K
*
*	 Uses:	All registers
*		release_fcr		(system)
*		sys_death		(system)
*
******************************************************************************

close		proc
		with	data

*
* Release the FCR...
*
		lda	[my_fcr]		;Get reference #.
		jsl	release_fcr		;Release fcr.
*
* Decrement VCR	open count and exit with carry clear if	>= 0...
*
		ldy	#vcr_open_cnt		;Get offset to open count.
		lda	[my_vcr],y		;Get open count.
		dec	a			;Decrement it.
		cmp	#$ffff			;Rollover?
		beq	hara_kari		;Yes, we're in deep trouble!
		sta	[my_vcr],y		;Nope, so save it.
		clc				;Indicate ok.
		rts				;Exit.
*
* Something's terribly wrong here, and we have lost great face: we must commit
* hara-kari...
*
hara_kari	lda	#$000A			;Get error code	for bad	VCR.
		jml	sys_death		;Die.

		ENDP
		eject
*******************************************************************************
*
*	 Name:	set_mark
*
* Description:	Set file position marker and related variables.	 Will set
*		fcr_error_flag if block	# changes.
*
*     Created:	Nov 4, 1987
*    Modified:	Nov 13,	1987
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		my_fcr			;points	to fcr.
*		base			;0: mark = displacement.
*					;1: mark = eof - displacement.
*					;2: mark = mark	+ displacement.
*					;3: mark = mark	- displacement.
*
*		displacement		;offset.
*
*      Output:	A = error code if error
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..0 if	no error.
*			   1 if	error
*		B = K
*
*		fcr_open_block		;# of block in open_buffer.
*		fcr_position		;new position.
*		fcr_skip_count		;count to next interleave gap.
*		fcr_open_mark		;position within open_buffer.
*
*	 Uses:	All registers
*		calc_open_block		(sub)
*		update_fcr		(sub)
*
******************************************************************************

set_mark	proc
		with	data

*
* Get current position and eof...
*
		ldy	#fcr_position		;Point to low word.
		lda	[my_fcr],y		;Get low word.
		sta	position		;Save it.
		ldy	#fcr_position+2		;Point to high word.
		lda	[my_fcr],y		;Get high word.
		sta	position+2		;Save it.

		ldy	#fcr_eof		;Point to low word.
		lda	[my_fcr],y		;Get low word.
		sta	eof			;Save it.
		ldy	#fcr_eof+2		;Point to high word.
		lda	[my_fcr],y		;Get high word.
		sta	eof+2			;Save it.
*
* Now branch to	the correct handler...
*
		ldx	base			;Get base.  Zero?
		beq	base_0			;Yes.
		dex				;No, 1?
		beq	base_1			;Yes.
		dex				;No, 2?
		beq	base_2			;Yes.
*
* Set mark = mark - displacement, then branch to check_range...
*
		sec				;Prepare for subtract.
		lda	position		;Do it.
		sbc	displacement
		tax
		lda	position+2
		sbc	displacement+2
		bcc	bad_range		;Oops, went too	far back!
		bra	check_range		;Continue.
*
* Set mark = mark + displacement, then branch to check_range...
*
base_2		clc				;Prepare for add.
		lda	position		;Do it.
		adc	displacement
		tax
		lda	position+2
		adc	displacement+2
		bra	check_range		;Continue.
*
* Set mark = eof - displacement, then branch to	check_range...
*
base_1		sec				;Prepare for subtract.
		lda	eof			;Do it.
		sbc	displacement
		tax
		lda	eof+2
		sbc	displacement+2
		bcc	bad_range		;Oops, went too	far back!
		bra	check_range		;Continue.
*
* Set mark = displacement.  If displacement = current position then
* exit with carry clear...
*
base_0		ldx	displacement		;Get new position.
		lda	displacement+2
		cmp	position+2		;Match current?
		bne	check_range		;Nope.
		cpx	position		;Maybe.
		bne	check_range		;Nope.
		clc				;Yes, so exit with carry clear.
		rts
*
* Now see if position is past eof (high	word of	position is in A, low in X).
* Is it	past?
*
check_range	cmp	eof+2			;Past eof?
		bcc	position_ok		;Nope.
		bne	bad_range		;Yes.
		cpx	eof
		bcc	position_ok		;Nope.
		beq	position_ok		;Nope.
*
* Yes, so exit with an out of range error...
*
bad_range	lda	#out_of_range		;Get error code.
		sec				;Indicate error.
error		rts				;Exit.
*
* No, so calculate open_block.	Set carry flag if block	# has changed...
*
position_ok	phx				;Save position.
		pha
		jsr	setup_open_buf		;Setup open buffer.
		pla				;Recover position.
		plx
		jsr	calc_open_block		;Do calculation.
		pha				;Save A.

		ldy	#fcr_open_block+2	;Get offset to high word of block.
		cmp	[my_fcr],y		;Match?
		bne	changed			;Nope.
		txa				;Get low word in A.
		dey				;Point to low word of block.
		dey
		cmp	[my_fcr],y		;Match?
		bne	changed			;Nope.
		clc				;Yes, so clear carry.
		bra	recover_a

changed		sec				;Block # has changed.
recover_a	pla				;Recover low word of block #.
*
* Save flag, do	update,	and recover flag.  Set fcr_error_flag if carry set
* and exit with	carry clear...
*
		php				;Save flag.
		jsr	update_fcr		;Do update.
		plp				;Recover flag. Carry clear?
		bcc	exit			;Yep.
		ldy	#fcr_error_flag		;Get offset to error flag.
		lda	#0001			;Set flag.
		sta	[my_fcr],y
		clc				;Indicate no error.
exit		rts				;Exit.

		ENDP
		eject
******************************************************************************
*
*	 Name:	calc_open_block
*
* Description:	Calculate block	number from position.  Handles interleave.
*		If position is < 174k and file is interleaved, routine will
*		use loop_calc, >= 174k will use	long_calc.  If file is not
*		interleaved, will always use long_calc,	in which case the
*		worst case is 1.719 ms.
*
*		The crossover point of 174k was	determined by timing tests
*		with both routines.  Using long_calc for positions >=174k
*		ensures	that calc_open_block will never	take longer than
*		3.332 ms to complete, and will be significantly	faster for
*		positions < 174k.
*
*     Created:	Nov 13,	1987
*    Modified:	Apr 25,	1988
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = high word of position
*		X = low	word of	position
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		my_fcr			;points	to fcr.
*		start_block		;Starting block	# of file/directory.
*		interleave_skip		;# contiguous blocks.
*		interleave_size		;# blocks between contiguous blocks.
*
*      Output:	A = high word of block #
*		X = low	word of	block #
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		position	       ;new position.
*		skip_count	       ;count to next interleave gap.
*		open_mark	       ;position within	open_buffer.
*
*	 Uses:	All registers
*		temp1
*		dividend		(a.k.a.	multiplier)
*		divisor			(a.k.a.	multiplicand
*		remainder		(a.k.a.	input_string & output_string)
*		position
*		skip_count
*		open_mark
*
******************************************************************************

calc_open_block	proc
		with	data

*
* Calculate logical_block (position/log_blk_size) and set open_mark...
*
		stx	position		;Save position.
		sta	position+2
		stx	dividend		;Set dividend =	position.
		sta	dividend+2
		lda	log_blk_size		;Set divisor = log_blk_size.
		sta	divisor
		stz	divisor+2
		jsr	long_divide		;Do division.
		lda	dividend		;Set log_block = result.
		ldx	dividend+2
		sta	log_block
		stx	log_block+2
		lda	remainder		;Set open_mark = remainder.
		sta	open_mark
*
* Ok, we've done the common calculation.  If file is not interleaved or position
* is >=	174k then branch to long_calc, otherwise use loop_calc...
*
		lda	interleave_size		;Interleaved file?
		beq	zero_size		;Nope, so use long_calc.
		lda	position+2		;Position >= 174k?
		cmp	#^crossover
		bcc	loop_calc		;Nope, so use loop calc.
		lda	position		;Maybe.
		cmp	#<crossover
		bcs	long_calc		;Yes, so use long_calc.
*
* Now we are going to increment	the block # from start_block till we've done
* it logical_block times.  Init	skip_count to interleave_size (or $ffff	if
* interleave_size is zero) and get start_block in X and	A...
*
loop_calc	lda	interleave_size		;Get interleave_size. Zero?
		bne	set_skip		;Nope.
		dec	a			;Yes, so set to	$ffff.
set_skip	sta	skip_count
		ldx	start_block		;Get start_block.
		lda	start_block+2
*
* Are we at the	correct	block?	Exit if	we are...
*
advance_loop	dec	dividend		;Decrement dividend.
		ldy	dividend		;Get it.
		cpy	#$ffff			;Rollover?
		bne	continue		;Nope.
		dec	dividend+2		;Yep, decrement	high word.
		ldy	dividend+2		;Get it.
		cpy	#$ffff			;Rollover?
		bne	continue		;Nope.
		rts				;Yes, so exit.
*
* No, so bump block #...
*
continue	inx				;Bump block #. Rollover?
		bne	check_gap		;Nope.
		inc	a			;Yep.
*
* Loop if we're not at an interleave gap...
*
check_gap	dec	skip_count		;At a gap?
		bne	advance_loop		;Nope.
*
* We're at a gap.  Reset skip_count to interleave_size ($ffff if zero), add
* interleave_skip to block #, and loop...
*
		tay				;Save A.
		lda	interleave_size		;Get size.  Zero?
		bne	reset_a			;Nope.
		dec	a			;Yes, so make $ffff.
reset_a		sta	skip_count		;Save it.
		clc				;Add interleave_skip to	block #.
		txa
		adc	interleave_skip
		tax
		tya
		adc	#0
		bra	advance_loop		;Loop.


* LONG_CALC
* If interleave_size is	zero we	can skip most of the following calculations;
* all we have to do is set skip_count to $ffff and continue on at do_add...
*
long_calc	lda	interleave_size		;Get interleave_size.  Zero?
		bne	calc_gap		;Nope.
zero_size	dec	a			;Yes, so set skip_count	= $ffff.
		sta	skip_count
		bra	do_add			;Continue at do_add.
*
* Not zero so calculate	gap_count (logical_block/interleave_size). Logical_block
* is already in	dividend...
*
calc_gap	sta	divisor			;Set divisor = interleave_size.
		stz	divisor+2
		jsr	long_divide		;Do division.
*
* Calculate skip_count (interleave_size	- remainder of last calculation). If
* result is zero, reset	skip_count to interleave_size...
*
		sec				;Do subtraction.  Zero result?
		lda	interleave_size
		sbc	remainder
		bne	set_count		;Nope.
		lda	interleave_size		;Yes, so reset to interleave_size.
set_count	sta	skip_count		;Save count.
*
* Calculate absolute_block (start_block	+ logical_block
* + gap_count(interleave_skip)). gap_count is in multiplier (a.k.a. dividend)
* already.  Exit with absolute_block in	A and X...
*
		lda	interleave_skip		;Set multiplicand = interleave_skip.
		sta	multiplicand
		stz	multiplicand+2
		jsr	long_multiply		;Do multiplication.
		clc				;Add logical_block.
		lda	product
		adc	log_block
		sta	log_block
		lda	product+2
		adc	log_block+2
		sta	log_block+2
do_add		clc				;Add start_block.
		lda	log_block
		adc	start_block
		tax
		lda	log_block+2
		adc	start_block+2
		rts				;Exit.

		ENDP
		eject
******************************************************************************
*
*	 Name:	update_fcr
*
* Description:	Fill in	fcr position information.
*
*     Created:	Nov 17,	1987
*    Modified:	Nov 17,	1987
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = high word of block #
*		X = low	word of	block #
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		my_fcr		       ;points to fcr.
*		position	       ;new position.
*		skip_count	       ;count to next interleave gap.
*		open_mark	       ;position within	open_buffer.
*
*      Output:	A = high word of block #
*		X = low	word of	block #
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		fcr_position		;new position.
*		fcr_open_block		;# of block in open_buffer.
*		fcr_skip_count		;count to next interleave gap.
*		fcr_open_mark		;position within open_buffer.
*
*	 Uses:	All registers
*
******************************************************************************

update_fcr	proc
		with	data

*
* Put block # in fcr...
*
		pha				;Save high word	of block.

		ldy	#fcr_open_block+2	;Get offset to high word of field.
		sta	[my_fcr],y		;Fill it in.
		dey				;Point to low word.
		dey
		txa				;Get low word.
		sta	[my_fcr],y		;Fill it in.
*
* Put position in fcr...
*
		ldy	#fcr_position		;Get offset to low word	of field.
		lda	position		;Get low word of position.
		sta	[my_fcr],y		;Fill it in.
		iny				;Point to high word.
		iny
		lda	position+2		;Get high word.
		sta	[my_fcr],y		;Fill it in.
*
* Put open_mark	in fcr...
*
		ldy	#fcr_open_mark		;Get offset to field.
		lda	open_mark		;Get mark.
		sta	[my_fcr],y		;Fill it in.
*
* Put skip_count in fcr...
*
		ldy	#fcr_skip_count		;Get offset to field.
		lda	skip_count		;Get skip_count.
		sta	[my_fcr],y		;Fill it in.
*
* Recover high word of block # (low is in X) and exit...
*
		pla				;Recover high word of block #.
		rts				;Exit

		ENDP
		eject
******************************************************************************
*
*	 Name:	get_mark
*
* Description:	Gets mark for open file.
*
*     Created:	Nov 3, 1987
*    Modified:	Nov 3, 1987
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		my_fcr			;points	to fcr.
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..0
*		B = K
*
*	 Uses:	All registers
*
******************************************************************************

get_mark	proc
		with	data

*
* Copy position	out of fcr...
*
		ldy	#fcr_position		;Get offset to low word	of position.
		lda	[my_fcr],y		;Get low word.
		sta	position		;Save it.

		ldy	#fcr_position+2		;Get offset to high word of position.
		lda	[my_fcr],y		;Get high word.
		sta	position+2		;Save it.
*
* Send output and exit...
*
		jmp	send_output		;Send it.

		ENDP
		eject
******************************************************************************
*
*	 Name:	get_eof
*
* Description:	Gets eof for open file.
*
*     Created:	Nov 3, 1987
*    Modified:	Nov 3, 1987
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		my_fcr			;points	to fcr.
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..0
*		B = K
*
*	 Uses:	All registers
*
******************************************************************************

get_eof		proc
		with	data

*
* Copy eof out of fcr...
*
		ldy	#fcr_eof		;Get offset to low word	of eof.
		lda	[my_fcr],y		;Get low word.
		sta	eof			;Save it.

		ldy	#fcr_eof+2		;Get offset to high word of eof.
		lda	[my_fcr],y		;Get high word.
		sta	eof+2			;Save it.
*
* Send output and exit...
*
		jmp	send_output		;Send it.

		ENDP
		eject
******************************************************************************
*
*	 Name:	get_dir_entry
*
* Description:	Returns	directory information.
*
*     Created:	Nov 4, 1987
*    Modified:	Apr 8, 1988
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		my_fcr			;points	to fcr.
*		base			;0: entry_num =	displacement.
*					;1: entry_num =	entry_num+displacement.
*					;2: entry_num =	entry_num-displacement.
*		displacement		;entry number.
*
*      Output:	A = error code if carry	set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*		entry_num		;entry number returned.
*
*	 Uses:	All registers
*		send_output		(sub)
*
******************************************************************************

get_dir_entry	proc
		with	data

*
* Is this fcr for a directory?
*
		ldy	#fcr_storage		;Get offset to storage type.
		lda	[my_fcr],y		;Get type.
		cmp	#type_directory		;Is it a directory?
		bcs	ok			;Yes.
*
* No, so exit with an error...
*
		lda	#version_error		;Get error code.
error_exit	sec				;Indicate error.
		rts				;Exit.
*
* Check	our fcr_type_flag and exit with	invalid_access error if	this FCR
* has been accessed by read.  If the flag is clear, claim this file
* for get_dir_entry by setting the flag	to 2...
*
ok		ldy	#fcr_type_flag		;Get offset to type_flag.
		lda	[my_fcr],y		;Get flag.  Set	already?
		bne	check_flag		;Yes.
		lda	#2			;No, so	set it to 2.
		sta	[my_fcr],y
		bra	do_setup		;And continue.

check_flag	cmp	#2			;Are we	allowed	to access this file?
		beq	do_setup		;Yep.
		lda	#invalid_access		;Nope, so exit with error.
		bra	error_exit
*
* Make sure volume is online and setup some variables from the vcr...
*
do_setup	jsr	setup_volume		;Do setup. Online?
		bcs	exit			;Nope.
*
* Turn on caching and set current entry_num...
*
		lda	#in_cache		;Turn on caching.
		sta	drvr_cache

		ldy	#fcr_entry_num		;Get offset.
		lda	[my_fcr],y		;Get entry_num.
		sta	entry_num		;Save it.
*
* Clear	out dir_record_0 and dir_record_1, call	setup_open_buf and
* check_open_buf...
*
		jsr	clear_dir_recs		;Clear em.
		jsr	setup_open_buf		;Setup pointers	and variable.
		jsr	check_open_buf		;Make sure data	in buffer is valid.
		bcs	exit			;Error.
*
* Branch to correct calculation	routine	or exit	with error if base out
* of range...
*
		ldx	base			;Get base. Zero?
		beq	base_0			;Yes.
		dex				;No, 1?
		beq	base_1			;Yes.
		dex				;No, 2?
		beq	base_2			;Yes.

		lda	#parm_range_err		;No, get error code.
		sec				;Indicate error.
		rts				;Exit.
*
* Set entry_num	= entry_number - displacement...
*
base_2		sec				;Prepare for subtraction.
		lda	entry_num		;Do it.
		sbc	displacement
		bcs	save_it			;Continue.

hit_end		lda	#end_of_dir		;Passed	beginning. Get error code.
error		sec				;Indicate error.
exit		rts				;Exit.
*
* Set entry_num	= entry_number + displacement...
*
base_1		clc				;Prepare for addition.
		lda	entry_num		;Do it.
		adc	displacement
		bcs	hit_end			;Out of	range!
		bra	save_it			;Continue.
*
* Set entry_num	= displacement.	 If displacement is zero then we need to
* count	the entries...
*
base_0		lda	displacement		;Get displacement. Zero?
		bne	save_it			;Nope.
*
* Both base and	displacement fields are	zero, so we must count records
* in the directory.  Go	find record #1 then clear entry_num and	clear it
* in the fcr too...
*
		inc	a			;Set entry_num to 1.
		sta	entry_num
		jsr	find_dir_record		;Go find it.
		bcs	error			;Error.
		lda	#0			;Get zero.
		sta	entry_num		;Clear entry_num.
		ldy	#fcr_entry_num		;Point to entry_num in fcr.
		sta	[my_fcr],y		;Clear it.
*
* Count	records	in this	block and add to entry_num...
*
count_loop	jsr	count_dir_recs		;Count them.
		clc				;Add count to entry_num.
		txa
		adc	entry_num		;Did we	rollover?
		bcc	save_num		;Nope.
		lda	#$ffff			;Yes, so set to	max.
save_num	sta	entry_num		;Save it.
		sta	current_record		;Save for do_update.
*
* Go get next block, update fcr	and loop.  Exit	loop when we get an error
* from read_next_block...
*
		jsr	read_next_block		;Get next block. Error?
		bcs	got_error		;Yep.
		inc	current_record		;Nope, bump current by 1.
		jsr	do_update		;Update	fcr.
		bra	count_loop		;Loop.
*
* We got an error.  If it's not an end_of_dir error then exit, else find
* last record and exit thru count_exit...
*
got_error	cmp	#end_of_dir		;End of	dir error?
		bne	error			;Nope, so real error.
		jsr	find_dir_record		;Get last record.
		bcs	error			;Error.
		bra	count_exit		;Exit.
*
* We're doing a normal call. Save entry_num and go search for it. Found?
*
save_it		sta	entry_num		;Save it.
		jsr	find_dir_record		;Go search. Found?
		bcs	error			;Nope, so error.
*
* Yes, so put entry_num	in fcr...
*
		ldy	#fcr_entry_num		;Get offset to entry_num.
		lda	entry_num		;Get it.
		sta	[my_fcr],y		;Save it.
*
* Copy name to file_name...
*
		lda	dir_record_0+dir_len_fi	;Get name length.
		and	#$00ff			;Clear high byte.
		sta	file_name		;Put length in file_name.
		tay				;Use as	offset.
		bne	cont			;Continue if non-zero.
		inc	file_name		;Zero, so force	length to 1.
		lda	#'AB'			;Set name to 'A'.
		sta	file_name+1
		bra	count_exit		;Exit.

		longa	off			;Set 8 bit A.
cont		sep	#$20

copy_name	lda	dir_record_0+dir_len_fi,y ;Get byte.
		sta	file_name+1,y		;Put in	file_name.
		dey				;Done all?
		bne	copy_name		;Nope, so loop.

		longa	on			;Set 16	bit A.
		rep	#$20
*
* Get eof & blocks_used, and exit thru send_output...
*
count_exit	jsr	get_dir_info		;Get eof & blocks_used.
		jmp	send_output		;Exit thru send_output.

		ENDP
		eject
******************************************************************************
*
*	 Name:	find_dir_record
*
* Description:	Searches directory for specific	record and moves it to
*		dir_record_0.
*
*     Created:	Nov 4, 1987
*    Modified:	July 28, 1988
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		entry_num		;entry to find.
*		my_fcr			;points	to fcr for directory.
*
*      Output:	A = error code if error.
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*		dir_record_0		;holds record if found.
*		extended_flag		;$8000 if record has associated	file.
*
*	 Uses:	All registers
*		current_record
*		record_offset
*		length
*		io_buffer		(points	to open_buffer in fcr!)
*		read_next_block		(sub)
*		read_prev_block		(sub)
*		move_dir_record		(sub)
*
******************************************************************************

find_dir_record	proc
		with	data

*
* Set current_record to	record # of first record of the	current	directory
* block, and set extended_flag if b15 set...
*
		stz	extended_flag		;Clear extended_flag.

		ldy	#fcr_start_rec		;Get offset to start record.
		lda	[my_fcr],y		;Get start record.
		and	#set_extended		;Extended bit set?
		beq	set_record		;Nope.
		sta	extended_flag		;Yep, so set extended_flag.
set_record	lda	[my_fcr],y		;Recover start record.
		and	#$7fff			;Clear b15.
		sta	current_record		;Save it.
*
* Is current_record greater than entry_num?
*
		cmp	entry_num		;current_record	> entry_num?
		bcc	search			;No, we're ok.
		beq	search			;No, we're ok.
*
* Yes, so get previous directory block,	set new	current	record.	 Keep going
* back until we	are before the entry we	want or	are exactly on it...
*
back_up		jsr	read_prev_block		;Get previous.
		bcs	error_hop		;Error.
		jsr	count_dir_recs		;Count records.
		sec				;Adjust	current	record.
		lda	current_record
		sbc	record_count
		sta	current_record
		stz	extended_flag		;Clear extended	flag.
		jsr	do_update		;Set new open_block and	start_rec.
		lda	current_record		;Recover current record.
		cmp	entry_num		;Are we	before the entry we want?
		bcc	search			;Yep.
		beq	at_entry		;No, we're right on it.
		bra	back_up			;Nope, so back up a block.
*
* We're on exactly the one we want.  Are we looking at entry number 1?
*
at_entry	cmp	#1			;Entry 1?
		beq	search			;Yep, so continue.
*
* No.  This means that we want the first record	in this	block.	Since we had
* to back up to	get here, the extended_flag is not set correctly.  To set it,
* we must read the previous block, call	count_dir_recs,	then re-read the
* current block...
*
		jsr	read_prev_block		;Read previous block.
		bcs	error_hop		;Exit on error.
		jsr	count_dir_recs		;Go set	the extended_flag.
		jsr	read_next_block		;Recover block.
		bcc	read_ok			;Continue on no	error.
error_hop	brl	error			;Exit on error.

read_ok		jsr	do_update		;Update	fcr.
		lda	current_record		;Recover current record.
*
* Ok, we've got the starting block in the fcr (pointed to now by io_buffer) and
* we have the record # of the first record in this block.  We're ready to start
* searching forwards.  Init record_offset...
*
search		ldy	#0			;Init offset.
		tax				;Put current_record in X.
*
* Have we done all records in this block?
*
search_loop	sty	record_offset		;Save offset.
		cpy	log_blk_size		;Done all?
		bcs	next_block		;Yes, so next block.
		lda	[io_buffer],y		;No, get length	of record.
		and	#$00ff			;Look at low byte only.	 Zero?
		beq	next_block		;Yes, so next block.
		sta	length			;Save length.
*
* No. Clear extended_flag and skip this	record if the name is either a 0 or a 1.
* (carry is clear from cpy log_blk_size!)...
*
		tya				;Get offset. (carry still clear!)
		adc	#dir_file_id		;Adjust	to point to file name.
		tay
		lda	[io_buffer],y		;Get 1st byte of name.
		and	#$00ff
		cmp	#2			;Is it a 0 or a	1?
		bcs	check_dir		;Nope, so check	it.
		stz	extended_flag		;Yes, clear flag.
		bra	skip_record		;Skip record.
*
* Is the file a	directory?  Clear extended flag	and branch to check_record if so...
*
check_dir	clc				;Adjust	offset to point	to file	flags.
		lda	record_offset
		adc	dir_file_flags
		tay
		lda	[io_buffer],y		;Get file flags.
		and	#dir_mask		;Is this a directory?
		beq	check_assoc		;Nope.
		stz	extended_flag		;Yes, clear flag.
		bra	check_record		;Continue.
*
* If the file is an associated file and	this is	an ISO 9660 volume, set	extended_flag.
* If we	are at the correct record number, copy record to dir_record_1 then skip
* record...
*
check_assoc	lda	[io_buffer],y		;Get file flags.
		and	#assoc_mask		;Is this an associated file?
		beq	check_record		;Nope.
		lda	state_flag		;Yep, is this a	High Sierra volume?
		and	#iso_bit
		beq	skip_record		;Yep, so skip record.
		lda	#set_extended		;Nope, set flag.
		sta	extended_flag
		cpx	entry_num		;Are we	at the correct record?
		bne	skip_record		;Nope.
		pei	length			;Yep, save length.
		phx				;Save X.
		lda	#0001			;Copy record to	dir_record_1.
		jsr	move_dir_record
		plx				;Recover X.
		pla				;Restore length.
		sta	length
		bra	skip_record		;Skip record.
*
* Are we at the	correct	record?
*
check_record	cpx	entry_num		;Are we	there yet, mom?
		beq	found			;Yes.
*
* No, so bump record # and clear extended_flag...
*
		inx				;Bump record #.
		stz	extended_flag		;Clear flag.
*
* Skip to the next record...
*
skip_record	clc				;Add length to offset.
		lda	length
		adc	record_offset
		tay
		bra	search_loop		;And loop.
*
* Get next directory block.  Set new current_record, call next_dir_block,
* update fcr, and loop...
*
next_block	stx	current_record		;Save record.
		jsr	read_next_block		;Get next.
		bcs	error			;Error.
		jsr	do_update		;Set new open_block and	start_rec.
		lda	current_record		;Recover current record.
		brl	search			;Continue search.
*
* We found it. Move record to dir_record_0 and exit with carry clear...
*
found		stx	current_record		;Save current record.
		lda	#0			;Select	dir_record_0.
		jsr	move_dir_record		;Move it.
		clc				;Indicate found.
error		rts				;Exit.

		ENDP
		eject
******************************************************************************
*
*	 Name:	count_dir_recs
*
* Description:	Count #	of records in directory	block.
*
*     Created:	Nov 6, 1987
*    Modified:	July 28, 1988
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		io_buffer		;points	to directory block.
*		log_blk_size		;current log_blk_size.
*
*      Output:	A = undefined
*		X = count
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*		B = K
*
*		record_count		;holds count.
*		extended_flag		;$8000 if last entry is	associated.
*
*	 Uses:	All registers
*		record_count
*		length
*
******************************************************************************

count_dir_recs	proc
		with	data

*
* Init offset, extended_flag and count...
*
		ldy	#0			;Init offset.
		sty	extended_flag		;Clear extended_flag.
		tyx				;Init count.
*
* Have we done all records in this block?
*
count_loop	sty	record_offset		;Save offset.
		cpy	log_blk_size		;Done all?
		bcs	done			;Yes, done.
		lda	[io_buffer],y		;No, get length	of record.
		and	#$00ff			;Look at low byte only.	 Zero?
		beq	done			;Yes, so done.
		sta	length			;Save length.
*
* No. Is the file a directory? (carry is clear from cpy	log_blk_size!)...
*
		tya				;Get offset.
		adc	dir_file_flags		;Adjust	to point to file flags.
		tay
		lda	[io_buffer],y		;Get file flags.
		and	#dir_mask		;Is this a directory?
		beq	check_assoc		;Nope.
*
* Yes, clear extended_flag and skip this record	if the name is either a	0 or a
* 1...
*
		stz	extended_flag		;Clear flag.

		lda	record_offset		;Get offset. (carry still clear!)
		adc	#dir_file_id		;Adjust	to point to file name.
		tay
		lda	[io_buffer],y		;Get 1st byte of name.
		and	#$00ff
		cmp	#2			;Is it a 0 or a	1?
		bcc	skip_record		;Yes, so ignore	it.
		bra	bump_record		;Nope, so bump record #.
*
* No, if the file is an	associated file	and the	volume is High Sierra, set
* extended_flag	and skip record...
*
check_assoc	lda	[io_buffer],y		;Get file flags.
		and	#assoc_mask		;Is this an associated file?
		beq	bump_record		;Nope.
		lda	state_flag		;Yep, is this a	High Sierra volume?
		and	#iso_bit
		beq	skip_record		;Yep, so skip record.
		lda	#set_extended		;Nope, set flag.
		sta	extended_flag
		bra	skip_record		;Skip record.
*
* Bump record #	and clear extended_flag...
*
bump_record	inx				;Bump record #.
		stz	extended_flag		;Clear flag.
*
* Skip to the next record...
*
skip_record	clc				;Add length to offset.
		lda	length
		adc	record_offset
		tay
		bra	count_loop		;And loop.
*
* Save count and exit...
*
done		stx	record_count		;Save count.
		rts				;Exit.

		ENDP
		eject
******************************************************************************
*
*	 Name:	do_update
*
* Description:	Sets fcr_open_block and	fcr_start_record.
*
*     Created:	Nov 6, 1987
*    Modified:	Apr 8, 1988
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		current_record		;current record	#.
*		extended_flag		;$8000 if last record is associated.
*		drvr_blk_num		;current block #.
*
*      Output:	A = current_record
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*	 Uses:	All registers
*		current_record
*		drvr_blk_num
*
******************************************************************************

do_update	proc
		with	data

*
* Set fcr_open_block and fcr_start_rec and exit...
*
		ldy	#fcr_open_block		;Get offset to low word	of open_block.
		lda	drvr_blk_num		;Get low word of current block.
		sta	[my_fcr],y		;Put in	fcr.
		ldy	#fcr_open_block+2	;Get offset to high word of open_block.
		lda	drvr_blk_num+2		;Get high word of current block.
		sta	[my_fcr],y		;Put in	fcr.

		ldy	#fcr_start_rec		;Get offset to start record.
		lda	current_record		;Get current record.
		ora	extended_flag		;Add id	extended_flag.
		sta	[my_fcr],y		;Put in	fcr.
		rts				;Exit.

		ENDP
		eject
		eject
******************************************************************************
*
*	 Name:	get_dev_num
*
* Description:	Get device number of requested volume.
*
*     Created:	Nov 3, 1987
*    Modified:	Nov 3, 1987
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..0
*		B = K
*
*	 Uses:	All registers
*
******************************************************************************

get_dev_num	proc
		with	data

*
* Did we get passed a device number?
*
		lda	dev_num			;Do we have a device #?
		bne	got_it			;Yes.
*
* No, so use the volume	name to	find it...
*
		jsr	process_path		;Go look. Found?
		bcs	error			;Nope.
		lda	drvr_dev_num		;Yes, get device number.
*
* Save device number, send output and exit...
*
got_it		sta	dev_number		;Save number.
		jsr	send_output		;Send it.
error		rts				;Exit.

		ENDP
		eject
******************************************************************************
*
*	 Name:	fst_specific
*
* Description:	This routine is	a dispatcher for the fst_specific calls.  It
*		uses command_num to dispatch to	the correct routine.
*
*		NOTE:  These routines do not use send_output to	return
*		       parameters, but do it themselves.
*
*     Created:	Dec 4, 1987
*    Modified:	Dec 4, 1987
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		command_num		;command_num
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*	 Exit:	rts
*
*	 Uses:	all registers
*
******************************************************************************

fst_specific	proc
		with	data

*
* Dispatch to the selected routine...
*
		lda	command_num		;Get command number.
		asl	a			;Multiply by 2.
		tax				;Use as	index.
		jmp	(specific_cmds,x)	;Jump to it.

		ENDP

		eject
******************************************************************************
*
*	 Name:	post_volume_changed
*
* Description:	This routine calls the GS/OS notification queue with a volume-
*		changed event for every MS-DOS VCR that's swapped in.
*
*     Created:	25-Aug-92
*    Modified:	25-Aug-92
*      Author:	Dave Lyons
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*	 Exit:	rts
*
*	 Uses:	all registers
*
******************************************************************************

post_volume_changed proc Export

temp_ptr	equ	my_fcr

		lda	#$0001			;Start with the first FST
more		jsl	get_vcr			;Ask for the VCR
		bcs	done			;Past the last VCR

		jsl	deref			;Deref VP into temp_ptr
		stx	<temp_ptr
		sty	<temp_ptr+2

		ldy	#vcr_fst_id
		lda	[<temp_ptr],y
		cmp	#highSierraFSID		;is it our volume?
		beq	@ours
		cmp	#iso9660FSID		;I said, is it our volume?
		bne	next_vcr
@ours
		ldy	#vcr_status
		lda	[<temp_ptr],y
		and	#vcr_swapped		; bit set if VCR swapped out
		bne	next_vcr

		pea	$2033			; call number (for A) = FSTSpecific
		ldy	#vcr_dev		; get device number
		lda	[<temp_ptr],y
		pha				; to be passed in X
		pha				; undefined: passed in Y
		lda	#<volume_change		; get event code in A,X
		ldx	#^volume_change
		jsl	post_os_event		; signal the event

next_vcr	lda	#$0000			;Value for get next vcr
		bra	more

done		rts

		EndP

		eject
******************************************************************************
*
*	 Name:	map_enable
*
* Description:	This routine enables or	disables file type mapping.
*
*     Created:	Dec 16,	1987
*    Modified:	Dec 16,	1987
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		my_pblk			;points	to parameter block.
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..0
*		B = K
*
*	 Exit:	rts
*
*	 Uses:	all registers
*		my_pblk
*		map_enable_flag
*		temp1
*
******************************************************************************

map_enable	proc
		with	data

*
* Setup	pointer	to current map...
*
		lda	map_buffer_ptr		;Get pointer.
		ldx	map_buffer_ptr+2
		sta	map_ptr			;Put in	direct page pointer.
		stx	map_ptr+2
*
* Set map_enable_flag and exit with carry clear...
*
		ldy	#map_enable_off		;Get offset to map_enable.
		lda	[my_pblk],y		;Get flag.
		cmp	map_enable_flag		;added 25-Aug-92 DAL
		sta	map_enable_flag		;Save it.
*** added 25-Aug-92 DAL
		beq	@skip_changed
		jsr	post_volume_changed
@skip_changed
*** end 25-Aug-92
		clc				;No error.
		rts				;Exit.

		ENDP
		eject
******************************************************************************
*
*	 Name:	get_map_size
*
* Description:	This routine returns the size of the current file type map in
*		the callers parameter block.
*
*     Created:	Dec 4, 1987
*    Modified:	Dec 4, 1987
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		my_pblk			;points	to parameter block.
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..0
*		B = K
*
*	 Exit:	rts
*
*	 Uses:	all registers
*		my_pblk
*		temp1
*
******************************************************************************

get_map_size	proc
		with	data

*
* Setup	pointer	to current map...
*
		lda	map_buffer_ptr		;Get pointer.
		ldx	map_buffer_ptr+2
		sta	map_ptr			;Put in	direct page pointer.
		stx	map_ptr+2
*
* Get length, stuff it into the	parameter block, and exit with carry clear...
*
		lda	[map_ptr]		;Get length.

		ldy	#map_size		;Get offset to map_size.
		sta	[my_pblk],y		;Send length.

		clc				;No error.
		rts				;Exit.

		ENDP
		eject
******************************************************************************
*
*	 Name:	get_map_table
*
* Description:	This routine copies the	current	file type map into the buffer
*		pointed	to by the map_buffer parameter in the parameter	list.
*
*		NOTE: No checking is done on the size of the caller's buffer!
*
*     Created:	Dec 4, 1987
*    Modified:	Dec 4, 1987
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		my_pblk			;points	to parameter block.
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..0
*		B = K
*
*	 Exit:	rts
*
*	 Uses:	all registers
*		my_pblk
*		temp1
*		data_buffer
*
******************************************************************************

get_map_table	proc
		with	data

*
* Setup	pointer	to current map...
*
		lda	map_buffer_ptr		;Get pointer.
		ldx	map_buffer_ptr+2
		sta	map_ptr			;Put in	direct page pointer.
		stx	map_ptr+2
*
* Get buffer pointer out of parameter list...
*
		ldy	#map_buffer		;Get offset to pointer.
		lda	[my_pblk],y		;Get low word of pointer.
		sta	data_buffer		;Save it.
		iny				;Bump offset.
		iny
		lda	[my_pblk],y		;Get high word of pointer.
		sta	data_buffer+2		;Save it.
*
* Copy map to data_buffer and exit with	carry clear...
*
		lda	[map_ptr]		;Get length of table.
		tay				;Use as	offset.

		longa	off			;Set 8 bit A.
		sep	#$20

copy_loop	dey				;Done all?
		bmi	restore_a		;Yep.
		lda	[map_ptr],y		;Nope, get byte.
		sta	[data_buffer],y		;Put it	in buffer.
		bra	copy_loop		;And loop.

		longa	on			;Restore 16 bit	A.
restore_a	rep	#$20

		clc				;No error.
		rts				;Exit.

		ENDP
		eject
******************************************************************************
*
*	 Name:	set_map_table
*
* Description:	This routine replaces the current file type map	with one
*		provided by the	caller.
*
*     Created:	Dec 4, 1987
*    Modified:	Dec 4, 1987
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		my_pblk			;points	to parameter block.
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..0
*		B = K
*
*	 Exit:	rts
*
*	 Uses:	all registers
*		my_pblk
*		temp1
*		data_buffer
*
******************************************************************************

set_map_table	proc
		with	data

*
* Save the current map_buffer_vp so we can release it after we successfully
* allocate a new one...
*
		lda	map_buffer_vp		;Get vp.
		ldx	map_buffer_vp+2
		sta	old_vp			;Save it.
		stx	old_vp+2
*
* Get buffer pointer out of parameter list...
*
		ldy	#map_buffer		;Get offset to pointer.
		lda	[my_pblk],y		;Get low word of pointer.
		sta	data_buffer		;Save it.
		iny				;Bump offset.
		iny
		lda	[my_pblk],y		;Get high word of pointer.
		sta	data_buffer+2		;Save it.
*
* Get size of map and allocate memory for it.  Exit with out_of_mem error
* if we	couldn't allocate enough memory...
*
		lda	[data_buffer]		;Get size of map
		jsr	alloc_seg		;Get a hunk that size.
		lda	#out_of_mem		;Get error code	in case	full.
		bcs	exit			;Error,	so exit	with carry set.

		stx	map_buffer_vp		;Save new vp.
		sty	map_buffer_vp+2
		jsl	deref			;Dereference vp.
		stx	map_ptr			;Save pointer.
		sty	map_ptr+2
*
* Copy map into	map buffer...
*
		lda	[data_buffer]		;Get length of table.
		tay				;Use as	offset.

		longa	off			;Set 8 bit A.
		sep	#$20

copy_loop	dey				;Done all?
		bmi	restore_a		;Yep.
		lda	[data_buffer],y		;Nope, get byte.
		sta	[map_ptr],y		;Put it	in buffer.
		bra	copy_loop		;And loop.

		longa	on			;Restore 16 bit	A.
restore_a	rep	#$20
*
* Now let's deallocate the old map and exit with carry clear...
*
		ldx	old_vp			;Get old vp.
		ldy	old_vp+2
		jsl	release_seg		;Release it.

		jsr	post_volume_changed	;added 25-Aug-92 DAL

		clc				;No error.
exit		rts				;Exit.

		ENDP
		eject
*******************************************************************************
*
* END OF CODE
*
*******************************************************************************

end_segment	proc
end_code					;
		ENDP
		eject
		END


\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/FSTs/MSDos/MSDos.Calls.aii b/IIGS.601.SRC/GS.OS/FSTs/MSDos/MSDos.Calls.aii
new file mode 100644
index 0000000..8e4dd7f
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/FSTs/MSDos/MSDos.Calls.aii
@@ -0,0 +1 @@
+;======================================================================
;
; MSDos.Calls.aii
;
; This file contains the subroutines necessary to support the system-level
; and application-level calls (Open, Read, etc.)
;
;======================================================================
		string	asis

		Import	main_exit,fst_attr

		entry	post_volume_changed

		PRINT	GEN
		msb	off
		longa	on
		longi	on

;------------------------------------------
;
; Equates from procedure 
;
;------------------------------------------

		include	'MSDos.equ'

		print	push
		print	off
		include 'MSDos.Data.inc'
		include	'MSDos.Subs.inc'
		print	pop

		Eject
;======================================================================
;init the MSDOS fst

		longa	on
		longi	on

startup		PROC	Export
		with	my_dp

		jsl	get_sys_gbuf		;get the systems general buffer

good
		stx	gbuf_addr
		sty	gbuf_addr+2		;save pointer to general work buffer

*
* Get memory for map_buffer and	save vp...
*
		lda	default_map		;Get size from default_map.
		jsl	alloc_seg		;Get a hunk that size.
		lda	#out_of_mem		;Get error code	in case	full.
		bcs	exit			;Error,	so exit	with carry set.

		stx	map_buffer_vp		;Save it.
		sty	map_buffer_vp+2
*
* Copy default map into	map buffer...
*
		jsl	deref			;Dereference vp.
		stx	temp_ptr		;Save pointer.
		sty	temp_ptr+2

		longa	off			;Set 8 bit A.
		sep	#$20

		ldy	default_map		;Get map size.
copy_loop	dey				;Done all?
		bmi	restore_a		;Yep.
		lda	default_map,y		;Nope, get byte.
		sta	[temp_ptr],y		;Put it	in buffer.
		bra	copy_loop		;And loop.

		longa	on			;Restore 16 bit	A.
restore_a	rep	#$21			;clear carry too
exit
		rtl

		ENDP

		eject
******************************************************************************
*
*	 Name:	shutdown
*
* Description:	Releases file type translation table
*
*     Created:	Oct 6, 1987
*    Modified:	Oct 6, 1987
*      Author:	Bryan Atsatt
*
*	Entry:	jmp
*
*	Input:	A = undefined
*		X = call number	times 2
*		Y = class number times 2
*		P = nvmxdizc
*		    ..000...
*
*      Output:	A = error code if carry	set
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*
*	 Exit:	rtl
*
******************************************************************************

shutdown	PROC	Export
*
* Are we doing a warm shutdown?  Do nothing if so...
*
		clc				;Precondition to no error.
		lda	>warm_cold_flag		;Get flag. Warm shutdown?
		bne	exit			;Yes, so do nothing.
*
* Release memory...
*
		ldx	map_buffer_vp		;Get virtual pointer.
		ldy	map_buffer_vp+2
		jsr	release_seg		;Free it up.
*
* Unlock memory	and exit...
*
		entry	my_sys_exit
my_sys_exit					;	        
		php				;Save carry.
		pha				;Save error code.
		jsr	unlock_mem		;Unlock	memory.
		pla				;Recover error code.
		plp				;Recover carry.
exit		rtl				;Pass any errors back to Mike &	Jim.
		ENDP

		Eject
;======================================================================
;Sys_Remove_vol This file contains code that is called by the system
;               to remove a volume control record (VCR).
;
;Input:         A = undefined
;               X = (call number * 2)
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..0 = no error
;               b = k
;
;Uses:          All registers
;
		longa	on
		longi	on

sys_remove_vol	PROC	Export

		clc
		rtl

		ENDP

		Eject
;======================================================================
;deferred_flush This file contains code that flush any deferred blocks
;               blocks to disk. This routine is called when the stop
;               session call is issued, and when swapout is called.
;               Since the routine can be called from swapout it must
;               save most of the direct page and local buffers.
;
;Input:         A = undefined
;               X = (call number * 2)
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..0 = no error
;               b = k
;
;Uses:          All registers
;
;======================================================================
		longa	on
		longi	on

deferred_flush	PROC	Export
		with	my_dp

;
;Save the world.  We do this in case we are called by SwapOut.
;
		jsr	save_def		;save the deferred envirnoment
		jsr	standard_req		;write 512 bytes
		lda	#blk_size
		sta	drvr_blk_size

		ldx	vcr_ptr
		ldy	vcr_ptr+2
		stx	my_vcr_ptr
		sty	my_vcr_ptr+2
		jsr	setup_my_vcr

;
;Setup ID_Disk routine to ID by volume name ONLY!!  This is important
;since block two is deferred and we are reading block two from the disk.
;Therefore the two blocks will problably not be the same.
;

		lda	#$8001			;set the high bit of FST_NUM
		sta	drvr_fst_num		;to force device access

;
;Try to locate the volume we are trying to write too.  We do this by
;calling 'find_Volume'.  More then likely the volume is still in the
;same drive.
;
		jsr	mount_volume		;go and locate the volume please
		bcs	bad_bad_news		;we our up the creek!

;
;After finding the volume I will call the 'cache_flsh_def' routine.  This
;routine will write all the deferred blocks to disk.
;
		lda	[my_vcr_ptr]		;setup the VOL ID
		sta	drvr_vol_id

		jsl	cache_flsh_def
		bcc	exit_deferred
;
;Now that we are here we must restore the world and return back to scm
;via an RTL instruction.
;

bad_bad_news

exit_deferred
		jsr	restore_def
		clc
		rtl

save_def
		php
		phy
		phx
		pha

		ldx	#$004A			;save the direct page data
save_direct
		lda	drvr_dev_num,x
		sta	def_dir_page,x
		dex
		bpl	save_direct
		ldx	#$0052			;save my direct page
save_my_direct
		lda	fst_start,x
		sta	def_my_direct,x
		dex
		bpl	save_my_direct
		ldx	#19			;save the volume name buffers
save_def_vol
		lda	volume_name,x
		sta	def_vol_name,x
		dex
		bpl	save_def_vol
		bra	save_rest_exit

;======================================================================

restore_def
		php
		phy
		phx
		pha

		ldx	#$004A			;restore the direct page data
restore_direct
		lda	def_dir_page,x
		sta	drvr_dev_num,x
		dex
		bpl	restore_direct
		ldx	#$0052			;restore my direct page
restore_dp
		lda	def_my_direct,x
		sta	fst_start,x
		dex
		bpl	restore_dp
		ldx	#19			;restore the volume name buffers
restore_def_vol
		lda	def_vol_name,x
		sta	volume_name,x
		dex
		bpl	restore_def_vol

save_rest_exit
		pla
		plx
		ply
		plp
		rts

		ENDP

		Eject
;======================================================================
;Create:        This file will create a new fresh file on disk.
;
;Input:         A = undefined
;               X = (call number * 2)
;               Y = (class number * 2)
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = error code if carry set (exit via system exit routine)
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;Uses:          All registers
;               Device Dispatcher       (subroutine)
;               General I/O Buffer      (1K buffer, I read 512 bytes)
;               find_file               (subroutine)
;
;Call Format:
;
;Class 0        Pathname Pointer        (4 Bytes)
;               Access                  (2 Bytes)
;               File Type               (2 Bytes)
;               Aux Type                (4 Bytes)
;               Storgae_type            (2 Bytes)
;               Create Date/Time        (4 Bytes: ProDOS Format)
;
;Class 1        PCount                  (2 Bytes)
;               Pathname Pointer        (4 Bytes)
;               Access                  (2 Bytes: E3 if not supplied)
;               File Type               (2 Bytes: 00 if not supplied)
;               Aux Type                (4 Bytes: 00 if not supplied)
;               Storage Type            (2 Bytes: 01 if not supplied)
;               Size Data Fork          (4 Bytes: 00 if not supplied)
;               Size Resource Fork      (4 Bytes: 00 if not supplied)
;
		longa	on
		longi	on

create		PROC	Export
		with	expand_record,my_dp

	if read_only_fst then
; Process the pathname to ensure that it's our disk that they're trying to
; create the file on.  If the pathname processing succeeds, simply return
; a write-protect error.

		jsr	setup_params
		lda	#no_root+no_dup		;root level or duplicate is not valid.
		sta	search_flag
		jsr	process_path
		bcc	@write_protected
		cmp	#file_not_found		;was it the expected file_not_found error?
		bne	@other_error		;no, was some other error, return it
@write_protected
		lda	#drvr_wr_prot		;Get error code.
		sec
@other_error
		brl	main_exit
	else

;Setup the defaults for the create call.

		stz	data_eof
		stz	data_eof+2
		stz	res_eof
		stz	res_eof+2

		jsr	setup_params
		php
		jsr	do_create_path
		jsr	default_entry		;Build a Entry with All defaults!
		plp
		bne	class1			;this is a new wonder version

		lda	#$0005			;set PCount for common setup
		sta	pcount
		jsr	create_common

		ldy	#pblk_01_old_time
		lda	[my_pblk_ptr],y		;load the old format time
		tax
		iny
		iny
		lda	[my_pblk_ptr],y
		bne	users_date		;user has supplied the data
		txy
		beq	both_classes		;us the GS system clock for the time

users_date
		and	#$1F3F			;force the date to correct format.
		beq	clock_time		;use the GS clock time please
		sta	one_entry+create_index+2
clock_time
		txa				;is the date field set?
		beq	both_classes		;use GS clock Date
		stx	one_entry+create_index
		bra	both_classes

class1
		jsr	create_common

both_classes
		bit	expand_flag		;are we expanding a current file?
		bpl	@no_expansion

		lda	one_entry+last_mod_index
		pha
		lda	one_entry+last_mod_index+2
		pha
		lda	storage_type
		pha
		lda	one_entry
		pha
		jsr	move_dir_entry		;copy the entry from the disk
		pla
		sta	one_entry
		pla
		sta	storage_type
		pla
		sta	one_entry+last_mod_index+2
		pla
		sta	one_entry+last_mod_index

@no_expansion
		jsr	eof_to_blks		;convert bytes to blocks
;
;Blocks needed := Data_fork_blks + Res_fork_blks + subdir_blks + storage
;
chk_dir
		lda	#$0000			;assume zero
		bit	expand_file		;are we adding a directory entry?
		bmi	no_extend
		ldx	free_dir_blk		;is there room for a dir entry?
		bne	no_extend		;yes, so don't bump blks needed
		inc	a			;add one for directory block needed
no_extend
		clc
		adc	blks_used1		;blocks for data fork
		clc
		adc	blks_used2		;blocks for resource fork
		sta	blocks_needed		;save total blocks needed for file
		bcs	@no_room

		lda	storage_type		;if the file is an extended file then add
		cmp	#resource_type		;one block for the extended file header
		bne	@not_extended
		inc	blocks_needed		;bump the blocks needed
@not_extended
		jsr	calc_free_blks		;see if we have enough room for the file
		bcs	to_exit

		bit	expand_flag		;are we expanding a current file?
		bpl	@chk_sum		;no, so check the sum of the blocks needed
;
;We now know that we are extending a file, so we must check the blocks free against the
;number of blocks needed to add the resource fork.  The blocks needed for the resource
;fork is equal to blks_used2 + 1 (for resource header blk).  To compensate for the extra
;block needed, we will reduce the number of free blocks by 1, then compare against
;blks_used2 (blocks needed for resource fork).
;But first, we need to check if the number of free blocks is 0!!  CAE 11-6-90
;
		cmp	#0			;is free blocks = 0?
		beq	@no_room		;yes - so can't extend the file

		dec	a			;free blocks := free blocks -1; (compensate for header)
		cmp	blks_used2
		bcs	it_fits
		bra	@no_room		;sorry you cannot extend the file.

@chk_sum
		cmp	blocks_needed		;do we have enough?
		bcs	it_fits			;yes we do.
@no_room
		lda	#volume_full		;no room on volume
to_exit
		sec
		brl	main_exit

it_fits
		jsr	build_file		;go and make the file
		bcs	create_err
		jsr	force_bitmap		;make sure the bitmap is up to date
		bcs	create_err
		jsr	slug_ripple		;time stamp previous
create_err
		brl	main_exit

;===============END OF THE CREATE CALL


;==========================================================================
;Build_file     This routine will allocate all needed blocks and build
;               the file.  It will also handle directory extending etc.
;
;input:         free_dir_blk            ;dir blk with a empty entry.
;               dir_start_blk           ;starting block of the directory
;               dir_last_blk            ;last block of the directory
;               used_blks1              ;blocks needed for data fork
;               used_blks2              ;blocks needed for resource fork
;               stoarge_type            ;type of file to be created
;               data_storage            ;storage type of data fork
;               res_storage             ;storage type of resource fork
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;Uses:          All registers
;               Device Dispatcher       (subroutine)
;               General I/O Buffer      (1K buffer, I read 512 bytes)

build_file
		jsr	extend_subdir		;extend the directory IF needed.
		bcc	chk_storage
		rts

chk_storage
		lda	storage_type		;see what we are creating
		cmp	#subdir_type
		bne	chk_next1
		jsr	create_subdir		;make a subdirectory
		bcs	build_failed
		bra	write_dir_entry

chk_next1
		cmp	#tree_type
		bne	chk_next3
		jsr	create_tree		;make a tree file
		bcs	build_failed
		bra	write_dir_entry

chk_next3
		cmp	#sapling_type
		bne	do_seedling
		jsr	create_sapling		;make a sapling file
		bcs	build_failed
		bra	write_dir_entry

build_failed
		rts

do_seedling	jsr	create_seedling
		bcs	build_failed

write_dir_entry

		jsr	set_default_buf		;get ready to write the dir entry.
		jsr	standard_req
		lda	free_dir_blk		;where to store dir entry
		sta	drvr_blk_num
		jsr	read_with_cache		;read in the directory block
		bcs	build_failed		;this is real bad news! bitmap killed.

		lda	dir_start_blk
		sta	one_entry+header_ptr_index
;
;now lets save the case state of the file please
;
		lda	case_bits		;case bits for this file
		beq	@its_all_upper
		bit	fst_attr		;If the user has set all upper then skip case code
		bmi	@its_all_upper
		ora	#$8000			;set the case active bit.
		sta	case_bits
		sta	one_entry+version_index
@its_all_upper
		ldx	#$0001
		ldy	free_dir_offset
		lda	one_entry
		sta	[gbuf_ptr],y
		iny
move_it
		lda	one_entry,x		;move in the directory entry.
		sta	[gbuf_ptr],y
		iny
		iny
		inx
		inx
		cpx	#entry_length
		bcc	move_it

		lda	drvr_blk_num		;is this 'dir_start_blk'
		cmp	dir_start_blk		;If yes then do not write twice
		beq	write_once

		jsr	write_with_cache
		bcs	build_failed		;sorry, your disk is bad now

		bit	expand_flag		;are we expanding the file?
		bmi	chk_pcount		;dont change the number of files in the directory

		lda	dir_start_blk		;now update file count
		sta	drvr_blk_num
		jsr	read_with_cache
		bcs	build_failed

write_once
		bit	expand_flag		;are we expanding the file? minus = yes
		bmi	dont_update_vcr		;dont change the number of files in the directory

		ldy	#header_file_cnt
		lda	[gbuf_ptr],y		;load current file count
		inc	a			;bump it by one
		sta	[gbuf_ptr],y

		lda	drvr_blk_num		;see if this is the volume header
		cmp	#vol_dir_start
		bne	dont_update_vcr

		ldy	#msdos_vcr.file_count
		lda	[msdos_vcr_ptr],y
		inc	a			;bump file count in vcr also
		sta	[msdos_vcr_ptr],y

dont_update_vcr
		jsr	write_with_cache
		bcs	no_store_type
chk_pcount	lda	pcount
		cmp	#$0005			;can we return the storage type
		bcs	do_store
		rts

do_store
		ldy	#pblk_01_stype		;set the user's storage type
		lda	storage_type
		lsr	a
		lsr	a
		lsr	a
		lsr	a
		sta	[my_pblk_ptr],y
		clc
no_store_type
		rts				;exit with error / no error


;==========================================================================
;create_seed..  This routine will create a seedling file on disk.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = error code if carry set (exit via system exit routine)
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;               one_entry               ;ready to be written to disk
;
;Uses:          All registers
;               Device Dispatcher       (subroutine)
;               General I/O Buffer      (1K buffer, I read 512 bytes)

create_seedling
		lda	#$0001			;allocate one block please
		sta	one_entry+blks_used_index
;                                       ;setup in default entry
		ldx	#$0000			;start from the beginning.
		jsr	find_free_blks		;go and get it
		bcs	end_seed		;sorry.
		stx	one_entry+key_blk_index
		stx	drvr_blk_num
		jsr	set_default_buf
		jsr	standard_req		;write 512 bytes please
		jsr	clear_gbuf_low		;we must write zeros for seedling
		jsr	write_with_cache
end_seed	rts

;==========================================================================
;create_sapl..  This routine will create a sapling file one disk.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = error code if carry set (exit via system exit routine)
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;               one_entry               ;ready to be written to disk
;
;Uses:          All registers
;               Device Dispatcher       (subroutine)
;               General I/O Buffer      (1K buffer, I read 512 bytes)

create_sapling
		jsr	setup_index_ptr		;setup pointer for add index
		jsr	clear_gbuf_high		;clear high 512 bytes of general buffer

		lda	one_entry		;adjust the storage type
		and	#$FF0F			;clear old stoarge type
		ora	#sapling_type
		sta	one_entry

		lda	blks_used1		;number of blocks needed for file
		sta	one_entry+blks_used_index
		ldx	#$0000			;start from the beginning
		jsr	find_free_blks		;see if I have enough room?
		bcs	end_sapling
		stx	one_entry+key_blk_index
		inx
		stx	math_temp
		cmp	blks_used1		;did we get all the blocks needed?
		beq	big_sapling


		stz	first_free		;start from the beginning
		ldy	#$0000			;starting index
		ldx	blks_used1
		dex				;blocks to allocate
sapling_loop
		jsr	get_one_blk		;allocate another block
		bcs	end_sapling		;major problems

		lda	first_free		;block number
		jsr	add_index
		iny
		dex
		beq	write_sap_index
		bra	sapling_loop

end_sapling
		rts

big_sapling

		ldy	#$0000			;starting index value
		ldx	blks_used1		;number of blocks allocated
		dex				;minus one for index block
build_loop
		lda	math_temp		;block number
		jsr	add_index		;add block to the index
		iny				;move to the next index
		dex
		beq	write_sap_index		;write the block to disk
		inc	math_temp		;bump to the next block please
		bra	build_loop

write_sap_index
		lda	temp4_ptr		;pointer to index block
		sta	drvr_buf_ptr
		lda	temp4_ptr+2
		sta	drvr_buf_ptr+2

		jsr	standard_req		;512 byte transfer

		lda	one_entry+key_blk_index
		sta	drvr_blk_num		;write the index
		jsr	write_with_cache
		rts

;==========================================================================
;create_tree..  This routine will create a tree file on disk.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = error code if carry set (exit via system exit routine)
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;               one_entry               ;ready to be written to disk
;
;Uses:          All registers
;               Device Dispatcher       (subroutine)
;               General I/O Buffer      (1K buffer, I read 512 bytes)

create_tree
		sec				;allocate a 512 byte buffer please
		lda	#blk_size
		jsl	alloc_seg
		bcs	end_tree		;sorry out of memory!!
		stx	virtual
		sty	virtual+2		;save the VP for release seg
		jsl	deref			;convert to a real pointer
		stx	temp2_ptr
		sty	temp2_ptr+2		;save a pointer to buffer

		lda	#$0001			;allocate one block for master index
		ldx	#$0000			;start from the beginning
		jsr	find_free_blks
		bcs	end_tree
		stx	tree_key_blk		;save key block of tree file.

		lda	blks_used1
		sta	key_block		;save total blocks please

		sec
		lda	blks_used1		;remove overhead blocks from count
		sbc	data_indexes		;number of index blocks needed
		dec	a			;subtract one for master index block
		sta	tree_blks

		ldy	#$0000			;starting index for master block
tree_loop
		ldx	#256			;number of blocks to allocate
		lda	tree_blks
		cmp	#256			;max blocks+1 in an index block
		bcs	use_max
		tax				;use the remaining blocks
use_max
		inx				;add one for index block itself
		stx	blks_used1		;this is the amount to allocate
		phy
		jsr	create_sapling		;build a sapling index
		ply
		bcs	end_tree		;major problems
		jsr	add_master_index
		iny				;advance to next index please
		sec
		lda	tree_blks		;number of blocks left
		sbc	#256
		sta	tree_blks
		beq	write_tree
		bcs	tree_loop		;do another index block

write_tree
		lda	one_entry
		and	#$FF0F			;change storage to tree type
		ora	#tree_type
		sta	one_entry

		lda	key_block
		sta	one_entry+blks_used_index

		lda	temp2_ptr		;setup pointer for write
		sta	drvr_buf_ptr
		lda	temp2_ptr+2
		sta	drvr_buf_ptr+2

		lda	tree_key_blk
		sta	drvr_blk_num
		sta	one_entry+key_blk_index
		jsr	write_with_cache

end_tree
		php				;save error flag
		pha				;save error if any
		ldx	virtual
		ldy	virtual+2
		jsl	release_seg		;give up the temp buffer
		pla
		plp
		rts				;return any error


add_master_index

		lda	temp2_ptr		;setup pointer to master index block
		sta	temp4_ptr
		lda	temp2_ptr+2
		sta	temp4_ptr+2

		lda	one_entry+key_blk_index
		jsr	add_index
		rts

;==========================================================================
;create_subdir  This routine will create a new subdirectory on disk
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = error code if carry set (exit via system exit routine)
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;               one_entry               ;ready to be written to disk
;
;Uses:          All registers
;               Device Dispatcher       (subroutine)
;               General I/O Buffer      (1K buffer, I read 512 bytes)
;

create_subdir
		jsr	setup_index_ptr		;setup temp4_ptr to point to gbuf+$200
		jsr	clear_gbuf_high		;clear high 512 bytes of general buffer

		lda	#$000F			;force file type to subdirectory
		sta	one_entry+file_type_index

		lda	blks_used1		;number of blocks needed for subdir.
		sta	one_entry+blks_used_index
		tax
		asl	a			;convert blocks to EOF
		sta	one_entry+eof_index+1

		txa
		ldx	#$0000			;start from the beginning
		jsr	find_free_blks		;see if I have enough room?
		bcs	end_subdir		;major problem my friend
		stx	one_entry+key_blk_index
		stx	parent_blk
		inx
		stx	math_temp
		pha				;save number of blocks allocated
		jsr	make_sub_header		;build the header block to disk
		pla
		cmp	blks_used1		;did we get all the blocks needed?
		beq	seq_subdir		;yes we can make the directory seq

		dec	blks_used1

non_seq_loop
		lda	#$0001			;allocate one block
		ldx	#$0000			;start from the beginning
		jsr	find_free_blks
		bcs	end_subdir
		stx	math_temp		;the new block.
		txa
		ldx	parent_blk		;block that needs to be written
		jsr	update_forward
		bcs	end_subdir

		lda	one_entry+key_blk_index
		cmp	parent_blk
		bne	no_clr

		jsr	clear_gbuf_high		;clear high 512 bytes of general buffer

no_clr
		lda	parent_blk		;update backward link please
		sta	[temp4_ptr]
		lda	math_temp		;this is the new block to write
		sta	parent_blk
		dec	blks_used1		;see if we are done
		bne	non_seq_loop
		lda	#$0000
		ldx	math_temp
		jsr	update_forward
		bcc	end_subdir
		rts

good_subdir
		clc

end_subdir
		php				;save error flag
		pha
		lda	one_entry
		and	#$FF0F			;change storage to subdirectory
		ora	#subdir_type
		sta	one_entry
		pla				;restore possible error code
		plp				;restore error flag
		rts

seq_subdir
		lda	#$0000			;default forward link
		ldy	blks_used1
		dey				;is there another block?
		beq	last_dir_blk
		lda	math_temp		;forward link

last_dir_blk
		ldx	one_entry+key_blk_index	;block to write to disk
		jsr	update_forward		;write the block to disk
		bcs	end_subdir		;bad news
		jsr	clear_gbuf_high		;clear high 512 bytes of general buffer

seq_sub_loop
		dec	blks_used1		;see if we are done
		beq	good_subdir

		lda	drvr_blk_num		;this is the backward link now
		sta	[temp4_ptr]

		lda	#$0000
		ldy	blks_used1		;is there more blocks to write?
		dey
		beq	write_last		;no this is the last one
		lda	math_temp
		inc	a			;make a forward link

write_last
		ldx	math_temp		;block number to write
		inc	math_temp		;bump to the next block
		jsr	update_forward
		bcc	seq_sub_loop
		bra	end_subdir


;==========================================================================
;update_forward This routine will update the forward link of a directory
;               block then write the block to disk.
;
;input:         A = forward link
;               X = block number to write
;
;output:        A = error code if carry set
;
update_forward
		ldy	#$0002			;forward link
		sta	[temp4_ptr],y
		stx	drvr_blk_num		;save block number to write

		lda	temp4_ptr		;setup pointer to block.
		sta	drvr_buf_ptr
		lda	temp4_ptr+2
		sta	drvr_buf_ptr+2

		jsr	write_with_cache
		rts				;update the disk!

;==========================================================================
;This routine will create the header block for the subdirectory.
;
;input:         X = header block +1
;               temp4_ptr = pointer to work buffer

make_sub_header
		dex				;block number to write
		stx	drvr_blk_num
		clc
		lda	temp4_ptr
		sta	drvr_buf_ptr
		adc	#$0004
		sta	temp_ptr
		lda	temp4_ptr+2		;setup pointer for the write
		sta	drvr_buf_ptr+2
		adc	#$0000
		sta	temp_ptr+2		;setup pointer to header

		ldy	#entry_length-1
move_header
		lda	one_entry,y
		sta	[temp_ptr],y
		dey
		dey
		bpl	move_header		;move the header into first block

		ldy	#access_index
		lda	[temp_ptr],y
		and	#$FF00
		ora	#$00C3
		sta	[temp_ptr],y

		lda	[temp_ptr]
		and	#$FF0F
		ora	#subdir_header
		sta	[temp_ptr]

		ldy	#$001F			;index to entry len and entries per blk
		lda	#$0D27			;13 entries per blk and 39 byte entries
		sta	[temp_ptr],y
		iny
		iny				;point to file count
		lda	#$0000
		sta	[temp_ptr],y		;no files yet
		iny
		iny
		lda	free_dir_blk		;parent pointer
		sta	[temp_ptr],y
		iny
		iny
		jsr	make_entry_num
		bcc	go_on_please
		brl	main_exit

go_on_please
		sta	[temp_ptr],y

		ldy	#$0010			;clear reserved area
		lda	#$0000
clear_reserved
		sta	[temp_ptr],y
		iny
		iny
		cpy	#$0018
		bcc	clear_reserved

		ldy	#$0010			;setup for no 'HUSTON'
		lda	#$0076
		sta	[temp_ptr],y
		rts

		entry	make_entry_num
make_entry_num
		ldx	#(12*2)			;index into offset table
		lda	free_dir_offset
offset_loop	cmp	dir_offset_tbl,x
		beq	found_offset
		dex
		dex
		bpl	offset_loop

		lda	#dir_error
		sec
		rts

found_offset

		txa
		lsr	a			;divide by two
		inc	a			;add one to convert from zero based.
		ora	#$2700			;add in parent entry length
		clc
		rts

;==========================================================================
;setup_index... This routine will setup temp4_ptr to point to the second
;               half of the general work buffer supplied by GS/OS.
;==========================================================================
setup_index_ptr
		clc
		lda	gbuf_ptr		;set temp4_ptr to point to second
		adc	#$0200			;have of the general work buffer.
		sta	temp4_ptr
		lda	gbuf_ptr+2
		adc	#$0000
		sta	temp4_ptr+2
		rts

;==========================================================================
;get_one_blk    This routine will allocate one block from disk
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               gbuf_ptr
;
;Output:        A = restored  or error code if carry set.
;               X = restored
;               Y = restored
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;               first_free              ;block number allocated
;
;Uses:          find_free_blks
;
;==========================================================================

get_one_blk
		pha
		phx
		phy

		lda	#$0001			;allocate one block
		ldx	first_free		;start at the beginning
		jsr	find_free_blks
		bcs	exit_with_err
		stx	first_free
		bra	exit_one_blk

exit_with_err
		sta	5,s			;store the error code on the stack!

exit_one_blk
		ply
		plx
		pla
		rts

;==========================================================================
;add_index      This routine will add in a block to an index buffer.
;
;Input:         A = block number
;               X = undefined
;               Y = index into buffer
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               temp4_ptr
;
;Output:        A = restored
;               X = restored
;               Y = restored
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Uses:          temp4_ptr
;
;==========================================================================

		Entry	add_index
add_index
		phx
		phy
		pha

		tya
		ora	#$0100			;index to second half of buffer
		tax

		lda	1,s
		longa	off
		sep	#$20
		sta	[temp4_ptr],y		;store the low byte please
		txy				;index to second half of buffer
		xba				;high word of the block number
		sta	[temp4_ptr],y
		longa	on
		rep	#$20

		pla				;restore A
		ply				;restore Y
		plx				;restore X
		rts				;exit


;==========================================================================
;eof_to_blks    This routine will convert the size of the file into the
;               number of blocks needed to store the file on disk.  The
;               routine does NOT account for directory extension that is
;               handled elsewhere,  it does however account for storage
;               type.
;
;Input:         data_eof                ;size of data fork
;               res_eof                 ;size of resource fork
;
;output:        blks_used1              ;blocks needed for data fork/subdir
;               blks_used2              ;blocks needed for resource fork
;
;==========================================================================
		Entry	eof_to_blks
eof_to_blks
		lda	expand_file		;are we expanding a file or building a new one?
		bpl	@its_new

		lda	expand_blks_used
		sta	blks_used1		;set the number of blocks needed for current file
		bra	do_res			;now do the resource fork
@its_new
		lda	data_eof+1		;convert bytes to blocks
		lsr	a
		sta	blks_used1		;blocks needed by data fork
		beq	bump_blks1		;see if we need to round up
		lda	data_eof		;see if size is < 512
		and	#$01FF
		beq	do_res			;no need to bump
bump_blks1
		inc	blks_used1

do_res
		lda	storage_type		;do we need resources?
		cmp	#resource_type
		bne	end_eof_conv		;not a resource file

		lda	res_eof+1		;convert bytes to blocks
		lsr	a
		sta	blks_used2		;blocks needed by data fork
		beq	bump_blks2		;see if we need to round up
		lda	res_eof			;see if size is < 512
		and	#$01FF
		beq	end_eof_conv		;no need to bump resource size
bump_blks2
		inc	blks_used2		;add for resource file

end_eof_conv
		lda	expand_file		;are we expanding a file or building a new one?
		bmi	@skip_adjust		;since the blocks used is already the total skip adjust

		lda	blks_used1		;add any storage overhead for data fork
		jsr	adjust_storage
		sta	blks_used1
		sty	data_storage		;storage type for data fork
		stx	data_indexes		;number of index blocks
@skip_adjust
		lda	blks_used2		;add any storage overhead for res. fork
		jsr	adjust_storage
		sta	blks_used2
		sty	res_storage		;storage type for resource fork
		stx	res_indexes		;number if inedx blocks
		rts

;==========================================================================
;do_create_path This routine will setup the flags needed to process the
;               input pathname. we only return from the subroutine if
;               everything with the pathname is OK.
;
;input:         none
;
;output:        seach_name is still valid from find file.
;
;==========================================================================
do_create_path
		lda	#no_root+no_dup		;root level or duplciate is not valid.
		sta	search_flag
		jsr	process_path
		bcs	no_dup_problem		;there is no duplicate file
;
;If the file already is on the disk we need to see if we are adding the resource
;fork.  If we are adding the resource fork we will pull out the important information
;from the current file entry (data fork) and save if so we can use it to build the
;data fork of are new extended file
;
		ldy	#pblk_01_stype		;see if we are adding a resource fork to the file
		lda	[my_pblk_ptr],y		;get the input storage type
		cmp	#(resource_type/$10)+$8000
		bne	@not_an_extend
		sta	expand_file		;set the flag indicating we are extending the file
		sta	expand_flag		;expand_flag lives thru the entire call, whereas expand_file
						;only lives thru the create data fork portion of the call.
;
;now lets setup the important information:
;       storage type
;       key block
;       blks_used
;       eof
;
;Remember drvr_buf_ptr points to the MSDOS directory entry
;
		lda	[drvr_buf_ptr]		;get the storage type please
		and	#$00F0			;clear the garbage
		cmp	#resource_type		;see if the resource fork is already here.
		beq	@no_extend
		cmp	#tree_type+1		;file must be a seedling sapling or tree
		bcs	@storage_err		;we cannot extend this file
		sta	expand_storage
		sta	data_storage		;this will be a 10,20 or 30 (seedling, sapling or tree)

		ldy	#key_blk_index
		lda	[drvr_buf_ptr],y
		sta	expand_key_blk		;save the key block for the data fork

		ldy	#blks_used_index
		lda	[drvr_buf_ptr],y
		sta	expand_blks_used

		ldy	#eof_index
		lda	[drvr_buf_ptr],y
		sta	expand_eof
		iny
		lda	[drvr_buf_ptr],y
		sta	expand_eof+1
		bra	no_dup_problem
@no_extend
		lda	#resource_exist		;the resource already exist bud.
		sec
		bra	real_problem
@storage_err
		lda	#res_add_err		;the resource cannot be added to this type file
		sec
		bra	real_problem
@not_an_extend
		sec
		lda	#dup_pathname
real_problem
		sec
		brl	main_exit

no_dup_problem
		bit	path_searched		;was the entire path searched?
		bpl	real_problem		;no, only a portion.
		jsr	chk_disk_protect	;is the volume write protected?
		rts				;If protected, routine will not return

;==========================================================================
;adjust_storage This routine will add in the overhead of the storage type
;               to the blocks used for a file.
;
;input:         A = blocks
;
;output:        A = blocks + overhead
;               Y = storage type needed for size
;               X = number of index blocks needed (for tree only)
;
;uses:          math_temp
;
;Overhead:
;               subdirectories:         no overhead
;               seedling:               no overhead
;               sapling:                1 block of overhead
;               tree:                   ((blks div 256) + (blks mod 256)) + 1
;==========================================================================

adjust_storage
		sta	math_temp		;number of file blocks
		stz	index_blks		;no tree index blocks. (default)

		ldy	#subdir_type
		ldx	storage_type
		cpx	#subdir_type
		beq	end_overhead		;no overhead for directories

		ldy	#seedling_type		;this is a seedling type

		cmp	#$0002
		bcc	end_overhead		;no overhead
		cmp	#$0101			;check high end of sapling
		bcs	data_tree		;this is a tree file
		inc	math_temp		;add one for sapling overhead
		ldy	#sapling_type
		bra	end_overhead

data_tree
		lda	math_temp+1		;see how many sapling blocks we need
		and	#$00FF
		sta	index_blks		;number of index blocks needed
		clc
		adc	math_temp
		tax
		lda	math_temp
		and	#$00FF
		beq	no_extra
		inc	index_blks		;add one to number of indexes needed
		inx
		stx	math_temp		;adjust for $xx01 thru $xxFF

no_extra
		inx
		stx	math_temp		;add extra block for tree header.
		ldy	#tree_type

end_overhead
		lda	math_temp
		ldx	index_blks		;index blocks for the tree file.
		rts

;==========================================================================
;Default_entry: This routine will fill 'one_entry' with the default
;values for a file.
;
;               storage type            = seedling
;               File Type               = unknown ($00)
;               Blks Used               = $0001
;               EOF                     = $000000
;               Version                 = $05
;               Minimum Version         = $00
;               access                  = $E3
;               create date/time        = Current Time
;               mod date/time           = Current Time
;               aux type                = $0000
;
;NOTE: The store operations happen in a certain order so as to not overwrite
;      information already stored.
;==========================================================================

default_entry
		ldy	#$0026			;zero the entry
		lda	#$0000
clr_name
		sta	one_entry,y
		dey
		dey
		bpl	clr_name

		lda	#seedling_type		;set the default storage type
		sta	storage_type

		stz	one_entry+file_type_index
		lda	#$0001
		sta	one_entry+blks_used_index
		stz	one_entry+eof_index
		stz	one_entry+eof_index+1
		jsr	pack_time		;read the GS Clock and set the current time
		stx	one_entry+create_index
		sty	one_entry+create_index+2
		stx	one_entry+last_mod_index
		sty	one_entry+last_mod_index+2
		lda	#prodos_version
		sta	one_entry+version_index
		lda	#$00E3
		sta	one_entry+access_index
		stz	one_entry+aux_type_index
		rts

;==========================================================================
;Create_Common: This routine will setup and verify parameters supplied
;               by the caller. It will also move the file name into
;               one_entry.
;
;input:         my_pblk_ptr             ;must point to pathname field
;
;output:        returns to caller or jmps to sys_exit with error
;
; Access Byte:
;                _______________________________
;               |   |   |   |   |   |   |   |   |
;               | 1 | 1 | 1 |   |   | 1 | 1 | 1 |
;               |___|___|___|___|___|___|___|___|
;                ^    ^   ^           ^   ^   ^
;                |    |   |           |   |   |
;                |    |   |  Invisible    |    Read-Enabled
;                |    |   |                Write-Enabled
;                |    |    Backup-Enabled
;                |     Rename-Enabled
;                 Destroy-Enabled
;
;==========================================================================

create_common

		ldy	search_length		;length of name to create
		longa	off
		sep	#$20
name_loop	lda	search_name-1,y		;move name to directory entry
		sta	one_entry,y
		dey
		bne	name_loop
		lda	search_length
		ora	storage_type		;add in the storage type
		sta	one_entry		;store storage/length byte
		longa	on
		rep	#$20

		lda	pcount			;see if we are done
		dec	a
		bne	cont01
		rts

cont01
		sta	math_temp

		ldy	#pblk_01_accs		;check the access
		lda	[my_pblk_ptr],y
		tax				;save access so we can verify range
		and	#$FF18			;Destroy,Rename,Backup,Invisible,Write,Read
		beq	good_access		;no problem

not_in_range
		sec
		lda	#parm_range_err
		brl	main_exit		;no return from here

good_access					;WARNING zero is stored in half of aux.
		txa
		ora	#backup_enabled		;force the backup bit please.
		sta	one_entry+access_index

		dec	math_temp		;see if any more fields?
		beq	to_end_common

		ldy	#pblk_01_ftype		;get the user's file type
		lda	[my_pblk_ptr],y
		xba
		bne	not_in_range
		xba				;put file type in low byte please
		sep	#$20			;08 bit accum
		sta	one_entry+file_type_index
		rep	#$20			;16 bit accum

		cmp	#dir_file_type		;set storage to SubDir incase PCount = 4
		bne	skip_storage		;do not setup the storage type

		lda	#subdir_type
		sta	storage_type

skip_storage

		dec	math_temp		;are we done?
		beq	end_common

		ldy	#pblk_01_aux+2		;get the user's aux type
		lda	[my_pblk_ptr],y
		bne	not_in_range		;sorry bud
		dey
		dey
		lda	[my_pblk_ptr],y
		sta	one_entry+aux_type_index

		dec	math_temp		;are we done?
to_end_common
		beq	end_common		;yes

		ldy	#pblk_01_stype		;get the user's storage type
		lda	[my_pblk_ptr],y
		and	#$7FFF			;clear the expand file bit please

		beq	standard_file		;seedling is the default
		xba
		bne	not_in_range		;parameter not valid

		xba
		cmp	#(tree_type/$10)+1
		bcc	standard_file		;seedling is the default
		cmp	#(resource_type/$10)
		beq	force_resource
		cmp	#(subdir_type/$10)
		bne	not_in_range
		lda	#subdir_type
		sta	storage_type		;we are making a directory
		bra	next_parm
force_resource
		lda	#resource_type
		sta	storage_type
		bra	next_parm

standard_file
		lda	#seedling_type
		sta	storage_type
next_parm
		lda	storage_type		;if storage is subdirectory then force filetype
		cmp	#subdir_type
		bne	@not_subdir

		lda	#dir_file_type		;set file type to subdirectory
		sep	#$20
		sta	one_entry+file_type_index
		rep	#$20			;16 bit accum

@not_subdir
		dec	math_temp		;are we done?
		beq	end_common

		ldy	#pblk_01_eof1+2		;data fork EOF
		jsr	create_eof
		stx	data_eof
		sty	data_eof+2

		dec	math_temp		;is there a resource eof.
		beq	end_common

		lda	storage_type		;is this a resource file?
		cmp	#resource_type
		bne	end_common		;don't bother checking

		ldy	#pblk_01_eof2+2
		jsr	create_eof
		stx	res_eof
		sty	res_eof+2

end_common
		rts


;==========================================================================
;Create_Eof:    This routine returns the EOF supplied by the user
;
;Input:         my_pblk_ptr             (must be setup)
;               Y register              (index into parameter block)
;
;Output:        X register = low word of EOF
;               Y register = high word of EOF
;               storage_type adjusted for correct eof
;
;==========================================================================

create_eof
		lda	[my_pblk_ptr],y
		xba
		bne	not1_in_range		;I cannot make a file this large
		xba
		pha
		dey
		dey
		lda	[my_pblk_ptr],y		;get the low word
		tax				;save low word of eof
		ply				;save high word of eof

		lda	storage_type		;adjust storage type as needed
		cmp	#resource_type
		beq	end_create_eof
		cmp	#subdir_type
		beq	entry_to_bytes

		tya				;see what type of file is needed
		lsr	a
		beq	not_tree		;this cannot be a tree file
		cmp	#$0002			;still might be a sapling
		bcs	is_tree
		txa				;if low word is zero then its a sapl.
		beq	make_sap
is_tree
		lda	#tree_type
		sta	storage_type
		rts
not_tree
		tya				;See if EOF greater then 512
		bne	make_sap		;This file must be a sapling file!
		txa
		cmp	#$0201			;is the eof < 512
		bcc	make_seedling
make_sap
		lda	#sapling_type
		sta	storage_type
		rts

make_seedling
		lda	#seedling_type
		sta	storage_type

end_create_eof
		rts				;exit to caller

not1_in_range
		sec
		lda	#parm_range_err
		brl	main_exit

entry_to_bytes					; ;convert file entries to bytes
		tya				;check high byte of entries wanted
		bne	not1_in_range
		cpx	#1664			;no more then 1663 entries for subdirs.
		bcs	not1_in_range
		txa				;convert entries to bytes
		pha
;
; Convert number of entries to bytes needed.
;
; Bytes := ((entries * 3) * 13 + ((entries / 13) + 5))
;
		clc
		asl	a			;times 2
		adc	1,s			;times 3
		sta	1,s			;math_temp

		asl	a			;times 2
		asl	a			;times 4
		adc	1,s			;times 5
		adc	1,s			;times 6
		asl	a			;times 12
		adc	1,s			;times 13

		adc	#13			;add 13 for the header field needed
		pha				;save partial

sub_loop
		txa				;restore number if entries left
		sec
		sbc	#13			;subtract 13 entries
		beq	sub_done		;we are done
		bcc	sub_done
		tax
		clc
		lda	1,s			;get the partial
		adc	#$0005			;add in block overhead for each block
		sta	1,s
		bra	sub_loop

sub_done	plx				;save bytes in X register
		pla				;clean up stack
		rts

	endif
		ENDP

	if NOT read_only_fst then
		Eject
;==========================================================================
;Destroy:       This routine will delete a file from the disk.
;
;Created:       may 28, 1987
;Modified:      jun 04, 1987
;Author:        Rob Turner
;
;Enter:         jml
;
;Input:         A = undefined
;               X = call number times 2
;               Y = class times 2
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;Uses:          All registers
;               find_file
;
;Call Format:
;
;Class 0        Pathname Pointer        (4 Bytes)
;
;Class 1        PCount                  (2 Bytes)
;               Pathname Pointer        (4 Bytes)
;
;==========================================================================
		longa	on
		longi	on

destroy		PROC	Export
		with	my_dp

;==========================================================================
;Go and setup the defaul parameters for the call.
;==========================================================================

		jsr	setup_params

;==========================================================================
;Process the file name and locate it.
;==========================================================================

		jsr	process_path
		jsr	chk_disk_protect

;==========================================================================
;Now that we have located the file we need to see if its OK to destroy it.
;
;We can delete any file except the volume header, or a file that is destroy
;disabled.
;==========================================================================

		lda	[drvr_buf_ptr]
		and	#$00F0
		sta	math_temp		;save the storage type for later
		cmp	#volume_header
		bne	check_access

wrong_access
		lda	#invalid_access
destroy_error
		sec
destroy_exit
		brl	main_exit

check_access
		jsr	move_dir_entry

		ldy	#access_index
		lda	[drvr_buf_ptr],y
		and	#destroy_enabled
		beq	wrong_access		;file is marked as 'destory disabled'


;==========================================================================
;make sure the file that they are deleting is NOT open
;==========================================================================

		ldy	#key_blk_index		;see if the file is open
		lda	[drvr_buf_ptr],y
		sta	files_key_block
		stz	fcr_wanted		;reset for search

look_loop
		jsr	get_next_fcr
		bcs	not_open

		ldy	#fcr.vol_id
		lda	[my_fcr_ptr],y		;get the Volume ID so we can make sure the file is on
		cmp	[my_vcr_ptr]		;the same volume.
		bne	look_loop		;File is on another volume

		ldy	#msdos_fcr.file_id
		lda	[msdos_fcr_ptr],y	;see if this is the same file
		cmp	files_key_block
		bne	look_loop
		lda	#file_busy
		bra	destroy_error		;cannot delete an open file

not_open

		ldy	files_key_block
		lda	math_temp		;storage TYPE!!!
		cmp	#subdir_type
		bne	check_tree

;==========================================================================
;It's a directory so go ahead and try to delete it.  We can only delete
;it if there are no files in the directory.  Y=key block of the file
;==========================================================================
		jsr	kill_dir		;Y=key block
		bra	update_dir

check_tree
		cmp	#tree_type
		bne	check_sapling

;==========================================================================
;Go ahead and remove the tree file if you can.  Y=Key block of the file
;==========================================================================
		jsr	kill_tree		;Y=Key block of the file
		bra	update_dir		;update the directory now

check_sapling
		cmp	#sapling_type
		bne	check_seedling

;==========================================================================
;it's a sapling file so remove it.  Y=key block of the file
;==========================================================================

		jsr	kill_sapling
		bra	update_dir

check_seedling
		cmp	#seedling_type
		bne	check_res		;it better be a resource file

;==========================================================================
;This is a simple file to delete.  Y=data block that needs to be deleted
;==========================================================================

		jsr	kill_seedling
		bra	update_dir

check_res
		cmp	#resource_type
		bne	wrong_type

;==========================================================================
;This is the hardest of the files to delete, since it is made up of many
;files.  Y=key block of the file
;==========================================================================

		jsr	kill_resource
		bra	update_dir

wrong_type
		lda	#bad_store_type		;I should NEVER get this error!
		brl	destroy_error


update_dir
		php
		pha				;save the error code and flag

		jsr	flush_bitmap		;write out any left over bitmap changes
		bcs	piggy_back

;==========================================================================
;at this point we have removed all the blocks of the file.  We now need
;to update the directory entry itself.  The following parameters better
;be setup correctly or death and destruction will occur.
;
;               entries_blk_num         (block number of the entry to delete)
;               entry_offset            (offset to entry within the block)
;               dir_start_blk           (header block for this directory)
;
;==========================================================================

;==========================================================================
;Setup the buffer pointer and device parameters
;==========================================================================

		jsr	set_default_buf

;==========================================================================
;We want to load in the block that contains the files entry.
;==========================================================================

		lda	entries_blk_num
		sta	drvr_blk_num
		jsr	read_with_cache
		bcs	piggy_back

;==========================================================================
;We have loaded the block, now lets zap the entry to indicate that it's
;dead.
;==========================================================================

		ldy	entry_offset
		lda	[drvr_buf_ptr],y
		and	#$FF00			;clear storage type and name length
		sta	[drvr_buf_ptr],y

;==========================================================================
;before we write the block back to disk lets see if it is the key block
;This way we save an extra write to disk
;==========================================================================

		lda	[drvr_buf_ptr]		;check the previous link
		beq	update_header		;don't write block twice

;==========================================================================
;write the entries block back to disk.
;==========================================================================

		jsr	write_with_cache
		bcc	fix_header
piggy_back	brl	destroy_exit		;Major problems.

fix_header

;==========================================================================
;Now lets go and update the header of this directory.
;==========================================================================

		lda	dir_start_blk
		sta	drvr_blk_num

		jsr	read_with_cache
		bcs	piggy_back

update_header
		lda	[drvr_buf_ptr]
		bne	dir_damaged

		ldy	#$0023
		lda	[drvr_buf_ptr],y
		cmp	#$0D27
		bne	dir_damaged

		ldy	#header_file_cnt
		lda	[drvr_buf_ptr],y
		dec	a
		bmi	dir_damaged
		sta	[drvr_buf_ptr],y

		ldx	drvr_blk_num		;see if this is the root directory
		cpx	#vol_dir_start
		bne	not_root

		pha
		jsr	setup_my_vcr
		pla
		ldy	#msdos_vcr.file_count	;update the file count in VCR also

		sta	[msdos_vcr_ptr],y

;==========================================================================
;write the header block back to disk.
;==========================================================================

not_root
		jsr	write_with_cache
		bcs	piggy_back

;==========================================================================
;Now we need to ripple back.  This routine will time stamp all previous
;subdirectory files with the current time.
;==========================================================================

do_ripple
		jsr	slug_ripple
		pla				;restore any error code
		plp				;restore error flag from delete
		bra	piggy_back

dir_damaged
		lda	#dir_error
		brl	destroy_error

;==========================================================================
;==========================================================================
;=====  END of MAIN CODE FOR DESTROY ======================================
;==========================================================================
;==========================================================================

kill_dir

;==========================================================================
;This routine is called when we are deleting a directory.  Before we delete
;the directory we must make sure that there are NO files in the directory.
;
;input:         Y = key block address of the directory
;==========================================================================

		sty	drvr_blk_num
		jsr	standard_req		;read of 512 bytes
		jsr	set_default_buf		;use GS/OS system work buffer

		lda	drvr_buf_ptr
		sta	temp_ptr
		lda	drvr_buf_ptr+2
		sta	temp_ptr+2

		jsr	read_with_cache
		bcs	dir_err_exit

		lda	[drvr_buf_ptr]		;the previous link better be zero
		bne	dir_damaged
		ldy	#$0023			;verify that this is a directory
		lda	[drvr_buf_ptr],y
		cmp	#$0D27
		bne	dir_damaged

		ldy	#header_file_cnt
		lda	[drvr_buf_ptr],y
		beq	remove_dir		;it's ok to delete the directory
		brl	wrong_access

remove_dir
		lda	[drvr_buf_ptr]
		beq	first_block
		cmp	data_ptr
		bne	dir_damaged

first_block
		ldx	drvr_blk_num
		stx	data_ptr

dir_loop
		jsr	dealloc_block		;remove the block please
		bcs	dir_err_exit

		lda	temp_ptr
		sta	drvr_buf_ptr
		lda	temp_ptr+2
		sta	drvr_buf_ptr+2

;==========================================================================
;Verify that the backward link is correct, and if it is then delete the blk
;==========================================================================

		ldy	#$0002			;walk the forward links
		lda	[drvr_buf_ptr],y
		sta	drvr_blk_num
		beq	dir_done		;the forward link is nill so we are done
		jsr	read_with_cache
		bcc	remove_dir

dir_err_exit
		rts

dir_done
		clc
		rts

kill_resource
		sty	drvr_blk_num
		sty	data_ptr		;save key block of the file
		jsr	standard_req

;==========================================================================
;Allocate a one block buffer
;==========================================================================

		clc
		lda	#blk_size
		jsl	alloc_seg		;allocate a one block buffer
		bcs	res_err_exit
		stx	virtual
		stx	displacement
		sty	virtual+2		;save the virtual pointer please
		sty	displacement+2

		jsl	deref			;convert this to a real address
		stx	drvr_buf_ptr		;save the address of the buffer
		stx	temp2_ptr
		sty	drvr_buf_ptr+2
		sty	temp2_ptr+2

		jsr	read_with_cache		;read in the resource header block
		bcs	res_err_exit

		lda	[temp2_ptr]		;get the storage type
		and	#$00FF
		tax				;save storage type
		ldy	#$0001
		lda	[temp2_ptr],y
		beq	res_bad
		tay				;key block of the resource
		jsr	zap_branch		;delete the resource
		bcs	res_err_exit

		ldy	#$0100
		lda	[temp2_ptr],y		;get the storage type
		and	#$00FF
		tax				;save storage type
		iny
		lda	[temp2_ptr],y
		beq	res_bad
		tay				;key block of the resource
		jsr	zap_branch		;delete the resource
		bcs	res_err_exit

res_done
		ldx	displacement		;release memory used by the call
		ldy	displacement+2
		jsl	release_seg		;release the one block of head space

		ldy	data_ptr
		brl	kill_seedling		;remove the last block now

;==========================================================================
res_bad
		lda	#out_of_range		;resource block is screwed up
res_err_exit
		jsr	free_header_buf
		sec
		rts
;===========================================================================
;this routine will delete a resource branch.
;X = storage type
;Y = key block
;output : carry clear = no error
;
zap_branch
		dex
		bne	not_seedling
		jsr	kill_seedling
		rts
not_seedling
		dex
		bne	not_sapling
		jsr	kill_sapling
		rts
not_sapling	dex
		bne	@res_error		;file screwed up
		jsr	kill_tree
		rts
@res_error
		sec
		rts
;==========================================================================

free_header_buf
		pha				;save the error code
		ldx	displacement
		ldy	displacement+2
		jsl	release_seg		;release the one block of head space
		pla
		rts

;==========================================================================
;The following code will delete a tree file.  It will also flip the index
;block and write it back out to disk.
;
;input:         Y = key block of the file
;
;==========================================================================
kill_tree
		sty	drvr_blk_num
		sty	master_ptr

		clc
		lda	gbuf_addr
		adc	#blk_size
		sta	drvr_buf_ptr
		sta	temp3_ptr
		lda	gbuf_addr+2
		adc	#$0000
		sta	drvr_buf_ptr+2
		sta	temp3_ptr+2
		jsr	standard_req

		jsr	read_with_cache
		bcs	master_error

		lda	#$0100			;start at the last entry
		pha

master_loop
		lda	temp3_ptr		;restore pointer to I/O buffer
		sta	temp_ptr
		lda	temp3_ptr+2
		sta	temp_ptr+2

inner_master
		pla				;get the current index
		dec	a
		bmi	master_done
		pha
		tax
		ora	#$0100
		tay
		jsr	get_and_flip		;get and flip the index block number

		tay
		beq	inner_master

		jsr	kill_sapling
		bcs	master_pop
		bra	master_loop

master_done
		ldx	temp_ptr
		ldy	temp_ptr+2
		lda	master_ptr
		jsr	write_flipped		;write master index block flipped
		bcs	master_error

		ldy	master_ptr
		bra	kill_seedling

master_error
		rts

master_pop
		pla
		sec
		rts

;==========================================================================
;The following code will delete a sapling file.  It will also flip the index
;block and write it back out to disk.
;
;input:         Y = key block of the file
;
;==========================================================================
kill_sapling

;==========================================================================
;Now we need to read in the index block and deallocate all allocated blocks
;==========================================================================

		sty	drvr_blk_num
		sty	index_ptr		;save for later delete

		jsr	set_default_buf
		lda	drvr_buf_ptr
		sta	temp_ptr
		lda	drvr_buf_ptr+2
		sta	temp_ptr+2

		jsr	standard_req
		jsr	read_with_cache
		bcs	index_error

		lda	#$0100			;start at the last entry
		pha

index_loop
		pla				;get the current index
		dec	a
		bmi	index_done
		pha
		tax
		ora	#$0100
		tay

		jsr	get_and_flip		;get the block number from index buffer

		tax
		beq	index_loop
		jsr	dealloc_block		;free the block up please
		bcc	index_loop
		plx
		rts

index_done
		ldx	temp_ptr
		ldy	temp_ptr+2
		lda	index_ptr
		jsr	write_flipped
		bcc	kill_index
index_error	rts

kill_index
		ldy	index_ptr		;now release the last block please

;==========================================================================
;This routine will free up a seedling files block.
;
;input:         Y = key block of the file.
;
;==========================================================================

kill_seedling
		tyx
		jsr	dealloc_block
		rts				;return error


;==========================================================================
;this routine will write a flipped index block to disk
;
;input:
;               X = low word of buffer pointer
;               Y = high word ''''
;               A = block number
;
;Output:
;               A = error if carry set
;
;==========================================================================

write_flipped
		stx	drvr_buf_ptr
		sty	drvr_buf_ptr+2
		sta	drvr_blk_num
		jsr	write_with_cache
		rts

;==========================================================================
;This routine will flip the block number within an index block.
;
;input:
;               X  =  Index into the lower half of the index block
;               Y  =  Index into the higher half of the index block
;        temp_ptr  =  pointer to the index block
;
;OutPut:
;               A  =  Block number from index block
;
;==========================================================================
get_and_flip
		longa	off
		sep	#$20

		lda	[temp_ptr],y		;grab the high block number
		xba				;put high block number in upper byte
		phy				;save high byte index

		txy
		lda	[temp_ptr],y		;get the low block number

		xba				;restore high block number
		sta	[temp_ptr],y		;store high block number in low half

		xba				;restore low block number
		ply				;get high byte index
		sta	[temp_ptr],y		;store low block number in high half

		longa	on
		rep	#$20
		rts
		ENDP
	endif
	if NOT read_only_fst then
		Eject
;======================================================================
;Change_Path    This file will RENAME or MOVE a file to a new directory
;
;Created:       Nov 04, 1987
;Modified:      Nov 04, 1987
;Author:        Rob Turner
;
;Enter:         From GS/OS jmp table
;
;Input:         A = undefined
;               X = (call number * 2)
;               Y = (class number * 2)
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = error code if carry set (exit via system exit routine)
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;Uses:          All registers
;               Device Dispatcher       (subroutine)
;               General I/O Buffer      (1K buffer, I read 512 bytes)
;               find_file               (subroutine)
;
;Call Format:
;
;Class 0        Source Pathname Pointer (4 Bytes)
;               Destination Path Pointer(4 Bytes)
;
;Class 1        PCount                  (2 Bytes)
;               Source Pathname Pointer (4 Bytes)
;               Destination Path Pointer(4 Bytes)
;		Flags			(2 Bytes)
;
;======================================================================
		longa	on
		longi	on

change_path	PROC	Export
		with	my_dp

		jsr	setup_params
		
; If the source is only a device # then set cp_device_flag to 1. 
; This is a special case so that the Finder can rename a volume whose current name 
; is a duplicate of another volume which has open files.  1/22/91 CAE
 
		lda	<path_flag		;get pathname flags
		and	#path1_mask		;is pathname 1 defined?
		bne	@not_dev		;yes
		lda	<dev_num		;do we have a device #?
		beq	@not_dev		;no
		inc	cp_device_flag		;yes - so indicate source was a device #

; If pCount was 3 or more, get the cp_flags from the parameter block.  5-Dec-91 MSD

		lda	pcount
		cmp	#3			; did it include cp_flags?
		blt	@not_dev		; no, so leave cp_flags set to 0.
		ldy	#pblk_04_flags
		lda	[my_pblk_ptr],y		; get flags from param block
		sta	cp_flags

; End 5-Dec-91 MSD

@not_dev

		jsr	process_path		;see if the source file exist also sets up priority bit
						;and now checks the spans.		10/10/91 JEV
		
		jsr	valid_change
		bcs	end_change

		lda	slug_block		;save for slug ripple routine
		sta	src_slug_blk
		lda	slug_offset
		sta	src_slug_offset

		jsr	chk_disk_protect
		jsr	save_src_parms
		jsr	move_dir_entry		;move entry into one_entry
		jsr	chk_open		;see if the file is currently open
		bcs	end_change
		jsr	process_dest		;find the destination name
		bcs	end_change
		
; Moved this code from valid change to here to make ProDOS conform to the way HFS
; and AppleShare do a change path.  The check for a moving to a child of the original 
; does not occur until after we check to see if the destination allready exsists.
;			      					10/3/91 JEV
		
;
; IF (path1 is a subset of path2) THEN
;    Bad_path_syntax

		;The following code has been changed to do a case-insensitive
		;compare in order to fix a bug which was allowing illegal moves
		;if the case of the pathnames was different.  1/22/91 CAE

		jsr	setup_path1	;Path1_ptr --> temp_ptr
		jsr	setup_path2	;Path2_ptr --> temp2_ptr
		
		ldy	#$0000		;start scan at beginning
		longa	off
		sep	#$20
		
subset_loop	
		lda	[temp_ptr],y	;get source file char
		cmp	[temp2_ptr],y	;get dest file char
		bne	@no_match	;nope
		iny			;adjust index
		bra	subset_loop	;and loop
@no_match
		
more_chk				; 
		lda	[temp2_ptr],y	;this cannot be a 'delimiter'
		cmp	#delimiter
		longa	on		;go ahead and fix the mode
		rep	#$20
		bne	@not_subset
		lda	[temp_ptr],y	;is this the end of the source?
		and	#$00FF
		bne	@not_subset	;not the end of source name
		
; 27-Jan-92 MSD: We let valid_change see if the source path is a subset of the
; destination path (i.e. we're trying to move an item into its own child).  If
; that was the case, cp_to_child will be non-zero

		lda	cp_to_child	; were we moving into our own child?
		beq	@not_subset	; no, so do the move
		
		lda	#bad_path_syntax ; source path was a subset of destination path
		sec
		bra	end_change

@not_subset
		jsr	save_dest_parms
		jsr	rename_or_move

end_change
		pha				;save the error code
		php
		jsr	flush_bitmap		;make sure the bitmap is OK!
		plp				;restore error flag
		pla				;restore error code if any
		brl	main_exit

;======================================================================

chk_open
		stz	fcr_wanted		;start from the beginning
		lda	one_entry+key_blk_index
		sta	key_block
open_loop
		jsr	get_next_fcr
		bcs	end_chk_open

		ldy	#fcr.vol_id
		lda	[my_fcr_ptr],y		;get the Volume ID so we can make sure the file is on
		cmp	[my_vcr_ptr]		;the same volume.
		bne	open_loop		;File is on another volume

		ldy	#msdos_fcr.file_id
		lda	[msdos_fcr_ptr],y
		cmp	key_block
		bne	open_loop

		lda	#file_busy
		sec
		rts

end_chk_open					; ;the file is not open
		clc
		rts

;======================================================================

rename_or_move					; ;what will we do?
		lda	src_dev_num
		cmp	dest_dev_num
		bne	bad_device		;cannot rename on different devices
		lda	src_start_blk
		cmp	dest_start_blk		;is the file in the same directory?
		beq	do_rename		;this can only be a rename
;
;IF here we are doing a change_path
;
		jsr	move_file		;do a change_path please
		rts

;
;IF here we are doing a simple rename
;
do_rename
		jsr	rename_file
		rts

bad_device
		brl	bad_path

;======================================================================
move_file

; First, we need to check the file/dir that we're moving to see if it's
; 'rename enabled'.  If it isn't, then we need to make sure we're just
; doing a move and not a 'move and rename'.
; Added 3/15/91 CAE

		jsr	standard_req		;read in 512 bytes
		jsr	set_default_buf
		lda	src_dev_num
		sta	drvr_dev_num
		lda	src_dir_blk		;block that contains the entry
		sta	drvr_blk_num
		jsr	read_with_cache
		bcs	to_end_move_file

		clc
		lda	src_offset
		adc	#access_index
		tay
		lda	[drvr_buf_ptr],y
		and	#rename_enabled		;can we rename the file?
		bne	@ok			;branch if rename is OK

		ldy	src_offset		;rename is not allowed so
		lda	[drvr_buf_ptr],y	;get file's name length
		and	#$000f			;strip off storage nibble and hi byte
		cmp	search_length		;same as dest name length?
		beq	@cont			;yes - so compare the names

@uh_oh		rep	#$20			;ensure 16 bit mode
		sec
		lda	#invalid_access		;report an error
		rts

@cont		tax				;calculate offset to end of dest name
		dex				;and put in X
		clc
		adc	src_offset		;calculate offset to end of file's name
		tay				;in the dir entry and put in Y

		longa	off
		sep	#$20			;begin 8 bit mode

@loop		lda	[drvr_buf_ptr],y	;compare file's name
		cmp	search_name,x		;to dest name
		bne	@uh_oh			;branch if mis-match
		dey
		dex
		bpl	@loop			;loop until done

		longa	on
		rep	#$20			;begin 16 bit mode
@ok

; End of new code.

		ldx	free_dir_blk		;do we need to extend the directory?
		bne	no_extend
		jsr	calc_free_blks		;do we have a free block
		bcs	to_end_move_file	;NO we have an error
		tax
		bne	not_full
		brl	full_disk
not_full
		jsr	extend_subdir		;grow the subdirectory
		bcs	end_move_file

		lda	free_dir_offset		;offset to directory entry
		sta	dest_offset
		lda	free_dir_blk		;block that contains entry
		sta	dest_dir_blk

no_extend
		jsr	standard_req		;512 bytes
		jsr	set_default_buf		;use the temp buffer

		lda	src_dir_blk		;move and delete the old entry
		sta	drvr_blk_num
		jsr	read_with_cache
		bcs	end_move_file
		jsr	delete_entry		;move entry and delete it
		jsr	write_with_cache
to_end_move_file
		bcs	end_move_file

		lda	src_start_blk
		sta	drvr_blk_num
		jsr	read_with_cache
		bcs	end_move_file
		jsr	dec_file_cnt
		jsr	write_with_cache
		bcs	end_move_file
		jsr	do_src_slug

		lda	dest_start_blk		;new header pointer
		sta	one_entry+header_ptr_index
		lda	dest_dir_blk		;block
		sta	drvr_blk_num
		jsr	read_with_cache
		bcs	end_move_file
		jsr	move_old_entry
		ldy	dest_offset
		jsr	move_new_name		;rename the entry
		jsr	write_with_cache
		bcs	end_move_file

		lda	dest_start_blk		;now update the file count
		sta	drvr_blk_num
		jsr	read_with_cache
		bcs	end_move_file
		jsr	inc_file_cnt
		jsr	write_with_cache
		bcs	end_move_file
		jsr	do_dest_slug

		lda	storage_type
		and	#$00F0			;see if this is a subdirectory
		cmp	#subdir_type
		bne	move_done
		jsr	fix_subdir
		rts
move_done
		clc
end_move_file
		rts
full_disk
		lda	#volume_full
		sec
		rts
do_src_slug
		lda	src_slug_blk
		sta	slug_block
		lda	src_slug_offset
		sta	slug_offset
		bra	do_slug
do_dest_slug
		lda	dest_slug_blk
		sta	slug_block
		lda	dest_slug_offset
		sta	slug_offset
do_slug
		jsr	slug_ripple
		rts
fix_subdir
		lda	one_entry+key_blk_index
		sta	drvr_blk_num
		jsr	read_with_cache		;read in the key block

		bcs	end_fix_subdir
		lda	dest_dir_blk		;block number where entry is
		ldy	#parent_index
		sta	[drvr_buf_ptr],y

		lda	#subdir_header
		sta	storage_type
		ldy	#$0004			;rename the subdirectory as well
		jsr	move_new_name

		jsr	make_entry_num
		bcs	end_fix_subdir
		ldy	#parent_index+2
		sta	[drvr_buf_ptr],y
		jsr	write_with_cache
end_fix_subdir
		rts

dec_file_cnt
		ldy	#header_file_cnt
		lda	[drvr_buf_ptr],y
		dec	a			;update the file count for directory
		bmi	end_dec
		sta	[drvr_buf_ptr],y
		jsr	chk_vol_cnt		;pass the new count in the accum
end_dec
		rts

inc_file_cnt
		ldy	#header_file_cnt
		lda	[drvr_buf_ptr],y
		inc	a			;update the file count for directory
		sta	[drvr_buf_ptr],y
		jsr	chk_vol_cnt		;pass the new count in the accum
		rts
;
;The new count is in the accumulator
;
chk_vol_cnt
		ldy	drvr_blk_num		;our we updating the Root Level of the disk?
		cpy	#vol_dir_start
		bne	@not_vol
;
;Now we need to update the VCR
;
		ldy	#msdos_vcr.file_count
		sta	[msdos_vcr_ptr],y
@not_vol
		rts

delete_entry
		ldx	#$0000
		ldy	src_offset
delete_loop					; ;move the entry to one_entry
		lda	[drvr_buf_ptr],y
		sta	one_entry,x
		iny
		inx
		cpx	#entry_length
		bne	delete_loop

		ldy	src_offset
		lda	[drvr_buf_ptr],y
		and	#$FF00			;clear storage/length field
		sta	[drvr_buf_ptr],y
		rts

move_old_entry
		ldx	#$0000
		ldy	dest_offset
		longa	off
		sep	#$20
change_loop
		lda	one_entry,x
		sta	[drvr_buf_ptr],y
		iny
		inx
		cpx	#entry_length
		bne	change_loop
		longa	on
		rep	#$20
		rts


;======================================================================
rename_file
		jsr	standard_req		;read in 512 bytes
		jsr	set_default_buf
		lda	src_dev_num
		sta	drvr_dev_num
		lda	src_dir_blk		;block that contains the entry
		sta	drvr_blk_num
		jsr	read_with_cache
		bcs	end_rename

		clc
		lda	src_offset
		adc	#access_index
		tay
		lda	[drvr_buf_ptr],y
		and	#rename_enabled		;can we rename the file?
		bne	@10			;rename is OK
		sec
		lda	#invalid_access		;sorry bud
		rts				;return with the error please

@10
		clc
		lda	src_offset		;get the key block
		adc	#key_blk_index
		tay
		lda	[drvr_buf_ptr],y
		sta	one_entry+key_blk_index

		ldy	src_offset		;offset the old name
		lda	[drvr_buf_ptr],y
		and	#$00F0			;isolate the storage type
		sta	storage_type
		cmp	#volume_header
		beq	rename_vol
		cmp	#subdir_type
		beq	type_ok
		cmp	#seedling_type
		beq	type_ok
		cmp	#sapling_type
		beq	type_ok
		cmp	#tree_type
		beq	type_ok
		cmp	#resource_type
		bne	bad_type
type_ok
		ldy	src_offset
		jsr	move_new_name
		jsr	write_with_cache
		bcs	end_rename
		lda	storage_type
		and	#$00F0			;clear the garbage
		cmp	#subdir_type
		bne	end_rename_clr
		lda	src_dir_blk
		sta	dest_dir_blk
		lda	src_offset
		sta	free_dir_offset
		jsr	fix_subdir
		bcs	end_rename
end_rename_clr
		jsr	slug_ripple		;ripple the time please
end_rename
		rts
bad_type
		lda	#bad_store_type
		sec
		rts

;Rename a volume.
;
;Note - if cp_device_flag is $8001 then we're renaming a duplicate volume. In this
;       case, don't call chk_boot_vol since the duplicate volume could have the same
;       name as the boot volume and we don't want to change the boot prefix.
;       3/26/91 CAE

rename_vol
		pei	my_vcr_ptr
		pei	my_vcr_ptr+2
		jsr	Check_dup_dest		;see if the destination name is an active VCR
		ply
		sty	my_vcr_ptr+2
		ply
		sty	my_vcr_ptr
		bcc	@not_active
		rts
@not_active
		ldy	volume_name		;terminate the new name with a null
		lda	#$0000
		sta	volume_name+2,y

;               jsr     chk_boot_vol    ;moved after call to setup_name 3/26/91 CAE

		lda	#volume_name		;move the name to search_name and
		sta	temp_ptr		;do syntax checking on the name
		lda	#^volume_name
		sta	temp_ptr+2
		lda	#$0002			;starting index for check
		sta	chars_checked
		jsr	setup_name
						;following 2 lines added 3/26/91 CAE
		lda	cp_device_flag		;are we renaming a duplicate volume?
		bmi	@skip_chk		;yes - so don't change the boot prefix
		jsr	chk_boot_vol		;change boot prefix if renaming boot volume
@skip_chk
		lda	[my_vcr_ptr]		;get the VCR ID
		ldx	#volume_name		;pointer to the new name
		ldy	#^volume_name
		jsl	rename_vcr

@go_type_ok
		clc
		brl	type_ok

;======================================================================
;We need to make sure that the destination name is not an allocated
;VCR with open files.  If we find a VCR with open files then we should
;remove it or return duplicate volume error.
;======================================================================
Check_dup_dest
		lda	[my_vcr_ptr]		;get the VCR ID of the source
		pha

		ldx	#volume_name		;pointer to the volume name
		ldy	#^volume_name
		lda	#0000			;0000=search for vcr by name
		jsl	find_vcr
		bcc	@handle_dup
@no_dup_error
		pla				;just fix the stack
		clc
		rts				;no problem
@handle_dup
		jsl	deref			;convert virtual to real
		stx	my_vcr_ptr
		sty	my_vcr_ptr+2		;setup pointer to VCR

		lda	[my_vcr_ptr]		;get the VCR ID of the destination.
		cmp	1,s			;is source = dest?
		beq	@no_dup_error
		pla				;we must fix the stack

		ldy	#vcr.open_cnt
		lda	[my_vcr_ptr],y
		bne	@sorry_dup		;files open so don't log in new volume
		jsr	free_vcr		;free vcr pointed to by 'my_vcr_ptr'
		clc
		rts				;we are happy again!

@sorry_dup
		lda	#dup_volume		;duplicate volume online
		sec
		rts


;======================================================================

move_new_name
		phy
		ldx	#14
		lda	#$0000
clear_old
		sta	[drvr_buf_ptr],y
		iny
		dex
		bpl	clear_old
		ply

		phy
		ldx	#$0000			;index into new name
		longa	off
		sep	#$20			;8 bit mode
		lda	storage_type
		ora	search_length
		sta	[drvr_buf_ptr],y
		iny
name_store
		lda	search_name,x		;first ascii character
		sta	[drvr_buf_ptr],y
		iny
		inx
		cpx	search_length
		bne	name_store		;move the entire name

		longa	on
		rep	#$20
		pla				;get index to the storage type 
		clc
		adc	#version_index
		tay

		lda	storage_type
		cmp	#volume_header
		beq	@skip_case_save

@do_both	lda	case_bits		;set the case bits please
		beq	@do_save		;the case is all upper

		bit	fst_attr		;user does not want case info
		bmi	@do_save
		ora	#$8000			;set the case on bit.
@do_save
		sta	[drvr_buf_ptr],y
		rts


@skip_case_save
		ldy	#create_index+4-2	;save the case bits please
		jsr	@do_both
		ldy	#msdos_vcr.create-2
		sta	[msdos_vcr_ptr],y
		rts

;======================================================================
chk_boot_vol					;change the boot prefix if needed
		ldy	src_offset		;original name of volume
		lda	[drvr_buf_ptr],y
		and	#$000F			;clear storage type etc.
		inc	a			;add one for leading ':'
		sta	def_vol_name		;length word
		lda	#'::'			;leading ':'
		sta	def_vol_name+2

		iny				;point to the first character
		ldx	#$0000
boot_loop
		lda	[drvr_buf_ptr],y
		sta	def_vol_name+3,x
		iny
		inx
		cpx	#16			;move the max number of characters
		bne	boot_loop

		jsl	get_boot_pfx		;get the pointer to the current volume
		stx	temp_ptr
		sty	temp_ptr+2

		lda	[temp_ptr]		;verify the length
		cmp	def_vol_name
		bne	not_same
		tay				;use as index
		iny				;get the last character please

		longa	off
		sep	#$20
boot_loop2
		lda	[temp_ptr],y
		cmp	def_vol_name,y
		bne	not_same
		dey
		bpl	boot_loop2		;check the entire volume name

		longa	on
		rep	#$20

		lda	volume_name		;get the length word of the new name
		tay
		inc	a			;add one for leading ':'
		sta	def_vol_name
		lda	#'::'
		sta	def_vol_name+2
new_boot
		lda	volume_name+1,y
		sta	def_vol_name+2,y
		dey
		bne	new_boot

		ldx	#def_vol_name		;pointer to the new name
		ldy	#^def_vol_name
		jsl	set_boot_pfx
not_same
		longa	on
		rep	#$20
		rts

;======================================================================

save_src_parms
		lda	drvr_dev_num		;save source info
		sta	src_dev_num
		lda	dir_start_blk		;starting block of directory
		sta	src_start_blk
		lda	entry_offset		;offset to directory entry
		sta	src_offset
		lda	parent_blk		;block that contains entry
		sta	src_dir_blk
		rts

save_dest_parms
		lda	drvr_dev_num		;save source info
		sta	dest_dev_num
		lda	dir_start_blk		;starting block of directory
		sta	dest_start_blk
		lda	free_dir_offset		;offset to directory entry
		sta	dest_offset
		lda	free_dir_blk		;block that contains entry
		sta	dest_dir_blk
		rts

;======================================================================

process_dest
		lda	path1_ptr		;save pathname one pointer
		sta	curr_mark
		lda	path1_ptr+2
		sta	curr_mark+2		;temp save area!!!!!!!!!!!!!!!
		lda	dev1_num
		sta	curr_eof
		lda	path_flag
		sta	curr_eof+2		;temp storage

		lda	path2_ptr		;make path two appear as path one
		sta	path1_ptr
		lda	path2_ptr+2
		sta	path1_ptr+2

		lda	dev2_num
		sta	dev_num

		lda	path_flag
		and	#path2_mask
		xba
		sta	path_flag
;
;IF vol_rename_flag = minus then we are renaming the volume
;
		bit	vol_rename_flag
		bpl	normal_rename
		lda	#path1_mask

		ldx	path1_ptr
		ldy	path1_ptr+2
		jsr	build_path

		lda	src_dev_num
		sta	drvr_dev_num
		lda	src_start_blk
		sta	dir_start_blk
		lda	src_dir_blk
		sta	free_dir_blk
		lda	src_offset
		sta	free_dir_offset
		jsr	restore_path1
		clc
		rts

normal_rename

		lda	#no_dup			;duplicate not allowed
		sta	search_flag
		jsr	process_path		;find the destination

		ldx	slug_block		;save for slug_ripple routine
		stx	dest_slug_blk
		ldx	slug_offset
		stx	dest_slug_offset

		bcs	no_dup_problem

		lda	drvr_dev_num		;did the user enter the same name?
		cmp	src_dev_num
		bne	dup_prob		;duplicate filename
		lda	dir_start_blk
		cmp	src_start_blk
		bne	dup_prob
		lda	parent_blk		;block that contains entry
		cmp	src_dir_blk
		bne	dup_prob
		lda	entry_offset		;offset to directory entry
		cmp	src_offset
		bne	dup_prob
		jsr	restore_path1
		clc
		rts				;renaming the same file

dup_prob
		jsr	restore_path1
		lda	#dup_pathname
real_problem
		sec
		rts

no_dup_problem
		pha
		jsr	restore_path1
		pla
		bit	path_searched		;was the entire path searched?
		bpl	real_problem
		clc
		rts

restore_path1					; ;restore path1 stuff
		lda	curr_mark
		sta	path1_ptr
		lda	curr_mark+2
		sta	path1_ptr+2
		lda	curr_eof
		sta	dev_num
		lda	curr_eof+2
		sta	path_flag
		rts

;======================================================================
;Possible combinations of pathnames
;
;(1)            .DEV1                --> /FOO          (Rename)
;(2)            /FOO1                --> /FOO          (Rename)
;(3)            /FOO1/PATHNAME       --> /FOO1/NEWNAME (Rename)
;(4)            /FOO1/SUB/FILE       --> /FOO1/FILE    (Change path)
;(5)            .DEV1/FILE           --> /FOO/NEW.NAME (Rename)
;(6)            .DEV1/FILE           --> /FOO/SUB/FILE (Change path)
;(7)            /FOO/FILE            --> .DEV1/SUB/NEW (Change path)
;(8)            /FOO/FILE            --> .DEV1/NEW     (rename)
;
;Invalid Pathnames:
;
;(1)            /FOO                 --> .DEV1
;(2)            /FOO                 --> /FOO/FILE
;(3)            /FOO/SUB/            --> /FOO/SUB/SUB1/SUB
;(4)            /FOO/FILE            --> /FOO
;(5)            /FOO/FILE            --> .DEV1
;
;======================================================================

valid_change
		stz	cp_to_child	; assume source is not a subset of dest
		stz	vol_rename_flag
		lda	path_flag
		and	#path2_mask		;there has to be a second pathname
		beq	to_bad_path

		jsr	setup_path1		;Path1_ptr --> temp_ptr
		jsr	setup_path2		;Path2_ptr --> temp2_ptr

;
;IF (Path1 = device_name) THEN
;   (Path2 must be a volume name only)
;
;
		lda	path_flag		;is path1 a device name only?
		and	#path1_mask
		bne	not_device		;not just a device name
		lda	dev2_num
		bne	to_bad_path		;path2 cannot contain a device name
		ldx	temp2_ptr
		ldy	temp2_ptr+2
		jsr	scan_pass_vol		;pass the volume name IF possible
		bcc	to_bad_path		;there is more then just a volume name
;
;We are doing the following:  '.DEV1' to '/FOO'
;
		bra	volume_rename

to_bad_path
		brl	bad_path
;
; IF (Path1 = volume_only) THEN
;    (Path2 must be volume only)
;
not_device
		lda	dev1_num		;IF dev <> 00 THEN not volume only
		bne	chk_same_dev
		ldx	temp_ptr		;pointer to path1
		ldy	temp_ptr+2
		jsr	scan_pass_vol
		bcc	not_vol_only		;path1 <> volume only
;
; IF (path1 - volume) and ((path2 = device) or (path2 = dev/vol)) THEN
;    bad_path_syntax
;
		lda	path_flag
		and	#path2_mask
		beq	to_bad_path
		lda	dev2_num		;is there a device name also?
		bne	a_bad_path

		ldx	temp2_ptr
		ldy	temp2_ptr+2
		jsr	scan_pass_vol		;pass the volume name IF possible
		bcc	to_bad_path		;path2 <> volume only
;
;We are doing the following:  '/FOO1' to '/FOO'
;
volume_rename
		dec	vol_rename_flag
		clc
		rts
;
;IF (Path1 <> volume only) THEN
;   (Path2 MUST be a pathname)
;
chk_same_dev
		lda	dev2_num		;is the rename on the same device?
		beq	not_vol_only
		cmp	dev1_num
a_bad_path	bne	to_bad_path

not_vol_only
		lda	path_flag
		and	#path2_mask		;is there a pathname?
		beq	bad_path		;must be device name only
		lda	dev2_num		;IF (dev = true) and (path = true) THEN
		bne	path2_is_path		;   (path2 = pathname)

		ldx	temp2_ptr
		ldy	temp2_ptr+2
		jsr	scan_pass_vol
		bcs	bad_path		;Path2 = volume name only!
		stx	temp2_ptr
		sty	temp2_ptr+2
;
;IF (path2 = path2-volume_name) and (path1 = volume_name) THEN
;   Path1 := Path1-volume_name
;
		lda	dev1_num		;does path1 contain a volume name?
		bne	do_scan			;no it does not
		ldx	temp_ptr
		ldy	temp_ptr+2
		jsr	scan_pass_vol		;scan past the volume name
		stx	temp_ptr
		sty	temp_ptr+2
		bra	do_scan

;
; When Here Path1 and Path2 are both pathnames!
;
; IF (Path1 = dev) and (path2 = vol) THEN
;    path2 := path2-volume name
;
path2_is_path
		lda	dev1_num		;does path1 contain a device name?
		beq	path1_volume		;NO

		lda	dev2_num		;does path2 contain a device name?
		bne	do_scan			;path1 and path2 contains device names

		ldx	temp2_ptr
		ldy	temp2_ptr+2		;scan pass the volume name
		jsr	scan_pass_vol
		stx	temp2_ptr
		sty	temp2_ptr+2
		bra	do_scan			;everything is OK so far

;
; IF (path1 = volume) and (path2 = dev) THEN
;    path1 := path1-volume_name

path1_volume
		lda	dev2_num		;does path2 contain a
		beq	do_scan			;Path1 and path2 contain volume names

;
; IF (path2 = dev) and (path1 = vol) THEN
;    path1 := path1-volume_name
;
scan_path1
		ldx	temp_ptr		;path1
		ldy	temp_ptr+2
		jsr	scan_pass_vol		;pass the volume name
		stx	temp_ptr
		sty	temp_ptr+2

		;The following code was moved into the changepath code so
		;that ProDOS conforms to the way AppleShare and HFS do a 
		;changepath.  The check to see if the path1 is a subset 
		;of path2 should not be done until after we check to see 
		;if the path2 allready exsists.               10/3/91 JEV
;
; IF (path1 is a subset of path2) THEN
;    set cp_to_child

						;The following code has been changed to do a case-insensitive
						;compare in order to fix a bug which was allowing illegal moves
						;if the case of the pathnames was different.  1/22/91 CAE

do_scan					; 
		ldy	#$0000		;start scan at beginning
		longa	off
		sep	#$20
subset_loop				; 
;		lda	[temp_ptr],y		;source file
;		cmp	[temp2_ptr],y		;destination
;		bne	more_chk
;		iny
;		bra	subset_loop
		
		lda	[temp_ptr],y		;get source file char
		cmp	#'a'			;upper case?
		bcc	@its_upper1		;yes
		and	#$DF			;no - so convert to upper case
@its_upper1	pha				;save char
		lda	[temp2_ptr],y		;get dest file char
		cmp	#'a'			;upper case?
		bcc	@its_upper2		;yes
		and	#$DF			;no - so convert to upper case
@its_upper2	cmp	1,s			;same as source file char?
		bne	@no_match		;nope
		pla				;yes - so clean up stack
		iny				;adjust index
		bra	subset_loop		;and loop
@no_match	pla				;clean up stack
		
more_chk
		lda	[temp2_ptr],y		;this cannot be a 'delimiter'
		cmp	#delimiter
		longa	on			;go ahead and fix the mode
		rep	#$20
		bne	paths_ok
		lda	[temp_ptr],y		;is this the end of the source?
		and	#$00FF
		bne	paths_ok		;not the end of source name

		inc	cp_to_child		; source was subset of dest! 27-Jan-92 MSD

bad_path
		lda	#bad_path_syntax
		sec
		brl	main_exit

paths_ok	clc
		rts

;======================================================================

scan_pass_vol
		stx	temp3_ptr		;pointer to the string
		sty	temp3_ptr+2
		ldy	#$0001
		longa	off
		sep	#$20
scanner
		lda	[temp3_ptr],y
		beq	scan_failed		;sorry volume name only
		cmp	#delimiter
		beq	scan_passed
		iny
		bra	scanner

scan_passed
; 27-Jan-92 MSD: This routine was returning a pointer to the character
; before the pathname separator.  It should have been returning a pointer
; to the character after the separator.  Removed the DEY and changed a
; CLC to a SEC before adding (so it will add 1 to point past separator).
;
;		dey

		longa	on
		rep	#$20			;back to 16 bit mode
		sec				; 27-Jan-92 MSD (was CLC)
		dey
		longa	on
		rep	#$20			;back to 16 bit mode
		clc
		tya
		adc	temp3_ptr
		tax
		lda	#$0000
		adc	temp3_ptr+2
		tay
		clc				;not just a volume name
		rts

scan_failed
		longa	on
		rep	#$20
;               ldx     temp3_ptr
		ldy	temp3_ptr+2		;restore X and Y
		sec
		rts

;======================================================================

setup_path2
		ldx	path2_ptr
		ldy	path2_ptr+2
		inx
		bne	do_again
		iny
do_again	inx
		bne	cont
		iny
cont
		stx	temp2_ptr		;pointer to pathname two
		sty	temp2_ptr+2
		rts

;======================================================================

setup_path1
		ldx	path1_ptr
		ldy	path1_ptr+2
		inx
		bne	do2_again
		iny
do2_again	inx
		bne	cont2
		iny
cont2
		stx	temp_ptr		;pointer to pathname one
		sty	temp_ptr+2
		rts

		ENDP
	endif
	if NOT read_only_fst then
		Eject
;==========================================================================
;Set_file_info: This routine will alter information about a file on disk.
;
;Created:       may 26, 1987
;Modified:      jan 06, 1987
;Author:        Rob Turner
;
;Enter:         jml
;
;Input:         A = undefined
;               X = call number times 2
;               Y = class times 2
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;Uses:          All registers
;               find_file
;
;Call Format:
;
;Class 0        Pathname Pointer        (4 Bytes)
;               Access                  (2 Bytes: Disk Format)
;               File Type               (2 Bytes)
;               Aux Type                (4 Bytes)
;               Null Field              (2 Bytes)
;               Create Date/Time        (4 Bytes: ProDOS Format)
;               Mod Date/Time           (4 Bytes: ProDOS Format)
;
;Class 1        PCount                  (2 Bytes)
;               Pathname Pointer        (4 Bytes)
;               Access                  (2 Bytes: Disk Format)
;               File Type               (2 Bytes)
;               Aux Type                (4 Bytes)
;               Null Field              (2 Bytes)
;               Create Date/Time        (8 Bytes: Misc. Tools Format)
;               Mod Date/Time           (8 Bytes: Misc. Tools Format)
;               Option List             (4 Bytes)
;               Null Field              (4 Bytes)
;               Null Field              (4 Bytes)
;               Null Field              (4 Bytes)
;               Null Field              (4 Bytes)
;==========================================================================
		longa	on
		longi	on

set_file_info	PROC	Export
		with	my_dp

;==========================================================================
;Reset all time fields to zero.  This forces me to calculate the time if
;needed.  However, if the create time is set to zero then the create date
;and time fields will be left unchanged.
;==========================================================================

		stz	mod_time
		stz	mod_time+2

		stz	create_time
		stz	create_time+2

;==========================================================================
;Go and setup the default parameters for the call.
;==========================================================================

		jsr	setup_params
		php				;save class state

;==========================================================================
;Process the file name and locate it.
;==========================================================================

		jsr	process_path
		jsr	chk_disk_protect

;==========================================================================
;See if this is a volume header.  If it is then return 'bad_path_syntax'
;==========================================================================

		lda	[drvr_buf_ptr]
		and	#$00F0
		cmp	#volume_header
		bne	ok_to_change

		lda	#bad_path_syntax
set_info_err
		sec
set_info_exit
		brl	main_exit

;==========================================================================
;Move the directory entry into one entry please
;==========================================================================

ok_to_change
		jsr	move_dir_entry

		plp				;restore class flag.
		beq	class0

;==========================================================================
;When we get here we know that this is a class one call.
;So now we start processing the parameters supplied.
;==========================================================================

		dec	pcount
		dec	pcount

		jsr	get_access		;setup the access field

		dec	pcount
		bmi	to_no_time_change

;==========================================================================
;go and grab the file type that the user has provided.
;If the storage type is a directory then we must nake sure the file
;type field is $0F, which indicates that the file is a directory.
;==========================================================================

		jsr	get_ftype
		jsr	set_dir_type
		dec	pcount
		bmi	to_no_time_change

;==========================================================================
;The user's has also provided the aux type.
;==========================================================================

		jsr	get_aux_type

;==========================================================================
;Skip all the  null fields
;==========================================================================
		dec	pcount
		dec	pcount
		bpl	cont
to_no_time_change
		brl	no_time_change
cont

;==========================================================================
;user's has also provided the create data.  Isn't that special!
;==========================================================================

		ldy	#pblk_05_create
		jsr	get_pblk_time
		bcc	@good1		; 27-Jan-92 MSD:
		ldy	#$8000		; invalid, but non-zero
@good1
		stx	create_time
		sty	create_time+2

		dec	pcount
		bmi	do_create_only

;==========================================================================
;Holly Cow Batman the user's has even given us the modification date!
;==========================================================================

		ldy	#pblk_05_mod
		jsr	get_pblk_time
		bcc	@good2		; 27-Jan-92 MSD:
		ldy	#$8000		; invalid, but non-zero
@good2
		stx	mod_time
		sty	mod_time+2
						;new code added 2/13/91 CAE             
		dec	pcount
		bra	set_the_info

class0
;==========================================================================
;The old style call has to provide everything, So go ahead and get it.
;==========================================================================

		jsr	get_access
		jsr	get_ftype
		jsr	set_dir_type
		jsr	get_aux_type

;==========================================================================
;get the create date and time
;==========================================================================

		ldy	#$000E			;index to the create time
		lda	[my_pblk_ptr],y
		sta	create_time
		iny
		iny
		lda	[my_pblk_ptr],y
		sta	create_time+2

;==========================================================================
;Get the modification date and time.
;==========================================================================

		iny
		iny
		lda	[my_pblk_ptr],y
		sta	mod_time
		iny
		iny
		lda	[my_pblk_ptr],y
		sta	mod_time+2

;==========================================================================
;We get to 'set_the_info' from both the class1 and class0 style calls.
;==========================================================================

set_the_info
		jsr	pack_time		;read the system clock please
						;X & Y contain the date and time

		lda	mod_time		;did the user supply the date and time?
		ora	mod_time+2		;(i.e. is the parameter != 0?)
		beq	@use_current		;yes, use the current date and time
		ldx	mod_time		;else use the user supplied values
		lda	mod_time+2
		and	#$1F3F			;make sure parameters are in range
		tay
@use_current
		stx	one_entry+last_mod_index
		sty	one_entry+last_mod_index+2

do_create_only
		lda	create_time		;did the user supply a creation date & time?
		ora	create_time+2
		beq	no_time_change		;no, just leave it alone
		lda	create_time		;else copy user's values to entry
		sta	one_entry+create_index
		lda	create_time+2
		and	#$1F3F			;make sure parameters are in range
		sta	one_entry+create_index+2

no_time_change
		ldy	#entry_length-1
put_back
		lda	one_entry,y
		sta	[drvr_buf_ptr],y
		dey
		dey
		bpl	put_back

		lda	gbuf_addr
		sta	drvr_buf_ptr
		lda	gbuf_addr+2
		sta	drvr_buf_ptr+2

		jsr	standard_req

		jsr	write_with_cache
		bcs	all_done

		jsr	fix_the_fcr		;update the File Control Record if needed
		jsr	slug_ripple
all_done	brl	set_info_exit

;==========================================================================
;=============== END OF THE MAIN CODE FOR SET_FILE_INFO ===================
;==========================================================================

;==========================================================================
;Below is the subroutines used by SET_FILE_INFO.
;==========================================================================
;==========================================================================
;Now we see if the file is already open.  We do this by calling
;get_next_fcr.  If this routine finds a MSDOS FCR then we see if the key
;block is the same.  If it is then we also update the FCR along with the
;disk
;==========================================================================
fix_the_fcr
		stz	fcr_wanted		;reset counter for Get_Next_FCR

look_loop
		jsr	get_next_fcr		;go grab a FCR
		bcs	no_fcr

		ldy	#fcr.vol_id
		lda	[my_fcr_ptr],y		;get the Volume ID so we can make sure the file is on
		cmp	[my_vcr_ptr]		;the same volume.
		bne	look_loop		;File is on another volume

		ldy	#msdos_fcr.file_id
		lda	[msdos_fcr_ptr],y
		cmp	one_entry+key_blk_index
		bne	look_loop

;==========================================================================
;Save a modified Aux type please
;==========================================================================

		ldy	#msdos_fcr.aux_type	;update the aux type please
		lda	one_entry+aux_type_index
		sta	[msdos_fcr_ptr],y

;==========================================================================
;Save file type please
;==========================================================================

		ldy	#msdos_fcr.file_type
		lda	one_entry+file_type_index
		sep	#$20			;a short store
		sta	[msdos_fcr_ptr],y
		rep	#$20

;==========================================================================
;Save create time please
;==========================================================================

		ldy	#msdos_fcr.create	;update the create time
		lda	one_entry+create_index
		sta	[msdos_fcr_ptr],y
		iny
		iny
		lda	one_entry+create_index+2
		sta	[msdos_fcr_ptr],y

no_fcr		rts

;==========================================================================
;Store the user's access field in the
;==========================================================================
get_access
;
		ldy	#pblk_05_accs
		lda	[my_pblk_ptr],y
		tax
		and	#$FF18			;clear the reserved bits
		bne	bad_bits		;sorry bud you are out of range
		longa	off
		sep	#$20
		txa
		ora	#backup_on		;force the backup bit on
		sta	one_entry+access_index
		longa	on
		rep	#$20
		rts

bad_bits
		lda	#parm_range_err
		brl	set_info_err

;==========================================================================
;get_aux_type and store it
;==========================================================================

get_aux_type
		ldy	#pblk_05_aux+2
		lda	[my_pblk_ptr],y
		bne	range_problem
		dey
		dey
		lda	[my_pblk_ptr],y
		sta	one_entry+aux_type_index
		rts

range_problem
		lda	#parm_range_err
		brl	set_info_err

;==========================================================================
;Get the file type
;==========================================================================

get_ftype
		ldy	#pblk_05_ftype
		lda	[my_pblk_ptr],y
		tax
		and	#$FF00
		bne	range_problem
		longa	off
		sep	#$20
		txa
		sta	one_entry+file_type_index
		longa	on
		rep	#$20
		rts

;==========================================================================
;This routine is used to convert the extended date and time fields into
;MSDOS data and time fields
;==========================================================================

get_pblk_time
		lda	[my_pblk_ptr],y		;Get the second field so I can range check it
		and	#$00FF			;clear the minutes field
		cmp	#60
		bcs	range_problem

		iny				;get the minutes field
		lda	[my_pblk_ptr],y
		tax
		and	#$00FF
		cmp	#60			;minutes are 00 to 59
		bcs	range_problem
		sta	minutes			;save the minutes field
		txa
		xba
		and	#$00FF
		cmp	#24			;hours are 00 to 23
		bcs	range_problem
		sta	hours			;save the hours field

		iny
		iny

		lda	[my_pblk_ptr],y
		tax
		and	#$00FF
		sta	year			;save the year as well
		txa
		xba
		and	#$00FF
		cmp	#31			;days are 00 to 30
		bcs	range_problem
		sta	day			;don't forget the day now.

		iny
		iny
		lda	[my_pblk_ptr],y
		and	#$00FF
		sta	month
		cmp	#12			;month = 0 to 11
		bcs	range_problem

		iny				;get the null/day of week field
		lda	[my_pblk_ptr],y
		xba				;put null in the high byte for easy compare
		cmp	#$0008			;max value is 7 for day of week
		bcs	range_problem

		lda	hours
		ora	minutes
		ora	year
		ora	day
		ora	month
		beq	use_clock

		inc	day
		inc	month			;convert to MSDOS format
		jsr	convert_time		;convert the time to MSDOS format
		rts

use_clock
		tax				;return 0000 so we use the current time
		txy
		clc			; 27-Jan-92 MSD: date was valid
		rts

;==========================================================================
;This routine will change the file type to $0F if the storage type of the
;file is a subdirectory
;==========================================================================

set_dir_type
		lda	storage_type		;if storage is a directory only allow
		cmp	#subdir_type		;file type of $0F please
		bne	norm_file

		longa	off			;short mode for a second please
		sep	#$20
		lda	#$000F			;File type for directories
		sta	one_entry+file_type_index
		longa	on
		rep	#$20			;back to 16 bit mode

norm_file
		rts


		ENDP
	endif
		Eject
;==========================================================================
;Get_file_info: This routine will return information about a file on disk.
;               If the file is open and has been modified then the EOF
;               and Blocks used fields come from the FCR.  I do not
;               return the current time for the modification time, since
;               This would require a call to the SLOW clock routines.
;
;
;Created:       May 23, 1987
;Modified:      Aug 26, 1987
;Author:        Rob Turner
;
;Enter:         jml
;
;Input:         A = undefined
;               X = call number times 2
;               Y = class times 2
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;Uses:          All registers
;               find_file
;
;Call Format:
;
;Class 0        Pathname Pointer        (4 Bytes)
;               Access                  (2 Bytes: Disk Format)
;               File Type               (2 Bytes)
;               Aux Type                (4 Bytes)
;               Storage Type            (2 Bytes)
;               Create Date/Time        (4 Bytes: ProDOS Format)
;               Mod Date/Time           (4 Bytes: ProDOS Format)
;               Blocks Used             (4 Bytes)
;
;Class 1        PCount                  (2 Bytes)
;               Pathname Pointer        (4 Bytes)
;               Access                  (2 Bytes: Disk format)
;               File Type               (2 Bytes)
;               Aux Type                (4 Bytes)
;               Storage Type            (2 Bytes)
;               Create Date/Time        (8 Bytes: Misc. Tools Format)
;               Mod Date/Time           (8 Bytes: Misc. Tools Format)
;               Option List Pointer     (4 Bytes)
;               EOF Data Fork           (4 Bytes)
;               Blocks Used Data Fork   (4 Bytes)
;               EOF Resource Fork       (4 Bytes)
;               Blocks Used Res. Fork   (4 Bytes)
;
;==========================================================================
		longa	on
		longi	on

get_file_info	PROC	Export
		with	my_dp

;==========================================================================
;Go and setup the default parameters for the call.
;==========================================================================

		jsr	setup_params

;==========================================================================
;Process the file name and locate it.
;==========================================================================

		jsr	process_path

;==========================================================================
;Move the directory entry into one entry please
;==========================================================================

		jsr	move_dir_entry		;move the entry to one_entry

;==========================================================================
;Now we see if the file is already open.  We do this by calling
;get_next_fcr.  If this routine finds an MSDOS FCR then we see if the key
;block is the same.  If it is then we get the EOF and Number of blocks
;used from the FCR instead of from disk.
;(Modified to handle resource files correctly 3/13/91 CAE)
;==========================================================================

		stz	fcr_wanted		;reset counter for Get_Next_FCR
look_loop
		jsr	get_next_fcr		;go grab a FCR
		bcs	loop_done

		ldy	#fcr.vol_id
		lda	[my_fcr_ptr],y		;get the Volume ID so we can make sure the file is on
		cmp	[my_vcr_ptr]		;the same volume.
		bne	look_loop		;File is on another volume

		ldy	#msdos_fcr.start_cluster
		lda	[msdos_fcr_ptr],y
		cmp	one_entry.start_cluster
		bne	look_loop

;Check the status bit to see if the file info is different from the info on disk.
;If not, then loop.

		ldy	#msdos_fcr.status
		lda	[msdos_fcr_ptr],y
		bpl	look_loop

;Get the current EOF

		ldy	#msdos_fcr.eof
		lda	[msdos_fcr_ptr],y
		sta	one_entry.file_size
		iny
		iny
		lda	[msdos_fcr_ptr],y
		sta	one_entry.file_size+2

loop_done

;==========================================================================
;Check to see if we're dealing with a volume header.
;==========================================================================

		lda	storage_type
		cmp	#volume_header
		bne	go_send_info

		jsr	calc_free_blks		;A = free blocks
		bcc	have_free
		brl	main_exit		;sorry there is an error

have_free
		sta	one_entry.reserved
		ldy	#msdos_vcr.total_sectors
		lda	[msdos_vcr_ptr],y
		sta	one_entry.file_size
		sec
		sbc	one_entry.reserved
		sta	one_entry.reserved+4

go_send_info
		lda	pcount
		beq	old_style_info

		clc
		lda	my_pblk_ptr
		adc	#$0004
		tax
		lda	my_pblk_ptr+2
		adc	#$0000
		tay
		lda	pcount
		dec	a
		jsr	send_info
		brl	main_exit

old_style_info

;==========================================================================
;Just return the old style info for class 0 calls
;first field is ACCESS
;==========================================================================
		ldx	#$00C3			;assume full access
		lda	one_entry.attributes	;get the attributes
		bit	#read_only		;read_only bit set?
		beq	@not_read_only		;no...
		ldx	#$0001			;else clear Delete/Rename/Write enable bits
@not_read_only
		bit	#archive		;backup bit set?
		beq	@no_backup_bit		;no...
		pha				;else set backup bit in returned attributes
		txa
		ora	#%00100000
		tax
		pla
@no_backup_bit
		bit	#hidden_file+sys_file	;hidden or system file?
		beq	@visible		;no...
		txa
		ora	#%00000100		;else set invisible bit
		tax
@visible
		txa				;retrieve final attributes
		ldy	#$0004
		sta	[my_pblk_ptr],y

;==========================================================================
;now send the FILE TYPE
;==========================================================================
		iny
		iny
		ldx	#$000f			;assume subdirectory
		lda	one_entry.attributes	;get the attributes
		bit	#subdirectory		;is it a directory entry
		bne	@is_directory		;no...
		jsr	get_file_type		;translate extension into filetype
@is_directory
		txa
		sta	[my_pblk_ptr],y

;==========================================================================
;go ahead and give them the AUX TYPE
;==========================================================================
		iny
		iny
		lda	#0
		sta	[my_pblk_ptr],y		;anticipate zero auxtype
		iny
		iny
		sta	[my_pblk_ptr],y
*** added 11-Aug-92 DAL
		lda	one_entry.attributes
		bit	#subdirectory
		bne	@directory

		jsr	get_file_type
		dey
		dey
		sta	[my_pblk_ptr],y
		iny
		iny

@directory
*** end 11-Aug-92

;==========================================================================
;throw in the storage type for good measure
;==========================================================================
		iny
		iny
		lda	storage_type
		sta	[my_pblk_ptr],y

;==========================================================================
;how about the CREATE DATE and TIME
;==========================================================================
		iny
		iny
		lda	one_entry.date
		and	#%0000000111111111	;leave only month & day
		pha
		lda	one_entry.date		;get it again
		xba				;shift year to low byte
		lsr	a
		and	#$007f
		clc
		adc	#80			;add in offset
		xba				;put back where it belongs
		asl	a
		ora	1,s			;recombine with month & day
		sta	[my_pblk_ptr],y
		sta	1,s			;store for modification date too
		iny
		iny
		lda	one_entry.time		;now get the time
		tax				;save for a bit
		and	#%1111100000000000	;mask off minutes & seconds
		lsr	a			;shift into position
		lsr	a
		lsr	a
		pha				;save for a bit
		txa				;get minutes/seconds
		lsr	a			;shift minutes into position
		lsr	a
		lsr	a
		lsr	a
		and	#$003f			;mask unused bits
		ora	1,s			;combine with minutes
		sta	[my_pblk_ptr],y
		tax				;save in X

;==========================================================================
;Send the last MODIFICATION DATE and TIME
;==========================================================================
		iny
		iny
		pla				;retrieve saved date
		sta	[my_pblk_ptr],y
		iny
		iny
		txa				;retrieve saved time
		sta	[my_pblk_ptr],y

;==========================================================================
;and lastly, the number of blocks used.
;==========================================================================
		iny
		iny
		lda	one_entry.reserved+4
		sta	[my_pblk_ptr],y
		iny
		iny
		lda	#$0000
		sta	[my_pblk_ptr],y
		clc
		brl	main_exit

;==========================================================================
;Calculate the modification date for the volume.  We do this since the mod
;date is not stored on the disk.  This should not be bad since the blocks
;are stored in the cache.
;
;Enter:         jsr
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1= error
;               b = k
;
;               one_entry+last_mod_index        ;is setup with the date
;
;==========================================================================

calc_last_mod
		lda	drvr_dev_num		;pass in the device number
		ldx	#dummy_name		; and a pointer to the name
		ldy	#^dummy_name
		jsr	find_file		;this will fail but we do not care

		lda	curr_mod_date
		tax
		ora	curr_mod_date+2
		beq	@same_time		;there are no files on the disk!

		stx	one_entry+last_mod_index
		lda	curr_mod_date+2
		sta	one_entry+last_mod_index+2
		rts
@same_time
		lda	one_entry+create_index
		sta	one_entry+last_mod_index
		lda	one_entry+create_index+2
		sta	one_entry+last_mod_index+2
		rts

		ENDP

		Eject
;==========================================================================
;Judge_name:    Returns information about MSDOS filename syntax.
;               Modifies name (if supplied) to conform to MSDOS syntax.
;
;Note:          This is a class 1 call only.
;
;Created:       Jan 22, 1991
;Author:        Cheryl Ewy
;
;Enter:         jml
;
;Input:         A = undefined
;               X = call number times 2
;               Y = class times 2
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;Uses:          All registers
;               <temp_ptr
;               <temp2_ptr
;               <temp3_ptr
;
;Call Format:
;
;Class 1        PCount                  (2 Bytes)
;               File System ID          (2 Bytes)
;               Name Type               (2 Bytes)
;               Syntax                  (4 Bytes)
;               Max Len                 (2 Bytes)
;               Name                    (4 Bytes)
;               Name Flags              (2 Bytes)
;
;==========================================================================
		longa	on
		longi	on

judge_name	PROC	Export
		with	my_dp

name_flags	equ	temp2_ptr		;local equates
buf_size	equ	temp2_ptr+2
temp_val	equ	temp3_ptr
nul_flag	equ	temp3_ptr+2

max_len		equ	15			;maximum name length

; Setup the default parameters for the call.

		jsr	setup_params

; Init flags word to 0.

		stz	<name_flags

; Make sure the name_type input parameter is valid.

		ldy	#pblk_07_ntype
		lda	[my_pblk_ptr],y		;get name_type input param
		cmp	#4			;is it < 4?
		bcs	bad_param		;no - so report error

; Minimum pcount is 3 so we'll always return a ptr to the syntax string.

		lda	#syntax_str		;get lo word of ptr to string
		ldy	#pblk_07_syntax
		sta	[my_pblk_ptr],y		;store it in output param
		iny
		iny
		lda	#^syntax_str		;get hi word of ptr to string
		sta	[my_pblk_ptr],y		;store it in output param

; Adjust the pcount to reflect the number of remaining parameters to deal with.

		dec	pcount			;done with file_sys_id param
		dec	pcount			;done with name_type param
		dec	pcount			;done with syntax param

; Return the maximum name length if requested.

		dec	pcount
		bmi	done

		lda	#max_len		;get maximum name length
		ldy	#pblk_07_max_len
		sta	[my_pblk_ptr],y		;store it in the max_len output param

; Get the ptr to the name buffer if supplied.  The name buffer is a class 1 output buffer. 
; If the ptr is 0 then there's no name to judge.

		dec	pcount
		bmi	done

		ldy	#pblk_07_name
		lda	[my_pblk_ptr],y		;get lo word of ptr to name buffer
		sta	<temp_ptr		;and store
		iny
		iny
		lda	[my_pblk_ptr],y		;get hi word of ptr to name buffer
		and	#$00ff			;mask off hi byte
		sta	<temp_ptr+2		;and store
		ora	<temp_ptr		;is the ptr 0?
		beq	do_flags		;yes - so there's no name to judge

; Check the name buffer size to make sure the buffer is large enough to contain
; the maximum size name.  If not, return an error.

		lda	[temp_ptr]		;get buffer size
		cmp	#max_len+4		;is the buffer big enough?
		bcc	buf_err			;no - so return an error
		sta	<buf_size		;yes - so save buffer size

; Adjust <temp_ptr so that it points to the length word of the name string instead of
; to the buffer size word.  

		clc
		lda	<temp_ptr		;adjust ptr to point to the name length 
		adc	#2
		sta	<temp_ptr
		lda	<temp_ptr+2
		adc	#0
		sta	<temp_ptr+2

; Judge the name.

		jsr	judge_it

; Return the name_flags parameter if requested.

do_flags	dec	pcount
		bmi	done

		lda	<name_flags		;get name_flags
		ldy	#pblk_07_nflags
		sta	[my_pblk_ptr],y		;store it in the output param

; Indicate no error and return.

done		clc
		brl	main_exit


; Return a parameter range error.

bad_param	lda	#parm_range_err
		sec
		brl	main_exit


; Return a buffer too small error.

buf_err		lda	#buff_too_small
		sec
		brl	main_exit

;--------------------------------------------------------------------------

judge_it

; If the name length = 0 then set the name string to "A", indicate that there
; was a syntax error, then return.

		lda	[temp_ptr]		;is the name length = 0?
		bne	@got_name		;no - so we have a name
@nameIsNull	lda	#1
		sta	[temp_ptr]		;set name length to 1
		ldy	#2
		lda	#'A'
		sta	[temp_ptr],y		;set name string to "A"
		lda	#$2000			;set bit 13 of name_flags to indicate
		tsb	<name_flags		;that there was a syntax error
		rts				;and return
@got_name

; We have a name to judge.

*** added 14-Apr-91 DAL -- call StringToText in the Misc Tools
	if CallStringToText=1 then
		pha				;space for StringToText result flags
		pha				;space for StringToText result length
		pea	$6000			;flags: force "English", allow expansion
		ldx	temp_ptr+2		;push [temp_ptr]+2 -- input text
		lda	temp_ptr
		clc
		adc	#2
		bcc	@ok
		inx
@ok		phx
		pha
		lda	[temp_ptr]
		pha				;push input string length
		ldx	temp_ptr+2		;push [temp_ptr]-2 -- result buffer
		lda	temp_ptr
		sec
		sbc	#2
		bcs	@ok2
		dex
@ok2		phx
		pha
		ldx	#$3b03
		jsl	$e10000
;               _StringToText
		pla				;printable length (ignore)
		pla				;result flags
		bpl	@noChange
		lda	#$8000			;set bit 15 = illegal characters
		tsb	<name_flags
@noChange
	endif
*** end of 14-Apr-91 DAL

; Set bit 14 of name_flags if the name is too long.
; Note - we have to do this now because the name length may change. 

		lda	[temp_ptr]		;get name length
*** added 29-Apr-91 DAL
		beq	@nameIsNull
*** end of 29-Apr-91 DAL
		cmp	#max_len+1		;is it too long?
		bcc	@len_ok			;no
		lda	#$4000			;yes - so set bit 14 of name_flags 
		tsb	<name_flags		;to indicate name was too long
@len_ok

; Convert all illegal characters to NULs. They'll be converted to periods later.

		lda	[temp_ptr]		;get length of pathname
		inc	a			;adjust for extra length byte
		tay

		ldx	#0			;init to 0

		longa	off			;set 8 bit A
		sep	#$20

loop1		lda	[temp_ptr],y		;get byte

		cmp	#'a'
		bcc	@check_upper
		cmp	#'z'+1
		bcs	@bad_char
		bra	@ok			;it's a lower-case letter

@check_upper	cmp	#'A'
		bcc	@check_num
		cmp	#'Z'+1
		bcs	@bad_char
		bra	@ok			;it's an upper-case letter

@check_num	cmp	#'0'
		bcc	@check_period
		cmp	#'9'+1
		bcs	@bad_char
		bra	@ok			;it's a number

@check_period	cmp	#'.'
		beq	@ok			;it's a period

@bad_char	lda	#$00			;it's an illegal character so
		sta	[temp_ptr],y		;replace char with a NUL
		ldx	#$8000			;indicate illegal character found
@ok		dey				;decrement offset
		cpy	#1
		bne	loop1			;loop until done

		longa	on			;set 16 bit A
		rep	#$20

		txa				;set bit 15 if an illegal
		tsb	<name_flags		;character was found

; If the name doesn't begin with a letter, then indicate that there was a syntax error.
; Note - we have to check this now because if the first character is illegal, it will 
;        be removed by the next section of code. 

		ldy	#2
		lda	[temp_ptr],y		;get first 2 chars
		and	#$00ff			;only want first char
		cmp	#'A'			;is it a letter?
		bcs	@syntax_ok		;yes - so we're ok
		lda	#$2000			;set bit 13 to indicate that
		tsb	<name_flags		;there was a syntax error
@syntax_ok

; Replace runs of 2 or more NULs with a single period.
; All leading and trailing NULs will be removed.
; Note - if no illegal characters were found, then skip this section. 

		lda	<name_flags		;were there any illegal characters?
		bpl	skip_it			;no - so skip this section

		lda	[temp_ptr]		;get name length
		inc	a			;add 2 to account for the length bytes
		inc	a
		sta	<temp_val		;and save

		longa	off
		sep	#$20			;set 8 bit A

		ldx	#2			;init offsets
		phx
		stx	<nul_flag		;init flag to indicate we've seen a NUL

loop2		ply				;get offset
		cpy	<temp_val		;are we done?
		bcs	loop2_done		;yes
		lda	[temp_ptr],y		;no - so read next character
		iny				;adjust offset 
		phy				;and save
		cmp	#$00			;is the char a NUL?
		bne	@not_nul		;no - so branch
		ldy	<nul_flag		;was the last character a NUL?
		bne	loop2			;yes - so loop
		inc	<nul_flag		;no - so indicate we've seen a NUL
		lda	#'.'			;convert the NUL into a period
		bra	@store_char		;and store the period

@not_nul	stz	<nul_flag		;indicate we've seen a non-NUL  
@store_char	txy
		sta	[temp_ptr],y		;store the character
		tyx
		inx				;adjust offset
		bra	loop2			;and loop

loop2_done	lda	<nul_flag		;was the last char read a NUL?
		beq	@ok			;no
		cpx	#2			;yes - was it stored?
		beq	@ok			;no 
		dex				;yes - so don't count it
@ok
		longa	on
		rep	#$20			;set 16 bit A

		txa				;determine new name length
		dec	a
		dec	a
		sta	[temp_ptr]		;and store
skip_it

; If the name doesn't begin with a letter, insert an 'A' as the first character.
; If the buffer has no extra space, then lose the last character.
; Note - we need to check for a zero-length name in case all chars were illegal.

		lda	[temp_ptr]		;get name length
		bne	@not_zero		;branch if it's > 0
		inc	a			;name length is 0 so
		sta	[temp_ptr]		;set length to 1
		bra	stuff_a			;and insert the 'A'
@not_zero
		ldy	#2
		lda	[temp_ptr],y		;get first 2 chars
		and	#$00ff			;only want first char
		cmp	#'A'			;is it a letter?
		bcs	char1_ok		;yes - so we're ok

		lda	[temp_ptr]		;get name length
		tay				;and save
		clc
		adc	#4
		cmp	<buf_size		;does the buffer have any unused space?
		bcs	@lose_last		;no - so lose last char
		iny				;yes - so save last char
		tya
		sta	[temp_ptr]		;add 1 to name length
@lose_last
loop3		lda	[temp_ptr],y		;move all chars over by 1
		xba
		sta	[temp_ptr],y
		dey
		cpy	#1
		bne	loop3

		longa	off
stuff_a		sep	#$20			;set 8 bit A

		ldy	#2
		lda	#'A'
		sta	[temp_ptr],y		;stuff an 'A' in as first char

		longa	on
		rep	#$20			;set 16 bit A
char1_ok

; If the name is too long then keep the first 7 chars, insert '..', keep the last 6 chars.

		lda	[temp_ptr]		;get name length
		cmp	#max_len+1		;is it too long?
		bcc	length_ok		;no

		ldy	#9			;get offset to 8th char
		lda	#'..'
		sta	[temp_ptr],y		;insert the '..'

		lda	[temp_ptr]		;get length of name
		sec
		sbc	#4			;subtract 4 to get offset
		pha				;to last part of name to keep

		longa	off			;set 8 bit A
		sep	#$20

		ldx	#11			;set offset after the '..' (10th char)                  
loop4		ply
		lda	[temp_ptr],y		;move the last 6 characters
		iny				;so they are after the '..'
		phy
		txy
		sta	[temp_ptr],y
		inx
		cpx	#17			;are we done?
		bne	loop4			;no - so loop
		ply				;clean up stack

		longa	on			;set 16 bit A
		rep	#$20

		lda	#max_len		;adjust the name length
		sta	[temp_ptr]
length_ok

; Done with name.

		rts

		ENDP

		Eject
;==========================================================================
;Volume:        This routine will return the volume information on a disk
;
;Created:       may 24, 1987
;Modified:      may 24, 1987
;Author:        Rob Turner
;
;Enter:         jml
;
;Input:         A = undefined
;               X = call number times 2
;               Y = class times 2
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;Uses:          All registers
;               fill_io_buf
;
;Call Format:
;
;Class 0        Device Name Pointer     (4 Bytes)
;               Volume Name Pointer     (4 Bytes)
;               Total Blocks            (4 Bytes)
;               Free Blocks             (4 Bytes)
;               File System ID          (2 Bytes)
;
;Class 1        PCount                  (2 Bytes)
;               Device Name Pointer     (4 Bytes)
;               Volume Name Pointer     (4 Bytes)
;               Total Blocks            (4 Bytes)
;               Free Blocks             (4 Bytes)
;               File System ID          (2 Bytes)
;               Block Size              (2 Bytes)
;
;==========================================================================
		longa	on
		longi	on

volume		PROC	Export
		with	my_dp

;==========================================================================
;Call setup routine.  This routine will verify input parameters like
;                     call class, max pcount and span.  It will also setup
;                     any pointers that are used.
;
;The routine loads the class of the call as the last instruction before RTS
;==========================================================================

		jsr	setup_params

;==========================================================================
;Now lets go and and ID that puppy.  The device number to ID is on ZP
;==========================================================================
		lda	dev_num
		jsr	id_disk			;go see if it belongs to me
		bcc	its_my_puppy
vol_exit
		brl	main_exit

its_my_puppy

;==========================================================================
;move the name into the user's buffer.
;==========================================================================

		ldy	#pblk_08_vol

		lda	[my_pblk_ptr],y		;copy user's buffer pointer to
		sta	temp_ptr		;direct page
		iny
		iny
		lda	[my_pblk_ptr],y
		sta	temp_ptr+2

		stz	case_bits		;all upper case please

		bit	fst_attr		;if the high bit is set skip Upper/Lower stuff
		bpl	@no_case_change

		lda	#Å$0020			;set mask
		sta	case_bits
@no_case_change

		lda	pcount
		bne	class1

;==========================================================================
;before we send the name we have to add in the damn leading slash.
;==========================================================================

		lda	gstring			;get the length
		inc	a
		sta	[temp_ptr]		;length of the name
		inc	temp_ptr		;bump past length byte
		bne	class0_name
		inc	temp_ptr+2

class0_name
		ldy	#$0001			;start at the beginning
		longa	off
		sep	#$20			;8 bit moves please
		lda	#'/'
		sta	[temp_ptr]		;store the leading slash
class0_loop
		lda	gstring+1,y
		sta	[temp_ptr],y
		cpy	gstring
		beq	@were_done
		iny
		bra	class0_loop
@were_done
		longa	on
		rep	#$20

;==========================================================================
;Since this is a class zero call lets set the pcount to three so all the
;parameters will be returned to the caller.
;==========================================================================

		lda	#$0003			;setup pcount
		sta	pcount
		bra	do_bitmap

class1

;==========================================================================
;If we get here we need to verify that the buffer is large enought to hold
;the volume name.
;
;diagram
;                ______________
;               | Buffer size  | W
;               |--------------|
;               | Name Length  | W
;               |--------------|
;               | Leading '/'  | B
;               |--------------|
;               |     THE      |
;               |   REST OF    | 'n'
;               |  THE  NAME   |
;               |______________|
;
;==========================================================================

		lda	gstring			;get the length of the volume name
		tax
		inc	a
		sta	math_temp		;save the size of the name + slash.

		sec
		lda	[temp_ptr]
		sbc	#$0004			;minus overhead
		bmi	too_small		;get out of here!
		cmp	math_temp
		beq	size_ok
		bcs	size_ok

		ldy	#$0002
		lda	math_temp
		sta	[temp_ptr],y		;store the length of the name

too_small
		sec
		lda	#buff_too_small		;return the error
back_to_exit	brl	vol_exit

size_ok

;==========================================================================
;now move the name to the user's buffer.
;==========================================================================

		ldy	#$0002			;index to the length result
		lda	math_temp
		sta	[temp_ptr],y
		iny
		iny
		lda	#delimiter+(delimiter*$100)
		sta	[temp_ptr],y

;==========================================================================
;adjust the pointer to point to the beginning of the name buffer.
;==========================================================================
		phx
		tya
		clc
		adc	temp_ptr
		sta	temp_ptr
		lda	#$0000
		adc	temp_ptr+2
		sta	temp_ptr+2

		ply
		sty	math_temp
		ldy	#$0001
		longa	off
		sep	#$20
class1_loop

		lda	gstring+1,y
		sta	[temp_ptr],y
		cpy	math_temp		;are we done?
		beq	@were_done
		iny
		bra	class1_loop
@were_done
		longa	on
		rep	#$20

;==========================================================================
;adjust the pcount to reflect the number of parameters that the user still
;wants.
;==========================================================================

		dec	pcount
		dec	pcount

do_bitmap

;==========================================================================
;now lets see if the caller wants the total blocks on the volume
;==========================================================================

		dec	pcount
		bpl	send_tot_blks
end_volume	clc
backup2		brl	vol_exit

send_tot_blks
		ldy	#msdos_vcr.total_sectors
		lda	[msdos_vcr_ptr],y
		ldy	#pblk_08_tot
		sta	[my_pblk_Ptr],y
		iny
		iny
		lda	#$0000
		sta	[my_pblk_ptr],y

;==========================================================================
;see if the caller wants the number of free blocks.  We call calc_free_blks
;to calculate the number of free blocks.  The routine returns the TOTAL
;number of blocks available in the 'A' register.
;==========================================================================
		dec	pcount
		bmi	end_volume

		jsr	calc_free_blks
		bcs	backup2			;some major error occured

		ldy	#pblk_08_free
		sta	[my_pblk_ptr],y
		iny
		iny
		lda	#$0000
		sta	[my_pblk_ptr],y

;==========================================================================
;do they want the file system ID?
;==========================================================================

		dec	pcount
		bmi	end_volume		;no they do not!

		lda	#fst_id
		ldy	#pblk_08_id
		sta	[my_pblk_ptr],y

;==========================================================================
;do they want to know my block size?
;==========================================================================

		dec	pcount
		bmi	end_volume		;no they do not!

		lda	#blk_size
		ldy	#pblk_08_size
		sta	[my_pblk_ptr],y
		bra	end_volume

		ENDP

	if NOT read_only_fst then
		Eject
;==========================================================================
;Clear_backup:  This routine will clear the backup bit for a file.
;
;Created:       may 27, 1987
;Modified:      may 27, 1987
;Author:        Rob Turner
;
;Enter:         jml
;
;Input:         A = undefined
;               X = call number times 2
;               Y = class times 2
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;Uses:          All registers
;               find_file
;
;Call Format:
;
;Class 0        Pathname pointer        (4 Bytes)
;
;Class 1        PCount                  (2 Bytes)
;               Pathname pointer        (4 Bytes)
;
;==========================================================================
		longa	on
		longi	on

clear_backup	PROC	Export
		with	my_dp

;==========================================================================
;Setup the general parameters.
;==========================================================================

		jsr	setup_params

;==========================================================================
;Process the file name and locate it.  On exit 'drvr_buf_ptr' points to the
;file entry that we are suppose to act on.
;==========================================================================

		jsr	process_path
		bcc	good
clear_exit
		brl	main_exit

good
		jsr	chk_disk_protect

		ldy	#access_index
		longa	off
		sep	#$20

;==========================================================================
;Clear the backup bit for the file/directory
;==========================================================================

		lda	[drvr_buf_ptr],y
		and	#backup_off		;clear the backup bit
		sta	[drvr_buf_ptr],y

; If we're dealing with a volume directory then we need to clear the backup bit
; in the VCR also so that the disk and VCR match.       4/5/91 CAE

		lda	[drvr_buf_ptr]		;get storage type
		and	#$F0			;only want hi nibble
		cmp	#volume_header		;is this a volume directory?
		bne	@not_vol		;no - so branch
		ldy	#msdos_vcr.access
		lda	[msdos_vcr_ptr],y
		and	#backup_off		;clear the backup bit in the vcr
		sta	[msdos_vcr_ptr],y
@not_vol
		longa	on
		rep	#$20

;==========================================================================
;Reset the I/O buffer pointer to the beginning of the buffer.
;The request count and all that stuff is still correct from the find file
;==========================================================================

		lda	gbuf_addr
		sta	drvr_buf_ptr
		lda	gbuf_addr+2
		sta	drvr_buf_ptr+2
		jsr	write_with_cache
		bra	clear_exit

		ENDP
	endif

		Eject
;======================================================================
;Open:          This file contains code that is used to open a file on
;               disk. 
;
;Created:       Apr 13, 1987
;Modified:      Apr 16, 1988
;Author:        Rob Turner
;
;Enter:         From GS/OS jmp table
;
;Input:         A = undefined
;               X = (call number * 2)
;               Y = (class number * 2)
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = error code if carry set (exit via system exit routine)
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;Uses:          All registers
;               Device Dispatcher       (subroutine)
;               General I/O Buffer      (1K buffer, I read 512 bytes)
;               find_file               (subroutine)
;
;Call Format:
;
;Class 0        Reference Number        (2 Bytes)
;               Pathname Pointer        (4 Bytes)
;               Reserved                (4 Bytes)
;
;Class 1        PCount                  (2 Bytes)
;               Reference Number        (2 Bytes)
;               Pathname Pointer        (4 Bytes)
;               Request Access          (2 Bytes: New Format)
;               Resource Number         (2 Bytes)
;               (Returned Info)
;               Access                  (2 Bytes)
;               File Type               (2 Bytes)
;               Aux Type                (4 Bytes)
;               Storage Type            (2 Bytes)
;               Create Date/Time        (8 Bytes: Misc. Tools Format)
;               Mod Date/Time           (8 Bytes: Misc. Tools Format)
;               Option List Pointer     (4 Bytes)
;               EOF Data Fork           (4 Bytes)
;               Blocks Used Data Fork   (4 Bytes)
;               EOF Resource Fork       (4 Bytes)
;               Blocks Used Res. Fork   (4 Bytes)
;
;======================================================================
		longa	on
		longi	on

open		PROC	Export
		with	my_dp
		Import	error_exit
		Import	build_the_fcr

;==========================================================================
;Setup the defaults for the open call.
;The defaults are set to OPEN resource number $0000(main data) and open file
;as permitted. 
;========================================================================== 

		stz	resource_num		;set resource to main data fork
		stz	access			;set users access to 'as permitted'
		stz	users_access		;set the users access please.

		jsr	setup_params
		beq	class0

		jsr	get_access		;get the user's access byte if avail
		bcs	class0			;branch if no access provided 
		jsr	get_res_num		;get the user's resource num if avail

class0
;==========================================================================
;Now go and find the file we need.  If the disk is not MSDOS then we
;never return from the call.  It will automatically exit thru 'SYS_EXIT'
;==========================================================================

		jsr	process_path

;==========================================================================
;We get here when we have found the file and are ready to open it.
;This section of code expects 'drvr_buf_ptr' to point to the file name to open
;==========================================================================

open_the_file
		jsr	move_dir_entry		;put the disk entry in a common place

		jsr	verify_storage		;make sure I can deal with the file
		bcs	open_exit		;sorry bud
;
; Here's where I have to perform a little magic if the caller is attempting to
; open the "resource fork" of a file.
;
		jsr	check_dup		;see if this is a duplicate open
		bcs	open_exit		;yes this is a duplicate open
		jsr	build_the_fcr		;build the file control record
		bcs	open_exit

;==========================================================================
;Now that we have setup the entrire FCR we need to send back any info
;that the user requested.
;==========================================================================

		ldy	#$0000			;default = Class zero type call
		lda	call_number		;determine class
		and	#class_mask
		beq	class0_call
		ldy	#$0002			;index to ref field for new class calls

;==========================================================================
;Return the file reference number to the caller.
;==========================================================================

class0_call
		lda	[my_fcr_ptr]
		sta	[param_blk_ptr],y

		jsr	send_open_parms
		bcc	open_exit
		pha
		jsr	remove_fcr		;remove this puppy
		pla
		sec
open_exit
		brl	main_exit


;==========================================================================
;==========================================================================
;====== MAIN END OF OPEN CALL  ============================================
;==========================================================================
;==========================================================================

;==========================================================================
;now see how many parameters the user would like with the open call.
;
;Enter:         jsr
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
; 
;==========================================================================

send_open_parms
		lda	pcount
		cmp	#pcount5		;see if there is more then 4 params
		bcc	end_send		;no additional parameters needed
		sbc	#pcount5-1
		pha

;==========================================================================
;If we fall thru to here then we know the user wants to receive additional
;information with the open.  So we start sending the number of field
;the user wants.  The routine that sends the info expects the following:
;
;               A = number of fields to send
;               X = low word address of where to start storing the info
;               Y = high word address ...
;               one_entry  = the entry from the disk
;==========================================================================

		clc				;make a pointer to data start
		lda	my_pblk_ptr
		adc	#$000A
		tax
		lda	my_pblk_ptr+2
		adc	#$0000
		tay

		pla				;recall number of params wanted
		jsr	send_info
end_send
		rts

;=============================================================================
;Now we check the storage type.  The only storage types that I know about are:
;
;(1) seedling   ($0010)
;(2) sapling    ($0020)
;(3) tree       ($0030)
;(4) pascal area        (Access not allowed to pascal area)
;(5) resource   ($0050)
;(6) purge_dir          (access not allowed to purged directory)
;(7) subdir     ($00D0)
;(8) subdir H           (access not allowed to header entry)
;(9) vol header ($00F0)
;
;Enter:         jsr
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
; 
;=============================================================================

verify_storage
		lda	storage_type
		sta	entry_sto_type

		cmp	#resource_type
		beq	setup_access

		ldx	resource_num	;make sure the resource number is zero
		bne	bad_resource

		cmp	#seedling_type
		beq	setup_access
		cmp	#subdir_type
		beq	dir_access
		cmp	#volume_header
		bne	bad_storage

;=============================================================================
;If the file is a directory then we must set the access to read only
;=============================================================================
dir_access
		lda	access			;make sure user wants read only
		beq	force_read_only		;He wants as permitted, so force read
		cmp	#write_access
		bcs	bad_access

force_read_only
		lda	#read_access
		sta	access
		clc
		rts

;==========================================================================
;Now we need to check the access.  If the access is 'as_permitted' then we
;must convert the disk access to one of our types (read only, read write, etc) 
;==========================================================================

setup_access
		lda	access
		bne	verify_access

;==========================================================================
;Load the disk based access byte 
;==========================================================================

		ldx	#read_access		;assume read-only
		lda	one_entry.attributes
		and	#read_only		;read-only file?
		bne	set_access		;yup...
		ldx	#read_access+write_access
set_access
		stx	access			;access now set from disk 
		clc
		rts

;==========================================================================
;make sure the user's access agrees with the disk based access.
;==========================================================================
verify_access
		lsr	a
		lsr	a			;does the user want write access?
		bcc	exit_access		;no
		lda	one_entry.attributes	;access byte from disk
		and	#read_only
		beq	bad_access		;write access not allowed
		clc
exit_access
		rts

bad_resource
		lda	#res_not_found
		sec
		rts

bad_access
		lda	#invalid_access
		sec
		rts

bad_storage	lda	#bad_store_type
		sec
		rts

;==========================================================================
;see if the user provided resource number.
;
;Enter:         jsr
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
; 
;==========================================================================
get_res_num
		lda	pcount
		cmp	#$0004
		bcc	end_res			;no resource number provided

		ldy	#$0008
		lda	[my_pblk_ptr],y
		sta	resource_num		;save the resource. must be zero
		beq	end_res			;default resource number so exit
		dec	a
		bne	not_in_range		;not even close.
end_res
		rts

;==========================================================================
;get_access     This routine will load the user's access byte if available
;
;
;Enter:         jsr
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = no more parameters
;                          0 = more paramters may follow
;               b = k
;
;==========================================================================

get_access
		lda	pcount
		cmp	#$0003
		bcc	no_params		;there is no parameters

		ldy	#$0006
		lda	[my_pblk_ptr],y
		sta	users_access		;save the user's access please.
		beq	end_access		;same as default access so exit

;==========================================================================
;access:
;               00 = open as permitted  ;default value for open call
;               01 = open for reading only
;               02 = open for writing only
;               03 = open for reading and writing
;========================================================================== 

		sta	access			;save user's choice
		cmp	#read_write_acc+1
		bcc	end_access

not_in_range
		lda	#parm_range_err		;I don't know what to do with this
		brl	error_exit		;sorry bud

no_params
		sec
		rts

end_access
		clc
		rts
		EndP

;==========================================================================
;Calculate the size of the root directory.  This is a pain but we cannot
;assume that the root directory will be four blocks long. So we might as
;well put the directory blocks in the cache while we are at it
;
;Enter:         jsr
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = no more parameters
;                          0 = more paramters may follow
;               b = k
;==========================================================================

vol_file_size	Proc
		with	my_dp

		ldy	#msdos_vcr.root_dir_count
		lda	[msdos_vcr_ptr],y	;get count of root directory entries
		asl	a			;multiply by 32 (bytes per entry)
		asl	a			;to determine size of root directory
		asl	a
		asl	a
		asl	a
		sta	one_entry.file_size
		rts
		ENDP

		Eject
;==========================================================================
;This routine will build the FCR.
;
;Enter:         jsr
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
; 
;==========================================================================

build_the_fcr	PROC
		with	my_dp


		ldy	#vcr.name		;pass in the name of the Volume please
		lda	[my_vcr_ptr],y		;get the VP please
		tax
		iny
		iny
		lda	[my_vcr_ptr],y
		tay				;High word of the VP
		jsl	deref			;convert the VP to a real pointer
						;return X&Y pointer to the name

		pei	temp_ptr		;save the pointer I am going to use
		pei	temp_ptr+2

		stx	temp_ptr		;save the address of the string
		sty	temp_ptr+2

		lda	[temp_ptr]		;get the length word please
		tay				;save the count
		inc	a			;add one for the :
		sta	gstring			;save the count
		lda	#'::'
		sta	gstring+2		;save the seperator

		inc	temp_ptr
		bne	@01
		inc	temp_ptr+2
@01
		sep	#$20			;8-bit accumulator
		longa	off
@02
		lda	[temp_ptr],y		;get a char please
		sta	gstring+2,y
		dey
		bne	@02
		rep	#$20
		longa	on

		pla
		sta	temp_ptr+2		;restore the pointer I used
		pla
		sta	temp_ptr

		ldx	#gstring		;pointer to the file name or Volume Name to Open
		ldy	#^gstring		;high word
		lda	#fcr.size		;size of FCR to allocate
		sec				;better clear the buffer
		jsl	alloc_fcr		;build a new fcr for file
		bcc	success
		rts				;return with the error

success
		jsl	deref			;convert VP to RP
		stx	my_fcr_ptr
		sty	my_fcr_ptr+2

		jsr	setup_my_fcr		;build a pointer to local data

		ldy	#vcr.open_cnt		;advance the open count please by one
		lda	[my_vcr_ptr],y
		inc	a
		sta	[my_vcr_ptr],y

		ldy	#msdos_fcr.status
		lda	#$0000			;zero the status word
		sta	[msdos_fcr_ptr],y

		lda	#data_active		;restore the I/O buffer active bits
		jsr	set_fcr_status

		lda	access			;save the user's access
		ldy	#fcr.access
		ora	#set_global_clean
		sta	[my_fcr_ptr],y

		ldy	#fcr.vol_id
		lda	[my_vcr_ptr]		;get the volume ID from the VCR
		sta	[my_fcr_ptr],y		;and save it in the new FCR

		ldy	#fcr.fst_id
		lda	#fst_id			;save the ownership id word
		sta	[my_fcr_ptr],y

;==========================================================================
;Now start saving data into my local data segment
;==========================================================================

		ldy	#msdos_fcr.storage
		lda	storage_type		;save the storage type
		sta	[msdos_fcr_ptr],y

		cmp	#volume_header		;if file is a volume then calc EOF
		bne	no_adjust2

		jsr	vol_file_size		;calculate the EOF for the root vol

no_adjust2
		ldy	#msdos_fcr.parent
		lda	parent_blk		;save address of parent block number
		sta	[msdos_fcr_ptr],y

		ldy	#msdos_fcr.entry_offs
		lda	entry_offset		;save offset to entry within parent blk
		sta	[msdos_fcr_ptr],y

		lda	resource_num		;opening resource fork?
		bne	@do_rfork_stuff		;yes, use rfork_entry instead

		ldy	#msdos_fcr.eof		;move the directory entry into the FCR
		lda	one_entry.file_size
		sta	[msdos_fcr_ptr],y
		iny
		iny
		lda	one_entry.file_size+2
		sta	[msdos_fcr_ptr],y

		lda	one_entry.start_cluster
		bra	@store_start

@do_rfork_stuff
		ldy	#msdos_fcr.eof		;move the directory entry into the FCR
		lda	rfork_entry.file_size
		sta	[msdos_fcr_ptr],y
		iny
		iny
		lda	rfork_entry.file_size+2
		sta	[msdos_fcr_ptr],y

		lda	rfork_entry.start_cluster

@store_start
		ldy	#msdos_fcr.start_cluster
		sta	[msdos_fcr_ptr],y
		tay
		bne	@not_root		;if 0, it's the root directory
		ldy	#msdos_vcr.data_start	;calculate # of blocks of root directory
		lda	[msdos_vcr_ptr],y
		sec
		ldy	#msdos_vcr.root_dir_block
		sbc	[msdos_vcr_ptr],y
		bra	@store_size
@not_root
		ldy	#msdos_vcr.cluster_size	;read cluster size out of BPB
		lda	[msdos_vcr_ptr],y
		and	#$00FF			;only a byte-sized parameter
@store_size
		ldy	#msdos_fcr.cluster_size
		sta	[msdos_fcr_ptr],y	;store the # of blocks per cluster
		
		ldy	#msdos_fcr.mod_date
		lda	one_entry.date
		sta	[msdos_fcr_ptr],y
		ldy	#msdos_fcr.mod_time
		lda	one_entry.time
		sta	[msdos_fcr_ptr],y
		
		ldy	#msdos_fcr.attributes
		lda	one_entry.attributes
		and	#$00FF			;clear high byte (not used)
		sta	[msdos_fcr_ptr],y

		jsr	setup_io_ptrs		;build pointers to data structures
		jsr	setup_io_buf
		bcc	no_prob
		pha
		jsr	remove_fcr		;remove this puppy
		pla
		sec
no_prob
		rts
		ENDP

		Eject
;======================================================================
;check_vcr_first: This routine trys to find a vcr from the device number
;               in 'A'.  If a vcr is found then no error is reported.
;               otherwise the error is returned. 
;
;Created:       may 08, 1987
;Modified:      may 08, 1987
;Author:        Rob Turner
;
;
;Enter:         from open call
;
;Input:         A = device number to find
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               dev_num                 ;device number we are looking for
;
;Output:        A = error code if carry set.
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;Uses:          All registers
;               find_vcr
;               math_temp
;               my_vcr_ptr
;
;======================================================================
		longa	on
		longi	on

check_vcr_first	PROC
		with	my_dp

		stz	math_temp
search_loop
		lda	math_temp
		inc	a
		sta	math_temp
		jsl	get_vcr
		bcc	good
		rts

;==========================================================================
;If we find a vcr then make sure that I own it.
;==========================================================================

good
		jsl	deref
		stx	my_vcr_ptr
		sty	my_vcr_ptr+2
		ldy	#vcr.fst_id
		lda	[my_vcr_ptr],y
		cmp	#fst_id
		bne	search_loop

		ldy	#vcr.dev		;is this the correct device
		lda	[my_vcr_ptr],y
		cmp	dev_num
		bne	search_loop

		ldy	#vcr.status
		lda	[my_vcr_ptr],y
		and	#vcr_swapped
		bne	do_mount
		clc				;this is it.
		rts

do_mount
		jsr	mount_volume
		rts

		ENDP

		Eject
;==========================================================================
;Read:          This file contains code used to read data from a file.
;               The types of files supported are:
;
;                       1) seedling
;                       2) sapling
;                       3) tree
;                       4) directory
;
;Created:       May 16, 1987
;Modified:      Apr 16, 1988
;Author:        Rob Turner
;
;Enter:         jml
;
;Input:         A = undefined
;               X = call number times 2
;               Y = class times 2
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;Uses:          All registers
;               Device Dispatcher  (subroutine)
;               General I/O Buffer (1K buffer, I read 512 bytes)
;               and lots of other stuff to.
;
;Call Format:
;
;Class 0        Reference Number        (2 Bytes)
;               Pointer to Data Buffer  (4 Bytes)
;               Request Count           (4 Bytes)
;               Transfer Count          (4 Bytes)
;
;Class 1        PCount                  (2 Bytes)
;               Reference Number        (2 Bytes)
;               Pointer to Data Buffer  (4 Bytes)
;               Request Count           (4 Bytes)
;               Transfer Count          (4 Bytes)
;               Cache Priority          (2 Bytes)
;
;==========================================================================
		longa	on
		longi	on

read		PROC	Export
		with	my_dp
		Import	send_partial
		Import	num_seq_blks

		lda	#drvr_read		;setup for device read
		sta	drvr_call_num

;==========================================================================
;sets up parameters from GS/OS call block, and verifies class and max pcnt
;
;setup params returns the class in the Accumulator.  It also does the
;load as the last instruction before the 'RTS'
;==========================================================================

		jsr	setup_params
		jsr	read_write_setup

;==========================================================================
;Go and get the newline length from the FCR and save it on zero page.
;==========================================================================
		stz	newline_len		;disable newline mode please

;==========================================================================
;We need to get the mask as well as the newline list pointer
;==========================================================================
		ldy	#fcr.mask
		lda	[my_fcr_ptr],y
		sta	newline_mask
		beq	no_newline

		ldy	#fcr.newline_len
		lda	[my_fcr_ptr],y
		sta	newline_len
		beq	no_newline		;ok I like this read

;==========================================================================
;Since newline is enabled we must dereference the newline VP and save it
;==========================================================================

		ldy	#fcr.newline
		lda	[my_fcr_ptr],y
		tax
		iny
		iny
		lda	[my_fcr_ptr],y
		tay
		jsl	deref
		stx	newline_ptr
		sty	newline_ptr+2

;==========================================================================
;When we finally get here we are thru with setting up the newline list
;==========================================================================

no_newline
		ldy	#vcr.dev
		lda	[my_vcr_ptr],y
		sta	drvr_dev_num

;==========================================================================
;Just to be complete I guess I should check if the file is read enabled.
;==========================================================================

		ldy	#fcr.access		;check the user's access privs.
		lda	[my_fcr_ptr],y
		and	#ClrAllButAccess
		cmp	#write_access		;does the file have write only access?
		bne	i_can_read		;read is allowed

		lda	#invalid_access
error_out
		sec
		brl	main_exit


I_can_read

;==========================================================================
;Now we need to move some variables from the FCR to zero page.
;We do this just to make it easy to get to the variables.
;
;First lets move the current file marker and EOF to direct page
;==========================================================================

		jsr	setup_curr_mark
		jsr	setup_curr_eof

;==========================================================================
;Now lets see if we are at the end of the file.
;IF curr_mark = EOF THEN return EOF error
;==========================================================================

		lda	curr_mark+2
		cmp	curr_eof+2
		bcc	not_eof
		lda	curr_mark
		cmp	curr_eof
		bne	not_eof

		lda	#end_of_file		;sorry no more bytes to read
		bra	error_out

not_eof

;==========================================================================
;OK go and get the storage type for the file
;We use this field to determine how to read the file.
;==========================================================================

		ldy	#msdos_fcr.storage
		lda	[msdos_fcr_ptr],y
		cmp	#subdir_type		;trying to read a directory directly?
		bcc	@allow_read		;no...
		lda	#bad_store_type		;else error out (like HFS)
		bra	error_out

@allow_read
		jsr	chk_swapped		;mount the volume if needed
		bcc	disk_online
		brl	main_exit
disk_online

;==========================================================================
;when we get here we have found the lost volume.  So we must reset our
;flags and change our device number, in both the VCR and FCR
;==========================================================================

		lda	drvr_dev_num		;new device number
		ldy	#vcr.dev
		sta	[my_vcr_ptr],y		;update VCR

		ldy	#vcr.status
		lda	[my_vcr_ptr],y
		and	#vcr_swapped_in		;set 'disk in' flag
		sta	[my_vcr_ptr],y

;==========================================================================
;Now the disk is ready to be talked to
;==========================================================================

disk_in

;==========================================================================
;Now we need to compare req_cnt to EOF.
;
;IF (req_count + curr_mark) > EOF THEN
;    req_cnt := (EOF-curr_mark)
;
;NOTE: carry must be clear when we get here.
;==========================================================================

		lda	curr_mark
		adc	user_req_cnt
		sta	math_temp
		lda	curr_mark+2
		adc	user_req_cnt+2

		cmp	curr_eof+2
		bcc	not_greater		;no problem with request count
		bne	too_large
		lda	math_temp
		cmp	curr_eof		;check lower 16 bits
		bcc	not_greater
		beq	not_greater

too_large

;==========================================================================
;If the request is too large then we need to adjust the request count.
;==========================================================================

		sec
		lda	curr_eof
		sbc	curr_mark
		sta	user_req_cnt
		lda	curr_eof+2
		sbc	curr_mark+2
		sta	user_req_cnt+2

not_greater

;==========================================================================
;see if newline is enabled.  If it is not then call the fast routines.
;otherwise fall into snell mode.
;==========================================================================

		lda	newline_len
		beq	fast_read		;runs like a bat out of hell!
		dec	a			;see if this is a single char newline
		bne	fast_read
		lda	[newline_ptr]
		and	#$00FF			;clear garbage byte
		sta	newline_char
fast_read

;==========================================================================
;If we get here we know that newline is disabled so we do not have to check
;each character that we read.  This means that multiple blocks can be moved
;into the user's buffer directly without having to go into the I/O buffer.
;Note however that the last block is moved into the I/O buffer.
;
;before we can start sending multiple blocks we must empty the current
;data block that is in our buffer.  If there are enough bytes to satisfy
;the read request we just send the bytes and exit.
;==========================================================================

single_block

		jsr	send_partial
		bcc	fast_loop
		clc
		brl	end_read_write		;all done with read.

;==========================================================================
;First lets calculate how many bytes are left in this block.
;==========================================================================

fast_loop
		lda	user_req_cnt+2
		bne	do_seq_blks
		lda	user_req_cnt
		cmp	#blk_size+1
		bcs	do_seq_blks

		brl	send_last		;we have less then 512 bytes left

do_seq_blks

;==========================================================================
;We know that the user still has more then 512 bytes to go before the read
;request is satisfied.  So lets go and see if there are any sequential
;blocks that we can read.  If there are no sequential blocks then we must
;get the block address our selves and issue a read of one block.  This
;of course makes mister happy face very sad since he will have to double
;buffer.
;==========================================================================

		lda	newline_len		;newline mode enabled?
		bne	single_block		;yup, can't read sequential blocks

		jsr	num_seq_blks		;see if there are any sequential blks
		beq	single_block

seq_avail

;==========================================================================
;when we get here we know that there are some sequential blocks that can
;be read.  But we must see if the number of sequential blocks is less then
;the number of blocks wanted.
;==========================================================================

		phy				;save starting block offset
		txa				;put cluster # into accumulator
		jsr	Cluster2Block		;convert to physical block #
		clc
		adc	1,s			;combine with offset
		sta	drvr_blk_num		;save block number for read
		stz	drvr_blk_num+2
		stz	drvr_req_cnt
		stz	drvr_req_cnt+2
		pla				;clean up stack

		lda	user_req_cnt+1		;first convert bytes wanted to blocks
		lsr	a
		cmp	math_temp
		bcc	use_users_size
		lda	math_temp		;use ALL sequential blocks.

use_users_size

		asl	a			;convert block count to bytes
		sta	drvr_req_cnt+1

;==========================================================================
;Now setup the buffer pointer to point to the user's buffer.
;==========================================================================

		lda	users_buf_ptr
		sta	drvr_buf_ptr
		lda	users_buf_ptr+2
		sta	drvr_buf_ptr+2

		jsr	read_with_mount
		bcc	cont001			;good.
		brl	end_read_write

cont001
		jsr	rw_adjust		;adjust the following:
;                                       	;(1) user_buf_ptr
;                                       	;(2) tran_cnt
;                                       	;(3) curr_mark
;                                       	;(4) user_req_cnt

		brl	fast_loop

;==========================================================================
;
;==========================================================================

send_last
		jsr	send_partial
		clc

;==========================================================================
;===== END of READ call.  We save the processor status and error code =====
;=====                    We then send back the number of bytes that  =====
;=====                    were read successfully.  Then we restore any=====
;=====                    error condition and exit thru sys_exit.     =====
;==========================================================================

		Entry	end_read_write
end_read_write					;common exit for read and write
		php
		pha

		ldy	#pblk_12_tran
		lda	tran_cnt
		sta	[my_pblk_ptr],y
		iny
		iny
		lda	tran_cnt+2
		sta	[my_pblk_ptr],y

;==========================================================================
;Save the current file marker after the read call completes.
;==========================================================================
		jsr	save_curr_mark

		pla
		plp
		brl	main_exit

;==========================================================================
;bump_mark      This routine will adjust the following fields:
;
;               1) users_buf_ptr        := users_buf_ptr + bytes_sent
;               2) curr_mark            := curr_mark + bytes_sent
;               3) user_req_cnt         := user_req_cnt - bytes_sent
;               4) tran_cnt             := tran_cnt+bytes_sent
;input:
;               A = number of bytes to bump fields by.
;
;Uses:          math_temp
;==========================================================================

		Entry	bump_mark
bump_mark
		sta	math_temp
		clc
		lda	users_buf_ptr
		adc	math_temp
		sta	users_buf_ptr

		bcc	do_mark
		inc	users_buf_ptr+2
		clc
do_mark

;==========================================================================
;IMPORTANT NOTES:
;
;               users_buf_ptr is always =< $00FFFFFF
;
;WARNING! --> CARRY must be clear when we get here!
;==========================================================================

		lda	curr_mark
		adc	math_temp
		sta	curr_mark
		bcc	do_tran
		inc	curr_mark+2
		clc
do_tran

;==========================================================================
;IMPORTANT NOTES:
;
;               curr_mark+math_temp is always less the $00FFFFFF
;
;WARNING! --> CARRY must be clear when we get here!
;==========================================================================

		lda	tran_cnt
		adc	math_temp
		sta	tran_cnt
		bcc	do_req_cnt
		inc	tran_cnt+2

do_req_cnt
		sec
		lda	user_req_cnt
		sbc	math_temp
		sta	user_req_cnt
		bcs	end_bump
		dec	user_req_cnt+2

end_bump	rts


;==========================================================================
;Set_users_buf  This routine moves the users buffer pointer into
;               drvr_buf_ptr.  This allows block read from a device driver
;               to go directly to the users buffer.
;==========================================================================

set_users_buf
		lda	users_buf_ptr		;bypass my I/O buffer
		sta	drvr_buf_ptr
		lda	users_buf_ptr+2
		sta	drvr_buf_ptr+2
		rts
		ENDP

		Eject
;==========================================================================
;send_partial   This routine will send data from the current file marker to
;               the end of the data buffer.
;
;Input:         A = undefined
;               X = indefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               curr_mark               (must be correct)
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = data transfer complete
;                          0 = no error
;               b = k
;
;Uses:          All registers
;               move_block
;==========================================================================

send_partial	PROC
		with	my_dp
		Import	fill_io_buf

;==========================================================================
;first make sure the I/O buffer is filled to the brim.
;==========================================================================

		jsr	fill_io_buf
		bcc	filled_up		;buffer is now ok
		brl	end_read_write

;==========================================================================
;lets see how many bytes are left in the currently loaded data block.
;==========================================================================

filled_up
		lda	curr_mark
		and	#$01FF
		sec
		sbc	#blk_size		;Bytes_left := buf_size-curr_position
		eor	#$FFFF			;(complemented math)
		inc	a			;number of bytes left in buffer.

;==========================================================================
;now lets calculate how many bytes we need to send to the user
;==========================================================================

		ldx	user_req_cnt+2
		bne	send_all_bytes		;he wants as many as I can give
		cmp	user_req_cnt
		beq	send_all_bytes
		bcc	send_all_bytes

		lda	user_req_cnt		;the user wants less then I have

send_all_bytes
		sta	math_temp
		tay

;==========================================================================
;If newline is enabled then we have to do processing on each character
;so we avoid the block move routine.
;==========================================================================

		lda	newline_len
		bne	check_newline

;==========================================================================
;If we get here then newline is disabled so use the block move instruction
;==========================================================================

		clc
		lda	curr_mark		;adjust the starting position
		and	#$01FF
		adc	data_ptr
		tax				;save low address of buf pointer
		lda	#$0000
		adc	data_ptr+2

		cpy	#min_send_cnt		;minimum bytes needed to use blk move
		bcc	send_small

		pha				;push high word of buffer pointer
		phx				;push low word of buffer pointer

		pei	users_buf_ptr+2		;destination address
		pei	users_buf_ptr
		pea	$0000			;high word of count
		phy				;number of bytes to send
		pea	move_sinc_dinc
		jsl	move_info
		bra	end_partial

;==========================================================================
;This routine will transfer a request count of less than $20 characters to
;the user's buffer.  We do this to speed things up.
;==========================================================================

send_small
		stx	temp_ptr
		sta	temp_ptr+2		;pointer to the user's buffer
		dey
		tya
		bmi	end_partial		;zero bytes to move?
		cmp	#$0002			;are we moving less then two bytes?
		bcc	send_8_bit
		dec	a			;second decrement for word check
		ror	a			;is it an even transfer?
		bcs	send_8_bit
		dey
loop_16
		lda	[temp_ptr],y
		sta	[users_buf_ptr],y
		dey
		dey
		bpl	loop_16
		bra	end_partial

send_8_bit
		sep	#$20			;8 bit accum
loop_8
		lda	[temp_ptr],y
		sta	[users_buf_ptr],y
		dey
		bpl	loop_8
		rep	#$20

;==========================================================================
;Now that we have send the data adjust the pointers etc.
;==========================================================================

end_partial
		lda	math_temp
		jsr	bump_mark
		lda	user_req_cnt
		ora	user_req_cnt+2
		beq	all_done		;request count satisfied

		ldy	#msdos_fcr.status	;we are going to read another block so make sure
		lda	[msdos_fcr_ptr],y	;the I/O buffer is clean
		and	#file_dirty
		beq	@not_dirty
	if NOT read_only_fst then
		jsr	flush_io_buffer		;write the dirty blocks to disk
		bcc	@not_dirty
		brl	main_exit
	endif
@not_dirty
		clc
		rts

all_done
		sec
		rts

;==========================================================================
;Below is the code used to handle the newline checking.  For this code we
;set the accumulator into 8 bit mode so we do not overflow the user's
;buffer.
;==========================================================================

check_newline
		tax				;save newline length for a second

		lda	curr_mark		;isolate block index
		and	#$01FF
		tay

		sta	entries_checked
		sec
		lda	users_buf_ptr
		sbc	entries_checked
		sta	temp_ptr
		lda	users_buf_ptr+2
		sbc	#$0000
		sta	temp_ptr+2

		clc
		tya
		adc	math_temp		;calculate the last byte address
		sta	entries_checked


		dex				;see if this is a special case
		bne	slow_read
		php				;save the mode please
		longa	off
		sep	#$20			;short accumulator

fast_newline
		lda	[data_ptr],y
		sta	[temp_ptr],y
		and	newline_mask
		cmp	newline_char
		beq	found_newline
		iny
		cpy	entries_checked		;are we done yet
		bne	fast_newline
		plp				;be nice and restore last mode please.
		bra	end_partial

found_newline
		plp				;restore last mode please
		longa	on

;==========================================================================
;Number of bytes := Ending position minus starting position
;               Y = ending position
;       curr_mark = starting position
;==========================================================================

		lda	curr_mark
		and	#$01FF
		sta	math_temp
		sec
		tya
		sbc	math_temp
		inc	a
		jsr	bump_mark		;adjust the pointers etc
		stz	user_req_cnt
		stz	user_req_cnt+2
		sec
		rts

;==========================================================================
;This routine is called when there is more then one newline character to
;check.  This routine is slower then the above newline read since I have
;to scan all newline characters against a list
;==========================================================================

slow_read

;==========================================================================
;newline_len := newline_len-1  So I can use it as an index into the newline
;list.
;==========================================================================

*** removed 21-Jul-92 DAL -- See corresponding change in ProDOS FST
;;;		dec	newline_len

		php
		longa	off
		sep	#$20

slow_newline
		lda	[data_ptr],y
		sta	[temp_ptr],y
		and	newline_mask
		tyx				;save index first
		ldy	newline_len
*** added 21-Jul-92 DAL -- decrement the count here instead of above
		dey
*** end 21-Jul-92

next_newline
		cmp	[newline_ptr],y
		beq	found_one
		dey
		bpl	next_newline

		txy				;restore index first
		iny
		cpy	entries_checked		;are we done yet
		bne	slow_newline
		plp				;be nice and restore last mode please.
		brl	end_partial

found_one
		txy				;restore Index first
		bra	found_newline

		ENDP

		Eject
;==========================================================================
;fill_io_buf:   This routine will load into the I/O buffer the correct
;               data blocks.  It will also adjust the FCR data
;
;               WARNING: curr_mark must not point beyond the current
;               structure of the file, even though that mark may be within
;               the file's EOF. This could happen if a file has a trailing
;               portion which is all sparse from a position <128K to a
;               position >128K. In this case the file is stored as a
;               sapling, not a tree, but owns a sparse area that is
;               logically within the "tree" range. In such a case,curr_mark
;               must never be in that range when entering this routine.
;
;Input:         A = undefined
;               X = indefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               curr_mark               (must be correct)
;               data_ptr
;               msdos_fcr_ptr           (points to MSDOS data in FCR)
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;Uses:          All registers
;               drvr_blk_num
;               drvr_call_num
;               drvr_buf_ptr
;               drvr_req_cnt
;               device_dispatcher
;
;
;==========================================================================
		longa	on
		longi	on

fill_io_buf	PROC
		with	my_dp

		stz	mark_changed
		jsr	setup_curr_eof

		lda	curr_mark		;is the mark zero?
		ora	curr_mark+2
		beq	mark_ok			;yes so don't subtract one

		lda	curr_mark+2
		cmp	curr_eof+2		;see if current mark = eof
		bcc	mark_ok
		lda	curr_mark
		cmp	curr_eof
		bcc	mark_ok			;no problem

		sbc	#$0001			;curr_mark := curr_mark-1
		sta	curr_mark

		lda	curr_mark+2
		sbc	#$0000
		sta	curr_mark+2

		dec	mark_changed

mark_ok
		jsr	standard_req		;read 512 bytes only

;==========================================================================
;Fill_data:     This routine will fill up the data block if it can.
;
;Below is pascal type segment which indicates how Fill_data works.
;
;   BEGIN
;     blk_num := get_blk_address(curr_mark) ; {Get block address from index blk}
;     IF blk_num = $0000 THEN
;        sparse_blk(data_buffer) ;       {Fill Index buffer with zeros}
;        ELSE
;         IF curr_blk <> blk_to_read THEN
;            read_blk(index_buffer) ;    {Load index block from disk}
;    END
;
;==========================================================================

fill_data
cluster_num	equ	index_ptr
rel_blk_num	equ	index_ptr+2

		jsr	get_data_num		;setup drvr_blk_num from index blk
		stx	cluster_num
		sta	rel_blk_num

		ldy	#msdos_fcr.cluster_blk_num
		cmp	[msdos_fcr_ptr],y	;already at the correct block?
		bne	load_data		;no, must load new block
		ldy	#msdos_fcr.curr_cluster	;same cluster?
		txa
		cmp	[msdos_fcr_ptr],y
		beq	exit_fill_data		;block is already loaded!

load_data
		jsr	chk_data_clean		;make sure the data buffer is OK
		bcs	outta_here		;must have gotten error during flush
		lda	cluster_num
		jsr	Cluster2Block		;convert cluster # to block #
		clc
		adc	rel_blk_num		;include block offset within cluster
		sta	drvr_blk_num		;save as block # to read
		stz	drvr_blk_num+2
		
		lda	data_ptr		;read into FCR buffer
		sta	drvr_buf_ptr
		lda	data_ptr+2
		sta	drvr_buf_ptr+2
		jsr	read_with_mount		;read in the block please
		bcs	outta_here
store_data_num
		ldy	#msdos_fcr.curr_cluster	;update current cluster loaded fields
		lda	cluster_num
		sta	[msdos_fcr_ptr],y
		ldy	#msdos_fcr.cluster_blk_num
		lda	rel_blk_num
		sta	[msdos_fcr_ptr],y
exit_fill_data
		clc
outta_here
		php				;save error flag
		pha				;save error code
		bit	mark_changed
		bpl	no_change
		inc	curr_mark
		bne	no_change
		inc	curr_mark+2
no_change
		pla
		plp
		rts


;==========================================================================
; get_data_num:	Convert current mark into a relative block number from the
;		beginning of the file.  Then walk the file's FAT chain to
;		determine the cluster number and block number within the
;		cluster.
;
; on exit:	X = cluster number containing block
;		Acc = block # within cluster
;		drvr_blk_num = physical block number

		entry	get_data_num
get_data_num

; first, divide current mark by 512 to determine the relative block offset
; (divide by 256 by ignoring the low byte, then divide by 2 by shifting
; the upper 3 bytes right 1 bit.)

		lda	curr_mark+3		;get high byte
		lsr	a			;get low bit into carry
		lda	curr_mark+1		;get middle two bytes
		ror	a			;24-bit division by 2

; we now have the relative block number in the accumulator

		pha				;save on stack

; cluster = start_cluster

		ldy	#msdos_fcr.start_cluster
		lda	[msdos_fcr_ptr],y	;get starting cluster
		tax				;into X

; while(rel_blk_num > cluster_size) {

@while_loop
		ldy	#msdos_fcr.cluster_size
		lda	1,s			;get rel_blk_num
		cmp	[msdos_fcr_ptr],y	;compare against cluster size
		beq	@1			;if equal, try again
		bcc	@end_loop		;found it!
@1

;	rel_blk_num -= cluster_size

		sec
		sbc	[msdos_fcr_ptr],y	;update loop counter
		sta	1,s

;	cluster = get_fat_entry(cluster)

		txa				;get cluster number
		jsr	get_fat_entry		;get next entry in chain
		tax

; }
		bra	@while_loop

@end_loop

		pla				;retrieve final block offset (within cluster)
		rts				;with cluster number in X

;==========================================================================
;Chk_data_clean will determine if the current data block needs to be 
;written to disk before the new block is loaded
;==========================================================================
chk_data_clean
		clc				;assume no errors (yea, right!)
		phy
		ldy	#msdos_fcr.status	;we are going to read another block so make sure
		lda	[msdos_fcr_ptr],y	;the I/O buffer is clean
		and	#data_dirty
		beq	@not_dirty		;easy case.

	if NOT read_only_fst then
		jsr	flush_data_blk		;save the data to disk
	endif
@not_dirty
		ply
		rts				;carry will return any error

		EndP

		Eject
;==========================================================================
;num_seq_blks: This routine will calculate the number of sequential
;               blocks in a file.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               index_ptr               (points to the index pointer)
;               curr_mark               (curr_mark must be on block boundary!)
;
;Output:        A = number of blocks that are sequential
;               X = starting cluster number
;               Y = starting block offset within cluster
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Uses:          All registers
;               math_temp               (just a temp counter)
;               check_cluster = entries_checked
;		rel_blk_num = index_ptr+2
;
;==========================================================================
		longa	on
		longi	on

num_seq_blks	PROC	
		with	my_dp

;==========================================================================
;Local equates for this routine
;==========================================================================

check_cluster	equ	entries_checked		;(same ZP location different name)
rel_blk_num	equ	index_ptr+2

;==========================================================================
;First we convert the current mark into a current cluster/block offset
;==========================================================================

		jsr	get_data_num		;get the cluster and block numbers
		sta	rel_blk_num		;save starting block # position within cluster
		
		ldy	#msdos_fcr.cluster_size	;calculate # of blocks remaining
		sec				; within this cluster
		sbc	[msdos_fcr_ptr],y
		eor	#-1			;(complemented math)
		inc	a
		sta	math_temp		;store as # of sequential blocks (so far)
		
		phx				;save starting cluster number
		txa
		inc	a			;increment for comparison below
		sta	check_cluster

calc_loop

;==========================================================================
;Retrieve the next cluster number in the chain, compare for sequentiality (?)
; and update the block count if it is sequential.
;==========================================================================

		txa				;cluster # to Acc
		jsr	get_fat_entry		;read the FAT
		bcs	seq_exit		;we have looked at the entire chain
		cmp	check_cluster		;immediately follows previous cluster?
		bne	seq_exit		;nope, not sequential
		tax				;else save in X
		inc	a			;bump for next comparison
		sta	check_cluster		;setup for next compare

		ldy	#msdos_fcr.cluster_size	;add cluster size to counter
		clc
		lda	[msdos_fcr_ptr],y
		adc	math_temp
		sta	math_temp
		bra	calc_loop

seq_exit

;==========================================================================
;return the number of sequential blocks and starting cluster #.
;==========================================================================

		plx				;load X with starting cluster
		ldy	rel_blk_num		;return this too
		lda	math_temp		;return number of sequential blocks
		rts

		ENDP

	if NOT read_only_fst then
		Eject
;==========================================================================
;Write:         This file contains code used to write data to a file.
;               The types of files supported are:
;
;                       1) seedling
;                       2) sapling
;                       3) tree
;
;Created:       oct 06, 1987
;Modified:      oct 15, 1987
;Author:        Rob Turner
;
;Enter:         jml
;
;Input:         A = undefined
;               X = call number times 2
;               Y = class times 2
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;Uses:          All registers
;               Device Dispatcher  (subroutine)
;               General I/O Buffer (1K buffer, I read 512 bytes)
;               and lots of other stuff.
;
;Call Format:
;
;Class 0        Reference Number        (2 Bytes)
;               Pointer to Data Buffer  (4 Bytes)
;               Request Count           (4 Bytes)
;               Transfer Count          (4 Bytes)
;
;Class 1        PCount                  (2 Bytes)
;               Reference Number        (2 Bytes)
;               Pointer to Data Buffer  (4 Bytes)
;               Request Count           (4 Bytes)
;               Transfer Count          (4 Bytes)
;               Cache Priority          (2 Bytes)
;
;==========================================================================
		longa	on
		longi	on

write		PROC	Export
		with	my_dp

		stz	seq_write_cnt		;reset sequential block counter
		jsr	setup_params		;setup standard parameters

		ldy	#fcr.access		;see if the file is write protected
		lda	[my_fcr_ptr],y
		and	#ClrAllButAccess
		cmp	#write_access
		bcs	write_ok		;write access is enabled.

bad_access					; ;user cannot write to this file.
		lda	#invalid_access
		sec
		brl	main_exit

write_ok
		ldy	#vcr.dev		;last known location of volume
		lda	[my_vcr_ptr],y
		sta	drvr_dev_num		;I hope that the disk is still here.

		jsr	chk_disk_protect

not_protected
		jsr	read_write_setup
		jsr	setup_curr_mark
		jsr	setup_curr_eof

		jsr	setup_io_ptrs		;setup pointers to I/O buffer
		jsr	chk_swapped		;mount the volume if needed
		bcc	vol_online
		brl	main_exit

;==========================================================================
; IF curr_mark NOT block_aligned THEN
;==========================================================================
vol_online
		jsr	users_to_drvrs		;move user's pointer to driver's ptr
		jsr	user_to_temp		;temp_ptr := user_buf_ptr

block_loop
		lda	curr_mark		;see if we are block aligned
		and	#$01FF
		beq	block_aligned		;yes we are block aligned
		jsr	partial_write		;write until data is block aligned.
		bcs	write_exit		;major problem
		bra	next_block

block_aligned
		lda	user_req_cnt+2		;is req_cnt >= 512?
		bne	more_then_512
		lda	user_req_cnt
		cmp	#blk_size
		bcc	less_then_512
more_then_512
		jsr	full_write		;transfer full 512 bytes.
		bcs	write_exit
		bra	next_block		;go to the next block please

;==========================================================================
;Less_then_512. we have less then 512 bytes to write.
;==========================================================================
less_then_512
		jsr	partial_write		;write the partial block to disk
		bcs	write_exit		;major problem.

next_block
		jsr	rw_adjust		;adjust the following:
;                                       ;(1) user_buf_ptr
;                                       ;(2) tran_cnt
;                                       ;(3) curr_mark
;                                       ;(4) user_req_cnt
		lda	user_req_cnt+2		;see if we are done yet
		bne	block_loop
		lda	user_req_cnt
		bne	block_loop
		clc

write_exit

		php
		pha
		bcc	@10			;there is no error so skip flush

		jsr	flush_file		;try to save the world
@10
		jsr	update_mark_eof		;make sure the mark is OK

		ldy	#msdos_fcr.curr_eof	;update the current end of file please
		lda	curr_eof
		sta	[msdos_fcr_ptr],y
		iny
		iny
		lda	curr_eof+2
		sta	[msdos_fcr_ptr],y

		lda	#file_dirty
		jsr	set_fcr_status		;indicate that something changed.
		jsr	standard_req		;make sure we write 512 bytes only

		jsr	flush_blocks		;flush any blocks to disk.
		bcs	write_failed		;bad news we cannot complete the flush!!!
;       
;We know that the mark actually points to one past where the last byte is so
;lets reduce the mark by one please
;v00.06 a06
;               
		lda	curr_mark
		bne	@no_high
		dec	curr_mark+2
@no_high
		dec	curr_mark

		clc
		jsr	get_write_blk		;make sure I/O buffer is OK
		bcs	write_failed
		txa				;block to load
		beq	holy_cow		;I hope not
		jsr	load_data		;load the data buffer please
		bcs	write_failed
holy_cow
		inc	curr_mark
		bne	@low_only
		inc	curr_mark+2
@low_only

		pla				;restore error code
		plp
		brl	end_read_write		;exit thru wonder code in read file

write_failed
		plx				;kill the old exit code
		plp				;kill the old processor flag
		sec				;make sure the error is set
		brl	end_read_write		;exit please.

;==========================================================================
;Write blocks of 512 to disk
;==========================================================================

full_write
		lda	#blk_size
		jsr	range_chk_eof		;see if we overrun the EOF
		bcs	eof_error		;sorry we have an eof error

		jsr	standard_req		;transfer of 512 bytes
		ldy	#msdos_fcr.status	;see if the data block is dirty
		lda	[msdos_fcr_ptr],y
		and	#data_dirty
		beq	clean_blk		;no flush needed
		jsr	flush_data_blk		;write the data block to disk
		bcs	write_exit		;get out of here with the error code

clean_blk
		jsr	user_to_temp		;temp_ptr := user_buf_ptr
		clc
		jsr	get_write_blk		;is there a current block allocated?
		bne	block_allocated		;yes there is a block allocated.

		jsr	chk_sparse		;is the user's data sparse?
		bcc	do_flush		;data sparse so flush queued data blocks
;               sec
		jsr	get_write_blk		;allocate a block please
		bcc	@no_error
		brl	write_exit		;cannot allocate a new block?
@no_error
		pha
		jsr	user_to_temp		;point to user's buffer
		pla
block_allocated
		sta	drvr_blk_num		;save the block number to write.
		jsr	user_to_data		;move user's data to data buffer
		jsr	write_data_blk		;write the data block to disk.
		rts

do_flush
		jsr	flush_blocks		;issue the flush command
		rts

user_to_data
		lda	users_buf_ptr		;setup driver buffer pointer to
		sta	drvr_buf_ptr		;point to the user's data!
		lda	users_buf_ptr+2
		sta	drvr_buf_ptr+2
		rts

eof_error
		lda	#out_of_range		;you have pushed me too far!!!
		sec
		rts




;               ldy     #$01FE          ;move 512 bytes please
;user_loop       anop
;               lda     [drvr_buf_ptr],y
;               sta     [data_ptr],y
;               dey
;               dey
;               bpl     user_loop
;               rts

;==========================================================================
;partial_write: This routine will handle reading/writing a partial block
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;Uses:          All registers
;==========================================================================

partial_write
		jsr	build_index		;simulate a disk write
		jsr	range_chk_eof		;see if we overrun the EOF
		bcs	eof_error		;sorry we have an eof error

		jsr	standard_req		;we can only write 512 bytes!
		jsr	flush_blocks		;write any left over seq. blocks
		bcs	end_partial		;error condition
		clc
		jsr	get_write_blk		;is there a current block allocated?
		bne	block_is_avail		;there is a block allocated.

; we know that the block is not allocated so check the data

		jsr	chk_sparse		;AND (data NOT sparse)
		bcc	is_sparse		;... (data IS sparse)
		jsr	get_write_blk		;allocate a block for the new data
		bcs	end_partial
		pha				;save the block number
		ldx	data_ptr		;clear the new data block
		ldy	data_ptr+2
		jsr	clear_index
		pla
block_is_avail
		jsr	load_data		;load in the data block
		bcs	end_partial
		jsr	user_to_temp
		jsr	merge_data		;add data to current block!
		lda	#file_dirty+data_dirty
		jsr	set_fcr_status		;indicate that something changed.
		clc
		rts

is_sparse
		ldy	#msdos_fcr.data_blk_num
		lda	[msdos_fcr_ptr],y	;is block already loaded?
		beq	@sparse_loaded

		ldy	#msdos_fcr.status
		lda	[msdos_fcr_ptr],y
		and	#data_dirty
		beq	@just_clear_buf		;no need to update the data block

		jsr	flush_data_blk
		bcs	end_partial
@just_clear_buf
		ldx	data_ptr		;clear the new data block
		ldy	data_ptr+2
		jsr	clear_index

		ldy	#msdos_fcr.data_blk_num
		lda	#$0000
		sta	[msdos_fcr_ptr],y	;is block already loaded?

@sparse_loaded
		jsr	build_index		;simulate a disk write
		sta	drvr_req_cnt
		stz	drvr_req_cnt+2
		clc
end_partial
		rts
;==========================================================================
;Range_chk_eof  This routine will make sure the write call will work with
;               the three byte eof.
;
;Input:         A = write_count
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               curr_eof        ;the current eof
;
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;Uses:          All registers
;==========================================================================
range_chk_eof
		clc
		adc	curr_mark
		lda	#0000
		adc	curr_mark+2		;check the high word
		and	#$FF00			;clear the result
		bne	range_err
		clc
		rts
range_err
		sec
		rts


;==========================================================================
;write_data_blk This routine will write data blocks to disk. The code will
;               determine if we can hold off writing to disk so we can
;               gain performance by doing a multi-block transfer call.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               drvr_blk_num            ;block number to write
;               drvr_buf_ptr            ;pointer to the data
;
;
;Output:        A = error code if carry set otherwise undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;Uses:          All registers
;==========================================================================

write_data_blk
		lda	seq_write_cnt		;do we have anything to write?
		beq	new_block		;no
		lda	drvr_blk_num		;is this a sequential block write?
		dec	a
		cmp	seq_write_blk
		beq	bump_seq		;bump the sequential counter

		lda	drvr_blk_num		;save block number to write
		pha
		lda	drvr_buf_ptr
		pha
		lda	drvr_buf_ptr+2
		pha
		jsr	flush_blocks		;write any seq. blocks to disk
		plx
		stx	drvr_buf_ptr+2
		plx
		stx	drvr_buf_ptr
		plx
		stx	drvr_blk_num
		stz	seq_write_cnt
		bcs	end_write_data		;error

new_block
		inc	seq_write_cnt		;advance the number of sequential blks
		lda	drvr_blk_num
		sta	seq_write_blk		;starting block for write call

		jsr	move_to_data_buf

		lda	drvr_buf_ptr
		sta	seq_write_start
		lda	drvr_buf_ptr+2
		sta	seq_write_start+2
end_write_data
		lda	#data_clean		;indicate that we have written block.
		jsr	clr_fcr_status
		jsr	standard_req		;set drvr_req_cnt to 512 bytes.
		clc				;exit
		rts

bump_seq
		inc	seq_write_cnt		;advance the block counter
		inc	seq_write_blk		;update new last sequential block
		lda	user_req_cnt+2
		bne	end_write_data
		lda	user_req_cnt
		cmp	#blk_size*2
		bcs	end_write_data

		ldy	#msdos_fcr.data_blk_num
		lda	drvr_blk_num
		cmp	[msdos_fcr_ptr],y	;Should I Copy the data to the buffer
		bne	end_write_data		;Do not move the data.

		jsr	do_data_update
		bra	end_write_data
;
;This routine copies the user's data to the I/O Buffer
;
;input: A = block number
;
move_to_data_buf
		ldy	#msdos_fcr.data_blk_num
		cmp	[msdos_fcr_ptr],y	;is block already loaded?
		bne	io_buf_ok		;don't worry about I/O buffer update
do_data_update
		pei	drvr_buf_ptr+2		;address of user's data
		pei	drvr_buf_ptr

		pei	data_ptr+2		;destination address
		pei	data_ptr
		pea	$0000			;high word of count
		pea	blk_size		;number of bytes to send
		pea	move_sinc_dinc
		jsl	move_info
io_buf_ok	rts

;==========================================================================
;flush_blocks:  This routine will write out any data blocks that have not
;               been written to disk.  If will also make sure that the I/O
;               buffer contains valid data.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = error code if carry set otherwise undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;Uses:          All registers
;==========================================================================
		Entry	flush_blocks
flush_blocks
		lda	seq_write_cnt		;is there anything to write?
		bne	must_write
		clc
		rts

must_write
		stz	seq_write_cnt		;reset the sequential block counter
		stz	drvr_req_cnt		;setup the write count
		asl	a			;convert blocks to bytes
		sta	drvr_req_cnt+1
		lsr	a			;now get the starting block
		dec	a			;subtract one please
		pha
		sec
		lda	seq_write_blk
		sbc	1,s
		sta	drvr_blk_num		;starting block number
		pla				;fix the stack

		lda	seq_write_start
		sta	drvr_buf_ptr
		lda	seq_write_start+2
		sta	drvr_buf_ptr+2		;pointer to the data
		jsr	write_with_mount
		bcs	flush_error
		jsr	standard_req
		clc
flush_error
		rts



;==========================================================================
;Set temp_ptr to the user's buffer pointer
;==========================================================================

user_to_temp
		lda	users_buf_ptr
		sta	temp_ptr		;set pointer to head of data
		lda	users_buf_ptr+2
		sta	temp_ptr+2
		rts

users_to_drvrs
		lda	users_buf_ptr
		sta	drvr_buf_ptr		;set pointer to head of data
		lda	users_buf_ptr+2
		sta	drvr_buf_ptr+2
		rts


;==========================================================================
;merge_data:    This routine will add in the user's data into the I/O
;               buffer.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               curr_mark               ;current file marker
;               msdos_fcr_ptr           ;points to file control record
;               data_ptr                ;points to data block in I/O buffer.
;               temp_ptr                ;points to user data
;               user_req_cnt            ;used by build_index
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;
;               b = k
;
;               drvr_req_cnt            ;equals bytes moved
;
;
;uses:          all registers
;               math_temp
;==========================================================================
merge_data
		jsr	build_index		;'A' = 1 to $1FF
		sta	math_temp		;save count
		sta	drvr_req_cnt		;simulate a write to disk.

		dec	a			;A,X,Y perserved by 'update..' routine
		pha
		tay				;'Y' = 0 to $1FE (move count)
		clc
		lda	curr_mark
		and	#$01FF
		adc	1,s			;make index from END of buffer
		tax				;index into data buffer
		pla				;fix the stack

		longa	off			;block after the merge
		sep	#$20

merge_loop
		lda	[temp_ptr],y		;pointer to user's data
		phy				;save user index
		txy
		sta	[data_ptr],y		;store in the I/O buffer
		dex
		ply
		dey
		bpl	merge_loop		;I/O buffer updated.

		longa	on
		rep	#$20

		clc
		lda	curr_mark		;save the mark
		pha
		adc	math_temp
		sta	curr_mark
		lda	curr_mark+2
		pha
		adc	#$0000
		sta	curr_mark+2

		jsr	clr_to_boundary		;Clear to blk boundary

		pla
		sta	curr_mark+2
		pla
		sta	curr_mark

		rts


;==========================================================================
;See if we have to deal with a sparse block.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               curr_mark               ;current file marker
;               msdos_fcr_ptr           ;pointer to file control record
;               temp_ptr                ;pointer to user's data buffer
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = sparse
;                          0 = not sparse
;               b = k
;
;uses:          all registers
;               math_temp
;
;FUNCTION sparse():boolean
; BEGIN
;  index := (curr_mark MOD 512)
;  sparse := true
;  While (index < block_size) and (index < user_req) and (sparse = true) DO
;        BEGIN
;           IF data[index] <> 0 THEN
;              sparse := flase
;           index := index + 1
;        END
; END
;==========================================================================
chk_sparse
		jsr	user_to_temp		;temp_ptr := user_buf_ptr
		jsr	build_index
		tay				;number of bytes to scan
		dey				;force 1 to $0200 to 0 to $01FF
		longa	off
		sep	#$20			;short accum for test
scan_loop
		lda	[temp_ptr],y		;pointer to user's data
		bne	non_sparse
		dey
		bpl	scan_loop
		longa	on
		rep	#$20			;restore 16 bit mode
		clc
		rts				;user data is all sparse

non_sparse
		longa	on
		rep	#$20			;restore 16 bit mode
		sec
		rts

build_index
		lda	curr_mark		;number of bytes to check in user buf.
		and	#$01FF			;0 to $1FF
		pha
		sec
		lda	#blk_size		;calc number of bytes to scan
		sbc	1,s			;range $0001 to $0200
		ply				;fix the stack

		ldy	user_req_cnt+2		;how many bytes do we need to write?
		bne	full_scan

		cmp	user_req_cnt
		bcc	full_scan
		lda	user_req_cnt

full_scan
		rts

		ENDP
	endif
		Eject
;==========================================================================
;update_mark_eof:
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               curr_mark               ;current file marker
;               curr_eof                ;current end of file
;               msdos_fcr_ptr           ;pointer to file control record
;
;Output:        A = restored
;               X = restored
;               Y = restored
;               P = nvmxdizc
;                   ..000...
;
;               b = k
;==========================================================================
update_mark_eof	PROC

		pha
		phx
		phy

		lda	curr_mark+2
		cmp	curr_eof+2
		bcc	end_update		;EOF still OK
		beq	chk_low_eof
		bra	update_the_eof

chk_low_eof
		lda	curr_mark
		cmp	curr_eof
		beq	end_update
		bcc	end_update		;EOF still OK

update_the_eof
		lda	curr_mark+2
		sta	curr_eof+2		;save the high byte
		lda	curr_mark
		sta	curr_eof		;save the low byte

end_update
		ply
		plx
		pla
		rts
		ENDP

	if NOT read_only_fst then
		Eject
;==========================================================================
;get_write_blk: This routine will return the block number for the new data.
;               If the file has a block allocated then that block number
;               is returned otherwise a new block is allocated for the file.
;               If the file needs to be expanded then it will be.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = allocate a new block if block not allocated
;                          0 = just return current block number. (0 or blk num)
;               b = k
;
;               curr_mark               ;current file marker
;               msdos_fcr_ptr           ;points to file control record
;
;Output:        A = block number of error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;
;uses:          all registers
;               math_temp
;==========================================================================

get_write_blk	PROC
		with	my_dp

		php				;save check flag.
		php
		pla
		sta	alloc_chk_flag
		lsr	a			;are we looking for a
		bcs	do_allocation
		jsr	chk_allocation
		rts
;
;If here then we need to allocate or return the current block.
;
do_allocation
		clc
		lda	curr_mark
		adc	#$0001
		sta	data_eof
		lda	curr_mark+2
		adc	#$0000
		sta	data_eof+2
		jsr	eof_to_blks		;convert current position to blks.

		lda	data_storage		;storage type needed (seed,sapling,tree)
		cmp	#seedling_type
		bne	sapling_case
		brl	add_new_block		;just go and get the block please

sapling_case
		cmp	#sapling_type
		bne	tree_case
;
;IF new_type = sapling THEN
;   IF old_type = seedling THEN
;      seedling_to_sapling
;   ELSE
;      add_index
;
;
		ldy	#msdos_fcr.storage	;current storage type
		lda	[msdos_fcr_ptr],y
		cmp	#seedling_type
		bne	add_new_block
		jsr	seed_to_sap		;convert a seedling to a sapling
		bcc	add_new_block
		rts

;
;IF new_type = tree THEN
;   IF old_type = seedling THEN
;      BEGIN
;          seedling_to_sapling
;          sapling_to_tree
;      END
;   ELSE
;      IF old_type = sapling THEN
;         sapling_to_tree
;      ELSE
;         IF old_type = tree THEN
;            BEGIN
;              IF master_index[curr_mark] = nil THEN
;                 add_master_index
;              add_index
;            END
;

tree_case
		ldy	#msdos_fcr.storage	;current storage type
		lda	[msdos_fcr_ptr],y
		cmp	#seedling_type
		bne	not_seed
		jsr	seed_to_sap		;convert seedling to a sapling
		bcs	abort_tree
		jsr	sapling_to_tree		;convert a sapling to a tree
		bcc	add_new_block
abort_tree	rts

not_seed
		cmp	#sapling_type		;is this a sapling file
		bne	not_sapling
		jsr	sapling_to_tree		;convert a sapling to a tree
		bcs	abort_tree
		bra	add_new_block

not_sapling
		lda	curr_mark+2		;see if the index block is allocated
		lsr	a
		ldx	master_ptr
		ldy	master_ptr+2
		jsr	get_index_blk		;get the index block out of master blk
		tax
		bne	add_new_block		;we do not need to add an index block
		jsr	tree_to_tree		;add a new index block
		bcs	abort_tree

;==========================================================================
;Now lets see if we need to add a new block or return the current block.
;==========================================================================
add_new_block
		jsr	calc_free_blks		;make sure that we have a block avail.
		bcs	abort_tree		;just exit
		tax
		bne	we_have_room
		brl	out_of_room

we_have_room
		ldy	#msdos_fcr.master_blk_num ;see if we should even have looked at
		lda	[msdos_fcr_ptr],y
		beq	no_master		;there is no master block for this file

		lda	curr_mark+2		;see if we need the master index block
		lsr	a
		ldx	master_ptr		;get the block number from index block
		ldy	master_ptr+2
		jsr	get_index_blk		;A = block number
		tax
		bne	cont01			;there is an index block

		ldy	#msdos_fcr.status	;see if old index needs to be flushed
		lda	[msdos_fcr_ptr],y
		and	#index_dirty
		beq	no_index_flush
		jsr	flush_index
		bcs	abort_tree		;exit

no_index_flush
		ldx	master_ptr
		ldy	master_ptr+2
		lda	curr_mark+2
		lsr	a			;now build a new index block
		jsr	new_block
		bcs	abort_tree		;sorry major problem
		pha				;save the block number
		lda	#master_dirty+index_dirty+file_dirty
		jsr	set_fcr_status		;indicate master block dirty
		ldx	index_ptr		;clear the new buffer
		ldy	index_ptr+2
		jsr	clear_index
		pla
		ldy	#msdos_fcr.index_blk_num
		sta	[msdos_fcr_ptr],y

cont01
		ldy	#msdos_fcr.index_blk_num
		cmp	[msdos_fcr_ptr],y	;is the block loaded?
		beq	no_master		;no problem
		sta	key_block		;save the block wanted.
		jsr	flush_index		;write any dirty blocks to disk
		bcs	end_write_blk		;major problems

		lda	key_block		;load in the index block please
		pha
		jsr	load_index
		plx				;restore block number
		bcs	end_write_blk
		txa
		ldy	#msdos_fcr.index_blk_num
		sta	[msdos_fcr_ptr],y

no_master
		lda	curr_mark+1
		lsr	a
		and	#$00FF
		ldx	index_ptr		;get the block number from index block
		ldy	index_ptr+2
		jsr	get_index_blk		;A = block number
		tax
		bne	have_blk

		ldy	#msdos_fcr.status	;see if data block needs to be written
		lda	[msdos_fcr_ptr],y
		and	#data_dirty
		beq	data1_clean
		jsr	flush_data_blk
		bcs	end_write_blk

data1_clean
		ldx	index_ptr
		ldy	index_ptr+2
		lda	curr_mark+1
		lsr	a			;now build a new index block
		and	#$00FF
		jsr	new_block
		bcs	end_write_blk		;sorry major problem
		pha				;save the block number
		ldy	#msdos_fcr.data_blk_num
		sta	[msdos_fcr_ptr],y	;save the new block number
		lda	#index_dirty+file_dirty+data_dirty
		jsr	set_fcr_status		;indicate master block dirty
		pla
have_blk
		jsr	load_data
		bcs	end_write_blk
		lda	drvr_blk_num
		clc
end_write_blk
		rts


		Entry	load_data
load_data					;input A= block to load
		ldy	#msdos_fcr.data_blk_num
		cmp	[msdos_fcr_ptr],y	;is block already loaded?
		beq	exit_load_data

		pha				;save the block to load
		ldy	#msdos_fcr.status
		lda	[msdos_fcr_ptr],y
		and	#data_dirty
		beq	dont_update

		jsr	flush_data_blk
		bcs	end_load_data
dont_update
		lda	data_ptr
		sta	drvr_buf_ptr
		lda	data_ptr+2
		sta	drvr_buf_ptr+2
		lda	1,s			;get the block number to load
		sta	drvr_blk_num
		jsr	read_with_mount		;read in the new data block
		bcs	end_load_data

		ldy	#msdos_fcr.data_blk_num	;update current loaded block
		lda	drvr_blk_num
		sta	[msdos_fcr_ptr],y
		pla
exit_load_data
		clc
		sta	drvr_blk_num
		rts

end_load_data
		plx				;fix the stack please
		sec
		rts

;==========================================================================
;new_block:     This routine will allocate a new block from the system
;               and add the block number in the index block pointed to
;               by the X and Y registers.
;
;Input:         A = index
;               X = low word pointer to index block
;               Y = high word pointer to index block
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = block number allocated or error code
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;
;uses:          all registers
;               temp4_ptr
;==========================================================================
new_block
		stx	temp4_ptr		;pointer to the index block
		sty	temp4_ptr+2
		pha				;save the index
		jsr	calc_free_blks		;make sure that we a free block
		bcs	add_failed
		tax
		beq	to_no_room
		lda	#$0001			;allocate one block
		ldx	#$0000			;start at block zero
		jsr	find_free_blks
		bcs	add_failed
		phx				;save the block number
		jsr	bump_blks_used
		lda	3,s			;get the index please
		tay				;save the low index
		ora	#$0100
		tax				;save the high index
		pla
		longa	off
		sep	#$20			;8 bit mode
		sta	[temp4_ptr],y
		xba
		txy
		sta	[temp4_ptr],y
		longa	on
		rep	#$20			;16 bit mode
		xba
		plx				;fix the stack
		clc
		rts

add_failed	plx				;fix the stack
		rts

to_no_room	pla				;fix the stack
		brl	out_of_room


bump_blks_used
		ldy	#msdos_fcr.blks_used
		lda	[msdos_fcr_ptr],y
		inc	a			;advance the blocks used count
		sta	[msdos_fcr_ptr],y
		lda	#dirEntry_dirty		;the directory entry needs updating when flushed
		jsr	set_fcr_status
		rts

;==========================================================================
;get_index_blk: This routine will load a block number out of an index block
;
;Input:         A = index
;               X = low word pointer to index block
;               Y = high word pointer to index block
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = block number
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;uses:          all registers
;               temp_ptr
;==========================================================================

		Entry	get_index_blk
get_index_blk
		stx	temp_ptr
		sty	temp_ptr+2
		tax				;low word index
		ora	#$0100			;high word index
		tay
		longa	off
		sep	#$20			;8 bit accum
		lda	[temp_ptr],y		;get the high word block number
		xba
		txy
		lda	[temp_ptr],y		;get the low word block number
		longa	on
		rep	#$20			;16 bit accum
		rts

;==========================================================================
;Convert a seedling file into a sapling file.
;==========================================================================
seed_to_sap
		jsr	flush_blocks		;flush anydata still around
		bcc	do_sap
		rts
do_sap
		jsr	calc_free_blks		;see how many blocks we have
		tax
		bne	lots_of_room
		brl	out_of_room		;sorry bud not today

lots_of_room
		lda	#$0001			;go get me a new block
		ldx	#$0000			;start looking at block zero
		jsr	find_free_blks
		bcs	end_to_sap
		txa				;new key block
		pha

		ldy	index_ptr
		sty	temp4_ptr
		ldy	index_ptr+2
		sty	temp4_ptr+2

		dec	a			;see if we should flip data and index
		ldy	#msdos_fcr.key_blk
		cmp	[msdos_fcr_ptr],y
		beq	do_flip

		txa
		ldy	#msdos_fcr.index_blk_num
		sta	[msdos_fcr_ptr],y	;save the new index block number
		jsr	bump_blks_used

		ldy	#msdos_fcr.key_blk	;data block address
		lda	[msdos_fcr_ptr],y
		ldy	#$0000			;store as first entry in index block
		jsr	add_index

		lda	#index_active+index_dirty+file_dirty
		jsr	set_fcr_status		;mark index block active
		pla				;restore key block
		ldx	#sapling_type
		jsr	update_new_type
		rts

end_to_sap
		rts

do_flip
		ldy	#msdos_fcr.status	;see if the data block is dirty
		lda	[msdos_fcr_ptr],y
		and	#data_dirty
		beq	onward
		jsr	flush_data_blk
		bcc	onward
		plx				;fix the stack!!!!
		rts

onward
		ldy	#msdos_fcr.key_blk	;load in the data block
		lda	[msdos_fcr_ptr],y
		sta	drvr_blk_num
		ldy	#msdos_fcr.data_blk_num
		sta	[msdos_fcr_ptr],y	;update current data block

		lda	data_ptr
		sta	drvr_buf_ptr
		lda	data_ptr+2
		sta	drvr_buf_ptr+2
		jsr	read_with_mount		;read in the data block
		bcc	onward2
		plx				;fix the stack
		rts

onward2
		pla				;get the new block number
		ldy	#msdos_fcr.data_blk_num
		sta	[msdos_fcr_ptr],y	;now the data block has changed
		ldy	#$0000			;store as first entry in index block
		jsr	add_index

		lda	#index_active+index_dirty+file_dirty+data_dirty
		jsr	set_fcr_status		;mark index block active
		jsr	bump_blks_used

		ldy	#msdos_fcr.key_blk
		lda	[msdos_fcr_ptr],y
		ldy	#msdos_fcr.index_blk_num
		sta	[msdos_fcr_ptr],y	;now the index is new
		ldx	#sapling_type
		jsr	update_new_type
		rts

out_of_room
		lda	#volume_full
		sec
		rts

sapling_to_tree
		jsr	calc_free_blks		;see how many blocks we have
		tax
		beq	out_of_room		;sorry bud not today
		lda	#$0001			;go get me a new block
		ldx	#$0000			;start looking at block zero
		jsr	find_free_blks
		bcs	end_to_tree
		txa				;new key block
		pha
		ldy	#msdos_fcr.master_blk_num
		sta	[msdos_fcr_ptr],y	;save the master index blk num
		jsr	bump_blks_used

		lda	master_ptr
		sta	temp4_ptr
		lda	master_ptr+2
		sta	temp4_ptr+2

		ldy	#msdos_fcr.key_blk	;current data block
		lda	[msdos_fcr_ptr],y
		ldy	#$0000			;store as first entry in index block
		jsr	add_index
		lda	#master_active+master_dirty+file_dirty
		jsr	set_fcr_status		;mark index block active
		pla				;restore key block
		ldx	#tree_type
		jsr	update_new_type
end_to_tree
		rts

tree_to_tree
		jsr	calc_free_blks		;see how many blocks we have
		tax

		beq	out_of_room		;sorry bud not today
		lda	#$0001			;go get me a new block
		ldx	#$0000			;start looking at block zero
		jsr	find_free_blks
		bcs	end_to_tree
		phx				;save the block number

		lda	master_ptr
		sta	temp4_ptr
		lda	master_ptr+2
		sta	temp4_ptr+2
		jsr	bump_blks_used		;must not use X register

		lda	curr_mark+2
		lsr	a
		tay				;index into master block
		txa				;new index block

		jsr	add_index
		lda	#master_dirty+file_dirty
		jsr	set_fcr_status		;indicate master index block is dirty
		ldy	#msdos_fcr.status	;see if current index block is dirty
		lda	[msdos_fcr_ptr],y
		and	#index_dirty
		beq	mister_clean
		jsr	flush_index
		bcc	mister_clean
		plx				;fix the stack
		rts
mister_clean
		ldy	#msdos_fcr.index_blk_num ;the current index block
		pla				;restore new index block number
		sta	[msdos_fcr_ptr],y
		lda	#index_dirty+file_dirty
		jsr	set_fcr_status		;indicate that this block is dirty
		ldx	index_ptr
		ldy	index_ptr+2		;clear the current index
		jsr	clear_index
		clc
		rts

		Entry	clear_index
clear_index
		stx	temp4_ptr		;zero out the buffer pointed to by
		sty	temp4_ptr+2		;X and Y
		ldy	#$01FE
		lda	#$0000
clr_index	sta	[temp4_ptr],y
		dey
		dey
		bpl	clr_index
		rts

;==========================================================================
;update_new_type:
;               This routine will update the FCR to reflect the new storage
;               type, and key block for a file
;
;Input:         A = new key block
;               X = new storage type
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               msdos_fcr_ptr           ;points to file control record
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;uses:          all registers
;==========================================================================

update_new_type
		pha				;save new key block
		ldy	#msdos_fcr.key_blk
		sta	[msdos_fcr_ptr],y
		ldy	#msdos_fcr.entry_type
		lda	[msdos_fcr_ptr],y	;is this a resource type?
		cmp	#resource_type
		beq	is_resource

		txa				;save the new storage type
		sta	[msdos_fcr_ptr],y
		lda	1,s			;save the new key block
		ldy	#msdos_fcr.file_id
		sta	[msdos_fcr_ptr],y

is_resource
		pla				;fix the stack
		ldy	#msdos_fcr.storage	;store the new storage type
		txa
		sta	[msdos_fcr_ptr],y
		jsr	flush_file		;force directory update.
		rts
		ENDP
	endif
	if NOT read_only_fst then
		Eject
;==========================================================================
;chk_allocation:
;               This routine will return the block number of a data block
;               if the file contains a data block
;
;Input:         A = undefined
;               X = undefin
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               msdos_fcr_ptr       ;points to file control record
;
;Output:        A = block number if 'z' = 0
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error and 'z' flag valid
;                         1  = no block allocated
;                         0  = A = block number
;               b = k
;
;
;uses:          all registers
;==========================================================================

;==========================================================================
;IF (curr_mark = tree) AND (storage <> tree) THEN
;   no_block allocated
;
;==========================================================================

chk_allocation	PROC
		with	my_dp

		lda	curr_mark+2		;see if we need the master index block
		lsr	a
		ldx	master_ptr		;get the block number from index block
		ldy	master_ptr+2
		jsr	get_index_blk		;A = block number
		tax
		bne	cont01			;there is an index block
;
;IF (type = tree) AND (index = sparse) THEN block_not_allocated
;
chk_tree
		ldy	#msdos_fcr.storage
		lda	[msdos_fcr_ptr],y
		cmp	#tree_type		;does this puppy even have a master blk?>
		bne	chk_sapling		;there is no master index block
		clc
		rts

;
;IF (type <> tree) AND (curr_mark = tree) THEN block_not_allocated
;
chk_sapling
		lda	curr_mark+2		;is the mark in tree range
		lsr	a
		beq	index_loaded		;mark not in tree range
		bra	no_block

cont01
		ldy	#msdos_fcr.index_blk_num
		cmp	[msdos_fcr_ptr],y	;is the block already loaded?
		beq	index_loaded
		pha				;save the block number
		ldy	#msdos_fcr.status
		lda	[msdos_fcr_ptr],y
		and	#index_dirty		;is the current index dirty?
		beq	index1_clean
		jsr	flush_index
		bcc	index1_clean
		plx
		rts
index1_clean
		pla				;retore block number
		ldy	#msdos_fcr.index_blk_num
		sta	[msdos_fcr_ptr],y	;save the new block please
		jsr	load_index
		bcc	index_loaded
		rts

index_loaded
		lda	curr_mark+1
		lsr	a
		and	#$00FF
		ldx	index_ptr		;get the block number from index block
		ldy	index_ptr+2
		jsr	get_index_blk		;A = block number
		tax
		bne	exit_chk_alloc
;
;IF (type = sapling) AND (data = sparse) THEN block_not_allocated
;
		ldy	#msdos_fcr.storage
		lda	[msdos_fcr_ptr],y
		cmp	#sapling_type		;does this puppy even have an index blk
		bcc	chk_seedling		;there is no index block
		txa				;reset the flag please

exit_chk_alloc
		clc
		rts

chk_seedling
		lda	curr_mark+1
		lsr	a
		and	#$00FF
		beq	get_key_blk		;mark < 512
no_block
		ldx	#$0000
		sep	#$02			;set the 'Z' flag
		clc
		rts

get_key_blk
		ldy	#msdos_fcr.key_blk
		lda	[msdos_fcr_ptr],y
		tax				;setup the x register with the block number
		clc
		rts

		Entry	load_index
load_index
						;enter with A = block number

						;next 3 lines added 8/6/90 by Monte Benaresh
		pha				;save block # for a moment
		jsr	standard_req		;set drvr_req_cnt to $200
		pla				;restore block number

		sta	drvr_blk_num
		lda	index_ptr
		sta	drvr_buf_ptr
		lda	index_ptr+2
		sta	drvr_buf_ptr+2
		jsr	read_with_cache
		rts

		ENDP
	endif
		Eject
;==========================================================================
;Clr_to_boundary        This routine will clear data from the current EOF
;                       to the end of the block.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               curr_mark               ;current file marker
;               curr_eof                ;current end of file
;               msdos_fcr_ptr           ;points to file control record
;               data_ptr                ;points to data block in I/O buffer.
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;
;               b = k
;
;
; IF (eof >= (curr_mark AND $FE00 + 512)) THEN
;    EXIT(clr_to_boundary)
; IF eof > curr_mark THEN
;    clear_index := eof
; ELSE
;    clear_index := curr_mark
; clear_block
;==========================================================================
		longa	on
		longi	on

clr_to_boundary	PROC
		with	my_dp

		lda	curr_eof
		pha
		lda	curr_eof+2		;save the current end of file
		pha

		lda	curr_mark
		pha				;save the current mark
		lda	curr_mark+2
		pha

		lda	curr_mark		;if block aligned then exit
		and	#$01FF
		bne	not_aligned
		brl	exit_clr		;we do not have to clear anything

not_aligned

;
;curr_mark := ((curr_mark and $FE00) + 512)
;
		clc
		lda	curr_mark		;move to a block boundary
		and	#$FE00
		adc	#blk_size		;add in 512 bytes
		sta	curr_mark
		lda	curr_mark+2
		adc	#$0000
		sta	curr_mark+2
;
; IF (eof >= (curr_mark AND $FE00 + 512)) THEN
;    EXIT(clr_to_boundary)
;
		lda	curr_eof+2
		cmp	curr_mark+2
		beq	chk_low
		bcs	exit_clr		;EOF not in this block
		bcc	second_if		;continue process
chk_low
		lda	curr_eof
		cmp	curr_mark
		bcs	exit_clr		;EOF not in this block

;
; IF EOF < curr_mark AND $FE00 THEN
;    clear_index := curr_mark
;
second_if
		lda	3,s			;get the low word of the mark
		and	#$FE00
		sta	curr_mark

		lda	curr_eof+2
		cmp	1,s			;check high word
		beq	second_low
		bcs	third_if		;EOF is in this block
		bcc	use_mark		;EOF not in this block
second_low
		lda	curr_eof
		cmp	curr_mark
		bcs	third_if		;EOF is in the block
		bcc	use_mark		;EOF not in this block

;
; IF eof > curr_mark THEN
;    clear_index := eof
;
third_if
		lda	curr_eof+2		;is eof > curr_mark
		cmp	1,s			;high word of curr_mark
		beq	third_low
		bcs	use_eof			;clear from EOF
		bcc	use_mark		;clear from current mark
third_low
		lda	curr_eof
		cmp	3,s
		bcs	use_eof			;use the eof as the value

use_mark
		lda	3,s			;get the low word of current mark
		and	#$01FF			;clear garbage
		beq	exit_clr		;do not clear the buffer
		bra	do_clear

use_eof
		lda	curr_eof
		and	#$01FF
		beq	exit_clr		;do not clear the buffer

do_clear
		tay				;make an index into block
		iny
		cpy	#blk_size
		beq	exit_clr
		tya				;can we clear the block fast
		lsr	a
		bcc	clear_it_fast

		lda	#$0000			;clear value
		longa	off
		sep	#$20			;8 bit mode
		bra	enter			;start the loop
clear_it
		sta	[data_ptr],y
		iny
enter
		cpy	#blk_size		;are we done
		bcc	clear_it
		longa	on
		rep	#$20
		bra	exit_clr

clear_it_fast
		lda	#$0000
		bra	enter_fast
fast_loop
		sta	[data_ptr],y
		iny
		iny
enter_fast
		cpy	#$0200			;are we done
		bcc	fast_loop


exit_clr
		pla				;restore the curr_mark
		sta	curr_mark+2
		pla
		sta	curr_mark

		pla
		sta	curr_eof+2		;restore the current end of file
		pla
		sta	curr_eof
		lda	#data_dirty+file_dirty
		jsr	set_fcr_status
		rts
		ENDP

		Eject
;==========================================================================
;Close:         This routine will close a file.
;
;Created:       aug 04, 1987
;Modified:      aug 04, 1987
;Author:        Rob Turner
;
;Enter:         jml
;
;Input:         A = undefined
;               X = call number times 2
;               Y = class times 2
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;Uses:          All registers
;
;Call Format:
;
;Class 0        Reference Number        (2 Bytes)
;
;Class 1        PCount                  (2 Bytes)
;               Reference Number        (2 Bytes)
;
;==========================================================================
		longa	on
		longi	on

close		PROC	Export

;==========================================================================
;First preprocess the call to setup the needed parameters.
;==========================================================================

		jsr	setup_params
		dec	close_flag		;call slug ripple please
	if NOT read_only_fst then
		jsr	flush_file		;force data to the disk
		bcc	flushed
		brl	main_exit
	endif
flushed
		jsr	remove_fcr
		brl	main_exit

		ENDP

		Eject
;==========================================================================
;flush:         This routine will flush a file.
;
;Created:       aug 04, 1987
;Modified:      aug 04, 1987
;Author:        Rob Turner
;
;Enter:         jml
;
;Input:         A = undefined
;               X = call number times 2
;               Y = class times 2
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;Uses:          All registers
;
;Call Format:
;
;Class 0        Reference Number        (2 Bytes)
;
;Class 1        PCount                  (2 Bytes)
;               Reference Number        (2 Bytes)
;
;==========================================================================
		longa	on
		longi	on

flush		PROC	Export

;==========================================================================
;First preprocess the call to setup the needed parameters.
;==========================================================================

		jsr	setup_params
		dec	close_flag		;call slug_ripple please

;       New code added March 27, 1990 to support fast/slow flush,
;       by Monte Benaresh, based on Andy Stadler's proposed
;       changes.

		lda	pcount			;check number of params given by caller
		cmp	#2			;did he specify type of flush?
		bcc	slow_flush		;too few, default to full flush

choose_flush					;caller specified type of flush
;               valid flush types are:
;                       $0000 = full flush, data and directory blocks
;                       $8000 = fast flush, data blocks only

		ldy	#4			;offset to flush type in param block
		lda	[param_blk_ptr],y	;get flush type

		asl	a			;get high bit
		beq	flush_type_ok		;low bits must be 0!

bad_flush_type					;invalid value for flush type
		lda	#parm_range_err
		sec
		bra	flush_done		;return with error

flush_type_ok					;get here with high bit of flush type in carry
		bcc	slow_flush		;flush type was $0000

fast_flush					;flush type was $8000
		jsr	do_fast_flush		;write out all dirty data blocks, dirty
;                                        bitmap blocks, and the directory entry
;                                        only if it's been changed (mod date doesn't count!)
		bra	flush_done		;handle error elsewhere
slow_flush
		jsr	flush_file		;force data to the disk

flush_done
		brl	main_exit

		ENDP

		Eject
;==========================================================================
;calc_curr_mark This routine will calculate the current mark for a file
;               given BASE and DISPLACEMENT as input.
;
;Created:       may 23, 1987
;Modified:      may 23, 1987
;Author:        Rob Turner
;
;
;Enter:         jsr
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               BASE                    (base from param block)
;                       $00 = Absolute
;                       $01 = Backward From EOF
;                       $02 = Forward From Current Mark
;                       $03 = Backward From Current Mark
;
;               DISPLACEMENT            (displacement from param block)
;               msdos_fcr_ptr           (pointer to my data in FCR
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   .<<000..1 = error if out of range
;                    |     0 = no error
;                    |
;                    |__   1 = error out of range any cases
;                          0 = result greater then current EOF
;
;               b = k
;
;               curr_mark               (contains correct position for mark)
;
;Uses:          All registers
;
;==========================================================================
		longa	on
		longi	on

calc_curr_mark	PROC

;==========================================================================
;Setup the current EOF
;==========================================================================
		jsr	setup_curr_eof

;==========================================================================
;Setup the current file marker.
;==========================================================================
		jsr	setup_curr_mark

;==========================================================================
;Now we need to decide which way we need to move the mark.
;==========================================================================

		lda	base
		beq	absolute
		dec	a
		beq	back_from_eof
		dec	a
		beq	forward_mark

;==========================================================================
;If we fall thru to here then we need to set the mark backward from the
;current mark.
;==========================================================================

backward_mark
		sec
		lda	curr_mark
		sbc	displacement
		sta	curr_mark
		lda	curr_mark+2
		sbc	displacement+2
		sta	curr_mark+2
		bcs	mark_ok
bad_range
		sep	#carry+overflow		;set both carry and overflow flags
		rts				;exit with carry set to indicate error

;==========================================================================
;User wants to set the mark backward from the current end of file
;==========================================================================

back_from_eof
		sec
		lda	curr_eof
		sbc	displacement
		sta	curr_mark
		lda	curr_eof+2
		sbc	displacement+2
		sta	curr_mark+2
		bcc	bad_range

mark_ok
		clc
		rts

;==========================================================================
;Set the mark forward from the current mark.
;==========================================================================

forward_mark
		clc
		lda	curr_mark
		adc	displacement
		sta	curr_mark
		lda	curr_mark+2
		adc	displacement+2
		sta	curr_mark+2
		bcc	check_range

greater_EOF
		clv				;mark greater then current EOF!
		rts				;bad mark bud!

;==========================================================================
;Set the file marker to an absolute position.
;==========================================================================

absolute
		lda	displacement
		sta	curr_mark
		lda	displacement+2
		sta	curr_mark+2

check_range

;==========================================================================
;Make sure the curr_mark =< EOF.
;==========================================================================

		lda	curr_mark+2
		cmp	curr_eof+2
		beq	check_low_word		;more checking to do
		bcs	greater_eof		;value is greater then EOF
		rts				;carry clear no problem

check_low_word
		lda	curr_mark
		cmp	curr_eof
		beq	good_mark
		bcs	greater_eof		;value is greater then EOF

good_mark
		clc
		rts

		ENDP

		Eject
;==========================================================================
;Set_mark:      This routine will set a file position marker.
;
;Created:       may 23, 1987
;Modified:      may 23, 1987
;Author:        Rob Turner
;
;Enter:         jml
;
;Input:         A = undefined
;               X = call number times 2
;               Y = class times 2
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;Uses:          All registers
;               fill_io_buf
;
;Call Format:
;
;Class 0        Reference Number        (2 Bytes)
;               File Position           (4 Bytes)
;
;Class 1        PCount                  (2 Bytes)
;               Reference Number        (2 Bytes)
;               Base                    (2 Bytes)
;                       00 = Absolute
;                       01 = Backward From EOF
;                       02 = Forward From Current Mark
;                       03 = Backward From Current Mark
;               Displacement            (4 Bytes)
;
;==========================================================================
		longa	on
		longi	on

set_mark	PROC	Export
		with	my_dp

;==========================================================================
;First preprocess the call to setup the needed parameters.
;==========================================================================
		stz	base
		jsr	setup_params
		beq	class0

;==========================================================================
;Fall thru if this is a class1 call
;==========================================================================
		ldy	#pblk_16_base
		jsr	check_base
		ldy	#pblk_16_disp
		bra	main_entry

class0

;==========================================================================
;If this is a class zero call then setup an index to the file position
;and continue on.
;==========================================================================
		ldy	#$0002			;index to displacement

main_entry

;==========================================================================
;Save the user's requested displacement
;==========================================================================

		lda	[my_pblk_ptr],y
		sta	displacement
		iny
		iny
		lda	[my_pblk_ptr],y

		sta	displacement+2

;==========================================================================
;Setup 'curr_eof' and 'curr_mark'
;
;               IF (curr_mark < 00) or (curr_mark > EOF) THEN
;                  BEGIN
;                     Error:= position_out_of_range_error
;                     EXIT(Set_Mark)
;                  END
;==========================================================================

		jsr	calc_curr_mark
		bcc	set_the_mark
		lda	#out_of_range

set_mark_exit
		brl	main_exit

set_the_mark
;==========================================================================
;refill I/O buffer with the new data blocks needed.
;==========================================================================

		jsr	fill_io_buf
		bcs	set_mark_exit

;==========================================================================
;go and update the FCR with the new curr_mark.
;==========================================================================

		jsr	save_curr_mark
		clc

;==========================================================================
;Exit all happy since the call was successful
;==========================================================================

		bra	set_mark_exit

		ENDP

		Eject
;==========================================================================
;Get_mark:      This routine will return the file position marker.
;
;Created:       may 23, 1987
;Modified:      may 23, 1987
;Author:        Rob Turner
;
;Enter:         jml
;
;Input:         A = undefined
;               X = call number times 2
;               Y = class times 2
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Uses:          All registers
;
;Call Format:
;
;Class 0        Reference Number        (2 Bytes)
;               File Position           (4 Bytes)
;
;Class 1        PCount                  (2 Bytes)
;               Reference Number        (2 Bytes)
;               File Position           (4 Bytes)
;
;==========================================================================
		longa	on
		longi	on

get_mark	PROC	Export
		with	my_dp
		
;==========================================================================
;Call standard setup routine.
;==========================================================================

		jsr	setup_params

;==========================================================================
;Get the current file marker out of the FCR data area
;==========================================================================

		ldy	#msdos_fcr.curr_mark
		lda	[msdos_fcr_ptr],y
		tax				;save low word
		iny
		iny
		lda	[msdos_fcr_ptr],y

;==========================================================================
;Store the current file position into the user's parameter block.
;==========================================================================

		ldy	#pblk_17_pos+2		;file position
		sta	[my_pblk_ptr],y
		dey
		dey
		txa
		sta	[my_pblk_ptr],y
		clc
		brl	main_exit
		ENDP

	if NOT read_only_fst then
		Eject
;==========================================================================
;Set_eof:       This routine will set the EOF of a file.
;
;Created:       jun 15, 1987
;Modified:      jun 15, 1987
;Author:        Rob Turner
;
;Enter:         jml
;
;Input:         A = undefined
;               X = call number times 2
;               Y = class times 2
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Uses:          All registers
;
;Call Format:
;
;Class 0        Reference Number        (2 Bytes)
;               File Position           (4 Bytes)
;
;Class 1        PCount                  (2 Bytes)
;               Reference Number        (2 Bytes)
;               Base                    (2 Bytes)
;                       00 = Absolute
;                       01 = Backward From EOF
;                       02 = Forward From Current Mark
;                       03 = Backward From Current Mark
;               Displacement            (4 Bytes)
;
;==========================================================================
		longa	on
		longi	on

set_eof		PROC	Export
		with	my_dp

		stz	base			;set default to absolute
		stz	key_blk_changed
;==========================================================================
;Call standard setup routine.
;==========================================================================

		jsr	setup_params
		beq	class0			;this is an old style call

;==========================================================================
;Now lets go and setup the base parameter please
;==========================================================================

		ldy	#pblk_18_base
		jsr	check_base
		ldy	#pblk_18_disp
		bra	main_entry

Class0
		ldy	#pblk_18_odisp

main_entry
		lda	[my_pblk_ptr],y
		sta	displacement
		iny
		iny
		lda	[my_pblk_ptr],y
		sta	displacement+2

;==========================================================================
;make sure the file is write enabled.
;==========================================================================
		ldy	#fcr.access
		lda	[my_fcr_ptr],y
		and	#ClrAllButAccess
		cmp	#write_access
		bcs	set_eof_ok
		lda	#invalid_access
		bra	set_eof_error

set_eof_ok

		jsr	chk_disk_protect

;==========================================================================
;Get the current end of file out of the FCR data area and call routine
;that will calculate the new eof.  The new value for the EOF is returned
;in 'curr_mark'
;==========================================================================

						;brk $B2

		jsr	calc_curr_mark
		php				;save results
		lda	curr_mark
		sta	displacement
		lda	curr_mark+2
		sta	displacement+2
		plp

						;Following code changed 7/21/90 by Monte Benaresh

						;Since setup_real_eof finds the last physically allocated EOF of
						;the file, and since that number can be greater than the logical
						;EOF (when pre-allocated blocks exist beyond the logical EOF) or
						;less (when a trailing portion of the file is entirely sparse),
						;we need to call setup_real_eof before deciding whether we need
						;to cut blocks.

						;bcc    less_or_equal   ;new EOF is =< current EOF
						;bvc    eof_greater     ;new EOF is > current EOF

		bcc	calc_ok			;new EOF is =< current EOF
		bvc	calc_ok			;new EOF is > current EOF

						;The following error code was changed from "parm_range_err"
						;to "out_of_range".  1/22/91 CAE
bad_eof
		lda	#out_of_range		;position out of range
set_eof_error
		sec
set_eof_exit
		brl	main_exit
calc_ok
						;next call added 8/6/90 by Monte Benaresh to fix bug
						;introduced by change of 7/21/90

		jsr	flush_file		;force any dirty blocks to disk
		bcs	set_eof_error		;Major problems bud.

		jsr	setup_real_eof		;generate EOF based on allocation not logical
		bcs	set_eof_error		;Major problems bud.

						;code added 7/21/90 by Monte Benaresh (see note above)

		lda	curr_eof+2		;this points to last physical allocation
		cmp	displacement+2		;determine whether we need to cut blocks
		bcc	eof_greater
		bne	less_or_equal		;this line added 8/8/90 by Monte Benaresh

		lda	curr_eof
		cmp	displacement
		bcs	less_or_equal


eof_greater
		lda	displacement+2
		and	#$FF00
		bne	bad_eof
save_eof
		jsr	update_fcr_eof
		lda	key_blk_changed		;Did the Key Block for the file change?
		beq	@no_key_changed
		jsr	flush_file		;update both the Bitmap and Directory please
		bra	set_eof_exit
@no_key_changed
		jsr	flush_io_buffer		;update the disk please
		bra	set_eof_exit		;we are out of here

;If we get here we know that the new EOF is equal to (easy) or less then
;(hard) the current ("real") EOF.  If the EOF is less then the current eof then
;we must release blocks from the disk.

less_or_equal
		jsr	flush_file		;force any dirty blocks to disk
		bcs	set_eof_error		;Major problems bud.

						;jsr    setup_real_eof  ;generate EOF based on allocation not logical
						;bcs    set_eof_error   ;Major problems bud.
						;last 2 lines not needed now -- Monte Benaresh, 7/21/90

		lda	displacement+2
		cmp	curr_eof+2
		bne	must_be_less		;the new eof is less then old eof
		lda	displacement
		cmp	curr_eof
						;bne    must_be_less
		beq	save_eof		;same as what caller wants, but save this EOF
						;since it was calculated by setup_real_eof
						;Monte Benaresh -- 7/21/90

						;next 2 removed 7/21/90
						;clc
						;bra    set_eof_exit    ;nothing to do

must_be_less

;If we get here we know the new EOF is less then the old EOF so we must
;do the cut back.

;convert current eof into relative block number
;last_block := ((current_eof-1) DIV 512)

;last_block = $0000 to $7FFF

		lda	curr_eof
		ora	curr_eof+2		;if zero DO NOT subtract one
		beq	no_sub1

		lda	curr_eof
		bne	ar1
		dec	curr_eof+2
ar1		dec	curr_eof

no_sub1
		lda	curr_eof+1		;convert EOF to blocks
		lsr	a
		sta	last_blk		;save block number of last block
		beq	save_eof		;file is already a seedling

;convert new_eof into relative block number
;new_last := ((displacement-1) DIV 512)

;new_last = $0000 to $7FFF

		lda	displacement
		sta	tran_cnt
		lda	displacement+2
		sta	tran_cnt+2

		lda	tran_cnt
		ora	tran_cnt+2		;if zero DO NOT subtract one
		beq	no_sub

		lda	tran_cnt
		bne	ar2
		dec	tran_cnt+2
ar2		dec	tran_cnt

no_sub
		lda	tran_cnt+1		;convert EOF to blocks
		lsr	a
		sta	new_last		;save block number of last block

;WHILE last_blk <> new_last DO

while_loop
		lda	last_blk
		cmp	new_last
		beq	save_eof		;just exit with new EOF

;We now need to remove the last block in the file

		jsr	cut_block		;reduce blocks by one
		bcs	update_and_exit		;error occured
		dec	last_blk
		bra	while_loop

update_and_exit
		pha
		jsr	update_fcr_eof
		pla
		sec
		brl	set_eof_error

;Update the FCR with the new EOF value.  Also mark the FCR dirty

update_fcr_eof
		ldy	#msdos_fcr.eof
		lda	displacement		;store the NEW eof in the FCR
		tax
		sta	curr_eof
		sta	[msdos_fcr_ptr],y
		iny
		lda	displacement+1
		sta	[msdos_fcr_ptr],y
		sta	curr_eof+1

		ldy	#msdos_fcr.curr_eof	;update working EOF as well
		txa
		sta	[msdos_fcr_ptr],y
		iny
		lda	displacement+1
		sta	[msdos_fcr_ptr],y

		ldy	#msdos_fcr.status
		lda	[msdos_fcr_ptr],y	;update file status word
		ora	#file_dirty		;we need to write to disk on close
		sta	[msdos_fcr_ptr],y

;IF the new EOF is =< curr_mark THEN
;   curr_mark := EOF

		jsr	setup_curr_mark
		jsr	fill_io_buf		;added 1/23/90 to fix "Bredon" sparse file shrink bug
		bcc	@filledUp
		rts
@filledUp
		lda	curr_mark+2
		cmp	displacement+2
		beq	check_lower
		bcs	adjust_mark
		bra	adjust_buffer		;current_mark < new EOF
check_lower
		lda	curr_mark
		cmp	displacement
		beq	no_adjust
		bcs	adjust_mark
no_adjust
		bra	adjust_buffer

adjust_mark
		lda	displacement
		sta	curr_mark
		lda	displacement+2
		sta	curr_mark+2
		jsr	save_curr_mark		;update the FCR
adjust_buffer
		jsr	clr_to_boundary
		clc
		rts

;==========================================================================
;Cut_block:     This routine will remove the last block from the file.
;
;Input:         last_blk (contains relative block number to delete. 0 thur n)
;
;output:        A = error code if carry set.
;
;               WARNING: last_blk must not point beyond the current
;               structure of the file, even though that block num may be within
;               the file's EOF. This could happen if a file has a trailing
;               portion which is all sparse from a position <128K to a
;               position >128K. In this case the file is stored as a
;               sapling, not a tree, but owns a sparse area that is
;               logically within the "tree" range. In such a case, last_blk
;               must never be in that range when entering this routine.
;

cut_block

;The first thing we do is to convert last_blk into a mark value.

		stz	curr_mark
		stz	curr_mark+2

		lda	last_blk
		asl	a
		sta	curr_mark+1

		jsr	load_indexes		;load the I/O buffer correctly
		bcc	@no_error
		rts
@no_error

;After we call data_blk_num we know that drvr_blk_num contains the data
;block that is to be removed from the file.

		jsr	get_data_num		;setup drvr_blk_num
		ldx	drvr_blk_num
		beq	gone			;sparse block
		jsr	dealloc_block		;remove the block please
		bcc	dec_gone

		rts				;return error
dec_gone
		jsr	dec_blk_count		;blks_used := blks_used-1
gone

;IF (index_block = true) AND (deleted_entry > 1) THEN
;   BEGIN

						;if this is anything but a seedling, we must check whether it's time toÉ
						;Érelease an index block and possibly change storage type

		ldy	#msdos_fcr.storage	;IF (index_block = true)
		lda	[msdos_fcr_ptr],y
		cmp	#sapling_type
		bcs	index_true		;index_block = TRUE
		rts				;we MUST be done

index_true
		lda	curr_mark+1		;AND (deleted_entry > 1) THEN
		lsr	a
		and	#$00FF
		cmp	#$0002
		bcc	first_ELSE		;deleting first or second entry

;     zero_index(deleted_blk) ;          ;clear the entry from index block
;     index_dirty := true ;              ;and mark index dirty

						;fall through if not on 1st or 2nd entry
not_sapling
		jsr	zero_one_index		;zero an entry in index blk
update_eof
		clc
		rts

;     END
;ELSE
; IF (index_block = true) and (one_entry  = true) and (storage = sapling) THEN
;    BEGIN
;      convert_sapling_to_seedling
;    END

first_else					;we know index_block = true
		cmp	#$0001			;did we just delete entry #0?
		bcc	second_else		;check tree case

		ldy	#msdos_fcr.storage
		lda	[msdos_fcr_ptr],y
		cmp	#sapling_type		;(stoarge = sapling)?
		bne	not_sapling

		jsr	zero_one_index
		jsr	sapling_seed		;convert the sapling file to seedling
		bcc	update_eof
		rts

;  ELSE
;   IF (index_block = true) and (one_entry = true) and (storage = tree) THEN
;      BEGIN

second_else					;we are deleting the 1st entry in index blk
		jsr	remove_index		;remove the index and update master
		bcc	cont01
		rts

cont01						;did we just eliminate 2nd index block?
		lda	curr_mark+2
		lsr	a
		and	#$007F			;see if we are going to be a sapling
		cmp	#$0001			;see if there is only one entry left
		bne	update_eof		;no conversion yet

		jsr	tree_sapling
		bcc	update_eof
		rts

;===============END of CUT_BLOCK

;==========================================================================
;This routine will setup curr_eof with the EOF based on blocks allocated
;to the file instead of logical EOF.  For example, an file can have an
;EOF of 0, but have hundreds of blocks allocated to it.  This happens
;when a file is created with a request to pre-allocate space.
;Diagram:                  (A)            (B)            (C)
;
;     |               | $00 to $7F  | $00  to  $FF  | $000  to  $1FF  |
;     |               |             |               |                 |
;     | MUST BE ZERO  |<- master  ->|<-   index   ->|<- Byte index  ->|
;     |_______________|_____________|_______________|_________________|
;     | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | |
;     |_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|
;     |               |               |               |               |
;    3 2             2 4             1 6             0 8             0 0
;
;       WARNING: Index blocks must be clean because they will be
;       overwritten!
;
;==========================================================================
setup_real_eof
		stz	new_eof
		stz	new_eof+2		;init new eof

		ldy	#msdos_fcr.storage
		lda	[msdos_fcr_ptr],y
		cmp	#tree_type		;(storage = tree)?
		beq	@calc_tree
		cmp	#sapling_type
		beq	@calc_sapling
		clc
		rts				;seedling works OK
@calc_tree
		ldx	master_ptr		;setup pointer to master index block
		ldy	master_ptr+2
		jsr	get_last_index		;get the lndex to the last index block out of master index
		clc				;A=index $00 thru $7F, X = block number.
		asl	A			;double index
		sta	new_eof+2

		txa				;load block if needed
		ldy	#msdos_fcr.index_blk_num
		cmp	[msdos_fcr_ptr],y	;is the block already loaded?
		beq	@calc_sapling

		jsr	load_index		;load in the index block
						;bcc    @calc_sapling
		bcc	@index_ok		;changed 8/7/90 by Monte Benaresh

		rts				;sorry friend no EOF change today!
@index_ok					;next lines added 8/7/90 by Monte Benaresh
		ldy	#msdos_fcr.index_blk_num
		lda	drvr_blk_num		;save the block num of the index block
		sta	[msdos_fcr_ptr],y
@calc_sapling
		ldx	index_ptr		;get address of the index block in memory
		ldy	index_ptr+2
		jsr	get_last_index		;get the lndex to the last data block out of index block
		clc				;A=index $00 thru $FF, X is not used!
		asl	A			;double index
		ora	new_eof+1		;set the new value
		sta	new_eof+1

		clc
		lda	new_eof
		adc	#blk_size
		sta	curr_eof
		lda	new_eof+2
		adc	#$0000
		sta	curr_eof+2		;update the global EOF that is used by SET_EOF
		clc
		rts

;==========================================================================
;Get_Last_index will walk an index block looking for the last valid entry.
;
;input:         X&Y =   pointer to index buffer
;
;output:        A =     index offset 0 thru $FF
;               X =     block number

get_last_index
		stx	temp2_ptr		;setup pointer to lower half of the buffer
		sty	temp2_ptr+2
		clc
		txa
		adc	#$0100			;point to high half of the index block
		sta	temp3_ptr
		tya
		adc	#$0000
		sta	temp3_ptr+2

		ldy	#$00FF			;start from end of index block
@loop
		longa	off
		sep	#$20
		lda	[temp3_ptr],y		;grab the high block number
		xba				;put high block number in upper byte
		lda	[temp2_ptr],y		;get the low block number               
		longa	on
		rep	#$20
		tax				;check for zero
		bne	@done			;we have the block number
		dey
		bpl	@loop			;try the next location
		sec
		rts
@done
		tya
		clc				;A=Index, X = block number
		rts

;==========================================================================
;This routine will zero out one entry in the master index block. It will
;also mark the index block as being dirty and decrement the block count

remove_index
		ldy	#msdos_fcr.index_blk_num ;is the index block sparse?
		lda	[msdos_fcr_ptr],y
		bne	@not_sparse		;there is an index block
		rts

@not_sparse	jsr	dec_blk_count

		lda	curr_mark+2
		lsr	a
		and	#$007F
		tay
		ora	#$0100
		tax

		longa	off
		sep	#$20
		lda	[master_ptr],y
		sta	drvr_blk_num		;save the one we are deleting

		lda	#$00
		sta	[master_ptr],y		;zero the deleted entry please
		txy

		lda	[master_ptr],y
		sta	drvr_blk_num+1		;high byte of one to delete

		lda	#$00
		sta	[master_ptr],y
		longa	on
		rep	#$20

		ldy	#msdos_fcr.status
		lda	[msdos_fcr_ptr],y
		ora	#master_dirty+file_dirty
		sta	[msdos_fcr_ptr],y

		ldx	drvr_blk_num		;remove the index block please
		jsr	dealloc_block
		rts

;==========================================================================
;This routine will zero out one entry in the current index block. It will
;also mark the index block as being dirty
;==========================================================================

zero_one_index
		ldy	#msdos_fcr.index_blk_num ;is the index block sparse?
		lda	[msdos_fcr_ptr],y
		bne	@not_sparse		;there is an index block
		rts

@not_sparse	lda	curr_mark+1
		lsr	a
		and	#$00FF
		tay
		ora	#$0100
		tax
		longa	off
		sep	#$20
		lda	#$00
		sta	[index_ptr],y		;zero the deleted entry please
		txy
		sta	[index_ptr],y
		longa	on
		rep	#$20

		ldy	#msdos_fcr.status
		lda	[msdos_fcr_ptr],y
		ora	#index_dirty+file_dirty
		sta	[msdos_fcr_ptr],y
		rts

		Entry	dec_blk_count
dec_blk_count					; reduce number of blocks used by a file by one

		ldy	#msdos_fcr.blks_used
		lda	[msdos_fcr_ptr],y
		dec	a
		sta	[msdos_fcr_ptr],y
		lda	#dirEntry_dirty		;the directory entry needs updating when flushed
		jsr	set_fcr_status
bad_news
		rts

		ENDP
	endif
	if NOT read_only_fst then
		Eject
;==========================================================================
;sapling_seed:  This routine will convert a sapling file into a seedling
;               file. (I hope)  Of course in the long run it will do the
;               conversion.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               msdos_fcr_ptr           (points to VCR local data)
;               index_ptr               (MUST point to the index block)
;
;Output:        A = error code if carry set otherwise undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Uses:          All registers
;               msdos_fcr_ptr
;
;
;==========================================================================
		longa	on
		longi	on

sapling_seed	PROC
		with	my_dp

;==========================================================================
;Grab the first entry out of the index block.  This is to become the new
;key pointer for the file.
;==========================================================================

		lda	[index_ptr]
		sta	drvr_blk_num
		ldy	#blk_size-$0100
		lda	[index_ptr],y
		sta	drvr_blk_num+1

		lda	#$0000			;now delete the block from the index
		sta	[index_ptr]
		sta	[index_ptr],y		;get the high byte

		ldx	drvr_blk_num
		jsr	update_key_blk

		ldy	#msdos_fcr.storage
		lda	#seedling_type
		tax
		sta	[msdos_fcr_ptr],y	;change storage type to seedling

		ldy	#msdos_fcr.entry_type
		lda	[msdos_fcr_ptr],y
		cmp	#resource_type
		beq	is_res_type1
		txa
		sta	[msdos_fcr_ptr],y
is_res_type1
		jsr	dec_blk_count		;reduce count by one

		lda	#index_clean
		jsr	clr_fcr_status		;do not write a index block

		ldy	#msdos_fcr.index_blk_num
		lda	[msdos_fcr_ptr],y	;block number for index block
		tax				;used by deallocate
		beq	exit
		lda	#$0000
		sta	[msdos_fcr_ptr],y	;zero the block number
		jsr	dealloc_block		;remove the block please
		bcc	exit
		rts

exit
		stz	curr_mark		;reload the correct blocks
		stz	curr_mark+2
		jsr	fill_io_buf
		rts

;==========================================================================
;We need to see if this is a resource file.  IF it not then we need to
;update both the key block and file id fields.  Otherwise we only adjust
;the key block field.
;
;input:         X = new key block
;==========================================================================
		Entry	update_key_blk
update_key_blk
		ldy	#msdos_fcr.file_id
		lda	[msdos_fcr_ptr],y
		ldy	#msdos_fcr.key_blk	;update the key block pointer
		cmp	[msdos_fcr_ptr],y
		bne	only_key_blk		;update only the key block

		txa
		ldy	#msdos_fcr.file_id
		sta	[msdos_fcr_ptr],y

only_key_blk
		txa
		ldy	#msdos_fcr.key_blk
		sta	[msdos_fcr_ptr],y
		inc	key_blk_changed		;indicate that the key block has changed
		rts

		ENDP
	endif
	if NOT read_only_fst then
		Eject
;==========================================================================
;tree_sapling:  This routine will convert a tree file into a sapling
;               file. (I hope)  Of course in the long run it will do the
;               conversion.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               msdos_fcr_ptr           (points to VCR local data)
;               master_ptr              (MUST point to the master block)
;
;Output:        A = error code if carry set otherwise undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Uses:          All registers
;               msdos_fcr_ptr
;
;
;==========================================================================
		longa	on
		longi	on

tree_sapling	PROC
		with	my_dp

;==========================================================================
;Grab the first entry out of the master index block.  This is to become the
;new key pointer for the file.
;==========================================================================

		stz	curr_mark		;force mark to zero for correct
		stz	curr_mark+2		;loading of index blocks

		jsr	fill_io_buf		;make sure the I/O buffer looks Ok
		bcc	have_index
		rts

have_index
		lda	[master_ptr]
		sta	drvr_blk_num
		ldy	#blk_size-$0100
		lda	[master_ptr],y
		and	#$00FF			;clear any garbage left
		sta	drvr_blk_num+1

		lda	#$0000
		sta	[master_ptr]		;clear the last entry please
		sta	[master_ptr],y

		jsr	dec_blk_count

		ldx	drvr_blk_num
		jsr	update_key_blk

		ldy	#msdos_fcr.storage
		lda	#sapling_type
		tax
		sta	[msdos_fcr_ptr],y	;change storage type to sapling

		ldy	#msdos_fcr.entry_type
		lda	[msdos_fcr_ptr],y
		cmp	#resource_type
		beq	is_res_type2
		txa
		sta	[msdos_fcr_ptr],y

is_res_type2
		lda	#master_clean
		jsr	clr_fcr_status		;do not write a index block

		ldy	#msdos_fcr.master_blk_num
		lda	[msdos_fcr_ptr],y	;block number for master index block
		tax				;used by deallocate
		beq	exit
		lda	#$0000
		sta	[msdos_fcr_ptr],y	;zero the block number
		jsr	dealloc_block		;remove the block please
		rts

exit
		clc
		rts

		ENDP
	endif
		Eject
;==========================================================================
;Get_eof:       This routine will return the current EOF for an open file.
;
;Created:       may 23, 1987
;Modified:      may 23, 1987
;Author:        Rob Turner
;
;Enter:         jml
;
;Input:         A = undefined
;               X = call number times 2
;               Y = class times 2
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Uses:          All registers
;
;Call Format:
;
;Class 0        Reference Number        (2 Bytes)
;               EOF                     (4 Bytes)
;
;Class 1        PCount                  (2 Bytes)
;               Reference Number        (2 Bytes)
;               EOF                     (4 Bytes)
;==========================================================================
		longa	on
		longi	on

get_eof		PROC	Export
		with	my_dp

;==========================================================================
;Call standard setup routine.
;==========================================================================

		jsr	setup_params

;==========================================================================
;Get the current end of file out of the FCR data area
;==========================================================================

		ldy	#msdos_fcr.eof
		lda	[msdos_fcr_ptr],y
		tax				;save low word
		iny
		iny
		lda	[msdos_fcr_ptr],y

		ldy	#pblk_19_eof+2
		sta	[my_pblk_ptr],y
		dey
		dey
		txa
		sta	[my_pblk_ptr],y
		clc
		brl	main_exit

		ENDP

		Eject
;==========================================================================
;Get_dir_entry: This routine will return a single entry from a directory.
;
;
;Created:       Nov 10, 1987
;Modified:      Nov 10, 1987
;Author:        Rob Turner
;
;Enter:         jml
;
;Input:         A = undefined
;               X = call number times 2
;               Y = class times 2
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;Uses:          All registers
;               find_file
;
;Call Format:
;
;Class 0        Reference number        (2 Bytes)
;               RESERVED                (2 Bytes)
;               Base                    (2 Bytes)
;                       $0000 = Absolute
;                       $0001 = Forward releative
;                       $0002 = Backward relative
;               Displacement            (2 Bytes)
;               Pointer to name buffer  (4 Bytes)
;               Entry Number            (2 Bytes) Absolute entry read
;               File Type               (2 Bytes)
;               EOF                     (4 Bytes)
;               Blocks Used             (4 Bytes)
;               Create Date/Time        (8 Bytes: Misc. Tools Format)
;               Mod Date/Time           (8 Bytes: Misc. Tools Format)
;               Access                  (2 Bytes)
;               Aux Type                (4 Bytes)
;               File System Id          (2 Bytes)
;
;Class 1        PCount                  (2 Bytes: Minimum = 5)
;               Reference Number        (2 Bytes)
;               RESERVED                (2 Bytes)
;               Base                    (2 Bytes)
;                       $0000 = Absolute
;                       $0001 = Forward releative
;                       $0002 = Backward relative
;               Displacement            (2 Bytes)
;               Pointer to name buffer  (4 Bytes)
;               Entry Number            (2 Bytes) Absolute entry read
;               File Type               (2 Bytes)
;               EOF                     (4 Bytes)
;               Blocks Used             (4 Bytes)
;               Create Date/Time        (8 Bytes: Misc. Tools Format)
;               Mod Date/Time           (8 Bytes: Misc. Tools Format)
;               Access                  (2 Bytes)
;               Aux Type                (4 Bytes)
;               File System Id          (2 Bytes)
;               Option List Pointer     (4 Bytes)
;
;==========================================================================
		longa	on
		longi	on

get_dir_entry	PROC	Export
		with	my_dp

		jsr	setup_params		;general setup routine
		php				;save status
		lda	my_pblk_ptr+2
		sta	temp2_ptr+2
		clc
		lda	my_pblk_ptr
		sta	temp2_ptr		;save a pointer for extended bit
		adc	#$0004			;pass ref # and Reserved fields
		sta	my_pblk_ptr
		bcc	not_high
		inc	my_pblk_ptr+2
not_high

		plp
		bne	class1			;this is a new call

		lda	#$000E			;make PCount = to class 0 normal
		sta	pcount

class1
		ldy	#msdos_fcr.storage	;make sure this is a directory
		lda	[msdos_fcr_ptr],y
		cmp	#subdir_type
		bcs	type_ok

		sec
		lda	#bad_file_format
		brl	main_exit

type_ok
		ldy	#pblk_1c_flags		;clear the flags word
		lda	#$0000			;(assume not an extended file)
		sta	[temp2_ptr],y

		jsr	standard_req		;make sure we read only 1 block at a time

		lda	data_ptr		;make index pointer point to attributes field
		clc
		adc	#dir_entry.attributes
		sta	index_ptr
		lda	data_ptr+2
		adc	#0
		sta	index_ptr+2

		lda	[my_pblk_ptr]		;load the base field
		sta	base			;save user's base value
		cmp	#gde_max_base+1
		bcc	base_good

		lda	#parm_range_err
gde_exit
		brl	main_exit

base_good

		ldy	#pblk_1c_name
		lda	[my_pblk_ptr],y
		sta	temp_ptr		;save the pointer
		iny
		iny
		lda	[my_pblk_ptr],y
		and	#$00FF			;clear the garbage
		sta	temp_ptr+2

		ldy	#pblk_1c_disp		;offset to displacement
		lda	[my_pblk_ptr],y
		sta	displacement
		ora	base			;is base and displacement zero?
		bne	nothing_special		;no normal call

; both base and displacement were set to 0.  This means that the caller wants
; the number of active directory entries returned.  Since MSDOS doesn't maintain
; a count of the currently active entries, we must count 'em manually.  We do this
; by resetting the directory back to the first entry, then searching for entry
; number 65535.  Once found (or end of directory is reached), we use the current
; entry number as the count.  We then reset the directory back to the beginning
; for subsequent GetDirEntry calls.

		jsr	reset_gde		;reset the call please
		bcs	gde_exit		;bad news bud
		
		ldy	#msdos_fcr.gde_offset
		lda	[msdos_fcr_ptr],y	;setup the current offset
		sta	entry_offset

		jsr	send_tot_files

		jsr	reset_gde

		brl	main_exit		;exit back to caller

; This is where we handle a normal GetDirEntry call

nothing_special
		ldy	#msdos_fcr.gde_offset
		lda	[msdos_fcr_ptr],y	;setup the current offset
		sta	entry_offset

		ldy	#msdos_fcr.gde_entry_num
		lda	[msdos_fcr_ptr],y
		tay				;remember logical entry #
		beq	@inited			;if 0, we're reading first entry
		dec	a			;else adjust for 0-based array
@inited
		sta	math_temp		;current absolute entry number

		lda	base			;restore base
		beq	absolute		;do absolute entry please
		dec	a
		beq	forward			;do forward relative please

backward
		sec
		tya				;get the last entry we looked at
		sbc	displacement		;entry that we want
		bcs	do_find_entry		;go find the entry please
end_dir_err
		sec
		lda	#end_of_dir
bad_news
		brl	main_exit

absolute
		lda	displacement		;get this entry please
		bra	do_find_entry
forward
		clc
		tya				;get the current entry please
		adc	displacement
		bcs	end_dir_err		;overflow
do_find_entry
		tax				;logical entry 0?
		beq	end_dir_err		;ain't no such thang!
		dec	a			;adjust for 0-based array
		jsr	find_entry
		bcs	bad_news
send_entry
		ldy	#msdos_fcr.gde_entry_num
		lda	math_temp
		inc	a			;adjust for 0-based array
		sta	[msdos_fcr_ptr],y	;save the current entry number
		ldy	#msdos_fcr.gde_offset
		lda	entry_offset
		sta	[msdos_fcr_ptr],y	;save the entry offset
		clc
		adc	data_ptr
		sta	drvr_buf_ptr		;set up for move_dir_entry
		lda	data_ptr+2
		adc	#0
		sta	drvr_buf_ptr+2
		
		jsr	move_dir_entry		;move the entry into local storage

;
;Now move the entry into the user's data area
;
		lda	#buff_too_small		;assume user screwed up
		sta	math_temp

		lda	[temp_ptr]
		cmp	#$0004
		bcc	no_name			;sorry no name avail

		ldy	#$0002			;store the name length
		lda	filename.length
		sta	[temp_ptr],y
		clc
		adc	#$0004
		cmp	[temp_ptr]		;load the buffer size
		beq	len_ok			;length is ok
		bcc	len_ok
;
;(BufferSize - 4)
;               sec

		lda	[temp_ptr]		;use the user's buf length
		sbc	#$0004
		beq	no_name			;a buffer size of 4 was used so store length only.
		bcc	no_name			;do not send any of the name
		bra	do_name			;use the user's length as count to send.
len_ok
		stz	math_temp		;no error
		lda	filename.length		;number of bytes to move
;
;Code added to fix a bug cataloging a bad disk.
;
		bne	do_name
		lda	#dir_error		;the directory entry is bad
		sec
		brl	main_exit		;exit with the error please             
do_name
		tay				;number of bytes to send

		clc				;make pointer to ascii string
		lda	temp_ptr
		adc	#$0003
		sta	temp_ptr
		bcc	@1
		inc	temp_ptr+2
@1
		sty	gde_temp		;save the count please

		ldy	#$0000			;start at the front
		longa	off
		sep	#$20
looper
		lda	filename.text,y
		iny
		sta	[temp_ptr],y
		cpy	gde_temp
		bne	looper			;move the name to the user's buffer
		longa	on
		rep	#$20

		lda	math_temp
		cmp	#buff_too_small		;if the error was buffer too small then leave it.
		beq	no_name

		stz	math_temp		;reset the error code please
no_name
;
; We now do some magic to determine if the file has a resource fork, which
; is stored as a file of the same name in a subdirectory named RESOURCE.FRK
; at the same level as the main (data fork) file.  If the resource fork
; exists, we have to set the FLAGS parameter.
;
		stz	temp4_ptr		;assume no resource fork
		stz	temp4_ptr+2
		lda	one_entry.attributes	;first, check the attributes
		and	#subdirectory+vol_label+sys_file
		beq	@maybe			;it might have a resource forkÉ
		brl	non_extended		;if any of the three, can't be extended

@maybe
		ldy	#fcr.path_name		;get VP to this directory's pathname
		lda	[my_fcr_ptr],y
		tax
		iny
		iny
		lda	[my_fcr_ptr],y
		tay
		jsl	deref			;deref into a real pointer
		stx	temp4_ptr
		sty	temp4_ptr+2
		lda	[temp4_ptr]		;get the length of the pathname
		clc
		adc	ResForkName		;add length of subdirectory name
		clc
		adc	filename.length		;add the length of the filename
		clc
		adc	#1+1			;add separator + null terminator
		jsl	alloc_seg
		bcc	@got_buffer
		lda	#out_of_mem		;ran out of room!
		brl	main_exit
@got_buffer
		stx	namebuf_vp
		sty	namebuf_vp+2
		jsl	deref			;dereference VP
		stx	namebuf_ptr
		sty	namebuf_ptr+2
		sep	#$20			;8-bit accumulator
		longa	off
		ldy	#2			;skip past volume name
		ldx	#0			;set up for copy later
@strip
		iny
		lda	[temp4_ptr],y		;get a character
		beq	@volname_only		;null terminator found
		cmp	#':'			;colon separator?
		bne	@strip			;not yet
@copy
		iny				;skip past colon
		lda	[temp4_ptr],y		;get a character
		beq	@end_of_name		;null terminator found
		phy				;save index
		txy				;destination index
		sta	[namebuf_ptr],y
		ply				;retrieve source index
		inx				;bump indexes
		bra	@copy			;go back for more

@end_of_name
		txy				;store colon separator
		lda	#':'
		sta	[namebuf_ptr],y
		inx
@volname_only
		txy				;y indexes destination
		ldx	#0			;x indexes source
@copy2
		lda	ResForkName+2,x		;copy in subdirectory name
		sta	[namebuf_ptr],y
		inx
		iny
		cpx	ResForkName		;done whole name yet?
		bcc	@copy2			;no...

		ldx	#0			;now copy in the filename
@copy3
		lda	filename.text,x
		sta	[namebuf_ptr],y
		iny
		inx
		cpx	filename.length
		bcc	@copy3
		lda	#0			;null terminator
		sta	[namebuf_ptr],y
		rep	#$20			;16-bit accumulator
		longa	on
; we now have a partial pathname in namebuf
		lda	drvr_dev_num		;get device number
		ldx	namebuf_ptr
		ldy	namebuf_ptr+2		;and pointer to pathname
		pei	temp_ptr+2		;save this
		pei	temp_ptr
		jsr	find_file		;go find the file
		pla
		sta	temp_ptr
		pla
		sta	temp_ptr+2
		stz	temp4_ptr		;assume no resource fork
		stz	temp4_ptr+2
		bcs	@no_resource_fork	;no resource fork here
		stx	temp4_ptr		;save pointer to directory entry
		sty	temp4_ptr+2
		ldy	#pblk_1c_flags		;set the flags word
		lda	#$8000
		sta	[temp2_ptr],y
@no_resource_fork
		ldx	namebuf_vp		;deallocate the name buffer
		ldy	namebuf_vp+2
		jsl	release_seg
		
; Now we can return any optional parameters requested
non_extended
		sec				;adjust the pcount please
		lda	pcount
		sbc	#$0005
		sta	pcount
		beq	end_gde
		jsr	send_gde_stuff		;send the info that the user wants
end_gde
		lda	math_temp		;was there an error?
		cmp	#$0001
		brl	main_exit

send_gde_stuff
		lda	my_pblk_ptr
		sta	temp_ptr
		lda	my_pblk_ptr+2
		sta	temp_ptr+2

		ldy	#pblk_1c_entry		;return the absolute entry
		lda	find_this_entry
		inc	a			;adjust for 0-based array
		sta	[temp_ptr],y
		dec	pcount
		beq	@to_end_send_gde2

		ldy	#pblk_1c_ftype
		ldx	#$000f			;assume subdirectory
		lda	storage_type		;is it a directory?
		cmp	#subdir_type
		bcs	@is_dir			;yes
		jsr	get_file_type		;else go translate the filename extension
@is_dir
		txa
		sta	[temp_ptr],y
		dec	pcount
@to_end_send_gde2
;;;		beq	to_end_send_gde
		bne @around
		brl	to_end_send_gde
@around

		jsr	send_data_eof		;send the eof for data fork

		dec	pcount
		beq	to_end_send_gde

		jsr	send_data_blks		;send the blks_used for data fork

		dec	pcount
		beq	to_end_send_gde

		ldx	#0			;no create date supported
		txy
		jsr	unpack_time
		ldy	#pblk_1c_create
		jsr	send_time
		dec	pcount
		beq	to_end_send_gde

		ldx	one_entry.date
		ldy	one_entry.time
		jsr	unpack_time
		ldy	#pblk_1c_mod
		jsr	send_time
		dec	pcount
		beq	to_end_send_gde

		ldx	#$00E3			;assume full access
		lda	one_entry.attributes	;get the attributes
		bit	#read_only		;read-only file?
		beq	@not_read_only		;no...
		ldx	#$0001
@not_read_only
		bit	#archive		;backup bit set?
		beq	@no_backup		;no...
		pha				;save attributes
		txa				;set backup bit
		ora	#backup_enabled
		tax
		pla
@no_backup
		bit	#hidden_file		;invisible?
		beq	@visible		;no...
		txa				;else set invisible bit
		ora	#invis_bit
		tax
@visible
		txa				;retrieve final attributes
		ldy	#pblk_1c_access
		sta	[temp_ptr],y
		dec	pcount
		beq	to_end_send_gde

		lda	#0			;no aux type supported
		ldy	#pblk_1c_aux
		sta	[temp_ptr],y
		iny
		iny
		sta	[temp_ptr],y
*** added 11-Aug-92 DAL
		lda	storage_type
		cmp	#subdir_type
		bcs	@its_directory
		jsr	get_file_type
		dey
		dey
		sta	[temp_ptr],y		;store low word of auxtype
		iny
		iny
@its_directory
*** end 11-Aug-92
		dec	pcount			;does the user want FST ID?
to_end_send_gde
		beq	end_send_gde		;No

		lda	#fst_id
		ldy	#pblk_1c_id
		sta	[temp_ptr],y

		dec	pcount			;Skip the option list please
		beq	end_send_gde
;==========================================================================
; We now store the MSDOS FST ID in the 5th byte of the option list buffer
;==========================================================================

		ldy	#pblk_1c_opt		;index to option list pointer
		lda	[temp_ptr],y		;get the address of the option list buffer
		tax
		iny
		iny
		lda	[temp_ptr],y
		tay
		bne	@save_fst_id
		txa
		beq	@skip_save
@save_fst_id
		pei	temp_ptr		;save the working temp_ptr since I am going to use it
		pei	temp_ptr+2		;to handle the option list pointer

		stx	temp_ptr
		sty	temp_ptr+2
;
;Now I need to verify the option list length.  I need at least 6 bytes.
;
		lda	[temp_ptr]		;get the length of the option list
		cmp	#$0004			;is the minimum count OK
		bcs	@min_ok			;the user has the min

		lda	#parm_range_err		;store the error
		bra	option_list_err
@min_ok
		tax				;save the count for data area check             
		lda	#$0002			;length of the MSDOS FST ID.
		tay
		sta	[temp_ptr],y		;save the number of bytes stored
		txa
		cmp	#$0006
		bcs	@size_fine

		lda	#buff_too_small		;store the error
		bra	option_list_err
@size_fine
		iny
		iny
		lda	#fst_id
		sta	[temp_ptr],y

		pla
		sta	temp_ptr+2		;restore
		pla
		sta	temp_ptr
@skip_save
		dec	pcount			;does the user want resource eof?
		beq	end_send_gde		;no

		jsr	send_res_eof		;send the resource EOF please

		dec	pcount			;does the user want resource blocks?
		beq	end_send_gde		;no
		jsr	send_res_blks

end_send_gde
		rts

option_list_err
		sta	math_temp
		pla
		sta	temp_ptr+2		;restore
		pla
		sta	temp_ptr
		rts

send_data_eof
		ldy	#pblk_1c_eof
		lda	one_entry.file_size
		sta	[temp_ptr],y
		iny
		iny
		lda	one_entry.file_size+2
		sta	[temp_ptr],y
		rts

send_data_blks
		ldx	#0			;assume no blocks used
		lda	one_entry.start_cluster
		beq	@no_blks_used
		jsr	count_blks_used		;walk the FAT counting blocks
@no_blks_used
		ldy	#pblk_1c_blks
		sta	[temp_ptr],y
		iny
		iny
		txa
		sta	[temp_ptr],y
		rts

send_res_eof
		lda	temp4_ptr		;was a resource file found?
		ora	temp4_ptr+2
		tax				;(zero out X too)
		beq	@no_res_fork		;no, just return 0
		ldy	#dir_entry.file_size+2	;retrieve file size from entry
		lda	[temp4_ptr],y		;temp4_ptr points to entry
		tax
		dey
		dey
		lda	[temp4_ptr],y
@no_res_fork
		ldy	#pblk_1c_res_eof	;offset within parm block
		sta	[temp_ptr],y
		iny
		iny
		txa
		sta	[temp_ptr],y		;save upper word please
		rts

send_res_blks
		lda	temp4_ptr		;was a resource fork found?
		ora	temp4_ptr+2
		tax				;(zero out X if none)
		beq	@no_res_fork		;no, just return 0
		ldy	#dir_entry.start_cluster
		lda	[temp4_ptr],y		;retrieve from directory entry
		jsr	count_blks_used		;walk the FAT counting blocks
@no_res_fork
		ldy	#pblk_1c_res_blks
		sta	[temp_ptr],y
		iny
		iny
		txa
		sta	[temp_ptr],y		;save upper word please
		rts

add_entry_len
		tya
		clc
		adc	#entry_length
		tay
		rts

sub_entry_len
		tya
		sec
		sbc	#entry_length
		tay
		rts

send_tot_files
		lda	pcount			;is there room
		cmp	#$0006
		bcc	@end_tot

		lda	#1
		sta	math_temp		;init counter
		lda	#$FFFF			;search for entry #65535 (should hit EOD)
		jsr	find_entry		;search till end of directory
		lda	math_temp		;get count
		ldy	#pblk_1c_entry		;store entry count into parm block
		sta	[my_pblk_ptr],y
@end_tot
		rts

reset_gde
		ldy	#msdos_fcr.start_cluster
		lda	[msdos_fcr_ptr],y	;get start cluster number
		ldy	#msdos_fcr.curr_cluster
		cmp	[msdos_fcr_ptr],y	;already at start cluster?
		bne	@read_cluster		;no, must read new block
		tax				;save start cluster # in X
		ldy	#msdos_fcr.cluster_blk_num
		lda	[msdos_fcr_ptr],y	;at first block of cluster already?
		beq	@is_first_block		;yes, no need to go to disk
		txa				;retrieve start cluster number
@read_cluster
		ldy	#msdos_fcr.curr_cluster
		sta	[msdos_fcr_ptr],y	;set the current cluster number
		ldy	#msdos_fcr.cluster_blk_num
		lda	#$0000			;reset to first block of cluster
		sta	[msdos_fcr_ptr],y
		jsr	read_gde_blk		;go read the directory block
		bcs	@abort			;punt on any error
		lda	#$0000
@is_first_block
		ldy	#msdos_fcr.gde_offset
		sta	[msdos_fcr_ptr],y
		ldy	#msdos_fcr.gde_entry_num
		sta	[msdos_fcr_ptr],y

		ldy	#msdos_fcr.start_cluster
		lda	[msdos_fcr_ptr],y	;get the starting cluster of the file
		beq	@dir_loaded		;we're reading root directory

		lda	[data_ptr]		;make sure this is a directory
		and	#$00FF
		cmp	#'.'			;subdirectories start with this
		bne	directory_err

		ldy	#entry_length		;look at second entry
		lda	[data_ptr],y
		cmp	#'..'			;second entry must match this
		bne	directory_err

		lda	#entry_length*2		;save gde_offset (starting with third entry)
		ldy	#msdos_fcr.gde_offset
		sta	[msdos_fcr_ptr],y
@dir_loaded
		clc				;no errors!
@abort
		rts

directory_err
		sec
		lda	#dir_error		;report error to user
		brl	main_exit

read_gde_blk
		ldy	#msdos_fcr.curr_cluster	;calculate absolute block number
		lda	[msdos_fcr_ptr],y
		jsr	cluster2block		;convert to absolute block #
		clc
		ldy	#msdos_fcr.cluster_blk_num
		adc	[msdos_fcr_ptr],y	;add in the block offset
		sta	drvr_blk_num		;set new block number

		lda	my_fcr_ptr
		adc	#fcr.io_start
		sta	drvr_buf_ptr
		lda	my_fcr_ptr+2
		adc	#$0000
		sta	drvr_buf_ptr+2

		jsr	read_with_cache		;read in directory block
		rts
load_ext_blk
		jsr	set_default_buf		;use the standard buffer please
		jsr	standard_req
		lda	one_entry+key_blk_index
		sta	drvr_blk_num
		jsr	read_with_cache
		bcc	no_problem
abort
		brl	main_exit		;abort please
no_problem
		rts

find_entry
		ldy	entry_offset		;pre-load the entry offset
		sta	find_this_entry		;save entry number to find
		cmp	math_temp		;compare to current entry
		beq	chk_this_entry		;we have the correct entry (maybe)
		bcc	search_backward		;do a backward search

search_forward
		cpy	#blk_size-entry_length	;reached the end of the block yet?
		bcs	get_forward_blk		;go read the next block please
		jsr	add_entry_len
forward_loop
		lda	[data_ptr],y		;load the entry please
		and	#$00FF			;is this entry active?
		beq	end_dir			;never used, must be end of directory
		cmp	#$00E5			;$E5 represents a deleted entry
		beq	search_forward		;look at the next entry please
		cmp	#'.'			;alias entry?
		beq	search_forward		;yes, skip it
		lda	[index_ptr],y		;look at attributes byte
		bit	#vol_label		;is this a volume label?
		bne	search_forward		;yes, skip it (not a true entry)
		jsr	chkResName		;RESOURCE.FRK entry?
		bcs	search_forward		;yup, skip it
		sty	entry_offset		;save the offset
		inc	math_temp		;bump the current entry by one
		lda	math_temp
		cmp	find_this_entry		;is this the correct entry
		bne	search_forward
found_it	clc
		rts

chk_this_entry
		dec	math_temp		;gets incremented when active entry found
		bra	forward_loop		;make sure the current entry is active

get_forward_blk
		ldy	#msdos_fcr.cluster_blk_num
		lda	[msdos_fcr_ptr],y	;get the current block # within cluster
		inc	a			;bump to next block
		sta	[msdos_fcr_ptr],y	;store it back again
		ldy	#msdos_fcr.cluster_size
		cmp	[msdos_fcr_ptr],y	;still within current cluster?
		bcc	@within_cluster		;yes, just get the next sequential block

		ldy	#msdos_fcr.curr_cluster
		lda	[msdos_fcr_ptr],y	;get the current cluster #
		beq	end_dir			;there's no next cluster for root directory
		jsr	get_fat_entry		;get next cluster number
		bcs	end_dir			;sorry no more directory blocks
		ldy	#msdos_fcr.curr_cluster
		sta	[msdos_fcr_ptr],y	;save the new cluster #
		lda	#$0000			;reset to first block of cluster
		ldy	#msdos_fcr.cluster_blk_num
		sta	[msdos_fcr_ptr],y
@within_cluster
		jsr	read_gde_blk		;load the block please
		ldy	#$0000			;index to first entry
		bcc	forward_loop
		brl	main_exit		;tell user about the error

end_dir
		sec
		lda	#end_of_dir
		rts

search_backward
		tya				;at beginning of block?
		beq	@get_back_blk		;yes, go read the prev block please
		jsr	sub_entry_len
@backward_loop
		lda	[data_ptr],y		;load the entry please
		and	#$00FF			;is this entry active?
		beq	end_dir			;no...
		cmp	#$00E5			;deleted entry?
		beq	search_backward		;look at the next entry please
		cmp	#'.'			;alias entry?
		beq	search_backward		;yes, skip it
		jsr	chkResName		;RESOURCE.FRK entry?
		bcs	search_backward		;yup, skip it
		sty	entry_offset		;save the offset
		dec	math_temp		;bump the current entry by one
		lda	math_temp
		cmp	find_this_entry		;is this the correct entry
		bne	search_backward
		bra	found_it

@get_back_blk
		ldy	#msdos_fcr.cluster_blk_num
		lda	[msdos_fcr_ptr],y	;is current block at beginning of cluster?
		bne	@prev_block		;no, we can read it directly
		jsr	reset_gde		;otherwise we have to start over at the beginning
		ldy	#msdos_fcr.gde_entry_num
		lda	[msdos_fcr_ptr],y
		sta	math_temp
		ldy	#msdos_fcr.gde_offset
		lda	[msdos_fcr_ptr],y
		sta	entry_offset
		tay
		brl	forward_loop

@prev_block
		dec	a			;adjust to previous block within cluster
		sta	[msdos_fcr_ptr],y
		jsr	read_gde_blk
		ldy	#blk_size-entry_length	;index to last entry in block
		bcc	@backward_loop
		brl	main_exit		;tell user about the error

;
; chkResName - compares filename at current entry against the name
; "RESOURCE.FRK".  If it matches, we skip this entry.  (In other words,
; the system will never see the Resource.Frk subdirectory, since that's only
; for our use.)
;
; On entry:	Y = offset to first byte of directory entry
;		data_ptr = pointer to first byte of directory buffer
;
; On exit:	Carry clear = no match
;		Carry set = skip this entry, it's the RESOURCE.FRK entry
;
; Preserves:	Y

chkResName
		phy
		tya				;offset to end of name
		clc
		adc	#10
		tay
		ldx	#10
		sep	#$20
		longa	off
@compare
		lda	ResName,x		;get a character
		cmp	[data_ptr],y		;same as entry?
		bne	@not_equal		;nope!
		dey
		dex
		bpl	@compare		;loop through entire name
		sec				;all equal, skip this entry
		dc.b	$90			;BCC opcode, hides CLC instruction
@not_equal
		clc
		rep	#$20
		longa	on
		ply
		rts

ResName		dc.b	'RESOURCEFRK'

		ENDP

		Eject
;==========================================================================
;get_dev_num    This file contains code that will find a volume and return
;               a device number.
;
;Created:       aug 17, 1987
;Modified:      aug 17, 1987
;Author:        Rob Turner
;
;Enter:         jml
;
;Input:         A = undefined
;               X = call number times 2
;               Y = class times 2
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;Uses:          All registers
;               Device Dispatcher  (subroutine)
;               General I/O Buffer (1K buffer, I read 512 bytes)
;               and lots of other stuff to.
;
;Call Format:
;
;Class 0        Dev/Vol Name Pointer    (4 Bytes)
;               Device Number           (2 Bytes)
;
;Class 1        PCount                  (2 Bytes)
;               Dev/Vol Name Pointer    (4 Bytes)
;               Device Number           (2 Bytes)
;
;==========================================================================
		longa	on
		longi	on

get_dev_num	PROC	Export
		with	my_dp

		jsr	setup_params		;go ahead do your thing
		lda	dev_num			;did the shell find a device?
		bne	have_device
		lda	#no_dup			;allow me to handle file not found
		sta	search_flag
		jsr	process_path		;do ahead and find the volume
		bcc	no_err			;no problem

		cmp	#file_not_found		;was the error file not found?
		bne	@dev_err_exit
		lda	dev_num
		bne	no_err			;give him the device number
		lda	#bad_path_syntax
@dev_err_exit
		sec
		brl	main_exit

no_err
		lda	drvr_dev_num
have_device
		ldy	#$0004			;return the device number
		sta	[my_pblk_ptr],y
		clc
		brl	main_exit

		ENDP

	if NOT read_only_fst then
		Eject
;======================================================================
;format/Erase   This file will format or erase of volume
;
;Created:       dec 05, 1987
;Modified:      mar 15, 1988
;Author:        Rob Turner
;
;Enter:         From GS/OS jmp table
;
;Input:         A = undefined
;               X = (call number * 2)
;               Y = (class number * 2)
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = error code if carry set (exit via system exit routine)
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;Uses:          All registers
;               Device Dispatcher       (subroutine)
;               General I/O Buffer      (1K buffer, I read 512 bytes)
;
;Call Format:
;
;Class 0        Device Name Pointer     (4 Bytes)
;               Volume Name Pointer     (4 Bytes)
;               FST ID                  (2 Bytes)
;
;Class 1        PCount                  (2 Bytes)
;               Device Name Pointer     (4 Bytes)
;               Volume Name Pointer     (4 Bytes)
;               FST ID                  (2 Bytes)
;
;======================================================================
		longa	on
		longi	on

format_disk	PROC	Export
		with	my_dp
		import	boot_size

		jsr	setup_params		;standard setup routine
** 2/28/92 GAB
		jsr	check_spans		;make sure the volume name isn't too long
**
		lda	dev_num			;move device number from SCM to
		sta	drvr_dev_num		;driver area on direct page
		jsr	clear_any_vcrs		;keep VCRs in order
		jsr	setup_vol_name		;move the volume name please

		jsr	hard_format		;issue a hard format please
		bcs	init_exit
		bra	continue

		EXPORT	erase_disk
erase_disk
		jsr	setup_params		;standard setup routine
** 2/28/92 GAB
		jsr	check_spans		;make sure the volume name isn't too long
**
		lda	dev_num			;move device number from SCM to
		sta	drvr_dev_num		;driver area on direct page
		jsr	clear_any_vcrs		;keep VCRs in order
		jsr	setup_vol_name		;move the volume name please

continue
		jsr	set_partition		;assign the partion map name
;
;Start of code that will write to disk
;
		if	prodos			then
		jsr	write_boot_code		;write the boot code out to disk
		endif
		bcs	init_exit
		jsr	build_directory		;build the directory please
		bcs	init_exit
		jsr	build_bitmap		;build the correct bitmap please
init_exit
		brl	main_exit

;======================================================================
;setup_vol_name This routine will verify the volume name is ok, and
;               move the name into the format header.
;======================================================================

setup_vol_name
		clc
		lda	path2_ptr
		adc	#$0003
		sta	temp_ptr		;setup pointer to the name
		lda	path2_ptr+2
		adc	#$0000
		sta	temp_ptr+2

		jsr	set_case_bits		;setup the case please (Temp_Ptr is Input)

		lda	temp_ptr		;subtract one from the pointer.
		bne	@do_low
		dec	temp_ptr+2
@do_low		dec	temp_ptr

		lda	#$0001
		sta	chars_checked		;parameter for setup_name
		jsr	setup_name

		ldy	#15			;first clear the format header
		lda	#$0000
clr_loop
		sta	new_vol_name,y
		dey
		bpl	clr_loop

		lda	search_length		;length of the volume name
		and	#$000F
		tay
		ora	#volume_header
		sta	new_vol_name		;the length is now stored

		longa	off
		sep	#$20			;8 bit Accum
move_vol
		lda	search_name-1,y
		sta	new_vol_name,y
		dey
		bne	move_vol
		longa	on
		rep	#$20			;16 bit Accum

;
;Save the case please
;
		stz	new_vol_date-2		;zap any old data that might be around
		lda	case_bits		;get the user's case
		beq	@skip_save
		ora	#$8000
		sta	new_vol_date-2
@skip_save
		jsr	pack_time		;set the create date
		stx	new_vol_date
		stx	new_vol_mod
		sty	new_vol_date+2
		sty	new_vol_mod+2		;set the mod time to the create time
		rts

;======================================================================
;hard_format:   This routine will issue the hard format call to the
;               device driver.
;======================================================================

hard_format
		lda	#drvr_control		;issue hard format call to device
		sta	drvr_call_num

		lda	#drvr_format		;issue the format call
		sta	drvr_ctrl_code

		lda	#^format_ctrl
		sta	drvr_clist_ptr+2
		lda	#format_ctrl
		sta	drvr_clist_ptr

		lda	#$0002			;length of control list
		sta	drvr_req_cnt
		stz	drvr_req_cnt+2

		jsr	device_call		;issue the format call to the device
		bcc	formatted
		cmp	#drvr_disk_sw		;is it a disk switched problem?
		beq	hard_format		;try again
		sec
formatted
		rts				;return with the error code.

;======================================================================
;indicate_erase This routine will tell the driver what name to store
;               in the device partion map.
;======================================================================

set_partition
		lda	#drvr_control		;setup for a control call
		sta	drvr_call_num

		lda	#$0006			;setup control code
		sta	drvr_ctrl_code

		lda	#^control_list		;setup pointer to the parameter list
		sta	drvr_clist_ptr+2
		lda	#control_list
		sta	drvr_clist_ptr

		stz	drvr_req_cnt
		stz	drvr_req_cnt+2		;no request count
		jsr	device_call
		rts

		if	prodos			then  ;no need to write ProDOS boot code to an MSDOS disk
;======================================================================
;write_boot_code This routine will write out to disk the ProDOS
;               boot code.  Note that the SOS boot code has
;               been removed from the boot blocks.  This means that
;               a disk formatted with the ProDOS FST cannot be booted
;               on the Apple ///.
;======================================================================

write_boot_code
		jsr	set_default_buf		;use general work buffer
		jsr	standard_req		;512 byte write
		jsr	clear_gbuf_low		;clear the working buffer with zeros.

		lda	#drvr_write
		sta	drvr_call_num
		stz	drvr_blk_num
		stz	drvr_blk_num+2

		ldy	#boot_size-2		;move the boot code to please
boot_loop
		lda	boot_code_start,y
		sta	[drvr_buf_ptr],y
		dey
		bpl	boot_loop

re_boot
		jsr	device_call		;issue the device call please
		bcc	boot_done
		cmp	#drvr_disk_sw
		beq	re_boot			;try again
		sec
boot_done
		rts
		endif

;======================================================================
;Build_directory This routine will build the first four blocks of the
;               directory.
;======================================================================

build_directory
		jsr	get_dev_blks		;get the number of blocks on the device.
		bcs	exit_dir		;sorry we are out of here.
		sta	new_tot_blks		;number of blocks on the volume

		jsr	set_default_buf		;use general work buffer
		jsr	standard_req		;512 byte write
		jsr	clear_gbuf_low		;clear the working buffer with zeros.

		lda	#drvr_write		;setup for write calls
		sta	drvr_call_num
		lda	#vol_dir_start
		sta	drvr_blk_num
		stz	drvr_blk_num+2

		ldy	#entry_length+2		;now move the entry to work buffer
header_loop
		lda	format_header,y
		sta	[drvr_buf_ptr],y
		dey
		bpl	header_loop

;
;Write Block Two To Disk
;
		jsr	device_call		;issue the device call please
		bcs	exit_dir
;
;Write Block Three To Disk
;
		jsr	clear_gbuf_low		;clear the block again
		ldx	#vol_dir_start		;backward link to block 2
		ldy	#vol_dir_start+2	;forward link to block  3
		jsr	do_dir_blk		;write directory block to disk
		bcs	exit_dir
;
;Write Block Four To Disk
;
		ldx	#vol_dir_start+1	;Backward link to block 3
		ldy	#vol_dir_start+3	;Forward link to block  5
		jsr	do_dir_blk
		bcs	exit_dir
;
;Write Block Five To Disk
;
		ldx	#vol_dir_start+2	;Backward link to block 4
		ldy	#$0000			;Forward link NIL
		jsr	do_dir_blk
exit_dir
		rts

do_dir_blk

		txa				;previous link
		sta	[drvr_buf_ptr]
		tya
		ldy	#$0002			;index to forward link
		sta	[drvr_buf_ptr],y
		inc	drvr_blk_num		;move to the next block please
		jsr	device_call		;issue write call
		rts

;======================================================================
;build_bitmap   This routine will build a bitmap for the device
;               being formatted.
;======================================================================

build_bitmap
		lda	#bitmap_strt_blk	;starting block number of bitmap
		sta	drvr_blk_num
;
;Calculate the number of bitmap blocks needed for this volume
;
		ldx	#$0001			;default = one bitmap block
		lda	new_tot_blks		;number of blocks on volume
count_blks
		sec
		sbc	#4096			;one bitmap block
		beq	end_count
		bcc	end_count
		inx				;add one to the block count
		bra	count_blks

end_count
		stx	bitmap_blks		;total number of bitmap blocks
		txa
		clc
		adc	#$0005			;add in boot blks and directory
		sta	last_bitmap		;blk number of last bitmap blk

		jsr	fill_gbuf_low		;allocate 4096 blocks please

		ldx	last_bitmap		;block number of last bitmap block
dir_build
		jsr	alloc_bit_blk		;allocate a bitmap block please
		dex				;allocate the next block please
		bpl	dir_build
		bra	chk_last		;see if we are done

full_loop
		jsr	fill_gbuf_low		;allocate 4096 blocks

chk_last
		lda	drvr_blk_num		;our we done?
		cmp	last_bitmap
		beq	clear_to_end		;yes we are

		jsr	device_call		;issue write call
		bcs	end1_bitmap
		inc	drvr_blk_num		;move to the next block please
		bra	full_loop


clear_to_end					; ;clear from last bit to the end
		lda	new_tot_blks
		tax
		and	#$0FFF			;do we need to clear anything?
		beq	just_write
		txa				;we must clear some bits
		and	#$0007			;are we byte aligned?
		beq	fast_clr		;yes we are
		jsr	alloc_bit_blk		;allocate the odd block
		inx
		stx	new_tot_blks
		bra	clear_to_end
fast_clr
		jsr	calc_bit		;get the index please

		lda	#$0000
fast_loop	sta	[drvr_buf_ptr],y
		iny
		iny				;WARNING! we might overwrite a byte
		cpy	#$0200			;past $200 this is OK with a 1K buffer
		bcc	fast_loop		;since we are using 512 bytes only
just_write
		jsr	device_call		;issue write call
end1_bitmap
		rts

alloc_bit_blk
		phx				;save the block number
		jsr	calc_bit		;convert block number to bit pattern
		eor	#$FFFF			;clear the correct bit please
		and	[drvr_buf_ptr],y
		sta	[drvr_buf_ptr],y
		plx				;restore block number
		rts

;======================================================================
;get_dev_blks   This routine will return the number of blocks on
;               the volume.
;
;Output:        A = number of blocks
;======================================================================

get_dev_blks
		lda	#drvr_status		;issue a status call to the device
		sta	drvr_call_num

		lda	#^status_list		;setup a pointer to the status list
		sta	drvr_slist_ptr+2
		lda	#status_list
		sta	drvr_slist_ptr

		lda	#$0006			;a six byte request count
		sta	drvr_req_cnt
		stz	drvr_req_cnt+2

		lda	#blk_size
		sta	drvr_blk_size

		stz	drvr_stat_code		;issue a 'driver status' call.
		jsr	device_call		;blast off!!
		bcs	holy_cow_batman		;An error?

		ldx	#$FFFF			;a 32 meg volume
		lda	return_blks+2		;return the blocks please
		bne	big_boy
		ldx	return_blks
		cpx	#$0007
		bcc	range_problem		;sorry this device is too small
big_boy
		txa				;number of blocks on volume
		clc
holy_cow_batman
		rts

range_problem
		lda	#drvr_bad_block		;we will not do it.
		sec
		rts

;======================================================================
;This routine will mark any VCR's that are logged on this device as
;being swapped.  This will allow any FST to rebuild the VCR after the
;media has been erased or formatted.
;======================================================================

clear_any_vcrs
		lda	dev_num			;device number we are going to erase
		jsl	swap_out		;mark volumes offline
		rts
		ENDP
	endif

;---------------------------------------------------------------------------------------------------

		eject
******************************************************************************
*
*	 Name:	map_enable
*
* Description:	This routine enables or	disables file type mapping.
*
*     Created:	Dec 16,	1987
*    Modified:	Dec 16,	1987
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		my_pblk			;points	to parameter block.
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..0
*		B = K
*
*	 Exit:	rts
*
*	 Uses:	all registers
*		my_pblk
*		map_enable_flag
*		temp1
*
******************************************************************************

map_enable	proc
		with	my_dp

*
* Set map_enable_flag and exit with carry clear...
*
		ldy	#map_enable_off		;Get offset to map_enable.
		lda	[param_blk_ptr],y	;Get flag.
		cmp	map_enable_flag		;added 25-Aug-92 DAL
		sta	map_enable_flag		;Save it.
*** added 25-Aug-92 DAL
		beq	@skip_changed
		jsr	post_volume_changed
@skip_changed
*** end 25-Aug-92

		clc				;No error.
		rts

		ENDP

		eject
******************************************************************************
*
*	 Name:	get_map_size
*
* Description:	This routine returns the size of the current file type map in
*		the callers parameter block.
*
*     Created:	Dec 4, 1987
*    Modified:	Dec 4, 1987
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		my_pblk			;points	to parameter block.
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..0
*		B = K
*
*	 Exit:	rts
*
*	 Uses:	all registers
*		my_pblk
*		temp1
*
******************************************************************************

get_map_size	proc
		with	my_dp

*
* Setup	pointer	to current map...
*
		jsr	deref_map

*
* Get length, stuff it into the	parameter block, and exit with carry clear...
*
		lda	[map_ptr]		;Get length.

		ldy	#map_size		;Get offset to map_size.
		sta	[param_blk_ptr],y	;Send length.

		clc				;No error.
		rts

		ENDP
		eject
******************************************************************************
*
*	 Name:	get_map_table
*
* Description:	This routine copies the	current	file type map into the buffer
*		pointed	to by the map_buffer parameter in the parameter	list.
*
*		NOTE: No checking is done on the size of the caller's buffer!
*
*     Created:	Dec 4, 1987
*    Modified:	Dec 4, 1987
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		my_pblk			;points	to parameter block.
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..0
*		B = K
*
*	 Exit:	rts
*
*	 Uses:	all registers
*		my_pblk
*		temp1
*		data_buffer
*
******************************************************************************

get_map_table	proc
		with	my_dp

*
* Setup	pointer	to current map...
*
		jsr	deref_map

*
* Get buffer pointer out of parameter list...
*
		ldy	#map_buffer		;Get offset to pointer.
		lda	[param_blk_ptr],y	;Get low word of pointer.
		sta	temp_ptr		;Save it.
		iny				;Bump offset.
		iny
		lda	[param_blk_ptr],y	;Get high word of pointer.
		sta	temp_ptr+2		;Save it.
*
* Copy map to data_buffer and exit with	carry clear...
*
		lda	[map_ptr]		;Get length of table.
		tay				;Use as	offset.

		longa	off			;Set 8 bit A.
		sep	#$20

copy_loop	dey				;Done all?
		bmi	restore_a		;Yep.
		lda	[map_ptr],y		;Nope, get byte.
		sta	[temp_ptr],y		;Put it	in buffer.
		bra	copy_loop		;And loop.

		longa	on			;Restore 16 bit	A.
restore_a	rep	#$20

		clc				;No error.
		rts

		ENDP
		eject
******************************************************************************
*
*	 Name:	set_map_table
*
* Description:	This routine replaces the current file type map	with one
*		provided by the	caller.
*
*     Created:	Dec 4, 1987
*    Modified:	Dec 4, 1987
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		my_pblk			;points	to parameter block.
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..0
*		B = K
*
*	 Exit:	rts
*
*	 Uses:	all registers
*		my_pblk
*		temp1
*		temp_ptr
*
******************************************************************************

set_map_table	proc
		with	my_dp
old_vp		equ	index_ptr

*
* Save the current map_buffer_vp so we can release it after we successfully
* allocate a new one...
*
		lda	map_buffer_vp		;Get vp.
		ldx	map_buffer_vp+2
		sta	old_vp			;Save it.
		stx	old_vp+2
*
* Get buffer pointer out of parameter list...
*
		ldy	#map_buffer		;Get offset to pointer.
		lda	[param_blk_ptr],y	;Get low word of pointer.
		sta	temp_ptr		;Save it.
		iny				;Bump offset.
		iny
		lda	[param_blk_ptr],y	;Get high word of pointer.
		sta	temp_ptr+2		;Save it.
*
* Get size of map and allocate memory for it.  Exit with out_of_mem error
* if we	couldn't allocate enough memory...
*
		lda	[temp_ptr]		;Get size of map
		jsl	alloc_seg		;Get a hunk that size.
		lda	#out_of_mem		;Get error code	in case	full.
		bcs	exit			;Error,	so exit	with carry set.

		stx	map_buffer_vp		;Save new vp.
		sty	map_buffer_vp+2
		jsl	deref			;Dereference vp.
		stx	map_ptr			;Save pointer.
		sty	map_ptr+2
*
* Copy map into	map buffer...
*
		lda	[temp_ptr]		;Get length of table.
		tay				;Use as	offset.

		longa	off			;Set 8 bit A.
		sep	#$20

copy_loop	dey				;Done all?
		bmi	restore_a		;Yep.
		lda	[temp_ptr],y		;Nope, get byte.
		sta	[map_ptr],y		;Put it	in buffer.
		bra	copy_loop		;And loop.

		longa	on			;Restore 16 bit	A.
restore_a	rep	#$20
*
* Now let's deallocate the old map and exit with carry clear...
*
		ldx	old_vp			;Get old vp.
		ldy	old_vp+2
		jsl	release_seg		;Release it.

		jsr	post_volume_changed	;added 25-Aug-92 DAL

		clc				;No error.
exit		rts

		ENDP

		eject
******************************************************************************
*
*	 Name:	post_volume_changed
*
* Description:	This routine calls the GS/OS notification queue with a volume-
*		changed event for every MS-DOS VCR that's swapped in.
*
*     Created:	25-Aug-92
*    Modified:	25-Aug-92
*      Author:	Dave Lyons
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*	 Exit:	rts
*
*	 Uses:	all registers
*
******************************************************************************

post_volume_changed proc Export
		with my_dp

		lda	#$0001			;Start with the first FST
more		jsl	get_vcr			;Ask for the VCR
		bcs	done			;Past the last VCR

		jsl	deref			;Deref VP into temp_ptr
		stx	<temp_ptr
		sty	<temp_ptr+2

		ldy	#vcr_fst_id
		lda	[<temp_ptr],y
		cmp	#fst_id			;is it our volume?
		bne	next_vcr

		ldy	#vcr_status
		lda	[<temp_ptr],y
		and	#vcr_swapped		; bit set if VCR swapped out
		bne	next_vcr

		pea	$2033			; call number (for A) = FSTSpecific
		ldy	#vcr_dev		; get device number
		lda	[<temp_ptr],y
		pha				; to be passed in X
		pha				; undefined: passed in Y
		lda	#<volume_change		; get event code in A,X
		ldx	#^volume_change
		jsl	post_os_event		; signal the event

next_vcr	lda	#$0000			;Value for get next vcr
		bra	more

done		rts

		EndP


		eject
******************************************************************************
*
*	 Name:	fst_specific
*
* Description:	This routine is	a dispatcher for the fst_specific calls.  It
*		uses command_num to dispatch to	the correct routine.
*
*		NOTE:  These routines do not use send_output to	return
*		       parameters, but do it themselves.
*
*     Created:	Dec 4, 1987
*    Modified:	Dec 4, 1987
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		command_num		;command_num
*
*      Output:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*	 Exit:	rts
*
*	 Uses:	all registers
*
******************************************************************************

fst_specific	proc	Export

*** added 25-Aug-92 DAL -- make sure pcount is 3
		lda	[<param_blk_ptr]	;get parameter count
		cmp	#3
		beq	@pcount_ok

		lda	#invalid_pcount
		sec
		brl	main_exit

@pcount_ok
*** end 25-Aug-92

*
* Dispatch to the selected routine...
*
		ldy	#4
		lda	[<param_blk_ptr],y	;Get command number.
		cmp	#4			;in range?
		bcs	@bad_opnum		;no, error out
		asl	a			;Multiply by 2.
		tax				;Use as	index.
		jsr	(specific_cmds,x)	;Jump to it.
		brl	main_exit

@bad_opnum
		lda	#invalid_fst_op
error_out 
		sec
exit 
		brl	main_exit

*
* Dispatch table for fst_specific commands...
*
specific_cmds	DC.W	map_enable		;Map_enable.
		DC.W	get_map_size		;Get_map_size.
		DC.W	get_map_table		;Get_map_table.
		DC.W	set_map_table		;Set_map_table.

		ENDP
		end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/FSTs/MSDos/MSDos.Data.aii b/IIGS.601.SRC/GS.OS/FSTs/MSDos/MSDos.Data.aii
new file mode 100644
index 0000000..51dc37a
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/FSTs/MSDos/MSDos.Data.aii
@@ -0,0 +1 @@
+****************************************************************************************************
*
* MSDos.Data.aii - contains data definitions for the MS-DOS FST
*
****************************************************************************************************

		include 'MSDos.equ'

;
; 22-Jan-92 MSD: Moved all non-zero items in the data to the start of
; the proc so that all of the zero bytes would be contiguous.  This
; should help the FST sparsify itself (and reduce disk space).
;

dummy_name	Record	Export
		dc.b	'cant.find.me'		;used to calculate the latest mod date
		dc.w	00

time_stamp_opt	Record	Export
		DC.W	02			;0 = files
;						;1 = files + subdirs
;						;2 = files + subdirs + subdirs to root
;

dir_offset_tbl	Record	Export
		DC.W	$0004			;offsets to directory entries within
		DC.W	$002b			;a directory block
		DC.W	$0052
		DC.W	$0079
		DC.W	$00A0
		DC.W	$00C7
		DC.W	$00EE
		DC.W	$0115
		DC.W	$013C
		DC.W	$0163
		DC.W	$018A
		DC.W	$01B1
		DC.W	$01D8

fake_name_str	Record	Export
		DC.W	3			;fake name string for VCR
		DC.B	$C
		DC.B	$A
		DC.B	$E
		DC.B	$00

syntax_str	Record	Export
		DC.B	end_text-start_text
start_text	DC.B	'MSDOS filenames may be up to 12 characters long, with '
		DC.B	'an 8 character name, a single "." separator,  and 3 '
		dc.b	'character extension.  '
		dc.b	'Volume names may be up to 11 characers long with '
		dc.b	'no extension.  '
		DC.B	'Names may contain letters and digits.'
end_text

;======================================================================
;Data used by Format and Erase disk calls

format_header	Record	Export
		Export	new_vol_name,new_vol_mod,new_vol_date,new_tot_blks

		DC.W	$0000			;backword link is nill
		DC.W	$0003			;forward link to block three
new_vol_name	DC.B	00			;length plus storage type
		DS.B	15			;fifteen bytes for the name
		DS.B	2			;eight bytes reserved
new_vol_mod	ds.b	4			;four byte for the Mod time
		ds.b	2			;2 bytes for the case bits
new_vol_date	DS.B	4			;create date for the volume
		DC.B	prodos_version
		DC.B	00			;minimum version (back to SOS 1.0)
		DC.B	$C3			;access
		DC.B	$27			;entry length  (39)
		DC.B	$0D			;entries per block (13)
		DC.W	$0000			;file count is nill
		DC.W	$0006			;bitmap pointer
new_tot_blks	DC.W	$0000			;total number of blocks on the volume

control_list	Record	Export			;partition string
		DC.W	$0E			;length increased by 2 7/26/90, see below
		DC.B	'Apple_PRODOS'
		dc.b	0,0			;terminator nulls added 7/26/90 for compatibility with
						;Macintosh-side FSM, by Matt Gulick, Monte Benaresh

;======================================================================
;below is the startup tables for each call. The table contains the
;following data:
;
;               1) Max PCount for the call
;               2) Max Class for the call
;               3) Pathnames used by call
;               4) volume control record used
;               5) file control record used.
;               6) io buffer used (data_ptr,Index_ptr,master_ptr)
;               7) flush file before call
;               8) damaged disk protect
;               9) Check Dirty Flag.
;
;            |9|8|7|6|5|4|3|  2  |    1    |
;           _|_|_|_|_|_|_|_|_____|_________|
;          | | | | | | | | | | | | | | | | |
;          |_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|
;          |               |               |
;         1 6             0 8             0 0

start_tbl	Record	Export
		DC.W	max_pcnt7+max_class1+path_used+damage ;Create
		DC.W	max_pcnt1+max_class1+path_used+damage ;Destroy
		DC.W	0000
		DC.W	max_pcnt3+max_class1+path_used+damage 	;ChangePath
								; set max pCount=3 (5-Dec-91 MSD)
		DC.W	max_pcnt12+max_class1+path_used+damage ;SetFileInfo
		DC.W	max_pcnt12+max_class1+path_used	;GetFileInfo
		DC.W	max_pcnt6+max_class1	;JudgeName
		DC.W	max_pcnt6+max_class1	;Volume
		DC.W	0000
		DC.W	0000
		DC.W	max_pcnt1+max_class1+path_used+damage ;ClearBackup
		DC.W	0000
		DC.W	0000
		DC.W	0000
		DC.W	0000
		DC.W	max_pcnt15+max_class1+path_used	;Open
		DC.W	0000
		DC.W	max_pcnt5+max_class1+vcr_used+fcr_used+io_used ;Read
		DC.W	max_pcnt5+max_class1+vcr_used+fcr_used+io_used+damage+do_dirty ;Write
		DC.W	max_pcnt1+max_class1+vcr_used+fcr_used+io_used ;Close
		DC.W	max_pcnt2+max_class1+vcr_used+fcr_used+io_used+damage ;Flush
		DC.W	max_pcnt4+max_class1+vcr_used+fcr_used+io_used ;SetMark
		DC.W	max_pcnt2+max_class1+fcr_used ;GetMark
		DC.W	max_pcnt3+max_class1+vcr_used+fcr_used+flush_1st+io_used+damage+do_dirty ;SetEof
		DC.W	max_pcnt2+max_class1+fcr_used ;GetEof
		DC.W	0000
		DC.W	0000
		DC.W	max_pcnt17+max_class1+vcr_used+fcr_used+io_used	;GetDirEntry
		DC.W	0000
		DC.W	0000
		DC.W	0000
		DC.W	max_pcnt2+max_class1+path_used ;GetDevNum
		DC.W	0000
		DC.W	0000			;ReadBlock
		DC.W	0000			;WriteBlock
		DC.W	max_pcnt6+max_class1+path_used ;Format
		DC.W	max_pcnt6+max_class1+path_used ;Erase

key_blk_changed	Record	Export
		dc.w	00			;used by set EOF to indicate that the file changed structure

gbuf_addr	Record	Export
		DC.L	0			;pointer to general I/O buffer

virtual		Record	Export
		DC.L	0			;pointer to virtual memory after
						;a call to 'Get_Segment'

;======================================================================
;data storage used

hours		Record	Export
		DC.W	00

minutes		Record	Export
		DC.W	00

seconds		Record	Export
		dc.w	00

year		Record	Export
		DC.W	00

month		Record	Export
		DC.W	00

day		Record	Export
		DC.W	00

day_of_week	Record	Export
		DC.W	00

pro_time	Record	Export
		DC.L	00

write_occurred	Record	Export
		dc.w	00			;IF non-zero on exit then a write occurred

write_dev_num	Record	Export			;device number that was written too
		dc.w	00

curr_mod_date	Record	Export
		dc.l	00

case_bits	Record	Export			;case bits for the last pathname
		dc.w	00

case_bit_pattern Record	Export
		dc.w	00

src_dev_num	Record	Export
		DC.W	00			;used by change path

src_start_blk	Record	Export
		DC.W	00			;''

src_dir_blk	Record	Export
		DC.W	00			;''

src_offset	Record	Export
		DC.W	00


slug_block	Record	Export
		DC.W	00			;for slug ripple 'to root time stamp'

slug_offset	Record	Export
		DC.W	00

close_flag	Record	Export
		DC.W	00			;used to determine if we should call
;						;slug_ripple from flush_file
;

src_slug_blk	Record	Export
		DC.W	00			;used by change_path

src_slug_offset	Record	Export
		DC.W	00

dest_slug_blk	Record	Export
		DC.W	00

dest_slug_offset Record	Export
		DC.W	00

dest_dev_num	Record	Export
		DC.W	00			;used by change path

dest_start_blk	Record	Export
		DC.W	00			;''

dest_dir_blk	Record	Export
		DC.W	00			;''

dest_offset	Record	Export
		DC.W	00

vol_rename_flag	Record	Export
		DC.W	00			;''


direct_page	Record	Export
		DS.B	$4C			;used when we must mount a volume

my_direct	Record	Export
		DS.B	$78			;''

world_flag	Record	Export
		DC.W	00			;detect re-entrent code

def_dir_page	Record	Export
		DS.B	$4C			;used when we flush deferred blocks

def_my_direct	Record	Export
		DS.B	$78			;''

def_vol_name	Record	Export
		DS.B	20

alloc_chk_flag	Record	Export
		DC.W	00			;used by write routine

seq_write_start	Record	Export
		DC.L	00			;pointer used by write routine

seq_write_cnt	Record	Export
		DC.W	00			;sequential block counter

seq_write_blk	Record	Export
		DC.W	00			;starting block for sequential write

path_searched	Record	Export
		DC.W	00			;set by find file.

last_blk	Record	Export
		DC.W	0			;used by find_file to verify
;						;directory structure

search_flag	Record	Export
		DC.W	00			;flag used by process path
;						; bit 15 = volume name not allowed
;						; bit 14 = search for new entry
;						; bit 13 = volume only allowed

dir_start_blk	Record	Export
		DC.W	00			;starting block of a directory

dir_last_blk	Record	Export
		DC.W	00			;last block read by find file

free_dir_blk	Record	Export
		DC.W	00			;1st dir block with a free entry

free_dir_offset	Record	Export
		DC.W	00			;offset to free entry in dir block

searching_free	Record	Export
		DC.W	00			;flag that is used by Find_File

blks_used1	Record	Export
		DC.W	00			;blks needed for data fork. (create)

blks_used2	Record	Export
		DC.W	00			;blks needed for res. fork. (create)

blocks_needed	Record	Export
		DC.W	00			;total blocks needed for files. (create)

data_storage	Record	Export
		DC.W	00			;storage type for data fork

res_storage	Record	Export
		DC.W	00			;storage type for resource fork

some_free	Record	Export
		DC.W	00			;used by find_free_blks

volume_name	Record	Export
		DS.B	20			;holds the volume name of an input str

gstring		Record	Export
		DS.B	20			;holds gstrings

search_length	Record	Export
		DC.W	00			;used by 'find_file' routine

search_name	Record	Export
		DS.B	11

fcr_wanted	Record	Export
		DC.W	00			;used by check_dup routine

key_block	Record	Export
		DC.W	00			;used by check_dup routine

find_this_entry	Record	Export
		DC.W	00			;used by get dir entry

entry_sto_type	Record	Export
		DC.W	00

storage_type	Record	Export
		DC.W	00			;used by open

resource_num	Record	Export
		dc.w	00

one_entry_1	Record	Export
		Export	one_entry
one_entry	DS	dir_entry		;holds one directory entry
		Export	rfork_entry
rfork_entry	ds	dir_entry		;holds entry for resource fork file

files_key_block	Record	Export
		DC.W	00			;used by open

hold_path_ptr	Record	Export
		DC.W	00

data_eof	Record	Export
		DC.L	00			;used by create

res_eof		Record	Export
		DC.L	00			;used by create

tree_key_blk	Record	Export
		DC.W	00			;used by create

tree_blks	Record	Export
		DC.W	00			;used by create

parent_blk	Record	Export
		DC.W	00			;used by the open routine

entry_offset	Record	Export
		DC.W	00			;used by the open routine

newline_len	Record	Export
		DC.W	00

newline_mask	Record	Export
		DC.W	00

newline_char	Record	Export
		DC.W	00

base		Record	Export
		DC.W	00			;used with calls that have base param

displacement	Record	Export
		DC.L	00			;used with calls that have displacement

new_last	Record	Export
		DC.W	00			;used to cut back eof (SET_EOF)

bitmap_blks	Record	Export
		DC.W	00			;used to calc_free_blks

last_bitmap	Record	Export
		DC.W	00			;''                  ''

first_free	Record	Export
		DC.W	00			;''                  ''

bits		Record	Export
		DC.W	00			;used to count bits in calc_free_blks

alloc_count	Record	Export
		DC.W	00			;used by find_free_blks

alloc_start	Record	Export
		DC.W	00			;''

byte_offset	Record	Export
		DC.W	00			;''

mark_changed	Record	Export
		DC.W	00			;used by fill_io_buf (setmark=EOF case)

user_cache	Record	Export
		DC.W	00			;default cache value for file reads

create_time	Record	Export
		DC.L	00			;used by set_file_info

mod_time	Record	Export
		DC.L	00			;used by set_file_info

index_blks	Record	Export
		DC.W	00			;number of indexes needed for tree files

data_indexes	Record	Export
		DC.W	00			;used by create

res_indexes	Record	Export
		DC.W	00			;used by create.

entries_blk_num	Record	Export
		DC.W	00

pcount		Record	Export
		DC.W	00

access		Record	Export
		DC.W	00

and_mask	Record	Export
		DC.W	00

curr_mark	Record	Export
		DC.L	00

curr_eof	Record	Export
		DC.L	00

tran_cnt	Record	Export
		DC.L	00

user_req_cnt	Record	Export
		DC.L	00

entries_checked	Record	Export
		DC.W	00

chars_checked	Record	Export
		DC.W	00

length		Record	Export
		DC.W	00

flush_entry	Record	Export
		dc.w	00			;allows us to flush only the I/O buffer

users_access	Record	Export
		dc.w	00			;used during the open call

dirty_flags	Record	Export			;flags at the beginning of the call
		dc.w	00

flush_flags	Record	Export
		dc.w	00			;used by the flush routines

chk_dirty_flag	Record	Export			;flag used to indicate that the call can cause dirty blocks
		dc.w	00

dirty_cnt_changed Record Export
		dc.w	00			;indicates that we have changed the dirty_cnt once

new_eof		Record	Export
		dc.l	00			;used by set EOF

cp_device_flag	Record	Export
		DC.W	00			;1 = ChangePath using device name, else 0

cp_flags	Record	Export			;Added 5-Dec-91 MSD
		DC.W	00			;$8000 = assume source is duplicate volume

error_priority	Record	Export
		DC.W	00			;storage for error priority


format_ctrl	Record	Export
		DC.W	00			;length of control list

status_list	Record	Export
		Export	return_blks

		DC.W	00			;status code
return_blks	DC.L	00000			;number of blocks on device

entries_offset	Record	Export
		dc.w	00			;offset to directory entry

gde_temp	Record	Export
		dc.w	00			; temp used by GetDirEntry

;driver save area

drvr_save	Record	Export
		DS.B	$1b			;save room for direct page

;equates used by 'setup_params'

class		Record	Export
		DC.W	00

max_pcount	Record	Export
		DC.W	00

flags		Record	Export
		DC.W	00

filename	Record	Export
length		ds.w	1
text		ds.b	12			;up to 12 characters (including '.')

expand_record	Record	Export
expand_flag	dc.w	00
expand_file	dc.w	00			;used to indicate we are extending a file
expand_storage	dc.w	00			;storage type of the data fork on extension
expand_key_blk	dc.w	00
expand_blks_used dc.w	00
expand_eof	dc.l	00

*** added 28-Feb-92 DAL
;
; Used by chk_disk_protect to save the first 512 bytes of GBUF
;
chk_protect_gbuf Record	Export
		ds.b 512
*** end 28-Feb-92 DAL

*
* File type map	data and map_enable_flag...
*

map_buffer_vp	Record	Export
		DS.B	4			;Storage for vp.

; following entries are from Appendix J of "The MS-DOS Encyclopedia", page 1485
; The entries are searched sequentially, so the most common translations should
; be placed at the beginning of the table.

default_map	record	Export
		DC.W	map_end-default_map	;Size of default map.

;		DC.B	'.TXT',$00,$04		;text file
;		DC.B	'.BAT',$00,$04		;batch file
;		dc.b	'.BIN',$00,$06		;binary file
;		dc.b	'.ASC',$00,$04		;ASCII text file
;		dc.b	'.C',$00,$04		;C language source code
;		dc.b	'.H',$00,$04		;C header file
;		dc.b	'.PAS',$00,$04		;Pascal language source code
;		dc.b	'.ASM',$00,$04		;assembly language source code
;		dc.b	'.LST',$00,$04		;listing file
;		dc.b	'.COB',$00,$04		;COBOL language source code
;		dc.b	'.FOR',$00,$04		;FORTRAN language source code

*** 11-Aug-92 DAL -- new map table has an auxtype word in addition to the old stuff

		macro
&lab		Translate &suffix,&filetype,&auxtype
&lab		dc.b &suffix,0
		dc.b &filetype
		dc.w &auxtype
		mend

		Translate '.TXT',$04,$0000	;text file
		Translate '.BAT',$04,$0000	;batch file
		Translate '.BIN',$06,$0000	;binary file
		Translate '.ASC',$04,$0000	;ASCII text file
		Translate '.C',$04,$0000	;C language source code
		Translate '.H',$04,$0000	;C header file
		Translate '.PAS',$04,$0000	;Pascal language source code
		Translate '.ASM',$04,$0000	;assembly language source code
		Translate '.LST',$04,$0000	;listing file
		Translate '.COB',$04,$0000	;COBOL language source code
		Translate '.FOR',$04,$0000	;FORTRAN language source code
*** new translations, 11-Aug-92 DAL
		Translate '.DOC',$04,$0000	;documentation file
		Translate '.SRC',$04,$0000	;source code file
		Translate '.GIF',$C0,$8006	;GIF file
*** end 11-Aug-92
*** added 24-Mar-93 DAL (suggested by Peter Watson)
		Translate '.DOX',$04,$0000	;documentation file
		Translate '.ME',$04,$0000	;READ.ME file
*** end 24-Mar-93 DAL
		DC.B	$00			;Map terminator.
map_end
		EndR

ResForkName	Record	Export			;subdirectory name used to fake up
		String	AsIs			; resource forks
		dc.w	end_rec-ResForkName-2	;length word
		dc.b	'RESOURCE.FRK:'
end_rec
		EndR


map_enable_flag	Record	Export
		DC.W	0001			;Default is enabled.

msdos_data	Record	Export
		Export	root_dir_block
root_dir_block	ds.w	1			;first block of root directory
		Export	root_dir_size
root_dir_size	ds.w	1			;# of blocks used by root directory
		Export	FAT_byte_count
FAT_byte_count	ds.w	1
		Export	default_name
default_name	dc.b	'MSDOS#     '		;default entry to be used when there's no label
		dc.b	%00001000		;attributes
		dcb.b	10,0			;reserved
		dc.w	0			;time
		dc.w	0			;date
		dc.w	0			;starting cluster
		dc.l	0			;file size

bios_parm_block	Record	Export
sector_size	ds.w	1
cluster_size	ds.b	1
reserved_sectors ds.w	1
FAT_count	ds.b	1
root_dir_count	ds.w	1
total_sectors	ds.w	1
media_desc	ds.b	1
FAT_size	ds.w	1
track_size	ds.w	1
head_count	ds.w	1
hidden_sectors	ds.w	1
bpb_size	equ	*-bios_parm_block

		End
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/FSTs/MSDos/MSDos.Data.inc b/IIGS.601.SRC/GS.OS/FSTs/MSDos/MSDos.Data.inc
new file mode 100644
index 0000000..a0319ac
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/FSTs/MSDos/MSDos.Data.inc
@@ -0,0 +1 @@
+****************************************************************************************************
*
* Import statements for MS-DOS FST global data
*
****************************************************************************************************

		Import	dummy_name
		Import	time_stamp_opt
		Import	dir_offset_tbl
		Import	fake_name_str
		Import	syntax_str
		Import	format_header
		Import	new_vol_name,new_vol_mod,new_vol_date,new_tot_blks
		Import	control_list
		Import	start_tbl
		Import	key_blk_changed
		Import	gbuf_addr
		Import	virtual	
		Import	hours	
		Import	minutes	
		Import	seconds	
		Import	year	
		Import	month	
		Import	day	
		Import	day_of_week
		Import	pro_time
		Import	write_occurred
		Import	write_dev_num			;device number that was written too
		Import	curr_mod_date
		Import	case_bits			;case bits for the last pathname
		Import	case_bit_pattern
		Import	src_dev_num
		Import	src_start_blk
		Import	src_dir_blk
		Import	src_offset
		Import	slug_block
		Import	slug_offset
		Import	close_flag
		Import	src_slug_blk
		Import	src_slug_offset
		Import	dest_slug_blk
		Import	dest_slug_offset
		Import	dest_dev_num
		Import	dest_start_blk
		Import	dest_dir_blk
		Import	dest_offset
		Import	vol_rename_flag
		Import	direct_page
		Import	my_direct
		Import	world_flag
		Import	def_dir_page
		Import	def_my_direct
		Import	def_vol_name
		Import	alloc_chk_flag
		Import	seq_write_start
		Import	seq_write_cnt
		Import	seq_write_blk
		Import	path_searched
		Import	last_blk
		Import	search_flag
		Import	dir_start_blk
		Import	dir_last_blk
		Import	free_dir_blk
		Import	free_dir_offset
		Import	searching_free
		Import	blks_used1
		Import	blks_used2
		Import	blocks_needed
		Import	data_storage
		Import	res_storage
		Import	some_free
		Import	volume_name
		Import	gstring	
		Import	search_length
		Import	search_name
		Import	fcr_wanted
		Import	key_block
		Import	find_this_entry
		Import	entry_sto_type
		Import	storage_type
		Import	resource_num
		Import	one_entry_1
		Import	one_entry:dir_entry
		Import	rfork_entry:dir_entry
		Import	files_key_block
		Import	hold_path_ptr
		Import	data_eof
		Import	res_eof	
		Import	tree_key_blk
		Import	tree_blks
		Import	parent_blk
		Import	entry_offset
		Import	newline_len
		Import	newline_mask
		Import	newline_char
		Import	base	
		Import	displacement
		Import	new_last
		Import	bitmap_blks
		Import	last_bitmap
		Import	first_free
		Import	bits	
		Import	alloc_count
		Import	alloc_start
		Import	byte_offset
		Import	mark_changed
		Import	user_cache
		Import	create_time
		Import	mod_time
		Import	index_blks
		Import	data_indexes
		Import	res_indexes
		Import	entries_blk_num
		Import	pcount	
		Import	access	
		Import	and_mask
		Import	curr_mark
		Import	curr_eof
		Import	tran_cnt
		Import	user_req_cnt
		Import	entries_checked
		Import	chars_checked
		Import	length	
		Import	flush_entry
		Import	users_access
		Import	dirty_flags			;flags at the beginning of the call
		Import	flush_flags
		Import	chk_dirty_flag			;flag used to indicate that the call can cause dirty blocks
		Import	dirty_cnt_changed
		Import	new_eof	
		Import	cp_device_flag
		Import	cp_flags			;Added 5-Dec-91 MSD
		Import	error_priority
		Import	format_ctrl
		Import	status_list
		Import	return_blks
		Import	entries_offset
		Import	gde_temp
		Import	drvr_save
		Import	class	
		Import	max_pcount
		Import	flags	
		Import	filename:GSStr255
		Import	expand_record:tExpandRecord
		Import	chk_protect_gbuf
		Import	map_buffer_vp
		Import	default_map
		Import	ResForkName
		Import	map_enable_flag
		Import	msdos_data
		Import	root_dir_block
		Import	root_dir_size
		Import	FAT_byte_count
		Import	default_name
		Import	bios_parm_block:tBiosParmBlock
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/FSTs/MSDos/MSDos.Subs.aii b/IIGS.601.SRC/GS.OS/FSTs/MSDos/MSDos.Subs.aii
new file mode 100644
index 0000000..91b05b9
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/FSTs/MSDos/MSDos.Subs.aii
@@ -0,0 +1 @@
+;======================================================================
;
; MSDos.Subs.aii
;
; This file contains the subroutines used by the main application-level
; calls.
;
;======================================================================

		Import	main_exit

		PRINT	GEN
		msb	off
		longa	on
		longi	on

		include	'MSDos.equ'

		print	push
		print	off
		include 'MSDos.Data.inc'
		print	pop

		Eject
;======================================================================
;get_time:   This routine will read the time from the GS Clock.
;
; 
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..0
;               b = k
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               hours,minutes
;               year,month,day          ;all are setup with the time
;               day_of_week
;
;uses:          Misc tools              ;(Gets hex time)
; 
;======================================================================

		longa	on
		longi	on

get_time	PROC

		lda	#0000			;setup default time to zero
		pha				;minutes,seconds result
		pha				;year,hour results
		pha				;month,day results
		pha				;weekday,null results

		ldx	#(read_time_hex*$100)+misc_tools
		jsl	tool_locator

		longa	off
		sep	#$20
		pla
		sta	seconds
		pla
		sta	minutes
		pla
		sta	hours
		pla
		sta	year
		pla

		bcs	no_inc1
		inc	a
no_inc1		sta	day			;convert 0 to 30 ->  1 to 31

		pla
		bcs	no_inc2
		inc	a
no_inc2		sta	month			;convert 0 to 11 ->  1 to 12

		pla				;null field
		pla
		sta	day_of_week
		longa	on
		rep	#$30
		rts
		ENDP

		Eject
;======================================================================
;DOW_Convert:This routine convert Month,Day,Year into day of week
;
;Input:         A = Year
;               X = Month
;               Y = Day
;               P = saved
;               b = k
;
;Output:        A = day of week
;               X = undefined
;               Y = undefined
;               P = restored
;               b = k
;
;Uses:          all register
;               local temps 
;
		longa	off
		longi	off

dow_convert	PROC
		php
		sep	#$30
		phy
		tay

;Figure the number of leap years since 1900

		lsr	a
		lsr	a
		sta	dow_temp

;If it's a leap year and it's Jan or Feb subtract 1 from the total

		tya				;get the year back
		and	#%00000011
		bne	stim015
		cpx	#03
		bcs	stim015
		dey

;add the number of leap years elapsed, the year, a constant for the
;month, and the day

stim015
		clc
		tya				;get the year again
		adc	dow_temp		;# of leap years since 1900
		adc	wkmon-1,x
		adc	1,s
		ply				;clean the stack

;Now mod the result by seven, but exit in the range [1..7]

		sec
stim016
		sbc	#07
		cmp	#08
		bcs	stim016
		plp				;restore mode
		rts

dow_temp	DC.B	0

wkmon		DC.B	$08,$0B,$0B,$07,$09,$0C,$07,$0A,$0D,$08,$0B,$0D

		ENDP

		Eject
;======================================================================
;Pack_Time:  This routine will read the time from the GS Clock and
;            convert it to packed msdos disk format
; 
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..0
;               b = k
;
;Output:        A = undefined
;               X = low word of time
;               Y = High word of time
;
;               time is also stored at Pro_Time and Pro_Time+2 
;
;Format of time:
; 
; |<-------- X Register --------->|<-------- Y Register --------->|
; |                               |                               | 
; |<--high Byte-->|<--low  Byte-->|<--high Byte-->|<--low  Byte-->| 
;  _______________________________________________________________
; | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | |
; |    year     | month |   day   |  hour   |   minute  |   secs  |
; |_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|
; 
; 
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Uses:          all register
;               get_time                (Subroutine that reads time)
;               hours,minutes           (data words)
;               year,month,day
; 

		longa	on
		longi	on

pack_time	PROC	Export

		stz	pro_time
		stz	pro_time+2

		jsr	get_time		;read the time from tool set

;We call this entry point if the time parameters are setup and need
;only to be convert to the MSDOS format.

		EXPORT	convert_time
convert_time
		lda	day
		sta	pro_time		;save the day in prodos format
		lda	month
		asl	a
		asl	a
		asl	a
		asl	a
		asl	a			;shift to correct position
		ora	pro_time		;month is now happy
		sta	pro_time
		lda	year			;IIGS year is offset from 1900
		sec
		sbc	#80			;offset relative to 1980 for MSDOS
		xba
		asl	a			;shift year to upper 7 bits
		ora	pro_time
		sta	pro_time
		tax				;return in X register too

		lda	seconds
		lsr	a			;MSDOS stores this in 2-second increments
		sta	pro_time+2
		lda	minutes
		asl	a			;shift into position
		asl	a
		asl	a
		asl	a
		asl	a
		ora	pro_time+2		;combine with seconds
		sta	pro_time+2
		lda	hours
		xba
		asl	a			;shift into position
		asl	a
		asl	a
		ora	pro_time+2
		sta	pro_time+2
		tay				;return in Y register
		clc				; 27-Jan-92 MSD: valid date/time
		rts

		ENDP

		Eject
;======================================================================
;unpack_time:   This routine will unpack an msdos time into a GS/OS time.
;
;Input:         A = undefined
;
;Format of time:
; 
; |<-------- X Register --------->|<-------- Y Register --------->|
; |                               |                               | 
; |<--high Byte-->|<--low  Byte-->|<--high Byte-->|<--low  Byte-->| 
;  _______________________________________________________________
; | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | |
; |    year     | month |   day   |  hour   |   minute  |   secs  |
; |_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|
; 
;               P = nvmxdizc
;                   ..000..0
;               b = k
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;               hours                   (Times are all hex format)
;               minutes
;               year
;               month
;               day
;               day_of_week 
;
;Uses:          all register
;               dow_convert             (Subroutine)
;
		longa	on
		longi	on

unpack_time	PROC	Export

		stx	pro_time
		sty	pro_time+2

;Init time to zero (unknown)

		jsr	zero_date

		txa
		ora	pro_time+2
		beq	end_unpack

		lda	pro_time
		and	#$001F			;isolate day
		sta	day
		cmp	#32			;valid days are 01 to 31
		bcs	zero_date		;sorry bud you get unknown

		tay				;save for DOW convert
		txa				;get year/month/day again (X is still valid here)
		lsr	a
		lsr	a
		lsr	a
		lsr	a
		lsr	a
		and	#$000F			;isolate month
		sta	month
		cmp	#13			;is the month 13 or >?
		bcs	zero_date

		tax
		lda	pro_time
		xba
		lsr	a
		and	#$007F			;isolate the year
		clc
		adc	#80			;adjust relative to 1980 (IIGS offsets from 1900)
		sta	year
		jsr	dow_convert		;go ahead and calculate the day of week
		sta	day_of_week
		lda	pro_time+2		;get seconds
		and	#%000000000001111	;isolate
		asl	a			;stored as # of 2-second increments
		sta	seconds
		cmp	#60
		bcs	zero_date
		lda	pro_time+2
		lsr	a			;shift down
		lsr	a
		lsr	a
		lsr	a
		lsr	a
		and	#%0000000000111111	;isolate minutes
		sta	minutes
		cmp	#60
		bcs	zero_date

		lda	pro_time+2
		xba
		lsr	a
		lsr	a
		lsr	a
		and	#$001F			;isolate hours
		sta	hours
		cmp	#24
		bcc	end_unpack

zero_date					;indicate that the date is unknown
		stz	hours
		stz	minutes
		stz	year
		stz	month
		stz	day
		stz	day_of_week
end_unpack	rts
		ENDP

		Eject
;==========================================================================
;set_default_buf:       sets up the default buffer pointer
;
;
;Enter:         jsr
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Uses:          A register
;
		longa	on
		longi	on

set_default_buf	PROC	Export

		lda	gbuf_addr		;setup the general I/O buffer
		sta	drvr_buf_ptr
		lda	gbuf_addr+2
		sta	drvr_buf_ptr+2
		rts

		EXPORT	standard_req
standard_req
		lda	#blk_size
		sta	drvr_req_cnt
		stz	drvr_req_cnt+2
		rts
		ENDP

		Eject
;======================================================================
;clear_gbuf_low This routine will zero the lower half of the general
;               buffer.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               gbuf_ptr
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Uses:          All registers
;               gbuf_ptr
; 
		longa	on
		longi	on

clear_gbuf_low	PROC	Export
		with	my_dp

		lda	#$0000
		bra	do_clear
		EXPORT	fill_gbuf_low
fill_gbuf_low
		lda	#$FFFF

do_clear
		ldy	#$01FE
clear
		sta	[gbuf_ptr],y
		dey
		dey
		bpl	clear

		rts
		ENDP

		Eject
;======================================================================
;clear_gbuf_hi. This routine will zero the upper half of the general
;               buffer.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               gbuf_ptr
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Uses:          All registers
;               gbuf_ptr
;               temp3_ptr
; 
		longa	on
		longi	on

clear_gbuf_high	PROC	Export
		with	my_dp

		clc
		lda	gbuf_ptr
		adc	#$0200
		sta	temp3_ptr
		lda	gbuf_ptr+2
		adc	#$0000
		sta	temp3_ptr+2

		ldy	#$01FE
		lda	#$0000
clear
		sta	[temp3_ptr],y
		dey
		dey
		bpl	clear

		rts
		ENDP

		Eject
;======================================================================
;Device_call:calls the dispatcher and trys to read or write.  If the
;            call returns a disk switched error then the routine will
;            re-read the disk again. 
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               all parameters for the driver must be setup except for
;               drvr_blk_size and drvr_fst_num, these are setup by the
;               call. (ONLY if the call is a READ or WRITE) 
;          
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
; 
;Uses:          All registers
;               Device Dispatcher  (subroutine)
;

device_call	PROC	Export

		lda	drvr_call_num
		cmp	#drvr_status
		bcs	to_device		;just call the device

		cmp	#drvr_write
		beq	is_write

		lda	drvr_cache
		and	#$7FFF			;clear the deferred bit if not a write
		sta	drvr_cache
		bra	do_it
is_write
		sta	write_occurred		;indicate that a write occured during this call
		lda	drvr_dev_num		;save the device number that I have written too.
		sta	write_dev_num
do_it
		lda	#blk_size
		sta	drvr_blk_size
		stz	drvr_blk_num+2

to_device
		jsl	dev_dispatcher		;call the read routine
		rts

		ENDP

		Eject
;======================================================================
;read_with_cache:
;write_with_cache:
;               This routine with make a device read/write call and
;               store the data in the system cache. error occurs
;               (other then the I/O error) the mount volume routine
;               will be called.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               all parameters for the driver must be setup.
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
; 
;Uses:          All registers
;               Device Dispatcher  (subroutine)
;               device_call

read_with_cache	PROC	Export
		with	my_dp
		Import	dev_with_mount

		lda	#drvr_read
		bra	continue

		EXPORT	write_with_cache
write_with_cache
		lda	#drvr_write

continue
		sta	drvr_call_num

		lda	[my_vcr_ptr]		;setup the Volume ID field
		sta	drvr_vol_id

		lda	drvr_cache		;save current cache setting
		pha
		lda	#in_cache		;store this block in the cache
		sta	drvr_cache

		jsr	dev_with_mount
		php				;save processor status 'A' = error code
		tax				;save any error code
		lda	2,s			;restore old cache value
		sta	drvr_cache
		txa
		plp				;restore carry bit
		plx				;fix the stack
		rts

		ENDP

		Eject
;============================================================================
;
get_fat_entry	Proc	Export
;
; This routine accepts a cluster number as input, and returns the FAT entry
; corresponding to that cluster number.
;
; Input:	A = cluster number
;
; Output:	A = entry contents
;		carry set if = end of chain ($FFx)
;
; Uses:		FAT_ptr
;		Y
;
;============================================================================

		longa	on
		longi	on

		with	my_dp

		pha				;save cluster # on stack

		ldy	#msdos_vcr.FAT_type	;what type of FAT do we have
		lda	[msdos_vcr_ptr],y
		bne	@16_bit			;FAT uses 16-bit entries

@12_bit
		lda	1,s			;retrieve cluster number again
		lsr	a			;divide by 2
		php				;save carry
		clc
		adc	2,s			;cluster *= 1.5
		tay				;into indexor
		lda	[fat_ptr],y		;get the entry from the FAT
		plp				;was cluster odd or even?
		bcc	@even			;even, no shift necessary
		lsr	a			;else must shift down
		lsr	a
		lsr	a
		lsr	a
@even
		and	#$0FFF			;cluster #'s are only 12-bits wide
		ply				;remove cluster # from stack
		cmp	#$0FF0			;set carry if cluster # >= $0FF0
		rts				;back to caller

@16_bit
		lda	1,s			;retrieve cluster number again
		asl	a			;multiply by 2
		tay
		lda	[fat_ptr],y		;get the next link of the chain
		ply				;remove number from stack
		cmp	#$FFF0			;set carry if end of chain
		rts

		EndP

		Eject
;============================================================================
;
Cluster2Block	Proc	Export
;
;		This routine converts a cluster number supplied in the
;		acccumulator into an absolute block number.
;
; Input:	Acc = cluster number
;
; Output:	Acc = absolute block number
;
; Uses:
		with	my_dp
;
;============================================================================

		phy
		phx				;save registers to be used
		tay				;cluster 0?
		bne	@real_cluster		;zero means it's the root directory
		ldy	#msdos_vcr.root_dir_block
		lda	[msdos_vcr_ptr],y	;get the starting block number
		bra	@was_root
@real_cluster
		dec	a			;first data cluster is always #2
		dec	a
		pha				;save cluster number
		ldy	#msdos_vcr.cluster_size
		lda	[msdos_vcr_ptr],y	;get sectors-per-cluster
		and	#$00FF			;only a byte-wide parameter
@loop
		lsr	a			;multiply cluster # by sectors-per-cluster
		tax
		bcs	@done
		pla
		asl	a
		pha
		txa
		bra	@loop
@done
		pla				;retrieve result
		ldy	#msdos_vcr.data_start
		clc
		adc	[msdos_vcr_ptr],y	;combine with first data block
@was_root
		plx				;restore registers
		ply
		rts
		EndP

		Eject
******************************************************************************
*
* Deref_map - dereferences virtual pointer to file type translation table and places
* the real pointer into map_ptr
*

deref_map	Proc	Export
		with	my_dp

		ldx	map_buffer_vp		;Get vp.
		ldy	map_buffer_vp+2
		jsl	deref			;Dereference it.
		stx	map_ptr			;Put in	direct page pointer.
		sty	map_ptr+2
		rts
		EndP

		eject
******************************************************************************
*
*	 Name:	get_file_type
*
* Description:	Scans name in file_name buffer and tries to assign file type
*		by matching entries in the file type map table.
*
*		The file type map is a list of file name suffixes and associated
*		file types.  Each record is variable length and consists of an
*		ascii string followed by a zero and a one byte file type.  The
*		table is terminated will a 1 byte null (00):
*
*		map_size		;(w) size in bytes.
*		record_0		;file type record.
*		record_1		;file type record.
*		.
*		.
*		.
*		null			;(b) map terminator.
*
*		If no matching entry is found, the 'unknown' (00) type is
*		returned.
*
*     Created:	Dec 3, 1987
*    Modified:	Feb 23, 1989
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*		filename		;holds name in gstring format
*		map_buffer_vp		;holds a virtual pointer to the file type map
*		map_enable_flag		;0 if disabled.
*
*      Output:	A = auxiliary_type (was undefined) 11-Aug-92 DAL
*		X = file_type
*		Y = unchanged
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*	 Uses:	All registers
*		temp1
*		length
*
******************************************************************************

*** 11-Aug-92 DAL -- Modified routine somewhat extensively to return auxtype in A.

get_file_type	proc	Export
		with	my_dp

*
* If map_enable_flag is zero, then exit with unknown file type...
*
		phy				;Save Y.

		ldx	#0			;anticipate unknown filetype
		lda	map_enable_flag		;Flag zero?
		beq	exit			;Yep. (A and X are both zero for unknown)
*
* Copy the pointer into map_ptr, init offset and set 8 bit accumulator...
*
		jsr	deref_map

		lda	#0			;pre-zero the high byte of A

		longa	off			;Set 8 bit A.
		sep	#$20
*
* Have we checked all records? If so, exit with file type 00...
*
init_search	ldy	#2			;Init offset past length.
record_loop
		ldx	#0			;anticipate filetype zero
		lda	[map_ptr],y		;Get byte. Zero?
		beq	exit			;Yes, so exit with file type 00.
*
* Nope, let's find the end of the string for this record and get its length...
*
		ldx	#0			;Init count.
end_loop	inx				;Bump count.
		iny				;Bump offset.
		lda	[map_ptr],y		;Get byte. Zero?
		bne	end_loop		;Nope, so continue.
		phy				;Yes, save offset.
		stx	length			;Save length.
		dey				;Point to last character.
*
* Does the string match?
*
		cpx	filename.length		;String longer than filename?
		beq	check_it		;Nope.
		bcs	next_record		;Yep, so don't check.
check_it	ldx	filename.length		;Get length of filename.

match_loop	lda	[map_ptr],y		;Get character.
		cmp	filename.text-1,x	;Match?
		bne	next_record		;Nope.
		dey				;Yes, back up one.
		dex
		dec	length			;Done with string?
		bne	match_loop		;Nope, so loop.
*
* Yes, so get file type, restore 16 bit accumulator and exit...
*
		ply				;Recover offset.
		iny				;Point to file type.
		lda	[map_ptr],y		;Get file type.

		longa	on			;Restore 16 bit A.
		rep	#$20

		and	#$00ff			;Clear high byte.
		tax				;Put file type in X.

		iny				;point to auxiliary type
		lda	[map_ptr],y		;Put auxiliary type into A

exit		rep	#$20
		ply				;Recover Y.
		rts				;Exit.
*
* No, so let's point to the next record and loop...
*
next_record	ply				;Recover offset.
		iny				;Point to file type.
*** added 11-Aug-92 DAL
		iny				;point to auxtype low byte
		iny				;point to auxtype high byte
*** end 11-Aug-92
		iny				;Point to next record.
		bra	record_loop		;Loop.

		ENDP

		Eject
;======================================================================
;setup_fat_ptr: This routine will return a pointer to the fat
;               buffer and setup 'fat_ptr' to point to the fat buffer
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               my_vcr_ptr              (Points to main VCR)
;
;Output:        A = undefined
;               X = low word of fat_ptr
;               Y = high word of fat_ptr
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               fat_ptr                 (fat_ptr pointer is setup)
;
;Uses:          All registers
;               my_vcr_ptr
; 
		longa	on
		longi	on

setup_fat_ptr	PROC
		with	my_dp

		clc
		lda	my_vcr_ptr
		adc	#vcr.fat_start		;starting location of FAT
		sta	fat_ptr
		tax
		lda	my_vcr_ptr+2
		adc	#$0000
		sta	fat_ptr+2
		tay
		rts
		ENDP

		Eject
;======================================================================
;setup_my_vcr:  this routine sets up a pointer to the MSDOS specific
;               volume control record.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               my_vcr_ptr              (Points to main VCR)
;
;Output:        A = undefined
;               X = low word of MSDOS vcr
;               Y = high word of MSDOS vcr
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Uses:          All registers
;               my_vcr_ptr
; 
		longa	on
		longi	on

setup_my_vcr	PROC	Export
		with	my_dp

		jsr	setup_fat_ptr		;first, set the FAT pointer

		clc
		lda	my_vcr_ptr
		adc	#vcr.dev+2		;start of local data for vcr
		sta	msdos_vcr_ptr
		tax
		lda	my_vcr_ptr+2
		adc	#$0000
		sta	msdos_vcr_ptr+2
		tay
		rts

		ENDP

		Eject
;======================================================================
;setup_my_fcr:  this routine sets up a pointer to the MSDOS specific
;               file control record data.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               my_fcr_ptr              (Points to main FCR)
;
;Output:        A = undefined
;               X = low word of MSDOS fcr
;               Y = high word of MSDOS fcr
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Uses:          All registers
;               my_fcr_ptr
; 
		longa	on
		longi	on

setup_my_fcr	PROC	Export
		with	my_dp

		clc
		lda	my_fcr_ptr
		adc	#fcr.msdos_stuff	;start of local data for fcr
		sta	msdos_fcr_ptr
		tax				;return in X and Y
		lda	my_fcr_ptr+2
		adc	#$0000
		sta	msdos_fcr_ptr+2
		tay
		rts
		ENDP

		Eject
;======================================================================
;setup_io_ptrs  this routine sets up pointers to the active data buffers
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               my_fcr_ptr              (Points to main FCR)
;               msdos_fcr_ptr           (points to specific data)
;
;Output:        A = undefined
;               X = low word of MSDOS vcr
;               Y = high word of MSDOS vcr
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Uses:          All registers
;               my_fcr_ptr
;               math_temp
;
		longa	on
		longi	on

setup_io_ptrs	PROC	Export
		with	my_dp

		stz	data_ptr		;init the pointers
		stz	data_ptr+2

		ldy	#msdos_fcr.status	;see if there is a data block
		lda	[msdos_fcr_ptr],y
		and	#data_active
		beq	end_io_setup		;there is no data block

		clc
		lda	my_fcr_ptr
		adc	#fcr.io_start
		sta	data_ptr
		lda	my_fcr_ptr+2
		adc	#$0000
		sta	data_ptr+2

end_io_setup
		rts

		ENDP

		Eject
;==========================================================================
;calc_free_blks This routine will calculate the number of blocks that are
;               free on a volume.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               msdos_vcr_ptr          (must be setup correctly)
;               drvr_dev_num            (must be setup up)
;
;Output:        A = error code if carry set otherwise total blocks free
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;Uses:          All registers
;               device_call
;               I/O buffer
;

		longa	on
		longi	on

calc_free_blks	PROC	Export
		with	my_dp

;before we start going to disk lets see if we already know the number of
;free blocks.   IF free_blocks = $FFFF then free blocks are unknown.

		ldy	#msdos_vcr.free_blocks
		lda	[msdos_vcr_ptr],y
		inc	a
		beq	go_figure		;we need to calculate it
		dec	a			;A = total blocks
		clc
		rts

go_figure
;		jsr	force_bitmap		;flush the bitmap if needed

;setup a pointer to the FAT

		jsr	setup_fat_ptr

;go do a run on the FAT calculating the number of blocks free

; calculate the number of clusters we need to scan

		ldy	#msdos_vcr.total_sectors
		lda	[msdos_vcr_ptr],y	;get total # of sectors
		sta	math_temp		;store as dividend

		ldy	#msdos_vcr.cluster_size
		lda	[msdos_vcr_ptr],y
		and	#$00FF			;this is only a byte-wide parameter
		pha				;save for accumulation

		lsr	a			;start the division
		beq	@one_block		;only 1 block per cluster

@count_clusters
		lsr	math_temp
		lsr	a			;divide total by blocks per cluster
		bne	@count_clusters
@one_block
		ldx	math_temp		;get count of clusters

;We now have the number of clusters on disk in the X register.  Loop through
;the FAT looking for free clusters.  When one is found, update the free
;blocks count by the numbers of blocks contained within each cluster.

		stz	math_temp		;counts the free blocks

for_loop
		txa
		jsr	get_FAT_entry		;retrieve an entry from the FAT
		tay
		bne	used			;if non-zero, the cluster is in use
		lda	math_temp		;else update the free blocks count
		clc
		adc	1,s			;cluster_size still on stack
		sta	math_temp
used
		dex				;loop through entire FAT
		bne	for_loop		;(cluster 0 is ALWAYS in use)
		pla				;clean up stack

;When we get here we have counted all the blocks that are marked as free.

calc_done
		lda	math_temp		;number of blocks free

;Now lets update the VCR to indicate that we know the number of free blocks

save_and_exit
		ldy	#msdos_vcr.free_blocks
		sta	[msdos_vcr_ptr],y	;total free count

		clc
		rts

		EndP

		Eject
;==========================================================================
;count_blks_used: counts the number of blocks used by a file's FAT chain
;
;Input:         A = first cluster number of chain
;
;output:        A = low word-blocks used by file
;               X = high word-blocks used by file
;

count_blks_used	Proc	Export
		with	my_dp

		tax				;start cluster = 0?
		bne	@real_file		;no, it's a real file
		ldy	#msdos_vcr.data_start	;else it's root directory
		lda	[msdos_vcr_ptr],y	;return size of root directory
		sec
		ldy	#msdos_vcr.root_dir_block
		sbc	[msdos_vcr_ptr],y
		rts				;X is already 0

@real_file
		stz	math_temp+2		;this is our block accumulator
loop
		inc	math_temp+2		;include first cluster
		jsr	get_fat_entry		;get the next FAT entry
		bcc	loop			;loop through entire chain
		ldy	#msdos_vcr.cluster_size
		lda	[msdos_vcr_ptr],y	;get the # of blocks per cluster
		and	#$00FF			;only a byte-sized parameter
		pha				;space for result
		pha
		pha				;put multiplier on stack
		pei	math_temp+2		;put multiplicand on stack
		ldx	#$090B			;IntMath Multiply call
		jsl	$E10000
		pla				;retrieve results
		plx
		rts				;back to caller
		EndP

		Eject
;======================================================================
;free_vcr:      This routine will free all memory associated with a
;               volume control record.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               my_vcr_ptr              (Points to main VCR)
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Uses:          All registers
;               release_seg             (system routine to release a vcr)
; 
;======================================================================
		longa	on
		longi	on

free_vcr	PROC	Export
		with	my_dp

		lda	[my_vcr_ptr]		;get the volume ID
		jsl	release_vcr		;and call the systems nuke vcr routine
		rts
		ENDP

		Eject
;======================================================================
;Remove_fcr:    This routine will remove a FCR
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               my_fcr_ptr              (must be setup)
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Uses:          All registers
;
;======================================================================
		longa	on
		longi	on

remove_fcr	PROC	Export
		with	my_dp

		ldy	#msdos_vcr.dirty_file_cnt ;check if bitmap needs to be flushed
		lda	[msdos_vcr_ptr],y
		dec	a
		bne	@did_flush		;we do not need to flush the bitmap
	if NOT read_only_fst then
		jsr	force_bitmap		;force a dirty block to disk
		bcs	@error			;we have to be able to flush
	endif
@did_flush
		ldy	#vcr.open_cnt		;subtract one from the open count
		lda	[my_vcr_ptr],y
		dec	a
		bmi	die_die_die		;the system is very sick
		sta	[my_vcr_ptr],y		;Update the open count in the VCR

		lda	[my_fcr_ptr]		;reference number to remove
		jsl	release_fcr		;nuke the puppy
		clc				;we are very happy now
@error
		rts

die_die_die
		lda	#'SK'
		jml	sys_death

		ENDP

		Eject
;======================================================================
;activate_vcr:  This routine will mark the vcr as being logged in
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               my_vcr_ptr              (Points to main VCR)
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;                                       (the VCR is logged in)
;
;Uses:          All registers
;               my_vcr_ptr
; 
		longa	on
		longi	on

activate_vcr	PROC
		with	my_dp

		ldy	#vcr.status
		lda	[my_vcr_ptr],y
		and	#vcr_swapped_in
		sta	[my_vcr_ptr],y
		rts
		ENDP

		Eject
;======================================================================
;ID.Disk:       This file contains the code that will id the media
;               to determine if the media is in MSDos format.
;               If the disk is an MSDos disk and there is no VCR then
;               a new VCR will be generated for that disk.  If there is
;               a VCR then it is marked active.
;
;Input:         A = device number
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;               drvr_buf_ptr            ;points to storage/vol name field
;                                       ;with storage type removed
;Uses:          All registers
;               Device Dispatcher  (subroutine)
;               General I/O Buffer (1K buffer, I read 512 bytes)
;
;Diagram of pointers and memory segments
;
; (I/O Buffer)
;  ___________
; |           | <--- pointed to by 'drvr_buf_ptr'
; |           | <---               'drvr_buf_ptr' later points to volume name
; |___________|    |
;                  |____ 'temp3_ptr' points to data AFTER volume name area
;
;
;  (vcr)
;  ___________ <-- pointed to by 'my_vcr_ptr'
; |           |         ___________________
; | vol name -|------> |___________________| <-- pointed to by 'Temp2_Ptr'
; |           |
; |           | 
; |           |
; |           | <-- pointed to by 'msdos_vcr_ptr'
; |___________|
;
		longa	on
		longi	on

id_disk		PROC	Export
		with	my_dp

		sta	drvr_dev_num		;driver number
		lda	#drvr_read
		sta	drvr_call_num
		stz	drvr_blk_num		;read in block 0
		stz	drvr_blk_num+2
		jsr	standard_req
		jsr	set_default_buf		;setup pointer to general I/O buffer
try_again	jsr	device_call		;make a system call to drive
		bcc	id_no_error
		and	#$00FF			;clear the dispatcher error code
		beq	id_no_error		;Dispatcher returning disk switched
		cmp	#drvr_disk_sw		;was the disk switched?
		beq	try_again
		sec				;swapped out by device call routine
error_out
		rts				;if the disk was switched 

;======================================================================
;ID method used to determine disk is MSDOS format:
;
;(1)            read in block 0 (the boot sector)
;(2)            the first byte (offset $00) must be $E9 or $EB
;(3)            byte at offset $1FE must be $55
;(4)            byte at offset $1FF must be $AA
;(5)		bytes per sector must be 512
;
;======================================================================

id_no_error	lda	[drvr_buf_ptr]		;id byte
		and	#$00ff
		cmp	#$EB			;8088 short jump instruction?
		beq	@1			;yup
		cmp	#$E9			;8088 long jump instruction?
		bne	bad_format		;nope, can't be MSDOS
@1
		ldy	#$1FE			;offset to last two bytes of the block
		lda	[drvr_buf_ptr],y
		cmp	#$AA55			;signature bytes?
		bne	bad_format		;no...
		ldy	#$000B			;check the bytes per sector value
		lda	[drvr_buf_ptr],y
		cmp	#blk_size		;is it normal?
		beq	build_vcr		;yes, go build the VCR

bad_format
		lda	#unknown_vol		;I don't know what this disk is
		sec
		rts

		Eject
;======================================================================
;Build_VCR:     This routine will add a new VCR if one is currently not
;               allocated, if the VCR is allocated then it will be
;               marked as active.
; 
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               drvr_buf_ptr            (points to boot sector) 
;               cp_device_flag = 1 if doing a ChangePath call and source is device #
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;
;Uses:          All registers
;               find_vcr                (system subroutine)
;               alloc_vcr               (system subroutine) 
;               General I/O Buffer      (1K buffer, I read 512 bytes)
; 
		longa	on
		longi	on

build_vcr

;Now that I know i have an MSDos disk, I have to read the root directory
;and scan for a volume label entry.

; first, copy the bios parameter block out of the block buffer
		with	bios_parm_block
		
		lda	drvr_buf_ptr		;bump pointer to beginning of bpb
		clc
		adc	#$000b
		sta	drvr_buf_ptr
		ldy	#bpb_size-1
		sep	#$20			;move a byte at a time
		longa	off
@loop
		lda	[drvr_buf_ptr],y
		sta	bios_parm_block,y
		dey
		bpl	@loop
		rep	#$20
		longa	on

; calculate first block of root directory
		lda	FAT_count		;retrieve # of FATs
		and	#$00FF			;(only a 1 byte field)
		tax				;into X as multiplier
		lda	#0			;clear accumulator
		clc
@multiply
		adc	FAT_size		;multiply # of FATs by # of sectors per FAT
		dex
		bne	@multiply
		adc	reserved_sectors	;include # of reserved sectors
		sta	root_dir_block		;store as beginning block of root directory
		sta	drvr_blk_num		;and block # to read

		lda	root_dir_count		;retrieve # of entries in root directory
		lsr	a			;calculate # of directory blocks
		lsr	a
		lsr	a
		lsr	a
		sta	root_dir_size

;Now we go into a loop, reading root directory blocks and examining the
;directory entries until we either (a) find a volume label entry or
;(b) hit the end of the directory.

@read_next_block
		lda	gbuf_addr		;use second half of global buffer
		sta	drvr_buf_ptr
		jsr	device_call		;read the directory block
		bcs	error_out
		ldx	#blk_size/32		;init counter
		ldy	#dir_entry.attributes	;initialize index
@entry_loop
		lda	[drvr_buf_ptr]		;read the first byte of the entry
		and	#$00FF
		beq	@no_label_found		;end of directory found
		cmp	#$00E5			;inactive entry?
		beq	@next_entry		;yes, skip it
		lda	[drvr_buf_ptr],y	;read the attribute byte
		bit	#vol_label		;is this a volume label?
		beq	@next_entry		;no...
		brl	@found_label		;yes!
@next_entry
		clc				;bump pointer to next entry
		lda	drvr_buf_ptr
		adc	#32			;each entry is 32 bytes
		sta	drvr_buf_ptr
		dex				;decrement entries per block counter
		bne	@entry_loop		;loop until all entries in this block are done

		inc	drvr_blk_num		;try the next block
		lda	drvr_blk_num		;but only if we still have directory left
		sec
		sbc	root_dir_block		;subtract beginning block number
		cmp	root_dir_size		;done all directory blocks yet?
		blt	@read_next_block	;no, go read another

; At this point, we didn't find a volume label, so we have to make one up
@no_label_found
		stz	parent_blk
		stz	entry_offset

		lda	FAT_size		;get size of each FAT
		and	#$00FF
		xba				;turn into a byte count
		asl	a
		sta	drvr_req_cnt		;we're (hopefully) going to read this many bytes
		stz	drvr_req_cnt+2
		jsl	alloc_seg		;get some memory
		bcs	@no_memory		;none available?
		phy				;save VP for disposal later
		phx
		jsl	deref			;turn into a real pointer
		stx	FAT_ptr
		sty	FAT_ptr+2
		stx	drvr_buf_ptr		;now read the FAT into memory
		sty	drvr_buf_ptr+2
		lda	reserved_sectors	;FAT starts after the reserved sectors
		sta	drvr_blk_num
		stz	drvr_blk_num+2
		jsr	device_call		;read the FAT
		bcc	@fat_read		;we got it
		plx				;clean up stack
		plx
@no_memory
		rts				;and return error to caller
@fat_read
		lda	FAT_size		;get # of blocks in FAT
		and	#$00FF
		xba				;turn into a byte count
		asl	a
		tay				;into index
		lda	#0			;init checksum
		clc
@inner_loop
		dey
		dey
		beq	@chksum_done
		adc	[FAT_ptr],y		;checksum the FAT
		bra	@inner_loop
@chksum_done
		adc	[FAT_ptr]		;add in final word
		pha				;put on stack for Int2Dec call
		pea	default_name+6>>16	;put address of destination
		pea	default_name+6
		pea	5			;string length
		pea	0			;the number is unsigned
		ldx	#$260B			;Int2Dec
		jsl	$E10000
		plx				;retrieve VP
		ply
		jsl	release_seg		;we're done with the memory now

		lda	#default_name		;point to the default name
		sta	drvr_buf_ptr
		lda	#^default_name
		sta	drvr_buf_ptr+2
		bra	@copy_name
		
; When we get here, we've found a volume label that we can use as a volume name

@found_label
		lda	drvr_blk_num		;save the block number of the volume label
		sta	parent_blk
		lda	drvr_buf_ptr		;calculate offset to entry
		sec
		sbc	gbuf_addr
		sta	entry_offset
@copy_name
		sep	#$20			;copy label into gstring buffer
		longa	off
		ldy	#dir_entry.name+10	;volume labels are up to 11 characters
@loop2
		lda	[drvr_buf_ptr],y
		sta	gstring+2,y		;leave room for leading length word
		dey
		bpl	@loop2
		
		ldy	#dir_entry.attributes	;scan for last non-space character
		lda	#' '
@loop3
		dey
		cmp	gstring+2,y
		beq	@loop3
		iny				;correct character count
		sty	gstring			;store the length
		rep	#$20			;back to 16-bit accumulator
		longa	on

;
; If bit 15 of cp_flag is set, assume the source disk is a duplicate volume
; and fall into the code that handles duplicate volumes with open files.
; Since cp_device_flag is already set, it will cause a fake VCR to be allocated.
;					5-Dec-91 MSD
;
		bit	cp_flags	; should we assume the disk is a duplicate?
		bpl	@not_dup	; no, so do the usual
		brl	is_open		; yes, pretend duplicate volume with open files
@not_dup

; End of 5-Dec-91 MSD change.

;Call system routine to see if it can find a vcr with the same volume
;name.  If the accum contains a zero then the routine will
;use x and y as a pointer to a volume name.  If the accum contains
;a non zero value then the routine will try to find a vcr with
;the same volume id.

		ldx	#gstring		;pointer to the volume name
		ldy	#^gstring
		lda	#0000			;0000=search for vcr by name
		jsl	find_vcr
		bcs	no_vcr			;this name is not in any VCR

		jsl	deref			;convert virtual to real
		stx	my_vcr_ptr
		sty	my_vcr_ptr+2		;setup pointer to VCR

		ldy	#vcr.fst_id
		lda	[my_vcr_ptr],y
		cmp	#fst_id			;is this my vcr
		bne	check_active		;if not, can we kick it out?

		jsr	setup_my_vcr		;make a pointer to my vcr stuff

		bit	drvr_fst_num		;are we looking at name only?
		bmi	name_only		;yes.

		sep	#$20			;byte-sized comparison
		ldy	#bpb_size-1		;else compare the bios parms
compare_loop	lda	bios_parm_block,y
		cmp	[msdos_vcr_ptr],y
		bne	check_active2
		dey
		bpl	compare_loop
		rep	#$20			;back to 16-bit accumulator

name_only
		ldy	#vcr.dev		;update the last known device
		lda	drvr_dev_num
		sta	[my_vcr_ptr],y

		jsr	activate_vcr		;mark the vcr as swapped in
		clc
		rts

sorry_dup
		lda	#dup_volume		;duplicate volume online
		sec
error_exit
		rts

;If we get here it means that the volume name already exist in vcr.
;So I need to see if there are any open files on the volume.  If there
;are no open files then I can kick the current vcr out of memory and
;build a new one.  If there are open files then I will return a
;duplicate volume error.  Note:  I check to make sure that the volume
;header has not changed.  This protects me from marking a volume as
;being swapped in and writing to it blindly if it has the same name.

; Note - If we get a duplicate volume error and cp_device_flag = 1 then ignore
;        the error since we are doing a ChangePath call with a device # as the source.
;        1/22/91 CAE

check_active2
		rep	#$20			;back to 16-bit accumulator
check_active
		ldy	#vcr.open_cnt
		lda	[my_vcr_ptr],y		;any open files?
		beq	not_open		;no
is_open						;Added 5-Dec-91 MSD
		lda	cp_device_flag		;are we doing a special ChangePath call?
		beq	sorry_dup		;no - so report a duplicate volume error
		ora	#$8000			;yes - so indicate we got a dup vol error
		sta	cp_device_flag
		lda	<drvr_dev_num		; 5-Feb-92 MSD: Force other VCR's for this
		jsl	swap_out		; 5-Feb-92 MSD: to be swapped out.
		bra	no_vcr			;and continue

not_open	jsr	free_vcr		;free vcr pointed to by 'my_vcr_ptr'

;below begins the grunt work.  we now have to allocate a new vcr and
;setup all are fields. 

; Note - If cp_device_flag = $8001 then we need to use a fake name for the VCR 
;        since we got a duplicate volume error.  1/22/91 CAE

no_vcr		lda	FAT_size		;calculate # of bytes in FAT
		and	#$00FF
		xba
		asl	a
		sta	FAT_byte_count

		ldx	#gstring		;pointer to the name
		ldy	#^gstring
		lda	cp_device_flag		;do we need to use fake name for vcr?
		bpl	@cont			;no
		ldx	#fake_name_str		;yes - so point to fake name string
		ldy	#^fake_name_str
@cont		lda	#vcr.FAT_start		;calculate number of bytes to allocate
		clc
		adc	FAT_byte_count		;add enough room for a copy of the FAT
		jsl	alloc_vcr
		bcs	error_exit
alloc_ok					;now build my data structures
		jsl	deref			;convert virtual to real address
		stx	my_vcr_ptr
		sty	my_vcr_ptr+2
		jsr	setup_my_vcr		;setup pointer to my data

		ldy	#vcr.fst_id		;indicate that this vcr is owned by me.
		lda	#fst_id
		sta	[my_vcr_ptr],y

		ldy	#vcr.dev		;save the device number
		lda	drvr_dev_num
		sta	[my_vcr_ptr],y

		ldy	#vcr.status
		lda	#0000			;zero the status word
		sta	[my_vcr_ptr],y

		ldy	#bpb_size-1		;copy the bios parm block to VCR
		sep	#$20
		longa	off
entry_loop	lda	bios_parm_block,y
		sta	[msdos_vcr_ptr],y
		dey
		bpl	entry_loop		;move the entire directory entry
		rep	#$20
		longa	on

;warning: if the 'BPL' instruction above changes, then the accum will
;         have to be loaded with $FFFF directly.

		tya				;now init free blocks to $FFFF.  This
		ldy	#msdos_vcr.free_blocks	;indicates that free blks is unknown
		sta	[msdos_vcr_ptr],y

; store the root directory starting block
		ldy	#msdos_vcr.root_dir_block
		lda	root_dir_block
		sta	[msdos_vcr_ptr],y

; now we have to determine whether the FAT uses 12-bit or 16-bit cluster numbers

		ldy	#msdos_vcr.cluster_size
		lda	[msdos_vcr_ptr],y	;get sectors per cluster
		and	#$00FF
		tax				;into X
		ldy	#msdos_vcr.total_sectors
		lda	[msdos_vcr_ptr],y	;get total sectors on volume
@loop
		pha				;save result
		txa				;divide by 2
		lsr	a
		tax				;back into x
		pla				;retrieve result
		bcs	@done			;and done with cluster count in Acc
		lsr	a			;divide by 2
		bra	@loop
@done
		ldx	#0			;assume 12-bit cluster numbers
		cmp	#4088			;>4087 clusters?
		bcc	@12_bit			;assumed correctly
		inx				;else flag 16-bit cluster numbers
@12_bit
		ldy	#msdos_vcr.FAT_type
		txa
		sta	[msdos_vcr_ptr],y

; now calculate the first block of the data area

		ldy	#msdos_vcr.root_dir_count
		lda	[msdos_vcr_ptr],y	;get # of entries in root directory
		lsr	a			;calculate # of root directory blocks
		lsr	a
		lsr	a
		lsr	a
		clc
		ldy	#msdos_vcr.root_dir_block
		adc	[msdos_vcr_ptr],y	;calculate block # of first data block
		ldy	#msdos_vcr.data_start
		sta	[msdos_vcr_ptr],y

; now read the FAT into the VCR

		lda	my_vcr_ptr		;calculate address within VCR
		clc
		adc	#vcr.FAT_start
		sta	drvr_buf_ptr
		lda	my_vcr_ptr+2
		adc	#0
		sta	drvr_buf_ptr+2

		lda	FAT_byte_count
		sta	drvr_req_cnt		;that's how many bytes we'll read
		stz	drvr_req_cnt+2
		
		lda	reserved_sectors	;FAT starts after the reserved sectors
		sta	drvr_blk_num
		stz	drvr_blk_num+2

		jsr	device_call		;read the FAT
		
		rts				;just return with any error

		ENDP

		Eject
;======================================================================
;Find_volume:   This routine will locate a volume using the ID routine.
;
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               volume_name             (contains the volume name to find)
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;
;Uses:          All registers
;               find_vcr                (system subroutine)
;               id_disk                 (subroutine)
;               General I/O Buffer      (1K buffer, I read 512 bytes)
;               volume_name
;               drvr_buf_ptr 

		longa	on
		longi	on

find_volume	PROC
		with	my_dp

		lda	#$0001			;start with device number 1
		sta	search_device
		stz	skip_dev

		jsr	chk_vol_syntax

		ldx	#volume_name		;try to find the volume in a vcr
		ldy	#^volume_name
		lda	#$0000
		jsl	find_vcr
		bcs	check_drive

;check to see if this vcr is mine

		jsl	deref			;convert to real pointer
		stx	my_vcr_ptr
		sty	my_vcr_ptr+2

		ldy	#vcr.fst_id
		lda	[my_vcr_ptr],y
		cmp	#fst_id
		beq	get_device
		lda	#unknown_vol		;tell caller its another fsts
		sec
		rts				;return

;setup the device number to check first

get_device
		ldy	#vcr.dev
		lda	[my_vcr_ptr],y
		sta	search_device
		sta	skip_dev		;indicate we are starting in the middle 
		bra	do_id

check_drive
		lda	search_device
		cmp	skip_dev		;do I need to skip this one?
		beq	next_dev
do_id		jsr	id_disk
		bcc	compare_vol

		cmp	#invalid_dev_num	;have we looked at all the devices?
		beq	vol_not_avail
		cmp	#dup_volume		;is the volume a duplicate?
		beq	abort_search
		bra	check_search		;go ahead and try another drive.

vol_not_avail
		lda	#vol_not_found

abort_search
		sec
		rts				;sorry not today

next_dev
		inc	search_device
		bra	check_drive

compare_vol
		lda	gstring			;get the length
		cmp	volume_name		;sixteen bit name length
		bne	check_search		;Cannot be the same

		tay				;save the length
		php
		longa	off
		sep	#$20			;short accum for string compare

comp_loop	lda	gstring+1,y
		eor	volume_name+1,y		;case insensitive comparison
		beq	@equal			;same character!
		cmp	#$20			;difference only in case?
		bne	not_same		;nope!
		lda	gstring+1,y		;get character again
		cmp	#'A'			;make sure it's alphabetic
		bcc	not_same
		cmp	#'Z'+1
		bcc	@equal
		cmp	#'a'			;lower case?
		bcc	not_same
		cmp	#'z'+1
		bcs	not_same
@equal
		dey
		bne	comp_loop
		longa	on			;keep the assembler in line
		plp
		clc
		rts				;this is it.

not_same
		plp
check_search
		lda	skip_dev
		cmp	search_device		;are we looking at a default drive?
		bne	next_dev		;no we are not.
		stz	search_device		;start the search from the beginning
		bra	next_dev


chk_vol_syntax					;check the syntax of the volume name
		longa	off
		longi	off
		sep	#$30
		ldy	volume_name		;get the length word
		cpy	#12			;no more than 11 characters allowed
		bcs	syntax_death
vol_syntax_loop
		lda	volume_name+1,y

	if 0 then	;original code, which will not allow volume label characters
			;that the MSDOS documentation states are illegal, but which
			;everybody uses anyways (and the OS doesn't really seem to care).

		bmi	good_syntax		;quick validity check
		cmp	#'A'			;quick check for normal characters
		bcc	@must_check
		cmp	#'Z'+1
		bcc	good_syntax
		cmp	#'a'
		bcc	@must_check
		cmp	#'z'+1
		bcc	good_syntax
@must_check
		ldx	#illegal_count-1	;scan table of illegal characters
@table_check
		cmp	illegal_chars,x
		beq	syntax_death
		dex
		bpl	@table_check

	else
		cmp	#delimiter		;pathname delimiter? (':')
		beq	syntax_death		;yup, can't allow it in a volume name!
	endif

good_syntax
		dey
		bne	vol_syntax_loop
		rep	#$31			;clears carry too!
		rts

syntax_death
		longa	on
		longi	on
		rep	#$30
		lda	#bad_path_syntax
		brl	main_exit		;carry is already set from equal comparison

	if 0 then	;original illegal character table

;table of characters not allowed in volume name

illegal_chars
		dc.b	'*','?','/','\','|','.'
		dc.b	',',';',':','+','='
		dc.b	'<','>','[',']',$09
illegal_count	equ	*-illegal_chars

	endif

;local data for find volume

search_device	DC.W	00
skip_dev	DC.W	00

		ENDP

		Eject
;======================================================================
;Find_File:     This file contains the code that will locate a file on
;               disk.
;
;revisions:
;               apr 09 1987             ;added forward/backward link verify 
;               apr 09 1987             ;changed routine to read a block
;                                       ;at a time instead of 1K
;               apr 10 1987             ;added additional check for path
;                                       ;searching.
;               apr 27 1987             ;changed code to handle 'C' strings
;               may 02 1987             ;added memory based tree routines
;                                       ;so all accessed directories will
;                                       ;be added into a b-tree. 
;               sep 14 1987             ;added support for searching for
;                                       ;blank entries in the directory
;
;Input:         A = device number
;               X = low word: pointer to name
;               Y = high word: pointer to name
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               drvr_vol_id
;               my_vcr_ptr
;               msdos_vcr_ptr
;               search_flag             ;IF bit 14 = 1 then search for blank
;                                       ;blank entry in directory, as well
;                                       ;as checking for duplicate file error.
;
;Format of pathname:
;               1) volume name is NOT part of the pathname
;               2) pathname begins with a length byte (NOT!!!)
;               3) each part of the pathname is seperated with a colon char.
;               4) pathname MUST end with a NULL char.
; 
;Output:        A = error code or offset to entry within the I/O buffer
;               X = pointer to name (low word)
;               Y = pointer to name (high word)
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;               dir_start_blk           ;starting block of last dir searched
;               free_dir_blk            ;first block with a blank entry
;               free_dir_offset         ;offset to first free entry within blk
;               dir_last_blk            ;block number that contains found file.
;            or drvr_blk_num            ;or the last block of the directory.
;               path_searched           ;if + then entire path NOT searched
;                                       ;if - then the entire path was searched
;               slug_block              ;block number of the entry
;               slug_offset             ;offset to the entry.
;
;Uses:          All registers
;               Device Dispatcher  (subroutine)
;               General I/O Buffer (1K buffer, I read 1K bytes)
;               temp_ptr
;               gbuf_ptr 
;               path_level
;
		longa	on
		longi	on

find_file	PROC	Export
		with	my_dp

		sta	drvr_dev_num		;device number to search on
		stx	temp_ptr		;pointer to the name
		sty	temp_ptr+2

		lda	gbuf_addr
		sta	gbuf_ptr
		sta	drvr_buf_ptr
		lda	gbuf_addr+2
		sta	gbuf_ptr+2
		sta	drvr_buf_ptr+2

		stz	curr_mod_date		;zero the latest mod date field
		stz	curr_mod_date+2

		ldy	#msdos_vcr.root_dir_count
		lda	[msdos_vcr_ptr],y	;get # of root directory entries
		lsr	a			;divide by # of entries per block (16)
		lsr	a			;to determine # of blocks used to hold directory
		lsr	a
		lsr	a
		sta	sector_count		;this is the maximum number of sectors to read
		stz	cluster_num		;cluster 0 signifies root directory

		ldy	#msdos_vcr.root_dir_block
		lda	[msdos_vcr_ptr],y	;default starting block
		sta	dir_start_blk		;starting block for current directory
		sta	dir_last_blk		;last block read by find file
		sta	drvr_blk_num
		stz	drvr_blk_num+2
		jsr	standard_req

		lda	#drvr_read		;setup for reading
		sta	drvr_call_num

		stz	chars_checked
		stz	path_searched		;indicates if entire path searched
		jsr	setup_name		;setup first part to look for
		stz	entries_blk_num		;block that contains the entry
outter_loop
		stz	last_blk		;used to verify directory structure
		stz	free_dir_blk		;indicate no free dir entry
		stz	free_dir_offset
		stz	searching_free		;we are looking for free entries

search_loop
		jsr	read_with_cache		;issue the read command
		bcs	error_leave		;some error has occured

		ldy	#0			;start at beginning of block
		stz	entries_checked		;initialize counter
		jsr	check_block		;see if name is in the block
		bcc	found

		bit	searching_free		;are we looking for a free entry?
		bpl	check_active		;no we are looking for the file.
		lda	free_dir_blk		;Have we found a free entry yet?
		beq	load_next		;No, so load the next block
		bit	path_searched		;are we looking for the last name?
		bpl	load_next		;No.
		bra	no_more_blks		;yes, so return data

check_active
		lda	entries_checked		;all entries in block examined?
		cmp	#entries_per_block
		bne	not_found		;no, must have reached end of directory
load_next
		dec	sector_count		;decrement count
		beq	@next_cluster		;done all blocks in this cluster
		inc	drvr_blk_num		;read this block next
		inc	dir_last_blk		;save last block read
		bra	search_loop

@next_cluster
		lda	cluster_num		;get the current cluster number
		beq	no_more_blks		;if 0, we reached the end of the root directory
		jsr	get_FAT_entry		;find the next cluster to process
		bcs	no_more_blks		;we reached the end of the chain
		sta	cluster_num		;remember for later
		jsr	cluster2block		;convert to block number
		sta	drvr_blk_num		;read this block next
		sta	dir_last_blk
		ldy	#msdos_vcr.cluster_size
		lda	[msdos_vcr_ptr],y	;get # of sectors per cluster
		and	#$00FF			;only a byte-wide parameter
		sta	sector_count
		bra	search_loop		;keep scanning

not_found
		bit	search_flag		;are we suppose to find a free entry?
		bvc	no_more_blks		;no we are not
		lda	free_dir_blk		;do we already have a free entry?
		bne	no_more_blks		;yes we do!
		dec	searching_free
		bra	load_next		;continue to look for a blank entry.

no_more_blks
		lda	path_searched		;was the entire path searched?
		bne	file_err		;yes the entire path was searched
		lda	#path_not_found		;a subdirectory was not found
		sec
		rts
file_err
		lda	#file_not_found		;you guessed it, no file today
		sec				;sorry no file by that name
error_leave	rts

;If we get here then we have found the name we were looking for.
;Now we need to see if there is anymore pathname to process.  If there
;is nothing left to process then we exit all happy.  If there is more
;to process then we make sure that the entry we just found is a
;subdirectory.  If it is not then we exit with file not found. 

found
		lda	drvr_blk_num		;block number that contains entry
		sta	entries_blk_num		;block number that contains the entry
		sta	dir_last_blk		;last block read
		sty	entries_offset		;offset to the entry

		tyx
		ldy	chars_checked
		dey
		lda	[temp_ptr],y		;see if we are done
		and	#$00FF
		beq	find_success		;yes we have succeeded

		txa
		clc
		adc	#dir_entry.attributes	;offset to attributes field
		tay
		lda	[gbuf_ptr],y		;see if type is directory
		and	#subdirectory
		beq	not_found		;nope, can not go any further

		lda	drvr_blk_num		;save the entries block number for
		sta	slug_block		;slug ripple routine.
		stx	slug_offset		;offset to file entry.

		txa
		clc
		adc	#dir_entry.start_cluster ;make index to starting cluster number field
		tay
		lda	[gbuf_ptr],y
;
; 09/01/92 - GAB
; Save starting cluster number for the subdirectory
;
		sta	cluster_num		;remember for later
; 09/01/92 - End
		jsr	cluster2block		;convert to block number
		sta	drvr_blk_num
		sta	dir_start_blk		;starting block for next directory
		sta	dir_last_blk		;save last block read
;
; 09/01/92 - GAB
; While searching the subdirectory, we should really reset the sector_count to the number of blocks
; that are contained in a cluster, instead of leaving it set to the number of blocks used for the
; root directory.
;
		ldy	#msdos_vcr.cluster_size
		lda	[msdos_vcr_ptr],y	;get # of sectors per cluster
		and	#$00FF			;only a byte-wide parameter
		sta	sector_count
; 09/01/92 - End
		jsr	setup_name		;setup next partial to find

		brl	outter_loop

;Below is a happy place to be.  This means that we have found the
;file that we were commissioned to find.  So we will setup a pointer
;to the name and return to the caller.  Isnt' that special. 

find_success	txa				;we have located the name
		pha				;save the offset 
		clc
		adc	gbuf_ptr		;adjust buffer pointer
		tax
		lda	#0000
		adc	gbuf_ptr+2
		tay

		pla				;offset (0 to 512)
		clc
		rts				;X,Y contains a pointer to the name

sector_count	dc.w	0			;# of sectors in current cluster
cluster_num	dc.w	0			;current cluster number

;==========================================================================
;The following routine will look at all the entries within a directory
;block.  The entry is skipped if it is an inactive entry.  If an entry is
;found that is active then it is checked against the name we are looking for.
;If the name is found then we exit indicating that we have found the file.  We
;continue to look for the name until we have looked at all the entries
;or the file is found. 

check_block
		lda	entries_checked
		cmp	#entries_per_block
		beq	check_done
		inc	entries_checked

		lda	[gbuf_ptr],y		;get first two characters of entry
		cmp	#'..'			;dummy second entry of subdirectory?
		beq	next_entry		;yes, skip it
		and	#$00FF			;clear to just first character
		beq	check_done		;if 0, we reached the end of the directory
		cmp	#'.'			;dummy first entry?
		beq	next_entry		;yes, skip it

		cmp	#$E5			;inactive entry?
		beq	chk_need_free		;the entry is not active.
		jsr	save_latest_mod		;save the lastest mod date
		jsr	check_name
		bcs	next_entry
;
; 09/01/92 - GAB
; Make sure the matching entry does not refer to a volume label
;
		phy				;save entry offset
		tya				;look at the attributes
		clc
		adc	#dir_entry.attributes
		tay
		lda	[gbuf_ptr],y
		ply				;restore Y
		and	#vol_label		;is this entry a volume label?
		bne	next_entry		;yes, so just ignore it
		clc
; 09/01/92 - End
		rts				;we have found it

chk_need_free
		lda	free_dir_blk		;block that contains a free entry
		bne	next_entry
		lda	drvr_blk_num
		sta	free_dir_blk		;save directory block number
		sty	free_dir_offset		;save offset to free entry

next_entry
		tya
		clc
		adc	#entry_length		;adjust pointer to next entry
		tay
		bra	check_block

check_done	sec				;sorry entry not found
		rts

;Save_lastest_mod will save the lastest mod date that we find.  The reason
;we do this is to allow the mod date to be returned for the volume header.

save_latest_mod
		phy				;save directory entry index
		phx
		pha

		tya
		clc
		adc	#dir_entry.date
		tay
		lda	[gbuf_ptr],y
		tax
		cmp	curr_mod_date		;see if the date is greater
		bcc	@not_greater
		beq	@check_time
		dey
		dey
		lda	[gbuf_ptr],y		;get the minutes etc.
		sta	curr_mod_date+2
		stx	curr_mod_date		;save the new latest date
		bra	@not_greater		;just exit
@check_time
		dey
		dey
		lda	[gbuf_ptr],y		;get the minutes etc.
		cmp	curr_mod_date+2
		bcc	@not_greater
		sta	curr_mod_date+2
		stx	curr_mod_date		;save the new latest date

@not_greater
		pla
		plx
		ply
		rts

;==========================================================================
;Check name will examine the name to see if it is the one that
;we are looking for.  If it is not then we return with carry set
;otherwise we return with carry clear. 

check_name
		phy				;save y during search
		ldx	#0000
		longa	off
		sep	#$20
name_loop
		lda	[gbuf_ptr],y		;get a character
		cmp	#$05			;special case for $E5 character
		bne	@1
		cpx	#0			;at beginning of name?
		bne	@1			;no, just a normal character
		lda	#$E5			;$E5 normally used to mark deleted entry
@1
		eor	search_name,x		;case insensitive comparison
		and	#$DF
		bne	not_it
		inx
		iny
		cpx	#11			;done all 11 characters yet?
		bne	name_loop		;nope
		clc				;found it!
		dc.b	$b0			;BCS opcode (hides SEC instruction)
not_it
		sec

		rep	#$20
		longa	on
		ply
		rts

;==========================================================================
;The following routine when called, will isolate the next name to
;locate.  It does this by looking for the delimiter(delimiter = ':')
;The last delimiter is a null character.

		EXPORT	setup_name
setup_name
		phy
		ldy	chars_checked		;index into source name
		lda	[temp_ptr],y		;are we done yet
		and	#$00FF
		bne	more_names
		dec	path_searched		;the entire path has been searched
		ply
		sec				;indicate we are thru
		rts
more_names
		longa	off
		longi	on
		sep	#$20			;short accumulator please

		ldx	#$0000
looper
		lda	[temp_ptr],y
		beq	end_path		;end of name and end of string
		cmp	#delimiter
		beq	end_name		;we found a delimiter
		cmp	#'A'			;alphabetic?
		bcc	@not_alpha		;no...
		cmp	#'Z'+1
		bcc	@is_legal		;yes, must be a legal character
@not_alpha
		cmp	#'.'			;extension separator?
		bne	@not_extension		;no...
		lda	#' '			;else fill out to 8 characters with spaces
@space_fill
		cpx	#8
		bcs	do_extension		;then go do the 3-character extension
		sta	search_name,x
		inx
		bra	@space_fill

@not_extension
		phx				;save index
		ldx	#illegal_count-1	;get count of illegal characters
@char_check
		cmp	illegal_chars,x		;is it an illegal character?
		beq	bad_filename		;yes, return error
		dex
		bpl	@char_check		;check all illegals
		plx				;retrieve index
@is_legal
		cpx	#8			;have we got all 8 characters yet?
		bcs	@truncate		;yes, just silently truncate it
		sta	search_name,x		;finally, we can store the character
		inx				;bump index to next position
@truncate
		iny
		bra	looper			;go back for next character

bad_filename
		plx				;clean up stack
syntax_prob
		longa	on
		longi	on
		rep	#$20
		lda	#bad_path_syntax
		sec
		brl	main_exit		;return to Jim with the error

		longa	off
		longi	on

do_extension
		iny				;bump to next source character
		lda	[temp_ptr],y		;get a character
		beq	end_path		;end of name and end of string
		cmp	#delimiter
		beq	end_name		;we found a delimiter
		cmp	#'A'			;alphabetic?
		bcc	@not_alpha		;no...
		cmp	#'Z'+1
		bcc	@is_legal		;yes, must be a legal character
@not_alpha
		phx				;save index
		ldx	#illegal_count-1	;get count of illegal characters
@char_check
		cmp	illegal_chars,x		;is it an illegal character?
		beq	bad_filename		;yes, return error
		dex
		bpl	@char_check		;check all illegals
		plx				;retrieve index
@is_legal
		cpx	#11			;have we got all 3 characters yet?
		bcs	@truncate		;yes, just silently truncate it
		sta	search_name,x		;finally, we can store the character
		inx				;bump index to next position
@truncate
		bra	do_extension		;then go back for next character

end_path
		dec	path_searched+1		;the entire path has been searched
end_name
		iny
		sty	chars_checked
		lda	#' '			;fill out remainder with spaces
@space_fill
		cpx	#11			;do we have an entire name?
		bcs	@full_name		;yes
		sta	search_name,x
		inx
		bra	@space_fill

@full_name
		stx	search_length

		longa	on
		longi	on
		rep	#$30
		ply
		clc
		rts

; illegal filename characters.  MSDOS uses these as filename termination characters
; (See MSDOS Encylopedia, page 269)

illegal_chars
		dc.b	'.'			;in case this is seen within extension field
		dc.b	';'
		dc.b	','
		dc.b	'='
		dc.b	'+'
		dc.b	'/'
		dc.b	'"'
		dc.b	'['
		dc.b	']'
		dc.b	'|'
		dc.b	'<'
		dc.b	'>'
		dc.b	' '			;space character
		dc.b	$09			;tab character
illegal_count	equ	*-illegal_chars

		ENDP

		Eject
;======================================================================
;Issue Mount:calls the Mount_Message Routine with a pointer to the name
;            stored in Volume_name.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               volume_name             ;must be setup
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
; 
;Uses:          All registers
;               Mount_Message
;

issue_mount	PROC

		lda	volume_name
		xba
		sta	volume_name

		pea	volume_name>>16
		pea	volume_name+1		;push a pointer to the volume name
		lda	#$0001			;1 = manditory mount!
		jsl	mount_message
		tax				;get the result code
		lda	volume_name
		xba
		sta	volume_name
		txa				;restore result code 0 = ok 1 = cancel
		bne	cancel_mount

		clc				;user selected OK
		rts

cancel_mount
		sec				;return volume not found error to user
		lda	#vol_not_found
		rts
		ENDP

		Eject
;======================================================================
;Mount_volume:  This routine is called when we need to force the user
;               To give us our disk back.
;
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               my_vcr_ptr              (points to needed VCR)
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;               b = k
;
;
;Uses:          All registers
;               find_volume
;
		longa	on
		longi	on

mount_volume	PROC	Export
		with	my_dp
		Import	setup_vol_mesg

		jsr	save_the_world		;save alot of data.
		jsr	setup_vol_mesg		;move the VCR name to local buffer

try_again	jsr	find_volume		;go get the volume
		bcc	volume_online		;go and update everything
		jsr	issue_mount		;issue a mount request
		bcc	try_again		;user said volume is now online
		jsr	restore_world		;restore everything please
		rts

volume_online	lda	drvr_dev_num		;where the volume was found
		jsr	restore_world		;A is saved
		sta	drvr_dev_num

		ldy	#vcr.dev		;update with the new device number
		sta	[my_vcr_ptr],y
		ldy	#vcr.status		;indicate that the volume is online
		lda	[my_vcr_ptr],y
		and	#vcr_swapped_in
		sta	[my_vcr_ptr],y
		clc
		rts				;volume is back on-line

save_the_world	php
		phy
		phx
		pha

		lda	world_flag		;see if data already saved
		bne	to_sys_death		;debug
		inc	world_flag

		ldx	#$004A			;save the direct page data
save_direct	lda	drvr_dev_num,x
		sta	direct_page,x
		dex
		bpl	save_direct

		ldx	#$0052			;save my direct page
save_my_direct
		lda	fst_start,x
		sta	my_direct,x
		dex
		bpl	save_my_direct

		bra	save_rest_exit

restore_world	php
		phy
		phx
		pha

		ldx	#$004A			;save the direct page data
restore_direct	lda	direct_page,x
		sta	drvr_dev_num,x
		dex
		bpl	restore_direct

		ldx	#$0052			;save my direct page
restore_dp	lda	my_direct,x
		sta	fst_start,x
		dex
		bpl	restore_dp

		dec	world_flag

save_rest_exit	pla
		plx
		ply
		plp
		rts


to_sys_death	jsl	sys_death


		ENDP

		Eject
;======================================================================
;dev_with_mount This routine with make a device call and if an
;               error occurs (other then the I/O error) the mount
;               volume routine will be called.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               all parameters for the driver must be setup.
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
; 
;Uses:          All registers
;               Device Dispatcher  (subroutine)
;               device_call

dev_with_mount	PROC

		jsr	device_call
		bcs	check_err
		rts
check_err
		cmp	#drvr_disk_sw		;is this a disk switch error?
		beq	do_find			;go and find the volume please
		cmp	#drvr_off_line		;is the volume off-line?
		beq	do_find
		sec
		rts				;This is some real error from the user
do_find
		jsr	mount_volume
		bcc	dev_with_mount		;re-issue the original call please.
		rts				;return the error please

		ENDP

		Eject
;======================================================================
;read_with_mount:
;               This routine with make a device read call and if an
;               error occurs (other then the I/O error) the mount
;               volume routine will be called.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               all parameters for the driver must be setup.
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
; 
;Uses:          All registers
;               Device Dispatcher  (subroutine)
;               device_call

read_with_mount	PROC	Export

		lda	#drvr_read
		bra	do_call

		EXPORT	write_with_mount
write_with_mount
		lda	#drvr_write

do_call
		sta	drvr_call_num
		jsr	dev_with_mount
		rts
		ENDP

		Eject
;======================================================================
;setup_params   This routine is called at the beginning of each system
;               call.  It will setup parameters and verify certain fields
;               of the os call.  If a VCR is used and the media is swapped
;               out of the system then the system mount routine will be called
;
;Input:         A = undefined
;               X = two times the call number
;               Y = two times the class
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = class of call/2     (MUST be last instruction before RTS!!)
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               pcount                  (contains pcount for call. 0=class0)
;               my_pblk_ptr             (points past pcount to first param)
;               my_vcr_ptr              (if available)
;                       msdos_vcr_ptr
;               my_fcr_ptr              (if available)
;                       msdos_fcr_ptr
;
;Uses:          All registers
;               math_temp
;               pcount
;
;What the table looks like and what fields we verify.
;
;               1) Max PCount for the call
;               2) Max Class for the call
;               3) Pathnames used by call
;               4) volume control record used
;               5) file control record used.
;               6) io buffer used.
;               7) flush file to disk
;               8) damaged disk protect
;
;              |8|7|6|5|4|3|  2  |    1    |
;           ___|_|_|_|_|_|_|_____|_________|
;          | | | | | | | | | | | | | | | | |
;          |_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|
;          |               |               |
;         1 6             0 8             0 0
;
		longa	on
		longi	on

setup_params	PROC	Export
		with	my_dp

;First we load the flags from the start table and save them for later
;use.

		lda	gbuf_addr		;setup the general buffer pointer
		sta	gbuf_ptr
		lda	gbuf_addr+2
		sta	gbuf_ptr+2

		stz	drvr_vol_id		;zero the volume ID(for Mike).  Allow each call to set it up
		stz	search_flag		;indicate normal find file
		stz	msdos_vcr_ptr
		stz	msdos_vcr_ptr+2
		stz	my_vcr_ptr
		stz	my_vcr_ptr+2
		stz	msdos_fcr_ptr
		stz	msdos_fcr_ptr+2

		stz	case_bits		;indicate that the case is all upper.

		stz	slug_block		;indicate no slug_ripple
		stz	close_flag		;indicate that 'flush_file' will not
						;call slug_ripple
		stz	expand_record.expand_file
		stz	expand_record.expand_flag
		stz	chk_dirty_flag		;do not check the VCR to see if the file is dirty
		stz	dirty_flags
		stz	dirty_cnt_changed
		stz	write_occurred		;If non-zero a write occurred to the disk.

		stz	cp_device_flag		;indicate normal ChangePath     1/22/91 CAE
		stz	cp_flags		;assume not a duplicate volume	5-Dec-91 MSD
		stz	error_priority		;error priority is 0            3/05/91 CAE

		lda	start_tbl-2,x		;get the flags for the call
		sta	flags
		and	#$001F
		sta	max_pcount

;Go ahead and setup the default parameters.

		stz	pcount

;Now verify the max class of the call.
;
;To do this we divide class by two and compare to the calls max class

		tya
		lsr	a
		sta	class
		beq	class0			;this is a OLD style call

		lda	flags
		and	#$00E0			;clear other flags please
		asl	a
		asl	a
		asl	a
		xba
		cmp	class
		bcs	good_class
		lda	#invalid_class
		bra	error_out

good_class

;Now we need to verify the max pcount for the new class calls

		lda	[param_blk_ptr]
		cmp	max_pcount
		bcc	good_pcount

		lda	#invalid_pcount

;Carry has to be set before calling error_out!!

error_out
		brl	main_exit

good_pcount

;We get here if the pcount is good.  We also get here with a 'BCC'
;so if this changes we must add a CLC to the following 'ADD'

		sta	pcount

		lda	param_blk_ptr		;CARRY CLEAR on entry!!!!
		adc	#$0002
		sta	my_pblk_ptr
		lda	param_blk_ptr+2
		adc	#$0000
		sta	my_pblk_ptr+2
		bra	cont01

class0
		lda	param_blk_ptr
		sta	my_pblk_ptr
		lda	param_blk_ptr+2
		sta	my_pblk_ptr+2

cont01

		ldx	#fst_id			;setup FST number for our FST.
		stx	drvr_fst_num

		jsl	lock_mem		;make sure data blocks do not move


		lda	dev_num			;move the device number to driver
		sta	drvr_dev_num		;direct page area

;when we get here we know that both class and pcount are valid.
;now we need to check if a VCR or FCR is used by the call.

		lda	flags
		and	#vcr_used

		beq	check_fcr		;no VCR is used by the call

;setup my pointer to the VCR and deref VP to my local data.

		ldx	vcr_ptr
		ldy	vcr_ptr+2
		jsl	deref
		stx	my_vcr_ptr
		sty	my_vcr_ptr+2
		jsr	setup_my_vcr

		lda	flags			;do we need to check damage?
		and	#damage
		beq	vol_ok			;this must be a read only call.

		ldy	#msdos_vcr.vol_damaged	;is this volume damaged??
		lda	[msdos_vcr_ptr],y
		inc	a			;Have I already showed the error message
		bne	vol_ok			;the disk is not damaged
		sec
		lda	#invalid_access		;get the error code please
		brl	main_exit

vol_ok
		ldy	#vcr.status		;see if the volume is swapped out
		lda	[my_vcr_ptr],y
		and	#vcr_swapped
		beq	check_fcr		;the volume is online.

		lda	call_number		;see if this is a close call.
		and	#$DFFF			;get rid of the class please
		cmp	#$0014			;Compare class zero close call number
		bne	@do_mount		;we must do a mount message

	if NOT read_only_fst then
		ldy	#msdos_vcr.bitmap_dirty	;See if the Bitmap is dirty
		lda	[msdos_vcr_ptr],y
		bne	@do_mount		;we need the disk bad!!!
	endif
		ldy	#msdos_vcr.dirty_file_cnt ;see if there open files on disk that are dirty?
		lda	[msdos_vcr_ptr],y
		beq	check_fcr		;no open dirty files so skip mount.
@do_mount
		jsr	mount_volume		;force the user to put our disk online
check_fcr
		lda	flags
		and	#fcr_used
		beq	check_path		;no FCR is used by the call

;setup my pointer to the FCR and deref VP to my local data.

		ldx	fcr_ptr
		ldy	fcr_ptr+2
		jsl	deref
		stx	my_fcr_ptr
		sty	my_fcr_ptr+2

		jsr	setup_my_fcr		;build pointer to local data

		lda	flags			;do we need to flush the file?
		and	#flush_1st
		beq	check_path		;no flush needed

		ldy	#msdos_fcr.status	;see if the file is dirty
		lda	[msdos_fcr_ptr],y
		and	#file_dirty
		beq	check_path		;file is clean!

	if NOT read_only_fst then
		jsr	setup_io_ptrs
		jsr	flush_file		;force dirty blocks to disk
		tax
		lda	flags			;clear IO needed bit
		and	#clr_io_used
		sta	flags
		txa
		bcc	check_path
		brl	main_exit
	endif

;Moved the check_path code into a seperate routine and we now
;only check for bad spans after we have located the target vol
;and determined that it is indeed an MSDos volume.
;					10/10/91 JEV
check_path
;		lda	flags
;		and	#path_used
;		beq	check_io_buf	;no pathname is used

;See if there are any pathnames available

;		lda	path_flag
;		and	#path1_mask
;		beq	check_path2

;		lda	span1
;		beq	bad_span	;added 11/12/90 CAE
;		cmp	#12
;		bcc	check_path2

;bad_span	sec			;added 11/12/90 CAE
;backup		lda	#bad_path_syntax
;		brl	error_out

;check_path2

;We don't check span2 here if we are doing a change path call
;we need to do some preprocessing first so that error priority
;gets setup properly for the change path call.. added 8/21/91 JEV

;		lda	call_number	;see if this is a changepath call.
;		and	#$DFFF		;get rid of the class please
;		cmp	#$0004		;Compare with changepath call number
;		beq	check_io_buf	;just continue
		
;		lda	path_flag
;		and	#path2_mask
;		beq	check_io_buf

;		lda	span2
;		beq	bad_span	;added 11/12/90 CAE
;		cmp	#12
;		bcs	backup

check_io_buf
		lda	flags
		and	#io_used
		beq	end_buf_setup

;now we need to setup real pointers to the I/O buffer.  There is only
;one I/O buffer for a file.  However, the I/O buffer varies in it's size
;and structure.

		jsr	setup_io_ptrs

end_buf_setup
		lda	flags			;see if we need to check for file dirty
		and	#do_dirty
		beq	@exit
		sta	chk_dirty_flag		; 00 = do not check
		ldy	#msdos_fcr.status	;get the status out of the File Control Record
		lda	[msdos_fcr_ptr],y
		and	#file_dirty+data_dirty+index_dirty+master_dirty
		sta	dirty_flags		;save the flags
@exit
		lda	class
		rts

		ENDP

		Eject
;======================================================================
;Damaged_message: This routine will tell the user that the disk cannot
;               be written too.  The routine will also jmp to the
;               main exit routine.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
; 
;Uses:          All registers
;

damaged_message	PROC
		with	my_dp
		Export	show_damage

		pha
		jsr	show_damage
		jsl	unlock_mem		;release any memory
		sec
		pla				;get the error code please
		jml	sys_exit

show_damage
		jsr	setup_vol_mesg		;move the name from the VCR to buffer

		lda	volume_name		;make Gstring a Pstring
		xba
		sta	volume_name

		pea	$0003			;message number three
		pea	volume_name>>16
		pea	volume_name+1		;push a pointer to the volume name.
		pea	$0000
		pea	$0000			;push dummy space.
		jsl	report_error

		lda	volume_name		;make Pstring a Gstring
		xba
		sta	volume_name
		rts

		Entry	setup_vol_mesg
setup_vol_mesg
		ldy	#vcr.name		;index to Name VP
		lda	[my_vcr_ptr],y
		tax
		iny
		iny
		lda	[my_vcr_ptr],y
		tay
		jsl	deref			;make a real pointer to vol name
		stx	temp_ptr
		sty	temp_ptr+2

		lda	[temp_ptr]		;get the length of the string
		tay
		iny
move_loop
		lda	[temp_ptr],y
		sta	volume_name,y
		dey
		bpl	move_loop
		rts

		ENDP

		Eject
;======================================================================
;check_spans	This routine is called when a pathname is used and we
;               we need to verify that the spans are valid.  If they
;               are incorrect then we bail out.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = error code
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;
check_spans	PROC	Export

		lda	path_flag
		and	#path1_mask
		beq	check_path2

		lda	span1
		beq	bad_span
		cmp	#max_span+1
		bcc	check_path2

bad_span	sec
backup		lda	#bad_path_syntax
		brl	main_exit

check_path2
		lda	path_flag
		and	#path2_mask
		beq	@spans_ok

		lda	span2
		beq	bad_span
		cmp	#max_span+1
		bcs	backup
@spans_ok
		rts
		ENDP
		
		Eject
;======================================================================
;build_path:    This procedure will parse off the volume name out of a
;               pathname if needed.
;
;Input:         A = AND mask used on path_flag ($BFFF or $FFBF)
;               X = low word pointer to pathname
;               Y = high word pointer to pathname
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               path_flag               ;GS/OS parameter (See common equates)
;               dev_num                 ;GS/OS parameter
; 
;Output:        A = undefined
;               X = low word pointer to pathname
;               Y = high word pointer to pathname
;               P = nvmxdizc
;                   ..000..1 = no pathname (device # or vol name only)
;                          0 = X and Y contain a pathname pointer
;               b = k
;
;               volume_name             ;if volume name is available
;                                       ;e.g. no device number is given          
;
;Uses:          All registers
;               temp_ptr
;               path_flag
;               dev_num 
;               and_mask
;
		longa	on
		longi	on

vol_to_buffer	Proc
		with	my_dp

		ldy	#$0001			;to point past ':' in volume name
vol_name_loop
		lda	[temp_ptr],y
		and	#$00FF
		beq	loop_end		;we have hit the last character
		cmp	#delimiter		;see if it is a seperator
		beq	loop_end

		sta	volume_name+1,y		;store name in buffer
		iny
		cpy	#11+2			;is length > 11 characters?
		bcc	vol_name_loop		;no, keep copying
		lda	#bad_path_syntax	;else we've got a bad pathname
		sec
		brl	main_exit

loop_end
		tax				;save the terminating reason
		lda	#$0000			;terminate the string with a null byte
		sta	volume_name+1,y
		dey				;adjust string length
		sty	volume_name
		txa
		rts
		EndP

build_path	PROC	Export
		with	my_dp

		sta	and_mask		;setup by caller

;now adjust the pointer to point past the length word

		inx
		bne	do_again
		iny
do_again	inx
		bne	cont
		iny

cont
		stx	temp_ptr
		sty	temp_ptr+2		;pointer to pathname

		lda	path_flag		;see if there is a pathname to process
		and	and_mask
		bne	proc_path		;there is a pathname so handle it
		sec
		rts				;device number the only thing available

proc_path
		lda	dev_num			;see if there is a device
		beq	no_device		;no device so isolate volume name
						;tell caller device # and pathname
done
;		jsr	set_case_bits		;save the case bits as needed please and convert to upper case
		clc
		rts

no_device
		jsr	vol_to_buffer		;out: A = terminator Y = length
		pha				;save termination reason
		iny
		iny
		tya				;length of name +1
		ldy	temp_ptr+2
		clc
		adc	temp_ptr
		tax
		bcc	do_end
		iny				;adjust high word
do_end
		pla				;restore terminator
		bne	done			;tell caller volume name and pathname!
		sec				;tell caller volume name only!
		rts
		EndP

		Eject
;======================================================================
;process_path   This routine is called when a pathname needs to be
;               processed and located on the disk.  If the pathname is
;               not an MSDOS name then we bail out.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = error code
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;               drvr_buf_ptr            (points to the file entry)
;               entry_offset            (offset to entry within I/O buffer)
;               parent_blk              (entries parent block address)
;
;Uses:          All registers
;               math_temp
;               pcount
;
		longa	on
		longi	on

process_path	PROC	Export
		with	my_dp

		lda	#in_cache		;put directories in the cache
		sta	drvr_cache

		lda	#path1_mask		;and mask for path_flag
		ldx	path1_ptr
		ldy	path1_ptr+2
		jsr	build_path
		bcc	@chk_root_only
		brl	dev_or_vol		;No path just a device # or vol. name

@chk_root_only
		lda	search_flag		;do we allow a pathname?
		and	#root_only
		beq	@path_ok
		lda	#bad_path_syntax
		sec
		rts				;return error to caller

@path_ok

;If we fall thru then we know that there is a pathname to find.
;We also know that there is either a volume name or device.

		stx	hold_path_ptr
		sty	hold_path_ptr+2

		lda	dev_num			;There is a device number
		beq	cont01			;Find Volume Name
		sta	drvr_dev_num

;Look on a specific device

go_id_disk
		lda	drvr_dev_num
		jsr	id_disk			;go and find out if it is our disk
						;this also allocates a VCR if needed
		bcc	find_path		;I own the disk.
to_main_exit2
		brl	main_exit		;return error to GS/OS

cont01
		jsr	vol_to_buffer
		jsr	find_volume		;locate the volume
		bcs	to_main_exit2

find_path	lda	#$8000			;indicate that we found the volume
		sta	error_priority		;and it's an MSDOS volume

;So it's one of our volumes, now check to see if we are using paths, and
;the spans are ok.							      10/10/91 JEV
		lda	flags
		and	#path_used
		beq	check_damage		;no pathname is used
		jsr	check_spans		;so check them
		
check_damage	lda	flags			;is this a call to check the disk
		and	#damage
		beq	vol_good

		jsr	setup_my_vcr		;setup the pointer first

		ldy	#msdos_vcr.vol_damaged	;see if the volume is damaged
		lda	[msdos_vcr_ptr],y
		beq	vol_good
		lda	#dir_error		;write protected
		brl	damaged_message

vol_good
		lda	drvr_dev_num
		ldx	hold_path_ptr
		ldy	hold_path_ptr+2
		jsr	find_file		;try to locate the file
		bcc	save_parent
		cmp	#drvr_disk_sw		;was the media switched?
		beq	go_id_disk

		bit	search_flag		;is 'file not found' ok for this call?
		bvc	not_ok			;no, tell caller about the error
		cmp	#file_not_found
		bne	not_ok			;this error cannot be handled!
		sec
		rts				;tell caller that an error occured.

not_ok
		sec
		brl	main_exit

save_parent
		sta	entry_offset		;offset to the entry within the blk
		lda	drvr_blk_num		;block number of parent
		sta	parent_blk

cont02		stx	drvr_buf_ptr		;save pointer to name
		sty	drvr_buf_ptr+2
process_exit
		jsr	set_user_cache
		rts

;If we get here we know that there is no pathname to process.
;We also know if there is no device number then 'volume_name' contains
;a volume name that I am suppose to open.

dev_or_vol
		lda	dev_num
		beq	use_vol_name		;we must have a volume name.
		jsr	id_disk			;go and find out if it is our disk
		bcs	to_main_exit

;Before we check to see if the volume name is legal we must see if the
;volume is online.  The reason we do this is to be compatible with P16.
;
;Example:
;               Create '/VOLUME'        ;If '/VOLUME' is online then
;                                       ;the error returned is 'BadPath'
;               Create '/VOLUME'        ;If '/VOLUME' is offline then
;                                       ;the error returned is 'VolNotFound'
;

its_mine	lda	#$8000			;indicate that we found the volume      3/5/91 CAE
		sta	error_priority		;and it's an MSDOS volume               3/5/91 CAE

check_root	bit	search_flag		;is a root level valid?
		bmi	bad_path_error		;no, issue error
continue1
		lda	parent_blk		;was there a volume label?
		beq	@no_vol_label		;no, must synthesize it
		lda	entry_offset		;calculate address of volume label
		clc
		adc	gbuf_addr
		sta	drvr_buf_ptr
		lda	gbuf_addr+2
		sta	drvr_buf_ptr+2
		bra	process_exit
@no_vol_label
		lda	#default_name
		sta	drvr_buf_ptr
		lda	#^default_name
		sta	drvr_buf_ptr+2
		bra	process_exit

bad_path_error
		lda	#bad_path_syntax
		sec
to_main_exit
		brl	main_exit		;return error to M.A. and J.J.

use_vol_name
		jsr	find_volume		;locate the volume
		bcc	its_mine
		brl	main_exit

set_user_cache
		pha				;save entry offset
		lda	user_cache		;set cache to user setting
		sta	drvr_cache
		pla
		rts

		ENDP

		Eject
;======================================================================
;send_info      This routine is called when we need to return the
;               informational parameters from a directory entry.
;               This routine is called by 'OPEN' and 'GET_FILE_INFO'
;WARNING:
;               This routine assumes parameters are in a certain order.
;               I did this so I could use that same routine across several
;               calls!
;
;Input:         A = number of entries to send
;               X = low word pointer to start of parameters
;               Y = high word pointer to start of parameters
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               one_entry               (contains the info to send)
;               drvr_buf_ptr            (points to resource header block)
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Uses:          All registers
;               math_temp
;               temp_ptr
;               one_entry
;               time_routines
;
		longa	on
		longi	on

send_info	PROC	Export
		with	my_dp

		stx	temp_ptr
		sty	temp_ptr+2

;Save the number of entries the user wants.

		sta	math_temp
		tax
		bne	continue
		rts

;First we return the access as it is stored on disk.

continue
		ldx	#$00C3			;assume full access
		lda	one_entry.attributes	;get the attributes
		bit	#read_only		;read_only bit set?
		beq	@not_read_only		;no...
		ldx	#$0001			;else clear Delete/Rename/Write enable bits
@not_read_only
		bit	#archive		;backup bit set?
		beq	@no_backup_bit		;no...
		pha				;else set backup bit in returned attributes
		txa
		ora	#%00100000
		tax
		pla
@no_backup_bit
		bit	#hidden_file+sys_file	;hidden or system file?
		beq	@visible		;no...
		txa
		ora	#%00000100		;else set invisible bit
		tax
@visible
		ldy	#pblk_s_access
		txa				;put synthesized attributes into Accumulator
		sta	[temp_ptr],y
		dec	math_temp
		bne	send_two
end_send1
		clc
		rts

;If we are here then we know the user wants the file type as well

send_two
		ldx	#$000F			;Assume subdirectory
		lda	one_entry.attributes	;get the attributes
		bit	#subdirectory		;is it a directory entry
		bne	@is_directory		;no...
		jsr	get_file_type		;else go translate the extension
@is_directory
		txa
		ldy	#pblk_s_ftype
		sta	[temp_ptr],y
		dec	math_temp
		beq	end_send1

;Now the user wants the aux type!

		ldy	#pblk_s_aux
		lda	#0
		sta	[temp_ptr],y
		iny
		iny
		sta	[temp_ptr],y
*** added 11-Aug-92 DAL
		lda	one_entry.attributes	;get the attributes
		bit	#subdirectory
		bne	@no_auxtype

		jsr	get_file_type		;returns auxtype in A
		ldy	#pblk_s_aux
		sta	[temp_ptr],y

@no_auxtype
*** end 11-Aug-92
		dec	math_temp
		beq	end_send1

;Also send the storage type of the file

		ldy	#pblk_s_storage
		lda	storage_type
		lsr	a
		lsr	a
		lsr	a
		lsr	a
		sta	[temp_ptr],y
		dec	math_temp
		beq	end_send1

;Now convert the create date and send it to.

send_five

		ldx	#0			;MSDOS doesn't support a create date
		txy
		jsr	unpack_time
		ldy	#pblk_s_create
		jsr	send_time
		dec	math_temp
		beq	end_send1

;Now convert the modification data and time

		ldx	one_entry.date
		ldy	one_entry.time
		jsr	unpack_time
		ldy	#pblk_s_mod
		jsr	send_time
		dec	math_temp
		beq	@go_to_end

; We now store the MSDOS FST ID in the 5th byte of the option list buffer

		ldy	#pblk_s_opt		;index to option list pointer
		lda	[temp_ptr],y		;get the address of the option list buffer
		tax
		iny
		iny
		lda	[temp_ptr],y
		tay
		bne	@save_fst_id
		txa
		beq	@skip_save
@save_fst_id
		pei	temp_ptr		;save the working temp_ptr since I am going to use it
		pei	temp_ptr+2		;to handle the option list pointer

		stx	temp_ptr
		sty	temp_ptr+2
;
;Now I need to verify the option list length.  I need at least 6 bytes.
;
		lda	[temp_ptr]		;get the length of the option list
		cmp	#$0004			;is the minimum count OK
		bcc	opt_range_err		;the user doesn't even have the minimum size>>>>
		tax
		lda	#$0002			;length of the MSDOS FST ID.
		tay
		sta	[temp_ptr],y		;save the number of bytes stored
		txa
		cmp	#$0006
		bcc	opt_size_error
		iny
		iny
		lda	#fst_id
		sta	[temp_ptr],y

		pla
		sta	temp_ptr+2		;restore
		pla
		sta	temp_ptr
@skip_save
		dec	math_temp		;Option List is included in PCount
@go_to_end	beq	end_send

;Give the EOF as well.

		ldy	#pblk_s_eof		;send the EOF for the file
		ldx	one_entry.file_size+2
		lda	one_entry.file_size
		jsr	store_longword
		dec	math_temp
		beq	end_send

; Return number of blocks used by data fork

		ldx	#0			;assume no blocks used by file
		lda	one_entry.start_cluster	;get starting cluster #
		beq	@no_blks_used
		jsr	count_blks_used		;count the # of blocks used by file
@no_blks_used
		ldy	#pblk_s_blks		;send the number of blocks used
		jsr	store_longword
		dec	math_temp
		beq	end_send

; Return resource fork eof

		ldy	#pblk_s_res_eof		;send the resource eof
		ldx	rfork_entry.file_size+2
		lda	rfork_entry.file_size
		jsr	store_longword
		dec	math_temp
		beq	end_send

; Return resource fork blocks used

		ldx	#0			;assume no blocks used
		lda	rfork_entry.start_cluster	;get starting cluster #
		beq	@no_blks_used2
		jsr	count_blks_used		;count the # of blocks used by file
@no_blks_used2
		ldy	#pblk_s_res_blk		;send the number of blocks used by res
		jsr	store_longword

end_send	clc
		rts

opt_range_err
		pla
		sta	temp_ptr+2		;restore
		pla
		sta	temp_ptr

		lda	#parm_range_err
		sec
		rts

opt_size_error
		pla
		sta	temp_ptr+2		;restore
		pla
		sta	temp_ptr

		lda	#buff_too_small
		sec
		rts

store_longword
		sta	[temp_ptr],y		;store low order 16 bits of EOF
		iny
		iny
		txa				;now store the upper 16 bits
		sta	[temp_ptr],y
		rts

;======================================================================
;This routine will store the time into the user's parameters block

		EXPORT	send_time
send_time
		lda	minutes
		xba				;swap minutes and seconds
		sta	[temp_ptr],y
		iny
		iny
		lda	hours
		sta	[temp_ptr],y
		iny
		lda	year
		sta	[temp_ptr],y
		iny
		lda	day
		beq	zero_day		;the day is unknown
		dec	a			;convert to misc. tools hex format
zero_day
		sta	[temp_ptr],y
		iny
		lda	month
		beq	zero_month
		dec	a			;convert to misc. tools hex format
zero_month
		sta	[temp_ptr],y
		iny
		lda	day_of_week
		xba				;swap day of week and null byte
		sta	[temp_ptr],y
		rts

		ENDP

		Eject
;======================================================================
;chk_protected: This routine will see if a volume is write protected.
;
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               drvr_dev_num            ;must be setup.
;
;Output:        A = status Word         ;see if driver ERS
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;
;               b = k
;
;
;Uses:          All registers
;
		longa	on
		longi	on

chk_protected	PROC
		with	my_dp

		jsr	save_drvr

		lda	#drvr_status		;issue a status call to the device
		sta	drvr_call_num

		lda	#^status_list		;setup a pointer to the status list
		sta	drvr_slist_ptr+2
		lda	#status_list
		sta	drvr_slist_ptr

		lda	#$0006			;a six byte request count
		sta	drvr_req_cnt
		stz	drvr_req_cnt+2
		lda	#blk_size
		sta	drvr_blk_size

		stz	drvr_stat_code		;issue a 'driver status' call.
		jsr	device_call		;blast off!!
		bcs	status_error		;An error?

		lda	status_list		;get the return status
status_error	php
		pha
		jsr	restore_drvr
		pla
		plp
		rts

save_drvr	ldx	#drvr_bytes		;number of bytes to save
save_it	lda	drvr_dev_num,x
		sta	drvr_save,x
		dex
		bpl	save_it
		rts

restore_drvr	ldx	#drvr_bytes
restore_it	lda	drvr_save,x
		sta	drvr_dev_num,x
		dex
		bpl	restore_it
		rts

		EXPORT	chk_disk_protect
chk_disk_protect
		stz	chk_prot_swap		; haven't got disk switched yet (20-Dec-91 MSD)
		
		lda	my_vcr_ptr		;see if we have a VCR
		ora	my_vcr_ptr+2
		beq	do_chk			;go ahead and do the check

		ldy	#vcr.status		;do I need to status the disk?
		lda	[my_vcr_ptr],y
		and	#vcr_wr_enable
		beq	do_chk			;yes we need to check the media
		rts				;just return to the caller

do_chk
		jsr	chk_protected		;is the disk protected?
		bcs	big_problem
		tax
		and	#$0010			;is the disk offline?
		beq	not_in_drive		;there is no disk!!!
		txa
		and	#$0001			;disk switched??
		bne	not_in_drive		;disk has been switched!
		txa
		and	#disk_protect
		bne	is_protected

		lda	my_vcr_ptr		;see if we have a VCR
		ora	my_vcr_ptr+2
		beq	no_change		;go ahead and set the vcr status flag

		ldy	#vcr.status		;set the 'No Status' bit
		lda	[my_vcr_ptr],y
		ora	#vcr_wr_enable		;no need to do the status next time
		sta	[my_vcr_ptr],y

no_change	txa				;restore original status word
		rts


is_protected	sec
		lda	#drvr_wr_prot		;return write protect error to caller

big_problem	brl	main_exit

not_in_drive
;
; Begin 20-Dec-91 MSD
;
; We got a disk switched status, so try to find the volume (ask the user if necessary).
; This will force a new VCR to be built, and my_vcr_ptr will point to it.
;
		lda	chk_prot_swap		; already switched once?
		bne	do_disk_sw		; yes, so return disk switched error
		
		inc	chk_prot_swap		; found one disk swithced status
		
*** added 28-Feb-92 DAL and GAB -- Save GBUF and important direct page stuff
		jsr 	save_drvr
		pei	<gbuf_ptr+2
		pei	<gbuf_ptr
		pea	chk_protect_gbuf>>16
		pea	chk_protect_gbuf
		pea	0
		pea	$0200		; move 512 bytes
		pea	move_sinc_dinc
		jsl	move_info
*** end 28-Feb-92, part one

		jsr	mount_volume	; find the volume and build a VCR for it

*** added 28-Feb-92 DAL and GAB -- Restore GBUF and important direct-page stuff
		php
		pha
		jsr 	restore_drvr
		pea	chk_protect_gbuf>>16
		pea	chk_protect_gbuf
		pei	<gbuf_ptr+2
		pei	<gbuf_ptr
		pea	0
		pea	$0200		; move 512 bytes
		pea	move_sinc_dinc
		jsl	move_info
		pla
		plp
*** end 28-Feb-92, part two
		bcs	big_problem		; better not be an error (we already found the path)
		
		bra	do_chk			; try the status again

do_disk_sw
		sec
		lda	#drvr_disk_sw		; give up, 2 consecutive disk switched statuses
		bra	big_problem

;
; End 20-Dec-91 MSD
;
; The following code was commented out because we should really retry the status call.
;
;		ldy	#vcr_dev	;update the VCR status please
;		lda	[my_vcr_ptr],y
;		cmp	drvr_dev_num	;is this the same device?
;		bne	just_exit	;no
;		ldy	#vcr_status	;mark volume swapped
;		lda	[my_vcr_ptr],y
;		ora	#vcr_swapped	;disk has been removed from drive
;		sta	[my_vcr_ptr],y
;just_exit				; 
;		txa			;original status word
;		rts

chk_prot_swap	dc.w	0		; flag for disk switched (20-Dec-91 MSD)

		ENDP

		Eject
;==========================================================================
;Move_vol_name: This routine will move the volume name pointed to by
;               drvr_buf_ptr into the buffer pointed to by the address
;               in the X and Y registers
;
;Input:         A = undefined
;               X = low word pointer to the destination buffer
;               Y = high word pointer to the destination buffer
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               drvr_buf_ptr            ;points to the volume header in blk two
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Uses:          All registers
;               temp_ptr
;
		longa	on
		longi	on

move_vol_name	PROC
		with	my_dp

		stx	temp_ptr
		sty	temp_ptr+2

		lda	[drvr_buf_ptr]
		and	#$000F			;isolate name length
		sta	[temp_ptr]		;save the length in word format
		tay

		clc
		lda	temp_ptr
		adc	#$0002
		sta	temp_ptr
		bcc	ar1
		inc	temp_ptr+2
ar1

		longa	off
		sep	#$20
move_loop
		lda	[drvr_buf_ptr],y
		sta	[temp_ptr],y
		dey
		bne	move_loop

		longa	on
		rep	#$20
		rts

		ENDP

		Eject
;======================================================================
;read_write_setup:
;               this routine sets up common parameters between read/write
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               pcount                  ;for cache check
;               my_pblk_ptr             ;must be setup
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               user_buf_ptr
;               user_req_cnt
;               drvr_cache
;               tran_cnt                ;set to zero
;
;Uses:          All registers
;
		longa	on
		longi	on

read_write_setup PROC	Export
		with	my_dp

;Start code by turning off disk caching and setting up other parameters
		lda	user_cache
		sta	drvr_cache
		stz	tran_cnt
		stz	tran_cnt+2

		lda	pcount			;is cache priority avail?
		cmp	#$0005
		bne	no_cache

;If we get here then the user has provided a cache priority for the file.
;So we must verify that it is a legal value for caching.

get_priority
		ldy	#pblk_12_cache
		lda	[my_pblk_ptr],y
		beq	no_cache		;same as mine
		cmp	#user_cache_val
		beq	good_cache
param_err
		sec
		lda	#parm_range_err
		brl	main_exit

good_cache	sta	drvr_cache

;Setup a pointer to the user's buffer.

no_cache	ldy	#pblk_12_buf
		lda	[my_pblk_ptr],y
		sta	users_buf_ptr
		iny
		iny
		lda	[my_pblk_ptr],y
		and	#$00FF
		sta	users_buf_ptr+2

;Go ahead and zero the user's transfer count.

		ldy	#pblk_12_tran		;zero the transfer count
		lda	#$0000
		sta	[my_pblk_ptr],y
		iny
		iny
		sta	[my_pblk_ptr],y

;Now lets get the user's request count.

		ldy	#pblk_12_req
		lda	[my_pblk_ptr],y
		sta	user_req_cnt
		iny
		iny
		lda	[my_pblk_ptr],y
		sta	user_req_cnt+2

;Handle the easy case of a request count of zero first.

good_cnt	txa
		ora	user_req_cnt
		beq	@skip_it
		rts

@skip_it	clc
		brl	main_exit

		ENDP


		Eject
rw_adjust	PROC	Export			;read/write adjust
		with	my_dp

;==========================================================================
;adjust the buffer pointer by the number of bytes read
;
;IMPORTANT NOTES:
;               drvr_req_cnt is always =< $0001FE00
;               users_buf_ptr is always < $00FFFFFF
;
		clc
		lda	users_buf_ptr
		adc	drvr_req_cnt
		sta	users_buf_ptr
		lda	users_buf_ptr+2
		adc	drvr_req_cnt+2
		sta	users_buf_ptr+2

;==========================================================================
;adjust the total number of bytes read from file
;
;IMPORTANT NOTES:
;               tran_cnt is always =< $00FFFFFF
;               drvr_req_cnt is always =< $0001FE00
;
;Carry is clear from the above addition.

		lda	tran_cnt
		adc	drvr_req_cnt
		sta	tran_cnt
		lda	tran_cnt+2
		adc	drvr_req_cnt+2
		sta	tran_cnt+2

;==========================================================================
;adjust the current file marker
;
;IMPORTANT NOTES:
;               curr_mark is always =< $00FFFFFF
;               drvr_req_cnt is always =< $0001FE00
;

		lda	curr_mark
		adc	drvr_req_cnt
		sta	curr_mark
		lda	curr_mark+2
		adc	drvr_req_cnt+2
		sta	curr_mark+2

;adjust the number of bytes remaining to send

		sec
		lda	user_req_cnt
		sbc	drvr_req_cnt
		sta	user_req_cnt
		lda	user_req_cnt+2
		sbc	drvr_req_cnt+2
		sta	user_req_cnt+2
		rts
		ENDP

		Eject
;==========================================================================
;entry_to_offset This routine will convert the data from a directory
;               header to an offset.
;
;Input:         A = entry_number
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = entry_offset
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;
;Uses:          All registers

		longa	on
		longi	on
entry_to_offset	PROC

		and	#$00FF
		dec	a
		cmp	#$000D			;is it out of range?
		bcs	error
		asl	a
		tay
		lda	dir_offset_tbl,y
		clc
error
		rts

		ENDP

		Eject
;==========================================================================
;flush_file:    This routine will write any modified blocks to disk.
;
;Input:         A = dev_number
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               msdos_fcr_ptr           (points to data to write)
;               my_vcr_ptr              (points to main VCR)
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Uses:          All registers

		longa	on
		longi	on


flush_file	PROC	Export
		with	my_dp

		stz	flush_entry		;indicate that we should flush everything
		bra	cont_flush

		Export	do_fast_flush		;entry point used by the fast version of the flush call
do_fast_flush
		lda	#1			;set flag
		bra	stuffit

		EXPORT	flush_io_Buffer
flush_io_buffer
		lda	#$FFFF			;do not flush the directory entry
stuffit
		sta	flush_entry
cont_flush
	if read_only_fst then	;used for read-only version of FST
		clc
		rts				;do nothing
	else		;used for write-enabled version of FST
		jsr	standard_req

;First lets call flush bitmap which will update the bitmap for us
		jsr	flush_bitmap
		bcs	error_return		;return the error directly

;No we need to flush the file itself.  We only flush blocks that need to
;be flushed.  We will always update the file entry.

flushed

		ldy	#msdos_fcr.status	;get the status bits
		lda	[msdos_fcr_ptr],y
		sta	flush_flags
		bit	#file_dirty		;see if there is anything to update
		bne	do_update
		clc
error_return
		rts				;file does not need to be updated

;First lets see if we need to update the master index block.

do_update
		bit	#master_dirty
		beq	check_index

		ldy	#msdos_fcr.master_blk_num ;get the block number
		lda	[msdos_fcr_ptr],y
		sta	drvr_blk_num
		beq	clear_master		;master block is sparse so do not update disk

		ldx	master_ptr
		ldy	master_ptr+2
		jsr	flush_block
		bcs	error_return		;return the error code

clear_master
		lda	#master_clean
		jsr	clr_fcr_status		;mark master block as clean

;Update the index block if needed

check_index
		lda	flush_flags
		bit	#index_dirty		;is the index block dirty
		beq	check_data
		jsr	flush_index
		bcs	error_return

;Update the data block if needed.

check_data
		lda	flush_flags
		bit	#data_dirty		;is the data block dirty
		beq	update_entry
		jsr	flush_data_blk
		bcs	error_return

update_entry
		lda	flush_entry		;do we update the directory entry?
		beq	@do_entry		;yup, update the whole thing
		bmi	@just_data		;no, just flush the data blocks
						; else we're doing a fast flush call here.  flush dirty bitmap and
						; dirty directory ('dirty' meaning that anything besides mod date
						; and backup-bit have been changed).
		jsr	force_bitmap		;force the bitmap update
		lda	flush_flags		;is the directory dirty?
		bit	#dirEntry_dirty
		bne	@do_entry		;yes, so just go ahead and do the full flush
@just_data
		clc
		rts
@do_entry
		lda	#file_clean
		jsr	clr_fcr_status		;mark master block as clean
;
;Now lets update the VCR count to indicate that the file is clean
;
		lda	dirty_cnt_changed
		bne	@changed_once		;have we adjusted the number already?

		inc	dirty_cnt_changed
		ldy	#msdos_vcr.dirty_file_cnt
		lda	[msdos_vcr_ptr],y
		beq	@major_error
		dec	a
		sta	[msdos_vcr_ptr],y
		jsr	flush_bitmap		;now go and update the bitmap
		bcs	go_cannot_update
@major_error
@changed_once
		jsr	set_default_buf		;use the system buffer
		jsr	standard_req
		jsr	update_mod_time		;make sure we use the correct time

		jsr	get_parent		;load the I/O buffer with directory blk
go_cannot_update
		bcs	to_cannot_update
		jsr	verify_storage		;verify storage type
;
;Change for final release 8/16/88
;
;
; First we update the File Control Record to indicate the correct backup state
;
		ldy	#msdos_fcr.disk_acc	;update fcr along with dir entry
		lda	[msdos_fcr_ptr],y
		ora	#backup_on
		sta	[msdos_fcr_ptr],y
;
;Now we update the directory entry to indicate the correct backup state
;
		ldy	#access_index		;index to the access byte in a dir entry
		lda	[temp_ptr],y
		ora	#backup_on		;set the backup bit before update of disk
		sta	[temp_ptr],y

		bcs	to_cannot_update

;If the file is a resource file then only update the modification time.
;Otherwise update the entire directory entry.

		ldy	#msdos_fcr.file_id
		lda	[msdos_fcr_ptr],y
		ldy	#msdos_fcr.key_blk
		cmp	[msdos_fcr_ptr],y
		beq	entry_ok		;file is not a resource file
		jsr	update_resource		;update the resource header
		bcs	to_cannot_update	;cannot write info to disk!
		jsr	set_default_buf		;restore buffer pointer

		ldy	#msdos_fcr.modified	;index into FCR
		lda	[msdos_fcr_ptr],y
		ldy	#last_mod_index		;index into directory block
		sta	[temp_ptr],y		;update the directory entry
		ldy	#msdos_fcr.modified+2
		lda	[msdos_fcr_ptr],y
		ldy	#last_mod_index+2
		sta	[temp_ptr],y
		bra	update_disk		;now update the directory

;Move the entire directory info then write the block back to disk.

entry_ok
		ldy	#msdos_fcr.storage
		lda	[temp_ptr]
		and	#$FF0F			;clear current storage type
		ora	[msdos_fcr_ptr],y	;adjust the storage type
		sta	[temp_ptr]

		ldx	#msdos_fcr.eof
		ldy	#msdos_fcr.curr_eof	;move the current EOF to disk EOF
		lda	[msdos_fcr_ptr],y
		phy
		txy
		sta	[msdos_fcr_ptr],y
		inx
		ply
		iny
		lda	[msdos_fcr_ptr],y
		txy
		sta	[msdos_fcr_ptr],y

		ldy	#msdos_fcr.header_ptr	;start at the end
		ldx	#header_ptr_index

blast_loop
		lda	[msdos_fcr_ptr],y
		phy
		txy
		sta	[temp_ptr],y
		dex
		ply
		dey
		cpy	#msdos_fcr.file_type
		bne	blast_loop

update_disk
		jsr	write_with_cache
to_cannot_update
		bcs	cannot_update

		lda	#dirEntry_clean
		jsr	clr_fcr_status		;mark directory entry as clean

		lda	close_flag		;should we update the directories?
		ora	time_stamp_opt		;check user's option for time stamp too
		ora	flush_flags		;and which type of flush we're doing
		beq	dont_bother		;no directory updates please

		ldy	#header_ptr_index
		lda	[temp_ptr],y
		sta	drvr_blk_num
		cmp	#vol_dir_start
		beq	dont_bother

		jsr	read_with_cache
		bcs	cannot_update
		ldy	#parent_index		;get the parent block number
		lda	[drvr_buf_ptr],y
		sta	slug_block		;save the block number
		ldy	#par_entry_num
		lda	[drvr_buf_ptr],y
		jsr	entry_to_offset
		sta	slug_offset
		jsr	slug_ripple		;do the slug ripple
		rts

dont_bother
		clc
cannot_update
		rts

		EXPORT	flush_index
flush_index
		ldy	#msdos_fcr.index_blk_num ;get the block number
		lda	[msdos_fcr_ptr],y
		sta	drvr_blk_num
		beq	clear_index		;the block is sparse so don't write it!
		ldx	index_ptr
		ldy	index_ptr+2
		jsr	flush_block
		bcc	clear_index
		rts				;return the error code

clear_index
		lda	#index_clean
		jsr	clr_fcr_status		;mark master block as clean
		rts


		EXPORT	flush_data_blk
flush_data_blk
		ldy	#msdos_fcr.data_blk_num	;get the block number
		lda	[msdos_fcr_ptr],y
		sta	drvr_blk_num
		beq	clear_data		;the block is sparse so don't write it to disk

		ldx	data_ptr
		ldy	data_ptr+2
		jsr	flush_block2
		bcc	clear_data
		rts				;return the error code

clear_data
		lda	#data_clean
		jsr	clr_fcr_status		;mark master block as clean
		clc
		rts

;If we get here then we are updating a resource file.  So we need to update
;the resource header block with the following information.
;
;               Storage Type
;               key_block
;               blocks used
;               eof
;

update_resource
		lda	drvr_blk_num		;save the block number please
		pha

		jsr	standard_req
		jsr	set_default_buf
		inc	drvr_buf_ptr+1
		inc	drvr_buf_ptr+1		;use the high block of the buffer!!!

		ldy	#msdos_fcr.file_id	;index to header block
		lda	[msdos_fcr_ptr],y
		sta	drvr_blk_num		;read in the block please
		jsr	read_with_cache
		bcs	end_res_update

		ldy	#msdos_fcr.res_num	;which resource are we updating?
		lda	[msdos_fcr_ptr],y
		xba				;make an index $0000 or $0100
		tax				;point to start of header

		ldy	#msdos_fcr.storage	;storage type of file
		lda	[msdos_fcr_ptr],y
		lsr	a			;convert $10,$20,$30 -> $1,$2,$3
		lsr	a
		lsr	a
		lsr	a
		txy				;index to storage type
		sta	[drvr_buf_ptr],y
		inx				;advance to key block

		ldy	#msdos_fcr.key_blk
		lda	[msdos_fcr_ptr],y
		txy
		sta	[drvr_buf_ptr],y
		inx
		inx				;advance to blocks used

		ldy	#msdos_fcr.blks_used
		lda	[msdos_fcr_ptr],y
		txy
		sta	[drvr_buf_ptr],y
		inx
		inx				;advance to EOF

		ldy	#msdos_fcr.curr_eof
		lda	[msdos_fcr_ptr],y
		txy
		sta	[drvr_buf_ptr],y
		inx
		ldy	#msdos_fcr.curr_eof+1
		lda	[msdos_fcr_ptr],y
		txy
		sta	[drvr_buf_ptr],y

		jsr	write_with_cache	;Update the disk
		bcs	end_res_update

		clc
		ldy	#$0003			;index to the blocks used data
		lda	[drvr_buf_ptr],y
		ldy	#$0103			;index to blocks used resource
		adc	[drvr_buf_ptr],y
		adc	#$0001			;add in the header block

		ldy	#blks_used_index	;index into directory block
		sta	[temp_ptr],y		;update the directory entry
		clc
end_res_update
		plx				;restore the block number
		stx	drvr_blk_num
		rts

;==========================================================================
;This routine reads the GS clock and stores the time in the modification
;field of the current FCR.

update_mod_time
		jsr	pack_time		;time for mod date (X=low Y=high)
		phy				;save high word
		ldy	#msdos_fcr.modified
		txa
		sta	[msdos_fcr_ptr],y
		iny
		iny
		pla
		sta	[msdos_fcr_ptr],y	;update high word
		rts

;==========================================================================
;This routine will read in the parent block for a FCR and update the
;modification date.
;
;input:         msdos_fcr_ptr           ;MUST be setup
;
;output:        carry = error
;               temp_ptr                ;points to the file entry

get_parent
		ldy	#msdos_fcr.parent
		lda	[msdos_fcr_ptr],y	;get the address of the directory blk
		sta	drvr_blk_num
		jsr	read_with_cache		;get the directory block please
		bcc	block_loaded
		rts

block_loaded
		ldy	#msdos_fcr.entry_offs	;offset to directory entry
		lda	[msdos_fcr_ptr],y
		adc	drvr_buf_ptr
		sta	temp_ptr
		lda	#$0000
		adc	drvr_buf_ptr+2
		sta	temp_ptr+2
		clc
		rts

;==========================================================================
;This routine verifies that the entry pointed to by 'temp_ptr' is a valid
;MSDOS entry.  It verifies this by looking at the storage type.

verify_storage
		lda	[temp_ptr]		;get stoarge/length byte
		and	#$00F0			;verify the storage type please
		cmp	#resource_type
		beq	good_entry
		cmp	#seedling_type
		beq	good_entry
		cmp	#sapling_type
		beq	good_entry
		cmp	#tree_type
		beq	good_entry
		cmp	#subdir_type
		beq	good_entry

		lda	#dir_error		;the directory must be damaged
		sec
		rts

good_entry	clc
		rts

;Force the block to disk

flush_block
		stx	drvr_buf_ptr
		sty	drvr_buf_ptr+2
		jsr	write_with_cache
		rts
flush_block2
		stx	drvr_buf_ptr
		sty	drvr_buf_ptr+2
		jsr	write_with_mount
		rts

		EXPORT	clr_fcr_status
clr_fcr_status
		ldy	#msdos_fcr.status
		and	[msdos_fcr_ptr],y
		sta	[msdos_fcr_ptr],y
		rts

	endif
		ENDP
		Eject
;==========================================================================
;Chk_swapped:   This routine will determine if the volume has been swapped
;               If the volume has been swapped then we will request the
;               user to put the volume back online.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               my_vcr_ptr              ;pointer to vcr
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
; 
;Uses:          All registers
;               temp_ptr
;               volume_name
;               find_volume
;
		longa	on
		longi	on

chk_swapped	PROC	Export
		with	my_dp

;Now we have all of our data setup for the read.  Now we need to see if
;the volume has been swapped out.  If it has then we must go and find
;it again.

		ldy	#vcr.status
		lda	[my_vcr_ptr],y
		and	#vcr_swapped		;disk logged out?
		beq	disk_back

;Little Bo-Peep-Show has lost her disk and doesn't know where to find it!
;Therefore we will go and find it for her.

		ldy	#vcr.name
		lda	[my_vcr_ptr],y
		tax
		iny
		iny
		lda	[my_vcr_ptr],y
		tay
		jsl	deref
		stx	temp_ptr
		sty	temp_ptr+2

;Now we have a pointer to the name but we must move it to 'volume_name'

		lda	[temp_ptr]
		and	#$000F
		tay
		dey

move_name
		lda	[temp_ptr],y
		sta	volume_name,y
		dey
		bpl	move_name

;Now that we have moved the name to volume_name buffer we need to call
;'find_volume' and let it look for it.

		jsr	mount_volume
		rts

disk_back
		clc
		rts
		ENDP

	if NOT read_only_fst then
		Eject
;============================================================================
;
;Calc_Bit:      This routine will convert a 16 bit block number into
;               the correct index into the bitmap block, the correct pattern
;               to indicate which bit it is, and which relative block in the
;               bitmap contains the bit
;
;Input:         X = Block number to convert
;               m = 0
;               x = 0
;               b = k
;
;Output:        A = Bit Pattern (Which bit that needs to be changed)
;               Y = Byte offset into bitmap block that contains bit
;               X = Relative Block number of the bitmap that contains the bit
;               Carry Clr
;               All other flags undefined
;
;Uses:          Local Table
;               All registers
;

calc_bit	PROC	Export

		txa				;X=Block number
		and	#$0007			;isolate bit index    
		tay
		lda	bit_table,y		;get the bit pattern
		and	#$00FF			;table is a byte table
		pha
		txa				;now isolate byte index
		and	#$0FF8
		lsr	a
		lsr	a
		lsr	a
		tay				;Y=Offset into bitmap block     
		jsr	abs_to_rel		;absolute to relative block number
		pla				;A=Bit pattern
		rts

		entry	abs_to_rel
abs_to_rel
		clc
		txa				;now isolate relative block number
		and	#$F000
		rol	a
		rol	a
		rol	a
		rol	a
		rol	a
		tax				;X=Relative block number in bitmap
		rts

bit_table	DC.B	$80,$40,$20,$10,$08,$04,$02,$01
		ENDP
	endif
	if NOT read_only_fst then
		Eject
;============================================================================
;Alloc_block    This routine will allocate a block in the bitmap.
;               If the block is not in memory then it will load it.
;
;Input:         X = Block number that you want to allocate
;               m = 0
;               x = 0
;               b = k
;               msdos_vcr_ptr
;
;Output:        carry clr = no error
;               carry set = could not allocate
;               A = error code if carry set
;                       01 = User would not mount the volume
;               all flags undefined
;
;Uses:          All Registers
;               Calc_bit        (Subroutine)
;               Get_Bit_block   (Subroutine)
;               bitmap_changed  (Subroutine)
;

alloc_block	PROC
		with	my_dp

		jsr	calc_bit		;calculate bit(A),byte(Y),block(X)
		pha
		phy
		jsr	get_bit_block		;load the correct block if needed
		ply
		pla
		tax				;save mask
		bcs	done			;could not load block from disk
		and	[fat_ptr],y		;is the block already allocated?
		beq	bitmap_corrupt		;the bitmap is in bad shape, sorry.
		txa				;restore the AND mask
		eor	#$FFFF			;we need to flip the patterns
		and	[fat_ptr],y		;clear the correct bit
		sta	[fat_ptr],y
		jsr	bitmap_changed		;update bitmap flags
		jsr	sub_free_blk		;adjust free block count
done		rts

bitmap_corrupt					;we get here if the bitmap is corrupt
		lda	#damaged_bitmap
		sec
		rts				;return the error

sub_free_blk
		ldy	#msdos_vcr.free_blocks
		lda	[msdos_vcr_ptr],y
		inc	a
		beq	who_knows
		dec	a			;$FFFF = major problem
		dec	a
		sta	[msdos_vcr_ptr],y
who_knows
		clc
		rts

		ENDP
	endif
	if NOT read_only_fst then
		Eject
;============================================================================
;DeAlloc_block  This routine will deallocate a block in the bitmap.
;               If the bitmap block is not in memory then it will load it.
;               The routine will also update the free block count if needed
;
;Input:         X = Block number that you want to deallocate
;               m = 0
;               x = 0
;               b = k
;               msdos_vcr_ptr          (must be setup)
;               my_vcr_ptr              (must be setup)
;
;Output:        carry clr = no error
;               carry set = could not allocate
;               A = error code if carry set
;                       01 = User would not mount the volume
;               all flags undefined
;
;Uses:          All Registers
;               Calc_bit        (Subroutine)
;               Get_Bit_block   (Subroutine)
;

dealloc_block	PROC	Export
		with	my_dp

		jsr	calc_bit		;calculate bit(A),byte(Y),block(X)
		phx
		pha
		phy
		jsr	get_bit_block		;load the correct block if needed
		ply
		pla
		plx
		bcs	done			;could not load block from disk
		pha				;save the mask please
		and	[fat_ptr],y		;is the block already deallocated?
		beq	no_prob			;the block is currently allocated
		pla				;fix the stack
		lda	#damaged_bitmap
		sec
		rts				;return the error


no_prob
		pla				;restore the mask please
		ora	[fat_ptr],y		;set the correct bit
		sta	[fat_ptr],y

;We have just deallocated some blocks so lets make sure the first bitmap block
;that contains available space is correct for the current VCR

		ldy	#msdos_vcr.avail_bitmap
		txa				;relative block number
		cmp	[msdos_vcr_ptr],y
;
; 2/3/90        Mensch, Hauser,Benaresh
;
; Rob says that avail_bitmap should *ALWAYS* be equal to the lowest bitmap
; block that has space in it. So, the branch that was a BEQ should really be
; a BCS (BGE) this way, so it will work right.
;

		bge	go_changed		;the relative block num is the same

;If we freed up a block in a previously full bitmap then lets update the VCR

		sta	[msdos_vcr_ptr],y

go_changed
		jsr	add_free_blk

		Entry	bitmap_changed
bitmap_changed
		clc

;==========================================================================
;This routine will mark the current bitmap block dirty.  NOTE: This routine
;must not change the state of the carry.

		ldy	#msdos_vcr.bitmap_dirty
		lda	#bitmap_mod		;bitmap modified
		sta	[msdos_vcr_ptr],y
done		rts

;==========================================================================
;This routine will add one to the free block count for a volume.  If the
;number of free blocks is unknown then the routine will just exit.

add_free_blk
		ldy	#msdos_vcr.free_blocks
		lda	[msdos_vcr_ptr],y
		inc	a			;$FFFF = free block count unknown
		beq	end_free		;free block count is not known
		sta	[msdos_vcr_ptr],y
end_free
		rts

		ENDP
	endif
	if NOT read_only_fst then
		Eject
;==========================================================================
;get_bit_block: This routine will load in the correct bitmap block from
;               disk.  If the correct block is already loaded then the
;               routine will just exit.
;
;Input:         A = undefined
;               X = relative block number to load
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               msdos_vcr_ptr          (must be setup correctly)
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;               fat_ptr                 (points to file allocation table)
;               drvr_buf_ptr            (same as fat_ptr)
;
;Uses:          All registers
;               device_call
;               drvr_call_num
;

		longa	on
		longi	on

get_bit_block	PROC
		with	my_dp

		phx				;save the block number

		jsr	setup_fat_ptr

		stx	drvr_buf_ptr
		sty	drvr_buf_ptr+2

		pla				;retore relative block number
		sta	math_temp
		ldy	#msdos_vcr.curr_bitmap
		cmp	[msdos_vcr_ptr],y
		beq	good_exit

		pha

;force dirty bitmap block back to disk if needed.

		jsr	force_bitmap		;force the bitmap to disk
		bcc	flushed
		plx
		rts

flushed

;If we get here we have to calculate the right block to read into memory

		pla
		clc
		ldy	#msdos_vcr.bitmap_addr
		adc	[msdos_vcr_ptr],y
		sta	drvr_blk_num
		jsr	read_with_cache
		bcc	read_ok
		jsr	kill_bitmap
		sec
		rts				;return the error

read_ok

;Now we need to update the current bitmap

		ldy	#msdos_vcr.curr_bitmap
		lda	math_temp
		sta	[msdos_vcr_ptr],y

good_exit
		clc
		rts

		ENDP
	endif
	if NOT read_only_fst then
kill_bitmap	Proc
		with	my_dp

		pha
		lda	#bitmap_unknown		;flag bitmap as unknown
		ldy	#msdos_vcr.curr_bitmap
		sta	[msdos_vcr_ptr],y
		pla
		rts
		ENDP
	endif

	if NOT read_only_fst then
		Eject
;==========================================================================
;find_free_blks This routine will scan the bitmap looking for a sequence
;               of blocks that are marked as free.  The routine will always
;               try to allocate the blocks in one large group.  If a group
;               cannot be found to satisfy the request count then this
;               routine will allocate the first available block.
;               At least one block MUST be free for allocation!!!!!!!!!!
;
;Input:         A = number of blocks to allocate. ( 'n' blocks)
;               X = starting block number for search. (might be minus 7 blks)
;               msdos_vcr_ptr          (must be setup)
;                       ^avail_bitmap   (must be valid)
;
;output:        A = error or number of blocks allocated. (1 or 'n')
;               X = starting block number of allocated blocks
;               P = nvmxdizc
;                   ..000..1 = no blocks allocated (error)
;                          0 = allocated
;
;uses:          calc_bits
;               math_temp
;

		longa	on
		longi	on

find_free_blks	PROC	Export
		with	my_dp

		sta	alloc_count		;number of blocks to allocate
		stx	alloc_start		;starting block number for search
		stx	first_free

		jsr	calc_bit		;absolute blk to relative blk.
;
; calc_bit results:
;
;A = bit mask $80 $40 $20 $10 $08 $04 $02 $01
;Y = byte offset in the bitmap buffer
;X = relative block number that contains the block number passed as input
;
		sty	byte_offset		;starting byte in block
		xba
align_loop					; ;set blk num to byte boundary
		asl	a			;check bit position of user block num
		bcs	chk_avail		;ok here
		dec	first_free
		bra	align_loop		;check next bit

chk_avail
		lda	byte_offset		;are we word aligned?
		lsr	a
		bcc	aligned			;yes we are OK

		dec	byte_offset		;now set starting block to word boundary
		sec
		lda	first_free
		sbc	#$0008
		sta	first_free		;everything should be word aligned now.

aligned
		txa
		ldy	#msdos_vcr.avail_bitmap	;see if start is >= first free
		cmp	[msdos_vcr_ptr],y
		bcs	start_ok		;start is >= first free
		lda	[msdos_vcr_ptr],y
		tax
		ror	a
		ror	a
		ror	a
		ror	a
		ror	a			;calc starting block number
		sta	first_free		;ex. rel blk #1 = blk #4096 or $1000
		txa
		stz	byte_offset

start_ok
		stz	last_blk		;starting block for caller
		stz	math_temp		;reset the free block counter

		tax				;now load in the bitmap block
next_blk
		lda	math_temp
		pha				;save temp count
		jsr	get_bit_block
		bcc	got_block
		ply				;fix the stack
		rts				;return error please

got_block
		pla				;reset temp count
		sta	math_temp
		stz	some_free		;indicates if ANY blocks are free!

		ldy	byte_offset		;start looking here for 1st free block
		cpy	#$01FF			;are we near then end?
		bcc	next_word
		ldy	#$01FE

next_word
		ldx	#16			;scan all 16 bits
		lda	[fat_ptr],y		;get a bitmap word (16 blocks)
		bne	check_16		;sorry no bits here.

		stz	math_temp		;reset the counter please.
		stz	last_blk
		bra	no_change

check_16
		xba				;put bits in the right order

		sta	bits
		sta	some_free		;there are free blocks in this dir.
		inc	a			;check 16 please
		bne	scan_loop
;
;special case of all sixteen blocks allocated
;
		clc
		lda	math_temp
		adc	#16			;easy case
		sta	math_temp
		lda	last_blk		;do we have the starting blk yet?
		bne	chk_req_cnt		;we already have start block
		lda	first_free
		sta	last_blk

chk_req_cnt
		lda	math_temp		;see if we are done
		cmp	alloc_count
		bcs	req_filled		;request filled. We are done!!!

no_change
		clc
		lda	first_free
		adc	#16			;bump block number
		sta	first_free
		bra	bump_index		;go get the next word

scan_loop
		lda	math_temp		;see if we are done
		cmp	alloc_count
		bcs	req_filled		;request filled. We are done!!!

		asl	bits			;see if this block is available
		bcc	reset_count		;a used block
		inc	math_temp		;add one to block count
		lda	last_blk
		bne	next_bit
		lda	first_free
		sta	last_blk		;update start block
		bra	next_bit

reset_count
		stz	math_temp		;reset the counter
		stz	last_blk		;reset start block
next_bit
		inc	first_free		;bump the block number
		dex
		bne	scan_loop

		lda	math_temp		;see if we are done
		cmp	alloc_count
		bcs	req_filled		;request filled. We are done!!!

bump_index
		iny
		iny
		cpy	#$01FF			;are we done?
		bcc	next_word		;not yet

		ldy	#msdos_vcr.curr_bitmap	;current loaded bitmap block
		lda	[msdos_vcr_ptr],y
		inc	a			;convert 0 to 'n' to 1 to 'n'+1
		ldy	#msdos_vcr.num_bitmap_blks
		cmp	[msdos_vcr_ptr],y
		bcs	find_one		;no more bitmap blocks to search!

		jsr	bump_1st_free		;bump to next block if needed.

		stz	byte_offset		;reset byte offset
		ldx	first_free
		jsr	abs_to_rel		;calc relative block number
		brl	next_blk		;load in the next block

find_one					; ;allocate one block only
		lda	#$0001
		ldx	#$0000			;start at block 0
		jsr	find_free_blks
		rts

;now we need to update the bitmap blocks!

req_filled
		ldx	last_blk
		ldy	alloc_count
		dey				;convert 1 to 'n' -> 0 to 'n-1'
alloc_loop
		phy				;number of blocks wanted
		phx				;block number to allocate
		jsr	alloc_block		;mark the block as used!
		plx
		ply
		bcs	bad_news
		inx				;allocate the next block
		dey
		bpl	alloc_loop
		lda	alloc_count		;user request satisfied
		ldx	last_blk		;starting block for allocation
		clc				;no error

bad_news
		rts

bump_1st_free
		lda	some_free		;is this block empty?
		bne	bad_news		;no...

		ldy	#msdos_vcr.avail_bitmap	;bump avail to next block if needed
		lda	[msdos_vcr_ptr],y
		ldy	#msdos_vcr.curr_bitmap
		cmp	[msdos_vcr_ptr],y
		bne	bad_news

		ldy	#msdos_vcr.avail_bitmap
		lda	[msdos_vcr_ptr],y
		inc	a
		sta	[msdos_vcr_ptr],y
		rts

		ENDP
	endif
	if NOT read_only_fst then
		Eject
;======================================================================
;flush_bitmap:  This routine forces a dirty bitmap to be written to
;               disk.  The bitmap will be written to disk only if the
;               file counter is equal to zero.
;
;force_bitmap:  same as flush_bitmap except the bitmap block is ALWAYS
;               flushed.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               msdos_vcr_ptr
;               my_vcr_ptr
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
; 
;Uses:          All registers
;               drvr_buf_ptr
;               dev_with_mount
;

		longa	on
		longi	on

flush_bitmap	PROC	Export
		with	my_dp

		ldy	#msdos_vcr.dirty_file_cnt ;see if there open files on disk?
		lda	[msdos_vcr_ptr],y
		beq	force_bitmap		;no open files so do flush.
		clc
		rts				;just exit.

		EXPORT	force_bitmap
force_bitmap					;This entry point force block to disk

		ldy	#msdos_vcr.bitmap_dirty
		lda	[msdos_vcr_ptr],y
		beq	no_change

;Get the device number first

		ldy	#vcr.dev
		lda	[my_vcr_ptr],y
		sta	drvr_dev_num

;We need to update the disk since the bitmap is corrupt
;First we calculate the block number of the block to write

		ldy	#msdos_vcr.bitmap_addr
		lda	[msdos_vcr_ptr],y
		ldy	#msdos_vcr.curr_bitmap
		clc
		adc	[msdos_vcr_ptr],y
		sta	drvr_blk_num
		stz	drvr_blk_num+2

;Get the address of where the bitmap block is located.
;setup drvr_buf_ptr to point to the bitmap buffer

		jsr	setup_fat_ptr
		stx	drvr_buf_ptr
		sty	drvr_buf_ptr+2

;setup the call to do a write

;Force the request count to 512 bytes

		lda	#blk_size
		sta	drvr_req_cnt
		stz	drvr_req_cnt+2

;Call the device.
		jsr	write_with_cache
		bcc	clear_dirty
		rts

clear_dirty
		ldy	#msdos_vcr.bitmap_dirty
		lda	#$0000
		sta	[msdos_vcr_ptr],y

		ldy	#msdos_vcr.curr_bitmap	;see if this is first free block.
		lda	[msdos_vcr_ptr],y

		ldy	#msdos_vcr.avail_bitmap
		cmp	[msdos_vcr_ptr],y
		bne	no_change
		inc	a			;see if this is the last bitmap blk.
		ldy	#msdos_vcr.num_bitmap_blks
		cmp	[msdos_vcr_ptr],y
		bcs	no_change		;this is the last bitmap block

		ldy	#$01FE			;we must check first free
chk_first_free
		lda	[drvr_buf_ptr],y
		bne	no_change
		dey
		dey
		bpl	chk_first_free		;check the entire block please.

		ldy	#msdos_vcr.avail_bitmap	;bump avail to next block please
		lda	[msdos_vcr_ptr],y
		inc	a
		sta	[msdos_vcr_ptr],y

no_change
		clc
		rts
		ENDP
	endif
	if NOT read_only_fst then
		Eject
;==========================================================================
;slug_ripple:   This routine will time stamp the parent directories for ALL
;               operations that require writing to the directory.  This
;               routine is SLOW and is very stupid on our type of system.
;               It is put here for compatability only.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               drvr_buf_ptr            (points to the directory entry)
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Uses:          All registers
;               device_dispatcher
;
		longa	on
		longi	on

slug_ripple	PROC	Export
		with	my_dp

		lda	time_stamp_opt		;are we time stamping at all?
		bne	do_stamp
		clc
		rts
do_stamp
		lda	drvr_blk_num
		pha
		lda	drvr_buf_ptr
		pha
		lda	drvr_buf_ptr+2
		pha

		jsr	pack_time		;get the time please

		clc
		lda	gbuf_addr
		adc	#blk_size
		sta	drvr_buf_ptr
		lda	gbuf_addr+2
		adc	#$0000
		sta	drvr_buf_ptr+2

		lda	slug_block		;setup the block
		bne	@around
		brl	do_volume_mod		;no slug block, so time stamp the volume please

@around		sta	drvr_blk_num

slug_loop
		jsr	read_with_cache		;read in the block please
		bcs	end_slug_err

		ldy	slug_offset		;offset to the entry
		lda	[drvr_buf_ptr],y
		and	#$00F0			;check the storage type
		cmp	#subdir_type
		bne	bad_slug_dir		;sorry bud

		tya
		clc
		adc	#dir_entry.time
		tay				;index to the last mod field
		lda	pro_time+2		;Get the time we are going to stamp with
		sta	[drvr_buf_ptr],y
		lda	pro_time		;and the date
		iny
		iny
		sta	[drvr_buf_ptr],y

		ldy	slug_offset		;offset to the entry
		tya
		clc
		adc	#dir_entry.attributes
		tay				;index to the access field
		sep	#$20
		lda	[drvr_buf_ptr],y	;only an 8-bit field
		ora	#archive		;set the backup bit
		sta	[drvr_buf_ptr],y
		rep	#$20
		longa	on

		jsr	write_with_cache
		bcs	end_slug_err		;a major error


		lda	time_stamp_opt		;are we walking to root?
		dec	a
		beq	end_slug		;not today.

		clc
		lda	slug_offset		;offset to the entry
		adc	#header_ptr_index	;point to the header pointer please
		tay
		lda	[drvr_buf_ptr],y
		cmp	#vol_dir_start		;is this the root?
		beq	do_volume_mod		;set the volume modification date

		cmp	drvr_blk_num		;is the block already loaded?
		beq	block_loaded		;you bet-cha
		sta	drvr_blk_num		;next block to read
		jsr	read_with_cache
		bcs	end_slug_err		;sorry bud major error

block_loaded
		ldy	#parent_index
		lda	[drvr_buf_ptr],y
		sta	drvr_blk_num		;new block number
		iny
		iny				;get the entry number
		lda	[drvr_buf_ptr],y
		jsr	entry_to_offset
		sta	slug_offset		;the new offset
		bra	slug_loop		;ripple to the top.

bad_slug_dir
		lda	#dir_error
		bra	end_slug_err

end_slug
		clc

end_slug_err
		plx
		stx	drvr_buf_ptr+2
		plx
		stx	drvr_buf_ptr
		plx
		stx	drvr_blk_num
		rts
;
;Now lets go and time stamp the volume please
;
do_volume_mod
		lda	#vol_dir_start		;Setup the block number for the Root
		sta	drvr_blk_num
		jsr	read_with_cache		;read in the block please
		bcs	end_slug_err		;I hate it with this happens

		ldy	#vol_mod_offset		;offset to the Mod time field for the volume
		lda	pro_time
		sta	[drvr_buf_ptr],y
		iny
		iny
		lda	pro_time+2
		sta	[drvr_buf_ptr],y	;store the time

						;new code added 3/15/91 CAE
		ldy	#vol_acc_offset		;offset to the access field
		lda	[drvr_buf_ptr],y
		ora	#backup_on		;set the backup bit on disk
		sta	[drvr_buf_ptr],y
						;end of new code

		ldy	#msdos_vcr.mod_date	;update the VCR as well as the disk
		lda	pro_time
		sta	[msdos_vcr_ptr],y
		iny
		iny
		lda	pro_time+2
		sta	[msdos_vcr_ptr],y

						;new code added 4/4/91 CAE
		ldy	#msdos_vcr.access	;offset to the access field
		lda	[msdos_vcr_ptr],y
		ora	#backup_on		;set the backup bit in the VCR
		sta	[msdos_vcr_ptr],y	;so that the disk and VCR match

		jsr	write_with_cache
		bcs	end_slug_err		;a major error
		bra	end_slug		;no error, all is wonderful
		ENDP
	endif
	if NOT read_only_fst then
		Eject
;==========================================================================
;extend_subdir  This routine will extend a directory if needed.
;
;input:         free_dir_blk            ;dir blk with a empty entry.
;               dir_start_blk           ;starting block of the directory
;               dir_last_blk            ;last block of the directory
;
;output:        free_dir_blk            ;dir blk with a empty entry.
;               free_dir_offset         ;offset to directory entry within block
;               dir_start_blk           ;starting block of the directory
;               dir_last_blk            ;last block of the directory
;

		longa	on
		longi	on

extend_subdir	PROC	Export
		with	my_dp,expand_record

		bit	expand_file		;are we adding a directory entry?
		bmi	good_exit		;if we are expanding a file we donot need to extend the
						;directory

		lda	free_dir_blk		;is there a free entry for this file?
		bne	good_exit		;do not extend the directory

		lda	dir_start_blk
		cmp	#vol_dir_start		;is this the root directory?
		bne	not_root

		lda	#vol_dir_full		;return an error please
		sec
		rts

not_root
		lda	#$0001			;allocate one block for directory.
		ldx	dir_last_blk		;start looking here for next block
		jsr	find_Free_blks		;go and get one
		bcs	error_out		;error out
		stx	drvr_blk_num		;this is the new directory block

		stx	free_dir_blk		;new block number
		lda	#$0004			;index to first free entry
		sta	free_dir_offset

		jsr	set_default_buf		;use the genaral buffer
		jsr	standard_req		;512 byte write
		jsr	clear_dir_buf		;clear the 512 byte general buffer
		jsr	append_last_blk
		bcs	error_out		;major problem
		jsr	update_forw_lnk		;update forward link to new block
		bcs	error_out
		jsr	update_parent		;update parents blocks used count
		bcs	error_out
good_exit
		clc
error_out
		rts				;extend complete

;==========================================================================
;Update_parent: This routine will update the blocks used and last mod date
;               of the parent entry for the directory.

update_parent
		lda	dir_start_blk
		sta	drvr_blk_num		;key block for directory
		jsr	read_with_cache
		bcs	exit_update

		ldy	#parent_index
		lda	[gbuf_ptr],y		;get the parent block number
		sta	drvr_blk_num

		ldy	#par_entry_num
		lda	[gbuf_ptr],y
		and	#$00FF			;get the number
		dec	a
		cmp	#$000D			;number of entries
		bcs	bad_dir_bud
		asl	a			;times 2 for a word table
		tay
		lda	dir_offset_tbl,y
		sta	entry_offset		;save offset to dir entry

		jsr	read_with_cache		;read in the parent block
		bcs	exit_update
		ldy	entry_offset
		lda	[gbuf_ptr],y
		and	#$00F0			;is this a subdir entry?
		cmp	#subdir_type
		bne	bad_dir_bud

		tyx

		clc
		tya
		adc	#$0013			;index to blocks used for file
		tay
		lda	[gbuf_ptr],y
		inc	a
		sta	[gbuf_ptr],y
		iny
		iny				;point to EOF

		clc
		lda	[gbuf_ptr],y
		adc	#blk_size
		sta	[gbuf_ptr],y		;add 512 to the EOF field
		bcc	good_eof
		iny
		iny				;point to the third byte of EOF
		longa	off
		sep	#$20			;short A
		lda	[gbuf_ptr],y
		inc	a
		sta	[gbuf_ptr],y
		longa	on
		rep	#$20

good_eof
		clc
		txa
		adc	#$0021			;index to mod time
		pha
		jsr	pack_time
		ply				;index
		lda	pro_time
		sta	[gbuf_ptr],y		;update mod time
		iny
		iny
		lda	pro_time+2
		sta	[gbuf_ptr],y

		jsr	write_with_cache
exit_update
		rts

bad_dir_bud
		lda	#dir_error		;bad directory block
		sec
		rts


;==========================================================================
;update_forw..  This routine will link the new directory block just
;               allocated to the current last block of the directory.

update_forw_lnk
		lda	dir_last_blk
		sta	drvr_blk_num		;now read in the directory block.
		jsr	read_with_cache
		bcs	forw_exit		;major problems. sorry about droppings!

		ldy	#$0002			;index to next pointer
		lda	[gbuf_ptr],y
		bne	bad_dir_bud
		lda	free_dir_blk		;forward link directory block.
		sta	[gbuf_ptr],y
		jsr	write_with_cache
forw_exit	rts

;==========================================================================
;append_last..  This routine will link the new block to the previous
;               block in the directory.

append_last_blk
		lda	dir_last_blk		;setup the backward link
		sta	[gbuf_ptr]
		jsr	write_with_cache
		rts

clear_dir_buf
		ldy	#$01FE			;clear the general work buffer
		lda	#$0000

clear_dir
		sta	[gbuf_ptr],y
		dey
		dey
		bpl	clear_dir		;every body happy now!
		rts

		ENDP
	endif

		Eject
;======================================================================
;make_rfork_name
;		This routine will build a pathname to the resource fork
;		file associated with the filename specified in path1.
;		It does this by inserting the RESOURCE.FRK subdirectory
;		name into the pathname prior to the leaf name (filename).
;
;Created:       Oct 06, 1992
;Modified:      
;Author:        Greg Branche
;
;
;Enter:         
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               path1_ptr	points to pathname to convert
;		drvr_dev_num	device number of drive containing file
; 
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;               namebuf_vp	virtual pointer to pathname
;		namebuf_ptr	pointer to pathname
;		NOTE: namebuf_vp must be deallocated by caller
; 
;Uses:          All registers
;               temp4_ptr
;		build_path
;		find_file
;
;======================================================================
		longa	on
		longi	on

make_rfork_name	Proc	Export
		with	my_dp

; save math_temp

		pei	math_temp

		lda	[path1_ptr]		;retrieve existing length
		clc
		adc	#25			;allow for extra names
		jsl	alloc_seg		;get some memory
		bcc	@1
		brl	main_exit
		
@1
		stx	namebuf_vp
		sty	namebuf_vp+2
		jsl	deref
		stx	namebuf_ptr
		sty	namebuf_ptr+2

		lda	[path1_ptr]		;get length
		inc	a			;allow for leading length word
		sta	temp4_ptr		;save temporarily
		inc	temp4_ptr		;for comparison later
		tay
		sep	#$20			;8-bit accumulator
		longa	off
		lda	#':'			;looking for separator
@loop
		dey
		cpy	#2			;found beginning of pathname?
		bcc	at_separator		;yup, no volume name supplied
		cmp	[path1_ptr],y		;at separator?
		bne	@loop			;no, keep looking
at_separator
		iny
		sty	math_temp		;this is the offset of the first character of the filename
		cpy	#2			;was there a path name?
		beq	@no_pathname		;no, just the filename
		ldy	#2			;start copying pathname into temp buffer
@1
		lda	[path1_ptr],y
		sta	[namebuf_ptr],y
		iny
		cpy	math_temp
		bcc	@1
@no_pathname
		ldx	#0
@2
		lda	ResForkName+2,x		;now copy in the subdirectory name
		sta	[namebuf_ptr],y
		iny
		inx
		cpx	ResForkName		;done entire name yet?
		bcc	@2			;no
		
		tyx				;save destination index
		ldy	math_temp		;retrieve source index
@3
		lda	[path1_ptr],y		;get a character
		phy
		txy
		sta	[namebuf_ptr],y
		inx
		ply
		iny
		cpy	temp4_ptr		;done with filename yet?
		bcc	@3			;no, loop
		lda	#0			;null terminate the pathname
		txy
		sta	[namebuf_ptr],y
		rep	#$20			;16-bit accumulator
		longa	on
		txa				;get final length
		dec	a			;adjust for final length
		dec	a
		sta	[namebuf_ptr]		;and store
		pla
		sta	math_temp
		rts

		Endp

		Eject
;======================================================================
;move_dir_entry This routine will move the 32 byte entry pointed to by
;               drvr_buf_ptr to one_entry.  If the entry pointed to
;               is a volume header then I will simulate a normal 32
;               byte entry. 
;
;Created:       may 05, 1987
;Modified:      may 05, 1987
;Author:        Rob Turner
;
;
;Enter:         from open call
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               drvr_buf_ptr            (points to the 32 byte entry from disk) 
; 
;Output:        A = undefiend
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;               one_entry               (contains a 32 byte entry)
; 
;Uses:          All registers
;               General I/O Buffer      (1K buffer, I read 512 bytes)
;               drvr_buf_ptr
;
;======================================================================
		longa	on
		longi	on

move_dir_entry	PROC	Export

		ldy	#entry_length-2		;move a file entry
move_loop	lda	[drvr_buf_ptr],y
		sta	one_entry,y
		lda	#0			;zero resource fork entry
		sta	rfork_entry,y
		dey
		dey
		bpl	move_loop

		ldy	#dir_entry.attributes	;look at the entry's attributes
		lda	[drvr_buf_ptr],y
		bit	#vol_label		;volume label?
		bne	simulate_entry		;yes, must simulate entry

		ldx	#seedling_type		;storage type always = 1
		bit	#subdirectory		;unless it's a directory
		beq	@not_directory
		ldx	#subdir_type
@not_directory
		stx	storage_type

;==========================================================================
;Now copy the filename from the entry into a separate buffer so we can
;insert the period if necessary.  We also set the string length word to
;make the whole thing into a class 1 string
;==========================================================================
		sep	#$20			;8-bit accumulator
		longa	off
		ldy	#0			;start at the beginning
		tyx				;set x too (for later)
@loop
		lda	one_entry,y		;get a character
		cmp	#' '			;space?
		beq	@do_extension		;yes, now do the extension
		sta	filename.text,y		;else store it
		iny
		cpy	#8			;done 8 characters?
		bcc	@loop			;nope, back for more
@do_extension
		lda	#'.'			;insert the field separator
		sta	filename.text,y
		iny
@ext_loop
		lda	one_entry+8,x		;get an extension character
		cmp	#' '			;space?
		beq	@set_length		;yup, save the final length
		sta	filename.text,y		;else add it to the name
		iny
		inx
		cpx	#3			;done all three characters?
		bcc	@ext_loop		;no...
@set_length
		txa				;WAS there any extension character?
		bne	@store_it		;yes...
		dey				;else fix length so '.' isn't included
@store_it
		sty	filename.length		;save the final length
		rep	#$20			;back to full native mode
		longa	on
;
; we now check the call number to see if we should look for a resource
; fork.  Currently, we only do this for GetFileInfo and Open
;
		lda	call_number
		and	#(Åclass_mask) AND $FFFF	;strip class field
		cmp	#$0010			;open call?
		beq	@rfork_chk		;yup
		cmp	#$0006			;GetFileInfo?
		bne	@skip_rfork		;no, skip it
@rfork_chk
		jsr	chk_4_rfork		;go see if there's a resource fork
@skip_rfork
		rts

;==========================================================================
;below we setup the volume directory as a subdirectory.  To do this
;we setup the following fields:
;==========================================================================
; File_type     := $0F                  (directory File)
; Key_pointer   := vol_dir_start        (starting block for directory = 2)
; Blocks_used   := (Calculated from disk)
; EOF           := (Calculated from disk)
; AUX Type      := $0000                (zero the aux field)
; Last_mod      := $00000000            (don't have this info)
; Header Ptr    := $0002                (Starting block of owning directory)
;==========================================================================

simulate_entry
		lda	#volume_header
		sta	storage_type

;==========================================================================
;Now setup the file type as a subdirectory entry
;==========================================================================

		sep	#$20
		longa	off
		lda	#subdirectory
		tsb	one_entry.attributes

		ldy	#0			;start at the beginning
@loop
		lda	one_entry,y
		cmp	#' '			;end it at the first space
		beq	@set_length
		sta	filename.text,y
		iny
		cpy	#11			;done 11 characters yet?
		bcc	@loop			;no...
@set_length
		sty	filename.length

		rep	#$20
		longa	on
		rts

;=========================================================================
;Perform some magic to see if there's a resource fork associated with this
;file
;=========================================================================

chk_4_rfork
		with	my_dp

		jsr	make_rfork_name		;go make the pathname

; we now have the pathname built.  Go find the file

		lda	#path1_mask		;and mask for path_flag
		ldx	namebuf_ptr
		ldy	namebuf_ptr+2
		jsr	build_path
		lda	drvr_dev_num
		jsr	find_file		;try to locate the file
		bcs	no_rfork		;not found, for whatever reason
		stx	temp4_ptr		;save pointer to entry
		sty	temp4_ptr+2

		ldy	#entry_length-2		;move the file entry into special storage
rmove_loop	lda	[temp4_ptr],y
		sta	rfork_entry,y
		dey
		dey
		bpl	rmove_loop

		lda	#resource_type		;set the proper storage type
		sta	storage_type
no_rfork

; clean up after ourselves

		ldx	namebuf_vp
		ldy	namebuf_vp+2
		jsl	release_seg

		rts

		ENDP

		Eject
;======================================================================
;get_next_fcr:  This routine will load find the next FCR that belongs
;               to MSDOS.
;
;Created:       may 23, 1987
;Modified:      may 23, 1987
;Author:        Rob Turner
;
;
;Enter:         from open call
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               fcr_wanted              (counter for FCR, reset by caller!)
; 
;Output:        A = undefiend
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error    (end of FCRs)
;                          0 = no error
;               b = k
;
;               msdos_fcr_ptr
;               my_fcr_ptr              (points to the found FCR)
;
;Uses:          All registers
;               system_routines
;
;======================================================================
		longa	on
		longi	on

get_next_fcr	PROC	Export
		with	my_dp

loop
		lda	fcr_wanted
		inc	a
		sta	fcr_wanted
		jsl	get_fcr			;see if this is a fcr
		bcs	done

		jsl	deref			;convert VP to RP
		stx	my_fcr_Ptr
		sty	my_fcr_ptr+2

		ldy	#fcr.fst_id		;see if this one is mine
		lda	[my_fcr_ptr],y
		cmp	#fst_id
		bne	loop			;not mine so who cares

		jsr	setup_my_fcr

		clc
done
		rts

		ENDP

		Eject
;======================================================================
;check_dup:     This routine will check for duplicate file entries.
;               To do this I look to see if the starting block of
;               the FCR is equal to the starting block of the file I am
;               trying to open. 
;
;Created:       may 04, 1987
;Modified:      may 06, 1987
;Author:        Rob Turner
;
;
;Enter:         from open call
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               one_entry               (39 byte entry from disk) 
;               access                  (requested access for open)
; 
;Output:        A = error code if carry set. (duplicate error)
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;Uses:          All registers
;               General I/O Buffer      (1K buffer, I read 512 bytes)
;               find_fcr                (system routine to find a fcr
;               my_fcr_ptr
;               msdos_fcr_ptr
;               access
;               resource_num
; 
;======================================================================
		longa	on
		longi	on

check_dup	PROC	Export
		with	my_dp

		stz	fcr_wanted		;reset for get_next_fcr

		ldx	one_entry.start_cluster
		lda	resource_num		;trying to open resource fork?
		beq	@store_start		;nope
		ldx	rfork_entry.start_cluster
@store_start
		stx	key_block

next_loop
		jsr	get_next_fcr
		bcs	done

		ldy	#fcr.vol_id
		lda	[my_fcr_ptr],y		;get the Volume ID so we can make sure the file is on
		cmp	[my_vcr_ptr]		;the same volume.
		bne	next_loop		;File is on another volume

		ldy	#msdos_fcr.start_cluster ;index to key block of this file
		lda	[msdos_fcr_ptr],y
		cmp	key_block		;is this the same block?
		bne	next_loop		;no problem with this file

		ldy	#fcr.access		;see if this file was open for writing
		lda	[my_fcr_ptr],y
		and	#ClrAllButAccess
		cmp	#write_access
		bcs	file_is_busy		;sorry this file is busy right now

;==========================================================================
;If we get here we know that the current file is the same and that it is
;open for read only.  Therefore we must check the requested access of the
;file that we are currently opening.  If the user wants read only access
;then there is no problem.
;==========================================================================

		lda	users_access		;did the user want "open_as_permitted"
		beq	open_as_perm		;user request open as permitted. 
		cmp	#write_access
		bcc	open_ok
file_is_busy
		lda	#file_busy		;carry already set when we get here
open_ok
		rts				;error out to caller 

open_as_perm
		lda	#read_access
		sta	access			;change the user's access to Read Only.

done		clc				;indicate no problem
		rts
		ENDP

		Eject
;==========================================================================
;set_fcr_status This routine will set bits in the FCR pointed to by
;               'msdos_fcr_ptr'
;
;Input:         A = ORA Mask
;
;OutPut:        Operation complete
;
;Uses:          A and Y registers
;==========================================================================

set_fcr_status	PROC	Export
		with	my_dp

		ldy	#msdos_fcr.status
		ora	[msdos_fcr_ptr],y
		sta	[msdos_fcr_ptr],y
		rts
		ENDP

		Eject
;========================================================================== 
;setup_io_buf   This routine will fill the I/O buffer with the correct
;               data
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               one_entry               (32 byte entry from disk) 
;               FCR                     (setup)
;
;Output:        A = error code if carry set.
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;Uses:          All registers
;
;==========================================================================

setup_io_buf	PROC	Export
		with	my_dp

		jsr	standard_req

		ldy	#msdos_fcr.start_cluster
		lda	[msdos_fcr_ptr],y	;get the starting cluster number
		ldy	#msdos_fcr.curr_cluster
		sta	[msdos_fcr_ptr],y	;remember where we're at
		jsr	cluster2block		;convert to a block number
		sta	drvr_blk_num
		stz	drvr_blk_num+2
		ldy	#msdos_fcr.cluster_blk_num
		lda	#0			;fresh cluster, reset the block number
		sta	[msdos_fcr_ptr],y

		lda	#in_cache
		sta	drvr_cache

		ldx	data_ptr
		ldy	data_ptr+2
		stx	drvr_buf_ptr
		sty	drvr_buf_ptr+2		;save the pointer to the buffer
		jsr	read_with_cache
		rts

		ENDP

		Eject
;==========================================================================
;setup_curr_mark This routine will load the current file marker out of the
;               FCR and store it in curr_mark
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               msdos_fcr_ptr           (points to my FCR data)
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               curr_mark               (contains current file marker)
;
;Uses:          All registers
;==========================================================================
		longa	on
		longi	on

setup_curr_mark	PROC	Export
		with	my_dp

		ldy	#msdos_fcr.curr_mark
		lda	[msdos_fcr_ptr],y
		sta	curr_mark
		iny
		iny
		lda	[msdos_fcr_ptr],y
		sta	curr_mark+2
		rts
		ENDP

		Eject
;==========================================================================
;setup_curr_eof This routine will load the current end of file out of the
;               FCR and store it in curr_eof
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               msdos_fcr_ptr           (points to my FCR data)
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               curr_eof                (contains current end fo file)
;
;Uses:          All registers
;==========================================================================
		longa	on
		longi	on

setup_curr_eof	PROC	Export
		with	my_dp

		ldy	#msdos_fcr.eof
		lda	[msdos_fcr_ptr],y
		sta	curr_eof
		iny
		iny
		lda	[msdos_fcr_ptr],y
		sta	curr_eof+2
		rts
		ENDP

		Eject
;==========================================================================
;save_curr_mark This routine will save the current end of file into the
;               FCR.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               msdos_fcr_ptr           (points to my FCR data)
;               curr_mark
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Uses:          A and Y  registers
;==========================================================================
		longa	on
		longi	on

save_curr_mark	PROC	Export
		with	my_dp

		ldy	#msdos_fcr.curr_mark
		lda	curr_mark
		sta	[msdos_fcr_ptr],y
		iny
		iny
		lda	curr_mark+2
		sta	[msdos_fcr_ptr],y
		rts
		ENDP

		Eject
;==========================================================================
;check_base     This routine will verify that the base is within range
;
;Created:       may 23, 1987
;Modified:      may 23, 1987
;Author:        Rob Turner
;
;
;Enter:         jsr
;
;Input:         A = undefined
;               X = undefined
;               Y = offset to base field
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;               BASE                    (contains value of the base)
;
;Uses:          All registers
;
;==========================================================================
		longa	on
		longi	on

check_base	PROC	Export
		with	my_dp

		lda	[my_pblk_ptr],y
		cmp	#max_base+1
		bcs	range_error
		sta	base
		rts

range_error
		lda	#parm_range_err
		brl	main_exit
		ENDP

		End
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/FSTs/MSDos/MSDos.Subs.inc b/IIGS.601.SRC/GS.OS/FSTs/MSDos/MSDos.Subs.inc
new file mode 100644
index 0000000..ccff6fd
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/FSTs/MSDos/MSDos.Subs.inc
@@ -0,0 +1 @@
+; MSDos.Subs.inc - include file which defines all of the public subroutines
; contained in the MSDos.Subs.aii file.

		Import	pack_time
		Import	convert_time
		Import	unpack_time
		Import	get_fat_entry
		Import	Cluster2Block
		Import	deref_map
		Import	get_file_type
		Import	calc_free_blks
		Import	count_blks_used
		Import	free_vcr
		Import	remove_fcr
		Import	setup_params
		Import	check_spans
		Import	process_path
		Import	send_info
		Import	send_time
		Import	chk_disk_protect
		Import	mount_volume
		Import	build_path
		Import	set_default_buf
		Import	standard_req
		Import	setup_my_vcr
		Import	setup_my_fcr
		Import	setup_io_ptrs
		Import	clear_gbuf_low
		Import	fill_gbuf_low
		Import	clear_gbuf_hi
		Import	read_write_setup
		Import	rw_adjust
		Import	read_with_mount
		Import	write_with_mount
		Import	read_with_cache
		Import	write_with_cache
		Import	device_call
		Import	flush_file
		Import	do_fast_flush
		Import	flush_io_buffer
		Import	flush_index
		Import	flush_data_blk
		Import	clr_fcr_status
		Import	chk_swapped
		Import	id_disk
		Import	find_file
		Import	setup_name
		Import	calc_bit
		Import	dealloc_block
		Import	find_free_blks
		Import	flush_bitmap
		Import	force_bitmap
		Import	slug_ripple
		Import	extend_subdir
		Import	build_rfork_name
		Import	move_dir_entry
		Import	get_next_fcr
		Import	check_dup
		Import	set_fcr_status
		Import	setup_io_buf
		Import	setup_curr_mark
		Import	setup_curr_eof
		Import	save_curr_mark
		Import	check_base
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/FSTs/MSDos/MSDos.aii b/IIGS.601.SRC/GS.OS/FSTs/MSDos/MSDos.aii
new file mode 100644
index 0000000..451133e
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/FSTs/MSDos/MSDos.aii
@@ -0,0 +1 @@
+dbg_brk_in	equ	0	;change to 0 to remove the debugging break
    if dbg_brk_in then
	writeln '#   Debugging Break still installed!'
	writeln 'File "{MSDos}"MSDos.aii; Line 1'
    endif

;======================================================================
;
; MSDos FST - A GS/OS File System Translator used to access the MSDos
; file system.  Based on the ProDOS FST by Rob Turner.
;
;Created:   November 15, 1990
;Modified:  
;Author:    Greg Branche
;
;
;Copyright Apple Computer Inc. 1987-92  ALL RIGHTS RESERVED
;
;======================================================================
;
; Date          Who             What
; --------      ----            ---------------------------------------
; 11/15/90      Greg Branche    Initial conversion started
; 07/01/91      Greg Branche    Brought up to date with latest ProDOS FST
; 09/??/91	Greg Branche	Volume call working (for the most part)
; 12/??/91	Greg Branche	GetFileInfo call working
; 01/03/92	Greg Branche	Open and Close calls working
; 01/09/92	Greg Branche	Brought up to date with latest ProDOS FST
; 01/12/92	Greg Branche	GetDirEntry and GetDevNumber working
; 01/29/92	Greg Branche	id_disk now properly synthesizes a volume
;				label for a disk that has none.
; 03/30/92	Greg Branche	Updated with ProDOS FST v4.01.
;				GetEOF is now working.
;				GetMark is now working.
;				Started getting Read and SetMark working.
; 05/15/92	Greg Branche	Read, SetMark, and Flush now working, which
;				means we now have a full, read-only FST!
; 07/21/92	Dave Lyons	Fixed multichar newline bug in slow_read,
;				like earlier ProDOS FST fix.
; 08/11/92	Dave Lyons	Added auxtype word to map table.
; 08/25/92	Dave Lyons	FSTSpecific map_enable and set_map_table
;				now walk the VCR list and post a volume
;				changed event for every swapped-in MS-DOS
;				VCR.
; 09/01/92	Greg Branche	Fixed bug #1041461.  check_block was
;				returning success when it found a
;				matching volume label directory entry.
;				Fixed bug in find_file which prevented
;				proper searching of multi-block
;				subdirectories.  The logic was not setting
;				the cluster number and sectors-per-cluster
;				variables prior to starting the search
;				through the subdirectory.
; 10/10/92	Greg Branche	Add resource fork support (as also
;				supported by PC Exchange on the Mac) to
;				GetDirEntry, GetFileInfo, and Open.
; 01/18/93	Greg Branche	Fix check_vol_syntax in MSDos.Subs.aii to
;				allow _any_ character in a volume label
;				except the GS/OS separator character.
;
; 2-Apr-93   Steve Stephenson	Changed version to $0100 for 6.0.1 (final)
;
;======================================================================

		include	'MSDos.equ'

;======================================================================
;Below is the FST header definition used by GS/OS at boot time
;======================================================================

fst_header	PROC
		Import	appl_call,system_call

		DC.B	'FST '			;Says I'm a FST
		DC.L	appl_call		;Process a normal application call
		DC.L	system_call		;Process a FST system call
		DC.W	fst_id			;My ID number (MSDos)
		Export	fst_attr
;			 Upper-case pathnames
;			 |Character-based FST
;			 ||Format capable
;			 |||Strip high bits from pathname characters
;			 ||||Read-Only FST
;			 |||||Reserved
;			 ||||||||||||||Format type
;			 ||||||||||||||||  (00 = Universal)
;			 ||||||||||||||||  (01 = Apple-generic)
;			 ||||||||||||||||  (10 = Non-Apple)
;			 ||||||||||||||||  (11 = Apple-][ specific)
fst_attr	DC.W	%1000100000000010	;attributes
						;(UpperCase, ReadOnly)
		DC.W	$0100			;Version 1.0
		DC.W	512			;block size
		DC.L	$10000			;Max Blocks (32 meg)
		DC.L	$0004			;Min Blocks
		DC.L	$ffffffff		;max file size
		DC.L	$0000			;reserved
		DC.B	6
		DC.B	'MS-DOS'

		string	pascal
		DC.B	'MS-DOS FST            v01.00'

		DC.W	0000			;reserved field
		dc.b	'MS-DOS FST written by Greg Branche V1.00'
		string	asis

		ENDP

;======================================================================
;Below is the main entry point for ALL standard operating system calls.
;
;Input:         X = Call number * 2
;               Y = Class number * 2
;               A = undefined

		longa	on
		longi	on

appl_call	PROC
		with	my_dp
		
		import	max_call,write_occurred,write_dev_num
		import	cp_device_flag,fake_name_str,error_priority
		import	show_damage

		import	cmd_tbl,dirty_flags,chk_dirty_flag,flags

		Entry	cmd_error
		EXPORT	error_exit,main_exit

		phk				;setup our bank register
		plb
		rep	#$30

		cpx	#max_call+1		;check command number
		bcs	cmd_error
		jmp	(cmd_tbl-2,x)		;call the function

cmd_error
    if dbg_brk_in then
	txa		;convert to application call #
	lsr a
	brk 'G'		;then halt so we can find out what call it is
	dc.b $42,'B'	;(unique signature, I hope)
    endif
		lda	#bad_system_call
error_exit
		sec
main_exit

; If we're reporting an error, then check cp_device_flag to see if we were
; renaming a duplicate volume.  If so, we built a vcr with a fake name.  Since we 
; got an error at some point in the process, we need to find the vcr with the fake
; name and release it if it still exists.  1/22/91 CAE

		pha				;save the error code
		php				;save error flag
		bcc	@cont			;branch if no error
		lda	cp_device_flag		;did we build a vcr with a fake name?
		bpl	@cont			;no - so no need to clean up

		ldx	#fake_name_str		;get pointer to fake name string
		ldy	#^fake_name_str
		lda	#0000			;search by name
		jsl	find_vcr
		bcs	@cont			;didn't find the vcr so we're ok
		jsl	deref			;dereference vcr pointer
		stx	<temp_ptr
		sty	<temp_ptr+2
		lda	[temp_ptr]		;get vcr id 
		jsl	release_vcr		;release the vcr
@cont
		jsl	unlock_mem		;unlock the used handles
		plp
		php
		bcc	no_damage

		lda	2,s			;get access to the error code
		and	#$00FF			;clear the garbage from the high byte please
		cmp	#drvr_bad_block		;the disk is probably bad
		beq	mark_damaged		;mark the volume as damaged
		cmp	#damaged_bitmap
		beq	mark_damaged
		cmp	#dir_error
		bne	no_damage		;the disk is still ok

mark_damaged
		lda	msdos_vcr_ptr		;make sure there is a vcr
		ora	msdos_vcr_ptr+2
		beq	no_damage

		ldy	#msdos_vcr.vol_damaged	;mark the VCR please
		lda	[msdos_vcr_ptr],y
		inc	a			;see if we have already told the user about the damage
		beq	no_damage		;we have told the user so skip the message

		lda	#$FFFF
		sta	[msdos_vcr_ptr],y
		lda	1,s			;tell the user about the problem
		jsr	show_damage

no_damage
;
;Now we need to set the Global Clean Flag if we need to
;
		lda	msdos_fcr_ptr		;make sure there is a fcr
		ora	msdos_fcr_ptr+2
		beq	@no_fcr			;don't worry about it

		lda	flags			;There is a FCR now make sure it was used during the call.
		and	#fcr_used
		beq	@no_fcr			;no FCR is used by the call

		ldy	#msdos_fcr.status	;get the status out of the File Control Record
		lda	[msdos_fcr_ptr],y
;
;If my bit (15) is set then the file is dirty so we must clear the Global_Clean Bit.
;
		and	#file_dirty		;clear all but the file dirty bit 15
		eor	#set_global_clean
		sta	math_temp

		ldy	#fcr.access
		lda	[my_fcr_ptr],y
		and	#clr_global_clean
		ora	math_temp
		sta	[my_fcr_ptr],y
;
;Now we need to see if we should check if the file has become dirty during the call
;
		lda	chk_dirty_flag
		beq	@no_fcr			;This call does not require processing
;
;Now lets see if the file was dirty at the beginning of the call.  If it was then just
;exit.  Otherwise update the dirty_file count in the VCR
;
		lda	dirty_flags
		bne	@no_fcr			;the file was dirty at the beginning

		ldy	#msdos_fcr.status	;get the status out of the File Control Record
		lda	[msdos_fcr_ptr],y
		and	#file_dirty+\
			data_dirty+\
			index_dirty+\
			master_dirty
		beq	@no_fcr			;The file is still clean
;
;Now we must update the dirty file count
;
		ldy	#msdos_vcr.dirty_file_cnt ;get the original count
		lda	[msdos_vcr_ptr],y
		inc	a
		sta	[msdos_vcr_ptr],y
@no_fcr
		lda	write_occurred		;see if a volume was modified during the call
		beq	@no_write		;no write occurred

		lda	call_number		;the call that was made by application
		pha
		ldx	write_dev_num		;push the device number
		phx
		phy				;we do not care about Y

		lda	#volume_change		;this is the event code
		ldx	#^volume_change
		jsl	post_os_event		;post the event please
@no_write
		plp				;restore error flag
		pla				;restore error code
		ora	error_priority		;put error priority in hi byte  3/5/91 CAE

		jml	sys_exit

		ENDP

	if read_only_fst then
		eject
******************************************************************************
*
*	 Name:	write_protect
*
* Description:	A common handler for all calls which require writing to	disk.
*		Will call process_path,	and if successful, will	return a
*		drvr_wr_prot error.  Always returns an error.
*
*     Created:	Dec 14,	1987
*    Modified:	Dec 14,	1987
*      Author:	Bryan Atsatt
*
*	Entry:	jsr
*
*	Input:	A = undefined
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000...
*		B = K
*
*      Output:	A = error code
*		X = undefined
*		Y = undefined
*		P = nvmxdizc
*		    ..000..1 = error
*		B = K
*
*	 Uses:	All registers
*		process_path
*
******************************************************************************

write_protect	proc
		with	my_dp
		Import	process_path

*
* Go look for the requested file.  Found?
*
		jsr	process_path		;Go find it.
		bcs	exit			;Error,	so exit.
*
* Yes, but we can't write, so exit with write protect error...
*
		Entry	wp_error
wp_error
		lda	#drvr_wr_prot		;Get error code.
exit2		sec				;Indicate error.
exit		jmp	main_exit		;Exit.


		Entry	INVALID_OP
invalid_op					;	        
		lda	#invalid_fst_op		;Get invalid op error.
		bra	exit2

		ENDP
	endif
		Eject
;======================================================================
;Below is the main entry point for ALL FST system calls
;
;Input:     X = Call number * 2
;           Y = Class number * 2
;           A = undefined

system_call	PROC	Export
		import	max_sys,sys_tbl

		phk				;setup our bank register
		plb

		cpx	#max_sys+1		;maximum system calls
		bcs	sys_err
		jmp	(sys_tbl-2,x)		;call system routine

sys_err
		lda	#bad_system_call
		rtl				;return error to Jim and Mike
		ENDP

		Eject
;======================================================================
;Below are my dispatch tables for application and system calls

dispatch_tables	Record
		Import	create,destroy,change_path,set_file_info,\
			get_file_info,judge_name,volume,clear_backup,\
			open,read,write,close,flush,set_mark,\
			get_mark,set_eof,get_eof,get_dir_entry,\
			get_dev_num,format_disk,erase_disk,fst_specific

		Entry	cmd_tbl

cmd_tbl		DC.W	create		;01 Create : create a file call
		DC.W	write_protect	;02 destroy : delete a file
		DC.W	cmd_error	;03 OSShutdown (SCM)
		DC.W	write_protect	;04 change_path : rename or move a file or subdir
		DC.W	write_protect	;05 set_file_info : alter directory info on a file
		DC.W	get_file_info	;06 GetFileInfo : return directory info on a file
		DC.W	invalid_op	;07 judge_name : judge a name
		DC.W	volume		;08 Volume : return information on a volume
		DC.W	cmd_error	;09 SetPrefix (SCM)
		DC.W	cmd_error	;0A GetPrefix (SCM)
		DC.W	write_protect	;0B clear_backup : clear the backup bit on a file
		DC.W	cmd_error	;0C SetSysPrefs (SCM)
		DC.W	cmd_error	;0D RESERVED
		DC.W	cmd_error	;0E ExpandPath (SCM)
		DC.W	cmd_error	;0F GetSysPrefs (SCM)
		DC.W	open		;10 Open : open a file or subdirectory
		DC.W	cmd_error	;11 NewLine (SCM)
		DC.W	read		;12 Read : read 'n' bytes from a file
		DC.W	wp_error	;13 write : write 'n' bytes to a file
		DC.W	close		;14 Close : close a file or subdirectoy
		DC.W	flush		;15 Flush : flush a file(s)
		DC.W	set_mark	;16 SetMark : set a file marker
		DC.W	get_mark	;17 GetMark : return file marker
		DC.W	wp_error	;18 set_eof : change EOF of a file
		DC.W	get_eof		;19 GetEOF : return EOF of a file
		DC.W	cmd_error	;1A SetLevel (SCM)
		DC.W	cmd_error	;1B GetLevel (SCM)
		DC.W	get_dir_entry	;1C GetDirEntry : return an entry from a directory
		DC.W	cmd_error	;1D BeginSession (SCM)
		DC.W	cmd_error	;1E EndSession (SCM)
		DC.W	cmd_error	;1F SessionStatus (SCM)
		DC.W	get_dev_num	;20 GetDevNum
		DC.W	cmd_error	;21 GET_LAST_DEV (SCM)
		DC.W	cmd_error	;22 READ_BLOCK : only in ProDOS fst
		DC.W	cmd_error	;23 WRITE_BLOCK : only in ProDOS fst
		DC.W	wp_error	;24 format_disk : format media and build directory
		DC.W	wp_error	;25 erase_disk : build directory structure
		DC.W	cmd_error	;26 ResetCache (SCM)
		DC.W	cmd_error	;27 GetName (SCM)
		DC.W	cmd_error	;28 GetBootVol (SCM)
		DC.W	cmd_error	;29 Quit (SCM)
		DC.W	cmd_error	;2A GetVersion (SCM)
		DC.W	cmd_error	;2B GetFSTInfo (SCM)
		DC.W	cmd_error	;2C DInfo (SCM)
		DC.W	cmd_error	;2D DStatus (SCM)
		DC.W	cmd_error	;2E DControl (SCM)
		DC.W	cmd_error	;2F DRead (SCM)
		DC.W	cmd_error	;30 DWrite (SCM)
		DC.W	cmd_error	;31 BindInt (SCM)
		DC.W	cmd_error	;32 UnbindInt (SCM)
		DC.W	fst_specific	;33 FSTSpecific : map table handling
end_tbl
		Export	Max_call:EQU
Max_call	equ	end_tbl-cmd_tbl		;Last valid call I support

		Import	startup,shutdown,sys_remove_vol,deferred_flush

		Entry	sys_tbl

sys_tbl		DC.W	startup			;set ready for work
		DC.W	shutdown		;get ready to quit
		DC.W	sys_remove_vol		;remove local data from VCR
		DC.W	deferred_flush		;flush deferred blocks.
		Export	max_sys:equ
max_sys		equ	*-sys_tbl
		EndR

		End
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/FSTs/MSDos/MSDos.equ b/IIGS.601.SRC/GS.OS/FSTs/MSDos/MSDos.equ
new file mode 100644
index 0000000..fa0fbc8
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/FSTs/MSDos/MSDos.equ
@@ -0,0 +1 @@
+; include system-level equates

		print	push
		print	off
		include 'common.equ.src'
		include 'hw.equ.src'
		print	pop

;
fst_id		equ	10			;identifies msdos fst
read_only_fst	equ	1			;set to 0 to make writeable FST
prodos		equ	0			;used to conditionalize out some code
CallStringToText equ	1			;conditional code for JudgeName, 14-Apr-91 DAL



;
; MSDos-specific extensions to the VCR
;

msdos_vcr	record	0
; copy of volume's bios parameter block
sector_size	ds.w	1			;bytes per sector
cluster_size	ds.b	1			;sectors per allocation unit
reserved_sectors ds.w	1			;# of reserved sectors
FAT_count	ds.b	1			;# of file allocation tables
root_dir_count	ds.w	1			;# of entries in root directory
total_sectors	ds.w	1			;total # of blocks on volume
media_desc	ds.b	1			;media descriptor byte
FAT_size	ds.w	1			;# of sectors per FAT
track_size	ds.w	1			;# of sectors per track
head_count	ds.w	1			;# of heads
hidden_sectors	ds.w	1			;# of hidden sectors

; other fields of use
free_blocks	ds.w	1			;Free blocks on volume,$FFFF = unknown
root_dir_block	ds.w	1			;block number of first directory entry
dirty_file_cnt	ds.l	1			;number of files that are open for writing and are dirty
FAT_type	ds.w	1			;==0 - 12-bit cluster numbers, !=0 - 16-bit
data_start	ds.w	1			;first block number of data area
vol_damaged	ds.w	1			;stops writing to bad disk if <> 00

	if prodos then
;old prodos fields, delete when we get this sucker done
;reserved	ds.b	8			;8 bytes of reserved field from disk
		org	-6
mod_date	ds.w	2			;volume mod date
		org
create		ds.w	2			;create date/time from header
version		ds.b	1			;version of OS that created file
min_version	ds.b	1			;minimum version of OS that can access
access		ds.b	1			;access for a file
entry_len	ds.b	1			;entry length of each entry
entries		ds.b	1			;number of entries per block
file_count	ds.w	1			;number of files in volume directory
bitmap_addr	ds.w	1			;starting block of bitmap
total_blks	ds.w	1			;total number of blocks on disk
num_bitmap_blks	ds.w	1			;total number of bitmap blocks
end_bitmap	ds.w	1			;1st byte that starts all zeros
avail_bitmap	ds.w	1			;1st bitmap block(rel)  with free space
curr_bitmap	ds.w	1			;current bitmap(rel) block in memory
bitmap_dirty	ds.w	1			;0 = bitmap clean, <> 0 = bitmap dirty
	endif
		endr

;
; VCR structure definition
;

vcr		record	0
id		ds.w	1			;volume id
name		ds.l	1			;volume name pointer
status		ds.w	1			;volume status
open_cnt	ds.w	1			;number of open files on volume
fst_id		ds.w	1			;owner ID number
dev		ds.w	1			;where volume was last seen
MSDos_stuff	ds	msdos_vcr		;MSDos-specific stuff
FAT_start
size
		EndR

bitmap_mod	equ	$FFFF
bitmap_unknown	equ	$FFFF
vcr_entry_length equ	$000F

;
; MSDos extensions to FCR structure
;

msdos_fcr	Record	0
;fields copied from directory entry
attributes	ds.w	1			;attribute byte (extended to word size)
mod_time	ds.w	1			;modified time of file
mod_date	ds.w	1
start_cluster	ds.w	1
eof		ds.l	1			;current end of file

curr_cluster	ds.w	1			;cluster # of current block in buffer
cluster_blk_num	ds.w	1			;block # within current cluster
cluster_size	ds.w	1			;# of blocks per cluster

status		ds.w	1			;offset: current status of file
parent		ds.w	1			;block number of directory block
entry_offs	ds.w	1			;index to entry within parent block
curr_mark	ds.l	1			;current file mark
storage		ds.w	1			;real storage type on disk
gde_entry_num	ds.w	1			;current entry for Get_Dir_Entry
gde_offset	ds.w	1			;current offset to entry

; old prodos fields - nuke when we get everything working
 if prodos then
entry_type	ds.w	1			;storage type from directory entry
file_id		ds.w	1			;used to ID duplicate files
file_type	ds.b	1			;file type
key_blk		ds.w	1			;key block of the file
blks_used	ds.w	1			;number of blocks used
create		ds.b	4			;create date/time ProDOS
vers		ds.b	1			;version of o/s that made file
min_vers	ds.b	1			;min version of o/s allowed
disk_acc	ds.b	1			;file access
aux_type	ds.w	1			;aux type for this file
header_ptr	ds.b	2			;key block of dir owner
blks_alloc	ds.b	2			;current number of blks alloc
gde_curr_blk	ds.w	1			;current directory block loaded
gde_tot_files	ds.w	1			;total files in directory
curr_eof	ds.l	1			;current end of file
data_blk_num	ds.b	2			;block number of current data block
index_blk_num	ds.b	2			;block number of current index block
master_blk_num	ds.b	2			;block number of master index block
 endif
		EndR

;
; FCR Structure definition
;

fcr		Record	0
ref_num     	ds.w	1			;file's refnum
path_name   	ds.l	1			;VP to file's pathname
fst_id      	ds.w	1			;FST ID of owning FST
vol_id      	ds.w	1
level       	ds.w	1			;level that file was opened with
newline     	ds.l	1			;VP to list of newline characters
newline_len 	ds.w	1			;length of newline list
mask        	ds.w	1			;newline mask (?)
access      	ds.w	1			;access used to open file
msdos_stuff	ds	msdos_fcr
io_start	ds.b	$200			;i/o buffer built in to fcr
size
		EndR

;
; Direct Page usage
;
my_dp		Record	fst_start
my_pblk_ptr	ds.l	1
my_vcr_ptr	ds.l	1
msdos_vcr_ptr	ds.l	1
my_fcr_ptr	ds.l	1
msdos_fcr_ptr	ds.l	1
gbuf_ptr	ds.l	1
temp_ptr	ds.l	1
temp2_ptr	ds.l	1
temp3_ptr	ds.l	1
temp4_ptr	ds.l	1
map_ptr		ds.l	1
math_temp	ds.l	1
data_ptr	ds.l	1
index_ptr	ds.l	1
master_ptr	ds.l	1
fat_ptr		ds.l	1
users_buf_ptr	ds.l	1
newline_ptr	ds.l	1
namebuf_vp	ds.l	1
namebuf_ptr	ds.l	1
dp_end
	if (dp_end-my_dp) > $54 then
		aerror "Direct Page Overflow"
	endif
		EndR

dir_entry	Record	0
name		ds.b	11			;name
attributes	ds.b	1			;attributes
reserved	ds.b	10			;reserved
time		ds.w	1			;time
date		ds.w	1			;date
start_cluster	ds.w	1			;starting cluster
file_size	ds.l	1			;file size
sizeof						;sizeof dir_entry
		EndR

file_dirty	equ	$8000			;ora masks to active field
data_active	equ	$4000
index_active	equ	$2000
master_active	equ	$1000

file_clean	equ	$7FFF			;and masks to deactivate field
data_inactive	equ	$BFFB
index_inactive	equ	$DFFD
master_inactive	equ	$EFFE

dirEntry_dirty	equ	$0008
dirEntry_clean	equ	ÅdirEntry_dirty		;'Å' is the assembler's one's complement operator
data_dirty	equ	$0004
data_clean	equ	$FFFB
index_dirty	equ	$0002
index_clean	equ	$FFFD
master_dirty	equ	$0001
master_clean	equ	$FFFE

clr_global_clean equ	$7FFF			;clear the global clean bit
set_global_clean equ	$8000			;set the file clean in the FCR
set_access_res	equ	$4000			;set the resource fork bit in the FCR
ClrAllButAccess	equ	$3FFF			;clear the resource bit from access word.

path_used	equ	$0100
vcr_used	equ	$0200
fcr_used	equ	$0400
io_used		equ	$0800
clr_io_used	equ	$F7FF

; file attributes
archive		equ	%00100000
subdirectory	equ	%00010000
vol_label	equ	%00001000
sys_file	equ	%00000100
hidden_file	equ	%00000010
read_only	equ	%00000001

; miscellaneous equates

word		equ	02			;two bytes for a word
blk_size	equ	512			;standard size of a sector
delimiter	equ	$3A			;pathname delimiter = ":"
min_send_cnt	equ	$21			;If read < 33 bytes use local routine

prodos_version	equ	$0005			;current version of the PRODOS.
path1_mask	equ	$4000			;used to determine if path1 is avail.
path2_mask	equ	$0040			;used to determine if path2 is avail.
max_span	equ	12			;maximum length of filename:
						; 8 char name + 3 char extension + .
carry		equ	$01			;used to set the carry
overflow	equ	$40			;used to set the overflow flag
in_cache	equ	$8002
user_cache_val	equ	$0001
class_mask	equ	$E000
disk_protect	equ	$0004			;bit to see if disk is protected
max_base	equ	$0003
pcount1		equ	1
pcount2		equ	2
pcount3		equ	3
pcount4		equ	4
pcount5		equ	5
pcount6		equ	6
pcount7		equ	7
pcount8		equ	8
pcount9		equ	9
write_call	equ	$13

read_enabled	equ	$0001			;1=Read Enabled
write_enabled	equ	$0002			;1=Write Enabled
backup_enabled	equ	$0020			;1=Needs to be backed up
rename_enabled	equ	$0040			;1=Rename allowed
destroy_enabled	equ	$0080			;1=Destroy is enabled
read_access	equ	$01
write_access	equ	$02
invis_bit	equ	$04
read_write_acc	equ	$03

seedling_type	equ	$0010			;$0000000 < EOF < $0000201
sapling_type	equ	$0020			;$0000200 < EOF < $0020001
tree_type	equ	$0030			;$0020000 < EOF < $1000000
pascal_area	equ	$0040			;Area set aside for Pascal
resource_type	equ	$0050			;Special type for resource files
purge_dir	equ	$0060			;directory that contains purged files
subdir_type	equ	$00D0			;Subdirectory
subdir_header	equ	$00E0			;First entry in sudbirectory
volume_header	equ	$00F0			;First entry in the volume directory
vol_dir_start	equ	$0002			;start of the volume directory
bitmap_strt_blk	equ	$0006			;start of the volume bitmap
entry_length	equ	$0020			;length of each directory entry
entries_per_block equ	blk_size/entry_length
parent_index	equ	$0027
par_entry_num	equ	$0029
header_file_cnt	equ	$0025			;number of files in a directory
backup_on	equ	%00100000
backup_off	equ	Åbackup_on
file_type_index	equ	$10			;look at page 168 (ProDOS 8 manual)
key_blk_index	equ	$11			;index into disk entry
blks_used_index	equ	$13
eof_index	equ	$15
create_index	equ	$18
version_index	equ	$1C
min_version	equ	$1D
access_index	equ	$1E
aux_type_index	equ	$1F
last_mod_index	equ	$21
header_ptr_index equ	$25
no_root		equ	$8000			;indicates root level name is invalid
no_dup		equ	$4000			;indicates duplicates are not valid
root_only	equ	$2000			;allow only the root level in pathname

vol_mod_offset	equ	$16			;offset to the volume mod date field
vol_acc_offset	equ	$22			;offset to the volume access field

dir_file_type	equ	$0F
tool_locator	equ	$E10000
misc_tools	equ	$0003
read_time_hex	equ	$000D			;read the clock via misc_tools

set_time_stamp	equ	$0001
get_time_stamp	equ	set_time_stamp+$8000
set_upper_case	equ	$0002
get_upper_case	equ	set_upper_case+$8000

debugger_cmnd	equ	$0002
debugger_status	equ	debugger_cmnd+$8000

hfs_id		equ	$0006			;HFS FST ID
ashare_id	equ	$000D			;AppleShare FST ID
finfo_type	equ	1			;HFS FInfo entry type
xfinfo_type	equ	2			;HFS xFInfo entry type

;------------------------------------------
;
; Equates from procedure data
;
;------------------------------------------
drvr_bytes	equ	$1A			;start at byte $1A and $1B
flush_1st	equ	$1000
damage		equ	$2000
max_class1	equ	$0020

max_pcnt1	equ	1+1
max_pcnt2	equ	2+1
max_pcnt3	equ	3+1
max_pcnt4	equ	4+1
max_pcnt5	equ	5+1
max_pcnt6	equ	6+1
max_pcnt7	equ	7+1
max_pcnt8	equ	8+1
max_pcnt9	equ	9+1
max_pcnt10	equ	10+1
max_pcnt11	equ	11+1
max_pcnt12	equ	12+1
max_pcnt13	equ	13+1
max_pcnt14	equ	14+1
max_pcnt15	equ	15+1
max_pcnt16	equ	16+1
max_pcnt17	equ	17+1
do_dirty	equ	$4000

;equates for the read call.

pblk_12_ref	equ	$0000			;index to the reference number
pblk_12_buf	equ	pblk_12_ref+2		;index to user's buffer pointer
pblk_12_req	equ	pblk_12_buf+4		;index to request count
pblk_12_tran	equ	pblk_12_req+4		;index to transfer count
pblk_12_cache	equ	pblk_12_tran+4		;index to user provided cache priority

max_read_pcnt	equ	$0005

;equates used by open

pblk_10_access	equ	$000A
pblk_10_ftype	equ	pblk_10_access+2
pblk_10_aux	equ	pblk_10_ftype+2
pblk_10_storage	equ	pblk_10_aux+4
pblk_10_eof	equ	pblk_10_storage+2
pblk_10_num_res	equ	pblk_10_eof+4
pblk_10_create	equ	pblk_10_num_res+2
pblk_10_mod	equ	pblk_10_create+8
pblk_10_blks	equ	pblk_10_mod+8
pblk_10_map	equ	pblk_10_blks+4

;equates used by set_mark

pblk_16_base	equ	$0002
pblk_16_disp	equ	pblk_16_base+2

;equates used by get_mark

pblk_17_pos	equ	$0002

;equates used by get_eof

pblk_19_eof	equ	$0002

;equates used by send_info

pblk_s_access	equ	$0000
pblk_s_ftype	equ	pblk_s_access+2
pblk_s_aux	equ	pblk_s_ftype+2
pblk_s_storage	equ	pblk_s_aux+4
pblk_s_create	equ	pblk_s_storage+2
pblk_s_mod	equ	pblk_s_create+8
pblk_s_opt	equ	pblk_s_mod+8
pblk_s_eof	equ	pblk_s_opt+4
pblk_s_blks	equ	pblk_s_eof+4
pblk_s_res_eof	equ	pblk_s_blks+4
pblk_s_res_blk	equ	pblk_s_res_eof+4

;equates used by volume

pblk_08_vol	equ	$0004
pblk_08_tot	equ	pblk_08_vol+4
pblk_08_free	equ	pblk_08_tot+4
pblk_08_id	equ	pblk_08_free+4
pblk_08_size	equ	pblk_08_id+2
pblk_08_purge	equ	pblk_08_size+2

;equates used by set_file_info

pblk_05_accs	equ	$0004
pblk_05_ftype	equ	pblk_05_accs+2
pblk_05_aux	equ	pblk_05_ftype+2
pblk_05_create	equ	pblk_05_aux+6
pblk_05_mod	equ	pblk_05_create+8
pblk_05_opt	equ	pblk_05_mod+8

;equates used by get_file_info

pblk_06_map	equ	$0028

;equates used by set_eof

pblk_18_odisp	equ	$0002
pblk_18_base	equ	$0002
pblk_18_disp	equ	pblk_18_base+2

;equates used by create

pblk_01_accs	equ	$0004
pblk_01_ftype	equ	pblk_01_accs+2
pblk_01_aux	equ	pblk_01_ftype+2
pblk_01_stype	equ	pblk_01_aux+4
pblk_01_eof1	equ	pblk_01_stype+2
pblk_01_eof2	equ	pblk_01_eof1+4

pblk_01_old_time equ	$000E

;equates used by get dir entry

pblk_1c_flags	equ	$0002
pblk_1c_disp	equ	$0002
pblk_1c_name	equ	pblk_1c_disp+2
pblk_1c_entry	equ	pblk_1c_name+4
pblk_1c_ftype	equ	pblk_1c_entry+2
pblk_1c_eof	equ	pblk_1c_ftype+2
pblk_1c_blks	equ	pblk_1c_eof+4
pblk_1c_create	equ	pblk_1c_blks+4
pblk_1c_mod	equ	pblk_1c_create+8
pblk_1c_access	equ	pblk_1c_mod+8
pblk_1c_aux	equ	pblk_1c_access+2
pblk_1c_id	equ	pblk_1c_aux+4
pblk_1c_opt	equ	pblk_1c_id+2
pblk_1c_res_eof	equ	pblk_1c_opt+4
pblk_1c_res_blks equ	pblk_1c_res_eof+4

gde_max_base	equ	$0002
bad_file_format	equ	$004a

;equates used by judge_name             1/22/91 CAE

pblk_07_ntype	equ	$0002
pblk_07_syntax	equ	pblk_07_ntype+2
pblk_07_max_len	equ	pblk_07_syntax+4
pblk_07_name	equ	pblk_07_max_len+2
pblk_07_nflags	equ	pblk_07_name+4

;equates used by change_path		5-Dec-91 MSD

pblk_04_src	equ	$0000		; (long) source pathname
pblk_04_dest	equ	$0004		; (long) destination pathname
pblk_04_flags	equ	$0008		; (word) $8000 = assume source is duplicate volume

; equates used by fst_specific

map_enable_off	equ	$0006		;Offset	into parm list for fst_specific.
map_size	equ	$0006		;Offset	into parm list for fst_specific.
map_buffer	equ	$0006		;Offset	into parm list for fst_specific.

;
; data template definitions
;

GSStr255	Record	0
length		ds.w	1
text		ds.b	255
		EndR

tExpandRecord	Record	0
expand_flag	ds.w	1
expand_file	ds.w	1			;used to indicate we are extending a file
expand_storage	ds.w	1			;storage type of the data fork on extension
expand_key_blk	ds.w	1
expand_blks_used ds.w	1
expand_eof	ds.l	1
		EndR

tBiosParmBlock	Record	0
sector_size	ds.w	1
cluster_size	ds.b	1
reserved_sectors ds.w	1
FAT_count	ds.b	1
root_dir_count	ds.w	1
total_sectors	ds.w	1
media_desc	ds.b	1
FAT_size	ds.w	1
track_size	ds.w	1
head_count	ds.w	1
hidden_sectors	ds.w	1
bpb_size	equ	*-tBiosParmBlock
		EndR
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/FSTs/Pascal/pascal.fst.aii b/IIGS.601.SRC/GS.OS/FSTs/Pascal/pascal.fst.aii
new file mode 100644
index 0000000..89e325d
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/FSTs/Pascal/pascal.fst.aii
@@ -0,0 +1 @@
+			PRINT NOHDR
******************************************************************
*
* GS/OS Pascal File System Translator
* Copyright Apple Computer, Inc. 1989-1992.  All Rights Reserved.
*
* Written by Cary Farrier
*
* Thanks to Bryan Atsatt and Rob Turner for providing me with the
* source to both the High Sierra and ProDOS FST's, respectively,
* and for answering all my questions.
*
******************************************************************
	
 EJECT
******************************************************************
*
* REVISION HISTORY:
*	
* Date		By		Description
*
* 			CAF 	Initial Release
* 10/13/89	CAF		Fixed bug in id_disk where I was sending calls
*					to non-block devices.  I now check the device
*					type before talking to the device.
* 01/02/89	CAF		Now uses system 1k gbuffer.  Added eof cache
*					for text files into the vcr.
* 03/14/90	CAF		Changed storage type for files (in get_file)
*					to a 1.  Fixed some major bugs in the ASCII
*					portion of read_io_block.
* 06/17/90	CAF		Fixed ASCII mode.  The PFST will now strip
*					all non-ascii chars from a text file during
*					reading.
* 09/04/90	CAF		Fixed a bug where I was returning garbage in
*					the mod_date/time field (LYP210WMP).  Fixed
*					a bug where I was not setting up the create
*					date for a GFI on a volume directory (LYP
*					205WMP).  Fixed a bug where the total_blocks
*					(aux_type) was not being set correctly on
*					a GFI on a volume directory (LYP207WMP).
*					Fixed a bug where the blocks_used field was
*					being set the the total number of blocks
*					on a volume GFI call, when it should have been
*					set to the number of used blocks (LYP206WMP).
* 09/05/90	CAF		Implemented the option_list parameter (LYP208WMP).
* 09/06/90	CAF		Fixed a bug where I was returning a write_protect
*					error when I should have been returning a 
*					volume_not_found error.
* 09/24/90	CAF		Fixed bug LYP215LWA, setting blocks_used incorrectly
*					on a c1 GFI call.  Fixed bug LYP214LWA, setting aux_type
*					incorrectly on a c1 GFI call.  Changed access to
*					$c3 for all files.
* 09/25/90	CAF		Fixed a bug where I was putting garbage in the ref_num
*					parameter.  Fixed a bug where I was incorrectly returning
*					info in the blocks_used parm for a c1 open on a volume
*					directory.
* 09/26/90	CAF		Fixed a bug in read_io_block that was causing me to 
*					read every type of file as an ascii file if in ascii mode.
* 09/27/90	CAF		Fixed a bug in set_mark where you couldn't set the mark
*					= eof (LYP220LWA).
* 11/09/90	CAF		Fixed a bug in get_dir_entry where I wasn't setting up the
*					drvr_dev_num if the end_of_dir was reached, and so a
*					get_last_dev call would not work right.
* 12/06/90	CAF		Fixed a bug in break_down_path where I wasn't checking
*					the validity of a path correctly when the path began
*					with a device number (LYP240LWA).
* 12/07/90	CAF		Changed volume to return the volume name on a duplicate
*					volume error if a device name was used.
* 12/18/90	CAF		Fixed a bug in open where I was setting the blocks_used
*					parameter if a volume directory was opened (LYP253LWA).
* 12/19/90	CAF		Added "support" for judge name call ($07).
*
* 01/04/91	jev		Removed credit string from options list as requested.
*
* 02/11/91	jev		changed error code fron $4E to $4A on a GetDirEntry call.
*
* 03/31/91	jev		added error priority support.  Added new flags in FST header
*					to indicate apple format and read-only fst.
*
* 08/22/91  jev		fixed error priority support.  flag was getting set, but
*					was never being incorporated in the final error.  all
*					error reporting now goes thru main_exit which or's
*					whatever error code with the error_priority flag.
*
* 08/22/91	jev		fixed bug #88735.  Open call and Getfileinfo call were
*					not IDing the disk before reporting any errors in the
*					input parms.  This resulted in a no bouncing error for
*					a call that had nothing to do with our file system.
*
* 08/22/91	jev		fixed bug #86427.  Destroy call was returning the wrong
*					error.
*
* 25-Oct-91 DAL		Fixed bug #1014835, where we were ignoring FDHD disks
*					on Mustang (device_id $0017).
* 
* 11/07/91	GAB		Procedure read_block wasn't zeroing the high word of the
*					  block number prior to performing a driver read.  If the
*				 	  high work happened to be non-zero, the driver would
*					  happily overwrite memory beyond the general buffer at
*					  $9A00 (which happened to be where GS/OS resides).
*					Procedure read_block was using a random value to set the
*					  FST_ID direct page parameter, due to a missing '#'.
*
* 12/05/91	GAB		Change maximum allowable pCount for ChangePath to 3.
*
* 12/18/91	MSD		Removed checking of span1 from p_pathname and moved
*					it to find_target so it will find the volume and set
*					the error priority bit first.  Added code to check
*					the length of g_volname and g_filename as they get
*					copied.  Removed g_pathname and code that copies it
*					(it never gets used later).  The p_pathname routine
*					now does nothing.  Changed version number to 1.00 final.
*
* 01/13/92	GAB		Rewrote break_down_path.  Original version was using
*					the pathname length as the limit for the volume name
*					and/or pathname without taking into account the 
*					pathname separators.  This would cause the subroutine
*					to return with a BadPathSyntax error if there was
*					no trailing separator on a volume name, since it
*					walked past the actual end of the supplied volume
*					name and fell through into Mark's new volume-name
*					length checking code.
*
* 01/18/92	GAB		- In build_fcr, we're supposed to be passing a pointer
*					to the _volume_ name to alloc_fcr.  The code was
*					originally passing a pointer to the _file_ name.
*					This has been corrected.
*					- Optimizations throughout.
*
* 02/10/92  GAB		¥ Added logic to zero out the error_priority
*					variable prior to exiting scan_devs with a vol_not_found
*					error.  When a caller tried to open a file on a
*					non-Pascal disk with some other Pascal disk online,
*					id_disks was setting the error_priority variable when
*					it successfully id'ed the disk.  Scan_devs then
*					compared the volume names and discovered that
*					it didn't have a match after all.  After going
*					through all the devices, it would exit with a
*					volume_not_found error.  But, since nothing had
*					cleared the error_priority that id_disk had set,
*					the priority bit was set in the error code
*					returned to SCM, which caused SCM to exit from
*					the call immediately.  If we're gonna exit from
*					scan_devs with a vol_not_found error, obviously
*					the error_priority should be clear.
*					¥ Removed logic from xfer_parms that checks the
*					pCount range and moved it to app_entry so that
*					the pCount is validated BEFORE the FST tries to
*					locate the volume to act upon.
*					¥ Changed numerous JML MAIN_EXIT to BRL MAIN_EXIT,
*					since all of the FST is within a single segment.
*
* 22-Apr-93 DAL		¥ Added 2 lines to stop ignoring RAM disks.
*					¥ Changed version to $0101; removed some bytes
*					from the imbedded ASCII credits (cosmetic only).
*
******************************************************************
			PRINT  OFF
			INCLUDE 'hw.equ.src'
			INCLUDE	'common.equ.src'
			INCLUDE 'gsos.macros.src'
			INCLUDE 'm16.debug'
			PRINT  ON

 EJECT
******************************************************************
*
* Pascal FST equates
*
******************************************************************

dle_char		equ		$10

mode_ascii		equ		$0000
mode_native		equ		$0001

read_data		equ		$00
examine_file	equ		$01
setup_fcr		equ		$02

c0_sep			equ		$2F			; '/'
c1_sep			equ		$3A			; ':'

vcr_date_stamp	equ		vcr_fst_ptr+4				; date stamp
vcr_num_files	equ		vcr_date_stamp+2			; # of files on volume
vcr_directory	equ		vcr_num_files+2				; directory of the volume
vcr_directory2	equ		vcr_directory+1024
vcr_eof_cache	equ		vcr_directory2+1024			; 4bytes * 77 files
vcr_end			equ		vcr_eof_cache+308

fcr_start_block	equ		fcr_access+2				; starting block of file
fcr_end_block	equ		fcr_start_block+2			; ending block of file + 1
fcr_ending_bytes equ	fcr_end_block+4				; # of bytes in last block of file
fcr_eof			equ		fcr_ending_bytes+2			; eof of file
fcr_mark		equ		fcr_eof+4					; file mark
fcr_file_type	equ		fcr_mark+4					; file type
fcr_mode		equ		fcr_file_type+2				; file mode (ASCII or Native)
fcr_pmark		equ		fcr_mode+2					; physical file mark
fcr_expand_cnt	equ		fcr_pmark+4					; # of spaces to send out
fcr_io_index	equ		fcr_expand_cnt+2			; index into io buffer
fcr_io_size		equ		fcr_io_index+2				; data size of io buffer
fcr_io_buffer	equ		fcr_io_size+2				; 1024 byte i/o buffer
fcr_end			equ		fcr_io_buffer+1024

fcr_num_files	equ		fcr_ending_bytes			; # of files in fcr (volume directory only)

io_name_len		equ		$06							; offset into io_buffer to
													; volume name length byte
io_date_stamp	equ		$14							; creation date of volume
io_file_count	equ		$10							; number of files on volume

pascal_id		equ		$0004						; fst id
buffer_size		equ		1024						; size of 1k gbuffer

send_output		equ		1
get_input		equ		0

*
* fst direct page workspace
*
io_buffer		equ		fst_start					; gbuffer pointer
my_vcr			equ		fst_start+4					; vcr pointer
my_fcr			equ		my_vcr+4					; fcr pointer
output_ptr		equ		my_fcr+4					; pointer to user's buffer
blockPtr		equ		output_ptr+4				; pointer to user's pblock
pathPtr			equ		blockPtr+4					; pointer to user's pathname
string1			equ		pathPtr+4					
string2			equ		string1+4
g_data_buffer	equ		string2+4
g_pathptr		equ		g_data_buffer+4
io_buffer_2		equ		g_pathptr+4
newline_table	equ		io_buffer_2+4
newline_char	equ		newline_table+4
newline_mask	equ		newline_char+2
op_list_ptr		equ		newline_mask+2

 EJECT
******************************************************************
*
* parameter table equates.  Each parameter is assigned an ID.
*
* NOTE: It is *VERY IMPORTANT* that the order of the parameters
*		here coincides with their respective handlers in 
*		'parm_table'.  The equates here are shifted and used as
*		indexes (indexi?).
*
******************************************************************
start			equ		$00
access			equ		start+1
aux_type		equ		access+1
base			equ		aux_type+1
blocks_used		equ		base+1
block_size		equ		blocks_used+1
cache_priority	equ		block_size+1
create_date		equ		cache_priority+1
create_dateTime	equ		create_date+1
create_time		equ		create_dateTime+1
data_buffer		equ		create_time+1
dev_name		equ		data_buffer+1
displacement	equ		dev_name+1
entry_num		equ		displacement+1
eof				equ		entry_num+1
file_type		equ		eof+1
file_sys_id		equ		file_type+1
flags			equ		file_sys_id+1
free_blocks		equ		flags+1
mod_date		equ		free_blocks+1
mod_dateTime	equ		mod_date+1
mod_time		equ		mod_dateTime+1
name			equ		mod_time+1
new_pathname	equ		name+1
option_list		equ		new_pathname+1
pathname		equ		option_list+1
pcount			equ		pathname+1
position		equ		pcount+1
ref_num			equ		position+1
req_file_sys_id	equ		ref_num+1
request_access	equ		req_file_sys_id+1
request_count	equ		request_access+1
resource_blocks	equ		request_count+1
resource_eof	equ		resource_blocks+1
resource_number	equ		resource_eof+1
storage_type	equ		resource_number+1
transfer_count	equ		storage_type+1
vol_name		equ		transfer_count+1
null_field		equ		vol_name+1
command_num		equ		null_field+1
fst_mode		equ		command_num+1
device_num		equ		fst_mode+1

 EJECT
******************************************************************
*
* Forward References
*
******************************************************************

			ENTRY	main_exit		; add error priority to error and exit
			ENTRY	app_entry		; entry for application calls
			ENTRY	sys_entry		; entry for system calls
			
			ENTRY	wr_protect		; these calls return a
			ENTRY	bad_call		; standard error which is
			ENTRY	ignore			; returned.
			ENTRY	invalid_op
			ENTRY	header
			ENTRY	ignore2
			
			ENTRY	id_disk			; application call support
			ENTRY	id_block
			ENTRY	build_vcr
			ENTRY	build_fcr
			ENTRY	read_block
			ENTRY	get_parm_offset
			ENTRY	strcmp
			ENTRY	strcpy
			ENTRY	div512
			ENTRY	dow_convert
			ENTRY	read_io_block
			
			ENTRY	find_target
			ENTRY	find_volume
			ENTRY	find_file
			ENTRY	get_file
			ENTRY	break_down_path
			ENTRY	scan_devs
			
			ENTRY	xfer_parms
			
			ENTRY	p_access		; each one of the parameters in
			ENTRY	p_aux_type		; a pblock has it's own handler.
			ENTRY	p_base
			ENTRY	p_blocks_used
			ENTRY	p_block_size
			ENTRY	p_cache_priority
			ENTRY	p_create_date
			ENTRY	p_create_dateTime
			ENTRY	p_create_time
			ENTRY	p_data_buffer
			ENTRY	p_dev_name
			ENTRY	p_displacement
			ENTRY	p_entry_num
			ENTRY	p_eof
			ENTRY	p_file_type
			ENTRY	p_file_sys_id
			ENTRY	p_flags
			ENTRY	p_free_blocks
			ENTRY	p_mod_date
			ENTRY	p_mod_dateTime
			ENTRY	p_mod_time
			ENTRY	p_name
			ENTRY	p_new_pathname
			ENTRY	p_option_list
			ENTRY	p_pathname
			ENTRY	p_pcount
			ENTRY	p_position
			ENTRY	p_ref_num
			ENTRY	p_req_file_sys_id
			ENTRY	p_request_access
			ENTRY	p_request_count
			ENTRY	p_resource_blocks
			ENTRY	p_resource_eof
			ENTRY	p_resource_number
			ENTRY	p_storage_type
			ENTRY	p_transfer_count
			ENTRY	p_vol_name
			ENTRY	p_null_field
			ENTRY	p_command_num
			ENTRY	p_fst_mode
			ENTRY	p_dev_num
			
			ENTRY	startup			; system calls
			ENTRY	shutdown

			ENTRY	volume			; application calls
			ENTRY	get_file_info
			ENTRY	open
			ENTRY	read
			ENTRY	close
			ENTRY	set_mark
			ENTRY	get_mark
			ENTRY	get_eof
			ENTRY	get_dir_entry
			ENTRY	get_dev_num
			ENTRY	fst_specific
			
			ENTRY	dle_setup
			

 EJECT			
******************************************************************
*
* fst header: tells gs/os about the fst at boot time
*
*
******************************************************************
header		PROC
			dc.b	'FST '			; load id
			dc.l	app_entry		; entry point for appl calls
			dc.l	sys_entry		; entry point for system calls
			dc.w	pascal_id		; fst_id
			dc.w	$9803			; flags: block FST, MSB off, read-only, apple
			dc.w	$0101			; version 1.1 final
			dc.w	$200			; block size
			dc.l	$FFFFFFFF		; maximum blocks per volume
			dc.l	$02				; minimum blocks per volume 
			dc.l	$FFFFFFFD		; max file size
			dc.l	0				; reserved
			dc.b	end1-start1		; length of FST name
start1		dc.b	'Pascal'		; FST name
end1
			dc.b	end2-start2		; length of comment
start2		dc.b	'Pascal FST            v01.01'	; comment
end2
			dc.w	0				; reserved field
		
;;;		EXPORT creditlen,startcredit
		
creditlen	dc.b	endcredit-startcredit-1
startcredit	dc.b	$0D
			dc.b	'Pascal File System Translator',$0D
			dc.b	'Written by Cary Farrier',$0D
			dc.b	'Tested by Linda Pan',$0D
			dc.b	$0D
			dc.b	'Copyright 1992-93  Apple Computer, Inc.',$0D
			dc.b	'All Rights Reserved',$0D,$0D,$00
endcredit

			ENDP
			
 EJECT			
******************************************************************
*
* globals: 	data storage area
*			jump tables
*
*
******************************************************************
globals		RECORD

g_access			dc.w	$c3			; internal copies of parameters
g_aux_type			dc.w	0
g_base				dc.w	0
g_blocks_used		dc.w	0
g_cache_priority	dc.w	0
g_create_date		dc.w	0
g_create_dateTime	ds.l	2
g_create_time		dc.w	0
g_dev_num			dc.w	0
g_displacement		dc.l	0
g_entry_num			dc.w	0
g_eof				dc.l	0
g_file_type			dc.w	0
g_mod_date			dc.w	0
g_mod_dateTime		ds.l	2
g_mod_time			dc.w	0
g_pcount			dc.w	0
g_position			dc.l	0
g_ref_num			dc.w	0
g_request_count		dc.l	0
g_storage_type		dc.w	0
g_transfer_count	dc.l	0
;g_pathname			ds.b	50			; Removed 18-Dec-91 MSD
g_command_num		dc.w	0
g_fst_mode			dc.w	0
g_curr_block		dc.w	0
g_checkSum			dc.w	0

g_error				dc.w	0
g_status_buf		ds.b	6

g_remainder			dc.l	0
g_quotient			dc.l	0
g_512multiple		dc.l	0

the_fst_mode		dc.w	mode_ascii

g_volumeName		ds.b	9
g_fileName			ds.b	17
g_tempStr			ds.b	17

f_start_block		dc.w	0
f_end_block			dc.w	0
f_ending_bytes		dc.w	0

temp				dc.w	0
tempChar			dc.b	0
tempLong			dc.l	0

newline_len			dc.w	0

length				dc.w	0

dateStamp			dc.w	0				; date stamp of current volume
numFiles			dc.w	0				; # of files on current volume

size				dc.w	0

device				dc.w	0
block_num			dc.w	0

call_num			dc.w	0
call_class			dc.w	0
error_priority		dc.w	0				; for bouncing errors


minPCount			dc.w	0
maxPCount			dc.w	0
tempPCount			dc.w	0
class				dc.w	0
parm				dc.w	0

io_buffer_ptr		dc.l	0

*
* this is the table to the application call entry points
*
app_table	dc.w	wr_protect		; ($01) Create
			dc.w	wr_protect		; ($02) Destroy
			dc.w	bad_call		; ($03) OS Shutdown
			dc.w	wr_protect		; ($04) Change Path
			dc.w	wr_protect		; ($05) Set File Info
			dc.w	get_file_info	; ($06) Get File Info
			dc.w	invalid_op		; ($07) Judge Name
			dc.w	volume			; ($08) Volume
			dc.w	bad_call		; ($09) Set Prefix
			dc.w	bad_call		; ($0A) Get Prefix
			dc.w	wr_protect		; ($0B) Clear Backup Bit
			dc.w	bad_call		; ($0C) Set Sys Prefs
			dc.w	ignore			; ($0D) Null
			dc.w	bad_call		; ($0E) Expand Path
			dc.w	bad_call		; ($0F) Get Sys Prefs
			dc.w	open			; ($10) Open
			dc.w	bad_call		; ($11) NewLine
			dc.w	read			; ($12) Read
			dc.w	wr_protect		; ($13) Write
			dc.w	close			; ($14) Close
			dc.w	ignore			; ($15) Flush
			dc.w	set_mark		; ($16) Set Mark
			dc.w	get_mark		; ($17) Get Mark
			dc.w	wr_protect		; ($18) Set EOF
			dc.w	get_eof			; ($19) Get EOF
			dc.w	bad_call		; ($1A) Set Level
			dc.w	bad_call		; ($1B) Get Level
			dc.w	get_dir_entry	; ($1C) Get Dir Entry
			dc.w	bad_call		; ($1D) Begin Session
			dc.w	bad_call		; ($1E) End Session
			dc.w	bad_call		; ($1F) Session Status
			dc.w	get_dev_num		; ($20) Get Dev Num
			dc.w	bad_call		; ($21) Get Last Dev
			dc.w	bad_call		; ($22) Read Block
			dc.w	bad_call		; ($23) Write Block
			dc.w	wr_protect		; ($24) Format
			dc.w	wr_protect		; ($25) Erase Disk
			dc.w	bad_call		; ($26) Reset Cache
			dc.w	bad_call		; ($27) Get Name
			dc.w	bad_call		; ($28) Get Boot Vol
			dc.w	bad_call		; ($29) Quit
			dc.w	bad_call		; ($2A) Get Version
			dc.w	bad_call		; ($2B) Get FST Info
			dc.w	bad_call		; ($2C) D_INFO
			dc.w	bad_call		; ($2D) D_STATUS
			dc.w	bad_call		; ($2E) D_CONTROL
			dc.w	bad_call		; ($2F) D_READ
			dc.w	bad_call		; ($30) D_WRITE
			dc.w	bad_call		; ($31) Alloc Interrupt
			dc.w	bad_call		; ($32) Dealloc Interrupt
			dc.w	fst_specific	; ($33) FST Specific

*
* This is the table to the system call entry points
*
sys_table	dc.w	startup			; FST Startup
			dc.w	shutdown		; FST Shutdown
			dc.w	ignore2			; FST Remove VCR
			dc.w	ignore2			; FST Deferred Flush

*
* This is the table to the parameter block i/o functions
*
parm_table	dc.w	p_access
			dc.w	p_aux_type
			dc.w	p_base
			dc.w	p_blocks_used
			dc.w	p_block_size
			dc.w	p_cache_priority
			dc.w	p_create_date
			dc.w	p_create_dateTime
			dc.w	p_create_time
			dc.w	p_data_buffer
			dc.w	p_dev_name
			dc.w	p_displacement
			dc.w	p_entry_num
			dc.w	p_eof
			dc.w	p_file_type
			dc.w	p_file_sys_id
			dc.w	p_flags
			dc.w	p_free_blocks
			dc.w	p_mod_date
			dc.w	p_mod_dateTime
			dc.w	p_mod_time
			dc.w	p_name
			dc.w	p_new_pathname
			dc.w	p_option_list
			dc.w	p_pathname
			dc.w	p_pcount
			dc.w	p_position
			dc.w	p_ref_num
			dc.w	p_req_file_sys_id
			dc.w	p_request_access
			dc.w	p_request_count
			dc.w	p_resource_blocks
			dc.w	p_resource_eof
			dc.w	p_resource_number
			dc.w	p_storage_type
			dc.w	p_transfer_count
			dc.w	p_vol_name
			dc.w	p_null_field
			dc.w	p_command_num
			dc.w	p_fst_mode
			dc.w	p_dev_num

*
* This table contains the maximum pcount (+1) for each class 1 call.  SCM 
* verifies the minimum pCount prior to calling us.
*
c1_pcount	dc.w	8				; ($01) Create
			dc.w	2				; ($02) Destroy
			dc.w	0				; ($03) OS Shutdown
			dc.w	4				; ($04) Change Path
			dc.w	13				; ($05) Set File Info
			dc.w	13				; ($06) Get File Info
			dc.w	0				; ($07)
			dc.w	7				; ($08) Volume
			dc.w	0				; ($09) Set Prefix
			dc.w	0				; ($0A) Get Prefix
			dc.w	2				; ($0B) Clear Backup Bit
			dc.w	0				; ($0C) Set Sys Prefs
			dc.w	0				; ($0D) Null
			dc.w	0				; ($0E) Expand Path
			dc.w	0				; ($0F) Get Sys Prefs
			dc.w	16				; ($10) Open
			dc.w	0				; ($11) NewLine
			dc.w	6				; ($12) Read
			dc.w	6				; ($13) Write
			dc.w	2				; ($14) Close
			dc.w	2				; ($15) Flush
			dc.w	4				; ($16) Set Mark
			dc.w	3				; ($17) Get Mark
			dc.w	4				; ($18) Set EOF
			dc.w	3				; ($19) Get EOF
			dc.w	0				; ($1A) Set Level
			dc.w	0				; ($1B) Get Level
			dc.w	18				; ($1C) Get Dir Entry
			dc.w	0				; ($1D)
			dc.w	0				; ($1E)
			dc.w	0				; ($1F)
			dc.w	3				; ($20) Get Dev Num
			dc.w	0				; ($21) Get Last Dev
			dc.w	0				; ($22) Read Block
			dc.w	0				; ($23) Write Block
			dc.w	5				; ($24) Format
			dc.w	5				; ($25) Erase Disk
			dc.w	0				; ($26)
			dc.w	0				; ($27) Get Name
			dc.w	0				; ($28) Get Boot Vol
			dc.w	0				; ($29) Quit
			dc.w	0				; ($2A) Get Version
			dc.w	0				; ($2B) Get FST Info
			dc.w	0				; ($2C) D_INFO
			dc.w	0				; ($2D) D_STATUS
			dc.w	0				; ($2E) D_CONTROL
			dc.w	0				; ($2F) D_READ
			dc.w	0				; ($30) D_WRITE
			dc.w	0				; ($31) Alloc Interrupt
			dc.w	0				; ($32) Dealloc Interrupt
			dc.w	4				; ($33) FST Specific
*
* These are the definitions of the call parameter blocks, for
* classes 0 and 1.
*
create_0	dc.w	pathname,$00
			dc.w	access,$04
			dc.w	file_type,$06
			dc.w	aux_type,$08
			dc.w	storage_type,$0C
			dc.w	create_date,$0E
			dc.w	create_time,$10
			dc.w	0,0
			
create_1	dc.w	pcount,$00
			dc.w	pathname,$02
			dc.w	access,$06
			dc.w	file_type,$08
			dc.w	aux_type,$0A
			dc.w	storage_type,$0E
			dc.w	eof,$10
			dc.w	resource_eof,$14
			dc.w	0,0
			
destroy_0	dc.w	pathname,$00
			dc.w	0,0

destroy_1	dc.w	pcount,$00
			dc.w	pathname,$02
			dc.w	0,0

change_path_0
			dc.w	pathname,$00
			dc.w	new_pathname,$04
			dc.w	0,0

change_path_1
			dc.w	pcount,$00
			dc.w	pathname,$02
			dc.w	new_pathname,$06
			dc.w	0,0
			
set_file_info_0
			dc.w	pathname,$00
			dc.w	access,$04
			dc.w	file_type,$06
			dc.w	aux_type,$08
			dc.w	null_field,$0C
			dc.w	create_date,$0E
			dc.w	create_time,$10
			dc.w	mod_date,$12
			dc.w	mod_time,$14
			dc.w	0,0
			
set_file_info_1
			dc.w	pcount,$00
			dc.w	pathname,$02
			dc.w	access,$06
			dc.w	file_type,$08
			dc.w	aux_type,$0A
			dc.w	null_field,$0E
			dc.w	create_dateTime,$10
			dc.w	mod_dateTime,$18
			dc.w	option_list,$20
			dc.w	0,0

get_file_info_0
			dc.w	pathname,$00
			dc.w	access,$04
			dc.w	file_type,$06
			dc.w	aux_type,$08
			dc.w	storage_type,$0C
			dc.w	create_date,$0E
			dc.w	create_time,$10
			dc.w	mod_date,$12
			dc.w	mod_time,$14
			dc.w	blocks_used,$16
			dc.w	0,0
			
get_file_info_1
			dc.w	pcount,$00
			dc.w	pathname,$02
			dc.w	access,$06
			dc.w	file_type,$08
			dc.w	aux_type,$0A
			dc.w	storage_type,$0E
			dc.w	create_dateTime,$10
			dc.w	mod_dateTime,$18
			dc.w	option_list,$20
			dc.w	eof,$24
			dc.w	blocks_used,$28
			dc.w	resource_eof,$2C
			dc.w	resource_blocks,$30
			dc.w	0,0
			
volume_0	dc.w	dev_name,$00
			dc.w	vol_name,$04
			dc.w	blocks_used,$08
			dc.w	free_blocks,$0C
			dc.w	file_sys_id,$10
			dc.w	0,0

volume_1	dc.w	pcount,$00
			dc.w	dev_name,$02
			dc.w	vol_name,$06
			dc.w	blocks_used,$0A
			dc.w	free_blocks,$0E
			dc.w	file_sys_id,$12
			dc.w	block_size,$14
			dc.w	0,0

clear_backup_0
			dc.w	pathname,$00
			dc.w	0,0

clear_backup_1
			dc.w	pcount,$00
			dc.w	pathname,$02
			dc.w	0,0

open_0		dc.w	ref_num,$00
			dc.w	pathname,$02
			dc.w	0,0
			
open_1		dc.w	pcount,$00
			dc.w	ref_num,$02
			dc.w	pathname,$04
			dc.w	request_access,$08
			dc.w	resource_number,$0A
			dc.w	access,$0C
			dc.w	file_type,$0E
			dc.w	aux_type,$10
			dc.w	storage_type,$14
			dc.w	create_dateTime,$16
			dc.w	mod_dateTime,$1E
			dc.w	option_list,$26
			dc.w	eof,$2A
			dc.w	blocks_used,$2E
			dc.w	resource_eof,$32
			dc.w	resource_blocks,$36
			dc.w	0,0
			
read_0		dc.w	ref_num,$00
			dc.w	data_buffer,$02
			dc.w	request_count,$06
			dc.w	transfer_count,$0A
			dc.w	0,0

read_1		dc.w	pcount,$00
			dc.w	ref_num,$02
			dc.w	data_buffer,$04
			dc.w	request_count,$08
			dc.w	transfer_count,$0C
			dc.w	cache_priority,$10
			dc.w	0,0

write_0		dc.w	ref_num,$00
			dc.w	data_buffer,$02
			dc.w	request_count,$06
			dc.w	transfer_count,$0A
			dc.w	0,0

write_1		dc.w	pcount,$00
			dc.w	ref_num,$02
			dc.w	data_buffer,$04
			dc.w	request_count,$08
			dc.w	transfer_count,$0C
			dc.w	cache_priority,$10
			dc.w	0,0

close_0		dc.w	ref_num,$00
			dc.w	0,0

close_1		dc.w	pcount,$00
			dc.w	ref_num,$00
			dc.w	0,0

set_mark_0	dc.w	ref_num,$00
			dc.w	position,$02
			dc.w	0,0
			
set_mark_1	dc.w	pcount,$00
			dc.w	ref_num,$02
			dc.w	base,$04
			dc.w	displacement,$06
			dc.w	0,0

get_mark_0	dc.w	ref_num,$00
			dc.w	position,$02
			dc.w	0,0
			
get_mark_1	dc.w	pcount,$00
			dc.w	ref_num,$02
			dc.w	position,$04
			dc.w	0,0

set_eof_0	dc.w	ref_num,$00
			dc.w	eof,$02
			dc.w	0,0

set_eof_1	dc.w	pcount,$00
			dc.w	ref_num,$02
			dc.w	base,$04
			dc.w	displacement,$06
			dc.w	0,0

get_eof_0	dc.w	ref_num,$00
			dc.w	eof,$02
			dc.w	0,0
			
get_eof_1	dc.w	pcount,$00
			dc.w	ref_num,$02
			dc.w	eof,$04
			dc.w	0,0

get_dir_entry_0
			dc.w	ref_num,$00
			dc.w	flags,$02
			dc.w	base,$04
			dc.w	displacement,$06
			dc.w	name,$08
			dc.w	entry_num,$0C
			dc.w	file_type,$0E
			dc.w	eof,$10
			dc.w	blocks_used,$14
			dc.w	create_dateTime,$18
			dc.w	mod_dateTime,$20
			dc.w	access,$28
			dc.w	aux_type,$2A
			dc.w	file_sys_id,$2E
			dc.w	0,0

get_dir_entry_1
			dc.w	pcount,$00
			dc.w	ref_num,$02
			dc.w	flags,$04
			dc.w	base,$06
			dc.w	displacement,$08
			dc.w	name,$0A
			dc.w	entry_num,$0E
			dc.w	file_type,$10
			dc.w	eof,$12
			dc.w	blocks_used,$16
			dc.w	create_dateTime,$1A
			dc.w	mod_dateTime,$22
			dc.w	access,$2A
			dc.w	aux_type,$2C
			dc.w	file_sys_id,$30
			dc.w	option_list,$32
			dc.w	resource_eof,$36
			dc.w	resource_blocks,$3A
			dc.w	0,0

get_dev_num_0
			dc.w	pathname,$00
			dc.w	device_num,$04
			dc.w	0,0

get_dev_num_1
			dc.w	pcount,$00
			dc.w	pathname,$04
			dc.w	device_num,$06
			dc.w	0,0
			
format_0	dc.w	dev_name,$00
			dc.w	vol_name,$04
			dc.w	file_sys_id,$08
			dc.w	0,0

format_1	dc.w	pcount,$00
			dc.w	dev_name,$02
			dc.w	vol_name,$06
			dc.w	file_sys_id,$0A
			dc.w	req_file_sys_id,$0C
			dc.w	0,0
	
erase_0		dc.w	dev_name,$00
			dc.w	vol_name,$04
			dc.w	file_sys_id,$08
			dc.w	0,0

erase_1		dc.w	pcount,$00
			dc.w	dev_name,$02
			dc.w	vol_name,$06
			dc.w	file_sys_id,$0A
			dc.w	req_file_sys_id,$0C
			dc.w	0,0
			
fst_specific_0
			dc.w	0,0

fst_specific_1
			dc.w	pcount,$00
			dc.w	file_sys_id,$02
			dc.w	command_num,$04
			dc.w	fst_mode,$06
			dc.w	0,0

parmTable	dc.w	create_0			; create
			dc.w	create_1
			dc.w	destroy_0			; destroy
			dc.w	destroy_1
			dc.w	0					; os shutdown
			dc.w	0
			dc.w	change_path_0		; change path
			dc.w	change_path_1
			dc.w	set_file_info_0		; set file info
			dc.w	set_file_info_1
			dc.w	get_file_info_0		; get file info
			dc.w	get_file_info_1
			dc.w	0					; reserved
			dc.w	0
			dc.w	volume_0			; volume
			dc.w	volume_1
			dc.w	0					; set prefix
			dc.w	0
			dc.w	0					; get prefix
			dc.w	0
			dc.w	clear_backup_0		; clear backup bit
			dc.w	clear_backup_1
			dc.w	0					; set sys prefs
			dc.w	0
			dc.w	0					; null
			dc.w	0
			dc.w	0					; expand path
			dc.w	0
			dc.w	0					; get sys prefs
			dc.w	0
			dc.w	open_0				; open
			dc.w	open_1
			dc.w	0					; newline
			dc.w	0
			dc.w	read_0				; read
			dc.w	read_1
			dc.w	write_0				; write
			dc.w	write_1
			dc.w	close_0				; close
			dc.w	close_1
			dc.w	0					; flush
			dc.w	0
			dc.w	set_mark_0			; set mark
			dc.w	set_mark_1
			dc.w	get_mark_0			; get mark
			dc.w	get_mark_1
			dc.w	set_eof_0			; set eof
			dc.w	set_eof_1
			dc.w	get_eof_0			; get eof
			dc.w	get_eof_1
			dc.w	0					; set level
			dc.w	0
			dc.w	0					; get level
			dc.w	0
			dc.w	get_dir_entry_0		; get dir entry
			dc.w	get_dir_entry_1
			dc.w	0					; begin session
			dc.w	0
			dc.w	0					; end session
			dc.w	0
			dc.w	0					; session status
			dc.w	0
			dc.w	get_dev_num_0		; get dev number
			dc.w	get_dev_num_1
			dc.w	0					; get last dev
			dc.w	0
			dc.w	0					; read block
			dc.w	0
			dc.w	0					; write block
			dc.w	0
			dc.w	format_0			; format
			dc.w	format_1
			dc.w	erase_0				; erase
			dc.w	erase_1
			dc.w	0					; reset cache
			dc.w	0
			dc.w	0					; get name
			dc.w	0
			dc.w	0					; get boot vol
			dc.w	0
			dc.w	0 					; quit
			dc.w	0
			dc.w	0					; get version
			dc.w	0
			dc.w	0					; get fst info
			dc.w	0
			dc.w	0					; dinfo
			dc.w	0
			dc.w	0					; dstatus
			dc.w	0
			dc.w	0					; dcontrol
			dc.w	0
			dc.w	0					; dread
			dc.w	0
			dc.w	0					; dwrite
			dc.w	0
			dc.w	0					; alloc int/bind int
			dc.w	0
			dc.w	0					; dealloc int/unbind int
			dc.w	0
			dc.w	fst_specific_0		; fst specific
			dc.w	fst_specific_1
			
			ENDR

 EJECT
******************************************************************
*
* 			Name:	main_exit
*
*	 Description:	Or error_priority with current error code
*					and then exit thru sys_exit.
*					Called by everything.
*
*		   Entry:	jml
*
*		   Input:	A = error code
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = error code | error_priority
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000..1 = error
*							   0 = no error
*
*			Exit:	jml sys_exit
*
*			Uses:	error_priority.
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
main_exit	PROCNAME
			WITH  globals
			
			bcc  done		; no error, nothing to do.
			ora  error_priority
done		jml  sys_exit
			ENDP
			
			
 EJECT
******************************************************************
*
* 			Name:	app_entry
*
*	 Description:	Entry point for application calls. Validates
*					call before passing control to handler.
*					Called by GS/OS only.
*
*		   Entry:	jml
*
*		   Input:	A = undefined
*					X = call number times 2
*					Y = class number times 2
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000..1 = error
*							   0 = no error
*
*			Exit:	jmp (app_table,x) OR jmp bad_call
*
*			Uses:	Everything.
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
app_entry	PROCNAME
			WITH  globals

			phk						; setup the data bank register
			plb
			
			cpx  #$67				; is the call in range?
			bcs  @no_way				; nope, so exit
			
			cpy  #$03				; is the class in range?
			bcs  @no_way
			
			stx  call_num			; save the call & class
			sty  call_class
			stz  error_priority		; for bouncing errors
			
			lda  |io_buffer_ptr
			sta  <io_buffer
			lda  |io_buffer_ptr+2
			sta  <io_buffer+2

*** Check for bad pCount BEFORE we dispatch the call (GAB)
			tya						; class 0 call?
			beq  @do_dispatch		; yup, no pCount to validate
			lda  [param_blk_ptr]	; get the pCount
			cmp  c1_pcount-2,x		; make sure it's not > maximum
			bcc  @do_dispatch		; so far, so good
			lda  #invalid_pcount	; else we're outta here!
			sec
			brl  main_exit

@do_dispatch
***
			jmp  (app_table-2,x)	; do the call

@no_way		jmp  bad_call
		
			ENDP

 EJECT
******************************************************************
*
* 			Name:	sys_entry
*
*	 Description:	Entry point for system calls. Validates
*					call before passing control to handler.
*					Called by GS/OS only.
*
*		   Entry:	jsl
*
*		   Input:	A = undefined
*					X = call number times 2
*					Y = class number times 2
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000..1 = error
*							   0 = no error
*
*			Exit:	jmp (sys_table,x) OR jmp ignore
*
*			Uses:	Everything.
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
sys_entry	PROCNAME
			WITH  globals

			phk						; set up the data bank
			plb
						
			cpx #$07				; is it within range?
			bcs @no_way				; nope, see ya
			
			jmp (sys_table-2,x)		; yep, do it

@no_way		jmp ignore
			
			ENDP
			
 EJECT
******************************************************************
*
* 			Name:	id_disk
*
*	 Description:	Determines if a volume in a given device is
*					an Apple II Pascal volume.
*
*		   Entry:	jsr
*
*		   Input:	A = device to id
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000..1 = error
*							   0 = no error
*
*			Exit:	rts
*
*			Uses:	Everything.
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
id_disk		PROCNAME
			WITH  globals

			sta  device
			
*
* do a SET_DIB_PTR call for the device that I am about to talk to.  This
* will set the dib ptr up on direct page so that I can check the
* characteristics of the device before accessing it.
*
			sta  <drvr_buf_ptr			; the dev_id_ref field for SET_DIB_PTR
			stz  <drvr_dev_num			; device $00 = special internal calls
			lda  #$0001					; call $01 = SET_DIB_PTR
			sta  <drvr_call_num
			jsl  dev_dispatcher			; make the call
			bcs  exit					; error ->
			
			ldy  #$08					; get the device characteristics
			lda  [<drvr_dib_ptr],y
			and  #$0080					; is it a block device?
			beq  @bad_device			; nope ->
			
			ldy  #$34					; get the device id
			lda  [<drvr_dib_ptr],y
			cmp  #$0006					; is it a disk][, profile 5MB or 10MB, or a disk3.5, generic
										;  scsi, or scsi HD?
			bcc  @ok					; yes ->
			cmp  #$0013					; is it a generic hard disk?
			beq  @ok					; yes ->
			cmp  #$0014					; is it a generic floppy disk?
			beq  @ok					; yes ->

*** added 25-Oct-91 DAL -- FDHD on Mustang is device_id $0017 (even an 800K floppy)
			cmp  #$0017					; Is it a FDHD on Mustang?
			beq  @ok
*** end 25-Oct-91

*** added 22-Apr-93 DAL -- RAM disks are okay
			cmp  #$000E
			beq  @ok
*** end 22-Apr-93

@bad_device	lda  #unknown_vol			; the device was not the type of device
			sec							; that I talk to, so exit with an
			bra  exit					; unknown_vol error

*
* the device is ok, so now attempt to id the volume
*
@ok			lda  device
			sta  dev_num
			lda  #2
			sta  block_num			
	
			jsr  read_block
			bcs  exit
	
			jsr  id_block
			bcs  exit

			lda  #vcr_size
			jsr  build_vcr
			bcs	 exit
			
done
			lda  #$8000
			sta  error_priority			;any error now has priority
			lda  #no_error
			clc
exit		rts

			ENDP

 EJECT
******************************************************************
*
* 			Name:	id_block
*
*	 Description:	examines the contents of io_buffer to determine
*					if it is the directory block of a Pascal volume.
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000..1 = error
*							   0 = no error
*
*			Exit:	rts
*
*			Uses:	Everything.
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
id_block	PROCNAME
			WITH  globals
			
*
* analyze the contents to determine if this block is a directory block...
*

*			ldy  #$00					; does the directory start at $00?
*			lda  [io_buffer],y
*			bne  notPascal
*			
*			iny
*			iny
*			lda  [io_buffer],y
*			cmp  #$07					; does directory end before block 7?
*			bcs  notPascal
			
			ldy  #$06
			lda  [io_buffer],y
			and  #$FF
			cmp  #$08					; is the title of the volume <= 7 chars?
			bcs  notPascal
			cmp  #$01					; is the title at least 1 char?
			bcc  notPascal

			clc							; add 7 to length so that I can
			adc  #$07					; use g_volumeName as a max value for
			sta  temp					; the y index register

loop		iny							; check to see that the name consists
			tya							; of legal chars only
			cmp  temp
			bcs  chkFileCnt
			lda  [io_buffer],y
			and  #$FF
checkDigit	cmp  #$30					; is the char an ascii digit?
			bcc  notPascal
			cmp  #$3A
			bcc  loop
checkUpper	cmp  #$41					; is the char upper case ascii?
			bcc  notPascal
			cmp  #$5b
			bcc  loop
checkLower	cmp  #$61					; is the char lower case ascii?
			bcc  notPascal
			cmp  #$7b
			bcs  notPascal
			bra  loop
			
chkFileCnt	ldy  #io_file_count
			lda  [io_buffer],y
			cmp  #78					; are there <= 77 files in the directory?
			bcc  isPascal

notPascal	lda  #unknown_vol
			sec
exit		rts

*
* ok, the volume is a Pascal volume.  Now pull all the information out of
* the io_buffer and put it into my global variables
*
isPascal	sta  numFiles				; save file count
			
			ldy  #io_date_stamp			; save date stamp
			lda  [io_buffer],y
			sta  dateStamp

			ldy  #$0E					; retrieve total blocks from
			lda  [io_buffer],y			; volume header
			sta  g_blocks_used
			sta  g_aux_type
			
			lda  #$c3
			sta  g_access
			
			lda  #$0F
			sta  g_file_type
						
			sta  g_storage_type
			
			stz  g_eof
			stz  g_entry_num
			
*
* must do date & time also
*

			lda  #no_error				; go back to see if there is a volume
			clc							; after this one
			bra  exit
			
			ENDP
			
 EJECT
******************************************************************
*
* 			Name:	build_vcr
*
*	 Description:	Attempts to build a vcr from the data in
*					[io_buffer].  It first checks to see if the 
*					vcr exists.  If it exists then a) if no files
*					are open, then the old vcr is removed and a
*					new one is inserted pertaining to the new
*					volume, or b) if files are open then
*					the dup_volume error is returned.  If the vcr
*					does not exist then it will create the new
*					vcr.
*
*			NOTE:	Must only be called by id_disk!
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000..1 = error
*							   0 = no error
*
*			Exit:	rts
*
*			Uses:	Everything.
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
build_vcr	PROCNAME
			WITH  globals
			
			ldy  #io_name_len			; copy volume name
			lda  [io_buffer],y
			and  #$FF
			sta  g_volumeName
			inc  a
			inc  a
			sta  size
			ldx  #$02
			iny
			LONGA  OFF
			sep  #$20
loop		lda  [io_buffer],y
			sta  g_volumeName,x
			iny
			inx
			cpx  size
			bcc  loop
			rep  #$20
			LONGA  ON
			
			lda  #$0000					; search vcr list by name
			ldx  #g_volumeName
			ldy  #^g_volumeName
			jsl  find_vcr				; does the vcr exist?
			bcs  addVcr					; no, so add mine
			
			jsl  deref					; yes, so investigate
			stx  my_vcr
			sty  my_vcr+2
			
			ldy  #vcr_fst_id			
			lda  [my_vcr],y
			cmp  #pascal_id				; is it mine?

			ldy  #vcr_date_stamp		; Yes - is it the same disk?
			lda  [my_vcr],y				; first check date stamp
			cmp  dateStamp
			bne  dumpVCR
			ldy  #vcr_num_files			; then check the # of files
			lda  [my_vcr],y
			cmp  numFiles
			bne  dumpVCR
			
			ldy  #vcr_status			; check vcr_status
			lda  [my_vcr],y
			and  #vcr_swapped
			beq  not_swapped
			
			and  #vcr_swapped_in
			sta  [my_vcr],y
			
			lda  device					; update the device field
			ldy  #vcr_dev
			sta  [my_vcr],y			
			
not_swapped	brl  done  

dumpVCR		ldy  #vcr_open_cnt			; any open files?			
			lda  [my_vcr],y
			beq  removeIt
			
			lda  #dup_volume			
			sec
			brl  exit

removeIt	ldy  #vcr_id
			lda  [my_vcr],y				; get vcr_id
			jsl  release_vcr  
				
addVcr		lda  #vcr_end
			ldx  #g_volumeName			; allocate a VCR
			ldy  #^g_volumeName
			jsl  alloc_vcr
			lda  #out_of_mem
			bcs  exit
			
			jsl  deref					; got the vcr, so deref it
			stx  my_vcr
			sty  my_vcr+2
									
			lda  #0						; set status
			ldy  #vcr_status
			sta  [my_vcr],y
			
			lda  #pascal_id				; fst id
			ldy  #vcr_fst_id
			sta  [my_vcr],y
			
			lda  device					; device
			ldy  #vcr_dev
			sta  [my_vcr],y
			
			lda  #0						; set open count to zero
			ldy  #vcr_open_cnt
			sta  [my_vcr],y
			
			lda  dateStamp				; date stamp
			ldy  #vcr_date_stamp
			sta  [my_vcr],y
			
			lda  numFiles				; file count
			ldy  #vcr_num_files
			sta  [my_vcr],y

*
* copy the directory of the volume into the vcr
*
			lda  #2
			sta  block_num
			jsr  read_block
			bcs  exit
			ldy  #0
			ldx  #vcr_directory
@loop		lda  [io_buffer],y
			phy
			txy
			sta  [my_vcr],y
			ply
			inx
			inx
			iny
			iny
			cpy  #buffer_size
			bcc  @loop

			lda  #4
			sta  block_num
			jsr  read_block
			bcs  exit
			ldy  #0
			ldx  #vcr_directory2
@loop2		lda  [io_buffer],y
			phy
			txy
			sta  [my_vcr],y
			ply
			inx
			inx
			iny
			iny
			cpy  #buffer_size
			bcc  @loop2
			
done		lda  #no_error
			clc
			
exit		rts
			
			ENDP

 EJECT
******************************************************************
*
* 			Name:	build_fcr
*
*	 Description:	Builds and initializes and fcr.
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000..1 = error
*							   0 = no error
*
*			Exit:	rts
*
*			Uses:	Everything.
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
build_fcr	PROCNAME
			WITH  globals

			ldy		#8					; copy g_volumeName into g_tempStr
@copy
			lda		g_volumeName,y
			sta		g_tempStr+1,y		; leave space for leading separator
			dey
			dey
			bpl		@copy
			lda		g_volumeName		; get length
			inc		a					; allow for leading pathname separator
			sta		g_tempStr
			lda		g_tempStr+2			; get the first character of the volume name
			and		#$FF00				; strip off garbage character
			ora		#c1_sep				; include separator
			sta		g_tempStr+2

			lda  #fcr_end				; A = size of fcr
			;ldx  #g_fileName
			;ldy  #^g_fileName
			ldx  #g_tempStr				; we're supposed to be passing the _volume_ name!
			ldy  #^g_tempStr
			jsl  alloc_fcr
			bcc  got_it
			
			lda  #out_of_mem
			brl  exit
			
got_it		jsl  deref
			stx  my_fcr
			sty  my_fcr+2
			
			ldy  #vcr_open_cnt			; increment the open count
			lda  [my_vcr],y				; on the vcr
			inc  a
			sta  [my_vcr],y
			
			ldy  #fcr_ref_num			; get the ref_num for the file
			lda  [my_fcr],y
			sta  g_ref_num
			
			ldy  #fcr_access			; init access
			lda  #$0001
			sta  [<my_fcr],y
										
			ldy  #fcr_fst_id			; init fst id
			lda  #pascal_id
			sta  [my_fcr],y
			
			ldy  #vcr_id				; init vcr id
			lda  [my_vcr],y
			ldy  #fcr_vol_id
			sta  [my_fcr],y
					
			lda  the_fst_mode			; save the mode the file was opened in
			ldy  #fcr_mode
			sta  [my_fcr],y
			
@start		ldy  #fcr_start_block		; init start_block
			lda  f_start_block
			sta  [my_fcr],y
			
			ldy  #fcr_pmark				; init physical mark
			lda  #0
			sta  [my_fcr],y
			iny
			iny
			sta  [my_fcr],y
			
			ldy  #fcr_mark				; init logical mark
			sta  [my_fcr],y

			ldy  #fcr_expand_cnt		; init expansion_count
			sta  [my_fcr],y
			
			ldy  #fcr_end_block			; init end_block
			lda  f_end_block
			sta  [my_fcr],y
			
			ldy  #fcr_ending_bytes		; init ending_bytes
			lda  f_ending_bytes
			sta  [my_fcr],y

			ldy  #fcr_file_type			; init file_type
			lda  g_file_type
			sta  [my_fcr],y

			ldy  #fcr_eof
			lda  g_eof
			sta  [<my_fcr],y
			iny
			iny
			lda  g_eof+2
			sta  [<my_fcr],y
						
done		clc
exit		rts
			
			ENDP						; end of build_fcr

 EJECT
******************************************************************
*
* 			Name:	wr_protect
*
*	 Description:	ID's the volume to see if it is mine, 
*					and if so then loads accumulator with $2B, 
*					sets carry flag and exits through main_exit.
*
*		   Entry:	jml
*
*		   Input:	A = undefined
*					X = call number times 2
*					Y = class number times 2
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = error code (may vary if not my disk)
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000..1
*
*			Exit:	brl main_exit
*
*			Uses:	nothing.
*
*	8/22/91		JEV		Changed code to find target first so that 
*						error_priority gets set up first before we 
*						do any checking on the other input parms.
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
wr_protect	PROCNAME
			WITH  globals

			jsr  find_target			; check to see if it's a pascal
										; volume.
			bcs	 exit					; Nope ->
*
* get the input from the users pblock
*
			lda  #get_input
			jsr  xfer_parms
			bcs  exit

*
* special case the erase, format, write and set_eof calls
*
			lda  call_num				; get the call number
			and  #$00FF					; mask off the class
			lsr  a						; divide it by two
			cmp  #$13					; write
			beq  done
			cmp  #$18					; set_eof
			beq  done
			cmp  #$24					; format
			beq  done
			cmp  #$25					; erase_disk
			beq  done

*
* find target of the call.  If an error occurs, then exit.  Otherwise
* return a write protected error
*	
generic		jsr  find_target
			bcc  done
			cmp  #file_not_found		; this is for the CREATE call
			bne  exit

done		lda  #drvr_wr_prot
exit		sec
			brl main_exit

			ENDP
			
 EJECT
******************************************************************
*
* 			Name:	bad_call
*
*	 Description:	Loads accumulator with $01, sets carry flag
*					and exits through main_exit.
*
*		   Entry:	jmp
*
*		   Input:	A = undefined
*					X = call number times 2
*					Y = class number times 2
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = $0001
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000..1
*
*			Exit:	brl main_exit
*
*			Uses:	nothing.
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
bad_call	PROCNAME
			WITH  globals

			lda #$0001
			sec
			brl main_exit

			ENDP
			
 EJECT
******************************************************************
*
* 			Name:	invalid_op
*
*	 Description:	Loads accumulator with invalid_fst_op, sets carry flag
*					and exits through main_exit.
*
*		   Entry:	jmp
*
*		   Input:	A = undefined
*					X = call number times 2
*					Y = class number times 2
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = #invalid_fst_op
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000..1
*
*			Exit:	brl main_exit
*
*			Uses:	nothing.
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
invalid_op	PROCNAME
			WITH  globals

			lda #invalid_fst_op
			sec
			brl main_exit

			ENDP
			
 EJECT
******************************************************************
*
* 			Name:	ignore,ignore2
*
*	 Description:	Loads accumulator with $00, clears carry, and
*					exits via either an rtl or a jml  main_exit.
*
*		   Entry:	jmp
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = $0000
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000..0
*
*			Exit:	rtl,jml
*
*			Uses:	nothing.
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
ignore		PROCNAME
			WITH  globals

			lda  #no_error
			clc
			brl  main_exit

			ENDP

ignore2		PROCNAME
			WITH  globals

			lda #no_error
			clc
			rtl

			ENDP
			
 EJECT
******************************************************************
*
* 			Name:	startup
*
*	 Description:	startup code for fst
*
*		   Entry:	jmp
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000..0 = no error
*							   1 = error
*
*			Exit:	rtl
*
*			Uses:	Everything.
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
startup		PROCNAME
			WITH  globals

			jsl  get_sys_gbuf			; locate system i/o buffer
			
			stx  io_buffer_ptr
			sty  io_buffer_ptr+2
							
done		clc
exit		rtl

			ENDP
			
 EJECT
******************************************************************
*
* 			Name:	shutdown
*
*	 Description:	shutdown code for fst
*
*		   Entry:	jmp
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000..0 = no error
*							   1 = error
*
*			Exit:	rtl
*
*			Uses:	Everything.
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
shutdown	PROCNAME
			WITH  globals
			
			rtl

			ENDP

 EJECT
******************************************************************
*
* Application Calls Begin Here
*
******************************************************************

 EJECT
******************************************************************
*
* 			Name:	get_file_info
*
*	 Description:	performs call $06, get_file_info
*
*		   Entry:	jmp
*
*		   Input:	A = undefined
*					X = call number times 2
*					Y = class number times 2
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000..0 = no error
*							   1 = error
*
*			Exit:	brl main_exit
*
*			Uses:	Everything.
*
*	8/22/91		JEV		Changed code to id_disk first so that 
*						error_priority gets set up first before we 
*						do any checking on the other input parms.
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
get_file_info	PROCNAME
			WITH  globals

			jsr  find_target				; find the requested file
			bcs  exit

			lda  #get_input
			jsr  xfer_parms
			bcs  exit
		
*
* determine if I am doing a gfi on a volume directory
*
			lda  g_storage_type
			cmp  #$0f						; volume directory?
			bne  output						; no ->

			lda  call_class					; class 1 or 0?
			lsr  a							; /2
			bne	 is_1						; 1 ->
			
*
* we are doing a gfi on a volume directory, so return the number of used
* blocks in the blocks_used field, and return the number of total_blocks
* in the aux_type field.
*
			lda  #6							; initialize # of used blocks
			sta  used_blks					; 2 boot blocks + 4 dir blocks = 6
		
			ldy  #vcr_num_files				; get the number of files on the volume
			lda  [<my_vcr],y
			beq  calc_free					; no files ->
			tax
			
			clc								; calculate offset to beginning of
			lda  #vcr_directory				; directory in vcr
			adc  #26						; skip volume entry
			tay
			
@loop		lda  [<my_vcr],y				; get starting block of file
			sta  temp
			iny
			iny
			lda  [<my_vcr],y				; get ending block of file
			sec								; calculate blocks used by file
			sbc  temp
			clc
			adc  used_blks					; add it to the # of used blocks on volume
			sta  used_blks
			
			tya								; move index to next file
			clc
			adc  #24
			tay
			
			dex								; is there another file?
			bne  @loop						; yes ->
			
calc_free	sec								; calculate the number of free blocks on the volume
			lda  g_blocks_used
			sbc  used_blks
			sta  free_blks					; save the result

			lda  g_blocks_used				; total blocks
			sta  g_aux_type
			
			lda  used_blks					; blocks used
			sta  g_blocks_used
			
			bra  output

*
* in class one, the aux_type and blocks_used field are zero
*
is_1		stz  g_aux_type
			stz  g_blocks_used
	
*
* send the output
*
output		lda  #send_output			; output the results
			jsr  xfer_parms
			bcs  exit
			
done		lda  #no_error
			clc
exit		brl  main_exit

free_blks	dc.w	0
used_blks	dc.w	0

			ENDP
						
 EJECT
******************************************************************
*
* 			Name:	volume
*
*	 Description:	performs call $08, volume
*
*		   Entry:	jmp
*
*		   Input:	A = undefined
*					X = call number times 2
*					Y = class number times 2
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000..0 = no error
*							   1 = error
*
*			Exit:	brl main_exit
*
*			Uses:	Everything.
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
volume		PROCNAME
			WITH  globals

			lda  dev_num
			jsr  id_disk			; is the disk in the device
			bcc  @1					; a pascal disk?

			cmp  #dup_volume		; duplicate volume?
			beq  @2					; yes, output the volume name anyways ->
			sec						; no, pass it on up ->
			bra  exit
			
@2			lda  path_flag			; device name only?
			and  #$4000
			bne  @3					; no ->
			
			lda  #send_output		
			jsr  p_vol_name
			bcs  exit				; return any error ->
			
@3			lda  #dup_volume		; pass up the dup_volume error anyways ->
			sec
			bra  exit
						
@1			lda  #send_output		; put output in user's pblock
			jsr  xfer_parms
			bcs  exit
									
done		lda  #no_error
			clc
exit		brl  main_exit
			
			ENDP

 EJECT
******************************************************************
*
* 			Name:	open
*
*	 Description:	performs call $10, open
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = call number times 2
*					Y = class number times 2
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000..0 = no error
*							   1 = error
*
*			Exit:	brl main_exit
*
*			Uses:	Everything.
*
*
*	8/22/91		JEV		Changed code to find_target first so that 
*						error_priority gets set up first before we 
*						do any checking on the other input parms.
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
open		PROCNAME
			WITH  globals

			jsr  find_target
			bcs  exit
			
			lda  #get_input
			jsr  xfer_parms
			bcs  exit
			
			jsr  build_fcr
			bcs  exit
			
			lda  g_file_type				; opening a directory?
			cmp  #$000F
			bne  @1
	
			stz  g_blocks_used				; field undefined for a volume			
			bra  output						; yes, don't read in anything ->
						
@1			jsr  read_io_block				; read the current io block			
			bcs  exit						; error ->
			
output		lda  #send_output
			jsr  xfer_parms
			bcs  exit
			
done		lda  #no_error					; into the fcr io buffer
			clc
exit		brl  main_exit

			ENDP

 EJECT
******************************************************************
*
* 			Name:	read
*
*	 Description:	performs call $12, read
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = call number times 2
*					Y = class number times 2
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000..0 = no error
*							   1 = error
*
*			Exit:	brl main_exit
*
*			Uses:	
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
read		PROCNAME
			WITH  globals

			ldx  fcr_ptr			; setup the fcr ptr
			ldy  fcr_ptr+2
			jsl  deref
			stx  my_fcr
			sty  my_fcr+2

			lda  #get_input
			jsr  xfer_parms
			bcc  @ok
			brl  exit

*
* check to see if the user is trying to read from a directory
*
@ok			ldy  #fcr_file_type
			lda  [my_fcr],y
			cmp  #$0F
			bne  check_swap
			lda  #invalid_access
			sec
			brl  exit

*
* check to see if the volume is still in the drive, and if it is not,
* then find it.  if found, then update the vcr with the device and the
* swapped status.
*
check_swap

*
* the volume is online, so check to see if the request count 
* of the call is zero.  if it is, then return successfull.
*
next		lda  |g_request_count
			ora  |g_request_count+2
			bne  next1
			
			stz  g_transfer_count
			stz  g_transfer_count+2
			
			brl  done
			
*
* check to see if the file_mark = eof.
* if it is, then return an eof error.
*
next1		ldy  #fcr_mark			; retrieve the file mark
			lda  [my_fcr],y
			sta  tempLong
			iny
			iny
			lda  [my_fcr],y
			sta  tempLong+2
		
			clc
			lda  tempLong
			adc  #1
			sta  tempLong
			lda  tempLong+2
			adc #0
			sta  tempLong+2

			ldy  #fcr_eof			; retrieve the eof
			lda  [my_fcr],y
			sta  g_eof
			iny
			iny
			lda  [my_fcr],y
			sta  g_eof+2
							
			lda  g_eof				; compare them
			sec
			sbc  tempLong
			lda  g_eof+2
			sbc  tempLong+2
			bcs  @n2
		
			lda  #end_of_file		; return an eof error
			sec
			brl  exit
	
*
* check to see if the request_count + the file_mark is > eof.
* if it is, then set the transfer_count = eof-file_mark.
*
@n2			ldy  #fcr_mark			; retrieve the file_mark
			lda  [my_fcr],y
			sta  tempLong
			iny
			iny
			lda  [my_fcr],y
			sta  tempLong+2
			
			lda  g_request_count	; add the file_mark and the request_count
			clc
			adc  tempLong
			sta  tempLong
			lda  g_request_count+2
			adc  tempLong+2
			sta  tempLong+2

			ldy  #fcr_eof			; retrieve the eof
			lda  [my_fcr],y
			sta  g_eof
			iny
			iny
			lda  [my_fcr],y
			sta  g_eof+2
		
			sec
			lda  g_eof				; compare them
			sbc  tempLong
			sta  tempLong
			lda  g_eof+2
			sbc  tempLong+2
			sta  tempLong+2
			bcs  @n3

*
* NOTE the the setting of transfer_count is only a maximum transfer count
* possible.  If newline mode is enabled, then the transfer_count may
* be less.
*
			ldy  #fcr_mark			; set transfer_count = eof - file_mark
			lda  [my_fcr],y
			sta  tempLong
			iny
			iny
			lda  [my_fcr],y
			sta  tempLong+2
			
			sec
			lda  g_eof
			sbc  tempLong
			sta  g_transfer_count
			sta  xfer_cnt
			lda  g_eof+2
			sbc  tempLong+2
			sta  g_transfer_count+2
			sta  xfer_cnt+2
			bra  @n4
			
@n3			lda  g_request_count	; set transfer_count = req_cnt
			sta  g_transfer_count
			sta  xfer_cnt
			lda  g_request_count+2
			sta  g_transfer_count+2
			sta  xfer_cnt+2

*
* is newline mode set?
*
@n4			ldy  #fcr_newline_len
			lda  [my_fcr],y
			bne  nline_read
			brl  xfer_first
			
			
*
* newline mode is set
*
nline_read	ldy  #fcr_newline			; setup the pointer to the newline table
			lda  [<my_fcr],y
			tax
			iny
			iny
			lda  [<my_fcr],y
			tay
			jsl  deref
			stx  newline_table
			sty  newline_table+2
						
			ldy  #fcr_newline_len		; get the table len
			lda  [<my_fcr],y
			sta  newline_len
			
			LONGA  OFF
			sep  #$20

			ldy  #fcr_mask
			lda  [<my_fcr],y
			sta  newline_mask
			
			LONGA  ON
			rep  #$20
			
*
* transfer the data to the user's buffer.  if there is only one character in
* the newline table, then copy the char to dpage and check only that one char.  
* otherwise do it the brute force way.
*
			lda  newline_len			; one char?
			and  #$FF
			dec  a
			beq  one_xfer				; yes ->
			brl  multi_xfer				; no ->
			
one_xfer	sep  #$20
			LONGA  OFF
			
			ldy  #0						; get the newline char
			lda  [<newline_table],y
			sta  newline_char
			
			rep  #$20
			LONGA  ON
			
			stz  g_transfer_count
			stz  g_transfer_count+2
			
			ldy  #fcr_io_index			; get the index to begin reading from
			lda  [<my_fcr],y			; the io buffer at.
			sta  tempIndex				; save the io buffer index for later
			tax
			clc
			adc  #fcr_io_buffer			; adjust to beginning of io buffer

			tay
						
			ldx  #0
			
			LONGA  OFF
			sep  #$20
			
@loop		lda  [<my_fcr],y			; source
			sta  t_data					; save the char for later
			phy
			txy
			sta  [<g_data_buffer],y		; destination
			ply
						
			rep  #$20
			LONGA  ON
			
			inx							; x is used to see if the io buffer is empty
			iny
			
			phx
			phy
			
			tya							; save for empty io buffer check
			sec
			sbc  #fcr_io_buffer
			sta  temp1					
			
			clc							; increment the transfer count
			lda  g_transfer_count
			adc  #1
			sta  g_transfer_count
			lda  g_transfer_count+2
			adc  #0
			sta  g_transfer_count+2
						
			clc							; increment the file mark
			ldy  #fcr_mark
			lda  [<my_fcr],y
			adc  #1
			sta  [<my_fcr],y
			iny
			iny
			lda  [<my_fcr],y
			adc  #0
			sta  [<my_fcr],y
						
			clc							; increment the io buffer index
			ldy  #fcr_io_index
			lda  [<my_fcr],y
			adc  #1
			sta  [<my_fcr],y
			
			sep  #$20
			LONGA  OFF
			
			lda  t_data
			and  newline_mask			; and data with the newline mask
			cmp  newline_char			; does it match the newline char?

			rep  #$20
			LONGA  ON
			
			beq  @fodone				; yes, all done ->
			
			ldy  #fcr_io_size			; empty io buffer?
			lda  [<my_fcr],y
			dec  a
			cmp  temp1
			bcs  @1						; no ->

*
* adjust the pointer to the user's data buffer
*
			inc  a						
			sec							; subtract the io buffer index from
			sbc  tempIndex				; the io buffer size
			clc
			adc  <g_data_buffer
			sta  <g_data_buffer
			lda  <g_data_buffer+2
			adc  #0
			sta  <g_data_buffer+2
			
			jsr  read_io_block
			
			ply							; get old index values
			plx
			
			bcc  @ok
			brl  exit					; error from read_io_block ->
			
@ok			ldy  #fcr_io_index			; new buffer index
			lda  [<my_fcr],y
			sta  tempIndex				; save for the adjustment of the pointer
										; to the user buffer
			clc
			adc  #fcr_io_buffer
			tay
										
			ldx  #0						; reset x

			sec							; decrement the # of bytes to transfer
			lda  xfer_cnt
			sbc  #1
			sta  xfer_cnt
			lda  xfer_cnt+2
			sbc  #0
			sta  xfer_cnt+2			
			ora  xfer_cnt				; done?
			beq  @fodone2				; yes ->
			
			bra  @2						; stack is already balanced ->
			
@1			sec							; decrement the # of bytes to transfer
			lda  xfer_cnt
			sbc  #1
			sta  xfer_cnt
			lda  xfer_cnt+2
			sbc  #0
			sta  xfer_cnt+2			
			ora  xfer_cnt				; done?
			beq  @fodone				; yes ->

			ply
			plx
			
@2			sep  #$20					; short a
			
			brl  @loop					; keep going ->
			
@fodone		ply							; balance stack
			plx
			
@fodone2	brl  done					; done ->

*
* transfer in newline mode with multiple newline chars
*
multi_xfer	stz  g_transfer_count
			stz  g_transfer_count+2
			
			ldy  #fcr_io_index			; get the index to begin reading from
			lda  [<my_fcr],y			; the io buffer at.
			sta  tempIndex				; save the io buffer index for later
			tax
			clc
			adc  #fcr_io_buffer			; adjust to beginning of io buffer

			tay
						
			ldx  #0
			
			LONGA  OFF
			sep  #$20
			
@loop		lda  [<my_fcr],y			; source
			sta  t_data					; save the char for later
			phy
			txy
			sta  [<g_data_buffer],y		; destination
			ply
						
			rep  #$20
			LONGA  ON
			
			inx							; x is used to see if the io buffer is empty
			iny
			
			phx
			phy
			
			tya							; save for empty io buffer check
			sec
			sbc  #fcr_io_buffer
			sta  temp1					
			
			clc							; increment the transfer count
			lda  g_transfer_count
			adc  #1
			sta  g_transfer_count
			lda  g_transfer_count+2
			adc  #0
			sta  g_transfer_count+2
						
			clc							; increment the file mark
			ldy  #fcr_mark
			lda  [<my_fcr],y
			adc  #1
			sta  [<my_fcr],y
			iny
			iny
			lda  [<my_fcr],y
			adc  #0
			sta  [<my_fcr],y
						
			clc							; increment the io buffer index
			ldy  #fcr_io_index
			lda  [<my_fcr],y
			adc  #1
			sta  [<my_fcr],y
			
			sep  #$20
			LONGA  OFF
			
			ldy  #0
			lda  t_data
			and  newline_mask			; and data with the newline mask
@checkit	cmp  [<newline_table],y		; is this the char?
			beq  @0
			iny
			cpy  newline_len
			bcc  @checkit
			lda  #1						; clear the zero flag
			
@0			rep  #$20
			LONGA  ON
			
			beq  @fodone				; yes, all done ->
			
			ldy  #fcr_io_size			; empty io buffer?
			lda  [<my_fcr],y
			dec  a
			cmp  temp1
			bcs  @1						; no ->

*
* adjust the pointer to the user's data buffer
*
			inc  a						
			sec							; subtract the io buffer index from
			sbc  tempIndex				; the io buffer size
			clc
			adc  <g_data_buffer
			sta  <g_data_buffer
			lda  <g_data_buffer+2
			adc  #0
			sta  <g_data_buffer+2
			
			jsr  read_io_block
			
			ply							; get old index values
			plx
			
			bcc  @ok
			brl  exit					; error from read_io_block ->
			
@ok			ldy  #fcr_io_index			; new buffer index
			lda  [<my_fcr],y
			sta  tempIndex				; save for the adjustment of the pointer
										; to the user buffer
			clc
			adc  #fcr_io_buffer
			tay
										
			ldx  #0						; reset x

			sec							; decrement the # of bytes to transfer
			lda  xfer_cnt
			sbc  #1
			sta  xfer_cnt
			lda  xfer_cnt+2
			sbc  #0
			sta  xfer_cnt+2			
			ora  xfer_cnt				; done?
			beq  @fodone2				; yes ->
			
			bra  @2						; stack is already balanced ->
			
@1			sec							; decrement the # of bytes to transfer
			lda  xfer_cnt
			sbc  #1
			sta  xfer_cnt
			lda  xfer_cnt+2
			sbc  #0
			sta  xfer_cnt+2			
			ora  xfer_cnt				; done?
			beq  @fodone				; yes ->

			ply
			plx
			
@2			sep  #$20					; short a
			
			brl  @loop					; keep going ->
			
@fodone		ply							; balance stack
			plx
			
@fodone2	brl  done					; done ->

*
* newline mode is not set
*
xfer_first	ldy  #fcr_io_index			; get the index to begin reading from
			lda  [<my_fcr],y			; the io buffer at.
			sta  tempIndex				; save the io buffer index for later
			clc
			adc  #fcr_io_buffer			; adjust to beginning of io buffer

			tay
						
			ldx  #0
			
			LONGA  OFF
			sep  #$20
			
@loop		lda  [<my_fcr],y			; source
			phy
			txy
			sta  [<g_data_buffer],y		; destination
			ply
			
			rep  #$20
			LONGA  ON
			
			inx							; x is used to see if the io buffer is empty
			iny
			
			phx
			phy
			
			tya							; save for empty io buffer check
			sec
			sbc  #fcr_io_buffer
			sta  temp1					
			
			clc							; increment the file mark
			ldy  #fcr_mark
			lda  [<my_fcr],y
			adc  #1
			sta  [<my_fcr],y
			iny
			iny
			lda  [<my_fcr],y
			adc  #0
			sta  [<my_fcr],y
						
			clc							; increment the io buffer index
			ldy  #fcr_io_index
			lda  [<my_fcr],y
			adc  #1
			sta  [<my_fcr],y
						
			ldy  #fcr_io_size			; empty io buffer?
			lda  [<my_fcr],y
			dec  a
			cmp  temp1
			bcs  @1						; no ->

*
* adjust the pointer to the user's data buffer
*
			inc  a						
			sec							; subtract the io buffer index from
			sbc  tempIndex				; the io buffer size
			clc
			adc  <g_data_buffer
			sta  <g_data_buffer
			lda  <g_data_buffer+2
			adc  #0
			sta  <g_data_buffer+2
			
			jsr  read_io_block
			
			ply							; get old index values
			plx
			
			bcs  exit					; error from read_io_block ->
			
			ldy  #fcr_io_index			; new buffer index
			lda  [<my_fcr],y
			sta  tempIndex				; save for the adjustment of the pointer
										; to the user buffer
			clc
			adc  #fcr_io_buffer
			tay
										
			ldx  #0						; reset x

			sec							; decrement the # of bytes to transfer
			lda  xfer_cnt
			sbc  #1
			sta  xfer_cnt
			lda  xfer_cnt+2
			sbc  #0
			sta  xfer_cnt+2			
			ora  xfer_cnt				; done?
			beq  @fodone2				; yes ->
			
			bra  @2						; stack is already balanced ->
			
@1			sec							; decrement the # of bytes to transfer
			lda  xfer_cnt
			sbc  #1
			sta  xfer_cnt
			lda  xfer_cnt+2
			sbc  #0
			sta  xfer_cnt+2			
			ora  xfer_cnt				; done?
			beq  @fodone				; yes ->

			ply
			plx
			
@2			sep  #$20					; short a
			
			brl  @loop					; keep going ->
			
@fodone		ply							; balance stack
			plx
			
@fodone2	bra  done					; done ->
			
*
* ok, that's it.  send the output to the user's pblock and exit
*
done		lda  #send_output
			jsr  xfer_parms
			bcs  exit
			
			lda  #no_error
			clc
exit		brl  main_exit

xfer_cnt	dc.l	0
temp1		dc.w	0
tempIndex	dc.w	0
xferred		dc.l	0
t_data		dc.b	0

			ENDP

 EJECT
******************************************************************
*
* 			Name:	read_io_block
*
*	 Description:	read a new block into the fcr io buffer
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000..0 = no error
*							   1 = error
*
*			Exit:	rts
*
*			Uses:	
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
read_io_block	PROCNAME
			WITH  globals
			
			ldy  #fcr_file_type			; get file type.  if not ascii, then
			lda  [<my_fcr],y			; do a native read...
			cmp  #4						; ascii file?
			beq  @1						; yes ->
			brl  native					; no ->

*
* read the block
*
@1			ldy  #fcr_mark				; get the fcr_mark
			lda  [<my_fcr],y
			tax
			iny
			iny
			lda  [<my_fcr],y
			tay
			
			jsr  div512					; find out which block it is in
		
			ldy  #fcr_start_block		; calculate block # to read
			lda  [<my_fcr],y
			clc
			adc  g_quotient
			sta  block_num
			
			jsr  read_block				; read it in
			bcc  @ok
			brl  exit					; error ->
			
*
* if we are at the last block, then only transfer the # of bytes
* in the last block, not 512
*
@ok			lda  #512					; assume 512 byte buffer
			sta  temp
			tax

			ldy  #fcr_end_block
			lda  [<my_fcr],y
			cmp  block_num
			bne  @n1
			
			ldy  #fcr_ending_bytes		; use the # of bytes in last block
			lda  [<my_fcr],y
			sta  temp
			tax
			
@n1			txy
			dey

*
* copy the data
*
			LONGA  OFF
			sep  #$20
										; copy the data to the io buffer
			ldx  #fcr_io_buffer+511		; dest index

@loop		lda  [<io_buffer],y
			phy
			txy
			
			cmp  #0						; NULL?
			bne  @n2
			lda  #$20
			bra  @store
			
@n2			cmp  #$10					; DLE?
			bne  @store
			lda  #$20
			sta  [<my_fcr],y			; store it
			iny
			sta  [<my_fcr],y			; mask out the dle count, too.
			dey			
			
@store		sta  [<my_fcr],y

			dey							; decrement dest index
			tyx
			ply
			dey							; decrement source index
			bpl  @loop					; not done yet ->
			
			LONGA  ON
			rep  #$20

			lda  g_remainder			; io index
			ldy  #fcr_io_index
			sta  [<my_fcr],y
			
			ldy  #fcr_io_size			; io buffer size
			lda  temp
			sta  [<my_fcr],y
						
			brl  done					; finito ->
			
*
* do a native read
*
native		ldy  #fcr_mark				; get the fcr_mark
			lda  [<my_fcr],y
			tax
			iny
			iny
			lda  [<my_fcr],y
			tay
			
			jsr  div512					; find out which block it is in
		
			ldy  #fcr_start_block		; calculate block # to read
			lda  [<my_fcr],y
			clc
			adc  g_quotient
			sta  block_num
			
			jsr  read_block				; read it in
			bcc  @ok
			brl  exit					; error ->
			
*
* if we are at the last block, then only transfer the # of bytes
* in the last block, not 512
*
@ok			lda  #512					; assume 512 byte buffer
			sta  temp
			tax

			ldy  #fcr_end_block
			lda  [<my_fcr],y
			cmp  block_num
			bne  @n1
			
			ldy  #fcr_ending_bytes		; use the # of bytes in last block
			lda  [<my_fcr],y
			sta  temp
			
			and  #1						; is it an odd value?
			beq	 @n1					; no ->
			inc  a						; yes, so move up to next word size
			tax
			
@n1			txy
			dey
			dey

*
* copy the data
*
										; copy the data to the io buffer
			ldx  #fcr_io_buffer+510		; dest index
@loop		lda  [<io_buffer],y
			phy
			txy
			sta  [<my_fcr],y
			dey
			dey							; decrement dest index
			tyx
			ply
			dey							; decrement source index
			dey
			bpl  @loop					; not done yet ->
			
			lda  g_remainder			; io index
			ldy  #fcr_io_index
			sta  [<my_fcr],y
			
			ldy  #fcr_io_size			; io buffer size
			lda  temp
			sta  [<my_fcr],y

*
* done
*
done		clc
exit		rts

space_count		dc.w	0
blk_start_mark	dc.w	0
blk_end_mark	dc.w	0
mark_offset		dc.w	0
			
			ENDP

 EJECT
******************************************************************
*
* 			Name:	dle_setup
*
*	 Description:	manipulates text files opened in ASCII mode.
*					the exact type of manipulation depends on 
*					the flag passed in A.   
*
*					if the flag is set to fcr_examine, this function
*					will fill out the fcr as follows:
*
*					/\/\/\/\/\/\/\/\/\/\
*					| fcr              |
*					+------------------+ fcr_end
*					|  start mark      | block #0
*					|     (4 bytes)    |
*					|                  |
*					|                  |
*					+------------------+
*					|  end mark        |
*					|     (4 bytes)    |
*					|                  |
*					|                  |
*					+------------------+
*					|  start mark      | block #1
*					|     (4 bytes)    |
*					|                  |
*					|                  |
*					+------------------+
*					|  end mark        |
*					|     (4 bytes)    |
*					|                  |
*					|                  |
*					+------------------+
*					|                  | block #n
*					\/\/\/\/\/\/\/\/\/\/
*
*
*		   Entry:	jsr
*
*		   Input:	A = what to do to the file:
*							examine_file	= examine the file only
*							setup_fcr		= examine file & setup fcr
*
*					X = call number times 2
*					Y = class number times 2
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000..0 = no error
*							   1 = error
*
*			Exit:	rts
*
*			Uses:	
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
dle_setup	PROCNAME
			WITH  globals
						
			cmp  #setup_fcr
			bne  @t1
			brl  fcr_examine
			
@t1			cmp  #examine_file
			beq  examine
			
			sec
			brl  exit

*
* examine the file specified by the current global variables, and 
* save the ASCII eof in g_eof
*
examine		stz  g_eof
			stz  g_eof+2
			
			lda  f_start_block			; skip past the 1k header
			inc  a
			inc  a
			sta  block_num
			
@block_loop	jsr  read_block
			bcc  @char_loop
			brl  exit
			
@char_loop	lda  [io_buffer],y
			and  #$FF
			
			beq  @increment				; skip any NULL padding
			
			cmp  #dle_char				; is it the DLE char?
			bne  @add_it
			
			iny							; add the number of compressed spaces
			lda  [io_buffer],y			; to the eof
			and  #$FF
			sec
			sbc  #32
			clc
			adc  g_eof
			sta  g_eof
			lda  g_eof+2
			adc  #0
			sta  g_eof+2
			
			bra  @increment
			
@add_it		lda  g_eof					; increment the eof
			clc
			adc  #1
			sta  g_eof
			lda  g_eof+2
			adc  #0
			sta  g_eof+2
			
@increment	iny
			
			lda  block_num				; if we are on the last block of the file,
			cmp  f_end_block			; then check Y against f_ending_bytes instead
			bcc  @check2				; if 1025
			
			cpy  f_ending_bytes
			bcc  @char_loop
						
			bra  @finis
			
@check2		cpy  #1025					; have I read the whole buffer?
			bcc  @char_loop

@inc_blk	inc  block_num
			inc  block_num
			
			lda  f_end_block
			inc  a
			cmp  block_num
			bcs  @block_loop
			
			dec  block_num				; did I skip the last block # by addding 2 to block num?
			cmp  block_num
			bcs  @block_loop
			
@finis		brl  done
			
*
* examine the file.  build the logical file_mark table in the fcr and
* calculate the ASCII eof.
*
fcr_examine	ldy  #fcr_start_block
			lda  [my_fcr],y
			sta  block_num
			
			stz  g_eof
			stz  g_eof+2

@block_loop	jsr  read_block
			bcc  @ok
			brl  exit
			
@ok			lda  block_num				; convert physical block # into a logical block #
			sec
			sbc  f_start_block
			
			lsr  a						; convert logical block # into an index into the array
			asl  a						; x2 = 1 word  per block
			asl  a						; x2 = 1 long  per block
			asl  a						; x2 = 2 longs per block
			clc
			adc  #fcr_end
			tay
			
			lda  g_eof					; save the current eof as the start mark for the block
			sta  [my_fcr],y
			iny
			iny
			lda  g_eof+2
			sta  [my_fcr],y
			
*
* calculate the # of chars in this block.
*
			ldy  #0
@char_loop	lda  [io_buffer],y			; get the char
			and  #$FF
			
			beq  @increment				; skip any NULL padding
			
			cmp  #dle_char				; is it the DLE char?
			bne  @add_it
			
			iny							; calculate the # of compressed spaces
			lda  [io_buffer],y
			and  #$FF
			sec
			sbc  #32
			
			clc							; add the # of compressed spaces to the eof
			adc  g_eof
			sta  g_eof
			lda  g_eof+2
			adc  #0
			sta  g_eof+2
			
			bra  @increment
			
@add_it		lda  g_eof					; increment the eof
			clc
			adc  #1
			sta  g_eof
			lda  g_eof+2
			adc  #0
			sta  g_eof+2
			
@increment	iny
			
			lda  block_num				; if we are on the last block of the file,
			inc  a
			cmp  f_end_block			; then check Y against f_ending_bytes+512 instead
			bcc  @check2				; of 1024
			
			lda  #512
			clc
			adc  f_ending_bytes
			sta  temp
			cpy  temp
			bcc  @char_loop
			
*
* we have read all the data from this file, so save the ending eof for this block
* and exit.
*
			lda  block_num				
			sbc  f_start_block	
			lsr  a						; / 2
			asl  a						; x2 = 1 word  per block
			asl  a						; x2 = 1 long  per block
			asl  a						; x2 = 2 longs per block
			clc
			adc  #fcr_end+4
			tay
			
			lda  g_eof
			sta  [my_fcr],y
			iny
			iny
			lda  g_eof+2
			sta  [my_fcr],y
			
			bra  @finis					; done ->
			
@check2		cpy  #1024					; have I read the whole buffer?
			bcc  @char_loop

			lda  block_num				; save the hi mark of this block
			sbc  f_start_block			
			lsr  a						; / 2
			asl  a						; x2 = 1 word  per block
			asl  a						; x2 = 1 long  per block
			asl  a						; x2 = 2 longs per block
			clc
			adc  #fcr_end+4
			tay
			
			lda  g_eof
			sta  [my_fcr],y
			iny
			iny
			lda  g_eof+2
			sta  [my_fcr],y

@inc_blk	inc  block_num
			inc  block_num
			
			lda  f_end_block			; done?
			inc  a
			cmp  block_num
			bcc  @finis					; yes ->
			
			brl  @block_loop
			
@finis		ldy  #fcr_eof				; update the eof
			lda  g_eof
			sta  [my_fcr],y
			iny
			iny
			lda  g_eof+2
			sta  [my_fcr],y
			
done		clc
exit		rts

			ENDP

 EJECT
******************************************************************
*
* 			Name:	close
*
*	 Description:	performs call $14, close
*
*		   Entry:	jmp
*
*		   Input:	A = undefined
*					X = call number times 2
*					Y = class number times 2
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000..0 = no error
*							   1 = error
*
*			Exit:	brl main_exit
*
*			Uses:	Everything.
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
close		PROCNAME
			WITH  globals

			ldx  vcr_ptr			; setup the vcr ptr
			ldy  vcr_ptr+2
			jsl  deref
			stx  my_vcr
			sty  my_vcr+2
			
			ldx  fcr_ptr			; setup the fcr ptr
			ldy  fcr_ptr+2
			jsl  deref
			stx  my_fcr
			sty  my_fcr+2

			lda  [my_fcr]
			jsl  release_fcr
			
			ldy  #vcr_open_cnt
			lda  [my_vcr],y
			dec  a
			cmp  #$ffff
			beq  hara_kari
			sta  [my_vcr],y
			bra  done
			
*
* Something's terribly wrong here, and we have lost great face: we must commit
* hara-kari...
*
hara_kari	lda  #$000A					;Get error code	for bad	VCR.
			jml  sys_death				;Die.

done		lda  #no_error
			clc
exit		brl  main_exit

			ENDP

 EJECT
******************************************************************
*
* 			Name:	set_mark
*
*	 Description:	performs call $16, set_mark
*
*		   Entry:	jmp
*
*		   Input:	A = undefined
*					X = call number times 2
*					Y = class number times 2
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000..0 = no error
*							   1 = error
*
*			Exit:	brl main_exit
*
*			Uses:	Everything.
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
set_mark		PROCNAME
			WITH  globals

			ldx  fcr_ptr			; setup the fcr ptr
			ldy  fcr_ptr+2
			jsl  deref
			stx  my_fcr
			sty  my_fcr+2
			
*
* if the user is trying to set the mark on the directory, then
* return invalid access.
*
			ldy  #fcr_file_type
			lda  [my_fcr],y
			cmp  #$0F
			bne  ok

			lda  #invalid_access
			sec
			brl  exit
			
ok			lda  #get_input
			jsr  xfer_parms
			bcc  ok2
			brl  exit
			
ok2			lda  call_class
			bne  is_c1
			
*
* do the class 0 version of the call.
* check to see if the eof is >= to the requested position.  If it is not,
* then return an error.
*
			ldy  #fcr_eof
			lda  [my_fcr],y
			sta  tempLong
			iny
			iny
			lda  [my_fcr],y
			sta  tempLong+2

;			lda  tempLong				; get eof-1
;			sec
;			sbc  #1
;			sta  tempLong
;			lda  tempLong+2
;			sbc  #0
;			sta  tempLong+2
			
			sec
			lda  tempLong
			sbc  g_position
			lda  tempLong+2
			sbc  g_position+2
			bcs  @next
			brl  range_err

@next		lda  g_position				; set the new mark
			ldy  #fcr_mark
			sta  [my_fcr],y
			iny
			iny
			lda  g_position+2
			sta  [my_fcr],y
			
			brl  done
			
*
* perform the class 1 version of the call.  decide how to interpret the
* base parameter and act accordingly.
*
is_c1		lda  g_base
			beq  base0
			
			cmp  #1
			beq  base1
			
			cmp  #2
			bne  @n2
			brl  base2
			
@n2			cmp  #3
			bne  @n1
			brl  base3
			
@n1			lda  #parm_range_err
			sec
			brl  exit

*
* mark = displacement
* check to see if the eof is >= to the requested position.  If not,
* return an error.
*
base0		ldy  #fcr_eof
			lda  [my_fcr],y
			sta  tempLong
			iny
			iny
			lda  [my_fcr],y
			sta  tempLong+2

;			lda  tempLong				; get eof-1
;			sec
;			sbc  #1
;			sta  tempLong
;			lda  tempLong+2
;			sbc  #0
;			sta  tempLong+2
			
			sec
			lda  tempLong
			sbc  g_displacement
			lda  tempLong+2
			sbc  g_displacement+2
			bcs  @next
			brl  range_err

@next		lda  g_displacement			; set the new mark
			ldy  #fcr_mark
			sta  [my_fcr],y
			iny
			iny
			lda  g_displacement+2
			sta  [my_fcr],y
						
			brl  done

*
* mark = eof-displacement
* first check to see that the eof is >= to the displacement.  If is, then
* do the call, otherwise the result would be negative, so return an error
*
base1		ldy  #fcr_eof
			lda  [my_fcr],y
			sta  tempLong
			iny
			iny
			lda  [my_fcr],y
			sta  tempLong+2

			sec
			lda  tempLong
			sbc  g_displacement
			lda  tempLong+2
			sbc  g_displacement+2
			bcs  @next
			brl  range_err

@next		sec								; calculate the new mark
			lda  tempLong
			sbc  g_displacement
			sta  tempLong
			lda  tempLong+2
			sbc  g_displacement+2
			sta  tempLong+2
			
			ldy  #fcr_mark					; save the new mark
			lda  tempLong
			sta  [my_fcr],y
			iny
			iny
			lda  tempLong+2
			sta  [my_fcr],y
			
			brl  done

*
* mark = mark+displacement
* add the displacement to the current mark, then check to see if it is
* past the eof.  If it is past the eof, then return an error, otherwise
* complete the call.
*
base2		ldy  #fcr_mark					; get the mark+displacement
			lda  [my_fcr],y
			clc
			adc  g_displacement
			sta  tempLong
			iny
			iny
			lda  [my_fcr],y
			adc  g_displacement+2
			sta  tempLong+2
			
			ldy  #fcr_eof					; get the eof
			lda  [my_fcr],y
			sta  tempLong2
			iny
			iny
			lda  [my_fcr],y
			sta  tempLong+2
			
;			lda  tempLong2					; get eof-1
;			sec
;			sbc  #1
;			sta  tempLong2
;			lda  tempLong2+2
;			sbc  #0
;			sta  tempLong2+2

			lda  tempLong2					; see if the eof > mark+displacement
			sec
			sbc  tempLong
			lda  tempLong2+2
			sbc  tempLong+2
			bcc  range_err

			lda  tempLong
			ldy  #fcr_mark					; save the new mark
			sta  [my_fcr],y
			iny
			iny
			lda  tempLong+2
			sta  [my_fcr],y
			
			bra  done

*
* mark = mark-displacement
* check to see if the current mark is greater than the displacement.  If
* it is, then complete the call, otherwise return an error
*
base3		ldy  #fcr_mark					; get the mark-displacement
			lda  [my_fcr],y
			sec
			sbc  g_displacement
			sta  tempLong
			iny
			iny
			lda  [my_fcr],y
			sbc  g_displacement+2
			sta  tempLong+2
			bcc  range_err					; was the displacement > mark?
			
			lda  tempLong
			ldy  #fcr_mark					; save the new mark
			sta  [my_fcr],y
			iny
			iny
			lda  tempLong+2
			sta  [my_fcr],y
			
			bra  done

*
* return "parameter out of range" error code
*
range_err	lda  #out_of_range
			sec
			bra  exit
			
done		jsr  read_io_block				; read the current block into the
			lda  #no_error					; fcr io buffer
			clc
exit		brl  main_exit

tempLong2	dc.l	0

			ENDP

 EJECT
******************************************************************
*
* 			Name:	get_mark
*
*	 Description:	performs call $17, get_mark
*
*		   Entry:	jmp
*
*		   Input:	A = undefined
*					X = call number times 2
*					Y = class number times 2
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000..0 = no error
*							   1 = error
*
*			Exit:	brl main_exit
*
*			Uses:	Everything.
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
get_mark		PROCNAME
			WITH  globals

			ldx  fcr_ptr			; setup the fcr ptr
			ldy  fcr_ptr+2
			jsl  deref
			stx  my_fcr
			sty  my_fcr+2
			
			ldy  #fcr_mark			; copy the mark value from the fcr
			lda  [my_fcr],y
			sta  g_position
			
			lda  #send_output
			jsr  xfer_parms
			bcs  exit
			
done		lda  #no_error
			clc
exit		brl  main_exit

			ENDP

 EJECT
******************************************************************
*
* 			Name:	get_eof
*
*	 Description:	performs call $19, get_eof
*
*		   Entry:	jmp
*
*		   Input:	A = undefined
*					X = call number times 2
*					Y = class number times 2
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000..0 = no error
*							   1 = error
*
*			Exit:	brl main_exit
*
*			Uses:	Everything.
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
get_eof		PROCNAME
			WITH  globals

			ldx  fcr_ptr			; setup the fcr ptr
			ldy  fcr_ptr+2
			jsl  deref
			stx  my_fcr
			sty  my_fcr+2
			
			ldy  #fcr_eof			; retrieve the eof value from the fcr
			lda  [my_fcr],y
			sta  g_eof
			iny
			iny
			lda  [my_fcr],y
			sta  g_eof+2
			
			lda  #send_output
			jsr  xfer_parms
			bcs  exit
			
done		lda  #no_error
			clc
exit		brl  main_exit

			ENDP

 EJECT
******************************************************************
*
* 			Name:	get_dir_entry
*
*	 Description:	performs call $1c, get_dir_entry
*
*		   Entry:	jmp
*
*		   Input:	A = undefined
*					X = call number times 2
*					Y = class number times 2
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000..0 = no error
*							   1 = error
*
*			Exit:	brl main_exit
*
*			Uses:	Everything.
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
get_dir_entry	PROCNAME
			WITH  globals

			ldx  vcr_ptr			; setup the vcr ptr
			ldy  vcr_ptr+2
			jsl  deref
			stx  my_vcr
			sty  my_vcr+2
			
			ldx  fcr_ptr			; setup the fcr ptr
			ldy  fcr_ptr+2
			jsl  deref
			stx  my_fcr
			sty  my_fcr+2
			
			ldy  #vcr_dev			; set up device num for get_last_dev
			lda  [<my_vcr],y
			sta  drvr_dev_num

*
* check to make sure that the user is trying to access a directory
*
			ldy  #fcr_file_type
			lda  [my_fcr],y
			cmp  #$0F
			beq  ok
	
			lda  #version_error
			sec
			brl  exit
			
ok			lda  #get_input
			jsr  xfer_parms
			
			ldy  #fcr_num_files
			lda  [my_fcr],y
			sta  temp
			inc  temp
			
			lda  g_base						; determine how to interpret
			beq  base0						; the displacement
			
			cmp  #1
			beq  base1
			
			cmp  #2
			bne  @ok2
			brl  base2
			
@ok2		lda  #parm_range_err
			sec
			brl  exit
			
base0		lda  g_displacement
			beq  get_count					; does the user want the
											; number of files in the dir?
											
			cmp  temp						; the user wants a specific
			bcc  @ok1						; file, so make sure it is
			brl  end_dir
@ok1		sta  g_entry_num
			jsr  get_file					; within range and get the info
			bcc  @ok
			brl  exit
@ok			brl  done

get_count	lda  call_class
			beq  @ok
			
			lda  g_pcount
			cmp  #5
			bcs  @ok
	
			lda  #parm_range_err
			sec
			brl  exit
			
@ok			lda  #0							; set the mark to zero
			ldy  #fcr_mark
			sta  [my_fcr],y
			
			lda  temp						; save the number of files
			sta  g_entry_num
			
			lda  call_class					; using class 1?
			beq  @ok2						; no ->
			
			lda  [param_blk_ptr]			; get the pcount parameter
			cmp  #6							; is it 6 or greater?
			bcs  @ok2						; yes ->
			bra  @ok3						; no, so don't do anything ->
			
			
@ok2		lda  #entry_num					; here I output the parm
			jsr  get_parm_offset			; myself so that any unrelated
			lda  g_entry_num				; info will not be returned
			dec  a
			sta  [param_blk_ptr],y			; from calling xfer_parms
			
@ok3		lda  #no_error					; exit no error
			clc
			bra  exit

base1		ldy  #fcr_mark					; mark = mark + displacement
			lda  [my_fcr],y
			clc
			adc  g_displacement				; is it within range?
			cmp  temp
			bcs  end_dir
			
			sta  [my_fcr],y					; yes, save the new mark
			sta  g_entry_num
			
			jsr  get_file					; and get the file info
			bcs  exit
			bra  done
			
base2		ldy  #fcr_mark					; mark = mark - displacement
			lda  [my_fcr],y
			beq  end_dir					; if already at zero then error
			sec								; is it within range?
			sbc  g_displacement
			cmp  #1
			bcc  end_dir
			cmp  #78
			bcs  end_dir
			
			sta  [my_fcr],y					; yes, save the new mark
			sta  g_entry_num
			
			jsr  get_file					; and get the file info
			bcs  exit
			bra  done

end_dir		lda  #end_of_dir
			sec
			bra  exit
			
done		lda  #send_output				; fill the users pblock
			jsr  xfer_parms
			bcs  exit
			lda  #no_error
			clc
exit		brl  main_exit

temp2		dc.w	0

			ENDP

 EJECT
******************************************************************
*
* 			Name:	get_dev_num
*
*	 Description:	performs call $20, get_dev_num
*
*		   Entry:	jmp
*
*		   Input:	A = undefined
*					X = call number times 2
*					Y = class number times 2
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000..0 = no error
*							   1 = error
*
*			Exit:	brl main_exit
*
*			Uses:	Everything.
*
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
get_dev_num	PROCNAME
			WITH  globals
			
			lda  <dev_num				; was a device num specified?
			beq  @1						; no ->
			sta  g_dev_num				; yes, save the device number
			bra  @2						; done ->
			
@1			lda  #get_input
			jsr  xfer_parms
			bcs  exit
			
			jsr  find_target
			bcs  exit

@2			lda  #send_output
			jsr  xfer_parms
			bcs  exit
			
done		lda  #no_error
			clc
exit		brl  main_exit

			ENDP

 EJECT
******************************************************************
*
* 			Name:	fst_specific
*
*	 Description:	performs call $33, fst specific
*
*		   Entry:	jmp
*
*		   Input:	A = undefined
*					X = call number times 2
*					Y = class number times 2
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000..0 = no error
*							   1 = error
*
*			Exit:	brl main_exit
*
*			Uses:	Everything.
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
fst_specific	PROCNAME
			WITH  globals

			lda  call_class
			bne  doit
			
			lda  #invalid_class
			sec
			bra  exit
			
doit		lda  #get_input					; get parm from user's pblock
			jsr  xfer_parms
			bcs  exit
		
			lda  g_command_num
			
			cmp  #$0001						; set fst mode
			bne  @next
			
			lda  g_fst_mode
			cmp  #2
			bcs  bad_parm
			cmp  #0
			bmi  bad_parm
			sta  the_fst_mode
			bra  done
			
@next		cmp  #$8001						; get fst mode
			bne  bad_parm
			lda  the_fst_mode
			sta  g_fst_mode
			lda  #send_output
			jsr  xfer_parms
			bcs  exit
			bra  done
			
bad_parm	lda  #parm_range_err
			sec
			bra  exit
			
done		lda  #no_error
			clc
exit		brl  main_exit
			
			ENDP


 EJECT
******************************************************************
*
* FST Application Call Support Functions
*
******************************************************************

 EJECT
******************************************************************
*
* 			Name:	xfer_parms
*
*	 Description:	
*
*		   Entry:	jsr
*
*		   Input:	A = direction to transfer parameters
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000..0
*
*			Exit:	rts
*
*			Uses:	
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
xfer_parms	PROCNAME
			WITH globals
			
			sta  xferDirection
			stz  |g_error
			
			lda  call_num
			asl  a						; get call # x4
			clc
			adc  call_class				; make sure I am using the pblock
			tax							; of the correct class
			
			lda  parmTable-4,x			; get offset into parm table
			sta  blockPtr

			lda  #$FF					; assume class 0
			sta  maxPCount				; to loop till the end of the pblock

			lda  call_class
			beq  doit					; we assumed correctly
			
isc1		lda  [param_blk_ptr]		; get the pcount
			inc  a						; adjust for pcount itself
			sta  maxPCount

doit		ldy  #0
loop		lda  (blockPtr),y			; call the handler for each parm
			beq  done					; in the call
			
			sty  yIndex					; preserve the y register
			
			asl  a						; multiply by two
			tax
			lda  xferDirection			; sending or receiving flag
			jsr  (parm_table-2,x)
			bcc  @next
			
			cmp  #buff_too_small		; check to see if the error is a non-fatal
			beq  @1
			sec
			bra  exit					; error
			
@1			sta  |g_error
			
@next		ldy  |yIndex				; restore the y register
			
			iny							; increment it to the next parm
			iny
			iny
			iny

			tya							; make sure I don't go past the
			lsr  a						; pcount
			lsr  a
			cmp  maxPCount
			bcc  loop
done		lda  |g_error
			cmp  #1						; condition carry appropriately
exit		rts

xferDirection	dc.w	0
yIndex			dc.w	0

			ENDP			
		
 EJECT
******************************************************************
*
* 			Name:	find_target
*
*	 Description:	Attempts to find the target specified in
*					g_pathname
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000..0 = no error
*							   1 = error
*
*			Exit:	rts
*
*			Uses:	g_pathFlags
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
find_target	PROCNAME
			WITH globals

*
* break down the path
*
			jsr  break_down_path
			bcs  exit
			
*
* does the path specify a volume name?
*
			lda  g_volumeName
			beq  badPathErr
			jsr  find_volume
			bcs  exit

;
; Begin 18-Dec-91 MSD: Is the span OK?  If not, do bad_path_syntax.
;
			lda  span1
			cmp  #16					; too big?
			bcs  badPathErr				; yes, so return the error
;
; End 18-Dec-91 MSD
;

*
* does the path specify file name?
*
			lda  g_fileName
			beq  done
						
			jsr  find_file
			bcs  not_found
done		clc
exit		rts


*
* the file was not found
*
not_found
			lda  #file_not_found
			sec
			rts

*
* the pathname was bad
*
badPathErr	lda  #bad_path_syntax
			sec
			rts
			
			ENDP
 EJECT
******************************************************************
*
* 			Name:	BreakDownPath
*
*	 Description:	Breaks down the current pathname into the
*					volume and file names.
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000..0
*
*			Exit:	rts
*
*			Uses:	
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
break_down_path	PROCNAME
			WITH globals
		
			stz  g_volumeName
			stz  g_fileName

*
* check to see if the path is valid.
*
doit		lda  path_flag			; check to see if the path is valid
			and  #$4000
			bne  no_device			; maybe it's valid ->
			
*
* the path is not valid, so use the device number passed to me.
* the only time we get here is when there was ONLY a device name used
* in the path, i.e. ".appledisk3.5a".
*
			lda  dev_num			; make sure I have a dev_num
			bne  id_it
			
badPathErr	lda  #bad_path_syntax
			sec
			rts

id_it		lda  dev_num
			jsr  id_disk
			brl  exit				; return on up ->

*
* the pathname is valid, check to see if the first char is a
* separator.  if it is, then the path is a full path, otherwise it
* is the beginning of the file name and I must get the volume
* name by id'ing the device in dev_num.
*
no_device	ldy		#2
			lda		[path1_ptr],y
			and		#$00FF
			cmp		#c1_sep				;does it start with a separator?
			bne		no_vol				;no, must be filename only

*
* there is a volume name
*
			iny							;skip past leading separator
			ldx		#0					;init destination index
			LONGA	OFF
			sep		#$20
@loop		lda		[path1_ptr],y		;get a character
			beq  	doneVolume			;found null terminator, must be no filename
			cmp		#c1_sep				;have we found the separator?
			beq		doneVolume			;yup
			sta		g_volumeName+2,x	;else store the character
			inx
			iny
; Begin 18-Dec-91 MSD
			cpx		#8					; is volume name too long (7 character max)?
			bcc		@loop				; no, continue loop
			rep		#$20				; return to full native
			bra		badPathErr			; return the error
;			bra		@loop
; End 18-Dec-91 MSD

doneVolume	stx		g_volumeName		; save the length of the volume name
			tax							; did we terminate on a null?
			beq		done				; yup, guess we don't have a filename
			iny							; else bump source index past separator
			bra		pull_file			; then go parse filename

*
* the path was valid, but did not contain the volume name, and
* dev_num is valid, so get the volume name via id_disk, then drop
* into pull_file to obtain the file name.
*
			LONGA	ON

no_vol		lda		dev_num
			jsr		id_disk
			bcs		exit

			ldy		#2					; init source index (no leading separator)
			sep		#$20
			LONGA	OFF
			
*
* copy the file name
*
pull_file
			ldx		#0					; init destination index
@loop		lda		[path1_ptr],y		; get a character
			beq		donefile			; null terminator, we're done
			cmp		#c1_sep				; trailing separator?
			beq		donefile			; yup, we're done
			sta		g_fileName+2,x		; else store it in our buffer
			inx
			iny
			cpx		#16					; 13-Jan-92 GAB: filename too long (16 character max)?
			bcc		@loop

donefile	stx		g_fileName			; store the length

*
* all done
*
			LONGA	ON
done		rep		#$20
			clc
exit		rts
			ENDP

 EJECT
******************************************************************
*
* 			Name:	find_volume
*
*	 Description:	Attempts to find the volume of the specified
*					name.  First it will look for a VCR of the 
*					same name, then will scan all the devices until
*					there are no more devices, or until it finds
*					the volume, which ever comes first.
*
*		   Entry:	jmp
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000..0 = no error
*							   1 = error
*
*			Exit:	rts
*
*			Uses:	g_volumeName
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
find_volume	PROCNAME
			WITH globals
	
*
* first, try to find a VCR with this name
*
			lda  #0						; search vcr list by name
			ldx  #g_volumeName
			ldy  #^g_volumeName
			jsl  find_vcr				; does the vcr exist?
			bcc  check_vcr
			brl  find_it
			
* 
* the VCR exists, but is the VCR mine?
*
check_vcr	jsl  deref
			stx  my_vcr
			sty  my_vcr+2
			
			ldy  #vcr_fst_id			
			lda  [my_vcr],y
			cmp  #pascal_id				; is it mine?
			bne  find_it				; nope ->

*
* yes, the VCR is mine, now see if it is marked as swapped.
* if it has been swapped, then go find the volume.
*
			ldy  #vcr_status			; make sure the disk hasn't
			lda  [my_vcr],y				; been switched to another device
			and  #vcr_swapped
			bne  find_it

*
* the vcr is mine and it has not been swapped, so check to see that it
* is still in the device
*
			ldy  #vcr_dev				; get info on the volume
			lda  [my_vcr],y
			sta  device
			sta  g_dev_num

			lda  #g_volumeName
			sta  string1
			lda  #^g_volumeName
			sta  string1+2
			
			lda  #g_tempStr
			sta  string2
			lda  #^g_tempStr
			sta  string2+2
			
			jsr  strcpy					; copy g_volumeName to g_tempStr
			
			lda  device
			jsr  id_disk
			;bcc  checkNames
			bcs  notMyDisk

	if 0 then	;duplicated code, why include it??? {gab}
*
* the disk in the drive was not a pascal volume, so restore the name
* of the volume I am looking for and go find it
*
			lda  #g_volumeName			; restore the name of the volume
			sta  string2				; I am looking for
			lda  #^g_volumeName
			sta  string2+2
			
			lda  #g_tempStr
			sta  string1
			lda  #^g_tempStr
			sta  string1+2
			
			jsr  strcpy
			bra  find_it
	endif
			
*
* the disk in the drive was a pascal disk, now I must check
* to see if it is the same disk
*
checkNames	lda  #g_volumeName			; compare the two names
			sta  string1
			lda  #^g_volumeName
			sta  string1+2

			jsr  strcmp
			bcc  done

*
* the disk in the drive is not the disk I am looking for, so restore
* the name of the volume and find it.
*
notMyDisk
			lda  #g_volumeName			; restore the name of the volume
			sta  string2				; I am looking for
			lda  #^g_volumeName
			sta  string2+2
			
			lda  #g_tempStr
			sta  string1
			lda  #^g_tempStr
			sta  string1+2
			
			jsr  strcpy
			;bra  find_it
			bra  do_scan				; no need to copy the string back again! {gab}
			
*
* scan the devices for the volume
*
find_it		lda  #g_volumeName
			sta  string1
			lda  #^g_volumeName
			sta  string1+2
			
			lda  #g_tempStr
			sta  string2
			lda  #^g_tempStr
			sta  string2+2
			
			jsr  strcpy					; copy g_volumeName to g_tempStr
do_scan
			jsr  scan_devs				; scan all the devices
			bcs  exit
			
			sta  device					; found the volume
			sta  g_dev_num
			ldy  #vcr_dev
			sta  [my_vcr],y

			lda  #vcr_status			; activate it
			lda  [my_vcr],y
			and  #vcr_swapped_in
			sta  [my_vcr],y
						
done		;lda  #0
			stz  f_start_block
			
			ldy  #vcr_num_files
			lda  [my_vcr],y
			sta  f_ending_bytes			; number of files

			ldy  #vcr_date_stamp		; create date/time
			lda  [my_vcr],y
			sta  g_create_date
			stz  g_create_time
			
			stz  g_mod_date				; mod date/time
			stz  g_mod_time
			
			lda  #$0F
			sta  g_file_type
			
			stz  g_aux_type
			stz  g_eof
			stz  g_eof+2
			stz  blocks_used

			clc
			lda  #no_error
exit		rts
			
 EJECT
******************************************************************
*
* 			Name:	scan_devs
*
*	 Description:	scans all the devices in the system, attempting
*					to find the volume named by g_tempStr.
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = device number if volume found
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000..0 = found
*							   1 = not found
*
*			Exit:	rts
*
*			Uses:	g_volumeName
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
scan_devs	PROCNAME
			WITH globals
			
			stz  device					; scan all devices for the volume

loop		inc  device

			lda  device
			jsr  id_disk				; id the volume in this device
			bcs  checkErr
			
			lda  #g_volumeName			; is it the volume I want?
			sta  string1
			lda  #^g_volumeName
			sta  string1+2
			
			lda  #g_tempStr
			sta  string2
			lda  #^g_tempStr
			sta  string2+2
			
			jsr  strcmp
			bcs  loop					; nope, so back to loop
			
done		lda  device
			clc
			rts

checkErr	cmp  #dup_volume
			beq  exit
			
			cmp  #invalid_dev_num		; loop until I have checked all devs
			bne  loop
				
			lda  #vol_not_found
			stz  error_priority			; make sure this is clear since we 
										;  didn't find the disk
exit		sec
			rts
			
			ENDP
			
 EJECT
******************************************************************
*
* 			Name:	find_file
*
*	 Description:	Attempts to find the file specified in
*					'fileName' which resides on the current 
*					volume.
*
*		   Entry:	jmp
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000..0 = no error
*							   1 = error
*
*			Exit:	rts
*
*			Uses:	
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
find_file	PROCNAME
			WITH globals

			lda  #g_fileName			; get_file places it's output
			sta  string1				; into g_fileName, so I must
			lda  #^g_fileName			; preserve it for comparison
			sta  string1+2
			
			lda  #g_tempStr
			sta  string2
			lda  #^g_tempStr
			sta  string2+2
			
			jsr  strcpy
			
*
* Scan all the file entries for the file of this name.  Note that
* this algorithm searches the entries backwards.
*
			lda  numFiles					; the # of files on this volume
			beq  not_found					; if zero then it is not there
			sta  currFile
	
@loop		jsr  get_file					; attempt to find this file
			bcs  exit
			
			jsr  strcmp						; check the name, the pointers
											; have not been changed from above
											
			bcc  done						; got it ->	
			
			dec  currFile					; nope, not it
			lda  currFile					; load the number of the next file
			bne  @loop						; and check for it

not_found	lda  #file_not_found			; didn't get the file
			sec
			rts
			
done		clc
exit		rts
			
currFile	dc.w	0
tempMode	dc.w	0
			ENDP

 EJECT
******************************************************************
*
* 			Name:	get_file
*
*	 Description:	Pulls all information out of the current 
*					directory in io_buffer about the file number
*					passed in A.  This routine does not attempt
*					to verify that the file entry is actually
*					there, that is left to the calling function.
*
*		   Entry:	jsr
*
*		   Input:	A = ordinal number of file (1-77)
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000..0 = no error
*							   1 = error
*
*			Exit:	rts
*
*			Uses:	
*
******************************************************************
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
* REVISION HISTORY
*
* 03/14/90	CAF	Changed storage type to a 1.
*
******************************************************************
get_file	PROCNAME
			WITH globals
	
			sta  tempLong
			
			tax
			bne  @ok
			lda  #file_not_found
			sec
			rts
			

@ok			;tax							; the file offset is 
			lda  #26					; 26 times the file number
			sta  temp
@loop		cpx  #1
			beq  next
			clc
			adc  temp
			dex
			bra  @loop
						
next		clc
			adc  #vcr_directory

			tay							; now y will contain the offset
										; to the file entry
										
			lda  [my_vcr],y				; start block
			sta  f_start_block
			
			iny
			iny
			lda  [my_vcr],y				; end block+1
			dec  a
			sta  f_end_block
			
			iny
			iny
			lda  [my_vcr],y				; file type
			sta  g_file_type
			
			lda  #1
			sta  g_storage_type			; storage type
			
			iny
			iny
			lda  [my_vcr],y				; file name
			and  #$FF					; convert len byte to len word
			sta  g_fileName
			iny
			lda  [my_vcr],y
			sta  g_fileName+2
			iny
			iny
			lda  [my_vcr],y
			sta  g_fileName+4
			iny
			iny
			lda  [my_vcr],y
			sta  g_fileName+6
			iny
			iny
			lda  [my_vcr],y
			sta  g_fileName+8
			iny
			iny
			lda  [my_vcr],y
			sta  g_fileName+10
			iny
			iny
			lda  [my_vcr],y
			sta  g_fileName+12
			iny
			iny
			lda  [my_vcr],y
			sta  g_fileName+14
			iny
			lda  [my_vcr],y
			sta  g_fileName+15
			
			iny
			iny
			lda  [my_vcr],y				; bytes in last block
			sta  f_ending_bytes
			
			iny
			iny
			lda  [my_vcr],y				; mod date
			sta  g_mod_date
			
			lda  #$C3					; access
			sta  g_access
			
			lda  g_file_type			; if it is a text file and I am in ascii mode,
			cmp  #3						; then set the type = 4 and skip the 1k header
			bne  @calc_eof				; of the file.
			lda  the_fst_mode
			bne  @calc_eof
			
			inc  f_start_block
			inc  f_start_block
			
			lda  #4
			sta  g_file_type

@calc_eof	pea  0						; end of file
			pea  0	
			lda  f_end_block
			sec
			sbc  f_start_block
			inc  a
			sta  g_blocks_used			; blocks used
			dec  a
			pha
			pea  512
			_Multiply
			pla
			clc
			adc  f_ending_bytes			; add the remaining byte count			
			sta  g_eof
			pla
			adc  #0
			sta  g_eof+2
			
			stz  g_aux_type
			stz  g_create_date
			
done		clc
exit		rts

			ENDP						; end of get_file
			
 EJECT
******************************************************************
*
* 			Name:	read_block
*
*	 Description:	reads a block from the device in device,
*					placing the data in io_buffer.  Will retry
*					if either error drvr_disk_sw or drvr_busy is
*					returned.
*
*		   Entry:	jmp
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000..0 = no error
*							   1 = error
*
*			Exit:	rts
*
*			Uses:	Everything.
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
read_block	PROCNAME
			WITH globals
			
do_read		lda  device
			sta  drvr_dev_num
			
			lda  #drvr_read
			sta  drvr_call_num
		
			lda  #$0200
			sta  drvr_blk_size
			
			lda  block_num
			sta  drvr_blk_num
			stz  drvr_blk_num+2
			
			lda  #pascal_id
			sta  drvr_fst_num
			
			lda  #2
			sta  drvr_cache
			
			lda  #buffer_size
			sta  drvr_req_cnt
			stz  drvr_req_cnt+2
			
			lda  <io_buffer
			sta  <drvr_buf_ptr
			lda  <io_buffer+2
			sta  <drvr_buf_ptr+2

			jsl  dev_dispatcher
			bcc  exit
				
			cmp  #drvr_disk_sw			; was the disk switched?
			beq  do_read
			
			cmp  #drvr_busy				; was the driver busy?
			beq  do_read
			
			sec
exit		rts

			ENDP

 EJECT
******************************************************************
*
* 			Name:	get_parm_offset
*
*	 Description:	Returns the offset into the users parameter
*					block when given the call, class, and parameter.
*
*		   Entry:	jmp
*
*		   Input:	A = Parameter to retrieve
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = undefined
*					X = undefined
*					Y = Offset into parameter block
*					P = nvmxdizc
*					    ..000..0 = no error
*							   1 = error
*
*			Exit:	rts
*
*			Uses:	parm, call_num, call_class
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
get_parm_offset	PROCNAME
			WITH globals
			
			sta  parm
			
			lda  call_num
			asl  a						; get call # x4
			clc
			adc  call_class
			tax
			
			lda  parmTable-4,x			; get offset into parm table
			sta  blockPtr
			
			ldy  #0
loop		lda  (blockPtr),y
			cmp  parm
			beq  found
			iny
			iny
			iny
			iny
			bra  loop
			
notFound	sec
			bra  exit
			
found		iny
			iny
			lda  (blockPtr),y
			tay
			clc
exit		rts
			
			ENDP

 EJECT
******************************************************************
*
* 			Name:	strcmp
*
*	 Description:	Compares the two strings pointed to by 
*					string1 and string2.
*					The strings must have a length word at the
*					beginning.
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000..0 = equal
*							   1 = not equal
*
*			Exit:	rts
*
*			Uses:	string1 and string2
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
strcmp		PROCNAME
			WITH globals
			
			ldy  #0						; check the lengths first
			lda  [string1],y			; if the length is not the
			sta  length					; same, then the strings are
			lda  [string2],y			; not equal.
			cmp  length	
			bne  notEqual
			
			LONGA  OFF					; go to 8 bit mode
			LONGI  OFF
			sep  #$30

			inc  length					; increase the length by two
			inc  length					; to adjust for the index of two
			ldy  #2
loop		lda  [string1],y			; ok, the strings have the
			sta  tempChar				; same length, so now check all
			lda  [string2],y			; the chars.
			cmp  tempChar
			bne  notEqual
			
			iny							; increment the index
			
			LONGA  ON					; make sure that I don't go
			LONGI  ON					; past the end of the string
			rep  #$30
			cpy  length
			bcs  areEqual				; if the index = length then
			LONGA  OFF					; the strings are equal
			LONGI  OFF
			sep  #$30
			bra  loop
			
			LONGA  ON
			LONGI  ON
notEqual	rep  #$30
			sec							; strings not equal, return c=1
			rts
			
areEqual	clc							; strings are equal, return c=0
			rts
			
			ENDP

 EJECT
******************************************************************
*
* 			Name:	strcpy
*
*	 Description:	Copies the string pointed to by string1 into
*					the buffer pointed to by string2.  String1
*					must have a length word at the beginning,
*					and the length word will be copied to string2.
*					No error checking is done to see if the dest
*					buffer is large enough.
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*			Exit:	rts
*
*			Uses:	string1,string2,temp
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
strcpy		PROCNAME
			WITH globals
			
			ldy  #0						; copy the length word
			lda  [string1],y
			sta  [string2],y
			
			inc  a
			inc  a						; inc twice to match the y index
			sta  temp					; save it as a counter
			iny
			iny
			sep  #$20					; short a
			LONGA  OFF
loop		cpy  temp					; finished?
			bcs  done
			
			lda  [string1],y
			sta  [string2],y
			
			iny
			bra  loop
			
			LONGA  ON
			
done		rep  #$20
			clc
exit		rts

			ENDP
			
 EJECT
******************************************************************
*
* 			Name:	div512
*
*	 Description:	divides the longword specifed in X (low word) 
*					and Y (hi word), by 512.  The quotient is
*					returned in X and the remainder in A.
*
*		   Entry:	jsr
*
*		   Input:	A = undefined
*					X = low word of value
*					Y = hi word of value
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*			Exit:	rts
*
*			Uses:	
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
div512		PROCNAME
			WITH globals

			stx  tempLong
			sty  tempLong+2
			stx  tempLong2
			sty  tempLong2+2

*
* divide by 512
*
			lda  #9						; divide by 512
@loop1		clc
			ror  tempLong+2
			ror  tempLong
			dec  a
			bne  @loop1
			lda  tempLong
			sta  g_quotient
			lda  tempLong+2
			sta  g_quotient+2
			

*
* now multiply by 512, to give us the next multiple of 512
* below the value
*
			lda  #9						; multiply by 512
@loop2		clc
			rol  tempLong
			rol  tempLong+2
			dec  a
			bne  @loop2
			
			lda  tempLong				; save the multiple of 512
			sta  g_512multiple
			lda  tempLong+2
			sta  g_512multiple+2

			lda  tempLong2				; obtain the difference
			sec
			sbc  tempLong
			sta  tempLong
			lda  tempLong2+2
			sbc  tempLong+2
			sta  tempLong+2
			
			lda  tempLong
			sta  g_remainder
			lda  tempLong+2
			sta  g_remainder+2
			
done		clc
exit		rts

tempLong2	dc.l	0

			ENDP

			EJECT
;======================================================================
;DOW_Convert:This routine convert Month,Day,Year into day of week
;
;Enter:         JSR
;
;Input:         A = Year
;               X = Month
;               Y = Day
;               P = saved
;               b = k
;
;Output:        A = day of week
;               X = undefined
;               Y = undefined
;               P = restored
;               b = k
;
;Uses:          all register
;               local temps 
;
;======================================================================
		longa	off
		longi	off		

		EXPORT	dow_convert	
dow_convert	PROCNAME
		php
		sep	#$30
		phy
		tay

;==========================================================================
;Figure the number of leap years since 1900
;==========================================================================

		lsr	a
		lsr	a
		sta	dow_temp

;==========================================================================
;If it's a leap year and it's Jan or Feb suvtract 1 from the total
;==========================================================================

		tya			;get the year back
		and	#%00000011
		bne	stim015
		cpx	#03
		bcs	stim015
		dey

;==========================================================================
;add the number of leap years elapsed, the year, a constant for the
;month, and the day
;==========================================================================
		
stim015					; 
		clc
		tya			;get the year again
		adc	dow_temp	;# of leap years since 1900
		adc	wkmon-1,x
		adc	1,s
		ply			;clean the stack

;==========================================================================
;Now mod the result by seven, but exit in the range [1..7]
;==========================================================================

		sec
stim016					; 
		sbc	#07
		cmp	#08
		bcs	stim016
		plp			;restore mode
		rts

dow_temp	DC.B	0

wkmon		DC.B	$08,$0B,$0B,$07,$09,$0C,$07,$0A,$0D,$08,$0B,$0D
		
		LONGA  ON
		LONGI  ON
		ENDP

 EJECT
******************************************************************
*
* The parameter block i/o functions begin here
*
******************************************************************

 EJECT
******************************************************************
*
* 			Name:	p_access
*
*	 Description:	This function places the access 
*					parameter into the user's pblock.  It is an
*					output parameter only.
*
*		   Entry:	jsr
*
*		   Input:	A = zero     : get the input from the pblock
*						non-zero : put the output into the pblock
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*			Exit:	rts
*
*			Uses:	g_access
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
p_access	PROCNAME

			WITH globals
			
			cmp  #get_input				; access is only used as
			beq  done					; an output parm
		
			lda  #access
			jsr  get_parm_offset
			lda  g_access
			sta  [param_blk_ptr],y
			
done		clc
exit		rts
		
			ENDP
		
 EJECT
******************************************************************
*
* 			Name:	p_aux_type
*
*	 Description:	This function places the aux_type 
*					parameter into the user's pblock.  It is an
*					output parameter only.
*
*		   Entry:	jsr
*
*		   Input:	A = zero     : get the input from the pblock
*						non-zero : put the output into the pblock
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*			Exit:	rts
*
*			Uses:	g_aux_type
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
p_aux_type	PROCNAME
			WITH globals
		
			cmp  #get_input				; aux_type is only used as
			beq  done					; an output parm
		

			lda  #aux_type
			jsr  get_parm_offset
			lda  g_aux_type				; aux_type is always zero
			sta  [param_blk_ptr],y
			iny
			iny
			lda  #0
			sta  [param_blk_ptr],y
			
done		clc
exit		rts
		
			ENDP
		
 EJECT
******************************************************************
*
* 			Name:	p_base
*
*	 Description:	This function copies the base 
*					parameter from the user's pblock.  It is an
*					input parameter only.
*
*		   Entry:	jsr
*
*		   Input:	A = zero     : get the input from the pblock
*						non-zero : put the output into the pblock
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*			Exit:	rts
*
*			Uses:	g_base
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
p_base		PROCNAME
			WITH globals
		
			cmp  #send_output			; base is only used as
			beq  done					; an input parm
		
			lda  #base
			jsr  get_parm_offset
			lda  [param_blk_ptr],y
			sta  g_base
			
done		clc
exit		rts
		
			ENDP
		
 EJECT
******************************************************************
*
* 			Name:	p_blocks_used
*
*	 Description:	This function places the blocks_used 
*					parameter into the user's pblock.  It is an
*					output parameter only.
*
*		   Entry:	jsr
*
*		   Input:	A = zero     : get the input from the pblock
*						non-zero : put the output into the pblock
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*			Exit:	rts
*
*			Uses:	g_blocks_used
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
p_blocks_used	PROCNAME
			WITH globals
		
			cmp  #get_input				; blocks_used is only used as
			beq  done					; an output parm
		
			lda  #blocks_used
			jsr  get_parm_offset
			lda  g_blocks_used
			sta  [param_blk_ptr],y
			iny
			iny
			lda  #0						; zero out the hi word
			sta  [param_blk_ptr],y
			
done		clc
exit		rts
			
			ENDP
		
 EJECT
******************************************************************
*
* 			Name:	p_block_size
*
*	 Description:	This function places the block_size 
*					parameter into the user's pblock.  It is an
*					output parameter only.
*
*		   Entry:	jsr
*
*		   Input:	A = zero     : get the input from the pblock
*						non-zero : put the output into the pblock
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*			Exit:	rts
*
*			Uses:	nothing
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
p_block_size	PROCNAME
			WITH globals
	
			cmp  #get_input				; block_size is an output
			beq  done					; only

			lda  #block_size
			jsr  get_parm_offset
			lda  #$200
			sta  [param_blk_ptr],y

done		clc
			rts
		
			ENDP
		
 EJECT
******************************************************************
*
* 			Name:	p_cache_priority
*
*	 Description:	This function copies the cache_priority 
*					parameter from the user's pblock.  It is an
*					input parameter only.
*
*		   Entry:	jsr
*
*		   Input:	A = zero     : get the input from the pblock
*						non-zero : put the output into the pblock
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*			Exit:	rts
*
*			Uses:	g_cache_priority
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
p_cache_priority	PROCNAME
			WITH globals
		
			cmp  #send_output			; cache_priority is only
			beq  done					; used as an input parm
		
			lda  #cache_priority
			jsr  get_parm_offset
			lda  [param_blk_ptr],y
			sta  g_cache_priority
			
done		clc
exit		rts
		
			ENDP
		
 EJECT
******************************************************************
*
* 			Name:	p_create_date
*
*	 Description:	This function places the create_date 
*					parameter into the user's pblock. It is an
*					output parameter only.  Converts the date
*					from the Pascal date format to the Class 0
*					date format.
*
*					Pascal Date Format:
*
*					      Year        Day     Month
*					+-------------+---------+-------+
*					|F|E|D|C|B|A|9|8|7|6|5|4|3|2|1|0|
*					+-------------+---------+-------+
*
*		   Entry:	jsr
*
*		   Input:	A = zero     : get the input from the pblock
*						non-zero : put the output into the pblock
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*			Exit:	rts
*
*			Uses:	g_create_date
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
p_create_date	PROCNAME
			WITH globals
		
			cmp  #get_input				; create_date is only used as
			beq  done					; an output parm
			
			lda  g_create_date			; year
			and  #$FE00
			sta  temp
			
			lda  g_create_date			; date
			and  #$01F0
			lsr  a
			lsr  a
			lsr  a
			lsr  a
			ora  temp
			sta  temp
			
			lda  g_create_date			; month
			and  #$000F
			asl  a
			asl  a
			asl  a
			asl  a
			asl  a
			ora  temp
			sta  temp	
			
			lda  #create_date
			jsr  get_parm_offset
			lda  temp
			sta  [param_blk_ptr],y
			
done		clc
exit		rts

temp		dc.w	0		
			ENDP
		
 EJECT
******************************************************************
*
* 			Name:	p_create_dateTime
*
*	 Description:	This function places the create_dateTime 
*					parameter into the user's pblock.  It is an
*					output parameter only.  It converts the date
*					from pascal format into the format described in
*					the ReadTimeHex call in the misc toolset.
*
*					Pascal Date Format:
*
*					      Year        Day     Month
*					+-------------+---------+-------+
*					|F|E|D|C|B|A|9|8|7|6|5|4|3|2|1|0|
*					+-------------+---------+-------+
*		
*		   Entry:	jsr
*
*		   Input:	A = zero     : get the input from the pblock
*						non-zero : put the output into the pblock
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*			Exit:	rts
*
*			Uses:	g_create_dateTime
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
p_create_dateTime	PROCNAME
			WITH globals
		
			cmp  #get_input				; create_dateTime is only used as
			beq  done					; an output parm
		
			stz  g_create_dateTime
			stz  g_create_dateTime+2
			stz  g_create_dateTime+4
			stz  g_create_dateTime+6
							
			lda  g_create_date				; year
			beq  out						; empty ->
			and  #$FE00
			lsr  a
			xba
			sep  #$20
			sta  g_create_dateTime+3
			rep  #$20
			
			lda  g_create_date				; date
			and  #$01F0
			lsr  a
			lsr  a
			lsr  a
			lsr  a
			sep  #$20
			dec  a
			sta  g_create_dateTime+4
			rep  #$20
			
			lda  g_create_date				; month
			and  #$000F
			sep  #$20
			dec  a
			sta  g_create_dateTime+5
			rep  #$20
			
			LONGA  OFF
			LONGI  OFF
			sep  #$30					; day of week
			lda  g_create_dateTime+3		;  year
			ldx  g_create_dateTime+5		;  month
			inx
			ldy  g_create_dateTime+4		;  day
			iny
			jsr  dow_convert
			sta  g_create_dateTime+7
			rep  #$30
			LONGA  ON
			LONGI  ON
			
out			lda  #create_dateTime
			jsr  get_parm_offset
			lda  g_create_dateTime
			sta  [param_blk_ptr],y
			iny
			iny
			lda  g_create_dateTime+2
			sta  [param_blk_ptr],y
			iny
			iny
			lda  g_create_dateTime+4
			sta  [param_blk_ptr],y
			iny
			iny
			lda  g_create_dateTime+6
			sta  [param_blk_ptr],y

			
done		clc
exit		rts
		
			ENDP
		
 EJECT
******************************************************************
*
* 			Name:	p_create_time
*
*	 Description:	This function places the create_time 
*					parameter into the user's pblock.  It is an
*					output parameter only.
*
*		   Entry:	jsr
*
*		   Input:	A = zero     : get the input from the pblock
*						non-zero : put the output into the pblock
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*			Exit:	rts
*
*			Uses:	g_create_time
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
p_create_time	PROCNAME
			WITH globals
		
			cmp  #get_input				; create_time is only used as
			beq  done					; an output parm
		
			lda  #create_time
			jsr  get_parm_offset
			lda  #0						; always zero
			sta  [param_blk_ptr],y
			
done		clc
exit		rts
		
			ENDP
		
 EJECT
******************************************************************
*
* 			Name:	p_data_buffer
*
*	 Description:	This function copies the data_buffer 
*					parameter from the user's pblock.  It is an
*					input parameter only.
*
*		   Entry:	jsr
*
*		   Input:	A = zero     : get the input from the pblock
*						non-zero : put the output into the pblock
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*			Exit:	rts
*
*			Uses:	g_data_buffer
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
p_data_buffer	PROCNAME
			WITH globals
		
			cmp  #send_output			; data_buffer is only used as
			beq  done					; an input parm
		
			lda  #data_buffer
			jsr  get_parm_offset
			lda  [param_blk_ptr],y
			sta  g_data_buffer
			iny
			iny
			lda  [param_blk_ptr],y
			sta  g_data_buffer+2
			
done		clc
exit		rts
		
			ENDP
		
 EJECT
******************************************************************
*
* 			Name:	p_dev_name
*
*	 Description:	This function clears the carry and returns.
*					It is used as a place holder.
*
*		   Entry:	jsr
*
*		   Input:	A = zero     : get the input from the pblock
*						non-zero : put the output into the pblock
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*			Exit:	rts
*
*			Uses:	nothing
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
p_dev_name	PROCNAME
			WITH globals
		
			clc
			rts
		
			ENDP
		
 EJECT
******************************************************************
*
* 			Name:	p_displacement
*
*	 Description:	This function copies the displacement 
*					parameter from the user's pblock.  It is an
*					input parameter only.
*
*		   Entry:	jsr
*
*		   Input:	A = zero     : get the input from the pblock
*						non-zero : put the output into the pblock
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*			Exit:	rts
*
*			Uses:	g_displacement
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
p_displacement	PROCNAME
			WITH globals
		
			cmp  #send_output			; displacement is only used as
			beq  done					; an input parm
		
			lda  #displacement
			jsr  get_parm_offset
			lda  [param_blk_ptr],y
			sta  g_displacement
			iny
			iny
			lda  [param_blk_ptr],y
			sta  g_displacement+2
			
done		clc
exit		rts
		
			ENDP
		
 EJECT
******************************************************************
*
* 			Name:	p_entry_num
*
*	 Description:	This function places the entry_num 
*					parameter into the user's pblock.  It is an
*					output parameter only.
*
*		   Entry:	jsr
*
*		   Input:	A = zero     : get the input from the pblock
*						non-zero : put the output into the pblock
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*			Exit:	rts
*
*			Uses:	g_entry_num
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
p_entry_num	PROCNAME
			WITH globals
		
			cmp  #get_input				; entry_num is only used as
			beq  done					; an output parm
		
			lda  #entry_num
			jsr  get_parm_offset
			lda  g_entry_num
			sta  [param_blk_ptr],y
			
done		clc
exit		rts
		
			ENDP
		
 EJECT
******************************************************************
*
* 			Name:	p_eof
*
*	 Description:	This function places the eof 
*					parameter into the user's pblock.  It is an
*					output parameter only.
*
*		   Entry:	jsr
*
*		   Input:	A = zero     : get the input from the pblock
*						non-zero : put the output into the pblock
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*			Exit:	rts
*
*			Uses:	g_eof
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
p_eof		PROCNAME
			WITH globals
		
			cmp  #get_input				; eof is only used as
			beq  done					; an output parm
		
			lda  #eof
			jsr  get_parm_offset
			lda  g_eof
			sta  [param_blk_ptr],y
			iny
			iny
			lda  g_eof+2
			sta  [param_blk_ptr],y
			
done		clc
exit		rts
		
			ENDP
		
 EJECT
******************************************************************
*
* 			Name:	p_file_type
*
*	 Description:	This function places the file_type 
*					parameter into the user's pblock.  It is an
*					output parameter only.
*
*		   Entry:	jsr
*
*		   Input:	A = zero     : get the input from the pblock
*						non-zero : put the output into the pblock
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*			Exit:	rts
*
*			Uses:	g_file_type
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
p_file_type	PROCNAME
			WITH globals
		
			cmp  #get_input				; file_type is only used as
			beq  done					; an output parm
		
			lda  #file_type
			jsr  get_parm_offset
			
			lda  the_fst_mode
			beq  ascii_mode
			
native_mode lda  g_file_type
			sta  [param_blk_ptr],y
			bra  done
		
ascii_mode	lda  g_file_type
			cmp  #3						; is it a text file?
			beq  isText
			
			bra  doit
			
isText		lda  #4
doit		sta  [param_blk_ptr],y
			
done		clc
exit		rts
		
			ENDP
		
 EJECT
******************************************************************
*
* 			Name:	p_file_sys_id
*
*	 Description:	This function places the file_sys_id 
*					parameter into the user's pblock.  It is an
*					output parameter only.
*
*		   Entry:	jsr
*
*		   Input:	A = zero     : get the input from the pblock
*						non-zero : put the output into the pblock
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*			Exit:	rts
*
*			Uses:	io_buffer, param_blk_ptr
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
p_file_sys_id	PROCNAME
			WITH globals
		
			cmp  #get_input
			beq  done
			
			lda  #file_sys_id			; file system id
			jsr  get_parm_offset
			lda  #pascal_id
			sta  [param_blk_ptr],y

done		clc
			rts
		
			ENDP
		
 EJECT
******************************************************************
*
* 			Name:	p_flags
*
*	 Description:	This function places the flags 
*					parameter into the user's pblock.  It is an
*					output parameter only.
*
*		   Entry:	jsr
*
*		   Input:	A = zero     : get the input from the pblock
*						non-zero : put the output into the pblock
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*			Exit:	rts
*
*			Uses:	nothing
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
p_flags		PROCNAME
			WITH globals
		
			cmp  #get_input				; flags is an output parm
			beq  done					; only
			
			lda  #flags
			jsr  get_parm_offset
			lda  #0
			sta  [param_blk_ptr],y

done		clc
			rts
		
			ENDP
		
 EJECT
******************************************************************
*
* 			Name:	p_free_blocks
*
*	 Description:	This function places the free_blocks 
*					parameter into the user's pblock.  It is an
*					output parameter only.
*
*		   Entry:	jsr
*
*		   Input:	A = zero     : get the input from the pblock
*						non-zero : put the output into the pblock
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*			Exit:	rts
*
*			Uses:	nothing
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
p_free_blocks	PROCNAME
			WITH globals

			cmp  #get_input
			beq  done
			
			lda  #6							; initialize # of used blocks
			sta  used_blks					; 2 boot blocks + 4 dir blocks = 6
		
			ldy  #vcr_num_files				; get the number of files on the volume
			lda  [<my_vcr],y
			beq  calc_free					; no files ->
			tax
			
			clc								; calculate offset to beginning of
			lda  #vcr_directory				; directory in vcr
			adc  #26						; skip volume entry
			tay
			
@loop		lda  [<my_vcr],y				; get starting block of file
			sta  temp
			iny
			iny
			lda  [<my_vcr],y				; get ending block of file
			sec								; calculate blocks used by file
			sbc  temp
			clc
			adc  used_blks					; add it to the # of used blocks on volume
			sta  used_blks
			
			tya								; move index to next file
			clc
			adc  #24
			tay
			
			dex								; is there another file?
			bne  @loop						; yes ->
			
calc_free	sec								; calculate the number of free blocks on the volume
			lda  g_blocks_used
			sbc  used_blks
			sta  free_blks					; save the result
			
			lda  #free_blocks				; get offset to parameter
			jsr  get_parm_offset
			lda  free_blks
			sta  [param_blk_ptr],y			; send output
			iny
			iny
			lda  #0
 			sta  [param_blk_ptr],y
			
done		clc
			rts

used_blks	dc.w	0
free_blks	dc.w	0

			ENDP
		
 EJECT
******************************************************************
*
* 			Name:	p_mod_date
*
*	 Description:	This function places the mod_date 
*					parameter into the user's pblock.  It is an
*					output parameter only.
*
*		   Entry:	jsr
*
*		   Input:	A = zero     : get the input from the pblock
*						non-zero : put the output into the pblock
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*			Exit:	rts
*
*			Uses:	g_mod_date
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
p_mod_date	PROCNAME
			WITH globals
		
			cmp  #get_input				; mod_date is only used as
			beq  done					; an output parm

			lda  g_mod_date				; year
			and  #$FE00
			sta  temp
			
			lda  g_mod_date				; date
			and  #$01F0
			lsr  a
			lsr  a
			lsr  a
			lsr  a
			ora  temp
			sta  temp
			
			lda  g_mod_date				; month
			and  #$000F
			asl  a
			asl  a
			asl  a
			asl  a
			asl  a
			ora  temp
			sta  temp	
			
			lda  #mod_date
			jsr  get_parm_offset
			lda  temp	
			sta  [param_blk_ptr],y
			
done		clc
exit		rts

			ENDP
		
 EJECT
******************************************************************
*
* 			Name:	p_mod_dateTime
*
*	 Description:	This function places the mod_dateTime 
*					parameter into the user's pblock.  It is an
*					output parameter only.
*
*		   Entry:	jsr
*
*		   Input:	A = zero     : get the input from the pblock
*						non-zero : put the output into the pblock
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*			Exit:	rts
*
*			Uses:	io_buffer, param_blk_ptr
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
p_mod_dateTime	PROCNAME
			WITH globals
		
			cmp  #get_input				; mod_dateTime is only used as
			beq  done					; an output parm
		
			stz  g_mod_dateTime
			stz  g_mod_dateTime+2
			stz  g_mod_dateTime+4
			stz  g_mod_dateTime+6
							
			lda  g_mod_date				; year
			beq  out					; empty ->
			and  #$FE00
			lsr  a
			xba
			sep  #$20
			sta  g_mod_dateTime+3
			rep  #$20
			
			lda  g_mod_date				; date
			and  #$01F0
			lsr  a
			lsr  a
			lsr  a
			lsr  a
			sep  #$20
			dec  a
			sta  g_mod_dateTime+4
			rep  #$20
			
			lda  g_mod_date				; month
			and  #$000F
			sep  #$20
			dec  a
			sta  g_mod_dateTime+5
			rep  #$20
			
			LONGA  OFF
			LONGI  OFF
			sep  #$30					; day of week
			lda  g_mod_dateTime+3		;  year
			ldx  g_mod_dateTime+5		;  month
			inx
			ldy  g_mod_dateTime+4		;  day
			iny
			jsr  dow_convert
			sta  g_mod_dateTime+7
			rep  #$30
			LONGA  ON
			LONGI  ON
			
out			lda  #mod_dateTime
			jsr  get_parm_offset
			lda  g_mod_dateTime
			sta  [param_blk_ptr],y
			iny
			iny
			lda  g_mod_dateTime+2
			sta  [param_blk_ptr],y
			iny
			iny
			lda  g_mod_dateTime+4
			sta  [param_blk_ptr],y
			iny
			iny
			lda  g_mod_dateTime+6
			sta  [param_blk_ptr],y
			
done		clc
exit		rts
		
			ENDP
		
 EJECT
******************************************************************
*
* 			Name:	p_mod_time
*
*	 Description:	This function places the mod_time 
*					parameter into the user's pblock.  It is an
*					output parameter only.
*
*		   Entry:	jsr
*
*		   Input:	A = zero     : get the input from the pblock
*						non-zero : put the output into the pblock
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*			Exit:	rts
*
*			Uses:	g_mod_time
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
p_mod_time	PROCNAME
			WITH globals
		
			cmp  #get_input				; mod_time is only used as
			beq  done					; an output parm
		
			lda  #mod_time
			jsr  get_parm_offset
			lda  #0						; always unknown
			sta  [param_blk_ptr],y
			
done		clc
exit		rts
		
			ENDP
		
 EJECT
******************************************************************
*
* 			Name:	p_name
*
*	 Description:	This function places the name 
*					parameter into the user's pblock.  It is an
*					output parameter only.
*
*		   Entry:	jsr
*
*		   Input:	A = zero     : get the input from the pblock
*						non-zero : put the output into the pblock
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*			Exit:	rts
*
*			Uses:	io_buffer, param_blk_ptr
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
p_name		PROCNAME
			WITH globals
		
			cmp  #get_input
			bne  output
			
			brl  done

*
* the output is a c1 string for both c0 and c1!
*
			;------------- Output Routines -------------
output		stz  temp
			lda  #name					; transfer name
			jsr  get_parm_offset
			lda  [param_blk_ptr],y
			sta  output_ptr
			iny
			iny
			lda  [param_blk_ptr],y
			sta  output_ptr+2
		
			ldy  #$0
			lda  [output_ptr],y			; is the output buffer large
			dec  a
			cmp  g_fileName				; enough?
			bcs  @1
			
			inc  temp					; no, it is not
			dec  a						; adjust size to fit in buffer
			dec  a
			dec  a
			dec  a
			sta  size
			bra  doit
			
@1			lda  g_fileName				; get length word
			sta  size

doit		inc  size					; adjust length to include length
			inc  size					; word which I skip
			ldx  #$02					; skip the length word
			ldy  #$02					; skip buffer length word
			sta  [output_ptr],y			; store length
			iny
			iny
			sep  #$20					; 8 bit a
			LONGA  OFF
@loop1		lda  g_fileName,x			; copy the volume name
			sta  [output_ptr],y
			iny
			inx
			cpx  size
			bcc  @loop1
			LONGA  ON
			rep  #$20
			
*
* check to see if the flag which indicates the buffers was too
* small is set, if it is, then return a buffer too small error
*
			lda  temp
			beq  done
			
			lda  #buff_too_small
			sec
			bra  exit
			
done		clc
exit		rts
		
			ENDP
		
 EJECT
******************************************************************
*
* 			Name:	p_new_pathname
*
*	 Description:	This function clears the carry and returns.  It
*					is used only as a place holder.
*
*		   Entry:	jsr
*
*		   Input:	A = zero     : get the input from the pblock
*						non-zero : put the output into the pblock
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*			Exit:	rts
*
*			Uses:	nothing
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
p_new_pathname	PROCNAME
			WITH globals
		
			clc
			rts
		
			ENDP
		
 EJECT
******************************************************************
*
* 			Name:	p_option_list
*
*	 Description:	This function sets up the option list.
*
*		   Entry:	jsr
*
*		   Input:	A = zero     : get the input from the pblock
*						non-zero : put the output into the pblock
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*			Exit:	rts
*
*			Uses:	nothing
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
p_option_list	PROCNAME
			WITH globals
			
*
* save the transfer direction
*
			pha

*
* get the pointer to the option list
*
			lda  #option_list
			jsr  get_parm_offset
			lda  [param_blk_ptr],y
			sta  op_list_ptr
			iny
			iny
			lda  [param_blk_ptr],y
			sta  op_list_ptr+2

			ora  op_list_ptr				; null?
			bne  @1
			pla
			bra  done						; yes ->
*
* determine the transfer direction
*
@1			pla
			cmp  #get_input
			bne  output

*
* the transfer direction is input, so make sure the option list
* buffer is large enough.
*
input		stz  credit_flg					; initialize the credit flag
			lda  [<op_list_ptr]				; get the size of the option list
			cmp  op_size					; large enough to hold the credits?
			bcc  @1							; no ->
			
			inc  credit_flg					; yes, set the flag
			lda  #0							; no error
			bra  done						; exit ->
			
@1			cmp  #4							; will it hold the minimum amount of data?
			bcc  error						; nope ->
			lda  #0							; no error
			bra  done						; exit ->
			
error		lda  #buff_too_small			; buffer is too small
			sec								; 
			bra  exit						; exit ->

*
* the transfer direction is output, so place the data into the
* buffer.  there is no need to check the buffer size, because
* that was done during the input stage.
*
output		lda  credit_flg					; do I get to pat myself on the back?
;			beq	 boring						; nope ->
			bra	 boring						; nope -> we don't include the credits
											; anymore..... Too bad.
			
			lda  op_size					; get the size of the credit data
			dec  a							; - 2
			dec  a
			ldy  #2
			sta  [<op_list_ptr],y			; = required size (data + fsys_id)
			dec  a
			dec  a
			dec  a							; - 3 = data size
			tax								; source index
			ldy  op_size					; dest index
			iny
			
			LONGA  OFF
			sep  #$20						; transfer the data
@loop		lda  op_data,x					; load data
			sta  [<op_list_ptr],y			; store data
			dey								; dest--
			dex								; source--
			bpl  @loop						; done? no ->
			rep	 #$20
			LONGA  ON
			
			bra  store_id					; ->
			
boring		lda  #2							; required size
			ldy  #2							; dest index
			sta  [<op_list_ptr],y			; store it
			
store_id	lda  #pascal_id					; file_sys_id
			ldy  #4							; index
			sta  [<op_list_ptr],y			; store it

			lda  #0							; no error
			
*
* clean up and exit
*
done		clc
exit		rts

credit_flg	dc.w	0
op_size		dc.w	op_end-op_data+4
op_data		dc.b	'Pascal FST Written By Cary Farrier & Tested By Linda Pan.'
op_end
			ENDP
		
 EJECT
******************************************************************
*
* 			Name:	p_pathname
*
*	 Description:	
*
*		   Entry:	jsr
*
*		   Input:	A = zero     : get the input from the pblock
*						non-zero : put the output into the pblock
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*			Exit:	rts
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
p_pathname	PROCNAME
			WITH globals
		
			clc
			rts
		
			ENDP
		
 EJECT
******************************************************************
*
* 			Name:	p_pcount
*
*	 Description:	This function clears the carry and returns.  It
*					is used only as a place holder.
*
*		   Entry:	jsr
*
*		   Input:	A = zero     : get the input from the pblock
*						non-zero : put the output into the pblock
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*			Exit:	rts
*
*			Uses:	nothing
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
p_pcount	PROCNAME
			WITH globals
		
			cmp  #send_output
			beq  done

input		lda  #pcount
			jsr  get_parm_offset
			lda  [param_blk_ptr],y
			sta  g_pcount

done		clc
exit		rts
		
			ENDP
		
 EJECT
******************************************************************
*
* 			Name:	p_position
*
*	 Description:	This function places the position 
*					parameter into the user's pblock.
*
*		   Entry:	jsr
*
*		   Input:	A = zero     : get the input from the pblock
*						non-zero : put the output into the pblock
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*			Exit:	rts
*
*			Uses:	g_position
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
p_position	PROCNAME
			WITH globals
		
			cmp  #send_output
			beq  output

input		lda  #position
			jsr  get_parm_offset
			lda  [param_blk_ptr],y
			sta  g_position
			iny
			iny
			lda  [param_blk_ptr],y
			sta  g_position+2
			bra  done

output		lda  #position
			jsr  get_parm_offset
			lda  g_position
			sta  [param_blk_ptr],y
			iny
			iny
			lda  g_position+2
			sta  [param_blk_ptr],y
			
done		clc
exit		rts
		
			ENDP
		
 EJECT
******************************************************************
*
* 			Name:	p_ref_num
*
*	 Description:	This function places the ref_num 
*					parameter into the user's pblock, or gets
*					the refnum from the fcr, depending on the
*					direction of the xfer.
*
*		   Entry:	jsr
*
*		   Input:	A = zero     : get the input from the pblock
*						non-zero : put the output into the pblock
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*			Exit:	rts
*
*			Uses:	g_ref_num
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
p_ref_num	PROCNAME
			WITH globals
		
			cmp  #get_input
			bne  output

input		ldy  #fcr_ref_num
			lda  [<my_fcr],y
			sta  g_ref_num
			bra  done
		
output		lda  call_num				; open call?
			lsr  a
			and  #$FF
			cmp  #$10
			bne  done					; no ->
			
			lda  #ref_num
			jsr  get_parm_offset
			lda  g_ref_num
			sta  [param_blk_ptr],y
			
done		clc
exit		rts
		
			ENDP
		
 EJECT
******************************************************************
*
* 			Name:	p_req_file_sys_id
*
*	 Description:	This function clears the carry and returns.  It
*					is used only as a place holder.
*
*		   Entry:	jsr
*
*		   Input:	A = zero     : get the input from the pblock
*						non-zero : put the output into the pblock
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*			Exit:	rts
*
*			Uses:	nothing
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
p_req_file_sys_id	PROCNAME
			WITH globals
		
			clc
			rts
		
			ENDP
			
 EJECT
******************************************************************
*
* 			Name:	p_request_access
*
*	 Description:	This function clears the carry and returns.  It
*					is used only as a place holder.
*
*		   Entry:	jsr
*
*		   Input:	A = zero     : get the input from the pblock
*						non-zero : put the output into the pblock
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*			Exit:	rts
*
*			Uses:	nothing
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
*
* REVISION HISTORY :
*
* 11/20/89	CAF		added code to make sure that request_access
*					is always $00 or $01, else return an error.
*
******************************************************************
p_request_access	PROCNAME
			WITH globals
			
			cmp  #send_output			; request_count is only
			beq  done					; used as an input parm
		
			lda  #request_access
			jsr  get_parm_offset
			lda  [param_blk_ptr],y
			
			beq  done					; is it $0000? yes ->
			
			dec  a						; is it $0001? yes ->
			beq  done
			
			lda  #invalid_access		; error
			sec
			bra  exit
			
done		clc
exit		rts
			
			ENDP
			
 EJECT
******************************************************************
*
* 			Name:	p_request_count
*
*	 Description:	This function copies the request_count 
*					parameter from the user's pblock.  It is an
*					input parameter only.
*
*		   Entry:	jsr
*
*		   Input:	A = zero     : get the input from the pblock
*						non-zero : put the output into the pblock
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*			Exit:	rts
*
*			Uses:	g_request_count
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
p_request_count	PROCNAME
			WITH globals
			
			cmp  #send_output			; request_count is only
			beq  done					; used as an input parm
		
			lda  #request_count
			jsr  get_parm_offset
			lda  [param_blk_ptr],y
			sta  g_request_count
			iny
			iny
			lda  [param_blk_ptr],y
			sta  g_request_count+2
			
done		clc
exit		rts
		
			ENDP
		
 EJECT
******************************************************************
*
* 			Name:	p_resource_blocks
*
*	 Description:	This function places the resource_blocks 
*					parameter into the user's pblock.  It is an
*					output parameter only.
*
*		   Entry:	jsr
*
*		   Input:	A = zero     : get the input from the pblock
*						non-zero : put the output into the pblock
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*			Exit:	rts
*
*			Uses:	nothing
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
p_resource_blocks	PROCNAME
			WITH globals
		
			cmp  #get_input				; resource_blocks is only
			beq  done					; used as an output parm
		
			lda  #resource_blocks
			jsr  get_parm_offset
			lda  #0						; always zero
			sta  [param_blk_ptr],y
			iny
			iny
			sta  [param_blk_ptr],y
			
done		clc
exit		rts
		
			ENDP
		
 EJECT
******************************************************************
*
* 			Name:	p_resource_eof
*
*	 Description:	This function places the resource_eof 
*					parameter into the user's pblock.  It is an
*					output parameter only.
*
*		   Entry:	jsr
*
*		   Input:	A = zero     : get the input from the pblock
*						non-zero : put the output into the pblock
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*			Exit:	rts
*
*			Uses:	nothing
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
p_resource_eof	PROCNAME
			WITH globals
		
			cmp  #get_input				; resource_eof is only
			beq  done					; used as an output parm
		
			lda  #resource_eof
			jsr  get_parm_offset
			lda  #0
			sta  [param_blk_ptr],y
			iny
			iny
			sta  [param_blk_ptr],y
			
done		clc
exit		rts
		
			ENDP
		
 EJECT
******************************************************************
*
* 			Name:	p_resource_number
*
*	 Description:	This function validates the resource_number 
*					parameter from the user's pblock.  The
*					parameter is not used by the FST in any way
*					other than the error checking done here.
*
*		   Entry:	jsr
*
*		   Input:	A = zero     : get the input from the pblock
*						non-zero : put the output into the pblock
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*			Exit:	rts
*
*			Uses:	nothing
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
p_resource_number	PROCNAME
			WITH globals
		
			cmp  #send_output			; resource_number is only
			beq  done					; used as an input parm
		
			lda  #resource_number
			jsr  get_parm_offset
			lda  [param_blk_ptr],y
			beq  done					; is the user requesting the
										; data fork?
										
			cmp  #2						; no, is the parm > 1?
			bcs  resBadParm				; yes, so it is a bad parm

			lda  #res_not_found			; the user wants a rsrc
			sec							; fork but I don't support
			bra  exit					; them.

resBadParm	lda  #parm_range_err
			sec
			bra  exit
			
done		clc
exit		rts
		
			ENDP
		
 EJECT
******************************************************************
*
* 			Name:	p_storage_type
*
*	 Description:	This function places the storage_type 
*					parameter into the user's pblock.  It is an
*					output parameter only.
*
*		   Entry:	jsr
*
*		   Input:	A = zero     : get the input from the pblock
*						non-zero : put the output into the pblock
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = undefined
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000...
*
*			Exit:	rts
*
*			Uses:	g_storage_type
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
p_storage_type	PROCNAME
			WITH globals
		
			cmp  #get_input				; storage_type is only
			beq  done					; used as an output parm
		
			lda  #storage_type
			jsr  get_parm_offset
			lda  g_storage_type
			sta  [param_blk_ptr],y
			
done		clc
exit		rts
		
			ENDP
				
 EJECT
******************************************************************
*
* 			Name:	p_transfer_count
*
*	 Description:	This function places the transfer_count
*					parameter into the user's pblock.  It is an
*					output parameter only.
*
*		   Entry:	jsr
*
*		   Input:	A = zero     : get the input from the pblock
*						non-zero : put the output into the pblock
*					X = undefined
*					Y = offset of parameter into pblock
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000..0 = error
*							   1 = no error
*
*			Exit:	rts
*
*			Uses:	g_transfer_count
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
p_transfer_count	PROCNAME
			WITH globals
		
			cmp  #get_input				; transfer_count is only
			beq  done					; used as an output parm
		
			lda  #transfer_count
			jsr  get_parm_offset
			lda  g_transfer_count
			sta  [param_blk_ptr],y
			iny
			iny
			lda  g_transfer_count+2
			sta  [param_blk_ptr],y
			
done		clc
exit		rts
		
			ENDP

 EJECT
******************************************************************
*
* 			Name:	p_vol_name
*
*	 Description:	This function copies the vol_name parm into
*					the user's pblock.  It is an output parm only.
*
*		   Entry:	jsr
*
*		   Input:	A = zero     : get the input from the pblock
*						non-zero : put the output into the pblock
*					X = undefined
*					Y = offset of parameter into pblock
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000..0 = error
*							   1 = no error
*
*			Exit:	rts
*
*			Uses:	
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
p_vol_name	PROCNAME
			WITH globals
		
			cmp  #get_input
			bne  output
			
			;------------- Input Routines -------------
input		lda  call_class
			bne  class1in

class0in
class1in
			brl  done
			
			;------------- Output Routines -------------
output		lda  call_class
			bne  class1out
			
class0out	lda  #vol_name
			jsr  get_parm_offset
			lda  [param_blk_ptr],y
			sta  output_ptr
			iny
			iny
			lda  [param_blk_ptr],y
			sta  output_ptr+2
	
			lda  g_volumeName			; get length word
			sta  size
			inc  size					; adjust length to include length
			inc  size					;  word which I skip
			inc  a						; increase length for '/'
			ldx  #$02					; skip the length word
			ldy  #$00
			sep  #$20					; 8 bit a
			LONGA  OFF
			lda  g_volumeName			; get length byte
			inc  a						; compensate for separator
			sta  [output_ptr],y			; store length byte
			iny
			lda  #c0_sep
			sta  [output_ptr],y			; store '/'
			iny
@loop		lda  g_volumeName,x			; copy the volume name
			sta  [output_ptr],y
			iny
			inx
			cpx  size
			bcc  @loop
			LONGA  ON
			rep  #$20
			
			brl  done
			
class1out	stz  temp
			lda  #vol_name				; transfer volume name
			jsr  get_parm_offset
			lda  [param_blk_ptr],y
			sta  output_ptr
			iny
			iny
			lda  [param_blk_ptr],y
			sta  output_ptr+2
		
			ldy  #$0
			lda  [output_ptr],y			; is the output buffer large
			dec  a
			cmp  g_volumeName			; enough?
			bcs  @1
			
			inc  temp					; no, it is not
			dec  a						; adjust size to fit in buffer
			dec  a
			dec  a
			dec  a
			sta  size
			bra  doit
			
@1			lda  g_volumeName			; get length word
			sta  size

doit		inc  size					; adjust length to include length
			inc  size					; word which I skip
			inc  a						; increase length for ':'
			ldx  #$02					; skip the length word
			ldy  #$02					; skip buffer length word
			sta  [output_ptr],y			; store length
			iny
			iny
			sep  #$20					; 8 bit a
			LONGA  OFF
			lda  #c1_sep
			sta  [output_ptr],y			; store ':'
			iny
@loop1		lda  g_volumeName,x			; copy the volume name
			sta  [output_ptr],y
			iny
			inx
			cpx  size
			bcc  @loop1
			LONGA  ON
			rep  #$20
			
*
* check to see if the flag which indicates the buffers was too
* small is set, if it is, then return a buffer too small error
*
			lda  temp
			beq  done
			
			lda  #buff_too_small
			sec
			bra  exit
			
done		clc
exit		rts
		
			ENDP
		
 EJECT
******************************************************************
*
* 			Name:	p_null_field
*
*	 Description:	This function clears the carry and returns.
*					It is used only as a place holder.
*
*		   Entry:	jsr
*
*		   Input:	A = zero     : get the input from the pblock
*						non-zero : put the output into the pblock
*					X = undefined
*					Y = offset of parameter into pblock
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000..0 = error
*							   1 = no error
*
*			Exit:	rts
*
*			Uses:	nothing
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
p_null_field PROCNAME
			WITH globals
			
			clc
			rts
			
			ENDP

 EJECT
******************************************************************
*
* 			Name:	p_command_num
*
*	 Description:	This function copies the command_num
*					parameter from the users pblock.
*
*		   Entry:	jsr
*
*		   Input:	A = zero     : get the input from the pblock
*						non-zero : put the output into the pblock
*					X = undefined
*					Y = offset of parameter into pblock
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000..0 = error
*							   1 = no error
*
*			Exit:	rts
*
*			Uses:	nothing
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
p_command_num PROCNAME
			WITH globals
			
			cmp  #send_output
			beq  done
			
			lda  #command_num			; transfer fst mode
			jsr  get_parm_offset
			lda  [param_blk_ptr],y
			sta  g_command_num
			
done		clc
exit		rts
			
			ENDP

 EJECT
******************************************************************
*
* 			Name:	p_fst_mode
*
*	 Description:	This function copies the fst_mode parameter
*					from the users pblock
*
*		   Entry:	jsr
*
*		   Input:	A = zero     : get the input from the pblock
*						non-zero : put the output into the pblock
*					X = undefined
*					Y = offset of parameter into pblock
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000..0 = error
*							   1 = no error
*
*			Exit:	rts
*
*			Uses:	nothing
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
p_fst_mode	PROCNAME
			WITH globals
			
			cmp  #send_output
			bne  input
			
output		lda  #fst_mode				; transfer fst mode
			jsr  get_parm_offset
			lda  g_fst_mode
			sta  [param_blk_ptr],y
			bra  done
			
input		lda  #fst_mode				; transfer fst mode
			jsr  get_parm_offset
			lda  [param_blk_ptr],y
			sta  g_fst_mode
			
done		clc
exit		rts
			
			ENDP
			
 EJECT
******************************************************************
*
* 			Name:	p_dev_num
*
*	 Description:	This function copies the dev_num parameter
*					from the users pblock
*
*		   Entry:	jsr
*
*		   Input:	A = zero     : get the input from the pblock
*						non-zero : put the output into the pblock
*					X = undefined
*					Y = offset of parameter into pblock
*					P = nvmxdizc
*					    ..000...
*
*		  Output:	A = error code if carry set
*					X = undefined
*					Y = undefined
*					P = nvmxdizc
*					    ..000..0 = error
*							   1 = no error
*
*			Exit:	rts
*
*			Uses:	g_dev_num
*
* Copyright Apple Computer, Inc. 1989-1992.  All rights reserved.
******************************************************************
p_dev_num	PROCNAME
			WITH globals
			
			cmp  #send_output
			bne  input
			
output		lda  #device_num			; transfer dev_num
			jsr  get_parm_offset
			lda  g_dev_num
			sta  [param_blk_ptr],y
			bra  done
			
input		lda  #device_num			; transfer dev_num
			jsr  get_parm_offset
			lda  [param_blk_ptr],y
			sta  g_dev_num
			
done		clc
exit		rts
			
			ENDP

			END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/FSTs/ProDOS/Debugger b/IIGS.601.SRC/GS.OS/FSTs/ProDOS/Debugger
new file mode 100644
index 0000000..95b99cc
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/FSTs/ProDOS/Debugger
@@ -0,0 +1 @@
+;==========================================================================
;This file contains debug code
;
;Link List
;               Link Pointer            4 Bytes
;               $AABB                   2 Bytes (For Monitor)
;               Call Number             2 Bytes
;               Error Code              2 Bytes
;               Path Flag               2 Bytes
;		PathName Pointer	4 Bytes
;               Call Parameter Block    -n- Bytes
;
;==========================================================================

		EXPORT	debugger	
debugger	PROC
		jmp	debug_start
		entry	debugger_out
		
		export	debug_flag
debug_flag	DC.W	00
debug_address	DC.L	debug_buffer	;local buffer for debug data
debug_wait	DC.W	0000
curr_wait	DC.W	0000
debug_count	DC.W	0000
debug_error	DC.W	0000
debug_path	DC.W	0000

debug_header	equ	$0008
		
		export	debug_buffer
debug_buffer	ds.b	256		;buffer for debugger

size_table				; 
		DC.W	$11		;create
		DC.W	$03		;destroy
		DC.W	$00		;cmd_error
		DC.W	$07		;change_path
		DC.W	$15		;set_file_info
		DC.W	$19		;get_file_info
		DC.W	$00		;cmd_error
		DC.W	$11		;volume
		DC.W	$00		;cmd_error
		DC.W	$00		;cmd_error
		DC.W	$03		;clear_backup
		DC.W	$00		;cmd_error
		DC.W	$00		;cmd_error
		DC.W	$00		;cmd_error
		DC.W	$00		;cmd_error
		DC.W	$09		;open
		DC.W	$00		;cmd_error
		DC.W	$0D		;read
		DC.W	$0D		;write
		DC.W	$01		;close
		DC.W	$01		;flush
		DC.W	$05		;set_mark
		DC.W	$05		;get_mark
		DC.W	$05		;set_eof
		DC.W	$05		;get_eof
		DC.W	$00		;cmd_error
		DC.W	$00		;cmd_error
		DC.W	$2F		;get_dir_entry
		DC.W	$00		;cmd_error
		DC.W	$00		;cmd_error
		DC.W	$00		;cmd_error
		DC.W	$05		;get_dev_num
		DC.W	$00		;cmd_error
		DC.W	$09		;read_block
		DC.W	$09		;write_block
		DC.W	$00		;cmd_error
		DC.W	$00		;cmd_error

Path_table				; 
		DC.W	$ff		;create
		DC.W	$ff		;destroy
		DC.W	$00		;cmd_error
		DC.W	$ff		;change_path
		DC.W	$ff		;set_file_info
		DC.W	$ff		;get_file_info
		DC.W	$00		;cmd_error
		DC.W	$ff		;volume
		DC.W	$00		;cmd_error
		DC.W	$00		;cmd_error
		DC.W	$ff		;clear_backup
		DC.W	$00		;cmd_error
		DC.W	$00		;cmd_error
		DC.W	$00		;cmd_error
		DC.W	$00		;cmd_error
		DC.W	$ff		;open
		DC.W	$00		;cmd_error
		DC.W	$00		;read
		DC.W	$00		;write
		DC.W	$00		;close
		DC.W	$00		;flush
		DC.W	$00		;set_mark
		DC.W	$00		;get_mark
		DC.W	$00		;set_eof
		DC.W	$00		;get_eof
		DC.W	$00		;cmd_error
		DC.W	$00		;cmd_error
		DC.W	$00		;get_dir_entry
		DC.W	$00		;cmd_error
		DC.W	$00		;cmd_error
		DC.W	$00		;cmd_error
		DC.W	$ff		;get_dev_num
		DC.W	$00		;cmd_error
		DC.W	$00		;read_block
		DC.W	$00		;write_block
		DC.W	$00		;cmd_error
		DC.W	$00		;cmd_error

c1_size_table				; 
		DC.W	$17		;create
		DC.W	$06		;destroy
		DC.W	$00		;cmd_error
		DC.W	$0A		;change_path
		DC.W	$38		;set_file_info
		DC.W	$38		;get_file_info
		DC.W	$00		;cmd_error
		DC.W	30		;volume
		DC.W	$00		;cmd_error
		DC.W	$00		;cmd_error
		DC.W	$06		;clear_backup
		DC.W	$00		;cmd_error
		DC.W	$00		;cmd_error
		DC.W	$00		;cmd_error
		DC.W	$00		;cmd_error
		DC.W	$4A		;open
		DC.W	$00		;cmd_error
		DC.W	18		;read
		DC.W	18		;write
		DC.W	04		;close
		DC.W	04		;flush
		DC.W	10		;set_mark
		DC.W	08		;get_mark
		DC.W	10		;set_eof
		DC.W	08		;get_eof
		DC.W	$00		;cmd_error
		DC.W	$00		;cmd_error
		DC.W	60		;get_dir_entry
		DC.W	$00		;cmd_error
		DC.W	$00		;cmd_error
		DC.W	$00		;cmd_error
		DC.W	08		;get_dev_num
		DC.W	$00		;cmd_error
		DC.W	$00		;read_block
		DC.W	$00		;write_block
		DC.W	$00		;cmd_error
		DC.W	$00		;cmd_error


debug_start				; 

		stz	debug_error
		bcc	@no_error
		sta	debug_error
@no_error				; 
		lda	call_number
		tax
		and	#$FF00		;class 0?
		beq	@class0
		cmp	#$2000		;class 1?
		beq	@class1
		rts
		
@class0
		txa
		asl	a
		tax
		lda	size_table-2,x	;get the number of bytes to move
		sta	debug_count
		bne	do_path_tbl
		rts

@class1	
		lda	call_number	;fix X please
		cmp	#$2033		;FST specific
		bne	@not_fst
		rts
@not_fst
		and	#$00FF
		asl	a
		tax
		lda	c1_size_table-2,x ;get the number of bytes to move
		sta	debug_count
		bne	do_path_tbl
		rts

do_path_tbl	
		lda	path_table-2,x
		sta	debug_path

chk_flag				; 
		lda	debug_flag	;are we debugging?
		bmi	debug_true
		rts

debug_true				; 
		clc
		lda	debug_address
		sta	temp_ptr	;use a temp pointer please
		lda	debug_address+2
		sta	temp_ptr+2	;pointer to location to store the call

find_free				; 
		ldy	#$0002		;high word of link
		lda	[temp_ptr],y
		tax
		lda	[temp_ptr]
		bne	get_next
		txy
		beq	found_last
get_next				; 
		clc
		adc	temp_ptr
		sta	temp_ptr
		txa
		adc	temp_ptr+2
		sta	temp_ptr+2
		bra	find_free

found_last				; 
		ldy	#$0004		;index to monitor Pattern
		lda	#$BBAA
		sta	[temp_ptr],y
		iny
		iny
		lda	call_number	;save the user's call number
		sta	[temp_ptr],y
		iny
		iny
		lda	debug_error
		sta	[temp_ptr],y	;save the error code
		iny
		iny

		ldx	debug_path
		lda	path_flag	;save the path flag
		and	#path1_mask
		bne	store_path
		ldx	#$0000
store_path				; 
		txa

		sta	[temp_ptr],y
		iny
		iny			;point to the parameter block
		txa
		beq	@zero_path
		
		clc
		lda	temp_ptr
		adc	#$000D+4	;header overhead
		adc	debug_count
		sta	[temp_ptr],y
		iny
		iny
		lda	temp_ptr+2
		adc	#$0000
		sta	[temp_ptr],y
		bra	@non_zero
@zero_path
		lda	#$0000
		sta	[temp_ptr],y
		iny
		iny
		sta	[temp_ptr],y	;zero the pathname pointer
		
@non_zero
		iny
		iny

		tya

		clc
		adc	temp_ptr	;make a pointer to parameter area
		sta	temp2_ptr
		lda	#$0000
		adc	temp_ptr+2
		sta	temp2_ptr+2

		ldy	debug_count
		longa	off
		sep	#$20		;8 Bit Accum

debug_loop				; 
		lda	[param_blk_ptr],y
		sta	[temp2_ptr],y
		dey
		bpl	debug_loop	;store the parameter block

		longa	on
		rep	#$20

		inc	debug_count

		clc

		lda	temp2_ptr	;point past the parameter block
		adc	debug_count
		sta	temp2_ptr
		lda	temp2_ptr+2
		adc	#$0000
		sta	temp2_ptr+2

		lda	#$0000		;zero the pathname length if there is
		sta	[temp2_ptr]	;one
		ldy	#$0002
		sta	[temp2_ptr],y

		lda	debug_path	;are we done?
		beq	end_debug	;yes

		lda	path_flag	;load the path flag please
		and	#path1_mask
		beq	end_debug	;sorry no path name

		lda	[path1_ptr]	;get the length please
		tay			;store the length in Y
		iny
		tyx

debug_name				; 
		lda	[path1_ptr],y
		sta	[temp2_ptr],y
		dey
		bpl	debug_name

		txy
		iny
		lda	#$0000
		sta	[temp2_ptr],y
		iny
		iny
		sta	[temp2_ptr],y
		dey
		dey
		tya
		clc
		adc	temp2_ptr
		sta	temp2_ptr
		lda	#$0000
		adc	temp2_ptr+2
		sta	temp2_ptr+2


end_debug				; 
		ldy	#$0002
		sec
		lda	temp2_ptr	;points to next entry
		sbc	temp_ptr
		sta	[temp_ptr]
		lda	temp2_ptr+2
		sbc	temp_ptr+2
		sta	[temp_ptr],y
		lda	debug_wait	;should we wait?
		beq	no_wait
		lda	curr_wait
		cmp	debug_wait	;are we there yet?
		bcc	no_wait		;no

		ldx	#$2c03
		jsl	$e10000		;ring the bell
key_loop				; 
		lda	>$e0c000
		bpl	key_loop
		lda	>$e0C010
no_wait
		jsr	debugger_out
		inc	curr_wait
		rts

		ENDP

		longa   on
		longi   on

		EXPORT	debugger_out            
debugger_out    PROC
		import	debug_buffer
		import	debug_flag
		
;------------------------------------------
;
; Equates from procedure 
;
;------------------------------------------
cmd_error       equ    $0000
word            equ    $0000
lword           equ    $0002
eight           equ    $0006
pointer         equ    $0002

data_start      equ    debug_buffer

zp              equ    $00
temp_ptr        equ    $04
temp2_ptr       equ    $08
table_ptr       equ    $0C
entry_ptr       equ    $10
ascii_ptr       equ    $14
zp_size		equ	ascii_ptr+4

                jmp     bug_routine
zp_hold		ds.b	$19		;save restore buffer

debug_path	DC.W	00
param_index	DC.W	00
temp		DC.W	00

class0_table	; 
	DC.W	create
	DC.W	destroy
	DC.W	cmd_error
	DC.W	change_path
	DC.W	set_file_info
	DC.W	get_file_info
	DC.W	cmd_error
	DC.W	volume
	DC.W	cmd_error
	DC.W	cmd_error
	DC.W	clear_backup
	DC.W	cmd_error
	DC.W	cmd_error
	DC.W	cmd_error
	DC.W	cmd_error
	DC.W	open
	DC.W	cmd_error
	DC.W	read
	DC.W	write
	DC.W	close
	DC.W	flush
	DC.W	set_mark
	DC.W	get_mark
	DC.W	set_eof
	DC.W	get_eof
	DC.W	cmd_error
	DC.W	cmd_error
	DC.W	get_dir_entry
	DC.W	cmd_error
	DC.W	cmd_error
	DC.W	cmd_error
	DC.W	get_dev_num
	DC.W	cmd_error
	DC.W	read_block
	DC.W	write_block
	DC.W	cmd_error
	DC.W	cmd_error


class1_table 
	DC.W	c1_create
	DC.W	c1_destroy
	DC.W	cmd_error
	DC.W	c1_change_path
	DC.W	c1_set_file_info
	DC.W	c1_get_file_info
	DC.W	cmd_error
	DC.W	c1_volume
	DC.W	cmd_error
	DC.W	cmd_error
	DC.W	c1_clear_backup
	DC.W	cmd_error
	DC.W	cmd_error
	DC.W	cmd_error
	DC.W	cmd_error
	DC.W	c1_open
	DC.W	cmd_error
	DC.W	c1_read
	DC.W	c1_write
	DC.W	c1_close
	DC.W	c1_flush
	DC.W	c1_set_mark
	DC.W	c1_get_mark
	DC.W	c1_set_eof
	DC.W	c1_get_eof
	DC.W	cmd_error
	DC.W	cmd_error
	DC.W	c1_get_dir_entry
	DC.W	cmd_error
	DC.W	cmd_error
	DC.W	cmd_error
	DC.W	c1_get_dev_num
	DC.W	cmd_error
	DC.W	cmd_error
	DC.W	cmd_error
	DC.W	cmd_error
	DC.W	cmd_error

;===========================================================================

create 
		DC.W	ascii_01	;ascii data to write.
		DC.W	size_01		;length to write

		DC.W	word
		DC.W	err_01	;error returned
		DC.W	pointer	;type = pointer
		DC.W	name_01	;address of pathname pointer
		DC.W	word	;type = word
		DC.W	access_01
		DC.W	word
		DC.W	file_type_01
		DC.W	lword
		DC.W	aux_type_01
		DC.W	word
		DC.W	storage_01
		DC.W	word
		DC.W	createA_01
		DC.W	word
		DC.W	createB_01
		DC.W	$FFFF	;end of table

ascii_01	; 
	DC.B	'Call = CREATE'
	DC.B	$0D
	DC.B	'Error Code = $'
err_01	DC.B	'FFFF'
	DC.B	$0D
	DC.B	'Pathname ptr = $'
name_01	DC.B	'00FFFFFF'
	DC.B	$0D
	DC.B	'Access = $'
access_01	DC.B	'FFFF'
	DC.B	$0D
	DC.B	'File Type = $'
file_type_01	DC.B	'FFFF'
	DC.B	$0D
	DC.B	'Aux Type = $'
aux_type_01	DC.B	'FFFFFFFF'
	DC.B	$0D
	DC.B	'Storage = $'
storage_01	DC.B	'FFFF'
	DC.B	$0D
	DC.B	'Create Date = $'
createA_01	DC.B	'FFFF'
	DC.B	$0D
	DC.B	'Create Time = $'
createB_01	DC.B	'FFFF'
	DC.B	$0D
	DC.B	$0D
size_01         equ     *-ascii_01

;===========================================================================

c1_create 
		DC.W	c1_ascii_01	;ascii data to write.
		DC.W	c1_create_pcnt	;pointer to length table

		DC.W	word
		DC.W	c1_err_01	;error returned
		dc.w	word		;PCount field
		dc.w	c1_pcnt_01
		DC.W	pointer		;type = pointer
		DC.W	c1_name_01	;address of pathname pointer
		DC.W	word		;type = word
		DC.W	c1_access_01
		DC.W	word
		DC.W	c1_file_type_01
		DC.W	lword
		DC.W	c1_aux_type_01
		DC.W	word
		DC.W	c1_storage_01
		DC.W	lword
		DC.W	c1_eof_01
		DC.W	lword
		DC.W	c1_res_01
		DC.W	$FFFF	;end of table

c1_create_pcnt	dc.w	$0007		;size of the PCount table
		dc.w	c1_pcnt_01_1
		dc.w	c1_pcnt_01_2
		dc.w	c1_pcnt_01_3	
		dc.w	c1_pcnt_01_4	
		dc.w	c1_pcnt_01_5	
		dc.w	c1_pcnt_01_6	
		dc.w	c1_pcnt_01_7
		
		
c1_ascii_01 
		DC.B	'Call = CREATE'
		DC.B	$0D
		DC.B	'Error Code = $'
c1_err_01		DC.B	'FFFF'
		DC.B	$0D
		dc.b	'PCount = $'
c1_pcnt_01	dc.b	'FFFF'
		dc.b	$0d
		DC.B	'Pathname ptr = $'
c1_name_01	DC.B	'00FFFFFF'
		DC.B	$0D
c1_pcnt_01_1	equ	*-c1_ascii_01		;size of write with PCount of 1		

		DC.B	'Access = $'
c1_access_01	DC.B	'FFFF'
		DC.B	$0D
c1_pcnt_01_2	equ	*-c1_ascii_01		;size of write with PCount of 2		
		
		DC.B	'File Type = $'
c1_file_type_01	DC.B	'FFFF'
		DC.B	$0D
c1_pcnt_01_3	equ	*-c1_ascii_01		;size of write with PCount of 3		
		
		DC.B	'Aux Type = $'
c1_aux_type_01	DC.B	'FFFFFFFF'
		DC.B	$0D
c1_pcnt_01_4	equ	*-c1_ascii_01		;size of write with PCount of 4		
		
		DC.B	'Storage = $'
c1_storage_01	DC.B	'FFFF'
		DC.B	$0D
c1_pcnt_01_5	equ	*-c1_ascii_01		;size of write with PCount of 5		
		
		DC.B	'Data Fork Size = $'
c1_eof_01	DC.B	'FFFFFFFF'
		DC.B	$0D
c1_pcnt_01_6	equ	*-c1_ascii_01		;size of write with PCount of 6		
		
		DC.B	'Resource Fork Size = $'
c1_res_01	DC.B	'FFFFFFFF'
		DC.B	$0D
		DC.B	$0D
c1_pcnt_01_7	equ	*-c1_ascii_01		;size of write with PCount of 7	

;===========================================================================

destroy	; 
	DC.W	ascii_02	;pointer to ascii data
	DC.W	size_02

	DC.W	word
	DC.W	err_02	;error returned
	DC.W	pointer	;type = pointer
	DC.W	path_02
	DC.W	$FFFF

ascii_02	; 
	DC.B	'Call = DESTROY'
	DC.B	$0D
	DC.B	'Error Code = $'
err_02	DC.B	'FFFF'
	DC.B	$0D
	DC.B	'Pathname ptr = $'
path_02	DC.B	'00FFFFFF'
	DC.B	$0D
	DC.B	$0D
size_02         equ     *-ascii_02

;===========================================================================

c1_destroy
		DC.W	c1_ascii_02	;pointer to ascii data
		DC.W	c1_destroy_pcnt

		DC.W	word
		DC.W	c1_err_02	;error returned
		dc.w	word
		dc.w	c1_pcnt_02
		DC.W	pointer	;type = pointer
		DC.W	c1_path_02
		DC.W	$FFFF
		
c1_destroy_pcnt	dc.w	$0001
		dc.w	c1_pcnt_02_01
		
c1_ascii_02
		DC.B	'Call = DESTROY'
		DC.B	$0D
		DC.B	'Error Code = $'
c1_err_02	DC.B	'FFFF'
		DC.B	$0D
		dc.b	'PCount = $'
c1_pcnt_02	dc.b	'FFFF'
		dc.b	$0d
		DC.B	'Pathname ptr = $'
c1_path_02	DC.B	'00FFFFFF'
		DC.B	$0D
		DC.B	$0D
c1_pcnt_02_01	equ     *-c1_ascii_02

;===========================================================================

change_path	; 
	DC.W	ascii_04
	DC.W	size_04

	DC.W	word
	DC.W	err_04	;error returned
	DC.W	pointer
	DC.W	path1_04
	DC.W	pointer
	DC.W	path2_04
	DC.W	$FFFF

ascii_04	; 
	DC.B	'Call = CHANGE PATH'
	DC.B	$0D
	DC.B	'Error Code = $'
err_04	DC.B	'FFFF'
	DC.B	$0D
	DC.B	'Pathname ptr = $'
path1_04	DC.B	'00FFFFFF'
	DC.B	$0D
	DC.B	'Pathname ptr = $'
path2_04	DC.B	'00FFFFFF'
	DC.B	$0D
	DC.B	$0D
size_04         equ     *-ascii_04

;===========================================================================

c1_change_path	; 
		DC.W	c1_ascii_04
		DC.W	c1_change_pcnt

		DC.W	word
		DC.W	c1_err_04	;error returned
		dc.w	word
		dc.w	c1_pcnt_04
		DC.W	pointer
		DC.W	c1_path1_04
		DC.W	pointer
		DC.W	c1_path2_04
		DC.W	$FFFF

c1_change_pcnt	dc.w	$0002
		dc.w	$0000
		dc.w	c1_pcnt_04_01	;size
		
c1_ascii_04	; 
		DC.B	'Call = CHANGE PATH'
		DC.B	$0D
		DC.B	'Error Code = $'
c1_err_04		DC.B	'FFFF'
		DC.B	$0D
		dc.b	'PCount = $'
c1_pcnt_04	dc.b	'FFFF'
		dc.b	$0D
		DC.B	'Pathname ptr = $'
c1_path1_04	DC.B	'00FFFFFF'
		DC.B	$0D
		DC.B	'Pathname ptr = $'
c1_path2_04	DC.B	'00FFFFFF'
		DC.B	$0D
		DC.B	$0D
c1_pcnt_04_01	equ     *-c1_ascii_04


;===========================================================================

set_file_info	; 
	DC.W	ascii_05	;ascii data to write.
	DC.W	size_05	;length to write

	DC.W	word
	DC.W	err_05	;error returned
	DC.W	pointer	;type = pointer
	DC.W	name_05	;address of pathname pointer
	DC.W	word	;type = word
	DC.W	access_05
	DC.W	word
	DC.W	file_type_05
	DC.W	lword
	DC.W	aux_type_05
	DC.W	word
	DC.W	null_05
	DC.W	word
	DC.W	createA_05
	DC.W	word
	DC.W	createB_05
	DC.W	word
	DC.W	modA_05
	DC.W	word
	DC.W	modB_05
	DC.W	$FFFF	;end of table

ascii_05	; 
	DC.B	'Call = SET FILE INFO'
	DC.B	$0D
	DC.B	'Error Code = $'
err_05	DC.B	'FFFF'
	DC.B	$0D
	DC.B	'Pathname ptr = $'
name_05	DC.B	'00FFFFFF'
	DC.B	$0D
	DC.B	'Access = $'
access_05	DC.B	'FFFF'
	DC.B	$0D
	DC.B	'File Type = $'
file_type_05	DC.B	'FFFF'
	DC.B	$0D
	DC.B	'Aux Type = $'
aux_type_05	DC.B	'FFFFFFFF'
	DC.B	$0D
	DC.B	'Storage = $'
null_05	DC.B	'FFFF'
	DC.B	$0D
	DC.B	'Create Date = $'
createA_05	DC.B	'FFFF'
	DC.B	$0D
	DC.B	'Create Time = $'
createB_05	DC.B	'FFFF'
	DC.B	$0D
	DC.B	'Mod. Date = $'
ModA_05	DC.B	'FFFF'
	DC.B	$0D
	DC.B	'Mod. Time = $'
ModB_05	DC.B	'FFFF'
	DC.B	$0D
	DC.B	$0D
size_05         equ     *-ascii_05


;===========================================================================

c1_set_file_info	; 
		DC.W	c1_ascii_05	;ascii data to write.
		DC.W	c1_set_file_pcnt

		DC.W	word
		DC.W	c1_err_05	;error returned
		dc.w	word
		dc.w	c1_pcnt_05
		DC.W	pointer	;type = pointer
		DC.W	c1_name_05	;address of pathname pointer
		DC.W	word	;type = word
		DC.W	c1_access_05
		DC.W	word
		DC.W	c1_file_type_05
		DC.W	lword
		DC.W	c1_aux_type_05
		DC.W	word
		DC.W	c1_null_05
		DC.W	eight
		DC.W	c1_create_05
		DC.W	eight
		DC.W	c1_mod_05
		DC.W	lword
		DC.W	c1_opt_05
		dc.w	lword
		dc.w	c1_null1_05
		dc.w	lword
		dc.w	c1_null2_05
		dc.w	lword
		dc.w	c1_null3_05
		dc.w	lword
		dc.w	c1_null4_05
		DC.W	$FFFF	;end of table

c1_set_file_pcnt	dc.w	$000C
		dc.w	$0000			;no pcount of 1 allowed
		dc.w	c1_pcnt_05_02
		dc.w	c1_pcnt_05_03
		dc.w	c1_pcnt_05_04
		dc.w	c1_pcnt_05_05
		dc.w	c1_pcnt_05_06
		dc.w	c1_pcnt_05_07
		dc.w	c1_pcnt_05_08
		dc.w	c1_pcnt_05_09
		dc.w	c1_pcnt_05_0A
		dc.w	c1_pcnt_05_0B
		dc.w	c1_pcnt_05_0C
		
c1_ascii_05	; 
		DC.B	'Call = SET FILE INFO'
		DC.B	$0D
		DC.B	'Error Code = $'
c1_err_05	DC.B	'FFFF'
		DC.B	$0D
		dc.b	'PCount = $'
c1_pcnt_05	dc.b	'FFFF'
		dc.b	$0D
		DC.B	'Pathname ptr = $'
c1_name_05	DC.B	'00FFFFFF'
		DC.B	$0D
		DC.B	'Access = $'
c1_access_05	DC.B	'FFFF'
		DC.B	$0D
c1_pcnt_05_02	equ     *-c1_ascii_05
		DC.B	'File Type = $'
c1_file_type_05	DC.B	'FFFF'
		DC.B	$0D
c1_pcnt_05_03	equ     *-c1_ascii_05
		DC.B	'Aux Type = $'
c1_aux_type_05	DC.B	'FFFFFFFF'
		DC.B	$0D
c1_pcnt_05_04	equ     *-c1_ascii_05
		DC.B	'Storage = $'
c1_null_05	DC.B	'FFFF'
		DC.B	$0D
c1_pcnt_05_05	equ     *-c1_ascii_05
		DC.B	'Create Date = $'
c1_create_05	DC.B	'FFFFFFFFFFFFFFFF'
		DC.B	$0D
c1_pcnt_05_06	equ     *-c1_ascii_05
		DC.B	'Mod. Date = $'
c1_Mod_05	DC.B	'FFFFFFFFFFFFFFFF'
		DC.B	$0D
c1_pcnt_05_07	equ     *-c1_ascii_05
		dc.b	'Option List = $'
c1_opt_05	dc.b	'FFFFFFFF'
		dc.b	$0D
c1_pcnt_05_08	equ	*-c1_ascii_05
		dc.b	'Null Field = $'
c1_null1_05	dc.b	'FFFFFFFF'
		dc.b	$0d
c1_pcnt_05_09	equ	*-c1_ascii_05
		dc.b	'Null Field = $'
c1_null2_05	dc.b	'FFFFFFFF'
		dc.b	$0d
c1_pcnt_05_0A	equ	*-c1_ascii_05
		dc.b	'Null Field = $'
c1_null3_05	dc.b	'FFFFFFFF'
		dc.b	$0d
c1_pcnt_05_0B	equ	*-c1_ascii_05
		dc.b	'Null Field = $'
c1_null4_05	dc.b	'FFFFFFFF'
		dc.b	$0d
c1_pcnt_05_0C	equ	*-c1_ascii_05
		

;===========================================================================

get_file_info	; 
	DC.W	ascii_06	;ascii data to write.
	DC.W	size_06	;length to write

	DC.W	word
	DC.W	err_06	;error returned
	DC.W	pointer	;type = pointer
	DC.W	name_06	;address of pathname pointer
	DC.W	word	;type = word
	DC.W	access_06
	DC.W	word
	DC.W	file_type_06
	DC.W	lword
	DC.W	aux_type_06
	DC.W	word
	DC.W	storage_06
	DC.W	word
	DC.W	createA_06
	DC.W	word
	DC.W	createB_06
	DC.W	word
	DC.W	modA_06
	DC.W	word
	DC.W	modB_06
	DC.W	lword
	DC.W	blocks_06
	DC.W	$FFFF	;end of table

ascii_06	; 
	DC.B	'Call = GET FILE INFO'
	DC.B	$0D
	DC.B	'Error Code = $'
err_06	DC.B	'FFFF'
	DC.B	$0D
	DC.B	'Pathname ptr = $'
name_06	DC.B	'00FFFFFF'
	DC.B	$0D
	DC.B	'Access = $'
access_06	DC.B	'FFFF'
	DC.B	$0D
	DC.B	'File Type = $'
file_type_06	DC.B	'FFFF'
	DC.B	$0D
	DC.B	'Aux Type = $'
aux_type_06	DC.B	'FFFFFFFF'
	DC.B	$0D
	DC.B	'Storage = $'
storage_06	DC.B	'FFFF'
	DC.B	$0D
	DC.B	'Create Date = $'
createA_06	DC.B	'FFFF'
	DC.B	$0D
	DC.B	'Create Time = $'
createB_06	DC.B	'FFFF'
	DC.B	$0D
	DC.B	'Mod. Date = $'
modA_06	DC.B	'FFFF'
	DC.B	$0D
	DC.B	'Mod. Time = $'
modB_06	DC.B	'FFFF'
	DC.B	$0D
	DC.B	'Blocks used = $'
blocks_06	DC.B	'FFFFFFFF'
	DC.B	$0D
	DC.B	$0D
size_06         equ     *-ascii_06

;===========================================================================

c1_get_file_info	; 
		DC.W	c1_ascii_06	;ascii data to write.
		DC.W	c1_get_file_pcnt

		DC.W	word
		DC.W	c1_err_06	;error returned
		dc.w	word
		dc.w	c1_pcnt_06
		DC.W	pointer		;type = pointer
		DC.W	c1_name_06	;address of pathname pointer
		DC.W	word		;type = word
		DC.W	c1_access_06
		DC.W	word
		DC.W	c1_file_type_06
		DC.W	lword
		DC.W	c1_aux_type_06
		DC.W	word
		DC.W	c1_storage_06
		DC.W	eight
		DC.W	c1_create_06
		DC.W	eight
		DC.W	c1_mod_06
		DC.W	lword
		DC.W	c1_opt_06
		dc.w	lword
		dc.w	c1_data_eof_06
		dc.w	lword
		dc.w	c1_data_used_06
		dc.w	lword
		dc.w	c1_res_eof_06
		dc.w	lword
		dc.w	c1_res_used_06
		DC.W	$FFFF	;end of table

c1_get_file_pcnt	dc.w	$000C
		dc.w	$0000			;no pcount of 1 allowed
		dc.w	c1_pcnt_06_02
		dc.w	c1_pcnt_06_03
		dc.w	c1_pcnt_06_04
		dc.w	c1_pcnt_06_05
		dc.w	c1_pcnt_06_06
		dc.w	c1_pcnt_06_07
		dc.w	c1_pcnt_06_08
		dc.w	c1_pcnt_06_09
		dc.w	c1_pcnt_06_0A
		dc.w	c1_pcnt_06_0B
		dc.w	c1_pcnt_06_0C
		
c1_ascii_06	; 
		DC.B	'Call = GET FILE INFO'
		DC.B	$0D
		DC.B	'Error Code = $'
c1_err_06	DC.B	'FFFF'
		DC.B	$0D
		dc.b	'PCount = $'
c1_pcnt_06	dc.b	'FFFF'
		dc.b	$0D
		DC.B	'Pathname ptr = $'
c1_name_06	DC.B	'00FFFFFF'
		DC.B	$0D
		DC.B	'Access = $'
c1_access_06	DC.B	'FFFF'
		DC.B	$0D
c1_pcnt_06_02	equ     *-c1_ascii_06
		DC.B	'File Type = $'
c1_file_type_06	DC.B	'FFFF'
		DC.B	$0D
c1_pcnt_06_03	equ     *-c1_ascii_06
		DC.B	'Aux Type = $'
c1_aux_type_06	DC.B	'FFFFFFFF'
		DC.B	$0D
c1_pcnt_06_04	equ     *-c1_ascii_06
		DC.B	'Storage = $'
c1_storage_06	DC.B	'FFFF'
		DC.B	$0D
c1_pcnt_06_05	equ     *-c1_ascii_06
		DC.B	'Create Date = $'
c1_create_06	DC.B	'FFFFFFFFFFFFFFFF'
		DC.B	$0D
c1_pcnt_06_06	equ     *-c1_ascii_06
		DC.B	'Mod. Date = $'
c1_Mod_06	DC.B	'FFFFFFFFFFFFFFFF'
		DC.B	$0D
c1_pcnt_06_07	equ     *-c1_ascii_06
		dc.b	'Option List = $'
c1_opt_06	dc.b	'FFFFFFFF'
		dc.b	$0D
c1_pcnt_06_08	equ	*-c1_ascii_06
		dc.b	'Data Fork EOF = $'
c1_data_eof_06	dc.b	'FFFFFFFF'
		dc.b	$0d
c1_pcnt_06_09	equ	*-c1_ascii_06
		dc.b	'Blocks Used = $'
c1_data_used_06	dc.b	'FFFFFFFF'
		dc.b	$0d
c1_pcnt_06_0A	equ	*-c1_ascii_06
		dc.b	'Resource Fork EOF = $'
c1_res_eof_06	dc.b	'FFFFFFFF'
		dc.b	$0d
c1_pcnt_06_0B	equ	*-c1_ascii_06
		dc.b	'Blocks Used = $'
c1_res_used_06	dc.b	'FFFFFFFF'
		dc.b	$0d
c1_pcnt_06_0C	equ	*-c1_ascii_06

;===========================================================================

volume	; 
	DC.W	ascii_08	;ascii data to write.
	DC.W	size_08	;length to write

	DC.W	word
	DC.W	err_08	;error returned
	DC.W	pointer	;type = pointer
	DC.W	name_08	;address of pathname pointer
	DC.W	pointer	;type = pointer
	DC.W	vol_name_08	;address of pathname pointer
	DC.W	lword
	DC.W	blocks_08
	DC.W	lword
	DC.W	free_blocks_08
	DC.W	word
	DC.W	file_sys_08
	DC.W	$FFFF	;end of table

ascii_08	; 
	DC.B	'Call = VOLUME'
	DC.B	$0D
	DC.B	'Error Code = $'
err_08	DC.B	'FFFF'
	DC.B	$0D
	DC.B	'Pathname ptr = $'
name_08	DC.B	'00FFFFFF'
	DC.B	$0D
	DC.B	'Volume name ptr = $'
vol_name_08	DC.B	'00FFFFFF'
	DC.B	$0D
	DC.B	'Total Blocks = $'
blocks_08	DC.B	'FFFFFFFF'
	DC.B	$0D
	DC.B	'Free Blocks = $'
Free_blocks_08	DC.B	'FFFFFFFF'
	DC.B	$0D
	DC.B	'File Sys ID = $'
file_sys_08	DC.B	'FFFF'
	DC.B	$0D
	DC.B	$0D
size_08         equ     *-ascii_08



;===========================================================================

c1_volume 
		DC.W	c1_ascii_08	;ascii data to write.
		DC.W	c1_volume_pcnt

		DC.W	word
		DC.W	c1_err_08	;error returned
		dc.w	word
		dc.w	c1_pcnt_08
		DC.W	pointer		;type = pointer
		DC.W	c1_name_08	;address of pathname pointer
		DC.W	pointer		;type = pointer
		DC.W	c1_vol_name_08	;address of pathname pointer
		DC.W	lword
		DC.W	c1_blocks_08
		DC.W	lword
		DC.W	c1_free_blocks_08
		DC.W	word
		DC.W	c1_file_sys_08
		dc.w	word
		dc.w	c1_blk_size_08
		DC.W	$FFFF		;end of table

c1_volume_pcnt	dc.w	$0006
		dc.w	$0000
		dc.w	c1_pcnt_08_02	;minimum PCount
		dc.w	c1_pcnt_08_03
		dc.w	c1_pcnt_08_04
		dc.w	c1_pcnt_08_05
		dc.w	c1_pcnt_08_06
		
c1_ascii_08
		DC.B	'Call = VOLUME'
		DC.B	$0D
		DC.B	'Error Code = $'
c1_err_08	DC.B	'FFFF'
		DC.B	$0D
		dc.b	'PCount = $'
c1_pcnt_08	dc.b	'FFFF'
		dc.b	$0D
		DC.B	'Pathname ptr = $'
c1_name_08	DC.B	'00FFFFFF'
		DC.B	$0D
		DC.B	'Volume name ptr = $'
c1_vol_name_08	DC.B	'00FFFFFF'
		DC.B	$0D
c1_pcnt_08_02	equ	*-c1_ascii_08
		DC.B	'Total Blocks = $'
c1_blocks_08	DC.B	'FFFFFFFF'
		DC.B	$0D
c1_pcnt_08_03	equ	*-c1_ascii_08
		DC.B	'Free Blocks = $'
c1_Free_blocks_08	DC.B	'FFFFFFFF'
		DC.B	$0D
c1_pcnt_08_04	equ	*-c1_ascii_08
		DC.B	'File Sys ID = $'
c1_file_sys_08	DC.B	'FFFF'
		DC.B	$0D
c1_pcnt_08_05	equ	*-c1_ascii_08
		dc.b	'Block Size = $'
c1_blk_size_08	dc.b	'FFFF'
		DC.B	$0D
c1_pcnt_08_06	equ	*-c1_ascii_08

;===========================================================================

clear_backup	; 
	DC.W	ascii_0B	;pointer to ascii data
	DC.W	size_0B

	DC.W	word
	DC.W	err_0b	;error returned
	DC.W	pointer	;type = pointer
	DC.W	path_0B
	DC.W	$FFFF

ascii_0B	; 
	DC.B	'Call = CLEAR BACKUP BIT'
	DC.B	$0D
	DC.B	'Error Code = $'
err_0b	DC.B	'FFFF'
	DC.B	$0D
	DC.B	'Pathname ptr = $'
path_0B	DC.B	'00FFFFFF'
	DC.B	$0D
	DC.B	$0D
size_0B         equ     *-ascii_0B


;===========================================================================

c1_clear_backup	; 
		DC.W	c1_ascii_0B	;pointer to ascii data
		DC.W	c1_clear_pcnt

		DC.W	word
		DC.W	c1_err_0b	;error returned
		dc.w	word
		dc.w	c1_pcnt_0b
		DC.W	pointer		;type = pointer
		DC.W	c1_path_0B
		DC.W	$FFFF
		
c1_clear_pcnt	dc.w	$0001
		dc.w	c1_pcnt_0b_01

c1_ascii_0B 
		DC.B	'Call = CLEAR BACKUP BIT'
		DC.B	$0D
		DC.B	'Error Code = $'
c1_err_0b	DC.B	'FFFF'
		DC.B	$0D
		dc.b	'PCount = $'
c1_pcnt_0b	dc.b	'FFFF'
		dc.b	$0D
		DC.B	'Pathname ptr = $'
c1_path_0B	DC.B	'00FFFFFF'
		DC.B	$0D
c1_pcnt_0b_01	equ	*-c1_ascii_0B



;===========================================================================

open
		DC.W	ascii_10	;pointer to ascii data
		DC.W	size_10

		DC.W	word
		DC.W	err_10		;error returned
		DC.W	word
		DC.W	ref_10
		DC.W	pointer		;type = pointer
		DC.W	path_10
		DC.W	lword
		DC.W	reserved_10
		DC.W	$FFFF

ascii_10
		DC.B	'Call = OPEN'
		DC.B	$0D
		DC.B	'Error Code = $'
err_10		DC.B	'FFFF'
		DC.B	$0D
		DC.B	'Reference number = $'
ref_10		DC.B	'FFFF'
		DC.B	$0D
		DC.B	'Pathname ptr = $'
path_10		DC.B	'00FFFFFF'
		DC.B	$0D
		DC.B	'RESERVED = $'
reserved_10	DC.B	'FFFFFFFF'
		DC.B	$0D
		DC.B	$0D
size_10         equ     *-ascii_10


;===========================================================================

c1_open 
		DC.W	c1_ascii_10	;ascii data to write.
		DC.W	c1_open_pcnt

		DC.W	word
		DC.W	c1_err_10	;error returned

		dc.w	word
		dc.w	c1_pcnt_10
		dc.w	word
		dc.w	c1_ref_num_10	;open ref num
		DC.W	pointer		;type = pointer
		DC.W	c1_name_10	;address of pathname pointer
		dc.w	word
		dc.w	c1_req_acc_10
		dc.w	word
		dc.w	c1_res_num_10
		
		DC.W	word		;type = word
		DC.W	c1_access_10
		DC.W	word
		DC.W	c1_file_type_10
		DC.W	lword
		DC.W	c1_aux_type_10
		DC.W	word
		DC.W	c1_storage_10
		DC.W	eight
		DC.W	c1_create_10
		DC.W	eight
		DC.W	c1_mod_10
		DC.W	lword
		DC.W	c1_opt_10
		dc.w	lword
		dc.w	c1_data_eof_10
		dc.w	lword
		dc.w	c1_data_used_10
		dc.w	lword
		dc.w	c1_res_eof_10
		dc.w	lword
		dc.w	c1_res_used_10
		DC.W	$FFFF	;end of table

c1_open_pcnt	dc.w	$000F
		dc.w	$0000			;no pcount of 1 allowed
		dc.w	c1_pcnt_10_1
		dc.w	c1_pcnt_10_2
		dc.w	c1_pcnt_10_3
		dc.w	c1_pcnt_10_02
		dc.w	c1_pcnt_10_03
		dc.w	c1_pcnt_10_04
		dc.w	c1_pcnt_10_05
		dc.w	c1_pcnt_10_06
		dc.w	c1_pcnt_10_07
		dc.w	c1_pcnt_10_08
		dc.w	c1_pcnt_10_09
		dc.w	c1_pcnt_10_0A
		dc.w	c1_pcnt_10_0B
		dc.w	c1_pcnt_10_0C
		
c1_ascii_10	; 
		DC.B	'Call = OPEN'
		DC.B	$0D
		DC.B	'Error Code = $'
c1_err_10	DC.B	'FFFF'
		DC.B	$0D
		dc.b	'PCount = $'
c1_pcnt_10	dc.b	'FFFF'
		dc.b	$0D
		dc.b	'Reference number = $'
c1_ref_num_10	dc.b	'FFFF'
		dc.b	$0D

		DC.B	'Pathname ptr = $'
c1_name_10	DC.B	'00FFFFFF'
		DC.B	$0D
c1_pcnt_10_1	equ	*-c1_ascii_10

		dc.b	'Requested access = $'
c1_req_acc_10	dc.b	'FFFF'
		dc.b	$0D
c1_pcnt_10_2	equ	*-c1_ascii_10

		dc.b	'Data/Resource flag = $'
c1_res_num_10	dc.b	'FFFF'
		dc.b	$0D
c1_pcnt_10_3	equ	*-c1_ascii_10

		DC.B	'Access = $'
c1_access_10	DC.B	'FFFF'
		DC.B	$0D
c1_pcnt_10_02	equ     *-c1_ascii_10
		DC.B	'File Type = $'
c1_file_type_10	DC.B	'FFFF'
		DC.B	$0D
c1_pcnt_10_03	equ     *-c1_ascii_10
		DC.B	'Aux Type = $'
c1_aux_type_10	DC.B	'FFFFFFFF'
		DC.B	$0D
c1_pcnt_10_04	equ     *-c1_ascii_10
		DC.B	'Storage = $'
c1_storage_10	DC.B	'FFFF'
		DC.B	$0D
c1_pcnt_10_05	equ     *-c1_ascii_10
		DC.B	'Create Date = $'
c1_create_10	DC.B	'FFFFFFFFFFFFFFFF'
		DC.B	$0D
c1_pcnt_10_06	equ     *-c1_ascii_10
		DC.B	'Mod. Date = $'
c1_Mod_10	DC.B	'FFFFFFFFFFFFFFFF'
		DC.B	$0D
c1_pcnt_10_07	equ     *-c1_ascii_10
		dc.b	'Option List = $'
c1_opt_10	dc.b	'FFFFFFFF'
		dc.b	$0D
c1_pcnt_10_08	equ	*-c1_ascii_10
		dc.b	'Data Fork EOF = $'
c1_data_eof_10	dc.b	'FFFFFFFF'
		dc.b	$0d
c1_pcnt_10_09	equ	*-c1_ascii_10
		dc.b	'Blocks Used = $'
c1_data_used_10	dc.b	'FFFFFFFF'
		dc.b	$0d
c1_pcnt_10_0A	equ	*-c1_ascii_10
		dc.b	'Resource Fork EOF = $'
c1_res_eof_10	dc.b	'FFFFFFFF'
		dc.b	$0d
c1_pcnt_10_0B	equ	*-c1_ascii_10
		dc.b	'Blocks Used = $'
c1_res_used_10	dc.b	'FFFFFFFF'
		dc.b	$0d
c1_pcnt_10_0C	equ	*-c1_ascii_10


;===========================================================================

read	; 
	DC.W	ascii_12	;ascii data to write.
	DC.W	size_12	;length to write

	DC.W	word
	DC.W	err_12	;error returned
	DC.W	word
	DC.W	ref_12
	DC.W	pointer	;type = pointer
	DC.W	data_buf_12
	DC.W	lword
	DC.W	req_12
	DC.W	lword
	DC.W	tran_12
	DC.W	$FFFF	;end of table

ascii_12	; 
	DC.B	'Call = READ'
	DC.B	$0D
	DC.B	'Error Code = $'
err_12	DC.B	'FFFF'
	DC.B	$0D
	DC.B	'Reference Number = $'
ref_12	DC.B	'FFFF'
	DC.B	$0D
	DC.B	'Data Buffer ptr = $'
data_buf_12	DC.B	'00FFFFFF'
	DC.B	$0D
	DC.B	'Request Count = $'
req_12	DC.B	'FFFFFFFF'
	DC.B	$0D
	DC.B	'Transfer Count = $'
tran_12	DC.B	'FFFFFFFF'
	DC.B	$0D
	DC.B	$0D
size_12         equ     *-ascii_12

;===========================================================================

c1_read
		DC.W	c1_ascii_12		;ascii data to write.
		DC.W	c1_read_pcnt		;length to write

		DC.W	word
		DC.W	c1_err_12			;error returned
		dc.w	word
		dc.w	c1_pcnt_12
		DC.W	word
		DC.W	c1_ref_12
		DC.W	pointer			;type = pointer
		DC.W	c1_data_buf_12
		DC.W	lword
		DC.W	c1_req_12
		DC.W	lword
		DC.W	c1_tran_12
		dc.w	word
		dc.w	c1_cache_12
		DC.W	$FFFF			;end of table
	
c1_read_pcnt	dc.w	$0005
		dc.w	0000			;no PCount of one
		dc.w	0000
		dc.w	0000
		dc.w	c1_pcnt_12_04
		dc.w	c1_pcnt_12_05
		

c1_ascii_12
		DC.B	'Call = READ'
		DC.B	$0D
		DC.B	'Error Code = $'
c1_err_12	DC.B	'FFFF'
		DC.B	$0D
		dc.b	'PCount = $'
c1_pcnt_12	dc.b	'FFFF'
		dc.b	$0D
		DC.B	'Reference Number = $'
c1_ref_12	DC.B	'FFFF'
		DC.B	$0D
		DC.B	'Data Buffer ptr = $'
c1_data_buf_12	DC.B	'00FFFFFF'
		DC.B	$0D
		DC.B	'Request Count = $'
c1_req_12	DC.B	'FFFFFFFF'
		DC.B	$0D
		DC.B	'Transfer Count = $'
c1_tran_12	DC.B	'FFFFFFFF'
		DC.B	$0D
c1_pcnt_12_04	equ     *-c1_ascii_12
		dc.b	'Cache Priority = $'
c1_cache_12	dc.b	'FFFF'
		dc.b	$0D
c1_pcnt_12_05	equ     *-c1_ascii_12


;===========================================================================
write	; 
	DC.W	ascii_13	;ascii data to write.
	DC.W	size_13	;length to write

	DC.W	word
	DC.W	err_13	;error returned
	DC.W	word
	DC.W	ref_13
	DC.W	pointer	;type = pointer
	DC.W	data_buf_13
	DC.W	lword
	DC.W	req_13
	DC.W	lword
	DC.W	tran_13
	DC.W	$FFFF	;end of table

ascii_13	; 
	DC.B	'Call = WRITE'
	DC.B	$0D
	DC.B	'Error Code = $'
err_13	DC.B	'FFFF'
	DC.B	$0D
	DC.B	'Reference Number = $'
ref_13	DC.B	'FFFF'
	DC.B	$0D
	DC.B	'Data Buffer ptr = $'
data_buf_13	DC.B	'00FFFFFF'
	DC.B	$0D
	DC.B	'Request Count = $'
req_13	DC.B	'FFFFFFFF'
	DC.B	$0D
	DC.B	'Transfer Count = $'
tran_13	DC.B	'FFFFFFFF'
	DC.B	$0D
	DC.B	$0D
size_13         equ     *-ascii_13

;===========================================================================
c1_write
		DC.W	c1_ascii_13	;ascii data to write.
		DC.W	c1_write_pcnt	;length to write

		DC.W	word
		DC.W	c1_err_13	;error returned
		dc.w	word
		dc.w	c1_pcnt_13
		DC.W	word
		DC.W	c1_ref_13
		DC.W	pointer		;type = pointer
		DC.W	c1_data_buf_13
		DC.W	lword
		DC.W	c1_req_13
		DC.W	lword
		DC.W	c1_tran_13
		dc.w	word
		dc.w	c1_cache_13
		DC.W	$FFFF		;end of table
		
c1_write_pcnt	dc.w	$0005
		dc.w	0000
		dc.w	0000
		dc.w	0000
		dc.w	c1_pcnt_13_04
		dc.w	c1_pcnt_13_05
		

c1_ascii_13
		DC.B	'Call = WRITE'
		DC.B	$0D
		DC.B	'Error Code = $'
c1_err_13	DC.B	'FFFF'
		DC.B	$0D
		dc.b	'PCount = $'
c1_pcnt_13	dc.b	'FFFF'
		dc.b	$0d
		DC.B	'Reference Number = $'
c1_ref_13	DC.B	'FFFF'
		DC.B	$0D
		DC.B	'Data Buffer ptr = $'
c1_data_buf_13	DC.B	'00FFFFFF'
		DC.B	$0D
		DC.B	'Request Count = $'
c1_req_13	DC.B	'FFFFFFFF'
		DC.B	$0D
		DC.B	'Transfer Count = $'
c1_tran_13	DC.B	'FFFFFFFF'
		DC.B	$0D
c1_pcnt_13_04	equ	*-c1_ascii_13
		dc.b	'Cache Priority = $'
c1_cache_13	dc.b	'FFFF'
		dc.b	$0D
c1_pcnt_13_05	equ     *-c1_ascii_13


;===========================================================================
close	; 
	DC.W	ascii_14	;ascii data to write.
	DC.W	size_14	;length to write

	DC.W	word
	DC.W	err_14	;error returned
	DC.W	word
	DC.W	ref_14
	DC.W	$FFFF	;end of table

ascii_14	; 
	DC.B	'Call = CLOSE'
	DC.B	$0D
	DC.B	'Error Code = $'
err_14	DC.B	'FFFF'
	DC.B	$0D
	DC.B	'Reference Number = $'
ref_14	DC.B	'00FF'
	DC.B	$0D
	DC.B	$0D
size_14         equ     *-ascii_14


;===========================================================================
c1_close	; 
		DC.W	c1_ascii_14	;ascii data to write.
		DC.W	c1_pcnt_close

		DC.W	word
		DC.W	c1_err_14	;error returned
		dc.w	word
		dc.w	c1_pcnt_14
		DC.W	word
		DC.W	c1_ref_14
		DC.W	$FFFF	;end of table
		
c1_pcnt_close	dc.w	$0001
		dc.w	c1_pcnt_14_01

c1_ascii_14	; 
		DC.B	'Call = CLOSE'
		DC.B	$0D
		DC.B	'Error Code = $'
c1_err_14	DC.B	'FFFF'
		DC.B	$0D
		dc.b	'PCount = $'
c1_pcnt_14	dc.b	'FFFF'
		dc.b	$0D
		DC.B	'Reference Number = $'
c1_ref_14	DC.B	'00FF'
		DC.B	$0D
c1_pcnt_14_01	equ     *-c1_ascii_14



;===========================================================================

flush	; 
	DC.W	ascii_15	;ascii data to write.
	DC.W	size_15	;length to write

	DC.W	word
	DC.W	err_15	;error returned
	DC.W	word
	DC.W	ref_15
	DC.W	$FFFF	;end of table

ascii_15	; 
	DC.B	'Call = FLUSH'
	DC.B	$0D
	DC.B	'Error Code = $'
err_15	DC.B	'FFFF'
	DC.B	$0D
	DC.B	'Reference Number = $'
ref_15	DC.B	'00FF'
	DC.B	$0D
	DC.B	$0D
size_15         equ     *-ascii_15


;===========================================================================

c1_flush	; 
		DC.W	c1_ascii_15	;ascii data to write.
		DC.W	c1_pcnt_flush

		DC.W	word
		DC.W	c1_err_15	;error returned
		dc.w	word
		dc.w	c1_pcnt_15
		DC.W	word
		DC.W	c1_ref_15
		DC.W	$FFFF	;end of table

c1_pcnt_flush	dc.w	$0001
		dc.w	c1_pcnt_15_01
		
c1_ascii_15	; 
		DC.B	'Call = FLUSH'
		DC.B	$0D
		DC.B	'Error Code = $'
c1_err_15	DC.B	'FFFF'
		DC.B	$0D
		dc.b	'PCount = $'
c1_pcnt_15	dc.b	'FFFF'
		dc.b	$0D
		DC.B	'Reference Number = $'
c1_ref_15	DC.B	'00FF'
		DC.B	$0D
c1_pcnt_15_01	equ     *-c1_ascii_15

;===========================================================================

set_mark
	DC.W	ascii_16	;ascii data to write.
	DC.W	size_16	;length to write

	DC.W	word
	DC.W	err_16	;error returned
	DC.W	word
	DC.W	ref_16
	DC.W	lword
	DC.W	pos_16
	DC.W	$FFFF	;end of table

ascii_16	; 
	DC.B	'Call = SET MARK'
	DC.B	$0D
	DC.B	'Error Code = $'
err_16	DC.B	'FFFF'
	DC.B	$0D
	DC.B	'Reference Number = $'
ref_16	DC.B	'FFFF'
	DC.B	$0D
	DC.B	'Position = $'
pos_16	DC.B	'FFFFFFFF'
	DC.B	$0D
	DC.B	$0D
size_16         equ     *-ascii_16


;===========================================================================

c1_set_mark
		DC.W	c1_ascii_16	;ascii data to write.
		DC.W	c1_pcnt_set_mark

		DC.W	word
		DC.W	c1_err_16	;error returned
		dc.w	word
		dc.w	c1_pcnt_16
		DC.W	word
		DC.W	c1_ref_16
		dc.w	word
		dc.w	c1_base_16
		DC.W	lword
		DC.W	c1_pos_16
		DC.W	$FFFF	;end of table

c1_pcnt_set_mark dc.w	$0003
		dc.w	0000
		dc.w	0000
		dc.w	c1_pcnt_16_03
		

c1_ascii_16	; 
		DC.B	'Call = SET MARK'
		DC.B	$0D
		DC.B	'Error Code = $'
c1_err_16	DC.B	'FFFF'
		DC.B	$0D
		DC.B	'Reference Number = $'
c1_ref_16	DC.B	'FFFF'
		DC.B	$0D
		dc.b	'PCount = $'
c1_pcnt_16	dc.b	'FFFF'
		dc.b	$0D
		dc.b	'Base = $'
c1_base_16	dc.b	'FFFF'
		dc.b	$0D
		DC.B	'Displacement = $'
c1_pos_16	DC.B	'FFFFFFFF'
		DC.B	$0D
c1_pcnt_16_03	equ     *-c1_ascii_16

;===========================================================================

get_mark	; 
	DC.W	ascii_17	;ascii data to write.
	DC.W	size_17	;length to write

	DC.W	word
	DC.W	err_17	;error returned
	DC.W	word
	DC.W	ref_17
	DC.W	lword
	DC.W	pos_17
	DC.W	$FFFF	;end of table

ascii_17	; 
	DC.B	'Call = GET_MARK'
	DC.B	$0D
	DC.B	'Error Code = $'
err_17	DC.B	'FFFF'
	DC.B	$0D
	DC.B	'Reference Number = $'
ref_17	DC.B	'FFFF'
	DC.B	$0D
	DC.B	'Position = $'
pos_17	DC.B	'FFFFFFFF'
	DC.B	$0D
	DC.B	$0D
size_17         equ     *-ascii_17


;===========================================================================

c1_get_mark
		DC.W	c1_ascii_17	;ascii data to write.
		DC.W	c1_pcnt_get_mark

		DC.W	word
		DC.W	c1_err_17	;error returned
		dc.w	word
		dc.w	c1_pcnt_17
		DC.W	word
		DC.W	c1_ref_17
		DC.W	lword
		DC.W	c1_pos_17
		DC.W	$FFFF	;end of table

c1_pcnt_get_mark dc.w	$0002
		dc.w	0000
		dc.w	c1_pcnt_17_02
		
		
c1_ascii_17	; 
		DC.B	'Call = GET_MARK'
		DC.B	$0D
		DC.B	'Error Code = $'
c1_err_17	DC.B	'FFFF'
		DC.B	$0D
		dc.b	'PCount = $'
c1_pcnt_17	dc.b	'FFFF'
		dc.b	$0D
		DC.B	'Reference Number = $'
c1_ref_17	DC.B	'FFFF'
		DC.B	$0D
		DC.B	'Position = $'
c1_pos_17	DC.B	'FFFFFFFF'
		DC.B	$0D
c1_pcnt_17_02	equ     *-c1_ascii_17


;===========================================================================
set_EOF	; 
	DC.W	ascii_18	;ascii data to write.
	DC.W	size_18	;length to write

	DC.W	word
	DC.W	err_18	;error returned
	DC.W	word
	DC.W	ref_18
	DC.W	lword
	DC.W	pos_18
	DC.W	$FFFF	;end of table

ascii_18	; 
	DC.B	'Call = SET EOF'
	DC.B	$0D
	DC.B	'Error Code = $'
err_18	DC.B	'FFFF'
	DC.B	$0D
	DC.B	'Reference Number = $'
ref_18	DC.B	'FFFF'
	DC.B	$0D
	DC.B	'Position = $'
pos_18	DC.B	'FFFFFFFF'
	DC.B	$0D
	DC.B	$0D
size_18         equ     *-ascii_18


;===========================================================================
c1_set_EOF 
		DC.W	c1_ascii_18	;ascii data to write.
		DC.W	c1_pcnt_set_eof
		
		DC.W	word
		DC.W	c1_err_18	;error returned
		dc.w	word
		dc.w	c1_pcnt_18
		DC.W	word
		DC.W	c1_ref_18
		dc.w	word
		dc.w	c1_base_18
		DC.W	lword
		DC.W	c1_pos_18
		DC.W	$FFFF	;end of table

c1_pcnt_set_eof	dc.w	0003
		dc.w	0000
		dc.w	0000
		dc.w	c1_pcnt_18_03
		
c1_ascii_18	; 
		DC.B	'Call = SET EOF'
		DC.B	$0D
		DC.B	'Error Code = $'
c1_err_18	DC.B	'FFFF'
		DC.B	$0D
		dc.b	'PCount = $'
c1_pcnt_18	dc.b	'FFFF'
		dc.b	$0D
		DC.B	'Reference Number = $'
c1_ref_18	DC.B	'FFFF'
		DC.B	$0D
		dc.b	'Base = $'
c1_base_18	dc.b	'FFFF'
		dc.b	$0D
		DC.B	'Displacemet = $'
c1_pos_18	DC.B	'FFFFFFFF'
		DC.B	$0D
c1_pcnt_18_03	equ     *-c1_ascii_18


;===========================================================================
get_EOF	; 
	DC.W	ascii_19	;ascii data to write.
	DC.W	size_19	;length to write

	DC.W	word
	DC.W	err_19	;error returned
	DC.W	word
	DC.W	ref_19
	DC.W	lword
	DC.W	pos_19
	DC.W	$FFFF	;end of table

ascii_19	; 
	DC.B	'Call = GET EOF'
	DC.B	$0D
	DC.B	'Error Code = $'
err_19	DC.B	'FFFF'
	DC.B	$0D
	DC.B	'Reference Number = $'
ref_19	DC.B	'FFFF'
	DC.B	$0D
	DC.B	'Position = $'
pos_19	DC.B	'FFFFFFFF'
	DC.B	$0D
	DC.B	$0D
size_19         equ     *-ascii_19

;===========================================================================
c1_get_EOF	; 
		DC.W	c1_ascii_19	;ascii data to write.
		DC.W	c1_pcnt_get_eof

		DC.W	word
		DC.W	c1_err_19	;error returned
		dc.w	word
		dc.w	c1_pcnt_19
		DC.W	word
		DC.W	c1_ref_19
		DC.W	lword
		DC.W	c1_pos_19
		DC.W	$FFFF	;end of table

c1_pcnt_get_eof	dc.w	$0002
		dc.w	0000
		dc.w	c1_pcnt_19_02
		
c1_ascii_19	; 
		DC.B	'Call = GET EOF'
		DC.B	$0D
		DC.B	'Error Code = $'
c1_err_19	DC.B	'FFFF'
		DC.B	$0D
		dc.b	'PCount = $'
c1_pcnt_19	dc.b	'FFFF'
		dc.b	$0D
		DC.B	'Reference Number = $'
c1_ref_19	DC.B	'FFFF'
		DC.B	$0D
		DC.B	'EOF = $'
c1_pos_19	DC.B	'FFFFFFFF'
		DC.B	$0D
c1_pcnt_19_02	equ     *-c1_ascii_19



;===========================================================================
get_dir_entry	; 
	DC.W	ascii_1C
	DC.W	size_1c

	DC.W	word
	DC.W	err_1c
	DC.W	word
	DC.W	ref_1c
	DC.W	word
	DC.W	flag_1c
	DC.W	word
	DC.W	base_1c
	DC.W	word
	DC.W	disp_1c
	DC.W	pointer
	DC.W	ptr_1c
	DC.W	word
	DC.W	entry_1c
	DC.W	word
	DC.W	file_type_1c
	DC.W	lword
	DC.W	eof_1c
	DC.W	lword
	DC.W	blks_1c
	DC.W	eight
	DC.W	create_1c
	DC.W	eight
	DC.W	mod_1c
	DC.W	word
	DC.W	access_1c
	DC.W	lword
	DC.W	aux_1c
	DC.W	word
	DC.W	file_sys_1c
	DC.W	$FFFF

ascii_1c	; 
	DC.B	'Call = GET DIR ENTRY'
	DC.B	$0D
	DC.B	'Error Code = $'
err_1c	DC.B	'FFFF'
	DC.B	$0D
	DC.B	'Reference Number = $'
ref_1c	DC.B	'FFFF'
	DC.B	$0D
	DC.B	'Flags = $'
flag_1c	DC.B	'FFFF'
	DC.B	$0D
	DC.B	'Base = $'
base_1c	DC.B	'FFFF'
	DC.B	$0D
	DC.B	'Displacement = $'
disp_1c	DC.B	'FFFF'
	DC.B	$0D
	DC.B	'Pathname Ptr = $'
ptr_1c	DC.B	'FFFFFFFF'
	DC.B	$0D
	DC.B	'Absolute Entry Num = $'
entry_1c	DC.B	'FFFF'
	DC.B	$0D
	DC.B	'File Type = $'
file_type_1c	DC.B	'FFFF'
	DC.B	$0D
	DC.B	'EOF = $'
eof_1c	DC.B	'FFFFFFFF'
	DC.B	$0D
	DC.B	'Blocks Used = $'
blks_1c	DC.B	'FFFFFFFF'
	DC.B	$0D
	DC.B	'Create Date = $'
create_1c	DC.B	'FFFFFFFFFFFFFFFF'
	DC.B	$0D
	DC.B	'Mod Date = $'
mod_1c	DC.B	'FFFFFFFFFFFFFFFF'
	DC.B	$0D
	DC.B	'Access = $'
access_1c	DC.B	'FFFF'
	DC.B	$0d
	DC.B	'Aux Type = $'
aux_1c	DC.B	'FFFFFFFF'
	DC.B	$0D
	DC.B	'File Sys = $'
file_sys_1c	DC.B	'FFFF'
	DC.B	$0D
	DC.B	$0D
size_1c         equ     *-ascii_1c




;===========================================================================
c1_get_dir_entry	; 
		DC.W	c1_ascii_1C
		DC.W	c1_pcnt_get_dir

		DC.W	word
		DC.W	c1_err_1c
		dc.w	word
		dc.w	c1_pcnt_1c
		DC.W	word
		DC.W	c1_ref_1c
		DC.W	word
		DC.W	c1_flag_1c
		DC.W	word
		DC.W	c1_base_1c
		DC.W	word
		DC.W	c1_disp_1c
		DC.W	pointer
		DC.W	c1_ptr_1c
		DC.W	word
		DC.W	c1_entry_1c
		DC.W	word
		DC.W	c1_file_type_1c
		DC.W	lword
		DC.W	c1_eof_1c
		DC.W	lword
		DC.W	c1_blks_1c
		DC.W	eight
		DC.W	c1_create_1c
		DC.W	eight
		DC.W	c1_mod_1c
		DC.W	word
		DC.W	c1_access_1c
		DC.W	lword
		DC.W	c1_aux_1c
		DC.W	word
		DC.W	c1_file_sys_1c
		DC.W	$FFFF


c1_pcnt_get_dir	dc.w	$000E
		dc.w	0
		dc.w	0
		dc.w	0
		dc.w	0
		dc.w	c1_pcnt_1c_05
		dc.w	c1_pcnt_1c_06
		dc.w	c1_pcnt_1c_07
		dc.w	c1_pcnt_1c_08
		dc.w	c1_pcnt_1c_09
		dc.w	c1_pcnt_1c_0A
		dc.w	c1_pcnt_1c_0B
		dc.w	c1_pcnt_1c_0C
		dc.w	c1_pcnt_1c_0D
		dc.w	c1_pcnt_1c_0E

		
c1_ascii_1c	; 
		DC.B	'Call = GET DIR ENTRY'
		DC.B	$0D
		DC.B	'Error Code = $'
c1_err_1c	DC.B	'FFFF'
		DC.B	$0D
		dc.b	'PCount = $'
c1_pcnt_1c	dc.b	'FFFF'
		dc.b	$0D
		DC.B	'Reference Number = $'
c1_ref_1c	DC.B	'FFFF'
		DC.B	$0D
		DC.B	'Flags = $'
c1_flag_1c	DC.B	'FFFF'
		DC.B	$0D
		DC.B	'Base = $'
c1_base_1c	DC.B	'FFFF'
		DC.B	$0D
		DC.B	'Displacement = $'
c1_disp_1c	DC.B	'FFFF'
		DC.B	$0D
		DC.B	'Pathname Ptr = $'
c1_ptr_1c	DC.B	'FFFFFFFF'
		DC.B	$0D
c1_pcnt_1c_05	equ	*-c1_ascii_1c

		DC.B	'Absolute Entry Num = $'
c1_entry_1c	DC.B	'FFFF'
		DC.B	$0D
c1_pcnt_1c_06	equ	*-c1_ascii_1c

		DC.B	'File Type = $'
c1_file_type_1c	DC.B	'FFFF'
		DC.B	$0D
c1_pcnt_1c_07	equ	*-c1_ascii_1c

		DC.B	'EOF = $'
c1_eof_1c	DC.B	'FFFFFFFF'
		DC.B	$0D
c1_pcnt_1c_08	equ	*-c1_ascii_1c

		DC.B	'Blocks Used = $'
c1_blks_1c	DC.B	'FFFFFFFF'
		DC.B	$0D
c1_pcnt_1c_09	equ	*-c1_ascii_1c

		DC.B	'Create Date = $'
c1_create_1c	DC.B	'FFFFFFFFFFFFFFFF'
		DC.B	$0D
c1_pcnt_1c_0A	equ	*-c1_ascii_1c

		DC.B	'Mod Date = $'
c1_mod_1c	DC.B	'FFFFFFFFFFFFFFFF'
		DC.B	$0D
c1_pcnt_1c_0B	equ	*-c1_ascii_1c

		DC.B	'Access = $'
c1_access_1c	DC.B	'FFFF'
		DC.B	$0d
c1_pcnt_1c_0C	equ	*-c1_ascii_1c

		DC.B	'Aux Type = $'
c1_aux_1c	DC.B	'FFFFFFFF'
		DC.B	$0D
c1_pcnt_1c_0D	equ	*-c1_ascii_1c

		DC.B	'File Sys = $'
c1_file_sys_1c	DC.B	'FFFF'
		DC.B	$0D
c1_pcnt_1c_0E	equ	*-c1_ascii_1c



;===========================================================================
get_dev_num	; 
	DC.W	ascii_20	;ascii data to write.
	DC.W	size_20	;length to write

	DC.W	word
	DC.W	err_20	;error returned
	DC.W	pointer
	DC.W	path_20
	DC.W	word
	DC.W	dev_num_20
	DC.W	$FFFF	;end of table

ascii_20	; 
	DC.B	'Call = GET DEV NUM'
	DC.B	$0D
	DC.B	'Error Code = $'
err_20	DC.B	'FFFF'
	DC.B	$0D
	DC.B	'Dev Name Ptr = $'
path_20	DC.B	'00FFFFFF'
	DC.B	$0D
	DC.B	'Device Number = $'
dev_num_20	DC.B	'FFFF'
	DC.B	$0D
	DC.B	$0D
size_20         equ     *-ascii_20


;===========================================================================
c1_get_dev_num	; 
		DC.W	c1_ascii_20	;ascii data to write.
		DC.W	c1_pcnt_get_dev

		DC.W	word
		DC.W	c1_err_20	;error returned
		dc.w	word
		dc.w	c1_pcnt_20
		DC.W	pointer
		DC.W	c1_path_20
		DC.W	word
		DC.W	c1_dev_num_20
		DC.W	$FFFF	;end of table

c1_pcnt_get_dev	dc.w	$0002
		dc.w	0000
		dc.w	c1_pcnt_20_02

c1_ascii_20	; 
		DC.B	'Call = GET DEV NUM'
		DC.B	$0D
		DC.B	'Error Code = $'
c1_err_20	DC.B	'FFFF'
		DC.B	$0D
		dc.b	'PCount = $'
c1_pcnt_20	dc.b	'FFFF'
		dc.b	$0D
		DC.B	'Dev Name Ptr = $'
c1_path_20	DC.B	'00FFFFFF'
		DC.B	$0D
		DC.B	'Device Number = $'
c1_dev_num_20	DC.B	'FFFF'
		DC.B	$0D
		DC.B	$0D
c1_pcnt_20_02	equ     *-c1_ascii_20




;===========================================================================
read_block	; 
	DC.W	ascii_22	;ascii data to write.
	DC.W	size_22	;length to write

	DC.W	word
	DC.W	err_22	;error returned
	DC.W	word
	DC.W	dev_num_22
	DC.W	pointer
	DC.W	data_buf_22
	DC.W	lword
	DC.W	blk_num_22
	DC.W	$FFFF	;end of table

ascii_22	; 
	DC.B	'Call = READ BLOCK'
	DC.B	$0D
	DC.B	'Error Code = $'
err_22	DC.B	'FFFF'
	DC.B	$0D
	DC.B	'Device Number = $'
dev_num_22	DC.B	'FFFF'
	DC.B	$0D
	DC.B	'Data Buffer = $'
data_buf_22	DC.B	'FFFFFFFF'
	DC.B	$0D
	DC.B	'Block Number = $'
blk_num_22	DC.B	'FFFF'
	DC.B	$0D
	DC.B	$0D
size_22         equ     *-ascii_22


;===========================================================================
write_block	; 
	DC.W	ascii_23	;ascii data to write.
	DC.W	size_23	;length to write

	DC.W	word
	DC.W	err_23	;error returned
	DC.W	word
	DC.W	dev_num_23
	DC.W	pointer
	DC.W	data_buf_23
	DC.W	lword
	DC.W	blk_num_23
	DC.W	$FFFF	;end of table

ascii_23	; 
	DC.B	'Call = WRITE BLOCK'
	DC.B	$0D
	DC.B	'Error Code = $'
err_23	DC.B	'FFFF'
	DC.B	$0D
	DC.B	'Device Number = $'
dev_num_23	DC.B	'FFFF'
	DC.B	$0D
	DC.B	'Data Buffer = $'
data_buf_23	DC.B	'FFFFFFFF'
	DC.B	$0D
	DC.B	'Block Number = $'
blk_num_23	DC.B	'FFFF'
	DC.B	$0D
	DC.B	$0D
size_23         equ     *-ascii_23

name_buffer	DS.B 	256              ;save room for the name

call_class	dc.w	00
pcount		dc.w	00
path_addr	dc.l	00
hold_stack	dc.w	00
hold_dp		dc.w	00
zp_handle	dc.l	00
last_dev_acc	dc.w	00

;===========================================================================

bug_routine
		longa	on
		longi	on
                rep     #$30            ;set 16 bit mode

		
		lda	#$0001		;priority 1
		ldx	#signal_handler
		ldy	#^signal_handler
		jsl	signal
		rts

signal_handler
		longa	on
		longi	on
		tsc			;save stack pointer
		sta	>hold_stack	;save the stack please
		lda	>$00BD00	;last accessed device
		sta	>last_dev_acc	;save the last device accessed

		pea	$0000		;push space for result
		pea	$0000
		pea	$0000		;high word of zero
		lda	#$0100		;allocate 256 bytes please
		pha
		pea	$300f		;user id
		pea	%1100000000010101
		pea	$0000
		pea	$0000
		ldx	#$0902		;allocate a handle
		jsl	$e10000
		lda	#$bd00		;gs/os direct page
		tcd
		pla			;no error checking.
		sta	>zp_handle
		sta	00
		pla
		sta	>zp_handle+2
		sta	02
		
		ldy	#$0002		;get the address of my memory
		lda	[00],y		;get the high word
		beq	@good_addr
		brk 	$BA
@good_addr
		lda	[00]
		bne	@great
		brk	$BB
@great
		tcd			;our new direct page
		clc
		adc	#$00FE		;make a new stack please
		tcs			;we now have a new stack
		
;========== At this point we now have our own stack and direct page ==================


		
		phk
		plb			;set our bank register

		php			;save the process state
		cli			;I could be killed for this!!!

                phk
		phk
                pla
		and	#$00FF
                sta     bank9
                sta     table_ptr+2
                sta     entry_ptr+2
                sta     temp2_ptr+2
                sta     ascii_ptr+2
		stz	debug_flag	;turn off debug please

                lda     #^data_start    ;start of debug data
                sta     zp+2
                lda     #data_start
                sta     zp
		ldy	#$0002
		lda	#$0000
		sta	[zp]
		sta	[zp],y
		
		jsr	send_debug	;send the debug info please
		
		lda	#$FFFF		;re-enable debug
		sta	debug_flag
		plp			;restore processor status		
		
		lda	zp_handle+2
		pha
		lda	zp_handle
		pha
		ldx	#$1002
		jsl	$e10000		;release my stack and direct page
		
		lda	>last_dev_acc	;restore the last device accessed for Apps
		sta	>$00BD00	;restore last device accessed
		lda	>hold_stack	;restore the stack please
		tcs
		rtl			;restore to GS/OS

save_zp
		pea	$0000		;push space for result
		pea	$0000
		
		pea	$0000		;high word of zero
		lda	#$0100		;allocate 256 bytes please
		pha
		
		pea	$300f		;user id
		
		pea	%1100000000010101
		
		pea	$0000
		pea	$0000
		ldx	#$0902		;allocate a handle
		jsl	$e10000
		
		lda	#$bd00		;gs/os direct page
		tcd
		
		pla			;no error checking.
		sta	zp_handle
		sta	00
		pla
		sta	zp_handle+2
		sta	02
		
		ldy	#$0002		;get the address of my memory
		lda	[00],y		;get the high word
		beq	@good_addr
		brk 	$BA
@good_addr
		lda	[00]
		bne	@great
		brk	$BB
@great
		tcd			;our new direct page
		
		rts

restore_zp		
		lda	zp_handle+2
		pha
		lda	zp_handle
		pha
		ldx	#$1002
		jsl	$e10000
		rts		
send_debug
                lda     #^data_start    ;start of debug data
                sta     zp+2
		sta	temp_ptr+2
                lda     #data_start
                sta     zp
		sta	temp_ptr
						
                lda     open_list
                sta     write_list      ;setup the reference number
		sta	write_ret_list
		bra	do_one
loop 
                jsr     get_next_entry
                bcs     done
do_one
		jsr     process_entry
                bcs     done
                bra     loop
done
                rts

;===========================================================================
get_next_entry	; 
                ldy     #$0002
                lda     [zp],y
                tax
                lda     [zp]
                bne     active
                txy
                beq     not_active

active 
                pha
                lda     zp
                sta     temp_ptr        ;return pointer to entry
                lda     zp+2
                sta     temp_ptr+2
                pla
                clc
                adc     zp
                sta     zp
                txa
                adc     zp+2
                sta     zp+2

                clc
                rts

not_active	; 
                sec
                rts


;===========================================================================
process_entry	; 
		stz	call_class	;class 0 call
                ldy     #$0006          ;index to the call number
                lda     [temp_ptr],y
                tax
                and     #$FF00          ;check the class
                beq	@class0		;this is a class 0 call

		lda	[temp_ptr],y	;get the call again
		and	#$00FF
		asl	a
		tax
		lda	class1_table-2,x
		sta	entry_ptr
		dec	call_class	;call class is 1
		bra	@common
		
@class0
                txa
                asl     a               ;times two for the word table
                tax
                lda     class0_table-2,x
                sta     entry_ptr       ;point to the entry to process

@common
                iny
                iny                     ;get the error code please
                lda     [temp_ptr],y
                tax
                iny
                iny                     ;points to path flag
                lda     [temp_ptr],y
                sta     debug_path      ;save the flag please

		iny
		iny
		lda	[temp_ptr],y
		sta	path_addr
		iny
		iny
		lda	[temp_ptr],y
		sta	path_addr+2
		
                iny
                iny                     ;points to the parameter block

		phy			;save y please
		ldy	#$000C+4	;pointer to PCount value
		lda	[temp_ptr],y
		sta	pcount
		ply
		
                tya
                clc
                adc     temp_ptr        ;make a pointer to param block
                sta     temp_ptr
                lda     #$0000
                adc     temp_ptr+2
                sta     temp_ptr+2

                txa
                jsr     convert_error

                lda     [entry_ptr]     ;get the address to write
                sta     write_data

		lda	call_class	;class 0 or one please
		beq	@standard
		ldy	#$0002
		lda	[entry_ptr],y	;get pointer to size table
		sta	temp2_ptr
		
		lda	[temp2_ptr]
		cmp	Pcount		
		bcc	@use_max
		lda	Pcount
		
@use_max	asl	a		;time 2 for word table
		tay	
		lda	[temp2_ptr],y
		sta	write_count	;number of bytes to write
		bra	@continue

@standard
                ldy     #$0002          ;get the number of bytes to write for class 0
                lda     [entry_ptr],y
                sta     write_count
@continue
                ldy     #$0006          ;start of type,address -2

process_loop	; 
                iny
                iny
                lda     [entry_ptr],y
                cmp     #$FFFF          ;are we done?
                beq     write_to_file
                tax                     ;save the type to process
                iny
                iny
                lda     [entry_ptr],y   ;get the address to patch
                jsr     fill_entry      ;fill the entry with data
                bcs     end_process
                bra     process_loop

to_end_process  brl     end_process

write_to_file	; 
                jsr     write_file
                bcc     chk_path        ;see if we need to write a path
                rts

chk_path	;
		jsr	write_return
                lda     debug_path
                beq     end_process     ;no Pathname to move

		lda	path_addr
		sta	temp_ptr
		lda	path_addr+2
		sta	temp_ptr+2

                lda     [temp_ptr]      ;get the length please
                tay                     ;save the length
                inc     a
                inc     a               ;add in for return chars
                sta     write_count
                iny
                lda     #$0D0D
                sta     name_buffer-1,y
                dey

                lda     #name_buffer
                sta     write_data
                inc     temp_ptr
                bne     not_high
                inc     temp_ptr+2
not_high
		longa   off
                sep     #$20
name_loop	; 
                lda     [temp_ptr],y
                sta     name_buffer-1,y
;                cmp     #':'            ;is this a seperator
;                bne     no_delimiter
;                lda     #'/'
;                sta     name_buffer-1,y
no_delimiter	; 
                dey
                bne     name_loop
		longa   on
                rep     #$20
                jsr     write_file
		jsr	write_return
                rts

end_process 
                clc
                rts

convert_error	; 
                pha                     ;save the error code
                ldy     #$0006          ;get the address of ascii area
                lda     [entry_ptr],y
                sta     ascii_ptr
                pla
                jsr     store_word
                rts

			longa   on
			longi   on

fill_entry	; 
                phy                     ;save Y please
                sta     ascii_ptr       ;pointer to the data area
                txy                     ;use as index
fill_loop	; 
                lda     [temp_ptr],y
                phy
                jsr     store_word
                ply
                dey
                dey
                bpl     fill_loop

                clc
                txa
                adc     #$0002
                adc     temp_ptr        ;bump pointer by the number of bytes
                sta     temp_ptr        ;converted to ascii.
                lda     #$0000
                adc     temp_ptr+2
                sta     temp_ptr+2

                ply
                clc
                rts


store_word	; 
                sta     temp
			longa   off
                sep     #$20
                lda     temp+1          ;high word the the error
                jsr     hex_convert
                lda     char_one
                sta     [ascii_ptr]
                ldy     #$0001
                lda     char_two
                sta     [ascii_ptr],y
                lda     temp
                jsr     hex_convert
                iny
                lda     char_one
                sta     [ascii_ptr],y
                iny
                lda     char_two
                sta     [ascii_ptr],y
			longa   on
                rep     #$20
                clc
                lda     ascii_ptr       ;move to next position
                adc     #$0004
                sta     ascii_ptr
                rts

			longa   off
hex_convert	; 
                pha
                lsr     a
                lsr     a
                lsr     a
                lsr     a
                jsr     do_conv
                sta     char_one
                pla
                and     #$0F
                jsr     do_conv
                sta     char_two
                rts

do_conv         cmp     #$0A
                bcc     z29
                adc     #$36
                rts
z29             ora     #$30
                rts


char_one	DC.B	00
char_two	DC.B	00
                 
			longa   on
			longi   on

;===========================================================================
destroy_file	; 
                jsl     $e100A8
		DC.W	$02
		dc.l	destroy_list
                rts

destroy_list
		dc.l	pathname

;===========================================================================
create_file	; 
                jsl     $e100a8
		DC.W	$01
		dc.l	create_list
                rts

create_list
		dc.l	pathname
		DC.W	$E3
		DC.W	$04
		DC.L	0
		DC.W	0
		DC.L	0

;===========================================================================
set_new_level
		jsl	$e100a8		;call GS/OS
		dc.w	$1B		;get system level
		dc.l	level_list
		lda	level
		sta	close_level
		inc	level
		bra	set_the_level
set_old_level	
		lda	close_level
		sta	level
set_the_level
		jsl	$e100a8
		dc.w	$1a
		dc.l	level_list
		rts

level_list
level		dc.w	00
close_level	dc.w	00

;===========================================================================

open_file	; 
                jsl     $e100A8
		DC.W	$10
		dc.l	open_list
                rts

open_list	; 
		DC.W	00	;reference number
		dc.l	pathname
		DC.L	0000

		string	pascal
pathname	DC.B	'DEBUG.FILE'
		ds.b	256-10
		string	asis
		
;===========================================================================

write_file 
                jsl     $e100a8
		DC.W	$13
		dc.l	write_list
		bcc	@no_error
		cmp	#$004E		;invalid access?
		beq	@re_open
		
		cmp	#$0043		;invalid ref num?
		bne	@not_close
@re_open
		jsr	open_file	;reopen the file please

		lda	open_list	;setup the ref number again
		sta	write_list
		sta	write_ret_list
		bra	write_file
		
@not_close	
		sec
@no_error
		rts

write_list 
		DC.W	00	;reference number
write_data	DC.W	000	;data to write
bank9		DC.W	0000
write_count	DC.L	00	;bytes to write
		DC.L	00	;transfer count

write_return	jsl	$e100a8
		dc.w	$13
		dc.l	write_ret_list
		rts
		

write_ret_list	dc.w	00
		dc.l	ret_chars
		dc.l	0001
		dc.l	00
ret_chars
		dc.b	$0D
		
;===========================================================================

close_file	; 
                jsl     $e100A8
		DC.W	$14	;close the file please
		dc.l	open_list
                rts

;===========================================================================
		export	fst_debug
fst_debug
		ldy	#$0004		;index to command number
		lda	[param_blk_ptr],y
		cmp	#debugger_cmnd	;is this a start command
		beq	start_it_up
		cmp	#debugger_status ;should we stop
		beq	status_debugger
		
		lda	#invalid_fst_op
		sec
		rts

status_debugger
		lda	[param_blk_ptr]	;verify the Pcount
		cmp	#$0004
		bne	bad_pcnt
		iny
		iny			;point to the stamp size
		lda	debug_flag
		sta	[param_blk_ptr],y
		iny
		iny
		lda	#pathname
		sta	[param_blk_ptr],y
		iny
		iny
		lda	#^pathname
		sta	[param_blk_ptr],y
		clc
		rts

parm_range
		lda	#parm_range_err	;parameter out of range
		bra	error_out
bad_pcnt 
		lda	#invalid_pcount

error_out 
		sec
		rts
		
;==========================================================================
;This call allows the user to start the FST debugger running.
;
;		pcount = 3 or 4
;		fst_num
;		command
;		debug_flag	$0000 = stop debug
;				$FFFF = start debug
;		debug_path	pathname to output file
;==========================================================================
start_it_up
		lda	param_blk_ptr
		sta	users_pblk
		lda	param_blk_ptr+2
		sta	users_pblk+2
		
		lda	[param_blk_ptr]	;verify the Pcount
		tax
		cmp	#$0006
		bcs	bad_pcnt
		cmp	#$0003
		bcc	bad_pcnt	;sorry to few
		
		iny
		iny			;point to the debug_flag field
		
		lda	[param_blk_ptr],y
		sta	debug_flag	;save the flag please
		beq	deactivate	;turn off debugging
		cpx	#$0004		;is there a pathname?
		bcc	no_pathname	;user did not supply name
		
		iny
		iny			;get the pointer to the name
		lda	[param_blk_ptr],y
		tax
		iny
		iny
		lda	[param_blk_ptr],y
		tay
		bne	@good_ptr
		txa
		beq	parm_range	;sorry a bad pointer
@good_ptr
		stx	temp_ptr
		sty	temp_ptr+2
		
		lda	[temp_ptr]	;get the size
		and	#$00FF
		beq	parm_range	;out of range bud
		tay
@loop
		lda	[temp_ptr],y
		sta	pathname,y
		dey
		bpl	@loop
no_pathname
		jsr	activate_debug
		clc
		rts
		
deactivate
		lda	#$0001		;priority 1
		ldx	#stop_handler
		ldy	#^stop_handler
		jsl	signal
		rts
		
activate_debug
		lda	#$0001		;priority 1
		ldx	#startup_handler
		ldy	#^startup_handler
		jsl	signal
		rts

stop_handler
		phk
		plb
		stz	debug_flag
		
		jsr	save_zp
		lda	open_list	;is the file open?
		beq	end_stop
		jsr	close_file
end_stop
		jsr	restore_zp
		stz	debug_flag	;stop the debug please
		stz	open_list
		rtl

startup_handler
		phk
		plb
		stz	debug_flag	;disable debug list
		
		jsr	save_zp
		
		jsr     destroy_file	;destroy the old file.
                jsr     create_file	;create the file if possible
		jsr	set_new_level	;raise the system level so I do not get closed.
                jsr     open_file	
		bcc	@do_it
		stz	debug_flag
		stz	open_list
		

		jsr	set_old_level
		jsr	restore_zp
		rtl
@do_it
		lda	#$FFFF
		sta	debug_flag
		
		lda	users_pblk
		sta	zp
		lda	users_pblk+2
		sta	zp+2
		
		lda	[zp]		;verify the Pcount
		cmp	#0005		;user wants ref number?
		bne	@no_ref
		
		ldy	#$000C
		lda	open_list	;return the reference number please
		sta	[zp],y
@no_ref				
		jsr	restore_zp
		rtl
		
users_pblk	dc.l	00
			
		ENDP
		


internal_debug	proc
		lda	#$0001		;priority 1
		ldx	#startup2_handler
		ldy	#^startup2_handler
		jsl	signal
		rts

startup2_handler
		tdc
		pha
		lda	#$0000
		tcd
		jsl	$e100a8		;call the OS
		dc.w	$2033		;FST specific
		dc.l	parm_list
		pla
		tcd			;restore direct page
		rts
parm_list
		dc.w	$0003
		dc.w	$0001		;my FST
		dc.w	$0002		;Command number
		dc.w	$ffff		;command flag

		endp
		
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/FSTs/ProDOS/ProDOS.FST b/IIGS.601.SRC/GS.OS/FSTs/ProDOS/ProDOS.FST
new file mode 100644
index 0000000..fa11f8e
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/FSTs/ProDOS/ProDOS.FST
@@ -0,0 +1 @@
+		print	push
		print	off

		string	asis

		include	'common.equ.src'
		
;------------------------------------------
;
; Equates from procedure 
;
;------------------------------------------
CallStringToText equ 1		;conditional code for JudgeName, 14-Apr-91 DAL
AllowLCPeriods	equ 0		;conditional code allowing blanks in names, 7-Aug-91 DAL
				;(0 = no blanks allowed, 12-Aug-91 GAB)

debug_on	equ	00		;00 = debug off, <>0 = debug on
word		equ	02		;two bytes for a word
blk_size	equ	512		;standard size of a prodos block
delimiter	equ	$3A		;pathname delimiter = ":"
min_send_cnt	equ	$21		;If read < 33 bytes use local routine

vcr_main	equ	vcr_dev+2
vol_reserved	equ	$0000		;8 bytes of reserved field from disk
vol_mod		equ	vol_reserved+2	;volume mod date
vol_create	equ	vol_reserved+8	;create date/time from header
vol_version	equ	vol_create+4	;version of OS that created file
vol_min_version	equ	vol_version+1	;minimum version of OS that can access
vol_access	equ	vol_min_version+1 ;access for a file
vol_entry_len	equ	vol_access+1	;entry length of each entry
vol_entries	equ	vol_entry_len+1	;number of entries per block
vol_file_count	equ	vol_entries+1	;number of files in volume directory
vol_bitmap_addr	equ	vol_file_count+2 ;starting block of bitmap
vol_total_blks	equ	vol_bitmap_addr+2 ;total number of blocks on disk

num_bitmap_blks	equ	vol_total_blks+2 ;total number of bitmap blocks
end_bitmap	equ	num_bitmap_blks+2 ;1st byte that starts all zeros
avail_bitmap	equ	end_bitmap+2	;1st bitmap block(rel)  with free space
curr_bitmap	equ	avail_bitmap+2	;current bitmap(rel) block in memory
bitmap_dirty	equ	curr_bitmap+2	;0 = bitmap clean, <> 0 = bitmap dirty
free_blocks	equ	bitmap_dirty+2	;Free blocks on volume,$FFFF = unknown
vol_damaged	equ	free_blocks+2	;stops writing to bad disk if <> 00
dirty_file_cnt	equ	vol_damaged+2	;number of files that are open for writing and are dirty
bitmap_start	equ	dirty_file_cnt+4+vcr_main
pro_vcr_size	equ	bitmap_start+$200
bitmap_mod	equ	$FFFF
bitmap_unknown	equ	$FFFF
vcr_entry_length equ	$000F

fcr_res_num	equ	$0000		;resource number of this file
fcr_storage	equ	fcr_res_num+2	;real storage type on disk
fcr_entry_type	equ	fcr_storage+2	;storage type from directory entry
fcr_file_id	equ	fcr_entry_type+2 ;used to ID duplicate files
fcr_file_type	equ	fcr_file_id+2	;file type
fcr_key_blk	equ	fcr_file_Type+1	;key block of the file
fcr_blks_used	equ	fcr_key_blk+2	;number of blocks used
fcr_eof		equ	fcr_blks_used+2	;current end of file
fcr_create	equ	fcr_eof+3	;create date/time ProDOS
fcr_vers	equ	fcr_create+4	;version of o/s that made file
fcr_min_vers	equ	fcr_vers+1	;min version of o/s allowed
fcr_disk_acc	equ	fcr_min_vers+1	;file access
fcr_aux_type	equ	fcr_disk_acc+1	;aux type for this file
fcr_modified	equ	fcr_aux_type+2	;modified date of file
fcr_header_ptr	equ	fcr_modified+4	;key block of dir owner
fcr_status	equ	fcr_header_ptr+2 ;offset: current status of file
gde_entry_num	equ	fcr_status+2	;current entry for Get_Dir_Entry
gde_offset	equ	gde_entry_num+2	;current offset to entry
gde_curr_blk	equ	gde_offset+2	;current directory block loaded
gde_tot_files	equ	gde_curr_blk+2	;total files in directory
fcr_curr_mark	equ	gde_tot_files+2	;current file mark
fcr_blks_alloc	equ	fcr_curr_mark+4	;current number of blks alloc
fcr_curr_eof	equ	fcr_blks_alloc+2 ;current end of file
fcr_parent	equ	fcr_curr_eof+4	;block number of directory block
fcr_entry_offs	equ	fcr_parent+2	;index to entry within parent block
data_blk_num	equ	fcr_entry_offs+2 ;block number of current data block
index_blk_num	equ	data_blk_num+2	;block number of current index block
master_blk_num	equ	index_blk_num+2	;block number of master index block

clr_global_clean equ	$7FFF		;clear the global clean bit
set_global_clean equ	$8000		;set the file clean in the FCR
set_access_res	equ	$4000		;set the resource fork bit in the FCR
ClrAllButAccess equ	$3FFF		;clear the resource bit from access word.

fcr_fst_ptr	equ	fcr_access+2
fcr_io_start	equ	master_blk_num+2+fcr_fst_ptr
fcr_data_size	equ	fcr_io_start+$200
fcr_index_size	equ	fcr_io_start+$400
fcr_master_size	equ	fcr_io_start+$600


my_pblk_ptr	equ	fst_start
my_vcr_ptr	equ	my_pblk_ptr+4
prodos_vcr_ptr	equ	my_vcr_ptr+4
my_fcr_ptr	equ	prodos_vcr_ptr+4
pro_fcr_ptr	equ	my_fcr_ptr+4
gbuf_ptr	equ	pro_fcr_ptr+4
temp_ptr	equ	gbuf_ptr+4
temp2_ptr	equ	temp_ptr+4
temp3_ptr	equ	temp2_ptr+4
temp4_ptr	equ	temp3_ptr+4
temp5_ptr	equ	temp4_ptr+4
math_temp	equ	temp5_ptr+4
data_ptr	equ	math_temp+4
index_ptr	equ	data_ptr+4
master_ptr	equ	index_ptr+4
bitmap		equ	master_ptr+4
users_buf_ptr	equ	bitmap+4
sparse_ptr	equ	users_buf_ptr+4
newline_ptr	equ	sparse_ptr+4
pro_id		equ	$0001		;identifies prodos fst
prodos_version	equ	$0005		;current version of the PRODOS.
path1_mask	equ	$4000		;used to determine if path1 is avail.
path2_mask	equ	$0040		;used to determine if path2 is avail.
carry		equ	$01		;used to set the carry
overflow	equ	$40		;used to set the overflow flag
in_cache	equ	$8002
user_cache_val	equ	$0001
class_mask	equ	$E000
disk_protect	equ	$0004		;bit to see if disk is protected
max_base	equ	$0003
pcount1		equ	1
pcount2		equ	2
pcount3		equ	3
pcount4		equ	4
pcount5		equ	5
pcount6		equ	6
pcount7		equ	7
pcount8		equ	8
pcount9		equ	9
write_call	equ	$13

read_enabled	equ	$0001		;1=Read Enabled
write_enabled	equ	$0002		;1=Write Enabled
backup_enabled	equ	$0020		;1=Needs to be backed up
rename_enabled	equ	$0040		;1=Rename allowed
destroy_enabled	equ	$0080		;1=Destroy is enabled
read_access	equ	$01
write_access	equ	$02
invis_bit	equ	$04
read_write_acc	equ	$03

seedling_type	equ	$0010		;$0000000 < EOF < $0000201
sapling_type	equ	$0020		;$0000200 < EOF < $0020001
tree_type	equ	$0030		;$0020000 < EOF < $1000000
pascal_area	equ	$0040		;Area set aside for Pascal
resource_type	equ	$0050		;Special type for resource files
purge_dir	equ	$0060		;directory that contains pugred files
subdir_type	equ	$00D0		;Subdirectory
subdir_header	equ	$00E0		;First entry in sudbirectory
volume_header	equ	$00F0		;First entry in the volume directory
vol_dir_start	equ	$0002		;start of the volume directory
bitmap_strt_blk	equ	$0006		;start of the volume bitmap
entry_length	equ	$0027
entries_per_block equ	$000D
parent_index	equ	$0027
par_entry_num	equ	$0029
res_header	equ	08		;number of bytes in a header
res_map_size	equ	382		;size of map for info call
purge_index	equ	$0019		;index to flag indicating purge files.
purgable_index	equ	$0029		;index to total blocks
purge_flag	equ	$00FE
purge_verify	equ	$0004
header_file_cnt	equ	$0025		;number of files in a directory
backup_on	equ	$20
backup_off	equ	$DF
file_type_index	equ	$10		;look at page 168 (ProDOS 8 manual)
key_blk_index	equ	$11		;index into disk entry
blks_used_index	equ	$13
eof_index	equ	$15
create_index	equ	$18
version_index	equ	$1C
min_version	equ	$1D
access_index	equ	$1E
aux_type_index	equ	$1F
last_mod_index	equ	$21
header_ptr_index equ	$25		
no_root		equ	$8000		;indicates root level name is invalid
no_dup		equ	$4000		;indicates duplicates are not valid
root_only	equ	$2000		;allow only the root level in pathname

vol_mod_offset	equ	$16		;offset to the volume mod date field
vol_acc_offset	equ	$22		;offset to the volume access field

dir_file_type	equ	$0F
tool_locator	equ	$E10000
misc_tools	equ	$0003
read_time_hex	equ	$000D		;read the clock via misc_tools

set_time_stamp	equ	$0001
get_time_stamp	equ	set_time_stamp+$8000
set_upper_case	equ	$0002
get_upper_case	equ	set_upper_case+$8000

debugger_cmnd	equ	$0002
debugger_status	equ	debugger_cmnd+$8000

file_dirty	equ	$8000		;ora masks to active field
data_active	equ	$4000
index_active	equ	$2000
master_active	equ	$1000

file_clean	equ	$7FFF		;and masks to deactivate field
data_inactive	equ	$BFFB
index_inactive	equ	$DFFD
master_inactive	equ	$EFFE

dirEntry_dirty	equ	$0008
dirEntry_clean	equ	ÅdirEntry_dirty	;'Å' is the assembler's one's complement operator
data_dirty	equ	$0004
data_clean	equ	$FFFB
index_dirty	equ	$0002
index_clean	equ	$FFFD
master_dirty	equ	$0001
master_clean	equ	$FFFE

hfs_id		equ	$0006		;HFS FST ID
ashare_id	equ	$000D		;AppleShare FST ID
finfo_type	equ	1		;HFS FInfo entry type
xfinfo_type	equ	2		;HFS xFInfo entry type

;------------------------------------------
;
; Equates from procedure data
;
;------------------------------------------
drvr_bytes	equ	$1A		;start at byte $1A and $1B
path_used	equ	$0100
vcr_used	equ	$0200
fcr_used	equ	$0400
io_used		equ	$0800
clr_io_used	equ	$F7FF
flush_1st	equ	$1000
damage		equ	$2000
max_class1	equ	$0020
max_class2	equ	$0040
max_class3	equ	$0060
max_class4	equ	$0080
max_class5	equ	$00A0
max_class6	equ	$00C0
max_class7	equ	$00E0
max_pcnt1	equ	1+1
max_pcnt2	equ	2+1
max_pcnt3	equ	3+1
max_pcnt4	equ	4+1
max_pcnt5	equ	5+1
max_pcnt6	equ	6+1
max_pcnt7	equ	7+1
max_pcnt8	equ	8+1
max_pcnt9	equ	9+1
max_pcnt10	equ	10+1
max_pcnt11	equ	11+1
max_pcnt12	equ	12+1
max_pcnt13	equ	13+1
max_pcnt14	equ	14+1
max_pcnt15	equ	15+1
max_pcnt16	equ	16+1
max_pcnt17	equ	17+1
do_dirty	equ	$4000


;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

		ENTRY	abs_to_rel
		ENTRY	activate_vcr
		ENTRY	add_free_blk
		ENTRY	add_index
		ENTRY	appl_call
		ENTRY	bitmap_changed
		ENTRY	bitmap_corrupt
		ENTRY	build_path
		ENTRY	build_the_fcr
		ENTRY	build_vcr
		ENTRY	calc_curr_mark
		ENTRY	change_path
		ENTRY	check_base
		ENTRY	check_dup
		ENTRY	check_vcr_first
		ENTRY	chk_allocation
		ENTRY	chk_vol_syntax
		ENTRY	clear_backup
		ENTRY	clear_index
		ENTRY	close
		ENTRY	clr_fcr_status
		ENTRY	clr_to_boundary
		ENTRY	cmd_error
		ENTRY	cmd_tbl
		ENTRY	create
		ENTRY	damaged_message
		
	IF debug_on<>0 THEN
		ENTRY	debugger
	ENDIF
		ENTRY	dec_blk_count
		ENTRY	deferred_flush
		ENTRY	destroy
		ENTRY	dev_with_mount
		ENTRY	device_call
		ENTRY	dow_convert
		ENTRY	end_read_write
		ENTRY	entry_to_gstr
		ENTRY	eof_to_blks
		ENTRY	erase_disk
		ENTRY	fast_read
		ENTRY	fill_io_buf
		ENTRY	find_file
		ENTRY	find_resource
		ENTRY	find_volume
		ENTRY	flush
		ENTRY	flush_blocks
		ENTRY	flush_data_blk
		ENTRY	flush_file
		ENTRY	flush_index
		ENTRY	force_bitmap
		ENTRY	format_disk
		ENTRY	fst_specific
		ENTRY	get_bit_block
		ENTRY	get_data_num
		ENTRY	get_dev_num
		ENTRY	get_dir_entry
		ENTRY	get_eof
		ENTRY	get_file_info
		ENTRY	get_index_blk
		ENTRY	get_mark
		ENTRY	get_next_fcr
		ENTRY	get_time
		ENTRY	get_write_blk
		ENTRY	id_disk
		ENTRY	issue_mount
		ENTRY	judge_name
		ENTRY	kill_bitmap
		ENTRY	load_data
		ENTRY	load_index
		ENTRY	make_entry_num
		ENTRY	mount_volume
		ENTRY	move_dir_entry
		ENTRY	move_vol_entry
		ENTRY	num_seq_blks
		ENTRY	open
		ENTRY	range_error
		ENTRY	read
		ENTRY	read_block
		ENTRY	read_with_cache
		ENTRY	reset_vcr
		ENTRY	sapling_seed
		ENTRY	save_curr_mark
		ENTRY	send_partial
		ENTRY	send_sparse_blk
		ENTRY	send_time
		ENTRY	set_eof
		ENTRY	set_fcr_status
		ENTRY	set_file_info
		ENTRY	set_mark
		ENTRY	set_user_cache
		ENTRY	setup_bitmap_ptr
		ENTRY	setup_curr_eof
		ENTRY	setup_curr_mark
		ENTRY	setup_io_buf
		ENTRY	setup_io_ptrs
		ENTRY	setup_my_fcr
		ENTRY	setup_my_vcr
		ENTRY	setup_name
		ENTRY	setup_vol_mesg
		ENTRY	show_damage
		ENTRY	shutdown
		ENTRY	slug_ripple
		ENTRY	standard_req
		ENTRY	startup
		ENTRY	sub_free_blk
		ENTRY	sys_remove_vol
		ENTRY	sys_tbl
		ENTRY	system_call
		ENTRY	tree_sapling
		ENTRY	update_key_blk
		ENTRY	update_mark_eof
		ENTRY	vol_to_buffer
		ENTRY	volume
		ENTRY	write
		ENTRY	write_block
		ENTRY	Chk_Dirty_Flag
		ENTRY	dirty_flags
		
		print	pop
;======================================================================
;
;ProDOS File System Translator for GS/OS
;
;Created:   Feb 25, 1987
;Modified:  Mar 16, 1988
;Author:    Rob Turner
;
;
;Copyright Apple Computer Inc. 1987-92  ALL RIGHTS RESERVED
;
;======================================================================

		PRINT	GEN		
		msb	off
		longa	on
		longi	on

;equates for the read call.

pblk_12_ref	equ	$0000		;index to the reference number
pblk_12_buf	equ	pblk_12_ref+2	;index to user's buffer pointer
pblk_12_req	equ	pblk_12_buf+4	;index to request count
pblk_12_tran	equ	pblk_12_req+4	;index to transfer count
pblk_12_cache	equ	pblk_12_tran+4	;index to user provided cache priority

max_read_pcnt	equ	$0005

;equates used by open

pblk_10_access	equ	$000A
pblk_10_ftype	equ	pblk_10_access+2
pblk_10_aux	equ	pblk_10_ftype+2
pblk_10_storage	equ	pblk_10_aux+4
pblk_10_eof	equ	pblk_10_storage+2
pblk_10_num_res	equ	pblk_10_eof+4
pblk_10_create	equ	pblk_10_num_res+2
pblk_10_mod	equ	pblk_10_create+8
pblk_10_blks	equ	pblk_10_mod+8
pblk_10_map	equ	pblk_10_blks+4

;equates used by set_mark

pblk_16_base	equ	$0002
pblk_16_disp	equ	pblk_16_base+2

;equates used by get_mark

pblk_17_pos	equ	$0002

;equates used by get_eof

pblk_19_eof	equ	$0002

;equates used by send_info

pblk_s_access	equ	$0000
pblk_s_ftype	equ	pblk_s_access+2
pblk_s_aux	equ	pblk_s_ftype+2
pblk_s_storage	equ	pblk_s_aux+4
pblk_s_create	equ	pblk_s_storage+2
pblk_s_mod	equ	pblk_s_create+8
pblk_s_opt	equ	pblk_s_mod+8
pblk_s_eof	equ	pblk_s_opt+4
pblk_s_blks	equ	pblk_s_eof+4
pblk_s_res_eof	equ	pblk_s_blks+4
pblk_s_res_blk	equ	pblk_s_res_eof+4

;equates used by volume

pblk_08_vol	equ	$0004
pblk_08_tot	equ	pblk_08_vol+4
pblk_08_free	equ	pblk_08_tot+4
pblk_08_id	equ	pblk_08_free+4
pblk_08_size	equ	pblk_08_id+2
pblk_08_purge	equ	pblk_08_size+2

;equates used by set_file_info

pblk_05_accs	equ	$0004
pblk_05_ftype	equ	pblk_05_accs+2
pblk_05_aux	equ	pblk_05_ftype+2
pblk_05_create	equ	pblk_05_aux+6
pblk_05_mod	equ	pblk_05_create+8
pblk_05_opt	equ	pblk_05_mod+8

;equates used by get_file_info

pblk_06_map	equ	$0028

;equates used by set_eof

pblk_18_odisp	equ	$0002
pblk_18_base	equ	$0002
pblk_18_disp	equ	pblk_18_base+2

;equates used by create

pblk_01_accs	equ	$0004
pblk_01_ftype	equ	pblk_01_accs+2
pblk_01_aux	equ	pblk_01_ftype+2
pblk_01_stype	equ	pblk_01_aux+4
pblk_01_eof1	equ	pblk_01_stype+2
pblk_01_eof2	equ	pblk_01_eof1+4

pblk_01_old_time equ	$000E

;equates used by get dir entry

pblk_1c_extend	equ	$0002
pblk_1c_disp	equ	$0002
pblk_1c_name	equ	pblk_1c_disp+2
pblk_1c_entry	equ	pblk_1c_name+4
pblk_1c_ftype	equ	pblk_1c_entry+2
pblk_1c_eof	equ	pblk_1c_ftype+2
pblk_1c_blks	equ	pblk_1c_eof+4
pblk_1c_create	equ	pblk_1c_blks+4
pblk_1c_mod	equ	pblk_1c_create+8
pblk_1c_access	equ	pblk_1c_mod+8
pblk_1c_aux	equ	pblk_1c_access+2
pblk_1c_id	equ	pblk_1c_aux+4
pblk_1c_opt	equ	pblk_1c_id+2
pblk_1c_res_eof	equ	pblk_1c_opt+4
pblk_1c_res_blks equ	pblk_1c_res_eof+4

gde_max_base	equ	$0002
bad_file_format	equ	$004a

;equates used by judge_name		1/22/91 CAE

pblk_07_ntype	equ	$0002
pblk_07_syntax	equ	pblk_07_ntype+2
pblk_07_max_len	equ	pblk_07_syntax+4
pblk_07_name	equ	pblk_07_max_len+2
pblk_07_nflags	equ	pblk_07_name+4

;equates used by change_path		5-Dec-91 MSD

pblk_04_src	equ	$0000		; (long) source pathname
pblk_04_dest	equ	$0004		; (long) destination pathname
pblk_04_flags	equ	$0008		; (word) $8000 = assume source is duplicate volume

; Revisions have been moved to the file "pro.fst.revisions" in the ProDOS project
; by Monte Benaresh on 6/21/90

;======================================================================
;Below is the FST header definition used by GS/OS at boot time
;======================================================================

		EXPORT	fst_header	
fst_header	PROC
		EXPORT	code_start
code_start            

		DC.B	'FST '		;Says I'm a FST
		DC.L	appl_call	;Process a normal application call
		DC.L	system_call	;Process a FST system call
		DC.W	Pro_ID		;My ID number (ProDOS)
		Export	fst_attr
fst_attr	DC.W	$3003		;(Uppercase pathnames if enabled), formattable, strip high bit.
		DC.W	$0402		;Version 4.02 final
		DC.W	512		;block size
		DC.L	$10000		;Max Blocks (32 meg)
		DC.L	$0007		;Min Blocks
		DC.L	$01000000	;max file size
		DC.L	$0000		;reserved
		DC.B	6
		DC.B	'ProDOS'	

		string	pascal
	IF debug_on<>0 THEN
		DC.B	'ProDOS FST w/Debugger v04.02'
	ELSE
		DC.B	'ProDOS FST            v04.02'
	ENDIF

		DC.W	0000		;reserved field
		dc.b	'ProDOS FST written by Rob Turner. V4.02'
		string	asis

		ENDP

;======================================================================
;Below is the main entry point for ALL standard operating system calls.
;
;Input:         X = Call number * 2
;               Y = Class number * 2
;               A = undefined

		longa	on
		longi	on
		
		EXPORT	appl_call	
appl_call	PROC
		import	max_call
		import	write_occurred
		import	write_dev_num
		import	cp_device_flag
		import	fake_name_str
		import	error_priority
		
		phk			;setup our bank register
		plb
		rep	#$30

		cpx	#max_call+1	;check command number
		bcs	cmd_error
		jmp	(cmd_tbl-2,x)	;call the function

		EXPORT	cmd_error
cmd_error
		lda	#bad_system_call
		EXPORT	error_exit
error_exit
		sec
		EXPORT	main_exit
main_exit
		IMPORT	flags

; If we're reporting an error, then check cp_device_flag to see if we were
; renaming a duplicate volume.  If so, we built a vcr with a fake name.  Since we 
; got an error at some point in the process, we need to find the vcr with the fake
; name and release it if it still exists.  1/22/91 CAE

		pha			;save the error code
		php			;save error flag
		bcc	@cont			;branch if no error
		lda	cp_device_flag		;did we build a vcr with a fake name?
		bpl	@cont			;no - so no need to clean up

		ldx	#fake_name_str		;get pointer to	fake name string
		ldy	#^fake_name_str
		lda	#0000			;search	by name
		jsl	find_vcr		
		bcs	@cont			;didn't find the vcr so we're ok
		jsl	deref			;dereference vcr pointer
		stx	<temp_ptr			
		sty	<temp_ptr+2		
		lda	[temp_ptr]		;get vcr id 
		jsl	release_vcr		;release the vcr
@cont
		jsl	unlock_mem	;unlock the used handles
		plp
		php
		bcc	no_damage

		lda	2,s		;get access to the error code
		and	#$00FF		;clear the garbage from the high byte please
		cmp	#drvr_bad_block	;the disk is probably bad
		beq	mark_damaged	;mark the volume as damaged
		cmp	#damaged_bitmap
		beq	mark_damaged
		cmp	#dir_error
		bne	no_damage	;the disk is still ok

mark_damaged
		lda	prodos_vcr_ptr	;make sure there is a vcr
		ora	prodos_vcr_ptr+2
		beq	no_damage

		ldy	#vol_damaged	;mark the VCR please
		lda	[prodos_vcr_ptr],y
		inc	a		;see if we have already told the user about the damage
		beq	no_damage	;we have told the user so skip the message
		
		lda	#$FFFF
		sta	[prodos_vcr_ptr],y
		lda	1,s		;tell the user about the problem
		jsr	show_damage

no_damage
;
;Now we need to set the Global Clean Flag if we need to
;
		lda	pro_fcr_ptr	;make sure there is a fcr
		ora	pro_fcr_ptr+2
		beq	@no_fcr		;don't worry about it

		lda	flags		;There is a FCR now make sure it was used during the call.
		and	#fcr_used
		beq	@no_fcr		;no FCR is used by the call
		
		ldy	#fcr_status	;get the status out of the File Control Record
		lda	[pro_fcr_ptr],y
;
;If my bit (15) is set then the file is dirty so we must clear the Global_Clean Bit.
;
		and	#file_dirty	;clear all but the file dirty bit 15
		eor	#set_global_clean
		sta	math_temp
		
		ldy	#fcr_access
		lda	[my_fcr_ptr],y
		and	#clr_global_clean
		ora	math_temp
		sta	[my_fcr_ptr],y
;
;Now we need to see if we should check if the file has become dirty during the call
;
		lda	chk_dirty_flag	
		beq	@no_fcr		;This call does not require processing
;
;Now lets see if the file was dirty at the beginning of the call.  If it was then just
;exit.  Otherwise update the dirty_file count in the VCR
;
		lda	dirty_flags
		bne	@no_fcr		;the file was dirty at the beginning
		
		ldy	#fcr_status	;get the status out of the File Control Record
		lda	[pro_fcr_ptr],y
		and	#file_dirty+data_dirty+index_dirty+master_dirty
		beq	@no_fcr		;The file is still clean
;
;Now we must update the dirty file count
;
		ldy	#dirty_file_cnt	;get the original count
		lda	[prodos_vcr_ptr],y
		inc	a
		sta	[prodos_vcr_ptr],y	
@no_fcr
		lda	write_occurred	;see if a volume was modified during the call
		beq	@no_write	;no write occurred

		lda	call_number	;the call that was made by application
		pha
		ldx	write_dev_num	;push the device number
		phx
		phy			;we do not care about Y

		lda	#volume_change	;this is the event code
		ldx	#^volume_change
		jsl	post_os_event	;post the event please
@no_write
		plp			;restore error flag
		pla			;restore error code
		ora	error_priority	;put error priority in hi byte  3/5/91 CAE

 	IF debug_on<>0 THEN
		phx			;save X and Y please
		phy
		pha
		php
		jsr	debugger
		plp
		pla
		ply
		plx

	ENDIF
		jml	sys_exit
		ENDP

;======================================================================
;Below is the main entry point for ALL FST system calls
;
;Input:     X = Call number * 2
;           Y = Class number * 2
;           A = undefined

		EXPORT	system_call	
system_call	PROC
		import	max_sys

		phk			;setup our bank register
		plb
		
		cpx	#max_sys+1	;maximum system calls
		bcs	sys_err
		jmp	(sys_tbl-2,x)	;call system routine

sys_err					; 
		lda	#bad_system_call
		rtl			;return error to Jim and Mike
		ENDP

	IF debug_on<>0 THEN
		include	'debugger'
	ENDIF

;======================================================================
;Below are my dispatch tables for application and system calls

		EXPORT	dispatch_tables	
dispatch_tables	PROC	
		
		EXPORT	cmd_tbl
cmd_tbl		DC.W	create		;create a file call
		DC.W	destroy		;delete a file
		DC.W	cmd_error
		DC.W	change_path	;rename or move a file or subdir
		DC.W	set_file_info	;alter directory info on a file
		DC.W	get_file_info	;return directory info on a file
		DC.W	judge_name	;judge a name
		DC.W	volume		;return information on a volume
		DC.W	cmd_error	;we don't handle 'Set_Prefix'
		DC.W	cmd_error	;we also don't handle 'Get_Prefix'
		DC.W	clear_backup	;clear the backup bit on a file
		DC.W	cmd_error	;RESERVED
		DC.W	cmd_error	;RESERVED
		DC.W	cmd_error	;RESERVED
		DC.W	cmd_error
		DC.W	open		;open a file or subdirectory
		DC.W	cmd_error	;we don't handle newline
		DC.W	read		;read 'n' bytes from a file
		DC.W	write		;write 'n' bytes to a file
		DC.W	close		;close a file or subdirectoy
		DC.W	flush		;flush a file(s)
		DC.W	set_mark	;set a file marker
		DC.W	get_mark	;return file marker
		DC.W	set_eof		;change EOF of a file
		DC.W	get_eof		;return EOF of a file
		DC.W	cmd_error	;system call
		DC.W	cmd_error	;system call
		DC.W	get_dir_entry	;return a entry from a directory
		DC.W	cmd_error	;RESERVED
		DC.W	cmd_error	;RESERVED
		DC.W	cmd_error	;RESERVED
		DC.W	get_dev_num	;Get_Dev_Num
		DC.W	cmd_error	;GS/OS handles 'Get_Last_Dev'
		DC.W	read_block	;read Block only in ProDOS fst
		DC.W	write_block	;write Block only in ProDOS fst
		DC.W	format_disk	;format media and build directory
		DC.W	erase_disk	;build directory structure
		DC.W	cmd_error	;reserved
		DC.W	cmd_error	;get name
		DC.W	cmd_error	;get boot vol
		DC.W	cmd_error	;quit
		DC.W	cmd_error	;get version
		DC.W	cmd_error	;get fst info
		DC.W	cmd_error	;device info
		DC.W	cmd_error	;device status
		DC.W	cmd_error	;device control
		DC.W	cmd_error	;device read
		DC.W	cmd_error	;device write
		DC.W	cmd_error	;alloc int
		DC.W	cmd_error	;dealloc int
		DC.W	fst_specific	;FST Specific
		EXPORT	end_tbl
end_tbl		
		EXPORT	Max_call:EQU
Max_call	equ	end_tbl-cmd_tbl	;Last valid call I support


		EXPORT	sys_tbl
sys_tbl		DC.W	startup		;set ready for work
		DC.W	shutdown	;get ready to quit
		DC.W	sys_remove_vol	;remove local data from VCR
		DC.W	deferred_flush	;flush deferred blocks.
		EXPORT	max_sys:equ
max_sys		equ	*-sys_tbl
		ENDP


;
; 22-Jan-92 MSD: Moved all non-zero items in the data to the start of
; the proc so that all of the zero bytes would be contiguous.  This
; should help the FST sparsify itself (and reduce disk space).
;

;======================================================================
;below are virtual pointers returned by GS/OS.  Init these to zero
;on startup 
		EXPORT	data		
data		PROC

		Export	dummy_name
dummy_name	dc.b	'cant.find.me'	;used to calculate the latest mod date
		dc.w	00
		EXPORT	time_stamp_opt
time_stamp_opt	DC.W	02		;0 = files
;                                       ;1 = files + subdirs
;                                       ;2 = files + subdirs + subdirs to root
;
		EXPORT	dir_offset_tbl
dir_offset_tbl	DC.W	$0004		;offsets to directory entries within
		DC.W	$002b		;a directory block
		DC.W	$0052
		DC.W	$0079
		DC.W	$00A0
		DC.W	$00C7
		DC.W	$00EE
		DC.W	$0115
		DC.W	$013C
		DC.W	$0163
		DC.W	$018A
		DC.W	$01B1
		DC.W	$01D8

		export	fake_name_str
fake_name_str	DC.W	3		;fake name string for VCR
		DC.B	$C
		DC.B	$A
		DC.B	$E
		DC.B	$00
		
		export	syntax_str
syntax_str	DC.B	end_text-start_text			
start_text	DC.B	'ProDOS names must begin with a letter. '
		DC.B	'They may be up to 15 characters long and may contain '
		DC.B	'letters, digits'
	if AllowLCPeriods then	;added 7-Aug-91 DAL
		DC.B	', spaces'
	endif			;end 7-Aug-91 DAL
		DC.B	' and periods.'
end_text

		EXPORT	format_header
format_header				; 
		DC.W	$0000		;backword link is nill
		DC.W	$0003		;forward link to block three
		EXPORT	new_vol_name
new_vol_name	DC.B	00		;length plus storage type
		DS.B	15		;fifteen bytes for the name
		DS.B	2		;eight bytes reserved
		Export	new_vol_mod
new_vol_mod	ds.b	4		;four byte for the Mod time
		ds.b	2		;2 bytes for the case bits
		EXPORT	new_vol_date
new_vol_date	DS.B	4		;create date for the volume
		DC.B	prodos_version
		DC.B	00		;minimum version (back to SOS 1.0)
		DC.B	$C3		;access
		DC.B	$27		;entry length  (39)
		DC.B	$0D		;entries per block (13)
		DC.W	$0000		;file count is nill
		DC.W	$0006		;bitmap pointer
		EXPORT	new_tot_blks
new_tot_blks	DC.W	$0000		;total number of blocks on the volume

		EXPORT	control_list
control_list				;partion string
		DC.W	$0E		;length increased by 2 7/26/90, see below
		DC.B	'Apple_PRODOS'
		dc.b 0,0		;terminator nulls added 7/26/90 for compatibility with
					;Macintosh-side FSM, by Matt Gulick, Monte Benaresh

		Export	key_blk_changed
key_blk_changed	dc.w	00		;used by set EOF to indicate that the file changed structure

;======================================================================
;below is the startup tables for each call. The table contains the
;following data:
;
;               1) Max PCount for the call
;               2) Max Class for the call
;               3) Pathnames used by call
;               4) volume control record used
;               5) file control record used.
;               6) io buffer used (data_ptr,Index_ptr,master_ptr)
;               7) flush file before call
;               8) damaged disk protect
;		9) Check Dirty Flag.
;
;            |9|8|7|6|5|4|3|  2  |    1    |
;           _|_|_|_|_|_|_|_|_____|_________|
;          | | | | | | | | | | | | | | | | |
;          |_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|
;          |               |               |
;         1 6             0 8             0 0


		EXPORT	start_tbl
start_tbl
		DC.W	max_pcnt7+max_class1+path_used+damage 				;Create
		DC.W	max_pcnt1+max_class1+path_used+damage 				;Destroy
		DC.W	0000
		DC.W	max_pcnt3+max_class1+path_used+damage 				;ChangePath
								; set max pCount=3 (5-Dec-91 MSD)
		DC.W	max_pcnt12+max_class1+path_used+damage 				;SetFileInfo
		DC.W	max_pcnt12+max_class1+path_used					;GetFileInfo
		DC.W	max_pcnt6+max_class1						;JudgeName
		DC.W	max_pcnt6+max_class1 						;Volume
		DC.W	0000
		DC.W	0000
		DC.W	max_pcnt1+max_class1+path_used+damage 				;ClearBackup
		DC.W	0000
		DC.W	0000
		DC.W	0000
		DC.W	0000
		DC.W	max_pcnt15+max_class1+path_used					;Open
		DC.W	0000
		DC.W	max_pcnt5+max_class1+vcr_used+fcr_used+io_used			;Read
		DC.W	max_pcnt5+max_class1+vcr_used+fcr_used+io_used+damage+do_dirty	;Write
		DC.W	max_pcnt1+max_class1+vcr_used+fcr_used+io_used 			;Close
		DC.W	max_pcnt2+max_class1+vcr_used+fcr_used+io_used+damage		;Flush
		DC.W	max_pcnt4+max_class1+vcr_used+fcr_used+io_used			;SetMark
		DC.W	max_pcnt2+max_class1+fcr_used 					;GetMark
		DC.W	max_pcnt3+max_class1+vcr_used+fcr_used+flush_1st+io_used+damage+do_dirty	;SetEof
		DC.W	max_pcnt2+max_class1+fcr_used 					;GetEof
		DC.W	0000
		DC.W	0000
		DC.W	max_pcnt17+max_class1+vcr_used+fcr_used+io_used			;GetDirEntry
		DC.W	0000
		DC.W	0000
		DC.W	0000
		DC.W	max_pcnt2+max_class1+path_used 					;GetDevNum
		DC.W	0000
		DC.W	0000								;ReadBlock
		DC.W	0000								;WriteBlock
		DC.W	max_pcnt6+max_class1+path_used 					;Format
		DC.W	max_pcnt6+max_class1+path_used 					;Erase

		EXPORT	gbuf_addr
gbuf_addr	DC.L	0		;pointer to general I/O buffer
		EXPORT	virtual
virtual		DC.L	0		;pointer to virtual memory after
;                                       ;a call to 'Get_Segment'
		EXPORT	virtual2
virtual2	DC.L	00

;======================================================================
;data storage used
		EXPORT	hours
hours		DC.W	00
		EXPORT	minutes
minutes		DC.W	00
		EXPORT	year
year		DC.W	00
		EXPORT	month
month		DC.W	00
		EXPORT	day
day		DC.W	00
		EXPORT	day_of_week
day_of_week	DC.W	00
		EXPORT	pro_time
pro_time	DC.L	00

		Export	write_occurred
write_occurred	dc.w	00		;IF non-zero on exit then a write occurred
		Export	write_dev_num	;device number that was written too
write_dev_num	dc.w	00

		Export	curr_mod_date
curr_mod_date	dc.l	00

		Export	case_bits	;case bits for the last pathname
case_bits	dc.w	00
		Export	case_bit_pattern
case_bit_pattern dc.w	00

		EXPORT	src_dev_num
src_dev_num	DC.W	00		;used by change path
		EXPORT	src_start_blk
src_start_blk	DC.W	00		;''
		EXPORT	src_dir_blk
src_dir_blk	DC.W	00		;''
		EXPORT	src_offset
src_offset	DC.W	00

		EXPORT	slug_block
slug_block	DC.W	00		;for slug ripple 'to root time stamp'
		EXPORT	slug_offset
slug_offset	DC.W	00
		EXPORT	close_flag
close_flag	DC.W	00		;used to determine if we should call
;                                       ;slug_ripple from flush_file
;
		EXPORT	src_slug_blk
src_slug_blk	DC.W	00		;used by change_path
		EXPORT	src_slug_offset
src_slug_offset	DC.W	00
		EXPORT	dest_slug_blk
dest_slug_blk	DC.W	00
		EXPORT	dest_slug_offset
dest_slug_offset DC.W	00


		EXPORT	dest_dev_num
dest_dev_num	DC.W	00		;used by change path
		EXPORT	dest_start_blk
dest_start_blk	DC.W	00		;''
		EXPORT	dest_dir_blk
dest_dir_blk	DC.W	00		;''
		EXPORT	dest_offset
dest_offset	DC.W	00
		EXPORT	vol_rename_flag
vol_rename_flag	DC.W	00		;''

		EXPORT	direct_page
direct_page	DS.B	$4C		;used when we must mount a volume
		EXPORT	my_direct
my_direct	DS.B	$78		;''
		EXPORT	world_flag
world_flag	DC.W	00		;detect re-entrent code

		EXPORT	def_dir_page
def_dir_page	DS.B	$4C		;used when we flush deferred blocks
		EXPORT	def_my_direct
def_my_direct	DS.B	$78		;''
		EXPORT	def_vol_name
def_vol_name	DS.B	20
		EXPORT	alloc_chk_flag
alloc_chk_flag	DC.W	00		;used by write routine
		EXPORT	seq_write_start
seq_write_start	DC.L	00		;pointer used by write routine
		EXPORT	seq_write_cnt
seq_write_cnt	DC.W	00		;sequential block counter
		EXPORT	seq_write_blk
seq_write_blk	DC.W	00		;starting block for sequential write

		EXPORT	path_searched
path_searched	DC.W	00		;set by find file.
;
		EXPORT	last_blk
last_blk	DC.W	0		;used by find_file to verify
;                                       ;directory structure
;
;
		EXPORT	search_flag
search_flag	DC.W	00		;flag used by process path
;                                       ; bit 15 = volume name not allowed
;                                       ; bit 14 = search for new entry
;					; bit 13 = volume only allowed
;
		EXPORT	dir_start_blk
dir_start_blk	DC.W	00		;starting block of a directory
		EXPORT	dir_last_blk
dir_last_blk	DC.W	00		;last block read by find file
		EXPORT	free_dir_blk
free_dir_blk	DC.W	00		;1st dir block with a free entry
		EXPORT	free_dir_offset
free_dir_offset	DC.W	00		;offset to free entry in dir block
		EXPORT	searching_free
searching_free	DC.W	00		;flag that is used by Find_File

		EXPORT	blks_used1
blks_used1	DC.W	00		;blks needed for data fork. (create)
		EXPORT	blks_used2
blks_used2	DC.W	00		;blks needed for res. fork. (create)
		EXPORT	blocks_needed
blocks_needed	DC.W	00		;total blocks needed for files. (create)
		EXPORT	data_storage
data_storage	DC.W	00		;storage type for data fork
		EXPORT	res_storage
res_storage	DC.W	00		;storage type for resource fork
		EXPORT	res_tot_blks
res_tot_blks	DC.W	00		;used by create
		EXPORT	res_key_blk
res_key_blk	DC.W	00		;''
		EXPORT	some_free
some_free	DC.W	00		;used by find_free_blks

		EXPORT	volume_name
volume_name	DS.B	20		;holds the volume name of an input str
		EXPORT	gstring
gstring		DS.B	20		;holds gstrings

		EXPORT	search_length
search_length	DC.W	00		;used by 'find_file' routine
		EXPORT	search_name
search_name	DS.B	17


		EXPORT	fcr_wanted
fcr_wanted	DC.W	00		;used by check_dup routine
		EXPORT	key_block
key_block	DC.W	00		;used by check_dup routine

		EXPORT	find_this_entry
find_this_entry	DC.W	00		;used by get dir entry

		EXPORT	entry_sto_type
entry_sto_type	DC.W	00
		EXPORT	storage_type
storage_type	DC.W	00		;used by open
		EXPORT	alloc_entry
alloc_entry	DC.B	00		;used to give entry name a length word
		EXPORT	one_entry
one_entry	DS.B	40		;holds one directory entry
		EXPORT	files_key_block
files_key_block	DC.W	00		;used by open
		
		EXPORT	hold_path_ptr
hold_path_ptr	DC.W	00

		EXPORT	data_eof
data_eof	DC.L	00		;used by create
		EXPORT	res_eof
res_eof		DC.L	00		;used by create
		EXPORT	tree_key_blk
tree_key_blk	DC.W	00		;used by create
		EXPORT	tree_blks
tree_blks	DC.W	00		;used by create

		EXPORT	parent_blk
parent_blk	DC.W	00		;used by the open routine
		EXPORT	entry_offset
entry_offset	DC.W	00		;used by the open routine

		EXPORT	num_of_res
num_of_res	DC.W	00		;used by open

		EXPORT	newline_len
newline_len	DC.W	00
		EXPORT	newline_mask
newline_mask	DC.W	00
		EXPORT	newline_char
newline_char	DC.W	00

		EXPORT	base
base		DC.W	00		;used with calls that have base param
		EXPORT	displacement
displacement	DC.L	00		;used with calls that have displacement

		EXPORT	purge_addr
purge_addr	DC.W	00		;block address of purgable files
		EXPORT	new_last
new_last	DC.W	00		;used to cut back eof (SET_EOF)

		EXPORT	bitmap_blks
bitmap_blks	DC.W	00		;used to calc_free_blks
		EXPORT	last_bitmap
last_bitmap	DC.W	00		;''                  ''
		EXPORT	first_free
first_free	DC.W	00		;''                  ''
		EXPORT	bits
bits		DC.W	00		;used to count bits in calc_free_blks
		EXPORT	alloc_count
alloc_count	DC.W	00		;used by find_free_blks
		EXPORT	alloc_start
alloc_start	DC.W	00		;''
		EXPORT	byte_offset
byte_offset	DC.W	00		;''

		EXPORT	mark_changed
mark_changed	DC.W	00		;used by fill_io_buf (setmark=EOF case)
		EXPORT	user_cache
user_cache	DC.W	00		;default cache value for file reads

		EXPORT	create_time
create_time	DC.L	00		;used by set_file_info
		EXPORT	mod_time
mod_time	DC.L	00		;used by set_file_info

		EXPORT	first_free_bm
first_free_bm	DC.W	00

		EXPORT	index_blks
index_blks	DC.W	00		;number of indexes needed for tree files
		EXPORT	data_indexes
data_indexes	DC.W	00		;used by create
		EXPORT	res_indexes
res_indexes	DC.W	00		;used by create.

		EXPORT	entries_blk_num
entries_blk_num	DC.W	00
		EXPORT	files_examined
files_examined	DC.W	00
		EXPORT	files_in_dir
files_in_dir	DC.W	00
		EXPORT	pcount
pcount		DC.W	00
		EXPORT	resource_num
resource_num	DC.W	00
		EXPORT	access
access		DC.W	00
		EXPORT	and_mask
and_mask	DC.W	00
		EXPORT	curr_mark
curr_mark	DC.L	00
		EXPORT	curr_eof
curr_eof	DC.L	00
		EXPORT	tran_cnt
tran_cnt	DC.L	00
		EXPORT	user_req_cnt
user_req_cnt	DC.L	00
		EXPORT	entries_checked
entries_checked	DC.W	00
		EXPORT	chars_checked
chars_checked	DC.W	00
		EXPORT	name_length
name_length	DC.W	00
		EXPORT	flush_entry
flush_entry	dc.w	00		;allows us to flush only the I/O buffer
		EXPORT	Users_access
users_access	dc.w	00		;used during the open call
		
		Export	dirty_flags	;flags at the beginning of the call
dirty_flags	dc.w	00
		Export	flush_flags
flush_flags	dc.w	00		;used by the flush routines

		export	chk_dirty_flag	;flag used to indicate that the call can cause dirty blocks
chk_dirty_flag	dc.w	00
		export	dirty_cnt_changed
dirty_cnt_changed dc.w	00		;indicates that we have changed the dirty_cnt once

		export	new_eof
new_eof		dc.l	00		;used by set EOF

		export	cp_device_flag
cp_device_flag	DC.W	00		;1 = ChangePath using device name, else 0

		export	cp_flags	;Added 5-Dec-91 MSD
cp_flags	DC.W	00		;$8000 = assume source is duplicate volume

		export	cp_to_child	; non-zero if ChangePath trying to move an item
cp_to_child	dc.w	00		; into its own child (i.e. :A:B to :A:B:C).

		export	hfs_flag
hfs_flag	DC.W	00		;1 = we have HFS Finder Info, else 0

		export	hfs_finfo
hfs_finfo	DS.B	32		;storage area for HFS Finder Info

		export	error_priority
error_priority	DC.W	00		;storage for error priority


;======================================================================
;Data used by Format and Erase disk calls

		EXPORT	format_ctrl
format_ctrl	DC.W	00		;length of control list

		EXPORT	status_list
status_list	DC.W	00		;status code
		EXPORT	return_blks
return_blks	DC.L	00000		;number of blocks on device

		EXPORT	entries_offset
entries_offset	dc.w	00		;offset to directory entry
		export	gde_temp
gde_temp	dc.w	00		; temp used by GetDirEntry

;driver save area

		EXPORT	drvr_save
drvr_save	DS.B	$1b		;save room for direct page

;equates used by 'setup_params'

		EXPORT	class
class		DC.W	00
		EXPORT	max_pcount
max_pcount	DC.W	00
		EXPORT	flags
flags		DC.W	00

*** added 28-Feb-92 DAL
;
; Used by chk_disk_protect to save the first 512 bytes of GBUF
;
		export chk_protect_gbuf
chk_protect_gbuf ds.b 512
*** end 28-Feb-92 DAL

		ENDP
		
expand_record	Record
expand_flag	dc.w	00
expand_file	dc.w	00			;used to indicate we are extending a file
expand_storage	dc.w	00			;storage type of the data fork on extension
expand_key_blk	dc.w	00
expand_blks_used dc.w	00
expand_eof	dc.l	00

		endr
		
;==========================================================================
; Prodos universal boot loader.  This is the second stage boot
; for all apple manufactured Apple II disk drives.
; It is located at block zero (0) of a ProDOS formatted disk(ette).
; Support for Apple /// has been removed to save space.
;
;Rev History:
;
;Jan 12, 1988   By Rob Turner
;
;               Removed Apple /// (SOS) support and converted source to APW
;
;Jun 02, 1988	By Rob Turner
;
;		Changed the boot code to handle a sparse ProDOS file.
;
;==========================================================================

boot_code_start	proc	
		endp
		
		msb	off
		longa	off
		longi	off
		MACHINE	M6502		

		EXPORT	boot_code	
boot_code	PROC	temporg $000800

dcmd		equ	$42		;disk command (=1 for read)
unit		equ	$43		;(16*slot)+(128*(drive-1))
buff		equ	$44		;ram address
blok		equ	$46		;disk address

dent		equ	$48		;device call entry address.
idxl		equ	$4a		;pointer to low page of index block
idxh		equ	$4c		;pointer to high page of index block
idxp		equ	$4e		;index byte pointer.
iobuff		equ	$60		

; the following are for disk ii only:

dbuf		equ	$26
slotz		equ	$2b		
oddbits		equ	$3c		
sector		equ	$3d		
trktmp		equ	$40		
track		equ	$41
prior		equ	$50		
trkn		equ	$51		
rtrycnt		equ	$52		
curtrk		equ	$53		
trkcnt		equ	$54		
*
q6l		equ	$c08c
motoron		equ	$c089
motoroff	equ	$c088
phaseoff	equ	$c080
nbuf1		equ	$300
dnib		equ	$2d6

* directory dependent stuff...

clrscrn		equ	$fc58
scrn		equ	$5b1				;5ae
dostyp		equ	$ff
sosid		equ	$c00
entlen		equ	sosid+$23	
kernel		equ	$2000


zzstart		equ	$09F2
rd1		equ	$09F2
rd1a		equ	$09F7
mod1		equ	$0008
chg1		equ	$FFF4
rd2		equ	$09FB
rd3		equ	$0A05
mod2		equ	$001E
chg2		equ	$FFD7
mod3		equ	$0024
rdhd0		equ	$0A15
chg3		equ	$FFD1
rdhd1		equ	$0A17
rdhd2		equ	$0A19
rdhd3		equ	$0A1B
rdhd4		equ	$0A23
mod4		equ	$003F
chg4		equ	$FFB6
mod5		equ	$0045
chg5a		equ	$0A38
mod6		equ	$0047
chg6		equ	$FFB4
rddt1		equ	$0A3A
rddt1a		equ	$0A3C
rddt2		equ	$0A3E
rddt3		equ	$0A4E
rddt4		equ	$0A50
rdchk		equ	$0A5F
mod7		equ	$0076
chg7		equ	$FFAC
nxttwo		equ	$0A6B
twobit		equ	$0A6D
zzzend		equ	$0A7F
chg5		equ	$004B
goseek		equ	$0A83


;==========================================================================
;Main Entry Point For Booting Apple II Computer.
;==========================================================================

xboot		DC.B	$01		;(prodos boot id)
entry		sec			;(apple iii enters xboot 'ora $38')
		bcs	entry1		;branch if not apple iii native mode.
		jmp	booterr		;Apple /// Boot.

entry1		sei			;disable interupts so we can boot on the IIGS with debugger
		stx	unit		;save unit number.
		cmp	#$03		;for disk ii.
		php			;save result, it may be irrelevent.
		txa			;find out if disk ii.
		and	#$70		;strip drive # if any.
		lsr	a
		lsr	a		;get slot address.
		lsr	a
		lsr	a
		ora	#$c0
		sta	dent+1
		ldy	#$ff		;look at last byte.
		sty	dent
		plp			;restore carry (if disk ii & sect 0&2 read carry set).
		iny			;make y=0
		lda	(dent),y	;get device entry addr.
		bne	ndsk2		;branch if not disk ii (16 sector).
		bcs	isdsk2		;branch if it is disk ii, but block 0 read.
		lda	#3		;make rom read only sector 2
		sta	xboot		;to complete block 0 
		inc	sector		;(was = 1)
		lda	dent+1		;do rts to re-enter rom.
		pha
		lda	#$5b
		pha
		rts			;go read sector 2 into $900.

isdsk2		sta	trktmp		;make sure previous track =0
		sta	dent		;and dent points at beginning of slot
		ldy	#$5e		;move code from card to ram
mvboot		lda	(dent),y
		sta	zzstart-$5e,y
		iny
		cpy	#$eb		;have we moved enough?
		bne	mvboot
		ldx	#6		;now modify code to handle errors.
modboot		ldy	mods,x
		lda	chgs,x
		sta	zzstart,y
		lda	endcode,x
		sta	zzzend,x
		dex
		bpl	modboot
		lda	#>d2io		;reset device entry
		sta	dent+1		; to point at disk ii routines.
		lda	#<d2io		;get low addr (must be <$80)
ndsk2		ldy	#0		;make sure y=0 again.
		cmp	#$f9
		bcs	bterr1		;branch if not bootable device.
		sta	dent		;save low adr of device call entry.
		sty	iobuff
		sty	idxl
		sty	idxh		;(y=0)
		sty	idxp
		sty	blok+1
		iny
		sty	dcmd		;set read command.
		iny
		sty	blok		; to read directory blocks 
		lda	#$c		; 2-5 at $c00 
		sta	iobuff+1
		sta	idxl+1

rddir		jsr	goread		;call read block routine.
		bcs	bterr2		;give up on error.
		inc	iobuff+1
		inc	iobuff+1
		inc	blok
		lda	blok		;have all directory blocks been read?
		cmp	#6
		bcc	rddir		;loop if not.

		lda	sosid		;is it a prodos (sos) directory?
		ora	sosid+1		
bterr1		bne	bterr2		;booterr		;branch if not.
		lda	#4		;begin look-up with first entry past header.
		bne	nxdent1		;branch always
nxdent		lda	idxl
nxdent1		clc
		adc	entlen		;bump to next directory entry.
		tay			;save in y for now.
		bcc	nxdent2		;branch if not a page cross.
		inc	idxl+1
		lda	idxl+1		;check for new block.
		lsr	a		;if even then new block.
		bcs	nxdent2
		cmp	#$a		;have all file names been compared?
		beq	nopro		;branch if no pro.kernel.
		ldy	#4		;else, begin at block beginning.
nxdent2		sty	idxl		;note: this method treats garbage at
		lda	sysname		; the end of the dir block as an entry.
		and	#$f		;get target name length.
		tay
lookpro		lda	(idxl),y	;look for matching name.
		cmp	sysname,y	;last to first method.
		bne	nxdent		;branch if no match.
		dey			;else check all characters.
		bpl	lookpro		;including length/storage type.
		
		ldy	#$16		;convert eof to blks.
		lda	(idxl),y
		lsr	a		;convert to blocks
		adc	blk_count
		sta	blk_count

;		ldy	#$10		;get file type & index block addr.
;		lda	(idxl),y
;		cmp	#dostyp		;is it a system file?
;		bne	booterr
;		iny

		ldy	#$11		;starting block of the file
		lda	(idxl),y
		sta	blok
		iny
		lda	(idxl),y
		sta	blok+1
		lda	#0		;now set up to read kernel.
		sta	idxl
		ldy	#$1e		;read index block at $1e00 and
		sty	idxl+1		; kernel at $2000
		sty	iobuff+1
		iny
		sty	idxh+1		
rdkernl		jsr	goread		;read index block.
bterr2		bcs	booterr

		inc	iobuff+1	;setup pointer for the next block please
		inc	iobuff+1
@sparse_return
		ldy	idxp		;get index pointer
		inc	idxp		;bump for next time.
		
		lda	(idxl),y
		sta	blok
		lda	(idxh),y	;high disk addr.
		sta	blok+1
		ora	(idxl),y	;if both=0 then done. (This was changed to handle sparse)
		bne	not_sparse
		
		ldx	#$01
		lda	#$00		;clear the block please
		tay
@1		sta	(ioBuff),y
		iny
		bne	@1		;clear the low page
		inc	ioBuff+1	;bump to the next page
		nop
		nop			;keep things aligned please
		dex
		bpl	@1		;clear the high page
		dec	blk_count
		beq	go_kernel
		bne	@sparse_return
not_sparse
		dec	blk_count	;are we done yet
		bne	rdkernl		;branch if more to read.
go_kernel
		cli			;enable interupts before calling ProDOS
		jmp	kernel		;go execute kernel code.

nopro		equ	*
booterr		equ	*
		jmp	quitmes		

blk_count	dc.b	02
		msb	off
sysname		DC.B	$26
		DC.B	'PRODOS' 

goread		lda	iobuff
		sta	buff
		lda	iobuff+1
		sta	buff+1
		jmp	(dent)
*
mods		DC.B	mod1,mod2,mod3,mod4
		DC.B	mod5,mod6,mod7
*
chgs		DC.B	chg1**$FF,chg2**$FF,chg3**$FF,chg4**$FF
		DC.B	chg5**$FF,chg6**$FF,chg7**$FF
*

endcode		equ	*
		ldx	slotz
		clc
		rts
		jmp	seek
*
quitmes		jsr	clrscrn		;clear video.
		ldy	#meslen		;print message centered on screen.
prmess		lda	errmess,y
		sta	scrn,y
		dey
		bpl	prmess
hang		jmp	hang
*
		msb	on
meslen		equ	20		
errmess		DC.B	'UNABLE TO LOAD PRODOS'
		

********************************************************************************
* This code MUST be aligned to $16D ($96D Absolute) relative address. Otherwise
* disk][s will not work. This is a major pain in the butt.
********************************************************************************

setphase	lda	curtrk		;get current track
clrphase	and	#3		;mask for 1 of 4 phases
		rol	a		;double for phaseon/off index
		ora	slotz		
		tax
		lda	phaseoff,x	;turn on/off one phase
		lda	#$2c		
**************************
*                        *
*   mswait subroutine    *
*                        *
**************************
mswait		ldx	#$11
msw1		dex			;delay 86 usec.
		bne	msw1
		sbc	#$1		;done 'n' intervals?
		bne	mswait		;(a-reg counts)
		ldx	slotz		;restore x-reg
		rts
*
*
d2io		lda	blok		;figure out track & sector.
		and	#7		;strip track for now.
		cmp	#4
		and	#3
		php
		asl	a
		plp
		rol	a		;now we have the first sector of block.
		sta	sector
		lda	blok+1		;get high block #
		lsr	a		;shift hi addr to carry.
		lda	blok		;now figure track #
		ror	a
		lsr	a
		lsr	a		
		sta	track
		asl	a
		sta	trkn
		lda	buff+1
		sta	dbuf+1
		ldx	slotz
		lda	motoron,x
		jsr	rdsector	;go read sector.
		inc	dbuf+1		;bump address
		inc	sector
		inc	sector		;and sector #
		bcs	quitrd		;branch if error.
		jsr	rdsector
quitrd		ldy	motoroff,x
erretrn		rts			;return error status in carry.
*
rdsector	equ	*		;do seek then read sector.
*
seek		lda	trktmp		;get track we're on.
		asl	a
		sta	curtrk
		lda	#$0
		sta	trkcnt		;halftrack count.
seek2		lda	curtrk		;save curtrk for
		sta	prior		;delayed turnoff.
		sec
		sbc	trkn		;delta-tracks.
		beq	seekend		;br if curtrk=destination
		bcs	out		;(move out, not in)
		inc	curtrk		;incr current track (in).
		bcc	skin		;(always taken)
out		dec	curtrk		;decr current track (out).
skin		sec
step2		jsr	setphase
		lda	prior
		clc			;for phaseoff
		jsr	clrphase	;de-energize previous phase.
		bne	seek2		;(always taken)
seekend		equ	*		
*
rdsect1		ldy	#$7f		;allow 127 mistakes.
		sty	rtrycnt		
		php
*
tryread		plp			;fix stack.

rdhead		sec			;anticipate error.
		dec	rtrycnt		;if = 0 then give up!
		beq	erretrn		;branch if can't fine/read sector.
		clc			;indicate reading header.
rddata		php			;carry set if reading sector.
rd0		dey			;every time y=0 decrement find count.
		beq	tryread		
		
		MACHINE	M65816		;start using 65816 code again
		msb	off
		longa	on
		longi	on
		
		export	boot_size:equ	;export the equate for Max
boot_size	equ	*-xboot
		ENDP

;======================================================================
;Pack_Time:  This routine will read the time from the GS Clock and
;            convert it to packed ProDOS disk format
; 
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..0
;               b = k
;
;Output:        A = undefined
;               X = low word of time
;               Y = High word of time
;
;               time is also stored at Pro_Time and Pro_Time+2 
;
;Format of time:
; 
; |<-------- X Register --------->|<-------- Y Register --------->|
; |                               |                               | 
; |<--high Byte-->|<--low  Byte-->|<--high Byte-->|<--low  Byte-->| 
;  _______________________________________________________________
; | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | |
; |    year     | month |   day   |0 0 0|  hour   |0 0|   minute  |
; |_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|
; 
; 
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Uses:          all register
;               get_time                (Subroutine that reads time)
;               hours,minutes           (data words)
;               year,month,day
; 

		longa	on
		longi	on

		EXPORT	pack_time	
pack_time	PROC

		stz	pro_time
		stz	pro_time+2
		
		jsr	get_time	;read the time from tool set

;We call this entry point if the time parameters are setup and need
;only to be convert to the ProDOS format.

		EXPORT	convert_time
convert_time
		lda	day
		sta	pro_time	;save the day in prodos format
		lda	month
		asl	a
		asl	a
		asl	a
		asl	a
		asl	a		;shift to correct position
		ora	pro_time	;month is now happy
		sta	pro_time
		lda	year

; 27-Jan-92 MSD: Years outside the range 1940..2039 will be converted
; to "unknown" (i.e. all zeroes).
		cmp	#40		; less than 1940?
		blt	@bad_year
		cmp	#140		; 2040 or greater?
		bge	@bad_year
		cmp	#100		; 2000..2039?
		blt	@got_year	; no, so leave as is
		sbc	#100		; convert 2000..2039 to 0..39
@got_year
; End 27-Jan-92 MSD

		xba
		asl	a		;shift year to upper 7 bits
		ora	pro_time
		sta	pro_time
		tax			;return in X register too
		lda	minutes
		sta	pro_time+2
		lda	hours
		xba
		ora	pro_time+2
		sta	pro_time+2	
		tay			;return in Y register
		clc			; 27-Jan-92 MSD: valid date/time
		rts

@bad_year				; year was bad, set date/time
		ldx	#0		; to "unknown" (all zeroes).
		txy
		stx	pro_time
		sty	pro_time+2
		sec			; 27-Jan-92 MSD: invalid date/time
		rts

		ENDP

;======================================================================
;unpack_time:   This routine will unpack a prodos time into a GS/OS time.
;
;Input:         A = undefined
;
;Format of time:
; 
; |<-------- X Register --------->|<-------- Y Register --------->|
; |                               |                               | 
; |<--high Byte-->|<--low  Byte-->|<--high Byte-->|<--low  Byte-->| 
;  _______________________________________________________________
; | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | |
; |    year     | month |   day   |x x x|  hour   |x x|   minute  |
; |_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|
; 
;               P = nvmxdizc
;                   ..000..0
;               b = k
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;               hours                   (Times are all hex format)
;               minutes
;               year
;               month
;               day
;               day_of_week 
;
;Uses:          all register
;               dow_convert             (Subroutine)
;
		longa	on
		longi	on

		EXPORT	unpack_time	
unpack_time	PROC

		stx	pro_time
		sty	pro_time+2

;Init time to zero (unknown)

		jsr	zero_date

		txa
		ora	pro_time+2
		beq	end_unpack

		lda	pro_time
		and	#$001F		;isolate day
		sta	day
		cmp	#32		;valid days are 01 to 31
		bcs	zero_date	;sorry bud you get unknown
		
		tay			;save for DOW convert
		txa			;get year/month/day again (X is still valid here)
		lsr	a
		lsr	a
		lsr	a
		lsr	a
		lsr	a
		and	#$000F		;isolate month
		sta	month
		cmp	#13		;is the month 13 or >?
		bcs	zero_date
		
		tax	
		lda	pro_time
		xba
		lsr	a
		and	#$007F		;isolate the year
		cmp	#40		;year = 40-99?
		bcs	@store_it	;yes, must be 1940-1999
		adc	#100		;else must be 2000-2039, adjust
@store_it
		sta	year
		jsr	dow_convert	;go ahead and calculate the day of week
		sta	day_of_week
		lda	pro_time+2
		and	#$003F		;isolate minutes
		sta	minutes
		cmp	#60
		bcs	zero_date
		
		lda	pro_time+2
		xba
		and	#$001F		;isolate hours
		sta	hours
		cmp	#24
		bcc	end_unpack
		
zero_date				;indicate that the date is unknown
		stz	hours
		stz	minutes
		stz	year
		stz	month
		stz	day
		stz	day_of_week
end_unpack	rts
		ENDP


;======================================================================
;DOW_Convert:This routine convert Month,Day,Year into day of week
;
;Input:         A = Year
;               X = Month
;               Y = Day
;               P = saved
;               b = k
;
;Output:        A = day of week
;               X = undefined
;               Y = undefined
;               P = restored
;               b = k
;
;Uses:          all register
;               local temps 
;
		longa	off
		longi	off		

		EXPORT	dow_convert	
dow_convert	PROC
		php
		sep	#$30
		phy
		tay

;Figure the number of leap years since 1900

		lsr	a
		lsr	a
		sta	dow_temp

;If it's a leap year and it's Jan or Feb subtract 1 from the total

		tya			;get the year back
		and	#%00000011
		bne	stim015
		cpx	#03
		bcs	stim015
		dey

;add the number of leap years elapsed, the year, a constant for the
;month, and the day
		
stim015
		clc
		tya			;get the year again
		adc	dow_temp	;# of leap years since 1900
		adc	wkmon-1,x
		adc	1,s
		ply			;clean the stack

;Now mod the result by seven, but exit in the range [1..7]

		sec
stim016					; 
		sbc	#07
		cmp	#08
		bcs	stim016
		plp			;restore mode
		rts

dow_temp	DC.B	0

wkmon		DC.B	$08,$0B,$0B,$07,$09,$0C,$07,$0A,$0D,$08,$0B,$0D
		
		ENDP
		
;======================================================================
;get_time:   This routine will read the time from the GS Clock.
;
; 
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..0
;               b = k
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               hours,minutes
;               year,month,day          ;all are setup with the time
;               day_of_week
;
;uses:          Misc tools              ;(Gets hex time)
; 
;======================================================================

		longa	on
		longi	on
		
		EXPORT	get_time	
get_time	PROC

		lda	#0000		;setup default time to zero
		pha			;minutes,seconds result
		pha			;year,hour results
		pha			;month,day results
		pha			;weekday,null results
		
		ldx	#(read_time_hex*$100)+misc_tools 
		jsl	tool_locator

		longa	off		
		sep	#$20		
		pla			;disregard seconds
		pla
		sta	minutes
		pla
		sta	hours
		pla
		sta	year
		pla

		bcs	no_inc1
		inc	a
no_inc1		sta	day		;convert 0 to 30 ->  1 to 31

		pla
		bcs	no_inc2
		inc	a		
no_inc2		sta	month		;convert 0 to 11 ->  1 to 12

		pla			;null field
		pla
		sta	day_of_week	
		longa	on		
		rep	#$30
		rts
		ENDP
		
		
;============================================================================
;
;Calc_Bit:      This routine will convert a 16 bit block number into
;               the correct index into the bitmap block, the correct pattern
;               to indicate which bit it is, and which relative block in the
;               bitmap contains the bit
;
;Input:         X = Block number to convert
;               m = 0
;               x = 0
;               b = k
;
;Output:        A = Bit Pattern (Which bit that needs to be changed)
;               Y = Byte offset into bitmap block that contains bit
;               X = Relative Block number of the bitmap that contains the bit
;               Carry Clr
;               All other flags undefined
;
;Uses:          Local Table
;               All registers
;

		EXPORT	calc_bit	
calc_bit	PROC

		txa			;X=Block number
		and	#$0007		;isolate bit index    
		tay
		lda	bit_table,y	;get the bit pattern
		and	#$00FF		;table is a byte table
		pha
		txa			;now isolate byte index
		and	#$0FF8
		lsr	a
		lsr	a
		lsr	a
		tay			;Y=Offset into bitmap block     
		jsr	abs_to_rel	;absolute to relative block number
		pla			;A=Bit pattern
		rts

		EXPORT	abs_to_rel
abs_to_rel
		clc
		txa			;now isolate relative block number
		and	#$F000		
		rol	a
		rol	a
		rol	a
		rol	a
		rol	a		
		tax			;X=Relative block number in bitmap
		rts

bit_table	DC.B	$80,$40,$20,$10,$08,$04,$02,$01
		ENDP
		
;============================================================================
;Alloc_block    This routine will allocate a block in the bitmap.
;               If the block is not in memory then it will load it.
;
;Input:         X = Block number that you want to allocate
;               m = 0
;               x = 0
;               b = k
;               prodos_vcr_ptr
;
;Output:        carry clr = no error
;               carry set = could not allocate
;               A = error code if carry set
;                       01 = User would not mount the volume
;               all flags undefined
;
;Uses:          All Registers
;               Calc_bit        (Subroutine)
;               Get_Bit_block   (Subroutine)
;               bitmap_changed  (Subroutine)
;
		
		EXPORT	alloc_block	
alloc_block	PROC

		jsr	calc_bit	;calculate bit(A),byte(Y),block(X)
		pha
		phy
		jsr	get_bit_block	;load the correct block if needed
		ply
		pla
		tax			;save mask
		bcs	done		;could not load block from disk
		and	[bitmap],y	;is the block already allocated?
		beq	bitmap_corrupt	;the bitmap is in bad shape, sorry.
		txa			;restore the AND mask
		eor	#$FFFF		;we need to flip the patterns
		and	[Bitmap],y	;clear the correct bit
		sta	[bitmap],y
		jsr	bitmap_changed	;update bitmap flags
		jsr	sub_free_blk	;adjust free block count
done		rts

		EXPORT	bitmap_corrupt
bitmap_corrupt				;we get here if the bitmap is corrupt
		lda	#damaged_bitmap
		sec
		rts			;return the error

		EXPORT	sub_free_blk
sub_free_blk
		ldy	#free_blocks
		lda	[prodos_vcr_ptr],y
		inc	a
		beq	who_knows
		dec	a		;$FFFF = major problem
		dec	a
		sta	[prodos_vcr_ptr],y
who_knows
		clc
		rts

		ENDP

;============================================================================
;DeAlloc_block  This routine will deallocate a block in the bitmap.
;               If the bitmap block is not in memory then it will load it.
;               The routine will also update the free block count if needed
;
;Input:         X = Block number that you want to deallocate
;               m = 0
;               x = 0
;               b = k
;               prodos_vcr_ptr          (must be setup)
;               my_vcr_ptr              (must be setup)
;
;Output:        carry clr = no error
;               carry set = could not allocate
;               A = error code if carry set
;                       01 = User would not mount the volume
;               all flags undefined
;
;Uses:          All Registers
;               Calc_bit        (Subroutine)
;               Get_Bit_block   (Subroutine)
;

		EXPORT	dealloc_block	
dealloc_block	PROC

		jsr	calc_bit	;calculate bit(A),byte(Y),block(X)
		phx
		pha
		phy
		jsr	get_bit_block	;load the correct block if needed
		ply
		pla
		plx
		bcs	done		;could not load block from disk
		pha			;save the mask please
		and	[bitmap],y	;is the block already deallocated?
		beq	no_prob		;the block is currently allocated
		pla			;fix the stack
		bra	bitmap_corrupt	;return the error please

no_prob					; 
		pla			;restore the mask please
		ora	[bitmap],y	;set the correct bit
		sta	[bitmap],y

;We have just deallocated some blocks so lets make sure the first bitmap block
;that contains available space is correct for the current VCR

		ldy	#avail_bitmap
		txa			;relative block number
		cmp	[prodos_vcr_ptr],y
;
; 2/3/90	Mensch, Hauser,Benaresh
;
; Rob says that avail_bitmap should *ALWAYS* be equal to the lowest bitmap
; block that has space in it. So, the branch that was a BEQ should really be
; a BCS (BGE) this way, so it will work right.
;

		bge	go_changed	;the relative block num is the same

;If we freed up a block in a previously full bitmap then lets update the VCR

		sta	[prodos_vcr_ptr],y

go_changed
		jsr	add_free_blk
		EXPORT	bitmap_changed
bitmap_changed
		clc

;==========================================================================
;This routine will mark the current bitmap block dirty.  NOTE: This routine
;must not change the state of the carry.

		ldy	#bitmap_dirty
		lda	#bitmap_mod	;bitmap modified
		sta	[prodos_vcr_ptr],y
done		rts

;==========================================================================
;This routine will add one to the free block count for a volume.  If the
;number of free blocks is unknown then the routine will just exit.

		EXPORT	add_free_blk
add_free_blk
		ldy	#free_blocks
		lda	[prodos_vcr_ptr],y
		inc	a		;$FFFF = free block count unknown
		beq	end_free	;free block count is not known
		sta	[prodos_vcr_ptr],y
end_free
		rts

		ENDP


;==========================================================================
;get_bit_block: This routine will load in the correct bitmap block from
;               disk.  If the correct block is already loaded then the
;               routine will just exit.
;
;Input:         A = undefined
;               X = relative block number to load
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               prodos_vcr_ptr          (must be setup correctly)
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;               bitmap                  (points to bitmap buffer)
;               drvr_buf_ptr            (same as bitmap)
;
;Uses:          All registers
;               device_call
;               drvr_call_num
;

		longa	on
		longi	on

		EXPORT	get_bit_block	
get_bit_block	PROC

		phx			;save the block number

		jsr	setup_bitmap_ptr

		stx	drvr_buf_ptr
		stx	bitmap
		sty	drvr_buf_ptr+2
		sty	bitmap+2

		pla			;retore relative block number
		sta	math_temp
		ldy	#curr_bitmap
		cmp	[prodos_vcr_ptr],y
		beq	good_exit

		pha

;force dirty bitmap block back to disk if needed.

		jsr	force_bitmap	;force the bitmap to disk
		bcc	flushed
		plx
		rts

flushed

;If we get here we have to calculate the right block to read into memory

		pla
		clc
		ldy	#vol_bitmap_addr
		adc	[prodos_vcr_ptr],y
		sta	drvr_blk_num
		jsr	read_with_cache
		bcc	read_ok
		jsr	kill_bitmap
		sec
		rts			;return the error

read_ok

;Now we need to update the current bitmap

		ldy	#curr_bitmap
		lda	math_temp
		sta	[prodos_vcr_ptr],y

good_exit
		clc
		rts

		ENDP

;==========================================================================
;calc_free_blks This routine will calculate the number of blocks that are
;               free on a volume.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               prodos_vcr_ptr          (must be setup correctly)
;               drvr_dev_num            (must be setup up)
;
;Output:        A = error code if carry set otherwise total blocks free
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;Uses:          All registers
;               device_call
;               I/O buffer
;

		longa	on
		longi	on

		EXPORT	calc_free_blks	
calc_free_blks	PROC

;before we start going to disk lets see if we already know the number of
;free blocks.   IF free_blocks = $FFFF then free blocks are unknown.

		ldy	#free_blocks
		lda	[prodos_vcr_ptr],y
		inc	a
		beq	go_figure	;we need to calculate it
		dec	a		;A = total blocks
		clc
		rts

go_figure
		jsr	force_bitmap	;flush the bitmap if needed

;setup the buffer pointer to the general I/O buffer provided by GS/OS shell

		stz	first_free_bm	;indicate that we do not know free cnt

;First lets see if there is already a bitmap buffer allocated.  If so
;lets use it as our I/O buffer.

		jsr	setup_bitmap_ptr
		stx	drvr_buf_ptr
		sty	drvr_buf_ptr+2

;read 512 bytes from the disk.

		jsr	standard_req

;go do a run on the bitmap calculating the number of blocks free

		stz	math_temp	;counts the free blocks

		ldy	#vol_bitmap_addr
		lda	[prodos_vcr_ptr],y
		sta	drvr_blk_num	;starting block number of bitmap

		ldy	#num_bitmap_blks
		lda	[prodos_vcr_ptr],y
		sta	bitmap_blks	;number of blocks in the bitmap

		ldy	#end_bitmap	;first byte that should be all zeros
		lda	[prodos_vcr_ptr],y
		sta	last_bitmap

		ldy	#avail_bitmap
		lda	[prodos_vcr_ptr],y
		inc	a
		beq	block_loop
		dec	a
		tay			;save start
		clc
		adc	drvr_blk_num	;adjust the starting block number
		sta	drvr_blk_num

		phy
		sec
		lda	bitmap_blks	;number of blocks to scan
		sbc	1,s		;subtract start block number
		sta	bitmap_blks
		pla

block_loop
		jsr	read_with_cache	;read in a block
		bcc	read_ok
		jsr	kill_bitmap
		sec
		rts			;we should not get any errors

bad_bitmap	lda	#damaged_bitmap
		sec
		rts

read_ok

;update the current bitmap in memory field.
		sec
		ldy	#vol_bitmap_addr
		lda	drvr_blk_num
		sbc	[prodos_vcr_ptr],y
		ldy	#curr_bitmap
		sta	[prodos_vcr_ptr],y

;if this is the last block of the bitmap then verify ending with zeros.

		dec	bitmap_blks
		bne	not_last
		ldy	last_bitmap	;starting location that must be zero
		beq	not_last	;don't bother

zero_loop
		cpy	#$01FF		;are we near the end of the block?
		bcs	setup_index	;If we are this close the end
		lda	[drvr_buf_ptr],y
		bne	bad_bitmap
		iny
		iny
		bra	zero_loop

setup_index
		ldy	last_bitmap
		tya
		lsr	a		;is it an even value?
		bcc	word_loop	;Yes, so fall into loop
		iny			;make it even if it is not
		cpy	#$01FE		;is it now greater then one block
		bcc	word_loop	;no so fall into the loop

not_last
		ldy	#$01FE		;start scanning the block

word_loop
		lda	[drvr_buf_ptr],y
		bne	count_bits
return_loop	dey
		dey
		bpl	word_loop	;keep scanning the block please

		lda	bitmap_blks	;see if we are done
		beq	calc_done	;we are done
		inc	drvr_blk_num	;read next block please
		bra	block_loop

;Check to see if we already know the first bitmap block that contains
;free blocks.  IF we do then just count the blocks free

count_bits
		sta	bits		;save bitmap word

		lda	first_free_bm
		bne	cont_count

;We now know the first bitmap block that contains available blocks, so lets
;save it please.

		phy
		sec
		ldy	#vol_bitmap_addr
		lda	drvr_blk_num
		sta	first_free_bm
		sbc	[prodos_vcr_ptr],y
		ldy	#avail_bitmap
		sta	[prodos_vcr_ptr],y
		ply

cont_count
		ldx	#16		;cycle thru word 16 times
		lda	bits		;get the bit count back
		inc	a		;special case $FFFF to speed calc
		beq	add_16

bit_loop
		dex
		bmi	return_loop	;we have scanned the word
		lsr	bits
		bcc	bit_loop
		inc	math_temp	;advance the count please
		bra	bit_loop

add_16
		clc
		lda	math_temp
		adc	#$0010		;$FFFF = 16 blocks free
		sta	math_temp
		bra	return_loop

;When we get here we have counted all the blocks that are marked as free.
;Now we need to see if there are any blocks marked as purgable.

calc_done
		lda	math_temp	;number of blocks free

;Now lets update the VCR to indicate that we know the number of free blocks

save_and_exit
		ldy	#free_blocks
		sta	[prodos_vcr_ptr],y ;total free count

		jsr	set_user_cache	;restore cache ('A' and 'P' preserved)
		clc
		rts

		EXPORT	kill_bitmap
kill_bitmap
		pha
		lda	#bitmap_unknown	;flag bitmap as unknown
		ldy	#curr_bitmap
		sta	[prodos_vcr_ptr],y
		pla
		rts
		ENDP


;==========================================================================
;find_free_blks This routine will scan the bitmap looking for a sequence
;               of blocks that are marked as free.  The routine will always
;               try to allocate the blocks in one large group.  If a group
;               cannot be found to satisfy the request count then this
;               routine will allocate the first available block.
;               At least one block MUST be free for allocation!!!!!!!!!!
;
;Input:         A = number of blocks to allocate. ( 'n' blocks)
;               X = starting block number for search. (might be minus 7 blks)
;               prodos_vcr_ptr          (must be setup)
;                       ^avail_bitmap   (must be valid)
;
;output:        A = error or number of blocks allocated. (1 or 'n')
;               X = starting block number of allocated blocks
;               P = nvmxdizc
;                   ..000..1 = no blocks allocated (error)
;                          0 = allocated
;
;uses:          calc_bits
;               math_temp
;

		longa	on
		longi	on

		EXPORT	find_free_blks	
find_free_blks	PROC

		sta	alloc_count	;number of blocks to allocate
		stx	alloc_start	;starting block number for search
		stx	first_free

		jsr	calc_bit	;absolute blk to relative blk.
;
; calc_bit results:
;
;A = bit mask $80 $40 $20 $10 $08 $04 $02 $01
;Y = byte offset in the bitmap buffer
;X = relative block number that contains the block number passed as input
;
		sty	byte_offset	;starting byte in block
		xba
align_loop				; ;set blk num to byte boundary
		asl	a		;check bit position of user block num
		bcs	chk_avail	;ok here
		dec	first_free
		bra	align_loop	;check next bit

chk_avail
		lda	byte_offset	;are we word aligned?
		lsr	a
		bcc	aligned		;yes we are OK

		dec	byte_offset	;now set starting block to word boundary
		sec
		lda	first_free
		sbc	#$0008
		sta	first_free	;everything should be word aligned now.

aligned
		txa
		ldy	#avail_bitmap	;see if start is >= first free
		cmp	[prodos_vcr_ptr],y
		bcs	start_ok	;start is >= first free
		lda	[prodos_vcr_ptr],y
		tax
		ror	a
		ror	a
		ror	a
		ror	a
		ror	a		;calc starting block number
		sta	first_free	;ex. rel blk #1 = blk #4096 or $1000
		txa
		stz	byte_offset

start_ok
		stz	last_blk	;starting block for caller
		stz	math_temp	;reset the free block counter

		tax			;now load in the bitmap block
next_blk
		lda	math_temp
		pha			;save temp count
		jsr	get_bit_block
		bcc	got_block
		ply			;fix the stack
		rts			;return error please

got_block
		pla			;reset temp count
		sta	math_temp
		stz	some_free	;indicates if ANY blocks are free!

		ldy	byte_offset	;start looking here for 1st free block
		cpy	#$01FF		;are we near then end?
		bcc	next_word
		ldy	#$01FE

next_word
		ldx	#16		;scan all 16 bits
		lda	[bitmap],y	;get a bitmap word (16 blocks)
		bne	check_16	;sorry no bits here.

		stz	math_temp	;reset the counter please.
		stz	last_blk
		bra	no_change

check_16
		xba			;put bits in the right order

		sta	bits
		sta	some_free	;there are free blocks in this dir.
		inc	a		;check 16 please
		bne	scan_loop
;
;special case of all sixteen blocks allocated
;
		clc
		lda	math_temp
		adc	#16		;easy case
		sta	math_temp
		lda	last_blk	;do we have the starting blk yet?
		bne	chk_req_cnt	;we already have start block
		lda	first_free
		sta	last_blk

chk_req_cnt
		lda	math_temp	;see if we are done
		cmp	alloc_count
		bcs	req_filled	;request filled. We are done!!!

no_change
		clc
		lda	first_free
		adc	#16		;bump block number
		sta	first_free
		bra	bump_index	;go get the next word

scan_loop
		lda	math_temp	;see if we are done
		cmp	alloc_count
		bcs	req_filled	;request filled. We are done!!!

		asl	bits		;see if this block is available
		bcc	reset_count	;a used block
		inc	math_temp	;add one to block count
		lda	last_blk
		bne	next_bit
		lda	first_free
		sta	last_blk	;update start block
		bra	next_bit

reset_count
		stz	math_temp	;reset the counter
		stz	last_blk	;reset start block
next_bit				; 
		inc	first_free	;bump the block number
		dex
		bne	scan_loop

		lda	math_temp	;see if we are done
		cmp	alloc_count
		bcs	req_filled	;request filled. We are done!!!

bump_index
		iny
		iny
		cpy	#$01FF		;are we done?
		bcc	next_word	;not yet

		ldy	#curr_bitmap	;current loaded bitmap block
		lda	[prodos_vcr_ptr],y
		inc	a		;convert 0 to 'n' to 1 to 'n'+1
		ldy	#num_bitmap_blks
		cmp	[prodos_vcr_ptr],y
		bcs	find_one	;no more bitmap blocks to search!

		jsr	bump_1st_free	;bump to next block if needed.

		stz	byte_offset	;reset byte offset
		ldx	first_free
		jsr	abs_to_rel	;calc relative block number
		jmp	next_blk	;load in the next block

find_one				; ;allocate one block only
		lda	#$0001
		ldx	#$0000		;start at block 0
		jsr	find_free_blks
		rts

;now we need to update the bitmap blocks!

req_filled
		ldx	last_blk
		ldy	alloc_count
		dey			;convert 1 to 'n' -> 0 to 'n-1'
alloc_loop				; 
		phy			;number of blocks wanted
		phx			;block number to allocate
		jsr	alloc_block	;mark the block as used!
		plx
		ply
		bcs	bad_news
		inx			;allocate the next block
		dey
		bpl	alloc_loop
		lda	alloc_count	;user request satisfied
		ldx	last_blk	;starting block for allocation
		clc			;no error

bad_news
		rts

bump_1st_free
		lda	some_free	;is this block empty?
		bne	bad_news	;no...

		ldy	#avail_bitmap	;bump avail to next block if needed
		lda	[prodos_vcr_ptr],y
		ldy	#curr_bitmap
		cmp	[prodos_vcr_ptr],y
		bne	bad_news

		ldy	#avail_bitmap
		lda	[prodos_vcr_ptr],y
		inc	a
		sta	[prodos_vcr_ptr],y
		rts

		ENDP

;======================================================================
;free_vcr:      This routine will free all memory associated with a
;               volume control record.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               my_vcr_ptr              (Points to main VCR)
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc

;                   ..000...
;               b = k
;
;
;Uses:          All registers
;               release_seg             (system routine to release a vcr)
; 
;======================================================================
		longa	on
		longi	on
		
		EXPORT	free_vcr	
free_vcr	PROC

		lda	[my_vcr_ptr]	;get the volume ID
		jsl	release_vcr	;and call the systems nuke vcr routine
		rts
		ENDP


;======================================================================
;Remove_fcr:    This routine will remove a FCR
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               my_fcr_ptr              (must be setup)
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Uses:          All registers
;
;======================================================================
		longa	on
		longi	on
		
		EXPORT	remove_fcr	
remove_fcr	PROC

		ldy	#dirty_file_cnt	;check if bitmap needs to be flushed
		lda	[prodos_vcr_ptr],y
		dec	a
		bne	@did_flush	;we do not need to flush the bitmap
		jsr	force_bitmap	;force a dirty block to disk
		bcs	@error		;we have to be able to flush
@did_flush
		ldy	#vcr_open_cnt	;subtract one from the open count
		lda	[my_vcr_ptr],y
		dec	a
		bmi	die_die_die	;the system is very sick
		sta	[my_vcr_ptr],y	;Update the open count in the VCR

		lda	[my_fcr_ptr]	;reference number to remove
		jsl	release_fcr	;nuke the puppy
		clc			;we are very happy now
@error
		rts

die_die_die
		lda	#'SK'		
		jml	sys_death

		ENDP

;======================================================================
;setup_params   This routine is called at the beginning of each system
;               call.  It will setup parameters and verify certain fields
;               of the os call.  If a VCR is used and the media is swapped
;               out of the system then the system mount routine will be called
;
;Input:         A = undefined
;               X = two times the call number
;               Y = two times the class
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = class of call/2     (MUST be last instruction before RTS!!)
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               pcount                  (contains pcount for call. 0=class0)
;               my_pblk_ptr             (points past pcount to first param)
;               my_vcr_ptr              (if available)
;                       prodos_vcr_ptr
;               my_fcr_ptr              (if available)
;                       pro_fcr_ptr
;
;Uses:          All registers
;               math_temp
;               pcount
;
;What the table looks like and what fields we verify.
;
;               1) Max PCount for the call
;               2) Max Class for the call
;               3) Pathnames used by call
;               4) volume control record used
;               5) file control record used.
;               6) io buffer used.
;               7) flush file to disk
;               8) damaged disk protect
;
;              |8|7|6|5|4|3|  2  |    1    |
;           ___|_|_|_|_|_|_|_____|_________|
;          | | | | | | | | | | | | | | | | |
;          |_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|
;          |               |               |
;         1 6             0 8             0 0
;
		longa	on
		longi	on

		EXPORT	setup_params	
setup_params	PROC

;First we load the flags from the start table and save them for later
;use.

		lda	gbuf_addr	;setup the general buffer pointer
		sta	gbuf_ptr
		lda	gbuf_addr+2
		sta	gbuf_ptr+2

		stz	drvr_vol_id	;zero the volume ID(for Mike).  Allow each call to set it up
		stz	search_flag	;indicate normal find file
		stz	prodos_vcr_ptr
		stz	prodos_vcr_ptr+2
		stz	my_vcr_ptr
		stz	my_vcr_ptr+2
		stz	pro_fcr_ptr
		stz	pro_fcr_ptr+2
		
		stz	case_bits	;indicate that the case is all upper.
		
		stz	slug_block	;indicate no slug_ripple
		stz	close_flag	;indicate that 'flush_file' will not
;                                       ;call slug_ripple
		stz	expand_record.expand_file
		stz	expand_record.expand_flag
		stz	chk_dirty_flag	;do not check the VCR to see if the file is dirty
		stz	dirty_flags
		stz	dirty_cnt_changed
		stz	write_occurred	;If non-zero a write occurred to the disk.
		
		stz	cp_device_flag	;indicate normal ChangePath	1/22/91 CAE
		stz	cp_flags	;assume not a duplicate volume	5-Dec-91 MSD
		stz	error_priority	;error priority is 0		3/05/91 CAE

		lda	start_tbl-2,x	;get the flags for the call
		sta	flags
		and	#$001F
		sta	max_pcount

;Go ahead and setup the default parameters.

		stz	pcount

;Now verify the max class of the call.
;
;To do this we divide class by two and compare to the calls max class

		tya
		lsr	a
		sta	class
		beq	class0		;this is a OLD style call

		lda	flags
		and	#$00E0		;clear other flags please
		asl	a
		asl	a
		asl	a
		xba
		cmp	class
		bcs	good_class
		lda	#invalid_class
		bra	error_out

good_class

;Now we need to verify the max pcount for the new class calls

		lda	[param_blk_ptr]
		cmp	max_pcount
		bcc	good_pcount

		lda	#invalid_pcount

;Carry has to be set before calling error_out!!

error_out
		jmp	main_exit

good_pcount

;We get here if the pcount is good.  We also get here with a 'BCC'
;so if this changes we must add a CLC to the following 'ADD'

		sta	pcount

		lda	param_blk_ptr	;CARRY CLEAR on entry!!!!
		adc	#$0002
		sta	my_pblk_ptr
		lda	param_blk_ptr+2
		adc	#$0000
		sta	my_pblk_ptr+2
		bra	cont01

class0
		lda	param_blk_ptr
		sta	my_pblk_ptr
		lda	param_blk_ptr+2
		sta	my_pblk_ptr+2

cont01

		ldx	#pro_id		;setup FST number for our FST.
		stx	drvr_fst_num

		jsl	lock_mem	;make sure data blocks do not move

		
		lda	dev_num		;move the device number to driver
		sta	drvr_dev_num	;direct page area

;when we get here we know that both class and pcount are valid.
;now we need to check if a VCR or FCR is used by the call.

		lda	flags
		and	#vcr_used

		beq	check_fcr	;no VCR is used by the call

;setup my pointer to the VCR and deref VP to my local data.

		ldx	vcr_ptr
		ldy	vcr_ptr+2
		jsl	deref
		stx	my_vcr_ptr
		sty	my_vcr_ptr+2
		jsr	setup_my_vcr
		stx	prodos_vcr_ptr
		sty	prodos_vcr_ptr+2

		lda	flags		;do we need to check damage?
		and	#damage
		beq	vol_ok		;this must be a read only call.

		ldy	#vol_damaged	;is this volume damaged??
		lda	[prodos_vcr_ptr],y
		inc	a		;Have I already showed the error message
		bne	vol_ok		;the disk is not damaged
		sec
		lda	#invalid_access	;get the error code please
		jmp	main_exit

vol_ok					; 
		ldy	#vcr_status	;see if the volume is swapped out
		lda	[my_vcr_ptr],y
		and	#vcr_swapped
		beq	check_fcr	;the volume is online.

		lda	call_number	;see if this is a close call.
		and	#$DFFF		;get rid of the class please
		cmp	#$0014		;Compare class zero close call number
		bne	@do_mount	;we must do a mount message

		ldy	#bitmap_dirty	;See if the Bitmap is dirty
		lda	[prodos_vcr_ptr],y
		bne	@do_mount	;we need the disk bad!!!
		
		ldy	#dirty_file_cnt	;see if there open files on disk that are dirty?
		lda	[prodos_vcr_ptr],y
		beq	check_fcr	;no open dirty files so skip mount.
@do_mount
		jsr	mount_volume	;force the user to put our disk online
check_fcr 
		lda	flags
		and	#fcr_used
		beq	check_path	;no FCR is used by the call

;setup my pointer to the FCR and deref VP to my local data.

		ldx	fcr_ptr
		ldy	fcr_ptr+2
		jsl	deref
		stx	my_fcr_ptr
		sty	my_fcr_ptr+2

		jsr	setup_my_fcr	;build pointer to local data
		stx	pro_fcr_ptr
		sty	pro_fcr_ptr+2

		lda	flags		;do we need to flush the file?
		and	#flush_1st
		beq	check_path	;no flush needed

		ldy	#fcr_status	;see if the file is dirty
		lda	[pro_fcr_ptr],y
		and	#file_dirty
		beq	check_path	;file is clean!

		jsr	setup_io_ptrs
		jsr	flush_file	;force dirty blocks to disk
		tax
		lda	flags		;clear IO needed bit
		and	#clr_io_used
		sta	flags
		txa
		bcc	check_path
		jmp	main_exit

;Moved the check_path code into a seperate routine and we now
;only check for bad spans after we have located the target vol
;and determined that it is indeed a ProDOS volume.
;					10/10/91 JEV
check_path
;		lda	flags
;		and	#path_used
;		beq	check_io_buf	;no pathname is used

;See if there are any pathnames available

;		lda	path_flag
;		and	#path1_mask
;		beq	check_path2

;		lda	span1
;		beq	bad_span	;added 11/12/90 CAE
;		cmp	#$0010
;		bcc	check_path2

;bad_span	sec			;added 11/12/90 CAE
;backup		lda	#bad_path_syntax
;		brl	error_out

;check_path2				;

;We don't check span2 here if we are doing a change path call
;we need to do some preprocessing first so that error priority
;gets setup properly for the change path call.. added 8/21/91 JEV

;		lda	call_number	;see if this is a changepath call.
;		and	#$DFFF		;get rid of the class please
;		cmp	#$0004		;Compare with changepath call number
;		beq	check_io_buf	;just continue
		
;		lda	path_flag
;		and	#path2_mask
;		beq	check_io_buf

;		lda	span2
;		beq	bad_span	;added 11/12/90 CAE
;		cmp	#$0010
;		bcs	backup

check_io_buf				; 
		lda	flags
		and	#io_used
		beq	end_buf_setup

;now we need to setup real pointers to the I/O buffer.  There is only
;one I/O buffer for a file.  However, the I/O buffer varies in it's size
;and structure.

		jsr	setup_io_ptrs

end_buf_setup
		lda	flags		;see if we need to check for file dirty
		and	#do_dirty
		beq	@exit
		sta	chk_dirty_flag	; 00 = do not check
		ldy	#fcr_status	;get the status out of the File Control Record
		lda	[pro_fcr_ptr],y
		and	#file_dirty+data_dirty+index_dirty+master_dirty
		sta	dirty_flags	;save the flags
@exit
		lda	class
		rts

		ENDP

;======================================================================
;check_spans	This routine is called when a pathname is used and we
;               we need to verify that the spans are valid.  If they
;               are incorrect then we bail out.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = error code
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;
		EXPORT	check_spans
check_spans	PROC

		lda	path_flag
		and	#path1_mask
		beq	check_path2

		lda	span1
		beq	bad_span
		cmp	#$0010
		bcc	check_path2

bad_span	sec
backup		lda	#bad_path_syntax
		jmp	main_exit

check_path2				;
		lda	path_flag
		and	#path2_mask
		beq	@spans_ok

		lda	span2
		beq	bad_span
		cmp	#$0010
		bcs	backup
@spans_ok
		rts
		ENDP
		
		
;======================================================================
;process_path   This routine is called when a pathname needs to be
;               processed and located on the disk.  If the pathname is
;               not a prodos name then we bail out.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = error code
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;               drvr_buf_ptr            (points to the file entry)
;               entry_offset            (offset to entry within I/O buffer)
;               parent_blk              (entries parent block address)
;
;Uses:          All registers
;               math_temp
;               pcount
;
		longa	on
		longi	on

		EXPORT	process_path	
process_path	PROC

		lda	#in_cache	;put directories in the cache
		sta	drvr_cache

		lda	#path1_mask	;and mask for path_flag
		ldx	path1_ptr
		ldy	path1_ptr+2	
		jsr	build_path
		bcc	@chk_root_only
		brl	dev_or_vol	;No path just a device # or vol. name

@chk_root_only
		lda	search_flag	;do we allow a pathname?
		and	#root_only
		beq	@path_ok
		lda	#bad_path_syntax
		sec
		rts			;return error to caller
		
@path_ok

;If we fall thru then we know that there is a pathname to find.
;We also know that there is either a volume name or device.

		stx	hold_path_ptr
		sty	hold_path_ptr+2

		lda	dev_num		;There is a device number
		beq	cont01		;Find Volume Name
		sta	drvr_dev_num

		;next call removed 2/26/90 by Monte Benaresh
		;leaving the call in doesn't let the user swap a new volumeÉ
		;Éinto a device and specify a device name in the path

		;jsr	check_vcr_first	;see if we have a vcr for it
		;bcc	find_path	;we do?

;Look on a specific device

go_id_disk
		lda	drvr_dev_num	
		jsr	id_disk		;go and find out if it is our disk
					;this also allocates a VCR if needed
		bcc	find_path	;I own the disk. 
		jmp	main_exit	;return error to GS/OS
		
cont01					; 
		jsr	vol_to_buffer
		jsr	find_volume	;locate the volume
		bcc	find_path
		jmp	main_exit

find_path	lda	#$8000		;indicate that we found the volume	3/5/91 CAE
		sta	error_priority	;and it's a ProDOS volume		3/5/91 CAE
		
;So it's one of our volumes, now check to see if we are using paths, and
;the spans are ok.							      10/10/91 JEV
		lda	flags
		and	#path_used
		beq	check_damage	;no pathname is used
		jsr	check_spans	;so check them
		
check_damage	lda	flags		;is this a call to check the disk
		and	#damage
		beq	vol_good

		jsr	setup_my_vcr	;setup the pointer first
		stx	prodos_vcr_ptr
		sty	prodos_vcr_ptr+2

		ldy	#vol_damaged	;see if the volume is damaged
		lda	[prodos_vcr_ptr],y
		beq	vol_good
		lda	#dir_error	;write protected
		jmp	damaged_message

vol_good				; 
		lda	drvr_dev_num
		ldx	hold_path_ptr
		ldy	hold_path_ptr+2
		jsr	find_file	;try to locate the file
		bcc	save_parent
		cmp	#drvr_disk_sw	;was the media switched?
		beq	go_id_disk

		bit	search_flag	;is 'file not found' ok for this call?
		bvc	not_ok		;no, tell caller about the error
		cmp	#file_not_found
		bne	not_ok		;this error cannot be handled!
		sec
		rts			;tell caller that an error occured.

not_ok					; 
		sec
		jmp	main_exit

save_parent				; 
		sta	entry_offset	;offset to the entry within the blk
		lda	drvr_blk_num	;block number of parent
		sta	parent_blk

cont02		stx	drvr_buf_ptr	;save pointer to name
		sty	drvr_buf_ptr+2
process_exit				; 
		jsr	set_user_cache
		rts

;If we get here we know that there is no pathname to process.
;We also know if there is no device number then 'volume_name' contains
;a volume name that I am suppose to open.

dev_or_vol				; 
		lda	dev_num
		beq	use_vol_name	;we must have a volume name.
		jsr	id_disk		;go and find out if it is our disk
		bcs	to_main_exit

;Before we check to see if the volume name is legal we must see if the
;volume is online.  The reason we do this is to be compatible with P16.
;
;Example:
;               Create '/VOLUME'        ;If '/VOLUME' is online then
;                                       ;the error returned is 'BadPath'
;               Create '/VOLUME'        ;If '/VOLUME' is offline then
;                                       ;the error returned is 'VolNotFound'
;

its_mine	lda	#$8000		;indicate that we found the volume	3/5/91 CAE
		sta	error_priority	;and it's a ProDOS volume		3/5/91 CAE
		
check_root	bit	search_flag	;is a root level valid?
		bpl	continue1	;no problem with root level.

		lda	#bad_path_syntax
		sec
to_main_exit				; 
		jmp	main_exit	;return error to M.A. and J.J.

continue1				; 
		lda	[drvr_buf_ptr]	;points to volume name
		ora	#volume_header	;add back in the storage type
		sta	[drvr_buf_ptr]

		lda	#vol_dir_start
		sta	parent_blk
		lda	#$0004
		sta	entry_offset
		bra	process_exit

use_vol_name				; 
		jsr	find_volume	;locate the volume
		bcc	its_mine
		jmp	main_exit

		EXPORT	set_user_cache
set_user_cache				;               
		pha			;save entry offset
		lda	user_cache	;set cache to user setting
		sta	drvr_cache
		pla
		rts

		ENDP

;======================================================================
;send_info      This routine is called when we need to return the
;               informational parameters from a directory entry.
;               This routine is called by 'OPEN' and 'GET_FILE_INFO'
;WARNING:
;               This routine assumes parameters are in a certain order.
;               I did this so I could use that same routine across several
;               calls!
;
;Input:         A = number of entries to send
;               X = low word pointer to start of parameters
;               Y = high word pointer to start of parameters
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               one_entry               (contians the info to send)
;               drvr_buf_ptr            (points to resource header block)
;
;Output:        A = undefined
;               X = undefined

;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Uses:          All registers
;               math_temp
;               temp_ptr
;               one_entry
;               time_routines
;
		longa	on
		longi	on

		EXPORT	send_info	
send_info	PROC

		stx	temp_ptr
		sty	temp_ptr+2

;Save the number of entries the user wants.

		sta	math_temp
		tax
		bne	continue
		rts

;First we return the access as it is stored on disk.

continue				; 
		lda	call_number	;is this a class one call?
		and	#$2000
		beq	class0

		lda	one_entry	;is this a volume entry?
		and	#$00F0		;isolate the storage type
		cmp	#volume_header
		bne	not_vol

		stz	one_entry+aux_type_index

not_vol					; 
		cmp	#subdir_type	;is it a subdir or volume?
		bcc	class0		;no

		stz	one_entry+blks_used_index

class0					; 
		ldy	#pblk_s_access
		lda	one_entry+access_index
		and	#$00E7
		sta	[temp_ptr],y
		dec	math_temp
		bne	send_two
end_send1
		clc
		rts

;If we are here then we know the user wants the file type as well

send_two				; 
		ldy	#pblk_s_ftype
		lda	one_entry+file_type_index
		and	#$00FF
		sta	[temp_ptr],y
		dec	math_temp
		beq	end_send1

;Now the user wants the aux type!

		ldy	#pblk_s_aux
		lda	one_entry+aux_type_index
		sta	[temp_ptr],y
		iny
		iny
		lda	#$0000
		sta	[temp_ptr],y
		dec	math_temp
		beq	end_send1

;Also send the storage type of the file

		ldy	#pblk_s_storage
		lda	one_entry
		and	#$00F0
		lsr	a
		lsr	a
		lsr	a
		lsr	a
		sta	[temp_ptr],y
		dec	math_temp
		beq	end_send1

;Now convert the create date and send it to.

send_five				; 

		ldx	one_entry+create_index
		ldy	one_entry+create_index+2
		jsr	unpack_time
		ldy	#pblk_s_create
		jsr	send_time
		dec	math_temp
		beq	end_send1

;Now convert the modification data and time

		ldx	one_entry+last_mod_index
		ldy	one_entry+last_mod_index+2
		jsr	unpack_time
		ldy	#pblk_s_mod
		jsr	send_time
		dec	math_temp
		beq	@go_to_end

; We now store the ProDOS FST ID in the 5th byte of the option list buffer

		ldy	#pblk_s_opt	;index to option list pointer
		lda	[temp_ptr],y	;get the address of the option list buffer
		tax
		iny
		iny
		lda	[temp_ptr],y
		tay
		bne	@save_fst_id
		txa
		beq	@skip_save
@save_fst_id
		pei	temp_ptr	;save the working temp_ptr since I am going to use it
		pei	temp_ptr+2	;to handle the option list pointer
		
		stx	temp_ptr
		sty	temp_ptr+2
;
;Now I need to verify the option list length.  I need at least 6 bytes.
;
		lda	[temp_ptr]	;get the length of the option list
		cmp	#$0004		;is the minimum count OK
		bcc	opt_range_err	;the user doesn't even have the minimum size>>>>

		tax			;save the count for data area check		
		lda	#$0002		;length of the ProDOS FST ID.
		tay
		sta	[temp_ptr],y	;save the number of bytes stored
		txa
		cmp	#$0006
		bcc	opt_size_error
		iny
		iny
		lda	#pro_id
		sta	[temp_ptr],y
					;new code added 2/13/91 CAE
 		txa
		cmp	#6+32		;is buffer big enough to hold HFS Finder Info?
		bcc	@no_info	;no
		lda	one_entry	;yes - so check storage type
		and	#$00F0
		cmp	#resource_type	;is it a resource file?
		bne	@no_info	;no - so no HFS info
		jsr	get_hfs_info	;yes - so get the HFS info if we have it
@no_info
					;end of new code
		pla
		sta	temp_ptr+2	;restore
		pla
		sta	temp_ptr
@skip_save
		dec	math_temp	;Option List is included in PCount
@go_to_end	beq	end_send

;Give the EOF as well. If the storage type is a resource file then I will
;get the EOF info from the resource block instead of the directory entry

		ldy	#pblk_s_storage
		lda	one_entry
		and	#$00F0
		cmp	#resource_type
		beq	send_res_eof

		ldy	#pblk_s_eof	;send the EOF for the file
		lda	one_entry+eof_index+2
		and	#$00FF
		tax
		lda	one_entry+eof_index
		jsr	store_longword
		dec	math_temp
		beq	end_send

		ldy	#pblk_s_blks	;send the number of blocks used
		lda	one_entry+blks_used_index
		ldx	#$0000
		jsr	store_longword
		dec	math_temp
		beq	end_send

		ldy	#pblk_s_res_eof	;send the resource eof
backup					; 
		lda	#$0000
		tax
		jsr	store_longword
		dec	math_temp
		beq	end_send

		ldy	#pblk_s_res_blk	;send the number of blocks used by res
		bra	backup		;please send a zero Mr. ProDOS.

end_send	clc
		rts
		
opt_range_err
		pla
		sta	temp_ptr+2	;restore
		pla
		sta	temp_ptr
		
		lda	#parm_range_err
		sec
		rts
		
opt_size_error
		pla
		sta	temp_ptr+2	;restore
		pla
		sta	temp_ptr

		lda	#buff_too_small
		sec
		rts
		
;Send the EOF and blocks used from the header block.

send_res_eof				; 
		ldy	#$0000		;go get the info please from fork 1
		jsr	get_res_info	;A/X = EOF, Y = Blocks Used
		phy			;save the blocks used field
		ldy	#pblk_s_eof	;send the EOF for the file
		jsr	store_longword
		ldy	#pblk_s_blks	;send the Blocks used

		pla			;restore the Blocks used field
		dec	math_temp	;now see if they want blocks used.
		beq	end_res_send	;not today kind sir.

		ldx	#$0000
		jsr	store_longword
		dec	math_temp	;are we done
		beq	end_res_send

		ldy	#$0100		;go get the info please from fork 2
		jsr	get_res_info	;A/X = EOF, Y = Blocks Used
		phy
		ldy	#pblk_s_res_eof	;send the EOF for the file
		jsr	store_longword
		ldy	#pblk_s_res_blk	;send the Blocks used

		pla			;restore the Blocks used field
		dec	math_temp	;are we done
		beq	end_res_send

		ldx	#$0000		;send the blocks used by the res. fork
		jsr	store_longword

end_res_send				; 
		rts

;==========================================================================
;Grab the information from the resource block.  first fork starts at
;offset $0000 in the header block.  The second fork starts at offset $0100
;in the resource header block.
;
;format:        storage_type            (1 byte)
;               key_block               (2 bytes)
;               blocks_used             (2 bytes)
;               eof                     (3 bytes)

get_res_info				; 
		lda	[drvr_buf_ptr],y
		and	#$0003		;check the storage type
		beq	file_dead	;this file is DOA
		cmp	#(tree_type/$10)+1
		bcs	file_dead
		iny			;point to Key Block

		iny
		iny			;point to Blocks used
		lda	[drvr_buf_ptr],y
		pha			;save blocks used for later

		iny
		iny			;point to EOF
		lda	[drvr_buf_ptr],y
		pha			;save EOF low
		iny
		iny
		lda	[drvr_buf_ptr],y
		and	#$00FF		;clear any garbage
		tax			;save EOF high
		pla			;A = EOF Low
		ply			;Y = Blocks used
		rts			;A/X = EOF (A = Low) Y = Blocks Used

file_dead				; 
		sec			;sorry bad news
		lda	#bad_store_type
		jmp	main_exit	;no escape now!


;==========================================================================
;Get the HFS Finder Info if it has been stored in the resource block.  
;The Finder Info is stored immediately after the mini-entry for the data fork,
;so it begins at offset $0008 in the block. 
;
;format:        entry size		(1 byte)
;               entry type 		(1 byte)
;               HFS Finder Info		(16 bytes)
;               entry size		(1 byte)
;               entry type 		(1 byte)
;               HFS Finder Info		(16 bytes)
;
; entry_size = 18
; entry_type = 1 for first 16 bytes of Finder Info (FInfo)
;	       2 for second 16 bytes of Finder Info (xFInfo)
;
;Note - the ProDOS FSM which runs on the Mac, has the ability to store only
;	the first 16 bytes of Finder Info or only the second 16 bytes. So, we
;	can't assume that both entries exist, or that they exist in a specific
;	order.
;==========================================================================
		entry	get_hfs_info
get_hfs_info					;added 2/13/91 CAE
		stz	hfs_flag		;indicate that we have no HFS info

		ldx	#30
@zero_loop	stz	hfs_finfo,x		;zero out storage area for HFS info
		dex				;since we may only find 1 entry
		dex
		bpl	@zero_loop
		
		ldy	#8
@loop		lda	[drvr_buf_ptr],y	;get entry size from resource block
		and	#$00ff			;only want 1 byte
		cmp	#18			;is it the right size for HFS info?
		bne	@done			;no - so we're done
		iny			
		lda	[drvr_buf_ptr],y	;yes - so get the entry type
		and	#$00ff			;only want 1 byte
		cmp	#finfo_type		;is it the first 16 bytes of HFS info?
		bne	@cont			;no
		ldx	#0			;yes - so init index into storage area
		jsr	get_finfo		;and get the info
		bra	@loop			;loop
		
@cont		cmp	#xfinfo_type		;is it the second 16 bytes of HFS info?
		bne	@done			;no - so we're done
		ldx	#16			;yes - so init index into storage area
		jsr	get_finfo		;and get the info
		bra	@loop			;loop
		
@done		lda	hfs_flag		;did we find any HFS info?
		beq	@exit			;no - so nothing to copy
		
		ldx	#0			;init offsets
		ldy	#6
@copy_loop	lda	hfs_finfo,x		;copy the HFS Finder Info into the
		sta	[temp_ptr],y		;option list buffer
		iny
		iny
		inx
		inx
		cpx	#32
		bcc	@copy_loop
		
		ldy	#2
		lda	#2+32
		sta	[temp_ptr],y		;adjust the # of bytes stored
		
@exit		rts				;return


get_finfo	iny				;adjust offset
		lda	#8			;we're going to copy 8 words
@loop		pha				;save counter
		lda	[drvr_buf_ptr],y	;copy HFS Finder Info
		sta	hfs_finfo,x		;into storage area
		iny				;adjust offsets
		iny
		inx
		inx
		pla				;retrieve counter
		dec	a
		bne	@loop			;loop until done
		inc	hfs_flag		;indicate that we found some HFS info
		rts				;and return
		
		
;==========================================================================

store_longword				; 
		sta	[temp_ptr],y	;store low order 16 bits of EOF
		iny
		iny
		txa			;now store the upper 16 bits
		and	#$00FF
		sta	[temp_ptr],y
		rts


;======================================================================
;This routine will store the time into the user's parameters block

		EXPORT	send_time
send_time				;               
		lda	minutes
		xba			;swap minutes and seconds
		sta	[temp_ptr],y
		iny
		iny
		lda	hours
		sta	[temp_ptr],y
		iny
		lda	year
		sta	[temp_ptr],y
		iny
		lda	day
		beq	zero_day	;the day is unknown
		dec	a		;convert to misc. tools hex format
zero_day				; 
		sta	[temp_ptr],y
		iny
		lda	month
		beq	zero_month
		dec	a		;convert to misc. tools hex format
zero_month				; 
		sta	[temp_ptr],y
		iny
		lda	day_of_week
		xba			;swap day of week and null byte
		sta	[temp_ptr],y
		rts

		ENDP

;======================================================================
;chk_protected: This routine will see if a volume is write protected.
;
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               drvr_dev_num            ;must be setup.
;
;Output:        A = status Word         ;see if driver ERS
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;
;               b = k
;
;
;Uses:          All registers
;
		longa	on
		longi	on

		EXPORT	chk_protected	
chk_protected	PROC

		jsr	save_drvr

		lda	#drvr_status	;issue a status call to the device
		sta	drvr_call_num

		lda	#^status_list	;setup a pointer to the status list
		sta	drvr_slist_ptr+2
		lda	#status_list
		sta	drvr_slist_ptr

		lda	#$0006		;a six byte request count
		sta	drvr_req_cnt
		stz	drvr_req_cnt+2
		lda	#blk_size
		sta	drvr_blk_size

		stz	drvr_stat_code	;issue a 'driver status' call.
		jsr	device_call	;blast off!!
		bcs	status_error	;An error?

		lda	status_list	;get the return status
status_error	php
		pha
		jsr	restore_drvr
		pla
		plp
		rts

save_drvr	ldx	#drvr_bytes	;number of bytes to save
save_it		lda	drvr_dev_num,x
		sta	drvr_save,x
		dex
		bpl	save_it
		rts

restore_drvr	ldx	#drvr_bytes
restore_it	lda	drvr_save,x
		sta	drvr_dev_num,x
		dex
		bpl	restore_it
		rts

		EXPORT	chk_disk_protect
chk_disk_protect
		stz	chk_prot_swap	; haven't got disk switched yet (20-Dec-91 MSD)
		
		lda	my_vcr_ptr	;see if we have a VCR
		ora	my_vcr_ptr+2
		beq	do_chk		;go ahead and do the check

		ldy	#vcr_status	;do I need to status the disk?
		lda	[my_vcr_ptr],y
		and	#vcr_wr_enable
		beq	do_chk		;yes we need to check the media
		rts			;just return to the caller

do_chk					; 
		jsr	chk_protected	;is the disk protected?
		bcs	big_problem
		tax
		and	#$0010		;is the disk offline?
		beq	not_in_drive	;there is no disk!!!
		txa
		and	#$0001		;disk switched??
		bne	not_in_drive	;disk has been switched!
		txa
		and	#disk_protect
		bne	is_protected

		lda	my_vcr_ptr	;see if we have a VCR
		ora	my_vcr_ptr+2
		beq	no_change	;go ahead and set the vcr status flag

		ldy	#vcr_status	;set the 'No Status' bit
		lda	[my_vcr_ptr],y
		ora	#vcr_wr_enable	;no need to do the status next time
		sta	[my_vcr_ptr],y

no_change	txa			;restore original status word
		rts


is_protected	sec
		lda	#drvr_wr_prot	;return write protect error to caller

big_problem	jmp	main_exit

not_in_drive
;
; Begin 20-Dec-91 MSD
;
; We got a disk switched status, so try to find the volume (ask the user if necessary).
; This will force a new VCR to be built, and my_vcr_ptr will point to it.
;
		lda	chk_prot_swap	; already switched once?
		bne	do_disk_sw	; yes, so return disk switched error
		
		inc	chk_prot_swap	; found one disk swithced status

*** added 28-Feb-92 DAL and GAB -- Save GBUF and important direct page stuff
		jsr save_drvr
		pei	<gbuf_ptr+2
		pei	<gbuf_ptr
		pea	chk_protect_gbuf>>16
		pea	chk_protect_gbuf
		pea	0
		pea	$0200		; move 512 bytes
		pea	move_sinc_dinc
		jsl	move_info
*** end 28-Feb-92, part one

		jsr	mount_volume	; find the volume and build a VCR for it

*** added 28-Feb-92 DAL and GAB -- Restore GBUF and important direct-page stuff
		php
		pha
		jsr restore_drvr
		pea	chk_protect_gbuf>>16
		pea	chk_protect_gbuf
		pei	<gbuf_ptr+2
		pei	<gbuf_ptr
		pea	0
		pea	$0200		; move 512 bytes
		pea	move_sinc_dinc
		jsl	move_info
		pla
		plp
*** end 28-Feb-92, part two
		bcs	big_problem	; better not be an error (we already found the path)
		
		bra	do_chk		; try the status again

do_disk_sw
		sec
		lda	#drvr_disk_sw	; give up, 2 consecutive disk switched statuses
		bra	big_problem

;
; End 20-Dec-91 MSD
;
; The following code was commented out because we should really retry the status call.
;
;		ldy	#vcr_dev	;update the VCR status please
;		lda	[my_vcr_ptr],y
;		cmp	drvr_dev_num	;is this the same device?
;		bne	just_exit	;no
;		ldy	#vcr_status	;mark volume swapped
;		lda	[my_vcr_ptr],y
;		ora	#vcr_swapped	;disk has been removed from drive
;		sta	[my_vcr_ptr],y
;just_exit				; 
;		txa			;original status word
;		rts

chk_prot_swap	dc.w	0		; flag for disk switched (20-Dec-91 MSD)

		ENDP
;======================================================================
;Mount_volume:  This routine is called when we need to force the user
;               To give us our disk back.
;
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               my_vcr_ptr              (points to needed VCR)
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;               b = k
;
;
;Uses:          All registers
;               find_volume
;
		longa	on
		longi	on

		EXPORT	mount_volume	
mount_volume	PROC

		jsr	save_the_world	;save alot of data.
		jsr	setup_vol_mesg	;move the VCR name to local buffer

try_again	jsr	find_volume	;go get the volume
		bcc	volume_online	;go and update everything
		jsr	issue_mount	;issue a mount request
		bcc	try_again	;user said volume is now online
		jsr	restore_world	;restore everything please
		rts

volume_online	lda	drvr_dev_num	;where the volume was found
		jsr	restore_world	;A is saved
		sta	drvr_dev_num

		ldy	#vcr_dev	;update with the new device number
		sta	[my_vcr_ptr],y
		ldy	#vcr_status	;indicate that the volume is online
		lda	[my_vcr_ptr],y
		and	#vcr_swapped_in
		sta	[my_vcr_ptr],y
		clc
		rts			;volume is back on-line

save_the_world	php
		phy
		phx
		pha

		lda	world_flag	;see if data already saved
		bne	to_sys_death	;debug
		inc	world_flag

		ldx	#$004A		;save the direct page data
save_direct	lda	drvr_dev_num,x
		sta	direct_page,x
		dex
		bpl	save_direct

		ldx	#$0052		;save my direct page
save_my_direct	lda	fst_start,x
		sta	my_direct,x
		dex
		bpl	save_my_direct

		bra	save_rest_exit

restore_world	php
		phy
		phx
		pha

		ldx	#$004A		;save the direct page data
restore_direct	lda	direct_page,x
		sta	drvr_dev_num,x
		dex
		bpl	restore_direct

		ldx	#$0052		;save my direct page
restore_dp	lda	my_direct,x
		sta	fst_start,x
		dex
		bpl	restore_dp

		dec	world_flag

save_rest_exit	pla
		plx
		ply
		plp
		rts


to_sys_death	jsl	sys_death


		ENDP

;======================================================================
;build_path:    This procedure will parse off the volume name out of a
;               pathname if needed.
;
;Input:         A = AND mask used on path_flag ($BFFF or $FFBF)
;               X = low word pointer to pathname
;               Y = high word pointer to pathname
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               path_flag               ;GS/OS parameter (See common equates)
;               dev_num                 ;GS/OS parameter
; 
;Output:        A = undefined
;               X = low word pointer to pathname
;               Y = high word pointer to pathname
;               P = nvmxdizc
;                   ..000..1 = no pathname (device # or vol name only)
;                          0 = X and Y contain a pathname pointer
;               b = k
;
;               volume_name             ;if volume name is available

;                                       ;e.g. no device number is given          
;
;Uses:          All registers
;               temp_ptr
;               path_flag
;               dev_num 
;               and_mask
;
		longa	on
		longi	on

		EXPORT	build_path	
build_path	PROC
		
		sta	and_mask	;setup by caller

;now adjust the pointer to point past the length word
		
		inx
		bne	do_again
		iny
do_again	inx
		bne	cont
		iny

cont
		stx	temp_ptr
		sty	temp_ptr+2	;pointer to pathname

		lda	path_flag	;see if there is a pathname to process
		and	and_mask
		bne	proc_path	;there is a pathname so handle it
		sec
		rts			;device number the only thing available

proc_path				; 
		lda	dev_num		;see if there is a device
		beq	no_device	;no device so isolate volume name
					;tell caller device # and pathname
done
		jsr	set_case_bits	;save the case bits as needed please and convert to upper case
		clc
		rts	

no_device				; 
		jsr	vol_to_buffer	;out: A = terminator Y = length
		pha			;save termination reason
		iny
		iny
		tya			;length of name +1
		ldy	temp_ptr+2
		clc
		adc	temp_ptr
		tax
		bcc	do_end
		iny			;adjust high word
do_end
		pla			;restore terminator
		bne	done		;tell caller volume name and pathname!
		pha
		jsr	set_case_bits	;set the case of the last path please
		pla
		sec			;tell caller volume name only!
		rts
		
		EXPORT	vol_to_buffer
vol_to_buffer				;'build_path' has setup temp_ptr
		ldy	#$0001		;to point past '/' in volume name
vol_name_loop
		lda	[temp_ptr],y
		and	#$00FF
		beq	loop_end	;we have hit the last character
		cmp	#delimiter	;see if it is a seperator
		beq	loop_end


	if AllowLCPeriods then	;added 7-Aug-91 DAL
		cmp	#$0020
		bne	@not_blank
		lda	#$002E		;make a blank into a period
@not_blank
	endif			;end 7-Aug-91 DAL

		cmp	#$0061		;check if we need to convert to upper case. "a"
		bcc	@no_upper
		cmp	#$007B		;check "z"+1
		bcs	@no_upper
		and	#$00DF		;convert to upper case
@no_upper
		sta	volume_name+1,y	;store name in buffer
		iny
		cpy	#$0011		;is length > 15 characters? -- 1/12/92 AEN
		bcc	vol_name_loop	;no, keep copying
		lda	#bad_path_syntax ;else we've got a bad pathname
		sec
		jmp	main_exit

loop_end
		tax			;save the terminating reason
		lda	#$0000		;terminate the string with a null byte
		sta	volume_name+1,y
		dey			;adjust string length
		sty	volume_name
		txa
		rts
;
;This routine will save the case bits for the last piece of the pathname and
;will convert the input string to all uppercase.
;
		Export	set_case_bits
set_case_bits
		pha
		phx
		phy
		
		
		ldy	#$0000		;start at the first character please
@outter_loop
		lda	#$4000		;arm the case bit mask please
		sta	case_bit_pattern
		stz	case_bits
@inner_loop
		lda	[temp_ptr],y	;get the user's input character please
		and	#$00FF		;now check delimiters
		beq	@end_of_string
		cmp	#delimiter
		beq	@next_part	;do the next part of the path please

	if AllowLCPeriods then	;added 7-Aug-91 DAL
		cmp	#' '
		bne	@not_a_blank
		lda	#'.'
		bra	@was_a_blank
@not_a_blank
	endif				;end 7-Aug-91 DAL

		cmp	#$0061		;check if we need to convert to upper case. "a"
		bcc	@no_upper
		cmp	#$007B		;check "z"+1
		bcs	@no_upper
		and	#$00DF		;convert to upper case
@was_a_blank	tax			;save the character please
		lda	case_bit_pattern
		ora	case_bits
		sta	case_bits	;save the case bit for this character
		txa
@no_upper
		sep	#$20		;8 Bit store
		sta	[temp_ptr],y	;save the character back please
		rep	#$20		;back to 16 bit mode
		lsr	case_bit_pattern
		iny			;move to the next position please
		bra	@inner_loop

@next_part
		iny			;advance to the next part of the pathname
		bra	@outter_loop
		
@end_of_string
		ply
		plx
		pla
		rts
		ENDP

;==========================================================================
;Move_vol_name: This routine will move the volume name pointed to by
;               drvr_buf_ptr into the buffer pointed to by the address
;               in the X and Y registers
;
;Input:         A = undefined
;               X = low word pointer to the destination buffer
;               Y = high word pointer to the destination buffer
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               drvr_buf_ptr            ;points to the volume header in blk two
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Uses:          All registers
;               temp_ptr
;
		longa	on
		longi	on

		EXPORT	move_vol_name	
move_vol_name	PROC

		stx	temp_ptr
		sty	temp_ptr+2

		lda	[drvr_buf_ptr]
		and	#$000F		;isolate name length
		sta	[temp_ptr]	;save the length in word format
		tay

		clc
		lda	temp_ptr
		adc	#$0002
		sta	temp_ptr
		bcc	ar1
		inc	temp_ptr+2
ar1					; 

		longa	off
		sep	#$20
move_loop				; 
		lda	[drvr_buf_ptr],y
		sta	[temp_ptr],y
		dey
		bne	move_loop

		longa	on
		rep	#$20
		rts

		ENDP

;==========================================================================
;set_default_buf:       sets up the default buffer pointer
;
;
;Enter:         jsr
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Uses:          A register
;
		longa	on
		longi	on

		EXPORT	set_default_buf	
set_default_buf	PROC

		lda	gbuf_addr	;setup the general I/O buffer
		sta	drvr_buf_ptr
		lda	gbuf_addr+2
		sta	drvr_buf_ptr+2
		rts

		EXPORT	standard_req
standard_req				;               
		lda	#blk_size
		sta	drvr_req_cnt
		stz	drvr_req_cnt+2
		rts
		ENDP

;======================================================================
;setup_my_vcr:  this routine sets up a pointer to the prodos specific
;               volume control record.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               my_vcr_ptr              (Points to main VCR)
;
;Output:        A = undefined
;               X = low word of prodos vcr
;               Y = high word of prodos vcr
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Uses:          All registers
;               my_vcr_ptr
; 
		longa	on
		longi	on
		
		EXPORT	setup_my_vcr	
setup_my_vcr	PROC
		
		clc
		lda	my_vcr_ptr
		adc	#vcr_dev+2	;start of local data for vcr
		tax
		lda	my_vcr_ptr+2
		adc	#$0000
		tay
		rts

		ENDP


;======================================================================
;setup_my_fcr:  this routine sets up a pointer to the prodos specific
;               file control record data.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               my_fcr_ptr              (Points to main FCR)
;
;Output:        A = undefined
;               X = low word of prodos fcr
;               Y = high word of prodos fcr
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Uses:          All registers
;               my_fcr_ptr
; 
		longa	on
		longi	on
		
		EXPORT	setup_my_fcr	
setup_my_fcr	PROC
		
		clc
		lda	my_fcr_ptr
		adc	#fcr_access+2	;start of local data for fcr
		tax
		lda	my_fcr_ptr+2
		adc	#$0000
		tay
		rts
		ENDP

;======================================================================
;setup_io_ptrs  this routine sets up pointers to the active data buffers
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               my_fcr_ptr              (Points to main FCR)
;               pro_fcr_ptr             (points to specific data)
;
;Output:        A = undefined
;               X = low word of prodos vcr
;               Y = high word of prodos vcr
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Uses:          All registers
;               my_fcr_ptr
;               math_temp
;
		longa	on
		longi	on
		
		EXPORT	setup_io_ptrs	
setup_io_ptrs	PROC

		stz	data_ptr	;init the pointers
		stz	index_ptr
		stz	master_ptr
		stz	data_ptr+2
		stz	index_ptr+2
		stz	master_ptr+2

		lda	#fcr_io_start
		sta	math_temp	;save the start of the I/O buffer

		ldy	#fcr_status	;see if master index is active
		lda	[pro_fcr_ptr],y
		and	#master_active
		beq	no_master	;there is no master index block

		clc
		lda	my_fcr_ptr
		adc	math_temp
		sta	master_ptr
		lda	my_fcr_ptr+2
		adc	#$0000
		sta	master_ptr+2
		jsr	next_block	;bump the pointer to the next block

no_master				; 
		ldy	#fcr_status	;see if there is an index block
		lda	[pro_fcr_ptr],y
		and	#index_active
		beq	no_index	;there is no index block

		clc
		lda	my_fcr_ptr
		adc	math_temp
		sta	index_ptr
		lda	my_fcr_ptr+2
		adc	#$0000
		sta	index_ptr+2
		jsr	next_block	;bump the pointer to the next block

no_index				; 
		ldy	#fcr_status	;see if there is a data block
		lda	[pro_fcr_ptr],y
		and	#data_active
		beq	end_io_setup	;there is no data block

		clc
		lda	my_fcr_ptr
		adc	math_temp
		sta	data_ptr
		lda	my_fcr_ptr+2
		adc	#$0000
		sta	data_ptr+2

end_io_setup				; 
		rts

next_block				; 
		clc
		lda	math_temp
		adc	#blk_size
		sta	math_temp
		rts

		ENDP

;======================================================================
;setup_bitmap_ptr: This routine will return a pointer to the bitmap
;               buffer and setup 'bitmap' to point to the bitmap buffer
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               my_vcr_ptr              (Points to main VCR)
;
;Output:        A = undefined
;               X = low word of bitmap
;               Y = high word of bitmap
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               bitmap                  (bitmap pointer is setup)
;
;Uses:          All registers
;               my_vcr_ptr
; 
		longa	on
		longi	on
		
		EXPORT	setup_bitmap_ptr 
setup_bitmap_ptr PROC
		
		clc
		lda	my_vcr_ptr
		adc	#bitmap_start	;starting location of bitmap
		sta	bitmap
		tax
		lda	my_vcr_ptr+2
		adc	#$0000
		sta	bitmap+2
		tay
		rts
		ENDP

;======================================================================
;clear_gbuf_low This routine will zero the lower half of the general
;               buffer.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               gbuf_ptr
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Uses:          All registers
;               gbuf_ptr
; 
		longa	on
		longi	on
		
		EXPORT	clear_gbuf_low	
clear_gbuf_low	PROC

		lda	#$0000
		bra	do_clear
		EXPORT	fill_gbuf_low
fill_gbuf_low				;               
		lda	#$FFFF

do_clear				; 
		ldy	#$01FE
clear					; 
		sta	[gbuf_ptr],y
		dey
		dey
		bpl	clear

		rts
		ENDP

;======================================================================
;clear_gbuf_hi. This routine will zero the upper half of the general
;               buffer.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               gbuf_ptr
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Uses:          All registers
;               gbuf_ptr
;               temp3_ptr
; 
		longa	on
		longi	on

		EXPORT	clear_gbuf_high	
clear_gbuf_high	PROC

		clc
		lda	gbuf_ptr
		adc	#$0200
		sta	temp3_ptr
		lda	gbuf_ptr+2
		adc	#$0000
		sta	temp3_ptr+2

		ldy	#$01FE
		lda	#$0000
clear					; 
		sta	[temp3_ptr],y
		dey
		dey
		bpl	clear

		rts
		ENDP


;======================================================================
;read_write_setup:
;               this routine sets up common parameters between read/write
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               pcount                  ;for cache check
;               my_pblk_ptr             ;must be setup
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               user_buf_ptr
;               user_req_cnt
;               drvr_cache
;               tran_cnt                ;set to zero
;
;Uses:          All registers
;
		longa	on
		longi	on

		EXPORT	read_write_setup 
read_write_setup PROC

;Start code by turning off disk caching and setting up other parameters
		lda	user_cache
		sta	drvr_cache
		stz	tran_cnt
		stz	tran_cnt+2

		lda	pcount		;is cache priority avail?
		cmp	#$0005
		bne	no_cache

;If we get here then the user has provided a cache priority for the file.
;So we must verify that it is a legal value for caching.

get_priority				; 
		ldy	#pblk_12_cache
		lda	[my_pblk_ptr],y
		beq	no_cache	;same as mine
		cmp	#user_cache_val
		beq	good_cache
		bra	param_err

good_cache				; 
		sta	drvr_cache

;Setup a pointer to the user's buffer.

no_cache				; 

		ldy	#pblk_12_buf
		lda	[my_pblk_ptr],y
		sta	users_buf_ptr
		iny
		iny
		lda	[my_pblk_ptr],y
		and	#$00FF
		sta	users_buf_ptr+2

;Go ahead and zero the user's transfer count.

		ldy	#pblk_12_tran	;zero the transfer count
		lda	#$0000
		sta	[my_pblk_ptr],y
		iny
		iny
		sta	[my_pblk_ptr],y

;Now lets get the user's request count.

		ldy	#pblk_12_req
		lda	[my_pblk_ptr],y
		sta	user_req_cnt
		iny
		iny
		lda	[my_pblk_ptr],y
		sta	user_req_cnt+2
		tax
		and	#$FF00		;is high byte zero?
		beq	good_cnt

param_err				; 
		sec
		lda	#parm_range_err
		bra	to_scm

;Handle the easy case of a request count of zero first.

good_cnt				; 
		txa
		ora	user_req_cnt
		bne	not_zero
		clc
to_scm					; 
		jmp	main_exit

not_zero				; 
		rts
		ENDP


		EXPORT	rw_adjust	
rw_adjust	PROC			;read/write adjust

;==========================================================================
;adjust the buffer pointer by the number of bytes read
;
;IMPORTANT NOTES:
;               drvr_req_cnt is always =< $0001FE00
;               users_buf_ptr is always < $00FFFFFF
;
		clc
		lda	users_buf_ptr
		adc	drvr_req_cnt
		sta	users_buf_ptr
		lda	users_buf_ptr+2
		adc	drvr_req_cnt+2
		sta	users_buf_ptr+2

;==========================================================================
;adjust the total number of bytes read from file
;
;IMPORTANT NOTES:
;               tran_cnt is always =< $00FFFFFF
;               drvr_req_cnt is always =< $0001FE00
;
;Carry is clear from the above addition.

		lda	tran_cnt
		adc	drvr_req_cnt
		sta	tran_cnt
		lda	tran_cnt+2
		adc	drvr_req_cnt+2
		sta	tran_cnt+2

;==========================================================================
;adjust the current file marker
;
;IMPORTANT NOTES:
;               curr_mark is always =< $00FFFFFF
;               drvr_req_cnt is always =< $0001FE00
;

		lda	curr_mark
		adc	drvr_req_cnt
		sta	curr_mark
		lda	curr_mark+2
		adc	drvr_req_cnt+2
		sta	curr_mark+2

;adjust the number of bytes remaining to send

		sec
		lda	user_req_cnt
		sbc	drvr_req_cnt
		sta	user_req_cnt
		lda	user_req_cnt+2
		sbc	drvr_req_cnt+2
		sta	user_req_cnt+2
		rts
		ENDP

;==========================================================================
;entry_to_offset This routine will convert the data from a directory
;               header to an offset.
;
;Input:         A = entry_number
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = entry_offset
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;
;Uses:          All registers

		longa	on
		longi	on
		EXPORT	entry_to_offset	
entry_to_offset	PROC

		and	#$00FF
		dec	a
		cmp	#$000D		;is it out of range?
		bcs	error
		asl	a
		tay
		lda	dir_offset_tbl,y
		clc
error					; 
		rts

		ENDP

;======================================================================
;Issue Mount:calls the Mount_Message Routine with a pointer to the name
;            stored in Volume_name.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               volume_name             ;must be setup
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
; 
;Uses:          All registers
;               Mount_Message
;

		EXPORT	issue_mount	
issue_mount	PROC

		lda	volume_name
		xba
		sta	volume_name

		pea	volume_name>>16
		pea	volume_name+1	;push a pointer to the volume name
		lda	#$0001		;1 = manditory mount!
		jsl	mount_message
		tax			;get the result code
		lda	volume_name
		xba
		sta	volume_name
		txa			;restore result code 0 = ok 1 = cancel
		bne	cancel_mount

		clc			;user selected OK
		rts

cancel_mount				; 
		sec			;return volume not found error to user
		lda	#vol_not_found
		rts
		ENDP


;======================================================================
;Damaged_message: This routine will tell the user that the disk cannot
;               be written too.  The routine will also jmp to the
;               main exit routine.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
; 
;Uses:          All registers
;

		EXPORT	damaged_message	
damaged_message	PROC

		pha
		jsr	show_damage
		jsl	unlock_mem	;release any memory
		sec
		pla			;get the error code please
		jml	sys_exit

		EXPORT	show_damage
show_damage				;               
		jsr	setup_vol_mesg	;move the name from the VCR to buffer

		lda	volume_name	;make Gstring a Pstring
		xba
		sta	volume_name

		pea	$0003		;message number three
		pea	volume_name>>16
		pea	volume_name+1	;push a pointer to the volume name.
		pea	$0000
		pea	$0000		;push dummy space.
		jsl	report_error

		lda	volume_name	;make Pstring a Gstring
		xba
		sta	volume_name
		rts

		EXPORT	setup_vol_mesg
setup_vol_mesg				;               
		ldy	#vcr_name	;index to Name VP
		lda	[my_vcr_ptr],y
		tax
		iny
		iny
		lda	[my_vcr_ptr],y
		tay
		jsl	deref		;make a real pointer to vol name
		stx	temp_ptr
		sty	temp_ptr+2

		lda	[temp_ptr]	;get the length of the string
		tay
		iny
move_loop				; 
		lda	[temp_ptr],y
		sta	volume_name,y
		dey
		bpl	move_loop
		rts

		ENDP

;======================================================================
;read_with_mount:
;               This routine with make a device read call and if an
;               error occurs (other then the I/O error) the mount
;               volume routine will be called.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               all parameters for the driver must be setup.
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
; 
;Uses:          All registers
;               Device Dispatcher  (subroutine)
;               device_call

		EXPORT	read_with_mount	
read_with_mount	PROC

		lda	#drvr_read
		bra	do_call

		EXPORT	write_with_mount
write_with_mount              
		lda	#drvr_write

do_call 
		sta	drvr_call_num
		jsr	dev_with_mount
		rts
		ENDP

;======================================================================
;read_with_cache:
;write_with_cache:
;               This routine with make a device read/write call and
;               store the data in the system cache. error occurs
;               (other then the I/O error) the mount volume routine
;               will be called.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               all parameters for the driver must be setup.
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
; 
;Uses:          All registers
;               Device Dispatcher  (subroutine)
;               device_call

		EXPORT	read_with_cache	
read_with_cache	PROC

		lda	#drvr_read
		bra	continue

		EXPORT	write_with_cache
write_with_cache			;               
		lda	#drvr_write

continue				; 
		sta	drvr_call_num

		lda	[my_vcr_ptr]	;setup the Volume ID field
		sta	drvr_vol_id

		lda	drvr_cache	;save current cache setting
		pha
		lda	#in_cache	;store this block in the cache
		sta	drvr_cache

		jsr	dev_with_mount
		php			;save processor status 'A' = error code
		tax			;save any error code
		lda	2,s		;restore old cache value
		sta	drvr_cache
		txa
		plp			;restore carry bit
		plx			;fix the stack
		rts

		ENDP


;======================================================================
;dev_with_mount This routine with make a device call and if an
;               error occurs (other then the I/O error) the mount
;               volume routine will be called.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               all parameters for the driver must be setup.
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
; 
;Uses:          All registers
;               Device Dispatcher  (subroutine)
;               device_call

		EXPORT	dev_with_mount	
dev_with_mount	PROC

		jsr	device_call
		bcs	check_err
		rts
check_err
		cmp	#drvr_disk_sw	;is this a disk switch error?
		beq	do_find		;go and find the volume please
		cmp	#drvr_off_line	;is the volume off-line?
		beq	do_find
		sec
		rts			;This is some real error from the user
do_find 
		jsr	mount_volume
		bcc	dev_with_mount	;re-issue the original call please.
		rts			;return the error please

		ENDP

;======================================================================
;Device_call:calls the dispatcher and trys to read or write.  If the
;            call returns a disk switched error then the routine will
;            re-read the disk again. 
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               all parameters for the driver must be setup except for
;               drvr_blk_size and drvr_fst_num, these are setup by the
;               call. (ONLY if the call is a READ or WRITE) 
;          
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
; 
;Uses:          All registers
;               Device Dispatcher  (subroutine)
;

		EXPORT	device_call	
device_call	PROC

		lda	drvr_call_num
		cmp	#drvr_status
		bcs	to_device	;just call the device

		cmp	#drvr_write
		beq	is_write

		lda	drvr_cache
		and	#$7FFF		;clear the deferred bit if not a write
		sta	drvr_cache
		bra	do_it
is_write
		sta	write_occurred	;indicate that a write occured during this call
		lda	drvr_dev_num	;save the device number that I have written too.
		sta	write_dev_num
do_it
		lda	#blk_size
		sta	drvr_blk_size
		stz	drvr_blk_num+2

to_device
		jsl	dev_dispatcher	;call the read routine
		rts

		ENDP


;======================================================================
;flush_bitmap:  This routine forces a dirty bitmap to be written to
;               disk.  The bitmap will be written to disk only if the
;               file counter is equal to zero.
;
;force_bitmap:  same as flush_bitmap except the bitmap block is ALWAYS
;               flushed.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               prodos_vcr_ptr
;               my_vcr_ptr
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
; 
;Uses:          All registers
;               drvr_buf_ptr
;               dev_with_mount
;

		longa	on
		longi	on		

		EXPORT	flush_bitmap	
flush_bitmap	PROC

		ldy	#dirty_file_cnt	;see if there open files on disk?
		lda	[prodos_vcr_ptr],y
		beq	force_bitmap	;no open files so do flush.
		clc
		rts			;just exit.

		EXPORT	force_bitmap
force_bitmap				;This entry point force block to disk

		ldy	#bitmap_dirty
		lda	[prodos_vcr_ptr],y
		beq	no_change

;Get the device number first

		ldy	#vcr_dev
		lda	[my_vcr_ptr],y
		sta	drvr_dev_num

;We need to update the disk since the bitmap is corrupt
;First we calculate the block number of the block to write

		ldy	#vol_bitmap_addr
		lda	[prodos_vcr_ptr],y
		ldy	#curr_bitmap
		clc
		adc	[prodos_vcr_ptr],y
		sta	drvr_blk_num
		stz	drvr_blk_num+2

;Get the address of where the bitmap block is located.
;setup drvr_buf_ptr to point to the bitmap buffer

		jsr	setup_bitmap_ptr
		stx	drvr_buf_ptr
		sty	drvr_buf_ptr+2

;setup the call to do a write

;Force the request count to 512 bytes

		lda	#blk_size
		sta	drvr_req_cnt
		stz	drvr_req_cnt+2

;Call the device.
		jsr	write_with_cache
		bcc	clear_dirty
		rts

clear_dirty				; 
		ldy	#bitmap_dirty
		lda	#$0000
		sta	[prodos_vcr_ptr],y

		ldy	#curr_bitmap	;see if this is first free block.
		lda	[prodos_vcr_ptr],y

		ldy	#avail_bitmap
		cmp	[prodos_vcr_ptr],y
		bne	no_change
		inc	a		;see if this is the last bitmap blk.
		ldy	#num_bitmap_blks
		cmp	[prodos_vcr_ptr],y
		bcs	no_change	;this is the last bitmap block

		ldy	#$01FE		;we must check first free
chk_first_free				; 
		lda	[drvr_buf_ptr],y
		bne	no_change
		dey
		dey
		bpl	chk_first_free	;check the entire block please.

		ldy	#avail_bitmap	;bump avail to next block please
		lda	[prodos_vcr_ptr],y
		inc	a
		sta	[prodos_vcr_ptr],y

no_change				; 
		clc
		rts
		ENDP

;==========================================================================
;flush_file:    This routine will write any modified blocks to disk.
;
;Input:         A = dev_number
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               pro_fcr_ptr             (points to data to write)
;               my_vcr_ptr              (points to main VCR)
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Uses:          All registers

		longa	on
		longi	on


		EXPORT	flush_file	
flush_file	PROC
		stz	flush_entry	;indicate that we should flush everything
		bra	cont_flush

		Entry	do_fast_flush	;entry point used by the fast version of the flush call
do_fast_flush
		lda	#1		;set flag
		bra	stuffit

		EXPORT	flush_io_Buffer
flush_io_buffer
		lda	#$FFFF		;do not flush the directory entry
stuffit
		sta	flush_entry
cont_flush
		jsr	standard_req

;First lets call flush bitmap which will update the bitmap for us
		jsr	flush_bitmap
		bcs	error_return	;return the error directly

;No we need to flush the file itself.  We only flush blocks that need to
;be flushed.  We will always update the file entry.

flushed					; 

		ldy	#fcr_status	;get the status bits
		lda	[pro_fcr_ptr],y
		sta	flush_flags
		bit	#file_dirty	;see if there is anything to update
		bne	do_update
		clc
error_return
		rts			;file does not need to be updated

;First lets see if we need to update the master index block.

do_update
		bit	#master_dirty
		beq	check_index

		ldy	#master_blk_num	;get the block number
		lda	[pro_fcr_ptr],y
		sta	drvr_blk_num
		beq	clear_master	;master block is sparse so do not update disk
		
		ldx	master_ptr
		ldy	master_ptr+2
		jsr	flush_block
		bcs	error_return	;return the error code

clear_master				; 
		lda	#master_clean
		jsr	clr_fcr_status	;mark master block as clean

;Update the index block if needed

check_index				; 
		lda	flush_flags
		bit	#index_dirty	;is the index block dirty
		beq	check_data
		jsr	flush_index
		bcs	error_return

;Update the data block if needed.

check_data				; 
		lda	flush_flags
		bit	#data_dirty	;is the data block dirty
		beq	update_entry
		jsr	flush_data_blk
		bcs	error_return

update_entry
		lda	flush_entry	;do we update the directory entry?
		beq	@do_entry	;yup, update the whole thing
		bmi	@just_data	;no, just flush the data blocks
	; else we're doing a fast flush call here.  flush dirty bitmap and
	; dirty directory ('dirty' meaning that anything besides mod date
	; and backup-bit have been changed).
		jsr	force_bitmap	;force the bitmap update
		lda	flush_flags	;is the directory dirty?
		bit	#dirEntry_dirty
		bne	@do_entry	;yes, so just go ahead and do the full flush
@just_data
		clc
		rts
@do_entry
		lda	#file_clean
		jsr	clr_fcr_status	;mark master block as clean
;
;Now lets update the VCR count to indicate that the file is clean
;
		lda	dirty_cnt_changed
		bne	@changed_once	;have we adjusted the number already?

		inc	dirty_cnt_changed
		ldy	#dirty_file_cnt
		lda	[prodos_vcr_ptr],y
		beq	@major_error
		dec	a
		sta	[prodos_vcr_ptr],y
		jsr	flush_bitmap	;now go and update the bitmap
		bcs	go_cannot_update
@major_error
@changed_once
		jsr	set_default_buf	;use the system buffer
		jsr	standard_req
		jsr	update_mod_time	;make sure we use the correct time

		jsr	get_parent	;load the I/O buffer with directory blk
go_cannot_update
		bcs	to_cannot_update
		jsr	verify_storage	;verify storage type
;
;Change for final release 8/16/88
;
;
; First we update the File Control Record to indicate the correct backup state
;
		ldy	#fcr_disk_acc	;update fcr along with dir entry
		lda	[pro_fcr_ptr],y
		ora	#backup_on
		sta	[pro_fcr_ptr],y
;
;Now we update the directory entry to indicate the correct backup state
;
		ldy	#access_index	;index to the access byte in a dir entry
		lda	[temp_ptr],y
		ora	#backup_on	;set the backup bit before update of disk
		sta	[temp_ptr],y	

		bcs	to_cannot_update

;If the file is a resource file then only update the modification time.
;Otherwise update the entire directory entry.

		ldy	#fcr_file_id
		lda	[pro_fcr_ptr],y
		ldy	#fcr_key_blk
		cmp	[pro_fcr_ptr],y
		beq	entry_ok	;file is not a resource file
		jsr	update_resource	;update the resource header
		bcs	to_cannot_update ;cannot write info to disk!
		jsr	set_default_buf	;restore buffer pointer

		ldy	#fcr_modified	;index into FCR
		lda	[pro_fcr_ptr],y
		ldy	#last_mod_index	;index into directory block
		sta	[temp_ptr],y	;update the directory entry
		ldy	#fcr_modified+2
		lda	[pro_fcr_ptr],y
		ldy	#last_mod_index+2
		sta	[temp_ptr],y
		bra	update_disk	;now update the directory

;Move the entire directory info then write the block back to disk.

entry_ok				; 
		ldy	#fcr_storage
		lda	[temp_ptr]
		and	#$FF0F		;clear current storage type
		ora	[pro_fcr_ptr],y	;adjust the storage type
		sta	[temp_ptr]

		ldx	#fcr_eof
		ldy	#fcr_curr_eof	;move the current EOF to disk EOF
		lda	[pro_fcr_ptr],y
		phy
		txy
		sta	[pro_fcr_ptr],y
		inx
		ply
		iny
		lda	[pro_fcr_ptr],y
		txy
		sta	[pro_fcr_ptr],y

		ldy	#fcr_header_ptr	;start at the end
		ldx	#header_ptr_index

blast_loop				; 
		lda	[pro_fcr_ptr],y
		phy
		txy
		sta	[temp_ptr],y
		dex
		ply
		dey
		cpy	#fcr_file_type
		bne	blast_loop

update_disk 
		jsr	write_with_cache
to_cannot_update
		bcs	cannot_update

		lda	#dirEntry_clean
		jsr	clr_fcr_status	;mark directory entry as clean

		lda	close_flag	;should we update the directories?
		ora	time_stamp_opt	;check user's option for time stamp too
		ora	flush_flags	;and which type of flush we're doing
		beq	dont_bother	;no directory updates please

		ldy	#header_ptr_index
		lda	[temp_ptr],y
		sta	drvr_blk_num
		cmp	#vol_dir_start
		beq	dont_bother

		jsr	read_with_cache
		bcs	cannot_update
		ldy	#parent_index	;get the parent block number
		lda	[drvr_buf_ptr],y
		sta	slug_block	;save the block number
		ldy	#par_entry_num
		lda	[drvr_buf_ptr],y
		jsr	entry_to_offset
		sta	slug_offset
		jsr	slug_ripple	;do the slug ripple
		rts

dont_bother				; 
		clc
cannot_update				; 
		rts

		EXPORT	flush_index
flush_index				;               
		ldy	#index_blk_num	;get the block number
		lda	[pro_fcr_ptr],y
		sta	drvr_blk_num
		beq	clear_index	;the block is sparse so don't write it!
		ldx	index_ptr
		ldy	index_ptr+2
		jsr	flush_block
		bcc	clear_index
		rts			;return the error code

clear_index				; 
		lda	#index_clean
		jsr	clr_fcr_status	;mark master block as clean
		rts


		EXPORT	flush_data_blk
flush_data_blk				;               
		ldy	#data_blk_num	;get the block number
		lda	[pro_fcr_ptr],y
		sta	drvr_blk_num
		beq	clear_data	;the block is sparse so don't write it to disk
		
		ldx	data_ptr
		ldy	data_ptr+2
		jsr	flush_block2
		bcc	clear_data
		rts			;return the error code

clear_data				; 
		lda	#data_clean
		jsr	clr_fcr_status	;mark master block as clean
		clc
		rts

;If we get here then we are updating a resource file.  So we need to update
;the resource header block with the following information.
;
;               Storage Type
;               key_block
;               blocks used
;               eof
;

update_resource				; 
		lda	drvr_blk_num	;save the block number please
		pha

		jsr	standard_req
		jsr	set_default_buf
		inc	drvr_buf_ptr+1
		inc	drvr_buf_ptr+1	;use the high block of the buffer!!!

		ldy	#fcr_file_id	;index to header block
		lda	[pro_fcr_ptr],y
		sta	drvr_blk_num	;read in the block please
		jsr	read_with_cache
		bcs	end_res_update

		ldy	#fcr_res_num	;which resource are we updating?
		lda	[pro_fcr_ptr],y
		xba			;make an index $0000 or $0100
		tax			;point to start of header

		ldy	#fcr_storage	;stoarge type of file
		lda	[pro_fcr_ptr],y
		lsr	a		;convert $10,$20,$30 -> $1,$2,$3
		lsr	a
		lsr	a
		lsr	a
		txy			;index to storage type
		sta	[drvr_buf_ptr],y
		inx			;advance to key block

		ldy	#fcr_key_blk
		lda	[pro_fcr_ptr],y
		txy
		sta	[drvr_buf_ptr],y
		inx
		inx			;advance to blocks used

		ldy	#fcr_blks_used
		lda	[pro_fcr_ptr],y
		txy
		sta	[drvr_buf_ptr],y
		inx
		inx			;advance to EOF

		ldy	#fcr_curr_eof
		lda	[pro_fcr_ptr],y
		txy
		sta	[drvr_buf_ptr],y
		inx
		ldy	#fcr_curr_eof+1
		lda	[pro_fcr_ptr],y
		txy
		sta	[drvr_buf_ptr],y

		jsr	write_with_cache	;Update the disk
		bcs	end_res_update
		
		clc
		ldy	#$0003			;index to the blocks used data
		lda	[drvr_buf_ptr],y
		ldy	#$0103			;index to blocks used resource
		adc	[drvr_buf_ptr],y
		adc	#$0001			;add in the header block
		
		ldy	#blks_used_index	;index into directory block
		sta	[temp_ptr],y		;update the directory entry
		clc
end_res_update
		plx				;restore the block number
		stx	drvr_blk_num
		rts

;==========================================================================
;This routine reads the GS clock and stores the time in the modification
;field of the current FCR.

update_mod_time				; 
		jsr	pack_time	;time for mod date (X=low Y=high)
		phy			;save high word
		ldy	#fcr_modified
		txa
		sta	[pro_fcr_ptr],y
		iny
		iny
		pla
		sta	[pro_fcr_ptr],y	;update high word
		rts

;==========================================================================
;This routine will read in the parent block for a FCR and update the
;modification date.
;
;input:         pro_fcr_ptr             ;MUST be setup
;
;output:        carry = error
;               temp_ptr                ;points to the file entry

get_parent				; 
		ldy	#fcr_parent
		lda	[pro_fcr_ptr],y	;get the address of the directory blk
		sta	drvr_blk_num
		jsr	read_with_cache	;get the directory block please
		bcc	block_loaded
		rts

block_loaded				; 
		ldy	#fcr_entry_offs	;offset to directory entry
		lda	[pro_fcr_ptr],y
		adc	drvr_buf_ptr
		sta	temp_ptr
		lda	#$0000
		adc	drvr_buf_ptr+2
		sta	temp_ptr+2
		clc
		rts

;==========================================================================
;This routine verifies that the entry pointed to by 'temp_ptr' is a valid
;ProDOS entry.  It verifies this by looking at the storage type.

verify_storage				; 
		lda	[temp_ptr]	;get stoarge/length byte
		and	#$00F0		;verify the storage type please
		cmp	#resource_type
		beq	good_entry
		cmp	#seedling_type
		beq	good_entry
		cmp	#sapling_type
		beq	good_entry
		cmp	#tree_type
		beq	good_entry
		cmp	#subdir_type
		beq	good_entry

		lda	#dir_error	;the directory must be damaged
		sec
		rts

good_entry	clc
		rts

;Force the block to disk

flush_block				; 
		stx	drvr_buf_ptr
		sty	drvr_buf_ptr+2
		jsr	write_with_cache
		rts
flush_block2				; 
		stx	drvr_buf_ptr
		sty	drvr_buf_ptr+2
		jsr	write_with_mount
		rts

		EXPORT	clr_fcr_status
clr_fcr_status				;               
		ldy	#fcr_status
		and	[pro_fcr_ptr],y
		sta	[pro_fcr_ptr],y
		rts

		ENDP

;==========================================================================
;slug_ripple:   This routine will time stamp the parent directories for ALL
;               operations that require writing to the directory.  This
;               routine is SLOW and is very stupid on our type of system.
;               It is put here for compatability only.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               drvr_buf_ptr            (points to the directory entry)
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Uses:          All registers
;               device_dispatcher
;
		longa	on
		longi	on

		EXPORT	slug_ripple	
slug_ripple	PROC

		lda	time_stamp_opt	;are we time stamping at all?
		bne	do_stamp
		clc
		rts
do_stamp
		lda	drvr_blk_num
		pha
		lda	drvr_buf_ptr
		pha
		lda	drvr_buf_ptr+2
		pha

		jsr	pack_time	;get the time please

		clc
		lda	gbuf_addr
		adc	#blk_size
		sta	drvr_buf_ptr
		lda	gbuf_addr+2
		adc	#$0000
		sta	drvr_buf_ptr+2

		lda	slug_block	;setup the block
		bne	@around
		brl	do_volume_mod	;no slug block, so time stamp the volume please

@around		sta	drvr_blk_num

slug_loop 
		jsr	read_with_cache	;read in the block please
		bcs	end_slug_err

		ldy	slug_offset	;offset to the entry
		lda	[drvr_buf_ptr],y
		and	#$00F0		;check the storage type
		cmp	#subdir_type
		bne	bad_slug_dir	;sorry bud

		tya
		clc
		adc	#last_mod_index
		tay			;index to the last mod field
		lda	pro_time	;Get the time we are going to stamp with
		sta	[drvr_buf_ptr],y
		lda	pro_time+2
		iny
		iny
		sta	[drvr_buf_ptr],y
		
					;new code added 3/15/91 CAE
		ldy	slug_offset	;offset to the entry
		tya
		clc
		adc	#access_index
		tay			;index to the access field
		lda	[drvr_buf_ptr],y
		ora	#backup_on	;set the backup bit
		sta	[drvr_buf_ptr],y
					;end of new code
					
		jsr	write_with_cache
		bcs	end_slug_err	;a major error
		

		lda	time_stamp_opt	;are we walking to root?
		dec	a
		beq	end_slug	;not today.

		clc
		lda	slug_offset	;offset to the entry
		adc	#header_ptr_index ;point to the header pointer please
		tay
		lda	[drvr_buf_ptr],y
		cmp	#vol_dir_start	;is this the root?
		beq	do_volume_mod	;set the volume modification date
		
		cmp	drvr_blk_num	;is the block already loaded?
		beq	block_loaded	;you bet-cha
		sta	drvr_blk_num	;next block to read
		jsr	read_with_cache
		bcs	end_slug_err	;sorry bud major error

block_loaded 
		ldy	#parent_index
		lda	[drvr_buf_ptr],y
		sta	drvr_blk_num	;new block number
		iny
		iny			;get the entry number
		lda	[drvr_buf_ptr],y
		jsr	entry_to_offset
		sta	slug_offset	;the new offset
		bra	slug_loop	;ripple to the top.

bad_slug_dir 
		lda	#dir_error
		bra	end_slug_err

end_slug 
		clc

end_slug_err 
		plx
		stx	drvr_buf_ptr+2
		plx
		stx	drvr_buf_ptr
		plx
		stx	drvr_blk_num
		rts
;
;Now lets go and time stamp the volume please
;
do_volume_mod		
		lda	#vol_dir_start		;Setup the block number for the Root
		sta	drvr_blk_num
		jsr	read_with_cache		;read in the block please
		bcs	end_slug_err		;I hate it with this happens
		
		ldy	#vol_mod_offset		;offset to the Mod time field for the volume
		lda	pro_time
		sta	[drvr_buf_ptr],y
		iny
		iny
		lda	pro_time+2
		sta	[drvr_buf_ptr],y	;store the time

						;new code added 3/15/91 CAE
		ldy	#vol_acc_offset		;offset to the access field
		lda	[drvr_buf_ptr],y
		ora	#backup_on		;set the backup bit on disk
		sta	[drvr_buf_ptr],y
						;end of new code

		ldy	#vol_mod		;update the VCR as well as the disk
		lda	pro_time
		sta	[prodos_vcr_ptr],y
		iny
		iny
		lda	pro_time+2
		sta	[prodos_vcr_ptr],y

						;new code added 4/4/91 CAE
		ldy	#vol_access		;offset to the access field
		lda	[prodos_vcr_ptr],y
		ora	#backup_on		;set the backup bit in the VCR
		sta	[prodos_vcr_ptr],y	;so that the disk and VCR match
						;end of new code

		jsr	write_with_cache
		bcs	end_slug_err		;a major error
		bra	end_slug		;no error, all is wonderful
		ENDP

;==========================================================================
;extend_subdir  This routine will extend a directory if needed.
;
;input:         free_dir_blk            ;dir blk with a empty entry.
;               dir_start_blk           ;starting block of the directory
;               dir_last_blk            ;last block of the directory
;
;output:        free_dir_blk            ;dir blk with a empty entry.
;               free_dir_offset         ;offset to directory entry within block
;               dir_start_blk           ;starting block of the directory
;               dir_last_blk            ;last block of the directory
;

		longa	on
		longi	on

		EXPORT	extend_subdir	
extend_subdir	PROC
		with	expand_record
		
		bit	expand_file	;are we adding a directory entry?
		bmi	good_exit	;if we are expanding a file we donot need to extend the
					;directory

		lda	free_dir_blk	;is there a free entry for this file?
		bne	good_exit	;do not extend the directory

		lda	dir_start_blk
		cmp	#vol_dir_start	;is this the root directory?
		bne	not_root

		lda	#vol_dir_full	;return an error please
		sec
		rts

not_root				; 
		lda	#$0001		;allocate one block for directory.
		ldx	dir_last_blk	;start looking here for next block
		jsr	find_Free_blks	;go and get one
		bcs	error_out	;error out
		stx	drvr_blk_num	;this is the new directory block

		stx	free_dir_blk	;new block number
		lda	#$0004		;index to first free entry
		sta	free_dir_offset

		jsr	set_default_buf	;use the genaral buffer
		jsr	standard_req	;512 byte write
		jsr	clear_dir_buf	;clear the 512 byte general buffer
		jsr	append_last_blk
		bcs	error_out	;major problem
		jsr	update_forw_lnk	;update forward link to new block
		bcs	error_out
		jsr	update_parent	;update parents blocks used count
		bcs	error_out
good_exit				; 
		clc
error_out				; 
		rts			;extend complete

;==========================================================================
;Update_parent: This routine will update the blocks used and last mod date
;               of the parent entry for the directory.

update_parent				; 
		lda	dir_start_blk
		sta	drvr_blk_num	;key block for directory
		jsr	read_with_cache
		bcs	exit_update

		ldy	#parent_index
		lda	[gbuf_ptr],y	;get the parent block number
		sta	drvr_blk_num

		ldy	#par_entry_num
		lda	[gbuf_ptr],y
		and	#$00FF		;get the number
		dec	a
		cmp	#$000D		;number of entries
		bcs	bad_dir_bud
		asl	a		;times 2 for a word table
		tay
		lda	dir_offset_tbl,y
		sta	entry_offset	;save offset to dir entry

		jsr	read_with_cache	;read in the parent block
		bcs	exit_update
		ldy	entry_offset
		lda	[gbuf_ptr],y
		and	#$00F0		;is this a subdir entry?
		cmp	#subdir_type
		bne	bad_dir_bud

		tyx

		clc
		tya
		adc	#$0013		;index to blocks used for file
		tay
		lda	[gbuf_ptr],y
		inc	a
		sta	[gbuf_ptr],y
		iny
		iny			;point to EOF

		clc
		lda	[gbuf_ptr],y
		adc	#blk_size
		sta	[gbuf_ptr],y	;add 512 to the EOF field
		bcc	good_eof
		iny
		iny			;point to the third byte of EOF
		longa	off
		sep	#$20		;short A
		lda	[gbuf_ptr],y
		inc	a
		sta	[gbuf_ptr],y
		longa	on
		rep	#$20

good_eof				; 
		clc
		txa
		adc	#$0021		;index to mod time
		pha
		jsr	pack_time
		ply			;index
		lda	pro_time
		sta	[gbuf_ptr],y	;update mod time
		iny
		iny
		lda	pro_time+2
		sta	[gbuf_ptr],y

		jsr	write_with_cache
exit_update				; 
		rts

bad_dir_bud				; 
		lda	#dir_error	;bad directory block
		sec
		rts


;==========================================================================
;update_forw..  This routine will link the new directory block just
;               allocated to the current last block of the directory.

update_forw_lnk				; 
		lda	dir_last_blk
		sta	drvr_blk_num	;now read in the directory block.
		jsr	read_with_cache
		bcs	forw_exit	;major problems. sorry about droppings!

		ldy	#$0002		;index to next pointer
		lda	[gbuf_ptr],y
		bne	bad_dir_bud
		lda	free_dir_blk	;forward link directory block.
		sta	[gbuf_ptr],y
		jsr	write_with_cache
forw_exit	rts

;==========================================================================
;append_last..  This routine will link the new block to the previous
;               block in the directory.

append_last_blk				; 
		lda	dir_last_blk	;setup the backward link
		sta	[gbuf_ptr]
		jsr	write_with_cache
		rts

clear_dir_buf				; 
		ldy	#$01FE		;clear the general work buffer
		lda	#$0000

clear_dir				; 
		sta	[gbuf_ptr],y
		dey
		dey
		bpl	clear_dir	;every body happy now!
		rts

		ENDP


;==========================================================================
;Chk_swapped:   This routine will determine if the volume has been swapped
;               If the volume has been swapped then we will request the
;               user to put the volume back online.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               my_vcr_ptr              ;pointer to vcr
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
; 
;Uses:          All registers
;               temp_ptr
;               volume_name
;               find_volume
;
		longa	on
		longi	on

		EXPORT	chk_swapped	
chk_swapped	PROC

;Now we have all of our data setup for the read.  Now we need to see if
;the volume has been swapped out.  If it has then we must go and find
;it again.

		ldy	#vcr_status
		lda	[my_vcr_ptr],y
		and	#vcr_swapped	;disk logged out?
		beq	disk_back

;Little Bo-Peep-Show has lost her disk and doesn't know where to find it!
;Therefore we will go and find it for her.

		ldy	#vcr_name
		lda	[my_vcr_ptr],y
		tax
		iny
		iny
		lda	[my_vcr_ptr],y
		tay
		jsl	deref
		stx	temp_ptr
		sty	temp_ptr+2

;Now we have a pointer to the name but we must move it to 'volume_name'

		lda	[temp_ptr]
		and	#$000F
		tay
		dey

move_name				; 
		lda	[temp_ptr],y
		sta	volume_name,y
		dey
		bpl	move_name

;Now that we have moved the name to volume_name buffer we need to call
;'find_volume' and let it look for it.

		jsr	mount_volume
		rts

disk_back				; 
		clc
		rts
		ENDP
;======================================================================
;ID.Disk:       This file contains the code that will id the media
;               to determine if the media is in ProDOS/SOS format.
;               If the disk is a ProDOS disk and there is no VCR then
;               a new VCR will be generated for that disk.  If there is
;               a VCR then it is marked active.
;
;Input:         A = device number
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;               drvr_buf_ptr            ;points to storage/vol name field
;                                       ;with storage type removed
;Uses:          All registers
;               Device Dispatcher  (subroutine)
;               General I/O Buffer (1K buffer, I read 512 bytes)
;
;Diagram of pointers and memory segments
;
; (I/O Buffer)
;  ___________
; |           | <--- pointed to by 'drvr_buf_ptr'
; |           | <---               'drvr_buf_ptr' later points to volume name
; |___________|    |
;                  |____ 'temp3_ptr' points to data AFTER volume name area
;
;
;  (vcr)
;  ___________ <-- pointed to by 'my_vcr_ptr'
; |           |         ___________________
; | vol name -|------> |___________________| <-- pointed to by 'Temp2_Ptr'
; |           |
; |           | 
; |           |
; |           | <-- pointed to by 'prodos_vcr_ptr'
; |___________|
;
		longa	on
		longi	on

		EXPORT	id_disk		
id_disk		PROC

		sta	drvr_dev_num	;driver number
		lda	#drvr_read
		sta	drvr_call_num
		lda	#vol_dir_start	;starting block of directory
		sta	drvr_blk_num
		stz	drvr_blk_num+2
		jsr	standard_req

		ldx	gbuf_addr	;setup pointer to general I/O buffer
		ldy	gbuf_addr+2
		stx	drvr_buf_ptr
		sty	drvr_buf_ptr+2

try_again	jsr	device_call	;make a system call to drive
		bcc	id_no_error
;                                       ;error code in X already but it may
;                                       ;change in the future.  currently
;                                       ;all code is cast in jello 
		and	#$00FF		;clear the dispatcher error code
		beq	id_no_error	;Dispatcher returning disk switched
		cmp	#drvr_disk_sw	;was the disk switched?
		beq	try_again
		sec			;swapped out by device call routine
		rts			;if the disk was switched 

;======================================================================
;ID method used to determine disk is ProDOS format:
;
;(1)            read in block two (First directory block)
;(2)            backward link must be zero (first word)
;(3)            storage type must be $F (high nibble: byte $04)
;(4)            name length must be > $0 (low nibble: byte $04)
;(5)            name must be valid syntax
;(6)            minimum version must be $00 (byte $21)
;(7)            entry length must be $27 (SOS/ProDOS size)
;(8)            entries per block must be $0D
; 
;If the above information causes problems with other disks then I will
;read in the second block of the directory and verify that the link
;fields are correct.  This may cause a problem if there is no second
;block in the directory.  If this is the case then I will check the
;bitmap allocation for correctness.  If this fails then forget it.
;
;======================================================================

id_no_error	lda	[drvr_buf_ptr]	;load backward link
		bne	bad_format
		ldy	#$0021		;offset to minimum version
		lda	[drvr_buf_ptr],y
		and	#$00FF
		bne	bad_format


;Now that we have checked both the backward link and version we now
;need to adjust the pointer to point to the storage/name length field
;within the block.

		clc
		lda	drvr_buf_ptr
		adc	#$0004
		sta	drvr_buf_ptr
		bcc	ar
		inc	drvr_buf_ptr+2
		
ar					; 
		lda	[drvr_buf_ptr]	;load storage/name length
		tay	
		and	#$00F0
		cmp	#$00F0		;is it a volume directory type?
		bne	bad_format
		tya
		and	#$000F		;isolate file name length
		beq	bad_format	;must be $01 to $0F
		tay
;
;Now we need to verify that the name is a valid ProDOS filename
;

loop
		lda	[drvr_buf_ptr],y
		and	#$00FF
		cmp	#'A'		
		bcc	numeric
		cmp	#'Z'+1
		bcs	bad_format
		dey
		bne	loop

;If we get here then we need to check both the entry length and
;entries per block.  If everything is OK then we will call a routine
;that will build a new vcr or mark the vcr as active
		
its_mine				; 
		ldy	#$0023-4	;index to entry length
		lda	[drvr_buf_ptr],y
		cmp	#$0D27		;both entry length and entry per blk
		bne	bad_format	
		jsr	build_vcr	;build a volume control record
		rts			;note: error set be build_vcr

numeric					; 
		cmp	#'0'		
		bcc	period
		cmp	#'9'+1
		bcs	bad_format
continue	dey
		bne	loop

bad_format				; 
		lda	#unknown_vol	;I don't know what this disk is
		sec
		rts

period		cmp	#'.'		
		bne	bad_format
		bra	continue

		ENDP

;======================================================================
;Build_VCR:     This routine will add a new VCR if one is currently not
;               allocated, if the VCR is allocated then it will be
;               marked as active.
; 
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               drvr_buf_ptr            (points to volume header) 
;		cp_device_flag = 1 if doing a ChangePath call and source is device #
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;
;Uses:          All registers
;               find_vcr                (system subroutine)
;               alloc_vcr               (system subroutine) 
;               General I/O Buffer      (1K buffer, I read 512 bytes)
; 
		longa	on
		longi	on
		
		EXPORT	build_vcr	
build_vcr	PROC

		jsr	move_vol_entry	;move the entry to the work area
		jsr	entry_to_gstr

;
; If bit 15 of cp_flag is set, assume the source disk is a duplicate volume
; and fall into the code that handles duplicate volumes with open files.
; Since cp_device_flag is already set, it will cause a fake VCR to be allocated.
;					5-Dec-91 MSD
;
		bit	cp_flags	; should we assume the disk is a duplicate?
		bpl	@not_dup	; no, so do the usual
		brl	is_open		; yes, pretend duplicate volume with open files
@not_dup

; End of 5-Dec-91 MSD change.

;Call system routine to see if it can find a vcr with the same volume
;name.  If the accum contains a zero then the routine will will
;use x and y as a pointer to a volume name.  If the accum contains
;a non zero value then the routine will try to find a vcr with
;the same volume id.

		ldx	#gstring	;pointer to the volume name
		ldy	#^gstring
		lda	#0000		;0000=search for vcr by name
		jsl	find_vcr
		bcs	no_vcr		;this name is not in any VCR

		jsl	deref		;convert virtual to real
		stx	my_vcr_ptr
		sty	my_vcr_ptr+2	;setup pointer to VCR

		ldy	#vcr_fst_id
		lda	[my_vcr_ptr],y
		cmp	#pro_id		;is this my vcr
		bne	check_active	;if not, can we kick it out?

		jsr	setup_my_vcr	;make a pointer to my vcr stuff
		stx	prodos_vcr_ptr
		sty	prodos_vcr_ptr+2

		bit	drvr_fst_num	;are we looking at name only?
		bmi	name_only	;yes.

		ldy	#entry_length-18
compare_loop	lda	one_entry+16,y	;we add 16 so we pass the name field
		cmp	[prodos_vcr_ptr],y
		bne	check_active	
		dey
		bpl	compare_loop

name_only				; 
		ldy	#vcr_dev	;update the last known device
		lda	drvr_dev_num
		sta	[my_vcr_ptr],y

		jsr	activate_vcr	;mark the vcr as swapped in
		jsr	reset_vcr	;reset blocks free etc.
		clc
		rts

sorry_dup				; 
		lda	#dup_volume	;duplicate volume online
		sec
		rts	

;If we get here it means that the volume name already exist in vcr.
;So I need to see if there are any open files on the volume.  If there
;are no open files then I can kick the current vcr out of memory and
;build a new one.  If there are open files then I will return a
;duplicate volume error.  Note:  I check to make sure that the volume
;header has not changed.  This protects me from marking a volume as
;being swapped in and writing to it blindly if it has the same name.

; Note - If we get a duplicate volume error and cp_device_flag = 1 then ignore
; 	 the error since we are doing a ChangePath call with a device # as the source.
;	 1/22/91 CAE

check_active				; 
;		ldy	#vcr_open_cnt
;		lda	[my_vcr_ptr],y
;		bne	sorry_dup	;files open so don't log in new volume
;		jsr	free_vcr	;free vcr pointed to by 'my_vcr_ptr'

		ldy	#vcr_open_cnt
		lda	[my_vcr_ptr],y		;any open files?
		beq	not_open		;no
is_open						;Added 5-Dec-91 MSD
		lda	cp_device_flag		;are we doing a special ChangePath call?
		beq	sorry_dup		;no - so report a duplicate volume error
		ora	#$8000			;yes - so indicate we got a dup vol error
		sta	cp_device_flag
		lda	<drvr_dev_num		; 5-Feb-92 MSD: Force other VCR's for this
		jsl	swap_out		; 5-Feb-92 MSD: to be swapped out.
		bra	no_vcr			;and continue
		
not_open	jsr	free_vcr		;free vcr pointed to by 'my_vcr_ptr'

;below begins the grunt work.  we now have to allocate a new vcr and
;setup all are fields. 

; Note - If cp_device_flag = $8001 then we need to use a fake name for the VCR 
; 	 since we got a duplicate volume error.  1/22/91 CAE

no_vcr		ldx	#gstring	;pointer to the name
		ldy	#^gstring
		lda	cp_device_flag		;do we need to use fake name for vcr?
		bpl	@cont			;no
		ldx	#fake_name_str		;yes - so point to fake name string
		ldy	#^fake_name_str		
@cont		lda	#pro_vcr_size	;number of bytes to allocate
		jsl	alloc_vcr
		bcc	alloc_ok
		rts			;exit with the error

alloc_ok				; ;now build my data structures
		jsl	deref		;convert virtual to real address
		stx	my_vcr_ptr
		sty	my_vcr_ptr+2
		jsr	setup_my_vcr	;setup pointer to my data
		stx	prodos_vcr_ptr
		sty	prodos_vcr_ptr+2

		ldy	#vcr_fst_id	;indicate that this vcr is owned by me.
		lda	#pro_id
		sta	[my_vcr_ptr],y
		
		ldy	#vcr_dev	;convert to INY,INY
		lda	drvr_dev_num	
		sta	[my_vcr_ptr],y

		ldy	#vcr_status	
		lda	#0000		;zero the status word
		sta	[my_vcr_ptr],y

		ldy	#entry_length-16
entry_loop	lda	one_entry+16,y
		sta	[prodos_vcr_ptr],y
		dey
		bpl	entry_loop	;move the entire directory entry

;warning: if the 'BPL' instruction above changes, then the accum will
;         have to be loaded with $FFFF directly.

		tya			;now init free blocks to $FFFF.  This
		ldy	#free_blocks	;indicates that free blks is unknown
		sta	[prodos_vcr_ptr],y
		ldy	#avail_bitmap
		sta	[prodos_vcr_ptr],y
		ldy	#curr_bitmap	;indicate we don't know about these
		sta	[prodos_vcr_ptr],y
		
;Now we need to calculate the number of bitmap blocks that are on
;the volume.  We also calculate how many bytes in the last block must
;by zero.  If these bytes are not zero then the bitmap is damaged 

		stz	math_temp	;setup for even multiple of 4K
		ldy	#vol_total_blks	;convert total blocks to number of
;                                       ;bitmap blocks on volume 
		lda	[prodos_vcr_ptr],y
		tax			;save total block count
		and	#$0FFF
		beq	calc_bitmap
		inc	math_temp

calc_bitmap				; 
		txa
		and	#$F000		;clear unwanted garbage
		rol	a
		rol	a
		rol	a
		rol	a
		rol	a
		adc	math_temp	;add in for odd block size
		ldy	#num_bitmap_blks
		sta	[prodos_vcr_ptr],y

even_bit				; 
		txa
		and	#$0007
		beq	found_even_bit	;this is the block number we want
		inx			;add one to the block count
		bra	even_bit	;keep trying to find byte boundary
		
found_even_bit				; 
		jsr	calc_bit	;'Y' will equal byte index into blk
		tya
		ldy	#end_bitmap	;first byte in the bitmap that must be
		sta	[prodos_vcr_ptr],y
;                                       ;set to zero in the last blk of bitmap
		clc	
		rts	
		ENDP
		
;======================================================================
;activate_vcr:  This routine will mark the vcr as being logged in
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               my_vcr_ptr              (Points to main VCR)
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;                                       (the VCR is logged in)
;
;Uses:          All registers
;               my_vcr_ptr
; 
		longa	on
		longi	on
		
		EXPORT	activate_vcr	
activate_vcr	PROC
		
		ldy	#vcr_status
		lda	[my_vcr_ptr],y
		and	#vcr_swapped_in
		sta	[my_vcr_ptr],y
		rts
		ENDP

;======================================================================
;Enrty_to_gstr  This routine moves the name from the alloc_entry to
;               gstring buffer. It will also append a null.
;
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               alloc_entry             (contains the volume name)
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;               gstring                 (contains gstring)
;
;Uses:          All registers
;
		longa	on
		longi	on

		EXPORT	entry_to_gstr	
entry_to_gstr	PROC

		ldy	alloc_entry	;the length of the string
		iny
		iny			;point to null field
		lda	#$0000
		sta	gstring,y	;store the null
		dey

		php			;save current mode
		longa	off
		sep	#$20
loop					; 
		lda	alloc_entry,y
		sta	gstring,y
		dey
		bpl	loop
		plp
		rts
		ENDP


;======================================================================
;Find_volume:   This routine will locate a volume using the ID routine.
;
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               volume_name             (contains the volume name to find)
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;
;Uses:          All registers
;               find_vcr                (system subroutine)
;               id_disk                 (subroutine)
;               General I/O Buffer      (1K buffer, I read 512 bytes)
;               volume_name
;               drvr_buf_ptr 

		longa	on
		longi	on

		EXPORT	find_volume	
find_volume	PROC

		lda	#$0001		;start with device number 1
		sta	search_device	
		stz	skip_dev

		jsr	chk_vol_syntax

		ldx	#volume_name	;try to find the volume in a vcr
		ldy	#^volume_name
		lda	#$0000
		jsl	find_vcr
		bcs	check_drive

;check to see if this vcr is mine
		
		jsl	deref		;convert to real pointer
		stx	my_vcr_ptr
		sty	my_vcr_ptr+2

		ldy	#vcr_fst_id
		lda	[my_vcr_ptr],y
		cmp	#pro_id
		beq	get_device
		lda	#unknown_vol	;tell caller its another fsts
		sec
		rts			;return

;setup the device number to check first
		
get_device
		ldy	#vcr_dev
		lda	[my_vcr_ptr],y	
		sta	search_device
		sta	skip_dev	;indicate we are starting in the middle 
		bra	do_id

check_drive
		lda	search_device
		cmp	skip_dev	;do I need to skip this one?
		beq	next_dev	
do_id		jsr	id_disk
		bcc	compare_vol

		cmp	#invalid_dev_num ;have we looked at all the devices?
		beq	vol_not_avail
		cmp	#dup_volume	;is the volume a duplicate?
		beq	abort_search
		bra	check_search	;go ahead and try another drive.

vol_not_avail
		lda	#vol_not_found

abort_search
		sec
		rts			;sorry not today
		
next_dev
		inc	search_device
		bra	check_drive	

compare_vol
		lda	[drvr_buf_ptr]	;get the length
		and	#$000F
		cmp	volume_name	;sixteen bit name length
		bne	check_search	;Cannot be the same

		tay			;save the length
		php
		longa	off
		sep	#$20		;short accum for string compare

comp_loop
	if AllowLCPeriods then		;added 7-Aug-91 DAL
		lda	volume_name+1,y
		cmp	#' '
		bne	@not_blank
		lda	#'.'
@not_blank	cmp	[drvr_buf_ptr],y
	else				;original code
		lda	[drvr_buf_ptr],y
		cmp	volume_name+1,y
	endif				;end 7-Aug-91 DAL


		bne	not_same
		dey
		bne	comp_loop
		longa	on		;keep the assembler in line
		plp
		clc
		rts			;this is it.

not_same				; 
		plp
check_search				; 
		lda	skip_dev
		cmp	search_device	;are we looking at a default drive?
		bne	next_dev	;no we are not.
		stz	search_device	;start the search from the beginning
		bra	next_dev


		EXPORT	chk_vol_syntax
chk_vol_syntax				;check the syntax of the volume name
		longa	off
		longi	off
		sep	#$30
		ldy	volume_name	;get the length word
					;check the length first		10/10/91 JEV
		cpy	#$10
		bcc	vol_syntax_loop
		bra	syntax_death

vol_syntax_loop				; 
		lda	volume_name+1,y

		cpy	#$0001		;is this the first character
		bne	not_first
		cmp	#'a'		
		bcc	not_lower
		cmp	#'z'+1
		bcs	syntax_death
		and	#$DF

not_lower				; 
		cmp	#'A'		
		bcc	syntax_death
		cmp	#'Z'+1
		bcc	good_syntax

syntax_death				; 
		longa	on
		longi	on
		rep	#$30
		lda	#bad_path_syntax
		sec
		jmp	main_exit

good_syntax				; 
		dey
		bne	vol_syntax_loop
		rep	#$30
		rts

		longa	off
		longi	off
not_first				; 
		cmp	#'a'		
		bcc	not_lower2
		cmp	#'z'+1
		bcs	syntax_death
		and	#$DF

not_lower2				; 

		cmp	#'A'		
		bcc	check_num
		cmp	#'Z'+1
		bcs	syntax_death
		bra	good_syntax

check_num				; 
		cmp	#'0'		
		bcc	check_period
		cmp	#'9'+1
		bcs	syntax_death
		bra	good_syntax

check_period				; 
	if AllowLCPeriods then	;added 7-Aug-91 DAL
		cmp	#' '
		bne	@not_blank
		lda	#'.'
		sta	volume_name+1,y
		bra	good_syntax
@not_blank
	endif			;end 7-Aug-91 DAL

		cmp	#'.'		
		bne	syntax_death
		bra	good_syntax

;local data for find volume

search_device	DC.W	00
skip_dev	DC.W	00
		
		ENDP
;======================================================================
;Find_File:     This file contains the code that will locate a file on
;               disk.
;
;revisions:
;               apr 09 1987             ;added forward/backward link verify 
;               apr 09 1987             ;changed routine to read a block
;                                       ;at a time instead of 1K
;               apr 10 1987             ;added additional check for path
;                                       ;searching.
;               apr 27 1987             ;changed code to handle 'C' strings
;               may 02 1987             ;added memory based tree routines
;                                       ;so all accessed directories will
;                                       ;be added into a b-tree. 
;               sep 14 1987             ;added support for searching for
;                                       ;blank entries in the directory
;
;Input:         A = device number
;               X = low word: pointer to name
;               Y = high word: pointer to name
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               drvr_vol_id
;               my_vcr_ptr
;               prodos_vcr_ptr
;               search_flag             ;IF bit 14 = 1 then search for blank
;                                       ;blank entry in directory, as well
;                                       ;as checking for duplicate file error.
;
;Format of pathname:
;               1) volume name is NOT part of the pathname
;               2) pathname begins with a length byte
;               3) each part of the pathname is seperated with a colon char.
;               4) pathname MUST end with a NULL char.
; 
;Output:        A = error code or offset to entry within the I/O buffer
;               X = pointer to name (low word)
;               Y = pointer to name (high word)
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;               dir_start_blk           ;starting block of last dir searched
;               free_dir_blk            ;first block with a blank entry
;               free_dir_offset         ;offset to first free entry within blk
;               dir_last_blk            ;block number that contains found file.
;            or drvr_blk_num            ;or the last block of the directory.
;               path_searched           ;if + then entire path NOT searched
;                                       ;if - then the entire path was searched
;		slug_block		;block number of the entry
;		slug_offset		;offset to the entry.
;
;Uses:          All registers
;               Device Dispatcher  (subroutine)
;               General I/O Buffer (1K buffer, I read 1K bytes)
;               temp_ptr
;               gbuf_ptr 
;               path_level
;
		longa	on
		longi	on

		EXPORT	find_file	
find_file	PROC
		
		sta	drvr_dev_num	;device number to search on
		stx	temp_ptr	;pointer to the name
		sty	temp_ptr+2

		lda	gbuf_addr
		sta	gbuf_ptr
		sta	drvr_buf_ptr
		lda	gbuf_addr+2
		sta	gbuf_ptr+2
		sta	drvr_buf_ptr+2

		stz	curr_mod_date	;zero the latest mod date field
		stz	curr_mod_date+2
		
		lda	#vol_dir_start	;default starting block
		sta	dir_start_blk	;starting block for current directory
		sta	dir_last_blk	;last block read by find file
		sta	drvr_blk_num
		stz	drvr_blk_num+2	
vcr_not_alloc 
		jsr	standard_req

		lda	#drvr_read	;setup for reading
		sta	drvr_call_num
		
		stz	chars_checked
		stz	path_searched	;indicates if entire path searched
		jsr	setup_name	;setup first part to look for
		stz	entries_blk_num	;block that contains the entry
outter_loop				; 
		stz	last_blk	;used to verify directory structure
		stz	free_dir_blk	;indicate no free dir entry
		stz	free_dir_offset
		stz	searching_free	;we are looking for free entries
		
search_loop				; 
		jsr	read_with_cache	;issue the read command
		bcs	error_leave	;some error has occured

		jsr	verify_dir	;verify forward/backward links
		bcs	error_leave	;get out of here, links disagree

		stz	entries_checked	;reset file counter
		ldy	#0004		;pass the link pointers
		jsr	check_block	;see if name is in the block
		bcc	found

		bit	searching_free	;are we looking for a free entry?
		bpl	check_active	;no we are looking for the file.
		lda	free_dir_blk	;Have we found a free entry yet?
		beq	load_next	;No, so load the next block
		bit	path_searched	;are we looking for the last name?
		bpl	load_next	;No.
		bra	no_more_blks	;yes, so return data

check_active				; 
		lda	files_in_dir	;subtract off active entries checked
		sbc	files_examined
		bcc	dir_damaged	;the directory count does not match
		beq	not_found	;we have looked at all the files.

load_next				; 
		ldy	#0002		;check next link field
		lda	[gbuf_ptr],y	;get the forward link
		beq	no_more_blks	;cannot check any further
		sta	drvr_blk_num	;read this block next
		sta	dir_last_blk	;save last block read
		bra	search_loop

not_found				; 
		bit	search_flag	;are we suppose to find a free entry?
		bvc	no_more_blks	;no we are not
		lda	free_dir_blk	;do we already have a free entry?
		bne	no_more_blks	;yes we do!
		dec	searching_free
		bra	load_next	;continue to look for a blank entry.

no_more_blks				; 
		lda	path_searched	;was the entire path searched?
		bne	file_err	;yes the entire path was searched
		lda	#path_not_found	;a subdirectory was not found
		sec
		rts
file_err				; 
		lda	#file_not_found	;you guessed it, no file today
		sec			;sorry no file by that name
error_leave	rts

;we get here if the total number of active files is greater then the
;total number of files in the directory
		
dir_damaged				; 
		lda	#dir_error	;this is a bad directory
		sec
		rts
		
;If we get here then we have found the name we were looking for.
;Now we need to see if there is anymore pathname to process.  If there
;is nothing left to process then we exit all happy.  If there is more
;to process then we make sure that the entry we just found is a
;subdirectory.  If it is not then we exit with file not found. 

found					; 
		lda	drvr_blk_num	;block number that contains entry
		sta	entries_blk_num	;block number that contains the entry
		sta	dir_last_blk	;last block read
		sty	entries_offset	;offset to the entry
		
		tyx
		ldy	chars_checked
		dey	
		lda	[temp_ptr],y	;see if we are done
		and	#$00FF
		beq	find_success	;yes we have succeeded

		txy	
		lda	[gbuf_ptr],y	;see if type is directory
		and	#$00F0
		cmp	#$00D0		;it is a directory
		bne	not_found	;can not go any further

		lda	drvr_blk_num	;save the entries block number for
		sta	slug_block	;slug ripple routine.
		sty	slug_offset	;offset to file entry.

		tya
		clc
		adc	#$0011		;make index to key block pointer
		tay
		lda	[gbuf_ptr],y
		sta	drvr_blk_num
		sta	dir_start_blk	;starting block for next directory
		sta	dir_last_blk	;save last block read
		jsr	setup_name	;setup next partial to find

		jmp	outter_loop
		
;Below is a happy place to be.  This means that we have found the
;file that we were commissioned to find.  So we will setup a pointer
;to the name and return to the caller.  Isnt' that special. 
		
find_success	txa			;we have located the name
		pha			;save the offset 
		clc
		adc	gbuf_ptr	;adjust buffer pointer
		tax
		lda	#0000
		adc	gbuf_ptr+2
		tay

		pla			;offset (0 to 512)
		clc
		rts			;X,Y contains a pointer to the name

;==========================================================================
;verify dir:    This routine will verify that the forward and backward
;               links of the subdirectory agree with each other.  If
;               they do not then we will return a dir_error.  The
;               routine also makes sure that the parent pointer,
;               entry length and entries per block are also correct. 
;
;input:         last_blk                ;contains previous dir block
;               entries_blk_num         ;parents block number 
;               drvr_blk_num            ;contains current block number
;
;output:        A = error if carry set otherwise no error 

verify_dir 
		lda	last_blk	;the previous directory block
		beq	verify_parent	;this is a special case since
					;no previous block has been read
		cmp	[gbuf_ptr]
		beq	dir_ok		;this is the way it should be
bad_dir					; 
		lda	#dir_error	;this is a bad directory
		sec
		rts
dir_ok
		lda	drvr_blk_num	;setup last block for next time
		sta	last_blk
		clc
		rts	

verify_parent				; 
		lda	entries_blk_num	;skip check if zero
		beq	pass_parent	;don't bother checking parent

		ldy	#$0027		;index to parent pointer
		cmp	[gbuf_ptr],y	;compare to childs parent
		bne	bad_dir		;parent/child don't match

pass_parent	ldy	#$0023		;index to entry length/entries per blk
		lda	[gbuf_ptr],y
		cmp	#$0D27
		bne	bad_directory	;this is something I don't know about

		ldy	#$0025		;index to total files in directory
		lda	[gbuf_ptr],y
		sta	files_in_dir
		stz	files_examined	;reset files examined
		bra	dir_ok
bad_directory
		lda	#version_error	;I don't know about this disk
		sec
		rts
		
;==========================================================================
;The following routine will look at all the entries within a directory
;block.  The entry is skipped if it is a volume header, subdirectory
;header or an inactive entry.  If an entry is found that is active then
;it is checked against the name we are looking for.  If the name is
;found then we exit indicating that we have found the file.  We
;continue to look for the name until we have looked at all the entries
;or the file is found. 

check_block	lda	entries_checked
		cmp	#entries_per_block
		beq	check_done
		inc	a
		sta	entries_checked

		lda	[gbuf_ptr],y	;get the storage type
		tax
		and	#$00F0		;check for directories
		cmp	#$00F0		;is this the volume Entry????
		bne	@chK_sub	;no it is not

		jsr	save_vol_mod	;save the volume modification if possible
		bra	next_entry
@chk_sub
		cmp	#$00E0
		bcs	next_entry	;skip headers
		txa	
		and	#$000F		;isolate name length
		beq	chk_need_free	;the entry is not active.
		inc	files_examined	;advance the number of active files
		jsr	save_latest_mod	;save the lastest mod date
		jsr	check_name
		bcs	next_entry
		rts			;we have found it

chk_need_free				; 
		lda	free_dir_blk	;block that contains a free entry
		bne	next_entry
		lda	drvr_blk_num
		sta	free_dir_blk	;save directory block number
		sty	free_dir_offset	;save offset to free entry

next_entry
		tya
		clc
		adc	#entry_length	;adjust pointer to next entry
		tay
		bra	check_block

check_done	sec			;sorry entry not found
		rts

save_vol_mod
		phy			;save directory entry index
		phx
		pha

		ldy	#vol_mod_offset	;get the mod date from the volume header
		lda	[gbuf_ptr],y
		sta	curr_mod_date
		iny
		iny
		lda	[gbuf_ptr],y
		sta	curr_mod_date+2
		
		pla
		plx
		ply
		rts

;Save_lastest_mod will save the lastest mod date that we find.  The reason
;we do this is to allow the mod date to be returned for the volume header.

save_latest_mod
		phy			;save directory entry index
		phx
		pha
		
		tya
		clc
		adc	#last_mod_index
		tay
		lda	[gbuf_ptr],y
		tax
		cmp	curr_mod_date	;see if the date is greater
		bcc	@not_greater
		beq	@check_time
		iny
		iny
		lda	[gbuf_ptr],y	;get the minutes etc.
		sta	curr_mod_date+2
		stx	curr_mod_date	;save the new latest date
		bra	@not_greater	;just exit
@check_time
		iny
		iny
		lda	[gbuf_ptr],y	;get the minutes etc.
		and	#$1F3F		;clear unused bits
		cmp	curr_mod_date+2
		bcc	@not_greater
		sta	curr_mod_date+2
		stx	curr_mod_date	;save the new latest date

@not_greater
		pla
		plx
		ply
		rts
		
;==========================================================================
;Check name will examine the name to see if it is the one that
;we are looking for.  If it is not then we return with carry set
;otherwise we return with carry clear. 

check_name 
		cmp	search_length
		bne	noway
		sta	name_length
		phy			;save y during search
		iny

		ldx	#0000

		longa	off		
		sep	#$20
name_loop 
		
		lda	[gbuf_ptr],y
		cmp	search_name,x
		bne	not_it
		inx
		iny
		dec	name_length
		bne	name_loop
		rep	#$30
		ply	
		clc
		rts

		longa	on		
not_it 
		rep	#$30
		ply	
noway		sec
		rts	

;==========================================================================
;The following routine when called, will isolate the next name to
;locate.  It does this by looking for the delimiter(delimiter = ':')
;The last delimiter is a null character.

		EXPORT	setup_name
setup_name             
		phy
		ldy	chars_checked	;index into source name
		lda	[temp_ptr],y	;are we done yet
		and	#$00FF
		bne	more_names
		dec	path_searched	;the entire path has been searched
		ply
		sec			;indicate we are thru
		rts
more_names 
		longa	off
		longi	on
		sep	#$20		;short accumulator please

		ldx	#$0000
looper
		lda	[temp_ptr],y
		beq	end_path	;end of name and end of string
		cmp	#delimiter
		beq	end_name	;we found a delimiter
		sta	search_name,x
		cpx	#$0000		;is this the first character?
		bne	not_first

		cmp	#'a'		
		bcc	not_lower1
		cmp	#'z'+1
		bcs	syntax_prob
		and	#$DF
not_lower1
		cmp	#'A'		
		bcc	syntax_prob
		cmp	#'Z'+1
		bcc	good_syntax
syntax_prob
		longa	on
		longi	on
		rep	#$20
		lda	#bad_path_syntax
		sec
		jmp	main_exit	;return to Jim with the error

		longa	off
		longi	on
not_first 
		cmp	#'a'		
		bcc	not_lower2
		cmp	#'z'+1
		bcs	syntax_prob
		and	#$DF
not_lower2 
		cmp	#'A'		
		bcc	check_num
		cmp	#'Z'+1
		bcs	syntax_prob
good_syntax
		inx
		iny
		bra	looper
check_num
		cmp	#'0'		
		bcc	check_period
		cmp	#'9'+1
		bcs	syntax_prob
		bra	good_syntax
check_period
	if AllowLCPeriods then	;added 7-Aug-91 DAL
		cmp	#' '
		beq	good_syntax
	endif			;end 7-Aug-91 DAL

		cmp	#'.'		
		bne	syntax_prob
		bra	good_syntax
end_path
		dec	path_searched+1	;the entire path has been searched
end_name
		iny
		sty	chars_checked	
		stx	search_length

		longa	on
		longi	on
		rep	#$30
		ply	
		clc
		rts

		ENDP

;======================================================================
;init the ProDOS fst

		longa	on
		longi	on

		EXPORT	startup		
startup		PROC
		
		jsl	get_sys_gbuf	;get the systems general buffer

good					; 
		stx	gbuf_addr
		sty	gbuf_addr+2	;save pointer to general work buffer
		
		clc
		rtl

		ENDP
		EXPORT	shutdown	
shutdown	PROC
		clc
		rtl
		ENDP

;======================================================================
;Sys_Remove_vol This file contains code that is called by the system
;               to remove a volume control record (VCR).
;
;Input:         A = undefined
;               X = (call number * 2)
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..0 = no error
;               b = k
;
;Uses:          All registers
;
		longa	on
		longi	on

		EXPORT	sys_remove_vol	
sys_remove_vol	PROC

		clc
		rtl

		ENDP

;======================================================================
;deferred_flush This file contains code that flush any deferred blocks
;               blocks to disk. This routine is called when the stop
;               session call is issued, and when swapout is called.
;               Since the routine can be called from swapout it must
;               save most of the direct page and local buffers.
;
;Input:         A = undefined
;               X = (call number * 2)
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..0 = no error
;               b = k
;
;Uses:          All registers
;
;======================================================================
		longa	on
		longi	on

		EXPORT	deferred_flush	
deferred_flush	PROC
;
;Save the world.  We do this in case we are called by SwapOut.
;
		jsr	save_def	;save the deferred envirnoment
		jsr	standard_req	;write 512 bytes
		lda	#blk_size
		sta	drvr_blk_size

		ldx	vcr_ptr
		ldy	vcr_ptr+2
		stx	my_vcr_ptr
		sty	my_vcr_ptr+2
		jsr	setup_my_vcr
		stx	prodos_vcr_ptr
		sty	prodos_vcr_ptr+2

;
;Setup ID_Disk routine to ID by volume name ONLY!!  This is important
;since block two is deferred and we are reading block two from the disk.
;Therefore the two blocks will problably not be the same.
;

		lda	#$8001		;set the high bit of FST_NUM
		sta	drvr_fst_num	;to force device access

;
;Try to locate the volume we are trying to write too.  We do this by
;calling 'find_Volume'.  More then likely the volume is still in the
;same drive.
;
		jsr	mount_volume	;go and locate the volume please
		bcs	bad_bad_news	;we our up the creek!

;
;After finding the volume I will call the 'cache_flsh_def' routine.  This
;routine will write all the deferred blocks to disk.
;
		lda	[my_vcr_ptr]	;setup the VOL ID
		sta	drvr_vol_id

		jsl	cache_flsh_def
		bcc	exit_deferred
;
;Now that we are here we must restore the world and return back to scm
;via an RTL instruction.
;

bad_bad_news				; 

exit_deferred				; 
		jsr	restore_def
		clc
		rtl

save_def				; 
		php
		phy
		phx
		pha

		ldx	#$004A		;save the direct page data
save_direct				; 
		lda	drvr_dev_num,x
		sta	def_dir_page,x
		dex
		bpl	save_direct
		ldx	#$0052		;save my direct page
save_my_direct				; 
		lda	fst_start,x
		sta	def_my_direct,x
		dex
		bpl	save_my_direct
		ldx	#19		;save the volume name buffers
save_def_vol				; 
		lda	volume_name,x
		sta	def_vol_name,x
		dex
		bpl	save_def_vol
		bra	save_rest_exit

;======================================================================

restore_def				; 
		php
		phy
		phx
		pha

		ldx	#$004A		;restore the direct page data
restore_direct				; 
		lda	def_dir_page,x
		sta	drvr_dev_num,x
		dex
		bpl	restore_direct
		ldx	#$0052		;restore my direct page
restore_dp				; 
		lda	def_my_direct,x
		sta	fst_start,x
		dex
		bpl	restore_dp
		ldx	#19		;restore the volume name buffers
restore_def_vol				; 
		lda	def_vol_name,x
		sta	volume_name,x
		dex
		bpl	restore_def_vol

save_rest_exit				; 
		pla
		plx
		ply
		plp
		rts

		ENDP

;======================================================================
;Create:        This file will create a new fresh file on disk.
;
;Input:         A = undefined
;               X = (call number * 2)
;               Y = (class number * 2)
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = error code if carry set (exit via system exit routine)
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;Uses:          All registers
;               Device Dispatcher       (subroutine)
;               General I/O Buffer      (1K buffer, I read 512 bytes)
;               find_file               (subroutine)
;
;Call Format:
;
;Class 0        Pathname Pointer        (4 Bytes)
;               Access                  (2 Bytes)
;               File Type               (2 Bytes)
;               Aux Type                (4 Bytes)
;               Storgae_type            (2 Bytes)
;               Create Date/Time        (4 Bytes: ProDOS Format)
;
;Class 1        PCount                  (2 Bytes)
;               Pathname Pointer        (4 Bytes)
;               Access                  (2 Bytes: E3 if not supplied)
;               File Type               (2 Bytes: 00 if not supplied)
;               Aux Type                (4 Bytes: 00 if not supplied)
;               Storage Type            (2 Bytes: 01 if not supplied)
;               Size Data Fork          (4 Bytes: 00 if not supplied)
;               Size Resource Fork      (4 Bytes: 00 if not supplied)
;
		longa	on
		longi	on

		EXPORT	create		

create		PROC
		with	expand_record

;Setup the defaults for the create call.

		stz	data_eof
		stz	data_eof+2
		stz	res_eof
		stz	res_eof+2
		
		jsr	setup_params
		php
		jsr	do_create_path
		jsr	default_entry	;Build a Entry with All defaults!
		plp
		bne	class1		;this is a new wonder version

		lda	#$0005		;set PCount for common setup
		sta	pcount
		jsr	create_common

		ldy	#pblk_01_old_time
		lda	[my_pblk_ptr],y	;load the old format time
		tax
		iny
		iny
		lda	[my_pblk_ptr],y
		bne	users_date	;user has supplied the data
		txy
		beq	both_classes	;us the GS system clock for the time

users_date				; 
		and	#$1F3F		;force the date to correct format.
		beq	clock_time	;use the GS clock time please
		sta	one_entry+create_index+2
clock_time				; 
		txa			;is the date field set?
		beq	both_classes	;use GS clock Date
		stx	one_entry+create_index
		bra	both_classes

class1	
		jsr	create_common

both_classes
		bit	expand_flag	;are we expanding a current file?
		bpl	@no_expansion

		lda	one_entry+last_mod_index
		pha
		lda	one_entry+last_mod_index+2
		pha
		lda	storage_type
		pha
		lda	one_entry
		pha
		jsr	move_dir_entry	;copy the entry from the disk
		pla
		sta	one_entry
		pla
		sta	storage_type
		pla
		sta	one_entry+last_mod_index+2
		pla
		sta	one_entry+last_mod_index
		
@no_expansion
		jsr	eof_to_blks	;convert bytes to blocks
;
;Blocks needed := Data_fork_blks + Res_fork_blks + subdir_blks + storage
;
chk_dir					; 
		lda	#$0000		;assume zero
		bit	expand_file	;are we adding a directory entry?
		bmi	no_extend
		ldx	free_dir_blk	;is there room for a dir entry?
		bne	no_extend	;yes, so don't bump blks needed
		inc	a		;add one for directory block needed
no_extend
		clc
		adc	blks_used1	;blocks for data fork
		clc
		adc	blks_used2	;blocks for resource fork
		sta	blocks_needed	;save total blocks needed for file
		bcs	@no_room

		lda	storage_type	;if the file is an extended file then add
		cmp	#resource_type	;one block for the extended file header
		bne	@not_extended
		inc	blocks_needed	;bump the blocks needed
@not_extended		
		jsr	calc_free_blks	;see if we have enough room for the file
		bcs	to_exit

		bit	expand_flag	;are we expanding a current file?
		bpl	@chk_sum	;no, so check the sum of the blocks needed
;
;We now know that we are extending a file, so we must check the blocks free against the
;number of blocks needed to add the resource fork.  The blocks needed for the resource
;fork is equal to blks_used2 + 1 (for resource header blk).  To compensate for the extra
;block needed, we will reduce the number of free blocks by 1, then compare against
;blks_used2 (blocks needed for resource fork).
;But first, we need to check if the number of free blocks is 0!!  CAE 11-6-90
;
		cmp	#0		;is free blocks = 0?
		beq	@no_room	;yes - so can't extend the file
		
		dec	a		;free blocks := free blocks -1; (compensate for header)
		cmp	blks_used2
		bcs	it_fits
		bra	@no_room	;sorry you cannot extend the file.

@chk_sum		
		cmp	blocks_needed	;do we have enough?
		bcs	it_fits		;yes we do.
@no_room
		lda	#volume_full	;no room on volume
to_exit	
		sec
		jmp	main_exit

it_fits	
		jsr	build_file	;go and make the file
		bcs	create_err
		jsr	force_bitmap	;make sure the bitmap is up to date
		bcs	create_err
		jsr	slug_ripple	;time stamp previous
create_err
		jmp	main_exit

;===============END OF THE CREATE CALL


;==========================================================================
;Build_file     This routine will allocate all needed blocks and build
;               the file.  It will also handle directory extending etc.
;
;input:         free_dir_blk            ;dir blk with a empty entry.
;               dir_start_blk           ;starting block of the directory
;               dir_last_blk            ;last block of the directory
;               used_blks1              ;blocks needed for data fork
;               used_blks2              ;blocks needed for resource fork
;               stoarge_type            ;type of file to be created
;               data_storage            ;storage type of data fork
;               res_storage             ;storage type of resource fork
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;Uses:          All registers
;               Device Dispatcher       (subroutine)
;               General I/O Buffer      (1K buffer, I read 512 bytes)

build_file				; 
		jsr	extend_subdir	;extend the directory IF needed.
		bcc	chk_storage
		rts

chk_storage				; 
		lda	storage_type	;see what we are creating
		cmp	#subdir_type
		bne	chk_next1
		jsr	create_subdir	;make a subdirectory
		bcs	build_failed
		bra	write_dir_entry

chk_next1				; 
		cmp	#resource_type
		bne	chk_next2
		jsr	create_resource	;make a resource file
		bcs	build_failed
		bra	write_dir_entry

chk_next2				; 
		cmp	#tree_type
		bne	chk_next3
		jsr	create_tree	;make a tree file
		bcs	build_failed
		bra	write_dir_entry

chk_next3				; 
		cmp	#sapling_type
		bne	do_seedling
		jsr	create_sapling	;make a sapling file
		bcs	build_failed
		bra	write_dir_entry

build_failed				; 
		rts

do_seedling	jsr	create_seedling
		bcs	build_failed

write_dir_entry

		jsr	set_default_buf	;get ready to write the dir entry.
		jsr	standard_req
		lda	free_dir_blk	;where to store dir entry
		sta	drvr_blk_num
		jsr	read_with_cache	;read in the directory block
		bcs	build_failed	;this is real bad news! bitmap killed.

		lda	dir_start_blk
		sta	one_entry+header_ptr_index
;
;now let's save the case state of the file please
;
		lda	case_bits	;case bits for this file
		beq	@its_all_upper
		bit	fst_attr	;If the user has set all upper then skip case code
		bmi	@its_all_upper
		ora	#$8000		;set the case active bit.
		sta	case_bits
		sta	one_entry+version_index
@its_all_upper		
		ldx	#$0001
		ldy	free_dir_offset
		lda	one_entry
		sta	[gbuf_ptr],y
		iny
move_it					; 
		lda	one_entry,x	;move in the directory entry.
		sta	[gbuf_ptr],y
		iny
		iny
		inx
		inx
		cpx	#entry_length
		bcc	move_it

		lda	drvr_blk_num	;is this 'dir_start_blk'
		cmp	dir_start_blk	;If yes then do not write twice
		beq	write_once

		jsr	write_with_cache
		bcs	build_failed	;sorry, your disk is bad now

		bit	expand_flag	;are we expanding the file?
		bmi	chk_pcount	;don't change the number of files in the directory

		lda	dir_start_blk	;now update file count
		sta	drvr_blk_num
		jsr	read_with_cache
		bcs	build_failed

write_once
		bit	expand_flag	;are we expanding the file? minus = yes
		bmi	dont_update_vcr	;don't change the number of files in the directory

		ldy	#header_file_cnt
		lda	[gbuf_ptr],y	;load current file count
		inc	a		;bump it by one
		sta	[gbuf_ptr],y

		lda	drvr_blk_num	;see if this is the volume header
		cmp	#vol_dir_start
		bne	dont_update_vcr

		ldy	#vol_file_count
		lda	[prodos_vcr_ptr],y
		inc	a		;bump file count in vcr also
		sta	[prodos_vcr_ptr],y

dont_update_vcr				; 
		jsr	write_with_cache
		bcs	no_store_type
chk_pcount	lda	pcount
		cmp	#$0005		;can we return the storage type
		bcs	do_store
		rts

do_store				; 
		ldy	#pblk_01_stype	;set the user's storage type
		lda	storage_type
		lsr	a
		lsr	a
		lsr	a
		lsr	a
		sta	[my_pblk_ptr],y
		clc
no_store_type				; 
		rts			;exit with error / no error


;==========================================================================
;create_seed..  This routine will create a seedling file on disk.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = error code if carry set (exit via system exit routine)
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;               one_entry               ;ready to be written to disk
;
;Uses:          All registers
;               Device Dispatcher       (subroutine)
;               General I/O Buffer      (1K buffer, I read 512 bytes)

create_seedling				; 
		lda	#$0001		;allocate one block please
		sta     one_entry+blks_used_index
;                                       ;setup in default entry
		ldx	#$0000		;start from the beginning.
		jsr	find_free_blks	;go and get it
		bcs	end_seed	;sorry.
		stx	one_entry+key_blk_index
		stx	drvr_blk_num
		jsr	set_default_buf
		jsr	standard_req	;write 512 bytes please
		jsr	clear_gbuf_low	;we must write zeros for seedling
		jsr	write_with_cache
end_seed	rts

;==========================================================================
;create_sapl..  This routine will create a sapling file one disk.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = error code if carry set (exit via system exit routine)
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;               one_entry               ;ready to be written to disk
;
;Uses:          All registers
;               Device Dispatcher       (subroutine)
;               General I/O Buffer      (1K buffer, I read 512 bytes)

create_sapling				; 
		jsr	setup_index_ptr	;setup pointer for add index
		jsr	clear_gbuf_high	;clear high 512 bytes of general buffer

		lda	one_entry	;adjust the storage type
		and	#$FF0F		;clear old stoarge type
		ora	#sapling_type
		sta	one_entry

		lda	blks_used1	;number of blocks needed for file
		sta	one_entry+blks_used_index
		ldx	#$0000		;start from the beginning
		jsr	find_free_blks	;see if I have enough room?
		bcs	end_sapling
		stx	one_entry+key_blk_index
		inx
		stx	math_temp
		cmp	blks_used1	;did we get all the blocks needed?
		beq	big_sapling


		stz	first_free	;start from the beginning
		ldy	#$0000		;starting index
		ldx	blks_used1
		dex			;blocks to allocate
sapling_loop				; 
		jsr	get_one_blk	;allocate another block
		bcs	end_sapling	;major problems

		lda	first_free	;block number
		jsr	add_index
		iny
		dex
		beq	write_sap_index
		bra	sapling_loop

end_sapling				; 
		rts

big_sapling				; 

		ldy	#$0000		;starting index value
		ldx	blks_used1	;number of blocks allocated
		dex			;minus one for index block
build_loop				; 
		lda	math_temp	;block number
		jsr	add_index	;add block to the index
		iny			;move to the next index
		dex
		beq	write_sap_index	;write the block to disk
		inc	math_temp	;bump to the next block please
		bra	build_loop

write_sap_index				; 
		lda	temp4_ptr	;pointer to index block
		sta	drvr_buf_ptr
		lda	temp4_ptr+2
		sta	drvr_buf_ptr+2

		jsr	standard_req	;512 byte transfer

		lda	one_entry+key_blk_index
		sta	drvr_blk_num	;write the index
		jsr	write_with_cache
		rts

;==========================================================================
;create_tree..  This routine will create a tree file one disk.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = error code if carry set (exit via system exit routine)
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;               one_entry               ;ready to be written to disk
;
;Uses:          All registers
;               Device Dispatcher       (subroutine)
;               General I/O Buffer      (1K buffer, I read 512 bytes)

create_tree				; 
		sec			;allocate a 512 byte buffer please
		lda	#blk_size
		jsl	alloc_seg
		bcs	end_tree	;sorry out of memory!!
		stx	virtual
		sty	virtual+2	;save the VP for release seg
		jsl	deref		;convert to a real pointer
		stx	temp2_ptr
		sty	temp2_ptr+2	;save a pointer to buffer

		lda	#$0001		;allocate one block for master index
		ldx	#$0000		;start from the beginning
		jsr	find_free_blks
		bcs	end_tree
		stx	tree_key_blk	;save key block of tree file.

		lda	blks_used1
		sta	key_block	;save total blocks please

		sec
		lda	blks_used1	;remove overhead blocks from count
		sbc	data_indexes	;number of index blocks needed
		dec	a		;subtract one for master index block
		sta	tree_blks

		ldy	#$0000		;starting index for master block
tree_loop				; 
		ldx	#256		;number of blocks to allocate
		lda	tree_blks
		cmp	#256		;max blocks+1 in an index block
		bcs	use_max
		tax			;use the remaining blocks
use_max					; 
		inx			;add one for index block itself
		stx	blks_used1	;this is the amount to allocate
		phy
		jsr	create_sapling	;build a sapling index
		ply
		bcs	end_tree	;major problems
		jsr	add_master_index
		iny			;advance to next index please
		sec
		lda	tree_blks	;number of blocks left
		sbc	#256
		sta	tree_blks
		beq	write_tree
		bcs	tree_loop	;do another index block

write_tree				; 
		lda	one_entry
		and	#$FF0F		;change storage to tree type
		ora	#tree_type
		sta	one_entry

		lda	key_block
		sta	one_entry+blks_used_index

		lda	temp2_ptr	;setup pointer for write
		sta	drvr_buf_ptr
		lda	temp2_ptr+2
		sta	drvr_buf_ptr+2

		lda	tree_key_blk
		sta	drvr_blk_num
		sta	one_entry+key_blk_index
		jsr	write_with_cache

end_tree 
		php			;save error flag
		pha			;save error if any
		ldx	virtual
		ldy	virtual+2
		jsl	release_seg	;give up the temp buffer
		pla
		plp
		rts			;return any error


add_master_index

		lda	temp2_ptr	;setup pointer to master index block
		sta	temp4_ptr
		lda	temp2_ptr+2
		sta	temp4_ptr+2

		lda	one_entry+key_blk_index
		jsr	add_index
		rts


;==========================================================================
;create_res...  This routine will create a resource file.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = error code if carry set (exit via system exit routine)
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;               one_entry               ;ready to be written to disk
;
;Uses:          All registers
;               Device Dispatcher       (subroutine)
;               General I/O Buffer      (1K buffer, I read 512 bytes)
;               512 bytes additional mem

create_resource				; 
		lda	#prodos_version+(prodos_version*$100)
		sta	one_entry+version_index

		clc
		lda	blks_used1
		adc	blks_used2
		inc	a		;add one for resource header
		sta	res_tot_blks

		sec			;allocate a 512 byte buffer please
		lda	#blk_size
		jsl	alloc_seg
		bcs	@to_end		;sorry out of memory!!
		stx	virtual2
		sty	virtual2+2	;save the VP for release seg
		jsl	deref		;convert to a real pointer
		stx	temp5_ptr	;real pointer to buffer
		sty	temp5_ptr+2

		lda	#$0001		;allocate one block for resource header
		ldx	#$0000		;start from the beginning
		jsr	find_free_blks
@to_end		bcs	end_resource
		stx	res_key_blk	;save key block of resource file.

		lda	data_storage	;go and create the correct data fork
		jsr	make_fork
		bcs	end_resource	;major problems
		ldy	#$0000
		lda	data_storage
		jsr	save_fork_info
;
;Below is a hack.  Since the create call was written to add in a directory entry not update 
;an entry, we have to full the update directory routine.  To do this I copy in the directory
;block and entry offset into "free_dir_blk" and "free_dir_offset"  This will make the 
;directory update routine work.  This is the way we make code do more then it was meant to do.
;
		bit	expand_file	;are we extending the file?
		bpl	@no_extend	
		lda	dir_last_blk	;block number of the directory
		sta	free_dir_blk
		lda	entries_offset	;offset to the entry within the dir block
		sta	free_dir_offset
@no_extend
		stz	expand_file	;we are now thru with the data fork so reset the expand flag
		stz	one_entry+eof_index
		stz	one_entry+eof_index+1
		
		lda	blks_used2	;setup for resource fork create
		sta	blks_used1
		lda	res_indexes
		sta	data_indexes	;used if we are creating a tree file.

		lda	res_storage	;go and create the correct res fork
		jsr	make_fork
		bcs	end_resource	;major problems

		ldy	#$0100
		lda	res_storage
		jsr	save_fork_info

write_res 
		lda	one_entry
		and	#$FF0F		;change storage to resource type
		ora	#resource_type
		sta	one_entry

		lda	res_tot_blks
		sta	one_entry+blks_used_index

		lda	temp5_ptr	;setup pointer for write
		sta	drvr_buf_ptr
		lda	temp5_ptr+2
		sta	drvr_buf_ptr+2

		lda	res_key_blk
		sta	drvr_blk_num
		sta	one_entry+key_blk_index
		lda	#blk_size
		sta	one_entry+eof_index
		jsr	write_with_cache

end_resource 
		pha
		php
		ldx	virtual2	;give back the 512 byte temp buffer
		ldy	virtual2+2
		jsl	release_seg
		plp
		pla
		rts


make_fork				;A = storage type
		bit	expand_file	;are we expanding an existing file?
		bpl	@not_expanding
;
;If we are expanding an existing file I will setup the entry parameters as if I 
;had just created the file.  This way we will just bypass the create call.
;
		lda	expand_storage	;move the real storage type
		sta	data_storage
		lda	expand_key_blk	;move the real key block of the file
		sta	one_entry+key_blk_index
		lda	expand_blks_used
		sta	one_entry+blks_used_index
		lda	expand_eof
		sta	one_entry+eof_index
		lda	expand_eof+1
		sta	one_entry+eof_index+1
		clc
		rts
		
@not_expanding
		cmp	#seedling_type
		bne	res_sap
		jsr	create_seedling
		rts

res_sap					; 
		cmp	#sapling_type
		bne	res_tree
		jsr	create_sapling
		rts

res_tree				; 
		jsr	create_tree
		rts

save_fork_info				;A = storage, Y = index into header
		lsr	a		;temp5_ptr = pointer to header
		lsr	a
		lsr	a
		lsr	a
		sta	[temp5_ptr],y
		iny
		lda	one_entry+key_blk_index
		sta	[temp5_ptr],y
		iny
		iny
		lda	one_entry+blks_used_index
		sta	[temp5_ptr],y
		iny
		iny
		lda	one_entry+eof_index
		sta	[temp5_ptr],y
		iny
		lda	one_entry+eof_index+1
		sta	[temp5_ptr],y
		rts


;==========================================================================
;create_subdir  This routine will create a new subdirectory on disk
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = error code if carry set (exit via system exit routine)
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;               one_entry               ;ready to be written to disk
;
;Uses:          All registers
;               Device Dispatcher       (subroutine)
;               General I/O Buffer      (1K buffer, I read 512 bytes)
;

create_subdir				; 
		jsr	setup_index_ptr	;setup temp4_ptr to point to gbuf+$200
		jsr	clear_gbuf_high	;clear high 512 bytes of general buffer

		lda	#$000F		;force file type to subdirectory
		sta	one_entry+file_type_index

		lda	blks_used1	;number of blocks needed for subdir.
		sta	one_entry+blks_used_index
		tax
		asl	a		;convert blocks to EOF
		sta	one_entry+eof_index+1

		txa
		ldx	#$0000		;start from the beginning
		jsr	find_free_blks	;see if I have enough room?
		bcs	end_subdir	;major problem my friend
		stx	one_entry+key_blk_index
		stx	parent_blk
		inx
		stx	math_temp
		pha			;save number of blocks allocated
		jsr	make_sub_header	;build the header block to disk
		pla
		cmp	blks_used1	;did we get all the blocks needed?
		beq	seq_subdir	;yes we can make the directory seq

		dec	blks_used1

non_seq_loop				; 
		lda	#$0001		;allocate one block
		ldx	#$0000		;start from the beginning
		jsr	find_free_blks
		bcs	end_subdir
		stx	math_temp	;the new block.
		txa
		ldx	parent_blk	;block that needs to be written
		jsr	update_forward
		bcs	end_subdir

		lda	one_entry+key_blk_index
		cmp	parent_blk
		bne	no_clr

		jsr	clear_gbuf_high	;clear high 512 bytes of general buffer

no_clr					; 
		lda	parent_blk	;update backward link please
		sta	[temp4_ptr]
		lda	math_temp	;this is the new block to write
		sta	parent_blk
		dec	blks_used1	;see if we are done
		bne	non_seq_loop
		lda	#$0000
		ldx	math_temp
		jsr	update_forward
		bcc	end_subdir
		rts

good_subdir
		clc

end_subdir
		php			;save error flag
		pha
		lda	one_entry
		and	#$FF0F		;change storage to subdirectory
		ora	#subdir_type
		sta	one_entry
		pla			;restore possible error code
		plp			;restore error flag
		rts

seq_subdir				; 
		lda	#$0000		;default forward link
		ldy	blks_used1
		dey			;is there another block?
		beq	last_dir_blk
		lda	math_temp	;forward link

last_dir_blk				; 
		ldx	one_entry+key_blk_index	;block to write to disk
		jsr	update_forward	;write the block to disk
		bcs	end_subdir	;bad news
		jsr	clear_gbuf_high	;clear high 512 bytes of general buffer

seq_sub_loop				; 
		dec	blks_used1	;see if we are done
		beq	good_subdir

		lda	drvr_blk_num	;this is the backward link now
		sta	[temp4_ptr]

		lda	#$0000
		ldy	blks_used1	;is there more blocks to write?
		dey
		beq	write_last	;no this is the last one
		lda	math_temp
		inc	a		;make a forward link

write_last				; 
		ldx	math_temp	;block number to write
		inc	math_temp	;bump to the next block
		jsr	update_forward
		bcc	seq_sub_loop
		bra	end_subdir


;==========================================================================
;update_forward This routine will update the forward link of a directory
;               block then write the block to disk.
;
;input:         A = forward link
;               X = block number to write
;
;output:        A = error code if carry set
;
update_forward				; 
		ldy	#$0002		;forward link
		sta	[temp4_ptr],y
		stx	drvr_blk_num	;save block number to write

		lda	temp4_ptr	;setup pointer to block.
		sta	drvr_buf_ptr
		lda	temp4_ptr+2
		sta	drvr_buf_ptr+2

		jsr	write_with_cache
		rts			;update the disk!

;==========================================================================
;This routine will create the header block for the subdirectory.
;
;input:         X = header block +1
;               temp4_ptr = pointer to work buffer

make_sub_header				; 
		dex			;block number to write
		stx	drvr_blk_num
		clc
		lda	temp4_ptr
		sta	drvr_buf_ptr
		adc	#$0004
		sta	temp_ptr
		lda	temp4_ptr+2	;setup pointer for the write
		sta	drvr_buf_ptr+2
		adc	#$0000
		sta	temp_ptr+2	;setup pointer to header

		ldy	#entry_length-1
move_header				; 
		lda	one_entry,y
		sta	[temp_ptr],y
		dey
		dey
		bpl	move_header	;move the header into first block

		ldy	#access_index
		lda	[temp_ptr],y
		and	#$FF00
		ora	#$00C3
		sta	[temp_ptr],y

		lda	[temp_ptr]
		and	#$FF0F
		ora	#subdir_header
		sta	[temp_ptr]

		ldy	#$001F		;index to entry len and entries per blk
		lda	#$0D27		;13 entries per blk and 39 byte entries
		sta	[temp_ptr],y
		iny
		iny			;point to file count
		lda	#$0000
		sta	[temp_ptr],y	;no files yet
		iny
		iny
		lda	free_dir_blk	;parent pointer
		sta	[temp_ptr],y
		iny
		iny
		jsr	make_entry_num
		bcc	go_on_please
		jmp	main_exit

go_on_please
		sta	[temp_ptr],y

		ldy	#$0010		;clear reserved area
		lda	#$0000
clear_reserved
		sta	[temp_ptr],y
		iny
		iny
		cpy	#$0018
		bcc	clear_reserved

		ldy	#$0010		;setup for no 'HUSTON'
		lda	#$0076
		sta	[temp_ptr],y
		rts

		EXPORT	make_entry_num
make_entry_num           
		ldx	#(12*2)		;index into offset table
		lda	free_dir_offset
offset_loop	cmp	dir_offset_tbl,x
		beq	found_offset
		dex
		dex
		bpl	offset_loop

		lda	#dir_error
		sec
		rts

found_offset

		txa
		lsr	a		;divide by two
		inc	a		;add one to convert from zero based.
		ora	#$2700		;add in parent entry length
		clc
		rts

;==========================================================================
;setup_index... This routine will setup temp4_ptr to point to the second
;               half of the general work buffer supplied by GS/OS.
;==========================================================================
setup_index_ptr	
		clc
		lda	gbuf_ptr	;set temp4_ptr to point to second
		adc	#$0200		;have of the general work buffer.
		sta	temp4_ptr
		lda	gbuf_ptr+2
		adc	#$0000
		sta	temp4_ptr+2
		rts

;==========================================================================
;get_one_blk    This routine will allocate one block from disk
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               gbuf_ptr
;
;Output:        A = restored  or error code if carry set.
;               X = restored
;               Y = restored
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;               first_free              ;block number allocated
;
;Uses:          find_free_blks
;
;==========================================================================

get_one_blk
		pha
		phx
		phy

		lda	#$0001		;allocate one block
		ldx	first_free	;start at the beginning
		jsr	find_free_blks
		bcs	exit_with_err
		stx	first_free
		bra	exit_one_blk

exit_with_err
		sta	5,s		;store the error code on the stack!

exit_one_blk
		ply
		plx
		pla
		rts

;==========================================================================
;add_index      This routine will add in a block to an index buffer.
;
;Input:         A = block number
;               X = undefined
;               Y = index into buffer
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               temp4_ptr
;
;Output:        A = restored
;               X = restored
;               Y = restored
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Uses:          temp4_ptr
;
;==========================================================================

		EXPORT	add_index
add_index              
		phx
		phy
		pha

		tya
		ora	#$0100		;index to second half of buffer
		tax

		lda	1,s
		longa	off
		sep	#$20
		sta	[temp4_ptr],y	;store the low byte please
		txy			;index to second half of buffer
		xba			;high word of the block number
		sta	[temp4_ptr],y
		longa	on
		rep	#$20

		pla			;restore A
		ply			;restore Y
		plx			;restore X
		rts			;exit


;==========================================================================
;eof_to_blks    This routine will convert the size of the file into the
;               number of blocks needed to store the file on disk.  The
;               routine does NOT account for directory extension that is
;               handled elsewhere,  it does however account for storage
;               type.
;
;Input:         data_eof                ;size of data fork
;               res_eof                 ;size of resource fork
;
;output:        blks_used1              ;blocks needed for data fork/subdir
;               blks_used2              ;blocks needed for resource fork
;
;==========================================================================
		EXPORT	eof_to_blks
eof_to_blks
		lda	expand_file	;are we expanding a file or building a new one?
		bpl	@its_new
		
		lda	expand_blks_used
		sta	blks_used1	;set the number of blocks needed for current file
		bra	do_res		;now do the resource fork
@its_new
		lda	data_eof+1	;convert bytes to blocks
		lsr	a
		sta	blks_used1	;blocks needed by data fork
		beq	bump_blks1	;see if we need to round up
		lda	data_eof	;see if size is < 512
		and	#$01FF
		beq	do_res		;no need to bump
bump_blks1				; 
		inc	blks_used1

do_res 
		lda	storage_type	;do we need resources?
		cmp	#resource_type
		bne	end_eof_conv	;not a resource file

		lda	res_eof+1	;convert bytes to blocks
		lsr	a
		sta	blks_used2	;blocks needed by data fork
		beq	bump_blks2	;see if we need to round up
		lda	res_eof		;see if size is < 512
		and	#$01FF
		beq	end_eof_conv	;no need to bump resource size
bump_blks2				; 
		inc	blks_used2	;add for resource file

end_eof_conv
		lda	expand_file	;are we expanding a file or building a new one?
		bmi	@skip_adjust	;since the blocks used is already the total skip adjust

		lda	blks_used1	;add any storage overhead for data fork
		jsr	adjust_storage
		sta	blks_used1
		sty	data_storage	;storage type for data fork
		stx	data_indexes	;number of index blocks
@skip_adjust
		lda	blks_used2	;add any storage overhead for res. fork
		jsr	adjust_storage
		sta	blks_used2
		sty	res_storage	;storage type for resource fork
		stx	res_indexes	;number if inedx blocks
		rts

;==========================================================================
;do_create_path This routine will setup the flags needed to process the
;               input pathname. we only return from the subroutine if
;               everything with the pathname is OK.
;
;input:         none
;
;output:        seach_name is still valid from find file.
;
;==========================================================================
do_create_path
		lda	#no_root+no_dup	;root level or duplciate is not valid.
		sta	search_flag
		jsr	process_path
		bcs	no_dup_problem	;there is no duplicate file
;
;If the file already is on the disk we need to see if we are adding the resource
;fork.  If we are adding the resource fork we will pull out the important information
;from the current file entry (data fork) and save if so we can use it to build the
;data fork of are new extended file
;
		ldy	#pblk_01_stype	;see if we are adding a resource fork to the file
		lda	[my_pblk_ptr],y	;get the input storage type
		cmp	#(resource_type/$10)+$8000
		bne	@not_an_extend
		sta	expand_file	;set the flag indicating we are extending the file
		sta	expand_flag	;expand_flag lives thru the entire call, whereas expand_file
					;only lives thru the create data fork portion of the call.
;
;now lets setup the important information:
;	storage type
;	key block
;	blks_used
;	eof
;
;Remember drvr_buf_ptr points to the prodos directory entry
;
		lda	[drvr_buf_ptr]	;get the storage type please
		and	#$00F0		;clear the garbage
		cmp	#resource_type	;see if the resource fork is already here.
		beq	@no_extend
		cmp	#tree_type+1	;file must be a seedling sapling or tree
		bcs	@storage_err	;we cannot extend this file
		sta	expand_storage
		sta	data_storage	;this will be a 10,20 or 30 (seedling, sapling or tree)

		ldy	#key_blk_index
		lda	[drvr_buf_ptr],y
		sta	expand_key_blk	;save the key block for the data fork

		ldy	#blks_used_index
		lda	[drvr_buf_ptr],y
		sta	expand_blks_used

		ldy	#eof_index
		lda	[drvr_buf_ptr],y
		sta	expand_eof
		iny
		lda	[drvr_buf_ptr],y
		sta	expand_eof+1
		bra	no_dup_problem
@no_extend
		lda	#resource_exist	;the resource already exist bud.
		sec
		bra	real_problem
@storage_err
		lda	#res_add_err	;the resource cannot be added to this type file
		sec
		bra	real_problem
@not_an_extend
		sec
		lda	#dup_pathname
real_problem 
		sec
		jmp	main_exit

no_dup_problem 
		bit	path_searched	;was the entire path searched?
		bpl	real_problem	;no, only a portion.
		jsr	chk_disk_protect ;is the volume write protected?
		rts			;If protected, routine will not return

;==========================================================================
;adjust_storage This routine will add in the overhead of the storage type
;               to the blocks used for a file.
;
;input:         A = blocks
;
;output:        A = blocks + overhead
;               Y = storage type needed for size
;               X = number of index blocks needed (for tree only)
;
;uses:          math_temp
;
;Overhead:
;               subdirectories:         no overhead
;               seedling:               no overhead
;               sapling:                1 block of overhead
;               tree:                   ((blks div 256) + (blks mod 256)) + 1
;==========================================================================

adjust_storage
		sta	math_temp	;number of file blocks
		stz	index_blks	;no tree index blocks. (default)

		ldy	#subdir_type
		ldx	storage_type
		cpx	#subdir_type
		beq	end_overhead	;no overhead for directories

		ldy	#seedling_type	;this is a seedling type

		cmp	#$0002
		bcc	end_overhead	;no overhead
		cmp	#$0101		;check high end of sapling
		bcs	data_tree	;this is a tree file
		inc	math_temp	;add one for sapling overhead
		ldy	#sapling_type
		bra	end_overhead

data_tree 
		lda	math_temp+1	;see how many sapling blocks we need
		and	#$00FF
		sta	index_blks	;number of index blocks needed
		clc
		adc	math_temp
		tax
		lda	math_temp
		and	#$00FF
		beq	no_extra
		inc	index_blks	;add one to number of indexes needed
		inx
		stx	math_temp	;adjust for $xx01 thru $xxFF

no_extra
		inx
		stx	math_temp	;add extra block for tree header.
		ldy	#tree_type

end_overhead
		lda	math_temp
		ldx	index_blks	;index blocks for the tree file.
		rts

;==========================================================================
;Default_entry: This routine will fill 'one_entry' with the default
;values for a file.
;
;               storage type            = seedling
;               File Type               = unknown ($00)
;               Blks Used               = $0001
;               EOF                     = $000000
;               Version                 = $05
;               Minimum Version         = $00
;               access                  = $E3
;               create date/time        = Current Time
;               mod date/time           = Current Time
;               aux type                = $0000
;
;NOTE: The store operations happen in a certain order so as to not overwrite
;      information already stored.
;==========================================================================

default_entry 
		ldy	#$0026		;zero the entry
		lda	#$0000
clr_name
		sta	one_entry,y
		dey
		dey
		bpl	clr_name

		lda	#seedling_type	;set the default storage type
		sta	storage_type

		stz	one_entry+file_type_index
		lda	#$0001
		sta	one_entry+blks_used_index
		stz	one_entry+eof_index
		stz	one_entry+eof_index+1
		jsr	pack_time	;read the GS Clock and set the current time
		stx	one_entry+create_index
		sty	one_entry+create_index+2
		stx	one_entry+last_mod_index
		sty	one_entry+last_mod_index+2
		lda	#prodos_version
		sta	one_entry+version_index
		lda	#$00E3
		sta	one_entry+access_index
		stz	one_entry+aux_type_index
		rts

;==========================================================================
;Create_Common: This routine will setup and verify parameters supplied
;               by the caller. It will also move the file name into
;               one_entry.
;
;input:         my_pblk_ptr             ;must point to pathname field
;
;output:        returns to caller or jmps to sys_exit with error
;
; Access Byte:
;                _______________________________
;               |   |   |   |   |   |   |   |   |
;               | 1 | 1 | 1 |   |   | 1 | 1 | 1 |
;               |___|___|___|___|___|___|___|___|
;                ^    ^   ^           ^   ^   ^
;                |    |   |           |   |   |
;                |    |   |  Invisible    |    Read-Enabled
;                |    |   |                Write-Enabled
;                |    |    Backup-Enabled
;                |     Rename-Enabled
;                 Destroy-Enabled
;
;==========================================================================

create_common				; 

		ldy	search_length	;length of name to create
		longa	off
		sep	#$20
name_loop	lda	search_name-1,y	;move name to directory entry
		sta	one_entry,y
		dey
		bne	name_loop
		lda	search_length
		ora	storage_type	;add in the storage type
		sta	one_entry	;store storage/length byte
		longa	on
		rep	#$20

		lda	pcount		;see if we are done
		dec	a
		bne	cont01
		rts

cont01
		sta	math_temp

		ldy	#pblk_01_accs	;check the access
		lda	[my_pblk_ptr],y
		tax			;save access so we can verify range
		and	#$FF18		;Destroy,Rename,Backup,Invisible,Write,Read
		beq	good_access	;no problem

not_in_range
		sec
		lda	#parm_range_err
		jmp	main_exit	;no return from here

good_access				;WARNING zero is stored in half of aux.
		txa
		ora	#backup_enabled	;force the backup bit please.
		sta	one_entry+access_index

		dec	math_temp	;see if any more fields?
		beq	to_end_common

		ldy	#pblk_01_ftype	;get the user's file type
		lda	[my_pblk_ptr],y
		xba
		bne	not_in_range
		xba			;put file type in low byte please
		sep	#$20		;08 bit accum
		sta	one_entry+file_type_index
		rep	#$20		;16 bit accum

		cmp	#dir_file_type	;set storage to SubDir incase PCount = 4
		bne	skip_storage	;do not setup the storage type

		lda	#subdir_type
		sta	storage_type

skip_storage

		dec	math_temp	;are we done?
		beq	end_common

		ldy	#pblk_01_aux+2	;get the user's aux type
		lda	[my_pblk_ptr],y
		bne	not_in_range	;sorry bud
		dey
		dey
		lda	[my_pblk_ptr],y
		sta	one_entry+aux_type_index

		dec	math_temp	;are we done?
to_end_common
		beq	end_common	;yes

		ldy	#pblk_01_stype	;get the user's storage type
		lda	[my_pblk_ptr],y
		and	#$7FFF		;clear the expand file bit please
		
		beq	standard_file	;seedling is the default
		xba
		bne	not_in_range	;parameter not valid

		xba
		cmp	#(tree_type/$10)+1
		bcc	standard_file	;seedling is the default
		cmp	#(resource_type/$10)
		beq	force_resource
		cmp	#(subdir_type/$10)
		bne	not_in_range
		lda	#subdir_type
		sta	storage_type	;we are making a directory
		bra	next_parm
force_resource 
		lda	#resource_type
		sta	storage_type
		bra	next_parm
		
standard_file	
		lda	#seedling_type
		sta	storage_type
next_parm
		lda	storage_type	;if storage is subdirectory then force filetype
		cmp	#subdir_type
		bne	@not_subdir
		
		lda	#dir_file_type	;set file type to subdirectory
		sep	#$20
		sta	one_entry+file_type_index
		rep	#$20		;16 bit accum

@not_subdir
		dec	math_temp	;are we done?
		beq	end_common

		ldy	#pblk_01_eof1+2	;data fork EOF
		jsr	create_eof
		stx	data_eof
		sty	data_eof+2

		dec	math_temp	;is there a resource eof.
		beq	end_common

		lda	storage_type	;is this a resource file?
		cmp	#resource_type
		bne	end_common	;don't bother checking

		ldy	#pblk_01_eof2+2
		jsr	create_eof
		stx	res_eof
		sty	res_eof+2

end_common				; 
		rts


;==========================================================================
;Create_Eof:    This routine returns the EOF supplied by the user
;
;Input:         my_pblk_ptr             (must be setup)
;               Y register              (index into parameter block)
;
;Output:        X register = low word of EOF
;               Y register = high word of EOF
;               storage_type adjusted for correct eof
;
;==========================================================================

create_eof				; 
		lda	[my_pblk_ptr],y
		xba
		bne	not1_in_range	;I cannot make a file this large
		xba
		pha
		dey
		dey
		lda	[my_pblk_ptr],y	;get the low word
		tax			;save low word of eof
		ply			;save high word of eof

		lda	storage_type	;adjust storage type as needed
		cmp	#resource_type
		beq	end_create_eof
		cmp	#subdir_type
		beq	entry_to_bytes

		tya			;see what type of file is needed
		lsr	a
		beq	not_tree	;this cannot be a tree file
		cmp	#$0002		;still might be a sapling
		bcs	is_tree
		txa			;if low word is zero then its a sapl.
		beq	make_sap
is_tree 
		lda	#tree_type
		sta	storage_type
		rts
not_tree
		tya			;See if EOF greater then 512
		bne	make_sap	;This file must be a sapling file!
		txa
		cmp	#$0201		;is the eof < 512
		bcc	make_seedling
make_sap				; 
		lda	#sapling_type
		sta	storage_type
		rts

make_seedling				; 
		lda	#seedling_type
		sta	storage_type

end_create_eof				; 
		rts			;exit to caller

not1_in_range				; 
		sec
		lda	#parm_range_err
		jmp	main_exit

entry_to_bytes				; ;convert file entries to bytes
		tya			;check high byte of entries wanted
		bne	not1_in_range
		cpx	#1664		;no more then 1663 entries for subdirs.
		bcs	not1_in_range
		txa			;convert entries to bytes
		pha
;
; Convert number of entries to bytes needed.
;
; Bytes := ((entries * 3) * 13 + ((entries / 13) + 5))
;
		clc
		asl	a		;times 2
		adc	1,s		;times 3
		sta	1,s		;math_temp

		asl	a		;times 2
		asl	a		;times 4
		adc	1,s		;times 5
		adc	1,s		;times 6
		asl	a		;times 12
		adc	1,s		;times 13

		adc	#13		;add 13 for the header field needed
		pha			;save partial

sub_loop				; 
		txa			;restore number if entries left
		sec
		sbc	#13		;subtract 13 entries
		beq	sub_done	;we are done
		bcc	sub_done
		tax
		clc
		lda	1,s		;get the partial
		adc	#$0005		;add in block overhead for each block
		sta	1,s
		bra	sub_loop

sub_done	plx			;save bytes in X register
		pla			;clean up stack
		rts


		ENDP
;==========================================================================
;Destroy:       This routine will delete a file from the disk.
;
;Created:       may 28, 1987
;Modified:      jun 04, 1987
;Author:        Rob Turner
;
;Enter:         jml
;
;Input:         A = undefined
;               X = call number times 2
;               Y = class times 2
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;Uses:          All registers
;               find_file
;
;Call Format:
;
;Class 0        Pathname Pointer        (4 Bytes)
;
;Class 1        PCount                  (2 Bytes)
;               Pathname Pointer        (4 Bytes)
;
;==========================================================================
		longa	on
		longi	on

		EXPORT	destroy		
destroy		PROC

;==========================================================================
;Go and setup the defaul parameters for the call.
;==========================================================================

		jsr	setup_params

;==========================================================================
;Process the file name and locate it.
;==========================================================================

		jsr	process_path
		jsr	chk_disk_protect

;==========================================================================
;Now that we have located the file we need to see if its OK to destroy it.
;
;We can delete any file except the volume header, or a file that is destroy
;disabled.
;==========================================================================

		lda	[drvr_buf_ptr]
		and	#$00F0
		sta	math_temp	;save the storage type for later
		cmp	#volume_header
		bne	check_access

wrong_access
		lda	#invalid_access
destroy_error
		sec
destroy_exit	 
		jmp	main_exit

check_access
		jsr	move_dir_entry

		ldy	#access_index
		lda	[drvr_buf_ptr],y
		and	#destroy_enabled
		beq	wrong_access	;file is marked as 'destory disabled'


;==========================================================================
;make sure the file that they are deleting is NOT open
;==========================================================================

		ldy	#key_blk_index	;see if the file is open
		lda	[drvr_buf_ptr],y
		sta	files_key_block
		stz	fcr_wanted	;reset for search

look_loop
		jsr	get_next_fcr
		bcs	not_open

		ldy	#fcr_vol_id
		lda	[my_fcr_ptr],y	;get the Volume ID so we can make sure the file is on
		cmp	[my_vcr_ptr]	;the same volume.
		bne	look_loop	;File is on another volume
		
		ldy	#fcr_file_id
		lda	[pro_fcr_ptr],y	;see if this is the same file
		cmp	files_key_block
		bne	look_loop
		lda	#file_busy
		bra	destroy_error	;cannot delete an open file

not_open

		ldy	files_key_block
		lda	math_temp	;storage TYPE!!!
		cmp	#subdir_type
		bne	check_tree

;==========================================================================
;It's a directory so go ahead and try to delete it.  We can only delete
;it if there are no files in the directory.  Y=key block of the file
;==========================================================================
		jsr	kill_dir	;Y=key block
		bra	update_dir

check_tree				; 
		cmp	#tree_type
		bne	check_sapling

;==========================================================================
;Go ahead and remove the tree file if you can.  Y=Key block of the file
;==========================================================================
		jsr	kill_tree	;Y=Key block of the file
		bra	update_dir	;update the directory now

check_sapling				; 
		cmp	#sapling_type
		bne	check_seedling

;==========================================================================
;it's a sapling file so remove it.  Y=key block of the file
;==========================================================================

		jsr	kill_sapling
		bra	update_dir

check_seedling				; 
		cmp	#seedling_type
		bne	check_res	;it better be a resource file

;==========================================================================
;This is a simple file to delete.  Y=data block that needs to be deleted
;==========================================================================

		jsr	kill_seedling
		bra	update_dir

check_res
		cmp	#resource_type
		bne	wrong_type

;==========================================================================
;This is the hardest of the files to delete, since it is made up of many
;files.  Y=key block of the file
;==========================================================================

		jsr	kill_resource
		bra	update_dir

wrong_type 
		lda	#bad_store_type	;I should NEVER get this error!
		brl	destroy_error


update_dir 
		php
		pha			;save the error code and flag

		jsr	flush_bitmap	;write out any left over bitmap changes
		bcs	piggy_back

;==========================================================================
;at this point we have removed all the blocks of the file.  We now need
;to update the directory entry itself.  The following parameters better
;be setup correctly or death and destruction will occur.
;
;               entries_blk_num         (block number of the entry to delete)
;               entry_offset            (offset to entry within the block)
;               dir_start_blk           (header block for this directory)
;
;==========================================================================

;==========================================================================
;Setup the buffer pointer and device parameters
;==========================================================================

		jsr	set_default_buf

;==========================================================================
;We want to load in the block that contains the files entry.
;==========================================================================

		lda	entries_blk_num
		sta	drvr_blk_num
		jsr	read_with_cache
		bcs	piggy_back

;==========================================================================
;We have loaded the block, now lets zap the entry to indicate that it's
;dead.
;==========================================================================

		ldy	entry_offset
		lda	[drvr_buf_ptr],y
		and	#$FF00		;clear storage type and name length
		sta	[drvr_buf_ptr],y

;==========================================================================
;before we write the block back to disk lets see if it is the key block
;This way we save an extra write to disk
;==========================================================================

		lda	[drvr_buf_ptr]	;check the previous link
		beq	update_header	;don't write block twice

;==========================================================================
;write the entries block back to disk.
;==========================================================================

		jsr	write_with_cache
		bcc	fix_header
piggy_back	brl	destroy_exit	;Major problems.

fix_header				; 

;==========================================================================
;Now lets go and update the header of this directory.
;==========================================================================

		lda	dir_start_blk
		sta	drvr_blk_num

		jsr	read_with_cache
		bcs	piggy_back

update_header
		lda	[drvr_buf_ptr]
		bne	dir_damaged

		ldy	#$0023
		lda	[drvr_buf_ptr],y
		cmp	#$0D27
		bne	dir_damaged

		ldy	#header_file_cnt
		lda	[drvr_buf_ptr],y
		dec	a
		bmi	dir_damaged
		sta	[drvr_buf_ptr],y

		ldx	drvr_blk_num	;see if this is the root directory
		cpx	#vol_dir_start
		bne	not_root

		pha
		jsr	setup_my_vcr
		stx	prodos_vcr_ptr
		sty	prodos_vcr_ptr+2
		pla
		ldy	#vol_file_count	;update the file count in VCR also

		sta	[prodos_vcr_ptr],y

;==========================================================================
;write the header block back to disk.
;==========================================================================

not_root				; 
		jsr	write_with_cache
		bcs	piggy_back

;==========================================================================
;Now we need to ripple back.  This routine will time stamp all previous
;subdirectory files with the current time.
;==========================================================================

do_ripple				; 
		jsr	slug_ripple
		pla			;restore any error code
		plp			;restore error flag from delete
		bra	piggy_back

dir_damaged				; 
		lda	#dir_error
		brl	destroy_error

;==========================================================================
;==========================================================================
;=====  END of MAIN CODE FOR DESTROY ======================================
;==========================================================================
;==========================================================================

kill_dir				; 

;==========================================================================
;This routine is called when we are deleting a directory.  Before we delete
;the directory we must make sure that there are NO files in the directory.
;
;input:         Y = key block address of the directory
;==========================================================================

		sty	drvr_blk_num
		jsr	standard_req	;read of 512 bytes
		jsr	set_default_buf	;use GS/OS system work buffer

		lda	drvr_buf_ptr
		sta	temp_ptr
		lda	drvr_buf_ptr+2
		sta	temp_ptr+2

		jsr	read_with_cache
		bcs	dir_err_exit

		lda	[drvr_buf_ptr]	;the previous link better be zero
		bne	dir_damaged
		ldy	#$0023		;verify that this is a directory
		lda	[drvr_buf_ptr],y
		cmp	#$0D27
		bne	dir_damaged

		ldy	#header_file_cnt
		lda	[drvr_buf_ptr],y
		beq	remove_dir	;it's ok to delete the directory
		brl	wrong_access

remove_dir				; 
		lda	[drvr_buf_ptr]
		beq	first_block
		cmp	data_ptr
		bne	dir_damaged

first_block				; 
		ldx	drvr_blk_num
		stx	data_ptr

dir_loop				; 
		jsr	dealloc_block	;remove the block please
		bcs	dir_err_exit

		lda	temp_ptr
		sta	drvr_buf_ptr
		lda	temp_ptr+2
		sta	drvr_buf_ptr+2

;==========================================================================
;Verify that the backward link is correct, and if it is then delete the blk
;==========================================================================

		ldy	#$0002		;walk the forward links
		lda	[drvr_buf_ptr],y
		sta	drvr_blk_num
		beq	dir_done	;the forward link is nill so we are done
		jsr	read_with_cache
		bcc	remove_dir

dir_err_exit				; 
		rts

dir_done
		clc
		rts

kill_resource
		sty	drvr_blk_num
		sty	data_ptr	;save key block of the file
		jsr	standard_req

;==========================================================================
;Allocate a one block buffer
;==========================================================================

		clc
		lda	#blk_size
		jsl	alloc_seg	;allocate a one block buffer
		bcs	res_err_exit
		stx	virtual
		stx	displacement
		sty	virtual+2	;save the virtual pointer please
		sty	displacement+2

		jsl	deref		;convert this to a real address
		stx	drvr_buf_ptr	;save the address of the buffer
		stx	temp2_ptr
		sty	drvr_buf_ptr+2
		sty	temp2_ptr+2

		jsr	read_with_cache	;read in the resource header block
		bcs	res_err_exit

		lda	[temp2_ptr]	;get the storage type
		and	#$00FF
		tax			;save storage type
		ldy	#$0001
		lda	[temp2_ptr],y
		beq	res_bad
		tay			;key block of the resource
		jsr	zap_branch	;delete the resource
		bcs	res_err_exit

		ldy	#$0100
		lda	[temp2_ptr],y	;get the storage type
		and	#$00FF
		tax			;save storage type
		iny
		lda	[temp2_ptr],y
		beq	res_bad
		tay			;key block of the resource
		jsr	zap_branch	;delete the resource
		bcs	res_err_exit

res_done
		ldx	displacement	;release memory used by the call
		ldy	displacement+2
		jsl	release_seg	;release the one block of head space

		ldy	data_ptr
		jmp	kill_seedling	;remove the last block now

;==========================================================================
res_bad
		lda	#out_of_range	;resource block is screwed up
res_err_exit
		jsr	free_header_buf
		sec
		rts
;===========================================================================
;this routine will delete a resource branch.
;X = storage type
;Y = key block
;output : carry clear = no error
;
zap_branch
		dex
		bne	not_seedling
		jsr	kill_seedling
		rts
not_seedling
		dex
		bne	not_sapling
		jsr	kill_sapling
		rts
not_sapling	dex
		bne	@res_error		;file screwed up
		jsr	kill_tree
		rts
@res_error
		sec
		rts
;==========================================================================

free_header_buf				; 
		pha			;save the error code
		ldx	displacement
		ldy	displacement+2
		jsl	release_seg	;release the one block of head space
		pla
		rts

;==========================================================================
;The following code will delete a tree file.  It will also flip the index
;block and write it back out to disk.
;
;input:         Y = key block of the file
;
;==========================================================================
kill_tree				; 
		sty	drvr_blk_num
		sty	master_ptr

		clc
		lda	gbuf_addr
		adc	#blk_size
		sta	drvr_buf_ptr
		sta	temp3_ptr
		lda	gbuf_addr+2
		adc	#$0000
		sta	drvr_buf_ptr+2
		sta	temp3_ptr+2
		jsr	standard_req

		jsr	read_with_cache
		bcs	master_error

		lda	#$0100		;start at the last entry
		pha

master_loop				; 
		lda	temp3_ptr	;restore pointer to I/O buffer
		sta	temp_ptr
		lda	temp3_ptr+2
		sta	temp_ptr+2

inner_master				; 
		pla			;get the current index
		dec	a
		bmi	master_done
		pha
		tax
		ora	#$0100
		tay
		jsr	get_and_flip	;get and flip the index block number

		tay
		beq	inner_master

		jsr	kill_sapling
		bcs	master_pop
		bra	master_loop

master_done				; 
		ldx	temp_ptr
		ldy	temp_ptr+2
		lda	master_ptr
		jsr	write_flipped	;write master index block flipped
		bcs	master_error

		ldy	master_ptr
		bra	kill_seedling

master_error				; 
		rts

master_pop				; 
		pla
		sec
		rts

;==========================================================================
;The following code will delete a sapling file.  It will also flip the index
;block and write it back out to disk.
;
;input:         Y = key block of the file
;
;==========================================================================
kill_sapling				; 

;==========================================================================
;Now we need to read in the index block and deallocate all allocated blocks
;==========================================================================

		sty	drvr_blk_num
		sty	index_ptr	;save for later delete

		jsr	set_default_buf
		lda	drvr_buf_ptr
		sta	temp_ptr
		lda	drvr_buf_ptr+2
		sta	temp_ptr+2

		jsr	standard_req
		jsr	read_with_cache
		bcs	index_error

		lda	#$0100		;start at the last entry
		pha

index_loop				; 
		pla			;get the current index
		dec	a
		bmi	index_done
		pha
		tax
		ora	#$0100
		tay

		jsr	get_and_flip	;get the block number from index buffer

		tax
		beq	index_loop
		jsr	dealloc_block	;free the block up please
		bcc	index_loop
		plx
		rts

index_done				; 
		ldx	temp_ptr
		ldy	temp_ptr+2
		lda	index_ptr
		jsr	write_flipped
		bcc	kill_index
index_error	rts

kill_index				; 
		ldy	index_ptr	;now release the last block please

;==========================================================================
;This routine will free up a seedling files block.
;
;input:         Y = key block of the file.
;
;==========================================================================

kill_seedling				; 
		tyx
		jsr	dealloc_block
		rts			;return error


;==========================================================================
;this routine will write a flipped index block to disk
;
;input:
;               X = low word of buffer pointer
;               Y = high word ''''
;               A = block number
;
;Output:
;               A = error if carry set
;
;==========================================================================

write_flipped				; 
		stx	drvr_buf_ptr
		sty	drvr_buf_ptr+2
		sta	drvr_blk_num
		jsr	write_with_cache
		rts

;==========================================================================
;This routine will flip the block number within an index block.
;
;input:
;               X  =  Index into the lower half of the index block
;               Y  =  Index into the higher half of the index block
;        temp_ptr  =  pointer to the index block
;
;OutPut:
;               A  =  Block number from index block
;
;==========================================================================
get_and_flip				; 
		longa	off
		sep	#$20

		lda	[temp_ptr],y	;grab the high block number
		xba			;put high block number in upper byte
		phy			;save high byte index

		txy
		lda	[temp_ptr],y	;get the low block number

		xba			;restore high block number
		sta	[temp_ptr],y	;store high block number in low half

		xba			;restore low block number
		ply			;get high byte index
		sta	[temp_ptr],y	;store low block number in high half

		longa	on
		rep	#$20
		rts
		ENDP
;======================================================================
;Chnage_Path    This file will RENAME or MOVE a file to a new directory
;
;Created:       Nov 04, 1987
;Modified:      Nov 04, 1987
;Author:        Rob Turner
;
;Enter:         From GS/OS jmp table
;
;Input:         A = undefined
;               X = (call number * 2)
;               Y = (class number * 2)
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = error code if carry set (exit via system exit routine)
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;Uses:          All registers
;               Device Dispatcher       (subroutine)
;               General I/O Buffer      (1K buffer, I read 512 bytes)
;               find_file               (subroutine)
;
;Call Format:
;
;Class 0        Source Pathname Pointer (4 Bytes)
;               Destination Path Pointer(4 Bytes)
;
;Class 1        PCount                  (2 Bytes)
;               Source Pathname Pointer (4 Bytes)
;               Destination Path Pointer(4 Bytes)
;		Flags			(2 Bytes)
;
;======================================================================
		longa	on
		longi	on

		EXPORT	change_path	
change_path	PROC

		jsr	setup_params
		
; If the source is only a device # then set cp_device_flag to 1. 
; This is a special case so that the Finder can rename a volume whose current name 
; is a duplicate of another volume which has open files.  1/22/91 CAE
 
		lda	<path_flag		;get pathname flags
		and	#path1_mask		;is pathname 1 defined?
		bne	@not_dev		;yes
		lda	<dev_num		;do we have a device #?
		beq	@not_dev		;no
		inc	cp_device_flag		;yes - so indicate source was a device #

; If pCount was 3 or more, get the cp_flags from the parameter block.  5-Dec-91 MSD

		lda	pcount
		cmp	#3			; did it include cp_flags?
		blt	@not_dev		; no, so leave cp_flags set to 0.
		ldy	#pblk_04_flags
		lda	[my_pblk_ptr],y		; get flags from param block
		sta	cp_flags

; End 5-Dec-91 MSD

@not_dev

		jsr	process_path	;see if the source file exist also sets up priority bit
					;and now checks the spans.		10/10/91 JEV
		
		jsr	valid_change
		bcs	end_change

		lda	slug_block	;save for slug ripple routine
		sta	src_slug_blk
		lda	slug_offset
		sta	src_slug_offset

		jsr	chk_disk_protect
		jsr	save_src_parms
		jsr	move_dir_entry	;move entry into one_entry
		jsr	chk_open	;see if the file is currently open
		bcs	end_change
		jsr	process_dest	;find the destination name
		bcs	end_change
		
; 27-Jan-92 MSD: We let valid_change see if the source path is a subset of the
; destination path (i.e. we're trying to move an item into its own child).  If
; that was the case, cp_to_child will be non-zero

		lda	cp_to_child	; were we moving into our own child?
		beq	@not_subset	; no, so do the move
		
		lda	#bad_path_syntax ; source path was a subset of destination path
		sec
		bra	end_change

@not_subset
		jsr	save_dest_parms
		jsr	rename_or_move

end_change				; 
		pha			;save the error code
		php
		jsr	flush_bitmap	;make sure the bitmap is OK!
		plp			;restore error flag
		pla			;restore error code if any
		jmp	main_exit

;======================================================================

chk_open
		stz	fcr_wanted	;start from the beginning
		lda	one_entry+key_blk_index
		sta	key_block
open_loop 
		jsr	get_next_fcr
		bcs	end_chk_open

		ldy	#fcr_vol_id
		lda	[my_fcr_ptr],y	;get the Volume ID so we can make sure the file is on
		cmp	[my_vcr_ptr]	;the same volume.
		bne	open_loop	;File is on another volume

		ldy	#fcr_file_id
		lda	[pro_fcr_ptr],y
		cmp	key_block
		bne	open_loop

		lda	#file_busy
		sec
		rts

end_chk_open				; ;the file is not open
		clc
		rts

;======================================================================

rename_or_move				; ;what will we do?
		lda	src_dev_num
		cmp	dest_dev_num
		bne	bad_device	;cannot rename on different devices
		lda	src_start_blk
		cmp	dest_start_blk	;is the file in the same directory?
		beq	do_rename	;this can only be a rename
;
;IF here we are doing a change_path
;
		jsr	move_file	;do a change_path please
		rts

;
;IF here we are doing a simple rename
;
do_rename
		jsr	rename_file
		rts

bad_device
		brl	bad_path

;======================================================================
move_file 

; First, we need to check the file/dir that we're moving to see if it's
; 'rename enabled'.  If it isn't, then we need to make sure we're just
; doing a move and not a 'move and rename'.
; Added 3/15/91 CAE

		jsr	standard_req		;read in 512 bytes
		jsr	set_default_buf
		lda	src_dev_num
		sta	drvr_dev_num
		lda	src_dir_blk		;block that contains the entry
		sta	drvr_blk_num
		jsr	read_with_cache
		bcs	to_end_move_file
	
		clc
		lda	src_offset
		adc	#access_index
		tay
		lda	[drvr_buf_ptr],y
		and	#rename_enabled		;can we rename the file?
		bne	@ok			;branch if rename is OK
		
		ldy	src_offset		;rename is not allowed so
		lda	[drvr_buf_ptr],y	;get file's name length
		and	#$000f			;strip off storage nibble and hi byte
		cmp	search_length		;same as dest name length?
		beq	@cont			;yes - so compare the names

@uh_oh		rep	#$20			;ensure 16 bit mode
		sec				
		lda	#invalid_access		;report an error
		rts			
		
@cont		tax				;calculate offset to end of dest name
		dex				;and put in X
		clc
		adc	src_offset		;calculate offset to end of file's name
		tay				;in the dir entry and put in Y
		
		longa	off
		sep	#$20			;begin 8 bit mode
		
@loop		lda	[drvr_buf_ptr],y	;compare file's name
		cmp	search_name,x		;to dest name
		bne	@uh_oh			;branch if mis-match
		dey
		dex
		bpl	@loop			;loop until done

		longa	on
		rep	#$20			;begin 16 bit mode
@ok

; End of new code.

		ldx	free_dir_blk	;do we need to extend the directory?
		bne	no_extend
		jsr	calc_free_blks	;do we have a free block
		bcs	to_end_move_file ;NO we have an error
		tax
		bne	not_full
		brl	full_disk
not_full
		jsr	extend_subdir	;grow the subdirectory
		bcs	end_move_file

		lda	free_dir_offset	;offset to directory entry
		sta	dest_offset
		lda	free_dir_blk	;block that contains entry
		sta	dest_dir_blk

no_extend
		jsr	standard_req	;512 bytes
		jsr	set_default_buf	;use the temp buffer

		lda	src_dir_blk	;move and delete the old entry
		sta	drvr_blk_num
		jsr	read_with_cache
		bcs	end_move_file
		jsr	delete_entry	;move entry and delete it
		jsr	write_with_cache
to_end_move_file 
		bcs	end_move_file

		lda	src_start_blk
		sta	drvr_blk_num
		jsr	read_with_cache
		bcs	end_move_file
		jsr	dec_file_cnt
		jsr	write_with_cache
		bcs	end_move_file
		jsr	do_src_slug

		lda	dest_start_blk	;new header pointer
		sta	one_entry+header_ptr_index
		lda	dest_dir_blk	;block
		sta	drvr_blk_num
		jsr	read_with_cache
		bcs	end_move_file
		jsr	move_old_entry
		ldy	dest_offset
		jsr	move_new_name	;rename the entry
		jsr	write_with_cache
		bcs	end_move_file

		lda	dest_start_blk	;now update the file count
		sta	drvr_blk_num
		jsr	read_with_cache
		bcs	end_move_file
		jsr	inc_file_cnt
		jsr	write_with_cache
		bcs	end_move_file
		jsr	do_dest_slug

		lda	storage_type
		and	#$00F0		;see if this is a subdirectory
		cmp	#subdir_type
		bne	move_done
		jsr	fix_subdir
		rts
move_done 
		clc
end_move_file 
		rts
full_disk 
		lda	#volume_full
		sec
		rts
do_src_slug
		lda	src_slug_blk
		sta	slug_block
		lda	src_slug_offset
		sta	slug_offset
		bra	do_slug
do_dest_slug 
		lda	dest_slug_blk
		sta	slug_block
		lda	dest_slug_offset
		sta	slug_offset
do_slug 
		jsr	slug_ripple
		rts
fix_subdir 
		lda	one_entry+key_blk_index
		sta	drvr_blk_num
		jsr	read_with_cache	;read in the key block

		bcs	end_fix_subdir
		lda	dest_dir_blk	;block number where entry is
		ldy	#parent_index
		sta	[drvr_buf_ptr],y

		lda	#subdir_header
		sta	storage_type
		ldy	#$0004		;rename the subdirectory as well
		jsr	move_new_name

		jsr	make_entry_num
		bcs	end_fix_subdir
		ldy	#parent_index+2
		sta	[drvr_buf_ptr],y
		jsr	write_with_cache
end_fix_subdir 
		rts

dec_file_cnt 
		ldy	#header_file_cnt
		lda	[drvr_buf_ptr],y
		dec	a		;update the file count for directory
		bmi	end_dec
		sta	[drvr_buf_ptr],y
		jsr	chk_vol_cnt	;pass the new count in the accum
end_dec
		rts

inc_file_cnt
		ldy	#header_file_cnt
		lda	[drvr_buf_ptr],y
		inc	a		;update the file count for directory
		sta	[drvr_buf_ptr],y
		jsr	chk_vol_cnt	;pass the new count in the accum
		rts
;
;The new count is in the accumulator
;
chk_vol_cnt
		ldy	drvr_blk_num	;our we updating the Root Level of the disk?
		cpy	#vol_dir_start
		bne	@not_vol
;
;Now we need to update the VCR
;
		ldy	#vol_file_count
		sta	[prodos_vcr_ptr],y
@not_vol
		rts

delete_entry				; 
		ldx	#$0000
		ldy	src_offset
delete_loop				; ;move the entry to one_entry
		lda	[drvr_buf_ptr],y
		sta	one_entry,x
		iny
		inx
		cpx	#entry_length
		bne	delete_loop

		ldy	src_offset
		lda	[drvr_buf_ptr],y
		and	#$FF00		;clear storage/length field
		sta	[drvr_buf_ptr],y
		rts

move_old_entry				; 
		ldx	#$0000
		ldy	dest_offset
		longa	off
		sep	#$20
change_loop				; 
		lda	one_entry,x
		sta	[drvr_buf_ptr],y
		iny
		inx
		cpx	#entry_length
		bne	change_loop
		longa	on
		rep	#$20
		rts


;======================================================================
rename_file				; 
		jsr	standard_req	;read in 512 bytes
		jsr	set_default_buf
		lda	src_dev_num
		sta	drvr_dev_num
		lda	src_dir_blk	;block that contains the entry
		sta	drvr_blk_num
		jsr	read_with_cache
		bcs	end_rename
	
		clc
		lda	src_offset
		adc	#access_index
		tay
		lda	[drvr_buf_ptr],y
		and	#rename_enabled	;can we rename the file?
		bne	@10		;rename is OK
		sec
		lda	#invalid_access	;sorry bud
		rts			;return with the error please
		
@10
		clc
		lda	src_offset	;get the key block
		adc	#key_blk_index
		tay
		lda	[drvr_buf_ptr],y
		sta	one_entry+key_blk_index

		ldy	src_offset	;offset the old name
		lda	[drvr_buf_ptr],y
		and	#$00F0		;isolate the storage type
		sta	storage_type
		cmp	#volume_header
		beq	rename_vol
		cmp	#subdir_type
		beq	type_ok
		cmp	#seedling_type
		beq	type_ok
		cmp	#sapling_type
		beq	type_ok
		cmp	#tree_type
		beq	type_ok
		cmp	#resource_type
		bne	bad_type
type_ok					; 
		ldy	src_offset
		jsr	move_new_name
		jsr	write_with_cache
		bcs	end_rename
		lda	storage_type
		and	#$00F0		;clear the garbage
		cmp	#subdir_type
		bne	end_rename_clr
		lda	src_dir_blk
		sta	dest_dir_blk
		lda	src_offset
		sta	free_dir_offset
		jsr	fix_subdir
		bcs	end_rename
end_rename_clr 
		jsr	slug_ripple	;ripple the time please
end_rename 
		rts
bad_type 
		lda	#bad_store_type
		sec
		rts
		
;Rename a volume.
;
;Note - if cp_device_flag is $8001 then we're renaming a duplicate volume. In this
;	case, don't call chk_boot_vol since the duplicate volume could have the same
;	name as the boot volume and we don't want to change the boot prefix.
;	3/26/91 CAE

rename_vol 
		pei	my_vcr_ptr
		pei	my_vcr_ptr+2
		jsr	Check_dup_dest	;see if the destination name is an active VCR
		ply
		sty	my_vcr_ptr+2
		ply
		sty	my_vcr_ptr
		bcc	@not_active
		rts
@not_active
 		ldy	volume_name	;terminate the new name with a null
		lda	#$0000
		sta	volume_name+2,y
		
; 		jsr	chk_boot_vol	;moved after call to setup_name 3/26/91 CAE

		lda	#volume_name	;move the name to search_name and
		sta	temp_ptr	;do syntax checking on the name
		lda	#^volume_name
		sta	temp_ptr+2
		lda	#$0002		;starting index for check
		sta	chars_checked
		jsr	setup_name
					;following 2 lines added 3/26/91 CAE
		lda	cp_device_flag	;are we renaming a duplicate volume?
		bmi	@skip_chk	;yes - so don't change the boot prefix
 		jsr	chk_boot_vol	;change boot prefix if renaming boot volume
@skip_chk		
		lda	[my_vcr_ptr]	;get the VCR ID
		ldx	#volume_name	;pointer to the new name
		ldy	#^volume_name
		jsl	rename_vcr
		
@go_type_ok
		clc
		brl	type_ok
		
;======================================================================
;We need to make sure that the destination name is not an allocated
;VCR with open files.  If we find a VCR with open files then we should
;remove it or return duplicate volume error.
;======================================================================
Check_dup_dest
		lda	[my_vcr_ptr]	;get the VCR ID of the source
		pha
		
		ldx	#volume_name	;pointer to the volume name
		ldy	#^volume_name
		lda	#0000		;0000=search for vcr by name
		jsl	find_vcr
		bcc	@handle_dup
@no_dup_error
		pla			;just fix the stack
		clc
		rts			;no problem
@handle_dup
		jsl	deref		;convert virtual to real
		stx	my_vcr_ptr
		sty	my_vcr_ptr+2	;setup pointer to VCR

		lda	[my_vcr_ptr]	;get the VCR ID of the destination.
		cmp	1,s		;is source = dest?
		beq	@no_dup_error
		pla			;we must fix the stack
		
		ldy	#vcr_open_cnt
		lda	[my_vcr_ptr],y
		bne	@sorry_dup	;files open so don't log in new volume
		jsr	free_vcr	;free vcr pointed to by 'my_vcr_ptr'
		clc
		rts			;we are happy again!

@sorry_dup				; 
		lda	#dup_volume	;duplicate volume online
		sec
		rts	


;======================================================================

move_new_name 
		phy
		ldx	#14
		lda	#$0000
clear_old
		sta	[drvr_buf_ptr],y
		iny
		dex
		bpl	clear_old
		ply

		phy
		ldx	#$0000		;index into new name
		longa	off
		sep	#$20		;8 bit mode
		lda	storage_type
		ora	search_length
		sta	[drvr_buf_ptr],y
		iny
name_store				; 
		lda	search_name,x	;first ascii character
		sta	[drvr_buf_ptr],y
		iny
		inx
		cpx	search_length
		bne	name_store	;move the entire name

		longa	on
		rep	#$20
		pla			;get index to the storage type 
		clc
		adc	#version_index
		tay

		lda	storage_type
		cmp	#volume_header
		beq	@skip_case_save
	
@do_both	lda	case_bits	;set the case bits please
		beq	@do_save	;the case is all upper

		bit	fst_attr	;user does not want case info
		bmi	@do_save
		ora	#$8000		;set the case on bit.
@do_save		
		sta	[drvr_buf_ptr],y
		rts
		

@skip_case_save
		ldy	#create_index+4-2;save the case bits please
		jsr	@do_both
		ldy	#vol_create-2
		sta	[prodos_vcr_ptr],y
		rts
		
;======================================================================
chk_boot_vol				;change the boot prefix if needed
		ldy	src_offset	;original name of volume
		lda	[drvr_buf_ptr],y
		and	#$000F		;clear storage type etc.
		inc	a		;add one for leading ':'
		sta	def_vol_name	;length word
		lda	#'::'		;leading ':'
		sta	def_vol_name+2

		iny			;point to the first character
		ldx	#$0000
boot_loop				; 
		lda	[drvr_buf_ptr],y
		sta	def_vol_name+3,x
		iny
		inx
		cpx	#16		;move the max number of characters
		bne	boot_loop

		jsl	get_boot_pfx	;get the pointer to the current volume
		stx	temp_ptr
		sty	temp_ptr+2

		lda	[temp_ptr]	;verify the length
		cmp	def_vol_name
		bne	not_same
		tay			;use as index
		iny			;get the last character please
		
		longa	off
		sep	#$20
boot_loop2
		lda	[temp_ptr],y
		cmp	#'a'
		bcc	@no_convert	;The character cannot be lower case
		cmp	#'z'+1
		bcs	@no_convert
		and	#$DF		;convert char to upper case for compare
@no_convert
		cmp	def_vol_name,y
		bne	not_same
		dey
		bpl	boot_loop2	;check the entire volume name

		longa	on
		rep	#$20
		
		lda	volume_name	;get the length word of the new name
		tay
		inc	a		;add one for leading ':'
		sta	def_vol_name
		lda	#'::'		
		sta	def_vol_name+2
new_boot				; 
		lda	volume_name+1,y
		sta	def_vol_name+2,y
		dey
		bne	new_boot

		ldx	#def_vol_name	;pointer to the new name
		ldy	#^def_vol_name
		jsl	set_boot_pfx
not_same
		longa	on
		rep	#$20
		rts

;======================================================================

save_src_parms				; 
		lda	drvr_dev_num	;save source info
		sta	src_dev_num
		lda	dir_start_blk	;starting block of directory
		sta	src_start_blk
		lda	entry_offset	;offset to directory entry
		sta	src_offset
		lda	parent_blk	;block that contains entry
		sta	src_dir_blk
		rts

save_dest_parms				; 
		lda	drvr_dev_num	;save source info
		sta	dest_dev_num
		lda	dir_start_blk	;starting block of directory
		sta	dest_start_blk
		lda	free_dir_offset	;offset to directory entry
		sta	dest_offset
		lda	free_dir_blk	;block that contains entry
		sta	dest_dir_blk
		rts

;======================================================================

process_dest				; 
		lda	path1_ptr	;save pathname one pointer
		sta	curr_mark
		lda	path1_ptr+2
		sta	curr_mark+2	;temp save area!!!!!!!!!!!!!!!
		lda	dev1_num
		sta	curr_eof
		lda	path_flag
		sta	curr_eof+2	;temp storage

		lda	path2_ptr	;make path two appear as path one
		sta	path1_ptr
		lda	path2_ptr+2
		sta	path1_ptr+2

		lda	dev2_num
		sta	dev_num

		lda	path_flag
		and	#path2_mask
		xba
		sta	path_flag
;
;IF vol_rename_flag = minus then we are renaming the volume
;
		bit	vol_rename_flag
		bpl	normal_rename
		lda	#path1_mask

		ldx	path1_ptr
		ldy	path1_ptr+2
		jsr	build_path

		lda	src_dev_num
		sta	drvr_dev_num
		lda	src_start_blk
		sta	dir_start_blk
		lda	src_dir_blk
		sta	free_dir_blk
		lda	src_offset
		sta	free_dir_offset
		jsr	restore_path1
		clc
		rts

normal_rename				; 

		lda	#no_dup		;duplicate not allowed
		sta	search_flag
		jsr	process_path	;find the destination

		ldx	slug_block	;save for slug_ripple routine
		stx	dest_slug_blk
		ldx	slug_offset
		stx	dest_slug_offset

		bcs	no_dup_problem

		lda	drvr_dev_num	;did the user enter the same name?
		cmp	src_dev_num
		bne	dup_prob	;duplicate filename
		lda	dir_start_blk
		cmp	src_start_blk
		bne	dup_prob
		lda	parent_blk	;block that contains entry
		cmp	src_dir_blk
		bne	dup_prob
		lda	entry_offset	;offset to directory entry
		cmp	src_offset
		bne	dup_prob
		jsr	restore_path1
		clc
		rts			;renaming the same file

dup_prob				; 
		jsr	restore_path1
		lda	#dup_pathname
real_problem				; 
		sec
		rts

no_dup_problem				; 
		pha
		jsr	restore_path1
		pla
		bit	path_searched	;was the entire path searched?
		bpl	real_problem
		clc
		rts

restore_path1				; ;restore path1 stuff
		lda	curr_mark
		sta	path1_ptr
		lda	curr_mark+2
		sta	path1_ptr+2
		lda	curr_eof
		sta	dev_num
		lda	curr_eof+2
		sta	path_flag
		rts

;======================================================================
;Possible combinations of pathnames
;
;(1)            .DEV1                --> /FOO          (Rename)
;(2)            /FOO1                --> /FOO          (Rename)
;(3)            /FOO1/PATHNAME       --> /FOO1/NEWNAME (Rename)
;(4)            /FOO1/SUB/FILE       --> /FOO1/FILE    (Change path)
;(5)            .DEV1/FILE           --> /FOO/NEW.NAME (Rename)
;(6)            .DEV1/FILE           --> /FOO/SUB/FILE (Change path)
;(7)            /FOO/FILE            --> .DEV1/SUB/NEW (Change path)
;(8)            /FOO/FILE            --> .DEV1/NEW     (rename)
;
;Invalid Pathnames:
;
;(1)            /FOO                 --> .DEV1
;(2)            /FOO                 --> /FOO/FILE
;(3)            /FOO/SUB/            --> /FOO/SUB/SUB1/SUB
;(4)            /FOO/FILE            --> /FOO
;(5)            /FOO/FILE            --> .DEV1
;
;======================================================================

valid_change
		stz	cp_to_child	; assume source is not a subset of dest
		stz	vol_rename_flag
		lda	path_flag
		and	#path2_mask	;there has to be a second pathname
		beq	to_bad_path

		jsr	setup_path1	;Path1_ptr --> temp_ptr
		jsr	setup_path2	;Path2_ptr --> temp2_ptr

;
;IF (Path1 = device_name) THEN
;   (Path2 must be a volume name only)
;
;
		lda	path_flag	;is path1 a device name only?
		and	#path1_mask
		bne	not_device	;not just a device name
		lda	dev2_num
		bne	to_bad_path	;path2 cannot contain a device name
		ldx	temp2_ptr
		ldy	temp2_ptr+2
		jsr	scan_pass_vol	;pass the volume name IF possible
		bcc	to_bad_path	;there is more then just a volume name
;
;We are doing the following:  '.DEV1' to '/FOO'
;
		bra	volume_rename

to_bad_path				; 
		brl	bad_path
;
; IF (Path1 = volume_only) THEN
;    (Path2 must be volume only)
;
not_device				; 
		lda	dev1_num	;IF dev <> 00 THEN not volume only
		bne	chk_same_dev
		ldx	temp_ptr	;pointer to path1
		ldy	temp_ptr+2
		jsr	scan_pass_vol
		bcc	not_vol_only	;path1 <> volume only
;
; IF (path1 - volume) and ((path2 = device) or (path2 = dev/vol)) THEN
;    bad_path_syntax
;
		lda	path_flag
		and	#path2_mask
		beq	to_bad_path
		lda	dev2_num	;is there a device name also?
		bne	a_bad_path

		ldx	temp2_ptr
		ldy	temp2_ptr+2
		jsr	scan_pass_vol	;pass the volume name IF possible
		bcc	to_bad_path	;path2 <> volume only
;
;We are doing the following:  '/FOO1' to '/FOO'
;
volume_rename				; 
		dec	vol_rename_flag
		clc
		rts
;
;IF (Path1 <> volume only) THEN
;   (Path2 MUST be a pathname)
;
chk_same_dev				; 
		lda	dev2_num	;is the rename on the same device?
		beq	not_vol_only
		cmp	dev1_num
a_bad_path	bne	to_bad_path

not_vol_only				; 
		lda	path_flag
		and	#path2_mask	;is there a pathname?

	if AllowLCPeriods then	;added 7-Aug-91 DAL
		beq	to_bad_path
	else			;original code
		beq	bad_path	;must be device name only
	endif			;end 7-Aug-91 DAL

		lda	dev2_num	;IF (dev = true) and (path = true) THEN
		bne	path2_is_path	;   (path2 = pathname)

		ldx	temp2_ptr
		ldy	temp2_ptr+2
		jsr	scan_pass_vol
		bcs	bad_path	;Path2 = volume name only!
		stx	temp2_ptr
		sty	temp2_ptr+2
;
;IF (path2 = path2-volume_name) and (path1 = volume_name) THEN
;   Path1 := Path1-volume_name
;
		lda	dev1_num	;does path1 contain a volume name?
		bne	do_scan		;no it does not
		ldx	temp_ptr
		ldy	temp_ptr+2
		jsr	scan_pass_vol	;scan past the volume name
		stx	temp_ptr
		sty	temp_ptr+2
		bra	do_scan

;
; When Here Path1 and Path2 are both pathnames!
;
; IF (Path1 = dev) and (path2 = vol) THEN
;    path2 := path2-volume name
;
path2_is_path				; 
		lda	dev1_num	;does path1 contain a device name?
		beq	path1_volume	;NO

		lda	dev2_num	;does path2 contain a device name?
		bne	do_scan		;path1 and path2 contains device names

		ldx	temp2_ptr
		ldy	temp2_ptr+2	;scan pass the volume name
		jsr	scan_pass_vol
		stx	temp2_ptr
		sty	temp2_ptr+2
		bra	do_scan		;everything is OK so far

;
; IF (path1 = volume) and (path2 = dev) THEN
;    path1 := path1-volume_name

path1_volume				; 
		lda	dev2_num	;does path2 contain a
		beq	do_scan		;Path1 and path2 contain volume names

;
; IF (path2 = dev) and (path1 = vol) THEN
;    path1 := path1-volume_name
;
scan_path1				; 
		ldx	temp_ptr	;path1
		ldy	temp_ptr+2
		jsr	scan_pass_vol	;pass the volume name
		stx	temp_ptr
		sty	temp_ptr+2
		
		;The following code was moved into the changepath code so
		;that ProDOS conforms to the way AppleShare and HFS do a 
		;changepath.  The check to see if the path1 is a subset 
		;of path2 should not be done until after we check to see 
		;if the path2 allready exsists.               10/3/91 JEV
;
; IF (path1 is a subset of path2) THEN
;    set cp_to_child

		;The following code has been changed to do a case-insensitive
		;compare in order to fix a bug which was allowing illegal moves
		;if the case of the pathnames was different.  1/22/91 CAE

do_scan					; 
		ldy	#$0000		;start scan at beginning
		longa	off
		sep	#$20
subset_loop				; 
;		lda	[temp_ptr],y	;source file
;		cmp	[temp2_ptr],y	;destination
;		bne	more_chk
;		iny
;		bra	subset_loop
		
		lda	[temp_ptr],y	;get source file char
	if AllowLCPeriods then	;added 7-Aug-91 DAL
		cmp	#' '
		bne	@not_blank1
		lda	#'.'
@not_blank1
	endif			;end 7-Aug-91 DAL

		cmp	#'a'		;upper case?
		bcc	@its_upper1	;yes
		and	#$DF		;no - so convert to upper case
@its_upper1	pha			;save char
		lda	[temp2_ptr],y	;get dest file char

	if AllowLCPeriods then	;added 7-Aug-91 DAL
		cmp	#' '
		bne	@not_blank2
		lda	#'.'
@not_blank2
	endif			;end 7-Aug-91 DAL

		cmp	#'a'		;upper case?
		bcc	@its_upper2	;yes
		and	#$DF		;no - so convert to upper case
@its_upper2	cmp	1,s		;same as source file char?
		bne	@no_match	;nope
		pla			;yes - so clean up stack
		iny			;adjust index
		bra	subset_loop	;and loop
@no_match	pla			;clean up stack
		
more_chk				; 
		lda	[temp2_ptr],y	;this cannot be a 'delimiter'
		cmp	#delimiter
		longa	on		;go ahead and fix the mode
		rep	#$20
		bne	paths_ok
		lda	[temp_ptr],y	;is this the end of the source?
		and	#$00FF
		bne	paths_ok	;not the end of source name
		
		inc	cp_to_child	; source was subset of dest! 27-Jan-92 MSD

paths_ok	clc
		rts

bad_path
		lda	#bad_path_syntax
		sec
		jmp	main_exit

;======================================================================

scan_pass_vol				; 
		stx	temp3_ptr	;pointer to the string
		sty	temp3_ptr+2
		ldy	#$0001
		longa	off
		sep	#$20
scanner					; 
		lda	[temp3_ptr],y
		beq	scan_failed	;sorry volume name only
		cmp	#delimiter
		beq	scan_passed
		iny
		bra	scanner

scan_passed				; 
; 27-Jan-92 MSD: This routine was returning a pointer to the character
; before the pathname separator.  It should have been returning a pointer
; to the character after the separator.  Removed the DEY and changed a
; CLC to a SEC before adding (so it will add 1 to point past separator).
;
;		dey

		longa	on
		rep	#$20		;back to 16 bit mode
		sec			; 27-Jan-92 MSD (was CLC)
		tya
		adc	temp3_ptr
		tax
		lda	#$0000
		adc	temp3_ptr+2
		tay
		clc			;not just a volume name
		rts

scan_failed				; 
		longa	on
		rep	#$20
;               ldx     temp3_ptr
		ldy	temp3_ptr+2	;restore X and Y
		sec
		rts

;======================================================================

setup_path2				; 
		ldx	path2_ptr
		ldy	path2_ptr+2
		inx
		bne	do_again
		iny
do_again	inx
		bne	cont
		iny
cont					; 
		stx	temp2_ptr	;pointer to pathname two
		sty	temp2_ptr+2
		rts

;======================================================================

setup_path1				; 
		ldx	path1_ptr
		ldy	path1_ptr+2
		inx
		bne	do2_again
		iny
do2_again	inx
		bne	cont2
		iny
cont2					; 
		stx	temp_ptr	;pointer to pathname one
		sty	temp_ptr+2
		rts

		ENDP
;==========================================================================
;Set_file_info: This routine will alter information about a file on disk.
;
;Created:       may 26, 1987
;Modified:      jan 06, 1987
;Author:        Rob Turner
;
;Enter:         jml
;
;Input:         A = undefined
;               X = call number times 2
;               Y = class times 2
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;Uses:          All registers
;               find_file
;
;Call Format:
;
;Class 0        Pathname Pointer        (4 Bytes)
;               Access                  (2 Bytes: Disk Format)
;               File Type               (2 Bytes)
;               Aux Type                (4 Bytes)
;               Null Field              (2 Bytes)
;               Create Date/Time        (4 Bytes: ProDOS Format)
;               Mod Date/Time           (4 Bytes: ProDOS Format)
;
;Class 1        PCount                  (2 Bytes)
;               Pathname Pointer        (4 Bytes)
;               Access                  (2 Bytes: Disk Format)
;               File Type               (2 Bytes)
;               Aux Type                (4 Bytes)
;               Null Field              (2 Bytes)
;               Create Date/Time        (8 Bytes: Misc. Tools Format)
;               Mod Date/Time           (8 Bytes: Misc. Tools Format)
;               Option List             (4 Bytes)
;               Null Field              (4 Bytes)
;               Null Field              (4 Bytes)
;               Null Field              (4 Bytes)
;               Null Field              (4 Bytes)
;==========================================================================
		longa	on
		longi	on

		EXPORT	set_file_info	
set_file_info	PROC

;==========================================================================
;Indicate that we don't have any HFS Finder Info.
;==========================================================================

		stz	hfs_flag
		
;==========================================================================
;Reset all time fields to zero.  This forces me to calculate the time if
;needed.  However, if the create time is set to zero then the create date
;and time fields will be left unchanged.
;==========================================================================

		stz	mod_time
		stz	mod_time+2

		stz	create_time
		stz	create_time+2

;==========================================================================
;Go and setup the default parameters for the call.
;==========================================================================

		jsr	setup_params
		php			;save class state

;==========================================================================
;Process the file name and locate it.
;==========================================================================

		jsr	process_path
		jsr	chk_disk_protect

;==========================================================================
;See if this is a volume header.  If it is then return 'bad_path_syntax'
;==========================================================================

		lda	[drvr_buf_ptr]
		and	#$00F0
		cmp	#volume_header
		bne	ok_to_change

		lda	#bad_path_syntax
set_info_err				; 
		sec
set_info_exit				; 
		jmp	main_exit

;==========================================================================
;Move the directory entry into one entry please
;==========================================================================

ok_to_change				; 
		jsr	move_dir_entry

		lda	alloc_entry	;get the length word
		ora	storage_type	;add in the storage type
		ora	one_entry	;add in the 1st char of name
		sta	one_entry

		plp			;restore class flag.
		beq	class0

;==========================================================================
;When we get here we know that this is a class one call.
;So now we start processing the parameters supplied.
;==========================================================================

		dec	pcount
		dec	pcount

		jsr	get_access	;setup the access field

		dec	pcount
		bmi	to_no_time_change

;==========================================================================
;go and grab the file type that the user has provided.
;If the storage type is a directory then we must nake sure the file
;type field is $0F, which indicates that the file is a directory.
;==========================================================================

		jsr	get_ftype
		jsr	set_dir_type
		dec	pcount
		bmi	to_no_time_change

;==========================================================================
;The user's has also provided the aux type.
;==========================================================================

		jsr	get_aux_type

;==========================================================================
;Skip all the  null fields
;==========================================================================
		dec	pcount
		dec	pcount
		bpl	cont
to_no_time_change
		brl	no_time_change
cont

;==========================================================================
;user's has also provided the create data.  Isn't that special!
;==========================================================================

		ldy	#pblk_05_create
		jsr	get_pblk_time
		bcc	@good1		; 27-Jan-92 MSD:
		ldy	#$8000		; invalid, but non-zero
@good1
		stx	create_time
		sty	create_time+2

		dec	pcount
		bmi	do_create_only

;==========================================================================
;Holly Cow Batman the user's has even given us the modification date!
;==========================================================================

		ldy	#pblk_05_mod
		jsr	get_pblk_time
		bcc	@good2		; 27-Jan-92 MSD:
		ldy	#$8000		; invalid, but non-zero
@good2
		stx	mod_time
		sty	mod_time+2
					;new code added 2/13/91 CAE		
		dec	pcount
		bmi	set_the_info

;==========================================================================
;An option list was also provided
;==========================================================================

		jsr	get_option_list
					;end of new code
		bra	set_the_info

class0
;==========================================================================
;The old style call has to provide everything, So go ahead and get it.
;==========================================================================

		jsr	get_access
		jsr	get_ftype
		jsr	set_dir_type
		jsr	get_aux_type

;==========================================================================
;get the create date and time
;==========================================================================

		ldy	#$000E		;index to the create time
		lda	[my_pblk_ptr],y
		sta	create_time
		iny
		iny
		lda	[my_pblk_ptr],y
		sta	create_time+2

;==========================================================================
;Get the modification date and time.
;==========================================================================

		iny
		iny
		lda	[my_pblk_ptr],y
		sta	mod_time
		iny
		iny
		lda	[my_pblk_ptr],y
		sta	mod_time+2

;==========================================================================
;We get to 'set_the_info' from both the class1 and class0 style calls.
;==========================================================================

set_the_info
		jsr	pack_time	;read the system clock please
					;X & Y contain the date and time

		lda	mod_time	;did the user supply the date and time?
		ora	mod_time+2	;(i.e. is the parameter != 0?)
		beq	@use_current	;yes, use the current date and time
		ldx	mod_time	;else use the user supplied values
		lda	mod_time+2
		and	#$1F3F		;make sure parameters are in range
		tay
@use_current
		stx	one_entry+last_mod_index
		sty	one_entry+last_mod_index+2

do_create_only
		lda	create_time	;did the user supply a creation date & time?
		ora	create_time+2
		beq	no_time_change	;no, just leave it alone
		lda	create_time	;else copy user's values to entry
		sta	one_entry+create_index
		lda	create_time+2
		and	#$1F3F		;make sure parameters are in range
		sta	one_entry+create_index+2

no_time_change
		ldy	#entry_length-1
put_back				; 
		lda	one_entry,y
		sta	[drvr_buf_ptr],y
		dey
		dey
		bpl	put_back

		lda	gbuf_addr
		sta	drvr_buf_ptr
		lda	gbuf_addr+2
		sta	drvr_buf_ptr+2

		jsr	standard_req

		jsr	write_with_cache
		bcs	all_done

		jsr	fix_the_fcr	;update the File Control Record if needed
		jsr	slug_ripple
		bcs	all_done
					;new code code added 2/13/91 CAE
		lda	hfs_flag	;do we have any HFS info?
		beq	all_done	;no - so we're done
		jsr	store_hfs_info	;yes - so store it in the resource header
					;end of new code
all_done	jmp	set_info_exit

;==========================================================================
;=============== END OF THE MAIN CODE FOR SET_FILE_INFO ===================
;==========================================================================

;==========================================================================
;Below is the subroutines used by SET_FILE_INFO.
;==========================================================================
;==========================================================================
;Now we see if the file is already open.  We do this by calling
;get_next_fcr.  If this routine finds a ProDOS FCR then we see if the key
;block is the same.  If it is then we also update the FCR along with the
;disk
;==========================================================================
fix_the_fcr
		stz	fcr_wanted	;reset counter for Get_Next_FCR

look_loop				; 
		jsr	get_next_fcr	;go grab a FCR
		bcs	no_fcr

		ldy	#fcr_vol_id
		lda	[my_fcr_ptr],y	;get the Volume ID so we can make sure the file is on
		cmp	[my_vcr_ptr]	;the same volume.
		bne	look_loop	;File is on another volume

		ldy	#fcr_file_id
		lda	[pro_fcr_ptr],y
		cmp	one_entry+key_blk_index
		bne	look_loop

;==========================================================================
;Save a modified Aux type please
;==========================================================================

		ldy	#fcr_aux_type		;update the aux type please
		lda	one_entry+aux_type_index
		sta	[pro_fcr_ptr],y

;==========================================================================
;Save file type please
;==========================================================================

		ldy	#fcr_file_type
		lda	one_entry+file_type_index
		sep	#$20			;a short store
		sta	[pro_fcr_ptr],y
		rep	#$20
		
;==========================================================================
;Save create time please
;==========================================================================

		ldy	#fcr_create		;update the create time
		lda	one_entry+create_index
		sta	[pro_fcr_ptr],y
		iny
		iny
		lda	one_entry+create_index+2
		sta	[pro_fcr_ptr],y

no_fcr		rts 

;==========================================================================
;Store the user's access field in the
;==========================================================================
get_access
;
		ldy	#pblk_05_accs
		lda	[my_pblk_ptr],y
		tax
		and	#$FF18		;clear the reserved bits
		bne	bad_bits	;sorry bud you are out of range
		longa	off
		sep	#$20
		txa
		ora	#backup_on	;force the backup bit on
		sta	one_entry+access_index
		longa	on
		rep	#$20
		rts

bad_bits
		lda	#parm_range_err
		brl	set_info_err

;==========================================================================
;get_aux_type and store it
;==========================================================================

get_aux_type
		ldy	#pblk_05_aux+2
		lda	[my_pblk_ptr],y
		bne	range_problem
		dey
		dey
		lda	[my_pblk_ptr],y
		sta	one_entry+aux_type_index
		rts

range_problem
		lda	#parm_range_err
		brl	set_info_err

;==========================================================================
;Get the file type
;==========================================================================

get_ftype 
		ldy	#pblk_05_ftype
		lda	[my_pblk_ptr],y
		tax
		and	#$FF00
		bne	range_problem
		longa	off
		sep	#$20
		txa
		sta	one_entry+file_type_index
		longa	on
		rep	#$20
		rts

;==========================================================================
;This routine is used to convert the extended date and time fields into
;ProDOS data and time fields
;==========================================================================

get_pblk_time
		lda	[my_pblk_ptr],y	;Get the second field so I can range check it
		and	#$00FF		;clear the minutes field
		cmp	#60
		bcs	range_problem
		
		iny			;get the minutes field
		lda	[my_pblk_ptr],y
		tax
		and	#$00FF
		cmp	#60		;minutes are 00 to 59
		bcs	range_problem
		sta	minutes		;save the minutes field
		txa
		xba
		and	#$00FF
		cmp	#24		;hours are 00 to 23
		bcs	range_problem
		sta	hours		;save the hours field

		iny
		iny

		lda	[my_pblk_ptr],y
		tax
		and	#$00FF
		sta	year		;save the year as well
		txa
		xba
		and	#$00FF
		cmp	#31		;days are 00 to 30
		bcs	range_problem
		sta	day		;don't forget the day now.

		iny
		iny
		lda	[my_pblk_ptr],y
		and	#$00FF
		sta	month
		cmp	#12		;month = 0 to 11
		bcs	range_problem
		
		iny			;get the null/day of week field
		lda	[my_pblk_ptr],y
		xba			;put null in the high byte for easy compare
		cmp	#$0008		;max value is 7 for day of week
		bcs	range_problem
		
		lda	hours
		ora	minutes
		ora	year
		ora	day
		ora	month
		beq	use_clock

		inc	day
		inc	month		;comvert to ProDOS format
		jsr	convert_time	;convert the time to ProDOS format
		rts

use_clock				; 
		tax			;return 0000 so we use the current time
		txy
		clc			; 27-Jan-92 MSD: date was valid
		rts

;==========================================================================
;This routine will change the file type to $0F if the storage type of the
;file is a subdirectory
;==========================================================================

set_dir_type				; 
		lda	storage_type	;if storage is a directory only allow
		cmp	#subdir_type	;file type of $0F please
		bne	norm_file

		longa	off		;short mode for a second please
		sep	#$20
		lda	#$000F		;File type for directories
		sta	one_entry+file_type_index
		longa	on
		rep	#$20		;back to 16 bit mode

norm_file				; 
		rts

;==========================================================================
;Get the option list info.
;
;The option list is structured as follows -
;
;	word - buffer size
;	word - data size
;	word - FST ID
;	additional data (FST-specific)
;==========================================================================

get_option_list 				;added 2/13/91 CAE

; If the file is not a resource file then skip the option list since there's
; no place to store the info anyway.

		lda	storage_type		;get storage type
		cmp	#resource_type		;is it a resource file?
		bne	@done			;no - so skip option list
		
; Store ptr to option list buffer on direct page.  Exit if ptr = 0.
		
		ldy	#pblk_05_opt		
		lda	[my_pblk_ptr],y		;get option list ptr
		sta	<temp_ptr		;and store
		iny
		iny
		lda	[my_pblk_ptr],y
		and	#$00ff			;clear hi byte
		sta	<temp_ptr+2
		ora	<temp_ptr		;is ptr 0?
		beq	@done			;yes - so done
 
; Is the buffer big enough to contain what we expect (ie. HFS Finder Info)?
 
		lda	[temp_ptr]		;get buffer size
		cmp	#6+32			;is it big enough?
		bcc	@done			;no - so done
 
; The buffer is big enough so now check the data size to see if the data is
; really there.  We expect a minimum of 34 bytes of data.
; NOTE - We need to check both the buffer size and the data size because in
;	 previous releases of GS/OS, the data size field was undefined.
 
		ldy	#2			;get offset to data size field
		lda	[temp_ptr],y		;get data size
		cmp	#34			;enough data?
		bcc	@done			;no - so done
		
; Check the FST ID.  If it's not ProDOS, HFS or AppleShare then exit.  
 
		ldy	#4			;get offset to fst id field
		lda	[temp_ptr],y		;get the fst id
		cmp	#pro_id			;is it prodos?
		beq	@id_ok			;yes
		cmp	#hfs_id			;is it hfs?
		beq	@id_ok			;yes
		cmp	#ashare_id		;is it appleshare?
		bne	@done			;no - so done
@id_ok
 
; Copy the HFS Finder Info from the option list buffer into a storage area.
 
 		ldx	#0			;init offset into finfo storage
		ldy	#6			;init offset into option list buffer
@finfo_loop	lda	[temp_ptr],y		;get word of finder info 
		sta	hfs_finfo,x		;and save it in storage area
		iny				;adjust offsets
		iny
		inx				
		inx
		cpx	#32	
		bcc	@finfo_loop		;loop until done
		
		inc	hfs_flag		;indicate that we have HFS info
@done		rts				;and return

;==========================================================================
;Store the HFS Finder Info in the resource header.  
;The Finder Info is stored immediately after the mini-entry for the data fork,
;so it begins at offset $0008 in the block. 
;
;format:        entry size		(1 byte)
;               entry type 		(1 byte)
;               HFS Finder Info		(16 bytes)
;               entry size		(1 byte)
;               entry type 		(1 byte)
;               HFS Finder Info		(16 bytes)
;
; entry_size = 18
; entry_type = 1 for first 16 bytes of Finder Info (FInfo)
;	       2 for second 16 bytes of Finder Info (xFInfo)
;
;==========================================================================

store_hfs_info					;added 2/13/91 CAE
		jsr	set_default_buf
		jsr	standard_req
		lda	one_entry+key_blk_index
		sta	drvr_blk_num
		stz	drvr_blk_num+2
		jsr	read_with_cache		;get the resource header
		bcs	@error
		
		lda	#finfo_type		;get entry type
		xba				;move it into the hi byte
		ora	#18			;put entry size in lo byte
		ldy	#8			
		sta	[drvr_buf_ptr],y	;and store in first entry
		
		lda	#xfinfo_type		;get entry type
		xba				;move it into the hi byte
		ora	#18			;put entry size in lo byte
		ldy	#8+18			
		sta	[drvr_buf_ptr],y	;and store in second entry
		
		ldx	#0
		ldy	#10
@loop 		lda	hfs_finfo,x		;copy the HFS Finder Info into
		sta	[drvr_buf_ptr],y	;the resource header
		iny
		iny
		inx
		inx
		cpx	#32			;at end of second entry?
		beq	@loop_done		;yes
		cpx	#16			;at end of first entry?
		bne	@loop			;no - so loop
		iny				;yes - so skip over entry size
		iny				;and entry type of second entry
		bra	@loop			;loop
@loop_done		
		jsr	write_with_cache	;write out the header
@error		rts				;and return

		ENDP
;==========================================================================
;Get_file_info: This routine will return information about a file on disk.
;               If the file is open and has been modified then the EOF
;               and Blocks used fields come from the FCR.  I do not
;               return the current time for the modification time, since
;               This would require a call to the SLOW clock routines.
;
;
;Created:       May 23, 1987
;Modified:      Aug 26, 1987
;Author:        Rob Turner
;
;Enter:         jml
;
;Input:         A = undefined
;               X = call number times 2
;               Y = class times 2
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;Uses:          All registers
;               find_file
;
;Call Format:
;
;Class 0        Pathname Pointer        (4 Bytes)
;               Access                  (2 Bytes: Disk Format)
;               File Type               (2 Bytes)
;               Aux Type                (4 Bytes)
;               Storage Type            (2 Bytes)
;               Create Date/Time        (4 Bytes: ProDOS Format)
;               Mod Date/Time           (4 Bytes: ProDOS Format)
;               Blocks Used             (4 Bytes)
;
;Class 1        PCount                  (2 Bytes)
;               Pathname Pointer        (4 Bytes)
;               Access                  (2 Bytes: Disk format)
;               File Type               (2 Bytes)
;               Aux Type                (4 Bytes)
;               Storage Type            (2 Bytes)
;               Create Date/Time        (8 Bytes: Misc. Tools Format)
;               Mod Date/Time           (8 Bytes: Misc. Tools Format)
;               Option List Pointer     (4 Bytes)
;               EOF Data Fork           (4 Bytes)
;               Blocks Used Data Fork   (4 Bytes)
;               EOF Resource Fork       (4 Bytes)
;               Blocks Used Res. Fork   (4 Bytes)
;
;==========================================================================
		longa	on
		longi	on

		EXPORT	get_file_info	
get_file_info	PROC

;==========================================================================
;Go and setup the defaul parameters for the call.
;==========================================================================

		jsr	setup_params

;==========================================================================
;Process the file name and locate it.
;==========================================================================

		jsr	process_path

;==========================================================================
;Move the directory entry into one entry please
;==========================================================================

		jsr	move_dir_entry	;move the entry to one_entry
		lda	one_entry	;add in the storage type
		ora	storage_type
		sta	one_entry

;==========================================================================
;If the file is a resource file then get the extended key block.
;(This code used to be below 'loop_done'.  Moved here 3/13/91 CAE)
;==========================================================================

		lda	storage_type
		cmp	#resource_type
		bne	@cont

		lda	gbuf_addr
		sta	drvr_buf_ptr
		lda	gbuf_addr+2
		sta	drvr_buf_ptr+2

		lda	one_entry+key_blk_index
		sta	drvr_blk_num
		stz	drvr_blk_num+2
		jsr	read_with_cache	
		bcc	@cont
		brl	get_exit
@cont

;==========================================================================
;Now we see if the file is already open.  We do this by calling
;get_next_fcr.  If this routine finds a ProDOS FCR then we see if the key
;block is the same.  If it is then we get the EOF and Number of blocks
;used from the FCR instead of from disk.
;(Modified to handle resource files correctly 3/13/91 CAE)
;==========================================================================

		stz	fcr_wanted	;reset counter for Get_Next_FCR
look_loop				 
		jsr	get_next_fcr	;go grab a FCR
		bcs	loop_done

		ldy	#fcr_vol_id
		lda	[my_fcr_ptr],y	;get the Volume ID so we can make sure the file is on
		cmp	[my_vcr_ptr]	;the same volume.
		bne	look_loop	;File is on another volume

		ldy	#fcr_file_id
		lda	[pro_fcr_ptr],y
		cmp	one_entry+key_blk_index
		bne	look_loop

;Check the status bit to see if the file info is different from the info on disk.
;If not, then loop.

		ldy	#fcr_status
		lda	[pro_fcr_ptr],y
		bpl	look_loop	

;Get the current EOF and current number of blocks allocated by the file.

		ldy	#fcr_curr_eof
		lda	[pro_fcr_ptr],y
		sta	one_entry+eof_index
		iny
		lda	[pro_fcr_ptr],y
		sta	one_entry+eof_index+1

		ldy	#fcr_blks_used
		lda	[pro_fcr_ptr],y
		sta	one_entry+blks_used_index
		
;Check to see if we're dealing with a resource file.
;If so, copy the EOF and blocks_used info into the extended key block so send_info will
;use it.				

		lda	storage_type	
		cmp	#resource_type	;are we dealing with a resource file?
		bne	loop_done	;no - so we're done
	
		lda	[pro_fcr_ptr]	;get resource number
		xba			;convert $0000 or $0001 into
		tay			;$0000 or $0100
		iny
		iny
		iny			
		
		lda	one_entry+blks_used_index
		sta	[drvr_buf_ptr],y
		iny
		iny
		lda	one_entry+eof_index
		sta	[drvr_buf_ptr],y
		iny
		lda	one_entry+eof_index+1
		sta	[drvr_buf_ptr],y
		
		bra	look_loop	;loop until done
loop_done					 

;==========================================================================
;Check to see if we're dealing with a volume header.
;==========================================================================

		lda	storage_type
		cmp	#volume_header
		bne	go_send_info

		jsr	calc_last_mod		;we need to calculate the last mod for the volume
		jsr	calc_free_blks		;A = free blocks
		bcc	have_free
		jmp	main_exit		;sorry there is an error

have_free
		sta	one_entry+blks_used_index
		ldy	#vol_total_blks
		lda	[prodos_vcr_ptr],y
		sta	one_entry+aux_type_index
		sec
		sbc	one_entry+blks_used_index
		sta	one_entry+blks_used_index

go_send_info
		lda	pcount
		beq	old_style_info

		clc
		lda	my_pblk_ptr
		adc	#$0004
		tax
		lda	my_pblk_ptr+2
		adc	#$0000
		tay
		lda	pcount
		dec	a
		jsr	send_info
		bcs	get_exit
clean_exit
		clc
get_exit 
		jmp	main_exit

old_style_info 

;==========================================================================
;Just return the old style info for class 0 calls
;firts field is ACCESS
;==========================================================================
		ldy	#$0004
		lda	one_entry+access_index
		and	#$00E7
		sta	[my_pblk_ptr],y

;==========================================================================
;now send the FILE TYPE
;==========================================================================
		iny
		iny
		lda	one_entry+file_type_index
		and	#$00FF
		sta	[my_pblk_ptr],y

;==========================================================================
;go ahead and give them the AUX TYPE
;==========================================================================
		iny
		iny
		lda	one_entry+aux_type_index
		sta	[my_pblk_ptr],y
		iny
		iny
		lda	#$0000
		sta	[my_pblk_ptr],y

;==========================================================================
;through in the storage type for good measure
;==========================================================================
		iny
		iny
		lda	one_entry
		and	#$00F0
		lsr	a
		lsr	a
		lsr	a
		lsr	a
		sta	[my_pblk_ptr],y

;==========================================================================
;how about the CREATE DATE and TIME
;==========================================================================
		iny
		iny
		lda	one_entry+create_index
		sta	[my_pblk_ptr],y
		iny
		iny
		lda	one_entry+create_index+2
		sta	[my_pblk_ptr],y

;==========================================================================
;Send the last MODIFICATION DATE and TIME
;==========================================================================
		iny
		iny
		lda	one_entry+last_mod_index
		sta	[my_pblk_ptr],y
		iny
		iny
		lda	one_entry+last_mod_index+2
		sta	[my_pblk_ptr],y

;==========================================================================
;and lastly, the number of blocks used.
;==========================================================================
		iny
		iny
		lda	one_entry+blks_used_index
		sta	[my_pblk_ptr],y
		iny
		iny
		lda	#$0000
		sta	[my_pblk_ptr],y
		bra	clean_exit

;==========================================================================
;Calculate the modification date for the volume.  We do this since the mod
;date is not stored on the disk.  This should not be bad since the blocks
;are stored in the cache.
;
;Enter:         jsr
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1= error
;               b = k
;
;		one_entry+last_mod_index	;is setup with the date
;
;==========================================================================
;		Export	calc_mod_date
calc_last_mod               
		lda	drvr_dev_num		;pass in the device number
		ldx	#dummy_name		; and a pointer to the name
		ldy	#^dummy_name
		jsr	find_file		;this will fail but we do not care

		lda	curr_mod_date
		tax
		ora	curr_mod_date+2
		beq	@same_time		;there are no files on the disk!
		
		stx	one_entry+last_mod_index
		lda	curr_mod_date+2
		sta	one_entry+last_mod_index+2
		rts
@same_time
		lda	one_entry+create_index
		sta	one_entry+last_mod_index
		lda	one_entry+create_index+2
		sta	one_entry+last_mod_index+2
		rts

		ENDP
		
;==========================================================================
;Judge_name:    Returns information about ProDOS filename syntax.
;		Modifies name (if supplied) to conform to ProDOS syntax.
;
;Note:		This is a class 1 call only.
;
;Created:       Jan 22, 1991
;Author:        Cheryl Ewy
;
;Enter:         jml
;
;Input:         A = undefined
;               X = call number times 2
;               Y = class times 2
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;Uses:          All registers
;		<temp_ptr
;		<temp2_ptr
;		<temp3_ptr
;
;Call Format:
;
;Class 1        PCount                  (2 Bytes)
;               File System ID		(2 Bytes)
;               Name Type     		(2 Bytes)
;               Syntax            	(4 Bytes)
;               Max Len             	(2 Bytes)
;               Name          		(4 Bytes)
;               Name Flags              (2 Bytes)
;
;==========================================================================
		longa	on
		longi	on

		EXPORT	judge_name		
judge_name	PROC

		
name_flags	equ	temp2_ptr		;local equates
buf_size	equ	temp2_ptr+2
temp_val	equ	temp3_ptr
nul_flag	equ	temp3_ptr+2

max_len		equ	15			;maximum name length

; Setup the default parameters for the call.

		jsr	setup_params

; Init flags word to 0.

		stz	<name_flags		

; Make sure the name_type input parameter is valid.

		ldy	#pblk_07_ntype
		lda	[my_pblk_ptr],y		;get name_type input param
		cmp	#4			;is it < 4?
		bcs	bad_param		;no - so report error

; Minimum pcount is 3 so we'll always return a ptr to the syntax string.

		lda	#syntax_str		;get lo word of ptr to string
		ldy	#pblk_07_syntax
		sta	[my_pblk_ptr],y		;store it in output param
		iny
		iny
		lda	#^syntax_str		;get hi word of ptr to string
		sta	[my_pblk_ptr],y		;store it in output param

; Adjust the pcount to reflect the number of remaining parameters to deal with.
		
		dec	pcount			;done with file_sys_id param
		dec	pcount			;done with name_type param
		dec	pcount			;done with syntax param

; Return the maximum name length if requested.

		dec	pcount
		bmi	done
		
		lda	#max_len		;get maximum name length
		ldy	#pblk_07_max_len
		sta	[my_pblk_ptr],y		;store it in the max_len output param

; Get the ptr to the name buffer if supplied.  The name buffer is a class 1 output buffer. 
; If the ptr is 0 then there's no name to judge.

		dec	pcount
		bmi	done
		
		ldy	#pblk_07_name		
		lda	[my_pblk_ptr],y		;get lo word of ptr to name buffer
		sta	<temp_ptr		;and store
		iny
		iny
		lda	[my_pblk_ptr],y		;get hi word of ptr to name buffer
		and	#$00ff			;mask off hi byte
		sta	<temp_ptr+2		;and store
		ora	<temp_ptr		;is the ptr 0?
		beq	do_flags		;yes - so there's no name to judge

; Check the name buffer size to make sure the buffer is large enough to contain
; the maximum size name.  If not, return an error.

		lda	[temp_ptr]		;get buffer size
		cmp	#max_len+4		;is the buffer big enough?
		bcc	buf_err			;no - so return an error
		sta	<buf_size		;yes - so save buffer size

; Adjust <temp_ptr so that it points to the length word of the name string instead of
; to the buffer size word.  

		clc
		lda	<temp_ptr		;adjust ptr to point to the name length	
		adc	#2			
		sta	<temp_ptr		
		lda	<temp_ptr+2		
		adc	#0
		sta	<temp_ptr+2

; Judge the name.

 		jsr	judge_it		
		
; Return the name_flags parameter if requested.

do_flags	dec	pcount
		bmi	done
		
		lda	<name_flags		;get name_flags
		ldy	#pblk_07_nflags
		sta	[my_pblk_ptr],y		;store it in the output param

; Indicate no error and return.

done		clc
 		jmp	main_exit


; Return a parameter range error.

bad_param	lda	#parm_range_err
		sec
		jmp	main_exit
		
		
; Return a buffer too small error.

buf_err		lda	#buff_too_small
		sec
		jmp	main_exit
	
;--------------------------------------------------------------------------

judge_it	

; If the name length = 0 then set the name string to "A", indicate that there
; was a syntax error, then return.
 
		lda	[temp_ptr]		;is the name length = 0?
		bne	@got_name		;no - so we have a name
@nameIsNull	lda	#1
		sta	[temp_ptr]		;set name length to 1
		ldy	#2
		lda	#'A'
		sta	[temp_ptr],y		;set name string to "A"
		lda	#$2000			;set bit 13 of name_flags to indicate
		tsb	<name_flags		;that there was a syntax error
		rts	 			;and return
@got_name

; We have a name to judge.

*** added 14-Apr-91 DAL -- call StringToText in the Misc Tools
		if CallStringToText=1 then
		pha				;space for StringToText result flags
		pha				;space for StringToText result length
		pea	$6000			;flags: force "English", allow expansion
		ldx	temp_ptr+2		;push [temp_ptr]+2 -- input text
		lda	temp_ptr
		clc
		adc	#2
		bcc	@ok
		inx
@ok		phx
		pha
		lda	[temp_ptr]
		pha				;push input string length
		ldx	temp_ptr+2		;push [temp_ptr]-2 -- result buffer
		lda	temp_ptr
		sec
		sbc	#2
		bcs	@ok2
		dex
@ok2		phx
		pha
		ldx	#$3b03
		jsl	$e10000
;		_StringToText
		pla				;printable length (ignore)
		pla				;result flags
		bpl	@noChange
		lda	#$8000			;set bit 15 = illegal characters
		tsb	<name_flags
@noChange
		endif
*** end of 14-Apr-91 DAL

; Set bit 14 of name_flags if the name is too long.
; Note - we have to do this now because the name length may change. 

		lda	[temp_ptr]		;get name length
*** added 29-Apr-91 DAL
		beq	@nameIsNull
*** end of 29-Apr-91 DAL
		cmp	#max_len+1		;is it too long?
		bcc	@len_ok			;no
		lda	#$4000			;yes - so set bit 14 of name_flags 
		tsb	<name_flags		;to indicate name was too long
@len_ok

; Convert all illegal characters to NULs. They'll be converted to periods later.
 
		lda	[temp_ptr]		;get length of pathname
		inc	a			;adjust for extra length byte
		tay
		
		ldx	#0			;init to 0

		longa	off			;set 8 bit A
		sep	#$20

loop1		lda	[temp_ptr],y		;get byte
		
		cmp	#'a'		
		bcc	@check_upper
		cmp	#'z'+1
		bcs	@bad_char
		bra	@ok			;it's a lower-case letter
		
@check_upper	cmp	#'A'		
		bcc	@check_num
		cmp	#'Z'+1
		bcs	@bad_char
		bra	@ok			;it's an upper-case letter
		
@check_num	cmp	#'0'		
		bcc	@check_period
		cmp	#'9'+1
		bcs	@bad_char
		bra	@ok			;it's a number
		
@check_period	cmp	#'.'		
		beq	@ok			;it's a period

	if AllowLCPeriods then	;added 7-Aug-91 DAL
		cmp	#' '			;it's a blank
		beq	@ok
	endif			;end 7-Aug-91 DAL

@bad_char	lda	#$00			;it's an illegal character so
		sta	[temp_ptr],y		;replace char with a NUL
		ldx	#$8000			;indicate illegal character found
@ok		dey				;decrement offset
		cpy	#1
		bne	loop1			;loop until done

		longa	on			;set 16 bit A
		rep	#$20

		txa				;set bit 15 if an illegal
		tsb	<name_flags		;character was found

; If the name doesn't begin with a letter, then indicate that there was a syntax error.
; Note - we have to check this now because if the first character is illegal, it will 
;	 be removed by the next section of code. 

 		ldy	#2
		lda	[temp_ptr],y		;get first 2 chars
		and	#$00ff			;only want first char
		cmp	#'A'			;is it a letter?
		bcs	@syntax_ok		;yes - so we're ok
		lda	#$2000			;set bit 13 to indicate that
		tsb	<name_flags		;there was a syntax error
@syntax_ok

; Replace runs of 2 or more NULs with a single period.
; All leading and trailing NULs will be removed.
; Note - if no illegal characters were found, then skip this section. 

		lda	<name_flags		;were there any illegal characters?
		bpl	skip_it			;no - so skip this section
		
		lda	[temp_ptr]		;get name length
		inc	a			;add 2 to account for the length bytes
		inc	a
		sta	<temp_val		;and save
		
		longa	off
		sep	#$20			;set 8 bit A
		
		ldx	#2			;init offsets
		phx
		stx	<nul_flag		;init flag to indicate we've seen a NUL
		
loop2		ply				;get offset
		cpy	<temp_val		;are we done?
		bcs	loop2_done		;yes
		lda	[temp_ptr],y		;no - so read next character
		iny				;adjust offset 
		phy				;and save
		cmp	#$00			;is the char a NUL?
		bne	@not_nul		;no - so branch
		ldy	<nul_flag		;was the last character a NUL?
		bne	loop2			;yes - so loop
		inc	<nul_flag		;no - so indicate we've seen a NUL
		lda	#'.'			;convert the NUL into a period
		bra	@store_char		;and store the period

@not_nul	stz	<nul_flag		;indicate we've seen a non-NUL	
@store_char	txy
		sta	[temp_ptr],y		;store the character
		tyx
		inx				;adjust offset
		bra	loop2			;and loop
		
loop2_done	lda	<nul_flag		;was the last char read a NUL?
		beq	@ok			;no
		cpx	#2			;yes - was it stored?
		beq	@ok			;no 
		dex				;yes - so don't count it
@ok
		longa	on
		rep	#$20			;set 16 bit A
 
		txa				;determine new name length
		dec	a
		dec	a
		sta	[temp_ptr]		;and store
skip_it

; If the name doesn't begin with a letter, insert an 'A' as the first character.
; If the buffer has no extra space, then lose the last character.
; Note - we need to check for a zero-length name in case all chars were illegal.
		
		lda	[temp_ptr]		;get name length
		bne	@not_zero		;branch if it's > 0
		inc	a			;name length is 0 so
		sta	[temp_ptr]		;set length to 1
		bra	stuff_a			;and insert the 'A'
@not_zero		
 		ldy	#2
		lda	[temp_ptr],y		;get first 2 chars
		and	#$00ff			;only want first char
		cmp	#'A'			;is it a letter?
		bcs	char1_ok		;yes - so we're ok
		
		lda	[temp_ptr]		;get name length
		tay				;and save
		clc
		adc	#4
		cmp	<buf_size		;does the buffer have any unused space?
		bcs	@lose_last		;no - so lose last char
		iny	 			;yes - so save last char
		tya
		sta	[temp_ptr]		;add 1 to name length
@lose_last
loop3		lda	[temp_ptr],y		;move all chars over by 1
		xba
		sta	[temp_ptr],y
		dey
		cpy	#1
		bne	loop3
		
		longa	off
stuff_a		sep	#$20			;set 8 bit A
		
		ldy	#2
		lda	#'A'
		sta	[temp_ptr],y		;stuff an 'A' in as first char
		
		longa	on
		rep	#$20			;set 16 bit A
char1_ok

; If the name is too long then keep the first 7 chars, insert '..', keep the last 6 chars.
 
		lda	[temp_ptr]		;get name length
		cmp	#max_len+1		;is it too long?
		bcc	length_ok		;no
 
		ldy	#9			;get offset to 8th char
		lda	#'..'			
		sta	[temp_ptr],y		;insert the '..'
		
		lda	[temp_ptr]		;get length of name
		sec
		sbc	#4			;subtract 4 to get offset
		pha				;to last part of name to keep
		
		longa	off			;set 8 bit A
		sep	#$20

		ldx	#11			;set offset after the '..' (10th char)			
loop4		ply
		lda	[temp_ptr],y		;move the last 6 characters
		iny				;so they are after the '..'
		phy
		txy
		sta	[temp_ptr],y
		inx
		cpx	#17			;are we done?
		bne	loop4			;no - so loop
		ply				;clean up stack
		
		longa	on			;set 16 bit A
		rep	#$20
		
		lda	#max_len		;adjust the name length
		sta	[temp_ptr]
length_ok

; Done with name.

		rts

		ENDP
		
;==========================================================================
;Volume:        This routine will return the volume information on a disk
;
;Note:		This routine will now store the volume name in the user's
;		buffer if a "duplicate volume" error is being returned.
;		1/22/91 CAE
;
;Created:       may 24, 1987
;Modified:      may 24, 1987
;Author:        Rob Turner
;
;Enter:         jml
;
;Input:         A = undefined
;               X = call number times 2
;               Y = class times 2
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;Uses:          All registers
;               fill_io_buf
;
;Call Format:
;
;Class 0        Device Name Pointer     (4 Bytes)
;               Volume Name Pointer     (4 Bytes)
;               Total Blocks            (4 Bytes)
;               Free Blocks             (4 Bytes)
;               File System ID          (2 Bytes)
;
;Class 1        PCount                  (2 Bytes)
;               Device Name Pointer     (4 Bytes)
;               Volume Name Pointer     (4 Bytes)
;               Total Blocks            (4 Bytes)
;               Free Blocks             (4 Bytes)
;               File System ID          (2 Bytes)
;               Block Size              (2 Bytes)
;
;==========================================================================
		longa	on
		longi	on

		EXPORT	volume		
volume		PROC

;==========================================================================
;Call setup routine.  This routine will verify input parameters like
;                     call class, max pcount and span.  It will also setup
;                     any pointers that are used.
;
;The routine loads the class of the call as the last instruction before RTS
;==========================================================================

		jsr	setup_params

;==========================================================================
;Now lets go and and ID that puppy.  The device number to ID is on ZP
;==========================================================================

		lda	#in_cache	;force block two into the cache
		sta	drvr_cache

		stz	dup_vol_flag	;init flag word to 0
		lda	dev_num
		jsr	id_disk		;go see if it belongs to me
		jsr	set_user_cache	;set cache back to default
		bcc	its_my_puppy
		cmp	#dup_volume	;got an error - is it 'duplicate volume'?
		sec			;make sure carry is still set
		bne	vol_exit	;no - so exit with error
		sta	dup_vol_flag	;yes - so store error code in flag word
		bra	its_my_puppy	;and continue

vol_exit	jmp	main_exit

dup_vol_flag	DS.B	2		;non-zero if we've got a duplicate volume


;==========================================================================
;move the name into the user's buffer.
;==========================================================================

its_my_puppy				 
		ldy	#pblk_08_vol

		lda	[my_pblk_ptr],y
		sta	temp_ptr
		tax
		iny
		iny
		lda	[my_pblk_ptr],y
		sta	temp_ptr+2

		stz	case_bits		;all upper case please

		lda	fst_attr		;if the high bit is set skip Upper/Lower stuff
		bmi	@no_case_change

		ldy	#create_index-2		;save the case bits please
		lda	[drvr_buf_ptr],y
		bpl	@no_case_change
		asl	a			;remove the case ON/OFF bit
		sta	case_bits
@no_case_change

		lda	pcount
		bne	class1
		
;==========================================================================
;before we send the name we have to add in the damn leading slash.
;==========================================================================

		lda	[drvr_buf_ptr]
		and	#$000F
		sta	math_temp	;save the length of the name
		inc	a
		sta	[temp_ptr]	;length of the name
		inc	temp_ptr
		bne	class0_name
		inc	temp_ptr+2
		
class0_name
		ldy	#$0001		;start at the beginning
		longa	off
		sep	#$20		;8 bit moves please
		lda	#'/'		
		sta	[temp_ptr]	;store the leading slash
class0_loop				; 
		lda	[drvr_buf_ptr],y
		rep	#$20
		rol	case_bits	;see if this char is lower case
		sep	#$20
		bcc	@its_upper

	if AllowLCPeriods then	;added 7-Aug-91 DAL
		cmp	#'.'
		bne	@not_lc_period
		lda	#0		;let it ORA our 0 into a $20 (blank!)
@not_lc_period
	endif			;end 7-Aug-91 DAL

		ora	#$20		;set the lower case bit please
@its_upper
		sta	[temp_ptr],y
		cpy	math_temp
		beq	@were_done
		iny
		bra	class0_loop
@were_done
		longa	on
		rep	#$20
		
;If dup_vol_flag is non-zero then we don't want to send the rest of the output
;parameters so just exit with the "duplicate volume" error.

		lda	dup_vol_flag	;check the flag
		beq	@no_error	;it's 0 so continue
		sec			;we've got a duplicate volume so set carry
		brl	vol_exit	;and exit with the error
@no_error

;==========================================================================
;Since this is a class zero call lets set the pcount to three so all the
;parameters will be returned to the caller.
;==========================================================================

		lda	#$0003		;setup pcount
		sta	pcount
		bra	do_bitmap

class1

;==========================================================================
;If we get here we need to verify that the buffer is large enought to hold
;the volume name.
;
;diagram
;                ______________
;               | Buffer size  | W
;               |--------------|
;               | Name Length  | W
;               |--------------|
;               | Leading '/'  | B
;               |--------------|
;               |     THE      |
;               |   REST OF    | 'n'
;               |  THE  NAME   |
;               |______________|
;
;==========================================================================

		lda	[drvr_buf_ptr]
		and	#$000F
		tax
		inc	a
		sta	math_temp	;save the size of the name + slash.

		sec
		lda	[temp_ptr]
		sbc	#$0004		;minus overhead
		bmi	too_small	;get out of here!
		cmp	math_temp
		beq	size_ok
		bcs	size_ok

		ldy	#$0002
		lda	math_temp
		sta	[temp_ptr],y	;store the length of the name

too_small				; 
		sec
		lda	#buff_too_small	;return the error
back_to_exit	brl	vol_exit

size_ok					; 

;==========================================================================
;now move the name to the user's buffer.
;==========================================================================

		ldy	#$0002		;index to the length result
		lda	math_temp
		sta	[temp_ptr],y
		iny
		iny
		lda	#delimiter+(delimiter*$100)
		sta	[temp_ptr],y

;==========================================================================
;adjust the pointer to point to the beginning of the name buffer.
;==========================================================================
		phx
		tya
		clc
		adc	temp_ptr
		sta	temp_ptr
		lda	#$0000
		adc	temp_ptr+2
		sta	temp_ptr+2

		ply
		sty	math_temp
		ldy	#$0001
		longa	off
		sep	#$20
class1_loop
		
		lda	[drvr_buf_ptr],y
		rep	#$20
		rol	case_bits	;see if this char is lower case
		sep	#$20
		bcc	@its_upper

	if AllowLCPeriods then	;added 7-Aug-91 DAL
		cmp	#'.'
		bne	@not_lc_period
		lda	#0		;let it ORA our 0 into a $20 (blank)
@not_lc_period
	endif			;end 7-Aug-91 DAL

		ora	#$20		;set the lower case bit please
@its_upper
		sta	[temp_ptr],y
		cpy	math_temp	;are we done?
		beq	@were_done
		iny
		bra	class1_loop
@were_done
		longa	on
		rep	#$20

;If dup_vol_flag is non-zero then we don't want to send the rest of the output
;parameters so just exit with the "duplicate volume" error.

		lda	dup_vol_flag	;check the flag
		beq	@no_error	;it's 0 so continue
		sec			;we've got a duplicate volume so set carry
		brl	vol_exit	;and exit with the error
@no_error

;==========================================================================
;adjust the pcount to reflect the number of parameters that the user still
;wants.
;==========================================================================

		dec	pcount
		dec	pcount

do_bitmap				; 

;==========================================================================
;now lets see if the caller wants the total blocks on the volume
;==========================================================================

		dec	pcount
		bpl	send_tot_blks
end_volume	clc
backup2		brl	vol_exit

send_tot_blks				; 
		ldy	#vol_total_blks
		lda	[prodos_vcr_ptr],y
		ldy	#pblk_08_tot
		sta	[my_pblk_Ptr],y
		iny
		iny
		lda	#$0000
		sta	[my_pblk_ptr],y

;==========================================================================
;see if the caller wants the number of free blocks.  We call calc_free_blks
;to calculate the number of free blocks.  The routine returns the TOTAL
;number of blocks available in the 'A' register.
;==========================================================================
		dec	pcount
		bmi	end_volume

		jsr	calc_free_blks
		bcs	backup2		;some major error occured

		ldy	#pblk_08_free
		sta	[my_pblk_ptr],y
		iny
		iny
		lda	#$0000
		sta	[my_pblk_ptr],y

;==========================================================================
;do they want the file system ID?
;==========================================================================

		dec	pcount
		bmi	end_volume	;no they do not!

		lda	#pro_id
		ldy	#pblk_08_id
		sta	[my_pblk_ptr],y

;==========================================================================
;do they want to know my block size?
;==========================================================================

		dec	pcount
		bmi	end_volume	;no they do not!

		lda	#blk_size
		ldy	#pblk_08_size
		sta	[my_pblk_ptr],y
		bra	end_volume

		ENDP
;==========================================================================
;Clear_backup:  This routine will clear the backup bit for a file.
;
;Created:       may 27, 1987
;Modified:      may 27, 1987
;Author:        Rob Turner
;
;Enter:         jml
;
;Input:         A = undefined
;               X = call number times 2
;               Y = class times 2
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;Uses:          All registers
;               find_file
;
;Call Format:
;
;Class 0        Pathname pointer        (4 Bytes)
;
;Class 1        PCount                  (2 Bytes)
;               Pathname pointer        (4 Bytes)
;
;==========================================================================
		longa	on
		longi	on

		EXPORT	clear_backup	
clear_backup	PROC

;==========================================================================
;Setup the general parameters.
;==========================================================================

		jsr	setup_params

;==========================================================================
;Process the file name and locate it.  On exit 'drvr_buf_ptr' points to the
;file entry that we are suppose to act on.
;==========================================================================

		jsr	process_path
		bcc	good
clear_exit 
		jmp	main_exit

good
		jsr	chk_disk_protect

		ldy	#access_index
		longa	off
		sep	#$20

;==========================================================================
;Clear the backup bit for the file/directory
;==========================================================================

		lda	[drvr_buf_ptr],y
		and	#backup_off		;clear the backup bit
		sta	[drvr_buf_ptr],y

; If we're dealing with a volume directory then we need to clear the backup bit
; in the VCR also so that the disk and VCR match.	4/5/91 CAE

		lda	[drvr_buf_ptr]		;get storage type
		and	#$F0			;only want hi nibble
		cmp	#volume_header		;is this a volume directory?
		bne	@not_vol		;no - so branch
		ldy	#vol_access		 
		lda	[prodos_vcr_ptr],y
		and	#backup_off		;clear the backup bit in the vcr
		sta	[prodos_vcr_ptr],y
@not_vol
		longa	on
		rep	#$20

;==========================================================================
;Reset the I/O buffer pointer to the beginning of the buffer.
;The request count and all that stuff is still correct from the find file
;==========================================================================

		lda	gbuf_addr
		sta	drvr_buf_ptr
		lda	gbuf_addr+2
		sta	drvr_buf_ptr+2
		jsr	write_with_cache
		bra	clear_exit

		ENDP
;======================================================================
;Open:          This file contains code that is used to open a file on
;               disk. 
;
;Created:       Apr 13, 1987
;Modified:      Apr 16, 1988
;Author:        Rob Turner
;
;Enter:         From GS/OS jmp table
;
;Input:         A = undefined
;               X = (call number * 2)
;               Y = (class number * 2)
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = error code if carry set (exit via system exit routine)
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;Uses:          All registers
;               Device Dispatcher       (subroutine)
;               General I/O Buffer      (1K buffer, I read 512 bytes)
;               find_file               (subroutine)
;
;Call Format:
;
;Class 0        Reference Number        (2 Bytes)
;               Pathname Pointer        (4 Bytes)
;               Reserved                (4 Bytes)
;
;Class 1        PCount                  (2 Bytes)
;               Reference Number        (2 Bytes)
;               Pathname Pointer        (4 Bytes)
;               Request Access          (2 Bytes: New Format)
;               Resource Number         (2 Bytes)
;               (Returned Info)
;               Access                  (2 Bytes)
;               File Type               (2 Bytes)
;               Aux Type                (4 Bytes)
;               Storage Type            (2 Bytes)
;               Create Date/Time        (8 Bytes: Misc. Tools Format)
;               Mod Date/Time           (8 Bytes: Misc. Tools Format)
;               Option List Pointer     (4 Bytes)
;               EOF Data Fork           (4 Bytes)
;               Blocks Used Data Fork   (4 Bytes)
;               EOF Resource Fork       (4 Bytes)
;               Blocks Used Res. Fork   (4 Bytes)
;
;======================================================================
		longa	on
		longi	on

		EXPORT	open		
open		PROC

;==========================================================================
;Setup the defaults for the open call.
;The defaults are set to OPEN resource number $0000(main data) and open file
;as permitted. 
;========================================================================== 

		stz	resource_num	;set resource to main data fork
		stz	access		;set users access to 'as permitted'
		stz	users_access	;set the users access please.

		jsr	setup_params
		beq	class0

		jsr	get_access	;get the user's access byte if avail
		bcs	class0		;branch if no access provided 
		jsr	get_res_num	;get the user's resource num if avail
		
class0					; 
;==========================================================================
;Now go and find the file we need.  If the disk is not ProDOS then we
;never return from the call.  It will automatically exit thru 'SYS_EXIT'
;==========================================================================

		jsr	process_path

;==========================================================================
;We get here when we have found the file and are ready to open it.
;This section of code expects 'drvr_buf_ptr' to point to the file name to open
;==========================================================================

open_the_file				; 
		jsr	move_dir_entry	;put the disk entry in a common place

		jsr	verify_storage	;make sure I can deal with the file
		bcs	open_exit	;sorry bud
		jsr	check_dup	;see if this is a duplicate open
		bcs	open_exit	;yes this is a duplicate open
		jsr	build_the_fcr	;build the file control record
		bcs	open_exit

;==========================================================================
;Now that we have setup the entrire FCR we need to send back any info
;that the user requested.
;==========================================================================

		ldy	#$0000		;default = Class zero type call
		lda	call_number	;determine class
		and	#class_mask
		beq	class0_call
		ldy	#$0002		;index to ref field for new class calls

;==========================================================================
;Return the file reference number to the caller.
;==========================================================================

class0_call				; 
		lda	[my_fcr_ptr]
		sta	[param_blk_ptr],y

		jsr	send_open_parms
		bcc	open_exit
		pha
		jsr	remove_fcr	;remove this puppy
		pla
		sec		
open_exit
		jmp	main_exit

		
;==========================================================================
;==========================================================================
;====== MAIN END OF OPEN CALL  ============================================
;==========================================================================
;==========================================================================

;==========================================================================
;no see how many paremters the user would like with the open call.
;
;Enter:         jsr
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
; 
;==========================================================================

send_open_parms				; 
		lda	pcount
		cmp	#pcount5	;see if there is more then 4 params
		bcc	end_send	;no additional parameters needed
		sbc	#pcount5-1
		pha

;==========================================================================
;If we fall thru to here then we know the user wants to receive additional
;information with the open.  So we start sending the number of field
;the user wants.  The routine that sends the info expects the following:
;
;               A = number of fields to send
;               X = low word address of where to start storing the info
;               Y = high word address ...
;               one_entry  = the entry from the disk
;               drvr_buf_ptr = ptr to resource header block
;==========================================================================

		clc			;make a pointer to data start
		lda	my_pblk_ptr
		adc	#$000A
		tax
		lda	my_pblk_ptr+2
		adc	#$0000
		tay

		lda	gbuf_addr	;set up pointer to resource header
		sta	drvr_buf_ptr
		lda	gbuf_addr+2
		sta	drvr_buf_ptr+2

		lda	one_entry
		and	#$FF0F		;clear garbage
		ora	entry_sto_type	;add in entry type from dir entry
		sta	one_entry

		pla			;recall number of params wanted
		jsr	send_info
end_send
		rts

;=============================================================================
;Now we check the storage type.  The only storage types that I know about are:
;
;(1) seedling   ($0010)
;(2) sapling    ($0020)
;(3) tree       ($0030)
;(4) pascal area        (Access not allowed to pascal area)
;(5) resource   ($0050)
;(6) purge_dir          (access not allowed to purged directory)
;(7) subdir     ($00D0)
;(8) subdir H           (access not allowed to header entry)
;(9) vol header ($00F0)
;
;Enter:         jsr
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
; 
;=============================================================================

verify_storage				; 
		lda	storage_type
		sta	entry_sto_type

		cmp	#resource_type
		beq	setup_access

		ldx	resource_num	;make sure the resource number is zero
		bne	bad_resource

		cmp	#tree_type
		beq	setup_access
		cmp	#sapling_type
		beq	setup_access
		cmp	#seedling_type
		beq	setup_access
		cmp	#subdir_type
		beq	dir_access
		cmp	#volume_header
		bne	bad_storage

;=============================================================================
;If the file is a directory then we must set the access to read only
;=============================================================================
dir_access				; 
		lda	access		;make sure user wants read only
		beq	force_read_only	;He wants as permitted, so force read
		cmp	#write_access
		bcs	bad_access

force_read_only				; 
		lda	#read_access
		sta	access
		clc
		rts	

;==========================================================================
;Now we need to check the access.  If the access is 'as_permitted' then we
;must convert the disk access to one of our types (read only, read write, etc) 
;==========================================================================
		
setup_access				; 
		lda	access
		bne	verify_access

;==========================================================================
;Load the disk based access byte 
;==========================================================================

		lda	one_entry+access_index
		and	#read_access+write_access
		beq	bad_access	;read/write disabled?

		ldx	#write_access
		lsr	a
		bcc	set_access	;force write only access                 
		ldx	#read_access
		lsr	a
		bcc	set_access	;force read only access
		ldx	#read_access+write_access
set_access				; 
		stx	access		;access now set from disk 
exit_access				; 
		clc
		rts

;==========================================================================
;make sure the user's access agrees with the disk based access.
;==========================================================================
verify_access				; 
		ldx	one_entry+access_index
		lsr	a
		bcc	no_read		;user does not want read access
		tay			;temp save
		jsr	chk_read
		beq	bad_access	;sorry bud
		tya

no_read					; 
		lsr	a		;does the user want write access?
		bcc	exit_access	;no
		jsr	chk_write
		beq	bad_access	;write access not allowed
		clc
		rts

chk_read				; 
		txa			;access byte from the disk
		and	#$0001		;isolate read bit
		rts
chk_write				; 
		txa			;access byte from disk
		and	#$0002
		rts


bad_resource				; 
		lda	#res_not_found
		sec
		rts
		
bad_access				; 
		lda	#invalid_access
		sec
		rts
		
bad_storage	lda	#bad_store_type
		sec	
		rts

;==========================================================================
;see if the user provided resource number.
;
;Enter:         jsr
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
; 
;==========================================================================
get_res_num				; 
		lda	pcount
		cmp	#$0004
		bcc	end_res		;no resource number provided

		ldy	#$0008
		lda	[my_pblk_ptr],y
		beq	end_res		;default resource number so exit
		sta	resource_num	;save the resource. must be zero
		dec	a
		bne	not_in_range	;not even close.

end_res					; 
		rts
		
;==========================================================================
;get_access     This routine will load the user's access byte if available
;
;
;Enter:         jsr
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = no more parameters
;                          0 = more paramters may follow
;               b = k
;
;==========================================================================

get_access
		lda	pcount
		cmp	#$0003
		bcc	no_params	;there is no parameters
		
		ldy	#$0006
		lda	[my_pblk_ptr],y
		sta	users_access	;save the user's access please.
		beq	end_access	;same as default access so exit

;==========================================================================
;access:
;               00 = open as permitted  ;default value for open call
;               01 = open for reading only
;               02 = open for writing only
;               03 = open for reading and writing
;========================================================================== 

		sta	access		;save user's choice
		cmp	#read_write_acc+1
		bcc	end_access

not_in_range				; 
		lda	#parm_range_err	;I don't know what to do with this
		jmp	error_exit	;sorry bud

no_params				; 
		sec
		rts
		
end_access				; 
		clc
		rts
		

;==========================================================================
;Calculate the size of the root directory.  This is a pain but we cannot
;assume that the root directory will be four blocks long. So we might as
;well put the directory blocks in the cache while we are at it
;
;Enter:         jsr
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = no more parameters
;                          0 = more paramters may follow
;               b = k
;==========================================================================

		EXPORT	vol_file_size
vol_file_size               
		stz	one_entry+eof_index+1


		lda	gbuf_addr
		sta	drvr_buf_ptr
		lda	gbuf_addr+2
		sta	drvr_buf_ptr+2

		stz	math_temp	;used to count the number of blocks

		stz	drvr_blk_num+2
		lda	#vol_dir_start

block_loop 
		sta	drvr_blk_num
		jsr	read_with_cache
		bcc	cont_blk
		pha			;save the error code
		jsr	remove_fcr
		pla
		sec
		jmp	main_exit

cont_blk 
		inc	math_temp
		ldy	#$0002
		lda	[drvr_buf_ptr],y
		bne	block_loop

end_blk_cnt				; 
		lda	math_temp
		sta	one_entry+blks_used_index
		xba
		asl	a		;times two for EOF
		sta	one_entry+eof_index
		jsr	set_user_cache
		rts
		ENDP

;==========================================================================
;This routine will build the FCR.
;
;Enter:         jsr
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
; 
;==========================================================================

		EXPORT	build_the_fcr	
build_the_fcr	PROC

;==========================================================================
;allocation size:
;
;directories            2 blocks
;read/write files       3 blocks
;read seedling          1 block
;read sapling           2 block
;read tree              3 blocks
;
;==========================================================================

		ldy	#data_active+index_active
		lda	#fcr_index_size	;two block I/O buffer for directories
		ldx	storage_type
		cpx	#subdir_type
		bcs	alloc_the_fcr

		lda	access		;see if the file is open for read only
		cmp	#read_access
		bne	norm_io_buf	;allocate a large I/O buffer

		ldy	#data_active
		lda	#fcr_data_size
		cpx	#seedling_type	;one block buffer for seedling files
		beq	alloc_the_fcr

		ldy	#data_active+index_active
		lda	#fcr_index_size
		cpx	#sapling_type	;two blocks for a sapling file
		beq	alloc_the_fcr

norm_io_buf				; 
		ldy	#data_active+index_active+master_active
		lda	#fcr_master_size ;allocate three blocks for I/O buffer

;==========================================================================
;when we get here A = number of bytes wanted
;==========================================================================

alloc_the_fcr				; 
		phy
		pha

;		jsr	entry_to_gstr	;convert to a gstring for mike
;

		ldy	#vcr_name	;pass in the name of the Volume please
		lda	[my_vcr_ptr],y	;get the VP please
		tax
		iny
		iny
		lda	[my_vcr_ptr],y
		tay			;High word of the VP
		jsl	deref		;convert the VP to a real pointer
					;return X&Y pointer to the name
		
		pei	temp_ptr	;save the pointer I am going to use
		pei	temp_ptr+2
		
		stx	temp_ptr	;save the address of the string
		sty	temp_ptr+2
		
		lda	[temp_ptr]	;get the length word please
		tay			;save the count
		inc	a		;add one for the :
		sta	gstring		;save the count
		lda	#'::'
		sta	gstring+2	;save the seperator

		inc	temp_ptr
		bne	@01
		inc	temp_ptr+2
@01
		lda	[temp_ptr],y	;get a char please
		sta	gstring+2,y
		dey
		bne	@01
		
		pla
		sta	temp_ptr+2	;restore the pointer I used
		pla
		sta	temp_ptr
		
		ldx	#gstring	;pointer to the file name or Volume Name to Open
		ldy	#^gstring	;high word
		pla			;restore I/O buffer size
		sec			;better clear the buffer
		jsl	alloc_fcr	;build a new fcr for file
		bcc	success
		ply
		rts			;return with the error

success					; 
		jsl	deref		;convert VP to RP
		stx	my_fcr_ptr
		sty	my_fcr_ptr+2

		jsr	setup_my_fcr	;build a pointer to local data
		stx	pro_fcr_ptr
		sty	pro_fcr_ptr+2	;save pointer to my structure

		ldy	#vcr_open_cnt	;advance the open count please by one
		lda	[my_vcr_ptr],y
		inc	a
		sta	[my_vcr_ptr],y

		ldy	#fcr_status
		lda	#$0000		;zero the status word
		sta	[pro_fcr_ptr],y

		pla			;restore the I/O buffer active bits
		jsr	set_fcr_status

		lda	access		;save the user's access
		ldy	#fcr_access
		ora	#set_global_clean
		ldx	resource_num	;does the file contain a resource fork?
		beq	@store_access
		ora	#set_access_res	;set the access resource bit please
@store_access	
		sta	[my_fcr_ptr],y

		ldy	#fcr_vol_id
		lda	[my_vcr_ptr]	;get the volume ID from the VCR
		sta	[my_fcr_ptr],y	;and save it in the new FCR

		ldy	#fcr_fst_id
		lda	#pro_id		;save the ownership id word
		sta	[my_fcr_ptr],y

;==========================================================================
;Now start saving data into my local data segment
;==========================================================================
		
		lda	resource_num	;save the resource number of the file
		sta	[pro_fcr_ptr]

		ldy	#fcr_entry_type
		lda	entry_sto_type	;save the storage type from dir entry
		sta	[pro_fcr_ptr],y

		ldy	#fcr_storage
		lda	storage_type	;save the storage type
		sta	[pro_fcr_ptr],y

		cmp	#volume_header	;if file is a volume then calc EOF
		bne	no_adjust2

		jsr	vol_file_size	;calculate the EOF for the root vol

no_adjust2				; 

		ldy	#fcr_curr_eof	;save the current EOF
		lda	one_entry+eof_index
		sta	[pro_fcr_ptr],y
		iny
		lda	one_entry+eof_index+1
		sta	[pro_fcr_ptr],y

		ldy	#fcr_blks_used	;save the number of blocks used
		lda	one_entry+blks_used_index
		sta	[pro_fcr_ptr],y

		ldy	#fcr_parent
		lda	parent_blk	;save address of parent block number
		sta	[pro_fcr_ptr],y

		ldy	#fcr_entry_offs
		lda	entry_offset	;save offset to entry within parent blk
		sta	[pro_fcr_ptr],y

		ldy	#fcr_file_type	;move the directory entry into the FCR

entry_loop	lda	one_entry-fcr_file_type+$10,y
		sta	[pro_fcr_ptr],y
		iny
		cpy	#fcr_header_ptr+1
		bne	entry_loop

		jsr	setup_io_ptrs	;build pointers to data structures
		jsr	setup_io_buf
		bcc	no_prob
		pha
		jsr	remove_fcr	;remove this puppy
		pla
		sec
no_prob					; 
		rts
		ENDP
;======================================================================
;check_dup:     This routine will check for duplicate file entries.
;               To do this I look to see if the starting block of
;               the FCR is equal to the starting block of the file I am
;               trying to open. 
;
;Created:       may 04, 1987
;Modified:      may 06, 1987
;Author:        Rob Turner
;
;
;Enter:         from open call
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               one_entry               (39 byte entry from disk) 
;               access                  (requested access for open)
; 
;Output:        A = error code if carry set. (duplicate error)
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;Uses:          All registers
;               General I/O Buffer      (1K buffer, I read 512 bytes)
;               find_fcr                (system routine to find a fcr
;               my_fcr_ptr
;               pro_fcr_ptr
;               access
;               resource_num
; 
;======================================================================
		longa	on
		longi	on

		EXPORT	check_dup	
check_dup	PROC
		
		stz	fcr_wanted	;reset for get_next_fcr

		lda	one_entry+key_blk_index
		sta	key_block

next_loop				; 
		jsr	get_next_fcr
		bcs	done

		ldy	#fcr_vol_id
		lda	[my_fcr_ptr],y	;get the Volume ID so we can make sure the file is on
		cmp	[my_vcr_ptr]	;the same volume.
		bne	next_loop	;File is on another volume

		ldy	#fcr_file_id	;index to key block of this file
		lda	[pro_fcr_ptr],y	
		cmp	key_block	;is this the same block?
		bne	next_loop	;no problem with this file

;==========================================================================
;Now we need to see if the resource numbers are different.
;==========================================================================
		
		lda	[pro_fcr_ptr]
		cmp	resource_num
		bne	next_loop	;not the same resource

		ldy	#fcr_vol_id	;see if the file is on another volume
		lda	[my_fcr_ptr],y
		cmp	[my_vcr_ptr]
		bne	next_loop

		ldy	#fcr_access	;see if this file was open for writing
		lda	[my_fcr_ptr],y
		and	#ClrAllButAccess
		cmp	#write_access
		bcs	file_is_busy	;sorry this file is busy right now

;==========================================================================
;If we get here we know that the current file is the same and that it is
;open for read only.  Therefore we must check the requested access of the
;file that we are currently opening.  If the user wants read only access
;then there is no problem.
;==========================================================================
		
		lda	users_access	;did the user want "open_as_permitted"
		beq	open_as_perm	;user request open as permitted. 
		cmp	#write_access
		bcs	file_is_busy
		rts			;return carry clear indicating no dup 

file_is_busy 
		lda	#file_busy
		sec
		rts			;error out to caller 

open_as_perm 
;		ldy	#fcr_disk_acc
;		lda	[pro_fcr_ptr],y	;check disk assigned access.
;		and	#write_enabled	;is the file write enabled?
;		bne	file_is_busy	;yes it is, so die

		lda	#read_access
		sta	access		;change the user's access to Read Only.
		
done		clc			;indicate no problem
		rts
		ENDP
		
;======================================================================
;get_next_fcr:  This routine will load find the next FCR that belongs
;               to ProDOS.
;
;Created:       may 23, 1987
;Modified:      may 23, 1987
;Author:        Rob Turner
;
;
;Enter:         from open call
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               fcr_wanted              (counter for FCR, reset by caller!)
; 
;Output:        A = undefiend
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error    (end of FCRs)
;                          0 = no error
;               b = k
;
;               pro_fcr_ptr
;               my_fcr_ptr              (points to the found FCR)
;
;Uses:          All registers
;               system_routines
;
;======================================================================
		longa	on
		longi	on

		EXPORT	get_next_fcr	
get_next_fcr	PROC

loop 
		lda	fcr_wanted
		inc	a
		sta	fcr_wanted
		jsl	get_fcr		;see if this is a fcr
		bcs	done

		jsl	deref		;convert VP to RP
		stx	my_fcr_Ptr
		sty	my_fcr_ptr+2

		ldy	#fcr_fst_id	;see if this one is mine
		lda	[my_fcr_ptr],y
		cmp	#pro_id
		bne	loop		;not mine so who cares

		jsr	setup_my_fcr
		stx	pro_fcr_ptr
		sty	pro_fcr_ptr+2

		clc
done
		rts


		ENDP

;======================================================================
;move_dir_entry This routine will move the 39 byte entry pointed to by
;               drvr_buf_ptr to one_entry.  If the entry pointed to
;               is a volume header then I will simulate a normal 39
;               byte entry. 
;
;Created:       may 05, 1987
;Modified:      may 05, 1987
;Author:        Rob Turner
;
;
;Enter:         from open call
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               drvr_buf_ptr            (points to the 39 byte entry from disk) 
;               storage_type            (original storage type of entry)
; 
;Output:        A = undefiend
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;               one_entry               (contains a 39 byte entry)
; 
;Uses:          All registers
;               General I/O Buffer      (1K buffer, I read 512 bytes)
;               drvr_buf_ptr
;
;======================================================================
		longa	on
		longi	on

		EXPORT	move_dir_entry	
move_dir_entry	PROC

		lda	[drvr_buf_ptr]	;get the storage type
		and	#$00F0
		sta	storage_type	
		cmp	#volume_header
		beq	simulate_entry	;simulate a reg. file entry

		EXPORT	move_vol_entry
move_vol_entry				;               

start_move	ldy	#entry_length-1	;just move a normal file entry
move_loop	lda	[drvr_buf_ptr],y
		sta	one_entry,y
		dey
		dey	
		bpl	move_loop
		lda	alloc_entry
		and	#$0F00		;clear all but the storage type
		xba
		sta	alloc_entry	;convert length byte to word
		rts

simulate_entry				; 
		jsr	start_move	;move the basic entry

;==========================================================================
;below we setup the volume directory as a subdirectory.  To do this
;we setup the following fields:
;==========================================================================
; File_type     := $0F                  (directory File)
; Key_pointer   := vol_dir_start        (starting block for directory = 2)
; Blocks_used   := (Calculated from disk)
; EOF           := (Calculated from disk)
; AUX Type      := $0000                (zero the aux field)
; Last_mod      := $00000000            (don't have this info)
; Header Ptr    := $0002                (Starting block of owning directory)
;==========================================================================

;==========================================================================
;Now setup the file type as a subdirectory entry
;==========================================================================
		
		lda	#dir_file_type
		sta	one_entry+file_type_index

;==========================================================================
;Now setup Key block pointer and header_ptr
;==========================================================================

		lda	#vol_dir_start
		sta	one_entry+key_blk_index
		sta	one_entry+header_ptr_index

;==========================================================================
;Zero the aux type and mod_date
;==========================================================================

		stz	one_entry+aux_type_index 
		stz	one_entry+last_mod_index
		stz	one_entry+2+last_mod_index
		rts
		ENDP

;========================================================================== 
;setup_io_buf   This routine will fill the I/O buffer with the correct
;               data
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               one_entry               (39 byte entry from disk) 
;               FCR                     (setup)
;
;Output:        A = error code if carry set.
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;Uses:          All registers
;
;==========================================================================

		EXPORT	setup_io_buf	
setup_io_buf	PROC

		ldy	#fcr_key_blk	;key block of the resource
		lda	[pro_fcr_ptr],y
		sta	drvr_blk_num
		ldy	#fcr_file_id
		sta	[pro_fcr_ptr],y	;save file id for duplicate checks

		ldy	#fcr_entry_type
		lda	[pro_fcr_ptr],y	;see if this is a resource file
		cmp	#resource_type
		bne	not_resource	;must be a standard file

		jsr	find_resource
		bcc	standard_file

nuke_it					; 
		rts

not_resource				; 
		cmp	#subdir_type
		bcc	standard_file

		lda	#in_cache
		sta	drvr_cache

		ldy	#fcr_key_blk	;key block of the file
		lda	[pro_fcr_ptr],y
		sta	drvr_blk_num

		ldx	data_ptr
		ldy	data_ptr+2
		jsr	load_io_blk	;store one block into the I/O buffer
		bcs	nuke_it

		ldy	#data_blk_num
		lda	drvr_blk_num
		sta	[pro_fcr_ptr],y
		clc
		rts

standard_file				; 
		ldy	#fcr_key_blk
		lda	[pro_fcr_ptr],y
		sta	drvr_blk_num

		lda	storage_type
		cmp	#tree_type
		bne	chk_sapling

		ldx	master_ptr
		ldy	master_ptr+2
		jsr	load_io_blk
		bcc	master_loaded
		rts

master_loaded				; 
		ldy	#master_blk_num
		lda	drvr_blk_num	;save the block num of the master block
		sta	[pro_fcr_ptr],y
		jsr	get_first_index	;load the address of the first index blk
		sta	drvr_blk_num
		bra	load_index

chk_sapling				; 
		cmp	#sapling_type
		bne	do_seedling

load_index				; 
		ldx	index_ptr
		ldy	index_ptr+2
		jsr	load_io_blk	;load in the index block
		bcc	cont_index
		rts

cont_index				; 
		ldy	#index_blk_num
		lda	drvr_blk_num	;save the block num of the index block
		sta	[pro_fcr_ptr],y
		jsr	get_first_index	;load the address of the first index blk
		sta	drvr_blk_num

do_seedling				; 
		ldx	data_ptr
		ldy	data_ptr+2
		jsr	load_io_blk	;load in the seedling block
		bcc	cont_data
		rts

cont_data				; 
		ldy	#data_blk_num
		lda	drvr_blk_num
		sta	[pro_fcr_ptr],y
		clc
		rts			;return to user in happy camper mode

;==========================================================================
;this routine will read into the buffer pointed to by X and Y the block
;number countained in drvr_blk_num.
;==========================================================================

load_io_blk 
		stx	drvr_buf_ptr
		sty	drvr_buf_ptr+2	;save the pointer to the buffer
		jsr	read_with_cache
		rts

;==========================================================================
;This routine will load into the accumulator the first block address from
;an index block.
;==========================================================================
get_first_index
		longa	off
		sep	#$20
		ldy	#blk_size/2
		lda	[drvr_buf_ptr],y
		xba
		lda	[drvr_buf_ptr]
		longa	on
		rep	#$20
		rts

		ENDP



;==========================================================================
;set_fcr_status This routine will set bits in the FCR pointed to by
;               'pro_fcr_ptr'
;
;Input:         A = ORA Mask
;
;OutPut:        Operation complete
;
;Uses:          A and Y registers
;==========================================================================

		EXPORT	set_fcr_status	
set_fcr_status	PROC

		ldy	#fcr_status
		ora	[pro_fcr_ptr],y
		sta	[pro_fcr_ptr],y
		rts
		ENDP

;========================================================================== 
;find_resource: This routine will read in the key block of a resource file
;               and locate the resource fork.  If the resource is available
;               then this routine will replace the following fields in the fcr:
;
;                       1) fst_key_blk  := Key block of the resource
;                       2) blocks used  := blocks used by the resource
;                       3) fst_eof      := eof of resource
;                       4) storage_type := storage type of the resource
;
;Input:         drvr_blk_num = key block of resource file
;
;Output:        Carry Set if error otherwise clear
; 
;========================================================================== 
		
		EXPORT	find_resource	
find_resource	PROC

;==========================================================================
;Setup the system buffer as our temp work area
;==========================================================================
		
		lda	gbuf_addr	;address of systems work buffer
		sta	drvr_buf_ptr
		lda	gbuf_addr+2
		sta	drvr_buf_ptr+2

		lda	#in_cache	;go ahead and store this block in cache
		sta	drvr_cache
		jsr	device_call
		jsr	set_user_cache	;restore user's cache value
		bcc	got_res_header
		rts			;return error to caller

got_res_header				; 

;==========================================================================
;open the correct fork.
;==========================================================================
		
		lda	resource_num	;calculate the resource
		xba			;convert $0000 or $0001 into
		tay			;$0000 or $0100

;==========================================================================
;Now we load the storage type, key block and eof
;==========================================================================
		
		lda	[drvr_buf_ptr],y 
		and	#$0003		;clear resource bits
		beq	bad_resource
		cmp	#(tree_type/$10)+1
		bcc	get_key_blk	;storage type ok

bad_resource				; 
		lda	#res_not_found	;the file is damaged
		sec
		rts

get_key_blk				; 
		asl	a		;convert $1,$2,$3 to $10,$20,$30
		asl	a
		asl	a
		asl	a
		sta	storage_type	

		iny			;now get the key block
		lda	[drvr_buf_ptr],y
		beq	bad_resource
		sta	files_key_block
		iny
		iny

;==========================================================================
;Now get the total blocks used field
;==========================================================================

		lda	[drvr_buf_ptr],y
		sta	one_entry+blks_used_index
		tyx
		ldy	#fcr_blks_used
		sta	[pro_fcr_ptr],y
		ldy	#fcr_blks_alloc
		sta	[pro_fcr_ptr],y
		txy
		iny
		iny

;==========================================================================
;Now load the new EOF for the resource. (EOF = three bytes)
;==========================================================================
		
		lda	[drvr_buf_ptr],y 
		sta	one_entry+eof_index
		tax			;low order 16 bits of resource
		iny
		lda	[drvr_buf_ptr],y
		sta	one_entry+eof_index+1

;==========================================================================
;Now save the new EOF for this resource.
;==========================================================================

		ldy	#fcr_eof+1
		sta	[pro_fcr_ptr],y
		ldy	#fcr_curr_eof+1

		sta	[pro_fcr_ptr],y
		txa			;store low order 16 bits
		ldy	#fcr_eof
		sta	[pro_fcr_ptr],y
		ldy	#fcr_curr_eof
		sta	[pro_fcr_ptr],y

		ldy	#fcr_storage
		lda	storage_type
		sta	[pro_fcr_ptr],y
		
		ldy	#fcr_key_blk
		lda	files_key_block
		sta	[pro_fcr_ptr],y	;save the key block as well

		clc
		rts			;exit all happy now!!!

		ENDP

;======================================================================
;check_vcr_first: This routine trys to find a vcr from the device number
;               in 'A'.  If a vcr is found the no error is reported.
;               otherwise the error is returned. 
;
;Created:       may 08, 1987
;Modified:      may 08, 1987
;Author:        Rob Turner
;
;
;Enter:         from open call
;
;Input:         A = device number to find
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               dev_num                 ;device number we are looking for
;
;Output:        A = error code if carry set.
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;Uses:          All registers
;               find_vcr
;               math_temp
;               my_vcr_ptr
;
;======================================================================
		longa	on
		longi	on

		EXPORT	check_vcr_first	
check_vcr_first	PROC

		stz	math_temp
search_loop				; 
		lda	math_temp
		inc	a
		sta	math_temp
		jsl	get_vcr
		bcc	good
		rts

;==========================================================================
;If we find a vcr then make sure that I own it.
;==========================================================================

good					; 
		jsl	deref
		stx	my_vcr_ptr
		sty	my_vcr_ptr+2
		ldy	#vcr_fst_id
		lda	[my_vcr_ptr],y
		cmp	#pro_id
		bne	search_loop

		ldy	#vcr_dev	;is this the correct device
		lda	[my_vcr_ptr],y
		cmp	dev_num
		bne	search_loop

		ldy	#vcr_status
		lda	[my_vcr_ptr],y
		and	#vcr_swapped
		bne	do_mount
		clc			;this is it.
		rts

do_mount				; 
		jsr	mount_volume
		rts

		ENDP
;==========================================================================
;Read:          This file contains code used to read data from a file.
;               The types of files supported are:
;
;                       1) seedling
;                       2) sapling
;                       3) tree
;                       4) directory
;
;Created:       May 16, 1987
;Modified:      Apr 16, 1988
;Author:        Rob Turner
;
;Enter:         jml
;
;Input:         A = undefined
;               X = call number times 2
;               Y = class times 2
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;Uses:          All registers
;               Device Dispatcher  (subroutine)
;               General I/O Buffer (1K buffer, I read 512 bytes)
;               and lots of other stuff to.
;
;Call Format:
;
;Class 0        Reference Number        (2 Bytes)
;               Pointer to Data Buffer  (4 Bytes)
;               Request Count           (4 Bytes)
;               Transfer Count          (4 Bytes)
;
;Class 1        PCount                  (2 Bytes)
;               Reference Number        (2 Bytes)
;               Pointer to Data Buffer  (4 Bytes)
;               Request Count           (4 Bytes)
;               Transfer Count          (4 Bytes)
;               Cache Priority          (2 Bytes)
;
;==========================================================================
		longa	on
		longi	on

		EXPORT	read		
read		PROC

		lda	#drvr_read	;setup for device read
		sta	drvr_call_num

;==========================================================================
;sets up parameters from GS/OS call block, and verifies class and max pcnt
;
;setup params returns the class in the Accumulator.  It also does the
;load as the last instruction before the 'RTS'
;==========================================================================

		jsr	setup_params
		jsr	read_write_setup

;==========================================================================
;Go and get the newline length from the FCR and save it on zero page.
;==========================================================================
		stz	newline_len	;disable newline mode please

;==========================================================================
;We need to get the mask as well as the newline list pointer
;==========================================================================
		ldy	#fcr_mask
		lda	[my_fcr_ptr],y
		sta	newline_mask
		beq	no_newline

		ldy	#fcr_newline_len
		lda	[my_fcr_ptr],y
		sta	newline_len
		beq	no_newline	;ok I like this read

;==========================================================================
;Since newline is enabled we must dereference the newline VP and save it
;==========================================================================

		ldy	#fcr_newline
		lda	[my_fcr_ptr],y
		tax
		iny
		iny
		lda	[my_fcr_ptr],y
		tay
		jsl	deref
		stx	newline_ptr
		sty	newline_ptr+2

;==========================================================================
;When we finally get here we are thru with setting up the newline list
;==========================================================================

no_newline				; 
		ldy	#vcr_dev
		lda	[my_vcr_ptr],y
		sta	drvr_dev_num

;==========================================================================
;Just to be complete I guess I should check if the file is read enabled.
;==========================================================================

		ldy	#fcr_access	;check the user's access privs.
		lda	[my_fcr_ptr],y
		and	#ClrAllButAccess
		cmp	#write_access	;does the file have write only access?
		bne	i_can_read	;read is allowed

		lda	#invalid_access
error_out				; 
		sec
		jmp	main_exit


I_can_read				; 

;==========================================================================
;Now we need to move some variables from the FCR to zero page.
;We do this just to make it easy to get to the variables.
;
;First lets move the current file marker and EOF to direct page
;==========================================================================

		jsr	setup_curr_mark
		jsr	setup_curr_eof

;==========================================================================
;Now lets see if we are at the end of the file.
;IF curr_mark = EOF THEN return EOF error
;==========================================================================

		lda	curr_mark+2
		cmp	curr_eof+2
		bcc	not_eof
		lda	curr_mark
		cmp	curr_eof
		bne	not_eof

		lda	#end_of_file	;sorry no more bytes to read
		bra	error_out

not_eof					; 

;==========================================================================
;OK go and get the storage type for the file
;We use this field to determine how to read the file.
;==========================================================================

		ldy	#fcr_storage
		lda	[pro_fcr_ptr],y
		sta	storage_type

		jsr	chk_swapped	;mount the volume if needed
		bcc	disk_online
		jmp	main_exit
disk_online				; 

;==========================================================================
;when we get here we have found the lost volume.  So we must reset our
;flags and change our device number, in both the VCR and FCR
;==========================================================================

		lda	drvr_dev_num	;new device number
		ldy	#vcr_dev
		sta	[my_vcr_ptr],y	;update VCR

		ldy	#vcr_status
		lda	[my_vcr_ptr],y
		and	#vcr_swapped_in	;set 'disk in' flag
		sta	[my_vcr_ptr],y

;==========================================================================
;Now the disk is ready to be talked to
;==========================================================================

disk_in					; 

;==========================================================================
;Now we need to compare req_cnt to EOF.
;
;IF (req_count + curr_mark) > EOF THEN
;    req_cnt := (EOF-curr_mark)
;
;NOTE: carry must be clear when we get here.
;==========================================================================

		lda	curr_mark
		adc	user_req_cnt
		sta	math_temp
		lda	curr_mark+2
		adc	user_req_cnt+2

		cmp	curr_eof+2
		bcc	not_greater	;no problem with request count
		bne	too_large
		lda	math_temp
		cmp	curr_eof	;check lower 16 bits
		bcc	not_greater
		beq	not_greater

too_large				; 

;==========================================================================
;If the request is too large then we need to adjust the request count.
;==========================================================================

		sec
		lda	curr_eof
		sbc	curr_mark
		sta	user_req_cnt
		lda	curr_eof+2
		sbc	curr_mark+2
		sta	user_req_cnt+2

not_greater				; 

;==========================================================================
;Lets stop here and take a brief look at the current file marker.
;
;Diagram:                  (A)            (B)            (C)
;
;     |               | $00 to $7F  | $00  to  $FF  | $000  to  $1FF  |
;     |               |             |               |                 |
;     | MUST BE ZERO  |<- master  ->|<-   index   ->|<- Byte index  ->|
;     |_______________|_____________|_______________|_________________|
;     | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | |
;     |_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|
;     |               |               |               |               |
;    3 2             2 4             1 6             0 8             0 0
;
;               (A) = Index into the master index block:
;                       This value goes upto 127. This means that the total
;                       number of index blocks that a file can contain is
;                       127.
;
;               (B) = Index into the index block:
;                       This value goes upto 255.  This means that there
;                       can be upto 255 data blocks per index block.
;
;               (C) = index into the data block:
;                       This value goes upto 512.  This means that there
;                       can be upto 512 bytes of data in the data block.
;
;==========================================================================


;==========================================================================
;see if newline is enabled.  If it is not then call the fast routines.
;otherwise fall into snell mode.
;==========================================================================

		lda	newline_len
		beq	fast_read	;runs like a bat out of hell!
		dec	a		;see if this is a single char newline
		bne	fast_read
		lda	[newline_ptr]
		and	#$00FF		;clear garbage byte
		sta	newline_char

		EXPORT	fast_read
fast_read				;               

;==========================================================================
;If we get here we know that newline is disabled so we do not have to check
;each character that we read.  This means that multiple blocks can be moved
;into the user's buffer directly without having to go into the I/O buffer.
;Note however that the last block is moved into the I/O buffer.
;
;before we can start sending multiply blocks we must empty the current
;data block that is in our buffer.  If there are enough bytes to satisfy
;the read request we just send the bytes and exit.
;==========================================================================

single_block				; 

		jsr	send_partial
		bcc	fast_loop
		clc
		brl	end_read_write	;all done with read.

;==========================================================================
;First lets calculate how many bytes are left in this block.
;==========================================================================

fast_loop				; 
		lda	user_req_cnt+2
		bne	do_seq_blks
		lda	user_req_cnt
		cmp	#blk_size+1
		bcs	do_seq_blks

		jmp	send_last	;we have less then 512 bytes left

do_seq_blks				; 

;==========================================================================
;We know that the user still has more then 512 bytes to go before the read
;request is satisfied.  So lets go and see if there are any sequential
;blocks that we can read.  If there are no sequential blocks then we must
;get the block address our selves and issue a read of one block.  This
;of course makes mister happy face very sad since he will have to double
;buffer.
;==========================================================================
		lda	storage_type
		cmp	#subdir_type
		bcs	single_block

		jsr	num_seq_blks	;see if there are any sequential blks
		beq	single_block

seq_avail				; 

;==========================================================================
;when we get here we know that there are some sequential blocks that can
;be read.  But we must see if the number of sequential blocks is less then
;the number of blocks wanted.
;==========================================================================

		stx	drvr_blk_num	;save block number for read
		inc	a
		sta	math_temp	;number of sequential blocks avail.

		stz	drvr_req_cnt
		stz	drvr_req_cnt+2
		stz	drvr_blk_num+2

		lda	user_req_cnt+1	;first convert bytes wanted to blocks
		lsr	a
		cmp	math_temp
		bcc	use_users_size
		lda	math_temp	;use ALL sequential blocks.

use_users_size				; 

		asl	a		;convert block count to bytes
		sta	drvr_req_cnt+1

;==========================================================================
;Now setup the buffer pointer to point to the user's buffer.
;==========================================================================

		lda	users_buf_ptr
		sta	drvr_buf_ptr
		lda	users_buf_ptr+2
		sta	drvr_buf_ptr+2

		jsr	read_with_mount
		bcc	cont001		;good.
		jmp	end_read_write

cont001					; 
		jsr	rw_adjust	;adjust the following:
;                                       ;(1) user_buf_ptr
;                                       ;(2) tran_cnt
;                                       ;(3) curr_mark
;                                       ;(4) user_req_cnt

		jmp	fast_loop

;==========================================================================
;
;==========================================================================

send_last				; 
		jsr	send_partial
		clc

;==========================================================================
;===== END of READ call.  We save the processor status and error code =====
;=====                    We then send back the number of bytes that  =====
;=====                    were read successfully.  Then we restore any=====
;=====                    error condition and exit thru sys_exit.     =====
;==========================================================================

		EXPORT	end_read_write
end_read_write				;               ;common exit for read and write
		php
		pha

		ldy	#pblk_12_tran
		lda	tran_cnt
		sta	[my_pblk_ptr],y
		iny
		iny
		lda	tran_cnt+2
		sta	[my_pblk_ptr],y

;==========================================================================
;Save the current file marker after the read call completes.
;==========================================================================
		jsr	save_curr_mark

		pla
		plp
		jmp	main_exit

;==========================================================================
;bump_mark      This routine will adjust the following fields:
;
;               1) users_buf_ptr        := users_buf_ptr + bytes_sent
;               2) curr_mark            := curr_mark + bytes_sent
;               3) user_req_cnt         := user_req_cnt - bytes_sent
;               4) tran_cnt             := tran_cnt+bytes_sent
;input:
;               A = number of bytes to bump fields by.
;
;Uses:          math_temp
;==========================================================================

		EXPORT	bump_mark
bump_mark				;               
		sta	math_temp
		clc
		lda	users_buf_ptr
		adc	math_temp
		sta	users_buf_ptr

		bcc	do_mark
		inc	users_buf_ptr+2
		clc
do_mark					; 

;==========================================================================
;IMPORTANT NOTES:
;
;               users_buf_ptr is always =< $00FFFFFF
;
;WARNING! --> CARRY must be clear when we get here!
;==========================================================================

		lda	curr_mark
		adc	math_temp
		sta	curr_mark
		bcc	do_tran
		inc	curr_mark+2
		clc
do_tran					; 

;==========================================================================
;IMPORTANT NOTES:
;
;               curr_mark+math_temp is always less the $00FFFFFF
;
;WARNING! --> CARRY must be clear when we get here!
;==========================================================================

		lda	tran_cnt
		adc	math_temp
		sta	tran_cnt
		bcc	do_req_cnt
		inc	tran_cnt+2

do_req_cnt				; 
		sec
		lda	user_req_cnt	
		sbc	math_temp
		sta	user_req_cnt	
		bcs	end_bump
		dec	user_req_cnt+2

end_bump	rts


;==========================================================================
;Set_users_buf  This routine moves the users buffer pointer into
;               drvr_buf_ptr.  This allows block read from a device driver
;               to go directly to the users buffer.
;==========================================================================

set_users_buf				; 
		lda	users_buf_ptr	;bypass my I/O buffer
		sta	drvr_buf_ptr
		lda	users_buf_ptr+2
		sta	drvr_buf_ptr+2
		rts
		ENDP

;==========================================================================
;send_partial   This routine will send data from the current file marker to
;               the end of the data buffer.
;
;Input:         A = undefined
;               X = indefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               curr_mark               (must be correct)
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = data transfer complete
;                          0 = no error
;               b = k
;
;Uses:          All registers
;               move_block
;==========================================================================

		EXPORT	send_partial	
send_partial	PROC

;==========================================================================
;first make sure the I/O buffer is filled to the brim.
;==========================================================================

		jsr	fill_io_buf
		bcc	filled_up	;buffer is now ok
		jmp	end_read_write

;==========================================================================
;lets see how many bytes are left in the currently loaded data block.
;==========================================================================

filled_up				; 
		lda	curr_mark
		and	#$01FF
		sta	math_temp
		sec
		lda	#blk_size	;Bytes_left := buf_size-curr_position
		sbc	math_temp

		sta	math_temp	;number of bytes left in buffer.

;==========================================================================
;now lets calculate how many bytes we need to send to the user
;==========================================================================

		ldx	user_req_cnt+2
		bne	send_all_bytes	;he wants as many as I can give
		cmp	user_req_cnt
		beq	send_all_bytes
		bcc	send_all_bytes

		lda	user_req_cnt	;the user wants less then I have

send_all_bytes				; 
		sta	math_temp
		tay

;==========================================================================
;If newline is enabled then we have to do processing on each character
;so we avoid the block move routine.
;==========================================================================

		lda	newline_len
		bne	check_newline

;==========================================================================
;If we get here then newline is disabled so use the block move instruction
;==========================================================================

		clc
		lda	curr_mark	;adjust the starting position
		and	#$01FF
		adc	data_ptr
		tax			;save low address of buf pointer
		lda	#$0000
		adc	data_ptr+2

		cpy	#min_send_cnt	;minimum bytes needed to use blk move
		bcc	send_small

		pha			;push high word of buffer pointer
		phx			;push low word of buffer pointer

		pei	users_buf_ptr+2	;destination address
		pei	users_buf_ptr
		pea	$0000		;high word of count
		phy			;number of bytes to send
		pea	move_sinc_dinc
		jsl	move_info
		bra	end_partial

;==========================================================================
;This routine will transfer a request count of less than $20 characters to
;the user's buffer.  We do this to speed things up.
;==========================================================================

send_small				; 
		stx	temp_ptr
		sta	temp_ptr+2	;pointer to the user's buffer
		dey
		tya
		bmi	end_partial	;zero bytes to move?
		cmp	#$0002		;are we moving less then two bytes?
		bcc	send_8_bit
		dec	a		;second decrement for word check
		ror	a		;is it an even transfer?
		bcs	send_8_bit
		dey
loop_16					; 
		lda	[temp_ptr],y
		sta	[users_buf_ptr],y
		dey
		dey
		bpl	loop_16
		bra	end_partial

send_8_bit				; 
		sep	#$20		;8 bit accum
loop_8					; 
		lda	[temp_ptr],y
		sta	[users_buf_ptr],y
		dey
		bpl	loop_8
		rep	#$20

;==========================================================================
;Now that we have send the data adjust the pointers etc.
;==========================================================================

end_partial 
		lda	math_temp
		jsr	bump_mark
		lda	user_req_cnt
		ora	user_req_cnt+2
		beq	all_done	;request count satisfied

		ldy	#fcr_status	;we are going to read another block so make sure
		lda	[pro_fcr_ptr],y	;the I/O buffer is clean
		and	#file_dirty
		beq	@not_dirty
		jsr	flush_io_buffer	;write the dirty blocks to disk
		bcc	@not_dirty
		jmp	main_exit

@not_dirty 
		clc
		rts

all_done 
		sec
		rts

;==========================================================================
;Below is the code used to handle the newline checking.  For this code we
;set the accumulator into 8 bit mode so we do not overflow the user's
;buffer.
;==========================================================================

check_newline				; 
		tax			;save newline length for a second

		lda	curr_mark	;isolate block index
		and	#$01FF
		tay

		sta	entries_checked
		sec
		lda	users_buf_ptr
		sbc	entries_checked
		sta	temp_ptr
		lda	users_buf_ptr+2
		sbc	#$0000
		sta	temp_ptr+2

		clc
		tya
		adc	math_temp	;calculate the last byte address
		sta	entries_checked


		dex			;see if this is a special case
		bne	slow_read
		php			;save the mode please
		longa	off
		sep	#$20		;short accumulator

fast_newline				; 
		lda	[data_ptr],y
		sta	[temp_ptr],y
		and	newline_mask
		cmp	newline_char
		beq	found_newline
		iny
		cpy	entries_checked	;are we done yet
		bne	fast_newline
		plp			;be nice and restore last mode please.
		bra	end_partial

found_newline				; 
		plp			;restore last mode please
		longa	on

;==========================================================================
;Number of bytes := Ending position minus starting position
;               Y = ending position
;       curr_mark = starting position
;==========================================================================

		lda	curr_mark
		and	#$01FF
		sta	math_temp
		sec
		tya
		sbc	math_temp
		inc	a
		jsr	bump_mark	;adjust the pointers etc
		stz	user_req_cnt
		stz	user_req_cnt+2
		sec
		rts

;==========================================================================
;This routine is called when there is more then one newline character to
;check.  This routine is slower then the above newline read since I have
;to scan all newline characters against a list
;==========================================================================

slow_read				; 

;==========================================================================
;newline_len := newline_len-1  So I can use it as an index into the newline
;list.
;==========================================================================

*** removed 13-Jul-92 DAL to make multi-character newline mode keep working across blocks
*** (newline_len was getting decremented farther and farther on each block...ouch!)
;;;		dec	newline_len
*** end 13-Jul-92, part 1 of 2

		php
		longa	off
		sep	#$20

slow_newline				; 
		lda	[data_ptr],y
		sta	[temp_ptr],y
		and	newline_mask
		tyx			;save index first
		ldy	newline_len
*** added 13-Jul-92 DAL, because I took out a dec newline_len a few lines above
		dey
*** end 13-Jul-92, part 2 of 2

next_newline				; 
		cmp	[newline_ptr],y
		beq	found_one
		dey
		bpl	next_newline

		txy			;restore index first
		iny
		cpy	entries_checked	;are we done yet
		bne	slow_newline
		plp			;be nice and restore last mode please.
		brl	end_partial

found_one				; 
		txy			;restore Index first
		bra	found_newline

		ENDP


;==========================================================================
;fill_io_buf:   This routine will load into the I/O buffer the correct
;               index and data blocks.  It will also adjust the FCR data
;
;		WARNING: curr_mark must not point beyond the current
;		structure of the file, even though that mark may be within
;		the file's EOF. This could happen if a file has a trailing
;		portion which is all sparse from a position <128K to a
;		position >128K. In this case the file is stored as a
;		sapling, not a tree, but owns a sparse area that is
;		logically within the "tree" range. In such a case,curr_mark
;		must never be in that range when entering this routine.
;
;Input:         A = undefined
;               X = indefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               curr_mark               (must be correct)
;               master_ptr              (must pointer to master index block)
;               index_ptr               (must point to the correct index block)
;               data_ptr
;               pro_fcr_ptr             (points to prodos data in FCR)
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;Uses:          All registers
;               drvr_blk_num
;               drvr_call_num
;               drvr_buf_ptr
;               drvr_req_cnt
;               device_dispatcher
;
;
;==========================================================================
		longa	on
		longi	on

		EXPORT	fill_io_buf	
fill_io_buf	PROC

		stz	data_flag	;flag says load data block
		bra	fill_up

		EXPORT	load_indexes
load_indexes				;               
		lda	#$FFFF		;flag says do not load data block
		sta	data_flag

fill_up					; 
		stz	mark_changed
		jsr	setup_curr_eof

		lda	curr_mark	;is the mark zero?
		ora	curr_mark+2
		beq	mark_ok		;yes so don't subtract one
		
		lda	curr_mark+2
		cmp	curr_eof+2	;see if current mark = eof
		bcc	mark_ok
		lda	curr_mark
		cmp	curr_eof
		bcc	mark_ok		;no problem

		sbc	#$0001		;curr_mark := curr_mark-1
		sta	curr_mark

		lda	curr_mark+2
		sbc	#$0000
		sta	curr_mark+2

		dec	mark_changed

mark_ok					; 
		jsr	standard_req	;read 512 bytes only
		ldy	#fcr_storage	;see if this is a subdirectory.
		lda	[pro_fcr_ptr],y
		cmp	#subdir_type
		bcc	standard_file	;File is not a directory
		jsr	fill_directory	;fill it up bud!
		jsr	restore_mark	;fix it if it was changed!
		rts			;return to caller
		

standard_file				; 
		jsr	fill_index	;fill up the index block
		bcc	chk_data
		rts			;major error

chk_data				; 
		bit	data_flag	;'-' = fill index block only
		bpl	do_data
		jsr	restore_mark
		rts

do_data					; 
		jsr	fill_data	;fill the data buffer
		jsr	restore_mark
		rts			;exit

restore_mark				; 
		php			;save error flag
		pha			;save error code
		bit	mark_changed
		bpl	no_change
		inc	curr_mark
		bne	no_change
		inc	curr_mark+2
no_change				; 
		pla
		plp
		rts

;==========================================================================
;Fill_index:    This routine will fill up the index block if it can.
;
;Below is pascal type segment which indicates how fill_index works.
;
;IF master = defined THEN
;   BEGIN
;     blk_num := get_blk_address(curr_mark) ; {Get block address from index blk}
;     IF blk_num = $0000 THEN
;        sparse_blk(index_buffer) ;      {Fill Index buffer with zeros}
;        ELSE
;         IF curr_blk <> blk_to_read THEN
;            read_blk(index_buffer) ;       {Load index block from disk}
;   END
;    ELSE                               {master undefined}
;     IF curr_mark > $20000 THEN
;        BEGIN
;          IF sapling = defined THEN
;             sparse_blk(index_buffer)  {fill index block to zeros}
;               ELSE
;                BEGIN
;                 sparse_blk(data_buffer) ; {force data block to zeros}
;                 data_flag := data_flag-1 {This forces the calling routine
;                                           to exit without loading the data
;                                           block, since I have already loaded
;                                           the blocks with zeros}
;                END
;        END
;
;		WARNING: curr_mark must not point beyond the current
;		structure of the file, even though that mark may be within
;		the file's EOF. This could happen if a file has a trailing
;		portion which is all sparse from a position <128K to a
;		position >128K. In this case the file is stored as a
;		sapling, not a tree, but owns a sparse area that is
;		logically within the "tree" range. In such a case,curr_mark
;		must never be in that range when entering this routine.
;
;==========================================================================

fill_index				; 

		ldy	#fcr_status	;see if the master index block is
		lda	[pro_fcr_ptr],y	;active
		and	#master_active
		beq	no_master	;the master block is not defined

		lda	curr_mark+2	;make an index into the index block
		lsr	a
		and	#$007F
		tay
		ora	#$0100		;build index for upper half of buffer
		tax

		lda	[master_ptr],y
		sta	drvr_blk_num
		txy
		lda	[master_ptr],y
		sta	drvr_blk_num+1	;save the block number to read
		stz	drvr_blk_num+2

		lda	drvr_blk_num	;see if blk_num = $0000
		beq	sparse_index

		ldy	#index_blk_num	;see if the block is already loaded
		cmp	[pro_fcr_ptr],y
		bne	load_index
		clc
		rts			;no problem here

;==========================================================================
;If Y=$0100 then we know that the master index block is not really active
;If it were active then there would be a real index block.  If this is the
;case then we should load in the index block if there is one available.
;==========================================================================

sparse_index				; 
		cpy	#$0100		;If non-first index is sparse then
		bne	zero_index	;zero the index block

		ldy	#fcr_storage	;is there an index block to load?
		lda	[pro_fcr_ptr],y
		cmp	#sapling_type
		bne	index_sparse	;just exit no index to load

		ldy	#fcr_key_blk
		lda	[pro_fcr_ptr],y
		ldy	#index_blk_num	;see if the block is already loaded
		cmp	[pro_fcr_ptr],y
		beq	index_sparse	;just exit since the block is loaded
		sta	drvr_blk_num
		bra	load_index

zero_index				; 
		jsr	chk_index_clean	;make sure the current block is not dirty
		bcc	@no_problem
		rts
@no_problem
		ldy	#index_blk_num	;see if the index block is sparse
		lda	[pro_fcr_ptr],y
		beq	index_sparse	;block is already sparse

		ldx	index_ptr
		ldy	index_ptr+2
		jsr	send_sparse_blk

		ldy	#index_blk_num
		lda	#$0000
		sta	[pro_fcr_ptr],y	;indicate index block loaded is sparse

index_sparse				; 
		clc
		rts

load_index				; 
		jsr	chk_index_clean	;make sure the current block is not dirty
		bcc	@no_problem
		rts
@no_problem
		lda	index_ptr
		sta	drvr_buf_ptr
		lda	index_ptr+2
		sta	drvr_buf_ptr+2
		jsr	read_with_cache	;read in the block please
		bcc	index_loaded
		rts

index_loaded
		ldy	#index_blk_num
		lda	drvr_blk_num
		sta	[pro_fcr_ptr],y	;update the loaded block number field
		rts

;==========================================================================
;If we get here we know that there is no master index block defined.
;==========================================================================
no_master 
		lda	curr_mark+2	;see if the mark > $20000
		lsr	a
		and	#$007F
		bne	index_pain
		clc
		rts

index_pain				;see if the index block is defined
		stz	drvr_blk_num
		jsr	chk_index_clean
		bcc	@its_clean
		rts			;return the error
@its_clean
		ldy	#fcr_status
		lda	[pro_fcr_ptr],y
		and	#index_active
		bne	sparse_index	;make the index block all zeros

sparse_data
		jsr	chk_data_clean	;make sure the data block is OK 
		bcc	@good_data
		rts
@good_data
		ldy	#data_blk_num	;see if the block is already sparse
		lda	[pro_fcr_ptr],y
		beq	data_sparse	;data block is alreay sparse

		ldx	data_ptr
		ldy	data_ptr+2

		jsr	send_sparse_blk	;make the data block sparse

		ldy	#data_blk_num	;see if the block is already sparse
		lda	#$0000		;indicate block is sparse
		sta	[pro_fcr_ptr],y

data_sparse				; 
		dec	data_flag	;indicate to the main routine that the
		clc			;data block does not need checking
		rts

;==========================================================================
;Chk_index_clean will determine if the current index block needs to be 
;written to disk before the new block is loaded and will write it out if
;necessary.
;==========================================================================
chk_index_clean
		phy
		ldy	#fcr_status	;we are going to read another block so make sure
		lda	[pro_fcr_ptr],y	;the I/O buffer is clean
		and	#index_dirty
		beq	@not_dirty	;easy case.
		
		lda	drvr_blk_num	;get the block number we want to load
		ldy	#index_blk_num	;see if the block is already loaded
		cmp	[pro_fcr_ptr],y
		beq	@not_dirty	;another easy case.
		
		pha			;save the driver block number
		jsr	flush_index	;save the data to disk
		plx			;get the drvr_blk_number back please
		stx	drvr_blk_num
		ply
		rts			;carry will return any error

@not_dirty
		ply
		clc
		rts

;==========================================================================
;Fill_data:     This routine will fill up the data block if it can.
;
;Below is pascal type segment which indicates how Fill_data works.
;
;IF index = defined THEN
;   BEGIN
;     blk_num := get_blk_address(curr_mark) ; {Get block address from index blk}
;     IF blk_num = $0000 THEN
;        sparse_blk(data_buffer) ;       {Fill Index buffer with zeros}
;        ELSE
;         IF curr_blk <> blk_to_read THEN
;            read_blk(index_buffer) ;    {Load index block from disk}
;    END
;     ELSE
;      IF curr_mark > $200 THEN
;         sparse_blk(data_buffer) ;      {Clear the data buffer}
;         ELSE
;           read_blk(key_block) ;        {main block for file}
;
;==========================================================================

fill_data				; 
		ldy	#fcr_status
		lda	[pro_fcr_ptr],y
		and	#index_active
		beq	no_index	;there is no index buffer

		jsr	get_data_num	;setup drvr_blk_num from index blk

		lda	drvr_blk_num
		bne	not_sparse	;make the data block sparse
		cpy	#$0100		;was it the 1st entry
		bne	sparse_data	;make data block sparse
		
		lda	curr_mark+2	;see if the master index is zero
		lsr	a
		and	#$007F
		bne	sparse_data

		ldy	#fcr_storage	;is there an index block to load?
		lda	[pro_fcr_ptr],y
		cmp	#seedling_type
		bne	sparse_data	;make block sparse please
		ldy	#fcr_key_blk	;this is a seedling so load the block
		lda	[pro_fcr_ptr],y
		sta	drvr_blk_num

not_sparse				; 
		jsr	chk_data_clean	;make sure the data buffer is OK
		bcc	@still_ok
		rts
@still_ok
		lda	drvr_blk_num
		ldy	#data_blk_num	;see if the block is already loaded
		cmp	[pro_fcr_ptr],y
		bne	load_data
exit_fill_data				; 
		clc
		rts			;no problem here

load_data				; 
		lda	data_ptr
		sta	drvr_buf_ptr
		lda	data_ptr+2
		sta	drvr_buf_ptr+2
		jsr	read_with_mount	;read in the block please
		bcc	store_data_num
		rts

store_data_num				; 
		ldy	#data_blk_num	;update current block loaded field
		lda	drvr_blk_num
		sta	[pro_fcr_ptr],y
		rts

;==========================================================================
;If we get here we know that there is no index block loaded
;==========================================================================

no_index				; 
		lda	curr_mark+1
		lsr	a
		and	#$00FF
		beq	@need_long
		brl	sparse_data	;make the data block sparse if needed
@need_long
		ldy	#fcr_key_blk
		lda	[pro_fcr_ptr],y
		ldy	#data_blk_num	;current block that is loaded
		cmp	[pro_fcr_ptr],y
		bne	reload_data
		clc
		rts			;block is already loaded

reload_data				; 
		sta	drvr_blk_num
		lda	data_ptr
		sta	drvr_buf_ptr
		lda	data_ptr+2
		sta	drvr_buf_ptr+2
		jsr	read_with_mount
		bcc	data_read
		rts

data_read				; 
		ldy	#data_blk_num
		lda	drvr_blk_num	;update the current block loaded
		sta	[pro_fcr_ptr],y
		rts

;==========================================================================
		EXPORT	get_data_num
get_data_num				;               
		lda	curr_mark+1
		lsr	a
		and	#$00FF
		tay
		ora	#$0100
		tax

		lda	[index_ptr],y	;setup the block number
		sta	drvr_blk_num
		txy
		lda	[index_ptr],y
		sta	drvr_blk_num+1
		stz	drvr_blk_num+2
		rts
		
;==========================================================================
;Chk_data_clean will determine if the current data block needs to be 
;written to disk before the new block is loaded
;==========================================================================
chk_data_clean
		phy
		ldy	#fcr_status	;we are going to read another block so make sure
		lda	[pro_fcr_ptr],y	;the I/O buffer is clean
		and	#data_dirty
		beq	@not_dirty	;easy case.
		
		lda	drvr_blk_num	;get the block number we want to load
		ldy	#data_blk_num	;see if the block is already loaded
		cmp	[pro_fcr_ptr],y
		beq	@not_dirty	;another easy case.
		
		pha			;save the driver block number
		jsr	flush_data_blk	;save the data to disk
		plx			;get the drvr_blk_number back please
		stx	drvr_blk_num
		ply
		rts			;carry will return any error

@not_dirty
		ply
		clc
		rts


fill_directory				; 

;==========================================================================
;OK this file is a directory so lets handle this pain in the butt case.
;
;The way it works:
;
;               The master index field contains the current block number
;               that is loaded into the data buffer.  So when I'm called
;               with the current mark I calculate the block number that
;               that is needed.   If the block number is less then the
;               current block number then I walk the backward links till
;               I find the block needed.  If the block wanted is greater
;               then the current block I walk the links forward till I
;               find the correct block, and at the end I update the FCR.
;
;==========================================================================

		lda	#in_cache
		sta	drvr_cache

		lda	data_ptr	;setup buffer pointer to data buffer
		sta	drvr_buf_ptr
		lda	data_ptr+2
		sta	drvr_buf_ptr+2

		lda	curr_mark+1
		lsr	a		;bytes to blocks
		sta	math_temp

		ldy	#data_blk_num
		lda	[pro_fcr_ptr],y
		sta	entries_blk_num

		ldy	#master_blk_num
		lda	[pro_fcr_ptr],y
		cmp	math_temp
		bne	have_to_look
		clc
		rts

have_to_look				; 
		sta	last_blk
		bcs	look_backward	;IF current > wanted THEN go backward

;==========================================================================
;Of we get here we walk thru the forward links till we find the right blk
;==========================================================================

forward_loop				; 
		ldy	#$0002
		lda	[data_ptr],y
		beq	bad_dir_blk	;This should NEVER happen!!!!!
		sta	drvr_blk_num
		jsr	go_get_block	;go read the block
		bcc	ar16
		rts			;return the error

ar16					; 
		lda	[data_ptr]	;verify backward links please
		cmp	entries_blk_num
		beq	cont16
		lda	#dir_error
		bra	dir_bad

cont16					; 
		ldy	#data_blk_num
		lda	drvr_blk_num
		sta	[pro_fcr_ptr],y
		sta	entries_blk_num	;update both the FCR and Link verify

		inc	last_blk	;advance the block counter
		lda	last_blk
		cmp	math_temp	;See if this the right bloc number
		bne	forward_loop	;go and get the next block

end_links	ldy	#master_blk_num	;update the current block
		sta	[pro_fcr_ptr],y
		clc
		rts

;==========================================================================
;We need to set the mark backward. So we need to walk the links backward
;==========================================================================

look_backward				; 
		lda	[data_ptr]
		beq	bad_dir_blk	;This should NEVER happen!!!!!
		sta	drvr_blk_num
		jsr	go_get_block	;go read the block
		bcc	ar18
		rts			;return the error

ar18					; 
		ldy	#$0002
		lda	[data_ptr],y
		cmp	entries_blk_num
		bne	dir_bad

		lda	drvr_blk_num
		ldy	#data_blk_num
		sta	[pro_fcr_ptr],y
		sta	entries_blk_num

		dec	last_blk	;advance the block counter
		lda	last_blk
		cmp	math_temp	;See if this the right bloc number
		bne	look_backward	;go and get the next block
		bra	end_links	;we are done

;==========================================================================

bad_dir_blk				; 
		lda	#parm_range_err
dir_bad					; 
		sec
		jmp	main_exit

;==========================================================================

go_get_block				; 
		jsr	standard_req
		jsr	read_with_cache	;issue the read call
		rts

data_flag	DC.W	00

		ENDP


;==========================================================================
;send_sparse_blk: This routine will zero out 512 bytes of memory.
;
;Input:         A = undefined
;               X = low word pointer to buffer
;               Y = high word pointer to buffer
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Uses:          All registers
;
;==========================================================================
		longa	on
		longi	on

		EXPORT	send_sparse_blk	
send_sparse_blk	PROC

		stx	sparse_ptr
		sty	sparse_ptr+2
		ldy	#$01FE		;starting index
		lda	#$0000
sparse_loop				; 
		sta	[sparse_ptr],y
		dey
		dey
		bpl	sparse_loop
		rts
		ENDP



;==========================================================================
;calc_seg_blks: This routine will calculate the number of sequential
;               blocks in an index block.  This routine will NOT calculate
;               across index blocks.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               index_ptr               (points to the index pointer)
;               curr_mark               (curr_mark must be on block boundary!)
;
;Output:        A = number of blocks that are sequential
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Uses:          All registers
;               math_temp               (just a temp counter)
;               comp_temp  = and_mask
;               check_blk  = entries_checked
;==========================================================================
		longa	on
		longi	on

		EXPORT	num_seq_blks	
num_seq_blks	PROC

;==========================================================================
;Local equates for this routine
;==========================================================================

comp_temp	equ	and_mask	;(same ZP location different name)
check_blk	equ	entries_checked	;(same ZP location different name)

;==========================================================================
;Zero the counter and save the current file marker
;==========================================================================

		stz	math_temp
		lda	curr_mark
		pha
		lda	curr_mark+2
		pha

;==========================================================================
;first make sure the index blocks are loaded correctly
;==========================================================================

		jsr	load_indexes

;==========================================================================
;No go and get the first block from the Index block buffer.
;==========================================================================

		jsr	get_blk_num
		sta	check_blk
		pha			;save starting block number

		lda	storage_type
		cmp	#subdir_type
		bcs	seq_exit	;always return zero for a directory
		lda	newline_len
		bne	seq_exit	;always return zero if newline enabled

calc_loop				; 

;==========================================================================
;Calculate the index to the next block number.
;==========================================================================

		jsr	get_blk_num
		bcs	seq_exit	;we have looked at the entire block
		dec	a		;subtract one from the block
		cmp	#$FFFF		;see if this block is sparse
		beq	seq_exit	;this must be a sparse block!
		cmp	check_blk
		bne	seq_exit
		inc	a		;restore the block number
		sta	check_blk	;setup for next compare
		inc	math_temp
		bra	calc_loop

seq_exit				; 

;==========================================================================
;restore the current marker and return the number of sequential blocks.
;==========================================================================

		plx			;load X with starting block
		pla
		sta	curr_mark+2
		pla
		sta	curr_mark

		lda	math_temp	;return number of sequential blocks
		rts


;==========================================================================
;get_blk_num:   This routine will return the block number out of the index
;               block based on the current file marker.  It will also
;               advance the file marker by 512 bytes.
;
;Input:         curr_mark
;
;Output:        carry set = end of block
;               A = block number
;==========================================================================

get_blk_num				; 

		lda	curr_mark+1
		lsr	a
		and	#$00FF
		pha
		tay
		ora	#$0100
		tax

		lda	[index_ptr],y
		and	#$00FF
		sta	comp_temp
		txy
		lda	[index_ptr],y
		and	#$00FF
		xba
		ora	comp_temp
		tax

		clc
		lda	curr_mark
		adc	#blk_size
		sta	curr_mark
		bcc	ar11
		inc	curr_mark+2
		clc
ar11					; 
		txa			;block number
		plx			;get the first index value
		beq	end_seq		;just set the carry

;==========================================================================
;WARNING!! --> Carry must be clear when we get here.
;==========================================================================

		rts

end_seq					; 
		sec
		rts

		ENDP

;==========================================================================
;setup_curr_mark This routine will load the current file marker out of the
;               FCR and store it in curr_mark
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               pro_fcr_ptr             (points to my FCR data)
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               curr_mark               (contains current file marker)
;
;Uses:          All registers
;==========================================================================
		longa	on
		longi	on

		EXPORT	setup_curr_mark	
setup_curr_mark	PROC

		ldy	#fcr_curr_mark
		lda	[pro_fcr_ptr],y
		sta	curr_mark
		iny
		iny
		lda	[pro_fcr_ptr],y
		sta	curr_mark+2
		rts
		ENDP

;==========================================================================
;setup_curr_eof This routine will load the current end of file out of the
;               FCR and store it in curr_eof
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               pro_fcr_ptr             (points to my FCR data)
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               curr_eof                (contains current end fo file)
;
;Uses:          All registers
;==========================================================================
		longa	on
		longi	on

		EXPORT	setup_curr_eof	
setup_curr_eof	PROC

		ldy	#fcr_curr_eof
		lda	[pro_fcr_ptr],y
		sta	curr_eof
		iny
		iny
		lda	[pro_fcr_ptr],y
		sta	curr_eof+2
		rts
		ENDP

;==========================================================================
;save_curr_mark This routine will save the current end of file into the
;               FCR.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               pro_fcr_ptr             (points to my FCR data)
;               curr_mark
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Uses:          A and Y  registers
;==========================================================================
		longa	on
		longi	on

		EXPORT	save_curr_mark	
save_curr_mark	PROC

		ldy	#fcr_curr_mark
		lda	curr_mark
		sta	[pro_fcr_ptr],y
		iny
		iny
		lda	curr_mark+2
		sta	[pro_fcr_ptr],y
		rts
		ENDP
;==========================================================================
;Write:         This file contains code used to write data to a file.
;               The types of files supported are:
;
;                       1) seedling
;                       2) sapling
;                       3) tree
;
;Created:       oct 06, 1987
;Modified:      oct 15, 1987
;Author:        Rob Turner
;
;Enter:         jml
;
;Input:         A = undefined

;               X = call number times 2
;               Y = class times 2
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;Uses:          All registers
;               Device Dispatcher  (subroutine)
;               General I/O Buffer (1K buffer, I read 512 bytes)
;               and lots of other stuff.
;
;Call Format:
;
;Class 0        Reference Number        (2 Bytes)
;               Pointer to Data Buffer  (4 Bytes)
;               Request Count           (4 Bytes)
;               Transfer Count          (4 Bytes)
;
;Class 1        PCount                  (2 Bytes)
;               Reference Number        (2 Bytes)
;               Pointer to Data Buffer  (4 Bytes)
;               Request Count           (4 Bytes)
;               Transfer Count          (4 Bytes)
;               Cache Priority          (2 Bytes)
;
;==========================================================================
		longa	on
		longi	on

		EXPORT	write		
write		PROC

		stz	seq_write_cnt	;reset sequential block counter
		jsr	setup_params	;setup standard parameters

		ldy	#fcr_access	;see if the file is write protected
		lda	[my_fcr_ptr],y
		and	#ClrAllButAccess
		cmp	#write_access
		bcs	write_ok	;write access is enabled.

bad_access				; ;user cannot write to this file.
		lda	#invalid_access
		sec
		jmp	main_exit

write_ok				; 
		ldy	#vcr_dev	;last known location of volume
		lda	[my_vcr_ptr],y
		sta	drvr_dev_num	;I hope that the disk is still here.

		jsr	chk_disk_protect

not_protected				; 
		jsr	read_write_setup
		jsr	setup_curr_mark
		jsr	setup_curr_eof

		jsr	setup_io_ptrs	;setup pointers to I/O buffer
		jsr	chk_swapped	;mount the volume if needed
		bcc	vol_online
		jmp	main_exit

;==========================================================================
; IF curr_mark NOT block_aligned THEN
;==========================================================================
vol_online				; 
		jsr	users_to_drvrs	;move user's pointer to driver's ptr
		jsr	user_to_temp	;temp_ptr := user_buf_ptr

block_loop				; 
		lda	curr_mark	;see if we are block aligned
		and	#$01FF
		beq	block_aligned	;yes we are block aligned
		jsr	partial_write	;write until data is block aligned.
		bcs	write_exit	;major problem
		bra	next_block

block_aligned				; 
		lda	user_req_cnt+2	;is req_cnt >= 512?
		bne	more_then_512
		lda	user_req_cnt
		cmp	#blk_size
		bcc	less_then_512
more_then_512				; 
		jsr	full_write	;transfer full 512 bytes.
		bcs	write_exit
		bra	next_block	;go to the next block please

;==========================================================================
;Less_then_512. we have less then 512 bytes to write.
;==========================================================================
less_then_512				; 
		jsr	partial_write	;write the partial block to disk
		bcs	write_exit	;major problem.

next_block				; 
		jsr	rw_adjust	;adjust the following:
;					;(1) user_buf_ptr
;					;(2) tran_cnt
;					;(3) curr_mark
;					;(4) user_req_cnt
		lda	user_req_cnt+2	;see if we are done yet
		bne	block_loop
		lda	user_req_cnt
		bne	block_loop
		clc

write_exit

		php
		pha
		bcc	@10		;there is no error so skip flush
		
		jsr	flush_file	;try to save the world
@10
		jsr	update_mark_eof	;make sure the mark is OK
		
		ldy	#fcr_curr_eof	;update the current end of file please
		lda	curr_eof
		sta	[pro_fcr_ptr],y
		iny
		iny
		lda	curr_eof+2
		sta	[pro_fcr_ptr],y

		lda	#file_dirty
		jsr	set_fcr_status	;indicate that something changed.
		jsr	standard_req	;make sure we write 512 bytes only

		jsr	flush_blocks	;flush any blocks to disk.
		bcs	write_failed	;bad news we cannot complete the flush!!!
;	
;We know that the mark actually points to one past where the last byte is so
;lets reduce the mark by one please
;v00.06 a06
;		
		lda	curr_mark
		bne	@no_high
		dec	curr_mark+2
@no_high
		dec	curr_mark
		
		clc
		jsr	get_write_blk	;make sure I/O buffer is OK
		bcs	write_failed
		txa			;block to load
		beq	holy_cow	;I hope not
		jsr	load_data	;load the data buffer please
		bcs	write_failed
holy_cow				; 
		inc	curr_mark
		bne	@low_only
		inc	curr_mark+2
@low_only

		pla			;restore error code
		plp
		jmp	end_read_write	;exit thru wonder code in read file

write_failed
		plx			;kill the old exit code
		plp			;kill the old processor flag
		sec			;make sure the error is set
		jmp	end_read_write	;exit please.

;==========================================================================
;Write blocks of 512 to disk
;==========================================================================

full_write
		lda	#blk_size
		jsr	range_chk_eof	;see if we overrun the EOF
		bcs	eof_error	;sorry we have an eof error
 
		jsr	standard_req	;transfer of 512 bytes
		ldy	#fcr_status	;see if the data block is dirty
		lda	[pro_fcr_ptr],y
		and	#data_dirty
		beq	clean_blk	;no flush needed
		jsr	flush_data_blk	;write the data block to disk
		bcs	write_exit	;get out of here with the error code

clean_blk				; 
		jsr	user_to_temp	;temp_ptr := user_buf_ptr
		clc
		jsr	get_write_blk	;is there a current block allocated?
		bne	block_allocated	;yes there is a block allocated.

		jsr	chk_sparse	;is the user's data sparse?
		bcc	do_flush	;data sparse so flush queued data blocks
;		sec
		jsr	get_write_blk	;allocate a block please
		bcc	@no_error
		brl	write_exit	;cannot allocate a new block?
@no_error
		pha
		jsr	user_to_temp	;point to user's buffer
		pla
block_allocated				; 
		sta	drvr_blk_num	;save the block number to write.
		jsr	user_to_data	;move user's data to data buffer
		jsr	write_data_blk	;write the data block to disk.
		rts

do_flush				; 
		jsr	flush_blocks	;issue the flush command
		rts

user_to_data				; 
		lda	users_buf_ptr	;setup driver buffer pointer to
		sta	drvr_buf_ptr	;point to the user's data!
		lda	users_buf_ptr+2
		sta	drvr_buf_ptr+2
		rts

eof_error
		lda	#out_of_range	;you have pushed me too far!!!
		sec
		rts
		
		
		

;               ldy     #$01FE          ;move 512 bytes please
;user_loop       anop
;               lda     [drvr_buf_ptr],y
;               sta     [data_ptr],y
;               dey
;               dey
;               bpl     user_loop
;               rts

;==========================================================================
;partial_write: This routine will handle reading/writing a partial block
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;Uses:          All registers
;==========================================================================

partial_write				; 
		jsr	build_index	;simulate a disk write
		jsr	range_chk_eof	;see if we overrun the EOF
		bcs	eof_error	;sorry we have an eof error
		
		jsr	standard_req	;we can only write 512 bytes!
		jsr	flush_blocks	;write any left over seq. blocks
		bcs	end_partial	;error condition
		clc
		jsr	get_write_blk	;is there a current block allocated?
		bne	block_is_avail	;there is a block allocated.

; we know that the block is not allocated so check the data

		jsr	chk_sparse	;AND (data NOT sparse)
		bcc	is_sparse	;... (data IS sparse)
		jsr	get_write_blk	;allocate a block for the new data
		bcs	end_partial
		pha			;save the block number
		ldx	data_ptr	;clear the new data block
		ldy	data_ptr+2
		jsr	clear_index
		pla
block_is_avail				; 
		jsr	load_data	;load in the data block
		bcs	end_partial
		jsr	user_to_temp
		jsr	merge_data	;add data to current block!
		lda	#file_dirty+data_dirty
		jsr	set_fcr_status	;indicate that something changed.
		clc
		rts

is_sparse				; 
		ldy	#data_blk_num
		lda	[pro_fcr_ptr],y	;is block already loaded?
		beq	@sparse_loaded
		
		ldy	#fcr_status
		lda	[pro_fcr_ptr],y
		and	#data_dirty
		beq	@just_clear_buf	;no need to update the data block

		jsr	flush_data_blk
		bcs	end_partial
@just_clear_buf
		ldx	data_ptr	;clear the new data block
		ldy	data_ptr+2
		jsr	clear_index
		
		ldy	#data_blk_num
		lda	#$0000
		sta	[pro_fcr_ptr],y	;is block already loaded?
		
@sparse_loaded
		jsr	build_index	;simulate a disk write
		sta	drvr_req_cnt
		stz	drvr_req_cnt+2
		clc
end_partial				; 
		rts
;==========================================================================
;Range_chk_eof	This routine will make sure the write call will work with
;		the three byte eof.
;
;Input:         A = write_count
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               curr_eof	;the current eof
;
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;Uses:          All registers
;==========================================================================
range_chk_eof
		clc
		adc	curr_mark
		lda	#0000
		adc	curr_mark+2	;check the high word
		and	#$FF00		;clear the result
		bne	range_err
		clc
		rts
range_err
		sec
		rts
		

;==========================================================================
;write_data_blk This routine will write data blocks to disk. The code will
;               determine if we can hold off writing to disk so we can
;               gain performance by doing a multi-block transfer call.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               drvr_blk_num            ;block number to write
;               drvr_buf_ptr            ;pointer to the data
;
;
;Output:        A = error code if carry set otherwise undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;Uses:          All registers
;==========================================================================

write_data_blk				; 
		lda	seq_write_cnt	;do we have anything to write?
		beq	new_block	;no
		lda	drvr_blk_num	;is this a sequential block write?
		dec	a
		cmp	seq_write_blk
		beq	bump_seq	;bump the sequential counter

		lda	drvr_blk_num	;save block number to write
		pha
		lda	drvr_buf_ptr
		pha
		lda	drvr_buf_ptr+2
		pha
		jsr	flush_blocks	;write any seq. blocks to disk
		plx
		stx	drvr_buf_ptr+2
		plx
		stx	drvr_buf_ptr
		plx
		stx	drvr_blk_num
		stz	seq_write_cnt
		bcs	end_write_data	;error

new_block				; 
		inc	seq_write_cnt	;advance the number of sequential blks
		lda	drvr_blk_num
		sta	seq_write_blk	;starting block for write call

		jsr	move_to_data_buf
		
		lda	drvr_buf_ptr
		sta	seq_write_start
		lda	drvr_buf_ptr+2
		sta	seq_write_start+2
end_write_data 
		lda	#data_clean	;indicate that we have written block.
		jsr	clr_fcr_status
		jsr	standard_req	;set drvr_req_cnt to 512 bytes.
		clc			;exit
		rts

bump_seq 
		inc	seq_write_cnt	;advance the block counter
		inc	seq_write_blk	;update new last sequential block
		lda	user_req_cnt+2
		bne	end_write_data
		lda	user_req_cnt
		cmp	#blk_size*2
		bcs	end_write_data
		
		ldy	#data_blk_num
		lda	drvr_blk_num
		cmp	[pro_fcr_ptr],y	;Should I Copy the data to the buffer
		bne	end_write_data	;Do not move the data.
		
		jsr	do_data_update
		bra	end_write_data
;
;This routine copies the user's data to the I/O Buffer
;
;input:	A = block number
;
move_to_data_buf
		ldy	#data_blk_num
		cmp	[pro_fcr_ptr],y	;is block already loaded?
		bne	io_buf_ok	;don't worry about I/O buffer update
do_data_update
		pei	drvr_buf_ptr+2	;address of user's data
		pei	drvr_buf_ptr
		
		pei	data_ptr+2	;destination address
		pei	data_ptr
		pea	$0000		;high word of count
		pea	blk_size	;number of bytes to send
		pea	move_sinc_dinc
		jsl	move_info
io_buf_ok	rts

;==========================================================================
;flush_blocks:  This routine will write out any data blocks that have not
;               been written to disk.  If will also make sure that the I/O
;               buffer contains valid data.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = error code if carry set otherwise undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;Uses:          All registers
;==========================================================================
		EXPORT	flush_blocks
flush_blocks				;               
		lda	seq_write_cnt	;is there anything to write?
		bne	must_write
		clc
		rts

must_write				; 
		stz	seq_write_cnt	;reset the sequential block counter
		stz	drvr_req_cnt	;setup the write count
		asl	a		;convert blocks to bytes
		sta	drvr_req_cnt+1
		lsr	a		;now get the starting block
		dec	a		;subtract one please
		pha
		sec
		lda	seq_write_blk
		sbc	1,s
		sta	drvr_blk_num	;starting block number
		pla			;fix the stack

		lda	seq_write_start
		sta	drvr_buf_ptr
		lda	seq_write_start+2
		sta	drvr_buf_ptr+2	;pointer to the data
		jsr	write_with_mount
		bcs	flush_error
		jsr	standard_req
		clc
flush_error				; 
		rts



;==========================================================================
;Set temp_ptr to the user's buffer pointer
;==========================================================================

user_to_temp				; 
		lda	users_buf_ptr
		sta	temp_ptr	;set pointer to head of data
		lda	users_buf_ptr+2
		sta	temp_ptr+2
		rts

users_to_drvrs				; 
		lda	users_buf_ptr
		sta	drvr_buf_ptr	;set pointer to head of data
		lda	users_buf_ptr+2
		sta	drvr_buf_ptr+2
		rts


;==========================================================================
;merge_data:    This routine will add in the user's data into the I/O
;               buffer.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               curr_mark               ;current file marker
;               pro_fcr_ptr             ;points to file control record
;               data_ptr                ;points to data block in I/O buffer.
;               temp_ptr                ;points to user data
;               user_req_cnt            ;used by build_index
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;
;               b = k
;
;               drvr_req_cnt            ;equals bytes moved
;
;
;uses:          all registers
;               math_temp
;==========================================================================
merge_data				; 
		jsr	build_index	;'A' = 1 to $1FF
		sta	math_temp	;save count
		sta	drvr_req_cnt	;simulate a write to disk.

		dec	a		;A,X,Y perserved by 'update..' routine
		pha
		tay			;'Y' = 0 to $1FE (move count)
		clc
		lda	curr_mark
		and	#$01FF
		adc	1,s		;make index from END of buffer
		tax			;index into data buffer
		pla			;fix the stack

		longa	off		;block after the merge
		sep	#$20

merge_loop				; 
		lda	[temp_ptr],y	;pointer to user's data
		phy			;save user index
		txy
		sta	[data_ptr],y	;store in the I/O buffer
		dex
		ply
		dey
		bpl	merge_loop	;I/O buffer updated.

		longa	on
		rep	#$20

		clc
		lda	curr_mark	;save the mark
		pha
		adc	math_temp
		sta	curr_mark
		lda	curr_mark+2
		pha
		adc	#$0000
		sta	curr_mark+2

		jsr	clr_to_boundary	;Clear to blk boundary

		pla
		sta	curr_mark+2
		pla
		sta	curr_mark

		rts


;==========================================================================
;See if we have to deal with a sparse block.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               curr_mark               ;current file marker
;               pro_fcr_ptr             ;pointer to file control record
;               temp_ptr                ;pointer to user's data buffer
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = sparse
;                          0 = not sparse
;               b = k
;
;uses:          all registers
;               math_temp
;
;FUNCTION sparse():boolean ;
; BEGIN
;  index := (curr_mark MOD 512) ;
;  sparse := true ;
;  While (index < block_size) and (index < user_req) and (sparse = true) DO
;        BEGIN
;           IF data[index] <> 0 THEN
;              sparse := flase
;           index := index + 1 ;
;        END
; END
;==========================================================================
chk_sparse				; 
		jsr	user_to_temp	;temp_ptr := user_buf_ptr
		jsr	build_index
		tay			;number of bytes to scan
		dey			;force 1 to $0200 to 0 to $01FF
		longa	off
		sep	#$20		;short accum for test
scan_loop				; 
		lda	[temp_ptr],y	;pointer to user's data
		bne	non_sparse
		dey
		bpl	scan_loop
		longa	on
		rep	#$20		;restore 16 bit mode
		clc
		rts			;user data is all sparse

non_sparse				; 
		longa	on
		rep	#$20		;restore 16 bit mode
		sec
		rts

build_index				; 
		lda	curr_mark	;number of bytes to check in user buf.
		and	#$01FF		;0 to $1FF
		pha
		sec
		lda	#blk_size	;calc number of bytes to scan
		sbc	1,s		;range $0001 to $0200
		ply			;fix the stack

		ldy	user_req_cnt+2	;how many bytes do we need to write?
		bne	full_scan

		cmp	user_req_cnt
		bcc	full_scan
		lda	user_req_cnt

full_scan				; 
		rts

		ENDP

;==========================================================================
;update_mark_eof:
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               curr_mark               ;current file marker
;               curr_eof                ;current end of file
;               pro_fcr_ptr             ;pointer to file control record
;
;Output:        A = restored
;               X = restored
;               Y = restored
;               P = nvmxdizc
;                   ..000...
;
;               b = k
;==========================================================================
		EXPORT	update_mark_eof	
update_mark_eof	PROC

		pha
		phx
		phy

		lda	curr_mark+2
		cmp	curr_eof+2
		bcc	end_update	;EOF still OK
		beq	chk_low_eof
		bra	update_the_eof

chk_low_eof				; 
		lda	curr_mark
		cmp	curr_eof
		beq	end_update
		bcc	end_update	;EOF still OK

update_the_eof				; 
		lda	curr_mark+2
		sta	curr_eof+2	;save the high byte
		lda	curr_mark
		sta	curr_eof	;save the low byte

end_update				; 
		ply
		plx
		pla
		rts
		ENDP


;==========================================================================
;get_write_blk: This routine will return the block number for the new data.
;               If the file has a block allocated then that block number
;               is returned otherwise a new block is allocated for the file.
;               If the file needs to be expanded then it will be.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = allocate a new block if block not allocated
;                          0 = just return current block number. (0 or blk num)
;               b = k
;
;               curr_mark               ;current file marker
;               pro_fcr_ptr             ;points to file control record
;
;Output:        A = block number of error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;
;uses:          all registers
;               math_temp
;==========================================================================

		EXPORT	get_write_blk	
get_write_blk	PROC

		php			;save check flag.
		php
		pla
		sta	alloc_chk_flag
		lsr	a		;are we looking for a
		bcs	do_allocation
		jsr	chk_allocation
		rts
;
;If here then we need to allocate or return the current block.
;
do_allocation				; 
		clc
		lda	curr_mark
		adc	#$0001
		sta	data_eof
		lda	curr_mark+2
		adc	#$0000
		sta	data_eof+2
		jsr	eof_to_blks	;convert current position to blks.

		lda	data_storage	;storage type needed (seed,sapling,tree)
		cmp	#seedling_type
		bne	sapling_case
		brl	add_new_block	;just go and get the block please

sapling_case				; 
		cmp	#sapling_type
		bne	tree_case
;
;IF new_type = sapling THEN
;   IF old_type = seedling THEN
;      seedling_to_sapling
;   ELSE
;      add_index
;
;
		ldy	#fcr_storage	;current storage type
		lda	[pro_fcr_ptr],y
		cmp	#seedling_type
		bne	add_new_block
		jsr	seed_to_sap	;convert a seedling to a sapling
		bcc	add_new_block
		rts

;
;IF new_type = tree THEN
;   IF old_type = seedling THEN
;      BEGIN
;          seedling_to_sapling
;          sapling_to_tree
;      END
;   ELSE
;      IF old_type = sapling THEN
;         sapling_to_tree
;      ELSE
;         IF old_type = tree THEN
;            BEGIN
;              IF master_index[curr_mark] = nil THEN
;                 add_master_index
;              add_index
;            END
;

tree_case				; 
		ldy	#fcr_storage	;current storage type
		lda	[pro_fcr_ptr],y
		cmp	#seedling_type
		bne	not_seed
		jsr	seed_to_sap	;convert seedling to a sapling
		bcs	abort_tree
		jsr	sapling_to_tree	;convert a sapling to a tree
		bcc	add_new_block
abort_tree	rts

not_seed				; 
		cmp	#sapling_type	;is this a sapling file
		bne	not_sapling
		jsr	sapling_to_tree	;convert a sapling to a tree
		bcs	abort_tree
		bra	add_new_block

not_sapling				; 
		lda	curr_mark+2	;see if the index block is allocated
		lsr	a
		ldx	master_ptr
		ldy	master_ptr+2
		jsr	get_index_blk	;get the index block out of master blk
		tax
		bne	add_new_block	;we do not need to add an index block
		jsr	tree_to_tree	;add a new index block
		bcs	abort_tree

;==========================================================================
;Now lets see if we need to add a new block or return the current block.
;==========================================================================
add_new_block				; 
		jsr	calc_free_blks	;make sure that we have a block avail.
		bcs	abort_tree	;just exit
		tax
		bne	we_have_room
		brl	out_of_room

we_have_room				; 
		ldy	#master_blk_num	;see if we should even have looked at
		lda	[pro_fcr_ptr],y
		beq	no_master	;there is no master block for this file

		lda	curr_mark+2	;see if we need the master index block
		lsr	a
		ldx	master_ptr	;get the block number from index block
		ldy	master_ptr+2
		jsr	get_index_blk	;A = block number
		tax
		bne	cont01		;there is an index block

		ldy	#fcr_status	;see if old index needs to be flushed
		lda	[pro_fcr_ptr],y
		and	#index_dirty
		beq	no_index_flush
		jsr	flush_index
		bcs	abort_tree	;exit

no_index_flush				; 
		ldx	master_ptr
		ldy	master_ptr+2
		lda	curr_mark+2
		lsr	a		;now build a new index block
		jsr	new_block
		bcs	abort_tree	;sorry major problem
		pha			;save the block number
		lda	#master_dirty+index_dirty+file_dirty
		jsr	set_fcr_status	;indicate master block dirty
		ldx	index_ptr	;clear the new buffer
		ldy	index_ptr+2
		jsr	clear_index
		pla
		ldy	#index_blk_num
		sta	[pro_fcr_ptr],y

cont01					; 
		ldy	#index_blk_num
		cmp	[pro_fcr_ptr],y	;is the block loaded?
		beq	no_master	;no problem
		sta	key_block	;save the block wanted.
		jsr	flush_index	;write any dirty blocks to disk
		bcs	end_write_blk	;major problems

		lda	key_block	;load in the index block please
		pha
		jsr	load_index
		plx			;restore block number
		bcs	end_write_blk
		txa
		ldy	#index_blk_num
		sta	[pro_fcr_ptr],y

no_master				; 
		lda	curr_mark+1
		lsr	a
		and	#$00FF
		ldx	index_ptr	;get the block number from index block
		ldy	index_ptr+2
		jsr	get_index_blk	;A = block number
		tax
		bne	have_blk

		ldy	#fcr_status	;see if data block needs to be written
		lda	[pro_fcr_ptr],y
		and	#data_dirty
		beq	data1_clean
		jsr	flush_data_blk
		bcs	end_write_blk

data1_clean				; 
		ldx	index_ptr
		ldy	index_ptr+2
		lda	curr_mark+1
		lsr	a		;now build a new index block
		and	#$00FF
		jsr	new_block
		bcs	end_write_blk	;sorry major problem
		pha			;save the block number
		ldy	#data_blk_num
		sta	[pro_fcr_ptr],y	;save the new block number
		lda	#index_dirty+file_dirty+data_dirty
		jsr	set_fcr_status	;indicate master block dirty
		pla
have_blk				; 
		jsr	load_data
		bcs	end_write_blk
		lda	drvr_blk_num
		clc
end_write_blk				; 
		rts


		EXPORT	load_data
load_data				;               ;input A= block to load
		ldy	#data_blk_num
		cmp	[pro_fcr_ptr],y	;is block already loaded?
		beq	exit_load_data
		
		pha			;save the block to load
		ldy	#fcr_status
		lda	[pro_fcr_ptr],y
		and	#data_dirty
		beq	dont_update

		jsr	flush_data_blk
		bcs	end_load_data
dont_update				; 
		lda	data_ptr
		sta	drvr_buf_ptr
		lda	data_ptr+2
		sta	drvr_buf_ptr+2
		lda	1,s		;get the block number to load
		sta	drvr_blk_num
		jsr	read_with_mount	;read in the new data block
		bcs	end_load_data

		ldy	#data_blk_num	;update current loaded block
		lda	drvr_blk_num
		sta	[pro_fcr_ptr],y
		pla
exit_load_data				; 
		clc
		sta	drvr_blk_num
		rts

end_load_data				; 
		plx			;fix the stack please
		sec
		rts

;==========================================================================
;new_block:     This routine will allocate a new block from the system
;               and add the block number in the index block pointed to
;               by the X and Y registers.
;
;Input:         A = index
;               X = low word pointer to index block
;               Y = high word pointer to index block
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = block number allocated or error code
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;
;uses:          all registers
;               temp4_ptr
;==========================================================================
new_block				; 
		stx	temp4_ptr	;pointer to the index block
		sty	temp4_ptr+2
		pha			;save the index
		jsr	calc_free_blks	;make sure that we a free block
		bcs	add_failed
		tax
		beq	to_no_room
		lda	#$0001		;allocate one block
		ldx	#$0000		;start at block zero
		jsr	find_free_blks
		bcs	add_failed
		phx			;save the block number
		jsr	bump_blks_used
		lda	3,s		;get the index please
		tay			;save the low index
		ora	#$0100
		tax			;save the high index
		pla
		longa	off
		sep	#$20		;8 bit mode
		sta	[temp4_ptr],y
		xba
		txy
		sta	[temp4_ptr],y
		longa	on
		rep	#$20		;16 bit mode
		xba
		plx			;fix the stack
		clc
		rts

add_failed	plx			;fix the stack
		rts

to_no_room	pla			;fix the stack
		brl	out_of_room


bump_blks_used				; 
		ldy	#fcr_blks_used
		lda	[pro_fcr_ptr],y
		inc	a		;advance the blocks used count
		sta	[pro_fcr_ptr],y
		lda	#dirEntry_dirty	;the directory entry needs updating when flushed
		jsr	set_fcr_status
		rts

;==========================================================================
;get_index_blk: This routine will load a block number out of an index block
;
;Input:         A = index
;               X = low word pointer to index block
;               Y = high word pointer to index block
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = block number
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;uses:          all registers
;               temp_ptr
;==========================================================================

		EXPORT	get_index_blk
get_index_blk				;               
		stx	temp_ptr
		sty	temp_ptr+2
		tax			;low word index
		ora	#$0100		;high word index
		tay
		longa	off
		sep	#$20		;8 bit accum
		lda	[temp_ptr],y	;get the high word block number
		xba
		txy
		lda	[temp_ptr],y	;get the low word block number
		longa	on
		rep	#$20		;16 bit accum
		rts

;==========================================================================
;Convert a seedling file into a sapling file.
;==========================================================================
seed_to_sap				; 
		jsr	flush_blocks	;flush anydata still around
		bcc	do_sap
		rts
do_sap					; 
		jsr	calc_free_blks	;see how many blocks we have
		tax
		bne	lots_of_room
		brl	out_of_room	;sorry bud not today

lots_of_room				; 
		lda	#$0001		;go get me a new block
		ldx	#$0000		;start looking at block zero
		jsr	find_free_blks
		bcs	end_to_sap
		txa			;new key block
		pha

		ldy	index_ptr
		sty	temp4_ptr
		ldy	index_ptr+2
		sty	temp4_ptr+2

		dec	a		;see if we should flip data and index
		ldy	#fcr_key_blk	;
		cmp	[pro_fcr_ptr],y
		beq	do_flip

		txa
		ldy	#index_blk_num
		sta	[pro_fcr_ptr],y	;save the new index block number
		jsr	bump_blks_used

		ldy	#fcr_key_blk	;data block address
		lda	[pro_fcr_ptr],y
		ldy	#$0000		;store as first entry in index block
		jsr	add_index

		lda	#index_active+index_dirty+file_dirty
		jsr	set_fcr_status	;mark index block active
		pla			;restore key block
		ldx	#sapling_type
		jsr	update_new_type
		rts

end_to_sap				; 
		rts

do_flip					; 
		ldy	#fcr_status	;see if the data block is dirty
		lda	[pro_fcr_ptr],y
		and	#data_dirty
		beq	onward
		jsr	flush_data_blk
		bcc	onward
		plx			;fix the stack!!!!
		rts

onward					; 
		ldy	#fcr_key_blk	;load in the data block
		lda	[pro_fcr_ptr],y
		sta	drvr_blk_num
		ldy	#data_blk_num
		sta	[pro_fcr_ptr],y	;update current data block

		lda	data_ptr
		sta	drvr_buf_ptr
		lda	data_ptr+2
		sta	drvr_buf_ptr+2
		jsr	read_with_mount	;read in the data block
		bcc	onward2
		plx			;fix the stack
		rts

onward2					; 
		pla			;get the new block number
		ldy	#data_blk_num
		sta	[pro_fcr_ptr],y	;now the data block has changed
		ldy	#$0000		;store as first entry in index block
		jsr	add_index

		lda	#index_active+index_dirty+file_dirty+data_dirty
		jsr	set_fcr_status	;mark index block active
		jsr	bump_blks_used

		ldy	#fcr_key_blk
		lda	[pro_fcr_ptr],y
		ldy	#index_blk_num
		sta	[pro_fcr_ptr],y	;now the index is new
		ldx	#sapling_type
		jsr	update_new_type
		rts

out_of_room				; 
		lda	#volume_full
		sec
		rts

sapling_to_tree				; 
		jsr	calc_free_blks	;see how many blocks we have
		tax
		beq	out_of_room	;sorry bud not today
		lda	#$0001		;go get me a new block
		ldx	#$0000		;start looking at block zero
		jsr	find_free_blks
		bcs	end_to_tree
		txa			;new key block
		pha
		ldy	#master_blk_num
		sta	[pro_fcr_ptr],y	;save the master index blk num
		jsr	bump_blks_used

		lda	master_ptr
		sta	temp4_ptr
		lda	master_ptr+2
		sta	temp4_ptr+2

		ldy	#fcr_key_blk	;current data block
		lda	[pro_fcr_ptr],y
		ldy	#$0000		;store as first entry in index block
		jsr	add_index
		lda	#master_active+master_dirty+file_dirty
		jsr	set_fcr_status	;mark index block active
		pla			;restore key block
		ldx	#tree_type
		jsr	update_new_type
end_to_tree				; 
		rts

tree_to_tree				; 
		jsr	calc_free_blks	;see how many blocks we have
		tax

		beq	out_of_room	;sorry bud not today
		lda	#$0001		;go get me a new block
		ldx	#$0000		;start looking at block zero
		jsr	find_free_blks
		bcs	end_to_tree
		phx			;save the block number

		lda	master_ptr
		sta	temp4_ptr
		lda	master_ptr+2
		sta	temp4_ptr+2
		jsr	bump_blks_used	;must not use X register

		lda	curr_mark+2
		lsr	a
		tay			;index into master block
		txa			;new index block

		jsr	add_index
		lda	#master_dirty+file_dirty
		jsr	set_fcr_status	;indicate master index block is dirty
		ldy	#fcr_status	;see if current index block is dirty
		lda	[pro_fcr_ptr],y
		and	#index_dirty
		beq	mister_clean
		jsr	flush_index
		bcc	mister_clean
		plx			;fix the stack
		rts
mister_clean				; 
		ldy	#index_blk_num	;the current index block
		pla			;restore new index block number
		sta	[pro_fcr_ptr],y
		lda	#index_dirty+file_dirty
		jsr	set_fcr_status	;indicate that this block is dirty
		ldx	index_ptr
		ldy	index_ptr+2	;clear the current index
		jsr	clear_index
		clc
		rts

		EXPORT	clear_index
clear_index				;               
		stx	temp4_ptr	;zero out the buffer pointed to by
		sty	temp4_ptr+2	;X and Y
		ldy	#$01FE
		lda	#$0000
clr_index	sta	[temp4_ptr],y
		dey
		dey
		bpl	clr_index
		rts

;==========================================================================
;update_new_type:
;               This routine will update the FCR to reflect the new storage
;               type, and key block for a file
;
;Input:         A = new key block
;               X = new storage type
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               pro_fcr_ptr             ;points to file control record
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;uses:          all registers
;==========================================================================

update_new_type				; 
		pha			;save new key block
		ldy	#fcr_key_blk
		sta	[pro_fcr_ptr],y
		ldy	#fcr_entry_type
		lda	[pro_fcr_ptr],y	;is this a resource type?
		cmp	#resource_type
		beq	is_resource

		txa			;save the new storage type
		sta	[pro_fcr_ptr],y
		lda	1,s		;save the new key block
		ldy	#fcr_file_id
		sta	[pro_fcr_ptr],y

is_resource				; 
		pla			;fix the stack
		ldy	#fcr_storage	;store the new storage type
		txa
		sta	[pro_fcr_ptr],y
		jsr	flush_file	;force directory update.
		rts
		ENDP

;==========================================================================
;chk_allocation:
;               This routine will return the block number of a data block
;               if the file contains a data block
;
;Input:         A = undefined
;               X = undefin
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               pro_fcr_ptr             ;points to file control record
;
;Output:        A = block number if 'z' = 0
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error and 'z' flag valid
;                         1  = no block allocated
;                         0  = A = block number
;               b = k
;
;
;uses:          all registers
;==========================================================================

;==========================================================================
;IF (curr_mark = tree) AND (storage <> tree) THEN
;   no_block allocated
;
;==========================================================================

		EXPORT	chk_allocation	
chk_allocation	PROC			;see if there is block allocated.

		lda	curr_mark+2	;see if we need the master index block
		lsr	a
		ldx	master_ptr	;get the block number from index block
		ldy	master_ptr+2
		jsr	get_index_blk	;A = block number
		tax
		bne	cont01		;there is an index block
;
;IF (type = tree) AND (index = sparse) THEN block_not_allocated
;
chk_tree				; 
		ldy	#fcr_storage
		lda	[pro_fcr_ptr],y
		cmp	#tree_type	;does this puppy even have a master blk?>
		bne	chk_sapling	;there is no master index block
		clc
		rts

;
;IF (type <> tree) AND (curr_mark = tree) THEN block_not_allocated
;
chk_sapling				; 
		lda	curr_mark+2	;is the mark in tree range
		lsr	a
		beq	index_loaded	;mark not in tree range
		bra	no_block

cont01					; 
		ldy	#index_blk_num
		cmp	[pro_fcr_ptr],y	;is the block already loaded?
		beq	index_loaded
		pha			;save the block number
		ldy	#fcr_status
		lda	[pro_fcr_ptr],y
		and	#index_dirty	;is the current index dirty?
		beq	index1_clean
		jsr	flush_index
		bcc	index1_clean
		plx
		rts
index1_clean				; 
		pla			;retore block number
		ldy	#index_blk_num
		sta	[pro_fcr_ptr],y	;save the new block please
		jsr	load_index
		bcc	index_loaded
		rts

index_loaded				; 
		lda	curr_mark+1
		lsr	a
		and	#$00FF
		ldx	index_ptr	;get the block number from index block
		ldy	index_ptr+2
		jsr	get_index_blk	;A = block number
		tax
		bne	exit_chk_alloc
;
;IF (type = sapling) AND (data = sparse) THEN block_not_allocated
;
		ldy	#fcr_storage
		lda	[pro_fcr_ptr],y
		cmp	#sapling_type	;does this puppy even have an index blk
		bcc	chk_seedling	;there is no index block
		txa			;reset the flag please

exit_chk_alloc				; 
		clc
		rts

chk_seedling
		lda	curr_mark+1
		lsr	a
		and	#$00FF
		beq	get_key_blk	;mark < 512
no_block
		ldx	#$0000
		sep	#$02		;set the 'Z' flag
		clc
		rts

get_key_blk				; 
		ldy	#fcr_key_blk
		lda	[pro_fcr_ptr],y
		tax			;setup the x register with the block number
		clc
		rts

		EXPORT	load_index
load_index
		;enter with A = block number

	;next 3 lines added 8/6/90 by Monte Benaresh
		pha			;save block # for a moment
		jsr standard_req	;set drvr_req_cnt to $200
		pla			;restore block number

		sta	drvr_blk_num
		lda	index_ptr
		sta	drvr_buf_ptr
		lda	index_ptr+2
		sta	drvr_buf_ptr+2
		jsr	read_with_cache
		rts

		ENDP

;==========================================================================
;Clr_to_boundary        This routine will clear data from the current EOF
;                       to the end of the block.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               curr_mark               ;current file marker
;               curr_eof                ;current end of file
;               pro_fcr_ptr             ;points to file control record
;               data_ptr                ;points to data block in I/O buffer.
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;
;               b = k
;
;
; IF (eof >= (curr_mark AND $FE00 + 512)) THEN
;    EXIT(clr_to_boundary)
; IF eof > curr_mark THEN
;    clear_index := eof
; ELSE
;    clear_index := curr_mark
; clear_block
;==========================================================================
		longa	on
		longi	on

		EXPORT	clr_to_boundary	
clr_to_boundary	PROC

		lda	curr_eof
		pha
		lda	curr_eof+2	;save the current end of file
		pha

		lda	curr_mark
		pha			;save the current mark
		lda	curr_mark+2
		pha

		lda	curr_mark	;if block aligned then exit
		and	#$01FF
		bne	not_aligned
		brl	exit_clr	;we do not have to clear anything

not_aligned

;
;curr_mark := ((curr_mark and $FE00) + 512) ;
;
		clc
		lda	curr_mark	;move to a block boundary
		and	#$FE00
		adc	#blk_size	;add in 512 bytes
		sta	curr_mark
		lda	curr_mark+2
		adc	#$0000
		sta	curr_mark+2
;
; IF (eof >= (curr_mark AND $FE00 + 512)) THEN
;    EXIT(clr_to_boundary)
;
		lda	curr_eof+2
		cmp	curr_mark+2
		beq	chk_low
		bcs	exit_clr	;EOF not in this block
		bcc	second_if	;continue process
chk_low					; 
		lda	curr_eof
		cmp	curr_mark
		bcs	exit_clr	;EOF not in this block

;
; IF EOF < curr_mark AND $FE00 THEN
;    clear_index := curr_mark
;
second_if				; 
		lda	3,s		;get the low word of the mark
		and	#$FE00
		sta	curr_mark

		lda	curr_eof+2
		cmp	1,s		;check high word
		beq	second_low
		bcs	third_if	;EOF is in this block
		bcc	use_mark	;EOF not in this block
second_low				; 
		lda	curr_eof
		cmp	curr_mark
		bcs	third_if	;EOF is in the block
		bcc	use_mark	;EOF not in this block

;
; IF eof > curr_mark THEN
;    clear_index := eof
;
third_if				; 
		lda	curr_eof+2	;is eof > curr_mark
		cmp	1,s		;high word of curr_mark
		beq	third_low
		bcs	use_eof		;clear from EOF
		bcc	use_mark	;clear from current mark
third_low				; 
		lda	curr_eof
		cmp	3,s
		bcs	use_eof		;use the eof as the value

use_mark				; 
		lda	3,s		;get the low word of current mark
		and	#$01FF		;clear garbage
		beq	exit_clr	;do not clear the buffer
		bra	do_clear

use_eof					; 
		lda	curr_eof
		and	#$01FF
		beq	exit_clr	;do not clear the buffer

do_clear
		tay			;make an index into block
		iny
		cpy	#blk_size
		beq	exit_clr
		tya			;can we clear the block fast
		lsr	a
		bcc	clear_it_fast

		lda	#$0000		;clear value
		longa	off
		sep	#$20		;8 bit mode
		bra	enter		;start the loop
clear_it
		sta	[data_ptr],y
		iny
enter
		cpy	#blk_size	;are we done
		bcc	clear_it
		longa	on
		rep	#$20
		bra	exit_clr

clear_it_fast
		lda	#$0000
		bra	enter_fast
fast_loop
		sta	[data_ptr],y
		iny
		iny
enter_fast
		cpy	#$0200		;are we done
		bcc	fast_loop


exit_clr				; 
		pla			;restore the curr_mark
		sta	curr_mark+2
		pla
		sta	curr_mark

		pla
		sta	curr_eof+2	;restore the current end of file
		pla
		sta	curr_eof
		lda	#data_dirty+file_dirty
		jsr	set_fcr_status
		rts
		ENDP
;==========================================================================
;Close:         This routine will close a file.
;
;Created:       aug 04, 1987
;Modified:      aug 04, 1987
;Author:        Rob Turner
;
;Enter:         jml
;
;Input:         A = undefined
;               X = call number times 2
;               Y = class times 2
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;Uses:          All registers
;               fill_io_buf
;
;Call Format:
;
;Class 0        Reference Number        (2 Bytes)
;
;Class 1        PCount                  (2 Bytes)
;               Reference Number        (2 Bytes)
;
;==========================================================================
		longa	on
		longi	on

		EXPORT	close		
close		PROC

;==========================================================================
;First preprocess the call to setup the needed parameters.
;==========================================================================

		jsr	setup_params
		dec	close_flag	;call slug ripple please
		jsr	flush_file	;force data to the disk
		bcc	flushed
		jmp	main_exit

flushed					; 
		jsr	remove_fcr
		jmp	main_exit

		ENDP
;==========================================================================
;flush:         This routine will flush a file.
;
;Created:       aug 04, 1987
;Modified:      aug 04, 1987
;Author:        Rob Turner
;
;Enter:         jml
;
;Input:         A = undefined
;               X = call number times 2
;               Y = class times 2
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;Uses:          All registers
;               fill_io_buf
;
;Call Format:
;
;Class 0        Reference Number        (2 Bytes)
;
;Class 1        PCount                  (2 Bytes)
;               Reference Number        (2 Bytes)
;
;==========================================================================
		longa	on
		longi	on

		EXPORT	flush		
flush		PROC

;==========================================================================
;First preprocess the call to setup the needed parameters.
;==========================================================================

		jsr	setup_params
		dec	close_flag	;call slug_ripple please

;	New code added March 27, 1990 to support fast/slow flush,
;	by Monte Benaresh, based on Andy Stadler's proposed
;	changes.

		lda pcount		;check number of params given by caller
		cmp #2			;did he specify type of flush?
		bcc slow_flush		;too few, default to full flush

choose_flush			;caller specified type of flush
;		valid flush types are:
;			$0000 = full flush, data and directory blocks
;			$8000 = fast flush, data blocks only

		ldy #4			;offset to flush type in param block
		lda [param_blk_ptr],y	;get flush type

		asl a			;get high bit
		beq flush_type_ok	;low bits must be 0!

bad_flush_type				;invalid value for flush type
		lda #parm_range_err
		sec
		bra flush_done		;return with error

flush_type_ok				;get here with high bit of flush type in carry
		bcc slow_flush		;flush type was $0000

fast_flush				;flush type was $8000
		jsr do_fast_flush	;write out all dirty data blocks, dirty
;					 bitmap blocks, and the directory entry
;					 only if it's been changed (mod date doesn't count!)
		bra flush_done		;handle error elsewhere
slow_flush
		jsr	flush_file	;force data to the disk

flush_done
		jmp	main_exit

		ENDP
;==========================================================================
;Set_mark:      This routine will set a file position marker.
;
;Created:       may 23, 1987
;Modified:      may 23, 1987
;Author:        Rob Turner
;
;Enter:         jml
;
;Input:         A = undefined
;               X = call number times 2
;               Y = class times 2
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;Uses:          All registers
;               fill_io_buf
;
;Call Format:
;
;Class 0        Reference Number        (2 Bytes)
;               File Position           (4 Bytes)
;
;Class 1        PCount                  (2 Bytes)
;               Reference Number        (2 Bytes)
;               Base                    (2 Bytes)
;                       00 = Absolute
;                       01 = Backward From EOF
;                       02 = Forward From Current Mark
;                       03 = Backward From Current Mark
;               Displacement            (4 Bytes)
;
;==========================================================================
		longa	on
		longi	on

		EXPORT	set_mark	
set_mark	PROC

;==========================================================================
;First preprocess the call to setup the needed parameters.
;==========================================================================
		stz	base
		jsr	setup_params
		beq	class0

;==========================================================================
;Fall thru if this is a class1 call
;==========================================================================
		ldy	#pblk_16_base
		jsr	check_base
		ldy	#pblk_16_disp
		bra	main_entry

class0					; 

;==========================================================================
;If this is a class zero call then setup an index to the file position
;and continue on.
;==========================================================================
		ldy	#$0002		;index to displacement

main_entry				; 

;==========================================================================
;Save the user's requested displacement
;==========================================================================

		lda	[my_pblk_ptr],y
		sta	displacement
		iny
		iny
		lda	[my_pblk_ptr],y

		sta	displacement+2

;==========================================================================
;Setup 'curr_eof' and 'curr_mark'
;
;               IF (curr_mark < 00) or (curr_mark > EOF) THEN
;                  BEGIN
;                     Error:= position_out_of_range_error
;                     EXIT(Set_Mark)
;                  END
;==========================================================================

		jsr	calc_curr_mark
		bcc	set_the_mark
		lda	#out_of_range

set_mark_exit 
		jmp	main_exit

set_the_mark	
;==========================================================================
;refill I/O buffer with the new data blocks needed.
;==========================================================================

		jsr	fill_io_buf
		bcs	set_mark_exit

;==========================================================================
;go and update the FCR with the new curr_mark.
;==========================================================================

		jsr	save_curr_mark
		clc

;==========================================================================
;Exit all happy since the call was successful
;==========================================================================

		bra	set_mark_exit

		ENDP

;==========================================================================
;check_base     This routine will verify that the base is within range
;
;Created:       may 23, 1987
;Modified:      may 23, 1987
;Author:        Rob Turner
;
;
;Enter:         jsr
;
;Input:         A = undefined
;               X = undefined
;               Y = offset to base field
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;               BASE                    (contains value of the base)
;
;Uses:          All registers
;
;==========================================================================
		longa	on
		longi	on

		EXPORT	check_base	
check_base	PROC

		lda	[my_pblk_ptr],y
		cmp	#max_base+1
		bcs	range_error
		sta	base
		rts

		EXPORT	range_error
range_error				;               
		lda	#parm_range_err
		jmp	main_exit
		ENDP

;==========================================================================
;calc_curr_mark This routine will calculate the current mark for a file
;               given BASE and DISPLACEMENT as input.
;
;Created:       may 23, 1987
;Modified:      may 23, 1987
;Author:        Rob Turner
;
;
;Enter:         jsr
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               BASE                    (base from param block)
;                       $00 = Absolute
;                       $01 = Backward From EOF
;                       $02 = Forward From Current Mark
;                       $03 = Backward From Current Mark
;
;               DISPLACEMENT            (displacement from param block)
;               pro_fcr_ptr             (pointer to my data in FCR
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   .<<000..1 = error if out of range
;                    |     0 = no error
;                    |
;                    |__   1 = error out of range any cases
;                          0 = result greater then current EOF
;
;               b = k
;
;               curr_mark               (contains correct position for mark)
;
;Uses:          All registers
;
;==========================================================================
		longa	on
		longi	on

		EXPORT	calc_curr_mark	
calc_curr_mark	PROC

;==========================================================================
;Setup the current EOF
;==========================================================================
		jsr	setup_curr_eof

;==========================================================================
;Setup the current file marker.
;==========================================================================
		jsr	setup_curr_mark

;==========================================================================
;Now we need to decide which way we need to move the mark.
;==========================================================================

		lda	base
		beq	absolute
		dec	a
		beq	back_from_eof
		dec	a
		beq	forward_mark

;==========================================================================
;If we fall thru to here then we need to set the mark backward from the
;current mark.
;==========================================================================

backward_mark				; 
		sec
		lda	curr_mark
		sbc	displacement
		sta	curr_mark
		lda	curr_mark+2
		sbc	displacement+2
		sta	curr_mark+2
		bcs	mark_ok
bad_range				; 
		sep	#carry+overflow	;set both carry and overflow flags
		rts			;exit with carry set to indicate error

;==========================================================================
;User wants to set the mark backward from the current end of file
;==========================================================================

back_from_eof				; 
		sec
		lda	curr_eof
		sbc	displacement
		sta	curr_mark
		lda	curr_eof+2
		sbc	displacement+2
		sta	curr_mark+2
		bcc	bad_range

mark_ok					; 
		clc
		rts

;==========================================================================
;Set the mark forward from the current mark.
;==========================================================================

forward_mark				; 
		clc
		lda	curr_mark
		adc	displacement
		sta	curr_mark
		lda	curr_mark+2
		adc	displacement+2
		sta	curr_mark+2
		bcc	check_range

greater_EOF				; 
		clv			;mark greater then current EOF!
		rts			;bad mark bud!

;==========================================================================
;Set the file marker to an absolute position.
;==========================================================================

absolute				; 
		lda	displacement
		sta	curr_mark
		lda	displacement+2
		sta	curr_mark+2

check_range				; 

;==========================================================================
;Make sure the curr_mark =< EOF.
;==========================================================================

		lda	curr_mark+2
		cmp	curr_eof+2
		beq	check_low_word	;more checking to do
		bcs	greater_eof	;value is greater then EOF
		rts			;carry clear no problem

check_low_word				; 
		lda	curr_mark
		cmp	curr_eof
		beq	good_mark
		bcs	greater_eof	;value is greater then EOF

good_mark				; 
		clc
		rts

		ENDP
;==========================================================================
;Get_mark:      This routine will return the file position marker.
;
;Created:       may 23, 1987
;Modified:      may 23, 1987
;Author:        Rob Turner
;
;Enter:         jml
;
;Input:         A = undefined
;               X = call number times 2
;               Y = class times 2
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Uses:          All registers
;
;Call Format:
;
;Class 0        Reference Number        (2 Bytes)
;               File Position           (4 Bytes)
;
;Class 1        PCount                  (2 Bytes)
;               Reference Number        (2 Bytes)
;               File Position           (4 Bytes)
;
;==========================================================================
		longa	on
		longi	on

		EXPORT	get_mark	
get_mark	PROC

;==========================================================================
;Call standard setup routine.
;==========================================================================

		jsr	setup_params

;==========================================================================
;Get the current file marker out of the FCR data area
;==========================================================================

		ldy	#fcr_curr_mark
		lda	[pro_fcr_ptr],y
		tax			;save low word
		iny
		iny
		lda	[pro_fcr_ptr],y

;==========================================================================
;Store the current file position into the user's parameter block.
;==========================================================================

		ldy	#pblk_17_pos+2	;file position
		sta	[my_pblk_ptr],y
		dey
		dey
		txa
		sta	[my_pblk_ptr],y
		clc
		jmp	main_exit
		ENDP
;==========================================================================
;Set_eof:       This routine will set the EOF of a file.
;
;Created:       jun 15, 1987
;Modified:      jun 15, 1987
;Author:        Rob Turner
;
;Enter:         jml
;
;Input:         A = undefined
;               X = call number times 2
;               Y = class times 2
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Uses:          All registers
;
;Call Format:
;
;Class 0        Reference Number        (2 Bytes)
;               File Position           (4 Bytes)
;
;Class 1        PCount                  (2 Bytes)
;               Reference Number        (2 Bytes)
;               Base                    (2 Bytes)
;                       00 = Absolute
;                       01 = Backward From EOF
;                       02 = Forward From Current Mark
;                       03 = Backward From Current Mark
;               Displacement            (4 Bytes)
;
;==========================================================================
		longa	on
		longi	on

		EXPORT	set_eof		
set_eof		PROC

		stz	base		;set default to absolute
		stz	key_blk_changed
;==========================================================================
;Call standard setup routine.
;==========================================================================

		jsr	setup_params
		beq	class0		;this is an old style call

;==========================================================================
;Now lets go and setup the base parameter please
;==========================================================================

		ldy	#pblk_18_base
		jsr	check_base
		ldy	#pblk_18_disp
		bra	main_entry

Class0					; 
		ldy	#pblk_18_odisp

main_entry				; 
		lda	[my_pblk_ptr],y
		sta	displacement
		iny
		iny
		lda	[my_pblk_ptr],y
		sta	displacement+2

;==========================================================================
;make sure the file is write enabled.
;==========================================================================
		ldy	#fcr_access
		lda	[my_fcr_ptr],y
		and	#ClrAllButAccess
		cmp	#write_access
		bcs	set_eof_ok
		lda	#invalid_access
		bra	set_eof_error

set_eof_ok				; 

		jsr	chk_disk_protect

;==========================================================================
;Get the current end of file out of the FCR data area and call routine
;that will calculate the new eof.  The new value for the EOF is returned
;in 'curr_mark'
;==========================================================================

		;brk $B2

		jsr	calc_curr_mark
		php			;save results
		lda	curr_mark
		sta	displacement
		lda	curr_mark+2
		sta	displacement+2
		plp

		;Following code changed 7/21/90 by Monte Benaresh

		;Since setup_real_eof finds the last physically allocated EOF of
		;the file, and since that number can be greater than the logical
		;EOF (when pre-allocated blocks exist beyond the logical EOF) or
		;less (when a trailing portion of the file is entirely sparse),
		;we need to call setup_real_eof before deciding whether we need
		;to cut blocks.

		;bcc	less_or_equal	;new EOF is =< current EOF
		;bvc	eof_greater	;new EOF is > current EOF

		bcc	calc_ok		;new EOF is =< current EOF
		bvc	calc_ok		;new EOF is > current EOF
		
		;The following error code was changed from "parm_range_err"
		;to "out_of_range".  1/22/91 CAE
bad_eof					; 
		lda	#out_of_range	;position out of range
set_eof_error 
		sec
set_eof_exit 
		jmp	main_exit
calc_ok
		;next call added 8/6/90 by Monte Benaresh to fix bug
		;introduced by change of 7/21/90

		jsr	flush_file	;force any dirty blocks to disk
		bcs	set_eof_error	;Major problems bud.

		jsr	setup_real_eof	;generate EOF based on allocation not logical
		bcs	set_eof_error	;Major problems bud.

		;code added 7/21/90 by Monte Benaresh (see note above)

		lda curr_eof+2		;this points to last physical allocation
		cmp displacement+2	;determine whether we need to cut blocks
		bcc eof_greater
		bne less_or_equal	;this line added 8/8/90 by Monte Benaresh

		lda curr_eof
		cmp displacement
		bcs less_or_equal
		;

eof_greater 
		lda	displacement+2
		and	#$FF00
		bne	bad_eof
save_eof 
		jsr	update_fcr_eof
		lda	key_blk_changed	;Did the Key Block for the file change?
		beq	@no_key_changed
		jsr	flush_file	;update both the Bitmap and Directory please
		bra	set_eof_exit
@no_key_changed
		jsr	flush_io_buffer	;update the disk please
		bra	set_eof_exit	;we are out of here

;If we get here we know that the new EOF is equal to (easy) or less then
;(hard) the current ("real") EOF.  If the EOF is less then the current eof then
;we must release blocks from the disk.

less_or_equal 
		jsr	flush_file	;force any dirty blocks to disk
		bcs	set_eof_error	;Major problems bud.

		;jsr	setup_real_eof	;generate EOF based on allocation not logical
		;bcs	set_eof_error	;Major problems bud.
	;last 2 lines not needed now -- Monte Benaresh, 7/21/90
		
		lda	displacement+2
		cmp	curr_eof+2
		bne	must_be_less	;the new eof is less then old eof
		lda	displacement
		cmp	curr_eof
		;bne	must_be_less
		beq save_eof		;same as what caller wants, but save this EOF
					;since it was calculated by setup_real_eof
					;Monte Benaresh -- 7/21/90

	;next 2 removed 7/21/90
		;clc
		;bra	set_eof_exit	;nothing to do

must_be_less

;If we get here we know the new EOF is less then the old EOF so we must
;do the cut back.

;convert current eof into relative block number
;last_block := ((current_eof-1) DIV 512)

;last_block = $0000 to $7FFF

		lda	curr_eof
		ora	curr_eof+2	;if zero DO NOT subtract one
		beq	no_sub1

		lda	curr_eof
		bne	ar1
		dec	curr_eof+2
ar1		dec	curr_eof

no_sub1
		lda	curr_eof+1	;convert EOF to blocks
		lsr	a
		sta	last_blk	;save block number of last block
		beq	save_eof	;file is already a seedling

;convert new_eof into relative block number
;new_last := ((displacement-1) DIV 512)

;new_last = $0000 to $7FFF

		lda	displacement
		sta	tran_cnt
		lda	displacement+2
		sta	tran_cnt+2

		lda	tran_cnt
		ora	tran_cnt+2	;if zero DO NOT subtract one
		beq	no_sub

		lda	tran_cnt
		bne	ar2
		dec	tran_cnt+2
ar2		dec	tran_cnt

no_sub 
		lda	tran_cnt+1	;convert EOF to blocks
		lsr	a
		sta	new_last	;save block number of last block

;WHILE last_blk <> new_last DO

while_loop
		lda	last_blk
		cmp	new_last
		beq	save_eof	;just exit with new EOF

;We now need to remove the last block in the file

		jsr	cut_block	;reduce blocks by one
		bcs	update_and_exit	;error occured
		dec	last_blk
		bra	while_loop

update_and_exit
		pha
		jsr	update_fcr_eof
		pla
		sec
		brl	set_eof_error

;Update the FCR with the new EOF value.  Also mark the FCR dirty

update_fcr_eof
		ldy	#fcr_eof
		lda	displacement	;store the NEW eof in the FCR
		tax
		sta	curr_eof
		sta	[pro_fcr_ptr],y
		iny
		lda	displacement+1
		sta	[pro_fcr_ptr],y
		sta	curr_eof+1

		ldy	#fcr_curr_eof	;update working EOF as well
		txa
		sta	[pro_fcr_ptr],y
		iny
		lda	displacement+1
		sta	[pro_fcr_ptr],y

		ldy	#fcr_status
		lda	[pro_fcr_ptr],y	;update file status word
		ora	#file_dirty	;we need to write to disk on close
		sta	[pro_fcr_ptr],y

;IF the new EOF is =< curr_mark THEN
;   curr_mark := EOF

		jsr	setup_curr_mark
		jsr	fill_io_buf	;added 1/23/90 to fix "Bredon" sparse file shrink bug
		bcc	@filledUp
		rts
@filledUp		
		lda	curr_mark+2
		cmp	displacement+2
		beq	check_lower
		bcs	adjust_mark
		bra	adjust_buffer	;current_mark < new EOF
check_lower
		lda	curr_mark
		cmp	displacement
		beq	no_adjust
		bcs	adjust_mark
no_adjust
		bra	adjust_buffer

adjust_mark
		lda	displacement
		sta	curr_mark
		lda	displacement+2
		sta	curr_mark+2
		jsr	save_curr_mark	;update the FCR
adjust_buffer
		jsr	clr_to_boundary
		clc
		rts

;==========================================================================
;Cut_block:     This routine will remove the last block from the file.
;
;Input:         last_blk (contains relative block number to delete. 0 thur n)
;
;output:        A = error code if carry set.
;
;		WARNING: last_blk must not point beyond the current
;		structure of the file, even though that block num may be within
;		the file's EOF. This could happen if a file has a trailing
;		portion which is all sparse from a position <128K to a
;		position >128K. In this case the file is stored as a
;		sapling, not a tree, but owns a sparse area that is
;		logically within the "tree" range. In such a case, last_blk
;		must never be in that range when entering this routine.
;

cut_block

;The first thing we do is to convert last_blk into a mark value.

		stz	curr_mark
		stz	curr_mark+2

		lda	last_blk
		asl	a
		sta	curr_mark+1

		jsr	load_indexes	;load the I/O buffer correctly
		bcc	@no_error
		rts
@no_error

;After we call data_blk_num we know that drvr_blk_num contains the data
;block that is to be removed from the file.

		jsr	get_data_num	;setup drvr_blk_num
		ldx	drvr_blk_num
		beq	gone		;sparse block
		jsr	dealloc_block	;remove the block please
		bcc	dec_gone

		rts			;return error
dec_gone
		jsr	dec_blk_count	;blks_used := blks_used-1
gone

;IF (index_block = true) AND (deleted_entry > 1) THEN
;   BEGIN

	;if this is anything but a seedling, we must check whether it's time toÉ
	;Érelease an index block and possibly change storage type

		ldy	#fcr_storage	;IF (index_block = true)
		lda	[pro_fcr_ptr],y
		cmp	#sapling_type
		bcs	index_true	;index_block = TRUE
		rts			;we MUST be done

index_true
		lda	curr_mark+1	;AND (deleted_entry > 1) THEN
		lsr	a
		and	#$00FF
		cmp	#$0002
		bcc	first_ELSE	;deleting first or second entry

;     zero_index(deleted_blk) ;          ;clear the entry from index block
;     index_dirty := true ;              ;and mark index dirty

		;fall through if not on 1st or 2nd entry
not_sapling
		jsr	zero_one_index	;zero an entry in index blk
update_eof
		clc
		rts

;     END
;ELSE
; IF (index_block = true) and (one_entry  = true) and (storage = sapling) THEN
;    BEGIN
;      convert_sapling_to_seedling
;    END

first_else				;we know index_block = true
		cmp	#$0001		;did we just delete entry #0?
		bcc	second_else	;check tree case

		ldy	#fcr_storage
		lda	[pro_fcr_ptr],y
		cmp	#sapling_type	;(stoarge = sapling)?
		bne	not_sapling

		jsr	zero_one_index
		jsr	sapling_seed	;convert the sapling file to seedling
		bcc	update_eof
		rts

;  ELSE
;   IF (index_block = true) and (one_entry = true) and (storage = tree) THEN
;      BEGIN

second_else				;we are deleting the 1st entry in index blk
		jsr	remove_index	;remove the index and update master
		bcc	cont01
		rts

cont01					;did we just eliminate 2nd index block?
		lda	curr_mark+2
		lsr	a
		and	#$007F		;see if we are going to be a sapling
		cmp	#$0001		;see if there is only one entry left
		bne	update_eof	;no conversion yet

		jsr	tree_sapling
		bcc	update_eof
		rts

;===============END of CUT_BLOCK

;==========================================================================
;This routine will setup curr_eof with the EOF based on blocks allocated
;to the file instead of logical EOF.  For example, an file can have an
;EOF of 0, but have hundreds of blocks allocated to it.  This happens
;when a file is created with a request to pre-allocate space.
;Diagram:                  (A)            (B)            (C)
;
;     |               | $00 to $7F  | $00  to  $FF  | $000  to  $1FF  |
;     |               |             |               |                 |
;     | MUST BE ZERO  |<- master  ->|<-   index   ->|<- Byte index  ->|
;     |_______________|_____________|_______________|_________________|
;     | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | |
;     |_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|
;     |               |               |               |               |
;    3 2             2 4             1 6             0 8             0 0
;
;	WARNING: Index blocks must be clean because they will be
;	overwritten!
;
;==========================================================================
setup_real_eof
		stz	new_eof
		stz	new_eof+2	;init new eof
		
		ldy	#fcr_storage
		lda	[pro_fcr_ptr],y
		cmp	#tree_type	;(storage = tree)?
		beq	@calc_tree
		cmp	#sapling_type
		beq	@calc_sapling
		clc
		rts			;seedling works OK
@calc_tree
		ldx	master_ptr	;setup pointer to master index block
		ldy	master_ptr+2
		jsr	get_last_index	;get the lndex to the last index block out of master index
		clc			;A=index $00 thru $7F, X = block number.
		asl	A		;double index
		sta	new_eof+2
		
		txa			;load block if needed
		ldy	#index_blk_num
		cmp	[pro_fcr_ptr],y	;is the block already loaded?
		beq	@calc_sapling
		
		jsr	load_index	;load in the index block
		;bcc	@calc_sapling
		bcc @index_ok		;changed 8/7/90 by Monte Benaresh

		rts			;sorry friend no EOF change today!
@index_ok			;next lines added 8/7/90 by Monte Benaresh
		ldy	#index_blk_num
		lda	drvr_blk_num	;save the block num of the index block
		sta	[pro_fcr_ptr],y
@calc_sapling
		ldx	index_ptr	;get address of the index block in memory
		ldy	index_ptr+2
		jsr	get_last_index	;get the lndex to the last data block out of index block
		clc			;A=index $00 thru $FF, X is not used!
		asl	A		;double index
		ora	new_eof+1	;set the new value
		sta	new_eof+1
		
		clc
		lda	new_eof
		adc	#blk_size

		;change added 6/21/90 by Monte Benaresh

		;reverted 7/21/90 by Monte Benaresh because the "fix" could cause new_eof
		;to point to a sparse portion of the file that was out of the range of
		;the current structure (e.g., beyond the 128K mark in a sapling), a
		;condition which is illegal for the cut_block routine which gets called
		;by set_eof

		sta	curr_eof
		lda	new_eof+2
		adc	#$0000
		sta	curr_eof+2	;update the global EOF that is used by SET_EOF
		clc
		rts
		
;==========================================================================
;Get_Last_index will walk an index block looking for the last valid entry.
;
;input:		X&Y = 	pointer to index buffer
;
;output:	A = 	index offset 0 thru $FF
;		X = 	block number

get_last_index
		stx	temp2_ptr	;setup pointer to lower half of the buffer
		sty	temp2_ptr+2
		clc
		txa
		adc	#$0100		;point to high half of the index block
		sta	temp3_ptr
		tya
		adc	#$0000
		sta	temp3_ptr+2
		
		ldy	#$00FF		;start from end of index block
@loop
		longa	off
		sep	#$20
		lda	[temp3_ptr],y	;grab the high block number
		xba			;put high block number in upper byte
		lda	[temp2_ptr],y	;get the low block number		
		longa	on
		rep	#$20
		tax			;check for zero
		bne	@done		;we have the block number
		dey
		bpl	@loop		;try the next location
		sec
		rts
@done
		tya
		clc			;A=Index, X = block number
		rts
		
;==========================================================================
;This routine will zero out one entry in the master index block. It will
;also mark the index block as being dirty and decrement the block count

remove_index
		ldy	#index_blk_num	;is the index block sparse?
		lda	[pro_fcr_ptr],y
		bne	@not_sparse	;there is an index block
		rts
		
@not_sparse	jsr	dec_blk_count

		lda	curr_mark+2
		lsr	a
		and	#$007F
		tay
		ora	#$0100
		tax

		longa	off
		sep	#$20
		lda	[master_ptr],y
		sta	drvr_blk_num	;save the one we are deleting

		lda	#$00
		sta	[master_ptr],y	;zero the deleted entry please
		txy

		lda	[master_ptr],y
		sta	drvr_blk_num+1	;high byte of one to delete

		lda	#$00
		sta	[master_ptr],y
		longa	on
		rep	#$20

		ldy	#fcr_status
		lda	[pro_fcr_ptr],y
		ora	#master_dirty+file_dirty
		sta	[pro_fcr_ptr],y

		ldx	drvr_blk_num	;remove the index block please
		jsr	dealloc_block
		rts

;==========================================================================
;This routine will zero out one entry in the current index block. It will
;also mark the index block as being dirty
;==========================================================================

zero_one_index
		ldy	#index_blk_num	;is the index block sparse?
		lda	[pro_fcr_ptr],y
		bne	@not_sparse	;there is an index block
		rts
		
@not_sparse	lda	curr_mark+1
		lsr	a
		and	#$00FF
		tay
		ora	#$0100
		tax
		longa	off
		sep	#$20
		lda	#$00
		sta	[index_ptr],y	;zero the deleted entry please
		txy
		sta	[index_ptr],y
		longa	on
		rep	#$20

		ldy	#fcr_status
		lda	[pro_fcr_ptr],y
		ora	#index_dirty+file_dirty
		sta	[pro_fcr_ptr],y
		rts

		EXPORT	dec_blk_count
dec_blk_count	; reduce number of blocks used by a file by one

		ldy	#fcr_blks_used
		lda	[pro_fcr_ptr],y
		dec	a

		;next 2 checks removed 8/5/90 by Monte Benaresh:
		;	The bmi is wrong since a 16-megabyte file can have
		;	$8041 blocks,
		;
		;	The beq doesn't do anything except return without updating
		;	the directory.

		;beq	bad_news
		;bmi	bad_news

		sta	[pro_fcr_ptr],y
		lda	#dirEntry_dirty	;the directory entry needs updating when flushed
		jsr	set_fcr_status
bad_news
		rts

		ENDP

;==========================================================================
;sapling_seed:  This routine will convert a sapling file into a seedling
;               file. (I hope)  Of course in the long run it will do the
;               conversion.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               pro_fcr_ptr             (points to VCR local data)
;               index_ptr               (MUST point to the index block)
;
;Output:        A = error code if carry set otherwise undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Uses:          All registers
;               pro_fcr_ptr
;
;
;==========================================================================
		longa	on
		longi	on

		EXPORT	sapling_seed	
sapling_seed	PROC

;==========================================================================
;Grab the first entry out of the index block.  This is to become the new
;key pointer for the file.
;==========================================================================

		lda	[index_ptr]
		sta	drvr_blk_num
		ldy	#blk_size-$0100
		lda	[index_ptr],y
		sta	drvr_blk_num+1

		lda	#$0000		;now delete the block from the index
		sta	[index_ptr]
		sta	[index_ptr],y	;get the high byte

		ldx	drvr_blk_num
		jsr	update_key_blk

		ldy	#fcr_storage
		lda	#seedling_type
		tax
		sta	[pro_fcr_ptr],y	;change storage type to seedling

		ldy	#fcr_entry_type
		lda	[pro_fcr_ptr],y
		cmp	#resource_type
		beq	is_res_type1
		txa
		sta	[pro_fcr_ptr],y
is_res_type1				; 
		jsr	dec_blk_count	;reduce count by one

		lda	#index_clean
		jsr	clr_fcr_status	;do not write a index block

		ldy	#index_blk_num
		lda	[pro_fcr_ptr],y	;block number for index block
		tax			;used by deallocate
		beq	exit
		lda	#$0000
		sta	[pro_fcr_ptr],y	;zero the block number
		jsr	dealloc_block	;remove the block please
		bcc	exit
		rts

exit					; 
		stz	curr_mark	;reload the correct blocks
		stz	curr_mark+2
		jsr	fill_io_buf
		rts

;==========================================================================
;We need to see if this is a resource file.  IF it not then we need to
;update both the key block and file id fields.  Otherwise we only adjust
;the key block field.
;
;input:         X = new key block
;==========================================================================
		EXPORT	update_key_blk
update_key_blk				;               
		ldy	#fcr_file_id
		lda	[pro_fcr_ptr],y
		ldy	#fcr_key_blk	;update the key block pointer
		cmp	[pro_fcr_ptr],y
		bne	only_key_blk	;update only the key block

		txa
		ldy	#fcr_file_id
		sta	[pro_fcr_ptr],y

only_key_blk				; 
		txa
		ldy	#fcr_key_blk
		sta	[pro_fcr_ptr],y
		inc	key_blk_changed	;indicate that the key block has changed
		rts

		ENDP

;==========================================================================
;tree_sapling:  This routine will convert a tree file into a sapling
;               file. (I hope)  Of course in the long run it will do the
;               conversion.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               pro_fcr_ptr             (points to VCR local data)
;               master_ptr              (MUST point to the master block)
;
;Output:        A = error code if carry set otherwise undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Uses:          All registers
;               pro_fcr_ptr
;
;
;==========================================================================
		longa	on
		longi	on

		EXPORT	tree_sapling	
tree_sapling	PROC

;==========================================================================
;Grab the first entry out of the master index block.  This is to become the
;new key pointer for the file.
;==========================================================================

		stz	curr_mark	;force mark to zero for correct
		stz	curr_mark+2	;loading of index blocks

		jsr	fill_io_buf	;make sure the I/O buffer looks Ok
		bcc	have_index
		rts

have_index				; 
		lda	[master_ptr]
		sta	drvr_blk_num
		ldy	#blk_size-$0100
		lda	[master_ptr],y
		and	#$00FF		;clear any garbage left
		sta	drvr_blk_num+1

		lda	#$0000
		sta	[master_ptr]	;clear the last entry please
		sta	[master_ptr],y

		jsr	dec_blk_count

		ldx	drvr_blk_num
		jsr	update_key_blk

		ldy	#fcr_storage
		lda	#sapling_type
		tax
		sta	[pro_fcr_ptr],y	;change storage type to sapling

		ldy	#fcr_entry_type
		lda	[pro_fcr_ptr],y
		cmp	#resource_type
		beq	is_res_type2
		txa
		sta	[pro_fcr_ptr],y

is_res_type2				; 
		lda	#master_clean
		jsr	clr_fcr_status	;do not write a index block

		ldy	#master_blk_num
		lda	[pro_fcr_ptr],y	;block number for master index block
		tax			;used by deallocate
		beq	exit
		lda	#$0000
		sta	[pro_fcr_ptr],y	;zero the block number
		jsr	dealloc_block	;remove the block please
		rts

exit					; 
		clc
		rts

		ENDP
;==========================================================================
;Get_eof:       This routine will return the current EOF for an open file.
;
;Created:       may 23, 1987
;Modified:      may 23, 1987
;Author:        Rob Turner
;
;Enter:         jml
;
;Input:         A = undefined
;               X = call number times 2
;               Y = class times 2
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Uses:          All registers
;
;Call Format:
;
;Class 0        Reference Number        (2 Bytes)
;               EOF                     (4 Bytes)
;
;Class 1        PCount                  (2 Bytes)
;               Reference Number        (2 Bytes)
;               EOF                     (4 Bytes)
;==========================================================================
		longa	on
		longi	on

		EXPORT	get_eof		
get_eof		PROC

;==========================================================================
;Call standard setup routine.
;==========================================================================

		jsr	setup_params

;==========================================================================
;Get the current end of file out of the FCR data area
;==========================================================================

		ldy	#fcr_curr_eof
		lda	[pro_fcr_ptr],y
		tax			;save low word
		iny
		iny
		lda	[pro_fcr_ptr],y

		ldy	#pblk_19_eof+2
		sta	[my_pblk_ptr],y
		dey
		dey
		txa
		sta	[my_pblk_ptr],y
		clc
		jmp	main_exit

		ENDP
;==========================================================================
;Get_dir_entry: This routine will return a single entry from a directory.
;
;
;Created:       Nov 10, 1987
;Modified:      Nov 10, 1987
;Author:        Rob Turner
;
;Enter:         jml
;
;Input:         A = undefined
;               X = call number times 2
;               Y = class times 2
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;Uses:          All registers
;               find_file
;
;Call Format:
;
;Class 0        Reference number        (2 Bytes)
;               RESERVED                (2 Bytes)
;               Base                    (2 Bytes)
;                       $0000 = Absolute
;                       $0001 = Forward releative
;                       $0002 = Backward relative
;               Displacement            (2 Bytes)
;               Pointer to name buffer  (4 Bytes)
;               Entry Number            (2 Bytes) Absolute entry read
;               File Type               (2 Bytes)
;               EOF                     (4 Bytes)
;               Blocks Used             (4 Bytes)
;               Create Date/Time        (8 Bytes: Misc. Tools Format)
;               Mod Date/Time           (8 Bytes: Misc. Tools Format)
;               Access                  (2 Bytes)
;               Aux Type                (4 Bytes)
;               File System Id          (2 Bytes)
;
;Class 1        PCount                  (2 Bytes: Minimum = 5)
;               Reference Number        (2 Bytes)
;               RESERVED                (2 Bytes)
;               Base                    (2 Bytes)
;                       $0000 = Absolute
;                       $0001 = Forward releative
;                       $0002 = Backward relative
;               Displacement            (2 Bytes)
;               Pointer to name buffer  (4 Bytes)
;               Entry Number            (2 Bytes) Absolute entry read
;               File Type               (2 Bytes)
;               EOF                     (4 Bytes)
;               Blocks Used             (4 Bytes)
;               Create Date/Time        (8 Bytes: Misc. Tools Format)
;               Mod Date/Time           (8 Bytes: Misc. Tools Format)
;               Access                  (2 Bytes)
;               Aux Type                (4 Bytes)
;               File System Id          (2 Bytes)
;               Option List Pointer     (4 Bytes)
;
;==========================================================================
		longa	on
		longi	on

		EXPORT	get_dir_entry	
get_dir_entry	PROC
		import	gde_temp
		
		jsr	setup_params	;general setup routine
		php			;save status
		lda	my_pblk_ptr+2
		sta	temp2_ptr+2
		clc
		lda	my_pblk_ptr
		sta	temp2_ptr	;save a pointer for extended bit
		adc	#$0004		;pass ref # and Reserved fields
		sta	my_pblk_ptr
		bcc	not_high
		inc	my_pblk_ptr+2
not_high				; 

		plp
		bne	class1		;this is a new call

		lda	#$000E		;make PCount = to class 0 normal
		sta	pcount

class1					; 
		ldy	#fcr_storage	;make sure this is a directory
		lda	[pro_fcr_ptr],y
		cmp	#subdir_type
		bcs	type_ok

		sec
		lda	#bad_file_format
		jmp	main_exit

type_ok					; 
		lda	[my_pblk_ptr]	;load the base field
		sta	base		;save user's base value
		cmp	#gde_max_base+1
		bcc	base_good

		lda	#parm_range_err
gde_exit				; 
		jmp	main_exit

directory_err				; 
		sec
		lda	#dir_error	;report error to user
		bra	gde_exit

base_good				; 

		ldy	#pblk_1c_name
		lda	[my_pblk_ptr],y
		sta	temp_ptr	;save the pointer
		iny
		iny
		lda	[my_pblk_ptr],y
		and	#$00FF		;clear the garbage
		sta	temp_ptr+2

		ldy	#pblk_1c_disp	;offset to displacement
		lda	[my_pblk_ptr],y
		sta	displacement
		ora	base		;is base and displacement zero?
		bne	nothing_special

		jsr	reset_gde	;reset the call please

nothing_special				; 
		ldy	#pblk_1c_extend	;clear the extended word
		lda	#$0000
		sta	[temp2_ptr],y

		jsr	standard_req

		ldy	#gde_curr_blk	;have we loaded a directory yet?
		lda	[pro_fcr_ptr],y
		sta	drvr_blk_num
		bne	dir_loaded	;yes.

		ldy	#fcr_key_blk	;key block of the directory
		lda	[pro_fcr_ptr],y
		sta	drvr_blk_num
		jsr	read_gde_blk	;read in a block please
		bcs	gde_exit	;bad news bud

		lda	[index_ptr]	;make sure this is a directory
		bne	directory_err

		ldy	#$0004		;index to storage type
		lda	[index_ptr],y
		tax
		and	#$00F0		;check the storage type
		cmp	#subdir_header
		bcc	directory_err	;a bad directory
		txa
		and	#$000F		;check the name length
		beq	directory_err

		ldy	#header_file_cnt
		lda	[index_ptr],y	;save the header file count
		ldy	#gde_tot_files
		sta	[pro_fcr_ptr],y

		ldy	#gde_curr_blk	;save the current block also
		lda	drvr_blk_num
		sta	[pro_fcr_ptr],y

		lda	#$0004		;save gde_offset
		ldy	#gde_offset
		sta	[pro_fcr_ptr],y

dir_loaded				; 
		ldy	#gde_offset
		lda	[pro_fcr_ptr],y	;setup the current offset
		sta	entry_offset

		lda	base		;see if we are returning total files
		tax
		ora	displacement
		bne	not_first

		jsr	send_tot_files
		clc
		jmp	main_exit	;exit back to caller

not_first				; 
		ldy	#gde_entry_num
		lda	[pro_fcr_ptr],y
		sta	math_temp	;current entry number
		tay

		txa			;restore base
		beq	absolute	;do absolute entry please
		dec	a
		beq	forward		;do forward relative please

backward				; 
		sec
		tya			;get the last entry we looked at
		sbc	displacement	;entry that we want
		bcc	end_dir_err
		bne	find_entry	;go find the entry please
end_dir_err				; 
		sec
		lda	#end_of_dir
		jmp	main_exit

absolute				; 
		lda	displacement	;get this entry please
		bra	to_forward
forward					; 
		clc
		tya			;get the current entry please
		adc	displacement
		bcs	end_dir_err	;over flow!
to_forward				; 
		ldy	#gde_tot_files	;see if we need to look
		cmp	[pro_fcr_ptr],y
		beq	find_entry
		bcs	end_dir_err

find_entry				; 
		ldy	entry_offset	;pre-load the entry offset
		sta	find_this_entry	;save entry number to find
		cmp	math_temp	;compare to current entry
		beq	send_entry	;we have the correct entry
		bcc	search_backward	;do a backward search

search_forward				; 
		cpy	#$01FF
		beq	get_forward_blk	;go read the next block please
		jsr	add_entry_len
forward_loop				; 
		lda	[index_ptr],y	;load the entry please
		and	#$00F0		;is this entry active?
		beq	search_forward	;look at the next entry please
		sty	entry_offset	;save the offset
		inc	math_temp	;bump the current entry by one
		lda	math_temp
		cmp	find_this_entry	;is this the correct entry
		bne	search_forward
		bra	send_entry
get_forward_blk				; 
		ldy	#$0002		;index to forward link
		lda	[index_ptr],y
		beq	end_dir_err	;sorry no more directory blocks
		sta	drvr_blk_num
		jsr	read_gde_blk	;load the block please
		ldy	#$0004		;index to first entry
		bcc	forward_loop
		jmp	main_exit	;tell user about the error

search_backward				; 
		cpy	#$0004
		beq	get_back_blk	;go read the prev block please
		jsr	sub_entry_len
backward_loop				; 
		lda	[index_ptr],y	;load the entry please
		and	#$00F0		;is this entry active?
		beq	search_backward	;look at the next entry please
		sty	entry_offset	;save the offset
		dec	math_temp	;bump the current entry by one
		lda	math_temp
		cmp	find_this_entry	;is this the correct entry
		bne	search_backward
		bra	send_entry
get_back_blk				; 
		lda	[index_ptr]
		beq	end_dir_err	;sorry no more directory blocks
		sta	drvr_blk_num
		jsr	read_gde_blk	;load the block please
		ldy	#$01FF		;index to first entry
		bcc	backward_loop
		jmp	main_exit	;tell user about the error

send_entry				; 
		ldy	#gde_curr_blk
		lda	drvr_blk_num
		sta	[pro_fcr_ptr],y	;save the current dir block
		ldy	#gde_entry_num
		lda	math_temp
		sta	[pro_fcr_ptr],y	;save the current entry number
		ldy	#gde_offset
		lda	entry_offset
		sta	[pro_fcr_ptr],y	;save the entry offset
		tay
		
		stz	res_storage	;default is type is not resource
		lda	[index_ptr],y	;get the storage type
		and	#$00F0
		cmp	#resource_type
		bne	not_extended
		ldy	#pblk_1c_extend
		lda	#$8000
		sta	[temp2_ptr],y
		sta	res_storage	;type of file is extended
		
not_extended				; 
;
;Now move the entry into the user's data area
;
		lda	entry_offset
		clc
		adc	index_ptr
		sta	drvr_buf_ptr
		lda	#$0000
		adc	index_ptr+2
		sta	drvr_buf_ptr+2
		jsr	move_dir_entry	;move the entry to 'one_entry'

		lda	#buff_too_small	;assume user screwed up
		sta	math_temp

		lda	[temp_ptr]
		cmp	#$0004
		bcc	no_name		;sorry no name avail

		ldy	#$0002		;store the name length
		lda	alloc_entry
		sta	[temp_ptr],y
		clc
		adc	#$0004
		cmp	[temp_ptr]	;load the buffer size
		beq	len_ok		;length is ok
		bcc	len_ok
;
;(BufferSize - 4)
;               sec

		lda	[temp_ptr]	;use the user's buf length
		sbc	#$0004
		beq	no_name		;a buffer size of 4 was used so store length only.
		bcc	no_name		;do not send any of the name
		bra	do_name		;use the user's length as count to send.
len_ok					; 
		stz	math_temp	;no error
		lda	alloc_entry	;number of bytes to move
;
;Code added to fix a bug cataloging a bad disk.
;
		bne	do_name
		lda	#dir_error	;the directory entry is bad
		sta	math_temp
		bra	end_gde		;exit with the error please		
do_name
		tay			;number of bytes to send

		clc			;make pointer to ascii string
		lda	temp_ptr
		adc	#$0003
		sta	temp_ptr
		lda	temp_ptr+2
		adc	#$0000
		sta	temp_ptr+2

		stz	case_bits	;all upper case is the defalut
		lda	fst_attr	;if the high bit is set skip Upper/Lower stuff
		bmi	@its_upper
		
		lda	one_entry+version_index
		bpl	@its_upper
		asl	a		;remove the case ON/OFF bit
		sta	case_bits	;set the case bits for this file.
@its_upper
		sty	gde_temp	;save the count please
		
		ldy	#$0001		;start at the front
		longa	off
		sep	#$20
looper 
		lda	one_entry,y
		rep	#$20
		rol	case_bits	;see if this char is lower case
		sep	#$20
		bcc	@its_upper

	if AllowLCPeriods then	;added 7-Aug-91 DAL
		cmp	#'.'
		bne	@not_lc_period
		lda	#0		;let it ORA our 0 into a $20 (blank)
@not_lc_period
	endif			;end 7-Aug-91 DAL

		ora	#$20		;set the lower case bit please
@its_upper
		sta	[temp_ptr],y
		cpy	gde_temp
		beq	@we_done
		iny
		bra	looper		;move the name to the user's buffer
@we_done
		longa	on
		rep	#$20

		lda	math_temp
		cmp	#buff_too_small	;if the error was buffer too small then leave it.
		beq	no_name
		
		stz	math_temp	;reset the error code please
no_name
		sec			;adjust the pcount please
		lda	pcount
		sbc	#$0005
		sta	pcount
		beq	end_gde
		jsr	send_gde_stuff	;send the info that the user wants
end_gde					; 
		lda	math_temp	;was there an error?
		cmp	#$0001
		jmp	main_exit

send_gde_stuff				; 
		lda	my_pblk_ptr
		sta	temp_ptr
		lda	my_pblk_ptr+2
		sta	temp_ptr+2

		ldy	#pblk_1c_entry	;return the absolute entry
		lda	find_this_entry
		sta	[temp_ptr],y
		dec	pcount
		beq	to_end_send_gde

		ldy	#pblk_1c_ftype
		lda	one_entry+file_type_index
		and	#$00FF
		sta	[temp_ptr],y
		dec	pcount
		beq	to_end_send_gde

		lda	res_storage	;is the file extended?
		bpl	@not_extended	;no it is not
		jsr	load_ext_blk	;load in the extended block please
@not_extended		
		jsr	send_data_eof	;send the eof for data fork
		
		dec	pcount
		beq	to_end_send_gde

		jsr	send_data_blks	;send the blks_used for data fork
		
		dec	pcount
		beq	to_end_send_gde

		ldx	one_entry+create_index
		ldy	one_entry+create_index+2
		jsr	unpack_time
		ldy	#pblk_1c_create
		jsr	send_time
		dec	pcount
		beq	to_end_send_gde

		ldx	one_entry+last_mod_index
		ldy	one_entry+last_mod_index+2
		jsr	unpack_time
		ldy	#pblk_1c_mod
		jsr	send_time
		dec	pcount
		beq	to_end_send_gde

		lda	one_entry+access_index
		and	#$00E7
		ldy	#pblk_1c_access
		sta	[temp_ptr],y
		dec	pcount
		beq	to_end_send_gde

		lda	one_entry+aux_type_index
		ldy	#pblk_1c_aux
		sta	[temp_ptr],y
		lda	#$0000
		iny
		iny
		sta	[temp_ptr],y
		dec	pcount		;does the user want FST ID?
to_end_send_gde	 
		beq	end_send_gde	;No

		lda	#pro_id
		ldy	#pblk_1c_id
		sta	[temp_ptr],y
		
		dec	pcount		;Skip the option list please
		beq	end_send_gde
;==========================================================================
; We now store the ProDOS FST ID in the 5th byte of the option list buffer
;==========================================================================

		ldy	#pblk_1c_opt	;index to option list pointer
		lda	[temp_ptr],y	;get the address of the option list buffer
		tax
		iny
		iny
		lda	[temp_ptr],y
		tay
		bne	@save_fst_id
		txa
		beq	@skip_save
@save_fst_id
		pei	temp_ptr	;save the working temp_ptr since I am going to use it
		pei	temp_ptr+2	;to handle the option list pointer
		
		stx	temp_ptr
		sty	temp_ptr+2
;
;Now I need to verify the option list length.  I need at least 6 bytes.
;
		lda	[temp_ptr]	;get the length of the option list
		cmp	#$0004		;is the minimum count OK
		bcs	@min_ok		;the user has the min

		lda	#parm_range_err	;store the error
		bra	option_list_err
@min_ok
		tax			;save the count for data area check		
		lda	#$0002		;length of the ProDOS FST ID.
		tay
		sta	[temp_ptr],y	;save the number of bytes stored
		txa
		cmp	#$0006
		bcs	@size_fine

		lda	#buff_too_small	;store the error
		bra	option_list_err
@size_fine
		iny
		iny
		lda	#pro_id
		sta	[temp_ptr],y
					;new code added 2/13/91 CAE		
 		txa
		cmp	#6+32		;is buffer big enough to hold HFS Finder Info?
		bcc	@no_info	;no
		lda	res_storage	;is the file extended?
		bpl	@no_info	;no - so no HFS info
		jsr	get_hfs_info	;yes - so get the HFS info if we have it
@no_info
					;end of new code
		pla
		sta	temp_ptr+2	;restore
		pla
		sta	temp_ptr
@skip_save
		dec	pcount		;does the user want resource eof?
		beq	end_send_gde	;no
		
		jsr	send_res_eof	;send the resource EOF please
		
		dec	pcount		;does the user want resource blocks?
		beq	end_send_gde	;no
		jsr	send_res_blks

end_send_gde
		rts

option_list_err
		sta	math_temp
		pla
		sta	temp_ptr+2	;restore
		pla
		sta	temp_ptr
		rts
		
send_data_eof
		lda	res_storage	;is the file extended?
		bpl	@not_extended
		
		ldy	#$0005		;index to EOF field
		lda	[drvr_buf_ptr],y
		sta	one_entry+eof_index
		iny
		lda	[drvr_buf_ptr],y
		sta	one_entry+eof_index+1
@not_extended
		ldy	#pblk_1c_eof
		lda	one_entry+eof_index
		sta	[temp_ptr],y
		iny
		iny
		lda	one_entry+eof_index+2
		and	#$00FF
		sta	[temp_ptr],y
		rts
		
send_data_blks
		lda	res_storage	;is the file extended?
		bpl	@not_extended
		
		ldy	#$0003		;index to blocks used field
		lda	[drvr_buf_ptr],y
		sta	one_entry+blks_used_index
		
@not_extended
		lda	one_entry+blks_used_index
		ldy	#pblk_1c_blks
		sta	[temp_ptr],y
		iny
		iny
		lda	#$0000
		sta	[temp_ptr],y	;Zero the high word
		rts

send_res_eof
		lda	res_storage	;is the file extended?
		bpl	@not_extended
		
		ldy	#$0105		;index to eof field
		lda	[drvr_buf_ptr],y
		tax			;low word of eof
		iny
		iny
		lda	[drvr_buf_ptr],y
		and	#$00FF
		tay			;upper word of EOF
		txa			;save low word in 'A'
		tyx			;save upper word in 'X'
		bra	@send_res_eof
		
@not_extended	lda	#$0000		;eof is nothing
		tax
@send_res_eof
		ldy	#pblk_1c_res_eof
		sta	[temp_ptr],y
		iny
		iny
		txa
		sta	[temp_ptr],y	;save upper word please
		rts

send_res_blks
		lda	res_storage	;is the file extended?
		bpl	@not_extended
		
		ldy	#$0103		;index to blocks used field
		lda	[drvr_buf_ptr],y
		bra	@send_res_blks
		
@not_extended	lda	#$0000		;no blocks

@send_res_blks
		ldy	#pblk_1c_res_blks
		sta	[temp_ptr],y
		iny
		iny
		lda	#$0000
		sta	[temp_ptr],y	;save upper word please
		rts

add_entry_len
		tya
		clc
		adc	#entry_length
		tay
		rts

sub_entry_len 
		tya
		sec
		sbc	#entry_length
		tay
		rts

send_tot_files				; 
		lda	pcount		;is there room
		cmp	#$0006
		bcc	end_tot

		ldy	#gde_tot_files
		lda	[pro_fcr_ptr],y	;get the total number of entries
		ldy	#pblk_1c_entry
		sta	[my_pblk_ptr],y
end_tot 
		rts

reset_gde
		lda	#$0000		;reset gde by zero all data
		ldy	#gde_entry_num
		sta	[pro_fcr_ptr],y
		ldy	#gde_offset
		sta	[pro_fcr_ptr],y
		ldy	#gde_curr_blk
		sta	[pro_fcr_ptr],y
		ldy	#gde_tot_files
		sta	[pro_fcr_ptr],y
		rts

read_gde_blk
		lda	index_ptr	;pointer to GDE buffer
		sta	drvr_buf_ptr
		lda	index_ptr+2
		sta	drvr_buf_ptr+2
		jsr	read_with_cache	;read in directory block
		rts
load_ext_blk
		jsr	set_default_buf	;use the standard buffer please
		jsr	standard_req
		lda	one_entry+key_blk_index
		sta	drvr_blk_num
		jsr	read_with_cache
		bcc	@no_problem
		jmp	main_exit	;abort please
@no_problem	
		rts

		ENDP
;==========================================================================
;get_dev_num    This file contains code that will find a volume and return
;               a device number.
;
;Created:       aug 17, 1987
;Modified:      aug 17, 1987
;Author:        Rob Turner
;
;Enter:         jml
;
;Input:         A = undefined
;               X = call number times 2
;               Y = class times 2
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = error code if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;Uses:          All registers
;               Device Dispatcher  (subroutine)
;               General I/O Buffer (1K buffer, I read 512 bytes)
;               and lots of other stuff to.
;
;Call Format:
;
;Class 0        Dev/Vol Name Pointer    (4 Bytes)
;               Device Number           (2 Bytes)
;
;Class 1        PCount                  (2 Bytes)
;               Dev/Vol Name Pointer    (4 Bytes)
;               Device Number           (2 Bytes)
;
;==========================================================================
		longa	on
		longi	on

		EXPORT	get_dev_num	
get_dev_num	PROC

		jsr	setup_params	;go ahead do your thing
		lda	dev_num		;did the shell find a device?
		bne	have_device
		lda	#no_dup		;allow me to handle file not found
		sta	search_flag
		jsr	process_path	;do ahead and find the volume
		bcc	no_err		;no problem

		cmp	#file_not_found	;was the error file not found?
		bne	@dev_err_exit
		lda	dev_num
		bne	no_err		;give him the device number
		lda	#bad_path_syntax
@dev_err_exit
		sec
		jmp	main_exit

no_err
		lda	drvr_dev_num
have_device				; 
		ldy	#$0004		;return the device number
		sta	[my_pblk_ptr],y
		clc
		jmp	main_exit
		
		ENDP
;======================================================================
;read_block and write_block calls
;
;               This routine will read or write
;               one block from the device number specified
;
;created:       mar 23, 1987
;modified:      jan 06, 1988
;author:        Rob Turner
;
;Enter:         jmp
;
;input:         param_blk_ptr = pointer to user's parameter block
;               A = undefined
;               X = call number * 2
;               Y = class of call (0 thru 7)
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;output:        A = error code if carry set otherwise undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;uses:          all register
;               param_blk_ptr   (direct page)
;               uses dispatcher (system call)
;
;exit:          via common exit routine
;
;Call Format for Both Read and Write:
;
;Class 0        Device Number           (2 Bytes)
;               Pointer to Data Buffer  (4 Bytes)
;               Block Number            (2 Bytes)
;
;Class 1        PCount                  (2 Bytes)
;               Device Number           (2 Bytes)
;               Pointer to Data Buffer  (4 Bytes)
;               Block Number            (2 Bytes)
;
;======================================================================
		longa	on
		longi	on
		EXPORT	read_block	
read_block	PROC

		lda	#drvr_read
		bra	common_block	;common code for block read/write

		EXPORT	write_block
write_block				;               
		lda	#drvr_write	;do a write call

common_block				; 
		sta	drvr_call_num
		tya
		lsr	a
		tay
		dey			;y = class of the call
		bmi	class0		;old style call...

class1					; 
		lda	[param_blk_ptr]	;get the PCount
		cmp	#0003		;min and max PCount for this call
		beq	good_pcount
		lda	#invalid_pcount	;I have a headache tonight

error_out				; 
		sec
read_out				; 
		jmp	main_exit

good_pcount				; 
		iny

class0					; 
		iny			;make index to 'Device Number'
		lda	[param_blk_ptr],y
		sta	drvr_dev_num
		phy
		jsr	chk_owner	;see if this is my disk
		ply
		bcs	error_out
		iny
		iny			;index to the buffer pointer
		lda	[param_blk_ptr],y
		sta	drvr_buf_ptr
		iny
		iny
		lda	[param_blk_ptr],y
		sta	drvr_buf_ptr+2
		iny
		iny			;index to the block number
		lda	[param_blk_ptr],y
		sta	drvr_blk_num
		stz	drvr_blk_num+2

;init all other parameters that the driver/dispatcher will use

		lda	#blk_size
		sta	drvr_req_cnt	;read one block only
		stz	drvr_req_cnt+2

try_again	jsr	device_call	;call the driver
		bcs	check_error
		bra	read_out	;error is returned

check_error				; 
		cmp	#drvr_disk_sw	;disk switched behind my back?
		bne	error_out
		stz	prodos_vcr_ptr	;indicate that we do not know the owner.
		stz	prodos_vcr_ptr+2
		bra	try_again	;tell the user

;======================================================================
;chk_owner:     This routine will try to find a VCR associated with
;               the device we are going to write to.  If we find the

;               VCR we will see if it is a ProDOS volume, if it is then
;               we will mark the bitmap undefined.  If the bitmap is dirty
;               or there are open files on the volume we will not allow
;               the caller to write to the disk.
;======================================================================

chk_owner
		lda	drvr_dev_num	;see if there is a VCR
		sta	dev_num
		jsr	check_vcr_first
		bcs	exit_owner	;there is no VCR
		jsr	setup_my_vcr
		stx	prodos_vcr_ptr
		sty	prodos_vcr_ptr+2
		jsr	reset_vcr
		rts
exit_owner
		stz	prodos_vcr_ptr	;indicate that we do not know the owner.
		stz	prodos_vcr_ptr+2
		clc
		rts


		EXPORT	reset_vcr
reset_vcr
		lda	drvr_call_num
		cmp	#drvr_write	;is this a write block call?
		beq	@is_write
		clc
		rts

@is_write
		ldy	#bitmap_dirty	;see if the bitmap is dirty
		lda	[prodos_vcr_ptr],y
		bne	no_action	;sorry not tonight
		ldy	#vcr_open_cnt	;see if files are open
		lda	[my_vcr_ptr],y
		bne	no_action

		lda	#$FFFF		;reset the volume please
		ldy	#curr_bitmap	;flush bitmap blocks
		sta	[prodos_vcr_ptr],y
		ldy	#free_blocks	;unknown free block count
		sta	[prodos_vcr_ptr],y
		ldy	#avail_bitmap
		sta	[prodos_vcr_ptr],y
		clc
		rts

no_action				; 
		lda	#invalid_access
		sec
		rts

		ENDP
;======================================================================
;format/Erase   This file will format or erase of volume
;
;Created:       dec 05, 1987
;Modified:      mar 15, 1988
;Author:        Rob Turner
;
;Enter:         From GS/OS jmp table
;
;Input:         A = undefined
;               X = (call number * 2)
;               Y = (class number * 2)
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = error code if carry set (exit via system exit routine)
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;                          0 = no error
;               b = k
;
;Uses:          All registers
;               Device Dispatcher       (subroutine)
;               General I/O Buffer      (1K buffer, I read 512 bytes)
;
;Call Format:
;
;Class 0        Device Name Pointer     (4 Bytes)
;               Volume Name Pointer     (4 Bytes)
;               FST ID                  (2 Bytes)
;
;Class 1        PCount                  (2 Bytes)
;               Device Name Pointer     (4 Bytes)
;               Volume Name Pointer     (4 Bytes)
;               FST ID                  (2 Bytes)
;
;======================================================================
		longa	on
		longi	on

		EXPORT	format_disk	
format_disk	PROC
		import	boot_size

		jsr	setup_params	;standard setup routine
** 2/28/92 GAB
		jsr	check_spans	;make sure the volume name isn't too long
**
		lda	dev_num		;move device number from SCM to
		sta	drvr_dev_num	;driver area on direct page
		jsr	clear_any_vcrs	;keep VCRs in order
		jsr	setup_vol_name	;move the volume name please

		jsr	hard_format	;issue a hard format please
		bcs	init_exit
		bra	continue

		EXPORT	erase_disk
erase_disk				;               
		jsr	setup_params	;standard setup routine
** 2/28/92 GAB
		jsr	check_spans	;make sure the volume name isn't too long
**
		lda	dev_num		;move device number from SCM to
		sta	drvr_dev_num	;driver area on direct page
		jsr	clear_any_vcrs	;keep VCRs in order
		jsr	setup_vol_name	;move the volume name please

continue				; 
		jsr	set_partition	;assign the partion map name
;
;Start of code that will write to disk
;
		jsr	write_boot_code	;write the boot code out to disk
		bcs	init_exit
		jsr	build_directory	;build the directory please
		bcs	init_exit
		jsr	build_bitmap	;build the correct bitmap please
init_exit				; 
		jmp	main_exit

;======================================================================
;setup_vol_name This routine will verify the volume name is ok, and
;               move the name into the format header.
;======================================================================

setup_vol_name				; 
		clc
		lda	path2_ptr
		adc	#$0003
		sta	temp_ptr	;setup pointer to the name
		lda	path2_ptr+2
		adc	#$0000
		sta	temp_ptr+2
		
		jsr	set_case_bits	;setup the case please (Temp_Ptr is Input)
		
		lda	temp_ptr	;subtract one from the pointer.
		bne	@do_low
		dec	temp_ptr+2
@do_low		dec	temp_ptr

		lda	#$0001
		sta	chars_checked	;parameter for setup_name
		jsr	setup_name

		ldy	#15		;first clear the format header
		lda	#$0000
clr_loop				; 
		sta	new_vol_name,y
		dey
		bpl	clr_loop

		lda	search_length	;length of the volume name
		and	#$000F
		tay
		ora	#volume_header
		sta	new_vol_name	;the length is now stored

		longa	off
		sep	#$20		;8 bit Accum
move_vol				; 
		lda	search_name-1,y
		sta	new_vol_name,y
		dey
		bne	move_vol
		longa	on
		rep	#$20		;16 bit Accum

;
;Save the case please
;
		stz	new_vol_date-2	;zap any old data that might be around
		lda	case_bits	;get the user's case
		beq	@skip_save
		ora	#$8000
		sta	new_vol_date-2
@skip_save
		jsr	pack_time	;set the create date
		stx	new_vol_date
		stx	new_vol_mod
		sty	new_vol_date+2
		sty	new_vol_mod+2	;set the mod time to the create time
		rts

;======================================================================
;hard_format:   This routine will issue the hard format call to the
;               device driver.
;======================================================================

hard_format				; 
		lda	#drvr_control	;issue hard format call to device
		sta	drvr_call_num

		lda	#drvr_format	;issue the format call
		sta	drvr_ctrl_code

		lda	#^format_ctrl
		sta	drvr_clist_ptr+2
		lda	#format_ctrl
		sta	drvr_clist_ptr

		lda	#$0002		;length of control list
		sta	drvr_req_cnt
		stz	drvr_req_cnt+2

		jsr	device_call	;issue the format call to the device
		bcc	formatted
		cmp	#drvr_disk_sw	;is it a disk switched problem?
		beq	hard_format	;try again
		sec
formatted				; 
		rts			;return with the error code.

;======================================================================
;indicate_erase This routine will tell the driver what name to store
;               in the device partion map.
;======================================================================

set_partition				; 
		lda	#drvr_control	;setup for a control call
		sta	drvr_call_num

		lda	#$0006		;setup control code
		sta	drvr_ctrl_code

		lda	#^control_list	;setup pointer to the parameter list
		sta	drvr_clist_ptr+2
		lda	#control_list
		sta	drvr_clist_ptr

		stz	drvr_req_cnt
		stz	drvr_req_cnt+2	;no request count
		jsr	device_call
		rts

;======================================================================
;write_boot_code This routine will write out to disk the ProDOS
;               boot code.  Note that the SOS boot code has
;               been removed from the boot blocks.  This means that
;               a disk formatted with the ProDOS FST cannot be booted
;               on the Apple ///.
;======================================================================

write_boot_code				; 
		jsr	set_default_buf	;use general work buffer
		jsr	standard_req	;512 byte write
		jsr	clear_gbuf_low	;clear the working buffer with zeros.

		lda	#drvr_write
		sta	drvr_call_num
		stz	drvr_blk_num
		stz	drvr_blk_num+2
		
		ldy	#boot_size-2	;move the boot code to please
boot_loop				; 
		lda	boot_code_start,y
		sta	[drvr_buf_ptr],y
		dey
		bpl	boot_loop

re_boot					; 
		jsr	device_call	;issue the device call please
		bcc	boot_done
		cmp	#drvr_disk_sw
		beq	re_boot		;try again
		sec
boot_done				; 
		rts

;======================================================================
;Build_directory This routine will build the first four blocks of the
;               directory.
;======================================================================

build_directory
		jsr	get_dev_blks	;get the number of blocks on the device.
		bcs	exit_dir	;sorry we are out of here.
		sta	new_tot_blks	;number of blocks on the volume

		jsr	set_default_buf	;use general work buffer
		jsr	standard_req	;512 byte write
		jsr	clear_gbuf_low	;clear the working buffer with zeros.

		lda	#drvr_write	;setup for write calls
		sta	drvr_call_num
		lda	#vol_dir_start
		sta	drvr_blk_num
		stz	drvr_blk_num+2

		ldy	#entry_length+2	;now move the entry to work buffer
header_loop				; 
		lda	format_header,y
		sta	[drvr_buf_ptr],y
		dey
		bpl	header_loop

;
;Write Block Two To Disk
;
		jsr	device_call	;issue the device call please
		bcs	exit_dir
;
;Write Block Three To Disk
;
		jsr	clear_gbuf_low	;clear the block again
		ldx	#vol_dir_start	;backward link to block 2
		ldy	#vol_dir_start+2 ;forward link to block  3
		jsr	do_dir_blk	;write directory block to disk
		bcs	exit_dir
;
;Write Block Four To Disk
;
		ldx	#vol_dir_start+1 ;Backward link to block 3
		ldy	#vol_dir_start+3 ;Forward link to block  5
		jsr	do_dir_blk
		bcs	exit_dir
;
;Write Block Five To Disk
;
		ldx	#vol_dir_start+2 ;Backward link to block 4
		ldy	#$0000		;Forward link NIL
		jsr	do_dir_blk
exit_dir				; 
		rts

do_dir_blk				; 

		txa			;previous link
		sta	[drvr_buf_ptr]
		tya
		ldy	#$0002		;index to forward link
		sta	[drvr_buf_ptr],y
		inc	drvr_blk_num	;move to the next block please
		jsr	device_call	;issue write call
		rts

;======================================================================
;build_bitmap   This routine will build a bitmap for the device
;               being formatted.
;======================================================================

build_bitmap				; 
		lda	#bitmap_strt_blk ;starting block number of bitmap
		sta	drvr_blk_num
;
;Calculate the number of bitmap blocks needed for this volume
;
		ldx	#$0001		;default = one bitmap block
		lda	new_tot_blks	;number of blocks on volume
count_blks				; 
		sec
		sbc	#4096		;one bitmap block
		beq	end_count
		bcc	end_count
		inx			;add one to the block count
		bra	count_blks

end_count				; 
		stx	bitmap_blks	;total number of bitmap blocks
		txa
		clc
		adc	#$0005		;add in boot blks and directory
		sta	last_bitmap	;blk number of last bitmap blk

		jsr	fill_gbuf_low	;allocate 4096 blocks please

		ldx	last_bitmap	;block number of last bitmap block
dir_build				; 
		jsr	alloc_bit_blk	;allocate a bitmap block please
		dex			;allocate the next block please
		bpl	dir_build
		bra	chk_last	;see if we are done

full_loop				; 
		jsr	fill_gbuf_low	;allocate 4096 blocks

chk_last				; 
		lda	drvr_blk_num	;our we done?
		cmp	last_bitmap
		beq	clear_to_end	;yes we are

		jsr	device_call	;issue write call
		bcs	end1_bitmap
		inc	drvr_blk_num	;move to the next block please
		bra	full_loop


clear_to_end				; ;clear from last bit to the end
		lda	new_tot_blks
		tax
		and	#$0FFF		;do we need to clear anything?
		beq	just_write
		txa			;we must clear some bits
		and	#$0007		;are we byte aligned?
		beq	fast_clr	;yes we are
		jsr	alloc_bit_blk	;allocate the odd block
		inx
		stx	new_tot_blks
		bra	clear_to_end
fast_clr				; 
		jsr	calc_bit	;get the index please

		lda	#$0000
fast_loop	sta	[drvr_buf_ptr],y
		iny
		iny			;WARNING! we might overwrite a byte
		cpy	#$0200		;past $200 this is OK with a 1K buffer
		bcc	fast_loop	;since we are using 512 bytes only
just_write				; 
		jsr	device_call	;issue write call
end1_bitmap				; 
		rts

alloc_bit_blk				; 
		phx			;save the block number
		jsr	calc_bit	;convert block number to bit pattern
		eor	#$FFFF		;clear the correct bit please
		and	[drvr_buf_ptr],y
		sta	[drvr_buf_ptr],y
		plx			;restore block number
		rts

;======================================================================
;get_dev_blks   This routine will return the number of blocks on
;               the volume.
;
;Output:        A = number of blocks
;======================================================================

get_dev_blks				; 
		lda	#drvr_status	;issue a status call to the device
		sta	drvr_call_num

		lda	#^status_list	;setup a pointer to the status list
		sta	drvr_slist_ptr+2
		lda	#status_list
		sta	drvr_slist_ptr

		lda	#$0006		;a six byte request count
		sta	drvr_req_cnt
		stz	drvr_req_cnt+2

		lda	#blk_size
		sta	drvr_blk_size

		stz	drvr_stat_code	;issue a 'driver status' call.
		jsr	device_call	;blast off!!
		bcs	holy_cow_batman	;An error?

		ldx	#$FFFF		;a 32 meg volume
		lda	return_blks+2	;return the blocks please
		bne	big_boy
		ldx	return_blks
		cpx	#$0007	
		bcc	range_problem	;sorry this device is too small
big_boy					; 
		txa			;number of blocks on volume
		clc
holy_cow_batman
		rts

range_problem
		lda	#drvr_bad_block	;we will not do it.
		sec
		rts
		
;======================================================================
;This routine will mark any VCR's that are logged on this device as
;being swapped.  This will allow any FST to rebuild the VCR after the
;media has been erased or formatted.
;======================================================================

clear_any_vcrs				; 
		lda	dev_num		;device number we are going to erase
		jsl	swap_out	;mark volumes offline
		rts
		ENDP
		
;==========================================================================
;This file contians the calls the handle FST specific calls
;
;created:       Mar 19, 1988
;modified:      Mar 19, 1988
;Author:        Rob Turner
;
;
;==========================================================================
		longa	on
		longi	on

		EXPORT	fst_specific	
fst_specific	PROC

		ldy	#$0004		;index to command number
		lda	[param_blk_ptr],y
		cmp	#set_time_stamp
		beq	set_time
		cmp	#get_time_stamp
		beq	get_time
		cmp	#set_upper_case
		beq	set_fst_attr	;set the Upper case flag please
		cmp	#get_upper_case
		beq	get_fst_attr
		
	IF debug_on<>0 THEN
		jsr	fst_debug	;check special commands for debugger
		bra	exit		;exit with error
	ENDIF	
		lda	#invalid_fst_op
		bra	error_out

parm_range
		lda	#parm_range_err	;parameter out of range
		bra	error_out

bad_pcnt 
		lda	#invalid_pcount

error_out 
		sec
exit 
		jmp	main_exit

;==========================================================================
;This call allows the user to set the time stamp option. Below is the valid
;list of values.
;
;	$0000	=	Time stamp files only
;	$0001	=	Time stamp file + Parent Directory
;	$0002	=	Time stamp file + all directories to the root
;
;==========================================================================
set_time
		lda	[param_blk_ptr]	;verify the Pcount
		cmp	#$0003
		bne	bad_pcnt
		iny
		iny			;point to the stamp size
		lda	[param_blk_ptr],y
		cmp	#$0003
		bcs	parm_range	;sorry bad
		sta	time_stamp_opt
		clc
		bra	exit

;==========================================================================
;This call returns the current time stamp option. Below is the valid
;list of values.
;
;	$0000	=	Time stamp files only
;	$0001	=	Time stamp file + Parent Directory
;	$0002	=	Time stamp file + all directories to the root
;
;==========================================================================
get_time
		lda	[param_blk_ptr]	;verify the Pcount
		cmp	#$0003
		bne	bad_pcnt
		iny
		iny			;point to the stamp size
		lda	time_stamp_opt
		sta	[param_blk_ptr],y
		clc
		bra	exit


;==========================================================================
;This call allows the user to set the upper case state to on or off
;If set to off all file names will be returned in upper case, otherwise
;they will be returned in the cae they were created in.
;
;	$0000	=	Turn OFF upper/lower case
;	$0001	= 	Return case as created/renamed
;
;==========================================================================
set_fst_attr
		lda	[param_blk_ptr]	;verify the Pcount
		cmp	#$0003
		bne	bad_pcnt
		iny
		iny			;point to the input parameter
		lda	[param_blk_ptr],y
		beq	@set_high_bit
		dec	a
		bne	parm_range	;sorry bad
		
		lda	fst_attr	;clear the bit please
		and	#$7FFF
		sta	fst_attr
		clc
		bra	exit
@set_high_bit
		lda	fst_attr	;turn off upper/lower case.
		ora	#$8000
		sta	fst_attr
		clc
		bra	exit

;==========================================================================
;This call allows the user to get the upper case state.
;
;	$0000	=	files are returned in all UPPERCASE
;	$0001	= 	Return case as created/renamed
;
;==========================================================================
get_fst_attr
		lda	[param_blk_ptr]	;verify the Pcount
		cmp	#$0003
		bne	bad_pcnt
		iny
		iny			;point to the input parameter
		ldx	#$0000
		lda	fst_attr
		bmi	@return_zero
		inx
@return_zero
		txa
		sta	[param_blk_ptr],y
		clc
		bra	exit
		ENDP

		EXPORT	end_segment	
end_segment	PROC
		EXPORT	end_code
end_code              
		ENDP
		end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/FSTs/ProDOS/pro.fst.revisions b/IIGS.601.SRC/GS.OS/FSTs/ProDOS/pro.fst.revisions
new file mode 100644
index 0000000..8cde20d
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/FSTs/ProDOS/pro.fst.revisions
@@ -0,0 +1 @@
+
		
;======================================================================
; Revision History for the ProDOS FST.
;
; Feb. 01 1988  By Rob Turner
;
;               Forced dirty bitmap blocks to be written to disk after
;               change_path call has been made.
;
;               Files changed:
;                       (1) change.path
;
; Feb. 03 1988 By Rob Turner  v00.02 a01
;
;               Changed the chk_protect routine.  The routine use to
;               issue a status call to the drive on every call that
;               involved writing.  The routine now checks the VCR
;               to see if we have already determined that the media
;               is write enabled. If the media is write enabled then
;               we just exit.  The status bit that determines if we
;               should status the drive is cleared by the swap_out
;               routine in SCM.
;
;               Files changed:
;                       (1) common.code
;                           changed the chk_protect routine.
;
; Feb. 08 1988 By Rob Turner  v00.02 a02
;
;               Changed the setup_parms routine.  On any write call
;               the mount_volume routine was being called if the media
;               was write enabled.  The reason for this was the mask used
;               to determine of the volume had been swapped was wrong.
;               instead of ANDing with $4000 to see if the swapped bit
;               was set, the routine was ANDing with $BFFF, the mask used
;               to clear the swapped bit.
;
;               files changed:
;                       (1) common.code
;                           changed setup_parms rouitne.
;
; Feb. 11 1988 By Rob Turner v00.02 a03
;
;               Fixed bug in the Read routine.  The flush file routine
;               is called at the beginning of the read routine to see
;               if the file needs to written to disk before the read
;               takes place.  This routine may set the drvr_call_num
;               to write. Later in the routine the dev_with_mount routine
;               is called with drvr_call_num still set to write.  So instead
;               of reading data into the user's buffer, the data from the
;               user's buffer is written to the file he/she is trying to
;               read.  Note: I now only call flush_file if the file is dirty
;               this keeps use from flushing dirty bitmaps when we do not
;               need to!
;
;               files changed:
;                       (1) Read
;                           changed dev_with_mount to read_with_mount
;
; Feb. 11 1988 By Rob Turner v00.02 a04
;
;               Fixed a bug in class 1 calls.  Drvr_fst_num was not setup
;               on class 1 calls.
;
;               files changed:
;                       (1) Common.code
;                           Move drvr_fst_num setup to common position.
;
; Feb. 12 1988 By Rob Turner v00.02 a05 ---> v00.03 a01
;
;               Changed the way that flush_bitmap works.  Flush_bitmap
;               now checks to see if the open_cnt for the vcr is zero.
;               If the count is non-zero the bitmap block is not written
;               to disk.  I also changed the routines that must write
;               the bitmap to disk requardless of the open_file count.
;
;               files changed:

;                       (1) io.subroutines
;                           changed flush_bitmap, added force_bitmap
;                       (2) bitmaps
;                           calc_free: converted to force_bitmap
;                           get_bit_block: converted to force_bitmap
;                       (3) memory
;                           remove_fcr: now calls force_bitmap.
;
; Feb. 22 1988 By Rob Turner v00.03 a02
;
;               Fixed a bug in create.  When creating an extended file
;               the system could crash.  The problem occured when the
;               data fork was not the same storage type as the resource
;               fork.  The reason the system crashed was we were trying
;               to create a sapling file with one block.  This will cause
;               an index that is used to decrement to $FFFF, which in turn
;               will walk its way down to zero, zapping everything in it's
;               path.
;
;               files changed:
;                       (1) create
;                           changed the create_resource routine to setup
;                           blks_used1 before calling the make_fork routine.
;
; Feb. 22 1988 By Rob Turner v00.03 a03
;
;               Fixed a bug in change path.  No error was returned if the
;               destination file already existed.
;
;               files changed:
;                       (1) change.path
;                           changed 'end_change' to save the error code
;                           before calling flush bitmap.  The error code
;                           is now restored before calling 'main_exit'
;
; Feb. 24 1988 By Rob Turner v00.03 a04
;
;               Changed the create call.  The create call use to set
;               the minimum version to zero (SOS compatible) for all
;               files.  I now set the minimum version to 5 (ProDOS
;               FST) for extended files.
;
;               files changed:
;                       (1) create
;                           add a line of code that sets both version and
;                           minimum version to Pro_ID.
;
; Feb. 25 1988 By Rob Turner v00.03 a05  --> v00.04 a01
;
;               Changed the seperator used in pathnames from a $80 to
;               a ':'.
;
;               files changed:
;                       (1) equ.and.data
;                           changed delimiter equate from $80 to $3A (:)
;
; Mar. 02 1988 By Rob Turner v00.04 a02
;
;               Changed the read routine to transfer small read request
;               locally, instead of calling the move_info routine.
;               This might speed things up.
;
;               files changed:
;                       (1) read
;                           added local move code 'send_small'
;                       (2) equ.and.data
;                           added 'min_send_cnt' to equates
;
; Mar. 04 1988 By Rob Turner v00.04 a03
;
;               Change_path will now change the '*' prefix if we are
;               renaming the boot volume.
;
;               files changed:
;                       (1) change.path
;                           added 'chk_boot_vol' routine
;
; Mar. 15 1988 By Rob Turner v00.04 a04
;
;               Change Format/Erase.  The volume name syntax is now checked
;               before the format call is issued.
;
;               files changed:
;                       (1) format.erase
;
; Mar. 16 1988 By Rob Turner v00.04 a05
;
;               Fixed a bug in set_eof.  When the file was converted
;               from a tree to a sapling or from a sapling to a seedling
;               the last index block entry was not being set to zero.
;               So if you tried to write to the file without closing it
;               you would run into many problems.
;
;               files changed:
;                       (1) set_eof
;                           added code to clear last index block in both
;                           'tree_sapling' and 'sapling_seed'.
;
; Mar. 18 1988 By Rob Turner v00.04 a06
;
;               Fixed a bug in change path.  If you were moving a file
;               with a subset name into a lower level folder I would
;               return an error.  Example:
;
;               Path1   :foo:prodos.fst:debugger(0)
;               Path2   :foo:prodos.fst:debug:debugger(0)
;                                            ^
;                                            | error occured here.  If I
;                                              encountered a different char.
;                                              and the destination char. was
;                                              a delimiter I would return an
;                                              error.  I should not return
;                                              an error unless the source
;                                              path terminated with a null.
;               Example 2:
;
;               Path1   :foo:prodos.fst:debug(0)
;               Path2   :foo:prodos.fst:debug:debugger(0)
;
;                       This example should return an error.
;
;               files changed:
;
;                       (1) change.path
;                           added another check in 'subset_loop'
;
; Mar. 19 1988 by Rob Turner v00.04 a07 --> v00.05 a01
;
;               Added FST specific call 'set_time_stamp'. Changed
;               slug ripple to do the following based on 'time_stamp_opt':
;
;               Time_stamp_opt          Action
;               --------------          ------
;                       0               only files are time stampled
;                       1               files + Subdirectories
;                       2               files, Subdirs, subdirs to root level
;
;               added code to call 'slug_ripple' from the following calls:
;
;               1) Create
;               2) Destroy
;               3) Change_Path
;               4) Set_File_Info
;               5) close
;               6) flush
;
;               fixed a bug in set_file_info.  If you set either the create
;               or mod date to zero the current time was not used.
;
;               fixed a bug in 'read/write_with_cache'.  The carry flag
;               was being srewed up on return do to a stack probelm.
;
;               fixed a bug in find_file.  If any part of the pathname
;               was not found, a 'file_not_found' error was returned.
;               The 'file_not_found' error is now returned only if the
;               last name in the pathname is not found. Otherwise, a
;               'path_not_found' error is returned
;
;               files changed:
;                       (1) equ.and.data
;                           new equates for fst specific calls
;                       (2) data
;                           new entry for fst specific call and added
;                           close_flag, slug_block, slug_offset, time_stamp_opt
;                       (3) fst.specific
;                           this is new file
;                       (4) create
;                       (5) destroy
;                       (6) change_path
;                       (7) set_file_info
;                           slug_ripple and changed 'get_pblk_time' to
;                           handle reading the GS clock of the time is
;                           zeros.
;                       (8) close
;                           close now sets up 'close_flag' to force a call
;                           to 'slug_ripple'
;                       (9) flush
;                           same as close
;                       (10)common.code
;                           setup_params now sets up 'close_flag' to bypass
;                           a call to slug_ripple from flush_file.
;                           added a routine called 'entry_to_offset'.
;                       (11)io.subroutines
;                           implemented slug_ripple and added code to
;                           flush_file that will call slug_ripple if
;                           time_stamp is enabled and close_flag is set
;                           to true.
;
; Apr. 12 1988 by Rob Turner v00.05 a02
;
;               Changed max_pcount on format and erase to four
;               files changed:
;                       (1) data
;
; Apr. 16 1988 by Rob Turner v00.05 a03 --> v00.06 a01
;
;               Fixed a bug in Read.  I was checking the disk access bit
;               for read enabled.  I should have been checking the
;               user's access from the open call.
;               Fixed a bug in Open.  If the user supplied the access on
;               open, I did not verify the requested access with the
;               actual access on disk, I now verify the requested access.
;
;               files changed:
;                       (1) read
;                           changed the check access from 'disk' to "user's"
;                       (2) open
;                           changed the 'setup_access' routine.  The
;                           routine now verifies the requested access
;                           against the directory entry access.
;
; Apr. 21 1988 by Rob Turner v00.06 a02
;
;               Fixed a bug in set_eof.  When converting from Tree to sapling
;               the buffers were loaded incorrectly.
;
;               files changed:
;                       (1) set.eof
;                           made changes to tree_sapling routine
;                       (2) read
;                           changed the fill_io_buf routine.  There was
;                           a small bug that would refill an already sparse
;                           block
;
;               fixed a bug in Format/Erase.  If the user erased a disk
;               that had a VCR build then created a file on the freshly
;               erased disk, the bitmap that was in memory would be
;               written to the disk (unless the disk was switched).  To
;               fix the problem I now call swap_out before formatting
;               or erasing the disk.
;
; Apr. 22 1988 by Rob Turner v00.06 a03
;
;               Fix a bad bug in set_eof (I know, this routine is a real
;               pain in the rear).  When converting from tree_sapling
;               or sapling_seed the I/O buffer was being logically
;               deallocated, and the I/O buffer was not loaded correctly
;               on exit!
;
;               files changed:
;                       (1) set.eof
;                           changed 'tree_sapling' and 'sapling_seed'
;                           I now mark the index and master buffers
;                           as clean instead of inactive.
;
; Apr. 25 1988 by Rob Turner v00.06 a04
;
;               Changed partion map name from 'prodos' to 'Apple_PRODOS'
;
; May. 02 1988 by Rob Turner v00.06 a05 --> v00.07 a01
;
;               Fixed a bug in write.  The Index block loaded was
;               always the index block number stored in the FCR.
;
;               files changed:
;                       (1) write
;
; May. 05 1988 by Rob Turner v00.07 a02
;
;               Fixed a bug in create.  If the user specified only
;               one of the date/time fields an incorrect date and
;               time field were saved with the file.
;
;               files changed:
;                       (1) create
;                           now check both date and time fields.
;
;               Fixed bug in C1 Set_EOF.  The call was always returning
;               param. out of range if any value greater then four
;               was used in the displacement field.  The problem was
;               caused by a bad equate.  The equate (index) included
;               the PCount field in the class1 call.  The pointer that
;               we use already points past the PCount field.
;
; May. 06 1988 by Rob Turner v00.07 a03
;
;               Changed the set_file_info routine.  The routine now
;               forces the file type field to $0F if the storage type
;               of the file is a directory.  This means that an
;               application cannot set a directory to a ascii file etc.
;
; May. 19 1988 by Rob Turner v00.07 a04 --> v00.08 a01
;
;               Fixed a bug in the exit routine.  The routine was
;               checking for certain errors so it could mark the volume
;               "damaged".  However the error code had garbage in the
;               high byte so the compare did not catch the error.
;
; Jun.	02 1988 by Rob Turner v00.08 a02
;
;		Changed the boot code to handle a sparse ProDOS file.
;		This means if you initialize a disk then copy system
;		disk 3.x it will now boot!  I changed this because
;		the ProDOS FST automatically creates sparse files.
;
; Jun.	07 1988 by Rob Turner v00.08 a03 > v00.09 a01
;
;		Fixed a bug in the create call.  The create call was
;		not allowing the invisible bit to be used as an input
;		for "access".  Also fixed a bug in the set_fil_info call.
;		The create and mod dates were not acting as described.
;		Fixed a bug in the write routine.  If an error occured
;		the transfer count, eof etc were not being saved.
;
; Jun. 	14 1988 by Rob Turner v00.09 a02
;
;		Fixed a bug in set_file_info (class 1)  The Pcount
;		field was being decremented to often, causing the 
;		create and mod dates to be missed.  Also, the order
;		of the create/mod times were reversed, so the mod
;		time was set even if the create time was the last
;		parameter supplied.
;
;		Fixed a bug in change_path.  The rename bit was not
;		honored by the call.  So any file could be renamed.
;
; Jun.	16 1988 by Rob Turner v00.09 a03
;
;		Fixed a bug in the Set_EOF call.  If you were reducing
;		the EOF and the index block was sparse I would deallocate
;		block zero.  Then I would try to deallocate block zero
;		again and a damaged bitmap error would occur.
;
; Jun. 	23 1988 by Rob Turner v00.09 a04
;
;		Fixed a bug in set mark.  The call would allow you to
;		set the mark to the same value as the EOF.
;
; Jun.	27 1988 by Rob Turner v00.09 a05
;	
;		Fixed a bug in the write routine.  The routine was not
;		checking the size of the write to determine if the
;		call would overrun the three byte EOF.
;
; Jun.	29 1988 by Rob Turner v00.09 a06
;
;		Fixed a bug in the write routine.  The I/O buffer was
;		not being filled correctly if the file was a seedling file
;		and you wrote $200 bytes to the file.
;
;		The "bug" fix in version 00.09 a04 was removed.  It turns
;		out that it is a bug in P8 and P16.
;
;		Fixed a bug in block read/write.  These routines would
;		put up a dialog indicating that a volume was damaged if
;		the correct type of error was returned.  However, the
;		volume name displayed did not match the volume that was
;		in the disk drive.  This has now been fixed.
;
;		Fixed a bug in set_mark.  If you set the mark to the
;		eof of a directory, the mark was being set to eof-1.
;
;
; Jun. 30 1988 by Rob Turner v00.09 a07 > v00.10 a01
;
;		Fixed a bug in the write routine.  The last block of
;		the file was trashed.  There has been major changes
;		to make this work.
;
; Jul. 6 1988 by Rob Turner v00.10 a02
;
;		Fixed a bug in the create call.  If you were creating
;		a resource file the blocks used field for the
;		resource fork was taken from the data fork.
;
; Jul. 11 1988 by Rob Turner v00.10 a03
;
;		Changed an error code.  If you did a set_file_info
;		call with an invalid access field, the error "invalid
;		access" was returned.  The error should have been 
;		"Parameter out of range"
;
; Jul. 11 1988 by Rob Turner v00.10 a04 -> v00.11 b01
;
;		Making MAJOR changes to Read/Set_Mark.  I am trying
;		to keep from writting dirty I/O buffers to disk
;		when the current call will work from the dirty buffer
;
;		Added strip bit in FST header for pathnames.
;
; Jul. 18 1988 by Rob Turner v00.11 b02
;
;		Changed default for "time_stamp_opt".  The default
;		now will time stamp files to the root level.
;
; Jul. 19 1988 by Rob Turner v00.11 b03
;
;		Fixed a bug in Get_Dir_Entry.  The high word of 
;		the block count field was not being set to zero.
;
; Jul. 20 1988 by Rob Turner v00.11 b04 -> v00.12 b01
;
;		Fixed a bug in create.  An error code was being lost
;		by one routine on exit
;
; Jul. 21 1988 by Rob Turner v00.12 b02
;
;		Fixed a bug in "Get_Dev_Num"  The routine was allowing
;		a pathname to be used.
;
; Jul. 22 1988 by Rob Turner v00.12 b03
;
;		Fixed the FST header.  The max blocks was off by one.
;
; Jul. 24 1988 by Rob Turner v00.12 b04
;
;		Added the call "Get_Time_Stamp_Opt".  The new call
;		is an FST specific call.  The call number is $8001
;		All my fst specific calls will work as follows:
;		Call numbers with high bit clear indicate input from
;		caller.  Call numbers with high bit set indicate 
;		status reguest from the call.
;
;		Changed the source file to get the common equaates from
;		"common:common.equ"
;
; Jul. 26 1988 by Rob Turner v00.12 b05
;
;		I now zero drvr_vol_id in setup_params.  This field will
;		be setup by each call.
;
; Jul. 26 1988 by Rob Turner v00.12 b06
;
;		Change get_dir_entry.  Get_dir_entry was returning the
;		blks_used and eof out of the directory block for all
;		files.  This included extended files, which meant the
;		eof was always $0200 and the blocks used was $0001.
;		I now return the blocks used and eof of the data fork
;		in the first eof and blocks used, and have extended
;		get_dir_entry list to include resource eof and blocks
;		used.  The new fields follow the option list pointer.
;		below is a list of the new fields
;
;		Pcount		(now upto $0011)
;
;		...		(normal parameters)
;
;		option_list 	(4 byte pointer)
;		res_eof		(4 bytes)
;		res_blks_used	(4 bytes)
;
;
; Jul. 27 1988 by Rob Turner v00.12 b07 -> v00.14 b01 (big leap past v00.13)
;
;		Fixed a major bug in set_eof.  If the file was seedling
;		and the buffer was dirty, and both the mark and eof 
;		were zero then a call to fill_io_buf would decrement
;		the mark to $FFFFFFFF and fill the I/O buffer with
;		zeros.  This followed by a flush_file would cause 
;		block zero to be written to the disk.
;
; Aug. 01 1988 by Rob Turner v00.14 b01 -> v00.15 b01
;
;		NO CHANGES!
;
; Aug. 02 1988 by Rob Turner v00.15 b02
;
;		Changed read_block.  The routine will now allow you
;		to read from a disk with a dirty bitmap or open files.
;
; Aug. 02 1988 by Rob Turner v00.15 b03
;
;		Change create.  The create call will no longer change
;		the storage type to 'SubDir' if the file type is $0F
;		(subdirectory).  This fixes Graphics Studio
;
; Aug. 04 1988 by Rob Turner v00.15 b04
;
;		I now allow full pathnames in the get_dev_num call
;
; Aug. 04 1988 by Rob Turner v00.15 b05 -> v00.16 b01
;
;		I now convert error "dev_not_found" to "invalid_dev_num"
;		on block read/write.
;
;		If the caller creates a file with a class one call and
;		a pcount of 4 and a file Type of $0F (Subdir) I will
;		adjust the storage type to be a subdirectory.  I will
;		also set the file type to $0F (Subdir) if the storage
;		type is set to "SubDir".  This means you cannot create
;		a subdirectory with a filetype other than $0F.
;
; Aug. 04 1988 by Rob Turner v00.16 b02 -> v00.17 b01
;
;		Fixed a bug in set_file_info.  The call will now update
;		both the disk and the FCR.  The call was not updating
;		the FCR if the file was open.
;
; Aug. 11 1988 by Rob Turner v00.17 b02
;
;		Fixed a bug in Fill_io_buf. Once again Block zero was
;		being written and a data block not being saved.  Thanks
;		to Ed Magnin of Cinemaware for sending "C" source that
;		would create the problem.
;
; Aug. 12 1988 by Rob Turner v00.17 b03 -> v00.18 b01
;
;		Flush_File and Flush_Block will no longer write sparse
;		blocks to disk.  The routine should never be called
;		with sparse blocks marked as dirty but this will cover
;		my rear.
;
; Aug. 14 1988 by Rob Turner v00.18 b02 -> v02.00 (First Public Release Sys Disk 4.0)
;
;		Changed "unpack_time".  The routine will now zero the
;		date if the input date is invalid.
;		Changed "get_pblk_time". The routine now validates the
;		month.
;
;		Fixed a bug with the backup bit.  The backup bit was
;		not being set correctly.  I now set the backup bit in
;		The "flush_file" routine.
;
;		Fixed a bug in Create Extended.  If the total blocks
;		overflowed to zero the system crashed.  The reason
;		was that "Find_Free_blks" was being called with no
;		blocks free on the disk.  This is a no-no.  Also fixed
;		a bug in create extened, where the resource header block
;		was not counted for when comparing the number of blocks
;		free on the disk verse the number of blocks needed.
;
; Oct. 12 1988 by Rob Turner v02.01 a01
;
;		Fixed a bug in "unpack_time".  The day compare was off
;		by one.  It should have been 32, not 31.  This was
;		causing the 31st of any month to default to zero.
;
; Nov. 02 1988 by Rob Turner v02.01 a02
;
;		Fixed a bug in Remove.fcr.  The routine was
;		decrementing the open file count in the VCR then calling
;		"force_bitmap" to force any dirty blocks to be written
;		to the disk.  
;
;		The Problem:
;
;		Remove_FCR
;		  --> Decrement the VCR open count. (1 => 0)
;		  --> Call Force_Bitmap
;		   	--> Call Device Write (diskSwitch Error Here)
;			--> OS Calls Swap_out.
;				--> Swap_out finds my VCR. (open count of 0)
;				--> Swap_out removes my VCR <-- (BUG BUG)
;			--> Mount Dialog is put up
;			--> User Types OK
;			--> Find_volume is called.
;			--> The volume is found and a new VCR is built.
;			--> Note: a blank Bitmap is loaded in VCR
;		  	--> We now write data that was purged.
;		  --> Remove the FCR
;
;		I now decrement the Open file count AFTER calling force_bitmap
;
;		I also changed Create.  The create call will now call
;		force_bitmap instead of flush_bitmap.  Flush_bitmap
;		does not write the bitmap if there are any open files
;		on the volume, force_bitmap always write the bitmap
;		to disk.
;
; Nov. 09 1988 by Rob Turner v02.01 a03
;
;		Changed the destroy routine.  The routine was setup to
;		look for multiply resource forks, it now only deletes
;		the two forks.  I also removed the debug code that
;		zeroed every block after it had been deleted. Slow....
;
;		Changed the Create Call.  The create call will now allow
;		you to add a resource fork to an existing file.  The
;		only types of files that this is valid for is seedling
;		sapling or tree.  Furthermore, only the storage type
;		and resource_eof fields are used by the create call
;		when an extension request has been made.  To extend
;		a file, the application has to set the storage type
;		to $8005 (Resource + $8000(extend bit)).  This new
;		feature brings along with it two new error codes.
;		The error codes are $70 (resource_exist: the file
;		already contains a resource fork) and $71 (res_add_err:
;		The file cannot have a resource fork added, e.g. a
;		subdirectory).  The code is a major hack, so you are now
;		warned.  The main code that was added relates to the variables
;		named "expand_xxxxxx"  there are a few.
;
; Nov. 16 1988 by Rob Turner v02.01 a04
;
;		Fixed a problem with the Read Call.  The read call would
;		only issue multiblock read request if the blocks that
;		were sequential were less the $8000.
;
;
; Dec. 02 1988 by Rob Turner v02.01 a05
;
;		Fixed a bug in the delete routine.  If you were deleting
;		a resource file the delete call could trash your disk.
;		the problem was that I tried to delete the resource
;		fork assuming the resource fork had the same storage
;		type as the data fork.  The problem code looked like
;		the following:
;		
;			ldy	#$0100		;get the resource type
;			lda	[ptr]		;I forgot the ',y'
;
; Dec. 05 1988 by Rob Turner v02.01 a06
;
;		Changed the Open Call.  The call will now cache the
;		first data block of the file. currently only the
;		index blocks are being cached.
;
;		Fixed a bug in the Boot code.  The boot code was suppose
;		to zero a block to handle sparse files.  The zero loop
;		had a bug in it.
;
; Dec. 05 1988 by Rob Turner v02.01 a07
;
;		Change the "flush_file" routine so it would make the
;		total blocks used field in the directory entry be
;		the real total blocks for an extended file.
;
; Dec. 09 1988 by Rob Turner v02.01 a08
;
;		Changed the Format/Erase calls.  These calls were not
;		checking for an error on the "Get_Block_Size" status
;		call.  I also added range checking on the block size.
;
; Jan. 11 1989 by Rob Turner v02.01 a09
;
;		Fixed a bug in Get_Dir_Entry. The routine was not handling
;		a bad entry name.  What was happening is the storage
;		type was non zero but the name length was zero and I
;		ended up transfering 64K bytes into the user's name
;		buffer.
;
; Jan. 14 1989 by Rob Turner v02.01 a0A
;
;		Changed Fill_IO_Buf so that index blocks are also 
;		put in the cache.
;
; Jan. 18 1989 by Rob Turner v02.01 a0B
;
;		Changed the open routine.  Now if the file is open for
;		reading and another open call is made with
;		"open_as_permitted" as the requested access I will open
;		the file a second time giving read access to the caller.
;		The last version would return an error.
;
; Jan. 19 1989 by Rob Turner v02.01 a0C
;
;		The FST will now only display the "Volume Damaged"
;		message once.
;
; Jan. 20 1989 by Rob Turner v02.01 a0D
;
;		Major changes.  I have added the field "dirty_file_cnt"
;		to the VCR.  I did this so I can flush the bitmap when
;		the last file that is dirty is closed, instead of
;		waiting till the last file is closed.
;
;		new labels to look for:
;
;			dirty_file_cnt
;			chk_dirty_flag
;			dirty_flags
;			dirty_cnt_changed
;
; Jan. 23 1989 by Rob Turner v02.01 a0E
;
;		Get_File_Info now puts the key block of a resource
;		file in the cache.
;
; Jan. 24 1989 by Rob Turner v02.01 a0F
;
;		Added the system global clean/dirty flag to the 
;		file control record.  If the file is clean then
;		the high bit of the access word is set to 1. If the
;		file is dirty the high bit is set to 0.
;
; Jan. 25 1989 by Rob Turner v02.01 a10
;
;		Changed setup_params to not display damaged message.
;
; Jan. 25 1989 by Rob Turner v02.01 a11
;
;		Changed change_path.  I was not updating the file
;		count in the VCR if a change path occured.
;
; Jan. 25 1989 by Rob Turner v02.01 a12
;
;		Changed change_path.  Added better use of the cache
;		and other Operating system calls.
;
; Jan. 25 1989 by Rob Turner v02.01 a13
;
;		Optimized flush routine.
;
; Feb. 13 1989 by Rob Turner v02.01 a14
;
;		Fixed a bug in SetEOF.  If SetEOF changed the structure
;		of the file, it did not update the directory entry
;		until the file was closed.  This meant if you openned
;		the file did a set EOF followed by a delete call, the
;		disk would be damaged.
;
; Feb. 14 1989 by Rob Turner v02.01 a15
;
;		Fixed a bug in find_file.  The find_file routine was
;		switching all registers to 8 bit mode when it was
;		only suppose to switch the accumulator.  This caused
;		the FST to fail with pathnames longer then 255
;		characters.
;
; Feb. 15 1989 by Rob Turner v02.01 a16
;
;		Alloc FCR now passes the volume name for all open
;		calls.  SCM will append any partial path to the
;		volume name.
;
; Feb. 16 1989 by Rob Turner v02.01 a17
;
;		Added the resource_bit to the access word in the
;		FCR.  The Resource_Bit(Bit 14) if set to one
;		indicates that the file is an extended file.
;
; Feb. 20 1989 by Rob Turner v02.01 a18
;
;		Added seperator to volume name when I pass in the name
;		to the Alloc FCR routine.
;
; Feb. 27 1989 by Rob Turner v02.01 a19
;
;		Fixed a bug in SetFileInfo.  The routine was not range
;		checking the seconds and day of week fields.  This was
;		not a problem since the ProDOS FST does not use the
;		fields.
;
; Mar. 02 1989 by Rob Turner v02.01 a1A
;
;		Added option list support on all calls that have the
;		parameter.  The first data word of the option list
;		contains the FST ID.
;
; Mar. 03 1989 by Rob Turner v02.01 a1B
;
;		Fixed a bug in "File_Open_Routine".  The routine was
;		checking the files Key_Block to detect that the file
;		was opened.  However, the routine was NOT checking
;		which volume the file was on.  This meant if a file
;		was open on volume "A" and you tried to delete a file
;		on volume "B" that had the same Key_Block, a
;		"File_Open_Error" would be returned.
;
;		Fixed a bug in open.  If an error occured while
;		sending the user information I was not removing the
;		file control record.
;
; Mar. 07 1989 by Rob Turner v02.01 a1C
;
;		Added post_event code if a device is written too.  This
;		will allow the Finder to detect volume change.
;
; Mar. 13 1989 by Rob Turner v02.01 a1D
;
;		Fixed a bug where I was storing into the FCR even though
;		the FCR pointer was not valid.
;
; Mar. 15 1989 by Rob Turner v02.01 b01
;
;		ProDOS FST now saves the case of file names.
;		Added two new fst specific commands.  The new commands
;		are:
;		(1) Set_Upper_Case
;		(2) Get_Upper_Case
;
; Mar. 16 1989 by Rob Turner v02.01 b02
;
;		The ProDOS FST will not set the mix case bit in the
;		access byte if the name is all upper case or the FST
;		specific option to disable case is enabled.
;
; Mar. 16 1989 by Rob Turner v02.01 b03
;
;		The mix case bits are now stored in the version and min
;		version fields in the directory entry.
;
; Mar. 16 1989 by Rob Turner v02.01 b04
;
;		Format/Erase was not handling volume names that
;		contained lower case letters.  This caused the ProDOS
;		FST not to recognize the volume.
;
; Mar. 16 1989 by Rob Turner v02.01 b05
;
;		I no longer ask for the disk if the caller is doing
;		a close call and there are no dirty files and the
;		bitmap is clean.
;
; Mar. 20 1989 by Rob Turner v02.01 b06
;
;		Get_File_Info now calculates the mod time for the
;		volume.
;
; Mar. 28 1989 by Rob Turner v02.01 b07
;
;		Fixed a major bug in the write routine.  It was
;		possible to have a block of data repeated into the
;		next data block by mistake.  I now copy the user's
;		data into the I/O buffer even on multi-block transfer.
;
; Mar. 31 1989 by Rob Turner v02.01 b08
;
;		Fixed a bug in GetFileInfo.  An Error was returned
;		when the PCount was 2 or 3.
;
; Apr. 03 1989 by Rob Turner v02.01 b09
;
;		Fixed a bug in Format/Erase.  The case bits were not
;		being reset before the format/erase calls were made.
;		This caused a problem if the new name was all uppercase.
;
; Apr. 07 1989 by Rob Turner v02.01 b0A
;
;		Fixed a bug in the ProDOS boot code.  The boot code
;		was reading block zero into the buffer when a sparse
;		block was encountered.
;
; May  10 1989 by Rob Turner v02.01 b0B
;
;		Fixed a bug in rename volume.  If the destination name
;		was an active VCR in the system, I would build a new
;		VCR with the same name.
;
; May  23 1989 by Rob Turner v02.01 b0C
;
;		Fixed a bug in rename volume.  If the destination name
;		was the same as the source I was returning "duplicate
;		volume" error.  I now return no error.
;
; May  30 1989 by Rob Turner v03.00
;
;		Fixed a bug in rename volume.  If the boot prefix 
;		contained lower case characters the FST would not
;		match names. Also, changed version to 3.0
;
; Jun  01 1989 by Rob Turner v03.01
;
;		Added Mod date to the volume.  The four bytes preceeding
;		case bits in the volume header now contain the last
;		mod date for the volume.  Note: the following is how
;		the Mod date is calculated for a ProDOS volume:
;
;		(1)	Mode_date := Create_date_From_Vol_Header
;		(2)	IF mode date <> NILL THEN
;			Mode_Date := Mode_Date_From_Vol_Header
;		(3)	WHILE NOT End_of_Vol_Dir DO
;				BEGIN
;				Temp_Mod := Next_Entries_Mod_Date;
;				If Temp_Mod > Mode_Date THEN
;					Mod_Date := Temp_Mode
;				END
;
;		The directory scanning is used in case the disk was
;		modified by SOS,ProDOS 8, ProDOS 16 or GS/OS version 4.0,
;		all of which, do not support the Modification Date in the
;		volume header.
;
; Jun  06 1989 by Rob Turner v03.02
;
;		Fixed a bug in ChangePath.  The routine that was checking
;		the volume name against the boot volume name, was 
;		checking one fewer bytes then it should have been.
;
; Jun  14 1989 by Rob Turner v03.03
;
;		Fixed a bug in the create call.  If the caller was
;		adding a resource fork to an existing file, the create
;		call required that their be enough free blocks to
;		create the entire file from scratch. (It should check
;		the storage needed to ADD the resource fork only.)
;
; Jul  05 1989 by Rob Turner v03.04
;
;		Fixed a bug in GetDirEntry.  If a buffer size of 4
;		was used, the FST walked over 64K of memory.  I also
;		fixed a bug, where the BufTooSmall error was not being
;		returned if I transfer the user's count and it was less
;		then the file length.
;
; Aug  03 1989 by Rob Turner v03.05
;
;		Fixed a bug in the write call.  If the application
;		issued a write call that caused the "partial_write"
;		routine to write across a block boundary, then
;		complete the write with sparse data, followed by
;		setting the EOF past the current mark, the file would
;		be trashed!
;
; Aug  27 1989 by Rob Turner v03.06
;
;		Fixed a bug in Set_EOF. Set_EOF was releasing blocks
;		from the current EOF to the new EOF, if the new EOF
;		was less then the current EOF.  This was only a problem
;		when the file was larger then the EOF (Caused by
;		a create call with an EOF greater then zero).
;		To fix this problem I added a routine called 
;		"setup_real_eof" to the Set_EOF code.  This routine
;		will determine the Current EOF based on physical
;		allocation of blocks instead of logical EOF.
;
;		Also fixed a bug in "create".  The create call would
;		create the wrong type file if you passed in an EOF
;		of $10000 (class 1).  The file would be a seedling
;		file instead of a sapling.  The bug was in the
;		"create_eof" routine.  The code at label "not_tree"
;		looked like the following:
;
;		not_tree	txa
;				cmp	#$0201
;				bcc	make_seedling!
;
;		if should be the following:
;
;		not_tree	tya
;				bne	make_sapling
;				txa
;				cmp	#$0201
;				bcc	make_seedling!
;
; Jan  23 1990 by Rob Turner and Monte v03.07 for SD 5.0.3
;
;		Fixed a bug in set_eof.  If a file was being cut from a tree to a sapling then
;		the first block of the file could be trashed by the routine "clr_to_boundary".
;		The problem was that "TreeToSapling" filled the IO Buffer with the mark set to
;		zero. This meant that the data in the I/O buffer was for the first block of the
;		file.  Later when Clr_To_Boundary was called it assumed the block in the I/O
;		buffer represented the LAST block of the file not the FIRST block of the file.
;
; Feb  04 1990 by Mensch v03.07 for SD 5.0.3
;
;		Fixed bug in dealloc_block.  Since a VCR keeps track of the
;		lowest-numbered bitmap block that has any free blocks
;		listed, dealloc_block must check whether it is freeing a
;		block in a lower-numbered block than the one listed in the
;		VCR, and update the VCR if necessary.  The bug was that the
;		compare instruction used was a BEQ.  This has been changed
;		to a BCS.
;
; Feb  26 1990 by Monte Benaresh v03.07 for SD 5.0.3
;
;		Fixed buf in process_path.  If the caller specified a device
;		name in the path, the routine would first call check_vcr_first
;		to see whether a VCR existed for that device, and if so, that
;		VCR would be used for the rest of the call.  The problem is
;		that if the user accesses a volume in a given device and then
;		swaps in a different volume, when he specifies a device in
;		the pathname process_path grabs the VCR for the first volume
;		and we're stuck with it; the FST calls SCM through
;		mount_message and insists that the user mount the first volume.
;		It seems that eliminating the call to check_vcr_first is
;		fine since that routine affects no globals, but allowed the
;		process_path code to take a shortcut.  As long as id_disk
;		gets called, everything should get set up fine.
;
; Mar  27 1990 by Monte Benaresh v3.07 for SD 5.0.3
;
;		The FLUSH call now supports two types of flush: a "full"
;		flush, which flushes a file's dirty data blocks and dirty
;		directory blocks, and a "fast" flush which flushes dirty
;		data blocks only. Note that FLUSH previously performed
;		the "full" flush. The type of flush is specified in the
;		parameter block by the caller. If this parameter is not
;		given, the "full" flush is performed.
;
;		New FLUSH parameter block:
;
;			|---------------|
;			|    P_COUNT	| (word)
;			|---------------|
;			|    REF_NUM	| (word)
;			|---------------|
;			|   FLUSH_TYPE	| (word)
;			|---------------|
;
;		Valid values for FLUSH_TYPE are:
;			$0000 = full flush (default)
;			$8000 = fast flush
;
; Jun  21 1990 by Monte Benaresh v3.07 for SD 5.0.3
;
;		Fixed bug where SET_EOF would trash a file when a call
;		was made to move the EOF back or the same on a file which
;		has a sparse area at the end (i.e., sparsed-out blocks at
;		the end of the block list) and the new EOF is still within
;		the sparsed range.
;
;		The problem is that when SET_EOF sees that the new EOF
;		is less than or equal to the old EOF, it calls
;		setup_real_eof to calculate the effective EOF that is
;		allocated for the file by scanning the index blocks
;		for the last non-zero entry. The idea is that if blocks
;		were pre-allocated for the file by specifying a
;		non-zero EOF in the CREATE call, we will now be able to
;		de-allocate them if the new EOF is smaller than the one
;		specified then. However, if the end of the file is
;		sparsed-out, setup_real_eof may come up with a value
;		which is LESS than the new EOF. Since SET_EOF is now
;		assuming that the task at hand is to deallocate blocks,
;		major problems arise and bad stuff happens to the file.
;
;		The fix inserts a check at the end of setup_real_eof
;		to see whether the "real" EOF value is less that the
;		requested value. If this is the case then the new
;		value is discarded and the old value is rounded-up to
;		the next multiple of the blocksize, and this value is
;		used by SET_EOF. This fix essentially simulates what
;		would have happened if the end of the file was not
;		sparse.
;
; July 9 1990 by Greg Branche
;
;		The original implementation of the "Fast Flush" call was
;		bad.  The bitmap and directory were not being written to
;		disk if either were dirty, which was causing corruption
;		of the disk if the file was not properly flushed or
;		closed.  (This could happen if the machine crashed while
;		the file was open.)  This has been corrected by adding a
;		"directory entry dirty" bit to the fcr_status word in the
;		fcr.  Logic has also been added to insure the integrity of
;		the bitmap and directory entry during a "Fast Flush" call.
;
;		SetFileInfo was not handling zeroed fields of the mod_date
;		and create_date parameters correctly.  If the entire
;		parameter is zeroed, it's supposed to either use the
;		current date (if its the mod_date parm), or leave it
;		alone (if its the create_date).  If only a portion of the
;		field is zero, though, it should use the zero as the value
;		to place in the directory entry.  This is now what happens.
;
;		Minor code compression performed to get the file back to
;		it's original block size after adding the above fixes.
;
; Jul  20 1990 by Monte Benaresh v3.07 for SD 5.0.3
;
;		Fixed bug introduced by change to setup_real_eof on
;		6/21/90. Whenever a file's storage type was "smaller"
;		than its EOF because the trailing portion was sparse,
;		setting the EOF back enough to delete the second entry
;		in an index block would cause the file to become a
;		seedling, even if that index block was not the only
;		one belonging to the file, and the volume would become
;		corrupted (if the index block in question was "virtual"
;		due to its having been "sparsed out," the resulting
;		seedling would own block 0 and deleting it would leave
;		the boot block vulnerable to allocation).
;
;		The fix reverts the changes made to setup_real_eof
;		because cut_block cannot work on a block whose logical
;		position is out of the range of the current structure
;		(e.g., beyond the 128K mark in a sapling). Instead,
;		set_eof was modified to call setup_real_eof before
;		deciding whether it needs to cut blocks, rather than
;		deciding based on the logical EOF and then calling
;		setup_real_eof only if the new EOF is less than the
;		logical EOF. This ensures that set_eof will always
;		compare the position of the last physically allocated
;		block to the new EOF when deciding whether to cut
;		blocks.
;
;		Another minor change in the same routine forces the
;		new EOF to be updated into the FCR even when it is
;		equal to the "old" EOF, because the "old" EOF is now
;		the value calculated based on the physical allocation,
;		and might not in fact be the same as the logical EOF
;		recorded in the data structures.
;
; Jul  26 1990 by Matt Gulick & Monte Benaresh v3.07 for SD 5.0.3
;
;		Added terminator nulls to ProDOS partition type string,
;		and added 2 to value of length byte. This correction
;		ensures compatibility with the Macintosh Sys SW needed
;		to use the ProDOS FSM.
;
; Aug   5 1990 by Monte Benaresh v3.07 for SD 5.0.3
;
;		Fixed a silly bug in dec_blk_count. When it decremented
;		the block count it checked for the result being 0 or
;		negative, and if so it would not store the new value or
;		mark the directory as dirty, but just return with no
;		error. The main problem is that the block count includes
;		any index blocks and master index block, so a file which
;		is not sparse can have a block count of up to $8081,
;		which is negative and caused the block count to be
;		"stuck" where is is during an EOF cutback.
;
;		The checks were simply removed since the block count is
;		always valid if the FST is working properly, and because
;		no meaningful error mechanism was ever implemented to
;		handle an invalid block count.
;
; Aug   6-7 1990 by Monte Benaresh v3.07 for SD 5.0.3
;
;		Added a "jsr standard_req" to the load_index subroutine
;		because it has always been lucky in the past that the
;		drvr_req_cnt was correctly left over from previous
;		calls. The resent bug fixes have caused the routine
;		to be called right after a driver status call, in which
;		case the "left over" value is $0006, which is wrong for
;		a block read call. Also added a "jsr flush_file" in
;		set_eof before the newly-added setup_real_eof call.
;		This was done because those calls were originally made
;		in that order before the resent fixes to set_eof and
;		I don't want to take any chances.
;
;		Added code to setup_real_eof so that it now records
;		the index block number in the FCR after calling
;		load_index. Without this, the block number in the FCR
;		did not match the block in the buffer, and a subsequent
;		FLUSH would corrupt the disk.
;
; Aug   8 1990 by Monte Benaresh v3.07 for SD 5.0.3
;
;		Added a forgotten instruction to the 32-bit compare
;		sequence added in the 7/21/90 fix to set_eof.  The
;		"bne" instruction after the high word compare had
;		carelessly been ommitted.
;
; Nov	6 1990 by Cheryl Ewy v3.08 for SD 6.0
;
;		Fixed a bug (BRC # 74604 and # 74530) in Create.  
;		If Create was attempting to add a resource fork to an
;		existing file on a full disk, it would crash.  The problem
;		was that after the code figured out how many free blocks
;		there were on the disk, it didn't check to see if the
;		result was 0 before continuing.
;
; Nov	11 1990 by Cheryl Ewy v3.08 for SD 6.0
;
;		Setup_params will now report a bad_path_syntax error if
;		span1 or span2 is 0.
;  
; Jan	22 1991 by Cheryl Ewy v3.08 for SD 6.0
;
; 		Enhancement - The Volume call will now setup the "volname" 
;		output parameter if a "dup_volume" error is being returned.
;
;		Bug fix - Set_EOF was returning the wrong error code if
;		the user tried to set the EOF < 0.
;
;		Bug fix - ChangePath was allowing illegal moves which
;		resulted in a damaged disk.  The code was doing a
;		case-sensitive compare on the pathnames instead of a
;		case-insensitive compare.
;
; 		Enhancement - The ChangePath call will now allow a duplicate 
;		volume to be renamed if a device name is used as the source 
;		pathname.
;
;		Enhancement - Added support for the JudgeName call.
;
; Jan	25 1991 by Cheryl Ewy v3.08 for SD 6.0
;
;		Minor changes to JudgeName.
;
; Jan	31 1991 by Cheryl Ewy v3.08 for SD 6.0
;
;		Bug fix - JudgeName was not setting bit 13 of name_flags
;		if the first character of the name was illegal.
;
; Feb	11 1991 by Cheryl Ewy v3.08 for SD 6.0
;
;		Modified JudgeName so that it won't remove any legal periods.
;
; Feb	13 1991 by Cheryl Ewy v3.08 for SD 6.0
;
;		Enhancement - If an option_list is supplied to SetFileInfo,
;		and the FST ID of the list is HFS or AppleShare, and the
;		file we are dealing with is a resource (extended) file,
;		then the contents of the option list (the HFS Finder Info)
;		will be stored in the file's resource header after the 
;		data fork's mini-entry.
;		If an option_list is requested from GetFileInfo or Open or
;		GetDirEntry, and the file we are dealing with is a resource
;		file, and the resource header contains entries for the
;		HFS Finder Info, then the HFS Finder Info will be returned
;		in the option_list buffer and the FST ID of the list will
;		be set to the ID of the HFS FST.
;		This enhancement will allow HFS files to be copied to and
;		from a ProDOS volume without losing their Macintosh creator
;		and filetype information.
;
; Feb	15 1991 by Cheryl Ewy v3.08 for SD 6.0
;
;		Modified the previous enhancement.  The FST ID in the
;		option_list will not be set to HFS so SetFileInfo
;		will now also accept ProDOS option_lists.
;
; Feb	28 1991 by Cheryl Ewy v4.00 for SD 6.0
;
;		Changed version # to $8400 (version 4.00 prototype).
;		Changed the max pcount allowed for Format and Erase_disk.
;
; Mar	 1 1991 by Cheryl Ewy v4.00 for SD 6.0
;
;  		Redefined the second field of the option_list to contain
;		the actual data size when doing a SetFileInfo call.
;
; Mar	 5 1991 by Cheryl Ewy v4.00 for SD 6.0
;
;		Added support for error priorities.
;
; Mar	13 1991 by Cheryl Ewy v4.00 for SD 6.0
;
;		Bug fix (BRC # 74306) - GetFileInfo wasn't returning
;		the latest 'eof' and 'blocks used' when dealing with
;		an extended file which had an open fork.
;
; Mar	15 1991 by Cheryl Ewy v4.00 for SD 6.0
;
;		Bug fix (BRC # 73529) - ChangePath was allowing a
;		'move and rename' on a locked file/dir.
;
;		Bug fix (BRC # 66663) - The backup bit for a directory
;		was not set when the directory's contents changed.
;
; Mar	26 1991 by Cheryl Ewy v4.00 for SD 6.0
;
;		Bug fix (BRC # 77894) - Attempting to rename the startup
;		volume to an illegal name (bad syntax) resulted in the 
;		boot prefix being changed to the illegal name before the 
;		syntax error was discovered and reported.
;
;		Bug fix (BRC # 53517) - Renaming a volume which had the
;		same name as the boot volume caused the boot prefix to
;		be changed to the new name.
;
; Apr	 5 1991 by Cheryl Ewy v4.00 for SD 6.0
;
;		Bug fix - When the backup bit for a volume directory was set
;		by slug_ripple or cleared by clear_backup, the vcr wasn't 
;		updated which caused the FST to think there was a duplicate 
;		volume the next time it compared the volume header to the vcr.
;
; Apr   14 1991 by Dave Lyons v4.00 for SD 6.0
;
;		Added code to JudgeName to call StringToText on the input
;		text before the rest of the processing.  This way if there
;		are foreign characters or special symbols in the input, they
;		get converted into their closest text representations before
;		we change invalid characters to periods, etc.  For example,
;		"RŽsumŽ Plusª" (which was previously translated to "R.sum.Plus")
;		is now translated to "Resume.Plus.TM".
;
; Apr	29 1991 by Dave Lyons v4.00 for SD 6.0
;
;		In JudgeName after my StringToText call, added check to see
;		if the string has become null.  This case was going off into
;		the weeds.
;
; Jun 21, 1991	by Greg Branche
;
;		In convert_time routine, I added logic to limit the allowable
;		  range of year values from 00-99, in accordance with ProDOS
;		  Tech Note #28.
;		Altered unpack_time so that year values in the range of 0-39
;		  are adjusted to 100-139, so that they end up returned as
;		  2000-2039 (again, for TN #28).
;
; Aug 7, 1991	by Dave Lyons
;
;		Added conditional code based on AllowLCPeriods.  If you set
;		  this symbol to 1, then the FST allows space characters
;		  in names, which are really "lowercase periods" on disk.
;
; Aug 12, 1991	by Jack Valois
;
;		Changed the setup_params and change_path routines to ensure
;		  that the error prioriity gets setup before span2 is checked.
;
; Oct 3, 1991  by Jack Valois
;
;		Moved the check for moving a parent into a child in the ChangePath
;		call, from the validate_paths routine into the main ChangePath 
;		routine.  The problem was that ProDOS was making the child check
;		in a different manner that what is done in HFS and AppleShare.
;		This resulted in a different error being returned for the very
;		same case, depending on which filesystem it was on.  The check
;		for a child should be made after the check to see if the dest.
;		allready exsists.
;
; Oct 10, 1991 by Jack Valois
;
;		Moved check for if spans are valid for all calls that use a 
;		pathname until after we have identified the target volume as 
;		a ProDOS volume.  This will insure that the error_priority
;		get sets properly if the target is a ProDOS volume.
;
; Dec 5, 1991 by Mark Day
;
;		Added a third parameter to class 1 change_path: flags.
;		If bit 15 is set and the source path is a device number
;		only, then assume it is a duplicate volume and build a fake
;		VCR, just as if there was already a duplicate VCR with open
;		files.  This allows disk-copy programs (including Finder)
;		to rename a disk without making the OS think the source
;		disk was renamed.
;
; Dec 20, 1991 by Mark Day
;
;		There is a disk corruption bug caused by a device driver
;		falsely returning a disk-switched status from a device
;		status call after the pathname has already been found
;		(you'd have to be REALLY quick to switch the disk).  This
;		results in the VCR being disposed if there are no open
;		files.  The FST then accesses what used to be the VCR,
;		and things go down hill from there.  The status call is
;		made as a result of calling chk_disk_protect. Now
;		chk_disk_protect calls mount_volume after finding the
;		disk switched condition.  The side-effect is that we
;		won't detect the write-protect setting immediately and
;		might have to wait until the first attempt to write to
;		the device to get the write protected error.
;
; Jan 7, 1992 by Greg Branche
;		Added logic in vol_to_buffer (part of Build_Path) which
;		checks the length of the volume name being parsed out
;		to ensure that it contains no more than 15 characters.
;		If it exceeds 15 characters, we exit immediately with
;		a bad_path_syntax error.
;
; Jan 22, 1992 by Mark Day
;		In the PROC data, moved all the non-zero data items to
;		the start of the PROC so that all of the zero bytes would
;		be contiguous.  This results in a one block savings in
;		disk space due to a block being sparsified out (i.e. it
;		results in a block of all zeroes that doesn't actually
;		get written on ProDOS disks).
;
; Jan 27, 1992 by Mark Day
;		When convert_time converts a class 1 date/time to a
;		ProDOS date/time, if the year is outside the range
;		1940..2039 (i.e. year outside 40..139), the date/time
;		will be set to all zeroes (i.e. unknown).  Note: I had
;		to make an ugly hack here: I return the time as $8000
;		(an invalid bit is set) so it would be non-zero and other
;		parts of the FST wouldn't assume no date/time was supplied;
;		This invalid bit will get stripped before the date is
;		written to disk.
;
;		The 10/3/91 change caused temp_ptr and temp2_ptr to be
;		reset after valid_change carefully set them up (like
;		pointing past a device and/or volume name).  This meant
;		that a ChangePath from ".device:A" to ":Vol:A:B", where
;		volume A was on .device, would succeed.  Moved the
;		code that checks for the move-into-own-child back into
;		valid_change where it now sets a flag cp_to_child which
;		will be checked later.
;
; Feb 5, 1992 by Mark Day
;		When doing a Change_Path with bit 15 of the flags set
;		(the "trust me" bit), it will do a swap_out on the device
;		just before building its fake VCR so there won't be two
;		online VCR's for the same device.
;
; Feb 7, 1992 by Mark Day
;		Changed version number in header and version string
;		to version 04.00 (final).
;
; Feb 28, 1992 by Dave Lyons and Greg Branche
;		Modified Mark's December 20, 1991 mod so that when
;		chk_disk_protect calls mount_volume, it preserves and
;		restores the first block of GBUF.  This fixes volume-
;		corruption problems when disk-switched occurs (on HD20s,
;		for example).
;
; Feb 28, 1992 by Greg Branche
;		When the pathname span check was removed from setup_parms,
;		format and erase calls were broken.  If a volume name was
;		supplied that had a length of a multiple of 16 characters,
;		the calls would trash 64K of memory as it copied the volume
;		name into the directory entry template.  This is being fixed
;		by adding calls to check_span immediately after the calls
;		to setup_parms.
;
;======================================================================
;
; BEGIN 6.0.1
;
; July 13, 1992 by Dave Lyons (v4.02d6)
;		Fixed a bug in slow_read that made multiple-character
;		newline mode unreliable.  Each time it moved to a new
;		block of data it was forgetting about one more character
;		off the end of the newline list!  Bug reported by
;		Bill Heinaman.
;
;======================================================================
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Loader/DP.a b/IIGS.601.SRC/GS.OS/Loader/DP.a
new file mode 100644
index 0000000..898a497
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Loader/DP.a
@@ -0,0 +1 @@
+;====================================================================================================
;Direct page equates used by Loaders
;====================================================================================================

DirectPage	Record	0
;
;       System Loader's Zero Page
;
TempZero	ds.l	2			;temporary use only
Handle		ds.l	2			;temporary handle
Pointer		ds.l	1			;temporary pointer
Counter		ds.l	1			;temporary counter
TempBuff	ds.l	1			;address of temporary buffer
Pass		ds.w	1			;current Loader Pass
Pass2_Needed	ds.w	1			;pass 2 needed flag
CFileNum	ds.w	1			;current File Number
CSegNum		ds.w	1			;current Segment Number
CAddress	ds.l	1			;current Segment Address
FileBuff	ds.l	1			;address of File Buffer (same as Global)
Op_Mark		ds.l	1			;File Mark of current OP code
MarkList	ds.l	1			;address of Mark List
FirstMemSeg	ds.l	1			;handle of 1st Memory Segment entry
Memory_Load	ds.w	1			;loading from memory requested
Keep_Open	ds.w	1			;keep Load File open
Segment_Skipped	ds.w	1			;a Load Segment was skipped during Initial Load

;
;       ExpressLoad's direct page
;
HET_ptr		ds.l	1			;points the header entry table
HET_entry_ptr	ds.l	1			;points to an entry in the HET
temp_handle	ds.l	1			;temp area used for handles
base_ptr	ds.l	1			;points to a segment in memory.
seg_header_ptr	ds.l	1			;points to a segment header
reloc_dict_ptr	ds.l	1			;points to the relocation dictionary
patch_cnt	ds.w	1			;word that contains the patch count
shift_cnt	ds.w	1			;word that contains the shift count
patch_ptr	ds.l	1			;address that we have to patch
patch_value	ds.l	1			;value that we patch with
temp_ptr	ds.l	1
interseg_addr	ds.l	1			;used to patch the segments
super_size	ds.w	1			;size of the super record
cnt_word	ds.w	1
super_ptr	ds.l	1			;used to relocate a super record
temp_word	ds.w	1
segment_base	ds.l	1			;base address of other segment
user_id_handle	ds.l	1			;handle to User ID list
user_id_ptr	ds.l	1
temp_long	ds.l	1
path_ptr	ds.l	1			;points to a GString output buffer
ExpressHandle	ds.l	1			;Handle to ExpressHeader
jmp_tbl_ptr	ds.l	1			;pointer to the Jump_table Entry
reloc_handle	ds.l	1			;handle to the relocation dictionary
seg_handle	ds.l	1			;handle to the segment in memory
curr_id_handle	ds.l	1			;Handle to ID list
segment_entry	ds.l	1			;entry point inside the segment

hold_long	ds.l	1			;used by unload segment
partial_match	ds.w	1			;used by rename
local_mark	ds.l	1			;our current mark in the file
id_flag		ds.w	1			;used by delete_user_id.
search_seg	ds.w	1
jmp_patch_value	ds.l	1
spec_mem_flag	ds.w	1			;special memory flag used by Initial load
file_open	ds.w	1			;flag used to indicate that the load file is open
LConst_Size	ds.l	1			;size of the segment
seg_kind	ds.w	1			;used by conv_attributes
search_addr	ds.l	1			;used by allocate lconst routine
org_address	ds.l	1
loaded_seg_num	ds.w	1			;segment just loaded
search_kind	ds.w	1			;used by find segment
kind_mask	ds.w	1			;AND mask used by find segment
flags_mask	ds.w	1			;flags used by find segment
stack		ds.w	1			;holds stack pointer


;
; shared-use direct page
;
PathnamePtr	ds.l	1			;points to current full, expanded pathname
save_statereg	ds.w	1			;use to save state register during JumpLoad
free_mem_size	ds.l	1
mem_attr	ds.w	1			;memory attributes used when allocating a segment
stack_addr	ds.w	1
stack_size	ds.w	1
mm_attr		ds.w	1

input_parms	ds.b	max_input		;maximum size of input parameters on any call

dp_end		equ	*
	if	(dp_end			MOD 2) <> 0 then
		ds.b	1			;make it an even # of bytes
	endif
dir_page_size	equ	*			;Size MUST be EVEN EVEN EVEN EVEN EVEN EVEN
	if	dir_page_size > 256 then
		aerror	'Direct page too large.'
	endif
		endr

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Loader/Data.a b/IIGS.601.SRC/GS.OS/Loader/Data.a
new file mode 100644
index 0000000..5cab121
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Loader/Data.a
@@ -0,0 +1 @@
+		TITLE	', Direct Page Usage'
		
		include	'DP.a'	;in a separate file so LoadDump.DA can use it too


		TITLE	', Global variables'
;====================================================================================================
;Local Data used by ExpressLoad.
;====================================================================================================
Globals		Record
		LoadSegCheck

boot_flag	dc.w	'GB'			;reset to 0 after initial boot

dp_handle	dc.l	00			;saves the handle to our direct page
my_dir_page	dc.w	00			;my direct page

return_addr	ds.b	03			;return addresses to caller
return_addr2	ds.b	03
apps_dir_page	dc.w	00
data_bank	dc.w	00			;holds the data bank for the tool call
users_prefs	dc.w	$00

; the following variables are used by JumpLoad and therefore MUST remain in
; normal memory (as opposed to direct page).

save_a		dc.w	00
save_x		dc.w	00
save_y		dc.w	00
starting_addr	ds.l	1

*
****************************************************************
*
*        System Loader Globals
*
****************************************************************
*
Loader_Globals
;
;        handles to Loader tables
;
SEGTBL		ds.l	1			;Handle to Memory Segment Table
JMPTBL		ds.l	1			;Handle to Segment Jump Table
PATHTBL		ds.l	1			;Handle to Pathname Table
USERID		ds.w	1			;Active Application UserID
;
;        Loader Buffers
;
Header		ds	SegmentHeader		;fixed portion of Segment Header (up to DISPDATA)
Header_Var	ds.l	1			;pointer to variable portion of Segment Header
Record		ds.b	16			;OMF record buffer (must be > max load record size)
File_Buff	ds.l	1			;Address of File Buffer
File_Buff_Size	ds.w	1			;Size of File Buffer
File_Pt		ds.w	1			;File Buffer Pointer
File_EOB	ds.w	1			;File Buffer EOB
File_Mark	ds.l	1			;File Mark
Header_Mark	ds.l	1			;Segment Header File Mark
;
;        ProDOS packets
;
POpen		ds	openParms		;Open packet
PRead		ds	readParms		;Read packet
PGetMark	ds	markParms		;Get Mark packet
PSetMark	ds	markParms		;Set Mark packet
PExpandPath	ds	expandParms		;Expand Path packet
PSysPrefs	ds	sysPrefsParms		;Get/Set System Preferences packet
PGetLevel	ds	levelParms		;Get system file level
PSetLevel	ds	levelParms		;Set system file level
PGetRefNum	ds	getRefNumParms		;Get reference number
PGetFileInfo	ds	getFileInfoParms	;Get File Information
;
;       End of Globals
;
Last_Global
		EndR

dir_page_buffer	record
		LoadSegCheck
		ds.b	DirectPage.dir_page_size+2 ;holds my direct page
		endr

express_name	record
		LoadSegCheck
		string	pascal
		dc.b	'EXPRESSLOAD'
		string	asis
		endr

tilda_name	record
		LoadSegCheck
		string	pascal
		dc.b	'~EXPRESSLOAD'
		string	asis
		endr

jump_load_instr	record
		LoadSegCheck
		import	JumpLoad
		dc.b	$22			;JSL
		dc.a	JumpLoad		;address of Jump Load routine
		endr
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Loader/ExpressLoad.a b/IIGS.601.SRC/GS.OS/Loader/ExpressLoad.a
new file mode 100644
index 0000000..f332f7d
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Loader/ExpressLoad.a
@@ -0,0 +1 @@
+		TITLE	', ExpressLoad.a - Switch_handler'
		SEG	'Loader'
;====================================================================================================
;Switch_handler This routine is called when we switch from GS/OS to ProDOS 8 and when we switch
;               from ProDOS8 to GS/OS.
;
;Input:         1 = Switch P8 to GS/OS, 0 = Switch GS/OS to P8
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;               b = k
;
;               The Direct page is saved and released if we are switching from GS/OS to P8
;               The Direct page is allocated and restored if we are switching from P8 to GS/OS
;
;====================================================================================================

		longa	on
		longi	on
Switch_handler	proc
		LoadSegCheck

		with	DirectPage, Globals

		Import	clear_handles, alloc_my_dp

function	equ	7

		lda	function,s		;get the input parameter
		tax				;save in X for a minute
		lda	5,s			;remove input parameter from stack
		sta	7,s			;by moving two return addresses up
		lda	3,s
		sta	5,s
		pla
		sta	1,s

		phb
		phk				;set our data bank register
		plb
		phd				;save caller's direct page

		txa				;check the input parameter
		bne	@restore_dp		;goin' back to GS/OS

		lda	Globals.my_dir_page	;setup our own direct page
		tcd

		ldx	#dir_page_size-2	;save the direct page please
@save_loop	lda	00,x
		sta	dir_page_buffer,x
		dex
		dex
		bpl	@save_loop

		lda	dp_handle+2		;dispose the handle
		pha
		lda	dp_handle
		pha
		jsr	clear_handles		;clear local copy of handle
		_DisposeHandle
		stz	dp_handle
		stz	dp_handle+2
		bra	no_errors

@restore_dp
		jsr	alloc_my_dp		;allocate me a direct page please
		bcs	error_exit		;return the error

		ldx	#dir_page_size-2	;save the direct page please
@restore_loop	lda	dir_page_buffer,x
		sta	00,x
		dex
		dex
		bpl	@restore_loop
no_errors
		lda	#0			;no errors
		clc
error_exit
		pld				;restore direct page
		plb				;and DBR
		rtl

		endp

	if 0 then	;nobody likes my special graphics <pout>
		TITLE	', ExpressLoad.a - draw_express'
****************************************************************************************************
*
* draw_express - draws splash screen text
*
****************************************************************************************************

draw_express	proc
		LoadSegCheck

		with	DirectPage, Globals

line		equ	$A0
progress_start	PointAddress 95,310
my_string_width	equ	$001a
my_string_height equ	$0007

		sep	#$20			;8-bit accumulator
		longa	off
		lda	>$E0C025
		bit	#%00000100		;Caps Lock key down?
		rep	#$20
		longa	on
		beq	jump_out		;no, just skip it

		lda	#my_string_height
		sta	temp_word
;
;setup pointer to graphics screen area I am going to write to.
;
		lda	#progress_start**$FFFF
		sta	temp_ptr
		lda	#^progress_start
		sta	temp_ptr+2
		ldx	#$0000

		longa	off
		longi	on
		sep	#$20
loop1
		ldy	#$0000
loop
		lda	splash_image,x		;grab graphics line from our buffer
		sta	[temp_ptr],y
		inx
		iny
		cpy	#my_string_width	;move one line then update base pointer
		bne	loop

		clc
		lda	temp_ptr
		adc	#line			;move to the next line
		sta	temp_ptr
		bcc	@1
		inc	temp_ptr+1
@1
		dec	temp_word		;see if we have done enough lines
		bne	loop1

		longa	on
		longi	on
		rep	#$20
jump_out
		rts				;we are done

splash_image
		HEX	FFFFFFFFFFFF03FFFFFFFFFFFF
		HEX	FC0FFFFFFFFFFFF03FFFFFF003
		HEX	FFFF4444444F03FFFFFFFFFFFF
		HEX	FC0FFFFFFFFFFFF0303FFFC303
		HEX	FFFFFFFFFFFF03FFF003FC003F
		HEX	000FC00FC003FFF0303FFF0303
		HEX	F44444444FFF03FFC0C0F0303C
		HEX	0C0F0303C03FFFC0303FFF0303
		HEX	FFFFFFFFFFFC0FFF0303C0C0F0
		HEX	303C000F03FFFFC000FFFC0C0F
		HEX	FFFFF4444FFC0FFF0303C0C0F0
		HEX	303C0FFF03FFFFFFC0FFFC0C3F
		HEX	FFFFFFFFFFFC000FC00FF000FC
		HEX	003F003F03FFFFFFC0F03C00FF

		endp
	endif

		TITLE	', ExpressLoad.a - startup'
;====================================================================================================
;startup:       This routine will allocate memory used by the system loader and setup
;               any data structures that are used by ExpressLoad.
;
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error    ;If this happens I would be suprized
;               b = k
;
;
;====================================================================================================

		longa	on
		longi	on
startup		proc
		LoadSegCheck

		with	DirectPage

		Import	alloc_my_dp,add_id_table

		sep	#$20			;go into 8-bit mode
		longa	off
		lda	>statereg		;get current language card setting
		pha				;save on stack temporarily
		lda	>$E0C08B		;turn language card on
		lda	>$E0C08B
		rep	#$20
		longa	on

		jsr	alloc_my_dp		;allocate me a direct page please
		bcs	@error_exit

		ldx	#256
@clear_it
		dex
		dex
		stz	DirectPage,x		;zero out my direct page
		bne	@clear_it

		stz	user_id_handle		;indicate that there is no ID table yet
		stz	user_id_handle+2
;
;Now lets setup one user_id_table
;
		jsr	add_id_table		;add the first User ID Table please
@error_exit
		tax				;save any possible error code
		sep	#$20			;8-bit accumulator
		longa	off
		pla				;retrieve saved language card state
		sta	>statereg		;restore it
		rep	#$20
		longa	on
		txa				;retrieve possible error code
		rts				;return the error code to caller
		endp

		TITLE	', ExpressLoad.a - get_parameters'
;====================================================================================================
;get_parameters:        This routine is called at the beginning of each Tool call.  It will
;                       get the input parameters off the stack and setup our operating environment.
;
;
;Input:         A = undefined
;               X = number of paramters on stack
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = ?
;
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;====================================================================================================

		longa	on
		longi	on
get_parameters	proc
		LoadSegCheck

		with	DirectPage, Globals
		Import	zero_handles,reset_local_mark

;
;Save the data bank register
;
		phb
		phb				;save the bank register first
		pla
;
;Set data bank register to our bank
;
		phk
		plb				;set data bank to our bank.
		sta	data_bank		;save caller's DBR
;
;Save the return address
;
		pla				;save RTS
		sta	local_return

;
;save the app's direct page
;
		tdc				;save the direct page register
		sta	apps_dir_page
;
;setup our direct page
;
		lda	my_dir_page
		tcd				;we now have our own direct page

;
;save the return address
;
		pla				;now save the return address
		sta	return_addr
		pla				;get both return address off the stack
		sta	return_addr+2
		pla
		sta	return_addr+4

		phx				;save the # of input parameters

		jsl	incbusyflg		;don't let nobody bother us!

;
; enable the language card memory
;
		sep	#$20			;8-bit soft-switch access
		longa	off
		lda	>statereg		;get the current setting
		sta	save_statereg
		lda	>$E0C08B		;turn language card on
		lda	>$E0C08B
		rep	#$20
		longa	on

		ply				;retrieve the # of input parameters
		beq	@done			;we have done our job
;
;now we need to pull the needed parameters off of the stack.
;
		ldx	#$0000
@loop
		pla				;get a byte off the stack
		sta	input_parms,x		;save the byte in a common parameter block
		inx
		inx
		dey
		dey
		bne	@loop
@done
		lda	local_return
		pha
		jsr	zero_handles
		jsr	reset_local_mark
		stz	partial_match		;indicate that we need a complete match!!!

		rts

local_return	dc.w	00

		endp

		TITLE	', ExpressLoad.a - return_to_caller'
;====================================================================================================
;return_to_caller:      This routine is called if ExpresssLoad has handled the file
;
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = no error
;               b = K
;
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;====================================================================================================

		longa	on
		longi	on
return_to_caller proc
		LoadSegCheck

		with	DirectPage, Globals
		Import	close_load_file

		sta	local_error

		lda	file_open		;is the load file open?
		beq	@not_open		;the file is not open so don't worry about it.
		jsr	close_load_file		;go ahead and close the file since we are thru with it.
@not_open
		ldy	#$0004			;lets unlock this puppy
		lda	ExpressHandle
		ora	ExpressHandle+2
		beq	@skip_unlock		;there is no ExpressSegment

		lda	[ExpressHandle],y
		and	#$7FFF			;unlock the handle
		sta	[ExpressHandle],y

@skip_unlock
		sep	#$20			;8-bit soft-switch access
		longa	off
		lda	save_statereg		;get the original setting
		sta	>statereg		;reset
		rep	#$20
		longa	on

		jsl	decbusyflg		;we be done now

		lda	return_addr+4
		pha
		lda	return_addr+2
		pha
		lda	return_addr
		pha


		lda	apps_dir_page
		tcd				;restore the direct page
		lda	data_bank
		pha
		lda	local_error
		plb
		plb
		cmp	#$0001
		rtl

local_error	dc.w	00

		endp


		TITLE	', ExpressLoad.a - lock_handles'
;====================================================================================================
;lock_handles   This routine will save and lock handles used by ExpressLoad
;unlock_handles This routine will restore the previous state of the now locked handle
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = preserved
;               X = preserved
;               Y = preserved
;               P = preserved
;               b = k
;
;
;
;====================================================================================================

		longa	on
		longi	on
lock_handles	proc
		with	DirectPage,Globals
		php				;save all registers!
		pha
		phx
		phy

		ldy	#$0004			;lets lock this puppy
		lda	ExpressHandle
		ora	ExpressHandle+2
		beq	@skip_express

		lda	[ExpressHandle],y
		sta	ExpressHndl_flag
		ora	#$8000			;lock the handle
		sta	[ExpressHandle],y

@skip_express
		lda	user_id_handle		;lock ID table down
		ora	user_id_handle+2
		beq	@skip_ids

		lda	[user_id_handle],y
		sta	user_id_flag
		ora	#$8000			;lock the handle
		sta	[user_id_handle],y
@skip_ids
		lda	temp_handle
		ora	temp_handle+2
		beq	@skip_temp

		lda	[temp_handle],y
		sta	tempHndl_flag
		ora	#$8000			;lock the handle
		sta	[temp_handle],y
@skip_temp
		lda	reloc_handle
		ora	reloc_handle+2
		beq	@skip_reloc

		lda	[reloc_handle],y
		sta	relocHndl_flag
		ora	#$8000			;lock the handle
		sta	[reloc_handle],y
@skip_reloc
		lda	seg_handle
		ora	seg_handle+2
		beq	@skip_seg

		lda	[seg_handle],y
		sta	segHndl_flag
		ora	#$8000			;lock the handle
		sta	[seg_handle],y
@skip_seg
		lda	curr_id_handle
		ora	curr_id_handle+2
		beq	@skip_id

		lda	[curr_id_handle],y
		sta	idHndl_flag
		ora	#$8000			;lock the handle
		sta	[curr_id_handle],y
@skip_id
		bra	end_handles

		entry	unlock_handles
unlock_handles
		php				;save all registers!
		pha
		phx
		phy


		ldy	#$0004			;lets lock this puppy
		lda	ExpressHandle
		ora	ExpressHandle+2
		beq	@skip_express

		lda	ExpressHndl_flag	;restore old state
		sta	[ExpressHandle],y
@skip_express
		lda	temp_handle
		ora	temp_handle+2
		beq	@skip_temp

		lda	tempHndl_flag		;restore original state
		sta	[temp_handle],y
@skip_temp
		lda	user_id_handle		;lock ID table down
		ora	user_id_handle+2
		beq	@skip_ids

		lda	user_id_flag
		sta	[user_id_handle],y
@skip_ids
		lda	reloc_handle
		ora	reloc_handle+2
		beq	@skip_reloc

		lda	relocHndl_flag		;restore orig state
		sta	[reloc_handle],y
@skip_reloc
		lda	seg_handle
		ora	seg_handle+2
		beq	@skip_seg

		lda	segHndl_flag		;do the restore
		sta	[seg_handle],y
@skip_seg
		lda	curr_id_handle
		ora	curr_id_handle+2
		beq	@skip_id

		lda	idHndl_flag		;do the restore
		sta	[curr_id_handle],y
@skip_id
end_handles
		ply
		plx
		pla
		plp				;restore original registers
		rts


ExpressHndl_flag dc.w	00
tempHndl_flag	dc.w	00
relocHndl_flag	dc.w	00
segHndl_flag	dc.w	00
idHndl_flag	dc.w	00
user_id_flag	dc.w	00

		endp

		TITLE	', ExpressLoad.a - clear_handles'
;
; Language card portion of loader starts here
;

		SEG	'Loader_LC'
;====================================================================================================
;clear_handles: This routine will zero any local handles that contain a copy of the
;               handle that we are disposing
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               stack:
;
;                       Y register              $1,s
;                       X register              $3,s
;                       Accum                   $5,s
;                       processor_status        $7,s
;                       return address          $8,s
;                       low word of handle      $A,s
;                       high word of handle     $C,s
;
;Output:        A = restored
;               X = restored
;               Y = restored
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;
;====================================================================================================
clear_handles	proc
		with	DirectPage

		php
		pha
		phx
		phy

		lda	$0A,s			;get the low word of the handle
		tax
		lda	$0C,s			;get the high word of the handle

		cmp	ExpressHandle+2
		bne	@skip_express		;Does Express = Dispose Handle?
		cpx	ExpressHandle
		bne	@skip_express

		stz	ExpressHandle		;zero matching handle
		stz	ExpressHandle+2

@skip_express
		cmp	temp_handle
		bne	@skip_temp
		cpx	temp_handle+2
		bne	@skip_temp

		stz	temp_handle
		stz	temp_handle+2

@skip_temp
		cmp	reloc_handle
		bne	@skip_reloc
		cpx	reloc_handle+2
		bne	@skip_reloc

		stz	reloc_handle
		stz	reloc_handle+2

@skip_reloc
		cmp	seg_handle
		bne	@skip_seg
		cpx	seg_handle+2
		bne	@skip_seg

		stz	seg_handle
		stz	seg_handle+2

@skip_seg
		cmp	curr_id_handle
		bne	@skip_id
		cpx	curr_id_handle+2
		bne	@skip_id

		stz	curr_id_handle
		stz	curr_id_handle+2
@skip_id
		ply
		plx
		pla
		plp
		rts
		endp

		TITLE	', ExpressLoad.a - alloc_ExpLoad'
;====================================================================================================
;alloc_ExpLoad: This routine will allocate memory from the system for the loader.
;
;Input:         A = undefined
;               X = request bytes low
;               Y = requets bytes high
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = undefined
;               X = handle low
;               Y = handle high
;               P = nvmxdizc
;                   ..000..
;               b = k
;
;
;====================================================================================================

		longa	on
		longi	on
alloc_ExpLoad	proc
		with	DirectPage, Globals

		lda	#uExpressSegment	;my ID
		bra	do_alloc		;go allocate

;====================================================================================================
;alloc_mem:     This routine will allocate memory from the system.
;
;Input:         A = user ID to use
;               X = request bytes low
;               Y = requets bytes high
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = undefined
;               X = handle low
;               Y = handle high
;               P = nvmxdizc
;                   ..000..
;               b = k
;
;
;====================================================================================================

		entry	alloc_mem,		do_alloc
alloc_mem
		lda	|USERID			;use application ID for normal allocation
do_alloc
		pha				;space for handle
		pha
		phy				;high request bytes
		phx				;low request bytes
		pha				;userID
		pea	attrLocked		;locked
		lda	#0
		pha
		pha
		jsr	lock_handles		;lock my handles so they stay put!!
		_NewHandle			;allocate the memory
		jsr	unlock_handles		;put the handles back to original state
		plx
		ply
		rts
		endp

		TITLE	', ExpressLoad.a - alloc_my_dp'
;====================================================================================================
;alloc_my_dp:   This routine will allocate my direct page from the system.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..
;               b = k
;
;
;====================================================================================================

		longa	on
		longi	on
alloc_my_dp	proc
		with	Globals
		Import	DeRef

		lda	#0
		pha				;space for handle
		pha
		pha				;request bytes
		pea	256
		pea	uDirectPage		;userID
		pea	#attr_locked+attr_bank+attr_page
		pha				;MUST be in bank 0
		pha
		_NewHandle
		plx
		ply				;get the handle
		stx	dp_handle		;save my handle please
		sty	dp_handle+2
		bcs	@oops
		txa				;put low word into accumulator
		jsr	DeRef			;get the pointer to the direct page
		sta	my_dir_page
		tcd				;go ahead and setup the direct register
@oops
		rts				;and return it
		endp

		TITLE	', ExpressLoad.a - alloc_LConst_seg'
;====================================================================================================
;alloc_LConst_seg       This routine will allocate memory from the system.
;
;Input:         A = undefined
;               X = request bytes low
;               Y = requets bytes high
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               seg_header_ptr          ;must be setup
;
;Output:        A = undefined
;               X = handle low
;               Y = handle high
;               P = nvmxdizc
;                   ..000..
;               b = k
;
;
;====================================================================================================

		longa	on
		longi	on
alloc_LConst_seg proc
		with	DirectPage, Globals

		jsr	lock_handles

		lda	mem_attr		;see if this is bank aligned or align in bank
		and	#attr_bank_align+attr_align_in_bank
		bne	@align_to_bank

		pha				;space for handle
		pha
		phy				;high request bytes
		phx				;low request bytes
		lda	|USERID
		pha
		lda	mem_attr
		pha
		lda	org_address+2
		pha
		lda	org_address		;address to start at
		pha
		_NewHandle
		jsr	unlock_handles		;put the handles back to original state

		plx
		ply
		rts

@align_to_bank
		stx	free_mem_size		;save the request count
		sty	free_mem_size+2

		lda	mem_attr		;clear the align to bank bit
		and	#Å(attr_bank_align+attr_align_in_bank)
		sta	mem_attr

		lda	#$0002			;start looking in bank two
		sta	search_addr+2		;address we are searching for
		lda	org_address		;add in org. align in bank if non zero
		sta	search_addr

		pha				;space for handle
		pha
		ldx	#$0000			;convenient place for a zero
		pea	$0001			;allocate 64K
		phx
		lda	|USERID			;use App's ID
		pha
		lda	mem_attr		;attributes
		and	#Å(attr_bank+attr_addr)
		ora	#attr_no_spec+attr_no_cross
		pha
		phx				;location pointer
		phx
		_NewHandle			;allocate the memory
		plx				;retrieve handle
		ply
		bcs	@no_memory		;oops!  couldn't get a whole bank!
		phb				;save current DBR
		phy				;set to handle's DBR
		plb
		inx				;bump to bank word of handle
		inx
		lda	|0,x			;get the bank # that was allocated
		plb
		plb				;restore DBR
		sta	search_addr+2		;save the bank value
		dex				;restore original value
		dex
		phy
		phx				;now deallocate the bank again
		_DisposeHandle

@no_memory
		lda	#attr_addr+attr_bank	;set the fixed address and bank bits
		tsb	mem_attr

@search_loop
		pha				;space for handle
		pha
		lda	free_mem_size+2
		pha
		lda	free_mem_size
		pha
		lda	|USERID
		pha
		lda	mem_attr
		pha
		lda	search_addr+2		;address to start at
		pha
		lda	search_addr
		pha
		_NewHandle
		plx
		ply				;get the handle
		bcc	@done			;if no error, return!
@not_done
		inc	search_addr+2
		lda	search_addr+2		;move up one bank
		cmp	#$0080			;have we searched all of memory?
		bcc	@search_loop
		lda	#$0201			;synthesize a Memory Manager error
						;(carry already set)
@done		jsr	unlock_handles
		rts				;return the handle

		endp

		TITLE	', ExpressLoad.a - add_id_table'
;====================================================================================================
;add_id_table:  This routine will allocate memory for one user_id_table and link the table
;               into the list of user_id_tables.  It will also zero the entire table
;
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;               b = k
;
;
;====================================================================================================

		longa	on
		longi	on
add_id_table	proc
		with	DirectPage, Globals

		ldx	#id_tbl_size		;allocate the table please
		ldy	#$0000
		lda	#uUserIDTable		;ID to use for the user id table
		jsr	do_alloc		;go and allocate memory
		bcs	@oops

		stx	temp_handle		;save the handle please
		stx	temp_long
		sty	temp_handle+2
		sty	temp_long+2

		ldy	#$0004			;offset to memory manager attributes
		lda	[temp_handle],y
		and	#$7FFF			;unlock the handle
		sta	[temp_handle],y

		ldy	#$0002			;make a pointer to new memory
		lda	[temp_handle]
		sta	user_id_ptr
		lda	[temp_handle],y
		sta	user_id_ptr+2

		lda	#$0000
		ldy	#id_tbl_size-2		;clear the buffer please
@clear_loop
		sta	[user_id_ptr],y
		dey
		dey
		bpl	@clear_loop
;
;Now that we have cleared the segment lets link it into the list
;
		lda	user_id_handle		;see if this is the first one!
		ora	user_id_handle+2
		bne	@walk_list

		lda	temp_handle		;setup the first handle and exit
		sta	user_id_handle
		lda	temp_handle+2
		sta	user_id_handle+2
		clc
@oops
		rts

@walk_list
		lda	user_id_handle		;start at front of the list
		sta	temp_handle
		lda	user_id_handle+2
		sta	temp_handle+2
@search_loop
		ldy	#$0002
		lda	[temp_handle]
		sta	user_id_ptr
		lda	[temp_handle],y
		sta	user_id_ptr+2

		lda	[user_id_ptr]		;get the forward link please (Link = Handle)
		sta	temp_handle
		lda	[user_id_ptr],y
		sta	temp_handle+2
		ora	temp_handle
		bne	@search_loop

		ldy	#User_ID_Table.Next+2	;link in the new entry
		lda	temp_long		;handle to our new segment
		sta	[user_id_ptr]
		lda	temp_long+2
		sta	[user_id_ptr],y

		lda	[temp_long]		;deref handle
		sta	user_id_ptr
		lda	[temp_long],y
		sta	user_id_ptr+2

		clc
		rts

		endp

		TITLE	', ExpressLoad.a - reset_local_mark'
;====================================================================================================
;reset_local_mark:      This routine will reset our local mark to $FFFFFF.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = preserved
;               X = preserved
;               Y = preserved
;               P = preserved
;               b = k
;
;
;
;====================================================================================================

		longa	on
		longi	on
reset_local_mark proc
		with	DirectPage, Globals
		lda	#$FFFF
		sta	local_mark
		sta	local_mark+2
		rts
		endp

		TITLE	', ExpressLoad.a - seg_num_lookup'
;====================================================================================================
;seg_num_lookup:        This routine will take a segment number and convert the number
;                       to the correct segment number via the segment conversion table
;
;Input:         A = original segment number
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               HET_ptr         ;must point to seg_num_count
;
;Output:        A = new segment number
;               X = preserved
;               Y = preserved
;               P = nvmxdizc
;                   ..000..1=error
;               b = k
;
;
;
;====================================================================================================

		longa	on
		longi	on
seg_num_lookup	proc
		with	DirectPage, Globals

		tax
		beq	@bad_seg_num		;sorry bud
		dec	a			;make zero based
		cmp	[HET_ptr]		;is it in the range?
		beq	@num_OK
		bcs	@bad_seg_num		;sorry the segment number is no good
@num_OK
		clc
		lda	[HET_ptr]		;get the number of segments please
		inc	a			;add one for 0 based stuff
		asl	a
		asl	a
		asl	a			;times 8 to pass Header Entry table
		adc	#$0002			;pass the count please

		adc	HET_ptr			;add current position
		sta	temp_ptr
		lda	#$0000
		adc	HET_ptr+2
		sta	temp_ptr+2		;Temp pointer now points to the segment conv tbl

		dex				;subtract one for zero based please
		txa				;Times two for word table
		asl	a
		tay				;index to the real segment number
		lda	[temp_ptr],y
		clc
		rts				;return with the new segment number in "A"

@bad_seg_num
		lda	#seg_not_found
		sec
		rts				;return the "Error"
		endp

		TITLE	', ExpressLoad.a - my_seg_to_user_seg'
;====================================================================================================
;my_seg_to_user_seg:    This routine will take my segment number and convert the number
;                       to the correct segment number via the segment conversion table.
;                       This means if you use the segment number returned to you as input
;                       to another loader call then everything will workout OK.
;
;Input:         A = internal segment number
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               HET_ptr         ;must point to seg_num_count
;
;Output:        A = new segment number for user
;               X = preserved
;               Y = preserved
;               P = nvmxdizc
;                   ..000..1=error
;               b = k
;
;
;
;====================================================================================================

		longa	on
		longi	on
my_seg_to_user_seg proc
		with	DirectPage, Globals

		pha				;segment we need to find

		clc
		lda	[HET_ptr]		;get the number of segments please
		inc	a			;add one for 0 based stuff
		asl	a
		asl	a
		asl	a			;times 8 to pass Header Entry table
		adc	#$0002			;pass the count please

;               clc

		adc	HET_ptr			;add current position
		sta	temp_ptr
		lda	#$0000
		adc	HET_ptr+2
		sta	temp_ptr+2		;Temp pointer now points to the segment conv tbl

		ldy	#$0000
		pla				;retrieve comparison value
@look_loop
		cmp	[temp_ptr],y		;is this the correct segment number?
		beq	@have_segment
		iny
		iny
		bne	@look_loop

		lda	#seg_not_found
		sec
		rts				;return the "Error"

@have_segment	tya				;convert index to segment number
		lsr	a
		inc	a			;add one to convert from 0 to 1 based
		clc
		rts
		endp

		TITLE	', ExpressLoad.a - error_routine'
;====================================================================================================
;Error_routine: This routine will call the death manager with an error code.  The routine will not
;               return to the caller.  The routine is called with a JSR so I can display the
;               address if I want to.
;
;Input:         A = error_code
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;
;====================================================================================================

		longa	on
		longi	on
error_routine	proc
		with	DirectPage, Globals
		pha				;push the error code
		pea	err_string>>16
		pea	err_string
		_SysFailMgr
		brk	$ff

		string	pascal
err_string	dc.b	'ExpressLoad error: '
		string	asis
		endp


		TITLE	', ExpressLoad.a - make_HET_ptr'
;====================================================================================================
;make_HET_ptr:  This routine builds a pointer to the Header Entry Table
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               ExpressHandle                   ;must be setup
;
;Output:        A = undefined
;               X = low word of pointer to Expressload Segment memory
;               Y = high word of pointer to Expressload Segment memory
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               HET_ptr will point to the segment count field in the Header Entry Table (HET)
;               temp_ptr will point to the link field (HET_ptr-4)
;
;====================================================================================================

		longa	on
		longi	on
make_HET_ptr	proc
		with	DirectPage, Globals
;
;Setup temp_ptr to point to the reserved field (of Disk Image) of the HET,
; and HET_ptr to point to the segment count field of the segment.
;
		ldy	#$0002
		clc
		lda	[ExpressHandle]
		sta	temp_ptr		;temp now points the link field
		tax
		clc
		adc	#ExpressloadSeg.SegCount
		sta	HET_ptr			;and HET_ptr points to count field
		lda	[ExpressHandle],y
		tay
		sta	temp_ptr+2
		adc	#0
		sta	HET_ptr+2
		rts
		endp

		TITLE	', ExpressLoad.a - setup_seg_ptrs'
;====================================================================================================
;setup_seg_ptrs:        This routine builds pointers to the segment header entry and the segment
;
;Input:         A = segment number
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               HET_entry_ptr
;               seg_header_ptr
;
;====================================================================================================

		longa	on
		longi	on
setup_seg_ptrs	proc
		with	DirectPage, Globals

		dec	a			;convert the segment number please
		dec	a			;allow for ExpressLoad segment

		asl	a
		asl	a
		asl	a			;times 8 for HET entry size

		inc	a			;add two to pass the segment count field
		inc	a

		clc
		adc	HET_ptr			;make a pointer to the Entry
		sta	HET_entry_ptr		;pointer to the entry itself
		lda	#$0000
		adc	HET_ptr+2
		sta	HET_entry_ptr+2
;
;Build a pointer to the segment header itself
;
		clc
		lda	HET_entry_ptr		;add in relative address to segment
		adc	[HET_entry_ptr]
		sta	seg_header_ptr
		lda	HET_entry_ptr+2
		adc	#$0000
		sta	seg_header_ptr+2
		rts
		endp

		TITLE	', ExpressLoad.a - setup_base_ptr'
;====================================================================================================
;setup_base_ptr:        This routine setups the pointer to the base address of the segment
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               Het_Entry_pointer               ;must be setup
;               seg_header_ptr
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;               b = k
;
;               base_ptr
;               segment_entry
;====================================================================================================

		longa	on
		longi	on
setup_base_ptr	proc
		with	DirectPage, Globals
		import	add_segment_offset

		ldy	#HET_Entry.SegHandle	;setup the Base_ptr
		lda	[HET_entry_ptr],y
		tax
		iny
		iny
		lda	[HET_entry_ptr],y
		tay
		bne	@good_handle
		txa
		bne	@good_handle
		sec
		rts
@good_handle
		stx	temp_handle
		sty	temp_handle+2		;handle to the segment in memory
		ldy	#$0002			;deref the handle to get the base address
		lda	[temp_handle]
		tax
		lda	[temp_handle],y
		tay
		ora	[temp_handle]
		bne	@good_address
		sec
		rts
@good_address
		stx	base_ptr
		sty	base_ptr+2		;address of the segment in memory
		jsr	add_segment_offset
		clc
		rts
		endp

		TITLE	', ExpressLoad.a - alloc_id'
;====================================================================================================
;alloc_id:      This routine will allocate a new user ID for a load file.  This routine is called
;               by the "initial_Load" routine
;
;Input:         A = user_id             ;ID from the caller
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = user_id             ;ID for the application
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;               b = k
;
;
;====================================================================================================

		longa	on
		longi	on
alloc_id	proc
		with	DirectPage, Globals

		tax
		and	#$00FF
		bne	@exit_alloc		;use the given ID
		txa
		and	#$FF00			;see if the Type_ID is 0
		bne	@get_new		;Use the Input Type and Aux type please
		txa
		ora	#Application		;set the Type to Application
		tax
@get_new
		pea	$0000			;space for result
		phx				;ID stuff
		_GetNewID
		plx
		bcs	@oops			;return the error
@exit_alloc
		txa				;set A = user_id
		sta	|USERID			;this is now the Global_ID
		clc
@oops
		rts
		endp

		TITLE	', ExpressLoad.a - compare_paths'
;====================================================================================================
;compare_paths: This routine will compare the full pathnames pointed to by PathnamePtr and
;               TempBuff to see if they are equal.
;               It can also compare partial paths if "Partial_Match" is negative.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;               PathnamePtr & TempBuff point to the two pathnames to compare
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   .x000..0 = Match found (complete or partial, depending on V flag)
;                          1 = Match not found
;                    0       = partial match found.
;                    1       = complete match found.
;               b = k
;
;
;====================================================================================================

		longa	on
		longi	on
compare_paths	proc
		with	DirectPage, Globals

		lda	[PathnamePtr]		;compare the string sizes first
		tay
		cmp	[TempBuff]
		beq	@do_full_check
		bcc	@chk_colon_full_blown	;PathnamePtr contains the smaller string.
		lda	[TempBuff]
		tay

		iny				;TempBuff contains the smaller string
		iny
		lda	[PathnamePtr],y
		bra	@do_chk

@chk_colon_full_blown
		iny
		iny
		lda	[TempBuff],y
@do_chk
		and	#$00FF
		cmp	#seperator		;is it a seperator?
		bne	@not_same

@do_partial_compare
		lda	partial_match		;are we looking for a partial match?
		bpl	@not_same		;don't bother.

		dey
		longa	off
		sep	#$20
@partial_loop
		lda	[PathnamePtr],y		;compare the ascii data
		eor	[TempBuff],y		;case insensitive comparison
		beq	@equal_1
		cmp	#$20			;difference only in case?
		bne	@not_same		;nope!
		lda	[PathnamePtr],y		;get character again
		cmp	#'A'			;make sure it's alphabetic
		bcc	@not_same
		cmp	#'Z'+1
		bcc	@equal_1
		cmp	#'a'			;lower case?
		bcc	@not_same
		cmp	#'z'+1
		bcs	@not_same
@equal_1
		dey
		bne	@partial_loop
		rep	#$61			;clear overflow & carry bits
		rts

@do_full_check
		iny				;bump for leading length word
		longa	off
		sep	#$20
@loop
		lda	[PathnamePtr],y		;compare the ascii data
		eor	[TempBuff],y		;case insensitive comparison
		beq	@equal_2
		cmp	#$20			;difference only in case?
		bne	@not_same		;nope!
		lda	[PathnamePtr],y		;get character again
		cmp	#'A'			;make sure it's alphabetic
		bcc	@not_same
		cmp	#'Z'+1
		bcc	@equal_2
		cmp	#'a'			;lower case?
		bcc	@not_same
		cmp	#'z'+1
		bcs	@not_same
@equal_2
		dey
		bne	@loop
		rep	#$21			;clears carry too
		sep	#$40			;set overflow bit (full match)
		rts				;the pathnames are the same
@not_same
		longa	on
		rep	#$20
		sep	#$41			;no partial or complete match found
		rts
		endp

		TITLE	', ExpressLoad.a - merge_path'
;====================================================================================================
;merge_path:    This routine will merge the volume name and partial path into one complete pathname
;               The names are stored at the end of an ExpressLoad segment.
;
;merge_path_2:  Alternate entry point that can be used when ExpressHandle already contains the handle.
;
;Input:         A = undefined
;               X = low word of ExpressHandle
;               Y = High Word of ExpressHandle
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               ExpressHandle           ;must be setup
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..
;               b = k
;
;               PathnamePtr             pointer to pathname within ExpressLoad segment
;
;====================================================================================================

		longa	on
		longi	on
merge_path	proc
		entry	merge_path_2

		with	DirectPage, Globals

		stx	ExpressHandle
		sty	ExpressHandle+2

merge_path_2
		ldy	#$0002			;build a pointer to ExpressSegment
		lda	[ExpressHandle]
		sta	temp_ptr
		lda	[ExpressHandle],y
		sta	temp_ptr+2
;
;Now we need to build a pointer to the volume name
;
		ldy	#ExpressloadSeg.PathnameOffset ;offset to the volume name
		clc
		lda	[temp_ptr],y
		adc	temp_ptr
		sta	PathnamePtr
		lda	#$0000
		adc	temp_ptr+2
		sta	PathnamePtr+2		;PathnamePtr now points to the volume name

		clc
		rts
		endp

		TITLE	', ExpressLoad.a - add_user_id'
;====================================================================================================
;add_user_id:   This routine will find a empty spot in the user_id table and allocate it
;
;Input:         A = user_id             ;ID from the caller
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;               b = k
;
;
;Output:        A = undefined
;               X = low word address of entry
;               Y = high word address of entry
;               P = nvmxdizc
;                   ..000..1 = error
;               b = k
;
;
;====================================================================================================

		longa	on
		longi	on
add_user_id	proc
		with	DirectPage, Globals

		sta	temp_word		;ID to add

		ldy	#$0002			;start at the beginning of the user_id table
		lda	[user_id_handle]
		sta	user_id_ptr
		lda	[user_id_handle],y
		sta	user_id_ptr+2
@loop
		jsr	get_free_id		;find a free spot in the table
		bcc	@got_it
		jsr	add_id_table		;add another table please
		bcc	@loop			;try again
		rts				;return the error
@got_it
		ldx	temp_ptr
		ldy	temp_ptr+2		;address of the entry
		clc
		rts

get_free_id
		ldy	#id_entry_size		;start at the first available spot
		ldx	#id_entry_cnt		;number of entries in a table
@search_loop
		lda	[user_id_ptr],y		;is this avail.
		beq	@its_free
		clc
		tya
		adc	#id_entry_size
		tay
		dex
		bpl	@search_loop
		sec
		rts
@its_free
		clc				;build a pointer to the entry
		tya
		adc	user_id_ptr
		sta	temp_ptr
		sta	user_id_ptr
		lda	#$000
		adc	user_id_ptr+2
		sta	temp_ptr+2
		sta	user_id_ptr+2

		ldy	#14			;clear the entry please (16 bytes total 0 thru 15)
		lda	#$0000
@clr_it
		sta	[temp_ptr],y
		dey
		dey
		bpl	@clr_it

		lda	temp_word		;save the user Id please
		sta	[temp_ptr]
		clc
		rts
		endp

		TITLE	', ExpressLoad.a - delete_user_id'
;====================================================================================================
;delete_user_id:        This routine will delete the user_id pointer to by user_id
;
;Input:         A = user_id_Flag:       0 = delete ID, 1 = keep the user_id
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;               b = k
;
;               user_id                 ;must be setup
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;               b = k
;
;
;====================================================================================================

		longa	on
		longi	on
delete_user_id	proc
		with	DirectPage, Globals

		sta	id_flag			;used to determine if I should delete the user id

		ldy	#ID_Table_Entry.ExpressHandle
		lda	[user_id_ptr],y		;get the ExpressLoad handle
		tax
		iny
		iny
		lda	[user_id_ptr],y
		tay
		bne	@deallocate
		tax
		beq	@no_handle
@deallocate
		phy
		phx
		jsr	clear_handles		;clear local copy of handle
		_DisposeHandle
@no_handle
		lda	[user_id_ptr]		;get the user_id
		beq	@zero_and_exit

		pha				;ID to nuke
		_DisposeAll

		ldx	id_flag			;should we nuke the ID?
		bne	@zero_and_exit		;no...

		lda	[user_id_ptr]		;get the user_id
		pha				;ID to nuke
		_DeleteID

@zero_and_exit
		ldy	#$0002
		lda	#$0000
		sta	[user_id_ptr]
		sta	[user_id_ptr],y
		iny
		iny
		sta	[user_id_ptr],y		;remove everything
		stz	ExpressHandle		;indicate that we no longer have the load file
		stz	ExpressHandle+2
		clc
		rts
		endp

		TITLE	', ExpressLoad.a - purge_user_id'
;====================================================================================================
;purge_user_id: This routine will mark an application as purgable
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;               b = k
;
;               user_id                 ;must be setup
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;               b = k
;
;
;====================================================================================================

		longa	on
		longi	on
purge_user_id	proc
		with	DirectPage, Globals

		lda	[user_id_ptr]		;get the user_id
		beq	@exit
		pha
		_PurgeAll
@exit
		rts
		endp

		TITLE	', ExpressLoad.a - remove_segment'
;====================================================================================================
;remove_segment:        This routine will deallocate all memory associated with a user ID.
;
;Input:         A = And Mask for flags field
;               X = Compare Value
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;               b = k
;
;               ExpressHandle
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;               b = k
;
;
;====================================================================================================

		longa	on
		longi	on
remove_segment	proc
		with	DirectPage, Globals
		sta	temp_word
		stx	search_kind

		jsr	make_HET_ptr

		lda	[HET_ptr]		;get the number of entries in table
		inc	a			;start from the last segment
		inc	a
		tax
@search_loop
		txa				;pass in the segment number
		beq	@end_remove		;sorry there is no segment
		phx
		jsr	setup_seg_ptrs		;we are now in business
		ldy	#HET_Entry.SegFlags
		lda	[HET_entry_ptr],y
		and	temp_word		;AND off user requested bits
		cmp	search_kind		;see if we have a match
		bne	@skip_it
		jsr	do_operation
@skip_it
		plx
		dex				;back off by one and try again
		cpx	#$0001
		bne	@search_loop
@end_remove
		clc
		rts

do_operation
		lda	#$0000			;zero the status word
		sta	[HET_entry_ptr],y
		ldy	#HET_Entry.SegHandle	;lets dispose of the handle please
		lda	[HET_entry_ptr],y
		tax
		lda	#$0000
		sta	[HET_entry_ptr],y
		iny
		iny
		lda	[HET_entry_ptr],y	;get the high word
		pha
		lda	#$000
		sta	[HET_entry_ptr],y
		phx				;push the low word
		jsr	clear_handles		;clear local copy of handle
		_DisposeHandle
		rts
		endp

		TITLE	', ExpressLoad.a - find_user_id'
;====================================================================================================
;find_user_id:  This routine will find a user_id in the user_id_Table
;
;Input:         A = user_id             ;ID from the caller
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = undefined
;               X = low word address of entry
;               Y = high word address of entry
;               P = nvmxdizc
;                   ..000..1 = error
;               b = k
;
;
;====================================================================================================

		longa	on
		longi	on
find_user_id	proc
		with	DirectPage, Globals

		tax
		bne	@use_input
		lda	|USERID			;use the global ID
@use_input
		sta	search_kind
		sta	|USERID			;update the global User ID

		ldy	#$0002
		lda	[user_id_handle]
		sta	user_id_ptr
		lda	[user_id_handle],y
		sta	user_id_ptr+2
@loop
		jsr	find_id
		bcc	@found_it

		ldy	#User_ID_Table.Next+2	;get the next link
		lda	[user_id_ptr]
		tax
		lda	[user_id_ptr],y
		tay
		bne	@keep_going
		txa
		bne	@keep_going
		sec
		rts				;sorry ID not found
@keep_going
		stx	temp_handle
		stx	curr_id_handle		;the current handle table
		sty	temp_handle+2
		sty	curr_id_handle+2
		ldy	#$0002
		lda	[temp_handle]
		sta	user_id_ptr
		lda	[temp_handle],y
		sta	user_id_ptr+2
		bra	@loop
@found_it
		ldx	temp_ptr		;return pointer to the entry
		ldy	temp_ptr+2
		clc
		rts

find_id
		ldy	#id_entry_size		;start at the first available spot
		ldx	#id_entry_cnt		;number of entries in a table
@search_loop
		lda	[user_id_ptr],y		;is this the one
		cmp	search_kind
		beq	@its_the_one
		clc
		tya
		adc	#id_entry_size
		tay
		dex
		bpl	@search_loop
		sec
		rts
@its_the_one
		clc				;build a pointer to the entry
		tya
		adc	user_id_ptr
		sta	temp_ptr
		sta	user_id_ptr
		lda	#$000
		adc	user_id_ptr+2
		sta	temp_ptr+2
		sta	user_id_ptr+2

		clc
		rts

		endp

		TITLE	', ExpressLoad.a - path_to_user_id'
;====================================================================================================
;path_to_user_id:       This routine will find a user_id in the user_id_Table given a pathname
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               TempBuff                ;pointer to path that we need to find
;
;Output:        A = User ID
;               X = undefined
;               Y =undefined
;               P = nvmxdizc
;                   ..000..1 = not found
;               b = k
;
;
;====================================================================================================

		longa	on
		longi	on
path_to_user_id	proc
		with	DirectPage, Globals

		ldy	#$0002
		lda	[user_id_handle]
		sta	user_id_ptr
		lda	[user_id_handle],y
		sta	user_id_ptr+2
@loop
		jsr	find_id
		bcc	@found_it		;we have found the complete path!

		ldy	#$0002			;get the next link
		lda	[user_id_ptr]
		tax
		lda	[user_id_ptr],y
		tay
		ora	[user_id_ptr]
		bne	@keep_going
		sec
		rts				;sorry ID not found
@keep_going
		stx	temp_handle
		sty	temp_handle+2
		ldy	#$00002
		lda	[temp_handle]
		sta	user_id_ptr
		lda	[temp_handle],y
		sta	user_id_ptr+2
		bra	@loop
@found_it
		rts				;A = user_id

find_id
		ldy	#id_entry_size		;start at the first available spot
		ldx	#id_entry_cnt		;number of entries in a table
@search_loop
		lda	[user_id_ptr],y		;is this the one
		sta	search_kind		;save the User ID
		beq	@empty_slot
		phy
		phx
		jsr	check_name		;is this the one
		plx
		ply
		bcc	@its_the_one

@empty_slot	clc
		tya
		adc	#id_entry_size
		tay
		dex
		bpl	@search_loop
		sec
		sep	#$40			;no partial match!!!
@its_the_one
		rts
check_name
		iny
		iny				;get the handle
		lda	[user_id_ptr],y
		tax
		iny
		iny
		lda	[user_id_ptr],y
		tay
		jsr	merge_path		;build a complete pathname
		jsr	compare_paths		;is this the one?
		lda	search_kind
		rts				;carry set or cleared from the compare routine
		endp

		TITLE	', ExpressLoad.a - find_seg_handle'
;====================================================================================================
;find_seg_handle:       This routine will find a segment by handle
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               seg_handle              ;must be setup
;
;Output:        A = User ID
;               X = undefined
;               Y =undefined
;               P = nvmxdizc
;                   ..000..1 = not found
;               b = k
;
;
;====================================================================================================

		longa	on
		longi	on
find_seg_handle	proc
		with	DirectPage, Globals

		ldy	#$0002
		lda	[user_id_handle]
		sta	user_id_ptr
		lda	[user_id_handle],y
		sta	user_id_ptr+2
@loop
		jsr	find_id
		bcc	@found_it

		ldy	#User_ID_Table.Next+2	;get the next link
		lda	[user_id_ptr]
		tax
		lda	[user_id_ptr],y
		tay
		bne	@keep_going
		txa
		bne	@keep_going
		sec
		rts				;sorry ID not found
@keep_going
		stx	temp_handle
		sty	temp_handle+2
		ldy	#$00002
		lda	[temp_handle]
		sta	user_id_ptr
		lda	[temp_handle],y
		sta	user_id_ptr+2
		bra	@loop
@found_it
		rts				;A = user_id

find_id
		ldy	#id_entry_size		;start at the first available spot
		ldx	#id_entry_cnt		;number of entries in a table
@search_loop
		lda	[user_id_ptr],y		;is this the one
		sta	|USERID
		beq	@empty_slot
		phy
		phx
		jsr	check_handle		;is this the one
		plx
		ply
		bcc	@its_the_one
@empty_slot
		clc
		tya
		adc	#id_entry_size
		tay
		dex
		bpl	@search_loop
		sec
@its_the_one
		sta	search_seg		;save the segment number
		rts
check_handle
		iny
		iny				;get the handle
		lda	[user_id_ptr],y
		sta	ExpressHandle
		tax
		iny
		iny
		lda	[user_id_ptr],y
		sta	ExpressHandle+2		;Handle to the ExpressLoad segment
		jsr	walk_expressSeg		;look at all the handles in the ExpressLoad segment
		rts				;found the handle

walk_expressSeg
		jsr	make_HET_ptr		;make a pointer to the Header Entry Table

		lda	[HET_ptr]		;get the number of entries in table
		inc	a			;start from the last segment
		inc	a
		tax
@search_loop
		txa				;pass in the segment number
		beq	@end_handle		;sorry there is no segment by this name
		phx
		jsr	setup_seg_ptrs		;we are now in business
		ldy	#HET_Entry.SegHandle	;see if this is a jump segment
		lda	[HET_entry_ptr],y
		cmp	seg_handle
		bne	@not_handle
		iny
		iny
		lda	[HET_entry_ptr],y
		cmp	seg_handle+2
		bne	@not_handle
		pla				;this is the segment number
		clc
		rts
@not_handle
		plx
		dex				;back off by one and try again
		cpx	#$0001
		bne	@search_loop
@end_handle
		sec
		rts

		endp

		TITLE	', ExpressLoad.a - get_seg_base'
;====================================================================================================
;get_seg_base:  Given a segment number this routine will setup segment_base
;
;Input:         A = segment_number
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = undefined
;
;               HET_ptr                 ;must be setup!
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;====================================================================================================

		longa	on
		longi	on
get_seg_base	proc
		with	DirectPage

		dec	a			;HET table numbers are 0 thru (-n- minus 1)
		dec	a			;allow for ExpressLoad segment

		asl	a
		asl	a
		asl	a			;times 8 for HET entry size

		inc	a			;add two to pass the segment count field
		inc	a

		clc
		adc	HET_ptr			;make a pointer to the Entry
		sta	HET_entry_ptr		;pointer to the entry itself
		lda	#$0000
		adc	HET_ptr+2
		sta	HET_entry_ptr+2
;
;Now we need to setup our Base address for this segment
;
		ldy	#HET_Entry.SegHandle	;index to the handle
		lda	[HET_entry_ptr],y
		sta	temp_handle
		iny
		iny
		lda	[HET_entry_ptr],y
		sta	temp_handle+2
;
;Deref the handle to find out the base address
;
		ldy	#$0002
		lda	[temp_handle]
		sta	segment_base		;starting address of the segment
		lda	[temp_handle],y
		sta	segment_base+2
		ora	segment_base		;see if the segment has been purged!
		bne	@segment_alive		;great.
		lda	#seg_not_found
		sec
		rts
@segment_alive
		clc
		rts

		TITLE	', ExpressLoad.a - Process_Reloc'
;====================================================================================================
;Process_Reloc: This routine is called to process the relocation dictionary of a segment
;               ** NOTE ** This code changes the data bank register to the bank that
;               contains the Relocation Dictionary.  This means all data access to data in
;               our bank must use long addressing.
;
;Input:         A = segment number to relocate
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               HET_ptr                 ;pointer to HET (Header Entry Table) must be setup!
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;
;-Note-
;               All Segments that this segment links to must be loaded into memory
;
;HET Entry definition:
;
;               -------------------
;               Number of segments      (word)
;               -------------------
;                       ¥
;                       ¥
;                       ¥
;               -------------------     [This is one Header Entry, it is repeated -n- times]
;               Relative offset to
;               segment header          (word)
;               -------------------
;               Flags                   (word) Bit 15 = loaded
;               -------------------
;               Handle to segment       (Long) Points to the segment in memory
;               -------------------
;                       ¥
;                       ¥
;                       ¥
;
;====================================================================================================

		longa	on
		longi	on
Process_Reloc	proc
		with	DirectPage, Globals

;               sta     reloc_seg               ;segment numbers are 1 thru -n-
		jsr	setup_seg_ptrs		;build pointers to the segment entries

;
;Now we need to setup our Base address for this segment
;
		ldy	#HET_Entry.SegHandle	;index to the handle
		lda	[HET_entry_ptr],y
		sta	temp_handle
		iny
		iny
		lda	[HET_entry_ptr],y
		sta	temp_handle+2
;
;Deref the handle to find out the base address
;
		ldy	#$0002
		lda	[temp_handle]
		sta	base_ptr		;starting address of the segment
		lda	[temp_handle],y
		sta	base_ptr+2
		ora	base_ptr		;see if the segment has been purged!
		bne	@segment_alive		;great.
@no_seg
		sec
		lda	#seg_not_found		;sorry we cannot process the segment
		rts
;
;Now we need to deref the handle to the relocation dictionary
;The handle for the relocation dictionary is located in the segment header
;
@segment_alive
		ldy	#SegHeaderEntry.RelocDict_Length ;now lets get the size of the segment
		lda	[seg_header_ptr],y
		bne	@its_there
		iny
		iny
		lda	[seg_header_ptr],y
		bne	@its_there
		clc
		rts				;easy case
@its_there
		ldy	#SegHeaderEntry.RelocDict_Hndl ;offset to the relocation dictionary handle
		lda	[seg_header_ptr],y	;get the handle
		sta	temp_handle
		iny
		iny
		lda	[seg_header_ptr],y
		sta	temp_handle+2
;
;now lets deref the handle and build a pointer to the relocation dictionary
;
		ldy	#$0002
		lda	[temp_handle]
		sta	reloc_dict_ptr		;points the relocation dictionary in memory
		lda	[temp_handle],y
		sta	reloc_dict_ptr+2
		ora	reloc_dict_ptr		;is the dictionary available
		beq	@no_seg
		stz	patch_cnt
		stz	shift_cnt

		lda	reloc_dict_ptr+1	;set the data bank register to relocation dictionary
		pha
		plb				;get the Bank Address of Relocation Dictionary
		plb
opcode_loop
		lda	(reloc_dict_ptr)	;get the current opcode
		and	#$00FF			;clear any garbage
		beq	do_end_handler		;this is the end handler
		cmp	#$00E2			;valid record?
		bcc	@invalid_record		;no...
		cmp	#$F8
		bcc	@good_record
@invalid_record
		lda	#$00E4			;translate into another invalid number
@good_record
		asl	a			;times two for word table
		tax
		jsr	(opcode_handlers-$1C4,x) ;Subtract of base of opcodes ($1C4 = $E2*2)
		bcc	opcode_loop		;do the next opcode please
		phk
		plb				;restore our bank
		rts				;return the error code

;
;This routine dispatches to the correct opcode handler
;
do_end_handler
		pea	we_are_done-1		;this is the last one!
		pea	end_handler-1
		rts
we_are_done
		phk
		plb				;restore our bank please

		ldy	#SegHeaderEntry.RelocDict_Hndl+2 ;offset to the relocation dictionary handle
		lda	[seg_header_ptr],y	;get the handle
		pha
		lda	#$0000
		sta	[seg_header_ptr],y
		dey
		dey
		lda	[seg_header_ptr],y
		pha
		lda	#$0000
		sta	[seg_header_ptr],y

		_DisposeHandle

		stz	temp_handle		;make sure we note that the handle is invalid
		stz	temp_handle+2

		clc
		rts				;we did it!!!!

bad_opcode
		sec
		lda	#illegal_record
		rts				;exit with error


opcode_handlers
		dc.w	Reloc_handler		;$E2
		dc.w	Interseg_handler	;$E3
		dc.w	bad_opcode		;$E4
		dc.w	bad_opcode		;$E5
		dc.w	bad_opcode		;$E6
		dc.w	bad_opcode		;$E7
		dc.w	bad_opcode		;$E8
		dc.w	bad_opcode		;$E9
		dc.w	bad_opcode		;$EA
		dc.w	bad_opcode		;$EB
		dc.w	bad_opcode		;$EC
		dc.w	bad_opcode		;$ED
		dc.w	bad_opcode		;$EE
		dc.w	bad_opcode		;$EF
		dc.w	bad_opcode		;$F0
		dc.w	bad_opcode		;$F1
		dc.w	bad_opcode		;$F2
		dc.w	bad_opcode		;$F3
		dc.w	bad_opcode		;$F4
		dc.w	cReloc_handler		;$F5
		dc.w	cInterseg_handler	;$F6
		dc.w	super_handler		;$F7

		TITLE	', ExpressLoad.a - Reloc_handler'
;====================================================================================================
;
;This routine will process a standard relocation entry
;
;Structure pointed to by Reloc_dict_ptr
;
;               opcode $E2      (1 Byte)
;               patch_cnt       (1 byte: number of bytes to patch)
;               bit_shift       (1 byte: (+) = ASL (-) = LSR
;               patch_offset    (4 bytes: offset from the start of the segment)
;               patch_value     (4 bytes: offset from the start of the segment)
;
;====================================================================================================

Reloc_handler
		ldy	#$0001
		lda	(reloc_dict_ptr),y	;get the patch cnt and bit shift
		sep	#$20
		sta	patch_cnt		;the number of bytes to patch 1,2 or 3
		xba
		sta	shift_cnt
		rep	#$20			;back to 16 bit mode

		ldy	#$0003			;point to the patch offset
		clc
		lda	(reloc_dict_ptr),y
		adc	base_ptr		;base address
		sta	patch_ptr		;address to patch
		ldy	#$0005
		lda	(reloc_dict_ptr),y
		adc	base_ptr+2
		sta	patch_ptr+2		;high word of patch address

		ldy	#$0007			;point to the patch value field
		clc
		lda	(reloc_dict_ptr),y
		adc	base_ptr
		sta	patch_value
		ldy	#$0009
		lda	(reloc_dict_ptr),y
		adc	base_ptr+2
		sta	patch_value+2		;what we will patch with

		clc
		lda	reloc_dict_ptr		;bump the relocation dictionary pointer please
		adc	#$000b
		sta	reloc_dict_ptr
		bcc	@low_only
		inc	reloc_dict_ptr+2	;don't forget the high byte please
		lda	reloc_dict_ptr+1
		pha
		plb
		plb				;setup for the new bank please
@low_only
		jmp	shift_patch		;the the patch please

		TITLE	', ExpressLoad.a - cReloc_handler'
;====================================================================================================
;
;This routine will process a compressed relocation entry
;
;Structure pointed to by Reloc_dict_ptr
;
;               opcode $F5      (1 Byte)
;               patch_cnt       (1 byte: number of bytes to patch)
;               bit_shift       (1 byte: (+) = ASL (-) = LSR
;               patch_offset    (2 bytes: offset from the start of the segment)
;               patch_value     (2 bytes: offset from the start of the segment)
;
;====================================================================================================

cReloc_handler
		ldy	#$0001
		lda	(reloc_dict_ptr),y	;get the patch cnt and bit shift
		sep	#$20
		sta	patch_cnt		;the number of bytes to patch 1,2 or 3
		xba
		sta	shift_cnt
		rep	#$20			;back to 16 bit mode

		ldy	#$0003			;point the patch offset
		clc
		lda	(reloc_dict_ptr),y
		adc	base_ptr		;base address
		sta	patch_ptr		;address to patch
		lda	#$0000
		adc	base_ptr+2
		sta	patch_ptr+2		;high word of patch address

		ldy	#$0005			;point to the patch value field
		clc
		lda	(reloc_dict_ptr),y
		adc	base_ptr
		sta	patch_value
		lda	#$0000
		adc	base_ptr+2
		sta	patch_value+2		;what we will patch with

		clc
		lda	reloc_dict_ptr		;bump the relocation dictionary pointer please
		adc	#$0007
		sta	reloc_dict_ptr
		bcc	@low_only
		inc	reloc_dict_ptr+2	;don't forget the high byte please
		pei	reloc_dict_ptr+1
		plb
		plb				;setup for the new bank please
@low_only
		jmp	shift_patch		;the the patch please

		TITLE	', ExpressLoad.a - Interseg_handler'
;====================================================================================================
;
;This routine will process a Interseg relocation entry
;
;Structure pointed to by Reloc_dict_ptr
;
;               opcode $E3      (1 Byte)
;               patch_cnt       (1 byte: number of bytes to patch)
;               bit_shift       (1 byte: (+) = ASL (-) = LSR
;               patch_offset    (4 bytes: offset from the start of the segment)
;               file number     (2 bytes: file number of load file: not supported yet)
;               segment number  (2 bytes: segment that we are linking to)
;               patch_value     (4 bytes: offset from the start of the destination segment)
;
;====================================================================================================
Interseg_handler
		ldy	#$0001
		lda	(reloc_dict_ptr),y	;get the patch cnt and bit shift
		sep	#$20
		sta	patch_cnt		;the number of bytes to patch 1,2 or 3
		xba
		sta	shift_cnt
		rep	#$20			;back to 16 bit mode

		ldy	#$0003			;point the patch offset
		clc
		lda	(reloc_dict_ptr),y
		adc	base_ptr		;base address
		sta	patch_ptr		;address to patch
		ldy	#$0005
		lda	(reloc_dict_ptr),y
		adc	base_ptr+2
		sta	patch_ptr+2		;high word of patch address

		ldy	#$0007			;now lets point to the file number
		lda	(reloc_dict_ptr),y
		dec	a			;better be one
		beq	@great
		sec
		lda	#illegal_record
		rts				;return the error
@great
		ldy	#$0009			;get the segment number
		lda	(reloc_dict_ptr),y
		and	#$00FF
		jsr	get_seg_base
		bcc	@got_it
		rts
@got_it
		ldy	#$000B			;offset to relative address in destination seg
		clc
		lda	(reloc_dict_ptr),y
		adc	segment_base
		sta	patch_value
		ldy	#$000D
		lda	(reloc_dict_ptr),y
		adc	segment_base+2
		sta	patch_value+2

		clc
		lda	reloc_dict_ptr		;bump the relocation dictionary pointer please
		adc	#$000F
		sta	reloc_dict_ptr
		bcc	@low_only
		inc	reloc_dict_ptr+2	;don't forget the high byte please
		lda	reloc_dict_ptr+1
		pha
		plb
		plb				;setup for the new bank please
@low_only
		jmp	shift_patch		;patch the segment please

		TITLE	', ExpressLoad.a - cInterseg_handler'
;====================================================================================================
;
;This routine will process a compressed Interseg relocation entry
;
;Structure pointed to by Reloc_dict_ptr
;
;               opcode $F6      (1 Byte)
;               patch_cnt       (1 byte: number of bytes to patch)
;               bit_shift       (1 byte: (+) = ASL (-) = LSR
;               patch_offset    (2 bytes: offset from the start of the segment)
;               segment number  (1 bytes: segment that we are linking to)
;               patch_value     (2 bytes: offset from the start of the destination segment)
;
;====================================================================================================
cInterseg_handler
		ldy	#$0001
		lda	(reloc_dict_ptr),y	;get the patch cnt and bit shift
		sep	#$20
		sta	patch_cnt		;the number of bytes to patch 1,2 or 3
		xba
		sta	shift_cnt
		rep	#$20			;back to 16 bit mode

		ldy	#$0003			;point the patch offset
		clc
		lda	(reloc_dict_ptr),y
		adc	base_ptr		;base address
		sta	patch_ptr		;address to patch
		lda	#$0000
		adc	base_ptr+2
		sta	patch_ptr+2		;high word of patch address

		ldy	#$0005			;get the segment number
		lda	(reloc_dict_ptr),y
		and	#$00FF			;one byte segment number
		jsr	get_seg_base
		bcc	@got_it
		rts
@got_it
		ldy	#$0006			;offset to relative address in destination seg
		clc
		lda	(reloc_dict_ptr),y
		adc	segment_base
		sta	patch_value
		lda	#$0000
		adc	segment_base+2
		sta	patch_value+2

		clc
		lda	reloc_dict_ptr		;bump the relocation dictionary pointer please
		adc	#$0008
		sta	reloc_dict_ptr
		bcc	@low_only
		inc	reloc_dict_ptr+2	;don't forget the high byte please
		lda	reloc_dict_ptr+1
		pha
		plb
		plb				;setup for the new bank please
@low_only
		jmp	shift_patch		;patch the segment please

		TITLE	', ExpressLoad.a - super_handler'
;====================================================================================================
;super_handler  This one is a bitch.
;
;There are several types of super records.  Below is the list that I support.
;
;       1)      Reloc2
;       2)      Reloc3
;       3)      Interseg1-Interseg36
;
;
;Super record structure:
;
;               opcode  $F7             ;byte
;               ------------------------
;               size of record          ;long
;               ------------------------
;               record type             ;byte
;               ------------------------
;               patch info: example
;
;               $01                     ;patch two bytes in page one of load segment
;               $34                     ;offset to 1st byte in page one of load segment
;               $7A                     ;offset to 2nd byte in page one of load segment
;               $81                     ;skip 1 page. (High bit means lower 7 bits contain skip cnt)
;               $00                     ;patch one byte in page three of load segment
;               $82                     ;offset in page three to patch
;
;====================================================================================================
super_handler
		lda	base_ptr		;address of the segment
		sta	temp_ptr
		lda	base_ptr+2
		sta	temp_ptr+2

		clc
		lda	reloc_dict_ptr
		adc	#$0006			;pass the record type
		sta	super_ptr
		lda	reloc_dict_ptr+2
		adc	#$0000
		sta	super_ptr+2

		ldy	#$0001			;get the total count of entries please
		lda	(reloc_dict_ptr),y	;get the size of the Super Record
		sta	super_size
		dec	a			;remove one for the opcode byte
		sta	cnt_word
		ldy	#$0003
		lda	(reloc_dict_ptr),y	;fail if non-zero
		beq	@size_ok
		sec
		lda	#illegal_record
		rts				;return the error
@size_ok
		ldy	#$0005			;pass the size field
		lda	(reloc_dict_ptr),y
		and	#$00FF			;clear the garbage
		tax
		beq	@reloc2_type		;do a reloc 2 type
		dec	a
		beq	@reloc3_type
;
;If we get here we know that this is an Interseg Record of some kind
;
		txa				;get back the kind again
		cmp	#26
		bcc	@chk_14

		jsr	Interseg_26
		bra	@end_super		;we are done
@chk_14
		cmp	#14
		bcc	@one_thru_12

		jsr	Interseg_14		;do the conversion
		bra	@end_super
@one_thru_12
		jsr	Interseg_1
		bra	@end_super
@reloc2_type
		jsr	reloc2
		bra	@end_super
@reloc3_type
		jsr	reloc3

@end_super
		bcs	@abort
		lda	super_size		;size of the data area
		adc	#$0005			;overhead in record
		clc
		adc	reloc_dict_ptr		;bump the relocation dictionary pointer please
		sta	reloc_dict_ptr
		bcc	@low_only
		inc	reloc_dict_ptr+2	;don't forget the high byte please
		lda	reloc_dict_ptr+1
		pha
		plb
		plb				;setup for the new bank please
@low_only
		clc
@abort
		rts

		TITLE	', ExpressLoad.a - Interseg_1'
;====================================================================================================
;Interseg1      This routine is used to patch Super interseg records 1 thru 12:
;
;structure:
;
;               If the opcode field is 3 thru 13 then this value indicates
;               the file number (plus 1) to load from.  I do not support this.
;
;               relocation information is in the operand field of load segment.
;               Format:
;                       Offset          ;word
;                       segment number  ;byte number of segment to link to.
;
;
;====================================================================================================
Interseg_1
		ldy	#$0005			;lets get the segment number
		lda	(reloc_dict_ptr),y
		and	#$00FF			;get the record type
		cmp	#$0003			;is the number 2 thru 12?
		bcc	@good_seg
		lda	#illegal_record		;sorry illegal record type
@good_seg
		ldy	#$0000

		lda	cnt_word		;see if we are done yet
		beq	@done
@outter_loop
		lda	[super_ptr],y		;get the command (8 Bits)
		bit	#$0080			;clear all but the pages bit
		beq	@do_inner_loop		;process the relocation info
		and	#$007F			;get the number of pages to skip

		xba				;multiply the number times 256
		clc
		adc	temp_ptr
		sta	temp_ptr
		bcc	@low_only
		inc	temp_ptr+2
@low_only
		iny				;bump index to the next byte
		dec	cnt_word		;reduce the count by one
		bne	@outter_loop
@done
		clc
		rts				;we are done


@do_inner_loop
		and	#$007F			;number of entries we have to patch
		tax
@inner_loop
		dec	cnt_word		;reduce the count by one
		iny				;bump index to the next byte

		lda	[super_ptr],y		;A = offset
		and	#$00FF			;clear garbage
		phy				;save the index please

		tay
		phy				;index to patch area

		lda	[temp_ptr],y		;get the relative offset in other segment
		sta	patch_value
		iny
		iny
		lda	[temp_ptr],y		;get the segment number to patch to
		and	#$00FF
		jsr	get_seg_base		;go and get the segment base address
		ply				;get our index back please
		bcc	@have_segment
		ply				;remove super index please
		rts				;return the error
@have_segment
		clc
		lda	segment_base
		adc	patch_value
		sta	[temp_ptr],y
		iny
		iny
		lda	segment_base+2
		adc	#$0000
		sep	#$20			;8 bit store only
		sta	[temp_ptr],y		;save the new address please
		rep	#$20			;16 bit mode

		ply				;restore super index
		dex
		bpl	@inner_loop		;process this page

		iny				;bump to next byte
		inc	temp_ptr+1		;add 256 to the page pointer
		dec	cnt_word		;reduce the count by one
		bne	@outter_loop
		clc
		rts

		TITLE	', ExpressLoad.a - Interseg_14'
;====================================================================================================
;Interseg_14    This routine processes interseg 14 thru interseg 24 types.
;               This type allows a 16 bit patch with no shifting.
;
;Structure:
;
;               The segment number to process is in the opcode byte.  To determine
;               the real segment number just subtract 13 from the stored value.
;
;====================================================================================================
Interseg_14
		ldy	#$0005			;lets get the segment number
		sec
		lda	(reloc_dict_ptr),y
		and	#$00FF			;get the record type
		sbc	#13
		jsr	get_seg_base		;setup the base address for this segment
		ldy	#$0000			;init super index
		bcc	@continue
		rts				;return the error

@continue
		lda	cnt_word		;see if we are done yet
		beq	@done
@outter_loop
		lda	[super_ptr],y		;get the command (8 Bits)
		bit	#$0080			;clear all but the pages bit
		beq	@do_inner_loop		;process the relocation info
		and	#$007F			;get the number of pages to skip

		xba				;multiply the number times 256
		clc
		adc	temp_ptr
		sta	temp_ptr
		bcc	@low_only
		inc	temp_ptr+2
@low_only
		iny				;bump index to the next byte
		dec	cnt_word		;reduce the count by one
		bne	@outter_loop
@done
		clc
		rts

@do_inner_loop
		and	#$007F			;number of entries we have to patch
		tax
@inner_loop
		dec	cnt_word		;reduce the count by one
		iny				;point to the next byte

		lda	[super_ptr],y		;A = offset
		and	#$00FF			;clear garbage
		phy				;save super index
		tay				;build patch record index

		clc				;do the 16 bit patch
		lda	[temp_ptr],y		;get the relative offset in other segment
		adc	segment_base
		sta	[temp_ptr],y

		ply				;get back super index
		dex
		bpl	@inner_loop		;process this page

		iny				;point to the next byte
		inc	temp_ptr+1		;point to the next page please
		dec	cnt_word		;reduce the count by one
		bne	@outter_loop
		clc
		rts

		TITLE	', ExpressLoad.a - Interseg_26'
;====================================================================================================
;Interseg_26    This routine processes interseg 25 thru interseg 36 types.
;               This type allows a 16 bit patch with 16 bit shifting.
;
;Structure:
;
;               The segment number to process is in the opcode byte.  To determine
;               the real segment number just subtract 25 from the stored value.
;====================================================================================================
Interseg_26
		ldy	#$0005			;lets get the segment number
		sec
		lda	(reloc_dict_ptr),y
		and	#$00FF			;get the record type
		sbc	#25
		jsr	get_seg_base		;setup the base address for this segment
		ldy	#$0000			;init the super index pointer
		bcc	@continue
		rts				;return the error
@continue
		lda	cnt_word		;see if we are done yet
		beq	@done
@outter_loop
		lda	[super_ptr],y		;get the command (8 Bits)
		bit	#$0080			;clear all but the pages bit
		beq	@do_inner_loop		;process the relocation info
		and	#$007F			;get the number of pages to skip

		xba				;multiply the number times 256
		clc
		adc	temp_ptr
		sta	temp_ptr
		bcc	@low_only
		inc	temp_ptr+2
@low_only
		iny				;bump index to point to the next byte
		dec	cnt_word		;reduce the count by one
		bne	@outter_loop
@done
		clc
		rts

@do_inner_loop
		and	#$007F			;number of entries we have to patch
		tax
@inner_loop
		dec	cnt_word		;reduce the count by one
		iny				;point to the next byte

		lda	[super_ptr],y		;A = offset
		and	#$00FF			;clear garbage
		phy				;save super index
		tay				;build index to patch address

		lda	[temp_ptr],y		;get the relative offset in other segment
		sta	patch_value

		clc				;do the 16 bit patch
		lda	segment_base
		adc	patch_value
		lda	segment_base+2		;store the upper 16 bits only
		adc	#$0000
		sta	[temp_ptr],y

		ply				;restore super index
		dex
		bpl	@inner_loop		;process this page

		iny				;point to the next byte
		inc	temp_ptr+1		;bump to the next page
		dec	cnt_word		;reduce the count by one
		bne	@outter_loop
		clc
		rts

		TITLE	', ExpressLoad.a - reloc2'
;====================================================================================================
reloc2
		ldy	#$0000			;init the index
@outter_loop
		lda	cnt_word		;see if we are done yet
		bne	@not_yet
		clc
		rts				;we are done
@not_yet
		lda	[super_ptr],y		;get the command (8 Bits)
		bit	#$0080			;clear all but the pages bit
		beq	@do_inner_loop		;process the relocation info
		and	#$007F			;get the number of pages to skip

		xba				;multiply the number times 256
		clc
		adc	temp_ptr
		sta	temp_ptr
		bcc	@low_only
		inc	temp_ptr+2
@low_only
		dec	cnt_word		;reduce the count by one
		iny				;bump index to the next byte
		bra	@outter_loop


@do_inner_loop
		and	#$007F			;number of entries we have to patch
		tax
@inner_loop
		dec	cnt_word		;reduce the count by one
		iny				;point to the next index please

		lda	[super_ptr],y		;A = offset
		and	#$00FF			;clear garbage
		phy				;save super index
		tay				;build index to the patch area

		clc
		lda	[temp_ptr],y		;get the relative offset to patch with
		adc	base_ptr		;base address of segment
		sta	[temp_ptr],y

		ply				;restore super index
		dex
		bpl	@inner_loop		;process this page

		dec	cnt_word		;reduce the count by one
		iny				;point to the next byte
		inc	temp_ptr+1		;point to the next page please
		bra	@outter_loop

		TITLE	', ExpressLoad.a - reloc3'
;====================================================================================================
reloc3
		ldy	#$0000			;init super index to zero
@outter_loop
		lda	cnt_word		;see if we are done yet
		bne	@not_yet
		clc
		rts				;we are done
@not_yet
		lda	[super_ptr],y		;get the command (8 Bits)
		bit	#$0080			;clear all but the pages bit
		beq	@do_inner_loop		;process the relocation info
		and	#$007F			;get the number of pages to skip

		xba				;multiply the number times 256
		clc
		adc	temp_ptr
		sta	temp_ptr
		bcc	@low_only
		inc	temp_ptr+2
@low_only
		dec	cnt_word		;reduce the count by one
		iny				;point to next byte
		bra	@outter_loop


@do_inner_loop
		and	#$007F			;number of entries we have to patch
		tax
@inner_loop
		dec	cnt_word		;reduce the count by one
		iny				;point to next byte in super record

		lda	[super_ptr],y		;A = offset
		and	#$00FF			;clear garbage
		phy				;save the super index please
		tay

		clc
		lda	[temp_ptr],y		;get the relative offset to patch with
		adc	base_ptr		;base address of segment
		sta	[temp_ptr],y
		iny
		iny

		sep	#$20			;8 bit accumulator
		lda	[temp_ptr],y
		adc	base_ptr+2
		sta	[temp_ptr],y		;save the third byte please
		rep	#$20			;16 bit accumulator

		ply				;restore super index
		dex
		bpl	@inner_loop		;process this page

		dec	cnt_word		;reduce the count by one
		iny				;bump super record index
		inc	temp_ptr+1		;bump to the next page please
		bra	@outter_loop

;====================================================================================================
;End_handler:   Just sets the flag indicating that we are done.
;====================================================================================================

end_handler
;               lda     #$FFFF
;               sta     >end_found              ;indicate that we are done!!!
		rts

		TITLE	', ExpressLoad.a - shift_patch'
;====================================================================================================
;
;Below is the common patch code.  This code will do the relocation of the operand field
;
;====================================================================================================
shift_patch
		longa	off
		sep	#$20
		lda	shift_cnt		;number of times to shift
		beq	@no_shift		;very common case
		cmp	#$F0			;load the 3rd byte of address
		beq	@skip_16_bits
		cmp	#$F8			;load the 2nd byte of address
		beq	@skip_8_bits
;
;we have now handled the common cases. So lets do the odd cases now
;
		lda	shift_cnt
		bpl	@shift_left		;not a commom case
		sec
		lda	#$00
		sbc	shift_cnt		;convert twos compliment please
;
;do the slow shift right
;
		longa	on
		rep	#$20			;back to 16 bit mode
		and	#$00FF			;clear garbage
		tax				;count
@right_loop
		lsr	patch_value+2
		ror	patch_value		;shift by amount in x
		dex
		bne	@right_loop
		bra	patch_it		;continue the patch

@shift_left
		longa	on
		rep	#$20
		and	#$00FF
		tax
@left_loop
		asl	patch_value
		rol	patch_value+2
		dex
		bne	@left_loop		;shift the correct amount
		bra	patch_it		;continue the patch

@skip_16_bits					;equals a shift 16
		longa	on
		rep	#$20
		lda	patch_value+2		;get the high word please
		sta	patch_value
		bra	patch_it

@skip_8_bits					;equals a shift 8
		longa	on
		rep	#$20
		lda	patch_value+1
		sta	patch_value
		bra	patch_it

@no_shift					;equals no shift
		longa	on
		rep	#$20
patch_it
		ldy	#$0000
		lda	patch_cnt		;number of bytes to patch
		asl	a
		tax
		lda	>quick_jump-2,x
		pha
		rts
quick_jump
		dc.w	one_byte-1
		dc.w	two_byte-1
		dc.w	three_byte-1
		dc.w	four_byte-1

one_byte
		sep	#$20
		lda	patch_value
		sta	[patch_ptr]		;store the value
		rep	#$20
		clc
		rts
two_byte
		lda	patch_value
		sta	[patch_ptr]
		clc
		rts
three_byte
		lda	patch_value
		sta	[patch_ptr]
		ldy	#$0001
		lda	patch_value+1
		sta	[patch_ptr],y
		clc
		rts
four_byte
		ldy	#$0002
		lda	patch_value
		sta	[patch_ptr]
		lda	patch_value+2
		sta	[patch_ptr],y
		clc
		rts
		endp

		TITLE	', ExpressLoad.a - read_less_64k'
;====================================================================================================
;read_less_64K: This routine will read data from the input file.  It is limited to $FFFF bytes
;
;
;Input:         A = request count
;               X = buffer_ptr low
;               Y = buffer_ptr high
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;               b = k
;
;
;====================================================================================================

		longa	on
		longi	on
read_less_64k	proc
		with	DirectPage, Globals

		stz	|PRead.requestCount+2
		sta	|PRead.requestCount
		export	read_wBuf_ptr
read_wBuf_ptr
		stx	|PRead.dataBuffer
		sty	|PRead.dataBuffer+2

		jsr	lock_handles
		jsl	$e100a8
		dc.w	PD_READ			;class 0 read call
		dc.l	PRead
		jsr	unlock_handles
		bcs	@exit

		lda	|PRead.transferCount
		adc	local_mark		;bump the local mark please
		sta	local_mark
		lda	|PRead.transferCount+2
		adc	local_mark+2
		sta	local_mark+2
		lda	#$0000
		clc
@exit
		rts
		endp

		TITLE	', ExpressLoad.a - set_mark'
;====================================================================================================
;set_mark:      This routine will set the current file position
;
;
;Input:         A = undefined
;               X = displacement low
;               Y = displacement high
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = error if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;               b = k
;
;
;====================================================================================================

		longa	on
		longi	on
set_mark	proc
		with	DirectPage, Globals

		stx	|PSetMark.position
		sty	|PSetMark.position+2
		cpx	local_mark		;lets see if we are already at the mark
		bne	@do_mark
		cpy	local_mark+2
		bne	@do_mark
		clc
		lda	#$0000			;we are already at the mark
		rts				;return with no error
@do_mark
		jsr	lock_handles
		jsl	$e100a8
		dc.w	SET_MARK		;class 0 set mark call
		dc.l	PSetMark
		jsr	unlock_handles
		bcs	@exit

		lda	|PSetMark.position
		sta	local_mark		;reset our mark please
		lda	|PSetMark.position+2
		sta	local_mark+2
@exit
		rts
		endp


		TITLE	', ExpressLoad.a - check_express_seg'
;====================================================================================================
;check_express_seg:     This routine will determine if this is an expressload file
;
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               PathnamePtr             pointer to file's pathname
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;====================================================================================================

		longa	on
		longi	on
check_express_seg proc
		with	DirectPage, Globals

		ldx	#Header
		ldy	#^Header
		lda	#SegmentHeader.SegHeaderSize ;read in segment header
		jsr	read_less_64k		;read in less then 64K
		bcs	@oops
@no_error
		lda	|PRead.transferCount	;is the segment > $47 bytes
		cmp	#SegmentHeader.SegHeaderSize
		beq	@good_size
		sec
@oops
		rts				;return with error flag

@good_size
		lda	Header.DispName		;offset to the name
		clc
		adc	#10			;pass my Name
		clc
		adc	#Header
		sta	temp_ptr
		lda	#^Header
		sta	temp_ptr+2		;point to the name field

		longa	off
		longi	off
		sep	#$30
		lda	[temp_ptr]		;get the length of the name
		cmp	express_name		;is the length the same?
		bne	next_name		;cannot be the same
		tay
@loop
		lda	[temp_ptr],y
		cmp	#'a'			;is this lower case
		bcc	@not_lower
		cmp	#'z'+1
		bcs	@not_lower
		and	#$DF			;convert to Upper case
@not_lower
		cmp	express_name,y
		bne	sorry_not_express
		dey
		bne	@loop			;keep checking
		bra	load_it
;
;Now look for "~ExpressLoad"
;
next_name
		cmp	tilda_name		;now check for "~ExpressLoad"
		bne	sorry_not_express
		tay
@loop
		lda	[temp_ptr],y
		cmp	#'a'			;is this lower case
		bcc	@not_lower
		cmp	#'z'+1
		bcs	@not_lower
		and	#$DF			;convert to Upper case
@not_lower
		cmp	tilda_name,y
		bne	sorry_not_express
		dey
		bne	@loop			;keep checking
load_it
		rep	#$30
		clc
		rts

sorry_not_express
		longa	on
		longi	on
		rep	#$30
		sec
		rts

		endp

		TITLE	', ExpressLoad.a - find_Segment'
;====================================================================================================
;find_Segment:  This routine will search for segments in the HET table
;
;
;Input:         A = Kind to search for
;               X = AND mask for kind field.    If equal after AND the kind was a match
;               Y = AND mask for flags field.   If equal after AND then search succeeds
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               HET_ptr         ;must be setup!
;
;Output:        A = Segment number in file
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = not found
;               b = k
;
;
;====================================================================================================

		longa	on
		longi	on
find_Segment	proc
		with	DirectPage, Globals

		sta	search_kind
		stx	kind_mask
		sty	flags_mask
		ldx	#$0000			;start search from the beginning

@loop

		txa
		asl	a
		asl	a
		asl	a			;times eight for HET
		inc	a
		inc	a			;pass the count word
		tay

		clc
		adc	HET_ptr
		sta	HET_entry_ptr		;build a pointer to the HET entry
		lda	#$0000
		adc	HET_ptr+2
		sta	HET_entry_ptr+2

		clc
		lda	[HET_entry_ptr]		;get the relative offset to segment
		adc	HET_entry_ptr
		sta	seg_header_ptr		;point to the segment
		lda	#$0000
		adc	HET_entry_ptr+2
		sta	seg_header_ptr+2

		iny
		iny
		lda	[HET_ptr],y		;check the flags mask
		and	flags_mask
		bne	@check_next		;sorry

		ldy	#SegHeaderEntry.Kind	;lets check the kind please
		lda	[seg_header_ptr],y
		and	kind_mask
		cmp	search_kind		;is this it
		bne	@check_next		;sorry false alarm

		txa
		inc	a			;convert 0 thru n to 1 thru n
		inc	a			;account for ExpressLoad segment
		sta	loaded_seg_num
		clc
		rts				;return the segment

@check_next
		inx
		txa
		cmp	[HET_ptr]		;are we done
		beq	@loop			;we have one more to do
		bcc	@loop
		rts				;return with the carry set
		endp

		TITLE	', ExpressLoad.a - chk_dynamic_seg'
;====================================================================================================
;chk_dynamic_seg:       See if there are any dynamic segments in the file.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               ExpressHandle           ;handle to the express segment.
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = no seg.
;               b = k
;
;
;====================================================================================================

		longa	on
		longi	on
chk_dynamic_seg	proc
		with	DirectPage, Globals

		jsr	make_HET_ptr		;setup pointer to the HETable

		lda	#dynamic		;Compare to Dynamic BIT
		tax				;And Mask (Only Dynamic Bit is important)
		ldy	#unloaded_state		;only unloaded segments please
		jsr	find_Segment		;do the search
		rts
		endp

		TITLE	', ExpressLoad.a - save_ref_num'
;====================================================================================================
;save_ref_num:  This routine will save the files reference number if the file contains any dynamic
;               segments.  We do this so the file can remain open while the program is running.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               POpen.refNum            ;reference number for the current file.
;               ExpressHandle           ;handle to the express segment.
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;====================================================================================================

		longa	on
		longi	on
save_ref_num	proc
		with	DirectPage, Globals

		lda	|POpen.fileType		;retrieve returned file type
		cmp	#app_type		;only leave the file open if type = Application
		bne	@skip_dynamic_chk	;don't leave the file open

		jsr	chk_dynamic_seg
		bcc	@save_the_num		;There is a dynamic segment.

@skip_dynamic_chk
		clc
		rts
@save_the_num
		ldy	#$0002
		clc
		lda	[ExpressHandle]
		sta	temp_ptr		;temp now points the link field
		lda	[ExpressHandle],y
		sta	temp_ptr+2

		lda	|POpen.refNum		;save the file reference number since the file
		sta	[temp_ptr]		; contains Dynamic Segments.
		rts
		endp

		TITLE	', ExpressLoad.a - get_express_seg'
;====================================================================================================
;get_express_seg:       This routine will locate and read in the ExpressLoad Header
;
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               PathnamePtr             points to pathname
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;====================================================================================================

		longa	on
		longi	on
get_express_seg	proc
		with	DirectPage, Globals

		clc
		lda	Header.DispData
		adc	#$0005			;Add in LConst overhead
		tax
		ldy	#$0000
		jsr	set_mark
		bcs	@error_return
		ldx	Header.Length		;get the size of the disk image please
		stx	|PRead.requestCount
		ldy	Header.Length+2
		sty	|PRead.requestCount+2
;
;Now we need to add in the pathname overhead + mod date field overhead
;
		lda	[PathnamePtr]		;get the length of the pathname
		clc
		adc	#10			;add 2 (for length word) and 8 (for mod date)
		clc
		adc	Header.Length		;add in ExpressLoad segment size
		tax				;save request count low
		lda	#$0000
		adc	Header.Length+2
		tay				;save request count high

		jsr	alloc_ExpLoad		;get enough memory to hold segment
		bcs	@error_return
		stx	ExpressHandle		;handle to Express Segment
		stx	temp_handle
		sty	ExpressHandle+2
		sty	temp_handle+2
		ldy	#$0002
		lda	[temp_handle]		;clear the link field etc.
		sta	base_ptr
		lda	[temp_handle],y
		sta	base_ptr+2

;
;Lets go ahead and add the Express Segment into the User ID table
;
		lda	|USERID			;this is the ID to use
		jsr	add_user_id		;temp_ptr setup by Add_user_id
		bcs	@error_return
		ldy	#ID_Table_Entry.ExpressHandle ;save the Handle to the ExpressSegment
		lda	ExpressHandle
		sta	[temp_ptr],y
		iny
		iny
		lda	ExpressHandle+2
		sta	[temp_ptr],y

		jsr	make_HET_ptr		;temp_ptr will point to the link field (HET_ptr-4)
		jsr	read_wBuf_ptr		;make the read call please
		bcs	@error_return
		ldx	temp_ptr		;pass in pointer to ExpressSegment link field
		ldy	temp_ptr+2
		jsr	store_pathname		;store the pathname in the ExpressLoad segment
		jsr	save_ref_num		;save the files reference number.
		clc
@error_return
		rts

		TITLE	', ExpressLoad.a - store_pathname'
;====================================================================================================
;
;This routine will add in the pathname stored at [PathnamePtr] to the ExpressLoad segment.
;
;Input:         A = undefined
;               X = Points to the ExpressLoad segment link field
;               Y = Points to the ExpressLoad segment link field
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               PathnamePtr     pointer to pathname
;               base_ptr        pointer to ExpressLoad segment
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Uses:
;
;====================================================================================================

store_pathname
		clc
		txa
		adc	|PRead.requestCount	;build a pointer to the Volume Name Buffer
		sta	super_ptr		;another temp pointer
		tya
		adc	|PRead.requestCount+2
		sta	super_ptr+2		;super_ptr now points past the ExpressLoad segment

		ldy	#6			;copy 8 bytes
@store_date_loop
		lda	POpen.modDateTime,y
		sta	[super_ptr],y
		dey
		dey
		bpl	@store_date_loop
		
		lda	super_ptr		;update super_ptr to location for pathname
		clc
		adc	#8
		sta	super_ptr
		bcc	@no_bump
		inc	super_ptr+2
@no_bump
		lda	[PathnamePtr]		;get the length
		sta	[super_ptr]		;and store in destination
		inc	a			;bump by 1 for leading length word
		tay				;into indexor
		sep	#$20			;8-bit mode
		longa	off
@store_name_loop
		lda	[PathnamePtr],y		;copy characters from source
		sta	[super_ptr],y		;to destination
		dey				;continue until back at length word
		bne	@store_name_loop
		rep	#$20			;back to 16-bit accumulator
		longa	on

		ldy	#ExpressloadSeg.PathnameOffset ;index to offset field (relative offset is based
		sec				;from the beginning of the segment)
		lda	super_ptr
		sbc	base_ptr
		sta	[base_ptr],y
		rts

		endp

		TITLE	', ExpressLoad.a - close_dynamic_file'
;====================================================================================================
;close_dynamic_file:    This routine will close the load file if the file is still open
;
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               ExpressHandle
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error if any
;               b = k
;
;
;====================================================================================================

		longa	on
		longi	on
close_dynamic_file proc
		with	DirectPage, Globals
		import	close_load_file

		pei	temp_ptr		;save temp pointer please
		pei	temp_ptr+2

		ldy	#$0002
		clc
		lda	[ExpressHandle]
		sta	temp_ptr		;temp now points the link field
		lda	[ExpressHandle],y
		sta	temp_ptr+2

		lda	[temp_ptr]		;see if there is reference number.
		beq	@exit			;no, just exit with Acc = 0
		sta	|POpen.refNum		;setup the reference number for closing
		lda	#$0000			;zero the reference number in ExpressSegment
		sta	[temp_ptr]

		inc	a			;set the pCount
		sta	PSysPrefs.pCount

		jsr	lock_handles
		jsl	$e100a8			;get the current system preferences
		dc.w	GetSysPrefs
		dc.l	PSysPrefs
;
;Save the current user's preference please
;
		lda	PSysPrefs.preferences
		sta	users_prefs
;
;Now ask the operating system to put up a mount dialog when I ask for a disk
;
		lda	#$C000			;ask the OS to put up the mount dialog
		sta	PSysPrefs.preferences

		jsl	$e100a8
		dc.w	SetSysPrefs		;set the system preference
		dc.l	PSysPrefs
		jsr	unlock_handles

		jsr	close_load_file		;close the file please

		lda	users_prefs
		sta	PSysPrefs.preferences
		jsr	lock_handles
		jsl	$e100a8
		dc.w	SetSysPrefs		;restore the caller's system preference
		dc.l	PSysPrefs
		jsr	unlock_handles
@exit
		plx
		stx	temp_ptr+2
		plx
		stx	temp_ptr
		cmp	#$0001
		rts				;exit with error if any
		endp

		TITLE	', ExpressLoad.a - close_load_file'
;====================================================================================================
;close_load_file:       This routine will close the load file and restore the caller's sys_prefs
;
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error if any
;               b = k
;
;
;====================================================================================================

		longa	on
		longi	on
close_load_file	proc
		with	DirectPage, Globals

		lda	ExpressHandle		;see if there is an ExpressSegment for this file.
		ora	ExpressHandle+2
		beq	@do_close		;There is no Segment associated with the file.

		ldy	#$0002
		clc
		lda	[ExpressHandle]
		sta	temp_ptr		;temp now points the reference number field
		lda	[ExpressHandle],y
		sta	temp_ptr+2

		lda	[temp_ptr]		;see if there is reference number.
		beq	@do_close		;there is no reference number with the segment so
						;go ahead and close the file they want.
		lda	#$0000
		clc
		bra	@do_preference		;No error and I am not going to close the file
						;since the file contains Dynamic Segments I will
						;leave the file open.

@do_close
		lda	POpen.refNum		;is there a valid refNum?
		beq	@do_preference		;no, so don't do a global close

		jsr	lock_handles
		jsl	$e100a8
		dc.w	PD_CLOSE		;GS/OS close command
		dc.l	POpen.refNum
		jsr	unlock_handles
;
;Save the error code and statue from the close call while I restore the user's system preferences
;
@do_preference
		pha
		php
		stz	file_open		;file is now closed
		jsr	reset_local_mark	;our local mark is invalid
		plp
		pla				;restore the close error if any
		rts
		endp

		TITLE	', ExpressLoad.a - open_load_file'
;====================================================================================================
;Open_load_file:        This routine will open the load file and verify the storage type
;
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               pathname pointer must be setup
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;               b = k
;
;
;====================================================================================================

		longa	on
		longi	on
open_load_file	proc
		with	DirectPage, Globals

;
;Now before I open the file let me see If I have a Reference number for it already.
;
		lda	ExpressHandle		;see if there is an ExpressSegment for this file.
		ora	ExpressHandle+2
		beq	@do_open		;There is no Segment associated with the file.
;
;There is an Active Segment so lets see if we have the reference number
;
		ldy	#$0002
		clc
		lda	[ExpressHandle]
		sta	temp_ptr		;temp now points the reference number field
		lda	[ExpressHandle],y
		sta	temp_ptr+2

		lda	[temp_ptr]		;see if there is reference number.
		beq	@do_open		;There is no reference number so lets open the file
		sta	|POpen.refNum		;save the reference number
		lda	#app_type		;setup the file type also
		sta	|POpen.fileType
		brl	@opened			;say that we already opened the file.

@get_pathname


@do_open
		lda	#10			;pCount (return info up to OptionList)
		sta	|POpen.pCount
		lda	#$01			;requestAccess
		sta	|POpen.requestAccess
		sta	PSysPrefs.pCount
		inc	a
		sta	PGetLevel.pCount
		sta	PSetLevel.pCount
		stz	PGetLevel.levelMode
		stz	PSetLevel.levelMode
		stz	POpen.resourceNumber	;resourceNumber (data fork always)

		lda	PathnamePtr		;address of GString
		sta	|POpen.pathname
		lda	PathnamePtr+2		;address of GString
		sta	|POpen.pathname+2	;setup the Open Parameter block

		jsr	lock_handles

		jsl	$e100a8			;get the current system preferences
		dc.w	GetSysPrefs
		dc.l	PSysPrefs
;
;Save the current user's preference please
;
		lda	PSysPrefs.preferences
		sta	users_prefs
;
;Now ask the operating system to put up a mount dialog when I ask for a disk
;
		lda	#$C000			;ask the OS to put up the mount dialog
		sta	PSysPrefs.preferences

		jsl	$e100a8
		dc.w	SetSysPrefs		;set the system preference
		dc.l	PSysPrefs

		jsl	$e100a8			;do a get level call to get the current level
		dc.w	GetLevel
		dc.l	PGetLevel		;get the level

		lda	#my_level
		sta	PSetLevel.level

		jsl	$e100a8
		dc.w	SetLevel		;set the current level
		dc.l	PSetLevel

		jsl	$e100a8			;call GS/OS
		dc.w	Open			;class 1 open call
		dc.l	POpen
		pha
		php

		jsl	$e100a8			;set back to user's setting
		dc.w	SetLevel		;set the current level
		dc.l	PGetLevel		;(just reuse this parm block)

		lda	users_prefs
		sta	PSysPrefs.preferences
		jsl	$e100a8
		dc.w	SetSysPrefs		;restore the caller's system preference
		dc.l	PSysPrefs
		jsr	unlock_handles

		plp
		pla
		bcs	@oops			;return the error to the caller
@opened
		stz	local_mark
		stz	local_mark+2		;we are at the beginning of the file.
		lda	|POpen.refNum		;setup the reference number
		sta	|PRead.fileRefNum
		sta	|PGetMark.markRefNum
		sta	|PSetMark.markRefNum
		lda	#$0001			;indicate that the file is open
		sta	file_open

*** added 18-Aug-92 DAL -- allow file types $003x
		lda	|POpen.fileType
		and	#$FFF0
		cmp	#$0030
		beq	@chk_length
*** end 18-Aug-92

		lda	|POpen.fileType		;get returned filetype
		cmp	#Load_File
		bcc	@no_way
		cmp	#Last_Load_File+1	;max file type that we support
		bcc	@chk_length
		cmp	#$C7			;is it a CDev file?
		bne	@no_way			;nope, can't be a load file
@chk_length
		jsr	lock_handles		;lock the handles around the OS call
		jsl	$E100A8			;Call GS/OS
		dc.w	GET_EOF			; GetEOF
		dc.l	PGetMark
		jsr	unlock_handles
		bcs	@oops
		lda	|PGetMark.position	;is there anything in the file?
		ora	|PGetMark.position+2
		bne	@oops			;actually no error
@no_way
		lda	#not_load_file		;Incompatible file format
		sec
@oops
		rts				;return error
		endp

		TITLE	', ExpressLoad.a - conv_attributes'
;====================================================================================================
;conv_attributes:       This routine will convert the attributes in the segment header to
;                       memory manager attributes
;
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               seg_header_ptr                  ;must be setup
;
;Output:        A = Memory Manager Attributes
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;====================================================================================================

mm_attr_tbl	record

;attr_locked    1 = segment is locked when allocated
;attr_fixed     1 = segment can't move while it is in memory
;attr_no_cross  1 = segment may not cross a bank boundary
;attr_no_spec   1 = segment may not use special memory
;attr_page      1 = segment will be page aligned
;attr_addr      1 = segment will remain at fixed address
;attr_bank      1 = segment must remain in fixed bank

		dc.w	attr_locked+attr_fixed+attr_no_cross
		dc.w	attr_locked+attr_fixed+attr_no_cross+attr_bank
		dc.w	attr_locked+attr_fixed+attr_no_cross+attr_no_spec
		dc.w	attr_locked+attr_fixed+attr_no_cross+attr_no_spec+attr_bank
		dc.w	attr_locked+attr_no_cross
		dc.w	attr_locked+attr_no_cross+attr_bank
		dc.w	attr_locked+attr_no_cross+attr_no_spec
		dc.w	attr_locked+attr_no_cross+attr_no_spec+attr_bank

		dc.w	attr_locked+attr_fixed
		dc.w	attr_locked+attr_fixed+attr_bank
		dc.w	attr_locked+attr_fixed+attr_no_spec
		dc.w	attr_locked+attr_fixed+attr_no_spec+attr_bank
		dc.w	attr_locked
		dc.w	attr_locked+attr_bank
		dc.w	attr_locked+attr_no_spec
		dc.w	attr_locked+attr_no_spec+attr_bank
		endr


		longa	on
		longi	on
conv_attributes	proc
		with	DirectPage, Globals

		ldy	#SegHeaderEntry.Kind	;get the segment kind
		lda	[seg_header_ptr],y
		sta	seg_kind		;save the word for later
		xba				;get the segment attributes
		lsr	a
		lsr	a
		lsr	a			;move abs. bank, special mem, and pos. independent
		and	#$0007			;clear other garbage
		sta	mm_attr			;save temporarily
;
;If the bank size = $10000 then we must set the no_cross bit in the attribute
;
		ldx	#$0008			;default is can cross
		ldy	#SegHeaderEntry.BankSize ;get the bank size please
		lda	[seg_header_ptr],y
		bne	@can_cross		;it must be able to cross
		iny
		iny
		lda	[seg_header_ptr],y	;get the high please
		beq	@can_cross		;we can cross bank boundaries
		ldx	#$0000
;
;now we get the memory manager attributes
;
; We have now handled the following bits:
;
;       (1)     absolute Bank
;       (2)     special Memory
;       (3)     position independent
;       (4)     bank crossing
;
@can_cross
		txa
		ora	mm_attr
		asl	a
		tax
		lda	mm_attr_tbl,x		;get the correct atributes for memory manager
;
;We still need to handle the following things:
;
;       (1)     Purge Level     (3 for dynamics)
;       (2)     Alignment       (page and Bank)
;       (3)     Org             (fixed address)

		ldx	seg_kind
		bpl	@its_static		;this is a static segment
		ora	#purge_level_3		;set the purge level to three for dynamics
@its_static
		sta	mm_attr

		ldx	#attr_page		;default is page aligned
		ldy	#SegHeaderEntry.Align	;offset to the alignment field
		lda	[seg_header_ptr],y
		beq	@align_high
		cmp	#257
		bcc	@set_aligned		;align to a page boundary
		ldx	#attr_bank_align	;force bank alignment
		bra	@set_aligned
@align_high
		iny
		iny
		ldx	#attr_bank_align	;force bank alignment
		lda	[seg_header_ptr],y
		beq	@do_org			;there is no alignment
@set_aligned
		txa
		tsb	mm_attr			;add in the alignment bit
@do_org
		ldy	#SegHeaderEntry.Org	;offset to segment org
		lda	[seg_header_ptr],y
		sta	org_address
		iny
		iny
		lda	[seg_header_ptr],y
		sta	org_address+2
		ora	org_address
		beq	@no_org

		lda	org_address		;if the low byte is non-zero then fixed attr = true
		bne	@do_fixed_addr
		lda	seg_kind		;see if this is a absolute bank segment
		and	#kind_abs_bank
		bne	@no_org			;This is absolute bank but not fixed address

@do_fixed_addr
		lda	#attr_addr		;block must remain at fixed addr
		tsb	mm_attr
@no_org
		lda	seg_kind		;see if this is an absolute Bank only
		tay
		and	#kind_bank_bit		;see if this segment is aligned in any bank
		beq	@not_aligned_in_bank

		lda	#attr_align_in_bank
		tsb	mm_attr			;segment is aligned within the bank

;
;Now we need to handle the direct page / stack segment
;
@not_aligned_in_bank
		tya
		bit	#kind_abs_bank		;absolute bank segment?
		bne	@is_abs			;yes, allow special memory
		and	#kind_only		;clear attributes
		cmp	#dp_seg_type		;DP/Stack segment?
		bne	@no_stack		;no, conditionalize special memory bit

		lda	mm_attr
		ora	#attr_page+attr_bank	;fixed bank and page aligned
;               sta     mm_attr
		rts				;skip special memory flag

@is_abs
		lda	mm_attr			;must return attributes in accumulator
		and	#Åattr_no_spec
;               sta     mm_attr
		rts

@no_stack
		lda	mm_attr
		ldx	spec_mem_flag		;check the special memory flag
		beq	@skip_spec
		ora	#attr_no_spec		;sorry bud no special memory for you
;               sta     mm_attr

@skip_spec
		rts
		endp

		TITLE	', ExpressLoad.a - reset_jmp_tables'
;====================================================================================================
;reset_jmp_tables:      This routine will mark all jump table segments as unloaded for a given
;                       user id
;
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               ExpressHandle           ;must be setup
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;               b = k
;
;
;====================================================================================================

		longa	on
		longi	on
reset_jmp_tables proc
		with	DirectPage, Globals

		lda	[HET_ptr]		;get the number of entries in table
		inc	a			;start from the last segment
		inc	a
		tax
@search_loop
		txa				;pass in the segment number
		beq	@end_reset		;sorry there is no segment by this name
		phx
		jsr	setup_seg_ptrs		;we are now in business
		ldy	#HET_Entry.SegFlags	;see if this is a jump segment
		lda	[HET_entry_ptr],y
		and	#jmp_type
		beq	@not_jump
		jsr	clr_table		;clear this segment
@not_jump
		plx
		dex				;back off by one and try again
		cpx	#$0001
		bne	@search_loop
@end_reset
		clc
		rts
clr_table
		ldy	#HET_Entry.SegHandle
		lda	[HET_entry_ptr],y
		sta	temp_handle
		iny
		iny
		lda	[HET_entry_ptr],y
		sta	temp_handle+2

		ldy	#$0002			;point to the first entry in table
		clc
		lda	[temp_handle]
		adc	#seg_jmp_start
		sta	temp_ptr
		lda	[temp_handle],y
		adc	#$0000
		sta	temp_ptr+2
@loop
		ldy	#JE_FileNum		;see if we are done
		lda	[temp_ptr],y
		beq	@done

		lda	|USERID			;see if this is the user ID
		cmp	[temp_ptr]
		bne	@next_entry

		ldy	#JE_jsl			;index to the JSL instruction
		lda	jump_load_instr		;store the Jump Load Instruction
		sta	[temp_ptr],y
		iny
		iny
		lda	jump_load_instr+2
		sta	[temp_ptr],y
@next_entry
		clc
		lda	temp_ptr
		adc	#jmp_entry_size		;size of one entry
		sta	temp_ptr
		lda	temp_ptr+2
		adc	#$0000
		sta	temp_ptr+2
		bra	@loop
@done
		rts
		endp

		TITLE	', ExpressLoad.a - make_purgable'
;====================================================================================================
;make_purgable: This routine will make segment purgable and unlocked
;
;
;Input:         A = segment_number
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               ExpressHandle           ;must be setup
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;               b = k
;
;
;====================================================================================================

		longa	on
		longi	on
make_purgable	proc
		with	DirectPage, Globals

		sta	search_seg		;segment we need to nuke
		jsr	make_HET_ptr
		lda	search_seg
		jsr	setup_seg_ptrs		;point to the entry please

		ldy	#HET_Entry.SegFlags	;see of it is loaded
		lda	[HET_entry_ptr],y
		bmi	@do_it
@no_seg		lda	#seg_not_found		;seg_not_found
		sec
		rts
@do_it
		ldy	#HET_Entry.SegHandle	;lets get the handle
		lda	[HET_entry_ptr],y
		tax
		iny
		iny
		lda	[HET_entry_ptr],y
		tay
		bne	@have_handle
		txa
		beq	@no_seg
@have_handle
		pea	$0003			;make it purgable
		phy
		phx				;push the handle

		stx	temp_handle
		sty	temp_handle+2		;handle to the segment
		ldy	#$0004			;lets unlock this puppy
		lda	[temp_handle],y
		and	#$7FFF
		sta	[temp_handle],y

		ldy	#HET_Entry.SegFlags	;mark this segment as Purgable
		lda	[HET_entry_ptr],y
		ora	#$0001
		sta	[HET_entry_ptr],y	;segment is now marked purgable

		jsr	reset_jmp_tables	;go and reset the jump tables for this ID

		_SetPurge
		rts				;return any error
		endp

		TITLE	', ExpressLoad.a - purge_all_dyn'
;====================================================================================================
;purge_all_dyn: This routine will mark all dynamic segments as purgable
;
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               ExpressHandle           ;must be setup
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;               b = k
;
;
;====================================================================================================

		longa	on
		longi	on
purge_all_dyn	proc
		with	DirectPage, Globals


		lda	[HET_ptr]		;get the number of entries in table
		inc	a			;start from the last segment
		inc	a
		tax
@search_loop
		txa				;pass in the segment number
		beq	@end_purge		;sorry there is no segment
		phx
		jsr	setup_seg_ptrs		;we are now in business

		ldy	#SegHeaderEntry.Kind	;lets check the kind please
		lda	[seg_header_ptr],y
		bpl	@skip_it		;skip the segment if it is not dynamic

		ldy	#HET_Entry.SegFlags	;mark this segment as Purgable
		lda	[HET_entry_ptr],y
		bpl	@skip_it		;the segment is already unloaded

		lda	1,s			;get the seg number
		jsr	make_purgable
@skip_it
		plx
		dex				;back off by one and try again
		cpx	#$0001
		bne	@search_loop
@end_purge
		clc
		rts
		endp

		TITLE	', ExpressLoad.a - mark_all_purgable'
;====================================================================================================
;mark_all_purgable:     This routine will mark all segments as purgable
;
;
;Input:         A =undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               ExpressHandle           ;must be setup
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;               b = k
;
;
;====================================================================================================

		longa	on
		longi	on
mark_all_purgable proc
		with	DirectPage, Globals


		lda	[HET_ptr]		;get the number of entries in table
		inc	a			;start from the last segment
		inc	a
		tax
@search_loop
		txa				;pass in the segment number
		beq	@end_purge		;sorry there is no segment
		phx
		jsr	setup_seg_ptrs		;we are now in business
		lda	1,s			;get the seg number
		jsr	mark_purged
@skip_it
		plx
		dex				;back off by one and try again
		cpx	#$0001
		bne	@search_loop
@end_purge
;
;                unlock all load segments
;
		lda	|USERID			;push the User ID
		pha
		_HUnlockAll

;
;                purge all other dynamic segments
;
		lda	|USERID			;push the User ID
		pha
		_PurgeAll
;
;                make all static segments purgeable
;
		pea	$0003			;Purge Level
		lda	|USERID			;push the User ID
		pha
		_SetPurgeAll

		clc
		rts


mark_purged
		sta	search_seg		;segment we need to nuke
		jsr	make_HET_ptr
		lda	search_seg
		jsr	setup_seg_ptrs		;point to the entry please

		ldy	#HET_Entry.SegFlags	;see of it is loaded
		lda	[HET_entry_ptr],y
		bmi	@do_it
@no_seg		lda	#seg_not_found		;seg_not_found
		sec
		rts
@do_it
		ldy	#HET_Entry.SegHandle	;lets get the handle
		lda	[HET_entry_ptr],y
		tax
		iny
		iny
		lda	[HET_entry_ptr],y
		tay
		bne	@have_handle
		txa
		beq	@no_seg
@have_handle

		stx	temp_handle
		sty	temp_handle+2		;handle to the segment
		ldy	#$0004			;lets unlock this puppy
		lda	[temp_handle],y
		and	#$7FFF
		sta	[temp_handle],y

		ldy	#HET_Entry.SegFlags	;mark this segment as Purgable
		lda	[HET_entry_ptr],y
		ora	#$0001
		sta	[HET_entry_ptr],y	;segment is now marked purgable

		jsr	reset_jmp_tables	;go and reset the jump tables for this ID
		clc
		rts
		endp

		TITLE	', ExpressLoad.a - lock_statics'
;====================================================================================================
;lock_statics:  This routine will check and see if all the static segments are loaded.  It will
;               also lock all the static segments that it finds.  If any of the static segments
;               have been purged the routine will error out with the carry set
;
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               ExpressHandle           ;must be setup
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error all static segments are not loaded
;               b = k
;
;
;====================================================================================================

		longa	on
		longi	on
lock_statics	proc
		with	DirectPage, Globals

		stz	temp_word		;If zero on exit then there were no static segments

		jsr	make_HET_ptr		;convert ExpressHandle into pointers

		lda	[HET_ptr]		;get the number of entries in table
		inc	a			;start from the last segment
		inc	a
		tax
@search_loop
		txa				;pass in the segment number
		beq	@end_lock		;sorry there is no segment
		phx
		jsr	setup_seg_ptrs		;setup pointer to the Header Entry
		jsr	lock_it
		plx
		bcs	@error_out
		dex				;back off by one and try again
		cpx	#$0001
		bne	@search_loop
@end_lock
		lda	temp_word		;see if we encountered any static segments
		beq	@error_out
		clc
		rts
@error_out
		sec				;sorry there are no static segments or not all
						;segments are still in memory
		rts
lock_it
		ldy	#HET_Entry.SegFlags	;first lets see if this is a static segment
		lda	[HET_entry_ptr],y
		and	#stat_type
		beq	@not_static		;its not static so we do not care about the segment

		sta	temp_word		;this is used as a flag to indicate that there are
						;static segments that can be locked
		ldy	#HET_Entry.SegHandle	;now lets see if the segment has been purged
		lda	[HET_entry_ptr],y
		tax
		iny
		iny
		lda	[HET_entry_ptr],y
		tay
		ora	[HET_entry_ptr]		;check for a null handle
		bne	@handle_OK
@bad_handle
		sec
		rts				;the handle is scewed up
@handle_OK
		stx	temp_handle
		sty	temp_handle+2
		ldy	#$0002
		lda	[temp_handle]
		ora	[temp_handle],y		;valid handle?
		beq	@bad_handle		;nope

		ldy	#$0004			;now lets lock the handle please
		lda	[temp_handle],y
		ora	#$8000			;set the lock bit
		sta	[temp_handle],y

		pea	#$0000			;set the purge level to zero
		pei	temp_handle+2
		pei	temp_handle
		_SetPurge
		rts				;carry is set based on the call.

@not_static
		clc
		rts
		endp

		TITLE	', ExpressLoad.a - lock_segment'
;====================================================================================================
;lock_segment:  This routine will make segment purgable and locked
;
;
;Input:         A = segment_number
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               ExpressHandle           ;must be setup
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;               b = k
;
;
;====================================================================================================

		longa	on
		longi	on
lock_segment	proc
		with	DirectPage, Globals

		sta	search_seg		;segment we need to lock
		jsr	make_HET_ptr
		lda	search_seg		;segment we need to lock
		jsr	setup_seg_ptrs		;point to the entry please

		ldy	#HET_Entry.SegFlags	;see of it is loaded
		lda	[HET_entry_ptr],y
		lsr	a
		bcs	@do_it			;yep the segment is unlocked
		clc
		rts
@do_it
		ldy	#HET_Entry.SegHandle	;lets get the handle
		lda	[HET_entry_ptr],y
		tax
		iny
		iny
		lda	[HET_entry_ptr],y
		tay
		bne	@have_handle
		txa
		beq	@no_seg
@have_handle
		phy
		phx				;push the handle

		stx	temp_handle
		sty	temp_handle+2		;handle to the segment

		ldy	#$0002			;deref the handle to see if it is nill
		lda	[temp_handle]
		ora	[temp_handle],y
		bne	@lock_it

		ldy	#HET_Entry.SegFlags	;mark segment as gone
		lda	#$0000
		sta	[HET_entry_ptr],y
		ldy	#HET_Entry.SegHandle
		sta	[HET_entry_ptr],y
		iny
		iny
		sta	[HET_entry_ptr],y	;zero the handle also

		jsr	clear_handles		;clear local copy of handle
		_DisposeHandle
		stz	temp_handle
		stz	temp_handle+2		;Temp Handle is not valid
@no_seg
		lda	#seg_not_found
		sec
		rts				;indicate segment is gone

@lock_it	ldy	#$0004			;lets lock this puppy
		lda	[temp_handle],y
		ora	#$8000
		sta	[temp_handle],y

		ldy	#HET_Entry.SegFlags	;mark this segment as locked
		lda	[HET_entry_ptr],y
		and	#$FFFE			;clear the Unlocked Bit
		sta	[HET_entry_ptr],y	;segment is now marked purgable
		plx
		ply
		clc				;indicate segment is safely locked down
		rts
		endp

		TITLE	', ExpressLoad.a - load_segment'
;====================================================================================================
;load_segment:  This routine will load a segment into memory
;
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               HET_entry_ptr                   ;must be setup
;               seg_header_ptr  - Pointer to SegHeaderEntry
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;====================================================================================================

		longa	on
		longi	on
load_segment	proc
		with	DirectPage, Globals

		stz	reloc_handle
		stz	reloc_handle+2
		ldy	#SegHeaderEntry.RelocDict_Hndl ;set handle to zero
		lda	#$0000
		sta	[seg_header_ptr],y
		iny
		iny
		sta	[seg_header_ptr],y

		jsr	conv_attributes		;convert the attributes to something useful
;
;On exit conv_attributes sets A to memory manager Attributes
;
		sta	mem_attr

		ldy	#SegHeaderEntry.LConst_Mark+2
		lda	[seg_header_ptr]
		tax
		lda	[seg_header_ptr],y
		tay
		lda	#absolute
		jsr	set_mark
		bcc	@mark1_set
@oops		rts				;return the error
@mark1_set
		ldy	#SegHeaderEntry.LConst_Length ;now lets get the size of the segment
		lda	[seg_header_ptr],y
		sta	|PRead.requestCount
		sta	LConst_Size
		iny
		iny
		lda	[seg_header_ptr],y	;get the high count
		sta	|PRead.requestCount+2
		sta	LConst_Size+2
;
;Now lets see if we already have memory.  We will have memory if we are reloading a restart segment
;
		ldy	#HET_Entry.SegHandle	;see if we already have the memory segment
		lda	[HET_entry_ptr],y
		tax
		iny
		iny
		lda	[HET_entry_ptr],y
		tay
		bne	@skip_alloc		;we already have the memory
		txa
		bne	@skip_alloc		;this must be a restart call

		lda	seg_kind		;what kind of segment is it?
		bit	#kind_abs_bank		;absolute bank segment?
		bne	@just_allocate		;yes, use attributes as is
		and	#kind_only
		cmp	#dp_seg_type		;is it a DP segment?
		beq	@just_allocate		;yes, so we HAVE to allow special memory
		lda	mem_attr		;get the original attributes
		pha				;save 'em
		ora	#attr_no_spec		;set the 'no-special-memory' bit
		sta	mem_attr
@try_again
		ldx	|PRead.requestCount
		ldy	|PRead.requestCount+2	;load the number of bytes to allocate for the segment
		jsr	alloc_LConst_seg	;allocate the memory for the segment
		bcs	@had_error
		pla				;restore original attributes
		sta	mem_attr
		bra	@skip_alloc		;all is fine, continue

@had_error
		plx				;retrieve original attributes
		tay				;save error code
		lda	mem_attr		;get the attributes we just used
		and	#$0008			;did we allow special memory?
		beq	@oops2			;yes, and still had a problem!
		txa				;get the original attributes
		and	#$0008			;did they allow special memory?
		bne	@oops2			;no, don't override their wishes
		stx	mem_attr		;restore original attributes
		phx				;back on stack
		bra	@try_again		;go back and try to allocate again

@oops2
		tya				;restore error code
		bra	@oops			;and exit

@just_allocate
		ldx	|PRead.requestCount
		ldy	|PRead.requestCount+2	;load the number of bytes to allocate for the segment
		jsr	alloc_LConst_seg	;allocate the memory for the segment
		bcs	@oops
@skip_alloc
		stx	temp_handle
		stx	seg_handle
		sty	temp_handle+2
		sty	seg_handle+2

		ldy	#HET_Entry.SegHandle	;update the handle address in HET entry
		txa
		sta	[HET_entry_ptr],y
		lda	temp_handle+2
		iny
		iny
		sta	[HET_entry_ptr],y

		ldy	#$0002			;deref the handle please
		lda	[temp_handle]
		sta	base_ptr		;address of the image
		tax
		lda	[temp_handle],y
		sta	base_ptr+2
		tay

		jsr	read_wBuf_ptr		;read in the segment please
		bcc	@add_seg_offset
		rts
@add_seg_offset
		jsr	add_segment_offset	;add seg offset to base_ptr return value in X&Y

		entry	load_reloc_dict
load_reloc_dict					;go ahead and load the relocation dictionary
;
;Now lets do the relocation dictionary
;
		ldy	#SegHeaderEntry.RelocDict_Mark
		lda	[seg_header_ptr],y
		tax
		iny
		iny
		lda	[seg_header_ptr],y
		tay
		bne	@data_avail
		txa
		beq	@its_loaded
@data_avail
		lda	#absolute
		jsr	set_mark
		bcc	@mark2_set
		rts				;return the error
@mark2_set
		ldy	#SegHeaderEntry.RelocDict_Length ;now lets get the size of the segment
		clc
		lda	[seg_header_ptr],y
		adc	#$0001
		sta	|PRead.requestCount
		tax
		iny
		iny
		lda	[seg_header_ptr],y	;get the high count
		adc	#$0000
		sta	|PRead.requestCount+2
		tay

		lda	|PRead.requestCount	;check for a zero length relocation dictionary
		dec	a
		ora	|PRead.requestCount+2
		beq	@its_loaded

		jsr	alloc_mem		;allocate the memory for the segment
		stx	temp_handle
		stx	reloc_handle
		sty	temp_handle+2
		sty	reloc_handle+2

		ldy	#SegHeaderEntry.RelocDict_Hndl ;save handle to relocation dictionary
		lda	temp_handle
		sta	[seg_header_ptr],y
		iny
		iny
		lda	temp_handle+2
		sta	[seg_header_ptr],y

		ldy	#$0002			;deref the handle please
		lda	[temp_handle]
		tax
		lda	[temp_handle],y
		tay

		jsr	read_wBuf_ptr		;read in the segment please
		bcc	@its_loaded
		rts
@its_loaded
		ldy	#HET_Entry.SegFlags
		lda	[HET_entry_ptr],y
		ora	#$8000			;mark segment loaded
		sta	[HET_entry_ptr],y

		lda	seg_kind
		and	#kind_only		;lets see if this is a jump table segment
		cmp	#jmp_tbl_seg
		bne	@not_jump
		jsr	patch_jmp_tbl		;we need to setup the jump table entries

		ldy	#HET_Entry.SegFlags	;mark segment as a Jump Segment
		lda	[HET_entry_ptr],y
		ora	#jmp_type
		sta	[HET_entry_ptr],y
@not_jump
		lda	seg_kind		;see if the segment is dynamic or static
		bmi	@its_dynamic
		ldy	#HET_Entry.SegFlags	;set the static bit please
		lda	[HET_entry_ptr],y
		ora	#stat_type
		sta	[HET_entry_ptr],y
@its_dynamic
		clc
		rts

		entry	patch_jmp_tbl
patch_jmp_tbl
		clc
		lda	base_ptr		;please point to the first segment entry
		adc	#seg_jmp_start
		sta	temp_ptr
		lda	base_ptr+2
		adc	#$0000
		sta	temp_ptr+2		;point to the first entry
@loop
		ldy	#JE_FileNum		;see if we are done
		lda	[temp_ptr],y
		beq	@done

		lda	|USERID			;save the ID please
		sta	[temp_ptr]

		ldy	#JE_jsl			;index to the JSL instruction
		lda	jump_load_instr		;store the Jump Load Instruction
		sta	[temp_ptr],y
		iny
		iny
		lda	jump_load_instr+2
		sta	[temp_ptr],y
@next_entry
		clc
		lda	temp_ptr
		adc	#jmp_entry_size		;size of one entry
		sta	temp_ptr
		bcc	@loop
		inc	temp_ptr+2
		bra	@loop
@done
		rts

		Entry	add_segment_offset
add_segment_offset
		ldy	#SegHeaderEntry.Entry	;See if this segment is the main segment
		lda	[seg_header_ptr],y
		tax
		iny
		iny
		lda	[seg_header_ptr],y	;get the high word
		tay
		bne	@seg_offset_true	;we must override the first segment
		txa
		bne	@seg_offset_true

		ldx	#$0000
		txy
@seg_offset_true
		clc
		txa				;get the low word of the offset
		adc	base_ptr
		sta	segment_entry
		tya				;get the high word of the segment offset
		adc	base_ptr+2
		sta	segment_entry+2
		rts
		endp

		TITLE	', ExpressLoad.a - find_Seg_name'
;====================================================================================================
;find_seg_name: This routine will locate a segment by name
;
;
;Input:         A = undefined
;               X = low word pointer to name
;               Y = high word pointer to the name
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               ExpressHandle           ;must be setup
;
;Output:        A = segment number if found
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = segment not found
;               b = k
;
;
;====================================================================================================

		longa	on
		longi	on
find_seg_name	proc
		with	DirectPage, Globals

		stx	path_ptr
		sty	path_ptr+2		;segment name pointer

		jsr	make_HET_ptr		;setup pointer to the Header Entry Table
		lda	[HET_ptr]		;get the number of entries in table
		inc	a			;start from the last segment
		inc	a
		tax
@search_loop
		txa				;pass in the segment number
		beq	@not_found		;sorry there is no segment by this name
		phx
		jsr	setup_seg_ptrs		;we are now in business
		jsr	compare_names		;see if this is the one
		bcc	@found_it		;we have located the correct segment
		plx
		dex				;back off by one and try again
		cpx	#$0001
		bne	@search_loop
@not_found
		sec
		rts				;segment is not in ExpressLoad header

@found_it	pla				;return the segment number
		clc
		rts				;return to the caller with the good news

compare_names
		clc
		ldy	#SegHeaderEntry.DispName ;get the displacement
		lda	[seg_header_ptr],y
		adc	#SegHeaderEntry.name_overhead
		clc
		adc	seg_header_ptr
		sta	temp_ptr
		lda	#$0000
		adc	seg_header_ptr+2
		sta	temp_ptr+2		;temp_ptr now points to the segment name (PString)
		ldy	#SegHeaderEntry.LabLen	;offset to label length field in header
		lda	[seg_header_ptr],y	;get the value
		and	#$00ff			;it's only a byte wide
		beq	@is_length		;length is first byte of string (Pascal style)
		ldy	temp_ptr		;else decrement the string pointer
		bne	@only_low
		dec	temp_ptr+2
@only_low
		dec	temp_ptr
		sep	#$20			;8-bit store here
		sta	[temp_ptr]		;store the string length (from lablen)
		rep	#$20

@is_length
		longa	off
		longi	off
		sep	#$30
		lda	[path_ptr]		;get the length of the input name
		tay
		cmp	[temp_ptr]
		bne	@not_it			;the length is not the same

@compare_loop
	if 0 then	;segment name comparison should be case SENSITIVE
		lda	[temp_ptr],y		;get the character
		cmp	#'a'
		bcc	@no_convert
		cmp	#'z'+1
		bcs	@no_convert
		and	#$DF			;convert to upper case
@no_convert
		cmp	[path_ptr],y		;see if the characters are the same
		beq	@check_next

		sta	temp_word		;save for compare
		lda	[path_ptr],y		;get char from callers area
		cmp	#'a'
		bcc	@not_it			;it cannot be the one
		cmp	#'z'+1
		bcs	@not_it
		and	#$DF			;convert to upper case
		cmp	temp_word
		bne	@not_it			;sorry wrong name
	else
		lda	[temp_ptr],y		;get the character
		cmp	[path_ptr],y		;same as supplied?
		bne	@not_it			;nope!
	endif
@check_next
		dey
		bne	@compare_loop		;keep looking
		rep	#$30
		clc
		rts				;We have found the segment!

@not_it
		rep	#$30
		sec
		rts

		endp

		TITLE	', ExpressLoad.a - save_dp_info'
;====================================================================================================
;save_dp_info:  This routine will save the direct page address
;
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;====================================================================================================

		longa	on
		longi	on
save_dp_info	proc
		with	DirectPage, Globals

		lda	segment_entry		;address of the stack direct page
		sta	stack_addr
		lda	LConst_Size		;save the size please
		sta	stack_size
		rts

		endp

		TITLE	', ExpressLoad.a - load_statics'
;====================================================================================================
;load_statics:  This routine will load all static segments
;
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               HET_ptr                 ;must be setup
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;====================================================================================================

		longa	on
		longi	on
load_statics	proc
		with	DirectPage, Globals

		tsx				;save the stack pointer
		stx	stack

		stz	starting_addr
		stz	starting_addr+2
		stz	stack_addr		;there is no stack
		stz	stack_size

static_loop
		lda	#any_kind		;lets find all static segments that are left
		ldx	#static_only		;don't look at other bits
		ldy	#unloaded_state		;skip loaded segments
		jsr	find_Segment		;do the search
		bcc	@another_seg
		clc
@oops		rts				;return with no error

@another_seg
		jsr	load_segment		;load the segment into memory
		bcs	@oops
		ldy	#SegHeaderEntry.Kind	;lets see if this is a Stack/Direct Page segment
		lda	[seg_header_ptr],y	;If it is then save the correct Info.
		and	#kind_only
		cmp	#dp_seg_type		;lets find the stack seg please
		bne	@not_stack

		jsr	save_dp_info		;save stack and Direct page info
		bra	not_first		;even if it is skip it please

@not_stack	cmp	#init_seg_type		;is this an initilization segment?
		beq	run_init_seg		;go ahead and run the segment

		lda	starting_addr
		ora	starting_addr+2
		bne	not_first		;this is not the first segment
;
;If this is the first segment then save it's starting address so we can return it to the caller
;
		lda	segment_entry
		sta	starting_addr		;save the starting address that we will jump to
		lda	segment_entry+2
		sta	starting_addr+2
not_first
		lda	loaded_seg_num		;save the seg number
		pha
		jsr	static_loop
		bcs	fix_stack_abort		;exit if an error occurred
		pla
		jsr	Process_Reloc
		bcs	fix_stack_abort		;mjor problems
		rts

run_init_seg
		lda	loaded_seg_num		;the init segment we just loaded!
		jsr	Process_Reloc
		bcs	fix_stack_abort		;exit with the error

		jsr	lock_handles
		lda	segment_entry		;address of the segment just loaded
		ldy	segment_entry+2
		jsr	Do_Init_Segment
		jsr	unlock_handles
		bra	static_loop		;load any other init segs please

fix_stack_abort
		ldx	stack
		txs				;restore the stack pointer please
		rts				;return the error to the caller
		endp

		TITLE	', ExpressLoad.a - save_start'
;====================================================================================================
;save_start:    This routine will save the starting address and stack info in the user_id_table
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               user_id_ptr
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;               b = k
;
;
;====================================================================================================

		longa	on
		longi	on
save_start	proc
		with	DirectPage, Globals

		ldy	#ID_Table_Entry.Stack_Addr ;save the address of the stack/direct page
		lda	stack_addr
		sta	[user_id_ptr],y
		ldy	#ID_Table_Entry.Stack_Size ;also save the size
		lda	stack_size
		sta	[user_id_ptr],y
		ldy	#ID_Table_Entry.Start_Addr
		lda	starting_addr		;save the starting address of the application
		sta	[user_id_ptr],y
		iny
		iny
		lda	starting_addr+2
		sta	[user_id_ptr],y
		clc
		rts
		entry	restore_start
restore_start

		ldy	#ID_Table_Entry.Stack_Addr ;get the address of the stack/direct page
		lda	[user_id_ptr],y
		sta	stack_addr
		ldy	#ID_Table_Entry.Stack_Size ;get save the size
		lda	[user_id_ptr],y
		sta	stack_size
		ldy	#ID_Table_Entry.Start_Addr
		lda	[user_id_ptr],y
		sta	starting_addr
		iny
		iny
		lda	[user_id_ptr],y
		sta	starting_addr+2
		clc
		rts
		endp

		TITLE	', ExpressLoad.a - reload_restart'
;====================================================================================================
;reload_restart:        This routine will scan the ExpressLoad segment looking for a restart segment
;               If any are found they will be loaded into the same address as they were before.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               ExpressHandle
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;               b = k
;
;
;====================================================================================================

		longa	on
		longi	on
reload_restart	proc
		with	DirectPage, Globals
		jsr	make_HET_ptr

		lda	[HET_ptr]		;get the number of entries in table
		inc	a			;start from the last segment
		inc	a
		tax
@search_loop
		txa				;pass in the segment number
		beq	@end_restarts		;sorry there is no segment
		phx
		sta	loaded_seg_num
		jsr	setup_seg_ptrs		;we are now in business
		jsr	do_restarts
@skip_it
		plx
		bcs	@restart_error
		dex				;back off by one and try again
		cpx	#$0001
		bne	@search_loop
@end_restarts
		clc
@restart_error
		rts

do_restarts
		ldy	#SegHeaderEntry.Kind
		lda	[seg_header_ptr],y	;get the segment kind field to determine if this
		and	#Reload_Segment		;segment needs to be reloaded.
		beq	@not_reload
		jsr	load_restart		;major pain in the butt!
@not_reload
		clc
		rts

load_restart
		lda	file_open		;is the file already open?
		bne	@skip_open		;someone has already opened the file

		jsr	open_load_file		;open the file please
		bcs	@load_exit
@skip_open
		jsr	load_segment		;load the segment into memory
		bcs	@load_exit		;bad news
		lda	loaded_seg_num		;now relocate the segment
		jsr	Process_Reloc		;process the segment
@load_exit
		rts

		endp

		TITLE	', ExpressLoad.a - reload_inits'
;====================================================================================================
;reload_inits:  This routine will scan the ExpressLoad segment looking for init segments.  If it finds
;               an init segment it will pass control to that segment
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;               ExpressHandle
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;               b = k
;
;
;====================================================================================================

		longa	on
		longi	on
reload_inits	proc
		with	DirectPage, Globals
		jsr	make_HET_ptr

		lda	[HET_ptr]		;get the number of entries in table
		inc	a			;start from the last segment
		inc	a
		tax
@search_loop
		txa				;pass in the segment number
		beq	@end_inits		;sorry there is no segment
		phx
		sta	loaded_seg_num
		jsr	setup_seg_ptrs		;we are now in business
		jsr	do_inits
@skip_it
		plx
		bcs	@init_error
		dex				;back off by one and try again
		cpx	#$0001
		bne	@search_loop
@end_inits
		clc
@init_error
		rts

do_inits
		ldy	#SegHeaderEntry.Kind
		lda	[seg_header_ptr],y	;get the segment kind field to determine if this
		and	#kind_only
		cmp	#init_seg_type
		beq	@do_init_type
		clc
		rts
@do_init_type
		ldy	#HET_Entry.SegHandle	;get the handle to the segment
		lda	[HET_entry_ptr],y
		tax
		iny
		iny
		lda	[HET_entry_ptr],y
		tay
		bne	@have_handle
		tax
		bne	@have_handle
		sec
		rts				;return the handle
@have_handle
		stx	temp_handle
		sty	temp_handle+2
		ldy	#$0001
		lda	[temp_handle]
		sta	self_mod+1
		lda	[temp_handle],y
		sta	self_mod+2
		jsr	lock_handles

		tdc				;save my direct page
		pha
		lda	#$0000
		tcd				;set direct register to real zero page
self_mod	jsl	>$000000
		rep	#$30			;restore 16 bit mode
		pla				;restore direct register
		tcd
		phk
		plb
		jsr	unlock_handles
		clc
		rts
		endp

		TITLE	', ExpressLoad.a - zero_handles'
;====================================================================================================
;zero_handles:  Zero handles to indicate that there is no segment
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = ?
;
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;====================================================================================================

		longa	on
		longi	on
zero_handles	proc
		with	DirectPage

;
;We now zero the handles that do not live across calls.  We do this so we can
;lock the handles when we make memory manager calls
;
		stz	ExpressHandle		;zero the handles please
		stz	ExpressHandle+2
		stz	temp_handle		;zero any temp handles hanging around
		stz	temp_handle+2
		stz	reloc_handle		;this handle does not live across calls
		stz	reloc_handle+2
		stz	seg_handle
		stz	seg_handle+2		;this handles do not live across calls
		stz	curr_id_handle
		stz	curr_id_handle+2
		rts
		endp

		TITLE	', ExpressLoad.a - rename_segments'
;====================================================================================================
;rename_segments:       This routine will rename paths for ExpressLoad
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Output:        A = User ID
;               X = undefined
;               Y =undefined
;               P = nvmxdizc
;                   ..000..1 = not found
;               b = k
;
;
;====================================================================================================

		longa	on
		longi	on
rename_segments	proc
		with	DirectPage, Globals

newAddr		EQU	input_parms
oldAddr		EQU	newAddr+4

		ldx	user_id_handle
		ldy	user_id_handle+2
@keep_going
		stx	temp_handle
		sty	temp_handle+2

		ldy	#$0002
		lda	[temp_handle]
		sta	user_id_ptr		;point to the next user_id table
		lda	[temp_handle],y
		sta	user_id_ptr+2

		ldy	#$0004			;lock the handle
		lda	[temp_handle],y
		ora	#$8000
		sta	[temp_handle],y

		jsr	do_rename		;rename all files in this user_id chunk

		ldy	#$0004			;unlock the handle
		lda	[temp_handle],y
		and	#$7FFF
		sta	[temp_handle],y

		ldy	#User_ID_Table.Next+2	;get the next link
		lda	[user_id_ptr]
		tax
		lda	[user_id_ptr],y
		tay
		bne	@keep_going
		txa
		bne	@keep_going
		rts				;we are done

do_rename
		ldy	#id_entry_size		;start at the first available spot
		ldx	#id_entry_cnt		;number of entries in a table
@rename_loop
		lda	[user_id_ptr],y		;get a user_id
		beq	@empty_slot
		phy
		phx
		jsr	check_and_rename	;rename if needed
		plx
		ply
@empty_slot
		clc
		tya
		adc	#id_entry_size
		tay
		dex
		bpl	@rename_loop
		clc
		rts

;====================================================================================================
;Rename the segment if needed
;====================================================================================================
check_and_rename
		Import	MemMove

		iny
		iny				;get the ExpressHandle
		lda	[user_id_ptr],y
		tax
		iny
		iny
		lda	[user_id_ptr],y
		tay
		jsr	merge_path		;build a complete pathname
		jsr	compare_paths		;is this the one?
		bcs	@no_match		;yup

		php				;save partial/full match status
		lda	ExpressHandle		;copy ExpressHandle into generic variable
		sta	Handle
		lda	ExpressHandle+2
		sta	Handle+2

		lda	[newAddr]		;get the length of the new name
		sec
		sbc	[oldAddr]		;calculate difference (may be negative)
		beq	@no_size_change		;if same length, no adjustment necessary
		jsr	adjust_handle_size	;change the size of the Express Segment buffer
		bcs	@no_match		;just punt if we get an error
		ldy	#2			;deref Handle
		lda	[Handle]
		sta	TempZero
		lda	[Handle],y
		sta	TempZero+2

		ldy	#ExpressloadSeg.PathnameOffset
		clc
		lda	[TempZero],y
		adc	TempZero		;offset to position of pathname within segment
		sta	PathnamePtr
		lda	TempZero+2
		adc	#0
		sta	PathnamePtr+2
@no_size_change
		plp				;retrieve complete/partial match status
		jsr	change_pathname		;go make the change
@no_match
		rts				;else we're done with this one

		entry	change_pathname
change_pathname
		php				;save overflow flag
		bvs	@full_match		;complete match, go move the new name in
@partial_match
		lda	[oldAddr]		;get length of matching portion of name
		inc	a			;adjust for leading length word
		inc	a
		clc
		adc	PathnamePtr		;calculate address of remainder of name
		tax
		lda	PathnamePtr+2
		adc	#0
		pha				;put source pointer on stack
		phx

		lda	[newAddr]		;get length of new name
		inc	a			;adjust for leading length word
		inc	a
		clc
		adc	PathnamePtr		;calculate address of destination
		tax
		lda	PathnamePtr+2
		adc	#0
		pha				;put destination pointer on stack
		phx

		lda	[PathnamePtr]		;get length of Express segment name
		sec
		sbc	[oldAddr]		;calculate length of remainder of name
		pha
		jsr	MemMove			;move the unchanging portion of name in

@full_match
		lda	[PathnamePtr]		;get length of original name
		pha				;save on stack for a bit

		pei	newAddr+2		;source pointer
		pei	newAddr
		pei	PathnamePtr+2		;destination address
		pei	PathnamePtr
		lda	[newAddr]
		inc	a			;adjust for leading length word
		inc	a
		pha
		jsr	MemMove			;move the new name in

		pla				;retrieve original length

		plp				;complete or partial match?
		bvs	@done			;complete, so we're done
		sta	[PathnamePtr]		;save here for a bit
		lda	[newAddr]		;calculate difference in size
		sec
		sbc	[oldAddr]
		clc				;calculate new length
		adc	[PathnamePtr]
		sta	[PathnamePtr]		;set new length
@done
		rts				;we're done with this name

;====================================================================================================
;
;This routine will resize the ExpressLoad handle as needed
;
;====================================================================================================
		entry	adjust_handle_size
adjust_handle_size

		pha				;save the amount of change

		lda	#$0000
		pha
		pha
		pei	Handle+2		;push the high word of the handle
		pei	Handle
		_GetHandleSize

		ldx	#0			;init high word of difference
		lda	5,s			;get difference value
		bpl	@enlarge		;if positive, must grow the segment
		dex				;else sign extend the high word
@enlarge
		clc
		adc	1,s			;calculate the new size
		tay				;save here for a second
		txa				;do high word
		adc	3,s
		sta	5,s			;save the value back on the stack
		pla				;remove old size
		pla
		phy				;and put low word of new size on stack

		pei	Handle+2
		pei	Handle
		_HUnlock			;unlock the handle

; new size is already on stack
		pei	Handle+2
		pei	Handle
		_SetHandleSize			;SetHandle size for ExpressLoad segment
		rts

		endp

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Loader/ExpressLoad/ExpressLoad.Data b/IIGS.601.SRC/GS.OS/Loader/ExpressLoad/ExpressLoad.Data
new file mode 100644
index 0000000..e0b2f06
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Loader/ExpressLoad/ExpressLoad.Data
@@ -0,0 +1 @@
+


;====================================================================================================
;Zero page equates used by ExpressLoad
;====================================================================================================

HET_ptr		equ	$00		;points the header entry table
HET_entry_ptr	equ	$04		;points to an entry in the HET
temp_handle	equ	$08		;temp area used for handles
base_ptr	equ	$0C		;points to a segment in memory.
seg_header_ptr	equ	$10		;points to a segment header
reloc_dict_ptr	equ	$14		;points to the relocation dictionary
patch_cnt	equ	$18		;word that contains the patch count
shift_cnt	equ	$1A		;word that contains the shift count
patch_ptr	equ	$1C		;address that we have to patch
patch_value	equ	$20		;value that we patch with
temp_ptr	equ	$24
interseg_addr	equ	$28		;used to patch the segments
super_size	equ	$2C		;size of the super record
cnt_word	equ	$2E
super_ptr	equ	$30		;used to relocate a super record
temp_word	equ	$34
segment_base	equ	$36		;base address of other segment
user_id_handle	equ	$3A		;handle to User ID list
user_id_ptr	equ	$3E
temp_long	equ	$42
path_ptr	equ	$46		;points to a GString output buffer
vol_ptr		equ	$4A		;points to 
ExpressHandle	equ	$4E		;Handle to ExpressHeader
jmp_tbl_ptr	equ	$52		;pointer to the Jump_tbale Entry
reloc_handle	equ	$56		;handle to the relocation dictionary
seg_handle	equ	$5A		;handle to the segment in memory
curr_id_handle	equ	$5E		;Handle to ID list
segment_entry	equ	$62		;entry point inside the segment
dir_page_size	equ	$68		;Size MUST be EVEN EVEN EVEN EVEN EVEN EVEN 

		IF	debug_on=0	GOTO	.nobug
Rom_debug	equ	$FF0000
.nobug

;====================================================================================================
;Error equates
;====================================================================================================
seg_not_found	equ	$1101
not_load_file	equ	$1104
illegal_record	equ	$110A

User_id_err	equ	$11F0		;I could not find a user_id when I should have
incompatible_err equ	$11F1		;The file is not expressload compatible
ExpressSegLost	equ	$11F2		;The ExpressSeg Handle is lost

;====================================================================================================
;General equates
;====================================================================================================
jmp_tbl_seg	equ	$02
seg_jmp_start	equ	08
jmp_entry_size	equ	14

my_level	equ	$70		;use to set the system level
keep_id		equ	$0001		;Tell Delete_User_ID to keep the ID around after deleting memory
nuke_id		equ	$0000		;delete memory and the user_id

os_chain_vector	equ	$e100ac

app_type	equ	$00B3
load_type	equ	$00B5

absolute	equ	$0000
forward		equ	$0001
backward	equ	$0002

Data_Kind	equ	$0001			;and it is a data segment
Dynamic		equ	$8000			;It is also Dynamic
kind_only	equ	$001F			;clear all but the segment kind
init_seg_type	equ	$10
dp_seg_type	equ	$12
static_code_type equ	$0000
static_and_kind	equ	$801F
static_type	equ	$00
static_only	equ	$8000
all_types	equ	00
any_kind	equ	00
any_state	equ	00
unloaded_state	equ	$8000
Reload_Segment	equ	$0400			;indicates that this segment must be reloaded at restart
gs_os_start	equ	$9A00			;start of GS/OS in bank zero
kind_bank_bit	equ	$0100			;bank bit
kind_abs_bank	equ	$0800
GSOS_ID		equ	$3102			;ID of operating system


locked_no_cross	equ	$8010
locked_only	equ	$8000

seperator	equ	$3A			;seperator is a colon
max_vol		equ	40			;maximum volume size
app_type_id	equ	$1000			;used to allocate a new User_ID

purge_all	equ	$0000			;and mask used to compare flags
purge_dynamics	equ	$0004			;Bit 2 = static bit.  If 1 then static

;====================================================================================================
;Equates used for the User_ID_table
;====================================================================================================
id_tbl_size	equ	2048			;a 2K table. Value must be an even positive number!
id_entry_size	equ	16
id_entry_cnt	equ	126			;number of entries in one table
id_offset	equ	$00
id_expHandle	equ	$02
id_stack_addr	equ	$06			;address of the stack
id_stack_size	equ	$08			;size of the stack
id_start_addr	equ	$0A			;address of the start segment
;====================================================================================================
;offset in the segment header
;====================================================================================================

extra_header	equ	16			;additinal info added to expressload header

seg_size_offset	equ	$0004
reloc_mark_offset equ	$0008
reloc_size_offset equ	$000C
lablen_offset	equ	$0011
bank_size_offset equ	$14
seg_kind_offset	equ	$18
Reloc_dict_Offset equ	$2E			;Offset the relocation dictionary handle in seg header in HET
org_offset	equ	$1C
align_offset	equ	$20
seg_entry_offset equ	$28			;offset to the segment entry field
seg_vol_offset	equ	$06			;offset to vol_name offset
seg_name_disp	equ	$2C			;offset to the displacement field 
name_overhead	equ	$0E			;14 bytes to the beginning of the segment name
handle_offset	equ	$0004			;offset in HET entry
flags_offset	equ	$0002			;offset in HET entry
jmp_type	equ	$0002			;indicates a jump table segment
stat_type	equ	$0004			;indicates a static segment

;====================================================================================================
;Memory Manager equates
;====================================================================================================

Attr_Locked	equ	$8000			;memory segment is locked
Attr_fixed	equ	$4000			;block can't move in memory
purge_level_3	equ	$0300			;set purge level to three for dynamics only
attr_align_in_bank equ	$0040			;Align to address withing the bank
attr_bank_align	equ	$0020			;force bank alignment
attr_no_cross	equ	$0010			;cannot cross any bank
attr_no_spec	equ	$0008			;no special memory
attr_page	equ	$0004			;page aligned segment
attr_addr	equ	$0002			;block must remain at fixed addr
attr_bank	equ	$0001			;fixed bank address

;====================================================================================================
;equates used by function calls
;====================================================================================================

func_9_param_cnt equ	$0009*2			;18 bytes on stack
func_9_spec_mem	equ	$0000			;offset to special memory flag in paramter table
func_9_path_addr equ	$0002			;offset to the pathname pointer
func_9_user_id	equ	$0006			;offset to the User ID field
func_9_err_cnt	equ	$000A			;Number of bytes call normally returns

func_20_param_cnt equ	$000A*2			;20 bytes on stack
func_20_path_flag equ	$0000			;offset to the pathname type flag 1 = GString
func_20_spec_mem  equ	$0002			;offset to special memory flag in paramter table
func_20_path_addr equ	$0004			;offset to the pathname pointer
func_20_user_id	  equ	$0008			;offset to the User ID field
func_20_err_cnt	equ	$000A			;Number of bytes call normally returns

func_22_param_cnt equ	$0004*2			;8 bytes on stack
func_22_file_num  equ	$0000
func_22_user_id	  equ	$0002			;offset to the User ID field
func_22_err_cnt	equ	$0004			;Number of bytes call normally returns

func_0D_param_cnt equ	$000A*2			;20 bytes on stack
func_0D_seg_name  equ	$0000			;offset to load seg name pointer
func_0D_file_name equ	$0004			;offset to the load file name
func_0D_user_id	  equ	$0008			;offset to the user id
func_0D_err_cnt	equ	$000A			;Number of bytes call normally returns

func_11_param_cnt equ	$0004*2			;8 bytes on stack
func_11_file_num  equ	$0000
func_11_user_id	  equ	$0002			;offset to the User ID field
func_11_err_cnt	equ	$0004			;Number of bytes call normally returns

func_10_param_cnt equ	$0003*2			;6 bytes on stack
func_10_path_addr equ	$0000			;offset to the pathname pointer

func_21_param_cnt equ	$0003*2			;6 bytes on stack
func_21_path_addr equ	$0000			;offset to the pathname pointer

func_0B_param_cnt equ	$0005*2			;10 bytes on stack
func_0B_seg_num   equ	$0000			;offset to the segment number
func_0b_file_num  equ	$0002			;offset to the file number
func_0B_user_id	  equ	$0004
func_0B_err_cnt	equ	$0004			;Number of bytes call normally returns

func_0C_param_cnt equ	$0003*2			;6 bytes on stack
func_0C_seg_num   equ	$0000			;offset to the segment number
func_0C_file_num  equ	$0002			;offset to the file number
func_0C_user_id	  equ	$0004
func_0C_err_cnt	  equ	$0000

func_0E_param_cnt equ	$0005*2			;10 bytes on stack
func_0E_seg_addr  equ 	$0000			;address in a segment

func_12_param_cnt equ	$0003*2			;6 bytes on stack
func_12_quit_flag equ 	$0000			;quit flag
func_12_user_id	  equ	$0002			;ID
func_12_err_cnt	equ	$0002			;Number of bytes call normally returns

func_0A_param_cnt equ	$0006*2			;12 bytes on stack
func_0A_user_id	  equ	$0000			;ID
func_0A_err_cnt	equ	$000A			;Number of bytes call normally returns

func_13_param_cnt equ	$0004*2			;8 bytes on stack
func_13_new_ptr  equ	$0000			;original pathname
func_13_orig_ptr equ	$0004			;new pathname

;====================================================================================================
;Local Data used by ExpressLoad.
;====================================================================================================
data		Record
reloc_seg	dc.w	00		;used by 'Process_Reloc'.  Segment number to relocate
end_found	dc.w	00		;indicates the end of the relocation dictionary
free_mem_size	dc.l	00
AppID		dc.w	00		;ID assigned to the Application
ExpLoad_ID	dc.w	00		;ID assigned to ExpressLoader
loaded_seg_num	dc.w	00		;segment just loaded
search_kind	dc.w	00		;used by find segment
kind_mask	dc.w	00		;AND mask used by find segment
flags_mask	dc.w	00		;flags used by find segment
ExpressSeg_pos	dc.w	01
alloc_attr	dc.w	00		;attributes used to allocate memory
mem_attr	dc.w	$8010		;locked + my not cross bank boundary
starting_addr	dc.l	00
stack_addr	dc.w	00
stack_size	dc.w	00
user_id		dc.w	00
stack		dc.w	00		;holds stack pointer

seg_kind	dc.w	00		;used by conv_attributes
mm_attr		dc.w	00		;attribute passed to memory manager
search_addr	dc.l	00		;used by allocate lconst routine
org_address	dc.l	00
my_dir_page	dc.w	00		;my direct page
LConst_Size	dc.l	00		;size of the segment
load_state	dc.w	00

file_open	dc.w	00		;flag used to indicate that the load file is open

return_addr	ds.b	03		;return address to caller
return_addr2	dc.l	00

orig_a		dc.w	00
orig_x		dc.w	00
orig_y		dc.w	00

path_size	dc.w	00		;total size of the pathname
vol_size	dc.w	00		;length of the volume name from expand path call
partial_size	dc.w	00		;length of the partial pathname
partial_offset	dc.w	00		;offset to the beginning of the partial pathname

spec_mem_flag	dc.w	00		;special memory flag used by Initial load
save_a		dc.w	00
save_x		dc.w	00
save_y		dc.w	00
apps_dir_page	dc.w	00

search_seg	dc.w	00
jmp_patch_value	dc.l	00

data_bank	dc.w	00		;holds the data bank for the tool call

param_blk	ds.b	30		;30 bytes for input parameters from caller

dp_handle	dc.l	00		;saves the handle to our direct page
added_flag	dc.w	$00		;handles the OS switch
id_flag		dc.w	$00		;used by delete_user_id.

hold_long	dc.l	00		;used by unload segment
express_size	dc.l	00		;size of the ExpressLoad segment
SubStr_size	dc.w	00		;offset into the substring
partial_match	dc.w	00		;used by rename
		endr

dir_page_buffer	record
		ds.b	dir_page_size+2	;holds my direct page
		endr

preference_list	record
		dc.w	$01		;PCount for the call
sys_prefs	dc.w	$00

users_prefs	dc.w	$00
		endr

level_list	record			;used to get and set the level
		dc.w	$0002		;PCount
curr_level	dc.w	$0000		;level to set
mode		dc.w	$0000		;level mode
hold_level	dc.w	$0000		;holds last level
		endr

eof_list	record
		dc.w	2		;pCount
ref_num		dc.w	0
eof		dc.l	0
		endr
		
;
;Expand path output name buffer
;
Expanded_name	record
		dc.w	256			;buffer is 256 bytes long
size		dc.w	00			;result size
name		ds.b	1			;space for the name is in the Graphic Data area
my_string
	dc.b	$FF,$FF,$FF,$FF,$FF,$FF,$00,$00,$3F,$FF,$FF,$FF,$FF,$FF,$FF,$FF
	dc.b	$FF,$FF,$FF,$FF,$FF,$F0,$3F,$FF,$FF,$FF,$FF,$FF,$FF,$FC,$0F,$FF
line_length	equ	*-my_string

	dc.b	$FF,$F4,$44,$44,$44,$FF,$03,$FF,$F0,$30,$30,$00,$3C,$00,$0F,$00
	dc.b	$0F,$C0,$00,$F0,$00,$30,$3F,$FF,$C0,$03,$F0,$00,$FC,$00,$0F,$FF

	dc.b	$FF,$FF,$FF,$FF,$FF,$FF,$00,$00,$3C,$00,$F0,$3C,$0C,$03,$FC,$0F
	dc.b	$03,$03,$FF,$C0,$FF,$F0,$3F,$FF,$03,$C0,$FF,$F0,$30,$30,$0F,$FF

	dc.b	$44,$44,$44,$44,$4F,$FC,$0F,$FF,$FC,$0F,$C0,$F0,$30,$3F,$F0,$00
	dc.b	$0F,$00,$0F,$C0,$03,$C0,$FF,$FC,$0F,$03,$C0,$00,$C0,$F0,$3F,$FF

	dc.b	$FF,$FF,$FF,$FF,$FF,$FC,$0F,$FF,$F0,$03,$C0,$30,$30,$3F,$F0,$3F
	dc.b	$FF,$FF,$03,$FF,$C0,$C0,$FF,$FC,$0F,$03,$03,$C0,$C0,$C0,$3F,$FF

	dc.b	$FF,$FF,$44,$44,$44,$FC,$00,$00,$C0,$C0,$C0,$00,$F0,$3F,$FC,$00
	dc.b	$0C,$00,$0F,$00,$03,$C0,$00,$0F,$00,$0F,$C0,$00,$F0,$00,$3F,$FF

	dc.b	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$C0,$FF,$FF,$FF,$FF,$FF
	dc.b	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF

	dc.b	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$C0,$FF,$FF,$FF,$FF,$FF
	dc.b	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF

		endr

full_blown	record
		string	asis
		dc.w	256
size		dc.w	00
name		ds.b	256-4
		endr
		
open_list	record
		dc.w	$06			;PCount for the Open call
ref_num		dc.w	00			;returned by the open call
path_ptr	dc.l	00
		dc.w	$01			;open for read only
		dc.w	$00			;ask for the data fork please
;
;Returned Info about file
;
access		dc.w	00			;file access
file_type	dc.w	00			;This is what I want
		endr
;
;Expand path parameter block
;
expand		record
		dc.w	$0003			;PCount
src		dc.l	00			;Pointer to the Source pathname
dest		dc.l	Expanded_name		;result name
		dc.w	$8000			;flags (UpperCase bit = true)
		endr
		

header_buf	record
size		dc.l	00			;size of my segment
		dc.l	00			;number of zeros to add to the segment
image		dc.l	00			;Memory Image Size
		dc.b	00			;Reserved
		dc.b	00			;Label Length
		dc.b	04			;number length
		dc.b	02			;say that we are version two of OMF
		dc.l	$10000			;Bank size = 64K
kind		dc.w	Data_Kind+Dynamic
		dc.w	$0000			;reserved
		dc.l	00			;org = 0
		dc.l	00			;no alignment
		dc.b	00			;number sex LSB first
		dc.b	00			;reserved
seg_num		dc.w	01			;segment number for this segment (first or Last)
		dc.l	00			;entry to the segment. (No entry for data)
name_disp	dc.w	$2C			;displacement to load name
code_disp	dc.w	$000
		string	asis
		dc.b	'Rob Turner'
		string	Pascal			;no lets name the segment
		dc.b	'ExpressLoad'
		ds.b	256
		endr

Express_name	record
		string	pascal
		dc.b	'EXPRESSLOAD'
		string	asis
		endr

Tilda_name	record
		string	pascal
		dc.b	'~EXPRESSLOAD'
		string	asis
		endr
		
read_list	record
		dc.w	$0004			;PCount 
ref_num		dc.w	00
ptr		dc.l	00			;buffer to read into
cnt		dc.l	00			;number of bytes to read
ret_cnt		dc.l	00			;number of bytes read
		endr

local_mark	record
		dc.l	00			;our current mark in the file
		endr
		
get_mark_list	record
		dc.w	$02
ref_num		dc.w	00
pos		dc.l	000
		endr
		
set_mark_list	record
		dc.w	$03
ref_num		dc.w	00
base		dc.w	00
disp		dc.l	00
		endr
		
jump_load_instr	record
		import	Jump_Load
		dc.b	$22			;JSL
		dc.l	Jump_load		;address of Jump Load routine
		endr
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Loader/ExpressLoad/ExpressLoad.Macros b/IIGS.601.SRC/GS.OS/Loader/ExpressLoad/ExpressLoad.Macros
new file mode 100644
index 0000000..fde5a34
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Loader/ExpressLoad/ExpressLoad.Macros
@@ -0,0 +1 @@
+		MACRO
&lab ErrorDeath &text
		LCLC &CHAR
&char setc &setting('STRING')
 		STRING AsIS
&lab bcc 	@end
 		pea 0
 		pea 0
 		pha
 		ldx #$2A0B
 		jsl $E10000
 		pla
 		sta >@y
 		pla
 		sta >@y+2
 		pea @x>>16
 		pea @x
 		ldx #$200C
 		jsl $E10000
 		brk $F0
@x 		dc.B &text
 		dc.B ' Error was $'
@y 		ds.B 4
 		dc.B 13,10,0
@end 
 		STRING &char
 		mend
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Loader/ExpressLoad/ExpressLoad.src b/IIGS.601.SRC/GS.OS/Loader/ExpressLoad/ExpressLoad.src
new file mode 100644
index 0000000..c7842e0
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Loader/ExpressLoad/ExpressLoad.src
@@ -0,0 +1 @@
+		print	nomdir
		pagesize 70

debug_on	equ	$00	;$01 = debug code installed

		entry	draw_express

;==================================================================================================
;ExpressLoad:	This program is designed to load and relocate GS applications very fast.
;		It is intended to compliment the System Loader; not replace it.
;
;Create:	Sept. 30, 1988
;Modified:	Apr. 23, 1990
;Author:	Rob Turner
;
;Copyright Apple Computer Inc. 1988,1989,1990 All Rights Reserved
;
;Before you get started grab the ERS which has pictures of the data structures.
;
;
;Version 1.0
;		First version to go on a system disk.
;
;Version 1.0 a01 01/10/89 by Rob Turner
;
;		Fixed a bug in the initial load routine.  The routine was not storing
;		the special_memory flag.  I also added the ability to load the stack
;		and direct page segments regardless of the attr_no_spec flag.
;	
;Version 1.0 a02 01/11/89 by Rob Turner
;
;		Speeded up reloading of restart segmments by leaving the file open
;		while processing each segment.  I also reversered the order of loading
;		restart and init segments.
;
;Version 1.0 a03 01/12/89 by Rob Turner
;
;		Changed all the main routines to return to the caller with an error
;		if an error occurs after I have determined that the file is an ExpressLoad file.
;
;Version 1.0 a04 01/16/89 by Rob Turner
;
;		Major changes have occurred.  ExpressLoad now leaves a load file open if the
;		file contains any Dynamic Segments.  The file will be closed when the shutdown
;		down call is made.  The ProcessSegment routine was optimized, and in doing so I 
;		changed the data bank register to point to the relocation dicationary and NOT
;		my program bank. This means that I must be very careful accessing data in my bank.
;		I seperated the code that has the data bank register set to the relocation
;		dictionary.  The code is now in "ProcRelocDataBankChanged"
;
;Version 1.0 a05 01/17/89 by Rob Turner
;
;		ExpressLoad now gets called directly instead of using the notification queue.
;		Cheryl (GQuit) will call me with three different types of events.
;		(0) = Startup. (4) = Switch P8 to GS/OS (2) = Switch GS/OS to P8
;
;Version 1.0 a06 01/17/89 by Rob Turner
;
;		Fixed a bug in Restart.  If the app could not be restarted I was using ExpressHandle
;		when it was not valid.  This caused the open routine to fail since I thing that
;		there is a valid reference number.
;
;Version 1.0 a07 01/18/89 by Rob Turner
;
;		Fixed a bug in restart.  I was deleting a user_id then using it to allocate memory.
;
;Version 1.0 a08 01/22/89 by Rob Turner
;
;		Changed the initial load routine.  I now load the static segments in the order
;		they appear in the file instead of loading the stack segment first.  I also
;		maintain my own file mark so I do not have to make extra GS/OS calls.
;
;Version 1.0 a09 01/25/89 by Rob Turner
;
;		Changed the load static routine so it will not use the stack as the first
;		code segment.
;
;Version 1.0 a0A 02/20/89 by Rob Turner
;
;		I now unlock the ExpressHandle Segment on Exit. 
;
;Version 1.0 a0B 02/21/89 by Rob Turner
;
;		Fixed a bug in Unload2 routine.  If the address passed in is in a jump table
;		segment the Unload routine has to do a level of indirection to get the
;		real address to unload.  The old routine was just unloading the jump table segment
;		without doing the indirection.
;
;Version 1.0 a0C 02/21/89 by Rob Turner
;
;		Fixed a bug in Unload2 routine.  The return parameters were not correct if the
;		segment was not loaded.
;
;Version 1.0 a0D 02/23/89 by Rob Turner
;
;		Fixed a bug in Load_seg_by_num.  The routine was not converting the 
;		original segment number to the new segment number.
;
;Version 1.0 a0E 02/23/89 by Rob Turner
;
;		Changed the inital load routines so they only leave the load file open
;		if the file has a type of Application and contain dynamic segments.
;
;Version 1.0 a0F 02/27/89 by Rob Turner
;
;		Added ExpressLoad to boot screen.
;
;Version 1.0 a10 03/01/89 by Rob Turner
;
;		I now unlock the 2K User_ID_Table.  I was leaving the handle locked.
;
;Version 1.0 b01 03/06/89 by Rob Turner
;
;		Fixed a bug in Unload_Seg1.  The routine was not converting the 
;		original segment number to the new segment number.
;
;Version 1.0 b02 03/06/89 by Rob Turner
;
;		Changed the startup routine to allocate my direct page with my ID
;		instead of a GS/OS ID.
;
;Version 1.0 b03 03/08/89 by Rob Turner
;
;		Fixed the locked handle bug.  I was saving a handles attributes even
;		though the handle was not valid.  I then allocated the handle and
;		slammed the old attributes into it.
;
;Version 1.0 b04 03/21/89 by Rob Turner
;
;		Init segments are now ran in the order that they appear in the file.
;
;Version 1.0 b05 03/27/89 by Rob Turner
;
;		Added conditional to ExpressLoad boot screen.  If the user holds down
;		the Apple and Option key during boot then the ExpressLoad logo will be
;		drawn. I will also draw the logo if the Aux type for ExpressLoad is set
;		to $5254 i.e. 'RT'.
;
;Version 1.0 b06 03/31/89 by Rob Turner
;
;		Fixed a bug in LoadSegByName and UnloadSeg.  The routines were not returning
;		the correct segment numbers when a user made the call.
;
;Version 1.0 b07 04/4/89 by Rob Turner
;
;		Fixed a bug in UnloadSeg1.  I was not purging all dynamic segments if the
;		segment number was zero.
;
;Version 1.0 b08 04/6/89 by Rob Turner
;
;		Fixed several bugs in allocating special memory segments.  These include bank 
;		aligned and fixed address within a bank.
;
;Version 1.0 b09 04/24/89 by Rob Turner
;
;		Fixed two bugs.  The first bug occured when the user made a load_seg_by_name call.
;		The call would return the address of the last loaded segment.  Therefore, it was
;		possible to get the wrong address returned.  The second bug involved returned
;		segment numbers.  ExpressLoad was not converting output segment number when
;		returning them to the caller.  If the caller did a load_seg_by_name, then used the
;		returned segment number to issue a load_seg_by_num call it would fail.
;
;Version 1.0 b0A 04/24/89 by Rob Turner
;
;		Fixed a bug in all routines that have a user id as input.  ExpressLoad
;		could fail if the user_id was zero (indicating that ExpressLoad should
;		use the current ID).  If the file was not loaded by ExpressLoad the call
;		would fail.
;
;Version 1.0 b0B 04/26/89 by Rob Turner
;
;		Removed segment type check when loading the ExpressLoad segment.
;		I now look for the name only.  The name can be either, "ExpressLoad"
;		or "~ExpressLoad".
;
;Version 1.0 b0C 05/09/89 by Rob Turner
;
;		Changed "Check_express_seg" to check for a read failure.
;
;Version 1.0 b0D 05/12/89 by Rob Turner
;
;		ExpressLoad now supports renaming of loaded files.  The loader call
;		number is $1311.
;
;Version 1.0 b0E 05/18/89 by Rob Turner
;
;		ExpressLoad now supports renaming of ExpressLoad pathnames. ExpressLoad was
;		only renaming pathnames that contained the Application.
;
;Version 1.0 b0F 05/19/89 by Rob Turner
;
;		ExpressLoad now supports a relocation dictionary of zero length.  LinkIIGS
;		is creating a file mark for a zero length relocation dictionary, so I had
;		to modify the loader to handle it.
;
;Version 1.0 b10 05/23/89 by Rob Turner
;
;		ExpressLoad now returns "seg_not_found" if the caller passes in the
;		wrong pathname.
;
;Version 1.0 b11 05/24/89 by Rob Turner
;
;		ExpressLoad was using a buffer that was too small by two bytes.
;
;Version 1.0 b12 06/01/89 by Rob Turner
;
;		Added calls to lock and unlock handles around OS calls. I also
;		zero local handles when Dispose_handle is called.
;
;Version 1.02    06/11/89 by Rob Turner
;
;		Fixed a bug in Restart.  Restart could fail if the Application
;		was launched off another volume (with a shorter name) and later,
;		could not be restarted due to segments being purged.  The problem
;		was, merge_path was not setting up partial_offset, this caused
;		the pathname to be screwed up in the ExpressSegment on the rebuild.
;
;Version 1.03    06/14/89 by Rob Turner
;
;		Fixed a non-derefed pointer bug.  One of the handles was left out
;		of the Lock_Handles routine, causing bad things to happen under
;		scrambler.
;
;Version 1.04    06/16/89 by Rob Turner
;
;		Fixed a bug when calling INIT segments.  I was calling lock_handles
;		when the direct register was already set to $0000 for the init segment.
;		This caused many problems. I also, now restore the bank register when
;		returning from the init segment.
;
;Version 1.05	04/23/90 by Greg Branche
;
;		Unloading a dynamic segment by address is not working reliably.  When the address
;		of a procedure within a dynamic segment is passed which hasn't been used yet,
;		ExpressLoad looks at it's jump table segment and assumes that, since the referenced
;		entry hasn't been patched yet, it can't have been loaded yet.   This is being
;		corrected by having ExpressLoad always attempt to mark the dynamic segment as
;		purgeable, whether it's in memory or not.  Since it ignores a "Segment Not Found"
;		error returned by Make_Purgeable, this shouldn't cause any problems.  Procedure
;		affected = L_unload2.  Change marked by {gab - 04/23/90}
;
;Version 1.06	05/07/91 by Greg Branche
;		InitialLoad was trashing the first byte of the input pathname if it
;		  encountered a Bad Path Syntax error from GS/OS.  Fixed.
;		Restart would fail to restore the system preferences if it failed.  Fixed.
;		When loading Initalization segments, Expressload now tries to stay out of
;		  special memory.  Only if we can't get non-special memory for the segment
;		  will special memory be used, unless the segment attributes prevent it.
;		During Restart, special memory is not used unless there isn't enough
;		  non-special memory available.
;		During InitialLoad, Expressload now checks the EOF of the load file and
;		  returns a NotLoadFile error if the EOF is 0.
;		When loading a dynamic segment, Expressload no longer ORA's a #$1100 into
;		  any error code returned from other parts of the system prior to going
;		  to system death.
;
;  06/05/91	Extra PHA instruction was left in the error_routine subroutine, which was
;		  messing up the message displayed by the SysFailMgr.
;		alloc_ExpLoad is returning the application userID as an error code when
;		  an error occurs.  This has been fixed.
;		close_load_file no longer restores the system preferences, since
;		  open_load_file already does that after the file is opened up.
;		l_user_shutdown now locks the user_id_tbl memory block containing the
;		  user ID entry for the load file being shutdown prior to deleting the
;		  entry from the table.  The block is then unlocked again prior to exit.
;
;  06/17/91	Added logic to set and restore the proper GS/OS system preferences while
;		  loading a dynamic segment.
;
;  06/21/91	Fixed load_segment so that non-special memory is ALWAYS requested first.
;		  Only if we can't get non-special memory for the segment, AND the segment
;		  attributes allow it will we try again, allowing special memory to be
;		  used.
;		Fixed alloc_lconst_seg so that my handles are not locked and unlocked
;		  everytime a memory manager call is made in the loop that tries to
;		  allocate a bank-aligned block of memory.
;		Fixed alloc_lconst_seg so that when the bank number to allocate reaches
;		  $80, the subroutine exits with a Memory Full error (used to loop
;		  until the bank value reached $FF.)
;
;  07/09/91	Added file type $C7 (CDev) to list of allowable load files.
;		Fixed InitialLoad2 so that it disposes of any memory used by a partially
;		  loaded file when an error occurs.
;		Fixed handling of no-special memory allocation so that fixed-bank segments
;		  are allowed to use special memory.
;		Changed allocation of bank-aligned segments so that it should be quicker
;		  and memory won't get purged quite so often.  Now, alloc_LConst_seg
;		  tries to allocate an entire bank of memory, then disposes of it again,
;		  then uses the allocated bank number to allocate memory for the
;		  loaded segment.
;
;==================================================================================================
;Revisions

		Eject
ExpressLoad	proc	Export
		import	Switch_handler
		import	do_save_AXY
		
		jmp	Switch_handler
		export	Save_AXY
save_AXY	jmp	do_save_AXY

		string	pascal
		dc.b	'ExpressLoad Ver 1.06 Designed and Written by Rob Turner'
		string	asis
		endp

		print	push
		print	off
		INCLUDE 'M16.Util'
		INCLUDE 'M16.MEMORY'
		INCLUDE	'ExpressLoad.Macros'
		print	pop
		eject
		include	'ExpressLoad.Data'

		eject
;====================================================================================================
;seg_num_lookup:	This routine will take a segment number and convert the number
;			to the correct segment number via the segment conversion table
;
;Input:         A = original segment number
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;		HET_ptr		;must point to seg_num_count
;
;Output:        A = new segment number
;               X = preserved
;               Y = preserved
;               P = nvmxdizc
;                   ..000..1=error
;               b = k
;
;
;
;====================================================================================================
	
		longa	on
		longi	on		
seg_num_lookup	proc
		with	data
		tax
		beq	@bad_seg_num		;sorry bud
		dec	a			;make zero based
		cmp	[HET_ptr]		;is it in the range?
		beq	@num_OK
		bcs	@bad_seg_num		;sorry the segment number is no good
@num_OK
		clc
		lda	[HET_ptr]		;get the number of segments please
		inc	a			;add one for 0 based stuff
		asl	a
		asl	a
		asl	a			;times 8 to pass Header Entry table
		adc	#$0002			;pass the count please

;		clc

		adc	HET_ptr			;add current position
		sta	temp_ptr
		lda	#$0000
		adc	HET_ptr+2
		sta	temp_ptr+2		;Temp pointer now points to the segment conv tbl
		
		dex				;subtract one for zero based please
		txa				;Times two for word table
		asl	a
		tay				;index to the real segment number
		lda	[temp_ptr],y
		clc
		rts				;return with the new segment number in "A"

@bad_seg_num
		lda	#seg_not_found
		sec
		rts				;return the "Error"
		endp

		eject
;====================================================================================================
;my_seg_to_user_seg:	This routine will take my segment number and convert the number
;			to the correct segment number via the segment conversion table.
;			This means if you use the segment number returned to you as input
;			to another loader call then everything will workout OK.
;
;Input:         A = internal segment number
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;		HET_ptr		;must point to seg_num_count
;
;Output:        A = new segment number for user
;               X = preserved
;               Y = preserved
;               P = nvmxdizc
;                   ..000..1=error
;               b = k
;
;
;
;====================================================================================================
	
		longa	on
		longi	on		
my_seg_to_user_seg	proc
		with	data
		pha				;segment we need to find

		clc
		lda	[HET_ptr]		;get the number of segments please
		inc	a			;add one for 0 based stuff
		asl	a
		asl	a
		asl	a			;times 8 to pass Header Entry table
		adc	#$0002			;pass the count please

;		clc

		adc	HET_ptr			;add current position
		sta	temp_ptr
		lda	#$0000
		adc	HET_ptr+2
		sta	temp_ptr+2		;Temp pointer now points to the segment conv tbl

		ldy	#$0000
@look_loop		
		lda	[temp_ptr],y
		cmp	1,s			;is this the correct segment number
		beq	@have_segment
		iny
		iny
		bne	@look_loop

		pla
		lda	#seg_not_found
		sec
		rts				;return the "Error"
		
@have_segment	pla				;stack fix
		tya				;convert index to segment number
		lsr	a
		inc	a			;add one to convert from 0 to 1 based
		clc
		rts
		endp
		
		eject
;====================================================================================================
;reset_local_mark:	This routine will reset our local mark to $FFFFFF.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = preserved
;               X = preserved
;               Y = preserved
;               P = preserved
;               b = k
;
;
;
;====================================================================================================
	
		longa	on
		longi	on		
reset_local_mark	proc
		with	data
		lda	#$FFFF
		sta	local_mark
		sta	local_mark+2
		rts
		endp
		
		eject
;====================================================================================================
;lock_handles	This routine will save and lock handles used by ExpressLoad
;unlock_handles	This routine will restore the previous state of the now locked handle
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = preserved
;               X = preserved
;               Y = preserved
;               P = preserved
;               b = k
;
;
;
;====================================================================================================
	
		longa	on
		longi	on		
lock_handles	proc
		with	data
		php				;save all registers!
		pha
		phx
		phy
				
		ldy	#$0004			;lets lock this puppy
		lda	ExpressHandle
		ora	ExpressHandle+2
		beq	@skip_express

		lda	[ExpressHandle],y
		sta	ExpressHndl_flag
		ora	#$8000			;lock the handle
		sta	[ExpressHandle],y
		
@skip_express
		lda	user_id_handle		;lock ID table down
		ora	user_id_handle+2
		beq	@skip_ids
		
		lda	[user_id_handle],y
		sta	User_ID_flag
		ora	#$8000			;lock the handle
		sta	[user_id_handle],y
@skip_ids
		lda	temp_handle
		ora	temp_handle+2
		beq	@skip_temp
		
		lda	[temp_handle],y
		sta	tempHndl_flag
		ora	#$8000			;lock the handle
		sta	[temp_handle],y
@skip_temp
		lda	reloc_handle
		ora	reloc_handle+2
		beq	@skip_reloc
		
		lda	[reloc_handle],y
		sta	relocHndl_flag
		ora	#$8000			;lock the handle
		sta	[reloc_handle],y
@skip_reloc
		lda	seg_handle
		ora	seg_handle+2
		beq	@skip_seg
		
		lda	[seg_handle],y
		sta	segHndl_flag
		ora	#$8000			;lock the handle
		sta	[seg_handle],y
@skip_seg
		lda	curr_id_handle
		ora	curr_id_handle+2
		beq	@skip_id
		
		lda	[curr_id_handle],y
		sta	idHndl_flag
		ora	#$8000			;lock the handle
		sta	[curr_id_handle],y
@skip_id
		bra	end_handles
		
		export	unlock_handles
unlock_handles	
		php				;save all registers!
		pha
		phx
		phy

		
		ldy	#$0004			;lets lock this puppy
		lda	ExpressHandle
		ora	ExpressHandle+2
		beq	@skip_express

		lda	ExpressHndl_flag	;restore old state
		sta	[ExpressHandle],y
@skip_express
		lda	temp_handle
		ora	temp_handle+2
		beq	@skip_temp
		
		lda	tempHndl_flag		;restore original state
		sta	[temp_handle],y
@skip_temp
		lda	user_id_handle		;lock ID table down
		ora	user_id_handle+2
		beq	@skip_ids
		
		lda	User_ID_flag
		sta	[user_id_handle],y
@skip_ids
		lda	reloc_handle
		ora	reloc_handle+2
		beq	@skip_reloc
		
		lda	relocHndl_flag		;restore orig state
		sta	[reloc_handle],y
@skip_reloc
		lda	seg_handle
		ora	seg_handle+2
		beq	@skip_seg
		
		lda	segHndl_flag		;do the restore
		sta	[seg_handle],y
@skip_seg
		lda	curr_id_handle
		ora	curr_id_handle+2
		beq	@skip_id
		
		lda	idHndl_flag		;do the restore
		sta	[curr_id_handle],y
@skip_id
end_handles
		ply
		plx
		pla
		plp				;restore original registers
		rts
		
		
ExpressHndl_flag	dc.w	00
tempHndl_flag		dc.w	00
relocHndl_flag		dc.w	00
segHndl_flag		dc.w	00
idHndl_flag		dc.w	00
user_id_flag		dc.w	00

		endp
		
		eject
;====================================================================================================
;clear_handles:	This routine will zero any local handles that contain a copy of the
;		handle that we are disposing
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;		stack:
;
;			Y register		$1,s
;			X register		$3,s
;			Accum			$5,s
;			processor_status	$7,s
;			return address		$8,s
;			low word of handle	$A,s
;			high word of handle	$C,s
;
;Output:        A = restored
;               X = restored
;               Y = restored
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;
;====================================================================================================
clear_handles	proc
		php
		pha
		phx
		phy

		lda	$0A,s			;get the low word of the handle
		tax
		lda	$0C,s			;get the high word of the handle
		
		cmp	ExpressHandle+2
		bne	@skip_express		;Does Express = Dispose Handle?
		cpx	ExpressHandle
		bne	@skip_express

		stz	ExpressHandle		;zero matching handle
		stz	ExpressHandle+2

@skip_express
		cmp	temp_handle
		bne	@skip_temp
		cpx	temp_handle+2
		bne	@skip_temp
		
		stz	temp_handle
		stz	temp_handle+2
		
@skip_temp
		cmp	reloc_handle
		bne	@skip_reloc
		cpx	reloc_handle+2
		bne	@skip_reloc
		
		stz	reloc_handle
		stz	reloc_handle+2
		
@skip_reloc
		cmp	seg_handle
		bne	@skip_seg
		cpx	seg_handle+2
		bne	@skip_seg
		
		stz	seg_handle
		stz	seg_handle+2
		
@skip_seg
		cmp	curr_id_handle
		bne	@skip_id
		cpx	curr_id_handle+2
		bne	@skip_id
		
		stz	curr_id_handle
		stz	curr_id_handle+2
@skip_id
		ply
		plx
		pla
		plp
		rts	
		endp
		
		eject
;====================================================================================================
;Error_routine:	This routine will call the death manager with an error code.  The routine will not
;		return to the caller.  The routine is called with a JSR so I can display the
;		address if I want to.
;
;Input:         A = error_code
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;
;====================================================================================================
	
		longa	on
		longi	on		
error_routine	proc
		with	data
		pha				;push the error code
		pea	err_string>>16
		pea	err_string
		ldx	#$1503			;call the death manager
		jsl	$e10000
		brk	$ff

		string	pascal
err_string	dc.b	'ExpressLoad error: '
		string	asis
		endp

		
		eject
;====================================================================================================
;make_HET_ptr:	This routine builds a pointer to the Header Entry Table
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;		ExpressHandle			;must be setup
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;		HET_ptr will point to the segment count field in the Header Entry Table (HET) 
;		temp_ptr will point to the link field (HET_ptr-4)
;
;====================================================================================================
	
		longa	on
		longi	on		
make_HET_ptr	proc
		with	data
;
;Setup temp_ptr to point to the reserved field (of Disk Image) of the HET
;
		ldy	#$0002
		clc
		lda	[ExpressHandle]
		adc	#extra_header		;load ExpressSegment past Extra Header
		tax
		sta	temp_ptr		;temp now points the link field
		lda	[ExpressHandle],y
		adc	#$0000
		tay
		sta	temp_ptr+2
;
;Now set HET_ptr to point past the reserved field of the disk image
;
		clc
		txa
		adc	#$0004			;pass the reserved field
		sta	HET_ptr			;header entry table pointer
		tya
		adc	#$0000
		sta	HET_ptr+2

		rts
		endp
		
		eject
;====================================================================================================
;setup_seg_ptrs:	This routine builds pointers to the segment header entry and the segment
;
;Input:         A = segment number
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;		HET_entry_ptr
;		seg_header_ptr
;
;====================================================================================================
	
		longa	on
		longi	on		
setup_seg_ptrs	proc
		with	data

		dec	a			;convert the segment number please
		sec
		sbc	ExpressSeg_pos		;0 or 1
		
		asl	a
		asl	a
		asl	a			;times 8 for HET entry size
		
		inc	a			;add two to pass the segment count field
		inc	a

		clc
		adc	HET_ptr			;make a pointer to the Entry
		sta	HET_Entry_ptr		;pointer to the entry itself
		lda	#$0000
		adc	HET_ptr+2
		sta	HET_Entry_ptr+2		
;
;Build a pointer to the segment header itself
;
		clc
		lda	HET_entry_ptr		;add in relative address to segment
		adc	[HET_Entry_ptr]
		sta	seg_header_ptr
		lda	HET_Entry_ptr+2
		adc	#$0000
		sta	seg_header_ptr+2
		rts
		endp
		
		eject
;====================================================================================================
;setup_base_ptr:	This routine setups the pointer to the base address of the segment
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;		Het_Entry_pointer		;must be setup
;		seg_header_ptr
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;               b = k
;
;		base_ptr
;		segment_entry
;====================================================================================================
	
		longa	on
		longi	on		
setup_base_ptr	proc
		with	data
		import	add_segment_offset
		
		ldy	#handle_offset		;setup the Base_ptr
		lda	[HET_entry_ptr],y
		tax
		iny
		iny
		lda	[HET_entry_ptr],y
		tay
		bne	@good_handle
		txa
		bne	@good_Handle
		sec
		rts
@good_Handle
		stx	temp_handle
		sty	temp_handle+2		;handle to the segment in memory
		ldy	#$0002			;deref the handle to get the base address
		lda	[temp_handle]
		tax
		lda	[temp_handle],y
		tay
		bne	@good_address
		tax
		bne	@good_address
		sec
		rts
@good_address
		stx	base_ptr
		sty	base_ptr+2		;address of the segment in memory
		jsr	add_segment_offset
		clc
		rts
		endp
		
		eject
;====================================================================================================
;Alloc_ID:	This routine will allocate a new user ID for a load file.  This routine is called
;		by the "initial_Load" routine
;
;Input:         A = user_id		;ID from the caller
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = user_id		;ID for the application
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;               b = k
;
;
;====================================================================================================
	
		longa	on
		longi	on		
Alloc_id	proc
		with	data

		tax
		and	#$00FF
		bne	@exit_alloc	;use the given ID
		txa
		and	#$FF00		;see if the Type_ID is 0
		bne	@get_new	;Use the Input Type and Aux type please
		txa
		ora	#app_type_id	;set the Type to Application
		tax
@get_new
		pea	$0000		;space for result
		phx			;ID stuff
		ldx	#$2003		;GetNewID
		jsl	$e10000
		plx
		bcs	@oops		;return the error
@exit_alloc
		txa			;set A = User_ID
		sta	user_id		;this is now the Global_ID
		clc
@oops
		rts
		endp
		
		eject
;====================================================================================================
;compare_paths:	This routine will compare Expanded_Name and Full_Blown to see if they are equal
;		It can also compare partial paths if "Partial_Match" is negative.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..0 = Complete path found
;			   1 = Complete path not found
;		     0 = partial path found.
;		     1 = partial path not found.
;               b = k
;
;
;====================================================================================================
	
		longa	on
		longi	on		
compare_paths	proc
		with	data

		lda	Expanded_name.size	;compare the string sizes first
		tay
		cmp	Full_Blown.size
		beq	@do_full_check
		bcc	@chk_colon_full_blown	;expand_name_contains the smaller string.
		lda	full_blown.size
		tay

		iny				;full blown contains the smaller string
		lda	expanded_name.name-1,y
		bra	@do_chk

@chk_colon_full_blown
		iny
		lda	full_blown.name-1,y
@do_chk
		and	#$00FF
		cmp	#seperator		;is it a seperator?
		bne	@not_same
		dey
		
@do_partial_compare
		lda	partial_match		;are we looking for a partial match?
		bpl	@not_same		;don't bother.
		
		sty	SubStr_size		;size of the substring
		longa	off
		sep	#$20
@partial_loop
		lda	Expanded_name.name-1,y	;compare the ascii data
		cmp	full_blown.name-1,y
		bne	@not_same
		dey
		bne	@partial_loop
		rep	#$60			;we have a match (clear overflow bit as well)
		sec				;no complete path found.
		rts
		
@do_full_check
		longa	off
		sep	#$20
@loop
		lda	Expanded_name.name-1,y	;compare the ascii data
		cmp	full_blown.name-1,y
		bne	@not_same
		dey
		bne	@loop
		rep	#$20
		clc
		rts				;the pathnames are the same
@not_same
		longa	on
		rep	#$20
		sep	#$41			;no partial or complete match found
		rts
		endp

		eject
;====================================================================================================
;Expand_Path:	This routine will expand a partial path into a complete GS/OS pathname
;		Note:  The name buffer is an internal 256 byte buffer, in the future
;		use the memory manager to get memory for the name.
;
;Input:         A = undefined
;               X = low word ptr to pathname
;               Y = high word ptr to pathname
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;               b = k
;
;		Expanded_name is setup
;
;====================================================================================================
	
		longa	on
		longi	on		
Expand_Path	proc
		with	data
		
		stx	expand.src
		sty	expand.src+2

		lda	#expanded_name
		sta	expand.dest
		lda	#^expanded_name
		sta	expand.dest+2
		
		jsr	lock_handles
		jsl	$e100a8			;call GS/OS
		dc.w	$200E			;expand path call
		dc.l	Expand			;pointer to the parameter
		jsr	unlock_handles
		bcc	@full_blown		;great news.
		rts
@full_blown
		with	Expanded_name
		
		lda	#Expanded_name.size	;address of GString
		sta	Open_List.Path_ptr
		lda	#^Expanded_name.size	;address of GString
		sta	Open_List.Path_ptr+2	;setup the Open Parameter block

;====================================================================================================
;
;This routine will take the pathname stored in Expanded_Name and generate the following variables:
;
;		partial_size			;size of the partial string
;		partial_offset			;offset to the partial string
;		vol_size			;size of the volume
;		path_size			;= Source size
;
;Input:		Expanded_name			;must contain a GString.
;
;
;====================================================================================================
		export	setup_path_sizes
setup_path_sizes
		stz	partial_size		;there is no partial path
		lda	size
		sta	path_size		;the complete size of the string
		beq	@end_expand
		
		ldx	#$0001			;convert from 1 based to two based
		ldy	#$0000			;init the volume size counter
@vol_loop
		lda	name,x			;get the character please
		iny
		and	#$00FF			;clear garbage
		cmp	#seperator
		beq	@save_vol		;we now have the volume size
		inx				;move to the next character
		cpx	size			;have we looked at all the characters?
		bne	@vol_loop
		iny				;adjust count correctly
@save_vol
		dey				;make count correct
		sty	vol_size		;the size of the volume name

		cpx	size			;is there anything to look at?
		beq	@end_expand
		ldy	#$0000			;reset counter for partial length
		inx				;point pass the colon please
		cpx	size
		beq	@end_expand		;pathname ended with a colon
		stx	partial_offset		;beginning of the partial pathname
		sec
		lda	size			;calculate the size of the partial
		sbc	partial_offset
		sta	partial_size
@end_expand
		clc
		rts
		endp

		eject
;====================================================================================================
;GString_to_PString:	This routine will convert a GString into a PString.  It will also
;			Convert Colons to Slashes.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;		Expanded_Name		;Contains GString
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..
;               b = k
;
;		full_blown		;setup with the new string.
;
;====================================================================================================
	
		longa	on
		longi	on		
GString_to_PString	proc
		with	data
		
		lda	Expanded_name.size	;get the size of the name
		sta	Full_Blown.size
		cmp	#$0100
		bcs	@bad_name		;I cannot convert the name
		tay				;number of characters to move
		longa	off
		sep	#$20
@loop
		lda	Expanded_Name.name-1,y	;get the character
		cmp	#'/'
		beq	@bad_name		;name contains Slashes
		cmp	#':'
		bne	@store_it
		lda	#'/'			;convert to a slash
@store_it
		sta	Full_Blown.size,y	;store the character
		dey
		bne	@loop
		rep	#$20
		clc
		rts
@bad_name
		sec
		rts
		endp
		
		eject
;====================================================================================================
;Expand_app_path:	This routine will expand the pathname that has been supplied by the 
;			caller.
;
;Input:         A = undefined
;               X = pointer to input string: low
;               Y = pointer to input string: high
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..
;               b = k
;
;		full_blown		;setup with the new string.
;
;====================================================================================================
	
		longa	on
		longi	on		
Expand_app_path	proc
		with	data

		txa				;back up one for GString conversion
		bne	@low_only
		dey
@low_only
		dex
		stx	temp_ptr
		stx	expand.src
		sty	temp_ptr+2
		sty	expand.src+2		;parameter for Expand Path
		
		lda	[temp_ptr]		;get garbage + length byte
		pha				;save it please
		xba				;put length byte in the low word
		and	#$00FF			;clear the garbage
		sta	[temp_ptr]		;PString now equals GString
		
		lda	#full_blown		;setup destination buffer
		sta	expand.dest
		lda	#^full_blown
		sta	expand.dest+2

		jsr	lock_handles
		jsl	$e100a8			;call GS/OS
		dc.w	$200E			;expand path call
		dc.l	Expand			;pointer to the parameter
		jsr	unlock_handles
		bcc	@big_name		;great news.
		
		tax				;save the error code
		pla
		sta	[temp_ptr]
		txa
		rts
@big_name
		pla
		sta	[temp_ptr]		;restore the callers PString
		rts
		endp
		
		eject
;====================================================================================================
;Merge_path:	This routine will merge the volume name and partial path into one complete pathname
;		The names are stored at the end of an ExpressLoad segment
;
;Input:         A = undefined
;               X = low word of ExpressHandle
;               Y = High Word of ExpressHandle
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;		ExpressHandle		;must be setup
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..
;               b = k
;
;		Expanded_name		;setup with the new string.
;
;====================================================================================================
	
		longa	on
		longi	on		
Merge_path	proc
		with	data
		
		stx	ExpressHandle
		sty	ExpressHandle+2
		
		ldy	#$0002		;build a pointer to ExpressSegment
		lda	[ExpressHandle]
		sta	temp_ptr
		lda	[ExpressHandle],y
		sta	temp_ptr+2
;
;Now we need to build a pointer to the volume name
;		
		ldy	#seg_vol_offset	;offset to the volume name
		clc
		lda	[Temp_ptr],y
		adc	temp_ptr
		sta	vol_ptr
		lda	#$0000
		adc	temp_ptr+2
		sta	vol_ptr+2	;super_ptr now points to the volume name
;
;Now we need to build a pointer to the partial pathname
;
		iny
		iny			;point to the partial pathname
		clc
		lda	[Temp_ptr],y
		adc	temp_ptr
		sta	path_ptr
		lda	#$0000
		adc	temp_ptr+2
		sta	path_ptr+2	;super_ptr now points to the volume name
;
;OK now lets merge the volume and the partial pathname
;
		with	expanded_name
		
		longa	off
		sep	#$20		;switch to eight bit mode
		clc
		lda	#$02		;there will be two seperators added
		adc	[vol_ptr]	;the length of the volume name
		clc
		adc	[path_ptr]	;the length of the partial name
		sta	size
		sta	path_size
		
		lda	[vol_ptr]	;save the length
		sta	vol_size
		lda	[path_ptr]
		sta	partial_size	;save the length of the partial pathname
		
		lda	#seperator	;start the name with a ":"
		sta	name
		ldx	#$0001		;where we start storing the ascii name
		txy
@move_vol
		lda	[vol_ptr],y
		sta	name,x
		inx
		iny
		cpy	vol_size	;are we done
		bcc	@move_vol
		beq	@move_vol
		
		lda	#seperator	;add in the second seperator
		sta	name,x
		inx

		ldy	#$0001
@move_partial
		lda	[path_ptr],y	;get the character
		sta	name,x
		inx
		iny
		cpy	partial_size
		bcc	@move_partial
		beq	@move_partial
		longa	on
		rep	#$20
		sec
		lda	size		;build partial offset
		sbc	partial_size
		sta	partial_offset
		clc
		rts
		endp

		eject
;====================================================================================================
;alloc_my_dp:	This routine will allocate my direct page from the system.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..
;               b = k
;
;
;====================================================================================================
	
		longa	on
		longi	on		
alloc_my_dp	proc
		with	data

		lda	#256
		sta	free_mem_size		;save the request count
		stz	free_mem_size+2
		
		lda	#gs_os_start
		sta	search_addr		;start looking at $9A00 (start of GS/OS)
		stz	search_addr+2	
@search_loop
		pha				;space for handle
		pha
		PushLong free_mem_size		;request bytes
		PushWord ExpLoad_ID
		PushWord #attr_locked+attr_fixed+attr_addr+attr_page
		PushLong search_addr		;address to start at
		_NewHandle
		plx
		ply				;get the handle
		bcs	@not_done
		stx	dp_handle		;save my handle please
		sty	dp_handle+2
		
		rts				;return the handle
@not_done
		lda	search_addr+1
		dec	a
		sta	search_addr+1		;move down one page
		cmp	#$0008			;have we searched down to $000800?
		bne	@search_loop
		sec
		rts				;we cannot get our direct page/stack
		
		endp

		eject
;====================================================================================================
;Switch_handler	This routine is called when we switch from GS/OS to ProDOS 8 and when we switch
;		from ProDOS8 to GS/OS. It is also called for startup
;
;Input:         A = Function: 0 = startup,  4 = Swicth P8 to GS/OS, 2 = Switch GS/OS to P8
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;               b = k
;
;		The Direct page is saved and released if we are switching from GS/OS to P8
;		The Direct page is allocated and restored if we are switching from P8 to GS/OS
;
;====================================================================================================
	
		longa	on
		longi	on		
Switch_handler	proc
		with	data
		import	main
		import	loader_patch
		
		tax			;Is this my startup call?
		bne	@not_startup
		jmp	main		;do our main thing.
@not_startup
		phk			;set our data bank register
		plb
		lda	data.my_dir_page	;setup our own direct page
		tcd
		
		cpx	#$0004		;Switch P8 to GS/OS
		beq	@restore_dp

		ldx	#dir_page_size	;save the direct page please
@save_loop	lda	00,x
		sta	dir_page_buffer,x
		dex
		dex
		bpl	@save_loop
		
		lda	dp_handle+2	;dispose the handle
		pha
		lda	dp_handle
		pha
		jsr	clear_handles		;clear local copy of handle
		ldx	#$1002			;dispose handle
		jsl	$e10000		;its gone
		stz	dp_handle
		stz	dp_handle+2
		rtl			;exit back to the system

@restore_dp
		jsr	alloc_my_dp	;allocate me a direct page please
		bcc	@got_it
		rts			;return the error
@got_it
		pei	temp_handle	;save the current handle please
		pei	temp_handle+2
		
		stx	temp_handle
		sty	temp_handle+2	;to determine our direct page

		lda	[temp_handle]	;get the page please
		sta	my_dir_page	;save my direct page please
	
		ply
		sty	temp_handle+2	;restore data used on current direct page
		ply
		sty	temp_handle	;it is now safe to setup the direct register
		
		tcd			;go ahead and setup the direct register
		
		ldx	#dir_page_size	;save the direct page please
@restore_loop	lda	dir_page_buffer,x
		sta	00,x
		dex
		dex
		bpl	@restore_loop
		clc
		rtl
		
		endp

		eject
;====================================================================================================
;alloc_ExpLoad:	This routine will allocate memory from the system for the loader.
;
;Input:         A = undefined
;               X = request bytes low
;               Y = requets bytes high
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = undefined
;               X = handle low
;               Y = handle high
;               P = nvmxdizc
;                   ..000..
;               b = k
;
;
;====================================================================================================
	
		longa	on
		longi	on		
alloc_ExpLoad	proc
		with	data

		lda	ExpLoad_ID		;my ID
		bra	do_alloc		;go allocate

		eject
;====================================================================================================
;alloc_mem:	This routine will allocate memory from the system.
;
;Input:         A = user ID to use
;               X = request bytes low
;               Y = requets bytes high
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = undefined
;               X = handle low
;               Y = handle high
;               P = nvmxdizc
;                   ..000..
;               b = k
;
;
;====================================================================================================

		entry	alloc_mem	
alloc_mem
		lda	AppID			;use application ID for normal allocation
do_alloc
		pha	 			;space for handle
		pha
		phy				;high request bytes
		phx				;low request bytes
		pha				;userID
		pea	$8000			;locked
		lda	#0
		pha
		pha
		jsr	lock_handles		;lock my handles so they stay put!!
		_NewHandle			;allocate the memory
		jsr	unlock_handles		;put the handles back to original state
		plx
		ply
		rts
		endp

		eject
;====================================================================================================
;alloc_LConst_seg	This routine will allocate memory from the system.
;
;Input:         A = undefined
;               X = request bytes low
;               Y = requets bytes high
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;		seg_header_ptr		;must be setup
;
;Output:        A = undefined
;               X = handle low
;               Y = handle high
;               P = nvmxdizc
;                   ..000..
;               b = k
;
;
;====================================================================================================
	
		longa	on
		longi	on		
alloc_LConst_seg	proc
		with	data
		jsr	lock_handles

		lda	mem_attr		;see if this is bank aligned or align in bank
		and	#attr_bank_align+attr_align_in_bank
		bne	@align_to_bank

		pha				;space for handle
		pha
		phy				;high request bytes
		phx				;low request bytes
		PushWord AppID
		lda	mem_attr
		pha
		PushLong org_address		;address to start at
		_NewHandle
		jsr	unlock_handles		;put the handles back to original state

		plx
		ply
		rts

@align_to_bank
		stx	free_mem_size		;save the request count
		sty	free_mem_size+2

		lda	mem_attr		;clear the align to bank bit
		and	#Å(attr_bank_align+attr_align_in_bank)
		sta	mem_attr

		lda	#$0002			;start looking in bank two
		sta	search_addr+2		;address we are searching for
		lda	org_address		;add in org. align in bank if non zero
		sta	search_addr	

		pha				;space for handle
		pha
		ldx	#$0000			;convenient place for a zero
		pea	$0001			;allocate 64K
		phx
		lda	AppID			;use App's ID
		pha
		lda	mem_attr		;attributes
		and	#Å(attr_Bank+attr_Addr)
		ora	#attr_No_Spec+attr_No_Cross
		pha
		phx				;location pointer
		phx
		_NewHandle			;allocate the memory
		plx				;retrieve handle
		ply
		bcs	@no_memory		;oops!  couldn't get a whole bank!
		phb				;save current DBR
		phy				;set to handle's DBR
		plb
		inx				;bump to bank word of handle
		inx
		lda	|0,x			;get the bank # that was allocated
		plb
		plb				;restore DBR
		sta	search_addr+2		;save the bank value
		dex				;restore original value
		dex
		phy
		phx				;now deallocate the bank again
		_DisposeHandle
		
@no_memory
		lda	#attr_addr+attr_bank	;set the fixed address and bank bits
		tsb	mem_attr

@search_loop
		pha				;space for handle
		pha
		PushLong free_mem_size
		PushWord AppID
		lda	mem_attr
		pha
		PushLong search_addr		;address to start at
		_NewHandle
		plx
		ply				;get the handle
		bcc	@done			;if no error, return!
@not_done
		inc	search_addr+2
		lda	search_addr+2		;move up one bank
		cmp	#$0080			;have we searched all of memory?
		bcc	@search_loop
		lda	#$0201			;synthesize a Memory Manager error
						;(carry already set)
@done		jsr	unlock_handles
		rts				;return the handle
		
		endp

		eject
;====================================================================================================
;add_id_table:	This routine will allocate memory for one user_id_table and link the table
;		into the list of user_id_tables.  It will also zero the entire table
;
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;		
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;               b = k
;
;
;====================================================================================================
	
		longa	on
		longi	on		
add_id_table	proc
		with	data
		ldx	#id_tbl_size	;allocate the table please
		ldy	#$0000
		jsr	alloc_ExpLoad	;go and allocate memory using ExpressLoad ID
		bcc	@got_it
		rts			;return the error to the caller
@got_it
		stx	temp_handle	;save the handle please
		stx	temp_long
		sty	temp_handle+2
		sty	temp_long+2

		ldy	#$0004		;offset to memory manager attributes
		lda	[temp_handle],y
		and	#$7FFF		;unlock the handle
		sta	[temp_handle],y
		
		ldy	#$0002		;make a pointer to new memory
		lda	[temp_handle]
		sta	user_id_ptr
		lda	[temp_handle],y
		sta	user_id_ptr+2
		
		lda	#$0000
		ldy	#id_tbl_size-2	;clear the buffer please
@clear_loop
		sta	[user_id_ptr],y
		dey
		dey
		bpl	@clear_loop
;
;Now that we have cleared the segment lets link it into the list
;
		lda	user_id_handle	;see if this is the first one!
		ora	user_id_handle+2
		bne	@walk_list
		
		lda	temp_handle	;setup the first handle and exit
		sta	user_id_handle
		lda	temp_handle+2
		sta	user_id_handle+2
		clc
		rts
@walk_list
		lda	user_id_handle	;start at front of the list
		sta	temp_handle
		lda	user_id_handle+2
		sta	temp_handle+2
@search_loop
		ldy	#$0002
		lda	[temp_handle]
		sta	user_id_ptr
		lda	[temp_handle],y
		sta	user_id_ptr+2
		
		lda	[user_id_ptr]	;get the forward link please (Link = Handle)
		tax
		lda	[user_id_ptr],y
		tay
		bne	@next_one
		txa
		bne	@next_one
		
		ldy	#$0002		;link in the new entry
		lda	temp_long	;handle to our new segment
		sta	[user_id_ptr]
		lda	temp_long+2
		sta	[user_id_ptr],y
		
		lda	[temp_long]	;deref handle
		sta	user_id_ptr
		lda	[temp_long],y
		sta	user_id_ptr+2
		
		clc
		rts
@next_one
		stx	temp_handle
		sty	temp_handle+2
		bra	@search_loop
		endp

		eject
;====================================================================================================
;add_user_id:	This routine will find a empty spot in the user_id table and allocate it
;
;Input:         A = user_id		;ID from the caller
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;               b = k
;
;
;Output:        A = undefined
;               X = low word address of entry
;               Y = high word address of entry
;               P = nvmxdizc
;                   ..000..1 = error
;               b = k
;
;
;====================================================================================================
	
		longa	on
		longi	on		
Add_user_id	proc
		with	data
		
		sta	temp_word		;ID to add
		
		ldy	#$0002			;start at the beginning of the User_Id table
		lda	[user_id_handle]
		sta	user_id_ptr
		lda	[user_id_handle],y
		sta	user_id_ptr+2	
@loop
		jsr	get_free_id		;find a free spot in the table
		bcc	@got_it
		jsr	add_id_table		;add another table please
		bcc	@loop			;try again
		rts				;return the error
@got_it
		ldx	temp_ptr
		ldy	temp_ptr+2		;address of the entry
		clc
		rts

get_free_id
		ldy	#id_entry_size		;start at the first available spot
		ldx	#id_entry_cnt		;number of entries in a table
@search_loop
		lda	[user_id_ptr],y		;is this avail.
		beq	@its_free
		clc
		tya
		adc	#id_entry_size
		tay
		dex
		bpl	@search_loop
		sec
		rts
@its_free
		clc				;build a pointer to the entry
		tya
		adc	user_id_ptr
		sta	temp_ptr
		sta	user_id_ptr
		lda	#$000
		adc	user_id_ptr+2
		sta	temp_ptr+2
		sta	user_id_ptr+2
		
		ldy	#14			;clear the entry please (16 bytes total 0 thru 15)
		lda	#$0000
@clr_it
		sta	[temp_ptr],y
		dey
		dey
		bpl	@clr_it
		
		lda	temp_word		;save the user Id please
		sta	[temp_ptr]
		clc
		rts
		endp

		eject
;====================================================================================================
;delete_user_id:	This routine will delete the user_id pointer to by user_id
;
;Input:         A = User_ID_Flag:	0 = delete ID, 1 = keep the user_id
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;               b = k
;
;		user_id			;must be setup
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;               b = k
;
;
;====================================================================================================
	
		longa	on
		longi	on		
delete_user_id	proc
		with	data
		
		sta	id_flag			;used to determine if I should delete the user id
		
		ldy	#$0002
		lda	[user_id_ptr],y		;get the ExpressLoad handle
		tax
		iny
		iny
		lda	[User_id_ptr],y
		tay
		bne	@deallocate
		tax
		beq	@no_handle
@deallocate
		phy
		phx
		jsr	clear_handles		;clear local copy of handle
		ldx	#$1002			;dispose handle
		jsl	$e10000			;its gone
@no_handle		
		lda	[user_id_ptr]		;get the user_id
		beq	@zero_and_exit

		pha				;ID to nuke
		ldx	#$1102			;do a dispose all please
		jsl	$e10000
		
		ldx	id_flag			;should we nuke the ID?
		bne	@zero_and_exit		;no...
		
		lda	[user_id_ptr]		;get the user_id
		pha				;ID to nuke
		ldx	#$2103			;delete ID
		jsl	$e10000
		
@zero_and_exit
		ldy	#$0002
		lda	#$0000
		sta	[user_id_ptr]
		sta	[user_id_ptr],y
		iny
		iny
		sta	[user_id_ptr],y		;remove everything
		stz	ExpressHandle		;indicate that we no longer have the load file
		stz	ExpressHandle+2
		clc
		rts
		endp
		
		eject
;====================================================================================================
;purge_user_id:	This routine will mark an application as purgable
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;               b = k
;
;		user_id			;must be setup
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;               b = k
;
;
;====================================================================================================
	
		longa	on
		longi	on		
purge_user_id	proc
		with	data
		
		lda	[user_id_ptr]		;get the user_id
		beq	@exit
		pha
		ldx	#$1302			;Purge all
		jsl	$e10000
@exit
		rts
		endp
		
		eject
;====================================================================================================
;remove_segment:	This routine will deallocate all memory associated with a user ID.
;
;Input:         A = And Mask for flags field
;               X = Compare Value
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;               b = k
;
;		ExpressHandle
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;               b = k
;
;
;====================================================================================================
	
		longa	on
		longi	on		
remove_segment	proc
		with	data
		sta	temp_word
		stx	search_kind
		
		jsr	make_HET_ptr
		
		lda	[HET_ptr]		;get the number of entries in table
		inc	a			;start from the last segment
		inc	a
		tax
@search_loop
		txa				;pass in the segment number
		beq	@end_remove		;sorry there is no segment
		phx
		jsr	setup_seg_ptrs		;we are now in business
		ldy	#flags_offset
		lda	[HET_entry_ptr],y
		and	temp_word		;AND off user requested bits
		cmp	search_kind		;see if we have a match
		bne	@skip_it
		jsr	do_operation
@skip_it
		plx
		dex				;back off by one and try again
		cpx	#$0001
		bne	@search_loop
@end_remove
		clc
		rts
		
do_operation
		lda	#$0000			;zero the status word
		sta	[HET_entry_ptr],y	
		ldy	#handle_offset		;lets dispose of the handle please
		lda	[HET_entry_ptr],y
		tax
		lda	#$0000
		sta	[HET_entry_ptr],y
		iny
		iny
		lda	[HET_entry_ptr],y	;get the high word
		pha
		lda	#$000
		sta	[HET_entry_ptr],y
		phx				;push the low word
		jsr	clear_handles		;clear local copy of handle
		ldx	#$1002			;dispose handle
		jsl	$E10000
		rts
		endp
		
		eject
;====================================================================================================
;find_user_id:	This routine will find a user_id in the User_ID_Table
;
;Input:         A = user_id		;ID from the caller
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = undefined
;               X = low word address of entry
;               Y = high word address of entry
;               P = nvmxdizc
;                   ..000..1 = error
;               b = k
;
;
;====================================================================================================
	
		longa	on
		longi	on		
find_user_id	proc
		with	data

		tax		
		bne	@use_input
		lda	User_ID			;use the global ID
@use_input
		sta	search_kind
		sta	User_ID			;update the global User ID
		sta	AppID

		ldy	#$0002
		lda	[user_id_handle]
		sta	user_id_ptr
		lda	[user_id_handle],y
		sta	user_id_ptr+2
@loop
		jsr	find_id
		bcc	@found_it
		
		ldy	#$0002			;get the next link
		lda	[user_id_ptr]
		tax
		lda	[user_id_ptr],y
		tay
		bne	@keep_going
		txa
		bne	@keep_going
		sec
		rts				;sorry ID not found
@keep_going
		stx	temp_handle
		stx	curr_id_handle		;the current handle table
		sty	temp_handle+2
		sty	curr_id_handle+2
		ldy	#$00002
		lda	[temp_handle]
		sta	user_id_ptr
		lda	[temp_handle],y
		sta	user_id_ptr+2
		bra	@loop
@found_it
		ldx	temp_ptr		;return pointer to the entry
		ldy	temp_ptr+2
		clc
		rts
		
find_id
		ldy	#id_entry_size		;start at the first available spot
		ldx	#id_entry_cnt		;number of entries in a table
@search_loop
		lda	[user_id_ptr],y		;is this the one
		cmp	search_kind
		beq	@its_the_one
		clc
		tya
		adc	#id_entry_size
		tay
		dex
		bpl	@search_loop
		sec
		rts
@its_the_one
		clc				;build a pointer to the entry
		tya
		adc	user_id_ptr
		sta	temp_ptr
		sta	user_id_ptr
		lda	#$000
		adc	user_id_ptr+2
		sta	temp_ptr+2
		sta	user_id_ptr+2

		clc
		rts
		
		endp

		eject
;====================================================================================================
;path_to_user_id:	This routine will find a user_id in the User_ID_Table given a pathname
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;		Full_Blown		;Path that we need to find
;
;Output:        A = User ID
;               X = undefined
;               Y =undefined
;               P = nvmxdizc
;                   ..000..1 = not found
;               b = k
;
;
;====================================================================================================
	
		longa	on
		longi	on		
path_to_user_id	proc
		with	data

		ldy	#$0002
		lda	[user_id_handle]
		sta	user_id_ptr
		lda	[user_id_handle],y
		sta	user_id_ptr+2
@loop
		jsr	find_id
		bcc	@found_it		;we have found the complete path!
		
		ldy	#$0002			;get the next link
		lda	[user_id_ptr]
		tax
		lda	[user_id_ptr],y
		tay
		bne	@keep_going
		txa
		bne	@keep_going
		sec
		rts				;sorry ID not found
@keep_going
		stx	temp_handle
		sty	temp_handle+2
		ldy	#$00002
		lda	[temp_handle]
		sta	user_id_ptr
		lda	[temp_handle],y
		sta	user_id_ptr+2
		bra	@loop
@found_it
		rts				;A = User_ID
		
find_id
		ldy	#id_entry_size		;start at the first available spot
		ldx	#id_entry_cnt		;number of entries in a table
@search_loop
		lda	[user_id_ptr],y		;is this the one
		sta	search_kind		;save the User ID
		beq	@empty_slot
		phy
		phx
		jsr	check_name		;is this the one
		plx
		ply
		bcc	@its_the_one

@empty_slot	clc
		tya
		adc	#id_entry_size
		tay
		dex
		bpl	@search_loop
		sec
		sep	#$40			;no partial match!!!
@its_the_one
		rts
check_name
		iny
		iny				;get the handle
		lda	[user_id_ptr],y
		sta	ExpressHandle
		tax
		iny
		iny
		lda	[user_id_ptr],y
		sta	ExpressHandle+2		;Handle to the ExpressLoad segment
		tay
		jsr	Merge_path		;build a complete pathname
		jsr	compare_paths		;is this the one?
		lda	search_kind
		rts				;carry set or cleared from the compare routine
		endp

		eject
;====================================================================================================
;find_seg_handle:	This routine will find a segment by handle
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;		seg_handle		;must be setup
;
;Output:        A = User ID
;               X = undefined
;               Y =undefined
;               P = nvmxdizc
;                   ..000..1 = not found
;               b = k
;
;
;====================================================================================================
	
		longa	on
		longi	on		
find_seg_handle	proc
		with	data

		ldy	#$0002
		lda	[user_id_handle]
		sta	user_id_ptr
		lda	[user_id_handle],y
		sta	user_id_ptr+2
@loop
		jsr	find_id
		bcc	@found_it
		
		ldy	#$0002			;get the next link
		lda	[user_id_ptr]
		tax
		lda	[user_id_ptr],y
		tay
		bne	@keep_going
		txa
		bne	@keep_going
		sec
		rts				;sorry ID not found
@keep_going
		stx	temp_handle
		sty	temp_handle+2
		ldy	#$00002
		lda	[temp_handle]
		sta	user_id_ptr
		lda	[temp_handle],y
		sta	user_id_ptr+2
		bra	@loop
@found_it
		rts				;A = User_ID
		
find_id
		ldy	#id_entry_size		;start at the first available spot
		ldx	#id_entry_cnt		;number of entries in a table
@search_loop
		lda	[user_id_ptr],y		;is this the one
		sta	User_ID
		beq	@empty_slot
		phy
		phx
		jsr	check_handle		;is this the one
		plx
		ply
		bcc	@its_the_one
@empty_slot
		clc
		tya
		adc	#id_entry_size
		tay
		dex
		bpl	@search_loop
		sec
@its_the_one
		sta	search_seg		;save the segment number
		rts
check_handle
		iny
		iny				;get the handle
		lda	[user_id_ptr],y
		sta	ExpressHandle
		tax
		iny
		iny
		lda	[user_id_ptr],y
		sta	ExpressHandle+2		;Handle to the ExpressLoad segment
		jsr	walk_ExpressSeg		;look at all the handles in the ExpressLoad segment
		rts				;found the handle

walk_expressSeg
		jsr	make_HET_ptr		;make a pointer to the Header Entry Table
		
		lda	[HET_ptr]		;get the number of entries in table
		inc	a			;start from the last segment
		inc	a
		tax
@search_loop
		txa				;pass in the segment number
		beq	@end_handle		;sorry there is no segment by this name
		phx
		jsr	setup_seg_ptrs		;we are now in business
		ldy	#handle_offset		;see if this is a jump segment
		lda	[HET_Entry_ptr],y
		cmp	seg_handle
		bne	@not_handle
		iny
		iny
		lda	[HET_entry_ptr],y
		cmp	seg_handle+2
		bne	@not_handle
		pla				;this is the segment number
		clc
		rts
@not_handle
		plx
		dex				;back off by one and try again
		cpx	#$0001
		bne	@search_loop
@end_handle
		sec
		rts
		
		endp

		eject
;====================================================================================================
;Get_ExpLoad_ID:	This routine will request an ID from the ID manager.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..
;               b = k
;
;		ExpLoad_ID		;contains our ID
;
;====================================================================================================
	
		longa	on
		longi	on		
get_ExpLoad_ID	proc
		with	data
		lda	#$7050		;This is ExpressLoad ID
		sta	ExpLoad_ID
		rts
		endp
		
		include	'ProcReloc.DataBankChanged'
		
		eject
;====================================================================================================
;read_less_64K:	This routine will read data from the input file.  It is limited to $FFFF bytes
;
;
;Input:         A = request count
;               X = buffer_ptr low
;               Y = buffer_ptr high
;               P = nvmxdizc
;                   ..000...
;               b = k
;		
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;               b = k
;
;
;====================================================================================================
	
		longa	on
		longi	on		
read_less_64k	proc
		stz	read_list.cnt+2
		sta	read_list.cnt
		export	read_wBuf_ptr
read_wBuf_ptr
		stx	read_list.ptr
		sty	read_list.ptr+2

		jsr	lock_handles
		jsl	$e100a8
		dc.w	$2012			;class 1 read call
		dc.l	read_list
		jsr	unlock_handles
		bcs	@exit

		lda	read_list.ret_cnt
		adc	local_mark		;bump the local mark please
		sta	local_mark
		lda	read_list.ret_cnt+2
		adc	local_mark+2
		sta	local_mark+2
		lda	#$0000
		clc
@exit
		rts
		endp
		
		eject
;====================================================================================================
;get_mark:	This routine will return the current file position
;
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;		
;
;Output:        A = undefined
;               X = Mark Low
;               Y = Mark High
;               P = nvmxdizc
;                   ..000..1 = error
;               b = k
;
;
;====================================================================================================
	
		longa	on
		longi	on		
get_mark	proc
		jsr	lock_handles
		jsl	$e100a8
		dc.w	$2017
		dc.l	get_mark_list
		jsr	unlock_handles
		bcc	@got_mark
		rts
@got_mark
		ldx	get_mark_list.pos
		ldy	get_mark_list.pos+2
		rts
		endp
		
		eject
;====================================================================================================
;set_mark:	This routine will set the current file position
;
;
;Input:         A = base
;               X = displacement low
;               Y = displacement high
;               P = nvmxdizc
;                   ..000...
;               b = k
;		
;
;Output:        A = error if carry set
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;               b = k
;
;
;====================================================================================================
	
		longa	on
		longi	on		
set_mark	proc
		lda	#absolute
		sta	set_mark_list.base
		stx	set_mark_list.disp
		sty	set_mark_list.disp+2
		cpx	local_mark		;lets see if we are already at the mark
		bne	@do_mark
		cpy	local_mark+2
		bne	@do_mark
		clc
		lda	#$0000			;we are already at the mark
		rts				;return with no error
@do_mark
		jsr	lock_handles
		jsl	$e100a8
		dc.w	$2016			;class 1 set mark call
		dc.l	set_mark_list
		jsr	unlock_handles
		bcs	@exit
		
		lda	set_mark_list.disp	
		sta	local_mark		;reset our mark please
		lda	set_mark_list.disp+2
		sta	local_mark+2
@exit
		rts
		endp


		eject
;====================================================================================================
;check_express_seg:	This routine will determine if this is an expressload file
;
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;		
;		Expanded_name		;must be setup
;		vol_size
;		partial_size
;		partial_offset		;all must be setup
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;====================================================================================================
	
		longa	on
		longi	on		
check_express_seg	proc
		with	data
;		jsr	get_mark		;save the current file position
		
		ldx	#header_buf
		ldy	#^header_buf
		lda	#$0047			;read in $47 byte
		jsr	read_less_64k		;read in less then 64K		
		bcc	@no_error
		rts
@no_error
		lda	read_list.ret_cnt	;is the segment > $47 bytes
		cmp	#$0047
		beq	@good_size
		sec
		rts				;return with error flag

@good_size
;
;I am removing the type check so the linker can produce a skip segment if it wishes
;
;		lda	header_buf.kind		;see if it is my kind
;		cmp	#Data_Kind+Dynamic
;		bne	sorry_not_express	;this cannot be it


		lda	header_buf.name_disp	;offset to the name
		clc
		adc	#10			;pass my Name
		clc
		adc	#header_buf
		sta	temp_ptr
		lda	#^header_buf
		sta	temp_ptr+2		;point to the name field
		
		longa	off
		longi	off
		sep	#$30
		lda	[temp_ptr]		;get the length of the name
		cmp	express_name		;is the length the same?
		bne	next_name		;cannot be the same
		tay
@loop
		lda	[temp_ptr],y
		cmp	#'a'			;is this lower case
		bcc	@not_lower
		cmp	#'z'+1
		bcs	@not_lower
		and	#$DF			;convert to Upper case
@Not_lower
		cmp	express_name,y
		bne	sorry_not_express
		dey
		bne	@loop			;keep checking
		bra	load_it
;
;Now look for "~ExpressLoad"
;
next_name
		cmp	tilda_name		;now check for "~ExpressLoad"
		bne	sorry_not_express
		tay
@loop
		lda	[temp_ptr],y
		cmp	#'a'			;is this lower case
		bcc	@not_lower
		cmp	#'z'+1
		bcs	@not_lower
		and	#$DF			;convert to Upper case
@Not_lower
		cmp	tilda_name,y
		bne	sorry_not_express
		dey
		bne	@loop			;keep checking
		bra	load_it


sorry_not_express
		longa	on
		longi	on
		rep	#$30
		sec
		rts
		
load_it
		rep	#$30
		clc
		rts
		endp

		eject
;====================================================================================================
;find_segment:	This routine will search for segments in the HET table
;
;
;Input:         A = Kind to search for
;               X = AND mask for kind field.	If equal after AND the kind was a match
;               Y = AND mask for flags field.  	If equal after AND then search succeeds
;               P = nvmxdizc
;                   ..000...
;               b = k
;		
;		HET_ptr		;must be setup!
;
;Output:        A = Segment number in file
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = not found
;               b = k
;
;
;====================================================================================================
	
		longa	on
		longi	on		
find_Segment	proc
		with	data
		
		sta	search_kind
		stx	kind_mask
		sty	flags_mask
		ldx	#$0000			;start search from the beginning
	
@loop
	
		txa
		asl	a
		asl	a
		asl	a			;times eight for HET
		inc	a
		inc	a			;pass the count word
		tay
		
		clc
		adc	HET_ptr
		sta	HET_Entry_ptr		;build a pointer to the HET entry
		lda	#$0000
		adc	HET_ptr+2
		sta	HET_entry_ptr+2
		
		clc
		lda	[HET_entry_ptr]		;get the relative offset to segment
		adc	HET_entry_ptr
		sta	seg_header_ptr		;point to the segment
		lda	#$0000
		adc	HET_entry_ptr+2
		sta	seg_header_ptr+2
		
		iny
		iny
		lda	[HET_ptr],y		;check the flags mask
		and	flags_mask
		bne	@check_next		;sorry
		
		ldy	#seg_kind_offset	;lets check the kind please
		lda	[seg_header_ptr],y
		and	kind_mask
		cmp	search_kind		;is this it
		bne	@check_next		;sorry false alarm
		
		txa
		inc	a			;convert 0 thru n to 1 thru n
		clc
		adc	ExpressSeg_Pos		;account for Express Segments position
		sta	loaded_seg_num
		clc
		rts				;return the segment
		
@check_next
		inx
		txa
		cmp	[HET_ptr]		;are we done
		beq	@loop			;we have one more to do
		bcc	@loop
		rts				;return with the carry set
		endp
		
		eject
;====================================================================================================
;chk_dynamic_seg:	See if there are any dynamic segments in the file.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;		
;		ExpressHandle		;handle to the express segment.
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = no seg.
;               b = k
;
;
;====================================================================================================
	
		longa	on
		longi	on		
chk_dynamic_seg	proc
		with	data
		jsr	make_HET_ptr		;setup pointer to the HETable
		
		lda	#Dynamic		;Compare to Dynamic BIT
		ldx	#Dynamic		;And Mask (Only Dynamic Bit is important)
		ldy	#unloaded_state		;only unloaded segments please
		jsr	find_segment		;do the search
		rts
		endp
		
		eject
;====================================================================================================
;Save_Ref_Num:	This routine will save the files reference number if the file contains any dynamic
;		segments.  We do this so the file can remain open while the program is running.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;		
;		open_list.ref_num	;reference number for the current file.
;		ExpressHandle		;handle to the express segment.
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;====================================================================================================
	
		longa	on
		longi	on		
Save_Ref_Num	proc
		with	data

		lda	open_list.file_type
		cmp	#app_type		;only leave the file open if type = Application
		bne	@skip_dynamic_chk	;don't leave the file open

		jsr	chk_dynamic_seg	
		bcc	@save_the_num		;There is a dynamic segment.

@skip_dynamic_chk
		clc
		rts
@save_the_num
		ldy	#$0002
		clc
		lda	[ExpressHandle]
		adc	#extra_header		;load ExpressSegment past Extra Header
		sta	temp_ptr		;temp now points the link field
		lda	[ExpressHandle],y
		adc	#$0000
		sta	temp_ptr+2
		
		lda	open_list.ref_num	;save the file reference number since the file
		sta	[temp_ptr]		; contains Dynamic Segments.
		rts
		endp
		
		eject
;====================================================================================================
;get_express_seg:	This routine will locate and read in the ExpressLoad Header
;
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;		
;		Expanded_name		;must be setup
;		vol_size
;		partial_size
;		partial_offset		;all must be setup
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;====================================================================================================
	
		longa	on
		longi	on		
get_express_seg	proc
		with	data
		
		clc
		lda	header_buf.code_disp
		adc	#$0005			;Add in LConst over header
		clc
		adc	get_mark_list.pos
		tax
		lda	#$000
		adc	get_mark_list.pos+2
		tay
		lda	#absolute		;set the mark to the LConst please
		jsr	set_mark
		bcc	@its_there
		rts				;return the error
@its_there
		ldx	header_buf.image	;get the size of the disk image please
		stx	read_list.cnt
		ldy	header_buf.image+2
		sty	read_list.cnt+2
;
;Now we need to add in the pathname overhead + link field overhead
;
		lda	vol_size		;see if the volume name is larger then 40 characters
		cmp	#max_vol+1
		bcc	@vol_ok
		lda	#$0001			;error
		rts
@vol_ok
		clc
		lda	#max_vol		;add in volume buffer size
		adc	partial_size		;add in partial pathname size
		clc
		adc	#extra_header+2		;add in extra header size + two for vol and partial 
		clc				; length bytes.
		adc	header_buf.image	;add in ExpressLoad segment size
		tax				;save request count low
		lda	#$0000
		adc	header_buf.image+2
		tay				;save request count high
		
		jsr	alloc_ExpLoad		;get enough memory to hold segment
		bcc	@have_mem
		rts
@have_mem
		stx	ExpressHandle		;handle to Express Segment
		stx	temp_handle
		sty	ExpressHandle+2
		sty	temp_handle+2
		ldy	#$0002
		lda	[temp_handle]		;clear the link field etc.
		sta	base_ptr
		lda	[temp_handle],y
		sta	base_ptr+2
		
		ldy	#extra_header
		lda	#$0000			;clear the buffer
@clr_loop
		sta	[base_ptr],y
		dey
		bpl	@clr_loop

;
;Lets go ahead and add the Express Segment into the User ID table
;
		lda	user_id			;this is the ID to use
		jsr	add_user_id		;temp_ptr setup by Add_User_ID
		bcc	@id_added
		rts				;return the error
@id_added
		ldy	#$0002			;save the Handle to the ExpressSegment
		lda	ExpressHandle
		sta	[temp_ptr],y
		iny
		iny
		lda	ExpressHandle+2
		sta	[temp_ptr],y

		jsr	make_het_ptr		;temp_ptr will point to the link field (HET_ptr-4)		
		jsr	read_wBuf_ptr		;make the read call please
		bcc	@I_love_it
		rts
@I_love_it
		ldx	temp_ptr		;pass in pointer to ExpressSegment link field
		ldy	temp_ptr+2
		jsr	store_pathname		;store the pathname in the ExpressLoad segment
		jsr	save_ref_num		;save the files reference number.
		clc
		rts

		eject
;====================================================================================================
;
;This routine will add in the pathname stored in Expanded_name to the ExpressLoad segment.
;
;Input:         A = undefined
;               X = Points to the ExpressLoad segment link field
;               Y = Points to the ExpressLoad segment link field
;               P = nvmxdizc
;                   ..000...
;               b = k
;		
;		Expanded_name		;must be setup
;		base_ptr
;		vol_size
;		partial_size
;		partial_offset		;all must be setup
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;Uses:		
;
;====================================================================================================

store_pathname
		clc
		txa
		adc	read_list.cnt		;build a pointer to the Volume Name Buffer
		sta	super_ptr		;another temp pointer
		tya	
		adc	read_list.cnt+2
		sta	super_ptr+2		;super_ptr now points past the ExpressLoad segment
;
;This entry point is used by rename call
;
		export	store_new_name
store_new_name
		ldx	#$0001
		ldy	#$0001
		lda	vol_size		;store the volume size (1 Byte)
		sta	[super_ptr]
@store_vol_loop
		lda	Expanded_name.name,x
		sta	[super_ptr],y
		iny
		inx
		cpx	vol_size		;see if we are done
		bcc	@store_vol_loop		;keep moving the name
		
		ldy	#seg_vol_offset		;index to offset field (relative offset is based
		sec				;from the beginning of the segment)
		lda	super_ptr
		sbc	base_ptr
		sta	[base_ptr],y
		iny
		iny
		clc
		adc	#max_vol		;offset to partial
		sta	[base_ptr],y		;save partial offset
		
		clc
		lda	super_ptr
		adc	#max_vol
		sta	super_ptr		;build a pointer to the partial buffer
		lda	super_ptr+2
		adc	#$0000
		sta	super_ptr+2
		
		ldx	partial_offset		;start of the partial name
		ldy	#$0001
		lda	partial_size		;store the volume size (1 Byte)
		sta	[super_ptr]
		longa	off
		sep	#$20			;8 bit mode
@store_part_loop
		lda	Expanded_name.name,x
		sta	[super_ptr],y
		inx
		iny
		cpy	partial_size		;see if we are done
		bcc	@store_part_loop	;keep moving the name
		beq	@store_part_loop
		longa	on
		rep	#$20			;16 bit mode
		rts
		
		endp

		eject
;====================================================================================================
;close_dynamic_file:	This routine will close the load file if the file is still open
;
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;		
;		ExpressHandle
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error if any
;               b = k
;
;
;====================================================================================================

		longa	on
		longi	on
close_dynamic_file	proc		
		with	data
		import	close_load_file
		
		pei	temp_ptr		;save temp pointer please
		pei	temp_ptr+2
		
		ldy	#$0002
		clc
		lda	[ExpressHandle]
		adc	#extra_header		;load ExpressSegment past Extra Header
		sta	temp_ptr		;temp now points the link field
		lda	[ExpressHandle],y
		adc	#$0000
		sta	temp_ptr+2
		
		lda	[temp_ptr]		;see if there is reference number.
		bne	@do_close		;yes we must close the file
		bra	@exit			;accumulator already 0 here!

@do_close
		sta	open_list.ref_num	;setup the reference number for closing
		lda	#$0000			;zero the reference number in ExpressSegment
		sta	[temp_ptr]

		jsr	lock_handles
		jsl	$e100a8			;get the current system preferences
		dc.w	$200F
		dc.l	preference_list
;
;Save the current user's preference please
;
		lda	preference_list.sys_prefs
		sta	preference_list.users_prefs
;
;Now ask the operating system to put up a mount dialog when I ask for a disk
;
		lda	#$C000			;ask the OS to put up the mount dialog
		sta	preference_list.sys_prefs
		
		jsl	$e100a8
		dc.w	$200C			;set the system preference
		dc.l	preference_list
		jsr	unlock_handles
		
		jsr	close_load_file		;close the file please

		lda	preference_list.users_prefs
		sta	preference_list.sys_prefs
		jsr	lock_handles
		jsl	$e100a8
		dc.w	$200C			;restore the caller's system preference
		dc.l	preference_list
		jsr	unlock_handles
@exit
		plx
		stx	temp_ptr+2
		plx
		stx	temp_ptr
		cmp	#$0001
		rts				;exit with error if any
		endp
		
		eject
;====================================================================================================
;close_load_file:	This routine will close the load file and restore the caller's sys_prefs
;
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;		
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error if any
;               b = k
;
;
;====================================================================================================

		longa	on
		longi	on
close_load_file	proc
		with	data
		
		lda	ExpressHandle		;see if there is an ExpressSegment for this file.
		ora	ExpressHandle+2
		beq	@do_close		;There is no Segment associated with the file.
		
		ldy	#$0002
		clc
		lda	[ExpressHandle]
		adc	#extra_header		;load ExpressSegment past Extra Header
		sta	temp_ptr		;temp now points the reference number field
		lda	[ExpressHandle],y
		adc	#$0000
		sta	temp_ptr+2
		
		lda	[temp_ptr]		;see if there is reference number.
		beq	@do_close		;there is no reference number with the segment so
						;go ahead and close the file they want.
		lda	#$0000
		clc
		bra	@do_preference		;No error and I am not going to close the file
						;since the file contains Dynamic Segments I will
						;leave the file open.
		
@do_close
		
		jsr	lock_handles
		jsl	$e100a8
		dc.w	$14			;GS/OS close command
		dc.l	open_list.ref_num
		jsr	unlock_handles
;
;Save the error code and statue from the close call while I restore the user's system preferences
;
@do_preference
		pha
		php
		stz	file_open		;file is now closed
		jsr	reset_local_mark	;our local mark is invalid
 if 0 then
		lda	preference_list.users_prefs
		sta	preference_list.sys_prefs
		jsr	lock_handles
		jsl	$e100a8
		dc.w	$200C			;restore the caller's system preference
		dc.l	preference_list
		jsr	unlock_handles
 endif
		plp
		pla				;restore the close error if any
		rts
		endp
		
		eject
;====================================================================================================
;Open_load_file:	This routine will open the load file and verify the storage type
;
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;		
;		pathname pointer must be setup
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;               b = k
;
;
;====================================================================================================

		longa	on
		longi	on
open_load_file	proc
		with	data
		
;
;Now before I open the file let me see If I have a Reference number for it already.
;
		lda	ExpressHandle		;see if there is an ExpressSegment for this file.
		ora	ExpressHandle+2
		beq	@do_open		;There is no Segment associated with the file.
;
;There is an Active Segment so lets see if we have the reference number
;
		ldy	#$0002
		clc
		lda	[ExpressHandle]
		adc	#extra_header		;load ExpressSegment past Extra Header
		sta	temp_ptr		;temp now points the reference number field
		lda	[ExpressHandle],y
		adc	#$0000
		sta	temp_ptr+2
		
		lda	[temp_ptr]		;see if there is reference number.
		beq	@do_open		;There is no reference number so lets open the file
		sta	open_list.ref_num	;save the reference number
		lda	#app_type		;setup the file type also
		sta	open_list.file_type
		bra	@opened			;say that we already opened the file.
		
@do_open	
		jsr	lock_handles

		jsl	$e100a8			;get the current system preferences
		dc.w	$200F
		dc.l	preference_list
;
;Save the current user's preference please
;
		lda	preference_list.sys_prefs
		sta	preference_list.users_prefs
;
;Now ask the operating system to put up a mount dialog when I ask for a disk
;
		lda	#$C000			;ask the OS to put up the mount dialog
		sta	preference_list.sys_prefs
		
		jsl	$e100a8
		dc.w	$200C			;set the system preference
		dc.l	preference_list

		jsl	$e100a8			;do a get level call to get the current level
		dc.w	$201B
		dc.l	level_list		;get the level

		lda	level_list.curr_level
		sta	level_list.hold_level	;save the current level
		lda	#my_level
		sta	level_list.curr_level
		
		jsl	$e100a8			;do a get level call to get the current level
		dc.w	$201A			;set the current level
		dc.l	level_list		;get the level
		
		jsl	$e100a8			;call GS/OS
		dc.w	$2010			;class 1 open call
		dc.l	open_list
		pha
		php
		
		lda	level_list.hold_level	;restore the saved level
		sta	level_list.curr_level

		jsl	$e100a8			;do a get level call to get the current level
		dc.w	$201A			;set the current level
		dc.l	level_list		;get the level

		lda	preference_list.users_prefs
		sta	preference_list.sys_prefs
		jsl	$e100a8
		dc.w	$200C			;restore the caller's system preference
		dc.l	preference_list
		jsr	unlock_handles

		plp
		pla
		bcs	@oops			;return the error to the caller
@opened
		stz	local_mark
		stz	local_mark+2		;we are at the beginning of the file.
		lda	open_list.ref_num	;setup the reference number
		sta	read_list.ref_num
		sta	get_mark_list.ref_num
		sta	set_mark_list.ref_num
		sta	eof_list.ref_num
		lda	#$0001			;indicate that the file is open
		sta	file_open
		
		lda	open_list.file_type
		cmp	#app_type
		bcc	@no_way
		cmp	#$00BD+1		;max file type that we support
		bcc	@chk_length
		cmp	#$C7			;is it a CDev file?
		bne	@no_way			;nope, can't be a load file
@chk_length
		jsr	lock_handles		;lock the handles around the OS call
		jsl	$E100A8			;Call GS/OS
		dc.w	$2019			; GetEOF
		dc.l	eof_list
		jsr	unlock_handles
		bcs	@oops
		lda	eof_list.eof		;is there anything in the file?
		ora	eof_list.eof+2
		bne	@oops			;actually no error
@no_way
		lda	#not_load_file		;Incompatible file format
		sec
@oops
		rts				;return error
		endp
		
		eject
;====================================================================================================
;conv_attributes:	This routine will convert the attributes in the segment header to
;			memory manager attributes
;
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;		
;		HET_Entry_ptr			;must be setup
;		Seg_header_ptr			;must be setup
;
;Output:        A = Memory Manager Attributes
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;====================================================================================================

mm_attr_tbl	record

;Attr_Locked	1 = segment is locked when allocated
;Attr_fixed	1 = segment can't move while it is in memory 
;attr_no_cross	1 = segment may not cross a bank boundary
;attr_no_spec	1 = segment may not use special memory
;attr_page	1 = segment will be page aligned
;attr_addr	1 = segment will remain at fixed address
;attr_bank	1 = segment must remain in fixed bank

		dc.w	attr_locked+attr_fixed+attr_no_cross
		dc.w	attr_locked+attr_fixed+attr_no_cross+attr_bank
		dc.w	attr_locked+attr_fixed+attr_no_cross+attr_no_spec
		dc.w	attr_locked+attr_fixed+attr_no_cross+attr_no_spec+attr_bank
		dc.w	attr_locked+attr_no_cross
		dc.w	attr_locked+attr_no_cross+attr_bank
		dc.w	attr_locked+attr_no_cross+attr_no_spec
		dc.w	attr_locked+attr_no_cross+attr_no_spec+attr_bank
		
		dc.w	attr_locked+attr_fixed
		dc.w	attr_locked+attr_fixed+attr_bank
		dc.w	attr_locked+attr_fixed+attr_no_spec
		dc.w	attr_locked+attr_fixed+attr_no_spec+attr_bank
		dc.w	attr_locked
		dc.w	attr_locked+attr_bank
		dc.w	attr_locked+attr_no_spec
		dc.w	attr_locked+attr_no_spec+attr_bank
		endr
		
		
		longa	on
		longi	on		
conv_attributes	proc
		with	data
		
		ldy	#seg_kind_offset	;get the segment kind
		lda	[seg_header_ptr],y
		sta	seg_kind		;save the word for later
		xba				;get the segment attributes
		lsr	a
		lsr	a
		lsr	a			;move abs. bank, special mem, and pos. independent
		and	#$0007			;clear other garbage
		sta	mm_attr
;
;If the bank size = $10000 then we must set the no_cross bit in the attribute
;
		ldx	#$0008			;default is can cross
		ldy	#bank_size_offset	;get the bank size please
		lda	[seg_header_ptr],y
		bne	@can_cross		;it must be able to cross
		iny
		iny
		lda	[seg_header_ptr],y	;get the high please
		beq	@can_cross		;we can cross bank boundaries
		ldx	#$0000		
;
;now we get the memory manager attributes
;
; We have now handled the following bits:
;
;	(1)	absolute Bank
;	(2)	special Memory
;	(3)	position independent
;	(4)	bank crossing
;
@can_cross
		txa
		ora	mm_attr
		asl	a
		tax
		lda	mm_attr_tbl,x		;get the correct atributes for memory manager
;
;We still need to handle the following things:
;
;	(1)	Purge Level	(3 for dynamics)
;	(2)	Alignment 	(page and Bank)
;	(3)	Org 		(fixed address)
		
		ldx	seg_kind
		bpl	@its_static		;this is a static segment
		ora	#purge_level_3		;set the purge level to three for dynamics
@its_static
		sta	mm_attr
		
		ldx	#attr_Page		;default is page aligned
		ldy	#align_offset		;offset to the alignment field
		lda	[seg_header_ptr],y
		beq	@align_high
		cmp	#257
		bcc	@set_aligned		;align to a page boundary
		ldx	#attr_bank_align	;force bank alignment
		bra	@set_aligned
@align_high
		iny
		iny
		ldx	#attr_bank_align	;force bank alignment
		lda	[seg_header_ptr],y
		beq	@do_org			;there is no alignment
@set_aligned
		txa
		tsb	mm_attr			;add in the alignment bit
@do_org
		ldy	#org_offset		;offset to segment org
		lda	[seg_header_ptr],y
		sta	org_address
		iny
		iny
		lda	[seg_header_ptr],y
		sta	org_address+2
		ora	org_address
		beq	@no_org

		lda	org_address		;if the low byte is non-zero then fixed attr = true
		bne	@do_fixed_addr
		lda	seg_kind		;see if this is a absolute bank segment
		and	#kind_abs_bank
		bne	@no_org			;This is absolute bank but not fixed address
		
@do_fixed_addr
		lda	#attr_addr		;block must remain at fixed addr
		tsb	mm_attr
@no_org
		lda	seg_kind		;see if this is an absolute Bank only
		tay
		and	#kind_bank_bit		;see if this segment is aligned in any bank
		beq	@not_aligned_in_bank
		
		lda	mm_attr
		ora	#attr_align_in_bank	;segment is aligned within the bank
		sta	mm_attr
		
;
;Now we need to handle the direct page / stack segment
;
@not_aligned_in_bank
		tya
		bit	#kind_abs_bank		;absolute bank segment?
		bne	@is_abs			;yes, allow special memory
		and	#kind_only		;clear attributes
		cmp	#dp_seg_type		;DP/Stack segment?
		bne	@no_stack		;no, conditionalize special memory bit
		
		lda	mm_attr
		ora	#attr_page+attr_bank	;fixed bank and page aligned
		sta	mm_attr
		rts				;skip special memory flag

@is_abs
		lda	mm_attr			;must return attributes in accumulator
		and	#Åattr_no_spec
		sta	mm_attr
		rts

@no_stack
		lda	mm_attr
		ldx	spec_mem_flag		;check the special memory flag
		beq	@skip_spec
		ora	#attr_no_spec		;sorry bud no special memory for you
		sta	mm_attr
		
@skip_spec
		rts
		endp
		
		eject
;====================================================================================================
;reset_jmp_tables:	This routine will mark all jump table segments as unloaded for a given
;			user id
;
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;		
;		ExpressHandle		;must be setup
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;               b = k
;
;
;====================================================================================================
	
		longa	on
		longi	on		
reset_jmp_tables	proc
		with	data
		
		lda	[HET_ptr]		;get the number of entries in table
		inc	a			;start from the last segment
		inc	a
		tax
@search_loop
		txa				;pass in the segment number
		beq	@end_reset		;sorry there is no segment by this name
		phx
		jsr	setup_seg_ptrs		;we are now in business
		ldy	#flags_offset		;see if this is a jump segment
		lda	[HET_Entry_ptr],y
		and	#jmp_type
		beq	@not_jump
		jsr	clr_table		;clear this segment
@not_jump
		plx
		dex				;back off by one and try again
		cpx	#$0001
		bne	@search_loop
@end_reset	
		clc
		rts
clr_table
		ldy	#handle_offset

		lda	[HET_Entry_ptr],y
		sta	temp_handle
		iny
		iny
		lda	[HET_Entry_ptr],y
		sta	temp_handle+2

		ldy	#$0002			;point to the first entry in table
		clc
		lda	[temp_handle]
		adc	#seg_jmp_start
		sta	temp_ptr
		lda	[temp_handle],y
		adc	#$0000
		sta	temp_ptr+2
@loop
		ldy	#$0002			;see if we are done
		lda	[temp_ptr],y
		beq	@done
		
		lda	user_id			;see if this is the user ID
		cmp	[temp_ptr]
		bne	@next_entry
		
		ldy	#$000A			;index to the JSL instruction
		lda	jump_load_instr		;store the Jump Load Instruction
		sta	[temp_ptr],y
		iny
		iny
		lda	jump_load_instr+2
		sta	[temp_ptr],y
@next_entry
		clc
		lda	temp_ptr
		adc	#jmp_entry_size		;size of one entry
		sta	temp_ptr
		lda	temp_ptr+2
		adc	#$0000
		sta	temp_ptr+2
		bra	@loop
@done
		rts
		endp
		
		eject
;====================================================================================================
;Make_Purgable:	This routine will make segment purgable and unlocked
;
;
;Input:         A = segment_number
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;		
;		ExpressHandle		;must be setup
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;               b = k
;
;
;====================================================================================================
	
		longa	on
		longi	on		
Make_Purgable	proc
		with	data

		sta	search_seg		;segment we need to nuke
		jsr	make_HET_ptr
		lda	search_seg
		jsr	setup_seg_ptrs		;point to the entry please

		ldy	#flags_offset		;see of it is loaded
		lda	[HET_entry_ptr],y
		bmi	@do_it
@no_seg		lda	#seg_not_found		;seg_not_found
		sec
		rts
@do_it
		ldy	#handle_offset		;lets get the handle
		lda	[HET_entry_ptr],y
		tax
		iny
		iny
		lda	[HET_entry_ptr],y
		tay
		bne	@have_handle
		txa
		beq	@no_Seg
@have_handle
		pea	$0003			;make it purgable
		phy
		phx				;push the handle
		
		stx	temp_handle
		sty	temp_handle+2		;handle to the segment
		ldy	#$0004			;lets unlock this puppy
		lda	[temp_handle],y
		and	#$7FFF
		sta	[temp_handle],y

		ldy	#flags_offset		;mark this segment as Purgable
		lda	[HET_entry_ptr],y
		ora	#$0001
		sta	[HET_Entry_ptr],y	;segment is now marked purgable

		jsr	reset_jmp_tables	;go and reset the jump tables for this ID		
		
		ldx	#$2402			;SetPurgeLevel
		jsl	$e10000
		rts				;return any error
		endp

		eject
;====================================================================================================
;purge_all_dyn:	This routine will mark all dynamic segments as purgable
;
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;		
;		ExpressHandle		;must be setup
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;               b = k
;
;
;====================================================================================================
	
		longa	on
		longi	on		
purge_all_dyn	proc
		with	data


		lda	[HET_ptr]		;get the number of entries in table
		inc	a			;start from the last segment
		inc	a
		tax
@search_loop
		txa				;pass in the segment number
		beq	@end_purge		;sorry there is no segment
		phx
		jsr	setup_seg_ptrs		;we are now in business

		ldy	#seg_kind_offset	;lets check the kind please
		lda	[seg_header_ptr],y
		bpl	@skip_it		;skip the segment if it is not dynamic
		
		ldy	#flags_offset		;mark this segment as Purgable
		lda	[HET_entry_ptr],y
		bpl	@skip_it		;the segment is already unloaded
		
		lda	1,s			;get the seg number
		jsr	make_purgable
@skip_it
		plx
		dex				;back off by one and try again
		cpx	#$0001
		bne	@search_loop
@end_purge
		clc
		rts
		endp
		
		eject
;====================================================================================================
;mark_all_purgable:	This routine will mark all segments as purgable
;
;
;Input:         A =undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;		
;		ExpressHandle		;must be setup
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;               b = k
;
;
;====================================================================================================
	
		longa	on
		longi	on		
mark_all_purgable	proc
		with	data


		lda	[HET_ptr]		;get the number of entries in table
		inc	a			;start from the last segment
		inc	a
		tax
@search_loop
		txa				;pass in the segment number
		beq	@end_purge		;sorry there is no segment
		phx
		jsr	setup_seg_ptrs		;we are now in business
		lda	1,s			;get the seg number
		jsr	mark_purged
@skip_it
		plx
		dex				;back off by one and try again
		cpx	#$0001
		bne	@search_loop
@end_purge
;
;		 unlock	all load segments
;
		lda	User_ID			;push the User ID
		pha
		ldx	#$2302
		jsl	$e10000			
;		_HUnlockAll

;
;		 purge all other dynamic segments
;
		lda	User_ID			;push the User ID
		pha
		ldx	#$1302
		jsl	$e10000
		
;		_PurgeAll
;
;		 make all static segments purgeable
;
		pea	$0003			;Purge Level
		lda	User_ID			;push the User ID
		pha
		ldx	#$2502
		jsl	$e10000

;		push	#3			;PurgeLevel
;		push	OUserID			;Owner
;		_SetPurgeAll

		clc
		rts


mark_purged
		sta	search_seg		;segment we need to nuke
		jsr	make_HET_ptr
		lda	search_seg
		jsr	setup_seg_ptrs		;point to the entry please

		ldy	#flags_offset		;see of it is loaded
		lda	[HET_entry_ptr],y
		bmi	@do_it
@no_seg		lda	#seg_not_found		;seg_not_found
		sec
		rts
@do_it
		ldy	#handle_offset		;lets get the handle
		lda	[HET_entry_ptr],y
		tax
		iny
		iny
		lda	[HET_entry_ptr],y
		tay
		bne	@have_handle
		txa
		beq	@no_Seg
@have_handle
		
		stx	temp_handle
		sty	temp_handle+2		;handle to the segment
		ldy	#$0004			;lets unlock this puppy
		lda	[temp_handle],y
		and	#$7FFF
		sta	[temp_handle],y

		ldy	#flags_offset		;mark this segment as Purgable
		lda	[HET_entry_ptr],y
		ora	#$0001
		sta	[HET_Entry_ptr],y	;segment is now marked purgable

		jsr	reset_jmp_tables	;go and reset the jump tables for this ID
		clc
		rts		
		endp
		
		eject
;====================================================================================================
;lock_statics:	This routine will check and see if all the static segments are loaded.  It will
;		also lock all the static segments that it finds.  If any of the static segments
;		have been purged the routine will error out with the carry set
;
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;		
;		ExpressHandle		;must be setup
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error all static segments are not loaded
;               b = k
;
;
;====================================================================================================
	
		longa	on
		longi	on		
lock_statics	proc
		with	data
		stz	temp_word		;If zero on exit then there were no static segments
		
		jsr	make_HET_ptr		;convert ExpressHandle into pointers
		
		lda	[HET_ptr]		;get the number of entries in table
		inc	a			;start from the last segment
		inc	a
		tax
@search_loop
		txa				;pass in the segment number
		beq	@end_lock		;sorry there is no segment
		phx
		jsr	setup_seg_ptrs		;setup pointer to the Header Entry
		jsr	lock_it
		plx
		bcs	@error_out
		dex				;back off by one and try again
		cpx	#$0001
		bne	@search_loop
@end_lock
		lda	temp_word		;see if we encountered any static segments
		beq	@error_out
		clc
		rts
@error_out
		sec				;sorry there are no static segments or not all
						;segments are still in memory
		rts
lock_it
		ldy	#flags_offset		;first lets see if this is a static segment
		lda	[het_entry_ptr],y
		and	#stat_type
		beq	@not_static		;its not static so we do not care about the segment
		
		sta	temp_word		;this is used as a flag to indicate that there are
						;static segments that can be locked
		ldy	#handle_offset		;now lets see if the segment has been purged
		lda	[het_entry_ptr],y
		tax
		iny
		iny
		lda	[het_entry_ptr],y
		tay
		bne	@handle_OK
		txa
		bne	@handle_OK
		sec
		rts				;the handle is scewed up
@handle_OK
		stx	temp_handle
		sty	temp_handle+2
		ldy	#$0002
		lda	[temp_handle]
		tax
		lda	[temp_handle],y		;get the address please
		tay
		bne	@handle_valid
		txa
		bne	@handle_valid		;the handle is still good
		sec
		rts
@handle_valid
		ldy	#$0004			;now lets lock the handle please
		lda	[temp_handle],y
		ora	#$8000			;set the lock bit
		sta	[temp_handle],y
		
		pea	#$0000			;set the purge level to zero
		pei	temp_handle+2
		pei	temp_handle
		ldx	#$2402			;SetPurge call to the memory manager
		jsl	$e10000			;call the tool locator
		rts				;carry is set based on the call.
		
@not_static
		clc
		rts
		endp
		
		eject
;====================================================================================================
;lock_segment:	This routine will make segment purgable and locked
;
;
;Input:         A = segment_number
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;		
;		ExpressHandle		;must be setup
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;               b = k
;
;
;====================================================================================================
	
		longa	on
		longi	on		
lock_segment	proc
		with	data

		sta	search_seg		;segment we need to lock
		jsr	make_HET_ptr
		lda	search_seg		;segment we need to lock
		jsr	setup_seg_ptrs		;point to the entry please

		ldy	#flags_offset		;see of it is loaded
		lda	[HET_entry_ptr],y
		lsr	a
		bcs	@do_it			;yep the segment is unlocked
		clc
		rts
@do_it
		ldy	#handle_offset		;lets get the handle
		lda	[HET_entry_ptr],y
		tax
		iny
		iny
		lda	[HET_entry_ptr],y
		tay
		bne	@have_handle
		txa
		beq	@no_Seg
@have_handle
		phy
		phx				;push the handle
		
		stx	temp_handle
		sty	temp_handle+2		;handle to the segment
		
		ldy	#$0002			;deref the handle to see if it is nill
		lda	[temp_handle]
		tax
		lda	[temp_handle],y
		tay
		bne	@lock_it
		txa
		bne	@lock_it
		
		ldy	#flags_offset		;mark segment as gone
		lda	#$0000
		sta	[HET_entry_ptr],y
		ldy	#handle_offset
		sta	[HET_entry_ptr],y
		iny
		iny
		sta	[HET_entry_ptr],y	;zero the handle also
		
		jsr	clear_handles		;clear local copy of handle
		ldx	#$1002			;dispose handle
		jsl	$e10000
		stz	temp_handle
		stz	temp_handle+2		;Temp Handle is not valid
@no_seg
		lda	#seg_not_found
		sec
		rts				;indicate segment is gone
		
@lock_it	ldy	#$0004			;lets lock this puppy
		lda	[temp_handle],y
		ora	#$8000
		sta	[temp_handle],y

		ldy	#flags_offset		;mark this segment as locked
		lda	[HET_entry_ptr],y
		and	#$FFFE			;clear the Unlocked Bit
		sta	[HET_Entry_ptr],y	;segment is now marked purgable
		plx
		ply
		clc				;indicate segment is safely locked down
		rts
		endp
		
		eject
;====================================================================================================
;load_segment:	This routine will load a segment into memory
;
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;		
;		HET_Entry_ptr			;must be setup
;		Seg_header_ptr			;must be setup
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;====================================================================================================
	
		longa	on
		longi	on		
load_segment	proc
		with	data
		
		
		stz	reloc_handle
		stz	reloc_handle+2
		ldy	#reloc_dict_offset	;set handle to zero
		lda	#$000
		sta	[seg_header_ptr],y
		iny
		iny
		sta	[seg_header_ptr],y
		
		jsr	conv_attributes		;convert the attributes to something useful
;
;On exit conv_attributes sets A to memory manager Attributes
;
		sta	mem_attr
		
		ldy	#$0002
		lda	[seg_header_ptr]
		tax
		lda	[seg_header_ptr],y
		tay
		lda	#absolute
		jsr	set_mark
		bcc	@mark1_set
@oops		rts				;return the error
@mark1_set
		ldy	#seg_size_offset	;now lets get the size of the segment
		lda	[seg_header_ptr],y
		sta	read_list.cnt
		sta	LConst_size
		iny
		iny
		lda	[seg_header_ptr],y	;get the high count
		sta	read_list.cnt+2
		sta	LConst_Size+2
;
;Now lets see if we already have memory.  We will have memory if we are reloading a restart segment
;
		ldy	#handle_offset		;see if we already have the memory segment
		lda	[het_entry_ptr],y
		tax
		iny
		iny
		lda	[het_entry_ptr],y
		tay
		bne	@skip_alloc		;we already have the memory
		txa
		bne	@skip_alloc		;this must be a restart call

		lda	seg_kind		;what kind of segment is it?
		bit	#kind_abs_bank		;absolute bank segment?
		bne	@just_allocate		;yes, use attributes as is
		and	#kind_only
		cmp	#dp_seg_type		;is it a DP segment?
		beq	@just_allocate		;yes, so we HAVE to allow special memory
		lda	mem_attr		;get the original attributes
		pha				;save 'em
		ora	#attr_no_spec		;set the 'no-special-memory' bit
		sta	mem_attr
@try_again
		ldx	read_list.cnt
		ldy	read_list.cnt+2		;load the number of bytes to allocate for the segment
		jsr	alloc_lconst_seg	;allocate the memory for the segment
		bcs	@had_error
		pla				;restore original attributes
		sta	mem_attr
		bra	@skip_alloc		;all is fine, continue

@had_error
		plx				;retrieve original attributes
		tay				;save error code
		lda	mem_attr		;get the attributes we just used
		and	#$0008			;did we allow special memory?
		beq	@oops2			;yes, and still had a problem!
		txa				;get the original attributes
		and	#$0008			;did they allow special memory?
		bne	@oops2			;no, don't override their wishes
		stx	mem_attr		;restore original attributes
		phx				;back on stack
		bra	@try_again		;go back and try to allocate again

@oops2
		tya				;restore error code
		bra	@oops			;and exit

@just_allocate
		ldx	read_list.cnt
		ldy	read_list.cnt+2		;load the number of bytes to allocate for the segment
		jsr	alloc_lconst_seg	;allocate the memory for the segment
		bcs	@oops
@skip_alloc
		stx	temp_handle
		stx	seg_handle
		sty	temp_handle+2
		sty	seg_handle+2
		
		ldy	#handle_offset		;update the handle address in HET entry
		txa
		sta	[HET_entry_ptr],y
		lda	temp_handle+2
		iny
		iny
		sta	[HET_entry_ptr],y
		
		ldy	#$0002			;deref the handle please
		lda	[temp_handle]
		sta	base_ptr		;address of the image
		tax
		lda	[temp_handle],y
		sta	base_ptr+2
		tay
		
		jsr	read_wBuf_ptr		;read in the segment please
		bcc	@add_seg_offset
		rts
@add_seg_offset
		jsr	add_segment_offset	;add seg offset to base_ptr return value in X&Y

		entry	load_reloc_dict
load_reloc_dict					;go ahead and load the relocation dictionary
;
;Now lets do the relocation dictionary
;
		ldy	#reloc_mark_offset
		lda	[seg_header_ptr],y
		tax
		iny
		iny
		lda	[seg_header_ptr],y
		tay
		bne	@data_avail
		txa
		beq	@its_loaded
@data_avail
		lda	#absolute
		jsr	set_mark
		bcc	@mark2_set
		rts				;return the error
@mark2_set
		ldy	#reloc_size_offset	;now lets get the size of the segment
		clc
		lda	[seg_header_ptr],y
		adc	#$0001
		sta	read_list.cnt
		tax
		iny
		iny
		lda	[seg_header_ptr],y	;get the high count
		adc	#$0000
		sta	read_list.cnt+2
		tay

		lda	read_list.cnt		;check for a zero length relocation dictionary
		dec	a
		ora	read_list.cnt+2
		beq	@its_loaded
		
		jsr	alloc_mem		;allocate the memory for the segment
		stx	temp_handle
		stx	reloc_handle
		sty	temp_handle+2
		sty	reloc_handle+2
		
		ldy	#reloc_dict_offset	;save handle to relocation dictionary
		lda	temp_handle
		sta	[seg_header_ptr],y
		iny
		iny
		lda	temp_handle+2
		sta	[seg_header_ptr],y
		
		ldy	#$0002			;deref the handle please
		lda	[temp_handle]
		tax
		lda	[temp_handle],y
		tay
		
		jsr	read_wBuf_ptr		;read in the segment please
		bcc	@its_loaded
		rts
@its_loaded
		ldy	#flags_offset
		lda	[het_entry_ptr],y
		ora	#$8000			;mark segment loaded
		sta	[het_entry_ptr],y
		
		lda	seg_kind
		and	#kind_only		;lets see if this is a jump table segment
		cmp	#jmp_tbl_seg
		bne	@not_jump
		jsr	patch_jmp_tbl		;we need to setup the jump table entries

		ldy	#flags_offset		;mark segment as a Jump Segment
		lda	[HET_Entry_ptr],y
		ora	#jmp_type
		sta	[HET_entry_ptr],y
@not_jump
		lda	seg_kind		;see if the segment is dynamic or static
		bmi	@its_dynamic
		ldy	#flags_offset		;set the static bit please
		lda	[HET_Entry_ptr],y
		ora	#stat_type
		sta	[HET_entry_ptr],y
@its_dynamic
		clc
		rts
patch_jmp_tbl
		clc
		lda	base_ptr		;please point to the first segment entry
		adc	#seg_jmp_start
		sta	temp_ptr
		lda	base_ptr+2
		adc	#$0000
		sta	temp_ptr+2		;point to the first entry
@loop
		ldy	#$0002			;see if we are done
		lda	[temp_ptr],y
		beq	@done
		
		lda	user_id			;save the ID please
		sta	[temp_ptr]
		
		ldy	#$000A			;index to the JSL instruction
		lda	jump_load_instr		;store the Jump Load Instruction
		sta	[temp_ptr],y
		iny
		iny
		lda	jump_load_instr+2
		sta	[temp_ptr],y
@next_entry
		clc
		lda	temp_ptr
		adc	#jmp_entry_size		;size of one entry
		sta	temp_ptr
		lda	temp_ptr+2
		adc	#$0000
		sta	temp_ptr+2
		bra	@loop
@done
		rts
		
		Export	add_segment_offset
add_segment_offset
		ldy	#seg_entry_offset	;See if this segment is the main segment
		lda	[seg_header_ptr],y
		tax
		iny
		iny
		lda	[seg_header_ptr],y	;get the high word
		tay
		bne	@Seg_offset_true	;we must override the first segment
		txa
		bne	@Seg_offset_true

		ldx	#$0000
		txy
@seg_offset_true
		clc
		txa				;get the low word of the offset
		adc	base_ptr
		sta	segment_entry
		tya				;get the high word of the segment offset
		adc	base_ptr+2
		sta	segment_entry+2
		rts
		endp

		eject
;====================================================================================================
;find_seg_name:	This routine will locate a segment by name
;
;
;Input:         A = undefined
;               X = low word pointer to name
;               Y = high word pointer to the name
;               P = nvmxdizc
;                   ..000...
;               b = k
;		
;		ExpressHandle		;must be setup
;
;Output:        A = segment number if found
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = segment not found
;               b = k
;
;
;====================================================================================================
	
		longa	on
		longi	on		
find_Seg_name	proc
		with	data
		
		stx	path_ptr
		sty	path_ptr+2		;segment name pointer
		
		jsr	Make_HET_ptr		;setup pointer to the Header Entry Table
		lda	[HET_ptr]		;get the number of entries in table
		inc	a			;start from the last segment
		inc	a
		tax
@search_loop
		txa				;pass in the segment number
		beq	@not_found		;sorry there is no segment by this name
		phx
		jsr	setup_seg_ptrs		;we are now in business
		jsr	compare_names		;see if this is the one
		bcc	@found_it		;we have located the correct segment
		plx
		dex				;back off by one and try again
		cpx	#$0001
		bne	@search_loop
@not_found
		sec
		rts				;segment is not in ExpressLoad header
		
@found_it	pla				;return the segment number
		clc
		rts				;return to the caller with the good news		
compare_names	
		clc
		ldy	#seg_name_disp		;get the displacement
		lda	[seg_header_ptr],y
		adc	#name_overhead
		clc
		adc	seg_header_ptr
		sta	temp_ptr
		lda	#$0000
		adc	seg_header_ptr+2
		sta	temp_ptr+2		;temp_ptr now points to the segment name (PString)
 if 0 then
;
;Special note:  For some reason, segment names may or may not have a length byte.
;		This means that I have to make a best guest as to the type of string.
;		If the first byte is less the $20 (Space) then I assume it is a length byte.
;
		lda	[temp_ptr]
		and	#$00ff
		cmp	#$0020
		bcc	@is_length		;there is a length byte
		
		lda	temp_ptr
		bne	@only_low
		dec	temp_ptr+2
@only_low	dec	a
		sta	temp_ptr		;point to one less then the name
		longa	off
		longi	off
		sep	#$30
		ldy	#$0001			;start counting characters
@count_loop
		lda	[temp_ptr],y
		cmp	#' '
		beq	@save_size
		iny
		bra	@count_loop
@save_size
		dey
		tya
		sta	[temp_ptr]		;opdate the length please
;
;now adjust the displacement so the string will always have a length
;
		ldy	#seg_name_disp		;get the displacement
		lda	[seg_header_ptr],y	;adjust the displacement for the next time
		dec	a
		sta	[seg_header_ptr],y
 else
		ldy	#lablen_offset		;offset to label length field in header
		lda	[seg_header_ptr],y	;get the value
		and	#$00ff			;it's only a byte wide
		beq	@is_length		;length is first byte of string (Pascal style)
		ldy	temp_ptr		;else decrement the string pointer
		bne	@only_low
		dec	temp_ptr+2
@only_low
		dec	temp_ptr
		sep	#$20			;8-bit store here
		sta	[temp_ptr]		;store the string length (from lablen)
		rep	#$20
 endif
@is_length
		longa	off
		longi	off
		sep	#$30
		lda	[path_ptr]		;get the length of the input name
		tay
		cmp	[temp_ptr]
		bne	@not_it			;the length is not the same
		
@compare_loop
		lda	[temp_ptr],y		;get the character
		cmp	#'a'
		bcc	@no_convert
		cmp	#'z'+1
		bcs	@no_convert
		and	#$DF			;convert to upper case
@no_convert
		cmp	[path_ptr],y		;see if the characters are the same
		beq	@check_next
		
		sta	temp_word		;save for compare
		lda	[path_ptr],y		;get char from callers area
		cmp	#'a'
		bcc	@not_it			;it cannot be the one
		cmp	#'z'+1
		bcs	@not_it
		and	#$DF			;convert to upper case
		cmp	temp_word
		bne	@not_it			;sorry wrong name
@check_next
		dey
		bne	@compare_loop		;keep looking
		rep	#$30
		clc
		rts				;We have found the segment!
		
@not_it
		rep	#$30
		sec
		rts
		
		endp
		
		eject
;====================================================================================================
;save_dp_info:	This routine will save the direct page address
;
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;		
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;====================================================================================================
	
		longa	on
		longi	on		
save_dp_info	proc
		with	data
		
		lda	segment_entry		;address of the stack direct page
		sta	stack_addr
		lda	LConst_size		;save the size please
		sta	stack_size
		rts
		
		endp

		eject
;====================================================================================================
;load_statics:	This routine will load all static segments
;
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;		
;		HET_ptr			;must be setup
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;====================================================================================================
	
		longa	on
		longi	on		
load_statics	proc
		with	data
		
		tsx				;save the stack pointer
		stx	stack
		
		stz	starting_addr
		stz	starting_addr+2
		stz	stack_addr		;there is no stack
		stz	stack_size
		
static_loop
		lda	#any_kind		;lets find all static segments that are left
		ldx	#static_only		;don't look at other bits
		ldy	#unloaded_state		;skip loaded segments
		jsr	find_segment		;do the search
		bcc	@another_seg
		clc
@oops		rts				;return with no error

@another_seg
		jsr	load_segment		;load the segment into memory
		bcs	@oops
		ldy	#seg_kind_offset	;lets see if this is a Stack/Direct Page segment
		lda	[seg_header_ptr],y	;If it is then save the correct Info.
		and	#kind_only
		cmp	#dp_seg_type		;lets find the stack seg please
		bne	@not_stack

		jsr	save_dp_info		;save stack and Direct page info
		bra	not_first		;even if it is skip it please
		
@not_stack	cmp	#init_seg_type		;is this an initilization segment?
		beq	run_init_seg		;go ahead and run the segment

		lda	starting_addr
		ora	starting_addr+2
		bne	not_first		;this is not the first segment
;
;If this is the first segment then save it's starting address so we can return it to the caller
;
		lda	segment_entry
		sta	starting_addr		;save the starting address that we will jump to
		lda	segment_entry+2
		sta	starting_addr+2
not_first
		lda	loaded_seg_num		;save the seg number
		pha
		jsr	static_loop
		bcs	fix_stack_abort		;exit if an error occurred
		pla
		jsr	process_reloc
		bcs	fix_stack_abort		;mjor problems
		rts
		
run_init_seg
		lda	loaded_seg_num		;the init segment we just loaded!
		jsr	process_reloc
		bcs	fix_stack_abort		;exit with the error

		lda	segment_entry		;address of the segment just loaded
		sta	self_mod+1
		lda	segment_entry+1
		sta	self_mod+2		;make a self modifing address to run init segment

		jsr	lock_handles
		tdc				;save my direct page
		pha
		lda	#$0000
		tcd				;set direct register to real zero page
self_mod	jsl	>$000000
		rep	#$30			;restore 16 bit mode
		pla				;restore direct register
		tcd
		phk
		plb				;set my bank please
		jsr	unlock_handles
		bra	static_loop		;load any other init segs please

fix_stack_abort
		ldx	stack
		txs				;restore the stack pointer please
		rts				;return the error to the caller
		endp

		eject
;====================================================================================================
;save_start:	This routine will save the starting address and stack info in the user_id_table
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;		user_id_ptr
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;               b = k
;
;
;====================================================================================================
	
		longa	on
		longi	on		
save_start	proc
		with	data

		ldy	#id_stack_addr		;save the address of the stack/direct page
		lda	stack_addr
		sta	[user_id_ptr],y
		ldy	#id_stack_size		;also save the size
		lda	stack_size
		sta	[user_id_ptr],y
		ldy	#id_start_addr
		lda	starting_addr		;save the starting address of the application
		sta	[user_id_ptr],y
		iny
		iny
		lda	starting_addr+2
		sta	[user_id_ptr],y
		clc
		rts
		entry	restore_start
restore_start

		ldy	#id_stack_addr		;get the address of the stack/direct page
		lda	[user_id_ptr],y
		sta	stack_addr
		ldy	#id_stack_size		;get save the size
		lda	[user_id_ptr],y
		sta	stack_size
		ldy	#id_start_addr
		lda	[user_id_ptr],y
		sta	starting_addr
		iny
		iny
		lda	[user_id_ptr],y
		sta	starting_addr+2
		clc
		rts
		endp
		
		eject
;====================================================================================================
;reload_restart:	This routine will scan the ExpressLoad segment looking for a restart segment
;		If any are found they will be loaded into the same address as they were before.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;		ExpressHandle
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;               b = k
;
;
;====================================================================================================
	
		longa	on
		longi	on		
reload_restart	proc
		with	data
		jsr	make_HET_ptr
		
		lda	[HET_ptr]		;get the number of entries in table
		inc	a			;start from the last segment
		inc	a
		tax
@search_loop
		txa				;pass in the segment number
		beq	@end_restarts		;sorry there is no segment
		phx
		sta	loaded_seg_num
		jsr	setup_seg_ptrs		;we are now in business
		jsr	do_restarts
@skip_it
		plx
		bcs	@restart_error
		dex				;back off by one and try again
		cpx	#$0001
		bne	@search_loop
@end_restarts
		clc
@restart_error
		rts
		
do_restarts
		ldy	#seg_kind_offset
		lda	[seg_header_ptr],y	;get the segment kind field to determine if this
		and	#reload_segment		;segment needs to be reloaded.
		beq	@not_reload
		jsr	load_restart		;major pain in the butt!
@not_reload
		clc
		rts

load_restart
		lda	file_open		;is the file already open?
		bne	@skip_open		;someone has already opened the file

		jsr	open_load_file		;open the file please
		bcs	@load_exit
@skip_open
		jsr	load_segment		;load the segment into memory
		bcs	@load_exit		;bad news
		lda	loaded_seg_num		;now relocate the segment
		jsr	process_reloc		;process the segment
@load_exit
		rts
		
		endp

		eject
;====================================================================================================
;reload_inits:	This routine will scan the ExpressLoad segment looking for init segments.  If it finds
;		an init segment it will pass control to that segment
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;		ExpressHandle
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;               b = k
;
;
;====================================================================================================
	
		longa	on
		longi	on		
reload_inits	proc
		with	data
		jsr	make_HET_ptr
		
		lda	[HET_ptr]		;get the number of entries in table
		inc	a			;start from the last segment
		inc	a
		tax
@search_loop
		txa				;pass in the segment number
		beq	@end_inits		;sorry there is no segment
		phx
		sta	loaded_seg_num
		jsr	setup_seg_ptrs		;we are now in business
		jsr	do_inits
@skip_it
		plx
		bcs	@init_error
		dex				;back off by one and try again
		cpx	#$0001
		bne	@search_loop
@end_inits
		clc
@init_error
		rts
		
do_inits
		ldy	#seg_kind_offset
		lda	[seg_header_ptr],y	;get the segment kind field to determine if this
		and	#kind_only
		cmp	#init_seg_type
		beq	@do_init_type
		clc
		rts
@do_init_type
		ldy	#handle_offset		;get the handle to the segment
		lda	[het_entry_ptr],y
		tax
		iny
		iny
		lda	[het_entry_ptr],y
		tay
		bne	@have_handle
		tax
		bne	@have_handle
		sec
		rts				;return the handle
@have_handle
		stx	temp_handle
		sty	temp_handle+2
		ldy	#$0001
		lda	[temp_handle]
		sta	self_mod+1
		lda	[temp_handle],y
		sta	self_mod+2
		jsr	lock_handles

		tdc				;save my direct page
		pha
		lda	#$0000
		tcd				;set direct register to real zero page
self_mod	jsl	>$000000
		rep	#$30			;restore 16 bit mode
		pla				;restore direct register
		tcd
		phk
		plb
		jsr	unlock_handles
		clc
		rts
		endp

		eject
;====================================================================================================
;jump_load:	This routine is used to load segments via the Jump Table
;
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;		On the stack is the return address of the routine that called me
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error	;If this happens I would be suprized
;               b = k
;
;
; Jump Table Entry
;
;		User_ID			2
;		Load_File Number	2
;		Load Segment Number	2
;		Load Segment Offset	4
;		JSL to Jump-table load	4
;
;====================================================================================================
	
		longa	on
		longi	on		
jump_load	proc
		with	data
;
; -------------
; Bank Register
; -------------
; Return addr
; -------------
;
		phb			;save the callers bank
		phk
		plb			;set my bank please		
;
; ----------------
; Processor Status
; ----------------
; Bank Register
; ----------------
; Return Address
; ----------------
; Return Address
; of main routine
; ----------------
;
		php			;save the m and x bits
		
		rep	#$30		;16 bit mode
		sta	save_a
		stx	save_x
		sty	save_y		;save apps registers
;
; ----------------
; Return Address
; of main routine
; ----------------
;
		plx			;get the processor status + Bank registe

		pla			;get the low word of the return address
		sta	starting_addr

		sep	#$20		;8 bit mode
		pla
		sta	starting_addr+2
		stz	starting_addr+3
		rep	#$20		;16 bit
;
; ----------------
; Processor Status
; ----------------
; Bank Register
; ----------------
; Return Address
; of main routine
; ----------------
		phx			;push back the processor status and bank register
;
; ----------------
; Direct Register
; ----------------
; Processor Status
; ----------------
; Bank Register
; ----------------
; Return Address
; of main routine
; ----------------
		phd				;save the apps direct register please

;
;Now we need to setup our stuff
;
		lda	my_dir_page		;setup my direct register
		tcd

		jsr	reset_local_mark

		sec
		lda	starting_addr		;build a pointer to the start of the info
		sbc	#jmp_entry_size-1
		sta	jmp_tbl_ptr
		lda	starting_addr+2
		sbc	#$0000
		sta	jmp_tbl_ptr+2		;temp_ptr points to Jump Table Entry
		
		lda	[jmp_tbl_ptr]		;get the user ID
		sta	user_id			;update the global User ID
		jsr	find_user_id
		bcc	@found_it
		lda	#User_id_err		;no way bud!! my system is messed up
		jsr	error_routine		;Time to go see Freddy (No Return)
@found_it
		ldy	#$0002			;get handle to the ExpressLoad segment
		lda	[temp_ptr],y
		sta	ExpressHandle
		iny
		iny
		lda	[temp_ptr],y
		sta	ExpressHandle+2
		
		ldy	#$0002			;check the load file number
		lda	[jmp_tbl_ptr],y
		dec	a
		beq	@good_file
		lda	#incompatible_err	;This file is not ExpressLoad compatible
		jsr	error_routine		;sorry no can do.
@good_file
		iny
		iny
		lda	[jmp_tbl_ptr],y		;get the segment we need to find
		sta	search_seg

		iny
		iny
		lda	[jmp_tbl_ptr],y		;get the relative offset
		sta	jmp_patch_value
		iny
		iny
		lda	[jmp_tbl_ptr],y
		sta	jmp_patch_value+2

		ldx	ExpressHandle
		ldy	ExpressHandle+2
		jsr	merge_path
		
		clc
		ldy	#$0002
		lda	[ExpressHandle]
		adc	#extra_header		;load ExpressSegment past Extra Header
		tax
		clc
		adc	#$0004			;pass the link field
		sta	HET_ptr			;header entry table pointer
		lda	[ExpressHandle],y
		tay
		adc	#$0000
		sta	HET_ptr+2
		
		lda	search_seg
		dec	a
		sec
		sbc	ExpressSeg_pos		;0 or 1
		
		asl	a
		asl	a
		asl	a			;times 8 for HET entry size
		
		inc	a			;add two to pass the segment count field
		inc	a

		clc
		adc	HET_ptr			;make a pointer to the Entry
		sta	HET_Entry_ptr		;pointer to the entry itself
		lda	#$0000
		adc	HET_ptr+2
		sta	HET_Entry_ptr+2		
;
;Build a pointer to the segment header itself
;
		clc
		lda	HET_entry_ptr		;add in relative address to segment
		adc	[HET_Entry_ptr]
		sta	seg_header_ptr
		lda	HET_Entry_ptr+2
		adc	#$0000
		sta	seg_header_ptr+2
;
;Now lets see if the segment is already loaded into memory
;
		ldy	#flags_offset
		lda	[het_entry_ptr],y
		bpl	@new_segment		;we must load the segment from disk
		lsr	a			;see if the segment is marked as purgable
		bcc	@its_locked
		lda	search_seg		;pass in the segment number please
		jsr	lock_segment		;go and lock this segment
		bcs	@new_segment		;we have to reload the segment from disk
@its_locked
		ldy	#handle_offset		;get the base address
		lda	[het_entry_ptr],y
		sta	temp_handle
		iny
		iny
		lda	[het_entry_ptr],y
		sta	temp_handle+2

		ldy	#$0002			;get the real address
		lda	[temp_handle]
		sta	base_ptr
		lda	[temp_handle],y
		sta	base_ptr+2
		bra	@do_patch			
@new_segment
		jsr	open_load_file		;open the puppy
		bcc	@got_it
@oops
		jsr	error_routine		;sorry no can do. (No Return)
@got_it		
		jsr	lock_handles
		jsl	$e100a8			;get the current system preferences
		dc.w	$200F
		dc.l	preference_list
;
;Save the current user's preference please
;
		lda	preference_list.sys_prefs
		sta	preference_list.users_prefs
;
;Now ask the operating system to put up a mount dialog when I ask for a disk
;
		lda	#$C000			;ask the OS to put up the mount dialog
		sta	preference_list.sys_prefs
		
		jsl	$e100a8
		dc.w	$200C			;set the system preference
		dc.l	preference_list
		jsr	unlock_handles
		
		jsr	load_segment		;load the segment into memory
		bcs	@oops
		lda	search_seg		;relocate the segment
		jsr	process_reloc

		lda	preference_list.users_prefs
		sta	preference_list.sys_prefs
		jsr	lock_handles
		jsl	$e100a8
		dc.w	$200C			;restore the caller's system preference
		dc.l	preference_list
		jsr	unlock_handles

		jsr	close_load_file		;close the file
@do_patch
		clc				;add in the offset field
		lda	base_ptr
		adc	jmp_patch_value
		sta	base_ptr
		lda	base_ptr+2
		adc	jmp_patch_value+2
		sta	base_ptr+2
		
		ldy	#$000A			;offset to the JSL 
		longa	off
		sep	#$20
		lda	#$5C			;convert to a JML
		sta	[jmp_tbl_ptr],y
		longa	on
		rep	#$20
		iny
		lda	base_ptr
		sta	[jmp_tbl_ptr],y
		sta	call_routine+1
		lda	base_ptr+1
		iny
		sta	[jmp_tbl_ptr],y
		sta	call_routine+2
		
;
; ----------------
; Processor Status
; ----------------
; Bank Register 
; ----------------
; Return Address
; of main routine
; ----------------
		pla			;restore Direct Register
		tcd
		lda	save_a		;restore registers
		ldx	save_x
		ldy	save_y
;
; ----------------
; Return Address
; of main routine
; ----------------
		plp			;restore processor mode
		plb
call_routine	jml	$0000000	;call the desired routine
		endp
				
		eject
;====================================================================================================
;startup:	This routine will allocate memory used by the system loader and setup
;		any data structures that are used by ExpressLoad.
;
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;		
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error	;If this happens I would be suprized
;               b = k
;
;
;====================================================================================================
	
		longa	on
		longi	on		
startup		proc
		with	data
		jsr	Get_ExpLoad_ID	;get ID for me to use
		jsr	alloc_my_dp	;allocate me a direct page please
		bcc	@got_it
		rts			;return the error
@got_it
		lda	temp_handle	;save the current handle please
		pha
		lda	temp_handle+2
		pha
		
		stx	temp_handle
		sty	temp_handle+2	;to determine our direct page

		lda	[temp_handle]	;get the page please
		sta	my_dir_page	;save my direct page please

		sta	temp_handle	;setup pointer to direct page
		stz	temp_handle+2

		lda	#$0000
		ldy	#$00FE
		
@clear_it	sta	[temp_handle],y
		dey
		dey
		bpl	@clear_it
	
		ply
		sty	temp_handle+2	;restore data used on current direct page
		ply
		sty	temp_handle	;it is now safe to setup the direct register
		
		lda	my_dir_page
		tcd			;go ahead and setup the direct register

		stz	user_id_handle	;indicate that there is no ID table yet
		stz	user_id_handle+2
;
;Now lets setup one user_id_table
;
		jsr	add_id_table	;add the first User ID Table please				
		rts			;return the error code to caller
		endp

		eject
;====================================================================================================
;zero_handles:	Zero handles to indicate that there is no segment
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = ?
;		
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;====================================================================================================
	
		longa	on
		longi	on		
zero_handles	proc
		with	data
	
;
;We now zero the handles that do not live across calls.  We do this so we can
;lock the handles when we make memory manager calls
;
		stz	ExpressHandle	;zero the handles please
		stz	ExpressHandle+2
		stz	temp_handle	;zero any temp handles hanging around
		stz	temp_handle+2
		stz	reloc_handle	;this handle does not live across calls
		stz	reloc_handle+2
		stz	seg_handle		
		stz	seg_handle+2	;this handles do not live across calls	
		stz	curr_id_handle
		stz	curr_id_handle+2
		rts
		endp
		
		eject
;====================================================================================================
;get_parameters:	This routine is called at the beginning of each Tool call.  It will
;			get the input parameters off the stack and setup our operating environment.
;
;
;Input:         A = undefined
;               X = number of paramters on stack
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = ?
;		
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;====================================================================================================
	
		longa	on
		longi	on		
get_parameters	proc
		with	data
		pla			;save RTS
		sta	>local_return
		
;
;Save the data bank register
;
		phb
		phb			;save the bank register first
		pla
		sta	>data_bank
;
;Set data bank register to our bank
;
		phk
		plb			;set data bank to our bank.
;
;save the apps direct page
;
		tdc			;save the direct page register
		sta	apps_dir_page
;
;setup our direct page
;
		lda	my_dir_page
		tcd			;we now have our own direct page
		
;
;save the return address
;
		pla			;now save the return address
		sta	return_addr
		pla			;get both return address off the stack
		sta	return_addr+2
		pla
		sta	return_addr2+1
		
		longa	off
		longi	off
		sep	#$30

		txy
		beq	@done		;we have done our job
;
;now we need to pull the needed parameters off of the stack.
;
		ldy	#$00
@loop
		pla			;get a byte off the stack
		sta	param_blk,y	;save the byte in a common parameter block
		iny
		dex
		bne	@loop
@done
		longa	on
		longi	on
		rep	#$30
		lda	local_return
		pha
		jsr	zero_handles
		jsr	reset_local_mark
		stz	partial_match		;indicate that we need a complete match!!!

		rts
local_return	dc.w	00
		endp
		
		eject
;====================================================================================================
;restore_params:	This routine is called if we are going to call the standard system loader.
;
;
;Input:         A = undefined
;               X = number of paramters on stack
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = ?
;		
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;====================================================================================================
	
		longa	on
		longi	on		
restore_params	proc
		with	data

		pla
		sta	local_return
		phx			;save x for one second: actually much less then that
		lda	file_open	;is the load file open?
		beq	@not_open	;the file is not open so don't worry about it.
		jsr	close_load_file	;go ahead and close the file since we are thru with it.
@not_open
		plx			;restore the parameter count please.
		longa	off
		longi	off
		sep	#$30

		txy
		beq	@done		;we have done our job
		dex
;
;now we need to push the original parameters on the stack.
;
@loop
		lda	param_blk,x	;get the original byte
		pha
		dex
		bpl	@loop
@done
		longa	on
		longi	on
		rep	#$30

		lda	return_addr2+1
		pha
		lda	return_addr+2
		pha
		lda	return_addr
		pha
		
		
		lda	apps_dir_page
		tcd			;restore the direct page
		lda	>data_bank
		pha
		plb
		plb
		
		IF	debug_on=0	GOTO	.nobug
		lda	#$FEFE
		sta	>Rom_debug+2
.nobug

		lda	>orig_y
		tay
		lda	>orig_x
		tax
		lda	>local_return
		pha
		lda	>orig_a		;restore the Accum
		
		clc
		rts
local_return	dc.w	00

		endp

		eject
;====================================================================================================
;return_with_error:	This routine is called if ExpresssLoad has handled the file and an error
;			has occured.
;
;
;Input:         A = Error Code
;               X = number of bytes to push on the stack
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = no error
;               b = K
;		
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;====================================================================================================
	
		longa	on
		longi	on		
return_with_error	proc
		with	data
		tay
		lda	#$0000
		sep	#$20			;eight bit mode for push
		cpx	#$0000
		beq	@nothing
@loop
		pha
		dex
		bne	@loop			;push the correct number of bytes.

@nothing
		rep	#$20
		tya				;restore the error
		sec
;
;		jmp	return_to_caller	;FALL THRU TO THE NORMAL EXIT
		endp

		eject
;====================================================================================================
;return_to_caller:	This routine is called if ExpresssLoad has handled the file
;
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = no error
;               b = K
;		
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;====================================================================================================
	
		longa	on
		longi	on		
return_to_caller	proc
		with	data
		
		sta	local_error

		IF	debug_on=0	GOTO	.nobug
		sta	>Rom_debug+2
.nobug

		lda	file_open	;is the load file open?
		beq	@not_open	;the file is not open so don't worry about it.
		jsr	close_load_file	;go ahead and close the file since we are thru with it.
@not_open
		ldy	#$0004			;lets unlock this puppy
		lda	ExpressHandle
		ora	ExpressHandle+2
		beq	@skip_unlock		;there is no ExpressSegment

		lda	[ExpressHandle],y
		and	#$7FFF			;unlock the handle
		sta	[ExpressHandle],y

@skip_unlock
		lda	return_addr2+1
		pha
		lda	return_addr+2
		pha
		lda	return_addr
		pha
		
		
		lda	apps_dir_page
		tcd			;restore the direct page
		lda	>data_bank
		pha
		plb
		plb
		lda	>orig_y
		tay
		lda	>orig_x
		tax
		lda	>local_error
		cmp	#$0001
		rtl
		
local_error	dc.w	00

		endp
		
		eject
;====================================================================================================
;Main Entry point for the loader
;====================================================================================================
		longa	on
		longi	on
		
Main		proc
		with	data
		import	loader_patch
		
		phk
		plb
		phd
		lda	#$0000
		tcd				;setup the standard direct page

		jsr	startup			;init my self
		jsr	loader_patch
		IMPORT	draw_express

		jsr	draw_express
@skip_startup
		pld				;restore the direct page
		rtl
		
		
		string	asis
		
		
		endp
		
		eject
;====================================================================================================
;do_Save_AXY	Save the A X and Y register from the tool dispatcher	
;
;
;Input:         A = ??
;               X = Tool and Function Number
;               Y = ??
;               P = nvmxdizc
;                   ..000...
;               b = k
;		
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..
;               b = k
;
;
;====================================================================================================
		longa	on
		longi	on
do_Save_AXY	proc
		with	data
		sta	>orig_a
		txa
		sta	>orig_x
		tya
		sta	>orig_y

		php
		longa	on
		longi	on
		rep	#$30		;16 bit mode
		pha
		phx
		phy
		
		lda	>show_splash	;have I already checked?
		bmi	@already_done
		lda	#$FFFF		
		sta	>show_splash

		jsl	$e100a8		;get info on ExpressLoad
		dc.w	$2006
		dc.l	ExpressInfoList
		bcs	@already_done	;An Error?
		
		lda	>ExpressAux	;get the AuxType
		cmp	#'RT'		;is it my initials?
		bne	@already_done

		phb			;save bank from call
		phk
		plb
		jsr	draw_express	;draw the ExpressLoad logo and screw marketing!
		plb
@already_done

		ply
		plx
		pla

		plp
		rts
		
		Export	show_splash
show_splash	dc.w	00		;Used to indicate that I shown splash screen

ExpressInfoList	dc.w	$0004		;PCount for the call
		dc.l	ExpressPath
		dc.w	00		;access
		dc.w	00		;filetype
ExpressAux	dc.l	000000000	;ExpressLoad Aux Type

ExpressPath	dc.w	20
		dc.b	'*:System:ExpressLoad'

		
		endp
		
		eject
;====================================================================================================
;rename_segments:	This routine will rename paths for ExpressLoad 
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;		Full_Blown		;Path that we need to find
;
;Output:        A = User ID
;               X = undefined
;               Y =undefined
;               P = nvmxdizc
;                   ..000..1 = not found
;               b = k
;
;
;====================================================================================================
	
		longa	on
		longi	on		
rename_segments	proc
		with	data
		
		lda	#$8000
		sta	partial_match		;indicate that a partial match is OK


		ldx	user_id_handle
		ldy	user_id_handle+2
		bra	@keep_going
@loop
		jsr	do_rename		;rename all files in thie user_id chunck

		ldy	#$0004			;unlock the handle
		lda	[temp_handle],y
		and	#$7FFF
		sta	[temp_handle],y
		
		ldy	#$0002			;get the next link
		lda	[user_id_ptr]
		tax
		lda	[user_id_ptr],y
		tay
		bne	@keep_going
		txa
		bne	@keep_going

		rts				;we are done
@keep_going
		stx	temp_handle
		sty	temp_handle+2
		
		ldy	#$00002
		lda	[temp_handle]
		sta	user_id_ptr		;point to the next user_id table
		lda	[temp_handle],y
		sta	user_id_ptr+2

		ldy	#$0004			;lock the handle
		lda	[temp_handle],y
		ora	#$8000
		sta	[temp_handle],y
		
		bra	@loop
@found_it
		rts				;A = User_ID
		
do_rename
		ldy	#id_entry_size		;start at the first available spot
		ldx	#id_entry_cnt		;number of entries in a table
@rename_loop
		lda	[user_id_ptr],y		;get a user_id
		beq	@empty_slot
		phy
		phx
		jsr	copy_orig_name		
		plx
		ply
		
		phy
		phx
		jsr	check_and_rename	;rename if needed
		plx
		ply
@empty_slot
		clc
		tya
		adc	#id_entry_size
		tay
		dex
		bpl	@rename_loop
		clc
		rts
;====================================================================================================
;Rename the segment if needed
;====================================================================================================
check_and_rename
		iny
		iny				;get the handle
		lda	[user_id_ptr],y
		sta	ExpressHandle
		tax
		iny
		iny
		lda	[user_id_ptr],y
		sta	ExpressHandle+2		;Handle to the ExpressLoad segment
		tay
		jsr	Merge_path		;build a complete pathname
		jsr	compare_paths		;is this the one?
		bcc	@go_on			;a complete match was found!!!
		bvc	@partial_found		;we have a partial match
		rts				;see if the pathname is found
		
@partial_found
		php				;save partial/ complete flag
		jsr	Expand_to_full_blown	;copy name from ExpressLoad segment into fullBlown.
		plp
@go_on
		php				;save partial/compelete flag
		lda	param_blk+func_13_new_ptr+2
		sta	path_ptr+2		;high word of the pathname
		lda	param_blk+func_13_new_ptr
		sta	path_ptr		;low word of the pathname

		lda	[path_ptr]		;get the length
		cmp	#$0100
		bcc	@go_around
		plp				;fix the stack
@long_to_loader
		rts
@go_around
		tay
		iny				;get all the characters
@new_loop
		lda	[path_ptr],y
		sta	Expanded_name.size,y	;Expanded now has a GString with the new name
		dey
		bpl	@new_loop

		plp
		bcc	@not_partial		;this is a complete pathname
		jsr	merge_names		;add partial to old ExpressLoad name
		bcc	@not_partial	
		rts
@not_partial
		jsr	setup_path_sizes	;setup vol_size, partial_size, partial_offset etc.
		jsr	make_HET_ptr
		jsr	setup_base_ptr
		jsr	adjust_handle_size
		bcc	@adjusted
		rts
@adjusted	jsr	save_new_name
		clc
		rts
		
;====================================================================================================
;
;save_new_name will store the name in the ExpressLoad segment
;
;
;====================================================================================================
save_new_name
		ldy	#$0002			;build a pointer to ExpressSegment
		lda	[ExpressHandle]
		sta	temp_ptr
		sta	base_ptr
		lda	[ExpressHandle],y
		sta	temp_ptr+2
		sta	base_ptr+2

;
;Now we need to build a pointer to the volume name
;		
		ldy	#seg_vol_offset	;offset to the volume name
		clc
		lda	[Temp_ptr],y
		adc	temp_ptr
		sta	super_ptr
		lda	#$0000
		adc	temp_ptr+2
		sta	super_ptr+2		;super_ptr now points to the volume name
		jsr	store_new_name		;go and do it
		rts

;====================================================================================================
;
;Get the original name from SCM
;
;====================================================================================================
copy_orig_name		
		lda	param_blk+func_13_orig_ptr+2
		sta	path_ptr+2		;high word of the pathname
		lda	param_blk+func_13_orig_ptr
		sta	path_ptr		;low word of the pathname
		
		lda	[path_ptr]		;get the length
		cmp	#$0100
		bcc	@onward
		rts
@onward
		tay
		iny				;get all the characters
@loop
		lda	[path_ptr],y
		sta	full_blown.size,y	;Full blown now has a GString with the source
		dey
		bpl	@loop
		rts
;====================================================================================================
;
;This routine will resize the ExpressLoad handle as needed
;
;====================================================================================================
adjust_handle_size		

		lda	#$0000
		pha
		pha
		pei	ExpressHandle+2		;push the high word of the handle
		pei	ExpressHandle
		ldx	#$1802			;GetHandle call
		jsl	$e10000

		pla
		sta	express_size
		pla
		sta	express_size+2
		
		lda	full_blown.size		;see if the original is larger then new pathname?
		and	#$00FF
		sta	full_blown.size
		cmp	Expanded_name.size
		beq	@no_problem		;the strings are the same size
		bcc	@grow_handle		;source < destination name so grow handle
;
;if here, the original name (Full) is greater then new name (expanded) 
;

		lda	full_blown.size		;larger number
		sbc	Expanded_name.size
;
;A = size we need to reduce ExpressHandle by
;
		pha

		sec
		lda	express_size
		sbc	1,s			;reduce the size
		sta	express_size
		lda	express_size+2
		sbc	#0000
		sta	express_size+2
		pla
		bra	@set_size		;go and set the size
@grow_handle
		sec
		lda	expanded_name.size	;larger name
		sbc	full_blown.size
		pha

		clc
		lda	express_size
		adc	1,s			;increase the size
		sta	express_size
		lda	express_size+2
		adc	#0000
		sta	express_size+2
		pla
		
@set_size
		pei	ExpressHandle+2
		pei	ExpressHandle
		ldx	#$2202			;unlock the handle
		jsl	$e10000
		
		lda	express_size+2		;get the size please
		pha
		lda	express_size
		pha
		pei	ExpressHandle+2
		pei	ExpressHandle
		ldx	#$1902			;SetHandle size for ExpressLoad segment
		jsl	$e10000
		rts
@no_problem
		clc
		rts
;====================================================================================================
;Copy Expanded name into Full_blown name
; == save name from ExpressLoad segment
;
;====================================================================================================
Expand_to_full_blown
		lda	expanded_name.size
		sta	full_blown.size
		tay
		longa	off
		sep	#$20
		lda	#$00
		sta	full_blown.size+2,y	;make a C string
@loop
		lda	expanded_name.size+1,y
		sta	full_blown.size+1,y	;Full blown now has a GString with the source
		dey
		bne	@loop
		
		longa	on
		rep	#$20
		rts
;====================================================================================================
;This routine will merge the partial path onto the new name
; == Expanded_name will contain the new name for ExpressLoad segment
;====================================================================================================
merge_names
		lda	expanded_name.size	;get index to the end of the string
		tay
		ldx	SubStr_size		;index into full blown
		longa	off
		sep	#$20
@merge_loop
		lda	full_blown.name,x	;get the seperator
		sta	expanded_name.size+2,y	;store the character
		beq	@done
		inx
		iny
		inc	expanded_name.size	;bump the count.
		bne	@merge_loop
		longa	on
		rep	#$20
		sec
		rts
		
@done
		longa	on
		rep	#$20
		clc
		rts
		endp

	
		eject
;====================================================================================================
;============= Beginning of the Patch code for the loader ===========================================
;====================================================================================================
		longa	on
		longi	on
		string	asis
		
loader_patch	proc
		with	data
		
ptr1		equ	$00
ptr2		equ	$04
loader_ptr	equ	$08
		
		longa	on
		longi	on
patch_main		

		phk
		plb
		rep	#$30
		
		lda	#$0000
		pha
		pha
		
		pha
		lda	#$0011			;get the loader table
		pha
		ldx	#$0901
		jsl	$e10000
		pla
		sta	loader_ptr
		pla
		sta	loader_ptr+2

		
		lda	#Patch_table
		sta	ptr1
		lda	#^Patch_table
		sta	ptr1+2			;pointer to the patch table
		
		ldx	#$0000
@loop
		lda	patch_table,x
		beq	@done			;we are thru
		tay				;index to loader entry
		inx
		inx
		inx
		inx				;pass the offset field
		lda	patch_table,x
		sta	my_routine		;address that I need to patch with
		inx
		inx
		lda	patch_table,x
		sta	my_routine+2
		
		inx
		inx
		clc
		lda	patch_table,x		;address of return address
		adc	#$0001
		sta	ptr1
		inx
		inx
		lda	patch_table,x
		adc	#$0000
		sta	ptr1+2
		inx
		inx				;point to the next entry
			
		lda	[loader_ptr],y
		sta	loader_address
		iny
		iny
		lda	[loader_ptr],y
		sta	loader_address+2
		
		lda	my_routine+2		;Patch the Loader to point to me
		sta	[loader_ptr],y
		dey
		dey
		lda	my_routine
		sta	[loader_ptr],y
		
		clc
		lda	loader_address
		adc	#$0001
		sta	loader_address
		lda	loader_address+2
		adc	#0000
		sta	loader_address+2	;slowest way possible. But I'm hot and tired!
		
		ldy	#$0001			;Patch my exit routine to point to the loader
		lda	loader_address
		sta	[ptr1]
		lda	loader_address+1
		sta	[ptr1],y
		bra	@loop
@done		
		rts		


loader_address	dc.l	00
my_routine	dc.l	00

		eject
;====================================================================================================
;Initial_Load:	This routine will do an Initial Load of a load file.	
;
;
;Input:         A = undefined
;               X = Tool and Function Number
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;		
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..
;               b = k
;
;Stack before call:
;
;		previous contents
;		result space		word
;		result space		word
;		result space		long
;		result space		word
;		User ID			word
;		Addr of load file name	long
;		special memory flag	word
;	SP ---->
;
;Stack after call:
;
;		previous contents
;		direct page/stack size	word
;		direct page/stack addr	word
;		starting address	long
;		User ID			word
;	SP ---->
;
;
;====================================================================================================
		longa	on
		longi	on
L_init_load
		jsr	save_AXY

		IF	debug_on=0	GOTO	.nobug
		lda	#$0001			;initial load
		sta	>Rom_debug
.nobug
		ldx	#func_9_param_cnt	;get the number of parameters of the stack
		jsr	get_parameters

						;now we make a string to the pathname
		lda	param_blk+func_9_path_addr
		sta	temp_ptr
		lda	param_blk+func_9_path_addr+2
		sta	temp_ptr+2		;temp_ptr now points to a PString
;
;Now we need to do an Expand Path on the Input name. Expand Path expects a pointer to a 
;GString, So I will cheat and convert the callers string into a GString.
;
		lda	temp_ptr
		bne	@low_only
		dec	temp_ptr+2		;decrement the High Byte
@low_only	dec	a
		sta	temp_ptr
		lda	[temp_ptr]		;get garbage + length byte
		pha				;save it please
		xba				;put length byte in the low word
		and	#$00FF			;clear the garbage
		sta	[temp_ptr]		;PString now equals GString
		
		ldx	temp_ptr
		ldy	temp_ptr+2		;convert the puppy please
		jsr	expand_path
		pla				;restore the PString
		sta	[temp_ptr]
		bcs	@abort			;dump to Lou's loader on errors

		jsr	open_load_file		;open the file please
		bcs	@abort

		jsr	check_express_seg	;see if this is an expressload file
		bcs	@abort
;
;At this point all errors that we encounter must be returned to the caller since the file is mine.
;
						;setup the special memory flag
		lda	param_blk+func_9_spec_mem
		sta	spec_mem_flag		;user's preference
		
						;go and get the user ID
		lda	param_blk+func_9_user_id
						;get the User_ID from the caller
		jsr	Alloc_ID
		bcs	@error_exit		;we have an error we must report to caller
		sta	User_ID			;make the New ID Global
		sta	AppID
		jsr	get_express_seg		;load in the express load segment
		bcs	@error_exit		;we have an error we must report to caller

		ldx	ExpressHandle
		ldy	ExpressHandle+2
		jsr	merge_path
		
		jsr	load_statics		;load all the static segments
		bcs	@error_exit		;return the error to the caller

		jsr	save_start		;save the starting address please
		
		lda	stack_size		;return the correct parameters
		pha
		lda	stack_addr
		pha
		lda	starting_addr+2		;address of the Application
		and	#$00FF
		pha
		lda	starting_addr
		pha
		lda	User_ID
		pha
		lda	#$0000
		clc
		jmp	return_to_caller	;we were successful!!
@error_exit
		ldx	#func_9_err_cnt		;exit with the error
		jmp	return_with_error
		
@abort
		ldx	#func_9_param_cnt	;restore the stack for the loader
		jsr	restore_params

return9		jml	$000000
		
		eject
;====================================================================================================
;L_initial2:	This routine will do an Initial Load of a load file. Version 2 of the call	
;
;
;Input:         A = undefined
;               X = Tool and Function Number
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;		
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..
;               b = k
;
;Stack before call:
;
;		previous contents
;		result space		word
;		result space		word
;		result space		long
;		result space		word
;		User ID			word
;		Addr of load file name	long
;		special memory flag	word
;		pathname flag		word	1 = GString, 2 = mem load, 3=pathname table, 4= code resorce
;	SP ---->
;
;
;Stack after call:
;
;		previous contents
;		direct page/stack size	word
;		direct page/stack addr	word
;		starting address	long
;		User ID			word
;	SP ---->
;
;
;====================================================================================================
		longa	on
		longi	on
L_initial2
		jsr	save_AXY
		
		IF	debug_on=0	GOTO	.nobug
		lda	#$0002			;initial load
		sta	>Rom_debug
.nobug
		
		ldx	#func_20_param_cnt	;get the number of parameters of the stack
		jsr	get_parameters

						;now we make a string to the pathname
		lda	param_blk+func_20_path_addr
		sta	temp_ptr
		lda	param_blk+func_20_path_addr+2
		sta	temp_ptr+2		;temp_ptr now points to a PString

		lda	param_blk+func_20_path_flag
						;see if this is a class1 string
		beq	@old_style
		cmp	#$0002			;see if I can handle this one
		bcs	@to_abort		;sorry not my type
		bra	@do_expand		;this is a class1 string
;
;Now we need to do an Expand Path on the Input name. Expand Path expects a pointer to a 
;GString, So I will cheat and convert the callers string into a GString.
;
@old_style
		lda	temp_ptr
		bne	@low_only
		dec	temp_ptr+2		;decrement the High Byte
@low_only	dec	a
		sta	temp_ptr
		lda	[temp_ptr]		;get garbage + length byte
		pha				;save it please
		xba				;put length byte in the low word
		and	#$00FF			;clear the garbage
		sta	[temp_ptr]		;PString now equals GString
@do_expand
		ldx	temp_ptr
		ldy	temp_ptr+2		;convert the puppy please
		jsr	expand_path

		lda	param_blk+func_20_path_flag
						;see if this is a class1 string
		bne	@class1
		
		pla				;restore the PString
		sta	[temp_ptr]
@class1
		bcs	@to_abort
		
		jsr	open_load_file		;open the file please
		bcs	@to_abort

		jsr	check_express_seg	;see if this is an expressload file
		bcc	@its_expressed
@to_abort
		brl	@abort			;call the standard loader and let it try
;
;At this point all errors that we encounter must be returned to the caller since the file is mine.
;
@its_expressed
						;setup the special memory flag
		lda	param_blk+func_20_spec_mem
		sta	spec_mem_flag		;user's preference
		
						;go and get the user ID
		lda	param_blk+func_20_user_id
						;get the User_ID from the caller
		jsr	Alloc_ID
		bcs	@skip_to_error		;pass the error back to the caller
		sta	User_ID			;make the New ID Global
		sta	AppID
		jsr	get_express_seg		;load in the express load segment
@skip_to_error
		bcs	@error_exit		;pass the error back to the caller

		ldx	ExpressHandle
		ldy	ExpressHandle+2
		jsr	merge_path
		
		jsr	load_statics		;load all the static segments
		bcs	@dispose_exit		;pass the error back to the caller
		
		jsr	save_start		;save starting address and stack info
		lda	stack_size		;return the correct parameters
		pha
		lda	stack_addr
		pha
		lda	starting_addr+2		;address of the Application
		and	#$00FF
		pha
		lda	starting_addr
		pha
		lda	User_ID
		pha
		lda	#$0000
		clc
		jmp	return_to_caller	;we were successful!!

; this is used when an error occurs after loading at least one segment into memory.
; in this case, we must do a pseudo-userShutdown to clean up memory and dispose of
; the user ID.

@dispose_exit
		pha				;save the error code
		lda	User_ID
		jsr	find_user_id		;get pointer to user_id_table
		ldy	#$0002
		lda	[temp_ptr],y		;get the ExpressLoad handle
		sta	ExpressHandle
		iny
		iny
		lda	[temp_ptr],y
		sta	ExpressHandle+2		
		jsr	close_dynamic_file	;close file if any segments were dynamic
		
		lda	temp_ptr		;setup the User_ID pointer to point to the entry
		sta	user_id_ptr
		lda	temp_ptr+2
		sta	user_id_ptr+2
		
		pha				;space for handle
		pha
		pei	user_id_ptr+2		;lock down the user ID table
		pei	user_id_ptr
		ldx	#$1A02			;FindHandle
		jsl	$E10000
		lda	3,s			;suplicate the handle on the stack
		pha
		lda	3,s
		pha
		ldx	#$2002			;HLock
		jsl	$E10000
		
		lda	#nuke_id		;delete the ID and the memory
		jsr	delete_user_id		;remove the user_id please
		
		ldx	#$2202			;HUnlock (handle already on stack)
		jsl	$E10000			;unlock the user ID table
		pla				;restore error code

@error_exit
		ldx	#func_20_err_cnt	;exit with the error
		jmp	return_with_error
		
@abort
		ldx	#func_20_param_cnt	;restore the stack for the loader
		jsr	restore_params

return15	jml	$000000
		
		eject
;====================================================================================================
;L_restart:	This routine is called to restart an application.
;
;
;Input:         A = undefined
;               X = Tool and Function Number
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;		
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..
;               b = k
;
;Stack before call:
;
;		previous contents
;		result space		word
;		result space		word
;		result space		long
;		result space		word
;		User ID			word
;	SP ---->
;
;Stack after call:
;
;		previous contents
;		Dir. Page/Stack size	word
;		Dir. Page/Stack addr	word
;		starting address	long
;		User ID			word
;	SP ---->
;
;
;====================================================================================================
L_restart	
		jsr	save_AXY
		
		IF	debug_on=0	GOTO	.nobug
		lda	#$0003			;initial load
		sta	>Rom_debug
.nobug

		ldx	#func_0A_param_cnt	;get the number of parameters of the stack
		jsr	get_parameters
		
		lda	param_blk+func_0A_user_id
						;lets see if we know about this user ID
		jsr	find_user_id		;If found temp_ptr setup
		bcc	@continue
		brl	@abort			;not my job
@continue
;
;At this point all errors that we encounter must be returned to the caller since the file is mine.
;

		ldy	#$0002
		lda	[temp_ptr],y		;get the ExpressLoad handle
		tax
		iny
		iny
		lda	[temp_ptr],y
		tay
		bne	@have_handle
		txa
		bne	@have_handle		;we have the handle
		lda	#ExpressSegLost
		sec
		bra	@error_exit		;report error to the caller.
@have_handle
		stx	ExpressHandle
		sty	ExpressHandle+2		
		jsr	Merge_path		;we now have the expanded ExpressLoad pathname
		
		jsr	lock_statics		;lock the static segments please
		bcc	@no_reload		;this is an easy case.
;
;If we get here we need to remove the old info and reload the application from disk
;
		lda	#keep_id		;indicate that we must keep the ID
		jsr	delete_user_id		;we need to nuke the old copy.
		jsr	zero_handles		;reset everything
		jsr	open_load_file		;open the file please
		bcs	@error_exit		;report error to the caller.
		jsr	check_express_seg	;see if this is an expressload file
		bcs	@error_exit		;report error to the caller.
		jsr	get_express_seg		;load in the express load segment
		bcs	@error_exit		;report error to the caller.

		lda	#any_state	
		sta	load_state
		lda	#1
		sta	spec_mem_flag		;don't use special memory for restart
		jsr	load_statics		;try to load all static segments
		bcc	@loaded_ok		;loaded fine, thank you!
		stz	spec_mem_flag		;try again, using special memory
		jsr	load_statics		;load all the static segments
@loaded_ok
		php				;save carry
		pha				;save possible error code
		jsr	close_load_file		;close the file and restore sys_prefs
		pla				;restore error code
		plp				;restore carry
		bcs	@error_exit		;report error to the caller.
		bra	@clean_exit
@no_reload
		jsr	kick_start
		bcs	@error_exit		;report error to the caller.
@clean_exit
		jsr	save_start
		lda	stack_size		;return the correct parameters
		pha
		lda	stack_addr
		pha
		lda	starting_addr+2		;address of the Application
		and	#$00FF
		pha
		lda	starting_addr
		pha
		lda	User_ID
		pha
		lda	#$0000
		clc
		jmp	return_to_caller	;we were successful!!
@error_exit
		ldx	param_blk+func_0A_user_id
		beq	@abort			;If the user_id was zero let Lou try.

		ldx	#func_0A_err_cnt	;exit with the error
		jmp	return_with_error
@abort
		ldx	#func_0A_param_cnt	;restore the stack for the loader
		jsr	restore_params
returnA
		jml	$000000

kick_start		
		stz	file_open		;indicate that the file is closed
		stz	starting_addr		;reset all of our variables
		stz	starting_addr+2
		stz	stack_addr		;there is no stack
		stz	stack_size
		
		jsr	chk_dynamic_Seg		;does the file contain any dynamic segments
		bcs	@no_dynamics

		jsr	open_load_file		;open the file please
		bcs	@error_out		;report error to the caller.
		jsr	save_ref_num
@no_dynamics		
		jsr	make_HET_ptr		;make pointer to Header Entry Table
		jsr	reset_jmp_tables	;delete any references to dynamic segments
		jsr	reload_inits		;please restart any init segments
		bcs	@error_out
		jsr	reload_restart		;please reload any restart segments.
		bcs	@error_out
		jsr	restore_start
		clc
@error_out
		php
		pha
		lda	file_open		;is the file open?
		beq	@skip_close
		jsr	close_load_file
@skip_close
		pla
		plp
		rts
		
		eject
;====================================================================================================
;L_Seg_by_num:	This routine will load a segment by number.  Note: an application should never
;		make this call.  If they do they should be shot.
;
;
;Input:         A = undefined
;               X = Tool and Function Number
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;		
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..
;               b = k
;
;Stack before call:
;
;		previous contents
;		result space		long
;		User ID			word
;		load-file number	word
;		load-segment number	word
;	SP ---->
;
;Stack after call:
;
;		previous contents
;		starting address	long
;	SP ---->
;
;
;====================================================================================================
L_seg_by_num	
		jsr	save_AXY

		IF	debug_on=0	GOTO	.nobug
		lda	#$0004			;initial load
		sta	>Rom_debug
.nobug

		
		ldx	#func_0b_param_cnt	;get the number of parameters of the stack
		jsr	get_parameters

						;see if this is file number one
		lda	param_blk+func_0B_file_num
		dec	a
		bne	@abort			;sorry we will let the system loader handle it
		
		lda	param_blk+func_0B_user_id
						;lets see if we know about this user ID
		jsr	find_user_id		;If found temp_ptr setup
		bcs	@abort			;not my job
;
;At this point all errors that we encounter must be returned to the caller since the file is mine.
;

		ldy	#$0002
		lda	[temp_ptr],y		;get the ExpressLoad handle
		tax
		iny
		iny
		lda	[temp_ptr],y
		tay
		bne	@have_handle
		txa
		bne	@have_handle		;we have the handle
		lda	#ExpressSegLost
		sec
		bra	@error_exit		;report error to the caller.
@have_handle
		stx	ExpressHandle
		sty	ExpressHandle+2		
		jsr	Merge_path		;we now have the expanded ExpressLoad pathname
		
						;the segment we will have to load
		jsr	make_HET_ptr
		lda	param_blk+func_0B_seg_num
		jsr	seg_num_lookup		;convert the segment number to correct number
		bcs	@error_exit		;the number is not valid
		sta	search_seg		;save the real segment to load.		
		jsr	setup_seg_ptrs		;setup pointers for the load

		ldy	#flags_offset		;see if the segment is already loaded
		lda	[HET_entry_ptr],y
		bmi	@already_in		;this segment is already loaded
@do_load
		jsr	open_load_file		;open the puppy
		bcs	@error_exit		;report error to the caller.
		jsr	load_segment		;load the segment into memory
		bcs	@error_exit		;report error to the caller.
		lda	search_seg		;relocate the segment
		jsr	process_reloc
		bcs	@error_exit		;report error to the caller.
		bra	@continue1
@already_in
		lsr	a			;see if the segment is purgable?
		bcc	@continue
		lda	search_seg		;go and lock the handle please
		jsr	lock_segment
		bcs	@do_load
@continue
		jsr	setup_base_ptr		;please setup the base pointer
@continue1
		lda	segment_entry+2		;address of the segment
		pha
		lda	segment_entry
		pha

		lda	#$0000
		clc
		jmp	return_to_caller	;we were successful!!
@error_exit
		ldx	param_blk+func_0B_user_id
		beq	@abort			;let Lou try if user_id was zero
		ldx	#func_0b_err_cnt	;exit with the error
		jmp	return_with_error
		
@abort
		ldx	#func_0b_param_cnt	;restore the stack for the loader
		jsr	restore_params
returnB
		jml	$000000
		
		eject
;====================================================================================================
;L_unload1:	This is the unload segment by number routine.  It will mark a segment as purgable
;		and unlocked.
;
;
;Input:         A = undefined
;               X = Tool and Function Number
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;		
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..
;               b = k
;
;Stack before call:
;
;		previous contents
;		User ID			word
;		load-file number	word
;		load-segment number	word
;	SP ---->
;
;Stack after call:
;
;		previous contents
;	SP ---->
;
;
;====================================================================================================
L_unload1	
		jsr	save_AXY
		
		IF	debug_on=0	GOTO	.nobug
		lda	#$0005
		sta	>Rom_debug
.nobug

		ldx	#func_0c_param_cnt	;get the number of parameters of the stack
		jsr	get_parameters

						;see if this is file number one
		lda	param_blk+func_0c_file_num
		bne	@check_for_1		;we handle 0 and 1
		sta	param_blk+func_0C_seg_num
		bra	@skip_abort
@check_for_1
		dec	a
		bne	@abort			;sorry we will let the system loader handle it
@skip_abort
						;see if this is for me
		lda	param_blk+func_0c_user_id
		jsr	find_user_id
		bcs	@abort			;must be the real system loaders
;
;At this point all errors that we encounter must be returned to the caller since the file is mine.
;
		ldy	#$0002
		lda	[temp_ptr],y		;get the ExpressLoad handle
		tax
		iny
		iny
		lda	[temp_ptr],y
		tay
		bne	@have_handle
		txa
		bne	@have_handle		;we have the handle
		lda	#ExpressSegLost
		sec
		bra	@error_exit		;report error to the caller.
@have_handle
		stx	ExpressHandle
		sty	ExpressHandle+2		

		jsr	make_HET_ptr
		lda	param_blk+func_0C_seg_num
		beq	@do_all_dyn		;we need to purge all dynamics
		jsr	seg_num_lookup		;convert the segment number to correct number
		bcs	@error_exit		;the number is not valid
		jsr	make_purgable
		jmp	return_to_caller	;return to the caller
@do_all_dyn
		jsr	purge_all_dyn
		jmp	return_to_caller	;return the info please
@error_exit
		ldx	param_blk+func_0c_user_id
		beq	@abort			;let Lou try.
		ldx	#func_0c_err_cnt	;exit with the error
		jmp	return_with_error
@abort
		ldx	#func_0c_param_cnt	;restore the stack for the loader
		jsr	restore_params
returnC
		jml	$000000
;
;If we get here then we must purge all the dynamic segments
;

		eject
;====================================================================================================
;L_seg_by_name:	This routine will load a segment by Name.	
;
;
;Input:         A = undefined
;               X = Tool and Function Number
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;		
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..
;               b = k
;
;Stack before call:
;
;		previous contents
;		result space		word
;		result space		word
;		result space		word
;		result space		long
;		User ID			word
;		Addr of load file name	long
;		Addr of load seg name	long
;	SP ---->
;
;Stack after call:
;
;		previous contents
;		load-segment number	word
;		load-file number	word
;		User ID			word
;		Addr of the segment	long
;	SP ---->
;
; How it works:
;	IF find_user_id(input_id) THEN				{If found, ExpressHandle setup}
;	  BEGIN
;	    IF compare_path(input_path,ExpressLoad_path) THEN 	{See if looking for loaded segment}
;	      BEGIN
;		IF find_seg(input_seg_name) THEN		{See if segment is available}
;		  BEGIN
;		    IF seg_loaded(seg_num) THEN			{See if the segment is loaded}
;		      BEGIN
;			Return_parameters
;			Exit ()					{return to the caller}
;		      END
;		    ELSE
;		      BEGIN
;			Load_Seg(Seg_num)			{load in the segment please}
;			return_parameters
;			Exit()					{return to the caller}
;		      END
;  	          END
;		ELSE
;		  BEGIN						{segment not found}
;		    Return_error(Seg_Not_Found)
;		    Exit ()
;		  END
;	    ELSE						{not same file}
;	      BEGIN						{Pain in the Butt}
;		open_file(input_path)				{open file, type check etc.}
;		get_express_seg					{get the ExpressLoad segment}
;		IF find_seg(input_seg_name) THEN		{See if segment is available}
;		  BEGIN
;		    IF seg_loaded(seg_num) THEN			{See if the segment is loaded}
;		      BEGIN
;			Return_parameters
;			Exit ()					{return to the caller}
;		      END
;		    ELSE
;		      BEGIN
;			Load_Seg(Seg_num)			{load in the segment please}
;			return_parameters
;			Exit()					{return to the caller}
;		      END
;  	          END
;		ELSE
;		  BEGIN						{segment not found}
;		    Return_error(Seg_Not_Found)
;		    Exit ()
;		  END		
;		get_jmp_tbl_seg					{load any jump tables please}
;		Add_file_num					{Link this file in please}
;		Return_error(Seg_Not_Found)
;		Exit ()
;
;====================================================================================================
L_seg_by_name	
		jsr	save_AXY
		
		IF	debug_on=0	GOTO	.nobug
		lda	#$0006
		sta	>Rom_debug
.nobug
		ldx	#func_0D_param_cnt	;get the number of parameters of the stack
		jsr	get_parameters
		
						;get the input user id
		lda	param_blk+func_0D_user_id
		jsr	find_user_id		;see if we have the ID
		bcc	@its_mine
		brl	@abort			;later we need to handle this better
@its_mine
;
;At this point all errors that we encounter must be returned to the caller since the file is mine.
;
		ldy	#$0002
		lda	[temp_ptr],y		;get the ExpressLoad handle
		tax
		iny
		iny
		lda	[temp_ptr],y
		tay
		bne	@have_handle
		txa
		bne	@have_handle		;we have the handle
		lda	#ExpressSegLost
		sec
		bra	@error_exit		;report error to the caller.
@have_handle
		stx	ExpressHandle
		sty	ExpressHandle+2		
		jsr	Merge_path		;we now have the expanded ExpressLoad pathname
;
;At this point Expanded_name contains the Pathname from the ExpressLoad segment
;Now we need to build an Expanded Name from the Applications input pathname
;
						;lets build the name
		lda	param_blk+func_0D_file_name+2
		tay				;high word of the pathname
		lda	param_blk+func_0D_file_name
		tax				;low word of the pathname
		jsr	expand_app_path
		bcs	@error_exit		;GS/OS could not expand the pathname

		jsr	compare_paths		;see if the paths are equal
		lda	#seg_not_found		;pre-charge the error code if needed
		bcs	@error_exit		;report error to the caller.
						;lets get a copy of the segment name
		lda	param_blk+func_0D_seg_name+2
		tay
		lda	param_blk+func_0D_seg_name
		tax				;low word address of the segment name
		jsr	find_seg_name		;go and find the segment name in ExpressLoad
		bcs	@error_exit		;report error to the caller.
		sta	search_seg		;segment number of the segment
		
		ldy	#flags_offset		;see if the segment is already loaded
		lda	[HET_entry_ptr],y
		bmi	@already_in		;this segment is already loaded
@do_load
		jsr	open_load_file		;open the puppy
		bcs	@error_exit		;report error to the caller.
		jsr	load_segment		;load the segment into memory
		bcs	@error_exit		;report error to the caller.
		
		lda	search_seg		;relocate the segment
		jsr	process_reloc
		bcs	@error_exit		;report error to the caller.
		bra	@continue1
@already_in
		lsr	a			;see if the segment is purgable?
		bcc	@continue
		
		lda	search_seg		;go and lock the handle please
		jsr	lock_segment
		bcs	@do_load		;segment was purged behind my back!
@continue
		jsr	setup_base_ptr		;please setup the base pointer
@continue1
		lda	search_seg		;push the load segment number
		jsr	my_seg_to_user_seg	;convert to user type number
		pha
		pea	$0001			;file number
		lda	User_ID
		pha
		lda	segment_entry+2		;address of the segment
		pha
		lda	segment_entry
		pha

		lda	#$0000
		clc
		jmp	return_to_caller	;we were successful!!
@error_exit
		ldx	param_blk+func_0D_user_id
		beq	@abort			;Let Lou try
		ldx	#func_0D_err_cnt
		jmp	return_with_error	;Return to the caller with the error code
@abort
		ldx	#func_0D_param_cnt	;restore the stack for the loader
		jsr	restore_params
returnD
		jml	$000000
		
		eject
;====================================================================================================
;L_unload2:	This is the unload segment by address routine.  It will mark a segment as purgable
;		and unlocked.
;
;
;Input:         A = undefined
;               X = Tool and Function Number
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;		
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..
;               b = k
;
;Stack before call:
;
;		previous contents
;		result			word
;		result			word
;		result			word
;		Address in segment	long
;	SP ---->
;
;Stack after call:
;
;		previous contents
;		load-segment number	word
;		load-file number	word
;		user_id			word
;	SP ---->
;
;
;====================================================================================================
L_unload2	
		jsr	save_AXY
		
		IF	debug_on=0	GOTO	.nobug
		lda	#$0007
		sta	>Rom_debug
.nobug
		ldx	#func_0e_param_cnt	;get the number of parameters of the stack
		jsr	get_parameters
		stz	search_seg
@retry
		pea	$0000
		pea	$0000			;result space

		lda	param_blk+func_0e_seg_addr+2
		sta	hold_long+2		;save the address in case this is a jump table seg
		pha				;address in a segment
		lda	param_blk+func_0e_seg_addr
		sta	hold_long
		pha
		ldx	#$1A02			;find handle call
		jsl	$e10000
		plx
		ply
		bcs	@abort
		stx	seg_handle		;handle to the segment
		sty	seg_handle+2
		jsr	find_seg_handle
		bcs	@abort			;it must be in the original loader
		tax
		
		ldy	#flags_offset		;see if this is a jump segment
		lda	[HET_Entry_ptr],y
		and	#jmp_type
		beq	@not_jump

		lda	hold_long
		sta	temp_ptr
		lda	hold_long+2
		sta	temp_ptr+2		;setup pointer to the segment entry please

		lda	[temp_ptr]		;get the current opcode
		and	#$00FF			;clear the garbage
		cmp	#$0022			;is it a JSL instruction to ME???
		bne	@chk_JML

		sec
		lda	temp_ptr		;make pointer to the load_seg_number field
		sbc	#$0006
		sta	temp_ptr
		lda	temp_ptr+2
		sbc	#$0000
		sta	temp_ptr+2		;temp_ptr now points to the correct field
		
;		User_ID			2
;		Load_File Number	2
;		Load Segment Number	2
;		Load Segment Offset	4
;		JSL to Jump-table load	4

		lda	[temp_ptr]		;get the segment number please
		sta	search_seg
		bra	@return_info

@chk_JML
		cmp	#$005C			;is it a JML instruction!!
		bne	@abort			;let lou return the error
;
;Setup the new address to find
;
		ldy	#$0001			;get the address that I need to unload please
		lda	[temp_ptr],y
		sta	param_blk+func_0e_seg_addr
		iny
		iny
		lda	[temp_ptr],y		;get the high word please
		and	#$00FF			;clear garbage
		sta	param_blk+func_0e_seg_addr+2
						;save the new address please
		bra	@retry
@not_jump
		txa				;setup the segment number

@return_info					;label moved so that we _always_ call Make_Purgeable
		jsr	make_purgable		;{gab - 04/23/90}

;@return_info
		lda	search_seg
		jsr	my_seg_to_user_seg
		pha
		pea	$0001
		lda	user_id
		pha
		lda	#$0000
		jmp	return_to_caller	;return to the caller
@abort
		ldx	#func_0e_param_cnt	;restore the stack for the loader
		jsr	restore_params
returnE
		jml	$000000
			
		eject
;====================================================================================================
;L_Get_User_ID:	This routine will return the user Id given a Pathname	
;
;
;Input:         A = undefined
;               X = function number
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;		
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..
;               b = k
;
;Stack before call:
;
;		previous contents
;		result space		word
;		Pathname Pointer	Long	PString	
;	SP ---->
;
;Stack after call:
;
;		previous contents
;		User_ID			word
;	SP ---->
;
;====================================================================================================
L_get_userID	
		jsr	save_AXY
		
		IF	debug_on=0	GOTO	.nobug
		lda	#$0008
		sta	>Rom_debug
.nobug
		ldx	#func_10_param_cnt	;get the number of parameters of the stack
		jsr	get_parameters

						;lets build the name
		lda	param_blk+func_10_path_addr+2
		tay				;high word of the pathname
		lda	param_blk+func_10_path_addr
		tax				;low word of the pathname
		jsr	expand_app_path
		bcs	@abort			;GS/OS could not expand the pathname

		jsr	path_to_user_id		;given a path this routine finds a user ID		
		bcs	@abort
		pha				;push the user ID
		lda	#$0000
		clc
		jmp	return_to_caller	;we were successful!!
@abort
		ldx	#func_10_param_cnt	;restore the stack for the loader
		jsr	restore_params
return10
		jml	$000000

		eject
;====================================================================================================
;L_Get_User_ID2:	This routine will return the user Id given a class1 Pathname	
;
;
;Input:         A = undefined
;               X = function number
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;		
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..
;               b = k
;
;Stack before call:
;
;		previous contents
;		result space		word
;		Pathname Pointer	Long	GString	
;	SP ---->
;
;Stack after call:
;
;		previous contents
;		User_ID			word
;	SP ---->
;
;====================================================================================================
L_get_userID2	
		jsr	save_AXY
		
		IF	debug_on=0	GOTO	.nobug
		lda	#$0009
		sta	>Rom_debug
.nobug
		ldx	#func_21_param_cnt	;get the number of parameters of the stack
		jsr	get_parameters

					;lets build the name
		lda	param_blk+func_21_path_addr+2
		tay				;high word of the pathname
		lda	param_blk+func_21_path_addr
		tax				;low word of the pathname

		stx	expand.src
		sty	expand.src+2

		lda	#Full_blown
		sta	expand.dest
		lda	#^Full_blown		;put the destination name here
		sta	expand.dest+2

		jsr	lock_handles
		jsl	$e100a8			;call GS/OS
		dc.w	$200E			;expand path call
		dc.l	Expand			;pointer to the parameter
		jsr	unlock_handles
		bcs	@abort			;GS/OS could not expand the pathname

		jsr	path_to_user_id		;given a path this routine finds a user ID		
		bcs	@abort
		pha				;push the user_id
		lda	#$0000
		clc
		jmp	return_to_caller	;we were successful!!

@abort
		ldx	#func_21_param_cnt	;restore the stack for the loader
		jsr	restore_params
return17
		jml	$000000

		eject
;====================================================================================================
;L_get_pathname:	This call returns the pathname associated with a User ID.	
;
;Input:         A = undefined
;               X = function number
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;		
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..
;               b = k
;
;Stack before call:
;
;		previous contents
;		result space		long
;		User ID			word
;		file number		word	
;	SP ---->
;
;Stack after call:
;
;		previous contents
;		pathname pointer	long	PString
;	SP ---->
;
;
;
;====================================================================================================
L_get_pathname	
		jsr	save_AXY
		
		IF	debug_on=0	GOTO	.nobug
		lda	#$000A
		sta	>Rom_debug
.nobug
		ldx	#func_11_param_cnt	;get the number of parameters of the stack
		jsr	get_parameters

		lda	param_blk+func_11_file_num
		dec	a
		bne	@abort			;if file number not 1 then call system loader
		
		lda	param_blk+func_11_user_id
		jsr	find_user_id		;see if we have the ID
		bcs	@abort

		ldy	#$0002
		lda	[temp_ptr],y		;get the ExpressLoad handle
		tax
		iny
		iny
		lda	[temp_ptr],y
		tay
		bne	@have_handle
		txa
		bne	@have_handle		;we have the handle
		lda	#ExpressSegLost
		sec
		bra	@error_exit		;report error to the caller.
@have_handle
		stx	ExpressHandle
		sty	ExpressHandle+2
		jsr	Merge_path		;Build a GString
		jsr	GString_to_PString	;convert string to class 0 format
		bcs	@error_exit		;I could not convert the pathname
		
		lda	#^Full_Blown.size	
		pha
		lda	#Full_Blown.size
		pha
		lda	#$0000
		clc

		jmp	return_to_caller	;we were successful!!
@error_exit
		ldx	param_blk+func_11_user_id
		beq	@abort			;Give Lou a chance.
		ldx	#func_11_err_cnt
		jmp	return_with_error	;Return to the caller with the error code
		
@abort
		ldx	#func_11_param_cnt	;restore the stack for the loader
		jsr	restore_params
return11
		jml	$0000000
		
		eject
;====================================================================================================
;L_getpath2:	This routine will return a pathname for a user ID	
;
;
;Input:         A = undefined
;               X = Tool and Function Number
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;		
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..
;               b = k
;
;Stack before call:
;
;		previous contents
;		result space		long
;		User ID			word
;		file number		word	
;	SP ---->
;
;Stack after call:
;
;		previous contents
;		pathname pointer	long
;	SP ---->
;
;
;====================================================================================================
		longa	on
		longi	on
L_getpath2
		jsr	save_AXY
		
		IF	debug_on=0	GOTO	.nobug
		lda	#$000b
		sta	>Rom_debug
.nobug
		ldx	#func_22_param_cnt	;get the number of parameters of the stack
		jsr	get_parameters

		lda	param_blk+func_22_file_num
		dec	a
		bne	@abort			;if file number not 1 then call system loader
		
		lda	param_blk+func_22_user_id
		jsr	find_user_id		;see if we have the ID
		bcs	@abort

		ldy	#$0002
		lda	[temp_ptr],y		;get the ExpressLoad handle
		tax
		iny
		iny
		lda	[temp_ptr],y
		tay
		bne	@have_handle
		txa
		bne	@have_handle		;we have the handle
		lda	#ExpressSegLost
		sec
		bra	@error_exit		;report error to the caller.
@have_handle
		stx	ExpressHandle
		sty	ExpressHandle+2
		jsr	Merge_path
		
		lda	#^Expanded_name.size	
		pha
		lda	#expanded_name.size
		pha
		lda	#$0000
		clc
		jmp	return_to_caller	;we were successful!!
@error_exit
		ldx	param_blk+func_22_user_id
		beq	@abort
		ldx	#func_22_err_cnt
		jmp	return_with_error	;Return to the caller with the error code
		
@abort
		ldx	#func_22_param_cnt	;restore the stack for the loader
		jsr	restore_params

return16	jml	$000000
		
		eject
;====================================================================================================
;L_user_shutdown:	This routine will shutdown a load segment	
;
;
;Input:         A = undefined
;               X = Tool and Function Number
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;		
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..
;               b = k
;
;Stack before call:
;
;		previous contents
;		result space		long
;		User ID			word
;		quit flag		word	
;	SP ---->
;
;Stack after call:
;
;		previous contents
;		User ID			word
;	SP ---->
;
;
;====================================================================================================
L_user_shutdown	
		jsr	save_AXY
		
		IF	debug_on=0	GOTO	.nobug
		lda	#$000c
		sta	>Rom_debug
.nobug
		ldx	#func_12_param_cnt	;get the number of parameters of the stack
		jsr	get_parameters

						;see if this is my User ID
		lda	param_blk+func_12_User_ID
		jsr	find_user_id		;Is this mine?
		bcc	@found_it		;yes...
		brl	@abort			;no. It must belong to the system loader
@found_it
		ldy	#$0002
		lda	[temp_ptr],y		;get the ExpressLoad handle
		tax
		iny
		iny
		lda	[temp_ptr],y
		tay
		bne	@have_handle
		txa
		bne	@have_handle		;we have the handle
		lda	#ExpressSegLost
		sec
		bra	@error_exit		;report error to the caller.
@have_handle
		stx	ExpressHandle
		sty	ExpressHandle+2		
		jsr	close_dynamic_file	;close file if any segments were dynamic
		
		lda	temp_ptr		;setup the User_ID pointer to point to the entry
		sta	user_id_ptr
		lda	temp_ptr+2
		sta	user_id_ptr+2
		
						;save the guit floag
		lda	param_blk+func_12_quit_flag
						;what type of kill is this
		beq	@nuke_it		;remove the entire application
		cmp	#$8000			;is this a "keep Only Table" quit
		bne	@make_dormant		;this a restart attemp
;
;If we get here we need to purge the app but keep our tables intack
;
		lda	#purge_all		;remove all segments
		ldx	#$0000			;LOAD flags AND mask COMPARE value BEQ REMOVE_IT
		jsr	Remove_segment		;deallocate the segments
		bra	@norm_exit

@make_dormant
		lda	#purge_dynamics		;remove dynamic segments
		ldx	#$0000			;LOAD flags AND mask COMPARE value BEQ REMOVE_IT
		jsr	Remove_segment		;deallocate the segments
		jsr	mark_all_purgable
		bra	@norm_exit
@nuke_it
		pha				;space for handle
		pha
		pei	user_id_ptr+2		;lock down the user ID table
		pei	user_id_ptr
		ldx	#$1A02			;FindHandle
		jsl	$E10000
		lda	3,s			;duplicate the handle on the stack
		pha
		lda	3,s
		pha
		ldx	#$2002			;HLock
		jsl	$E10000
		
		lda	#nuke_id		;delete the ID and the memory
		jsr	delete_user_id		;remove the user_id please
		
		ldx	#$2202			;HUnlock (handle already on stack)
		jsl	$E10000			;unlock the user ID table
		
@norm_exit
		lda	user_id
		pha
		lda	#$0000
		clc
		jmp	return_to_caller	;we were successful!!
@error_exit
		ldx	param_blk+func_12_User_ID
		beq	@abort			;Must be Lou's
		ldx	#func_12_err_cnt
		jmp	return_with_error	;Return to the caller with the error code
@abort
		ldx	#func_12_param_cnt	;restore the stack for the loader
		jsr	restore_params
return12
		jml	$000000

		eject
;====================================================================================================
;L_Rename_Path:	This routine will rename a pathname if the pathname belongs to an ExpressLoad segment	
;
;
;Input:         A = undefined
;               X = function number
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;		
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..
;               b = k
;
;Stack before call:
;
;		previous contents
;		Pathname Pointer old	Long	GString	
;		Pathname Pointer new	Long	GString	
;	SP ---->
;
;Stack after call:
;
;		previous contents
;	SP ---->
;
;====================================================================================================
L_Rename_Path	
		jsr	save_AXY
		
		IF	debug_on=0	GOTO	.nobug
		lda	#$000F
		sta	>Rom_debug
.nobug
		ldx	#func_13_param_cnt	;get the number of parameters of the stack
		jsr	get_parameters
						;lets build the name
		jsr	rename_segments		;go and rename what we can		
		
		ldx	#func_13_param_cnt	;restore the stack for the loader
		jsr	restore_params
return13
		jml	$000000


		
patch_table		
		dc.l	9*4			;skip to Initial Load
		dc.l	L_init_load-1
		dc.l	return9
		
		dc.l	$0A*4
		dc.l	L_restart-1
		dc.l	returnA
		
		dc.l	$0B*4
		dc.l	L_seg_by_num-1		;load segment by number
		dc.l	returnB
		
		dc.l	$0C*4
		dc.l	L_unload1-1
		dc.l	returnC
		
		dc.l	$0D*4
		dc.l	L_seg_by_name-1		;load the segment by name
		dc.l	returnD
		
		dc.l	$0E*4
		dc.l	L_unload2-1
		dc.l	returnE
		
		dc.l	$10*4
		dc.l	L_get_userID-1
		dc.l	return10
		
		dc.l	$11*4
		dc.l	L_get_pathname-1
		dc.l	return11
		
		dc.l	$12*4
		dc.l	L_user_shutdown-1
		dc.l	return12

		dc.l	$13*4
		dc.l	L_rename_path-1
		dc.l	return13
		
		dc.l	$20*4			;initial load 2 routine
		dc.l	L_initial2-1
		dc.l	return15
		
		dc.l	$22*4			;get pathname call
		dc.l	L_getpath2-1
		dc.l	return16
	
		dc.l	$21*4			;get pathname call
		dc.l	L_get_userID2-1
		dc.l	return17

		
		dc.l	0000
		endp

		eject
****************************************************************************************************
*
* draw_express - draws splash screen text
*
****************************************************************************************************

draw_express	proc

line		equ	$A0
progress_start	equ	$e15109+02+(line*17)

		php
		
		pei	temp_word
		pei	temp_ptr
		pei	temp_ptr+2

		lda	#$0008
		sta	temp_word
;
;setup pointer to graphics screen area I am going to write to.
;
		lda	#progress_start**$FFFF
		sta	temp_ptr
		lda	#^progress_start
		sta	temp_ptr+2
		ldy	#$0000
		tyx

		longa	off
		longi	on
		sep	#$20
		lda	>show_splash
		bmi	loop				;I am being called because user wants screen
		
		lda	>$00C025			;read the AppleKey while I boot
		and	#$C0				;leave Option/Apple Key
		cmp	#$C0
		bne	jump_out
loop					 
		lda	Expanded_name.my_string,x	;grab graphics line from our buffer
		sta	[temp_ptr],y
		inx
		iny
		cpy	#Expanded_name.line_length	;move one line then update base pointer
		bne	loop

		longa	on
		rep	#$20
		clc
		lda	temp_ptr
		adc	#line		;move to the next line
		sta	temp_ptr		
		lda	temp_ptr+2
		adc	#$0000
		sta	temp_ptr+2
		longa	off
		sep	#$20
		
		ldy	#$0000
		dec	temp_word	;see if we have done enough lines
		bne	loop

		longa	on
		longi	on
		rep	#$20
		lda	#$FFFF		;we do not need to draw this twice.
		sta	>show_splash
jump_out
		rep	#$20
		pla
		sta	temp_ptr+2
		pla
		sta	temp_ptr
		pla
		sta	temp_word

		plp
		rts			;we are done

		endp		
		end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Loader/ExpressLoad/ProcReloc.DataBankChanged b/IIGS.601.SRC/GS.OS/Loader/ExpressLoad/ProcReloc.DataBankChanged
new file mode 100644
index 0000000..899d9fa
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Loader/ExpressLoad/ProcReloc.DataBankChanged
@@ -0,0 +1 @@
+		eject
;====================================================================================================
;get_seg_base:	Given a segment number this routine will setup segment_base
;
;Input:         A = segment_number
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;		HET_ptr			;must be setup!
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;====================================================================================================
	
		longa	on
		longi	on		
get_seg_base	proc
		with	data
		dec	a			;HET table numbers are 0 thru (-n- minus 1)
		sec
		sbc	>data.ExpressSeg_pos
		
		asl	a
		asl	a
		asl	a			;times 8 for HET entry size
		
		inc	a			;add two to pass the segment count field
		inc	a

		clc
		adc	HET_ptr			;make a pointer to the Entry
		sta	HET_Entry_ptr		;pointer to the entry itself
		lda	#$0000
		adc	HET_ptr+2
		sta	HET_Entry_ptr+2				
;
;Now we need to setup our Base address for this segment
;
		ldy	#$0004			;index to the handle
		lda	[HET_entry_ptr],y
		sta	Temp_Handle
		iny
		iny
		lda	[HET_Entry_ptr],y
		sta	temp_handle+2
;
;Deref the handle to find out the base address
;
		ldy	#$0002
		lda	[temp_handle]
		sta	segment_base		;starting address of the segment
		lda	[temp_handle],y
		sta	segment_base+2
		ora	segment_base		;see if the segment has been purged!
		bne	@segment_alive		;great.
		lda	#seg_not_found
		sec
		rts
@segment_alive
		clc
		rts
		
		eject
;====================================================================================================
;Process_Reloc:	This routine is called to process the relocation dictionary of a segment
;		** NOTE ** This code changes the data bank register to the bank that
;		contains the Relocation Dictionary.  This means all data access to data in
;		our bank must use long addressing.
;
;Input:         A = segment number to relocate
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;		HET_ptr			;pointer to HET (Header Entry Table) must be setup!
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;
;-Note-
;		All Segments that this segment links to must be loaded into memory
;
;HET Entry definition:
;
;		-------------------
;		Number of segments	(word)
;		-------------------
;			¥
;			¥
;			¥
;		-------------------	[This is one Header Entry, it is repeated -n- times]
;		Relative offset to
;		segment header		(word)
;		-------------------
;		Flags			(word) Bit 15 = loaded
;		-------------------
;		Handle to segment	(Long) Points to the segment in memory
;		-------------------
;			¥
;			¥
;			¥
;
;====================================================================================================
	
		longa	on
		longi	on		
Process_Reloc	proc
		with	data
		
		sta	reloc_seg		;segment numbers are 1 thru -n-
		jsr	setup_seg_ptrs		;build pointers to the segment entries		

		IF	debug_on=0	GOTO	.nobug
		lda	#$EEEE
		sta	>Rom_debug+4
.nobug
;
;Now we need to setup our Base address for this segment
;
		ldy	#$0004			;index to the handle
		lda	[HET_entry_ptr],y
		sta	Temp_Handle
		iny
		iny
		lda	[HET_Entry_ptr],y
		sta	temp_handle+2
;
;Deref the handle to find out the base address
;
		ldy	#$0002
		lda	[temp_handle]
		sta	base_ptr		;starting address of the segment
		lda	[temp_handle],y
		sta	base_ptr+2
		ora	base_ptr		;see if the segment has been purged!
		bne	@segment_alive		;great.
@no_seg
		sec
		lda	#seg_not_found		;sorry we cannot process the segment
		rts
;
;Now we need to deref the handle to the relocation dictionary
;The handle for the relocation dictionary is located in the segment header
;
@segment_alive
		ldy	#reloc_size_offset	;now lets get the size of the segment
		lda	[seg_header_ptr],y
		bne	@its_there
		iny
		iny
		lda	[seg_header_ptr],y
		bne	@its_there
		clc
		rts				;easy case
@its_there	
		ldy	#Reloc_dict_offset	;offset to the relocation dictionary handle
		lda	[seg_header_ptr],y	;get the handle
		sta	temp_handle
		iny
		iny
		lda	[seg_header_ptr],y
		sta	temp_handle+2
;
;now lets deref the handle and build a pointer to the relocation dictionary
;
		ldy	#$0002
		lda	[temp_handle]
		sta	reloc_dict_ptr		;points the relocation dictionary in memory
		lda	[temp_handle],y
		sta	reloc_dict_ptr+2
		ora	reloc_dict_ptr		;is the dictionary available
		beq	@no_seg
		stz	end_found		;indicate there are records to process
		stz	patch_cnt
		stz	shift_cnt
		
		lda	reloc_dict_ptr+1	;set the data bank register to relocation dictionary
		pha
		plb				;get the Bank Address of Relocation Dictionary
		plb
opcode_loop
		lda	(reloc_dict_ptr)	;get the current opcode
		and	#$00FF			;clear any garbage
		beq	do_end_handler		;this is the end handler
		asl	a			;times two for word table
		tax
		jsr	(opcode_handlers-$1C4,x) ;Subtract of base of opcodes ($1C4 = $E2*2)
		bcc	opcode_loop		;do the next opcode please
		phk
		plb				;restore our bank
		rts				;return the error code
		
;
;This routine dispatches to the correct opcode handler
;
do_end_handler
		pea	we_are_done-1		;this is the last one!
		pea	end_handler-1
		rts
we_are_done
		phk
		plb				;restore our bank please
		
		IF	debug_on=0	GOTO	.nobug
		lda	#$BBBB
		sta	>Rom_debug+6
.nobug
		ldy	#Reloc_dict_offset+2	;offset to the relocation dictionary handle
		lda	[seg_header_ptr],y	;get the handle
		pha
		lda	#$0000
		sta	[seg_header_ptr],y
		dey
		dey
		lda	[seg_header_ptr],y
		pha
		lda	#$0000
		sta	[seg_header_ptr],y
		
		ldx	#$1002			;dispose handle
		jsl	$e10000

		stz	temp_handle		;make sure we note that the handle is invalid
		stz	temp_handle+2
		
		clc
		rts				;we did it!!!!
		
bad_opcode
		sec
		lda	#illegal_record
		rts				;exit with error
		
		
opcode_handlers	
		dc.w	Reloc_handler		;$E2
		dc.w	Interseg_handler	;$E3
		dc.w	bad_opcode		;$E4
		dc.w	bad_opcode		;$E5
		dc.w	bad_opcode		;$E6
		dc.w	bad_opcode		;$E7
		dc.w	bad_opcode		;$E8
		dc.w	bad_opcode		;$E9
		dc.w	bad_opcode		;$EA
		dc.w	bad_opcode		;$EB
		dc.w	bad_opcode		;$EC
		dc.w	bad_opcode		;$ED
		dc.w	bad_opcode		;$EE
		dc.w	bad_opcode		;$EF
		dc.w	bad_opcode		;$F0
		dc.w	bad_opcode		;$F1
		dc.w	bad_opcode		;$F2
		dc.w	bad_opcode		;$F3
		dc.w	bad_opcode		;$F4
		dc.w	cReloc_handler		;$F5
		dc.w	cInterseg_handler	;$F6
		dc.w	Super_handler		;$F7
		
		eject
;====================================================================================================
;
;This routine will process a standard relocation entry
;
;Structure pointed to by Reloc_dict_ptr
;
;		opcode $E2	(1 Byte)
;		patch_cnt	(1 byte: number of bytes to patch)
;		bit_shift	(1 byte: (+) = ASL (-) = LSR
;		patch_offset	(4 bytes: offset from the start of the segment)
;		patch_value	(4 bytes: offset from the start of the segment)
;
;====================================================================================================
		
Reloc_handler
		ldy	#$0001
		lda	(reloc_dict_ptr),y	;get the patch cnt and bit shift
		sep	#$20
		sta	patch_cnt		;the number of bytes to patch 1,2 or 3
		xba
		sta	shift_cnt
		rep	#$20			;back to 16 bit mode

		ldy	#$0003			;point to the patch offset
		clc
		lda	(reloc_dict_ptr),y
		adc	base_ptr		;base address
		sta	patch_ptr		;address to patch
		ldy	#$0005
		lda	(reloc_dict_ptr),y
		adc	base_ptr+2
		sta	patch_ptr+2		;high word of patch address

		ldy	#$0007			;point to the patch value field
		clc
		lda	(reloc_dict_ptr),y
		adc	base_ptr
		sta	patch_value
		ldy	#$0009
		lda	(reloc_dict_ptr),y
		adc	base_ptr+2
		sta	patch_value+2		;what we will patch with

		clc
		lda	reloc_dict_ptr		;bump the relocation dictionary pointer please
		adc	#$000b
		sta	reloc_dict_ptr
		bcc	@low_only
		inc	reloc_dict_ptr+2	;don't forget the high byte please
		lda	reloc_dict_ptr+1
		pha
		plb
		plb				;setup for the new bank please
@low_only
		jmp	shift_patch		;the the patch please
				
		eject
;====================================================================================================
;
;This routine will process a compressed relocation entry
;
;Structure pointed to by Reloc_dict_ptr
;
;		opcode $F5	(1 Byte)
;		patch_cnt	(1 byte: number of bytes to patch)
;		bit_shift	(1 byte: (+) = ASL (-) = LSR
;		patch_offset	(2 bytes: offset from the start of the segment)
;		patch_value	(2 bytes: offset from the start of the segment)
;
;====================================================================================================
		
cReloc_handler
		ldy	#$0001
		lda	(reloc_dict_ptr),y	;get the patch cnt and bit shift
		sep	#$20
		sta	patch_cnt		;the number of bytes to patch 1,2 or 3
		xba
		sta	shift_cnt
		rep	#$20			;back to 16 bit mode

		ldy	#$0003			;point the patch offset
		clc
		lda	(reloc_dict_ptr),y
		adc	base_ptr		;base address
		sta	patch_ptr		;address to patch
		lda	#$0000
		adc	base_ptr+2
		sta	patch_ptr+2		;high word of patch address

		ldy	#$0005			;point to the patch value field
		clc
		lda	(reloc_dict_ptr),y
		adc	base_ptr
		sta	patch_value
		lda	#$0000
		adc	base_ptr+2
		sta	patch_value+2		;what we will patch with

		clc
		lda	reloc_dict_ptr		;bump the relocation dictionary pointer please
		adc	#$0007
		sta	reloc_dict_ptr
		bcc	@low_only
		inc	reloc_dict_ptr+2	;don't forget the high byte please
		pei	reloc_dict_ptr+1
		plb
		plb				;setup for the new bank please
@low_only
		jmp	shift_patch		;the the patch please

		eject
;====================================================================================================
;
;This routine will process a Interseg relocation entry
;
;Structure pointed to by Reloc_dict_ptr
;
;		opcode $E3	(1 Byte)
;		patch_cnt	(1 byte: number of bytes to patch)
;		bit_shift	(1 byte: (+) = ASL (-) = LSR
;		patch_offset	(4 bytes: offset from the start of the segment)
;		file number	(2 bytes: file number of load file: not supported yet)
;		segment number	(2 bytes: segment that we are linking to)
;		patch_value	(4 bytes: offset from the start of the destination segment)
;
;====================================================================================================
Interseg_handler
		ldy	#$0001
		lda	(reloc_dict_ptr),y	;get the patch cnt and bit shift
		sep	#$20
		sta	patch_cnt		;the number of bytes to patch 1,2 or 3
		xba
		sta	shift_cnt
		rep	#$20			;back to 16 bit mode

		ldy	#$0003			;point the patch offset
		clc
		lda	(reloc_dict_ptr),y
		adc	base_ptr		;base address
		sta	patch_ptr		;address to patch
		ldy	#$0005
		lda	(reloc_dict_ptr),y
		adc	base_ptr+2
		sta	patch_ptr+2		;high word of patch address

		ldy	#$0007			;now lets point to the file number
		lda	(reloc_dict_ptr),y
		dec	a			;better be one
		beq	@great
		sec
		lda	#illegal_record
		rts				;return the error
@great
		ldy	#$0009			;get the segment number
		lda	(reloc_dict_ptr),y
		and	#$00FF
		jsr	get_seg_base
		bcc	@got_it
		rts
@got_it
		ldy	#$000B			;offset to relative address in destination seg
		clc
		lda	(reloc_dict_ptr),y
		adc	segment_base
		sta	patch_value
		ldy	#$000D
		lda	(reloc_dict_ptr),y
		adc	segment_base+2
		sta	patch_value+2
		
		clc
		lda	reloc_dict_ptr		;bump the relocation dictionary pointer please
		adc	#$000F
		sta	reloc_dict_ptr
		bcc	@low_only
		inc	reloc_dict_ptr+2	;don't forget the high byte please
		lda	reloc_dict_ptr+1
		pha
		plb
		plb				;setup for the new bank please
@low_only
		jmp	shift_patch		;patch the segment please
		
		eject
;====================================================================================================
;
;This routine will process a compressed Interseg relocation entry
;
;Structure pointed to by Reloc_dict_ptr
;
;		opcode $F6	(1 Byte)
;		patch_cnt	(1 byte: number of bytes to patch)
;		bit_shift	(1 byte: (+) = ASL (-) = LSR
;		patch_offset	(2 bytes: offset from the start of the segment)
;		segment number	(1 bytes: segment that we are linking to)
;		patch_value	(2 bytes: offset from the start of the destination segment)
;
;====================================================================================================
cInterseg_handler
		ldy	#$0001
		lda	(reloc_dict_ptr),y	;get the patch cnt and bit shift
		sep	#$20
		sta	patch_cnt		;the number of bytes to patch 1,2 or 3
		xba
		sta	shift_cnt
		rep	#$20			;back to 16 bit mode

		ldy	#$0003			;point the patch offset
		clc
		lda	(reloc_dict_ptr),y
		adc	base_ptr		;base address
		sta	patch_ptr		;address to patch
		lda	#$0000
		adc	base_ptr+2
		sta	patch_ptr+2		;high word of patch address

		ldy	#$0005			;get the segment number
		lda	(reloc_dict_ptr),y
		and	#$00FF			;one byte segment number
		jsr	get_seg_base
		bcc	@got_it
		rts
@got_it
		ldy	#$0006			;offset to relative address in destination seg
		clc
		lda	(reloc_dict_ptr),y
		adc	segment_base
		sta	patch_value
		lda	#$0000
		adc	segment_base+2
		sta	patch_value+2
		
		clc
		lda	reloc_dict_ptr		;bump the relocation dictionary pointer please
		adc	#$0008
		sta	reloc_dict_ptr
		bcc	@low_only
		inc	reloc_dict_ptr+2	;don't forget the high byte please
		lda	reloc_dict_ptr+1
		pha
		plb
		plb				;setup for the new bank please
@low_only
		jmp	shift_patch		;patch the segment please
		
		eject
;====================================================================================================
;Super_Handler	This one is a bitch.
;
;There are several types of super records.  Below is the list that I support.
;
;	1)	Reloc2
;	2)	Reloc3
;	3)	Interseg1-Interseg36
;
;
;Super record structure:
;
;		opcode	$F7		;byte
;		------------------------
;		size of record		;long
;		------------------------
;		record type		;byte
;		------------------------
;		patch info: example
;
;		$01			;patch two bytes in page one of load segment
;		$34			;offset to 1st byte in page one of load segment
;		$7A			;offset to 2nd byte in page one of load segment
;		$81			;skip 1 page. (High bit means lower 7 bits contain skip cnt)
;		$00			;patch one byte in page three of load segment
;		$82			;offset in page three to patch
;		
;====================================================================================================
super_handler
		lda	base_ptr		;address of the segment
		sta	temp_ptr
		lda	base_ptr+2
		sta	temp_ptr+2
		
		clc
		lda	reloc_dict_ptr
		adc	#$0006			;pass the record type
		sta	super_ptr
		lda	reloc_dict_ptr+2
		adc	#$0000
		sta	super_ptr+2
		
		ldy	#$0001			;get the total count of entries please
		lda	(reloc_dict_ptr),y	;get the size of the Super Record
		sta	super_size
		dec	a			;remove one for the opcode byte
		sta	cnt_word
		ldy	#$0003
		lda	(reloc_dict_ptr),y	;fail if non-zero
		beq	@size_ok
		sec
		lda	#illegal_record
		rts				;return the error
@size_ok
		ldy	#$0005			;pass the size field
		lda	(reloc_dict_ptr),y
		and	#$00FF			;clear the garbage
		tax
		beq	@reloc2_type		;do a reloc 2 type
		dec	a
		beq	@reloc3_type
;
;If we get here we know that this is an Interseg Record of some kind
;
		txa				;get back the kind again
		cmp	#26
		bcc	@chk_14

		jsr	Interseg_26
		bra	@end_super		;we are done
@chk_14
		cmp	#14
		bcc	@one_thru_12

		jsr	Interseg_14		;do the conversion
		bra	@end_super
@one_thru_12
		jsr	Interseg_1
		bra	@end_super
@reloc2_type
		jsr	reloc2
		bra	@end_super
@reloc3_type
		jsr	reloc3
		
@end_super
		bcs	@abort
		lda	super_size		;size of the data area
		adc	#$0005			;overhead in record
		clc
		adc	reloc_dict_ptr		;bump the relocation dictionary pointer please
		sta	reloc_dict_ptr
		bcc	@low_only
		inc	reloc_dict_ptr+2	;don't forget the high byte please
		lda	reloc_dict_ptr+1
		pha
		plb
		plb				;setup for the new bank please
@low_only
		clc
@abort
		rts

		eject
;====================================================================================================
;Interseg1	This routine is used to patch Super interseg records 1 thru 12:
;
;structure:
;
;		If the opcode field is 3 thru 13 then this value indicates
;		the file number (plus 1) to load from.  I do not support this.
;
;		relocation information is in the operand field of load segment.
;		Format:
;			Offset		;word
;			segment number	;byte number of segment to link to.
;
;
;====================================================================================================
Interseg_1
		ldy	#$0005			;lets get the segment number
		lda	(reloc_dict_ptr),y
		and	#$00FF			;get the record type
		cmp	#$0003			;is the number 2 thru 12?
		bcc	@good_seg
		lda	#illegal_record		;sorry illegal record type
@good_seg
		ldy	#$0000

		lda	cnt_word		;see if we are done yet
		beq	@done
@outter_loop
		lda	[super_ptr],y		;get the command (8 Bits)
		bit	#$0080			;clear all but the pages bit
		beq	@do_inner_loop		;process the relocation info
		and	#$007F			;get the number of pages to skip

		xba				;multiply the number times 256
		clc
		adc	temp_ptr
		sta	temp_ptr
		bcc	@low_only
		inc	temp_ptr+2
@low_only
		iny				;bump index to the next byte
		dec	cnt_word		;reduce the count by one
		bne	@outter_loop
@done
		clc
		rts				;we are done


@do_inner_loop
		and	#$007F			;number of entries we have to patch
		tax
@inner_loop
		dec	cnt_word		;reduce the count by one
		iny				;bump index to the next byte

		lda	[super_ptr],y		;A = offset
		and	#$00FF			;clear garbage
		phy				;save the index please

		tay
		phy				;index to patch area
		
		lda	[temp_ptr],y		;get the relative offset in other segment
		sta	patch_value
		iny
		iny
		lda	[temp_ptr],y		;get the segment number to patch to
		and	#$00FF
		jsr	get_seg_base		;go and get the segment base address
		ply				;get our index back please
		bcc	@have_segment
		ply				;remove super index please
		rts				;return the error
@have_segment
		clc
		lda	segment_base
		adc	patch_value
		sta	[temp_ptr],y
		iny
		iny
		lda	segment_base+2
		adc	#$0000
		sep	#$20			;8 bit store only
		sta	[temp_ptr],y		;save the new address please
		rep	#$20			;16 bit mode
		
		ply				;restore super index
		dex
		bpl	@inner_loop		;process this page
		
		iny				;bump to next byte
		inc	temp_ptr+1		;add 256 to the page pointer
		dec	cnt_word		;reduce the count by one
		bne	@outter_loop
		clc
		rts

		eject
;====================================================================================================
;Interseg_14	This routine processes interseg 14 thru interseg 24 types.
;		This type allows a 16 bit patch with no shifting.
;
;Structure:
;
;		The segment number to process is in the opcode byte.  To determine
;		the real segment number just subtract 13 from the stored value.
;
;====================================================================================================
Interseg_14
		ldy	#$0005			;lets get the segment number
		sec
		lda	(reloc_dict_ptr),y
		and	#$00FF			;get the record type
		sbc	#13
		jsr	get_seg_base		;setup the base address for this segment
		ldy	#$0000			;init super index
		bcc	@continue
		rts				;return the error		

@continue
		lda	cnt_word		;see if we are done yet
		beq	@done
@outter_loop
		lda	[super_ptr],y		;get the command (8 Bits)
		bit	#$0080			;clear all but the pages bit
		beq	@do_inner_loop		;process the relocation info
		and	#$007F			;get the number of pages to skip

		xba				;multiply the number times 256
		clc
		adc	temp_ptr
		sta	temp_ptr
		bcc	@low_only
		inc	temp_ptr+2
@low_only
		iny				;bump index to the next byte
		dec	cnt_word		;reduce the count by one
		bne	@outter_loop
@done
		clc
		rts

@do_inner_loop
		and	#$007F			;number of entries we have to patch
		tax
@inner_loop
		dec	cnt_word		;reduce the count by one
		iny				;point to the next byte
		
		lda	[super_ptr],y		;A = offset
		and	#$00FF			;clear garbage
		phy				;save super index
		tay				;build patch record index

		clc				;do the 16 bit patch
		lda	[temp_ptr],y		;get the relative offset in other segment
		adc	segment_base
		sta	[temp_ptr],y

		ply				;get back super index
		dex
		bpl	@inner_loop		;process this page
		
		iny				;point to the next byte	
		inc	temp_ptr+1		;point to the next page please
		dec	cnt_word		;reduce the count by one
		bne	@outter_loop
		clc
		rts
		
		eject
;====================================================================================================
;Interseg_26	This routine processes interseg 25 thru interseg 36 types.
;		This type allows a 16 bit patch with 16 bit shifting.
;
;Structure:
;
;		The segment number to process is in the opcode byte.  To determine
;		the real segment number just subtract 25 from the stored value.
;====================================================================================================
Interseg_26
		ldy	#$0005			;lets get the segment number
		sec
		lda	(reloc_dict_ptr),y
		and	#$00FF			;get the record type
		sbc	#25
		jsr	get_seg_base		;setup the base address for this segment
		ldy	#$0000			;init the super index pointer
		bcc	@continue
		rts				;return the error		
@continue
		lda	cnt_word		;see if we are done yet
		beq	@done
@outter_loop
		lda	[super_ptr],y		;get the command (8 Bits)
		bit	#$0080			;clear all but the pages bit
		beq	@do_inner_loop		;process the relocation info
		and	#$007F			;get the number of pages to skip

		xba				;multiply the number times 256
		clc
		adc	temp_ptr
		sta	temp_ptr
		bcc	@low_only
		inc	temp_ptr+2
@low_only
		iny				;bump index to point to the next byte
		dec	cnt_word		;reduce the count by one
		bne	@outter_loop
@done
		clc
		rts

@do_inner_loop
		and	#$007F			;number of entries we have to patch
		tax
@inner_loop
		dec	cnt_word		;reduce the count by one
		iny				;point to the next byte
		
		lda	[super_ptr],y		;A = offset
		and	#$00FF			;clear garbage
		phy				;save super index
		tay				;build index to patch address

		lda	[temp_ptr],y		;get the relative offset in other segment
		sta	patch_value

		clc				;do the 16 bit patch
		lda	segment_base
		adc	patch_value
		lda	segment_base+2		;store the upper 16 bits only
		adc	#$0000
		sta	[temp_ptr],y

		ply				;restore super index
		dex
		bpl	@inner_loop		;process this page
		
		iny				;point to the next byte
		inc	temp_ptr+1		;bump to the next page
		dec	cnt_word		;reduce the count by one
		bne	@outter_loop
		clc
		rts
		
		eject
;====================================================================================================
Reloc2
		ldy	#$0000			;init the index
@outter_loop
		lda	cnt_word		;see if we are done yet
		bne	@not_yet
		clc
		rts				;we are done
@not_yet
		lda	[super_ptr],y		;get the command (8 Bits)
		bit	#$0080			;clear all but the pages bit
		beq	@do_inner_loop		;process the relocation info
		and	#$007F			;get the number of pages to skip

		xba				;multiply the number times 256
		clc
		adc	temp_ptr
		sta	temp_ptr
		bcc	@low_only
		inc	temp_ptr+2
@low_only
		dec	cnt_word		;reduce the count by one
		iny				;bump index to the next byte
		bra	@outter_loop


@do_inner_loop
		and	#$007F			;number of entries we have to patch
		tax
@inner_loop
		dec	cnt_word		;reduce the count by one
		iny				;point to the next index please
		
		lda	[super_ptr],y		;A = offset
		and	#$00FF			;clear garbage
		phy				;save super index
		tay				;build index to the patch area
		
		clc
		lda	[temp_ptr],y		;get the relative offset to patch with
		adc	base_ptr		;base address of segment
		sta	[temp_ptr],y
		
		ply				;restore super index
		dex
		bpl	@inner_loop		;process this page
		
		dec	cnt_word		;reduce the count by one
		iny				;point to the next byte
		inc	temp_ptr+1		;point to the next page please		
		bra	@outter_loop

		eject
;====================================================================================================
Reloc3
		ldy	#$0000			;init super index to zero
@outter_loop
		lda	cnt_word		;see if we are done yet
		bne	@not_yet
		clc
		rts				;we are done
@not_yet
		lda	[super_ptr],y		;get the command (8 Bits)
		bit	#$0080			;clear all but the pages bit
		beq	@do_inner_loop		;process the relocation info
		and	#$007F			;get the number of pages to skip

		xba				;multiply the number times 256
		clc
		adc	temp_ptr
		sta	temp_ptr
		bcc	@low_only
		inc	temp_ptr+2
@low_only
		dec	cnt_word		;reduce the count by one
		iny				;point to next byte
		bra	@outter_loop


@do_inner_loop
		and	#$007F			;number of entries we have to patch
		tax
@inner_loop
		dec	cnt_word		;reduce the count by one
		iny				;point to next byte in super record
		
		lda	[super_ptr],y		;A = offset
		and	#$00FF			;clear garbage
		phy				;save the super index please
		tay

		clc
		lda	[temp_ptr],y		;get the relative offset to patch with
		adc	base_ptr		;base address of segment
		sta	[temp_ptr],y
		iny
		iny

		sep	#$20			;8 bit accumulator
		lda	[temp_ptr],y
		adc	base_ptr+2
		sta	[temp_ptr],y		;save the third byte please
		rep	#$20			;16 bit accumulator
		
		ply				;restore super index
		dex
		bpl	@inner_loop		;process this page
		
		dec	cnt_word		;reduce the count by one
		iny				;bump super record index
		inc	temp_ptr+1		;bump to the next page please
		bra	@outter_loop

;====================================================================================================
;End_handler:	Just sets the flag indicating that we are done.
;====================================================================================================
		
end_handler
		lda	#$FFFF
		sta	>end_found		;indicate that we are done!!!
		rts

		eject
;====================================================================================================
;
;Below is the common patch code.  This code will do the relocation of the operand field
;
;====================================================================================================
shift_patch
		longa	off
		sep	#$20
		lda	shift_cnt		;number of times to shift
		beq	@no_shift		;very common case
		cmp	#$F0			;load the 3rd byte of address
		beq	@skip_16_bits
		cmp	#$F8			;load the 2nd byte of address
		beq	@skip_8_bits
;
;we have now handled the common cases. So lets do the odd cases now
;
		lda	shift_cnt
		bpl	@shift_left		;not a commom case
		sec
		lda	#$00
		sbc	shift_cnt		;convert twos compliment please
;
;do the slow shift right
;
		longa	on
		rep	#$20			;back to 16 bit mode
		and	#$00FF			;clear garbage
		tax				;count
@right_loop
		lsr	patch_value+2
		ror	patch_value		;shift by amount in x
		dex
		bne	@right_loop
		bra	patch_it		;continue the patch

@shift_left
		longa	on
		rep	#$20
		and	#$00FF
		tax
@left_loop
		asl	patch_value
		rol	patch_value+2
		dex
		bne	@left_loop		;shift the correct amount
		bra	patch_it		;continue the patch

@skip_16_bits					;equals a shift 16
		longa	on
		rep	#$20
		lda	patch_value+2		;get the high word please
		sta	patch_value
		bra	patch_it

@skip_8_bits					;equals a shift 8
		longa	on
		rep	#$20
		lda	patch_value+1
		sta	patch_value
		bra	patch_it
		
@no_shift					;equals no shift
		longa	on
		rep	#$20
patch_it
		ldy	#$0000
		lda	patch_cnt		;number of bytes to patch
		asl	a
		tax
		lda	>quick_jump-2,x
		pha
		rts
quick_jump
		dc.w	one_byte-1
		dc.w	two_byte-1
		dc.w	three_byte-1
		dc.w	four_byte-1

one_byte
		sep	#$20
		lda	patch_value
		sta	[patch_ptr]		;store the value
		rep	#$20
		clc
		rts
two_byte
		lda	patch_value
		sta	[patch_ptr]
		clc
		rts
three_byte
		lda	patch_value
		sta	[patch_ptr]
		ldy	#$0001
		lda	patch_value+1
		sta	[patch_ptr],y
		clc
		rts
four_byte
		ldy	#$0002
		lda	patch_value
		sta	[patch_ptr]
		lda	patch_value+2
		sta	[patch_ptr],y
		clc
		rts
		endp

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Loader/Files.a b/IIGS.601.SRC/GS.OS/Loader/Files.a
new file mode 100644
index 0000000..a6b5b9f
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Loader/Files.a
@@ -0,0 +1 @@
+		TITLE	', FILES.a - Next_Header'
*
****************************************************************
*
*              Read Next Segment Header
*
*  Inputs:     Header_Mark - Segment Header File Mark
*
*  Outputs:    A - status
*              C - set if error occurred
*              Header - contains Segment Header
*              Header_Mark - File Mark of next Segment Header
*
*  Zero Page used: TempZero
*
****************************************************************
*
Next_Header	PROC
		with	DirectPage, Globals
;
;        is Header_Mark in current File Buffer ?
;
		lda	|Header_Mark
		sec
		sbc	|File_Mark
		sta	TempZero
		lda	|Header_Mark+2
		sbc	|File_Mark+2
		sta	TempZero+2
		bne	cont1
		lda	TempZero
		cmp	|File_EOB
		bcs	cont1
;
;        yes, set File_Pt to location of Header_Mark
;
		sta	|File_Pt
		bra	cont2
;
;        no, is this is a Memory Load
;
cont1		lda	Memory_Load
		beq	cont1a
;
;        yes, set EOF condition and exit
;
		lda	#eofEncountered
error_skip
		jmp	error
;
;        no, set Mark of file to Header_Mark
;
cont1a		lda	|Header_Mark
		sta	|PSetMark.position
		lda	|Header_Mark+2
		sta	|PSetMark.position+2

		jsl	$E100A8			;call GS/OS
		dc.w	SET_MARK
		dc.l	PSetMark
		bcs	error_skip
;
;        fill File Buffer
;
		jsr	Fill_File_Buff
		bcs	error_skip
;
;        read 1st part of Header (up to DispData) so that size of
;        complete Header can be determined
;
cont2		pea	Header>>16		;Address
		pea	|Header
		pea	SegmentHeader.DispData+2>>16 ;Bytes
		pea	SegmentHeader.DispData+2
		jsr	Read_File
		lda	#NotLoad		;error means garbage header
		bcs	error_skip
;
;       allocate a buffer for rest of Header
;
		lda	Header.DispData
		sec
		sbc	#SegmentHeader.DispData+2
		sta	TempZero		;calculate size
		tax
		ldy	#0			;high word of size
		lda	#uFileBuff		;user ID to use
		jsr	do_alloc		;allocate the memory
		bcs	error_skip
		txa
		jsr	DeRef			;dereference Handle
		sta	|Header_Var		;save Pointer in Globals
		sty	|Header_Var+2

;
;        read 2nd part of Header
;
cont3		phy				;Address
		pha
		pea	0
		pei	TempZero		;Bytes
		jsr	Read_File
		lda	#NotLoad		;error means garbage header
		bcs	error
;
;       change DISPNAME to the offset of SEGNAME in Header_Var (for convenience in finding
;       the Segment Name)
;
		lda	Header.DispName
		sec
		sbc	#SegmentHeader.DispData+2-10
		sta	Header.DispName
;
;        bump Header_Mark to next Header
;
		jsr	Bump_Mark
;
;        check KIND fields (in case old KIND field was used)
;
		jsr	Check_KIND

return		lda	#0
error		cmp	#eofEncountered		;End of File encountered
		beq	error1
		cmp	#outOfRange		;Position out of range
		bne	error2
error1		lda	#NoFind			;either error is a No Find error
error2		cmp	#1
		rts

		ENDP

		TITLE	', FILES.a - Read_File'
*
****************************************************************
*
*              Read File from File Buffer
*
*  Inputs:     Address of User Buffer (TOS+7)
*              Bytes to read          (TOS+3)
*
*  Outputs:    A - status
*              C - set if error occurred
*
*  Zero Page used: TempZero
*
*        If address is zero, file will be positioned but
*        no data will be transferred
*
****************************************************************
*
Read_File	PROC
		with	DirectPage, Globals

Address		equ	7
Bytes		equ	3
;
;        is Bytes<$10000 and File_Pt+Bytes<$10000 and File_Pt+Bytes<=File_EOB ?
;
		lda	Bytes+2,s		;if high byte of Bytes not 0,
		bne	cont3			;  Bytes>$10000
		lda	|File_Pt
		clc
		adc	Bytes,s
		bcs	cont3			;if carry set, File_Pt+Bytes>$10000
		cmp	|File_EOB
		beq	cont1
		bcs	cont3
;
;        yes, do actual read
;
cont1		lda	Bytes,s
		pha
		jsr	Actual_Read
		pla				;remove bytes
		lda	#0			;no errors
		bra	return			;done
;
;        no, read File_EOB-File_Pt bytes to user's buffer
;
cont3		lda	|File_EOB
		sec
		sbc	|File_Pt
		pha
		jsr	Actual_Read
;
;        if Address<>0, increment Address by partial Bytes
;
		lda	Address+2,s
		ora	Address+4,s
		beq	cont4
		lda	1,s
		clc
		adc	Address+2,s
		sta	Address+2,s
		lda	Address+4,s
		adc	#0
		sta	Address+4,s
;
;        decrement Bytes by partial Bytes
;
cont4		lda	Bytes+2,s
		sec
		sbc	1,s
		sta	Bytes+2,s
		lda	Bytes+4,s
		sbc	#0
		sta	Bytes+4,s
		pla				;remove partial Bytes from stack
;
;        refill File Buffer
;
		jsr	Fill_File_Buff
		bcs	error
;
;        if there are still bytes to read, loop
;
		lda	Bytes,s
		ora	Bytes+2,s
		bne	Read_File

return
error		Stack_Cleanup 8
		rts

		ENDP

		TITLE	', FILES.a - Actual_Read'
*
****************************************************************
*
*              Actual Read from File Buffer
*
*  Inputs:     Address of User Buffer (TOS+12)
*              Bytes to read (TOS+3)
*
*  Outputs:    none
*
*  Zero Page used: TempZero
*
*        If address is zero, file will be positioned but
*        no data will be transferred
*
****************************************************************
*

Actual_Read	PROC
		with	DirectPage, Globals

Address		equ	11
Bytes		equ	3
;
;        threshold at which the Block Move routine is used rather
;        than the internal move loop
;
Size_Threshold	equ	64
;
;        if address=0, don't move any data
;
		lda	Address,s
		ora	Address+2,s
		beq	cont2
;
;        calculate address of next byte in File Buffer = File_Buff+File_Pt
;
		lda	|File_Buff
		clc
		adc	|File_Pt
		sta	TempZero
		lda	|File_Buff+2
		adc	#0
		sta	TempZero+2
;
;        check whether Bytes to read < Size_Threshold
;
		lda	Bytes,s
		cmp	#Size_Threshold
		bcs	cont1b
;
;        yes, use simple load-store loop
;
		tay
		lda	Address,s
		sta	TempZero+4
		lda	Address+2,s
		sta	TempZero+6
		sep	#$30
		longa	on
		longi	on
loop		dey
		bmi	cont1a
		lda	[TempZero],y
		sta	[TempZero+4],y
		bra	loop
cont1a		rep	#$30
		longa	on
		longi	on
		bra	cont2
;
;        no, use Block Move
;
cont1b		pei	TempZero+2		;Source
		pei	TempZero
		lda	Address+6,s		;Destination
		pha
		lda	Address+6,s
		pha
		pea	0
		lda	Bytes+10,s		;Count
		pha
		jsr	Block_Move
;
;        bump File_Pt by Bytes
;
cont2		lda	Bytes,s
		clc
		adc	|File_Pt
		sta	|File_Pt

		rts

		ENDP

		TITLE	', FILES.a - Read_Op'
*
****************************************************************
*
*              Read next OP code from File Buffer
*
*  Inputs:     none
*
*  Outputs:    Record - updated with Op Code
*              A - status if error
*              C - set if error occurred
*
*  Zero Page used: none
*
****************************************************************
*

Read_Op		PROC
		with	DirectPage, Globals
;
;        save File Mark corresponding to this OP code
;
		lda	|File_Pt
		tay				;save
		clc
		adc	|File_Mark
		sta	Op_Mark
		lda	#0
		adc	|File_Mark+2
		sta	Op_Mark+2
;
;        if File Pointer is at very end of File Buffer, use
;        Read_File routine instead
;
		cpy	|File_EOB
		bne	cont
		pea	Record>>16
		pea	|Record
		pea	0
		pea	1
		jsr	Read_File
		rts
;
;        move 1 byte into Record
;
cont		lda	[FileBuff],y
		sta	|Record
;
;        bump File_Pt
;
		inc	|File_Pt

		rts

		ENDP

		TITLE	', FILES.a - Read_Record'
*
****************************************************************
*
*              Read next record from File Buffer
*
*  Inputs:     X - # of bytes
*
*  Outputs:    Record - updated
*              A - status if error
*              C - set if error occurred
*
*  Zero Page used: none
*
****************************************************************
*

Read_Record	PROC
		with	DirectPage, Globals

		pea	Record>>16
		pea	|Record
		pea	0
		phx
		jsr	Read_File
		rts

		ENDP

		TITLE	', FILES.a - Skip_Header'
*
****************************************************************
*
*              Skip Next Segment Header
*
*  Inputs:     Header_Mark - Segment Header File Mark
*
*  Outputs:    A - status
*              C - set if error occurred
*              Header_Mark - File Mark of next Segment Header
*
*  Zero Page used: none
*
****************************************************************
*

Skip_Header	PROC
		with	DirectPage, Globals
;
;        set Mark of file to input Mark
;
		lda	|Header_Mark
		sta	|PSetMark.position
		lda	|Header_Mark+2
		sta	|PSetMark.position+2

		jsl	$E100A8			;call GS/OS
		dc.w	SET_MARK
		dc.l	PSetMark
		bcs	error
;
;        read part of next Segment Header (enough to see BYTECNT and VERSION)
;
		lda	#<Header
		sta	|PRead.dataBuffer	;set read address
		lda	#^Header
		sta	|PRead.dataBuffer+2
		lda	#SegmentHeader.Kind+1
		sta	|PRead.requestCount	;read enough bytes
		lda	#^SegmentHeader.Kind+1
		sta	|PRead.requestCount+2

		jsl	$E100A8
		dc.w	PD_READ
		dc.l	PRead
		bcs	error
;
;        bump Header_Mark to next Header
;
cont		jsr	Bump_Mark

return		lda	#0
		clc
error		rts

		ENDP

		TITLE	', FILES.a - Next_Dictionary'
*
****************************************************************
*
*        Position File to Relocation Dictionary of current Segment
*
*  Inputs:     Current offset into Mark List       (TOS+3)
*
*  Outputs:    Next offset into Mark List          (TOS+7)
*              CSegNum - Segment Number in Mark List
*                      - 0 if no more entries
*              A - status
*              C - set if error occurred
*
*  Zero Page used: TempZero
*
****************************************************************
*

Next_Dictionary	PROC
		with	DirectPage, Globals

IOffset		equ	3			;input  Offset
OOffset		equ	7			;output Offset
;
;        if input Offset points to last entry in Mark List,
;        set CSegNum to 0 and return
;
;        last entry if output offset = Next Available Slot
;
		stz	CSegNum
		lda	IOffset,s
		cmp	[MarkList]
		bne	cont1
		lda	IOffset+2,s
		ldy	#2
		cmp	[MarkList],y
		beq	return
;
;        calculate address of entry in Mark List
;
cont1		lda	IOffset,s
		clc
		adc	MarkList
		sta	TempZero
		lda	IOffset+2,s
		adc	MarkList+2
		sta	TempZero+2
;
;        extract Mark and store in ProDOS SetMark packet
;
		ldy	#2
		lda	[TempZero],y
		sta	|PSetMark.position
		ldy	#4
		lda	[TempZero],y
		sta	|PSetMark.position+2
;
;        is Mark in current File Buffer ?
;
		lda	|PSetMark.position
		sec
		sbc	|File_Mark
		sta	TempZero+4
		lda	|PSetMark.position+2
		sbc	|File_Mark+2
		sta	TempZero+6
		bne	cont2
		lda	TempZero+4
		cmp	|File_EOB
		bcs	cont2
;
;        yes, set File_Pt to location in File Buffer where Mark is
;
		sta	|File_Pt
		bra	cont3
;
;        no, set File Mark
;
cont2		jsl	$E100A8			;call GS/OS
		dc.w	SET_MARK
		dc.l	PSetMark
		bcs	error
;
;        fill File Buffer
;
		jsr	Fill_File_Buff
		bcs	error
;
;        set output offset = input offset + ML_SizeEntry
;
cont3		lda	IOffset,s
		clc
		adc	#ML_SizeEntry
		sta	OOffset,s
		lda	IOffset+2,s
		adc	#0
		sta	OOffset+2,s
;
;        set CSegNum to SegNum in entry
;
		lda	[TempZero]
		sta	CSegNum

return		lda	#0
error		Stack_Cleanup 4
		rts

		ENDP

		TITLE	', FILES.a - Setup_Buf_Ptrs'
*
****************************************************************
*
*              Setup buffer pointers
*
****************************************************************
*
Setup_Buf_Ptrs	Proc
		with	DirectPage, Globals

		Entry	zero_marks
;
;       check amount of memory on system
;
		pha
		pha
		_TotalMem
		pla
		plx
;
;       if a minimal system (512K), use an 8K buffer, otherwise use 16K
;
		lda	#$4000
		cpx	#8
		bne	@cont1
		lda	#$2000
;
;       set File Buffer size
;
@cont1		sta	|File_Buff_Size
;
;        allocate a File Buffer
;
		ldx	#0
		phx				;output Handle
		phx
		phx
		pha				;BlockSize (size still in Accumulator)
		pea	uFileBuff		;Owner
		pea	attrLocked		;Attributes
		phx				;Location
		phx

		_NewHandle
		plx				;output Handle
		ply
		bcs	error

		txa
		jsr	DeRef			;dereference Handle
		sta	|File_Buff		;save address in Globals
		sty	|File_Buff+2
		sta	FileBuff		;save address in Zero Page
		sty	FileBuff+2
;
;        initialize File variables
;
		stz	|File_EOB		;File Buffer EOB
zero_marks
		stz	|File_Mark		;File Mark
		stz	|File_Mark+2
		stz	|Header_Mark		;Segment Header File Mark
		stz	|Header_Mark+2
		stz	|File_Pt		;File Buffer Pointer
;
;        initialize Mark List
;
		stz	MarkList
		stz	MarkList+2
error
		rts

		EndP

		TITLE	', FILES.a - Open_File'
*
****************************************************************
*
*              Open File
*
*  Inputs:      Address of Pathname (TOS+11)    - must be type 1 string
*               Time/Date Stamp     (TOS+3)
*
*  Outputs:    A - status code
*              C - set if error
*
*  Zero Page used: TempZero
*
****************************************************************
*

Open_File	PROC
		with	DirectPage, Globals

Pathname	equ	11
Date		equ	3
;
;       zero refnum in Open packet
;
		stz	|POpen.refNum
;
;        check if Memory Load requested
;
		lda	Memory_Load
		beq	cont2
;
;        yes, set File Buffer variables to contents of packet.  In essence,
;        the File in memory will act as the Loader's File Buffer
;
		lda	Pathname,s
		sta	TempZero
		lda	Pathname+2,s
		sta	TempZero+2
		lda	[TempZero]
		sta	|File_Buff
		sta	FileBuff
		ldy	#2
		lda	[TempZero],y
		sta	|File_Buff+2
		sta	FileBuff+2
		ldy	#4
		lda	[TempZero],y
		sta	|File_Buff_Size
		sta	|File_EOB
		jsr	zero_marks
		jmp	normal_exit
;
;       see if file is already opened by getting its refnum from GS/OS
;
cont2		lda	#2
		sta	|PGetRefNum.pCount	;parameter count
		lda	Pathname,s
		sta	|PGetRefNum.pathname	;pathname
		lda	Pathname+2,s
		sta	|PGetRefNum.pathname+2
		jsl	$E100A8
		dc.w	GetRefNum
		dc.l	PGetRefNum
		bcs	cont3
;
;       file is already open, so put its refnum into the Open packet and skip open
;
		lda	|PGetRefNum.refNum
		sta	|POpen.refNum
		jmp	cont7
;
;        setup Open packet
;
cont3		lda	#10
		sta	|POpen.pCount		;parameter count
		lda	Pathname,s
		sta	|POpen.pathname		;pathname
		lda	Pathname+2,s
		sta	|POpen.pathname+2
		lda	#1
		sta	|POpen.requestAccess	;access code (read_only)
		stz	|POpen.resourceNumber	;resource number
;
;       get system file level
;
		lda	#2
		sta	|PGetLevel.pCount	;parameter count
		stz	|PGetLevel.levelMode	;mode
		jsl	$E100A8
		dc.w	GetLevel
		dc.l	PGetLevel
;
;       set system file level to $70
;
		lda	#2
		sta	|PSetLevel.pCount	;parameter count
		lda	#$70
		sta	|PSetLevel.level	;system file level
		stz	|PSetLevel.levelMode	;mode
		jsl	$E100A8
		dc.w	SetLevel
		dc.l	PSetLevel
;
;        open file
;
		jsl	$E100A8
		dc.w	Open
		dc.l	POpen
		php				;save status
		pha
;
;       restore system file level to its original value
;
		lda	|PGetLevel.level
		sta	|PSetLevel.level	;system file level
		jsl	$E100A8
		dc.w	SetLevel
		dc.l	PSetLevel
;
;       check open status
;
		pla
		plp
		bcs	error
;
;        check file type
;
		lda	|POpen.fileType		;get file_type
		cmp	#Load_File		;is it in range of Load File types?
		bcc	cont4
		cmp	#Last_Load_File+1
		bcc	cont5
		cmp	#CDev_File		;is it a CDev?
		beq	cont5			;yes, we can load it.
;
;        Not Load File error
;
cont4		lda	#NotLoad
		bra	error
;
;        compare input time/date stamp (if not zero) with file's
;
cont5		lda	Date,s
		beq	cont7
		cmp	|POpen.modDateTime
		bne	cont6
		lda	Date+2,s
		cmp	|POpen.modDateTime+2
		bne	cont6
		lda	Date+4,s
		cmp	|POpen.modDateTime+4
		bne	cont6
		lda	Date+6,s
		cmp	|POpen.modDateTime+6
		beq	cont7
;
;        time/date stamps do not compare - Bad Version error
;
cont6		lda	#BadVers
error_skip
		bra	error
;
;        move ref_num to other ProDOS packets
;
cont7		lda	|POpen.refNum
		sta	|PRead.fileRefNum
		sta	|PGetMark.markRefNum
		sta	|PSetMark.markRefNum

		jsl	$E100A8			;get the file's EOF
		dc.w	GET_EOF
		dc.l	PGetMark		;borrow this parameter block

		lda	PGetMark.position	;is there anything in the file?
		ora	PGetMark.position+2
		beq	cont4			;no, can't be a load file

		jsr	Setup_Buf_Ptrs
		bcs	error

normal_exit
		lda	#0			;set status to OK
error		Stack_Cleanup 12		;remove input parameters
		rts				;return

		ENDP

		TITLE	', FILES.a - Close_File'
*
****************************************************************
*
*              Close File
*
*  Inputs:      none
*
*  Outputs:     A - status code
*               C - set if error
*
*  Zero Page used: none
*
*           If Keep_Open is true, the file is not really closed
*
****************************************************************
*

Close_File	PROC
		with	DirectPage, Globals

;
;        if Memory_Load is set, only dispose of the buffers
;
		lda	Memory_Load
		bne	cont1
;
;        if RefNum is zero, don't issue close
;
		lda	|POpen.refNum
		beq	cont1
;
;        if Keep_Open is true,  don't issue close
;
		lda	Keep_Open
		bne	cont1
;
;        close file
;
		lda	POpen.refNum		;do we have a valid refnum?
		beq	cont1			;no, so don't do a global close!

		jsl	$E100A8
		dc.w	PD_CLOSE
		dc.l	POpen.refNum
		bcs	error
;
;        dispose of File Buffers
;
cont1		pea	uFileBuff		;Owner

		_DisposeAll

error		stz	|POpen.refNum		;zero refnum
		stz	file_open		;zero flag
		rts				;return

		ENDP

		TITLE	', FILES.a - Fill_File_Buff'
*
****************************************************************
*
*              Refill File Buffer
*
*  Inputs:     none
*
*  Outputs:    A - status
*              C - set if error occurred
*
*  Zero Page used: none
*
****************************************************************
*

Fill_File_Buff	PROC
		with	DirectPage, Globals
;
;        set File_Mark to current File Mark
;
		jsl	$E100A8
		dc.w	GET_MARK
		dc.l	PGetMark
		bcs	error

		lda	|PGetMark.position
		sta	|File_Mark
		lda	|PGetMark.position+2
		sta	|File_Mark+2
;
;        fill buffer by reading file
;
		lda	|File_Buff
		sta	|PRead.dataBuffer	;buffer address
		lda	|File_Buff+2
		sta	|PRead.dataBuffer+2
		lda	|File_Buff_Size
		sta	|PRead.requestCount	;# of bytes to read
		stz	|PRead.requestCount+2

		jsl	$E100A8
		dc.w	PD_READ
		dc.l	PRead
		bcs	error
;
;        set File_Pt and File_EOB
;
		lda	|PRead.transferCount
		sta	|File_EOB		;# of bytes actually read
		stz	|File_Pt		;zero File Pointer
		lda	#0			;carry already clear
error		rts

		ENDP

		TITLE	', FILES.a - Save_Mark'
*
****************************************************************
*
*              Save OP Mark in Mark List
*
*  Inputs:     OP_Mark - File Mark of current OP code
*              CSegNum - current Segment Number
*
*  Outputs:    Mark List updated
*              A - status
*              C - set if error occurred
*
*  Zero Page used: TempZero, Handle
*
****************************************************************
*

Save_Mark	PROC
		with	DirectPage

Size_Header	equ	ML_FirstEntry		;# of bytes in List header
Size_Incr	equ	100			;# of entries in each expansion
;
;        if the address of the Mark List=0, create a new one
;
		lda	MarkList
		ora	MarkList+2
		bne	cont1

		ldx	#0			;output Handle
		phx
		phx
		pea	ML_SizeEntry*Size_Incr+Size_Header>>16 ;BlockSize
		pea	|ML_SizeEntry*Size_Incr+Size_Header
		pea	uMarkList		;Owner
		pea	attrLocked+attrNoSpec	;Attributes
		phx				;Location
		phx

		_NewHandle
		plx				;output Handle
		ply
		bcc	@1
		jmp	error
@1
		txa
		jsr	DeRef			;dereference Handle
		sta	MarkList		;save address in Zero Page
		sty	MarkList+2
;
;        set Next Available Slot to Size_Header and set End of List to
;        ML_SizeEntry*Size_Incr+Size_Header
;
		lda	#Size_Header
		sta	[MarkList]
		lda	#ML_SizeEntry*Size_Incr+Size_Header
		ldy	#4
		sta	[MarkList],y
		lda	#0
		ldy	#2
		sta	[MarkList],y
		ldy	#6
		sta	[MarkList],y
;
;        is there any more room in Mark List ?
;        (if Next Available Slot = End of List then List is full)
;
cont1		lda	[MarkList]		;Next Available Slot
		ldy	#4
		cmp	[MarkList],y		;End of List
		bne	cont3
		ldy	#2
		lda	[MarkList],y
		ldy	#6
		cmp	[MarkList],y
		bne	cont3
;
;        no more room, get handle to Mark List
;
cont2		pei	MarkList+2		;address of Mark List
		pei	MarkList
		_FindHandle
		lda	1,s
		sta	Handle			;retrieve handle
		lda	3,s			;but leave on stack for HUnlock call
		sta	Handle+2
;
;        unlock Mark List
;
		_HUnlock
;
;        expand Mark List by another ML_SizeEntry*Size_Incr
;
		ldy	#4
		lda	[MarkList],y
		clc
		adc	#ML_SizeEntry*Size_Incr
		sta	TempZero
		tax
		ldy	#6
		lda	[MarkList],y
		adc	#0
		sta	TempZero+2

		pha
		phx				;Size
		pei	Handle+2		;Handle
		pei	Handle
		_SetHandleSize
		bcs	error
;
;        lock Mark List
;
		pei	Handle+2		;Handle
		pei	Handle
		_HLock
;
;        get new address of Mark List
;
		lda	Handle
		ldy	Handle+2
		jsr	DeRef			;dereference Handle
		sta	MarkList
		sty	MarkList+2
;
;        set End of List to new value
;
		lda	TempZero
		ldy	#4
		sta	[MarkList],y
		lda	TempZero+2
		ldy	#6
		sta	[MarkList],y
;
;        calculate address of Next Available Slot
;
cont3		lda	MarkList
		clc
		adc	[MarkList]
		sta	TempZero
		lda	MarkList+2
		ldy	#2
		adc	[MarkList],y
		sta	TempZero+2
;
;        store Segment Number and Op_Mark in Next Available Slot
;
		lda	CSegNum
		sta	[TempZero]
		lda	Op_Mark
		ldy	#2
		sta	[TempZero],y
		lda	Op_Mark+2
		ldy	#4
		sta	[TempZero],y
;
;        increment Next Available Slot by ML_SizeEntry
;
		lda	[MarkList]
		clc
		adc	#ML_SizeEntry
		sta	[MarkList]
		bcc	return
		ldy	#2
		lda	[MarkList],y
		inc	a
		sta	[MarkList],y

return		lda	#0
		clc
error		rts

		ENDP

		TITLE	', FILES.a - Bump_Mark'
*
****************************************************************
*
*              Bump Header_Mark to next Header
*
*  Inputs:     Header - current Segment Header
*              Header_Mark - File Mark of Segment Header
*
*  Outputs:    Header_Mark - File Mark of next Segment Header
*
*  Zero Page used: none
*
****************************************************************
*

Bump_Mark	PROC
		with	DirectPage, Globals
;
;        if Version<2, convert BYTECNT to bytes (*512)
;
		lda	Header.Version
		cmp	#2
		bcs	cont

		ldx	#9
		lda	Header.ByteCnt
@loop
		asl	a
		rol	Header.ByteCnt+2
		dex
		bne	@loop
		sta	Header.ByteCnt
;
;        increment input Mark by BYTECNT to get output mark
;
cont		lda	|Header_Mark
		clc
		adc	Header.ByteCnt
		sta	|Header_Mark
		lda	|Header_Mark+2
		adc	Header.ByteCnt+2
		sta	|Header_Mark+2

		rts

		ENDP


\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Loader/Functions.a b/IIGS.601.SRC/GS.OS/Loader/Functions.a
new file mode 100644
index 0000000..f1bbd45
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Loader/Functions.a
@@ -0,0 +1 @@
+
		TITLE	', FUNCTIONS.a - LoaderInit'
*
****************************************************************
*
*              Initialization ($01)
*
*  Inputs:     none
*
*  Outputs:    none
*
****************************************************************
*
LoaderInit	PROC	Export
		LoadSegCheck

		with	Globals
		IMPORT	draw_express,startup

		phb				;set up DBR
		phk
		plb

		lda	boot_flag		;is this the initial system boot-up?
		beq	@restart		;no, must be a restart after using P8

		phd
		jsr	startup			;init my self
		bcs	@error			;oops!
	if 0 then
		jsr	draw_express
	endif
		pld				;restore the direct page
		stz	boot_flag		;fix the flag

@restart
		plb				;restore DBR
		bra	NoError

@error
		pld				;restore caller's DP
		plb				;and DBR
		rtl				;and return to caller

		TITLE	', FUNCTIONS.a - Version, Status, Startup, Shutdown, Reset'
*
****************************************************************
*
*              Loader Version ($04)
*
*  Inputs:     none
*
*  Outputs:    Loader Version (2 bytes)
*
****************************************************************
*
		Export	LoaderVersion
LoaderVersion	lda	#Loader_Version
		bra	store_ret_value

*
****************************************************************
*
*              Loader Status ($06)
*
*  Inputs:     none
*
*  Outputs:    Status (TRUE or FALSE 2 bytes)
*
****************************************************************
*
		Export	LoaderStatus
LoaderStatus
		lda	#1			;status is ALWAYS started
store_ret_value
		sta	7,s
		bra	NoError

*
****************************************************************
*
*              Loader Startup  ($02)
*              Loader Shutdown ($03)
*              Loader Reset    ($05)
*              other non-implemented functions
*
*  Inputs:     none
*
*  Outputs:    none
*
****************************************************************
*
		EXPORT	LoaderReset
LoaderReset
		EXPORT	LoaderStartup
LoaderStartup
		EXPORT	LoaderShutdown
LoaderShutdown

NoError		lda	#0
		clc
		rtl

		ENDP

		TITLE	', FUNCTIONS.a - No Function'
*
****************************************************************
*
*               Loader Unsupported Function
*
*  Inputs:     none
*
*  Outputs:    none
*
****************************************************************
*
Load_NI		Proc	Export
		LoadSegCheck

		lda	#$0002			;synthesize tool setup error
		sec
		rtl

		EndP

		TITLE	', FUNCTIONS.a - LoadNum'
*
****************************************************************
*
*              Load Segment by Number ($0B)
*
*  Inputs:     UserID (2 bytes)
*              Load File Number (2 bytes)
*              Load Segment Number (2 bytes)
*  Outputs:    Address of segment (4 bytes)
*  Errors:     $0000 - Operation successful
*              $1101 - Segment not found
*              $1102 - OMF Version error
*              $1104 - File not Load File
*              $1107 - File Version error
*              $1109 - SegNum out of sequence
*              $00xx - GS/OS I/O error
*              $02xx - Memory Manager error
*
****************************************************************
*
LoadNum		PROC	EXPORT
		LoadSegCheck

		with	DirectPage, Globals
		Import	find_user_id,merge_path,make_HET_ptr,seg_num_lookup
		Import	setup_seg_ptrs,open_load_file,load_segment
		Import	Process_Reloc,lock_segment,setup_base_ptr

		ldx	#func_0B_param_cnt	;6 bytes of input
		jsr	get_parameters		;get the parameters

ISegNum		EQU	input_parms
IFileNum	EQU	ISegNum+2
IUserID		EQU	IFileNum+2
OAddress	EQU	1			;offset within stack

		lda	IFileNum		;see if this is file number one
		dec	a
		bne	old_loader		;sorry we will let the system loader handle it

		lda	IUserID			;lets see if we know about this user ID
		jsr	find_user_id		;If found temp_ptr setup
		bcs	old_loader		;not my job
;
;At this point all errors that we encounter must be returned to the caller since the file is mine.
;
		ldy	#ID_Table_Entry.ExpressHandle
		lda	[temp_ptr],y		;get the ExpressLoad handle
		tax
		iny
		iny
		lda	[temp_ptr],y
		tay
		bne	@have_handle
		txa
		bne	@have_handle		;we have the handle
		lda	#ExpressSegLost
		sec
		bra	@error_exit		;report error to the caller.
@have_handle
		jsr	merge_path		;we now have the expanded ExpressLoad pathname

						;the segment we will have to load
		jsr	make_HET_ptr
		lda	ISegNum
		jsr	seg_num_lookup		;convert the segment number to correct number
		bcs	@error_exit		;the number is not valid
		sta	search_seg		;save the real segment to load.
		jsr	setup_seg_ptrs		;setup pointers for the load

		ldy	#HET_Entry.SegFlags	;see if the segment is already loaded
		lda	[HET_entry_ptr],y
		bmi	@already_in		;this segment is already loaded
@do_load
		jsr	open_load_file		;open the puppy
		bcs	@error_exit		;report error to the caller.
		jsr	load_segment		;load the segment into memory
		bcs	@error_exit		;report error to the caller.
		lda	search_seg		;relocate the segment
		jsr	Process_Reloc
		bcs	@error_exit		;report error to the caller.
		bra	@continue1
@already_in
		lsr	a			;see if the segment is purgable?
		bcc	@continue
		lda	search_seg		;go and lock the handle please
		jsr	lock_segment
		bcs	@do_load
@continue
		jsr	setup_base_ptr		;please setup the base pointer
@continue1
		lda	segment_entry+2		;address of the segment
		sta	OAddress+2,s
		lda	segment_entry
		sta	OAddress,s

		lda	#$0000
		clc
@outta_here
		jmp	return_to_caller	;we were successful!!

@error_exit
		ldx	IUserID
		bne	@outta_here		;if user_id = 0, try old method

old_loader
						; space for output address is already on stack
;               pha                             ;output Address
;               pha
		lda	IUserID			;input UserID
		bne	cont			;if 0, use global USERID
		lda	|USERID
cont		pha				;UserID
		pei	IFileNum		;File Number
		pei	ISegNum			;Segment Number
		jsr	Load_Segment		;Load Segment routine
; OAddress is already on stack, so we just have to return
		jmp	return_to_caller
		ENDP

		TITLE	', FUNCTIONS.a - ULoadNum'
*
****************************************************************
*
*              UnLoad Segment by Number ($0C)
*
*  Inputs:     UserID (2 bytes)
*              Load File Number (2 bytes)
*              Load Segment Number (2 bytes)
*  Outputs:    none
*  Errors:     $0000 - Operation successful
*              $1101 - Segment not found
*              $00xx - GS/OS I/O error
*              $02xx - Memory Manager error
*
****************************************************************
*
ULoadNum	PROC	EXPORT
		LoadSegCheck

		with	DirectPage, Globals
		Import	make_HET_ptr,seg_num_lookup,make_purgable, \
		purge_all_dyn,find_user_id

		ldx	#func_0C_param_cnt	;get the number of parameters of the stack
		jsr	get_parameters

ISegNum		EQU	input_parms
IFileNum	EQU	ISegNum+2
IUserID		EQU	IFileNum+2

		lda	IFileNum		;see if this is file number one
		bne	@check_for_1		;we handle 0 and 1
		sta	ISegNum
		bra	@skip_abort
@check_for_1
		dec	a
		bne	old_loader		;sorry we will let the system loader handle it
@skip_abort
		lda	IUserID			;see if this is for me
		jsr	find_user_id
		bcs	old_loader		;must be the real system loaders
;
;At this point all errors that we encounter must be returned to the caller since the file is mine.
;
		ldy	#ID_Table_Entry.ExpressHandle
		lda	[temp_ptr],y		;get the ExpressLoad handle
		tax
		iny
		iny
		lda	[temp_ptr],y
		tay
		bne	@have_handle
		txa
		bne	@have_handle		;we have the handle
		lda	#ExpressSegLost
		sec
		bra	@error_exit		;report error to the caller.
@have_handle
		stx	ExpressHandle
		sty	ExpressHandle+2

		jsr	make_HET_ptr
		lda	ISegNum
		beq	@do_all_dyn		;we need to purge all dynamics
		jsr	seg_num_lookup		;convert the segment number to correct number
		bcs	@error_exit		;the number is not valid
		jsr	make_purgable
		jmp	return_to_caller	;return to the caller
@do_all_dyn
		jsr	purge_all_dyn
@outta_here
		jmp	return_to_caller	;return the info please
@error_exit
		ldx	IUserID
		bne	@outta_here
old_loader
		lda	IUserID			;input UserID
		bne	cont1			;if 0, use global USERID
		lda	|USERID
		sta	IUserID
cont1		pha				;UserID
		pei	IFileNum		;File Number
		pei	ISegNum			;Segment Number
;
;        if any of the inputs are 0, unload dynamic segments only
;
		lda	#1
		ldy	IFileNum
		beq	cont2
		ldy	ISegNum
		beq	cont2
		dec	a
cont2		pha				;Dynamic Only Flag
		pea	$0003			;Purge Level
		jsr	Purge_Segment
		jmp	return_to_caller	;return the info please

		ENDP

		TITLE	', FUNCTIONS.a - LoadName'
*
****************************************************************
*
*              Load Segment by Name ($0D)
*
*Stack before call:
*
*               previous contents
*               result space            word
*               result space            word
*               result space            word
*               result space            long
*               User ID                 word
*               Addr of load file name  long
*               Addr of load seg name   long
*       SP ---->
*
*Stack after call:
*
*               previous contents
*               load-segment number     word
*               load-file number        word
*               User ID                 word
*               Addr of the segment     long
*       SP ---->
*
*  Errors:     $0000 - Operation successful
*              $1101 - Segment not found
*              $1102 - OMF Version error
*              $1104 - File not Load File
*              $1107 - File Version error
*              $1108 - UserID error
*              $1109 - SegNum out of sequence
*              $00xx - GS/OS I/O error
*              $02xx - Memory Manager error
*
* How it works:
*       IF find_user_id(input_id) THEN                          {If found, ExpressHandle setup}
*         BEGIN
*           IF compare_path(input_path,ExpressLoad_path) THEN   {See if looking for loaded segment}
*             BEGIN
*               IF find_seg(input_seg_name) THEN                {See if segment is available}
*                 BEGIN
*                   IF seg_loaded(seg_num) THEN                 {See if the segment is loaded}
*                     BEGIN
*                       Return_parameters
*                       Exit ()                                 {return to the caller}
*                     END
*                   ELSE
*                     BEGIN
*                       Load_Seg(Seg_num)                       {load in the segment please}
*                       return_parameters
*                       Exit()                                  {return to the caller}
*                     END
*                 END
*               ELSE
*                 BEGIN                                         {segment not found}
*                   Return_error(Seg_Not_Found)
*                   Exit ()
*                 END
*           ELSE                                                {not same file}
*             BEGIN                                             {Pain in the Butt}
*               open_file(input_path)                           {open file, type check etc.}
*               get_express_seg                                 {get the ExpressLoad segment}
*               IF find_seg(input_seg_name) THEN                {See if segment is available}
*                 BEGIN
*                   IF seg_loaded(seg_num) THEN                 {See if the segment is loaded}
*                     BEGIN
*                       Return_parameters
*                       Exit ()                                 {return to the caller}
*                     END
*                   ELSE
*                     BEGIN
*                       Load_Seg(Seg_num)                       {load in the segment please}
*                       return_parameters
*                       Exit()                                  {return to the caller}
*                     END
*                 END
*               ELSE
*                 BEGIN                                         {segment not found}
*                   Return_error(Seg_Not_Found)
*                   Exit ()
*                 END
*               get_jmp_tbl_seg                                 {load any jump tables please}
*               Add_file_num                                    {Link this file in please}
*               Return_error(Seg_Not_Found)
*               Exit ()
*
****************************************************************
*
LoadName	PROC	EXPORT
		LoadSegCheck

		with	DirectPage, Globals
		Import	find_user_id,merge_path,compare_paths,find_seg_name, \
		open_load_file,load_segment,Process_Reloc,lock_segment,	 \
		setup_base_ptr,my_seg_to_user_seg

		ldx	#func_0D_param_cnt	;get the number of parameters of the stack
		jsr	get_parameters

ISegName	EQU	input_parms
IFileName	EQU	ISegName+4
IUserID		EQU	IFileName+4
OAddress	EQU	1
OUserID		EQU	OAddress+4
OFileNum	EQU	OUserID+2
OSegNum		EQU	OFileNum+2

		lda	IUserID			;get the input user id
		jsr	find_user_id		;see if we have the ID
		bcc	@its_mine
		brl	old_loader		;later we need to handle this better
@its_mine
;
;At this point all errors that we encounter must be returned to the caller since the file is mine.
;
		ldy	#ID_Table_Entry.ExpressHandle
		lda	[temp_ptr],y		;get the ExpressLoad handle
		tax
		iny
		iny
		lda	[temp_ptr],y
		tay
		bne	@have_handle
		txa
		bne	@have_handle		;we have the handle
		lda	#ExpressSegLost
		sec
		bra	@outta_here		;report error to the caller.
@have_handle
		jsr	merge_path		;we now have the expanded ExpressLoad pathname
;
;At this point Expanded_name contains the Pathname from the ExpressLoad segment
;Now we need to build an Expanded Name from the Applications input pathname
;
		ldy	IFileName+2		;lets build the name
		lda	IFileName
		ldx	#0			;convert 0->1
		jsr	Convert_Pathname	;first, must convert from class 0 to class 1
		lda	TempBuff		;get pointer to converted name
		ldy	TempBuff+2
		jsr	Expand_Pathname		;now do an ExpandPath on it
		bcs	@outta_here		;GS/OS could not expand the pathname

		jsr	compare_paths		;see if the paths are equal
		lda	#seg_not_found		;pre-charge the error code if needed
		bcs	@outta_here		;report error to the caller.
		lda	ISegName+2		;lets get a copy of the segment name
		tay
		lda	ISegName
		tax				;low word address of the segment name
		jsr	find_seg_name		;go and find the segment name in ExpressLoad
		bcs	@outta_here		;report error to the caller.
		sta	search_seg		;segment number of the segment

		ldy	#HET_Entry.SegFlags	;see if the segment is already loaded
		lda	[HET_entry_ptr],y
		bmi	@already_in		;this segment is already loaded
@do_load
		jsr	open_load_file		;open the puppy
		bcs	@outta_here		;report error to the caller.
		jsr	load_segment		;load the segment into memory
		bcs	@outta_here		;report error to the caller.

		lda	search_seg		;relocate the segment
		jsr	Process_Reloc
		bcs	@outta_here		;report error to the caller.
		bra	@continue1
@already_in
		lsr	a			;see if the segment is purgable?
		bcc	@continue

		lda	search_seg		;go and lock the handle please
		jsr	lock_segment
		bcs	@do_load		;segment was purged behind my back!
@continue
		jsr	setup_base_ptr		;please setup the base pointer
@continue1
		lda	search_seg		;push the load segment number
		jsr	my_seg_to_user_seg	;convert to user type number
		sta	OSegNum,s
		lda	#$0001			;file number
		sta	OFileNum,s
		lda	|USERID
		sta	OUserID,s
		lda	segment_entry+2		;address of the segment
		sta	OAddress+2,s
		lda	segment_entry
		sta	OAddress,s

		lda	#$0000
		clc
@outta_here
		jmp	cont7			;we were successful!!

old_loader
;
;        initialize things
;
		stz	OFileNum		;output File Num
		stz	Keep_Open		;don't Keep File open
		stz	Memory_Load		;clear Memory Load flag
;
;        if UserID is 0, use USERID
;
		lda	IUserID
		bne	cont1
		lda	|USERID
cont1		sta	OUserID,s
;
;       if UserID is an Application, don't close load file
;
		and	#$F000
		cmp	#Application
		bne	cont1a
		inc	Keep_Open
;
;        convert type 0 pathname to type 1
;
cont1a		lda	IFileName
		ldy	IFileName+2
		ldx	#0
		jsr	Convert_Pathname
		bcs	error_skip
;
;        expand input File Pathname
;
		lda	TempBuff
		ldy	TempBuff+2
		jsr	Expand_Pathname
		bcs	error_skip
;
;        search Pathname Table for input File Pathname
;
		lda	OUserID,s		;UserID
		pha
		pea	#0			;File Number (none)
		pei	TempBuff+2		;Address of full pathname
		pei	TempBuff
		jsr	Find_Pathname
		bcs	cont2
;
;        Input File Name is in Pathname Table, copy FileNum to output
;
		lda	|PT_FileNum,x
		sta	OFileNum,s
		phk				;restore DBR to PBR
		plb
		stz	Counter			;set to 0 as flag
		bra	cont3
;
;        input File Name is not in Pathname Table, move last File Number
;        for the UserID in Pathname Table +1 to output.  Note: Counter contains
;        the max File Num as an output from Find_Pathname subroutine
;
cont2		lda	Counter
		inc	a
		sta	OFileNum,s
;
;        open file, if necessary
;
cont3		pei	TempBuff+2		;address of file name
		pei	TempBuff
		lda	#0
		pha				;no time/date stamp
		pha
		pha
		pha
		jsr	Open_File		;open file
		bcc	_1
error_skip
		jmp	Error_Exit
_1
;
;        read next Segment Header
;
loop1		rep	#$30
		longa	on
		longi	on
		jsr	Next_Header
		bcs	error_skip
;
;        set TempZero to address of 1st char in SegName
;
cont4		lda	Header.DispName		;DISPNAME contains offset of SEGNAME in Header_Var
		clc
		adc	Header_Var
		sta	TempZero
		lda	#0
		adc	Header_Var+2
		sta	TempZero+2
		lda	Header.LabLen		;if LABLEN=0, both names are Pascal strings
		and	#$FF
		beq	cont4a
		lda	TempZero		;if not, decrement pointer so indices line up
		bne	@1
		dec	TempZero+2
@1
		dec	TempZero
;
;        compare Segment Names
;
cont4a
		sep	#$30
		longa	off
		longi	off
		lda	[ISegName]		;char count
		tay				;Y=index into each SegName
loop2		lda	[ISegName],y
		cmp	[TempZero],y
		bne	loop1			;char mismatch, try next Segment
		dey
		bne	loop2
		rep	#$30
		longa	on
		longi	on
;
;        copy Segment Number from Segment Header to output
;
		lda	Header.SegNum
		sta	OSegNum,s
;
;        add File Name to Pathname Table, if not already there
;
		lda	Counter			;0 if already in table
		beq	cont6
		lda	OUserID,s		;UserID
		pha
		lda	OFileNum+2,s		;File Number
		pha
		lda	|POpen.modDateTime+6	;mod_date/time
		pha
		lda	|POpen.modDateTime+4
		pha
		lda	|POpen.modDateTime+2
		pha
		lda	|POpen.modDateTime
		pha
		lda	#0
		pha				;Direct Page/Stack info
		pha
		pha				;Starting Address
		pha
		pei	TempBuff+2		;Address of File Name
		pei	TempBuff
		jsr	Add_Pathname
		bcs	Error_Exit
;
;           close file
;
cont6		jsr	Close_File
;
;        load segment found
;
; space for output address is already on stack
;               pha                     ;output Address
;               pha
		lda	OUserID,s		;UserID
		pha
		lda	OFileNum+2,s		;File Number
		pha
		lda	OSegNum+4,s		;Segment Number
		pha
		jsr	Load_Segment		;Load Segment routine

Error_Exit
;
;        if error occured, close file again
;
		bcc	cont7
		pha				;save status
		stz	Keep_Open
		jsr	Close_File		;close file
		pla				;restore status

cont7
		pha				;save status
		pea	uTempBuff		;dispose of temporary memory
		_DisposeAll
		pla				;restore status

		jmp	return_to_caller

		ENDP

		TITLE	', FUNCTIONS.a - ULoadSeg'
*
****************************************************************
*
*              UnloadSeg ($0E)
*
*  Inputs:     Address in Segment (4 bytes)
*  Outputs:    UserID (2 bytes)
*              Load File Number (2 bytes)
*              Load Segment Number (2 bytes)
*  Errors:     $0000 - Operation successful
*              $1101 - Segment not found
*              $00xx - GS/OS I/O error
*              $02xx - Memory Manager error
*
****************************************************************
*
ULoadSeg	PROC	EXPORT
		LoadSegCheck

		with	DirectPage, Globals
		Import	find_seg_handle,make_purgable,my_seg_to_user_seg

		ldx	#func_0E_param_cnt	;get the number of parameters of the stack
		jsr	get_parameters

IAddress	EQU	input_parms
OUserID		EQU	1
OFileNum	EQU	OUserID+2
OSegNum		EQU	OFileNum+2

		stz	search_seg
@retry
		pea	$0000
		pea	$0000			;result space

		lda	IAddress+2
		sta	hold_long+2		;save the address in case this is a jump table seg
		pha				;address in a segment
		lda	IAddress
		sta	hold_long
		pha
		_FindHandle
		plx
		ply
		bcs	old_loader
		stx	seg_handle		;handle to the segment
		sty	seg_handle+2
		jsr	find_seg_handle
		bcs	old_loader		;it must be in the original loader
		tax

		ldy	#HET_Entry.SegFlags	;see if this is a jump segment
		lda	[HET_entry_ptr],y
		and	#jmp_type
		beq	@not_jump

		lda	hold_long
		sta	temp_ptr
		lda	hold_long+2
		sta	temp_ptr+2		;setup pointer to the segment entry please

		lda	[temp_ptr]		;get the current opcode
		and	#$00FF			;clear the garbage
		cmp	#$0022			;is it a JSL instruction to ME???
		bne	@chk_JML

		sec
		lda	temp_ptr		;make pointer to the load_seg_number field
		sbc	#$0006
		sta	temp_ptr
		lda	temp_ptr+2
		sbc	#$0000
		sta	temp_ptr+2		;temp_ptr now points to the correct field

;               User_ID                 2
;               Load_File Number        2
;               Load Segment Number     2
;               Load Segment Offset     4
;               JSL to Jump-table load  4

		lda	[temp_ptr]		;get the segment number please
		sta	search_seg
		bra	@return_info

@chk_JML
		cmp	#$005C			;is it a JML instruction!!
		bne	old_loader		;let lou return the error
;
;Setup the new address to find
;
		ldy	#$0001			;get the address that I need to unload please
		lda	[temp_ptr],y
		sta	IAddress
		iny
		iny
		lda	[temp_ptr],y		;get the high word please
		and	#$00FF			;clear garbage
		sta	IAddress+2
						;save the new address please
		bra	@retry
@not_jump
		txa				;setup the segment number

@return_info					;label moved so that we _always_ call Make_Purgeable
		jsr	make_purgable		;{gab - 04/23/90}

		lda	search_seg
		jsr	my_seg_to_user_seg
		sta	OSegNum,s
		lda	#$0001
		sta	OFileNum,s
		lda	|USERID
		sta	OUserID,s
		lda	#$0000
		jmp	return_to_caller	;return to the caller

old_loader
;
;        call Memory Manager with input Address
;
		pha				;output Handle
		pha
		pei	IAddress+2		;Address
		pei	IAddress
		_FindHandle
		pla
		sta	TempZero		;output Handle
		pla
		sta	TempZero+2
		ora	TempZero		;if Handle=0, no find
		bne	cont1
		lda	#NoFind
		jmp	Error_Exit
;
;        get UserID associated with Handle
;
cont1		ldy	#6
		lda	[TempZero],y
		sta	OUserID,s
;
;        search Memory Segment Table for entries having UserID
;
		lda	|SEGTBL
		sta	Handle
		lda	|SEGTBL+2
		sta	Handle+2
loop		pha				;output Handle
		pha
		lda	OUserID+4,s		;UserID
		pha
		lda	#0
		pha				;File Number
		pha				;Segment Number
		jsr	Next_MemSeg
		pla				;output Handle
		pla				;(not used)
		lda	|MS_Handle,x
		sta	TempZero+4		;save Handle of Memory block
		lda	|MS_Handle+2,x
		sta	TempZero+6
		lda	#NoFind
		bcs	Error_Exit		;last entry scanned, no find
;
;        compare Handle of Memory block with Handle for input Address
;
		lda	TempZero
		cmp	TempZero+4
		bne	loop
		lda	TempZero+2
		cmp	TempZero+6
		bne	loop
;
;        found Load Segment which contains the input address.  Check whether
;        segment is a Jump Table Segment
;
		lda	|MS_Kind,x
		cmp	#Jump_Segment
		bne	cont2
;
;        segment is a Jump Table Segment.  Address points to JSL or JMP in
;        one of the entries.  So extract the File Number and Segment Number
;        from locations just above.
;
		lda	IAddress
		sec
		sbc	#8
		sta	TempZero
		lda	IAddress+2
		sbc	#0
		sta	TempZero+2
		lda	[TempZero]
		sta	OFileNum		;File Number
		ldy	#2
		lda	[TempZero],y
		sta	OSegNum			;Segment Number
		bra	cont3
;
;        segment is a regular Load Segment.  Get File Number and Segment Number
;        from Memory Segment Table entry.
;
cont2		lda	|MS_FileNum,x
		sta	OFileNum,s
		lda	|MS_SegNum,x
		sta	OSegNum,s
;
;        unload the specified segment
;
cont3		phk				;restore DBR
		plb
		lda	OUserID,s		;UserID
		pha
		lda	OFileNum+2,s		;File Number
		pha
		lda	OSegNum+4,s		;Segment Number
		pha
		pea	$0000			;Dynamic Only Flag (false)
		pea	$0003			;Purge Level
		jsr	Purge_Segment

Error_Exit	phk				;restore DBR
		plb

		jmp	return_to_caller

		ENDP

		TITLE	', FUNCTIONS.a - GetInfo'
*
****************************************************************
*
*              Get Segment Information ($0F)
*
*  Inputs:     UserID (2 bytes)
*              Load File Number (2 bytes)
*              Load Segment Number (2 bytes)
*              Address of User Buffer (4 bytes)
*  Outputs:    filled User Buffer
*  Errors:     $0000 - Operation successful
*              $1101 - Entry not found
*              $00xx - GS/OS I/O error
*              $02xx - Memory Manager error
*
****************************************************************
*
GetInfo		PROC	EXPORT
		LoadSegCheck

		with	DirectPage, Globals
		Import	find_user_id,make_HET_ptr,seg_num_lookup,setup_seg_ptrs

		ldx	#func_0F_param_cnt	;get the number of parameters of the stack
		jsr	get_parameters

IAddress	EQU	input_parms
ISegNum		EQU	IAddress+4
IFileNum	EQU	ISegNum+2
IUserID		EQU	IFileNum+2

		lda	IFileNum
		dec	a
		bne	old_loader		;if file number not 1 then call system loader

		lda	IUserID
		jsr	find_user_id		;see if we have the ID
		bcs	old_loader

		ldy	#ID_Table_Entry.ExpressHandle
		lda	[temp_ptr],y		;get the ExpressLoad handle
		sta	ExpressHandle
		iny
		iny
		lda	[temp_ptr],y
		sta	ExpressHandle+2
		ora	ExpressHandle
		bne	@have_handle
		lda	#ExpressSegLost
		bra	@error_exit
@have_handle
		jsr	make_HET_ptr		;set up the HET pointer
		lda	ISegNum			;segment # to get info for
		jsr	seg_num_lookup		;convert the segment number to correct number
		bcs	@error_exit		;the number is not valid
		sta	search_seg
		jsr	setup_seg_ptrs		;setup pointers for the transfer

		lda	IUserID			;copy UserID
		sta	[IAddress]

		ldy	#HET_Entry.SegHandle	;copy segment handle
		lda	[HET_entry_ptr],y
		pha
		iny
		iny
		lda	[HET_entry_ptr],y
		ldy	#$0004
		sta	[IAddress],y
		dey
		dey
		pla
		sta	[IAddress],y

		ldy	#$0006			;copy load file #
		lda	IFileNum
		sta	[IAddress],y

		iny				;copy segment #
		iny
		lda	ISegNum
		sta	[IAddress],y

		ldy	#SegHeaderEntry.Kind	;copy segment kind
		lda	[seg_header_ptr],y
		ldy	#10
		sta	[IAddress],y

		lda	#0			;no error
@error_exit
		jmp	return_to_caller	;report error to the caller.
old_loader
;
;        search Memory Segment Table using inputs
;
		pha				;output Handle
		pha
		pei	IUserID			;UserID
		pei	IFileNum		;File Number
		pei	ISegNum			;Segment Number
		jsr	Find_MemSeg
		plx				;output Handle
		ply
		phk				;restore DBR
		plb
		bcs	Error_Exit
;
;        dereference Handle
;
		txa
		jsr	DeRef
;
;        set Pointer to start of data
; (returned from DeRef in Acc and Y)
;
		clc
		adc	#MS_UserID
		sta	Pointer
		bcc	@1
		iny
@1
		sty	Pointer+2
;
;        move data to user's buffer
;
		phy				;Source
		pha
		pei	IAddress+2		;Destination
		pei	IAddress
		pea	$0000
		pea	MS_Kind-6		;Count
		jsr	Block_Move

Error_Exit
		jmp	return_to_caller

		ENDP

		TITLE	', FUNCTIONS.a - myGetUserID'
*
****************************************************************
*
*              private Get UserID subroutine
*
*  Inputs:     Address of Pathname in a,y (class 1 string)
*  Outputs:    UserID (2 bytes)
*  Errors:     $0000 - Operation successful
*              $1101 - Entry not found
*              $00xx - GS/OS I/O error
*              $02xx - Memory Manager error
*
****************************************************************
*
myGetUserID	PROC
		with	DirectPage, Globals
		Import	lock_handles,unlock_handles,path_to_user_id

OUserID		EQU	3

		jsr	Expand_Pathname		;make it a full pathname
		jsr	path_to_user_id		;given a path this routine finds a user ID
		bcc	Normal_Exit		;go store the user_id

old_loader
;
;        search Pathname Table for full pathname
;
		lda	#0
		pha				;UserID (none)
		pha				;File Number (none)
		pei	TempBuff+2		;Address of Pathname
		pei	TempBuff
		jsr	Find_Pathname
		bcs	Error_Exit

		lda	|PT_UserID,x
Normal_Exit
		sta	OUserID,s

		lda	#0			;clear Accumulator (no error)

Error_Exit	phk
		plb				;restore DBR

		pha				;save status
		pea	uTempBuff		;dispose of temporary memory
		_DisposeAll
		pla				;restore status

		rts

		EndP

		TITLE	', FUNCTIONS.a - GetUserID'
*
****************************************************************
*
*              Get UserID ($10)
*
*  Inputs:     Address of Pathname (4 bytes)
*  Outputs:    UserID (2 bytes)
*  Errors:     $0000 - Operation successful
*              $1101 - Entry not found
*              $00xx - GS/OS I/O error
*              $02xx - Memory Manager error
*
****************************************************************
*
GetUserID	PROC	EXPORT
		LoadSegCheck

		with	DirectPage

		ldx	#func_10_param_cnt	;get the number of parameters of the stack
		jsr	get_parameters

IAddress	EQU	input_parms
OUserID		EQU	1

;
;        convert type 0 pathname to type 1
;
		lda	IAddress
		ldy	IAddress+2
		ldx	#0
		jsr	Convert_Pathname
		bcs	Error_Exit
;
;       then call the _real_ GetUserID routine
;
		ldy	TempBuff+2		;converted pathname
		lda	TempBuff
		jsr	myGetUserID		;go find the User ID

Error_Exit
		jmp	return_to_caller


		ENDP

		TITLE	', FUNCTIONS.a - GetUserID 2'
*
****************************************************************
*
*              Get UserID 2 ($21) - Type 1 Pathname used
*
*  Inputs:     Address of Pathname (4 bytes)
*  Outputs:    UserID (2 bytes)
*  Errors:     $0000 - Operation successful
*              $1101 - Entry not found
*              $00xx - GS/OS I/O error
*              $02xx - Memory Manager error
*
****************************************************************
*
GetUserID2	PROC	EXPORT
		LoadSegCheck

		with	DirectPage

		ldx	#func_21_param_cnt	;get the number of parameters of the stack
		jsr	get_parameters

IAddress	EQU	input_parms

		lda	IAddress		;get the name pointer into registers
		ldy	IAddress+2

		jsr	myGetUserID		;call the _real_ workhorse

		jmp	return_to_caller

		ENDP

		TITLE	', FUNCTIONS.a - GetPathname'
*
****************************************************************
*
*              Get Pathname ($11)
*
*  Inputs:     UserID (2 bytes)
*              File Number (2 bytes)
*  Outputs:    Address of Pathname (4 bytes)
*  Errors:     $0000 - Operation successful
*              $1101 - Entry not found
*              $00xx - GS/OS I/O error
*              $02xx - Memory Manager error
*
****************************************************************
*
GetPathname	PROC	EXPORT
		LoadSegCheck

		with	DirectPage, Globals
		Import	find_user_id,merge_path, GString_to_PString

		ldx	#func_11_param_cnt	;get the number of parameters of the stack
		jsr	get_parameters

IFileNum	EQU	input_parms
IUserID		EQU	IFileNum+2
OAddress	EQU	1

		pea	uTempBuff		;dispose of any old buffer
		_DisposeAll

		lda	IFileNum
		dec	a
		bne	old_loader		;if file number not 1 then call system loader

		lda	IUserID
		jsr	find_user_id		;see if we have the ID
		bcs	old_loader

		ldy	#ID_Table_Entry.ExpressHandle
		lda	[temp_ptr],y		;get the ExpressLoad handle
		tax
		iny
		iny
		lda	[temp_ptr],y
		tay
		bne	@have_handle
		txa
		bne	@have_handle		;we have the handle
		lda	#ExpressSegLost
		sec
		bra	@error_exit		;report error to the caller.
@have_handle
		jsr	merge_path		;Build a GString

		pei	ExpressHandle+2
		pei	ExpressHandle
		_HLock				;we better lock it down for a bit

		lda	PathnamePtr
		ldy	PathnamePtr+2
		ldx	#1
		jsr	Convert_Pathname	;convert to a class 0 string
		pha				;save return status

		pei	ExpressHandle+2		;now we can unlock the handle
		pei	ExpressHandle
		_HUnlock

		pla
		bra	store_pointer

@error_exit
		ldx	IUserID
		bne	outta_here

old_loader
;
;        search Pathname Table for UserID
;
		pei	IUserID			;UserID
		pei	IFileNum		;File Number
		lda	#0
		pha				;Address of Pathname
		pha
		jsr	Find_Pathname
		bcs	Error_Exit

		txa
		clc
		adc	#PT_Path
		tax				;save in X for a minute
		phb
		phb
		pla
		and	#$FF
		bcc	@1
		inc	a
@1
		tay				;put high word in Y
		txa				;retrieve low word
;
;        convert pathname to type 0
;
		ldx	#1
		jsr	Convert_Pathname
store_pointer
		tax				;save status
		lda	TempBuff
		sta	OAddress,s
		lda	TempBuff+2
		sta	OAddress+2,s
		txa
Error_Exit
		phk
		plb				;restore DBR
outta_here
		jmp	return_to_caller

		ENDP

		TITLE	', FUNCTIONS.a - GetPathname 2'
*
****************************************************************
*
*              Get Pathname 2 ($22) - Type 1 Pathname used
*
*  Inputs:     UserID (2 bytes)
*              File Number (2 bytes)
*  Outputs:    Address of Pathname (4 bytes)
*  Errors:     $0000 - Operation successful
*              $1101 - Entry not found
*              $00xx - GS/OS I/O error
*              $02xx - Memory Manager error
*
****************************************************************
*
GetPathname2	PROC	Export
		LoadSegCheck

		with	DirectPage, Globals
		Import	merge_path,find_user_id,MemMove,do_alloc

		ldx	#func_22_param_cnt	;get the number of parameters of the stack
		jsr	get_parameters

IFileNum	EQU	input_parms
IUserID		EQU	IFileNum+2
OAddress	EQU	1

		pea	uLGetPathname		;dispose of any old buffer
		_DisposeAll

		lda	IFileNum
		dec	a
		bne	old_loader		;if file number not 1 then call system loader

		lda	IUserID
		jsr	find_user_id		;see if we have the ID
		bcs	old_loader

		ldy	#ID_Table_Entry.ExpressHandle
		lda	[temp_ptr],y		;get the ExpressLoad handle
		tax
		iny
		iny
		lda	[temp_ptr],y
		tay
		bne	@have_handle
		txa
		bne	@have_handle		;we have the handle
		lda	#ExpressSegLost
		sec
		bra	Error_Exit		;report error to the caller.

@have_handle
		jsr	merge_path
		bra	copy_pathname		;go copy the pathname into a temp buffer

old_loader
;
;        search Pathname Table for UserID
;
		pei	IUserID			;UserID
		pei	IFileNum		;File Number
		lda	#0
		pha				;Address of Pathname
		pha
		jsr	Find_Pathname
		bcs	Error_Exit

		txa
		clc
		adc	#PT_Path
		sta	PathnamePtr
		phb
		phb
		pla
		and	#$FF
		bcc	@1			;was there a carry from the above calculation?
		inc	a			;yes, adjust bank #
@1
		sta	PathnamePtr+2
		phk
		plb
copy_pathname
		lda	[PathnamePtr]		;get the length of the pathname
		inc	a			;adjust for leading length word
		inc	a
		tax				;pass in X register
		ldy	#0			;always < 64K
		lda	#uLGetPathname		;use this ID to allocate memory
		jsr	do_alloc		;allocate some memory
		bcs	Error_Exit		;oops!  couldn't get the memory

		txa				;put low word of handle into Accumulator
		jsr	DeRef			;deref the handle (into Acc & Y)

		tax				;save low word in X for a second
		sta	OAddress,s		;store return pointer
		tya
		sta	OAddress+2,s

		pei	PathnamePtr+2		;source for move
		pei	PathnamePtr
		phy				;destination pointer
		phx
		lda	[PathnamePtr]		;get length
		inc	a			;include length word
		inc	a
		pha
		jsr	MemMove			;copy the string

		lda	#0			;signify no error
Error_Exit
		phk
		plb				;restore DBR

outta_here
		jmp	return_to_caller

		ENDP

		TITLE	', FUNCTIONS.a - myUserShutdown'
*
****************************************************************
*
*              private User Shutdown function
*
*  Inputs:     UserID (2 bytes)
*              Quit Flag (2 bytes)
*
*  Outputs:    UserID (2 bytes)
*
*  Errors:     $0000 - Operation successful
*              $00xx - GS/OS I/O error
*              $02xx - Memory Manager error
*
****************************************************************
*
myUserShutdown	Proc
		with	DirectPage, Globals

IQuit		EQU	input_parms
IUserID		EQU	IQuit+2
OUserID		EQU	3			;allow for extra return address

		lda	IUserID
		bne	cont1
		lda	|USERID
cont1		sta	OUserID,s
;
;       close all the Files associated with this UserID
;
		stz	Memory_Load
		stz	Keep_Open
;
;       get the first Pathname Table entry for this UserID
;
		pha				;UserID
		lda	#0
		pha				;File Number (any)
		pha				;Pathname (none)
		pha
		jsr	Find_Pathname
		bcc	cont2
		jmp	Error_Exit
;
;       get next Pathname entry for this UserID
;
loop		lda	OUserID,s		;UserID
		pha
		lda	#0
		pha				;File Number (any)
		pha				;Pathname (none)
		pha
		jsr	Next_Pathname
		bcs	eloop
;
;       get Pathname and save for Open_File
;
cont2		txa
		clc
		adc	#PT_Path
		sta	TempZero
		phb
		phb
		pla
		and	#$FF
		bcc	@1			;propage carry for possible
		inc	a			;bank crossing
@1
		sta	TempZero+2
;
;       bump handle of Pathname Table entry to next
;
		lda	|MS_Next,x
		sta	Handle
		lda	|MS_Next+2,x
		sta	Handle+2
;
;       restore DBR
;
		phk
		plb
;
;       open (only gets refnum) and close Load File
;
		lda	[TempZero]		;get the length of the pathname
		beq	loop			;if 0, just skip the OS calls

		pei	TempZero+2		;Pathname
		pei	TempZero
		lda	#0			;Time/Date stamp
		pha
		pha
		pha
		pha
		jsr	Open_File
		jsr	Close_File
		bra	loop

eloop		phk
		plb
;
;        if Quit Flag=
;
;        $0000 - cleanup internal tables and dispose all memory
;        $8000 - reloadable - same as above except spare Pathname Table
;        other - restartable
;
		ldx	IQuit
		beq	cont3
		cpx	#$8000
		bne	cont5
;
;        cleanup internal tables for UserID
;
cont3		lda	OUserID,s		;UserID
		pha				;once for _DisposeAll
		pha
		jsr	Cleanup
;
;        dispose of all memory blocks for UserID
;
		_DisposeAll
;
;        if Quit Flag<>$8000, remove UserID from Pathname Table and delete it
;
		ldx	IQuit
		cpx	#$8000
		beq	cont4

		lda	OUserID,s
		pha				;extra for Remove_UserID
		pha
		_DeleteID

		pea	PATHTBL>>16
		pea	|PATHTBL
		jsr	Remove_UserID
;
;        remove UserID from Jump Table and Memory Segment Table
;
cont4		lda	OUserID,s
		pha				;extra for Remove_UserID
		pha
		pea	JMPTBL>>16
		pea	|JMPTBL
		jsr	Remove_UserID

		pea	SEGTBL>>16
		pea	|SEGTBL
		jsr	Remove_UserID

		bra	OK_Exit
;
;        User is Restartable, purge all dynamic segments for this UserID
;        from all tables (this will also dispose of memory block handles)
;
cont5
		pea	3			;purge level for _SetPurgeAll
		lda	OUserID+2,s		;UserID
		pha				;for _SetPurgeAll
		pha				;for _PurgeAll
		pha				;for _HUnlockAll
		pha				;for Purge_Segment
		lda	#0
		pha				;all Load Files
		pha				;all Load Segments
		pea	1			;Dynamic Segments only
		pha				;Purge Level (dispose)
		jsr	Purge_Segment
;
;        unlock all load segments
;
		_HUnlockAll
;
;        purge all other dynamic segments
;
		_PurgeAll
;
;        make all static segments purgeable
;
		_SetPurgeAll

OK_Exit		lda	#0
Error_Exit	rts				;back to caller

		EndP

		TITLE	', FUNCTIONS.a - UserShutdown'
*
****************************************************************
*
*              User Shutdown ($12)
*
*  Inputs:     UserID (2 bytes)
*              Quit Flag (2 bytes)
*
*  Outputs:    UserID (2 bytes)
*
*  Errors:     $0000 - Operation successful
*              $00xx - GS/OS I/O error
*              $02xx - Memory Manager error
*
****************************************************************
*
UserShutdown	PROC	EXPORT
		LoadSegCheck

		with	DirectPage, Globals
		Import	find_user_id,close_dynamic_file,remove_segment
		Import	mark_all_purgable,delete_user_id

		ldx	#func_12_param_cnt	;get the number of parameters of the stack
		jsr	get_parameters

IQuit		EQU	input_parms
IUserID		EQU	IQuit+2
OUserID		EQU	1

		lda	IUserID			;see if this is my User ID
		jsr	find_user_id		;Is this mine?
		bcc	@found_it		;yes...
		brl	old_loader		;no. It must belong to the system loader
@found_it
		ldy	#ID_Table_Entry.ExpressHandle
		lda	[temp_ptr],y		;get the ExpressLoad handle
		tax
		iny
		iny
		lda	[temp_ptr],y
		tay
		bne	@have_handle
		txa
		bne	@have_handle		;we have the handle
		lda	#ExpressSegLost
		sec
		bra	@error_exit		;report error to the caller.
@have_handle
		stx	ExpressHandle
		sty	ExpressHandle+2
		jsr	close_dynamic_file	;close file if any segments were dynamic

		lda	temp_ptr		;setup the User_ID pointer to point to the entry
		sta	user_id_ptr
		lda	temp_ptr+2
		sta	user_id_ptr+2

		lda	IQuit			;save the guit flag
						;what type of kill is this?
		beq	@nuke_it		;remove the entire application
		cmp	#$8000			;is this a "keep Only Table" quit
		bne	@make_dormant		;this a restart attemp
;
;If we get here we need to purge the app but keep our tables intack
;
		lda	#purge_all		;remove all segments
		ldx	#$0000			;LOAD flags AND mask COMPARE value BEQ REMOVE_IT
		jsr	remove_segment		;deallocate the segments
		bra	@norm_exit

@make_dormant
		lda	#purge_dynamics		;remove dynamic segments
		ldx	#$0000			;LOAD flags AND mask COMPARE value BEQ REMOVE_IT
		jsr	remove_segment		;deallocate the segments
		jsr	mark_all_purgable
		bra	@norm_exit
@nuke_it
		pha				;space for handle
		pha
		pei	user_id_ptr+2		;lock down the user ID table
		pei	user_id_ptr
		_FindHandle
		lda	3,s			;duplicate the handle on the stack
		pha
		lda	3,s
		pha
		_HLock

		lda	#nuke_id		;delete the ID and the memory
		jsr	delete_user_id		;remove the user_id please

		_HUnlock			;unlock the user ID table

@norm_exit
		lda	|USERID
		sta	OUserID,s
		lda	#$0000
@outta_here
		jmp	return_to_caller	;we were successful!!
@error_exit
		ldx	IUserID
		bne	@outta_here

old_loader
		jsr	myUserShutdown		;call private function

		jmp	return_to_caller

		ENDP

		TITLE	', FUNCTIONS.a - RenamePathname'
*
****************************************************************
*
*              Rename Pathname ($13)
*
*  Inputs:     Address of old Pathname (4 bytes) - Type 1 pathname
*              Address of new Pathname (4 bytes) - Type 1 pathname
*  Outputs:    none
*  Errors:     $0000 - Operation successful
*              $02xx - Memory Manager error
*
****************************************************************
*
RenamePathname	PROC	EXPORT
		LoadSegCheck

		with	DirectPage, Globals
		Import	rename_segments, compare_paths, adjust_handle_size, change_pathname

		ldx	#func_13_param_cnt	;get the number of parameters of the stack
		jsr	get_parameters

newAddr		EQU	input_parms
oldAddr		EQU	newAddr+4

;
;       indicate to compare_paths that a partial match is OK
;
		lda	#$8000
		sta	partial_match		;indicate that a partial match is OK

;
;           if either input pathname is NIL, just exit with no error
;
		lda	oldAddr
		ora	oldAddr+2
		bne	cont1
its_null
		jmp	OK_Exit
cont1		lda	newAddr
		ora	newAddr+2
		beq	its_null
cont2		lda	[oldAddr]
		beq	its_null
cont3		lda	[newAddr]
		beq	its_null

;
;           expand both input pathnames (to upper case them)
;
cont3a		lda	oldAddr
		ldy	oldAddr+2
		jsr	Expand_Pathname
		bcc	_1
error_skip
		jmp	Error_Exit
_1
		lda	TempBuff
		sta	oldAddr
		lda	TempBuff+2
		sta	oldAddr+2

		lda	newAddr
		ldy	newAddr+2
		jsr	Expand_Pathname
		bcs	error_skip
		lda	TempBuff
		sta	newAddr
		lda	TempBuff+2
		sta	newAddr+2
;
;           if input and output pathnames are the same, exit
;
		lda	[oldAddr]
		cmp	[newAddr]
		bne	do_rename		;different lengths, just do the rename

cont3b		tay
		iny
		sep	#$20
		longa	off
loop0		lda	[oldAddr],y
		eor	[newAddr],y		;case insensentive comparision
		and	#$DF			;ignore the case bit
		bne	cont3c
		dey
		bne	loop0
		rep	#$20
		longa	on
to_OK_Exit
		jmp	OK_Exit			;they're the same!
cont3c
		rep	#$20
		longa	on
do_rename
		lda	oldAddr			;point TempBuff to old pathname
		sta	TempBuff
		lda	oldAddr+2
		sta	TempBuff+2

		jsr	rename_segments		;go and rename ExpressLoad stuff

old_loader
;
;           oldAddr = points into old input pathname
;           newAddr = points into new input pathname
;           oldTable = points into original Pathname Table entry
;           newTable = points into new      Pathname Table entry

;
;           search Pathname Table for a match to old Pathname (match only the number of chars
;           corresponding to the length of the old Pathname)
;
		lda	|PATHTBL+2
		sta	Handle+2
		lda	|PATHTBL
		sta	Handle			;handle to 1st entry
		ora	Handle+2
		beq	OK_Exit			;yes, end of pathname table
loop1
		lda	Handle
		ldy	Handle+2
		jsr	DeRef			;dereference Handle
;
;           bump returned pointer to start of pathname in Pathname Table entry
;
		clc
		adc	#PT_Path
		sta	PathnamePtr		;set PathnamePtr to name within Pathname table entry
		bcc	@1
		iny
@1
		sty	PathnamePtr+2

		lda	[PathnamePtr]		;check for a NULL pathname (memory-loaded file)
		beq	eloop1			;if NULL, there's no way there's gonna be a match

		jsr	compare_paths		;compare the pathnames
		bcs	eloop1			;no match

		php				;save partial/full match status
		lda	[newAddr]		;get the length of the new name
		sec
		sbc	[oldAddr]		;calculate difference (may be negative)
		beq	@no_size_change		;if same length, no adjustment necessary
		jsr	adjust_handle_size	;change the size of the table entry
		bcs	eloop1			;just punt if we get an error
		ldy	#2			;deref Handle
		lda	[Handle]
		clc
		adc	#PT_Path		;offset to position of pathname within segment
		sta	PathnamePtr
		lda	[Handle],y
		adc	#0
		sta	PathnamePtr+2
@no_size_change
		plp				;retrieve complete/partial match status
		jsr	change_pathname		;go make the change
;
;           continue to next entry
;
eloop1		lda	Handle
		ldy	Handle+2
		jsr	DeRef
		sta	Pointer
		sty	Pointer+2
		ldy	#PT_Next+2		;bump Handle to Next Handle
		lda	[Pointer],y
		sta	Handle+2
		lda	[Pointer]
		sta	Handle
		ora	Handle+2
		bne	loop1			;continue checking

OK_Exit		lda	#0
Error_Exit
		pha				;save status
		pea	uTempBuff		;dispose of temporary memory
		_DisposeAll
		pla				;restore status
		jmp	return_to_caller

		ENDP

		TITLE	', FUNCTIONS.a - GetGlobalsAddr'
*
****************************************************************
*
*              GetGlobalsAddr ($1E)
*
*  Inputs:     none
*
*  Outputs:    Globals address (4 bytes)
*
*  Errors:     $0000 - Operation successful
*
****************************************************************
*
GetGlobalsAddr	PROC	EXPORT
		LoadSegCheck

		with	DirectPage, Globals

oAddress	equ	7

		lda	#Globals
		sta	oAddress,s
		lda	#^Globals
		sta	oAddress+2,s
		lda	#0
		clc
		rtl
		EndP
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Loader/GSFooter.a b/IIGS.601.SRC/GS.OS/Loader/GSFooter.a
new file mode 100644
index 0000000..06e682a
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Loader/GSFooter.a
@@ -0,0 +1 @@
+		include	'Loader.Preamble'

;===============================================================================
; zloader
;
; Framework for building load segment zloader.
;
;===============================================================================
		SEG	'Loader'

zloader_end	PROC	Export
		ENDP

;===============================================================================
org_dummy_1	proc	org Loader_End, skip    ;generate an error if code
		endp				;  is too big
;===============================================================================

;===============================================================================
; zloader_LC
;
; Framework for building load segment zloader.
;
;===============================================================================
		SEG	'Loader_LC'
zloaderLC_end	PROC	Export
		ENDP

;===============================================================================
org_dummy_2	proc	org Loader_LC_End, skip	;generate an error if code
		endp				;  is too big
;===============================================================================

		END

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Loader/GSHeader.a b/IIGS.601.SRC/GS.OS/Loader/GSHeader.a
new file mode 100644
index 0000000..93402db
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Loader/GSHeader.a
@@ -0,0 +1 @@
+		INCLUDE	'Loader.Preamble'

header_length	EQU	$30
zloader_start	EQU	Loader_Entry
zloader_org	EQU	Loader_Entry
zloaderLC_start	EQU	Loader_LC_Start

;===============================================================================
; zloader
;
; Framework for building load segment zloader.
;
;===============================================================================

		SEG	'Loader'

zloader_header	PROC	ORG zloader_org-header_length

		IMPORT	zloader_end
		MSB	ON

		DC.W	zloader_end-zloader_start
		DC.L	zloader_org
		DC.W	0000
		DC.B	'System Loader         v04.02'
		DC.B	00

		if	(*-zloader_header)<header_length then
		dcb.b	header_length-(*-zloader_header),0
		endif
		MSB	OFF

		ENDP

		SEG	'Loader_LC'
zloader_lc_header Proc	org zloaderLC_start-header_length
		IMPORT	zloaderLC_end
		MSB	ON

		DC.W	zloaderLC_end-zloaderLC_start
		DC.L	Loader_LC_Start
		DC.W	0000
		DC.B	'System Loader,Pt 2    v04.00'
		DC.B	00
		if	(*-zloader_lc_header)<header_length then
		dcb.b	header_length-(*-zloader_lc_header),0
		endif

		MSB	OFF

		EndP
		END

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Loader/Init.Load.a b/IIGS.601.SRC/GS.OS/Loader/Init.Load.a
new file mode 100644
index 0000000..95b0d70
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Loader/Init.Load.a
@@ -0,0 +1 @@
+		TITLE	', INIT.LOAD.a - myInitLoad'
*
****************************************************************
*
*               private Initial Load subroutine
*               separated from main InitialLoad routines to
*               solve reentrancy problems.
*
*  Inputs:      (already stored in input_parms)
*               UserID (2 bytes)
*               Address of Load File Pathname (4 bytes)
*               Special Memory Flag (2 bytes)
*               Input Type (2 bytes)
*  Outputs:     UserID (2 bytes)
*               Starting Address (4 bytes)
*               Address of Direct Page/Stack (2 bytes)
*               Size of Direct Page/Stack (2 bytes)
*  Errors:      $0000 - Operation successful
*               $1102 - OMF Version error
*               $1104 - File not Load File
*               $1108 - UserID error
*               $1109 - SegNum out of sequence
*               $110A - Illegal load record found
*               $110B - Load Segment is foreign
*               $02xx - Memory Manager error
*               $00xx - ProDOS I/O error
*
****************************************************************
*
myInitLoad	Proc
		with	DirectPage, Globals
		Import	delete_user_id,close_dynamic_file, \
		expand_path,open_load_file,check_express_seg,  \
		alloc_id,			get_express_seg, load_statics, save_start, \
		find_user_id,			Setup_Buf_Ptrs

IType		equ	input_parms		;input Type
ISpecial	equ	IType+2			;input Special Memory Flag
IAddress	equ	ISpecial+2		;input Address of Load File Name
IUserID		equ	IAddress+4		;input UserID
OUserID		equ	3			;output UserID (allow for return address)
OAddress	equ	OUserID+2		;output Load Address
OZP_Addr	equ	OAddress+4		;output Direct Page/Stack Address
OZP_Size	equ	OZP_Addr+2		;output Direct Page/Stack Size


		jsr	InitInit		;common initialize
;
;        initialize output variables
;
		lda	#0
		sta	OAddress,s		;output Load Address
		sta	OAddress+2,s
		sta	OZP_Addr,s		;output Direct Page/Stack Address
		sta	OZP_Size,s		;output Direct Page/Stack Size

		lda	IType			;get the input type
		beq	@old_style		;type 0 means class 0 pathname supplied
		cmp	#$0001			;see if this is a pathname load
		beq	@do_expand		;this is a class 1 string
		jmp	old_loader		;else must be a System Loader call
;
;Now we need to do an Expand Path on the Input name.
;
@old_style
		lda	IAddress		;get the pointer to the pathname
		ldy	IAddress+2
		ldx	#0			;convert type 0 to type 1
		jsr	Convert_Pathname
		lda	TempBuff		;get pointer to converted pathname
		ldy	TempBuff+2
		bra	@expand_it
@do_expand
		lda	IAddress
		ldy	IAddress+2
@expand_it
		jsr	Expand_Pathname		;perform an ExpandPath call
		bcs	@error_exit

		lda	TempBuff
		sta	PathnamePtr
		lda	TempBuff+2
		sta	PathnamePtr+2

		jsr	open_load_file		;open the file please
		bcs	@error_exit

		lda	IUserID			;go and get the user ID
		jsr	alloc_id
		bcs	@skip_to_error		;pass the error back to the caller
		sta	OUserID,s
		and	#$F000
		cmp	#Application
		bne	@not_app
		inc	Keep_Open
@not_app
		jsr	check_express_seg	;see if this is an expressload file
		bcc	@its_expressed
		jsr	Setup_Buf_Ptrs
		jmp	old_loader_continue	;call the standard loader and let it try
;
;At this point all errors that we encounter must be returned to the caller since the file is mine.
;
@its_expressed
						;setup the special memory flag
		lda	ISpecial
		sta	spec_mem_flag		;user's preference

		jsr	get_express_seg		;load in the express load segment
@skip_to_error
		bcs	@error_exit		;pass the error back to the caller

		jsr	load_statics		;load all the static segments
		bcs	@dispose_exit		;pass the error back to the caller

		jsr	save_start		;save starting address and stack info
		lda	stack_size		;return the correct parameters
		sta	OZP_Size,s
		lda	stack_addr
		sta	OZP_Addr,s
		lda	starting_addr+2		;address of the Application
		and	#$00FF
		sta	OAddress+2,s
		lda	starting_addr
		sta	OAddress,s
		lda	|USERID
		sta	OUserID,s

		pea	uTempBuff		;UserID
		_DisposeAll			;dispose of temporary memory

		lda	#$0000
@error_exit
		rts				;we were successful!!

; this is used when an error occurs after loading at least one segment into memory.
; in this case, we must do a pseudo-userShutdown to clean up memory and dispose of
; the user ID.

@dispose_exit
		pha				;save the error code
		lda	|USERID
		jsr	find_user_id		;get pointer to user_id_table
		ldy	#ID_Table_Entry.ExpressHandle
		lda	[temp_ptr],y		;get the ExpressLoad handle
		sta	ExpressHandle
		iny
		iny
		lda	[temp_ptr],y
		sta	ExpressHandle+2
		jsr	close_dynamic_file	;close file if any segments were dynamic

		lda	temp_ptr		;setup the User_ID pointer to point to the entry
		sta	user_id_ptr
		lda	temp_ptr+2
		sta	user_id_ptr+2

		pha				;space for handle
		pha
		pei	user_id_ptr+2		;lock down the user ID table
		pei	user_id_ptr
		_FindHandle
		lda	3,s			;duplicate the handle on the stack
		pha
		lda	3,s
		pha
		_HLock

		lda	#nuke_id		;delete the ID and the memory
		jsr	delete_user_id		;remove the user_id please

		_HUnlock			;unlock the user ID table

		pea	uTempBuff		;UserID
		_DisposeAll			;dispose of temporary memory

		pla				;restore error code

		rts

		entry	type3_InitLoad
old_loader
;
;        if Input Type is 3, get UserID from Pathname Table
;
		cmp	#3
		bne	cont1
type3_InitLoad
		ldy	#PT_UserID
		lda	[IAddress],y
		sta	|USERID
		bra	cont3
;
;        if Main ID field of input UserID is not 0, use UserID as is
;
cont1
		lda	IUserID			;go and get the user ID
		jsr	alloc_id
		bcc	@1
		jmp	Error_Exit
@1
;
;       set Keep Open flag if UserID is an Application type
;
cont3		tax				;save in X for a bit
		and	#$F000
		cmp	#Application
		bne	cont3a
		inc	Keep_Open
;
;       if Input Type is 4, use the Loader's internal Resource UserID
;
cont3a
		txa
		sta	OUserID,s		;save original UserID (with changes) as output
		lda	IType
		cmp	#4
		bne	cont5
		ldx	#uResource
cont5		stx	|USERID			;save in global USERID

;
;        load IAddress into A,Y and point Open packet to a null string
;
		lda	#<zero
		sta	|POpen.pathname
		lda	#^zero
		sta	|POpen.pathname+2
		lda	IAddress
		ldy	IAddress+2
;
;        check Input Type
;
		ldx	IType
;
;        Input Type=2 or 4, set Memory Load Flag, and go right to Open
;
		cpx	#2
		beq	cont6
		cpx	#4
		bne	cont7
;
;       Input type must be 2 or 4 here
;
cont6		inc	Memory_Load
		phy
		pha
		bra	cont10
;
;        Input Type=3, get pathname from Pathname Table
;
cont7		clc
		adc	#PT_Path
		sta	TempZero
		bcc	@1
		iny
@1
		sty	TempZero+2
		phy
		pha
;
;        open file
;
cont10		lda	#0			;no time/date stamp
		pha
		pha
		pha
		pha
		jsr	Open_File
		bcs	error_skip

old_loader_continue
;
;        do pass 1
;
		stz	Pass			;Loader pass
		stz	Pass2_Needed		;Pass2 Needed flag
		stz	|Header_Mark		;set mark to 1st Segment Header
		stz	|Header_Mark+2
		stz	FirstMemSeg		;set first Memory Segment entry to 0
		stz	FirstMemSeg+2
		stz	Segment_Skipped		;clear Segment Skipped flag
		ldx	IType			;if Input Type 3, use File Number
		lda	#1			;  from Pathname Table
		cpx	#3			;otherwise use 1
		bne	cont11
		ldy	#PT_FileNum
		lda	[IAddress],y
cont11		sta	CFileNum
		lda	#1
		sta	CSegNum			;set Segment Number to 1

;
;       Add the pathname to the pathname table.  We'll fill in the starting and
;       direct page addresses after we get the segments into memory.
;
		cpx	#3			;X still contains IType
		bcs	loop1

		lda	|USERID			;UserID
		pha
		pea	1			;File Number
		lda	|POpen.modDateTime+6	;mod_date
		pha
		lda	|POpen.modDateTime+4
		pha
		lda	|POpen.modDateTime+2
		pha
		lda	|POpen.modDateTime
		pha
		lda	#0			;Direct Page and Starting Address
		pha				;will get filled in after we get the
		pha				;segments loaded
		pha
		pha
		lda	|POpen.pathname+2	;address of File Name
		pha
		lda	|POpen.pathname
		pha
		jsr	Add_Pathname
error_skip
		bcs	error_skip_2
;
;        read next Segment Header
;
loop1		jsr	Next_Header
		bcc	cont14			;if no error, continue
		cmp	#NoFind			;is mark past EOF?
		bne	error_skip_2		;no, real error
cont12		jmp	end_pass1		;pass is done

;
;        if this segment is Dynamic, skip it
;
cont14		lda	Header.Kind
		bpl	cont15			;dynamic bit is bit 15
skip_it
		inc	Segment_Skipped
eloop2
		inc	CSegNum			;(copied from eloop1)
		bra	loop1			;repeat
;
;        if this segment is a Skip Segment, skip it
;
cont15		bit	#Skip_Segment
		bne	skip_it
;
;        if this segment is a Library Dictionary Segment, skip it
;
cont16		and	#$1F
		cmp	#Lib_Segment
		beq	eloop2
;
;        process segment
;
		stz	CAddress		;set Segment Address to 0
		stz	CAddress+2
		ldx	ISpecial
		jsr	Do_Segment
		bcc	_1
error_skip_2
		jmp	Error_Exit
_1
;
;       if Input Type is 4, change UserID of Segment to original UserID
;
		lda	IType
		cmp	#4
		bne	cont17
		pha				;output Handle
		pha
		lda	Header.Org+2		;Address of Segment
		pha
		lda	Header.Org
		pha
		_FindHandle			;get Handle to Segment
		plx
		ply
		stx	Handle			;output Handle
		sty	Handle+2
		bcs	error_skip_2

		lda	OUserID,s
		ldy	#6
		sta	[Handle],y
;
;        if this segment is an Initialization Segment, process it
;
cont17		lda	Header.Kind		;KIND field
		and	#$1F			;extract type
		cmp	#Init_Segment		;is it Initialization type?
		bne	cont18
		lda	Header.Org
		ldy	Header.Org+2
		jsr	Do_Init_Segment
		bra	eloop1
;
;        if this segment is the Direct Page/Stack segment, get its info
;        for ZP_Addr and ZP_Size
;
cont18		cmp	#Direct_Segment
		bne	cont18a
		lda	Header.Org
		sta	OZP_Addr,s
		lda	Header.Length
		sta	OZP_Size,s
		bra	eloop1
;
;        if the output Load Address is still 0, use load address in current
;        segment as OAddress
;
cont18a		lda	OAddress,s
		ora	OAddress+2,s
		bne	eloop1
		lda	Header.Org
		clc
		adc	Header.Entry
		sta	OAddress,s
		lda	Header.Org+2
		adc	Header.Entry+2
		sta	OAddress+2,s
;
;        increment current Segment Number
;
eloop1		inc	CSegNum
		jmp	loop1			;repeat
;
;       pass 1  is finished
;
;       if Keep_Open flag is set and there were no skipped
;       segments or input type is not 3, clear Keep_Open flag
;
end_pass1	lda	Keep_Open
		beq	cont19
		lda	IType
		cmp	#3
		beq	cont20
		lda	Segment_Skipped
		bne	cont19
		stz	Keep_Open
;
;       if not Input Type 3 or 4, fill in Direct Page and Starting Address
;       entries in the Pathname Table
;
cont19
		lda	IType
		cmp	#3
		bcs	cont20

		lda	|USERID			;UserID
		pha
		pea	1			;File Number
		lda	|POpen.pathname+2	;address of File Name
		pha
		lda	|POpen.pathname
		pha
		jsr	Find_Pathname		;find the pathname entry
		bcc	@got_it			;so far, so good
		phk				;restore DBR
		plb
		bcs	Error_Exit		;not found?  Somethin's wierd!
@got_it
		lda	OZP_Addr,s		;Direct Page/Stack Address
		sta	|PT_ZP_Addr,x		;store into pathname table entry
		lda	OZP_Size,s		;Direct Page/Stack Size
		sta	|PT_ZP_Size,x
		lda	OAddress+2,s		;Starting Address
		sta	|PT_Address+2,x
		lda	OAddress,s
		sta	|PT_Address,x
		phk				;restore DBR
		plb
;
;        dispose of Temporary Buffer
;
cont20		pea	uTempBuff		;UserID
		_DisposeAll
;
;        check whether another pass is needed
;
		lda	Pass2_Needed		;is pass 2 needed?
		beq	cont21
;
;        another pass is needed, do pass 2
;
		inc	Pass
;
;        position file at Relocation Dictionary in current Segment
;
		lda	#0			;output Offset
		pha
		pha
		pea	ML_FirstEntry>>16	;Offset of 1st entry
		pea	|ML_FirstEntry
loop2		jsr	Next_Dictionary
		plx				;output offset
		ply
		bcs	Error_Exit
;
;        if CSegNum=0, there are no more entries in Mark List
;
		lda	CSegNum
		beq	cont21
;
;        process Segment
;
		phy				;save next Mark List Offset
		phx
		ldx	ISpecial
		jsr	Do_Segment
		plx				;Mark List Offset
		ply
		bcs	Error_Exit

		lda	#0			;output OffSet
		pha
		pha
		phy				;Mark List Offset
		phx

		bra	loop2

;
;       if Input Type 4, remove all entries for this Resource from the Memory Segment Table
;
cont21		lda	IType
		cmp	#4
		bne	return
		lda	|USERID			;UserID
		pha
		pea	SEGTBL>>16		;Memory Segment Table
		pea	|SEGTBL
		jsr	Remove_UserID

return		lda	#0
zero		equ	return+1		;location containing zero
;
;        exit cleanup
;
Error_Exit	pha				;save status
;
;        close file
;
		jsr	Close_File
;
;        dispose of Mark List
;
		pea	uMarkList		;UserID
		_DisposeAll
;
;        dispose of temporary buffers
;
		pea	uTempBuff		;UserID
		_DisposeAll
;
;        if an error occurred, and not Input Type 3, do complete shutdown of userid
;
		lda	1,s			;retrieve status from stack
		beq	cont22			;no errors!
		lda	IType
		cmp	#3
		beq	cont22
		pha				;make space for output UserID
		lda	|USERID			;input UserID
		sta	input_parms+2		;set up direct page for UserShutdown call
		stz	input_parms		;Quit Flag
		jsr	myUserShutdown		;make the call
		pla				;remove output UserID

cont22		pla				;restore status
		rts				;back to caller

		EndP

		TITLE	', INIT.LOAD.a - InitLoad'
*
****************************************************************
*
*              Initial Load ($09)
*
*  Inputs:     UserID (2 bytes)
*              Address of Load File Pathname (4 bytes)
*              Special Memory Flag (2 bytes)
*  Outputs:    UserID (2 bytes)
*              Starting Address (4 bytes)
*              Address of Direct Page/Stack (2 bytes)
*              Size of Direct Page/Stack (2 bytes)
*  Errors:     $0000 - Operation successful
*              $1102 - OMF Version error
*              $1104 - File not Load File
*              $1108 - UserID error
*              $1109 - SegNum out of sequence
*              $110A - Illegal load record found
*              $110B - Load Segment is foreign
*              $02xx - Memory Manager error
*              $00xx - ProDOS I/O error
*
****************************************************************
*
InitLoad	PROC
		LoadSegCheck

		with	DirectPage, Globals

		ldx	#func_9_param_cnt	;get the number of parameters of the stack
		jsr	get_parameters

ISpecial	equ	input_parms		;input  Special Memory Flag
IAddress	equ	ISpecial+2		;input  Address of Load File Name
IUserID		equ	IAddress+4		;input  UserID
OUserID		equ	1			;output UserID
OAddress	equ	OUserID+2		;output Load Address
OZP_Addr	equ	OAddress+4		;output Direct Page/Stack Address
OZP_Size	equ	OZP_Addr+2		;output Direct Page/Stack Size

;
;       translate the call into an InitialLoad2 call internally
;
		ldx	#IUserID-ISpecial	;move input parameters to correct locations
@loop
		lda	ISpecial,x		;get a word
		sta	ISpecial+2,x		;and move it
		dex
		dex
		bpl	@loop			;until all moved
		stz	ISpecial		;make this a type 0 InitialLoad2 call

		jsr	myInitLoad		;call the real workhorse

		jmp	return_to_caller	;back to application

		ENDP

		TITLE	', INIT.LOAD.a - InitLoad2'
*
****************************************************************
*
*              Initial Load 2 ($20)
*
*  Inputs:     UserID (2 bytes)
*              Address of Load File Pathname (4 bytes)
*              Special Memory Flag (2 bytes)
*              Input Type (2 bytes)
*  Outputs:    UserID (2 bytes)
*              Starting Address (4 bytes)
*              Address of Direct Page/Stack (2 bytes)
*              Size of Zero Page/Stack (2 bytes)
*  Errors:     $0000 - Operation successful
*              $1102 - OMF Version error
*              $1104 - File not Load File
*              $1108 - UserID error
*              $1109 - SegNum out of sequence
*              $110A - Illegal load record found
*              $110B - Load Segment is foreign
*              $02xx - Memory Manager error
*              $00xx - ProDOS I/O error
*
*  Input Type - 0 Pathname is Type 0 Pathname
*               1 Pathname is Type 1 Pathname
*               2 Address points to a packet containing:
*
*                   Starting Address of In Memory Load  File (4 bytes)
*                   Length  of In Memory Load File (2 bytes)
*
*               3 Address points to a Pathname Table entry
*               4 Address points to a packet containing:
*
*                   Starting Address of Code Resource in memory (4 bytes)
*                   Length of Code Resource (2 bytes)
*
*   The Load File is kept open if:
*
*       The UserID has Application type AND
*       Input Type is 3 OR
*       Some Load Segments were skipped (dynamic or skip)
*
****************************************************************
*
InitLoad2	PROC	Export
		LoadSegCheck

		ldx	#func_20_param_cnt	;get the number of parameters of the stack
		jsr	get_parameters

		jsr	myInitLoad		;call the _real_ InitialLoad function

		jmp	return_to_caller

		ENDP

		TITLE	', INIT.LOAD.a - InitInit'
*
****************************************************************
*
*              Initial Load and Restart Initialization
*
****************************************************************
*
InitInit	PROC
		with	DirectPage, Globals
;
;        initialize globals
;
		stz	|USERID			;global USERID

;
;        initialize zero page variables
;
		stz	Memory_Load		;clear Memory Load flag
		stz	Keep_Open		;clear Keep Open flag
;
;        cleanup Loader tables
;
		pea	0			;all UserID's
		jsr	Cleanup

		rts

		ENDP


\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Loader/Jump.a b/IIGS.601.SRC/GS.OS/Loader/Jump.a
new file mode 100644
index 0000000..e9b5d04
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Loader/Jump.a
@@ -0,0 +1 @@
+		TITLE	', JUMP.a - JumpLoad'
*
****************************************************************
*
*              Jump Table Load ($15)
*
*  Inputs:     UserID (2 bytes)
*              Load File Number (2 bytes)
*              Load Segment Number (2 bytes)
*              Load Segment Offset (4 bytes)
*
*              inputs are 'not' on stack but can found by tracing
*              the return address back to the calling location.  They
*              are in locations before the JSL.
*
*  Outputs:    none
*  Errors:     $0000 - Operation successful
*              $1101 - Segment not found
*              $1102 - Segment not dynamic
*              $1104 - File not Load File
*              $00xx - ProDOS I/O error
*              $02xx - Memory Manager error
*
****************************************************************
*
JumpLoad	PROC
		LoadSegCheck

		with	DirectPage, Globals
		Import	reset_local_mark,find_user_id,merge_path_2, \
		lock_segment,open_load_file,error_routine,  \
		lock_handles,unlock_handles,load_segment,  \
		Process_Reloc,close_load_file
;
;       the stack looks like this at entry:
;
;       (previous contents)
;       return to Jump Table entry              (3 bytes)
;       top of stack
;
		php				;save user's P-register
		phb				;save user's DBR
		phk				;set to our bank
		plb
;
;       Now, the stack looks like this:
;
;       (previous contents)
;       return  to Jump Table entry             (3 bytes)
;       user's processor status                 (1 byte)
;       user's Data Bank Register               (1 byte)
;       top of stack
;
		rep	#$30			;ensure 16-bit mode

		sta	save_a
		stx	save_x
		sty	save_y			;save app's registers

		plx				;get the processor status + Bank register
		pla				;get the low word of the return address
		sta	starting_addr

		sep	#$20			;8 bit mode
		pla
		sta	starting_addr+2		;store the bank byte of the return address
		stz	starting_addr+3
		rep	#$20			;16 bit
		phx				;put status and DBR back on stack

		phd				;save user's direct page
		lda	my_dir_page		;set to my direct page
		tcd

;
;       Now, the stack looks like this:
;
;       (previous contents)
;       user's processor status                 (1 byte)
;       user's Data Bank Register               (1 byte)
;       user's Direct Register                  (2 bytes)
;       top of stack

		jsl	incbusyflg

		sep	#$20			;8-bit mode
		lda	>statereg		;get current value
		sta	save_statereg
		lda	>$E0C08B		;shift in language-card memory
		lda	>$E0C08B
		rep	#$20			;back to 16-bit mode

; Now that we've saved the user's environment, we can get down to the real work

		jsr	reset_local_mark

		sec
		lda	starting_addr		;build a pointer to the start of the info
		sbc	#jmp_entry_size-1
		sta	jmp_tbl_ptr
		lda	starting_addr+2
		sbc	#$0000
		sta	jmp_tbl_ptr+2		;temp_ptr points to Jump Table Entry

		lda	[jmp_tbl_ptr]		;get the user ID
		sta	|USERID			;update the global User ID
		jsr	find_user_id
		bcc	@found_it
@do_old_loader
		jmp	old_loader		;not ExpressLoad's file
@found_it
		ldy	#ID_Table_Entry.ExpressHandle ;get handle to the ExpressLoad segment
		lda	[temp_ptr],y
		sta	ExpressHandle
		iny
		iny
		lda	[temp_ptr],y
		sta	ExpressHandle+2

		ldy	#JE_FileNum		;check the load file number
		lda	[jmp_tbl_ptr],y
		dec	a
		bne	@do_old_loader		;This file is not ExpressLoad compatible
		iny
		iny
		lda	[jmp_tbl_ptr],y		;get the segment we need to find
		sta	search_seg

		iny
		iny
		lda	[jmp_tbl_ptr],y		;get the relative offset
		sta	jmp_patch_value
		iny
		iny
		lda	[jmp_tbl_ptr],y
		sta	jmp_patch_value+2

		jsr	merge_path_2

		clc
		ldy	#$0002
		lda	[ExpressHandle]
		adc	#ExpressloadSeg.SegCount ;pass the link field
		sta	HET_ptr			;header entry table pointer
		lda	[ExpressHandle],y
		adc	#$0000
		sta	HET_ptr+2

		lda	search_seg
		dec	a			;convert base 1 to base 0
		dec	a			;allow for ExpressLoad segment

		asl	a
		asl	a
		asl	a			;times 8 for HET entry size

		inc	a			;add two to pass the segment count field
		inc	a

		clc
		adc	HET_ptr			;make a pointer to the Entry
		sta	HET_entry_ptr		;pointer to the entry itself
		lda	#$0000
		adc	HET_ptr+2
		sta	HET_entry_ptr+2
;
;Build a pointer to the segment header itself
;
		clc
		lda	HET_entry_ptr		;add in relative address to segment
		adc	[HET_entry_ptr]
		sta	seg_header_ptr
		lda	HET_entry_ptr+2
		adc	#$0000
		sta	seg_header_ptr+2
;
;Now lets see if the segment is already loaded into memory
;
		ldy	#HET_Entry.SegFlags
		lda	[HET_entry_ptr],y
		bpl	@new_segment		;we must load the segment from disk
		lsr	a			;see if the segment is marked as purgable
		bcc	@its_locked
		lda	search_seg		;pass in the segment number please
		jsr	lock_segment		;go and lock this segment
		bcs	@new_segment		;we have to reload the segment from disk
@its_locked
		ldy	#HET_Entry.SegHandle	;get the base address
		lda	[HET_entry_ptr],y
		sta	temp_handle
		iny
		iny
		lda	[HET_entry_ptr],y
		sta	temp_handle+2

		ldy	#$0002			;get the real address
		lda	[temp_handle]
		sta	base_ptr
		lda	[temp_handle],y
		sta	base_ptr+2
		bra	@do_patch
@new_segment
		jsr	open_load_file		;open the puppy
		bcc	@got_it
@oops
		jsr	error_routine		;sorry no can do. (No Return)
@got_it
		lda	#1
		sta	PSysPrefs.pCount

		jsr	lock_handles
		jsl	$e100a8			;get the current system preferences
		dc.w	GetSysPrefs
		dc.l	PSysPrefs
;
;Save the current user's preference please
;
		lda	PSysPrefs.preferences
		sta	users_prefs
;
;Now ask the operating system to put up a mount dialog when I ask for a disk
;
		lda	#$C000			;ask the OS to put up the mount dialog
		sta	PSysPrefs.preferences

		jsl	$e100a8
		dc.w	SetSysPrefs		;set the system preference
		dc.l	PSysPrefs
		jsr	unlock_handles

		jsr	load_segment		;load the segment into memory
		bcs	@oops
		lda	search_seg		;relocate the segment
		jsr	Process_Reloc

		lda	users_prefs
		sta	PSysPrefs.preferences
		jsr	lock_handles
		jsl	$e100a8
		dc.w	SetSysPrefs		;restore the caller's system preference
		dc.l	PSysPrefs
		jsr	unlock_handles

		jsr	close_load_file		;close the file
@do_patch
		clc				;add in the offset field
		lda	base_ptr
		adc	jmp_patch_value
		sta	base_ptr
		lda	base_ptr+2
		adc	jmp_patch_value+2
		sta	base_ptr+2

back_to_user
		ldy	#JE_jsl			;offset to the JSL
		lda	#$5C			;convert to a JML
		sta	[jmp_tbl_ptr],y
		iny
		lda	base_ptr
		sta	[jmp_tbl_ptr],y
		sta	call_routine+1
		lda	base_ptr+1
		iny
		sta	[jmp_tbl_ptr],y
		sta	call_routine+2

;
; Restore user's machine state and jump to the just-loaded routine
;
		sep	#$20
		lda	save_statereg		;restore original language card settings
		sta	>statereg
		rep	#$20

		jsl	decbusyflg
		pld				;restore Direct Register
		lda	save_a			;restore registers
		ldx	save_x
		ldy	save_y
		plb
		plp				;restore processor mode
call_routine	jml	$0000000		;call the desired routine

old_loader
;
;        set System Preferences to Display Mount Dialogs
;
		lda	#1
		sta	PSysPrefs.pCount
		jsl	$E100A8
		dc.w	GetSysPrefs
		dc.l	PSysPrefs		;get original preferences
		lda	PSysPrefs.preferences	;save original preferences
		pha
		lda	#$C000			;set to show dialog w/o cancel button
		sta	PSysPrefs.preferences
		jsl	$E100A8
		dc.w	SetSysPrefs
		dc.l	PSysPrefs		;set new preferences
		pla
		sta	PSysPrefs.preferences	;restore original preferences
;
;        call Load Dynamic Segment routine
;
		lda	#0			;output Address
		pha
		pha
		lda	[jmp_tbl_ptr]		;UserID
		pha
		ldy	#JE_FileNum
		lda	[jmp_tbl_ptr],y		;File Number
		pha
		ldy	#JE_SegNum
		lda	[jmp_tbl_ptr],y		;Segment Number
		pha
		jsr	Load_Segment
		plx
		ply
		stx	TempZero+4		;address of Dynamic Segment
		sty	TempZero+6
		php				;save carry and error code
		pha
;
;        restore original System Preferences
;
		jsl	$E100A8
		dc.w	SetSysPrefs
		dc.l	PSysPrefs		;set preferences

		pla				;restore error code
		plp				;and carry
		bcs	error			;was there an error?
;
;        calculate address of Dynamic Segment function
;
		ldy	#JE_Offset
		lda	[jmp_tbl_ptr],y
		clc
		adc	TempZero+4
		sta	base_ptr
		lda	TempZero+6
		adc	#0
		sta	base_ptr+2
		jmp	back_to_user		;now off to the routine

error		pha				;error code
		lda	#0			;no message
		pha
		pha
		_SysFailMgr

		ENDP

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Loader/Last.a b/IIGS.601.SRC/GS.OS/Loader/Last.a
new file mode 100644
index 0000000..1678b2d
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Loader/Last.a
@@ -0,0 +1 @@
+			TITLE	', Last.a'
;
;		 This routine will show whether the Loader has overflowed its
;		 allocated memory slot and will allocate the global area.
;
Globals		PROC	ORG	Loader_Globals
			ds.b	256
			ENDP

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Loader/Loader.Equates b/IIGS.601.SRC/GS.OS/Loader/Loader.Equates
new file mode 100644
index 0000000..45768d4
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Loader/Loader.Equates
@@ -0,0 +1 @@
+		TITLE	', LOADER.EQUATES'
*
****************************************************************
*
*        System Loader Equates
*
****************************************************************
*
;
;              Loader Errors
;
NoFind		EQU	$1101			;Segment not found
seg_not_found	equ	$1101
BadOMF		EQU	$1102			;Object Module Format Version error
BadPath		EQU	$1103			;Pathname error
NotLoad		EQU	$1104			;File not a Load File
not_load_file	equ	$1104
BadVers		EQU	$1107			;File Version error
BadUser		EQU	$1108			;UserID error
BadNum		EQU	$1109			;SegNum out of sequence
Illegal		EQU	$110A			;Illegal load record found
illegal_record	equ	$110A
Foreign		EQU	$110B			;Segment is foreign
User_id_err	equ	$11F0			;I could not find a user_id when I should have
incompatible_err equ	$11F1			;The file is not expressload compatible
ExpressSegLost	equ	$11F2			;The ExpressSeg Handle is lost

;
;        KIND values
;
Code_Segment	EQU	$00
Data_Segment	EQU	$01
Jump_Segment	EQU	$02
Path_Segment	EQU	$04
Lib_Segment	EQU	$08
Init_Segment	EQU	$10
Direct_Segment	EQU	$12
BankRel_Segment	EQU	%0000000100000000
Skip_Segment	EQU	%0000001000000000
Reload_Segment	EQU	%0000010000000000
AbsBank_Segment	EQU	%0000100000000000
NoSpec_Segment	EQU	%0001000000000000
PosInd_Segment	EQU	%0010000000000000
Priv_Segment	EQU	%0100000000000000
Dyn_Segment	EQU	%1000000000000000
;
;              Load Segment legal record codes
;
END		EQU	$00			;END record
RELOC		EQU	$E2			;Relocation record
INTERSEG	EQU	$E3			;Inter-Segment relocation record
DS		EQU	$F1			;Zero Fill record
LCONST		EQU	$F2			;Long Constant record
cRELOC		EQU	$F5			;compressed RELOC record
cINTERSEG	EQU	$F6			;compressed INTERSEG record
SUPER		EQU	$F7			;super compressed record
;
;              Memory Segment Table entry offsets
;
MS_Next		EQU	0			;Handle to Next Entry
MS_Prev		EQU	MS_Next+4		;Handle to Previous Entry
MS_UserID	EQU	MS_Prev+4		;UserID of this entry
MS_Handle	EQU	MS_UserID+2		;Handle to Memory Segment
MS_FileNum	EQU	MS_Handle+4		;File Number
MS_SegNum	EQU	MS_FileNum+2		;Segment Number
MS_Kind		EQU	MS_SegNum+2		;Segment Kind
;
;              Pathname Table entry offsets
;
PT_Next		EQU	0			;Handle to Next Entry
PT_Prev		EQU	PT_Next+4		;Handle to Previous Entry
PT_UserID	EQU	PT_Prev+4		;UserID
PT_FileNum	EQU	PT_UserID+2		;File Number
PT_Date		EQU	PT_FileNum+2		;File Date
PT_ZP_Addr	EQU	PT_Date+8		;Zero Page/Stack Address
PT_ZP_Size	EQU	PT_ZP_Addr+2		;Zero Page/Stack Size
PT_Jump		EQU	PT_ZP_Size+2		;Jump Table Segment processed flag
PT_Address	EQU	PT_Jump+2		;Starting Address
PT_Path		EQU	PT_Address+4		;File Pathname
;
;              Jump Table List entry offsets
;
JT_Next		EQU	0			;Handle to Next Entry
JT_Prev		EQU	JT_Next+4		;Handle to Previous Entry
JT_UserID	EQU	JT_Prev+4		;UserID
JT_Handle	EQU	JT_UserID+2		;Handle to Jump Table Segment
;
;              Jump Table Entry offsets
;
JE_UserID	EQU	0			;UserID
JE_FileNum	EQU	JE_UserID+2		;Load File Number
JE_SegNum	EQU	JE_FileNum+2		;Load Segment Number
JE_Offset	EQU	JE_SegNum+2		;Load Segment Offset
JE_jsl		EQU	JE_Offset+4		;call to System Loader
;
;              Mark List offsets
;
ML_NextAvail	EQU	0			;Next Available Slot
ML_EndList	EQU	4			;End of List
ML_FirstEntry	EQU	8			;first entry
ML_SizeEntry	EQU	6			;size of each entry
ML_SegNum	EQU	0			;Segment Number in entry
ML_Mark		EQU	2			;File Mark in entry
;
;              UserID's
;
uLoader		EQU	$7001			;Main ID for the Loader
uExpressSegment	equ	$7101			;ID to use for ExpressLoad segment
uUserIDTable	equ	$7201			;ID to use for User ID tables
uTempDP		equ	$7E01			;ID to use for temporary direct page storage
uDirectPage	equ	$7F01			;ID to use for the direct page
uLoader_Caller	EQU	$7002			;Loader Caller
uSEGTBL		EQU	$7003			;Memory Segment Table
uPATHTBL	EQU	$7004			;Pathname Table
uJMPTBL		EQU	$7005			;Jump Table List
uFileBuff	EQU	$7006			;File Buffer
uMarkList	EQU	$7007			;Mark List
uTempBuff	EQU	$7008			;Temporary Buffer
uLGetPathname	equ	$7708			;ID to use for LGetPathname2 return string
uResource	EQU	$7009			;internal UserID for Resources
uGQuit		EQU	$3200			;GQuit UserID (assigns aux memory for Loader)

*
****************************************************************
*
*        Miscellaneous Equates
*
****************************************************************
*
;...............................................................
;
;        GS/OS equates
;...............................................................
CVT_0TO1	EQU	$01FC74			;Convert 0 string to 1
CVT_1TO0	EQU	$01FC78			;Convert 1 string to 0

;...............................................................
;
;        File types
;...............................................................
Load_File	EQU	$B3
Last_Load_File	EQU	$BE
CDev_File	EQU	$C7
app_type	equ	$00B3


;...............................................................
;
;        UserID Types
;...............................................................
Application	EQU	$1000

;...............................................................
;
;       Memory Manager Allocation Attributes (not used by Memory
;       Manager but simulated by System Loader)
;...............................................................
Any_Bank	EQU	%0000000001000000

;...............................................................
;
;        GS/OS functions
;...............................................................
; class 0 calls
SET_FILE_INFO	EQU	$05
GET_FILE_INFO	EQU	$06
SET_PREFIX	EQU	$09
GET_PREFIX	EQU	$0A
PD_READ		EQU	$12
PD_WRITE	EQU	$13
PD_CLOSE	EQU	$14
SET_MARK	EQU	$16
GET_MARK	EQU	$17
SET_EOF		EQU	$18
GET_EOF		EQU	$19
GET_BOOT_VOL	EQU	$28
QUIT		EQU	$29
GET_VERSION	EQU	$2A

; class 1 calls
SetSysPrefs	EQU	$200C
ExpandPath	EQU	$200E
GetSysPrefs	EQU	$200F
Open		EQU	$2010
SetLevel	EQU	$201A
GetLevel	EQU	$201B
GetRefNum	EQU	$2038
GetFileInfo	EQU	$2006

;====================================================================================================
;offset in the segment header
;====================================================================================================

; These values define the bit positions within the HET_Entry SegFlags word.
; Bit 15   : 1 = segment is currently in memory
;     14-3 : currently unused
;     2    : 1 = segment is static
;     1    : 1 = segment is jump table
;     0    : 1 = purgeable
;
jmp_type	equ	$0002			;indicates a jump table segment
stat_type	equ	$0004			;indicates a static segment

;====================================================================================================
;Memory Manager equates
;====================================================================================================

attr_locked	equ	$8000			;memory segment is locked
attr_fixed	equ	$4000			;block can't move in memory
purge_level_3	equ	$0300			;set purge level to three for dynamics only
attr_align_in_bank equ	$0040			;Align to address within the bank
attr_bank_align	equ	$0020			;force bank alignment
attr_no_cross	equ	$0010			;cannot cross any bank
attr_no_spec	equ	$0008			;no special memory
attr_page	equ	$0004			;page aligned segment
attr_addr	equ	$0002			;block must remain at fixed addr
attr_bank	equ	$0001			;fixed bank address

;====================================================================================================
;equates used by function calls
;====================================================================================================

max_input	equ	10			; maximum # of input parm bytes

func_9_param_cnt equ	8			; 8 bytes of input
func_0A_param_cnt equ	2			; 2 bytes of input
func_0B_param_cnt equ	6			; 6 bytes of input
func_0C_param_cnt equ	6			; 6 bytes of input
func_0D_param_cnt equ	10			;10 bytes of input
func_0E_param_cnt equ	4			; 4 bytes of input
func_0F_param_cnt equ	10			;10 bytes of input
func_10_param_cnt equ	4			; 4 bytes of input
func_11_param_cnt equ	4			; 4 bytes of input
func_12_param_cnt equ	4			; 4 bytes of input
func_13_param_cnt equ	8			; 8 bytes of input
func_15_param_cnt equ	2			; 2 bytes of input
func_20_param_cnt equ	10			;10 bytes of input
func_21_param_cnt equ	4			; 4 bytes of input
func_22_param_cnt equ	4			; 4 bytes of input

;====================================================================================================
;General equates
;====================================================================================================
jmp_tbl_seg	equ	$02
seg_jmp_start	equ	08
jmp_entry_size	equ	14

my_level	equ	$70			;use to set the system level
keep_id		equ	$0001			;Tell Delete_User_ID to keep the ID around after deleting memory
nuke_id		equ	$0000			;delete memory and the user_id

absolute	equ	$0000
forward		equ	$0001
backward	equ	$0002

Data_Kind	equ	$0001			;and it is a data segment
dynamic		equ	$8000			;It is also Dynamic
kind_only	equ	$001F			;clear all but the segment kind
init_seg_type	equ	$10
dp_seg_type	equ	$12
static_code_type equ	$0000
static_and_kind	equ	$801F
static_type	equ	$00
static_only	equ	$8000
all_types	equ	00
any_kind	equ	00
any_state	equ	00
unloaded_state	equ	$8000
kind_bank_bit	equ	$0100			;bank bit
kind_abs_bank	equ	$0800


locked_no_cross	equ	$8010
locked_only	equ	$8000

seperator	equ	$3A			;seperator is a colon

purge_all	equ	$0000			;and mask used to compare flags
purge_dynamics	equ	$0004			;Bit 2 = static bit.  If 1 then static

statereg	equ	$E0C068
incbusyflg	equ	$E10064
decbusyflg	equ	$E10068

;====================================================================================================
;Equates used for the User_ID_table
;====================================================================================================
id_tbl_size	equ	2048			;a 2K table. Value must be an even positive number!
id_entry_size	equ	16
id_entry_cnt	equ	126			;number of entries in one table

		TITLE	', Data Template Definitions'
;====================================================================================================
; data template definitions
;====================================================================================================

ID_Table_Entry	Record	0
UserID		ds.w	1			;the user id
ExpressHandle	ds.l	1			;handle to ExpressLoad segment
Stack_Addr	ds.w	1			;address of stack segment
Stack_Size	ds.w	1			;size of stack segment
Start_Addr	ds.l	1			;starting address of application
filler		ds.b	id_entry_size-*		;fill out to paragraph boundary
		EndR

User_ID_Table	Record	0
Next		ds.l	1			;handle of next table in linked list
filler		ds.b	16-(*-User_ID_Table)	;fill out to paragraph boundary
Table_Entry	ds	ID_Table_Entry		;ID_Table_Entry[id_entry_cnt]
		ds.b	id_tbl_size-*
		EndR

SegHeaderEntry	Record	0
LConst_Mark	ds.l	1
LConst_Length	ds.l	1
RelocDict_Mark	ds.l	1
RelocDict_Length ds.l	1
		ds.b	1			;reserved
LabLen		ds.b	1
NumLen		ds.b	1
Version		ds.b	1
BankSize	ds.l	1
Kind		ds.w	1
		ds.w	1			;reserved
Org		ds.l	1
Align		ds.l	1
NumSex		ds.b	1
		ds.b	1			;reserved
SegNum		ds.w	1
Entry		ds.l	1
DispName	ds.w	1
RelocDict_Hndl	ds.l	1
		ds.b	8			;reserved
name_overhead	equ	*-DispName
		EndR

HET_Entry	Record	0
SegOffset	ds.w	1			;relative offset to first header entry
SegFlags	ds.w	1			;segment flags
SegHandle	ds.l	1			;segment handle
		EndR

ExpressloadSeg	Record	0
RefNum		ds.w	1			;reserved field in ExpressSeg LConst
PathnameOffset	ds.w	1			;offset of pathname within segment
SegCount	ds.w	1			;number of segments in ExpressSeg
SegEntry	ds	HET_Entry		;array of HET_Entry
SegConversion	ds.w	1			;array of integer (seg number conversion)
SegHeader	ds	SegHeaderEntry		;array of SegHeaderEntry
		EndR

SegmentHeader	Record	0
ByteCnt		ds.l	1
ResSpc		ds.l	1
Length		ds.l	1
oldKind		ds.b	1
LabLen		ds.b	1
NumLen		ds.b	1
Version		ds.b	1
BankSize	ds.l	1
Kind		ds.w	1
		ds.w	1			;undefined
Org		ds.l	1
Align		ds.l	1
NumSex		ds.b	1
LCBank		ds.b	1
SegNum		ds.w	1
Entry		ds.l	1
DispName	ds.w	1
DispData	ds.w	1
toDispData
LoadName	ds.b	10
SegName		ds.b	13			;enough room for ~ExpressLoad
LConst		ds.b	5			;LConst record header
SegHeaderSize
		EndR

openParms	Record	0			;class 1 parm block
pCount		ds.w	1
refNum		ds.w	1
pathname	ds.l	1
requestAccess	ds.w	1
resourceNumber	ds.w	1
access		ds.w	1
fileType	ds.w	1
auxType		ds.l	1
storageType	ds.w	1
createDateTime	ds.b	8
modDateTime	ds.b	8
		endr

readParms	Record	0			;class 0 parm block
fileRefNum	ds.w	1
dataBuffer	ds.l	1
requestCount	ds.l	1
transferCount	ds.l	1
		EndR

markParms	Record	0			;class 0 parm block
markRefNum	ds.w	1
position	ds.l	1
		EndR

expandParms	Record	0			;class 1 parm block
pCount		ds.w	1
inputPath	ds.l	1
outputPath	ds.l	1
flags		ds.w	1
		EndR

sysPrefsParms	Record	0			;class 1 parm block
pCount		ds.w	1
preferences	ds.w	1
		EndR

levelParms	Record	0			;class 1 parm block
pCount		ds.w	1
level		ds.w	1
levelMode	ds.w	1
		EndR

getRefNumParms	Record	0			;class 1 parm block
pCount		ds.w	1
pathname	ds.l	1
refNum		ds.w	1
		EndR

getFileInfoParms Record	0			;class 1 parm block
pCount		ds.w	1
pathname	ds.l	1
access		ds.w	1
fileType	ds.w	1
auxType		ds.l	1
storageType	ds.w	1
createDateTime	ds.b	8
modDateTime	ds.b	8
		EndR
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Loader/Loader.Macros b/IIGS.601.SRC/GS.OS/Loader/Loader.Macros
new file mode 100644
index 0000000..ab2b152
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Loader/Loader.Macros
@@ -0,0 +1 @@
+*************************************************************************
*                                                                       *
*                       System Loader Macros                            *
*                               by                                      *
*                           Lou Infeld                                  *
*                                                                       *
*               Copyright Apple Computer, Inc. 1986-1992                *
*                       All Rights Reserved                             *
*                                                                       *
*************************************************************************

;...............................................................
;
;       Stack Cleanup
;
;       Returns stack to the original state that existed before
;       the internal function was called.  In addition, the
;       Carry is set according to the status in the A register.
;
;       The macro call looks like this:
;
;       Stack_Cleanup   param_bytes
;
;       where 'param_bytes' is the number of bytes on the stack
;       that represent input parameters.
;
;       NOTE:  The function must have been called with a JSR
;       (i.e. there's a two-byte return address on the stack)
;
;...............................................................
		MACRO
		Stack_Cleanup &param_bytes

		lcla	&count
		tay
		pla
		sta	&param_bytes-1,s
		IF	&s2i(&param_bytes)>4	OR (&s2i(&param_bytes) MOD 2)<>0 then
		tsc
		clc
		adc	#&param_bytes-2
		tcs
		ELSE
&count		seta	&s2i(&param_bytes)-2
		while	&count			> 0 do
		pla
&count		seta	&count-2
		endwhile
		ENDIF
		tya
		cmp	#1
		MEND

;...............................................................
;
; Define a sequence of hexadecimal bytes
;
; Usage:
;
; [label]       hex     hexstring
;
; hexstring must consist of hexadecimal digits ONLY (0..9, A..F, a..f)
; and must contain an even number of digits.  No spaces, commas, or
; other characters are allowed.
;
; The macro's primary purpose is to allow the definition of pixel
; maps (such as icons or cursors) while still allowing the programmer
; to "see" the defined image at the source code level.
;
;...............................................................
		MACRO
		hex	&arg
		lclc	&bytes,&hexStr
; put the arg into a local variable
&hexStr		setc	&arg
; make sure we've got an even # of bytes
		if	(&len(&hexStr)		AND 1) <> 0 then
		aerror	'Odd number of bytes in HEX directive'
&hexStr		setc	&concat(&hexstr,'0')
		endif
; start the dc.b argument string
&bytes		setc	&concat('$',&substr(&hexStr,1,2))
&hexStr		setc	&substr(&hexStr,3,	&len(&hexStr)-2)
; while there's something in the supplied argument string...
		while	&len(&hexStr)>0		do
; copy 2 digits from the string to the dc.b string...
&bytes		setc	&concat(&bytes,',$',&substr(&hexStr,1,2))
; then remove the first two digits from the supplied string
&hexStr		setc	&substr(&hexStr,3,	&len(&hexStr)-2)
		endwhile
; produce the actual bytes
		dc.b	&bytes
		MEND


		Macro
&label		PointAddress &y,&x		;macro generates memory address equate for given point
		lcla	&lineBase,		&pixOffset
&lineBase	seta	&y*$a0			;each line is $A0 bytes
&pixOffset	seta	&x/4			;640 mode, 4 pixels per byte
&label		equ	$E12000+&lineBase+&pixOffset
		EndM


		Macro
		LoadSegCheck
;ensure this segment resides in non-bank-switched memory
		if	&SysSeg			<> 'Loader    ' then
		AError	&concat(&SysMod,	' does not reside in "Loader" segment')
		endif
		EndM
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Loader/Loader.Preamble b/IIGS.601.SRC/GS.OS/Loader/Loader.Preamble
new file mode 100644
index 0000000..5f1edba
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Loader/Loader.Preamble
@@ -0,0 +1 @@
+Loader_Version	EQU	$0402			;Loader's Tool Version Number
Loader_Entry	EQU	$01A600			;Loader's Starting address
Loader_End	EQU	$01BC00			;Loader's Ending address
Loader_LC_Start	EQU	$01D000			;Loader's Language Card segment start
;Loader_Globals EQU     $01FB00                 ;Loader Globals Starting address
Loader_LC_End	EQU	$01FC00			;Loader's Language Card Ending address


\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Loader/Loader.a b/IIGS.601.SRC/GS.OS/Loader/Loader.a
new file mode 100644
index 0000000..aec91c3
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Loader/Loader.a
@@ -0,0 +1 @@
+		TITLE	', System Loader v4.00'
		print	nogen,nomdir
		pagesize 70
		CASE	ON
*
****************************************************************
*
*                       System Loader
*                             by
*                        Lou Infeld
*
*                        Version 4.0
*                             by
*                        Greg Branche
*
*                Copyright Apple Computer, Inc. 1986-1992
*                          All Rights Reserved
*
****************************************************************
*
; Routine Index                 file            page
;
;       LoaderEquates           LOADER.EQUATES  3
;       LoaderDispatcher        LOADER.a        8
;       Loader function setup                   10
;
; Loader Functions
;
		ENTRY	LoaderInit		; FUNCTIONS.a   18
		ENTRY	LoaderVersion		; FUNCTIONS.a   19
		ENTRY	LoaderReset		; FUNCTIONS.a   19
		ENTRY	LoaderStartup		; FUNCTIONS.a   19
		ENTRY	LoaderShutdown		; FUNCTIONS.a   19
		ENTRY	Load_NI			; FUNCTIONS.a   20
		ENTRY	LoaderStatus		; FUNCTIONS.a   19
		ENTRY	LoadNum			; FUNCTIONS.a   21
		ENTRY	ULoadNum		; FUNCTIONS.a   23
		ENTRY	LoadName		; FUNCTIONS.a   25
		ENTRY	ULoadSeg		; FUNCTIONS.a   31
		ENTRY	GetInfo			; FUNCTIONS.a   35
		ENTRY	GetUserID		; FUNCTIONS.a   39
		ENTRY	GetUserID2		; FUNCTIONS.a   40
		ENTRY	GetPathname		; FUNCTIONS.a   41
		ENTRY	GetPathname2		; FUNCTIONS.a   43
		ENTRY	UserShutdown		; FUNCTIONS.a   48
		ENTRY	RenamePathname		; FUNCTIONS.a   50
		ENTRY	GetGlobalsAddr		; FUNCTIONS.a	53
		ENTRY	InitLoad		; INIT.LOAD.a   63
		ENTRY	InitLoad2		; INIT.LOAD.a   64
		ENTRY	InitInit		; INIT.LOAD.a   65
		ENTRY	Restart			; RESTART.a     66
		ENTRY	JumpLoad		; JUMP.a        75
		ENTRY	Switch_handler		; ExpressLoad.a	81
;		Entry	startup			; ExpressLoad.a 83
		Entry	get_parameters		; ExpressLoad.a	85
		Entry	return_to_caller	; ExpressLoad.a 87
;
; ExpressLoad stuff
;
;		Entry	lock_handles		; ExpressLoad.a	89
;		Entry	clear_handles		; ExpressLoad.a 92
;		Entry	alloc_ExpLoad		; ExpressLoad.a	94
;		Entry	alloc_mem		; ExpressLoad.a	94+
;		Entry	alloc_my_dp		; ExpressLoad.a	96
;		Entry	alloc_LConst_seg	; ExpressLoad.a 97
;		Entry	add_id_table		; ExpressLoad.a	99
;		Entry	reset_local_mark	; ExpressLoad.a 101
;		Entry	seg_num_lookup		; ExpressLoad.a	102
;		Entry	my_seg_to_user_seg	; ExpressLoad.a	103
;		Entry	error_routine		; ExpressLoad.a	105
;		Entry	make_HET_ptr		; ExpressLoad.a	106
;		Entry	setup_seg_ptrs		; ExpressLoad.a	107
;		Entry	setup_base_ptr		; ExpressLoad.a	108
;		Entry	alloc_id		; ExpressLoad.a	109
;		Entry	compare_paths		; ExpressLoad.a	110
;		Entry	merge_path		; ExpressLoad.a	112
;		Entry	add_user_id		; ExpressLoad.a	113
;		Entry	delete_user_id		; ExpressLoad.a	115
;		Entry	purge_user_id		; ExpressLoad.a	117
;		Entry	remove_segment		; ExpressLoad.a	118
;		Entry	find_user_id		; ExpressLoad.a	120
;		Entry	path_to_user_id		; ExpressLoad.a	122
;		Entry	find_seg_handle		; ExpressLoad.a	124
;		Entry	get_seg_base		; ExpressLoad.a	126
;		Entry	Process_Reloc		; ExpressLoad.a	128
;		Entry	Reloc_handler		; ExpressLoad.a	131
;		Entry	cReloc_handler		; ExpressLoad.a	132
;		Entry	Interseg_handler	; ExpressLoad.a	133
;		Entry	cInterseg_handler	; ExpressLoad.a	135
;		Entry	super_handler		; ExpressLoad.a	136
;		Entry	Interseg_1		; ExpressLoad.a	138
;		Entry	Interseg_14		; ExpressLoad.a	140
;		Entry	Interseg_26		; ExpressLoad.a	142
;		Entry	reloc2			; ExpressLoad.a	144
;		Entry	reloc3			; ExpressLoad.a	145
;		Entry	shift_patch		; ExpressLoad.a	147
;		Entry	read_less_64k		; ExpressLoad.a	149
;		Entry	set_mark		; ExpressLoad.a	150
;		Entry	check_express_seg	; ExpressLoad.a	151
;		Entry	find_Segment		; ExpressLoad.a	153
;		Entry	chk_dynamic_seg		; ExpressLoad.a	155
;		Entry	save_ref_num		; ExpressLoad.a	156
;		Entry	get_express_seg		; ExpressLoad.a	157
;		Entry	store_pathname		; ExpressLoad.a	159
;		Entry	close_dynamic_file	; ExpressLoad.a	161
;		Entry	close_load_file		; ExpressLoad.a	163
;		Entry	open_load_file		; ExpressLoad.a	165
;		Entry	conv_attributes		; ExpressLoad.a	169
;		Entry	reset_jmp_tables	; ExpressLoad.a	171
;		Entry	make_purgable		; ExpressLoad.a	173
;		Entry	purge_all_dyn		; ExpressLoad.a	175
;		Entry	mark_all_purgable	; ExpressLoad.a	176
;		Entry	lock_statics		; ExpressLoad.a	178
;		Entry	lock_segment		; ExpressLoad.a	180
;		Entry	load_segment		; ExpressLoad.a	182
;		Entry	find_Seg_name		; ExpressLoad.a	187
;		Entry	save_dp_info		; ExpressLoad.a	189
;		Entry	load_statics		; ExpressLoad.a	190
;		Entry	save_start		; ExpressLoad.a	192
;		Entry	reload_restart		; ExpressLoad.a	193
;		Entry	reload_inits		; ExpressLoad.a	195
;		Entry	zero_handles		; ExpressLoad.a	197
;		Entry	rename_segments		; ExpressLoad.a	198
;
; Processing segments
;
		ENTRY	Load_Segment		; SEGMENTS.a    202
		ENTRY	Find_Segment		; SEGMENTS.a    204
		ENTRY	Do_Segment		; SEGMENTS.a    208
		ENTRY	Do_Init_Segment		; SEGMENTS.a    212
		ENTRY	Do_Path_Segment		; SEGMENTS.a    213
		ENTRY	Do_Jump_Segment		; SEGMENTS.a    215
		ENTRY	Allocate_Segment	; SEGMENTS.a    217
		ENTRY	Purge_Segment		; SEGMENTS.a    219
		ENTRY	Zero_Segment		; SEGMENTS.a    222
		ENTRY	Check_KIND		; SEGMENTS.a    223
;
;               Relocation      routines
;
		ENTRY	Do_LCONST		; RELOCATION.a  224
		ENTRY	Do_DS			; RELOCATION.a  226
		ENTRY	Do_RELOC		; RELOCATION.a  227
		ENTRY	Do_cRELOC		; RELOCATION.a  228
		ENTRY	Do_INTERSEG		; RELOCATION.a  229
		ENTRY	Do_cINTERSEG		; RELOCATION.a  230
		ENTRY	Do_SUPER		; RELOCATION.a  232
		ENTRY	Common_Pass1_Check	; RELOCATION.a  236
		ENTRY	Common_INTERSEG		; RELOCATION.a  237
		ENTRY	Common_Reloc		; RELOCATION.a  238
;
;               Processing file routines
;
		ENTRY	Next_Header		; FILES.a       240
		ENTRY	Read_File		; FILES.a       242
		ENTRY	Actual_Read		; FILES.a       244
		ENTRY	Read_Op			; FILES.a       246
		ENTRY	Read_Record		; FILES.a       247
		ENTRY	Skip_Header		; FILES.a       248
		ENTRY	Next_Dictionary		; FILES.a       249
		ENTRY	Open_File		; FILES.a       253
		ENTRY	Close_File		; FILES.a       256
		ENTRY	Fill_File_Buff		; FILES.a       257
		ENTRY	Save_Mark		; FILES.a       258
		ENTRY	Bump_Mark		; FILES.a       261
;
;               Data structure handling
;
		ENTRY	Add_Link		; STRUCT.a      262
		ENTRY	Remove_Link		; STRUCT.a      264
		ENTRY	Add_Pathname		; STRUCT.a      266
		ENTRY	Find_Pathname		; STRUCT.a      269
		ENTRY	Next_Pathname		; STRUCT.a      269+
		ENTRY	Get_Pathname		; STRUCT.a      272
		ENTRY	Convert_Pathname	; STRUCT.a      274
		ENTRY	Expand_Pathname		; STRUCT.a      276
		ENTRY	Add_MemSeg		; STRUCT.a      278
		ENTRY	Find_MemSeg		; STRUCT.a      280
		ENTRY	Next_MemSeg		; STRUCT.a      280+
		ENTRY	Remove_UserID		; STRUCT.a      282
		ENTRY	Unload_JTL		; STRUCT.a      284
		ENTRY	Cleanup			; STRUCT.a      286
;
;               Miscellaneous routines
;
		ENTRY	Get_TempBuff		; MISC.a        287
		ENTRY	Block_Move		; MISC.a        288
		ENTRY	DeRefUse		; MISC.a        292
		ENTRY	UsePtr			; MISC.a        293
		ENTRY	DeRef			; MISC.a        294
;		Entry	save_dp			; MISC.a	295
;		Entry	restore_dp		; MISC.a	296
;

		PRINT	PUSH
		PRINT	OFF
		INCLUDE	'Loader.Macros'
		INCLUDE	'M16.Memory'
		INCLUDE	'E16.Memory'
		INCLUDE	'M16.MiscTool'
		INCLUDE	'E16.GSOS'
		PRINT	POP

		INCLUDE	'Loader.Preamble'
		INCLUDE	'Loader.Equates'

		DataChk	Off

		TITLE	', LOADER.A - LoaderDispatcher'
		SEG	'Loader'
*
****************************************************************
*
*               System Loader Function Table
*
****************************************************************
*
CallTable	Proc
		DC.L	(tableEnd-CallTable)/4	; # of loader functions
		DC.L	LoaderInit-1		;$01
		DC.L	LoaderStartup-1		;$02
		DC.L	LoaderShutdown-1	;$03
		DC.L	LoaderVersion-1		;$04
		DC.L	LoaderReset-1		;$05
		DC.L	LoaderStatus-1		;$06
		DC.L	Load_NI-1		;$07
		DC.L	Load_NI-1		;$08
		DC.L	InitLoad-1		;$09
		DC.L	Restart-1		;$0A
		DC.L	LoadNum-1		;$0B
		DC.L	ULoadNum-1		;$0C
		DC.L	LoadName-1		;$0D
		DC.L	ULoadSeg-1		;$0E
		DC.L	GetInfo-1		;$0F
		DC.L	GetUserID-1		;$10
		DC.L	GetPathname-1		;$11
		DC.L	UserShutdown-1		;$12
		DC.L	RenamePathname-1	;$13
		DC.L	Load_NI-1		;$14
		DC.L	Load_NI-1		;$15
		DC.L	Load_NI-1		;$16
		DC.L	Load_NI-1		;$17
		DC.L	Load_NI-1		;$18
		DC.L	Load_NI-1		;$19
		DC.L	Load_NI-1		;$1A
		DC.L	Load_NI-1		;$1B
		DC.L	Load_NI-1		;$1C
		DC.L	Load_NI-1		;$1D
		DC.L	GetGlobalsAddr-1	;$1E
		DC.L	Switch_handler-1	;$1F
		DC.L	InitLoad2-1		;$20
		DC.L	GetUserID2-1		;$21
		DC.L	GetPathname2-1		;$22
tableEnd	equ	*
		EndP

		Include	'Data.a'

		TITLE	', System Loader Function setup'
		SEG	'Loader'
*
****************************************************************
*
*       Stack is assumed to look like this before a Loader function
*       is called:
*
*       Contents                                Length
*       --------                                ------
*       output parameter                        ?
*       input parameters                        param_bytes
*       return address to calling routine       3
*       return address to Tool Dispatcher       3
*       top of stack
*
****************************************************************

		INCLUDE	'Functions.a'
		INCLUDE	'Init.Load.a'
		INCLUDE	'Restart.a'
		INCLUDE	'Jump.a'
		Include	'ExpressLoad.a'
		INCLUDE	'Segments.a'
		INCLUDE	'Relocation.a'
		INCLUDE	'Files.a'
		INCLUDE	'Struct.a'
		INCLUDE	'Misc.a'

		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Loader/Misc.a b/IIGS.601.SRC/GS.OS/Loader/Misc.a
new file mode 100644
index 0000000..707de5b
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Loader/Misc.a
@@ -0,0 +1 @@
+		TITLE	', MISC.a - Get_TempBuff'
*
****************************************************************
*
*              Get Temporary Buffer
*
*  Inputs:     A - Length of temporary buffer requested
*
*  Outputs:    TempBuff - Address of temporary buffer
*              A - status
*              C - set if error occurred
*
*  Zero Page used: none
*
****************************************************************
*

Get_TempBuff	PROC
		with	DirectPage
;
;        get a temporary buffer
;
		ldx	#0			;output Handle
		phx
		phx
		phx
		pha				;BlockSize
		pea	uTempBuff		;Owner
		pea	attrLocked		;Attributes
		phx				;Location
		phx

		_NewHandle
		plx				;Handle
		ply
		bcs	error
;
;        set TempBuff to address of temporary buffer
;
		txa
		jsr	DeRef
		sta	TempBuff
		sty	TempBuff+2

return		lda	#0
		clc
error		rts

		ENDP

		TITLE	', MISC.a - Block_Move'
*
*************************************************************************
* BLOCK MOVE FOR NON-OVERLAPPING BLOCKS
*        (converted from ProDOS code)
*
* Moves a block of data from a source location to a destination
* location.  The source and destination blocks may overlap.
*
* Calling sequence:
*   Place machine in full native mode (e=0, m=0, x=0)
*   Push high order word of source pointer onto stack
*   Push low order word of source pointer
*   Push high order word of destination pointer
*   Push low order word of destination pointer
*   Push high order word of transfer count
*   Push low order word of transfer count
*   JSR Block_Move
* Outputs:  None
* Side effects:  Moves the block of data from source to destination
* Notes:
*   The high byte of Source, Dest, and Count must be zero
*   The Count may not be 0 or $FFFF.
*   This routine contains self modifying code--it cannot run in ROM
*************************************************************************
*

Block_Move	PROC

Source		equ	$0F			; 4-byte source address
Dest		equ	$0B			; 4-byte destination address
Count		equ	$07			; 4-byte transfer count
ReturnMove	equ	$05			; 3-byte return address
TempCount	equ	$03			; 2-byte temporary transfer count
*
MoveBlock	equ	*			; main entry point
		pha				; push two bytes on stack for TempCount
		phd				; save D
		tsc				; make direct page correspond to stack
		tcd
*
* get ready to do the move
*
		phb				; save DBR on stack (MVN trashes it)
		phk				; set DBR to PBR
		plb
		ldx	Source			; X = low word of Source
		ldy	Dest			; Y = low word of Dest
*
* set up the self modifying code to contain dst src
*
		lda	Dest+2			; make sure high byte of Dest is 0
		and	#$00FF
		sta	Dest+2
		lda	Source+2		; get source bank
		and	#$00FF			; make sure high byte of Source is 0
		xba
		ora	Dest+2			; or in destination bank (high byte must be zero)
		sta	DoMove+1		; put bank values into MVN instruction (danger)
*
* check for illegal values of Count
*
		lda	Count
		ora	Count+2
		beq	exit
		cmp	#$FFFF
		beq	exit
*
* decrement Count because it contains actual transfer count whereas
* remainder of routine assumes it contains transfer count - 1
*
		lda	Count
		bne	@1
		dec	Count+2
@1
		dec	a
		sta	Count
*
* initialize TempCount
*
		sta	TempCount
		bra	mdFirst
*
* main move loop
*
mdMore		sta	Count+2			; more bytes to move
		lda	>DoMove+1		; A = SrcDst banks
		cpx	#1			; bank cross? if X=0
		bcs	mdXNot0
		adc	#$0100			; add 1 to source bank
mdXNot0		cpy	#0			; did destination cross bank?
		bne	mdYIs0
		inc	a
mdYIs0		sta	>DoMove+1
mdFirst
		txa				; if count > -X then bank cross
		eor	#$FFFF
		cmp	TempCount
		bcs	mdXOk
		sta	TempCount		; only move -X bytes
mdXOk		tya				; will destination cross bank?
		eor	#$FFFF
		cmp	TempCount
		bcs	mdYOk
		sta	TempCount		; only move -Y bytes
mdYOk		lda	TempCount		; get the number of bytes to move
*
* the following 3 bytes are the actual move instruction
* this routine dynamically modifies the source and destination banks
*
DoMove		DC.B	$54			; opcode for MVN
		DS.B	1			; destination bank
		DS.B	1			; source bank
*
		lda	Count			; Count = Count - bytes moved
		clc				; actual bytes moved 1 more than count
		sbc	TempCount
		sta	Count
		sta	TempCount
		lda	Count+2
		sbc	#0
		bpl	mdMore
*
* clean up everything before returning
*
exit		plb				; restore DBR
		pld				; restore D
		pla				; remove TempCount
*
		lda	#0
		clc
		Stack_Cleanup 12
		rts				; go home

		ENDP

		TITLE	', MISC.a - MemMove'
****************************************************************
*
*       pascal void MemMove(source, dest, n)
*       char    *source, *dest;
*       int     n;
*
* Description
*       Copies 'n' characters from memory area 'source' to 'dest'.
*       This function is the same as memcpy, except that can also
*       work on overlapping objects.
*
*       This was ripped off from the C library, and then modified
*       to be somewhat call-compatible with BlockMove.
*
****************************************************************

MemMove		Func

source		equ	$09
dest		equ	$05
n		equ	$03

		tsc				;get current stack position
		phd				;save current direct page
		tcd				;set up local direct page

		lda	n			;check # of bytes to copy
		beq	exit			;if 0, don't bother!
		bmi	exit			;if negative, skip it

		lda	source			;get low word of source address
		sec
		sbc	dest			;calculate difference
		tax				;save in X for a bit
		lda	source+2		;must do high word (to propogate carry)
		sbc	dest+2
		bne	normal			;if 'source' comes after 'dest', it doesn't matter
		cpx	n			;compare low word result against # of characters to move
		bcs	normal			;no overlap...

; use this block if 'source' starts in the midst of 'dest'

		ldy	#0			;initialize index
		sep	#$20			;8-bit accumulator
		longa	off

@loop
		lda	[source],y		;get a character
		sta	[dest],y		;store in destination
		iny				;bump index
		cpy	n			;compare to # of characters to move
		bcc	@loop			;continue until done
		bra	done			;then exit

; use this block if there is no overlap or if 'dest' is higher in memory
; than 'source'

normal
		ldy	n			;get # of characters to move
		sep	#$20			;shift into 8-bit accumulator
		longa	off
		bra	@do_it			;jump into loop

@loop
		lda	[source],y		;get a byte
		sta	[dest],y		;and copy it
@do_it
		dey				;one less byte to move
		bne	@loop			;loop until at beginning of array
		lda	[source]		;copy the last (first) byte
		sta	[dest]

done
		rep	#$20			;back to 16-bit accumulator
		longa	on

exit
		pld
		Stack_Cleanup 10
		rts

		endf

		TITLE	', MISC.a - DeRefUse'
*
****************************************************************
*
*              Combines DeRef and UsePtr
*
*        Instead of:
*
*              jsr DeRef
*              jsr UsePtr
*
*        call:
*
*              jsr DeRefUse
*
****************************************************************
*

DeRefUse	PROC

		jsr	UsePtr
		lda	|0,x
		ldy	|2,x
;               jsr     UsePtr
;               rts
;       fall into UsePtr

		TITLE	', MISC.a - UsePtr'
*
****************************************************************
*
*        Use Pointer setup
*
*        Make a Pointer usable for indirect loading or storing
*        without using Zero Page.  Here is an example of how
*        this routine is used.  Suppose 'APtr' contains a Pointer
*        to a Buffer and you want to extract the 1st 4 bytes
*        out of the Buffer.  Remember the Pointer and the Buffer
*        can be anywhere in memory.
*
*        lda   APtr                     ;lo bytes of Pointer
*        ldy   APtr+2                   ;hi bytes of Pointer
*        phb                            ;save DBR
*        jsr   UsePtr                   ;call this routine
*        lda   |0,x                     ;get 1st two bytes
*        ldy   |2,x                     ;get 2nd two bytes
*        plb                            ;restore DBR
*
*  Inputs:     A,Y - Pointer (Low bytes in A, High bytes in Y)
*
*  Outputs:    X   - Low bytes of Pointer
*              DBR - Bank of Pointer
*
****************************************************************
*
		Entry	UsePtr
UsePtr
		tax				;move lo bytes into X
		tya				;move hi bytes into A
		xba				;get bank byte into B
		pha				;bank + trash
		plb				;remove trash
		plb				;set bank to bank of Pointer
		rts				;return

		ENDP

		TITLE	', MISC.a - DeRef'
*
****************************************************************
*
*        Dereference a Handle
*
*        Without using Zero Page
*
*  Inputs:     A,Y - Handle  (Low bytes in A, High bytes in Y)
*
*  Outputs:    A,Y - Pointer (Low bytes in A, High bytes in Y)
*              C   - set if Pointer=0
*
****************************************************************
*
DeRef		PROC

		phb				;save DBR
		phx				;save X
		jsr	UsePtr			;make Handle usable
		clc
		lda	|0,x
		ldy	|2,x
		pha				;save A
		ora	|2,x			;check whether pointer=0
		bne	cont
		sec				;yes, set carry
cont		pla				;restore A
		plx				;restore X
		plb				;restore DBR
		rts				;return

		ENDP

		TITLE	', MISC.a - save_dp'
*
****************************************************************
*
*        saves contents of direct page
*
*  Inputs:      none
*
*  Outputs:     C   - set if problem allocating memory
*               Handle to allocated memory is returned on stack
*
****************************************************************
*
save_dp		Proc

		ldx	#256			;allocate 256 bytes
		ldy	#0
		lda	#uTempDP		;UserID
		jsr	do_alloc		;allocate some memory
		bcs	@nfg
		pla				;remove return address
		phy				;save handle on stack
		phx
		pha				;put return address back on stack
		txa				;put low word into accumulator
		jsr	DeRef			;deref the handle

		pea	0			;make source pointer on stack
		phd

		phy				;put destination pointer on stack
		pha
		pea	0			;put count on stack
		pea	256
		jsr	Block_Move		;copy the block
		lda	5,s			;duplicate handle on stack
		pha
		lda	5,s
		pha
		_HUnlock			;let the block float around if necessary
@nfg
		rts
		EndP

		TITLE	', MISC.a - restore_dp'
*
****************************************************************
*
*        restores previously saved direct page
*
*  Inputs:     Handle to saved direct page (on stack)
*
*  Outputs:    C   - set if Acc != 0 on entry
*
****************************************************************
*
restore_dp	Proc
		with	Globals

		sta	save_a			;save possible error code
		plx				;pull return address
		pla				;retrieve DP buffer handle
		ply
		phx				;put return address back on stack
		phy				;put handle on stack
		pha				;for eventual _DisposeHandle call
		jsr	DeRef			;deref the handle
		phy				;put on stack as source address
		pha
		pea	0			;put address of direct page on stack
		phd				;as destination address
		pea	0			;count = 256
		pea	256
		jsr	Block_Move		;go restore the direct page
		_DisposeHandle			;release the DP buffer
		lda	save_a			;restore accumulator
		cmp	#$0001			;condition carry
		rts
		EndP
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Loader/Relocation.a b/IIGS.601.SRC/GS.OS/Loader/Relocation.a
new file mode 100644
index 0000000..464bedc
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Loader/Relocation.a
@@ -0,0 +1 @@
+		TITLE	', RELOCATION.a - Do_LCONST'

*
****************************************************************
*
*        Process LCONST record
*
*        This is NOT a subroutine.  It is entered with a JMP
*        and exits to either: RELOC_LOOP, RELOC_ERROR or
*        RELOC_RETURN which are in 'Do_Segment'.
*
****************************************************************
*
Do_LCONST	PROC
		with	DirectPage, Globals
;
;        read rest of record header
;
		ldx	#4
		jsr	Read_Record
		bcs	to_reloc_error
;
;        read record into memory
;
cont1		pei	CAddress+2
		pei	CAddress
		lda	|Record+2
		pha
		lda	|Record
		pha
		jsr	Read_File
		bcs	to_reloc_error
;
;        if Pathname Segment, add pathnames to Pathname Table
;
		lda	Header.Kind
		and	#%11111
		cmp	#Path_Segment
		bne	cont2
		pei	Handle+2
		pei	Handle
		pei	CAddress+2
		pei	CAddress
		jsr	Do_Path_Segment
		bcc	cont3
to_reloc_error
		jmp	Reloc_Error
;
;        if Jump Table Segment, chain to existing Tables
;
cont2		cmp	#Jump_Segment
		bne	cont3
		pei	Handle+2
		pei	Handle
		pei	CAddress+2
		pei	CAddress
		jsr	Do_Jump_Segment
		bcs	to_reloc_error
;
;        bump address of memory by the # of bytes read
;
		entry	update_cAddress
update_cAddress
cont3		lda	|Record
		clc
		adc	CAddress
		sta	CAddress
		lda	|Record+2
		adc	CAddress+2
		sta	CAddress+2

		jmp	Reloc_Loop

		ENDP

		TITLE	', RELOCATION.a - Do_DS'
*
****************************************************************
*
*        Process DS record
*
*        This is NOT a subroutine.  It is entered with a JMP
*        and exits to either: RELOC_LOOP, RELOC_ERROR or
*        RELOC_RETURN which are in 'Do_Segment'.
*
****************************************************************
*
Do_DS		PROC
		with	DirectPage, Globals

;
;        read rest of record
;
		ldx	#4
		jsr	Read_Record
		bcc	@1
		jmp	Reloc_Error
@1
;
;        memory does not have to be zeroed by this subroutine
;        because the whole memory segment was zeroed by
;        'Allocate_Segment'
;
;        bump address of memory by the # of bytes zeroed
;
		bra	update_cAddress

		ENDP

		TITLE	', RELOCATION.a - Do_RELOC'
*
****************************************************************
*
*        Process RELOC record
*
*        This is NOT a subroutine.  It is entered with a JMP
*        and exits to either: RELOC_LOOP, RELOC_ERROR or
*        RELOC_RETURN which are in 'Do_Segment'.
*
*   Inputs:     CAddress    - Segment Address
*   Outputs:    TempZero    - Address to be patched
*               TempZero+4  - Value of patch
*
****************************************************************
*
Do_RELOC	PROC
		with	DirectPage, Globals

Bytes		equ	0			;# of bytes in patch
Shift		equ	1			;shift count
Offset		equ	2			;offset of patch in segment
Value		equ	6			;offset of reference in segment

		ldx	#10
		jsr	Common_Pass1_Check
;
;        calculate address of patch = Load Address + Offset
;
		lda	CAddress
		clc
		adc	|Record+Offset
		sta	TempZero
		lda	CAddress+2
		adc	|Record+Offset+2
		sta	TempZero+2
;
;        calculate patch = Load Address + Value
;
		lda	CAddress
		clc
		adc	|Record+Value
		sta	TempZero+4
		lda	CAddress+2
		adc	|Record+Value+2
		sta	TempZero+6
		jmp	Common_Reloc

		ENDP

		TITLE	', RELOCATION.a - Do_cRELOC'
*
****************************************************************
*
*        Process compressed RELOC record
*
*        This is NOT a subroutine.  It is entered with a JMP
*        and exits to either: RELOC_LOOP, RELOC_ERROR or
*        RELOC_RETURN which are in 'Do_Segment'.
*
*   Inputs:     CAddress    - Segment Address
*   Outputs:    TempZero    - Address to be patched
*               TempZero+4  - Value of patch
*
****************************************************************
*
Do_cRELOC	PROC
		with	DirectPage, Globals

Bytes		equ	0			;# of bytes in patch
Shift		equ	1			;shift count
Offset		equ	2			;offset of patch in segment
Value		equ	4			;offset of reference in segment

		ldx	#6
		jsr	Common_Pass1_Check
;
;        calculate address of patch = Load Address + Offset
;
		lda	|Record+Offset
		clc
		adc	CAddress
		sta	TempZero
		lda	#0
		adc	CAddress+2
		sta	TempZero+2
;
;        calculate patch = Load Address + Value
;
		lda	|Record+Value
		clc
		adc	CAddress
		sta	TempZero+4
		lda	#0
		adc	CAddress+2
		sta	TempZero+6
		jmp	Common_Reloc		;do common relocation logic

		ENDP

		TITLE	', RELOCATION.a - Do_INTERSEG'
*
****************************************************************
*
*        Process INTERSEG record
*
*        This is NOT a subroutine.  It is entered with a JMP
*        and exits to either: RELOC_LOOP, RELOC_ERROR or
*        RELOC_RETURN which are in 'Do_Segment'.
*
*   Inputs:     CAddress    - Segment Address
*   Outputs:    TempZero    - Address to be patched
*               TempZero+4  - Value of patch
*
****************************************************************
*
Do_INTERSEG	PROC
		with	DirectPage, Globals

Bytes		equ	0			;# of bytes in patch
Shift		equ	1			;shift count
Offset		equ	2			;offset of patch in segment
FileNum		equ	6			;File Number
SegNum		equ	8			;Segment Number
SegOffset	equ	10			;Segment Offset

		ldx	#14
		jsr	Common_Pass1_Check
;
;        do common INTERSEG logic
;
		jsr	Common_INTERSEG
;
;        calculate address of patch = Load Address + Offset
;
		lda	CAddress
		clc
		adc	|Record+Offset
		sta	TempZero
		lda	CAddress+2
		adc	|Record+Offset+2
		sta	TempZero+2
;
;        calculate patch = Load Address of Segment + Segment Offset
;
		lda	TempZero+4
		clc
		adc	|Record+SegOffset
		sta	TempZero+4
		lda	TempZero+6
		adc	|Record+SegOffset+2
		sta	TempZero+6
		jmp	Common_Reloc

		ENDP

		TITLE	', RELOCATION.a - Do_cINTERSEG'
*
****************************************************************
*
*        Process compressed INTERSEG record
*
*        This is NOT a subroutine.  It is entered with a JMP
*        and exits to either: RELOC_LOOP, RELOC_ERROR or
*        RELOC_RETURN which are in 'Do_Segment'.
*
*   Inputs:     CAddress    - Segment Address
*   Outputs:    TempZero    - Address to be patched
*               TempZero+4  - Value of patch
*
****************************************************************
*
Do_cINTERSEG	PROC
		with	DirectPage, Globals

Bytes		equ	0			;# of bytes in patch
Shift		equ	1			;shift count
Offset		equ	2			;offset of patch in segment
SegNum		equ	4			;Segment Number
SegOffset	equ	5			;Segment Offset

		ldx	#7
		jsr	Common_Pass1_Check
;
;        set Handle to handle of first Memory Segment Table entry for the
;        current UserID
;
		lda	FirstMemSeg
		sta	Handle
		lda	FirstMemSeg+2
		sta	Handle+2
;
;        find entry in Memory Segment Table corresponding to
;        FileNum and SegNum in INTERSEG record
;
		lda	#0
		pha				;output Handle
		pha
		lda	|USERID			;current UserID
		pha
		pei	CFileNum		;File Number
		lda	|Record+SegNum		;Segment Number
		and	#$FF
		pha
		jsr	Next_MemSeg
		pla
		sta	Handle			;output Handle
		pla
		sta	Handle+2
		lda	#NoFind
		bcc	@1
		jmp	Reloc_Error
@1
;
;        get handle of Memory Segment out of Memory Segment Table
;        and get Load Address
;
		lda	|MS_Handle,x
		ldy	|MS_Handle+2,x
		jsr	DeRef			;deference handle
		sta	TempZero+4		;save
		sty	TempZero+6

		phk				;restore DBR
		plb
;
;        calculate address of patch = Load Address + Offset
;
		lda	|Record+Offset
		clc
		adc	CAddress
		sta	TempZero
		lda	#0
		adc	CAddress+2
		sta	TempZero+2
;
;        calculate patch = Load Address of Segment + Segment Offset
;
		lda	|Record+SegOffset
		clc
		adc	TempZero+4
		sta	TempZero+4
		bcc	@2
		inc	TempZero+6
@2
		jmp	Common_Reloc

		ENDP

		TITLE	', RELOCATION.a - Do_SUPER'
*
****************************************************************
*
*        Process super compressed records
*
*        This is NOT a subroutine.  It is entered with a JMP
*        and exits to either: RELOC_LOOP, RELOC_ERROR or
*        RELOC_RETURN which are in 'Do_Segment'.
*
*   Inputs:     CAddress    - Segment Address
*   Outputs:    TempZero    - Address to be patched
*               TempZero+4  - Value of patch
*
****************************************************************
*
Do_SUPER	PROC
		with	DirectPage, Globals
;
;        offsets in Record (only the 1st 2 fields are actually read from file)
;
Length		equ	0			;length of SUPER record
Type		equ	4			;type of SUPER record
Byte		equ	5			;next byte in record
FileNum		equ	6			;file number of patch
SegNum		equ	8			;segment number of patch
Offset		equ	10			;segment offset of patch
PatchLoc	equ	12			;relative address to be patched
Bytes		equ	14			;number of bytes to patch

		ldx	#5
		jsr	Common_Pass1_Check
;
;        set current patch page to 0
;
		stz	|Record+PatchLoc
;
;        decrement record length (for Type)
;
		jsr	dec_rec_len
;
;        get next byte in record
;
loop1		pea	Record+Byte>>16
		pea	|Record+Byte
		pea	0
		pea	1
		jsr	Read_File
		bcs	to_reloc_error
;
;        decrement record length
;
		jsr	dec_rec_len
;
;        is byte a skip count or patch count ?
;
		lda	#0			;clear high byte of accumulator
		sep	#$30
		longa	off
		longi	off
		lda	|Record+Byte
		rep	#$30
		longa	on
		longi	on
		bpl	cont1
;
;        byte is skip count, set A to count
;
		and	#$FF7F
		jmp	eloop1
;
;        byte is a patch count, set Counter to patch count
;
cont1		sta	Counter
;
;        read and process (patch count+1) bytes
;
loop2		pea	Record+PatchLoc>>16
		pea	|Record+PatchLoc
		pea	0
		pea	1
		jsr	Read_File
		bcc	_1
to_reloc_error
		jmp	Reloc_Error
_1
;
;        decrement record length
;
		jsr	dec_rec_len
;
;        set TempZero to actual address to be patched = relative location +
;        address of current segment
;
		lda	|Record+PatchLoc
		clc
		adc	CAddress
		sta	TempZero
		lda	#0
		adc	CAddress+2
		sta	TempZero+2
;
;        extract segment offset and segment number (even if not there) of patch
;        from memory
;
		lda	[TempZero]
		sta	|Record+Offset
		ldy	#2
		lda	[TempZero],y
		and	#$FF
		sta	|Record+SegNum
;
;        RELOC2 and RELOC3 records correspond to types 0 and 1
;        INTERSEG1-36 records correspond to types 2-37
;
		lda	|Record+Type
		and	#$FF
;
;        check for illegal SUPER record
;
		cmp	#38
		bcc	cont1aa
		lda	#Illegal
		bra	to_reloc_error
;
;        is SUPER record is of type INTERSEGn ?
;
cont1aa		ldx	#3
		cmp	#2
		bcc	cont2
;
;        SUPER record is of type INTERSEGn, check for different categories
;
		cmp	#26
		bcc	cont1a
;
;        n is 25-36
;        ----------
;        Number of bytes in patch = 2
;        File Number = 1
;        Segment Number = n-24 (type-25)
;        Shift Count = -16
;
		sec
		sbc	#25
		bra	cont1b

cont1a		cmp	#14
		bcc	cont1c
;
;        n is 13-24
;        ----------
;        Number of bytes in patch = 2
;        File Number = 1
;        Segment Number = n-12 (type-13)
;        Shift Count = 0
;
		sec
		sbc	#13
cont1b		sta	|Record+SegNum
		lda	#2
		tax
		sta	|Record+Bytes
						; fall through to decrement Acc to 1
;
;        n is 1-12
;        ----------
;        Number of bytes in patch = 3
;        File Number = n (type-1)
;        Segment Number = in patch
;        Shift Count = 0
;
cont1c		dec	a
cont1d		sta	|Record+FileNum
		stx	|Record+Bytes
;
;        do common INTERSEG logic
;
		jsr	Common_INTERSEG
;
;        get record type
;
		lda	|Record+Type
		and	#$FF
		tax
;
;        calculate patch = Segment Address + Segment Offset
;
		lda	|Record+Offset
		clc
		adc	TempZero+4
		sta	TempZero+4
		bcc	cont3
		inc	TempZero+6
		bra	cont3
;
;        SUPER record is a RELOC2 or RELOC3, set Bytes  to 2 or 3
;
cont2		inc	a
		inc	a
		sta	|Record+Bytes
;
;        calculate patch = Load Segment Address + Segment Offset
;
		lda	|Record+Offset
		clc
		adc	CAddress
		sta	TempZero+4
		lda	#0
		adc	CAddress+2
		sta	TempZero+6
;
;        do actual patch - TempZero   = Patch Location
;                          TempZero+4 = Patch
;
cont3		lda	TempZero+4
;
;        if INTERSEG25-36, use high word for Patch (equivalent to shifting
;        the patch by -16)
;
		cpx	#26
		bcc	cont3a
		lda	TempZero+6
cont3a		sta	[TempZero]
		lda	|Record+Bytes
		cmp	#2
		beq	eloop2
		sep	#$30
		longa	off
		longi	off
		lda	TempZero+6
		ldy	#2
		sta	[TempZero],y
		rep	#$30
		longa	on
		longi	on
;
;        finished single patch
;
eloop2		dec	Counter
		bmi	cont4
		jmp	loop2
cont4		lda	#1
;
;        finished page, increment to next page (A=page increment)
;
eloop1		xba
		clc
		adc	|Record+PatchLoc
		sta	|Record+PatchLoc
		lda	|Record+Length		;is record length=0?
		ora	|Record+Length+2
		beq	done			;yes, done
		jmp	loop1

done		jmp	Reloc_Loop

dec_rec_len
		lda	|Record+Length
		bne	@1
		dec	|Record+Length+2
@1
		dec	|Record+Length
		rts

		ENDP

		TITLE	', RELOCATION.a - Common_Pass1_Check'
*
****************************************************************
*
*        Common Pass1 check
*
*  Inputs:     X - # of bytes left in record
*
*  Outputs:    none
*
*  Zero Page used: none
****************************************************************
*
Common_Pass1_Check PROC
		with	DirectPage, Globals
;
;        if segment is an Initialization Segment, process even if Pass 1
;
		lda	Header.Kind
		and	#%11111
		cmp	#Init_Segment
		bne	cont1
		lda	Header.Org
		sta	CAddress		;reset load address
		lda	Header.Org+2
		sta	CAddress+2
		bra	cont2
;
;        if pass 1, save Op Mark in Mark List and skip rest of Segment
;
cont1		lda	Pass
		bne	cont2
		jsr	Save_Mark
		lda	#1
		sta	Pass2_Needed
		pla				;remove return address
		lda	#0			;signify no error
		jmp	Reloc_Return
;
;        read rest of record
;
cont2		jsr	Read_Record
		bcs	Common_Error
		rts

		entry	Common_Error
Common_Error
		plx				;remove return address
		jmp	Reloc_Error

		ENDP

		TITLE	', RELOCATION.a - Common_INTERSEG'
*
****************************************************************
*
*        Common INTERSEG logic
*
*   Inputs:     CAddress    - Segment Address
*   Outputs:    TempZero    - Address to be patched
*               TempZero+4  - Value of patch
*
****************************************************************
*
Common_INTERSEG	PROC
		with	DirectPage, Globals

FileNum		equ	6			;File Number
SegNum		equ	8			;Segment Number
;
;        set Handle to handle of first Memory Segment Table entry for the
;        current UserID
;
		lda	FirstMemSeg
		sta	Handle
		lda	FirstMemSeg+2
		sta	Handle+2
;
;        find entry in Memory Segment Table corresponding to
;        FileNum and SegNum in Record
;
		lda	#0			;output Handle
		pha
		pha
		lda	|USERID			;current UserID
		pha
		lda	|Record+FileNum		;File Number
		cmp	#1			;if = 1,
		bne	cont			;  use current File Number instead
		lda	CFileNum
cont		pha
		lda	|Record+SegNum		;Segment Number
		pha
		jsr	Next_MemSeg
		pla
		sta	Handle			;output Handle
		pla
		sta	Handle+2
		lda	#NoFind
		bcs	Common_Error
;
;        get handle of Memory Segment out of Memory Segment Table
;        and get Load Address
;
		lda	|MS_Handle,x
		ldy	|MS_Handle+2,x
		jsr	DeRef			;deference handle
		sta	TempZero+4		;save
		sty	TempZero+6

		phk				;restore DBR
		plb
		rts

		ENDP

		TITLE	', RELOCATION.a - Common_Reloc'
*
****************************************************************
*
*        Common relocation logic
*
*        This is NOT a subroutine.  It is entered with a JML
*        and exits to RELOC_LOOP.
*
*   Inputs:     CAddress    - Segment Address
*   Outputs:    TempZero    - Address to be patched
*               TempZero+4  - Value of patch
*
****************************************************************
*
Common_Reloc	PROC
		with	DirectPage, Globals

Bytes		equ	0			;# of bytes in patch
Shift		equ	1			;shift count
;
;        shift patch using Shift count
;
		lda	#0			;make sure upper byte is 0
		sep	#$30			;go into 8 bit mode so that negative flag
		longa	off
		longi	off
		lda	|Record+Shift		;   is set on the lda
		rep	#$30
		longa	on
		longi	on
		beq	cont3			;if zero skip shift logic
		bmi	cont1			;if negative, do right shift
		tax
		lda	TempZero+4		;do logical left shift of 4 bytes
@loop
		asl	a
		rol	TempZero+6
		dex
		bne	@loop
		sta	TempZero+4
		bra	cont3			;done

cont1		cmp	#$F0			;check for special case of -16
		bne	cont2
		lda	TempZero+6		;set low word to high word and zero high word
		sta	TempZero+4
		stz	TempZero+6
		bra	cont3

cont2		ora	#$FF00			;do arithmetic right shift of 4 bytes
		tax				;X is two's complimented shift count here
		lda	TempZero+4
@loop
		lsr	TempZero+6
		ror	a
		inx
		bne	@loop
		sta	TempZero+4
;
;        store patch (Bytes only)
;
cont3		lda	|Record+Bytes		;check for special case of 2 bytes
		cmp	#2
		bne	cont3a
		lda	TempZero+4		;move word directly
		sta	[TempZero]
		jmp	Reloc_Loop

cont3a		ldx	#0			;move 1 byte at a time
		txy
		sep	#$30
		longa	off
		longi	off
loop		lda	TempZero+4,x
		sta	[TempZero],y
		iny
		inx
		cpx	|Record+Bytes
		bne	loop
cont4		rep	#$30
		longa	on
		longi	on
		jmp	Reloc_Loop

		ENDP

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Loader/Restart.a b/IIGS.601.SRC/GS.OS/Loader/Restart.a
new file mode 100644
index 0000000..78ff247
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Loader/Restart.a
@@ -0,0 +1 @@
+		TITLE	', RESTART.a - Restart'
*
****************************************************************
*
*              Restart ($0A)
*
*  Inputs:     UserID (2 bytes)
*  Outputs:    UserID (2 bytes)
*              Starting Address (4 bytes)
*              Address of Zero Page/Stack (2 bytes)
*              Size of Zero Page/Stack (2 bytes)
*  Errors:     $0000 - Operation successful
*              $1101 - Application not found
*              $1108 - UserID error
*              $00xx - ProDOS I/O error
*              $02xx - Memory Manager error
*
****************************************************************
*
Restart		PROC
		LoadSegCheck

		with	DirectPage, Globals
		Import	find_user_id,merge_path,lock_statics, \
			remove_segment,open_load_file,load_statics, \
			close_load_file,save_start,save_dp,restore_dp, \
			delete_user_id,zero_handles,check_express_seg,get_express_seg

		ldx	#func_0A_param_cnt	;get the number of parameters of the stack
		jsr	get_parameters

IUserID		equ	input_parms		;input  UserID
OUserID		equ	1			;output UserID
OAddress	equ	OUserID+2		;output Load Address
OZP_Addr	equ	OAddress+4		;output Zero Page/Stack Address
OZP_Size	equ	OZP_Addr+2		;output Zero Page/Stack Size

		lda	IUserID			;lets see if we know about this user ID
		jsr	find_user_id		;If found temp_ptr setup
		bcc	@continue
		brl	old_loader		;not my job
@continue
;
;At this point all errors that we encounter must be returned to the caller since the file is mine.
;

		ldy	#ID_Table_Entry.ExpressHandle
		lda	[temp_ptr],y		;get the ExpressLoad handle
		tax
		iny
		iny
		lda	[temp_ptr],y
		tay
		bne	@have_handle
		txa
		bne	@have_handle		;we have the handle
		lda	#ExpressSegLost
		sec
		jmp	@error_exit		;report error to the caller.
@have_handle
		jsr	merge_path		;we now have the expanded ExpressLoad pathname

		jsr	chk_mod_date		;make sure the file hasn't changed
		bne	@must_reload		;it's changed, reload the whole thing

		jsr	lock_statics		;lock the static segments please
		bcs	@must_reload		;something got purged...
		jsr	kick_start
		bcs	@error_exit		;report error to the caller.
		bra	@clean_exit
;
;If we get here we need to remove the old info and reload the application from disk
;
@must_reload
		ldy	#4			;lock the ExpressSeg handle
		lda	[ExpressHandle],y
		ora	#$8000
		sta	[ExpressHandle],y

		lda	#purge_all		;remove all segments
		ldx	#$0000			;LOAD flags AND mask COMPARE value BEQ REMOVE_IT
		jsr	remove_segment		;deallocate the segments

		lda	PathnamePtr		;make a copy of the pathname
		ldy	PathnamePtr+2
		jsr	Expand_Pathname
		lda	TempBuff		;copy pointer to PathnamePtr
		sta	PathnamePtr
		lda	TempBuff+2
		sta	PathnamePtr+2
		
		lda	#keep_id		;indicate that we must keep the ID
		jsr	delete_user_id
		jsr	zero_handles		;reset everything

		jsr	open_load_file		;open the file
		bcs	@error_exit
		jsr	check_express_seg	;read ExpressLoad segment header in
		bcs	@error_exit		;just in case...
		jsr	get_express_seg		;load the ExpressLoad segment
		bcs	@error_exit		;report error to the caller
		
		stz	spec_mem_flag		;allow special memory if necessary
		jsr	load_statics		;load all the static segments
		php				;save carry
		pha				;save possible error code
		jsr	close_load_file		;close the file and restore sys_prefs
		pea	uTempBuff		;dispose of temporary pathname
		_DisposeAll
		pla				;restore error code
		plp				;restore carry
		bcs	@error_exit		;report error to the caller.
@clean_exit
		jsr	save_start
		lda	stack_size		;return the correct parameters
		sta	OZP_Size,s
		lda	stack_addr
		sta	OZP_Addr,s
		lda	starting_addr+2		;address of the Application
		and	#$00FF
		sta	OAddress+2,s
		lda	starting_addr
		sta	OAddress,s
		lda	|USERID
		sta	OUserID,s
		lda	#$0000
@outta_here
		jmp	return_to_caller	;we were successful!!

@error_exit
		ldx	IUserID
		bne	@outta_here		;If the user_id was zero let Lou try.

old_loader
		jsr	InitInit		;common initialize
;
;        initialize output variables
;
		lda	#0
		sta	OAddress,s		;zero output address
		sta	OAddress+2,s
;
;        if Main ID field of input UserID is 0, error
;
		lda	IUserID
		and	#$FF
		bne	cont1
		lda	#BadUser
		bra	error_skip
;
;        look for Pathname Table entry corresponding to UserID
;
cont1		pei	IUserID			;UserID
		lda	#1
		pha				;FileNum
		dec	a
		pha				;Address of pathname (none)
		pha
		jsr	Find_Pathname
		bcs	cont1a
;
;        extract data from Pathname Table entry
;
		lda	|PT_UserID,x
		sta	OUserID,s
		lda	|PT_ZP_Addr,x
		sta	OZP_Addr,s
		lda	|PT_ZP_Size,x
		sta	OZP_Size,s
		lda	|PT_Address,x
		sta	OAddress,s
		lda	|PT_Address+2,x
		sta	OAddress+2,s
;
;        check if Pathname Table entry actually found
;
cont1a		phk
		plb				;restore DBR
		lda	#NoFind
		bcc	_1
error_skip
		jmp	Error_Exit
_1
;
;        UserID is known to System Loader, save as USERID
;
		lda	IUserID
		sta	|USERID
;
;        extract pathname from Pathname Table entry
;
		jsr	Get_Pathname
		bcs	error_skip
;
;        Counter will count # of dynamic segments encountered
;
		stz	Counter
;
;        zero handle to first Memory Segment Table entry
;
		stz	FirstMemSeg
		stz	FirstMemSeg+2
;
;        set start of Memory Segment search to begining of Table
;
		lda	|SEGTBL
		sta	Handle
		lda	|SEGTBL+2
		sta	Handle+2
;
;        search Memory Segment Table for Load File Segments for
;        this UserID
;
loop1		lda	#0			;output Handle
		pha
		pha
		pei	IUserID			;UserID
		pha				;File Number (all)
		pha				;Segment Number (all)
		jsr	Next_MemSeg		;find next Load Segment
		pla
		sta	TempZero		;output Handle
		pla
		sta	TempZero+2
;
;        if entry found then:
;
;              1) if 1st entry found, set FirstMemSeg to entry handle
;              2) process entry
;
;        if entry not found then:
;
;              1) if no entries found, application is incomplete
;              2) if some entries found, application is complete
;
		lda	FirstMemSeg
		ora	FirstMemSeg+2		;A=0 means no entries found yet
		bcc	cont3
		beq	cont2
;
;        entry not found but some have been found, application is complete
;
		jmp	complete		;no more, all found
;
;        entry not found and none have been found, application is incomplete
;
cont2		jmp	incomplete
;
;        entry found, if not first, process
;
cont3		bne	cont4
;
;        entry found and its the first, set FirstMemSeg to handle of entry
;
		lda	TempZero
		sta	FirstMemSeg
		lda	TempZero+2
		sta	FirstMemSeg+2
;
;        if memory segment is for a dynamic segment, dispose it
;        and if this is the first dynamic segment encountered,
;        unload all Jump Table entries for this UserID
;
;        normally a dynamic segment would already be purged but
;        if an application was not shut-down, dynamic segments
;        are still in memory.  This will mess up the logic further
;        on which makes all segments unpurgeable (i.e. static).
;
cont4		lda	|MS_Kind,x
		bit	#Dyn_Segment
		beq	cont6

		phx				;save X

		lda	|MS_Handle+2,x
		pha
		lda	|MS_Handle,x
		pha
		_DisposeHandle			;error is OK

		plx				;restore X
		stz	|MS_Handle,x
		stz	|MS_Handle+2,x

		lda	Counter			;is this first dynamic segment?
		bne	cont5			;if not, skip unload JTL entries

		lda	|MS_UserID,x		;UserID
		pha
		lda	#0
		pha				;File Number (all)
		pha				;Segment Number (all)
		phk				;restore DBR
		plb
		jsr	Unload_JTL

cont5		inc	Counter			;bump dynamic segment counter

		bra	eloop1
;
;        check memory segment handle in entry to see if segment in memory.
;
cont6		lda	|MS_Handle,x		;if memory segment handle is 0,
		ora	|MS_Handle+2,x		;  handle has been disposed
		beq	cont7
		lda	|MS_Handle,x		;memory segment handle
		ldy	|MS_Handle+2,x
		jsr	DeRef			;dereference
		bcc	eloop1
cont7		jmp	incomplete		;if NIL, Application incomplete
eloop1		phk				;restore original DBR
		plb

		jmp	loop1
;
;        all segments appear to be in memory.  Lock and make all segments
;        unpurgeable.
;
complete	phk				;restore DBR
		plb
;
;        scan through segments again
;
;
;        set start of Memory Segment search to FirstMemSeg
;
		lda	FirstMemSeg
		sta	Handle
		lda	FirstMemSeg+2
		sta	Handle+2

loop2		lda	#0			;output Handle
		pha
		pha
		pei	IUserID			;UserID
		pha				;File Number (all)
		pha				;Segment Number (all)
		jsr	Next_MemSeg		;find next Load Segment
		pla
		sta	TempZero		;output Handle
		pla
		sta	TempZero+2
		bcc	cont8
		jmp	cont10
;
;        if this segment is a Reload Segment, then reload it using same address
;
cont8		lda	|MS_Kind,x
		bit	#Reload_Segment
		beq	cont9
		phx				;save X
		phb				;save DBR
		pei	Handle+2		;save Handle
		pei	Handle
		lda	#0			;output address
		pha
		pha
		lda	|MS_UserID,x		;UserID
		pha
		lda	|MS_FileNum,x		;File Number
		pha
		lda	|MS_SegNum,x		;Segment Number
		pha
		lda	|MS_Handle,x		;memory segment handle
		ldy	|MS_Handle+2,x		;memory segment handle
		jsr	DeRef			;get memory address
		phy
		pha				;Segment Address
		phk				;restore DBR
		plb
		jsr	Find_Segment
		pla				;output address
		pla				;(not used)

		pla
		sta	Handle			;restore Handle
		pla
		sta	Handle+2
		plb				;restore DBR
		plx				;restore X
		bcc	eloop2
error_skip_2
		jmp	Error_Exit
;
;        if this segment is an Initialization Segment, execute it
;
cont9		and	#$1F
		cmp	#Init_Segment
		bne	eloop2
		phx				;save X
		lda	|MS_Handle,x		;handle to segment in memory
		ldy	|MS_Handle+2,x
		jsr	DeRef			;dereference handle (A,Y - address)
		jsr	Do_Init_Segment
		plx				;restore X

eloop2
;
;        lock and make purgeable handle to memory for Load Segment
;
		pea	0			;Purge Level (purgeable) for SetPurge call
		lda	|MS_Handle+2,x		;Handle
		pha
		tay				;save for a bit
		lda	|MS_Handle,x
		pha

		phy				;again for HLock call
		pha
		_HLock

		_SetPurge
		phk				;restore original DBR
		plb

		jmp	loop2

cont10		phk				;restore DBR
		plb
;
;        purge all other memory segments that are still floating around
;
		pei	IUserID			;UserID
		_PurgeAll

		lda	#0			;signify no error
		bra	Error_Exit
;
;        not enough information is left in memory to restart the application.
;
incomplete	phk				;restore DBR
		plb
;
;        do UserShutdown for UserID.  The ShutDown will look like a 'Reload'
;        shutdown except that the Pathname table is also purged of the UserID.
;        So what we are actually doing is removing everything that has to do
;        with the UserID except we are not removing the UserID itself. The
;        reason we do not want to remove the UserID is that we are about to do
;        an Initial Load with that UserID.
;
		jsr	save_dp			;save our direct page
		pha				;make space for returned UserID
		lda	IUserID			;set up direct page for private call
		sta	input_parms+2		;UserID
		lda	#$8000
		sta	input_parms		;Quit Flag
		jsr	myUserShutdown		;call private function
		pla				;retrieve UserID returned from _UserShutdown
		jsr	restore_dp		;restore direct page
;
;        remove UserID from Pathname Table (Shutdown didn't do this)
;
		pha				;put UserID back on stack
		pea	PATHTBL>>16
		pea	|PATHTBL
		jsr	Remove_UserID
;
;       if pathname is NULL (i.e. Memory Loaded file), exit with No Find error
;
		lda	TempBuff
		ora	TempBuff+2
		bne	cont11
		lda	#NoFind
		bra	Error_Exit
;
;        do InitialLoad
;
cont11
; space is already on stack for return parameters
;               lda     #0
;               pha                             ;output UserID
;               pha                             ;output Starting Address (0)
;               pha
;               pha                             ;output Zero Page/Stack info (0)
;               pha
		lda	IUserID			;fill in input_parms for InitalLoad
		sta	input_parms+8		;UserID
		lda	TempBuff+2
		sta	input_parms+6		;buffer address
		lda	TempBuff
		sta	input_parms+4
		stz	input_parms+2		;Special Memory flag
		lda	#1
		sta	input_parms		;Input Type
		jsr	myInitLoad		;do the InitialLoad
;
;        error exit
;
Error_Exit	phk				;restore DBR
		plb
		pha				;save return status
		pea	uTempBuff		;dispose of any temporary memory buffers
		_DisposeAll
		pla				;retrieve original return status
		jmp	return_to_caller

;-----------------------------------------------------------------------------------------

kick_start
		Import	chk_dynamic_seg,open_load_file,save_ref_num, \
		make_HET_ptr,			reset_jmp_tables,reload_inits, \
		reload_restart,			restore_start,close_load_file

		stz	file_open		;indicate that the file is closed
		stz	starting_addr		;reset all of our variables
		stz	starting_addr+2
		stz	stack_addr		;there is no stack
		stz	stack_size

		jsr	chk_dynamic_seg		;does the file contain any dynamic segments
		bcs	@no_dynamics

		jsr	open_load_file		;open the file please
		bcs	@error_out		;report error to the caller.
		jsr	save_ref_num
@no_dynamics
		jsr	make_HET_ptr		;make pointer to Header Entry Table
		jsr	reset_jmp_tables	;delete any references to dynamic segments
		jsr	reload_inits		;please restart any init segments
		bcs	@error_out
		jsr	reload_restart		;please reload any restart segments.
		bcs	@error_out
		jsr	restore_start
		clc
@error_out
		php
		pha
		lda	file_open		;is the file open?
		beq	@skip_close
		jsr	close_load_file
@skip_close
		pla
		plp
		rts

;====================================================================================================
;chk_mod_date:	compares modification date of file (from GetFileInfo) against date
;		stored within ExpressLoad segment in memory
;
chk_mod_date
		Import	lock_handles,unlock_handles

		jsr	lock_handles		;lock down Express segment
		
		lda	#$0007			;7 parms for GetFileInfo call
		sta	PGetFileInfo.pCount
		lda	PathnamePtr
		sta	PGetFileInfo.pathname
		sec
		sbc	#8			;mod date is stored 8 bytes before pathname
		sta	temp_ptr		;set up pointer for eventual comparison
		lda	PathnamePtr+2
		sta	PGetFileInfo.pathname+2
		sbc	#0
		sta	temp_ptr+2
		jsl	$E100A8			;make the call
		dc.w	GetFileInfo
		dc.l	PGetFileInfo
		tax				;clear Z flag on error
		bcs	no_good			;just abort on error

; now that we have the file's mod date in memory, set up a pointer to the buffered
; mod date in the ExpressLoad segment

		ldy	#6			;compare 8 bytes
@loop
		lda	[temp_ptr],y		;get a word
		cmp	PGetFileInfo.modDateTime,y
		bne	no_good			;exit if unequal
		dey
		dey				;loop through entire field
		bpl	@loop
		sep	#%00000010		;set Z flag to show they're equal
no_good
		php				;save return status
		jsr	unlock_handles		;unlock the handles again
		plp				;return status
		rts
		
		ENDP

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Loader/Segments.a b/IIGS.601.SRC/GS.OS/Loader/Segments.a
new file mode 100644
index 0000000..734eed0
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Loader/Segments.a
@@ -0,0 +1 @@
+		TITLE	', SEGMENTS.a - Load_Segment'
*
****************************************************************
*
*              Load a Segment
*
*  Inputs:     User ID                         (TOS+7)
*              Load File Number                (TOS+5)
*              Load Segment Number             (TOS+3)
*
*  Outputs:    Segment Address                 (TOS+9)
*              A - status
*              C - set if error occurred
*
*  Zero Page used: TempZero, Handle
*
****************************************************************
*
Load_Segment	PROC
		with	DirectPage, Globals

OAddress	equ	9
IUserID		equ	7
IFileNum	equ	5
ISegNum		equ	3
;
;        look in Memory Segment Table for segment
;
		lda	#0
		pha				;output Handle
		pha
		lda	IUserID+4,s		;UserID
		pha
		lda	IFileNum+6,s		;Load File Number
		pha
		lda	ISegNum+8,s		;Load Segment Number
		pha
		jsr	Find_MemSeg
		pla
		sta	Handle			;output Handle
		pla
		sta	Handle+2
		lda	|MS_Handle,x		;save handle to Load Segment
		sta	TempZero
		lda	|MS_Handle+2,x
		sta	TempZero+2
		phk				;restore DBR
		plb

		bcs	cont1			;check if segment actually found
;
;        found segment in Memory Segment Table, lock it
;
		pei	TempZero+2		;Handle
		pei	TempZero
		_HLock
;
;        now check to see if it is really in memory
;
		lda	TempZero
		ora	TempZero+2
		beq	cont0
		lda	TempZero		;handle to load segment
		ldy	TempZero+2
		jsr	DeRef			;dereference handle
		bcc	found			;A,Y now contains address
;
;        segment is not in memory, dispose of the handle in the
;        Memory Segment Table entry
;
		pei	TempZero+2
		pei	TempZero
		_DisposeHandle
		bcs	error
;
;        remove entry in Memory Segment Table
;
cont0		pea	SEGTBL>>16		;address of Memory Segment Table
		pea	|SEGTBL
		pei	Handle+2		;handle of entry
		pei	Handle
		jsr	Remove_Link
;
;        look for load segment in Load File
;
cont1		ldx	#0			;output Address
		phx
		phx
		lda	IUserID+4,s		;UserID
		pha
		lda	IFileNum+6,s		;Load File Number
		pha
		lda	ISegNum+8,s		;Load Segment Number
		pha
		phx				;Load Segment Address (0 for allocate)
		phx
		jsr	Find_Segment
		plx
		ply
		bcs	error
		txa
;
;        store address as output and we are done
;
found		sta	OAddress,s
		tya
		sta	OAddress+2,s
		lda	#0
error		Stack_Cleanup 6
		rts

		ENDP

		TITLE	', SEGMENTS.a - Find_Segment'
*
****************************************************************
*
*              Find and Load Segment
*
*  Inputs:     User ID                         (TOS+11)
*              Load File Number                (TOS+9)
*              Load Segment Number             (TOS+7)
*              Load Segment Address            (TOS+3)
*  Outputs:    Segment Address                 (TOS+13)
*              A - status
*              C - set if error occurred
*
*  Zero Page used: TempZero, CFileNum, CSegNum, CAddress, Counter
*
*  If Load Segment Number=0, the Jump Table Segment is loaded.
*
****************************************************************
*
Find_Segment	PROC
		with	DirectPage, Globals
		Import	save_dp,restore_dp

OAddress	equ	13
IUserID		equ	11
IFileNum	equ	9
ISegNum		equ	7
IAddress	equ	3
;
;        look for entry in Pathname Table for file
;
		lda	IUserID,s		;UserID
		pha
		lda	IFileNum+2,s		;File Number
		pha
		lda	#0			;no pathname
		pha
		pha
		jsr	Find_Pathname
		bcs	error_skip
;
;       if UserID is an Application, don't close load file
;
		stz	Keep_Open
		lda	IUserID,s
		and	#$F000
		cmp	#Application
		bne	cont1
		inc	Keep_Open
;
;        extract Time/Date stamp from entry
;
cont1		lda	|PT_Date,x
		sta	TempZero
		lda	|PT_Date+2,x
		sta	TempZero+2
		lda	|PT_Date+4,x
		sta	TempZero+4
		lda	|PT_Date+6,x
		sta	TempZero+6
;
;        extract pathname of file
;
cont		phx				;save X
		jsr	Get_Pathname
		plx				;restore x
		bcs	error_skip
;
;        has Jump Table Segment been processed yet?
;
cont2		lda	|PT_Jump,x
		bne	cont3

		inc	a			;Acc now = 1
		sta	|PT_Jump,x		;set flag
		phk				;restore DBR
		plb				;to our bank
;
;        no, load all static segments by calling InitialLoad 2
;
		jsr	save_dp			;save current direct page

		lda	IUserID+4,s		;UserID (+4 because of handle on stack)

						;make space for output parameters
		pha				;output Direct Page/Stack info
		pha
		pha				;output Starting Address
		pha
		pha				;output UserID

						;now place the input parameters into direct page
		sta	input_parms+8		;UserID
		stz	input_parms+2		;special memory flag
		lda	Handle			;Handle of Pathname Table
		ldy	Handle+2
		jsr	DeRef
		sta	input_parms+4		;address of Pathname Table entry
		sty	input_parms+6
		lda	#3			;input type
		sta	input_parms
		jsr	type3_InitLoad		;private call to InitialLoad

		plx				;UserID
		plx				;Starting Address
		ply
		plx				;Direct Page/Stack Address
		plx				;Direct Page/Stack Size
		jsr	restore_dp		;restore our direct page values
		bcc	good_load
error_skip
		jmp	error

good_load
;
;        check whether segment has been loaded (i.e. segment is static)
;
		lda	#0			;output Handle
		pha
		pha
		lda	IUserID+4,s		;UserID
		pha
		lda	IFileNum+6,s		;Load File Number
		pha
		lda	ISegNum+8,s		;Load Segment Number
		pha
		jsr	Find_MemSeg
		pla				;output Handle
		pla
		lda	|MS_Handle,x		;handle to segment's memory
		ldy	|MS_Handle+2,x
;
;           restore DBR
;
		phk
		plb
;
;        if segment is there, return with address
;
		bcs	cont3
		jsr	DeRef			;convert handle to address
		sta	OAddress,s
		tya
		sta	OAddress+2,s
		lda	#0			;no error
		jmp	return			;and exit
;
;        open file
;
cont3		phk
		plb
		stz	Memory_Load		;clear Memory Load Flag
		pei	TempBuff+2		;address of Pathname
		pei	TempBuff
		pei	TempZero+6		;time/date stamp
		pei	TempZero+4
		pei	TempZero+2
		pei	TempZero
		jsr	Open_File
		bcs	error_skip
;
;           skip 'SegNum'-1 number  of Segment Headers and read the next one
;
cont4		lda	ISegNum,s
		beq	cont5			;if SegNum=0, load Segment 1
		dec	a
		beq	cont5			;if SegNum=1, skip skipping
		sta	Counter			;set counter to Segment Number-1
loop		jsr	Skip_Header
		lda	#NoFind
		bcs	error
		dec	Counter
		bne	loop
cont5		jsr	Next_Header
		bcs	error
;
;        load segment - pass 1
;
		lda	IUserID,s		;set global USERID to input UserID
		sta	|USERID
		lda	IFileNum,s		;set current File Number to FileNum
		sta	CFileNum
		lda	ISegNum,s		;set current Segment Number to SegNum
		sta	CSegNum
		lda	IAddress,s
		sta	CAddress		;set current Segment Address to Address
		lda	IAddress+2,s
		sta	CAddress+2
		lda	|SEGTBL
		sta	FirstMemSeg		;set first Memory Segment entry
		lda	|SEGTBL+2
		sta	FirstMemSeg+2
		stz	Pass			;set current pass to 1st pass
		stz	Pass2_Needed		;zero Pass2 Needed flag
		ldx	#1			;Special Memory Flag
try_again_2
		phx				;save special memory flag
		jsr	Do_Segment
		plx				;retrieve special memory flag
		bcc	@no_error		;no errors, continue
		dex				;should we allow special memory?
		beq	try_again_2		;yup, try again
		bra	error			;nope, we've already tried
@no_error
;
;        save address of segment as output
;
		lda	Header.Org
		sta	OAddress,s
		lda	Header.Org+2
		sta	OAddress+2,s
;
;        is a second pass needed ?
;
		lda	Pass2_Needed
		beq	return			;no, exit
		inc	Pass			;set current pass to 2nd pass
;
;        yes, position file at Relocation Dictionary
;
		lda	#0			;output Offset
		pha
		pha
		pea	ML_FirstEntry>>16	;Offset of 1st entry
		pea	|ML_FirstEntry
		jsr	Next_Dictionary
		plx				;output Offset
		ply
		bcs	error
;
;        process Segment's Relocation Dictionary
;
		ldx	#0			;Special Memory Flag
		jsr	Do_Segment
		bcc	return

error		stz	Keep_Open		;set Keep_Open flag to FALSE
		phk				;restore DBR
		plb
return
error1		pha				;save status
;
;        dispose of temporary pathname buffer
;
		pea	uTempBuff		;UserID
		_DisposeAll
;
;        dispose of Mark List
;
		pea	uMarkList		;UserID
		_DisposeAll

		jsr	Close_File

		pla				;restore status
		Stack_Cleanup 10
		rts

		ENDP

		TITLE	', SEGMENTS.a - Do_Segment'
*
****************************************************************
*
*              Process current Segment
*
*  Inputs:     X - Special Memory Flag
*              Header  - Segment Header
*              CFileNum - current File Number
*              CSegNum - current Segment Number
*              CAddress - current Segment Address
*
*  Outputs:    A - status
*              C - set if error occurred
*
*  Zero Page used: TempZero, Handle, FirstMemSeg
*
*        If CAddress is 0, the fields in the Segment Header will
*        determine where a new Memory Segment will be allocated and
*        the Segment will be loaded there.  If CAddress is not
*        0, the Segment will be loaded at that address.
*
****************************************************************
*
Do_Segment	PROC
		with	DirectPage, Globals

;
;        which pass are we doing ?
;
		lda	Pass
		beq	cont1
;
;        pass 2, look in Memory Segment Table for segment
;
		lda	FirstMemSeg
		sta	Handle
		lda	FirstMemSeg+2
		sta	Handle+2

		lda	#0			;output Handle
		pha
		pha
		lda	|USERID			;UserID
		pha
		pei	CFileNum		;Load File Number
		pei	CSegNum			;Load Segment Number
		jsr	Next_MemSeg
		ply				;output Handle
		ply
		bcs	to_Reloc_Error
		lda	|MS_Handle,x
		ldy	|MS_Handle+2,x
		phk				;restore DBR
		plb
;
;        set CAddress to Address of current Segment
;
		jsr	DeRef
		sta	CAddress
		sty	CAddress+2
;
;        go to record processing loop
;
		jmp	Reloc_Loop
;
;        pass 1, check whether Version is 1 or 2
;
cont1		lda	Header.Version
		and	#$FF
		cmp	#1
		beq	cont2
		cmp	#2
		beq	cont2
;
;        no, the OMF Version is not supported
;
		lda	#BadOMF
to_Reloc_Error
		jmp	Reloc_Error
;
;        check whether SegNum in Header = current Segment Number
;
cont2		lda	Header.SegNum
		cmp	CSegNum
		beq	cont3
;
;        no, this file is corrupt (SegNum out of sequence)
;
		lda	#BadNum
		jmp	Reloc_Error
;
;        check whether Segment is foreign
;
cont3		ldy	#Foreign
		lda	Header.NumSex		;check NumSex
		and	#$FF
		beq	cont4			;should be 0
;
;        yes, Segment is foreign
;
its_foreign
		tya
		jmp	Reloc_Error

cont4		lda	Header.NumLen		;check NumLen
		and	#$FF
		cmp	#4			;should be 4
		bne	its_foreign
;
;        check whether BankSize is legal
;
cont5		lda	Header.BankSize+2	;check BankSize
		beq	cont6			;must be <=$10000
		cmp	#1
		bne	its_foreign
		lda	Header.BankSize
		bne	its_foreign
;
;        check whether Align is legal
;
cont6		lda	Header.Align+2		;check Align
		beq	cont7			;must be <=$10000
		cmp	#1
		bne	its_foreign
		lda	Header.Align
		bne	its_foreign
;
;        check whether there is any data in the segment
;
cont7		lda	Header.ByteCnt		;if BYTECNT=0, no data
		ora	Header.ByteCnt+2
		bne	cont7a
to_Reloc_Return
		jmp	Reloc_Return		;no data

cont7a		lda	Header.Length		;if LENGTH=0, no data
		ora	Header.Length+2
		beq	to_Reloc_Return		;no data
;
;        if CAddress<>0, segment will be loaded into existing memory buffer
;
cont8		lda	CAddress
		ora	CAddress+2
		beq	cont9
;
;        find Memory Handle that corresponds to CAddress
;
		phx				;save X (Special Memory Flag)
		lda	#0			;output Handle
		pha
		pha
		lda	CAddress+2		;Address (bank)
		sta	Header.Org+2
		pha
		lda	CAddress
		sta	Header.Org
		pha
		_FindHandle
		pla				;output Handle
		ply
		sta	Handle
		sty	Handle+2
;
;        zero memory segment
;
		jsr	DeRef			;dereference Handle
		jsr	Zero_Segment

		plx				;restore X
		bra	Reloc_Loop
;
;        get memory segment for load segment
;
cont9		txa				;Special Memory Flag
		jsr	Allocate_Segment
		bcs	Reloc_Error

		lda	Header.Org
		sta	CAddress		;save Load Address
		lda	Header.Org+2
		sta	CAddress+2
;
;        create new entry in Memory Segment Table
;
		pei	Handle+2		;Memory Handle
		pei	Handle
		lda	|USERID
		pha
		pei	CFileNum		;Load File Number
		pei	CSegNum			;Load Segment Number
		lda	Header.Kind		;Load Segment Kind
		pha
		jsr	Add_MemSeg
		bcs	Reloc_Error
;
;        if this is first segment loaded, save Memory Segment Table handle
;
		lda	FirstMemSeg
		ora	FirstMemSeg+2
		bne	Reloc_Loop
		lda	TempZero
		sta	FirstMemSeg
		lda	TempZero+2
		sta	FirstMemSeg+2
;
;        process each Segment record until the END record is reached
;
		ENTRY	Reloc_Loop
Reloc_Loop
		jsr	Read_Op			;read operation code
		bcs	Reloc_Error

		lda	|Record			;get record operation code
		and	#$FF
		beq	Reloc_Return		;END record found, we are done
;
;        search Record Table for OP code
;
		ldx	#6*4			;7 double entries in table
loop2		cmp	Record_Table,x
		bne	cont10
;
;        found OP code in Table, put OP code routine address on stack and
;        jump to it
;
		jmp	(Record_Table+2,x)

cont10		dex
		dex
		dex
		dex
		bpl	loop2
;
;        OP code not in table, error
;
		lda	#Illegal		;illegal record operation code

		ENTRY	Reloc_Return,Reloc_Error
Reloc_Return
Reloc_Error
		phk				;restore DBR just in case
		plb
		cmp	#1
		rts

Record_Table
		DC.W	DS,Do_DS
		DC.W	LCONST,Do_LCONST
		DC.W	INTERSEG,Do_INTERSEG
		DC.W	RELOC,Do_RELOC
		DC.W	cINTERSEG,Do_cINTERSEG
		DC.W	cRELOC,Do_cRELOC
		DC.W	SUPER,Do_SUPER

		ENDP

		TITLE	', SEGMENTS.a - Do_Init_Segment'
*
****************************************************************
*
*              Process Initialization Segment
*
* Inputs: A,Y - Address of Segment
*
* Direct Page used - TempZero
****************************************************************
*
Do_Init_Segment	PROC

		dec	a			;Address -1
		phb				;yes, save Data Bank register
		phd				;save Direct register
		phk				;setup stack for implicit JSL
		pea	cont-1

		sep	#$10			;8-bit index registers
		phy				;put high byte of address on stack
		rep	#$10
		pha				;put segment address on stack
		lda	#0			;set Direct register to 0
		tcd
		rtl				;do implicit JSL

cont		pld				;restore Direct register
		plb				;restore Data Bank register
		rep	#$30			;restore 16 bit mode
		rts

		ENDP

		TITLE	', SEGMENTS.a - Do_Path_Segment'
*
****************************************************************
*
*        Process Pathname Segment
*
*  Inputs: Handle  of segment in memory (TOS+7)
*          Address of segment in memory (TOS+3)
*
*  Zero Page used: Pointer,TempBuff
*
****************************************************************
*

Do_Path_Segment	PROC
		with	DirectPage, Globals
;
;        inputs on stack
;
SHandle		equ	7
SAddress	equ	3
;
;        fields in Pathname Segment entry
;
File_Num	equ	0
File_Date	equ	2
File_Path	equ	10

		lda	SAddress,s
		sta	Pointer
		lda	SAddress+2,s
		sta	Pointer+2
loop		ldy	#File_Num		;get next File Number
		lda	[Pointer],y
		beq	return			;if 0, we are done
		lda	|USERID			;UserID
		pha
		ldy	#File_Num
		lda	[Pointer],y		;File Number
		pha
		ldy	#File_Date+6		;File Date
		lda	[Pointer],y
		pha
		ldy	#File_Date+4
		lda	[Pointer],y
		pha
		ldy	#File_Date+2		;File Date
		lda	[Pointer],y
		pha
		ldy	#File_Date
		lda	[Pointer],y
		pha
		ldx	#0			;Direct Page/Stack info
		phx
		phx
		phx				;Starting Address
		phx
		ldy	Pointer+2		;calculate address of pathname
		lda	Pointer
		clc
		adc	#File_Path
		bcc	@1
		iny
@1						;A,Y - pathname
						;   ldx     #0 (already)        ;X - convert 0 pathname to 1
		jsr	Convert_Pathname	;convert Pathname
		lda	TempBuff		;converted Pathname
		ldy	TempBuff+2
		jsr	Expand_Pathname		;expand Pathname
		pei	TempBuff+2		;expanded Pathname
		pei	TempBuff
		jsr	Add_Pathname		;add entry to Pathname Table
		bcs	return
;
;        bump SAddress and Pointer to next entry
;
		lda	SAddress,s
		sta	Pointer
		lda	SAddress+2,s
		sta	Pointer+2
		ldy	#File_Path
		lda	[Pointer],y
		and	#$FF
		clc
		adc	#11
		adc	Pointer
		sta	Pointer
		sta	SAddress,s
		lda	Pointer+2
		adc	#0
		sta	Pointer+2
		sta	SAddress+2,s
		bra	loop
;
;        return
;
return		Stack_Cleanup 8			;remove input parameters
		rts
		ENDP

		TITLE	', SEGMENTS.a - Do_Jump_Segment'
*
****************************************************************
*
*        Process Jump Table Segment
*
*  Inputs: Handle  of segment in memory (TOS+7)
*          Address of segment in memory (TOS+3)
*
*  Zero Page used: TempZero
*
****************************************************************
*

Do_Jump_Segment	PROC
		with	DirectPage, Globals
;
;        inputs on stack
;
SHandle		equ	7
SAddress	equ	3

;
; copy address to ExpressLoad variables, and then call the ExpressLoad function
;
		lda	SAddress,s
		sta	base_ptr
		lda	SAddress+2,s
		sta	base_ptr+2
		jsr	patch_jmp_tbl
;
;        allocate memory buffer for new Jump Table List entry
;
cont2		lda	#0			;output Handle
		pha
		pha
		pea	JT_Handle+4>>16		;BlockSize
		pea	|JT_Handle+4
		pea	uJMPTBL			;Owner
		pea	attrLocked+attrNoSpec	;Attributes
		pha				;Location
		pha
		_NewHandle			;get memory buffer
		plx
		ply
		stx	TempZero		;save returned handle
		sty	TempZero+2
		bcs	error

		txa
		jsr	DeRef			;dereference handle
		sta	TempZero+4		;save pointer
		sty	TempZero+6
;
;        zero linked list pointers
;
		lda	#0
		ldy	#6
@loop
		sta	[TempZero+4],y
		dey
		dey
		bpl	@loop
;
;        make pointer usable
;
		lda	TempZero+4
		ldy	TempZero+6
		phb				;save DBR
		jsr	UsePtr
;
;        store data in Jump Table List entry
;
		lda	>USERID			;UserID
		sta	|JT_UserID,x
		lda	SHandle+1,s		;Handle to Jump Table Segment
		sta	|JT_Handle,x
		lda	SHandle+3,s
		sta	|JT_Handle+2,x
		plb				;restore DBR
;
;        link new entry to previous
;
		pea	JMPTBL>>16
		pea	|JMPTBL
		pei	TempZero+2
		pei	TempZero
		jsr	Add_Link
;
;        unlock Jump Table List entry
;
		pei	TempZero+2
		pei	TempZero
		_HUnlock
error		Stack_Cleanup 8			;remove input parameters
		rts

		ENDP

		TITLE	', SEGMENTS.a - Allocate_Segment'
*
****************************************************************
*
*        Allocate a Memory Segment for a Segment
*
*  Inputs:     A - Special Memory Flag
*              Header - Segment Header
*
*  Outputs:    Handle - Handle to Memory Segment
*              Header+ORG - Address of Memory Segment
*              A - status code
*              C - set if error
*
*  Zero Page used: TempZero, Counter, Handle
*
****************************************************************
*

Allocate_Segment PROC
		with	DirectPage, Globals

		sta	spec_mem_flag		;save for use by conv_attributes
		lda	#<(Header-4)		;set up seg_header_ptr
		sta	seg_header_ptr
		lda	#^(Header-4)		;to make ExpressLoad subroutine happy
		sta	seg_header_ptr+2
		jsr	conv_attributes		;calculate memory attributes required
		pha				;save on stack
		sta	Counter			;save (TempZero is used later)

		lda	Header.Kind		;get the segment kind
		bit	#AbsBank_Segment	;Absolute Bank Segment?
		bne	@skip_special		;yes, don't set the NoSpecialMemory attribute
		and	#$001f			;mask out the attributes
		cmp	#Direct_Segment		;direct page?
		beq	@skip_special		;yes, don't set the NoSpecialMemory attribute
		lda	#attrNoSpec		;set the NoSpecialMemory bit
		tsb	Counter
@skip_special
		jsr	allocate_mem		;go allocate the memory
		bcc	cont			;if no error, we are done
;
;        couldn't allocate memory but maybe the Loader is wasting memory sooo
;        call Cleanup routine to attempt to free more memory.
;
		pha				;save Memory Manager error
		pea	0			;all UserID's
		jsr	Cleanup			;cleanup internal tables
		pla				;restore Memory Manager error
		bcs	error

		jsr	allocate_mem		;go allocate the memory
		bcc	cont			;got it!
		tax				;save error code
		lda	1,s			;retrieve original attributes
		bit	#attrNoSpec		;was the noSpecialMemory attribute set already?
		beq	@try_again		;no, so try again, allowing special memory
		txa				;restore error code to accumulator
		sec
		bra	error			;and we're outta here
@try_again
		sta	Counter			;use the original attributes this time
		jsr	allocate_mem		;try this one last time
		bcs	error			;OK already, I give up!
;
;        dereference the memory segment Handle
;
cont
		txa				;get handle into Acc and Y
		jsr	DeRef			;dereference Handle
		sta	Header.Org		;save in Segment Header
		sty	Header.Org+2
;
;        zero out segment to speed up DS record processing
;
		jsr	Zero_Segment
;
;        normal return
;
error
		plx				;clean up stack (remove original attributes)
		rts

allocate_mem
		lda	Counter			;copy attributes
		sta	mem_attr
		lda	Header.Org
		sta	org_address
		lda	Header.Org+2
		sta	org_address+2
		ldx	Header.Length
		ldy	Header.Length+2
		jsr	alloc_LConst_seg
		stx	Handle			;Handle
		sty	Handle+2
		rts

		ENDP

		TITLE	', SEGMENTS.a - Purge_Segment'
*
****************************************************************
*
*        Purge Segment
*
*  Inputs:     User ID                       (TOS+11)
*              Load File Number              (TOS+9)
*              Load Segment Number           (TOS+7)
*              Dynamic Only Flag             (TOS+5)
*              Purge Level                   (TOS+3)
*
*  Outputs:    A - status code
*              C - set if entry not found or error ocurred
*
*  Zero Page used: TempZero, Handle
*
*        The Memory Segment Table is searched for the specified
*        Load Segment or all segments (if UserID=0).  The Memory Block
*        for the segment is either made purgeable (if Purge Level>0) or
*        disposed (if Purge Level=0) and all the Jump Table entries for
*        the segment are marked as unloaded.
*
*        If the UserID is 0, only segments which are no longer in memory
*        (their Memory Segment Handle is NIL) are processed.
*
*        If a Memory Segment Handle is disposed, the Handle in the Memory
*        Segment Table entry is set to 0.
*
*        If the Dynamic Only Flag is set, only Dynamic Load Segments
*        are processed.
*
*        If any of the 1st three inputs are 0, all entries in the
*        Memory Segment Table are searched and only the entries
*        with attributes equal to the non-zero inputs are processed.
*
****************************************************************
*

Purge_Segment	PROC
		with	DirectPage, Globals

IUserID		equ	11
FileNum		equ	9
SegNum		equ	7
Dynamic		equ	5
PLevel		equ	3
;
;        if any of the inputs are 0, set Pass2_Needed
;
		ldx	#1
		lda	IUserID,s
		beq	cont1
		lda	FileNum,s
		beq	cont1
		lda	SegNum,s
		beq	cont1
		dex
;
;        search Memory Segment Table for entry corresponding to inputs
;
cont1		stx	Pass2_Needed
		lda	|SEGTBL
		sta	Handle
		lda	|SEGTBL+2
		sta	Handle+2
loop		lda	#0			;output Handle
		pha
		pha
		lda	IUserID+4,s		;UserID
		pha
		lda	FileNum+6,s		;File Number
		pha
		lda	SegNum+8,s		;Segment Number
		pha
		jsr	Next_MemSeg
		pla
		sta	TempZero		;output Handle
		pla
		sta	TempZero+2
		lda	|MS_Handle,x
		sta	TempZero+4		;save Handle of Memory block
		lda	|MS_Handle+2,x
		sta	TempZero+6
		lda	#NoFind
		bcs	error
;
;        if Dynamic Only Flag is set, skip if not a Dynamic Load Segment
;
		lda	Dynamic,s
		beq	cont2
		lda	|MS_Kind,x
		bit	#Dyn_Segment
		beq	eloop
;
;        check Purge Level
;
cont2		lda	PLevel,s
		bne	cont3
;
;        Purge Level=0, dispose of Memory Block if
;
;            a) UserID<>0
;        or
;            b) UserID=0 and Handle=NIL
;
		lda	IUserID,s
		bne	cont2a
		lda	TempZero+4		;Memory Segment Handle
		ldy	TempZero+6
		jsr	DeRef			;deference
		bcc	eloop			;if not NIL, skip this entry
cont2a		phx				;save X
		pei	TempZero+6
		pei	TempZero+4
		_DisposeHandle			;error is OK
		plx				;restore X
;
;        set Handle in entry to 0
;
		stz	|MS_Handle,x
		stz	|MS_Handle+2,x
		bra	cont4
;
;        Purge Level>0, unlock Memory Block and set its Purge Level
;
cont3		phx				;save X
		pei	TempZero+6
		pei	TempZero+4
		_HUnlock			;error is OK

		lda	PLevel+2,s
		pha
		pei	TempZero+6
		pei	TempZero+4
		_SetPurge			;error is OK
		plx				;restore X
;
;        unload all entries in Jump Table for this segment
;
cont4		lda	|MS_UserID,x		;UserID
		pha
		lda	|MS_FileNum,x		;Load File Number
		pha
		lda	|MS_SegNum,x		;Load Segment Number
		pha
		phk				;restore DBR
		plb
		jsr	Unload_JTL
;
;        if any inputs = 0, keep looking for segments to unload
;
eloop		lda	Pass2_Needed
		beq	return
		jmp	loop
;
;        normal return
;
return
error		phk				;restore DBR
		plb
;
;        if any inputs = 0, error is not really an error
;
		ldx	Pass2_Needed
		beq	cont5
		lda	#0
cont5		Stack_Cleanup 10		;remove input parameters
		rts

		ENDP

		TITLE	', SEGMENTS.a - Zero_Segment'
*
****************************************************************
*
*        Zero Segment
*
*  Inputs:     A,Y - Address of Segment in Memory
*              Header - Segment Header
*
*  Outputs:    none
*
*  Zero Page used: TempZero
*
****************************************************************
*

Zero_Segment	PROC
		with	DirectPage, Globals

		sta	TempZero		;address of Segment in memory
		sty	TempZero+2
		phy				;Source
		pha
		lda	#0
		sta	[TempZero]		;zero 1st 2 bytes
		lda	TempZero		;offset past first two bytes
		clc
		adc	#2
		bcc	@1
		iny
@1
		phy				;Destination
		pha
		ldy	Header.Length+2
		lda	Header.Length
		sec
		sbc	#2
		bcs	@2
		dey
@2
		phy				;Count
		pha

		jsr	Block_Move
		rts

		ENDP

		TITLE	', SEGMENTS.a - Check_KIND'
*
****************************************************************
*
*              Check KIND field
*
*  Inputs:     Header - Segment Header
*
*  Outputs:    Header - Segment Header
*
*  Zero Page used: TempZero
*
*        This routine checks whether the old KIND field is used in
*        Segment Header and converts it to the new KIND field.
*
****************************************************************
*

Check_KIND	PROC
		with	DirectPage, Globals
;
;        if Version>1, no conversion needed
;
		lda	Header.Version
		cmp	#2
		bcs	return
;
;        move Type to KIND field
;
		lda	Header.oldKind
		pha
		and	#$1F
		sta	Header.Kind
;
;        move Attribute bits to KIND field
;
		lda	1,s
		and	#$E0
		sep	#$30
		sta	Header.Kind+1
		rep	#$30
;
;        if Absolute Bank Segment, set attribute bit and clear Type
;
		pla
		and	#$1F
		cmp	#$11
		bne	return
		lda	Header.Kind
		and	#$FFE0
		ora	#AbsBank_Segment
		sta	Header.Kind

return		rts

		ENDP

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Loader/Struct.a b/IIGS.601.SRC/GS.OS/Loader/Struct.a
new file mode 100644
index 0000000..88133e5
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Loader/Struct.a
@@ -0,0 +1 @@
+		TITLE	', STRUCT.a - Add_Link'
*
****************************************************************
*
*        Add entry to Linked List
*
*        Each entry in a Linked List starts with two 4 byte Handles.
*        The first is a handle to the next entry
*        and the second is a handle to the previous entry.
*
*  Inputs:     Address of Linked List (TOS+7)
*              Handle to New   Entry  (TOS+3)
*  Outputs:    none
*
****************************************************************
*

Add_Link	PROC
		with	DirectPage

First_Entry	equ	7
New_Entry	equ	3
;
;        check whether this is 1st entry in Linked List
;
		ldy	#0
		lda	(First_Entry,s),y
		ldy	#2
		ora	(First_Entry,s),y
		bne	cont
;
;        this is first entry, store handle of new entry in input
;        address of Linked List (address assumed to be in same bank
;        as this code)
;
		lda	New_Entry+2,s
		sta	(First_Entry,s),y	;Y is still == 2
		lda	New_Entry,s
		ldy	#0
		sta	(First_Entry,s),y
		bra	done			;done
;
;        this is not first entry, replace address of Linked List with
;        Handle to First Entry
;
cont		lda	(First_Entry,s),y	;Y == 2 here
		sta	First_Entry+2,s
		ldy	#0
		lda	(First_Entry,s),y
		sta	First_Entry,s
;
;        Find last entry in linked list
;
;        Starting from First Entry, move from Entry to Entry until
;        a Entry is found whose Next Entry Handle is NIL.  Put the
;        Handle to each Entry back on the stack replacing the one
;        before.
;
loop		lda	First_Entry+2,s		;Handle of First Entry
		tay
		lda	First_Entry,s
		jsr	DeRef			;dereference Handle
		phy				;Pointer on stack
		pha
		jsr	DeRef			;get Next Entry Handle from First Entry
		phy				;save on stack
		pha
		ora	3,s			;is Next Entry Handle NIL?
		beq	last			;yes, found last Entry
		lda	1,s			;replace Handle to First Entry with
		sta	First_Entry+8,s		;  Next Entry Handle in First Entry
		tya
		sta	First_Entry+10,s
		pla				;clean up stack
		pla
		pla
		pla
		bra	loop			;repeat logic
;
;        Last Entry in linked list has been found.  Handle to First Entry
;        on stack is now Handle to Last Entry. Pointer to Last Entry is
;        on TOS+5.
;
last		pla				;remove NIL Handle
		pla
		pla				;pull Pointer to Last Entry
		ply
		phb				;save DBR
		jsr	UsePtr			;make Pointer usable
		lda	New_Entry+3,s		;store Handle to New Entry
		tay
		sta	|2,x			;  as Next Entry Handle of Last Entry
		lda	New_Entry+1,s
		sta	|0,x
		plb				;restore DBR
		jsr	DeRef			;dereference handle
		phb				;save DBR
		jsr	UsePtr			;make Pointer to New Entry usable
		lda	First_Entry+1,s		;store Handle to Last Entry
		sta	|4,x			;  in New Entry
		lda	First_Entry+3,s
		sta	|6,x
		plb				;restore DBR
done		Stack_Cleanup 8			;remove parameters
		rts				;return

		ENDP

		TITLE	', STRUCT.a - Remove_Link'
*
****************************************************************
*
*              Remove entry in Linked List
*
*  Inputs:     Address of Linked List          (TOS+7)
*              Handle of Entry                 (TOS+3)
*
*  Outputs:    none
*
*  Zero Page used: none
*
*        This routine assumes that the Linked List is in Bank 1
*        (e.g. in Loader's Global area)
*
****************************************************************
*

Remove_Link	PROC
		with	DirectPage

Address		equ	7+8
Entry		equ	3+8
Next		equ	5
Previous	equ	1
;
;        get Previous handle and Next handle out of Entry
;        and put on stack
;
		lda	Entry-6,s		;handle of Entry
		tay
		lda	Entry-8,s
		jsr	DeRefUse		;dereference Handle and use Pointer
		lda	|2,x			;Next handle
		pha
		lda	|0,x
		pha
		lda	|6,x			;Previous handle
		pha
		lda	|4,x
		pha
;
;        is Entry only one in linked list ?
;        (Previous handle = Next handle = 0)
;
		ora	Previous,s
		tay				;save
		ora	Next,s
		ora	Next+2,s
		bne	cont1
;
;        yes, zero out Address of Linked List
;
		phk				;restore DBR
		plb
		lda	#0
		ldy	#0
		sta	(Address,s),y
		ldy	#2
		sta	(Address,s),y
		bra	cont4
;
;        no, is Previous handle of Entry = 0 (i.e. first entry) ?
;
cont1		tya
		bne	cont2
;
;        yes, store Next handle of Entry in Address of Linked List
;
		phk				;restore DBR
		plb
		lda	Next,s
		ldy	#0
		sta	(Address,s),y
		lda	Next+2,s
		ldy	#2
		sta	(Address,s),y
		bra	cont3
;
;        no, point to previous entry
;
cont2		lda	Previous+2,s
		tay
		lda	Previous,s
		jsr	DeRefUse		;dereference Handle and use Pointer
;
;        set Next handle of previous entry to Next handle of Entry
;
		lda	Next,s
		sta	|0,x
		lda	Next+2,s
		sta	|2,x
;
;        is Next handle of Entry = 0 (i.e. last entry) ?
;
cont3		lda	Next,s
		ora	Next+2,s
		beq	cont4
;
;        no, point to next entry
;
		lda	Next+2,s
		tay
		lda	Next,s
		jsr	DeRefUse		;dereference Handle and use Pointer
;
;        set Previous handle of next entry to Previous handle of Entry
;
		lda	Previous,s
		sta	|4,x
		lda	Previous+2,s
		sta	|6,x
;
;        dispose of Entry
;
cont4		lda	Entry+2,s
		pha
		lda	Entry+2,s
		pha
		_DisposeHandle
;
;        remove extra handles from stack
;
		pla
		pla
		pla
		pla
;
;        restore DBR and stack
;
		phk				;set DBR to PBR
		plb
		Stack_Cleanup 8
		rts

		ENDP

		TITLE	', STRUCT.a - Add_Pathname'
*
****************************************************************
*
*        Add new entry in Pathname Table
*
*  Inputs:      UserID                  (TOS+25)
*               File    Number          (TOS+23)
*               Time/Date Stamp         (TOS+15)
*               Direct Page/Stack Addr  (TOS+13)
*               Direct Page/Stack Size  (TOS+11)
*               Starting Address        (TOS+7)
*               Address of Pathname     (TOS+3)
*
*  Outputs:    New entry linked to last entry (if previous exists)
*              A - status code
*              C - set if error
*
*  Zero Page used: Pointer, Handle, TempZero
*
****************************************************************
*

Add_Pathname	PROC
		with	DirectPage, Globals

IUserID		EQU	25
FileNum		EQU	23
Date		EQU	15
ZP_Addr		EQU	13
ZP_Size		EQU	11
Address		EQU	7
PathName	EQU	3

APathTbl	equ	Pointer

		lda	PathName,s
		sta	TempZero		;store addr of Pathname in zero page
		lda	PathName+2,s
		sta	TempZero+2
;
;        get a memory buffer for new entry
;
		ldx	#0
		phx				;space for output Handle
		phx
		phx				;BlockSize =
		lda	[TempZero]		;    length of File Name
		clc
		adc	#PT_Path+2		;   +size of constant portion
		pha
		pea	uPATHTBL		;Owner
		pea	attrNoSpec		;Attributes
		phx				;Location
		phx

		_NewHandle			;get memory buffer

		plx
		ply
		stx	Handle			;save returned handle
		sty	Handle+2
		bcc	@1
		jmp	error
@1
		txa
		jsr	DeRef			;dereference handle
		sta	APathTbl		;save address of entry
		sty	APathTbl+2
;
;        zero linked list pointers
;
		lda	#0
		ldy	#6
@loop
		sta	[APathTbl],y
		dey
		dey
		bpl	@loop
;
;        set DBR to address of entry
;
		lda	APathTbl
		ldy	APathTbl+2
		phb				;save DBR
		jsr	UsePtr
;
;        store UserID in new entry
;
		lda	IUserID+1,s
		sta	|PT_UserID,x
;
;        store File Number in new entry
;
		lda	FileNum+1,s
		sta	|PT_FileNum,x
;
;        if File Number=1, set Jump Table Segment processed flag to 1
;        otherwise, zero it
;
		cmp	#1
		beq	cont
		lda	#0
cont		sta	|PT_Jump,x
;
;        store File Date and Time in new entry
;
		lda	Date+1,s
		sta	|PT_Date,x
		lda	Date+3,s
		sta	|PT_Date+2,x
		lda	Date+5,s
		sta	|PT_Date+4,x
		lda	Date+7,s
		sta	|PT_Date+6,x
;
;        store Zero Page/Stack info in new entry
;
		lda	ZP_Addr+1,s
		sta	|PT_ZP_Addr,x
		lda	ZP_Size+1,s
		sta	|PT_ZP_Size,x
;
;       store Starting Address in new entry
;
		lda	Address+1,s
		sta	|PT_Address,x
		lda	Address+3,s
		sta	|PT_Address+2,x
;
;        restore DBR
;
		plb
;
;        move File Name into Pathname
;
		pei	TempZero+2		;source address
		pei	TempZero
		lda	APathTbl		;calculate destination address
		clc
		adc	#PT_Path
		tax
		lda	APathTbl+2
		adc	#^PT_Path
		pha
		phx				;destination address
		pea	0			;number of bytes
		lda	[TempZero]
		clc
		adc	#2
		pha

		jsr	Block_Move		;call Move function
;
;        link new Pathname Table to previous
;
		pea	PATHTBL>>16
		pea	|PATHTBL
		pei	Handle+2
		pei	Handle
		jsr	Add_Link
;
;        return
;
return		lda	#0
error		Stack_Cleanup 24		;remove input parameters
		rts

		ENDP

		TITLE	', STRUCT.a - Find_Pathname'
*
****************************************************************
*
*        Find entry in Pathname Table
*
*  Inputs:      UserID                      (TOS+9)
*               File Number                 (TOS+7)
*               Address of Pathname         (TOS+3)
*
*  Outputs:    none
*              X - low bytes of Pointer to entry
*              DBR - bank
*              Handle- Handle of entry
*              A - status code
*              C - set if error
*              Counter - if no find, contains max File Number
*
*  Zero Page used: Handle, TempZero, Counter
*
*       This routine will search the Pathname Table for an entry that satisfies
*       each of the input parameters.   If a parameter is 0, it is not used as
*       a criteria.  If no such entry is found, Counter will contain the max
*       File Number encountered (which is only useful if a UserID is specified)
*
*       Before  calling this routine, the User should save the DBR.
*
*       After calling this  routine and making all references to the entry,
*       the User must restore the original  DBR.
*
*       This routine can also be used to walk through the Pathname Table
*       by  calling the 'Find_Pathname' entry once and then calling the
*       'Next_Pathname' entry for each subsequent entry.  The Direct Page variable
*       'Handle' will point to  the handle of the current entry so it should be
*       bumped to the handle of the next entry between 'Next_Pathname' calls.
*
****************************************************************
*

Find_Pathname	PROC
		with	DirectPage, Globals

IUserID		EQU	9
FileNum		EQU	7
Path		EQU	3

		lda	|PATHTBL
		sta	Handle			;handle to 1st entry
		lda	|PATHTBL+2
		sta	Handle+2
		stz	Counter

		ENTRY	Next_Pathname
Next_Pathname

loop1		lda	Handle			;is handle 0?
		ora	Handle+2
		bne	cont1
		lda	#NoFind			;yes, No Find error
		phk				;set DBR to PBR
		plb
		jmp	error

cont1		lda	Handle
		ldy	Handle+2
		jsr	DeRefUse		;dereference Handle and use Pointer
;
;       if  input UserID­0, compare with value in entry
;
		lda	IUserID,s
		beq	cont2
		cmp	|PT_UserID,x
		bne	eloop2
;
;       if  input File Number­0, compare with value in entry
;
cont2		lda	FileNum,s
		beq	cont5
		cmp	|PT_FileNum,x
		bne	eloop2
;
;       if  pathname specified, compare with pathname in entry
;
cont5		lda	Path,s
		ora	Path+2,s
		beq	return			;found match, done
		lda	Path,s
		sta	TempZero
		lda	Path+2,s
		sta	TempZero+2
		txa
		clc
		adc	#PT_Path
		sta	TempZero+4
		phb
		phb
		pla
		and	#$00FF
		bcc	@1			;propage carry for possible
		inc	a			;bank crossing
@1
		sta	TempZero+6
		lda	[TempZero]
		inc	a
		tay
		sep	#$20
		longa	off
loop2		lda	[TempZero],y
		eor	[TempZero+4],y		;case insensitive comparison
		and	#$DF			;ignore the case bit
		bne	eloop2
		dey
		bpl	loop2
		bra	return			;matches

eloop2		rep	#$20
		longa	on
;
;        set Counter=max(Counter,File Number)
;
		lda	|PT_FileNum,x
		cmp	Counter
		bcc	eloop1
		sta	Counter
;
;        continue to next entry
;
eloop1		lda	|PT_Next,x
		sta	Handle			;bump Handle to Next Handle
		lda	|PT_Next+2,x
		sta	Handle+2

		jmp	loop1			;continue checking
;
;        normal return
;
return		rep	#$20
		longa	on
		lda	#0			;OK return
error		Stack_Cleanup 8			;remove input parameters
		rts

		ENDP

		TITLE	', STRUCT.a - Get_Pathname'
*
****************************************************************
*
*              Get Pathname
*
*  Inputs:     Handle - Handle  to Pathname Table entry
*
*  Outputs:    TempBuff - Address of temporary buffer containing pathname
*              A - status
*              C - set if error occurred
*
*  Zero Page used: Pointer
*
*        The pathname in the Pathname Table entry is moved into
*        a temporary buffer.  This buffer should be disposed after
*        the pathname is used.
*
****************************************************************
*

Get_Pathname	PROC
		with	DirectPage
;
;       lock input handle
;
		pei	Handle+2
		pei	Handle
		_HLock
;
;        set Pointer to address of pathname using Handle to entry
;
		lda	Handle
		ldy	Handle+2
		jsr	DeRef
		clc
		adc	#PT_Path
		sta	Pointer
		bcc	@1
		iny
@1		sty	Pointer+2
;
;        extract length of pathname and save
;
		lda	[Pointer]
		inc	a
		inc	a
		pha
;
;        get a temporary buffer
;
		jsr	Get_TempBuff
;
;       unlock input handle
;
		pei	Handle+2
		pei	Handle
		_HUnlock
;
;        unsave length of pathname
;
		plx
;
;        copy pathname to temporary buffer
;
		pei	Pointer+2		;Source
		pei	Pointer
		pei	TempBuff+2		;Destination
		pei	TempBuff
		pea	0
		phx				;Size

		jsr	Block_Move

error		rts

		ENDP

		TITLE	', STRUCT.a - Convert_Pathname'
*
****************************************************************
*
*              Convert Pathname
*
*  Inputs:     A,Y - Address of Pathname
*              X - pathname conversion code (0-Type 0 to 1)
*                                           (1-Type 1 to 0)
*
*  Outputs:    TempBuff - Address of converted pathname
*              A - status
*              C - set if error occurred
*
*  Zero Page used: TempZero
*
*        A temporary buffer is allocated for the converted pathname and
*        should be disposed after the pathname is used.  Use the DisposeAll
*        function with UserID 'uTempBuff' to dispose of the temporary buffer.
*
****************************************************************
*

Convert_Pathname PROC
		with	DirectPage
;
;        save inputs in direct page
;
		sta	TempZero
		sty	TempZero+2
		stx	TempZero+4
;
;        calculated converted pathname size
;
		lda	[TempZero]
		inc	a
		dex				;if class 0 string, use 1st byte
		beq	cont1			;if class 1 string, use word
		and	#$00FF
		inc	a
;
;        get temporary buffer for full pathname
;
cont1		jsr	Get_TempBuff
		pei	TempZero+2
		pei	TempZero
		pei	TempBuff+2
		pei	TempBuff
;
;        check conversion code
;
		ldx	TempZero+4
		dex
		beq	cont2
;
;        class 0 to 1 requested, call GS/OS Convert 0 routine
;
		jsl	CVT_0TO1
		bcc	return
		bra	error
;
;        class 1 to 0 requested, call GS/OS Convert 1 to 0 routine
;
cont2		jsl	CVT_1TO0
		bcs	error
;
;        replace the :'s in the pathname with /'s
;
		lda	[TempZero]
		tay
		sep	#$30
		longa	off
		longi	off
loop		lda	[TempBuff],y
		cmp	#':'
		bne	eloop
		lda	#'/'
		sta	[TempBuff],y
eloop		dey
		bne	loop
		rep	#$30
		longa	on
		longi	on
		tya				;zeroize accumulator (no error)
		rts

error		lda	#BadPath
return		rts

		ENDP

		TITLE	', STRUCT.a - Expand_Pathname'
*
****************************************************************
*
*              Expand Pathname
*
*  Inputs:     A,Y - Address of Partial Pathname
*
*  Outputs:    TempBuff - Address of full pathname
*              A - status
*              C - set if error occurred
*
*  Zero Page used: TempZero, Counter
*
*        A temporary buffer is allocated for the full pathname and should be
*        disposed after the pathname is used.  Use the DisposeAll function
*        with UserID 'uTempBuff' to dispose of the temporary buffer.
*
****************************************************************
*

Expand_Pathname	PROC
		with	DirectPage, Globals
;
;       save address of partial pathname
;
		sta	TempZero
		sty	TempZero+2
;
;       setup Expand_Path packet
;
		sta	|PExpandPath.inputPath	;input partial pathname
		sty	|PExpandPath.inputPath+2
		lda	#3
		sta	|PExpandPath.pCount	;parameter count
;		lda	#$8000
;		sta	|PExpandPath.flags	;uppercase flag
		stz	|PExpandPath.flags	;uppercase flag (no uppercasing)
;
;       get length  of partial pathname
;
		lda	[TempZero]
;
;       calculate initial buffer size = length  of partial pathname +4
;
cont2		clc
		adc	#4
		sta	Counter
;
;       get temporary buffer for full pathname
;
		jsr	Get_TempBuff
;
;       set length  of buffer in output string buffer
;
		lda	Counter
		sta	[TempBuff]
;
;       store address of buffer in  Expand_Path packet
;
		lda	TempBuff
		sta	|PExpandPath.outputPath
		lda	TempBuff+2
		sta	|PExpandPath.outputPath+2
;
;           call GS/OS  Expand_Path
;
		jsl	$E100A8
		dc.w	ExpandPath
		dc.l	PExpandPath
;
;       if  buffer too small, get needed size and try again
;
		bcc	cont5
		cmp	#buffTooSmall
		bne	cont3
		ldy	#2
		lda	[TempBuff],y
		bra	cont2
;
;       if  GS/OS is active, that means that GS/OS called RenamePath and we can
;       assume that the input filename is already expanded and in correct format
;
cont3		cmp	#gsosActive
		beq	cont4
		sec				;any other GS/OS error is really an error
		bra	error

cont4
		lda	TempZero
		sta	TempBuff
		lda	TempZero+2
		sta	TempBuff+2
		bra	return
;
;       otherwise,  point TempBuff to start of pathname
;
cont5		lda	TempBuff
		clc
		adc	#2
		sta	TempBuff
		bcc	return
		inc	TempBuff+2

return		lda	#0
		clc
error		rts

		ENDP

		TITLE	', STRUCT.a - Add_MemSeg'
*
****************************************************************
*
*        Add entry to Memory Segment Table
*
*  Inputs:     Memory Handle                 (TOS+11)
*              User ID                       (TOS+9)
*              Load File Number              (TOS+7)
*              Load Segment Number           (TOS+5)
*              Load Segment Kind             (TOS+3)
*
*  Outputs:    New table linked to last table (if previous exists)
*              A - status code
*              C - set if error
*
*  Zero Page used: TempZero
*
****************************************************************
*

Add_MemSeg	PROC
		with	DirectPage, Globals

IHandle		equ	11
IUserID		equ	9
FileNum		equ	7
SegNum		equ	5
Kind		equ	3
;
;        get a memory buffer for new entry
;
		lda	#0			;space for output Handle
		pha
		pha
		pea	MS_Kind+2>>16		;BlockSize
		pea	|MS_Kind+2
		pea	uSEGTBL			;Owner
		pea	attrNoCross+attrNoSpec	;Attributes
		pha				;Location
		pha

		_NewHandle			;get memory buffer

		plx
		ply
		stx	TempZero		;save returned handle
		sty	TempZero+2
		bcs	error

		txa
		jsr	DeRefUse		;dereference Handle and use Pointer
;
;        store components into Memory Segment entry
;
		stz	|MS_Next,x
		stz	|MS_Next+2,x
		stz	|MS_Prev,x
		stz	|MS_Prev+2,x
		lda	IUserID,s
		sta	|MS_UserID,x
		lda	IHandle,s
		sta	|MS_Handle,x
		lda	IHandle+2,s
		sta	|MS_Handle+2,x
		lda	FileNum,s
		sta	|MS_FileNum,x
		lda	SegNum,s
		sta	|MS_SegNum,x
		lda	Kind,s
		sta	|MS_Kind,x

		phk				;restore DBR to PBR
		plb
;
;        link new entry to previous
;
		pea	SEGTBL>>16
		pea	|SEGTBL
		pei	TempZero+2
		pei	TempZero
		jsr	Add_Link
;
;        return
;
		lda	#0			;OK return
error		Stack_Cleanup 12		;remove input parameters
		rts

		ENDP

		TITLE	', STRUCT.a - Find_MemSeg'
*
****************************************************************
*
*        Find entry in Memory Segment Table
*
*  Inputs:     User ID                       (TOS+7)
*              Load File Number              (TOS+5)
*              Load Segment Number           (TOS+3)
*
*  Outputs:    Handle of entry               (TOS+9)
*              X - low bytes of Pointer to entry
*              DBR - bank
*              Handle - Handle of Next entry
*              A - status code
*              C - set if entry not found or error ocurred
*
*  Zero Page used: Handle
*
*        If any of the inputs are 0, no comparison is made for that field.
*
*        Be careful! The DBR will be changed by this routine and the
*        calling program should restore its original DBR after referencing
*        the data in the entry.
*
*        This routine can also be used to walk through the Memory Segment Table
*        by calling the 'Find_MemSeg' entry once and then calling the
*        'Next_MemSeg' entry for each subsequent entry.  The Direct Page variable
*        'Handle' will point to the handle of the next entry so should not be
*        changed between 'Next_MemSeg' calls.
*
****************************************************************
*

Find_MemSeg	PROC
		with	DirectPage, Globals

OHandle		equ	9
IUserID		equ	7
FileNum		equ	5
SegNum		equ	3

		lda	>SEGTBL
		sta	Handle			;handle to 1st entry
		lda	>SEGTBL+2
		sta	Handle+2

		ENTRY	Next_MemSeg
Next_MemSeg

loop		lda	Handle			;is handle NIL?
		ora	Handle+2
		bne	cont1
		lda	#NoFind			;yes, No Find error
		bra	error

cont1		lda	Handle+2		;handle to entry
		tay
		sta	OHandle+2,s		;save as output
		lda	Handle
		sta	OHandle,s
		jsr	DeRefUse		;dereference Handle and use Pointer
		lda	|MS_Next,x
		sta	Handle			;bump Handle to Next Handle
		lda	|MS_Next+2,x
		sta	Handle+2
;
;        compare inputs with values in entry
;
		lda	IUserID,s
		beq	cont2
		cmp	|MS_UserID,x
		bne	loop
cont2		lda	FileNum,s
		beq	cont3
		cmp	|MS_FileNum,x
		bne	loop
cont3		lda	SegNum,s
		beq	return
		cmp	|MS_SegNum,x
		bne	loop
;
;        normal return
;
return		lda	#0			;OK return

error		Stack_Cleanup 6			;remove input parameters
		rts

		ENDP

		TITLE	', STRUCT.a - Remove_UserID'
*
****************************************************************
*
*        Remove entries from Table
*
*  Inputs:     UserID                 (TOS+7)
*              Address of Linked List (TOS+3)
*
*  Outputs:    none
*
*  Zero Page used: Handle, TempZero
*
*        This routine can be used to remove entries from the
*        Pathname Table, Jump Table List and any other Table
*        that:
*
*        1.  is a linked list (with forward and back handles)
*        2.  first entry is UserID
*
****************************************************************
*

Remove_UserID	PROC
		with	DirectPage

IUserID		equ	7
Address		equ	3

		lda	Address+2,s
		tay
		lda	Address,s
		jsr	DeRef
		sta	Handle			;handle to 1st entry
		sty	Handle+2

loop		ora	Handle+2
		beq	return			;yes, finished
		lda	Handle			;Y still has high word
		jsr	DeRefUse		;dereference Handle and use Pointer
;
;        save next Handle
;
		lda	|0,x
		sta	TempZero
		lda	|2,x
		sta	TempZero+2
;
;        check UserID
;
		lda	|8,x
		phk				;restore DBR
		plb
		cmp	IUserID,s
		bne	eloop
;
;        unlink this entry
;
		lda	Address+2,s		;address of Pathname Table
		pha
		lda	Address+2,s
		pha
		pei	Handle+2		;handle to this entry
		pei	Handle
		jsr	Remove_Link
;
;        continue to next entry
;
eloop		lda	TempZero+2
		sta	Handle+2		;bump Handle to Next Handle
		tay
		lda	TempZero
		sta	Handle
		bra	loop
;
;        normal return
;
return		phk				;restore DBR
		plb
		Stack_Cleanup 6			;remove input parameters
		rts

		ENDP

		TITLE	', STRUCT.a - Unload_JTL'
*
****************************************************************
*
*              Unload Jump Table Entries
*
*  Inputs:     User ID                         (TOS+7)
*              Load File Number                (TOS+5)
*              Load Segment Number             (TOS+3)
*
*  Outputs:    none
*
*  Zero Page used: none
*
*              This subroutine will make all entries with the
*              specified components in the Jump Table unloaded.
*
*              If Load File Number or Load Segment Number is 0,
*              no comparison is made for that field
*
****************************************************************
*

Unload_JTL	PROC
		with	DirectPage, Globals

IUserID		equ	7+4
FileNum		equ	5+4
SegNum		equ	3+4
;
;        push 1st entry in Jump Table List
;
		lda	|JMPTBL+2
		pha
		lda	|JMPTBL
		pha

loop1		ora	3,s			;is handle 0?
		beq	return			;yes, we are finished
cont1		lda	3,s			;no
		tay
		lda	1,s
		jsr	DeRefUse		;dereference Handle and use Pointer
;
;        is this Jump Table List entry for specified UserID?
;
		lda	|JT_UserID,x
		cmp	IUserID,s
		bne	eloop1			;if not, skip this entry
;
;        find Jump Table
;
		lda	|JT_Handle,x
		ldy	|JT_Handle+2,x
		jsr	DeRef			;dereference handle
		bcs	eloop1			;skip if handle is NIL
		jsr	UsePtr			;make pointer useable
;
;        move X past 8 zero bytes to first entry in Jump Table
;        (this will not be necessary when Linker changed)
;
		txa
		clc
		adc	#8
		tax
;
;        compare inputs with values in entry
;
loop2		lda	|JE_UserID,x
		beq	eloop1			;if UserID=0, no more entries
		cmp	IUserID,s		;redundant check for UserID
		bne	eloop2
cont2		lda	FileNum,s
		beq	cont3
		cmp	|JE_FileNum,x
		bne	eloop2
cont3		lda	SegNum,s
		beq	cont4
		cmp	|JE_SegNum,x
		bne	eloop2
;
;        entry satisfies input conditions, make unloaded
;
cont4		lda	>jump_load_instr	;JSL instruction and 1st byte of address
		sta	|JE_jsl,x
		lda	>jump_load_instr+2	;last two bytes of address
		sta	|JE_jsl+2,x
;
;        bump X to next entry
;
eloop2		txa
		clc
		adc	#JE_jsl+4
		tax
		bra	loop2
;
;        bump Handle to next Jump Table List entry
;
eloop1		lda	3,s
		tay
		lda	1,s
		jsr	DeRefUse		;dereference Handle and use Pointer
		lda	|JT_Next+2,x
		sta	3,s
		lda	|JT_Next,x		;bump Handle to Next Handle
		sta	1,s
		bra	loop1

return		pla				;pull last Handle off stack
		pla
		Stack_Cleanup 6			;remove input parameters
		phk				;set DBR to PBR
		plb
		rts

		ENDP

		TITLE	', STRUCT.a - Cleanup'
*
****************************************************************
*
*              Cleanup Routine
*
*  Inputs:     UserID (2 bytes)         (TOS+3)
*
*  Outputs:    none
*
*  Zero Page used: TempZero, Handle
*
****************************************************************
*

Cleanup		PROC
		with	DirectPage, Globals

IUserID		equ	3
;
;           if UserID is not 0, remove UserID from Jump Table first
;
		lda	IUserID,s
		beq	cont
		pha
		pea	JMPTBL>>16
		pea	|JMPTBL
		jsr	Remove_UserID
;
cont		lda	IUserID,s		;UserID
		pha
		ldx	#0			;Load File Number (all)
		phx
		phx				;Load Segment Number (all)
		phx				;Dynamic Only Flag (no)
		phx				;Purge Level (real purge)
		jsr	Purge_Segment

return		lda	#0			;OK return
error		Stack_Cleanup 2			;remove input parameters
		rts

		ENDP


\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/MakeFiles/Make.DOS3.3.FST b/IIGS.601.SRC/GS.OS/MakeFiles/Make.DOS3.3.FST
new file mode 100644
index 0000000..8af7db3
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/MakeFiles/Make.DOS3.3.FST
@@ -0,0 +1 @@
+#####################################################################################
# DOS 3.3 FST Makefile
# By Monte Benaresh
# 14 Aug 89
#
#####################################################################################
AOPTIONS	= -D DEBUGSYMBOLS=0

{SDfsts}DOS3.3.FST Ä {Makefiles}make.dos3.3.fst		¶
			{object}DOS3.3.FST.obj
	linkiigs 	{object}DOS3.3.FST.obj		¶
			-t $BD				¶
			-o {object}DOS3.3.FST {LnkOptions}
	Duplicate -y {object}DOS3.3.FST  {SDfsts}DOS3.3.FST

{object}DOS3.3.FST.obj Ä	{DOS3.3}DOS3.3.FST		¶
				{DOS3.3}DOS.FST.identifiers	¶
				{DOS3.3}DOS.FST.storage		¶
				{DOS3.3}my.all.macros		¶
				{DOS3.3}my.common.equ		¶
				{DOS3.3}param.records
	Asmiigs {DOS3.3}DOS3.3.FST -w -o {object}DOS3.3.FST.obj {AOptions} {AsmOptions}
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/MakeFiles/Make.Scanner.Driver b/IIGS.601.SRC/GS.OS/MakeFiles/Make.Scanner.Driver
new file mode 100644
index 0000000..bcacd76
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/MakeFiles/Make.Scanner.Driver
@@ -0,0 +1 @@
+#   File:       makefile
#   Target:     SCSIScan.Drvr
#   Sources:    'SCSI Driver main'
#               'SCSI Command Table'
#               'SCSI Filter startup'
#               'SCSI Filter open'
#               'SCSI Filter read'
#               'SCSI Filter write'
#               'SCSI Filter close'
#               'SCSI Filter status'
#               'SCSI Filter control'
#               'SCSI Filter flush'
#               'SCSI Filter shutdown'
#               'SCSI Main Driver'
#               'SCSI Driver Mgmt'
#   Created:    Monday, August 7, 1989 13:32:49 PM
#  Modified:    Monday, August 7, 1989 13:32:49 PM

{SDdrivers}SCSIScan.Driver ÄÄ  ¶
		{Object}'SCSIScanner Driver main.obj' ¶
		{Object}'SCSIScanner Command Table.obj' ¶
		{Object}'SCSIScanner Filter startup.obj' ¶
		{Object}'SCSIScanner Filter open.obj' ¶
		{Object}'SCSIScanner Filter read.obj' ¶
		{Object}'SCSIScanner Filter write.obj' ¶
		{Object}'SCSIScanner Filter close.obj' ¶
		{Object}'SCSIScanner Filter status.obj' ¶
		{Object}'SCSIScanner Filter control.obj' ¶
		{Object}'SCSIScanner Filter flush.obj' ¶
		{Object}'SCSIScanner Filter shutdown.obj' ¶
		{Object}'SCSIScanner Main Driver.obj' ¶
		{Object}'SCSIScanner Driver Mgmt.obj'
    LinkIIGS -t $bb -at $0103 ¶
		{Object}'SCSIScanner Driver main.obj' ¶
		{Object}'SCSIScanner Command Table.obj' ¶
		{Object}'SCSIScanner Filter startup.obj' ¶
		{Object}'SCSIScanner Filter open.obj' ¶
		{Object}'SCSIScanner Filter read.obj' ¶
		{Object}'SCSIScanner Filter write.obj' ¶
		{Object}'SCSIScanner Filter close.obj' ¶
		{Object}'SCSIScanner Filter status.obj' ¶
		{Object}'SCSIScanner Filter control.obj' ¶
		{Object}'SCSIScanner Filter flush.obj' ¶
		{Object}'SCSIScanner Filter shutdown.obj' ¶
		{Object}'SCSIScanner Main Driver.obj' ¶
		{Object}'SCSIScanner Driver Mgmt.obj' ¶
		-o {Object}SCSIScanner.Driver.lnk
    duplicate -y ¶
		{Object}SCSIScanner.Driver.lnk ¶
		{SDdrivers}SCSIScan.Driver
{Object}'SCSIScanner Driver main.obj' Ä ¶
		{SCSIdrivers}'SCSI Driver main' ¶
		{SCSIdrivers}'SCSIHD.Equates'
	AsmIIGS -d &type,type=3 {SCSIdrivers}'SCSI Driver main' ¶
		-o {Object}'SCSIScanner Driver main.obj'
{Object}'SCSIScanner Command Table.obj' Ä ¶
		{SCSIdrivers}'SCSI Command Table' ¶
		{SCSIdrivers}'SCSIHD.Equates'
	AsmIIGS -d &type,type=3 {SCSIdrivers}'SCSI Command Table' ¶
		-o {Object}'SCSIScanner Command Table.obj'
{Object}'SCSIScanner Filter startup.obj' Ä ¶
		{SCSIdrivers}'SCSI Filter startup' ¶
		{SCSIdrivers}'SCSIHD.Equates'
	AsmIIGS -d &type,type=3 {SCSIdrivers}'SCSI Filter startup' ¶
		-o {Object}'SCSIScanner Filter startup.obj'
{Object}'SCSIScanner Filter open.obj' Ä ¶
		{SCSIdrivers}'SCSI Filter open' ¶
		{SCSIdrivers}'SCSIHD.Equates'
	AsmIIGS -d &type,type=3 {SCSIdrivers}'SCSI Filter open' ¶
		-o {Object}'SCSIScanner Filter open.obj'
{Object}'SCSIScanner Filter read.obj' Ä ¶
		{SCSIdrivers}'SCSI Filter read' ¶
		{SCSIdrivers}'SCSIHD.Equates'
	AsmIIGS -d &type,type=3 {SCSIdrivers}'SCSI Filter read' ¶
		-o {Object}'SCSIScanner Filter read.obj'
{Object}'SCSIScanner Filter write.obj' Ä ¶
		{SCSIdrivers}'SCSI Filter write' ¶
		{SCSIdrivers}'SCSIHD.Equates'
	AsmIIGS -d &type,type=3 {SCSIdrivers}'SCSI Filter write' ¶
		-o {Object}'SCSIScanner Filter write.obj'
{Object}'SCSIScanner Filter close.obj' Ä ¶
		{SCSIdrivers}'SCSI Filter close' ¶
		{SCSIdrivers}'SCSIHD.Equates'
	AsmIIGS -d &type,type=3 {SCSIdrivers}'SCSI Filter close' ¶
		-o {Object}'SCSIScanner Filter close.obj'
{Object}'SCSIScanner Filter status.obj' Ä ¶
		{SCSIdrivers}'SCSI Filter status' ¶
		{SCSIdrivers}'SCSIHD.Equates'
	AsmIIGS -d &type,type=3 {SCSIdrivers}'SCSI Filter status' ¶
		-o {Object}'SCSIScanner Filter status.obj'
{Object}'SCSIScanner Filter control.obj' Ä ¶
		{SCSIdrivers}'SCSI Filter control' ¶
		{SCSIdrivers}'SCSIHD.Equates'
	AsmIIGS -d &type,type=3 {SCSIdrivers}'SCSI Filter control' ¶
		-o {Object}'SCSIScanner Filter control.obj'
{Object}'SCSIScanner Filter flush.obj' Ä ¶
		{SCSIdrivers}'SCSI Filter flush' ¶
		{SCSIdrivers}'SCSIHD.Equates'
	AsmIIGS -d &type,type=3 {SCSIdrivers}'SCSI Filter flush' ¶
		-o {Object}'SCSIScanner Filter flush.obj'
{Object}'SCSIScanner Filter shutdown.obj' Ä ¶
		{SCSIdrivers}'SCSI Filter shutdown' ¶
		{SCSIdrivers}'SCSIHD.Equates'
	AsmIIGS -d &type,type=3 {SCSIdrivers}'SCSI Filter shutdown' ¶
		-o {Object}'SCSIScanner Filter shutdown.obj'
{Object}'SCSIScanner Main Driver.obj' Ä ¶
		{SCSIdrivers}'SCSI Main Driver' ¶
		{SCSIdrivers}'SCSIHD.Equates'
	AsmIIGS -d &type,type=3 {SCSIdrivers}'SCSI Main Driver' ¶
		-o {Object}'SCSIScanner Main Driver.obj'
{Object}'SCSIScanner Driver Mgmt.obj' Ä ¶
		{SCSIdrivers}'SCSI Driver Mgmt' ¶
		{SCSIdrivers}'SCSIHD.Equates'
	AsmIIGS -d &type,type=3 {SCSIdrivers}'SCSI Driver Mgmt' ¶
		-o {Object}'SCSIScanner Driver Mgmt.obj'
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/MakeFiles/Make.Slinky b/IIGS.601.SRC/GS.OS/MakeFiles/Make.Slinky
new file mode 100644
index 0000000..b28721a
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/MakeFiles/Make.Slinky
@@ -0,0 +1 @@
+######################################################
#
# Rules to build the Slinky driver
#
"{SDdrivers}"Slinky	Ä	"{object}"Slinky.obj		
	LinkIIGS 					¶
		"{object}"Slinky.obj 	¶
		-t $bb					¶
		-at $0107				¶
		-o "{object}"Slinky {LnkOptions}
	Duplicate -y  "{object}"Slinky "{SDdrivers}"Slinky

"{object}"Slinky.obj Ä "{Drivers}"Slinky:Slinky.aii	¶
				"{common}"common.equ.src ¶
				"{common}"hw.equ.src
 AsmIIGS "{Drivers}"Slinky:Slinky.aii ¶
 	-o "{object}"Slinky.Obj -i "{common}" {AsmOptions}
	
	
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/MakeFiles/Make.Tape.Driver b/IIGS.601.SRC/GS.OS/MakeFiles/Make.Tape.Driver
new file mode 100644
index 0000000..4797f99
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/MakeFiles/Make.Tape.Driver
@@ -0,0 +1 @@
+#   File:       makefile
#   Target:     SCSITape.Driver
#   Sources:    'SCSI Driver main'
#               'SCSI Command Table'
#               'SCSI Filter startup'
#               'SCSI Filter open'
#               'SCSI Filter read'
#               'SCSI Filter write'
#               'SCSI Filter close'
#               'SCSI Filter status'
#               'SCSI Filter control'
#               'SCSI Filter flush'
#               'SCSI Filter shutdown'
#               'SCSI Main Driver'
#               'SCSI Driver Mgmt'
#   Created:    Monday, August 7, 1989 13:32:49 PM
#  Modified:    Monday, August 7, 1989 13:32:49 PM

{SDdrivers}SCSITape.Driver ÄÄ  ¶
		{Object}'SCSITape Driver main.obj' ¶
		{Object}'SCSITape Command Table.obj' ¶
		{Object}'SCSITape Filter startup.obj' ¶
		{Object}'SCSITape Filter open.obj' ¶
		{Object}'SCSITape Filter read.obj' ¶
		{Object}'SCSITape Filter write.obj' ¶
		{Object}'SCSITape Filter close.obj' ¶
		{Object}'SCSITape Filter status.obj' ¶
		{Object}'SCSITape Filter control.obj' ¶
		{Object}'SCSITape Filter flush.obj' ¶
		{Object}'SCSITape Filter shutdown.obj' ¶
		{Object}'SCSITape Main Driver.obj' ¶
		{Object}'SCSITape Driver Mgmt.obj'
    LinkIIGS -t $bb -at $0103 ¶
		{Object}'SCSITape Driver main.obj' ¶
		{Object}'SCSITape Command Table.obj' ¶
		{Object}'SCSITape Filter startup.obj' ¶
		{Object}'SCSITape Filter open.obj' ¶
		{Object}'SCSITape Filter read.obj' ¶
		{Object}'SCSITape Filter write.obj' ¶
		{Object}'SCSITape Filter close.obj' ¶
		{Object}'SCSITape Filter status.obj' ¶
		{Object}'SCSITape Filter control.obj' ¶
		{Object}'SCSITape Filter flush.obj' ¶
		{Object}'SCSITape Filter shutdown.obj' ¶
		{Object}'SCSITape Main Driver.obj' ¶
		{Object}'SCSITape Driver Mgmt.obj' ¶
		-o {Object}SCSITape.Driver.lnk
    duplicate -y ¶
		{Object}SCSITape.Driver.lnk ¶
		{SDdrivers}SCSITape.Driver
{Object}'SCSITape Driver main.obj' Ä ¶
		{SCSIdrivers}'SCSI Driver main' ¶
		{SCSIdrivers}'SCSIHD.equates'
	AsmIIGS -d &type,type=2 {SCSIdrivers}'SCSI Driver main' ¶
		-o {Object}'SCSITape Driver main.obj'
{Object}'SCSITape Command Table.obj' Ä ¶
		{SCSIdrivers}'SCSI Command Table' ¶
		{SCSIdrivers}'SCSIHD.equates'
	AsmIIGS -d &type,type=2 {SCSIdrivers}'SCSI Command Table' ¶
		-o {Object}'SCSITape Command Table.obj'
{Object}'SCSITape Filter startup.obj' Ä ¶
		{SCSIdrivers}'SCSI Filter startup' ¶
		{SCSIdrivers}'SCSIHD.equates'
	AsmIIGS -d &type,type=2 {SCSIdrivers}'SCSI Filter startup' ¶
		-o {Object}'SCSITape Filter startup.obj'
{Object}'SCSITape Filter open.obj' Ä ¶
		{SCSIdrivers}'SCSI Filter open' ¶
		{SCSIdrivers}'SCSIHD.equates'
	AsmIIGS -d &type,type=2 {SCSIdrivers}'SCSI Filter open' ¶
		-o {Object}'SCSITape Filter open.obj'
{Object}'SCSITape Filter read.obj' Ä ¶
		{SCSIdrivers}'SCSI Filter read' ¶
		{SCSIdrivers}'SCSIHD.equates'
	AsmIIGS -d &type,type=2 {SCSIdrivers}'SCSI Filter read' ¶
		-o {Object}'SCSITape Filter read.obj'
{Object}'SCSITape Filter write.obj' Ä ¶
		{SCSIdrivers}'SCSI Filter write' ¶
		{SCSIdrivers}'SCSIHD.equates'
	AsmIIGS -d &type,type=2 {SCSIdrivers}'SCSI Filter write' ¶
		-o {Object}'SCSITape Filter write.obj'
{Object}'SCSITape Filter close.obj' Ä ¶
		{SCSIdrivers}'SCSI Filter close' ¶
		{SCSIdrivers}'SCSIHD.equates'
	AsmIIGS -d &type,type=2 {SCSIdrivers}'SCSI Filter close' ¶
		-o {Object}'SCSITape Filter close.obj'
{Object}'SCSITape Filter status.obj' Ä ¶
		{SCSIdrivers}'SCSI Filter status' ¶
		{SCSIdrivers}'SCSIHD.equates'
	AsmIIGS -d &type,type=2 {SCSIdrivers}'SCSI Filter status' ¶
		-o {Object}'SCSITape Filter status.obj'
{Object}'SCSITape Filter control.obj' Ä ¶
		{SCSIdrivers}'SCSI Filter control' ¶
		{SCSIdrivers}'SCSIHD.equates'
	AsmIIGS -d &type,type=2 {SCSIdrivers}'SCSI Filter control' ¶
		-o {Object}'SCSITape Filter control.obj'
{Object}'SCSITape Filter flush.obj' Ä ¶
		{SCSIdrivers}'SCSI Filter flush' ¶
		{SCSIdrivers}'SCSIHD.equates'
	AsmIIGS -d &type,type=2 {SCSIdrivers}'SCSI Filter flush' ¶
		-o {Object}'SCSITape Filter flush.obj'
{Object}'SCSITape Filter shutdown.obj' Ä ¶
		{SCSIdrivers}'SCSI Filter shutdown' ¶
		{SCSIdrivers}'SCSIHD.equates'
	AsmIIGS -d &type,type=2 {SCSIdrivers}'SCSI Filter shutdown' ¶
		-o {Object}'SCSITape Filter shutdown.obj'
{Object}'SCSITape Main Driver.obj' Ä ¶
		{SCSIdrivers}'SCSI Main Driver' ¶
		{SCSIdrivers}'SCSIHD.equates'
	AsmIIGS -d &type,type=2 {SCSIdrivers}'SCSI Main Driver' ¶
		-o {Object}'SCSITape Main Driver.obj'
{Object}'SCSITape Driver Mgmt.obj' Ä ¶
		{SCSIdrivers}'SCSI Driver Mgmt' ¶
		{SCSIdrivers}'SCSIHD.equates'
	AsmIIGS -d &type,type=2 {SCSIdrivers}'SCSI Driver Mgmt' ¶
		-o {Object}'SCSITape Driver Mgmt.obj'
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/MakeFiles/make.ETalk b/IIGS.601.SRC/GS.OS/MakeFiles/make.ETalk
new file mode 100644
index 0000000..09ce27f
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/MakeFiles/make.ETalk
@@ -0,0 +1 @@
+#
# 21-Apr-92	MSD		Removed the EtherTalk DA from the build.
#

ETalk			=	{Drivers}ETalk:


Both.Etalk.Drivers		Ä	{SDDrivers}ETalk {ETalk}ETBoot

{SDDrivers}ETalk		Ä	{ETalk}ETalk.aii.obj
	if "{ListFlag}" || "{MSDListFlag}"
		set LnkOptions "-l > {Listings}ETalk.map"
	end
	LinkIIGS {ETalk}ETalk.aii.obj ¶
		-t $BB ¶
		-at $0213 ¶
		-o {SDDrivers}ETalk ¶
		{LnkOptions}

{ETalk}ETBoot			Ä	{ETalk}ETBoot.obj
	if "{ListFlag}" || "{MSDListFlag}"
		set LnkOptions "-l > {Listings}ETBoot.map"
	end
	LinkIIGS {ETalk}ETBoot.obj ¶
		-o {ETalk}ETBoot ¶
		{LnkOptions}

{ETalk}ETalk.aii.obj	Ä	{ETalk}ETalk.aii
	if "{ListFlag}" || "{MSDListFlag}"
		set AsmOptions "-f -l -m -lo {Listings}"
	end
	AsmIIGS {ETalk}ETalk.aii ¶
		-d NetBoot=0 ¶
		{AsmOptions} ¶
		-o {ETalk}ETalk.aii.obj

{ETalk}ETBoot.obj		Ä	{ETalk}ETalk.aii
	if "{ListFlag}" || "{MSDListFlag}"
		set AsmOptions "-f -l -m -lo {Listings}ETBoot.lst"
	end
	AsmIIGS {ETalk}ETalk.aii ¶
		-d NetBoot=1 ¶
		{AsmOptions} ¶
		-o {ETalk}ETBoot.obj
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/MakeFiles/make.ExpressLoad b/IIGS.601.SRC/GS.OS/MakeFiles/make.ExpressLoad
new file mode 100644
index 0000000..03bb518
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/MakeFiles/make.ExpressLoad
@@ -0,0 +1 @@
+######################################################
#
# Rules to build ExpressLoad
#
{SDSystem}ExpressLoad 	Ä		{object}ExpressLoad.obj			
		linkiigs 	{object}ExpressLoad.obj 		¶
			-t $F9						¶
			-x # no need to put THIS in ExpressLoad Format! ¶
			-o {SDSystem}ExpressLoad {LnkOptions}

{object}ExpressLoad.obj		Ä		{ExpressLoad}ExpressLoad.src		¶
						{ExpressLoad}ExpressLoad.Data		¶
						{ExpressLoad}ProcReloc.DataBankChanged	¶
						{ExpressLoad}ExpressLoad.Macros
						
		Asmiigs {ExpressLoad}ExpressLoad.src -o {object}ExpressLoad.obj  {AsmOptions}
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/MakeFiles/make.MSDos b/IIGS.601.SRC/GS.OS/MakeFiles/make.MSDos
new file mode 100644
index 0000000..5c3a2b2
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/MakeFiles/make.MSDos
@@ -0,0 +1 @@
+######################################################
#
# Rules to build the MS-DOS FST
#

# Main dependency rules

"{SDfsts}"MSDos.FST 	Ä		"{object}"MSDos.obj "{WorkFolder}"MSDos.lib
	linkiigs -t $BD						¶
#		"{CIIGSLibraries}BankAlign.obj"	¶
		"{object}"MSDos.obj 			¶
		-lib "{WorkFolder}"MSDos.lib	¶
		-o "{SDfsts}"MSDos.FST	 		¶
		{LnkOptions}

"{WorkFolder}"MSDos.lib	Ä	"{Object}"MSDos.Calls.obj ¶
							"{Object}"MSDos.Subs.obj ¶
							"{Object}"MSDos.data.obj
	Delete -i "{WorkFolder}"MSDos.lib
	MakeLibIIGS -l "{WorkFolder}"MSDos.lib -r ¶
		"{object}"MSDos.Calls.obj ¶
		"{Object}"MSDos.Subs.obj ¶
		"{object}"MSDos.data.obj

# default rules

"{Object}"	Ä	"{MSDos}"

.obj		Ä	.aii
	if "{AsmOptions}" != ""
		set tmpAsmOptions "-l -m -lo {Listings}{Default}.lst -pagesize 70"
	else
		unset tmpAsmOptions
	end
	AsmIIGS "{MSDos}{Default}.aii" -o "{Object}{Default}.obj" -i "{Common}" {tmpAsmOptions}

# include file dependencies

"{object}"MSDos.Calls.obj	Ä	"{MSDos}"MSDos.equ ¶
								"{MSDos}"MSDos.Data.inc ¶
								"{MSDos}"MSDos.Subs.inc

"{object}"MSDos.Subs.obj	Ä	"{MSDos}"MSDos.equ ¶
								"{MSDos}"MSDos.Data.inc

"{Object}"MSDos.obj			¶
"{Object}"MSDos.data.obj	Ä	"{MSDos}"MSDos.equ

"{MSDos}"MSDos.equ			Ä	"{common}"Common.equ.src "{Common}"hw.equ.src
	SetFile -m . "{MSDos}"MSDos.equ
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/MakeFiles/make.QuickConsole b/IIGS.601.SRC/GS.OS/MakeFiles/make.QuickConsole
new file mode 100644
index 0000000..d04c251
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/MakeFiles/make.QuickConsole
@@ -0,0 +1 @@
+#
# QuickConsole MakeFile
#
# QuickConsole - a permanent init file that speeds up I/O to the .CONSOLE driver
#

"{SDSetupFiles}"QuickConsole	ÄÄ	"{object}"QuickConsole.obj
	if "{ListFlag}"; set LnkOptions "-l > {Listings}QuickConsole.map"; end
	LinkIIGS -t  $B6 "{object}"QuickConsole.obj ¶
		-o "{object}"QuickConsole {LnkOptions}
	Duplicate -y "{object}"QuickConsole "{SDSetupFiles}"QuickConsole

"{object}"QuickConsole.obj Ä	"{SetUpFiles}"QuickConsole:QuickConsole.aii ¶
								"{common}"Common.equ.src
	if "{ListFlag}"; set AsmOptions "-l -m -lo "{Listings}"QuickConsole.lst"; end
	ASMIIGS "{SetUpFiles}"QuickConsole:QuickConsole.aii ¶
		-o "{object}"QuickConsole.obj -i "{Common}" {AsmOptions}
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/MakeFiles/make.RAM5 b/IIGS.601.SRC/GS.OS/MakeFiles/make.RAM5
new file mode 100644
index 0000000..1d873d0
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/MakeFiles/make.RAM5
@@ -0,0 +1 @@
+######################################################
#
# Rules to build the RAM5 driver
#
"{SDdrivers}"RAM5	Ä	"{object}"RAM5.obj		
	LinkIIGS 					¶
		"{object}"RAM5.obj 		¶
		-t $bb					¶
		-at $0101				¶
		-o "{object}"RAM5 {LnkOptions}
	Duplicate -y  "{object}"RAM5 "{SDdrivers}"RAM5

"{object}"RAM5.obj Ä "{Drivers}"RAM5:RAM5.aii	¶
				"{common}"common.equ.src ¶
				"{common}"hw.equ.src
 AsmIIGS "{Drivers}"RAM5:RAM5.aii ¶
 	-o "{object}"RAM5.Obj -i "{common}" {AsmOptions}
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/MakeFiles/make.SCCmanager b/IIGS.601.SRC/GS.OS/MakeFiles/make.SCCmanager
new file mode 100644
index 0000000..7e23015
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/MakeFiles/make.SCCmanager
@@ -0,0 +1 @@
+######################################################
#
# Rules to build the SCC.Manager driver
#

{SDdrivers}SCC.Manager	Ä	{SupervisoryDrivers}SCCManager:driver.aii.obj
	if "{ListFlag}" || "{TGHListFlag}"
		set LnkOptions "-l > {Listings}atalk.lst"
	end
	linkiigs 	{SupervisoryDrivers}SCCManager:driver.aii.obj ¶
			-t	$BB ¶
			-at	$0140 ¶
			-o	{SDdrivers}SCC.Manager ¶
			{LnkOptions}

{SupervisoryDrivers}SCCManager:driver.aii.obj	Ä	{SupervisoryDrivers}SCCManager:driver.aii ¶
													{SupervisoryDrivers}SCCManager:equates
	if "{ListFlag}" || "{TGHListFlag}"
		set AsmOptions "-f -l -m -lo {Listings}"
	end
	asmiigs		{SupervisoryDrivers}SCCManager:driver.aii ¶
			-i	{SupervisoryDrivers}SCCManager: ¶
			{AsmOptions}
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/MakeFiles/make.SCSImanager b/IIGS.601.SRC/GS.OS/MakeFiles/make.SCSImanager
new file mode 100644
index 0000000..cbfda5f
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/MakeFiles/make.SCSImanager
@@ -0,0 +1 @@
+#   File:       SCSI.Manager.make
#   Target:     SCSI.Manager
#   Sources:    SCSIM.Header
#               SCSIM.History
#               SCSIM.Variables
#               SCSIM.Entry
#               SCSIM.Startup
#               SCSIM.Shutdown
#               SCSIM.Req.Devs
#               SCSIM.Claim.Devs
#               SCSIM.IO.Calls
#               SCSIM.Mgmnt
#               SCSIM.Misc
#   Created:    Tuesday, June 13, 1989 8:30:49 AM
#  Modified:    Tuesday, August 29, 1989 11:21:49 AM
#
#	Dependency Rules for SCSI Manager
#
{Object}'SCSI.Manager' Ä ¶
		{Object}SCSIM.Header.obj ¶
		{Object}SCSIM.History.obj ¶
		{Object}SCSIM.Variables.obj ¶
		{Object}SCSIM.Entry.obj ¶
		{Object}SCSIM.Startup.obj ¶
		{Object}SCSIM.Shutdown.obj ¶
		{Object}SCSIM.Req.Devs.obj ¶
		{Object}SCSIM.Claim.Devs.obj ¶
		{Object}SCSIM.IO.Calls.obj ¶
		{Object}SCSIM.Mgmnt.obj ¶
		{Object}SCSIM.Misc.obj
    LinkIIGS -t $BB -at $0140 ¶
		{Object}SCSIM.Header.obj ¶
		{Object}SCSIM.History.obj ¶
		{Object}SCSIM.Variables.obj ¶
		{Object}SCSIM.Entry.obj ¶
		{Object}SCSIM.Startup.obj ¶
		{Object}SCSIM.Shutdown.obj ¶
		{Object}SCSIM.Req.Devs.obj ¶
		{Object}SCSIM.Claim.Devs.obj ¶
		{Object}SCSIM.IO.Calls.obj ¶
		{Object}SCSIM.Mgmnt.obj ¶
		{Object}SCSIM.Misc.obj ¶
		-o {Object}SCSI.Manager {LnkOptions}
    duplicate -y ¶
		{Object}SCSI.Manager ¶
		{SDdrivers}SCSI.Manager
{Object}SCSIM.Header.obj Ä ¶
		{common}common.equ.src ¶
		{common}driver.equ.src ¶
		{common}hw.equ.src ¶
		{SCSI.Manager(1meg)}SCSIM.Header ¶
		{SCSI.Manager(1meg)}SCSIM.Equates
	AsmIIGS -i {common} {SCSI.Manager(1meg)}SCSIM.Header ¶
		-o {Object}SCSIM.Header.obj {AsmOptions}
{Object}SCSIM.History.obj Ä ¶
		{common}common.equ.src ¶
		{common}driver.equ.src ¶
		{common}hw.equ.src ¶
		{SCSI.Manager(1meg)}SCSIM.History ¶
		{SCSI.Manager(1meg)}SCSIM.Equates
	AsmIIGS -i {common} {SCSI.Manager(1meg)}SCSIM.History ¶
		-o {Object}SCSIM.History.obj {AsmOptions}
{Object}SCSIM.Variables.obj Ä ¶
		{common}common.equ.src ¶
		{common}driver.equ.src ¶
		{common}hw.equ.src ¶
		{SCSI.Manager(1meg)}SCSIM.Variables ¶
		{SCSI.Manager(1meg)}SCSIM.Equates
	AsmIIGS -i {common} {SCSI.Manager(1meg)}SCSIM.Variables ¶
		-o {Object}SCSIM.Variables.obj {AsmOptions}
{Object}SCSIM.Entry.obj Ä ¶
		{common}common.equ.src ¶
		{common}driver.equ.src ¶
		{common}hw.equ.src ¶
		{SCSI.Manager(1meg)}SCSIM.Entry ¶
		{SCSI.Manager(1meg)}SCSIM.Equates
	AsmIIGS -i {common} {SCSI.Manager(1meg)}SCSIM.Entry ¶
		-o {Object}SCSIM.Entry.obj {AsmOptions}
{Object}SCSIM.Startup.obj Ä ¶
		{common}common.equ.src ¶
		{common}driver.equ.src ¶
		{common}hw.equ.src ¶
		{SCSI.Manager(1meg)}SCSIM.Startup ¶
		{SCSI.Manager(1meg)}SCSIM.Equates
	AsmIIGS -i {common} {SCSI.Manager(1meg)}SCSIM.Startup ¶
		-o {Object}SCSIM.Startup.obj {AsmOptions}
{Object}SCSIM.Shutdown.obj Ä ¶
		{common}common.equ.src ¶
		{common}driver.equ.src ¶
		{common}hw.equ.src ¶
		{SCSI.Manager(1meg)}SCSIM.Shutdown ¶
		{SCSI.Manager(1meg)}SCSIM.Equates
	AsmIIGS -i {common} {SCSI.Manager(1meg)}SCSIM.Shutdown ¶
		-o {Object}SCSIM.Shutdown.obj {AsmOptions}
{Object}SCSIM.Req.Devs.obj Ä ¶
		{common}common.equ.src ¶
		{common}driver.equ.src ¶
		{common}hw.equ.src ¶
		{SCSI.Manager(1meg)}SCSIM.Req.Devs ¶
		{SCSI.Manager(1meg)}SCSIM.Equates
	AsmIIGS -i {common} {SCSI.Manager(1meg)}SCSIM.Req.Devs ¶
		-o {Object}SCSIM.Req.Devs.obj {AsmOptions}
{Object}SCSIM.Claim.Devs.obj Ä ¶
		{common}common.equ.src ¶
		{common}driver.equ.src ¶
		{common}hw.equ.src ¶
		{SCSI.Manager(1meg)}SCSIM.Claim.Devs ¶
		{SCSI.Manager(1meg)}SCSIM.Equates
	AsmIIGS -i {common} {SCSI.Manager(1meg)}SCSIM.Claim.Devs ¶
		-o {Object}SCSIM.Claim.Devs.obj {AsmOptions}
{Object}SCSIM.IO.Calls.obj Ä ¶
		{common}common.equ.src ¶
		{common}driver.equ.src ¶
		{common}hw.equ.src ¶
		{SCSI.Manager(1meg)}SCSIM.IO.Calls ¶
		{SCSI.Manager(1meg)}SCSIM.Equates
	AsmIIGS -i {common} {SCSI.Manager(1meg)}SCSIM.IO.Calls ¶
		-o {Object}SCSIM.IO.Calls.obj {AsmOptions}
{Object}SCSIM.Mgmnt.obj Ä ¶
		{common}common.equ.src ¶
		{common}driver.equ.src ¶
		{common}hw.equ.src ¶
		{SCSI.Manager(1meg)}SCSIM.Mgmnt ¶
		{SCSI.Manager(1meg)}SCSIM.Equates
	AsmIIGS -i {common} {SCSI.Manager(1meg)}SCSIM.Mgmnt ¶
		-o {Object}SCSIM.Mgmnt.obj {AsmOptions}
{Object}SCSIM.Misc.obj Ä ¶
		{common}common.equ.src ¶
		{common}driver.equ.src ¶
		{common}hw.equ.src ¶
		{SCSI.Manager(1meg)}SCSIM.Misc ¶
		{SCSI.Manager(1meg)}SCSIM.Equates
	AsmIIGS -i {common} {SCSI.Manager(1meg)}SCSIM.Misc ¶
		-o {Object}SCSIM.Misc.obj {AsmOptions}
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/MakeFiles/make.ad3.5 b/IIGS.601.SRC/GS.OS/MakeFiles/make.ad3.5
new file mode 100644
index 0000000..063351e
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/MakeFiles/make.ad3.5
@@ -0,0 +1 @@
+######################################################
#
# Rules to build the AppleDisk3.5 driver
#
{SDdrivers}AppleDisk3.5 Ä {object}AppleDisk3.5.obj		
	linkiigs 			 					¶
			{object}AppleDisk3.5.obj 		¶
			-t 	$bb							¶
			-at	$0108						¶
			-o {object}AppleDisk3.5 {LnkOptions}
	Duplicate -y  {object}AppleDisk3.5 {SDdrivers}AppleDisk3.5

{object}AppleDisk3.5.obj	Ä	{GSOS}Drivers:AppleDisk3.5:AD3.5.src		¶
								{GSOS}Drivers:AppleDisk3.5:AD3.5.data ¶
								{GSOS}Drivers:AppleDisk3.5:AD3.5.main ¶
								{GSOS}Drivers:AppleDisk3.5:AD3.5.cmds ¶
								{GSOS}Drivers:AppleDisk3.5:AD3.5.read ¶
								{GSOS}Drivers:AppleDisk3.5:AD3.5.drivsubs ¶
								{GSOS}Drivers:AppleDisk3.5:AD3.5.directRD ¶
								{GSOS}Drivers:AppleDisk3.5:Max.Macros ¶
								{common}common.equ.src ¶
								{common}driver.equ.src ¶
								{common}hw.equ.src
 asmiigs {GSOS}Drivers:AppleDisk3.5:AD3.5.src ¶
 		-o {object}AppleDisk3.5.Obj -i {common} {AsmOptions}
	
	
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/MakeFiles/make.ad5.25 b/IIGS.601.SRC/GS.OS/MakeFiles/make.ad5.25
new file mode 100644
index 0000000..504ed90
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/MakeFiles/make.ad5.25
@@ -0,0 +1 @@
+######################################################
#
# Rules to build the Disk][ driver
#
{SDdrivers}AppleDisk5.25 Ä {object}AppleDisk5.25.obj		
	linkiigs 					¶
		{object}AppleDisk5.25.obj 		¶
		-t $bb					¶
		-at $010E				¶
		-o {object}AppleDisk5.25 {LnkOptions}
	Duplicate -y  {object}AppleDisk5.25 {SDdrivers}AppleDisk5.25

{object}AppleDisk5.25.obj Ä {GSOS}Drivers:AppleDisk5.25:AppleDisk5.25.src	¶
				{GSOS}Drivers:AppleDisk5.25:Max.Macros ¶
				{common}common.equ.src ¶
				{common}hw.equ.src
 asmiigs {GSOS}Drivers:AppleDisk5.25:AppleDisk5.25.src ¶
 	-o {object}AppleDisk5.25.Obj -i {common} {AsmOptions}
	
	
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/MakeFiles/make.aristotle b/IIGS.601.SRC/GS.OS/MakeFiles/make.aristotle
new file mode 100644
index 0000000..32592fb
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/MakeFiles/make.aristotle
@@ -0,0 +1 @@
+#
# This makefile will build the DISPLAY.0 file to be put in the
# :System.Tools:AppleTalk folder.  This is a patched version of
# the Aristotle Menu Display program to support QuickLogoff and
# network booting under GS/OS.
#
# Written by Mark Day
#
# 20-JUn-91 MSD	Fixed build rules for PatchTool so that it will
#		build under MPW 3.2.  It will still build under
#		earlier versions.

AP			=	{NetBoot}AristotlePatch:


{SDAppleTalk}display.0	Ä	{AP}display.0 {AP}patch {AP}PatchTool
	Duplicate -y -d {AP}display.0 {SDAppleTalk}display.0
	{AP}PatchTool {SDAppleTalk}display.0 {AP}patch

{AP}patch		Ä	{AP}patch.aii.obj
	LinkIIGS -o {AP}patch {AP}patch.aii.obj {LnkOptions}
	MakeBinIIGS {AP}patch

{AP}patch.aii.obj	Ä	{AP}patch.aii
	AsmIIGS {AP}patch.aii {AsmOptions}

{AP}PatchTool		Ä	{AP}main.c.o
	if "`exists "{CLibraries}CInterface.o"`" && "`exists "{Clibraries}CRuntime.o"`"
		Set MyLibs "`quote	"{Libraries}"Stubs.o ¶
					"{CLibraries}"CRuntime.o ¶
					"{CLibraries}"StdCLib.o ¶
					"{CLibraries}"CInterface.o ¶
					"{Libraries}"Interface.o`"
	else
		Set MyLibs "`quote	"{Libraries}"Stubs.o ¶
					"{Libraries}"Runtime.o ¶
					"{CLibraries}"StdCLib.o ¶
					"{Libraries}"Interface.o`"
	end
	Link -w -t MPST -c "MPS " {AP}main.c.o ¶
	{MyLibs} ¶
	-o {AP}PatchTool

{AP}main.c.o		Ä	{AP}main.c
	C {AP}main.c
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/MakeFiles/make.as.fst b/IIGS.601.SRC/GS.OS/MakeFiles/make.as.fst
new file mode 100644
index 0000000..2617b02
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/MakeFiles/make.as.fst
@@ -0,0 +1 @@
+#
# This MakeFile will build the AppleShare FST for GS/OS.
#
# It is designed to be used by the GS/OS team's "build" script
# for building the various GS/OS files.  It assumes that the GS/OS
# variables are set.
#
# The file AppleShare.FST will be placed in {SDfsts}.
#
#
# Modification history:
#
# 10-Jan-89	MSD	First try.
# 19-Jan-89	MSD	Added support for listings.
# 22-Feb-90	MSD	Moved Set for LnkOptions and AsmOptions to
#			a false target so they will be set only once,
#			at the beginning of the build.
# 30-Apr-90	MSD	Moved the Set for LnkOptions and AsmOptions
#			back to the default rules.  Since they we the
#			root, they were getting executed AFTER the AsmIIGS
#			and LinkIIGS (could fix that by making them depen-
#			dencies for each object file).  Anyway, Mensch
#			doesn't want ANY commands output if there are no
#			changes (so I can't use false targets).
# 05-Feb-91	MSD	Added the JudgeName.aii source file.
#


#
# Define some variables for my directories
#
src		=	{ASFST}src:
obj		=	{ASFST}obj:
lst		=	{ASFST}list:

#
# First, define all of the objects that need to be linked.
#
objects		=	{obj}header.o ¶
			{obj}volume.o ¶
			{obj}getdevnum.o ¶
			{obj}create.o ¶
			{obj}destroy.o ¶
			{obj}clearbackup.o ¶
			{obj}getinfo.o ¶
			{obj}setinfo.o ¶
			{obj}changepath.o ¶
			{obj}open.o ¶
			{obj}close.o ¶
			{obj}volmod.o ¶
			{obj}flush.o ¶
			{obj}mark.o ¶
			{obj}eof.o ¶
			{obj}read.o ¶
			{obj}write.o ¶
			{obj}getdir.o ¶
			{obj}specific.o ¶
			{obj}time.o ¶
			{obj}subs.o ¶
			{obj}FindPath.o ¶
			{obj}sendpacket.o ¶
			{obj}JudgeName.o ¶
			{obj}data.o

#
# The SystemDisk copy is an expressed copy of my local build
#
{SDfsts}AppleShare.FST	Ä	{ASFST}AppleShare.FST
	duplicate -y {ASFST}AppleShare.FST {SDfsts}AppleShare.FST

#
# The FST depends on all of its object files....
#
{ASFST}AppleShare.FST	 Ä	{objects}
	If "{ListFlag}" || "{MSDListFlag}"
		Set LnkOptions "-l > {lst}link.lst"
	End
	LinkIIGS ¶
		-t $BD -at 0 ¶
		-o {ASFST}AppleShare.FST ¶
		{objects} ¶
		{LnkOptions}

#
# Almost all of the object files include the equates.dump
# file, so rebuild them all if the equates file changes.
#
# Currently, the only object file that does NOT depend on
# the equates file is data.o since equates imports some
# of the data fields from data.
#
{objects}		Ä	{obj}equates.dump


#
# Generic rule for assembling a file (turning xxx.aii into xxx.o)
#
{obj}			Ä	{src}
.o			Ä	.aii
	If "{ListFlag}" || "{MSDListFlag}"
		Set AsmOptions "-f -l -lo {lst}"
	End
	AsmIIGS ¶
		-i {obj} ¶
		-o {TargDir}{Default}.o ¶
		{DepDir}{Default}.aii ¶
		{AsmOptions}


#
# Rule for building the equates.dump file
#
{obj}equates.dump	Ä	{src}equates.aii
	If "{ListFlag}" || "{MSDListFlag}"
		Set AsmOptions "-f -l -lo {lst}"
	End
	Set YeOldeDirectory "`Directory`"
	Directory {ASFST}
	AsmIIGS ¶
		-o :obj:equates.o ¶
		:src:equates.aii ¶
		{AsmOptions}
	Delete -i :obj:equates.o
	Directory "{YeOldeDirectory}"
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/MakeFiles/make.atalk b/IIGS.601.SRC/GS.OS/MakeFiles/make.atalk
new file mode 100644
index 0000000..7fed209
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/MakeFiles/make.atalk
@@ -0,0 +1 @@
+######################################################
#
# Rules to build the ATALK driver
#

Objects	=	{Drivers}ATALK:main.oii ¶
			{Drivers}ATALK:rpm.oii ¶
			{Drivers}ATALK:appletalk.oii ¶
			{Drivers}ATALK:others.oii

{SDdrivers}ATALK	Ä	{Objects}
	if "{ListFlag}" || "{TGHListFlag}"
		set LnkOptions "-l > {Listings}atalk.lst"
	end
	linkiigs 	{Objects} ¶
			-t	$BB ¶
			-at	$0110 ¶
			-o	{SDdrivers}ATALK ¶
			{LnkOptions}

{Drivers}ATALK:main.oii			Ä	{Drivers}ATALK:main.aii
{Drivers}ATALK:rpm.oii			Ä	{Drivers}ATALK:rpm.aii
{Drivers}ATALK:appletalk.oii	Ä	{Drivers}ATALK:appletalk.aii
{Drivers}ATALK:others.oii		Ä	{Drivers}ATALK:others.aii

.oii		Ä	.aii
	if "{ListFlag}" || "{TGHListFlag}"
		set AsmOptions "-f -l -m -lo {Listings}"
	end
	asmiigs 	{DepDir}{Default}.aii ¶
			-i {Drivers}ATALK: ¶
			{AsmOptions} ¶
			-o	{TargDir}{Default}.oii
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/MakeFiles/make.atboot b/IIGS.601.SRC/GS.OS/MakeFiles/make.atboot
new file mode 100644
index 0000000..9b11bd8
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/MakeFiles/make.atboot
@@ -0,0 +1 @@
+######################################################
#
# Rules to build the ATBOOT driver
#

{SDAppleTalk}Boot.Driver	Ä	{Drivers}ATBOOT:atboot.aii.obj
	if "{ListFlag}" || "{TGHListFlag}"
		set LnkOptions "-l > {Listings}atalk.lst"
	end
	linkiigs 	{Drivers}ATBOOT:atboot.aii.obj ¶
			-t	$BB ¶
			-at	$0181 ¶
			-o	{SDAppleTalk}Boot.Driver ¶
			{LnkOptions}

{Drivers}ATBOOT:atboot.aii.obj	Ä	{Drivers}ATBOOT:atboot.aii ¶
									{Drivers}ATBOOT:equates
	if "{ListFlag}" || "{TGHListFlag}"
		set AsmOptions "-f -l -m -lo {Listings}"
	end
	asmiigs		{Drivers}ATBOOT:atboot.aii ¶
			-i	{Drivers}ATBOOT: ¶
			{AsmOptions}
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/MakeFiles/make.atinit b/IIGS.601.SRC/GS.OS/MakeFiles/make.atinit
new file mode 100644
index 0000000..692a420
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/MakeFiles/make.atinit
@@ -0,0 +1 @@
+######################################################
#
# Rules to build the ATINIT file
#

{SDsetupfiles}ATINIT	Ä	{SetupFiles}ATINIT:atinit.oii
	if "{ListFlag}" || "{TGHListFlag}"
		set LnkOptions "-l > {Listings}atalk.lst"
	end
	linkiigs 	{SetupFiles}ATINIT:atinit.oii ¶
			-t	$E2 ¶
			-at	$0000 ¶
			-o	{SDsetupfiles}ATINIT ¶
			{LnkOptions}
	makebiniigs {SDsetupfiles}ATINIT
	setfile -t 'E2  ' -c 'pdos' {SDsetupfiles}ATINIT

{SetupFiles}ATINIT:atinit.oii	Ä	{SetupFiles}ATINIT:atinit.aii
	if "{ListFlag}" || "{TGHListFlag}"
		set AsmOptions "-f -l -m -lo {Listings}"
	end
	asmiigs		{SetupFiles}ATINIT:atinit.aii ¶
			-i	{SetupFiles}ATINIT: ¶
			{AsmOptions} ¶
			-o	{SetupFiles}ATINIT:atinit.oii
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/MakeFiles/make.atram b/IIGS.601.SRC/GS.OS/MakeFiles/make.atram
new file mode 100644
index 0000000..d5733a2
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/MakeFiles/make.atram
@@ -0,0 +1 @@
+######################################################
#
# Rules to build the ATP2.ATRAM driver
#
#
# 11-Jun-91 MSD	Changed auxtype from $0203 to $0204 so this
#				file will get loaded on Mark Twain (ROM 4).
#				Also made the driver dependent on the makefile.
#
# 24-Jun-91	MSD	Added dependencies for several files included by
#				sp.includes.aii and the PFI files.

Objects		=	{Drivers}ATRAM:header.oii¶
				{Drivers}ATRAM:atpatch:atpatch.oii¶
				{Drivers}ATRAM:atpatch:pap:pap.oii¶
				{Drivers}ATRAM:atpatch:rpm:rpm.oii¶
				{Drivers}ATRAM:atpatch:zip:zip.oii¶
				{Drivers}ATRAM:atpatch:asp:sp_includes.oii¶
				{Drivers}ATRAM:atstart:atstart.oii¶
				{Drivers}ATRAM:pfi:pfi.oii¶
				{Drivers}ATRAM:pfi:pfi_cmds.oii¶
				{Drivers}ATRAM:pfi:pfi_cmds2.oii¶
				{Drivers}ATRAM:pfi:pfi_cmds3.oii¶
				{Drivers}ATRAM:pfi:pfi_cmdsubs1.oii¶
				{Drivers}ATRAM:pfi:pfi_cmdsubs2.oii¶
				{Drivers}ATRAM:pfi:pfi_cmdsubs3.oii¶
				{Drivers}ATRAM:pfi:pfi_cmdsubs4.oii¶
				{Drivers}ATRAM:pfi:pfi_cmdsubs5.oii¶
				{Drivers}ATRAM:pfi:pfi_cmdsubs6.oii¶
				{Drivers}ATRAM:pfi:pfi_vars.oii	

{SDdrivers}ATP2.ATRAM	Ä	{Objects}	{MakeFiles}make.atram
	if "{ListFlag}" || "{MSDListFlag}"
		set LnkOptions "-l > {Listings}atram.map"
	end
	linkiigs 	{Objects} ¶
			-t	$BB ¶
			-at	$0204 ¶
			-o	{SDdrivers}ATP2.ATRAM ¶
			{LnkOptions}

{Objects}	Ä	{Drivers}ATRAM:atpatch:ASP:atp.equates.inc ¶
				{Drivers}ATRAM:atpatch:ASP:global.equates.inc

{Drivers}ATRAM:header.oii			Ä		{Drivers}ATRAM:header.aii
{Drivers}ATRAM:atpatch:atpatch.oii	Ä		{Drivers}ATRAM:atpatch:atpatch.aii
{Drivers}ATRAM:atpatch:pap:pap.oii	Ä		{Drivers}ATRAM:atpatch:pap:pap.aii
{Drivers}ATRAM:atpatch:rpm:rpm.oii	Ä		{Drivers}ATRAM:atpatch:rpm:rpm.aii
{Drivers}ATRAM:atpatch:zip:zip.oii	Ä		{Drivers}ATRAM:atpatch:zip:zip.aii
{Drivers}ATRAM:atpatch:asp:sp_includes.oii Ä {Drivers}ATRAM:atpatch:asp:sp_includes.aii ¶
											{Drivers}ATRAM:atpatch:asp:sp.equates.inc ¶
											{Drivers}ATRAM:atpatch:asp:sp_asm.aii ¶
											{Drivers}ATRAM:atpatch:asp:sp_status.aii ¶
											{Drivers}ATRAM:atpatch:asp:sp_open.aii ¶
											{Drivers}ATRAM:atpatch:asp:sp_close.aii ¶
											{Drivers}ATRAM:atpatch:asp:sp_cmd.aii ¶
											{Drivers}ATRAM:atpatch:asp:sp_write.aii ¶
											{Drivers}ATRAM:atpatch:asp:sp_vars.aii
{Drivers}ATRAM:atstart:atstart.oii	Ä		{Drivers}ATRAM:atstart:atstart.aii
{Drivers}ATRAM:pfi:pfi.oii			Ä		{Drivers}ATRAM:pfi:pfi.aii ¶
											{Drivers}ATRAM:pfi:zp.equates
{Drivers}ATRAM:pfi:pfi_cmds.oii		Ä		{Drivers}ATRAM:pfi:pfi_cmds.aii ¶
											{Drivers}ATRAM:pfi:pfi_equates
{Drivers}ATRAM:pfi:pfi_cmds2.oii	Ä		{Drivers}ATRAM:pfi:pfi_cmds2.aii ¶
											{Drivers}ATRAM:pfi:zp.equates ¶
											{Drivers}ATRAM:pfi:pfi_equates
{Drivers}ATRAM:pfi:pfi_cmds3.oii	Ä		{Drivers}ATRAM:pfi:pfi_cmds3.aii ¶
											{Drivers}ATRAM:pfi:zp.equates ¶
											{Drivers}ATRAM:pfi:pfi_equates
{Drivers}ATRAM:pfi:pfi_cmdsubs1.oii	Ä		{Drivers}ATRAM:pfi:pfi_cmdsubs1.aii ¶
											{Drivers}ATRAM:pfi:zp.equates ¶
											{Drivers}ATRAM:pfi:pfi_equates
{Drivers}ATRAM:pfi:pfi_cmdsubs2.oii	Ä		{Drivers}ATRAM:pfi:pfi_cmdsubs2.aii ¶
											{Drivers}ATRAM:pfi:zp.equates ¶
											{Drivers}ATRAM:pfi:pfi_equates
{Drivers}ATRAM:pfi:pfi_cmdsubs3.oii	Ä		{Drivers}ATRAM:pfi:pfi_cmdsubs3.aii ¶
											{Drivers}ATRAM:pfi:zp.equates ¶
											{Drivers}ATRAM:pfi:pfi_equates
{Drivers}ATRAM:pfi:pfi_cmdsubs4.oii	Ä		{Drivers}ATRAM:pfi:pfi_cmdsubs4.aii ¶
											{Drivers}ATRAM:pfi:zp.equates ¶
											{Drivers}ATRAM:pfi:pfi_equates
{Drivers}ATRAM:pfi:pfi_cmdsubs5.oii	Ä		{Drivers}ATRAM:pfi:pfi_cmdsubs5.aii ¶
											{Drivers}ATRAM:pfi:zp.equates ¶
											{Drivers}ATRAM:pfi:pfi_equates
{Drivers}ATRAM:pfi:pfi_cmdsubs6.oii	Ä		{Drivers}ATRAM:pfi:pfi_cmdsubs6.aii ¶
											{Drivers}ATRAM:pfi:zp.equates ¶
											{Drivers}ATRAM:pfi:pfi_equates
{Drivers}ATRAM:pfi:pfi_vars.oii		Ä		{Drivers}ATRAM:pfi:pfi_vars.aii	 ¶
											{Drivers}ATRAM:pfi:zp.equates ¶
											{Drivers}ATRAM:pfi:pfi_equates

.oii				Ä	.aii
	if "{ListFlag}" || "{MSDListFlag}"
		set AsmOptions "-f -l -m -lo {Listings}"
	end
	asmiigs 	{DepDir}{Default}.aii ¶
			-i {Drivers}ATRAM: ¶
			{AsmOptions} ¶
			-o	{TargDir}{Default}.oii
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/MakeFiles/make.atresponder b/IIGS.601.SRC/GS.OS/MakeFiles/make.atresponder
new file mode 100644
index 0000000..2a9d220
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/MakeFiles/make.atresponder
@@ -0,0 +1 @@
+######################################################
#
# Rules to build the ATResponder file
#

{SDsetupfiles}ATResponder	Ä	{SetupFiles}ATResponder:atresponder.oii
	if "{ListFlag}" || "{TGHListFlag}"
		set LnkOptions "-l > {Listings}atalk.lst"
	end
	linkiigs 	{SetupFiles}ATResponder:atresponder.oii ¶
			-t	$B6 ¶
			-at	$0000 ¶
			-o	{SDsetupfiles}ATResponder ¶
			{LnkOptions}

{SetupFiles}ATResponder:atresponder.oii	Ä	{SetupFiles}ATResponder:atresponder.aii
	if "{ListFlag}" || "{TGHListFlag}"
		set AsmOptions "-f -l -m -lo {Listings}"
	end
	asmiigs		{SetupFiles}ATResponder:atresponder.aii ¶
			-i	{SetupFiles}ATResponder: ¶
			{AsmOptions} ¶
			-o	{SetupFiles}ATResponder:ATResponder.oii
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/MakeFiles/make.atrom b/IIGS.601.SRC/GS.OS/MakeFiles/make.atrom
new file mode 100644
index 0000000..cf56f14
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/MakeFiles/make.atrom
@@ -0,0 +1 @@
+######################################################
#
#  7-Jan-91	MSD	Changed auxtype from $0201 to $0203 so this file will load
#				on a ROM 03.  This makes it easy to try out some fixes to
#				NBP and ATP.  Later, I'll have to come up with a way not
#				to patch out all of ROM 03 (since things like LAP and DDP
#				work fine).
#
#  6-Feb-91	MSD	Changed auxtype back to $0201 for 6.0 builds.
#
# 25-Jun-91 MSD	Changed auxtype to $0204 so it will load on all CPU's
#				(so I can test out some fixes more easily).
#
######################################################

#
# Rules to build the ATP1.ATROM driver
#

Objects		=	{Drivers}ATROM:atp_includes.oii ¶
				{Drivers}ATROM:lap_includes.oii ¶
				{Drivers}ATROM:aptalk.oii ¶

{SDdrivers}ATP1.ATROM	Ä	{Objects}	
	if "{ListFlag}" || "{MSDListFlag}"
		set LnkOptions "-l > {Listings}atrom.map"
	end
	linkiigs 	{Objects} ¶
			-t	$BB ¶
			-at	$0204 ¶
			-o	{SDdrivers}ATP1.ATROM ¶
			{LnkOptions}

{Drivers}ATROM:atp_includes.oii		Ä	{Drivers}ATROM:atp_includes.aii
{Drivers}ATROM:lap_includes.oii		Ä	{Drivers}ATROM:lap_includes.aii
{Drivers}ATROM:aptalk.oii			Ä	{Drivers}ATROM:aptalk.aii

.oii		Ä	.aii
	if "{ListFlag}" || "{MSDListFlag}"
		set AsmOptions "-f -l -m -lo {Listings}"
	end
	asmiigs 	{DepDir}{Default}.aii ¶
			-i {Drivers}ATROM: ¶
			-w ¶
			{AsmOptions} ¶
			-o	{TargDir}{Default}.oii
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/MakeFiles/make.cd.driver b/IIGS.601.SRC/GS.OS/MakeFiles/make.cd.driver
new file mode 100644
index 0000000..01f335b
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/MakeFiles/make.cd.driver
@@ -0,0 +1 @@
+#   File:       makefile
#   Target:     SCSICD.Driver
#   Sources:    'SCSI Driver main'
#               'SCSI Command Table'
#               'SCSI Filter startup'
#               'SCSI Filter open'
#               'SCSI Filter read'
#               'SCSI Filter write'
#               'SCSI Filter close'
#               'SCSI Filter status'
#               'SCSI Filter control'
#               'SCSI Filter flush'
#               'SCSI Filter shutdown'
#               'SCSI Main Driver'
#               'SCSI Driver Mgmt'
#   Created:    Thursday, June 9, 1988 9:30:49 AM
#  Modified:    Thursday, December 2, 1988

{SDdrivers}SCSICD.Driver ÄÄ  ¶
		{Object}'SCSICD Driver main.obj' ¶
		{Object}'SCSICD Command Table.obj' ¶
		{Object}'SCSICD Filter startup.obj' ¶
		{Object}'SCSICD Filter open.obj' ¶
		{Object}'SCSICD Filter read.obj' ¶
		{Object}'SCSICD Filter write.obj' ¶
		{Object}'SCSICD Filter close.obj' ¶
		{Object}'SCSICD Filter status.obj' ¶
		{Object}'SCSICD Filter control.obj' ¶
		{Object}'SCSICD Filter flush.obj' ¶
		{Object}'SCSICD Filter shutdown.obj' ¶
		{Object}'SCSICD Main Driver.obj' ¶
		{Object}'SCSICD Driver Mgmt.obj'
    LinkIIGS -t $bb -at $013f ¶
		{Object}'SCSICD Driver main.obj' ¶
		{Object}'SCSICD Command Table.obj' ¶
		{Object}'SCSICD Filter startup.obj' ¶
		{Object}'SCSICD Filter open.obj' ¶
		{Object}'SCSICD Filter read.obj' ¶
		{Object}'SCSICD Filter write.obj' ¶
		{Object}'SCSICD Filter close.obj' ¶
		{Object}'SCSICD Filter status.obj' ¶
		{Object}'SCSICD Filter control.obj' ¶
		{Object}'SCSICD Filter flush.obj' ¶
		{Object}'SCSICD Filter shutdown.obj' ¶
		{Object}'SCSICD Main Driver.obj' ¶
		{Object}'SCSICD Driver Mgmt.obj' ¶
		-o {Object}SCSICD.Driver.lnk
    duplicate -y ¶
		{Object}SCSICD.Driver.lnk ¶
		{SDdrivers}SCSICD.Driver
{Object}'SCSICD Driver main.obj' Ä ¶
		{SCSIdrivers}'SCSI Driver main' ¶
		{SCSIdrivers}'SCSIHD.Equates'
	AsmIIGS -d &type,type=1 {SCSIdrivers}'SCSI Driver main' ¶
		-o {Object}'SCSICD Driver main.obj'
{Object}'SCSICD Command Table.obj' Ä ¶
		{SCSIdrivers}'SCSI Command Table' ¶
		{SCSIdrivers}'SCSIHD.Equates'
	AsmIIGS -d &type,type=1 {SCSIdrivers}'SCSI Command Table' ¶
		-o {Object}'SCSICD Command Table.obj'
{Object}'SCSICD Filter startup.obj' Ä ¶
		{SCSIdrivers}'SCSI Filter startup' ¶
		{SCSIdrivers}'SCSIHD.Equates'
	AsmIIGS -d &type,type=1 {SCSIdrivers}'SCSI Filter startup' ¶
		-o {Object}'SCSICD Filter startup.obj'
{Object}'SCSICD Filter open.obj' Ä ¶
		{SCSIdrivers}'SCSI Filter open' ¶
		{SCSIdrivers}'SCSIHD.Equates'
	AsmIIGS -d &type,type=1 {SCSIdrivers}'SCSI Filter open' ¶
		-o {Object}'SCSICD Filter open.obj'
{Object}'SCSICD Filter read.obj' Ä ¶
		{SCSIdrivers}'SCSI Filter read' ¶
		{SCSIdrivers}'SCSIHD.Equates'
	AsmIIGS -d &type,type=1 {SCSIdrivers}'SCSI Filter read' ¶
		-o {Object}'SCSICD Filter read.obj'
{Object}'SCSICD Filter write.obj' Ä ¶
		{SCSIdrivers}'SCSI Filter write' ¶
		{SCSIdrivers}'SCSIHD.Equates'
	AsmIIGS -d &type,type=1 {SCSIdrivers}'SCSI Filter write' ¶
		-o {Object}'SCSICD Filter write.obj'
{Object}'SCSICD Filter close.obj' Ä ¶
		{SCSIdrivers}'SCSI Filter close' ¶
		{SCSIdrivers}'SCSIHD.Equates'
	AsmIIGS -d &type,type=1 {SCSIdrivers}'SCSI Filter close' ¶
		-o {Object}'SCSICD Filter close.obj'
{Object}'SCSICD Filter status.obj' Ä ¶
		{SCSIdrivers}'SCSI Filter status' ¶
		{SCSIdrivers}'SCSIHD.Equates'
	AsmIIGS -d &type,type=1 {SCSIdrivers}'SCSI Filter status' ¶
		-o {Object}'SCSICD Filter status.obj'
{Object}'SCSICD Filter control.obj' Ä ¶
		{SCSIdrivers}'SCSI Filter control' ¶
		{SCSIdrivers}'SCSIHD.Equates'
	AsmIIGS -d &type,type=1 {SCSIdrivers}'SCSI Filter control' ¶
		-o {Object}'SCSICD Filter control.obj'
{Object}'SCSICD Filter flush.obj' Ä ¶
		{SCSIdrivers}'SCSI Filter flush' ¶
		{SCSIdrivers}'SCSIHD.Equates'
	AsmIIGS -d &type,type=1 {SCSIdrivers}'SCSI Filter flush' ¶
		-o {Object}'SCSICD Filter flush.obj'
{Object}'SCSICD Filter shutdown.obj' Ä ¶
		{SCSIdrivers}'SCSI Filter shutdown' ¶
		{SCSIdrivers}'SCSIHD.Equates'
	AsmIIGS -d &type,type=1 {SCSIdrivers}'SCSI Filter shutdown' ¶
		-o {Object}'SCSICD Filter shutdown.obj'
{Object}'SCSICD Main Driver.obj' Ä ¶
		{SCSIdrivers}'SCSI Main Driver' ¶
		{SCSIdrivers}'SCSIHD.Equates'
	AsmIIGS -d &type,type=1 {SCSIdrivers}'SCSI Main Driver' ¶
		-o {Object}'SCSICD Main Driver.obj'
{Object}'SCSICD Driver Mgmt.obj' Ä ¶
		{SCSIdrivers}'SCSI Driver Mgmt' ¶
		{SCSIdrivers}'SCSIHD.Equates'
	AsmIIGS -d &type,type=1 {SCSIdrivers}'SCSI Driver Mgmt' ¶
		-o {Object}'SCSICD Driver Mgmt.obj'
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/MakeFiles/make.char.fst b/IIGS.601.SRC/GS.OS/MakeFiles/make.char.fst
new file mode 100644
index 0000000..9606fe3
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/MakeFiles/make.char.fst
@@ -0,0 +1 @@
+######################################################
#
# Rules to build the Character FST
#
{SDfsts}Char.FST Ä 			{Object}Character.FST.obj			
	linkiigs 		{Object}Character.fst.obj 			¶
		-t $BD							¶
		-o {object}Char.FST {LnkOptions}
	duplicate -y  {object}Char.FST {SDfsts}Char.FST

{object}Character.FST.obj		Ä		{Character}Character.FST ¶
										{common}common.equ.src
	asmiigs {Character}Character.FST -o {object}Character.FST.Obj -i {common} {AsmOptions}
	
	
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/MakeFiles/make.console b/IIGS.601.SRC/GS.OS/MakeFiles/make.console
new file mode 100644
index 0000000..7813e30
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/MakeFiles/make.console
@@ -0,0 +1 @@
+######################################################
#
# Rules to build the console driver
#
{SDdrivers}console.driver Ä 				¶
					{object}console.aii.obj			¶
					{object}new.dri.patch.obj
 	if "{ListFlag}"; set LnkOptions "-l > {Listings}console.sym"; end
	linkiigs 			 					¶
					{object}console.aii.obj 		¶
					{object}new.dri.patch.obj 		¶
		-t $bb									¶
		-at $0101								¶
		-o {object}console.driver {LnkOptions}
	duplicate -y  {object}console.driver {SDdrivers}console.driver

{object}console.aii.obj		Ä		{drivers}Console.driver:console.aii		¶
									{Drivers}Console.Driver:Direct.Page.aii	¶
									{common}common.equ.src
 	if "{ListFlag}"; set AsmOptions "-l -m -lo {Listings}Console.aii.lst"; end
	asmiigs {drivers}Console.driver:console.aii ¶
		-d Library=0					# produce non-library version	¶
		-o {object}Console.aii.obj ¶
		-i {common} {AsmOptions}
	
{object}new.dri.patch.obj	Ä		{drivers}Console.driver:new.dri.patch	¶
									{Drivers}Console.Driver:Direct.Page.aii	¶
									{common}common.equ.src
 	if "{ListFlag}"; set AsmOptions "-l -m -lo {Listings}New.Dri.Patch.lst"; end
	asmiigs {drivers}Console.driver:new.dri.patch ¶
		-o {object}new.dri.patch.obj -i {common} {AsmOptions}
	
	
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/MakeFiles/make.error.msg b/IIGS.601.SRC/GS.OS/MakeFiles/make.error.msg
new file mode 100644
index 0000000..bac4413
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/MakeFiles/make.error.msg
@@ -0,0 +1 @@
+
#
# Dependencies for error messages...
#
{SDSystem}Error.Msg Ä {ErrorMessages}english.src
 asmiigs 	{ErrorMessages}english.src   	-o {Object}english.obj  {AsmOptions}
 linkiigs -x {Object}english.obj -o {SDSystem}Error.Msg -t $bc {LnkOptions}
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/MakeFiles/make.hd.driver b/IIGS.601.SRC/GS.OS/MakeFiles/make.hd.driver
new file mode 100644
index 0000000..b10654d
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/MakeFiles/make.hd.driver
@@ -0,0 +1 @@
+#   File:       makefile
#   Target:     SCSIHD.Driver
#   Sources:    'SCSI Driver main'
#               'SCSI Command Table'
#               'SCSI Filter startup'
#               'SCSI Filter open'
#               'SCSI Filter read'
#               'SCSI Filter write'
#               'SCSI Filter close'
#               'SCSI Filter status'
#               'SCSI Filter control'
#               'SCSI Filter flush'
#               'SCSI Filter shutdown'
#               'SCSI Main Driver'
#               'SCSI Driver Mgmt'
#   Created:    Thursday, June 9, 1988 9:30:49 AM
#  Modified:    Thursday, December 1, 1988

{SDdrivers}SCSIHD.Driver ÄÄ  ¶
		{Object}'SCSIHD Driver main.obj' ¶
		{Object}'SCSIHD Command Table.obj' ¶
		{Object}'SCSIHD Filter startup.obj' ¶
		{Object}'SCSIHD Filter open.obj' ¶
		{Object}'SCSIHD Filter read.obj' ¶
		{Object}'SCSIHD Filter write.obj' ¶
		{Object}'SCSIHD Filter close.obj' ¶
		{Object}'SCSIHD Filter status.obj' ¶
		{Object}'SCSIHD Filter control.obj' ¶
		{Object}'SCSIHD Filter flush.obj' ¶
		{Object}'SCSIHD Filter shutdown.obj' ¶
		{Object}'SCSIHD Main Driver.obj' ¶
		{Object}'SCSIHD Driver Mgmt.obj'
    LinkIIGS -t $bb -at $013f ¶
		{Object}'SCSIHD Driver main.obj' ¶
		{Object}'SCSIHD Command Table.obj' ¶
		{Object}'SCSIHD Filter startup.obj' ¶
		{Object}'SCSIHD Filter open.obj' ¶
		{Object}'SCSIHD Filter read.obj' ¶
		{Object}'SCSIHD Filter write.obj' ¶
		{Object}'SCSIHD Filter close.obj' ¶
		{Object}'SCSIHD Filter status.obj' ¶
		{Object}'SCSIHD Filter control.obj' ¶
		{Object}'SCSIHD Filter flush.obj' ¶
		{Object}'SCSIHD Filter shutdown.obj' ¶
		{Object}'SCSIHD Main Driver.obj' ¶
		{Object}'SCSIHD Driver Mgmt.obj' ¶
		-o {Object}SCSIHD.Driver.lnk
    duplicate -y ¶
		{Object}SCSIHD.Driver.lnk ¶
		{SDdrivers}SCSIHD.Driver
{Object}'SCSIHD Driver main.obj' Ä ¶
		{SCSIdrivers}'SCSI Driver main' ¶
		{SCSIdrivers}'SCSIHD.equates'
	AsmIIGS -d &type,type=0 {SCSIdrivers}'SCSI Driver main' ¶
		-o {Object}'SCSIHD Driver main.obj'
{Object}'SCSIHD Command Table.obj' Ä ¶
		{SCSIdrivers}'SCSI Command Table' ¶
		{SCSIdrivers}'SCSIHD.equates'
	AsmIIGS -d &type,type=0 {SCSIdrivers}'SCSI Command Table' ¶
		-o {Object}'SCSIHD Command Table.obj'
{Object}'SCSIHD Filter startup.obj' Ä ¶
		{SCSIdrivers}'SCSI Filter startup' ¶
		{SCSIdrivers}'SCSIHD.equates'
	AsmIIGS -d &type,type=0 {SCSIdrivers}'SCSI Filter startup' ¶
		-o {Object}'SCSIHD Filter startup.obj'
{Object}'SCSIHD Filter open.obj' Ä ¶
		{SCSIdrivers}'SCSI Filter open' ¶
		{SCSIdrivers}'SCSIHD.equates'
	AsmIIGS -d &type,type=0 {SCSIdrivers}'SCSI Filter open' ¶
		-o {Object}'SCSIHD Filter open.obj'
{Object}'SCSIHD Filter read.obj' Ä ¶
		{SCSIdrivers}'SCSI Filter read' ¶
		{SCSIdrivers}'SCSIHD.equates'
	AsmIIGS -d &type,type=0 {SCSIdrivers}'SCSI Filter read' ¶
		-o {Object}'SCSIHD Filter read.obj'
{Object}'SCSIHD Filter write.obj' Ä ¶
		{SCSIdrivers}'SCSI Filter write' ¶
		{SCSIdrivers}'SCSIHD.equates'
	AsmIIGS -d &type,type=0 {SCSIdrivers}'SCSI Filter write' ¶
		-o {Object}'SCSIHD Filter write.obj'
{Object}'SCSIHD Filter close.obj' Ä ¶
		{SCSIdrivers}'SCSI Filter close' ¶
		{SCSIdrivers}'SCSIHD.equates'
	AsmIIGS -d &type,type=0 {SCSIdrivers}'SCSI Filter close' ¶
		-o {Object}'SCSIHD Filter close.obj'
{Object}'SCSIHD Filter status.obj' Ä ¶
		{SCSIdrivers}'SCSI Filter status' ¶
		{SCSIdrivers}'SCSI Get Vol/Disk' ¶
#		{SCSIdrivers}'SCSI Get Config' ¶
		{SCSIdrivers}'SCSIHD.equates'
	AsmIIGS -d &type,type=0 {SCSIdrivers}'SCSI Filter status' ¶
		-o {Object}'SCSIHD Filter status.obj'
{Object}'SCSIHD Filter control.obj' Ä ¶
		{SCSIdrivers}'SCSI Filter control' ¶
		{SCSIdrivers}'SCSI Set Vol/Disk' ¶
#		{SCSIdrivers}'SCSI Set Config' ¶
		{SCSIdrivers}'SCSIHD.equates'
	AsmIIGS -d &type,type=0 {SCSIdrivers}'SCSI Filter control' ¶
		-o {Object}'SCSIHD Filter control.obj'
{Object}'SCSIHD Filter flush.obj' Ä ¶
		{SCSIdrivers}'SCSI Filter flush' ¶
		{SCSIdrivers}'SCSIHD.equates'
	AsmIIGS -d &type,type=0 {SCSIdrivers}'SCSI Filter flush' ¶
		-o {Object}'SCSIHD Filter flush.obj'
{Object}'SCSIHD Filter shutdown.obj' Ä ¶
		{SCSIdrivers}'SCSI Filter shutdown' ¶
		{SCSIdrivers}'SCSIHD.equates'
	AsmIIGS -d &type,type=0 {SCSIdrivers}'SCSI Filter shutdown' ¶
		-o {Object}'SCSIHD Filter shutdown.obj'
{Object}'SCSIHD Main Driver.obj' Ä ¶
		{SCSIdrivers}'SCSI Main Driver' ¶
		{SCSIdrivers}'SCSIHD.equates'
	AsmIIGS -d &type,type=0 {SCSIdrivers}'SCSI Main Driver' ¶
		-o {Object}'SCSIHD Main Driver.obj'
{Object}'SCSIHD Driver Mgmt.obj' Ä ¶
		{SCSIdrivers}'SCSI Driver Mgmt' ¶
		{SCSIdrivers}'SCSIHD.equates'
	AsmIIGS -d &type,type=0 {SCSIdrivers}'SCSI Driver Mgmt' ¶
		-o {Object}'SCSIHD Driver Mgmt.obj'
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/MakeFiles/make.hfs.fst b/IIGS.601.SRC/GS.OS/MakeFiles/make.hfs.fst
new file mode 100644
index 0000000..ebcaed4
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/MakeFiles/make.hfs.fst
@@ -0,0 +1 @@
+#
# Dependency rules for HFS FST...
#
AOPTIONS	= -D DEBUGSYMBOLS=0

{SDfsts}hfs.fst 	Ä {Object}hfs.fst.main.obj {Object}hfs.fst.btree.obj
	linkiigs {Object}hfs.fst.main.obj {Object}hfs.fst.btree.obj -t $bd -o {object}hfs.fst {LnkOptions}	
	duplicate -y  {object}hfs.fst {SDfsts}hfs.fst

{Object}hfs.fst.main.obj Ä {HFS}hfs.fst.main {HFS}hfs.fst.equ
	asmiigs {AOptions} {HFS}hfs.fst.main -o {Object}hfs.fst.main.obj -i {Common} -unsafe -wi #-l -m -lo {Listings}hfs.fst.main.lst

{Object}hfs.fst.btree.obj Ä {HFS}hfs.fst.btree {HFS}hfs.fst.equ
	asmiigs {AOptions} {HFS}hfs.fst.btree -o {Object}hfs.fst.btree.obj -i {Common} -unsafe -wi #-l -m -lo {Listings}hfs.fst.btree.lst
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/MakeFiles/make.hs.fst b/IIGS.601.SRC/GS.OS/MakeFiles/make.hs.fst
new file mode 100644
index 0000000..3c62de7
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/MakeFiles/make.hs.fst
@@ -0,0 +1 @@
+#
# Dependency rules for High Sierra FST...
#
{SDfsts}hs.fst 	Ä {Object}hs.fst.obj
	linkiigs {Object}hs.fst.obj -t $bd -o {object}hs.fst {LnkOptions}	
	duplicate -y  {object}hs.fst {SDfsts}hs.fst

{Object}hs.fst.obj Ä {HighSierra}hs.fst.src
	asmiigs {HighSierra}hs.fst.src -o {Object}hs.fst.obj -i {Common} {AsmOptions}
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/MakeFiles/make.net.start b/IIGS.601.SRC/GS.OS/MakeFiles/make.net.start
new file mode 100644
index 0000000..9cbe352
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/MakeFiles/make.net.start
@@ -0,0 +1 @@
+#
# This is the makefile for the :System.Tools:AppleTalk:Start file
#
# It is used in network booting (both diskless and local).
#
# Written by Mark Day
#
# 19-Jun-91 MSD	Modified to use StartLog.aii instead of BootLog16.aii
#		since BootLog16 puts its variables in "unused" areas
#		of bank 0 (where it assumes it was loaded).

Start			=	{NetBoot}Start:
Console			=	{NetBoot}Console:
Logon			=	{NetBoot}Logon:



#
# Make an Express'ed copy in the SystemDisk folder
#
{SDAppleTalk}Start	Ä	{Start}Start
	Duplicate -y {Start}Start {SDAppleTalk}Start
	
#
# Link the Start program from its objects
#
{Start}Start	Ä	{Start}Start.o ¶
				{Console}console.o ¶
				{Start}StartLog.o ¶
				{Logon}DES.o
	If "{ListFlag}" || "{MSDListFlag}"
		Set LnkOptions "-l > {Start}Start.map"
	End
	LinkIIGS -o {Start}Start ¶
		{Start}Start.o ¶
		{Start}StartLog.o ¶
		{Console}Console.o ¶
		{Logon}DES.o ¶
		{LnkOptions}

{Start}Start.o		Ä	{Start}Start.aii ¶
				{Start}Start.m ¶
				{Console}Cons.Macros ¶
				{Console}Console.Equates
	If "{ListFlag}" || "{MSDListFlag}"
		Set AsmOptions "-f -l -lo {Start}Start.lst"
	End
	AsmIIGS¶
		-i {Console}¶
		-o {Start}Start.o¶
		{Start}Start.aii¶
		{AsmOptions}

{Console}Console.o	Ä	{Console}Console.aii ¶
				{Console}input.aii ¶
				{Console}Strings.aii ¶
				{Console}Cons.Macros ¶
				{Console}Console.Equates
	If "{ListFlag}" || "{MSDListFlag}"
		Set AsmOptions "-f -l -lo {Console}Console.lst"
	End
	AsmIIGS¶
		-i {Console}¶
		-o {Console}Console.o¶
		{Console}Console.aii¶
		{AsmOptions}

{Start}StartLog.o	Ä	{Start}StartLog.aii ¶
				{Logon}logon.main ¶
				{Logon}icon.aii ¶
				{Console}Cons.Macros ¶
				{Console}Console.Equates
	If "{ListFlag}" || "{MSDListFlag}"
		Set AsmOptions "-f -l -lo {Logon}BootLog16.lst"
	End
	AsmIIGS¶
		-i {Console}¶
		-i {Logon}¶
		-o {Start}StartLog.o¶
		{Start}StartLog.aii¶
		{AsmOptions}

{Logon}DES.o		Ä	{Logon}DES.aii
	If "{ListFlag}" || "{MSDListFlag}"
		Set AsmOptions "-f -l -lo {Logon}DES.lst"
	End
	AsmIIGS¶
		-o {Logon}DES.o¶
		{Logon}DES.aii¶
		{AsmOptions}
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/MakeFiles/make.os b/IIGS.601.SRC/GS.OS/MakeFiles/make.os
new file mode 100644
index 0000000..9c3c8d6
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/MakeFiles/make.os
@@ -0,0 +1 @@
+#
# This make file defines the dependencies for the following files:
#
#	"GS.OS"
#	"START.GS.OS"
#	"GS.OS.Dev"
#

All			ÄÄ	GS.OS Start.GS.OS GS.OS.Dev

GS.OS		ÄÄ	{SDSystem}GS.OS

Start.GS.OS	ÄÄ	{SDSystem}Start.GS.OS

GS.OS.Dev	ÄÄ	{SDSystem}GS.OS.Dev

#
# Dependency rules for GS.OS
#
{SDSystem}GS.OS		ÄÄ	{WorkFolder}Loader.bin {WorkFolder}SCM.bin
	catenate {WorkFolder}Loader.bin    	>  	{SDsystem}GS.OS
	catenate {WorkFolder}Loader.bin.2	>>	{SDSystem}GS.OS
	catenate {WorkFolder}scm.bin    	>> 	{SDsystem}GS.OS
	catenate {WorkFolder}scm.bin.2  	>> 	{SDsystem}GS.OS
	catenate {WorkFolder}scm.bin.3  	>> 	{SDsystem}GS.OS
	catenate {WorkFolder}scm.bin.4  	>> 	{SDsystem}GS.OS
	catenate {WorkFolder}scm.bin.5  	>> 	{SDsystem}GS.OS
	catenate {WorkFolder}scm.bin.6  	>> 	{SDsystem}GS.OS
	catenate {WorkFolder}scm.bin.7  	>> 	{SDsystem}GS.OS
	catenate {WorkFolder}scm.bin.12 	>> 	{SDsystem}GS.OS
	catenate {WorkFolder}scm.bin.13 	>> 	{SDsystem}GS.OS
	catenate {WorkFolder}scm.bin.14 	>> 	{SDsystem}GS.OS
	catenate {WorkFolder}scm.bin.15 	>> 	{SDsystem}GS.OS
	catenate {WorkFolder}scm.bin.16 	>> 	{SDsystem}GS.OS
	catenate {WorkFolder}scm.bin.17 	>> 	{SDsystem}GS.OS
	# Set filetype and auxtype...
	set exit 0; echo "foo" | rez -o {SDsystem}GS.OS -m -c pdos -t $70f90000 ³ dev:null; set exit 1
	# Set the mod time to the current time
	setfile -m . {SDsystem}GS.OS
	
#
# Dependency rules for Start.GS.OS
#
{SDSystem}Start.GS.OS	ÄÄ	{WorkFolder}SCM.bin
	catenate {WorkFolder}scm.bin.8	>  	{SDsystem}Start.GS.OS
	catenate {WorkFolder}scm.bin.9	>> 	{SDsystem}Start.GS.OS
	catenate {WorkFolder}scm.bin.10	>> 	{SDsystem}Start.GS.OS
	catenate {WorkFolder}scm.bin.11	>> 	{SDsystem}Start.GS.OS
	# Set filetype and auxtype...
	set exit 0; echo "foo" | rez -o {SDsystem}Start.GS.OS -m -c pdos -t $70f90007 ³ dev:null; set exit 1
	# Set the mod time to the current time
	setfile -m . {SDsystem}Start.GS.OS
	
#
# Dependency rules for the new Device Dispatcher...
#
{SDSystem}GS.OS.Dev	ÄÄ	{object}NewDispatcher.obj
	linkiigs -t $bc -x ¶
		{Object}NewDispatcher.Obj ¶
		-o {SDsystem}GS.OS.Dev 

{Object}NewDispatcher.Obj Ä {DeviceDispatcher}NewDispatcher.Src ¶
							{Common}common.equ.src ¶
							{Common}hw.equ.src ¶
							{Common}gsos.macros.src ¶
							{Common}driver.equ.src
	if "{ListFlag}" || "{ListPartFlag}" == "devdisp"; set AsmOptions "-l -m -lo {Listings}NewDispatcher.lst"; end
	Asmiigs {DeviceDispatcher}NewDispatcher.Src -o {Object}NewDispatcher.Obj -i {common} {AsmOptions}
	unset AsmOptions

#
# If any of the following objects change, let's re-link...
#
{WorkFolder}SCM.bin	Ä	{WorkFolder}SCM.lnk
	MakeBinIIGS {WorkFolder}scm.lnk -o {WorkFolder}scm.bin

{WorkFolder}scm.lnk Ä	{Object}scm.obj ¶
						{Object}b00segr.s.obj ¶
						{Object}bank0.obj ¶
						{Object}b00segr.e.obj ¶
						{Object}be0segr.s.obj ¶
						{Object}device.dispatcher.obj ¶
						{Object}be0segr.e.obj ¶
						{Object}gquit.obj ¶
						{Object}cache.obj ¶
						{Object}init1.obj ¶
						{Object}init2.obj ¶
						{Object}init3.obj ¶
						{Object}init4.obj
	unset LnkOptions
	if "{ListFlag}" || "{ListPartFlag}"; set LnkOptions "-l > {Listings}os.symbols"; end
	
	linkiigs -apw -o {WorkFolder}scm.lnk {LnkOptions} ¶
		-lseg scm_seg_0 					# becomes scm.bin   ¶
			{Object}scm.obj(@start_seg0) ¶
			{Object}scm.obj(@oscall_seg) ¶
			{Object}scm.obj(@end_seg0) ¶
		-lseg scm_seg_1						# becomes scm.bin.2 ¶
			{Object}scm.obj(@start_seg1) ¶
			{Object}scm.obj(@misc_seg) ¶
			{Object}scm.obj(@end_seg1) ¶
		-lseg scm_seg_2						# becomes scm.bin.3 ¶
			{Object}scm.obj(@start_seg2) ¶
			{Object}scm.obj(@scm_main) ¶
			{Object}scm.obj(@end_seg2) ¶
		-lseg scm_seg_3						# becomes scm.bin.4 ¶
			{Object}scm.obj(@start_seg3) ¶
			{Object}scm.obj(@system_svc) ¶
			{Object}scm.obj(@end_seg3) ¶
		-lseg scm_seg_4						# becomes scm.bin.5 ¶
			{Object}scm.obj(@start_seg4) ¶
			{Object}scm.obj(@bank_e1) ¶
			{Object}scm.obj(@end_seg4) ¶
		-lseg b00segr						# becomes scm.bin.6 ¶
			{Object}b00segr.s.obj ¶
			{Object}bank0.obj ¶
			{Object}b00segr.e.obj ¶
		-lseg be0segr						# becomes scm.bin.7 ¶
			{Object}be0segr.s.obj ¶
			{Object}device.dispatcher.obj ¶
			{Object}be0segr.e.obj ¶
		-lseg gquit.1						# becomes scm.bin.8 ¶
			{Object}gquit.obj(@seg_gldr) ¶
		-lseg gquit.2 						# becomes scm.bin.9 ¶
			{Object}gquit.obj(@seg_b0) ¶
		-lseg gquit.3 						# becomes scm.bin.10 ¶
			{Object}gquit.obj(@seg_e1) ¶
		-lseg gquit.4 						# becomes scm.bin.11 ¶
			{Object}gquit.obj(@seg_e0) ¶
		-lseg cache 						# becomes scm.bin.12 ¶
			{Object}cache.obj ¶
		-lseg init.1 						# becomes scm.bin.13 ¶
			{Object}init1.obj ¶
		-lseg init.2 						# becomes scm.bin.14 ¶
			{Object}init2.obj ¶
		-lseg init.3 						# becomes scm.bin.15 ¶
			{Object}init3.obj ¶
		-lseg init.4 						# becomes scm.bin.16 ¶
			{Object}init4.obj ¶
		-lseg terminator 					# becomes scm.bin.17 ¶
			{Object}scm.obj(@terminator)

#
# Dependencies for SCM...
#
{Object}scm.obj Ä 	{SCM}scm.src ¶
					{Common}gsos.macros.src ¶
					{Common}common.equ.src ¶
					{Common}hw.equ.src
	if "{ListFlag}" || "{ListPartFlag}" == "scm"; set AsmOptions "-l -m -lo {Listings}scm.lst"; end
	asmiigs 	{SCM}scm.src  	-o {Object}scm.obj 	-i {Common} {AsmOptions}
	unset AsmOptions

#
# Dependency rules for Bank 0 dispatcher
# 
{Object}B00segr.s.obj Ä {BankZero}B00segR.s.src
	if "{ListFlag}" || "{ListPartFlag}" == "bank0"; set AsmOptions "-l -m -lo {Listings}B00segR.s.lst"; end
	asmiigs {BankZero}B00segR.s.src 	-o {Object}B00segr.s.obj {AsmOptions}
	unset AsmOptions

{Object}B00segr.e.obj Ä {BankZero}B00segR.e.src
	if "{ListFlag}" || "{ListPartFlag}" == "bank0"; set AsmOptions "-l -m -lo {Listings}B00segR.e.lst"; end
	asmiigs {BankZero}B00segR.e.src 	-o {Object}B00segr.e.obj {AsmOptions}
	unset AsmOptions

{Object}Bank0.obj Ä 	{BankZero}Bank0.Dispatcher.src ¶
						{Common}common.equ.src ¶
						{Common}hw.equ.src ¶
						{Common}driver.equ.src
	if "{ListFlag}" || "{ListPartFlag}" == "bank0"; set AsmOptions "-l -m -lo {Listings}Bank0.Dispatcher.lst"; end
	asmiigs {BankZero}Bank0.Dispatcher.src 	-o {Object}Bank0.obj 	-i {common} {AsmOptions}
	unset AsmOptions

#
# Dependency rules for the Device Dispatcher
#
{Object}be0segr.e.obj Ä {DeviceDispatcher}be0segr.e.src
	if "{ListFlag}" || "{ListPartFlag}" == "devdisp"; set AsmOptions "-l -m -lo {Listings}be0segr.e.lst"; end
	Asmiigs {DeviceDispatcher}be0segr.e.src -o {Object}be0segr.e.obj {AsmOptions}
	unset AsmOptions
 
{Object}be0segr.s.obj Ä {DeviceDispatcher}be0segr.s.src
	if "{ListFlag}" || "{ListPartFlag}" == "devdisp"; set AsmOptions "-l -m -lo {Listings}be0segr.s.lst"; end
	Asmiigs {DeviceDispatcher}be0segr.s.src -o {Object}be0segr.s.obj {AsmOptions}
	unset AsmOptions

{Object}Device.Dispatcher.Obj Ä {DeviceDispatcher}Device.Dispatcher.Src ¶
								{Common}common.equ.src ¶
								{Common}hw.equ.src ¶
								{Common}gsos.macros.src ¶
								{Common}driver.equ.src
	if "{ListFlag}" || "{ListPartFlag}" == "devdisp"; set AsmOptions "-l -m -lo {Listings}Device.Dispatcher.lst"; end
	Asmiigs {DeviceDispatcher}Device.Dispatcher.Src -o {Object}Device.Dispatcher.Obj -i {common} {AsmOptions}
	unset AsmOptions

#
# Dependency rules for the Cache Manager
#
{Object}Cache.obj Ä 	{CacheManager}Cache.Src ¶
						{Common}common.equ.src
	if "{ListFlag}" || "{ListPartFlag}" == "cache"; set AsmOptions "-l -m -lo {Listings}Cache.lst"; end
	Asmiigs {CacheManager}Cache.Src 	-o {Object}Cache.obj 	-i {common} {AsmOptions}
	unset AsmOptions

#
# Dependency rules for the Init Manager
#
{Object}Init1.Obj Ä 	{InitManager}Init1.src ¶
						{Common}common.equ.src ¶
						{InitManager}init.equ.src
	if "{ListFlag}" || "{ListPartFlag}" == "init"; set AsmOptions "-l -m -lo {Listings}Init1.lst"; end
	Asmiigs {InitManager}Init1.src 		-o {Object}Init1.Obj 	-i {common} {AsmOptions}
	unset AsmOptions

{Object}Init2.Obj Ä 	{InitManager}Init2.src ¶
						{Common}common.equ.src ¶
						{InitManager}init.equ.src
	if "{ListFlag}" || "{ListPartFlag}" == "init"; set AsmOptions "-l -m -lo {Listings}Init2.lst"; end
	Asmiigs {InitManager}Init2.src 		-o {Object}Init2.Obj 	-i {common} {AsmOptions}
	unset AsmOptions

{Object}Init3.Obj Ä 	{InitManager}Init3.src ¶
						{InitManager}init.equ.src ¶
						{InitManager}init.data.src¶
						{Common}common.equ.src ¶
						{Common}hw.equ.src
	if "{ListFlag}" || "{ListPartFlag}" == "init"; set AsmOptions "-l -m -lo {Listings}Init3.lst"; end
	Asmiigs {InitManager}Init3.src 		-o {Object}Init3.Obj 	-i {common} {AsmOptions}
	unset AsmOptions

{Object}Init4.Obj Ä 	{InitManager}Init4.src ¶
						{InitManager}init.equ.src ¶
						{Common}common.equ.src ¶
						{Common}hw.equ.src
	if "{ListFlag}" || "{ListPartFlag}" == "init"; set AsmOptions "-l -m -lo {Listings}Init4.lst"; end
	Asmiigs {InitManager}Init4.src 		-o {Object}Init4.Obj 	-i {common} {AsmOptions}
	unset AsmOptions

#
# Dependency rules for the Gquit
#
{Object}gquit.obj Ä 	{Gquit}gquit.src ¶
						{Common}common.equ.src ¶
						{Common}hw.equ.src ¶
						{Gquit}gquit.macros.src
	if "{ListFlag}" || "{ListPartFlag}" == "gquit"; set AsmOptions "-l -m -lo {Listings}gquit.lst"; end
	asmiigs {Gquit}gquit.src ¶
		-o {Object}gquit.obj ¶
		-i {common} {AsmOptions}
	unset AsmOptions

#
# Dependencies for the System Loader...
#
Files	 =	{Loader}Loader.a		{Loader}Functions.a		{Loader}Init.Load.a ¶
			{Loader}Restart.a		{Loader}Jump.a			{Loader}Segments.a ¶
			{Loader}Relocation.a	{Loader}Files.a			{Loader}Struct.a ¶
			{Loader}Misc.a			{Loader}Data.a 			{Loader}ExpressLoad.a ¶
			{Loader}Loader.Macros 	{Loader}Loader.Equates 	{Loader}Loader.Preamble ¶
			{Loader}dp.a
			

{WorkFolder}Loader.bin	Ä	{Object}Loader.obj {Object}GSHeader.obj  {Object}GSFooter.obj
	if "{ListFlag}"; set LnkOptions "-l > {Listings}Loader.symbols"; end
	LinkIIGS -x {Object}GSHeader.obj {Object}Loader.obj {Object}GSFooter.obj ¶
		-o {WorkFolder}Loader.S16 {LnkOptions}
	MakeBinIIGS {WorkFolder}Loader.S16 -o {WorkFolder}Loader.bin
	unset LnkOptions

{Object}Loader.obj	Ä	{Files} 
	if "{ListFlag}" || "{ListPartFlag}" == "loader"; set AsmOptions "-l -m -lo {Listings}Loader.lst"; end
	AsmIIGS {Loader}Loader.a -o {Object}Loader.obj {AsmOptions}
	unset AsmOptions

{Object}GSHeader.obj	Ä	{Loader}GSHeader.a {Loader}Loader.Preamble
	if "{ListFlag}" || "{ListPartFlag}" == "loader"; set AsmOptions "-l -m -lo {Listings}GSHeader.lst"; end
	AsmIIGS {Loader}GSHeader.a -o {Object}GSHeader.obj {AsmOptions}
	unset AsmOptions

{Object}GSFooter.obj	Ä	{Loader}GSFooter.a {Loader}Loader.Preamble
	if "{ListFlag}" || "{ListPartFlag}" == "loader"; set AsmOptions "-l -m -lo {Listings}GSFooter.lst"; end
	AsmIIGS {Loader}GSFooter.a -o {Object}GSFooter.obj {AsmOptions}
	unset AsmOptions
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/MakeFiles/make.p8 b/IIGS.601.SRC/GS.OS/MakeFiles/make.p8
new file mode 100644
index 0000000..4543157
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/MakeFiles/make.p8
@@ -0,0 +1 @@
+#####################################################################################
# P8 Makefile
# By Bryan Atsatt
# from original by Grady Ward
# 06 Dec 88
#
#
# Modification history:
#
# Date		Who		What
# ------	---		-----------------------------------------------------------------
# 1/25/89	Monte Benaresh
# 06/14/90	GAB		Included dependencies and build instructions for the new Quit code
# 08/22/90	GAB		Included dependencies and build instructions for GQuit's dispatcher
# 
#####################################################################################

DriverDir	=	"{P8}"P8.Drivers:

"{SDSystem}"p8 Ä "{Makefiles}"make.p8 ¶
		"{workfolder}"cclock.bin ¶
		"{workfolder}"tclock.bin  ¶
		"{workfolder}"ram.bin ¶
		"{workfolder}"sel.bin ¶
		"{workfolder}"sel.alt.bin ¶
		"{workfolder}"QuitCode.bin ¶
		"{workfolder}"xrwtot.bin ¶
		"{workfolder}"ProdosBIN
	OverlayIIGS "{workfolder}"ram.bin.2		"{workfolder}"ProdosBIN -a $0c80	# /RAM driver installer
	OverlayIIGS "{workfolder}"ram.bin.3		"{workfolder}"ProdosBIN -a $0d00	# /Ram Main Bank driver
	OverlayIIGS "{workfolder}"ProdosBIN.4	"{workfolder}"ProdosBIN -a $0d9B	# page $FF interrupt handlers
	OverlayIIGS "{workfolder}"ProdosBIN.2	"{workfolder}"ProdosBIN -a $0e00	# Global page
	OverlayIIGS "{workfolder}"TClock.bin	"{workfolder}"ProdosBIN -a $0f00	# Thunderclock driver
	OverlayIIGS "{workfolder}"cclock.bin	"{workfolder}"ProdosBIN -a $0f80	# GS Clock driver
	OverlayIIGS "{workfolder}"ProdosBIN.3	"{workfolder}"ProdosBIN -a $1000	# Kernal
	OverlayIIGS "{workfolder}"ram.bin		"{workfolder}"ProdosBIN -a $3100	# /RAM Aux Bank driver
	OverlayIIGS "{workfolder}"xrwtot.bin	"{workfolder}"ProdosBIN -a $3300	# Disk ][ driver
	OverlayIIGS "{workfolder}"sel.bin		"{workfolder}"ProdosBIN -a $3a00	# _Quit call handler
	OverlayIIGS "{workfolder}"QuitCode.bin	"{workfolder}"ProdosBIN -a $3d00	# Better Bye _Quit call handler
	OverlayIIGS "{workfolder}"SEL.alt.bin	"{workfolder}"ProdosBIN -a $4000	# GQuit program loader and launcher (alternate quit code)
	setfile -c pdos -t "FF  " -m . "{workfolder}"ProdosBIN
	duplicate -y "{workfolder}"ProdosBIN "{SDSystem}"p8

"{workfolder}"ProdosBIN Ä "{Makefiles}"make.p8 "{p8}"mlisrc.aii
	if "{ListFlag}"; Set AsmOptions "-l -m -lo ¶"{Listings}¶"P8.lst"; end
	AsmIIGS "{p8}"mlisrc.aii -o "{object}"mlisrc.obj {asmoptions}
	linkiigs 	-t "06  "  ¶
		-lseg PROCONE 	-org $002000 "{object}"mlisrc.obj(PROCONE) 	¶
		-lseg PROCTWO 	-org $00BF00 "{object}"mlisrc.obj(PROCTWO) 	¶
		-lseg PROCTHREE -org $00DE00 "{object}"mlisrc.obj(PROCTHREE) 	¶
		-lseg PROCFOUR 	-org $00FF9B "{object}"mlisrc.obj(PROCFOUR) 	¶
		-o "{workfolder}"mli.out {lnkoptions}
	MakeBinIIgs "{workfolder}"mli.out -o "{workfolder}"ProdosBIN

"{workfolder}"cclock.bin Ä "{Makefiles}"make.p8 "{DriverDir}"cclock.n
	if "{ListFlag}"; Set AsmOptions "-l -m -lo ¶"{Listings}¶"CClock.lst"; end
	AsmIIGS "{DriverDir}"cclock.n -o "{object}"cclock.n.obj {asmoptions}
	linkiigs "{object}"cclock.n.obj -org $d742 -o "{workfolder}"cclock.out
	MakeBinIIgs "{workfolder}"cclock.out -o "{workfolder}"cclock.bin

"{workfolder}"tclock.bin Ä "{Makefiles}"make.p8 "{DriverDir}"tclock.n
	if "{ListFlag}"; Set AsmOptions "-l -m -lo ¶"{Listings}¶"tclock.lst"; end
	AsmIIGS "{DriverDir}"tclock.n -o "{object}"TClock.n.obj {asmoptions}
	linkiigs "{object}"tclock.n.obj -org $d742 -o "{workfolder}"tclock.out
	MakeBinIIgs "{workfolder}"tclock.out -o "{workfolder}"tclock.bin

"{workfolder}"ram.bin Ä "{Makefiles}"make.p8 "{DriverDir}"ram.n
	if "{ListFlag}"; Set AsmOptions "-l -m -lo ¶"{Listings}¶"Ram.lst"; end
	AsmIIGS "{DriverDir}"ram.n -o "{object}"ram.n.obj {asmoptions}
	linkiigs  -o "{workfolder}"ram.out ¶
		-lseg RAM1 -org $000200 "{object}"ram.n.obj(RAM1) ¶
		-lseg RAM2 -org $002C80 "{object}"ram.n.obj(RAM2) ¶
		-lseg RAM3 -org $00FF00 "{object}"ram.n.obj(RAM3) ¶
		{lnkoptions}
	makebiniigs "{workfolder}"ram.out -o "{workfolder}"ram.bin

"{workfolder}"sel.bin Ä "{Makefiles}"make.p8 "{DriverDir}"sel.n
	if "{ListFlag}"; Set AsmOptions "-l -m -lo ¶"{Listings}¶"Sel.lst"; end
	AsmIIGS "{DriverDir}"sel.n -o "{object}"sel.n.obj {asmoptions}
	linkiigs "{object}"sel.n.obj -org $1000 -o "{workfolder}"sel.out
	makebiniigs "{workfolder}"sel.out -o "{workfolder}"sel.bin

"{workfolder}"sel.alt.bin Ä "{Makefiles}"make.p8 "{DriverDir}"sel.alt.n
	if "{ListFlag}"; Set AsmOptions "-l -m -lo ¶"{Listings}¶"Sel.Alt.lst"; end
	AsmIIGS -i ""{Common}"" "{DriverDir}"sel.alt.n -o "{object}"sel.alt.obj {asmoptions}
	LinkIIGS "{object}"sel.alt.obj -org $1000 -o "{workfolder}"sel.alt.out -t "06  "
	MakeBinIIGS "{workfolder}"sel.alt.out -o "{workfolder}"sel.alt.bin

"{workfolder}"xrwtot.bin Ä "{Makefiles}"make.p8 "{DriverDir}"xrwtot.n
	if "{ListFlag}"; Set AsmOptions "-l -m -lo ¶"{Listings}¶"XrwTot.lst"; end
	AsmIIGS "{DriverDir}"xrwtot.n -o "{object}"xrwtot.n.obj {asmoptions}
	linkiigs "{object}"xrwtot.n.obj -org $D000 -o "{workfolder}"xrwtot.out
	makebiniigs "{workfolder}"xrwtot.out -o "{workfolder}"xrwtot.bin

"{workfolder}"QuitCode.bin	Ä	"{DriverDir}"QuitCode.aii ¶
								"{DriverDir}"M16.P8 ¶
								"{DriverDir}"E16.8Bit ¶
								"{DriverDir}"E16.P8
	if "{ListFlag}"; Set AsmOptions "-l -m -lo ¶"{Listings}¶"QuitCode.lst"; end
	AsmIIGS "{DriverDir}"QuitCode.aii -i "{DriverDir}" -o "{Object}"QuitCode.obj {asmoptions}
	LinkIIGS "{Object}"QuitCode.obj -o "{workfolder}"QuitCode.out
	MakeBinIIGS "{workfolder}"QuitCode.out -o "{workfolder}"QuitCode.bin
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/MakeFiles/make.pascal.fst b/IIGS.601.SRC/GS.OS/MakeFiles/make.pascal.fst
new file mode 100644
index 0000000..473a485
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/MakeFiles/make.pascal.fst
@@ -0,0 +1 @@
+#
# Dependency rules for Pascal FST...
#
AOPTIONS	= -D DEBUGSYMBOLS=0

{SDfsts}pascal.fst 	Ä {Object}pascal.fst.obj
	linkiigs {Object}pascal.fst.obj -t $bd -o {object}pascal.fst {LnkOptions}	
	duplicate -y  {object}pascal.fst {SDfsts}pascal.fst

{Object}pascal.fst.obj Ä {PascalFST}pascal.fst.aii
	asmiigs {PascalFST}pascal.fst.aii -o {Object}pascal.fst.obj -i {Common} {AOptions} {AsmOptions}
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/MakeFiles/make.pro.fst b/IIGS.601.SRC/GS.OS/MakeFiles/make.pro.fst
new file mode 100644
index 0000000..f788746
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/MakeFiles/make.pro.fst
@@ -0,0 +1 @@
+######################################################
#
# Rules to build the ProDOS FST
#
AOPTIONS	= -D DEBUGSYMBOLS=0

{SDfsts}Pro.FST 	Ä		{object}ProDOS.FST.obj			
		linkiigs 	{object}prodos.fst.obj 		¶
			-t $BD							¶
			-o {object}Pro.FST {LnkOptions}
	Duplicate -y {object}Pro.FST  {SDfsts}Pro.FST

{object}ProDOS.FST.obj		Ä		{ProDOS}ProDOS.FST	¶
									{common}common.equ.src
		Asmiigs {ProDOS}ProDOS.FST -o {object}ProDOS.FST.Obj -i {common} {AOptions} {AsmOptions}
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/MakeFiles/make.proboot b/IIGS.601.SRC/GS.OS/MakeFiles/make.proboot
new file mode 100644
index 0000000..ea5eb6e
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/MakeFiles/make.proboot
@@ -0,0 +1 @@
+#
# Dependencies for proboot...
#
{Object}proboot.obj Ä {GSOSboot}proboot.src
 asmiigs {GSOSboot}proboot.src -o {Object}proboot.obj {AsmOptions}
 linkiigs {Object}proboot.obj -o {WorkFolder}proboot.lnk {LnkOptions}
 makebiniigs -org $2000 {WorkFolder}proboot.lnk -o {SystemDisk}prodos
 setfile {SystemDisk}prodos -t PSYS
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/MakeFiles/make.quicklogoff b/IIGS.601.SRC/GS.OS/MakeFiles/make.quicklogoff
new file mode 100644
index 0000000..b4861ee
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/MakeFiles/make.quicklogoff
@@ -0,0 +1 @@
+#
# This is the makefile for :System.Tools:AppleTalk:QuickLogoff.
#
# It is a system.setup that can be used with network booting.
# If installed, when the user's startup application quits, the
# user will be logged off and then logon will run.  This bypasses
# the menu which also allows you to re-run the startup application
# or to reboot.
#
# Written by Mark Day
#

QL				=	{NetBoot}QuickLogoff:

{SDAppleTalk}QuickLogoff	Ä	{QL}quick.o
	LinkIIGS -o {SDAppleTalk}QuickLogoff -t $B7 {QL}quick.o

{QL}quick.o			Ä	{QL}quick.aii
	AsmIIGS -o {QL}quick.o {QL}quick.aii
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/MakeFiles/make.ud3.5 b/IIGS.601.SRC/GS.OS/MakeFiles/make.ud3.5
new file mode 100644
index 0000000..7292628
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/MakeFiles/make.ud3.5
@@ -0,0 +1 @@
+######################################################
#
# Rules to build the Unidisk3.5 driver
#
# The file type for drivers is $BB
# The aux file type for the Unidisk3.5 is $0104 and
# indicates that the driver supports a maximum of
# four devices.
#
{SDdrivers}UniDisk3.5 Ä 						¶
					{object}UniDisk3.5.obj		
	linkiigs 			 							¶
					{object}UniDisk3.5.obj 		¶
		-t $bb								¶
		-at $0104								¶
		-o {object}UniDisk3.5 {LnkOptions}
	Duplicate -y {object}UniDisk3.5 {SDdrivers}UniDisk3.5

{object}UniDisk3.5.obj	Ä	{GSOS}Drivers:UniDisk3.5:UniDisk3.5.src		¶
							{GSOS}Drivers:UniDisk3.5:Max.Macros ¶
							{common}common.equ.src ¶
							{common}hw.equ.src
 asmiigs {GSOS}Drivers:UniDisk3.5:UniDisk3.5.src  ¶
 	-o {object}UniDisk3.5.Obj -i {common} {AsmOptions}
	
	
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/ATInit/ATInit.data.aii b/IIGS.601.SRC/GS.OS/NetBoot/ATInit/ATInit.data.aii
new file mode 100644
index 0000000..a7987f5
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/NetBoot/ATInit/ATInit.data.aii
@@ -0,0 +1 @@
+*****************************************
* This area is the Data structure area	*
* for Networking applications to modify	*
* the User name and Printer.  Nothing 	*
* can be changed in this area that 	*
* would change the number of bytes.	*
*****************************************

atinitdata	PROC
		export	username,prflag,prname
		
username 	dc.b	$00		; No user name (so user will be asked first time)
	 	ds.b	32		; room for rest of name
		
prflag		DC.B $a0		;Printer flag.

prname					;Default printer name goes here.
		ds.b	99		; always reserve 99 bytes for printer name

		ENDP
		end
		
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/ATInit/MakeFile b/IIGS.601.SRC/GS.OS/NetBoot/ATInit/MakeFile
new file mode 100644
index 0000000..20c8f33
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/NetBoot/ATInit/MakeFile
@@ -0,0 +1 @@
+#
# Makefile for ATInit.
#


atinit			Ä	atinit.aii.obj atinit.data.aii.obj ::console:console.o
	linkiigs -o atinit atinit.aii.obj ::console:console.o atinit.data.aii.obj
	makebiniigs -t $E2 atinit

atinit.aii.obj		Ä	atinit.aii
	asmiigs atinit.aii

atinit.data.aii.obj	Ä	atinit.data.aii
	asmiigs atinit.data.aii

::console:console.o	Ä	::Console:Console.aii ¶
				::console:cons.macros ¶
				::console:cons.macros
	AsmIIGS -i ::console: -o ::Console:Console.o ::Console:Console.aii
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/ATInit/atinit.aii b/IIGS.601.SRC/GS.OS/NetBoot/ATInit/atinit.aii
new file mode 100644
index 0000000..ea9a9fa
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/NetBoot/ATInit/atinit.aii
@@ -0,0 +1 @@
+*opennet
* this file moves all new code that is going into bank
* $e0 language card area.  It checks for a card and calls init.
* After init it calls the start vectors for any protocols that
* have been added, like PAP, RPM, ZIP, and any patches.
*           by
*           Greg Seitz
*           15-Apr-86
*
* Copyright Apple Computer, Inc.  1986
* All Rights Reserved
* Version 1.2
*
* 24-Sept-86 (RBH)
* Changed interrupt vector for the ParaMIS card for the umpteenth time
* it is now CN19
*
* 30-Sept-86 (RBH)
* Turn on interrupts for the Apple //
*
* 12-May-87 (rbh)
* -added the network call to set the user name.
*
* 30-Jun-87 (rbh)
* Converted source code to MactoGS assembler
* removed support for ProDOS 16 and the Apple //GS
*
* 2-July-87 (rbh)
* Added the console driver so that a dialog box could be drawn on the screen
* and user could enter name if set to null.
*
* 21-July-87 (rbh)
* Added support so that Atinit can be used with the server firmware.
*
* 28-Sept-87 (rbh)
* Fixed bug where workstation disk was locked causing ProDOS to crash.
*
* 1-Dec-87 (rbh)
* Added routines to display message when not run on an enhanced //e
*
* 1-Dec-87 (rbh)
* Derivation of names and NoNamers are no longer stored on the
* workstation card.
*
* 7-Jun-91 (msd)
* Converted source to MPW IIGS.  Fixed the bug where the PMSetPrinter
* setting the default printer doesn't get the printer flag byte from
* the end of the ATINIT file like it should.  Changed to version 1.4.
*
* 6-Aug-91 (MSD)
* The loop that finds the card's slot was stopping once it found the
* 'ATLK' ID bytes; if the machine ID was something it didn't know about
* (like 0 for the GS's built-in LocalTalk), it just returned.  It now
* will resume scanning the other slots.
*
* 18-Jun-92 (MSD)
* The data section (user name, printer name, etc.) was in the middle of the file,
* not at the end of the file like it's supposed to be.  Removed the data section
* which is now in the file ATInit.data.aii.
*
* 29-Jun-92 (MSD)  Version 1.4d3
* If the machine (hardware) ID is $F0, then the card is still doing its diagnostics.
* It used to put up the BadCard message.  It now loops back to test the ID byte.
* If the card somehow hung in diagnostics, the LED _should_ be RED (but this code
* will be in an infinite loop).
*

		include	'::Console:Console.Equates'
   		include '::Console:cons.macros'
		longa 	off
 		longi	off
  		machine	m65C02

		import	ConsDrvr
		
		import	username,prflag,prname	; from atinit.data.aii
		

CheckMach	equ	$fe1f			;Monitor Routine to check machine type
mli		equ	$bf00
bootkind	equ	$e100bd
cardptr		equ	$fe
StgPtr		equ	$fa
StgPtr2		equ	$fc
WindowBuff	equ	$8000			;WindowBuff[512]
CrHB		equ   	$8d
IOBuff		equ	$9600


checkabort	proc	export

RomIn		equ	$c082
RomID		equ	$fbc0			;ID byte for the //e Rom Rev
SetVid		equ	$fe93
SetKbd		equ	$fe89
Home		equ	$fc58
ch		equ	$24
kbdstrb		equ	$c010
kbd		equ	$c000 
COUT		equ 	$FDED
VTABA		equ	$FB5B
MachID		equ	$bf98
Clr80Vid	equ	$c00c
SetAltChar	equ	$c00f
Clr80Col	equ	$c000
Speaker		equ	$c030
NameOffset	equ	133
Open		equ	$c8
Write		equ	$cb
SetMark		equ	$ce
Close		equ	$cc
GetEof		equ	$d1
SetPrefix	equ	$c6
Flush		equ	$cd
GetPrefix	equ	$c7
Null		equ	0
NameLen		equ	31

		stz	ServerFlag
		lda	$c061			;get open apple button
		bmi	NoUpLoad
		jsr	Check2e			;check to see if the 2e is enhanced
		bcc	A2eOK
NoUpLoad
		clc
		rts				;otherwise just return
A2eOK
		lda	#$f9
		sta	cardptr
		lda	#$c7
		sta	cardptr+1
NxtSlot		ldy	#3
ckloop		lda	(cardptr),y
		cmp	idtbl,y
		bne	NoMatch
		dey
		bpl	ckloop
CheckMachID
		ldy	#4
		lda	(cardptr),y		; get hardware type byte	   
		cmp	#1			; workstation
		beq	Doit
		cmp	#2			; server
		bne	Ck2
		lda	#$80
		sta	ServerFlag
		bra	Doit
Ck2		cmp	#$f0			; still doing diagnostics
		beq	CheckMachID		; yes, so keep looking at it
		cmp	#$ff			; failed diagnostics
		beq	BadCard
		bne	NoMatch			; 6-Aug-91 MSD: unknown ID, try other slots
CkOut		rts

BadCard
		InitConsole
		CursorOff
		ldy	#$80			;Alert message
		ldx	#0			;The card failed powerup diagnostics
		jsr	ErrorHandler		;Tell the user
		jmp	alldone			;and leave without initalization

NoMatch
		dec	cardptr+1
		lda	cardptr+1
		cmp	#$c0			;are we finished scanning the slots?
		bne	NxtSlot
		jmp	alldone

Doit
		lda	mli+1
		sta	ProEntPt		;setup the ProDos Entry Point
		lda	mli+2
		sta	ProEntPt+1
		lda	#$14			
		sta	CardVect
		bit	ServerFlag
		bmi	NotWk1			;not a workstation card so don't set up mli.
		sta	mli+1
NotWk1		lda	CardPtr+1
		sta	CardVect+1
		sta	aiparms+3
		bit	ServerFlag
		bmi	NotWk2			;not a workstation card so don't set up mli.
		sta	mli+2		
NotWk2		jsr	GoCard
		dc.b	$42
		dc.w	initparms
		jsr	mli
		dc.b	$40
		dc.w	aiparms
		cli				;turn on interrupts for Apple //e
		jsr	GoProDOS
		dc.b	GetPrefix
		dc.w	PrefixParm
		jsr	GoCard
		dc.b	SetPrefix
		dc.w	PrefixParm

*
setprinter

; --> Begin 7-Jun-91 MSD
; When setting the default printer, we must use the printer flags
; stored at the end of ATINIT, not assume it was a LaserWriter.

		lda	prflag			; Get printer type from ATINIT data
		sta	theflag			; use it to set the printer type
; <-- End 7-Jun-91 MSD

		jsr	GoCard
		dc.b	$42
		dc.w	setprint
		InitConsole
		CursorOff
		lda	UserName
		beq	GetName
DoSetName
		jmp	RegisterName

GetName
		jsr	DrawBox
		WriteCStr Prompt1
		GotoXY	50,0
		WriteCStr Version
		WriteCStr EnterName
		Input	MyParms
		jsr	RestoreBox
		lda	UserName
		beq	DS2
		jsr	UpdateName
		bra	DoSetName
DS2		lda	#UserName
		sta	StgPtr
		lda	#>UserName
		sta	StgPtr+1
		lda	#NoUser
		ldx	#>NoUser
		ldy	#0
		jsr	MovStr

RegisterName
		lda	#RegName
		sta	StgPtr
		lda	#>RegName
		sta	StgPtr+1
		lda	#UserName
		ldx	#>UserName
		ldy	#9
		jsr	MovStr
DoType		sec
		jsr	CheckMach
		bcs	TwoE
		ldy	Ytemp
		lda	#GSType
		ldx	#>GSType
		jsr	MovStr
		bra	DoRegName
TwoE
		ldy	Ytemp
		lda	#TwoEType
		ldx	#>TwoEType
		jsr	MovStr
DoRegName
		ldy	Ytemp
		lda	#ZoneName
		ldx	#>ZoneName
		jsr	MovStr
		jsr	DrawBox
		GotoXY	50,0
		WriteCStr Version
		WriteCStr RegNameStr1
		ldx	#UserName
		ldy	#>UserName
		WritePointer
		WriteCStr RegNameStr2
		jsr	GoCard
		dc.b	$42
		dc.w	RegstrName
		php
		jsr	RestoreBox
		plp
		bcc	alldone
		jsr	DeriveName
		bcs	alldone
		jmp	RegisterName
alldone
 		lda 	RomIn			
 		jsr 	SetVid			
 		jsr	SetKbd			
 		sta 	Clr80Vid		
 		sta	SetAltChar		
 		sta	Clr80Col
 		clc
		rts

error
		lda	initparms+2		;get error code
		sec
		rts

DeriveName
		stz	NoNameFlag
		ldx	UserName
		lda	UserName,x
		cmp	#'>'
		bne	DN1
		lda	#$80
		sta	NoNameFlag
DN1
		lda	DeriveCnt
		bne	DN2
		jsr	AddOne
		bra	DN3
DN2		cmp	#9
		bne	DN3
		jsr	AddOne
DN3
		cmp	#99
		bne	DN4
		sec				;99 times, give it up!
		rts

DN4
		ldx	UserName		;get the Length of the string
		bit	NoNameFlag
		bpl	DN5
		dex
DN5		inc	UserName,x
		lda	UserName,x
		cmp	#$3A			;is it an Ascii '0'?
		bne	DNDun
		lda	#$30
		sta	UserName,x
		dex
		inc	UserName,x
DNDun		inc	DeriveCnt
		clc
		rts


AddOne
		pha
		cmp	#9
		bne	AO2
		lda	UserName
		cmp	#NameLen
		beq	AO1
		inc	a
		inc	UserName
AO1		tax
		bit	NoNameFlag
		bpl	AO4
		dex
AO4		lda	#$2f
		sta	UserName,x
		dex
		lda	#$31
		sta	UserName,x
		bra	AODun
AO2
		lda	UserName
		cmp	#NameLen
		beq	AO3
		inc	a
		inc	UserName
AO3
		tax
		bit	NoNameFlag
		bpl	AO6
		dex
AO6		lda	#$30
		sta	UserName,x
AODun
		bit	NoNameFlag
		bpl	AO5
		lda	#'>'
		ldx	UserName
		sta	UserName,x
AO5		pla
		rts

	
UpdateName
		jsr	mli
		dc.b	Open
		dc.w	OpenParm
		bcc	UN1
		rts
UN1		lda	OpenParm+5		;get the reference Number
		sta	WriteParm+1
		sta	GetEofParm+1
		sta	SetMarkParm+1
		sta	FlushParm+1
		sta	CloseParm+1
		jsr	mli
		dc.b	GetEof
		dc.w	GetEofParm
		bcs	UN4
		sec
		lda	GetEofParm+2
		sbc	#NameOffset
		sta	PrName
		sta	SetMarkParm+2
		lda	GetEofParm+3
		sbc	#>NameOffset
		sta	SetMarkParm+3
		lda	GetEofParm+4
		sbc	#0
		sta	SetMarkParm+4
UN3
		jsr	mli
		dc.b	SetMark
		dc.w	SetMarkParm
		bcs	UN4
		jsr	mli			;all is still well, write the name out to the ATINIT file
		dc.b	Write		;
		dc.w	WriteParm		;
		bcs	UN8
		jsr	mli			;this is a special fix for the UniDisk 3.5
		dc.b	Flush		;which does not know when it writes to a file
		dc.w	FlushParm		;that the disk is write protected
		bcc	UN4			;
UN8		cmp	#$2F			;is the device online?
		beq	UN2			;no it isnt
		cmp	#$2b			;any error but write protect (2b) is undefined
		bne	UN4			;
UN2		ldy	#$80			;alert -> Please write enable this volume:
		ldx	#1
		jsr	ErrorHandler
		bra	UN3
UN4
		jsr	mli
		dc.b	Close
		dc.w	CloseParm
		rts
		
Check2e
		sec				;check to see if the machine is a //gs
		jsr	CheckMach		;
		bcc	IIeGood			;if so, we are done
		lda	#0			;load the accumulator
		inc	a			;this is a 65C02 instruction
		beq	NoGood2e		;if zero, this is a 6502
		lda	MachID			;get the ProDOS MachID
		and	#$F2			;clear the unwanted bits
		cmp	#%10110010		;this should be the result 128K, 80 Col
		bne	NoGood2e
		lda	RomID			;check for enhanced roms
		cmp	#$E1			;check for debugger roms
		beq	IIeGood
		cmp	#$E0			;is the byte E0?
		bne	NoGood2e		;Off we go to display the message
IIeGood		clc				;clear the carry flag
		rts				;we have passed the test

NoGood2e
		jsr	Home			;clear the screen
		jsr	DrawInvBox		;draw a box for display
	        ldy   	#7
         	ldx   	#5
         	jsr   	gopos         		;set the cursor position
         	lda   	#qmsg1
         	ldx   	#>qmsg1
         	ldy   	qmsg1len
         	jsr   	printblk 		;print the message
		ldy	#9
		ldx	#5
		jsr	GoPos
         	lda   	#qmsg2
         	ldx   	#>qmsg2
ge1
         	ldy   	qmsg2len
         	jsr   	printblk 	;print the message
		jsr	Dobell
nopass
		jmp	nopass

PrintBlk
        	sta    	stgptr       	;SET UP ZERO PAGE
        	STX    	StgPtr+1     	;
        	sty    	BlockLen        ;SAVE THE NUMBER OF CHARACTERS TO PRINT
        	ldy    	#0              ;START WITH CHARACTER #1
PLOOP   	lda    	(StgPtr),Y     	;GET THE CHARACTER
        	ORA    	#$80            ;SET THE HIGH BIT 
        	jsr    	cout            ;OUTPUT TO SCREEN
        	iny                   	;INCREMENT Y REGISTER
        	cpy    	BlockLen       	;CHECK TO SEE IF WERE AT THE END OF BLK
        	bne    	PLoop           ;IF NOT CONTINUE
        	inc    	ch          	;add one to ch, not sure why??
        	rts                  	;IF SO, WE ARE DONE

gopos
         	dey                 	;Setup the Y screen coordinates from 1-24, not the
         	tya                 	;monitior 0-23.
         	jsr   	VTABA          	;set the vertical position
         	dex                 	;Setup the X screen coordinates from 1-80, not the
         	stx   	ch            	;set the horizontal position.
         	rts                 	;and return

Dobell
         	LDA   	#$40                     ;DURATION
         	STA   	B_LNGTH                  
BELL_1   	LDA   	#$02                     ;SHORT DELAY
         	JSR   	B_WAIT                   
         	STA   	Speaker                     
         	LDA   	#$24                     ;LONG DELAY
         	JSR   	B_WAIT                   
         	STA   	Speaker                     
         	DEC   	B_LNGTH                  
         	BNE   	BELL_1                   
         	RTS
		
DrawInvBox
		lda	#10
		sta	DrawCnt
		ldy	#5
		sty	Ypos
		ldx	#2
		jsr	GoPos
		ldx	#37
DrawLup1	lda	#$20			;an inverse space character
		jsr	cout
		dex
		bne	DrawLup1
Frame		inc	Ypos
		ldy	Ypos
		ldx	#2
		jsr	GoPos
		lda	#$20
		jsr	Cout
		ldy	Ypos
		ldx	#38
		jsr	GoPos
		lda	#$20
		jsr	Cout
		dec	DrawCnt			;until the count equals zero
		bne	Frame
		ldy	YPos
		ldx	#2
		jsr	GoPos
		ldx	#36
DrawLup2	lda	#$20			;an inverse space character
		jsr	cout
		dex
		bne	DrawLup2
		rts

;
; WAIT ROUTINE
;
B_WAIT   	SEC                            
B_WAIT2  	PHA                            
B_WAIT3  	SBC   	#1                       
         	BNE   	B_WAIT3                  
         	PLA                            
         	SBC   	#1                       
         	BNE   	B_WAIT2                  
         	RTS                            
;
B_LNGTH  	ds.b	1

*****************************************
* MovStr moves a Pascal type string to 	*
* the buffer pointed to by StgPtr. 	*
* 					*
* The string to be moved is passed with *
* the A register containing the low	*
* byte of the pointer and the X		*
* register contains the high byte.	*
* The Y register is the Offset.		*
*****************************************

MovStr
		sta	StgPtr2
		stx	StgPtr2+1
		sty	YTemp
		ldy	#0
		lda	(StgPtr2),y
		tax					;number of characters to transfer
		ldy	YTemp				;get the offset
		sta	(StgPtr),y			;store the length byte
		inc	YTemp				;increment the temporary counter
		inc	StgPtr2				;increment the 
		bne	MStr1
		inc	StgPtr2+1
MStr1		ldy	#0
MStr2
		phy
		lda	(StgPtr2),y
		ldy	YTemp
		sta	(StgPtr),y
		inc	YTemp
		ply
		iny
		dex
		bne	MStr2
		rts

ErrorHandler
		cpy	#0			;if minus flag clear then this is an alert
		bmi	IsAlert			;you can only accept!
		ldy	#0			;if minus flag clear then this is a dialog 
IsAlert						;with two possible paths.
		txa
		asl	a
		tax
		lda	MessTbl,x		;get the low byte of pointer to the String
		sta	MessPtr			;into the Y register for a second
		lda	FilProcTbl,x
		sta	FilterProc
		inx				;increment the pointer
		lda	MessTbl,x		;get the high byte of pointer to the String	
		sta	MessPtr+1		;
		lda	FilProcTbl,x
		sta	FilterProc+1
		sty	MessOpt
GoMessage	Message	MessParms
		rts

PrefixProc
		GetXY
		ldx	#2
		lda	#CD_GotoXY
		jsr	ConsDrvr
		ldx	PrefixParm+1
		ldy	PrefixParm+2
		WritePointer
		rts


DrawBox
		lda	#%01000000
		sta	MessOpt
		Message	MessParms
		rts
		
RestoreBox
		lda	#%00100000
		sta	MessOpt
		Message	MessParms
		rts

GoCard		jmp	(CardVect)
GoProDOS	jmp	(ProEntPt)

InitParm 	dc.b	$80

MessParms
MessOpt		ds.b	1
MessPtr		ds.b	2
FilterProc	dc.w	0
Rect
		dc.b	10        	;x1
         	dc.b	9       	;y1
		dc.b	70       	;x2
         	dc.b	15       	;y2
WindBuff	dc.w	WindowBuff


MessTbl		dc.w	Mess0
		dc.w	Mess1

FilProcTbl	dc.w	Null
		dc.w	PrefixProc

Mess0
		dc.b	(Mess0End-Mess0)-1
		dc.b	Return
		dc.b	'  The workstation card failed power up diagnostics.'	;Here 
		dc.b	Return
		dc.b	Return
		dc.b	'  AppleTalk has not been initalized.'
Mess0End

Mess1
		dc.b	(Mess1End-Mess1)-1
		dc.b	Return
		dc.b	'  Please write enable this volume:'
		dc.b	Return
Mess1End


BlockLen	ds.b	1
DrawCnt		ds.b	1
YPos		ds.b	1

Version
		dc.b	'V1.4d3'
		dc.b	$00

RegNameStr1	dc.b	CPOS
		dc.b	3
		dc.b	1
		dc.b	'Registering "'
		dc.b	$00

EnterName	dc.b	CPOS
		dc.b	3
		dc.b	1
		dc.b	'Please Enter a User Name:'
		dc.b	CPOS
		dc.b	3
		dc.b	3
		dc.b	$00

RegNameStr2	dc.b	'"'
		dc.b	CPOS
		dc.b	3
		dc.b	3
		dc.b	'on the AppleTalk Network...'
		dc.b	$00

Prompt1		dc.b	CPOS
		dc.b	1
		dc.b	5
		dc.b	'Esc: Cancel'
		dc.b	CPOS
		dc.b	54
		dc.b	5
		dc.b	'OK: '
		dc.b	MTON
		dc.b	'M'
		dc.b	MTOFF
		dc.b	$00

MyParms
OptionByte	dc.b	$00			;option Byte
MyLen		dc.b	NameLen		;maximum input length
InBuff      	dc.w	UserName		;Buffer for input/output
       		dc.w	MyTermList		;Termination Characters
		
MyTermList
 		dc.b	$02
		dc.b	Escape
 		dc.b	CrHB    		;2 characters Esc and Return

initparms	dc.b	0,1			; sync Init
		dc.w	0
		dc.b	$40
ProEntPt	dc.l	0		;past junk
		dc.b	$00			;pick a node, any node
		dc.w	0

aiparms		dc.b	2
		dc.b	0
		dc.w	$C719		; interrupt entry in firmware

setprint
		dc.b	0,$28
		dc.w	0
		dc.l	prname		; printer's entity name
theflag		dc.b	$a0			;bit5 = ImageWriter Emulation
		dc.w	2			;Flush Buffer Timmer
		dc.w	30*4		;Session Timeout
		dc.w	20			;number of buffers for RPM

		
OpenSkt		dc.b	$00
		dc.b	$0b
		dc.w	0
SocketNum	ds.b	1
		dc.l	$800
		
RegstrName	dc.b	$00
		dc.b	$0e
		dc.w	0
		dc.l	0
		dc.l	RegName
		dc.b	$04
		dc.b	$04
		dc.w	0
RegSocket	dc.b	$04
		dc.b	$00
		
GetEofParm	dc.b	$02
		ds.b	1
		ds.b	3

PrefixParm	dc.b	$01
		dc.w	PrefixBuff
		
OpenParm
		dc.b	3
		dc.w	FName
		dc.w	IOBuff
		dc.b	1
		
CloseParm
		dc.b	1
		dc.b	0

WriteParm
		dc.b	$04
		ds.b	1
		dc.w	UserName
		dc.w	33				;write request count
		ds.b	2
		
SetMarkParm	dc.b	$02
		ds.b	1
		ds.b	3

FlushParm	dc.b	$01			;Parameter count
		ds.b	1			;file reference number
		
idtbl		dc.b	'ATLK'
Ytemp		ds.b	1

TwoEtype	str	'Apple IIe'
GStype		str	'Apple IIgs'
NoUser		str	'<Untitled>'
		ds.b	2
FName		str	'ATINIT'
zonename	str	'*'
RegName		ds.b	64
PrefixBuff	ds.b	64
ServerFlag	ds.b	1
CardVect	ds.b	2
DeriveCnt	dc.b	$00
NoNameFlag	ds.b	1
qMSG1LEN 	str     'APPLETALK REQUIRES AN ENHANCED '
qmsg2len 	str     '128K APPLE IIE SYSTEM.'
qmsg1		equ	qMsg1Len+1
qmsg2		equ	qMsg2Len+1


		endp
		end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/AristotlePatch/Display.0 b/IIGS.601.SRC/GS.OS/NetBoot/AristotlePatch/Display.0
new file mode 100644
index 0000000..787fd35
Binary files /dev/null and b/IIGS.601.SRC/GS.OS/NetBoot/AristotlePatch/Display.0 differ
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/AristotlePatch/MakeFile b/IIGS.601.SRC/GS.OS/NetBoot/AristotlePatch/MakeFile
new file mode 100644
index 0000000..d027a98
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/NetBoot/AristotlePatch/MakeFile
@@ -0,0 +1 @@
+display.0	Ä	patch PatchTool
	PatchTool display.0 patch

patch		Ä	patch.aii.obj
	LinkIIGS -o patch patch.aii.obj
	MakeBinIIGS patch

patch.aii.obj	Ä	patch.aii
	AsmIIGS patch.aii

PatchTool	Ä	main.c.o
	Link -w -t MPST -c "MPS " main.c.o ¶
	"{Libraries}"Stubs.o ¶
	"{CLibraries}"StdCLib.o ¶
	"{CLibraries}"CRuntime.o ¶
	"{Clibraries}"CInterface.o ¶
	"{Libraries}"Interface.o ¶
	-o PatchTool

main.c.o	Ä	main.c
	C main.c
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/AristotlePatch/Patch.aii b/IIGS.601.SRC/GS.OS/NetBoot/AristotlePatch/Patch.aii
new file mode 100644
index 0000000..447f0cb
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/NetBoot/AristotlePatch/Patch.aii
@@ -0,0 +1 @@
+;------------------------------------------------------------
; Aristotle Patch code.  To create Aristotle Menu Display
; version 1.0.1, take version 1.0, append this code, and
; make the JMP at the beginning jump to $6B92 (where this
; code will reside when loaded).
;
; Written by Mark Day
;------------------------------------------------------------

LCBank2		equ	$C083
LCBank1		equ	$C08B
PatchOrg	equ	$6B92
QuitOrg		equ	$987
LCQuit		equ	$D100			; address of quit code in LC
MLI		equ	$BF00
P8Quit		equ	$65			; ProDOS 8 Quit call
GQuit		equ	$E0D000			; where P8 enters GQuit
OSBooted	equ	$E100BD			; tells which OS was booted
TheJump		equ	$800			; start of Menu Display
OldJump		equ	$5D15			; where JMP at $800 used to point
MachID		equ	$FE1F			; identify IIe vs. IIGS

Patch		proc	temporg PatchOrg
		import	Quit,QuitEnd

		longa	off			; runs in emulation mode
		longi	off

		lda	#<OldJump
		sta	TheJump+1		; store low word of addr
		lda	#>OldJump
		sta	TheJump+2
		
		sec
		jsr	MachID			; what machine are we on?
		bcs	done			; on a IIe, so don't patch

		lda	OSBooted		; which OS was booted?
		cmp	#1			; P16 or GS/OS?
		bne	done			; if not, don't patch
		
;------------------------------------------------------------
; We booted P16 or GS/OS.  Assume it was GS/OS and patch
; the quit routine to just return back to GS/OS instead
; of rebooting the machine.
;------------------------------------------------------------
		ldy	#QuitEnd-Quit-1		; index of last byte to move
loop
		lda	QuitReal,y		; get code where stored
		sta	Quit,y			; put code at run address
		dey
		bpl	loop

done
		jmp	TheJump			; go run Menu Display
QuitReal
		endp

Quit		proc	entry,temporg QuitOrg
		entry	QuitEnd
		
		longa	off			; runs in emulation mode
		longi	off

		lda	LCBank2			; Make LC R/W
		lda	LCBank2
		ldy	#QuitEnd-LCCode-1	; index of last byte to move
loop
		lda	LCCode,y		; copy quit code to LC
		sta	LCQuit,y
		dey
		bpl	loop

		jsr	MLI
		dc.b	P8Quit			; quit back to top of GS/OS
		dc.w	QuitList		; quit stack.
		brk	0			; should NEVER return!
QuitList
		dc.b	4			; 4 parameters
		ds.b	6			; 6 bytes of $00

;------------------------------------------------------------
; This code will overwrite the Aristotle quit code in the
; language card.  It will simply return to the GQuit to allow
; a return to the Start program.  Note: this code runs at
; $1000.
;------------------------------------------------------------
LCCode
		cld
		lda	LCBank1
		clc
		xce
		jml	GQuit

QuitEnd
		endp

		end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/AristotlePatch/main.c b/IIGS.601.SRC/GS.OS/NetBoot/AristotlePatch/main.c
new file mode 100644
index 0000000..9b67d5e
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/NetBoot/AristotlePatch/main.c
@@ -0,0 +1 @@
+/*
	This is the MPW tool that patches the file "DISPLAY.0" from
	Aristotle Menu Display.  It takes two parameters: the name
	of the file to patch, and the name of the file containing
	the patch code.  The file will be modified in place (so
	make sure you have a copy around).  The version number and
	first jump instruction are written by this program.  No
	check is made to see that the file you are patching is
	really Menu Display.
	
	Syntax:
		PatchTool oldfile patchfile
	
	Typical usage:
		PatchTool display.0 patch
	
	Author:
		Mark Day
*/

#include <stdio.h>
#include <fcntl.h>
#include <errno.h>

/*
VersionLoc = offset in file of version number
CodeAddr = running address of patch code
CodeOffset = offset in file where patch code is put
*/
#define VersionLoc	0x5DB0
#define CodeAddr	0x6B92
#define CodeOffset	0x6392
#define BUFFSIZE	512

main(argc,argv)
int argc;
char *argv[];
{
	int	oldfile,patchfile,i;
	char buff[BUFFSIZE],*version;
	
	if (argc!=3) {
		fprintf(stderr,"# %s: incorrect number of parameters\n",argv[0]);
		fprintf(stderr,"# Usage: %s oldfile patchfile\n",argv[0]);
		exit(1);
	}

	/*
		Open the original file
	*/
	oldfile = open(argv[1],O_WRONLY);
	if (oldfile == -1)	{
		fprintf(stderr,"# %s: error %d trying to open file: %s\n",
			argv[0],errno,argv[1]);
		exit(1);
	}
	
	/*
		Open the file containing the patch
	*/
	patchfile = open(argv[2],O_RDONLY);
	if (patchfile == -1) {
		fprintf(stderr,"# %s: error %d trying to open file: %s\n",
			argv[0],errno,argv[2]);
		exit(1);
	}
	
	/*
		Patch the jump at the start of the program
	*/
	buff[0] = CodeAddr & 0xFF;
	buff[1] = CodeAddr >> 8;
	lseek(oldfile,1L,0);
	write(oldfile,buff,2);
	
	/*
		Change the version number
	*/
	version = "1.0.1 ";
	lseek(oldfile,(long) VersionLoc,0);
	write(oldfile,version,strlen(version));
	
	/*
		Copy the patch to the (end of the) file
	*/
	lseek(oldfile,(long) CodeOffset,0);
	i = read(patchfile,buff,BUFFSIZE);
	while (i>0) {
		write(oldfile,buff,i);
		i = read(patchfile,buff,BUFFSIZE);
	}
	
	/*
		Close the files and exit
	*/
	close(patchfile);
	close(oldfile);
	exit(0);
}
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/Boot/Boot.aii b/IIGS.601.SRC/GS.OS/NetBoot/Boot/Boot.aii
new file mode 100644
index 0000000..db9944e
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/NetBoot/Boot/Boot.aii
@@ -0,0 +1 @@
+;------------------------------------------------------------
; Boot.aii
;
; Copyright Apple Computer, Inc 1988-1993
; All Rights Reserved
;
; This is the first stage boot block for booting GS/OS over
; the network.
;
; Modification history:
; 12-Sep-88	MSD	Initial coding (based on Toucan)
; ??-???-??		Lots of revisions...
; 31-Mar-92	MSD	If booting over EtherTalk, make a quick
;			patch to RamDispatch that calls the card
;			so Fizzy and other "files" can be loaded.
; 27-Jan-93	DAL	Skips the 5-second '...' delay for Ethernet
;			(see skipTheDelay).
;  9-Mar-93	DAL	¥Put a version number at the beginning so
;			the Ethernet ROM can check for it.
;			¥Forces Battery RAM to be set correctly.
; 24-Mar-93	DAL	¥Added an additional check when we decide
;			if Ethernet is the startup device or not.
;			If the card still looks like a bootable
;			device at this point, then we are not booting
;			from Ethernet!  When the card initializes, it
;			changes its ID bytes to look like a printer
;			instead.
;  2-Apr-93	DAL	¥Now requires Ethernet ROM 2.0d25 or later.
;			If it's earlier, we ignore the card, and the
;			system assumes you're trying to boot from
;			LocalTalk instead.
;
;------------------------------------------------------------

RamDispatch	equ	$E11014

		macro
&lab		ATCall	&parm
&lab		ldx	#<&parm
		ldy	#^&parm
		jsl	RamDispatch
		mend

horiz		equ	0			; var: screen position
atp_count	equ	2			; var: number of blocks to read
ptr		equ	4
hardware	equ	6			; temporary: which hardware
boot_unit	equ	$43			; boot unit number, $n0
headerloc	equ	$E00			; where to put header block
BootHardware	equ	$E0E			; 1=LocalTalk, 2=EtherTalk
fizzylen	equ	$F04			; length of Fizzy in header block
nbpbuffer	equ	$C00			; where NBP lookup puts data
look_addr	equ	nbpbuffer		; internet address of server
fizzy		equ	$1000			; load address of Fizzy
line2		equ	$480			; screen address for chars
speed		equ	$C036			; register for system speed

ATPortNumber	equ	$E101C0			; port number used by AppleTalk
ATSlotNumber	equ	$E101C1			; slot being used by AppleTalk
RPMSlotNumber	equ	$E101C2			; slot number being used by RPM


boot		proc
		import	lookup,reboot,atp,bds,checkbytes
		import	atp_addr,blocknum,bitmap
		import	buffer,matches
		import	atlk1,etalkstr

*** added 9-Mar-93 DAL
;------------------------------------------------------------
; Here is an embedded version number at the very beginning
; of the boot blocks.
;------------------------------------------------------------
		jmp	@continue
		dc.b	'ATLK'
		dc.w	$2000			;version number
@continue
*** end 9-Mar-93
		
		clc
		xce				; set native mode
		phk				; let us use short addressing
		plb
		sep	#$30			; 8 bits for I/O
		longa	off
		longi	off
		
;------------------------------------------------------------
; Try to determine if we booted from an EtherTalk card.  If
; so, display a little string and patch RamDispatch with a
; little hack to call the card's ProDOS 8 entry point.
;
; To determine if we booted from an EtherTalk card, check
; location $00/0043.  If it is of the form $n0 where n is
; in the range 1..7 and there is a card with the correct
; EtherTalk ID bytes in slot n, then assume we booted from it.
;------------------------------------------------------------

		stz	hardware		; assume LocalTalk
		stz	hardware+1		; clear a whole word
		
		lda	boot_unit
		beq	not_ETalk		; zero is invalid
		bit	#$8F			; any invalid bits set?
		bne	not_ETalk
;
; Boot_unit is a valid unit number.  See if there is an EtherTalk card there.
;
		lsr	a
		lsr	a
		lsr	a
		lsr	a
		ora	#$C0			; A = $Cn
		sta	ptr+1			; set up pointer to card Cnxx
		lda	#$F9			; ID bytes at $CnF9
		sta	ptr
		
		ldy	#4
@loop		lda	(ptr),y
		cmp	atlk1,y
		bne	not_ETalk
		dey
		bpl	@loop
;
; The ID bytes match.  Now let's see if the version is $2000 or more
; (meaning it is an EtherTalk card, or at least as intelligent)
;
*** changed 9-Mar-93 DAL to read version from $CnF7..8
;;;		ldy	#6			; offset to version high byte
;;;		lda	(ptr),y			; get from $CnFF
		lda	#$f8
		sta	ptr
		lda	(ptr)
*** end 9-Mar-93
		cmp	#$20			; at least version 2.0?
		blt	not_ETalk		; no, can't be EtherTalk

*** added 2-Apr-93 DAL -- require Ethernet ROM 2.0d25 or later
		dec	ptr			;$CnF7
		lda	(ptr)
		cmp	#$25			;must be $25 or higher
		blt	not_ETalk
*** end 2-Apr-93

*** added 24-Mar-93 DAL -- Make sure the card does *not* still look like a
***    bootable device.  If it does, we are not booting from it!
		stz	ptr
		ldy	#1
		lda	(ptr),y			;check $Cn01; it's $20 if we're "bootable"
		cmp	#$20
		beq	not_ETalk
*** end 24-Mar-93

;
; The card IS an EtherTalk card.  Put a character on screen and patch
; the RamDispatch vector.
;
		inc	hardware
		
		lda	#'!'+$80
		sta	$0427			; right edge, first line on screen
		
		lda	ptr+1			; get $Cn
		sta	PatchJSR+2		; fix up the patch code
		
		and	#$0F			; A=slot number
		sta	>ATSlotNumber
		sta	>RPMSlotNumber
		lda	#0			; not using a built-in serial port
		sta	>ATPortNumber
		
		rep	#$20
		longa	on
		lda	ToPatch
		sta	RamDispatch
		lda	ToPatch+2
		sta	RamDispatch+2
		sep	#$20
		longa	off
not_ETalk

*** added 9-Mar-93 DAL
;
; We are network booting from either LocalTalk or Ethernet.  We
; KNOW which one (hardware = 0 for LocalTalk, 1 for Ethernet),
; so force the Battery RAM to be set appropriately.
;
		longa on
		longi on
		rep #$30

		lda	hardware		;0=LocalTalk, 1=Ethernet
		inc	a
		pha				;Network medium: 1=LocalTalk, 2=Ethernet
		pea	$0061
;		_WriteBParam
		ldx	#$0B03
		jsl	$e10000

		sep #$30
		longa off
		longi off
*** end 9-Mar-93

;------------------------------------------------------------
; Delay about 5 seconds so other CPUs can get this first
; block from the server.  Display some dots so the user knows
; that something is happening.
;------------------------------------------------------------
*** 27-Jan-93 DAL -- No need to delay for Ethernet
		lda	hardware		; nonzero = Ethernet
		bne	skipTheDelay
*** end 27-Jan-93

		lda	speed			; find out our current speed
		pha				; save for later restore
		and	#$7F			; force slow mode
		sta	speed			; set speed to slow

		rep	#$10			; long mode for X,Y
		longi	on

		ldx	#0
		ldy	#16			; 64K * 16 * 5 cycles = 5M cycles
delay
		dex
		bne	delay
		lda	#$AE			; normal period
		sta	line2,y			; put on screen
		dey
		bne	delay
		
		pla				; get old speed
		sta	speed

skipTheDelay	rep	#$30			; back to full native
		longa	on
		longi	on

;------------------------------------------------------------
; Here is where the boot process is restarted.  Remove
; indication of progress on screen.  Look for a server, etc.
;------------------------------------------------------------
restart
		stz	horiz			; start display at left of line
		ldy	#38			; size of line to clear
		lda	#$A0A0			; two normal spaces
clearscrlp
		sta	line2,y			; clear some of the line
		dey
		dey				; index to next word
		bpl	clearscrlp

		ATCall	lookup			; find a server
		bcs	lookerr			; reboot if error
		lda	matches			; did we find anything?
		bne	getheader		; if so, continue boot

;------------------------------------------------------------
; Here, the NBP lookup for a server failed.  Let the ROMs
; have another try at booting.
;------------------------------------------------------------
lookerr
		ATCall	reboot			; force ROM to retry boot
		brk				; should never return!

;------------------------------------------------------------
; If we get here, we did find a server for the second image.
; We have to read the first block to see if it is the correct
; version and to find out how much more we have to read.
;------------------------------------------------------------
getheader
		lda	look_addr		; copy internet address
		sta	atp_addr		; for ATP reuqest use
		lda	look_addr+2
		sta	atp_addr+2
		
		stz	blocknum		; start with block 0
		lda	#1			; only read 1 block
		sta	atp_count
		lda	#<headerloc		; copy address of buffer
		sta	buffer			; where header is to be stored
		jsr	fetch			; go get the block

		ldy	#6			; last word's index
checkloop
		lda	checkbytes,y		; get what it should be
		cmp	headerloc,y		; is that what we got?
		bne	restart			; if not, try another server
		dey
		dey				; index to next word
		bpl	checkloop		; check some more

;------------------------------------------------------------
; Now read Fizzy in at $1000.  Note that buffer pointer and
; block number were bumped by "fetch".
;------------------------------------------------------------
		lda	fizzylen		; get length of Fizzy in blocks
		sta	atp_count		; save number of blocks to read
		jsr	fetch			; go read Fizzy
		lda	hardware		; 0=LocalTalk, 1=EtherTalk
		ina				; change to 1 or 2
		sta	BootHardware		; let Fizzy know what hardware
		jmp	fizzy			; go to Fizzy

;------------------------------------------------------------
; Fetch
;
; This routine reads a given number of blocks into the
; current buffer address at the current block number.  The
; buffer address and block number are updated on completion.
;------------------------------------------------------------
fetch
		lda	#1			; only want 1 block at a time
		sta	bitmap
		ATCall	atp			; make an ATP request
		bcs	fetcherr		; handle any errors
		
		sep	#$20			; 8 bits for text handling
		longa	off
		lda	#$AA			; get an asterisk
		ldy	horiz			; get index to screen
		sta	line2,y			; put char on screen
		iny				; point to next screen position
		sty	horiz			; update index

		rep	#$20			; back to full native
		longa	on
		
		inc	blocknum		; go to next block
		inc	buffer+1		; point buffer to next block
		inc	buffer+1		; ($200 bytes)
		dec	atp_count		; one less block to do
		bne	fetch			; continue reading if more
		rts				; return to caller

fetcherr
		pla				; remove return address
		brl	restart			; try booting again


ToPatch		jml	>DispatchPatch
DispatchPatch
		cpy	#0			; bank had better be zero!
		beq	@ok
		brk	$BB			; bank is messed up!
@ok
		stx	PatchPBPtr
		
		sec
		xce				; force emulation mode
		
PatchJSR	jsr	$C714			; call card's entry point
		dc.b	$42			; AppleTalk call
PatchPBPtr	dc.w	0
		
		xce				; preserve carry in e flag
		clc
		xce				; back to native mode, restore carry
		rep	#$30			; force long registers
		
		rtl

		endp


checkbytes	dc.b	'GSOSBOOT'		; signature of header block

servername	record
		string	pascal
		dc.b	'='
		dc.b	'ProDOS16 Image'
		dc.b	'*'
		string	asis
		endr

bds		record
		entry	buffer

		dc.w	512			; response buffer is 512 bytes
buffer		dc.l	0			; address for response
		dc.l	0			; returned user bytes
		dc.w	0			; actual length
		endr

atp		record
		entry	atp_addr,blocknum,bitmap

		dc.b	0,18			; sync. SendATPReq
		dc.w	0			; result
		dc.l	0			; no completion routine
		dc.b	0			; socket number
atp_addr	dc.l	0			; destination address
		dc.w	0			; TID
		dc.w	0			; request buffer size
		dc.l	0			; request buffer address
		dc.b	3			; User bytes:	machine
blocknum	dc.w	0			;		block number
		dc.b	0			;		unused
		dc.b	1			; 1 response buffer
		dc.l	bds			; pointer to response BDS
		dc.b	0			; ATP flags: at least once
		dc.b	8,32			; retry every 2 seconds, 32 times
bitmap		dc.b	0			; bitmap of blocks to receive
		dc.b	0			; number of responses received
		dc.w	0,0,0			; RESERVED
		endr

lookup		record
		entry	matches

		dc.b	0,16			; sync. NBPLookup
		dc.w	0			; result
		dc.l	0			; no completion routine
		dc.l	servername		; pointer to name to find
		dc.b	8,16			; try every 2 seconds, 16 times
		dc.w	0			; RESERVED
		dc.w	256			; size of buffer
		dc.l	nbpbuffer		; address of buffer
		dc.b	1			; only want 1 match
matches		dc.b	0			; actual matches
		dc.b	0			; let matches be a word value
		endr

reboot		record
		dc.b	0,6			; sync. boot
		dc.w	0			; result
		endr

atlk1		dc.b	'ATLK',$01		; ID bytes for EtherTalk card

		end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/Boot/Makefile b/IIGS.601.SRC/GS.OS/NetBoot/Boot/Makefile
new file mode 100644
index 0000000..3ed7cad
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/NetBoot/Boot/Makefile
@@ -0,0 +1 @@
+#
# Make the GS/OS Boot Block
#

boot		Ä	boot.o
	LinkIIGS -o boot boot.o
	MakeBinIIGS -org $800 boot

boot.o		Ä	boot.aii
	AsmIIGS -o boot.o boot.aii
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/Console/Strings.aii b/IIGS.601.SRC/GS.OS/NetBoot/Console/Strings.aii
new file mode 100644
index 0000000..8c54512
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/NetBoot/Console/Strings.aii
@@ -0,0 +1 @@
+;--------------------------------------------------------------------------------
;
; 15-Nov-90 MSD	Fixed SortArray to handle two-byte offsets into the list of
;	string pointers.
;
; 04-Mar-90 MSD	Changed a BNE to BMI in CompareStr where it was testing the
;	case insensitive bit.  Also fixed the problem where it was
;	returning the wrong (opposite) answer when one string was
;	a substring of the other.
;
; 17-Jun-91 MSD	Fixed SortArray to exit when asked to sort less than 2 items.
;
;--------------------------------------------------------------------------------


**********************************************************
* CompareStr compares two strings.  When set, the high bit 
* of CompareFlag enables case sensitivity for the compare
* routine.
*
* The result is returned in bit 7 and bit 6 of the result
* byte.  Bit 6 is the equal flag and bit 7 is the greater 
* than flag.
*
* If String1 = String2 then B7=0 & B6=0	
* If String1 < String2 then B7=0 & B6=1	
* If String1 > String2 then B7=1 & B6=1	
*   
* Input:
* ---------------------------------------
* |            CompareFlag	|
* ---------------------------------------
* ---------------------------------------
* |		|
* --        Pointer to String2         --
* |		|
* ---------------------------------------
* ---------------------------------------
* |		|
* --        Pointer to String1         --
* |		|
* ---------------------------------------
* Output:
* ---------------------------------------
* |              Result	|
* ---------------------------------------
**********************************************************

	
CompareStr	Proc Export	;
	Import PullStack,PushStack
	jsr PullStack
	ldx #3
@SP1	lda StrPtr,x
	sta SavePtr,x
	dex
	bpl @SP1
	PullWord StrPtr2
	PullWord StrPtr
	pla
	sta CaseFlag
	ldy #0
	lda (StrPtr),y	;See if string one is larger that string 2
	cmp (StrPtr2),y	;
	bcc DoStgCmp	;it is, so use String 1
	lda (StrPtr2),y	;get string 2

DoStgCmp		; 
	tax	;transfer the length of the string
	beq @Cmp3
@CmpLup	iny
	lda (StrPtr),y	;get the first string
	and #$7F	;no hi ascii
	bit CaseFlag	;check for case sensitive
	bmi @Cmp1	;if not dont convert to Upper case
		;jsr UCConv
	cmp #$60
	blt @Cmp1
	cmp #$7B
	bge @Cmp1
	and #$5F	;lower to upper case
		
@Cmp1	sta CompTemp	;keeper place
	lda (StrPtr2),y	;the byte in the second string
	and #$7F	;no hi ascii
	bit CaseFlag	;check for case sensitive
	bmi @Cmp2	;if not dont convert to Upper case
		; MSD: bne changed to bmi
		;jsr UCConv
	cmp #$60
	blt @Cmp2
	cmp #$7B
	bge @Cmp2
	and #$5F	;lower to upper case
		
@Cmp2	cmp CompTemp	;compare the two bytes
	bne @CompOut1	;if not equal then we are done and flags are set
	dex	;do the next character
	bne @CmpLup	;if x = 0 then we have tested all of the bytes
@Cmp3		;and they match
	ldy #0	;Are the lengths the same?
		; MSD: Changed order of following compare since it
		; was backwards.
	lda (StrPtr2),y
	cmp (StrPtr),y	;the flags are set
	bne @CompOut1
	lda #0	;the strings are equal
	bra @CompOut3	;return a result of zero
	
@CompOut1	bcc @Compout2
	lda #%11000000	;the carry is set, so set bits 7 and bits 6
	bra @CompOut3	;to indicate that String1 > String2
	
@Compout2	lda #%01000000	;the carry is clear indicate that String1 < String2
@CompOut3	pha
	ldx #3
@SP2	lda SavePtr,x
	sta StrPtr,x
	dex
	bpl @SP2
	jmp PushStack	;bye bye....

CompTemp	ds.b 1
CaseFlag	ds.b 1
SavePtr	ds.l 1
	EndP

**********************************************************
* NextStr calculates the next string in an array of
* strings and returns the pointer to the next string.
*
* Input:
* ---------------------------------------
* |		|
* --        Pointer to String          --
* |		|
* ---------------------------------------
* Output:
* ---------------------------------------
* |		|
* --        Pointer to String          --
* |		|
* ---------------------------------------
**********************************************************

	Export NextStr
NextStr	Proc	;
	Import PullStack,PushStack
	jsr PullStack	;take 6 bytes from the stack
	ldx #3
@SP1	lda StrPtr,x
	sta SavePtr,x
	dex
	bpl @SP1
	pla	;get the pointer to the string
	sta StrPtr	;
	pla	;
	sta StrPtr+1	;
	ldy #0	
	lda (StrPtr),y
	inc a	;add one to the length
@NS1	clc
	adc StrPtr
	tax	;put the result back onto the stack
	lda StrPtr+1
	adc #0
	pha	;high byte goes first
	txa
	pha	;then the low byte
	ldx #3
@SP2	lda SavePtr,x
	sta StrPtr,x
	dex
	bpl @SP2
	jmp PushStack	;restore the 6 bytes to the stack and return to caller
SavePtr	ds.l 1
	EndP

**********************************************************
* MovStr moves a Pascal type string to a destiniation 
* buffer offset by the value passed in offset.
*
* Input:
* ---------------------------------------
* |              Offset	|
* ---------------------------------------
* ---------------------------------------
* |		|
* --     Pointer to Dest Buffer        --
* |		|
* ---------------------------------------
* ---------------------------------------
* |		|
* --     Pointer to Source String      --
* |		|
* ---------------------------------------
* Output:
*  None
**********************************************************
	
	Export MoveStr
MoveStr	Proc	;
	Import PullStack,PushStack
	jsr PullStack
	ldx #3
@SP1	lda StrPtr,x
	sta SavePtr,x
	dex
	bpl @SP1
	pla	;get the pointer to the string
	sta StrPtr	;get the pointer of the string to be moved
	pla	;
	sta StrPtr+1	;
	pla
	sta StrPtr2	;now get the destination buffer
	pla
	sta StrPtr2+1
	clc
	pla	;now get the offset
	adc StrPtr2	;add it to the destination buffer
	sta StrPtr2	;
	lda StrPtr2+1	;
	adc #0	;
	sta StrPtr2+1	;
	ldy #0
	lda (StrPtr),y	;get the length of the string to be moved
	tax
	sta (StrPtr2),y	;if the string length is zero store it and leave
	beq @MS2
	iny 
@MS1 	lda (StrPtr),y	;move the string
	sta (StrPtr2),y
	iny
	dex	;until x = 0
	bne @MS1
@MS2	ldx #3
@SP2	lda SavePtr,x
	sta StrPtr,x
	dex
	bpl @SP2	
	jmp PushStack
SavePtr	ds.l 1
	EndP

**********************************************************
* SortArray sorts an array of strings passed by the pointer 
* the number of strings in the 
*
* Input:
* ---------------------------------------
* |         Number of Strings	|
* ---------------------------------------
* ---------------------------------------
* |		|
* -- Pointer to an Array of Strings    --
* |		|
* ---------------------------------------
**********************************************************

SortArray	Proc Export
	Import PullStack,PushStack
	
StrPtr3	equ $EA	;MSD: Was $8A (???)
MathTemp	equ $EC	;MSD: holds 2nd byte of offset to string pointer table
	
	jsr PullStack
	PullWord StrPtr	;Get the pointer to the Array
	pla 	;and the number of items
	cmp #2	; less than 2 items to sort?
	bge HaveSome	; no, got enough to sort
	jmp PushStack	; yes, not enough to sort so exit
HaveSome
	dec a	;zero based for array indexing
	sta LastItem
	stz Count
@LoopTop	;
	ldx Count
	stx TempIndex	;this is the temporary index that will locate
	txa	;the smallest string
	jsr GetString1	;
	
@CompareLoop	lda #0	;set for case insensitive
	pha	;
	txa	;get the loop counter
	inc a	;plus one
	jsr GetString2
	PushWord String2
	PushWord String1
	_CompareStr
	pla
	bpl @CL1	;if plus then String1 <> String2
	txa
	inc a
	sta TempIndex	;this is the smallest string
	jsr GetString1	
@CL1	inx
	cpx LastItem
	bne @CompareLoop
	
	lda Count	;save the pointer to the string in this position
	cmp TempIndex
	beq @CL2
	jsr GetString1	
	lda TempIndex	;save the pointer to the string in this position
	asl a	;each pointer in the array is two bytes
	stz MathTemp	;MSD: upper byte of offset
	rol MathTemp	;MSD: fix upper byte
;	clc	;MSD: the STZ and ROL cleared carry	
	adc StrPtr	;calculate the zero page pointer to the smallest string
	sta StrPtr2	;from the beginning of the array buffer
	lda StrPtr+1	;
	adc MathTemp	;MSD: add upper byte
	sta StrPtr2+1	;
	lda Count
	asl a	;
	stz MathTemp	;MSD: upper byte of offset
	rol MathTemp	;MSD: fix upper byte
;	clc	;MSD: STZ and ROL cleared carry
	adc StrPtr	;
	sta StrPtr3	;
	lda StrPtr+1	;
	adc MathTemp	;MSD: add upper byte
	sta StrPtr3+1	;
	ldy #0
	lda (StrPtr2),y	;now make Array(Count) := Array(TempIndex);
	sta (StrPtr3),y
	iny	;both bytes of the pointer
	lda (StrPtr2),y	;
	sta (StrPtr3),y
	dey	;make y = 0 again
	lda String1
	sta (StrPtr2),y	;now make Array(TempIndex) := String1
	iny
	lda String1+1
	sta (StrPtr2),y	;
@CL2	inc Count
	lda Count
	cmp LastItem
	beq @CL3
	jmp @LoopTop
@CL3	jmp PushStack
	
GetString1	;
	asl a	;each pointer in the array is two bytes
	stz MathTemp	;MSD: upper byte of offset
	rol MathTemp	;MSD: fix upper byte
;	clc	;get the first byte
	adc StrPtr	;
	sta StrPtr2
	lda StrPtr+1
	adc MathTemp	;MSD: add upper byte
	sta StrPtr2+1
	ldy #0
	lda (StrPtr2),y
	sta String1	;store it into the String1 for comparison
	iny	;
	lda (StrPtr2),y	;high byte
	sta String1+1	;
	rts
	
GetString2	;
	asl a	;each pointer in the array is two bytes
	stz MathTemp	;MSD: upper byte of offset
	rol MathTemp	;MSD: fix upper byte
;	clc	;get the first byte
	adc StrPtr	;
	sta StrPtr2
	lda StrPtr+1
	adc MathTemp	;MSD: add upper byte
	sta StrPtr2+1
	ldy #0
	lda (StrPtr2),y
	sta String2	;store it into the String1 for comparison
	iny	;
	lda (StrPtr2),y	;high byte
	sta String2+1	;
	rts
	

LastItem	ds.b 1
TempIndex	ds.b 1
Count	ds.b 1
String1	ds.w 1
String2	ds.w 1

	EndP
	
**********************************************************
* FindItem does a search on an array of strings 
* passed by the pointer. The other parameter is the number of
* items.  The result returns the index to the item.
*
* Input:
* ---------------------------------------
* |         Number of Strings	|
* ---------------------------------------
* ---------------------------------------
* |		|
* -- Pointer to an Array of Strings    --
* |		|
* ---------------------------------------
* |		|
* --   Pointer to item to be found     --
* |		|
* ---------------------------------------
* ---------------------------------------
* Output:
* ---------------------------------------
* |              Result	|
* ---------------------------------------
**********************************************************

FindItem	Proc Export
	Import PullStack,PushStack

MathTemp	equ $EC	;MSD: holds 2nd byte of offset to string pointer table

	jsr PullStack	;set up the stack
	PullWord StrPtr
	PullWord ArrayPtr
	plx	;get the number of items to search
	ldy #0
@CompareLoop	lda #0
	pha	;set for case insensitivity
	tya
	jsr GetString1
	PushWord String1	;push string 2
	PushWord StrPtr	;push string 1
	_CompareStr	;compare the strings
	pla	;get the result
	beq @CL1	;if equal we found our guy
	iny
	dex	;
	bne @CompareLoop	;
	lda #0	;return that the item was not found
	pha	;
	bra @CL2
@CL1	iny	;return the index of the item found
	tya	;index plus one
	pha	;
@CL2	jmp PushStack

GetString1	;
	phy
	asl a	;each pointer in the array is two bytes
	stz MathTemp	;MSD: upper byte of offset
	rol MathTemp	;MSD: fix upper byte
	clc	;get the first byte
	adc ArrayPtr	;
	sta StrPtr2
	lda ArrayPtr+1
	adc MathTemp	;MSD: add upper byte
	sta StrPtr2+1
	ldy #0
	lda (StrPtr2),y
	sta String1	;store it into the String1 for comparison
	iny	;
	lda (StrPtr2),y	;high byte
	sta String1+1	;
	ply
	rts
ArrayPtr	ds.w 1
String1	ds.w 1
	EndP
	
	
	Export PullStack
PullStack	Proc
	import ConsData:ConsRec
	with ConsData
	PullWord MyReturn	;store it here
	ldy StkPtr
	ldx #8
@MovLoop	pla	;pull the byte
	sta Stack,y	;store the byte
	dey
	dex
	bne @MovLoop	;until all six bytes are moved
	sty StkPtr
	PushWord MyReturn	;restore return address
	rts
MyReturn	ds.w 1
	EndP

PushStack	Proc
	import ConsData:ConsRec
	with ConsData
	ldy StkPtr	;now move the bytes from our stack to the 6502 stack
	ldx #8
@MovLoop	iny
	lda Stack,y
	pha
	dex
	bne @MovLoop
	sty StkPtr
	rts	;back to the original calling routine
	EndP
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/Console/cons.macros b/IIGS.601.SRC/GS.OS/NetBoot/Console/cons.macros
new file mode 100644
index 0000000..b184296
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/NetBoot/Console/cons.macros
@@ -0,0 +1 @@
+	macro
&lab	str &stuff
	string pascal
&lab	dc.b &stuff
	string asis
	mend

	macro
&lab	cstr &stuff
	string c
&lab	dc.b &stuff
	string asis
	mend

	macro
&lab	InitConsole
&lab	ldy #>InitParm
	ldx #<InitParm
	lda #0
	jsr ConsDrvr
	mend
	MACRO
&LAB	WriteCStr &N1
&LAB	LDX #<&N1
	ldy #>&N1
	lda #8
	jsr ConsDrvr
	MEND
	MACRO
&LAB	ClrEol
&LAB	LDX #$C
	LDA #7
	JSR ConsDrvr
	MEND
	MACRO
&LAB	Home
&LAB	LDX #$0C
	LDA #4
	JSR ConsDrvr
	MEND
	MACRO
&lab	WriteChar &Char
&lab	ldx #&Char
	lda #7
	jsr ConsDrvr
	mend
	macro
&lab	Bell
&lab	ldx #7
	lda #7
	jsr ConsDrvr
	mend
	macro
&lab	GetKey
&lab	lda #6
	jsr ConsDrvr
	mend
	macro
&lab	GotoXY &X,&Y
&lab	ldx #&X
	ldy #&Y
	lda #CD_GotoXY
	jsr ConsDrvr
	mend
	macro
&lab	GetXY
&lab	lda #2
	jsr ConsDrvr
	mend
	macro
&lab	ReptChar &RCParms
&lab	ldx #<&RCParms
	ldy #>&RCParms
	lda #1
	jsr ConsDrvr
	mend
	macro
&lab	Input &InParms
&lab	ldx #<&InParms
	ldy #>&InParms
	lda #$0a
	jsr ConsDrvr
	mend
	macro
&lab	SViewPort &SVParms
&lab	ldx #<&SVParms
	ldy #>&SVParms
	lda #CD_DoViewPort
	jsr ConsDrvr
	mend
	macro
&lab	FrameRect &N1
&Lab	ldx #<&N1
	ldy #>&N1
	lda #$0b
	jsr ConsDrvr
	mend
	macro
&lab	WriteStr &Str
&Lab	ldx #<&Str
	ldy #>&Str
	lda #CD_WrtPtr
	jsr ConsDrvr
	mend
	macro
&LAB	StoreWind &WindBuff
&LAB	ldx #<&WindBuff
	ldy #>&WindBuff
	lda #4
	jsr ConsDrvr
	MEND
	macro
&LAB	RestorWind &WindBuff
&LAB	ldx #<&WindBuff
	ldy #>&WindBuff
	lda #5
	jsr ConsDrvr
	MEND
	macro
&lab	ListHandler &ListParms
&lab	ldx #<&ListParms
	ldy #>&ListParms
	lda #CD_ListHandler
	jsr ConsDrvr
	mend
	macro
&lab	WritePointer
&lab	lda #CD_WrtPtr
	jsr ConsDrvr
	mend
	macro
&lab	CursorOff
&lab	ldx #0
	lda #CD_SetCursor
	jsr ConsDrvr
	mend
	macro
&lab	Message &MessParm
&lab	ldx #<&MessParm
	ldy #>&MessParm
	lda #CD_Message
	jsr ConsDrvr
	mend
	macro
&lab	CenterStr &Str
&Lab	ldx #<&Str
	ldy #>&Str
	lda #CD_CenterStr
	jsr ConsDrvr
	mend
	macro
&lab	PrintHex &Str
&Lab	ldx #<&Str
	ldy #>&Str
	lda #CD_PrintHex
	jsr ConsDrvr
	mend
	macro
&lab	ParmText &List
&Lab	ldx #<&List
	ldy #>&List
	lda #CD_ParmText
	jsr ConsDrvr
	mend
	macro
&lab	PullWord &Word
&Lab	pla
	sta &Word
	pla
	sta &Word+1
	mend
	macro
&lab	_CompareStr
&Lab	lda #CD_CompareStr
	jsr ConsDrvr
	mend
	macro
&lab	_MoveStr
&Lab	lda #CD_MoveStr
	jsr ConsDrvr
	mend
	macro
&lab	_NextStr
&Lab	lda #CD_NextStr
	jsr ConsDrvr
	mend
	macro
&lab	_SortArray
&Lab	lda #CD_SortArray
	jsr ConsDrvr
	mend
	macro
&lab	_FindItem
&Lab	lda #CD_FindItem
	jsr ConsDrvr
	mend

;...............................................................
;
;        Push 2 bytes onto stack
;
;    pushword loc     -- pushes bytes onto stack from 'loc'
;    pushword #n      -- pushes constant #n onto stack
;...............................................................
	MACRO
&lab	pushword &addr
	longa off
	IF &addr[1:1]='#' THEN
&lab	  lda #>&addr[2:255]
	  pha
	  lda #<&addr[2:255]
	  pha
	ELSE
&lab	  lda &addr+1
	  pha
	  lda &addr
	  pha
	ENDIF
	MEND

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/Console/console.aii b/IIGS.601.SRC/GS.OS/NetBoot/Console/console.aii
new file mode 100644
index 0000000..e08f4c9
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/NetBoot/Console/console.aii
@@ -0,0 +1 @@
+
	MACHINE M65816
	INCLUDE 'console.equates'
	INCLUDE 'my.macros'
	longa off
	longi off


ConsRec	Record 0	;defined area for data
WIND_L	DS.B 1
WIND_T	DS.B 1
WIND_R	DS.B 1
WIND_B	DS.B 1
CSR_X	DS.B 1
CSR_Y	DS.B 1
CUR_LINE	DS.B 1
COLMODE	DS.B 1
LASTCOL	DS.B 1
INVBYTE	DS.B 1
CONTROL	DS.B 1
COUNT	DS.B 2
SPEED	DS.B 1
BLNKRATE	DS.B 1
CURSER	DS.B 1
CURRCHAR	DS.B 1
DATA_LEN	DS.B 2
SCRATCH_X	DS.B 1
SCRATCH_Y	DS.B 1
CHR_HB	DS.B 1
StrTemp	DS.B 1
WrtParms		; 
StringPtr	DS.B 2
StrLen	DS.B 1
	DS.B 1
buflen	DS.B 1
savx	DS.B 1
HomeX	DS.B 1
HomeY	DS.B 1
prsavx	DS.B 1
OptByte	DS.B 1
MaxLen	DS.B 1
ContOff	DS.B 1
Buffer	DS.B 256	;Keyboard buffer for input routine
ZTemp	DS.B 24
LIdx	DS.B 2
TextPtrs	ds.w 4	;four pointers to strings
StkPtr	ds.b 1
Stack	ds.b StackSize
	ENDR

ListRec	record 0
LastSel	DS.B 1
PassFlag	DS.B 1
ListOpt	DS.B 1
ListCount	DS.B 1
XPos	DS.B 1
YPos	DS.B 1
Inc	DS.B 1
MYPos	DS.B 1
TempCont	DS.B 1
MoreFlag	DS.B 1
TopIndex	ds.b 1
WindowSize	ds.b 1
	endr

;
; entries from input.aii
;
	entry input,FrameRect,ListHandler,WritePointer,Message
;
; entries from Strings.aii
;
	entry CompareStr,MoveStr,NextStr

;
; entries in console.aii that used to be exports
;


*
* CONSOLE DRIVER ROUTINE
*
* DESIGNED AND WRITTEN BY HOWARD W. RIDENOUR
*
* COMPLETED AND DE-BUGGED BY JOHN W. SHIOLI
*
* COPYRIGHT 1985 ParaMIS CORPORATION
* ALL RIGHTS RESERVED
*
;
; Modified 10/11/87	by Mark Day
; Allows execution on 65816 in any bank.
; Must be called in	8-bit mode (native mode if in a bank other than 0).
; This will run unmodified on a 65C02, since the extra opcodes of the 65816
; are NOP's on the 65C02.
;

; 4/13/88 Converted	to MAX source (msd)

;
;------------------------------------------------------------
;
; COMMAND INTERPRETER
;
;            A = COMMAND
;          X,Y = POINTER TO PARAMETER LIST
;
	EXPORT ConsDrvr
ConsDrvr	PROC
	import Cons_Init,Write,GetCsr,GetStat,SaveWind
	import RestWind,Get_Kbd,Write_X,WrtCStg,GotoXY
	import Input,FrameRect,ListHandler,WritePointer
	import DoViewPort,SetCursor,Message,CenterString
	import PrintHex,ParmText,CompareStr,MoveStr
	import NextStr,SortArray,FindItem
	Import ConsData:ConsRec
	with ConsData
	pha
	jsr SavZp
	pla
	jsr StartAsm
	pha
	jsr RestZp
	pla
	rts

	entry StartAsm
StartAsm		;               
	CLD
	bit #$80
	beq @1
	jmp StackConsDrvr
@1	CMP #LASTCMD	;BAD COMMAND ?
	BCS CmdErr
	STX LISTPTR	;STORE LIST POINTER
	STY LISTPTR+1
	ASL A
	tax
CmdJMP	jmp (CmdTbl,x)

CmdErr	LDA #BADCMD
	SEC
	RTS

StackConsDrvr	;
	phx	;save the x and Y registers
	phy	;
	and #$7f	;clear the high bit, which indiactes a stack based parameter
	CMP #LASTCMD	;is the command in our list
	BCS CmdErr	;if no, return an error
	asl a	;multiply by 2
	tax	;into the x register for indexing
	jsr CmdJmp	;jsr to the routine with six bytes on the stack plus parameters
	ply	;restore x and Y registers
	plx	;
	rts

SavZp	phx
	ldx #$0f
ThisPt	lda LineIdx,x
	sta Ztemp,x
	dex
	bpl ThisPt
	plx
	lda LIdx
	sta LineIdx
	lda LIdx+1
	sta LineIdx+1
	rts

RestZp		; 
	phx
	lda LineIdx
	sta LIdx
	lda LineIdx+1
	sta LIdx+1
	ldx #$0f
ThisPt2	lda Ztemp,x
	sta LineIdx,x
	dex
	bpl ThisPt2
	plx
	rts

;
;
;
;  COMMAND TABLE
;
CMDTBL		; 
	DC.W CONS_INIT	;00
	DC.W WRITE	;01
	DC.W GETCSR	;02
	DC.W GETSTAT	;03
	DC.W SAVEWIND	;04
	DC.W RESTWIND	;05
	DC.W GET_KBD	;06
	DC.W WRITE_X	;07
	DC.W WrtCStg	;08
	DC.W GotoXY	;09
	DC.W Input	;0a	 
	DC.W FrameRect	;0b
	DC.W ListHandler	;0c
	DC.W WritePointer	;0d
	DC.W DoViewPort	;0e
	DC.W SetCursor	;0f
	DC.W Message	;10
	DC.W CenterString	;11
	DC.W PrintHex	;12
	dc.w ParmText	;13
	dc.w CompareStr	;94
	dc.w MoveStr	;95
	dc.w NextStr	;96
	dc.w SortArray	;97
	dc.w FindItem	;98
;
	ENDP
;------------------------------------------------
;
;   INTITIALIZE ROUTINE
;
;PARAMETER LIST: SCREEN MODE-1 BYTE $80=80 COL
;	                $00=40 COL
;
;               EXPORT  CONS_INIT 
CONS_INIT	PROC
	import SetLi,Clr_Wind
	Import ConsData:ConsRec
	with ConsData
	LDY #0	;Set a null index
	LDA (LISTPTR),Y	;GET SCREEN MODE
	sta ColMode	;save the mode
	ROL A	;80 COL MODE ?
	BCS INIT_1
	LDA #39
	STA LASTCOL	;SETUP LAST COL
	phb
	pea $E0E0
	plb
	plb
	STA S_40COL	;Turn off the 80 col card
	plb
	JMP INIT_2
INIT_1		; 
	phb
	pea $E0E0
	plb
	plb
	STA S_80COL	;TURN ON 80 COL
	STA STORE80
	plb
	LDA #79
	STA LASTCOL	;SETUP LAST COL
INIT_2	STY WIND_L	;SETUP WINDOW BYTES
	STY WIND_T
	LDA #LASTLINE
	STA WIND_B
	LDA LASTCOL
	STA WIND_R
	phb
	pea $E0E0
	plb
	plb
	STA ALTCHAR	;TURN ON ALT CHAR SET
	plb
	LDA #$80
	STA INVBYTE	;NORMAL MODE
	LDA #DFCNTL	;DEFAULT CONTROL BYTE
	STA CONTROL
	LDA #DFBLKRTE	;DEFAULT BLINK RATE
	STA BLNKRATE
	LDA #0
	JSR SETLI	;SET LINE ZERO
	STY CSR_Y	;SETUP CURSER
	STY CSR_X
	lda #$20
	sta Curser	;initally the cursor is a inverse space
	JSR CLR_WIND
	stz ContOff	;control characters	on....
	lda #StackSize	;initalize the internal stack
	sta StkPtr	;and zero page pointers
	LDA #NOERR
	CLC
	RTS
	ENDP
;------------------------------------------------------------
;
; WRITE TO SCREEN COMMAND
;
;          PARAMETER LIST:    PTR TO DATA - 2 BYTES
;	          DATA LENGTH - 2 BYTES
;
WRITE	PROC Export
	import SetLi,ClrLine,Clr_Eow,ClrLB
	import To_Scrn,From_Scrn,ClrEol,Clr_Wind
	import Clr_WB
	Import ConsData:ConsRec
	with ConsData
	LDY #0	;SETUP Y
	LDA (LISTPTR),Y	;SETUP POINTER TO DATA
	STA DATA_PTR
	INY
	LDA (LISTPTR),Y
	STA DATA_PTR+1
	INY
	LDA (LISTPTR),Y	;SETUP DATA LENGTH
	EOR #$FF	;IN ONES COMPLIMENT
	STA DATA_LEN
	INY
	LDA (LISTPTR),Y
	EOR #$FF
	STA DATA_LEN+1
WRT_LOOP	JSR NXTCHAR	;GET NEXT CHAR
	BCS WRT_DONE
	lda Chr_HB
	bpl WL1
	lda #'?'
WL1		; 
	CMP #SPACE	;CONTROL CHAR ?
	BCC CNTL
	JSR CHAR
	JMP WRT_LOOP
CNTL	bit ContOff
	bmi CNTL1
	ASL A	;MULT BY 2
	TAX	;USE AS INDEX
	JSR CNTL_CHAR
CNTL1	JMP WRT_LOOP
WRT_DONE	LDA #NOERR
	CLC
	RTS
;
;
	entry NXTCHAR
NXTCHAR		;               
	INC DATA_LEN	;INC COUNT
	BNE NC_1
	INC DATA_LEN+1
	BNE NC_1
	SEC	;DONE
	RTS
NC_1	LDY #0	;Set up a null index
	LDA (DATA_PTR),Y	;GET CHAR
	STA CHR_HB	;Preserve the origional form
	AND #%01111111	;REMOVE HI BIT
	INC DATA_PTR
	BNE NC_2
	INC DATA_PTR+1
NC_2	CLC
	RTS

;
	entry CNTL_CHAR
CNTL_CHAR		;               
	LDA CNTL_TBL,X
	STA CNTLJMP+1
	LDA CNTL_TBL+1,X
	STA CNTLJMP+2
CNTLJMP	JMP 0	; jump to routine (self-modifying)
;
; CONTROL CHAR ROUTINE VECTOR TABLE
;
CNTL_TBL		; 
	DC.W C_NOP	;00 
	DC.W C_CLRWB	;01
	DC.W C_SETWIND	;02 
	DC.W C_RSTWIND	;03
	DC.W C_CLRWIND	;04 
	DC.W C_CLREOW	;05 
	DC.W C_CLRLN	;06 
	DC.W C_BELL	;07 
	DC.W C_CSR_L	;08
	DC.W C_HTAB	;09 
	DC.W C_CSR_D	;0A
	DC.W C_CSR_U	;0B
	DC.W C_CLEOL	;0C 
	DC.W C_CR	;0D
	DC.W C_NORM	;0E
	DC.W C_INV	;0F 
	DC.W C_MTON	;10
	DC.W C_VTAB	;11 
	DC.W C_HOME	;12 
	DC.W C_MTOFF	;13
	DC.W C_CSR_POS	;14 
	DC.W C_CSR_R	;15
	DC.W C_SCR_U	;16 
	DC.W C_SCR_D	;17 
	DC.W C_SCR_L	;18
	DC.W C_SCR_R	;19
	DC.W C_SETCNTL	;1A
	DC.W C_CLLNB	;1B
	DC.W C_ReptChar	;1C
	DC.W C_WaitChar	;1D
	DC.W C_UNDEF	;1E
	DC.W C_UNDEF	;1F

;
;------------------------------------------------------------
;
;   OUTPUT CHAR TO SCREEN
;
	entry CHAR
CHAR		;               
	tax
	CMP #$40	;CHAR IN MT RANGE ?
	BCC CHAR_2
	CMP #$60
	BCS CHAR_2
	LDA #MT_BIT	;CHECK MT BIT
	BIT CONTROL
	BEQ CHAR_1
	TXA
	JMP CHR_3
Char_1	lda #Inv_Bit
	bit Control
	beq Char_2
	txa
	and #%10111111	;clear the d6 bit
	jmp Chr_3
Char_2	txa	;restore the accumulator
	ora InvByte
CHR_3		; 
	LDY CSR_X	;GET CURSER X POS
	JSR TO_SCRN	;OUTPUT TO SCREEN
	LDA CONTROL
	BPL CHAR_ND	;ADVANCE ?
	ROL A	;ADVANCE VERT ?
	BMI CHAR_3
	JSR C_CSR_R	;MOVE CURSER RIGHT
	JMP CHAR_ND
CHAR_3	JSR C_CSR_D	;MOVE CURSER DOWN
CHAR_ND	RTS
;
;------------------------------------------------------------
;
;   NO OPERATION
;
C_NOP		; 
	RTS
;
;------------------------------------------------------------
;
;   CLEAR WINDOW FROM BEGINNING
;
C_CLRWB		; 
	JMP CLR_WB
;
;------------------------------------------------------------
;
;    SET WINDOW
;
C_SETWIND		; 
	LDX #4	;SETUP COUNT
SW_1	JSR NXTCHAR	;GET NEXT CHAR
	BCS SW_ND	;NO CHAR - QUIT
	STA HOLD_W,X	;HOLD
	DEX
	BNE SW_1
	LDA #LASTLINE
	CMP HOLD_B	;PAST LAST LINE ?
	BCC SW_ND
	LDA HOLD_B
	CMP HOLD_T	;TOP BELOW BOTTOM ?
	BCC SW_ND
	LDA LASTCOL
	CMP HOLD_R	;PAST RIGHT BOUNDARY ?
	BCC SW_ND
	LDA HOLD_R
	CMP HOLD_L	;LEFT PAST RIGHT ?
	BCC SW_ND
	LDX #4	;SETUP COUNT
	LDY #0
SW_2	LDA HOLD_W,X	;GET FROM HOLD
	STA WIND_L,Y	;SET PARAMETER
	INY
	DEX
	BNE SW_2
	LDA WIND_L	;HOME CURSER
	STA CSR_X
	LDA WIND_T
	STA CSR_Y
	JSR SETLI
SW_ND	RTS
;
;     
HOLD_W	DS.B 1
HOLD_B	DS.B 1
HOLD_R	DS.B 1
HOLD_T	DS.B 1
HOLD_L	DS.B 1
;
;------------------------------------------------------------
;
;    RESET WINDOW
;
C_RSTWIND		; 
	LDA #0
	STA WIND_L	;ZERO WINDOW LEFT AND TOP
	STA WIND_T
	STA CSR_X	;HOME CURSER
	STA CSR_Y
	JSR SETLI	;SET NEW LINE INDEX	TO 0
	LDA #LASTLINE
	STA WIND_B	;SET WINDOW BOTTOM AND RIGHT
	LDA LASTCOL
	STA WIND_R
	RTS
;
;------------------------------------------------------------
;
;   CLEAR WINDOW
;
C_CLRWIND		; 
	JMP CLR_WIND
;
;------------------------------------------------------------
;
;   CLEAR TO END OF	WINDOW
;
C_CLREOW		; 
	LDY CSR_X	;GET CURSER X
	LDX CSR_Y	;GET CURSER X
	JMP CLR_EOW	;CLEAR TO END OF WINDOW
;
;------------------------------------------------------------
;
;   CLEAR LINE
;
C_CLRLN		; 
	JMP CLRLINE
;
;----------------------------------------------------------- 
;
;   BELL
;
C_BELL		; 
	LDA #$40	;DURATION
	STA B_LNGTH
BELL_1	LDA #$02	;SHORT DELAY
	JSR B_WAIT
	phb
	pea $E0E0
	plb
	plb
	STA SPKR
	plb
	LDA #$24	;LONG DELAY
	JSR B_WAIT
	phb
	pea $E0E0
	plb
	plb
	STA SPKR
	plb
	DEC B_LNGTH
	BNE BELL_1
	RTS
;
; WAIT ROUTINE
;
B_WAIT	SEC
B_WAIT2	PHA
B_WAIT3	SBC #1
	BNE B_WAIT3
	PLA
	SBC #1
	BNE B_WAIT2
	RTS
;
B_LNGTH	DS.B 1
;
;------------------------------------------------------------
;
;   MOVE CURSER LEFT
;
C_CSR_L		; 
	LDA CSR_X	;GET CURSER X
	CMP WIND_L	;= WINDOW L ?
	BEQ CSRL_1
	DEC CSR_X	;MOVE CURSER LEFT
	RTS
CSRL_1	LDA CONTROL
	AND #WRAP_BIT	;WRAP ON ?
	BEQ CSRL_ND
	LDA WIND_R
	STA CSR_X	;MOVE CURSER TO WINDOW RIGHT
	JSR C_CSR_U	;MOVE CURSER UP
CSRL_ND	RTS
;
;------------------------------------------------------------
;
;   SET HORIZONTAL CURSER POSITION
;
;         NEXT CHAR	= POSITION
;
C_HTAB		; 
	JSR NXTCHAR	;GET NEXT CHAR
	BCS HT_ND	;NO CHAR
	CLC
	ADC WIND_L	;CONVERT TO ABSOLUTE
	CMP WIND_R
	BCC HT_1
	BEQ HT_1
	LDA WIND_R	;If overflow, default to max
HT_1	STA CSR_X	;SET CURSER X
HT_ND	RTS
;
;------------------------------------------------------------
;
;   MOVE CURSER DOWN
;
C_CSR_D		; 
	LDA CSR_Y	;GET CURSER Y
	CMP WIND_B	;= WINDOW BOTTOM ?
	BEQ CSRD_1
	INC CSR_Y	; MOVE CURSER DOWN
	LDA CSR_Y
	JSR SETLI	;SET NEW LINE INDEX
	RTS
CSRD_1	LDA CONTROL
	AND #SCROL_BIT	;SCROLL ON ?
	BEQ CSRD_ND
	JSR C_SCR_U	;SCROLL UP
CSRD_ND	RTS
;
;------------------------------------------------------------
;
;   MOVE CURSER UP
;
C_CSR_U		; 
	LDA CSR_Y	;GET CURSER Y
	CMP WIND_T	;= WINDOW TOP ?
	BEQ CSRU_1
	DEC CSR_Y	;MOVE CURSER UP
	LDA CSR_Y
	JSR SETLI	;SET NEW LINE INDEX
	RTS
CSRU_1	LDA CONTROL
	AND #SCROL_BIT	;SCROLL ON ?
	BEQ CSRU_ND
	JSR C_SCR_D	;SCROLL DOWN
CSRU_ND	RTS
;
;------------------------------------------------------------
;
;   CLEAR TO END OF	LINE
;
C_CLEOL		; 
	LDY CSR_X	;GET CURSER X
	JSR CLREOL	;CLEAR TO END OF LINE
	RTS
;
;------------------------------------------------------------
;
;   CARRIAGE RETURN
;
C_CR		; 
	LDA WIND_L	;GET WIND LEFT
	STA CSR_X	;SET CURSER X
	LDA CONTROL
	AND #LF_BIT	;LINE FEED BIT SET ?
	BEQ CR_ND
	JSR C_CSR_D	;MOVE CURSER DOWN
CR_ND	RTS
;
;------------------------------------------------------------
;
;   SET NORMAL MODE
;
C_NORM		; 
	LDA #INV_BIT	;GET INVERSE BIT
	EOR #$FF	;REVERSE
	AND CONTROL	;CLEAR BIT
	STA CONTROL
	LDA #$80
	STA INVBYTE	;SET INVERSE BYTE
	RTS
;
;------------------------------------------------------------
;
;   SET INVERSE MODE
;
C_INV		; 
	LDA #INV_BIT	;GET INVERSE BIT
	ORA CONTROL	;ADD TO CONTROL BYTE
	STA CONTROL
	LDA #0
	STA INVBYTE	;ZERO INVERSE BYTE
	RTS
;
;------------------------------------------------------------
;
;  MOUSETEXT ON
;
C_MTON		; 
	LDA #MT_BIT	;GET BIT
	ORA CONTROL	;ADD TO CONTROL BYTE
	STA CONTROL
	RTS
;
;------------------------------------------------------------
;
;   SET CURSER VERTICAL POSITION
;
;          NEXT CHAR = POSITION
;
C_VTAB		; 
	JSR NXTCHAR	;GET NEXT CHAR
	BCS VT_ND	;NO CHAR
	CLC
	ADC WIND_T	;CONVERT TO ABSOLUTE
	CMP WIND_B	;= WINDOW BOTTOM ?
	BCC VT_1
	BEQ VT_1
	LDA WIND_B	;If overflow, set to max
VT_1	STA CSR_Y	;SET CURSER Y
	JSR SETLI	;SET NEW LINE INDEX
VT_ND	RTS
;
;------------------------------------------------------------
;
;   HOME CURSER
;
C_HOME		; 
	LDA WIND_L	;GET WINDOW LEFT
	STA CSR_X	;SET CURSER TO WINDOW LEFT
	LDA WIND_T	;GET WINDOW TOP
	STA CSR_Y	;SET CURSER Y
	JSR SETLI	;SET NEW LINE INDEX
	RTS
;
;------------------------------------------------------------
;
;   MOUSETEXT OFF
;
C_MTOFF		; 
	LDA #MT_BIT	;GET MOUSTEXT BIT
	EOR #$FF	;REVERSE BITS
	AND CONTROL	;CLEAR BIT IN CONTROL BYTE
	STA CONTROL
	RTS
;
;------------------------------------------------------------
;
;   SET CURSER POSITION
;
;        NEXT 2 CHAR = POS - X,Y
;
C_CSR_POS		; 
	JSR NXTCHAR	;GET NEXT CHAR
	BCS CSRP_ND	;NO CHAR
	TAX	;SAVE X POS
	JSR NXTCHAR	;GET Y POS
	BCS CSRP_ND	; NO CHAR
	entry SetPos
SetPos		;               ;x=XPOS a=YPOS
	CLC
	ADC WIND_T	;CONVERT TO ABSOLUTE
	CMP WIND_B	;PAST BOTTOM ?
	BEQ CSRP_1
	BCC CSRP_1
	LDA WIND_B	;If overflow, set to max
CSRP_1	TAY
	TXA
	CLC
	ADC WIND_L	;CONVERT TO ABSOLUTE
	CMP WIND_R	;PAST RIGHT ?
	BEQ CSRP_2
	BCC CSRP_2
	LDA WIND_R	;If overflow, set to max
CSRP_2	STA CSR_X	;SET X
	STY CSR_Y	;SET Y
	TYA
	JSR SETLI	;SET NEW LINE INDEX
CSRP_ND	RTS
;
;------------------------------------------------------------
;
;   MOVE CURSER RIGHT
;
C_CSR_R		; 
	LDA CSR_X	;GET CURSER X POS
	CMP WIND_R	;= WINDOW RIGHT ?
	BEQ CSRR_1
	INC CSR_X	;MOVE CURSER RIGHT
	RTS
CSRR_1	LDA CONTROL	;GET CONTROL BYTE
	AND #WRAP_BIT	;WRAP SET ?
	BEQ CSRR_ND	;NO
	LDA WIND_L
	STA CSR_X	;SET CURSER TO WINDOW LEFT
	JSR C_CSR_D	;MOVE CURSER DOWN
CSRR_ND	RTS
;
;------------------------------------------------------------
;
;   SCROLL UP
;
C_SCR_U		; 
	LDA WIND_T	;START AT TOP
	STA DEST_LINE	;SAVE DEST LINE
SCRU_1	LDA DEST_LINE	;GET DEST LINE
	CMP WIND_B	;AT BOTTOM ?
	BEQ SCRU_2
	STA SRC_LINE	;SAVE AS THE SOURCE	LINE
	INC SRC_LINE
	JSR MOVELINE	;MOVE LINE
	INC DEST_LINE
	JMP SCRU_1
SCRU_2	JSR SETLI	;SET LINE INDEX
	JSR CLRLINE	;CLEAR LAST LINE
	LDA CSR_Y	;RESET LINE INDEX
	JSR SETLI
	RTS
;
; MOVE LINE
;
MOVELINE		; 
	LDY WIND_L	;START AT LEFT
ML_1	LDA SRC_LINE	;GET THE SOURCE LINE #
	JSR SETLI
	JSR FROM_SCRN	;GET THE NEXT CHAR ON LINE
	PHA	;SAVE IT
;
	LDA DEST_LINE
	JSR SETLI
	PLA
	JSR TO_SCRN	;TRANSFER ONE LINE UP (SAME COLUMN)
;
	INY	;SET TO NEXT COLUMN
	CPY WIND_R	;At the right yet ?
	BCC ML_1
	BEQ ML_1
	RTS
;
SRC_LINE	DS.B 1	;SOURCE LINE
DEST_LINE	DS.B 1	;DESTINATION LINE
;
;------------------------------------------------------------
;
;   SCROLL DOWN
;
C_SCR_D		; 
	LDA WIND_B	;START AT BOTTOM
	STA DEST_LINE	;SAVE DEST LINE
SCRD_1	LDA DEST_LINE	;GET DEST LINE
	CMP WIND_T	;AT TOP ?
	BEQ SCRD_2
	STA SRC_LINE	;SAVE AS THE SOURCE	LINE
	DEC SRC_LINE
	JSR MOVELINE	;MOVE LINE
	DEC DEST_LINE
	JMP SCRD_1
SCRD_2	JSR SETLI
	JSR CLRLINE
	LDA CSR_Y
	JSR SETLI
	RTS
;
;-----------------------------------------------------------
;
;   SCROLL LEFT
;
C_SCR_L		; 
	LDY WIND_L	;Start at left
	STY DEST_COL	;Save as Destination collumn
SCRL_1	LDY DEST_COL	;Get the Dest col
	CPY WIND_R	;At right ?
	BEQ SCRL_2
	INY
	STY SRC_COL	;Save as the source	collumn
	JSR MOVECOL	;Move the collumn
	INC DEST_COL
	JMP SCRL_1
SCRL_2	JSR CLRCOL	;Clear the last collumn
	LDA CSR_Y	;Reset the line index
	JSR SETLI
	RTS
;
; MOVE COLLUMN
;
MOVECOL		; 
	LDX WIND_T	;Start at top
MC_1	TXA
	JSR SETLI
	LDY SRC_COL	;Get the source col	#
	JSR FROM_SCRN	;Get that char
;
	LDY DEST_COL
	JSR TO_SCRN	;Transfer the char to new col
;
	INX	;Set to next line
	CPX WIND_B
	BCC MC_1
	BEQ MC_1
	RTS
;
SRC_COL	DS.B 1	;Source collumn
DEST_COL	DS.B 1	;Destination collumn
;
;-----------------------------------------------------------
;
;   SCROLL RIGHT
;
C_SCR_R		; 
	LDY WIND_R	;Start at right
	STY DEST_COL	;Save as Destination collumn
SCRR_1	LDY DEST_COL	;Get the Dest col
	CPY WIND_L	;At left ?
	BEQ SCRR_2
	DEY
	STY SRC_COL	;Save as the source	collumn
	JSR MOVECOL	;Move the collumn
	DEC DEST_COL
	JMP SCRR_1
SCRR_2	JSR CLRCOL	;Clear the last collumn
	LDA CSR_Y	;Reset the line index
	JSR SETLI
	RTS
;
;-----------------------------------------------------------
;
;   CLEAR COLLUMN
;
;      Y = COLLUMN #
;
CLRCOL		; 
	LDX WIND_T	;Start from top
CCOL_1	TXA
	JSR SETLI
;
	LDA #SPACE_HB
	JSR TO_SCRN
	CPX WIND_B	;At bottom ?
	BEQ CCOL_2
	INX
	JMP CCOL_1
CCOL_2	RTS
;
;-----------------------------------------------------------
;
;   SET CONTROL BYTE
;
;       NEXT CHAR =	CONTROL BYTE
;
;	BIT 7 = ADVANCE
;	BIT 6 = ADVANCE VERTICAL
;	BIT 5 = WRAP
;	BIT 4 = SCROLL
;	BIT 3 = INVERSE
;	BIT 2 = MOUSETEXT
;	BIT 1 = LINE FEED AFTER CR
;	BIT 0 = INPUT ECHO
;
C_SETCNTL		; 
	JSR NXTCHAR	;GET NEXT CHAR
	BCS SC_ND	;NO CHAR
	LDA CHR_HB	;Get the full (high	bit) form of byte
	STA CONTROL	;STORE CONTROL BYTE
SC_ND	RTS
;
;------------------------------------------------------------
;
;   CLEAR LINE FROM	BEGINNING
;
C_CLLNB		; 
	JMP CLRLB
;
;
;------------------------------------------------------------
;
;   SET SPEED
;
C_SETSP		; 
	JSR NXTCHAR	;GET SPEED
	BCS SP_ND
	STA SPEED
SP_ND	RTS

**********************************************************
*
* Repeat a Character N times
*
**********************************************************

C_ReptChar		; 
	jsr NxtChar
	bcs C_ReptNd
	beq C_ReptNd
	pha
	jsr NxtChar
	bcs C_ReptNd
	ply	;restore the y register
	cmp #$20
	bcc C_ReptNd
lup	phy
	pha
	jsr Char
	pla
	ply
	dey
	bne lup
C_ReptNd	rts

**********************************************************
*
* Wait for the amount specified by N
*
**********************************************************

C_WaitChar		; 
	jsr NxtChar	;get N 
	bcs C_WaitNd
	beq C_WaitNd
	lda Chr_HB
	jsr B_Wait
C_WaitNd	rts



;------------------------------------------------------------
;
;   UNDEFINED CONTROL CHAR
;
C_UNDEF		; 
	RTS
	ENDP
;
;------------------------------------------------------------
;
;   GET STATUS ROUTINE
;
;        PARAMETER LIST:  DATA POINTER - 2 BYTES
;
;
;        RETURN:  DATA BUFFER:  0 - CSR_X
;	            1 - CSR_Y
;	            2 - WIND_L
;	            3 - WIND_T
;	            4 - WIND_R
;	            5 - WIND_B
;	            6 - CONTROL
;
;               EXPORT  GETSTAT  
GETSTAT	PROC
	Import ConsData:ConsRec
	with ConsData
	ldy #0
	LDA CSR_X	;Get the Status Information
	STA (LISTPTR),Y	; and save it in the data buffer:
	INY
	LDA CSR_Y
	STA (LISTPTR),Y
	INY
	LDA WIND_L
	STA (LISTPTR),Y
	INY
	LDA WIND_T
	STA (LISTPTR),Y
	INY
	LDA WIND_R
	STA (LISTPTR),Y
	INY
	LDA WIND_B
	STA (LISTPTR),Y
;
	INY
	LDA CONTROL
	STA (LISTPTR),Y
;
	LDA #NOERR
	CLC
	RTS
	ENDP
;
;------------------------------------------------------------
;
;   SAVE WINDOW ROUTINE
;
;        PARAMETER LIST:  DATA POINTER - 2 BYTES
;
;       RETURN:   DATA BUFFER = NO_ OF LINES
;	            COLLUMNS PER LINE
;	            WINDOW DATA
;
;
;
SAVEWIND	PROC Export
	import From_Scrn,SetLi	
	Import ConsData:ConsRec
	with ConsData
	LDY #0	;SETUP Y
	LDA LISTPTR	;SETUP POINTER TO DATA
	STA DATA_PTR
	LDA LISTPTR+1
	STA DATA_PTR+1
;
	LDY #0	;Set pointer to 0
	SEC
	LDA WIND_B	;Get the last line
	SBC WIND_T	;Subtract the first	line
	CLC
	ADC #1
	STA (DATA_PTR),Y	;<-- Total # of lines
;
	INY
	SEC
	LDA WIND_R	;Calculate the # of	collumns
	SBC WIND_L
	CLC
	ADC #1
	STA (DATA_PTR),Y
;
	JSR INC_DP	;Set data pointer to start of data area
	JSR INC_DP
;
	LDX #0
	LDA WIND_T
	STA CUR_LINE	;Reset the current line
SAVWND_1		; 
	JSR SETLI	;Set line index to value in A
	LDY WIND_L	;Set to 1st collumn
;
SAVWND_2		; 
	JSR FROM_SCRN	;Get the next character
	STA (DATA_PTR,X)	;Save it in data area
	JSR INC_DP	;Increnment the data pointer
;
	INY	;Set to next collumn
	CPY WIND_R	;End of collumn ?
	BEQ SAVWND_2
	BCC SAVWND_2
;
	INC CUR_LINE	;Set to next line
	LDA CUR_LINE	;Check it
	CMP WIND_B
	BEQ SAVWND_1
	BCC SAVWND_1
;
	LDA #NOERR
	CLC
	RTS
;
;
	entry INC_DP
INC_DP		;               
	PHA
	LDA DATA_PTR
	CLC
	ADC #1
	STA DATA_PTR
;
	LDA #0
	ADC DATA_PTR+1
	STA DATA_PTR+1
	PLA
	RTS
;
	ENDP
;
;------------------------------------------------------------
;
;   RESTORE WINDOW ROUTINE
;
RESTWIND	PROC Export
	import SetLi,To_Scrn
	Import ConsData:ConsRec
	with ConsData
	LDY #0	;SETUP Y
	LDA LISTPTR	;SETUP POINTER TO DATA
	STA DATA_PTR
	LDA LISTPTR+1
	STA DATA_PTR+1
;
	LDY #0
	LDA (DATA_PTR),Y	;Get the # of lines
	CLC
	ADC WIND_T	;Calculate the last	line
	STA LINE
;
	INY
	LDA (DATA_PTR),Y	;Get the # of collumns
	CLC
	ADC WIND_L
	STA COLL
;
	JSR INC_DP	;Set the pointer to	start of data area
	JSR INC_DP
;
	LDX #0	;Set up a null index
	LDA WIND_T	;Start at top of window
	STA CUR_LINE
RSTWND_1		; 
	JSR SETLI	;Set the line index	for TO_SCRN
	LDY WIND_L	;Start at left edge	of screen
;
RSTWND_2		; 
	LDA (DATA_PTR,X)	;Get next char from	buffer
	JSR TO_SCRN	;Put it on the screen
	JSR INC_DP	;Set the pointer to	next position
;
	CPY WIND_R
	BCS RSTWND_3
	CPY COLL
	BCS RSTWND_3
	INY
	JMP RSTWND_2
;
RSTWND_3		; 
	LDA CUR_LINE	;Test the line #
	CMP WIND_B
	BCS RSTWND_4
	CMP LINE
	BCS RSTWND_4
	INC CUR_LINE
	LDA CUR_LINE
	JMP RSTWND_1
;
RSTWND_4		; 
	LDA #NOERR
	CLC
	RTS
;
LINE	DS.B 1
COLL	DS.B 1
	ENDP
;

;------------------------------------------------------------
;
;  GET CURSER ROUTINE
;
;         RETURN:
;           Y = Cursor Line Number
;           X = Cursor Column Number
;           A = CHARACTER AT THAT LOCATION
;
;               EXPORT  GETCSR   
GETCSR	PROC
	import From_Scrn,SetLi
	Import ConsData:ConsRec
	with ConsData
	LDY CSR_X
	LDA CSR_Y
	JSR SETLI
	JSR FROM_SCRN	;Get the current character
	PHA	;Save it
;
	LDA CSR_X	;GET CURSER X
	SEC
	SBC WIND_L	;CONVERT TO RELATIVE
	TAX	;PLACE IT IN X
;
	LDA CSR_Y	;GET CURSER Y
	SEC
	SBC WIND_T	;CONVERT TO RELATIVE
	TAY	;PLACE IT IN Y
;
	PLA	;Retreve the current character
	CLC
	RTS
	ENDP
;
; ClearKBD -- clear	the keyboard strobe.  Replaces
;       STA     KEYDOWN
;
; GetKBD -- get character from keyboard.  Replaces
;       LDA     KEYBOARD
;
; Written by Mark Day, 10/11/87
;
;               EXPORT  ClearKBD 
ClearKBD	PROC
	phb
	pea $E0E0
	plb
	plb
	STA KEYDOWN
	plb
	rts
	ENDP

;               EXPORT  LoadKBD 
LoadKBD	PROC
	phb
	pea $E0E0
	plb
	plb
	LDA KEYBOARD
	plb
	ora #0	; because the PLB changes N and Z flags
	rts
	ENDP

;
;-------------------------------------------------
;
;   GET INPUT CHAR ROUTINE
;
;PARAMETER LIST: CURSER TYPE-1 BYTE $80=INSERT(_)
;	                $00=OVERSTRIKE
;
;        RETURN:  A	= CHARACTER INPUT
;                 X	= APPLE KEY STATE:
;	      BIT 7 = OPEN APPLE DOWN
;	      BIT 6 = CLOSED APPLE DOWN
;
;
;               EXPORT  GET_KBD  
GET_KBD	PROC
	import To_Scrn
	Import ConsData:ConsRec
	with ConsData
	lda Curser
	beq GetKbd2

GKB_2		; 
	LDA #0
	STA COUNT	;Clear the low byte	of the counter
;
	JSR GETCSR	;Get the curent character
	STA CURRCHAR
	LDY CSR_X	;Get curser col (LINEIDX is set by GETC
;
GKB_3	LDA CURSER	;Get the curser character
	JSR TO_SCRN	;Put it on the screen
	LDA BLNKRATE	;Get the blink rate
	STA COUNT+1	;Use as high byte in counter
	JSR READSTRB	;Read the keyboard strobe
	BCC GKB_4	;Got an input, return_
;
	LDA CURRCHAR	;Remove the curser
	JSR TO_SCRN
	LDA BLNKRATE	;Set the curser off	time
	STA COUNT+1
	JSR READSTRB	;Read the keyboard strobe
	BCS GKB_3
;
GKB_4		; 
	jsr ClearKBD	;Clear the key strobe
	PHA	;Preserve the character
	LDA CONTROL	;Get the control bit
	LSR A	;Put the low bit into C
	PLA
	BCC GKB_5	;If Echo bit is off, restore the char
;
	CMP #SPACE_HB	;is it a control character ?
	BCC GKB_5	;If so, don't echo it
;
	CPX #0	;Is it an Apple Char ?
	BNE GKB_5	;If so, no echo_
;
	JSR TO_SCRN	;Echo the character
	AND #%01111111	;Strip off the high	bit
	CLC
	RTS
;
GKB_5		; 
	PHA	;Save A
	LDA CURRCHAR	;Remove the curser
	JSR TO_SCRN
	PLA	;Restore A
	AND #%01111111	;Strip off the high	bit
	RTS
;
GETKBD2		; ;Get key w/o a curser 
	jsr ClearKBD
GETKBD3		; 
	jsr LoadKBD	;Read the keyboard
	BPL GETKBD3
	JSR RDSTR_1	;Got the char, now get apple keys
	AND #%01111111	;Strip off the high	bit
	jsr ClearKBD	;Clear the keyboard	strobe
	RTS
;
READSTRB		; 
	jsr LoadKBD	;Read the keyboard
	BMI RDSTR_1
	DEC COUNT	;Decrement the curser count
	BNE READSTRB
	DEC COUNT+1
	BNE READSTRB
	SEC	;No character in
	RTS
;
RDSTR_1		; 
	PHA	;Preserve A
	phb
	pea $E0E0
	plb
	plb
	ASL SWITCH0	;Put the OA bit into C
	LDA SWITCH1	;Get the CA bit
	plb
	AND #%10000000	;Mask out the extra	bits
	ROR A	;Put SW0 in bit 7, SW1 in 6, and 0 in C
	TAX	; and then put the whole thing in X
	PLA	;Restore A
	RTS
	ENDP
;
;------------------------------------------------------------
;
;   CLEAR WINDOW FROM BEGINNING
;
CLR_WB	PROC Export
	import ClrLine,ClrLB,SetLi
	Import ConsData:ConsRec
	with ConsData
	LDX WIND_T	;Start at top line
CLWB_1	TXA	;Put the line index	into A
	JSR SETLI	;Calculate the line	index
	CPX CSR_Y	;Are we AT the current line ?
	BEQ CLWB_2	;If so, go do a CLRLB
	JSR CLRLINE	;Otherwise, clear the whole line
	INX	;Set to next line
	JMP CLWB_1
CLWB_2	JMP CLRLB	;Clear the current line to curser
	ENDP

;------------------------------------------------------------
;
; CLEAR WINDOW ROUTINE
;
;               
CLR_WIND	PROC Export
	import Clr_Eow
	Import ConsData:ConsRec
	with ConsData
	LDX WIND_T	;GET WINDOW TOP
	LDY WIND_L	;GET WINDOW LEFT
	JSR CLR_EOW	;CLEAR TO END OF WIND
	RTS
	ENDP
;
;------------------------------------------------------------
;
; CLEAR TO END OF WINDOW ROUTINE
;
;      Y = START POS OF FIRST LINE
;      X = FIRST LINE #
;
;               EXPORT  CLR_EOW  
CLR_EOW	PROC
	Import SetLi,ClrEOL
	Import ConsData:ConsRec
	with ConsData
 	TXA
	JSR SETLI	;SET LINE INDEX
CLW_1	JSR CLREOL	;CLEAR TO END OF LINE
	CPX WIND_B	;AT BOTTOM ?
	BEQ CLW_2
	INX	;NEXT LINE
	TXA
	JSR SETLI	;SET LINE INDEX
	LDY WIND_L	;START AT BEG OF LINE
	JMP CLW_1
CLW_2	LDA CSR_Y	;RESTORE LINE INDEX
	JSR SETLI
	RTS
	ENDP
;
;-----------------------------------------------------------
;
; CLEAR LINE ROUTINE
;
;    LINEIDX = LINE
;
;               
CLRLINE	PROC Export
	import ClrEol
	Import ConsData:ConsRec
	with ConsData
	LDY WIND_L	;GET WINDOW LEFT
	JMP CLREOL	;CLEAR TO EOL
	ENDP

;------------------------------------------------------------
;
; CLEAR TO END OF LINE ROUTINE
;
;       Y = START POSITION
;
;       X - UNCHANGED
;
CLREOL	PROC Export
	import To_Scrn
	Import ConsData:ConsRec
	with ConsData
	LDA #SPACE	;GET SPACE CHAR
	ora invbyte
CLEOL_1	JSR TO_SCRN	;OUTPUT TO WINDOW
	CPY WIND_R	;END OF LINE ?
	BEQ CLEOL_2
	INY
	JMP CLEOL_1
CLEOL_2	RTS
	ENDP
;
;------------------------------------------------------------
;
;   CLEAR LINE FROM	BEGINNING
;
CLRLB	PROC Export
	import To_Scrn
	Import ConsData:ConsRec
	with ConsData
	LDA #SPACE_HB
	LDY WIND_L	;START AT LEFT
CLLB_1	JSR TO_SCRN	;OUTPUT TO WINDOW
	INY
	CPY CSR_X	;REACHED CURSER POS	YET ?
	BNE CLLB_1
	RTS
	ENDP
;
;------------------------------------------------------------
;
; SET LINE INDEX ROUTINE
;
;    A = LINE NUMBER
;    X,Y - UNCHANGED
;
SETLI	PROC Export
	Import ConsData:ConsRec
	with ConsData
	STY SCRATCH_Y	;SAVE Y
	ASL A	;MULT LINE BY 2
	TAY	;USE AS INDEX
	LDA LINETBL,Y	;GET VALUE FROM TABLE
	STA LINEIDX	;PUT IN LINE INDEX
	INY
	LDA LINETBL,Y
	STA LINEIDX+1
	LDY SCRATCH_Y	;RESTORE Y
	RTS

;
; LINE INDEX TABLE 
;
LINETBL		; 
	DC.W $400
	DC.W $480
	DC.W $500
	DC.W $580
	DC.W $600
	DC.W $680
	DC.W $700
	DC.W $780
	DC.W $428
	DC.W $4A8
	DC.W $528
	DC.W $5A8
	DC.W $628
	DC.W $6A8
	DC.W $728
	DC.W $7A8
	DC.W $450
	DC.W $4D0
	DC.W $550
	DC.W $5D0
	DC.W $650
	DC.W $6D0
	DC.W $750
	DC.W $7D0
	ENDP
;
;------------------------------------------------------------
;
; OUTPUT TO SCREEN ROUTINE
;
;     Y = COLUMN
;     A = CHAR
;     LINEIDX = LINE
;
;     X,Y,A UNCHANGED
;
TO_SCRN	PROC Export
	Import ConsData:ConsRec
	with ConsData
	STX SCRATCH_X	;SAVE X
	STY SCRATCH_Y	;SAVE Y
	BIT COLMODE	;CHECK COL MODE
	BMI TO_SCR_2	;80 COL
TO_SCR_1		; 
	phb	; save bank while accessing screen
	bit ColMode	;check the mode
	bvc Scr2	;not in gs mode
	pea 0	; switch to bank 0 for screen
	plb
	plb
Scr2	STA (LINEIDX),Y	;STORE CHAR TO SCREEN
	plb	; get old bank
TO_SCR_3	LDY SCRATCH_Y	;RESTORE Y
	LDX SCRATCH_X	;RESTORE X
	RTS

;
; 80 COL
;
TO_SCR_2	TAX	;SAVE A
	TYA
	LSR A	;CHECK LOW BIT OF COL #
	TAY
	TXA
	BCS TO_SCR_1	;STORE IN PAGE 1
	phb	; save bank while accessing screen
	bit ColMode	;check the mode
	bvc Scr1	;not in gs mode
	pea 0	; switch to bank 0 for screen
	plb
	plb
Scr1	LDX PAGE2	;TURN ON PAGE 2
	STA (LINEIDX),Y	;STORE CHAR TO SCREEN
	LDX PAGE1	;TURN ON PAGE 1
	plb	;get old bank
	JMP TO_SCR_3
	ENDP
;
;------------------------------------------------------------
;
;   READ CHAR FROM SCREEN
;
;      Y = COLUMN
;      LINEIDX = LINE
;
;    RETURN:
;      A = CARACTER
;
;               EXPORT  FROM_SCRN 
FROM_SCRN	PROC
	Import ConsData:ConsRec
	with ConsData
	STX SCRATCH_X	;SAVE X
	STY SCRATCH_Y	;SAVE Y
	BIT COLMODE	;CHECK COL MODE
	BMI FR_SCR_2	;80 COL
FR_SCR_1		; 
	phb	; save bank during i/o
	pea $E0E0	; switch to bank $E0 for i/o
	plb
	plb
	LDA (LINEIDX),Y	;GET CHAR FROM SCREEN
	plb	; back to old bank
FR_SCR_3	LDY SCRATCH_Y	;RESTORE Y
	LDX SCRATCH_X	;RESTORE X
	RTS
;
; 80 COL
;
FR_SCR_2		; 
	TYA
	LSR A	;CHECK LOW BIT OF COL #
	TAY
	BCS FR_SCR_1	;STORE IN PAGE 1
	phb	; save bank during i/o
	pea $E0E0	; switch to bank $E0 for i/o
	plb
	plb
	LDX PAGE2	;TURN ON PAGE 2
	LDA (LINEIDX),Y	;GET CHAR FROM SCREEN
	LDX PAGE1	;TURN ON PAGE 1
	plb	; back to old bank
	JMP FR_SCR_3
	ENDP

;               EXPORT  Write_X  
Write_X	PROC
	Import ConsData:ConsRec
	with ConsData
	ldx ListPtr
	stx MyChar+1
	WriteStr MyChar
	rts
MyChar	dc.b 1
	ds.b 1
	ENDP


**********************************************************
*
* WriteCString - Write a string of characters to the screen
* that is in the C String format. (Terminated in zero.)
* Up to 32768 characters
* Rick Hoiberg 11/4/86
*
**********************************************************

;               EXPORT  WrtCStg  
WrtCStg	PROC
	import Write
	Import ConsData:ConsRec
	with ConsData
	ldy ListPtr+1
	sty Scratch_Y
	ldy #0	;set up for indexing
doloop	lda (ListPtr),y	;get the character
	beq countdun	;if zero we are at the end of the string
	iny	;add one to the count
	bne doloop	;if no zero get the	next character
	inc wrtparms+3	;update our new Write Parameter list
	inc ListPtr+1	;move across the page boundry
	bra doloop	;and repeat
countdun	sty wrtparms+2	;got the count, now	set up the new
	lda listPtr	;parameter list.  Old ListPtr points
	sta wrtparms	;to our data
	lda Scratch_Y	;this was the original ListPtr High byte
	sta wrtparms+1	;
	lda #wrtparms	;and now we will make ListPtr Point to
	sta listptr	;our new parameter list
	lda #>wrtparms	;
	sta listptr+1
	jmp Write	;and let Write do the rest for us...
	ENDP

**********************************************************
*
* GotoXY - Positions the Cursor at the coordinates
* in the X register	(XPOS) and the Y register (YPOS)
*
* Rick Hoiberg 11/20/86
*
**********************************************************


;               EXPORT  GotoXY   
GotoXY	PROC
	Import ConsData:ConsRec
	with ConsData
	ldx ListPtr
	lda ListPtr+1
	Jsr SetPos
	rts
	ENDP

;------------------------------------------------------------
;
;   SHORT BUFFER MOVE ROUTINE
;
;      X = COUNT
;      SRC = SOURCE	POINTER
;      DEST = DEST POINTER
;
;               EXPORT  BUFMOV   
;BUFMOV	PROC
;	LDY #$FF	;SETUP Y
;BFM_1	INY
;	LDA (SRC),Y	;MOVE BYTE
;	STA (DEST),Y
;	DEX	;DEC COUNT
;	BNE BFM_1
;	RTS
;	ENDP

DoViewPort	PROC Export
	ldy #0
	lda (ListPtr),y
	sta SX1
	iny
	lda (ListPtr),y
	sta SY1
	iny
	lda (ListPtr),y
	sta SX2
	iny
	lda (ListPtr),y
	sta SY2
	WriteStr SViewPrms
	rts
	
SViewPrms		; 
	DC.B $05
	DC.B $02
SX1	DS.B 1
SY1	DS.B 1
SX2	DS.B 1
SY2	DS.B 1
	ENDP

;               EXPORT  SetCursor 
SetCursor	PROC
	Import ConsData:ConsRec
	with ConsData
	ldx ListPtr
	stx Curser
	rts
	ENDP

;               EXPORT  CenterString    
CenterString	PROC
	Import ConsData:ConsRec
	with ConsData
	lda ListPtr	;save the pointer to the string for later
	pha	;use.
	lda ListPtr+1	;because we will call the console driver
	pha	;ourselves
	ldy #0	;get the length of the string
	lda (ListPtr),y	;this is it
	lsr a	;divide by 2
	sta StrTemp	;save here for the subtraction
	sec	;get ready for subtraction
	lda Wind_R	;find the center point of the window
	sbc Wind_L	;by subtracting the	right from the left
	lsr a	;divide by 2 
	sec
	sbc StrTemp	;calculate the starting x position
	pha	;save the x start position
	GetXY	;get the current XY	coordinates
	plx	;and change the x
	lda #CD_GotoXY	;goto this new XY position
	jsr StartAsm	;
	ply	;restore pointer to	the string
	plx	;
	WritePointer	;print the string
	rts	;and then we are done
	ENDP

	Export PrintHex
PrintHex	Proc
	Import ConsData:ConsRec
	with ConsData
	ldy #0
	lda (ListPtr),y	;first byte in the list is the number of bytes
	cmp #5	;this version supports up to 4 bytes
	bge @1
	tax	;into the x register
	stx HexList
@2	iny	;increment y
	lda (ListPtr),y	;get the remaining bytes from the parameter list
	sta HexList,x	;this is our internal buffer
	dex	;until x = 0
	bne @2
	ldx HexList	;get the count back
	ldy #0	;for each byte
@3	iny	;get the byte
	lda HexList,y	;
	jsr HexOut
	dex	;again until x = 0
	bne @3
@1	rts

HexOut		;
	phx	;save the registers
	phy	;print the Hex value
	pha
	lsr a
	lsr a
	lsr a
	lsr a
	jsr DoHex
	pla
	jsr DoHex
	ply	;restore the registers
	plx
	rts

DoHex		;
	and #$0f
	ora #$30
	cmp #$3a
	bcc @1
	adc #6
@1	tax
	lda #CD_WriteChar
	jsr StartAsm
	rts
HexList	ds.b 5
	ENDP

;-----------------------------------------------
;ParmText takes four pointers from
;the parameter list	and uses them whenever
;^0 - ^3 is encountered in the Message Handler
;-----------------------------------------------
ParmText	Proc
	Import ConsData:ConsRec
	with ConsData
	ldy #0
	ldx #4
@1	lda (ListPtr),y	;is the pointer a null?
	iny
	ora (ListPtr),y	;is the high byte null?
	beq @2	;it is, so dont change the pointer
	dey	;reset the y register back to the pointer
	lda (ListPtr),y	;Get the pointers from the parameter list
	sta TextPtrs,y	;store the pointer into our internal buffer
	iny	;next y
	lda (ListPtr),y	;get the high byte
	sta TextPtrs,y	;
@2	iny	;next y
	dex
	bne @1	;until x = 0
	rts	;all done

*

	include 'input.aii'
	include 'Strings.aii'
ConsData	ds ConsRec
ListData	ds ListRec
	end

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/Console/console.equates b/IIGS.601.SRC/GS.OS/NetBoot/Console/console.equates
new file mode 100644
index 0000000..630b1c5
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/NetBoot/Console/console.equates
@@ -0,0 +1 @@
+*
*  GENERAL EQUATES
*
LASTLINE	equ 23
BADCMD	equ $01
LASTCMD	equ $19
KEY	equ $C000
CL_KEY	equ $C010

************************************************************
*
* Zero Page Equates
*
************************************************************
LINEIDX	equ $e0	;internal console zero page usage
DATA_PTR	equ $e2	;internal console zero page usage
LISTPTR	equ $e4
StrPtr	equ $e6
StrPtr2	equ $e8


;  CHARACTER EQUATES
;

ESCAPE	equ $1B
Tab	equ $09
RETURN	equ $0D
SPACE	equ $20
UPARROW	equ $0B
DNARROW	equ $0A
RTARROW	equ $15
LTARROW	equ $08
DelChar	equ $7f
;
;   CONSOLE DRIVER CONTROL CODES
;
NOP	equ $00
CLRWB	equ $01
SETWIND	equ $02
RSTWIND	equ $03
CLRWIND	equ $04
CLREOW	equ $05
CLRLN	equ $06
BELL	equ $07
CSRL	equ $08
HTAB	equ $09
CSRD	equ $0A
CSRU	equ $0B
CLEOL	equ $0C
CR	equ $0D
NORM	equ $0E
INV	equ $0F
MTON	equ $10
VTAB	equ $11
HomeCsr	equ $12
MTOFF	equ $13
CPOS	equ $14
CSRR	equ $15
SCRU	equ $16
SCRD	equ $17
SCRL	equ $18
SCRR	equ $19
SETCNTL	equ $1A
CLLNB	equ $1B
ReptChar	equ $1c
WaitChar	equ $1d
;
;
;   CONSOLE DRIVER COMMANDS
;
CD_INIT	equ $00
CD_WRITE	equ $01
CD_GETCSR	equ $02
CD_GETSTAT	equ $03
CD_SAVEWIND	equ $04
CD_RESTWIND	equ $05
CD_GETKBD	equ $06
CD_WRITEChar	equ $07
CD_WrtCStg	equ $08
CD_GotoXY	equ $09
CD_Input	equ $0a
CD_FrameRect	equ $0b
CD_ListHandler	equ $0c
CD_WrtPtr	equ $0d
CD_DoViewPort	equ $0e
CD_SetCursor	equ $0f
CD_Message	equ $10
CD_CenterStr	equ $11
CD_PrintHex	equ $12
CD_ParmText	equ $13
CD_CompareStr	equ $94
CD_MoveStr	equ $95
CD_NextStr	equ $96
CD_SortArray	equ $97
CD_FindItem	equ $98

;
;
; CONSTANT EQUATES
;
DFBLKRTE	equ $7F
DFCNTL	equ %10110011
ADV_BIT	equ %10000000
ADVV_BIT	equ %01000000
WRAP_BIT	equ %00100000
SCROL_BIT	equ %00010000
INV_BIT	equ %00001000
MT_BIT	equ %00000100
LF_BIT	equ %00000010
ECHO_BIT	equ %00000001
SPACE_HB	equ $A0
StackSize	equ $80
;
; ERROR CODE EQUATES
;
NOERR	equ $00
BADPOS	equ $02

; HARDWARE EQUATES
;
SPKR	equ $C030
KEYBOARD	equ $C000
KEYDOWN	equ $C010
SWITCH0	equ $C061
SWITCH1	equ $C062
STORE80	equ $C001	;WRITE
PAGE1	equ $C054	;READ
PAGE2	equ $C055	;READ
ALTCHAR	equ $C00F	;WRITE
S_80COL	equ $C00D	;WRITE
S_40COL	equ $C00C	;WRITE
;WRITE
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/Console/input.aii b/IIGS.601.SRC/GS.OS/NetBoot/Console/input.aii
new file mode 100644
index 0000000..8ef7996
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/NetBoot/Console/input.aii
@@ -0,0 +1 @@
+

*
*************************************************************
* Line Input Routine
*
*       Parameters:
*       OptionByte	    dc      h'00'	->              ;B7	- Display '*' for typed characters
*		<-              ;B6	- Default modified
*       MyLen	    ds      1	                ;maximum length of input
*       InBuff	    ds      2	                ;pointer to the callers	buffer
*	    dc      a'MyTermList'           ;pointer to the list of	terminating chars
*
*       MyTermList	    anop
*	    dc      h'03'	                ;number of characters in the list
*	    dc      i1'Escape'              ;The list contains ascii characters with
*	    dc      i1'TabHB'               ;the option of the high	bit indicates
*	    dc      i1'CrHB'                ;whether the callers buffer gets updated
*		                ;or	not
*************************************************************


Input	PROC Export
TermPtr	equ $ec
BufPtr	equ $ee

MoveParm		; 
	Import ConsData:ConsRec
	with ConsData
	lda ListPtr	;get the current ListPtr
	sta MyListPtr	;save it for future	use
	lda ListPtr+1	;and the high byte
	sta MyListPtr+1	;we need this as well
	ldy #0	;set up for zero page indexing
	lda (ListPtr),y	;to get the parameters passed to
	sta OptByte	;this routine
	iny
	lda (ListPtr),y
	sta MaxLen	;Maximum input Length
	iny
	lda (ListPtr),y
	sta StrPtr	;This the pointer to the default
	iny	;String and the Output Buffer
	lda (ListPtr),y
	sta StrPtr+1
	iny
	lda (ListPtr),y	;This is the list of terminating
	sta TermPtr	;Characters.  The high bit of each
	iny	;character indicates if the Output
	lda (ListPtr),y	;Buffer is to be updated with that
	sta TermPtr+1	;Termination Character.
	GetXY
	stx HomeX
	sty HomeY
	lda control	;modify the console	control byteto
	and #$fe	;clear the echo bit
	sta control	;
	lda Curser	;preserve the current cursor
	sta OldCurser	;
	lda #$df	;and change it to the underline character
	sta Curser	;
	stz ClearFlag	;this flag indicates how the underlines	are drawn

Restore	ldy #0
	lda (StrPtr),y
	sta BufLen
	beq NoClr
MovLup	iny
	lda (StrPtr),y	;check for zero!!!!
	sta Buffer-1,y
	cpy BufLen
	bne MovLup
NoClr	tya
	tax
	stz buffer,x
	ldx #0
	jsr prbuf	;print the buffer
	jsr PrUndrLin
	lda #$40
	trb OptByte	;reset the bit to indicate modified buffer
*
keyin		; 
	jsr SetCursor
	jsr GetKey
	sta char
	jsr CheckTerm	;check to see if we	got a termination
	bcc chkcmd	;character
	lda Control	;restore the console control byte
	ora #$01	;
	sta Control	;
	lda OldCurser	;restore the old cursor
	sta Curser	;
	lda #$80	;remove any extra underline characters
	sta ClearFlag	;indicate to use spaces to draw underline
	jsr PrUndrLin	;draw the underline
	lda Char
	rts	;Were outta here!
chkcmd	cmp #$15	;right cursor key moves one position to	the right
	beq jfwd	;         
	cmp #8	;left cursor key moves one position to the left
	beq jbck	;        
	cmp #$04	;Control-D deletes the character one cursor position back
	beq jdel	;         
	cmp #$7f	;Delete key deletes	the character one cursor position back
	beq jdel	;         
	cmp #$0b	;up cursor key moves to the end of the edit line          
	beq jautf	;        
	cmp #$0a	;down cursor key moves to the beginning	of the edit line	                 
	beq jautb	;         
	cmp #$19	;Control-Y clears to the end of a line.	       
	beq jtrunc	;          
	cmp #$18	;Control-X clears the entire line	  
	beq jclear	;          
	cmp #$12	;Control-R restores	the Default input	       
	beq jrest	;           
	cmp #$20	;any other character should be an ascii	symbol
	blt jkeyin	;if it is less than	a space, ignore it	                 
	jmp insert	;otherwise insert it at the current cursor position	         
jkeyin	jmp keyin	;to the top of the loop                
jfwd	jmp fwdarr	;               
jbck	jmp bckarr
jclear	jmp clear
jdel	jmp delete
jautf	ldx BufLen
	jmp Keyin
jautb		; 
	ldx #0
	jmp keyin
jtrunc	jmp clreob
jrest	jmp restore	;                 
*

fwdarr		; 
	lda buffer,x
	bne fd1
	jsr DoBell
	bra fd2
fd1	inx
	lda Char
	jsr PrChar	;
fd2	jmp keyin
*
bckarr		; 
	cpx #0
	bne bk1
	jsr DoBell
	bra bk2
bk1	dex
	jsr PrChar
bk2	jmp keyin
*
*
clear		; 
	ldx #0
	stz Buffer,x
	stx BufLen
	jsr PrUndrLin
	lda #$40
	tsb OptByte	;the default has been modified
	jmp Keyin
*
delete		; 
	cpx #0
	bne Del1
	jsr DoBell
	jmp keyin	;if at beginning of	buffer, no delete
Del1	stx savx	;store the x register
Del2	cpx buflen	;are we at the buffer end?
	beq Del3
	lda buffer,x
	beq Del3
	sta buffer-1,x
	inx
	bra Del2
Del3		; 
	dec buflen
	ldx buflen
	stz buffer,x
	ldx savx
	dex
	jsr prbuf
	jsr PrUndrLin
	lda #$40
	tsb OptByte	;the default has been modified
	jmp keyin	;and return
*
insert		; ;insert a character into buffer
	stx savx	;at the current cursor position.
	ldx buflen
	cpx MaxLen
	bne Clr1
	ldx SavX
	jsr DoBell
	jmp keyin
Clr1		; 
	ldx SavX
	lda buffer,x	;get the current position
	beq Clr3	;if not eob, then insert at position
	ldx BufLen
Clr2		; 
	lda buffer,x	;move the buffer down one byte
	sta buffer+1,x	;Yeah, That's the ticket!               
	dex
	cpx savx
	bne Clr2
	lda buffer,x
	sta buffer+1,x
Clr3	lda char
	inc buflen
	ldx Buflen
	stz buffer,x	;here is the end
	ldx savx
	sta buffer,x	;store the input character
	jsr prbuf	;print the buffer
	inx
	lda #$40
	tsb OptByte	;the default has been modified
	jmp keyin
*
prchar		; ;print the character in the accumulator
	phx
	pha
	phy
	tax
	lda #CD_WriteChar
	jsr StartAsm
	ply
	pla
	plx
	rts
*
**** put buffer into applesoft ****
*
clreob		; ;clear to end of buffer
	stz buffer,x
	stx Buflen
	jsr PrUndrLin
	lda #$40
	tsb OptByte	;the default has been modified
	jmp keyin
*
GetKey		; 
	phx
	phy
	GetKey
	ply
	plx
	rts
*
SetCursor		; 
	phx
	jsr HomeCursor
	pla	;get the Buffer position
	pha	;back on the stack to restore X
	ldy #0
	sec
SBLup		; 
	pha
	sbc #80
	bcc SBPass
	iny
	bra SBLup
SBPass	pla
	sta SavX
	tya
	clc
	adc HomeY
	tay
	lda SavX
	clc
	adc HomeX
	tax
	lda #9
	jsr StartAsm
	plx
	rts	;
*
HomeCursor		; 
	ldy HomeY
	ldx HomeX
	lda #9
	jsr StartAsm
	ldx #0
	rts
*
DoBell		; 
	phx
	pha
	Bell
	pla
	plx
	rts
*
CheckTerm		; 
	phx
	ldy #0	;set up the index register
	lda (TermPtr),y	;and get the number	of Term Characters
	tax	;into the X register
	iny
Nxterm	lda (TermPtr),y	;get the first Term	Char
	and #$7f	;clear the high bit	for compare
	cmp Char	;is it the key pressed?
	beq Match	;we gots us a terminator!
	dex	;try the next one
	beq NoMatch	;all have been tryed, so quit
	iny	;next one
	bra Nxterm
*
NoMatch		; 
	plx	;recover the x register
	lda Char
	clc	;clear the carry
	rts	;indicate no Match
*
Match	lda (TermPtr),y	;see if an Update is required
	bmi Update	;it is so move the Buffer
	lda #$40
	trb OptByte	;clear the default modified
	bra UpDun	;no, so return
Update		; 
	lda BufLen	;get the Buffer Length
	ldy #0	;set up the y register of indexing
	sta (StrPtr),y	;store the Length
	iny	;
UpLup	lda Buffer-1,y	;get the first byte
	beq UpDun	;when we reach zero	we are done
	sta (StrPtr),y	;store the character
	iny	;and then get the next
	bra UpLup	;repeat until zero
UpDun		; 
	lda MyListPtr	;restore the old pointer to Input Parm list
	sta ListPtr
	lda MyListPtr+1	;
	sta ListPtr+1
	ldy #0	;it is the first byte in the list
	lda OptByte	;
	sta (ListPtr),y	;update the option byte in input parameters
	plx	;recover the x register
	sec	;indicate that a Termination Character
	rts	;was pressed and then bye....

*
*
*
prbuf		; 
	stx prsavx
	phx
	phy
	jsr SetCursor
	lda #buffer
	clc
	adc prsavx
	tax
	lda #>buffer
	adc #0
	tay
	bit OptByte
	bmi Encript
	lda #8
	jsr StartAsm
PBufDun	ply
	plx
	rts

Encript		; 
	sty BufPtr+1
	stx BufPtr
	ldy #0
EN1	lda (BufPtr),Y
	beq PBufDun
	lda #'*'
	jsr PrChar
	iny
	bra EN1
*
PrUndrLin		; 
	phx
	ldx BufLen
	jsr SetCursor
	stx SavX
	sec
	lda MaxLen
	sbc SavX
	beq ULinDun
	bit ClearFlag
	bmi ClearChar
	sta UnLinCnt
	ReptChar UnderLine
ULinDun	plx
	jsr SetCursor
	rts
ClearChar		; 
	sta ClearCnt
	ReptChar ClearLin
	bra ULinDun
ClearLin		; 
	DC.W CLChars
	DC.W 3
CLChars	DC.B ReptChar
ClearCnt	DC.B $00
	DC.B ' '


UnderLine		; 
	DC.W ULChars
	DC.W 5
ULChars	DC.B $10,$1c
UnLinCnt	DC.B $00
	DC.B 'I'
	DC.B $13
Char	DS.B 1
ClearFlag	DS.B 1
OldCurser	DS.B 1
MyListPtr	DS.B 2
	ENDP

	
FrameRect	PROC Export
	Import ConsData:ConsRec
	with ConsData
	ldy #0
	lda (ListPtr),y
	sta HomeX
	iny
	lda (ListPtr),y
	sta HomeY
	iny
	lda (ListPtr),y
	sta X2
	iny
	lda (ListPtr),y
	sta Y2
	ldy HomeY	;move the cursor
	ldx HomeX
	lda #9
	jsr StartAsm
	lda X2
	sec
	sbc HomeX
	sta UnLinCnt
	sta BUnLinCnt
	ReptChar UnderLine
	dec HomeX
DoBars	inc HomeY
	ldy HomeY
	ldx HomeX
	lda #9
	jsr StartAsm
	WriteCStr LeftBar
	ldy HomeY
	ldx X2
	lda #9
	jsr StartAsm
	WriteCStr RightBar
	ldy HomeY
	cpy Y2
	bne DoBars
	ldx HomeX
	inx
	iny
	lda #9
	jsr StartAsm
	ReptChar BUnderLine
	rts

UnderLine		; 
	DC.W ULChars
	DC.W 3
ULChars	DC.B $1c
UnLinCnt	DC.B $00
	DC.B '_'
BUnderLine		; 
	DC.W BULChars
	DC.W 5
BULChars	DC.B MTON
	DC.B $1c
BUnLinCnt	DC.B $00
	DC.B 'L'
	DC.B MTOFF

LeftBar	DC.B $10,$5a,$13,$00
RightBar	DC.B $10,$5f,$13,$00
X2	DS.B 1
Y2	DS.B 1
	ENDP

**********************************************************
*
* ListHandler - Handles an Array of Strings for Selection
*       Parameter List: 
*       SelXPos	    Byte    <--
*       SelYPos	    Byte    <--
*       Increment	    Byte    <--
*       ArrayCnt	    Byte    <-- -->
*       StgArrayPtr	    Pointer <--
*       SelArray	    Pointer <-- 
*               B7 - Item Selected
*               B6 - Item Disabled	        ;can not be	modified
*       SelIndex	    Byte    <-- -->
*       ListOption	    Byte    <--
*               B7 - Enable multiple selections
*               B6 - Enable keyboard navigation
*               B2 - Enable Selection Fill 
*               B1 - Enable Check Mark
*
* Rick Hoiberg 2/8/87
*
* 12-Jun-91 MSD	Added single character keyboard navigation.
*	If the key presses isn't special (arrow),
*	go to the first string greater or equal
*	to the key.
* 18-Jun-91 MSD	Fixed keyboard navigation to not assume the
*	array of pointers to strings began on a
*	page boundary.
**********************************************************

ListHandler	PROC Export
NavChar	equ $EA	; 12-Jun-91 MSD
NavIndex	equ $EB	; 12-Jun-91 MSD
MyPtr	equ $ec
ArrayPtr	equ $ee
SelXPos	equ 0
SelYPos	equ 1
Increment	equ 2
ArrayCnt	equ 3
StgArrayPtr	equ 4
SelArray	equ 6
SelIndex	equ 8
ListOptByte	equ 9

	Import ConsData:ConsRec,ListData:ListRec
	import MakeMark
	with ConsData
	with ListData
	lda ListPtr	;save the Parameter	list pointer
	sta MyPtr
	lda ListPtr+1
	sta MyPtr+1
	ldy #ListOptByte	;get the option byte
	lda (MyPtr),y
	sta ListOpt
	ldy #StgArrayPtr	;get the Array of strings
	lda (MyPtr),y
	sta StrPtr	;and store it in zero page
	iny
	lda (MyPtr),y
	sta StrPtr+1
	ldy #ArrayCnt	;number of items in	array
	lda (MyPtr),y
	sta ListCount	;list Count
	ldy #Increment	;increment between lines
	lda (MyPtr),y
	sta Inc
	ldy #SelXPos	;the X position of where to start
	lda (MyPtr),y
	sta Xpos
	iny
	lda (MyPtr),y	;and the Y Position
	sta YPos	;display the list
	ldy #SelArray	;Selection Array to	indicate which items are
	lda (MyPtr),y	;selected and disabled
	sta ArrayPtr	;zero page pointer for indexing
	iny
	lda (MyPtr),y
	sta ArrayPtr+1
	ldy #SelIndex	;get the item selected
	lda (MyPtr),y
	sta LastSel	;indicate that this	was the last selection
	jsr DrawList	;then highlight the	selected item
GKLoop		;
	ldx XPos	;this is the starting horizontal position
	ldy MYPos	;and the current y position
	lda #CD_GotoXY	;move the cursor to the current XY position
	jsr StartAsm	;calling the console driver internal entry point
	WriteChar Inv	;set the mode to inverse
	ldx LastSel
	Jsr DrawItem
	WriteChar Norm
GoKey	GetKey
	cmp #10	;down arrow means that we increase the list
	bne GK1	;not down arrow check the up arrow
	
***************************************
* Down Arrow Pressed
***************************************
	ldx LastSel	;get the last selection
	cpx ListCount	;if x < ListCount then Update index
	bcc GK3
	WriteChar Bell	;sound the alarm
	bra GoKey
GK3	;
	ldx XPos	;this is the starting horizontal position
	ldy MYPos	;and the current y position
	lda #CD_GotoXY	;move the cursor to the current XY position
	jsr StartAsm	;calling the console driver internal entry point
	ldx LastSel	;clear inverse from the current item
	jsr DrawItem	;redraw the item
	inc LastSel	;next index
	lda Csr_Y	;are we at the bottom of the window?
	cmp Wind_B	;
	bne DA1	;if not then we do not need to scroll
	WriteChar SCRU	;scroll the list up
	inc TopIndex
	lda MoreFlag
	beq GKLoop	;if zero, then "More" is not used
	cmp TopIndex	;it has a value, so compare it to the top index
	bne GKLoop	;if it is not equal, then do nothing
	lda #0	;it is equal so, clear "More"
	jsr DrawMore	;	
	bra GKLoop	;return to the get key loop
	
DA1	lda MyPos	;the selection moved down without a scroll
	inc a	;add one to the scroll
	clc	;add the increment
	adc Inc	;
	sta MYPos	;update the temporary MYPos position
	jmp GKLoop
	
GK1	cmp #11
	bne GK2
	
***************************************
* Up Arrow Pressed
***************************************
	ldx LastSel	;get the last selection
	cpx #1
	bne GK4
	WriteChar Bell
	bra GoKey
	
GK4	;
	ldx XPos	;this is the starting horizontal position
	ldy MYPos	;and the current y position
	lda #CD_GotoXY	;move the cursor to the current XY position
	jsr StartAsm	;calling the console driver internal entry point
	ldx LastSel	;clear inverse from the current item
	jsr DrawItem	;redraw the item
	dec LastSel	;next index
	lda Csr_Y	;are we at the bottom of the window?
	cmp Wind_T	;
	bne UA1	;if not then we do not need to scroll
	WriteChar SCRD	;scroll the list down
	dec TopIndex
	lda MoreFlag
	bne @2	;if not zero, then "More" is used
	jmp GKLoop
@2	cmp TopIndex	;it has a value, so compare it to the top index
	beq @3	;if it is not equal, then do nothing
	lda #$80	;it is not equal so, draw "More"
	jsr DrawMore	;	
@3	jmp GKLoop	;return to the get key loop
	
UA1	lda MyPos	;the selection moved down without a scroll
	dec a	;subtract one from the scroll
	sec	;subtract the increment
	sbc Inc	;
	sta MYPos	;update the temp MYPos position
	jmp GKLoop
		
GK2	cmp #Escape
	bne GK6
	
***************************************
* Escape Key Pressed
***************************************

	pha
	ldy #SelIndex	;nothing has been selected
	lda #0
	sta (MyPtr),y	;store a zero in the Selected Item field of record
	ldx XPos	;this is the starting horizontal position
	ldy MYPos	;and the current y position
	lda #CD_GotoXY	;move the cursor to the current XY position
	jsr StartAsm	;calling the console driver internal entry point
	ldx LastSel	;clear inverse from the current item
	jsr DrawItem	;redraw the item
	pla
	rts	;no updates, were outta here!
*
GK6	cmp #RTArrow
	beq GK7
	cmp #LTArrow
	beq GK7
	cmp #Space
	bne GK8
	
*******************************************
* Right Arrow, Left Arrow or Space Pressed
*******************************************
GK7	;
	bit ListOpt
	bmi LA2
	jmp GKLoop	;Multiple Selections not enabled
LA2	
	ldy LastSel
	lda (ArrayPtr),y	;Item enabled/disabled?
	bit #$40	;check bit 6 of the Selection array for this item
	beq LA1	;if set, then this item is disabled
	WriteChar Bell	;sound the alarm
	bra LA3
LA1	eor #$80	;Select Index
	sta (ArrayPtr),y	;update the Selection array
LA3	jmp GKLoop	;return to the top of the loop and reprint item 

GK8	cmp #CR
	beq GK9

;==========================================
; A non-special key was pressed.
; Try keyboard navigation.
;==========================================
	bit ListOpt
	bvc @exit	; bit 6 clear => don't navigate

; Save navigation character
	cmp #'a'	; convert to upper case for compares
	blt @gotchar
	cmp #'z'+1
	bge @gotchar
	and #$DF	; convert lower case to upper case
@gotchar
	sta NavChar
	
; Un-highlight the currently selected item
	ldx XPos	;this is the starting horizontal position
	ldy MYPos	;and the current y position
	lda #CD_GotoXY	;move the cursor to the current XY position
	jsr StartAsm	;calling the console driver internal entry point
	ldx LastSel	;clear inverse from the current item
	jsr DrawItem	;redraw the item

; Go find the first string greater or equal to the key
	stz NavIndex	; start looking at 0th item
@loop
	lda StrPtr+1	; get address of string pointer array
	sta StrPtr2+1	; make my own copy I can muck with
	lda StrPtr
	sta StrPtr2
	lda NavIndex	; get string number
	asl a	; *2 as index into array of pointers
	tay	; put offset in Y
	bcc @nocarry
	inc StrPtr2+1	; overflow into page number
@nocarry
	lda (StrPtr2),y	; get low byte of string pointer
	tax	; save in X for a second
	iny
	lda (StrPtr2),y	; get high byte of string pointer
	stx StrPtr2
	sta StrPtr2+1	; StrPtr2 will now point to the string itself
	lda (StrPtr2)	; is string null by chance?
	beq @next	; yes, so try next string
	ldy #1	; want to compare against first char of string
	lda (StrPtr2),y
*** 2-Feb-93 DAL -- Mask off bit 7 like the sorting does
	and #$7F
*** end 2-Feb-93
	cmp #'a'	; convert to upper case for compare
	blt @upper
	cmp #'z'+1
	bge @upper
	and #$DF	; make it upper case
@upper
	cmp NavChar	; is string less than key pressed?
	bge @found	; greater or equal, so that's the one
@next
	inc NavIndex
	lda NavIndex
	cmp ListCount	; did we go past the end of the list?
	bne @loop	; no, so try again
	dec NavIndex	; past end of list, so choose the last one
; Re-draw the list with the selected item highlighted
@found
	lda NavIndex
	ina	; add 1 for 1-based index
	sta LastSel	;indicate that this	was the last selection
	jsr DrawList	;then highlight the	selected item
@exit
	jmp GKLoop	;key pressed was not usable
	
*******************************************
* Return Key Pressed
*******************************************

GK9	; 
	pha
	lda #2	;test Bit 1 of the List Options byte
	bit ListOpt	;and see if marking is on
	beq NoMark	;if not set, then marking is off
	lda #$80	;make a mark
	jsr MakeMark	;
NoMark	lda LastSel	;here is our selection to be returned
	ldy #SelIndex	;point to the field within the record
	sta (MyPtr),y	;update the field
	pla	;restore accumulator
	rts	;and leave


DrawList		;
	jsr CalcWindow	;calculate the WindowSize, TopIndex & MoreFlag
	ldx TopIndex	;get the index of the first item in the list
	ldy YPos	;start at the first position in the window 
	sty MYPos	;this is the temporary vertical position
NxtStr	phx	;this is the index into the string array
	ldx XPos	;this is the starting horizontal position
	ldy MYPos	;and the current y position
	lda #CD_GotoXY	;move the cursor to the current XY position
	jsr StartAsm	;calling the console driver internal entry point
	plx	;get the index
	jsr DrawItem	;draw this item
	cpx ListCount	;are we at the bottom of the list?
	beq @DL1	;if so, we are done with DrawList
	lda Csr_Y	;get the current cursor position
	cmp Wind_B	;are we at the bottom of the window?
	beq @DL1	;
	inx	;increment the index
	inc MYPos	;update the Ypos for the next item
	lda MYPos	;add the increment
	clc	
	adc inc
	sta MYPos	;
	bra NxtStr
@DL1	bit MoreFlag	;check to see if "More" needs to be written
	beq @DL2	;if zero, then no "More" is no required
	lda TopIndex
	cmp MoreFlag	;is the TopIndex => MoreFlag?
	bge @DL2	;if so, then dont display "More"
	lda #$80	;high bit in accumulator means to draw it
	jsr DrawMore	;draw it on the screen
@DL2	sec	;Update the temporary Y position for the beginning of the list
	lda LastSel	;get the current selection
	sbc TopIndex	;compare it to the Top index limit
	bmi @DL3	;if the LastSel<TopIndex or LastSel = TopIndex
	beq @DL3	;then MyPos = 1.
	sta MYPos	;if LastSel>TopIndex then MYPos = LastSel - TopIndex
	bra DispDun
@DL3	stz MYPos	;otherwise, start at the first item in the list
DispDun	clc	;now add back the orignal Vertical position
	adc YPos	;
	sta MYPos	;and Update the temporary vertical position
	rts	
	
*******************************************
* Draw the "More" prompt
*******************************************

DrawMore		; 
	phx	;save the x register
	pha	;and the accumulator
	lda Wind_R	;get the position of the right window
	sec	;
	sbc Wind_L	;subtract it from the left to get the window width
	lsr a	;divide by 2 to find the center
	sbc #3	;and then subtract 3
	clc
	adc Wind_L	;add it to the left window position
	tay	;into the y register
	lda Wind_B	;get the bottom of the window
	inc a	;add one more
	jsr SetLi	;move the cursor to that line
	pla	;recover the accumulator from the entry
	bpl ClearMore	;if high bit is clear, then erase "More"
	ldx #0	;set the index to zero 
MorLoop	lda More,x	;move each character to the screen
	beq DM1	;until the character loaded is zero
	ora #$80	;set the high bit
	jsr To_Scrn	;put it on the screen
	iny	;increment the y register to move the cursor
	inx	;next character
	bra MorLoop	;
ClearMore	ldx #6	;draw 6 - characters to erase "More"
	lda #$4c	;mousetext is on!
ClrLoop	jsr To_Scrn	;to the screen
	iny	;move the cursor
	dex	;until x = 0
	bne ClrLoop	;
DM1	lda CSR_Y	;restore the orginal cursor postion
	jsr SetLi	;
	plx	;restore x
	rts	

More	DC.B ' More '
	DC.B $00


************************************************************
* This routine Draws the Item in the list that is passed
* to it in the x register.
************************************************************
DrawItem	;
	lda StrPtr+1	;MSD: preserve high byte of StrPtr
	pha	;MSD: on stack
	phx	;save the X register
	txa	;transfer to the a register
	dec a	;decrement by 1, since item 1 is = to array 0.
	asl a	;multiply by two
	bcc @noinc	;MSD: carry into high byte?
	inc StrPtr+1	;MSD: yes, so fudge pointer
@noinc
	tay	;and get the pointers to the string
	lda (StrPtr),y	;
	pha	;onto the stack for temporary storage
	iny	;
	lda (StrPtr),y	;get the upper byte of the pointer
	pha	;onto the stack
	phx	;transfer the x to y.
	ply	;
	bit ListOpt	;test the high bit of ListOptions
	bpl WLP3	;if not set, then multiple selections not enabled
	lda (ArrayPtr),y	;get input from the selection array
	bpl WLP2	;if the high bit is set, then this item is selected
	lda #$80	;flag to indicate that the flag is to be drawn
	jsr MakeMark	;
	bra WLP1	;
WLP2	lda #0	;flag to indicate that a space is to be drawn 
	jsr MakeMark	;
WLP1	inc CSR_X	;move the x position one space to the right
WLP3	lda #$80	;turn off control characters	
	sta ContOff	;
	ply	;get the pointers back from the stack
	plx	;
	WritePointer	;Write the string 
	stz ContOff	;restore control characters
	lda #4	;check to see if the fill bit is on
	bit ListOpt
	beq NoFill
	WriteChar ClEol	;clear to the end of line
NoFill	plx	;restore the x register
	pla	;MSD: restore high byte of StrPtr
	sta StrPtr+1	;MSD
	rts	;and return
	
************************************************************
* This routine calculates the window size in lines and the
* index number for the first line in the window as well as
* the MoreFlag indicator
************************************************************
CalcWindow	;
	lda Wind_B	;subtract the window bottom from the
	sec	;window top to get the number of lines
	sbc Wind_T	;
	inc a	;add one more for correct number of printable lines
	sta WindowSize	
	lda ListCount	;compare the Array Size to the Window Size
	cmp WindowSize
	blt CW1	;branch if less than or equal to
	beq CW1	;WindowSize
	sec	
	sbc WindowSize	;subtract the WindowSize from the Array Count
	inc a	;add one more for the upper limit of TopIndex
	sta MoreFlag	;MoreFlag now contains the upper TopIndex limit
	bra CW2
CW1	stz MoreFlag	;If MoreFlag = 0, then More is never displayed
	lda #1	;set TopIndex = 0
	bra CW3
CW2	lda LastSel	;when entered, this value = Selected Index
	cmp MoreFlag	;compare the Selection Index to the TopIndex limit
	blt CW3	;if less than or equal, then the TopIndex = SelIndex
	beq CW3	;
	lda MoreFlag	;otherwise, TopIndex = TopIndex limit
	sta TopIndex
	bra CWDone
CW3	sta TopIndex
CWDone	rts
	
	
	ENDP

************************************************************
* MakeMark places a mousetext check mark beside the
* current item in the list.
************************************************************

	
MakeMark	PROC Export
	Import ConsData:ConsRec
	import ListData:ListRec
	with ConsData
	with ListData
	phx	;save the x register
	php	;and the status flags
	lda Csr_Y	;get the current vertical cursor position
	sec	;and subtract it from the window top
	sbc Wind_T	;to find the local position
	tay	;into the y register
	ldx XPos	;get the current horizontal position
	dex	;move to the left twice
	dex	;
	lda #CD_GotoXY	;move the cursor
	Jsr StartAsm	;
	plp	;recover the status flag
	bpl EraseMark	;if the zero flag is clear, erase the mark
	WriteCStr CheckMark	;print the check mark
	plx	;recover x 
	rts	;and return
EraseMark	ldy Csr_X	;get the current horizontal position
	lda #$A0	;this is the space character used to erase
	jsr To_Scrn	;out to the screen
	inc Csr_X	;move the cursor
	plx	;recover x
	rts	;and return

CheckMark		; 
	DC.B MTON	;turn mousetext on
	DC.B 'D'	;this is the mousetext character for a check mark
	DC.B MTOFF	;turn mousetext off
	DC.B $00	;termination character
	ENDP	;end of ListHandler procedure

************************************************************
* WritePointer prints a Pascal Type String to the current
* console driver position.
************************************************************

	
WritePointer	PROC Export
	Import ConsData:ConsRec
	with ConsData
	ldy #0	;set y index to zero
	lda (ListPtr),y	;get the length of the string
	sta StrLen	;update StrLen in WrtParms
	stz StrLen+1	;Pascal strings are 1..255
	ldx ListPtr	;get the pointer to the string passed in List Pointer
	inx	;and one to go past the length byte
	bne WP1	;if not zero, the high byte does not need to be
	inc ListPtr+1	;updated
WP1	stx StringPtr	;update StringPtr in WrtParms
	lda ListPtr+1	;both the high and low bytes
	sta StringPtr+1	;
	ldx #WrtParms	;set up the parameters to make the call
	ldy #>WrtParms	;
	lda #CD_Write	;the write console driver command
	jsr StartAsm	;print it
	rts	;and return
	ENDP

**********************************************************
*
* Message - Assists	in the writing of Error messages to
* the screen.
*       Parameter List: 
*       MessageOptFlag  Byte    <--     
*               B7 - Alert/Dialog Bit (Alert has ok only, Dialog has OK & cancel) Alert = High.
*               B6 - DrawBox Only
*               B5 - Restore Box Only
*       Message	    Word    <--
*       FilterProc	    Word    <--
*       FrameRect	    Long    <--
*       WindowBuffer    Word    <--
*
* Rick Hoiberg 7/27/87
*
**********************************************************

	
Message	PROC Export	;next Err # = 9
	Import ConsData:ConsRec
	with ConsData

NoDebug	equ 1	;this is set to one	for a NoDebug Release
MessOptByte	equ 0
MessagePtr	equ 1
FilterProc	equ 3
FramRect	equ 5
WindBuff	equ 9

	ldy #MessOptByte	;get the option byte
	lda (ListPtr),y
	bpl DoBox
	and #$80
DoBox	sta MessOpt
	ldy #MessagePtr	;get the text to be	printed in the box.
	lda (ListPtr),y
	sta MessPtr	;and store it our ParmList
	iny
	lda (ListPtr),y
	sta MessPtr+1
	ldy #FilterProc	;Get the Filter Procedure
	lda (ListPtr),y
	sta DoProc+1	;list count
	iny
	lda (ListPtr),y
	sta DoProc+2
Mess1	ldy #WindBuff	;number of items in	array
	lda (ListPtr),y
	sta WindowBuffer	;Get the Windowbuffer
	iny
	lda (ListPtr),y
	sta WindowBuffer+1
	ldx #0	;and the Frame Rectangle
	ldy #FramRect	;the X position of where to start
FrameLoop	lda (ListPtr),y
	sta rect,x
	iny
	inx
	cpx #4
	bne FrameLoop
	lda #%00100000	;Check to see if it	is a Restore Only 
	bit MessOpt	;operation
	beq GoAhead	;if not, continue
	jmp RestoreBox
GoAhead	jsr DrawBox	;Draw the Box and save the current window
	bit MessOpt	;is this a DrawBox only operation?
	bvc WriteMessage	;if not, continue
	rts	;if so, we are done.
WriteMessage	ldx MessPtr	;Write the message to the screen
	ldy MessPtr+1
	jsr Writeit	;and let the Macro do the Rest
	lda DoProc+2	;is there a filter procedure?
	beq WaitHere	;there is no Filter	Procedure
	jsr DoProc	;Do the procedure via patched Jmp
WaitHere		; 
	bit MessOpt	;is this an Alert?
	bmi AlertBox
	WriteCStr DialogPmt	;no, so draw dialog	prompt
	bra GetMyKey
AlertBox	WriteCStr AlertPmt	;Draw the alert prompt
GetMyKey	GetKey	;wait for a keypress
	pha
	cmp #Return	;is the Key a Return?
	beq GoodKey	;isss good...
	IF  NoDebug	GOTO .NoCrash
	cmp #$7f	;use the Delete key	for debugging
	beq Brk
.NoCrash
	bit MessOpt	;is this an Alert?
	bmi MyKey	;if so, the only acceptable key is Return
	cmp #Escape	;if it is a dialog,	check for Escape
	beq GoodKey
MyKey	pla	;restore the stack
	bra GetMyKey	;wait for the next key.
GoodKey	jsr RestoreBox	;got our key, now restore the Original window
	pla	;indicate which key	was pressed
	rts	;and return.

Brk	brk	;Crash and burn, please?

DrawBox		; 
	Status StatusBuff	;get the original window
	dec Rect	;save area X1 = Rect X1-1
	inc Rect+2	;save area X2 = Rect X2+1
	inc Rect+3	;save area Y2 = Rect Y2+1
	SViewPort Rect	;set the viewport for the save area
	inc Rect	;restore Rect
	dec Rect+2
	dec Rect+3
	StoreWind WindowBuffer ;save the original window	   
	WriteChar RstWind	;Clear the original	window
	FrameRect Rect	;and draw the rectangle
	inc Rect+1	;MessWind Y1 = Rect	Y1+1
	dec Rect+2	;MessWind X2 = Rect	X2-1
	SViewPort Rect
	dec Rect+1	;restore Rect
	inc Rect+2
	WriteChar ClrWind	;clear the Box
	lda #$80
	sta DrawFlag	;indicate that there is valid window data
	rts	;in WindowBuffer & OrigWindow

RestoreBox		; 
	bit DrawFlag	;is the window data	in valid?
	bpl NoRestore	;if not, don't do anything
	dec Rect	;save area X1 = Rect X1-1
	inc Rect+2	;save area X2 = Rect X2+1
	inc Rect+3	;save area Y2 = Rect Y2+1
	SViewPort Rect	;set the viewport to the save area
	RestorWind WindowBuffer ;restore the original window
	SViewPort OrigWindow ;and the original viewport
	stz DrawFlag
NoRestore	rts

Writeit		;
	stx StrPtr	;here is the pointer to the string
	sty StrPtr+1
	ldy #0	;get the length of the string
	lda (StrPtr),y	;
	tax	;into the x register
WriteOne	iny	;index into the string          
	lda (StrPtr),y	;get the character
	cmp #'^'	;is the character an "^"?
	beq DoParm	;if so, check the TextPtrs
SendIt	phx	;it wasn't so send the character to the
	phy	;console driver one	byte at a time
	tax	;using the x register
	lda #CD_WriteChar	;write character command
	jsr StartAsm	;this is the internal console entry point
	ply	;restore x and y
	plx
NextChar	dex	;until we reach the	end of the string
	bne WriteOne	;
	rts

DoParm		;
	iny	;the next character	in the string
	lda (StrPtr),y	;get it
	cmp #'0'	;is the character a	0?
	blt @2	;if it is less than	0, send it
	cmp #'4'	;if it is greater than 3, send it
	bge @2
	phy	;save the registers
	phx	;
	and #$0f
	asl a	;times 2
	tay
	lda TextPtrs,y	;
	iny	;increment the index
	ora TextPtrs,y	;the parameters are	pointing to a string
	bne @1	;print string if pointer is not null
	plx	;the pointer was a null byte, so restore x and y
	ply	;
@2	dey	;set y back to its original value
	lda #'^'	;restore ^ back to accumulator
	bra Sendit	;and send it
@1	lda TextPtrs,y	;get the high byte
	tax	;into the x register for now
	dey	;decrement y to point to the low byte
	lda TextPtrs,y	;get the low byte
	phx	;transfer x register to the y register
	ply	;high byte into y
	tax	;low byte into the x register from A
	WritePointer	;print the string pointed to
	plx	;restore x and y
	dex	;clear off one of the counts from x
	ply	;restore y
	jmp NextChar	;return to the WriteIt loop




DoProc	jmp 0	;self-modifying

MessPtr	DS.B 2
WindowBuffer	DS.B 2
MessOpt	DS.B 1
Rect	DS.B 4
DrawFlag	DC.B $00

StatusBuff		; 
	DS.B 2
OrigWindow	DS.B 4
	DS.B 1

DialogPmt	DC.B CPOS
	DC.B 1
	DC.B 5
	DC.B 'Cancel: Esc'
	DC.B CPOS
	DC.B 54
	DC.B 5
	DC.B 'OK: '
	DC.B MTON
	DC.B 'M'
	DC.B MTOFF
	DC.B $00

AlertPmt		; 
	DC.B CPOS
	DC.B 54
	DC.B 5
	DC.B 'OK: '
	DC.B MTON
	DC.B 'M'
	DC.B MTOFF
	DC.B $00


	entry ConsDrvrEnd
ConsDrvrEnd		;               
	ENDP

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/Console/my.macros b/IIGS.601.SRC/GS.OS/NetBoot/Console/my.macros
new file mode 100644
index 0000000..b06d064
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/NetBoot/Console/my.macros
@@ -0,0 +1 @@
+	MACRO
&LAB	WriteCStr &N1
&LAB	LDX #&N1
	ldy #>&N1
	lda #8
	jsr StartAsm
	MEND

	MACRO
&lab	WriteChar &Char
&lab	ldx #&Char
	lda #CD_WriteChar
	jsr StartAsm
	mend

	macro
&lab	Bell
&lab	ldx #7
	lda #CD_WriteChar
	jsr StartAsm
	mend

	macro
&lab	GetKey
&lab	lda #6
	jsr StartAsm
	mend

	macro
&lab	GotoXY &X,&Y
&lab	ldx #&X
	ldy #&Y
	lda #9
	jsr StartAsm
	mend

	macro
&lab	ReptChar &RCParms
&lab	ldx #&RCParms
	ldy #>&RCParms
	lda #1
	jsr StartAsm
	mend

	macro
&lab	WriteStr &Str
&Lab	ldx #&Str
	ldy #>&Str
	lda #CD_WrtPtr
	jsr StartAsm
	mend

	macro
&lab	WritePointer
&lab	lda #CD_WrtPtr
	jsr StartAsm
	mend

	macro
&lab	SViewPort &SVParms
&lab	ldx #&SVParms
	ldy #>&SVParms
	lda #CD_DoViewPort
	jsr StartAsm
	mend

	macro
&lab	FrameRect &N1
&Lab	ldx #&N1
	ldy #>&N1
	lda #$0b
	jsr StartAsm
	mend

	macro
&lab	GetXY
&lab	lda #2
	jsr StartAsm
	mend

	macro
&LAB	StoreWind &WindBuff
&LAB	ldx &WindBuff
	ldy &WindBuff+1
	lda #4
	jsr StartAsm
	MEND

	macro
&LAB	RestorWind &WindBuff
&LAB	ldx &WindBuff
	ldy &WindBuff+1
	lda #5
	jsr StartAsm
	MEND

	macro
&lab	Status &N1
&Lab	ldx #&N1
	ldy #>&N1
	lda #$03
	jsr StartAsm
	mend

	macro
&lab	PullWord &Word
&Lab	pla
	sta &Word
	pla
	sta &Word+1
	mend
	
	macro
&lab	_CompareStr
&Lab	lda #CD_CompareStr
	pha	;this needs to be done because we are
	pha	;calling internally.
	jsr StartAsm
	pla	;restore the stack
	pla
	mend
	
	macro
&lab	_MoveStr
&Lab	lda #CD_MoveStr
	pha	;this needs to be done because we are
	pha	;calling internally.
	jsr StartAsm
	pla	;restore the stack
	pla
	mend
	
	macro
&lab	_NextStr
&Lab	lda #CD_NextStr
	pha	;this needs to be done because we are
	pha	;calling internally.
	jsr StartAsm
	pla	;restore the stack
	pla
	mend

;...............................................................
;
;        Push 2 bytes onto stack
;
;    pushword loc     -- pushes bytes onto stack from 'loc'
;    pushword #n      -- pushes constant #n onto stack
;...............................................................
	MACRO
&lab	pushword &addr
	longa off
	IF &addr[1:1]='#' THEN
&lab	  lda #>&addr[2:255]
	  pha
	  lda #<&addr[2:255]
	  pha
	ELSE
&lab	  lda &addr+1
	  pha
	  lda &addr
	  pha
	ENDIF
	MEND


\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/FixDates b/IIGS.601.SRC/GS.OS/NetBoot/FixDates
new file mode 100644
index 0000000..b2eb5ec
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/NetBoot/FixDates
@@ -0,0 +1 @@
+# This file automagically sets the creator dates for all of the files mentioned
# in the Apple IIGS installer script Rez file.
#
# It assumes that there are 4 files mentioned in the following order:
# "ProDOS16 Boot Blocks", "ProDOS16 Image", "BASIC.SYSTEM", "P8".
#
# Modification History:
# Written by Mark Day 19-Feb-88

# Set up "prefixes" for the installer scripts

set inst ":installer:"
set work ":work:"

open {inst}AIIGSInst.r
find ¥ {inst}AIIGSInst.r

# Get the create date of the 'ProDOS16 Boot Blocks' file and copy it into
# the installer script file

replace /0x[0-9a-f]Ç8È/ {todayhex} {inst}AIIGSInst.r

# Get the create date of the 'ProDOS16 Image' file and copy it into
# the installer script file

catinfo {work}'ProDOS16 Image' >{work}catinfo.info
find ¥ {work}catinfo.info
find /crDat/ {work}catinfo.info
copy /0x[0-9a-f]Ç8È/ {work}catinfo.info
paste /0x[0-9a-f]Ç8È/ {inst}AIIGSInst.r

# Get the create date of the 'Basic.System' file and copy it into
# the installer script file

catinfo {work}'Basic.System' >{work}catinfo.info
find ¥ {work}catinfo.info
find /crDat/ {work}catinfo.info
copy /0x[0-9a-f]Ç8È/ {work}catinfo.info
paste /0x[0-9a-f]Ç8È/ {inst}AIIGSInst.r

# Get the create date of the 'P8' file and copy it into
# the installer script file

catinfo {work}'P8' >{work}catinfo.info
find ¥ {work}catinfo.info
find /crDat/ {work}catinfo.info
copy /0x[0-9a-f]Ç8È/ {work}catinfo.info
paste /0x[0-9a-f]Ç8È/ {inst}AIIGSInst.r

# Get the create date of the 'Apple //e Boot Blocks' file and copy it into
# the installer script file

catinfo {work}'Apple //e Boot Blocks' >{work}catinfo.info
find ¥ {work}catinfo.info
find /crDat/ {work}catinfo.info
copy /0x[0-9a-f]Ç8È/ {work}catinfo.info
paste /0x[0-9a-f]Ç8È/ {inst}AIIGSInst.r

# All done now, so save and close the script file

close -n {work}catinfo.info
delete {work}catinfo.info
save {inst}AIIGSInst.r
close {inst}AIIGSInst.r
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/Fizzy/Fizzy.aii b/IIGS.601.SRC/GS.OS/NetBoot/Fizzy/Fizzy.aii
new file mode 100644
index 0000000..c410f7f
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/NetBoot/Fizzy/Fizzy.aii
@@ -0,0 +1 @@
+;------------------------------------------------------------
; Fizzy.aii
;
; This is the second stage boot block for booting GS/OS over
; the network.  This code is responsible for reading the rest
; of the GS/OS image, installing the protocols, running Logon,
; and jumping to the FST stub.
;
; Modification history:
; 13-Sep-88	MSD	Initial coding (based on Toucan)
; 12-Jun-91	MSD	Logon has moved from $01/2000 to
;			$00/6800.  Version changed to 2.2d4.
; 13-Jun-91	MSD	Added ability to boot into P8.
; 16-Jun-91	MSD	Update the auxtype in the FST stub
;			only if the boot OS is GS/OS.
; 18-Jun-91	MSD	Changed version to 2.2d5 to match the
;			version of the Apple II Setup disk.
;  1-Jul-91	MSD	Changed version to 2.2d7.
;  9-Jul-91	MSD	Version is 2.2d8.  Changed the code that
;			calls the protocol files to determine the
;			correct slot on ROM 03 and later, and to
;			pass the port number.  It should now work
;			like the SCC Manager does.
; 10-Jul-91	MSD	Added code to save and restore ABridge in
;			AppleTalk's globals around the init of
;			the protocols.
;  1-Aug-91	MSD	Version changed to 2.2d9.  This should be
;			the seed version.
; 26-Aug-91	MSD	Version changed to 2.2d10.
; 20-Jan-92	MSD	Now puts an RTL in os_p8_switch (which SCM
;			now calls just before removing P8 on a P8
;			to GS/OS switch).  Version 2.2d24.
;  7-Feb-92	MSD	Changed version to 2.2 final.
;  1-Apr-92	MSD	The reserved word in the header structure
;			is now the hardware type: 0=all, 1=LocalTalk,
;			2=EtherTalk.  Changed version to 3.0d1.
;  3-Apr-92	MSD	Made a common routine to test whether a
;			particular module gets loaded into the current
;			configuration.
; 22-Aug-92	MSD	When finding out the slot on a ROM 01, store
;			the slot and port numbers at $E1/01C0..2 so that
;			the ATBoot driver can depend on them.  ROM 03 Control
;			Panel code sets them for LocalTalk, and the first
;			stage boot block (Boot.aii file) sets them for
;			booting from EtherTalk.  Version 3.0d7.
; 15-Dec-92	DAL	Version 3.0d8.
; 27-Jan-93	DAL	Version 3.0d13.
;  9-Mar-93	DAL	Version 3.0d14.
;  2-Apr-93	DAL	Version 3.0 final, to ship on Apple II Setup 3.0
;			with System 6.0.1.
;
;------------------------------------------------------------

		include	'm16.util'
		include 'm16.memory'
		include 'm16.misctool'
		include	'm16.intmath'

		macro
&lab		ATCall	&parm
&lab		ldx	#<&parm
		ldy	#^&parm
		jsl	$E11014
		mend

dp		record	0
txtpnt		ds.w	1
screenpnt	ds.w	1
BDSpnt		ds.l	1
wrapflag	ds.w	1
ATPcount	ds.w	1
romvers		ds.w	1			; version of ROM in machine
atslot		ds.w	1			; slot number where AppleTalk is
channel		ds.w	1			; channel number AppleTalk is using
headpnt		ds.w	1			; points to header info
blks_total	ds.w	1			; total # of blocks to load
bytes_left	ds.w	1			; bytes left to read
myid		ds.w	1			; my MM user ID
blocks_in	ds.w	1			; number of blocks loaded so far
start_time	ds.w	1			; time when we started loading files
SaveABridge	ds.w	1
		endr

header		record	0			; describes layout of header record
bytes		ds.w	1			; size of file in bytes
firstblk	ds.w	1			; block # of first block
blocks		ds.w	1			; size of file's image in blocks
addr		ds.l	1			; starting address of file
maxrom		ds.w	1			; maximum ROM version supported
whichos		ds.w	1			; 0 to load for all os's
						; 1 for GS/OS only
						; 2 for ProDOS 8 only
hardware	ds.w	1			; 0 for all hardware
						; 1 for LocalTalk only
						; 2 for EtherTalk only
size
		endr

ClearScreen	equ	$FC58			; monitor's HOME routine
Romin		equ	$C082			; switches in LC ROM on read
LCBank2		equ	$C083			; read LC RAM bank 2
Clr80Vid	equ	$C00C			; disable 80 col. hardware
SetAltChar	equ	$C00F			; switch in alternate char set
Clr80Col	equ	$C000			; clear 80 column store
SetVid		equ	$FE93			; force COUT to use slot 0
SetNorm		equ	$FE84			; set white on black text
Init		equ	$FB2F			; init text mode
ShadowMask	equ	$1E
Shadow		equ	$C035			; memory shadowing register
Speed		equ	$C036			; sets system speed
IDRom		equ	$FE1F			; find out which ROM version
MSlot		equ	$07F8			; slot of boot device

BlockBuf	equ	$1E00			; where cross-bank blocks get put
headerloc	equ	$E00			; where to put header block
BootHardware	equ	$E0E			; where boot blocks puts hardware type
NBPbuffer	equ	$C00			; where NBP lookup puts data
BufferLen	equ	$200			; size of NBP buffer
look_addr	equ	nbpbuffer		; internet address of server
ToolInitPatch	equ	$6864			; where in Start.GS.OS to patch out
ToolPatchLen	equ	$0020			; length+1 of memory to patch out
ToolInit	equ	$FE0000			; init tools and Memory Manager
Line1		equ	$4A8			; "Starting up over the Network"
Line2		equ	$5A8			; spinning cursor on this line
Line3		equ	$6A8			; server name on this line
FirstLine	equ	$400			; start of first screen line
Line21		equ	$650			; where "Progress" goes
Line22		equ	$6D0			; top of thermometer
Line23		equ	$750			; middle
Line24		equ	$7D0			; bottom of thermometer
ScreenSpinner	equ	Line2+19		; screen address of spinning cursor
Logon		equ	$006800			; where Logon is put
ATPortNumber	equ	$E101C0			; port number AppleTalk is using
ATSlotNumber	equ	$E101C1			; slot number AppleTalk is using
RPMSlotNumber	equ	$E101C2			; slot number RPM is using
os_switch	equ	$E100AC			; OS Switch notification chain
switchkind	equ	$E100BC			; kind of OS switch (0 = into P8)
os_p8_switch	equ	$E100B4			; called just before P8 is shut down
ATTickCount	equ	$E1DA00
ABridge		equ	$E1D013			; global bridge node number
FST_Stub	equ	$2000			; startup routine in stub
P8Init		equ	$2003			; init entry for ProDOS 8
BootUnit	equ	$43			; where P8 expects its boot unit number

fizzy		proc
		with	dp

;------------------------------------------------------------
; Set up the system in a known state.  Initialize the memory
; manager, tools, display, etc.
;------------------------------------------------------------
		LONGI OFF
		LONGA OFF
		sec
		xce                      ; emulation mode
		sta	Romin
		sta	Clr80vid
		sta	Clr80col 
		jsr	Init
		jsr	Setvid
		jsr 	Setnorm
		jsr	ClearScreen
		sta	Setaltchar

;------------------------------------------------------------
; Find out which version of the ROM we're running on.
;------------------------------------------------------------
		sec
		jsr	IDRom
		tya					; ROM version in A
		and	#$7F				; strip off prototype bit
		sta	romvers
		stz	romvers+1
		cmp	#1				; must be at least 01 ROM
		bge	ok_rom_vers
		brl	bad_rom				; put message on screen

ok_rom_vers
		clc
		xce					; Set Native Mode
		php					; save interrupt state
		sei
		lda	#shadowmask
		sta	shadow
		jsl	ToolInit			; set up tools, clear memory
		plp					; restore interrupt state

		rep	#$30
		longa	on
		longi	on
;
; Find out which OS to boot into
;
		lda	#1
		sta	BootOS		; default to GS/OS
		
		pha			; space for result
		pea	$0062		; want AppleTalk OS flag
		ldx	#$0C03		; ReadBParam
		jsl	$E10000		; (toolbox dispatch)
		pla			; get OS flag from stack
		
		cmp	#2		; was it P8?
		bne	got_os		; no, so default to GS/OS
		sta	BootOS		; tell Fizzy to use P8
got_os

;
; Find out what slot AppleTalk is in
;
		lda	BootHardware
		cmp	#2		; using EtherTalk hardware?
		bge	from_cp		; if so, Control Panel locations are set
		
		lda	#7			; assume slot 7
		sta	ATSlot
		lda	romvers
		cmp	#2			; ROM version greater than 01?
		bge	from_cp			; newer, so Control Panel tells us
;
; Here, we're using ROM 01.  Determine the channel based on settings
; of the slot 1 and 2 settings.
;
		lda	#1			; assume printer port
		sta	channel
		
		pha				; space for word result
		pea	$0021			; slot 1 setting BRAM index
		ldx	#$0C03			; ReadBParam
		jsl	$E10000			; call the toolbox
		pla
		bne	got_channel		; was Your Card, so leave channel=1
		
		inc	channel			; slot 1 was Printer Port, so
got_channel
		lda	channel
		sta	ATPortNumber		; overwrites ATSlotNumber
		lda	#$0707			; slot 7 for ATSlotNumber
		sta	ATSlotNumber		; and RPMSlotNumber

		bra	got_slot		; assume we're using modem port
;
; ROM version 03 or greater here.  E1/01C1 contains slot.
;
from_cp
		lda	ATSlotNumber		; copy Control Panel's
		and	#$00FF			; slot is only 1 byte wide!
		sta	ATSlot			; slot number to local
		
		lda	ATPortNumber		; get port from Control Panel
		and	#$00FF			; only 1 byte wide
		sta	channel			; save as channel for protocols
		
got_slot
		
;------------------------------------------------------------
; Should get a unique user ID for the memory segments
;------------------------------------------------------------
		pha					; room for result
		pea	$AD00				; my type/auxID
		_GetNewID
		pla					; get my user ID
		sta	myid
		sep	#$30
		longa	off
		longi	off

;------------------------------------------------------------
; Display version of Fizzy boot
;------------------------------------------------------------
		ldy	Version
		ldx	#39				; start at right edge of screen
VersionLoop	lda	Version,y			; get one char
		ora	#$80				; make it printable
		sta	FirstLine,x			; put on screen
		dex
		dey
		bne	VersionLoop

		rep	#$30
		longa	on
		longi	on

;------------------------------------------------------------
; Here, the first stage boot left the address of the server
; in the NBP buffer.  I should really check here to see if
; the ROM version is >= 01.
;------------------------------------------------------------
		bra	FoundServer

;------------------------------------------------------------
; Force restart of boot process.  Try to find another server
; or reboot if no server found.
;------------------------------------------------------------
Restart
;
; Should do a DisposeAll for memory allocated by my UserID
;
		pei	myid			; push my user ID
		_DisposeAll

; clear server name on screen
		ldy	#36
		lda	#$A0A0			; normal spaces
ClearNameLoop
		sta	Line3+2,y		; clear two chars of server name
		sta	Line23+1,y		; and two of thermometer
		dey
		dey
		bpl	ClearNameLoop
		sta	Line3			; get last bit of server name cleared
		sta	ScreenSpinner		; and the spinner
		ATCall	Lookup
		bcs	TryROM
		lda	NBPMatches
		bne	FoundServer
TryROM
		sec
		xce
		jsr	ClearScreen
		clc
		xce
		rep	#$30
		ATCall	Reboot
FoundServer
;------------------------------------------------------------
; Copy address of server to ATP parameters
;------------------------------------------------------------
		lda	NBPbuffer
		sta	ATPnetaddr
		lda	NBPbuffer+2
		sta	ATPnetaddr+2

;------------------------------------------------------------
; Display the "Starting up over the Network" message
;------------------------------------------------------------
		lda	#BootMess			; get pointer to string
		ldy	#Line1				; and where to put it
		jsr	Center				; center and display it
;------------------------------------------------------------
; Now tell the user just which server was found
;------------------------------------------------------------
		lda	#NBPbuffer+5
		ldy	#Line3
		jsr	Center
;------------------------------------------------------------
; Print the thermometer.  First "Progress"
;------------------------------------------------------------
		lda	#Progress
		ldy	#line21
		jsr	Center
;------------------------------------------------------------
; Now draw top, bottom of thermometer
;------------------------------------------------------------
		ldy	#36
thermprint
		lda	#$DFDF				; underlines
		sta	line22+1,y
		lda	#$4C4C				; super lines
		sta	line24+1,y
		dey
		dey
		bpl	thermprint
;------------------------------------------------------------
; Now draw left, right of thermometer
;------------------------------------------------------------
		lda	#$A05A				; left side
		sta	Line23
		lda	#$5FA0				; right side
		sta	Line23+38

;------------------------------------------------------------
; Remember the current real time so we can compute how long
; it is taking to boot (for the thermometer).
;------------------------------------------------------------
		sep	#$10			; short A for soft switches
		longi	off
		
		ldx	LCBank2			; get LC switched in
		
		lda	ATTickCount		; get current time
		sta	start_time

		ldx	Romin			; switch ROM back in

		rep	#$10
		longi	on
		


;------------------------------------------------------------
; Compute number of blocks to download
;------------------------------------------------------------
		stz	blks_total
		lda	#headerloc+$100+header.size
		sta	headpnt
size_loop
		lda	(headpnt)			; is that all the files?
		beq	got_size
		
		jsr	test_load			; will it load?
		bcc	next_size			; no, try next one

		ldy	#header.blocks
		clc
		lda	(headpnt),y			; get length of this file
		adc	blks_total			; add to total count
		sta	blks_total
next_size
		clc
		lda	headpnt
		adc	#header.size			; point to next entry
		sta	headpnt
		bra	size_loop
got_size

;------------------------------------------------------------
; Start downloading the various pieces in the image.
;------------------------------------------------------------
		stz	blocks_in			; no blocks read yet
		lda	#headerloc+$100+header.size
		sta	headpnt				; point to first real entry
load_loop
		lda	(headpnt)			; get byte count; is that all?
		beq	all_loaded
		
		jsr	test_load			; does it load?
		bcc	next_load			; no, try next one

		ldy	#header.addr+2
		lda	(headpnt),y			; what bank is this in?
		cmp	#2				; at least bank 2?
		blt	skip_mm				; no, so don't allocate memory

; Allocate memory for file from MM
		pha					; long -- room for result
		pha
		pea	0				; size, high word
		ldy	#header.bytes
		lda	(headpnt),y			; get size of block
		pha
		pei	myid				; push my user ID
		pea	$C012				; attributes
		ldy	#header.addr+2
		lda	(headpnt),y			; get start address (high)
		pha
		dey
		dey
		lda	(headpnt),y			; get start address (low)
		pha
		_NewHandle
		bcc	@ok
		brk	0				; just for now
@ok
		pla					; ignore handle
		pla					; since fixed address block
skip_mm
		jsr	load_one			; load one file
next_load
		clc
		lda	headpnt
		adc	#header.size			; bump to next header entry
		sta	headpnt

		bra	load_loop

the_jump
		jml	0				; used in calling protocols
		dc.b	0				; allow long after JML
all_loaded

;------------------------------------------------------------
; Find out the current real time for thermometer
;------------------------------------------------------------
		lda	BootOS
		cmp	#1				; GS/OS?
		bne	cls				; no, don't update FST stub!
		
		sep	#$10
		longi	off
		
		ldx	LCBank2				; get LC switched in
		
		sec
		lda	ATTickCount
		sbc	start_time			; get time so far
		sta	FST_stub+12			; save as auxtype
		
		ldx	Romin				; back to ROM in LC
		
		rep	#$10
		longi	on

;------------------------------------------------------------
; Clear the screen so user knows that loading is done.
;------------------------------------------------------------
cls
		sec
		xce
		jsr	ClearScreen
		clc
		xce
		rep	#$30

		IF 0 THEN
;------------------------------------------------------------
; Display the splash screen with copyright message
;------------------------------------------------------------
		lda	#Splash1			; get pointer to string
		ldy	#Line1				; and where to put it
		jsr	Center				; center and display it
		lda	#Splash2			; get pointer to string
		ldy	#Line2				; and where to put it
		jsr	Center				; center and display it
		lda	#Splash3			; get pointer to string
		ldy	#Line3				; and where to put it
		jsr	Center				; center and display it
		ENDIF
		
;------------------------------------------------------------
; Now, it's time to install (call) all the protocols
;------------------------------------------------------------
;
; Save off ABridge while I init the protocols and restore later
;
		sep	#$20
		longa	off
		lda	LCBank2			; get LC switched in
		lda	ABridge			; get router node number
		sta	SaveABridge		; save it while I start up the protocols
		lda	Romin			; switch ROM back in
		rep	#$20
		longa	on
		
		lda	#$006B				; RTL <null>
		sta	os_switch			; in OS switch chain
		sta	os_p8_switch			; and os_p8_switch chain
		lda	#$0000
		sta	os_switch+2			; before drivers get loaded!
		sta	os_p8_switch+2

		lda	#headerloc+$100+header.size
		sta	headpnt				; point to first real entry
call_loop
		lda	(headpnt)			; byte count = 0?
		beq	all_called			; if so, we're done

		jsr	test_load			; did it load?
		bcc	next_call			; no, don't call it

		ldy	#header.addr
		lda	(headpnt),y
		sta	the_jump+1			; save low word for jump
		iny
		iny
		lda	(headpnt),y			; get high word
		sta	the_jump+3			; save bank byte for jump
		cmp	#2				; at least bank 2?
		blt	next_call
		
		lda	channel				; A = channel #
		ldx	romvers				; X = rom version
		ldy	ATSlot				; Y = slot number
		jsl	the_jump			; call the protocol
next_call
		clc
		lda	headpnt
		adc	#header.size
		sta	headpnt
		bra	call_loop
all_called
;
; Restore the old ABridge value
;
		sep	#$20
		longa	off
		lda	LCBank2
		lda	LCBank2				; write enable
		lda	SaveABridge
		sta	ABridge
		lda	Romin
		rep	#$20


		IF 0 THEN
;------------------------------------------------------------
; Finally, it is time to make an AppleTalk Init call to
; make sure AppleTalk is turned on, has a node number, etc.
;------------------------------------------------------------
		ATCall	InitParms

;------------------------------------------------------------
; Wait a little bit for user to read splash screen and for
; RTMP to find a bridge.
;------------------------------------------------------------
		sep	#$20		; 8 bits for I/O access
		longa	off
		lda	Speed		; get processor speed
		pha
		and	#$7F		; force slow mode
		sta	Speed
		ldy	#65		; about 4 seconds
@delay1
		ldx	#20000		; 100 ms
@delay2
		dex
		bne	@delay2
		dey
		bne	@delay1
		pla			; recover processor speed
		sta	Speed
		rep	#$20
		longa	on
		ENDIF
		
;------------------------------------------------------------
; See if we should boot into ProDOS 8
;------------------------------------------------------------
		lda	BootOS
		dea			; was A=1 (GS/OS)?
		beq	ToLogon		; yes, go into GS/OS
		
		sec
		xce			; 8-bit emulation mode
		longa	off
		longi	off
		
		lda	atslot
		asl	a
		asl	a
		asl	a
		asl	a
		sta	BootUnit	; Tell P8 which slot we're using
		
		jsr	P8Init		; let P8 init itself
		
		clc
		xce			; back to native mode
		rep	#$30		; full 16-bit registers
		longa	on
		longi	on
		
		lda	#0
		sta	>switchkind	; pretend a GS/OS to P8 switch
		jsl	os_switch	; let AppleTalk fix things up
		
;------------------------------------------------------------
; Log on to file server
;------------------------------------------------------------
ToLogon
		lda	BootOS		; tell Logon which OS to use
		jsl	Logon

		phk
		plb					; fix my bank!!!

;------------------------------------------------------------
; Use FST stub to start up (load and run GLoader).
;------------------------------------------------------------
		sep	#$20				; byte wide slot number
		longa	off
		lda	ATSlot
		ora	#$C0				; get in $Cn form
		sta	MSlot				; save boot slot for GLoader
		rep	#$20				; back to full native
		longa	on
		jmp	FST_stub
		

;------------------------------------------------------------
; Center -- center a line on screen
;------------------------------------------------------------
Center
		sta	txtpnt				; save pointer to text
		sty	screenpnt			; and pointer to screen memory
		sep	#$20				; for length bytes
		longa	off
		sec
		lda	#38				; width of screen
		sbc	(txtpnt)			; minus length of string
		lsr	a				; divided by two is offset
		rep	#$20				; and back
		longa	on
		and	#$FF				; get only low byte
		clc					; add to start of line
		adc	screenpnt
		sta	screenpnt			; gives pointer to display
		lda	(txtpnt)			; get length
		and	#$FF				; mask off length byte
		tay					; and into Y
		sep	#$20				; 8 bits for characters
		longa	off
@loop
		lda	(txtpnt),y
		ora	#$80				; ready to display
		cmp	#$A0				; printable?
		bge	@print
		lda	#$AA				; otherwise an asterisk
@print
		sta	(screenpnt),y
		dey
		bne	@loop
		rep	#$20
		longa	on
		rts

;------------------------------------------------------------
; Test a module's header to determine if it should be loaded
; given the machine's current configuration.  Returns carry
; set if it should load.
;------------------------------------------------------------
test_load
		ldy	#header.maxrom
		lda	(headpnt),y		; get maximum ROM version
		cmp	romvers			; is real ROM larger?
		blt	@noload

		ldy	#header.whichos
		lda	(headpnt),y		; which OS does it support?
		beq	@ok_os			; all, so it may still load
		cmp	BootOS
		bne	@noload
@ok_os
		ldy	#header.hardware
		lda	(headpnt),y		; which hardware to load under?
		beq	@yesload		; all, so load it
		cmp	BootHardware
		bne	@noload
@yesload
		sec
		dc.b	$90			; BCC opcode (never taken, skip CLC)
@noload
		clc
		rts


;------------------------------------------------------------
; Load a single file from the image.  The start address,
; size in bytes, and size in blocks are in direct page
; variables by now.
;------------------------------------------------------------
load_one
		ldy	#header.addr
		lda	(headpnt),y			; get load address
		sta	BDSAddr				; save for ATP's use
		iny
		iny
		lda	(headpnt),y
		sta	BDSAddr+2
		
		ldy	#header.firstblk
		lda	(headpnt),y			; get first block number
		sta	ATPBlockNum
		
		lda	(headpnt)			; get number of bytes
		sta	bytes_left
		
@loop
		lda	#1				; only want first response block
		sta	ATPbitmap			; overwrite # responses

		lda	bytes_left
		cmp	#$200				; a whole block to read?
		blt	@size				; if not, use this as size
		lda	#$200				; assume a block at a time
@size
		sta	BDS				; save as buffer size

		ATCall	ATPreq
		bcs	@err
		inc	blocks_in
		lda	blocks_in
		and	#3				; take block mod 4
		tay					; as index to
		lda	Spinner,y			;   spinner table
		and	#$00FF				; only a byte wide
		ora	#$A000				; second char is space
		sta	ScreenSpinner			; put on screen

;------------------------------------------------------------
; Compute cell of thermometer to display as blocks * 37 / total
;------------------------------------------------------------
		pha			; long space for result
		pha
		pei	blocks_in	; push blocks loaded
		pea	37		; push constant 38
		_Multiply
		pla			; get low word of product
; leave a word on stack as room for remainder
		pha			; room for quotient
		pha			; numerator
		pei	blks_total	; denominator
		_UDivide
		ply			; quotient
		plx			; throw away remainder
		sep	#$20		; 8 bit mode for characters
		longa	off
		tya			; get quotient low byte
		and	#1		; mask off odd/even
		ora	#$56		; grid char
		sta	Line23+1,y	; and put it on screen
		rep	#$20
		longa	on

;------------------------------------------------------------
; Do a small delay between packets to help reduce server load
;------------------------------------------------------------
		sep	#$20		; 8 bits for I/O access
		longa	off
		lda	Speed		; get processor speed
		pha
		ora	#$80		; force fast mode
		sta	Speed
		ldy	#8192		; about right for fast mode
@delay
		dey
		bne	@delay
		pla			; recover processor speed
		sta	Speed
		rep	#$20
		longa	on

		inc	BDSAddr+1			; bump by 2 pages (1 block)
		inc	BDSAddr+1
		inc	ATPBlockNum			; get next block
		sec
		lda	bytes_left			; how many more bytes?
		sbc	BDS				; minus how mnay we just read
		sta	bytes_left			; anyhting else to read?
		beq	@exit
		brl	@loop				; if so, go get them bytes
@exit
		rts

@err
		pla					; yank return address
		brl	Restart				; try it all over again
		
;------------------------------------------------------------
; Display error message about wrong ROM version
;------------------------------------------------------------
bad_rom
		longa	off
		longi	off

		ldy	#0
@loop
		lda	rom_mess,y
		beq	@done
		sta	line2,y
		iny
		bra	@loop
@done
		bra	@done

Version
		dc.b	@end-@start
@start
		dc.b	'3.0'
		dc.b	' (GS/OS)'
@end

		IF 0 THEN
Splash1		str	'AppleTalk Network Startup'
Splash2		str	'(C) Apple Computer, Inc. 1988-1993'
Splash3		str	'All Rights Reserved'
		ENDIF
		
BootMess
		str	'Starting up over the network'
Progress
		str	'Progress'

ServerName
		str	'='
		str	'GS/OS Image'
		str	'*'

Spinner
		msb	on
		dc.b	'-\|/'
		msb	off

Lookup
		dc.b	0,16		; sync NBPLookup
		dc.w	0		; result
		dc.l	0		; completion
		dc.l	ServerName	; what to look for
		dc.b	4,32		; retry count and interval (was 8,16)
		dc.w	0		; RESERVED
		dc.w	BufferLen	; buffer length
		dc.l	NBPbuffer	; address of buffer
		dc.b	1		; maximum matches
NBPMatches	dc.b	0		; actual matches
		dc.b	0		; allow matches to be a word
Reboot
		dc.b	0,6		; sync Boot call
		dc.w	0		; result

InitParms
		dc.b	0,1		; sync. Init
		dc.w	0		; result
		dc.b	$80		; full init
		dc.w	0		; ProDOS entry point
		dc.w	0		; Reserved
		dc.b	0		; node number
		dc.w	0		; (Reserved, I think)

ATPreq
		dc.b	0,18		; synchronous ATPrequest
		dc.w	0		; result
		dc.l	0		; no completion
		dc.b	0		; socket used for transaction
ATPnetaddr	dc.l	0		; address
		dc.w	0		; TID
		dc.w	0		; sending zero data bytes
		dc.l	0		; normally, address of data buffer
		dc.b	3		; User bytes:	machine type
ATPBlockNum	dc.w	0		;		block number
		dc.b	0		;		unused
		dc.b	1		; one response buffer
		dc.l	BDS		; point to info about buffer(s)
		dc.b	$00		; flags: at least once transaction
		dc.b	4,64		; retry interval, count
	       				; was 4,64
ATPbitmap	dc.b	0		; current bitmap
		dc.b	0		; number of repsonses received
		dc.w	0,0,0		; reserved
;
BDS		dc.w	$200		; incoming packet buffer length
BDSAddr		dc.l	BlockBuf	; buffer address placed here
		dc.l	0		; user bytes
		dc.w	0		; actual length

BootOS		dc.w	0		; 1 = GS/OS, 2 = P8

rom_mess
		msb	on
		dc.b	'GS/OS requires ROM version 01 or newer.',00

		endwith					; with dp
		endp
		end
	
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/Fizzy/Makefile b/IIGS.601.SRC/GS.OS/NetBoot/Fizzy/Makefile
new file mode 100644
index 0000000..08c4d58
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/NetBoot/Fizzy/Makefile
@@ -0,0 +1 @@
+#
# Makefile for building Fizzy
#

fizzy		Ä	fizzy.o
	LinkIIGS -o fizzy fizzy.o
	MakeBinIIGS -org $1000 fizzy

fizzy.o		Ä	fizzy.aii
	AsmIIGS -o fizzy.o fizzy.aii
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/IIeBlocks/reloc.aii b/IIGS.601.SRC/GS.OS/NetBoot/IIeBlocks/reloc.aii
new file mode 100644
index 0000000..811881b
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/NetBoot/IIeBlocks/reloc.aii
@@ -0,0 +1 @@
+		machine	m65c02
		longa	off
		longi	off
		
;
; These would normally be defined from -d on command line
;
;P8Size		equ	16509
;LogonSize	equ	17744


TotalSize	equ	P8Size+LogonSize	; total number of bytes to move
LastPage	equ	TotalSize mod 256	; number of bytes in last page
FullPages	equ	TotalSize - LastPage	; number of bytes in whole pages

;
; Key addresses after relocation
;
P8Start		equ	$2000			; where P8 gets loaded
LogonStart	equ	P8Start+P8Size		; where Logon gets loaded
LogonEnd	equ	LogonStart+LogonSize	; end of Logon after relocation


src		equ	$FC			; pointer to source of move
dest		equ	$FE			; pointer to end of move

Reloc		proc	org $800

;
; Point to the last (partial) page to move
;
		lda	#<P8Start+FullPages
		sta	dest
		lda	#>P8Start+FullPages
		sta	dest+1

		lda	#<FirstByte+FullPages
		sta	src
		lda	#>FirstByte+FullPages
		sta	src+1
;
; Set up to move the last (partial page) then fall into the whole
; page move loop (as if part of the last page was already moved).
;
		ldy	#LastPage		; number of bytes in the last page
		ldx	#FullPages div 256	; number of whole pages
loop
		lda	(src),y
		sta	(dest),y
		dey
		cpy	#$FF			; end of page?
		bne	loop
		
		dec	src+1			; move to previous page
		dec	dest+1
		dex				; one less page to go
		cpx	#$FF			; did last page?
		bne	loop
;
; Now that code is relocated
;
		jmp	LogonStart		; jump to relocated Logon

FirstByte
		endp
		end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/Installer/Apple2GSInstallerScript.r b/IIGS.601.SRC/GS.OS/NetBoot/Installer/Apple2GSInstallerScript.r
new file mode 100644
index 0000000..5e32e83
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/NetBoot/Installer/Apple2GSInstallerScript.r
@@ -0,0 +1 @@
+#include "Types.r"						/* For ICON resource */
#include "InstallerTypes.r"

/*
	AppleShare Apple II Setup installer script.
	
	This installer script tells Installer 3.0.1 how to install the files:
		Apple //e Boot Blocks
		ProDOS16 Boot Blocks
		ProDOS16 Image
		P8
		BASIC.System
	These files are used to allow Apple IIe and IIGS computers to start up
	over the network from a file server.  These files get installed in the
	server's Server Folder (which is the blessed folder on the disk).
	
	15-Feb-91	MSD		Written from scratch to work with the new Installer
						script format for 3.0.1.

*/


/*

				  AppleShare
				Apple II Setup

	This is an installer script for Installer version 3.0 (specifically, the
	one that ships on the Mac System 6.0.7 System Tools disk).  It installs the
	boot block files, P8, and BASIC.System on an AppleShare file server so that
	Apple IIe's and IIGS's can boot from it.
	
	16-Jun-91	MSD		Changed the Splash Screen PICT.  It now uses Garamond
						and the wording was changed slightly so that it is
						correct for AppleShare File Server 2.0 and 3.0.

	28-Oct-91	MSD		Fixed to work with Installer 3.2 (which ships with
						AppleShare 3.0 and System 7.0).  Removed the default
						map ('indm' resource) and replaced it with 'infr' and
						'inrl' resources.  Changed release date for 'icmt' to
						use shell variable "todayhex".
						
	11-May-92	MSD		Removed the Customize screen since it provides the same
						functionality as the Easy Install screen.  Removed the
						'icmt' and ICON resources since they are only used for
						custom installs.
*/


/*==================================================================
====================================================================

	Now begins the actual resource declarations for the
	Apple II Setup Disk.
	
====================================================================
==================================================================*/

#define IIeBlocks	101
#define	IIGSBlocks	102
#define	IIGSImage	103
#define	ProDOS8		104
#define	BASIC		105

#define	TargIIe		201
#define	TargIIGS	202
#define	TargImg		203
#define	TargP8		204
#define	TargBASIC	205

#define TheRules	301			/* List of rules */
#define EasyRule	302			/* Rule list for Easy Install */

#define A2Setup		1000

#define	SetupDisk	"Apple II Setup:"

/*
	The package that installs all the Apple II booting files.
*/

resource 'inpk' (A2Setup,"Apple II Script") {
	format0 {
		doesntShowOnCustom,								/* Not visible in the Custom Install */
		removable,										/* Can be removed */
		dontForceRestart,								/* no need to force a restart/reboot */
		0,												/* ICMT resource ID */
		0,												/* Package size, to be filled in by ScriptCheck */
		"AppleShare Apple II Setup (v" $$Shell("thisvers") ")",		/* Package name */
		{												/* the parts */
			'infa', IIeBlocks;							/* File: Apple //e Boot Blocks */
			'infa', IIGSBlocks;							/* File: ProDOS16 Boot Blocks */
			'infa', IIGSImage;							/* File: ProDOS16 Image */
			'infa', ProDOS8;							/* File: P8 */
			'infa', BASIC;								/* File: BASIC.System */
		}
	}
};


/*
	Installer rule framework.  This specifies which rules Installer should pick based
	on what is available in the machine and on disk.
*/

resource 'infr' (TheRules) {
	format0 {{
		pickFirst,				/* Choose the first rule that matches */
		{
			EasyRule			/* Prefer the Easy Install rule */
		}
	}}
};


/*
	Installer rules.  This is how the installer decides whether to install on the current
	machine, system software, etc.
*/

resource 'inrl' (EasyRule, "Easy Install") {
	format0 {{
		addPackages {{
			A2Setup				/* Just the Apple II Setup package (everything) */
		}},
		addUserDescription {
			"Click Install to place version " $$Shell("thisvers") " of\n"
			"¥ Apple II Network Startup"
		}
	}}
};



/*

	Now come all of the file specifications.

*/

resource 'infs' (IIeBlocks, "source IIe Blocks") {
	'ZSYS',												/* Type */
	'MACS',												/* Creator */
	0,													/* Creation date, filled in by ScriptCheck */
	noSearchForFile,
	TypeCrMustMatch,
	SetupDisk"System Folder:Apple //e Boot Blocks"		/* path name */
};

resource 'infs' (IIGSBlocks, "source IIGS Blocks") {
	'ZSYS',												/* Type */
	'MACS',												/* Creator */
	0,													/* Creation date, filled in by ScriptCheck */
	noSearchForFile,
	TypeCrMustMatch,
	SetupDisk"System Folder:ProDOS16 Boot Blocks"		/* path name */
};

resource 'infs' (IIGSImage, "source IIGS Image") {
	'ZSYS',												/* Type */
	'MACS',												/* Creator */
	0,													/* Creation date, filled in by ScriptCheck */
	noSearchForFile,
	TypeCrMustMatch,
	SetupDisk"System Folder:ProDOS16 Image"				/* path name */
};

resource 'infs' (ProDOS8, "source P8") {
	'PSYS',												/* Type */
	'pdos',												/* Creator */
	0,													/* Creation date, filled in by ScriptCheck */
	noSearchForFile,
	TypeCrMustMatch,
	SetupDisk"System Folder:P8"							/* path name */
};

resource 'infs' (BASIC, "source BASIC") {
	'PSYS',												/* Type */
	'pdos',												/* Creator */
	0,													/* Creation date, filled in by ScriptCheck */
	noSearchForFile,
	TypeCrMustMatch,
	SetupDisk"System Folder:BASIC.System"				/* path name */
};


resource 'infs' (TargIIe, "target IIe Blocks") {
	'ZSYS',								/* Type */
	'MACS',								/* Creator */
	0,									/* Creation date, filled in by ScriptCheck */
	noSearchForFile,
	TypeCrMustMatch,
	"Blessed:Apple //e Boot Blocks"		/* path name */
};

resource 'infs' (TargIIGS, "target IIGS Blocks") {
	'ZSYS',								/* Type */
	'MACS',								/* Creator */
	0,									/* Creation date, filled in by ScriptCheck */
	noSearchForFile,
	TypeCrMustMatch,
	"Blessed:ProDOS16 Boot Blocks"		/* path name */
};

resource 'infs' (TargImg, "target IIGS Image") {
	'ZSYS',								/* Type */
	'MACS',								/* Creator */
	0,									/* Creation date, filled in by ScriptCheck */
	noSearchForFile,
	TypeCrMustMatch,
	"Blessed:ProDOS16 Image"			/* path name */
};

resource 'infs' (TargP8, "target P8") {
	'PSYS',								/* Type */
	'pdos',								/* Creator */
	0,									/* Creation date, filled in by ScriptCheck */
	noSearchForFile,
	TypeCrMustMatch,
	"Blessed:P8"						/* path name */
};

resource 'infs' (TargBASIC, "target BASIC") {
	'PSYS',								/* Type */
	'pdos',								/* Creator */
	0,									/* Creation date, filled in by ScriptCheck */
	noSearchForFile,
	TypeCrMustMatch,
	"Blessed:BASIC.System"				/* path name */
};


/*
	File Atoms
*/

resource 'infa' (IIeBlocks, "IIe Blocks") {
	format0 {
		delRemove,			/* Delete file to remove */
		noDelInstall,		/* Don't delete file before install (may be newer version) */
		copy,				/* Copy file to install */
		leaveAloneIfNewer,	/* Do allow newer versions of this file */
		noKeepExisting,		/* Don't keep existing target file (unless it is newer) */
		noUpdateOnly,		/* Copy it even if it doesn't exist on target disk */
		rsrcFork,			/* Copy the resource fork */
		dataFork,			/* Copy the data fork */
		
		TargIIe,			/* target filespec */
		IIeBlocks,			/* source filespec */
		0,					/* atom size, filled in by ScriptCheck */
		"Apple //e Boot Blocks"
	};
};

resource 'infa' (IIGSBlocks, "IIGS Blocks") {
	format0 {
		delRemove,			/* Delete file to remove */
		noDelInstall,		/* Don't delete file before install (may be newer version) */
		copy,				/* Copy file to install */
		leaveAloneIfNewer,	/* Do allow newer versions of this file */
		noKeepExisting,		/* Don't keep existing target file (unless it is newer) */
		noUpdateOnly,		/* Copy it even if it doesn't exist on target disk */
		rsrcFork,			/* Copy the resource fork */
		dataFork,			/* Copy the data fork */
		
		TargIIGS,			/* target filespec */
		IIGSBlocks,			/* source filespec */
		0,					/* atom size, filled in by ScriptCheck */
		"ProDOS16 Boot Blocks"
	};
};

resource 'infa' (IIGSImage, "IIGS Image") {
	format0 {
		delRemove,			/* Delete file to remove */
		noDelInstall,		/* Don't delete file before install (may be newer version) */
		copy,				/* Copy file to install */
		leaveAloneIfNewer,	/* Do allow newer versions of this file */
		noKeepExisting,		/* Don't keep existing target file (unless it is newer) */
		noUpdateOnly,		/* Copy it even if it doesn't exist on target disk */
		rsrcFork,			/* Copy the resource fork */
		dataFork,			/* Copy the data fork */
		
		TargImg,			/* target filespec */
		IIGSImage,			/* source filespec */
		0,					/* atom size, filled in by ScriptCheck */
		"ProDOS16 Image"
	};
};

resource 'infa' (ProDOS8, "P8") {
	format0 {
		delRemove,			/* Delete file to remove */
		noDelInstall,		/* Don't delete file before install (may be newer version) */
		copy,				/* Copy file to install */
		leaveAloneIfNewer,	/* Do allow newer versions of this file */
		noKeepExisting,		/* Don't keep existing target file (unless it is newer) */
		noUpdateOnly,		/* Copy it even if it doesn't exist on target disk */
		rsrcFork,			/* Copy the resource fork */
		dataFork,			/* Copy the data fork */
		
		TargP8,			/* target filespec */
		ProDOS8,			/* source filespec */
		0,					/* atom size, filled in by ScriptCheck */
		"P8"
	};
};

resource 'infa' (BASIC, "BASIC") {
	format0 {
		delRemove,			/* Delete file to remove */
		noDelInstall,		/* Don't delete file before install (may be newer version) */
		copy,				/* Copy file to install */
		leaveAloneIfNewer,	/* Do allow newer versions of this file */
		noKeepExisting,		/* Don't keep existing target file (unless it is newer) */
		noUpdateOnly,		/* Copy it even if it doesn't exist on target disk */
		rsrcFork,			/* Copy the resource fork */
		dataFork,			/* Copy the data fork */
		
		TargBASIC,			/* target filespec */
		BASIC,				/* source filespec */
		0,					/* atom size, filled in by ScriptCheck */
		"BASIC.System"
	};
};



/*
	The PICT displayed as a splash screen.
	
	You can use the following command to DeRez the resource:
		derez -m 80 -only PICT "Apple II Setup:Apple II Script" Types.r
*/
resource 'PICT' (128, "Splash Screen") {
	4614,
	{258, 118, 462, 458},
	$"1101 A000 8201 000A 0000 0000 02D0 0240 9800 2C01 0200 7001 CE01 D001 0200 7601"
	$"CE01 CA01 0200 7601 CE01 CA00 0008 EC00 0280 0001 ED00 09ED 0003 0380 0007 ED00"
	$"0CF0 0006 8000 0001 8000 F3ED 000C F000 06C0 0000 0180 031B ED00 0CF0 0006 C000"
	$"0001 8006 0BED 000D F100 0701 E000 0001 8006 0BED 000D F100 0701 6000 0001 8006"
	$"03ED 0015 F100 0B01 605E 0BC1 83C7 0378 1E16 1EFA 0000 10F9 001C FA00 027F FFFF"
	$"FB00 0B03 31E3 3C61 8C63 839C 637F 63FA 0001 29FE FA00 1EFA 0003 8000 0080 FC00"
	$"0C02 30C1 9831 8831 E30C C332 4180 FB00 0145 03FA 001F FA00 0380 0000 80FC 000C"
	$"0230 C198 3198 3073 0C03 30C1 80FB 0002 8302 80FB 0020 FA00 039F FFFC 80FC 000C"
	$"07F8 C198 319F F03B 0C07 30FF 80FC 0003 0101 03C0 FB00 1FFA 0003 9000 0480 FC00"
	$"0B04 18C1 9831 9800 1B0C 1B30 C0FB 0003 7A00 8040 FB00 20FA 0003 9030 C480 FC00"
	$"0B04 18C1 9831 9800 1B0C 6330 C0FC 0004 0187 F840 40FB 0020 FA00 0390 30C4 80FC"
	$"000B 0C0C C198 3198 041B 0CC3 30C0 FC00 0401 0008 2040 FB00 21FA 0003 9061 8480"
	$"FC00 0C08 0CC1 1821 8C14 1B0C C730 6080 FD00 0401 0008 1040 FB00 20FA 0003 9061"
	$"8480 FC00 0B08 0EE3 1C61 8E66 330C EB70 73FC 0004 0100 0820 40FB 0020 FA00 0390"
	$"C304 80FC 000B 3E1F DC1B 87E3 83C7 9E71 F81C FC00 0401 0008 4040 FB00 16FA 0003"
	$"90C3 0480 FA00 01C0 18F4 0004 0100 0880 40FB 0016 FA00 0391 8604 80FA 0001 C018"
	$"F400 0401 0009 0040 FB00 16FA 0003 9186 0480 FA00 01C0 18F4 0004 0100 0B00 40FB"
	$"0016 FA00 0390 0004 80FA 0001 C018 F400 0401 000D 0040 FB00 16FA 0003 9000 0480"
	$"FA00 01C0 18F4 0000 0FFE FF00 F0FB 0017 FA00 039F FFFC 80FB 0002 01E0 3CF4 0000"
	$"04FE 0000 20FB 0011 FA00 0380 0000 80EB 0000 03FE FF00 C0FB 000F FA00 0380 0000"
	$"80EA 0002 12A0 50FA 0012 FA00 027F FFFF F800 0008 F300 020A A050 FA00 12FA 0002"
	$"2000 02F8 0000 38F3 0002 0AB0 50FA 001B FA00 0220 0002 FC00 0008 FE00 0518 0003"
	$"FFC0 1EF8 0002 065D D0FA 001B FA00 0228 0002 FC00 000C FE00 0518 0000 C300 63F8"
	$"0002 0223 70FA 001D FA00 0220 0002 FC00 000C FE00 0718 0000 C300 C100 08FA 0002"
	$"0190 90FA 001C FA00 023B 6DB6 FC00 001E FE00 0718 0000 C300 C100 08F9 0001 C050"
	$"FA00 1CFA 0002 6492 49FC 0000 16FE 0007 1800 00C3 00C0 0018 F900 0130 30FA 0020"
	$"FA00 03ED B6DB 80FD 000E 1602 F05E 183C 00C3 00E0 1E3F C70B C0FC 0001 0C10 FA00"
	$"21FB 0004 0192 4924 C0FD 000E 330F 19E3 18C6 00C3 0070 6318 C33C 60FC 0001 0210"
	$"FA00 21FB 0000 03FE FF00 E0FD 000E 2306 0CC1 9883 00C3 003C 4198 C318 30FC 0001"
	$"0210 FA00 21FB 0000 02FE 0000 20FD 000E 2306 0CC1 9983 00C3 000E C198 C318 30FC"
	$"0001 07F8 FA00 21FB 0000 03FE FF00 E0FD 000E 7F86 0CC1 99FF 00C3 0007 FF98 C318"
	$"30FC 0001 07F8 FA00 19F2 000E 4186 0CC1 9980 00C3 0003 C018 C318 30FC 0001 07F8"
	$"FA00 14F2 000E 4186 0CC1 9980 00C3 0003 C018 C318 30F3 0014 F200 0EC0 C60C C199"
	$"8000 C300 83C0 18C3 1830 F300 14F2 000E 80C6 08C1 18C1 00C3 0083 6098 C318 20F3"
	$"0014 F200 0E80 E718 E318 E600 C300 C673 19E7 9C60 F300 15F3 000F 03E1 F6E0 DC7E"
	$"3803 FFC0 781C 0E7A 1B80 F300 0CF1 0002 0600 C0F8 0000 18F2 000C F100 0206 00C0"
	$"F800 0018 F200 0CF1 0002 0600 C0F8 0000 18F2 000C F100 0206 00C0 F800 0018 F200"
	$"0CF1 0002 0600 C0F8 0000 18F2 000C F100 020F 01E0 F800 003C F200 02D5 0002 D500"
	$"02D5 0002 D500 02D5 0002 D500 02D5 0002 D500 02D5 0002 D500 02D5 0002 D500 02D5"
	$"0002 D500 02D5 0002 D500 02D5 0002 D500 02D5 0002 D500 02D5 0002 D500 1402 0000"
	$"80F5 0002 2200 01FD 0000 60F2 0000 88FC 0015 0201 0380 F500 0266 0003 FD00 00B0"
	$"F300 0101 98FC 0019 0301 FE80 80FA 0000 02FE 0002 2200 01FD 0000 80F2 0000 88FC"
	$"001C 0302 2280 80FA 0006 0200 0100 2200 11FD 0000 88F5 0003 2000 0088 FC00 1902"
	$"0020 80F7 0004 0100 2200 11FD 0000 88F5 0003 2000 0088 FC00 2D29 0020 B88F 05E2"
	$"CF1E 2CE2 CC02 5C7B 8E22 3C39 70E0 3C79 FFB9 C72C E02E 1C1E 71E7 8E2F 3871 E01C"
	$"887B B9C0 FF00 2D29 0020 C591 0E37 51B3 F517 3206 E289 1122 4411 8930 448C 8910"
	$"88F5 3071 2622 9A28 9176 1022 3022 888D 1080 FF00 2D29 0020 8490 0412 20A1 2312"
	$"2202 4281 3122 4011 0A10 4104 8910 98A2 1021 4241 0A08 3123 1024 1062 8905 1080"
	$"FF00 2C28 0020 8498 0412 20A1 2032 2202 42C1 0322 6011 0BF0 6104 8999 01A3 F021"
	$"7E41 FB0C 0321 2024 1006 8905 99FE 002C 2800 2084 8E04 1220 A120 D222 0242 710D"
	$"2238 110A 0039 0488 9906 A200 2140 4101 C70D 2120 2410 1A89 0499 FE00 2C28 0020"
	$"8483 0412 2093 2112 2202 4219 1122 0C11 0A00 0D04 88AA 08A2 0021 4041 0061 9120"
	$"A024 1022 8904 AAFE 002C 2800 2084 8104 1220 9E22 1222 0242 0921 2204 110A 0005"
	$"0488 EE10 A200 2140 4100 20A1 20C0 2410 4289 04EE FE00 2C28 0020 8491 0622 3120"
	$"2232 2202 4289 2322 4411 0B10 4588 8844 11A3 1021 6263 8A28 A320 4026 2046 8988"
	$"44FE 002C 2800 71CF DE05 C71E 3F71 DF73 07E7 F0DD F778 0F9D E078 F1C6 440E F1E0"
	$"73BC 3CF3 CF1D F040 1BC0 3BDC F044 FE00 0EFD 0004 0400 0011 80E8 0000 80F8 000E"
	$"FD00 0404 0000 2080 E800 0080 F800 0FFD 0004 0400 0040 80E9 0001 0380 F800 0DFD"
	$"0003 0E00 0061 E800 0003 F700 06FA 0000 3EDD 0012 FD00 0020 FB00 0040 FE00 0040"
	$"EC00 0006 FB00 12FD 0000 60FB 0000 C0FE 0000 C0EC 0000 0BFB 001A 0600 1000 0020"
	$"00EE FD00 0840 2000 0040 01CE 1F07 F000 0008 FB00 2606 0010 0000 2000 44FD 0009"
	$"4020 0000 4000 8461 8980 FC00 0B40 0000 1000 0040 0080 0000 08FB 0026 0600 3800"
	$"0020 0044 FD00 0940 7000 0040 0084 4090 80FC 000B 4000 0010 0000 4000 8000 0008"
	$"FB00 2C28 0028 BCBC 21C0 441C 038B 8740 50BC BC43 8084 8010 00F3 C598 BCC6 E385"
	$"BC38 F01E E38B C18D 781E 59E2 CCFE 002C 2800 29C7 C622 6044 2604 5C48 C051 C7C6"
	$"44C0 8480 1801 146E 65C6 4244 CEC4 1118 2244 5D80 878C 08EA 3732 FE00 2C28 004C"
	$"8282 2420 4442 0C48 5040 9882 8248 4084 800E 0208 2444 8242 4844 4012 0820 4C48"
	$"8085 0408 4412 22FE 002C 2800 4482 8227 E044 7E00 C850 4088 8282 4FC0 8483 C702"
	$"0824 4482 424F C460 1208 3040 C880 8504 0844 1222 FE00 2C28 00FC 8282 2400 4440"
	$"0348 5041 F882 8248 0084 8081 8208 2444 8242 4804 3812 081C 4348 8085 0408 4412"
	$"22FE 002C 2800 8682 8224 0044 4004 4850 410C 8282 4800 8480 8082 0824 4482 4248"
	$"040C 1208 0644 4880 8504 0844 1222 FE00 2C00 00FE 8224 2400 4440 0848 5041 0482"
	$"8248 0084 4090 8208 2444 8242 4804 0412 0802 4848 8085 0408 4412 22FE 002C 2801"
	$"03C4 C426 2044 6208 C858 E206 C4C4 4C40 8461 9903 1C44 44C4 474C 4444 1310 2248"
	$"C880 8F88 0846 2222 FE00 2C28 0387 B8B8 73C0 EE3C 077C EF47 0FB8 B8E7 81CE 1F0E"
	$"01E7 8EE6 B83A 378E 780D E03C 377C 6075 701C E3C7 73FE 0014 0300 0080 80F8 0001"
	$"8080 F800 0080 F700 0001 F900 1403 0000 8080 F800 0180 80F8 0000 80F7 0000 01F9"
	$"0014 0300 0080 80F8 0001 8080 F800 0080 F700 0001 F900 1703 0001 C1C0 F900 0201"
	$"C1C0 F900 0101 C0F7 0001 0380 FA00 02D5 000C FB00 0204 0001 FC00 0040 E400 0CFB"
	$"0002 0C00 03FC 0000 C0E4 0021 FE00 0502 0000 0400 71FE 0004 07F4 4000 E0FA 000A"
	$"0200 0001 C030 0000 0E00 C0F8 0021 FE00 0502 0000 0400 99FE 0004 0214 4001 30FA"
	$"000A 0200 0002 6048 0000 1101 20F8 001E FE00 0507 0000 0401 09FE 0004 0210 4002"
	$"10F7 0007 0420 8400 0001 0210 F800 2622 0071 7005 178B C439 0170 E2CE 0204 4702"
	$"01C2 E71C 581C E70B F21E 2E00 2084 078B 0102 10F8 0026 2200 8B88 0538 DC64 4D81"
	$"8917 5302 2C49 8302 6742 26E8 0849 9D16 2371 0020 8408 DD02 0210 F800 2622 0189"
	$"0809 9048 2484 E10B 1221 03E4 5081 C422 4242 4008 5089 0241 2100 4084 1048 0602"
	$"10F8 0026 2200 1908 0890 4824 FC71 0832 3F02 245F 80E7 E264 7E40 0C9F 8982 4121"
	$"0040 8410 4809 0210 F800 2622 0069 081F 9048 2480 1908 D220 0204 5000 3402 2440"
	$"4004 9008 E241 2100 8084 1048 0082 10F8 0026 2200 8908 10D0 4824 8009 0912 2002"
	$"0450 0014 0228 4040 0510 0832 4121 0100 8410 4800 8210 F800 2622 0109 0810 5048"
	$"2481 090A 1220 0204 5002 1402 3840 4007 1008 1241 2102 0084 1048 0082 10F8 0026"
	$"2201 1908 2078 8C44 C591 0A32 3102 0458 8326 2210 6242 0218 8912 6221 0424 4818"
	$"8800 8921 F800 2622 00EF 9C70 F70B 8E78 E39D DF1E 070E EF01 C3C7 103C E302 0F1D"
	$"E73C 7387 E430 0F1C 0108 C1F8 000F FD00 0110 08F3 0000 01F6 0000 22F6 000F FD00"
	$"0110 08F3 0000 01F6 0000 1CF6 000B FD00 0110 08F3 0000 02EA 0007 FD00 0138 1CDB"
	$"0002 D500 02D5 0002 D500 02D5 0002 D500 02D5 0002 D500 02D5 0002 D500 02D5 0002"
	$"D500 02D5 0002 D500 02D5 0002 D500 02D5 0002 D500 02D5 0002 D500 02D5 0013 FB00"
	$"0002 FA00 0108 04FD 0000 04F2 0000 80FA 0018 FB00 0006 FA00 0118 0CFD 0000 0CF8"
	$"0000 20FD 0001 0180 FA00 2301 01F8 FD00 0002 FA00 0A08 0400 0200 0004 001D C038"
	$"FC00 0840 0000 4000 0080 0738 FC00 2801 0084 FD00 0302 0000 01FD 0018 0804 0002"
	$"0000 0400 0880 4C80 0080 0000 8000 0040 0000 8002 10FC 0028 0100 84FD 0003 0200"
	$"0001 FD00 1808 0400 0700 0004 0008 8084 8000 8000 0080 0000 E000 0080 0210 FC00"
	$"2A26 0084 38B3 0716 62F0 E2C3 8F01 C2E1 CBC4 7005 0BCB C438 0880 81C7 17D8 D781"
	$"03C5 80A2 F2F0 8E02 10FC 002A 2600 884D CC89 B993 1937 4111 8267 122C 6498 051C"
	$"7C64 4C08 80C0 88BA 8878 C104 6E80 A71F 1893 0210 FC00 2A26 00F0 8488 9091 120A"
	$"1201 2084 2216 2825 0809 8828 2484 0880 7098 9088 5041 0824 0132 0A08 A102 10FC"
	$"002A 2600 90FC 889F 9112 0BF2 0120 87E2 1068 25F8 0888 2824 FC08 8038 8190 8850"
	$"4108 2401 120A 08BF 0210 FC00 2A26 0088 8088 9011 120A 0201 2084 0211 A825 001F"
	$"8828 2480 0880 0C86 9088 5041 0824 03F2 0A08 A002 10FC 002A 2600 8880 8890 1112"
	$"0A02 0120 8402 1228 2500 10C8 2824 8008 8004 8890 8850 4108 2402 1A0A 08A0 0210"
	$"FC00 2A26 008C 8088 9011 120A 0201 2084 0214 2825 0010 4828 2480 0880 8490 9088"
	$"5040 8824 020A 0A08 A002 10FC 002A 2600 84C4 8898 9113 1312 0131 0622 146C 4588"
	$"206C 4C44 C408 80C8 9190 88F8 808C 4404 0F13 10B1 0210 FC00 2A26 01C6 79DC CF3B"
	$"9AE1 E700 DE03 C73B BB8E F070 FB8B 8E78 1DC0 706E F867 5700 478E 0E1E E2E1 DE07"
	$"38FC 0011 EF00 0108 08F9 0006 1000 2000 0002 02F8 0010 EF00 0108 08F9 0000 10FD"
	$"0001 0202 F800 10EF 0001 0808 F900 0010 FD00 0102 02F8 0010 EF00 011C 1CF9 0000"
	$"38FD 0001 0707 F800 02D5 0017 0200 0002 FB00 0002 FB00 0020 F800 0104 40FC 0000"
	$"04F7 001A 0200 0006 FE00 0380 0000 06FB 0000 60F8 0001 0CC0 FC00 000C F700 1F09"
	$"0010 0200 0400 4000 0002 FB00 0020 F800 0A04 4000 0002 0000 0400 1CE4 FA00 2A10"
	$"0010 0200 0400 2000 0002 0000 0100 0202 20FB 0014 0200 0004 4000 0002 0000 0400"
	$"0844 0020 0001 0001 002A 0200 3802 FE00 0A20 0000 0200 0001 0002 0220 FB00 1402"
	$"0000 0440 0000 0700 0004 0008 4400 2000 0100 0100 2D2B 0028 3A59 845C 101C 5C3A"
	$"059C 7B8E 2F07 2E1C 078E 2F39 C587 1E01 C447 BB9C 050B CBC4 3808 44F0 71E0 7B8E"
	$"2F80 2D2B 0028 46E6 4CE2 1022 E246 0EA6 8911 7602 3126 0893 7612 6E82 2302 2448"
	$"D108 051C 7C64 4C08 4510 2230 8911 7500 2D2B 004C 8244 4442 1062 4282 0442 8131"
	$"2202 2142 0821 2214 2402 4106 2450 5108 0988 2824 8408 4100 2410 8131 2100 2D2B"
	$"0044 8244 4442 1006 4282 047E C103 2202 217E 0C3F 2327 E402 4100 6450 5990 0888"
	$"2824 FC08 4180 2410 C103 2100 2D2B 00FC 8244 4442 101A 4282 0440 710D 2202 2140"
	$"0720 2124 0402 4101 A450 4990 1F88 2824 8008 40E0 2410 710D 2100 2D2B 0086 8244"
	$"4442 1022 4282 0440 1911 2202 2140 01A0 2144 0402 4102 2450 4AA0 10C8 2824 8008"
	$"4030 2410 1911 2100 2D2B 0082 8244 4442 2042 4282 0440 0921 2202 2140 00A0 21C4"
	$"0402 4104 2450 4EE0 1048 2824 8008 4010 2410 0921 2100 2D2B 0103 C744 4442 2046"
	$"42C7 0462 8923 2202 2162 08B1 2086 2402 6204 6458 8440 206C 4C44 C408 4110 2620"
	$"8923 2100 2D2B 0387 FAEE 6EE7 403B E77A 0E3C F0DD F181 F3BC 0F1E 7083 CE01 BC03"
	$"BEEF 0440 70FB 8B8E 781C E1E0 1BC0 F0DD F0C0 0BFB 0000 80E9 0001 0808 F600 07E2"
	$"0001 0808 F600 07E2 0001 0808 F600 07E2 0001 1C1C F600 02D5 000A FE00 0006 FD00"
	$"0040 DE00 0AFE 0000 0BFD 0000 C0DE 000A FE00 0008 FD00 0040 DE00 0BFE 0000 08FE"
	$"0001 0440 DE00 0BFE 0000 08FE 0001 0440 DE00 120E 018D 781E B3C5 980E 5C38 0F1C"
	$"5E73 8BE4 0012 0E00 878C 09D4 6E64 0462 4C11 26EC 24DD E400 120E 0085 0408 8824"
	$"4404 4284 1042 4428 48E4 0012 0E00 8504 0888 2444 0442 FC18 7E46 4FC8 E400 120E"
	$"0085 0408 8824 4404 4280 0E40 4248 08E4 0012 0E00 8504 0888 2444 0442 8003 4042"
	$"8808 E400 120E 0085 0408 8824 4404 4280 0140 4388 08E4 0013 0F00 8F88 088C 4444"
	$"0442 C411 6241 0C48 40E5 0013 0F00 7570 1DC7 8EE6 03E7 781E 3CE1 079C 40E5 0005"
	$"0100 01D7 0005 0100 01D7 0005 0100 01D7 0006 0200 0380 D800 A000 83FF"
};


/*
	Finally, the version information.
*/
/*
	This file gives version information of the ProDOS16 Image file.
*/

resource 'vers' (1, purgeable) {
	0x02,
	0x20,
	final,
	0x00,
	verUS,
	"2.2",
	"2.2, © Apple Computer, Inc. 1988"
};

resource 'vers' (2,purgeable) {
	0x02,
	0x20,
	final,
	0x00,
	verUS,
	"2.2",
	"Apple II Setup 2.2"
};
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/Installer/Basic.r b/IIGS.601.SRC/GS.OS/NetBoot/Installer/Basic.r
new file mode 100644
index 0000000..186113e
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/NetBoot/Installer/Basic.r
@@ -0,0 +1 @@
+/*
	This file gives version information of the ProDOS16 Image file.
*/

#define development 0x20
#define alpha 0x40
#define beta 0x60
#define final 0x80

#define langEnglish 0
type 'vers' {
	byte;		/* major version (2 digits) */
	byte;		/* minor version (2 digits) */
	byte;		/* stage of release (dev/alpha/beta/final) */
	byte;		/* release number (2 digits) */
	integer;	/* localization code */
	pstring;	/* short version string */
	pstring;	/* long version string */
};

/*
#define shortvers $$Shell("A2GSISVersionString")
#define longvers "v" $$Shell("A2GSISVersionString") ", AppleShare v2.0 Copyright © 1987-88, Apple Computer, Inc."

resource 'vers' (-2, purgeable) {
	0x02,
	0x00,
	alpha,
	0x12,
	langEnglish,
	shortvers,
	longvers
};
*/

resource 'vers' (1, purgeable) {
	0x02,
	0x10,
	alpha,
	0x01,
	langEnglish,
	"2.1d7",
	"Basic.System 1.3"
	"\n© Apple Computer, Inc. 1988"
};

resource 'vers' (2,purgeable) {
	0x02,
	0x01,
	development,
	0x09,
	langEnglish,
	"2.1d9",
	"Apple II Setup 2.1d9"
};
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/Installer/BootBlocks.r b/IIGS.601.SRC/GS.OS/NetBoot/Installer/BootBlocks.r
new file mode 100644
index 0000000..7bb266a
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/NetBoot/Installer/BootBlocks.r
@@ -0,0 +1 @@
+/*
	This file gives version information of the ProDOS16 Boot Blocks file.
*/

#define development 0x20
#define alpha 0x40
#define beta 0x60
#define final 0x80

#define langEnglish 0
type 'vers' {
	byte;		/* major version (2 digits) */
	byte;		/* minor version (2 digits) */
	byte;		/* stage of release (dev/alpha/beta/final) */
	byte;		/* release number (2 digits) */
	integer;	/* localization code */
	pstring;	/* short version string */
	pstring;	/* long version string */
};


/*
#define shortvers $$Shell("A2GSISVersionString")
#define longvers "v" $$Shell("A2GSISVersionString") ", AppleShare v2.0 Copyright © 1988, Apple Computer, Inc."

resource 'vers' (-2, purgeable) {
	0x02,
	0x00,
	alpha,
	0x12,
	langEnglish,
	shortvers,
	longvers
};
*/

resource 'vers' (1,purgeable) {
	0x02,
	0x01,
	development,
	0x09,
	langEnglish,
	"2.1d9",
	"ProDOS16 Boot Blocks 2.1d9"
	"\n© Apple Computer, Inc. 1988"
};

resource 'vers' (2,purgeable) {
	0x02,
	0x01,
	development,
	0x09,
	langEnglish,
	"2.1d9",
	"Apple II Setup 2.1d9"
};
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/Installer/Bullwinkle.r b/IIGS.601.SRC/GS.OS/NetBoot/Installer/Bullwinkle.r
new file mode 100644
index 0000000..6ac7812
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/NetBoot/Installer/Bullwinkle.r
@@ -0,0 +1 @@
+/*
	This file gives version information of the Apple //e Boot Blocks file.
*/

#define development 0x20
#define alpha 0x40
#define beta 0x60
#define final 0x80

#define langEnglish 0
type 'vers' {
	byte;		/* major version (2 digits) */
	byte;		/* minor version (2 digits) */
	byte;		/* stage of release (dev/alpha/beta/final) */
	byte;		/* release number (2 digits) */
	integer;	/* localization code */
	pstring;	/* short version string */
	pstring;	/* long version string */
};


/*
#define shortvers $$Shell("A2GSISVersionString")
#define longvers "v" $$Shell("A2GSISVersionString") ", AppleShare v2.0 Copyright © 1988, Apple Computer, Inc."

resource 'vers' (-2, purgeable) {
	0x02,
	0x00,
	alpha,
	0x12,
	langEnglish,
	shortvers,
	longvers
};
*/

resource 'vers' (1,purgeable) {
	0x01,
	0x00,
	final,
	0x00,
	langEnglish,
	"1.0",
	"Apple //e Boot Blocks 1.0"
	"\n© Apple Computer, Inc. 1988"
};

resource 'vers' (2,purgeable) {
	0x02,
	0x01,
	development,
	0x09,
	langEnglish,
	"2.1d9",
	"Apple II Setup 2.1d9"
};
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/Installer/CatInfo b/IIGS.601.SRC/GS.OS/NetBoot/Installer/CatInfo
new file mode 100644
index 0000000..e69de29
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/Installer/Image.r b/IIGS.601.SRC/GS.OS/NetBoot/Installer/Image.r
new file mode 100644
index 0000000..a3a6b4a
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/NetBoot/Installer/Image.r
@@ -0,0 +1 @@
+/*
	This file gives version information of the ProDOS16 Image file.
*/

#define development 0x20
#define alpha 0x40
#define beta 0x60
#define final 0x80

#define langEnglish 0
type 'vers' {
	byte;		/* major version (2 digits) */
	byte;		/* minor version (2 digits) */
	byte;		/* stage of release (dev/alpha/beta/final) */
	byte;		/* release number (2 digits) */
	integer;	/* localization code */
	pstring;	/* short version string */
	pstring;	/* long version string */
};

/*
#define shortvers $$Shell("A2GSISVersionString")
#define longvers "v" $$Shell("A2GSISVersionString") ", AppleShare v2.0 Copyright © 1987-88, Apple Computer, Inc."

resource 'vers' (-2, purgeable) {
	0x02,
	0x00,
	alpha,
	0x12,
	langEnglish,
	shortvers,
	longvers
};
*/

resource 'vers' (1, purgeable) {
	0x02,
	0x01,
	development,
	0x09,
	langEnglish,
	"2.1d9",
	"ProDOS16 Image 2.1d9"
	"\n© Apple Computer, Inc. 1988"
};

resource 'vers' (2,purgeable) {
	0x02,
	0x01,
	development,
	0x09,
	langEnglish,
	"2.1d9",
	"Apple II Setup 2.1d9"
};
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/Installer/P8.r b/IIGS.601.SRC/GS.OS/NetBoot/Installer/P8.r
new file mode 100644
index 0000000..4261fb1
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/NetBoot/Installer/P8.r
@@ -0,0 +1 @@
+/*
	This file gives version information of the ProDOS16 Image file.
*/

#define development 0x20
#define alpha 0x40
#define beta 0x60
#define final 0x80

#define langEnglish 0
type 'vers' {
	byte;		/* major version (2 digits) */
	byte;		/* minor version (2 digits) */
	byte;		/* stage of release (dev/alpha/beta/final) */
	byte;		/* release number (2 digits) */
	integer;	/* localization code */
	pstring;	/* short version string */
	pstring;	/* long version string */
};

/*
#define shortvers $$Shell("A2GSISVersionString")
#define longvers "v" $$Shell("A2GSISVersionString") ", AppleShare v2.0 Copyright © 1987-88, Apple Computer, Inc."

resource 'vers' (-2, purgeable) {
	0x02,
	0x00,
	alpha,
	0x12,
	langEnglish,
	shortvers,
	longvers
};
*/

resource 'vers' (1, purgeable) {
	0x01,
	0x08,
	final,
	0x00,
	langEnglish,
	"1.8",
	"ProDOS8 1.8"
	"\n© Apple Computer, Inc. 1988"
};

resource 'vers' (2,purgeable) {
	0x02,
	0x01,
	development,
	0x09,
	langEnglish,
	"2.1d9",
	"Apple II Setup 2.1d9"
};
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/Logon/BootLog16.aii b/IIGS.601.SRC/GS.OS/NetBoot/Logon/BootLog16.aii
new file mode 100644
index 0000000..afef69b
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/NetBoot/Logon/BootLog16.aii
@@ -0,0 +1 @@
+;
; BootLog16
;
; This is the Logon program used during	booting	under GS/OS
;
; 12-Nov-91 MSD (Apple II Setup 2.2d21)
;		Changed LogonData to start at $3000 to prevent it overlapping Fizzy
;		at $1xxx.  If you mounted 8 or more volumes at boot time, the
;		results of the FIListSessions call would wipe out the code in Fizzy
;		that Logon was supposed to return to.
;
		Print	OFF
		MACHINE	M65816
		INCLUDE	'cons.macros'
		include	'Console.equates'
		longa	off
		longi	off
		Print	ON,NOGEN

; macro	to make	an AppleTalk call for P16
		macro
&lab		ATCall	&Parm
&lab		phx			; X and	Y must be preserved
		phy
		clc
		xce			; force native mode!
		rep	#$30
		longa	on
		longi	on
		ldx	#&parm
		ldy	#^&parm
		jsl	$E11014		; Ram Dispatch
		sep	#$30
		longa	off
		longi	off
		ply
		plx
		mend

**************************************************
* OSFlag indicates the application type	and is defined
* as follows:
*
* ProDOS 16 application	= 64
* ProDOS 8 application = 0
* ProDOS 16 Boot Blocks	= 192
* ProDOS 8 Boot	Blocks = 128
*
**************************************************
OSFlag		equ	192		;ProDOS	16 Application		        
NBPBuffLen	equ	8192
AFPVersion	equ	$0200		;AFP version 2.0

CardPtr		equ	$FE

LogonData	Record	$3000
ReplyBuff	DS.B	768
ArrayBuff	DS.B	512
WindowBuff	DS.B	512
MySelArray	DS.B	256
FSName		DS.B	64
NameBuffer	DS.B	64
PassBuffer	DS.B	16
NewPassWrd	DS.B	16
LogPckt		DS.B	128
Prefix		DS.B	128
SessBuff	DS.B	1024
CompSelArray	DS.B	256
NBPBuffer	ds.b	NBPBuffLen
		EndR


BootLog16	PROC	export

		export	(InitParm,FrameParms1,MainWindow):code
		export	(TitLine,SelXPos,SelYPos):code
		export	(Increment,Selindex,StgArrayPtr):code
		export	(ArrayCnt,ListOptByte,ListParms):code
		export	(RestoreBox,MessParms,MessPtr):code
		export	(FilterProc,MessOpt):code
		export	(MessageWind,MainWindow):code
		export	FileOpenErr:code
		export	(Mess0,Mess20,Mess15):code

		import	ZPLabel
		import	LoaderLen:equ
		import	ConsDrvr
		with	LogonData

		phk
		plb
		sep	#$30
		longa	off
		longi	off
		
		pha			; save GS/OS versus P8 flag
		
		lda	#$C0
		sta	InitParm
		InitConsole
		CursorOff
		
		jsr	DrawLogOnScrn	; draw splash screen
		
		pla			; get BootOS flag again
		
		jsr	Logon
		rep	#$30
		longa	on
		longi	on
		rtl

		INCLUDE	'logon.main'
		INCLUDE	'icon.aii'
		ENDP

MLI		equ	$BF00
RomIn		equ	$c082
SetVid		equ	$fe93
SetKbd		equ	$fe89
Home		equ	$FC58
Clr80Vid	equ	$c00c
SetAltChar	equ	$c00f
Clr80Col	equ	$c000
BasStart	equ	$2000
OurPath		equ	$280

ZPLabel		Proc	Export
		endp
ZPCode		Proc	Export,TempORG	$1000
		import	FileOpenErr

		jsr	mli		;ISSUE THE PRODOS OPEN COMMAND
		dc.b	$c8
		dc.w	LaunOpen
		beq	OpenOk
		jmp	FileOpenErr	;this is a terminal error
OpenOk		lda	OpenRef		;GET A REF NUM
		sta	ReadRef		;SAVE IT FOR READ
		jsr	mli		;AND ISSUE THE READ COMMAND
		dc.b	$ca
		dc.w	LaunRead
		beq	ReadOk
lockup		jmp	lockup		;were in trouble now, just hang
ReadOk		jsr	mli		;AND NOW ISSUE THE CLOSE COMMAND
		dc.b	$cc
		dc.w	LaunClose
		cld
		lda	RomIn							    
		jsr	SetVid							    
		jsr	SetKbd							    
		jsr	Home							    
		sta	Clr80Vid			        
		sta	SetAltChar			        
		sta	Clr80Col
		ldx	#$ff
		txs
		jmp	BasStart

LaunOpen
		dc.b	3
		dc.w	OurPath
		dc.w	$bb00
OpenRef		dc.b	0
*
LaunRead
		dc.b	4
ReadRef		dc.b	0
		dc.w	$2000
		dc.w	$ffff
		dc.w	0000
*
LaunClose
		dc.b	1
		dc.b	0
LdrBottom
		export	LoaderLen:equ
LoaderLen	equ	LdrBottom-ZPCode

		ENDP

		end

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/Logon/BootLog8.aii b/IIGS.601.SRC/GS.OS/NetBoot/Logon/BootLog8.aii
new file mode 100644
index 0000000..ad1c86b
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/NetBoot/Logon/BootLog8.aii
@@ -0,0 +1 @@
+;------------------------------------------------------------
; BootLog8.aii
;
; This is the form of the Logon program embedded in the
; Apple //e Boot Blocks.
;
; 15-May-91	MSD	Zero out the byte at $3F4 (the reset
;			vector's check byte) to force Ctrl-Reset
;			to reboot instead of dropping into the
;			monitor.
;------------------------------------------------------------
		machine	m65c02
		longa	off
		longi	off
		
		INCLUDE	'cons.macros'
		include	'Console.equates'

; macro to make an AppleTalk call for P8
		macro
&lab		ATCall	&Parm
&lab		jsr	$BF00
		dc.b	$42		; AppleTalk call number
		dc.w	&Parm		; pointer to parameter block
		mend

**************************************************
* OSFlag indicates the application type and is defined
* as follows:
*
* ProDOS 16 application = 64
* ProDOS 8 application = 0
* ProDOS 16 Boot Blocks = 192
* ProDOS 8 Boot Blocks = 128
*
**************************************************
OSFlag		equ	128		; ProDOS 8 boot blocks
NBPBuffLen	equ	8192
AFPVersion	equ	$0200		; AFP version 2.0
PDosInstall	equ	$2003		; warm init ProDOS 8

CardPtr		equ	$FE

ResetVect	equ	$3F2		; user's reset vector

; In P8 application, they would be equates to areas between $800 and $2000,
; except for NBPBuffer which would go up high in memory ($9F00).  Here,
; NBPBuffer extends past $2000 where P8 was; this is OK since that memory
; is no longer needed by the time Logon is running.

LogonRec	Record	$800
ReplyBuff	DS.B	768
ArrayBuff	DS.B	512
WindowBuff	DS.B	512
MySelArray	DS.B	256
FSName		DS.B	64
NameBuffer	DS.B	64
PassBuffer	DS.B	16
NewPassWrd	DS.B	16
LogPckt		DS.B	128
Prefix		DS.B	128
SessBuff	DS.B	1024
CompSelArray	DS.B	256
NBPBuffer	ds.b	NBPBuffLen
BuffersEnd
		EndR

BootLog8	PROC export

		export	(InitParm,FrameParms1,MainWindow):code
		export	(TitLine,SelXPos,SelYPos):code
		export	(Increment,Selindex,StgArrayPtr):code
		export	(ArrayCnt,ListOptByte,ListParms):code
		export	(RestoreBox,MessParms,MessPtr):code
		export	(FilterProc,MessOpt):code
		export	(MessageWind,MainWindow):code
		export	FileOpenErr:code
		export	(Mess0,Mess20,Mess15):code
		
		import	ZPLabel
		import	LoaderLen:equ
		import	ConsDrvr
		with	LogonRec
		
;------------------------------------------------------------
;
; Init ProDOS 8, but don't have it find a startup application.
;
;------------------------------------------------------------
		jsr	PDosInstall


;------------------------------------------------------------
; 15-May-91	MSD
;
; At this point, $3F2-$3F4 have been set to $69 FF 5A by P8.
; This will cause you to drop into the monitor if you hit
; Ctrl-Reset.  I will store a zero at $3F4 to invalidate the
; address; the AutoStart ROM will go into its slot scanning
; loop instead of doing a JMP ($3F2).
;------------------------------------------------------------
		stz	ResetVect+2		; mess up the check byte
		
;------------------------------------------------------------
;
; Find and init the workstation card
;
;------------------------------------------------------------
		jsr	FindCard
LogRestart
		ldx	#$ff			;fix the stack for continous reboots
		txs
		lda	mli+2
		sta	ProEntPt+1
		and	#$f0			;clear all but the upper nibble
		cmp	#$c0			;if we already point to C0 space, dont reinit
		beq	LR1			;go to System Run & bypass spashscreen
		lda	mli+1
		sta	ProEntPt               	;setup the ProDos Entry Point
		lda	#$14                     
		sta	mli+1
		lda	CardPtr+1
		sta	mli+2
		sta	aiparms+3
		jsr	mli
		dc.b	$42
		dc.w	initparms
		jsr	mli
		dc.b	$40
		dc.w	aiparms
		cli				;turn on interrupts for Apple //e
		InitConsole			; init the console driver
		CursorOff			; and turn the input cursor off

		jsr	DrawLogOnScrn		; draw splash screen
		
LR1		ldx	#16
LR2		phx
		ldx	#WaitStr
		ldy	#>WaitStr
		WritePointer			;a short pause for RTMP to register
		ATCall	GetInfo
		plx
		lda	ABridge
		bne	LR3
		dex
		bne	LR2
LR3
;------------------------------------------------------------
;
; Initialize ProDOS 8's bitmap
;
;------------------------------------------------------------
ClearBitMap
		lda	#0			;Clear the system bit map
		tay
CLRBM		sta	$BF58,Y			;
    		iny
		cpy	#23         		;22 TIMES
		bne	CLRBM
		lda	#1          		;SET THE 23RD BIT TO ONE
		sta	$BF58,Y        		;
		lda	#$cf			;save zero page from ProDOS
		sta	$Bf58			;help it, protect itself!
		lda	LastDev			;get the device we were loaded from		
		sta	UnitNum			;store it into GetFileInfo parms
		sta	RBUnitNum		;store it into the read block parms

;------------------------------------------------------------
;
; Fall into Logon's main loop
;
;------------------------------------------------------------

		INCLUDE	'logon.main'
		INCLUDE	'icon.aii'

		ENDP

MLI		equ	$BF00
RomIn		equ	$c082
SetVid		equ	$fe93
SetKbd		equ	$fe89
Home		equ	$FC58
Clr80Vid	equ	$c00c
SetAltChar	equ	$c00f
Clr80Col	equ	$c000
BasStart	equ	$2000
OurPath		equ	$280

ZPLabel		Proc	Export
		endp
ZPCode		Proc	Export,TempORG $1000
		import	FileOpenErr
		
		jsr	mli 			;ISSUE THE PRODOS OPEN COMMAND
		dc.b	$c8
		dc.w	LaunOpen
		beq	OpenOk
		jmp	FileOpenErr		;this is a terminal error
OpenOk 		lda 	OpenRef 		;GET A REF NUM
 		sta 	ReadRef 		;SAVE IT FOR READ
		jsr	mli 			;AND ISSUE THE READ COMMAND
		dc.b	$ca
		dc.w	LaunRead
	  	beq	ReadOk
lockup	  	jmp	lockup			;were in trouble now, just hang
ReadOk		jsr	mli			;AND NOW ISSUE THE CLOSE COMMAND
		dc.b	$cc
		dc.w	LaunClose
  		cld
 		lda 	RomIn			
 		jsr 	SetVid			
 		jsr	SetKbd			
		jsr	Home			
 		sta 	Clr80Vid		
 		sta	SetAltChar		
 		sta	Clr80Col
  		ldx	#$ff
 		txs
	 	jmp	BasStart

LaunOpen
		dc.b	3
		dc.w	OurPath
		dc.w	$bb00
OpenRef		dc.b	0
*
LaunRead
		dc.b	4
ReadRef		dc.b	0
		dc.w	$2000
		dc.w	$ffff
		dc.w	0000
*
LaunClose
		dc.b	1
		dc.b	0
LdrBottom
		export	LoaderLen:equ
LoaderLen	equ	LdrBottom-ZPCode

		ENDP

		end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/Logon/Icon.aii b/IIGS.601.SRC/GS.OS/NetBoot/Logon/Icon.aii
new file mode 100644
index 0000000..7754d00
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/NetBoot/Logon/Icon.aii
@@ -0,0 +1 @@
+;
; Modified:
;  4-15-88 Converted to MAX source (msd)
;

	string asis
;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

IconCount	DC.B $04
	DC.W SysIcon
	DC.W SysIconGS
	DC.W TextIcon
	DC.W BinIcon

SysIcon		; 
	DC.B 'PSYS'
	DC.B $07,$FF,$FF,$F0,$08,$00,$00,$08
	DC.B $08,$00,$00,$08,$09,$FF,$FF,$C8
	DC.B $09,$00,$00,$48,$09,$03,$0C,$48
	DC.B $09,$03,$0C,$48,$09,$06,$18,$48
	DC.B $09,$06,$18,$48,$09,$0C,$30,$48
	DC.B $09,$0C,$30,$48,$09,$18,$60,$48
	DC.B $09,$18,$60,$48,$09,$00,$00,$48
	DC.B $09,$00,$00,$48,$09,$FF,$FF,$C8
	DC.B $08,$00,$00,$08,$08,$00,$00,$08
	DC.B $07,$FF,$FF,$F0,$02,$00,$00,$20
	DC.B $02,$00,$00,$20,$02,$80,$00,$20
	DC.B $02,$00,$00,$20,$03,$B6,$DB,$60
	DC.B $06,$49,$24,$90,$0E,$DB,$6D,$B8
	DC.B $19,$24,$92,$4C,$3F,$FF,$FF,$FE
	DC.B $20,$00,$00,$02,$3F,$FF,$FF,$FE
	DC.B $00,$00,$00,$00,$00,$00,$00,$00
	DC.B $07,$FF,$FF,$F0,$0F,$FF,$FF,$F8
	DC.B $0F,$FF,$FF,$F8,$0F,$FF,$FF,$F8
	DC.B $0F,$FF,$FF,$F8,$0F,$FF,$FF,$F8
	DC.B $0F,$FF,$FF,$F8,$0F,$FF,$FF,$F8
	DC.B $0F,$FF,$FF,$F8,$0F,$FF,$FF,$F8
	DC.B $0F,$FF,$FF,$F8,$0F,$FF,$FF,$F8
	DC.B $0F,$FF,$FF,$F8,$0F,$FF,$FF,$F8
	DC.B $0F,$FF,$FF,$F8,$0F,$FF,$FF,$F8
	DC.B $0F,$FF,$FF,$F8,$0F,$FF,$FF,$F8
	DC.B $07,$FF,$FF,$F0,$03,$FF,$FF,$E0
	DC.B $03,$FF,$FF,$E0,$03,$FF,$FF,$E0
	DC.B $03,$FF,$FF,$E0,$01,$FF,$FF,$C0
	DC.B $03,$FF,$FF,$E0,$07,$FF,$FF,$F0
	DC.B $0F,$FF,$FF,$F8,$3F,$FF,$FF,$FE
	DC.B $1F,$FF,$FF,$FC,$1F,$FF,$FF,$FC
	DC.B $3F,$FF,$FF,$FE,$00,$00,$00,$00

SysIconGS		; 
	DC.B 'PS16'
	DC.B $07,$FF,$FF,$F0,$08,$00,$00,$08
	DC.B $08,$00,$00,$08,$09,$FF,$FF,$C8
	DC.B $09,$00,$00,$48,$09,$03,$0C,$48
	DC.B $09,$03,$0C,$48,$09,$06,$18,$48
	DC.B $09,$06,$18,$48,$09,$0C,$30,$48
	DC.B $09,$0C,$30,$48,$09,$18,$60,$48
	DC.B $09,$18,$60,$48,$09,$00,$00,$48
	DC.B $09,$00,$00,$48,$09,$FF,$FF,$C8
	DC.B $08,$00,$00,$08,$08,$00,$00,$08
	DC.B $07,$FF,$FF,$F0,$02,$00,$00,$20
	DC.B $02,$00,$00,$20,$02,$80,$00,$20
	DC.B $02,$00,$00,$20,$03,$B6,$DB,$60
	DC.B $06,$49,$24,$90,$0E,$DB,$6D,$B8
	DC.B $19,$24,$92,$4C,$3F,$FF,$FF,$FE
	DC.B $20,$00,$00,$02,$3F,$FF,$FF,$FE
	DC.B $00,$00,$00,$00,$00,$00,$00,$00
	DC.B $07,$FF,$FF,$F0,$0F,$FF,$FF,$F8
	DC.B $0F,$FF,$FF,$F8,$0F,$FF,$FF,$F8
	DC.B $0F,$FF,$FF,$F8,$0F,$FF,$FF,$F8
	DC.B $0F,$FF,$FF,$F8,$0F,$FF,$FF,$F8
	DC.B $0F,$FF,$FF,$F8,$0F,$FF,$FF,$F8
	DC.B $0F,$FF,$FF,$F8,$0F,$FF,$FF,$F8
	DC.B $0F,$FF,$FF,$F8,$0F,$FF,$FF,$F8
	DC.B $0F,$FF,$FF,$F8,$0F,$FF,$FF,$F8
	DC.B $0F,$FF,$FF,$F8,$0F,$FF,$FF,$F8
	DC.B $07,$FF,$FF,$F0,$03,$FF,$FF,$E0
	DC.B $03,$FF,$FF,$E0,$03,$FF,$FF,$E0
	DC.B $03,$FF,$FF,$E0,$01,$FF,$FF,$C0
	DC.B $03,$FF,$FF,$E0,$07,$FF,$FF,$F0
	DC.B $0F,$FF,$FF,$F8,$3F,$FF,$FF,$FE
	DC.B $1F,$FF,$FF,$FC,$1F,$FF,$FF,$FC
	DC.B $3F,$FF,$FF,$FE,$00,$00,$00,$00

TextIcon		; 
	DC.B 'TEXT'
	DC.B $0F,$FF,$FF,$F8,$08,$00,$00,$08
	DC.B $08,$00,$00,$08,$08,$00,$00,$08
	DC.B $08,$FF,$BF,$88,$08,$00,$00,$08
	DC.B $08,$FB,$F7,$08,$08,$00,$00,$08
	DC.B $08,$FF,$EF,$88,$08,$00,$00,$08
	DC.B $08,$FB,$FB,$88,$08,$00,$00,$08
	DC.B $08,$00,$00,$08,$08,$00,$00,$08
	DC.B $08,$00,$00,$08,$08,$03,$06,$08
	DC.B $08,$03,$06,$08,$08,$06,$0C,$08
	DC.B $08,$06,$0C,$08,$08,$0C,$18,$08
	DC.B $08,$0C,$18,$08,$08,$18,$30,$08
	DC.B $08,$18,$30,$08,$08,$30,$60,$08
	DC.B $08,$30,$60,$08,$08,$60,$C0,$08
	DC.B $08,$60,$C0,$08,$08,$00,$00,$08
	DC.B $08,$00,$00,$08,$08,$00,$00,$08
	DC.B $08,$00,$00,$08,$0F,$FF,$FF,$F8
	DC.B $0F,$FF,$FF,$F8,$0F,$FF,$FF,$F8
	DC.B $0F,$FF,$FF,$F8,$0F,$FF,$FF,$F8
	DC.B $0F,$FF,$FF,$F8,$0F,$FF,$FF,$F8
	DC.B $0F,$FF,$FF,$F8,$0F,$FF,$FF,$F8
	DC.B $0F,$FF,$FF,$F8,$0F,$FF,$FF,$F8
	DC.B $0F,$FF,$FF,$F8,$0F,$FF,$FF,$F8
	DC.B $0F,$FF,$FF,$F8,$0F,$FF,$FF,$F8
	DC.B $0F,$FF,$FF,$F8,$0F,$FF,$FF,$F8
	DC.B $0F,$FF,$FF,$F8,$0F,$FF,$FF,$F8
	DC.B $0F,$FF,$FF,$F8,$0F,$FF,$FF,$F8
	DC.B $0F,$FF,$FF,$F8,$0F,$FF,$FF,$F8
	DC.B $0F,$FF,$FF,$F8,$0F,$FF,$FF,$F8
	DC.B $0F,$FF,$FF,$F8,$0F,$FF,$FF,$F8
	DC.B $0F,$FF,$FF,$F8,$0F,$FF,$FF,$F8
	DC.B $0F,$FF,$FF,$F8,$0F,$FF,$FF,$F8
	DC.B $0F,$FF,$FF,$F8,$0F,$FF,$FF,$F8

BinIcon		; 
	DC.B 'BINA'
	DC.B $0F,$FF,$FF,$F8,$08,$00,$00,$08
	DC.B $08,$00,$00,$08,$08,$00,$00,$08
	DC.B $09,$18,$8C,$48,$09,$24,$92,$48
	DC.B $09,$24,$92,$48,$09,$24,$92,$48
	DC.B $09,$18,$8C,$48,$08,$00,$00,$08
	DC.B $08,$00,$00,$08,$08,$00,$00,$08
	DC.B $08,$00,$00,$08,$08,$01,$83,$08
	DC.B $08,$01,$83,$08,$08,$03,$06,$08
	DC.B $08,$03,$06,$08,$08,$06,$0C,$08
	DC.B $08,$06,$0C,$08,$08,$0C,$18,$08
	DC.B $08,$0C,$18,$08,$08,$18,$30,$08
	DC.B $08,$18,$30,$08,$08,$30,$60,$08
	DC.B $08,$30,$60,$08,$08,$60,$C0,$08
	DC.B $08,$60,$C0,$08,$08,$00,$00,$08
	DC.B $08,$00,$00,$08,$08,$00,$00,$08
	DC.B $08,$00,$00,$08,$0F,$FF,$FF,$F8
	DC.B $0F,$FF,$FF,$F8,$0F,$FF,$FF,$F8
	DC.B $0F,$FF,$FF,$F8,$0F,$FF,$FF,$F8
	DC.B $0F,$FF,$FF,$F8,$0F,$FF,$FF,$F8
	DC.B $0F,$FF,$FF,$F8,$0F,$FF,$FF,$F8
	DC.B $0F,$FF,$FF,$F8,$0F,$FF,$FF,$F8
	DC.B $0F,$FF,$FF,$F8,$0F,$FF,$FF,$F8
	DC.B $0F,$FF,$FF,$F8,$0F,$FF,$FF,$F8
	DC.B $0F,$FF,$FF,$F8,$0F,$FF,$FF,$F8
	DC.B $0F,$FF,$FF,$F8,$0F,$FF,$FF,$F8
	DC.B $0F,$FF,$FF,$F8,$0F,$FF,$FF,$F8
	DC.B $0F,$FF,$FF,$F8,$0F,$FF,$FF,$F8
	DC.B $0F,$FF,$FF,$F8,$0F,$FF,$FF,$F8
	DC.B $0F,$FF,$FF,$F8,$0F,$FF,$FF,$F8
	DC.B $0F,$FF,$FF,$F8,$0F,$FF,$FF,$F8
	DC.B $0F,$FF,$FF,$F8,$0F,$FF,$FF,$F8
	DC.B $0F,$FF,$FF,$F8,$0F,$FF,$FF,$F8

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/Logon/LogApp8.aii b/IIGS.601.SRC/GS.OS/NetBoot/Logon/LogApp8.aii
new file mode 100644
index 0000000..25429eb
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/NetBoot/Logon/LogApp8.aii
@@ -0,0 +1 @@
+;------------------------------------------------------------
; LogApp8.aii
;
; This is the P8 Application form of Logon.
;
;------------------------------------------------------------
		longa	off
		longi	off
		
		INCLUDE	'cons.macros'
		include	'Console.equates'

; macro to make an AppleTalk call for P8
		macro
&lab		ATCall	&Parm
&lab		jsr	$BF00
		dc.b	$42		; AppleTalk call number
		dc.w	&Parm		; pointer to parameter block
		mend

**************************************************
* OSFlag indicates the application type and is defined
* as follows:
*
* ProDOS 16 application = 64
* ProDOS 8 application = 0
* ProDOS 16 Boot Blocks = 192
* ProDOS 8 Boot Blocks = 128
*
**************************************************
OSFlag		equ	0			; ProDOS 8 application
NBPBuffLen	equ	8192
AFPVersion	equ	$0200		; AFP version 2.0

;CardPtr	equ	$FE

; In P8 application, they would be equates to areas between $800 and $2000,
; except for NBPBuffer which would go up high in memory ($9F00).  Here,
; NBPBuffer extends past $2000 where P8 was; this is OK since that memory
; is no longer needed by the time Logon is running.

LogonRec	Record	$800
ReplyBuff	DS.B	768
ArrayBuff	DS.B	512
WindowBuff	DS.B	512
MySelArray	DS.B	256
FSName		DS.B	64
NameBuffer	DS.B	64
PassBuffer	DS.B	16
NewPassWrd	DS.B	16
LogPckt		DS.B	128
Prefix		DS.B	128
SessBuff	DS.B	1024
CompSelArray	DS.B	256
BuffersEnd
		EndR

NBPBuffer	equ	$BF00-NBPBuffLen		; put NBP buffer just below MLI globals

BootApp8	PROC export

		export	(InitParm,FrameParms1,MainWindow):code
		export	(TitLine,SelXPos,SelYPos):code
		export	(Increment,Selindex,StgArrayPtr):code
		export	(ArrayCnt,ListOptByte,ListParms):code
		export	(RestoreBox,MessParms,MessPtr):code
		export	(FilterProc,MessOpt):code
		export	(MessageWind,MainWindow):code
		export	(Mess0,Mess20,Mess15):code
		
		import	ZPLabel
		import	LoaderLen:equ
		import	ConsDrvr
		with	LogonRec
		
;------------------------------------------------------------
;
; Initialize ProDOS 8's bitmap
;
;------------------------------------------------------------
ClearBitMap
		lda	#0			;Clear the system bit map
		tay
CLRBM		sta	$BF58,Y			;
    		iny
		cpy	#23         		;22 TIMES
		bne	CLRBM
		lda	#1          		;SET THE 23RD BIT TO ONE
		sta	$BF58,Y        		;
		lda	#$cf			;save zero page from ProDOS
		sta	$Bf58			;help it, protect itself!
		lda	LastDev			;get the device we were loaded from		
		sta	UnitNum			;store it into GetFileInfo parms
		sta	RBUnitNum		;store it into the read block parms

;------------------------------------------------------------
;
; Initialize the console driver
;
;------------------------------------------------------------
		lda	#$80			; 80-column, not in GS mode
		sta	InitParm
		InitConsole
		CursorOff
		
		jsr	DrawLogOnScrn		; draw splash screen
		
;------------------------------------------------------------
;
; Fall into Logon's main loop
;
;------------------------------------------------------------

		INCLUDE	'logon.main'
		INCLUDE	'icon.aii'

		ENDP

		end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/Logon/Logon.Main b/IIGS.601.SRC/GS.OS/NetBoot/Logon/Logon.Main
new file mode 100644
index 0000000..02e5aee
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/NetBoot/Logon/Logon.Main
@@ -0,0 +1 @@
+	string asis
;------------------------------------------
;
; Equates from procedure 
;
;------------------------------------------
CheckMach	equ $fe1f	;Monitor Routine to	check machine type
p16flag	equ $E100BD
LastDev	equ $bf30
ZP	equ $1000	; where ProDOS 8 "loader" goes.
;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

	IMPORT DES

;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

************************************************************************
*
*  Logon.asm
*
*  Copyright Apple Computer Inc., 1987
*  All rights reserved
*
*  Written by	Richard B. Hoiberg
*  Created: 11-Oct-86
*
*  Modification history:
*
*  14-Jul-87	Fixed stack bug in error handling -	RGKKSA003 (rbh)
*  15-Jul-87	Fixed bug in chooser server with backward beq longer than
*	127.  (rbh)
*  29-Jul-87	Added changes for the new Message routines in the console
*	driver (rbh)
*  30-Jul-87	Escaping from the volume list now exits the program without
*	mounting selected volumes. (rbh)
*  2-Aug-87	Fixed bug in Error loop, where GetServerParms got called
*	unintentionally. (rbh)
*  2-Aug-87	Changes made so that one volume could be mounted correctly. (rbh)
*  6-Aug-87	Changed the input routine so that return in the name field acts the
*	same as a Tab.
*  6-Aug-87	Added current zone to select zone list.
*  20-Aug-87	Fixed stack for continous Rebooting over the network
*
*  28-Sept-87	Move the FINaming call to ByeBye so that the Naming
*	convention would always be set to ProDOS Naming.
*  28-Sept-87	Set the name of a guest to <Any User> using the FIName
*	call.
*  11-Oct-87	Modified to allow execution in any bank with 65816.
*	Should be called in 8-bit native mode.  (Mark Day)
*  15-Apr-88	Converted to MAX source (msd)
*  18-Apr-88	Modified ProDOS 8 "launch" routine to run at $1000 (msd)
*  29-Apr-88	Verifies volume name during update name (msd)
*	Version number changed to 1.1d2
*  25-May-88	Two-byte decrements were decrementing the high byte
*	when low byte turned to 0 (instead of $FF).  Located
*	in LaunchAppl at LA3 and in ItemSel at NS1.  If an invalid
*	session number error is returned in MountVol, the "Server
*	not responding" message is displayed instead of "This
*	volume does not have a proper ProDOS pathname".  (msd)
*  27-May-88	Trying to work-around a bug that causes partial pathnames
*	not to work after quitting logon.  Do GetPrefix then
*	SetPrefix after setting short naming mode.
*  2-Jun-88	From "Select a file server" menu, when you got a
*	"Server not responding" message, it would look for
*	servers again and let you select one.  When you
*	selected Registered User or Guest, it would go back
*	to looking for servers.  This has been fixed (MSD).
*	Version is now 1.1d5.
*  20-Oct-88	Restructred for conditional assemblies (RBH)
*  25-Jan-89	Trying to make sure page-wrap problems don't happen.
*	Code is typically of the form:
*	  lda #<address+n
*	  sta ...
*	  lda #>address
*	  sta ...
*	You usually want #>address+n.  This will cause
*	problems when address and address+n are in
*	different pages.  (MSD)
*  7-Feb-89	The code to check for a volume password was using
*	(StgPtr2),y without setting Y.  Changed to (StgPtr2)
*	since StgPtr2 points to the password flag at that time.
*  19-Nov-90	Fixed some problem with >128 zone names where the index
*	into the string pointer array is only one byte (so an
*	ASL to convert it into a word pointer loses the upper
*	bit).  (MSD)
*  13-Dec-90	Fixed LaunchAppl to check the file type of the file it is
*	about to launch.  It must be type $FF (ProDOS SYS file).
*	Version is 1.3d2.  (MSD)
*  04-Jun-91	Starting to make changes to allow you to mount volumes
*	without having to mount a user volume.  This makes us
*	work better with File Sharing.  Version is 1.3d3.
*  12-Jun-91	Version 1.3d4.  The server and volume lists are now sorted.
*	All lists now uses keyboard navigation.
*  13-Jun-91	Version 1.3d5.  ProDOS 16 booting now includes both the
*	GS/OS and ProDOS 8 code.  A new flag, BootOS, is used to
*	decide at run-time (as opposed to compile time) which
*	code path to take.  BootOS is 1 for GS/OS, 2 for ProDOS 8.
*  18-Jun-91 MSD	Version 1.4d6.  ProDOS 16 application (and CDA) version
*	now allows no user volume to be mounted.  Remove sorting
*	of volume list since it doesn't sort the array of selection
*	flags (telling which is a user volume, for example).
*	The version is now 1.4xx to avoid confusion with the
*	separately maintained version 1.3 for Double Exposure.
*	Retry for lookup of servers changed to 16 times, every second.
*  25-Jun-91	Don't check for the router's node number being non-zero before
*	trying a GetMyZone or GetZoneList.  On 976, you can have zones
*	even though you don't have a router on your local network.
*	Version changed to 1.4d7.
*  09-Jul-91 MSD	Changing the retry interval and count for the GetMyZone call to
*	better handle the case where there are zones.  Version changed to
*	1.4d8.
*  11-Jul-91 MSD	Conditionally assembled out registering of a user name from the
*	GS boot blocks (since the GS uses the actual name structure, not
*	a copy like the Bullwinkle card does).
*  06-Aug-91 MSD	FindCard fixed to bypass the GS's built-in LocalTalk firmware and
*	continue looking for a real card.
*
*  27-Aug-91 MSD	The ByeBye routine for P16 boot blocks branches back to Logon which
*	destroys the BootOS flag.  Added new label "LogRestart16" to branch
*	back to.  Version changed to 1.4d9.
*   7-Feb-92 MSD	Changed copyright dates to include 1992.  Changed version to 1.4 final.
*  31-Aug-92 MSD	Changed version to 1.5d1.  It now checks the error from the GetInfo call
*	that is made when the program first runs.  If there was an error, then
*	an alert is displayed and the program quits.  Fixes bug #1035511.
*  25-Nov-92 DAL	Added a "Looking for AppleTalk zones" message while looking for zones.
*	Added a store of $AA to location $00 on getting a generic error.
*   2-Apr-93 DAL	Changed version to 1.5 final.
*
*************************************************************************

Home	equ $FC58
CrHB	equ $8d
TabHB	equ $89
mli	equ $BF00
StgPtr	equ $83
StgPtr2	equ $85
BasStart	equ $2000
IOBuff	equ $bb00
OurPath	equ $280
RomIn	equ $c082
SetVid	equ $fe93
SetKbd	equ $fe89
RomID	equ $fbc0
Cout	equ $fded
ch	equ $24
Speaker	equ $c030
Clr80Vid	equ $c00c
SetAltChar	equ $c00f
Clr80Col	equ $c000
SelPtr	equ $fe
Null	equ 0
MachId	equ $bf98
Open	equ $c8
Write	equ $cb
SetMark	equ $ce
Close	equ $cc
GetEof	equ $d1
Set_Prefix	equ $c6
GetPrefix	equ $c7
Quit	equ $65
ReadBlock	equ $80
Flush	equ $cd
GetFInfo	equ $c4
Online	equ $c5
Read	equ $ca


MailFlagOffset	equ 276
PathOffset	equ 269
PfxOffset	equ 198
PrOffset	equ 99
NameOffset	equ 133
NameLen	equ 31

Logon
	IF OSFlag = 192 THEN
	sta BootOS	; remember which OS we're booting into
		; it will be positive for GS/OS
	clc
	xce	; force native mode!
	rep #$30	; long mode so we can save S
	longa on
	longi on
	tsc	; stack in A (C)
	sta Stack16	; save off stack at entry
	sep #$30	; back to 8-bit mode
	longa off
	longi off
	ENDIF
LogRestart16
	stz ZoneFlag
	stz SkipFlag
	ATCall GetInfo
	bcc @installed	; no error, AppleTalk is installed
	ldx #16	; "AppleTalk must be installed"
	ldy #$80	; OK button only (no Cancel)
	jsr ErrorHandler
	jmp ByeBye	; Log out and exit
@installed
	lda ABridge
		; 25-Jun-91 MSD
		; Don't check the router node.  Try
		; the GetMyZone and handle the error
		; if we get one (might work with 976).
	sta BridgeNode
	ATCall GetMyZone
	bcs @LI2	;oops! the GetMyZone call failed, time to punt
	lda #$80
	sta ZoneFlag	;there are zones
	lda #0	;push the offset
	pha	;
	PushWord #ZoneName	;push the destination
	PushWord #ReplyBuff	;push the source
	_MoveStr
@LI2
	WriteChar RstWind	;restore the window
	WriteChar ClrWind


	FrameRect FrameParms1
	SViewPort MainWindow
	WriteCStr Title
	ReptChar TitLine
Main
	stz OtherSrvrFlg	; MSD: don't need to get another server anymore
	jsr FindServers
	cmp #Return
	beq @SaveNode
	bit ZoneFlag
	bmi @NewZone
	jmp ByeBye
@SaveNode	jsr SaveNode	;get the entity address, and check version and UAM
	beq @Login	;no error, so Logon	to the file Server.
	bra Main	;select another server
@NewZone	jsr ChangeZone	;get another zone
	cmp #Return
	beq @NZ1
	jmp ByeBye	;get a list of Servers from the new zone
@NZ1	bit ZoneFlag
	bpl Main
	jsr TheNewZone
	bra Main
@Login		;
	IF OSFlag = 0 then
	jsr GetUserName	;get the user name here from the ATINIT	file
	Else
	stz NameBuffer
	EndIF
	lda #0	;zero length AFP Login packets are not sent
	jsr CheckLogin	;across network, just checking for existing session
	beq @Main3	;no error means we have not logged on to this server
		;we have already logged on to this server
		;to fix an non updated Toucan disk
	cmp #Return
	beq @Main2	;if it was a return, give him a volume list
		;not return so an Escape was pressed
	ldx MatchNum	;check to see if there is only one server
	cpx #1	;if there is only one server and Escape
	bne @Main1	;was pressed, then there are more zones
	bra @NewZone	;get this boy a new	zone
@Main1	bra Main	;get this dude a new server in this zone!
@Main2	jsr SaveSess	;return was pressed, let him mount/unmount volumes
	bra ByeBye	;all done
@Main3	jsr GetSelection	;see how the user wants to logon
	cmp #Return
	beq @Main5
	bit SkipFlag
	bpl @Main4
	jmp ByeBye
@Main4		; 
	stz OtherSrvrFlg	;clear another server flag
	jmp Main
@Main5	lda SelIndex
	sta MySel
@Main6		; 
	bit OtherSrvrFlg
	bmi @Main4
	bit AuthFlag	;test authflag
	bmi @Main3
	lda MySel
	cmp #1
	beq @Main7
	cmp #2
	beq @Main8
@Main7		; 
	stz AuthFlag
	jsr DoGetInput
	bcc @LogAgain
	jmp @Main3
@Main8		; 
	lda #$80
	sta AuthFlag
@LogAgain		; 
	jsr DoLogon
	bne @Main6
	IF OSFLAG = 0 then 
	lda MySel
	cmp #3
	bne @Main9
	jsr ChangePass	;Change the password
	jmp @Main3
	EndIF
@Main9	jsr SaveSess
	beq @Main10	;if zero, all went well
	cmp #$80	;check for a returned value of $80
	beq @Main4	;if it is, then get	new server
	jsr LogMeOut	;returned value was	$c0, escape was pressed
	bra ByeBye
@Main10	;
	IF (OSFlag = 128) then
	jmp LaunchAppl	;Prodos8 System application to ProDOS quit
	EndIF

	IF (OSFlag = 192) then
	lda BootOS
	dea	; was it 1 (GS/OS)?
	beq @rts	; yes, so just return to Fizzy
	jmp LaunchAppl	; do this if we're booting P8
@rts
	rts	; return to GS/OS boot logon
	EndIF

*
ByeBye		; 

	IF OSFlag = 128 then
	jsr LogMeOut
	jmp LogRestart	; else do ProDOS 8 restart
	EndIF
	
	IF OSFLag = 192 then
	jsr LogMeOut	; make sure I'm logged out
	clc
	xce	; force native mode!
	rep #$30	; long mode to restore S
	longa on
	longi on
	lda Stack16	; get stack at entry
	tcs	; and restore it
	sep #$30	; back to 8-bit mode
	longa off
	longi off
	brl LogRestart16	; go back and log on again
Stack16	dc.w 0	; save area for stack pointer on entry
BootOS	dc.b 0	; tells us which OS we're booting into
		; 1 = GS/OS, 2 = ProDOS 8
	EndIF

	IF OSFlag = 0 Then		; 
	stz AuthFlag	;clear the Authorization flag, not a guest
	jsr CheckMail	;check for mail
	stz QuitParm+1	;clear the ProDOS 8	enhanced quit call
	cld	;msd: clean up screen when launched
	lda RomIn	;msd: as a ProDOS 8	application
	jsr SetVid
	jsr SetKbd
	jsr Home
	sta Clr80Vid
	sta SetAltChar
	sta Clr80Col
	lda #<Prefix	;MSD: Workaround for bug where
	sta SetPrefix+1	; ProDOS 8 doesn't understand the
	lda #>Prefix	; prefix set during	long naming mode.
	sta SetPrefix+2	; (start by pointing to buffer for
	jsr mli	;  the prefix to be	returned).
	dc.b $C7
	dc.w SetPrefix	; Do GetPrefix and SetPrefix
	bcs @PQ1	; to force ProDOS 8	to understand
	jsr mli	; the prefix.  But don't do a
	dc.b $C6	; SetPrefix if the GetPrefix failed.
	dc.w SetPrefix
@PQ1
	jsr mli	;do the ProDOS quit
	DC.B Quit
	DC.W QuitParm
	ENDIF
	
	IF OSFlag = 64 Then		;
	rts
	EndIF
*
GetSelection	
	jsr ClearWindow
	bit SkipFlag
	bpl @GS1
	WriteCStr Prompt9
	bra @GS2
@GS1		; 
	WriteCStr Prompt1
@GS2	stz AuthFlag	;clear the Authorization flag
	ldx #5
	stx SelXPos	;set the current x select position
	ldx #3
	stx SelYPos
	ldx #1
	stx Increment
	stx SelIndex
	lda #StrArray
	sta StgArrayPtr
	lda #>StrArray
	sta StgArrayPtr+1
	lda #2	;set this to 3 for change password option
	sta ArrayCnt
	sta ListOptByte
	ListHandler ListParms
	rts

LaunchAppl		;
	IF (OSFlag = 128) or (OSFlag = 192) then
	jsr CheckMail	;check for mail and	load ATINIT
	sec	;calculate position	in the file
	lda EOFPntr	;where the printer tuple is
	sbc #PrOffset	;
	sta PrName	;store in the PMSetPrinter parm list
	sta StgPtr
	lda EOFPntr+1	;do the high byte
	sbc #>PrOffset	;
	sta PrName+1	;
	sta StgPtr+1	;need to use zero page to move the
	lda StgPtr	;Printer Flag Byte
	bne LA3	;decrement string pointer by one
	dec StgPtr+1	;both the high and low bytes
LA3	dec StgPtr	;msd: decrement fixed
	ldy #0	;get the printer flag byte
	lda (StgPtr),y	;
	sta theflag	;and store in in the PMSetPrinter parm list
	ATCall setprint	;set the printer name
	sec
	lda EOFPntr
	sbc #PfxOffset
	sta SetPrefix+1
	lda EOFPntr+1
	sbc #>PfxOffset
	sta SetPrefix+2
	sec
	lda EOFPntr
	sbc #<PathOffset
	sta StgPtr
	sta GetFInfoParm+1
	sta QuitParm+2
	lda EOFPntr+1
	sbc #>PathOffset
	sta StgPtr+1
	sta GetFInfoParm+2
	sta QuitParm+3

* SET UP THE PATH TO FIND THE REST OF THE FILES

	ldy #0
	lda (StgPtr),y
	tax
	bne PathMuv
	jmp ATOpenErr
PathMuv	sta OurPath,y
MuvLup	iny
	lda (StgPtr),y
	sta OurPath,y
	dex
	bne MuvLup
	jsr mli
	DC.B GetFInfo
	DC.W GetFInfoParm
	bcc LA2
	jmp FileOpenErr
LA2
;
; MSD 13-Dec-90: If the filetype is not SYS, put up a message and stop.
; --->
;
	lda GetFInfoParm+4	; filetype
	cmp #$FF	; SYS?
	beq @isSYS	; yes, continue launch
	ldx #24	; "not a ProDOS 8 app"
	ldy #$80	; OK button only (no Cancel)
	jsr ErrorHandler
	jmp ByeBye	; Log out and try again
@isSYS
; <---
; End of MSD 13-Dec-90 change.
;
	jsr DrawBox	;
	WriteChar Return	;
	WriteCStr LaunchStart ;Put up our prompt
	WriteChar Return	;One line
	WriteChar Return	;two lines
	jsr PathProc	;and the path that we are launching
	jsr mli
	DC.B $c6
	DC.W SetPrefix
	bcc LA1
	jsr PathOpenErr
	bra LA2

LA1
	IF OSFlag=128 THEN
	jsr RegisterName
	ENDIF
DoIt
	ldx #00	;ELSE NEW INDEX TO 0
MovLP	lda ZPLabel,X	;MOVING LOADER CODE	TO PAGE ZERO
	sta zp,X	;ONE AT A TIME
	inx	;NEXT ONE
	cpx #LoaderLen	;WAS THAT THE LAST ONE
	bne MovLP	;TAKEN IF NOT
	jmp zp	;GIVE THE SHOW TO LOADER

FileOpenErr		; 
	cmp #$4e
	bne FOE1
	ldx #23	;do message number 23 - access error
	bra FOE3
FOE1	cmp #$46
	beq FOE4
	cmp #$44
	bne FOE2
FOE4	ldx #5	;do message number 5 - file not found
	bra FOE3
FOE2		; 
	cmp #$45	;was the error volume not found?
	bne FOE9
	ldy #2
FOE8	lda OurPath,y
	cmp #'/'
	beq FOE7
	iny
	bra FOE8
FOE7		; 
	sty OurPath
	ldx #26
	ldy #0	;if the file is not	found, maybe the wrong
	bra FOE5	;volumes were mounted.
FOE9	ldx #6	;unknown file open err - generic
FOE3	ldy #$80
FOE5	jsr ErrorHandler
	cmp #Escape	;if escape was pressed, mount a differnt volume
	bne FOE6	;if return, exit the program
	jsr SaveSess	;
	cmp #$c0
	beq FOE6
	jmp LaunchAppl	;try a new launch
FOE6		; 
	jmp ByeBye

PathOpenErr	ldx #11
	ldy #$80
	jsr ErrorHandler
		;default prefix = path minus application name
DefPrefix		; 
	ldy #0	;back up from the end of the string
	lda (StgPtr),y	;until we reach a backslash
	tax	;
	tay	;
PrefixLup	lda (StgPtr),y
	cmp #'/'	;is it a backslash
	beq NewPrefix	;this is our new prefix length
	dey
	dex
	bne PrefixLup
NewPrefix		; ;length of the default prefix is in x	register
	ldy #0	;zero y register for indexing
	txa	;store the length of the new prefix
	sta Prefix,y
MuvPfx	iny
	lda (StgPtr),y
	sta Prefix,y
	dex
	bne MuvPfx
	lda #<Prefix
	sta SetPrefix+1
	lda #>Prefix
	sta SetPrefix+2
	rts
	
	IF OSFlag=128 THEN
RegisterName		; 
	lda #9
	pha	;offset by 9
	sta MovOffset
	PushWord #ArrayBuff	;set up the zero page pointers for Register Name
	PushWord #NameBuffer	;
	_MoveStr	;move the string
	lda NameBuffer
	clc	;calculate the next offset
	adc MovOffset	;
	inc a	;take into account for the string length
	sta MovOffset	;this is the next offset
DoType	sec	;check to see the Machine type
	jsr CheckMach	;this monitor routine has a special purpose
	bcs TwoE	;if the carry is set, it is a //e
	lda MovOffset
	pha
	PushWord #ArrayBuff	;set up the zero page pointers for Register Name
	PushWord #GSType	;
	_MoveStr	;to make the name tuple
	lda GSType
	bra DoRegName	;
TwoE		; 
	lda MovOffset
	pha
	PushWord #ArrayBuff	;set up the zero page pointers for Register Name
	PushWord #TwoEType	;
	_MoveStr	;to make the name tuple
	lda TwoEType
DoRegName		; 
	clc	;calculate the next offset
	adc MovOffset
	inc a	;take into account for the string length
	pha	;this is the next offset
	PushWord #ArrayBuff	;set up the zero page pointers for Register Name
	PushWord #MyZone	;
	_MoveStr	;to make the name tuple
	ATCall RegstrName	;
	bcc alldone	;if the carry is clear, it was successful
	jsr DeriveName	;derive a new name
	bcs alldone	;if carry is set we	have already tried 99 times
	jmp RegisterName	;do it again
alldone	rts	;finally done

DeriveName		; 
	stz NoNameFlag	;clear the NoName Flag
	ldx NameBuffer	;get the last byte in the name buffer
	lda NameBuffer,x	;
	cmp #'>'	;see if the last character is a ">"
	bne DN1	;if not, dont set NoNameFlag
	lda #$80	;here we set the high bit 
	sta NoNameFlag	;to indicate No Name or Any User
DN1		; ;
	lda DeriveCnt	;get the Count
	bne DN2	;if not zero, we dont need to add one to 
	jsr AddOne	;this string
	bra DN3	;this is the first pass at derivation
DN2	cmp #9	;is the count 9?
	bne DN3	;no, so check for 99
	jsr AddOne	;it was 9, so add a	character for "10"
DN3		; ;
	cmp #99	;is the count 99?
	bne DN4	;it wasnt so update	the string
	sec	;99 times, give it up!
	rts

DN4		; 
	ldx NameBuffer	;get the Length of the string
	bit NoNameFlag	;check for No Name
	bpl DN5	;if not X is not decremented
	dex	;
DN5	inc NameBuffer,x	;add one to the ascii character in string
	lda NameBuffer,x	;get the character
	cmp #$3A	;is it an Ascii ':'?
	bne DNDun	;if not, we are done
	lda #$30	;it was, so we had wrap around
	sta NameBuffer,x	;update for the right ascii character
	dex	;
	inc NameBuffer,x	;and increment the ten position character 
DNDun	inc DeriveCnt	;update the DeriveCnt
	clc
	rts


AddOne		; ;add the "0" character to the string
	pha	;the Derivation count is in the accumulator
	cmp #9	;is the count 9?
	bne AO2	;if not, branch here without changes    
	lda NameBuffer	;it is so add another character to the string
	cmp #NameLen	;is the length 31?
	beq AO1	;if it is, we will need to truncate
	inc a	;add one to the accumulator
	inc NameBuffer	;add one to the string length
AO1	tax	;to the X regsiter
	bit NoNameFlag	;check the NoNameFlag
	bpl AO4	;if it is plus, then there is not the ">" at the end
	dex	;back up one character for No Name - ">"
AO4	lda #$2f	;init the count for	two bytes
	sta NameBuffer,x	;store $2f here
	dex	;
	lda #$31	;
	sta NameBuffer,x	;and $31 here
	bra AODun	;to the bottom of the loop
AO2		; 
	lda NameBuffer	;get the length of the string in NameBuffer
	cmp #NameLen	;is it 31?
	beq AO3	;if so, the string does not need to be incremented
	inc a	;increment a
	inc NameBuffer	;and the string
AO3		; 
	tax	;into the x register
	bit NoNameFlag	;check for NoName -	">"
	bpl AO6	;if not, store at current x postion 
	dex	;it is No Name so, decrement by one
AO6	lda #$30	;store $30 at the postion pointed to by	X
	sta NameBuffer,x	;
AODun		; ;
	bit NoNameFlag	;is this still No Name?
	bpl AO5	;if not, were done!
	lda #'>'	;the last character	is the - ">"
	ldx NameBuffer	;
	sta NameBuffer,x	;update the last character in the string
AO5	pla	;and restore the accumulator
	rts	;bye, bye

FindCard		; 
	jsr Check2e	;check to see if the //e is properly configured
	lda #$f9	;it came back so we	are ok
	sta cardptr
	lda #$c7
	sta cardptr+1
NxtSlot	ldy #3
ckloop	lda (cardptr),y
	cmp idtbl,y
	bne NoMatch
	dey
	bpl ckloop
	ldy #4
	lda (cardptr),y
	beq NoMatch	; 6-Aug-91 MSD: bypass GS's built-in LocalTalk
	cmp #1
	bne NoGo
	clc
	rts

NoMatch		; 
	dec cardptr+1
	lda cardptr+1
	cmp #$c0	;are we finished scanning the slots?
	bne NxtSlot
NoGo	sec
	rts

Check2e		; 
	sec	;check to see if the machine is a //gs
	jsr CheckMach	;
	bcc IIeGood	;if so, we are done
	lda #0	;load the accumulator
	inc a	;this is a 65C02 instruction
	beq NoGood2e	;if zero, this is a	6502
	lda MachID	;get the ProDOS MachID
	and #$F2	;clear the unwanted	bits
	cmp #%10110010	;this should be the	result 128K, 80 Col
	bne NoGood2e
	lda RomID	;check for enhanced	roms
	cmp #$e1	;debugger roms
	beq IIeGood
	cmp #$E0	;is the byte E0?
	bne NoGood2e	;Off we go to display the message
IIeGood	clc	;clear the carry flag
	rts	;we have passed the	test

NoGood2e		; 
	jsr Home	;clear the screen
	jsr DrawInvBox	;draw a box for display
	ldy #7
	ldx #5
	jsr gopos	;set the cursor position
	lda #<qmsg1
	ldx #>qmsg1
	ldy qmsg1len
	jsr printblk	;print the message
	ldy #9
	ldx #5
	jsr GoPos
	lda #<qmsg2
	ldx #>qmsg2
ge1		; 
	ldy qmsg2len
	jsr printblk	;print the message
nopass		; 
	jsr Dobell
NoGo2	jmp NoGo2

PrintBlk		; 
	sta stgptr	;SET UP ZERO PAGE
	STX StgPtr+1	;
	sty BlockLen	;SAVE THE NUMBER OF	CHARACTERS TO PRINT
	ldy #0	;START WITH CHARACTER #1
PLOOP	lda (StgPtr),Y	;GET THE CHARACTER
	ORA #$80	;SET THE HIGH BIT 
	jsr cout	;OUTPUT TO SCREEN
	iny	;INCREMENT Y REGISTER
	cpy BlockLen	;CHECK TO SEE IF WERE AT THE END OF BLK
	bne PLoop	;IF NOT CONTINUE
	inc ch	;add one to ch, not	sure why??
	rts	;IF SO, WE ARE DONE

gopos		; 
	dey	;Setup the Y screen	coordinates from 1-24, not the
	tya	;monitior 0-23.
	jsr vtab	;set the vertical position
	dex	;Setup the X screen	coordinates from 1-80, not the
	stx ch	;set the horizontal	position.
	rts	;and return

Dobell		; 
	LDA #$40	;DURATION
	STA B_LNGTH
BELL_1	LDA #$02	;SHORT DELAY
	JSR B_WAIT
	STA Speaker
	LDA #$24	;LONG DELAY
	JSR B_WAIT
	STA Speaker
	DEC B_LNGTH
	BNE BELL_1
	RTS

DrawInvBox		; 
	lda #10
	sta DrawCnt
	ldy #5
	sty Ypos
	ldx #2
	jsr GoPos
	ldx #37
DrawLup1	lda #$20	;an inverse space character
	jsr cout
	dex
	bne DrawLup1
Frame	inc Ypos
	ldy Ypos
	ldx #2
	jsr GoPos
	lda #$20
	jsr Cout
	ldy Ypos
	ldx #38
	jsr GoPos
	lda #$20
	jsr Cout
	dec DrawCnt	;until the count equals zero
	bne Frame
	ldy YPos
	ldx #2
	jsr GoPos
	ldx #36
DrawLup2	lda #$20	;an inverse space character
	jsr cout
	dex
	bne DrawLup2
	rts

;
; WAIT ROUTINE
;
B_WAIT	SEC
B_WAIT2	PHA
B_WAIT3	SBC #1
	BNE B_WAIT3
	PLA
	SBC #1
	BNE B_WAIT2
	RTS
;
	ENDIF
	ENDIF

*****************************************
*       Find Server		*
*****************************************

FindServers		; 
	jsr ClearWindow	;clear the window
	GotoXY 3,5	;move the cursor
	WriteCStr SelectServ ;draw the prompt to select a server
	FrameRect FrameParms3 ;draw a rectangle
StartNbp		; 
	bit ZoneFlag	;is there zones?
	bpl FS1	;if no zones, assume MyZone
	GotoXY 3,3	;move the cursor
	WriteCStr CurrZone	;String "Current Zone:"
	ldx #ZoneName	;then print the zone name
	ldy #>ZoneName	;
	WritePointer	;
	WriteCStr Prompt6	;the prompt says: "Esc: Change Zones"
	bra FS2	;
FS1	WriteCStr Prompt1	;the prompt says: "Esc: Quit"
FS2		; 
	SViewPort ListWindow ;set the view port to the list window
	WriteChar ClrWind	;clear it
	jsr DrawBox	;draw a temporary box
	WriteChar Return	;next line
	WriteCStr FSLookup	;Print "Looking for AFP File Servers"
@dolookup
	ATCall LkupPl	;do the NBP Lookup
	bcc FS2C	;skip this check if no error
	lda LkupPl+3
	cmp #4	; NBP error?
	bne @err	; no, skip the check
	lda LkupPl+2
	cmp #8	; was it "Too many NBP processes"?
	beq @dolookup	; if so, try the call again
@err
	sec	; else it was some other error
FS2C
	php	;save the status
	jsr RestoreBox	;remove the box on the screen
	SViewPort ListWindow ;restore the view port to the list window
	plp	;check the carry for an error
	bcc ChooseSvr	;if clear, chooser the server
	lda LkupPl+3	;check to make sure	this was a NBP error
	cmp #4	;
	bne FS3	;if not, a system error occurred
	lda LkupPl+2	;check to see if it was a user buffer full error
	cmp #$04	;
	beq ChooseSvr	;if it was, display what we got
FS3	jmp SysErr	;
ChooseSvr	ldx MatchNum	;get the number for matches
	bne GotSvrs	;if not zero, show the list
	ldx #7	;if none, do an error message and let the
	ldy #0	;user try again if he wants
	jsr ErrorHandler	;
	cmp #Return	;if esc was pressed return to the caller
	bne cs1	;
	jmp FS2	;try the lookup again
cs1	rts

GotSvrs		; 
	stx ArrayCnt	;set up the ListParm ArrayCnt
	lda #<NBPBuffer	;initialize zero page for indexing into the buffer
	sta StgPtr	;
	lda #>NBPBuffer	;
	sta StgPtr+1	;
	lda #<ArrayBuff	;Arraybuff is where we will have a list of pointers
	sta StgPtr2	;
	sta StgArrayPtr	;set up the ListParm StgArrayPtr
	lda #>ArrayBuff	;
	sta StgPtr2+1	;
	sta StgArrayPtr+1	;
GetPointer	phx	;save the x register
	clc	;add five to the NBP tuple
	lda #5	;so that we are pointing to the string
	adc StgPtr	;that is the name of the File Server
	sta StgPtr	;
	lda #0	;
	adc StgPtr+1	;
	sta StgPtr+1	;
	lda StgPtr	;get the low byte of the pointer
	ldy #0	;
	sta (StgPtr2),y	;store it into the Array buffer
	lda StgPtr+1	;get the high byte
	iny
	sta (StgPtr2),Y
	lda #2	;add two to StgPtr2 so that it 
	jsr IncStgPtr2	;points to the next available location
	ldx #3	
GetNxtPtr	PushWord StgPtr	;
	_NextStr	;move StgPtr three strings to the end of this
	PullWord StgPtr
	dex	;tuple
	bne GetNxtPtr	;
	plx	;get the x register back which has the number of tupples
	dex	;until x = 0
	bne GetPointer	;do it again
	bit ZoneFlag	;are there zones?
	bmi GS1	;if so, always display the list
	ldx MatchNum	;get the count
	cpx #1	;is there only one item?
	bne GS1	;if not, display the list
	stx SelIndex	;otherwise, pretend that this one was selected
	lda #$80	;update the skipflag
	sta SkipFlag	;
	lda #Return	;the routine above us looks for return
	rts	;
GS1		;
;
; 12-Jun-91 MSD: Sort the list of file servers!
;
	lda ArrayCnt
	pha	; push number of entries
	PushWord #ArrayBuff	; push address of list of pointers
	_SortArray	; Go sort that puppy!
;
; End of 12-Jun-91 MSD change.
;
	stz SelXPos	;Set the X position to zero
	stz SelYPos	;Set the Y position to zero
	stz Increment	;Set the increment to zero
	ldx #1	;select the first item in the list
	stx SelIndex	;
	ldx #$44	;set for fill mode and keyboard navigation
	stx ListOptByte	;
	ListHandler ListParms ;here is the list
	rts	;return

*
* save node number
*
SaveNode		; 
	lda #0	;offset is equal to zero
	pha	;
	PushWord #FSName	;push the destination buffer
	lda #<ArrayBuff	;set up zero page memory
	sta StgPtr	;
	lda #>ArrayBuff	;
	sta StgPtr+1	;
	lda SelIndex	;now get the new zone from the array buffer
	dec a	;index - 1
	asl a	;times 2
	tay	;use the y register
	lda (StgPtr),y	;get the low byte
	sta StgPtr2	;save it 
	iny	;and get the high byte
	lda (StgPtr),y	;
	sta StgPtr2+1	;please save the upper byte
	Pushword StgPtr2	;push the values from StgPtr2
	_MoveStr
	lda StgPtr2	;StgPtr2 points to the string in the NBPBuffer
	sec	;five bytes back is the network number an other
	sbc #5	;information that we need
	sta StgPtr2	;
	lda StgPtr2+1	;do a 16 bit subtratcion
	sbc #0	;
	sta StgPtr2+1	;
	ldy #0
	lda (StgPtr2),y	;this is the network number first byte
	sta LoginPl+4
	sta GetSPStatus+8
	iny
	lda (StgPtr2),y	;this is the network number second byte
	sta LoginPl+5
	sta GetSPStatus+9
	iny
	lda (StgPtr2),y
	sta GetSPStatus+10
	sta LoginPl+6	;this is the Node number
	iny
	lda (StgPtr2),y	;This is the Socket	number
	sta GetSPStatus+11
	sta LoginPl+7

*****************************************
* Do a GetSPStatus to find out	*
* what versions are	supported and if	*
* the Server supports Scrambled	*
* Passwords		*
*****************************************
	ATCall GetSPStatus	;do a ASP Status to find out the
	bcc GetVersStg	;particulars about this server
	jmp SPStatErr	;
GetVersStg		;what versions does it support 
	lda ReplyBuff+3	;add the offset to find the version
	clc	;strings.  Returned in bytes 3 & 2
	adc #<ReplyBuff	;high byte, low byte
	sta StgPtr	;update the zero page pointers
	lda ReplyBuff+2	;
	adc #>ReplyBuff	;
	sta StgPtr+1	;
	ldy #0	;
	lda (StgPtr),y	;get the count of the number of strings
	tax	;to search
	inc StgPtr
	bne GVS1
	inc StgPtr+1
GVS1	lda #0	;set String compare	for case insensitive
	pha
	PushWord #LogonStr	;pointer to String 2
	PushWord StgPtr	;push the pointer to String 1
	_CompareStr	;Compare the strings
	pla
	beq VersFnd	;if found, this is our server
	PushWord StgPtr	;try the next string in the list
	_NextStr
	PullWord StgPtr	;pull the result into StgPtr
	dex	;if not at the end of the list
	bne GVS1	;check again
	ldx #8	;there was not a match
	ldy #$80	;
	jsr ErrorHandler	;Incompatibale Version of AFP
	rts
VersFnd		; 
	lda #0	;indicate that no error occured
	rts	;we found the version


CheckUAM		;
	stx StgPtr2	;save the argument that was passed
	sty StgPtr2+1	;
	clc
	lda ReplyBuff+5	;get the offset to the UAM strings
	adc #<ReplyBuff	;
	sta StgPtr	;store it in string pointer
	lda ReplyBuff+4	;this is the high byte of the offset
	adc #>ReplyBuff	;
	sta StgPtr+1	;update our zero page
	ldy #0	;get the number of UAM's available
	lda (StgPtr),y	;
	tax	;into the x register for our counter
	inc StgPtr	;add one to our zero page pointer
	bne @UAM1	;
	inc StgPtr+1	;
@UAM1		; 
	lda #0	;set String compare	for case insensitive
	pha
	PushWord StgPtr2	;
	PushWord StgPtr	;push the pointer to String 1
	_CompareStr	;Compare the strings
	pla
	beq @GotUAM	;if found, this is our server
	PushWord StgPtr	;try the next string in the list from the server
	_NextStr	;calculate the next string in the list
	PullWord StgPtr	;pull the result into StgPtr
	dex
	bne @UAM1
	sec
	rts
@GotUAM	clc
	rts

*
IncStgPtr2		;this routine add 2 to the zero page pointer
	clc	;StgPtr2 and updates that 
	adc StgPtr2
	sta StgPtr2
	lda StgPtr2+1
	adc #0
	sta StgPtr2+1
	rts

*****************************************
* The user has requested that we logon	*
* to a server in a different zone,	*
* so let's go get a list of zones and   *
* then let the user	choose one.	*
*****************************************

ChangeZone		; 
	jsr ClearWindow	;clear the window
	GotoXY 3,3	;move the cursor
	WriteCStr CurrZone	;write the prompt "Current Zone:"
	ldx #ZoneName	;print the zone name
	ldy #>ZoneName	;
	WritePointer	;
	GotoXY 3,5	;move the cursor
	WriteCStr ChoseZone	; prompt the user to choose a new zone
	FrameRect FrameParms3 ;draw the box for the list window
	WriteCStr Prompt9 	;prompt the approriate key strokes
	SViewPort ListWindow ;set the view port to the listwindow
	ATCall GetInfo	;first check to see	if the bridge is still here
	lda ABridge	;if zero, the bridge is gone
	sta BridgeNode	; 25-Jun-91 MSD.  Also changed BNE
		; below to BRA.
	bra CZ3	;go ahead and try the GetZoneList call

CZ1	stz ZoneFlag	;indicate that there are no zones
	lda #1	;set up the zone name back to myzone
	sta ZoneName	;wildcard
	lda #'*'	;
	sta ZoneName+1
	lda #Return	;load with return character to indicate	success
	rts	;and return

*** added 25-Nov-92 DAL
toCZ1	jsr RemoveZoneMessage
	jmp CZ1
*** end 25-Nov-92

CZ3	jsr DisplayZoneMessage  ;added 25-Nov-92 DAL
	ATCall GetZoneList
	bcc CZ4	;no error, build the list
	lda GetZoneList+3	;check to see if it	was a ZIP error
	cmp #6
	bne toCZ1	;an error other than ZIP occurred
	lda GetZoneList+2	;get the error
	cmp #2	;is the error buffer overflow?
	bne toCZ1	;if not, change back to my zone and leave
CZ4	lda #<NBPBuffer	;set up our zero page variables
	sta StgPtr	;
	lda #>NBPBuffer	;StgPtr points to the list of zones that have
	sta StgPtr+1	;been returned by the server
	lda #<ArrayBuff	;StgPtr2 is our pointer to the array buffer where we
	sta StgPtr2	;will build an array of pointers to the strings
	sta StgArrayPtr	;set up ListParms
	lda #>ArrayBuff	;
	sta StgPtr2+1	;
	sta StgArrayPtr+1	;set up ListParms
	lda ZoneCount	;get the number of zones
	sta ArrayCnt	;set up ListParms
	tax	;and into the x register for our counter
CZ2	lda StgPtr	;get the low byte of the pointer	
	ldy #0	;
	sta (StgPtr2),y	;store in into the array buffer
	lda StgPtr+1	;get the high byte
	iny	;
	sta (StgPtr2),y	;store it into the next byte of the array buffer
	lda #2
	jsr IncStgPtr2	;add two to StgPtr2
	PushWord StgPtr	;then low byte
	_NextStr	;move StgPtr to the next string in the list
	PullWord StgPtr	;update StgPtr
	dex	;until x = 0
	bne CZ2	;
	lda ArrayCnt	;
	pha
	PushWord #ArrayBuff
	_SortArray

	jsr RemoveZoneMessage  ;added 25-Nov-92 DAL

	lda ArrayCnt
	pha
	PushWord #ArrayBuff
	PushWord #ZoneName
	_FindItem
	pla
	sta SelIndex	;
	stz SelXPos	;ListParm XPos = 0	
	stz SelYPos	;ListParm YPos = 0
	stz Increment	;ListParm increment = 0
	ldx #$44	;set for fill mode and keyboard navigation
	stx ListOptByte	;
	ListHandler ListParms ;get the user's selection
	rts	;then return


*** added 25-Nov-92 DAL -- display "Building Zone List..." box
DisplayZoneMessage	SViewPort ListWindow ;set the view port to the list window
	WriteChar ClrWind	;clear it
	jsr DrawBox	;draw a temporary box
	WriteChar Return	;next line
	WriteCStr BuildZL	;Print "Looking for AFP File Servers"
	rts

RemoveZoneMessage	jsr RestoreBox	;remove the box on the screen
	SViewPort ListWindow ;restore the view port to the list window
	rts
*** end 25-Nov-92


TheNewZone	lda #0	;set up the command for zero offset
	pha	;
	PushWord #ZoneName	;Push the pointer to ZoneName (destination)
	lda #<ArrayBuff	;set up zero page memory
	sta StgPtr2	;
	lda #>ArrayBuff	;
	sta StgPtr2+1	;
	lda SelIndex	;now get the new zone from the array buffer
	dec a	;index - 1
	asl a	;times 2
	bcc @noinc	;MSD: carry in yo upper byte of offset?
	inc StgPtr2+1	;MSD: yes, so point into upper part of array
@noinc	tay	;use the y register
	lda (StgPtr2),y	;get the low byte
	pha	;save it 
	iny	;and get the high byte
	lda (StgPtr2),y	;
	tax	;transfer the high byte into the x register
	pla	;get the low byte into the A register 
	phx	;push the high byte (source)
	pha	;then the low byte (source)
	_MoveStr
	rts


*****************************************
* Log On to the Server, But first we	*
* must move the Parameter list so that	*
* we will be able to Logon.	*
*		*
* Assumption made that Packets sent to	*
* the File Server will never be greater	*
* 256 bytes.		*
*****************************************

DoLogon	stz OtherSrvrFlg	;clear the another server flag
	ldy #$12	;set the command byte of the Logon Packet
	sty LogPckt	;
	ldy #1	;the offset = 1
	phy	;move the offset onto the stack	
	sty MovOffset	;save it for future calulations
	PushWord #LogPckt	;push the destination
	PushWord #LogonStr	;push the source
	_MoveStr	;move the string
	lda LogonStr	;get the string length
	clc	;
	adc MovOffset	;add the offset
	inc a	;account for the string length
	sta MovOffset	;update Move Offset
	ATCall GetSPStatus	;call the Server for GetServerInfo
	bcc DL1	;if no error, check UAM
SPStatErr	lda GetSPStatus+2	;get the error byte
	cmp #6	;Server not responding
	bne DL2	;if server not responding it could have
	ldy #$80	;been shutdown.  Go get another server
	sty OtherSrvrFlg	;
	ldx #4	;tell the user first
	jmp DoLogErr	;
DL2	jmp SysErr	;an error other than Server not responding
DL1		; 
	bit AuthFlag	;test the guest flag
	bpl UserAuth	;if not set, do user authentication
	ldx #<Guest	;check to see if this server supports
	ldy #>Guest	;
	jsr CheckUAM	;
	bcc GuestOk	;the string was found
	lda #$16	;do a logon err
	jsr LogErr3	;
	rts	;then return
GuestOk		;now build the logon packet
	lda MovOffset	;for logging on as a guest
	pha	;push the offset
	PushWord #LogPckt	;push the destination	
	PushWord #Guest	;push the source
	_MoveStr	;move the string
	lda Guest	;get the length of the guest string
	clc	;add it to the current offset
	adc MovOffset
	inc a	;take into account for the string length
	jmp CheckLogin	;there is no user or password for guests
UserAuth		;
	stz UserAuthFlag	;initialize the user authtenticaion flag
	ldx #<RanExch	;check to see if random exchange is supported
	ldy #>RanExch	;
	jsr CheckUAM	;see if the server has this string
	bcc @UA1	;if not do a logon error message
	lda #$80	;try clear text password
	sta UserAuthFlag	;this is a flag used later
	ldx #<ClrText	;check to see if random exchange is supported
	ldy #>ClrText	;
	jsr CheckUAM	;see if the server has this string
	bcc @UA2	;if it does, logon with this UAM
	ldx #9	;otherwise the user cant use this server
	ldy #$80	;sorry Charlie!
	jsr ErrorHandler	;
	rts
	
@UA1	lda MovOffset	;for logging on using random exchange
	pha	;push the offset
	PushWord #LogPckt	;push the destination	
	PushWord #RanExch	;push the source
	_MoveStr	;move the string
	lda RanExch	;get the length of the user string
	clc	;add it to the current offset
	adc MovOffset
	inc a	;take into account for the string length
	sta MovOffset	;update move offset
	bra @UA3
	
@UA2	lda MovOffset	;for logging on using clear text
	pha	;push the offset
	PushWord #LogPckt	;push the destination	
	PushWord #ClrText	;push the source
	_MoveStr	;move the string
	lda ClrText	;get the length of the user string
	clc	;add it to the current offset
	adc MovOffset
	inc a	;take into account for the string length
	sta MovOffset	;update move offset

@UA3	pha	;push the offset
	PushWord #LogPckt	;push the destination	
	PushWord #NameBuffer ;push the source
	_MoveStr	;move the string
	lda NameBuffer	;get the length of the user name string
	clc	;add it to the current offset
	adc MovOffset
	inc a	;take into account for the string length
	sta MovOffset	;update move offset
		;
	tax	;do we need to pad the buffer for the user
	lsr a	;name?
	bcc @NoPad	;not if there is no carry
	stz LogPckt,x	;store a zero in the user buffer
	inc MovOffset	;update move offset
@NoPad	lda MovOffset	;get the count into the packet buffer
	bit UserAuthFlag	;with user authentication method?
	bpl CheckLogin	;go here with the packet length
	ldy MovOffset	;get the offset into the buffer
	ldx #8	;we will move eight bytes
@UA4	lda PassBuffer,x	;from the password buffer 
	sta LogPckt,y	;to the logon packet
	iny	;next y
	dex	;until x = 0
	bne @UA4 	;
	lda MovOffset	;get the length of the packet
	clc	;add the eight bytes for the
	adc #8	;clear text password
	
CheckLogin		; 
	sta PakLen	;update the FPLogin parameter list
	stz PakLen+1	;
	stz LogErrCnt	;the error count down ticker
LogRetry	;	
	IF (OSFlag = 128) or (OSFlag = 0) then
	lda #$2b	;this is the old style login call
	sta LoginPl+1
	ATCall LoginPl	;do the login call
	ENDIF
	
	IF (OSFLAG = 192) or (OSFlag = 64) then
	lda #$38	; FILogin2 call
	sta LoginPl+1
	lda #<FSName	;set up the parameter to the 
	sta LoginPl+$19	;server name
	lda #>FSName	;
	sta LoginPl+$1a	;
	lda #<ZoneName	;set up the parameter to the
	sta LoginPl+$1d	;zonename
	lda #>ZoneName	;
	sta LoginPl+$1e	;
	ATCall LoginPl	;do the newly defined login call for GS/OS
	ENDIF
	bcs LogErr	;if error, good luck
LogonOk		; 
	lda #0	;indicate to the calling routine success
	rts	;
LogErr		; 
	inc LogErrCnt	;increment the error counter
	lda LoginPl+2	;get the error result
LogonErr		; 
	cmp #4	;was the error a ContLogin error?
	bne LogErr1	;if not, check next error
	jmp ContLogin	;otherwise, ContLogin
LogErr1		; 
	cmp #$13	;Already Logged on to File Server?
	bne LogErr2	;if not, check next error
	ldx MatchNum	;special case if there is only
	cpx #1	;one server and no zones
	bne LE1	;so that there is no two way branch
	bit ZoneFlag	;what the hey
	bmi LE1	;
	ldy #$80	;there is one server and no zones
	bra LE2	;make this an alert
LE1	ldy #0
LE2	ldx #12
	jmp DoLogErr
LogErr2		; 
	cmp #$15
	bne LogErr3
	ldy #$80
	ldx #3	;Unauthorized Password
	bra DoLogErr
LogErr3	cmp #$16	;Unauthorized User
	bne LogErr4
	ldy #$80
	ldx #1
	jmp DoLogErr
LogErr4		; 
	cmp #$17	;Server going down
	bne LogErr5
	ldy #$80
	sty OtherSrvrFlg
	ldx #17
	bra DoLogErr
LogErr5		; 
	cmp #2	;Unable to open a server session
	bne LogErr6
	lda LogErrCnt	;AppleShare may not	be able to help us right now
	cmp #$4	;before we decide that there are too many users
	bge @1
	jmp LogRetry	;we will retry 4 times
@1	ldy #$80	;after 4 attempts tell them that there are
	sty OtherSrvrFlg	;too many users, indicate another server
	ldx #19	;Error message 19
	bra DoLogErr	;display the message.
LogErr6		; 
	cmp #3	;Server not responding
	bne LogErr7
	ldy #$80
	sty OtherSrvrFlg
	ldx #4
	bra DoLogErr
LogErr7		; 
	cmp #1	;The workstation has too many open sessions
	bne UnkLogErr
	ldy #$80
	ldx #18
	jsr ErrorHandler
	jmp ByeBye
UnkLogErr	jmp SysErr
DoLogErr	jsr ErrorHandler
	rts

ContLogin		; 
	lda LoginPl+$14	;get the session number
	sta CLSess	;update the ContLogin session number
	lda ReplyBuff	;get the Login ID
	sta LogID	;
	lda ReplyBuff+1	;
	sta LogID+1	;update ContLogin parameter list
	lda #<ReplyBuff+2	;set up the DES parameter list with the
	sta DesParms+2	;key that was returned by
	lda #>ReplyBuff+2	;the server
	sta DesParms+3	;
	lda #<DesLogRes	;tell the DES routine to put the Result here
	sta DesParms+4	;
	lda #>DesLogRes	;
	sta DesParms+5	;
	ldx #<DesParms	;call DES
	ldy #>DesParms	;
	jsr DES	;
	ATCall ContLogPl	;then Call ContLogin
	bcs ContLogErr	;if no error return to caller
	jmp LogonOk	;
ContLogErr	lda ContLogPl+2	;in case of error, get the error from our parms
	jmp LogonErr	;and let LogonErr handle it


*
* save session number
*

SaveSess		;               
	lda LoginPl+$14	;get the session reference number
	sta FIMountVol+$04	;update FIMountVol
	sta GSSess	;update SPCommand
	sta SPWrite+8	;update SPWrite
	stz SPCommand+$F	;set the reply buffer length to
	lda #2	;256 bytes
	sta SPCommand+$10	;
	lda #<ReplyBuff	;set the address of the command block
	sta SPCommand+$11	;to the reply buffer
	lda #>ReplyBuff	;
	sta SPCommand+$12	;
	lda #<GSPComm	;set up the SPCommand list for GetSrvrParms
	sta SPCommand+$B	;to point to the one byte command #16
	lda #>GSPComm	;
	sta SPCommand+$C	;
	lda #1	;the command is one byte in length
	sta SPCommand+9	;
	stz SPCommand+10	;
	ATCall SPCommand	;issue the command
	bcc GSok	;branch if no error
	jmp SysErr
GSok		; 
	lda #<ReplyBuff	;set up the zero page pointer StgPtr for the 
	sta StgPtr	;returned list of volume names
	lda #>ReplyBuff	;
	sta StgPtr+1	;
	ldy #4	;the fourth byte is the number of volumes
	lda (StgPtr),y	;get number of volumes returned
	sta ArrayCnt	;save it in the ListParms variable
	lda #5	;add five to the the zero page variable
	clc	;to point to the first volume
	adc StgPtr	;
	sta StgPtr	;update zero page pointer StgPtr
	lda #0	;
	adc StgPtr+1	;and the high byte
	sta StgPtr+1	;
GVPoint	lda #<MySelArray	;set up zero page to the selection array
	sta SelPtr	;
	lda #>MySelArray	;
	sta SelPtr+1	;
	ldx ArrayCnt	;load the number of volumes into the x register
	jsr CheckVols

	IF OSFlag = 0 THEN	; ProDOS 8 app?
		; don't care if no user volume mounted
	ELSE
	bit UMountFlag	;is a user volume already mounted?
	bmi GVP1	;if so, we can continue
	lda #$80	;for the first server accessed
	sta OtherSrvrFlg	;it must have an associated user volume
	rts	;so return, and look for another volume
	ENDIF

GVP1	lda ArrayCnt
	cmp #1	;is there only one volume in the list?
	bne GVolPoint	;no, so display the	list
	tax	;get the selection byte
	lda MySelArray,x	;and check to see if it is a user volume
	cmp #$c0	;
	bne GVolPoint	;if not, display the list
	IF (OSFlag=128 or OSFlag=192) THEN
	lda #0	; don't display the list if we're
	rts	; booting over the network
	ENDIF
GVolPoint		; 
	jsr ClearWindow	;clear the window
	GotoXY 3,5	;move the cursor
	WriteCStr SelectVol ;prompt: "Select the volumes you want to use:"
	FrameRect FrameParms3 ;draw the list box
	WriteCStr Prompt8	;prompt the user for the appropriate key storkes
	SViewPort ListWindow ;set the view port for the list window
	ldx ArrayCnt	;get the number of volumes
MoveArray	lda MySelArray,x	;move the selection array to a copy
	sta CompSelArray,x	;so we can compare changes later
	dex	;
	bne MoveArray	;
	ldx ArrayCnt	;get the number of volumes again
	lda #<ReplyBuff+6	;set up the zero page StgPtr to point to the
	sta StgPtr	;volumes that have been return by the 
	lda #>ReplyBuff+6	;file server.  The first string in the list is
	sta StgPtr+1	;offset by 6 from the beginning
	lda #<ArrayBuff	;set up zero page StgPtr2 to point to the Array
	sta StgPtr2	;buffer where we will build an array of pointers
	sta StgArrayPtr	;to the volume strings
	lda #>ArrayBuff	;
	sta StgPtr2+1	;
	sta StgArrayPtr+1	;update the ListParm variables as well
GV3	ldy #0	;set the index to zero
	lda StgPtr	;get the low byte of the pointer
	sta (StgPtr2),y	;store it in the array buffer
	iny	;next location	
	lda StgPtr+1	;get the high byte of the pointer
	sta (StgPtr2),y	;update the array buffer
	lda #2
	jsr IncStgPtr2	;add two to StgPtr2
	PushWord StgPtr	;push the parameters on the stack for
	_NextStr	;make the call
	PullWord StgPtr	;update StgPtr
	inc StgPtr	;add one to StgPtr since there is a Password
	bne GV1	;flag for each volume in the list
	inc StgPtr+1	;
GV1	dex	;until x = 0
	bne GV3	;
	
	lda #3	;set the x position to 3
	sta SelXPos	;
	stz SelYPos	;set the y position to zero
	stz Increment	;set the increment to zero
	ldx #1	;select the first item in the list
	stx SelIndex	;
	ldx #$84	;set for fill mode and Multiple Selection.
	stx ListOptByte	;
	ListHandler ListParms ;let the user select the volumes
	cmp #Escape	;was escape pressed?
	bne GV9	;if not, continue
	lda #$c0	;indicate that an escape was pressed
	rts
GV9		; 
	ldx ArrayCnt	;get the number of volumes again
	lda #<ArrayBuff	;set up our zero page variable StgPtr
	sta StgPtr	;to point to the ArrayBuffer
	lda #>ArrayBuff	;
	sta StgPtr+1	;
NxtSel	lda MySelArray,x	;check to see if changes were made for each
	cmp CompSelArray,x	;volume
	beq GV2	;this item has not been changed
	jsr ItemSel
	bcc GV5	
	stz MySelArray,x	;error: clear this item, so the volume wont appear mounted
GV5	bit OtherSrvrFlg	;does the error require a new server?
	bpl GV7	;if not, next item
	lda #$80	;indicate to main that a new server is needed
	rts	;
GV7	bit NoMoreVols	;check to see if more volumes are allowed
	bpl GV2	;if not, continue
	jmp SaveSess	;start over with the current selection
GV2	dex	;until x = 0
	bne NxtSel	;
	bit MySel	;check to see if there were any changes
	bmi GV4	;changes, so no message
	ldx ArrayCnt
GV6	lda MySelArray,x	;Check to see that no volumes are
	bmi GV4	;selected
	dex	;if no volumes are mounted, log off the server
	bne GV6
LogMeOut		; 
	lda LoginPl+$14	;force a logoff in case of error
	sta FILogout+4	;
	ATCall FILogout	;
	lda #0	;return to main, task completed
	rts

GV4
	jsr CheckUserVol	; was a user volume mounted?
	bmi @mounted	; yes, so no warning
	ldy #$80	; no, warn about no user volume
	ldx #29	; caution: no user volume
	jsr ErrorHandler
@mounted
	lda #0
	rts

ItemSel		; 
	phx	;save the x register
	pha	;and the accumulator for use in this routine
	txa	;this is the selected item
	dec a	;item - 1
	asl a	;multiply by 2
	tay	;into the index register
	lda (StgPtr),y	;get the low byte of the  volume string pointer
	sta VolName	;update the FIMount parameter list
	sta StgPtr2	;set up zero page for accessing the server volume list
	iny	;next y index
	lda (StgPtr),y	;get the high byte of the  volume string pointer
	sta VolName+1	;update the FIMount parameter list
	sta StgPtr2+1	;set up zero page for accessing the server volume list
	sec	;subtract one from the zero page variable
	lda StgPtr2	;to point to the password flag in the server volume
	sbc #1	;list
	sta StgPtr2	;
	lda StgPtr2+1	;
	sbc #0	;we will do it the old fashioned way, 16 bit
	sta StgPtr2+1	;
NS1	pla	;recover the original selection byte
	bmi MntVol	;if the high bit is set, then mount the volume
	stz MPassFlag	;otherwise, to unmount no password is required
	bra PassNR	;go and unmount the volume
MntVol	lda (StgPtr2)	;check the password flag from the server
		; (was (),y but we want first byte -MSD)
	bmi PassAgain	;if the high bit is set, a password is required
	lda #$80	;update the FIMount parameter list
	sta MPassFlag	;
	bra PassNR	;go mount the volume
PassAgain	jsr GetPassWD	;go get the password from the user
	bcs DoNxtSel	;if escape was pressed, forget it
PassNR	jsr MountVol	
	bcc DoNxtSel	;if the carry is clear, no password error occured
	bra PassAgain	;otherwise, try again
DoNxtSel		; 
	cmp #0	;if zero, then return to the caller
	beq DS1	;
	sec	;set the carry to indicate an error
	bra DS2	;return
DS1	clc
DS2	plx	;restore the x register
	rts	;


*
* mount volume
*
MountVol		; 
	phx	;save x and y
	phy	;
	stz NoMoreVols	;initialize No More Volumes flag
MV2	ATCall FIMountVol	;make the FIMount call
	bcs MVErr	;if the carry is clear, download the icons
	
DoIcons	bit MPassFlag
	bpl DI1
	jsr AddIcons
DI1	bit MPassFlag	;check bit 7 of the	Mount Flag
	bpl DI2	;if unmounting, then do not check the access
	jsr CheckAccess	;do we have the proper privileges for this volume?
	bcc DI2	;if so, return to caller
	lda MPassFlag	;get the current MPassFlag
	pha	;save it
	stz MPassFlag	;clear the PassFlag	for unmounting
	ATCall FIMountVol	;unmount this volume
	pla	;and restore the MPassFlag
	sta MPassFlag	;
	ldx #27	;Error Message "You	do not have Privileges for 
	ldy #$80	;this Volume." This	is an alert.
	jsr ErrorHandler	;do it
	bra DoneIt
DI2	lda #0
DoneIt	ply
	plx
	clc
	rts

MVErr	lda FIMountVol+2	;check for errors
	cmp #$11	;is the error Duplicate volume?
	beq DupVolErr
	cmp #$06	;msd: invalid session reference?
	beq NoServErr	;msd: if so, assume	server shut down
		;msd: used to assume invalid name
	cmp #$07	;This Error code has two meanings
	bne MV1	;server down, and bad password
	bit MPassFlag	;check bit 6 of the	Mount Flag
	bvc NoServErr
	jmp PassErr	;if we are using a password assume it was bad
MV1	cmp #$05	;
	bne TooManyVolErr	;last error, assume too many volumes

InvalidNamErr	ldy #$80
	ldx #2	;Invalid name error
	jsr ErrorHandler
	jmp DoneIt
NoServErr		; 
	ldy #$80
	sty OtherSrvrFlg	;no server error
	ldx #4
	jsr ErrorHandler
	jmp DoneIt

******************************************************************
* Situation: This is a user volume that had been previously
* been mounted as a regular volume when a user volume was 
* already mounted.  We are now back in Logon to add volumes, so
* we will unmount and then remount this volume.
******************************************************************
DupVolErr
	lda MPassFlag	;are we here to mount a user volume.
	cmp #$81	;	
	bne DVE1	;if not, standard DupVolErr
	jsr FindUserSess	;get the session number of the volume we want to mount
	bcs DVE1	;if we cant find it, standard DupVolErr
	lda GSSess	;compare this session to the session of the 
	cmp OurVolSess	;volume
	bne DVE1	;if not equal, standard DupVolErr
	stz MPassFlag	;it is the same so unmount it
	ATCall FIMountVol	;
	lda #$81	;and then remount it as the User Volume
	sta MPassFlag	;
	jmp MV2	;
DVE1	ldy #$80	;this stuff handles the standard
	ldx #21	;duplicate volume error
	jsr ErrorHandler	;
	jmp DoneIt	;

TooManyVolErr		; 
	ldy #$80	;flag to indicate no more volumes
	sty NoMoreVols	;
	ldx #14	;and an error message to go along
	jsr ErrorHandler	;
	jmp DoneIt

PassErr		; 
	ldy #$80	;the password was not correct
	ldx #3	;
	jsr ErrorHandler	;
	sec	;set the carry for Item select
	ply	;restore x and y
	plx
	rts	;return

FindUserSess		;StgPtr Variable points to the Volume we
		;are trying to mount on this server
	ldx SessNum	;The SessBuff is fresh from CheckUserVol
	lda #<SessBuff	;reset the buffer to the network
	sta StgPtr2	;volume list.
	lda #>SessBuff
	sta StgPtr2+1
	ldy #0	;get the session number of this volume
FUS1	lda (StgPtr2),y
	sta OurVolSess	;this is the returned result
	lda #2	;move the variable StgPtr2 to point
	jsr IncStgPtr2	;add two to point to the string
	lda #0
	pha	;push the compare flag
	PushWord StgPtr2	;push String1
	PushWord StgPtr	;push String1
	_CompareStr
	pla	;get the result
	beq FUS2	;the volume matched, check session number
	lda #30	;each volume to compare is 32 bytes apart
	jsr IncStgPtr2 	;add 30 since we have already added
	dex	;until the number of mounted volumes =
	bne FUS1	;zero
	sec	;user volume not found
	rts	;
FUS2	clc	;return with session number in OurVolSess
	rts
	
********************************************************
* CheckVols determines if a user volume	is mounted      
* If not the User Volume is mounted.    
*	                    
* It then Updates the selection array to select all     
* mounted volumes.
* Inputs:
*       Zero page variable StgPtr points to 
*       Buffer of volumes on server.
*       Reg X = the	number of volumes in the Buffer
* Outputs:
*       UMountFlag = High bit set if User Volume is mounted
*
*
* 04-Jun-91  MSD	For the ProDOS 8 application, it allows
*	a user volume to be not mounted.  If one
*	is found, it is initially selected for
*	mounting but may be deselected.
********************************************************
CheckVols		; 
	stz SessBuff+1	; in case no volumes returned
	stz SessBuff+2
	phx	;save the number of	volumes returned by	the server
	ldy #0	;clear out the selection index
	tya
CV1	sta (SelPtr),y	; zero out MySelArray
	iny
	bne CV1
	jsr CheckUserVol
	cmp #0	;if the result is not zero, then a User	Volume
	bne VolsMounted	;is already mounted
*
* Mount a User Volume
*
	PushWord StgPtr	;save StgPtr on to the stack
	ldy #0
MUV2	lda (StgPtr),y
	bit #1	;is the last bit set?
	php	;save the results of this test
	inc StgPtr
	bne MUV5
	inc StgPtr+1
MUV5		; 
	plp	;restore the processor flags
	bne MUV1	;was bit zero set (i.e. user volume on this server)?
	Pushword StgPtr
	_NextStr	;calculate the next	string in the buffer
	PullWord StgPtr
	dex	;x still contains the number of volumes
	bne MUV2
	IF OSFlag=0 or OSFlag = 64 THEN
		; application? (MSD 18-Jun-91)
	bra MUV4	; yes, allow for no user volume mounted
	ELSE
	jmp SysErr	; other versions REQUIRE a user volume mounted
	ENDIF

MUV1	lda StgPtr	;move the volume string pointer
	sta VolName	;to FIMountVol
	lda StgPtr+1
	sta VolName+1
	lda #$81	;set it for a user volume and mount it
	sta MPassFlag
	jsr MountVol
	cmp #0	;is the returned result zero?
	beq MUV3	;if so mounting the	User Volume was successful
	jsr LogMeOut	;log off of this server
	bra MUV4
MUV3		; 
	lda #$80
	sta UMountFlag	;update the User Volume mounted flag
	jsr GetUserPfx
	lda #<Prefix	;Set the User prefix path
	sta FIBuffer	;
	lda #>Prefix	;
	sta FIBuffer+1	;
	lda #$AA	;set the high bit of FIDirFlg	        
	sta FIDirFlg	;to set the Name on	the card
	ATCall FIUserPrefix	;set the prefix to the user path
	stz FIDirFlg
MUV4	Pullword StgPtr	;restore the zero page variable StgPtr

VolsMounted		; 
	plx	;restore the number	of volumes in x register
	IF OSFlag=0 or OSFlag = 64 THEN
		; for application, don't require user volume to be mounted
	ELSE
	bit UMountFlag	;If no user volume is mounted then this 
	bmi VM9	;server cannot be used.
	rts
	ENDIF
VM9	ATCall FIListSess
	ldy #1	;y is the index for	the volume in the list
CheckNext	phx
	phy
	lda #<SessBuff	;reset the buffer to the network
	sta StgPtr2	;volume list.
	lda #>SessBuff
	sta StgPtr2+1
	inc StgPtr	;String Pointer now	points to first volume
	bne VM2	;update this pointer to point to the 
	inc StgPtr+1	;volume name from the server
VM2		; 
	ldx SessNum	;for each volume in	the network volume list
VM4		; 
	ldy #0
	lda #$80	;this is the value to be stored in the 
	sta SelFlag	;selection array
	lda (StgPtr2),y	;get the session number for this volume
	sta OurVolSess
	iny
	lda (StgPtr2),y	;get the slot/drive	of the volume
	sta OurSlotDrive	;save the slot/drive of this volume
	lda #2	;add two to the pointer
	jsr IncStgPtr2
	IF OSFlag=0 or OSFlag = 64 THEN
		; application?
		; yes, don't disable user volumes.
	ELSE
	lda OurSlotDrive
	bit #1	;if bit 0 is set then, this is a 
	beq VM8	;user volume.
	lda #$c0	;set the selection array for selected
	sta SelFlag	;and disabled
	ENDIF
VM8		; 
	lda #0	 
	pha	;set case insensitivity
	PushWord StgPtr	;push the pointers to the strings
	PushWord StgPtr2	;to be compared onto the stack
	_CompareStr
	pla
	beq VM7	;the volume matched, check session number
VM3	dex	;check the next volume in the network list
	beq VM5	;when x = 0, then all volumes have been	checked
	lda #30	;next volume in the	network list 
	jsr IncStgPtr2	;is 32 bytes away. Add thirty	    
	bra VM4	;now compare this volume
VM5	ply	;set the selection array for not selected
	lda (SelPtr),y	;and enabled
	and #$3f	;by clearing bits 7	& 6
	sta (SelPtr),y
	bra VM6
VM7		; ;volume is already mounted so mark inactive
	lda OurVolSess	;test the session number
	cmp GSSess	;
	bne VM5	;if not this session, then no match
VM1	ply
	lda (SelPtr),y	;update the selection array
	ora SelFlag
	sta (SelPtr),y
VM6	PushWord StgPtr
	_NextStr	;point to the next string
	PullWord StgPtr
	iny
	plx
	dex	;until all the volumes have been checked
	beq VMDone	;
	jmp CheckNext	;
VMDone		; 
	rts

CheckUserVol		;check to see if User Volume is mounted
	phx	;save the registers	so they dont conflict
	phy	;
	stz UMountFlag	;clear the UserVol mounted flag
	ATCall FIListSess	;get the list of current volumes
	ldx SessNum	;number of volumes mounted
	beq CUV2	;if no volumes are mounted, exit
	ldy #1
	lda #<SessBuff	;reset the buffer to the network
	sta StgPtr2	;volume list.
	lda #>SessBuff
	sta StgPtr2+1
CUV3	lda (StgPtr2),y	;get the slot drive	for this volume
	bit #1	;if bit 0 is set then, a user volume is	mounted
	beq CUV1	;
	lda #$80	;
	sta UMountFlag	;update the flag
	bra CUV2
CUV1		; 
	dex
	beq CUV2
	lda #32	;next volume to compare is 32 bytes away
	jsr IncStgPtr2	;add 32 to the zero page pointer StgPtr2
	bra CUV3	;check the next one
CUV2		; 
	ply	;restore the registers
	plx	;
	lda UMountFlag	;get the result
	rts	;back to the calling routine
	
GetUserPfx		; 
	jsr CheckUserVol	;build a prefix to the user directory
	beq GUP7	;it will return with StgPtr2 pointing to the
	lda #2	;ListSession data for this volume	
	jsr IncStgPtr2	;so add one to point to the zero page pointer
	ldy #0
GUP2	lda (StgPtr2),y	;get the length of the string
	tay	;into the a register
	inc a	;add two to the accumlator for the "/"'s
	inc a	;
	sta Prefix	;this is the new prefix length
	lda #'/'	;get the backslash character
	sta Prefix+1	;one goes here
	sta Prefix+2,y	;the other here
@TheLoop	lda (StgPtr2),y	;now move the rest of the string
	sta Prefix+1,y	;into the prefix name buffer
	dey	;until y = 0
	bne @TheLoop
	inc Prefix	;add one more for the string length
	lda Prefix	;now point to the buffer behind the prefix
	clc	;using zero page pointers
	adc #<Prefix	;
	sta StgPtr2	;
	lda #>Prefix	;
	adc #0	;our zero page pointer now points to the next
	sta StgPtr2+1	;avialable location in the buffer
GUP9	lda UserDir,y	;get the user directory string which is a C
	beq GUP8	;type string
	sta (StgPtr2),y	;into the prefix buffer
	iny	;next y
	bra GUP9	;exit is above
GUP8		; 
	tya	;y has how many bytes were moved
	clc	;add it to the prefix length
	adc Prefix	;
	sta Prefix	;update the prefix length
	clc	;
	adc #<Prefix	;and move the zero page pointer again
	sta StgPtr2	;
	lda #>Prefix	;
	adc #0	;msd: in case of wrap to next page
	sta StgPtr2+1	;rbh: great job!!, mark
	ldy #0	;now test if this is a guest or a user
	bit AuthFlag	;
	bmi DoGuestName	;if guest move the name "<Any User>"
	ldx NameBuffer	;get the length of the user name
GUP3	lda NameBuffer+1,y	;get a byte from the name buffer
	sta (StgPtr2),y	;move it to the prefix buffer
	iny	;next index
	dex	;until the end of the string
	bne GUP3	;do it again
GUP6	lda #'/'	;move a backslash into the prefix buffer
	sta (StgPtr2),y	;
	tya	;update the length of the prefix again
	clc	;
	adc Prefix	;
	sta Prefix	;
GUP7	rts	;and we are done

DoGuestname		; 
	ldx GuestName	;get the length of the name
GUP5	lda GuestName+1,y	;get the byte
	sta (StgPtr2),y	;move the name "<Any User>"
	iny	;next index
	dex	;until the end of the string
	bne GUP5	;play it again, Mark
	bra GUP6	;return to finish the job

DoGetInput		;Get the name and	password from the user
	GotoXY 5,3	;clear the inverse from the first entry
	WriteStr Entry1	;
	GotoXY 0,10	;draw a line across	the center of the box
	ReptChar TitLine	;
	WriteCStr Prompt2	;at the bottom of the box, which keys are used
	GotoXY 3,11	;Prompt -> "Enter your name and password:"
	WriteCStr Prompt3	;
	GotoXY 3,15	;Prompt -> "Password:"
	WriteCStr PassField	;
	GotoXY 3,13	;Prompt -> "Name:"
	WriteCStr NameField	;
	lda NameBuffer	;check the namebuffer
	beq GetName	;if it is zero, then no name is written
	GotoXY 9,13	;a name exists
	WriteStr NameBuffer	;print the default name
	jmp GN2	;go get the password first
GetName	stz OptionByte	;Option byte to indicate no encription
	lda #NameLen	;maximum length for	a user name is 31 characters
	sta MyLen	;
	lda #<NameBuffer	;points to the buffer for default and output
	sta InBuff	;
	lda #>NameBuffer	;
	sta InBuff+1	;
	GotoXY 9,13	;move the cursor to	the position
	Input MyParms	;give me your name
	cmp #Escape	;if escape was pressed, punt this whole	idea
	beq GN4
	if OSFlag = 0 then
	bit OptionByte	;check to see if input detected a modification
	bvc GN2	;if overflow is clear, there was no change
	jsr UpdateName	;update the user name it the ATINIT file
	EndIF
GN2	ldx #8	;maximum length for	the password is 8
	stx MyLen	;
@1	stz PassBuffer,x	;clear the password buffer with zeros
	dex
	bne @1
	lda #<PassBuffer	;here is the buffer	to put the password	into
	sta InBuff	;
	lda #>PassBuffer	;
	sta InBuff+1	;
	stz PassBuffer	;no default passwords, always start fresh
	lda #$80	;high bit of the option byte means encript display
	sta OptionByte	;to the screen
	GotoXY 13,15	;here is the cursor	location
	Input MyParms	;go get the password
	cmp #Return	;was it a return
	beq GNDun	;if so, we are done
	cmp #Escape	;an escape means that we can this adventure
	bne GN3	;if not escape or return, it must be a TAB character
GN4		; 
	sec	;indicate a punt
	rts	;return
GN3	jmp GetName	;so go get the name	again
GNDun		; 
	clc	;indicate that we got the info! 
	rts

GetPassWD		; 
	lda #$c0	;set the the password field in FIMount
	sta MPassFlag	;update the parameter list
	jsr ClearWindow	;clear the window and not the title line
	GotoXY 0,8	;move the cursor
	ReptChar TitLine	;draw a line in the middle of the box
	WriteCStr Prompt5	;give the appropriate key choices
	GotoXY 3,9	;move the cursor
	WriteCStr Prompt4	;prompt: "Enter the password for the volume:"
	GotoXY 3,10	;now print the name of the volume
	ldx VolName	;
	ldy VolName+1	;
	WritePointer	;
	GotoXY 3,12	;prompt: "Password:"
	WriteCStr PassField ;
	ldx #8	;maximum length for	the password is 8
	stx MyLen	;
@1	stz PassBuffer,x	;clear the password buffer with zeros
	dex	;
	bne @1	;
	lda #<PassBuffer	;update the parameter list for the input routine
	sta InBuff	;
	lda #>PassBuffer	;
	sta InBuff+1	
	stz PassBuffer	;set the default length to zero
	lda #$80	;set the option flag to invisiable characters
	sta OptionByte	;
VP2	GotoXY 13,12	;move the cursor to the input
	Input MyParms	;get the password
	cmp #Return	;check for return
	bne VP1	;if not return, check for escape
	clc	;return with the carry clear (No pun intended)
	rts	;
VP1	cmp #Escape	;was the character escape?
	bne VP2	;
	sec
	rts

*****************************************
* AddIcons downloads the Icons to the	*
* fileserver to support ProDOS.	*
*		*
* The routine checks for the Icon	*
* revision level and then determines if	*
* the icons needs to be updated.	*
*****************************************
AddIcons		; ;Download the ProDOS Icons
	lda StgPtr	;save the zero page	string pointers
	pha
	lda StgPtr+1
	pha
	lda #12	;set up the Reply Buffer length
	sta SPCommand+$F
	stz SPCommand+$10	;of twelve (12)
	lda #<FPReply
	sta SPCommand+$11	;change the ReplyBuffer
	lda #>FPReply
	sta SPCommand+$12	;change the ReplyBuffer
	lda #<OpenDT	;setup SP Command Paramters
	sta SPCommand+11
	lda #>OpenDT
	sta SPCommand+12
	lda #4	;Length of DTOpen
	sta SPCommand+9
	stz SPCommand+10
	lda FIMountVol+10	;get the volume ID number
	sta OpenDT+2	;store it into the OpenDT list
	lda FIMountVol+11	;
	sta OpenDT+3	;
	ATCall SPCommand	;Open the DeskTop
	bcc AI8
	jmp AI3	;no need to close the desktop
AI8	lda FPReply	;Get the DTRefNum
	sta FPAddIcon+2	;and put it into the FPAddIcon
	sta FPIconInfo+2
	sta CloseDT+2	;also CloseDT
	lda FPReply+1	;Parameter list
	sta FPAddIcon+3	;
	sta FPIconInfo+3
	sta CloseDT+3
	lda #<FPIconInfo	;setup SP Command Paramters
	sta SPCommand+11	;to do the FPIconInfo call
	lda #>FPIconInfo	;
	sta SPCommand+12	;
	lda #10	;Length of FPIconInfo
	sta SPCommand+9
	stz SPCommand+10
	ATCall SPCommand	;make the FPIconInfo Call
	lda SPCommand+$18	;check the result
	beq AI6	;FPGetIcon Info call successful
	cmp #$6c	;is it an item not found error?
	beq UpdateIcon
	jmp AI4	;another error occured, out of here
AI6		; ;compare the rev level with ours
	sec
	ldy #3
AI7	lda FPReply,y	;get the Icon rev of the server
	sbc FPAddIcon+14,y	;subtract ours from	the server rev
	dey
	bpl AI7
	bcs AI4	;our icon rev is the same or less
UpDateIcon	ldx IconCount	;How many Icons are	there?
	ldy #0	;get the Address of	the Icon
AI2	lda IconCount+1,y	;
	sta StgPtr	;update a zero page	pointer
	iny	;
	lda IconCount+1,y	;
	sta StgPtr+1	;high and low byte
	phy	;save the Y register
	ldy #3	;The first items in	the Icon record
AI1	lda (StgPtr),y	;is the file type
	sta FPAddIcon+8,y	;move it to the FPAddIcon parameter
	dey	;list
	bpl AI1	;4 bytes in all
	ply	;restore the y register
	lda StgPtr	;Add four bytes to the exsisting pointer
	clc	;
	adc #4	;update the SPWrite	ParmList
	sta SPWrite+$11	;
	lda StgPtr+1
	adc #0	;
	sta SPWrite+$12	;high and low byte
	ATCall SPWrite
	bcs AI4
	iny	;point to the next icon parmlist
	dex	;for IconCount times
	bne AI2	;
AI4		; 
	lda #4	;Length of DTClose
	sta SPCommand+9
	stz SPCommand+10
	lda #<CloseDT	;setup SP Command Paramters
	sta SPCommand+11
	lda #>CloseDT
	sta SPCommand+12
	ATCall SPCommand	;close the DeskTop
AI3		; 
	pla
	sta StgPtr+1	;restore the zero page string pointers
	pla
	sta StgPtr
	rts

CheckAccess		; 
	lda StgPtr	;save zero page pointers
	pha	;onto the stack
	lda StgPtr+1	;so that they can be restored
	pha	;
	lda VolName	;set up zero page to be used with the
	sta StgPtr	;fetching the name of this volume
	lda VolName+1	;because we have to	add a / in the name
	sta StgPtr+1	;
	ldy #0
	lda (StgPtr),y	;get the length
	tay	;into the y register
	inc a	;add one to the name lentgh
	sta AccessName
	lda #'/'
	sta AccessName+1
CA2	lda (StgPtr),y	;now move the rest of the string
	sta AccessName+1,y	;into AccessName
	dey
	bne CA2
	pla	;now restore zero page
	sta StgPtr+1	;back to original pointers
	pla	;
	sta StgPtr	;
	ATCall FIAccess
	lda FIAccess+5	;get the user summary byte
	clc	;clear the carry to	indicate Access is ok
	bne CA1	;if not zero, then access allowed
	sec	;sec carry, summary	byte says Access denied
CA1	rts


ErrorHandler		;               
	phx	;preserve the value	in the x register
	cpy #0	;if minus flag clear then this is an alert
	bmi IsAlert	;you can only accept!
	ldy #0	;if minus flag clear then this is a dialog 
IsAlert		; ;with two possible paths.
	txa
	asl a
	tax
	lda MessTbl,x	;get the low byte of pointer to the String
	sta MessPtr	;into the Y register for a second
	lda FilProcTbl,x
	sta FilterProc
	inx	;increment the pointer
	lda MessTbl,x	;get the high byte of pointer to the String     
	sta MessPtr+1	;
	lda FilProcTbl,x
	sta FilterProc+1
	sty MessOpt
GoMessage	Message MessParms
	plx	;restore the X register
	rts

DrawBox		;               
	lda #%01000000
	sta MessOpt
	stz FilterProc
	stz FilterProc+1
	Message MessParms
	rts

RestoreBox		;               
	lda #%00100000
	sta MessOpt
	stz FilterProc
	stz FilterProc+1
	Message MessParms
	rts

ProcFSName		; 
	CenterStr FSName
	rts

PathProc		; 
	GetXY
	ldx #2
	lda #CD_GotoXY
	jsr ConsDrvr
	ldx #<OurPath
	ldy #>OurPath
	WritePointer
	rts

PrefixProc		
	IF OSFlag = 0 or OSFlag = 128 or OSFlag = 192 then; 
	GetXY
	ldx #2
	lda #CD_GotoXY
	jsr ConsDrvr
	ldx SetPrefix+1
	ldy SetPrefix+2
	WritePointer
	EndIF
	rts

VolProc		; 
	GetXY
	ldx #2
	lda #CD_GotoXY
	jsr ConsDrvr
	ldx VolName
	ldy VolName+1
	WritePointer
	rts

ClearWindow		; 
	lda #3
	sta MainWindow+1
	SViewPort MainWindow
	WriteChar ClrWind
	lda #1
	sta MainWindow+1
	SViewPort MainWindow
	rts

CheckAT		;               
	lda mli+2	;check to see if AppleTalk is installed
	and #$f0	;clear off the low nibble
	cmp #$c0	;is this pointing to a slot
	bne @CA1	;Card is here but not installed
	clc	;
	rts
@CA1	sec
	rts

SysErr
*** trigger the analyzer so we can see what the error was
	lda #$aa
	sta 0
*** 
	ldy #$80
	ldx #0
	jsr ErrorHandler
	jsr LogMeOut	;just in case were logged on to a server
	jmp ByeBye

DrawLogOnScrn		; 
	SViewPort SplashRect
	WriteChar Return
	CenterStr LogOnSplash1
	WriteChar Return
	CenterStr LogOnSplash2
	WriteChar Return
	CenterStr LogOnSplash3
	rts


**********************************************************************************
	IF (OSFlag = 128) or (OSFlag = 0) or (OSFlag = 192) then
LoadAtinit		;should NEVER be called by P16 application
	lda #$80
	sta FINaming+5
	ATCall FINaming
	lda #<Prefix
	sta SetPrefix+1
	lda #>Prefix
	sta SetPrefix+2
	jsr mli
	DC.B $c6
	DC.W SetPrefix
	bcc LAT1
	jmp ATOpenErr
LAT1	lda #<UserFName	;get the high byte of the pathname to open
	sta Fopen+1	;store it in the Open parameter list
	lda #>UserFName	;get the low byte of the pathname to open
	sta Fopen+2	;store it in to the	paramter list
	jsr mli
	DC.B $c8
	DC.W FOpen
	bcc LAT2
	jmp ATOpenErr
LAT2	lda FOpen+5
	sta FRead+1
	lda #<ReplyBuff
	sta DataBuf
	lda #>ReplyBuff
	sta DataBuf+1
	lda #$ff
	sta ReqCnt
	sta ReqCnt+1
	jsr mli
	DC.B Read
	DC.W FRead
	bcc LAT3
	jmp ATOpenErr
LAT3		; 
	jsr mli
	DC.B $cc
	DC.W FClose
	lda TranCnt
	clc
	adc #<ReplyBuff
	sta EOFPntr
	lda TranCnt+1
	adc #>ReplyBuff
	sta EOFPntr+1
	clc
LAT4		;always exit thru	here to restore Naming mode
	rts

ATOpenErr
	IF (OSFlag=128 or OSFlag=192) THEN
	bra ATErr1
	ENDIF
	IF (OSFlag=0 or OSFlag=64) THEN
	sec
	bra LAT4
	ENDIF

ATErr1	ldy #$80
	ldx #15
	jsr ErrorHandler
	jmp ByeBye

CheckMail		;should NEVER be called by P16 apps
	lda #<Prefix	;Set the User prefix path
	sta FIBuffer	;
	lda #>Prefix	;
	sta FIBuffer+1	;
	ATCall FIUserPrefix	;set the prefix to the user path
	jsr LoadAtinit	;set the user prefix and load in ATINIT
	bcs NoMail	;if ATINIT is not configured, there is no mail
	lda #<MailName	;set up the parameters for the Open call
	sta Fopen+1	;
	sta GetFInfoParm+1
	lda #>MailName	;
	sta Fopen+2	;
	sta GetFInfoParm+2
	jsr mli	;is it a directory?
	DC.B GetFInfo
	DC.W GetFInfoParm
	bcs NoMail
	lda GetFInfoParm+4
	cmp #$0f
	bne NoMail	;this is not a directory
	jsr mli	;and open the directory "Mail" in the 
	DC.B $c8	;user directory
	DC.W FOpen	;
	bcs NoMail	;there is no folder	called Mail
	lda FOpen+5	;get the open Reference number
	sta FRead+1	;into the Read Parameter list
	lda #<ArrayBuff	;set up the Data Buffer
	sta DataBuf	;
	lda #>ArrayBuff	;
	sta DataBuf+1	;
	stz ReqCnt	;and a request count of 512
	lda #1	;
	sta ReqCnt+1	;
	jsr mli	;and then read it in
	DC.B $ca	;
	DC.W FRead	;
	bcs NoMail	;if the carry is set an error occurred
		; ;
	jsr mli	;close the file
	DC.B $cc	;
	DC.W FClose	;
	lda ArrayBuff+$25	;this is the offset	for the number
	bne GotMail	;of files in this directory
	lda ArrayBuff+$26	;check both bytes for zero
	beq NoMail	;if both are zero, then there is no mail
GotMail	ldy #$80	;there is mail, display the message
	ldx #20	;need to add message to list....
	jsr ErrorHandler	;oh, yeah!
NoMail		;job is done, no casualties
	stz FINaming+5	;restore the naming	mode back to ProDOS
	jsr mli	;
	DC.B $42
	DC.W FINaming
	rts
	EndIF
	
	IF OSFlag = 0 then
CheckNetVol		; ;is this volume a	network volume?
	jsr mli	;do the block read
	DC.B ReadBlock	;ProDOS Command
	DC.W RBParm	;our parameter list
	cmp #$88	;did we get a network error?
	beq CNL2	;if not then this is not a network volume
	clc	;indicate that the volume is local 
	rts	;and return
CNL2		; 
	sec	;the volume is on the network
	rts	;return


GetVolPfx		;this routine gets the volume prefix
	jsr mli	;make the online call
	DC.B $c5	;the Unitnum was stored here at launch time
	DC.W OnLineParm	;
	lda ReplyBuff	;get the byte that contains the volume length
	and #$0f	;clear the high nibble
	tay	;into the accumulator
	inc a	;plus one
	inc a	;plus two for dos "/"s
	sta Prefix	;store the volume name length
	lda #'/'	;put the backslashes into the name
	sta Prefix+1	;one goes here
	sta Prefix+2,y	;the other here at the end of the file
TheLoop2	lda ReplyBuff,y	;now move the bytes	    
	sta Prefix+1,y	;from the reply buffer to the Prefix buffer
	dey	;until all of them are moved
	bne TheLoop2	;
	rts	;


GetUserName		; 
	jsr CheckNetVol	;rbh: are we running on a network volume?
	bcc @3
	jsr GetNetName	;rbh: get the name from the server
	bcc @2
@1	stz NameBuffer
	rts
@2	tay	;save the accumulator, it has the low byte
	lda #0	;to FPReply and x has the high byte
	pha	;set the offset to zero
	PushWord #NameBuffer;destination first
	phx	;first the source high byte
	phy	;then the source low byte
	_MoveStr	;
	rts
@3		; 
	jsr SetPath
	jsr mli
	DC.B $c6
	DC.W SetPrefix
	bcs @1
	stx FOpen+1
	sty FOpen+2
	jsr mli
	DC.B Open	;
	DC.W FOpen	;
	bcs @1	;open failed, punt
	lda FOpen+5	;get the reference Number
	sta FRead+1	;store the reference numbers for other calls
	sta GetEofParm+1	;
	sta SetMarkParm+1	;
	sta FClose+1	;
	jsr mli	;get the end of file 
	DC.B GetEof	;
	DC.W GetEofParm	;
	bcs @1	;if an error occurred, there will be no	update to the username
	sec	;set the carry for subtraction
	lda GetEofParm+2	;get the LSB of the	EOF
	sbc #<NameOffset	;subtract the name offset
	sta SetMarkParm+2	;store it in the set mark parameter list
	lda GetEofParm+3	;
	sbc #>NameOffset	;subtract the upper	byte
	sta SetMarkParm+3	;
	lda GetEofParm+4	;and the high byte
	sbc #0	;
	sta SetMarkParm+4	;we now have the mark in the file
	jsr mli	;
	DC.B SetMark	;
	DC.W SetMarkParm	;
	lda #33
	sta FRead+4
	stz FRead+5
	lda #<NameBuffer
	sta FRead+2
	lda #>NameBuffer
	sta FRead+3
	jsr mli
	DC.B Read
	DC.W FRead
	bcc @4
	jmp @1
@4		; 
	jsr mli
	DC.B Close
	DC.W FClose
	rts	;


ChangePass		; 
	GotoXY 5,7
	WriteStr Entry3
	GotoXY 0,10
	ReptChar TitLine
	WriteCStr Prompt2	;which keys can be used
	GotoXY 3,11
	WriteCStr Prompt7	;display instructions to user
	GotoXY 3,13
	WriteCStr NewPassword ;prompt - "New Password:"
CP3	stz NewPasswrd
	stz OptionByte
	lda #08
	sta MyLen
	lda #<NewPasswrd
	sta InBuff
	lda #>NewPasswrd
	sta InBuff+1
	GotoXY 17,13
	Input MyParms
	cmp #Escape
	bne ChangeIt
	sec
	rts
ChangeIt		; 
	lda LoginPl+$14	;get the current session number
	sta GSSess	;this is in the middle of SPCommand
	sta FILogout+4	;same session to logout
	ldx NewPassWrd	;get the length of the password
	inx	;Point to the first	character in string
	lda #8	;subtract 8     
	sec	;
	sbc NewPassWrd	;from the length of	the new password
	beq CP1	;if new password is	8, no padding is needed
	tay	;x register has how	many zeros to place
CPadZeros	stz NewPassWrd,x	;clear buffer until	x = 0
	inx	;
	dey	;
	bne CPadZeros	;
CP1		; 
	lda #<NewPasswrd	;ok, now encript the new password
	sta DesParms+2	;
	lda #>NewPasswrd	;
	sta DesParms+3	;this time the result goes here
	lda #<FPChangePass2	;
	sta DesParms+4	;
	lda #>FPChangePass2	;
	sta DesParms+5	;
	ldx #<DesParms
	ldy #>DesParms
	jsr DES
	lda #<PassBuffer+1	;setup the parameter list to scramble the
	sta DesParms+2	;old password with the new one
	lda #>PassBuffer+1
	sta DesParms+3	;
	lda #<FPChangePass1	;place the DES result here
	sta DesParms+4	;
	lda #>FPChangePass1	;
	sta DesParms+5	;
	ldx #<DesParms	;and then call the Des Encription routine
	ldy #>DesParms
	jsr DES
	lda #12	;set up the Reply Buffer length
	sta SPCommand+$F	;none is really needed for this call
	stz SPCommand+$10	;of twelve (12)
	lda #<FPReply	;here is the reply buffer
	sta SPCommand+$11	;change the ReplyBuffer
	lda #>FPReply	;
	sta SPCommand+$12	;change the ReplyBuffer
	lda #<FPChangePass	;setup SP Command Paramters
	sta SPCommand+11	;tell FPCommand where the parameters are
	lda #>FPChangePass	;
	sta SPCommand+12
	lda #36	;Length of FPChangePass
	sta SPCommand+9
	stz SPCommand+10
	ATCall SPCommand	;Change the password
	bcc CPDun
CPDun	ATCall FILogout	;and then logout from the server
	clc	;indicate that Return was pressed! 
	rts

GetNetName		; 
	ATCall FIListSess
	ldx SessNum
	bne GNN3
	sec
	rts
GNN3	lda #<SessBuff
	sta StgPtr2
	lda #>SessBuff
	sta StgPtr2+1
	ldy #1
GNN1	lda (StgPtr2),y
	bit #$01
	bne GNN2
	lda #32	;next volume to compare is 32 bytes away
	jsr IncStgPtr2
	dex
	bne GNN1
	sec	;we should never get here but just in case..
	rts	;
GNN2		; 
	ldy #0	;get the Session reference number
	lda (StgPtr2),y	;
	sta GSSess	;
	lda #33	;set up the Reply Buffer length
	sta SPCommand+$F	;none is really needed for this call
	stz SPCommand+$10	;of twelve (12)
	lda #<FPReply	;here is the reply buffer
	sta SPCommand+$11	;change the ReplyBuffer
	lda #>FPReply	;
	sta SPCommand+$12	;change the ReplyBuffer
	lda #<FPGetUserInfo	;setup SP Command Paramters
	sta SPCommand+11	;tell FPCommand where the parameters are
	lda #>FPGetUserInfo	;
	sta SPCommand+12
	lda #8	;Length of FPGetUserInfo
	sta SPCommand+9
	stz SPCommand+10
	ATCall SPCommand	;Get my UserID
	ldy #2	;move the ID to FPMapID
NxtIDByte	lda FPReply,y	;User IDs are four bytes        
	sta FPMapID,y	;move them into FPMapID
	iny	;
	cpy #6	;when Y = 6, we have move four bytes
	bne NxtIDByte	;fall thru when done
	lda #<FPMapID	;setup SP Command Paramters
	sta SPCommand+11	;tell FPCommand where the parameters are
	lda #>FPMapID	;
	sta SPCommand+12
	lda #6	;Length of FPMapID
	sta SPCommand+9
	stz SPCommand+10
	ATCall SPCommand	;Get my name from the ID
	lda #<FPReply
	ldx #>FPReply
	clc
	rts


UpdateName		; 
	jsr CheckNetVol	;no auto username for now
	bcc UN2	;if this is a network volume, it does not
UN6	rts	;need to be updated

UN2	jsr SetPath	;set the path to the ATINIT File
	phx
	phy
	lda #<Prefix
	sta SetPrefix+1
	lda #>Prefix
	sta SetPrefix+2
	jsr mli
	DC.B $c6
	DC.W SetPrefix
	bcc UN5
	ply
	plx
	clc	;it failed, but who	cares
	rts	;open failed, punt
UN5
	pla	;get the pointer to	the patnname
	sta FOpen+2	;update the Open parameter list
	pla	;and the low byte	    
	sta FOpen+1	;
	jsr mli	;open the file
	DC.B Open
	DC.W FOpen
	bcc UN1	;if the carry is clear, continue
	clc	;an error occurred
	rts	;return as if there	was no user name
UN1	lda FOpen+5	;get the reference Number
	sta FWrite+1	;store the reference numbers for other calls
	sta GetEofParm+1	;
	sta SetMarkParm+1	;
	sta FlushParm+1
	sta FClose+1
	lda LastDev	;msd: Get current device
	sta UnitNum	;msd: and use it for Online call
	jsr mli	;get the end of file 
	DC.B GetEof
	DC.W GetEofParm
	bcs UN4	;if an error occurred, there will be no	update to the username
	sec	;set the carry for subtraction
	lda GetEofParm+2	;get the LSB of the	EOF
	sbc #<NameOffset	;subtract the name offset
	sta SetMarkParm+2	;store it in the set mark parameter list
	lda GetEofParm+3	;
	sbc #>NameOffset	;subtract the upper	byte
	sta SetMarkParm+3	;
	lda GetEofParm+4	;and the high byte
	sbc #0	;
	sta SetMarkParm+4	;we now have the mark in the file
UN3
	jsr mli	;msd: Force ProDOS to find out what
	dc.b Online	;msd: disk is in the drive.
	dc.w OnlineParm	;msd: (Detect disk switched)
	bcs UN7	;msd: Check for possible errors
	jsr mli
	DC.B SetMark
	DC.W SetMarkParm
	bcs UN4	;if an error occurs, no update
	jsr mli	;all is still well,	write the name out to the ATINIT file
	DC.B Write
	DC.W FWrite
	bcs UN8
	jsr mli	;this is a special fix for the UniDisk 3.5
	DC.B Flush	;which does not know when it writes to a file
	DC.W FlushParm	;that the disk is write protected
	bcc UN4
UN7	cmp #$2f	; Device offline ->	ask for volume
	beq UN9
	cmp #$2E	;msd: Disk switched	-> ask for volume
	beq UN9
UN8	cmp #$2b	;any error but write protect (2b) is undefined
	bne UN4	;
UN9	ldy #$80	;alert -> Please write enable this volume:
	ldx #28
	jsr ErrorHandler
	bra UN3
UN4		; 
	jsr mli	;close the file
	DC.B Close	;
	DC.W FClose	;
	rts	;the name is updated

SetPath		; 
	jsr GetVolPfx	;rbh: build a prefix for the volume name
	sec	;rbh: CHECK TO SEE IF WE'RE ON A IIGS
	jsr CheckMach
	bcs P8Disk	;rbh: Load ATINIT from P8 disk
;
	LONGA ON	;rbh: we are an Apple //gs
	LDA p16flag	;rbh: GET FLAG AT $E100BD
	LONGA OFF	;rbh: are we running under prodos 16?
;
	BEQ P8Disk	;rbh: NOT PRODOS 16
P16Disk		; 
	ldx #<P16FName
	ldy #>P16FName
	bra theName
P8Disk		; 
	ldx #<P8FName
	ldy #>P8FName
theName		; 
	rts
	ENDIF


;------------------------------------------
;
; Console Parms
;
;------------------------------------------
MyParms		; 
OptionByte	DC.B $00	;option Byte
MyLen	DS.B 1	;maximum input length
InBuff	DS.B 2	;Buffer for input/output
	DC.W MyTermList	;Termination Characters
MyTermList		; 
	DC.B $03
	DC.B Escape
	DC.B TabHB
	DC.B CrHB	;3 characters Esc, Tab and Return

ListParms		; 
SelXPos	DS.B 1
SelYPos	DS.B 1
Increment	DS.B 1
ArrayCnt	DS.B 1
StgArrayPtr	DS.B 2
SelArray	DC.W MySelArray
SelIndex	DS.B 1
ListOptByte	DS.B 1


InitParm	DC.B $80

TitLine		; 
	DC.W ULChars
	DC.W 5

ULChars		; 
	DC.B MTON
	DC.B ReptChar
LinCnt	DC.B 50
	DC.B 'L'	;top of the window underline character
	DC.B MTOFF

MainWindow	DC.B 15
	DC.B 1
	DC.B 64
	DC.B 20

FrameParms1		; 
Point1	DC.B 15	;x1
	DC.B 00	;y1
Point2	DC.B 65	;x2
	DC.B 20	;y2

WaitStr		; 
	DC.B $02	;number of characters
	DC.B WaitChar	;Control Character to indicate this is a wait
	DC.B $ff	;this is how long to wait

SplashRect		; 
	DC.B 0	;x1
	DC.B 9	;y1
	DC.B 79	;x2
	DC.B 15	;y2

FrameParms3		; 
	DC.B 5	;x1
	DC.B 6	;y1 viewport+1
	DC.B 45	;x2 viewport-1
	DC.B 14	;y2

ListWindow	DC.B 20
	DC.B 8
	DC.B 59
	DC.B 15

SaveArea	DC.B 9
	DC.B 9
	DC.B 71
	DC.B 16

Title	DC.B '  '
	DC.B MTON
	DC.B 'A'
	DC.B MTOFF
	DC.B ' File Server Log On V1.5   '
	DC.B Inv
	DC.B CLEOL
	DC.B Norm
	DC.B CR
	DC.B $00	;end of C String

CheckMark		; 
	DC.B MTON
	DC.B 'D'
	DC.B MTOFF
	DC.B $00

StrArray	DC.W Entry1
	DC.W Entry2
	DC.W Entry3



Prompt1		; 
	DC.B CPOS
	DC.B 1
	DC.B 19
	DC.B 'Select:'
	DC.B MTON
	DC.B 'K J'
	DC.B MTOFF
	DC.B CPOS
	DC.B 20
	DC.B 19
	DC.B 'Cancel: Esc'
	DC.B CPOS
	DC.B 40
	DC.B 19
	DC.B 'Accept:'
	DC.B MTON
	DC.B 'M'
	DC.B MTOFF
	DC.B $00

Prompt2	DC.B CPOS
	DC.B 1
	DC.B 19
	DC.B 'Change: Tab'
	DC.B CPOS
	DC.B 20
	DC.B 19
	DC.B 'Cancel: Esc'
	DC.B CPOS
	DC.B 40
	DC.B 19
	DC.B 'Accept:'
	DC.B MTON
	DC.B 'M'
	DC.B MTOFF
	DC.B $00

Prompt3	DC.B 'Enter your name and password:'
	DC.B $00

Prompt4	DC.B 'Enter the password for the volume'
	DC.B $00

Prompt5	DC.B CPOS
	DC.B 1
	DC.B 19
	DC.B 'Cancel: Esc'
	DC.B CPOS
	DC.B 40
	DC.B 19
	DC.B 'Accept:'
	DC.B MTON
	DC.B 'M'
	DC.B MTOFF
	DC.B $00

Prompt6		; 
	DC.B CPOS
	DC.B 1
	DC.B 19
	DC.B 'Select:'
	DC.B MTON
	DC.B 'K J'
	DC.B MTOFF
	DC.B CPOS
	DC.B 15
	DC.B 19
	DC.B 'Change zones: Esc'
	DC.B CPOS
	DC.B 40
	DC.B 19
	DC.B 'Accept:'
	DC.B MTON
	DC.B 'M'
	DC.B MTOFF
	DC.B $00

Prompt7	DC.B 'Enter your old and new password:'
	DC.B $00

Prompt8		; 
	DC.B CPOS
	DC.B 1
	DC.B 19
	DC.B 'Select:'
	DC.B MTON
	DC.B 'K J H U'
	DC.B MTOFF
	DC.B CPOS
	DC.B 20
	DC.B 19
	DC.B 'Quit: Esc'
	DC.B CPOS
	DC.B 40
	DC.B 19
	DC.B 'Accept:'
	DC.B MTON
	DC.B 'M'
	DC.B MTOFF
	DC.B $00

Prompt9	DC.B CPOS
	DC.B 1
	DC.B 19
	DC.B CLEOL
	DC.B 'Select:'
	DC.B MTON
	DC.B 'K J'
	DC.B MTOFF
	DC.B CPOS
	DC.B 20
	DC.B 19
	DC.B 'Quit: Esc'
	DC.B CPOS
	DC.B 40
	DC.B 19
	DC.B 'Accept:'
	DC.B MTON
	DC.B 'M'
	DC.B MTOFF
	DC.B $00

;------------------------------------------
;
; Message Variables
;
;------------------------------------------
MessParms
MessOpt	DS.B 1
MessPtr	DS.B 2
FilterProc	DC.B $00,$00
Rect		; 
	DC.B 10	;x1
	DC.B 9	;y1
	DC.B 70	;x2
	DC.B 15	;y2
WindBuff	DC.W WindowBuff

MessageWind	DC.B 10
	DC.B 10
	DC.B 69
	DC.B 15

Mess0		;               
	DC.B (Mess0End-Mess0)-1
	DC.B Return
	DC.B '  Contact the network administrator.'
	DC.B Return
	DC.B '  An unknown system error has occurred.'
	DC.B Return
;;; Well, this will be a pain to get the error number stored here in all cases.
;*** added 25-Nov-92 DAL
;	DC.B '  (Error $'
;theErrorCode	DC.B 'xxxx)'
;	DC.B Return
;*** end 25-Nov-92
Mess0End		; 

Mess1		;               
	DC.B (Mess1End-Mess1)-1
	DC.B Return
	DC.B '  Unknown user or login is disabled.  Please retype'
	DC.B Return
	DC.B '  the name or contact the network administrator.'
Mess1End		; 

Mess2		;               
	DC.B (Mess2End-Mess2)-1
	DC.B Return
	DC.B ' This volume does not have a proper ProDOS'
	DC.B Return
	DC.B ' pathname and cannot be used:'
	DC.B Return
Mess2End		; 

Mess3		;               
	DC.B (Mess3End-Mess3)-1
	DC.B Return
	DC.B ' Sorry, your password is incorrect.'
	DC.B Return
	DC.B Return
	DC.B ' Please reenter it.'
Mess3End		; 

Mess4		;               
	DC.B (Mess4End-Mess4)-1
	DC.B Return
	DC.B '  The server is not responding.'
	DC.B Return
	DC.B '  You cannot connect to it.'
Mess4End		; 

Mess5		;               
	DC.B (Mess5End-Mess5)-1
	DC.B Return
	DC.B ' Contact the network administrator.'
	DC.B Return
	DC.B ' This startup path was not found:'
	DC.B Return
Mess5End		; 

Mess6		;               
	DC.B (Mess6End-Mess6)-1
	DC.B Return
	DC.B ' Contact the network administrator.'
	DC.B Return
	DC.B ' An error occurred launching the startup path:'
	DC.B Return
Mess6End		; 

Mess7		;               
	DC.B (Mess7End-Mess7)-1
	DC.B Return
	DC.B '       No servers were found.'
	DC.B Return
	DC.B Return
	DC.B '       Press Return to try again.'
Mess7End		; 


Mess8		;               
	DC.B (Mess8End-Mess8)-1
	DC.B Return
	DC.B '  This file server uses an incompatible version'
	DC.B Return
	DC.B '  of the AFP protocol.  You cannot connect to it.'
Mess8End		; 

Mess9		;               
	DC.B (Mess9End-Mess9)-1
	DC.B Return
	DC.B '  This file server does not use a recognizable '
	DC.B Return
	DC.B '  logon sequence.  You cannot connect to it.'
Mess9End		; 

Mess10		;               
	DC.B (Mess10End-Mess10)-1
	DC.B Return
	DC.B '  The attempted connection to the server'
	DC.B $27
	DC.B 's'
	DC.B Return
	DC.B '  volume has failed.'
Mess10End		; 

Mess11		;               
	DC.B (Mess11End-Mess11)-1
	DC.B Return
	DC.B ' Contact the network administrator.'
	DC.B Return
	DC.B ' An error occurred setting the startup prefix:'
	DC.B Return
Mess11End		; 

Mess12		;               
	DC.B (Mess12End-Mess12)-1
	DC.B Return
	DC.B '  You are already logged on to the file server:'
	DC.B Return
	DC.B Return
Mess12End		; 

Mess13		;               
	DC.B (Mess13End-Mess13)-1
	DC.B Return
	DC.B '  You have not marked any volumes.'
Mess13End		; 

Mess14		;               
	DC.B (Mess14End-Mess14)-1
	DC.B Return
	DC.B '  You have too many volumes in use.  To add '
	DC.B Return
	DC.B '  another you must first unmark one or more volumes.'
	DC.B Return
Mess14End		; 

Mess15		;               
	DC.B (Mess15End-Mess15)-1
	DC.B Return
	DC.B '  Your startup configuration has not been set up'
	DC.B Return
	DC.B '  properly. Contact the network administrator.'
	DC.B Return
Mess15End		; 

Mess16		;               
	DC.B (Mess16End-Mess16)-1
	DC.B Return
	DC.B '  AppleTalk must be installed to run this program.'
Mess16End		; 

Mess17		;               
	DC.B (Mess17End-Mess17)-1
	DC.B Return
	DC.B '  The server is closing down.  Try again later.'
	DC.B Return
Mess17End		; 

Mess18		;               
	DC.B (Mess18End-Mess18)-1
	DC.B Return
	DC.B '  You have reached the limit of the number of'
	DC.B Return
	DC.B '  file servers you can log on to at one time.'
Mess18End		; 

Mess19		;               
	DC.B (Mess19End-Mess19)-1
	DC.B Return
	DC.B '  This file server will not allow any additional'
	DC.B Return
	DC.B '  users to logon.  Try again later.'
Mess19End		; 

Mess20		;               
	DC.B (Mess20End-Mess20)-1
	DC.B Return
	DC.B '  You have mail waiting for you.'
Mess20End		; 

Mess21		;               
	DC.B (Mess21End-Mess21)-1
	DC.B Return
	DC.B ' Contact the network administrator.'
	DC.B Return
	DC.B ' This volume name already exists and cannot be used:'
	DC.B Return
Mess21End		; 

Mess22		;               
	DC.B (Mess22End-Mess22)-1
	DC.B Return
	DC.B ' Contact the network administrator.'
	DC.B Return
	DC.B ' To connect to this server, this volume must be'
	DC.B Return
	DC.B ' a vaild ProDOS name:'
	DC.B Return
Mess22End		; 

Mess23		;               
	DC.B (Mess23End-Mess23)-1
	DC.B Return
	DC.B ' Contact the network administrator.'
	DC.B Return
	DC.B ' An access error occurred launching the startup path:'
	DC.B Return
Mess23End		; 

Mess24		;               
	DC.B (Mess24End-Mess24)-1
	DC.B Return
	DC.B ' Contact the network administrator.'
	DC.B Return
	DC.B ' This path does not contain a ProDOS 8 startup application:'
	DC.B Return
Mess24End		; 

Mess25		;               
	DC.B (Mess25End-Mess25)-1
	DC.B Return
	DC.B ' Contact the network administrator.'
	DC.B Return
	DC.B ' This path does not contain a ProDOS 16 startup application:'
Mess25End		; 

Mess26		;               
	DC.B (Mess26End-Mess26)-1
	DC.B Return
	DC.B '  Cancel to select additional volumes.'
	DC.B Return
	DC.B '  The volume with the startup application was not found:'
	DC.B Return
Mess26End		; 

Mess27		;               
	DC.B (Mess27End-Mess27)-1
	DC.B Return
	DC.B '  Contact the network administrator.'
	DC.B Return
	DC.B '  You do not have privileges to use this volume:'
	DC.B Return
Mess27End		; 

Mess28		;               
	DC.B (Mess28End-Mess28)-1
	DC.B Return
	DC.B '  Please write enable this volume:'
	DC.B Return
Mess28End		; 

	IF OSFlag = 0 THEN
Mess29		;               
	DC.B (Mess29End-Mess29)-1
	DC.B Return
	DC.B '  Caution: No user volume is mounted.'
	dc.b Return
	dc.b '  Some applications may fail.'
Mess29End
	ENDIF
	
MessTbl	DC.W Mess0
	DC.W Mess1
	DC.W Mess2
	DC.W Mess3
	DC.W Mess4
	DC.W Mess5
	DC.W Mess6
	DC.W Mess7
	DC.W Mess8
	DC.W Mess9
	DC.W Mess10
	DC.W Mess11
	DC.W Mess12
	DC.W Mess13
	DC.W Mess14
	DC.W Mess15
	DC.W Mess16
	DC.W Mess17
	DC.W Mess18
	DC.W Mess19
	DC.W Mess20
	DC.W Mess21
	DC.W Mess22
	DC.W Mess23
	DC.W Mess24
	DC.W Mess25
	DC.W Mess26
	DC.W Mess27
	DC.W Mess28
	IF OSFlag = 0 THEN
	dc.w Mess29
	ENDIF

FilProcTbl	DC.W Null
	DC.W Null
	DC.W VolProc
	DC.W Null
	DC.W Null
	DC.W PathProc
	DC.W PathProc
	DC.W Null
	DC.W Null
	DC.W Null
	DC.W Null
	DC.W PrefixProc
	DC.W ProcFSName
	DC.W Null
	DC.W Null
	DC.W Null
	DC.W Null
	DC.W Null
	DC.W Null
	DC.W Null
	DC.W Null
	DC.W VolProc
	DC.W VolProc
	DC.W PathProc
	DC.W PathProc
	DC.W PathProc
	DC.W PathProc
	DC.W VolProc
	DC.W PrefixProc
	IF OSFlag = 0 THEN
	dc.w Null	; message 29
	ENDIF

;------------------------------------------
;
; AppleTalk Parameter Lists
;
;------------------------------------------
LkupPl		; 
	DC.B $00	;sync flag
	DC.B $10	;command
	DC.W 0	;result code
	DC.L 0	;completion routine	pointer
	DC.L server	;server name
	DC.B 4	;retry interval
	DC.B 10	;retry count
	DC.W 0	;reserved
	DC.W NBPBuffLen	;buffer length
	DC.L NBPBuffer	;buffer address
	DC.B $7F	;max matches
MatchNum	DC.B $02	;act matches
*
* login parameter list
*
LoginPl		; 
	DC.B $00	;sync flag
	DC.B $2B	; FILogin command
	DC.W 0	;result code
	DC.W 0	;network
	DC.B $00	;node
	DC.B $00	;socket
PakLen	DS.B 2	;length of command
	DC.L logpckt	;address of command	packet
	DC.W 0512	;length of reply buffer
	DC.L replybuff	;address of reply buffer
	DC.B $00	;session
	DC.L 0	;attention routine
	DC.L replybuff	;address of server name, gets modified before call
	DC.L replybuff	;address of zone name, use replybuff to set up bank
	dc.w AFPVersion	;for now, AFPVersion 2.0
*
*Continue Login
*
ContLogPl		; 
	DC.B $00	;sync flag
	DC.B $2c	;command
	DC.W 0	;result code
CLSess	DC.B $00	;session
	DC.W 12	;length of command
	DC.L ContLogPkt
	DC.W 0512	;length of reply buffer
	DC.L replybuff

*
* GetSrvParms
*
SPCommand		; 
	DC.B $00	;byte - sync flag
	DC.B $20	;byte - ASP command
	DC.W 0	;word - Result
	DC.L 0	;long - Completion Routine Ptr
GSSess	DS.B 1	;byte - Session Number
	DC.W 01	;word - Length of command buffer
	DC.L GSPComm	;long - Address of command packet
	DC.W 12	;word - Length of Reply Buffer
	DC.L FPReply	;long - reply buffer pointer
	DS.B 4	;long - command result
	DS.B 2	;word - Reply Length

GSPComm	DC.B $10

OpenDT	DC.B 48
	DC.B $00
	DS.B 2

CloseDT	DC.B 49
	DC.B $00
	DS.B 2

GetSPStatus		; 
	DC.B $00	;sync flag
	DC.B $1d	;command
	DC.W 0	;result code
	DC.L 0	;Completion Routine
	DC.W 0	;network
	DC.B $00	;node
	DC.B $00	;socket
StatLen	DC.W 512	;Max length of packet
	DC.L ReplyBuff	;pointer to buffer
	DC.W 0	;length of status data

SPWrite		; 
	DC.B $00
	DC.B $21
	DC.W 0
	DC.L 0
	DS.B 1
	DC.W 20	;command buffer length AddIcon
	DC.L FPAddIcon	;command buffer pointer
	DC.W 256	;write buffer length
	DC.L SysIcon	;write buffer pointer
	DC.W 12	;reply buffer length
	DC.L FPReply	;reply buffer pointer
	DS.B 4	;command result
	DS.B 2	;length written
	DS.B 2	;reply length

FPAddIcon		; 
	DC.B 192
	DC.B $00	;reserved
	DS.B 2	;DeskTop reference number
	DC.B 'pdos'
	DS.B 4	;File Type
	DC.B $01	;IconType
	DC.B $00	;reserved
	DC.B '10B9'	;IconTag
	DC.B $01,$00	;IconSize

FPIconInfo		; 
	DC.B 52
	DC.B $00	;reserved
	DS.B 2	;DeskTop reference number
	DC.B 'pdos'
	DC.B $00,$01	;Icon Index

FPGetUserInfo		; 
	DC.B $25	;FPUserInfo command
	DC.B $01	;this user
	DS.B 4	;UserID gets returned here
	DC.B $00,$01	;bit map to indicate UserID

FPMapID		; 
	DC.B $15	;FPMapID command
	DC.B $01	;function byte 1 = map user ID to User Name
	DS.B 4	;UserID to be mapped

FPReply	DS.B 33
*
* mount volume
*
FIMountVol		; 
	DC.B $00	;byte - sync flag
	DC.B $2e	;byte - command
	DC.W 0	;word - result code
	DC.B $00	;byte - session reference number
MPassFlag	DC.B $c0	;byte - password flag
VolName	DC.L *	;long - volume name	pointer
	DS.B 2	;word - volume ID
	DC.B $cc	;byte - slot/drive
	DC.L passbuffer+1

FIUserPrefix		; 
	DC.B $00	;byte - sync flag
	DC.B $2a	;byte - command
	DC.W 0	;word - result code
FIDirFlg	DC.B $00	;byte - direction flag
FIBuffer	DC.L ReplyBuff	;long - pointer to buffer

FILogout		; 
	DC.B $00
	DC.B $2d
	DC.W 0
	DS.B 1

FIListSess		; 
	DC.B $00
	DC.B $2f
	DC.W 0
	DC.W 1024
	DC.L SessBuff
SessNum	DS.B 1



GetInfo		; 
	DC.B $00
	DC.B $02
	DS.B 2
	DS.B 4
	DS.B 2
ABridge	DS.B 1
	DS.B 1
	DS.B 2
	DS.B 1

GetZoneList		; 
	DC.B $00
	DC.B $1b
	DS.B 2
	DC.L 0
	DC.W NBPBuffLen
	DC.L NBPBuffer
BridgeNode	DS.B 1
StartIndex	DC.W 1
	DC.B $04
	DC.B $04
ZoneCount	DS.B 1
	DS.B 4

;
; 09-Jul-91 MSD: Changed retry count and interval
;
GetMyZone		; 
	DC.B $00	;byte - sync flag
	DC.B $1a	;byte - GetMyZone command
	DC.W 0	;word - Result
	DC.L 0	;long - Completion Routine Ptr
	DC.L ReplyBuff	;long - Buffer Pointer
	DC.B $04	;byte - Retry Interval
	DC.B $04	;byte - Retry Count
	DS.B 4	;long - Reserved


FINaming		; 
	DC.B $00
	DC.B $33
	DC.W 0
	DC.B $80
	DC.B $80

FIAccess		; 
	DC.B $00	;byte - sync flag
	DC.B $32	;byte - FIAccess command
	DC.W 0	;word - Result <-
	DC.B $00	;byte - Direction Flag ->
	DC.L 0	;long - Access Rights <->
	DC.L AccessName	;long - pointer to volume string ->
	DC.L 0	;long - Creator name pointer <->
	DC.L 0	;long - Group name pointer <->

Boot		; 
	DC.B $00
	DC.B $06
	DC.W 0


RegstrName	DC.B $00
	DC.B $0e
	DC.W 0
	DC.L 0
	DC.L ArrayBuff
	DC.B $04
	DC.B $04
	DC.W 0
RegSocket	DC.B $04
	DC.B $00

ContLogPkt		; 
	DC.B $13
	DC.B $00
LogID	DS.B 2
DesLogRes	DS.B 8

FPChangePass		; 
	DC.B $24	;FPChangePass Command
	DC.B $00
	str 'Randum Exchange'
	DC.B $00	;null Pad
FPChangePass1	DS.B 8
FPChangePass2	DS.B 8

AccessName	DS.B 17

DesParms		; 
	DC.W Passbuffer+1
	DC.W ReplyBuff+2
	DC.W DesLogRes

	if OSFlag =128 or OSFlag = 192 then

initparms	DC.B $00,$01,$00,$00 ;open the drivers
	DC.B $40
ProEntPt	DC.B $00,$00,$00,$00 ;past junk
	DC.B $00	;pick a node, any node
	DC.B $00,$00

aiparms	DC.B $02,$00,$19,$c7


setprint		; 
	DC.B $00,$28,$00,$00
PrName	DC.L 0
theflag	DC.B $a0	;bit5 = ImageWriter	Emulation
	DC.W 2	;Flush Buffer Timer
	DC.W 15*4	;Session Timeout
	DC.W 20	;number of buffers for RPM

idtbl	DC.B 'ATLK'
qMSG1LEN	str 'APPLETALK REQUIRES AN ENHANCED '
qmsg2len	str '128K APPLE IIE SYSTEM.'
qmsg1	equ qMsg1Len+1
qmsg2	equ qMsg2Len+1
	EndIF


	IF (OSFlag = 0) or (OSFlag = 128) or (OSFlag = 192) THEN
;------------------------------------------
;
; ProDOS8 Parameter Lists
;
;------------------------------------------

FOpen	DC.B $03
	DC.W UserFName
	DC.W IOBuff
	DS.B 1

FRead	DC.B $04
RefNum	DS.B 1
DataBuf	DC.W ReplyBuff
ReqCnt	DC.W $FFFF
TranCnt	DS.B 2

FWrite		; 
	DC.B $04
	DS.B 1
	DC.W NameBuffer
	DC.W 33	;write request count
	DS.B 2


FClose	DC.B $01
	DS.B 1

QuitParm	DC.B $04	;and we are done
	DC.B $00	;
	DS.B 3

FlushParm	DC.B $01	;Parameter count
	DS.B 1	;file reference number

SetPrefix		; 
	DC.B $01
	DC.W Prefix

SetMarkParm	DC.B $02
	DS.B 1
	DS.B 3

OnLineParm		; 
	DC.B $02
UnitNum	DS.B 1
	DC.W ReplyBuff

GetFInfoParm		; 
	DC.B $0a
	DS.B 17

RBParm	DC.B $03
RBUnitNum	DS.B 1
	DC.W ReplyBuff
	DC.W 0

GetEofParm	DC.B $02
	DS.B 1
	DS.B 3
	EndIF
	
	IF OSFlag = 64 THEN

;------------------------------------------
;
; ProDOS16 Parameter Lists
;
;------------------------------------------

QuitParms
	DC.L 0	; return to top of quit stack
	DC.W 0	; never return to me
	EndIF

;------------------------------------------
;
; Strings
;
;------------------------------------------
server		; 
	str '='
	str 'afpserver'
ZoneName	str '*'
	DS.B 31

MyZone	str '*'
NameField	Cstr 'Name: '
PassField	Cstr 'Password:'
OldPassword	Cstr 'Old Password:'
NewPassword	Cstr 'New Password:'
SelectServ	Cstr 'Select a file server:'
SelectVol	Cstr 'Mark the additional volume(s) you need:'
ChoseZone	Cstr 'Select a new zone:'
CurrZone	Cstr 'Current zone: '
*** added 25-Nov-92 DAL
BuildZL	Cstr '  Looking for AppleTalk zones  '
*** end 25-Nov-92
FSLookUp	Cstr '  Looking for AFP file servers '
LaunchStart	Cstr ' Now launching the startup path:'
UserDir	Cstr 'users/'
GuestName	str '<Any User>'
ClrText	str 'Cleartxt Passwrd'
Guest	str 'No User Authent'
RanExch	str 'Randnum Exchange'
Entry1	str 'Log on as a Registered User'
Entry2	str 'Log on as a Guest'
Entry3	str 'Change Password'
UserFName	str 'setup/atinit'
P8FName	str 'atinit'
P16FName	str 'system/system.setup/atinit'
MailName	str 'Mail'
LogonStr	str 'AFPVersion 2.0'
LogOnSplash1	str 'Apple II File Server Log On V1.5  '
LogOnSplash2	str 'Copyright Apple Computer, Inc.  1987-1992'
LogOnSplash3	str 'All Rights Reserved'
TwoEtype	str 'Apple IIe'
GStype	str 'Apple IIgs'

;------------------------------------------
;
; Logon Variables
;
;------------------------------------------
NoMoreVols	DS.B 1
OtherSrvrFlg	DS.B 1	;Flag to indicate another server lookup
DeriveCnt	DS.B 1
NoNameFlag	DS.B 1
CheckLog	DS.B 1
CompTemp	DS.B 1
CaseFlg	DS.B 1
SkipFlag	DS.B 1
BlockLen	DS.B 1
DrawCnt	DS.B 1
YPos	DS.B 1
B_LNGTH	DS.B 1
AuthFlag	DS.B 1
EOFPntr	DS.B 2
MySel	DS.B 1
ZoneFlag	DS.B 1
MovOffset	DS.B 1
UserAuthFlag	DS.B 1
OurVolSess	DS.B 1
SelFlag	DS.B 1
UMountFlag	DS.B 1
OurSlotDrive	DS.B 1
LogErrCnt	DS.B 1
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/Logon/Logon16.aii b/IIGS.601.SRC/GS.OS/NetBoot/Logon/Logon16.aii
new file mode 100644
index 0000000..33298ab
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/NetBoot/Logon/Logon16.aii
@@ -0,0 +1 @@
+;------------------------------------------------------------
; Logon16.aii
;
; This is an experimental version of the GS/OS-based Logon
; application.
;
;------------------------------------------------------------
		INCLUDE	'cons.macros'
		include	'Console.equates'

; macro to make an AppleTalk call for P16
		macro
&lab		ATCall	&Parm
&lab		phx			; X and Y must be preserved
		phy
		rep	#$30
		longa	on
		longi	on
		ldx	#&parm
		ldy	#^&parm
		jsl	$E11014		; Ram Dispatch
		sep	#$30
		longa	off
		longi	off
		ply
		plx
		mend

**************************************************
* OSFlag indicates the application type and is defined
* as follows:
*
* ProDOS 16 application = 64
* ProDOS 8 application = 0
* ProDOS 16 Boot Blocks = 192
* ProDOS 8 Boot Blocks = 128
*
**************************************************
OSFlag		equ	64		;ProDOS 16 Application	
NBPBuffLen	equ	8192
AFPVersion	equ	$0200		;AFP version 2.0

; These buffers must be defined storage	for P16.  In P8, they would be equates
; to areas between $800 and $2000.

LogonRec	Record	0
ReplyBuff	DS.B	768
ArrayBuff	DS.B	512
WindowBuff	DS.B	512
MySelArray	DS.B	256
FSName		DS.B	64
NameBuffer	DS.B	64
PassBuffer	DS.B	16
NewPassWrd	DS.B	16
LogPckt		DS.B	128
Prefix		DS.B	128
SessBuff	DS.B	1024
CompSelArray	DS.B	256
NBPBuffer	ds.b	NBPBuffLen
		EndR

Logon16		PROC export

		export	(InitParm,FrameParms1,MainWindow):code
		export	(TitLine,SelXPos,SelYPos):code
		export	(Increment,Selindex,StgArrayPtr):code
		export	(ArrayCnt,ListOptByte,ListParms):code
		export	(RestoreBox,MessParms,MessPtr):code
		export	(FilterProc,MessOpt):code
		export	(MessageWind,MainWindow):code
		
		export	(Mess0,Mess20,Mess15):code
		
		import	ConsDrvr
		import	LogonData:LogonRec
		with	LogonData
		
		phk
		plb
		sep	#$30
		longa	off
		longi	off
		lda	#$C0
		sta	InitParm
		InitConsole
		CursorOff
		jsr	Logon
		rep	#$30
		longa	on
		longi	on
		
		jsl	$E100A8
		dc.w	$2029
		dc.l	QuitList
		brk	0
QuitList
		dc.w	0

		INCLUDE	'logon.main'
		INCLUDE	'icon.aii'
		ENDP
LogonData	ds	LogonRec
		end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/Logon/Logon3.aii b/IIGS.601.SRC/GS.OS/NetBoot/Logon/Logon3.aii
new file mode 100644
index 0000000..b1a8673
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/NetBoot/Logon/Logon3.aii
@@ -0,0 +1 @@
+;------------------------------------------------------------
; Logon3.aii
;
; This is an experimental version of the GS/OS-based Logon
; program.  It will set the AFPVersion field to $8200 for use
; in prototyping some of AFP++.
;
;------------------------------------------------------------
		INCLUDE	'cons.macros'
		include	'Console.equates'

; macro to make an AppleTalk call for P16
		macro
&lab		ATCall	&Parm
&lab		phx			; X and Y must be preserved
		phy
		rep	#$30
		longa	on
		longi	on
		ldx	#&parm
		ldy	#^&parm
		jsl	$E11014		; Ram Dispatch
		sep	#$30
		longa	off
		longi	off
		ply
		plx
		mend

**************************************************
* OSFlag indicates the application type and is defined
* as follows:
*
* ProDOS 16 application = 64
* ProDOS 8 application = 0
* ProDOS 16 Boot Blocks = 192
* ProDOS 8 Boot Blocks = 128
*
**************************************************
OSFlag		equ	64		;ProDOS 16 Application	
NBPBuffLen	equ	1024
AFPVersion	equ	$8200		;AFP version 2.0 prototype

; These buffers must be defined storage	for P16.  In P8, they would be equates
; to areas between $800 and $2000.

LogonRec	Record	0
ReplyBuff	DS.B	768
ArrayBuff	DS.B	512
WindowBuff	DS.B	512
MySelArray	DS.B	256
FSName		DS.B	64
NameBuffer	DS.B	64
PassBuffer	DS.B	16
NewPassWrd	DS.B	16
LogPckt		DS.B	128
Prefix		DS.B	128
SessBuff	DS.B	1024
CompSelArray	DS.B	256
NBPBuffer	ds.b	NBPBuffLen
		EndR

Logon3		PROC export

		export	(InitParm,FrameParms1,MainWindow):code
		export	(TitLine,SelXPos,SelYPos):code
		export	(Increment,Selindex,StgArrayPtr):code
		export	(ArrayCnt,ListOptByte,ListParms):code
		export	(RestoreBox,MessParms,MessPtr):code
		export	(FilterProc,MessOpt):code
		export	(MessageWind,MainWindow):code
		
		export	(Mess0,Mess20,Mess15):code
		
		import	ConsDrvr
		import	LogonData:LogonRec
		with	LogonData
		
		phk
		plb
		sep	#$30
		longa	off
		longi	off
		lda	#$C0
		sta	InitParm
		InitConsole
		CursorOff
		jsr	Logon
		rep	#$30
		longa	on
		longi	on
		
		jsl	$E100A8
		dc.w	$2029
		dc.l	QuitList
		brk	0
QuitList
		dc.w	0

		INCLUDE	'logon.main'
		INCLUDE	'icon.aii'
		ENDP
LogonData	ds	LogonRec
		end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/Logon/LogonCDA.aii b/IIGS.601.SRC/GS.OS/NetBoot/Logon/LogonCDA.aii
new file mode 100644
index 0000000..2d16ee4
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/NetBoot/Logon/LogonCDA.aii
@@ -0,0 +1 @@
+;------------------------------------------------------------
; LogonCDA.aii
;
; This is an experimental version of the GS/OS-based Logon
; CDA.
;
;------------------------------------------------------------
		INCLUDE	'cons.macros'
		include	'Console.equates'

; macro to make an AppleTalk call for P16
		macro
&lab		ATCall	&Parm
&lab		phx			; X and Y must be preserved
		phy
		rep	#$30
		longa	on
		longi	on
		ldx	#&parm
		ldy	#^&parm
		jsl	$E11014		; Ram Dispatch
		sep	#$30
		longa	off
		longi	off
		ply
		plx
		mend

**************************************************
* OSFlag indicates the application type and is defined
* as follows:
*
* ProDOS 16 application = 64
* ProDOS 8 application = 0
* ProDOS 16 Boot Blocks = 192
* ProDOS 8 Boot Blocks = 128
*
**************************************************
OSFlag		equ	64		;ProDOS 16 Application	
NBPBuffLen	equ	8192
AFPVersion	equ	$0200		;AFP version 2.0

; These buffers must be defined storage	for P16.  In P8, they would be equates
; to areas between $800 and $2000.

LogonRec	Record	0
ReplyBuff	DS.B	768
ArrayBuff	DS.B	512
WindowBuff	DS.B	512
MySelArray	DS.B	256
FSName		DS.B	64
NameBuffer	DS.B	64
PassBuffer	DS.B	16
NewPassWrd	DS.B	16
LogPckt		DS.B	128
Prefix		DS.B	128
SessBuff	DS.B	1024
CompSelArray	DS.B	256
NBPBuffer	ds.b	NBPBuffLen
		EndR

LogonCDA	PROC export

		export	(InitParm,FrameParms1,MainWindow):code
		export	(TitLine,SelXPos,SelYPos):code
		export	(Increment,Selindex,StgArrayPtr):code
		export	(ArrayCnt,ListOptByte,ListParms):code
		export	(RestoreBox,MessParms,MessPtr):code
		export	(FilterProc,MessOpt):code
		export	(MessageWind,MainWindow):code
		
		export	(Mess0,Mess20,Mess15):code
		
		import	ConsDrvr
		import	LogonData:LogonRec
		with	LogonData
		
		string	pascal
		dc.b	'Logon'
		string	asis
		dc.l	StartUp
		dc.l	ShutDown
		
StartUp
		phk
		plb

		rep	#$30
		longa	on
		longi	on
		
		pha			; space for result
		ldx	#$2903		; GetIRQEnable
		jsl	$E10000		; find out what IRQs are enabled
		
		pea	$0001		; disable keyboard interrupts
		ldx	#$2303		; IntSource
		jsl	$E10000
		
		sep	#$30
		longa	off
		longi	off
		lda	#$C0
		sta	InitParm
		InitConsole
		CursorOff
		jsr	Logon
		rep	#$30
		longa	on
		longi	on
		
		pla			; get interrupt status
		and	#$0080		; were keyboard interrupts enabled?
		beq	ShutDown	; no, so don't turn them on
		
		pea	$0000		; (re)enable keyboard interrupts
		ldx	#$2303		; IntSource
		jsl	$E10000
ShutDown
		rtl
		
		INCLUDE	'logon.main'
		INCLUDE	'icon.aii'
		ENDP
LogonData	ds	LogonRec
		end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/Logon/Makefile b/IIGS.601.SRC/GS.OS/NetBoot/Logon/Makefile
new file mode 100644
index 0000000..5d84546
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/NetBoot/Logon/Makefile
@@ -0,0 +1 @@
+#
# This is the Makefile for creating the Logon3 program
#
# Modification History
# 17-Mar-88	MSD	First try
#


All		Ä	LogonCDA Logon3 Logon16 Logon8

Logon3		Ä	Logon3.o ¶
			::console:console.o ¶
			DES.o
	LinkIIGS -t S16 -o Logon3 ¶
		Logon3.o ¶
		::Console:Console.o ¶
		DES.o

Logon3.o	Ä	Logon3.aii ¶
			logon.main ¶
			icon.aii ¶
			::console:cons.macros ¶
			::console:Console.equates
	AsmIIGS -i ::console: -o Logon3.o Logon3.aii

Logon16		Ä	Logon16.o ¶
			::console:console.o ¶
			DES.o
	LinkIIGS -t S16 -o Logon16 ¶
		Logon16.o ¶
		::Console:Console.o ¶
		DES.o

Logon16.o	Ä	Logon16.aii ¶
			logon.main ¶
			icon.aii ¶
			::console:cons.macros ¶
			::console:Console.equates
	AsmIIGS -i ::console: -o Logon16.o Logon16.aii

Logon8		Ä	LogApp8.o ¶
			::console:console.o ¶
			DES.o
	LinkIIGS -o Logon8 ¶
		LogApp8.o ¶
		::Console:Console.o ¶
		DES.o
	MakeBinIIGS -t $FF Logon8

LogApp8.o	Ä	LogApp8.aii ¶
			logon.main ¶
			icon.aii ¶
			::console:cons.macros ¶
			::console:Console.equates
	AsmIIGS -i ::console: -o LogApp8.o LogApp8.aii

LogonCDA	Ä	LogonCDA.o ¶
			::console:console.o ¶
			DES.o
	LinkIIGS -t CDA -o LogonCDA ¶
		LogonCDA.o ¶
		::Console:Console.o ¶
		DES.o

LogonCDA.o	Ä	LogonCDA.aii ¶
			logon.main ¶
			icon.aii ¶
			::console:cons.macros ¶
			::console:Console.equates
	AsmIIGS -i ::console: -o LogonCDA.o LogonCDA.aii

::Console:Console.o	Ä	::Console:Console.aii ¶
				::Console:Input.aii ¶
				::Console:Strings.aii ¶
				::console:cons.macros ¶
				::console:Console.equates
	AsmIIGS -i ::console: -o ::Console:Console.o ::Console:Console.aii

DES.o			Ä	DES.aii
	AsmIIGS -o DES.o DES.aii

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/Logon/des.aii b/IIGS.601.SRC/GS.OS/NetBoot/Logon/des.aii
new file mode 100644
index 0000000..c3a9d3a
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/NetBoot/Logon/des.aii
@@ -0,0 +1 @@
+**************************************************
*
*
* des - data encryption standard. This routine is called with
* low byte of the parameter list in the	X reg and the high
* byte of the parameter list in the Y reg.
*
*
* written by    07-03-86
*       david su
*
* modified : 01-27-87 06:00 (tde)
*  5-29-87: Converted source to MacToGS	(rbh)
*  4-15-88: Converted source to MAX (msd)
*
* (c) 1987 paramis corporation
* (c) 1987 Apple Computer Inc
* all rights reserved
*
*       Parameter List: 
*       Pointer	    pointer <--	        ;
*       Encription Key  pointer <--	        ;This is an	eight byte padded password
*       Result	    pointer -->	        ;Eight Bytes
*
* Rick Hoiberg 5/29/87
*
**********************************************************
	MACHINE M65C02
	longa off
	longi off

	EXPORT des
des	PROC
Zp0	equ $c0
Zp1	equ $c2
*
* save four bytes of Zero page
*
	lda Zp0	;save on stack
	pha
	lda Zp0+1
	pha
	lda Zp1
	pha
	lda Zp1+1
	pha
*
* save parameter list location
*
	stx Zp0	;save parameter list pointer
	sty Zp0+1
*
* save key in our work area
*
	lda (Zp0)	;save key
	sta Zp1
	ldy #$01
	lda (Zp0),y
	sta Zp1+1
;
	ldy #$07	;move all eight bytes of key
des1	lda (Zp1),y
	sta key,y
	dey
	bpl des1
*
* save password in our work area
*
	ldy #$02
	lda (Zp0),y
	sta Zp1
	iny
	lda (Zp0),y
	sta Zp1+1
;
	ldy #$07	;move all eight bytes of key
des2	lda (Zp1),y
	sta random,y
	dey
	bpl des2
;
;
;
*
* initialize the count
*
	ldx #0
des4		; 
	stZ des_count,x
	inx
	cpx #32
	bne des4
;
	jsr keysched
	jsr encode
;
;
*
* save result
*
	ldy #$04
	lda (Zp0),y
	sta Zp1
	iny
	lda (Zp0),y
	sta Zp1+1
;
	ldy #$07	;move all eight bytes of key
des3	lda des_work1,y
	sta (Zp1),y
	dey
	bpl des3
*
* restore Zero page
*
	pla
	sta Zp1+1
	pla
	sta Zp1
	pla
	sta Zp0+1
	pla
	sta Zp0
	rts
;
;
**************************************************
*
* keysched : key schedule
*
* this module takes	64 bits key and generates
* the sixteen 48-bit keys k(1),k(2),...,k(16)
*
* entry : none
*
* exit  : none
*
*
**************************************************
keysched		; 
	ldx #0
key1		; 
	stx des_x	;
	lda pc1tbl,x
	sta remainder
	lda #8
	sta des_count
key2		; 
	dec des_count
	sec
	lda remainder
	sbc #08
	sta remainder
	beq key22	;= 0 ?
	bcs key2	;> 0 ?
;
key22		; 
	clc
	lda remainder
	adc #8
	sta remainder
;
	ldx remainder
	bne key24	;x = 0 ?
	ldx #8	;set to 8, if yes
key24		; 
	dex
	lda des_msk,x
	ldy des_count
	clc
	and key,y
	beq key3
	sec
key3		; 
	ldx #$07
key4		; 
	rol des_work1,x
	php
	dex
	bmi key5
	plp
	bra key4
;
key5		; 
	plp
	ldx des_x
	inx
	cpx #56
	bne key1
;
*
* divide pc1 result	into c0/d0
*
	ldx #0
key6		; 
	lda des_work2,x
	sta des_cd,x
	inx
	cpx #7
	bne key6
;
*
* rotate c and d left by rotate(n) times
*
key9		; 
	ldx #0
keya		; 
	stx des_x	;save # of times
;
	ldy #0
keyb		; 
	clc
	lda des_cd	;save left most bit(cn)
	rol a
	php
;
	lda des_msk+3	;save left most bit(dn)
	clc
	and des_cd+3
	beq keyb0
	sec
keyb0		; 
	ldx #6
keyc		; 
	rol des_cd,x
	dex
	bpl keyc
;
	lda des_cd+3
	and #%11101111	;clear right most bit(cn)
	sta des_cd+3
;
	lda #0
	plp	;restore left most bit(cn)
	ror a	;move left most bit(cn)
	ror a	;to right most bit(cn)
	ror a
	ror a
	ora des_cd+3
	sta des_cd+3
;
	ldx des_x
	iny
	lda rotat_left,x
	sta des_temp
	cpy des_temp
	bne keyb
;
*
* permutation 2
*
	ldy #0
keye		; 
	sty des_y	;
	lda pc2tbl,y
	sta remainder
	lda #7	;7 bytes toal for cn+dn
	sta des_count
keyf		; 
	dec des_count
	sec
	lda remainder
	sbc #08
	sta remainder
	beq keyf0	;= 0 ?
	bcs keyf	;> 0 ?
;
keyf0		; 
	clc
	lda remainder
	adc #8
	sta remainder
;
	ldx remainder
	bne keyf2	;x = 0 ?
	ldx #8	;set to 8, if yes
keyf2		; 
	dex
	lda des_msk,x
	ldy des_count
	clc
	and des_cd,y
	beq key0
	sec
key0		; 
	ldx #7
key01		; 
	rol des_work1,x
	php
	dex
	bmi key02
	plp
	bra key01
;
key02		; 
	plp
	ldy des_y
	iny
	cpy #48
	bne keye
;
*
* move result of perm 2 to k(n)
*
	ldx #0
key03		; 
	lda des_work3,x
	ldy des_k
	sta k1,y
	inc des_k
	inx
	cpx #6
	bne key03
;
	ldx des_x
	inx
	cpx #16
	beq key04
	jmp keya
;
key04	rts
;
;
**************************************************
*
* encode - encryption module
*
* entry : random1,...,random8
*
* exit  : des_work1,...,des_work8
*
*
**************************************************
encode		; 
	stZ des_y	;init des_y
;
	ldx #0
ecd1		; 
	stx des_x	;
	lda iniptbl,x
	sta remainder
	lda #8
	sta des_count
ecd2		; 
	dec des_count
	sec
	lda remainder
	sbc #08
	sta remainder
	beq ecd22	;= 0 ?
	bcs ecd2	;> 0 ?
;
ecd22		; 
	clc
	lda remainder
	adc #8
	sta remainder
;
	ldx remainder
	bne ecd24	;x = 0 ?
	ldx #8	;set x to 8, if yes
ecd24		; 
	dex
	lda des_msk,x
	ldy des_count
	clc
	and random,y
	beq ecd3
	sec
ecd3		; 
	ldx #7
ecd4		; 
	rol des_work1,x
	php
	dex
	bmi ecd5
	plp
	bra ecd4
;
ecd5		; 
	plp
	ldx des_x
	inx
	cpx #64
	bne ecd1
;
*
* move result of init perm to left/right block
* move 8 times - first 4 bytes = des_l1
*       - second 4 bytes = des_r1
*
	ldx #0
ecd6		; 
	lda des_work1,x
	sta des_l1,x
	inx
	cpx #08
	bne ecd6
;
*
* perform rn = ln eor f(rn,kn)
* transform right 32 bits into 48 bits
*
	stz key_x	;initiaiZe k(n) pointer
	ldx #0
ecd60		; 
	stx des_x1	;save counter
;
	ldx #0
ecd65		; 
	lda des_r1,x	;save rn origin to temp
	sta des_temp1,x
	inx
	cpx #4
	bne ecd65
;
	ldx #0
ecd7		; 
	stx des_x	;
;
	lda etbl,x	;perform e function
	sta remainder
	lda #4	;4 bytes only
	sta des_count
ecd8		; 
	dec des_count
	sec
	lda remainder
	sbc #08
	sta remainder
	beq ecd82	;= 0 ?
	bcs ecd8	;> 0 ?
;
ecd82		; 
	clc
	lda remainder
	adc #8
	sta remainder
;
	ldx remainder
	bne ecd84	;x = 0 ?
	ldx #8	;set x to 8, if yes
ecd84		; 
	dex
	lda des_msk,x
	ldy des_count
	clc
	and des_r1,y
	beq ecd9
	sec
ecd9		; 
	ldx #5
ecda		; 
	rol des_work3,x
	php
	dex
	bmi ecdb0
	plp
	bra ecda
;
ecdb0		; 
	plp
	ldx des_x
	inx
	cpx #48
	beq ecdb1
	jmp ecd7
;
*
* eor with k(48 bits)
*
ecdb1		; 
	ldy #0
ecdb		; 
	ldx key_x	;get current k(n) pointer
	lda k1,x
	eor des_work3,y
	sta des_work3,y
	inx
	stx key_x	;save pointer for k(n) blocks
	iny
	cpy #6
	bne ecdb
;
*
* transform 48 bits	into 32 bits s(b1),...,s(bn)
*
	ldx #0
ecdc		; 
	jsr saddr
	stx des_temp
	lda des_work3	;des_work will shift 6 times
	and #%10000100	;bit 7/2 are row #'s
	bpl ecdd
	and #%01111111	;strip out high bit
	ora #%00001000	;save high bit to bit 3
ecdd		; 
	lsr a
	lsr a
	tax	;save row #
		;
	lda des_work3
	and #%01111000	;bit 6-3 are column	#'s
	lsr a
	lsr a
	lsr a	;column # in acc now
		;
ecde		; 
	cpx #0
	beq ecdf
	clc
	adc #16	;find s tbl pointer
	dex	;decrement row #
	bra ecde
;
ecdf		; 
	tay
	lda s1,y
	asl a	;shift result to high byte
	asl a
	asl a
	asl a
;
*
* move result to des_r1
*
	ldy #4
ecd10		; 
	rol a
	ldx #3
ecd11		; 
	rol des_temp2,x
	php
	dex
	bmi ecd110
	plp
	bra ecd11
;
ecd110		; 
	plp
	dey
	bne ecd10
;
*
* shift des_work left 6 more times
*
	ldy #6
ecd12		; 
	ldx #5
ecd13		; 
	rol des_work3,x
	dex
	bpl ecd13
	dey
	bne ecd12
;
*
* 8 times already?
*
	ldx des_temp
	inx
	cpx #8
	beq ptbl0
	jmp ecdc	;do next s tbl
;
*
* perform 32 bits permutation
* use ptbl
*
ptbl0		; 
	ldx #0
ptbl1		; 
	stx des_x2
	lda ptbl,x
	sta remainder
	lda #4
	sta des_count
ptbl2		; 
	dec des_count
	sec
	lda remainder
	sbc #08
	sta remainder
	beq ptbl22	;= 0 ?
	bcs ptbl2	;> 0 ?
;
ptbl22		; 
	clc
	lda remainder
	adc #8
	sta remainder
;
	ldx remainder
	bne ptbl24	;x = 0 ?
	ldx #8	;set to 8, if yes
ptbl24		; 
	dex
	lda des_msk,x
	ldy des_count
	clc
	and des_temp2,y
	beq ptbl3
	sec
ptbl3		; 
	ldx #3
ptbl4		; 
	rol des_r1,x
	php
	dex
	bmi ptbl5
	plp
	bra ptbl4
;
ptbl5		; 
	plp
	ldx des_x2
	inx
	cpx #32
	bne ptbl1
;
;
*
* exclusive or with	left block
* perform function = ln eor f(rn,kn)
*
	ldx #0
ecd112		; 
	lda des_r1,x	;load rn
	eor des_l1,x	;eor with ln
	sta des_r1,x	;save result to rn
	inx
	cpx #4
	bne ecd112
;
	ldx #0
ecd115		; 
	lda des_temp1,x	;move rn origin to ln
	sta des_l1,x
	inx
	cpx #4
	bne ecd115
;
*
* 16 times already?
*
	ldx des_x1
	inx
	cpx #16
	beq ecd140
	jmp ecd60	;yes, go back
;
*
* perform inverse permutation
*
ecd140		; 

	jsr swap	;swap left and right halves

	ldx #0
ecd14		; 
	stx des_x	;
	lda invptbl,x
	sta remainder
	lda #8
	sta des_count
ecd15		; 
	dec des_count
	sec
	lda remainder
	sbc #08
	sta remainder
	beq ecd152	;= 0 ?
	bcs ecd15	;> 0 ?
;
ecd152		; 
	clc
	lda remainder
	adc #8
	sta remainder
;
	ldx remainder
	bne ecd154	;x = 0 ?
	ldx #8	;set x to 8, if yes
ecd154		; 
	dex
	lda des_msk,x
	ldy des_count
	clc
	and des_l1,y
	beq ecd16
	sec
ecd16		; 
	ldx #7
ecd17		; 
	rol des_work1,x
	php
	dex
	bmi ecd18
	plp
	bra ecd17
;
ecd18		; 
	plp
	ldx des_x
	inx
	cpx #64
	bne ecd14
;
	rts	;end of des modules
;

swap		; ;switch des_l1 and des_r1

	ldx #3
swap1	lda des_l1,x
	pha
	lda des_r1,x
	sta des_l1,x
	pla
	sta des_r1,x
	dex
	bpl swap1
	rts
		;
*
* increment s table	pointer
*
*       x = s# (0-7)
*
saddr
	clc
	lda #s1
	adc tab64l,x
	sta ecdf+2
	lda #>s1
	adc tab64h,x
	sta ecdf+3
	rts

tab64l	DC.B 0,64,128,192,0,64,128,192
tab64h	DC.B 0,0,0,0,1,1,1,1
;
;
**************************************************
*
* des data area
*
**************************************************
;
;
iniptbl	DC.B 7,15,23,31,39,47,55,63
	DC.B 5,13,21,29,37,45,53,61
	DC.B 3,11,19,27,35,43,51,59
	DC.B 1,9,17,25,33,41,49,57
	DC.B 8,16,24,32,40,48,56,64
	DC.B 6,14,22,30,38,46,54,62
	DC.B 4,12,20,28,36,44,52,60
	DC.B 2,10,18,26,34,42,50,58
;
invptbl	DC.B 25,57,17,49,9,41,1,33
	DC.B 26,58,18,50,10,42,2,34
	DC.B 27,59,19,51,11,43,3,35
	DC.B 28,60,20,52,12,44,4,36
	DC.B 29,61,21,53,13,45,5,37
	DC.B 30,62,22,54,14,46,6,38
	DC.B 31,63,23,55,15,47,7,39
	DC.B 32,64,24,56,16,48,8,40
;
etbl	DC.B 1,32,31,30,29,28
	DC.B 29,28,27,26,25,24
	DC.B 25,24,23,22,21,20
	DC.B 21,20,19,18,17,16
	DC.B 17,16,15,14,13,12
	DC.B 13,12,11,10,9,8
	DC.B 9,8,7,6,5,4
	DC.B 5,4,3,2,1,32
;
pc1tbl	DC.B 8,16,24,32,40,48,56
	DC.B 64,7,15,23,31,39,47
	DC.B 55,63,6,14,22,30,38
	DC.B 46,54,62,5,13,21,29
	DC.B 2,10,18,26,34,42,50
	DC.B 58,3,11,19,27,35,43
	DC.B 51,59,4,12,20,28,36
	DC.B 44,52,60,37,45,53,61
;
;convert from des algorithm
;base 56
pc2tbl	DC.B 43,40,46,33,56,52,54,29
	DC.B 42,51,36,47,34,38,45,53
	DC.B 31,49,41,50,30,37,44,55
	DC.B 16,5,26,20,10,2,27,17
	DC.B 6,12,24,9,13,8,18,1
	DC.B 23,4,11,15,7,21,28,25
;
ptbl	DC.B 17,26,13,12,4,21,5,16
	DC.B 32,18,10,7,28,15,2,23
	DC.B 31,25,9,19,1,6,30,24
	DC.B 14,20,3,27,11,22,29,8
		;
s1	DC.B 14,4,13,1,2,15,11,8
	DC.B 3,10,6,12,5,9,0,7
	DC.B 0,15,7,4,14,2,13,1
	DC.B 10,6,12,11,9,5,3,8
	DC.B 4,1,14,8,13,6,2,11
	DC.B 15,12,9,7,3,10,5,0
	DC.B 15,12,8,2,4,9,1,7
	DC.B 5,11,3,14,10,0,6,13
;
s2	DC.B 15,1,8,14,6,11,3,4
	DC.B 9,7,2,13,12,0,5,10
	DC.B 3,13,4,7,15,2,8,14
	DC.B 12,0,1,10,6,9,11,5
	DC.B 0,14,7,11,10,4,13,1
	DC.B 5,8,12,6,9,3,2,15
	DC.B 13,8,10,1,3,15,4,2
	DC.B 11,6,7,12,0,5,14,9
;
s3	DC.B 10,0,9,14,6,3,15,5
	DC.B 1,13,12,7,11,4,2,8
	DC.B 13,7,0,9,3,4,6,10
	DC.B 2,8,5,14,12,11,15,1
	DC.B 13,6,4,9,8,15,3,0
	DC.B 11,1,2,12,5,10,14,7
	DC.B 1,10,13,0,6,9,8,7
	DC.B 4,15,14,3,11,5,2,12
		;
s4	DC.B 7,13,14,3,0,6,9,10
	DC.B 1,2,8,5,11,12,4,15
	DC.B 13,8,11,5,6,15,0,3
	DC.B 4,7,2,12,1,10,14,9
	DC.B 10,6,9,0,12,11,7,13
	DC.B 15,1,3,14,5,2,8,4
	DC.B 3,15,0,6,10,1,13,8
	DC.B 9,4,5,11,12,7,2,14
		;
s5	DC.B 2,12,4,1,7,10,11,6
	DC.B 8,5,3,15,13,0,14,9
	DC.B 14,11,2,12,4,7,13,1
	DC.B 5,0,15,10,3,9,8,6
	DC.B 4,2,1,11,10,13,7,8
	DC.B 15,9,12,5,6,3,0,14
	DC.B 11,8,12,7,1,14,2,13
	DC.B 6,15,0,9,10,4,5,3
		;
s6	DC.B 12,1,10,15,9,2,6,8
	DC.B 0,13,3,4,14,7,5,11
	DC.B 10,15,4,2,7,12,9,5
	DC.B 6,1,13,14,0,11,3,8
	DC.B 9,14,15,5,2,8,12,3
	DC.B 7,0,4,10,1,13,11,6
	DC.B 4,3,2,12,9,5,15,10
	DC.B 11,14,1,7,6,0,8,13
;
s7	DC.B 4,11,2,14,15,0,8,13
	DC.B 3,12,9,7,5,10,6,1
	DC.B 13,0,11,7,4,9,1,10
	DC.B 14,3,5,12,2,15,8,6
	DC.B 1,4,11,13,12,3,7,14
	DC.B 10,15,6,8,0,5,9,2
	DC.B 6,11,13,8,1,4,10,7
	DC.B 9,5,0,15,14,2,3,12
;
s8	DC.B 13,2,8,4,6,15,11,1
	DC.B 10,9,3,14,5,0,12,7
	DC.B 1,15,13,8,10,3,7,4
	DC.B 12,5,6,11,0,14,9,2
	DC.B 7,11,4,1,9,12,14,2
	DC.B 0,6,10,13,15,3,5,8
	DC.B 2,1,14,7,4,10,8,13
	DC.B 15,12,9,0,3,5,6,11
;
des_msk	DC.B 1
	DC.B 2
	DC.B 4
	DC.B 8
	DC.B 16
	DC.B 32
	DC.B 64
	DC.B 128
;
key	DS.B 8
;
random	DS.B 8
;
des_work1	DC.B 0
des_work2	DC.B 0
des_work3	DC.B 0
des_work4	DC.B 0
des_work5	DC.B 0
des_work6	DC.B 0
des_work7	DC.B 0
des_work8	DC.B 0
;
des_count	DC.B 0
remainder	DC.B 0
key_x	DC.B 0
des_x	DC.B 0
des_x1	DC.B 0
des_x2	DC.B 0
des_y	DC.B 0
des_k	DC.B 0
des_temp	DC.B 0
des_temp1	DS.B 4
des_temp2	DS.B 4
;
des_l1	DS.B 4
des_r1	DS.B 4
;
des_cd	DS.B 7
;
k1	DS.B 6
k2	DS.B 6
k3	DS.B 6
k4	DS.B 6
k5	DS.B 6
k6	DS.B 6
k7	DS.B 6
k8	DS.B 6
k9	DS.B 6
k10	DS.B 6
k11	DS.B 6
k12	DS.B 6
k13	DS.B 6
k14	DS.B 6
k15	DS.B 6
k16	DS.B 6
;
rotat_left	DC.B 1,1,2,2,2,2,2,2
	DC.B 1,2,2,2,2,2,2,1
;
;
	ENDP

	end

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/MakeImage/Main.c b/IIGS.601.SRC/GS.OS/NetBoot/MakeImage/Main.c
new file mode 100644
index 0000000..b96aede
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/NetBoot/MakeImage/Main.c
@@ -0,0 +1 @@
+/*
	Make Image
	
	This program will create the image file used to boot GS/OS.
	The file consists of a header block followed by several "files."
	The header block starts with the text 'GSOSBOOT'.  256 bytes
	into the header is a list of "file headers" with the following
	structure:
	
		word	size in bytes
		word	block number of first block
		word	size in blocks
		long	start address
		word	maximum ROM version to load under
		word	tells which boot os(es) to load file for
				0 = all, 1 = GS/OS only, 2 = ProDOS 8 only
		word	hardware type
				0 = all, 1 = Built-in LocalTalk only, 2 = EtherTalk only

	Parameters to the tool consist of name,address,version,os,harware 5-tuples.
	Address may be in hex (preceded by a "$").  Missing addresses,
	versions, os, or hardware are assumed to be 0.

	The first parameter is the name of the output file.
*/

#include <fcntl.h>
#include <stdio.h>
#include <cursorctl.h>

int curblk;

main(argc,argv)
int argc;
char *argv[];
{
	int		i,version,bytes,blocks,output,firstblk,os,hardware;
	long	address;
	char	*p,*name,*h,*format;
	char	header[512];
	void	onefile(int fd,char *s,int *byte,int *first,int *block);
	char	*onehead(char *p,long addr,int byte,int firstblk,int block,int ver,int os,int hardware);

	InitCursorCtl(NULL);

	if (argc<2) {
		fprintf(stderr,"# No output file given\n");
		exit(1);
	}
	
	output = open(argv[1],O_WRONLY|O_CREAT|O_TRUNC);
	if (output == -1) {
		fprintf(stderr,"# Could not open output file: %s\n",argv[1]);
		exit(1);
	}
	write(output,header,512);
	curblk = 1;
	h = header+256;

	for (i=0; i<512; i++)
		header[i]='\0';
	strcpy(header,"GSOSBOOT");

	for (i=2; i<argc; i++) {
		p = name = argv[i];
		while (*p && *p!=',')
			p++;
		if (*p == ',')
			*(p++) = '\0';
		if (*p == '$') {
			p++;
			format = "%x";
		} else
			format = "%d";
		if (sscanf(p,format,&address) != 1)
			address = 0;
		while (*p && *p!=',')
			p++;
		if (*p == ',')
			p++;
		if (sscanf(p,"%d",&version) != 1)
			version = 0;
		while (*p && *p!=',')
			p++;
		if (*p == ',')
			p++;
		if (sscanf(p,"%d",&os) != 1)
			os = 0;
		while (*p && *p!=',')
			p++;
		if (*p == ',')
			p++;
		if (sscanf(p,"%d",&hardware) != 1)
			hardware = 0;

/*
	At this point the name, address, and version variables are all set for
	the next file to put in the image.  I could pass most of the work off
	to a function that did the compression as necessary.
*/
		onefile(output,name,&bytes,&firstblk,&blocks);
		h=onehead(h,address,bytes,firstblk,blocks,version,os,hardware);
	}
	
	h=onehead(h,0,0,curblk,0,0,0,0);
	lseek(output,0L,0);
	write(output,header,512);
	close(output);
}

void onefile(fd,s,byte,first,block)
int fd;
char *s;
int *byte,*first,*block;
{
	int	input,i;
	char blockbuf[512];
		
	input = open(s,O_RDONLY);
	if (input == -1) {
		fprintf(stderr,"# Could not open input file: %s\n",s);
		exit(1);
	}
	
	*block = 0;
	*byte = 0;
	*first = curblk;
	
	i = read(input,blockbuf,512);
	while (i>0) {
		*byte += i;
		(*block)++;
		write(fd,blockbuf,512);
		curblk++;
		SpinCursor(32);
		i = read(input,blockbuf,512);
	}
	close(input);
}

char *onehead(p,addr,byte,firstblk,block,ver,os,hardware)
char *p;
long addr;
int byte,block,ver,os,hardware;
{
	*(p++) = byte & 0xFF;
	*(p++) = byte >> 8;

	*(p++) = firstblk & 0xFF;
	*(p++) = firstblk >> 8;

	*(p++) = block & 0xFF;
	*(p++) = block >> 8;

	addr &= 0xFFFFFF;
	*(p++) = addr & 0xFF;
	addr >>= 8;
	*(p++) = addr & 0xFF;
	*(p++) = addr >> 8;
	*(p++) = 0;

	*(p++) = ver & 0xFF;
	*(p++) = ver >> 8;
	
	*(p++) = os & 0xFF;
	*(p++) = os >> 8;
	
	*(p++) = hardware & 0xFF;
	*(p++) = hardware >> 8;
	
	return(p);
}
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/MakeImage/Makefile b/IIGS.601.SRC/GS.OS/NetBoot/MakeImage/Makefile
new file mode 100644
index 0000000..6997413
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/NetBoot/MakeImage/Makefile
@@ -0,0 +1 @@
+mi		Ä	main.c.o
	Link -w -t MPST -c "MPS " main.c.o ¶
	"{Libraries}"Stubs.o ¶
	"{CLibraries}"CRuntime.o ¶
	"{CLibraries}"StdCLib.o ¶
	"{CLibraries}"CInterface.o ¶
	"{Libraries}"Interface.o ¶
	"{Libraries}"ToolLibs.o ¶
	-o mi

main.c.o	Ä	main.c
	C main.c
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/MakeRoom.r b/IIGS.601.SRC/GS.OS/NetBoot/MakeRoom.r
new file mode 100644
index 0000000..b0e671e
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/NetBoot/MakeRoom.r
@@ -0,0 +1 @@
+/*

	This Rez file is used to create some extra space on the 6.0.7
	System Tools disk so that there will be room to install the
	Apple II Setup files.
	
	The following items are removed:
		The "Chooser" desk accessory and its related resources
		The Clink-Klank sound
		The Boing sound
		The Monkey sound

*/

/* Chooser and its resources: */

delete 'DRVR' (14);
delete 'STR ' (-15936);
delete 'STR ' (-15935);
delete 'STR#' (-15936);
delete 'DITL' (-15936);
delete 'DITL' (-15935);
delete 'DITL' (-15934);
delete 'DITL' (-15933);
delete 'DLOG' (-15936);
delete 'DLOG' (-15935);
delete 'DLOG' (-15934);
delete 'DLOG' (-15933);
delete 'CNTL' (-15936);
delete 'CNTL' (-15935);
delete 'ICON' (-15936);
delete 'ICON' (-15935);
delete 'ICON' (-15934);
delete 'LDEF' (-15936);
delete 'finf' (-15936);
delete 'nrct' (-15936);

/* The sounds */
delete 'snd ' (2);		/* Clink-Klank */
delete 'snd ' (3);		/* Boing */
delete 'snd ' (4);		/* Monkey */
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/Makefile b/IIGS.601.SRC/GS.OS/NetBoot/Makefile
new file mode 100644
index 0000000..b24c035
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/NetBoot/Makefile
@@ -0,0 +1 @@
+#
# This is the Makefile for creating the Apple II Setup disk
#
# Modification History
# ??-???-88	MSD	First try
# 23-Jan-89	MSD	Files in the :work: folder can be found
#			elsewhere in the project tree.  Also, the
#			file A2e.Blocks is part of the project and
#			will become the Apple //e Boot Blocks file.
# 24-Jan-91	MSD	We now build the Apple //e Boot Blocks from
#			real source files and the P8 object file.
#
# 11-Jun-91	MSD	Made ProDOS16 Image dependent on Makefile.
#			Changed max version of components to 4 so they'll
#			load on a Mark Twain.  Moved Logon to $00/6800.
#			Protocols now load in bank 2.
#
# 09-Jul-91	MSD	Changed max version for ATROM to 4 so it will load
#			on all ROMs.
#
# 01-Apr-92	MSD	Added EtherTalk driver to ProDOS16 Image.
#
# 25-Nov-92	DAL	Changed 'cat' to 'catenate' (Mark must have had
#			an alias for that).
#


image		=	:work:"ProDOS16 Image"
blocks		=	:work:"ProDOS16 Boot Blocks"
mi		=	:makeimage:
gsos		=	::
SD		=	{gsos}SystemDisk:
SDSystem	=	{SD}System:
SDDrivers	=	{SDSystem}Drivers:
Drivers		=	{gsos}Drivers:
GSProj		=	:::
Basic		=	{GSProj}Basic.System:
iie		=	:IIeBlocks:
Logon		=	:Logon:
Cons		=	:Console:


TheDisk			Ä	{blocks} ¶
				{image} ¶
				:work:"Apple //e Boot Blocks" ¶
				:work:P8 ¶
				:work:Basic.System
	build.disk


:work:"Apple //e Boot Blocks"	Ä	{iie}Reloc ¶
					:work:P8 ¶
					:Logon:BootLog8
	Catenate {iie}Reloc :work:P8 :Logon:BootLog8 > {Targ}
	echo "x" | Rez -o {Targ} -c pdos -t $70060800 · dev:null || set status 0
	setfile -m . {Targ}					


{iie}Reloc		Ä	{iie}Reloc.o
	LinkIIGS -o {Targ} {iie}Reloc.o
	MakeBinIIGS {Targ}

{iie}Reloc.o		Ä	{iie}Reloc.aii {iie}P8Size {iie}LogonSize
	If "{MSDListFlag}"
		Set AsmOptions "-f -l -lo {iie}Reloc.lst"
	End
	AsmIIGS {AsmOptions} ¶
		-d P8Size=`catenate {iie}P8Size` ¶
		-d LogonSize=`catenate {iie}LogonSize` ¶
		{iie}Reloc.aii -o {Targ}
	
{iie}P8Size		Ä	:work:P8
	(Evaluate "`files -n -x b :work:P8`" =~ /Å[Â0-9]([0-9]+)¨1b/) · dev:null
	echo -n {¨1} > {Targ}

{iie}LogonSize		Ä	{Logon}BootLog8
	(Evaluate "`files -n -x b {Logon}BootLog8`" =~ /Å[Â0-9]([0-9]+)¨1b/) · dev:null
	echo -n {¨1} > {Targ}


{blocks}		Ä	:boot:boot
	duplicate -y :boot:boot {blocks}

:boot:boot		Ä	:boot:boot.o
	If "{MSDListFlag}"
		Set LnkOptions "-l > :boot:boot.map"
	End
	LinkIIGS -o :boot:boot :boot:boot.o {LnkOptions}
	MakeBinIIGS -org $800 :boot:boot

:boot:boot.o		Ä	:boot:boot.aii
	If "{MSDListFlag}"
		Set AsmOptions "-f -l -lo :boot:boot.lst"
	End
	AsmIIGS -o :boot:boot.o :boot:boot.aii {AsmOptions}


{image}			Ä	{mi}mi ¶
				Makefile ¶
				:fizzy:fizzy ¶
				:stub:stub ¶
				:work:p8 ¶
				:logon:BootLog16 ¶
				:work:ATP1.ATRom ¶
				:work:ATP2.ATRam ¶
				:work:ETBoot
	set ramorg `Evaluate 0x020000`
	makebiniigs -o :work:atram -org "{ramorg}" :work:atp2.atram
	(evaluate "`files -n -x b :work:atram`" =~ /Å[ ]+([0-9]+)¨1b/) > Dev:Null
	set romorg `evaluate {ramorg} + {¨1}`
	makebiniigs -o :work:atrom -org "{romorg}" :work:atp1.atrom
	makebiniigs -o :work:ETBoot.bin -org "{ramorg}" :work:ETBoot
	{mi}mi	{image} ¶
		:fizzy:fizzy,$1000,4¶
		:stub:stub,$2000,4,1¶
		:work:p8,$2000,4,2¶
		:Logon:BootLog16,$6800,4¶
		:work:atrom,"{romorg}",4,0,1¶
		:work:atram,"{ramorg}",4,0,1¶
		:work:ETBoot.bin,"{ramorg}",4,0,2
	unset ramorg romorg

{mi}mi			Ä	{mi}main.c.o
	if "`exists "{CLibraries}CInterface.o"`" && "`exists "{Clibraries}CRuntime.o"`"
		Set MyLibs "`quote	"{Libraries}"Stubs.o ¶
					"{CLibraries}"CRuntime.o ¶
					"{CLibraries}"StdCLib.o ¶
					"{CLibraries}"CInterface.o ¶
					"{Libraries}"Interface.o ¶
					"{Libraries}"ToolLibs.o`"
	else
		Set MyLibs "`quote	"{Libraries}"Stubs.o ¶
					"{Libraries}"Runtime.o ¶
					"{CLibraries}"StdCLib.o ¶
					"{Libraries}"Interface.o ¶
					"{Libraries}"ToolLibs.o`"
	end
	Link -w -t MPST -c "MPS " {mi}main.c.o ¶
		{MyLibs} ¶
		-o {mi}mi

{mi}main.c.o		Ä	{mi}main.c
	C {mi}main.c -o {mi}main.c.o

:fizzy:fizzy		Ä	:fizzy:fizzy.o
	If "{MSDListFlag}"
		Set LnkOptions "-l > :fizzy:fizzy.map"
	End
	LinkIIGS -o :fizzy:fizzy :fizzy:fizzy.o {LnkOptions}
	MakeBinIIGS -org $1000 :fizzy:fizzy

:fizzy:fizzy.o		Ä	:fizzy:fizzy.aii
	If "{MSDListFlag}"
		Set AsmOptions "-f -l -lo :fizzy:fizzy.lst"
	End
	AsmIIGS -o :fizzy:fizzy.o :fizzy:fizzy.aii {AsmOptions}

:stub:stub		Ä	:stub:stub.o
	If "{MSDListFlag}"
		Set LnkOptions "-l > :stub:stub.map"
	End
	linkiigs -o :stub:stub :stub:stub.o {LnkOptions}
	makebiniigs -org $2000 :stub:stub

:stub:stub.o		Ä	:stub:stub.aii
	If "{MSDListFlag}"
		Set AsmOptions "-f -l -lo :stub:stub.lst"
	End
	AsmIIGS -o :stub:stub.o :stub:stub.aii {AsmOptions}

:logon:BootLog16	Ä	:logon:BootLog16.o ¶
				:console:console.o ¶
				:logon:DES.o
	If "{MSDListFlag}"
		Set LnkOptions "-l > :logon:BootLog16.map"
	End
	LinkIIGS -o :logon:BootLog16 ¶
		:logon:BootLog16.o ¶
		:Console:Console.o ¶
		:logon:DES.o ¶
		{LnkOptions}
	MakeBinIIGS -org $6800 :logon:BootLog16

:Logon:BootLog8		Ä	{iie}P8Size ¶
				{Logon}BootLog8.o ¶
				{Cons}Console.o ¶
				{Logon}DES.o
	If "{MSDListFlag}"
		Set LnkOptions "-l > :logon:BootLog8.map"
	End
	LinkIIGS -o {Targ} ¶
		{Logon}BootLog8.o ¶
		{Cons}Console.o ¶
		{Logon}DES.o ¶
		{LnkOptions}
	Set P8Size `catenate {iie}P8Size`
	Set LogonORG `Evaluate 0x2000+{P8Size}`
	MakeBinIIGS -org {LogonORG} {Targ}

:logon:BootLog16.o	Ä	:logon:BootLog16.aii ¶
				:logon:logon.main ¶
				:logon:icon.aii ¶
				:console:console.equates ¶
				:console:cons.macros
	If "{MSDListFlag}"
		Set AsmOptions "-f -l -lo :logon:BootLog16.lst"
	End
	AsmIIGS -i :console: -o :logon:BootLog16.o :logon:BootLog16.aii {AsmOptions}

{Logon}BootLog8.o	Ä	{Logon}BootLog8.aii ¶
				{Logon}Logon.main ¶
				{Logon}Icon.aii ¶
				{Cons}console.equates ¶
				{Cons}Cons.macros
	If "{MSDListFlag}"
		Set AsmOptions "-f -l -lo :logon:BootLog8.lst"
	End
	AsmIIGS -i :console: -o {Targ} :logon:BootLog8.aii {AsmOptions}

:Console:Console.o	Ä	:Console:Console.aii ¶
				:Console:input.aii ¶
				:Console:strings.aii ¶
				:console:console.equates ¶
				:console:cons.macros
	If "{MSDListFlag}"
		Set AsmOptions "-f -l -lo :Console:Console.lst"
	End
	AsmIIGS -i :console: -o :Console:Console.o :Console:Console.aii {AsmOptions}

:logon:DES.o		Ä	:logon:DES.aii
	If "{MSDListFlag}"
		Set AsmOptions "-f -l -lo :logon:DES.lst"
	End
	AsmIIGS -o :logon:DES.o :logon:DES.aii {AsmOptions}

:work:P8		Ä	Always.Do.This
	Duplicate -y -d {SDSystem}P8 :work:P8

:work:Basic.System	Ä	Always.Do.This
	Duplicate -y -d {Basic}Basic.System :work:Basic.System

:work:ATP1.ATRom	Ä	Always.Do.This
	Duplicate -y -d {SDDrivers}ATP1.ATRom :work:ATP1.ATRom

:work:ATP2.ATRam	Ä	Always.Do.This
	Duplicate -y -d {SDDrivers}ATP2.ATRam :work:ATP2.ATRam

:work:ETBoot		Ä	Always.Do.This
	Duplicate -y -d {Drivers}ETalk:ETBoot :work:ETBoot


#
# This is a "false target" that forces some files in other places in the
# GSProjects project to be rebuilt if necessary.
#
Always.Do.This		Ä
	set BootEcho "{echo}"
	set echo 0
	Directory ::Scripts:
	echo "¶t# Building ATP1.ATROM..."
	Build -s atrom
	echo "¶t# Building ATP2.ATRAM..."
	Build -s atram
	echo "¶t# Building ETalk..."
	Build -s etalk
	echo "¶t# Building P8..."
	Build -s p8
	Directory :::BASIC.System
	BuildProgram BASIC.System
	Directory ::GS.OS:NetBoot
	set echo "{BootEcho}"
	
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/NetPrefs/NetPrefs.aii b/IIGS.601.SRC/GS.OS/NetBoot/NetPrefs/NetPrefs.aii
new file mode 100644
index 0000000..13e7a04
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/NetBoot/NetPrefs/NetPrefs.aii
@@ -0,0 +1 @@
+;============================================================
;
; NetPrefs -- A ProDOS 8 application to set the same BRAM
; locations set by the Network CDEV.  This is for those users
; who can't get to the Network CDEV for some reason (such as
; starting up over the network with ProDOS 8).
;
; Written by Mark Day.
; Copyright © 1992 Apple Computer, Inc.  All rights reserved.
;
; 12-Aug-92 MSD	Now uses Return instead of ESC to quit.
;
; 21-Oct-92 DAL Fixed CR's high bit in "only on a GS" message
;               (was showing up as an inverse M).
;
; 17-Feb-93 DAL	Change NetPrefs to Network Preferences.
;
; 24-Feb-93 SS	Changed "LocalTalk" to "Built-In"
;
; 2-Apr-93 DAL	Changed ETherTalk to Ethernet.
;
;============================================================

		machine	m6502

CR		equ	$8D
ESC		equ	$9B
uparrow		equ	$8B
downarrow	equ	$8A
leftarrow	equ	$88
rightarrow	equ	$95
TAB		equ	$89
BELL		equ	$87


ptr		equ	0
which		equ	2		; which BRAM are we setting here?
ch		equ	$24
cv		equ	$25
InvMask		equ	$32

KBD		equ	$C000		; (r)
KCLR		equ	$C010		; (w)
ClrAltChar	equ	$C00E		; (w) disable inverse lower case
SetAltChar	equ	$C00F		; (w) enable inverse lower case

Home		equ	$FC58
SetVid		equ	$FE93
SetNorm		equ	$FE84
SetPort		equ	$FE95
COUT		equ	$FDED
VTab		equ	$FB5B
ClrEOL		equ	$FC9C

IDRoutine	equ	$FE1F

MLI		equ	$BF00


NetPrefs	proc	org $2000

;
; Set up and erase the text screen
;
		jsr	SetVid
		jsr	SetNorm
		jsr	Home

		sec
		jsr	IDRoutine	; carry cleared if this is a GS
		bcc	IsAGS

		jsr	Print
		dc.b	'THIS PROGRAM CAN ONLY BE USED ON AN',$0D
		dc.b	'APPLE IIGS.  PLEASE PRESS A KEY TO QUIT.',0
		jsr	WaitKey
		jmp	Quit
IsAGS
;
; Print the main menu.
;
		lda	#3
		jsr	SetPort
		lda	#$91		; control-Q sets 40 column mode
		jsr	cout
		
		lda	#16-6
		sta	ch
		jsr	print
		dc.b	'Network Preferences',$0D,0
		lda	#16-6
		sta	ch
		jsr	print
		dc.b	$1B,$0F
		dc.b	'LLLLLLLLLLLLLLLLLLL',$0E,$18,0

		lda	#4
		jsr	VTab
		lda	#5
		sta	ch
		jsr	print
		dc.b	'Select a network connection:',0
		
		lda	#10
		jsr	VTab
		lda	#5
		sta	ch
		jsr	print
		dc.b	'Start up over the network with:',0

		lda	#18
		jsr	vtab
		lda	#0
		sta	ch
		jsr	print
		dc.b	$1B,'Use the ',$0F,'K',$0E,' and ',$0F,'J',$0E
		dc.b	' keys to move the ==>',$0D
		dc.b	'symbol up or down.  Use the ',$0F,'H',$0E,','
		dc.b	$0F,'U',$0E,' or TAB',$0D
		dc.b	'keys to change the selection.',$0D,$0D
		dc.b	'Press the RETURN key to quit.',$18,0
		
		jsr	ShowSettings	; show the current settings
		
		lda	#$62		; start with P8 vs. GS/OS
		jsr	DrawArrow

;
; Get a key press and decide what to do
;
Loop
		jsr	WaitKey
		cmp	#CR
		bne	NotQuit
		jmp	Quit
NotQuit
		cmp	#uparrow
		bne	NotUp
		lda	#$61		; select Built-In/EtherTalk
		jsr	DrawArrow
		jmp	Loop
NotUp
		cmp	#downarrow
		bne	NotDown
		lda	#$62
		jsr	DrawArrow
		jmp	Loop
NotDown
		cmp	#leftarrow
		bne	NotLeft
		lda	#1		; force setting to 1
		jsr	SetSetting
		jmp	Loop
NotLeft
		cmp	#rightarrow
		bne	NotRight
		lda	#2		; force setting to 2
		jsr	SetSetting
		jmp	Loop
NotRight
		cmp	#TAB		; toggle setting
		bne	NotTAB
		lda	which
		jsr	GetSetting
		eor	#$03		; toggle between 1 and 2
		jsr	SetSetting
		jmp	Loop
NotTAB
		lda	#BELL
		jsr	cout
		jmp	Loop


DrawArrow
		pha			; save new setting
		lda	which
		and	#1
		tax
		lda	@vline,x
		jsr	vtab
		lda	#0
		sta	ch
		jsr	print
		dc.b	'   ',0
		
		pla
		sta	which
		and	#1
		tax
		lda	@vline,x
		jsr	vtab
		lda	#0
		sta	ch
		jsr	print
		dc.b	'==>',0
		
		rts
@vline		dc.b	12,6



ShowSettings
		lda	#6		; line for Built-In/EtherTalk
		jsr	vtab
		lda	#5
		sta	ch
		lda	#$61
		jsr	GetSetting
		pha			; save result of setting
		jsr	@setmode
		jsr	print
		dc.b	'Built-In',0
		lda	#20
		sta	ch
		pla
		eor	#3		; change to opposite setting
		jsr	@setmode
		jsr	print
		dc.b	'Ethernet',0	;was EtherTalk, 2-Apr-93 DAL
		
		lda	#12		; line for ProDOS 8/GSOS
		jsr	vtab
		lda	#5
		sta	ch
		lda	#$62
		jsr	GetSetting
		pha
		jsr	@setmode
		jsr	print
		dc.b	'GS/OS',0
		lda	#20
		sta	ch
		pla
		eor	#3
		jsr	@setmode
		jsr	print
		dc.b	'ProDOS 8',0
		
		jsr	SetNorm
		
		rts

@setmode
		and	#1
		bne	SetInv
		jmp	SetNorm
SetInv
		lda	#$7F
		sta	InvMask
		rts

		
WaitKey
		lda	KBD
		bpl	WaitKey
		sta	KCLR
		rts

Print
		pla
		sta	ptr
		pla
		sta	ptr+1
@loop
		inc	ptr
		bne	@skip
		inc	ptr+1
@skip
		ldy	#0
		lda	(ptr),y
		beq	@done
		eor	#$80		; set high bit so it displays in Normal mode
		jsr	cout
		jmp	@loop
@done
		lda	ptr+1
		pha
		lda	ptr
		pha
		
		rts

Quit
		jsr	Home
		jsr	SetVid
		
		jsr	MLI
		dc.b	$65		; Quit call
		dc.w	QuitPB
		brk	0		; should NEVER get here!
QuitPB
		dc.b	4
		ds.b	6


		machine	m65816

GetSetting
		clc
		xce
		rep	#$30
		
		and	#$00FF		; BRAM location is just a byte
		pha			; room for result
		pha			; BRAM location
		ldx	#$0C03		; ReadBParam
		jsl	$E10000
		pla			; get current setting
		cmp	#2
		beq	@gotit
		lda	#1		; settings other than 2 are forced to 1
@gotit
		sec
		xce
		rts


SetSetting
		clc
		xce
		rep	#$30
		
		and	#$00FF		; setting is only a byte
		pha
		lda	which
		and	#$00FF		; BRAM location is only a byte
		pha
		ldx	#$0B03		; WriteBParam
		jsl	$E10000
		
		sec
		xce
		
		jmp	ShowSettings
		
		endp
		end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/NetPrefs/makefile b/IIGS.601.SRC/GS.OS/NetBoot/NetPrefs/makefile
new file mode 100644
index 0000000..0df66c5
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/NetBoot/NetPrefs/makefile
@@ -0,0 +1 @@
+NetPrefs		Ä	NetPrefs.aii.obj
	LinkIIGS -o NetPrefs NetPrefs.aii.obj
	MakeBinIIGS -t $FF NetPrefs

NetPrefs.aii.obj	Ä	NetPrefs.aii
	AsmIIGS -l NetPrefs.aii
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/QuickLogoff/Makefile b/IIGS.601.SRC/GS.OS/NetBoot/QuickLogoff/Makefile
new file mode 100644
index 0000000..3dc8693
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/NetBoot/QuickLogoff/Makefile
@@ -0,0 +1 @@
+#
# Makefile for Quick Logoff
#

QuickLogoff	Ä	quick.o
	LinkIIGS -o QuickLogoff -t $B7 -at 0 quick.o

quick.o		Ä	quick.aii
	AsmIIGS -o quick.o quick.aii
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/QuickLogoff/Quick.aii b/IIGS.601.SRC/GS.OS/NetBoot/QuickLogoff/Quick.aii
new file mode 100644
index 0000000..690a81b
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/NetBoot/QuickLogoff/Quick.aii
@@ -0,0 +1 @@
+;------------------------------------------------------------
; Quick Logoff
;
; A temporary init file for AppleShare GS/OS Booting
;
; by Mark Day
;------------------------------------------------------------

		include	'M16.Memory'
		include 'M16.Locator'
		
MyMsgType	equ	$0088		; message type for AppleTalk
addMessage	equ	$0001		; command to add a message
getMessage	equ	$0002		; command to get a message

dp		record	0
myuserid	ds.w	1		; my user ID (from MM)
msghandle	ds.l	1		; handle to message
msgptr		ds.l	1		; pointer to message
		endr

aMessage	record	0
next		ds.l	1		; handle to next message
type		ds.w	1		; type (ID) of message
data		ds.w	1		; message data
size
		endr

;------------------------------------------------------------
; The data in the message is a word, formatted as follows:
; bit 15	Set if already booted (so switching users)
; bit 14	Set if QuickLogoff desired
; bits 13..0	<unused, should be clear>
;------------------------------------------------------------
QuickFlag	equ	$4000		; bit for quick logoff

quick		proc
		with	dp

		phk
		plb			; get current bank for short addressing

;------------------------------------------------------------
; Start up the memory manager.
;------------------------------------------------------------
		pha			; space for user ID
		_MMStartup
		pla			; recover user ID
		sta	myuserid

;------------------------------------------------------------
; Allocate a new handle for getting/setting message info.
;------------------------------------------------------------
		pha			; push long space
		pha
		pea	aMessage.size>>16
		pea	aMessage.size
		pei	myuserid	; push my user ID
		pea	$0000		; get me anything
		pea	0>>16		; don't care where
		pea	0
		_Newhandle
		
		pla
		sta	msghandle
		pla
		sta	msghandle+2
		
;------------------------------------------------------------
; Deref the handle to get a pointer to the data
;------------------------------------------------------------
		lda	[msghandle]
		sta	msgptr
		ldy	#2
		lda	[msghandle],y
		sta	msgptr+2

		ldy	#aMessage.data
		lda	#0		; set data to default
		sta	[msgptr],y
		
;------------------------------------------------------------
; Get the current message
;------------------------------------------------------------
		pea	getMessage
		pea	MyMsgType
		pei	msghandle+2	; push handle to message
		pei	msghandle
		_MessageCenter

;------------------------------------------------------------
; Deref the handle to get a pointer to the data
;------------------------------------------------------------
		lda	[msghandle]
		sta	msgptr
		ldy	#2
		lda	[msghandle],y
		sta	msgptr+2

		ldy	#aMessage.data
		lda	[msgptr],y	; get current message data
		ora	#QuickFlag	; set QuickLogoff flag
		sta	[msgptr],y	; update message value
		
;------------------------------------------------------------
; Set the (modified) message
;------------------------------------------------------------
		pea	addMessage
		pea	MyMsgType
		pei	msghandle+2	; push handle to message
		pei	msghandle
		_MessageCenter

		pei	myuserid
		_MMShutDown

		rtl			; back to GLoader
		
		endwith			; with dp
		endp

		end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/Selector/Dispatcher.aii b/IIGS.601.SRC/GS.OS/NetBoot/Selector/Dispatcher.aii
new file mode 100644
index 0000000..4c418dd
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/NetBoot/Selector/Dispatcher.aii
@@ -0,0 +1 @@
+*
*********************************************************
*							*
*	PRODOS 8 LOBOTOMIZED DISPATCHER ROUTINE		*
*							*
*	COPYRIGHT APPLE COMPUTER, INC. 1983-86		*
*							*
*		ALL RIGHTS RESERVED			*
*							*
*							*
*********************************************************
*
*
**********************************************************
*
* DISPATCHER 1 - This code ORGs and operates at $1000 but
*   is resident in memory at $D100 in the Alt 4K bank of the
*   Language Card. The QUIT call vectors to a routine high
*   in the MLI that moves DISPATCHER 1 down and jumps to it.
*   The move routine MUST remain somewhere between $E000-$F7FF
*
* NOTE: This entire routine MUST remain no larger than 3 pages.
*
**********************************************************
*
		MACHINE	M65816	
		longa	off
		longi	off

p16flag		EQU	$E100BD			; ProDOS16 booted flag
CheckMach	equ	$fe1f			;Monitor Routine to check machine type

qdest		equ	$D100
ch		equ	$24
A1		equ	$3C
A2		equ	$3E
A4		equ	$42
MOVE		equ	$FE2C
mli		equ	$BF00
RomIn		equ	$c082
Clr80Vid	equ	$c00c
Clr80Col	equ	$c000
SetVid		equ	$fe93
SetKbd		equ	$fe89
Home		equ	$fc58
COUT		equ 	$FDED

ByeBye		proc	export


; This code added by Mark Day to support quitting to ProDOS16
		sec
		jsr	CheckMach		;is this a //gs?
		bcs	ByeBye8			;exit ProDOS8 for //e
		lda	p16flag			;did we start with P16?
		beq	ByeBye8			;if not, exit for ProDOS8
		lda	$C08B			; hit appropriate bank switch
		clc
		xce
		jmp	$E0D000			; and return to GQuit

ByeBye8	; 
		lda	#<qdest			;Set up the zero page registers
		STA	A4			;for the Apple // monitor move
		LDA	#>qdest			;routine
		STA	A4+1			;Destination to move to.
		LDA	#<Dispatch		;Beginning of Block to be moved
		STA	A1
		lda	#>Dispatch		;high order pointer of block
		sta	a1+1 
		lda	#<Dispatch+$3FF     	;low order byte of end of block 
		STA	A2			;byte by adding beginning + length
		lda	#>Dispatch+$3FF		;this is the ending byte 
		STA	A2+1			;Store it onto the high byte of A2
		LDY	#0			;SET UP Y REGISTER FOR MOVE
 		LDA 	$C082
 		LDA 	$C081
 		LDA 	$C081
		JSR	MOVE			;Move Data Block to NEWBASE
		LDA 	$C082
		jsr	mli
	DC.B	$65
	DC.W	QuitParms
QuitParms	DC.B	$04,$00,$00,$00,$00
Dispatch
		endp

		IF 0 THEN
DispatchORG	proc	temporg $1000

		MSB	ON
*
*
*
*
PROMPT		EQU	$FF
CV		EQU	$25
INFOCALL	EQU	$C4
SETPFXCALL	EQU	$C6
GETPFXCALL	EQU	$C7
OPENCALL	EQU	$C8
READCALL	EQU	$CA
CLOSECALL	EQU	$CC
EOFCALL		EQU	$D1
ERRNUM		EQU	$DE
PATH		EQU	$280
*
line3		equ	$600
*
ENTRY		EQU	$2000
BITMAP		EQU	$BF58
PFIXPTR		EQU	$BF9A
STB		EQU	$C010
RAMIN		EQU	$C08B
;ROMIN		EQU	$C082
RAMIN2		EQU	$C083
CLREOL		EQU	$FC9C
settxt		equ	$fb39
;HOME		EQU	$FC58
RDKEY		EQU	$FD0C
CROUT		EQU	$FD8E
BELL		EQU	$FF3A
*
*
*
;setvid		equ	$fe93
setnorm	equ	$fe84
init		equ	$fb2f
;setkbd		equ	$fe89
;clr80vid	equ	$c00c
clraltchar	equ	$c00e
;clr80col	equ	$c000
*
*
HEREIN		LDA	ROMIN
*
*
		sta	clr80vid
		sta	clraltchar
		sta	clr80col
		jsr	setnorm
		jsr	init
		jsr	setvid
		jsr	setkbd
*
*
CLRMAP		LDX	#$17
		LDA	#1
		STA	BITMAP,X
		DEX
		LDA	#$0
CLRLOOP		STA	BITMAP,X
		DEX
		BPL	CLRLOOP
		LDA	#$CF
		STA	BITMAP
dSTART	; 
*
*
		JSR	HOME
		JSR	CROUT
*
		ldx	#>msg0-msgstart
*
		JSR	PRNTLOOP
		LDA	#3
		STA	CV
		JSR	CROUT
		JSR	MLI
	DC.B	GETPFXCALL
	DC.W	dPREFIX
		LDX	PATH
		LDA	#0
		STA	PATH+1,X
*
		ldx	path
		beq	nilpfx
*
*
m1		lda	path,x
		ora	#$80
		sta	line3-1,x
		dex
		bne	m1
*
*
nilpfx	; 
		LDX	#0
		DEC	CV
		JSR	CROUT
GETKEY		JSR	RDKEY
		CMP	#$8D
		BEQ	GOTPFX
		PHA
		JSR	CLREOL
		PLA
		CMP	#$9B
		BEQ	dSTART
		CMP	#$98
RESTRT		BEQ	dSTART
		CMP	#$89
		BEQ	BADKEY
		CMP	#$FF
		BEQ	X2
		CMP	#$88
		BNE	NOTBS
X2		CPX	#$0
		BEQ	*+5
		DEC	CH
		DEX
		JSR	CLREOL
		JMP	GETKEY
NOTBS		BCS	MAYBE
BADKEY		JSR	BELL
		JMP	GETKEY
MAYBE		CMP	#$DB
		BCC	*+4
		AND	#$DF
		CMP	#$AE
		BCC	BADKEY
		CMP	#$DB
		BCS	BADKEY
		CMP	#$BA
		BCC	GOODKEY
		CMP	#$C1
		BCC	BADKEY
GOODKEY		INX
		CPX	#39
		BCS	RESTRT
		STA	PATH,X
		JSR	COUT
		JMP	GETKEY
GOTPFX	; 
		CPX	#$0
		BEQ	PRMPT
		STX	PATH
		JSR	MLI
	DC.B	SETPFXCALL
	DC.W	dPREFIX
		BCC	PRMPT
		JSR	BELL
		LDA	#0
BADPFX		BEQ	RESTRT
PRMPT		JSR	HOME
PRMPT1		JSR	CROUT
*
*
		ldx	#>msg-msgstart
*
*
		JSR	PRNTLOOP
retryrich	LDA	#3
		STA	CV
		JSR	CROUT
		LDX	#0
*
*
loop1	; 
		jsr	rdkey
		CMP	#$9B
		BNE	NOTESC
		LDA	CH
		BNE	PRMPT
		BEQ	BADPFX
NOTESC		CMP	#$98
EXTNDBR		BEQ	PRMPT
		CMP	#$89
		BEQ	NOTGUD
		CMP	#$FF
		BEQ	X3
		CMP	#$88
		BNE	X1
X3		JMP	EATEM
X1		BCS	GETIN1
NOTGUD		JSR	BELL
		JMP	LOOP1
GETIN1		CMP	#$8D
		BEQ	DONE
		CMP	#$DB
		BCC	*+4
		AND	#$DF
		CMP	#$AE
		BCC	NOTGUD
		CMP	#$DB
		BCS	NOTGUD
		CMP	#$BA
		BCC	ITSGUD
		CMP	#$C1
		BCC	NOTGUD
ITSGUD	; 
		PHA
		JSR	CLREOL
		PLA
		JSR	COUT
		INX	
		CPX	#39
		BCS	EXTNDBR
		STA	PATH,X
		JMP	LOOP1
DONE	; 
		LDA	#$a0
		JSR	COUT
		STX	PATH
*
*
		JSR	MLI
	DC.B	INFOCALL
	DC.W	INFO
		BCC	INFOOK
		JMP	ERROR
INFOOK		LDA	TYPE
		CMP	#$FF
		BEQ	DOIT2
		LDA	#1
		JMP	ERROR
DOIT2	; 
		LDA	#0
		STA	CLSNUM
		JSR	MLI
	DC.B	CLOSECALL
	DC.W	CLS
		BCC	CHKACS
		JMP	ERROR
*
*
CHKACS		LDA	ACESS
		AND	#1
		BNE	ACSOK
		LDA	#$27
		JMP	ERROR
ACSOK	; 
		JSR	MLI
	DC.B	OPENCALL
	DC.W	OPN
		BCC	*+5
		JMP	ERROR
		LDA	dREFNUM
		STA	REEDNUM
		STA	EOFNUM
*
*
		JSR	MLI
	DC.B	EOFCALL
	DC.W	EOF
		BCS	ERROR
		LDA	EOFB+2
		BEQ	EOFOK
		LDA	#$27
		BNE	ERROR
EOFOK		LDA	EOFB
		STA	RCOUNT
		LDA	EOFB+1
		STA	RCOUNT+1
		JSR	MLI
	DC.B	READCALL
	DC.W	REED
		PHP
		JSR	MLI
	DC.B	CLOSECALL
	DC.W	CLS
		BCC	*+6
		PLP
		BNE	ERROR
		PLP
		BCS	*-4
		JMP	ENTRY
*
EATEM	; 
		LDA	CH
		BEQ	EATEMBAK
		DEX
		LDA	#$a0
		JSR	COUT
		DEC	CH
		DEC	CH
		JSR	COUT
		DEC	CH
EATEMBAK	JMP	LOOP1
*
*
*
*
prntloop	; 
		lda	msgstart,x
		beq	done1
		jsr	cout
		inx
		bne	prntloop
done1		rts
*
ERROR	; 
		STA	ERRNUM
		LDA	#$0C
		STA	CV
		JSR	CROUT
		LDA	ERRNUM
		CMP	#1
		BNE	NEXTERR
*
*
*
		ldx	#>err1-msgstart
*
		BNE	DOERROR
NEXTERR		CMP	#$40
		BEQ	ERROR3
		CMP	#$44
		BEQ	ERROR3
		CMP	#$45
		BEQ	ERROR3
		CMP	#$46
		BEQ	ERROR3
*
*
*
*
		ldx	#>err2-msgstart
*
		BNE	DOERROR
*
*
*
error3	; 
		ldx	#>err3-msgstart
*
DOERROR		JSR	PRNTLOOP
*
*
*
		JMP	retryrich
*
*
msgstart	; 
			MSB	ON
MSG0	DC.B	'ENTER PREFIX (PRESS ''RETURN'' TO ACCEPT)'
	DC.B	0
MSG	DC.B	'ENTER PATHNAME OF NEXT APPLICATION'
	DC.B	0
ERR1	DC.B	$87
	DC.B	'NOT A TYPE ''SYS'' FILE'
	DC.B	0
ERR2	DC.B	$87
	DC.B	'I/O ERROR            '
	DC.B	0
ERR3	DC.B	$87
	DC.B	'FILE/PATH NOT FOUND  '
	DC.B	0
*
********************************************************************
*
INFO	; 
	DC.B	$A
	DC.W	PATH
ACESS	DC.B	0
TYPE	DC.B	0
	DCB.B $0D,0
*
OPN	; 
	DC.B	3
	DC.W	PATH
	DC.W	$1800
dREFNUM	DC.B	0
*
CLS	; 
	DC.B	1
CLSNUM	DC.B	0
*
REED	; 
	DC.B	4
REEDNUM	DC.B	0
	DC.W	ENTRY
RCOUNT	DC.W	0
	DC.W	0
*
EOF	; 
	DC.B	2
EOFNUM	DC.B	0
EOFB	DCB.B 3,0
*
dPREFIX	; 
	DC.B	1
PBUF	DC.W	PATH
*
ZZSIZ		EQU	*-HEREIN
ZZFRE		EQU	$2FF-ZZSIZ
	;objend		
			msb	off
THEEND	; 

	endp
	ENDIF
	
	end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/Selector/Makefile b/IIGS.601.SRC/GS.OS/NetBoot/Selector/Makefile
new file mode 100644
index 0000000..0a81fc8
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/NetBoot/Selector/Makefile
@@ -0,0 +1 @@
+#
# MPW Makefile for the Selector.System
#
AsmOpt			=
LinkOpt			=

P8Drivers		=	:::P8:P8.Drivers:
Console			=	::Console:

Objects			=	Selector.aii.obj Quit.aii.obj Dispatcher.aii.obj QuitCode.aii.obj

Selector.System		Ä	{Objects} {Console}Console.o
	LinkIIGS -o Selector.System ¶
		{Objects} ¶
		{Console}Console.o ¶
		{LinkOpt}
	MakeBinIIGS -t $FF Selector.System

Selector.aii.obj	Ä	Selector.aii
	AsmIIGS {AsmOpt} -i Mark:GSProjects:GS.OS:NetBoot:Console: Selector.aii

Dispatcher.aii.obj	Ä	Dispatcher.aii
	AsmIIGS {AsmOpt} Dispatcher.aii

Quit.aii.obj		Ä	Quit.aii
	AsmIIGS {AsmOpt} Quit.aii

QuitCode.aii.obj	Ä	{P8Drivers}QuitCode.aii
	AsmIIGS {AsmOpt} -o QuitCode.aii.obj {P8Drivers}QuitCode.aii

{Console}Console.o	Ä	{Console}Console.aii ¶
				{Console}Input.aii ¶
				{Console}Strings.aii ¶
				{Console}Cons.Macros ¶
				{Console}Console.equates
	AsmIIGS -i {Console} -o {Console}Console.o {Console}Console.aii
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/Selector/Quit.aii b/IIGS.601.SRC/GS.OS/NetBoot/Selector/Quit.aii
new file mode 100644
index 0000000..41bedea
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/NetBoot/Selector/Quit.aii
@@ -0,0 +1 @@
+		Machine M65C02

;------------------------------------------
;
; Equates from procedure 
;
;------------------------------------------
MOVE		equ	$FE2C
A1		equ	$3C
A2		equ	$3E
A4		equ	$42
COUT		equ 	$FDED
kbdstrb	equ	$c010
kbd		equ	$c000 
MVTAB		equ	$FB5B
LastDev		equ	$bf30
mli		equ	$bf00

Clr80Vid	equ	$c00c
clraltchar	equ	$c00e
clr80col	equ	$c000
setnorm		equ	$fe84
setvid		equ	$fe93
setkbd		equ	$fe89
RomIn		equ	$c082
init		equ	$fb2f

OurPath		equ	$280
int_start 	equ 	$2000
IO_BUFF 	EQU 	$9600
qdest 		EQU 	$D100 
qHOME 		EQU 	$FC58
StgPtr		equ	$83
VARPNT 		EQU 	$83
FORPNT 		EQU 	$85
CHKCOM 		EQU 	$DEBE
PTRGET 		EQU 	$DFE3
WHERE 		EQU 	$5E
BUFPTR 		EQU 	$FA
LEN 		EQU 	$FC
SYSMAP 		EQU 	$BF58
DEVLST 		EQU 	$BF32
DEVCNT 		EQU 	$BF31
qspkr		equ	$c030
ch		equ	$24
;OURPATH	GEQU	$280			;PATH FROM WHERE WE CAME FROM
;STGPTR		GEQU	$FA
;MLI		GEQU	$BF00


		macro
&lab		str	&parm
		string	pascal
&lab		dc.b	&parm
		string	asis
		endm
		

InsQuit		proc	export
		import	APrefix:equ
		import	Bottom
;APrefix	equ	Bottom-18

*
MOVBEG	; 
		lda	LastDev
		sta	UnitNum
		jsr	mli
	DC.B	$c5
	DC.W	OnLine
		lda	OnLinBuf
		and	#$0f
		tay
		inc	a
		inc	a
		sta	Bottom-18		; APrefix
		lda	#'/'
		sta	Bottom-17		; APrefix+1
		sta	Bottom-16,y
TheLoop		lda	OnLinBuf,y
		sta	Bottom-17,y
		dey
		bne	TheLoop
		lda	#<qdest			;Set up the zero page registers
		STA	A4			;for the Apple // monitor move
		LDA	#>qdest			;routine
		STA	A4+1			;Destination to move to.
		LDA	#Movend			;Beginning of Block to be moved
		STA	A1
		lda	#>Movend       		;high order pointer of block
		sta	a1+1 
		lda	#Bottom     		;low order byte of end of block 
		STA	A2			;byte by adding beginning + length
		lda	#>Bottom		;this is the ending byte 
		STA	A2+1			;Store it onto the high byte of A2
		LDY	#0			;SET UP Y REGISTER FOR MOVE
 		LDA 	$C082
 		LDA 	$C081
 		LDA 	$C081
		JSR	MOVE			;Move Data Block to NEWBASE
		LDA 	$C082
 		RTS
OnLine	; 
	DC.B	$02
UnitNum		DS.B 1
	DC.W	OnLinBuf
OnLinBuf		DS.B 16
MOVEND

LoaderORG	proc	temporg $1000
*
 		CLD
		sta	RomIn
		sta	clr80vid
		sta	clraltchar
		sta	clr80col
		jsr	setnorm
		jsr	init
		jsr	setvid
		jsr	setkbd
 		JSR 	qHOME
 		LDX 	#$17
 		LDA 	#1
 		STA 	SYSMAP,X
 		DEX
 		LDA 	#0
S2 		STA 	SYSMAP,X
 		DEX
 		BPL 	S2
 		LDA 	#$CF
 		STA 	$BF58
 		ldx	#$ff
 		txs			;restore the stack...
repeat 		JSR 	MLI
	DC.B	$C6
	DC.W	SET_PREFIX
 		BCC 	S5
		ldx	#1
		jsr	goerr
		bra	repeat
S5		lda	#Fname
		sta	StgPtr
		lda	#>Fname
		sta	StgPtr+1
		ldy	#0
		lda	(StgPtr),y
		tax
		sta	OurPath,y
MuvLup2		iny
		lda	(StgPtr),y
		sta	OurPath,y
		dex
		bne	MuvLup2
		JSR 	MLI
	DC.B	$C8
	DC.W	FOPEN
 		BCC 	S1
 		ldx	#2
		jsr	goerr
		bra	s5
S1 		LDA 	FOPEN+5
 		STA 	FREAD+1
 		JSR 	MLI
	DC.B	$CA
	DC.W	FREAD
S4	; 
		jsr	mli
	DC.B	$42
	DC.W	FINaming
		JSR 	MLI
	DC.B	$CC
	DC.W	QCLOSE
S6 		JMP 	$2000



PrintBlk	; 
        	sta    	stgptr       	;SET UP ZERO PAGE
        	STX    	StgPtr+1     	;
        	sty    	BlockLen        ;SAVE THE NUMBER OF CHARACTERS TO PRINT
        	ldy    	#0              ;START WITH CHARACTER #1
PLOOP   	lda    	(StgPtr),Y     	;GET THE CHARACTER
        	ORA    	#$80            ;SET THE HIGH BIT 
        	jsr    	cout            ;OUTPUT TO SCREEN
        	iny                   	;INCREMENT Y REGISTER
        	cpy    	BlockLen       	;CHECK TO SEE IF WERE AT THE END OF BLK
        	bne    	PLoop           ;IF NOT CONTINUE
        	inc    	ch          	;add one to ch, not sure why??
        	rts                  	;IF SO, WE ARE DONE

gopos	; 
         	dey                 	;Setup the Y screen coordinates from 1-24, not the
         	tya                 	;monitior 0-23.
         	jsr   	mvtab          	;set the vertical position
         	dex                 	;Setup the X screen coordinates from 1-80, not the
         	stx   	ch            	;set the horizontal position.
         	rts                 	;and return

goerr	; 
		phx
		jsr	qHOME
		jsr	DrawBox
		plx
		cpx	#1
		beq	NoVolErr
		cpx	#2
		beq	NoFileErr
NoVolErr        ldy   	#7
         	ldx   	#5
         	jsr   	gopos         	;set the cursor position
         	lda   	#qmsg1
         	ldx   	#>qmsg1
         	ldy   	qmsg1len
         	jsr   	printblk 	;print the message
		ldy	#9
		ldx	#5
		jsr	GoPos
         	lda   	#prefix
		inc	a
		php
         	ldx   	#>prefix
		plp
		bne	ge1
		inx
ge1	; 
         	ldy   	prefix
         	jsr   	printblk 	;print the message
waitkey  	ldy   	#13            	;move the cursor to position y = 15
         	ldx   	#5             	;x = 10
         	jsr   	gopos           ;
         	lda   	#qmsg2          ;and prompt the user for some action
         	ldx   	#>qmsg2
         	ldy   	qmsg2len
         	jsr   	printblk
nopass	; 
		jsr	qbell
	   	sta   	kbdstrb
nokey    	lda   	kbd
         	bpl   	nokey
         	cmp   	#$A0          		;is it a space character?
         	bne   	nopass
		rts
		
NoFileErr	; 
         	ldy   	#7
         	ldx   	#5
         	jsr   	gopos                    ;set the cursor position  
         	lda   	#qmsg3                   ;and prompt the user for some action
         	ldx   	#>qmsg3
         	ldy   	qmsg3len
         	jsr   	printblk
		ldy	#9
		ldx	#5
		jsr	GoPos
         	lda   	#fname
		inc	a
		php
         	ldx   	#>fname
		plp
		bne	ge2
		inx
ge2	; 
         	ldy   	fname
         	jsr   	printblk 	;print the message
         	jmp   	waitkey
		
qbell	; 
         	LDA   	#$40                     ;DURATION
         	STA   	B_LNGTH                  
BELL_1   	LDA   	#$02                     ;SHORT DELAY
         	JSR   	B_WAIT                   
         	STA   	QSPKR                     
         	LDA   	#$24                     ;LONG DELAY
         	JSR   	B_WAIT                   
         	STA   	QSPKR                     
         	DEC   	B_LNGTH                  
         	BNE   	BELL_1                   
         	RTS
		
DrawBox	; 
		lda	#10
		sta	DrawCnt
		ldy	#5
		sty	Ypos
		ldx	#2
		jsr	GoPos
		ldx	#37
DrawLup1	lda	#$20			;an inverse space character
		jsr	cout
		dex
		bne	DrawLup1
Frame		inc	Ypos
		ldy	Ypos
		ldx	#2
		jsr	GoPos
		lda	#$20
		jsr	Cout
		ldy	Ypos
		ldx	#38
		jsr	GoPos
		lda	#$20
		jsr	Cout
		dec	DrawCnt			;until the count equals zero
		bne	Frame
		ldy	YPos
		ldx	#2
		jsr	GoPos
		ldx	#36
DrawLup2	lda	#$20			;an inverse space character
		jsr	cout
		dex
		bne	DrawLup2
		rts

		
		
;
; WAIT ROUTINE
;
B_WAIT   	SEC                            
B_WAIT2  	PHA                            
B_WAIT3  	SBC   	#1                       
         	BNE   	B_WAIT3                  
         	PLA                            
         	SBC   	#1                       
         	BNE   	B_WAIT2                  
         	RTS                            
;
B_LNGTH		DS.B 1                        

FINaming	; 
	DC.B	$00
	DC.B	$33
	DC.W	0
	DC.B	$00
	DC.B	$80

FOPEN	DC.B	$03
	DC.W	FNAME
	DC.W	IO_BUFF
		DS.B 1
FREAD	DC.B	$04
REFNUM		DS.B 1
DATBUF	DC.W	$2000
REQCNT	DC.W	$FFFF
TRNSCNT	DC.W	0000
QCLOSE	DC.B	$01
	DC.B	$00
SET_PREFIX	; 
	DC.B	$01
	DC.W	PREFIX
FNAME 		STR 	'selector.system'
		DS.B $80
BLOCKLEN		DS.B 1
Ypos		DS.B 1
DrawCnt		DS.B 1

qMSG1LEN 	str     'Insert the Volume:'
qmsg2len 	str     'Press the Space Bar to Continue'
qmsg3len 	str	'Unable to read the file:'
qmsg1		equ	qMsg1Len+1
qmsg2		equ	qMsg2Len+1
qmsg3		equ	qMsg3Len+1
PREFIX		DS.B 18

		endp
		
BOTTOM		proc	export
		endp
		
		end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/Selector/Selector.aii b/IIGS.601.SRC/GS.OS/NetBoot/Selector/Selector.aii
new file mode 100644
index 0000000..bd2ab78
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/NetBoot/Selector/Selector.aii
@@ -0,0 +1 @@
+
;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

	IMPORT	APrefix
	IMPORT	BuildAFPro
	IMPORT	ByeBye
	IMPORT	ConsDrvr
	IMPORT	InsQuit
	IMPORT	Setatinit
	IMPORT	a192
	IMPORT	access
	IMPORT	chooser
	IMPORT	cxfer
	IMPORT	logoff
	IMPORT	logon
	IMPORT	mecc
	IMPORT	namer
	IMPORT	off
************************************************************************
*
*				selector.asm
*
*	Copyright Apple Computer Inc., 1987
*	All rights reserved
*
*	Written by  Richard B. Hoiberg
*	Created: 1-Jun-87
*
*	Modification history:
*
* 10-Jul-92 MSD	Ported to MPW environment.  Added NetPrefs application
*		for Apple II Ethernet Card.
*
************************************************************************
		longa 	off
		longi	off
		MACHINE	M65C02	
		INCLUDE	'cons.macros'
		INCLUDE	'console.equates'

mli		equ	$BF00
Open		equ	$c8
Read		equ	$ca
Close		equ	$cc

RomIn		equ	$c082
SetVid		equ	$fe93
SetKbd		equ	$fe89
Home		equ	$fc58
Clr80Vid	equ	$c00c
SetAltChar	equ	$c00f
Clr80Col	equ	$c000
OurPath		equ	$280
BasStart	equ	$2000


		EXPORT	Selector	
Selector	PROC
		export	ErrorHandler
		import	LoaderLen:equ
		import	Bottom
		
CrHB		equ   	$8d
TabHB		equ	$89
WindowBuff	equ	$8000
StgPtr		equ	$83
StgPtr2		equ	$85
IOBuff		equ	$9600
ZP		equ	$1000
MySelector	equ	0			;this is equal to zero for workstation selector
BuildDisk	equ	0			;this is equal to one for build utility
Null		equ	0
		
		jsr	InsQuit
		InitConsole
 		FrameRect FrameParms1
		SViewPort MainWindow
		WriteCStr Title
		ReptChar TitLine
		CursorOff
Select1		jsr	ClearWindow
		GotoXY	5,4
		WriteCStr SelectApp
		FrameRect FrameParms3
		WriteCStr Prompt1
GoList	; 
		SViewPort ListWindow
		WriteChar ClrWind
		ldx	#1
		stx	SelIndex
		lda	#TitleArray
		sta	StgArrayPtr
		lda	#>TitleArray
		sta	StgArrayPtr+1
		lda	AppCount
		sta	ArrayCnt
		stz	SelXPos
		stz	SelYPos
		stz	Increment
		ldx	#4			;set for fill mode
		stx	ListOptByte
		ListHandler ListParms
		lda	SelIndex
		beq	quitSel
		dec	a
		asl	a
		tay
		lda	#PathArray
		sta	StgPtr2
		lda	#>PathArray
		sta	StgPtr2+1
		lda	(StgPtr2),y
		pha
		iny
		lda	(StgPtr2),y
		tax				;the high byte into the X register for LaunchApp
		ply				;the low byte of the path into the Y reg
		jsr	LaunchApp		;off we go never to return
		jmp	Select1
QuitSel	; 
		ldy	#0
		ldx	#2
		jsr	ErrorHandler
		cmp	#Return
		bne	QS1
		jmp	ByeBye
QS1	; 
		jmp	GoList			;Temp fix for now


LaunchApp	; 
		sty	StgPtr
		stx	StgPtr+1
		lda	#0			;CLEAR THE PRODOS SYSTEM MAP
		tay
CLRBM		sta	$BF58,Y			;
    		iny
		cpy	#23         		;22 TIMES
		bne	CLRBM
		lda	#1          		;SET THE 23RD BIT TO ONE
		sta	$BF58,Y        		;
		lda	#$cf
		sta	$bf58

* SET UP THE PATH TO FIND THE REST OF THE FILES

		ldy	#0
		lda	(StgPtr),y
		tax
		sta	OurPath,y
MuvLup		iny
		lda	(StgPtr),y
		sta	OurPath,y
		dex
		bne	MuvLup
		jsr	mli
	DC.B	$c6
	DC.W	SetPrefix
 		bcc 	Doit
 		ldy	#$80
 		ldx	#0
		jsr	ErrorHandler
		rts
DoIt	; 
 		ldx	#00 			;ELSE NEW INDEX TO 0
MovLP 		lda 	ZPLabel,X 		;MOVING LOADER CODE TO PAGE ZERO
 		sta	zp,X 			;ONE AT A TIME
 		inx  				;NEXT ONE
 		cpx 	#LoaderLen 		;WAS THAT THE LAST ONE
 		bne 	MovLP			;TAKEN IF NOT
 		jmp 	zp 			;GIVE THE SHOW TO LOADER


UpdatePtr	; 
		inc	StgPtr2
		bne	UP2
		inc	StgPtr2+1
UP2		rts

*************************************************
* MovStr moves a Pascal type string to 		*
* the buffer pointed to by StgPtr. 		*
* 						*
* The string to be moved is passed with 	*
* the A register containing the low		*
* byte of the pointer and the X			*
* register contains the high byte.		*
* The Y register is the Offset.			*
*************************************************
 			
MovStr	; 
		sta	StgPtr2
		stx	StgPtr2+1
		sty	YTemp
		ldy	#0
		lda	(StgPtr2),y
		tax					;number of characters to transfer
		php
		ldy	YTemp
		sta	(StgPtr),y
		plp
		beq	MStr3
		inc	YTemp
		inc	StgPtr2
		bne	MStr1
		inc	StgPtr2+1
MStr1		ldy	#0
MStr2	; 
		phy
		lda	(StgPtr2),y
		ldy	YTemp
		sta	(StgPtr),y
		inc	YTemp
		ply
		iny
		dex
		bne	MStr2
MStr3		rts
		
DoGetInput	; 
		GotoXY	0,10
		ReptChar TitLine
		WriteCStr Prompt2
		GotoXY 	3,11
		WriteCStr Prompt1
		GotoXY 	3,15
		WriteCStr PassField
		GotoXY 	3,13
		WriteCStr NameField
		GotoXY	9,13
		WriteStr NameBuffer
		jmp	GN2
GetName		stz	OptionByte
		lda	#32
		sta	MyLen
		lda	#NameBuffer
		sta	InBuff
		lda	#>NameBuffer
		sta	InBuff+1
		GotoXY	9,13
		Input	MyParms
		cmp	#Return
		beq	GNDun
		cmp	#Escape
		bne	GN2
		sec
		rts
GN2		lda	#08
		sta	MyLen
		lda	#PassBuffer
		sta	InBuff
		lda	#>PassBuffer
		stz	PassBuffer
		sta	InBuff+1
		lda	#$80
		sta	OptionByte
		GotoXY	13,15
		Input	MyParms
		cmp	#Return
		beq	GNDun
		cmp	#Escape
		bne	GN3
		sec
		rts
GN3		jmp	GetName
GNDun	; 
		clc					;indicate that Return was pressed! 
		rts
			


ClearWindow	; 
		lda	#3
		sta	MainWindow+1
		SViewPort MainWindow
		WriteChar ClrWind
		lda	#1
		sta	MainWindow+1
		SViewPort MainWindow
		rts
			
ErrorHandler	; ;next Err # = 9
		cpy	#0
		bmi	YIsGood
		ldy	#0
YIsGood	; 
		txa
		asl	a
		tax
		lda	MessTbl,x		;get the low byte of pointer to the String
		sta	MessPtr			;into the Y register for a second
		lda	FilProcTbl,x
		sta	FilterProc
		inx				;increment the pointer
		lda	MessTbl,x		;get the high byte of pointer to the String	
		sta	MessPtr+1		;
		lda	FilProcTbl,x
		sta	FilterProc+1
		sty	MessOpt
GoMessage	Message	MessParms
		rts

PathProc	; 
		GetXY
		ldx	#1
		lda	#CD_GotoXY
		jsr	ConsDrvr
		ldx	#<OurPath
		ldy	#>OurPath
		WritePointer
		rts

PrefixProc	; 
		GetXY
		ldx	#1
		lda	#CD_GotoXY
		jsr	ConsDrvr
		ldx	SetPrefix+1
		ldy	SetPrefix+2
		WritePointer
		rts

InitParm	DC.B	$80

MyParms	; 
OptionByte	DC.B	$00	;option Byte
MyLen		DS.B 1				;maximum input length
InBuff		DS.B 2				;Buffer for input/output
	DC.W	MyTermList	;Termination Characters

MessParms	; 
MessOpt		DS.B 1
MessPtr		DS.B 2
FilterProc	DC.B	$00,$00
Rect	; 
	DC.B	10	;x1
	DC.B	9	;y1
	DC.B	70	;x2
	DC.B	15	;y2
WindBuff	DC.W	WindowBuff

NameBuffer	DC.B	$03
	DC.B	'ROD'	;Thank you Rick!!! fm: Jack
		DS.B 32
		
PassBuffer	DC.B	$00
	DC.B	'PassWord'
      		
NameField	DC.B	'Name: '
	DC.B	$00
PassField	DC.B	'Password:'
	DC.B	$00
	
MyTermList	; 
	DC.B	$03
	DC.B	Escape
	DC.B	TabHB
	DC.B	CrHB	;3 characters Esc, Tab and Return
	
ListParms	; 
SelXPos		DS.B 1
SelYPos		DS.B 1
Increment		DS.B 1
ArrayCnt		DS.B 1
StgArrayPtr		DS.B 2
SelArray	DC.W	0
SelIndex		DS.B 1
ListOptByte		DS.B 1

YTemp		DS.B 1


FrameParms1	; 
Point1	DC.B	15	;x1
	DC.B	00	;y1
Point2	DC.B	65	;x2
	DC.B	20	;y2

FrameParms3	; 
	DC.B	5	;x1
	DC.B	5	;y1 viewport+1
	DC.B	45	;x2 viewport-1
	DC.B	14	;y2
         	
MainWindow	DC.B	15
	DC.B	1
	DC.B	64
	DC.B	20

ListWindow	DC.B	20
	DC.B	7
	DC.B	59
	DC.B	15

         	
SelectApp	Cstr	'Select an application to run:'

Mess0	; 
	DC.B	(Mess0End-Mess0)-1
	DC.B	Return
	DC.B	' An error occurred setting the startup prefix:'
	DC.B	Return
	DC.B	Return
Mess0End	; 

Mess1	; 
	DC.B	(Mess1End-Mess1)-1
	DC.B	Return
	DC.B	' An error occurred launching the path:'
	DC.B	Return
	DC.B	Return
Mess1End	; 

Mess2	; 
	DC.B	(Mess2End-Mess2)-1
	DC.B	Return
	DC.B	'  Do you want to quit the Workstation Selector program?'
Mess2End	; 



MessTbl	DC.W	Mess0
	DC.W	Mess1
	DC.W	Mess2
         	
FilProcTbl	; 
	DC.W	PrefixProc
	DC.W	PathProc
	DC.W	Null

Prompt1	; 
	DC.B	CPOS
	DC.B	1
	DC.B	19
	DC.B	'Select:'
	DC.B	MTON
	DC.B	'K J'
	DC.B	MTOFF
	DC.B	CPOS
	DC.B	20
	DC.B	19
	DC.B	'Quit: Esc'
	DC.B	CPOS
	DC.B	40
	DC.B	19
	DC.B	'Accept:'
	DC.B	MTON
	DC.B	'M'
	DC.B	MTOFF
	DC.B	$00
		
Prompt2	DC.B	CPOS
	DC.B	1
	DC.B	5
	DC.B	'OK: '
	DC.B	MTON
	DC.B	'M'
	DC.B	MTOFF
	DC.B	CPOS
	DC.B	45
	DC.B	5
	DC.B	'Cancel: Esc'
	DC.B	$00
			

TitLine	; 
	DC.W	ULChars
	DC.W	5
ULChars	; 
	DC.B	MTON
	DC.B	ReptChar
LinCnt	DC.B	50
	DC.B	'L'	;top of the window underline character
	DC.B	MTOFF

SetPrefix	; 
	DC.B	$01
	DC.W	Bottom-18
		
APPCount	DC.B	$09

Title	DC.B	'  '
	DC.B	MTON
	DC.B	'A'
	DC.B	MTOFF
	DC.B	' AppleShare II Workstation V1.1d1 '
	DC.B	Inv
	DC.B	CLEOL
	DC.B	Norm
	DC.B	CR
	DC.B	$00	;end of C String

TitleArray	; 
	DC.W	Title1
	DC.W	Title2
	DC.W	Title3
	DC.W	Title4
	DC.W	Title5
	DC.W	Title6
	DC.W	Title7
	DC.W	Title8
	DC.W	Title9

PathArray	; 
	DC.W	Path1
	DC.W	Path2
	DC.W	Path3
	DC.W	Path4
	DC.W	Path5
	DC.W	Path6
	DC.W	Path7
	DC.W	Path8
	DC.W	Path9
		
Title1		str	'Access Privileges'
Path1		str	'sys.apps/access/access'

Title2		str	'Chooser II'
Path2		str	'sys.apps/chooser/chooser.ii'

Title3		str	'FastCopy'
Path3		str	'fast.copy'

Title4		str	'File Server Log On'
Path4		str	'sys.apps/logon'

Title5		str	'File Server Log Off'
Path5		str	'sys.apps/logoff'


Title6		str	'Printer Namer'
Path6		str	'sys.apps/namer/Namer.ii'

Title7		str	'ProDOS BASIC'
Path7		str	'Sys.Apps/BASIC.System'

Title8		str	'System Utilities'
Path8		str	'sys.apps/system.util/sysutil.system'

Title9		str	'Apple IIGS Network Preferences'
Path9		str	'sys.apps/net.prefs'
ZPLabel
		ENDP

ZPLoaderORG	proc	temporg $1000
		export	LoaderLen:equ
		import	ErrorHandler
		
ZPLoader	; 
		jsr	mli 			;ISSUE THE PRODOS OPEN COMMAND
	DC.B	OPEN	;
	DC.W	LaunOpen	;
		beq	OpenOk
		ldy	#$80
		ldx	#1
		jsr	ErrorHandler
	  	rts
OpenOk 		lda 	OpenRef 			;GET A REF NUM
 		sta 	ReadRef 		;SAVE IT FOR READ
		jsr	mli 			;AND ISSUE THE READ COMMAND
	DC.B	READ	;
	DC.W	LaunRead	;
	  	beq	ReadOk
	  	rts
ReadOk		jsr	mli			;AND NOW ISSUE THE CLOSE COMMAND
	DC.B	CLOSE	;
	DC.W	LaunClose	;
  		cld
 		lda 	RomIn			
 		jsr 	SetVid			
 		jsr	SetKbd			
		jsr	Home			
 		sta 	Clr80Vid		
 		sta	SetAltChar		
 		sta	Clr80Col		
	 	jmp	BasStart

LaunOpen	; 
	DC.B	3
	DC.W	OurPath
	DC.W	$bb00
OpenRef		DS.B 1
*
LaunRead	; 
	DC.B	4
ReadRef		DS.B 1
	DC.W	$2000
	DC.W	$ffff
	DC.W	0000
*
LaunClose	; 
	DC.B	1
	DC.B	0
LdrBottom	; 
LoaderLen	equ	LdrBottom-ZPLoader
	;objend


		endp
		
		end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/SpoolerIWEM/BuildSpoolerIWEM b/IIGS.601.SRC/GS.OS/NetBoot/SpoolerIWEM/BuildSpoolerIWEM
new file mode 100644
index 0000000..e308027
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/NetBoot/SpoolerIWEM/BuildSpoolerIWEM
@@ -0,0 +1 @@
+#
#	BuildIWEm
#
#   This scripts strips all unnecessary characters from the IWEm source file
#   using the following steps:
#
#	8 Removing comments
#	7 Replacing	tabs with spaces
#	6 Removing duplicate spaces
#	5 Removing spaces next to carriage returns
#	4 Removing spaces next to special characters
#	3 Removing carriage returns next to special characters
#	2 Removing	duplicate carriage returns
#	1 Inserting	PostScript identifiers
#
# Ver 1.1 and prior     Networking Group
#
# Ver 1.2   September 23, 1988       Suki Lee
#     Added step #3 to reduce the size of the file.
#           December 19, 1988        Suki Lee
#     Added -d option to duplicate statement so the new file is not read-only.
#     SCM cannot build since the IWEm.src file is read-only from Projector.
# Ver 1.3   May 23, 1989			 Suki Lee
#     Removed standard file call and sys beep at the end.
# Ver 1.4	June 6, 1991			Wes Johnson
#		Added Removing carriage returns next to special characters
#		Made all changes repetitive until no more occurences of pattern.
# Ver 1.5	Feb 6, 1992				Wes Johnson
#	Problem:
#		Due to some changes in the IIgs the imaging area was reduced
#		to allow grayscale to operate in its minimal configuration.
#		This causes a side-effect of characters on the outside edges
#		to be lost.
#	Bug fix:
#		When the IWEmDict is invoked it will execute the letter command.
#		The letter command should cause most printers to default to the
#		standard letter size imaging area.
#	Note:
#		This fix will not help the LaserWriter IIf with 2 meg (minimum config)
#		The only solution is to upgrade it to 5 meg, then it will work like the IIg.
#

unalias
set echo 0
set exit 0
set casesensitive 0
set file ""
set exitstatus 0
		set file "SpoolerIWEm.src"
		set newfile "IWEm"
		echo "## BuildIWEm (Ver 1.5) - `date -a`";
		echo
		
		# Make sure this window is closed so we can duplicate to it.
		close -n "{newfile}" > Dev:Null ³ Dev:Null	
		
		echo "## Duplicating '{file}' to '{newfile}'."
		
		duplicate -y -d {file} "{newfile}"
		set mystatus {status}
		if ({mystatus} == 2)
			Begin
				echo "# Can't Duplicate file: '{file}'  - Usage Err";
				echo "# Usage - BuildIWEm [File]";
				exit {mystatus}
			End
		else
			Begin
				echo "## Opening file '{newfile}'";
				open "{newfile}"
				echo "## Squeezing '{newfile}'"
				echo

				target "{newfile}"
								
				echo "#	8 Removing	comments"		
					find ¥
					Replace -c ° /%Ŷn/ " "
		
				echo "#	7 Replacing	tabs with spaces"
					Loop
					find ¥
					Replace -c ° /¶t/ " "
						Break If {Status} !=0;
					End
		
				echo "#	6 Removing	duplicate spaces"
					Loop
						find ¥
						Replace -c ° /"  "/ " "
						Break If {Status} !=0;
					End
		
				echo "#	5 Removing	spaces next to carriage returns"
					Loop
					find ¥
					Replace -c ° /¶n / " "
						Break If {Status} !=0;
					End
					Loop
					find ¥
					Replace -c ° / ¶n/ ¶n
						Break If {Status} !=0;
					End
		
				echo "#	4 Removing spaces next to special characters"
					Loop
					find ¥
					Replace -c ° /" ("/ "("
						Break If {Status} !=0;
					End
					Loop
					find ¥
					Replace -c ° /") "/ ")"
						Break If {Status} !=0;
					End
					Loop
					find ¥
					Replace -c ° /" <"/ "<"
						Break If {Status} !=0;
					End
					Loop
					find ¥
					Replace -c ° /"< "/ "<"
						Break If {Status} !=0;
					End
					Loop
					find ¥
					Replace -c ° /" >"/ ">"
						Break If {Status} !=0;
					End
					Loop
					find ¥
					Replace -c ° /"> "/ ">"
						Break If {Status} !=0;
					End
					Loop
					find ¥
					Replace -c ° /" ["/ "["
						Break If {Status} !=0;
					End
					Loop
					find ¥
					Replace -c ° /"[ "/ "["
						Break If {Status} !=0;
					End
					Loop
					find ¥
					Replace -c ° /" ]"/ "]"
						Break If {Status} !=0;
					End
					Loop
					find ¥
					Replace -c ° /"] "/ "]"
						Break If {Status} !=0;
					End
					Loop
					find ¥
					Replace -c ° /" ¶{"/ "¶{"
						Break If {Status} !=0;
					End
					Loop
					find ¥
					Replace -c ° /"¶{ "/ "¶{"
						Break If {Status} !=0;
					End
					Loop
					find ¥
					Replace -c ° /" ¶}"/ "¶}"
						Break If {Status} !=0;
					End
					Loop
					find ¥
					Replace -c ° /"¶} "/ "¶}"
						Break If {Status} !=0;
					End
					Loop
					find ¥
					Replace -c ° /" ¶/"/ "¶/"
						Break If {Status} !=0;
					End
#					Loop
#					find ¥
#					Replace -c ° /"¶/ "/ "¶/"
#						Break If {Status} !=0;
#					End
					
				echo "#	3 Removing carriage returns next to special characters"
					Loop
					find ¥
					Replace -c ° /")¶n"/ ")"
						Break If {Status} !=0;
					End
					Loop
					find ¥
					Replace -c ° /"¶n)"/ ")"
						Break If {Status} !=0;
					End
					Loop
					find ¥
					Replace -c ° /"¶n("/ "("
						Break If {Status} !=0;
					End
					Loop
					find ¥
					Replace -c ° /">¶n"/ ">"
						Break If {Status} !=0;
					End
					Loop
					find ¥
					Replace -c ° /"¶n>"/ ">"
						Break If {Status} !=0;
					End
					Loop
					find ¥
					Replace -c ° /"<¶n"/ "<"
						Break If {Status} !=0;
					End
					Loop
					find ¥
					Replace -c ° /"¶n<"/ "<"
						Break If {Status} !=0;
					End
					Loop
					find ¥
					Replace -c ° /"[¶n"/ "["
						Break If {Status} !=0;
					End
					Loop
					find ¥
					Replace -c ° /"¶n["/ "["
						Break If {Status} !=0;
					End
					Loop
					find ¥
					Replace -c ° /"]¶n"/ "]"
						Break If {Status} !=0;
					End
					Loop
					find ¥
					Replace -c ° /"¶n]"/ "]"
						Break If {Status} !=0;
					End
					Loop
					find ¥
					Replace -c ° /"¶}¶n"/ "¶}"
						Break If {Status} !=0;
					End
					Loop
					find ¥
					Replace -c ° /"¶n¶}"/ "¶}"
						Break If {Status} !=0;
					End
					Loop
					find ¥
					Replace -c ° /"¶{¶n"/ "¶{"
						Break If {Status} !=0;
					End
					Loop
					find ¥
					Replace -c ° /"¶n¶{"/ "¶{"
						Break If {Status} !=0;
					End
#					Loop
#					find ¥
#					Replace -c ° /"¶n¶/"/ "¶/"
#						Break If {Status} !=0;
#					End
					
				echo "#	2 Removing	duplicate carriage returns"
					Loop
						find ¥
						Replace -c ° /¶n¶n/ ¶n
						Break If {Status} !=0;
					End
		
				echo "#	1 Inserting	PostScript identifiers" 
					find ¥
					replace -c 1 ¤ "%!PS-Adobe-2.0¶n%%BeginProcSet ¶"IWEM¶"¶n"
					replace -c 1 /setfont / "setfont¶n%%Begin ExitServer¶n"
					find °
					replace -c 1 ¤ "¶n¶n%%End ExitServer¶n%%EndProcSet ¶n"

				echo
				echo "## Saving file '{newfile}'";
				close -y "{newfile}"
				echo
				echo "## BuildIWEm Done - `date -a`";
			End
End
Exit {exitstatus}
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/SpoolerIWEM/Makefile b/IIGS.601.SRC/GS.OS/NetBoot/SpoolerIWEM/Makefile
new file mode 100644
index 0000000..9bdb26e
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/NetBoot/SpoolerIWEM/Makefile
@@ -0,0 +1 @@
+### Dependancies for Spooler ImageWriter emulator

IWEm Ä SpoolerIWEm.src SpoolerIWEM.r
	BuildSpoolerIWEm
	rez SpoolerIWEM.r -o IWEM
	setfile iwem -t lspt -c asps
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/SpoolerIWEM/SpoolerGÇöRead Me b/IIGS.601.SRC/GS.OS/NetBoot/SpoolerIWEM/SpoolerGÇöRead Me
new file mode 100644
index 0000000..110c9bd
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/NetBoot/SpoolerIWEM/SpoolerGÇöRead Me	
@@ -0,0 +1 @@
+
To print from text-based Apple II programs through a print spooler, you need to put the IWEm file (ImageWriter Emulator) into the System Folder on the print spooler.

This is a special version of ImageWriter Emulator 1.6, which ships with Apple IIgs System Software 6.0.1.
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/SpoolerIWEM/SpoolerIWEM.Src b/IIGS.601.SRC/GS.OS/NetBoot/SpoolerIWEM/SpoolerIWEM.Src
new file mode 100644
index 0000000..3633152
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/NetBoot/SpoolerIWEM/SpoolerIWEM.Src
@@ -0,0 +1 @@
+%!PS-Adobe-2.0
%%BeginProcSet "IWEM"
%
%  Imagewriter //  Emulator Version 1.1.2	4/27/87
%    patterned after "DaisyEm.ps" by Adobe Systems
%  Bill Judd  Apple Peripheral Systems and Products
%  Copyright Apple Computer, Inc. 1986
%  All Rights Reserved
%---------------------------------------
%   Modification  History
%   5/31/86 wbj  First Release
%   6/09/86 wbj  Strip off high bit for Apple // printing
%   7/02/86 wbj  Fix graphic-printing bug
%   --
%
%   7/10/86 Pete Mc Donald (PMM) adjusted Topofpage and LnHt, and Linect
%                                to compensate for page only really being 10.92"
%   7/12/86 PMM Add code to slash 0's (default in resetprinter else
%               use set switch commands to change default)      
%   7/17/86 PMM Add code to handle ignore/use bit 8. Default in Reset printer,
%               else use set switch commands to change default)
%   7/17/86 PMM Add code to handle Backspace.
%   7/24/86 PMM Add code to do Hex Dumps of recieved data. Mode is controlled by
%               a flag in reset printer, called debug? When true it will print
%               all recieved characters as hexadecimal else it has no effect.
%   7/25/86 PMM fix bug in ChangeSwitches, where certain operations were under
%               the wrong switch number
%	--
%
%   9/05/86 wbj fix blank-page-after-last-page bug
%   9/11/86 wbj fix AW last-page bug
%  10/04/86 wbj Let's go international! Imagewriter international character-
%				switching function added
%  11/03/86 wbj Added bdf proc: won some VM and some speed
%  11/04/86 wbj modified Moustext generation code; moved Mousetext and
%               graphic font generation to runtime
%  11/05/86 wbj changed to table-lookup for internatonal char switching;
%				cut # of fonts from 32 to 4
%  11/07/86 wbj added procs to add AE and ae to Courier fonts
%  11/10/86	wbj added subscript and superscript
%  11/19/86 wbj headline-text function fixed
%  11/25/86 wbj htabs problem fixed
%  11/26/86 wbj international release today
%  02/09/87 wbj fix NULL (ascii zero) bug today
%  04/26/87 wbj fix graphic bug introduced with in't'l chars
%
% Modified by Wesley S. Johnson
%
%  01/22/88 WSJ	Replaced mirror code with table lookup code to fix 
%		(offending error caused by the idev command)
%  01/26/88 WSJ	Put in RMtest to wrap-around very long strings of characters.
%
%  Imagewriter //  Emulator Version 1.2		1/27/88
%
%  04/06/88 WSJ changed Esc-S to use same entry point as Esc-G
%		(takes care of Bitmap Graphics bug, discovered in Vers 1.2)
%
%  Imagewriter //  Emulator Version 1.2.1	4/18/88
%
%
%  Imagewriter //  Emulator Version 1.3
%
%  d1
%  Sept 23, 1988    Suki Lee       
%  Added save in "initpage" and restore after showpage in "printfile" and
%    "FF" (form feed) to recover the virtual memory used for each page. Also
%    enhanced buildIWEm script to strip out unnecessary spaces around 
%  PostScript's special delimiter characters: (,),{,},[,],<,>,/,% to reduce
%    file size by almost 1K bytes.
%
%  Sept 27, 1988    Suki Lee
%  Defined xdf (exch def) and use whenever necessary. Substituted bdf where 
%    necessary, since this variable is already defined.
%  Eliminated the procedure "inch" which was mainly used for defining margins.
%    Hard coded the margin values in points and show the calculations in the 
%    comments since arithmetic calculations are costly in PostScript.
%  Rewrote the Encoding vector definitions to be more efficient.
%
%  d2
%  May 19, 1989     Suki Lee
%  Added two new procs: oursave and ourrestore which uses the stack to transfer
%    necessary variables across save and restore pairs. Modified FF to make use 
%    of these procs and makes a doFont call to keep font styles consistent across
%    pages.
%  Bug fix: In EscDict, 3 procs were defined using the incorrect decimal equivalent
%    of the command: ESC- should be 45, not 44; ESC> should be 62, not 61; ESC? should
%    be 63, not 62. Also the comment for ESC+ and ESC- are swapped.
%  Added call to popCmdDict in ignore since all commands which use ignore needs to
%    pop the dict off the stack. 
%
%  May 20, 1989 	Suki Lee
%  Bug fix: In EscDict, ESC g (103) is defined to use procedure gr3*4; but in the actual
%    definition of the procedure, the name is defined as g3*4. Changed dict to use g3*4.
%  Bug fix: Removed check for prop? in gf since that flag has effect only on text and not
%    graphics. Graphics only need the dpi value. BRC# 45926
%  Bug fix: Removed gsave and grestore in gprint. Grapics were being printed on top of
%    each other since the current point is always restored to where the first graphic
%    call begins. BRC #47016 & #48241(this reports the identical bug)
%
%  May 21, 1989     Suki Lee
%  Change variable cpi to dpi to better reflect its purpose.
%  Moved font set up from initjob to initpage. Moved call to initpage from initjob to 
%    printfile. This is done to maintain font consistency across pages.
%
%
%  Imagewriter //  Emulator Version 1.4
%
%	June 5, 1991	Wes Johnson
%	Re-Instated the "inch" procedure, since some values might not be known until runtime.
%	New Feature:
%		Added new Version checking code to allow later versions to overwrite currently
%			installed IWEm.
%		Added check for dostartpage.  If (dostartpage) showpage
%	Bug fix:
%		Added some variables which are used to set TopOfPage and LnHt during IWEm runtime.
%		These variables will deal with the smaller imaging area of the Personal LaserWriter NT.
%		Still allows 66 lines of text per page on a Personal LaserWriter NT.
%		replaced some hard coded values with variables to reflect changes in imaging
%			size of the Personal LaserWriter NT.
%
%	Feb 6, 1992	Wes Johnson
%	Problem:
%		Due to some changes in the IIgs the imaging area was reduced
%		to allow grayscale to operate in its minimal configuration.
%		This causes a side-effect of characters on the outside edges
%		to be lost.
%	Bug fix:
%		When the IWEmDict is invoked it will execute the letter command.
%		The letter command should cause most printers to default to the
%		standard letter size imaging area.
%	Note:
%		This fix will not help the LaserWriter IIf with 2 meg (minimum config)
%		The only solution is to upgrade it to 5 meg, then it will work like the IIg.
%
%    Version 1.5
%	Feb 11, 1992	Greg Branche
%		Changed version number to 1.5, since 1.4 was shipped with the
%		LC //E Card software v2.0 without our knowledge.
%
%    Version 1.6d1
%	Apr 24, 1992	Wes Johnson
%		Changed version number to 1.6d1.  Changed check for Personal
%		Laserwriter NT to also include the NTR (actually, and product
%		with "Personal" in its name).  Changed copyright to include
%		1992.
%
%   Version 1.6
%	2-Apr-93 DAL
%		Changed version to 1.6.
%
%   Spooler Version 1.6
%	7-Apr-93 WSJ
%		Removed startup page stuff & pre-amble which make IWEm dict permanent.
%
%-----------------------------------------------------------------------------
/Ver (ImageWriter Emulator Version 1.6)def	% Note change /Version to match this string

/bdf {bind def} bind def
/xdf {exch def} bdf

/IWEmDict 150 dict def

/_WBJ_ 
   {IWEmDict 
     begin
     letter	% letter command should restore a normal letter imaging area
     save
	  makefonts
      1 1 scale 
      printfile 
     restore
  end} 
bdf


IWEmDict begin %---------------------------------------------------------

%
% This Version string must coincide with "Ver" defined 
%
/Version (ImageWriter Emulator Version 1.6)def	% Note change /Ver to match this string
%
% Personal LaserWriter NT support
% These calculations only occur 1 time.
% The values will be based on the result of the product string.
%
/inch 			{72 mul} bdf
/PersonalLen		{10.63 inch} bdf
/NormalLen		{10.75 inch} bdf
/Personal?		{statusdict begin product end (Personal) search
				{pop pop pop true} {pop false} ifelse} bdf	
/ImageLen		{Personal? {PersonalLen}{NormalLen} ifelse} bdf
/charsize		{Personal? {11.5}{11.7} ifelse} bdf

% Setting the default language: you may change the default country by
% choosing a country from the following list and replacing "USA" with
% the chosen country in the command line below.  Do not include the "/".
% To change the default to French characters, for example, change the
% command line to: /defaultcountry France def
% Then, when the IWEM is loaded into a Laserwriter printer, the 
% selected international characters will be the default characters.
  
% country list: DO NOT CHANGE !!!

    /USA 0 def
    /Italy 1 def
    /Denmark 2 def
    /England 3 def
    /Germany 4 def
    /Sweden 5 def
    /France 6 def
    /Spain 7 def

/defaultcountry USA def		% <- this is the line to change

/country defaultcountry def

% ==============  MouseFont ====================
/BuildCharDict 20 dict def
/MouseFont 20 dict def
MouseFont begin
  /FontType 3 def
  /FontMatrix [1 0 0 1 0 0] def
  /FontBBox [0 0 1 1] def
  /Encoding 256 array def
 0 1 255 {Encoding exch /.notdef put} for
/closedApple /openApple /arrow /hourGlass /check1 /check2 /invcrArrow 
/menubar /leftArrow /elipsis /downArrow /upArrow /overScore /crArrow 
/solidRect /lScrollArrow /rScrollArrow /dScrollArrow /uScrollArrow 
/midScore /lLeftCorner /rightArrow /grayRect1 /grayRect2 /lFolder 
/rFolder /rBar /diamond /horLines /cross /button /lBar 
 Encoding 64 32 getinterval astore pop
 
/CharacterDefs 33 dict def

CharacterDefs /.notdef {} put


CharacterDefs /closedApple
 { 8 8 true [ 8 0 0 -8 0 8]
 {<08 10 6c fe fc fc 7e 6c>} imagemask } put
CharacterDefs /openApple
 { 8 8 true [ 8 0 0 -8 0 8]
 {<08 10 6c 82 84 84 52 6c>} imagemask } put
CharacterDefs /arrow
 { 8 8 true [ 8 0 0 -8 0 8]
 {<00 00 40 60 70 78 6c 42>} imagemask } put
CharacterDefs /hourGlass
 { 8 8 true [ 8 0 0 -8 0 8]
 {<fe 44 28 10 10 28 54 fe>} imagemask } put
CharacterDefs /check1
 { 8 8 true [ 8 0 0 -8 0 8]
 {<00 02 04 88 50 20 20 00>} imagemask } put
CharacterDefs /check2
 { 8 8 true [ 8 0 0 -8 0 8]
 {<00 02 04 88 50 20 20 00>} imagemask } put
CharacterDefs /invcrArrow
 { 8 8 true [ 8 0 0 -8 0 8]
 {<02 02 02 22 62 fe 60 20>} imagemask } put
CharacterDefs /menubar
 { 8 8 true [ 8 0 0 -8 0 8]
 {<ff 00 ff 00 ff 00 00 ff>} imagemask } put
CharacterDefs /leftArrow
 { 8 8 true [ 8 0 0 -8 0 8]
 {<10 20 40 ff 40 20 10 00>} imagemask } put
CharacterDefs /elipsis
 { 8 8 true [ 8 0 0 -8 0 8]
 {<00 00 00 00 00 00 00 54>} imagemask } put
CharacterDefs /downArrow
 { 8 8 true [ 8 0 0 -8 0 8]
 {<10 10 10 10 92 54 38 10>} imagemask } put
CharacterDefs /upArrow
 { 8 8 true [ 8 0 0 -8 0 8]
 {<10 38 54 92 10 10 10 10>} imagemask } put
CharacterDefs /overScore
 { 8 8 true [ 8 0 0 -8 0 8]
 {<ff 00 00 00 00 00 00 00>} imagemask } put
CharacterDefs /crArrow
 { 8 8 true [ 8 0 0 -8 0 8]
 {<02 02 02 22 62 fe 60 20>} imagemask } put
CharacterDefs /solidRect
 { 8 8 true [ 8 0 0 -8 0 8]
 {<ff ff ff ff ff ff ff ff>} imagemask } put
CharacterDefs /lScrollArrow
 { 8 8 true [ 8 0 0 -8 0 8]
 {<c9 18 38 7e 38 18 08 f7>} imagemask } put
CharacterDefs /rScrollArrow
 { 8 8 true [ 8 0 0 -8 0 8]
 {<93 18 1c fe 1c 18 10 ef>} imagemask } put
CharacterDefs /dScrollArrow
 { 8 8 true [ 8 0 0 -8 0 8]
 {<81 89 08 7f 3e 1c 89 81>} imagemask } put
CharacterDefs /uScrollArrow
 { 8 8 true [ 8 0 0 -8 0 8]
 {<81 89 1c 3e 7f 08 89 81>} imagemask } put
CharacterDefs /midScore
 { 8 8 true [ 8 0 0 -8 0 8]
 {<00 00 00 ff 00 00 00 00>} imagemask } put
CharacterDefs /lLeftCorner
 { 8 8 true [ 8 0 0 -8 0 8]
 {<80 80 80 80 80 80 80 ff>} imagemask } put
CharacterDefs /rightArrow
 { 8 8 true [ 8 0 0 -8 0 8]
 {<10 08 04 fe 04 08 10 00>} imagemask } put
CharacterDefs /grayRect1
 { 8 8 true [ 8 0 0 -8 0 8]
 {<55 aa 55 aa 55 aa 55 aa>} imagemask } put
CharacterDefs /grayRect2
 { 8 8 true [ 8 0 0 -8 0 8]
 {<55 aa 55 aa 55 aa 55 aa>} imagemask } put
CharacterDefs /lFolder
 { 8 8 true [ 8 0 0 -8 0 8]
 {<00 1f 21 20 20 20 3f 00>} imagemask } put
CharacterDefs /rFolder
 { 8 8 true [ 8 0 0 -8 0 8]
 {<00 00 f8 04 04 04 fc 00>} imagemask } put
CharacterDefs /rBar
 { 8 8 true [ 8 0 0 -8 0 8]
 {<01 01 01 01 01 01 01 01>} imagemask } put
CharacterDefs /diamond
 { 8 8 true [ 8 0 0 -8 0 8]
 {<10 38 7c fe 7c 38 10 00>} imagemask } put
CharacterDefs /horLines 
 { 8 8 true [ 8 0 0 -8 0 8]
 {<ff 00 00 00 00 00 00 ff>} imagemask } put
CharacterDefs /cross
 { 8 8 true [ 8 0 0 -8 0 8]
 {<28 28 ee 00 ee 28 28 00>} imagemask } put
CharacterDefs /button
 { 8 8 true [ 8 0 0 -8 0 8]
 {<fe 02 02 32 32 02 02 fe>} imagemask } put
CharacterDefs /lBar
 { 8 8 true [ 8 0 0 -8 0 8]
 {<80 80 80 80 80 80 80 80>} imagemask } put

/BuildChar
  {BuildCharDict begin
    /char xdf
    /fontdict xdf
    /charname fontdict /Encoding get char get def
    /charproc fontdict /CharacterDefs get charname get def
    1 0 0 0 1 1 setcachedevice
    gsave charproc grestore
  end } bdf
end

% ============== End of MouseFont Definition ================
%@@@@@@@@@ Begin Old Mirror Code @@@@@@@@@@@@@
%@/log2 128 def
%@
%@/mirror % n1 -- n2  reverse bits of 8-bit byte
%@  { /log2 128 store
%@	  0 exch					% -- 0 n
%@		{ dup 2 mod 1 eq			% odd? -- 0 n f
%@			{exch log2 add exch } if	% -- ans n
%@			/log2 log2 2 idiv store
%@			2 idiv
%@			dup 0 eq { pop exit} if
%@		} loop
%@		1 idiv } def
%@@@@@@@@@ End Old Mirror Code @@@@@@@@@@@@@@

%################# Begin New Mirror Code ######################
%
%	Due to a problem in the LaserWriter versions 3.0+ the (Old mirror cmd) will not work any more
%	it now offends the laser writer when an (idev) command is issued.
%

/Inverse	%Inverse Image of each character
	[						%Begin Array
% Inverse Images of 00-0F
	0	% Inverse of 00000000
	128	% Inverse of 00000001
	64	% Inverse of 00000010
	192	% Inverse of 00000011
	32	% Inverse of 00000100
	160	% Inverse of 00000101
	96	% Inverse of 00000110
	224	% Inverse of 00000111
	16	% Inverse of 00001000
	144	% Inverse of 00001001
	80	% Inverse of 00001010
	208	% Inverse of 00001011
	48	% Inverse of 00001100
	176	% Inverse of 00001101
	112	% Inverse of 00001110
	240	% Inverse of 00001111
% Inverse Images of 10-1F
	8	% Inverse of 00010000
	136	% Inverse of 00010001
	72	% Inverse of 00010010
	200	% Inverse of 00010011
	40	% Inverse of 00010100
	168	% Inverse of 00010101
	104	% Inverse of 00010110
	232	% Inverse of 00010111
	24	% Inverse of 00011000
	152	% Inverse of 00011001
	88	% Inverse of 00011010
	216	% Inverse of 00011011
	56	% Inverse of 00011100
	184	% Inverse of 00011101
	120	% Inverse of 00011110
	248	% Inverse of 00011111
% Inverse Images of 20-2F
	4	% Inverse of 00100000
	132	% Inverse of 00100001
	68	% Inverse of 00100010
	196	% Inverse of 00100011
	36	% Inverse of 00100100
	164	% Inverse of 00100101
	100	% Inverse of 00100110
	228	% Inverse of 00100111
	20	% Inverse of 00101000
	148	% Inverse of 00101001
	84	% Inverse of 00101010
	212	% Inverse of 00101011
	52	% Inverse of 00101100
	180	% Inverse of 00101101
	116	% Inverse of 00101110
	244	% Inverse of 00101111
% Inverse Images of 30-3F
	12	% Inverse of 00110000
	140	% Inverse of 00110001
	76	% Inverse of 00110010
	204	% Inverse of 00110011
	44	% Inverse of 00110100
	172	% Inverse of 00110101
	108	% Inverse of 00110110
	236	% Inverse of 00110111
	28	% Inverse of 00111000
	156	% Inverse of 00111001
	92	% Inverse of 00111010
	220	% Inverse of 00111011
	60	% Inverse of 00111100
	188	% Inverse of 00111101
	124	% Inverse of 00111110
	252	% Inverse of 00111111
% Inverse Images of 40-4F
	2	% Inverse of 01000000
	130	% Inverse of 01000001
	66	% Inverse of 01000010
	194	% Inverse of 01000011
	34	% Inverse of 01000100
	162	% Inverse of 01000101
	98	% Inverse of 01000110
	226	% Inverse of 01000111
	18	% Inverse of 01001000
	146	% Inverse of 01001001
	82	% Inverse of 01001010
	210	% Inverse of 01001011
	50	% Inverse of 01001100
	178	% Inverse of 01001101
	114	% Inverse of 01001110
	242	% Inverse of 01001111
% Inverse Images of 50-5F
	10	% Inverse of 01010000
	138	% Inverse of 01010001
	74	% Inverse of 01010010
	202	% Inverse of 01010011
	42	% Inverse of 01010100
	170	% Inverse of 01010101
	106	% Inverse of 01010110
	234	% Inverse of 01010111
	26	% Inverse of 01011000
	154	% Inverse of 01011001
	90	% Inverse of 01011010
	218	% Inverse of 01011011
	58	% Inverse of 01011100
	186	% Inverse of 01011101
	122	% Inverse of 01011110
	250	% Inverse of 01011111
% Inverse Images of 60-6F
	6	% Inverse of 01100000
	134	% Inverse of 01100001
	70	% Inverse of 01100010
	198	% Inverse of 01100011
	38	% Inverse of 01100100
	166	% Inverse of 01100101
	102	% Inverse of 01100110
	230	% Inverse of 01100111
	22	% Inverse of 01101000
	150	% Inverse of 01101001
	86	% Inverse of 01101010
	214	% Inverse of 01101011
	54	% Inverse of 01101100
	182	% Inverse of 01101101
	118	% Inverse of 01101110
	246	% Inverse of 01101111
% Inverse Images of 70-7F
	14	% Inverse of 01110000
	142	% Inverse of 01110001
	78	% Inverse of 01110010
	206	% Inverse of 01110011
	46	% Inverse of 01110100
	174	% Inverse of 01110101
	110	% Inverse of 01110110
	238	% Inverse of 01110111
	30	% Inverse of 01111000
	158	% Inverse of 01111001
	94	% Inverse of 01111010
	222	% Inverse of 01111011
	62	% Inverse of 01111100
	190	% Inverse of 01111101
	126	% Inverse of 01111110
	254	% Inverse of 01111111
% Inverse Images of 80-8F
	1	% Inverse of 10000000
	129	% Inverse of 10000001
	65	% Inverse of 10000010
	193	% Inverse of 10000011
	33	% Inverse of 10000100
	161	% Inverse of 10000101
	97	% Inverse of 10000110
	225	% Inverse of 10000111
	17	% Inverse of 10001000
	145	% Inverse of 10001001
	81	% Inverse of 10001010
	209	% Inverse of 10001011
	49	% Inverse of 10001100
	177	% Inverse of 10001101
	113	% Inverse of 10001110
	241	% Inverse of 10001111
% Inverse Images of 90-9F
	9	% Inverse of 10010000
	137	% Inverse of 10010001
	73	% Inverse of 10010010
	201	% Inverse of 10010011
	41	% Inverse of 10010100
	169	% Inverse of 10010101
	105	% Inverse of 10010110
	233	% Inverse of 10010111
	25	% Inverse of 10011000
	153	% Inverse of 10011001
	89	% Inverse of 10011010
	217	% Inverse of 10011011
	57	% Inverse of 10011100
	185	% Inverse of 10011101
	121	% Inverse of 10011110
	249	% Inverse of 10011111
% Inverse Images of A0-AF
	5	% Inverse of 10100000
	133	% Inverse of 10100001
	69	% Inverse of 10100010
	197	% Inverse of 10100011
	37	% Inverse of 10100100
	165	% Inverse of 10100101
	101	% Inverse of 10100110
	229	% Inverse of 10100111
	21	% Inverse of 10101000
	149	% Inverse of 10101001
	85	% Inverse of 10101010
	213	% Inverse of 10101011
	53	% Inverse of 10101100
	181	% Inverse of 10101101
	117	% Inverse of 10101110
	245	% Inverse of 10101111
% Inverse Images of B0-BF
	13	% Inverse of 10110000
	141	% Inverse of 10110001
	77	% Inverse of 10110010
	205	% Inverse of 10110011
	45	% Inverse of 10110100
	173	% Inverse of 10110101
	109	% Inverse of 10110110
	237	% Inverse of 10110111
	29	% Inverse of 10111000
	157	% Inverse of 10111001
	93	% Inverse of 10111010
	221	% Inverse of 10111011
	61	% Inverse of 10111100
	189	% Inverse of 10111101
	125	% Inverse of 10111110
	253	% Inverse of 10111111
% Inverse Images of C0-CF
	3	% Inverse of 11000000
	131	% Inverse of 11000001
	67	% Inverse of 11000010
	195	% Inverse of 11000011
	35	% Inverse of 11000100
	163	% Inverse of 11000101
	99	% Inverse of 11000110
	227	% Inverse of 11000111
	19	% Inverse of 11001000
	147	% Inverse of 11001001
	83	% Inverse of 11001010
	211	% Inverse of 11001011
	51	% Inverse of 11001100
	179	% Inverse of 11001101
	115	% Inverse of 11001110
	243	% Inverse of 11001111
% Inverse Images of D0-DF
	11	% Inverse of 11010000
	139	% Inverse of 11010001
	75	% Inverse of 11010010
	203	% Inverse of 11010011
	43	% Inverse of 11010100
	171	% Inverse of 11010101
	107	% Inverse of 11010110
	235	% Inverse of 11010111
	27	% Inverse of 11011000
	155	% Inverse of 11011001
	91	% Inverse of 11011010
	219	% Inverse of 11011011
	59	% Inverse of 11011100
	187	% Inverse of 11011101
	123	% Inverse of 11011110
	251	% Inverse of 11011111
% Inverse Images of E0-EF
	7	% Inverse of 11100000
	135	% Inverse of 11100001
	71	% Inverse of 11100010
	199	% Inverse of 11100011
	39	% Inverse of 11100100
	167	% Inverse of 11100101
	103	% Inverse of 11100110
	231	% Inverse of 11100111
	23	% Inverse of 11101000
	151	% Inverse of 11101001
	87	% Inverse of 11101010
	215	% Inverse of 11101011
	55	% Inverse of 11101100
	183	% Inverse of 11101101
	119	% Inverse of 11101110
	247	% Inverse of 11101111
% Inverse Images of F0-FF
	15	% Inverse of 11110000
	143	% Inverse of 11110001
	79	% Inverse of 11110010
	207	% Inverse of 11110011
	47	% Inverse of 11110100
	175	% Inverse of 11110101
	111	% Inverse of 11110110
	239	% Inverse of 11110111
	31	% Inverse of 11111000
	159	% Inverse of 11111001
	95	% Inverse of 11111010
	223	% Inverse of 11111011
	63	% Inverse of 11111100
	191	% Inverse of 11111101
	127	% Inverse of 11111110
	255	% Inverse of 11111111
	] def						%End Array

/mirror		% n1 -- n2  reverse bits of 8-bit byte (Lookup Inverse Ascii table)
  { Inverse exch get } bdf

%#################  End New Mirror Code #######################

% ============== GrafFont =====================

/BuildCharDict 20 dict def
/GrafFont 20 dict def
GrafFont begin
  /FontType 3 def
  /FontMatrix [1 0 0 1 0 0] def
  /FontBBox [0 0 1 8] def
  /Encoding
[/char0	 /char1	  /char2   /char3   /char4   /char5   /char6   /char7
/char8	 /char9	  /char10  /char11  /char12  /char13  /char14  /char15
/char16	 /char17  /char18  /char19  /char20  /char21  /char22  /char23
/char24	 /char25  /char26  /char27  /char28  /char29  /char30  /char31
/char32	 /char33  /char34  /char35  /char36  /char37  /char38  /char39
/char40	 /char41  /char42  /char43  /char44  /char45  /char46  /char47
/char48	 /char49  /char50  /char51  /char52  /char53  /char54  /char55
/char56	 /char57  /char58  /char59  /char60  /char61  /char62  /char63
/char64	 /char65  /char66  /char67  /char68  /char69  /char70  /char71
/char72	 /char73  /char74  /char75  /char76  /char77  /char78  /char79
/char80	 /char81  /char82  /char83  /char84  /char85  /char86  /char87
/char88	 /char89  /char90  /char91  /char92  /char93  /char94  /char95
/char96	 /char97  /char98  /char99  /char100 /char101 /char102 /char103
/char104 /char105 /char106 /char107 /char108 /char109 /char110 /char111
/char112 /char113 /char114 /char115 /char116 /char117 /char118 /char119
/char120 /char121 /char122 /char123 /char124 /char125 /char126 /char127
/char128 /char129 /char130 /char131 /char132 /char133 /char134 /char135
/char136 /char137 /char138 /char139 /char140 /char141 /char142 /char143
/char144 /char145 /char146 /char147 /char148 /char149 /char150 /char151
/char152 /char153 /char154 /char155 /char156 /char157 /char158 /char159
/char160 /char161 /char162 /char163 /char164 /char165 /char166 /char167
/char168 /char169 /char170 /char171 /char172 /char173 /char174 /char175
/char176 /char177 /char178 /char179 /char180 /char181 /char182 /char183
/char184 /char185 /char186 /char187 /char188 /char189 /char190 /char191
/char192 /char193 /char194 /char195 /char196 /char197 /char198 /char199
/char200 /char201 /char202 /char203 /char204 /char205 /char206 /char207
/char208 /char209 /char210 /char211 /char212 /char213 /char214 /char215
/char216 /char217 /char218 /char219 /char220 /char221 /char222 /char223
/char224 /char225 /char226 /char227 /char228 /char229 /char230 /char231
/char232 /char233 /char234 /char235 /char236 /char237 /char238 /char239
/char240 /char241 /char242 /char243 /char244 /char245 /char246 /char247
/char248 /char249 /char250 /char251 /char252 /char253 /char254 /char255] def

/String1 1 string def
/CharProc { 0 1 translate 0 0 moveto -90 rotate 
            String1 0 3 -1 roll  mirror put
            8 1 true [8 0 0 -1 0 1] {String1} imagemask } bdf
/BuildChar
  {BuildCharDict begin
    .2 1 scale
    .75 0 0 0 1 1 setcachedevice
    gsave exch begin CharProc end grestore
  end } bdf
end

% ====================== End of GrafFont Definition ======================

% ------- Code to add Missing Characters to Courier Fonts ----------------
/strokewidth 40 def
/halfsw strokewidth 2 div round cvi def
/overshoot 15 def
/capheight 563 halfsw sub def
/capover capheight overshoot add def
/baseline halfsw def
/bover baseline overshoot sub def
/xheight 417 halfsw sub def
/xover xheight overshoot add def
/ascend 604 halfsw sub def
/aover ascend overshoot add def
/descend -187 halfsw add def

/ExpandFont		% add two chars to Courier
		{ exch dup length dict begin
				{ 1 index /FID eq
						{pop pop} {def} ifelse
				} forall
		currentdict /UniqueID known
		{/UniqueID UniqueID 16#800000 xor def} if
		CharStrings length add dict begin
						CharStrings {def} forall
						currentdict
				end
		/CharStrings xdf
		currentdict
	end
} bdf

/Max {2 copy lt {exch} if pop}bdf 
/Min {2 copy gt {exch} if pop}bdf

/courierdefs
{ 
} bdf

/UpdateBBox
	{ 	5 -1 roll begin
		3 -1 2
		{/FontBBox load exch get Max 4 1 roll} for
		1 -1 0
		{/FontBBox load exch get Min 4 1 roll} for
		4 array astore
		/FontBBox xdf
		end
	}bdf


/Courier findfont 2 ExpandFont begin

CharStrings begin

/AE
{ pop 600 0 0 -251 600 700 setcachedevice
/strokewidth 40 store
/halfsw strokewidth 2 div round cvi store
/overshoot 15 store
/capheight 563 halfsw sub store
/capover capheight overshoot add store
/baseline halfsw store
/bover baseline overshoot sub store
/xheight 417 halfsw sub store
/xover xheight overshoot add store
/ascend 604 halfsw sub store
/aover ascend overshoot add store
/descend -187 halfsw add store
newpath
	30 baseline moveto 150 baseline lineto 
	90 baseline moveto 235 capheight lineto
	550 403 moveto 550 capheight lineto
	140 capheight lineto
	320 capheight moveto
	320 baseline lineto
	240 baseline moveto
	570 baseline lineto
	570 140 lineto
	165 208 moveto
	320 208 lineto
	320 292 moveto
	440 292 lineto
	440 347 moveto
	440 237 lineto
	1 setlinecap
	strokewidth 2 div setlinewidth
	stroke
} bdf

/ae
{ pop 600 0 0 -251 600 700 setcachedevice
/strokewidth 40 store
/halfsw strokewidth 2 div round cvi store
/overshoot 15 store
/capheight 563 halfsw sub store
/capover capheight overshoot add store
/baseline halfsw store
/bover baseline overshoot sub store
/xheight 417 halfsw sub store
/xover xheight overshoot add store
/ascend 604 halfsw sub store
/aover ascend overshoot add store
/descend -187 halfsw add store
	newpath
	300 217 moveto
	270 229 230 238 185 238 curveto
	130 238 30 192 30 160 curveto
	30 bover 38 add 100 bover 165 bover curveto
	210 bover 255 bover 38 add 300 104 curveto
	300 baseline moveto
	300 308 lineto
	300 364 250 xover 200 xover curveto
	165 xover 130 xheight 90 379 curveto
	560 67 moveto
	516 bover 28 add 473 bover 430 bover curveto
	360 bover 300 102 300 219 curveto
	300 xover 100 sub 360 xover 430 xover curveto
	500 xover 560 xover 100 sub 560 219 curveto
	300 219 lineto
	1 setlinecap
	strokewidth 2 div setlinewidth
	stroke
} bdf

end

currentdict 0 -251 600 700 UpdateBBox
	/Encoding Encoding 256 array copy def
	Encoding 140 /AE put
	Encoding 143 /ae put
	currentdict 
end

/Courier-E exch definefont pop 


/Courier-Bold findfont 2 ExpandFont begin

CharStrings begin

/AE
{ pop 600 0 0 -251 600 700 setcachedevice
/strokewidth 100 store
/halfsw strokewidth 2 div round cvi store
/overshoot 15 store
/capheight 583 halfsw sub store
/capover capheight overshoot add store
/baseline halfsw store
/bover baseline overshoot sub store
/xheight 437 halfsw sub store
/xover xheight overshoot add store
/ascend 624 halfsw sub store
/aover ascend overshoot add store
/descend -207 halfsw add store
newpath
	30 baseline moveto 150 baseline lineto 
	90 baseline moveto 235 capheight lineto
	550 403 moveto 550 capheight lineto
	140 capheight lineto
	320 capheight moveto
	320 baseline lineto
	240 baseline moveto
	570 baseline lineto
	570 140 lineto
	165 208 moveto
	320 208 lineto
	320 292 moveto
	440 292 lineto
	440 347 moveto
	440 237 lineto
	1 setlinecap
	75 setlinewidth
	stroke
} bdf

/ae
{ pop 600 0 0 -251 600 700 setcachedevice
/strokewidth 100 store
/halfsw strokewidth 2 div round cvi store
/overshoot 15 store
/capheight 583 halfsw sub store
/capover capheight overshoot add store
/baseline halfsw store
/bover baseline overshoot sub store
/xheight 437 halfsw sub store
/xover xheight overshoot add store
/ascend 624 halfsw sub store
/aover ascend overshoot add store
/descend -207 halfsw add store
	newpath
	300 217 moveto
	270 229 230 238 185 238 curveto
	130 238 30 192 30 160 curveto
	30 bover 38 add 100 bover 165 bover curveto
	210 bover 255 bover 38 add 300 104 curveto
	300 baseline moveto
	300 308 lineto
	300 364 250 xover 200 xover curveto
	165 xover 130 xheight 90 379 curveto
	560 67 moveto
	516 bover 28 add 473 bover 430 bover curveto
	360 bover 300 102 300 219 curveto
	300 xover 100 sub 360 xover 430 xover curveto
	500 xover 560 xover 100 sub 560 219 curveto
	300 219 lineto
	1 setlinecap
	75 setlinewidth
	stroke
} bdf

end

currentdict 0 -251 600 700 UpdateBBox
	/Encoding Encoding 256 array copy def
	Encoding 140 /AE put
	Encoding 143 /ae put
	currentdict 
end

/Courier-Bold-E exch definefont pop 

% ------- Code to add international character mapping --------------------
/reencsmalldict 5 dict def
/ReEncodeSmall
  { reencsmalldict begin
    /newcodesandnames xdf
    /newfontname xdf
    /basefontname xdf
    /basefontdict basefontname findfont def
    /newfont basefontdict maxlength dict def
    basefontdict
      { exch dup /FID ne
          { dup /Encoding eq
            { exch dup length array copy
                newfont 3 1 roll put }
            { exch newfont 3 1 roll put }
            ifelse }
          { pop pop }
          ifelse
       } forall

    newfont /FontName newfontname put

    newcodesandnames aload pop
	
    newcodesandnames length 2 idiv
	
      { newfont /Encoding get 3 1 roll put}
      repeat
    newfontname newfont definefont pop
    end
   } bdf
/CourierVectors			%	Ita	Den	Uk	Ger	Swe	Fr	Spa
  [ 129 /sterling		%	 35		 35			 35	 35
	130 /section 		%	 64			 64		 93	 64
	132 /ring  		%	 91					 91	123
	133 /ccedilla		%	 92					 92	125
	134 /eacute		%	 93					123
	135 /ugrave		%	 96
	136 /agrave		%	123
	137 /ograve		%	124
	138 /egrave		%	125					125
	139 /igrave		%	126
%	140 /AE			%		 91
	141 /Oslash		%		 92
	142 /Aring  		%		 93			 93	    
%	143 /ae			%		123
	144 /oslash		%		124
	145 /aring 		%		125			125
	146 /Adieresis		%				 91	 91
	147 /Odieresis		%				 92	 92
	148 /Udieresis		%				 93
	149 /adieresis		%				123	123
	150 /odieresis		%				124	124
	151 /udieresis		%				125
	152 /germandbls		%				126
	153 /agrave		%						 64
	154 /ugrave		%						124
	155 /dieresis 		%						126
	156 /exclamdown 	%							 91
	157 /Ntilde 		%							 92
	158 /questiondown	%							 93
	159 /ntilde  		%							124
  ] def
 
/TimesVectors			%	Ita	Den	Uk	Ger	Swe	Fr	Spa
  [ 129 /sterling		%	 35		 35			 35	 35
	130 /section 		%	 64			 64		 93	 64
	132 /ring  		%	 91					 91	123
	133 /ccedilla		%	 92					 92	125
	134 /eacute		%	 93					123
	135 /ugrave		%	 96
	136 /agrave		%	123
	137 /ograve		%	124
	138 /egrave		%	125					125
	139 /igrave		%	126
	140 /AE			%		 91
	141 /Oslash		%		 92
	142 /Aring  		%		 93			 93	    
	143 /ae			%		123
	144 /oslash		%		124
	145 /aring 		%		125			125
	146 /Adieresis		%				 91	 91
	147 /Odieresis		%				 92	  92
	148 /Udieresis		%				 93
	149 /adieresis		%				123	123
	150 /odieresis		%				124	124
	151 /udieresis		%				125
	152 /germandbls		%				126
	153 /agrave		%						 64
	154 /ugrave		%						124
	155 /dieresis		%						126
	156 /exclamdown 	%							 91
	157 /Ntilde 		%							 92
	158 /questiondown	%							 93
	159 /ntilde  		%							124
  ] def

/makefonts   % make all variations of international fonts, MouseText, Graphics
{
	/Courier-Bold-E /My-Courier-Bold 	CourierVectors  ReEncodeSmall
	/Courier-E /My-Courier CourierVectors  ReEncodeSmall  
	/Times-Roman /My-Times-Roman     TimesVectors  ReEncodeSmall
	/Times-Bold /My-Times-Bold 	TimesVectors  ReEncodeSmall

	/MouseText MouseFont definefont pop
	/theGrafFont GrafFont definefont pop
} bdf    

/BoldFont 
 {/My-Courier-Bold findfont } bdf

/RomanFont   
 { /My-Courier findfont } bdf 

/PropRoman   
 { /My-Times-Roman findfont } bdf 

/PropBold
 { /My-Times-Bold findfont } bdf

% --------------------------------
% Our own save proc which save the current state, then pulls the values off the stack
% and sets the appropriate variables; settings are saved across page boundaries
% (across a save and restore pair).
/xst {exch store}bdf
/oursave  		
 {/ourstate save def
  /CRonly? xst
  /autoLF? xst
  /fonttype xst
  /subflag xst
  /newcountry? xst
  /charct xst
  /debug? xst
  /hidig xst
  /lowdig xst
  /bitmask xst      
  /slash0? xst
  /LM xst
  /dotspace xst
  /CR+LF? xst
  /open? xst
  /double? xst
  /prop? xst
  /graf? xst
  /lf? xst
  tabs astore pop
  /TopOfPage xst
  /LnHt xst
  /dpi xst
  /bold? xst 
  /plain? xst  
  /underline? xst
} bdf

% Our own restore proc which put the variable values on the stack, then restores to the 
% previous state

/ourrestore  						
 {
  underline? 
  plain?
  bold?
  dpi
  LnHt
  TopOfPage
  tabs aload pop
  lf?
  graf?
  prop?
  double?
  open?
  CR+LF?
  dotspace
  LM
  slash0?
  bitmask
  lowdig
  hidig
  debug?
  charct
  newcountry?
  subflag 
  fonttype
  autoLF?
  CRonly?
  ourstate restore
} bdf

/printfile   %main job loop
 { initjob
  CmdDict  begin
   initpage
    {  currentfile read  % read one byte at a time
              % be sure not to send ^c,^d,^t,^s,^q
      { /NewPage? false store
        graf? not debug? not and {bitmask and} if  % if not EOF, strip hi-bit
       printchar}    %    & handle char
  % if we got here then we're done. 
      { NewPage? not  CleanPage? not and 
                    % Do we need to flush the current page? 
					% not if nothing is on the page.
         {showpage ourstate restore} if   % 9/23/88 Suki Lee  Added restore to recover VM
        exit}
     ifelse
    } loop              % repeat until EOF causes exit
    popCmdStack
   end  %CmdDict
 } bdf
 
/tabs 33 array def             	% allocate 33-element array
/tabindex 0 def                	% point the index to the first element
/current_tab 0 def          	% zero the current_tab pointer

/reset_tabs                          % re-initialize the tab-setting array
   {  0 1 32 {tabs exch 999 put} for % put 999 in each array element
      /tabindex 0 store                % point the index to the first element
      /current_tab 0 store           % zero the current_tab pointer
   } bdf

/InitVariables  % default printer
 { /underline? false def  % plain print
   /plain? true def  
  /bold? false def  
  /dpi 96 def         % 12 chars per inch (elite) 
  /LnHt charsize store		% LnHt is determined by product
  /TopOfPage {ImageLen} store	% TopOfPage is determined by product
  /linect 8 def
  reset_tabs            % no tabs set
  /lf? true def % linefeed direction switch T/F = forward/reverse
  /graf? false def
  /prop? false def
  /double? false def
  /open? false def
  /CR+LF? false def
  /dotspace 0 def
  /LM 18 store			% 1/4 in => .25 inch * 72 pts/inch = 18 pts
  /slash0? false def
  /bitmask 127 def      
  /LastString ( ) def
  /hexstring (0123456789ABCDEF) def
  /lowdig 0 def
  /hidig 0 def
  /debug? false def
  /str ( ) def
  /charct 1 def
  /NewPage? false def
  /CleanPage? false def
  /newcountry? false def
  /subflag false def
  /fonttype 0 def
  /autoLF? false def
  /CRonly? false def
} bdf

/ResetPrinter  % default printer
 { /underline? false store  % plain print
   /plain? true store  
  /bold? false store  
  /dpi 96 store         % 12 chars per inch (elite)
  /LnHt charsize store		% LnHt is determined by product
  /TopOfPage {ImageLen} store	% TopOfPage is determined by product
  reset_tabs            % no tabs set
  /lf? true store % linefeed direction switch T/F = forward/reverse
  /graf? false store
  /prop? false store
  /double? false store
  /open? false store
  /CR+LF? false store
  /dotspace 0 store
  /LM 18 store			% 1/4 in => .25 inch * 72 pts/inch = 18 pts
  /slash0? false store
  /bitmask 127 store      
  /lowdig 0 store
  /hidig 0 store
  /debug? false store
  /charct 1 store
  /NewPage? false store
  /CleanPage? false store
  /newcountry? false store
  /subflag false store
  /fonttype 0 store
  /autoLF? false store
  /CRonly? false store
} bdf

/strip {bitmask and}bdf

/getchar {currentfile read pop strip}bdf

/initjob
  { InitVariables
    /CmdDictBase countdictstack 1 add def
  } bdf
 
/initpage
 { /ourstate save def		% 5/17/89 Suki Lee  Added for use with our version of save/restore
   doFont					% 5/21/89 Suki Lee  Font Management should be done for the page
   LM TopOfPage moveto		% 9/23/88 Suki Lee  Added save to recover VM
 } bdf

% Caution => this program stacks dictionaries.  Use "store" rather than 
% "def" to assign new values to old variables.

/printchar  % ( n -- ) this routine actually does the emulation
 {
   debug? 
   		{dup hexout}
   		{dup cmd? graf? not and
   			{doCmd } { /CleanPage? false store emit} ifelse
		} ifelse
 } bdf
 
/hexout {
 dup 15 and hexstring exch get  %convert low nble to int (asc of hex)
/lowdig exch store              %save result of conversion
 240 and 16 idiv hexstring exch get %Convert High Nibble to Int(asc of hex)
/hidig exch store               %Save result of conversion.
str 0 hidig put str show        %convert Int(asc) to string and show it
str 0 lowdig put str show       %again for low Nibble
 ( ) show                       %Show a space
/charct charct 1 add store
charct 25 eq { /charct 1 store CR CR+LF? not {LF} if }if
        } bdf

/cmd?   % ( n -- b ) looks for command only in topmost dictionary
 { currentdict exch known} bdf
 
/doCmd  % as per the topmost dictionary, since doCmd is only invoked
     % if cmd? finds the command in the topmost dict.
     % default top dict: CmdDict
 {load exec } bdf

/swapUSA  % n -- n
{	mark								% n mark
	1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 
	21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 
	38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 
	55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 
	72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88
	89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 
	105 106 107 108 109 110 111 112 113 114 115 116 117 
	118 119 120 121 122 123 124 125 126 127				% n mark 1..127
	129 -1 roll 127 exch sub
	index									
	129 1 roll cleartomark
}bdf

/swapItaly
{
	mark
	1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 
	21 22 23 24 25 26 27 28 29 30 31 32 33 34 129 36 37 
	38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 
	55 56 57 58 59 60 61 62 63 130 65 66 67 68 69 70 71 
	72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88
	89 90 132 133 134 94 95 135 97 98 99 100 101 102 103 104 
	105 106 107 108 109 110 111 112 113 114 115 116 117 
	118 119 120 121 122 136 137 138 139 127
	129 -1 roll 127 exch sub
	index									
	129 1 roll cleartomark
}bdf

/swapDenmark
{
	mark
	1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 
	21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 
	38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 
	55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 
	72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88
	89 90 140 141 142 94 95 96 97 98 99 100 101 102 103 104 
	105 106 107 108 109 110 111 112 113 114 115 116 117 
	118 119 120 121 122 143 144 145 126 127
	129 -1 roll 127 exch sub
	index									
	129 1 roll cleartomark
}bdf

/swapEngland
{
	mark
	1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 
	21 22 23 24 25 26 27 28 29 30 31 32 33 34 129 36 37 
	38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 
	55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 
	72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88
	89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 
	105 106 107 108 109 110 111 112 113 114 115 116 117 
	118 119 120 121 122 123 124 125 126 127
	129 -1 roll 127 exch sub
	index									
	129 1 roll cleartomark
}bdf


/swapGermany
{
	mark
	1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 
	21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 
	38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 
	55 56 57 58 59 60 61 62 63 130 65 66 67 68 69 70 71 
	72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88
	89 90 146 147 148 94 95 96 97 98 99 100 101 102 103 104 
	105 106 107 108 109 110 111 112 113 114 115 116 117 
	118 119 120 121 122 149 150 151 152 127
	129 -1 roll 127 exch sub
	index									
	129 1 roll cleartomark
}bdf


/swapSweden
{
	mark
	1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 
	21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 
	38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 
	55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 
	72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88
	89 90 146 147 142 94 95 96 97 98 99 100 101 102 103 104 
	105 106 107 108 109 110 111 112 113 114 115 116 117 
	118 119 120 121 122 149 150 145 126 127
	129 -1 roll 127 exch sub
	index									
	129 1 roll cleartomark
}bdf


/swapFrance
{
	mark
	1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 
	21 22 23 24 25 26 27 28 29 30 31 32 33 34 129 36 37 
	38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 
	55 56 57 58 59 60 61 62 63 153 65 66 67 68 69 70 71 
	72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88
	89 90 132 133 130 94 95 96 97 98 99 100 101 102 103 104 
	105 106 107 108 109 110 111 112 113 114 115 116 117 
	118 119 120 121 122 134 154 138 155 127
	129 -1 roll 127 exch sub
	index									
	129 1 roll cleartomark
}bdf


/swapSpain
{
	mark
	1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 
	21 22 23 24 25 26 27 28 29 30 31 32 33 34 129 36 37 
	38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 
	55 56 57 58 59 60 61 62 63 130 65 66 67 68 69 70 71 
	72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88
	89 90 156 157 158 94 95 96 97 98 99 100 101 102 103 104 
	105 106 107 108 109 110 111 112 113 114 115 116 117 
	118 119 120 121 122 132 159 133 126 127
	129 -1 roll 127 exch sub
	index									
	129 1 roll cleartomark
}bdf


/swapchar	% replace chars where needed 
{
	mark 					% n m			
	/swapSpain /swapFrance 			% n m c7 c6
	/swapSweden /swapGermany 		% n m c7 c6 c5 c4
	/swapEngland /swapDenmark 		% n m c7 c6 c5 c4 c3 c2
	/swapItaly /swapUSA			% n m c7 c6 c5 c4 c3 c2 c1 c0
	country	index				% n m c7 c6 c5 c4 c3 c2 c1 c0 cn
	counttomark				% n m c7 c6 c5 c4 c3 c2 c1 c0 cn num
	1 add 1 roll				% n cn m c7 c6 c5 c4 c3 c2 c1 c0
	cleartomark				% n cn
	cvx exec					% n
} bdf

/RMtest			%Stack: c		(Char on Stack)
{ dup			%Stack: c c		(Make working char)
str xdf		%		str := c	(Make char into str)
str stringwidth pop	%Stack: c w		(find pixel width)
currentpoint pop		%Stack: c w x		(get current X coord, Y discarded)
add			%Stack: c X		(calc new X coord)
RM gt {CR} if		%Stack: c		(if New X > RM then CR)
} bdf

/emit   % ( n -- ) convert ascii code to printable char, and show it.
 {	graf? not { swapchar } if % swap standard ascii for "local ascii"
 	( ) dup 0 4 -1 roll put dup  RMtest show %RM Test
   	prop?
    	{ currentpoint exch dotspace add exch moveto} if
  	underline?
   		{dup doUnderline} if 
   	dup (0) eq {prop? not {slash0? {dup doslsh0} if } if} if
  	/LastString exch store
}bdf

/doslsh0 % ( c -- ) char on stack is a zero now slash it.
 {           % stack shown AFTER operations
  stringwidth pop %  ( -- w )   get width of 0 in current font
  currentpoint      %  ( --  w x y ) get current cursor
  3 1 roll exch sub   %  ( -- y x )   back to the start of the 0
  exch         %  ( -- x y )   fix stack for moveto
   moveto (/) show % move and show a slash on top of the 0
 } bdf

/printable? % ( c -- c b ) is char in range (32..127)
	{ dup 0 get
	  32 ge	
	} bdf
/doUnderline % ( c -- ) last-printed char is on stack. Now underline it.
 {           % stack shown AFTER operations
 	printable? 
  		{stringwidth pop dup %  ( -- w w )   get width of char in current font
  		 currentpoint      %  ( -- w w x y ) get current cursor
  		 3 sub        %  ( -- w w x y ) y-position for underline
  		 3 1 roll exch sub   %  ( -- w y x )   line below character
  		 exch         %  ( -- w x y )   set up for moveto
  		 gsave 0 setlinewidth % save graphic state & set pen width
  		 newpath moveto    %  ( -- w )     start the path
  		 0 rlineto stroke % ( x y ) stroke the line
  		grestore       % restore old graphic state puts us back where we were.
		}
		{pop} ifelse
 } bdf
 
/CmdError  % to handle errors during multi-character command sequences,
      % "emit" is redefined, thanks to dictionary stacking and 
      % late-binding.  See /EscDict below
 { popCmdStack  emit } bdf

/popCmdStack % clean up dict stack after completion of, or inturruption of,
       % multi-character command sequences.
       % CmdDictBase was defined in initjob.
       % CmdDict is never popped off the dict stack.
 {  countdictstack CmdDictBase sub {end} repeat} bdf
  
 
% routines to assist page handling --------------------------------------

/NUL {} bdf

/CR  % cr only (no linefeed)
 {  /current_tab 0 store 
    LM currentpoint exch pop moveto 
   CR+LF? {LF} if }bdf

/LF  % linefeed without cr -- ff if needed
   % linect was def'ed in initjob
   { CRonly? not
 		{ linect MaxLineCt LnHt sub ge 
  			{FF}
  			{ autoLF?
  				{	/current_tab 0 store 
   					LM currentpoint exch pop moveto 
				} if
   			/linect linect LnHt lf? { add } { sub } ifelse  store
   			currentpoint LnHt  lf? { sub } { add } ifelse moveto
  		}
  		ifelse
	}if
 } bdf
 
/FF  % showpage and formfeed
{ CRonly? not
 	{  showpage
		ourrestore				% 9/23/88 Suki Lee  Added restore to recover VM
    	oursave					% 5/17/89 Suki Lee  Modified to use our own version of
		doFont					% save and restore which saves needed variables on the
		LM TopOfPage moveto		% stack
  		/linect 8 store 		
    	/current_tab 0 store 
    	/NewPage? true store
    	/CleanPage? true store
	} if
 } bdf

/BS  %do a backspace. Like real imagewriter , only works one char back.
{
 LastString       % last string we printed
  stringwidth pop %  ( -- w )   get it't width in current font
  currentpoint      %  ( --  w x y ) get current cursor
  3 1 roll exch sub   %  ( -- y x )   back to the start of the last char
  exch         %  ( -- x y )   fix stack for moveto
  moveto
} bdf



%=========================================================================
/LM	18 def			% 1/4 in => .25 inch * 72 pts/inch = 18 pts
/RM	594 def			% 8 1/4 in => 8.25 inch * 72 pts/inch = 594 pts
/LnHt	charsize   def		% LnHt is determined by product
/TopOfPage  {ImageLen} def	% TopOfPage is determined by product
/MaxLineCt  TopOfPage    def


/HT 
{ 	HTDict begin
     	tabs current_tab get				% -- t get char tab position rel to left mar.
    	dup 999 lt            					% -- t b      if t < 999 then valid tab
    		{	1 sub				% -- t  adjusted
      			(n) stringwidth pop mul		% -- p  converted to points
     			LM add currentpoint		% -- ap x y  ap = absloute points
     			exch pop moveto
     			/current_tab current_tab 1 add store
			}
    		{	pop	}
    		ifelse
     end
  } bdf

%-------------------------------------------------------------------------
/CmdDict  30 dict  def % May need to be enlarged if you add a lot to it.
   CmdDict begin    % Store the defs in CmdDict, rather than clutter
            % IWEmDict with all this stuff.
 0 {graf? {0 emit}  {NUL} ifelse} bdf
 8 {graf? {8 emit}  {BS} ifelse} bdf
 9 {graf? {9 emit}  {HT} ifelse} bdf
10 {graf? {10 emit} {LF} ifelse} bdf
12 {graf? {12 emit} {FF} ifelse} bdf
13 {graf? {13 emit} {CR} ifelse} bdf
27 {graf? {27 emit} {ESC} ifelse} bdf

14 { graf?
   		{ 14 emit}
   		{/double? true store changeFontWidth}
   			ifelse
   } bdf
  
15 { graf?
   		{ 15 emit}
   		{ /double? false store changeFontWidth}
    		ifelse
   } bdf

/changeFontWidth
{fonttype 0 eq
	{doFont}
	{fonttype 1 eq
		{doMouseText}
		{gf} ifelse
	}ifelse
 } bdf
   
/printfile   %main job loop

/Elite 
  { /prop? true store /dpi 160  store doFont} bdf
/Pica
  { /prop? true store /dpi 144  store doFont} bdf


/doFont     %   scale selected font to appropriate "dpi" and make current

 {   /fonttype 0 store
 	 dpi     % ( -- n )
     prop?
     	{ 160 eq { 10 } { 12 } ifelse
       	   	bold?
      			{PropBold} {PropRoman} ifelse
     	}
    	{ 8 div 72 exch div 1.65 mul
        	bold?
        		{BoldFont} {RomanFont} ifelse
    	} 
	ifelse
    
	exch % ( -- font n ) get current font dict on stack
	double? { 2 mul }if
	0 0 charsize 0 0     %  load stack with matrix elements, height is determined by product
	matrix astore  % ( -- font n elems matrix ) make font-transform matrix 
	makefont setfont 
} bdf

/string4 4 string def

/get4 % reads next 4 chars from input stream and
   % leaves them in string on stack
  { string4            % -- s  create 4 char string on stack
    dup 0 getchar put    % -- s put 1st char in str
    dup 1 getchar put    % -- s put 2nd char in str
    dup 2 getchar put    % -- s put 3rd char in str
    dup 3 getchar put    % -- s put 4th char in str
  } bdf

/inverse {255 exch sub } bdf

/string3 3 string def

/get3 % reads next 3 chars from input stream and
  { string3            
    dup 0 getchar put    % -- s put 1st char in str
    dup 1 getchar put    % -- s put 2nd char in str
    dup 2 getchar put    % -- s put 3rd char in str
  } bdf
  

/HTDict 20 dict def 

HTDict begin


 
/add_a_tab   % put into next sequential position in tabs array
   { tabs tabindex  	% str -- int array index
     3 -1 roll          % int array index -- array index int 
     put                % array index int -- 
     /tabindex tabindex 1 add store % make index point to next array slot
   } bdf

/get_tabs
{
   { get3 cvi add_a_tab 			% take the first three chars as a tab
     getchar 				% the next char is either a , or a .
	 46 eq	
	 	{exit} if			% if it's a . then exit
	}loop
} bdf 

/swap?	% (n1 n2 -- n1 n2 b)     if n1 > n2 then swap and put true on stack
	%                                   else put false on stack
  { 2 copy gt
      { exch true }
      { false }
    ifelse
  } bdf

/if_sort?  % (array index -- bool) compares array[index] and array[index+1] 
           % and leave bool on stack:
           %   if array[index] < array[index+1] then swap & leave true
           %                                 otherwise leave false
   { 
     2 copy 2 copy  % a i -- a i a i a i
     1 add          % -- a i a i a i+1
     get            % -- a i a i n2
     3 1 roll       % -- a i n2 a i
     get exch       % -- a i n1 n2
     swap?          % -- a i n1 n2 b
     { 4 1 roll     % -- n2 a i n1
       3 1 roll     % -- n2 n1 a i
       2 copy       % -- n2 n1 a i a i
       5 -1 roll    % -- n2 a i a i n1
       put 1 add    % -- n2 a i+1
       3 -1 roll    % -- a i+1 n2
       put true }   % -- true
     { pop pop pop pop false } % a i n1 n2 -- false
     ifelse
   } bdf

/sort_once % sort array once; leave true if a swap was done, else false
   { false                            % -- false
        0 1 31 { tabs exch if_sort?   % false -- false bool
               { pop true exit } if
               } for
    } bdf

/sort_tabs   % keep doing sort_once until flag is false
             % tabs array will end up like:
       % [n1,n2,n3,...,999,999,999] where n1<=n2<=n3<999
       % current_tab will be set to first elem = 999, ie next
       % 'empty' tab slot
  {sort_once { sort_tabs} if % do until return flag is false
  /current_tab 0 store      % start with tab[0]
  { tabs current_tab get 999 eq % n = 999?
   { exit } {/current_tab current_tab 1 add store } ifelse} loop
  } bdf
       
/set_up_tabs    
  { 
  	reset_tabs  %  define tabs array and set each element to 999
                %  set array indexes to 0
	get_tabs 
	sort_tabs  	% make sure tabs are in ascending sequence
	/current_tab 0 store	% and make the first tab is the current one
  } bdf
    

/remove_a_tab  % nnn --   the tab to remove
   { 0							% nnn index   start by looking at tabs[0]
   	 	{ dup tabs exch get			% nnn index element
	      2 index 					% nnn index element nnn
		  eq					% nnn index b
		  	{ tabs exch	999		% tabs index 999
			  put exit
			}
			{ 1 add }			% nnn index+1
			ifelse
		}loop
   } bdf 

/remove_tabs    % convert following string into integers and remove
                % remove tabs from tab array
        		% then sort remaining tabs in ascending order
{
   { get3 cvi remove_a_tab 			% take the first three chars as a tab
     getchar 				% the next char is either a , or a .
	 46 eq	
	 	{exit} if			% if it's a . then exit
	}loop
    sort_tabs				% after array has changed, sort it
	/current_tab 0 store		% and make the first tab is the current one
} bdf 

end % HTDict



/EscDict 100 dict def  % may need to be enlarged

/ESC          % handle multi-character "escape" sequences
 { EscDict begin } bdf
 
EscDict begin   %-------------------------------------

/subscript
	{	currentpoint LnHt 6 div sub moveto
		/subflag true store
	}bdf

/superscript
	{	currentpoint LnHt 6 div add moveto
		/subflag false store
	}bdf

/de-sub
	{	currentpoint LnHt 6 div 
		subflag {add} {sub} ifelse
		moveto
	} bdf
/emit { CmdError }  bdf
/hDot % next 4 chars are dot position to move to
    { get4 cvi                            % i | convert to integer
    dpi div 72 mul                        % convert to user-space units
   LM add
   currentpoint exch pop
   moveto
  } bdf

/ignore  % ( n -- | drop next n chars from input stream)
    { {currentfile read {pop} if} repeat popCmdStack} bdf

/aStr 1 string def                 % make a str 1 char long 

/replicate % ( nnn c -- ) repeat next char nnn times
   {  get3 cvi  					% times to repeat
	  getchar dup 				% t c c
	  32 ge 					% t c b
	  	{	aStr 0 			% t c s 0	if it is a character,
			3 -1 roll			% t s 0 c	print it 
			put 			%	the requested number of times
			{aStr show} repeat			
		}				%	otherwise,
		{ dup cmd? 			% t c b is it a command?
			{{doCmd} repeat}	%if so, execute it t times
			{pop pop}		%otherwise, it's not printable
				ifelse
		}ifelse
} bdf

/doMouseText
 {  /fonttype 1 store
 	 dpi     % ( -- n )
     prop?
     { 160 eq { 12 } { 10 } ifelse }
    { 8 div 72 exch div} ifelse
     /MouseText findfont 
     exch % ( -- font n ) get current font dict on stack
	 double? {2 mul} if
     0 0 8 0 0     %  load stack with matrix elements
     matrix astore  % ( -- font n elems matrix ) make font-transform matrix 
     makefont setfont } bdf

/gf  % print graphic bytes
 {  /fonttype 2 store
     dpi     
     8 div 72 exch div			% 5/20/89 Suki Lee  Removed check for prop? since that
    .828125 mul					% flag does not effect graphics, only the dpi matters here
     /theGrafFont findfont 
     exch % ( -- font n ) get current font dict on stack
	 double? {2 mul} if
     0 0 8 0 0		%  load stack with matrix elements
     matrix astore		% ( -- font n elems matrix #) make font-transform matrix 
     makefont setfont 
	 } bdf
  
/gprint   						% 5/20/89 Suki Lee removed gsave and grestore
 { /graf? true store
  gf
  { currentfile read pop printchar
      1 sub dup 0 eq
    {pop exit} if
  } loop
  /graf? false store doFont } bdf

/g4 { get4 cvi gprint} bdf

/g3*8 { get3 cvi 8 mul gprint} bdf

/repeatGraphic
  { /graf? true store
    get4 cvi % -- # times to print char
	gsave
   gf
    aStr 0 currentfile read pop put
   { aStr show} repeat
   grestore
  /graf? false store doFont } bdf 

/dps { pop  } bdf % proportional dot spacing

/string2 2 string def

/get2 % reads next 2 chars from input stream and
   % leaves them in string on stack
  { string2            % -- s  create 2 char string on stack
    dup 0 getchar put    % -- s put 1st char in str
    dup 1 getchar put    % -- s put 2nd char in str
  } bdf
/aChar 1 string def
/FixCR+LF  % LF after CR ??
 { aChar
    dup 0 getchar put    % -- s put 1st char in str
  cvi 
  1 eq {/CR+LF? true store} {/CR+LF? false store} ifelse 
 } bdf
  
/SetMargin 
 { get3 cvi
   dpi 
   prop? 
   	{ 160 eq 
		{80} {72} ifelse	% proportional "look-alikes"
	}if
	8 div
	72 exch div
    mul
   18 add					% 1/4 in => .25 inch * 72 pts/inch = 18 pts
  /LM exch store} bdf

	
/ChangeSwitch
 {currentfile read pop  %Switch number 1
dup
   128 and 128 eq
     {open?
        {/CR+LF? false store}           %SW 1-8 yes or no linefeed + cr
        {/CR+LF? true store}
        ifelse
     } if
dup 
   64 and 64 eq							
	{ open?
		{/CRonly? true store}			%SW 1-7 CR only or CR,LF,VT,FF
		{/CRonly? false store}
		ifelse
	} if
dup
   32 and 32 eq
    {open?
       {/bitmask 255 store}             %SW 1-6 yes or no ignore bit 8
       {/bitmask 127 store}
       ifelse
    } if

dup
   4 and 4 eq
    {open?
        {/country country 3 and store}         %SW 1-3 Language selector
        {/country country 4 or store} 
     ifelse
     /newcountry? true store
    } if       
dup
   2 and 2 eq
    {open?
        {/country country 5 and store}         %SW 1-2 Language selector
        {/country country 2 or store} 
     ifelse
     /newcountry? true store
    } if       

   1 and 1 eq
    {open?
        {/country country 6 and store}         %SW 1-1 Language selector
        {/country country 1 or store} 
     ifelse
     /newcountry? true store
    } if       

  currentfile read pop		%switch number 2


   1 and 1 eq
    {open?
       {/slash0? false store}
       {/slash0? true store}		%SW 2-1 Slash 0's yes or no.
       ifelse
    } if

 newcountry?
 	{   doFont 
		/newcountry? false store 
	} if
 } bdf

/changeLnHt
  { get2 cvi 2 div /LnHt exch store } bdf
 
/makedotspace 
 { aChar
    dup 0 getchar put    % -- s put 1st char in str
  cvi
   dpi 72 exch div mul
  /dotspace exch store } bdf

/movedot
  {dpi 72 exch div mul 0 rmoveto} bdf
  
% ESC !    1B 21    Start Bold Print
 33 { /bold? true store doFont popCmdStack } bdf
% ESC "    1B 22    End Bold Print
 34 { /bold? false store doFont popCmdStack } bdf
% ESC $    1B 24    Select 96 ASCII Characters
  36  {doFont  popCmdStack} bdf
% ESC &    1B 26    Select MouseText Characters
  38  {doMouseText popCmdStack } bdf
% ESC '    1B 27    Select Down-loaded Characters
 39 { 0 ignore } bdf
% ESC (    1B 28    Set Horizontal Tab
  40  { HTDict begin set_up_tabs end popCmdStack} bdf
% ESC )    1B 29    Clear Horizontal Tab
  41  { HTDict begin remove_tabs  end popCmdStack } bdf
% ESC *    1B 2A    Select Down-loaded Characters
 42 { 0 ignore } bdf
% ESC +    1B 2B    Down load 16-dot-wide characters
 43 { 0 ignore } bdf
% ESC -    1B 2D    Down load 8-dot-wide characters
 45 { 0 ignore } bdf
% ESC 0    1B 30    Clear All Horizontal Tabs
 48 { HTDict begin reset_tabs end popCmdStack} bdf
% ESC 1    1B 31    1-dot proportional spacing
 49 { 1 movedot popCmdStack } bdf
% ESC 2    1B 32    2-dot proportional spacing
 50 { 2 movedot popCmdStack } bdf
% ESC 3    1B 33    3-dot proportional spacing
 51 { 3 movedot popCmdStack } bdf
% ESC 4    1B 34    4-dot proportional spacing
 52 { 4 movedot popCmdStack } bdf
% ESC 5    1B 35    5-dot proportional spacing
 53 { 5 movedot popCmdStack } bdf
% ESC 6    1B 36    6-dot proportional spacing
 54 { 6 movedot popCmdStack } bdf
% ESC <    1B 3C    Bi-directional Printing
 60  { 0 ignore} bdf
% ESC >    1B 3E    Uni-directional Printing
  62  { 0 ignore} bdf
% ESC ?    1B 3F    Self ID
  63  { 0 ignore} bdf
% ESC A    1B 41    Set 1/6" line spacing
  65  { /LnHt charsize store popCmdStack} bdf	% LnHt is determined by product
% ESC B    1B 42    Set 1/8" line spacing
  66  { /LnHt 9 store popCmdStack} bdf
% ESC D dd   1B 44 dd   Reset switches to closed
  68  {/open? false store ChangeSwitch popCmdStack} bdf 
% ESC E    1B 45    Select 12 cpi text, 96 dpi graphics
  69  { /dpi 96 store /prop? false store doFont  popCmdStack} bdf
% ESC F nnnn  1B 46 dddd Begin printing at dot-position nnnn
  70  { hDot popCmdStack} bdf
% ESC G nnnn  1B 47 dddd Next nnnn bytes to be printed as bit-image graphics
 71 { g4 popCmdStack } bdf
% ESC H nnnn  1B 48 nnnn Set forms length in 1/144" increments
  72  {4 ignore} bdf
% ESC I    1B 49    Begin character download sequence
  73  {0 ignore} bdf
% ESC K n   1B 4B n   Select color n
  75 { 1 ignore} bdf  
% ESC L nnn  1B 4C nnn  Set left margin nnn
  76 { SetMargin popCmdStack} bdf
% ESC M    1B 4D    Select NLQ font
 77 { 0 ignore } bdf
% ESC N    1B 4E    Select 10 cpi text, 80 dpi graphics
 78 { /dpi 80 store /prop? false store doFont popCmdStack } bdf
% ESC O    1B 4F    Overide paper-out sensor
 79 { 0 ignore } bdf
% ESC P    1B 50    Select elite proportional text, 160 dpi graphics
 80  { Elite popCmdStack} bdf
% ESC Q    1B 51    Select 17 cpi text, 136 dpi graphics
 81 { /dpi 136 store /prop? false store doFont popCmdStack } bdf
% ESC R nnn  1B 52 nnn  Repeat next character nnn times
  82  { replicate popCmdStack } bdf
% ESC S nnnn  1B 53 nnnn Next nnnn bytes to be printed as bit-image graphics
  83   {g4 popCmdStack} bdf
% ESC T nn   1B 54 nn  Set nn/144" line spacing
 84 { changeLnHt popCmdStack} bdf
% ESC V nnnn  1B 56 nnnn Repeat following 1 byte dot pattern nnnn times
 86 {repeatGraphic popCmdStack} bdf
% ESC W    1B 57    Select full-height characters
 87 { 0 ignore } bdf
% ESC X    1B 58    Start underline
 88 { /underline? true store  popCmdStack} bdf
% ESC Y    1B 59    Stop underline
  89 { /underline? false store popCmdStack} bdf
% ESC Z dd   1B 5A dd  Reset switches to OPEN
 90 {/open? true store ChangeSwitch popCmdStack} bdf
% ESC a n    1B 61 n   Select font n
 97 { 1 ignore } bdf
% ESC c    1B 63    Software RESET
 99 { ResetPrinter popCmdStack} bdf
% ESC e    1B 65    Select 13.4 cpi text, 107.2 dpi graphics
  101 { /dpi 107.2 store /prop? false store doFont  popCmdStack} bdf
% ESC f    1B 66    Select forward linefeed
 102 { /lf? true store popCmdStack} bdf
% ESC g nnn  1B 67 nnn  Next (nnn * 8) bytes to be printed as bit-image graphics
 103 { g3*8 popCmdStack} bdf
% ESC l n   1B 6C n   Disable (n=0) / Enable (n=1) optional linefeed
 108 { /autoLF? getchar 48 sub 0 eq store popCmdStack} bdf
% ESC m     1B 6D    Select Standard font
 109 { 0 ignore } bdf 
% ESC n    1B 6E    Select 9 cpi text, 72 dpi graphics
  110 { /dpi 72 store /prop? false store doFont popCmdStack } bdf
% ESC o    1B 6F    Enable paper-out sensor
 111 { 0 ignore } bdf 
% ESC p    1B 70    Select pica proportional text, 144 dpi graphics
 112 { Pica popCmdStack} bdf
% ESC q    1B 71    Select 15 cpi text, 120 dpi graphics
  113 { /dpi 120 store /prop? false store doFont popCmdStack } bdf
% ESC r    1B 72    Select reverse linefeed
 114 { /lf? false store popCmdStack} bdf
% ESC s    1B 73 n   set proportional spacing to n
  115 { makedotspace popCmdStack } bdf
% ESC u    1B 75    Set additional tabs
  117 { HTDict begin get3 add_a_tab sort_tabs popCmdStack } bdf
% ESC v    1B 76    Set Top-of-Form
 118 { 0 ignore } bdf
% ESC w    1B 77    Select half-height characters
 119 { 0 ignore } bdf
% ESC x    1B 78    Select superscript characters
 120 { superscript popCmdStack } bdf
% ESC y    1B 79    Select subscript characters
 121 { subscript popCmdStack } bdf
% ESC z    1B 7A    De-select super/sub characters
 122 { de-sub popCmdStack} bdf


    end  % EscDict --------------------------------
    
end  % CmdDict
end  % IWEmDict     % end of program "IWEM"

%%EndProcSet 
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/SpoolerIWEM/SpoolerIWEM.r b/IIGS.601.SRC/GS.OS/NetBoot/SpoolerIWEM/SpoolerIWEM.r
new file mode 100644
index 0000000..cb081e7
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/NetBoot/SpoolerIWEM/SpoolerIWEM.r
@@ -0,0 +1 @@
+data 'EQED' (1003) {
	$"0000"                                               /* .. */
};

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/Start/Makefile b/IIGS.601.SRC/GS.OS/NetBoot/Start/Makefile
new file mode 100644
index 0000000..76d17af
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/NetBoot/Start/Makefile
@@ -0,0 +1 @@
+#
# This makefile causes the network booting "Start" program to be built
#


SDAppleTalk		=
Start			=
Console			=	::Console:
Logon			=	::Logon:


{SDAppleTalk}Start	Ä	{Start}Start.o ¶
				{Console}console.o ¶
				{Logon}BootLog16.o ¶
				{Logon}DES.o
	LinkIIGS -o {SDAppleTalk}Start ¶
		{Start}Start.o ¶
		{Logon}BootLog16.o ¶
		{Console}Console.o ¶
		{Logon}DES.o

{Start}Start.o		Ä	{Start}Start.aii ¶
				{Console}Cons.Macros ¶
				{Console}Console.Equates
	AsmIIGS -i {Console} -o {Start}Start.o {Start}Start.aii

{Console}Console.o	Ä	{Console}Console.aii ¶
				{Console}Cons.Macros ¶
				{Console}Console.Equates
	AsmIIGS -i {Console} -o {Console}Console.o {Console}Console.aii

{Logon}BootLog16.o	Ä	{Logon}BootLog16.aii ¶
				{Logon}logon.main ¶
				{Logon}icon.aii ¶
				{Console}Cons.Macros ¶
				{Console}Console.Equates
	AsmIIGS -i {Console} -o {Logon}BootLog16.o {Logon}BootLog16.aii

{Logon}DES.o		Ä	{Logon}DES.aii
	AsmIIGS -o {Logon}DES.o {Logon}DES.aii
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/Start/Start.aii b/IIGS.601.SRC/GS.OS/NetBoot/Start/Start.aii
new file mode 100644
index 0000000..3f25901
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/NetBoot/Start/Start.aii
@@ -0,0 +1 @@
+;------------------------------------------------------------
; Start.aii
;
; This program handles logging on/off of file servers and
; launching a user's startup application.  It uses the
; MessageCenter to remember whether this is a first time boot,
; local/remote boot, and quick logoff/ask me.
;
; This file should be installed as the file '*:System:Start'
; on the User Volume.
;
; Written by Mark Day
;
; Modification History
; ??-???-88	MSD	First release
; 11-Jan-89	MSD	Added local boot disk support.
; 27-Jan-89	MSD	Major restructuring.
;			Added check for AppleShare FST.
; 24-Jul-89	MSD	Added code to set the default printer
;			at the same time the prefix is being
;			set and the startup app is being
;			launched.  (version 1.0.1)
; 13-Apr-91	MSD	System 6.0 does a shutdown if there is
;			no application to quit to and the quit
;			stack is empty.  This means that after
;			the user's application quits, we're in
;			trouble.  Therefore, launch the START
;			program on the new volume first.  (We
;			can't leave the original START program
;			on the stack since its volume may no
;			longer be online).
;
;			A new flag in the message center flags
;			says that this is a volume switch, not
;			a quit from a user application.
; 19-Jun-91	MSD	Version 1.0.2d2.  Now passes 1 in A to
;			tell Logon that we're using GS/OS.
;  3-Sep-91	MSD	Before quitting to the user's startup
;			application, or the START program, I do
;			a GetFileInfo to make sure it exists.
; 17-Sep-91	MSD	Version 1.0.2d3.  Changed how setup files
;			are loaded.  A zero word is pushed just
;			before they're JSL'd to.  If a permanent
;			setup file sets bit 0 of that word, it
;			will be unloaded just like a temporary
;			setup file.  This makes network booting
;			work like GLoader.
;  7-Feb-92	MSD	Changed version number to 1.0.2 final
;			for 6.0d70 (GM) build.
;------------------------------------------------------------

;		print	push,off
		include	'Cons.Macros'
		include	'Console.Equates'
		include	'M16.Locator'
		include 'M16.Memory'
		include	'M16.ProDOS'
		include	'M16.GSOS'
		include 'M16.Desk'
		include 'M16.Loader'
		include	'M16.Resources'
		include	'Start.m'
;		print	pop

		
MyMsgType	equ	$0088		; message type for AppleTalk
addMessage	equ	$0001		; command to add a message
getMessage	equ	$0002		; command to get a message

NDA_type	equ	$B8		; New Desk Accessory
CDA_type	equ	$B9		; Classic Desk Accessory
SETUP_type	equ	$B6		; permanent setup
TEMP_type	equ	$B7		; temporary setup

dp		record	0
myuserid	ds.w	1		; my user ID (from MM)
localflag	ds.w	1		; high bit set if booted locally
bootflag	ds.w	1		; high bit set if booting
quickflag	ds.w	1		; high bit set if quicklogoff
newvolflag	ds.w	1		; high bit set if switching boot volumes
msghandle	ds.l	1		; handle to message
msgptr		ds.l	1		; pointer to message
mailflag	ds.w	1		; set if mail waiting
LoadMemID	ds.w	1		; user ID returned by Loader
ZPStart		ds.w	1		; start of direct page segment
ZPSize		ds.w	1		; size of direct page segment
LoadAddr	ds.l	1		; address where file was loaded
LoadHandle	ds.l	1		; handle of file's memory
savesize
		endr


afp_driver	equ	$001E		; device type for AFP driver
ashare_f_sys	equ	$000D		; file_sys_id for AppleShare
bad_dev_num	equ	$0011		; error code: invalid device number

adb_modifiers	equ	$C025		; I/O: modifiers latch

		import	(StartLogon,ConsDrvr):code
		import	(ListParms,SelXPos,SelYPos):code
		import	(Increment,ArrayCnt,MySelArray):code
		import	(StgArrayPtr,SelIndex,ListOptByte):code
		import	(InitParm,TitLine):code
		import	(MainWindow,FrameParms1):code
		import	(RestoreBox,MessParms,MessPtr):code
		import 	(FilterProc,MessOpt):code
		import	(MessageWind,MainWindow):code
		
		import	(Mess0,Mess20,Mess15):code

start		proc
		with	dp
		
		import	InfoParms:tDInfo
		import	FSTInfoParms:tFSTInfo
		
		import	(get_flags,set_booted):code
		import	(do_logon,do_logoff):code
		import	(load_files,check_mail,launch_app,launch_start):code
		import	(one_moment,set_boot_vol,clear_boot_vol):code
		import	(eject_all,shut_down):code
		import	ErrorHandler:code
		
		import	(Title,MenuPrompt,MenuList):code
		
		phk
		plb			; get current bank for short addressing

;------------------------------------------------------------
; Init the console driver so we can display messages
;------------------------------------------------------------
		sep	#$30
		longa	off
		longi	off
		lda	#$C0
		sta	InitParm	; set up for 65816
		InitConsole
		WriteChar RSTWind	; reset window
		WriteChar ClrWind	; clear window just in case
		CursorOff		; don't want flashing cursor
		rep	#$30
		longa	on
		longi	on
		
;------------------------------------------------------------
; Start up the memory manager.
;------------------------------------------------------------
		pha			; space for user ID
		_MMStartup
		pla			; recover user ID
		sta	myuserid

;------------------------------------------------------------
; Make sure AppleShare is up and running.
;------------------------------------------------------------
		lda	#1
		sta	FSTInfoParms.fst_num	; start with first FST
check_atalk
		_GetFSTInfoGS FSTInfoParms
		bcs	no_atalk		; no more FSTs => no AppleShare
		lda	FSTInfoParms.file_sys_id
		cmp	#ashare_f_sys		; is it AppleShare?
		beq	yes_atalk		; yes, so we're OK
		
		inc	FSTInfoParms.fst_num	; try next FST
		bra	check_atalk
no_atalk
		ldx	#3			; AppleTalk not present error
		jsr	ErrorHandler
		jsr	eject_all		; eject all devices
		jsr	shut_down		; reboot the machine
		bra	no_atalk		; should never get here!
		
yes_atalk
;------------------------------------------------------------
; Determine if we booted over the net or locally.
;------------------------------------------------------------
		stz	localflag		; assume booted from server
		lda	#1			; boot device is always #1
		sta	InfoParms.dev_num
		_DInfoGS InfoParms		; figure out what kind it is
		lda	InfoParms.dev_type	; get device type
		cmp	#afp_driver
		beq	from_server		; it was a server
		lda	#$8000
		tsb	localflag		; set local volume flag
from_server

;------------------------------------------------------------
; Allocate a new handle for getting/setting message info.
;------------------------------------------------------------
		pha			; push long space
		pha
		pea	tMessage.size>>16
		pea	tMessage.size
		pei	myuserid	; push my user ID
		pea	$0000		; get me anything
		pea	0>>16		; don't care where
		pea	0
		_Newhandle
		
		pla
		sta	msghandle
		pla
		sta	msghandle+2

		
;------------------------------------------------------------
; Get the flags from MessageCenter
;------------------------------------------------------------
		jsr	get_flags

;------------------------------------------------------------
; Did we just switch to a new boot volume?
;------------------------------------------------------------
		bit	newvolflag	; just log onto new boot volume?
		bpl	norm_quit	; no, so handle as usual

		jsr	set_booted	; clear newvolflag in message center
		jsr	launch_app	; launch app from ATINIT
		bra	select1		; error: log off

norm_quit
;------------------------------------------------------------
; Are we booting this time?
;------------------------------------------------------------
		bit	bootflag	; booting?
		bpl	switch		; no, switch users

;------------------------------------------------------------
; We're booting.  If it's local, we need to log on
;------------------------------------------------------------
		bit	localflag	; are we local?
		bpl	skipbootlog	; no, so don't log on
		
		jsr	do_logon	; local boot disk logon
skipbootlog
		jsr	one_moment	; keep user entertained

;------------------------------------------------------------
; If we booted locally, don't bother loading personal setup
; files and desk accessories
;------------------------------------------------------------
		bit	localflag	; local?
		bmi	skipbootsetup	; yes, don't load files
		
		jsr	load_files	; load setups and DAs
skipbootsetup
		jsr	set_booted	; remember that we've booted
		jsr	check_mail	; see if user has any mail
		jsr	launch_app	; try to launch their startup application
		bra	select1		; must be an error, do quick logoff

;------------------------------------------------------------
; Here, we are running Start other than the first time.  So
; the user's application has quit and we need to see what to
; do next.
;------------------------------------------------------------
switch
		bit	quickflag	; do they want quick logoff?
		bmi	select1		; yes, they want quick logoff

;------------------------------------------------------------
; They don't have QuickLogoff installed, so put up the menu
; of choices and see what they want to do next.
;------------------------------------------------------------
selectloop
		jsr	get_selection	; find out what user wants to do
		dea			; was A=1 (logoff)?
		beq	select1		; go do quick logoff
		dea			; was A=2 (restart app)?
		beq	select2		; go do restart
		dea			; was A=3 (reboot)?
		beq	select3
		bra	selectloop	; should never get here!!

;------------------------------------------------------------
; User either has QuickLogoff installed, or has chosen the
; logoff option from the menu.
;------------------------------------------------------------
select1
		jsr	clear_boot_vol	; close files on boot volume
		jsr	do_logoff	; log off of all servers
		jsr	do_logon	; log them onto a server
		jsr	one_moment	; keep user entertained
		jsr	check_mail	; see if they have any mail
		
		bit	localflag	; did they boot locally?
		bmi	skipsetvol	; if so, don't set boot volume
		
		jsr	set_boot_vol	; use new boot volume name
skipsetvol
		jsr	launch_start	; launch START on new volume
		bra	select1		; must be an error, do quick logoff

;------------------------------------------------------------
; User has chosen to re-run the startup application
;------------------------------------------------------------
select2
		jsr	launch_app
		bra	select1		; must be an error, do quick logoff

;------------------------------------------------------------
; User chose to reboot.  Eject all media and reboot machine.
;------------------------------------------------------------
select3
		jsr	clear_boot_vol	; close files, etc.
		jsr	eject_all	; eject all media
		jsr	shut_down	; do an OS_Shutdown
		bra	selectloop	; should never get here!!!


;------------------------------------------------------------
; Get_Selection
; This routine puts up the menu with the logoff, re-run, and
; reboot options.  It returns the choice number (1-3) in A.
;------------------------------------------------------------
get_selection
		
		sep	#$30
		longa	off
		longi	off
		
		WriteChar RSTWind
		WriteChar ClrWind
		FrameRect FrameParms1	; draw the main box
		SViewPort MainWindow	; draw inside frame
		WriteCStr Title		; draw the title
		ReptChar TitLine	; and the line below it
		
		WriteCStr MenuPrompt	; draw prompt at bottom of screen
menu_loop
		ldx	#10
		stx	SelXPos
		ldx	#3
		stx	SelYPos
		ldx	#1
		stx	Increment
		stx	SelIndex
		lda	#<MenuList
		sta	StgArrayPtr
		lda	#>MenuList
		sta	StgArrayPtr+1
		lda	#3
		sta	ArrayCnt
		sta	ListOptByte
		ListHandler ListParms	; go get user's selection
		
		cmp	#Return		; did they press return?
		bne	menu_loop
		
		rep	#$30		; back to full native mode
		longa	on
		longi	on

		lda	SelIndex	; what did he select?
		and	#$00FF		; mask off only a byte
		rts

		endwith			; with dp
		endp


;------------------------------------------------------------
; Eject all volumes on-line
;------------------------------------------------------------
eject_all	proc

		import	InfoParms:tDInfo
		import	EjectParms:tControl

		lda	#1			; first unit number
		sta	InfoParms.dev_num	; save as device number
@loop
		_DInfoGS InfoParms
		cmp	#bad_dev_num		; invalid device number?
		beq	@done

		lda	InfoParms.dev_num	; get device number
		sta	EjectParms.dev_num	; save for eject
		_DControlGS EjectParms		; eject the device
@next
		inc	InfoParms.dev_num
		bra	@loop
@done
		rts

		endp



;------------------------------------------------------------
; Shut down the machine (using OS_Shutdown)
;------------------------------------------------------------
shut_down	proc
		jsl	$E100A8		; GS/OS call
		dc.w	$2003		; class 1 OS Shutdown
		dc.l	ShutDownParms	; pointer to parameter list
		rts

ShutDownParms
		dc.w	1		; pcount = 1
		dc.w	0		; shutdown_flag = power off

		endp
		
;------------------------------------------------------------
; Do_Logoff
; Log off of all file servers
;------------------------------------------------------------
do_logoff	proc

		import	InfoParms:tDInfo
		import	EjectParms:tControl
		
		lda	#1			; first unit number
		sta	InfoParms.dev_num	; save as device number
@loop
		_DInfoGS InfoParms
		cmp	#bad_dev_num		; invalid device number?
		beq	@done

		lda	InfoParms.dev_type	; get device type
		cmp	#afp_driver		; is it an AFP driver?
		bne	@next
		
		lda	InfoParms.dev_num	; get device number
		sta	EjectParms.dev_num	; save for eject
		_DControlGS EjectParms		; eject the device
@next
		inc	InfoParms.dev_num
		bra	@loop
@done
		rts
		
		endp
		
;------------------------------------------------------------
; Do_Logon
; Log on to a file server
;------------------------------------------------------------
do_logon	proc

		jsr	StartLogon	; go do the logon
		rts

		endp

;------------------------------------------------------------
; One_Moment
; Put up the "One moment please..." dialog.
;------------------------------------------------------------
one_moment	proc

		import	(MessRect,moment_str):data
		sep	#$30
		longa	off
		longi	off
		
		WriteChar RSTWind
		FrameRect MessRect
		SViewPort MessageWind
		WriteChar ClrWind
		WriteCStr moment_str
		
		rep	#$30
		longa	on
		longi	on
		rts

		endp

;------------------------------------------------------------
; Clear_Boot_Vol
;
; If we booted diskless, then we need to close everything
; down (like closing SYS.RESOURCES on the boot volume) so
; that the boot volume can be ejected.
;------------------------------------------------------------
clear_boot_vol	proc
		with	dp
		import	(GetLevelParms,SetLevelParms):code
		import	CloseParms:tClose
		
		bit	localflag		; did we boot locally?
		bmi	exit			; yes, so don't close things
		
		pea	$0001			; "Sys.Resources"
		_CloseResourceFile
		
		pea	$0000			; all user files
		_CloseResourceFile
		
		_GetLevelGS GetLevelParms	; get the current open file level
		_SetLevelGS SetLevelParms	; set to system level=0
		stz	CloseParms.refnum	; 0=close everything
		_CloseGS CloseParms		; do the close call
		_SetLevelGS GetLevelParms	; restore level
exit
		rts

		endwith
		endp

;------------------------------------------------------------
; Set_Boot_Vol
;
; Set the name of the boot volume to the name of the user
; volume.
;------------------------------------------------------------
set_boot_vol	proc
		with	dp
		import	(SetStarParms,SysResPath):code
		import	(GetLevelParms,SetLevelParms):code
		
		jsl	$E100A8			; GS/OS
		dc.w	$2033			; FST specific
		dc.l	SetStarParms		; pointer to parm list
		
;		pei	myuserid
;		_ResourceStartup
		
		_GetLevelGS GetLevelParms	; get the current open file level
		_SetLevelGS SetLevelParms	; set to system level=0

		pha				; space for resource file ID
		pea	$0001			; request read only
		pea	$0000			; no resource map in memory
		pea	$0000
		pea	$0000			; NIL => use SYS.RESOURCES
		pea	$0000
		_OpenResourceFile
		pla				; get resource file ID

		_SetLevelGS GetLevelParms	; restore level
		
;		_ResourceShutdown

		rts
		
		endwith
		endp

;------------------------------------------------------------
; Message Center routines
; get_flags - get message and set up booting flags
; set_booted - set message flag that we've booted before
;------------------------------------------------------------

;------------------------------------------------------------
; The data in the message is a word, formatted as follows:
; bit 15	Set if already booted (don't do first time stuff)
; bit 14	Set if QuickLogoff desired
; bit 13	Set if we got launched after logoff/logon
; bits 12..0	<unused, should be clear>
;
; Bit	Bit
; 15	13	Meaning
; ---	---	-------
;  0	 0	The OS was just booted for the first time.  Must
;		do Logon (if we booted locally) and load startup files
;		and DAs.  Set Bit 15.  Launch app given in ATINIT.
;		STAY ON QUIT STACK.
;
;  0	 1	Invalid combination.
;
;  1	 0	User's application is quitting back to us.  If user
;		does logoff/logon, set bit 13 and launch START from
;		new volume.  DON'T STAY ON QUIT STACK.
;
;  1	 1	We just got launched because new user logged on.
;		Launch application given in ATINIT.
;		STAY ON QUIT STACK.
;------------------------------------------------------------


get_flags	proc
		with	dp

		stz	bootflag
		stz	quickflag
		stz	newvolflag
		
		pea	getMessage		; want to get the message
		pea	MyMsgType		; my message ID
		pei	msghandle+2
		pei	msghandle
		_MessageCenter
		
		lda	[msghandle]		; deref handle to message
		sta	msgptr
		ldy	#2
		lda	[msghandle],y
		sta	msgptr+2
		
		ldy	#tMessage.data
		bcc	@ok			; don't use defaults
		lda	#$0000
		sta	[msgptr],y
@ok
		lda	[msgptr],y

		eor	#$8000			; default = booting
		asl	a
		ror	bootflag
		asl	a
		ror	quickflag
		asl	a
		ror	newvolflag
		
		rts

		endwith				; with dp
		endp

set_booted	proc
		with	dp

		jsr	get_flags		; make sure I've got quicklogoff flag
		
		ldy	#tMessage.data
		lda	[msgptr],y		; get message data
		ora	#$8000			; set already booted flag
		and	#$DFFF			; clear new boot vol flag
		sta	[msgptr],y
		
		pea	addMessage		; want to add new message
		pea	MyMsgType		; my message ID
		pei	msghandle+2
		pei	msghandle
		_MessageCenter
		rts
		
		endwith				; with dp
		endp

set_newvol	proc
		with	dp

		jsr	get_flags		; make sure I've got quicklogoff flag
		
		ldy	#tMessage.data
		lda	[msgptr],y		; get message data
		ora	#$2000			; set new boot vol flag
		sta	[msgptr],y
		
		pea	addMessage		; want to add new message
		pea	MyMsgType		; my message ID
		pei	msghandle+2
		pei	msghandle
		_MessageCenter
		rts
		
		endwith				; with dp
		endp

;------------------------------------------------------------
; Check_Mail
; See if there is anything in the user's mail folder.  If
; anything is found, put up a dialog.
;------------------------------------------------------------
check_mail	proc
		with	dp

		import	OpenParms:tOpen
		import	CloseParms:tClose
		import	GetDir:tGetDirEntry
		
		import	(set_prefix,ErrorHandler):code
		import	MailPath:code
		
		jsr	set_prefix		; set prefix 9 to user's folder
		
		stz	mailflag		; assume no mail
		
		lda	#<MailPath
		sta	OpenParms.path		; make sure path is for Mail
		lda	#^MailPath
		sta	OpenParms.path+2
		_OpenGS	OpenParms
		bcs	nomail

		lda	OpenParms.refnum
		sta	GetDir.refnum		; copy refnum for GetDirEntry
		sta	CloseParms.refnum	; and for Close
		stz	GetDir.base		; Base = Displacement = 0
		stz	GetDir.disp
		
		_GetDirEntryGS GetDir
		bcs	nomail2
		
		lda	GetDir.entry_num	; anything in the mail folder?
		beq	nomail2			; no, so no mail present
		dec	mailflag		; yes, mail was there
nomail2
		_CloseGS CloseParms
		bit	mailflag		; was there mail?
		bpl	nomail			; no, so no message
		
		ldx	#1
		jsr	ErrorHandler		; tell user that there is mail
nomail
		rts
		
		endwith				; with dp
		endp

;------------------------------------------------------------
; test_file
; Does a GetFileInfo on a file to make sure it exists and is
; a file (not a directory).  On entry, a pointer to the pathname
; (a PString) is passed in A,X (A high, X low).
;------------------------------------------------------------
test_file	proc
		import	GetFInfoParms
		
		stx	GetFInfoParms	; set up pointer to path
		sta	GetFInfoParms+2
		
		jsl	$E100A8		; GS/OS entry
		dc.w	$0006		; class 0 GetFileInfo
		dc.l	GetFInfoParms
		
		bcs	exit		; return if error
		
		lda	GetFInfoParms+6	; get file type
		cmp	#$000F		; directory?
		beq	errexit
		
		clc			; a file exists
		bcc	exit

errexit
		sec
exit
		rts
		
		endp


;------------------------------------------------------------
; Load_Files
; Load setup and desk accessory files
;------------------------------------------------------------
load_files	proc
		with	dp
		
		import	GetDir:tGetDirEntry
		import	OpenParms:tOpen
		import	CloseParms:tClose
		import	SetupPath:code
		import	LoadPath:code
		import	temp_name:code
		import	set_prefix:code
		import	ErrorHandler:code
		
		jsr	set_prefix	; set prefix 9 to user's folder

;------------------------------------------------------------
; Start scanning the directory for Setups and DAs
;------------------------------------------------------------
		stz	GetDir.disp		; last entry was 0
		stz	GetDir.refnum		; directory not open yet
		stz	GetDir.base		; base = absolute
		
loop
		inc	GetDir.disp		; go to next entry
		jsr	open_setup		; open the directory
		bcs	done			; any error, abort

		_GetDirEntryGS GetDir		; get the entry
		bcs	close			; any error, close and exit
		
		lda	GetDir.aux_type		; is high bit of auxtype set?
		bmi	loop			; yes, so skip this file
		
		lda	GetDir.file_type	; what kind of file is it?
		
		cmp	#NDA_type		; is it an NDA?
		bne	not_NDA
		jsr	Load_NDA		; Load the NDA
		bra	loop			; go to next file
not_NDA
		cmp	#CDA_type
		bne	not_CDA
		jsr	Load_CDA
		bra	loop
not_CDA
		cmp	#SETUP_type
		bne	not_SETUP
		jsr	Load_SETUP
		bra	loop
not_SETUP
		cmp	#TEMP_type
		bne	not_TEMP
		jsr	Load_TEMP
		bra	loop
not_TEMP
		bra	loop			; other type, do next file
close
		jsr	close_setup
done
		rts
		
;------------------------------------------------------------
; Open "9:Setup"
;------------------------------------------------------------
open_setup
		lda	GetDir.refnum		; is it already open?
		bne	@ok			; yes, so we're ok
		lda	#<SetupPath
		sta	OpenParms.path
		lda	#^SetupPath
		sta	OpenParms.path+2
		
		_OpenGS	OpenParms
		bcs	@exit			; if error, skip scan

		lda	OpenParms.refnum	; get file's refnum
		sta	GetDir.refnum		; for use in GetDirEntry
@ok
		clc				; no error
@exit
		rts

;------------------------------------------------------------
; Close "9:Setup"
;------------------------------------------------------------
close_setup
		lda	GetDir.refnum		; get directory's refnum
		sta	CloseParms.refnum	; and use it for closing
		_CloseGS CloseParms		; do the close call
		stz	GetDir.refnum		; mark it as closed
		rts

;------------------------------------------------------------
; Load a CDA
;------------------------------------------------------------
Load_CDA
		lda	#$5000			; DA's memory manager type
		jsr	FetchFile		; load file into memory
		bcs	@exit			; ignore errors
		phy				; push handle of DA
		phx
		_InstallCDA			; install that puppy
@exit
		rts

;------------------------------------------------------------
; Load an NDA
;------------------------------------------------------------
Load_NDA
		lda	#$5000			; DA's memory manager type
		jsr	FetchFile		; load file into memory
		bcs	@exit			; ignore errors
		phy				; push handle of DA
		phx
		_InstallNDA			; install that puppy
@exit
		rts

;------------------------------------------------------------
; Load a permanent setup file
;------------------------------------------------------------
Load_SETUP
		jsr	ExecFile		; load and run the setup
		bcs	@exit			; abort if couldn't load
		tya				; get "unload me" flag in A
		lsr	a			; was bit 0 set?
		bcc	@exit			; no, so don't unload
		pha				; room for result
		pei	LoadMemID		; push MM ID of file
		pea	0
		_UserShutDown
		pla				; remove user ID
@exit
		rts

;------------------------------------------------------------
; Load a temporary setup file
;------------------------------------------------------------
Load_TEMP
		jsr	ExecFile		; load and run setup
		bcs	@exit			; abort if couldn't load
		pha				; result space
		pei	LoadMemID		; push MM ID file used
		pea	0
		_UserShutDown
		pla				; remove user ID
@exit
		rts

;------------------------------------------------------------
; Do InitialLoad on file
;------------------------------------------------------------
FetchFile
		pha				; save requested user ID
;
; Create the pathname SetupName":"temp_name to be used for the
; initial load call.
;
		sep	#$20			; short A for chars
		longa	off
		
		ldy	#0
@loop1
		lda	SetupPath+2,y
		sta	LoadPath+2,y		; copy byte of "9:Setup"
		iny
		cpy	SetupPath		; copied all of "9:Setup"?
		bne	@loop1
		
		lda	#':'			; colon to separate
		sta	LoadPath+2,y		; put colon in path
		iny				; bump path pointer
		
		ldx	#0			; start of filename
@loop2
		lda	temp_name+4,x		; get filename byte
		sta	LoadPath+2,y		; copy to path
		iny
		inx
		cpx	temp_name+2		; copied all of filename?
		bne	@loop2			; if more to go, loop
		
		sty	LoadPath		; save length of combined path
		rep	#$20			; back to full native
		longa	on

;
; Have the loader load the file in for me
;
		pla				; recover user ID type
		pha				; push 5 words of space
		pha
		pha
		pha
		pha
		pha				; push user ID type (in A)
		pea	LoadPath>>16
		pea	LoadPath
		pea	1			; no special memory
		pea	1			; input type = class 1 path
		_InitialLoad2
		pla
		sta	LoadMemID		; save loader's mem ID for file
		plx
		ply
		stx	LoadAddr		; save load address
		sty	LoadAddr+2
		pla
		sta	ZPStart			; save start of DP/Stack segment
		pla
		sta	ZPSize			; save size of DP/Stack segment
		bcc	@ok			; continue if no error
		ldx	#4			; can't load a file
		jsr	ErrorHandler
		sec
		bcs	@exit
@ok
		pha
		pha				; room for handle
		phy				; push load address
		phx
		_FindHandle
		plx
		ply
		stx	LoadHandle		; save handle of file
		sty	LoadHandle+2
@exit
		rts

;------------------------------------------------------------
; Execute a permanent or temporary setup file.
;
; A word of zero is pushed just before the JSL.  This word
; can be modified by the setup file.  After the JSL, this
; word is returned in Y.
;------------------------------------------------------------
ExecFile
		jsr	close_setup		; directory must be closed
		lda	#$A000			; MM type for setups
		jsr	FetchFile		; try to load it
		bcs	@exit			; abort if error
		jsr	save_zp			; save off my direct page
		lda	LoadAddr		; get load address
		sta	TheJML+1		; modify jump address
		lda	LoadAddr+2
		sta	TheJML+3
		phd				; save direct page register
		tsx				; save stack pointer in X
		lda	ZPStart			; any DP/Stack?
		beq	@def			; no, use defaults
		tcd				; set up new DP
		clc
		adc	ZPSize			; get end of segment
		dea				; minus 1 byte is last byte
		tcs				; set new stack pointer
@def
		phx				; save old stack pointer
		phb				; save bank
		lda	LoadMemID		; pass user ID in A
		ldx	#0			; X = Y = 0
		txy
		phy				; push "unload me" word of zeroes
		jsl	TheJML			; call the setup
		ply				; recover "unload me" flag
		plb				; restore bank
		plx				; restore stack
		txs
		pld				; restore D
		jsr	rest_zp			; Note: Y not modified!!!
		clc				; no error
@exit
		rts
TheJML		jml	0			; used to jump to setups
		dc.b	0			; extra byte overwritten

;------------------------------------------------------------
; Save off direct page variables
;------------------------------------------------------------
save_zp
		ldx	#savesize
@loop
		lda	0,x
		sta	zp_store,x
		dex
		dex
		bpl	@loop
		rts

;------------------------------------------------------------
; Restore direct page variables.
; NOTE: Y must NOT be modified by this routine!!!
;------------------------------------------------------------
rest_zp
		ldx	#savesize
@loop
		lda	zp_store,x
		sta	0,x
		dex
		dex
		bpl	@loop
		rts
		
zp_store
		ds	savesize+2

		endwith
		endp
		
;------------------------------------------------------------
; Set_Prefix
; Set prefix 9 to user's folder
;------------------------------------------------------------
set_prefix	proc
		jsl	$E100A8		; GS/OS call
		dc.w	$2033		; class 1 FST_Specific
		dc.l	SpecParms	; pointer to parameter list
		
		lda	SpecPathPtr	; copy path pointer to SetPrefix
		sta	spPath
		lda	SpecPathPtr+2
		sta	spPath+2
		
		_SetPrefixGS spParms	; prefix 9 = ":vol:Users:user"

		rts


SpecParms
		dc.w	3		; pcount = 3
		dc.w	$000D		; FST ID
		dc.w	8		; command = get_user_path
SpecPathPtr	dc.l	0		; returned path pointer

spParms
		dc.w	2
		dc.w	9		; set prefix 9
spPath		dc.l	SpecPathPtr	; path to set

		endp
		
;------------------------------------------------------------
; Launch_app
; Launch user's startup application.  This routine only
; returns on a fatal error.
;------------------------------------------------------------
launch_app	proc
		with	dp

		import	OpenParms:tOpen
		import	CloseParms:tClose
		import	ReadParms:tRead
		import	SMarkParms:tSetMark
		import	ConfigInfo:tATINIT
		import	PMSetPrinter:data
		
		import	ErrorHandler:code
		import	ATInitPath:code
		import	(SetPfxParms,LaunchParms):code
		
;------------------------------------------------------------
; Open user's ATINIT file to see which app to launch
;------------------------------------------------------------
		jsr	set_prefix		; set prefix 9 to user's folder
		
		lda	#<ATInitPath
		sta	OpenParms.path		; make sure we open ATINIT
		lda	#^ATInitPath
		sta	OpenParms.path+2
		_OpenGS	OpenParms
		bcc	@opened
		ldx	#2			; 2 = bad ATINIT
		jsr	ErrorHandler
		rts
@opened

		lda	OpenParms.refnum	; get file's refnum
		sta	SMarkParms.refnum	; for use in SetMark
		sta	ReadParms.refnum	; and Read
		sta	CloseParms.refnum	; and Close
		
		lda	#1
		sta	SMarkParms.base
		lda	#tATINIT.size		; size of ATINIT file
		sta	SMarkParms.disp
		
		_SetMarkGS SMarkParms		; set Mark relative to EOF
		bcc	@markset
		ldx	#2
		jsr	ErrorHandler
		bra	launch_close
@markset
		
		lda	#tATINIT.size
		sta	ReadParms.req_cnt
		lda	#<ConfigInfo
		sta	ReadParms.buf_addr
		lda	#^ConfigInfo
		sta	ReadParms.buf_addr+2
		
		_ReadGS	ReadParms		; read ATINIT to buffer
		bcc	@read
		ldx	#2
		jsr	ErrorHandler
		bra	launch_close
@read
;
; Should really check to see that we got as much as we asked for
;
		_CloseGS CloseParms
		
;
; Set this user's default printer
;
		sep	#$20			; 8-bit A to copy byte
		longa	off
		lda	ConfigInfo.PFlags	; get printer flags from ATINIT
		and	#$FE			; clear the "return printer" bit
		sta	PMSetPrinter+8		; copy into PMSetPrinter parms
		rep	#$20			; back to full native
		longa	on
		ldx	#<PMSetPrinter		; point to parameter list
		ldy	#^PMSetPrinter
		jsl	$E11014			; make the AppleTalk call

;
; Set the default prefix
;
		_Set_Prefix SetPfxParms		; Set prefix on launch
		
		pei	myuserid
		_MMShutDown			; shut down MM before I quit

		ldx	#<ConfigInfo.Path
		lda	#^ConfigInfo.Path
		jsr	test_file		; see if file exists
		bcs	launch_err		; no, so put up an error alert

		_Quit	LaunchParms		; quit to startup application

launch_err
		ldx	#2			; 2 = bad configuration
		jsr	ErrorHandler
		rts
launch_close
		_CloseGS CloseParms
		rts

		endwith				; with dp
		endp


launch_start	proc	export
		import	(ToSTARTParms,STARTPath,ErrorHandler):code
		
		jsr	set_newvol		; going to launch from new volume
		
		pei	dp.myuserid
		_MMShutDown			; shut down MM before I quit
		
		ldx	#<STARTPath
		lda	#^STARTPath
		jsr	test_file		; see if it exists
		bcs	err
		
		_Quit	ToSTARTParms		; launch *:System:START
err
		ldx	#6			; 6 = couldn't launch *:System:START
		jsr	ErrorHandler
		rts
		
		endp
		
MailPath	proc
		dc.w	End-Start
Start		dc.b	'9:Mail'
End
		endp

ATInitPath	proc
		dc.w	End-Start
Start		dc.b	'9:Setup:ATINIT'
End
		endp
		
SetupPath	proc
		dc.w	End-Start
Start		dc.b	'9:Setup'
End
		endp
		
SysResPath	proc
		dc.w	End-Start
Start		dc.b	'*:System:System.Setup:Sys.Resources'
End
		endp

STARTPath	proc
		dc.b	End-Start
Start		dc.b	'*:System:START'
End
		endp
		
ConfigInfo	ds	tATINIT

SetPfxParms	proc
		dc.w	0			; prefix #0
		dc.l	ConfigInfo.prefix	; prefix to set
		endp
		
LaunchParms	proc
		dc.l	ConfigInfo.Path		; app to launch
		dc.w	$C000			; restartable, stack me
		endp


ToSTARTParms	proc
		dc.l	STARTPath		; app to launch
		dc.w	$4000			; restartable, don't stack me
		endp


GSMess3		proc
		dc.b	End-Start
Start
		dc.b	CR
		dc.b	'  AppleShare has not been installed or not enabled.',CR
		dc.b	'  Please enable AppleTalk through the Control Panel',CR
		dc.b	'  and install AppleShare.  Press Return to reboot.',CR
End
		endp

GSMess4		proc
		dc.b	End-Start
Start
		dc.b	CR
		dc.b	'  An error occurred while loading the file:',CR
End
		endp

GSMess5		proc
		dc.b	End-Start
Start
		dc.b	CR
		dc.b	'  Starting AppleShare Startup',CR
End
		endp


GSMess6		proc
		dc.b	End-Start
Start
		dc.b	CR
		dc.b	'  The AppleShare Startup program could not be run.',CR
		dc.b	'  Please make sure the server has been properly set',CR
		dc.b	'  up for Apple IIGS network startup.',CR
End
		endp


ErrorHandler	proc
		import	temp_name:code
		
		ldy	#$80		; signal alert only
ErrorHandler2
		txa
		asl	a
		tax
		lda	GSMessTbl,x
		sta	MessPtr
		lda	FilProcTbl,x
		sta	FilterProc
		sep	#$30
		longa	off
		longi	off
		sty	MessOpt
		Message	MessParms
		rep	#$30
		longa	on
		longi	on
		and	#$FF		; mask off key pressed
		rts

GSMessTbl
		dc.w	Mess0		; 0 = unknown error
		dc.w	Mess20		; 1 = you have mail
		dc.w	Mess15		; 2 = bad startup configuration
		dc.w	GSMess3		; 3 = AppleTalk not present
		dc.w	GSMess4		; 4 = Can't load file:
		dc.w	GSMess5		; 5 = Starting...
		dc.w	GSMess6		; 6 = Couldn't launch *:System:START

FilProcTbl
		dc.w	0		; 0 = unknown error
		dc.w	0		; 1 = you have mail
		dc.w	0		; 2 = bad startup configuration
		dc.w	0		; 3 = AppleTalk not present
		dc.w	LoadPathProc	; 4 = Can't load file:
		dc.w	0		; 5 = Starting...
		dc.w	0		; 6 = Couldn't launch *:System:START

LoadPathProc
		longa	off
		longi	off
		GetXY
		ldx	#2
		lda	#CD_GotoXY
		jsr	ConsDrvr
		lda	temp_name+3	; turn G-String into P-String
		pha
		lda	temp_name+2
		sta	temp_name+3
		ldx	#temp_name+3
		ldy	#>temp_name+3
		WritePointer
		pla
		sta	temp_name+3	; restore G-String
		rts
		longa	on
		longi	on

		endp

Title		proc
		dc.b	'  ',MTON,'A',MTOFF
		dc.b	' AppleShare Startup V1.0.2 '
		dc.b	Inv,CLEOL,Norm,CR,$00
		
		endp

MenuPrompt	proc
		dc.b	CPOS,1,19	; GOTOXY(1,19)
		dc.b	'Select:',MTON,'K J',MTOFF
		dc.b	CPOS,40,19
		dc.b	'Accept:',MTON,'M',MTOFF
		dc.b	0
		
		endp

LogoffStr	str	'Log off from file servers'
RunStr		str	'Return to startup application'
BootStr		str	'Shut Down'

MenuList	proc
		dc.w	LogoffStr	; "Log off..."
		dc.w	RunStr		; "Re-Run ..."
		dc.w	BootStr		; "Shutdown"
		endp
		
MessRect	proc
		DC.B	10	;x1
		DC.B	9	;y1
		DC.B	70	;x2
		DC.B	15	;y2
		endp
		
moment_str	proc
		dc.b	CR,CR,'  One moment please...',$00
		endp

temp_name	proc
		dc.w	35
		ds.b	33
		endp

LoadPath	proc
		ds.b	40		; room for <len>9:Setup:<31chars>
		endp
		
InfoParms	proc
		dc.w	8
		dc.w	0		; device #
		dc.l	temp_name
		dc.w	0		; characteristics
		dc.l	0		; total blocks
		dc.w	0		; slot
		dc.w	0		; unit
		dc.w	0		; version
		dc.w	0		; device type
		endp

EjectParms	proc
		dc.w	5
		dc.w	0		; device #
		dc.w	2		; eject code
		dc.l	EjectParms	; pointer to control list (unused)
		dc.l	0		; request count
		dc.l	0		; transfer count
		endp

OpenParms	proc
		dc.w	6		; up through filetype
		dc.w	0		; refnum
		dc.l	0		; pathname pointer
		dc.w	1		; request access = read only
		dc.w	0		; resource number
		dc.w	0		; returned: access word
		dc.w	0		; returned: filetype
		endp

GetDir		proc
		dc.w	13		; through auxtype
		dc.w	0		; refnum
		dc.w	0		; flags
		dc.w	0		; base
		dc.w	0		; displacement
		dc.l	temp_name	; pointer to name
		dc.w	0		; entry number
		dc.w	0		; filetype
		dc.l	0		; EOF
		dc.l	0		; blocks used
		dc.l	0,0		; create date/time
		dc.l	0,0		; mod date/time
		dc.w	0		; access
		dc.l	0		; auxtype
		endp

CloseParms	proc
		dc.w	1
		dc.w	0		; refnum
		endp

ReadParms	proc
		dc.w	5
		dc.w	0		; refnum
		dc.l	0		; data buffer
		dc.l	0		; request count
		dc.l	0		; transfer count
		dc.w	0		; do not cache blocks
		endp

SMarkParms	proc
		dc.w	3
		dc.w	0		; refnum
		dc.w	0		; base
		dc.l	0		; displacement
		endp

FSTInfoParms	proc
		dc.w	2
		dc.w	0		; fst_num
		dc.w	0		; file_sys_id
		endp

GetLevelParms	proc
		dc.w	2
		dc.w	0		; level
		dc.w	0		; user/system flag
		endp

SetLevelParms	proc
		dc.w	2
		dc.w	0		; level 0 (lowest)
		dc.w	0		; set system level
		endp

SetStarParms	proc
		dc.w	2
		dc.w	$000D		; AppleShare FST ID
		dc.w	$4D44		; set boot prefix command
		dc.w	0		; GS/OS direct page address
		endp

GetFInfoParms	record
		dc.l	0		; pathname pointer goes here
		dc.w	0		; access
		dc.w	0		; filetype
		dc.l	0		; auxtype
		dc.w	0		; storage type
		dc.l	0		; create date/time
		dc.l	0		; mod date/time
		dc.l	0		; blocks used
		endr

PMSetPrinter	record
		dc.b	0,$28		; sync. PMSetPrinter
		dc.w	0		; result
		dc.l	ConfigInfo.PEntity
		dc.b	0		; printer flags
		dc.w	2		; flush after 1/2 second
		dc.w	30*4		; timeout at 30 seconds
		dc.w	20		; 20 buffers
		endr
		
		end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/Start/Start.m b/IIGS.601.SRC/GS.OS/NetBoot/Start/Start.m
new file mode 100644
index 0000000..9577169
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/NetBoot/Start/Start.m
@@ -0,0 +1 @@
+;------------------------------------------------------------
; Start.m
; This file contains macros and data structures used by Start
;------------------------------------------------------------

tMessage	record	0
next		ds.l	1		; handle to next message
type		ds.w	1		; type (ID) of message
data		ds.w	1		; message data
size
		endr

tDateTime	record	0
sec		ds.b	1
min		ds.b	1
hour		ds.b	1
year		ds.b	1
day		ds.b	1
month		ds.b	1
		ds.b	1
weekday		ds.b	1
		endr

tControl	record	0
pcount		ds.w	1		; pCount (min = 5)
dev_num		ds.w	1		; device number
ctl_code	ds.w	1		; control code
ctl_list	ds.l	1		; pointer to control list
req_cnt		ds.l	1		; request count
trans_cnt	ds.l	1		; transfer count
		endr

tOpen		record	0
pcount		ds.w	1		; pCount (min = 2)
refnum		ds.w	1		; open file refnum
path		ds.l	1		; pathname pointer
req_acc		ds.w	1		; requested access
res_num		ds.w	1		; resource number
access		ds.w	1		; file's access word
file_type	ds.w	1		; file's file type
aux_type	ds.l	1		; file's aux type
stor_type	ds.w	1		; file's storage type
cr_date		ds	tDateTime	; file's create date/time
mod_date	ds	tDateTime	; file's modification date/time
opt_list	ds.l	1		; option list pointer
data_eof	ds.l	1		; data fork EOF
data_blks	ds.l	1		; data fork blocks used
res_eof		ds.l	1		; resource fork EOF
res_blks	ds.l	1		; resource fork blocks used
		endr

tRead		record	0
pcount		ds.w	1		; pCount (min = 4)
refnum		ds.w	1		; open file refnum
buf_addr	ds.l	1		; data buffer address
req_cnt		ds.l	1		; requested amount
trans_cnt	ds.l	1		; actual transfer amount
priority	ds.w	1		; cache priority
		endr

tClose		record	0
pcount		ds.w	1		; pCount (min = 1)
refnum		ds.w	1		; open file refnum
		endr

tSetMark	record	0
pcount		ds.w	1		; pCount (min = 3)
refnum		ds.w	1		; open file refnum
base		ds.w	1		; base for displacement
disp		ds.l	1		; displacement (relative to base)
		endr

tGetDirEntry	record	0
pcount		ds.w	1		; pCount (min = 5)
refnum		ds.w	1		; open file refnum
flags		ds.w	1		; high bit set if extended file
base		ds.w	1		; base of displacement
disp		ds.w	1		; displacement (relative to base)
name		ds.l	1		; pointer to name buffer
entry_num	ds.w	1		; entry number in directory
file_type	ds.w	1		; file's file type
data_eof	ds.l	1		; data fork EOF
data_blks	ds.l	1		; data fork blocks used
cr_date		ds	tDateTime	; file's create date/time
mod_date	ds	tDateTime	; file's modified date/time
access		ds.w	1		; file's access word
aux_type	ds.l	1		; file's aux type
file_sys_id	ds.w	1		; file system type
opt_list	ds.l	1		; pointer to option list
res_eof		ds.l	1		; resource fork EOF
res_blks	ds.l	1		; resource fork blocks used
		endr

tDInfo		record	0
pcount		ds.w	1		; pCount (min =2)
dev_num		ds.w	1		; device number
dev_name	ds.l	1		; pointer to device name buffer
char		ds.w	1		; device characteristics
tot_blks	ds.l	1		; total blocks
slot_num	ds.w	1		; device slot number
unit_num	ds.w	1		; device unit number
version		ds.w	1		; version of driver
dev_type	ds.w	1		; type of device
head_link	ds.w	1		; device number of head of linked list
next_link	ds.w	1		; device number of next device in list
		endr

tFSTInfo	record	0
pcount		ds.w	1		; pCount (min = 2)
fst_num		ds.w	1		; FST numbers 1, 2, 3, ...
file_sys_id	ds.w	1		; file system number ($0D for AppleShare)
version		ds.w	1		; version of FST
attributes	ds.w	1		; FST attributes
block_size	ds.w	1		; size of blocks in bytes
max_vol_size	ds.l	1		; maximum volume size in blocks
max_file_size	ds.l	1		; maximum file size in bytes
		endr

tLevel		record	0
pcount		ds.w	1		; pcount (min=1)
level		ds.w	1		; user level
userflag	ds.w	1		; $8000 set if user level
		endr
		
tFSTSetStar	record	0
pcount		ds.w	1		; pcount (min=3)
fst_id		ds.w	1		; FST ID (=$0D for AppleShare)
callnum		ds.w	1		; FST specific call # ($4D44)
dp		ds.w	1		; result: GS/OS direct page address
		endr
		
; This is the format of the ATINIT file:
tATINIT		record	0
		ds.b	1		; RESERVED, also used to check access
					; to startup application
		ds.b	6		; path volID and dirID
Path		ds.b	65		; user's startup application
		ds.b	6		; prefix volID and dirID
Prefix		ds.b	65		; user's startup prefix
		ds.b	33		; user name, unused here
PFlags		ds.b	1		; Printer flags at startup
PEntity		ds.b	99		; printer tuple
size
		endr

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/Start/StartLog.aii b/IIGS.601.SRC/GS.OS/NetBoot/Start/StartLog.aii
new file mode 100644
index 0000000..e701795
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/NetBoot/Start/StartLog.aii
@@ -0,0 +1 @@
+;------------------------------------------------------------
; StartLog.aii
;
; This is the version of Logon used by the GS/OS Start program
; used in network booting.
;
;------------------------------------------------------------
		INCLUDE	'cons.macros'
		include	'Console.equates'

; macro to make an AppleTalk call for P16
		macro
&lab		ATCall	&Parm
&lab		phx			; X and Y must be preserved
		phy
		rep	#$30
		longa	on
		longi	on
		ldx	#&parm
		ldy	#^&parm
		jsl	$E11014		; Ram Dispatch
		sep	#$30
		longa	off
		longi	off
		ply
		plx
		mend

**************************************************
* OSFlag indicates the application type and is defined
* as follows:
*
* ProDOS 16 application = 64
* ProDOS 8 application = 0
* ProDOS 16 Boot Blocks = 192
* ProDOS 8 Boot Blocks = 128
*
**************************************************
OSFlag		equ	192		;ProDOS 16 booting	
NBPBuffLen	equ	8192
AFPVersion	equ	$0200		;AFP version 2.0

LoaderLen	equ	0
CardPtr		equ	$FE

; These buffers must be defined storage	for P16.  In P8, they would be equates
; to areas between $800 and $2000.

LogonRec	Record	0
ReplyBuff	DS.B	768
ArrayBuff	DS.B	512
WindowBuff	DS.B	512
MySelArray	DS.B	256
FSName		DS.B	64
NameBuffer	DS.B	64
PassBuffer	DS.B	16
NewPassWrd	DS.B	16
LogPckt		DS.B	128
Prefix		DS.B	128
SessBuff	DS.B	1024
CompSelArray	DS.B	256
NBPBuffer	ds.b	NBPBuffLen
		EndR

StartLogon	PROC export

		export	(InitParm,FrameParms1,MainWindow):code
		export	(TitLine,SelXPos,SelYPos):code
		export	(Increment,Selindex,StgArrayPtr):code
		export	(ArrayCnt,ListOptByte,ListParms):code
		export	(RestoreBox,MessParms,MessPtr):code
		export	(FilterProc,MessOpt):code
		export	(MessageWind,MainWindow):code
		
		export	(Mess0,Mess20,Mess15):code
		
		import	ZPLabel
		import	ConsDrvr
		import	LogonData:LogonRec
		with	LogonData
		
		sep	#$30
		longa	off
		longi	off
		lda	#$C0
		sta	InitParm
		InitConsole
		CursorOff
		lda	#1		; tell Logon we're using GS/OS
		jsr	Logon
		rep	#$30
		longa	on
		longi	on
		
		rts
		
		INCLUDE	'logon.main'
		INCLUDE	'icon.aii'
		ENDP
		
ZPLabel		proc
		endp

LogonData	ds	LogonRec
		end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/Stub/Makefile b/IIGS.601.SRC/GS.OS/NetBoot/Stub/Makefile
new file mode 100644
index 0000000..5ac7ce1
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/NetBoot/Stub/Makefile
@@ -0,0 +1 @@
+#
# stub (FST stub used in booting over the network).
#

stub		Ä	stub.aii.obj
	linkiigs -o stub stub.aii.obj
	makebiniigs -org $2000 stub

stub.aii.obj	Ä	stub.aii
	asmiigs -l stub.aii
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/Stub/Stub.aii b/IIGS.601.SRC/GS.OS/NetBoot/Stub/Stub.aii
new file mode 100644
index 0000000..ef8ec3c
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/NetBoot/Stub/Stub.aii
@@ -0,0 +1 @@
+;------------------------------------------------------------
; Stub.aii
;
; This is the FST stub used when booting GS/OS over the net.
; Written by Mark Day.
;------------------------------------------------------------

		entry	(startup,readinfile,getbootname):code
		entry	(getfstname,PutWord,PutPath):code
		entry	(StartCommand,SendCommand,ConvertError):code
		entry	(getbootinfo):code
		entry	(ListBuffer):data
		
RamDispatch	equ	$E11014			; native mode AppleTalk entry
CommandBuf	equ	$1000			; where SPCommand packet is built
ReplyBuf	equ	$1200			; where SPCommand reply data goes
BufferSize	equ	$1000			; size of ListSessions buffer
priority_vec	equ	$E1103A			; AppleTalk priority vector

afpCloseFork	equ	4			; close an AFP fork
afpOpenFork	equ	26			; open a fork of an AFP file
afpRead		equ	27			; read from fork

dp		record	0
nameptr		ds.l	1			; buffer pointer to return names
listptr		ds.l	1			; pointer for ListSessions
bufptr		ds.l	1			; pointer to buffer for read
mark		ds.l	1			; where in file to read from
forkrefnum	ds.l	1			; AFP's open fork refnum
cmd_index	ds.w	1			; index into command packet
math_temp	ds.l	1
		endr

header		proc
		entry	aux_value
		
		jmp	startup
		nop
		
		dc.w	readinfile
		dc.w	getbootname
		dc.w	getfstname
		dc.w	startup-header		; size of permanent code
aux_value	dc.w	0

		endp

bootvolname	ds	34			; room for 32 char G-String
SessRefnum	dc.w	0			; Boot volume's SessRefnum
VolID		dc.w	0			; Boot volume's VolID

;------------------------------------------------------------
; This is the parameter list for the SPCommand call
; which is used to send out an AFP command.
;------------------------------------------------------------
SPCommand	record
		dc.b	0,$20		; sync, call number
Result		dc.w	0
		dc.l	0		; completion routine
SRef		dc.b	0		; session reference #
ComLen		dc.w	0		; command block length
ComAddr		dc.l	CommandBuf	; command block address
RepBufLen	dc.w	0		; reply buffer length
RepAddr		dc.l	0		; reply buffer address
ComRes		dc.l	0		; result (from server)
RepLen		dc.w	0		; actual reply length
		endr

readinfile	proc
		with	dp
		
;------------------------------------------------------------
; Pull input parameters from stack
;------------------------------------------------------------
		lda	3,s			; get low word of buffer address
		sta	bufptr
		lda	5,s			; and high word
		sta	bufptr+2
		
		lda	7,s			; get low word of pathname pointer
		sta	nameptr
		lda	9,s
		sta	nameptr+2
		
		lda	1,s			; copy return address over last
		sta	9,s			; input parameter
		
		pla				; squeeze extra bytes from stack
		pla
		pla
		pla

;------------------------------------------------------------
; Do an FPOpenFork on the file
;------------------------------------------------------------
		lda	#afpOpenFork
		jsr	StartCommand
		
		lda	VolID			; put in VolID
		jsr	PutWord
		
		lda	#$0000			; DirID = 2
		jsr	PutWord
		lda	#$0200
		jsr	PutWord
		
		lda	#$0020			; ProDOS info
		jsr	PutWord			; in bitmap
		
		lda	#$2100			; read, deny write
		jsr	PutWord			; as access mode
		
		jsr	PutPath			; put path in packet

		jsr	SendCommand		; send out the command
		jsr	ConvertError
		bcc	@ok
		brl	exit
@ok
		
		lda	ReplyBuf+2		; get open fork refnum
		sta	forkrefnum
		
		lda	ReplyBuf+4		; get ProDOS filetype
		sta	3,s			; and return it
		lda	ReplyBuf+6		; get ProDOS auxtype (low)
		sta	5,s			; and return it
		
		stz	mark			; start from beginning of file
		stz	mark+2
		
;------------------------------------------------------------
; Do FPReads until we get an error (EOF error is OK)
;------------------------------------------------------------
read_loop
		lda	#afpRead		; start a Read command
		jsr	StartCommand
		
		lda	forkrefnum		; AFP open fork refnum
		jsr	PutWord
		
		lda	mark+2			; offset high word
		xba
		jsr	PutWord
		lda	mark			; offset low word
		xba
		jsr	PutWord
		
		lda	#0			; request $1200 bytes
		jsr	PutWord
		lda	#$0012			; $1200, byte-flipped
		jsr	PutWord
		
		lda	#0			; no newline stuff
		jsr	PutWord
		
		lda	bufptr			; reply directly to user buffer
		sta	SPCommand.RepAddr
		lda	bufptr+2
		sta	SPCommand.RepAddr+2
		
		jsr	SendCommand
		jsr	ConvertError		; turn into ProDOS error code
		bcc	@ok

		cmp	#$4C			; EOF?  If so, check transfer count
		bne	closeit			; not EOF, so return it
@ok
		clc				; move mark to end of reply
		lda	mark
		adc	SPCommand.RepLen
		sta	mark
		lda	mark+2
		adc	#0
		sta	mark+2

		clc				; point buffer past reply
		lda	bufptr
		adc	SPCommand.RepLen
		sta	bufptr
		lda	bufptr+2
		adc	#0
		sta	bufptr+2

		lda	SPCommand.ComRes+2	; what error did server return?
		beq	read_loop		; no error continues

		lda	#0			; no error
closeit
		pha
;------------------------------------------------------------
; Do an FPClose on the fork
;------------------------------------------------------------
		lda	#afpCloseFork
		jsr	StartCommand
		
		lda	forkrefnum		; fork refnum
		jsr	PutWord

		jsr	SendCommand
; Should NEVER get an error on that call

		pla				; restore error code
		cmp	#1			; set carry if error
		bcs	exit			; return if error
		
;------------------------------------------------------------
; Return EOF of file and go back to caller.
;------------------------------------------------------------
		lda	mark
		sta	7,s			; return EOF low word
		lda	mark+2
		sta	9,s			; return EOF high word
		
		clc				; no error
		lda	#0
exit
		rts

		endwith				; with dp
		endp


getbootname	proc
		with	dp

		lda	3,s			; get low word of buffer address
		sta	nameptr
		lda	5,s			; get high word
		sta	nameptr+2
		
		lda	1,s			; copy return address over last parameter
		sta	5,s
		pla				; remove space of long parameter from stack
		pla

		ldy	bootvolname		; get length of name
		iny				; plus 1 for last byte index
		sep	#$20			; 8 bit mode to mvoe chars
		longa	off
loop
		lda	bootvolname,y		; get a byte of the name
		sta	[nameptr],y		; put it where GLoader wants it
		dey
		bpl	loop			; index is 0..length+1
		
		rep	#$20			; back to full native
		longa	on
		
		clc				; never get an error on this routine
		lda	#0
		rts
		
		endwith				; with dp
		endp


;------------------------------------------------------------
; StartCommand initializes some values in SPCommand parameter
; list and puts the command number (in A) into the packet.
;------------------------------------------------------------
StartCommand	proc
		with	SPCommand

		ldy	SessRefnum		; fill in session refnum
		sty	SRef

		ldy	#$1200			; reply up to $1200 bytes
		sty	RepBufLen
		
		ldy	#<ReplyBuf		; reply in reply buffer
		sty	RepAddr
		ldy	#^ReplyBuf
		sty	RepAddr+2
		
		stz	dp.cmd_index		; start from the beginning
; fall through into PutWord

		endwith				; with SPCommand
		endp

;------------------------------------------------------------
; PutWord puts the word in A into the packet
;------------------------------------------------------------
PutWord		proc
		ldx	dp.cmd_index		; get index to packet
		sta	CommandBuf,x		; put word in
		inx				; bump pointer by 2 bytes
		inx
		stx	dp.cmd_index
		rts
		endp

;------------------------------------------------------------
; PutPath puts the G-String pointed to by nameptr into the
; command packet.
;------------------------------------------------------------
PutPath		proc
		with	dp

		lda	[nameptr]		; get length
		xba				; in second byte
		ora	#2			; path type is 2: long names
		jsr	PutWord

		lda	[nameptr]		; get length again
		ina				; plus 1 is last index
		ina				; plus 1 is stopping point
		sta	math_temp
		ldy	#2			; index to first char
		ldx	cmd_index		; index into packet

		sep	#$20			; 8-bit A for chars
		longa	off
loop
		lda	[nameptr],y
		cmp	#':'			; separator?
		bne	@stuff			; no, so put it in
		lda	#0			; separator becomes a NUL
@stuff
		sta	CommandBuf,x
		iny
		inx
		cpy	math_temp		; done yet?
		bne	loop

		stx	cmd_index		; save index back
		
		rep	#$20			; back to full native
		longa	on

		rts

		endwith				; with dp
		endp

;------------------------------------------------------------
; SendCommand does the actual SPCommand call
;------------------------------------------------------------
SendCommand	proc

		lda	dp.cmd_index		; length of command packet
		sta	SPCommand.ComLen
		
		ldx	#<SPCommand
		ldy	#^SPCommand
		jsl	RamDispatch		; do the SPCommand
		bcc	exit
		
		lda	#$2F			; assume device offline if ASP failed
exit
		rts
		
		endp


;------------------------------------------------------------
; ConvertError checks the AFP error code and returns the
; appropriate ProDOS error code.
;
; On entry, A = result from SPCommand call
;------------------------------------------------------------
ConvertError	proc

		bcs	done			; propagate ASP errors
		
		lda	SPCommand.ComRes+2	; get AFP error code
		beq	done			; return with no error?
		
		cmp	#$66EC			; file not found?
		bne	x1
		lda	#$46			; file not found!
		bra	done
x1
		cmp	#$6FEC			; EOF error
		bne	x2
		lda	#$4C			; EOF error
		bra	done
x2
		cmp	#$78EC			; access denied?
		bne	x3
		lda	#$4E			; access denied
		bra	done
x3
		lda	#$27			; I/O error for the rest
done
		cmp	#1			; set carry if error
		rts				; go back

		endp
;------------------------------------------------------------
; Temporary code starts here (code used only when booting,
; and not when switching).  The first routine MUST be
; "startup" since I use it to compute the size of the
; permanent code.
;------------------------------------------------------------

startup		proc
start_loc	equ	$6800			; where START.GS.OS is loaded
GLoader2	equ	$6803			; alternate entry for GLoader

;------------------------------------------------------------
; I already know that I'm running on a GS with rev 01 or
; later ROMs.  Do some simple initialization and load the
; file START.GS.OS from the boot volume.
;------------------------------------------------------------
		lda	#0
		tcd				; direct register = $0000
		pea	$0000
		plb
		plb				; bank register = $0000
		lda	#$01FF
		tcs				; stack register = $01FF
		
		lda	#$6B6B			; RTL RTL
		sta	priority_vec		; don't load primary AppleTalk drivers
		lda	#0
		sta	priority_vec+2
		
		jsr	getbootinfo		; find user volume
;------------------------------------------------------------
; Here is where error checking code would go.
;------------------------------------------------------------

		pha				; push 8 bytes for return values
		pha
		pha
		pha
		pea	start_path>>16		; push address of pathname
		pea	start_path
		pea	start_loc>>16		; push load address
		pea	start_loc
		jsr	readinfile		; go get the file
		bcc	got_file		; if no errors, continue
		pha				; push error code
		pea	NoStartGSOS>>16
		pea	NoStartGSOS		; push pointer to string
		ldx	#$1503			; SysFailMgr
		jsl	$E10000			; go do the fatal error
got_file
		pla				; ignore file type
		pla
		ldx	aux_value		; has it been set yet?
		bne	skip_aux		; yes, so use that value
		sta	aux_value		; save auxtype of file
skip_aux
		pla				; ignore EOF
		pla

;------------------------------------------------------------
; Now start up GS/OS.
;------------------------------------------------------------
		lda	#$F800			; bypass AppleTalk/SCC init, etc.
		jmp	GLoader2		; let GLoader do the rest

;------------------------------------------------------------
; Pathname of GLoader/GQuit
;------------------------------------------------------------
start_path	dc.w	path_end-path_begin	; it's a G-String
path_begin	dc.b	'SYSTEM:START.GS.OS'
path_end

NoStartGSOS
		dc.b	@end-@start
@start		dc.b	'Cannot load file Start.GS.OS',$0D
		dc.b	'Error=$'
@end
		endp

getfstname	proc
		with	dp

		lda	3,s			; get low word of buffer address
		sta	nameptr
		lda	5,s			; get high word
		sta	nameptr+2
		
		lda	1,s			; copy return address over last parameter
		sta	5,s
		pla				; remove space of long parameter from stack
		pla

		ldy	the_name		; get length of name
		iny				; plus 1 for last byte index
		sep	#$20			; 8 bit mode to mvoe chars
		longa	off
loop
		lda	the_name,y		; get a byte of the name
		sta	[nameptr],y		; put it where GLoader wants it
		dey
		bpl	loop			; index is 0..length+1
		
		rep	#$20			; back to full native
		longa	on
		
		clc				; never get an error on this routine
		lda	#0
		rts
		
the_name	dc.w	textend-textstart
textstart	dc.b	'AppleShare.FST'
textend
		endwith				; with dp
		endp


ListSessions	record
		dc.b	0			; synchronous only
		dc.b	$2F			; list sessions call number
Result		dc.w	0			; result code
BufLen		dc.w	BufferSize
BufPtr		dc.l	ListBuffer		; address of buffer
Entries		dc.b	0			; entries returned
		endr


;------------------------------------------------------------
; GetBootInfo is called by Startup to determine the name of
; the boot volume and to save off the SessRefnum and VolID.
;------------------------------------------------------------
getbootinfo	proc
		with	dp

		ldx	#<ListSessions		; do an FIListSessions call
		ldy	#^ListSessions
		jsl	RamDispatch
		bcs	no_vol			; return an error

		lda	ListSessions.Entries	; how many entries returned?
		and	#$00FF			; only a byte is valid
		beq	no_vol			; no entries, return an error
		tax				; put in X for counting

		lda	#<ListBuffer		; set up pointer to ListSessions buffer
		sta	listptr
		lda	#^ListBuffer
		sta	listptr+2

;------------------------------------------------------------
; Scan the buffer returned by ListSessions for a user volume.
;------------------------------------------------------------
loop		
		lda	[listptr]		; get session and slot/drive
		and	#$0100			; is it a user volume?
		bne	found_it		; yes, so go return it
		
		clc
		lda	listptr
		adc	#32			; size of session/volume record
		sta	listptr			; point to next entry in buffer
		lda	listptr+2
		adc	#0
		sta	listptr+2
		
		dex				; any more entries?
		bne	loop

;------------------------------------------------------------
; If we get here, we couldn't find a user volume.
;------------------------------------------------------------
no_vol
		sec				; indicate an error
		rts

;------------------------------------------------------------
; At this point, a user volume was found.  Copy the G-String
; with leading colon to boot volume name buffer.
;------------------------------------------------------------
found_it
		ldy	#2			; offset to length byte
		lda	[listptr],y		; get length byte
		and	#$00FF			; only a byte
		ina				; plus 1 for colon
;		sta	[nameptr]		; save as length word
		sta	bootvolname		; save for getbootname
		tax				; save length for loop
		
		sep	#$20			; 8-bit A for chars
		longa	off
		lda	#':'			; put colon in front
		sta	[listptr],y		; overwrite length byte
copy_loop
		lda	[listptr],y
;		sta	[nameptr],y		; copy char to buffer
		sta	bootvolname,y		; copy to bootvolname buffer
		iny
		dex				; done all chars yet?
		bne	copy_loop
		
		rep	#$20			; back to full native
		longa	on

		lda	[listptr]		; get sessrefnum, slot/drive
		and	#$00FF			; SessRefnum only
		sta	SessRefnum
		
		ldy	#$1E			; offset to VolID
		lda	[listptr],y
		sta	VolID
		
		clc				; no error
		rts

		endwith				; with dp
		endp

ListBuffer	record
		endr

		end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/Work/A2e.Blocks b/IIGS.601.SRC/GS.OS/NetBoot/Work/A2e.Blocks
new file mode 100644
index 0000000..de049c7
Binary files /dev/null and b/IIGS.601.SRC/GS.OS/NetBoot/Work/A2e.Blocks differ
diff --git a/IIGS.601.SRC/GS.OS/NetBoot/build.disk b/IIGS.601.SRC/GS.OS/NetBoot/build.disk
new file mode 100644
index 0000000..8f4bb8e
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/NetBoot/build.disk
@@ -0,0 +1 @@
+#
# Build
#
# This script will build the Apple II Setup disk for GS/OS
# System Software version 6.0.
#
# Written by Mark Day.
#
# This script assumes that the files "ProDOS16 Boot Blocks",
# "ProDOS16 Image", "Apple //e Boot Blocks", "P8", and "Basic.System"
# are present in the folder called "Work".
#
# This script will build to a Macintosh "System Tools" version 6.0.7
# or "Apple II Setup" disk, and create the complete installer disk.
#
#
# 16-Jun-91 MSD		V2.2d5.	Updated versions for P8 and BASIC.System.
# 26-Aug-91 MSD		v2.2d11	Changed P8 version to 1.5.
# 28-Oct-91 MSD		v2.2d19 Defined releasedate for installer script to
#					be {todayhex}.  Changed installer script creator/type
#					from 'cfbj' to 'bjbc'.
#  7-Feb-92 MSD		Changed version number to 2.2 final.  Changed copyright
#					dates in 'vers' resources to include 1992.
# 14-Feb-92 MSD		Hard-coded the variable "todayhex".
#					Forced "today" to be 2/14/92 12:00:00 PM.
#  2-Mar-92 MSD		Forced "today" to be 3/2/92 12:00:00 PM.  Changed
#					"todayhex" to match.
#  1-Apr-92 MSD		Version 3.0d1.  "today" and "todayhex" now set automatically.
#
# 15-Jul-92 MSD		Version 3.0d4.  This is the version that will be seeded with
#					DoRight (Apple II Ethernet Card).
# 12-Aug-92 MSD		Version 3.0d5.  Includes Logon 1.5d1 and ETalk driver that
#					first implemented RamGoComp (but not tested).
# 22-Aug-92 MSD		Version 3.0d7.  Includes the changes to Fizzy to store the
#					slot number at ATSlotNumber ($E101C1).  Requires Boot.Driver
#					from System Disk 6.0.1d10.
# 25-Nov-92 DAL		Version 3.0d8.  Added analyzer trigger to Logon.Main on an
#					unknown error.
# 27-Jan-93 DAL		Version 3.0d13.  Removed 5-second '...' delay for Ethernet
#					case, in Boot.aii.
#  8-Feb-93 DAL		Changed copyrights to end with 1993.
#  9-Mar-93 DAL		Version 3.0d14.
# 17-Mar-93 DAL		Version 3.0d15.
#  2-Apr-93 DAL		Version 3.0.
#


#
# Make sure we exit if an error happens
#
set exit 1

set thisvers	3.0				; export thisvers
set todayhex	"`date -n`"
set today		"`date -s -c {todayhex}`"
set todayhex	"`evaluate -h {todayhex}`"
set	a2s			"Apple II Setup:"
set	inst		":installer:"
set work		":work:"

#
# First, make sure a "System Tools:" or "Apple II Setup:"
# disk is online (and give user a chance to insert it).
#
Loop
	Break If "`Exists -d "{a2s}"`"
	Confirm "Please insert ¶"{a2s}¶"" || Exit 1
End


#
# Fix the versions, dates, and filetypes of the installed files
#
Rez	{inst}Bullwinkle.r ¶
	-o {work}'Apple //e Boot Blocks'

Rez {inst}BootBlocks.r ¶
	-o {work}'ProDOS16 Boot Blocks'

Rez {inst}Image.r ¶
	-o {work}'ProDOS16 Image'

Rez	{inst}P8.r ¶
	-o	{work}P8

Rez	{inst}Basic.r ¶
	-o	{work}Basic.System

SetVersion -t 'vers' -i 1 -version {thisvers}¶
	-verstring "^, © Apple Computer, Inc. 1988-1993"¶
	{work}"ProDOS16 Boot Blocks"
SetVersion -t 'vers' -i 2 -version {thisvers}¶
	-verstring "Apple II Setup ^"¶
	{work}"ProDOS16 Boot Blocks"

SetVersion -t 'vers' -i 1 -version {thisvers}¶
	-verstring "^, © Apple Computer, Inc. 1988-1993"¶
	{work}"ProDOS16 Image"
SetVersion -t 'vers' -i 2 -version {thisvers}¶
	-verstring "Apple II Setup ^"¶
	{work}"ProDOS16 Image"

SetVersion -t 'vers' -i 1 -version 1.5¶
	-verstring "^, © Apple Computer, Inc. 1983-1993"¶
	{work}"Basic.System"
SetVersion -t 'vers' -i 2 -version {thisvers}¶
	-verstring "Apple II Setup ^"¶
	{work}"Basic.System"

SetVersion -t 'vers' -i 1 -version 2.0¶
	-verstring "^, © Apple Computer, Inc. 1983-1993"¶
	{work}"P8"
SetVersion -t 'vers' -i 2 -version {thisvers}¶
	-verstring "Apple II Setup ^"¶
	{work}"P8"

SetVersion -t 'vers' -i 1 -version {thisvers}¶
	-verstring "^, © Apple Computer, Inc. 1983-1993"¶
	{work}"Apple //e Boot Blocks"
SetVersion -t 'vers' -i 2 -version {thisvers}¶
	-verstring "Apple II Setup ^"¶
	{work}"Apple //e Boot Blocks"

SetFile -t 'ZSYS' -c 'MACS' -a S -d "{today}" -m "{today}" {work}'ProDOS16 Boot Blocks'
SetFile -t 'ZSYS' -c 'MACS' -a S -d "{today}" -m "{today}" {work}'ProDOS16 Image'
SetFile -t 'ZSYS' -c 'MACS' -a S -d "{today}" -m "{today}" {work}'Apple //e Boot Blocks'
SetFile -t 'PSYS' -c 'pdos'      -d "{today}" -m "{today}" {work}'P8'
SetFile -t 'PSYS' -c 'pdos'      -d "{today}" -m "{today}" {work}'Basic.System'


#
# Build the Installer script
#

Rez {inst}Apple2GSInstallerScript.r ¶
	-o {work}'Apple II Script' ¶
	-c 'bjbc' ¶
	-t 'bjbc' ¶
	-d "releasedate={todayhex}"

SetVersion -t 'vers' -i 1 -version {thisvers}¶
	-verstring "^, © Apple Computer, Inc. 1988-1993"¶
	{work}"Apple II Script"
SetVersion -t 'vers' -i 2 -version {thisvers}¶
	-verstring "Apple II Setup ^"¶
	{work}"Apple II Script"

SetFile -d "{today}" -m "{today}" {work}'Apple II Script'

#
# Copy the files to the installer disk
#
newfolder "{a2s}System Folder" · Dev:Null || Set Status 0
duplicate -y "{work}ProDOS16 Boot Blocks"	"{a2s}System Folder:"
duplicate -y "{work}ProDOS16 Image"			"{a2s}System Folder:"
duplicate -y "{work}Apple //e Boot Blocks"	"{a2s}System Folder:"
duplicate -y "{work}P8"						"{a2s}System Folder:"
duplicate -y "{work}Basic.System"			"{a2s}System Folder:"

#
# Set the Installer's 'vers' (2) resource to be our disk name.
#

SetVersion -t 'vers' -i 2 -version {thisvers}¶
	-verstring "Apple II Setup ^"¶
	"Apple II Setup:Installer"


#
# Run ScriptCheck to update the dates and sizes in the script
#
# Note: ScriptCheck seems to get confused if the disk is already online,
# so I eject it and let ScriptCheck ask you to insert it.
#
eject "{a2s}"
ScriptCheck "{work}Apple II Script"
duplicate -y "{work}Apple II Script" "{a2s}"


#
# Move the installer script's icon to the right place.
#
SetFile -a i -l 128,64 "{a2s}Apple II Script"
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/OS/BankZero/B00SegR.E.src b/IIGS.601.SRC/GS.OS/OS/BankZero/B00SegR.E.src
new file mode 100644
index 0000000..85ce0e0
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/OS/BankZero/B00SegR.E.src
@@ -0,0 +1 @@
+;===============================================================================
; b00segR
;
; Framework for building load segment b00segR.
;
;===============================================================================
b00segr0_max	equ	$00B200

		export	b00segR_end
b00segR_end   	proc
              	endp

b00segr0_ovf	proc	org	b00segr0_max,	skip	; this should generate an error
		endp					; if we overflow the code space
		
	      	end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/OS/BankZero/B00segr.s.src b/IIGS.601.SRC/GS.OS/OS/BankZero/B00segr.s.src
new file mode 100644
index 0000000..5010532
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/OS/BankZero/B00segr.s.src
@@ -0,0 +1 @@
+;===============================================================================
; b00segR
;
; Framework for building load segment b00segR.
;
;===============================================================================
header_length   equ    $30
b00segr_org     equ    $00AA00
b00segr_start	equ	B00segr_org		

		IMPORT	b00segr_end
		

b00segr_header  PROC	org     b00segr_org-header_length

		msb     on

		DC.W	b00segr_end-b00segr_start
		DC.L	b00segr_org
		DC.W	0000
		DC.B	'Bank0 Disp.           v04.00'
		DC.B	00

		msb     off

		ENDP

			

d_b00segr_dummy PROC	org     b00segr_org
		ENDP
		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/OS/BankZero/bank0.dispatcher.src b/IIGS.601.SRC/GS.OS/OS/BankZero/bank0.dispatcher.src
new file mode 100644
index 0000000..a619b43
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/OS/BankZero/bank0.dispatcher.src
@@ -0,0 +1 @@
+****************************************************************
*
*               Copyright (c) 1987, 1988
*               Apple Computer, Inc.
*               All rights reserved
*
****************************************************************
*
*               GS/OS Bank 0 Dispatcher
*
*		This code resides in bank $00 location $AA00.
*
****************************************************************
*
*               Written by: Raymond B. Montagne
*
****************************************************************
*
* REVISION HISTORY:
*
* DATE     VER. BY   DESCRIPTION
*
* 04/07/87 0.01 RBM  Initial coding of bank 0 dispatcher
*
* 05/27/87 0.02 RBM  Speed selection is now based on bit 3 of the
*                    slot number contained in the DIB.
*
* 09/25/87 0.03 RBM  UNFUTZ masks A-Reg on no error
*
* 10/05/87 0.04 RBM  OPEN call inits hook table for BASIC devices.
*
* 11/19/87 0.05 RBM  Fixed Pascal1.1 interface for startup, close,
*                    flush, control & status calls.
*                    Fixec Pascal1.1 interface for open call.
*
* 12/03/87 0.06 RBM  Relocated to $00AA00.
*
* 12/21/87 0.07 RBM  Fixed UNFUTZ to pass ProDOS error through.
*                    Seperated dispatcher into more files.
*
* 01/02/88 0.08 RBM  Fixed language card dispatcher.
*
* 01/13/88 0.09 RBM  Fixed trash in upper byte of error code.
*
* 01/30/88 0.10 RBM  Translate SmartPort error codes to legitimate
*                    GS/OS error codes. (see unfutz in bank0/bank0.dispatcher)
*                    Language card dispatcher now preserves the state of
*                    the carry flag through entry. (see lc.dispatcher)
*
* v0.01 a01     RBM  Alpha release.
*
* v0.04 a01     RBM  New release.
*
* v0.05 a01     RBM  New release.
*
* v0.05 a01     RBM  Fixed absolute reference in unfutz code to
*                    a long reference.  Return from class 0 character
*                    devices sometimes used wrong thread (BASIC v.s. Pascal).
*
* v0.05 a02     RBM  Parameter lists used by the generated driver core
*                    routines to call the SmartPort interface(s) directly
*                    via the bank $00 dispatcher now reside in the bank $00
*                    dispatchers memory space.  This was neccessary since the
*                    rom is enabled during firmware calls making parameters
*                    in the device dispatcher's address space inaccessable
*                    to the SmartPort interface being called.
*
* v0.06 a01     RBM  New release.
*
* v0.07 a01     RBM  New release.
*
* v0.08 a01     RBM  Class 0 character devices now use highest level
*                    interface available and is not selectable.  This
*                    means that Pascal devices cannot be configured
*                    to use the BASIC interface.
*
* v0.08 a02     RBM  Preserve interrupt enable status across the dispatch
*                    to a firmware interface.
*
* v0.08 a03     RBM  Rearranged how interrupt status is preserved so that
*                    SmartPort soft error codes are not lost.
*
* v0.08 a04     RBM  During counting of generated driver, always exit as
*                    if class 1 or class 2 device.
*
* v0.09 a01     RBM  Class 1 and class 2 soft errors are filtered out.
*
* v0.09 a02     RBM  Well, they almost were.  Reference needed to be
*                    long when checking exit type during unfutz.
*
* v0.09 a03     RBM  Select bank $00 before calling a card.
*
* v0.10 a02     RBM  Added a bank $00 resident routine to determine the
*                    machine rom version number.
*
* v0.16 b01     GRT  fixed external slot bit problem in basic_type found in
*                    bank0/bank0.dispatch
*
* v0.16 b01     GRT  fixed external slot bit problem in UNFUTZ found in
*                    bank0/bank0.dispatch and BIT problem with c0_flag
*
* v0.16 b02     GRT  added code to make sure drvr_blk_num+2 is zero for
*                    prodos block devices
*                    new label in bank0.dispatch is "pro_blk_bad"
*
* v04.10 a01	RBM	General code reduction.  Added main entry for slot
*			arbiter to preserve the rom state (statereg bit 3)
*			and switch in RAM prior to dispatching to the
*			slot arbiter core routine resident in the language 
*			card adjacent to the device manager.  Added parameter
*			lists to be used with the bank 0 core dispatcher so
*			that standard and extended SmartPort DIB status calls
*			may be issued by the driver core routines resident in
*			the device dispatcher.
*
* v4.10 d9	RBM	Reduce os overhead in language card dispatcher.
*			Set system speed eliminates unneccessary calls through
*			the language card dispatcher.
*
* v4.10 d10	RBM	Removed intermediate layer for language card dispatching
*			to language card resident system service call routines now
*			resident in fast managed memory.
*
* v4.10 d11	RBM	ProDOS calls are not pre parsed for block out of range.
*			This responsibility is passed on to the target firmware
*			interface.
*
* v4.10 d14	RBM	Fixed UniDisk3.5 access for block size $020C.
*
* 11/13/91	GAB	Fixed Pascal Protocol handler so that a character read
*			  from the Pascal firmware will ALWAYS be returned in
*			  the accumulator.
*			Replaced all BRL opcodes with JMP opcodes, since this
*			  code resides at an absolute location in memory and is
*			  always loaded as a binary image.
*
* 11/21/91	GAB	Fixed SmartPort error code translation.  A SmartPort
*			  error code of $11 (bad unit number) used to get
*			  translated into a $22 (bad parameter) GS/OS error
*			  code.  I've changed this so it's translated into
*			  GS/OS error $28 (no device connected).
*
****************************************************************

		eject
;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

		entry	dispatcher
		entry	esp_ctrl_trans
		entry	esp_stat_trans
		entry	ext_dev_stat
		entry	ext_eject
		entry	ext_format
		entry	ext_reset
		entry	ext_set_dcb
		entry	fw_return
		entry	g_fmt_pcnt
		entry	lc_jump_addr
		entry	parm_list_ptr
		entry	pro_trans
		entry	set_fmt_p
		entry	set_reg
		entry	set_sp_command
		entry	sp_close
		entry	sp_command
		entry	sp_control
		entry	sp_ctrl_trans
		entry	sp_flush
		entry	sp_open
		entry	sp_read
		entry	sp_shut_dn
		entry	sp_start_up
		entry	sp_stat_trans
		entry	sp_status
		entry	sp_translate
		entry	sp_write
		entry	std_dev_stat
		entry	std_eject
		entry	std_format
		entry	std_reset
		entry	std_set_dcb
		entry	sys_buffer
		entry	b0_get_dev_char
		entry	set_move_cnt

		Print	Off
		include	'common.equ.src' 
		include	'hw.equ.src' 
		include	'driver.equ.src' 
		Print	On

		EJECT
*****************************************************************
*
* SYSTEM I/O BUFFER:
*
*****************************************************************
		export	the_sys_buffer	
the_sys_buffer	proc
		export	sys_buffer
sys_buffer				; system buffer is at beginning

		ds.b	$020C		; system buffer is 524 bytes long
		
		endp
		EJECT
****************************************************************
*
* This code segment is the bank 0 dispatcher for generated
* drivers running under the GS/OS.  This routine must reside
* in bank 0 and performs the switch to emulation mode prior
* to calling a slot resident firmware based device driver.
*
* ENTRY:        A = Call Number
*               X = Input character
*               Y = Undefined
*               D = GS/OS direct page
*               B = Undefined
*               S = Native mode stack
*               P = 0=m=x=e
*               Transfer count must be set to current
*               count as the transfer count will be
*               adjusted by this routine
*
*               NOTE: At entry, the portion of the bank 0 dispatcher not
*               resident in bank 0 is responsible for setting up the
*               parameter inputs on the direct page workspace for the device
*               being called.
*
* EXIT:         A = Error Code or Output Character
*               X = X & Y from emulation dispatch
*                   8 bit X in low byte of 16 bit X register
*                   8 bit Y in high byte of 16 bit X register 
*               Y = Unchanged
*               D = GS/OS direct page
*               B = Unchanged
*               S = Native mode stack
*               P = 0=m=x=e (c=1 if error, else 0)
*
****************************************************************
		export	b0dsptch	
b0dsptch	proc
		export	bank0_dsptch
bank0_dsptch
		jmp	dispatcher	; data area follows entry point

		endp

***************************************************************
*
* The following is a pointer to the data area to be used for
* setting up a SmartPort parameter list
*
***************************************************************
		export	param_list	
param_list	proc
		export	call_list_ptr
call_list_ptr
		dc.w	sp_command

		endp
		EJECT
***************************************************************
*
* This following variables are used to set the default number
* of devices per slot for ProDOS block device cards.  This is
* done to prevent ghost device drivers for devices interfaced
* through the ProDOS block device protocol that may not exist
* 
*  ___ ___ ___ ___ ___ ___ ___ ___
* |   |   |   |   |   |   |   |   |
* | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 | Internal Slots
* |___|___|___|___|___|___|___|___|
*   |   |   |   |   |   |   |   |___ 1=Nonconfigured, 0=Configured
*   |   |   |   |   |   |   |_______ Slot #1  -  0=1 device, 1=2 devices
*   |   |   |   |   |   |___________ Slot #2  -  0=1 device, 1=2 devices
*   |   |   |   |   |_______________ Slot #3  -  0=1 device, 1=2 devices
*   |   |   |   |___________________ Slot #4  -  0=1 device, 1=2 devices
*   |   |   |_______________________ Slot #5  -  0=1 device, 1=2 devices
*   |   |___________________________ Slot #6  -  0=1 device, 1=2 devices
*   |_______________________________ Slot #7  -  0=1 device, 1=2 devices
*  ___ ___ ___ ___ ___ ___ ___ ___
* |   |   |   |   |   |   |   |   |
* | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 | External Slots
* |___|___|___|___|___|___|___|___|
*   |   |   |   |   |   |   |   |___ 1=Nonconfigured, 0=Configured
*   |   |   |   |   |   |   |_______ Slot #9  -  0=1 device, 1=2 devices
*   |   |   |   |   |   |___________ Slot #10 -  0=1 device, 1=2 devices
*   |   |   |   |   |_______________ Slot #11 -  0=1 device, 1=2 devices
*   |   |   |   |___________________ Slot #12 -  0=1 device, 1=2 devices
*   |   |   |_______________________ Slot #13 -  0=1 device, 1=2 devices
*   |   |___________________________ Slot #14 -  0=1 device, 1=2 devices
*   |_______________________________ Slot #15 -  0=1 device, 1=2 devices
*
***************************************************************
		export	prodos_config	
prodos_config	proc	
		export	config_ram
config_ram
		dc.b	$00		; all 1 device and not configured
		dc.b	$00		; all 1 device and not configured

		export	c0_flag
c0_flag
		dc.w	0

		endp
		EJECT
***************************************************************
*
* The following variables apply to the bank 0 dispatcher only.
* There was no room available for them on direct page.
*
***************************************************************
		export	dsptch_vars	
dsptch_vars	proc
		export	b0_buff_ptr
b0_buff_ptr	ds.b	4		; (lw) Bank0 dispatcher buffer pointer
		export	b0_blk_num
b0_blk_num	ds.b	4		; (lw) Bank0 dispatcher block number
		export	param_list_ptr
param_list_ptr
		export	parm_list
parm_list	ds.b	12		; (12) Parameter list class 1 & 2
;                                       ; (b)  Parameter count
;                                       ; (b)  Unit Number
;                                       ; (lw) Buffer Pointer
;                                       ; (lw) Block Address
		export	b0_temp
b0_temp		ds.b	2		; (w)  Temporary storage
		export	d_class
d_class		ds.b	1		; (b)  Driver class
		export	save_sp
save_sp		ds.b	2		; (w)  native stack pointer
		export	a_reg
a_reg		ds.b	1		; (b)  Accumulator on dispatch
		export	block_cnt
block_cnt	ds.b	4		; (lw) block counter
		export	block_num
block_num	ds.b	4		; (lw) block number for current read

		eject
*****************************************************************
*
* The following parameter lists are used by the generated
* driver core routines when calling a SmartPort interface
* via the bank $00 core routines.
*
*****************************************************************
		export	get_fmt_list
get_fmt_list	dc.b	$4B		; get format options call
		dc.l	g_fmt_pcnt	; pointer to SmartPort parameter list
		export	g_fmt_pcnt
g_fmt_pcnt	dc.b	3		; 3 parameters
		export	get_fmt_unit
get_fmt_unit	dc.b	0		; unit number (from DIB)
		export	get_fmt_slist
get_fmt_slist	dc.l	0		; pointer to status list
		export	get_fmt_reqcnt
get_fmt_reqcnt	dc.w	0		; request count

		export	set_fmt_list
set_fmt_list	dc.b	$4A		; command
		dc.l	set_fmt_p	; pointer to parameter list
		export	set_fmt_p
set_fmt_p	dc.b	3		; parameter count
		export	set_fmt_unit
set_fmt_unit	dc.b	0		; unit number
		export	set_fmt_clist
set_fmt_clist	dc.l	0		; control list pointer
		export	set_fmt_req
set_fmt_req	dc.w	0		; request count

		export	sp_stat3
sp_stat3	dc.b	$00		; command
		dc.w	sp_stat3_p	; pointer to parameter list
		export	sp_stat3_p
sp_stat3_p	dc.b	3		; parameter count
		dc.b	0		; unit number
		dc.l	sys_buffer	; status list pointer
		dc.b	3		; status code

		export	esp_stat3
esp_stat3	dc.b	$40		; command
		dc.l	esp_stat3_p	; pointer to parameter list
		export	esp_stat3_p
esp_stat3_p	dc.b	3		; parameter count
		dc.b	0		; unit number
		dc.l	sys_buffer	; status list pointer
		dc.b	3		; status code

		endp
		eject
*
* The following is a hook table maintained for BASIC device drivers.
* This table is intialized by the DRVR_STARTUP call.
*
		export	hook_table	
hook_table	proc
		dc.b	$05		; slot 1 BASIC input entry point
		dc.b	$07		; slot 1 BASIC output entry point
		dc.b	$05		; slot 2 BASIC input entry point
		dc.b	$07		; slot 2 BASIC output entry point
		dc.b	$05		; slot 3 BASIC input entry point
		dc.b	$07		; slot 3 BASIC output entry point
		dc.b	$05		; slot 4 BASIC input entry point
		dc.b	$07		; slot 4 BASIC output entry point
		dc.b	$05		; slot 5 BASIC input entry point
		dc.b	$07		; slot 5 BASIC output entry point
		dc.b	$05		; slot 6 BASIC input entry point
		dc.b	$07		; slot 6 BASIC output entry point
		dc.b	$05		; slot 7 BASIC input entry point
		dc.b	$07		; slot 7 BASIC output entry point
		
		endp
		EJECT
****************************************************************
*
* This code segment is the bank 0 dispatcher for generated
* drivers running under the GS/OS.  This routine must reside
* in bank 0 and performs the switch to emulation mode prior
* to calling a slot resident firmware based device driver.
*
* ENTRY:        A = Call Number
*               X = Input character
*               Y = Undefined
*               D = GS/OS direct page
*               B = Undefined
*               S = Native mode stack
*               P = 0=m=x=e
*               Transfer count must be set to current
*               count as the transfer count will be
*               adjusted by this routine
*
*               NOTE: At entry, the portion of the bank 0 dispatcher not
*               resident in bank 0 is responsible for setting up the
*               parameter inputs on the direct page workspace for the device
*               being called.
*
* EXIT:         A = Error Code or Output Character
*               X = X & Y from emulation dispatch
*                   8 bit X in low byte of 16 bit X register
*                   8 bit Y in high byte of 16 bit X register 
*               Y = Unchanged
*               D = GS/OS direct page
*               B = Unchanged
*               S = Native mode stack
*               P = 0=m=x=e (c=1 if error, else 0)
*
****************************************************************
		export	dispatcher	
dispatcher	proc
		longa	on
		longi	on

*
* This routine sets the stack pointer to page 1 in preparation
* for switching to emulation mode.
*
		tay			; save A Reg input
		tsc			; save native sp
		sta	>save_sp
		sep	#$20		; 8 bit 'm'
		longa	off

		xba			; get stack page in A
		dec	a		; is stack in page 1?
		beq	pg1		; yes
		lda	#$01		; if not, set page 1
		xba
		lda	>emulstack	; get emulation mode stack pointer
		tcs			; to set page 1 stack pointer

*
* Stack pointer is now set to emulation mode stack.  Need to preserve the
* device driver data bank prior to dispatching.  Will assume a worse case
* dispatch of class 3 and store 5 NOP instructions following the return
* address.  If not type 2, return from firmware driver will fall through
* the NOP with minimal impact on execution time.  This allows one single
* bank 0 dispatcher to be used for all generated drivers.
*
pg1
		phb			; save environment
		phd
		phk			; data bank must be $00 for firmware
		plb
		sty	|a_reg		; A reg for firmware
		lda	#$EA		; must lay down the 5 nop's
		ldx	#$0004
noploop
		sta	|fw_return,x
		dex
		bpl	noploop

*
* Not in emulation mode yet.  Direct page is to GS/OS direct page for
* indirect access of rom locations internal to the firmware driver to
* be called.  This is needed to locate the entry points within the
* firmware driver so that the dispatch to the proper entry point can
* be made.
*
		stz	<fw_addr
		ldy	#slot_num	; slot where fw resides
		lda	[<drvr_dib_ptr],y
		and	#$07		; slots 1 through 7 are valid
		ora	#$C0		; make $Cn
		sta	<fw_addr+1	; and save for $CnXX
		stz	<fw_addr+2
		ldy	#drvr_class	; get this driver's class
		lda	[<drvr_dib_ptr],y
		sta	<d_class	; save for easier access
		and	#$3F		; mask character device flag
		beq	class0		; if a class 0 call
		jmp	not_class0	; if not a class 0 device

*
* Got here if either a ProDOS block device or a character device such
* as BASIC or Pacal1.1.  Must determine if character device to avoid
* setting up absolute zero page parameters for a ProDOS block device.
*
class0
		longa	off
		longi	on
		bit	<d_class	; character device?
		bmi	char_dev	; yes

*
* It is a ProDOS block device if got here.  Must set up call parameters
* on absolute zero page.  Also must determine the ProDOS block device
* entry point as follows:
*
*               ($CnFF) + $Cn00 = ProDOS entry point
*
prodos
		longa	off
		longi	on

		ldy	#$00FF		; get ProDOS block entry point
		lda	(<fw_addr),y
		sta	<fw_addr
*
* ProDOS unit number is constructed from DIB unit and slot.
*
		ldy	#unit_num	; create ProDOS Unit Number
		lda	[<drvr_dib_ptr],y
		dec	a
		lsr	a		; carry is now unit number
		php
		ldy	#slot_num
		lda	[<drvr_dib_ptr],y
		jsr	a_times_16
		asl	a
		plp
		ror	a
		sta	>punit		; ProDOS unit number
*
* Translate GS/OS driver call number to ProDOS call number
* and set for dispatch to device.
*
		ldx	<drvr_call_num
		lda	|pro_trans,x
		sta	>pcmd
*
* Set up ProDOS block device call parameters for the
* buffer address and block address.
*
		rep	#$20		; 16 bit 'm'
		longa	on
		lda	<drvr_buf_ptr	; set ProDOS buffer pointer
		sta	|pbuffer
		lda	<drvr_blk_num	; set ProDOS block number
		sta	|pblock
		lda	<drvr_blk_num+2	; check buffer in range
		beq	prodos_ok

prodos_error
		ldx	#drvr_bad_block	; flag bad block error
		sec
		pld			; restore native environment
		plb
		lda	>save_sp
		tcs
		txa			; error code must be in A Reg
		rtl

prodos_ok
		sep	#$20		; 8 bit 'm'
		longa	off
		jmp	set_reg		; ready for dispatch

*
* It is either a BASIC or Pascal1.1 character device if got here.
* Must determine which type it is using the Pascal1.1 firmware
* signature bytes as follows:
*
*               $Cn05 = $38 (standard)
*               $Cn07 = $18 (standard)
*               $Cn0B = $01 (generic signature of firmware cards)
*
char_dev
		longa	off
		longi	on

		sep	#$10		; 8 bit 'x'
		longi	off

		lda	#$FF		; assume its a Pascal1.1 device
		sta	|c0_flag

		ldy	#$05
		lda	[<fw_addr],y	; $Cn05 = $38 if Pascal1.1
		cmp	#$38
		bne	basic_type	; if not Pascal1.1
		iny
		iny
		lda	[<fw_addr],y	; $Cn07 = $18 if Pascal1.1
		cmp	#$18
		bne	basic_type	; if not Pascal1.1
		ldy	#$0B
		lda	[<fw_addr],y	; $Cn0B = $01 if Pascal1.1
		dec	a
		beq	pascal_type	; if a Pascal1.1 device
*
* If got here, then device is a BASIC device.  Dispatch must be through
* the address previously obtained through the I/O hooks unless this is an
* initialization dispatch to $Cn00.  Standard BASIC entry points are as
* follows:
*               $Cn00   Initializtion entry point
*               $Cn05   Input routine entry point
*               $Cn07   Output routine entry point
*
* Many BASIC devices do not support the standard input and output entry
* points.  All BASIC devices modify the I/O hooks located at $0036-0039
* in absolute zero page.  The result of the initialization call to a
* BASIC device will store the hooks into a hook table for the input and
* output dispatches.  The input routine entry point will be obtained
* from $0038 while the output routine entry point will be obtained from
* $0036.
*
basic_type
		longa	off
		longi	off

		stz	|c0_flag	; flag that its a BASIC device

		ldy	#slot_num	; get slot
		lda	[<drvr_dib_ptr],y
		and	#$F7		;clear external slot bit
		dec	a
		asl	a
		tax
		lda	<drvr_call_num	; get driver call number
		cmp	#drvr_read	; is this a read call?
		beq	get_hook	; yes
		inx
		cmp	#drvr_write	; is this a write call?
		beq	get_hook	; yes
		cmp	#drvr_open	; is it an open call
		
		sec			; assume it's not an open
		bne	char_ret_1	; no other BASIC dispatch possible

		lda	#$00		; set for BASIC init call on open
		bra	set_fw_addr
get_hook
		lda	|hook_table,x	; get low byte entry $CnXX
set_fw_addr
		sta	<fw_addr	; set low byte of $CnXX entry point
		jmp	set_reg		; and go to dispatch

*
* If got here, then device is a Pascal1.1 driver.  Dispatch must get the
* proper entry point for the firmware driver by reading the firmware driver
* rom.  Pascal1.1 entry points are defined as follows:
*
*               $Cn0D   Initialization routine offset
*               $Cn0E   Read routine offset
*               $Cn0F   Write routine offset
*               $Cn10   Status routine offset
*
pascal_type
		longa	off
		longi	off

		ldy	#$0D		; assume initialization call
		lda	<drvr_call_num
		cmp	#drvr_open	; is this an open call?
		beq	pascal_entry	; yes
		iny
		cmp	#drvr_read	; is this a read call?
		beq	pascal_entry	; yes
		iny
		cmp	#drvr_write	; is this a write call?
		beq	pascal_entry
		iny
		cmp	#drvr_status	; is this a status call?
		beq	pascal_entry	; yes

char_ret
		clc			; no error exit
char_ret_1				; or pass carry from previous routine
		rep	#$30		; 16 bit 'm' & 'x'
		longa	on
		longi	on

		pld			; restore native environment
		plb
		lda	>save_sp
		tcs
		lda	#no_error	; A Reg has error code
		rtl

pascal_entry
		lda	[<fw_addr],y	; get firmware entry point offset
		sta	<fw_addr
		bra	set_reg		; now ready for dispatch

*
* If got here the device is either a class 1 or class 2 driver.  Must
* determine which class it is since the call structure is not the same
* for both of these classes of driver.
*
not_class0
		longa	off
		longi	on

		dec	a		; is it a class 1 driver?
		bne	class2		; no, must be class 2

*
* If got here the device is a class 1 driver using the standard
* SmartPort interface.  Must set up a SmartPort parameter block
* in bank 0.  Then a command byte and word pointer to the parameter
* list must be stored over the first 3 nop's just after the bank 0
* dispatch return address.
*
*               ($CnFF) + $Cn00 + $03 = SmartPort entry point
*
class1
		longa	off
		longi	on

		ldy	#$00FF		; get ProDOS block entry point
		lda	(<fw_addr),y
		clc			; now add 3 to get SmartPort entry
		adc	#$03
		sta	<fw_addr

*
* Now must set up call number, parameter list pointer and the
* parameter list itself.  Parameter lists take on many formats.
*
		jsr	set_sp_command	; set up smartport command
		bcs	no_sp_dsptch	; if dispatch doesnt apply to device
		rep	#$20		; 16 bit 'm'
		longa	on
		lda	#parm_list	; set pointer to parameter list
		sta	|parm_list_ptr
		sep	#$20		; 8 bit 'm'
		longa	off
		jmp	set_reg		; ready for dispatch

no_sp_dsptch
		pld
		plb
		rep	#$20		; 16 bit 'm'
		longa	off
		lda	>save_sp	; restore native mode stack
		tcs
		lda	#$0000		; report no error
		clc
		rtl			; and return like an extended dispatch

*
* If got here the device is a class 2 driver using the extended
* SmartPort interface.  Must set up an extended SmartPort parameter
* block in any bank. A command byte and longword pointer to the parameter
* list must be stored over the all 5 nop's just after the bank 0
* dispatch return address.
*
*               ($CnFF) + $Cn00 + $03 = SmartPort entry point
*
class2
		longa	off
		longi	on

		ldy	#$00FF		; get ProDOS block entry point
		lda	(<fw_addr),y
		clc			; now add 3 to get SmartPort entry
		adc	#$03
		sta	<fw_addr
		jsr	set_sp_command	; set up smartport command
		bcs	no_sp_dsptch	; if dispatch doesnt apply to device
		lda	#$40		; make it an extended command
		tsb	|sp_command
		rep	#$20		; 16 bit 'm'
		longa	on
		lda	#parm_list	; set pointer to parameter list
		sta	|parm_list_ptr
		stz	|parm_list_ptr+2
		sep	#$20		; 8 bit 'm'
		longa	off
		bra	set_reg

		EJECT
***************************************************************
*
* Now ready to dispatch to firmware driver.  Must set up registers for
* emulation mode dispatch as follows:
*
*               X = $Cn
*               Y = $n0
*               A = character to output
*
* The address on direct page (fw_addr) must be decremented and
* placed on the stack since the mechanism for the dispatch is
* an 'RTS' instruction.  Prior to dispatching, the direct register
* must be set to absolute zero page.  Switch to emulation mode
* occurs here.  This routine must switch the ROM in prior to
* dispatching to the firmware.  In addition, the system speed will
* be set to SLOW if the dispatch is to a slot rather than a port. 
*
* ENTRY:        A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*               B Reg = $00
*             DIR Reg = GS/OS Direct Page
*               P Reg = 8 bit 'm', 8 or 16 bit 'x', native mode
*             FW_ADDR = Entry point in firmware
*
* EXIT:         A Reg = As returned from firmware
*               X Reg = Combined X & Y returned from firmware
*               Y Reg = Y returned from firmware
*               B Reg = $00
*             DIR Reg = GS/OS Direct Page
*               P Reg = Carry returned from firmware
*                       16 bit 'm' & 'x' native mode
*
***************************************************************
*
* The core routine is provided only for the device dispatcher
* which must call SmartPort prior to having a device list
* constructed.
*
***************************************************************
		export	b0_core
b0_core
		rep	#$30		; 16 bit 'm' & 'x'
		longa	on
		longi	on

*
* This routine sets the stack pointer to page 1 in preperation
* for switching to emulation mode.
*
		tsc			; save native sp
		sta	>save_sp
		sep	#$20		; 8 bit 'm'
		longa	off

		xba			; get stack page in A
		dec	a		; is stack in page 1?
		beq	page1		; yes
		lda	#$01		; if not, set page 1
		xba
		lda	>emulstack	; get emulation mode stack pointer
		tcs			; to set page 1 stack pointer
page1

		phb
		phd
		phk			; need data bank = $00
		plb

		eject
***************************************************************
*
* This is the normal entry for dispatches to firmware via
* the bank 0 dispatcher.
*
* Native and emulation stacks contain the following:
*
* NATIVE STACK          EMULATION STACK
*
*      K                 .
*      PCH               .
*      PCL               .
*      .                 Data Bank
*      .                 Dir Reg High
*      .                 Dir Reg Low
*
***************************************************************
		export	set_reg
set_reg
		longa	off
;               longi   not determined at this entry point
*
* Save system environment prior to dispatch.
* 
		sep	#$10		; 8 bit 'x'
		longi	off
		lda	|cyareg		; save system speed
		pha
		lda	|statereg	; and rom enable
		pha
*
* Must determine if the slot the dispatch will be executed to
* is internal or external prior to setting the system speed.
* System speed will be forced slow for external slots.
*
		ldy	#slot_num	; get slot number
		lda	[<drvr_dib_ptr],y
		and	#%00001000	; if bit 3=1 then external
		jsr	a_times_16
		trb	|cyareg		; set system speed
		lda	#%00001000	; turn on the rom
		sta	|statereg
		php			; in case card disables IRQ
*
* Now get ready for dispatch by placing return address as well
* as dispatch address on the stack.
* 
		rep	#$20		; 16 bit 'm'
		longa	on
		pea	fw_return-1	; return address will be 5 nops
		lda	<fw_addr	; decrement address prior to push
		dec	a
		pha
*
* Ready for dispatch and return so set emulation mode and
* register states for dispatch.
*
		sec			; set emulation mode
		xce
		longa	off
		longi	off
		ldx	<fw_addr+1	; set up register states
		txa			; have $Cn in X
		jsr	a_times_16
		tay
		lda	|a_reg
		pea	$0000		; set absolute zero page
		pld
		phk
		plb

		eject
*
* Native and emulation stacks contain the following:
*
* NATIVE STACK          EMULATION STACK
*
*      K                 .
*      PCH               .
*      PCL               .
*      .                 Data Bank
*      .                 Dir Reg High
*      .                 Dir Reg Low
*                        CYA Register
*                        State Register
*                        processor Status (save IRQ enable)
*                        FW_RET-1 (High)
*                        FW_RET-1 (Low)
*                        ENTRY-1 (High)
*                        ENTRY-1 (Low)
*
		rts			; dispatch to ENTRY

		EJECT
***************************************************************
*
* On return from fw_addr, the execution address depends on the driver
* class that the fw_addr dispatch was executed to.
*
* Class 0 will resume at fw_return
* Class 1 will resume at fw_return+3
* Class 2 will resume at fw_return+5
*
***************************************************************
		export	fw_return
fw_return
		export	sp_command
sp_command
		dc.b	$ea		; NOP or SmartPort command
		export	parm_list_ptr
parm_list_ptr
		dc.b	$ea		; NOP or Parameter list pointer
		dc.b	$ea		; NOP or Parameter list pointer
		dc.b	$ea		; NOP or Parameter list pointer
		dc.b	$ea		; NOP or Parameter list pointer

		eject
***************************************************************
*
* Must restore driver environment while preserving the status
* that was returned from the firmware driver.  The environment
* includes direct page, data bank & stack pointer.  Additionally,
* the proper error status for the device must be returned.
* Error status varies among devices as follows:
*
* BASIC:        No error status is supported.
*               A Reg = Character
*               X Reg = Undefined
*               Y Reg = Undefined
*
* PASCAL:       A Reg = Character
*               X Reg = Error Code
*               Y Reg = $n0
*
* ProDOS:       A Reg = Error code if carry set
*               X Reg = Low byte block count on STATUS
*               Y Reg = High byte block count on STATUS
*
* SmartPort:    A Reg = Error code if carry set
*               X Reg = Low byte transfer count on READ/RDBLK
*               Y Reg = High byte transfer count on READ/RDBLK
*
***************************************************************
		export	unfutz
unfutz            
		longa	off
		longi	off
*
* Save away the error code while switching modes.
* The V flag will be set if a soft error occured.  Soft
* errors will be filtered before returning to the generated
* driver core routines.
*
		stx	|sp_command	; in case returning from pascal
		sta	|a_reg
		php
		pla
		sta	|b0_temp
*
* Restore system environment on return from dispatch.
* 
		plp			; restore IRQ enable
		pla
		sta	|statereg	; restore system state reg (rom enbl)
		pla
		sta	|cyareg		; save system speed
		pld			; restore native mode direct page
		plb			; restore native mode data bank
*
* Switch back to native mode.
*
		xce			; preserve carry while switching modes
		clc
		xce			; native mode 8 bit 'm' & 'x'
*
* Both 8 bit emulation mode index registers will now be combined
* into a single 16 bit native mode index register.  The high byte
* of the 16 bit X register will contain the value of the 8 bit
* emulation mode Y register while the low byte of the 16 bit X
* register will contain the value of the 8 bit emulation mode
* X register.
*
		tya			; combine 8 bit index to a 16 bit reg
		xba
		txa
		rep	#$30		; 16 bit 'm' & 'x'
		longa	on
		longi	on		
		tax

		eject
*
* Now restore native mode stack before returning to generated
* driver core routines.
*  _______________
* |       |       |
* | HIGH  |  LOW  |     16 bit X Register
* |_______|_______|
*     |       |________ 8 bit X returned by device
*     |________________ 8 bit Y returned by device
*
		lda	>save_sp	; restore stack pointer
		tcs
*
* If this was a return from a SmartPort call then error codes
* may need post-processed.  The dib may not contain the driver
* class so the five 'NOP' instructions stored for class 0 devices
* inline with the dispatch is examined to determine the driver class.
*
		lda	>parm_list_ptr	; are we counting devices?
		cmp	#$EAEA
		bne	not_c0_ret	; maybe
*
* If this was an OPEN call to a BASIC device, then need to
* save the I/O Hook in table for all other dispatches.
*
		ldy	#drvr_class	; need driver class....
		lda	[<drvr_dib_ptr],y
		beq	pro_ret		; if it's a ProDOS device
		cmp	#$0080		; is it a character device?
		bne	not_c0_ret	; no, don't init hook table

*
* new code <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
* Changed BIT |c0_flag to the following. Note c0_flag is a byte!
* Bit 7 of C0 flag is set if a Pascal1.1 device or cleared if
* a BASIC device.
*
		lda	>c0_flag-1	; BASIC or Pascal1.1?
		bmi	p_ret		; minus if a Pascal1.1 device
*
* It's a BASIC device.  If this was an OPEN call then
* need to initialize the hook table for this device.
* If not an OPEN then just return with no error!
*
b_ret
		lda	<drvr_call_num	; is it an open call?
		cmp	#drvr_open
		bne	not_b_open	; no, don't init hook table
		ldy	#slot_num
		lda	[<drvr_dib_ptr],y
		and	#$0007		;clear external slot bit
		dec	a		;minus one for zero based table.
		asl	a
		tax			; now have proper index to table

		sep	#$20		; 8 bit 'm'
		longa	off

		lda	>in_hook	; send input hook to table
		sta	>hook_table,x
		inx
		lda	>out_hook	; send output hook to table
		sta	>hook_table,x

		rep	#$20		; 16 bit 'm'
		longa	on
not_b_open
		lda	>a_reg		; exit with value
		and	#$00FF
		clc
		rtl
*
* Returned from a Pascal1.1 device.  If 8 bit quantity returned
* in X register is zero then return value with no error.  If 8
* bit quantity returned in X register was nonzero then return
* X as error.
*
p_ret
		lda	<drvr_call_num	; is it a status call?
		cmp	#$0005
		bne	not_p_status
		
		jsr	get_fw_status	; carry as returned from device
		rtl
not_p_status
		sec			; restore error flag (X register) from device
		lda	>sp_command
		and	#$00FF
		beq	not_b_open	; if no error, return data
		sep	#$20		; else shift into 8-bit mode
		longa	off
		ora	#%00010000	; shift firmware error code into $30-$3F
		xba			; put error code into high byte
		lda	>a_reg		; get the returned accumulator value into low byte
		rep	#$20		; back to 16-bit mode
		longa	on
		rtl			; return to generated driver
*
* Return was from a ProDOS block device.  If value returned
* in accumulator from device was nonzero then return with that
* value as the error code.
*
pro_ret
		jsr	get_fw_status	; get carry flag and accumulator from firmware
		bcs	pro_error	; if device errored
		lda	#no_error	; else make sure error is cleared
pro_error
		rtl

get_fw_status
		lda	>b0_temp	; restore error flag from device
		ror	a
		lda	>a_reg		; get returned error code
		and	#$00FF
		rts
*
* Returned from a SmartPort device.  If any soft error
* occured, this error is mapped to no error prior to
* returning to the device driver.
*
not_c0_ret
		lda	>a_reg		; retrieve the error code
		and	#$0040		; is it a soft error?
		bne	soft_error	; yes, not really an error
		lda	>a_reg		; does error code need translated?
		and	#$00FF
		cmp	#$0001		; is it a BADCMD?
		bne	not_bad_cmd	; no
set_bad_parm
		lda	#drvr_bad_parm	; else translate error code
		bra	new_error
not_bad_cmd
		cmp	#$0004		; is it a BADPCNT?
		beq	set_bad_parm	; yes
		cmp	#$0011		; is it a BADUNIT?
		beq	set_no_dev	; yes
		cmp	#$0006		; is it a BUSSERR?
		bne	not_busserr	; no
		lda	#drvr_io_error	; else translate error code
		bra	new_error
set_no_dev
		lda	#drvr_no_dev
		bra	new_error
not_busserr
		cmp	#$001F		; is it a NOINT?
		bne	new_error	; no
soft_error
		lda	#no_error	; NOINT is not an error!!!
new_error
		sta	>a_reg		; save new error code
		sec			; assume an error occured

		lda	>a_reg		; get returned error code
		bne	exit_time	; assumed correct
		clc
		lda	#no_error	; else make sure error is cleared
exit_time
		rtl

		export	a_times_16
a_times_16
		asl	a
		asl	a
		asl	a
		asl	a
		rts


		endp
		EJECT
****************************************************************
*
* This routine translates the GS/OS driver call number into
* a SmartPort call.  If no translation is possible, the
* Carry flag will be set on return.  This routine will examine
* the DIB if the call is a read or write request to determine
* if the device is a character device.  Character devices will
* receive a read or write command while block devices will
* receive readblock or writeblock commands.  A format command
* will only be issued to character devices.  Some other calls
* will have to be processed at the level just above the bank 0
* dispatcher (such as : Set_Newline, Get_Newline).
*
* ENTRY:        A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             DIR Reg = GS/OS Direct Page
*               B Reg = Bank Zero
*               P Reg = 0=e=x, 1=m
*
* EXIT:         A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             DIR Reg = GS/OS Direct Page
*               B Reg = Bank Zero
*               P Reg = 0=e=x, 1=m,
*                       C=1 if dispatch doesnt apply.
*                       C=0 if dispatch does apply & parameter
*                       block is set up.
*
****************************************************************
		export	set_sp_command	
set_sp_command	proc
		longa	off
		longi	on

		rep	#$21		; 16 bit 'm' & carry clear
		longa	on
		pea	set_sp_ret-1	; on return from setup routine
		lda	<drvr_call_num	; get GS/OS command
		asl	a
		tax
		lda	|sp_translate,x	; routine to do setup
		pha
		rts			; dispatch to setup
set_sp_ret				; ; back to central dispatcher
		sep	#$20		; 8 bit 'm'
		longa	off
		rts

*
* Both the startup and shutdown calls are always translated into
* a a standard control call with a control code of $00 to reset the device.
*
		export	sp_start_up
sp_start_up
		longa	on
		longi	on

		export	sp_shut_dn
sp_shut_dn
		longa	on
		longi	on
		lda	#$0004		; SmartPort control call
		sta	|sp_command
		ldy	#unit_num-1	; want dib unit number in high byte
		lda	[<drvr_dib_ptr],y
		and	#$FF00		; low byte will be pcount
		ora	#$0003
		sta	|parm_list
		stz	|parm_list+2	; no control list
		stz	|parm_list+3	; control code = reset device ($00)
		rts

*
* The open call only applies to character devices.  The carry will
* be returned set if the dispatch is referencing a block device.
* Only standard OPEN parameter blocks will be generated for character
* devices.
		export	sp_open
sp_open
		longa	on
		longi	on

		jsr	b0_get_dev_char	; get device characteristics
		beq	sp_open_char	; if character device
		sec			; else no dispatch
		rts
sp_open_char
		lda	#$0006		; SmartPort OPEN call
sp_open_close
		sta	|sp_command
		ldy	#unit_num-1	; want dib unit number in high byte
		lda	[<drvr_dib_ptr],y
		and	#$FF00		; low byte will be pcount
		ora	#$0001
		rts
		
		export	b0_get_dev_char
b0_get_dev_char
		ldy	#dev_char	; get at device characteristics
		lda	[<drvr_dib_ptr],y
		and	#$0080		; block or character device?
		rts

*
* This call applies to both character and block devices.  If the device
* is a character device, a standard or extended read parameter block will
* be generated.  If the device is a block device and the block size is not
* 512 bytes, then a standard or extended read parameter block will be
* generated.  If the device is a block device and the block size is 512 bytes
* then a standard or extended readblock parameter block will be generated.
* The generation of standard versus extended parameters blocks is based on
* the driver class obtained from the GDIB.
*
		export	sp_read
sp_read
		longa	on
		longi	on
		lda	#$0001		; standard SP readblock call
*
* This entry point used to set initial SmartPort command up.
* If the device is a character device, the command will be
* converted from a block device command to a character device
* command.
*
sp_rd_wr
		sta	|sp_command	; set initial sp command
		jsr	b0_get_dev_char	; is this a character device?
		bne	not_sp_char	; no, it's a block device
*
* If the block is a nonstandard size or the device is a character
* device, the command is converted here to a character device command.
*
not_std_block
		lda	|sp_command	; convert command to extended
		clc
		adc	#$0007
		sta	|sp_command
		bra	set_rd_parms	; now setup the read parameter block
*
* If the block size is not a standard 512 byte block then must
* use the SmartPort character device protocol to access a non
* standard block size.  This routine sets the proper command
* based on the requested block size.
*
not_sp_char
		lda	<drvr_blk_size	; is request standard block size (512)?
		cmp	#$0200
		bne	not_std_block	; no
*
* Now must determine if device supports extended commands.  If so, the
* command will be converted to the extended format.
*
set_rd_parms
		ldy	#drvr_class	; does it support extended calls?
		lda	[<drvr_dib_ptr],y
		cmp	#$0002
		bne	not_extended	; no
*
* Now need to know if it's a character or block device call in order
* to set the proper parameter block up for the call.
*
		lda	sp_command	; else change to extended call
		and	#$0008		; block or character call?
		bne	ext_char	; it's an extended character call
*
* It's a block device so let's set up the extended block device
* parameter block.
*
		ldy	#unit_num-1	; want dib unit number in high byte
		lda	[<drvr_dib_ptr],y
		and	#$FF00		; low byte will be pcount
		ora	#$0003
		sta	|parm_list
		lda	<drvr_buf_ptr	; set buffer pointer
		sta	|parm_list+2
		lda	<drvr_buf_ptr+2
		sta	|parm_list+4
		lda	<drvr_blk_num	; set block address
		sta	|parm_list+6
		sta	>$FF3000	; *** WARNING *** this overflows the code space
		lda	<drvr_blk_num+2
		sta	|parm_list+8
		clc
		rts
*
* It's a character device so let's set up the extended character
* device parameter block.
*
ext_char
		ldy	#unit_num-1	; want dib unit number in high byte
		lda	[<drvr_dib_ptr],y
		and	#$FF00		; low byte will be pcount
		ora	#$0004
		sta	|parm_list
		lda	<drvr_buf_ptr	; set buffer pointer
		sta	|parm_list+2
		lda	<drvr_buf_ptr+2
		sta	|parm_list+4
		lda	<drvr_blk_size	; set block size
		sta	|parm_list+6
		lda	<drvr_blk_num	; set block address
		sta	|parm_list+8
		lda	<drvr_blk_num+2
		sta	|parm_list+10
		clc
		rts
*
* It's an standard command so let's leave the command alone and just
* set up the pointer to the parameter list.
*
not_extended
*
* Now need to know if it's a character or block device call in order
* to set the proper parameter block up for the call.
*
		lda	|sp_command	; is it a character device call?
		and	#$0008
		bne	std_char	; yes, go set up character parms
*
* It's a block device so let's set up the extended block device
* parameter block.
*
		ldy	#unit_num-1	; want dib unit number in high byte
		lda	[<drvr_dib_ptr],y
		and	#$FF00		; low byte will be pcount
		ora	#$0003
		sta	|parm_list
		lda	<drvr_buf_ptr	; set buffer pointer
		sta	|parm_list+2
		lda	<drvr_blk_num	; set block address
		sta	|parm_list+4
		sta	>$FF3000	; *** WARNING *** this overflows the code space
		lda	<drvr_blk_num+1
		sta	|parm_list+5
		clc
		rts
*
* It's a character device so let's set up the extended character
* device parameter block.
*
std_char
		ldy	#unit_num-1	; want dib unit number in high byte
		lda	[<drvr_dib_ptr],y
		and	#$FF00		; low byte will be pcount
		ora	#$0004
		sta	|parm_list
		lda	<drvr_buf_ptr	; set buffer pointer
		sta	|parm_list+2
		ldy	#block_size	; set block size
		lda	[<drvr_dib_ptr],y
		sta	|parm_list+4
		lda	<drvr_blk_num	; set block address
		sta	|parm_list+6
		lda	<drvr_blk_num+1
		sta	|parm_list+7
		clc
		rts

*
* This call applies to both character and block devices.  If the device
* is a character device, a standard or extended write parameter block will
* be generated.  If the device is a block device and the block size is not
* 512 bytes, then a standard or extended write parameter block will be
* generated.  If the device is a block device and the block size is 512 bytes
* then a standard or extended writeblock parameter block will be generated.
* The generation of standard versus extended parameters blocks is based on
* the driver class obtained from the GDIB.
*
		export	sp_write
sp_write
		longa	on
		longi	on

		lda	#$0002		; SmartPort writeblock command
		jmp	sp_rd_wr

*
* The close call only applies to character devices.  The carry will
* be returned set if the dispatch is referencing a block device.
* Only standard CLOSE parameter blocks will be generated for character
* devices.
		export	sp_close
sp_close
		longa	on
		longi	on

		jsr	b0_get_dev_char	; is this a block or character device?
		beq	sp_close_char	; if character device
		sec			; else no dispatch
		rts
sp_close_char
		lda	#$0007		; SmartPort CLOSE call
		jmp	sp_open_close

*
* This routine sets up the device for a Status dispatch.  If the
* device supports extended format, an extended status call will
* be issued.  For standard status calls, the system buffer will
* be used to return status information.
*
		export	sp_status
sp_status
		longa	on
		longi	on
		ldy	#sp_stat_trans	; assume standard status
		lda	<d_class
		and	#$000F
		dec	a		; is it a class 1 device?
		beq	setup_plist	; yes, assumed correct!
		ldy	#esp_stat_trans	; else point at extended list
		bra	setup_plist	; and setup command/plist

		export	sp_control
sp_control           
		longa	on
		longi	on
		ldy	#sp_ctrl_trans	; assume standard control
		lda	<d_class
		and	#$000F
		dec	a		; is it a class 1 device?
		beq	setup_plist	; yes, assumed correct!
		ldy	#esp_ctrl_trans	; else point at extended list

		EJECT
****************************************************************
*
* This code segment sets up the SmartPort command and the
* parameter list associated with that command.  This routine
* is only used by GS/OS status or control calls
*
* ENTRY:        A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Pointer to translate table
*             Dir Reg = GS/OS direct page
*               B Reg = Undefined
*               S Reg = Native mode stack
*               P Reg = 0=m=x=e
*
* EXIT:         A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS direct page
*               B Reg = Unchanged
*               S Reg = Native mode stack
*               P Reg = 0=m=x=e (c=1 if error, else 0)
*
****************************************************************
setup_plist
		sty	get_ptr+1	; self modify - lda |$0000,x
		lda	<drvr_stat_code	; point at parameter list
		asl	a
		tax
get_ptr		lda	|$0000,x	; get parameter list address
		tax
		ldy	#$0000
set_command	lda	|$0000,x
		sta	|sp_command	; set up command
		inx
plist_loop	lda	|$0000,x	; build the parameter list
		sta	|parm_list,y
		iny
		inx
		cpy	#$0007
		bne	plist_loop
		ldy	#unit_num	; patch unit number from the DIB
		lda	[<drvr_dib_ptr],y
		xba
		ora	|parm_list
		sta	|parm_list
		lda	<drvr_stat_code	; is this an eject?
		cmp	#$0002
		bne	sys_buf_done
		stz	|sys_buffer	; control list needs $0000 count
sys_buf_done
		clc
		rts

*
* There is no equivalent function for smartport.  No dispatch will be
* issued to a device.  This routine will return with carry set to indicate
* no dispatch should occur.
*
		export	sp_flush
sp_flush
		longa	on
		longi	on
		sec
		rts

		endp

*
* The following tables are used to translate GS/OS driver
* call numbers into either standard or extended SmartPort
* driver call numbers.
*
		export	sp_translate	
sp_translate	proc
		dc.w	sp_start_up-1	; startup
		dc.w	sp_open-1	; open
		dc.w	sp_read-1	; read
		dc.w	sp_write-1	; write
		dc.w	sp_close-1	; close
		dc.w	sp_status-1	; status
		dc.w	sp_control-1	; control
		dc.w	sp_flush-1	; flush
		dc.w	sp_shut_dn-1	; shut down

*
* The following table is used to translate GS/OS status codes to a
* SmartPort command # and status code.  The table contains a list of
* pointers to default parameter lists for the SmartPort call.
*
		export	sp_stat_trans
sp_stat_trans
		dc.w	std_dev_stat	; return device status
		export	esp_stat_trans
esp_stat_trans
		dc.w	ext_dev_stat	; return device status

*
* The following table is used to translate GS/OS status codes to a
* SmartPort command # and control code.  The table contains a list of
* pointers to default parameter lists for the SmartPort call.
*
		export	sp_ctrl_trans
sp_ctrl_trans
		dc.w	std_reset	; reset device
		dc.w	std_format	; format device
		dc.w	std_eject	; eject media
		dc.w	std_set_dcb	; set control parameters
		export	esp_ctrl_trans
esp_ctrl_trans
		dc.w	ext_reset	; reset device
		dc.w	ext_format	; format device
		dc.w	ext_eject	; eject media
		dc.w	ext_set_dcb	; set control parameters

*
* The following tables are the actual parameter lists referenced above.
* The first byte is the command number.  The parameter list starts at
* the second byte.
		export	std_dev_stat
std_dev_stat	dc.b	$00		; status command
		dc.b	$03		; pcnt
		dc.b	$00		; unit number must come from DIB
		dc.w	sys_buffer	; status list pointer
		dc.b	$00		; status code is for device status

		export	ext_dev_stat
ext_dev_stat	dc.b	$40		; status command
		dc.b	$03		; pcnt
		dc.b	$00		; unit number must come from DIB
		dc.l	sys_buffer	; status list pointer
		dc.b	$00		; status code is for device status

		export	std_reset
std_reset	dc.b	$04		; control command
		dc.b	$03		; pcnt
		dc.b	$00		; unit number must come from DIB
		dc.w	sys_buffer	; status list pointer
		dc.b	$00		; status code is for device status

		export	ext_reset
ext_reset	dc.b	$40		; control command
		dc.b	$03		; pcnt
		dc.b	$00		; unit number must come from DIB
		dc.l	sys_buffer	; status list pointer
		dc.b	$00		; status code is for device status

		export	std_format
std_format	dc.b	$03		; format command
		dc.b	$01		; pcnt
		dc.b	$00		; unit number must come from DIB

		export	ext_format
ext_format	dc.b	$43		; format command
		dc.b	$01		; pcnt
		dc.b	$00		; unit number must come from DIB

		export	std_eject
std_eject	dc.b	$04		; control command
		dc.b	$03		; pcnt
		dc.b	$00		; unit number must come from DIB
		dc.w	sys_buffer	; status list pointer
		dc.b	$04		; status code is for eject

		export	ext_eject
ext_eject	dc.b	$44		; control command
		dc.b	$03		; pcnt
		dc.b	$00		; unit number must come from DIB
		dc.l	sys_buffer	; status list pointer
		dc.b	$04		; status code is for eject

		export	std_set_dcb
std_set_dcb	dc.b	$04		; control command
		dc.b	$03		; pcnt
		dc.b	$00		; unit number must come from DIB
		dc.w	sys_buffer	; status list pointer
		dc.b	$01		; status code is for set DCB

		export	ext_set_dcb
ext_set_dcb	dc.b	$44		; control command
		dc.b	$03		; pcnt
		dc.b	$00		; unit number must come from DIB
		dc.l	sys_buffer	; status list pointer
		dc.b	$01		; status code is for set DCB

*
* The following tables are used to translate GS/OS driver
* call numbers into ProDOS block device call numbers.
*
		export	pro_trans
pro_trans
		dc.b	$00		; startup -> status
		dc.b	$00		; open    -> status
		dc.b	$01		; read    -> read
		dc.b	$02		; write   -> write
		dc.b	$00		; close   -> status
		dc.b	$00		; status  -> status
		dc.b	$03		; control -> format
		dc.b	$00		; flush   -> status
		dc.b	$00		; shutdn  -> status

		endp
		EJECT
*****************************************************************
*
* The following routine copies data from the system buffer to
* the buffer specified in the call parameter list.
*
* ENTRY:        A Reg = Error code from device
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Unspecified
*             Dir Reg = GS/OS Direct Page
*               P Reg = 16 bit 'm' & 'x'
*                       c = 0 if no error from device
*                       c = 1 if error from device
*
* EXIT:         A Reg = Unchanged
*               X Reg = Unchanged
*               Y Reg = Unchanged
*               B Reg = Unchanged
*             Dir Reg = Unchanged
*               P Reg = Unchanged
*
*****************************************************************
		export	system_to_buf	
system_to_buf	proc
		sec
		bra	buffer_xfer
		

		EJECT
****************************************************************
*
* This routine is used to transfer data from the buffer
* specified in the parameter list to the system buffer.
*
* ENTRY:        A Reg = Unspecified
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Current Program Bank
*             Dir Reg = GSOS Direct Page
*               P Reg = 16 bit 'm' & 'x' native mode
*
* EXIT:         A Reg = Unspecified
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Current Program Bank
*             Dir Reg = GSOS Direct Page
*               P Reg = 16 bit 'm' & 'x' native mode
*
****************************************************************
		export	buf_to_system
buf_to_system             
		longa	on
		longi	on

		clc
buffer_xfer
		php
		pha
		phx
		phy
		phb

		bcc	from_device
		
		pea	sys_buffer>>16	; source is buffer
		pea	sys_buffer
		pei	<drvr_buf_ptr+2	; destination is buffer
		pei	<drvr_buf_ptr
		bra	do_buf_xfer
		
from_device
		pei	<drvr_buf_ptr+2	; source is buffer
		pei	<drvr_buf_ptr
		pea	sys_buffer>>16	; destination is buffer
		pea	sys_buffer

do_buf_xfer
		pea	$0000		; transfer count
		pei	<drvr_blk_size
		pea	move_sinc_dinc	; src incr & dest incr
		jsl	move_info	; go do it to it
		plb
		ply
		plx
		pla
		plp
		rtl

		EJECT
*****************************************************************
*
* The following routine copies the contents of a block that
* resides in the cache to the buffer specified by the driver
* call.
*
* ENTRY:        A Reg = Unspecified
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Unspecified
*             Dir Reg = GS/OS Direct Page
*               P Reg = 16 bit 'm' & 'x'
*
* EXIT:         A Reg = Unspecified
*               X Reg = Same as entry
*               Y Reg = Unspecified
*               B Reg = Same as entry
*             Dir Reg = GS/OS Direct Page
*               P Reg = 16 bit 'm' & 'x'
*
*****************************************************************
		export	cache_to_buff
cache_to_buff
		pei	<drvr_cach_ptr+2 ; source is buffer
		pei	<drvr_cach_ptr
		pei	<drvr_buf_ptr+2	; destination is buffer
		pei	<drvr_buf_ptr
		bra	set_move_cnt	; transfer count

		EJECT
*****************************************************************
*
* The following routine copies the contents of a block that
* resides in the buffer specified by the driver call to the
* cache.
*
* ENTRY:        A Reg = Unspecified
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Unspecified
*             Dir Reg = GS/OS Direct Page
*               P Reg = 16 bit 'm' & 'x'
*
* EXIT:         A Reg = Unspecified
*               X Reg = Same as entry
*               Y Reg = Unspecified
*               B Reg = Same as entry
*             Dir Reg = GS/OS Direct Page
*               P Reg = 16 bit 'm' & 'x'
*
*****************************************************************
		export	buff_to_cache
buff_to_cache
		pei	<drvr_buf_ptr+2	; source is buffer
		pei	<drvr_buf_ptr
		pei	<drvr_cach_ptr+2 ; destination is buffer
		pei	<drvr_cach_ptr
		export	set_move_cnt
set_move_cnt
		pea	$0000		; transfer count
		pei	<drvr_blk_size
		pea	move_sinc_dinc	; src incr & dest incr
		jsl	move_info	; go do it to it
		rtl

		eject
*****************************************************************
*
* The following routine calls the system ID routine.  All
* register outputs reflect the machine ID values returned from
* the rom call except that the processor status will indicate
* Z=0 if the rom version is $01.
*
* ENTRY:        A Reg = Unspecified
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Unspecified
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 x x x  0
*
* EXIT:         A Reg = Unspecified
*               X Reg = Same as entry
*               Y Reg = Unspecified
*               B Reg = Same as entry
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 x 0 x  0 If not rom version 01
*                       x x 0 0 0 x 1 x  0 If rom version 01
*
*****************************************************************
		export	machine_id
machine_id
		longa	on
		longi	on

		sep	#$20		; 8 bit 'm'
		longa	off

		lda	>statereg	; preserve rom select
		pha
		ora	#%00001000	; and select the rom
		sta	>statereg

		rep	#$20		; 16 bit 'm'
		longa	on

		phb
		phk
		plb
		sec
		jsr	$FE1F		; call monitor rom ID routine
		plb
		xba

		sep	#$20		; 8 bit 'm'
		longa	off

		pla			; restore rom selection
		sta	>statereg

		rep	#$20		; 16 bit 'm'
		longa	on

		xba
		and	#$00FF
		cpy	#$0001
		rtl

		endp
		eject
*****************************************************************
*
* This routine is used to dispatch to a routine in any
* language card space based on the LC MODE.
*
* ENTRY: Call via a 'JSL' instruction.....
*
*        Stack prior to 'JSL' is as follows:
*
*                       Byte            ; so address occupies a longword
*                       K               ; dispatch address
*                       PC              ; dispatch address
*                       LC MODE         ; word describing LC where:
*               SP --->                 ;     $0000 = LC bank 0
*                                       ;     $0001 = LC bank 1
*
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*               B Reg = Undefined
*             Dir Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 x x    0
*                                     x     as set by caller
*
* AT DISPATCH TO ROUTINE IN LC:
*
*         Routine is called via a 'JSL' instruction.....
*
*               A Reg = Unchanged
*               X Reg = unchanged
*               Y Reg = unchanged
*               B Reg = unchanged
*             Dir Reg = unchanged
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 x x    0
*                                     x     as set by caller
*
* EXIT:         A Reg = value returned from routine in LC
*               X Reg = value returned from routine in LC
*               Y Reg = value returned from routine in LC
*               B Reg = value returned from routine in LC
*             Dir Reg = value returned from routine in LC
*               P Reg = N V M X D I Z C  E
*                           0 0 0 x x    0
*                       x x                 based on value in A Reg
*                                        x  as set by routine that was called
*
*****************************************************************
		export	lc_dispatcher	
lc_dispatcher	proc
		longa	on
		longi	on

lc_bank		equ	1		; byte - current LC bank
dir_reg		equ	lc_bank+1	; word - direct register on entry
a_reg		equ	dir_reg+2	; word - accumulator on entry
ret_addr	equ	a_reg+2		; addr - who called -1
lc_mode		equ	ret_addr+3	; word - new LC bank
lc_addr		equ	lc_mode+2	; long - address to dispatch to

*
* Change stack to direct page for easy manipulation of parameters
*
		pha			; save environment
		phd
		sep	#$20		; 8 bit 'm'
		longa	off
		lda	>statereg	; set destination LC bank
		pha
		tsc			; change stack into direct page
		tcd
*
* Move LC bank (bit 0 of input word) to bit 2 for hardware
* register manipulation.
*
		lda	#%00000001	; reconfigure mode word
		and	<lc_mode
		php
		asl	a
		asl	a
		plp
		sta	<lc_mode
		lda	>statereg
		and	#%11111011
		ora	<lc_mode
		sta	>statereg
*
* Preset dispatch address
*
		lda	<lc_addr+2
		sta	>lc_jump_addr+3
		rep	#$20		; 16 bit 'm'
		longa	on
		lda	<lc_addr
		sta	>lc_jump_addr+1
*
* Move parameters on stack for easy exit on return from LC.
*
		phx
		ldx	#$0006
clean_stack
		lda	<lc_bank,x
		sta	<ret_addr+1,x
		dex
		dex
		bpl	clean_stack
		plx

		phk			; clean up stack for dispatch
		pla
		pld			; set registers for dispatch
		pla
*
* Dispatch to function resident in LC.
*
		export	lc_jump_addr
lc_jump_addr
		jsl	>$000000	; self modified to destination address
		rep	#$30		; make sure in 16 bit 'm' & 'x'
		longa	on
		longi	on
		sta	5,s		; save registers for return
		tdc
		sta	3,s
		phk			; clean off remaining byte
		pla
		sep	#$20		; 8 bit 'm'
		longa	off
		pla			; restore original LC
		sta	>statereg
		rep	#$20		; 16 bit 'm'
		longa	on
		pld
		pla
		rtl

		endp

		end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/OS/CacheManager/Cache.Src b/IIGS.601.SRC/GS.OS/OS/CacheManager/Cache.Src
new file mode 100644
index 0000000..24bb6b5
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/OS/CacheManager/Cache.Src
@@ -0,0 +1 @@
+		string	asis
		
;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

		ENTRY	add2bktlist
		ENTRY	add_to_free
		ENTRY	addme2lru
		ENTRY	bucket_vp
		ENTRY	c_bytes_free
		ENTRY	c_marker
		ENTRY	c_request_size
		ENTRY	c_temp_1
		ENTRY	c_temp_2
		ENTRY	c_temp_bwd
		ENTRY	c_temp_element
		ENTRY	c_temp_fwd
		ENTRY	c_temp_nvp
		ENTRY	cache_error
		ENTRY	cache_search
		ENTRY	cashseg_end
		ENTRY	current_vp
		ENTRY	d_from_tail
		ENTRY	enuf_room
		ENTRY	getlinks
		ENTRY	head_vp
		ENTRY	is_there_room
		ENTRY	look_in_array
		ENTRY	message_shown
		ENTRY	next_vp
		ENTRY	no_find
		ENTRY	prev_vp
		ENTRY	search_vol_id
		ENTRY	set_cache_ptr
		ENTRY	set_flink_2nil
		ENTRY	show_message
		ENTRY	start_of_data
		ENTRY	tail_vp
		ENTRY	unlink
		ENTRY	unlink_bwd
		ENTRY	update_free
		ENTRY	write_to_disk

		include	'common.equ.src' 
		
;===============================================================================
; cashseg.s
;
; Framework for building load segment cashseg.s
;
;===============================================================================

		longa	on
		longi	on

header_length	equ	$30
cashseg_org	equ	$00a280
cashseg_start	equ	cashseg_org
		

cashseg_header	proc	org		cashseg_org-header_length

		msb	on

		dc.w	cashseg_end-cashseg_start
		dc.l	cashseg_org
		dc.w	$0000
		dc.b	'Caching Manager       v03.00    ' 
		dc.b	00

		msb	off
		endp

		

cashseg_dummy	proc	org	cashseg_org
		endp


;------------------------------------------------------------------------------
; internal notes for gs/os caching routines.  these notes should never be
; separated from the source code, they're listed here in no particular order.
;
; --  entry to each routine is via the system service table, the recognized
; entry points are: cash_init, cash_add, cash_find, cash_delete, cash_del_vol,
; cash_flsh_def and cash_shutdown.  all other routines are used by the
; caching routines and are not known to anyone else.
;
; --  at the start of each entry point are comments describing briefly what
; the routine does, what the inputs are and what the outputs are.  entry and
; exit to each routine is always with full native mode and direct page equal
; to gs/os direct page.
;
; --  cash_init and cash_shutdown are only used by gs/os, applications are
; not allowed to make these calls.
;
; --  the cache size, (always in bytes) is determined by reading battery ram.
; each tick is equal to 32K, if minus then the cache manager will assume 32K.
; if 0 then the cache manager will assume 8K.  8K is about enough to boot the
; system and not much else.
;
; --  the cache manager does not allocate to itself an amount of memory equal
; to the cache size as specified by the user.  instead, the cache manager
; keeps a running byte count of the remaining amount of memory that can be
; used for the cache.  as the cache grows and shrinks, the cache manager updates
; the remaining bytes left in the cache.
;
; --  the cache manager makes no assumptions about the size of the block that
; wants to be cached.  it doesn't even have to be a power of 2.  i'm not sure
; what the behavior of the mike memory manager is when the request for memory
; is greater than his nominal memory size unit.
;
; --  the cache manager obtains memory from the mike memory manager.  (the
; mike memory manager is a custom memory manager for gs/os.)  communications
; to the mike memory manager is by virtual pointers.  vps are sort of like
; handles, pointers are derived from vps by de-referencing them.
;
; --  depending on the state of the system, there can be cases where the cache
; manager cannot get memory even though it's own running byte count says
; there's room.  this usually happens when the system has no more free memory.
;
; --  in front of each cached block is a cache header.  in it are the vital
; pieces of information that is needed to maintain the cache links.
;
; --  there are 2 classes of cached blocks, those that can be automatically
; deleted from the cache list by LRU and those that can't.  the privileged
; cached blocks are also known as deferred blocks.
;
; --  the cache list is doubly linked with a head virtual pointer and a tail
; virtual pointer.  the head_vp always points to the most recently added or
; requested block.  the tail_vp always points to the block that is least
; recently used and that can be deleted because of LRU.  things get a little
; complicated if the tail_vp points to a deferred block.
;
; --  incoming blocks are 'hashed' by 'and'ing away the block number and only
; keeping the low 7 bits.  this will yield a max value of 127.  without looking
; at disk structure, and assuming a fair amount of randomness in block number,
; 'hashing' to one of 128 different values will generally yield a somewhat
; even distribution.  these values are known here as buckets and the cache
; list is also linked by bucket virtual pointers.  there are 128 different
; bucket vps, there are no tail bucket vps.  also maintaining a linked list by
; bucket vps gives the cache manager a very fast scheme of finding or deleting
; a block.  (faster schemes were avoided because of the complexity implementing
; and maintaining it.)
;
; --  when cash_flsh_def (flush deferred blocks) is called, the deferred blocks
; are written to disk in the order they are found in the cache.  no, it doesn't
; meet interleave and it maybe could if the deferred blocks were ordered
; sequentially but it isn't that important here.  the cost in code, time and
; maintaining it isn't worth one pass through the disk.  this call isn't used
; that much and when it is used, no big deal if the heads move back and forth
; a few times.
;
; --  the cache header contains a 2 byte reserved field that is currently used
; to number the incoming block.  it can be used for other things if you want.
;
; --  there is some amount of memory that is used by the cache manager so the
; user won't get 32K worth of cached blocks if he specified a 32K cache.  he'll
; get about 29K depending on block size.  this is rather obscure but worth
; mentioning and rather difficult to notice by the user.
;
; -- Jan 25, 1988  R.T.
;
;    Changed CASH_DEV_VOL.  The routine did not delete deferred blocks.  The
;    routine now will delete both reqular blocks as well as deferred blocks.
;    files changed:  'caching/scache1'
;
; -- Jan 26, 1988  R.T.
;
;    Changed CASH_DEV_VOL.  The routine will now tell the user that the volume
;    may be damaged if a deferred block is deleted.
;    files changed:  'caching/scache1' -> added a routine called 'show_message'
;                    'caching/scache2' -> added 'message_shown' to data area
;
; -- Mar 22, 1988  R.T.
;
;    Changed CASH_DEL_VOL.  The routine will now delete ALL non-deferred
;    blocks if both the device number and fst number are set to zero.
;    The routine will now check the deferred bit when removing blocks by
;    fst number.
;    files changed:  'caching/scache1'
;
; -- Jan 30, 1989  R.T.
;
;    added auto_flush_handler:
;		This routine will check to see if sessions are enabled.  If
;		they are then I will issue a stop session call and then
;		re-enable them.
;
; -- Feb 28, 1989  B.P.A
;
;    Changed cashseg_org from $a200 to $a280 to give SCM some more room to
;    grow.  Added cache_overflow proc at end of code to check for code
;    overflowing its space (will generate an error at link time).
;
; -- Mar 08, 1989  G.R.T
;
;    The Cache Manager now adds itself to the OutOfMemory Queue.  If I am
;    called, I will do a reset_cache to the OS then return with the
;    new bytes free count.
;
; -- Jun 05, 1989  G.R.T and B.P.A. and M.S.A
;
;     Fixed a bug in Cash_Del_Vol.  The routine was not doing a deref call
;     for the bucket table.  This caused a problem if compact memory was
;     called Vault.
;
; -- 9/14/89 Mensch and B.P.A.
;
; 	Added a deref_bucket to the start of shutdown_cache in case the only cache
; 	block is that. This is to fix a reset_cache system death bug.
;
;
; Copyright (c) 1987 Apple Computer Inc. All rights reserved.
; author: Ray (Rowdy Yates) Chiang
;------------------------------------------------------------------------------
;Revisions
		EXPORT	cash_notes	
cash_notes	PROC

		ENDP
		
;-----------------------------------------------------------------------------
; Deref_bucket:
;		This routine will deref the bucket table VP and setup
;		cache_bkt_ptr
;
;
;
; inputs: A = don't care                outputs: A = trashed
;         X = don't care			 X = trashed
;         Y = don't care                         Y = trashed
;         D = gs/os direct page                  D = i didn't change it
;         B = don't care                         B = preserved
;         K = don't care                         K = preserved
;    LCbank = don't care                    LCbank = i didn't change it 
;
; Copyright (c) 1987,1988,1989 Apple Computer Inc. All rights reserved.
; author: Rob Turner
;-----------------------------------------------------------------------------

Deref_bucket	proc
		php
		phx
		phy
		
		ldx	bucket_vp
		ldy	bucket_vp+2
		jsl	deref		;deref this for real pointing
		stx	<cache_bkt_ptr
		sty	<cache_bkt_ptr+2
		
		ply
		plx
		plp
		
		rts
		endp

;-----------------------------------------------------------------------------
; curr_vp_to_ptr:
;		This routine will set current_vp then deref current VP
;		and store the result in cache_cur_ptr
;
;
;
; inputs: A = don't care                outputs: A = trashed
;         X = vp low				 X = trashed
;         Y = vp high                            Y = trashed
;         D = gs/os direct page                  D = i didn't change it
;         B = don't care                         B = preserved
;         K = don't care                         K = preserved
;    LCbank = don't care                    LCbank = i didn't change it 
;
; Copyright (c) 1987,1988,1989 Apple Computer Inc. All rights reserved.
; author: Rob Turner
;-----------------------------------------------------------------------------

curr_vp_to_ptr	proc
		stx	current_vp
		sty	current_vp+2
		export	XY_to_cur_ptr
XY_to_cur_ptr
		jsl	deref
		stx	<cache_cur_ptr
		sty	<cache_cur_ptr+2
		rts
		endp
		
;-----------------------------------------------------------------------------
; auto_flush_handler:
;		This routine will check to see if sessions are enabled.  If
;		they are then I will issue a stop session call and then
;		re-enable them.
;
;
;
; inputs: A = don't care                outputs: A = trashed
;         X = don't care                         X = trashed
;         Y = don't care                         Y = trashed
;         D = gs/os direct page                  D = i didn't change it
;         B = don't care                         B = preserved
;         K = don't care                         K = preserved
;    LCbank = don't care                    LCbank = i didn't change it 
;
; Copyright (c) 1987,1988,1989 Apple Computer Inc. All rights reserved.
; author: Rob Turner
;-----------------------------------------------------------------------------

auto_flush_handler proc
		import	in_queue
		
		phk
		plb
		
		jsl	$e100a8
		dc.w	$201f		;get the current sessions flag
		dc.l	get_session
		
		lda	session_state
		and	#$0001		;clear all other bits
		beq	@no_sessions
		
		jsl	$e100a8		;now do a stop session call please
		dc.w	$201E
		dc.l	session_list
		
		jsl	$e100a8
		dc.w	$201d		;turn the session back on please
		dc.l	session_list
		
@no_sessions
		stz	in_queue	;indicate that we have ran
		rtl

get_session	dc.w	$01		;PCount
session_state	dc.w	00

session_list	dc.w	$0000

		endp

;-----------------------------------------------------------------------------
; CASH_INIT -- initializes the cache
;
; This routine will try to initialize the cache.  Memory as needed by the
; cache is obtained from the Mike Memory Manager.  The size of the cache is
; determined by looking at battery ram.  Once this is read, changing the
; value in battery ram will not change the size of the cache.  The cache size
; cannot be changed on the fly unless you're SSSPECIAL !!!
;
; Input and output is passed to this routine by GS/OS direct page and full
; native mode is always assumed.
;
; inputs: A = don't care                outputs: A = trashed
;         X = don't care                         X = trashed
;         Y = don't care                         Y = trashed
;         D = gs/os direct page                  D = i didn't change it
;         B = don't care                         B = preserved
;         K = don't care                         K = preserved
;    LCbank = don't care                    LCbank = i didn't change it 
;
; on output: c = 0 means no error, the block is cached
;            c = 1 means something screwed up, the block's not cached
;
; Copyright (c) 1987 Apple Computer Inc. All rights reserved.
; author: Ray (Rowdy Yates) Chiang
;-----------------------------------------------------------------------------

		EXPORT	cash_init	
cash_init	PROC
		import	c_data_len

		phb			;save caller's data bank
		phk
		plb			;set data bank to ourspace

		ldx	#c_data_len	;number of bytes to zero
cash_i00	stz	start_of_data,x
		dex
		dex
		bpl	cash_i00

;-----------------------------------------------------------------------------
; we need a segment of memory for holding the bucket vps.  since there will be
; 128 buckets and each bucket will contain a bucket vp, the memory request
; will be 512 bytes.
;-----------------------------------------------------------------------------

		lda	#$0200		;size of request, in bytes
		sta	c_request_size	;save this for later
		sec			;we want it zeroed
		jsl	alloc_seg	;try to get it from mr. mike
		bcc	cash_i01	;skip if no problem
		jmp	cache_error	;damn, couldn't get memory

cash_i01	stx	bucket_vp
		sty	bucket_vp+2	;save vp to bucket array

;-----------------------------------------------------------------------------
; read battery ram to find the user selected cache size.  each tick equals
; 32K. (max size = 4M - 32K)  normal battery ram is $ff, if the value read
; is $ff then we'll pretend it's a 1.  if the value read is 0, then the
; ram cache size will be about 16K, enough to boot, not much more.
;-----------------------------------------------------------------------------

		pea	$0000		;push space for result
		pea	ram_cache_size	;location of cache size
		ldx	#$0c03		;read battery parameter
		jsl	$e10000		;ain't no error possible
		pla			;get cache size, low only
		and	#$00ff		;make sure to only keep low byte
		beq	cash_i02	;skip if 0, user wants no cache
		cmp	#$00ff
		beq	cash_i03	;skip if $ff, pretend it's 1
		clc
		ror	a
		bcc	cash_i01a	;skip if c = 0, even number of 32Ks
		ldx	#$0080		;32K
		stx	c_bytes_free+1	;take care of odd

cash_i01a	sta	c_bytes_free+2	;take care of even
		bra	cash_i05

cash_i02	lda	#default_cache_size
		bra	cash_i04

cash_i03	lda	#$0080		;32K
cash_i04	sta	c_bytes_free+1	;size of total cache in bytes

; subtract bucket array size from total bytes free

cash_i05	jmp	update_free

		ENDP
;-----------------------------------------------------------------------------
; CASH_ADD -- adds a block to the cache
;
; This routine will try to add the requested block into the cache.  It's
; position within the LRU and bucket chain will be at the start of the list.
; In the event there is not enough room in the cache, the last recently used
; block(s) will be purged until there is enough room for the requested block.
;
; Input and output is passed to this routine by GS/OS direct page and full
; native mode is always assumed.
;
; inputs: A = don't care                outputs: A = trashed
;         X = don't care                         X = trashed
;         Y = don't care                         Y = trashed
;         D = gs/os direct page                  D = i didn't change it
;         B = don't care                         B = preserved
;         K = don't care                         K = preserved
;    LCbank = don't care                    LCbank = i didn't change it 
;
; on output: c = 0 means no error, the block is cached
;            c = 1 means something screwed up, the block's not cached
;
; Copyright (c) 1987 Apple Computer Inc. All rights reserved.
; author: Ray (Rowdy Yates) Chiang
;-----------------------------------------------------------------------------

		EXPORT	cash_add	
cash_add	PROC
					;using   common_equ
					;using   cache_data

		phb			;save caller's data bank
		phk
		plb			;set data bank to ourspace
		jsr	deref_bucket	;Deref the bucket table and setup cache_bkt_ptr

; always assume it ain't there, but see if there's enough room first

cash_a00	clc
		lda	<drvr_blk_size	;get requested block size
		adc	#c_headerlen	;add to size of cache header
		sta	c_request_size	;save this for later
		jsr	enuf_room	;check for space free
		bcc	cash_a01	;skip if there's room for it
		bra	cash_a02	;something's wrong

cash_a01	lda	c_request_size	;get the size we want
;               clc                     ;we don't want it zeroed
		jsl	alloc_seg	;ask for this amount from mike
		bcc	cash_a03	;skip if we got it
cash_a02	jmp	cache_error	;damn! couldn't get the memory

; add this cache cell to the start of the LRU chain

cash_a03	jsr	addme2lru

; add this cache cell to the start of the bucket chain

		jsr	add2bktlist
		bcs	cash_a02	;error from mike

; now fill in the rest of the cache header information

		ldy	#c_blknum	;point to block number, lo
		lda	<drvr_blk_num
		sta	[<cache_cur_ptr],y
		iny
		iny			;point to block number, hi
		lda	<drvr_blk_num+2
		sta	[<cache_cur_ptr],y

		iny
		iny			;point to block size
		lda	<drvr_blk_size
		sta	[<cache_cur_ptr],y

		iny
		iny			;point to FST number
		lda	<drvr_fst_num
		sta	[<cache_cur_ptr],y

		iny
		iny			;point to volume id
		lda	<drvr_vol_id
		sta	[<cache_cur_ptr],y

		iny
		iny			;point to device number
		lda	<drvr_dev_num
		sta	[<cache_cur_ptr],y

		iny
		iny			;point to cache priority
		lda	<drvr_cache
		sta	[<cache_cur_ptr],y

		iny
		iny			;point to cell size
		lda	c_request_size
		sta	[<cache_cur_ptr],y

; the following is only for debugging purposes . . .

		iny
		iny			;point to reserved field
		inc	c_marker
		lda	c_marker
		sta	[<cache_cur_ptr],y
		iny
		iny
		sta	[<cache_cur_ptr],y

		jsr	set_cache_ptr	;set drvr_cach_ptr before returning

; update bytes free and we're done.

		EXPORT	update_free
update_free				;               
		sec
		lda	c_bytes_free
		sbc	c_request_size
		sta	c_bytes_free

		lda	c_bytes_free+2
		sbc	#$0000
		sta	c_bytes_free+2	;4 byte subtract

		plb
		clc
		rtl

		ENDP
;-----------------------------------------------------------------------------
; CASH_FIND -- finds a block in the cache
;
; This routine will try to find the requested block in the cache.  If it's
; found, it'll be moved to the start of the LRU chain and a 4 byte pointer will
; be returned pointing to the start of the requested block.  The bucket links
; will not be moved.
;
; Input and output is passed to this routine by GS/OS direct page and full
; native mode is always assumed.
;
; on input: c = 0 means look for the block
;           c = 1 means look for vol_id and deferred bit
;
; inputs: A = vol_id if c=1             outputs: A = trashed
;         X = don't care                         X = trashed
;         Y = don't care                         Y = trashed
;         D = gs/os direct page                  D = i didn't change it
;         B = don't care                         B = preserved
;         K = don't care                         K = preserved
;    LCbank = don't care                    LCbank = i didn't change it 
;
; on output: c = 0 means no error, the block is in the cache or vol_id found
;            c = 1 means something screwed up or the block's not in the cache
;                  or vol_id not found
;
; Copyright (c) 1987 Apple Computer Inc. All rights reserved.
; author: Ray (Rowdy Yates) Chiang
;-----------------------------------------------------------------------------

		EXPORT	cash_find	
cash_find	PROC
					;using   common_equ
					;using   cache_data

		phb			;save caller's data bank
		phk
		plb			;set data bank to ourspace

		bcc	cash_fff	;skip if we're looking for a block
		jsr	search_vol_id	;we're looking for vol_id
		plb			;pull to balance the stack
		rtl			;result in c

; if we came from cash_flsh_def then we want to skip this

cash_fff	ldx	no_find		;non 0 means we want to skip this
		bne	cash_fff0
		jsr	cache_search	;locate the requested block
		bcc	cash_fm00	;skip if we found it
cash_fff0	jmp	cache_error	;error, no can find

; if we're in deferred mode and the block ain't, then correct for this

cash_fm00	ldy	#c_priority	;offset to priority field
		lda	[<cache_cur_ptr],y
		tax			;save for later
		bmi	cash_f00	;skip if deferred bit set
		lda	<drvr_cache	;are we deferred mode now ?
		bpl	cash_f00	;skip if no
		txa			;bring a back
		ora	#$8000		;make this block deferred
		sta	[<cache_cur_ptr],y ;this guy's deferred

		lda	<drvr_vol_id
		ldy	#c_volumeid
		sta	[<cache_cur_ptr],y

; pull out both LRU links into next_vp and prev_vp

cash_f00	ldx	#c_lru_bwd
		ldy	#c_lru_fwd
		jsr	getlinks	;prev_vp in x and y

		tya
		bne	cash_f01	;skip if hi backlink <> 0
		txa
		bne	cash_f01	;skip if lo backlink <> 0

; backlink = 0, cache cell is at the start of list, ain't much left to do

		bra	cash_f04

; backlink <> 0, check forward link to see if cache cell is at the end

cash_f01	lda	next_vp
		bne	cash_f02	;skip if hi forward link <> 0
		lda	next_vp+2
		bne	cash_f02	;skip if hi forward link <> 0

; forward link = 0, cache cell is at end of list, update tail_vp
; prev_vp is still in x and y

		stx	tail_vp
		sty	tail_vp+2
		lda	#c_lru_fwd
		jsr	set_flink_2nil	;set forward link to nil
		bra	cash_f03

; backlink and forward link are both <> 0, the cache cell is somewhere in
; the middle of the list.  the head_vp and tail_vp aren't used here.  unlink
; the LRU links of the current cell by joining the previous and next cells
; together.

cash_f02	ldx	#c_lru_bwd
		ldy	#c_lru_fwd
		jsr	unlink

; the current cache cell has been LRU unlinked.  reattach the LRU links at
; the start of the LRU chain.

cash_f03	ldx	current_vp
		ldy	current_vp+2
		jsr	addme2lru

; last thing to do is return the pointer to the cached block

cash_f04	jsr	set_cache_ptr	;set drvr_cach_ptr before returning

cash_f05	plb			;restore caller's data bank
		clc			;indicate no error
		rtl
		ENDP

;-----------------------------------------------------------------------------
; CASH_DELETE -- deletes (purges) a block from the cache
;
; This routine will try to delete the requested block from the cache.  If
; entry to this routine is via cache_xdelete then we don't have to look for
; the block before deleting it, the block is pointed to by current_vp.
;
; Input and output is passed to this routine by GS/OS direct page and full
; native mode is always assumed.
;
; inputs: A = don't care                outputs: A = trashed
;         X = don't care                         X = trashed
;         Y = don't care                         Y = trashed
;         D = gs/os direct page                  D = i didn't change it
;         B = don't care                         B = preserved
;         K = don't care                         K = preserved
;    LCbank = don't care                    LCbank = i didn't change it 
;
; on output: c = 0 means no error, the block has been deleted from the cache
;            c = 1 means something screwed up or the block's not in the cache
;
; Copyright (c) 1987 Apple Computer Inc. All rights reserved.
; author: Ray (Rowdy Yates) Chiang
;-----------------------------------------------------------------------------

		EXPORT	cash_delete	
cash_delete	PROC
					;using   common_equ
					;using   cache_data

		phb			;save caller's data bank
		phk
		plb			;set data bank to ourspace
		bra	cash_dxxx	;skip over other entry point

		EXPORT	cache_xdelete
cache_xdelete				;               
		phb			;save caller's data bank
		phk
		plb			;set data bank to ourspace
		bra	cash_d00	;jump into it

cash_dxxx	jsr	cache_search	;locate the requested block
		bcc	cash_d00	;skip if we found it
		jmp	cache_error	;error, no can find

;-----------------------------------------------------------------------------
; remove this cache cell from the LRU chain
;-----------------------------------------------------------------------------

; pull out both LRU links into next_vp and prev_vp, we'll need them later

cash_d00	ldx	#c_lru_bwd
		ldy	#c_lru_fwd
		jsr	getlinks	;prev_vp in x and y

; if we happen to come in from xdelete, then we need to keep around the value
; of next_vp.  removing by bucket will destroy this.

		lda	next_vp
		sta	c_temp_nvp
		lda	next_vp+2
		sta	c_temp_nvp+2

		tya
		bne	cash_d02	;skip if hi backlink <> 0
		txa
		bne	cash_d02	;skip if lo backlink <> 0

; backlink = 0, cache cell is at the start of list.  if forward link = 0 then
; we have a single cell cache.  x is still 0.

		cpx	next_vp
		bne	cash_d01	;skip if lo forward link <> 0
		cpx	next_vp+2
		bne	cash_d01	;skip if hi forward link <> 0

; forward link is also = 0, we have a single cell cache.

		stz	head_vp		;x is 0 from above
		stz	head_vp+2
		stz	tail_vp
		stz	tail_vp+2
		jmp	cash_dd00a

; forward link is not = 0, but the backlink is still = 0

cash_d01	ldx	next_vp
		stx	head_vp
		ldx	next_vp+2
		stx	head_vp+2	;head_vp now points to 2nd cell

		ldx	#c_lru_bwd
		stx	c_temp_bwd
		jsr	unlink_bwd	;unlink backward link
		bra	cash_dd00

; backlink <> 0, check forward link to see if cache cell is at the end

cash_d02	lda	next_vp
		bne	cash_d03	;skip if lo forward link <> 0
		lda	next_vp+2
		bne	cash_d03	;skip if hi forward link <> 0

; forward link = 0, cache cell is at end of list.  prev_vp is still in x and y

		stx	tail_vp
		sty	tail_vp+2	;tail_vp now points to 2nd from last

		lda	#c_lru_fwd
		jsr	set_flink_2nil	;set forward link to nil
		bra	cash_dd00

; backlink and forward link are both <> 0, the cache cell is somewhere in
; the middle of the list.  the head_vp and tail_vp aren't used here.  unlink
; the LRU links of the current cell by joining the previous and next cells
; together.

cash_d03	ldx	#c_lru_bwd
		ldy	#c_lru_fwd
		jsr	unlink

; the current cache cell has been LRU unlinked.

;-----------------------------------------------------------------------------
; remove this cache cell from the bucket chain
;-----------------------------------------------------------------------------

; pull out both bucket links into next_vp and prev_vp, we'll need them later

cash_dd00	ldx	#c_bkt_bwd
		ldy	#c_bkt_fwd
		jsr	getlinks	;prev_vp in x and y

		tya
		bne	cash_dd01	;skip if hi backlink <> 0
		txa
		bne	cash_dd01	;skip if lo backlink <> 0

; backlink = 0, cache cell is at the start of list.  if forward link = 0 then
; we have a single cell cache.  x is still 0.

		cpx	next_vp
		bne	cash_dd00b	;skip if lo forward link <> 0
		cpx	next_vp+2
		bne	cash_dd00b	;skip if hi forward link <> 0

; forward link is also = 0, we have a single cell bucket list

cash_dd00a	ldy	#c_blknum
		lda	[<cache_cur_ptr],y ;get block number, lo
		and	#$007f		;keep low 7 bits
		asl	a
		asl	a		;multiply by 4 to make into index
		tay
		txa			;set acc to 0
		sta	[<cache_bkt_ptr],y
		iny
		iny
		sta	[<cache_bkt_ptr],y
		bra	cash_dd03	;we done

; forward link is not = 0, but backlink is still = 0

cash_dd00b	ldy	#c_blknum
		lda	[<cache_cur_ptr],y ;get block number, lo
		and	#$007f		;keep low 7 bits
		asl	a
		asl	a		;multiply by 4 to make into index
		tay
		lda	next_vp
		sta	[<cache_bkt_ptr],y
		iny
		iny
		lda	next_vp+2
		sta	[<cache_bkt_ptr],y

		ldx	#c_bkt_bwd
		stx	c_temp_bwd
		jsr	unlink_bwd	;unlink backward link
		bra	cash_dd03

; backlink <> 0, check forward link to see if cache cell is at the end

cash_dd01	lda	next_vp
		bne	cash_dd02	;skip if hi forward link <> 0
		lda	next_vp+2
		bne	cash_dd02	;skip if hi forward link <> 0

; forward link = 0, cache cell is at end of list.  prev_vp is still in x and y

		lda	#c_bkt_fwd
		jsr	set_flink_2nil	;set forward link to nil
		bra	cash_dd03

; backlink and forward link are both <> 0, the cache cell is somewhere in
; the middle of the list.  unlink the bucket links of the current cell by
; joining the previous and next cells together.

cash_dd02	ldx	#c_bkt_bwd
		ldy	#c_bkt_fwd
		jsr	unlink

; the current cache cell has been bucket unlinked.  now give it back to mike.
; also, update the free byte count

cash_dd03	jsr	add_to_free	;add this amount to free byte count

		ldx	current_vp
		ldy	current_vp+2
		jsl	release_seg	;try to give it back to mike
		bcc	cash_dd04	;skip if no problem
		jmp	cache_error	;damn, couldn't give it back

cash_dd04	plb			;restore caller's data bank
		clc			;indicate no error
		rtl
		ENDP

;-----------------------------------------------------------------------------
; CASH_DEL_VOL -- deletes (purges) a volume's block(s) from the cache
;
; This routine will try to delete all blocks belonging to the requested
; device number from the cache.  If the device number = 0 then all blocks
; of all device numbers of the specified FST will be deleted.  If both
; device number and fst number are zero all blocks that are not deferred
; will be deleted.
;
; Input and output is passed to this routine by GS/OS direct page and full
; native mode is always assumed.
;
; inputs: A = don't care                outputs: A = trashed
;         X = don't care                         X = trashed
;         Y = don't care                         Y = trashed
;         D = gs/os direct page                  D = i didn't change it
;         B = don't care                         B = preserved
;         K = don't care                         K = preserved
;    LCbank = don't care                    LCbank = i didn't change it 
;
; on output: c = 0 means no error, the volume's block(s) are deleted
;            c = 1 means something screwed up, the blocks may still be cached
;
; Copyright (c) 1987 Apple Computer Inc. All rights reserved.
; author: Ray (Rowdy Yates) Chiang
;-----------------------------------------------------------------------------

		EXPORT	cash_del_vol	
cash_del_vol	PROC
					;using   common_equ
					;using   cache_data

		phb			;save caller's data bank
		phk
		plb			;set data bank to ourspace
		
		jsr	deref_bucket	;Deref the bucket table and setup cache_bkt_ptr

		stz	message_shown	;reset flag. Flag used to tell user
					;that a deferred block has been flushed

		ldy	<drvr_dev_num
		sty	c_temp_2	;assume we're deleting by device number

		ldy	<drvr_fst_num
		ldx	#c_devnum
		lda	<drvr_dev_num
		bne	cash_dv00	;skip if we're deleting by device #
		sty	c_temp_2	;        we're deleting by FST
		ldx	#c_fstnum
cash_dv00	stx	c_temp_1

		ldy	head_vp+2
		sty	next_vp+2
		ldx	head_vp
		stx	next_vp		;start this mess from the head
		bra	cash_dv03	;check for 0 first

cash_dv01	stx	current_vp
		ldy	next_vp+2
		sty	current_vp+2

		jsr	curr_vp_to_ptr	;convert the current VP to a real pointer

		lda	c_temp_2	;delete all non-deferred blocks?
		beq	do_all_please

		ldy	c_temp_1
		lda	[<cache_cur_ptr],y
		cmp	c_temp_2	;equal ?
		bne	cash_dv04	;nope

; only pick out the non-deferred blocks

;                ldx     c_temp_1
;                cpx     #c_fstnum       ;are we deleting by fst number ?
;                beq     cash_dv01a      ;yes, don't worry about deferred stuff

;===========================================================================
;
; We no longer skip deferred blocks.  They get kicked out along with
; other blocks on the device. By Rob Turner 1/25/88
;
;===========================================================================
do_all_please				; 
		ldy	#c_priority
		lda	[<cache_cur_ptr],y
		bpl	cash_dv01a	;Block is not deferred

		lda	c_temp_2	;removing all non-deferred blocks?
		beq	cash_dv04	;yes, so skip this block

		bit	message_shown	;have we told the user about damage?
		bmi	cash_dv01a	;Yes!

		jsr	show_message	;tell the user
		dec	message_shown

;
; we've located a block for deletion
;
cash_dv01a	jsl	cache_xdelete	;delete this guy
		bcc	cash_dv02	;skip if no error
		jmp	cache_error	;i don't know why

cash_dv02	lda	c_temp_nvp	;restore next_vp
		sta	next_vp
		lda	c_temp_nvp+2
		sta	next_vp+2

cash_dv03	ldx	next_vp
		bne	cash_dv01	;skip if <> 0
		ldy	next_vp+2
		bne	cash_dv01	;skip if <> 0
		bra	cash_dv05	;it's 0, we done deleting

; it's not this cell, follow forward link and try again.

cash_dv04	ldy	#c_lru_fwd
		lda	[<cache_cur_ptr],y
		tax			;low link in x
		iny
		iny
		lda	[<cache_cur_ptr],y
		sta	next_vp+2
		tay			;hi link in y
		bne	cash_dv01	;y <> 0, loop
		txa
		bne	cash_dv01	;x <> 0, loop

; the forward link is 0, we're all done here.

cash_dv05	plb			;restore caller's data bank
		clc			;indicate no error
		rtl
		ENDP

;-----------------------------------------------------------------------------
;Show_Message:  This routine will tell the user that the volume is
;               possible damaged.
;-----------------------------------------------------------------------------

		EXPORT	show_message	
show_message	PROC
					;using   common_equ
					;using   cache_data

		lda	<cache_cur_ptr+2
		pha			;save the zeropage pointer
		lda	<cache_cur_ptr
		pha

		ldy	#c_volumeid	;get the volume id please
		lda	[<cache_cur_ptr],y
		beq	end_show	;major problem

		jsl	find_vcr	;go and get the vcr ptr
		bcs	end_show	;major problem
		
		jsr	XY_to_cur_ptr	;deref X and Y & setup cache_cur_ptr with real address.

		ldy	#vcr_name	;index to volume name
		lda	[<cache_cur_ptr],y
		tax
		iny
		iny
		lda	[<cache_cur_ptr],y
		tay
		jsr	XY_to_cur_ptr	;deref X and Y & setup cache_cur_ptr with real address.

		lda	[<cache_cur_ptr]
		xba			;convert length word to length byte
		sta	[<cache_cur_ptr]

		pea	$0010		;error message number
		ldx	<cache_cur_ptr+2
		lda	<cache_cur_ptr	;low word of address
		inc	a		;point to length byte
		bne	high_ok
		inx			;advance the bank address
high_ok					; 
		phx			;high word
		pha			;low word

		pha			;garbage
		pha
		jsl	report_error

		lda	[<cache_cur_ptr]
		xba			;convert length byte to length word
		sta	[<cache_cur_ptr]

end_show				; 
		pla
		sta	<cache_cur_ptr
		pla
		sta	<cache_cur_ptr+2
		rts
		ENDP
;-----------------------------------------------------------------------------
; CASH_FLSH_DEF -- write to disk the deferred cache block(s)
;
; This routine will try to write to disk the deferred cache blocks belonging
; to a specific volume id.  After being written to disk, these deferred cache
; blocks will be downgraded to regular cache blocks.
;
; Input and output is passed to this routine by GS/OS direct page and full
; native mode is always assumed.
;
; inputs: A = don't care                outputs: A = trashed
;         X = don't care                         X = trashed
;         Y = don't care                         Y = trashed
;         D = gs/os direct page                  D = i didn't change it
;         B = don't care                         B = preserved
;         K = don't care                         K = preserved
;    LCbank = don't care                    LCbank = i didn't change it 
;
; on output: c = 0 means no error, the volume ids deferred blocks have been
;                  written to disk
;            c = 1 means something screwed up, couldn't write to disk all
;                  deferred blocks of the given volume id
;
; Copyright (c) 1987 Apple Computer Inc. All rights reserved.
; author: Ray (Rowdy Yates) Chiang
;-----------------------------------------------------------------------------

		EXPORT	cash_flsh_def	
cash_flsh_def	PROC
					;using   common_equ
					;using   cache_data

		phb			;save caller's data bank
		phk
		plb			;set data bank to ourspace

		jsr	deref_bucket	;Deref the bucket table and setup cache_bkt_ptr

		ldx	<drvr_cache	;get this
		phx			;save this for later
		stz	<drvr_cache

;-----------------------------------------------------------------------------
;
;-----------------------------------------------------------------------------

		ldx	head_vp		;start this mess from the head
		ldy	head_vp+2

cfd_00
		jsr	curr_vp_to_ptr	;convert the current VP to a real pointer

;-----------------------------------------------------------------------------
; we can only write out cell(s) that are deferred.  we may have to walk the
; entire list to find it but we know it's there.
;-----------------------------------------------------------------------------

		ldy	#c_priority
		lda	[<cache_cur_ptr],y ;get this cell's priority
		bmi	cfd_02		;skip if deferred

cfd_00a		ldy	#c_lru_fwd
		lda	[<cache_cur_ptr],y
		iny
		iny
		tax			;save backward vp link, lo
		bne	cfd_01		;skip if not 0

		lda	[<cache_cur_ptr],y
		beq	cash_fd09	;we found a vp of $0000

cfd_01		lda	[<cache_cur_ptr],y
		tay			;save backward vp link, hi
		bra	cfd_00		;loop for next cell

; if we get here then we found a deferred block, check for volume id

cfd_02		ldy	#c_volumeid
		lda	[<cache_cur_ptr],y ;get volume id
		cmp	<drvr_vol_id	;same ?
		bne	cfd_00a		;no, check next cell

; if we get here then we found a match, write this puppy out

		inc	no_find		;disable find routine
		jsr	write_to_disk	;write this block to disk
		bcs	cash_fd09	;this wasn't expected

; if we get here then the writes okay and now turn off deferred status

		ldy	#c_priority
		lda	[<cache_cur_ptr],y
		and	#$7fff		;turn off bit 15
		sta	[<cache_cur_ptr],y
		bra	cfd_00a		;loop to find next one if any

cash_fd09	stz	no_find		;re-enable find routine
		plx			;restore drvr_cache
		stx	<drvr_cache
		plb			;restore caller's data bank
		clc			;indicate no error
		rtl

		ENDP
;-----------------------------------------------------------------------------
; CASH_SHUTDOWN -- shutdown the cache
;
; This routine will try to shutdown the cache by deleting each entry one at a
; time.  The LRU list will be used for deletion, the bucket lists will not be
; used nor updated.  The state of the cache is unknown if there's an error.
;
; Input and output is passed to this routine by GS/OS direct page and full
; native mode is always assumed.
;
; inputs: A = don't care                outputs: A = trashed
;         X = don't care                         X = trashed
;         Y = don't care                         Y = trashed
;         D = gs/os direct page                  D = i didn't change it
;         B = don't care                         B = preserved
;         K = don't care                         K = preserved
;    LCbank = don't care                    LCbank = i didn't change it 
;
; on output: c = 0 means no error, the cache has been shutdown
;            c = 1 means something screwed up, the cache is unreliable now
;
; Copyright (c) 1987 Apple Computer Inc. All rights reserved.
; author: Ray (Rowdy Yates) Chiang
;-----------------------------------------------------------------------------

		EXPORT	cash_shutdown	
cash_shutdown	PROC
					;using   common_equ
					;using   cache_data

		phb			;save caller's data bank
		phk
		plb			;set data bank to ourspace
		jsr	deref_bucket	;Deref the bucket table and setup cache_bkt_ptr

		bra	cash_sd01

cash_sd00	jsr	d_from_tail	;delete one from the tail
		bcc	cash_sd01	;skip if no problem
		jmp	cache_error	;not suppose to happen

cash_sd01	ldx	tail_vp
		bne	cash_sd00	;head <> 0, at least 1 cell left
		ldy	tail_vp+2
		bne	cash_sd00	;head <> 0, at least 1 cell left

; lastly, get rid of the bucket array

		ldx	bucket_vp
		ldy	bucket_vp+2
		jsl	release_seg
		bcc	cash_sd02	;skip if no problem
		jmp	cache_error	;mike's got a problem

cash_sd02
		Import	Cache_out_of_Queue
		jsr	Cache_out_of_Queue
		plb			;restore caller's data bank
		clc			;indicate no error
		rtl

		ENDP
;-----------------------------------------------------------------------------

		EXPORT	cache_misc	
cache_misc	PROC
					;using   common_equ
					;using   cache_data

;-----------------------------------------------------------------------------
; ENUF_ROOM -- checks for space remaining in cache
;
; This routine will check the cache free space to see if there's enough room
; for adding another cell into the chain.  If there's not enough room then
; LRU will be invoked and cells will be deleted until there's enough room for
; the requested block.
;
; inputs: A = cell size                 outputs: A = trashed
;         X = don't care                         X = trashed
;         Y = don't care                         Y = trashed
;         D = gs/os direct page                  D = i didn't change it
;         B = don't care                         B = preserved
;         K = don't care                         K = preserved
;    LCbank = don't care                    LCbank = i didn't change it 
;
; on output: c = 0 means no error, there's enough room for the request size
;            c = 1 means something screwed up, it's probably mike's fault
;
; Copyright (c) 1987 Apple Computer Inc. All rights reserved.
; author: Ray (Rowdy Yates) Chiang
;-----------------------------------------------------------------------------

		EXPORT	enuf_room
enuf_room				;               
		import	in_queue
		
		jsr	is_there_room	;is there room for something ?
		bcs	enuf_02		;there's enough room

		lda	tail_vp
		bne	enuf_00		;skip if not 0
		lda	tail_vp+2
		bne	enuf_00		;skip if not 0

; there isn't enough room yet, the tail_vp is 0, something is all screwed up.
; Or sessions are enabled and the cache is full.  If this is the case
; then I will do an end session and flush the word.
;

put_in_queue	lda	in_queue	;lets see if we have queued up to check for sessions
		bmi	@already_in
		
		lda	#$FFFF
		sta	in_queue	;do not add to the queue until I have ran once

		lda	#$0001		;priority 1
		ldx	#auto_flush_handler
		ldy	#^auto_flush_handler
		jsl	signal		;add in our signal handler
@already_in
		sec			;this should never happen
		rts

; there ain't enough room to cache the requested cell.  enforce LRU until
; there's enough room or error whichever is first.

enuf_00		jsr	d_from_tail	;delete one from the tail
		bcc	enuf_room	;skip if no problem
		bcs	put_in_queue	;let error migrate up

enuf_02		clc
		rts

;-----------------------------------------------------------------------------
; ADDME2LRU -- adds a block to the LRU chain
;
; This routine will take the cache cell pointed to by x and y and add it to
; the start of the LRU chain.
;
; inputs: A = don't care                outputs: A = trashed
;         X = vp to cache cell, lo               X = trashed
;         Y = vp to cache cell, hi               Y = trashed
;         D = gs/os direct page                  D = i didn't change it
;         B = don't care                         B = preserved
;         K = don't care                         K = preserved
;    LCbank = don't care                    LCbank = i didn't change it 
;
; on output: c = don't care
;
; Copyright (c) 1987 Apple Computer Inc. All rights reserved.
; author: Ray (Rowdy Yates) Chiang
;-----------------------------------------------------------------------------

		EXPORT	addme2lru
addme2lru				;               
		lda	head_vp
		sta	next_vp
		lda	head_vp+2
		sta	next_vp+2
		stx	head_vp
		sty	head_vp+2	;this is the new LRU head
		jsr	XY_to_cur_ptr	;deref X and Y & setup cache_cur_ptr with real address.

		ldy	#c_lru_fwd	;offset to forward vp link
		lda	next_vp
		sta	[<cache_cur_ptr],y
		iny
		iny
		lda	next_vp+2
		sta	[<cache_cur_ptr],y

		ldy	#c_lru_bwd	;offset to backward vp link
		lda	#$0000
		sta	[<cache_cur_ptr],y
		iny
		iny
		sta	[<cache_cur_ptr],y

		lda	next_vp
		bne	addme00
		lda	next_vp+2
		bne	addme00
		lda	head_vp
		sta	tail_vp
		lda	head_vp+2
		sta	tail_vp+2
		rts

addme00		ldx	next_vp
		ldy	next_vp+2
		jsl	deref
		stx	<cache_nxt_ptr
		sty	<cache_nxt_ptr+2

		ldy	#c_lru_bwd	;offset to backward vp link
		lda	head_vp
		sta	[<cache_nxt_ptr],y
		iny
		iny
		lda	head_vp+2
		sta	[<cache_nxt_ptr],y
		rts

;-----------------------------------------------------------------------------
; add2bktlist -- adds a block to the bucket chain
;
; This routine will take the cache cell pointed to by head_vp and add it to
; the head of the bucket chain.
;
; inputs: A = bucket number             outputs: A = trashed
;         X = don't care                         X = trashed
;         Y = don't care                         Y = trashed
;         D = gs/os direct page                  D = i didn't change it
;         B = don't care                         B = preserved
;         K = don't care                         K = preserved
;    LCbank = don't care                    LCbank = i didn't change it 
;
; on output: c = 0 means no error, the cache cell has been added to the head
;                  of the bucket chain
;            c = 1 means something screwed up, the operation was not completed
;
; Copyright (c) 1987 Apple Computer Inc. All rights reserved.
; author: Ray (Rowdy Yates) Chiang
;-----------------------------------------------------------------------------

		EXPORT	add2bktlist
add2bktlist				;               
		jsr	look_in_array	;look in bucket array for it
		bcc	add2d00		;skip if there's something there

		stz	next_vp		;set forward link to nil
		stz	next_vp+2
		bra	add2d01

add2d00		stx	next_vp
		sty	next_vp+2
		jsl	deref
		stx	<cache_nxt_ptr
		sty	<cache_nxt_ptr+2

		ldy	#c_bkt_bwd	;offset to backward vp link
		lda	head_vp
		sta	[<cache_nxt_ptr],y
		iny
		iny
		lda	head_vp+2
		sta	[<cache_nxt_ptr],y

add2d01		lda	c_temp_element
		asl	a
		asl	a		;multiply by 4 to make into index
		tay
		lda	head_vp
		sta	[<cache_bkt_ptr],y
		iny
		iny
		lda	head_vp+2
		sta	[<cache_bkt_ptr],y

		ldy	#c_bkt_fwd	;offset to forward vp link
		lda	next_vp
		sta	[<cache_cur_ptr],y
		iny
		iny
		lda	next_vp+2
		sta	[<cache_cur_ptr],y

		ldy	#c_bkt_bwd	;offset to backward vp link
		lda	#$0000
		sta	[<cache_cur_ptr],y
		iny
		iny
		sta	[<cache_cur_ptr],y

		clc
		rts

;-----------------------------------------------------------------------------
; CACHE_SEARCH -- searches the cache for the requested block
;
; This routine will search the bucket list to locate the requested block. If
; it's found, cache_cur_ptr will be pointing to that block.
;
; inputs: A = don't care                outputs: A = trashed
;         X = don't care                         X = trashed
;         Y = don't care                         Y = trashed
;         D = gs/os direct page                  D = i didn't change it
;         B = don't care                         B = preserved
;         K = don't care                         K = preserved
;    LCbank = don't care                    LCbank = i didn't change it 
;
; on output: c = 0 means no error, the requested block has been found
;            c = 1 means something screwed up or the block's not in the cache
;
; Copyright (c) 1987 Apple Computer Inc. All rights reserved.
; author: Ray (Rowdy Yates) Chiang
;-----------------------------------------------------------------------------

		EXPORT	cache_search
cache_search				;               
		jsr	look_in_array	;look in bucket array for it
		bcc	cash_s00	;skip if maybe
		rts			;error, it ain't there

; the block should be somewhere in this bucket list, look for it

cash_s00
		jsr	curr_vp_to_ptr	;convert the current VP to a real pointer

		ldy	#c_blknum	;point to block number, lo
		lda	[<cache_cur_ptr],y
		cmp	<drvr_blk_num	;equal ?
		bne	cash_s01	;nope
		iny
		iny			;point to block number, hi
		lda	[<cache_cur_ptr],y
		cmp	<drvr_blk_num+2	;equal ?
		bne	cash_s01	;nope

		ldy	#c_blksize	;point to block size
		lda	[<cache_cur_ptr],y
		cmp	<drvr_blk_size	;equal ?
		bne	cash_s02	;nope  ----------> L O O K  !!!

		ldy	#c_devnum	;point to device number
		lda	[<cache_cur_ptr],y
		cmp	<drvr_dev_num	;equal ?
		bne	cash_s01	;nope
		clc			;we've located the requested cell
		rts

; it's not this cell, follow forward link and try again.

cash_s01	ldy	#c_bkt_fwd
		lda	[<cache_cur_ptr],y
		tax			;low link in x
		iny
		iny
		lda	[<cache_cur_ptr],y
		tay			;high link in y
		bne	cash_s00	;y <> 0, loop
		txa
		bne	cash_s00	;x <> 0, loop

; the forward link is 0, seems like we didn't find it

		sec
		rts

;-----------------------------------------------------------------------------
; if we get here then we found a block in the cache that's a different size
; than the requested size.  this could be caused by different FSTs asking for
; it.  in any case, to be safe and not sorry, this found block will be deleted
; from the cache and the find_block routine will return with carry set.  the
; requestor will have to get that block off the disk.
;-----------------------------------------------------------------------------

cash_s02	jsl	cache_xdelete	;current_vp still valid here
		sec			;pretend we didn't find the block
		rts

;-----------------------------------------------------------------------------
; SEARCH_VOL_ID -- searches the cache for a volume ids deferred block
;
; This routine will search the cache list for a volume ids deferred block.
; If we find any, then we'll return carry clear otherwise carry set.
;
; inputs: A = volume id                 outputs: A = trashed
;         X = don't care                         X = trashed
;         Y = don't care                         Y = trashed
;         D = gs/os direct page                  D = i didn't change it
;         B = don't care                         B = preserved
;         K = don't care                         K = preserved
;    LCbank = don't care                    LCbank = i didn't change it 
;
; on output: c = 0 means no error, the requested volume id has deferred blocks
;            c = 1 means something screwed up or no deferred blocks found
;
; Copyright (c) 1987 Apple Computer Inc. All rights reserved.
; author: Ray (Rowdy Yates) Chiang
;-----------------------------------------------------------------------------

		EXPORT	search_vol_id
search_vol_id				;               
		lda	tail_vp
		ora	tail_vp+2
		bne	svi_0010
		sec			;no blocks
		rts

svi_0010				; 
		ldx	tail_vp
		ldy	tail_vp+2

svi_00
		jsr	curr_vp_to_ptr	;convert the current VP to a real pointer

		ldy	#c_priority
		lda	[<cache_cur_ptr],y ;get this cell's priority
		bpl	svi_01		;skip if not deferred
		ldy	#c_volumeid
		lda	[<cache_cur_ptr],y
		cmp	<drvr_vol_id
		bne	svi_01		;skip if not this volume id
		clc			;we found at least one.
		rts

svi_01		ldy	#c_lru_bwd
		lda	[<cache_cur_ptr],y
		iny
		iny
		tax			;save backward vp link, lo
		bne	svi_03		;skip if not 0
		lda	[<cache_cur_ptr],y
		bne	svi_03a		;skip if not 0

;-----------------------------------------------------------------------------
; if we get here then we're at the head of the list and still haven't been
; able to find any blocks that match volume id and deferred bit set.
;-----------------------------------------------------------------------------

		sec			;we're at the end
		rts

svi_03		lda	[<cache_cur_ptr],y
svi_03a		tay			;save backward vp link, hi
		bra	svi_00		;loop for next cell

;-----------------------------------------------------------------------------
; GETLINKS -- fetches the forward and backward vp links
;
; This routine will fetch the forward and backward vp links of either the LRU
; or bucket chain and return them into next_vp and prev_vp.  Additionally, x
; and y will contain prev_vp and prev_vp+2.
;
; inputs: A = don't care                outputs: A = trashed
;         X = offset to backward link            X = prev_vp
;         Y = offset to  forward link            Y = prev_vp+2
;         D = gs/os direct page                  D = i didn't change it
;         B = don't care                         B = preserved
;         K = don't care                         K = preserved
;    LCbank = don't care                    LCbank = i didn't change it 
;
; on output: c = don't care
;
; Copyright (c) 1987 Apple Computer Inc. All rights reserved.
; author: Ray (Rowdy Yates) Chiang
;-----------------------------------------------------------------------------

		EXPORT	getlinks
getlinks				;               
		lda	[<cache_cur_ptr],y
		sta	next_vp
		iny
		iny
		lda	[<cache_cur_ptr],y
		sta	next_vp+2

		txy			;offset to backward vp link
		lda	[<cache_cur_ptr],y
		sta	prev_vp
		tax
		iny
		iny
		lda	[<cache_cur_ptr],y
		sta	prev_vp+2
		tay
		rts

;-----------------------------------------------------------------------------
; SET_FLINK_2NIL -- sets forward vp link to nil
;
; This routine will set the forward vp link of the cache cell pointed to by
; prev_vp to nil.
;
; inputs: A = offset to forward link    outputs: A = trashed
;         X = prev_vp                            X = trashed
;         Y = prev_vp+2                          Y = trashed
;         D = gs/os direct page                  D = i didn't change it
;         B = don't care                         B = preserved
;         K = don't care                         K = preserved
;    LCbank = don't care                    LCbank = i didn't change it 
;
; on output: c = don't care
;

; Copyright (c) 1987 Apple Computer Inc. All rights reserved.
; author: Ray (Rowdy Yates) Chiang
;-----------------------------------------------------------------------------

		EXPORT	set_flink_2nil
set_flink_2nil				;               
		sta	c_temp_fwd
		jsl	deref
		stx	<cache_pre_ptr
		sty	<cache_pre_ptr+2

		ldy	c_temp_fwd	;offset to forward vp link
		lda	#$0000
		sta	[<cache_pre_ptr],y
		iny
		iny
		sta	[<cache_pre_ptr],y
		rts

;-----------------------------------------------------------------------------
; UNLINK -- unlinks the current cache cell
;
; This routine will link together the cache cells pointed to by next_vp and
; prev_vp.  By doing this, the current cache cell will be 'unlink'ed from
; either the LRU or bucket chains.
;
; inputs: A = don't care                outputs: A = trashed
;         X = offset to backward link            X = trashed
;         Y = offset to  forward link            Y = trashed
;         D = gs/os direct page                  D = i didn't change it
;         B = don't care                         B = preserved
;         K = don't care                         K = preserved
;    LCbank = don't care                    LCbank = i didn't change it 
;
; on output: c = don't care
;
; Copyright (c) 1987 Apple Computer Inc. All rights reserved.
; author: Ray (Rowdy Yates) Chiang
;-----------------------------------------------------------------------------

		EXPORT	unlink
unlink					;               
		stx	c_temp_bwd
		sty	c_temp_fwd

		ldx	prev_vp
		ldy	prev_vp+2
		jsl	deref
		stx	<cache_pre_ptr
		sty	<cache_pre_ptr+2

		ldy	c_temp_fwd	;offset to forward vp link
		lda	next_vp
		sta	[<cache_pre_ptr],y
		iny
		iny
		lda	next_vp+2
		sta	[<cache_pre_ptr],y

		EXPORT	unlink_bwd
unlink_bwd				;               
		ldx	next_vp
		ldy	next_vp+2
		jsl	deref
		stx	<cache_nxt_ptr
		sty	<cache_nxt_ptr+2

		ldy	c_temp_bwd	;offset to backward vp link
		lda	prev_vp
		sta	[<cache_nxt_ptr],y
		iny
		iny
		lda	prev_vp+2
		sta	[<cache_nxt_ptr],y
		rts

;-----------------------------------------------------------------------------
; D_FROM_TAIL -- deletes a cache cell from the LRU tail
;
; This routine will try to delete the last recently used cache cell that's
; not deferred from the cache list.
;
; inputs: A = don't care                outputs: A = trashed
;         X = don't care                         X = trashed
;         Y = don't care                         Y = trashed
;         D = gs/os direct page                  D = i didn't change it
;         B = don't care                         B = preserved
;         K = don't care                         K = preserved
;    LCbank = don't care                    LCbank = i didn't change it 
;
; on output: c = 0 means a cache cell was deleted
;            c = 1 means it's mike's fault or they're all deferred blocks
;
; Copyright (c) 1987 Apple Computer Inc. All rights reserved.
; author: Ray (Rowdy Yates) Chiang
;-----------------------------------------------------------------------------

		EXPORT	d_from_tail
d_from_tail				;               
		ldx	tail_vp
		ldy	tail_vp+2

dft_00
		jsr	curr_vp_to_ptr	;convert the current VP to a real pointer

;-----------------------------------------------------------------------------
; we can only delete cell(s) that are not deferred.  we may have to walk the
; entire list to find somebody who's not deferred.
;-----------------------------------------------------------------------------

		ldy	#c_priority
		lda	[<cache_cur_ptr],y ;get this cell's priority
		bpl	dft_02		;skip if not deferred
		ldy	#c_lru_bwd
		lda	[<cache_cur_ptr],y
		iny
		iny
		tax			;save backward vp link, lo
		bne	dft_01		;skip if not 0
		lda	[<cache_cur_ptr],y
		bne	dft_01a		;skip if not 0

;-----------------------------------------------------------------------------
; if we get here then we're at the head of the list and still haven't been
; able to delete anybody.
;-----------------------------------------------------------------------------

		sec			;we're at the end
		rts

dft_01		lda	[<cache_cur_ptr],y
dft_01a		tay			;save backward vp link, hi
		bra	dft_00		;loop for next cell

;-----------------------------------------------------------------------------
; if we get here then we found a non deferred block, delete this puppy.  The
; tail_vp may be updated by the delete routine, we don't mess with it here.
;-----------------------------------------------------------------------------

dft_02					; 

dft_03		jsl	cache_xdelete	;delete this block
		rts			;result in c

;-----------------------------------------------------------------------------
; IS_THERE_ROOM -- checks to if there is enough room for the next cache cell
;
; It's just a simple 4 byte compare.
;
; inputs: A = don't care                outputs: A = trashed
;         X = don't care                         X = trashed
;         Y = don't care                         Y = trashed
;         D = gs/os direct page                  D = i didn't change it
;         B = don't care                         B = preserved
;         K = don't care                         K = preserved
;    LCbank = don't care                    LCbank = i didn't change it 
;
; on output: c = 0 means there's not enough room
;            c = 1 means there's     enough room
;
; Copyright (c) 1987 Apple Computer Inc. All rights reserved.
; author: Ray (Rowdy Yates) Chiang
;-----------------------------------------------------------------------------

		EXPORT	is_there_room
is_there_room				;               
		sec
		lda	c_bytes_free
		sbc	c_request_size
		lda	c_bytes_free+2
		sbc	#$0000
		rts

;-----------------------------------------------------------------------------
; ADD_TO_FREE -- add freed bytes back to free byte count
;
; This routine will add the number of bytes about to be released, back to
; Mike.  It's just a simple 4 byte addition.
;
; inputs: A = don't care                outputs: A = trashed
;         X = don't care                         X = trashed
;         Y = don't care                         Y = trashed
;         D = gs/os direct page                  D = i didn't change it
;         B = don't care                         B = preserved
;         K = don't care                         K = preserved
;    LCbank = don't care                    LCbank = i didn't change it 
;
; on output: c = don't care
;
; Copyright (c) 1987 Apple Computer Inc. All rights reserved.
; author: Ray (Rowdy Yates) Chiang
;-----------------------------------------------------------------------------

		EXPORT	add_to_free
add_to_free				;               
		ldy	#c_cellsize
		clc
		lda	c_bytes_free
		adc	[<cache_cur_ptr],y
		sta	c_bytes_free
		bcc	atf_00
		inc	c_bytes_free+2	;bump this for carry
atf_00		rts

;-----------------------------------------------------------------------------
; SET_CACHE_PTR -- sets drvr_cach_ptr
;
; This routine will set drvr_cach_ptr, that's all.
;
; inputs: A = don't care                outputs: A = trashed
;         X = don't care                         X = trashed
;         Y = don't care                         Y = trashed
;         D = gs/os direct page                  D = i didn't change it
;         B = don't care                         B = preserved
;         K = don't care                         K = preserved
;    LCbank = don't care                    LCbank = i didn't change it 
;
; on output: c = don't care
;
; Copyright (c) 1987 Apple Computer Inc. All rights reserved.
; author: Ray (Rowdy Yates) Chiang
;-----------------------------------------------------------------------------

		EXPORT	set_cache_ptr
set_cache_ptr				;               
		clc
		lda	<cache_cur_ptr	;get pointer to current cache cell
		adc	#c_headerlen	;add to it the cache header length
		sta	<drvr_cach_ptr	;pointer to cached block, lo
		lda	<cache_cur_ptr+2
		adc	#$0000
		sta	<drvr_cach_ptr+2 ;pointer to cached block, hi
		rts

;-----------------------------------------------------------------------------
; LOOK_IN_ARRAY -- looks in bucket array for an entry
;
; This routine will index into the bucket array for an entry.  If the entry is
; not 0, then the block we're looking for is somewhere in that particular
; bucket list.  If the entry is 0, then the bucket array has no knowledge of
; the requested block.
;
; inputs: A = don't care                outputs: A = trashed
;         X = don't care                         X = vp to cached block, lo
;         Y = don't care                         Y = vp to cached block, hi
;         D = gs/os direct page                  D = i didn't change it
;         B = don't care                         B = preserved
;         K = don't care                         K = preserved
;    LCbank = don't care                    LCbank = i didn't change it 
;
; on output: c = 0 means there's something here, still have to traverse links
;            c = 1 means there's no entry for this bucket index
;
; Copyright (c) 1987 Apple Computer Inc. All rights reserved.
; author: Ray (Rowdy Yates) Chiang
;-----------------------------------------------------------------------------

		EXPORT	look_in_array
look_in_array
		jsr	deref_bucket	;Deref the bucket table and setup cache_bkt_ptr
		
		lda	<drvr_blk_num	;get block number
		and	#$007f		;keep low 7 bits
		sta	c_temp_element	;save this for later
		asl	a
		asl	a		;multiply by 4 and make into index
		tay

		lda	[<cache_bkt_ptr],y ;get lo part
		tax			;save in x
		iny
		iny
		lda	[<cache_bkt_ptr],y ;get hi part
		bne	lia_00		;skip if <> 0
		tay
		txa
		bne	lia_01		;skip if <> 0
		sec			;no entry for this block
		rts

lia_00		tay			;move hi part into y
lia_01		clc			;indicate an entry found
		rts

;-----------------------------------------------------------------------------
; WRITE_TO_DISK -- writes a block to a disk
;
; This routine will write a block from the cache to a block device.  The
; blocks to be written will most likely be deferred blocks.  The block to be
; written is pointed to by cache_cur_ptr
;
; inputs: A = don't care                outputs: A = don't care
;         X = don't care                         X = don't care
;         Y = don't care                         Y = don't care
;         D = gs/os direct page                  D = i didn't change it
;         B = don't care                         B = preserved
;         K = don't care                         K = preserved
;    LCbank = don't care                    LCbank = i didn't change it 
;
; on output: c = 0 means the write's successful
;            c = 1 means the write went wrong
;
; Copyright (c) 1987 Apple Computer Inc. All rights reserved.
; author: Ray (Rowdy Yates) Chiang
;-----------------------------------------------------------------------------

		EXPORT	write_to_disk
write_to_disk				;               
		lda	#drvr_write	;driver write command
		sta	<drvr_call_num

		ldy	#c_blknum	;offset to block number, lo
		lda	[<cache_cur_ptr],y
		sta	<drvr_blk_num
		iny
		iny			;offset to block number, hi
		lda	[<cache_cur_ptr],y
		sta	<drvr_blk_num+2

		sec
		ldy	#c_cellsize	;offset to size of cache cell
		lda	[<cache_cur_ptr],y
		sbc	#c_headerlen	;subtract away the cache header
		sta	<drvr_req_cnt	;want to write this many bytes

		clc
		lda	<cache_cur_ptr
		adc	#c_headerlen	;point past the cacher header
		sta	<drvr_buf_ptr	;data starts here, lo
		lda	<cache_cur_ptr+2
		adc	#$0000
		sta	<drvr_buf_ptr+2	;data starts here, hi

; i think we got everything ready for a write, let's do it

		jsl	dev_dispatcher
		rts			;result in a and c

;-----------------------------------------------------------------------------
; CACHE_ERROR -- exits to the caller
;
; This routine will exit back to the caller because of some sort of error.
; The error usually results from fiddling with the mike memory manager or
; the LRU or bucket links are trashed.  This shouldn't happen though . . .
;
; Copyright (c) 1987 Apple Computer Inc. All rights reserved.
; author: Ray (Rowdy Yates) Chiang
;-----------------------------------------------------------------------------

		EXPORT	cache_error
cache_error				;               
		plb			;restore caller's data bank
		sec			;indicate an error
		rtl			;go back with bad news

		ENDP

;-----------------------------------------------------------------------------
; Cache_In_Queue -- 
;
; This routine will add a task in the OutOfMemory queue routine.  If the
; memory manager runs out of memory then I will purge the cache.
;
;-----------------------------------------------------------------------------

		EXPORT	Cache_In_Queue              
Cache_In_Queue	Proc
		
		lda	>InQueueAlready		;See if I am already in the queue
		bmi	@skip_add		;I am already in the queue thank you very much.

		pea	MyOutOfMemRoutine>>16
		pea	MyOutOfMemRoutine
		ldx	#$0C02			;AddToOOMQueue
		jsl	$e10000
		lda	#$FFFF
		sta	>InQueueAlready
@skip_add	rtl				;return to the caller

		Export	Cache_out_of_Queue
Cache_out_of_Queue
		lda	call_number		;is this a Reset_Cache Call?
		cmp	#$2026
		beq	@skip_remove		;It sure is so don't do anything
		
		lda	InQueueAlready		;Am I in the queue?
		beq	@skip_remove

		pea	MyOutOfMemRoutine>>16
		pea	MyOutOfMemRoutine
		ldx	#$0D02			;DeleteFromOOMQueue
		jsl	$e10000
		lda	#$0000			;zero the InQueue Flag
		sta	InQueueAlready

@skip_remove	rts

MyOutOfMemRoutine
		dc.l	000000			;Used by the Queue Manager?
cache_reset_list				;zero PCount for reset cache call
		dc.w	0000			;Doubles as ResetCacheList and Queue Header
		dc.w	$A55A

RTLAddr		equ	1
stage		equ	RTLAddr+3		;First or second stage of calls
BytesNeeded	equ	stage+2			;Number of bytes the memory manager needs
Result		equ	BytesNeeded+4		;Number of bytes I have freed up!
active_flag	equ	$e100Be			;OS active flag: BIT 15 set to 1 = busy

;
;Lets zap the results please
;
		lda	#$0000
		sta	Result,s
		sta	Result+2,s		;tell Memory Manger Nothing yet.
;
;See if the OS busy first.  If it is then we let the OS deal with the situation.
;
		lda	>active_flag		;is the OS Busy???
		bmi	@end_mem		;Yep it sure is.
;
;See if we are being called before or after purging data.
;
		
		lda	stage,s
		beq	@do_free		;only free before purging....
@end_mem
		longa	off
		sep	#$20			;8 bit mode please
;
;Get return address
;
		pla
		ply
;
;Remove size bytes of parameters
;
		plx
		plx
		plx
		
		phy
		pha
		longa	on
		rep	#$20			;back to caller
		rtl
		
@do_free
		phb
		phk
		plb
		
		jsr	GetFreeMem		;go get the count please A=Low, Y=High
		sta	curr_free_mem		;the current state of memory
		sty	curr_free_mem+2
;
;Now what we do is issue a Reset Cache Call to GS/OS
;
		jsl	$e100a8
		dc.w	$2026			;reset cache call
		dc.l	cache_reset_list
		
		jsr	GetFreeMem		;A=Low, Y=High
		sec
		sbc	curr_free_mem		;get the new memory count please
		tax
		tya
		sbc	curr_free_mem+2
		
		plb				;reset the bank register please
		sta	result+2,s		;save the high word of newly freed memory
		txa
		sta	result,s
		bra	@end_mem		;return to the caller

GetFreeMem
		pha
		pha				;lets see how much memory is free right now.
		ldx	#$1b02			;Get FREEMEM call
		jsl	$e10000

		pla				;get the low word
		ply		
		rts
		
curr_free_mem	dc.l	00
InQueueAlready	dc.w	00		;indicates if I am installed in the Queue.
		endp
		
		
;-----------------------------------------------------------------------------
; DATA
;
; Note: every variable better be an even number of bytes.
;
; cache_cur_ptr, cache_nxt_ptr, cache_pre_ptr and cache_bkt_ptr are in
; GS/OS direct page
;
; Copyright (c) 1987 Apple Computer Inc. All rights reserved.
; author: Ray (Rowdy Yates) Chiang
;-----------------------------------------------------------------------------

		EXPORT	cache_data	
cache_data	PROC

		EXPORT	start_of_data
start_of_data				;               
		EXPORT	head_vp
head_vp		DS.B	4		;vp to head of LRU list
		EXPORT	tail_vp
tail_vp		DS.B	4		;vp to tail of LRU list
		EXPORT	current_vp
current_vp	DS.B	4		;vp to current cache cell
		EXPORT	next_vp
next_vp		DS.B	4		;vp to next cache cell
		EXPORT	prev_vp
prev_vp		DS.B	4		;vp to previous cache cell
		EXPORT	bucket_vp
bucket_vp	DS.B	4		;vp to bucket vps
		EXPORT	c_bytes_free
c_bytes_free	DS.B	4		;number of bytes free in cache
		EXPORT	c_request_size
c_request_size	DS.B	2		;current request size
		EXPORT	c_temp_element
c_temp_element	DS.B	2		;temp for bucket element
		EXPORT	c_temp_fwd
c_temp_fwd	DS.B	2		;temp for  forward vp link
		EXPORT	c_temp_bwd
c_temp_bwd	DS.B	2		;temp for backward vp link
		EXPORT	c_temp_1
c_temp_1	DS.B	2		;temp for device number or FST offset
		EXPORT	c_temp_2
c_temp_2	DS.B	2		;temp for device number or FST value
		EXPORT	c_temp_nvp
c_temp_nvp	DS.B	4		;temp for next_vp
		EXPORT	c_marker
c_marker	DS.B	2		;temp for debugging
		EXPORT	no_find
no_find		DS.B	2		;flag for enable/disable find routine
		EXPORT	message_shown
message_shown	DS.B	2		;flag to indicate deferred blocks
;                                       ;have been flushed and user was told
		export	in_queue
		
in_queue	dc.w	$0000
		EXPORT	end_of_data
end_of_data	
		export	c_data_len:equ
c_data_len	equ	end_of_data-start_of_data-1

		ENDP
;===============================================================================
; cashseg
;
; Framework for building load segment cashseg.
;
;===============================================================================


cashseg_end	PROC
		ENDP

cache_overflow	proc   org   $00AA00, skip	;This will generate an error if
		endp				;the code overflows its space.

		END	
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/OS/DeviceDispatcher/BE0Segr.e.Src b/IIGS.601.SRC/GS.OS/OS/DeviceDispatcher/BE0Segr.e.Src
new file mode 100644
index 0000000..5b3376f
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/OS/DeviceDispatcher/BE0Segr.e.Src
@@ -0,0 +1 @@
+;===============================================================================
; be0segR
;
; Framework for building load segment be0segR.
;
;===============================================================================
be0segr0_max	equ	$E10000

		Export	Be0segR_end
be0segr_end     Proc
		endp

be0segr0_ovf	proc	org	be0segr0_max,	skip	; this should generate an error
		endp					; if we overflow the code space
		
		end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/OS/DeviceDispatcher/Device.Dispatcher.Src b/IIGS.601.SRC/GS.OS/OS/DeviceDispatcher/Device.Dispatcher.Src
new file mode 100644
index 0000000..d0267ab
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/OS/DeviceDispatcher/Device.Dispatcher.Src
@@ -0,0 +1 @@
+*******************************************************************************
*
*               Copyright (c) 1987-1992
*               Apple Computer, Inc.
*               All rights reserved.
*
*******************************************************************************
*
*               GS/OS Device Dispatcher
*
*               This binary file to be loaded into
*               location $E0E000.
*
*               Written by: Raymond B. Montagne
*
*******************************************************************************
*
* Revision History:
*
* mm/dd/yy Ver.   Who What
*
* 04/13/87 through 6/07/89
*		  GAB For revision history within these dates, see an archived
*			version of this file.
*
* 03/11/91 6.0d28 GAB During a full shutdown (command == 3), the dispatcher
*			will now call each driver that supports removeable
*			media to perform an Eject command.
*		      sp_trans_id table changed so that a device with a
*			SmartPort ID of $0D is now translated to a GS/OS
*			device ID of $0B (printer).
*
* 03/25/91 6.0d30 GAB set_wait_mode was not validating the request count
*			correctly.  It would return an invalid parameter error
*			when the request count != 0, instead of != 2.  Fixed.
*		      Various call dispatches have been enhanced to use the
*			Absolute Indexed Indirect addressing mode.
*
* 04/11/91 6.0d32 GAB Find_File fixed so that it compares the two string lengths
*			prior to comparing the contents of the strings.
*		      Replaced all calls to get_cold_flag with a direct access load
*			of the warm/cold boot flag.  Sure, it may cost one extra
*			byte per access, but it's also 12 cycles faster.
*		      do_file_load now saves the carry flag correctly on entry.
*
* 04/15/91 6.0d32 GAB Duplicate supervisor drivers are now unloaded correctly with
*			the supervisor list being patched up properly.  Prior versions
*			were modifying the supervisor headers instead of the
*			supervisor list.
*
* 07/12/91 6.0d44 GAB Problem: When switching back to GSOS from P8, GQuit is passing
*			the address of Boot.Driver to the device dispatcher for the
*			restart.  During the original boot, though, the device
*			dispatcher disposed of Boot.Driver when the loaded AppleTalk
*			driver was brought into memory to replace it.  I fixed it so
*			that if BOOT.DRIVER is replaced by a subsequent loaded
*			driver, BOOT.DRIVER is simply sent a Shutdown command, but
*			no UserShutdown is performed (i.e. it's not removed from
*			memory).
*
* 09/05/91 6.0d48 GAB Bug fix:  During dd_shutdown, the System Loader was making
*			OS calls to close the load file when a non-restartable
*			driver was shutdown.  This trashed the driver number that
*			the dispatcher was using as an index into the device list
*			to ensure that all drivers were shutdown.  This has been
*			fixed by saving and restoring the driver number around
*			the call to shutdn_driver.
*		      Bug fix:  In shutdn_driver, the code was checking the boot
*			device to see if it was a generated driver, and not shutting
*			it down if it is (since it was never really started up in
*			the first place).  Unfortunately, it was using a leftover
*			driver_dib_ptr.  I added a call to set_dib_ptr just prior
*			to the check to ensure that we're looking at the correct
*			DIB.
*
* 09/26/91 6.0d51 GAB Bug fix:  During startup, the dispatcher was not respecting
*			the setting of the "hardware independent" bit of a driver's
*			slot number (stored in the DIB).  Fixed by storing the
*			full 16-bit value of the driver's slot number in
*			copy_cur_name (instead of zeroing the upper 8 bits), and
*			skipping the check in slot_unit_chk if the current
*			DIB's bit is set.
*
* 11/13/91 6.0d58 GAB Add logic to generated driver READ handler so that read
*			requests to a Pascal interface will always return a
*			character in the user's buffer if the firmware actually
*			returns a character to us.  The generated core has been
*			modified to always return a character in the low byte
*			of the accumulator, and any possible error code in the
*			high byte.  If an error did occur, the carry will be
*			set on return from the bank 0 core, and the error code
*			will be shifted up from $2x (what the firmware returns)
*			to $3x (which will take it out of the range of the "real"
*			device driver errors.
*
* 9-Mar-93 6.0.1d14 JCM	No code-level changes in this file. I updated the diagrams
*			of the device characteristics word to cover the newly defined
*			"device follows guidelines" bit ($0010).
*
*******************************************************************************
scsi_alert	equ	43
unidisk_alert	equ	44
appledisk_alert	equ	45

		print	off
		include	'gsos.macros.src' 
		include	'common.equ.src' 
		include	'hw.equ.src' 
		include	'driver.equ.src' 


		import	b0_core
		import	bank0_dsptch
		import	block_cnt
		import	buf_to_system
		import	buff_to_cache
		import	cache_to_buff
		import	call_list_ptr
		import	config_ram

		import	get_fmt_list
		import	get_fmt_reqcnt
		import	get_fmt_slist
		import	get_fmt_unit
		import	machine_id
		import	param_list_ptr
		import	set_fmt_clist
		import	set_fmt_list
		import	set_fmt_req
		import	set_fmt_unit
		import	sys_buffer
		import	system_to_buf
		import	sp_stat3
		import	esp_stat3
		import	slot_arbiter
		import	set_gsos_speed
		import	lc_dispatcher
		import	STOP_SCRN_CHK
		import	start_scrn_chk
		
		print	on

		eject
***************************************************************
*
* The following are signature bytes for ProDOS block devices.
*
***************************************************************
		export	bank_e0_segr	
bank_e0_segr	proc
		DataChk	off

pro_sig
		dc.b	$03		; $Cn05 signature
		dc.b	$00		; $Cn03 signature
		dc.b	$20		; $Cn01 signature
		dc.b	$00		; $Cn07 SmartPort signature

***************************************************************
*
* The following are signature bytes for Pascal1.1 devices.
*
***************************************************************
pascal_sig
		dc.b	$38		; $Cn05 signature
		dc.b	$18		; $Cn07 signature
		dc.b	$01		; $Cn0B signature

***************************************************************
*
* The following are $Cn0C type bytes for Pascal1.1 devices.
* Note that the least significant nibble is not relevant to
* the Pascal1.1 device type.
*
***************************************************************
pascal_type
		dc.b	$10		; printer
		dc.b	$30		; serial
		dc.b	$40		; modem
		dc.b	$80		; 80 Column
		dc.b	$90		; Network / Bus

***************************************************************
*
* The following data is for a SmartPort parameter list
* to be used in making a Unit 0 status call to determine
* the number of devices connect to the SmartPort interface.
* Note that this data must be moved to bank 0 for a standard
* SmartPort call.
*
***************************************************************
sp_unit0            
		dc.b	$03		; parameter count
		dc.b	$00		; unit 0
		dc.w	sys_buffer	; buffer pointer
		dc.b	$00		; status code
		dc.b	$00		; spare (required for g.read)
		dc.b	$00

		eject
*****************************************************************
*
* This table is used to translate SmartPort type bytes
* into GSOS Driver ID Numbers.  GS/OS ID numbers are as
* follows:
*
*	$0000	AppleDisk 5.25
*	$0001	Profile (5 Meg)
*	$0002	Profile (10 Meg)
*	$0003	AppleDisk 3.5 or UniDisk 3.5
*	$0004	SCSI Generic
*	$0005	SCSI Hard Disk
*	$0006	SCSI Tape Drive
*	$0007	SCSI CD ROM
*	$0008	SCSI Printer
*	$0009	Modem
*	$000A	Console
*	$000B	Printer
*	$000C	Serial LaserWriter
*	$000D	AppleTalk LaserWriter
*	$000E	RAM Disk
*	$000F	ROM Disk
*	$0010	File Server
*	$0011	IBX Driver
*	$0012	Apple DeskTop Bus
*	$0013	Hard Disk Generic
*	$0014	Floppy Disk Generic
*	$0015	Tape Drive Generic
*	$0016	Character Device Generic
*	$0017	MFM Floppy Disk
*	$0018	Network Generic
*	$0019	SCSI Sequential Access Device
*
*****************************************************************
sp_trans_id				; sp = GS/OS Device ID Number
		dc.w	$000E		; 00 = 0E Ram Disk
		dc.w	$0003		; 01 = 03 Disk 3.5
		dc.w	$0002		; 02 = 02 JVC HD (ProFILE)
		dc.w	$0004		; 03 = 04 SCSI (generic)
		dc.w	$000F		; 04 = 0F Rom Disk
		dc.w	$0007		; 05 = 07 SCSI CD-ROM
		dc.w	$0006		; 06 = 06 SCSI Tape
		dc.w	$0005		; 07 = 05 SCSI HD
		dc.w	$0019		; 08 = 19 SCSI Sequential Device
		dc.w	$001A		; 09 = 1A SCSI Printer
		dc.w	$0000		; 0A = 00 AppleDisk5.25
		dc.w	$0014		; 0B = 14 Reserved (BERT)
		dc.w	$0000		; 0C = 00 Reserved (BERT)
		dc.w	$000B		; 0D = 0B Printer
		dc.w	$0000		; 0E = 00 Clock (not for A//GS)
		dc.w	$0009		; 0F = 09 Modem
		dc.w	$0003		; 10 = 03 Super Drive
*
* Note that SmartPort ID's above $0F will be translated to GS/OS ID $0014
* signifying a generic floppy disk.
*
		eject
***************************************************************
*
* Variables, Handles and ID's are stored in this data area.
*
***************************************************************
dev_list_id	dc.w	0		; save device list ID here
dev_list_hndl	dc.l	0		; save device list handle here
dev_list_size	dc.l	0		; size of device list handle
handle_size	dc.l	0		; handle size used by set_handle_size

***************************************************************
*
*	The following variables are used in managing the
*	device dispatcher file list associated with the
*	P8 restart from memory code.
*
***************************************************************
file_list_id	dc.w	0		; user ID assigned to the file list
file_list_hndl	dc.l	0		; handle assigned to the file list
file_list_size	dc.l	0		; size of file list handle
file_list_index	dc.w	0		; current index into the file list
file_list_entry	dc.w	0
file_list_cnt	dc.w	0		; number of entries in the file list

***************************************************************
*
*	The following variables are used in managing the
*	device and supervisor list as well as generated DIBs.
*
***************************************************************
gen_drvr_id	dc.w	0		; generated driver list id here
gen_drvr_hndl	dc.l	0		; generated driver list handle
drvr_list_size	dc.l	0		; size of DIB/GDIB list

gen_count	dc.w	0		; running count of generated drivers
gen_slot_num	dc.w	0		; slot for current device generation
total_gen	dc.w	0		; total number of generated drivers

name_buff	ds.b	8		; buffer for device name generation

drvr_list	dc.w	14
drvr_list_str	dc.b	'SYSTEM:DRIVERS' 

drvr_list_id	dc.w	0		; user id for 'DRVR.LIST'
drvr_file_num	dc.w	0		; file number for 'DRVR.LIST'

driver_count	dc.w	1		; number of devices
load_device	dc.w	2		; current device being loaded

old_dev_num	dc.w	0		; device number of replaced device
cur_dev_num	dc.w	0		; device number of current device
current_name	ds.b	32		; name of current loaded driver
current_slot	dc.w	0		; slot for current device
current_unit	dc.w	0		; unit for current device
current_version	dc.w	0		; version for current device
current_dev_id	dc.w	0		; Device ID for current device
cur_user_id	dc.w	0		; user ID for loaded device

shutdown_id	dc.w	0		; current ID of driver being purged
dd_os_call	dc.w	0		; OS call that currently is executing

dib_count	dc.w	0		; number of dibs this file
start_count	dc.w	0		; number of DIBs indicated by auxtype

purge_flag	dc.w	0		; non zero if 1 loaded device started

d_boot_slot	dc.w	0		; my boot slot

sup_drvr_id	dc.w	0		; user ID for supervisor driver list
sup_drvr_hndl	dc.l	0		; handle for supervisor driver list
sup_drvr_cnt	dc.w	0		; count of supervisor drivers
sup_drvr_num	dc.w	0		; supervisory driver number
cur_sib_id	dc.w	0		; current supervisor ID
cur_sib_ver	dc.w	0		; current supervisor version
cur_sup		dc.w	0		; current supervisor duplicate search

pro_char	dc.w	0		; for building device characteristics

*
* The following variables are used to manage the alert dialog
* display when a device driver is required.
*
ud_count	dc.w	0		; number of UniDisks found
ad_count	dc.w	0		; number of AppleDisks found
scsi_count	dc.w	0		; number of SCSI's found

		eject
*******************************************************************************
*
* A driver's DIB must contain the following information:
*
*               Long    Link Pointer
*               Long    Entry Pointer
*               Word    Device Characteristics (see below)
*  ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___
* |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |
* | F | E | D | C | B | A | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 |
* |___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |__ RESERVED (cleared to 0)
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |______ RESERVED (cleared to 0)
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |__________ Media remov
*   |   |   |   |   |   |   |   |   |   |   |   |   |______________ Format
*   |   |   |   |   |   |   |   |   |   |   |   |__________________ Driver follows guidelines
*   |   |   |   |   |   |   |   |   |   |   |______________________ Read
*   |   |   |   |   |   |   |   |   |   |__________________________ Write
*   |   |   |   |   |   |   |   |   |______________________________ Block Dev
*   |   |   |   |   |   |   |   |__________________________________ Speed Group
*   |   |   |   |   |   |   |______________________________________ Speed Group
*   |   |   |   |   |   |__________________________________________ Fixed Name
*   |   |   |   |   |______________________________________________ Restartable
*   |   |   |   |__________________________________________________ Device Busy (managed by dispatcher)
*   |   |   |______________________________________________________ Linked
*   |   |__________________________________________________________ Generated
*   |______________________________________________________________ RamRom Disk
*
*               Long    Block Count
*               32      Device Name
*               Word    Slot Number
*               Word    Unit Number
*               Word    Version Number as follows:
*                       XYYZ where: X  = Major release version
*                                   YY = Minor release version
*                                   Z  = (A)lpha, (B)eta, (E)xerimental or
*                                        0 for final release.
*               Word    Device ID Number     (Icon selector)
*               Word    Head Device Link     (Logically linked device)
*               Word    Forward Device Link  (Logically linked device)
*               Long    Extended DIB Pointer (only if external access to data is allowed)
*               Word    DIB Device Number    (initialized by device dispatcher)
*
* The following is the DIB for the boot volume driver.
*
*******************************************************************************
boot_dib	
		dc.l	$00000000	; link_ptr
		dc.l	g_dispatch	; entry_ptr
		dc.w	$43EC		; dev_char %0100001111101100
		dc.l	$FFFFFFFF	; blk_cnt    (default = max.)
		dc.b	$04		; dev_name   (default = DEV1)
		dc.b	'DEV1                           '		
		dc.w	0		; slot_num   (default set by bootinit)
		dc.w	1		; unit_num   (default = Unit #1)
		dc.w	0		; ver_num    (default = 0.00)
		dc.w	4		; dev_id_num (default = AppleDisk3.5)
		dc.w	0		; head device link
		dc.w	0		; forward device link
		dc.l	0		; Extended DIB pointer
		dc.w	1		; DIB device number
*
* The following is a GDIB for a generated driver.  Note that
* many DIB and GDIB parameters will have to be modified
* conditional on the actual device for which a driver is
* being generated for.
*
		dc.w	1		; drvr_class (default std SmartPort)
		dc.w	$0001		; drvr_type (default = DISK3.5)
		dc.w	$00C0		; drvr_subtype (default = AppleDisk3.5)
		dc.w	$FFFF		; cache_mask
		dc.w	512		; block_size   (default = $0200 = 512)
		dc.w	1		; Hardware Unit Number

		eject
*****************************************************************
*
* The following data structures are used by the device dispatcher
* only while loading device drivers as a result of a STARUP call
* being issued to the device dispatcher (Device #0).  Note that
* these data areas should probably be defined as equates in
* bank 0 Ram since they waste memory here and bank 0 is safe
* when these data areas are needed.
*
*****************************************************************
dev_os_data	

d_boot_vol_list	dc.w	1		; pcount
		dc.l	boot_vol_name
boot_vol_name	dc.w	32		; string buffer length

boot_vol_str	ds.b	34		; string and string length

sys_drivers	dc.b	'SYSTEM:DRIVERS' 

d_open_list	dc.w	2		; pcount = minimum
d_open_ref_num	dc.w	0		; reference number
d_open_path	dc.l	boot_vol_str

d_close_list	dc.w	1		; pcount = minimum
d_close_ref_num	dc.w	0		; reference number

dir_entry_list	dc.w	13		; pcount (need AuxType)
dir_ref_num	dc.w	0		; reference number
dir_entry_null	dc.w	0
dir_entry_base	dc.w	0		; base
dir_entry_disp	dc.w	0		; displacement
dir_entry_name	dc.l	d_file_name	; pointer to name string
dir_entry_num	dc.w	0		; entry number
dir_entry_ft	dc.w	0		; FileType
dir_entry_eof	dc.l	0		; EOF
dir_entry_blk	dc.l	0		; block count
dir_entry_date	ds.b	8		; create date / time (must be manually converted)
dir_entry_mod	ds.b	8		; mod date / time (must be manually converted)
dir_entry_acc	dc.w	0		; access
dir_entry_aux	dc.l	0		; AuxType
dir_entry_fst	dc.w	0		; file system ID
dir_entry_ol	dc.l	0		; option list pointer

dev_get_f_info	dc.w	4		; pcount
get_file_path	dc.l	driver_name	; file to get info on
		dc.w	0		; access
dev_file_type	dc.w	0		; FileType must be $BB
dev_aux_type	dc.l	0		; AuxType must be $01XX

driver_name	dc.w	32
driver_name_str	ds.b	34

d_file_name	dc.w	32
file_name_str	ds.b	34

set_prefix_list	dc.w	2		; pcount
prefix_num	dc.w	0		; prefix number
prefix_str	dc.l	boot_vol_str

x_unit		dc.w	0		; hardware unit number

stack_address	dc.w	0

		eject
****************************************************************
*
* This is the main entry point for the device dispatcher.
* Note that calls to device zero specify calls to the dispatcher
* and not to a particular device.  Non-zero device numbers
* will be passed on to that specific device.
*
* ENTRY:        A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             DIR Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*			¥ ¥ 0 0 0 ¥ ¥ ¥  0	
*
* EXIT:         A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             DIR Reg = GS/OS Direct Page
*               B Reg = Same as on entry
*               P Reg = N V M X D I Z C  E
*			¥ ¥ 0 0 0 ¥ ¥ 0  0	if no error
*			¥ ¥ 0 0 0 ¥ ¥ 1  0	if error
*
****************************************************************
		export	dev_dispatch
dev_dispatch	
		longa	on
		longi	on
		
		lda	<drvr_call_num	; is it a startup or shutdown?
		cmp	#$0001
		beq	a_drvr_done_it	; no, dont modify the flag or purging breaks!!!
		sta	>dd_os_call
a_drvr_done_it
		cmp	#$0004		; is it a legal command?
		bge	illegal_req	; no
		asl	a		; make index to dispatch table
		tax
		phb
		phk
		plb
		jsr	(dev_d_table,x)	; get dispatch entry
		plb
		rtl

*
* Received an illegal request.  Return with an error.
*
illegal_req
		lda	#drvr_bad_req	; set error
		sec
		rtl

*
* The following is a table of dispatch entry points for the
* device dispatcher functions.
*
*               $0000   Startup call to device dispatcher.
*               $0001   Call to set DIB pointer for current device.
*               $0002   Shutdown call to device dispatcher.
*               $0003	Full shutdown call to device dispatcher (with eject).
*		$0004 - $FFFF Are not implemented.
*
dev_d_table	dc.w	dd_boot			; startup call
		dc.w	dd_get_dib		; set DIB pointer
		dc.w	dd_shutdn		; shutdown call
		dc.w	dd_full_shutdn
		
		eject
***************************************************************
*
* This routine sets the Y register to point into the
* device list to the current device entry based on
* drvr_dev_num on direct page.  The device list must
* contain a longword count of entries in the device
* list followed by 8 bytes per device entry.  The index
* is set as follows:
*
* INDEX = ((drvr_dev_num-1) * 8) + 4
*
* ENTRY:        A Reg = Unspecified
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Unspecified
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*			¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:         A Reg = unchanged
*               X Reg = unchanged
*               Y Reg = index for [<drvr_dev_ptr],y - points at current device
*               B Reg = unchanged
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*			¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
***************************************************************
set_dev_index              
		longa	on
		longi	on
		
		pha			; preserve through call
		lda	<drvr_dev_num
		jsr	times_8_plus_4	; Y = (A * 8) + 4
		pla
		rts

times_8_plus_4             
		longa	on
		longi	on

		dec	a		; calculate supervisory list entry
		sec
		rol	a
		asl	a
		asl	a
		tay			; set SIB pointer
		rts

		eject
****************************************************************
*
* This routine is used to install a driver for the boot
* volume that can be used by the GS/OS and System Loader
* to bring in the rest of the operating system.  If the 
* DRVR_DIB_PTR is NIL at startup then a generated driver
* will be installed as the initial boot device.  This driver
* may be replaced at any time during the boot process if a
* duplicate loaded driver exists for the same slot and unit
* that the boot is occuring from.  If the DRVR_DIB_PTR is
* not NIL then a loaded driver will be used during the boot
* process.  Regardless of which type of driver is used during
* the boot process, a default generated DIB will be used as a
* master copy when generating device drivers for peripherals
* that have no loaded driver.
*
* (1) Allocate new handle for device list of size = 12 bytes
* (2) Set device count to $00000001
* IF DRVR_DIB_PTR = NIL THEN
* (3) Set 1st DIB pointer entry to point to boot volume driver
* (4) Set correct slot in boot volume DIB.
* ELSE
* (3) Install BOOT.DRIVER DIB pointer in device list.
* (4) Install BOOT.DRIVER User ID in device list.
* THEN
* (5) Load supervisory drivers
* (6) Start supervisory drivers
* (7) Load device drivers
* (8) Start device drivers
* (9) Generate drivers
* END
*
* Each device list entry is 8 bytes.  The device list will
* consist of a longword count of the number of entries in
* the device list as well as the entries for each device.
* The entries for each device consists of a longword pointer
* to the devices DIB followed by a word used to maintain the
* disk switched status when bouncing through FST's and an
* additional word reserved for future expansion.
*
* ENTRY:        A Reg = Unspecified
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Unspecified
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*			¥ ¥ 0 0 0 ¥ ¥ ¥  0
*	 DRVR_DIB_PTR =	NIL if no BOOT.DRIVER or . . .
*			Address of BOOT.DRIVER DIB
*	 BOOT_USER_ID =	User ID of BOOT.DRIVER ($3Fxx)
*
* EXIT:         A Reg = Error code
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Unspecified
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*			¥ ¥ 0 0 0 ¥ ¥ 0  0	if no error
*			¥ ¥ 0 0 0 ¥ ¥ 1  0	if error
*
****************************************************************
dd_boot		
		longa	on
		longi	on

		lda	>dev_start_flag		; for thermometer to poll for safe OS calls
		dec	a
		sta	>dev_start_flag

		stz	<post_drvr_tbl		; make sure no drivers are posted
		stz	<post_drvr_tbl+2

*
* Set the ProDOS global page to NIL.  This prevents incompatable
* applications from running by luck.  NOTE that $BF32 must be maintained
* as $00 for compatibility with SCSI2 while $BF00 must be maintained 
* as $4C for the Apple][ Memory Expansion Card (Slinky).
*
		ldx	#$003F
		lda	#$0000
global_nil
		sta	>$00BF00,x
		dex
		bpl	global_nil
*
* In case there are any Apple][ Memory Expansion cards residing
* in the slots, need to initialize $BF00 so that these devices
* will format themselves as ProDOS devices.
*
		lda	#$004C			; Place a 'JMP' instruction in $BF00
		sta	>$00BF00
		
		lda	>warm_cold_flag		; is this a warm start?
		bne	build_dev_list		; yes, dont need parameters or newhandle
*
* Setup Class 0 configuration ram.
*
		pea	sys_buffer>>16		; pointer to buffer
		pea	sys_buffer
		_readbram
		ldx	#config_ram		; point at configuration ram
		lda	>sys_buffer+$84
		sta	>0,x			; ProDOS configuration
		
		eject
*
* Now allocate an 12 byte block for the device list.
*        _________________
* $0000 |_               _|   Count of number of devices
*       |_               _|
*       |_               _|
*       |_________________|
* $0004 |_               _|   Pointer to device #1 DIB
*       |_               _|
*       |_               _|
*       |_________________|
* $0008 |_               _|   Device #1 dispatcher maintained diskswitch
*       |_________________|
* $000A |_               _|   Device #1 Driver User ID (loaded driver only)
*       |_________________|
*
* First need to get an ID for the memory segment that will
* be allocated for the device list.
*
		lda	#$3F00			; get a $3Fxx user id
		jsr	get_new_id
		sta	|dev_list_id		; save device list handle ID
		ldx	#$000C
		stx	|dev_list_size
		ldy	#$8008			; locked, fixed & no special mem
		jsr	get_new_handle
		stx	|dev_list_hndl
		sty	|dev_list_hndl+2
*
* Now build the device list.  Number of devices will be set to one.
* The first entry in the device list will point at the boot volume
* driver.
*
build_dev_list
		jsr	deref_dev_list		; dereference device list handle
		ldy	#$0002			; point at device count
		lda	#$0001			; device count = $00000001
		sta	[<drvr_dev_ptr]
		dec	a
		sta	[<drvr_dev_ptr],y
		iny				; point at first DIB entry
		iny
*
* The following code was added for system disk 4.1 to accomodate booting
* from a BOOT.DRIVER such as AppleTalk.
*
		lda	<drvr_dib_ptr		; Is boot occuring from a BOOT.DRIVER?
		ora	<drvr_dib_ptr+2
		beq	no_boot_drvr		; no, use default DIB for booting
*
* Boot is occuring from a BOOT.DRIVER.  Install boot driver DIB address and
* User ID into the device list and proceed with the boot process.
*
		lda	<drvr_dib_ptr		; install BOOT.DRIVER DIB
		sta	[<drvr_dev_ptr],y
		lda	<drvr_dib_ptr+2
		iny
		iny
		sta	[<drvr_dev_ptr],y
		bra	set_boot_id
*
* Boot is occuring from a built in firmware peripheral driver.  Install
* the default DIB into the device list and proceed with the boot process.
*
no_boot_drvr	
		stz	<boot_user_id		; no user ID on generated boot driver
		lda	#boot_dib		; set entry = boot volume DIB address
		sta	[<drvr_dev_ptr],y
		sta	<drvr_dib_ptr		; and set current DIB pointer
		iny
		iny
		lda	#boot_dib>>16		; NOTE: location must be bank $E0
		sta	[<drvr_dev_ptr],y
		sta	<drvr_dib_ptr+2
set_boot_id
		lda	#$0000			; init disk switched status
		iny
		iny
		sta	[<drvr_dev_ptr],y
		iny				; init driver User ID
		iny
		lda	<boot_user_id		; init disk switched status & user ID
		sta	[<drvr_dev_ptr],y
*
* Now set the slot in the DIB for the boot volume.
*
		inc	<drvr_dev_num		; boot volume is device #1
		jsr	set_dib_ptr		; set DIB ptr on direct page
		lda	<boot_slot		; get boot slot
		xba				; set for dib construction routine
		sta	<fw_addr
		stz	<fw_addr+2
		lda	#$0001			; unit number
		jsr	generate_slot		; generate DIB slot and unit numbers
		ldy	#slot_num		; set boot slot parameter int/ext
		lda	[<drvr_dib_ptr],y
		sta	<boot_slot
		sta	|d_boot_slot
*
* Correct default driver class and cache mask if not a
* SmartPort interface for boot device.  (Rev v0.27)
*
		ldy	#dev_char
		lda	[<drvr_dib_ptr],y
		and	#$4000			; is device generated?
		beq	class_ok		; no, dont modify the DIB
		
		ldy	#$C007			; need ($Cn07)
		lda	[<fw_addr],y
		and	#$00FF			; is this a smartport interface
		beq	class_ok
		
		lda	#$0000			; dont cache ProDOS devices
		ldy	#drvr_class
		sta	[<drvr_dib_ptr],y
		ldy	#cache_mask
		sta	[<drvr_dib_ptr],y
class_ok 
		eject
*
* Now allocate an 1 longword block for the filename list.  Eventually, this
* handle will be set to the maximum number of files contained in the 
* :boot:system:drivers directory.  After drivers have been loaded, the
* handle will be reduced to fit the number of actual file name entries.
* The structure of the filename list is as follows:
*
*			 _________________
*	BASE		|_               _|   Filename entry #1
*			|_               _|
*			|_               _|
*			|_________________|
*				 ¥
*				 ¥
*				 ¥
*			 _________________
*	BASE+(n*48)	|_               _|   Filename entry #n
*			|_               _|
*			|_               _|
*			|_________________|
*
* The structure of each filename entry is a 48 byte structure as follows:
*
*			 _________________
*	BASE=0		|_               _|   FileType of filename entry
*			|_________________|
*	BASE+2		|_               _|   AuxType of filename entry
*			|_________________|
*	BASE+4		|_               _|   User ID of filename entry
*			|_________________|
*	BASE+6		|_               _|   Load Address of filename entry
*			|_               _|
*			|_               _|
*			|_________________|
*	BASE+10		|_               _|   32 byte filename
*			|	          |
*				 ¥
*				 ¥
*				 ¥
*			|_               _|
*			|_________________|
*	BASE+42		|_               _|   Restart Flag of filename entry
*			|_________________|
*	BASE+44		|_               _|   Base device number of filename entry
*			|_________________|
*	BASE+46		|_               _|   RESERVED for filename entry
*			|_________________|
*
* First need to get an ID for the memory segment that will be allocated for the filename list.
*
		lda	>warm_cold_flag		; is this a warm start?
		bne	have_fl_hndl		; yes
		
		lda	#$3F00			; get a $3Fxx user id
		jsr	get_new_id
		sta	|file_list_id		; save device list handle ID
		ldx	#$0004			; size of block
		ldy	#$8008			; locked, fixed & no special mem
		jsr	get_new_handle
		stx	|file_list_hndl
		sty	|file_list_hndl+2
have_fl_hndl

		eject
****************************************************************
*
* This routine counts how many loaded and generated drivers
* exist excluding the boot volume slot (don't need to allocate
* space in list twice for this device).  The device list handle
* size will be increased to accomodate the number of devices
* that are to be installed in the device list.  In addition, the
* dispatcher error list handle will be increased.  Then each
* loaded driver and generated driver will be installed into the
* device list.  After being installed in the device list, each
* driver will be issued a 'drvr_startup' call.  If a driver
* returns an error from this call, the driver will be removed
* from the device list and both the device list and error list
* handle sizes will be updated.
*
* WARNING!!!!!!
*               This call must not be issued until the
*               bank 0 dispatcher is loaded.
*
****************************************************************
		longa	on
		longi	on
*
* Need to determine how many loaded drivers exist.
* Result count of how many loaded drivers is added
* to the value of the transfer count on direct page.
*
		stz	|total_gen		; no generated drivers have been built yet
		pei	<boot_slot		; preserve boot slot around drvr calls
		jsr	count_l_drvr		; count loaded drivers
*
* This following routine was added for the P8 switch and grows the size of the
* file list handle to accomodate the maximum number of driver files contained
* in the driver directory.
*
		lda	>warm_cold_flag		; is this a warm start?
		bne	fl_size_ok		; no, leave the file list alone
		
		lda	|file_list_cnt		; get current driver count
		jsr	calc_file_index		; determine handle size
		sta	|file_list_size
		jsr	put_handle_size		; save parameters for set_handle_size
		
		ldx	|file_list_hndl		; this is the handle for sethandlesize
		ldy	|file_list_hndl+2
		jsr	set_handle_size		; set the file list handle size
		bcc	have_fl_h
		jmp	time_to_die
have_fl_h
		lda	|file_list_hndl		; dereference the file list handle
		ldx	|file_list_hndl+2
		jsr	deref_handle
		sta	<file_list_ptr
		sty	<file_list_ptr+2
		
		ldy	|file_list_size
		dey
		dey
		lda	#0
clr_file_list
		sta	[<file_list_ptr],y
		dey
		dey
		bpl	clr_file_list
		
		stz	|file_list_entry
		stz	|current_file
*
* End of code added for P8 switch....
*
fl_size_ok
		pla
		sta	<boot_slot
*
* Need to determine how many generated drivers exist.
* Result count of how many generated drivers is added
* to the value of the transfer count on direct page.
*
		jsr	count_g_drvr		; count generated drivers

		eject
*
* Device list requires 8 bytes per device.  Multiply device
* count by 8 before setting device list handle size.  The total
* maximum number of devices that may be installed is 8190.
*
* Each device list entry consists of:
*        _________________
*       |_               _|   Pointer to device's DIB
*       |_               _|
*       |_               _|
*       |_________________|
*       |_               _|   Device's dispatcher maintained diskswitch
*       |_________________|
*       |_               _|   Device's Driver User ID (loaded driver only)
*       |_________________|
*
		ldy	#$0002			; set device count
		lda	#$0000
		sta	[<drvr_dev_ptr],y
		lda	|driver_count
		sta	[<drvr_dev_ptr]
		jsr	calc_dev_size		; calculate device list size
		jsr	put_handle_size		; save parameters for set_handle_size
*
* Now need to set device list handle size to accomodate drivers.
*
		ldx	|dev_list_hndl		; this is the handle for sethandlesize
		ldy	|dev_list_hndl+2
		jsr	set_handle_size		; set the device list handle size
		bcc	have_dev_h
		jmp	time_to_die
have_dev_h
		jsr	deref_dev_list		; and dereference device list handle
*
* During loading of device drivers, the driver's User ID should
* must be maintained for the first successfully loaded device
* associated with a driver.  Unsuccessfully loaded devices are
* purged.  If the first device is purged, the User ID must be
* maintained for the next device.  This is easily done by pre
* clearing the device list and only writing the User ID into the
* device list during the load.
*
		ldy	|dev_list_size		; point at one past last entry
		cpy	#$0008			; if only one device its generated
		beq	clr_dev_done		; then dont clear the list
		lda	#$0000
clr_dev_list
		dey				; point at user id of previous entry
		dey
		sta	[<drvr_dev_ptr],y	; init device list User ID
		dey
		dey
		dec	a			; init device list disk switch status
		sta	[<drvr_dev_ptr],y
		dey
		dey
		inc	a			; Init device list dib pointer
		sta	[<drvr_dev_ptr],y
		dey
		dey
		sta	[<drvr_dev_ptr],y
		cpy	#$000C
		bne	clr_dev_list
clr_dev_done
*
* Need an ID for allocation of memory for generated driver's DIB and GDIB.
*
		lda	>warm_cold_flag		; is this a warm start?
		bne	no_gdib_id		; yes
		
		lda	#$3D00			; get a $3Fxx user id
		jsr	get_new_id
		sta	|gen_drvr_id		; save device list handle ID
no_gdib_id
*
* Now must allocate memory for generated drivers DIB's and GDIB's.
*
*                DIB    64 bytes per driver
*            +__GDIB__  12 bytes per generated driver
*              TOTAL    76 bytes per generated driver
*
* Note that loaded drivers carry their own DIB with the driver so
* no additional memory allocation is required for these devices.
*
		pha				; space for multiply result
		pha
		lda	|total_gen		; number of generated drivers
		bne	nofixie
		inc	a			;force one as default
		sta	|total_gen		; fake out number of generated drivers
nofixie
		pha				; multiplicand = # generated drivers
		pea	dib_size		; multiplier = 76 bytes per driver
		_multiply
		bcc	have_size		; if no error
		jmp	time_to_die		; die if can't get boot volume
have_size
		plx				; size for new handle
		stx	|drvr_list_size
		pla
		stx	|handle_size		; in case sethandlesize due to warm start
		sta	|handle_size+2
		
		lda	>warm_cold_flag		; is this a warm start?
		bne	warm_gdib_size		; yes
		
		lda	|gen_drvr_id		; get device list handle ID
		ldy	#$8008			; locked, fixed & no special mem
		jsr	get_new_handle
		stx	|gen_drvr_hndl
		sty	|gen_drvr_hndl+2
		bra	deref_gdib
		
warm_gdib_size
		ldx	|gen_drvr_hndl		; resize GDIB handle on restart
		ldy	|gen_drvr_hndl+2
		jsr	set_handle_size
		bcc	deref_gdib
		jmp	time_to_die
deref_gdib
		jsr	deref_drv_list		; and dereference driver list handle
*
* Need an ID for allocation of memory for supervisory driver list.
*
		lda	>warm_cold_flag		; is this a warm start?
		bne	warm_sup_hndl
		
		lda	#$3E00			; get a $3Exx user id
		jsr	get_new_id
		sta	|sup_drvr_id		; save device list handle ID
*
* Now must allocate memory for supervisory driver list.
*
		lda	|sup_drvr_cnt		; size of block to create
		sec
		rol	a
		asl	a
		asl	a
		tax				; size of new handle
		lda	|sup_drvr_id		; User ID for new handle
		ldy	#$8008			; locked, fixed & no special mem
		jsr	get_new_handle
		stx	|sup_drvr_hndl
		sty	|sup_drvr_hndl+2
warm_sup_hndl
		lda	|sup_drvr_hndl		; dereferenc supervisor handle
		ldx	|sup_drvr_hndl+2
		jsr	deref_handle
		sta	<sup_drvr_ptr
		stx	<sup_drvr_ptr+2
		
		lda	|sup_drvr_cnt		; init supervisor driver count
		sta	[<sup_drvr_ptr]
		lda	#$0000
		ldy	#$0002
		sta	[<sup_drvr_ptr],y
*
* Now need to load all RAM LOADED DRIVERS.  As each driver is
* loaded, a pointer to the driver's DIB is placed into the
* device list and the device count is incremented for each device
* installed into the device list
*
		lda	#$0002			; set device number = boot volume + 1
		sta	<drvr_dev_num
		stz	<post_drvr_tbl		; make sure no drivers are posted
		stz	<post_drvr_tbl+2
		jsr	load_drivers		; load all ram loaded drivers
*
* Now need to generate all RAM LOADED DRIVERS.  As each driver is
* generated, a pointer to the driver's DIB is placed into the
* device list and the device count is incremented.  In addition, a
* DIB is generated as well as a GDIB and placed into the generated
* driver list.
*
		jsr	gen_drivers		; generate all drivers
*
* Now must issue a startup call to each driver.  If a driver
* returns an error as a result of a DRVR_STARTUP call, the
* driver will be purged from the device list.
*
		lda	#$0001			; point at boot volume
		sta	<drvr_dev_num
*
* Update class and device id number for boot volume prior to
* issuing a drvr_startup call.
*
		jsr	set_dib_ptr		; point at boot volume DIB
		ldy	#dev_char		; is this a generated driver?
		lda	[<drvr_dib_ptr],y
		rol	a
		rol	a
		bcc	loaded_boot		; yes, dont update the DIB
		ldy	#slot_num
		lda	[<drvr_dib_ptr],y
		xba				; need $Cn00 before identifying device
		and	#$0700
		ora	#$C000
		sta	<fw_addr
		stz	<fw_addr+2
		jsr	ident_slot		; X = class
		ldy	#drvr_class		; update class
		txa
		sta	[<drvr_dib_ptr],y
		and	#$0003			; want class, not subclass
		asl	a
		tax
		ldy	#$0001			; 1 device this slot
		tya				; this is unit #1
		sta	|gen_count		; name must remain .D1
		jsr	(build_dib,x)		; update boot volume dib

		jsr	startup_l_drvr		; startup boot device
*
* Find first generated driver beyond the boot device and then startup
* all remaining generated devices.
*
loaded_boot
		inc	<drvr_dev_num		; search for 1st generated driver
find_g_drvr
		jsr	set_dib_ptr		; point at driver DIB
		ldy	#dev_char		; is this a generated driver?
		lda	[<drvr_dib_ptr],y
		rol	a
		rol	a
		bcs	dev_start_loop		; yes, startup remaining drivers!!!
		inc	<drvr_dev_num		; else point at next device
		lda	<drvr_dev_num
		cmp	[<drvr_dev_ptr]
		blt	find_g_drvr
		beq	find_g_drvr
		bra	startup_done		; only startup generated drivers!
dev_start_loop
		stz	<drvr_call_num		; force device startup call
		jsl	dev_dispatcher		; issue startup call to device
		inc	<drvr_dev_num		; point at next device to startup
		lda	[<drvr_dev_ptr]		; get number of devices
		cmp	<drvr_dev_num		; check if all devices started
		bge	dev_start_loop		; loop until all devices started
startup_done
		stz	<drvr_dev_num		; restore original input parameters
		stz	<drvr_tran_cnt		; no data is returned
		stz	<drvr_tran_cnt+2
		jsr	fix_dev_handle		; now set the device list size
		lda	#no_error
		sta	>dev_start_flag
		clc
		rts
vector_table 
		jml	move_info		; $01FC70 = move routine
		
		eject
***************************************************************
*
* The following routine returns a user ID from the miscellaneous
* tool set.
*  ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___
* |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |
* | F | E | D | C | B | A | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 |
* |___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |
*   |   |   |   |   |   |   |   |   |___|___|___|___|___|___|___|__  Assigned by ID manager
*   |   |   |   |   |   |   |   |
*   |   |   |   |   |___|___|___|__________________________________  Assigned by Application
*   |   |   |   |        
*   |___|___|___|__________________________________________________  Legislated by convention
*
*	$30XX		Cannot be used
*	$31XX		SCM
*	$32XX		Gloader / Gquit
*	$33XX		File System Translators
*	$34XX		Express Loader
*	$35XX		Reserved:
*	$36XX		Reserved:
*	$37XX		Reserved:
*	$38XX		Reserved:
*	$39XX		User ID for loaded device driver
*	$3AXX		User ID for loaded supervisor driver
*	$3BXX		Segments allocated by supervisor drivers
*	$3CXX		Segments allocated by device drivers
*	$3DXX		Allocated for generated DIB's
*	$3EXX		Supervisory driver list
*	$3FXX		Device driver list & Device Dispatcher Components
*
* ENTRY: Call via 'JSR'
*               A Reg = User ID
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*            Bank Reg = Current bank executing in
*           Stack Reg = GS/OS Stack
*               P Reg = N V M X D I Z C  E
*			¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:         A Reg = User ID
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*            Bank Reg = Current bank executing in
*           Stack Reg = GS/OS Stack
*               P Reg = N V M X D I Z C  E
*			¥ ¥ 0 0 0 ¥ ¥ 0  0	if no error
*			¥ ¥ 0 0 0 ¥ ¥ 1  0	if error
*
***************************************************************
get_new_id
		longa	on
		longi	on
		
		pha				; space for result
		pha				; nyxx ID
		_getnewid
		plx				; pull ID off stack
		bcs	time_to_die		; die if can't get boot volume
		txa
		rts
		
		eject
***************************************************************
*
* The following routine returns a handle of the length specified.
*  ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___
* |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |
* | F | E | D | C | B | A | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 |
* |___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |__  AttrBank
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |______  AttrAddr
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |__________  AttrPage
*   |   |   |   |   |   |   |   |   |   |   |   |   |______________  AttrNoSpec
*   |   |   |   |   |   |   |   |   |   |   |   |__________________  AttrNoCross
*   |   |   |   |   |   |   |   |   |___|___|______________________  Reserved
*   |   |   |   |   |   |   |___|__________________________________  AttrPurge
*   |   |   |___|___|___|__________________________________________  Reserved
*   |   |__________________________________________________________  AttrFixed
*   |______________________________________________________________  AttrLocked
*
* ENTRY: Call via 'JSR'
*               A Reg = User ID
*               X Reg = Size of handle (0 to 65535 bytes)
*               Y Reg = Handle Attributes
*             Dir Reg = GS/OS Direct Page
*            Bank Reg = Current bank executing in
*           Stack Reg = GS/OS Stack
*               P Reg = N V M X D I Z C  E
*			¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:         A Reg = Error code
*               X Reg = Least significant word of handle
*               Y Reg = Most significant word of handle
*             Dir Reg = GS/OS Direct Page
*            Bank Reg = Current bank executing in
*           Stack Reg = GS/OS Stack
*               P Reg = N V M X D I Z C  E
*			¥ ¥ 0 0 0 ¥ ¥ 0  0	if no error
*			¥ ¥ 0 0 0 ¥ ¥ 1  0	if error
*
***************************************************************
get_new_handle
		longa	on
		longi	on
		
		pha			; space for result
		pha
		pea	$0000		; size of block is 12 bytes
		phx
		pha			; user ID
		phy			; locked, fixed & no special mem
		pea	$0000		; pointer to block
		pea	$0000
		_newhandle
		plx			; least significant word of handle
		ply			; most significant word of handle
		bcc	have_new_handle
time_to_die
		jsl	sys_death	; return with tool error
have_new_handle
		rts

		eject
***************************************************************
*
* The following routine sets the length of a locked handle.
* Note that the maximum handle size is 65535 bytes.
*
* ENTRY: Call via 'JSR'
*	  handle_size =	Longword value indicating size to set handle to
*               A Reg = Undefined
*               X Reg = Least significant word of handle
*               Y Reg = Most significant word of handle
*             Dir Reg = GS/OS Direct Page
*            Bank Reg = Current bank executing in
*           Stack Reg = GS/OS Stack
*               P Reg = N V M X D I Z C  E
*			¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:         A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*            Bank Reg = Current bank executing in
*           Stack Reg = GS/OS Stack
*               P Reg = N V M X D I Z C  E
*			¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
***************************************************************
set_handle_size
		longa	on
		longi	on
		
		tsc
		sta	|stack_address
		
		phy				; this will be the handle to lock
		phx
		
		lda	|handle_size+2		; this will be the handle size
		pha
		lda	|handle_size
		pha
		phy				; this is the handle for sethandlesize
		phx
		
		phy				; this is the handle for hunlock
		phx
		_hunlock			; unlock the handle
		bcs	tool_err_exit		; if can't unlock handle
		
		_sethandlesize			; set the handle size
		bcs	lock_it			; if can't resize handle
lock_handle
		_hlock				; and lock the handle
tool_err_exit
		ldx	|stack_address
		txs
		rts
		
lock_it
		ldx	|stack_address		; point at handle to lock
		dex
		dex
		dex
		dex
		txs
		_hunlock			; lock the handle
		sec				; an error occurred
		lda	#$02FF			; but I really dont know what it was anymore!
		bra	tool_err_exit

		eject
***************************************************************
*
* The following routine unlocks and purges a handle.
*
* ENTRY: Call via 'JSR'
*               A Reg = User ID of handle
*               X Reg = Least significant word of handle
*               Y Reg = Most significant word of handle
*             Dir Reg = GS/OS Direct Page
*            Bank Reg = Current bank executing in
*           Stack Reg = GS/OS Stack
*               P Reg = N V M X D I Z C  E
*			¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:         A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*            Bank Reg = Current bank executing in
*           Stack Reg = GS/OS Stack
*               P Reg = N V M X D I Z C  E
*			¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
***************************************************************
dispose_handle
		longa	on
		longi	on
		
		pha				; dispose the user ID
		
		phy				; this will be the handle to lock
		phx
		
		phy				; this is the handle for hunlock
		phx
		_hunlock			; unlock the handle
		bcs	time_to_die		; if can't unlock handle
		
		_disposehandle			; toss the ma'ma
		bcs	time_to_die		; if can't unlock handle

		_deleteid
		bcs	time_to_die		; if can't unlock handle
		rts

		eject
***************************************************************
*
* The following routine is used to dereference the handle
* for the memory segment used to maintain generated driver
* DIB's and GDIB's.
*
* ENTRY: Call via 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*            Bank Reg = Current bank executing in
*           Stack Reg = GS/OS Stack
*               P Reg = N V M X D I Z C  E
*			¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:         A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*            Bank Reg = Current bank executing in
*           Stack Reg = GS/OS Stack
*               P Reg = N V M X D I Z C  E
*			¥ ¥ 0 0 0 ¥ ¥ 0  0	if no error
*			¥ ¥ 0 0 0 ¥ ¥ 1  0	if error
*
***************************************************************
deref_drv_list
		longa	on
		longi	on

		lda	|gen_drvr_hndl
		ldx	|gen_drvr_hndl+2
		jsr	deref_handle
		sta	<gen_drvr_ptr
		stx	<gen_drvr_ptr+2
		rts

		eject
***************************************************************
*
* This routine counts the number of devices supported by all
* GS/OS device drivers residing in the SYSTEM/DRIVERS
* subdirectory on the boot volume.  GS/OS drivers must have
* a FileType of $BB and an AuxType of $01XX.  The least
* significant 6 bits of least significant byte of the AuxType
* field indicate the number of devices supported by a driver.
* The two most significant bits of the least significant byte
* indicate the type of GS/OS driver (device driver or supervisory
* driver).
*
* AuxType: Device Driver
*  ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___
* |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |
* | F | E | D | C | B | A | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 |
* |___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|
*   |   |   |   |   |   |   |   |   |   |   |___|___|___|___|___|_ # Devices
*   |   |   |   |   |   |   |   |   |   |_________________________ 0
*   |   |   |   |   |   |   |   |   |_____________________________ 0
*   |___|___|___|___|___|___|___|_________________________________ = %00000001
*
* AuxType: Supervisory Driver
*  ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___
* |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |
* | F | E | D | C | B | A | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 |
* |___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|
*   |   |   |   |   |   |   |   |   |   |   |___|___|___|___|___|_ 0
*   |   |   |   |   |   |   |   |   |   |_________________________ 1
*   |   |   |   |   |   |   |   |   |_____________________________ 0
*   |___|___|___|___|___|___|___|_________________________________ = %00000001
*
* AuxType: Boot Driver
*  ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___
* |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |
* | F | E | D | C | B | A | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 |
* |___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|
*   |   |   |   |   |   |   |   |   |   |   |___|___|___|___|___|_ = %000001
*   |   |   |   |   |   |   |   |   |   |_________________________ 0
*   |   |   |   |   |   |   |   |   |_____________________________ 1
*   |___|___|___|___|___|___|___|_________________________________ = %00000001
*
* ENTRY: Call via 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*            Bank Reg = Current bank executing in
*           Stack Reg = GS/OS Stack
*               P Reg = N V M X D I Z C  E
*			¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:         A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*            Bank Reg = Current bank executing in
*           Stack Reg = GS/OS Stack
*               P Reg = N V M X D I Z C  E
*			¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
***************************************************************
count_l_drvr
		longa	on
		longi	on
*
* Get the boot volume.
*
		_get_boot_vol d_boot_vol_list
		bcc	open_drvr_file
		jmp	time_to_die		; die if can't get boot volume
*
* Open '/BOOT/SYSTEM/DRIVERS/'
*
open_drvr_file
		lda	#64			; set buffer length
		sta	|boot_vol_name

		sep	#$30			; 8 bit 'm' & 'x'
		longa	off
		longi	off

		ldx	|boot_vol_str		; append 'SYSTEM/DRIVERS'
		inx
		ldy	#0
append_str
		lda	|sys_drivers,y
		sta	|boot_vol_str+1,x
		inx
		iny
		cpy	#$0E
		bne	append_str

		rep	#$30			; 16 bit 'm' & 'x'
		longa	on
		longi	on

		dex
		stx	|boot_vol_str		; don't forget to set the string length

		jsr	do_my_open		; open driver file
		bcc	it_opened
		jmp	no_loaded_drvrs		; if no drivers
it_opened
		lda	|d_open_ref_num
		sta	|dir_ref_num
		sta	|d_close_ref_num
*
* Get directory entry with base and displacement values
* set to zero to return the number of entries in the DRIVERS
* subdirectory.
*
		jsr	set_dir_base		; GET_DIR_ENTRY (base=disp=0)
		bcs	no_drivers		; if cant count drivers
		lda	|dir_entry_num		; save number of entries in directory
		beq	no_drivers		; if no drivers
*
* Get directory entries for each file in the DRIVERS subdirectory.
* If a file has a FileType of $BB and an AuxType of $01XX then
* add the least significant six bits of the AuxType to the current
* driver count.  Loop until all directory entries in the DRIVER
* subdirectory have been examined.
*
get_entry_loop
		jsr	next_entry		; GET_DIR_ENTRY
		bcs	no_drivers
have_drvr_cnt
		lda	|dir_entry_ft		; is file type $BB?
		and	#$00FF
		cmp	#$00BB
		bne	not_a_driver		; no
		
		lda	|dir_entry_aux		; is aux type $01XX?
		and	#$FF00
		cmp	#$0100
		bne	not_a_driver		; no
		
		lda	|dir_entry_aux		; is it a device driver?
		and	#$00C0
		beq	device_drvr		; yes
		
		cmp	#$0040			; is it a supervisory driver?
		bne	not_a_driver		; no
		
		inc	|sup_drvr_cnt		; yes, increment supervisor count
		
		lda	>warm_cold_flag		; is this a warm start?
		bne	not_a_driver		; yes
		
		inc	|file_list_cnt		; and file count
		bra	not_a_driver
device_drvr
		lda	|dir_entry_aux		; else add XX to driver count
		and	#$003F
		clc
		adc	|driver_count
		sta	|driver_count

		lda	>warm_cold_flag		; is this a warm start?
		bne	not_a_driver		; yes
		inc	|file_list_cnt		; and file count		
not_a_driver
		bra	get_entry_loop		; loop until no more entries
no_drivers
		jsr	do_my_close		; close /boot/system/drivers
		bcc	no_loaded_drvrs
		jmp	time_to_die		; die if can't get boot volume
no_loaded_drvrs
		rts

		eject
***************************************************************
*
* This routine is used to count the number of generated
* drivers to be loaded.  The number of device drivers
* is added to the current contents of DRVR_TRAN_CNT.
*
* ENTRY: Call via 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*            Bank Reg = Current bank executing in
*           Stack Reg = GS/OS Stack
*               P Reg = N V M X D I Z C  E
*			¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:         A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*            Bank Reg = Current bank executing in
*           Stack Reg = GS/OS Stack
*               P Reg = N V M X D I Z C  E
*			¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
***************************************************************
count_g_drvr
		longa	on
		longi	on

		lda	#$000F		; initial slot is 15 (7 external)
		sta	|gen_slot_num
		
count_g_loop
		lda	|gen_slot_num	; request the slot
		jsl	dyn_slot_arbiter
		bcs	next_g_slot	; if slot was not available

		lda	|gen_slot_num	; create $Cn00 pointer
		xba
		and	#$0700
		ora	#$C000
		sta	<fw_addr
		stz	<fw_addr+2
		
		jsr	ident_slot	; identify device in slot
		pha
		clc			; adjust total driver count
		adc	|driver_count
		sta	|driver_count
		pla			; adjust generated driver count
		clc
		adc	|total_gen
		sta	|total_gen
next_g_slot
		dec	|gen_slot_num	; next slot to search
		bne	count_g_loop
		dec	|total_gen	; boot volume already exists
		rts

		eject
***************************************************************
*
* This routine is used to identify the device in a slot.
*
* ENTRY:        fwaddr  = (lw) base address of slot to identify
*               A Reg   = Undefined
*               X Reg   = Undefined
*               Y Reg   = Undefined
*             Dir Reg   = GS/OS Direct Page
*               B Reg   = Current bank executing in
*               P Reg = N V M X D I Z C  E
*			¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:         A Reg   = Number of devices this slot
*               X Reg   = Device Type (0,1 or 2 where 0 includes subtype)
*               Y Reg   = Undefined
*             Dir Reg   = GS/OS Direct Page
*               B Reg   = Current bank executing in
*               P Reg = N V M X D I Z C  E
*			¥ ¥ 0 0 0 ¥ ¥ 0  0	if no error
*			¥ ¥ 0 0 0 ¥ ¥ 1  0	if error
*
***************************************************************
ident_slot
		longa	on
		longi	on

		sep	#$30		; 8 bit 'm' & 'x'
		longa	off
		longi	off
		stz	<fw_addr	; make sure it's $Cn00
		ldy	#$05		; point at signature in rom
		ldx	#$00		; point at signature list
chck_pro_sig
		lda	[<fw_addr],y	; check signature bytes
		cmp	pro_sig,x	; is it ProDOS/SmartPort
		bne	check_pascal	; no
		dey			; point at next signature in rom
		dey
		inx			; point at next signature in list
		cpx	#$03		; done all ProDOS signatures?
		bne	chck_pro_sig	; no
		ldy	#$07		; point at signature in rom
		lda	[<fw_addr],y	; is it a SmartPort peripheral?
		bne	check_prodos	; no

		eject
***************************************************************
*
* Got here if it's a SmartPort device.  Need to make a status call
* to unit 0 to determine number of devices.  Must execute the
* stack futz, switch to emulation mode, place a SmartPort unit
* zero status call in bank 0, execute the call and unfutz the
* stack.
*
***************************************************************
		longa	off
		longi	off

*  ___ ___ ___ ___ ___ ___ ___ ___
* |   |   |   |   |   |   |   |   |
* | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 | SmartPort Type ID ($CnFB)
* |___|___|___|___|___|___|___|___|
*   |   |   |   |   |   |   |   |__ RAM Card
*   |   |   |   |   |   |   |______ SCSI Interface Card
*   |   |   |   |   |   |__________ Reserved (must be 0)
*   |   |   |   |   |______________ Reserved (must be 0)
*   |   |   |   |__________________ Reserved (must be 0)
*   |   |   |______________________ Reserved (must be 0)
*   |   |__________________________ Interface Supports Super Calls
*   |______________________________ Interface Supports Extended Calls
*
		ldy	#$FB		; get SmartPort ID Type
		lda	[<fw_addr],y
		and	#%00000010
		php
		
		ldy	#$FF		; calculate SmartPort entry point
		lda	[<fw_addr],y
		clc
		adc	#$03
		sta	<fw_addr

		plp			; is this a SCSI device?

		rep	#$30		; 16 bit 'm' & 'x'
		longa	on
		longi	on

		bne	it_is_a_scsi	; if SCSI install one device

		jsr	setup_sp_stat	; setup for smartport status call
		jsl	b0_core		; execute unit 0 status call
		bcs	no_device	; no device if error returned
		lda	>sys_buffer	; else get number of devices
set_sp_class
		ldx	#$0001		; driver class = 1
		jmp	g_search_done

it_is_a_scsi
		jsr	setup_sp_stat	; setup for smartport status call
		jsl	b0_core		; execute unit 0 status call
		bcs	no_device	; no device if error returned
		lda	>sys_buffer	; if no devices
		beq	set_sp_class
		lda	#$0001		; SCSI is always one device
		bra	set_sp_class

		eject
***************************************************************
*
* Got here if it's a ProDOS device.  Assume at least one device.
* If configuration ram is set, determine if a second device is
* present and update the count as appropriate.  No driver will
* be generated for DISK][ devices.  These devices will not be
* tallied by this routine.
*
***************************************************************
check_prodos
		longa	off
		longi	off
		
		ldx	#$00		; driver class = 0, subclass = 0
		ldy	#$FF		; point at entry offset byte
		lda	[<fw_addr],y	; is it a 16 sector DISK][?
		sta	<fw_addr	; set entry point
		beq	g_search_done	; yes
		
		inc	a		; is it a 13 sector DISK][?
		beq	g_search_done	; yes
		
		lda	#$02		; assume 2 devices per slot for now
		bra	g_search_done

		eject
***************************************************************
*
* It's not ProDOS or SmartPort so need to determine
* if it's Pascal1.1
*
***************************************************************
check_pascal
		longa	off
		longi	off
		
		ldy	#$05		; point at signature in rom
		ldx	#$00		; point at signature list
chck_p_sig
		lda	[<fw_addr],y	; check signature bytes
		cmp	pascal_sig,x	; is it Pascal1.1
		bne	check_basic	; no
		
		iny			; point at next signature in rom
		iny
		inx			; point at next signature in list
		cpx	#$02		; done all Pascal signatures?
		bne	chck_p_sig	; no
		
		ldy	#$0B		; point at last signature
		lda	[<fw_addr],y	; check signature bytes
		cmp	pascal_sig,x	; is it Pascal1.1
		bne	check_basic	; no
*
* It's a Pascal1.1 device.  Need to know if it is one of the
* following Pascal1.1 device types:
*
*               Printer
*               Serial
*               Modem
*               80 Column
*               Network / Bus
*
		iny			; point at signature in rom
		lda	[<fw_addr],y	; check signature bytes
		and	#$F0		; most significant nibble only relevant
chck_p_type
		cmp	pascal_sig,x	; is it a legal device?
		beq	legal_pascal	; yes
		
		inx			; point at next signature in list
		cpx	#$08		; done all Pascal1.1 types?
		bne	chck_p_type	; no
		bra	no_device
legal_pascal
		lda	#$01		; if legal, mark 1 device
		ldx	#$80		; driver class = 0, subclass = 1
		bra	g_search_done

		eject
***************************************************************
*
* Got here if it is not a Pascal1.1 device.  Need to determine
* if a rom resides in the slot to make an educated guess about
* the existance of a BASIC device.
*
***************************************************************
check_basic
		ldy	#$00		; check rom
		tyx
		lda	[<fw_addr],y
		beq	g_search_done	; if initialization entry is a BRK
		
		inc	a		
		beq	g_search_done	; if initialization entry is a SBC LONG,X
		
		dec	a		; restore A = ROM contents ($Cn00)
basic_rom_chk
		cmp	[<fw_addr],y	; check rom
		bne	no_device
		
		dex
		bne	basic_rom_chk
		
		lda	#$01		; rom appears stable, set 1 device
		ldx	#$80		; driver class = 0, subclass = 1
		bra	g_search_done
no_device
		sep	#$20		; 8 bit 'm'
		longa	off
		
		lda	#$00		; no device this slot
g_search_done
		rep	#$30		; 16 bit 'm' and 'x'
		longa	on
		longi	on
		
		and	#$007F		; maximum is 127 per slot
		rts

		eject
***************************************************************
*
* This routine sets up the bank 0 dispatcher with a standard
* SmartPort status call to unit 0 with a status code of 0.
*
* ENTRY: Call via 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*            Bank Reg = Current bank executing in
*           Stack Reg = GS/OS Stack
*               P Reg = 0=m=x=e
*
* EXIT:         A Reg = Last byte of parameter list
*               X Reg = Address of SmartPort command
*               Y Reg = Address of parameter list+7
*             Dir Reg = GS/OS Direct Page
*            Bank Reg = Current bank executing in
*           Stack Reg = GS/OS Stack
*               P Reg = 0=m=x=e
*
***************************************************************
setup_sp_stat
		longa	on
		longi	on

		lda	>call_list_ptr	; get address where command resides
		tax
		lda	#$0000		; set command = status call
		sta	>0,x
		lda	#param_list_ptr	; set parameter list pointer
		sta	>1,x
		tay
		lda	#$EAEA		; 2 nop instructions
		sta	>3,x
		phx
		tyx			; point into the parameter list
		sep	#$20		; 8 bit 'm'
		longa	off
		ldy	#sp_unit0	; point at parameter list
setup_unit0
		lda	|0,y		; move parameter list to bank 0
		sta	>0,x
		inx
		iny
		cpy	#sp_unit0+7
		bne	setup_unit0
		plx
		rts

		eject
***************************************************************
*
* The following routine dereferences the device list handle and
* stores the resulting pointer on GS/OS direct page.
*
* ENTRY: Call via 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*            Bank Reg = Current bank executing in
*           Stack Reg = GS/OS Stack
*               P Reg = N V M X D I Z C  E
*			¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:         A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Unchanged
*             Dir Reg = GS/OS Direct Page
*        DRVR_DEV_PTR = Now points at device list
*            Bank Reg = Current bank executing in
*           Stack Reg = GS/OS Stack
*               P Reg = N V M X D I Z C  E
*			¥ ¥ 0 0 0 ¥ ¥ ¥  0
***************************************************************
deref_dev_list
		longa	on
		longi	on

		ldx	|dev_list_hndl+2	; get file handle
		lda	|dev_list_hndl
		jsr	deref_handle		; dereference the handle
		sta	<drvr_dev_ptr		; set pointer on direct page
		sty	<drvr_dev_ptr+2
		rts

		eject
*****************************************************************
*
* This routine optains the DIB pointer for the device specified
* by the current DRVR_DEV_NUM from the device list to set the
* DRVR_DIB_PTR on GS/OS direct page.
*                  __________________
*           $0000 |_                _|   ... Number of devices
*           $0001 |_                _|
*           $0002 |_                _|
*           $0003 |__________________|
*           $0004 |_                _|   ... Pointer to device #1 DIB
*           $0005 |_                _|
*           $0006 |_                _|
*           $0007 |__________________|
*           $0008 |_                _|   ... Device #1 disk switched status
*           $0009 |__________________|
*           $000A |_                _|   ... Device #1 User ID
*           $000B |__________________|
*           $000C |_                _|   ... Pointer to device #2 DIB
*           $000D |_                _|
*           $000E |_                _|
*           $000F |__________________|
*           $0010 |_                _|   ... Device #2 disk switched status
*           $0011 |__________________|
*           $0012 |_                _|   ... Device #2 User ID
*           $0013 |__________________|
*           $0014  ...
*
* ENTRY:        A Reg = Unspecified
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Same as execution bank
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*			x x 0 0 0 x x x  
*
* EXIT:         A Reg = Unchanged
*               X Reg = Unchanged
*               Y Reg = Unchanged
*               B Reg = Same as execution bank
*             Dir Reg = GS/OS Direct Page
*        DRVR_DIB_PTR = Now points at DIB for current DRVR_DEV_NUM
*               P Reg = N V M X D I Z C  E
*			¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
set_dib_ptr
		longa	on
		longi	on

		pha
		phy
		php
		rep	#$30			; 16 bit 'm' & 'x'
		longa	on
		longi	on
		lda	<drvr_dev_num		; device number to set DIB pointer for
		dec	a			; calculate index into device list
		sec
		rol	a
		asl	a
		asl	a
		tay
		lda	[<drvr_dev_ptr],y	; set the DIB pointer
		sta	<drvr_dib_ptr
		iny
		iny
		lda	[<drvr_dev_ptr],y
		sta	<drvr_dib_ptr+2
		plp
		ply
		pla
		rts

		eject
**************************************************************
*
* This routine is used to load and install all RAM LOADED
* DRIVERS.  After each driver is loaded, it is installed
* into the device list.  A DRVR_STARTUP call will be issued
* to each driver.  If a driver returns an error, the driver
* will be purged from the device list.
*
* ENTRY: via a 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*            Bank Reg = Current Program Bank
*             Dir Reg = GS/OS Direct Page
*           Stack Reg = GS/OS Stack
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:  via 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*            Bank Reg = Current Program Bank
*             Dir Reg = GS/OS Direct Page
*           Stack Reg = GS/OS Stack
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
***************************************************************
load_drivers
		longa	on
		longi	on

		pei	<boot_slot	; preserve for driver generation
		lda	#$0001		; 1st supervisor is supervisor #1
		sta	[<sup_drvr_ptr]
		jsr	do_my_open	; open '/boot/system/drivers'
		bcs	no_l_drivers
		
		lda	|d_open_ref_num	; save reference number for close
		sta	|d_close_ref_num
		jsr	set_my_prefix	; set_prefix to /boot/system/drivers
		bcs	no_l_drivers
		
		jsr	load_supervisor	; load supervisory drivers
		jsr	load_dev_driver	; load device drivers
no_l_drivers
		_get_boot_vol d_boot_vol_list
		jsr	set_my_prefix	; set prefix back to boot vol
		jsr	do_my_close	; close '/boot/system/drivers'
		lda	|load_device	; prepare to generate drivers
		sta	<drvr_dev_num
		pla
		sta	<boot_slot
		rts

		eject
*****************************************************************
*
* Get directory entries for each file in the DRIVERS subdirectory.
* If a file has a FileType of $BB and an AuxType of $0140 then
* the driver is a supervisory driver and will be loaded and started.
*
* All drivers are of a FileType of $BB.  GS/OS Device drivers
* use a AuxType of $01XX for active drivers or $81XX for any
* inactive drivers.  The least significant 6 bits of the least
* significant byte of the AuxType indicates the number of
* devices supported by the driver.
*  ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___
* |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   | Supervisory
* | F | E | D | C | B | A | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 | Drivers:
* |___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|
*   |   |   |   |   |   |   |   |   |   |   |___|___|___|___|___|__ %xxxxxxxx
*   |   |   |   |   |   |   |   |   |   |__________________________ 1
*   |   |   |   |   |   |   |   |   |______________________________ 0
*   |___|___|___|___|___|___|___|__________________________________ %00000001
*
* ENTRY: via a 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*            Bank Reg = Current Program Bank
*             Dir Reg = GS/OS Direct Page
*           Stack Reg = GS/OS Stack
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:  via 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*            Bank Reg = Current Program Bank
*             Dir Reg = GS/OS Direct Page
*           Stack Reg = GS/OS Stack
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
load_supervisor
		longa	on
		longi	on

		jsr	set_dir_base		; prepare to walk driver directory
		lda	#$0001
		sta	[<sup_drvr_ptr]		; init 1st supervisory load number
		lda	|sup_drvr_cnt
		bne	sup_entry_loop

*
* Supervisor driver count pointed at next entry to be loaded.  Since
* there was no entry to be loaded, the correct driver count is the
* current count-1.
*
no_sups 
		lda	[<sup_drvr_ptr]
		dec	a
		sta	[<sup_drvr_ptr]
		rts

*
* Each GET_DIR_ENTRY call will automatically advance through the
* /boot/system/drivers/ directory.  Walk directory checking the
* filetype and auxtype for GS/OS supervisory drivers.
*
sup_entry_loop
		jsr	next_entry		; GET_DIR_ENTRY
		bcs	no_sups			; ** REVISED v0.07a02
		
		jsr	check_filetype		; is it filetype $BB?
		bne	sup_entry_loop		; no, try the next file
		cmp	#$0140			; is this a supervisory driver?
		bne	sup_entry_loop		; no

		eject
*
* Driver is a supervisory driver.  Load and install the supervisory
* driver into the supervisory driver list.  A header must reside at
* the load address of the supervisory driver after an initialload2
* has been executed to bring in the supervisory driver.  The structure
* of this header is seen below:
*                ____________________
*       +$0000  |_                  _|
*               |_    Supervisor    _|
*               |_   Driver Entry   _|
*               |____________________|
*       +$0004  |_    Supervisor    _|
*               |_________ID_________|
*       +$0006  |_    Supervisor    _|
*               |_______Version______|
*       +$0008  |_                  _|
*               |_    Supervisor    _|
*       +$000A  |_   Name Pointer   _|
*               |____________________|
*       +$000C  |_  Characteristic  _|
*               |____________________|
*       +$000E  |_     Reserved     _|
*               |____________________|
*
		sec				; flag that load is a supervisor driver
		jsr	do_file_load		; and load the driver
*
* Install the supervisor into the supervisor list and start it.
*                _____________________  _
*   +$0000      |_                   _|  |
*               |_ Supervisor Driver _|  |_ Device list entry count
*               |_       Count       _|  |
*               |_____________________| _|
*   +$0004      |_                   _|  |
*               |_   Entry pointer   _|  |
*               |_   in supervisor   _|  |
*               |_____________________|  |_ Supervisory driver entry
*   +$0008      |_   Supervisor ID   _|  |
*               |_____________________|  |
*   +$000A      |_      User ID      _|  |
*               |_____________________| _|
*
		bcs	sup_entry_loop		; if cannot load supervisor
		
		lda	[<sup_drvr_ptr]		; get current supervisor number
		sta	|cur_sup		; set in case purge is neccessary
		jsr	set_sup_index
		
		lda	|temp_user_id		; set supervisor's USER ID
		sta	[<sup_drvr_ptr],y
		
		jsr	y_minus_6		; point at SIB pointer
		lda	|temp_load_addr		; set SIB pointer in list and dp
		sta	[<sup_drvr_ptr],y
		sta	<sib_ptr
		iny
		iny
		lda	|temp_load_addr	+2
		sta	[<sup_drvr_ptr],y
		sta	<sib_ptr+2
		
		phy
		ldy	#sib_id			; SIB ID Number (SIB index)
		lda	[<sib_ptr],y
		tyx
		ply				; and install in supervisor list
		iny
		iny
		sta	[<sup_drvr_ptr],y
		
		sta	|cur_sib_id		; save for duplicate check
		txy
		iny
		iny
		lda	[<sib_ptr],y		; get supervisor version #
		sta	|cur_sib_ver		; save for duplicate check
*
* Obtain the supervisor restart flag and install into the device
* dispatcher file list structure.
*
		ldy	#sib_char		; get supervisor characteristics
		lda	[<sib_ptr],y
		jsr	set_restart
*
* Now that supervisory driver is loaded, issue a supervisor_startup
* call.  If supervisory driver returns an error as a result of the
* startup call, load next supervisor over this position.
*
		lda	[<sup_drvr_ptr]		; get current startup supervisor
		ldx	#$0000			; startup call
		jsl	sup_drvr_disp		; call supervisory driver
		bcc	dont_unload_sup		; if no error on startup
*
* Supervisor driver couldnot startup.  Unload segment and purge
* memory for this supervisory driver.
*
		dec	|current_file		; next file list entry will be at same as current
		lda	|cur_sup		; go NUKE that supervisor driver
		jsr	purge_sup
		bra	sup_entry_loop
*
* Now check to see if this is a duplicate supervisory driver.
* The check is based on the supervisor ID only.  If a duplicate
* is found then the highest version supervisor will be kept.
* In the case of duplicate version numbers, the first supervisor
* loaded will be kept.
*
dont_unload_sup 
		lda	[<sup_drvr_ptr]		; point at previous supervisor ?????
		sta	|cur_sup

unload_sup_loop
		dec	|cur_sup		; decrement counter
		beq	no_other_sup		; if only 1 supervisor loaded

		lda	|cur_sup		; get the supervisor number
		jsr	set_sib_ptr		; point at previous SIB
		ldy	#sib_id			; is this a duplicate SIB?
		lda	[<sib_ptr],y
		cmp	|cur_sib_id
		bne	unload_sup_loop		; no

		ldy	#sib_ver		; is this a higher version SIB?
		lda	[<sib_ptr],y
		cmp	|cur_sib_ver
		blt	keep_cur_sib
*
* The new SIB is a lower or equal version.  In this case it must be
* shutdown and purged.
*
		dec	|current_file		; next file list entry will be at same as current
		lda	[<sup_drvr_ptr]
		sta	|cur_sup
		jsr	shutdn_sup		; shutdown & purge supervisor
		jmp	sup_entry_loop
*
* The new supervisor is a duplicate of a higher version of this supervisor.
* The old supervisor must be shutdown and purged.
*
keep_cur_sib
		lda	|cur_sup		; supervisor number
		jsr	shutdn_sup		; shutdown & purge supervisor
		lda	[<sup_drvr_ptr]		; get SIB list info to swap
		jsr	set_sup_index
		ldx	#$0003
sib_swap_loop0 
		lda	[<sup_drvr_ptr],y
		pha				; save SIB addr, user id & type
		dey
		dey
		dex
		bpl	sib_swap_loop0
		lda	|cur_sup
		jsr	times_8_plus_4		; make index to list entry
		ldx	#$0003
sib_swap_loop1 
		pla
		sta	[<sup_drvr_ptr],y
		iny
		iny
		dex
		bpl	sib_swap_loop1
		jmp	sup_entry_loop
*
* If driver loaded and started correctly then point at next entry
* to be loaded.
*
no_other_sup 
		lda	[<sup_drvr_ptr]
		inc	a
		sta	[<sup_drvr_ptr]
*
* Check if all entries in the /boot/system/drivers/ directory have
* been checked as being a supervisory driver.  If unchecked entries
* remain in the directory, loop to check remaining entries.
*
not_sup_drvr 
		jmp	sup_entry_loop		; yes

		eject
*****************************************************************
*
* This routine calculates an index into the supervisory driver
* list for the supervisory driver specified in the A register.
*
* ENTRY: via a 'JSR'
*               A Reg = Supervisory driver number
*               X Reg = Undefined
*               Y Reg = Undefined
*            Bank Reg = Current Program Bank
*             Dir Reg = GS/OS Direct Page
*           Stack Reg = GS/OS Stack
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:  via 'RTS'
*               A Reg = Index to supervisory driver's User ID entry
*               X Reg = Unchanged
*               Y Reg = Index to supervisory driver's User ID entry
*            Bank Reg = Current Program Bank
*             Dir Reg = GS/OS Direct Page
*           Stack Reg = GS/OS Stack
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
set_sup_index
		longa	on
		longi	on

		dec	a		; point at supervisor user id
		asl	a
		asl	a
		asl	a
		clc
		adc	#$000A
		tay
		rts

		eject
*****************************************************************
*
* Now that supervisory drivers are loaded, reset parameters for
* get_dir_entry to start at top of directory and load GS/OS device
* drivers.  All drivers are of a FileType of $BB.  GS/OS Device
* drivers use a AuxType of $01XX for active drivers or $81XX for
* any inactive drivers.  The least significant 6 bits of the least
* significant byte of the AuxType indicates the number of
* devices supported by the driver.
*  ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___
* |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   | Device
* | F | E | D | C | B | A | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 | Drivers:
* |___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|
*   |   |   |   |   |   |   |   |   |   |   |___|___|___|___|___|__ DIB count
*   |   |   |   |   |   |   |   |   |   |__________________________ 0
*   |   |   |   |   |   |   |   |   |______________________________ 0
*   |___|___|___|___|___|___|___|__________________________________ %00000001
*
* The device driver list consists of a longword count specifying the
* number of devices followed by an four word entry for each device
* consisting of a longword pointer to the device's DIB, a disk switched
* status word and a memory USER ID word.
*                ____________________  _
*       +$0000  |_                  _|  |
*               |_     Number of    _|  |_ Driver list entry count
*               |_  Device Drivers  _|  |
*               |____________________| _|
*       +$0004  |_                  _|  |
*               |_      Pointer     _|  |
*               |_      to DIB      _|  |
*               |____________________|  |_ Device driver entry (8 bytes)
*       +$0008  |_    Disk Switch   _|  |
*               |____________________|  |
*       +$000A  |_      USER ID     _|  |
*               |____________________| _|
*
* ENTRY: via a 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*            Bank Reg = Current Program Bank
*             Dir Reg = GS/OS Direct Page
*           Stack Reg = GS/OS Stack
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:  via 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*            Bank Reg = Current Program Bank
*             Dir Reg = GS/OS Direct Page
*           Stack Reg = GS/OS Stack
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
load_dev_driver
		longa	on
		longi	on

		jsr	set_dir_base		; to reset to top of directory
		bcc	drvr_entry_loop
no_dev_drvrs
		jmp	no_dev_drivers
*
* Get_dir_entry list is now at top of directory.  Ok to check next
* directory entry for GS/OS device driver type & auxtype prior to
* loading driver.
*
drvr_entry_loop
		jsr	next_entry		; GET_DIR_ENTRY
		bcs	no_dev_drvrs
		jsr	check_filetype		; is file type $BB (GS/OS driver)?
		bne	drvr_entry_loop		; no
		cmp	#$0100			; is it a device driver?
		bne	drvr_entry_loop		; no
*
* File is a driver.  Call the system loader to bring in the
* driver file then issue a startup call to each device supported
* by the driver.  If all devices return errors as a result of the
* startup call then unload the driver.
*
		lda	|start_count		; any drivers to startup?
		beq	drvr_entry_loop		; no
many_dibs
		stz	|purge_flag		; driver not started successfully yet.
		clc				; flag that load is a device driver
		jsr	do_file_load		; and load the driver
*
* Install the driver into the device list and startup the driver.
*
		php				; save any tool error
		lda	|load_device
		sta	<drvr_dev_num
		jsr	set_dev_index		; set device list pointer
		plp
		tyx
		jsr	y_plus_6		; point at User ID
		lda	|temp_user_id		; set device user ID
		sta	[<drvr_dev_ptr],y
		sta	|cur_user_id
		txy				; point at DIB pointer
		lda	|temp_load_addr		; point at driver
		sta	<drvr_dib_ptr
		lda	|temp_load_addr+2
		sta	<drvr_dib_ptr+2
		bcs	drvr_entry_loop
*
* Now that we know where the file loaded, walk all the DIB's
* and install each device supported by the driver into the
* device list.  Each driver must support the following header:
*
*         _________________
* +$0000 |_               _| ... Offset to 1st DIB
*        |_________________|
* +$0002 |_               _| ... Number of devices
*        |_________________|
* +$0004 |_               _| ... Offset to 1st control parameter list
*        |_________________|
* +$0006 |_               _| ... Offset to 2nd control parameter list
*        |_________________|
*        etc...
*
		clc				; caclulate pointer to 1st DIB
		lda	[<drvr_dib_ptr]		; offset + load addr = DIB addr
		adc	<drvr_dib_ptr
		tax
		lda	#$0000
		adc	<drvr_dib_ptr+2
		sta	<drvr_dib_ptr+2		; set DIB addr
		stx	<drvr_dib_ptr
		pha				; insert DIB pointer in device list
		txa
		sta	[<drvr_dev_ptr],y
		iny
		iny
		pla
		sta	[<drvr_dev_ptr],y
*
* Startup driver and check for duplicates.
*
		jsr	startup_l_drvr		; startup & check for dupes
		dec	|dib_count		; so we dont load to many
		bcc	next_link		; if no dupe then walk link ptrs
		dec	|load_device		; next device at this position
		bne	next_link		; if more dibs this driver ** v0.12a01

		jsr	set_dev_restart		; insert startup flag in file list structure
		inc	|load_device		; else point at current entry
		bra	check_purge
*
* Insert any linked DIB's into the device list.
*
next_link
		jsr	set_dev_restart		; insert startup flag in file list structure

		phy				; insert device number in file list structure
		ldy	#dib_dev_num
		lda	[<drvr_dib_ptr],y
		ply
		iny
		iny
		sta	[<file_entry_ptr],y
		
		inc	|load_device		; next loaded device
		lda	|load_device
		sta	<drvr_dev_num
*
* If link pointer in DIB is NIL then no more devices to install.
* If not NIL then need to continue installing devices if the DIB
* count does not exceed the number of DIB's that was indicated
* by the driver file's auxtype.
*
		ldy	#link_ptr+2		; is there a linked DIB?
		lda	[<drvr_dib_ptr]
		tax
		ora	[<drvr_dib_ptr],y
		beq	check_purge		; no (v0.05 a09)
		lda	|dib_count		; done as many as specified in auxtype?
		beq	check_purge		; if no more should it be purged
*
* The link field in the DIB was not NIL.  Need to create an entry
* in the device list for the linked DIB.
*
		lda	[<drvr_dib_ptr],y
		pha
		phx
		jsr	set_dev_index		; point at DIB entry in device list
		pla				; and insert DIB entry
		sta	[<drvr_dev_ptr],y
		tax
		iny
		iny
		pla
		sta	[<drvr_dev_ptr],y
		jsr	y_plus_4
		stx	<drvr_dib_ptr		; initialize DIB pointer
		sta	<drvr_dib_ptr+2
		lda	|cur_user_id		; and insert USER ID in device list
		sta	[<drvr_dev_ptr],y
*
* Startup driver and check for duplicates.
*
		jsr	startup_l_drvr		; startup & check for dupes
		dec	|dib_count
		bcc	next_link		; if no error walk DIBs
		dec	|load_device		; else next device in this position
		bra	next_link
no_dev_drivers
		rts

check_purge
		lda	|purge_flag		; should driver be purged?
		bne	to_drvr_entry		; no
		
		lda	|cur_user_id		; else prepare to purge
		jsr	purge_driver
to_drvr_entry
		jmp	drvr_entry_loop
		
set_dev_restart
		ldy	#dev_char		; insert startup flag in file list structure
		lda	[<drvr_dib_ptr],y
		asl	a
		asl	a
		asl	a
		asl	a
		jmp	set_restart

		eject
*****************************************************************
*
* The following routine sets the base and displacement for
* subsequent get_dir_entry calls to the top of the directory
* in preperation for walking the directory.  The second entry
* point is used to walk the directory.
*
* ENTRY: via a 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*            Bank Reg = Current Program Bank
*             Dir Reg = GS/OS Direct Page
*           Stack Reg = GS/OS Stack
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:  via 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*            Bank Reg = Current Program Bank
*             Dir Reg = GS/OS Direct Page
*           Stack Reg = GS/OS Stack
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
set_dir_base
		longa	on
		longi	on

		lda	>warm_cold_flag		; is this a warm start?
		beq	cold_dir_base		; no

		stz	|current_file		; on warm start, point at base of file entry list
		clc
		rts
cold_dir_base
		stz	|dir_entry_base		; to reset to top of directory
		stz	|dir_entry_disp
		bra	make_the_call
		
		eject
*****************************************************************
*
* The following routine sets the base and displacement for
* subsequent get_dir_entry calls to the top of the directory
* in preperation for walking the directory.  The second entry
* point is used to walk the directory.
*
* ENTRY: via a 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*            Bank Reg = Current Program Bank
*             Dir Reg = GS/OS Direct Page
*           Stack Reg = GS/OS Stack
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:  via 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*            Bank Reg = Current Program Bank
*             Dir Reg = GS/OS Direct Page
*           Stack Reg = GS/OS Stack
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
next_entry         
		longa	on
		longi	on
		
		lda	>warm_cold_flag		; is this a warm start?
		beq	cold_next_entry		; no
		
		inc	|current_file		; reference next file list entry
		lda	|current_file		; is the next entry valid?
		cmp	|file_list_cnt
		blt	get_file_entry		; yes
		beq	get_file_entry		; yes
		sec				; no, return an error if past end of list
		rts
get_file_entry
		jsr	calc_file_index		; point at current file entry
		ldy	#file_auxtype
		lda	[<file_entry_ptr]	; return filetype like get_dir_entry call
		sta	|dir_entry_ft
		lda	[<file_entry_ptr],y	; return auxtype like get_dir_entry call
		sta	|dir_entry_aux
		ldy	#file_name		; return filename like get_dir_entry call
		ldx	#0
xfer_name
		lda	[<file_entry_ptr],y
		sta	|file_name_str,x
		iny
		iny
		inx
		inx
		cpx	#32			; always copy 32 bytes regardless of real length
		blt	xfer_name
		clc
		rts
		
cold_next_entry
		lda	#$0001			; base & displacement for next directory entry
		sta	|dir_entry_base
		sta	|dir_entry_disp
make_the_call
		_get_dir_entry dir_entry_list
		rts

		eject
*****************************************************************
*
* The following routine executes the initial load of a supervisor
* or device driver.
*
* ENTRY: via a 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*            Bank Reg = Current Program Bank
*             Dir Reg = GS/OS Direct Page
*           Stack Reg = GS/OS Stack
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ 0  0	load a device driver
*                       ¥ ¥ 0 0 0 ¥ ¥ 1  0	load a supervisor driver
*
* EXIT:  via 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*            Bank Reg = Current Program Bank
*             Dir Reg = GS/OS Direct Page
*           Stack Reg = GS/OS Stack
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
do_file_load
		longa	on
		longi	on

		php				; save carry (device vs. supervisor flag)
		lda	>warm_cold_flag		; is this a warm start?
		beq	do_cold_load		; no
		jsr	find_file		; find file in file list
		bcs	do_cold_load		; now found in list, load from disk
		
do_mem_load
*		ldy	#file_auxtype		; set up carry in case need to load from disk
*		lda	[<file_entry_ptr],y
*		xba
*		rol	a
*		rol	a

		ldy	#file_restart		; is driver restartable from memory
		lda	[<file_entry_ptr],y
		beq	do_cold_load		; no, go get it from disk

		plp				; clean up stack (carry not used)
		ldy	#file_user_id		; user ID of memory resident driver
		lda	[<file_entry_ptr],y
		sta	|temp_user_id
		
		ldy	#file_load_addr		; load address of memory resident driver
		lda	[<file_entry_ptr],y
		sta	|temp_load_addr
		iny
		iny
		lda	[<file_entry_ptr],y
		sta	|temp_load_addr+2
		clc				; never return an error if loading from memory
		rts
		
do_cold_load
		plp				; retrieve carry
		pha				; space for dir.page/stack size
		pha				; space for dir.page/stack addr
		pha				; space for starting address
		pha
		pha				; space for ID
		lda	#$3900			; assume device driver
		bcc	have_ld_id		; assumed correctly
		lda	#$3A00			; ID to be assigned by loader for supervisor driver
have_ld_id
		pha				; put desired ID on stack
		pea	file_name_str>>16
		pea	file_name_str
		pea	$0001			; NO SPECIAL MEMORY!!!
		pea	$0001			; class 1 pathname string
		_InitialLoad2
		ply				; save driver user ID
		sty	|temp_user_id
		ply				; save driver load address
		plx
		sty	|temp_load_addr
		stx	|temp_load_addr+2
		ply				; dir. page / stack address
		plx				; dir. page / stack size
		bcs	no_file_entry		; if error, dont create file list entry
		lda	>warm_cold_flag		; is this a warm start?
		bne	refresh_list		; yes, only update current file list entry
*
* GET_DIR_ENTRY should have already aquired the filetype and auxtype.
* Just set the pointer to the file entry and store all the parameters
* into the entry.
*
		inc	|current_file		; on cold start point at next entry
refresh_list
		lda	|current_file
		jsr	calc_file_index
		
		lda	|temp_filetype		; install filetype in file list entry
		sta	[<file_entry_ptr]
		
		ldy	#file_auxtype		; install auxtype in file list entry
		lda	|temp_auxtype
		sta	[<file_entry_ptr],y
		
		ldy	#file_user_id		; install user ID in file list entry
		lda	|temp_user_id
		sta	[<file_entry_ptr],y
		
		ldy	#file_load_addr		; install load address in file list entry
		lda	|temp_load_addr
		sta	[<file_entry_ptr],y
		iny
		iny
		lda	|temp_load_addr+2
		sta	[<file_entry_ptr],y
		
		ldy	#file_name
		ldx	#file_name_str
insert_name
		lda	|0,x
		sta	[<file_entry_ptr],y
		inx
		inx
		iny
		iny
		cpy	#file_restart
		bne	insert_name
		clc
*
* NOTE: the routine that called the DO_FILE_LOAD must initialize the restartable
* flag and dev_num flag entries in the file list.
*
no_file_entry
		rts
		
set_restart
		ldy	#file_restart
		and	#$8000
		sta	[<file_entry_ptr],y
		rts

temp_load_addr	dc.l	0			; load address of driver
temp_user_id	dc.w	0			; driver user id
temp_filetype	dc.w	0			; driver filetype
temp_auxtype	dc.w	0			; driver auxtype

		eject
*****************************************************************
*
* The following routine checks the current filetype for use
* as either a GS/OS device driver or supervisory driver.
*
* ENTRY: via a 'JSR'
*        dir_entry_ft = FileType of current driver file
*       dir_entry_aux = AuxType of current driver file
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*            Bank Reg = Current Program Bank
*             Dir Reg = GS/OS Direct Page
*           Stack Reg = GS/OS Stack
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:  via 'RTS'
*          |dib_count = AuxType ANDed with $003F
*               A Reg = AuxType ANDed with $FFC0
*               X Reg = Undefined
*               Y Reg = Undefined
*            Bank Reg = Current Program Bank
*             Dir Reg = GS/OS Direct Page
*           Stack Reg = GS/OS Stack
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 x      0
*                                   x x      Set by filetype compare
*
*****************************************************************
check_filetype
		longa	on
		longi	on

		lda	|dir_entry_ft	; is file type $BB (GS/OS driver)?
		sta	|temp_filetype
		and	#$00FF
		cmp	#$00BB
		php
		lda	|dir_entry_aux	; prepare for auxtype checking
		sta	|temp_auxtype
		pha
		and	#$003F
		sta	|dib_count	; preserve dib count if neccessary
		sta	|start_count
		pla
		and	#$FFC0
		plp
		rts

		eject
*****************************************************************
*
* The following routine sets prefix 0 to the pathname passed
* in the prefix list.
*
*****************************************************************
set_my_prefix
		longa	on
		longi	on

		_set_prefix set_prefix_list
		rts

*****************************************************************
*
* The following routine opens the pathname passed in the
* open list.
*
*****************************************************************
do_my_open
		longa	on
		longi	on

		lda	>warm_cold_flag		; is this a warm start?
		beq	cold_open		; no
		
		ldx	|file_list_hndl		; yes, lock the file list handle
		ldy	|file_list_hndl+2
		phy
		phx
		_hlock
		bcc	warm_open
		jmp	time_to_die
warm_open
		lda	|file_list_hndl		; dereference the file list handle
		ldx	|file_list_hndl+2
		jsr	deref_handle
		sta	<file_list_ptr
		sty	<file_list_ptr+2
		clc
		rts

cold_open					; open /SYSTEM.DISK/SYSTEM/DRIVERS
		_open	d_open_list
		rts

*****************************************************************
*
* The following routine closes the pathname passed in the
* close list.
*
*****************************************************************
do_my_close
		longa	on
		longi	on

		lda	>warm_cold_flag		; is this a warm start?
		beq	cold_close		; no
		
		ldx	|file_list_hndl		; yes, unlock the file list handle
		ldy	|file_list_hndl+2
		phy
		phx
		_hunlock
		bcc	warm_close
		jmp	time_to_die

cold_close					; close /SYSTEM.DISK/SYSTEM/DRIVERS
		_close	d_close_list
warm_close
		rts

		eject
*****************************************************************
*
* The following routines were implemented strictly for code
* reduction.
*
*****************************************************************
y_plus_6
		longi	on
		
		iny
		iny
y_plus_4
		iny
		iny
		iny
		iny
		rts

y_minus_6
		longi	on
		
		dey
		dey
y_minus_4
		dey
		dey
		dey
		dey
		rts

		eject
****************************************************************
*
* This routine is used to startup a loaded driver and check
* that the driver is not a duplicate entry.  If a duplicate,
* the device with the highest version number will be kept.
* In the case of duplicate version number, the last loaded
* device will be deleted.  Deletion of a device includes a
* shutdown call to the driver prior to purging the driver.
* Duplicate checking starts at one device below the currrent
* device specified by DRVR_DEV_NUM and concludes with the
* boot device.
*
* ENTRY: Call via 'JSR'
*        drvr_dev_num = Device number of current device
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*               B Reg = Undefined
*             Dir Reg = GSOS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT: via 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*               B Reg = Undefined
*             Dir Reg = GSOS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ 0  0  If device is not a duplicate
*                       ¥ ¥ 0 0 0 ¥ ¥ 1  0  If device is a duplicate
*
****************************************************************
startup_l_drvr
		longa	on
		longi	on
*
* Insert the device number in the DIB for startup.
*
		ldy	#dib_dev_num
		lda	<drvr_dev_num
		sta	[<drvr_dib_ptr],y
		sta	|cur_dev_num	; needed in case startup fails
*
* Issue a startup call to the device.  If it cant start then
* the DIB contents are not valid and the device should be purged.
*
		stz	<drvr_call_num
		jsl	dev_dispatcher	; issue startup call to device
		bcc	dup_chk		; if startup succeeded check for dups
		rts

dup_chk_done
		inc	|purge_flag	; started successfully
		lda	|cur_dev_num	; restore dib pointer to current device
		sta	<drvr_dev_num
		jsr	set_dib_ptr
		rts
*
* This routine will check for duplicate devices.  A check by slot and unit
* is attempted first.  If the slot & unit are unique, the name is checked to
* verify that it is unique.  If either the slot & unit or the name is detected
* as a duplicate then the version number is checked.  The lowest version
* device (or last loaded if version numbers match) is shutdown and purged.
*
dup_chk
		jsr	copy_cur_name	; copy current DIB info for dup check
		clc
dup_chk_loop
		dec	<drvr_dev_num	; point at previous device
		beq	dup_chk_done	; if no more devices
		jsr	set_dib_ptr	; point at dup check dib
		jsr	slot_unit_chk	; check for dup slot & unit
		bcs	found_dup	; if a duplicate was found
		jsr	name_chk	; check for dup name
		bcc	dup_chk_loop	; if not a duplicate

		eject
*
* A duplicate was detected.  Determine which device is the lower version
* or last loaded and shutdown that device.  If device that was shutdown
* was the first loaded then copy the current device list entry to the
* position of the device that was shutdown.  Update the device count to
* reflect the fact that a device was shutdown and purged.
*
found_dup
		longa	on
		longi	on

		ldy	#ver_num	; determine lowest version
		lda	[<drvr_dib_ptr],y
		cmp	|current_version
		bge	keep_first	; if first is highest or same, keep it
*
* Last loaded is a higher version number.  Shutdown the first loaded
* duplicate and purge it.  Then copy the device list entry from the
* last loaded device to the first loaded device's position.
*
		lda	<drvr_dev_num	; REV. 0.09a02
		sta	|old_dev_num
		dec	a		; are we replacing device #1 (possibly Boot.Driver)?
		bne	@not_boot_driver ; no...
		ldy	#10		;offset to device #1 UserID in device list
		lda	[<drvr_dev_ptr],y
		cmp	<boot_user_id	; is it the Boot.Driver?
		bne	@not_boot_driver ; no, shutdown normally

		lda	#drvr_shutdn	; else issue a shutdown call to the driver
		sta	<drvr_call_num	; but don't purge it from memory
		jsl	dev_dispatcher
		bra	@unlink_driver	; then replace the entry with the new entry

@not_boot_driver
		jsr	shutdn_driver	; else shutdown & purge the first one
@unlink_driver
		inc	|purge_flag	; started successfully
		jsr	set_dev_index	; now need device list index
		phy
		lda	|cur_dev_num
		sta	<drvr_dev_num
		jsr	set_dev_index

		lda	#$0004		; words to relocate
		sta	>post_index
copy_dev_entry
		lda	[<drvr_dev_ptr],y
		iny
		iny
		tyx			; save source pointer
		ply			; get destination pointer
		sta	[<drvr_dev_ptr],y
		iny
		iny
		phy			; save destination pointer
		txy			; get source pointer
		lda	>post_index
		dec	a
		sta	>post_index
		bne	copy_dev_entry
		ply
		jsr	set_dib_ptr	; point at the DIB that was kept
		ldy	#dib_dev_num	; V0.09a02 update DIB_DEV_NUM
		lda	|old_dev_num
		sta	[<drvr_dib_ptr],y
		bra	dup_all_gone
*
* First loaded was the higher version so shutdown and purge the last
* loaded.
*
keep_first
		lda	|cur_dev_num	; set device # for last loaded
		sta	<drvr_dev_num
		jsr	shutdn_driver	; shutdown & purge the driver
		jsr	set_dib_ptr	; point at the DIB that was kept
dup_all_gone
		sec
		rts

		eject
****************************************************************
*
* This routine checks to see that the slot & unit in the
* active DIB are not duplicates of the slot & unit contained
* in the current slot & unit images.
*
* ENTRY: Call via 'JSR'
*        drvr_dev_num = Device number of current device
*        drvr_dib_ptr = Points to DIB for current device
*        current_slot = Slot being checked
*        current_unit = Unit being checked
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*               B Reg = Undefined
*             Dir Reg = GSOS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT: via 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*               B Reg = Undefined
*             Dir Reg = GSOS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ 0  0  If device is not a duplicate
*                       ¥ ¥ 0 0 0 ¥ ¥ 1  0  If device is a duplicate
*
****************************************************************
slot_unit_chk
		longa	on
		longi	on

		ldy	#slot_num		; point at slot in DIB
		lda	[<drvr_dib_ptr],y
		bmi	not_a_dup		; "hardware independent" bit is set
		and	#$000F
		cmp	|current_slot		; check slot against current
		bne	not_a_dup		; if slot unique
		
		iny				; else prepare to check unit
		iny
		lda	[<drvr_dib_ptr],y
		cmp	|current_unit		; check unit against current
		bne	not_a_dup		; if unit unique

its_a_dup
		sec
		rts

not_a_dup
		clc
		rts

		eject
****************************************************************
*
* This routine checks the name of the active DIB against the
* name in the current name image.
*
* ENTRY: Call via 'JSR'
*        drvr_dev_num = Device number of current device
*        drvr_dib_ptr = Points to DIB for current device
*        current_name = Name being checked
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*               B Reg = Undefined
*             Dir Reg = GSOS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT: via 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*               B Reg = Undefined
*             Dir Reg = GSOS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ 0  0  If device is not a duplicate
*                       ¥ ¥ 0 0 0 ¥ ¥ 1  0  If device is a duplicate
*
****************************************************************
name_chk
		longa	on
		longi	on

		sep	#$30			; 8 bit 'm' & 'x'
		longa	off
		longi	off

		ldy	#dev_name		; point at name in DIB
		ldx	|current_name		; get length of current name
chk_dev_name
		lda	[<drvr_dib_ptr],y
		cmp	|current_name-dev_name,y
		bne	not_dup_name
		iny				; scan until no match or end of string
		dex
		bpl	chk_dev_name

		sec				; if reached end of string then DUPE!
		bcs	name_chk_done

not_dup_name
		clc

name_chk_done
		rep	#$30			; 16 bit 'm' & 'x'
		longa	on
		longi	on

		rts

		eject
*****************************************************************
*
* This routine copies the name of the device specified by the
* current DIB pointer in preperation for checking for a duplicate
* device name.  The slot, unit, device ID and version number are
* also copied.
*
* ENTRY: via a 'JSR'
*       <drvr_dib_ptr = Points to DIB for current <drvr_dev_num
*               A Reg = Unspecified
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Same as execution bank
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*			¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT: via an 'RTS'
*       |current_name = device name extracted from DIB
*
*               A Reg = Unspecified
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Unchanged
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*			¥ ¥ 0 0 0 ¥ ¥ 0  0
*
*****************************************************************
copy_cur_name
		longa	on
		longi	on

		lda	<drvr_dev_num
		sta	|cur_dev_num

		sep	#$30			; 8 bit 'm' & 'x'
		longa	off
		longi	off

		ldy	#dev_name
copy_dev_name
		lda	[<drvr_dib_ptr],y
		sta	|current_name-dev_name,y
		iny
		cpy	#head_link
		bne	copy_dev_name

;		stz	|current_slot+1

		rep	#$30			; 16 bit 'm' & 'x'
		longa	on
		longi	on

		rts

		eject
***************************************************************
*
* This routine is used to generate drivers for existing slot
* resident firmware interfaces.  As each slot is identified,
* the slot is compared to existing loaded drivers in the device
* list.  If a driver is found for the current slot, no driver
* will be generated for that slot.  If a driver is generated,
* a DRVR_STARTUP call will be issued to the driver.  If the
* driver returns an error, the driver will be purged from
* the device list.
*
* ENTRY:        A Reg = Unspecified
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Current execution bank
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*			¥ ¥ 0 0 0 ¥ ¥ ¥  0
*        drvr_dev_num = device number of 1st generated driver
*
* EXIT:         A Reg = Unspecified
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Current execution bank
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*			¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
***************************************************************
gen_drivers
		longa	on
		longi	on

		jsr	deref_drv_list		; set driver list pointer
		ldx	#$0000
		jsr	set_dev_index		; point into device list
dib_ptr_loop
		lda	<gen_drvr_ptr		; copy entry into device list
		sta	[<drvr_dev_ptr],y
		iny
		iny
		lda	<gen_drvr_ptr+2
		sta	[<drvr_dev_ptr],y
		pha
		iny			
		iny
		lda	#$0000			; initialize driver disk switched flag
		sta	[<drvr_dev_ptr],y
		iny				; initialize driver User ID
		iny
		sta	[<drvr_dev_ptr],y
		iny				; point at next device list entry
		iny
		lda	<gen_drvr_ptr		; calculate next entry
		clc
		adc	#dib_size		; 66 bytes per DIB
		sta	<gen_drvr_ptr
		pla
		adc	#$0000
		sta	<gen_drvr_ptr+2
		inx
		cpx	|total_gen
		bne	dib_ptr_loop
		jsr	deref_drv_list		; restore driver list pointer
*
* Copy default DIB/GDIB to generated driver list
*
		ldy	|drvr_list_size		; number bytes to move -2 (last word)
		dey
		dey
reset_src_addr
		ldx	#boot_dib+74		; Source address
first_dib
		lda	|0,x			; copy default DIB/GDIB
		sta	[<gen_drvr_ptr],y
		dex				; next source address
		dex
		cpx	#boot_dib-2
		bne	src_addr_ok		; if haven't copied entire source
		ldx	#boot_dib+74		; Reset pointer to source address
src_addr_ok
		dey				; next destination address
		dey
		bpl	first_dib		; 1 copy for each gen. driver
*
* Point at initial slot for proper device generation.
*
		rep	#$30			; 16 bit 'm' & 'x'
		longa	on
		longi	on

		lda	#$000F			; initial slot is 15 (7 external)
		sta	|gen_slot_num
		lda	#$0002			; initialize generate counter
		sta	|gen_count
*
* While generating devices, always request that the slot be installed via
* the slot arbiter.  This code was inserted in system disk 4.1.
*
gen_dib_loop
		lda	|gen_slot_num		; request slot from slot arbiter
		jsl	dyn_slot_arbiter
		bcs	set_next_slot		; point at next slot to generate a device for
*
* Ident_slot requires a pointer to the slot firmware.  The slot arbiter slot
* request is converted into a $00Cn00 address by limiting the slot address to 
* slots 0 through 7 (since only seven slots reside actively in the system).
*
		lda	|gen_slot_num		; create a pointer to $Cn00 for current slot
		xba
		and	#$0700
		ora	#$C000
		sta	<fw_addr
		stz	<fw_addr+2
*
* Point at the DIB to be generated and identify the peripheral resident in the
* slot.  Note that if the peripheral exists, all DIB information will be
* constructed and placed into the current DIB data structure (the DIB pointed
* to by drvr_dib_ptr).
*
		jsr	set_dib_ptr		; v0.01 a02 (init DIB ptr)
		jsr	ident_slot		; identify class of device
		beq	set_next_slot		; if no devices this slot
*
* A peripheral exists in the current slot.  Go build a DIB for the peripheral
* class that was detected in the slot.
*
		tay				; save device count
		txa				; get driver peripheral class
		pha
		and	#$0003			; want peripheral class, not peripheral subclass
		asl	a
		tax
		pla
		php				; save environment
		pea	build_ret-1		; return from build
		jmp	(build_dib,x)		; go build proper peripheral class of driver
build_ret
		plp				; restore environment
set_next_slot
		dec	|gen_slot_num		; point at next slot to generate a device for
		bne	gen_dib_loop		; build more DIB's if not slot #0
*
* After completing generation of peripheral device DIB data structures, the
* device number is left at a value equal to the actual number of devices
* plus one.  Adjust the device count and install the device count into the
* device list before exiting back to the top level of the device dispatcher
* startup routine.
*
		dec	<drvr_dev_num		; set number of devices
		lda	<drvr_dev_num
		sta	[<drvr_dev_ptr]
		rts

		eject
*****************************************************************
*
* This routine checks to see if a loaded driver is already
* installed for the current slot that at driver is being
* generated for.
*
* ENTRY: Call via a 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*            Bank Reg = Current Program Bank
*             Dir Reg = GS/OS Direct Page
*           Stack Reg = GS/OS Stack
*               P Reg = N V M X D I Z C  E
*			¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*            Bank Reg = Current Program Bank
*             Dir Reg = GS/OS Direct Page
*           Stack Reg = GS/OS Stack
*               P Reg = N V M X D I Z C  E
*			¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
***************************************************************
chk_dup_load
		longa	on
		longi	on
*
* Move the current device name into a unique buffer
* and check against all other names.
*
		pha
		phx
		phy

		pei	<fw_addr+2
		pei	<fw_addr
		pei	<drvr_dev_num

		jsr	copy_cur_name

check_name
		rep	#$30		; 16 bit 'm' & 'x'
		longa	on
		longi	on

		dec	<drvr_dev_num	; point at previous device
		bne	keep_checking
		clc
		bra	check_done

keep_checking
		jsr	set_dib_ptr	; point at DIB under test
		jsr	slot_unit_chk	; check for unique slot & unit
		bcc	not_same_dev

check_done
		pla			; restore device number
		jsr	leave_dib_alone
		pla
		sta	<fw_addr
		pla
		sta	<fw_addr+2
		jmp	pull_y_x_a

		eject
*
* Slot, Unit & Device ID are not the same.  Check that the name is
* unique.  If not, modify the name and recheck until it is unique.
*
not_same_dev
		longa	on
		longi	on

		jsr	name_chk	; is this a duplicate name?
		bcc	check_name	; no

		pla			; reset to current device
		pha
		jsr	leave_dib_alone
		inc	|gen_count	; regenerate name with new #
		jsr	gen_name
		jsr	copy_cur_name	; prepare to search for a duplicate
		bra	check_name

		eject
*****************************************************************
*
* Dispatch table for DIB construction.  Dispatch is based on
* class of driver being constructed.
*
* ENTRY:        A Reg = Driver Class & Subclass
*               X Reg = Driver Class
*               Y Reg = Number of devices in current slot
*               B Reg = Same as execution bank
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*			¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:         A Reg =
*               X Reg =
*               Y Reg =
*               B Reg = Same as execution bank
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*			¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
build_dib	dc.w	build_class0		; vector for BASIC, Pascal1.1 & ProDOS
		dc.w	build_class1		; vector for Standard SmartPort
		dc.w	build_class2		; vector for Extended SmartPort

*
* Routine to build DIB/GDIB for class 0 drivers.
*
build_class0
		longa	on
		longi	on

		jsr	set_dib_ptr		; set DIB pointer current dev num
		ldy	#drvr_class		; set driver class
		sta	[<drvr_dib_ptr],y
		and	#$0080			; BASIC or Pascal1.1?
		beq	build_prodos
		jmp	build_char

		eject
*
* Device is a ProDOS block device if got here.
* Default device characteristics apply as follows:
*  ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___
* |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |
* | F | E | D | C | B | A | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 |
* |___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |___|__ Reserved
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |__________ Media remov
*   |   |   |   |   |   |   |   |   |   |   |   |   |______________ Format
*   |   |   |   |   |   |   |   |   |   |   |   |__________________ Driver follows guidelines
*   |   |   |   |   |   |   |   |   |   |   |______________________ Read
*   |   |   |   |   |   |   |   |   |   |__________________________ Write
*   |   |   |   |   |   |   |   |   |______________________________ Block Dev
*   |   |   |   |   |   |   |   |__________________________________ Speed Group
*   |   |   |   |   |   |   |______________________________________ Speed Group
*   |   |   |   |   |   |__________________________________________ Fixed Name
*   |   |   |   |   |______________________________________________ Restartable
*   |   |   |   |__________________________________________________ Device Busy
*   |   |   |______________________________________________________ Linked
*   |   |__________________________________________________________ Generated
*   |______________________________________________________________ RamRom Disk
*
build_prodos	lda	#$0001			; unit number
next_prodos	jsr	generate_slot		; generate slot number
*
* Must set device characteristics based on contents
* of location $CnFE.
*  ___ ___ ___ ___ ___ ___ ___ ___
* |   |   |   |   |   |   |   |   |
* | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 |
* |___|___|___|___|___|___|___|___|
*   |   |   |   |   |   |   |   |______  1 = Device status can be read
*   |   |   |   |   |   |   |__________  1 = Device can be read from
*   |   |   |   |   |   |______________  1 = Device can be written to
*   |   |   |   |   |__________________  1 = Device can be formatted
*   |   |   |___|______________________ nn = Number of volumes (0 - 3)
*   |   |______________________________  1 = Device is interruptable
*   |__________________________________  1 = Medium is removable
*
		stz	|pro_char

		sep	#$30			; 8 bit 'm' & 'x'
		longa	off
		longi	off

		stz	<fw_addr
		ldy	#$00FE			; get ProDOS characteristics
		lda	[<fw_addr],y
		pha
		and	#%00001000		; format bit
		sta	|pro_char
		pla
		rol	a			; convert remaining bits to GS/OS
		rol	a
		rol	a
		rol	a
		and	#%01100100		; read, write & removable bits
		tsb	|pro_char

chk_done
		rep	#$30			; 16 bit 'm' & 'x'
		longa	on
		longi	on

		lda	|pro_char		; generated, blockdev & speed group
		ora	#%0100001110000000
		jsr	set_dev_char		; set device characteristics
		jsr	gen_name		; generate device name 'DEVn'
		lda	#$0000
		ldy	#drvr_class		; set driver class
		sta	[<drvr_dib_ptr],y
*
* Now need to know if device requires a status call
* in order to determine the total number of blocks
* on the media.
*
		ldy	#$00FC			; does device require status for size?
		lda	[<fw_addr],y
		bne	have_dev_size		; no
*
* Device requires a status call to determine total
* number of blocks.  Set <FW_ADDR to point to the
* ProDOS device entry point = $Cn00 + ($CnFF) and
* issue the status call to the device.
*
		sep	#$20			; 8 bit 'm'
		longa	off

		ldy	#$00FF			; set ProDOS entry point
		lda	[<fw_addr],y
		sta	<fw_addr

		rep	#$20			; 16 bit 'm'
		longa	on

		lda	>call_list_ptr		; get address where dispatch returns
		tax
		lda	#$EAEA			; 'nop' 'nop'
		sta	>0,x
		sta	>2,x
		sta	>3,x

		ldy	#unit_num		; create ProDOS Unit Number
		lda	[<drvr_dib_ptr],y
		dec	a
		lsr	a			; carry is now unit number
		php
		ldy	#slot_num
		lda	[<drvr_dib_ptr],y
		xba				; high byte is STATUS command
		asl	a
		asl	a
		asl	a
		asl	a
		asl	a
		plp
		ror	a
		sta	>pcmd			; ProDOS command and unit number
		jsl	b0_core			; execute class 0 status for size
		bcc	have_c0_size		; if status was successful
*
* Status may return WRPROT as an error.  In this case the size is
* still available and the DIB should be built. (8-11-88 RBM).
*
		cmp	#drvr_wr_prot		; is it a WRPROT error?
		beq	have_c0_size		; yes
		rts				; else bomb out on this DIB
*
* On return from status call, the 16 bit native mode X
* register contains the number of blocks on the ProDOS
* block device.
*
have_c0_size	txa
have_dev_size	ldy	#blk_cnt		; set number of blocks in DIB
		sta	[<drvr_dib_ptr],y
		pha
		lda	#$0000
		iny
		iny
		sta	[<drvr_dib_ptr],y
		lda	#$FFFF			; set cache priority
		ldy	#cache_mask
		sta	[<drvr_dib_ptr],y
		pla
*
* Now generate a device ID number based on the total
* block count (since we dont have any other method for
* ProDOS devices).
*
		ldx	#$0002			; ID number = ProFILE 10M
		cmp	#19456			; is this a ProFILE 10M?
		beq	set_dev_id		; yes
		
		cmp	#9728			; is this a ProFILE 5M?
		bne	not_profile		; no
		
		dex				; ID number = ProFILE 5M
		bra	set_dev_id
		
not_profile	ldx	#$0014			; ID number = Generic Floppy
		cmp	#1600			; is the block count <= 1600 blocks?
		blt	set_dev_id		; yes
		
		dex				; ID number = Generic Hard Disk
		
set_dev_id	jsr	set_id_num		; set device ID in DIB
		jsr	set_gen_ver		; set driver version number in DIB
check_if_last
		ldy	#slot_num		; get current slot
		lda	[<drvr_dib_ptr],y
		and	#$000F			; strip resource flags off
		tax
		lda	>config_ram		; get ProDOS configuration ram
		
unit_counter	ror	a			; get # ProDOS units into carry
		dex
		bpl	unit_counter
		bcc	prodos_done		; if only 1 unit this slot
		
		ldy	#unit_num		; done all ProDOS units?
		lda	#$0002			; max ProDOS unit number
		cmp	[<drvr_dib_ptr],y
		beq	prodos_done
*
* Some ProDOS block devices only support a single volume.
* Calls to unit 2 must be blocked on these cards.
*
		sep	#$20			; 8 bit 'm'
		longa	off
		stz	<fw_addr
		rep	#$20			; 16 bit 'm'
		longa	on
		ldy	#$00FE			; point at device characteristics
		lda	[<fw_addr],y
		and	#$0010			; any more devices?
		beq	prodos_done		; no
		
		lda	<drvr_dev_num		; is this the boot unit?
		dec	a
		beq	prodos_done		; yes
		
		ldy	#unit_num		; reset unit before checking dup boot
		lda	[<drvr_dib_ptr],y
		pha				; save next unit
		jsr	chk_dup_load		; does a loaded driver already exist?
		bcs	dup_load_0		; yes
		
		jsr	chk_dup_boot		; check if device is same as boot
		
dup_load_0	jsr	set_dib_ptr		; point at DIB for next device
		pla				; restore next unit
		inc	a
		jmp	next_prodos		; more units to do
		
prodos_done	lda	<drvr_dev_num		; **** CHANGE **** v0.28
		dec	a			; is this the boot unit?
		beq	dup_load_1		; yes, dont check for dups
		
		jsr	chk_dup_load		; does a loaded driver already exist?
		bcs	dup_load_1		; yes
		
		jsr	chk_dup_boot		; check if device is same as boot
		
dup_load_1	rts

		eject
*
* Device is a BASIC or Pascal1.1 character device if got here.
* Set the device characteristics as follows:
*  ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___
* |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |
* | F | E | D | C | B | A | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 |
* |___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |___|__ Reserved
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |__________ Media remov
*   |   |   |   |   |   |   |   |   |   |   |   |   |______________ Format
*   |   |   |   |   |   |   |   |   |   |   |   |__________________ Driver follows guidelines
*   |   |   |   |   |   |   |   |   |   |   |______________________ Read
*   |   |   |   |   |   |   |   |   |   |__________________________ Write
*   |   |   |   |   |   |   |   |   |______________________________ Block Dev
*   |   |   |   |   |   |   |   |__________________________________ Speed Group
*   |   |   |   |   |   |   |______________________________________ Speed Group
*   |   |   |   |   |   |__________________________________________ Fixed Name
*   |   |   |   |   |______________________________________________ Restartable
*   |   |   |   |__________________________________________________ Device Busy
*   |   |   |______________________________________________________ Linked
*   |   |__________________________________________________________ Generated
*   |______________________________________________________________ RamRom Disk
*
build_char	lda	#%0100001101100000
		jsr	set_dev_char		; set device characteristics
		lda	#$0000			; no blocks on character device
		iny
		iny
		sta	[<drvr_dib_ptr],y
		iny
		iny
		sta	[<drvr_dib_ptr],y
		jsr	gen_name		; generate device name 'Dn'
		lda	#$0001			; unit number
		jsr	generate_slot		; generate slot number
*
* Set the device ID number based on the driver's slot and
* battery ram parameters.  Internal slots 1, 2, 3 and 7 are
* special cased.  Internal slots 1 and 2 device ID's are
* based on battery ram configurations for these slots.
*
		ldy	#dev_id_num		; point at DIB device ID
		cmp	#$0001			; is it internal slot 1?
		bne	id_not_slot1		; no
		
		dec	a
id_slot1_2	pha				; space for result
		pha				; parameter is 'Port1 Printer/Modem'
		_readbparm
		ldx	#$000B			; assume ID = Printer
		pla				; is ID a printer?
		beq	have_char_id		; yes
		
		ldx	#$0009			; assume ID = modem
		cmp	#$0001			; no, is it a modem?
		beq	have_char_id		; yes, go ID modem

		ldx	#$0018			; not a modem or printer, set network generic
have_char_id	jsr	set_id_num		; now set ID number
		bra	set_not_open		; continue
		
id_not_slot1	cmp	#$0002			; is it internal slot 2?
		bne	id_not_slot2		; no
		
		lda	#$000C
		bra	id_slot1_2		; continue
		
id_not_slot2	cmp	#$0003			; is it internal slot 3?
		bne	id_not_slot3		; no
		sec				; Dont generate a driver for slot 3
		bra	dup_load_2
		
id_not_slot3	cmp	#$0007			; is it internal slot 7?
		bne	id_not_slot7		; no
		ldx	#$0018			; driver is a network
		jsr	set_id_num		; now set ID number
		bra	set_not_open		; continue

id_not_slot7
		ldx	#$0016			; driver is a generic character device
		jsr	set_id_num		; now set ID number
*
* Set device OPEN flag to 'Not Open'.
*
set_not_open
		ldy	#open_flag		; set to not open
		lda	#$0000
		sta	[<drvr_dib_ptr],y
		jsr	set_gen_ver		; set driver version #
		jsr	chk_dup_load		; does a loaded driver already exist?
		bcs	dup_load_2		; yes
		jsr	chk_dup_boot		; check if device is same as boot
dup_load_2
		rts

		eject
*
* Device is a Standard SmartPort device if got here.
* A status call to the device is required before the
* device characteristics word can be set.  The default
* device characteristics for a SmartPort device is as follows:
*  ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___
* |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |
* | F | E | D | C | B | A | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 |
* |___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |___|__ Reserved
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |__________ Media remov
*   |   |   |   |   |   |   |   |   |   |   |   |   |______________ Format
*   |   |   |   |   |   |   |   |   |   |   |   |__________________ Driver follows guidelines
*   |   |   |   |   |   |   |   |   |   |   |______________________ Read
*   |   |   |   |   |   |   |   |   |   |__________________________ Write
*   |   |   |   |   |   |   |   |   |______________________________ Block Dev
*   |   |   |   |   |   |   |   |__________________________________ Speed Group
*   |   |   |   |   |   |   |______________________________________ Speed Group
*   |   |   |   |   |___|__________________________________________ Reserved
*   |   |   |   |__________________________________________________ Device Busy
*   |   |   |______________________________________________________ Linked
*   |   |__________________________________________________________ Generated
*   |______________________________________________________________ RamRom Disk
*
* The device characteristics word will be substantially modified
* for a SmartPort character device.
*
build_class1
		longa	on
		longi	on

*
* Device may be an Extended SmartPort device if got here.
* A status call to the device is required to determine if
* the device as well as the firmware interface supports the
* extended SmartPort device protocol.  If not, the device
* class will be modified to a class 1 device.  All other
* DIB/GDIB setup is identical to the class 1 device.
*
build_class2	lda	#$0001			; unit number
		sta	|x_unit			; init hardware unit number
class2_loop
		jsr	set_dib_ptr		; set DIB pointer current dev num
		phy				; Number of devices this slot
		phx				; initial class (needs verified)
		pha				; unit number
		ldy	#drvr_class		; set driver class
		txa
		sta	[<drvr_dib_ptr],y
		lda	#$FFFF			; set cache priority
		ldy	#cache_mask
		sta	[<drvr_dib_ptr],y
		pla				; unit number
		pha
		php
		jsr	generate_slot		; generate slot number
		jsr	setup_sp_stat		; setup bank0 core for status call
		plp
		pla				; need device unit number in parmlist
		ldx	#param_list_ptr		; pointer to parameter list

		sep	#$20			; 8 bit 'm'
		longa	off

		sta	>1,x			; set unit number in parameter list
		lda	#$03			; status code = DIB status = $03
		sta	>4,x

		rep	#$20			; 16 bit 'm'
		longa	on

		jsl	b0_core			; execute device status call
		ldy	#blk_cnt		; set number of blocks
		lda	>sys_buffer+1
		sta	[<drvr_dib_ptr],y
		iny
		iny
		lda	>sys_buffer+3
		and	#$00FF
		sta	[<drvr_dib_ptr],y
		lda	>sys_buffer		; get device general status byte
		and	#$00E8			; mask unused bits
		ora	#$4300			; mark device as generated

		sep	#$10			; 8 bit 'x'
		longi	off

		clc				; assume not a Ram or Rom Disk
		pha
		lda	>sys_buffer+$16		; get device subtype
		and	#%00100000		; want media removable bit
		eor	#%00100000
		lsr	a
		lsr	a
		lsr	a
		ora	1,s			; place media romovable into dev_char
		sta	1,s
		lda	>sys_buffer+$15		; get device type byte
		asl	a			; Extended to carry, keep type * 2
		tay				; Y = SmartPort device type * 2
		pla
		tyx				; X = SmartPort device type * 2
		bne	not_ram_disk
ram_rom_disk
		ora	#$8000			; set Ram/Rom Disk
		and	#$FFF8			; Ram/Rom Disk not removable
		sec
		bra	have_dev_char
not_ram_disk
		cpx	#$08			; is it a Ram Disk?
		beq	ram_rom_disk		; yes
		clc
have_dev_char
		rep	#$10			; 16 bit 'x'
		longi	on

		jsr	set_dev_char		; set device characteristics
		bcs	disable_cache		; dont modify mask if not a Ram or Rom Disk
		
		cpx	#$0002			; is this an AppleDisk3.5?
		bne	cache_mask_ok		; no
disable_cache
		ldy	#cache_mask		; no cache for Ram or Rom disk
		lda	#$0000			; cache mask of zero disable caching for the device
		sta	[<drvr_dib_ptr],y
cache_mask_ok
		lda	#$0014			; assume a generic floppy disk
		cpx	#$0021			; is it a known SmartPort id? (SmartPort Type * 2 +1)
		bge	have_sp_trans		; no, use assumed ID
		
		lda	|sp_trans_id,x		; set device id number
have_sp_trans
		ldy	#dev_id_num
		sta	[<drvr_dib_ptr],y
		ldy	#drvr_type		; set GDIB type
		lda	>sys_buffer+$15
		pha
		and	#$00FF
		sta	[<drvr_dib_ptr],y
		pla				; set GDIB subtype
		xba
		and	#$00FF
		iny
		iny
		sta	[<drvr_dib_ptr],y

		sep	#$20			; 8 bit 'm'
		longa	off

		asl	a			; extended flag to carry

		rep	#$20			; 16 bit 'm'
		longa	on
*
* Both the interface and the device itself must indicate that
* extended calls are supported in order to have the device
* installed as a class 2 (Extended SmartPort) device.
*
		ldy	#drvr_class
		lda	[<drvr_dib_ptr],y
		bcs	class_is_ok		; if device is extended, dont mod class
		cmp	#$0002			; is driver extended?
		bne	class_is_ok		; no
		dec	a			; yes, must make it nonextended
		sta	[<drvr_dib_ptr],y
class_is_ok
		lda	>sys_buffer+$17		; set version number
		ldy	#ver_num
		sta	[<drvr_dib_ptr],y
*
* Early versions of the SCSI Interface Card Firmware do not
* operate properly when using the Extended SmartPort interface
* with Interrupts running.  Any SCSI card with a firmware
* version number less than 2 will be installed as a class 1
* device thereby limiting the device to standard SmartPort calls.
*  ___ ___ ___ ___ ___ ___ ___ ___
* |   |   |   |   |   |   |   |   |
* | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 |     SmartPort Type ID $CnFB
* |___|___|___|___|___|___|___|___|
*   |   |   |   |   |   |   |   |__ 0 = RAM CARD
*   |   |   |   |   |   |   |______ 1 = SCSI
*   |   |   |___|___|___|__________ 0 = RESERVED
*   |   |__________________________ 1 = Supports SuperCalls
*   |______________________________ 1 = Supports Extended Calls
*
		pei	<fw_addr		; save $Cn00+($CnFF)+3
		sep	#$20			; 8 bit 'm'
		longa	off
		stz	<fw_addr		; need ($CnFB)
		ldy	#$00FB
		lda	[<fw_addr],y
		lsr	a			; is this a SCSI interface?
		lsr	a
		rep	#$20			; 16 bit 'm'
		longa	on
		pla				; restore $Cn00+($CnFF)+3
		sta	<fw_addr
		bcc	not_scsi		; no
		ldy	#ver_num
		lda	[<drvr_dib_ptr],y
		cmp	#$0002			; is this the NEW scsi rom?
		bge	not_scsi		; yes, don't modify the driver class
		ldy	#drvr_class		; else set the class to 1
		sta	[<drvr_dib_ptr],y
not_scsi
*
* Now generate a name for the current device being
* installed into the device list.
*
		jsr	gen_name		; generate device name 'Dn'
*
* Check if done generating devices for this peripheral
* card.  Make sure this device is not a duplicate device
* for a driver already loaded or the generated boot device.
*
		ldy	#unit_num		; get current device unit number
		lda	[<drvr_dib_ptr],y
		inc	a			; and set for next device
		plx				; driver class
		ply				; number of devices
		dey
		beq	build_done
		jsr	chk_dup_load		; does a loaded driver already exist?
		bcs	dup_load_3		; yes
		jsr	alert_check		; check if ALERT for loaded driver should be displayed
		bcs	dup_load_3		; if ALERT was displayed and generated driver was tossed
		jsr	chk_dup_boot		; check if device is same as boot
dup_load_3
		jmp	class2_loop		; loop until all devices generated
build_done
		lda	<drvr_dev_num		; was this the boot device?
		dec	a
		beq	dup_load_5		; yes
		jsr	chk_dup_load		; does a loaded driver already exist?
		bcs	dup_load_4		; yes
		jsr	alert_check		; check if ALERT for loaded driver should be displayed
		bcs	dup_load_4
		jsr	chk_dup_boot		; check if device is same as boot
dup_load_4
		rts
dup_load_5
		jsr	alert_check		; check if ALERT for loaded driver should be displayed
		rts

		eject
*****************************************************************
*
* If this is a UniDisk3.5 drive then only build the device if it is
* unit $0001 and the slot number is equal to the boot slot.  The loaded
* driver for the UniDisk3.5 is absolutely neccessary to properly use
* the media and assure that corruption will not occur.
*
* This routine will also display alerts for the AppleDisk3.5 driver but
* will allow use of this driver without caching at reduced performance.
*
*
* ENTRY: via a 'JSR'
*		A Reg = Unspecified
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Same as execution bank
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*			¥ ¥ 0 0 0 ¥ ¥ ¥  0
*           Boot_Slot = Slot number of boot volume
*
* EXIT: via an 'RTS'
*		A Reg = Unchanged
*               X Reg = Unchanged
*               Y Reg = Unchanged
*               B Reg = Same as execution bank
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*			¥ ¥ 0 0 0 ¥ ¥ 0  0 Not a LIRON or LIRON is boot device
*			¥ ¥ 0 0 0 ¥ ¥ 1  0 LIRON is not boot device
*
*****************************************************************
alert_check
		longa	on
		longi	on

		pha
		phx
		phy
		ldy	#drvr_type		; get SmartPort driver type
		lda	[<drvr_dib_ptr],y
		cmp	#$0001			; is it a UniDisk3.5 or AppleDisk3.5 drive?
		bne	not_ad			; no, go ahead and build the device
		ldy	#drvr_subtype		; get SmartPort driver subtype
		lda	[<drvr_dib_ptr],y	; is it a UniDisk3.5
		bne	not_ud			; no
		jsr	boot_slot_unit		; is it a boot device?
		beq	boot_ud			; yes, go ahead and generate it
not_ud_boot
		lda	|ud_count		; has dialog already been displayed?
		bne	no_ud_dialog		; yes
		lda	#unidisk_alert		; display driver alert dialog
		jsr	driver_alert
no_ud_dialog
		sec				; it's a unidisk & not in the boot position
		inc	|ud_count		; only display dialog once!!!
pull_y_x_a
		ply
		plx
		pla
		rts

boot_ud
		lda	|ud_count		; has UniDisk dialog been displayed?
		bne	no_ud_alert		; yes
		lda	#unidisk_alert		; display driver alert dialog
		jsr	driver_alert
no_ud_alert
		inc	|ud_count		; only display dialog once!!!
		ldy	#cache_mask		; disable cache on UniDisk generated driver
		lda	#$0000
		sta	[<drvr_dib_ptr],y
		bra	alert_exit
not_ud
		cmp	#$00C0			; is it an AppleDisk3.5 drive?
		bne	alert_exit		; no
		lda	|ad_count		; has dialog been displayed already?
		bne	alert_exit		; yes, dont redisplay it
		
		lda	#appledisk_alert	; display driver alert dialog
		jsr	driver_alert
		inc	|ad_count		; set flag so redisplay will not occur
		bra	alert_exit
not_ad
		cmp	#$0005			; is it a SCSI hard disk device?
		beq	do_scsi_alert		; yes
		cmp	#$0007			; is it a SCSI CD-ROM
		bne	alert_exit		; no
do_scsi_alert
		lda	|scsi_count		; has dialog been displayed already?
		bne	scsi_alert_exit		; yes, dont redisplay it
		
		lda	#scsi_alert		; display driver alert dialog
		jsr	driver_alert
scsi_alert_exit
		inc	|scsi_count		; set flag so redisplay will not occur
		jsr	boot_slot_unit		; is it the boot device?
		sec
		bne	no_scsi_dialog		; yes, flag as duplicate
alert_exit
		clc				; indicate driver was not tossed
no_scsi_dialog
		jmp	pull_y_x_a
		
driver_alert
		pha				; error number of driver alert
		lda	#0			; push NIL pointers (no substitution strings)
		pha
		pha
		pha
		pha
		tay
		lda	>warm_cold_flag		; is this a boot or an OS switch?
		bne	no_thermometer		; it's an OS switch
		
		tya
		jsl	stop_scrn_chk		; dont want text screen left up after dialog
		jsl	report_error		; display the alert dialog
		jsl	start_scrn_chk		; back to thermometer
		rts
no_thermometer
		tya
		jsl	report_error		; display the alert dialog
		rts

boot_slot_unit
		ldy	#slot_num
		lda	[<drvr_dib_ptr],y
		cmp	|d_boot_slot		; is this the boot slot
		bne	aint_boot		; no
		
		ldy	#unit_num
		lda	[<drvr_dib_ptr],y
		dec	a			; is this the boot unit
aint_boot
		rts
		
		eject
*****************************************************************
*
* This routine verifies that the current device is not a
* duplicate of the boot volume device.  If so, the device
* number is not incremented.  If not, the device number is
* incremented.  When the device number is not incremented, the
* next device will be built over the current device thus purging
* the duplicate device.
*
* ENTRY:        A Reg = Undefined
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Same as execution bank
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*			¥ ¥ 0 0 0 ¥ ¥ ¥  0
*           Boot_Slot = Slot number of boot volume
*
* EXIT:         A Reg = Unchanged
*               X Reg = Unchanged
*               Y Reg = Unchanged
*               B Reg = Same as execution bank
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*			¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
chk_dup_boot
		longa	on
		longi	on

		pha
		phy
		ldy	#slot_num	; get current device slot
		lda	[<drvr_dib_ptr],y
		cmp	<boot_slot
		bne	not_dup_boot	; it's ok to generate next device
		
		iny			; get current unit #
		iny
		lda	[<drvr_dib_ptr],y
		cmp	#$0001		; boot volume is always unit #1
		beq	chk_dup_done	; it's a duplicate, purge it
not_dup_boot
		inc	|gen_count	; else setup for next device
		inc	<drvr_dev_num
chk_dup_done
		ply
		pla
		rts

		eject
*****************************************************************
*
* This routine sets the DIB unit and slot numbers.  The Unit
* number is passed as input to this routine through the
* accumulator.  The slot number is based on <fw_addr.
* If the slot is external, $0008 will be added to the
* initial slot value before placing the slot number into the DIB.
*
* ENTRY:        A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*               B Reg = Same as execution bank
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*           Boot_Slot = Slot number of boot volume
*
* EXIT:         A Reg = Slot number
*               X Reg = Undefined
*               Y Reg = Pointer to DIB slot number
*               B Reg = Same as execution bank
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
generate_slot
		longa	on
		longi	on

		ldy	#unit_num	; set unit number
		sta	[<drvr_dib_ptr],y
		dey			; point at DIB slot number
		dey
		lda	<fw_addr	; get $CnXX
		xba
		and	#$0007		; extract the slot number
		sta	[<drvr_dib_ptr],y
		php			; save environment

		sep	#$20		; 8 bit 'm'
		longa	off

		cmp	#$03		; is slot set to slot #3?
		bne	not_slot3	; if not
		lda	>rdc3rom	; internal or external?
		rol	a
		bra	set_int_ext
not_slot3
		tax
		lda	>sltromsel	; get slot rom selection
slot_check
		ror	a
		dex
		bpl	slot_check
set_int_ext
		lda	#$00		; assume internal
		bcc	int_slot
		lda	#$08		; slots 8-15 are external
int_slot
		plp			; restore environment

		longa	on

		and	#$00FF		; insert SLOT_NUM
		ora	[<drvr_dib_ptr],y
		sta	[<drvr_dib_ptr],y

		pha
		phy
		lda	<drvr_dev_num	; insert DIB_DEV_NUM ** REV. 0.10a02
		ldy	#dib_dev_num
		sta	[<drvr_dib_ptr],y
		ply
		pla
		rts

		eject
*****************************************************************
*
* This routine is used to generate an ASCII name for generated
* devices and places that name into the DIB.  The value of the
* generated driver counter is converted to decimal prior to
* converting the count to ASCII.  All leading zero's will be
* removed from the final string resulting in the name 'Dn' where
* n is the value of the generated driver counter.
*
* ENTRY:        A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*               B Reg = Same as execution bank
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*           Boot_Slot = Slot number of boot volume
*
* EXIT:         A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*               B Reg = Unchanged
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
gen_name
		longa	on
		longi	on

		pha			; preserve environment
		phx
		phy
		lda	|gen_count	; # of current generated driver
		pha			; is integer to be converted
		pea	name_buff>>16	; Pointer to output string
		pea	name_buff
		pea	$0005		; length of output string
		pea	$0000		; unsigned integer
		_int2dec

		sep	#$20		; 8 bit 'm'
		longa	off

		ldy	#dev_name+4	; point into name after count & 'DEV'
		ldx	#$0000
xfer_fl_name
		lda	|name_buff,x	; get ascii
		cmp	#$20		; is it a ' ' ascii character?
		bne	move_string	; no, now pointing at 1st character
		inx			; else point at next character and
		bra	xfer_fl_name	; continue search for 1st valid char.
		
move_string				; ; now move string into DIB
		lda	|name_buff,x	; get ascii
		sta	[<drvr_dib_ptr],y
		iny
		inx
		cpx	#$0005
		bne	move_string
		
		tya			; calculate string length
		clc			; -1 since ptr past string
		sbc	#dev_name
		ldy	#dev_name	; and set string length
		sta	[<drvr_dib_ptr],y

		rep	#$20		; 16 bit 'm'
		longa	on

		jmp	pull_y_x_a

		eject
*****************************************************************
*
* This routine sets the DIB device ID number based on the
* contents of the X register.
*
*****************************************************************
set_id_num
		longa	on
		longi	on

		ldy	#dev_id_num		; point at DIB ID number
		txa				; and set the ID
		bra	set_dib_parm

*****************************************************************
*
* This routine sets the DIB device characteristics based
* on the contents of the A register.
*
*****************************************************************
set_dev_char
		longa	on
		longi	on

		ldy	#dev_char		; set device characteristics
		bra	set_dib_parm

*****************************************************************
*
* This routine sets the DIB version number.
*
*****************************************************************
set_gen_ver
		longa	on
		longi	on

		ldy	#ver_num		; point at DIB version number
		lda	#$2000			; and set the version number
set_dib_parm
		sta	[<drvr_dib_ptr],y
		rts

		eject
****************************************************************
*
* This routine sets the DIB pointer on direct page for the
* device specified by the Device ID Number.  This allows an
* FST direct access to DIB information for a particular device.
*
****************************************************************
dd_get_dib
		longa	on
		longi	on

		lda	<dev_id_ref		; check device number
		cmp	[<drvr_dev_ptr]
		blt	id_ref_ok
		beq	id_ref_ok
		
		lda	#invalid_dev_num	; incorrect ID, no device error
		sec
		rts

id_ref_ok
		sta	<drvr_dev_num		; set device number
		jsr	set_dib_ptr		; set pointer to DIB
		stz	<drvr_dev_num		; restore device number
		lda	#$0004			; set transfer count
		sta	<drvr_tran_cnt
		stz	<drvr_tran_cnt+2
		clc				; no error has occured
		rts

		eject
****************************************************************
*
* This function walks the device list looking for a driver that
* supports removeable media.  When one is found, an Eject call
* is made to the driver to have it eject it's media.  When the
* entire device list is scanned, the function falls through into
* the normal dispatcher shutdown procedure
*
****************************************************************

dd_full_shutdn

		lda	[<drvr_dev_ptr]		; point at last device
		beq	no_drvr_shutdn
		sta	<drvr_dev_num		; save here
		stz	<drvr_buf_ptr		; not used, zero out
		stz	<drvr_buf_ptr+2
		stz	<drvr_req_cnt		; not used, zero out
		stz	<drvr_req_cnt+2

loop
		jsr	set_dib_ptr		; make a dib pointer for this device
		ldy	#dev_char		; index to characteristics
		lda	[<drvr_dib_ptr],y
		and	#%0000000000000100	; removeable media?
		beq	no_eject		; no, skip it
		lda	#2			; control subcall = Eject
		sta	<drvr_ctrl_code
		lda	#6			; driver call = Control
		sta	<drvr_call_num
		jsl	dev_dispatcher		; call the driver (recursive!)
no_eject
		dec	<drvr_dev_num		; loop through all devices
		bne	loop

		; fall through into dd_shutdn

		eject
****************************************************************
*
* This function is used to shutdown the device dispatcher.
* Then a drvr_shutdn call will be issued to each device in the
* device list.  The memory used to maintain the device
* list will be released and the ID for the device list will
* be deleted.
*
* ENTRY: Call via 'JSL'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*               B Reg = Undefined
*             Dir Reg = GSOS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT: via 'RTL'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*               B Reg = Undefined
*             Dir Reg = GSOS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ 0  0   if no error
*                       ¥ ¥ 0 0 0 ¥ ¥ 1  0   if error
*
****************************************************************
dd_shutdn
		longa	on
		longi	on

		lda	[<drvr_dev_ptr]		; point at last device
		beq	no_drvr_shutdn
		
shutdn_loop
		sta	<drvr_dev_num
		pha				; save the device number
		jsr	shutdn_driver		; shutdown the driver
		pla				; retrieve the device number
		dec	a			; step backwards through device list
		bne	shutdn_loop		; until all devices shut down
		
no_drvr_shutdn
		lda	[<sup_drvr_ptr]		; point at last supervisor
		beq	no_sup_shutdn
		
sup_shutdn_loop
		jsr	shutdn_sup		; shutdown the supervisor
		lda	[<sup_drvr_ptr]
		dec	a
		sta	[<sup_drvr_ptr]
		bne	sup_shutdn_loop		; no, then loop for next device
		
no_sup_shutdn
		lda	>warm_cold_flag		; is this a warm start?
		bne	warm_shutdown		; no
*
* Purge memory used by the device list.
*
		lda	|dev_list_id		; device id of handle to dispose
		ldy	|dev_list_hndl+2	; handle to dispose
		ldx	|dev_list_hndl
		jsr	dispose_handle		; toss the handle and user ID
*
* Purge memory used by the generated drivers.
*
		lda	|gen_drvr_id		; device id of handle to dispose
		ldy	|gen_drvr_hndl+2	; handle to dispose
		ldx	|gen_drvr_hndl
		jsr	dispose_handle		; toss the handle and user ID
*
* Purge memory used by the supervisory driver list.
*
		lda	|sup_drvr_id		; device id of handle to dispose
		ldy	|sup_drvr_hndl+2	; handle to dispose
		ldx	|sup_drvr_hndl
		jsr	dispose_handle		; toss the handle and user ID
*
* Purge memory used by the file list.
*
		lda	|file_list_id		; device id of handle to dispose
		ldy	|file_list_hndl+2	; handle to dispose
		ldx	|file_list_hndl
		jsr	dispose_handle		; toss the handle and user ID
*
* If a BOOT.DRIVER is in place, dispose of it
*
		lda	<boot_user_id		; get the ID
		beq	warm_shutdown		; no BOOT.DRIVER to dispose of
		jsr	purge_driver		; go throw it away

warm_shutdown
		lda	#$0002			; preinit load device in case of warm start
		sta	|load_device
		
		stz	|ud_count		; display them dialogs next time!!!
		stz	|ad_count
		stz	|scsi_count
return_no_err
		lda	#no_error
		clc
		rts

		eject
****************************************************************
*
* This routine is used to shutdown a driver.  Note that if the
* driver returns an error then the memory for which that driver
* was initially loaded into will remain locked and fixed.  If
* the driver returned no error then the memory associated with
* the User ID entry in the device list will be purged.
*
* ENTRY: Call via 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*               B Reg = Undefined
*             Dir Reg = GSOS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT: via 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*               B Reg = Undefined
*             Dir Reg = GSOS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
****************************************************************
shutdn_driver
		longa	on
		longi	on

		lda	<drvr_dev_num		; is this the boot device?
		dec	a
		bne	not_boot		; no
		
		jsr	set_dib_ptr		; get the correct DIB pointer
		ldy	#dev_char		; is this a generated driver?
		lda	[<drvr_dib_ptr],y
		and	#$4000
		bne	dont_unload		; yes, don't shutdn since not started
not_boot
		lda	#drvr_shutdn		; set call = driver shut down
		sta	<drvr_call_num
		jsl	dev_dispatcher		; and shut it down
		bcs	dont_unload
check_type
		lda	|dd_os_call		; is driver being shutdown during startup?
		beq	unload_it		; yes, purge it & mark file list
		
		lda	>warm_cold_flag		; is this a warm start?
		beq	unload_it		; yes
		
		ldy	#dev_char		; is driver restartable?
		lda	[<drvr_dib_ptr],y
		and	#$0800
		bne	dont_unload		; no, else nuke the ma'ma
unload_it
		jsr	set_dev_index		; point at user ID in device list
		jsr	y_plus_6		; and get current user ID
		lda	[<drvr_dev_ptr],y
		bne	purge_driver		; if !0, unload & release memory
dont_unload
		rts

		eject
****************************************************************
*
* This routine is used to shutdown a supervisor.
*
* ENTRY: Call via 'JSR'
*               A Reg = Supervisor driver number
*               X Reg = Undefined
*               Y Reg = Undefined
*               B Reg = Undefined
*             Dir Reg = GSOS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT: via 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*               B Reg = Undefined
*             Dir Reg = GSOS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
****************************************************************
shutdn_sup
		longa	on
		longi	on

		ldx	#$0001			; set call = supervisor shut down
		pha
		jsl	sup_drvr_disp		; and shut it down
		plx

		eject
****************************************************************
*
* This routine is used to purge a supervisory driver.
*
* ENTRY: Call via 'JSR'
*               A Reg = Supervisor driver number
*               X Reg = Undefined
*               Y Reg = Undefined
*               B Reg = Undefined
*             Dir Reg = GSOS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT: via 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*               B Reg = Undefined
*             Dir Reg = GSOS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
****************************************************************
purge_sup
		longa	on
		longi	on

		lda	|dd_os_call		; is driver being shutdown during startup?
		beq	purge_sup_1		; yes, purge it & mark file list
		
		lda	>warm_cold_flag		; is this a warm start?
		beq	purge_sup_1		; yes
		
		ldy	#sib_char		; is driver restartable?
		lda	[<sib_ptr],y
		bmi	dont_unload		; no, else nuke the ma'ma
purge_sup_1
		txa				; point at user ID in supervisor list
		jsr	set_sup_index
		lda	[<sup_drvr_ptr],y
		beq	dont_unload		; NIL is not a valid driver user ID
		
		eject
***************************************************************
*
* This routine unloads and purges the segment defined by the
* user ID passed as input to the call.  The USER ID will be
* deleted from the system.
*
* ENTRY: via a 'JSR'
*               A Reg = USER ID of segment to shutdown
*               X Reg = Undefined
*               Y Reg = Undefined
*            Bank Reg = Current Program Bank
*             Dir Reg = GS/OS Direct Page
*           Stack Reg = GS/OS Stack
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:  via 'RTS'
*               A Reg = USER ID of segment that was shutdown
*               X Reg = Unchanged
*               Y Reg = Unchanged
*            Bank Reg = Current Program Bank
*             Dir Reg = GS/OS Direct Page
*           Stack Reg = GS/OS Stack
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
***************************************************************
purge_driver
		longa	on
		longi	on

		sta	|shutdown_id		; user ID to shutdown
		
		phx
		phy
		pha				; space for result
		pha				; USER ID
		pea	$0000			; Quit Flag
		_usershutdown
		pla				; result User ID from shutdown
		
		jsr	mark_file_list		; mark the driver in the file list as purged
		
		ply
		plx
		rts

		eject
****************************************************************
*
* This routine is the central dispatcher for generated driver
* calls.  This routine parses the command number and dispatches
* control to the device driver via the proper generated driver
* core routine.  The driver block number and buffer address are
* preserved throughout the driver call by the driver dispatcher.
*
* ENTRY:        A Reg = Call number
*               X Reg = Undefined
*               Y Reg = Undefined
*             DIR Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:         A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             DIR Reg = GS/OS Direct Page
*               B Reg = Same as on entry
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ 0  0 if no error
*                       ¥ ¥ 0 0 0 ¥ ¥ 1  0 if error
*
****************************************************************
		export	g_dispatch
g_dispatch
		longa	on
		longi	on

		phb				; save environment
		phd

		phk				; set environment in case call was
		plb				; from the system service call table
		pea	direct_base
		pld

*
* Set MSLOT prior to dispatch since some Pascal1.1 devices
* dont setup this parameter.
*
		ldy	#slot_num		; obtain slot number from DIB
		lda	[<drvr_dib_ptr],y

		sep	#$20
		longa	off

		and	#$07			; create $Cn for mslot
		ora	#$C0
		sta	>mslot

		rep	#$20
		longa	on

		lda	<drvr_call_num		; redundant but system service needs it
		cmp	#max_command		; is it a legal command?
		bge	g_illegal_req		; no
		tay				; save command #
		ldx	#$0000
save_parms
		lda	<drvr_dev_num,x		; save GS/OS call parameters
		pha
		lda	<drvr_blk_num,x
		pha
		inx
		inx
		cpx	#$000C			; up to but not including DRVR_TRAN_CNT
		bne	save_parms

		lda	>pcmd			; save absolute zero page parameters
		pha
		lda	>pbuffer
		pha
		lda	>pblock
		pha

		lda	>$00CFFF		; bang out all peripheral cards
		tya				; restore command #
		asl	a			; make index to dispatch table
		tax
		jsr	(dispatch,x)		; get dispatch entry
		tay				; save error code

		pla
		sta	>pblock
		pla
		sta	>pbuffer
		pla
		sta	>pcmd

		ldx	#$000A			; number of words to restore
restore_parms
		pla				; restore GS/OS call parameters
		sta	<drvr_blk_num,x
		pla
		sta	<drvr_dev_num,x
		dex
		dex
		bpl	restore_parms
		pld				; restore environment
		plb
		bcs	gen_exit		; force error code 0 if flag cleared
		ldy	#no_error
gen_exit
		tya				; restore error code
		rtl
*
* Received an illegal request.  Return with an error.
*
g_illegal_req
		pld				; restore environment
		plb
		lda	#drvr_bad_req		; set error
		sec
		rtl

*
* The following is a table of dispatch entry points for driver functions.
*
dispatch	dc.w	g_startup		; entry for startup function
		dc.w	g_open			; entry for open function
		dc.w	g_read			; entry for read function
		dc.w	g_write			; entry for write function
		dc.w	g_close			; entry for close function
		dc.w	g_status		; entry for status function
		dc.w	g_control		; entry for control function
		dc.w	g_flush			; entry for flush function
		dc.w	g_shutdn		; entry for shutdown function

		eject
****************************************************************
*
* This routine is used to startup a generated device driver.
* This routine will only be called by the device dispatcher
* when the device list is being constructed.
*
* ENTRY:        A Reg = Unspecified
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Current Program Bank
*             Dir Reg = GSOS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:         A Reg = Error code if carry set, else unspecified
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Current Program Bank
*             Dir Reg = GSOS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
****************************************************************
g_startup
		longa	on
		longi	on

		jmp	return_no_err

		eject
*****************************************************************
*
* ENTRY:        A Reg = Unspecified
*               X Reg = Unspecified
*               Y Reg = SmartPort Command
*               B Reg = Current Program Bank
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:         A Reg = SmartPort Command
*               X Reg = Points to parameter list in bank 0
*               Y Reg = Unspecified
*               B Reg = Current Program Bank
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
setup_sp_call
		longa	on
		longi	on
		
		lda	>call_list_ptr	; get address where command resides
		tax
		tya			; set SmartPort command
		sta	>0,x
		lda	#param_list_ptr	; set parameter list pointer
		sta	>1,x
		tay
		lda	#$EAEA		; 2 nop instructions
		sta	>3,x
		tyx			; point into parameter list
		ldy	#slot_num	; setup fw_addr with entry point
		lda	[<drvr_dib_ptr],y
		and	#$0007		; limit to slots 1-7
		xba
		ora	#$C0FF
		sta	<fw_addr
		sep	#$20		; 8 bit 'm'
		longa	off
		lda	[<fw_addr]	; get entry point offset from $Cn00
		clc			; bias for SmartPort
		adc	#$03
		sta	<fw_addr
		iny			; need correct unit number from dib
		iny
		lda	[<drvr_dib_ptr],y
		xba
		lda	#$03		; parameter count is 3
		rep	#$20
		longa	on
		sta	>0,x		; set SmartPort pcnt & unit number
		lda	#sys_buffer	; buffer pointer
		sta	>2,x
		rts

		eject
****************************************************************
*
* This routine is used to open a character device driver.
*
* ENTRY:        A Reg = Unspecified
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Current Program Bank
*             Dir Reg = GSOS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:         A Reg = Error code if carry set, else unspecified
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Current Program Bank
*             Dir Reg = GSOS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
****************************************************************
g_open
		longa	on
		longi	on
		
		jsr	check_if_char		; is the device a character device
		bne	g_open_done		; no, it's a block device
		ldy	#open_flag		; is the device already open?
		lda	[<drvr_dib_ptr],y
		bmi	g_prior_open		; yes, don't need to do it again
		jsl	bank0_dsptch		; and issue device level open
		bcs	cant_open
		lda	#$FFFF			; else set device open
		ldy	#open_flag
		sta	[<drvr_dib_ptr],y
g_open_done
		jmp	return_no_err

g_prior_open					; Driver error, already open
		lda	#drvr_prior_open
		sec
cant_open
		rts
		
		eject
****************************************************************
*
* This routine is used determine if the device currently being
* accessed is a character device.
*
* ENTRY:        A Reg = Unspecified
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Unspecified
*             Dir Reg = GSOS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:         A Reg = Block or character device bit from characteristics
*               X Reg = Unchanged
*               Y Reg = Unspecified
*               B Reg = Unchanged
*             Dir Reg = GSOS Direct Page
*               P Reg = N V M X D I Z C  E
*                       x x 0 0 0 x 0 x  0	if block device
*                       x x 0 0 0 x 1 x  0	if character device
*
****************************************************************
check_if_char
		longa	on
		longi	on
		
		ldy	#dev_char		; is the device a character device
		lda	[<drvr_dib_ptr],y
		and	#$0080
		rts		
		
		eject
****************************************************************
*
* This routine is used read data from either a generated
* character or block device.
*
* ENTRY:        A Reg = Unspecified
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Current Program Bank
*             Dir Reg = GSOS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:         A Reg = Error code if carry set, else unspecified
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Current Program Bank
*             Dir Reg = GSOS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
****************************************************************
g_read
		longa	on
		longi	on

		ldy	#dev_char		; check device for read allowed
		lda	[<drvr_dib_ptr],y
		tax
		and	#$0020
		bne	read_allowed
		lda	#invalid_access		; read not allowed erruh
		sec
		rts
read_allowed
*
* Determine if the device is a character or block device.
*
		txa
		xba
		rol	a
		bcc	char_read		; if device is a character device
		jmp	block_read		; if device is a block device

		eject
*
* The following routine is executed only if the read call
* is directed toward a character device.  A read from the
* device is only allowed if the device is open.
*
char_read
		lda	<drvr_blk_size		; is it a character read?
		beq	char_read_ok		; yep
		lda	#not_block_dev		; not a block device error
		sec
		rts

char_read_ok
		ldy	#open_flag		; is device open?
		lda	[<drvr_dib_ptr],y
		bne	dev_is_open		; yes
		lda	#drvr_not_open
		sec
		rts
*
* The device is open.  Check for device class for dispatch
* to proper routine.
*
dev_is_open
		lda	<drvr_req_cnt
		ora	<drvr_req_cnt+2
		bne	valid_req_c0
		jmp	return_no_err

valid_req_c0
		ldy	#drvr_class		; is this a class 0 character device?
		lda	[<drvr_dib_ptr],y
		and	#$000F
		bne	not_c0_char		; no

		eject
*
* Only single character I/O transactions are possible with
* class 0 devices.  Need to know if this is a class 0 device.
*
		ldy	#$0000			; buffer index
c0_char_loop
		phy
		jsl	bank0_dsptch		; read character from device
		ply
		php				; save carry
		sep	#$20			; 8 bit 'm'
		longa	off
		sta	[<drvr_buf_ptr],y	; place returned character into buffer
		rep	#$20			; 16 bit 'm'
		longa	on
		inc	<drvr_tran_cnt		; bump transfer count
		bne	c0_tran_bump
		inc	<drvr_tran_cnt+2
c0_tran_bump
		iny				; next buffer location
		bne	c0_buf_loc
		inc	<drvr_buf_ptr+2
c0_buf_loc
		plp				; retrieve error status returned by bank 0
		bcs	c0_char_err		; if device returned an error
		jsr	chk_request_cnt		; was requested count exhausted?
		bcs	c0_char_loop		; no
		rts

c0_char_err
		xba				; place error code in low byte
		and	#$00FF			; clear high byte
		rts				; and back to dispatcher

chk_request_cnt
		lda	<drvr_req_cnt		; was requested count exhausted?
		cmp	<drvr_tran_cnt
		bne	req_pending
		lda	<drvr_req_cnt+2
		cmp	<drvr_tran_cnt+2
		bne	req_pending
		clc
		rts
req_pending
		sec
		rts

		eject
*
* Class 1 devices must be double buffered if the buffer address
* is not in bank 0.  Need to know if this is a class 1 device.
*
not_c0_char
		dec	a
		bne	not_c1_char		; it must be a class 2 device
c1_char_loop
		sec				; calculate remaining request count
		lda	<drvr_req_cnt
		sbc	<drvr_tran_cnt
		tay
		lda	<drvr_req_cnt+2
		sbc	<drvr_tran_cnt+2
		bne	c1_req_max		; remainder exceeds max packet
		cpy	#768
		bge	c1_req_max		; remainder exceeds max packet
		sty	<drvr_blk_size		; set remainder as size
		bra	c1_size_ok
c1_req_max
		lda	#767			; set request = max packet size
		sta	<drvr_blk_size
c1_size_ok
		lda	<drvr_buf_ptr		; setup for double buffering
		sta	<buf_ptr
		lda	<drvr_buf_ptr+2
		sta	<buf_ptr+2
		lda	#sys_buffer
		sta	<drvr_buf_ptr
		stz	<drvr_buf_ptr+2
		jsl	bank0_dsptch		; read character from device
		bcs	c1_err_exit
		jsl	system_to_buf		; copy data to ultimate destination
		jsr	chk_request_cnt		; was requested count exhausted?
		bcs	c1_char_loop
c1_err_exit
		stz	<drvr_blk_size		; $0000 for character devices
		rts

		eject
*
* Class 2 devices require no double buffering.
*
not_c1_char
c2_char_loop
		sec				; calculate remaining request count
		lda	<drvr_req_cnt
		sbc	<drvr_tran_cnt
		tay
		lda	<drvr_req_cnt+2
		sbc	<drvr_tran_cnt+2
		bne	c2_req_max		; remainder exceeds max packet
		cpy	#768
		bge	c2_req_max		; remainder exceeds max packet
		sty	<drvr_blk_size		; set remainder as size
		bra	c2_size_ok
c2_req_max
		lda	#767			; set request = max packet size
		sta	<drvr_blk_size
c2_size_ok
		jsl	bank0_dsptch		; read character from device
		bcs	c2_err_exit
		jsr	chk_request_cnt		; was requested count exhausted?
		bcs	c2_char_loop
c2_err_exit
		stz	<drvr_blk_size		; $0000 for character devices
		rts

		eject
*****************************************************************
*
* The following routine is executed only if the read call is
* directed toward a block device.  If the request count or initial
* block number is invalid, return with the appropriate error.
*
*****************************************************************
block_read
		longa	on
		longi	on
		
		jsr	calc_n_blk		; check request_cnt = block_size * n
		bcc	req_cnt_ok		; ok if integral multiple
		rts				; else return with error
req_cnt_ok
		lda	<drvr_req_cnt
		ora	<drvr_req_cnt+2
		bne	valid_req_b
		jmp	return_no_err

*
* Generated drivers maintain a cache enable mask in
* the GDIB to prevent RAM or ROM disks from being
* cached.  Set the current cache enable based on
* the mask.
*
valid_req_b
		ldy	#cache_mask
		lda	[<drvr_dib_ptr],y
		and	<drvr_cache
		sta	<drvr_cache
*
* A different algorithm is executed for class 2 devices.
* Determine what class device is being used before
* executing the block read.
*
		ldy	#drvr_class
		lda	[<drvr_dib_ptr],y
		cmp	#$0002
		bne	block_read_01		; if it's a class 0 or 1 device
		jmp	block_read_2		; only if it's a class 2 device

		eject
*
* The following routine is executed for read calls directed
* toward class 0 or class 1 block devices.
*
block_read_01
		bit	<drvr_fst_num		; is this a deferred ID access
		bmi	c01_dev_acc		; yes, force device access
		clc				; specify block search
		jsl	cache_find_blk		; is the block in the cache?
		bcs	c01_dev_acc		; no, may want to cache it though.
		jsl	cache_to_buff		; yes, read block from cache to buffer
		ldy	#dev_char		; is device removable media?
		lda	[<drvr_dib_ptr],y
		and	#$0004
		beq	c01_next_block		; not removable - dont status
		jsr	c0_dev_stat		; check for disk switched error
*
* The following five lines were added to accomodate ProDOS devices that return
* a write protected error on a readblock call.  
*
		bcc	c01_next_block		; if no error was returned from firmware
		cmp	#drvr_wr_prot		; was the error a write protect error?
		beq	c01_next_block		; Yes, ignore it (not valid error on readblock)
		sec				; else normal error handling follows
		bra	c01_error
c01_next_block
*
* Block has been read.  Need to adjust the block address
* and buffer pointer in preperation for the next read if
* a multiple block transaction is in process.  If the
* request count has been satisfied, no further action is required.
*
		jsr	adj_buf_ptr		; point at next buffer
		jsr	adjust_block		; prepare for next block
		bcc	block_read_01		; more blocks to read
		clc				; all done with no errors
		lda	#$0000
c01_error
		rts
*
* This routine accesses the device directly.  If the buffer
* address specified in the call is not in bank0, the data
* must be double buffered through the bank0 system buffer.
*
c01_dev_acc
		lda	<drvr_buf_ptr+2		; is buffer in bank 0?
		bne	double_buffer		; no, must double buffer data
		jsl	bank0_dsptch		; read data from device to buffer
		bcs	c01_error		; if error from device
c01_cache
		bit	<drvr_fst_num		; is this a deferred ID access
		bmi	c01_next_block		; no, dont cache this block
		lda	<drvr_cache		; should this block be cached
		beq	c01_next_block		; no
		jsl	cache_add_blk		; request a block from the cache
		bcs	c01_next_block		; no block was available for caching
		jsl	buff_to_cache		; copy data to cached block
		bra	c01_next_block		; and loop for next block
*
* Preserve the current buffer pointer while redirecting the
* current I/O request to the system buffer in bank 0.
*
double_buffer
		ldy	<drvr_buf_ptr+2		; save current buffer pointer
		ldx	<drvr_buf_ptr
		phy
		phx
		lda	#sys_buffer		; new destination is system buffer
		sta	<drvr_buf_ptr
		stz	<drvr_buf_ptr+2
		jsl	bank0_dsptch		; read block into system buffer
		plx				; restore current buffer pointer
		ply
		sty	<drvr_buf_ptr+2
		stx	<drvr_buf_ptr
		bcs	c01_error		; if driver error
		jsl	system_to_buf		; copy data to ultimate destination
		bra	c01_cache		; now execute caching

		eject
*
* The following routine is executed for read calls
* directed toward class 2 block devices.
*
block_read_2
		bit	<drvr_fst_num		; force device access
		bmi	c2_dev_acc

		clc				; specify block search
		jsl	cache_find_blk		; is the block in the cache?
		bcs	c2_not_cached		; no, may want to cache it though.

		jsl	cache_to_buff		; yes, read block from cache to buffer
		ldy	#dev_char		; is device removable media?
		lda	[<drvr_dib_ptr],y
		and	#$0004
		beq	c2_no_purge		; not removable - dont status

		jsr	c2_dev_stat		; check for disk switched error
		bcs	c2_error
c2_no_purge
*
* Block has been read.  Need to adjust the block address
* and buffer pointer in preperation for the next read if
* a multiple block transaction is in process.  If the
* request count has been satisfied, no further action is required.
*
		jsr	adj_buf_ptr		; adjust new buffer address
		jsr	adjust_block		; prepare for next block
		bcc	block_read_2		; more blocks to read

		clc				; all done with no errors
		lda	#$0000
c2_error
		rts
*
* If block is not in cache or volume ID is zero, must force
* access to the device to read the block.
*
c2_dev_acc
		jsl	bank0_dsptch		; force access to the device
		bcs	c2_error		; if error from device
		bra	c2_no_purge		; and continue with transaction
*
* If block is not cached, action depends on the cache enable in the
* current call.  If the cache enable is zero then must force access
* to the device.  If cache enable is nonzero, a request for a block
* for caching must be made of the cache manager.  If no block is granted,
* then must force access to the device while reading only to the buffer.
* if the block is granted, the block is read from the device to the buffer
* and then transferred from the buffer to the cache.
*
c2_not_cached
		lda	<drvr_cache		; is the enable = 0?
		beq	c2_dev_acc		; yes, force device access w/o caching

		jsl	bank0_dsptch		; force access to the device
		bcs	c2_error		; if error from device

		jsl	cache_add_blk		; request a block for caching
		bcs	c2_no_cache

		jsl	buff_to_cache		; copy data to the cache
c2_no_cache
		bra	c2_no_purge		; and continue with transaction

		eject
*****************************************************************
*
* The following routine is used to increment the block address
* in preperation for the next I/O transaction. Then the transfer
* count is compared to the request count with the carry set as a
* result of the compare.
*
* ENTRY:        A Reg = Unspecified
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Unspecified
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:         A Reg = Unspecified
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Same as entry
*             Dir Reg = GS/OS Direct Page
*               P Reg = 16 bit 'm' & 'x'
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ 1  0 if transfer count ³ request count
*                       ¥ ¥ 0 0 0 ¥ ¥ 0  0 if transfer count < request count
*
*****************************************************************
adjust_block
		longa	on
		longi	on

		clc				; update transfer count
		lda	<drvr_blk_size
		adc	<drvr_tran_cnt
		sta	<drvr_tran_cnt
		bcc	no_tran_carry
		inc	<drvr_tran_cnt+2
no_tran_carry
		inc	<drvr_blk_num		; point at next block
		bne	no_blk_carry
		inc	<drvr_blk_num+2
no_blk_carry
		lda	<drvr_tran_cnt+2
		cmp	<drvr_req_cnt+2		; compare MSB trans to req
		bcc	tran_req_done
		lda	<drvr_tran_cnt		; compare LSB trans to req
		cmp	<drvr_req_cnt
tran_req_done
		rts				; carry set if I/O transaction done

		eject
*****************************************************************
*
* This routine is used to calculate the number of contiguous
* blocks to be read from the device.  An error will be
* returned if the request count is zero or is not an
* integral multiple of the block size.
*
* ENTRY:        A Reg = Unspecified
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Unspecified
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:         A Reg = Error code or unspecified
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Same as entry
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ 0  0 if no error
*                       ¥ ¥ 0 0 0 ¥ ¥ 1  0 if error
*
*****************************************************************
calc_n_blk
		longa	on
		longi	on
		
		lda	#$0000
		pha			; space for remainder
		pha
		pha			; space for quotient
		pha
		pei	<drvr_req_cnt+2	; numerator
		pei	<drvr_req_cnt
		pea	$0000		; denominator
		pei	<drvr_blk_size
		_longdivide
		ldx	#drvr_bad_parm	; bad parameter error
		pla			; number of blocks to read
		sta	>block_cnt
		pla
		sta	>block_cnt+2
		pla			; remainder count
		ora	1,s
		sta	1,s
		pla
		bcs	req_error	; if tool returned error (div by 0?)
		beq	no_req_error
		sec
req_error
		txa			; restore error code
no_req_error
		rts

		eject
*****************************************************************
*
* The following routine updates the buffer pointer after a
* block read.
*
* ENTRY:        A Reg = Error code from device
*               X Reg = Transfer Count
*               Y Reg = Unspecified
*               B Reg = Unspecified
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:         A Reg = Unchanged
*               X Reg = Unchanged
*               Y Reg = Unchanged
*               B Reg = Unchanged
*             Dir Reg = Unchanged
*               P Reg = N V M X D I Z C  E
*                           0 0 0        0
*                       x x       x x x     PRESERVED
*
*****************************************************************
adj_buf_ptr
		longa	on
		longi	on
		
		php
		pha
		clc			; adjust buffer pointer
		lda	<drvr_blk_size
		adc	<drvr_buf_ptr
		sta	<drvr_buf_ptr
		lda	#$0000
		adc	<drvr_buf_ptr+2
		sta	<drvr_buf_ptr+2
		pla
		plp
		rts

		eject
*****************************************************************
*
* The following routine sets up location FW_ADDR to point at
* the SmartPort entry point prior to executing a call to the
* midpoint entry within the bank 0 dispatcher.
*
* ENTRY:        A Reg = Unspecified
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Unspecified
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:         A Reg = Unchanged
*               X Reg = Unchanged
*               Y Reg = Unchanged
*               B Reg = Unchanged
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
setup_fwaddr
		longa	on
		longi	on
		
		pha
		phy
		ldy	#slot_num	; get current device slot #
		lda	[<drvr_dib_ptr],y
		and	#$0007		; limit to internal slot ref
		xba
		ora	#$C0FF		; now have $CnFF
		sta	<fw_addr
		stz	<fw_addr+2
		sep	#$20		; 8 bit 'm'
		longa	off
		lda	[<fw_addr]	; ($CnFF)
		clc
		adc	#$03
		sta	<fw_addr	; $Cn00 + ($CnFF) + 3
		rep	#$20		; 16 bit 'm'
		ply
		pla
		rts

		eject
*****************************************************************
*
* The following routine issues a status call to any class
* device to check for disk switched or offline.
*
* ENTRY:        A Reg = Unspecified
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Unspecified
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:         A Reg = Condition code
*               X Reg = Unchanged
*               Y Reg = Unchanged
*               B Reg = Unchanged
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ 0  0 if no error
*                       ¥ ¥ 0 0 0 ¥ ¥ 1  0 if error
*
*****************************************************************
get_dev_stat
		longa	on
		longi	on

		phx
		phy
		ldy	#drvr_class
		lda	[<drvr_dib_ptr],y
		and	#$003F		; is this a class 0 device?
		beq	c0_stat_entry	; yes
		dec	a		; is this a class 1 device?
		beq	c0_stat_entry	; yes
		phb			
		pea	$0000		; data bank must point at parameter list
		plb
		plb

		ldy	#unit_num	; insert the unit number into the parameter lists
		lda	[<drvr_dib_ptr],y
		
		sep	#$20		; 8 bit 'm'
		longa	off
		
		sta	>esp_stat3+6
		
		rep	#$20		; 16 bit 'm'
		longa	on
		
		jmp	c2_stat_entry	; then must be a class 2 device

		eject
*****************************************************************
*
* The following routine issues a status call to a class 0 or 1
* device to check for disk switched.  If the device is a UniDISK3.5,
* then a condition code will be returned from the device.  All
* other class 1 devices indicate disk switched through bit 0 of
* the general status byte returned on a device status call.
*
* ENTRY:        A Reg = Unspecified
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Unspecified
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:         A Reg = Condition code
*               X Reg = Unchanged
*               Y Reg = Unchanged
*               B Reg = Unchanged
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ 0  0 if no error
*                       ¥ ¥ 0 0 0 ¥ ¥ 1  0 if error
*
*****************************************************************
c0_dev_stat
		longa	on
		longi	on

		phx
		phy
c0_stat_entry
		ldy	#drvr_class
		lda	[<drvr_dib_ptr],y
		and	#$003F		; is this a class 0 device?
		beq	c0_disksw_stat	; yes, can only check for offline
		ldy	#unit_num
		lda	[<drvr_dib_ptr],y
		pha
		jsr	setup_sp_stat	; setup bank0 core for status call
		longa	off
		pla			; need device unit number in parmlist
		ldx	#param_list_ptr	; pointer to parameter list
		sta	>1,x		; set unit number in parameter list
		pla			; clean up stack
		rep	#$20		; 16 bit 'm'
		longa	on
		jsr	setup_fwaddr	; fw_addr = $Cn00 + ($CnFF) + 3
		jsl	b0_core		; execute device status call
		tax
		bcs	c0_dsw_done
*  ___ ___ ___ ___ ___ ___ ___ ___
* |   |   |   |   |   |   |   |   |
* | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 | SmartPort General Status Byte
* |___|___|___|___|___|___|___|___|
*   |   |   |   |   |   |   |   |__ 1 = Disk switched
*   |   |   |   |   |   |   |______ 1 = Device currently interrupting
*   |   |   |   |   |   |__________ 1 = Write protect
*   |   |   |   |   |______________ 1 = Format allowed
*   |   |   |   |__________________ 1 = Device online or Disk in drive
*   |   |   |______________________ 1 = Read allowed
*   |   |__________________________ 1 = Write allowed
*   |______________________________ 1 = Block device
*
		ldx	#drvr_disk_sw	; assume it's switched
		lda	>sys_buffer
		eor	#$0010		; change online to offline
		and	#$0011		; offline or disksw?
		lsr	a
		bcs	c0_dsw_done	; assumed correct
		sec
		php
		ldx	#drvr_off_line	; assume it's offline
		plp
		bne	c0_dsw_done	; assumed correct
		ldx	#no_error
		clc
c0_dsw_done 
		txa			; restore error code
		ply
		plx
		rts
*
* If a class 0 block device, can only determine online from
* a status call.  This will be mapped into a diskswitched
* error resulting in flushing the volume from the cache and
* a subsequent swap_out call.  Note that a status call cannot
* be issued to a ProFILE at this time due to firmware problems.
* Device specific code may be added later to handle the ProFILE.
*
c0_disksw_stat
		ldx	#no_error	; assume it's a ProFILE
		clc
		ldy	#dev_id_num	; is it a ProFILE?
		lda	[<drvr_dib_ptr],y
		dec	a
		beq	c0_dsw_done	; yes, it's ProFILE 5meg
		dec	a
		beq	c0_dsw_done	; yes, it's ProFILE 10meg
*
* It's not a ProFILE so set up the bank 0 dispatcher to issue a
* status call to the ProDOS interface to determine device status.
*
		lda	>call_list_ptr	; insert 5 dispatcher 'NOP's
		tax
		lda	#$EAEA
		sta	>0,x
		sta	>2,x
		sta	>3,x
		ldy	#slot_num	; set up fw_addr = $Cn00 + ($CnFF)
		lda	[<drvr_dib_ptr],y
		and	#$0007
		xba
		ora	#$C0FF
		sta	<fw_addr
		stz	<fw_addr+2	; fw_addr = $00Cn00 + ($00CnFF)
		sep	#$20		; 8 bit 'm'
		longa	off
		lda	[<fw_addr]
		sta	<fw_addr
*
* Need to setup absolute direct page for dispatch to ProDOS
* block device status call.  Only the slot/unit parameter
* needs to be constructed as follows:
*  ___ ___ ___ ___ ___ ___ ___ ___
* |   |   |   |   |   |   |   |   |
* | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 | = PUNIT
* |___|___|___|___|___|___|___|___|
*   |   |   |   |   |___|___|___|____ UNDEFINED
*   |   |___|___|____________________ SLOT NUMBER
*   |________________________________ UNIT NUMBER
*
		ldy	#unit_num	; get unit number (v0.06 a02)
		lda	[<drvr_dib_ptr],y
		dec	a
		lsr	a		; unit to carry
		php
		lda	<fw_addr+1	; get $Cn
		ror	a
		ror	a
		ror	a
		ror	a
		plp
		ror	a		; now have slot/unit
		xba
		lda	#$00
		rep	#$20		; 16 bit 'm'
		longa	on
		sta	>pcmd		; set up for dispatch
		jsl	b0_core		; and execute status call
		tax			; return device status
		bra	c0_dsw_done

		eject
*****************************************************************
*
* The following routine issues a status call to a class 2 device
* to check for disk switched.  Class 2 devices indicate disk
* switched through bit 0 of the general status byte returned
* on a device status call.
*
* ENTRY:        A Reg = Unspecified
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = K
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:         A Reg = Condition code
*               X Reg = Unchanged
*               Y Reg = Unchanged
*               B Reg = Unchanged
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ 0  0 if no error
*                       ¥ ¥ 0 0 0 ¥ ¥ 1  0 if error
*
*****************************************************************
c2_dev_stat
		longa	on
		longi	on

		phx
		phy
		phb

		pea	$0000			; point data bank at call list bank
		plb
		plb

		ldy	#unit_num		; insert the unit number into the parameter lists
		lda	[<drvr_dib_ptr],y
		
		sep	#$20			; 8 bit 'm'
		longa	off
		
		sta	>sp_stat3+4
		sta	>esp_stat3+6
		
		rep	#$20			; 16 bit 'm'
		longa	on
		
		ldy	#drvr_class		; is this SmartPort or extended SmartPort?
		lda	[<drvr_dib_ptr],y
		dec	a
		bne	c2_stat_entry		; it's extended SmartPort

		ldx	#sp_stat3		; X = pointer to call list
		lda	<drvr_dev_num		; execute SmartPort call
		jsl	to_b0_core
		bra	sp_stat_check
		
c2_stat_entry
		ldx	#esp_stat3		; X = pointer to call list
		lda	<drvr_dev_num		; execute extended SmartPort call
		jsl	to_b0_core
		
		eject
*
*  ___ ___ ___ ___ ___ ___ ___ ___
* |   |   |   |   |   |   |   |   |
* | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 | SmartPort General Status Byte
* |___|___|___|___|___|___|___|___|
*   |   |   |   |   |   |   |   |__ 1 = Disk switched
*   |   |   |   |   |   |   |______ 1 = Device currently interrupting
*   |   |   |   |   |   |__________ 1 = Write protect
*   |   |   |   |   |______________ 1 = Format allowed
*   |   |   |   |__________________ 1 = Device online or Disk in drive
*   |   |   |______________________ 1 = Read allowed
*   |   |__________________________ 1 = Write allowed
*   |______________________________ 1 = Block device
*
sp_stat_check
		plb
		ldx	#$0000			; assume no error
		lda	>sys_buffer		; get general status byte
		ror	a			; bit 0 = DISKSW
		bcs	c2_dsw_stat		; if disk switch occured
		and	#$0008			; is device off line?
		bne	c2_dsw_done		; no
c2_dsw_stat
		sec
		ldx	#drvr_disk_sw		; else report error
c2_dsw_done
		txa				; restore error code
		ply
		plx
		rts

		eject
****************************************************************
*
* This routine is used to write to either a character or a
* block device. Note that a deferred write mode has been
* implemented for block devices.  If a block has a cache
* priority of =>$8000 then the block will only be written
* to the device if a cached block is not available for the
* data.  If a cached block is available then the data will
* be written to the cache and NOT to the device.
*
* ENTRY:        A Reg = Unspecified
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Current Program Bank
*             Dir Reg = GSOS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:         A Reg = Error code if carry set, else unspecified
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Current Program Bank
*             Dir Reg = GSOS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
****************************************************************
g_write
		longa	on
		longi	on

		ldy	#dev_char	; check device for write allowed
		lda	[<drvr_dib_ptr],y
		tax
		and	#$0040
		bne	write_allowed
		lda	#invalid_access	; write not allowed erruh
		sec
		rts
write_allowed
*
* Determine if the device is a character or block device.
*
		txa
		xba
		rol	a
		bcc	char_write	; it's a character device
		jmp	block_write	; it's a block device

		eject
*
* The following routine is executed only if the write call
* is directed toward a character device.
*
char_write
		lda	<drvr_blk_size		; is it a character read?
		beq	char_write_ok		; yep
		lda	#not_block_dev		; not a block device error
		sec
		rts

char_write_ok
		ldy	#open_flag		; is device open?
		lda	[<drvr_dib_ptr],y
		bne	device_is_open		; yes
		lda	#drvr_not_open
		sec
		rts
*
* The device is open.  Only single character I/O transactions
* are possible with class 0 devices.  Need to know if this is
* a class 0 device.
*
device_is_open
		lda	<drvr_req_cnt		; any request?
		ora	<drvr_req_cnt+2
		bne	valid_req_c0w
		jmp	return_no_err

valid_req_c0w
		ldy	#drvr_class		; is this a class 0 character device?
		lda	[<drvr_dib_ptr],y
		and	#$000F
		bne	not_cl0_char		; no
		ldy	#$0000			; buffer index
cl0_char_loop
		sep	#$20			; 8 bit 'm'
		longa	off
		lda	[<drvr_buf_ptr],y
		rep	#$20			; 16 bit 'm'
		longa	on
		phy
		jsl	bank0_dsptch		; read character from device
		ply
		inc	<drvr_tran_cnt		; bump transfer count
		bne	cl0_tran_bump
		inc	<drvr_tran_cnt+2
cl0_tran_bump
		iny				; next buffer location
		bne	cl0_buf_loc
		inc	<drvr_buf_ptr+2
cl0_buf_loc
		bcs	cl0_char_err		; if device returned an error
		jsr	chk_request_cnt		; was requested count exhausted?
		bcs	cl0_char_loop
		rts

cl0_char_err
		xba				; place error code in low byte
		and	#$00FF			; clear high byte
		rts				; and back to dispatcher

		eject
*
* Class 1 devices must be double buffered if the buffer address
* is not in bank 0.  Need to know if this is a class 1 device.
*
not_cl0_char
		dec	a
		bne	not_cl1_char		; it must be a class 2 device
cl1_char_loop
		sec				; calculate remaining request count
		lda	<drvr_req_cnt
		sbc	<drvr_tran_cnt
		tay
		lda	<drvr_req_cnt+2
		sbc	<drvr_tran_cnt+2
		bne	cl1_req_max		; remainder exceeds max packet
		cpy	#768
		bge	cl1_req_max		; remainder exceeds max packet

		sty	<drvr_blk_size		; set remainder as size
		bra	cl1_size_ok
cl1_req_max
		lda	#767			; set request = max packet size
		sta	<drvr_blk_size
cl1_size_ok
		lda	<drvr_buf_ptr		; setup for double buffering
		sta	<buf_ptr
		lda	<drvr_buf_ptr+2
		sta	<buf_ptr+2
		lda	#sys_buffer
		sta	<drvr_buf_ptr
		stz	<drvr_buf_ptr+2
		jsl	buf_to_system		; copy data from ultimate destination
		jsl	bank0_dsptch		; read character from device
		bcs	cl1_err_exit
		jsr	chk_request_cnt		; was requested count exhausted?
		bcs	cl1_char_loop
cl1_err_exit
		stz	<drvr_blk_size		; $0000 for character devices
		rts

		eject
*
* Class 2 devices require no double buffering.
*
not_cl1_char
cl2_char_loop
		sec				; calculate remaining request count
		lda	<drvr_req_cnt
		sbc	<drvr_tran_cnt
		tay
		lda	<drvr_req_cnt+2
		sbc	<drvr_tran_cnt+2
		bne	cl2_req_max		; remainder exceeds max packet
		cpy	#768
		bge	cl2_req_max		; remainder exceeds max packet
		sty	<drvr_blk_size		; set remainder as size
		bra	cl2_size_ok
cl2_req_max
		lda	#767			; set request = max packet size
		sta	<drvr_blk_size
cl2_size_ok
		jsl	bank0_dsptch		; read character from device
		bcs	c2_error_exit
		lda	<drvr_tran_cnt		; was requested count exhausted?
		jsr	chk_request_cnt		; was requested count exhausted?
		bcs	cl2_char_loop
c2_error_exit
		stz	<drvr_blk_size		; $0000 for character devices
		rts

		eject
*
* The following routine is executed only if the write call is
* directed toward a block device.  If the request count or initial
* block number is invalid, return with the appropriate error.
*
block_write
		jsr	calc_n_blk	; check request_cnt = block_size * n
		bcc	bwr_req_cnt_ok	; ok if integral multiple
		rts			; else return with error
bwr_req_cnt_ok
		lda	<drvr_req_cnt	; any request?
		ora	<drvr_req_cnt+2
		bne	valid_req_b0w
		jmp	return_no_err

*
* Generated drivers maintain a cache priority mask in
* the GDIB to prevent RAM or ROM disks from being
* cached.  Set the current cache priority based on
* the mask.
*
valid_req_b0w
		ldy	#cache_mask
		lda	[<drvr_dib_ptr],y
		and	<drvr_cache
		sta	<drvr_cache
*
* A different algorithm is executed for class 2 devices.
* Determine what class device is being used before
* executing the block write.
*
		ldy	#drvr_class
		lda	[<drvr_dib_ptr],y
		cmp	#$0002
		bne	block_wr_01	; if it's a class 0 or 1 device
		jmp	block_wr_2	; only if it's a class 2 device

		eject
*
* The following routine is executed for write calls directed
* toward class 0 or class 1 block devices.
*
block_wr_01
		clc			; specify block search
		jsl	cache_find_blk	; is block in cache?
		bcc	c01_wr_cache	; yes, write to cache
		lda	<drvr_cache	; should block be cached?
		beq	c01_wr_dev	; no
		jsl	cache_add_blk	; else request a block
		bcs	c01_wr_dev	; if block couldn't be allocated
c01_wr_cache
		jsl	buff_to_cache	; write block to cache
		clc			; no error in case deferred mode
		bit	<drvr_cache	; deferred mode?
		bpl	c01_wr_dev	; no
		jsr	adj_buf_ptr	; set next buffer address
		bra	wr01_done
c01_wr_dev
		lda	<drvr_buf_ptr+2	; is buffer in bank 0?
		bne	dbl_buffer	; no, must double buffer data
		jsl	bank0_dsptch	; write data to device from buffer
		jsr	adj_buf_ptr	; set next buffer address
		bra	wr01_done
dbl_buffer
		jsl	buf_to_system
		lda	<drvr_buf_ptr	; save destination pointer
		sta	<buf_ptr
		lda	<drvr_buf_ptr+2
		sta	<buf_ptr+2
		lda	#sys_buffer	; new destination is system buffer
		sta	<drvr_buf_ptr
		stz	<drvr_buf_ptr+2
		jsl	bank0_dsptch	; read block into system buffer
		php			; save device error flag
		pha			; save device error code
		clc			; calculate next destination address
		lda	<buf_ptr
		adc	<drvr_blk_size
		sta	<drvr_buf_ptr
		lda	<buf_ptr+2
		adc	#$0000
		sta	<drvr_buf_ptr+2
		pla			; restore device error code
		plp			; restore device error flag
wr01_done
		bcs	wr_error	; exit if an error occured!
		jsr	adjust_block	; else, prepare for next block
		bcc	block_wr_01	; more blocks to write
		jmp	return_no_err
wr_error
		rts

		eject
*
* The following routine is executed for write calls
* directed toward class 2 block devices.
*
block_wr_2
		clc			; specify block search
		jsl	cache_find_blk	; is the block in the cache?
		bcc	c2_wr_cache	; yes, xfer from buf to cache
		lda	<drvr_cache	; add to cache?
		beq	c2_wr_dev	; no
		jsl	cache_add_blk	; else add block to cache
		bcs	c2_wr_dev	; if block was not allocated
c2_wr_cache
		jsl	buff_to_cache	; yes, read block from cache to buffer
		bit	<drvr_cache	; deferred mode?
		bmi	c2_wr_done	; yes, dont xfer to device
c2_wr_dev
		jsl	bank0_dsptch	; write through to the device
		bcs	wr_error	; if device returned error
c2_wr_done
		jsr	adj_buf_ptr	; set next buffer address
		jsr	adjust_block	; set next block address
		bcc	block_wr_2	; if more blocks to write
		jmp	return_no_err

		eject
****************************************************************
*
* This routine is used to close a character device driver.
*
* ENTRY:        A Reg = Unspecified
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Current Program Bank
*             Dir Reg = GSOS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:         A Reg = Error code if carry set, else unspecified
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Current Program Bank
*             Dir Reg = GSOS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
****************************************************************
g_close
		longa	on
		longi	on
		
		jsr	check_if_char	; is the device a character device
		bne	g_close_done	; no, it's a block device
		ldy	#open_flag	; is the device already closed?
		lda	[<drvr_dib_ptr],y
		bpl	g_prior_close	; yes, don't need to do it again
		lda	#$0000		; else set device closed
		sta	[<drvr_dib_ptr],y
		ldy	#drvr_class	; is this a class 0 device
		lda	[<drvr_dib_ptr],y
		and	#$000F
		beq	g_close_done	; yes, dont issue a device call
		jsl	bank0_dsptch	; and issue device level close
		rts
g_close_done
		clc
		rts

g_prior_close				; ; Driver error, already closed
		lda	#drvr_not_open
		sec
		rts

		eject
****************************************************************
*
* This routine is used to startup a generated device driver.
* This routine will only be called by the device dispatcher
* when the device list is being constructed.
*
* Status calls include: $0000 Return Device Status
*                       $0001 Return Control Parameters
*                       $0002 Return Wait / No Wait Status
*                       $0003 Return Format Options
*                       $0004 Return Partition Map
*
* ENTRY:        A Reg = Unspecified
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Current Program Bank
*             Dir Reg = GSOS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:         A Reg = Error code if carry set, else unspecified
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Current Program Bank
*             Dir Reg = GSOS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
****************************************************************
g_status
		longa	on
		longi	on
*
* Need to verify that the status code specifies a
* legal status request.
*
		lda	<drvr_stat_code		; is this a legal status request?
		cmp	#$0005
		blt	legal_status		; yes
		lda	#drvr_bad_code		; else return 'BAD CODE' error
		rts
*
* It's a legal status.  Dispatch to the appropriate status routine.
*
legal_status
		asl	a
		tax
		jmp	(status_dispatch,x)	; return through appropriate handler

		eject
*****************************************************************
*
* Class 0 generated drivers do not support any meaningful device
* status call.  A device status word will be generated based on
* information in the DIB for class 0 devices.  Class 1 and 2 devices
* support a device status call.  A SmartPort status 0 call will be
* issued to these devices and the general SmartPort status byte will
* be used to generate a device status word.  Character device status
* is based on the open flag maintained in the GDIB.
*
* Status List:  Word    Device Status
*               Long    Block Count
*
*****************************************************************
dev_status
		longa	on
		longi	on

		ldx	#drvr_bad_parm		; assume invalid request count
		lda	<drvr_req_cnt+2		; request must be for 6 bytes!
		bne	to_stat_err
chk_lo_req
		lda	<drvr_req_cnt
		cmp	#$0002			; request > or = to minimum?
		blt	to_stat_err		; no
		cmp	#$0007			; request < or = to maximum?
		blt	ds_req_cnt_ok		; yes
to_stat_err
		jmp	status_err

ds_req_cnt_ok
		jsr	check_if_char		; is the device a character device?
		bne	block_dev_s		; no, it's a block device
*
* Character device status is returned as follows:
*  ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___
* |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |
* | F | E | D | C | B | A | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 |
* |___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |__ OPEN
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |______ INTERRUPT
*   |   |   |   |   |   |   |   |   |   |   |   |   |___|__________ 0 RESERVED
*   |   |   |   |   |   |   |   |   |   |   |   |__________________ ONLINE
*   |   |   |   |   |   |   |   |   |   |   |______________________ BUFFER FULL
*   |   |   |   |___|___|___|___|___|___|__________________________ 0 RESERVED
*   |   |   |______________________________________________________ BACKGROUND BUSY
*   |   |__________________________________________________________ LINKED
*   |______________________________________________________________ 0 RESERVED
*
		lda	#%0000000000010000	; preinitialize device status
		sta	[<drvr_slist_ptr]
		
		lda	#$0001			; Pascal1.1 status is request for input ready
		jsl	bank0_dsptch
		bcc	have_c_stat		; if no character available
		
		lda	[<drvr_slist_ptr]	; indicate buffer not empty
		ora	#%0000000000100000
		sta	[<drvr_slist_ptr]
have_c_stat
		ldy	#open_flag		; driver must have a GDIB
		lda	[<drvr_dib_ptr],y
		and	#%0000000000000001
		ora	[<drvr_slist_ptr]	; insert open/closed status bit
		sta	[<drvr_slist_ptr]

		sep	#$20			; 8 bit 'm'
		longa	off

		ldy	#$0002			; block count is zero for character
		lda	#$00
c_stat_loop
		cpy	<drvr_req_cnt		; xfer data to status list
		beq	c_stat_done
		sta	[<drvr_slist_ptr],y
		iny
		bra	c_stat_loop
c_stat_done

		rep	#$20			; 16 bit 'b'
		longa	on

dev_stat_xfer
		lda	<drvr_req_cnt		; set transfer count
		sta	<drvr_tran_cnt
		jmp	stat_done

		eject
*
* Block device status is returned as follows:
*  ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___
* |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |
* | F | E | D | C | B | A | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 |
* |___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |__ DISK SW
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |______ INTERRUPT
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |__________ WRITE PROT
*   |   |   |   |   |   |   |   |   |   |   |   |   |______________ 0 RESERVED
*   |   |   |   |   |   |   |   |   |   |   |   |__________________ ONLINE
*   |   |   |   |___|___|___|___|___|___|__________________________ 0 RESERVED
*   |   |   |______________________________________________________ BACKGROUND BUSY
*   |   |__________________________________________________________ LINKED
*   |______________________________________________________________ BLOCK COUNT UNCERTAIN
*
block_dev_s
		ldy	#drvr_class		; is this a class 0 device?
		lda	[<drvr_dib_ptr],y
		and	#$000F
		bne	not_class_0		; no
*
* Class 0 device's can only return wrprot or offline as an
* error code.  Issue a status call and check the error status
* in order to generate a general status word.  Then set the
* block count based on the DIB contents.
*
		jsl	bank0_dsptch		; call ProDOS block device
		tay
		lda	#$0010			; assume media online
		bcc	set_c0_dstat		; assumed correct
		lda	#$0014			; else, assume write protected
		cpy	#drvr_wr_prot		; is device write protected?
		beq	set_c0_dstat		; yes
		lda	#$0000			; else it's off line
set_c0_dstat 
		sta	[<drvr_slist_ptr]
		sta	>sys_buffer
		
		ldy	#drvr_class		; is this a class 0 device?
		lda	[<drvr_dib_ptr],y
		beq	to_c0_blk_stat		; yes, DIB block count is not dynamic
		
		ldy	#dev_char		; is this a removable media device?
		lda	[<drvr_dib_ptr],y
		and	#$0004
		beq	c0_blk_stat		; no, DIB block count is not dynamic
		
		ldy	#blk_cnt		; set block count in DIB
		txa
		sta	[<drvr_dib_ptr],y
		iny
		iny
		lda	#$0000
		sta	[<drvr_dib_ptr],y
to_c0_blk_stat
		bra	c0_blk_stat
*
* Class 1 and 2 devices may support dynamic block counts based
* on the media type currently inserted.  Issue a call to the
* device to determine the size and update the DIB prior to
* returning the status and block count.
*
not_class_0
		ldy	#blk_cnt		; assume that an error will occur
		lda	[<drvr_dib_ptr],y
		sta	>sys_buffer+1
		iny
		iny
		lda	[<drvr_dib_ptr],y
		sta	>sys_buffer+3
		jsl	bank0_dsptch		; call SmartPort device
		tax				; save error status
		bcc	no_c1_err		; don't check error if wasnt one
		and	#$00FF
		cmp	#drvr_disk_sw		; was there a disk switched error?
		beq	set_dsw_off		; yes
		cmp	#drvr_off_line		; was the device off line?
		beq	no_c1_err		; yes
		cmp	#drvr_wr_prot		; was the device write protected?
		beq	no_c1_err		; yes
status_err 
		sec				; assume error and set error flag
		txa				; restore error code
		bne	stat_err		; assumed correct
		clc
stat_err
		rts

set_dsw_off
		sep	#$20			; 8 bit 'm'
		longa	off

		lda	#$01			; set media switched & offline
		sta	>sys_buffer		; fake diskswitched status

		rep	#$20			; 16 bit 'm'
		longa	on
		bra	no_c1_err

		eject
*
* The SmartPort general status byte returned from the SmartPort
* status call is as follows:
*  ___ ___ ___ ___ ___ ___ ___ ___
* |   |   |   |   |   |   |   |   |
* | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 |     SmartPort general status byte
* |___|___|___|___|___|___|___|___|
*   |   |   |   |   |   |   |   |___    1 = Disk Switched or Open
*   |   |   |   |   |   |   |_______    1 = Interrupt
*   |   |   |   |   |   |___________    1 = Write Protect or Data Available
*   |   |   |   |   |_______________    1 = Format Allowed
*   |   |   |   |___________________    1 = Online
*   |   |   |_______________________    1 = Read Allowed
*   |   |___________________________    1 = Write Allowed
*   |_______________________________    1 = Block Device, 0 = Character Device
*
* Device manager D_INFO call has DRVR_SLIST_PTR set to the

* SYS_BUFFER.  Updating the status word will write over the
* block count so update the block count in the DIB prior to
* returning the device status.
*
no_c1_err
		ldy	#dev_char		; is this a removable media device?
		lda	[<drvr_dib_ptr],y
		and	#$0004
		beq	c1_static		; yes, DIB block count is not dynamic
		
		lda	>sys_buffer		; is device online?
		and	#$0010
		beq	c1_static		; no, dynamic DIB block count cannot be determined
		
		ldy	#blk_cnt		; adjust block count in DIB
		lda	>sys_buffer+1
		sta	[<drvr_dib_ptr],y
		iny
		iny
		lda	>sys_buffer+3
		and	#$00FF
		sta	[<drvr_dib_ptr],y
*
* Now it is safe to return the general status word.
*
c1_static
		lda	>sys_buffer		; get SmartPort general status byte
		and	#$0017			; mask for GS/OS status
		sta	>sys_buffer
*
* Obtain the block count from the DIB and stuff it into the
* caller's status list.
*
c0_blk_stat
		ldy	#blk_cnt		; get block count in DIB
		lda	[<drvr_dib_ptr],y
		sta	>sys_buffer+2
		tax
		iny
		iny
		lda	[<drvr_dib_ptr],y
		sta	>sys_buffer+4

*
* Copy status information to status list as specified by
* the current request count.
*
get_blk_stat
		sep	#$20			; 8 bit 'm'
		longa	off

		ldy	#$0000
		tyx
b_stat_loop 
		lda	>sys_buffer,x
		sta	[<drvr_slist_ptr],y
		inx
		iny
		cpy	<drvr_req_cnt
		bne	b_stat_loop

		rep	#$20			; 16 bit 'm'
		longa	on
*
* Check for a disk switched or offline condition.  If either of these
* conditions exist then a disk switch must be posted to the system service
* call tables for cache/vcr management.
*
		lda	[<drvr_slist_ptr]	; get current status
		eor	#$0010			; is device offline or disk switched?
		and	#$0011
		beq	dev_stat_xfer0		; no
		jsl	set_disksw		; else, swapout and del_cache_vol
dev_stat_xfer0
		lda	<drvr_blk_size		; is this a standard block?
		cmp	#512
		bne	std_blk_ok		; yes
		lda	[<drvr_slist_ptr]
		ora	#$8000			; set unvalidated block count bit
		sta	[<drvr_slist_ptr]
std_blk_ok
		jmp	dev_stat_xfer

		eject
*****************************************************************
*
* Generated drivers have no configuration parameter list.
*
* Status List:  Word    Length of configuration parameter list
*               Data    Configuration parameter list
*
*****************************************************************
get_ctrl_parm
		longa	on
		longi	on
				
		eject
*****************************************************************
*
* Generated drivers only operate in wait moded since there is
* no way to find out if data is available from a device.
*
* Status List:  Word    Wait Mode
*
*****************************************************************
get_wait_stat
		longa	on
		longi	on
		
		ldx	#drvr_bad_parm		; assume that the request count is invalid
		lda	<drvr_req_cnt+2		; is the request count = $00000002?
		beq	get_wait		; yes, do the call
x_stat_err
		jmp	status_err		; else exit with error
get_wait
		lda	<drvr_req_cnt		; was any data requested?
		beq	nil_req			; no, no error & exit
		cmp	#$0002			; were the correct number of bytes requested?
		bne	x_stat_err		; no
give_em_squat
		lda	#$0000			; return NO WAIT status
		sta	[<drvr_slist_ptr]
set_tran_cnt
		lda	#$0002			; update transfer count
		sta	<drvr_tran_cnt
nil_req
		bra	stat_done
		
*****************************************************************
*
* Generated drivers do not support partitioning.  No partition map
* will be returned in the status list.
*
* Status List:  To be defined...
*
*****************************************************************
get_partition
		longa	on
		longi	on

stat_done
		lda	#$0000		; no error from this call
		clc
		rts

		eject
*****************************************************************
*
* Generated drivers have limited support of the get format options
* status call.  This call is issued directly to SmartPort devices.
* If an error results, a default options list will be returned.
* If an error is not generated, the list returned from the SmartPort
* device is passed to the caller verbatim.
*
* Status List:  Word    Entry count
*               Word    Displayed entry count
*               Word    Recommended default option
*               Word    Option that current media is formatted
* 16 byte entry:
*               Word    Refnum
*               Word    Linknum
*               Word    Flags
*               Long    Block count
*               Word    Block size
*               Word    Interleave factor
*               Word    Media size
*
*****************************************************************
get_format
		longa	on
		longi	on

*
* Character Devices and class 0 block devices do not support this call.
*
		ldy	#drvr_class
		lda	[<drvr_dib_ptr],y
		cmp	#$0002
		bne	no_options	; don't dispatch if can't get options

		ldy	#drvr_subtype	; does this device support it?
		lda	[<drvr_dib_ptr],y
		and	#$0040		; bit 6 = SuperCalls ...
		beq	no_options	; device doesnt support fmt options
		lda	#drvr_bad_parm	; assume bad request count
		ldx	<drvr_req_cnt+2	; verify request count
		bne	no_options	; if invalid request count

		sep	#$20		; 8 bit 'm'
		longa	off

		phk
		pea	$0000
		plb
		plb

		ldy	#unit_num	; install unit for device call
		lda	[<drvr_dib_ptr],y
		sta	|get_fmt_unit

		rep	#$20		; 16 bit 'm'
		longa	on

		lda	<drvr_slist_ptr
		sta	|get_fmt_slist
		lda	<drvr_slist_ptr+2
		sta	|get_fmt_slist+2
		lda	<drvr_req_cnt	; and list buffer size
		sta	|get_fmt_reqcnt

		ldx	#get_fmt_list	; execute device call
		lda	<drvr_dev_num
		jsl	to_b0_core
		plb

		bcs	no_options	; no options if call unsuccessful
		lda	<drvr_req_cnt	; else indicate buffer size
		sta	<drvr_tran_cnt

no_options
		jmp	return_no_err

		eject
*****************************************************************
*
* The following table is used to dispatch to status functions
* specified by the status code passed on GS/OS direct page.
*
*****************************************************************
status_dispatch	dc.w	dev_status
		dc.w	get_ctrl_parm
		dc.w	get_wait_stat
		dc.w	get_format
		dc.w	get_partition

		eject
****************************************************************
*
* This routine is used to startup a generated device driver.
* This routine will only be called by the device dispatcher
* when the device list is being constructed.
*
* Control call: $0000   Reset Device
*               $0001   Format Device
*               $0002   Eject Media
*               $0003   Set Control Parameters
*               $0004   Set Wait / No Wait Mode
*               $0005   Set Format Options
*               $0006   Set Partition Owner
*               $0007   Arm Signal
*               $0008   Disarm Signal
*               $0009   Set Partition Map
*       $000A - $7FFF   Reserved by Apple Computer, Inc.
*       $8000 - $FFFF   Device Specific
*
* ENTRY:        A Reg = Unspecified
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Current Program Bank
*             Dir Reg = GSOS Direct Page
*               P Reg = 16 bit 'm' & 'x' native mode
*
* EXIT:         A Reg = Error code if carry set, else unspecified
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Current Program Bank
*             Dir Reg = GSOS Direct Page
*               P Reg = 16 bit 'm' & 'x' native mode
*
****************************************************************
g_control
		longa	on
		longi	on

*
* Need to verify that the control code specifies a
* legal control request.
*
		lda	<drvr_ctrl_code		; is this a legal control request?
		cmp	#$000A
		blt	legal_control		; yes
bad_code_err
		lda	#drvr_bad_code		; else return 'BAD CODE' error
		rts
*
* It's a legal control request.  Dispatch to the appropriate control routine.
*
legal_control
		asl	a
		tax
		jmp	(ctrl_dispatch,x)	;return through appropriate handler

		eject
*****************************************************************
*
* This routine supports the device reset call.  Note that class
* 0 devices cannot be reset.  Also, of class 1 devices, the UniDisk3.5
* requires special attention.  The reset call does not work properly
* on this device.  Instead, an execute call will be issued to this
* device with an address of $E7D9.  This address forces all original
* hooks to be restored within the UniDisk3.5.  This entry point is
* supported on all versions of the UniDisk3.5 firmware.  All other
* class 1 & 2 devices will receive a RESET call.
*
* Control List: None
*
*****************************************************************
dev_reset
		longa	on
		longi	on

		ldy	#drvr_class		; is this a class 0 device?
		lda	[<drvr_dib_ptr],y
		and	#$007F
		bne	maybe_unidisk
		jmp	no_can_do
maybe_unidisk
		ldy	#drvr_type		; is it a 3.5 inch disk?
		lda	[<drvr_dib_ptr],y
		dec	a
		bne	do_reset		; no, go ahead and issue a reset
		iny				; is it a UniDisk3.5
		iny
		lda	[<drvr_dib_ptr],y
		bne	do_reset		; no, go ahead and issue a reset
*
* This routine executes the RESET_HOOK routine in the UniDisk3.5 firmware.
*
		ldy	#$0004			; SmartPort command is CONTROL
		jsr	setup_sp_call		; setup for SmartPort control call
		sep	#$20			; 8 bit 'm'
		longa	off
		lda	#$05			; ctrl code = Execute
		sta	>4,x
		rep	#$20			; 16 bit 'm'
		longa	on
		lda	#$0006			; count word
		sta	>sys_buffer
		lda	#$0000			; A = $00, X = $00
		sta	>sys_buffer+2
		lda	#$2400			; Y = $00, P   $24
		sta	>sys_buffer+4
		lda	#$E7D9			; PC = $E7D9
		sta	>sys_buffer+6
		jsl	b0_core			; execute
		rts
do_reset
		jsl	bank0_dsptch		; issue reset to device
		rts

		eject
*****************************************************************
*
* This routine is used to format a block device.  If the device is not
* a block device then no action is taken and an INVALID_ACCESS error
* will be returned.
*
* Control List: None
*
*****************************************************************
dev_format
		longa	on
		longi	on

		jsr	check_if_char		; is the device a block device?
		beq	no_can_do
*
* It's a block device.  Go ahead and attempt to format the media.
*
format_blk_dev
		clc
		ldy	#dev_char		; is device format supported?
		lda	[<drvr_dib_ptr],y
		and	#$0008			; if not formattable then a=0 for no error
		beq	dont_format		; no
		jsl	bank0_dsptch		; else issue the format
dont_format
		rts

		eject
*****************************************************************
*
* Issue an eject to a block device.  If this call is issued to a
* character device then no action will be taken and no error will be returned.
*
* Control List: None
*
*****************************************************************
dev_eject
		longa	on
		longi	on

		jsr	check_if_char		; is the device a block device?
		beq	no_can_do		; no - no action required
		ldy	#drvr_class		; is it a class 0 device
		lda	[<drvr_dib_ptr],y
		beq	no_can_do		; yes - no action required
		ldy	#drvr_type		; is it a UniDisk3.5 drive?
		lda	[<drvr_dib_ptr],y
		cmp	#$0001
		beq	do_dev_eject		; yes, eject it!
		tax
		ldy	#drvr_class		; is it a class 2 device
		lda	[<drvr_dib_ptr],y
		cmp	#$0002
		bne	no_can_do		; no - no action required
		txa
		cmp	#$0005			; is it a SCSI CD-ROM?
		beq	do_scsi_eject		; yes, try to eject it
		cmp	#$0006			; is it a SCSI Tape?
		beq	do_scsi_eject		; yes, try to eject it
		cmp	#$0007			; is it a SCSI Hard Disk?
		bne	no_can_do		; no - no action required
do_scsi_eject
		ldy	#drvr_class		; is this SCSI a class 2 device?
		lda	[<drvr_dib_ptr],y
		cmp	#$0002
		bne	no_can_do		; no, don't try to eject it!
do_dev_eject
		jsl	bank0_dsptch		; else do eject
		rts

		eject
*****************************************************************
*
* This routine supports the set configuration parameter call.
* Generated drivers do not support configuration parameters.
*
* Control List: Word    Length of control list
*               Data    Configuration parameters
*
*****************************************************************
set_ctrl
		longa	on
		longi	on

		bra	no_can_do

*****************************************************************
*
* This routine supports the set wait/no wait function.  Note that only
* wait mode is supported by generated drivers.  Any attempt to set no
* wait mode for generated drivers results in a BAD REQUEST error.
*
* Control list: Word    Wait / No Wait Mode
*               Long    No Wait Mode Completion Vector
*
*****************************************************************
set_wait
		longa	on
		longi	on

		ldx	#drvr_bad_parm		; assume that the request count is invalid
		lda	<drvr_req_cnt+2
		bne	go_status_err
		lda	<drvr_req_cnt		; is the request count = $00000002?
		cmp	#$0002
		bne	go_status_err		; no, error
		lda	[<drvr_clist_ptr]	; setting wait mode on?
		bne	go_status_err		; no, can't do it
no_can_do
		lda	#$0000			; no error
		clc
		rts

go_status_err	jmp	status_err

		eject
*****************************************************************
*
* This routine sets the format options in preperation
* for a subsequent format call.  Only class 2 SmartPort
* devices support this function.  *** NOTE *** This entire
* call was rewritten for revision v0.29.
*
* Control List: Word    Length of control list
*               Word    Format reference number
*               Word    Interleave factor
*
*****************************************************************
set_fmt
		longa	on
		longi	on

		ldy	#drvr_class	; is this a class 2 device
		lda	[<drvr_dib_ptr],y
		cmp	#$0002
		bne	no_can_do	; no

		phk
		pea	$0000
		plb
		plb

		ldy	#unit_num	; set SmartPort unit #
		lda	[<drvr_dib_ptr],y
		sta	|set_fmt_unit

		lda	<drvr_clist_ptr	; set SmartPort control list ptr
		sta	|set_fmt_clist
		lda	<drvr_clist_ptr+2
		sta	|set_fmt_clist+2

		lda	<drvr_req_cnt	; set SmartPort request count
		sta	|set_fmt_req

		lda	<drvr_dev_num
		ldx	#set_fmt_list
		jsl	to_bank0_core	; call SmartPort
		plb

		bcc	set_fmt_done	; if SmartPort returned with no error
		lda	<drvr_req_cnt	; else indicate buffer size
		sta	<drvr_tran_cnt
		jmp	return_no_err

set_fmt_done
		lda	<drvr_req_cnt	; indicate buffer size
		sta	<drvr_tran_cnt
		lda	<drvr_req_cnt+2
		sta	<drvr_tran_cnt+2
		bra	no_can_do	; not supported

		eject
*****************************************************************
*
* This routine is used to support partitioned devices and will
* reassign an existing partition to the current FST.  Generated
* drivers do not support this function.
*
* Control List: Word    String Length
*               String  Partition Owner
*
*****************************************************************
set_partn
		longa	on
		longi	on

*****************************************************************
*
* This routine is used to arm a signal tied to a driver and
* envoked from an application.
*
* Control List: Word    Signal Code
*               Word    Priority
*               Long    Signal Handler Address
*
*****************************************************************
dev_arm
		longa	on
		longi	on

*****************************************************************
*
* This routine is used to disarm a signal tied to a driver and
* envoked from an application.
*
* Control List: Word    Signal Code
*
*****************************************************************
dev_disarm
		longa	on
		longi	on

*****************************************************************
*
* This routine is used to set the partition map.  This call is
* not supported by the generated driver.
*
* Control List: To be defined....
*
*****************************************************************
set_p_map
		longa	on
		longi	on

		bra	no_can_do

		eject
*****************************************************************
*
* The following table is used to dispatch to status functions
* specified by the status code passed on GS/OS direct page.
*
*****************************************************************
ctrl_dispatch	dc.w	dev_reset
		dc.w	dev_format
		dc.w	dev_eject
		dc.w	set_ctrl
		dc.w	set_wait
		dc.w	set_fmt
		dc.w	set_partn
		dc.w	dev_arm
		dc.w	dev_disarm
		dc.w	bad_code_err
		dc.w	set_p_map

		eject
****************************************************************
*
* This routine is used to write any data remaining in a drivers
* internal buffer to the device in preperation for a driver
* shutdown call.
*
* ENTRY:        A Reg = Unspecified
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Current Program Bank
*             Dir Reg = GSOS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:         A Reg = Error code if carry set, else unspecified
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Current Program Bank
*             Dir Reg = GSOS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
****************************************************************
g_flush
		longa	on
		longi	on

		clc
		rts

		eject
****************************************************************
*
* This call is issued to a device to shutdown the device prior
* to purging a driver from the device list.  The driver will
* release any system resources it has aquired as a result of
* the driver startup call or an open call.  If neccessary, a
* close call will be issued to the device.
*
* ENTRY:        A Reg = Unspecified
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Current Program Bank
*             Dir Reg = GSOS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:         A Reg = Error code if carry set, else unspecified
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Current Program Bank
*             Dir Reg = GSOS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
****************************************************************
g_shutdn
		longa	on
		longi	on

		ldy	#drvr_class		; is this a class 0 or 2 device?
		lda	[<drvr_dib_ptr],y
		and	#$0001
		beq	g_shutdn_done		; yes, dont need to dispatch
		
		ldy	#dev_id_num		; is it a LIRON?
		lda	[<drvr_dib_ptr],y
		cmp	#$0003
		beq	g_shutdn_done		; yes
not_liron
		jsl	bank0_dsptch		; execute device reset call
g_shutdn_done
		jmp	return_no_err

		eject
*****************************************************************
*
* ROUTINE:      GET_DNUM
*
* This routine searches the DIB tables for each device that
* has been installed into the device list to determine the
* device number for a given device name.  The device names
* contained in the DIB's must be in UPPER case.  The search
* will be case insensitive (bit 5 will be masked).  Note that
* devices names contained within the DIB are real ASCII, not
* Apple-ASCII (in other words, the MSB is cleared).
*
* ENTRY: via a 'JSL'
*		A Reg = Unspecified
*               X Reg = Low word pointer to P-String
*               Y Reg = High word pointer to P-String
*               B Reg = Unspecified
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT: return via an 'RTL'
*		A Reg = Error code if error, Device number if no error
*               X Reg = Low word pointer to P-String
*               Y Reg = High word pointer to P-String
*               B Reg = Unspecified
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ 0  0 if no error & A Reg = DevNum
*                       ¥ ¥ 0 0 0 ¥ ¥ 1  0 if error & A Reg = Error Code
*
*****************************************************************
		export	get_dnum	
get_dnum
		longa	on
		longi	on

		phb
		phk
		plb
		stx	<fw_addr	; set pointer for indirection
		sty	<fw_addr+2
		lda	<drvr_dev_num	; preserve last device accessed
		pha
		lda	[<drvr_dev_ptr]	; get total number of devices
		sta	<drvr_dev_num
id_dev_loop
		jsr	set_dib_ptr	; set pointer to the devices dib
		sep	#$20		; 8 bit 'm'
		longa	off
		ldy	#dev_name	; point at device name count byte
		lda	[<drvr_dib_ptr],y
		sta	|char_cnt	; char_cnt = length of name in DIB
		cmp	[<fw_addr]	; same application character count?
		beq	check_dev_name	; yes, see if it's the same name
		rep	#$20		; 16 bit 'm'
		longa	on
		dec	<drvr_dev_num	; point at next device
		bne	id_dev_loop	; $0001 is last device
cant_find_it
*
* If cant find name check for .Dn or .Dnn.  If either of these
* cases is found then convert the ascii number suffix to a hex
* number and return it as the device number.
*
		ldy	#$0001		; make sure it's a 'D'
		lda	[<fw_addr],y
		and	#$005F		; strip high bit and convert to upper
		cmp	#$0044		; uppercase 'D'
		bne	not_dot_d_n	; sorry, no .xn, only .Dn
		iny
		lda	[<fw_addr]	; get application string length
		and	#$00FF
		cmp	#$0002		; is it a .Dn format?
		beq	strip_n		; yes
		cmp	#$0003		; is it a .Dnn format?
		bne	not_dot_d_n	; no
strip_nn
		lda	[<fw_addr],y	; copy n portion of string
		sta	|dn_string
		bra	convert_it
strip_n
		lda	[<fw_addr],y	; copy n portion of string
		and	#$00FF
		ora	#$2000
		sta	|dn_string
		dey
convert_it
		pha			; space for result
		pea	dn_string>>16	; pointer to string
		pea	dn_string
		phy			; length of string
		pea	$0000		; not a signed integer
		_dec2int
		pla			; assume it was legal
		bcs	not_dot_d_n	; no
		beq	not_dot_d_n	; bad dev num!
		sta	<drvr_dev_num	; assume it's good & set device number
		jsr	set_dib_ptr	; set DIB pointer so device type can be checked
		lda	<drvr_dev_num	; but is it really a good device number?
		cmp	[<drvr_dev_ptr]
		blt	have_n		; good dev num!
		beq	have_n		; good dev num!
*
* REVISION: v0.04 a05
* If .Dnn and nn exceeds device count, return invalid_dev_num.
*
		pla			; restore device number
		jsr	leave_dib_alone
		plb
		sec			; invalid device number error
		lda	#invalid_dev_num
		rtl

leave_dib_alone
		beq	leave_dib
		
		sta	<drvr_dev_num
		jsr	set_dib_ptr
leave_dib
		rts
		
not_dot_d_n
		pla			; restore device number
		jsr	leave_dib_alone
		plb
		sec			; device not found error
		lda	#dev_not_found
		rtl
*
* Device name has same number of characters as pathname so
* check the device name against the pathname.
*
*     [<drvr_dib_ptr] = pointer to current device's DIB
*          [<fw_addr] = pointer to search name (P-String)
*               A Reg = character count
*               X Reg = Unspecified
*               Y Reg = points at device name character count in DIB
*
check_dev_name
		longa	off
		longi	on

		iny			; point at first characters
		ldx	#$0001
check_name_loop
		phy
		txy
		lda	[<fw_addr],y	; character from P-String
		and	#%01111111	; make sure MSB off
		ply
		cmp	#'a'		; $00-60 does not need case changed
		blt	case_ok
		cmp	#$7B		; $7B-7F does not need case changed
		bge	case_ok
		and	#%11011111
case_ok
		cmp	[<drvr_dib_ptr],y
		bne	wrong_dev	; name miscompared
		inx			; point at next character
		iny
		dec	|char_cnt
		bne	check_name_loop

have_n
		rep	#$20		; 16 bit 'm'
		longa	on
		
		ldy	#dev_char	; is this a character device?
		lda	[<drvr_dib_ptr],y
		xba
		and	#$8000
		eor	#$8000
		sta	>char_dev_flag	; flag = $8000 if character device or $0000 if block device

		ldx	<drvr_dev_num	; current devnum is it
		pla			; restore device number
		jsr	leave_dib_alone
		plb
		clc			; no error, A will have devnum
		txa
		rtl

wrong_dev
		longa	off
		rep	#$20		; 16 bit 'm'
		longa	on
		dec	<drvr_dev_num	; next device to check
		beq	cant_find_what	; error if no more devices
		jmp	id_dev_loop	; check if more devices
cant_find_what
		jmp	cant_find_it

char_cnt	dc.w	0		; number of characters
dn_string	dc.w	0		; string .Dn or .Dnn conversion

		export	console_string
console_string	dc.b	7		; this string is required by the INIT Manager
		dc.b	'CONSOLE'
		
		eject
****************************************************************
*
* This routine is used to set up the bank 0 core routine for
* a dispatch.  This routine assumes a GDIB is located
* contiguous to the DIB for the device being accessed.
*
* WARNING:      This call can only be called from within a
*               device driver.  Note that bank 0 of the
*               language card must be banked in.
*
* ENTRY: via a 'JSL'
*               A Reg = Undefined
*               X Reg = Pointer to dispatcher list
*               Y Reg = Unspecified
*               B Reg = Dispatcher list Bank
*             Dir Reg = Unspecified
*         DIB Pointer = Pointer to DIB containing slot & class
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:         A Reg = Error code if carry set, else unspecified
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Unchanged
*             Dir Reg = Unchanged
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
****************************************************************
		export	to_bank0_core	
to_bank0_core
		longa	on
		longi	on

		phd			; need GS/OS direct page
		phb
		pea	direct_base
		pld
		ldy	#drvr_class	; is this a class 1 or 2 device?
		lda	[<drvr_dib_ptr],y
		and	#$003F
		bne	ok_for_core	; yes, prepare for dispatch
		plb
		pld
		sec			; else return an error
		lda	#invalid_access
		rtl

ok_for_core
		jsr	go_to_core	; dispatch to SmartPort device
		plb
		pld
		rtl

		eject
*****************************************************************
*
* ENTRY: via a 'JSR'
*               A Reg = Unspecified
*               X Reg = Pointer to dispatcher list
*               Y Reg = Unspecified
*               B Reg = Unspecified
*             Dir Reg = GS/OS Direct Page
*                       DRVR_DEV_NUM specifies current device
*                       DRVR_DIB_PTR points to current DIB
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:         A Reg = Error code if carry set, else unspecified
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Unchanged
*             Dir Reg = Unchanged
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
go_to_core
		longa	on
		longi	on

		lda	|3,x		; get 3 words of dispatch list
		pha
		lda	|1,x
		pha
		lda	|0,x
		tay
		pha
		lda	>call_list_ptr	; get address where command resides
		tax
		pla			; set command
		sta	>0,x
		pla			; and parameter list pointer
		sta	>1,x
		pla
		sta	>3,x
		tya			; validate extended command
		and	#$0040
		bne	do_extended	; if extended
		lda	#$EAEA		; else patch 2 NOP's over upper pointer
		sta	>3,x
do_extended
		ldy	#slot_num	; set up for dispatch
		lda	[<drvr_dib_ptr],y
		and	#$0007
		xba
		ora	#$C000		; now have $Cn00
		sta	<fw_addr
		stz	<fw_addr+2
		ldy	#$00FF		; need #Cn00 + ($CnFF) + 3
		sep	#$20		; 8 bit 'm'
		longa	off
		lda	[<fw_addr],y
		clc
		adc	#$03
		sta	<fw_addr
		rep	#$20		; 16 bit 'm'
		longa	on
		jsl	b0_core		; dispatch to bank 0 core routines
		rts

		eject
****************************************************************
*
* This routine returns the address of the bank 0 system buffer.
*
* ENTRY: via a 'JSL'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*               B Reg = Undefined
*             Dir Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:         A Reg = Unchanged
*               X Reg = Address of bank 0 system buffer
*               Y Reg = Unchanged
*               B Reg = Unchanged
*             Dir Reg = Unchanged
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
****************************************************************
		export	get_b0_buff
get_b0_buff
		longa	on
		longi	on
		
		ldx	#sys_buffer
		clc
		rtl
		
		eject
****************************************************************
*
* This is the supervisory dispatcher.  It is responsible for
* dispatching to the correct supervisory driver.  Calls with
* a supervisory driver number of zero reference the dispatcher
* itself.
*
* Calls to supevisor driver dispatcher (driver #0):
*
*               $0000   Return driver number for driver ID
*               $0001   Set SIB Pointer
*
* Calls to supervisory drivers (driver #1 - n):
*
*               $0000   Startup
*               $0001   Shutdown
*               $0002   Call specified in parameter block
*
* ENTRY: via a 'JSL'
*               A Reg = Supervisory Driver Number
*               X Reg = Call Number
*               Y Reg = Supervisory ID
*               B Reg = Dispatcher list Bank
*             Dir Reg = Unspecified
*               P Reg = N V M X D I C Z  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT: via an 'RTL'
*               A Reg = Error code
*               X Reg = Supervisory driver number
*               Y Reg = Unspecified
*               B Reg = Unchanged
*             Dir Reg = Unchanged
*               P Reg = N V M X D I C Z  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
****************************************************************
		export	supervisory	
supervisory
		longa	on
		longi	on

		phb
		phk
		plb
		pha			; is this a driver call?
		pla
		bne	get_sib		; yes
		txa			; call number
		cmp	#$0002		; get sup or get sib?
		bge	bad_sup_call	; if illegal call
		asl	a
		tax
		jsr	(sup_table,x)
		plb
		rtl
bad_sup_call
		lda	#drvr_bad_req
		sec
		plb
		rtl

get_sib
		phx			; preserve call number
		pha			; preserve supervisor number
		jsr	set_sib_ptr	; set pointer to SIB
		pla
		plx
		bcc	have_sib
		plb
		rtl

have_sib
		pha
		ldy	#$0001		; point at supervisory entry point
		lda	[<sib_ptr]
		sta	|call_sup+1
		lda	[<sib_ptr],y
		sta	|call_sup+2
		pla
call_sup
		jsl	>$000000	; call supervisory driver
		plb
		rtl

do_sib_ptr
		tya
		bra	set_sib_ptr

sup_table	dc.w	get_sup_num
		dc.w	do_sib_ptr

		eject
*****************************************************************
*
* ENTRY: via a 'JSL'
*               A Reg = Supervisory Driver Number
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Dispatcher list Bank
*             Dir Reg = Unspecified
*               P Reg = N V M X D I C Z  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT: via an 'RTL'
*               A Reg = Error code
*               X Reg = Supervisory driver number
*               Y Reg = Unspecified
*               B Reg = Unchanged
*             Dir Reg = Unchanged
*               P Reg = N V M X D I C Z  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
****************************************************************
get_sup_num
		longa	on
		longi	on

		sty	|sup_drvr_num		; supervisory ID to search for
		lda	#$0001
sib_search
		jsr	set_sib_ptr		; point at this sib
		bcs	no_sup			; if cant find supervisor
		ldy	#$0004			; point at supervisory ID in SIB
		lda	[<sib_ptr],y
		cmp	|sup_drvr_num		; is it the ID we are searching for?
		beq	found_sup		; yes

		inx				; advance to the next driver please
		txa				; else point at next sib and
		bra	sib_search		; continue search
found_sup
		lda	#no_error
		clc
no_sup
		rts

		eject
*****************************************************************
*
* Supevisory driver number is valid.  Calculate the entry point in
* the supervisory driver list for this driver and set the SIB pointer
* prior to calling the driver.
*                ______________________  _
*               |_                    _|  |
*               |_ Supervisory Driver _|  |_ Device list entry count
*               |_        Count       _|  |
*               |______________________| _|
*               |_                    _|  |
*               |_    Pointer to      _|  |
*               |_        SIB         _|  |
*               |______________________|  |_ Supervisory driver entry
*               |_   Supervisor ID    _|  |
*               |______________________|  |
*               |_       User ID      _|  |
*               |______________________| _|
*
* ENTRY: via a 'JSL'
*               A Reg = Supervisory Driver Number
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Dispatcher list Bank
*             Dir Reg = Unspecified
*               P Reg = N V M X D I C Z  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT: via an 'RTL'
*               A Reg = Error code
*               X Reg = Supervisory driver number
*               Y Reg = Unspecified
*               B Reg = Unchanged
*             Dir Reg = Unchanged
*               P Reg = N V M X D I C Z  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
****************************************************************
set_sib_ptr
		longa	on
		longi	on

		tax			; save supervisory number
		cmp	[<sup_drvr_ptr]	; valid supervisory driver?
		blt	valid_sup
		beq	valid_sup
		lda	#dev_not_found
		sec
		rts

valid_sup
		jsr	times_8_plus_4	; Y = (A * 8) + 4
		lda	[<sup_drvr_ptr],y
		sta	<sib_ptr
		iny
		iny
		lda	[<sup_drvr_ptr],y
		sta	<sib_ptr+2
		jmp	return_no_err
		
		eject
****************************************************************
*
* This system service routine installs into the device list the
* driver whose DIB address is passed in the X and Y registers.
* Then a startup call is issued to the new device.  If the device
* returns an error it will be purged from the device list.
*
* ENTRY: via a 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*               B Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT: via an 'RTS'
*               A Reg = Unspecified
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Unchanged
*             Dir Reg = Unchanged
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
****************************************************************
		export	insert_driver	
insert_driver
		longa	on
		longi	on

		phb			; need my data bank
		phk
		plb

		lda	<post_drvr_tbl	; any drivers to install?
		ora	<post_drvr_tbl+2
		bne	do_install	; yes
		jmp	none_posted	; off to common exit

do_install
		pei	<drvr_dev_num
		pei	<drvr_call_num
		lda	#0000
		sta	>post_index

insert_loop
		lda	>post_index	; any drivers to install?
		cmp	[<post_drvr_tbl]
		beq	install_done	; no

		pha
		lda	[<drvr_dev_ptr]	; increment device count
		inc	a
		sta	[<drvr_dev_ptr]
		sta	<drvr_dev_num	; init device number for startup
		jsr	set_dev_index	; point into device list entry
*
* Calculate index into high DIB address in post driver list as follows:
* Index = (post_index * 4) + 6
* Index will be pointed at the high word of the DIB address to install.
*
		pla			; reference driver to install
		sec
		inc	a
		rol	a
		asl	a
		phy
		tay
		lda	>post_index
		inc	a
		sta	>post_index
*
* Aquire the DIB address from the post table.
*
		lda	[<post_drvr_tbl],y
		tax
		dey
		dey
		lda	[<post_drvr_tbl],y
		ply
*
* Install the DIB, disk switched status and USER ID into the device list.
*
		sta	[<drvr_dev_ptr],y
		iny
		iny
		txa
		sta	[<drvr_dev_ptr],y
		iny
		iny
		lda	#$0000		; init device disk switched
		sta	[<drvr_dev_ptr],y
		iny			; init device USER ID = $0000
		iny
		sta	[<drvr_dev_ptr],y
*
* Set DIB pointer for driver and then issue a startup call
* to the driver.
*
		jsr	set_dib_ptr	; set DIB pointer for startup
		jsr	startup_l_drvr	; startup the driver
		bcc	insert_loop	; if startup is ok
		lda	[<drvr_dev_ptr]	; next driver same place startup failed
		dec	a
		sta	[<drvr_dev_ptr]
		bra	insert_loop	; see if more devices to install

install_done
		jsr	fix_dev_handle	; set device list handle size
		plx
		stx	<drvr_call_num
		plx
		stx	<drvr_dev_num
		beq	leave_dib_3
		
		jsr	set_dib_ptr	; restore original DIB pointer
leave_dib_3
		stz	<post_drvr_tbl
		stz	<post_drvr_tbl+2

none_posted	lda	#0000
		sta	>post_index	; clear post in progress flag
		plb
		rtl

		eject
*****************************************************************
*
* Driver installation is complete.  To cleanup, set the device list
* handle size to the size of the current device list.  The number
* of entries in the device list is multiplied by eight and the
* device count is added to the result to calculate the device list
* handle size.
*
* ENTRY: via a 'JSR'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*               B Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT: via an 'RTS'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*               B Reg = Undefined
*             Dir Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
****************************************************************
fix_dev_handle
		longa	on
		longi	on

		php
		pha
		phx
		phy

		lda	[<drvr_dev_ptr]		; get number of devices
		jsr	calc_dev_size		; get device list size
		jsr	put_handle_size		; save parameters for set_handle_size
		
		ldy	|dev_list_hndl+2	; handle to set size of...
		ldx	|dev_list_hndl
		jsr	set_handle_size		; set the size of the handle
		bcc	have_d_h
		jmp	time_to_die
have_d_h
		jsr	deref_dev_list		; dereference device list handle

		ply
		plx
		pla
		plp
		rts

		eject
*****************************************************************
*
* This routine calculates the index into the file list.
*			 _________________
*	BASE		|_               _|   Filename entry #1
*			|_               _|
*			|_               _|
*			|_________________|
*				 ¥
*				 ¥
*				 ¥
*			 _________________
*	BASE+(n*48)	|_               _|   Filename entry #n
*			|_               _|
*			|_               _|
*			|_________________|
*
* The structure of each filename entry is a 48 byte structure as follows:
*
*			 _________________
*	BASE=0		|_               _|   FileType of filename entry
*			|_________________|
*	BASE+2		|_               _|   AuxType of filename entry
*			|_________________|
*	BASE+4		|_               _|   User ID of filename entry
*			|_________________|
*	BASE+6		|_               _|   Load Address of filename entry
*			|_               _|
*			|_               _|
*			|_________________|
*	BASE+10		|_               _|   32 byte filename
*			|	          |
*				 ¥
*				 ¥
*				 ¥
*			|_               _|
*			|_________________|
*	BASE+42		|_               _|   Restart Flag of filename entry
*			|_________________|
*	BASE+44		|_               _|   Base device number of filename entry
*			|_________________|
*	BASE+46		|_               _|   RESERVED for filename entry
*			|_________________|
*
* ENTRY: via a 'JSR'
*               A Reg = File list entry number
*               X Reg = Undefined
*               Y Reg = Undefined
*               B Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT: via an 'RTS'
*               A Reg = Least significant word size of file list
*               X Reg = Most significant word size of file list
*               Y Reg = Index into file list
*               B Reg = Undefined
*             Dir Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
****************************************************************
calc_file_index
		longa	on
		longi	on

		sta	|current_file		; need current file number
		tay
		beq	no_file_index
		dec	a
		and	#$000F
		asl	a
		tax
		lda	|file_list_tbl,x
		sta	|file_index
		lda	|current_file
		dec	a
		and	#$00F0
		lsr	a
		lsr	a
		lsr	a
		tax
		lda	|file_list_tbl,x
		asl	a
		asl	a
		asl	a
		asl	a
		adc	|file_index
		sta	|file_index
		
		pha
		clc
		adc	<file_list_ptr		; set pointer to entry
		sta	<file_entry_ptr
		lda	#0
		adc	<file_list_ptr+2
		sta	<file_entry_ptr+2
		pla
		
		tay				; Y = index to current entry
		clc
		adc	#$0030			; A = size from base to top of this entry
no_file_index
		ldx	#0
		rts

current_file	dc.w	0
file_index	dc.w	0

file_list_tbl	dc.w	$0000			; entry # 1 index
		dc.w	$0030			; entry # 2 index
		dc.w	$0060			; entry # 3 index
		dc.w	$0090			; entry # 4 index
		dc.w	$00C0			; entry # 5 index
		dc.w	$00F0			; entry # 6 index
		dc.w	$0120			; entry # 7 index
		dc.w	$0150			; entry # 8 index
		dc.w	$0180			; entry # 9 index
		dc.w	$01B0			; entry # 10 index
		dc.w	$01E0			; entry # 11 index
		dc.w	$0210			; entry # 12 index
		dc.w	$0240			; entry # 13 index
		dc.w	$0270			; entry # 14 index
		dc.w	$02A0			; entry # 15 index
		dc.w	$02D0			; entry # 16 index
		

		eject
*****************************************************************
*
* This routine dereferences a handle.
*
* ENTRY: via a 'JSR'
*               A Reg = Least significant word of handle
*               X Reg = Most significant word of handle
*               Y Reg = Undefined
*               B Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT: via an 'RTS'
*               A Reg = Least significant word of pointer
*               X Reg = Most significant word of pointer
*               Y Reg = Unchanged
*               B Reg = Unchanged
*             Dir Reg = Unchanged
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
****************************************************************
deref_handle
		longa	on
		longi	on
		
		phb

		phx
		plb
		tax
		ldy	|2,x
		lda	|0,x
		tyx
		plb

		plb
		rts
		
		eject
****************************************************************
*
* This system service routine posts a DIB address for future
* driver installation.  Installation will occur following the
* current or next return from the device dispatcher.
*
*                _____________________
*       +$0000  |_                   _|
*               |_  Count of number  _|
*               |_  DIBs to install  _|
*               |_____________________|
*       +$0004  |_                   _|
*               |_    Pointer to     _|
*               |_    first DIB      _|
*               |_____________________|
*       +$0008  |_                   _|
*               |_    Pointer to     _|
*               |_    second DIB     _|
*               |_____________________|
*
* ENTRY: via a 'JSL'
*               A Reg = Undefined
*               X Reg = DIB address (low)
*               Y Reg = DIB address (high)
*               B Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT: via an 'RTL'
*               A Reg = Error code (no_error, drvr_busy or out_of_mem)
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Unchanged
*             Dir Reg = Unchanged
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ 0  0 if drivers can be installed
*                       ¥ ¥ 0 0 0 ¥ ¥ 1  0 if drivers cannot be installed
*
****************************************************************
		export	post_driver
post_driver            
		longa	on
		longi	on

		phb
		phk
		plb
		phd
		lda	#direct_base
		tcd

		lda	<post_drvr_tbl	; is a call pending?
		ora	<post_drvr_tbl+2
		beq	post_it		; no
		jmp	cant_post_drvr	; yes, cant install this one!
post_it
		stx	<post_drvr_tbl		; save addr of posted driver table
		sty	<post_drvr_tbl+2

*
* Current device list size is added to size of post driver install
* list to set device list handle size (8 bytes per device).
*
		clc
		lda	[<post_drvr_tbl]
		adc	[<drvr_dev_ptr]
		jsr	calc_dev_size		; get device list size
		jsr	put_handle_size
		ldy	|dev_list_hndl+2	; handle to set size of...
		ldx	|dev_list_hndl
		jsr	set_handle_size		; set the handle size
		
post_exit
		php				; save exit status
		pha

		jsr	deref_dev_list		; dereference device list handle

		pla				; restore exit status
		plp
		pld
		plb
		rtl
*
* If memory could not be allocated then an error indicating this
* condition must be returned.
*
no_memory
		longa	on
		longi	on

		stz	<post_drvr_tbl
		stz	<post_drvr_tbl+2

		jsr	fix_dev_handle	; set device list handle size

		lda	#out_of_mem	; cant allocate for post_driver
		sec
		bra	post_exit

cant_post_drvr
		lda	#drvr_busy	; cannot install driver right now.
		sec
		pld
		plb
		rtl

put_handle_size
		sta	|handle_size
		stx	|handle_size+2
		rts

		eject
*****************************************************************
*
* The following routine calculates the handle size for the
* device list based on the number of devices passed as input
* in A.  NOTE that an artificial limit of 63 devices currently
* exists.
*
* ENTRY: via a 'JSR'
*               A Reg = Low word number of devices
*               X Reg = Undefined
*               Y Reg = Undefined
*               B Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT: via an 'RTS'
*      |dev_list_size = Size of device list
*               A Reg = Device list handle size
*               X Reg = Unchanged
*               Y Reg = Unchanged
*               B Reg = Unchanged
*             Dir Reg = Unchanged
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
****************************************************************
calc_dev_size
		longa	on
		longi	on

		stz	|dev_list_size+2
*
* Size = (device count * 8) + 4
*
		sec
		rol	a
		asl	|dev_list_size+2
		asl	a
		asl	|dev_list_size+2
		asl	a
		asl	|dev_list_size+2
*
* Return with device list size.
*
		sta	|dev_list_size
		ldx	|dev_list_size+2
		rts

		eject
*****************************************************************
*
* The following routine walks each entry of the file list to find
* the file entry with the user ID (shutdown_id) of a driver being
* purged.  The file entry will be marked as purged by writting a
* zero to the file entry file type.
*
* ENTRY: via a 'JSR'
*               A Reg = Low word number of devices
*               X Reg = Undefined
*               Y Reg = Undefined
*               B Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT: via an 'RTS'
*      |dev_list_size = Size of device list
*               A Reg = Device list handle size
*               X Reg = Unchanged
*               Y Reg = Unchanged
*               B Reg = Unchanged
*             Dir Reg = Unchanged
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
****************************************************************
mark_file_list
		longa	on
		longi	on
		
		lda	|current_file
		pha

		lda	|dd_os_call		; is purge during os startup?
		bne	no_file_entries		; no, dont remove it from the list
		
		lda	|file_list_cnt		; point at last entry
		beq	no_file_entries
		
		sta	|current_file
walk_loop_1
		lda	|current_file		; set pointer to file entry
		jsr	calc_file_index
		
		ldy	#file_user_id		; is current entry the shutdown ID?
		lda	[<file_entry_ptr],y
		cmp	|shutdown_id
		beq	found_file_id		; yes
		
		dec	|current_file		; else check if more entries
		bne	walk_loop_1		; if more entries
		bra	no_file_entries		; ID is not in the file entry
*
* Mark the current file entry as purged by zeroing out the file type
* in the file list entry.
*
found_file_id
		lda	#0			; zero out file type
		sta	[<file_entry_ptr]
		sta	[<file_entry_ptr],y	; zero out user ID so for subsequent search
no_file_entries
		pla
		sta	|current_file
		jsr	calc_file_index
		rts
		
		eject
*****************************************************************
*
* The following routine walks each entry of the file list to find
* the file containing the file name that matches the string in
* file_name_str.
*
* ENTRY: via a 'JSR'
*               A Reg = Low word number of devices
*               X Reg = Undefined
*               Y Reg = Undefined
*               B Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT: via an 'RTS'
*      |dev_list_size = Size of device list
*               A Reg = Device list handle size
*               X Reg = Unchanged
*               Y Reg = Unchanged
*               B Reg = Unchanged
*             Dir Reg = Unchanged
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ 0  0	File found in memory
*                       ¥ ¥ 0 0 0 ¥ ¥ 1  0	File not found in memory
*
****************************************************************
find_file
		longa	on
		longi	on
		
		lda	|file_list_cnt		; are there any file list entries?
		beq	no_fl_entry		; no, return error to load from disk
		
		lda	#$0001			; start at first entry
		sta	|current_file
find_loop_1
		lda	|current_file		; set pointer to file entry
		jsr	calc_file_index
		
		ldy	#file_name		; is current entry the target driver?
		lda	[<file_entry_ptr],y
		beq	wrong_entry		; nil string length is not valid!
		cmp	|file_name_str		; same length?
		bne	wrong_entry_2		; no, can't be equal
		
		tax				; put length into X
		sec				; allow for string length word
		adc	#file_name		; make index to last character of name
		tay

		sep	#$20			; 8 bit 'm'
		longa	off
		
find_loop_2
		lda	[<file_entry_ptr],y	
		cmp	|file_name_str+1,x
		bne	wrong_entry		; wrong file list entry if string mismatch
		dey
		dex
		bne	find_loop_2

		rep	#$21			; 16 bit 'm' and CLC to
		longa	on			;   indicate file found in memory
		rts

wrong_entry
		rep	#$20			; 16 bit 'm'
		longa	on
wrong_entry_2
		inc	|current_file		; else check if more entries
		lda	|file_list_cnt
		cmp	|current_file
		bge	find_loop_1		; if more entries
no_fl_entry	
		sec				; indicate file not found in memory
		rts
		
		endp

		end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/OS/DeviceDispatcher/NewDispatcher.src b/IIGS.601.SRC/GS.OS/OS/DeviceDispatcher/NewDispatcher.src
new file mode 100644
index 0000000..57c3362
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/OS/DeviceDispatcher/NewDispatcher.src
@@ -0,0 +1 @@
+*******************************************************************************
*
*               	Copyright (c) 1987 - 1992
*               	Apple Computer, Inc.
*               	All rights reserved.
*
*******************************************************************************
*
*               GS/OS Fast Device Dispatcher
*               Written by: Raymond B. Montagne
*
*               This OMF2 file to be loaded into managed fast memory
*		by GLoader.  Proper installation includes a call to
*		the base address of the segment.
*
*		Memory User ID's for GS/OS components are as follows:
*
*                       $30XX Cannot be used
*                       $31XX SCM
*                       $32XX Gloader / Gquit
*                       $33XX File System Translators
*                       $34XX Express Loader
*                       $35XX Reserved:
*                       $36XX Reserved:
*                       $37XX Reserved:
*                       $38XX Reserved:
*                       $39XX User ID for loaded device driver
*                       $3AXX User ID for loaded supervisor driver
*                       $3BXX Segments allocated by supervisor drivers
*                       $3CXX Segments allocated by device drivers
*                       $3DXX Allocated for generated DIB's
*                       $3EXX Supervisory driver list
*                       $3FXX Device driver list & Device Dispatcher Components
*
*******************************************************************************
*
* Revision History:
*
* mm/dd/yy Version 	Who 	What
*
* 01/04/89 v4.10 dxx	RBM	Ported device manager, device dispatcher and time 
*				critical system service calls to fast ram.  Re-write
*				of device access verification routines for performance
*				enhancement.
*
* 01/07/89		RBM	Startup & shutdown do not patch and restore $E1020X
*				vectors for move_info, system_speed and slot_arbiter.
*				These vectors must not be patched to point to $01FCxx
*				because they cannot be called with the rom selected.
*				Vector patching has been ported back to the bank $E0
*				device dispatcher startup and shutdown calls.
*
* 01/08/89		RBM	Fixed access detection so that format control call 
*				is passed on to a SLINKY.
*
* 01/09/89		RBM	Speed enhancement in D_READ and D_WRITE.
*
* 01/25/89		RBM	Added system call $2036 D_RENAME.
*
* 02/06/89	2.1a02	RBM	Added capability of disabling D_RENAME and limited
*				rename function so that console driver could not
*				be renamed.
*
* 02/07/89		RBM	D_RENAME can no longer be disabled.  D_RENAME
*				can be used on CONSOLE.  D_RENAME now checks
*				the device characteristics to determine if the
*				device can be renamed.
*
* 02/08/89		RBM	D_RENAME now changes the replacement string into upper
*				case ascii prior to renaming the target device.
*
* 02/09/89		RBM	Preserve $E1 vectors for set system speed and slot
*				arbiter.  Intercept device dispatcher shutdown call
*				and restore these vectors.
*
* 02/14/89	2.1a03	RBM	Transfer count is now preserved around dynamic driver installation.
*
* 02/22/89	2.1d12	RBM	D_Info class 1 now checks for minimum pcount.
*
* 02/28/89	2.1d13	RBM	D_INFO class 1 now checks for max pcount of $000B.  DIB_DEV_NUM
*				will not be returned.
*
* 03/01/89	2.1d13+	RBM	D_INFO class 1 now returns invalid_dev_num for a device number of
*				$0000.
*
* 03/10/89	2.1d13+ RBM	D_INFO with pcount max reduced to $000A broke several applications.
*				Changed max pcount to $000B.  Update DOC.
*
*  3/20/89	d14	RBM	Fixed slot arbiter code where branch occured from 16 bit mode
*				to 8 bit mode code.
*
*				D_CONTROL call for format now deletes all blocks from the cache.
*
*  3/24/89			Fixed width of block count returned on D_INFO (BRC#46513).
*
*  3/29/89	d16	RBM	D_calls to device $0000 now return error $0011 = Invalid_Dev_Num.
*
*  4/06/89	d18	RBM	D_STATUS & CONTROL allows a status/control list pointer of zero
*				on calls that do not use a parameter list.
*
*  4/19/89	d19	RBM	Status call $0000 (device status) is now post processed so that
*				both insertion and ejection events are posted to the os queue.
*
*  4/25/89	d20	RBM	Renaming a device to it's current name will not return an error.
*
*  5/12/89	d22	RBM	Set disk switch now parses for status call.  If a status call
*				with status code $0000, and not a linked device, the offline
*				status is examined.  SWAP_OUT, CACHE_DEL_VOL and POST_EVENT
*				will only be executed if the device is offline.  If SET_DISK_SW
*				is called from a non status call or a status call where the
*				status code is not equal to $0000 then SWAP_OUT, CACHE_DEL_VOL 
*				and POST_EVENT will be executed.
*
*  5/15/89	d22	RBM	Changed parsing of status from within disk switch system service
*				call.  Redundant posting to the os queue will not occur.  Conflicting
*				posting to the os queue will not occur.  Swap_out and Cache_Del_Vol
*				will occur unconditionally.
*
*  5/25/89	d23	RBM	Bit 0 of status word not maniplulated for character devices.  Previous
*				implementation set bit 0 when online/offline state changed regardless
*				of device type.
*
*  5/30/89	d25	RBM	Device status is not post processed by the device dispatcher if 
*				the request count to the status call was less than 2 meaning that
*				the device status word was not requested.
*
*  6/02/89	d25+	RBM	Set disk switch no longer stores zero do devnum.
*
*  6/12/89	d29	RBM	If status returns online and switched, cache_del_vol and swap_out
*				will be called directly from the device dispatcher prior to exit
*				back to the FST level.
*
*				D_WRITE / D_READ now loads the device number prior to calling
*				the system service routine 'SWAP_OUT'.
*
*  01/03/90	6.0d5	GAB	D_Info call corrected so that the result buffer supplied
*				for the device name will not be overflowed.
*
*  04/24/91	6.0d33	GAB	new_dispatch fixed so that it recognizes the new
*				full_shutdown ($0003) call number.
*
*  06/04/91	6.0d39	GAB	Optimizations performed.
*
*  10/30/91	6.0d55	GAB	Fixed call dispatching so that out-of-range
*				call numbers to the dispatcher are not treated
*				like Shutdown calls.
*
*  12/07/91	6.0d61	GAB	Fixed post-processing of disk-switched and offline
*				status so that if a driver reports both disk-switched
*				and online at the same time, an insertion event is
*				_always_ posted to the notification queue.
*
*  6-Mar-93    6.0.1d14 JCM	DStatus and DControl now use the new device characteristics
*				bit $0010 to determine if a driver can accept all subcalls.
*
*  9-Mar-93    6.0.1d14 JCM	The previous fix stopped us from dispatching device-specific
*				calls if the new bit wasn't set. All calls >= $8000 should get
*				to drivers regardless of this bit setting, and they now do.
*
*  9-Mar-93    6.0.1d14 JCM	Optimized the previous fix to cut out 6 bytes.
*
*******************************************************************************
		print	push
		print	off
		include	'gsos.macros.src' 
		include	'common.equ.src' 
		include	'hw.equ.src' 
		include	'driver.equ.src'
		print	pop
		eject
;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

		entry	new_dispatch
		entry	gsos_speed
		entry	set_dib_ptr
		entry	get_disp_err
		entry	clear_disp_err
		entry	d_control
		entry	d_info
		entry	d_read
		entry	d_status
		entry	d_write
		entry	set_dib_pointer
		entry	slot_arbiter
		entry	dev_mgr
		entry	set_disk_switch
		entry	d_rename
		entry	dev_mgr_fail
;		entry	os_names

		eject
****************************************************************
*
* This is the main entry point for the device dispatcher.
* Note that calls to device zero specify calls to the dispatcher
* and not to a particular device.  Non-zero device numbers
* will be passed on to that specific device.
*
* ENTRY:        A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             DIR Reg = Undefined
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*			¥ ¥ 0 0 0 ¥ ¥ ¥  0	
*
* EXIT:         A Reg = Undefined
*               X Reg = Unchanged
*               Y Reg = Unchanged
*             DIR Reg = Unchanged
*               B Reg = Unchanged
*               P Reg = N V M X D I Z C  E
*			¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
****************************************************************
		export	install_dev_svc	
install_dev_svc	proc
		longa	on
		longi	on
		
		phb				; save caller's DBR
		phk				; set to our bank
		plb

		lda	to_dispatch		; install device dispatcher system service vector
		sta	>dev_dispatcher
		lda	to_dispatch+2
		sta	>dev_dispatcher+2

		lda	#$0000
		pha				; space for status result
		pha				; space for A Reg. result
		pha				; space for X Reg. result
		pha				; space for Y Reg. result
		pha				; A Reg. at entry
		pha				; X Reg. at entry
		pha				; Y Reg. at entry
		pea	$FE1F			; Emulation entry point
		_FWEntry
		pla				; Y reg. result
		plx				; X reg. result
		plx				; A reg. result
		plx				; Processor status result
		dec	a			; is the rom version = $0001?
		beq	dont_save_e1		; yes, dont save bank e1 vectors (they dont exist)
		
		lda	>e1_set_speed		; save bank $E1 system speed vector
		sta	old_set_speed
		lda	>e1_set_speed+2
		sta	old_set_speed+2
		
		lda	>e1_slot_arbiter	; save bank $E1 slot arbiter vector
		sta	old_arbiter
		lda	>e1_slot_arbiter+2
		sta	old_arbiter+2
		
		lda	>e1_move		; save bank $E1 move routine vector
		sta	old_move
		lda	>e1_move+2
		sta	old_move+2
		
dont_save_e1
		lda	move_info		; install bank $E1 move routine vector
		sta	>e1_move
		lda	move_info+2
		sta	>e1_move+2
		
		lda	to_gsos_speed		; install set_sys_speed system service vector
		sta	>set_sys_speed
		sta	>e1_set_speed
		lda	to_gsos_speed+2
		sta	>set_sys_speed+2
		sta	>e1_set_speed+2
		
		lda	to_slot_arbiter		; install slot arbiter system service vector
		sta	>dyn_slot_arbiter
		sta	>e1_slot_arbiter
		lda	to_slot_arbiter+2
		sta	>dyn_slot_arbiter+2
		sta	>e1_slot_arbiter+2

		lda	to_set_disk_sw		; install disk switch system service vector
		sta	>set_disksw
		lda	to_set_disk_sw+2
		sta	>set_disksw+2
		
		lda	to_dev_mgr		; install device manager system service vector
		sta	>dev_mgr_svc
		lda	to_dev_mgr+2
		sta	>dev_mgr_svc+2
		
;		lda	#<os_names		; initialize the pointer to GS/OS names
;		sta	>$01FCFC
;		lda	#^os_names
;		sta	>$01FCFE

		plb				; restore caller's DBR
		rtl
		
to_dispatch	jmp	>new_dispatch
to_gsos_speed	jmp	>gsos_speed
to_slot_arbiter	jmp	>slot_arbiter
to_set_disk_sw	jmp	>set_disk_switch
to_dev_mgr	jmp	>dev_mgr

old_set_speed	sec				; old $E1 vector for set system speed
		rtl
		nop
		nop
		
old_arbiter	sec				; old $E1 vector for slot arbitration
		rtl
		nop
		nop
		
old_move	sec				; old $E1 vector for move routine
		rtl
		nop
		nop

		eject
****************************************************************
*
* This is the main entry point for the device dispatcher.
* Note that calls to device zero specify calls to the dispatcher
* and not to a particular device.  Non-zero device numbers
* will be passed on to that specific device.
*
* ENTRY:        A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*             DIR Reg = GS/OS Direct Page
*               B Reg = Undefined
*               P Reg = N V M X D I Z C  E
*			¥ ¥ 0 0 0 ¥ ¥ ¥  0	
*
* EXIT:         A Reg = Error code
*               X Reg = Undefined
*               Y Reg = Undefined
*             DIR Reg = GS/OS Direct Page
*               B Reg = Same as on entry
*               P Reg = N V M X D I Z C  E
*			¥ ¥ 0 0 0 ¥ ¥ 0  0	if no error
*			¥ ¥ 0 0 0 ¥ ¥ 1  0	if error
*
****************************************************************
		export	new_dispatch	
new_dispatch
		longa	on
		longi	on
		
		lda	<drvr_dev_num		; is this a call to the dispatcher?
		bne	device_call		; no, it's to a device
		lda	<drvr_call_num		; is it a shutdown call?
		cmp	#$0002
		beq	@shutdown		; yes, normal shutdown
		cmp	#$0003			; full shutdown?
		bne	to_old_disp		; no, let old dispatcher handle it
		
@shutdown
		jsl	>old_dev_disp		; else call old dispatcher
		
		lda	>old_set_speed		; restore bank $E1 system speed vector
		sta	>e1_set_speed
		lda	>old_set_speed+2
		sta	>e1_set_speed+2
		
		lda	>old_arbiter		; restore bank $E1 slot arbiter vector
		sta	>e1_slot_arbiter
		lda	>old_arbiter+2
		sta	>e1_slot_arbiter+2
		
		lda	>old_move		; restore bank $E1 move routine vector
		sta	>e1_move
		lda	>old_move+2
		sta	>e1_move+2
		
		lda	#no_error
		rtl
		
to_old_disp
		jmp	>old_dev_disp		; this call is handled by the old device dispatcher

device_call 
		cmp	[<drvr_dev_ptr]		; is it a legal device number?
		blt	dev_num_ok		; yes
		beq	dev_num_ok

		lda	#invalid_dev_num 	; illegal device number
		sec
		rtl

*
* Clear out the transfer count prior to dispatching to the
* device.  Set DIB pointer prior to dispatch to device.
*
dev_num_ok 
		phb				; need my bank!!!
		phk
		plb
		pei	<drvr_cache		; preserve cache priority
*
* Qualify cache priority based on global sessions flag. (Rev. v0.26)
*
		lda	>session_stat		; is a deferred sessiion in progress?
		ror	a
		ror	a
		ora	#$7FFF
		and	<drvr_cache
		sta	<drvr_cache
*
* Null out the transfer count.
*
		stz	<drvr_tran_cnt+2
		stz	<drvr_tran_cnt
*
* Set the DIB pointer for the current device to be accessed.
*
		lda	<drvr_dev_num		; device number to set DIB pointer for
		dec	a			; calculate index into device list
		sec
		rol	a
		asl	a
		asl	a
		tay
		lda	[<drvr_dev_ptr],y	; set the DIB pointer
		sta	<drvr_dib_ptr
		iny
		iny
		lda	[<drvr_dev_ptr],y
		sta	<drvr_dib_ptr+2

		ldy	#entry_ptr		; now get ready for dispatch
		lda	[<drvr_dib_ptr],y
		sta	|drvr_call+1
		iny
		lda	[<drvr_dib_ptr],y
		sta	|drvr_call+2
*
* Check device access attributes v.s. call number.
*
		ldy	#dev_char		; pointer to DIB device characteristics
		lda	<drvr_call_num		; get access attributes mask for this call
		asl	a
		tax
		lda	|access_table,x
		beq	dont_check_acc		; if access does not need checked on this call
		bmi	chk_ctrl_access		; if access is control code specific
		and	[<drvr_dib_ptr],y
		bne	access_ok		; if device access allowed on this call
exit_invalid_acc
		pea	invalid_access		; else exit with an error
		brl	common_dsp_exit
chk_ctrl_access
		lda	[<drvr_dib_ptr],y	; get the device characteristics
		and	#%0100000000000000	; is this a generated driver?
		beq	dont_check_acc		; no, let the driver do it's own checking
		lda	<drvr_ctrl_code		; get access attributes this control call
		cmp	#$0009			; is this device specific
		bge	dont_check_acc		; yes, dont check attributes
		asl	a
		tax
		lda	ctrl_access_tbl,x
		beq	dont_check_acc		; if access does not need checked on this call
		and	[<drvr_dib_ptr],y
		bne	dont_check_acc
		ldy	#dev_char		; is the device a character device
		lda	[<drvr_dib_ptr],y
		and	#$0080
		bne	exit_invalid_acc	; no, access not allowed on this call
		lda	#no_error		; yes, exit with no error
		clc
		brl	no_stat_dsp_err
*
* Check access v.s. device type.
*
access_ok
		lda	[<drvr_dib_ptr],y
		and	#%0000000010000000	; is this a block device?
		bne	chk_blk_acc		; yes
		lda	<drvr_blk_size		; is block size zero for a character device?
		beq	dont_check_acc		; yes, go check attributes against call
		pea	not_block_dev		; else exit with an error
		brl	common_dsp_exit
chk_blk_acc
		lda	<drvr_blk_size		; is block size nonzero for a block device?
		bne	dont_check_acc		; yes, go check attributes against call
		pea	drvr_bad_parm		; else exit with an error
		brl	common_dsp_exit
*
* Bit 12 of device characteristics should be set to indicate
* that the driver is busy.
*
dont_check_acc
		lda	[<drvr_dib_ptr],y
		tax
		and	#%0001000000000000	; is device already busy?
		beq	dev_not_busy		; no
		pea	drvr_busy		; else return driver busy error
		brl	common_dsp_exit
		
dev_not_busy	txa
		ora	#%0001000000000000
		sta	[<drvr_dib_ptr],y
*
* Access is allowed.  Go ahead and dispatch to the driver.
*
		xba
		and	#$0003
		cmp	#$0003			; does speed need to be set?
		beq	entry_speed_ok		; no
		jsl	set_sys_speed		; set speed for dispatch
entry_speed_ok
		pha				; and save current speed setting
		lda	<drvr_call_num		; device needs the call number in A
*
* Call the device driver.
*
		export	drvr_call
drvr_call               
		jsl	>$000000		; self modified for driver entry
		plx				; get speed setting prior to driver call
		phk
		plb
		php				; save error code & status
		pha
		txa				; restore original system speed
		cmp	#$0003			; does speed need to be set?
		beq	exit_speed_ok		; no
		jsl	set_sys_speed		; set speed for dispatch
exit_speed_ok
*
* Bit 12 of device characteristics should be cleared to indicate
* that the driver is no longer busy.
*
		ldy	#dev_char		; set *BUSY in device characteristics
		lda	[<drvr_dib_ptr],y
		and	#%1110111111111111
		sta	[<drvr_dib_ptr],y
		pla
		plp
*
* Now need to post process any disk switched or off-line
* error into a dispatcher maintained disk switched error
* required for FST bouncing.
*
		bcc	no_dsp_err		; if no driver error this time
		cmp	#drvr_disk_sw		; was error a disk switched?
		beq	set_dsp_sw		; yes
		cmp	#drvr_off_line		; was error off-line?
		beq	set_dsp_sw		; yes
		pha
		bra	common_dsp_exit
*
* Either an OFFLINE or DISKSWITCHED error returned from the
* device will be mapped into a dispatcher maintained DISKSWITCHED error.
*
set_dsp_sw	pha
		jsl	set_disksw		; mark device switch as neccessary
already_set	bra	common_dsp_exit
*
* If the device returned no error at all, then clear any pending
* dispatcher maintained disk switched error.  The VCRs have already
* been marked as offline.  Redundant calls to SWAP_OUT and
* DEL_CACHE_VOL are not neccessary.  NOTE that the internal error
* should only be cleared on a media access such as read, write or format.
*
no_dsp_err
		ldy	#dev_char		; was call to a character device?
		lda	[<drvr_dib_ptr],y
		and	#%0000000010000000
		beq	no_stat_dsp_err		; yes, no status to clear
		
		lda	#no_error
		ldy	<drvr_call_num	  	; was it a read call?
		cpy	#drvr_read
		beq	its_clear_time	  	; yes, clear dispatcher maintained error
		
		cpy	#drvr_write		; was it a write call?
		beq	its_clear_time	  	; yes, clear dispatcher maintained error
		
		cpy	#drvr_control		; is it a control call?
		bne	no_stat_dsp_err		; no, leave dispatcher maintained error alone
		
		ldy	<drvr_ctrl_code		; is it a format call?
		cpy	#drvr_format
		bne	no_stat_dsp_err	  	; no, leave dispatcher error alone!
its_clear_time
		jsr	clear_disp_err	  	; clear dispatcher maintained error
no_stat_dsp_err				
		pha
*
* The error status returned to the caller is the device status
* returned by the driver call with the high byte cleared.
*
common_dsp_exit
		clc				; assume no error
		pla				; restore error code
		beq	no_err			; if no driver or dispatcher error
		sec
no_err
		plx				; restore cache priority
		stx	<drvr_cache
		plb
		php				; save error code & status
		pha
*
* Need to check if any dynamic driver installation is required.
*
		lda	>post_index		; is installation in progress? (BA)
		bne	dont_insert		; yes, dont install redundantly!
		
		lda	<post_drvr_tbl		; any drivers to install?
		ora	<post_drvr_tbl+2
		beq	dont_insert		; no
		
		pei	<drvr_tran_cnt		; preserve transfer count around dynamic install
		pei	<drvr_tran_cnt+2
		
		jsl	dynamic_install		; install any pending drivers
		
		pla
		sta	<drvr_tran_cnt+2
		pla
		sta	<drvr_tran_cnt
*
* If returning from a status call with a status code of $0000 then
* must post process the general status word being returned in the
* status list.  If online and no disk switch is indicated, then clear 
* dispatcher maintained disk switch status.  If clearing this status 
* results in a change the set the disk switch bit in the general status 
* word being returned in the status list.
*
dont_insert
		ldy	#dev_char		; is the device a character device?
		lda	[<drvr_dib_ptr],y
		and	#$0080
		beq	not_stat_ret		; yes, dont do any status bit manipulation
		
		lda	<drvr_call_num		; is this a return from a status call?
		cmp	#drvr_status
		bne	not_stat_ret		; no, dont clear dispatcher maintained error

		lda	<drvr_stat_code		; is this a general status call?
		bne	not_stat_ret		; no, dont clear dispatcher maintained error
		
		lda	<drvr_req_cnt		; was any status requested?
		cmp	#$0002
		blt	not_stat_ret		; if no status was requested.

		lda	[<drvr_slist_ptr]	; is driver reporting a disk switch or offline?
		eor	#$0010
		and	#$0011
		beq	chk_online_flag		; no
		
		and	#$0010			; is driver offline?
		beq	force_insert		; no, must be an insertion event
		
		jsr	get_disp_err		; get dispatcher maintained error
		bne	not_stat_ret		; if dont need to change diskswitch
		
		jsl	set_disk_switch		; else mark list as offline/switched
		jsr	set_dsw_bit		; set disk switch in status word
		bra	not_stat_ret

force_insert
		jsr	get_disp_err		; get Y set up to access error variable
		lda	#$FFFF			; reset to force an insertion notification
		sta	[<drvr_dev_ptr],y

chk_online_flag
		lda	[<drvr_slist_ptr]	; is driver reporting a disk switch?
		ror	a
		bcc	no_on_sw		; nope!
		jsl	cache_del_vol		; delete blocks from the cache
		lda	<drvr_dev_num		; and mark VCRs as OFFLINE
		jsl	swap_out		; to make life easier for FST's
no_on_sw
		jsr	get_disp_err		; get dispatcher maintained error
		beq	not_stat_ret		; if dont need to change diskswitch
		jsr	set_dsw_bit		; set disk switch in status word
		jsr	clear_disp_err		; clear dispatcher maintained error
not_stat_ret
		pla				; restore error code & status
		plp
		rtl
set_dsw_bit
		lda	[<drvr_slist_ptr]	; set disk switch bit in general status word
		ora	#$0001
		sta	[<drvr_slist_ptr]
		rts
		
		eject
****************************************************************
*
* The following table provides a faster means of checking device
* access prior to dispatching to the device driver.  Position of
* bits in the mask are as follows:
*
*			 Use control code access table
*			 |
*			 | 
*			 |       Block Device
*			 |       |Write
*			 |       ||Read
*			 |       ||| Formatable
*			 |       ||| |Removable
*			 |       ||| ||
*			%nxxxxxxxnnnxnnxx
*		or...
*			%0000000000000000 = dont check access this call.
*
****************************************************************
access_table
		dc.w	%0000000000000000	; access for startup
		dc.w	%0000000000000000	; access for open
		dc.w	%0000000000100000	; access for read
		dc.w	%0000000001000000	; access for write
		dc.w	%0000000000000000	; access for close
		dc.w	%0000000000000000	; access for status
		dc.w	%1000000000000000	; access for control
		dc.w	%0000000000000000	; access for flush
		dc.w	%0000000000000000	; access for shutdown

ctrl_access_tbl	
		dc.w	%0000000000000000	; access for reset device
		dc.w	%0000000000000000	; access for format device
		dc.w	%0000000000000100	; access for eject media
		dc.w	%0000000000000000	; access for set configuration parameters
		dc.w	%0000000000000000	; access for set wait mode
		dc.w	%0000000000000000	; access for set format options
		dc.w	%0000000000000000	; access for assign partition owner
		dc.w	%0000000000000000	; access for arm signal
		dc.w	%0000000000000000	; access for disarm signal

		endp

		eject
*****************************************************************
*
* This routine optains the DIB pointer for the device specified
* by the current DRVR_DEV_NUM from the device list to set the
* DRVR_DIB_PTR on GS/OS direct page.
*                  __________________
*           $0000 |_                _|   ... Number of devices
*           $0001 |_                _|
*           $0002 |_                _|
*           $0003 |__________________|
*           $0004 |_                _|   ... Pointer to device #1 DIB
*           $0005 |_                _|
*           $0006 |_                _|
*           $0007 |__________________|
*           $0008 |_                _|   ... Device #1 disk switched status
*           $0009 |__________________|
*           $000A |_                _|   ... Device #1 User ID
*           $000B |__________________|
*           $000C |_                _|   ... Pointer to device #2 DIB
*           $000D |_                _|
*           $000E |_                _|
*           $000F |__________________|
*           $0010 |_                _|   ... Device #2 disk switched status
*           $0011 |__________________|
*           $0012 |_                _|   ... Device #2 User ID
*           $0013 |__________________|
*           $0014  ...
*
* ENTRY:        A Reg = Unspecified
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Same as execution bank
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*			x x 0 0 0 x x x  
*
* EXIT:         A Reg = Unchanged
*               X Reg = Unchanged
*               Y Reg = Unchanged
*               B Reg = Same as execution bank
*             Dir Reg = GS/OS Direct Page
*        DRVR_DIB_PTR = Now points at DIB for current DRVR_DEV_NUM
*               P Reg = N V M X D I Z C  E
*			¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
*****************************************************************
		export	set_dib_ptr
set_dib_ptr	proc
		longa	on
		longi	on

		pha
		phy
		php
		rep	#$30				; 16 bit 'm' & 'x'
		longa	on
		longi	on
		lda	<drvr_dev_num			; device number to set DIB pointer for
		dec	a				; calculate index into device list
		sec
		rol	a
		asl	a
		asl	a
		tay
		lda	[<drvr_dev_ptr],y		; set the DIB pointer
		sta	<drvr_dib_ptr
		iny
		iny
		lda	[<drvr_dev_ptr],y
		sta	<drvr_dib_ptr+2
		plp
		ply
		pla
		rts

		endp
		
		eject
****************************************************************
*
* This routine sets the device dispatcher maintained disk
* switched error for the device specified on GS/OS direct page.
* This call is implemented for device drivers supporting any
* device specific status calls which may detect either an
* OFFLINE or DISKSW condition.  These conditions will be
* returned as status rather than an error.  In this case, the
* driver must request that the dispatcher maintained disk
* switched status be set.
*
* If the disk switch status has been previously set then no
* action is performed by this call.  If the disk switch status
* has not been set then it will be set and subsequent calls
* will be issued to SWAP_OUT and DEL_CACHE_VOL.
*
* NOTE: This routine was modified in version 0.08 a04 to check
* if the current device is a linked device.  If a linked device,
* the routine sets disk switch for each linked device starting
* with the head device and proceeding to the last forward
* linked device.
*
* ENTRY: via a 'JSL'
*               A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*               B Reg = Undefined
*             Dir Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:         A Reg = Unchanged
*               X Reg = Unchanged
*               Y Reg = Unchanged
*               B Reg = Unchanged
*             Dir Reg = Unchanged
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
****************************************************************
		export	set_disk_switch
set_disk_switch	proc           
		longa	on
		longi	on

*
* Save register contents
*
		phd
		phb
		phy
		phx
		pha

	if 0 then
		pei	<drvr_dev_num
		pea	direct_base
		pld
*
* Must determine if the current device is a linked device.  If a
* linked device then all linked devices must be set as disk switched
* including purging of cached volumes and marking the VCRs for
* each device as being switched.
*
		jsr	set_dib_ptr		; point at current DIB
		ldy	#forward_link

		lda	[<drvr_dib_ptr],y
		dey
		dey
		ora	[<drvr_dib_ptr],y
		bne	set_linked_dsw		; if it's a linked device
*
* Its not a linked device so only the current device cached block
* and VCR is affected.
*
		jsr	set_dsw			; mark device & post ejection to queue
already_set_dsw
		pla
		sta	<drvr_dev_num
		jsr	set_dib_ptr
	else
		jsr	set_dsw			; mark device & post ejection to queue
	endif

*
* Restore registers
*
		pla
		plx
		ply
		plb
		pld
		rtl

	if 0 then
*
* All linked devices must be set as disk switched including purging
* of cached volumes and marking the VCRs for each device as being switched.
*
set_linked_dsw
		lda	[<drvr_dib_ptr],y
		beq	set_dsw_loop		;We're at the head already. (BA)
		sta	<drvr_dev_num
set_dsw_loop
		jsr	set_dsw			; set disk sw for current device
		ldy	#forward_link
		lda	[<drvr_dib_ptr],y
		beq	already_set_dsw		; all done with linked devices
		sta	<drvr_dev_num		; point at next device
		bne	set_dsw_loop		; and loop if more devices to do
	endif

*
* If the disk switch status has been previously set then no
* action is performed by this call.  If the disk switch status
* has not been set then it will be set and subsequent calls
* will be issued to SWAP_OUT and DEL_CACHE_VOL.
*
set_dsw					
		jsr	set_dib_ptr		; point at current DIB
		jsr	get_disp_err		; get dispatcher maintained error
		bne	set_dsw_done		; if disk switch already set
*
* Only mark the device offline if the device is truly offline.
* (Changed for d22 on May 15, 1989 {RBM}).
*
		lda	<drvr_call_num		; is it a status call?
		cmp	#$0005
		bne	mark_offline		; no, post to queue unconditionally
		
		lda	<drvr_stat_code		; is it general status?
		bne	mark_offline		; no, post to queue unconditionally
		
		lda	[<drvr_slist_ptr]	; is device offline?
		and	#%0000000000010000
		bne	dont_mark		; no, dont mark if online
mark_offline
		jsr	get_disp_err		; need index into device list
		lda	#$2E00			; mark device offline
		sta	[<drvr_dev_ptr],y
dont_mark
		jsl	cache_del_vol		; delete blocks from the cache
		lda	<drvr_dev_num		; and mark VCRs as OFFLINE
		jsl	swap_out		; to make life easier for FST's
*
* Only post the event to the OS queue if the device is truly offline.
* (Changed for d22 on May 15, 1989 {RBM}).
*
		lda	<drvr_call_num		; is it a status call?
		cmp	#$0005
		bne	post_ejection		; no, post to queue unconditionally
		
		lda	<drvr_stat_code		; is it general status?
		bne	post_ejection		; no, post to queue unconditionally
		
		lda	[<drvr_slist_ptr]	; is device offline?
		and	#%0000000000010000
		bne	set_dsw_done		; no, dont mark if online
*
* Events are posted to the OS queue as follows:
*
*		A Reg =	Event Code (least significant word)
*		X Reg =	Event Code (most significant word)
*		Y Reg =	
*			Device Number
*			?????
*	Stack Pointer >	
*
post_ejection
		pei	<drvr_dev_num
		lda	#0
		pha
		pha
		tax				; XA = event code = disk ejection
		lda	#$0010
		jsl	post_os_event		; notify the finder of a swap
set_dsw_done	rts

		export	get_disp_err
get_disp_err
		lda	<drvr_dev_num		; index into device list
		asl	a
		asl	a
		asl	a
		tay
		lda	[<drvr_dev_ptr],y	; get device dispatcher maintained error
		rts

*
* The following routine clears the mark in the device list indicating that
* media for the device specified by the current device number on GS/Os direct
* page is online.
*
		export	clear_disp_err
clear_disp_err
		jsr	get_disp_err		; get device dispatcher maintained error
		beq	no_post_insert		; If error is already cleared

		lda	#no_error		; clear dispatcher maintained error
		sta	[<drvr_dev_ptr],y
		pei	<drvr_dev_num		; A register for event notification is device number
		pha				; X retister for event notification is $0000
		pha				; Y retister for event notification is $0000
		tax				; XA = event code = disk insertion
		lda	#$0008
		jsl	post_os_event		; notify the finder of a swap
no_post_insert
		lda	#no_error
		rts
		
		endp
		
		eject
*****************************************************************
*
* This table is used to dispatch to device manager functions
* based on the current call number as follows:
*
*   CALL NUMBER:	DEVICE MANAGER FUNCTION:
*
*	$X02C		D_INFO
*	$X02D		D_STATUS
*	$X02E		D_CONTROL
*	$X02F		D_READ
*	$X030		D_WRITE
*	$X036		D_RENAME
*
*****************************************************************
		export	dev_mgr_data	
dev_mgr_data	proc
						;using   drvr_equ
		export	dev_mgr_tbl
dev_mgr_tbl   
		dc.w	d_info			; $x02C - 0
		dc.w	d_status		; $x02D - 1
		dc.w	d_control		; $x02E - 2
		dc.w	d_read			; $x02F - 3
		dc.w	d_write			; $x030 - 4
		dc.w	dev_mgr_fail		; $x031 - 5
		dc.w	dev_mgr_fail		; $x032 - 6
		dc.w	dev_mgr_fail		; $x033 - 7
		dc.w	dev_mgr_fail		; $x034 - 8
		dc.w	dev_mgr_fail		; $x035 - 9
		dc.w	d_rename		; $x036 - A

		export	d_info_data
d_info_data
		dc.w	0			; 1 = device number (input)
		dc.l	0			; 2 = string pointer (input)
		dc.w	dev_char		; 3 = device characteristics in DIB
		dc.w	blk_cnt			; 4 = block count in DIB
		dc.w	slot_num		; 5 = slot number in DIB
		dc.w	unit_num		; 6 = unit number in DIB
		dc.w	ver_num			; 7 = version number in DIB
		dc.w	dev_id_num		; 8 = device ID number in DIB
		dc.w	head_link		; 9 = backward device link
		dc.w	forward_link		; A = forward device link
		dc.l	extended_dib		; B = extended DIB pointer
		dc.w	dib_dev_num		; C = device number of this device

		export	name_length
name_length	dc.w	0			; length of device name string

		export	slot_req
slot_req	dc.w	0			; current slot being requested of arbiter

		endp
		
		eject
*****************************************************************
*
* This is the main entry point for the device manager.  It is
* responsible for parsing the command and dispatching to the
* appropriate function.
*
* CALL NUMBER:	$002C = Class 0 D_INFO
* 		$202C = Class 1 D_INFO
* 		$202D = Class 1 D_STATUS
* 		$202E = Class 1 D_CONTROL
* 		$202F = Class 1 D_READ
* 		$2030 = Class 1 D_WRITE
* 		$2036 = Class 1 D_RENAME
*
* ENTRY:        A Reg = Undefined
*               X Reg = Undefined
*               Y Reg = Undefined
*               B Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:         A Reg = Error Code
*               X Reg = Undefined
*               Y Reg = Undefined
*               B Reg = Unchanged
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ 0  0 = no error
*                       ¥ ¥ 0 0 0 ¥ ¥ 1  0 = error
*
*****************************************************************
		export	dev_mgr		
dev_mgr		proc
		longa	on
		longi	on

		lda	<call_number		; index to dispatch table
		and	#$00FF
		sec
		sbc	#$002C
		bcc	dev_mgr_fail		; system death if cant deal with call
		cmp	#$000B
		bge	dev_mgr_fail
		asl	a
		tax
		lda	<call_number		; precheck class
		and	#$E000
		beq	class_ok		; branck if class 0
		cmp	#$2000			; or is it class 1
		bne	dev_mgr_fail		; branch if not class 0 or 1
class_ok
		stz	<drvr_fst_num		; device manager is FST #0
;		stz	<drvr_tran_cnt		; prezero transfer count
;		stz	<drvr_tran_cnt+2
		phb
		phk
		plb
		jsr	(dev_mgr_tbl,x)		; dispatch to function
		plb
		rtl

		export	dev_mgr_fail
dev_mgr_fail
		lda	#bad_system_call
		sec
		rtl
		
		endp
		eject
*****************************************************************
*
* This routine implements the device info call (D_INFO).
* This call is supported in both class 0 and class 1
* environments.
*
* CLASS 0:	Word	Device Number
*		Long	Pointer to output string
*
* CLASS 1:	0 Word	PCount
*		1 Word	Device Number
*		2 Long	Pointer to output string
*		3 Word	Device characteristics
*		4 Long	Block count
*		5 Word	Slot Number
*		6 Word	Unit Number
*		7 Word	Version Number
*		8 Word	Device ID Number
*		9 Word	Head Device Link
*		A Word	Forward Device Link
*		B Long	Extended DIB Pointer
*		C Word	DIB Device Number
*
* ENTRY:        A Reg = Unspecified
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Unspecified
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:         A Reg = Error Code
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Unspecified
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ 0  0 = no error
*                       ¥ ¥ 0 0 0 ¥ ¥ 1  0 = error
*
*****************************************************************
		export	d_info		
d_info		proc
		longa	on
		longi	on

		lda	<call_number		; what class call is this?
		and	#$E000
		bne	c1_d_info		; branch if a class 1 call
		lda	[<param_blk_ptr]
		bne	c0_dev_num_ok
		lda	#invalid_dev_num
		sec
		rts
*
* It's a class 0 call if got here.  Only need to return the
* device's name in the caller's buffer.
*
c0_dev_num_ok
		ldy	#$0000			; no pcount for class 0
get_dev_name
		lda	[<param_blk_ptr],y
*
* The following code was added to reduce OS overhead by eliminating calls to
* the device dispatcher via the language card dispatcher.
*
		jsr	set_dib_pointer		; set GS/OS DIB pointer
		bcc	good_dev_num		; if valid device number
		rts				; else exit with error
good_dev_num
		iny				; set pointer to device name buffer
		iny
		lda	[<param_blk_ptr],y
		sta	<drvr_buf_ptr
		iny
		iny
		lda	[<param_blk_ptr],y
		sta	<drvr_buf_ptr+2
		ora	<drvr_buf_ptr		; is it a NIL pointer
		beq	name_copied		; yes then don't copy name
		sep	#$30			; 8 bit 'm' & 'x'
		longa	off
		longi	off
		ldy	#dev_name		; point at device name length
		ldx	#$00			; caller's buffer pointer
*
* Copy device name length.
*
		lda	[<drvr_dib_ptr],y
		phy
		txy
		sta	[<drvr_buf_ptr],y
		ply
*
* Point at next character but leave space for a '.' to
* be inserted prior to the actual device name.
*
		iny
		inx
		inx
copy_dev_name
		lda	[<drvr_dib_ptr],y
		phy
		txy
		sta	[<drvr_buf_ptr],y
		ply
		iny
		inx
		txa
		dec	a
		cmp	[<drvr_buf_ptr]
		beq	copy_dev_name
		blt	copy_dev_name
		
		ldy	#$0001			; now insert the '.' & adjust length
		lda	#$2E
		sta	[<drvr_buf_ptr],y
		lda	[<drvr_buf_ptr]
		inc	a
		sta	[<drvr_buf_ptr]
		
		rep	#$30			; 16 bit 'm' & 'x'
		longa	on
		longi	on
		
name_copied
		lda	#no_error
		clc
		rts

		eject
*****************************************************************
*
* A class 1 D_INFO call will issue a device status call to the
* device since the block count contained in the DIB is a dynamic
* parameter updated by the device status call.
*
* CLASS 1:	0 Word	PCount
*		1 Word	Device Number
*		2 Long	Pointer to output string
*		3 Word	Device characteristics
*		4 Long	Block count
*		5 Word	Slot Number
*		6 Word	Unit Number
*		7 Word	Version Number
*		8 Word	Device ID Number
*		9 Word	Head Device Link
*		A Word	Forward Device Link
*		B Long	Extended DIB Pointer
*
*****************************************************************
c1_d_info
		lda	[<param_blk_ptr]
		cmp	#$000C			; check pcount in range
		blt	good_pcnt		; branch if pcount ok
d_info_bad_p
		lda	#invalid_pcount		; else exit with error
		sec
		rts
*
* Call has a legal PCount.  See if pcount specifies that the block
* count is to be returned.  If so, issue a status call to update the
* block count in the DIB for current online media prior to returning
* contents of the DIB.
*
good_pcnt
		cmp	#$0002			; is it less than the minimum pcount
		blt	d_info_bad_p		; yes, then invalid pcount
		ldy	#$0002			; is device number for a device?
		lda	[<param_blk_ptr],y
		bne	non_zero_dev		; maybe, let's try it and find out!
		lda	#invalid_dev_num	; zero is not a valid device number!!!
		sec
		rts
non_zero_dev
		lda	[<param_blk_ptr]
		cmp	#$0004			; does pcount include block count?
		bge	do_dev_stat		; yes
*
* Block count is not being requested.  Just verify the device number
* prior to returning requested DIB parameters.  The following code has
* been modified to reduce OS overhead by eliminating unneccessary calls 
* through the language card dispatcher.
*
		ldy	#$0002
		lda	[<param_blk_ptr],y
		jsr	set_dib_pointer		; set GS/OS DIB pointer
		bcc	dev_num_ok		; if valid device number
		rts				; else exit with error
*
* Block count has been requested.  Issue a device status call to update
* the block count in the DIB prior to returning the requested DIB
* parameters.
*
do_dev_stat
		ldy	#$0002			; at minimum, return device name
get_c1_name
		lda	[<param_blk_ptr],y
		sta	<drvr_dev_num		; set device number from param block
		jsl	get_sys_buf		; point at internal system buffer
		stx	<drvr_slist_ptr
		stz	<drvr_slist_ptr+2
		lda	#drvr_dev_stat		; status code = device status
		sta	<drvr_stat_code
		lda	#$0006			; request count = $00000006
		sta	<drvr_req_cnt
		stz	<drvr_req_cnt+2
		lda	#512			; specify block size for status
		sta	<drvr_blk_size
		lda	#drvr_status		; issue a blind status call
		sta	<drvr_call_num		; (this updates block count in DIB)
		jsl	dev_dispatcher
		bcc	dev_num_ok
		and	#$00FF

*  8/11/88 fab changed error from dev_not_found to invalid_dev_num

		cmp	#invalid_dev_num 	; v00.17 b01

		bne	dev_num_ok
		sec
		rts
*
* Device number is OK.  Return the DIB parameters as requested.
*
* Copy parameters from DIB as specified by P-Count.
*
dev_num_ok
		lda	#2
		sta	|cur_param
check_done
		lda	|cur_param		; have all parameters been passed?
		cmp	[<param_blk_ptr]
		beq	dib_done		; yes
		inc	a			; else point at next parameter
		sta	|cur_param
		asl	a
		tax
		lda	|p_blk_offset,x		; get offset in parameter block
		sta	|parm_offset
		lda	|p_width,x		; get length of next parameter
		sta	|cur_length
		lda	|p_offset,x		; get DIB offset for parameter
		sta	|dib_parm_offset
c1_parm_loop
		ldy	|dib_parm_offset
		lda	[<drvr_dib_ptr],y	; get parameter from DIB
		ldy	|parm_offset
		sta	[<param_blk_ptr],y	; and pass to caller's parameter block
		inc	|dib_parm_offset	; point at next DIB parameter
		inc	|dib_parm_offset
		inc	|parm_offset		; point at next parameter block parameter
		inc	|parm_offset
		dec	|cur_length		; decrement remaining length by word
		dec	|cur_length
		bne	c1_parm_loop
		bra	check_done

*
* Now that all of the numeric parameters have been copied to the user's parameter block,
* copy the device name to the supplied buffer, but only if a buffer has been supplied and
* only if the supplied buffer is large enough.
*
dib_done		
		ldy	#$0004			; set pointer to device name buffer
		lda	[<param_blk_ptr],y
		sta	<drvr_buf_ptr
		iny
		iny
		lda	[<param_blk_ptr],y
		sta	<drvr_buf_ptr+2
		ora	<drvr_buf_ptr		; is it a NIL pointer
		beq	d_info_exit		; yes then don't copy name
		lda	[<drvr_buf_ptr]		; is buffer size zero?
		cmp	#$0004			; is buffer size big enough for length?
		blt	d_info_exit		; no, then don't copy name
		ldy	#dev_name		; else let's set the string length
		lda	[<drvr_dib_ptr],y
		and	#$001F
		inc	a			; account for additional '.' character
		sta	|name_length
		ldy	#$0002
		sta	[<drvr_buf_ptr],y
		clc
		adc	#3			; account for size words
		cmp	[<drvr_buf_ptr]		; compare to size of supplied buffer
		bcc	will_fit		; buffer is large enough, copy name
		lda	#buff_too_small		; else return the error
		rts				; (carry is already set)

*
* Point at 1st character but leave space for a '.' to
* be inserted prior to the actual device name.
*
will_fit
		sep	#$30			; 8 bit 'm' & 'x'
		longa	off
		longi	off
		ldy	#dev_name+1		; point at 1st name character
		ldx	#$05			; caller's buffer pointer
copy_c1_name
		lda	[<drvr_dib_ptr],y
		phy
		txy
		sta	[<drvr_buf_ptr],y
		ply
		iny				; point next DIB character
		txa
		inx				; point next caller's buffer
		dec	a
		dec	a
		dec	a
		cmp	|name_length		; has entire string been moved?
		blt	copy_c1_name		; no
*
* Name is copied.  Insert a '.' at head of string.
*
		ldy	#$04			; now insert the '.' & adjust length
		lda	#$2E
		sta	[<drvr_buf_ptr],y
		rep	#$30			; 16 bit 'm' & 'x'
		longa	on
		longi	on

d_info_exit	clc
		lda	#no_error
		rts

cur_param	dc.w	0
cur_length	dc.w	0
parm_offset	dc.w	0
dib_parm_offset	dc.w	0

p_width		dc.w	2	; parameter 0 = (w)  pcount
		dc.w	2	; parameter 1 = (w)  device number
		dc.w	2	; parameter 2 = (lw) device name pointer
		dc.w	2	; parameter 3 = (w)  device characteristics
		dc.w	4	; parameter 4 = (lw) block count
		dc.w	2	; parameter 5 = (w)  slot number
		dc.w	2	; parameter 6 = (w)  unit number
		dc.w	2	; parameter 7 = (w)  version number
		dc.w	2	; parameter 8 = (w)  device ID number
		dc.w	2	; parameter 9 = (w)  head link
		dc.w	2	; parameter A = (w)  forward link
		dc.w	4	; parameter B = (lw) extended DIB pointer
		dc.w	2	; parameter C = (w)  DIB device number

p_offset	dc.w	$0000	; parameter 0 = (w)  pcount
		dc.w	$0000	; parameter 1 = (w)  device number
		dc.w	$000E	; parameter 2 = (32) device name pointer
		dc.w	$0008	; parameter 3 = (w)  device characteristics
		dc.w	$000A	; parameter 4 = (lw) block count
		dc.w	$002E	; parameter 5 = (w)  slot number
		dc.w	$0030	; parameter 6 = (w)  unit number
		dc.w	$0032	; parameter 7 = (w)  version number
		dc.w	$0034	; parameter 8 = (w)  device ID number
		dc.w	$0036	; parameter 9 = (w)  head link
		dc.w	$0038	; parameter A = (w)  forward link
		dc.w	$003A	; parameter B = (lw) extended DIB pointer
		dc.w	$003E	; parameter C = (w)  DIB device number
		
p_blk_offset
		dc.w	$0000	; pcount
		dc.w	$0002	; device number
		dc.w	$0004	; device name pointer
		dc.w	$0008	; device characteristics
		dc.w	$000A	; block count
		dc.w	$000E	; slot number
		dc.w	$0010	; unit number
		dc.w	$0012	; version number
		dc.w	$0014	; device ID number
		dc.w	$0016	; head device link
		dc.w	$0018	; forward device link
		dc.w	$001A	; extended DIB pointer
		dc.w	$001C	; DIB device number
		
		endp
		eject
*****************************************************************
*
* This routine provides applications direct access to a device
* through the status call.  This routine is responsible for
* setting up the device driver environment prior to dispatching
* to the device driver via the device dispatcher.
*
* The minimum pcount for status is $0005 indicating that the
* following parameters are required.
*
*               word    input           pcount
*               word    input           device number
*               word    input           control code
*               long    input           control list pointer
*               long    input           request count
*               long    output          transfer count
*
* ENTRY:        A Reg = Unspecified
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Unspecified
*             Dir Reg = GS/OS Direct Page
*               P Reg = full native mode (16 bit 'm' & 'x')
*
* EXIT:         A Reg = Error Code
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Unspecified
*             Dir Reg = GS/OS Direct Page
*               P Reg = full native mode
*                       c=0 if no error occured
*                       c=1 if error occured
*
*****************************************************************
		export	d_status	
d_status	proc
		longa	on
		longi	on

*
* The code required to implement the D_STATUS call is
* identical to the code required to implement the
* D_CONTROL call.  Just fall through to D_CONTROL.
*

		endp
		eject
*****************************************************************
*
* This routine provides applications direct access to a device
* through the control call.  This routine is responsible for
* setting up the device driver environment prior to dispatching
* to the device driver via the device dispatcher.
*
* The minimum pcount for control is $0005 indicating that the
* following parameters are required.
*
*               word    input           pcount
*               word    input           device number
*               word    input           control code
*               long    input           control list pointer
*               long    input           request count
*               long    output          transfer count
*
* ENTRY:        A Reg = Unspecified
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Unspecified
*             Dir Reg = GS/OS Direct Page
*               P Reg = full native mode (16 bit 'm' & 'x')
*
* EXIT:         A Reg = Error Code
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Unspecified
*             Dir Reg = GS/OS Direct Page
*               P Reg = full native mode
*                       c=0 if no error occured
*                       c=1 if error occured
*
*****************************************************************
		export	d_control
d_control	proc
		longa	on
		longi	on

		lda	<call_number		; is this a class 1 call?
		and	#$E000
		bne	d_ctrl			; branch if class 1
		
		lda	#bad_system_call
		sec
		rts
*
* Only class 1 is supported by this call.  Class 2 through 7
* have already been parsed out by the main entry point to the
* device manager.
*
d_ctrl		lda	[<param_blk_ptr]
		cmp	#$0005
		beq	do_d_ctrl		; branch if pcnt ok
		lda	#invalid_pcount		; else exit with invalid pcount error
d_control_error	sec				;6-Mar-93 JCM
d_invalid	rts				;6-Mar-93 JCM
		
*
* Parameter count is correct.  Issue device status call.  Maybe.
*
do_d_ctrl	ldy	#$0002
		lda	[<param_blk_ptr],y	; get target device number
		sta	<drvr_dev_num		; device number
		jsr	set_dib_pointer		; set GS/OS DIB pointer
		bcs	d_invalid		; if invalid device number
			
		iny
		iny
		lda	[<param_blk_ptr],y
		sta	<drvr_ctrl_code		; control code
		iny
		iny
		lda	[<param_blk_ptr],y
		sta	<drvr_clist_ptr		; control list pointer
		iny
		iny
		lda	[<param_blk_ptr],y
		sta	<drvr_clist_ptr+2
		ora	<drvr_clist_ptr		; is it a NIL pointer?
		bne	not_nil_ptr		; no
*
* REVISED 4/6/89 version 5.0 d18 by RBM as requested by Greg Branche.
*
* Check if NIL control list pointer is allowed based on
* the status or control call.
*
		lda	<call_number		; is this a status call?
		ror	a
		bcs	invalid_nil_ptr		; yes, all status calls require a status list ptr
		
		lda	<drvr_ctrl_code		; is it a reset, format or eject call?
		cmp	#$0003
		blt	not_nil_ptr		; yes, NIL control list pointer is valid
invalid_nil_ptr
		lda	#drvr_bad_parm		; else bad parameter error
		sec
		rts
not_nil_ptr
		iny
		iny
		lda	[<param_blk_ptr],y
		sta	<drvr_req_cnt		; request count
		iny
		iny
		lda	[<param_blk_ptr],y
		sta	<drvr_req_cnt+2

* 6-Mar-93 JCM - We now check bit $0010 of the specified device's characteristics word to determine if
*		 it can handle calls that were not defined before 6.0.1. We shouldn't have had to have
*		 done this since the guidelines say drivers are to return errors for calls they don't
*		 know about, but when do developers read documentation? RamFAST is a fine example of
*		 a driver that does random things for previously undefined status and control codes.
		
		ldy	#dev_char		; pointer to DIB device characteristics
		lda	[<drvr_dib_ptr],y	; get the device characteristics
		and	#$0010			; get "driver is clean" bit (driver follows guidelines)
		pha				; save for either d_control or d_status

		lda	<call_number
		ror	a
		bcc	is_control

		ldx	#drvr_status		; we're doing a D_Status call

		pla				; "driver is clean" characteristics bit
		bne	set_call_num		; driver can accept any call

		lda	<drvr_ctrl_code
		bmi	set_call_num		; pass all device-specific calls on to the driver

		cmp	#5			; maximum DStatus code + 1 (ReturnPartitionMap)
		blt	set_call_num		; driver should be able to handle the standard calls

return_bad_code	lda	#drvr_bad_code
		
		bra	d_control_error
		
is_control	ldx	#drvr_control		; else prepare for control call
		
		pla				; "driver is clean" characteristics bit
		bne	is_call_format		; driver can take any call
		
		lda	<drvr_ctrl_code
		bmi	set_call_num		; pass all device-specific calls on to the driver
		
		cmp	#10			; maximum DControl code + 1 (SetPartitionMap)
		bge	return_bad_code

is_call_format	lda	<drvr_ctrl_code		; is it a format call?
		dec	a
		bne	set_call_num		; no
		
		jsl	set_disksw		; yes, delete all blocks from the cache
set_call_num
		stx	<drvr_call_num
		jsl	dev_dispatcher
		tax				; save error code
		ldy	#$000E			; return transfer count
		lda	<drvr_tran_cnt
		sta	[<param_blk_ptr],y
		iny
		iny
		lda	<drvr_tran_cnt+2
		sta	[<param_blk_ptr],y
		txa				; restore error code
		rts				; return with device status

		endp
		eject
*****************************************************************
*
* This routine executes the read function directly to from
* device.  It is responsible for setting up the environment
* for the device driver prior to dispatching to the device
* driver via the device dispatcher.
*
* ENTRY:        A Reg = Unspecified
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Unspecified
*             Dir Reg = GS/OS Direct Page
*               P Reg = full native mode (16 bit 'm' & 'x')
*
* EXIT:         A Reg = Error Code
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Unspecified
*             Dir Reg = GS/OS Direct Page
*               P Reg = full native mode
*                       c=0 if no error occured
*                       c=1 if error occured
*
*****************************************************************
		export	d_read		
d_read		proc
		longa	on
		longi	on

*
* The code neccessary to implement D_READ is identical to that
* required to implement D_WRITE.  Just fall into the D_WRITE
* call.
*
		endp
		eject
*****************************************************************
*
* This routine executes the write function directly to the
* device.  It is responsible for setting up the environment
* for the device driver prior to dispatching to the device
* driver via the device dispatcher.
*
* ENTRY:        A Reg = Unspecified
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Unspecified
*             Dir Reg = GS/OS Direct Page
*               P Reg = full native mode (16 bit 'm' & 'x')
*
* EXIT:         A Reg = Error Code
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Unspecified
*             Dir Reg = GS/OS Direct Page
*               P Reg = full native mode
*                       c=0 if no error occured
*                       c=1 if error occured
*
*****************************************************************
		export	d_write		
d_write		proc
		longa	on
		longi	on

		lda	<call_number		; is this a class 1 call?
		and	#$E000
		bne	d_wr			; branch if class 1
		
		lda	#bad_system_call
		sec
		rts

bad_pcount
		lda	#invalid_pcount		; else exit with invalid pcount error
		sec
		rts

d_invalid	lda	#invalid_dev_num
		sec
		rts

bad_parm
		lda	#drvr_bad_parm		; else bad parameter error
		sec
		rts
*
* Only class 1 is supported by this call.  Class 2 through 7
* have already been parsed out by the main entry point to the
* device manager.
*
d_wr		lda	[<param_blk_ptr]
		cmp	#$0006
		bne	bad_pcount		; pcount no good!
*
* Issue device write call.
*
do_d_write	ldy	#$0002			; setup for device status call
		lda	[<param_blk_ptr],y	; get target device number
		beq	d_invalid		; cant call device $0000
not_d_invalid
		sta	<drvr_dev_num		; device number
		iny
		iny
		lda	[<param_blk_ptr],y
		sta	<drvr_buf_ptr		; buffer pointer
		iny
		iny
		lda	[<param_blk_ptr],y
		sta	<drvr_buf_ptr+2
		ora	<drvr_buf_ptr		; is it a NIL pointer
		beq	bad_parm
		
not_nil
		iny
		iny
		lda	[<param_blk_ptr],y
		sta	<drvr_req_cnt		; request count
		iny
		iny
		lda	[<param_blk_ptr],y
		sta	<drvr_req_cnt+2		; request count
		iny
		iny
		lda	[<param_blk_ptr],y
		sta	<drvr_blk_num		; block number
		iny
		iny
		lda	[<param_blk_ptr],y
		sta	<drvr_blk_num+2		; block number
		iny
		iny
		lda	[<param_blk_ptr],y
		sta	<drvr_blk_size		; block size
		beq	no_cache_stuff		; yes, no system service required
		
		jsl	cache_del_vol		; mark internal data structures as if a switch...
		lda	<drvr_dev_num		; had occurred to preserve system.
		jsl	swap_out
*
* Parameter block is set up.  Purge any blocks in the cache for this
* volume and set the cache priority to zero prior to issuing a call
* to read or write from or to the device.
*
no_cache_stuff
		stz	<drvr_cache		; cache priority = 0000
		stz	<drvr_fst_num		; no FST is accessing device
*
* Now it's save to access the device.  Go ahead and dispatch to device.
*
		ldx	#drvr_write		; assume it's a write call
		lda	<call_number
		and	#$000F
		beq	set_call_num		; assumed correct
		dex				; else prepare for read call
set_call_num
		stx	<drvr_call_num
		jsl	dev_dispatcher
		tax				; preserve read/write error status
*
* Send transfer count back to caller.
*
		ldy	#$0012
		lda	<drvr_tran_cnt
		sta	[<param_blk_ptr],y
		iny
		iny
		lda	<drvr_tran_cnt+2
		sta	[<param_blk_ptr],y
		txa				; restore read/write error status
		rts
		
		endp
		
		eject
*****************************************************************
*
* This routine implements the device info call (D_INFO).
*
* Note that this call can only be issued from a CDEV or INIT.
* Dynamic renaming causes too many management problems for
* prefix 10,11 and 12 which are used for I/O redirection.
*
* Note that dynamic renaming is not supported if the target
* device is the console driver.  The console driver is a
* mandatory component of the operating system and as such is
* not dynamic in nature.  The target device name will be 
* converted to upper case prior to renaming the target.
*
* CLASS 0:      Not Supported!!!
*
* CLASS 1:    0 Word    PCount (Minimum = Maximum = $0002)
*             1 Word    Device Number
*             2 Long    Pointer to replacement string
*
* ENTRY:        A Reg = Unspecified
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Unspecified
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:         A Reg = Error Code
*               X Reg = Unspecified
*               Y Reg = Unspecified
*               B Reg = Unspecified
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ 0  0 = no error
*                       ¥ ¥ 0 0 0 ¥ ¥ 1  0 = error
*
* Valid error codes that can be returned from this call are:
*
*	$0004 = Invalid PCount
*	$0011 = Invalid Device Number
*	$0067 = Duplicate Device
*	$0053 = Parameter Range Error
*	$0029 = Driver Busy (cannot be renamed)
*
*****************************************************************
		export	d_rename		
d_rename	proc
		longa	on
		longi	on
		
		lda	<call_number		; is this a class 1 call?
		and	#$E000
		bne	d_rename_c1		; branch if class 1
		lda	#bad_system_call
		sec
		rts
*
* Only class 1 is supported by this call.  Class 2 through 7
* have already been parsed out by the main entry point to the
* device manager.
*
d_rename_c1 
		lda	[<param_blk_ptr]	; pcount must be 2 for this call
		cmp	#$0002
		beq	do_rename_c1		; branch if pcnt ok
		
		lda	#invalid_pcount		; else exit with invalid pcount error
		sec
		rts
*
* Parameter count is correct.  Check if the new name is a duplicate name.
*
do_rename_c1
		ldy	#$0004			; Set pointer to replacement name
		lda	[<param_blk_ptr],y
		sta	<drvr_clist_ptr
		iny
		iny
		lda	[<param_blk_ptr],y
		sta	<drvr_clist_ptr+2
		
		lda	[<drvr_clist_ptr]	; make class 1 string like offset pstring
		xba
		sta	[<drvr_clist_ptr]
		xba
		cmp	#32			; check replacement string length
		bge	wrong_length
		tay
		beq	wrong_length
		
		sep	#$20			; 8 bit 'm'
		longa	off
		
		ldy	#$0001			; copy name to buffer
copy_name_loop
		lda	[<drvr_clist_ptr],y
		cmp	#$61			; is it a lower case alpha?
		blt	not_alpha		; no
		cmp	#$7B
		bge	not_alpha		; no
		and	#$DF			; else make it upper case
not_alpha
		sta	|new_name-1,y
		iny
		cpy	#33
		bne	copy_name_loop
		
		rep	#$20			; 16 bit 'm'
		longa	off
		
*
* Search entire device list checking existing names against the replacement
* name.  If a duplicate name is detected then return a DUPE_DEVICE error $0067.
*
		lda	[<drvr_dev_ptr]		; get last device number
		inc	a			; point one past the last device
		sta	<drvr_dev_num		; and start the name search
dup_chk_loop
		dec	<drvr_dev_num		; point at previous device
		beq	dup_chk_done		; if no more devices
		jsr	set_dib_ptr		; point at dup check dib
		
		sep	#$30			; 8 bit 'm' & 'x'
		longa	off
		longi	off
		
		ldy	#dev_name
		ldx	#0
name_chk_loop
		lda	[<drvr_dib_ptr],y	; character from DIB device name
		cmp	|new_name,x		; check against replacement name
		bne	not_same_name
		iny
		inx
		cpx	|new_name		; compare until mismatch or end of string
		blt	name_chk_loop
		beq	name_chk_loop
*
* Name is same as existing device.  Is existing device the target
* device (are we naming something to it's current name)?
* CHANGED 5.00 D 20 (April 25, 1989 by RBM).
*
		lda	<drvr_dev_num
		ldy	#2
		cmp	[<param_blk_ptr],y
		beq	name_chk_loop		; same device, continue search
		
		sec				; else, error if name matched different device
		lda	#dup_device
		bra	name_chk_done
not_same_name
		clc				; no error if name mismatched
name_chk_done
		rep	#$30			; 16 bit 'm' & 'x'
		longa	on
		longi	on
		
		bcs	rename_done		; if it's a duplicate name
		bcc	dup_chk_loop		; if not a duplicate

wrong_length
		lda	#parm_range_err
		sec
		bra	rename_done

*
* The requested name is not already assigned to an existing device.
* Set the DIB pointer for the target device to be renamed.
*
dup_chk_done
		ldy	#$0002			; get device number to set DIB pointer
		lda	[<param_blk_ptr],y
		sta	<drvr_dev_num
		jsr	set_dib_pointer
		bcs	rename_done
		
		ldy	#dev_char		; can the device be renamed?
		lda	[<drvr_dib_ptr],y
		and	#$0400
		beq	can_rename
		sec				; device cannot be renamed
		lda	#invalid_access
		bra	rename_done		

can_rename
		sep	#$30			; 8 bit 'm' & 'x'
		longa	off
		longi	off
		
		ldy	#dev_name
		ldx	#0
rename_dib
		lda	|new_name,x		; replacement name (pstring)
		sta	[<drvr_dib_ptr],y
		iny
		inx
		cpx	|new_name
		blt	rename_dib
		beq	rename_dib
		lda	#' '
space_loop
		cpy	#slot_num		; do spaces need to be added?
		bge	no_spaces
		sta	[<drvr_dib_ptr],y
		iny
		bra	space_loop
no_spaces
		rep	#$30			; 16 bit 'm' & 'x'
		longa	on
		longi	on
		
		lda	#no_error
		clc
rename_done
		php
		pha
		lda	[<drvr_clist_ptr]	; restore class 1 string
		xba
		sta	[<drvr_clist_ptr]
		pla
		and	#$00FF
		plp
		rts

new_name	dc.b	0			; length of replacement name
		ds	32			; ascii replacement name
		
		endp

		eject
****************************************************************
*
* The following routine checks that a requested slot selection
* is valid.  If so, the requested slot is selected and the
* appropriate screen holes are copied in prior to passing
* control back to the calling routine.
*
* NOTE:  No dynamic slot selection occurs at this time.
*
* ENTRY: via a 'JSL'
*               A Reg = %000000000000xxxx Requested slot
*               	%100000000000xxxx NULL request
*               	%000000010000xxxx Save current as default configuration
*               	%000000100000xxxx Restore default configuration
*               	%000000110000xxxx Restore bit encoded configuration
*               X Reg = Undefined or bit encoded configuration
*  ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___
* |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |
* | F | E | D | C | B | A | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 |
* |___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |_ 0
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |_____ 1 = slot 1 active
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |_________ 1 = slot 2 active
*   |   |   |   |   |   |   |   |   |   |   |   |   |_____________ 1 = slot 3 active
*   |   |   |   |   |   |   |   |   |   |   |   |_________________ 1 = slot 4 active
*   |   |   |   |   |   |   |   |   |   |   |_____________________ 1 = slot 5 active
*   |   |   |   |   |   |   |   |   |   |_________________________ 1 = slot 6 active
*   |   |   |   |   |   |   |   |   |_____________________________ 1 = slot 7 active
*   |   |   |   |   |   |   |   |_________________________________ 0
*   |   |   |   |   |   |   |_____________________________________ 1 = slot 9 active
*   |   |   |   |   |   |_________________________________________ 1 = slot A active
*   |   |   |   |   |_____________________________________________ 1 = slot B active
*   |   |   |   |_________________________________________________ 1 = slot C active
*   |   |   |_____________________________________________________ 1 = slot D active
*   |   |_________________________________________________________ 1 = slot E active
*   |_____________________________________________________________ 1 = slot F active
*
*               Y Reg = Undefined
*               B Reg = Undefined
*             Dir Reg = GS/OS Direct Page
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT: via an 'RTL'
*               A Reg = Error code
*               X Reg = bit encoded slot configuration
*               Y Reg = Unspecified
*               B Reg = Unchanged
*             Dir Reg = Unchanged
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ 0  0   If slot was granted
*                       ¥ ¥ 0 0 0 ¥ ¥ 1  0   If slot was not granted
*
****************************************************************
		export	slot_arbiter
slot_arbiter	proc
		longa	on
		longi	on

		phb				; need my data bank $E0 for I/O access
		phk
		plb

		clc				; assume not a slot request
		tay
		and	#$0300			; is request for bit encoded configuration?
		bne	exit			; yes
		tya
		
		sep	#$30			; 8 bit 'm' & 'x'
		longa	off
		longi	off

		sta	|slot_req		; save requested slot selection
		and	#$07			; strip external bit
		beq	bad_sel			; slot 0 or 8 not valid

		cmp	#$03			; slot 3 is a special case
		beq	slot3_req

		tay				; is current slot external?
		lda	>sltromsel
loop
		ror	a
		dey
		bpl	loop			; c=1 if external on loop exit

check_slot
		lda	|slot_req		; was request for an external
		and	#$08
		bcs	chk_if_ext		; yes
		bne	bad_sel			; if is int. but requested ext.

good_sel
		clc				; must be what was requested
		bra	exit

chk_if_ext
		bne	good_sel

bad_sel
		sec
exit
		php				; preserve error flag
		
		sep	#$20			; 8 bit 'm'	(3/20/89 RBM)
		longa	off
		
		lda	>sltromsel		; get slot
		pha				; and create bit encoded configuration
		xba
		pla
		plp				; restore error flag

		rep	#$30
		longa	on
		longi	on

		eor	#$00FF			; complete bit encoded configuration
		and	#$FEFE
		tax
		lda	#no_error		; assume no error occured
		bcc	real_exit		; if assumed correct
		lda	#dev_not_found		; else cant grant the requested slot
real_exit
		plb
		rtl

slot3_req
		longa	off
		longi	off

		lda	>rdc3rom		; need slot 3 selection
		rol	a
		bra	check_slot		; c=1 if slot 3 is external
		
		endp

		eject
****************************************************************
*
* This routine sets the system speed in preperation for
* calling a speed dependent device driver.  Speed settings
* are in the least significant two bits of the accumulator
* defined as follows:
*
*               00      1.0  mHz
*               01      2.6  mHz
*               10      >2.6 mHz
*               11      Not speed dependent (no change)
*
* ENTRY: via a 'JSL'
*               A Reg = Requested speed
*               X Reg = Undefined
*               Y Reg = Undefined
*               B Reg = Undefined
*             Dir Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:         A Reg = Speed prior to requested change
*               X Reg = Undefined
*               Y Reg = Unchanged
*               B Reg = Unchanged
*             Dir Reg = Unchanged
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
****************************************************************
		export	gsos_speed
gsos_speed	proc
		longa	on
		longi	on

		and	#$0003			; mask unwanted bits
		sta	>current_speed		; update current speed
		cmp	#$0003			; any change?
		beq	speed_exit		; no
		cmp	#$0002			; >2.6 mhz?
		bne	range_ok		; yes, cant do that yet!!!
		dec	a			; so try 2.6 mhz
range_ok
		sep	#$20			; 8 bit 'm'
		longa	off
		tay				; save next speed setting
		lda	>cyareg			; get current setting
		and	#%10000000
		clc
		rol	a
		rol	a
		tax				; X = previous speed
		tya
		beq	set_slow
		lda	#%10000000		; set fast speed
		ora	>cyareg
		sta	>cyareg
		bra	keep_previous
set_slow
		lda	>cyareg			; set slow speed
		and	#%01111111		; set slow speed
		sta	>cyareg
keep_previous
		txa				; and keep previous speed
		rep	#$20			; 16 bit 'm'
		longa	on
speed_exit
		and	#$0003
		rtl

		endp


		eject
****************************************************************
*
* This routine sets the DIB pointer on GS/OS direct page for
* the device specified in the A register.
*
* ENTRY: via a 'JSL'
*               A Reg = Device Number
*               X Reg = Undefined
*               Y Reg = Undefined
*               B Reg = Undefined
*             Dir Reg = Undefined
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ ¥  0
*
* EXIT:         A Reg = Error code
*               X Reg = Unchanged
*               Y Reg = Unchanged
*               B Reg = Unchanged
*             Dir Reg = Unchanged
*               P Reg = N V M X D I Z C  E
*                       ¥ ¥ 0 0 0 ¥ ¥ 0  0    If no error 
*                       ¥ ¥ 0 0 0 ¥ ¥ 1  0    If error
*
****************************************************************
		export	set_dib_pointer
set_dib_pointer	proc
		longa	on
		longi	on

;;;		cmp	#$0000			; is this a legal device number?
		inc	a			;6-Mar-93 JCM
		dec	a			;6-Mar-93 JCM
		bne	maybe_legal		; it might be, lets check range...
past_last_dev
		lda	#invalid_dev_num
		sec
		rts
maybe_legal
		cmp	[<drvr_dev_ptr]		; is this a legal device number?
		beq	dev_in_range		; yes
		bge	past_last_dev		; no
dev_in_range
		phy
		dec	a			; set pointer to DIB
		sec
		rol	a
		asl	a
		asl	a
		tay
		lda	[<drvr_dev_ptr],y
		sta	<drvr_dib_ptr
		iny
		iny
		lda	[<drvr_dev_ptr],y
		sta	<drvr_dib_ptr+2
		ply
		lda	#no_error		; exit with no error
		clc
		rts

		endp
		
		eject
;****************************************************************
;*
;* Hey, someone had to put our names somewhere!!!
;*
;****************************************************************
;		export	os_names
;os_names	proc
;
;		dc.b	'The GS/OS 6.0 Engineering Team',$0D,$0D
;		dc.b	'The Bosses',$09,'F. Bachman & L. Collings',$0D
;		dc.b	'System Control Manager',$09,'C. Farrier & G. Branche',$0D
;		dc.b	'ProDOS FST',$09,'C. Ewy',$0D
;		dc.b	'ExpressLoad',$09,'G. Branche',$0D
;		dc.b	'High Sierra FST',$09,'C. Ewy',$0D
;		dc.b	'Character FST',$09,'C. Ewy',$0D
;		dc.b	'Console Driver',$09,'G. Branche',$0D
;		dc.b	'GLoader & GQuit',$09,'G. Branche',$0D
;		dc.b	'Device Manager',$09,'G. Branche',$0D
;		dc.b	'Device Dispatcher',$09,'G. Branche',$0D
;		dc.b	'Bank Zero Dispatcher',$09,'G. Branche',$0D
;		dc.b	'Generated Drivers',$09,'G. Branche',$0D
;		dc.b	'AppleDisk3.5 Driver',$09,'J. Arkley, G. Branche',$0D
;		dc.b	'UniDisk3.5 Driver',$09,'G. Branche',$0D
;		dc.b	'AppleDisk5.25 Driver',$09,'M. Stein, G. Branche',$0D
;		dc.b	'AppleShare FST',$09,'M. Day',$0D
;		dc.b	'AppleShare Drivers',$09,'M. Day',$0D
;		dc.b	'Cache Manager',$09,'R. Chiang, Rob Turner',$0D
;		dc.b	'SCSI Manager',$09,'M. Gulick',$0D
;		dc.b	'SCSI HD & CD ROM Disk',$09,'M. Gulick',$0D
;		dc.b	'System Loader',$09,'G. Branche',$0D,$00
;		
;		endp

		end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/OS/DeviceDispatcher/be0segr.s.src b/IIGS.601.SRC/GS.OS/OS/DeviceDispatcher/be0segr.s.src
new file mode 100644
index 0000000..ff9785a
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/OS/DeviceDispatcher/be0segr.s.src
@@ -0,0 +1 @@
+*****************************************************************
*
* be0segR
*
* Framework for building load segment b00segR.
*
*****************************************************************
header_length   equ	$30
be0segr_org     equ	$E0E000
be0segr_start	equ	be0segr_org		

		IMPORT	be0segr_end

be0segr_header  PROC	org     be0segr_org-header_length

		msb     on

		DC.W	be0segr_end-be0segr_start
		DC.L	be0segr_org
		DC.W	0000
		DC.B	'Dispatcher            v04.00'
		DC.B	00

		msb     off

		ENDP

			

d_be0segr_dummy PROC	org     be0segr_org
		ENDP
		end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/OS/ErrorMessages/English.src b/IIGS.601.SRC/GS.OS/OS/ErrorMessages/English.src
new file mode 100644
index 0000000..168e0e6
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/OS/ErrorMessages/English.src
@@ -0,0 +1 @@
+		title	'Error Message File--English Version'

;===============================================================================
; Error	message	file.  English version.
;
; Copyright Apple Computer, Inc. 1988,1989.  All rights reserved.
;===============================================================================
;
;  Modification	history:
;
;  01-Feb-88	all	Initial	release
;  15-Feb-88	ADS	strings	added for text mode init pack
;  24-Feb-88	ADS	string 28 added
;  08-Mar-88	JJ	Modified volume	mount message to conform to standard
;			user interface conventions.
;  31-Mar-88	JJ	Make changes to	support	latest definition of
;			AlertWindow
;  14-Jun-88	JJ	Added system shutdown message
;  12-Jul-88	JJ	Added message 34 and modified message 17.
;  01-Aug-88	FAB/MSA	Added message 35 'Soft Error', mod'd message 3
;  25-Oct-88	BPA	Converted to MAX.
;  09-Nov-88	CAE	Added messages 36 and 37 for GLoader.
;  10-Nov-88	CAE	Added messages 38 and 39 for GLoader.
;  08-Dec-88	CAE	Added message 40 for GLoader.
;  21-Dec-88	CAE	Added string 41 for Init Manager.
;  04-Jan-89	CAE	Added message 42 for GLoader.
;  24 Jan 89	RBM	Added device dispatcher strings (text only)
;  25-Jan-89	CAE	Commented out the graphics versions of GLoader's fatal messages
;  07-Feb-89	CAE	Fixed total_size declaration
;  13-Feb-89	CAE	Divided file into PERMANENT and TEMPORARY sections.
;			Moved GLoader's error messages into the TEMPORARY section.
;			Changed total_size variable to perm_size.
;  17-Feb-89	MSD	Added message 47 for AppleTalk not found.
;  23-Feb-89	TGH	Added messages 48-51 for server messages.
;  27-Feb-89  	BPA	Added message 52 for unclaimed interrupts.
;  02-Mar-89	TGH	Added return values to ATALK buttons so they will be
;			displayed in the finder.  (When bit 13 of sys_prefs set.)
;  14-Mar-89	CAE	Changed button return values for message 20.
;			Added messages 53 and 54 for GQuit.
;  15-Mar-89	CAE	Added messages 55 and 56 for GQuit.
;  28-Mar-89	CAE	Added messages 57-59 for GLoader.
;  27-Apr-89	CAE	Changed "volume" to "disk" in 3 messages.
;  11-May-89	CAE	Fixed length byte for m28string.
;  12-May-89	TGH	Added message 60. Not enough memory for AppleTalk.
;  17-May-89	CAE	Removed graphics versions of messages to save space.  
;			Adjusted text versions to work in graphics and text modes.
;  18-May-89	CAE	Replaced "cr" with "space_cr" in most messages so that a
;			space will be used in graphics mode and a carriage return
;			will be used in text mode.  
;			Adjusted sizes of graphics windows.
;  23-May-89	CAE	Added two QuickDraw patches at start of file.
;  06-Feb-91	GAB	Added and/or modified strings used by Init Mgr.
;			Fixed patch used for inline GS/OS entry to adjust the
;			  return address past the call parameters.
;  26-Mar-91	GAB	Removed >65535 unclaimed interrupts message.
;			Resized Volume Mount graphics dialog.
;  30-Jul-91	GAB	Added new GQuit non-fatal dialog, used when an
;			  application fails the InitialLoad.
;  02-Aug-91	GAB	Added new GQuit non-fatal dialog, used when a user
;			  attempts to launch a P8 application from a non-
;			  ProDOS and non-AppleShare volume. (Message 65)
;  27-Sep-91	MSD	Added substitution string *2 to messages 48 and 49 so
;			  that server shutdown messages can display the time
;			  and date the server will or has shut down.
;  28-Oct-91	GAB	Changed message #52 to include a substitution string
;			  so that the actual error number can be displayed.
;  24-Mar-92	DAL	Changed message #65 to read "disks" instead of "volumes".
;  06-Apr-92	MSD	Added messages #66 (no AppleTalk hardware) and #67 (no
;			  AppleTalk driver loaded).  In message #47, changed
;			  "re-boot" to "restart".
;  10-Feb-93 	SS	Added message #68 for the RAM5 driver.
;   2-Mar-93	DAL	Changed the "Untitled" default to "untitled" (for init
;			manager).
;
;===============================================================================

;*******************************************************************************
;
; 	WARNING!!		WARNING!!		WARNING!!				
;
; This file has been divided into PERMANENT and TEMPORARY sections.
; All TEMPORARY error messages are available during INITIAL boot only!!
; They are not available during OS switches or after GLoader has passed 
; control to GQuit to launch the startup application.
; This file is now only loaded by GLoader during the initial boot.
; Just before the startup application is launched, GLoader shrinks the memory
; segment containing this file so that all TEMPORARY error messages are
; no longer available.
; This file is no longer reloaded when switching from ProDOS 8 to GS/OS.
; If an error message must be available while GS/OS is operating or during an OS 
; switch, the message must be placed in the PERMANENT section of this file.
;
; 	WARNING!!		WARNING!!		WARNING!!				
;
;*******************************************************************************


;
; Constants for	window size descriptor (wsd).
;

ws_custom	equ	$30			;custom	window size
ws_2small	equ	$31			;2 lines, smallest width
ws_3small	equ	$32			;3 lines, larger width
ws_4small	equ	$33			;4 lines, larger width
ws_5small	equ	$34			;5 lines, larger width
ws_2medium	equ	$35			;2 lines, larger width
ws_3medium	equ	$36			;3 lines, larger width
ws_4medium	equ	$37			;4 lines, larger width
ws_5large	equ	$38			;5 lines, larger width
ws_6large	equ	$39			;6 lines, largest width

;
; Constants for	icon descriptor	(id).  Not supported by	text version.
;

no_icon		equ	$30
custom_icon	equ	$31
stop_icon	equ	$32
note_icon	equ	$33
caution_icon	equ	$34
disk_icon	equ	$35
disk_swap_icon	equ	$36

;
; Constants for	standard button	titles (bti) of	the form *n.  Standard button
; titles are supported only in the graphics version.

bt_ok		equ	$30
bt_cancel	equ	$31
bt_try_again	equ	$32
bt_yes		equ	$33
bt_no		equ	$34

;
; Constants for	string termination characters.
;

e_null		equ	$00			;null
ht		equ	$09			;horizontal tab
cr		equ	$0D			;carriage return
space_cr	equ	$8D			;space for graphics, carriage return for text
esc		equ	$1B			;escape

;
; console driver control codes
;

saveTxtPort	equ	$01			;save the current text port
setTxtPortSize	equ	$02			;set the text port boundaries
clearBOL	equ	$03			;clear to beginning of line
popTxtPort	equ	$04			;pop text port
hScroll		equ	$05			;horizontal scroll
setVertPosition	equ	$06			;set vertical cursor position
bell		equ	$07			;beep!
backspace	equ	$08			;backspace
tab		equ	$09
linefeed	equ	$0A
clearEOS	equ	$0B			;clear to end of text port
clearScreen	equ	$0C			;clear textport & home cursor
carriageReturn	equ	$0D
normal		equ	$0E			;set display format to normal
inverse		equ	$0F			;set display format to inverse
spaceExpansion	equ	$10			;DLE space expansion
column40	equ	$11			;set 40-column mode
column80	equ	$12			;set 80-column mode
clearBOS	equ	$13			;clear to beginning of text port
setHorzPosition	equ	$14			;set horizontal position
setCursWord	equ	$15			;set cursor movement word
scrollDown	equ	$16			;scroll text down one line
scrollUp	equ	$17			;scroll text up one line
mouseOff	equ	$18			;disable MouseText mapping
homeCursor	equ	$19			;reset cursor to upper left corner
clearLine	equ	$1A			;clear current cursor line
mouseOn		equ	$1B			;enable MouseText mapping
cursorRight	equ	$1C			;move cursor right
clearEOL	equ	$1D			;clear to end of line
gotoxy		equ	$1E			;goto x,y
cursorUp	equ	$1F			;move cursor up

;===============================================================================
; Data structure format:
;
; 1 word	Size of PERMANENT section of this file.
;
; 1 word	Number of error	messages.
;
; 1 word	Offset of first	alert string, text version.
; 1 word	Offset of first	alert string, graphics version.
;
; 1 word	Offset of second alert string, text version.
; 1 word	Offset of second alert string, graphics	version.
; . . .	. . . .	. . . .	. . . .	. . . .	. . . .	. . . .	. . . .	.
;
; 1 word	Offset of nth alert string, text version.
;		Offset of nth alert string, graphics version.
;
; Alert	strings	have the basic format used in Task Master's AlertWindow call,
; with a few additions.	 The format is roughly as follows:
;
; wsd id \ msg \ bt1 \ bt2 \ bt3 stc r1	r2 r3
;
; wsd is the window size descriptor
;
; id is	the icon descriptor
;
; \ is the termination character used to separate succeeding parts of the string
;
; msg is the main alert	message	string.	 It may	contain	any character acceptable
; to LETextBox2	except the termination character.  Special indicators of the
; form *0, *1, ..., *9 are to be replaced by corresponding substitution	strings.
;
; bt1, bt2, and	bt3 are	button titles.	Contrary to the	syntax accepted	by
; alert_window,	default	button titles are not allowed in the file.
;
; stc (the string termination character) is either an ASCII $00	or ASCII $13
;
; The preceding	fields are described completely	in the definition of the
; AlertWindow call.
;
; r1, r2, and r3 are the responses to be returned when the user	presses	the
; first	(left),	second,	or third button, respectively.	Legal values are the
; ASCII	codes for characters 0 through 9 (i.e. $30, $31, ..., $39).
;
;===============================================================================

		EXPORT	error_data
error_data	PROC

		longa	on
		longi	on

;*******************************************************************************
;
; The following 16 bytes are patches for QuickDraw.  When GQuit switches from GS/OS
; to ProDOS 8, the load address of QD_patch1 is stored at the GS/OS stack entry vector
; ($e1/00b0) and the load address of QD_patch2 is stored at the GS/OS normal entry
; vector ($e1/00a8).  This is done so that if a ProDOS 8 application starts up 
; QuickDraw (which is a legal thing to do), the QuickDraw startup routine won't crash
; when it tries to make GS/OS calls (which it shouldn't be doing).  The patches are
; here because they must be in a permanent, non-moveable piece of non-special memory.
; The sizes of these patches are hard-coded in GLoader!  The patches MUST be the
; first thing in the file and MUST be followed by "perm_size".
;
;*******************************************************************************

stack_entry_patch
		lda	1,s		;this patch is 13 bytes long
		sta	7,s
		lda	2,s
		sta	8,s
		pla
		pla
		pla
		bra	patch_exit

inline_entry_patch			;this patch is 13 bytes long
		clc			;update	return address to point	past ...
		lda	1,s		;... call_num and parm_block pointer
		adc	#$0006		;since code can't cross bank boundary,
		sta	1,s		;we only need to increment low word

patch_exit	lda	#$ff
		sec
		rtl

		EXPORT	perm_size
perm_size	DC.W	end_of_perm_msgs-error_data

		EXPORT	message_count
message_count	DC.W	(past_offset_tbl-offset_tbl)/4

;-------------------------------------------------------------------------------

		EXPORT	offset_tbl
offset_tbl 

m0		DC.W	m0text-*
		DC.W	m0text-*

m1		DC.W	m1text-*
		DC.W	m1text-*

m2		DC.W	m2text-*
		DC.W	m2text-*

m3		DC.W	m3text-*
		DC.W	m3text-*

m4		DC.W	m4text-*
		DC.W	m4text-*

m5		DC.W	m5text-*
		DC.W	m5text-*

m6		DC.W	m6text-*
		DC.W	m6text-*

m7		DC.W	m7text-*
		DC.W	m7text-*

m8		DC.W	m8text-*
		DC.W	m8text-*

m9		DC.W	m9text-*
		DC.W	m9text-*

m10		DC.W	m10text-*
		DC.W	m10text-*

m11		DC.W	m11text-*
		DC.W	m11text-*

m12		DC.W	m12text-*
		DC.W	m12text-*

m13		DC.W	m13text-*
		DC.W	m13text-*

m14		DC.W	m14text-*
		DC.W	m14text-*

m15		DC.W	m15text-*
		DC.W	m15text-*

m16		DC.W	m16text-*
		DC.W	m16text-*

m17		DC.W	m17text-*
		DC.W	m17text-*

m18		DC.W	m18text-*
		DC.W	m18text-*

m19		DC.W	m19text-*
		DC.W	m19text-*

m20		DC.W	m20text-*
		DC.W	m20text-*

m21		DC.W	m21string-*
		DC.W	0000

m22		DC.W	m22string-*
		DC.W	0000

m23		DC.W	m23string-*
		DC.W	0000

m24		DC.W	m24string-*
		DC.W	0000

m25		DC.W	m25string-*
		DC.W	0000

m26		DC.W	m26string-*
		DC.W	0000

m27		DC.W	m27string-*
		DC.W	0000

m28		DC.W	m28string-*
		DC.W	0000

m29		DC.W	m29string-*
		DC.W	0000

m30		DC.W	m30string-*
		DC.W	0000

m31		DC.W	m31string-*
		DC.W	0000

m32		DC.W	m32text-*
		DC.W	m32text-*

m33		DC.W	m33text-*
		DC.W	m33text-*

m34		DC.W	m34text-*
		DC.W	m34text-*

m35		DC.W	m35text-*
		DC.W	m35text-*

m36		DC.W	m36text-*
		DC.W	m36text-*

m37		DC.W	m37text-*
		DC.W	m37text-*

m38		DC.W	m38text-*
		DC.W	m38text-*

m39		DC.W	m39text-*
		DC.W	m39text-*

m40		DC.W	m40text-*
		DC.W	m40text-*

m41		DC.W	m41string-*
		DC.W	0000

m42		DC.W	m42text-*
		DC.W	m42text-*
		
m43		DC.W	m43text-*
		DC.W	m43text-*

m44		DC.W	m44text-*
		DC.W	m44text-*

m45		DC.W	m45text-*
		DC.W	m45text-*
		
m46		DC.W	m46text-*
		DC.W	m46text-*

m47		DC.W	m47text-*
		DC.W	m47text-*

m48		DC.W	m48text-*
		DC.W	m48text-*

m49		DC.W	m49text-*
		DC.W	m49text-*

m50		DC.W	m50text-*
		DC.W	m50text-*

m51		DC.W	m51text-*
		DC.W	m51text-*

m52		DC.W	m52text-*
		DC.W	m52text-*

m53		DC.W	m53text-*
		DC.W	m53text-*

m54		DC.W	m54text-*
		DC.W	m54text-*

m55		DC.W	m55text-*
		DC.W	m55text-*

m56		DC.W	m56text-*
		DC.W	m56text-*

m57		DC.W	m57text-*
		DC.W	m57text-*

m58		DC.W	m58text-*
		DC.W	m58text-*

m59		DC.W	m59text-*
		DC.W	m59text-*

m60		DC.W	m60text-*
		DC.W	m60text-*

m61		DC.W	m61string-*		;used by Init Mgr.
		DC.W	0

m62		dc.w	m62string-*		;used by Init Mgr.
		DC.W	0

m63		dc.w	m63string-*		;used by Init Mgr.
		DC.W	0

m64		dc.w	m64string-*		;used by Init Mgr.
		DC.W	0


m65		dc.w	m65text-*
		dc.w	m65text-*

m66		dc.w	m66text-*		; no AppleTalk hardware
		dc.w	m66text-*

m67		dc.w	m67text-*		; no AppleTalk driver
		dc.w	m67text-*
		
m68		dc.w	m68text-*		; ROM 1 RAM disk size mismatch
		dc.w	m68text-*
		
		EXPORT	past_offset_tbl
past_offset_tbl					 



;===============================================================================
;
; Start of PERMANENT messages.
;
;===============================================================================

;
; Message 0:  Prints substitution strings *0 and *1 and	gives Yes, No, and
;	      Cancel buttons
;
m0text						; 
		DC.B	ws_4medium		;4 lines, medium width
		DC.B	note_icon		;note icon
		DC.B	'\*0'			;print substitution string 0
		DC.B	cr
		DC.B	'*1\'			;print substitution string 1
		DC.B	'Yes\'			;button	0:  'Yes'
		DC.B	'^No\'			;button	1:  'No'
		DC.B	'Cancel'		;button	2:  'Cancel'
		DC.B	e_null			;end of	alert string
		DC.B	'012'			;button	response mapping
;
; Message 1:  Mount volume.
;
m1text						; 
;		DC.B	ws_5small		;5 lines
		DC.B	ws_2medium		;? lines
		DC.B	disk_swap_icon		;disk swap icon

		DC.B	'\Please insert the disk:'
;		DC.B	cr,cr
		dc.b	space_cr,space_cr
		DC.B	'*0\'			;substitute volume name
		DC.B	'Cancel\'		;right button:	'Cancel'
		DC.B	'^OK'			;left button:  'OK'
		DC.B	e_null			;end of	alert string
		DC.B	'100'			;button	response mapping
;
; Message 2:  Disk is write protected.
;
m2text						; 
		DC.B	ws_3medium		;3 lines
		DC.B	disk_icon		;disk icon

		DC.B	'\Disk *0'
		DC.B	space_cr
		DC.B	'is write protected.  Please '
		DC.B	space_cr
		DC.B	'write enable it.\'
		DC.B	'^OK\'			;left button:  'OK'
		DC.B	'No'			;right button:	'No'
		DC.B	e_null			;end of	alert string
		DC.B	'010'
;
; Message 3:  Disk is damaged.
;
m3text						; 

		DC.B	ws_3medium		;3 lines
		DC.B	disk_icon		;disk icon

		DC.B	'\Disk *0'
		DC.B	space_cr
		DC.B	'may be damaged.  Please move data to'
		DC.B	space_cr
		DC.B	'another disk.\'
		DC.B	'^OK'			;left button:  'OK'
		DC.B	e_null			;end of	alert string
		DC.B	'000'

;
; Messages 4-13 are GLoader fatal error messages.
; They are contained in the temporary section of this file.
;

;
; Messages 14-15 are GQUIT fatal error messages.
;
m14text						; 
		DC.B	ws_2medium		;2 lines, medium width
		DC.B	stop_icon		;stop icon

		DC.B	'\Sorry, ProDOS 8 is not a compatible'
		DC.B	space_cr
		DC.B	'version.\'
		DC.B	'^Restart'
		DC.B	e_null
		DC.B	'000'

m15text						; 
		DC.B	ws_3medium		;3 lines, medium width
		DC.B	stop_icon		;stop icon

		DC.B	'\Sorry, system error *1 occurred'
		DC.B	space_cr
		DC.B	'while trying to run the next'
		DC.B	space_cr
		DC.B	'application.\'
		DC.B	'^Restart'
		DC.B	e_null
		DC.B	'000'

m16text						; 
		DC.B	ws_3medium		;3 lines, medium width
		DC.B	caution_icon		;Danger, danger

		DC.B	'\Disk *0'
		DC.B	space_cr
		DC.B	'was prematurely ejected.'
		DC.B	space_cr
		DC.B	'The disk structure may be damaged.\'
		DC.B	'^OK'
		DC.B	e_null
		DC.B	'000'

;
; Message 17 is a GLoader fatal error message.
; It is contained in the temporary section of this file.
;

;
; Message 18 is a GQUIT fatal error message.
;
m18text						; 
		DC.B	ws_3medium		;3 lines, medium width
		DC.B	stop_icon		;stop icon

		DC.B	'\Sorry, this application requires '
		DC.B	space_cr
		DC.B	'the P8 file to be in the SYSTEM '
		DC.B	space_cr
		DC.B	'subdirectory.\'
		DC.B	'^Restart'
		DC.B	e_null
		DC.B	'000'

;
; Message 19 - GS/OS System Error
;
m19text						; 
		DC.B	ws_4medium		;4 lines, medium width
		DC.B	stop_icon		;stop icon

		DC.B	'\GS/OS System Error'
		DC.B	cr,cr
		DC.B	'Address = $*0       LC bank = $*1'
		DC.B	cr
		DC.B	'Error code = $*2\'
		DC.B	'^Restart'
		DC.B	e_null
		DC.B	'000'
;
; Message 20 is a GQUIT non-fatal error message.
;
m20text						; 
		DC.B	ws_3medium		;3 lines, medium width
		DC.B	stop_icon		;stop icon

		DC.B	'\Sorry, this application requires '
		DC.B	space_cr
		DC.B	'the P8 file to be in the SYSTEM '
		DC.B	space_cr
		DC.B	'subdirectory.\'
		DC.B	'Restart\'
		DC.B	'^Cancel'
		DC.B	e_null
		DC.B	'010'

;--------------------------------------------------------------------------------------
;  Strings 21-31 and 61-63 are owned by the Initialization Manager.
;  They	are not	window definitions - just strings.

		string	Pascal
m21string	DC.B	'Initialize device  .'

m22string	DC.B	'as '

m23string	DC.B	'Initialize'

m24string	DC.B	'Cancel'
		string	AsIs

m25string	DC.B	m25_len
		DC.B	$1e,3+32,18+32
		DC.B	'Select: Tab '
		DC.B	$ca,$20,$cb
		DC.B	'  Cancel: Esc  Initialize: '
		DC.B	$c1,$cd
m25_len		equ	*-m25string-1

		string	Pascal
m26string	DC.B	' File System '
		string	asis

m27string	DC.B	m27_len
		DC.B	$14,31+32
		DC.B	' Format '
m27_len		equ	*-m27string-1

		string	Pascal
m28string	DC.B	'This file system won''t use the entire disk.'

m29string	DC.B	'Erase device  .'

m30string	DC.B	'Erase'
		string	AsIs

m31string	DC.B	m31_len
		DC.B	$1e,4+32,18+32
		DC.B	'Select: Tab '
		DC.B	$ca,$20,$cb
		DC.B	'    Cancel: Esc    Erase: '
		DC.B	$c1,$cd
m31_len		equ	*-m31string-1

		string	Pascal
m41string	DC.B	'Initializing...'
		
m61string	DC.B	'untitled'		;default volume name for Init Mgr.

m62string	dc.b	'This operation will destroy all of the information on this disk.'

m63string	dc.b	'The supplied name is not acceptable to the selected file system.'

		string	AsIs

m64string	dc.b	m64_len
		dc.b	gotoxy,9+32,3+32	; gotoxy(9,3)
		dcb.b	33,'_'			; 33 underlines
		dc.b	gotoxy,8+32,4+32	; gotoxy(8,4)
		dc.b	$DA,spaceExpansion,33+32,$DF
		dc.b	gotoxy,9+32,5+32	; gotoxy(9,5)
		dcb.b	33,$CC			; bottom line
m64_len		equ	*-m64string-1

; End of Init Manager strings
;--------------------------------------------------------------------------------------

m32text
		DC.B	ws_3medium		;3 lines, medium width
		DC.B	caution_icon		;Danger, danger

		DC.B	'\The SCSI card in slot *0 has an old'
		DC.B	space_cr
		DC.B	'version ROM and cannot be used by'
		DC.B	space_cr
		DC.B	'GS/OS.  See your dealer for a free'
		DC.B	space_cr
		DC.B	'upgrade to the Revision C ROM...\'
		DC.B	'^OK'
		DC.B	e_null
		DC.B	'000'

m33text

		DC.B	ws_3medium		;3 lines, medium width
		DC.B	note_icon

		DC.B	'\You may now switch off your'
		DC.B	space_cr
		DC.B	'Apple IIGS safely.\'
		DC.B	'^Restart'
		DC.B	e_null
		DC.B	'000'

;
; Message 34 is a GLoader fatal error message.
; It is contained in the temporary section of this file.
;

;
; Message 35:  Device Soft Error Message.
;
m35text						; 
		DC.B	ws_3medium		;3 lines
		DC.B	disk_icon		;disk icon

		DC.B	'\.*0'
		DC.B	space_cr
		DC.B	'may be damaged.  Please move data to'
		DC.B	space_cr
		DC.B	'another disk. Soft Error = $*1\'
		DC.B	'^OK'			;left button:  'OK'
		DC.B	e_null			;end of	alert string
		DC.B	'000'
		
;
; Messages 36-40 are GLoader fatal error messages.
; They are contained in the temporary section of this file.
;

;  String 41 is owned by the Initialization Manager.

;
; Message 42 is a GLoader fatal error message.
; It is contained in the temporary section of this file.
;

;
; Message 43:  SCSI Driver must be installed to use SCSI device.
; 		(displayed by device dispatcher during startup).
;
m43text						; 
		DC.B	ws_3medium		;3 lines, medium width
		dc.b	caution_icon		;caution icon

		dc.b	'\SCSI device requires a driver.'
		dc.b	space_cr
		dc.b	'Please install SCSI driver on'
		dc.b	space_cr
		dc.b	'boot disk and re-boot system.\'
		
		dc.b	'^OK'			;left button:  'OK'
		dc.b	e_null			;end of	alert string
		dc.b	'000'

;
; Message 44:  UniDisk3.5 Driver must be installed to use UniDisk3.5 device.
; 		(displayed by device dispatcher during startup).
;
m44text						; 
		DC.B	ws_3medium		;3 lines, medium width
		dc.b	caution_icon		;caution icon

		dc.b	'\UniDisk3.5 requires a driver.'
		dc.b	space_cr
		dc.b	'Install UniDisk3.5 driver on'
		dc.b	space_cr
		dc.b	'boot disk and re-boot system.\'
		
		dc.b	'^OK'			;left button:  'OK'
		dc.b	e_null			;end of	alert string
		dc.b	'000'

;
; Message 45:  AppleDisk3.5 Driver must be installed to use AppleDisk3.5 device.
; 		(displayed by device dispatcher during startup).
;
m45text						; 
		DC.B	ws_3medium		;3 lines, medium width
		dc.b	caution_icon		;caution icon

		dc.b	'\AppleDisk3.5 requires a driver.'
		dc.b	space_cr
		dc.b	'Install AppleDisk3.5 driver on'
		dc.b	space_cr
		dc.b	'boot disk and re-boot system.\'
		
		dc.b	'^OK'			;left button:  'OK'
		dc.b	e_null			;end of	alert string
		dc.b	'000'
;
; Message 46:  Alternate mount volume used when no cancel allowed.
;
m46text						 
;		DC.B	ws_5small		;5 lines
		DC.B	ws_2medium		;? lines
		DC.B	disk_swap_icon		;disk swap icon

		DC.B	'\Please insert the disk:'
;		DC.B	cr,cr
		dc.b	space_cr,space_cr
		DC.B	'*0\'			;substitute volume name
		DC.B	'^OK'			;left button:  'OK'
		DC.B	e_null			;end of	alert string
		DC.B	'000'			;button	response mapping

;
; Message 47:  AppleShare must be installed for AppleShare.FST.
;
m47text						; 
		DC.B	ws_3medium		;3 lines, medium width
		dc.b	caution_icon		;caution icon

		dc.b	'\AppleShare.FST requires AppleShare.'
		dc.b	space_cr
		dc.b	'Please enable AppleTalk in the'
		dc.b	space_cr
		dc.b	'Control Panel, install AppleShare on'
		dc.b	space_cr
		dc.b	'the boot disk and restart system.\'
		
		dc.b	'^OK'			;left button:  'OK'
		dc.b	e_null			;end of	alert string
		dc.b	'000'

;
; Message 48:  The file server *0 is closing down in *1 minute(s).
;
m48text							; 
		dc.b	ws_4medium		;4 lines, medium width
		dc.b	note_icon
		dc.b	'\The file server'
		dc.b	space_cr
		dc.b	'*0'
		dc.b	space_cr
		dc.b	'is closing down in *1 minute(s).'
		dc.b	cr
		dc.b	'[*2]\'
		dc.b	'^OK'			;button: 'OK'
		dc.b	e_null			;end of message
		dc.b	'100'

;
; Message 49:  The file server *0 has closed down.
;
m49text							; 
		dc.b	ws_4medium		;4 lines, medium width
		dc.b	note_icon
		dc.b	'\The file server'
		dc.b	space_cr
		dc.b	'*0'
		dc.b	space_cr
		dc.b	'has closed down.'
		dc.b	cr
		dc.b	'[*2]\'
		dc.b	'^OK'			;button: 'OK'
		dc.b	e_null			;end of message
		dc.b	'100'

;
; Message 50:  The file server *0 is no longer closing down.
;
m50text							; 
		dc.b	ws_3medium		;3 lines, medium width
		dc.b	note_icon
		dc.b	'\The file server'
		dc.b	space_cr
		dc.b	'*0'
		dc.b	space_cr
		dc.b	'is no longer closing down.\'
		dc.b	'^OK'			;button: 'OK'
		dc.b	e_null			;end of message
		dc.b	'100'

;
; Message 51:  The connection to the file server *0 has unexpectedly closed down.
;
m51text							; 
		dc.b	ws_3medium		;3 lines, medium width
		dc.b	note_icon
		dc.b	'\The connection to the file server'
		dc.b	space_cr
		dc.b	'*0'
		dc.b	space_cr
		dc.b	'has unexpectedly closed down.\'
		dc.b	'^Continue'		;button: 'OK'
		dc.b	e_null			;end of message
		dc.b	'100'

;
; Message 52:  GQuit - Unable to run next application
;
;			'          1         2         3         '
;			'0123456789012345678901234567890123456789'
m52text 
		DC.B	ws_3medium		;3 lines, medium width
		DC.B	caution_icon		;caution icon

		DC.B	'\'
		dc.b	'Sorry, system error $*0 occurred'
		DC.B	space_cr
		DC.B	'while trying to run the next '
		DC.B	space_cr
		DC.B	'application.  Return to launching'
		dc.b	space_cr
		dc.b	'application or restart system?\'
		DC.B	'Restart\'
		dc.b	'^Return'
		DC.B	e_null
		DC.B	'010'

;
; Messages 53 - 55 are GQUIT non-fatal error messages.
;
m53text						; 
		DC.B	ws_3medium		;3 lines, medium width
		DC.B	caution_icon		;caution icon

		DC.B	'\Warning, this application may not '
		DC.B	space_cr
		DC.B	'run correctly since its pathname is '
		DC.B	space_cr
		DC.B	'longer than 64 characters.\'
		DC.B	'Continue\'
		DC.B	'^Cancel'
		DC.B	e_null
		DC.B	'120'

m54text						; 
		DC.B	ws_3medium		;3 lines, medium width
		DC.B	caution_icon		;caution icon

		DC.B	'\Warning, this application may not '
		DC.B	space_cr
		DC.B	'run correctly since its pathname is '
		DC.B	space_cr
		DC.B	'longer than 64 characters.\'
		DC.B	'Restart\'
		DC.B	'^Continue'
		DC.B	e_null
		DC.B	'010'

m55text						; 
		DC.B	ws_3medium		;3 lines, medium width
		DC.B	stop_icon		;stop icon

		DC.B	'\Sorry, this application cannot '
		DC.B	space_cr
		DC.B	'be launched because its pathname '
		DC.B	space_cr
		DC.B	'is too long.\'
		DC.B	'Restart\'
		DC.B	'^Cancel'
		DC.B	e_null
		DC.B	'010'

;
; Message 56 is a GQUIT fatal error message.
;
m56text						; 
		DC.B	ws_3medium		;3 lines, medium width
		DC.B	stop_icon		;stop icon

		DC.B	'\Sorry, this application cannot '
		DC.B	space_cr
		DC.B	'be launched because its pathname '
		DC.B	space_cr
		DC.B	'is too long.\'
		DC.B	'^Restart'
		DC.B	e_null
		DC.B	'000'

;
; Messages 57-59 are GLoader fatal error messages.
; They are contained in the temporary section of this file.
;

;
; Message 60:  Not enouph memory to load AppleTalk. AppleTalk will not be avaiable.
;
m60text							; 
		dc.b	ws_3medium		;4 lines, medium width
		dc.b	note_icon
		dc.b	'\Not enough memory to load AppleTalk.'
		dc.b	space_cr
		dc.b	'AppleTalk will not be available.\'
		dc.b	'^OK'			;button: 'OK'
		dc.b	e_null			;end of message
		dc.b	'100'

;
; Message 65:  GQuit non-fatal message - Can't launch P8 apps from HFS volumes, fool!
;
;			'          1         2         3         '
;			'0123456789012345678901234567890123456789'
m65text
		DC.B	ws_3medium		;3 lines, medium width
		DC.B	caution_icon		;caution icon

		DC.B	'\'
		dc.b	'Sorry, ProDOS 8 applications can only'
		DC.B	space_cr
		DC.B	'be launched from ProDOS or AppleShare'
		DC.B	space_cr
		DC.B	'disks.  Return to launching'
		dc.b	space_cr
		dc.b	'application or restart system?\'
		DC.B	'Restart\'
		dc.b	'^Return'
		DC.B	e_null
		DC.B	'010'

;
; Message 66:  AppleTalk hardware couldn't be found.
;
m66text
		DC.B	ws_3medium		;3 lines, medium width
		DC.B	caution_icon		;caution icon

		DC.B	'\'
		dc.b	'The selected AppleTalk connection'
		DC.B	space_cr
		DC.B	'could not be found.  Be sure it is'
		DC.B	space_cr
		DC.B	'installed and the slot settings in the'
		dc.b	space_cr
		dc.b	'Control Panel are correct.\'
		dc.b	'^OK'
		DC.B	e_null
		DC.B	'100'

;
; Message 67:  AppleTalk driver couldn't be found.
;
m67text
		DC.B	ws_3medium		;3 lines, medium width
		DC.B	caution_icon		;caution icon

		DC.B	'\'
		dc.b	'A driver for the selected AppleTalk'
		DC.B	space_cr
		DC.B	'connection could not be found.  Be'
		DC.B	space_cr
		DC.B	'sure it is installed and then restart.\'
		dc.b	'^OK'
		DC.B	e_null
		DC.B	'100'

;
; Message 68:  RAM5 driver found a mismatch in Min/Max sizes on a ROM 1
;
m68text
		DC.B	ws_3medium		;3 lines, medium width
		DC.B	caution_icon		;caution icon

		DC.B	'\'
		dc.b	'For faster RAM5 speed, make the'
		DC.B	space_cr
		DC.B	'minimum and maximum RAM Disk sizes'
		DC.B	space_cr
		dc.b	'the same in the Control Panel and'
		DC.B	space_cr
		DC.B	'then restart.\'
		dc.b	'^OK'
		DC.B	e_null
		DC.B	'100'

		EXPORT	end_of_perm_msgs
end_of_perm_msgs					 

;===============================================================================
;
; End of PERMANENT messages.
;
;===============================================================================



;===============================================================================
;
; Start of TEMPORARY messages.
;
;===============================================================================

;*******************************************************************************
;
; 	WARNING!!		WARNING!!		WARNING!!				
;
; All error messages after this point are available during INITIAL boot only!!
; They are not available during OS switches or after GLoader has passed 
; control to GQuit to launch the startup application.
; This file is now only loaded by GLoader during the initial boot.
; Just before the startup application is launched, GLoader shrinks the memory
; segment containing this file so that all error messages after this point are
; no longer available.
; This file is no longer reloaded when switching from ProDOS 8 to GS/OS.
;
; 	WARNING!!		WARNING!!		WARNING!!				
;
;*******************************************************************************

;
; Messages 4-13	are GLOADER fatal error	messages.
;
m4text						; 

		DC.B	ws_3medium		;3 lines, medium width
		DC.B	stop_icon		;stop icon

		DC.B	'\Sorry, system error *1 occurred'
		DC.B	space_cr
		DC.B	'while loading the start FST file.\'
		DC.B	'^Restart'
		DC.B	e_null
		DC.B	'000'

m5text						; 

		DC.B	ws_3medium		;3 lines, medium width
		DC.B	stop_icon		;stop icon

		DC.B	'\Sorry, system error *1 occurred'
		DC.B	space_cr
		DC.B	'while initializing GS/OS.\'
		DC.B	'^Restart'
		DC.B	e_null
		DC.B	'000'

m6text						; 

		DC.B	ws_3medium		;3 lines, medium width
		DC.B	stop_icon		;stop icon

		DC.B	'\Sorry, system error *1 occurred'
		DC.B	space_cr
		DC.B	'while loading the FST files.\'
		DC.B	'^Restart'
		DC.B	e_null
		DC.B	'000'

m7text						; 

		DC.B	ws_3medium		;3 lines, medium width
		DC.B	stop_icon		;stop icon

		DC.B	'\Sorry, system error *1 occurred'
		DC.B	space_cr
		DC.B	'while setting prefix 0.\'
		DC.B	'^Restart'
		DC.B	e_null
		DC.B	'000'

m8text						; 

		DC.B	ws_3medium		;3 lines, medium width
		DC.B	stop_icon		;stop icon

		DC.B	'\Sorry, system error *1 occurred'
		DC.B	space_cr
		DC.B	'while setting prefix 2.\'
		DC.B	'^Restart'
		DC.B	e_null
		DC.B	'000'

m9text						; 

		DC.B	ws_3medium		;3 lines, medium width
		DC.B	stop_icon		;stop icon

		DC.B	'\Sorry, system error *1 occurred'
		DC.B	space_cr
		DC.B	'while searching for x.SYSTEM'
		DC.B	space_cr
		DC.B	'and x.SYS16 files.\'
		DC.B	'^Restart'
		DC.B	e_null
		DC.B	'000'

m10text						; 

		DC.B	ws_3medium		;3 lines, medium width
		DC.B	stop_icon		;stop icon

		DC.B	'\Sorry, no x.SYSTEM, x.SYS16 or'
		DC.B	space_cr
		DC.B	'START file found.\'
		DC.B	'^Restart'
		DC.B	e_null
		DC.B	'000'

m11text						; 

		DC.B	ws_3medium		;3 lines, medium width
		DC.B	stop_icon		;stop icon

		DC.B	'\Sorry, system error *1 occurred'
		DC.B	space_cr
		DC.B	'while loading the TOOL.SETUP file.\'
		DC.B	'^Restart'
		DC.B	e_null
		DC.B	'000'

m12text						; 

		DC.B	ws_3medium		;3 lines, medium width
		DC.B	stop_icon		;stop icon

		DC.B	'\Sorry, system error *1 occurred'
		DC.B	space_cr
		DC.B	'while loading the system setup files.\'
		DC.B	'^Restart'
		DC.B	e_null
		DC.B	'000'

m13text						; 

		DC.B	ws_3medium		;3 lines, medium width
		DC.B	stop_icon		;stop icon

		DC.B	'\Sorry, system error *1 occurred'
		DC.B	space_cr
		DC.B	'while loading the desk accessories.\'
		DC.B	'^Restart'
		DC.B	e_null
		DC.B	'000'

;
; Message 17 is a GLOADER fatal error message.
;
m17text						; 
		DC.B	ws_3medium		;3 lines, medium width
		DC.B	stop_icon		;stop icon

		DC.B	'\Sorry, the TOOL.SETUP file has the '
		DC.B	space_cr
		DC.B	'wrong file type.\'
		DC.B	'^Restart'
		DC.B	e_null
		DC.B	'000'

;
; Message 34 is a GLOADER fatal error message.
;
m34text						; 

		DC.B	ws_3medium		;3 lines, medium width
		DC.B	stop_icon		;stop icon

		DC.B	'\Sorry, the start FST file is '
		DC.B	space_cr
		DC.B	'disabled or has the wrong file type.\'
		DC.B	'^Restart'
		DC.B	e_null
		DC.B	'000'

;
; Messages 36-40 are GLOADER fatal error messages.
;
m36text						; 

		DC.B	ws_3medium		;3 lines, medium width
		DC.B	stop_icon		;stop icon

		DC.B	'\Sorry, system error *1 occurred'
		DC.B	space_cr
		DC.B	'while loading the BOOT.DRIVER file.\'
		DC.B	'^Restart'
		DC.B	e_null
		DC.B	'000'

m37text						; 

		DC.B	ws_3medium		;3 lines, medium width
		DC.B	stop_icon		;stop icon

		DC.B	'\Sorry, the BOOT.DRIVER file has '
		DC.B	space_cr
		DC.B	'the wrong file type or aux type.\'
		DC.B	'^Restart'
		DC.B	e_null
		DC.B	'000'

m38text						; 

		DC.B	ws_3medium		;3 lines, medium width
		DC.B	stop_icon		;stop icon

		DC.B	'\Sorry, system error *1 occurred'
		DC.B	space_cr
		DC.B	'while loading the RESOURCE.MGR file.\'
		DC.B	'^Restart'
		DC.B	e_null
		DC.B	'000'

m39text						; 

		DC.B	ws_3medium		;3 lines, medium width
		DC.B	stop_icon		;stop icon

		DC.B	'\Sorry, the RESOURCE.MGR file has '
		DC.B	space_cr
		DC.B	'the wrong file type.\'
		DC.B	'^Restart'
		DC.B	e_null
		DC.B	'000'

m40text						; 

		DC.B	ws_3medium		;3 lines, medium width
		DC.B	stop_icon		;stop icon

		DC.B	'\Sorry, system error *1 occurred'
		DC.B	space_cr
		DC.B	'while loading the EXPRESSLOAD file.\'
		DC.B	'^Restart'
		DC.B	e_null
		DC.B	'000'

;
; Message 42 is a GLoader fatal error message
;

m42text						; 

		DC.B	ws_3medium		;3 lines, medium width
		DC.B	stop_icon		;stop icon

		DC.B	'\Sorry, system error *1 occurred'
		DC.B	space_cr
		DC.B	'while loading the GS.OS.DEV file.\'
		DC.B	'^Restart'
		DC.B	e_null
		DC.B	'000'

;
; Messages 57-59 are GLoader fatal error messages
;

m57text						; 

		DC.B	ws_3medium		;3 lines, medium width
		DC.B	stop_icon		;stop icon

		DC.B	'\Sorry, system error *1 occurred'
		DC.B	space_cr
		DC.B	'while loading the FST file'
		DC.B	space_cr
		DC.B	'*0.\'
		DC.B	'^Restart'
		DC.B	e_null
		DC.B	'000'

m58text						; 

		DC.B	ws_3medium		;3 lines, medium width
		DC.B	stop_icon		;stop icon

		DC.B	'\Sorry, system error *1 occurred'
		DC.B	space_cr
		DC.B	'while loading the system setup file'
		DC.B	space_cr
		DC.B	'*0.\'
		DC.B	'^Restart'
		DC.B	e_null
		DC.B	'000'

m59text						; 

		DC.B	ws_3medium		;3 lines, medium width
		DC.B	stop_icon		;stop icon

		DC.B	'\Sorry, system error *1 occurred'
		DC.B	space_cr
		DC.B	'while loading the desk accessory'
		DC.B	space_cr
		DC.B	'*0.\'
		DC.B	'^Restart'
		DC.B	e_null
		DC.B	'000'


;*******************************************************************************
;
; 	WARNING!!		WARNING!!		WARNING!!				
;
; All error messages in this section are available during INITIAL boot only!!
; They are not available during OS switches or after GLoader has passed 
; control to GQuit to launch the startup application.
; This file is now only loaded by GLoader during the initial boot.
; Just before the startup application is launched, GLoader shrinks the memory
; segment containing this file so that all temporary error messages are
; no longer available.
; This file is no longer reloaded when switching from ProDOS 8 to GS/OS.
;
; If you are adding an error message which must be available while GS/OS is
; operating or during an OS switch, the message must be placed in the PERMANENT
; section of this file.
;
; 	WARNING!!		WARNING!!		WARNING!!				
;
;*******************************************************************************

;===============================================================================
;
; End of TEMPORARY messages.
;
;===============================================================================

		EXPORT	end_of_temp_msgs
end_of_temp_msgs

		ENDP
		END

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/OS/GQuit/GQuit.Macros.src b/IIGS.601.SRC/GS.OS/OS/GQuit/GQuit.Macros.src
new file mode 100644
index 0000000..4b65650
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/OS/GQuit/GQuit.Macros.src
@@ -0,0 +1 @@
+
		MACRO 
&lab 		_BlockMove 
&lab 		ldx 	#$2B02 
		jsl $E10000
		MEND 

	       MACRO
&lab	       _FWEntry
&lab	       ldx     #$2403
	       jsl     $E10000
	       MEND

	       MACRO
&lab	       _DeleteID
&lab	       ldx     #$2103
	       jsl     $E10000
	       MEND

	       MACRO
&lab	       _RenamePathname
&lab	       ldx     #$1311
	       jsl     $E10000
	       MEND

	       MACRO
&lab	       _LGetPathname2
&lab	       ldx     #$2211
	       jsl     $E10000
	       MEND

	       MACRO
&lab	       _GetUserID2
&lab	       ldx     #$2111
	       jsl     $E10000
	       MEND

	       MACRO
&lab	       _InitialLoad2
&lab	       ldx     #$2011
	       jsl     $E10000
	       MEND

	       MACRO
&lab	       _TLTextMountVolume
&lab	       ldx     #$1201
	       jsl     $E10000
	       MEND

	       MACRO
&lab	       _endsession1 &params
&lab	       jsl     $E100A8
	       DC.W    $201e
	       DC.L    &params
	       MEND

	       MACRO
&lab	       _QUIT1  &params
&lab	       jsl     $E100A8
	       DC.W    $2029
	       DC.L    &params
	       MEND

	       MACRO
&lab	       _OPEN1  &params
&lab	       jsl     $E100A8
	       DC.W    $2010
	       DC.L    &params
	       MEND

	       MACRO
&lab	       _CLOSE1 &params
&lab	       jsl     $E100A8
	       DC.W    $2014
	       DC.L    &params
	       MEND

	       MACRO
&lab	       _GETPREFIX1 &params
&lab	       jsl     $E100A8
	       DC.W    $200A
	       DC.L    &params
	       MEND

	       MACRO
&lab	       _SETPREFIX1 &params
&lab	       jsl     $E100A8
	       DC.W    $2009
	       DC.L    &params
	       MEND

	       MACRO
&lab	       _GETFILEINFO1 &params
&lab	       jsl     $E100A8
	       DC.W    $2006
	       DC.L    &params
	       MEND

	       MACRO
&lab	       _GetDirEntry1 &params
&lab	       jsl     $E100A8
	       DC.W    $201C
	       DC.L    &params
	       MEND

	       MACRO
&lab	       _Volume1 &params
&lab	       jsl     $E100A8
	       DC.W    $2008
	       DC.L    &params
	       MEND

	       MACRO
&lab	       _GetDevNumber1 &params
&lab	       jsl     $E100A8
	       DC.W    $2020
	       DC.L    &params
	       MEND

	       MACRO
&lab	       _FSTSpecific1 &params
&lab	       jsl     $E100A8
	       DC.W    $2033
	       DC.L    &params
	       MEND

	       MACRO
&lab	       _DInfo1 &params
&lab	       jsl     $E100A8
	       DC.W    $202C
	       DC.L    &params
	       MEND

	       MACRO
&lab	       _SetTSPtr
&lab	       ldx     #$0A01
	       jsl     $E10000
	       MEND

	       MACRO
&lab	       _SETLEVEL &params
&lab	       jsl     $E100A8
	       DC.W    $1A
	       DC.L    &params
	       MEND

	       MACRO
&lab	       _LGetPathname
&lab	       ldx     #$1111
	       jsl     $E10000
	       MEND

	       MACRO
&lab	       _GetUserID
&lab	       ldx     #$1011
	       jsl     $E10000
	       MEND

	       MACRO
&lab	       _InitialLoad
&lab	       ldx     #$0911
	       jsl     $E10000
	       MEND

	       MACRO
&lab	       _Restart
&lab	       ldx     #$0A11
	       jsl     $E10000
	       MEND

	       MACRO
&lab	       _UserShutDown
&lab	       ldx     #$1211
	       jsl     $E10000
	       MEND

	       MACRO
&lab	       _TotalMem
&lab	       ldx     #$1D02
	       jsl     $E10000
	       MEND

	       MACRO
&lab	       _CompactMem
&lab	       ldx     #$1F02
	       jsl     $E10000
	       MEND

	       MACRO
&lab	       _ReAllocHandle
&lab	       ldx     #$0A02
	       jsl     $E10000
	       MEND

	       MACRO
&lab	       _SetHandleSize
&lab	       ldx     #$1902
	       jsl     $E10000
	       MEND

	       MACRO
&lab	       _DisposeHandle
&lab	       ldx     #$1002
	       jsl     $E10000
	       MEND

	       MACRO
&lab	       _FindHandle
&lab	       ldx     #$1A02
	       jsl     $E10000
	       MEND

	       MACRO
&lab	       _NewHandle
&lab	       ldx     #$0902
	       jsl     $E10000
	       MEND

	       MACRO
&lab	       _HLock
&lab	       ldx     #$2002
	       jsl     $E10000
	       MEND

	       MACRO
&lab	       _HUnLock
&lab	       ldx     #$2202
	       jsl     $E10000
	       MEND

	       MACRO
&lab	       _GetNewID
&lab	       ldx     #$2003
	       jsl     $E10000
	       MEND

	       MACRO
&lab	       _SysFailMgr
&lab	       ldx     #$1503
	       jsl     $E10000
	       MEND

	       MACRO
&lab	       _DeskShutDown
&lab	       ldx     #$0305
	       jsl     $E10000
	       MEND

	       MACRO
&lab	       _InstallCDA
&lab	       ldx     #$0F05
	       jsl     $E10000
	       MEND

	       MACRO
&lab	       _InstallNDA
&lab	       ldx     #$0E05
	       jsl     $E10000
	       MEND

	       MACRO
&lab	       _OPEN   &params
&lab	       jsl     $E100A8
	       DC.W    $10
	       DC.L    &params
	       MEND

	       MACRO
&lab	       _READ   &params
&lab	       jsl     $E100A8
	       DC.W    $12
	       DC.L    &params
	       MEND

	       MACRO
&lab	       _READ1  &params
&lab	       jsl     $E100A8
	       DC.W    $2012
	       DC.L    &params
	       MEND

	       MACRO
&lab	       _CLOSE  &params
&lab	       jsl     $E100A8
	       DC.W    $14
	       DC.L    &params
	       MEND

	       MACRO
&lab	       _GETFILEINFO &params
&lab	       jsl     $E100A8
	       DC.W    6
	       DC.L    &params
	       MEND

	       MACRO
&lab	       _SETPREFIX &params
&lab	       jsl     $E100A8
	       DC.W    9
	       DC.L    &params
	       MEND

	       MACRO
&lab	       _GETPREFIX &params
&lab	       jsl     $E100A8
	       DC.W    $0A
	       DC.L    &params
	       MEND

	       MACRO
&lab	       _SETMARK	&params
&lab	       jsl     $E100A8
	       DC.W    $16
	       DC.L    &params
	       MEND

	       MACRO
&lab	       _GETEOF &params
&lab	       jsl     $E100A8
	       DC.W    $19
	       DC.L    &params
	       MEND

	       MACRO
&lab	       _GETEOF1	&params
&lab	       jsl     $E100A8
	       DC.W    $2019
	       DC.L    &params
	       MEND

	       MACRO
&lab	       _GETPATHNAME &params
&lab	       jsl     $E100A8
	       DC.W    $27
	       DC.L    &params
	       MEND

	       MACRO
&lab	       _GETBOOTVOL &params
&lab	       jsl     $E100A8
	       DC.W    $28
	       DC.L    &params
	       MEND

	       MACRO
&lab	       _DisposHandle
&lab	       ldx     #$1002
	       jsl     $E10000
	       MEND

	       MACRO
&lab	       _DisposAll
&lab	       ldx     #$1102
	       jsl     $E10000
	       MEND

		MACRO
		_PurgeAll
		ldx	#$1302
		jsl	$E10000
		MEND

;...............................................................
;
;	 Define	string
;
;	 Generates a Pascal type of string
;...............................................................

	       MACRO
	       str     &string
	       lclc    &sset
&sset	       SETC    &SETTING('STRING')
	       STRING  PASCAL
	       dc.B    &string
	       STRING  &sset
	       MEND

	       MACRO
&lab	       pull1   &SYSOPR
&lab					       ; 
	       shortm
	       pla
	       IF      &SYSOPR=''	       GOTO .end
	       sta     &SYSOPR
.end
	       longm
	       MEND

	       MACRO
&lab	       add4    &a1,&a2,&a3
&lab					       ; 
	       LCLC    &C1
	       LCLC    &C2
	       LCLC    &REST1
	       LCLC    &REST2
&C2	       SETC    &SUBSTR(&a2,1,1)
&REST2	       SETC    &SUBSTR(&a2,2,255)
	       IF      &a1		       = '' GOTO .a
&C1	       SETC    &SUBSTR(&a1,1,1)
&REST1	       SETC    &SUBSTR(&a1,2,255)
	       lda     &a1
.a
	       clc
	       adc     &a2
	       sta     &a3
	       IF      &a1		       <> '' GOTO .b
	       lda     #0
	       GOTO    .d

.b
	       IF      &C1='#'		       GOTO .c
	       lda     &a1+2
	       GOTO    .d

.c
	       lda     #^&REST1
.d
	       IF      &C2='#'		       GOTO .e
	       adc     &a2+2
	       GOTO    .f

.e
	       adc     #^&REST2
.f
	       sta     &a3+2
	       MEND

	       MACRO
&lab	       sub4    &a1,&a2,&a3
&lab					       ; 
	       LCLC    &C1
	       LCLC    &C2
	       LCLC    &REST1
	       LCLC    &REST2
&C2	       SETC    &SUBSTR(&a2,1,1)
&REST2	       SETC    &SUBSTR(&a2,2,255)
	       IF      &a1		       = '' GOTO .a
&C1	       SETC    &SUBSTR(&a1,1,1)
&REST1	       SETC    &SUBSTR(&a1,2,255)
	       lda     &a1
.a
	       sec
	       sbc     &a2
	       sta     &a3
	       IF      &a1		       <> '' GOTO .b
	       lda     #0
	       GOTO    .d

.b
	       IF      &C1='#'		       GOTO .c
	       lda     &a1+2
	       GOTO    .d

.c
	       lda     #^&REST1
.d
	       IF      &C2='#'		       GOTO .e
	       sbc     &a2+2
	       GOTO    .f

.e
	       sbc     #^&REST2
.f
	       sta     &a3+2
	       MEND

	       MACRO
&lab	       long
&lab					       ; 
	       rep     #%00110000
	       longa   on
	       longi   on
	       MEND

	       MACRO
&lab	       longm
&lab					       ; 
	       rep     #%00100000
	       longa   on
	       MEND

	       MACRO
&lab	       short
&lab					       ; 
	       sep     #%00110000
	       longa   off
	       longi   off
	       MEND

	       MACRO
&lab	       shortm
&lab					       ; 
	       sep     #%00100000
	       longa   off
	       MEND

	       MACRO
&lab	       Tool    &tool_num,&func_num,&param_list,&error_jmp
&lab					       ; 
	       IF      &param_list	       = '' GOTO .a
	       push4   #&param_list
.a
	       ldx     #&tool_num+&func_num<<8
	       jsl     $E10000
	       IF      &error_jmp	       = '' GOTO .d
	       bcc     *+5
	       brl     &error_jmp
.d
	       MEND

	       MACRO
&lab	       push    &sysopr
	       IF      &sysopr		       = '' GOTO .a
&lab	       pushword	&sysopr
	       MEXIT
.a
&lab	       pushword
	       MEND

	       MACRO
&lab	       push4   &sysopr
	       IF      &sysopr		       = '' GOTO .a
&lab	       pushlong	&sysopr
	       MEXIT
.a
&lab	       pushlong
	       MEND

	       MACRO
&lab	       move    &one,&two
	       IF      &one		   	= '' GOTO .a
	       IF      &two		   	= '' GOTO .b
&lab	       moveword	&one,&two
	       MEXIT
.b
&lab	       moveword	&one
	       MEXIT
.a
&lab	       moveword
	       MEND

	       MACRO
&lab	       pullxy  &addr
&lab					       ; 
	       plx
	       ply
	       IF      &addr		       = '' GOTO .a
	       stx     &addr
	       sty     &addr+2
.a
	       MEND

;............................................................
;
;	 Push long (4 bytes) onto stack
;
;    pushlong address		  - push contents of address
;    pushlong address,x		  - push contents of address,x
;    pushlong const,s		  - push contents of stack+const    
;    pushlong #address/const	  - push address or constant
;    pushlong [zeropage],offset	  - push using indirect	address
;...............................................................
	       MACRO
	       pushlong	&addr,&offset
	       IF      &addr[1:1]='#'	       THEN
	       pea     &addr[2:255]>>16
	       pea     |&addr[2:255]
	       ELSEIF  &addr[1:1]='['	       THEN
	       ldy     #&offset+2
	       pushword	&addr,y
	       ldy     #&offset
	       pushword	&addr,y
	       ELSEIF  &offset='s'	       THEN
	       pushword	&addr+2,s
	       pushword	&addr+2,s
	       ELSEIF  &offset=''	       THEN
	       pushword	&addr+2
	       pushword	&addr
	       ELSE
	       pushword	&addr+2,&offset
	       pushword	&addr,&offset
	       ENDIF
	       MEND

;...............................................................
;
;	 Push 2	bytes onto stack
;
;    pushword loc     -- pushes	bytes onto stack from 'loc'
;    pushword loc,x   -- pushes	bytes onto stack from 'loc,x'
;    pushword #n      -- pushes	constant #n onto stack
;    pushword	      -- pushes	bytes onto stack (from A)
;...............................................................
	       MACRO
	       pushword	&addr,&reg
	       IF      &addr[1:1]='#'	       AND &SETTING('LONGA')='ON' THEN
	       pea     |&addr[2:255]
	       ELSE
	       IF      &addr­''		       THEN
	       IF      &reg­''		       THEN 
	       lda			       &addr,&reg
	       ELSE
	       lda			       &addr
	       ENDIF
	       ENDIF
	       pha
	       ENDIF
	       MEND

	       MACRO
&lab	       stay    &addr,&offset
&lab					       ; 
	       LCLC    &C
&C	       SETC    &SUBSTR(&addr,1,1)
	       IF      &C='['		       GOTO .zeropage
	       IF      &C='>'		       GOTO .long1
	       IF      &offset		       = '' GOTO .no_offset
	       IF      &offset='s'	       GOTO .stack
	       IF      &C='|'		       GOTO .long2
	       sta     &addr,&offset
	       sty     &addr+2,&offset
	       MEXIT
.long1
	       IF      &offset		       <> '' GOTO .long2
	       sta     &addr
	       pha
	       tya
	       sta     &addr+2
	       pla
	       MEXIT
.stack
	       sta     &addr,&offset
	       pha
	       tya
	       sta     &addr+4,&offset
	       pla
	       MEXIT
.long2
	       sta     &addr,&offset
	       pha
	       tya
	       sta     &addr+2,&offset
	       pla
	       MEXIT
.no_offset
	       sta     &addr
	       sty     &addr+2
	       MEXIT
.zeropage
	       pha
	       phy
	       ldy     #&offset
	       sta     &addr,y
	       lda     1,s
	       ldy     #&offset+2
	       sta     &addr,y
	       ply
	       pla
	       MEND

	       MACRO
&lab	       moveword	&from,&to1,&to2
&lab					       ; 
	       LCLC    &C
&C	       SETC    &SUBSTR(&from,1,1)
	       IF      &C='['		       GOTO .zeropage
	       lda     &from
	       sta     &to1
	       IF      &to2		       = '' GOTO .a
	       sta     &to2
.a
	       MEXIT
.zeropage
	       IF      &to1='0'		       GOTO .b
	       ldy     #&to1
	       lda     &from,y
	       sta     &to2
	       MEXIT
.b
	       lda     &from
	       sta     &to2
	       MEND

	       MACRO
&lab	       Check_Error &error_jmp
&lab					       ; 
	       bcc     @1
	       jsr     &error_jmp
@1					       ; 
	       MEND

	       MACRO
&lab	       Switch8
&lab	       sep     #$30
	       longa   off
	       longi   off
	       MEND

	       MACRO
&lab	       Switch16
&lab	       rep     #$30
	       longa   on
	       longi   on
	       MEND

****************************************************************************************************
* This macro automatically formats the version string for the text splash screen from the
* sys_version equated value.

		macro
		verNum
		lcla	&major,&minor,&proto
		lclc	&verString
&major		seta	((sys_version AND $7F00) >> 8)
&minor		seta	(sys_version AND $00FF)
&proto		seta	(sys_version AND $8000)
&verString	setc	&concat(&i2s(&major),'.',&i2s(&minor,-2))
		if	&proto <> 0 then
&verString	setc	&concat(&verString,'p')
		endif
		dc.b	'&verString'
		endm
		
		macro
		verDate
		dc.b	'&SysDate'
		endm
 
****************************************************************************************************
* This macro allows us to define a graphic bitmap as a series of hex bytes.  This is used
* for the graphic splash screen icon and text strings.

	MACRO
	hex		&arg
	lclc	&bytes,&hexStr
&hexStr	setc	&arg
	if	(&len(&hexStr) AND 1) <> 0 then
		aerror	'Odd number of bytes in HEX directive'
&hexStr		setc	&concat(&hexStr,'0')	; make it even
	endif
&bytes	setc	&concat('$',&substr(&hexStr,1,2))
&hexStr	setc	&substr(&hexStr,3, &len(&hexStr)-2)
	while	&len(&hexStr)>0 do
&bytes		setc	&concat(&bytes,',$',&substr(&hexStr,1,2))
&hexStr		setc	&substr(&hexStr,3, &len(&hexStr)-2)
	endwhile
	dc.b	&bytes
	MEND
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/OS/GQuit/GQuit.src b/IIGS.601.SRC/GS.OS/OS/GQuit/GQuit.src
new file mode 100644
index 0000000..227b704
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/OS/GQuit/GQuit.src
@@ -0,0 +1 @@
+		string	asis
		pagesize 70
		machine	M65816
		print	nohdr,nogen		;don't expand macros

		print	push
		print	off
		include	'common.equ.src'
		include	'hw.equ.src'
		include	'gquit.macros.src'
		print	pop

		eject
*********************************************************************************
*The file START.GS.OS is organized as follows -
*
* memory location |  memory location    |  equate
* where code is   |  where code is      |  for org
* executed        |  loaded             |
*                 |                     |
*  _______________
* |               |
* | gs/os         |
* |  buffers      |
* |   start here  |
* |               |
* ------------------- 9a00
* |               |
* |     open      |
* |               |
* -----e0dfff------
* |               |
* |               |
* |    e0.obj     |
* |               |
* |               |
* -----e0d000------                     e0_obj_pstn
* -----e1dfff------
* |               |
* |    e1.obj     |
* |               |
* -----e1d100------__ 8400              e1_obj_pstn
* -----0081ff------
* |               |
* |    b0.obj     |
* |               |
* -----008200------__ 8200              b0_obj_pstn
* -----0080ff------
* |               |
* |               |
* |   gldr.obj    |
* |               |
* |               |
* -----006800--------6800               gldr_obj_pstn
* |               |
* |               |
* |     open      |
* |               |
* |               |
* -----00????--------????
* |               |
* |               |
* |   boot.obj    |
* |               |
* |               |
* -----002000--------2000               boot_obj_pstn
*********************************************************************************



		eject
********************************************************************************
*
*                         GQuit Revision History
*
********************************************************************************
*
*  Revision history notes prior to System 6.0 release have been purged from this
*  file.  If you require them, please refer to a version of this file archived
*  prior to System 6.0.
*
********************************************************************************
*
*			     System Disk 6.0
*                              8/90 - 7/91
*
********************************************************************************
*
* 8/07	---- 3.03 Release ---- System Disk 5.0.3
*
* 8/22	G. Branche
*	Modified Launch_P8App to support passing a second filename to a P8 Application.
*	  This involved changes to launch_p8app, setup_p8, and load_app.
*
* 9/24	G. Branche
*	Added second text string to the graphics splash screen displaying the
*	  current version number of the system disk.  Also cleaned up the splash
*	  screen code a little.
*
* 1/11/91 G.Branche
*	Changed system version text string to "System 6.0".
*	Added alloc_boot_mem procedure used to allocate the bank 0 memory
*	  used by GLoader during booting.
*
* 2/17	G. Branche
*	Modified GQuit so that it tries to determine if the GS/OS application
*	  being launched supports the desktop interface, as defined by its
*	  auxtype.  If it does, GQuit will leave the screen in whatever state
*	  it finds it.  If the app does not support the desktop interface,
*	  GQuit will force the display of the text screen.
*	Moved Init_text_tools to bank $E1 to make some room for the above
*	  enhancement in bank $E0.
*
* 03/??	G. Branche
*	Added support for Program Launcher code resource.
*
* 05/31	G. Branche
*	GLoader now checks the state of the shift key during booting to
*	  determine whether or not to load INIT's and DA's.
*
* 06/11	G. Branche
*	P8 quit patch modified to use an MVN instruction to move the quit code
*	  to $1000 instead of moving the bytes manually.
*	P8 quit patch fixed to account for shrinking of original P8 calldisp
*	  subroutine.
*
* 07/30	G. Branche
*	Quit now displays a non-fatal dialog if InitialLoad2 fails, allowing
*	  the user to either return to the launching application, or restarting
*	  the system.
*
* 08/02 G. Branche
*	When launching a P8 application, GQuit now identifies the file system
*	  that the P8 application is residing on.  If the file system is not
*	  ProDOS or AppleShare, GQuit displays an informational dialog notifying
*	  the user that P8 applications can only be launched from volumes which
*	  P8 can recognize (ProDOS or AppleShare).  The user is given the choice
*	  of restarting the system or returning to the launching application.
*
* 08/12	G. Branche
*	Changed both GLoader and GQuit to support System Loader 4.0 (with both
*	  System Loader and ExpressLoad merged).
*
* 08/25	G. Branche
*	Cleaned out old System Loader support code that is no longer required
*	  with Loader 4.0.
*	Changed Loader Entry address from $1A000 to $1A600.
*	When P16Quit receives an error within the get_info_sub subroutine, it
*	  will display the "Restart/Return" dialog, allowing the user to return
*	  to the previous application.  This matches what happens when an
*	  error occurs during the InitialLoad of the next application.
*
* 09/06 G. Branche
*	Added logic in setup which initialized the AppleTalk Bank $E1 vectors if
*	  we're NOT booting over AppleTalk.  This should allow a user to launch
*	  the ProDOS file as an application without having the system die when it
*	  tries to use one of the (no longer valid) AppleTalk vectors.
*	When launch_p16_app received an OutOfMemory error from the loader when
*	  loading the Start application (like the Finder), it would display the
*	  new dialog giving the user a chance to return to the launching
*	  application.  Since there WAS no launching application on the quit
*	  stack, GQuit would try to launch the Start application (like the Finder)
*	  again.  Again, GQuit would receive an OutOfMemory error, and give the
*	  user a chance to return to the launching application. (Can you say
*	  "infinite loop"?  I knew you could!)  I changed the code so that instead
*	  of simply calling pop_id to retrieve an ID off of the quit stack, it
*	  now calls get_next_prog to pop an ID off of the quit stack and, if no
*	  ID was available, bring in the Program Launcher.
*	Add PurgeAll($A002) call just after executing Tool.Setup.
*
* 09/19	G. Branche
*	Added code in setup_p8 which zeros the ProDOS device ID stored at $43
*	  in zero page.  P8 uses this value as the boot device ID when it sorts
*	  the device list, so it shouldn't be using a garbage value.
*	When removing the thermometer heartbeat task, I now clear the SHR
*	  linearization bit.
*
* 09/23	G. Branche
*	Changed p8_calldisp_patch to account for size change in P8's calldisp
*	  routine.
*	Changed splash screen code so that it no longer clears the linearization
*	  bit when it shuts down the heartbeat task.  It now clears the bit
*	  when it initially displays the SHR screen, and then sets it only long
*	  enough to update the thermometer bar.
*
* 10/10	G. Branche
*	Changed "Extensions Off" bitmap to read "No Inits/DAs"
*
* 10/28 G. Branche
*	Altered error message #52 (Unable to launch next application) to add
*	  display of error code causing the display of the message.
*	Moved "dispose_xxx" routines to bank $E1 code to make room for above
*	  change.
*
* 11/13 G. Branche
*	Altered application launching sequence to check QuickDraw status before
*	  turning off the SHR screen.  If QD says it's active, we leave the
*	  screen in whatever state we found it.
*	Altered GLoader to use the new global OSPublicFlags variable in bank
*	  $E1.  Bit 15 is used to notify the rest of the system when GLoader
*	  hasn't loaded any INITs and DAs because the user pressed the shift
*	  key during booting.
*
* 12/09 G. Branche
*	Fixed "No Inits/DAs" bitmap to remove an extra pixel from the right
*	  edge of the second "s".
*	Added code in GQuit to clear the fake menu bar displayed on the SHR
*	  screen if the launching application is returned to for whatever
*	  reason (e.g. launching a non-GS/OS-aware app with a full pathname
*	  longer than 64 characters).  This is done by blasting pixel data
*	  directly to the SHR video buffer, but only if the SHR screen is
*	  currently being displayed.
*
* 12/11	G. Branche
*	call_launcher now performs a ResourceStartup call prior to loading the
*	  Program Launcher code resource, and a ResourceShutdown call once the
*	  launcher returns.
*
* 01/09/92 G. Branche
*	New vector defined, at $E100B4, named os_p8_switch.  This is initialized
*	  to an RTL by GLoader in the same manner that the normal os_switch vector
*	  is set up.  The vector will be called by launch_p16app when GQuit is
*	  about to switch from P8 to GS/OS, but _before_ P8 is removed from memory.
*	  This will give clients an opportunity to remove themselves from the P8
*	  environment before P8 disappears (e.g. EtherTalk).
*
* 01/14/92 G. Branche
*	In get_next_prog, I've bracketed the call to Call_Launcher with logic to
*	  save the SysPrefs, set them to 0 to prevent the Volume Mount dialog
*	  when Standard File can't find the volume associated with the currently
*	  set prefix, and then restore them to the original setting after
*	  Call_Launcher returns.
*
* 01/18/92 G. Branche
*	Changed e1_obj_max to $E1D980 (from $E1DA00) to free up even more room
*	  for SCM (to implement fcr renaming).
*
* 02/12/92 G. Branche
*	Fixed set_prefixes in GQuit so that an application's pathname is allowed
*	  to have a trailing pathname separator.  Previously, this would cause
*	  GQuit to overwrite a bank of memory and eventually crash.
*
********************************************************************************
*
* *** System 6.0.1 ***
*
* 17-Feb-92 Dave Lyons
*       Changed splash screen to read "System 6.1 under construction".
*
* 3-Mar-92 Dave Lyons
*       Revert to "System 6.0" splash screen for 6.0d78.
*
* 6-Mar-92 Dave Lyons
*       Re-revert to "System 6.1 under construction" for 6.1d2.
*
* 26-May-92 Dave Lyons
*       Re-re-revert to "System 6.0.1 under construction" for 6.0.1d4.
*
* 4-Jun-92 Dave Lyons
*	Redefine os_p8_switch to be called with A=$0000 when leaving P8 (the
*	  old way), and $0001 when leaving GS/OS.  (A was already zero in 6.0.)
*	Two small optimizations to save 4 bytes & make it still fit.
*
* 20-Oct-92 Dave Lyons
*	Fixed "No Inits/DAs" to white out the version area first, so long
*	  versions don't stick out the edges.  (Yes, I said I wasn't ever
*	  going to fix that, but I did.)
*
* 23-Oct-92 Dave Lyons
*       Tried the following change, then commented it out:
*	;If UNIT ($43) is still zero, make it something else ($50), because zero
*       ;  is dangerous (if fed to ON_LINE, for example, it will return much more
*       ;  data than expected).  This should only be zero in the somewhat strange
*       ;  case that you network-booted into GS/OS, and then switched to P8 but
*       ;  have so many devices online that your boot volume isn't in DEVLST.
*	Optimizations to fit in the above change.
*	NOTE:  Can save bytes by consolidating 5 NewHandle calls between
*	  org_dummy_5 and org_dummy_6.
*	Can consolidate two calls to _GetDevNumber1 e1_gdn_parms1 (save 4?).
*
* 18-Feb-93 DAL
*	Fixed accidental 16-bit keyboard read in pause mode.
*
* 9-Mar-93 DAL
*	Added code to clear the "press any key" message after they hit
*	a key.  Took out "In pause mode!!!" before the message.
*
* 1-Apr-93 SS
*       Changed splash screen to read "System 6.0.1".
*
********************************************************************************


		eject
*********************************************************************************
*                                                                               *
*                     GLoader and GQuit equates                                 *
*                                                                               *
*               Copyright Apple Computer, Inc. 1986-1993                        *
*                                                                               *
*                        All Rights Reserved                                    *
*                                                                               *
*********************************************************************************


;-------------------------------------------------------------------------------
; equates for ORGs
;-------------------------------------------------------------------------------


boot_obj_pstn	equ	$002000		;boot code executes here
gldr_obj_pstn	equ	$006800		;gldr.obj executes here
gldr_obj_pad	equ	$008200		;org here to pad gldr.obj to next code
b0_obj_pstn	equ	$008200		;b0.obj executes here
b0_obj_pad	equ	$008400		;org here to pad b0.obj to next code
b0_obj_size	equ	$000200		;size of b0.obj
b0e1_obj_pstn	equ	$e1d000		;b0.obj lives here until executed
e0_obj_pstn	equ	$e0d000		;e0.obj executes here
e0_obj_max	equ	$e0e000		;e0.obj must not hit this address
e1_obj_pstn	equ	$e1d200		;e1.obj executes here
e1_obj_max	equ	$e1d980		;e1.obj must not hit this address


;-------------------------------------------------------------------------------
; ProDOS 8 equates
;-------------------------------------------------------------------------------

ProDOS8		equ	$00BF00		; ProDOS 8 entry point
mliactive	equ	$00bf9b		; ProDOS 8's mli active flag
PAR		equ	$000040		; ProDOS 8's parameter table pointer
p8calldisp_adr	equ	$FEFD		; 2-byte vector to p8calldisp
p8_compat_byte	equ	$2EFA		; 1-byte compatibility version #
p8_compat_value	equ	4		; current compatibility version #
p8_file_eof	equ	$42E8		; current size of P8 file
p8_max_length	equ	64		; max length of P8 pathname or prefix


;-------------------------------------------------------------------------------
; ProDOS 8 command numbers
;-------------------------------------------------------------------------------

p8_gfi_num	equ	$c4		; GetFileInfo command number
p8_setpfx_num	equ	$c6		; SetPrefix command number
p8_open_num	equ	$c8		; Open command number
p8_read_num	equ	$ca		; Read command number
p8_close_num	equ	$cc		; Close command number
p8_eof_num	equ	$d1		; GetEOF command number


;-------------------------------------------------------------------------------
; miscellaneous equates
;-------------------------------------------------------------------------------

lang_card_start	equ	$d000		; address of first language card byte
lang_card_size 	equ	$1000		; 4k is size of language card bank
work_seg_size	equ	$10000		; 64k bytes in work segment size
zp_size		equ	4096		; Default user zp/stack size
id_stack_size	equ	64		; Size of the id_stack
skip_std_bit	equ	$2000		; 'skip_std' bit in Quit Flags


;-------------------------------------------------------------------------------
; GLDR's fatal error equates
;-------------------------------------------------------------------------------

start_fst_err	equ	4
init_gsos_err	equ	5
load_fst_err	equ	6
prefix_0_err	equ	7
prefix_2_err	equ	8
sys_search_err	equ	9
no_sys_file_err	equ	10
tool_setup_err	equ	11
load_setup_err	equ	12
load_da_err	equ	13
ts_type_err	equ	17
fst_type_err	equ	34
boot_drvr_err	equ	36
drvr_type_err	equ	37
res_mgr_err	equ	38
rm_type_err	equ	39
express_err	equ	40
gsosdev_err	equ	42
load_fst_err2	equ	57
load_setup_err2	equ	58
load_da_err2	equ	59


;-------------------------------------------------------------------------------
; GQUIT's fatal error equates
;-------------------------------------------------------------------------------

p8_version_err	equ	14
quit_err	equ	15
no_p8_err2	equ	18
p8_path_err2	equ	56


;-------------------------------------------------------------------------------
; GQUIT's non-fatal error equates
;-------------------------------------------------------------------------------

no_p8_err 	equ	20
aware_err1	equ	53
aware_err2	equ	54
p8_path_err	equ	55


;-------------------------------------------------------------------------------
; file type equates
;-------------------------------------------------------------------------------

shell_ftype	equ	$b5		; ProDOS 16 shell file type
sys_ftype	equ	$ff		; Old '.system' file type
s16_ftype	equ	$b3		; New '.sys16' file type
perm_ftype	equ	$b6		; Permanent setup file type
temp_ftype	equ	$b7		; Temporary setup file type
nda_ftype	equ	$b8		; New Desk Accessory file type
cda_ftype	equ	$b9		; Classic Desk Accessory file type
drvr_ftype	equ	$bb		; Driver file type
fst_ftype	equ	$bd		; FST file type


;-------------------------------------------------------------------------------
; aux type equates
;-------------------------------------------------------------------------------

drvr_atype	equ	$0181		; boot driver aux type
gsos_aware	equ	$DB01		; app is "GS/OS aware"
gsos_aware_mask	equ	$FF01		; mask for "GS/OS aware" auxtype


;-------------------------------------------------------------------------------
; memory segment ID equates
;-------------------------------------------------------------------------------

scm_id_type	equ	$3100		; SCM memory segment ID type
gquit_id_type	equ	$3200		; GLoader/GQuit memory segment ID type
fst_id_type	equ	$3300		; FST memory segment ID type
drvr_id_type	equ	$3900		; loaded driver memory segment ID type
dev_id_type	equ	$3F00		; GS.OS.DEV memory segment ID type
DA_id_type	equ	$5000		; Desk Accessory memory segment ID type
setup_id_type	equ	$A000		; Setup file memory segment ID type


;-------------------------------------------------------------------------------
; firmware entry point equates
;-------------------------------------------------------------------------------

eighty_columns	equ	$c300		;enable eighty columns
crout		equ	$fd8e		;output a carriage return
cout		equ	$fded		;output the ascii char in A


;-------------------------------------------------------------------------------
; softswitch equates
;-------------------------------------------------------------------------------

newvideo	equ	$c029		;bit 7 = super hires disable/enable bit
e0rdc3rom	equ	$e0c017		;slot 3 status


;-------------------------------------------------------------------------------
; vector equates
;-------------------------------------------------------------------------------

tobramsetup	equ	$e10094		;vector to bramsetup routine
a_t_vect	equ	$e1103a		;AppleTalk priority vector


;-------------------------------------------------------------------------------
; memory manager attribute word equates
;-------------------------------------------------------------------------------
; The following are attributes words used in calls to the memory manager.
; The individual bits of the memory manager attributes word mean the following:
;
; Bit 15     : 1 - segment is locked so purge is impossible.
; Bit 14     : 1 - segment is fixed and so cannot be moved.
; Bits 10-13 : unused and set to 0.
; Bits 8-9   : 0 - not purgable ;                 1 - least purgable.
; Bits 5-7   : unused and set to 0.
; Bit 4      : 0 - can cross bank boundary ;      1 - can't cross bank boundary.
; Bit 3      : 0 - may use special memory ;       1 - may not use special mem
; Bit 2      : 0 - page alignment not required ;  1 - page alignment required.
; Bit 1      : 0 - segment not at fixed address ; 1 - segment is at fixed address.
; Bit 0      : 0 - segment not in a fixed bank ;  1 - segment is in a fixed bank.
;-------------------------------------------------------------------------------

;boot_attrib and reboot_attrib are different in order to fix a bug where the
;installer wouldn't run after a cold boot on a minimum system configuration
;due to the loader allocating locked segments below GLoader's 64K buffer.
;This problem only occurs after a cold boot.
;By having boot_attrib specify bank alignment, the installer runs.
;This should be fixed correctly in 4.1 by allocating the loader's segments
;before allocating GLoader's 64K buffer.

;		Attribute bit positions:
;			 Locked
;			 |Fixed
;			 ||Unused
;			 ||||||Purge level
;			 ||||||||Unused
;			 |||||||||||NoCrossBank
;			 ||||||||||||NoSpecialMem
;			 |||||||||||||PageAligned
;			 ||||||||||||||FixedAddress
;			 |||||||||||||||FixedBank
;			 ||||||||||||||||
;			 vvvvvvvvvvvvvvvv
boot_attrib	equ	%1000000000011001	;buffer will be in mid memory
mm_attrib	equ	%1100000000010011
zp_attrib	equ	%1100000100010101
path_attrib	equ	%1100000000011000
storage_attrib	equ	%0000000000001000
p8copy_attrib	equ	%0000000100001000

;-------------------------------------------------------------------------------
; shadow register equates
;-------------------------------------------------------------------------------
; The individual bits of the shadow register are interpreted as follows:
;
; bit 7 : Must be zero.
; bit 6 : 0 enables I/O and language cards ;     1 disables.
; bit 5 : 0 enables text page 2 shadowing;       1 disables.
; bit 4 : 0 enables aux hi-res page shadowing ;  1 disables.
; bit 3 : 0 enables 32K video buffer shadowing ; 1 disables.
; bit 2 : 0 enables hi-res page 2 shadowing ;    1 disables.
; bit 1 : 0 enables hi-res page 1 shadowing ;    1 disables.
; bit 0 : 0 enables text page 1 shadowing ;      1 disables.
;-------------------------------------------------------------------------------

P16_shadowmask	equ	$1e		; Enable only text for P16 applications.
P8_shadowmask	equ	$08		; Enable all shadowing except for sup-hires for P8 apps.
text_page_2_bit	equ	$20

;-------------------------------------------------------------------------------
; GS/OS header equates
;-------------------------------------------------------------------------------
; The header for all binary files which are to be appended to GS.OS is:
;
;               dc      i2'xxxx_len'    ;number of bytes to load in
;               dc      i4'xxxx_dest'   ;address where the segment goes
;               dc      i2'xxxx_flag'   ;flag byte (explained shortly)
;               dc      c'this code. ver# 0.02' ;any text string (msb on)
;
;               flag=   bit 15   = 0/1 swap in language card bank 0/1
;                       bit 14-1 = reserved and must be set to zero
;                       bit 0    = 0/1 call system loader to relocate start FST
;
; The code segment follows this header information.
;
; The file GS.OS is a combination of header/code segments appended together
; into one file.
;
; Following the last set of header/code segments you must place a $ffff word.
; This signifies the end of the table.
;-------------------------------------------------------------------------------

gs_os_hdr_len	equ	$30		;each header is padded to $30 bytes long
hdr_code_len	equ	$00		;offset to code length in header
hdr_code_dest	equ	$02		;offset to code destination in header
hdr_lc_flag	equ	$06		;offset to language card flag in header
hdr_msg		equ	$08		;offset to actual message in header


;-------------------------------------------------------------------------------
; FST header equates
;-------------------------------------------------------------------------------

fst_id_offset	equ	12		;offset to FST ID in FST header
fst_name_offset	equ	36		;offset to name string in FST header


;-------------------------------------------------------------------------------
; FST ID equates
;-------------------------------------------------------------------------------

appleshare_id	equ	$0d		;AppleShare FST ID



;===============================================================================
;
; System Loader Equates
;
;===============================================================================


Loader_Entry	equ	$01A600		;location of Loader 4.0
Loader_TSN	equ	$0011		;System loader's tool set number
SCM_Start	equ	$009A00		;Start of SCM's bank 0 space

;-------------------------------------------------------------------------------
; Miscellaneous Equates
;-------------------------------------------------------------------------------

Loader_Mem	equ	$7000		;loader's user ID

; Memory Manager Allocation Attributes

Locked		equ	%1000000000000000
Fixed		equ	%0100000000000000
No_Cross_Bank	equ	%0000000000010000
No_Special_Mem	equ	%0000000000001000



		eject
*********************************************************************************
*                                                                               *
*                         Imported Addresses                                    *
*                                                                               *
*********************************************************************************

		IMPORT	add_fst
		IMPORT	deallocate
		IMPORT	init_scm
		IMPORT	restart_system
		IMPORT	shutdown_scm
		IMPORT	v_ptr1
		IMPORT	os_event
		IMPORT	set_prefix_33
		IMPORT	cache_in_queue
		IMPORT	close_all_files


*********************************************************************************
*                                                                               *
*               Forward Addresses and Entries                                   *
*                                                                               *
*********************************************************************************

		ENTRY	alloc_err
		ENTRY	alloc_gsos_mem
		ENTRY	alloc_os_mem
		ENTRY	alloc_p8_mem
		ENTRY	alloc_storage
		ENTRY	alloc_user_zp
		ENTRY	alloc_boot_mem
		ENTRY	alloc_work_mem
		ENTRY	auxtype
		ENTRY	b0_reload_msg
		ENTRY	big_system
		ENTRY	boot_complete
		ENTRY	boot_hndl
		ENTRY	buf_hndl
		ENTRY	buf_ptr
		ENTRY	call_fw
		ENTRY	check_id_stack
		ENTRY	close_parms1
		ENTRY	close_ref
		ENTRY	colon_2_slash
		ENTRY	compare_string
		ENTRY	concat
		ENTRY	copy_gsos_segs
		ENTRY	copy_to_buf
		ENTRY	copy_volname
		ENTRY	custom_boot
		ENTRY	da_type
		ENTRY	da_path
		ENTRY	dispose_os_mem
		ENTRY	dispose_path
		ENTRY	dispose_storage
		ENTRY	dispose_user_zp
		ENTRY	divide
		ENTRY	do_fst_stuff
		ENTRY	driver_path
		ENTRY	e0_end
		ENTRY	e1_appleshare
		ENTRY	e1_app_filename
		ENTRY	e1_app_volname
		ENTRY	e1_aux_type
		ENTRY	e1_bank0_save
		ENTRY	e1_besc
		ENTRY	e1_btn1_label
		ENTRY	e1_btn2_label
		ENTRY	e1_c3_status
		ENTRY	e1_close_parms1
		ENTRY	e1_close_ref
		ENTRY	e1_cons_path
		ENTRY	e1_current_id
		ENTRY	e1_current_os
		ENTRY	e1_dev_address
		ENTRY	e1_drvr_address
		ENTRY	e1_drvr_id
		ENTRY	e1_end
		ENTRY	e1_fatal_msg
		ENTRY	e1_fst_parms1
		ENTRY	e1_fst_ptr
		ENTRY	e1_gbv_parms
		ENTRY	e1_gdn_dnum
		ENTRY	e1_gdn_parms1
		ENTRY	e1_gdn_ptr
		ENTRY	e1_geof_eof
		ENTRY	e1_geof_parms1
		ENTRY	e1_geof_ref
		ENTRY	e1_getpfx_num
		ENTRY	e1_getpfx_parms1
		ENTRY	e1_gfi_atype
		ENTRY	e1_gfi_eof
		ENTRY	e1_gfi_ftype
		ENTRY	e1_gfi_parms1
		ENTRY	e1_gfi_ptr
		ENTRY	e1_gsos_ok
		ENTRY	e1_gsos_segs
		ENTRY	e1_gsos_segs2
		ENTRY	e1_id_stack
		ENTRY	e1_id_stack_index
		ENTRY	e1_lib_path
		ENTRY	e1_load_type
		ENTRY	e1_mount_msg
		ENTRY	e1_msg_address
		ENTRY	e1_mslot
		ENTRY	e1_no_storage
		ENTRY	e1_null_str
		ENTRY	e1_open_id
		ENTRY	e1_open_parms1
		ENTRY	e1_open_ref
		ENTRY	e1_os_mem_id
		ENTRY	e1_os_switch
		ENTRY	e1_p8_path
		ENTRY	e1_p8copy_flag
		ENTRY	e1_p8copy_hndl
		ENTRY	e1_p8copy_id
		ENTRY	e1_p8copy_ptr
		ENTRY	e1_p8copy_size
		ENTRY	e1_p8quit_path
		ENTRY	e1_patch1_adr
		ENTRY	e1_patch2_adr
		ENTRY	e1_path_hndl
		ENTRY	e1_path_id
		ENTRY	e1_path_len
		ENTRY	e1_path_ptr
		ENTRY	e1_prefix_buf
		ENTRY	e1_prefix_buf1
		ENTRY	e1_quit_flags
		ENTRY	e1_quit_prefix
		ENTRY	e1_read_count
		ENTRY	e1_read_parms1
		ENTRY	e1_read_ref
		ENTRY	e1_sess_parms1
		ENTRY	e1_setpfx0_parms
		ENTRY	e1_setpfx2_parms1
		ENTRY	e1_setpfx_num
		ENTRY	e1_setpfx_parms1
		ENTRY	e1_setpfx_ptr
		ENTRY	e1_start_flag
		ENTRY	e1_start_prog0
		ENTRY	e1_start_prog1
		ENTRY	e1_storage_id
		ENTRY	e1_sys_filename
		ENTRY	e1_user_id
		ENTRY	e1_volname
		ENTRY	e1_volume_id
		ENTRY	e1_volume_parms1
		ENTRY	e1_volume_ptr
		ENTRY	e1_word_temp
		ENTRY	e1_zp_size
		ENTRY	e1_zp_handle
		ENTRY	e1_zp_start
		ENTRY	errmsg_path
		ENTRY	fatal_fn_err
		ENTRY	filename
		ENTRY	filename1
		ENTRY	filetype
		ENTRY	fst_path
		ENTRY	find_sys_file
		ENTRY	fst_address
		ENTRY	gde_auxtype
		ENTRY	gde_disp
		ENTRY	gde_filetype
		ENTRY	gde_parms1
		ENTRY	gde_ref
		ENTRY	get_info_sub
		ENTRY	get_next_prog
		ENTRY	got_filename
		ENTRY	gotp8
		ENTRY	gs_os_credit
		ENTRY	gsos_err
		ENTRY	gsos_fatal_err
		ENTRY	gsos_fatal_err2
		ENTRY	gsos_nonfatal
		ENTRY	gsos_path
		ENTRY	gsosdev_path
		ENTRY	heart_active
		ENTRY	iload_file
		ENTRY	iload_type
		ENTRY	init_text_tools
		ENTRY	initialize_data
		ENTRY	launch_app
		ENTRY	launch_p16app
		ENTRY	load_adr
		ENTRY	load_app
		ENTRY	load_app_begin
		ENTRY	load_app_end
		ENTRY	load_boot_drvr
		ENTRY	load_da
		ENTRY	load_da_files
		ENTRY	load_err_msgs
		ENTRY	load_file_adr
		ENTRY	load_file_len
		ENTRY	load_from_mem
		ENTRY	load_fsts
		ENTRY	load_gsosdev
		ENTRY	load_setup
		ENTRY	load_setup_files
		ENTRY	load_start_fst
		ENTRY	loader_err
		ENTRY	loader_install
		ENTRY	make_full_path
		ENTRY	make_start_paths
		ENTRY	mem_size_err
		ENTRY	moveblock
		ENTRY	msgfile_err
		ENTRY	new_time
		ENTRY	open_parms1
		ENTRY	open_ref
		ENTRY	p8_fatal_err
		ENTRY	p8_fatal_err2
		ENTRY	p8_mount_vol
		ENTRY	p8_prefix_err
		ENTRY	path_buf
		ENTRY	path_len
		ENTRY	perm_msg_size
		ENTRY	pop_id
		ENTRY	pressanykey
		ENTRY	print_message
		ENTRY	push_id
		ENTRY	quit_parms1
		ENTRY	read_the_file
		ENTRY	relocate_segs
		ENTRY	resmgr_name
		ENTRY	resmgr_path
		ENTRY	restart_heartbeat
		ENTRY	s16name
		ENTRY	save_filetype
		ENTRY	save_mslot
		ENTRY	setpfx0_parms1
		ENTRY	set_prefixes
		ENTRY	setup_P8_begin
		ENTRY	setup_P8_end
		ENTRY	setup_path
		ENTRY	skip_cdas
		ENTRY	slash_2_colon
		ENTRY	splash_screen
		ENTRY	start_app_chk
		ENTRY	start_scrn_chk
		ENTRY	startfst_name
		ENTRY	startfst_path
		ENTRY	startpath
		ENTRY	stop_scrn_chk
		ENTRY	stop_splash
		ENTRY	sysname
		ENTRY	system_death
		ENTRY	temp_setup
		ENTRY	text_flag
		ENTRY	toolsetup_name
		ENTRY	toolsetup_path
		ENTRY	unload_file
		ENTRY	vol_path
		ENTRY	volname_err

		entry	draw_ext_off

		eject
*********************************************************************************
*                                                                               *
*                               GLoader                                         *
*                                                                               *
*               Copyright Apple Computer, Inc. 1986-1993                        *
*                                                                               *
*                        All Rights Reserved                                    *
*                                                                               *
*********************************************************************************

*********************************************************************************
		SEG	'seg_gldr'
org_dummy_1	proc	org gldr_obj_pstn
		endp
*********************************************************************************

;===============================================================================
; setup
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank is set to bank $00 on entry and exit.
; Direct register is set to $0000 on entry and exit.
; Stack is set to $01ff on entry.
; Stack is set to GQuit's stack on exit.
;
; Standard entry point is at $6800.  A,X and Y are undefined.
;
; Entry point for custom boot is at $6803.  Register values should be -
;   A - custom boot flags
;   X - 0 (currently unused)
;   Y - 0 (currently unused)
;===============================================================================

setup		PROC

		lda	#0		;initialize custom boot flags to 0
custom_entry				;entry point for custom boot
		sta	|custom_boot	;save custom boot flags

		longa	off
		longi	off
		sep	#$30		;***** begin 8-bit mode *****

; make sure external cx rom is active to fix a bug in the 1.0gs rom
; which caused the internal cx rom space to be left mapped in after a
; boot failure (ie. boot disk not in drive) on smartport.

;let's start with a known memory state.  it should be safe to do this.

		lda	#$0c		;enable rom/lcbnk 2/external $cn00 space
		sta	statereg

;get the boot slot # and save it for later (we have to do this before we put
;up any text which will change the value in mslot)

		lda	>mslot
		sta	>save_mslot

;put up the graphics version of the gs/os splash screen if no key was pressed

		rep	#$30		;***** begin 16-bit mode *****
		lda	|boot_obj_pstn+12 ;get aux type of START.GS.OS
		jsr	splash_screen	;to use as boot time value
		sep	#$30		;***** begin 8-bit mode *****

;determine if graphics screen is up or if we should put up the text screen

		stz	|text_flag+1	;clear out hi byte of flag
		lda	|heart_active	;get keypress flag from graphics code
		sta	|text_flag	;and save
		beq	skip_text	;if 0 then graphics screen is up

;a key was pressed so the text version of the splash screen should be put up
;first check to see if internal slot 3 is enabled
;if not, don't put up any text

		lda	>e0rdc3rom	;get slot 3 status
		and	#$80		;only want bit 7
		eor	#$80		;invert the bit
		sta	|text_flag	;and save
		beq	skip_text	;if 0 then internal slot 3 disabled

;put up the text version of the gs/os splash screen

		lda	#$a0		;space character
		jsr	eighty_columns	;clr scrn + enable 80 cols in basic

		ldy	#$00		;display product name
gsos_name_loop	lda	gs_os_credit,y
		beq	gsos_name_done	;done when a zero is encountered
		jsr	cout		;output the character to the screen
		iny
		bra	gsos_name_loop	;always loop waiting for a zero
gsos_name_done

skip_text

; now let's set up the shadow register to ensure graphics shadowing
; off and text page 1 shadowing on (preserve state of text page 2 shadowing)

		lda	shadow
		and	#text_page_2_bit
		ora	#p16_shadowmask
		sta	shadow

; disable interrupts so we can initialize tools and the memory manager.
; this is done to allow pr# booting to work!!

		php			;save interrupt status
		sei			;turn off interrupts
		asl	|custom_boot+1	;skip this part of the boot process?
		bcs	skipit1		;yes
		jsl	>initdismgr	;initialize the tools and the memory mgr
		jsr	$FE1F		;call ROM ID routine
		dey			;ROM00 (better not be)
		bmi	skipit1		;they're gonna crash eventually anyway
		bne	@ROM03		;if non-zero, must be ROM03 or greater
		jsl	$FF1C06		;call ROM to initialize ATalk vectors
		bra	skipit1
@ROM03
		jsl	$FDE594		;call ROM to initialize ATalk vectors

skipit1

; disable AppleTalk and SCC

		asl	|custom_boot+1	;skip this part of the boot process?
		bcs	skipit2		;yes
		stz	|$c047		;disable AppleTalk interrupts
		stz	|$c041
		lda	#$09		;disable SCC
		sta	|$c039
		lda	#$c0
		sta	|$c039
		lda	#$0b		;enable oscillator
		sta	|$c039
		lda	#$d2
		sta	|$c039
skipit2

; restore interrupt state

		plp

; if the graphics splash screen is up then re-enable the VBL interrupts
; since initdismgr turned them off

		jsr	restart_heartbeat

; now we must initialize the emulation stack save location at $010101 to
; $fb, so when rom tool calls are made, the convention of setting the stack
; pointer to the value present at $010101 when called from a program using
; a native stack, can ensure not trashing the emulation mode stack

		lda	#$fb
		sta	>alemstkptr

; write enable language card bank 0

		ldy	lcbank1
		ldy	lcbank1

; Now let's initialize some global flags

		lda	#$01		;indicate that this was a GS/OS boot
		sta	>os_boot

		lda	#$ff		;indicate that OS is not running yet
		sta	>os_kind

		asl	|custom_boot+1	;skip this part of the boot process?
		bcs	skipit3		;yes
		lda	#$6b		;RTL opcode
		sta	>os_switch	;initialize os_switch notification list.
		sta	>os_p8_switch	;and the P8 switch notification list.
skipit3

; begin 16-bit native mode

		longa	on
		longi	on
		rep	#$30		;***** begin 16-bit mode *****

; indicate to GS/OS, FSTs, drivers, etc. that this is a "cold" start

		lda	#$0000
		sta	>warm_cold_flag

; set the stack to GQuit's stack

		lda	#gquit_stack_top
		tcs

; Now relocate the GQuit code into the $e0 and $e1 language cards.
; Note - this code assumes the language card bank 0 is active on entry.

; The B0 and E1 code goes to the 1st $d000 bank of the $e1 language card.

		ldx	#b0_obj_pstn	;source adr
		ldy	#lang_card_start ;dest adr
		lda	#e1_end-b0e1_obj_pstn-1	;number of bytes to reloc - 1.
		mvn	0, $E10000	;move from bank 0 to bank $E1

; The E0 code goes to the 1st $d000 bank of the $e0 language card.

		ldx	#b0_obj_pstn+(e1_end-b0e1_obj_pstn) ;source adr
		ldy	#lang_card_start ;dest adr
		lda	#e0_end-e0_obj_pstn-1 ;number of bytes to reloc - 1.
		mvn	0, $E00000	;move from bank 0 to bank $E0

; set data bank register back to $00

		phk			;the previous MVN instruction set the
		plb			;data bank register to $E0

; copy boot slot # into GQuit's data area

		lda	|save_mslot
		sta	>e1_mslot

; get a user id to use when allocating reserved memory segments for GS/OS and ProDOS 8

		pha			;space for result
		pea	gquit_id_type	;GLoader/GQuit use $32xx
		_getnewid
		pla			;get id
		sta	>e1_os_mem_id	;and save for use by GQuit

; get a user id to use when allocating space for the Quit pathname

		pha			;space for result
		pea	gquit_id_type	;GLoader/GQuit use $32xx
		_getnewid
		pla			;get id
		sta	>e1_path_id	;and save for use by GQuit

; get a user id to use when allocating space to save GS/OS while ProDOS 8 is running

		pha			;space for result
		pea	gquit_id_type	;GLoader/GQuit use $32xx
		_getnewid
		pla			;get id
		sta	>e1_storage_id	;and save for use by GQuit

; get a user id to use when allocating space to save a copy of P8

		pha			;space for result
		pea	gquit_id_type	;GLoader/GQuit use $32xx
		_getnewid
		pla			;get id
		sta	>e1_p8copy_id	;and save for use by GQuit

; Allocate the bank 0 memory currently being used by GLoader

		jsl	alloc_boot_mem
		bcs	@oops		;huh???

; Allocate GS/OS's reserved memory segments.

		jsl	alloc_gsos_mem
		bcc	got_gsos_mem
@oops
 		ldx	#alloc_err	;address of error msg
		jmp	system_death	;doesn't return
got_gsos_mem

; Now ask for 64k of memory space outside of banks $00/$01 which will be used to
; load GS/OS and related files.

		jsl	alloc_work_mem
		bcc	got_work_mem	;if c=1, error in A
		ldx	#mem_size_err	;address of error msg
		jmp	system_death	;doesn't return
got_work_mem

; fall through into 'main'

		eject
;===============================================================================
; main
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank is set to bank $00 on entry and exit.
; Direct register is set to $0000 on entry and exit.
; Stack is set to GQuit's stack on entry and exit.
;===============================================================================

main
		DataChk	Off

		longa	on
		longi	on

; check for a depressed shift key, which means that the user does not wish
; to have INIT's and DA's loaded

		lda	#0		; assume we're gonna load extensions
		sta	>os_public_flags
		lda	>$E1C025	; get keyboard modifier flags
		lsr	a		; shift key down?
		bcc	@load_extensions ; no, go ahead and load the extensions
		jsr	draw_ext_off	; draw the skip message
		lda	#$8000
		sta	>os_public_flags ; set the flag for the rest of the system
@load_extensions

; Get the name of the boot volume

		pea	e1_volname>>16	;pointer to space for volume name
		pea	e1_volname
		ldx	#6		;offset to GetBootName routine
		jsr	(boot_obj_pstn,x) ;get the volume name
		bcc	got_volname	;if c=1, error in A
		ldx	#volname_err	;address of error msg
		jmp	system_death	;doesn't return
got_volname

; Get the name of the start fst

		pea	startfst_name>>16 ;pointer to space for fst name
		pea	startfst_name
		ldx	#8		;offset to GetFstName routine
		jsr	(boot_obj_pstn,x) ;get the start fst name

; Create the pathname of the start fst

		pea	1		;indicate class 1 strings
		pea	startfst_path>>16 ;Push ptr to string1
		pea	startfst_path
		pea	startfst_name>>16 ;Push ptr to string2
		pea	startfst_name
		pea	startfst_path>>16 ;Push ptr to resultant string
		pea	startfst_path
		jsl	concat

; Now look for */SYSTEM/GS.OS and read it into memory

		ldx	#gsos_path	;address of partial pathname
		ldy	#gsos_path>>16
		jsr	read_the_file 	;read in the file
		bcc	read_ok		;if c=1, error in A
		ldx	#gsos_err	;address of error msg
		jmp	system_death	;doesn't return
read_ok
		jsr	relocate_segs	;relocate the code segments

; Install the system loader

		jsl	loader_install
		bcc	loader_ok	;if c=1, error in A
		ldx	#loader_err	;address of error msg
		jmp	system_death	;doesn't return
loader_ok

; Load */SYSTEM/ERROR.MSG

		ldx	#errmsg_path	;address of partial pathname
		ldy	#errmsg_path>>16
		jsr	read_the_file 	;read in the file
		bcs	msg_file_error
		jsr	load_err_msgs	;call the loader
		bcc	msgfile_ok
msg_file_error
		ldx	#msgfile_err	;address of error msg
		jmp	system_death	;doesn't return
msgfile_ok

; Make sure our error messages are not suppressed

		lda	>sys_prefs	;get preferences flag
		and	#$DFFF		;clear bit 13
		sta	>sys_prefs

; Load and startup */SYSTEM/GS.OS.DEV

		ldx	#gsosdev_path 	;address of partial pathname
		ldy	#gsosdev_path>>16
		jsr	read_the_file 	;read in the file
		bcs	gsosdev_error
		jsr	load_gsosdev	;call the loader
		bcc	gsosdev_ok

; We got an error reading in the GS.OS.DEV file or from the loader

gsosdev_error
		ldx	#gsosdev_err	;message #
		jmp	>gsos_fatal_err2 ;fatal error - no return

; The GS.OS.DEV file was read in without an error

gsosdev_ok

; Read in the start FST file

		ldx	#startfst_path 	;address of partial pathname
		ldy	#startfst_path>>16
		jsr	read_the_file 	;read in the file
		bcs	start_fst_error
		lda	|filetype	;get the start FST's filetype
		cmp	#fst_ftype	;is it an FST file?
		bne	fst_type_error	;no - so report an error
		lda	|auxtype	;get the start FST's auxtype
		bmi	fst_type_error	;it's disabled so report an error
		jsr	load_start_fst	;call the loader
		bcc	start_fst_ok

; We got an error reading in the start FST or from the loader

start_fst_error
		ldx	#start_fst_err	;message #
		jmp	>gsos_fatal_err2 ;fatal error - no return

; The start FST is disabled or has the wrong file type

fst_type_error
		ldx	#fst_type_err	;message #
		jmp	>gsos_fatal_err2 ;fatal error - no return

; The start FST file was read in without an error

start_fst_ok

; Read in the custom boot driver file if requested

		asl	|custom_boot	;load a custom boot driver?
		bcc	skipit4		;no

		ldx	#driver_path	;address of partial pathname
		ldy	#driver_path>>16
		jsr	read_the_file 	;read in the file
		bcs	boot_drvr_error
		lda	|filetype	;get the boot driver's filetype
		cmp	#drvr_ftype	;is it a driver file?
		bne	drvr_type_error	;no - so report an error
		lda	|auxtype	;get the boot driver's auxtype
		cmp	#drvr_atype	;is it the correct type?
		bne	drvr_type_error	;no - so report an error
		jsr	load_boot_drvr	;call the loader
		bcc	boot_drvr_ok

; We got an error reading in the boot driver or from the loader

boot_drvr_error
		ldx	#boot_drvr_err	;message #
		jmp	>gsos_fatal_err2 ;fatal error - no return

; The boot driver has the wrong file type or the wrong aux type

drvr_type_error
		ldx	#drvr_type_err	;message #
		jmp	>gsos_fatal_err2 ;fatal error - no return

; The boot driver file was read in without an error

boot_drvr_ok

; Custom boot driver is not requested

skipit4

; Free up the 64K buffer used to load in GS/OS and related files

		lda	|buf_hndl+2	;handle to mem buffer
		pha
		lda	|buf_hndl
		pha
		_disposehandle

; Now let's initialize the AppleTalk priority vector

		asl	|custom_boot	;skip this part of the boot process?
		bcs	skipit5		;yes
		lda	#$006b		; an 'RTL' followed by 3 nulls
		sta	>a_t_vect
		lda	#$0000
		sta	>a_t_vect+2
skipit5

; Do GS/OS initialization sequence here...

		_CompactMem		;{gab - 04/03/90}

; set direct reg to GS/OS direct page for calls to SCM and device dispatcher

		phd			;save direct register
		pea	direct_base	;setup GS/OS direct page
		pld

; initialize SCM

		jsl	>init_scm
		bcs	init_error

; add in the start FST

		ldx	|fst_address	;get load address of start.fst
		ldy	|fst_address+2 	;x=low word  --  y=high word
		jsl	>add_fst	;notify SCM
		bcs	init_error

; initialize the device dispatcher

		_CompactMem		;{gab - 04/03/90}

		stz	<drvr_dev_num	;device number = dispatcher
		stz	<drvr_call_num	;call number = boot init
		lda	>e1_mslot	;get boot slot #
		and	#$0007		;mask off bits which must be 0
		sta	<boot_slot	;boot slot #
		lda	>e1_drvr_address ;load address of custom boot driver if
		sta	<drvr_dib_ptr	;one was requested, else nil
		lda	>e1_drvr_address+2
		sta	<drvr_dib_ptr+2
		lda	>e1_drvr_id	;user ID of custom boot driver if one
		sta	<boot_user_id	;was requested, else 0
		jsl	>dev_dispatcher	;initialize the device dispatcher
		bcs	init_error

; restore direct register

		pld
		bra	init_ok

; got an error during GS/OS initialization

init_error
		ldx	#init_gsos_err	;message #
		jmp	>gsos_fatal_err2 ;fatal error - no return

; GS/OS was initialized without error

init_ok

; Indicate that GS/OS is now up and running so that the report_fatal routine can
; attempt to shutdown GS/OS if a fatal error occurs.

		lda	#1
		sta	>e1_gsos_ok

; Now install the rest of the FSTs in the */SYSTEM/FSTS subdirectory

		jsr	load_fsts
		bcc	fsts_ok
		ldy	|got_filename	;do we have a filename for the error msg?
		bne	fst_fn_err	;yes - so put up a special msg
		ldx	#load_fst_err	;message #
		jmp	>gsos_fatal_err2 ;fatal error - no return
fst_fn_err	ldx	#load_fst_err2	;message #
		jmp	fatal_fn_err	;fatal error - no return
fsts_ok

; This is code to pause the load sequence if a key has been pressed.

		lda	|text_flag	;should the text message be put up?
		beq	skip_msg	;no

		sep	#$30		;***** begin 8-bit mode *****
		longi	off
		longa	off

		lda	kbd		;'-' if key is pressed
		bpl	nokeythistime2	;'+' then no key pressed this time
		sta	kbdstrb		;clear keypress and wait for another

		rep	#$30		;***** return to 16-bit mode *****
		longa	on
		longi	on

		ldy	#$00		;display 'press any key to continue'
pressanykeylp
		lda	pressanykey,y	;get character
		and	#$00ff
*** The next line was branching to pressanykeydone in 16-bit mode, 18-Feb-93 DAL
		beq	@1		;'0' is terminator
		phy			;save Y
		ldx	#cout
		jsr	call_fw
		ply			;restore Y
		iny			;next character
		bra	pressanykeylp

@1		sep	#$30		;***** begin 8-bit mode *****
		longi	off
		longa	off

pressanykeydone
		lda	kbd		;to continue with the boot
		bpl	pressanykeydone	;loop til key pressed
		sta	kbdstrb		;clear keypress and continue with boot

*** added 9-Mar-93 DAL -- remove the "press any key" message
		lda	#0
		sta	$24		;HTAB to 0
		sta	$57b		;80-col cursor-horizontal

		rep	#$30		;***** return to 16-bit mode *****
		longa	on
		longi	on

		lda	#80
@blanks		pha
		lda	#$A0		;space
		ldx	#cout
		jsr	call_fw
		pla
		dec	a
		bne	@blanks
*** end 9-Mar-93

nokeythistime2
		rep	#$30		;***** return to 16-bit mode *****
		longa	on
		longi	on

skip_msg

; Now set prefix 0 to the boot volume name

		_setprefix1 setpfx0_parms1
		bcc	pfx0_ok
		ldx	#prefix_0_err	;message #
		jmp	>gsos_fatal_err2 ;fatal error - no return
pfx0_ok

; Set the library prefix to '*/SYSTEM/LIBS'

		_setprefix1 e1_setpfx2_parms1
		bcc	pfx2_ok
		ldx	#prefix_2_err	;message #
		jmp	>gsos_fatal_err2 ;fatal error - no return
pfx2_ok

; Set OS_Kind to $01 to indicate that GS/OS is running

		longa	off
		longi	off
		sep	#$30		;***** begin 8-bit mode *****

		lda	#$01
		sta	>OS_Kind

		rep	#$30		;***** return to 16-bit mode *****
		longa	on
		longi	on

; Now look for '*/SYSTEM/START'

		lda	#startpath	;set up parameters for call
		sta	>e1_gfi_ptr
		lda	#startpath>>16
		sta	>e1_gfi_ptr+2

		_getfileinfo1 e1_gfi_parms1
		bcs	no_start

		lda	>e1_gfi_ftype	;check filetype of START file
		cmp	#s16_ftype
		beq	found_start
no_start

; No START file in SYSTEM directory was found, so look for 1st
; '.system' or '.sys16' file in volume directory

		jsr	find_sys_file
		bcc	found_sysfile
		cmp	#end_of_dir	; end of directory error?
		beq	no_sysfile	; yes - so there is no sys file
		ldx	#sys_search_err	;message #
		jmp	>gsos_fatal_err2 ;fatal error - no return

; No .sys16 or .system file was found so report an error

no_sysfile
		ldx	#no_sys_file_err ;message #
		jmp	>gsos_fatal_err2 ;fatal error - no return

; A .sys16 or .system file entry was found

found_sysfile

; A START file was found

found_start

; Now load and execute '*/SYSTEM/SYSTEM.SETUP/TOOL.SETUP'

		_CompactMem		;{gab - 04/03/90}

		lda	#toolsetup_path	;setup parameters for call
		sta	>e1_gfi_ptr
		lda	#toolsetup_path>>16
		sta	>e1_gfi_ptr+2

		_getfileinfo1 e1_gfi_parms1 ; does the file exist?
		bcs	ts_file_error	; no - so report an error

		lda	>e1_gfi_ftype	; get filetype of TOOL.SETUP
		cmp	#perm_ftype	; is it the correct filetype?
		bne	bad_ts_type	; no - so report an error

		ldx	#toolsetup_path	; X gets lo word of pathname address
		ldy	#toolsetup_path>>16 ; Y gets hi word of pathname adrs
		jsr	load_setup	; Go load and run the file
		bcc	tools_ok	; Branch if successful

; The TOOL.SETUP file doesn't exist or we got an error trying to execute it

ts_file_error
		ldx	#tool_setup_err	;message #
		jmp	>gsos_fatal_err2 ;fatal error - no return

; The TOOL.SETUP file has the wrong file type

bad_ts_type
		ldx	#ts_type_err	;message #
		jmp	>gsos_fatal_err2 ;fatal error - no return

; TOOL.SETUP was loaded and executed without error

tools_ok
		pea	$A000		;purge any leftover Tool.Setup stuff
		_PurgeAll

; Now load and execute '*/SYSTEM/SYSTEM.SETUP/RESOURCE.MGR'

		lda	#resmgr_path	;setup parameters for call
		sta	>e1_gfi_ptr
		lda	#resmgr_path>>16
		sta	>e1_gfi_ptr+2

		_getfileinfo1 e1_gfi_parms1 ; does the file exist?
		bcs	rm_file_error	; no - so report an error

		lda	>e1_gfi_ftype	; get filetype of RESOURCE.MGR
		cmp	#perm_ftype	; is it the correct filetype?
		bne	bad_rm_type	; no - so report an error

		ldx	#resmgr_path	; X gets lo word of pathname address
		ldy	#resmgr_path>>16 ; Y gets hi word of pathname adrs
		jsr	load_setup	; Go load and run the file
		bcc	resmgr_ok	; Branch if successful

; The RESOURCE.MGR file doesn't exist or we got an error trying to execute it

rm_file_error
		ldx	#res_mgr_err 	;message #
		jmp	>gsos_fatal_err2 ;fatal error - no return

; The RESOURCE.MGR file has the wrong file type

bad_rm_type
		ldx	#rm_type_err	;message #
		jmp	>gsos_fatal_err2 ;fatal error - no return

; RESOURCE.MGR was loaded and executed without error

resmgr_ok

; Load and execute any other setup files in */SYSTEM/SYSTEM.SETUP

		lda	>os_public_flags ; load INIT's and DA's?
		bpl	@load_extensions ; yes...
		jsl	>a_t_vect	; init AppleTalk priority queue
		bra	nodaerr		; then skip loading of INITs and DAs

@load_extensions
 		jsl	stop_scrn_chk	; disable screen monitoring
		jsr	load_setup_files
		bcc	nosetuperr
		ldy	|got_filename	;do we have a filename for the error msg?
		bne	setup_fn_err	;yes - so put up a special msg
		ldx	#load_setup_err	;message #
		jmp	>gsos_fatal_err2 ;fatal error - no return
setup_fn_err	ldx	#load_setup_err2 ;message #
		jmp	fatal_fn_err	;fatal error - no return
nosetuperr
 		jsl	start_scrn_chk	; enable screen monitoring

; Now initialize the AppleTalk priority queue

		jsl	>a_t_vect

; Install all Desk Accessories in the /*/SYSTEM/DESK.ACCS subdirectory

		_CompactMem		;{gab - 04/03/90}

		jsr	load_da_files
		bcc	nodaerr
		ldy	|got_filename	;do we have a filename for the error msg?
		bne	da_fn_err	;yes - so put up a special msg
		ldx	#load_da_err	;message #
		jmp	>gsos_fatal_err2 ;fatal error - no return
da_fn_err	ldx	#load_da_err2 	;message #
		jmp	fatal_fn_err	;fatal error - no return
nodaerr

; Create class 0 and class 1 versions of the start program pathname

		jsl	make_start_paths

; Enable screen monitoring

		jsl	start_app_chk

; If the start file is a ProDOS 8 file (filetype $FF) then fill the thermometer
; up to the end, stop the splash screen, write out the new auxtype and switch
; into text mode before P8 gets loaded.

		lda	|save_filetype	;get the filetype of the start file
		cmp	#sys_ftype	;is it a ProDOS 8 file?
		bne	not_p8		;no
		jsl	stop_splash	;yes - so shutdown the splash screen
not_p8

; Resize the segment allocated for the ERROR.MSG file in order to get rid of the
; temporary error messages which are only needed during initial boot.

		pea	0		;hi word of new size
		lda	|perm_msg_size
		pha			;lo word of new size
		pha			;space for handle result
		pha
		lda	>e1_msg_address+2
		pha			;starting address of the segment
		lda	>e1_msg_address
		pha
		_FindHandle		;get handle to the segment
		_SetHandleSize		;resize the segment

; Indicate to GS/OS, FSTs, drivers, etc. that any future startup and
; shutdown calls are "warm" (ie - we are switching between operating systems)

		lda	#$0001
		sta	>warm_cold_flag

		_CompactMem		;{gab - 04/03/90}

; Free up the memory used by GLoader

		lda	|boot_hndl+2	;handle to bank 0 memory
		pha
		lda	|boot_hndl
		pha
		_disposehandle

; Now do a class 1 Quit call to execute the start program

		_quit1	quit_parms1

		DataChk	off
		ENDP



		eject
;===============================================================================
; system_death
;
; Entry is in 16-bit native mode.
;
; Inputs:       A - error # to display
;               X - address of error message  (must be in bank $00)
;
; Outputs:      none
;
; Notes:        This routine does not return.
;
; Displays an error message and error number using the SysFailMgr tool call.
;===============================================================================

system_death	PROC
		longa	on
		longi	on

		pha			; Push error number on stack.
		pea	$0000		; Assumes bank $00 for location of msg!
		phx			; Push address of error message.
		_sysfailmgr		; doesn't return
		ENDP



		eject
;===============================================================================
; fatal_fn_err
;
; Entry is in 16-bit native mode.
; Data bank register is set to bank $00.
;
; Inputs:       A - error code
;		X - message #
;		filename - contains name of file which caused the error (class 1)
;
; Outputs:      none
;
; Notes:        This routine does not return.
;
; Generate a fatal error while running under GS/OS.
;===============================================================================

fatal_fn_err	PROC

		longa	on
		longi	on

		tay			;save error # in Y
		lda	#stack_top	;set up correct stack
		tcs

		phy			;error #
		phx			;message #
		lda	|filename	;get length word of filename
		xba			;swap bytes to convert it to class 0 format
		sta	|filename
		pea	filename>>16	;push ptr to substitution string
		pea	filename+1
		jsl	report_fatal	;fatal error - no return

		ENDP



		eject
;===============================================================================
; load_err_msgs
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is set to bank $00 on entry and exit.
; Direct register is set to $0000 on entry and exit.
; Stack pointer is set to GQuit's stack on entry and exit.
;
; Inputs:       X - file eof
;
; Outputs:      c - 0 if no error ; 1 if error.
;               A - error code if c=1
;		e1_msg_address - load address of the error messages data
;		perm_msg_size - size of permanent section of the file
;		e1_patch1_adr - load address of first QuickDraw patch
;		e1_patch2_adr - load address of second QuickDraw patch
;
; Notes:	Two QuickDraw patches have been added to the beginning of the
;		error messages file.  This routine saves the load addresses of the
;		patches and calculates the load address of the actual start of the
;		error messages data.  The patches were put in the error messages file
;		because they must be permanently resident in non-special memory and
;		must not move.
;
; This routine calls the system loader's InitialLoad2 routine to load the error
; messages file from memory.  The first word of the error messages data contains the size
; in bytes of the permanent section of the file.  This value is used by GLoader to
; shrink the segment allocated for the file after the temporary messages are
; no longer needed.
;===============================================================================

load_err_msgs	PROC

		longa	on
		longi	on

		lda	#scm_id_type	;segment ID type to use
		jsr	load_from_mem	;call the loader
		bcs	done

		lda	|load_adr	;get load address of first QuickDraw patch
		sta	>e1_patch1_adr	;and save
		tax
		lda	|load_adr+2
		sta	>e1_patch1_adr+2
		tay

		clc
		txa			;calculate load address of second QuickDraw patch
		adc	#13
		sta	>e1_patch2_adr	;and save
		tax
		tya
		adc	#0
		sta	>e1_patch2_adr+2
		tay

		clc
		txa			;calculate load address of error messages data
		adc	#13
		sta	>e1_msg_address	;and save for SCM
		sta	<0
		tya
		adc	#0
		sta	>e1_msg_address+2
		sta	<2

		lda	[<0]		;get size of permanent section of file
		sta	|perm_msg_size	;and save

done		rts

		ENDP



		eject
;===============================================================================
; load_gsosdev
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is set to bank $00 on entry and exit.
; Direct register is set to $0000 on entry and exit.
; Stack pointer is set to GQuit's stack on entry and exit.
;
; Inputs:       X - file eof
;
; Outputs:      c - 0 if no error ; 1 if error.
;               A - error code if c=1
;		e1_dev_address - load address of the GS.OS.DEV file
;
; This routine calls the system loader's InitialLoad2 routine to load the
; GS.OS.DEV file from memory.  It then does a JSL to the entry address.
;===============================================================================

load_gsosdev	PROC

		longa	on
		longi	on

		lda	#dev_id_type	;segment ID type to use
		jsr	load_from_mem	;call the loader
		bcs	done
		lda	|load_adr+2	; get hi word of entry address
		sta	>e1_dev_address+2 ;save
		xba			; swap bytes
		sta	|goadr+2	; and store below
		lda	|load_adr	; get lo word of entry address
		sta	>e1_dev_address ; save
		sta	|goadr+1	; and store below
goadr		jsl	goadr		;*** Modified above to JSL to GS.OS.DEV
done		rts

		ENDP



		eject
;===============================================================================
; load_start_fst
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is set to bank $00 on entry and exit.
; Direct register is set to $0000 on entry and exit.
; Stack pointer is set to GQuit's stack on entry and exit.
;
; Inputs:       X - file eof
;
; Outputs:      c - 0 if no error ; 1 if error.
;               A - error code if c=1
;		fst_address - load address of the start FST
;
; This routine calls the system loader's InitialLoad2 routine to load the start
; FST file from memory.  It then checks the FST's ID to see if it is the AppleShare
; FST and sets a flag if it is.  If the text splash screen is being put up,
; it then prints out the FST's message field.
;===============================================================================

load_start_fst	PROC

		longa	on
		longi	on

		lda	#fst_id_type	;segment ID type to use
		jsr	load_from_mem	;call the loader
		bcs	done
		lda	|load_adr	;save starting address for later
		sta	|fst_address
		lda	|load_adr+2
		sta	|fst_address+2
		jsr	do_fst_stuff	;check fst ID and maybe print comment field
		clc			;indicate no error
done		rts

		ENDP



		eject
;===============================================================================
; load_boot_drvr
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is set to bank $00 on entry and exit.
; Direct register is set to $0000 on entry and exit.
; Stack pointer is set to GQuit's stack on entry and exit.
;
; Inputs:       X - file eof
;
; Outputs:      c - 0 if no error ; 1 if error.
;               A - error code if c=1
;		e1_drvr_address - load address of the boot driver
;		e1_drvr_id - segment ID of boot driver
;
; This routine calls the system loader's InitialLoad2 routine to load the boot
; driver file from memory.
;===============================================================================

load_boot_drvr	PROC

		longa	on
		longi	on

		lda	#drvr_id_type	;segment ID type to use
		jsr	load_from_mem	;call the loader
		bcs	done
		lda	|load_adr	;save starting address for
		sta	>e1_drvr_address ;device dispatcher
		lda	|load_adr+2
		sta	>e1_drvr_address+2
		lda	>e1_user_id	;save user ID for device dispatcher
		sta	>e1_drvr_id
done		rts

		ENDP

		eject
;===============================================================================
; load_fsts
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is set to bank $00 on entry and exit.
; Direct register is preserved.
; Stack pointer is set to GQuit's stack on entry and exit.
;
; Inputs:       none
;
; Outputs:      c - 0 if FSTs loaded successfully ; 1 if not
;               A - contains error code if c=1
;		got_filename - 1 if got a filename for the error msg; 0 if not
;
; This routine installs all FSTs (except the start FST) in the FSTS subdirectory.
; It then checks the FST's ID to see if it is the AppleShare FST.
; If this is the initial boot of GS/OS and the text splash screen is being put
; up, this routine will print out the comment field of each FST after it's
; successfully loaded.
;===============================================================================

load_fsts	PROC

; set direct register to point to GS/OS direct page for calls to SCM

		phd			;save direct register
		pea	direct_base	;setup gsos direct page
		pld

; copy '*/SYSTEM/FSTS' into pathname buffer

		ldx	#fst_path
		jsr	copy_to_buf

; open the FSTS directory

		_open1	open_parms1
		bcc	open_ok
		jmp	got_err2
open_ok

; copy the reference number into the getdirentry and close parameter lists

		lda	|open_ref
		sta	|gde_ref
		sta	|close_ref

; append a colon to the end of the directory pathname

		ldx	|path_buf	; get length of pathname (class 1)
		inx			; add 1 for colon
		stx	|path_buf	; and store
		stx	|path_len	; and save for later
		inx
		lda	#':'		; append a colon to end of pathname
		sta	|path_buf,x

; intialize the directory entry index to 0

		stz	|gde_disp

; loop through the directory entries and install all valid FSTs

next_entry
		inc	|gde_disp	; increment entry index

		_getdirentry1 gde_parms1 ;get the next directory entry
		bcs	got_err

		lda	|gde_auxtype	;get the entry's auxtype
		bmi	next_entry	;if hi bit is set, don't load file

		lda	|gde_filetype 	;get the entry's filetype
		cmp	#fst_ftype	;is it an FST file?
		bne	next_entry	;no - so skip it

		jsr	make_full_path	;create the full pathname of the file

		pea	startfst_name>>16 ; Address of start fst name
		pea	startfst_name
		pea	filename>>16	; Address of entry's file name.
		pea	filename
		jsl	compare_string	; Is the filename the start fst name?
		bcc	next_entry	; yes - so it was already loaded.

		lda	#1
		sta	|iload_type	; initial load using class 1 pathname
		ldx	#path_buf	; X gets lo word of pathname address.
		ldy	#path_buf>>16 	; Y gets high word of pathname address.
		lda	#fst_id_type	; segment ID type
		jsr	iload_file	; load the FST
		bcs	got_fn_err

		ldx	|load_adr	;get FST's load address
		ldy	|load_adr+2
		jsl	>add_fst	;notify SCM
		bcc	fst_added_ok
		cmp	#0		;got an error - was it non-fatal?
		bne	got_fn_err	;no
		jsr	unload_file	;yes - so unload the FST
		bra	next_entry	;and continue
fst_added_ok
		jsr	do_fst_stuff	;check fst ID and maybe print comment field

		bra	next_entry	;loop until done with all FST's

; indicate that we have a filename for the error message then fall thru

got_fn_err	inc	|got_filename

; close FSTS directory

got_err
		pha			; save error code
		_close1	close_parms1	; close the directory
		pla			; retrieve error code

; if error code is 'end of directory' then don't report the error
; otherwise, we got a real error so report it

got_err2
		pld			; restore direct register
		cmp	#end_of_dir	; end of directory error?
		beq	no_err		; yes - so not really an error
		sec			; indicate error
		rts

no_err
		clc			; indicate no error
		rts
		ENDP



		eject
;===============================================================================
; do_fst_stuff
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is set to bank $00 on entry and exit.
; Direct register is preserved.
; Stack pointer is set to GQuit's stack on entry and exit.
;
; Inputs:       load_adr - starting address of the FST
;
; Outputs:      none
;
; Notes:	The direct register is set to point to load_adr which
;		contains the starting address of the FST.  This is done so that
;		indirect addressing can be used to access the contents of the
;		FST header.
;
; This routine checks the FST's ID to see if it is the AppleShare FST and sets
; a flag if it is.
; If the text splash screen is being put up, this routine will then print out
; the message field of the FST header. The message field is immediately after
; the name field in the FST header.  Both fields begin with a length byte.
;===============================================================================

do_fst_stuff	PROC

		longa	on
		longi	on

		phd			;save direct register
		pea	load_adr	;set direct register to load_adr
		pld			;so we can use indirect addressing

		ldy	#fst_id_offset	;offset to ID field in FST header
		lda	[<0],y		;get the FST's ID
		cmp	#appleshare_id	;is it AppleShare?
		bne	cont		;no
		sta	>e1_appleshare	;yes - so set flag
cont
		lda	|text_flag	;should we put up the fst message?
		beq	skip_msg	;no
		clc
		ldy	#fst_name_offset ;get offset to name string
		lda	[<0],y		;get length byte of name string
		and	#$00ff		;mask off hi byte
		inc	a		;add 1 for length byte of name string
		inc	a		;and 1 for length byte of message string
		adc	#fst_name_offset ;add name string offset
		adc	<0		;add start address of fst
		tax			;to create the address of the first
		lda	<2		;character of the message
		adc	#0
		tay
		jsr	print_message	;print the message
skip_msg
		pld			;restore direct register
		rts

		ENDP



		eject
;===============================================================================
; load_setup_files
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is set to bank $00 on entry and exit.
;
; Inputs:       none
;
; Outputs:      c - 0 if no error ; 1 if error.
;               A - error code if c=1
;		got_filename - 1 if got a filename for the error msg; 0 if not
;
; This routine will load and execute all setup files in */SYSTEM/SYSTEM.SETUP
; except for the TOOL.SETUP and RESOURCE.MGR files which were already loaded
; and executed.
;===============================================================================

load_setup_files PROC

		longa	on
		longi	on


; first, copy '*/SYSTEM/SYSTEM.SETUP/' into pathname buffer

		ldx	#setup_path	; get address of string
		jsr	copy_to_buf
		lda	|path_buf	; get length of pathname (class 1)
		sta	|path_len	; and save for later

; initialize the directory entry index to 0

		stz	|gde_disp

; loop through the directory entries and load and execute all valid setup files
;
; Note that we must close the directory before we execute each setup file and
; then reopen the directory after the file has executed since setup files can
; do a CloseAll.

open_setup
		lda	|path_len	; get length of pathname
		dec	a		; subtract 1 for trailing colon
		sta	|path_buf	; and store

		_open1	open_parms1	; open the directory file.
		bcs	bcs_setuperr2

		lda	|open_ref	; copy reference number into
		sta	|gde_ref	; getdirentry parameter list
		sta	|close_ref	; and close parameter list

next_entry
		inc	|gde_disp	; increment entry index

		_getdirentry1 gde_parms1 ;get the next directory entry
		bcs	setuperr

		lda	|gde_auxtype	;get the entry's auxtype
		bmi	next_entry	;if hi bit is set, don't load file

		stz	|temp_setup	;initialize flag for permanent setup file

		lda	|gde_filetype	;get the entry's filetype
		cmp	#perm_ftype	;is it a permanent setup file?
		beq	cont		;yes
		cmp	#temp_ftype	;is it a temporary setup file?
		bne	next_entry	;no - so skip it
		inc	|temp_setup	;indicate that the setup file is temporary
cont
		jsr	make_full_path	;create full pathname of file
		pea	toolsetup_name>>16 ; Address of 'TOOL.SETUP'.
		pea	toolsetup_name
		pea	filename>>16	; Address of entry's file name.
		pea	filename
		jsl	compare_string	; Is the filename 'TOOL.SETUP'?
		bcc	next_entry	; yes - so it was already loaded.

		pea	resmgr_name>>16 ; Address of 'RESOURCE.MGR'.
		pea	resmgr_name
		pea	filename>>16	; Address of entry's file name.
		pea	filename
		jsl	compare_string	; Is the filename 'RESOURCE.MGR'?
		bcc	next_entry	; yes - so it was already loaded.

		_close1	close_parms1	; close the setup directory
bcs_setuperr2	bcs	setuperr2

		ldx	#path_buf	; X gets lo word of pathname address.
		ldy	#path_buf>>16 	; Y gets high word of pathname address.
		jsr	load_setup	; Go load and run the setup file.
		bcs	got_fn_err
		jmp	open_setup	; loop if no error

; indicate that we have a filename for the error message

got_fn_err	inc	|got_filename
		rts

; close the SYSTEM.SETUP directory and check the error code
; if error code is 'end of directory' then don't report the error

setuperr
		pha			; save error code
		_close1	close_parms1	; close the setup directory.
		pla			; retrieve error code
		cmp	#end_of_dir	; end of directory error?
		beq	nosetuperr	; yes - so not really an error
		sec			; indicate error
setuperr2	rts

nosetuperr	clc			; indicate no error
		rts

		ENDP



		eject
;===============================================================================
; load_setup
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is set to bank $00 on entry and exit.
; Direct register is preserved.
;
; Inputs:       X - low word of pathname address
;               Y - high word of pathname address
;               temp_setup - 0 if the setup file is permanent
;			     <>0 if the setup file is temporary
;
; Outputs:      c - 0 if no error ; 1 if error
;               A - error code if c=1
;
; This routine will load and execute permanent and temporary setup files.
;
; The Direct and Stack registers will be set to point to the starting and
; ending address respectively of the zero page segment allocated by the system
; loader via the InitialLoad call.  If the InitialLoad of the setup file
; returns a zero in the zero page starting address parameter, then a zero page
; segment will be allocated for the setup file and will be deallocated after
; the setup file has executed.
;
; On entry to the setup program the A register will contain the user ID for
; the program, and X and Y will be zeroed.
;
; A word of 0 will be pushed on the stack just before control is passed to the setup
; program.  If a permanent setup program decides that it wants to be shutdown, it
; should set the low bit of the word on the stack.  The setup program will then be
; shutdown when control returns to load_setup.  Temporary setup files will always
; be shutdown after they have executed.
;===============================================================================

load_setup	PROC

		longa	on
		longi	on

		phd			; save our direct register.

		lda	#1
		sta	|iload_type	; initial load using class 1 pathname
		lda	#setup_id_type	; get proper user ID.
		jsr	iload_file	; Go load the file pointed to by X,Y.
		bcs	exit

		lda	|load_adr+2	; get hi word of entry address
		xba			; swap bytes
		sta	goadr+2		; and store below
		lda	|load_adr	; get lo word of entry address
		sta	goadr+1		; and store below

		jsl	alloc_user_zp	; set file's direct register
		bcs	exit
		tsx			; temporarily save our S in X.
		tcs			; set file's stack pointer
		phx			; Save our S on the file's stack.
		phb			; Save our Data Bank reg on file's stack.

		lda	>e1_user_id	; Setup program gets his id from A reg.
		ldx	#0		; Zero x,y as we would for an application...
		txy
		phx			; push a flag word of 0 on the stack

goadr		jsl	goadr		;*** Modified above to JSL to setup prog

		pla			; retrieve the flag word from the stack
		plb			; Restore our data bank register.
		plx			; restore our S register.
		txs

		lsr	a		; does the setup file want to be shutdown?
		bcs	shutdown	; yes
		lda	temp_setup	; was it a temporary setup file?
		beq	cont		; no - so don't do a shutdown call
shutdown	jsr	unload_file
		bcs	exit

cont		jsl	dispose_user_zp	; get rid of file's zero page segment

exit		pld			; restore our direct register
		rts			; c holds error condition ; A holds error        code.
		ENDP



		eject
;===============================================================================
; load_da_files
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is set to bank $00 on entry and exit.
;
; Inputs:       none
;
; Outputs:      c - 0 if no error ; 1 if error
;               A - error code if c=1
;		got_filename - 1 if got a filename for the error msg; 0 if not
;
; This routine will install both Classic and New Desk Accessories in the
; */SYSTEM/DESK.ACCS subdirectory.  If the maximum number of CDAs have been
; installed, it will stop installing CDAs but will continue installing NDAs.
;===============================================================================

load_da_files	PROC

		longa	on
		longi	on


; first, copy the pathname '*/SYSTEM/DESK.ACCS/' into pathname buffer

		ldx	#da_path	; get address of string
		jsr	copy_to_buf
		lda	|path_buf	; get length of pathname (class 1)
		sta	|path_len	; and save for later

; open the DESK.ACCS subdirectory

		_open1	open_parms1	; open the directory file.
		bcs	DA_open_err

		lda	|open_ref	; copy reference number into
		sta	|gde_ref	; getdirentry parameter list
		sta	|close_ref	; and close parameter list

; initialize the directory entry index to 0

		stz	|gde_disp

; loop through the directory entries and install all valid DA files

next_entry
		inc	|gde_disp	; increment entry index

		_getdirentry1 gde_parms1 ;get the next directory entry
		bcs	DAerr

		lda	|gde_auxtype	;get the entry's auxtype
		bmi	next_entry	;if hi bit is set, don't load file

		lda	|gde_filetype 	;get the entry's filetype
		cmp	#nda_ftype	;is it a New DA file?
		beq	cont		;yes
		cmp	#cda_ftype	;is it a Classic DA file?
		bne	next_entry	;no - so skip it
		ldx	|skip_cdas	;have we installed the max # of CDA's?
		bne	next_entry	;yes - so skip this CDA
cont
		sta	|da_type	;save filetype for later
		jsr	make_full_path	;create full pathname of file

loadit
		ldx	#path_buf	; X gets lo word of pathname address
		ldy	#path_buf>>16 	; Y gets high word of pathname address
		jsr	load_da		; go install the desk accessory
		bcc	next_entry	; loop if no error
		cmp	#$0501		; 'too many CDAs' error?
		bne	got_fn_err	; no - so can't continue

; We got a 'too many CDAs' error while installing a CDA, so shutdown the CDA
; we got the error on and quit installing CDAs but continue installing NDAs.

		jsr	unload_file	; shut down the CDA
		inc	|skip_cdas	; set flag so no more CDAs will be installed
		bra	next_entry


; got an error trying to open the DESK.ACCS directory
; if error code is 'file not found' then don't report the error

DA_open_err	cmp	#file_not_found	; 'file not found' error?
		beq	noDAerr		; yes - so not really an error
		rts			; no - so return the error

; indicate that we have a filename for the error message then fall thru

got_fn_err	inc	|got_filename

; close the DESK.ACCS directory and check the error code
; if error code is 'end of directory' then don't report the error
; if error code is 'version error' then don't report the error since this is
; returned by the GetDirEntry call and means that DESK.ACCS isn't a directory

DAerr
		pha			; save error code
		_close1	close_parms1	; close the DA directory.
		pla			; retrieve error code
		cmp	#end_of_dir	; 'end of directory' error?
		beq	noDAerr		; yes - so not really an error
		cmp	#version_error	; 'not a directory' error?
		beq	noDAerr		; yes - so not really an error
		sec			; indicate error
		rts

noDAerr		clc			; indicate no error
		rts

		ENDP



		eject
;===============================================================================
; load_da
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is set to bank $00 on entry and exit.
;
; Inputs:       X - low word of pathname address
;               Y - high word of pathname address
;               da_type - desk accessory file type
;
; Outputs:      c - 0 if no error ; 1 if error
;               A - error code if c=1
;
; Notes:        If a handle cannot be found for an installed DA, an
;               error code of zero is returned since the memory manager
;               FindHandle call does not return an error when no handle
;               is found for a given address.
;
; This routine will load and install the desk accessory file designated by
; the pathname pointed to by X and Y.  Da_type contains the filetype of the
; desk accessory (ie, New Desk Accessory vs Classic Desk Accessory).
;===============================================================================

load_da		PROC

		longa	on
		longi	on

		lda	#1
		sta	|iload_type	; initial load using class 1 pathname
		lda	#DA_id_type	; get proper user ID type.
		jsr	iload_file	; Go load the file pointed to by X,Y.
		bcs	exit

		pha			; Now get the handle to the DA.
		pha			; Push space for the handle result.
		lda	|load_adr+2	; Push hi word of address of DA.
		pha
		lda	|load_adr	; Push low word of address of DA.
		pha
		_findhandle		; Find the handle to the DA just loaded.
		lda	1,s		; Make sure the handle is not null
		ora	2,s		; indicating no handle to the DA!
		bne	foundhandle	; Branch if handle found.
		pla			; No handle! Clear stack and return error!
		pla			; ** Note that the error code returned is 0!
		sec			; Denote error.
		rts			; and return

foundhandle
		lda	|da_type	; get the filetype.
		cmp	#nda_ftype	; is it a New DA file?
		bne	its_cda		; no - it's a Classic DA file.
		_installNDA		; Install the New desk accessory.
		rts			; and return

its_cda		_installCDA		; Install the Classic desk accessory.
		bcc	exit
;*** Note - if installCDA gets an error, it returns a random error code.
;*** Since the only error it checks for is 'too many DAs' we can stuff the
;*** correct error code in A ourselves.
		lda	#$0501		; fix the error code
exit		rts

		ENDP



		eject
;===============================================================================
; alloc_boot_mem
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is set to bank $00 on entry and exit.
; Direct register is preserved.
;
; Inputs:       e1_os_mem_id - contains the ID used by GLDR and GQuit when
;                              allocating memory segments.
;
; Outputs:      c - 0 if no error, 1 if error
;               A - error code if c=1
;
; Allocate the memory used by GLoader to ensure that nobody else
; tries to allocate it during the boot process.
; The segment is allocated with a $32xx segment ID.
;===============================================================================

alloc_boot_mem 	PROC

		import	org_dummy_2

GLoader_len	equ	gldr_obj_pad-gldr_obj_pstn

		longa	on
		longi	on

		pha			;space for handle result
		pha
		pea	GLoader_len>>16 ;hi word of seg size
		pea	|GLoader_len	;lo word of seg size
		lda	>e1_os_mem_id
		pha			;segment user id
		pea	%0100000000010011 ;seg attributes word (fixed, noCross, fixed address, fixed bank)
		pea	$0000		;ask for bank 0
		pea	org_dummy_1	;(GLoader's starting address)
		_newhandle
		plx			;retrieve handle for disposal later
		stx	|boot_hndl
		plx
		stx	|boot_hndl+2
		rts			;with C and Acc unchanged from NewHandle call

		ENDP



		eject
;===============================================================================
; alloc_work_mem
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is set to bank $00 on entry and exit.
; Direct register is preserved.
;
; Inputs:       e1_os_mem_id - contains the ID used by GLDR and GQuit when
;                              allocating memory segments.
;
; Outputs:      c - 0 if no error, 1 if error
;               A - error code if c=1
;               buf_hndl - contains the handle to the allocated segment
;               buf_ptr - contains the pointer to the allocated segment
;
; Allocate a 64K memory segment outside of banks 0 and 1.
; The segment is allocated with a $32xx segment ID.
;===============================================================================

alloc_work_mem 	PROC

		longa	on
		longi	on

		pha			;space for handle result
		pha
		pea	work_seg_size>>16 ;hi word of seg size
		pea	|work_seg_size	;lo word of seg size
		lda	>e1_os_mem_id
		pha			;segment user id
		pea	boot_attrib	;seg attributes word
		pea	$0004		;ask for bank 4 {gab - 04/23/90}
		pea	$0000
		_newhandle
		bcs	done		;if c=1, error in A

		phd			;save direct register
		tsc
		tcd			;point direct register at stack
		lda	<3		;save handle to the memory segment
		sta	|buf_hndl
		lda	<5
		sta	|buf_hndl+2

		lda	[<3]		;dereference handle
		sta	|buf_ptr
		ldy	#2
		lda	[<3],y
		sta	|buf_ptr+2

		pld			;restore direct register
		clc			;indicate no error

done		plx			;pull handle off stack
		plx
		rts

		ENDP



		eject
;===============================================================================
; read_the_file
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is set to bank $00 on entry and exit.
; Direct register is set to $0000 on entry and exit.
; Stack pointer is set to GQuit's stack on entry and exit.
;
; Inputs:       X - low word of address of partial pathname of file to read
;		Y - high word of address of partial pathname of file to read
;
; Outputs:      c - 0 if no error ; 1 if error.
;               A - error code if c=1
;		X - lo word of file's EOF
;		Y - hi word of file's EOF
;		filetype - file's filetype
;		auxtype - file's auxtype
;
; This routine calls the ReadInFile routine in the boot code to read in a file.
;===============================================================================

read_the_file	PROC

		longa	on
		longi	on

		pha			;8 byte space for results
		pha
		pha
		pha
		phy			;ptr to partial pathname (input)
		phx
		lda	|buf_ptr+2	;pointer to mem buffer
		pha
		lda	|buf_ptr
		pha
		ldx	#4		;offset to ReadInFile routine
		jsr	(boot_obj_pstn,x) ;Read in the file
		plx			;get filetype
		stx	|filetype	;and save
		plx			;get auxtype
		stx	|auxtype	;and save
		plx			;get lo word of eof
		ply			;get hi word of eof
		rts

		ENDP



		eject
;===============================================================================
; load_from_mem
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is set to bank $00 on entry and exit.
; Direct register is set to $0000 on entry and exit.
; Stack pointer is set to GQuit's stack on entry and exit.
;
; Inputs:       X - file eof
;               A - segment ID type
;
; Outputs:      c - 0 if no error ; 1 if error.
;               A - error code if c=1
;
; This routine calls the system loader's InitialLoad2 routine to load a
; file from memory.
;===============================================================================

load_from_mem	PROC

		longa	on
		longi	on

;set up table of address of segment in memory and length for special iload.
;note: segment must be less than 64K-48 bytes !!!!!!!!!!!!!!!!!
;
;special iload info table is as follows
;               dc      i4'load_file_address_in_memory'
;               dc      i2'load_file_length'

		pha			;save segment ID type
		stx	|load_file_len 	;save for iload

		lda	|buf_ptr
		sta	|load_file_adr 	;low word of where in memory it is
		lda	|buf_ptr+2
		sta	|load_file_adr+2 ;high word of where in memory it is

; set up registers for special iload call as follows
;               y = high word of address to table containing special iload info
;               x = low word of address to table containing special iload info

		lda	#2
		sta	|iload_type	;do initial load from memory
		ldy	#load_file_adr>>16 ;hi word of table address
		ldx	#load_file_adr 	;lo word of table address
		pla			;retrieve segment ID type
		jsr	iload_file	;do the initial load
		rts

		ENDP



		eject
;===============================================================================
; iload_file
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is set to bank $00 on entry and exit.
;
; Inputs:       X - low word of pathname address or table address
;               Y - high word of pathname address or table address
;               A - segment ID type  (Main field should be zero)
;
; Outputs:      c - 0 if no error ; 1 if error
;               A - error code if c=1
;               load_adr - 4 byte starting address of the loaded file
;               e1_user_id - user ID of the file loaded
;               e1_zp_start - starting address of the zero page segment
;               e1_zp_size - size in bytes of the zero page segment
;
; This routine first calls the ID manager for a unique ID given an ID type.
; The returned ID is then used in the InitialLoad2 call for the file.
; All outputs from the load call are returned in the above named variables.
; This routine is intended to load only setup files, DA files, FST files,
; and the custom boot driver file so they will NEVER be loaded into special memory!
;===============================================================================

iload_file	PROC

		longa	on
		longi	on

		phx			; Save pathname or table address
		phy

		pha			; Push space for result
		pha			; segment ID type
		_getnewid		; get a unique user ID
		bcc	ok
		plx			; clean up stack
		plx
		plx
		rts			; Return with c set by call, error in A.

ok
		pla			; get the new user ID
		ply			; Retrieve pathname or table address
		plx

		pha			; Push 10 bytes for result space
		pha
		pha
		pha
		pha
		pha			; Push user ID
		phy			; Push hi word of pathname or table adrs
		phx			; Push lo word of pathname or table adrs
		pea	1		; File cannot load into special mem.
		lda	|iload_type	; Push load type info
		pha
		_initialload2		; Load the file
		tay			; save error code
		pla			; Pull user id
		sta	>e1_user_id
		pla			; Get low adrs of program entry
		sta	|load_adr
		pla			; Get hi adrs of entry
		sta	|load_adr+2
		pla			; Pull zero page buffer address.
		sta	>e1_zp_start
		pla			; Pull size of buffer.
		sta	>e1_zp_size
		tya			; restore error code
		rts			; Return with c set by call, error in A.
		ENDP



		eject
;===============================================================================
; unload_file
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is set to bank $00 on entry and exit.
;
; Inputs:       e1_user_id - User ID to shut down
;
; Outputs:      A - error code if c=1
;               c - 0 if no error, 1 if error
;
; Calls the system loader's UserShutDown call to unload a file.
;===============================================================================

unload_file	PROC
		longa	on
		longi	on

		pha			; Stack space for ID result.
		lda	>e1_user_id
		pha			; Push input ID.
		pea	0		; Push input Flags.
		_usershutdown
		plx			; ignore return ID.
		rts
		ENDP



		eject
;===============================================================================
; find_sys_file
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is set to bank $00 on entry and exit.
;
; Inputs:       none
;
; Outputs:      c - 0 if no error ; 1 if        error.
;               A - error code if c=1
;
; This routine will look for the first file in the volume directory that has
; filetype $B3 (S16) and whose name ends with '.SYS16' OR that has filetype
; $FF (SYS) and whose name ends with '.SYSTEM'.
; If '*/SYSTEM/P8' does not exist then it will only look for S16 files.
; If a valid file is found, its name is copied into 'e1_sys_filename' as a
; class 0 string.
;===============================================================================

find_sys_file	PROC
		DataChk	off

		longa	on
		longi	on

; first, check to see if P8 exists

		lda	#e1_p8_path	;set up parameters for call
		sta	>e1_gfi_ptr
		lda	#e1_p8_path>>16
		sta	>e1_gfi_ptr+2
		_getfileinfo1 e1_gfi_parms1
		bcs	nop8
		inc	|gotp8		;indicate that P8 exists
nop8

; now, copy the pathname '*/' into pathname buffer

		ldx	#vol_path	; get address of string
		jsr	copy_to_buf

; open the volume directory

		_open1	open_parms1	; open the volume directory
		bcs	start_err2

		lda	|open_ref	; copy reference number into
		sta	|gde_ref	; getdirentry parameter list
		sta	|close_ref	; and close parameter list

; initialize the directory entry index to 0

		stz	|gde_disp

; loop through the directory entries to find the first .system or .sys16 file

check_entry
		inc	|gde_disp	;increment entry index
		_getdirentry1 gde_parms1 ;get the next directory entry
		bcs	start_err
		lda	|gde_filetype 	;get the entry's filetype
		ldx	#s16name	;address of string
		cmp	#s16_ftype	;is it a .sys16 file?
		beq	check_name	;yes
		ldx	|gotp8		;does P8 exist?
		beq	check_entry	;no - so can't run a SYS file
		ldx	#sysname	;address of string
		cmp	#sys_ftype	;is it a .system file?
		bne	check_entry	;no - so check next entry
check_name
		phx			;push address of string to match
		ldy	#0
		lda	(1,s),y		;get length of string to match
		and	#$00ff		;mask off hi byte
		tay
		cmp	|filename	;is filename > string to match?
		bcs	no_match	;no - so not a start file
		ldx	|filename	;get length word of filename
		inx			;add 1 for extra length byte

		sep	#$30		;***** begin 8-bit mode
		longa	off
		longi	off
name_loop				;compare strings from end
		lda	|filename,x	;get character from filename
		cmp	#'a'		;convert to upper case
		bcc	cvt_done
		cmp	#'{'
		bcs	cvt_done
		sec
		sbc	#$20
cvt_done
		cmp	(1,s),y		;compare to test string
		bne	no_match	;found a mismatch
		dex
		dey
		bne	name_loop

		rep	#$30		;***** return to 16-bit mode
		longa	on
		longi	on

		pla			;clean up stack
		bra	found_it	;the strings match

no_match
		rep	#$30		;***** return to 16-bit mode
		longa	on
		longi	on

		pla			;clean up stack
		bra	check_entry	;no match so check next entry

; got an error searching for a .system or .sys16 file

start_err
		pha			; save error code
		_close1	close_parms1	; close the directory.
		plx			; retrieve error code
		bcs	start_err2	; got an error from Close call
		sec			; indicate error
		txa			; put original error code back in A
start_err2
		rts

; a .sys16 or .system file entry was found so copy filename into data area
; and save the filetype

found_it
		ldx	|filename	;get length word of filename
copy_loop
		lda	|filename,x	;copy filename into local data area
		sta	>e1_sys_filename,x ;as a class 1 string
		dex
		bpl	copy_loop
		lda	>e1_sys_filename ;get name length word
		inc	a		;add 1 for leading colon
		ora	#$3A00		;add leading colon & convert to class 0
		sta	>e1_sys_filename ;string

		lda	|gde_filetype 	;get the filetype again
		sta	|save_filetype	;save for later

		clc			;indicate no error
		rts

		DataChk	on
		ENDP



		eject
;===============================================================================
; copy_to_buf
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is set to bank $00 on entry and exit
;
; Inputs:       X - contains low word of string address
;
; Outputs:      path_buf - contains a copy of the string
;
; This routine copies a string into path_buf.
; The string must be class 1 format and must be in bank $00.
;===============================================================================

copy_to_buf	PROC

		longa	on
		longi	on

		phx			;push string address on stack
		ldy	#0

		sep	#$30		;***** begin 8-bit mode *****
		longa	off
		longi	off

		lda	(1,s),y		;get length of string
		tay
		iny			;add 1 since it's a class 1 string

loop
		lda	(1,s),y		;copy string into path_buf
		sta	|path_buf,y
		dey
		bpl	loop

		rep	#$30		;***** return to 16-bit mode *****
		longa	on
		longi	on

		plx			;clean up stack
		rts
		ENDP



		eject
;===============================================================================
; make_full_path
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is set to bank $00 on entry and exit
;
; Inputs:       path_buf - contains a partial pathname (class 1)
;               path_len - contains the length word of the partial pathname
;               filename - contains a filename (class 1)
;
; Outputs:      path_buf - contains a full pathname (class 1)
;
; This routine creates a full pathname (class 1) by appending the filename
; contained in filename onto the partial pathname contained in path_buf.
;===============================================================================

make_full_path	PROC

		longa	on
		longi	on

		lda	|path_len	;get length of partial path
		sta	|path_buf	;and store

		pea	1		; indicate class 1 strings
		pea	path_buf>>16	; Push ptr to string1
		pea	path_buf
		pea	filename>>16	; Push ptr to string2
		pea	filename
		pea	path_buf>>16	; Push ptr to resultant string
		pea	path_buf
		jsl	concat		; create full pathname

		rts
		ENDP



		eject
;===============================================================================
; relocate_segs
;
; Enter:           jsr
;
; Input:           A = undefined
;                  X = undefined
;                  Y = undefined
;                  P = nvmxdizc
;                      ..000...        <- '.' = undefined
;               mode = native
;                  b = k
;             LCBank = undefined
;
; Output:          A = undefined
;                  X = undefined
;                  Y = undefined
;                  P = nvmxdizc
;                      ..000...        <- '.' = undefined
;               mode = native
;                  b = k
;             LCBank = undefined
;
; Input Stack Parameters:  none
;
; Output Stack Parameters: none
;
;
; This routine will utilize the header/code segment commands at the beginning
; of each file segment to relocate the segments to the correct place.
;
; The header for all binary files which are to be appended to gs.os is:
;
;               dc      i2'xxxx_len'    ;number of bytes to load in
;               dc      i4'xxxx_dest'   ;address where the segment goes
;               dc      i2'xxxx_flag'   ;flag byte (explained shortly)
;               dc      c'this code. ver# 0.02' ;any text string (msb on)
;
;               flag -  bit 15   = 0/1 swap in language card bank 0/1
;                       bit 14-1 = reserved and must be set to zero
;                       bit 0    = 0/1 call sys loader to relocate start FST
;
; The code segment follows this header information.
;
; Following the last set of header/code segments is a $ffff word.
; This signifies the end of the table.
;===============================================================================

relocate_segs	PROC

		longa	on
		longi	on

gs_os_pointer	equ	1

		phd			;save direct register
		lda	|buf_ptr+2	;push mem buf pointer on stack
		pha
		lda	|buf_ptr
		pha
		tsc
		tcd			;set direct register to stack

;test if last segment already moved before proceeding

move_loop
		ldy	#hdr_code_len	;test for $ffff terminator
		lda	[<gs_os_pointer],y
		inc	a		;increments to $0000 when done
		bne	move_seg1	;<>= then more to move
		sep	#$20		;switch to 8 bit mode to hit softswitch
		lda	lcbank1		;switch in language card bank 0
		lda	lcbank1		;and write enable it
		rep	#$20		;back to 16-bit mode
		pla			;clean up stack
		pla
		pld			;restore direct register
		rts			;back to caller since we're done

move_seg1
		lda	|text_flag	;should we put up the header message?
		beq	skip_msg	;no

		clc
		lda	<gs_os_pointer	;calculate address of message
		adc	#hdr_msg
		tax
		lda	<gs_os_pointer+2
		adc	#0
		tay
		jsr	print_message	;print the message
skip_msg

		clc			;prepare to add
		lda	#gs_os_hdr_len	;calculate where the code starts
		adc	<gs_os_pointer
		tax			;save in x til high word is calculated
		ldy	<gs_os_pointer+2 ;high word of pointer to gs.os
		bcc	move_seg4	;'c'=0 then no carry
		iny			;'c'=1 then must add carry
move_seg4
		phy			;source address high word for move
		phx			;source address low word for move
		ldy	#hdr_code_dest+2 ;offset to high word of destination adr
		lda	[<gs_os_pointer],y
		pha			;destination address high word for move
		dey			;get to low word of destination address
		dey
		lda	[<gs_os_pointer],y
		pha			;destination address low word for move
		pea	$0000		;high word of count to move always=$0000
		ldy	#hdr_code_len	;offset to code length low word
		lda	[<gs_os_pointer],y
		pha			;code length low word
		ldy	#hdr_lc_flag	;offset to language card flag
		lda	[<gs_os_pointer],y ;'-' if second language card bank
		asl	a		;save status in carry
		sep	#$20		;switch to 8 bit mode to hit softswitch
		lda	lcbank1		;assume first language card bank
		lda	lcbank1		;assume first language card bank
		bcc	lcbank_setup	;'c'=0 then we're done with lang card
		lda	lcbank2		;code requires second language card bank
		lda	lcbank2		;code requires second language card bank
lcbank_setup
		rep	#$20		;back to normal mode
		jsr	moveblock	;move the code to correct memory area

;now move gs_os_pointer to point to the next segment in memory

		clc			;prepare to add
		ldy	#hdr_code_len	;add code len+hdr len+ptr for next hdr
		lda	[<gs_os_pointer],y ;code length is 1 word in len only!!!
		adc	<gs_os_pointer	;low word of pointer
		sta	<gs_os_pointer	;save new pointer
		bcc	update_ptr_don1
		inc	<gs_os_pointer+2 ;add 1 if carry was set
update_ptr_don1
		clc			;prepare to add
		lda	<gs_os_pointer	;low word of pointer
		adc	#gs_os_hdr_len	;low word of header length (high word=0)
		sta	<gs_os_pointer	;save new pointer
		bcc	update_ptr_don2
		inc	<gs_os_pointer+2 ;add 1 if carry was set
update_ptr_don2
		jmp	move_loop	;loop til terminator is found
		ENDP



		eject
;===============================================================================
; print_message
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is set to bank $00 on entry and exit.
; Direct register is preserved.
;
; Inputs:	X = low word of address of first character of message
; 		Y = high word of address of first character of message
;
; Outputs: 	none
;
; Prints out a message.
; X and Y must contain the address of the first character of the message.
; The message must end with a null ($00).
;===============================================================================

print_message	PROC

msg_ptr		equ	1

		longa	on
		longi	on

;if a key hasn't been pressed don't waste time displaying messages

		sep	#$20		;8 bit 'm' to test key
		lda	kbd		;'-' if key is pressed
		bpl	nokeynomessage	;'+' so skip printing message

;a key has been pressed

		rep	#$20		;return to 16-bit m

		phd			;save direct page on stack
		phy			;push address of message on stack
		phx
		tsc
		tcd			;set direct reg to point to stack

		ldy	#$0000		;start at first byte to display

loop		lda	[<msg_ptr],y	;pick up a character to display
		and	#$00ff
		beq	done		;$00 is terminator
		ora	#$0080		;set high bit in case someone forgot!!!
		phy			;save Y
		ldx	#cout
		jsr	call_fw		;output the character

		ply			;restore Y
		iny			;next character please
		bra	loop		;fall out

done
		ldx	#crout		;always go to next line when done
		jsr	call_fw

		pla			;clean up stack
		pla
		pld			;restore direct page

;branch here if not printing

nokeynomessage
		rep	#$20		;return to 16-bit m
		rts			;back to caller

;------------------------------------------------------------------------------

		EXPORT 	call_fw
call_fw
		pha			;push space for result
		pha
		pha
		pha
		pha			;push A
		phx			;push X
		phy			;push Y
		phx			;address of routine to call
		_FWEntry
		pla			;ignore results
		pla
		pla
		pla
		rts

		ENDP



		eject
;===========================================================================
; 'Big Splash' by:
;
;                Rob Turner
;                   and
;               Bryan Atsatt
;                   and
;              Steven E. Glass
;
;Entry points:
;
; splash_screen:        input A = total time
; restart_heartbeat:    input none
; boot_complete:        input none
; stop_progress:        input none
;
;
; Change History
;
; 27 Jul 88      Steven Glass
;
; No longer changes the border color.  Instead uses the border color as
; the background color.
;
; 11 Nov 88	Rob Turner
;
;		Added Stop_Splash routine.  GLoader calls this routine if
;		it is switching to ProDOS8.
;
; 30 Nov 88	Rob Turner
;
;		Fixed linear bit problem when switching to text mode.  Now
;		When we switch to text we disable linear mode, then when we
;		switch to graphics mode I turn on the linear bit.
;
; 06 Dec 88	Rob Turner
;
;		Fixed a bug with the fill routine.  If text mode was enabled
;		Then linear bit was wrong
;
; 23 Sep 90	Greg Branche
;		Moved "WelcomeÉ" text up and added second text string
;		to display system disk version number.
;===========================================================================



*******************************************************************************
*
* Equates...
*

		Macro
&label		PointAddress &y,&x	;macro generates memory address equate for given point
		lcla	&lineBase, &pixOffset
&lineBase	seta	&y*$a0		;each line is $A0 bytes
&pixOffset	seta	&x/4		;640 mode, 4 pixels per byte
&label		equ	$E12000+&lineBase+&pixOffset
		EndM

		longa	on
		longi	on

splash_screen	PROC

line		equ	$A0		;number of bytes per scan line

display_buffer	equ	$e12000
display_buf_end	equ	$e1a000
buf_len		equ	display_buf_end-display_buffer

graph_chk_loc	PointAddress 58,148	;contains a $00F0
graph_chk_val	equ	$00F0
scan_control	equ	$e19d00
color_palette	equ	$e19e00
box_start	PointAddress 57,148
icon_start	PointAddress 62,176
progress_start	PointAddress 88,292
prog_draw_start	PointAddress 89,292
border_register	equ	$e1c034
pascal_cursor	equ	$E10400		;check for pascal cursor
screen_test	equ	$E007F7		;check for pascal char
screen_char	equ	$E5		;a normal 'e'
space		equ	$A0		;a normal ' '

display_switch	equ	$c029
graphics_mode	equ	$80
linear_mode	equ	$40
keyboard	equ	$C000
keyboard_strobe	equ	$C010

screen_ptr	equ	$00
icon_ptr	equ	$04
retry_delay	equ	180		;wait three seconds
text_Count	equ	25
no_screen	equ	'RT'
our_special_color equ	$DDDD		; fill to finder desktop pattern.


		php			;save m and x bits
		phb			;save caller's bank register

		phk
		plb			;set data bank to our bank please

		rep	#$30
		stz	armed		;we are not armed yet

		cmp	#$0000		;time for this boot
		bne	good_time
		inc	a		;minimum is one!!!

good_time
		cmp	#no_screen	;do not display anything
		beq	no_show

		sta	our_counter	;internal tick counter timer
		sta	local_counter
		stz	heart_active	;are we running

		longa	off
		sep	#$20
		lda	>keyboard	;should we start?
		bpl	do_startup	;we want to run

no_show
		longa	on
		rep	#$20
		sta	heart_active
		jmp	abort

do_startup

		rep	#$20
		longa	on

		lda	#$0000
		sta	new_time
		sta	progress_complete ;file has not been updated. (Default)
		sta	app_armed
		inc	a
		sta	task_time	;task timer for heartbeat task

		pea	$20E1		;switch data bank to graphics memory and set 8-bit accumulator
		plb
		plp
		longa	off

*
* Set display area to linear mode...
*
		lda	#linear_mode	;Make sure we are in text/linear mode.
		tsb	display_switch
		longa	on
		rep	#$20

*
* Clear screen to "desktop blue" and init scan-line control bytes and color palettes...
*
		lda	#our_special_color	;get the color pattern
		sta	display_buffer		;and store in first word of display buffer
		ldx	#display_buffer AND $FFFF	;move from first byte of display buffer
		ldy	#(display_buffer AND $FFFF)+2	;to third byte of display buffer
		lda	#buf_len-3		;for entire buffer (filling buffer with color pattern)
		phb				;save DBR
		mvn	display_buffer,display_buffer
		plb				;restore DBR

*
* Set all scan-line control bytes to 640 mode...
*
		ldx	#$00fe
		lda	#$8080
scb_loop	sta	scan_control,x
		dex
		dex
		bpl	scb_loop


*
* Fill in color palette...
*
		ldx	#$000e
palette_loop	lda	>palette,x
		sta	color_palette,x
		sta	color_palette+$10,x
		dex
		dex
		bpl	palette_loop
*
* Turn on graphics display and exit...
*
		longa	on
		rep	#$20
		stz	icon_ptr+2	;data for icon and text is ALWAYS in bank 0
		lda	#$00E1		;and ALWAYS get's written to bank $E1
		sta	screen_ptr+2
		jsr	draw_box	;draw the standard white box
		jsr	draw_icon	;draw the IIGS Icon
		jsr	draw_text	;draw 'Welcome the IIGS'
		jsr	draw_progress	;draw the progress bar please

 		jsr	graphics_on
		jsr	start_heartbeat	;start the draw progress

abort
		plb			;restore caller's bank and status reg
		plp
		rts

;=============================================================================
;start_scrn_chk This routine will start the screen monitor code.
;               It will also turn on the graphics display
;=============================================================================
 		EXPORT	start_scrn_chk
start_scrn_chk
		phb			;save data bank register

		phk
		plb

		php
		sei
		longa	on
		longi	on
		rep	#$30
		lda	app_armed	;have we decided to stop already?
		bmi	start_exit

		lda	heart_active	;are we running
		bne	start_exit

		lda	progress_complete ;Have we decided to stop already
		bmi	start_exit

not_stopped
		longa	on
		rep	#$30
		jsr	graphics_on	;turn the graphics screen back on

		lda	#$FFFF
		sta	armed		;yes we are armed

start_exit

		plp			;restore interupts
		plb
		rtl

;=============================================================================
;stop_splash	stops the splash screen and enables text mode
;		only used by GLoader when the start app is P8 based
;=============================================================================
		EXPORT	stop_splash
stop_splash
		phb			;save data bank register

		phk
		plb
		php
		sei			;stop!!!
		longa	on
		longi	on
		rep	#$30
		jsr	boot_complete	;fill up the progress bar & disable interupts
		plp			;restore interrupts
		plb
		rtl

;=============================================================================
;stop_scrn_chk  stops heartbeat task from checking for a change in the
;               screen
;
;=============================================================================
		EXPORT	stop_scrn_chk
stop_scrn_chk
		phb			;save data bank register

		phk
		plb
		php
		sei			;stop!!!
		longa	on
		longi	on
		rep	#$30

		lda	heart_active
		bne	stop_exit

		stz	armed		;turn off check please
		jsr	graphics_on	;turn the grphics screen back on

stop_exit
		plp			;restore interrupts
		plb
		rtl

;=============================================================================
;start_app_chk  This routine will start monitoring the application screens
;=============================================================================
		EXPORT	start_app_chk
start_app_chk
		phb
		phk
		plb

		php
		sei
		rep	#$30
		longa	on
		longi	on

		lda	app_armed	;see if we have already seen a change
		bmi	app_exit	;just exit please

		lda	heart_active
		bne	app_exit

		jsl	start_scrn_chk	;turn on graphics display please
		lda	#$FFFF
		sta	app_armed	;turn on the application flag
app_exit
		plp			;restore interupts
		plb
		rtl


;=============================================================================
;Code that starts the heartbeat task
;=============================================================================

		EXPORT	restart_heartbeat
restart_heartbeat
start_heartbeat

		php			;save m and x bits
		phb			;save caller's bank register

		phk
		plb			;set data bank to our bank please

		rep	#$30
		lda	heart_active	;are we running?
		bne	not_active

		lda	>task_time
		sta	>task_counter

		lda	#^taskheader	;address of task header
		pha
		lda	#taskheader
		pha
		ldx	#$1203
		jsl	$E10000		;add a heartbeat task

		pea	$0002		;now start the heart beat interupt
		ldx	#$2303
		jsl	$E10000

not_active
		plb			;restore caller's bank and status reg
		plp
		rts

;===========================================================================
;Heart Beat Task that will manage the progress bar
;===========================================================================

taskheader
		DC.L	00000000	;link to the next task
task_counter	DC.W	1		;interupt each and every time
		DC.B	$5A,$A5		;signature for Ray

		php
		phk
		plb
		rep	#$30		;16 bit please

		lda	progress_complete
		bpl	not_complete	;we have not completed progress

		jsr	do_update	;update the file
		bcc	halt		;we are done
		cmp	#$0007		;OS busy?
		beq	exit_task	;we are not done yet.
halt
		jsr	stop_heartbeat	;finsh up please
		stz	task_counter
		bra	exit_task	;we are gone

not_complete
;
;The next two checks mean the following:
; IF Application NOT running AND text enabled THEN skip draw
;
		lda	app_armed	;have we started looking for application?
		bmi	@we_are_looking

		sep	#$20		;8 bit mode for softswitch
		lda	>display_switch
		rep	#$20
		bpl	exit_task	;skip draw and time change if text is on.
@we_are_looking
		inc	new_time

		jsr	check_screens	;see if we are done??
		bcc	no_change_yet

		lda	app_armed	;can we shut down yet?
		bpl	no_change_yet	;no we cannot shutdown

quit_now
		jsr	boot_complete
		bra	exit_task	;just a label

no_change_yet
		dec	local_counter
		bne	exit_task
		jsr	add_progress
		lda	our_counter
		sta	local_counter

exit_task
		lda	task_time	;reset the heartbeat timer
		sta	task_counter
		plp
		rtl

*
* Turn on graphics display and exit...
*
graphics_on
		longa	off
		sep	#$20
		lda	display_switch
		and	#Ålinear_mode	;clear linear bit
		ora	#graphics_mode	;turn on the graphics screen again
		sta	display_switch
setup_scrn_char
		lda	#screen_char
		sta	>screen_test
		longa	on
		rep	#$20
		rts

;============================================================================
;Check_Screen
;check screen will determine if we are thru booting the system disk.
;To determine if we are thru we monitor both the graphics and text based
;screens.  If we detect a change in one of the screens we decide that
;we must be thru booting the system.
;
;============================================================================
check_screens
		lda	armed		;are we looking for a change?
		bpl	chk_graphics	;no we are not looking, But if graphics
					;change stop anyway.

		lda	>screen_test
		and	#$00FF
		cmp	#screen_char	;should we switch to text?
		beq	chk_graphics	;check the graphics screen

		lda	app_armed	;should we check 80 col. init?
 		bpl	skip_restore

		lda	hack_wait	;wait two seconds please
		beq	chk_cursor
		dec	hack_wait
		bra	chk_graphics

chk_cursor
		lda	>os_kind	;is P8 running?
		and	#$00FF		;(just another hack for switching)
 		beq	skip_restore
		lda	>pascal_cursor	;check for cursor
		and	#$00FF
		cmp	#$0020
 		bne	skip_restore

chk_graphics
		lda	>graph_chk_loc	;user now sees something nice
		cmp	#graph_chk_val
		bne	were_done	;you bet we have booted
dont_check
		clc
		rts
were_done
		lda	#$FFFF		;same as Application start
		sta	app_armed	;set flag so we will shutdown
skip_restore
		sec
		rts

;============================================================================

add_progress
		pei	screen_ptr+2	;push the high
		pei	screen_ptr

		lda	display_switch	;save the current mode
		pha
		ora	#$0040		;set linear mode so the fill works correctly
		sep	#$20
		sta	display_switch	;turn on the graphics please
		rep	#$20

		lda	#<prog_draw_start
		sta	screen_ptr
		lda	#^prog_draw_start
		sta	screen_ptr+2


no_write
		lda	mask_index

		ldy	curr_index	;where am I

		cpy	#36		;max index
		bcc	not_special

		cmp	#$0003		;are we done?
		bcs	no_way		;we are done

not_special
		asl	a
		tax
		lda	mask_tbl,x
		sta	mask

		ldx	mask_index
		inx
		cpx	#$0008
		bcc	store_mask
		inc	curr_index
		inc	curr_index
		ldx	#$0000
store_mask	stx	mask_index

		lda	[screen_ptr],y
		and	mask
		sta	[screen_ptr],y
		jsr	bump_ptr	;next line

		lda	[screen_ptr],y
		and	mask
		sta	[screen_ptr],y
		jsr	bump_ptr	;next line

		lda	[screen_ptr],y
		and	mask
		sta	[screen_ptr],y
		jsr	bump_ptr	;next line

		lda	[screen_ptr],y
		and	mask
		sta	[screen_ptr],y
		bra	exit_please
no_way

exit_please
		pla
		sta	display_switch
		pla
		sta	screen_ptr
		pla
		sta	screen_ptr+2
		rts

mask_tbl	DC.B	$7F,$FF
		DC.B	$4F,$FF
		DC.B	$F7,$FF
		DC.B	$F4,$FF
		DC.B	$FF,$7F
		DC.B	$FF,$4F
		DC.B	$FF,$F7
		DC.B	$FF,$F4

;=============================================================================
		EXPORT	boot_complete
boot_complete
		phb
		phk
		plb

		jsr	save_new_time
		cmp	#$0007		;OS Busy?
		bne	stop_everything

		lda	#$8000
		sta	progress_complete
		lda	#retry_delay	;wait three seconds please
		sta	task_time
		bra	keep_beat

stop_everything
		jsr	stop_heartbeat
keep_beat
		plb
		rts

		EXPORT	stop_progress
stop_progress
		phb
		phk
		plb
		jsr	stop_heartbeat
		plb
		rts


stop_heartbeat
		pea	TaskHeader>>16
		pea	TaskHeader
		ldx	#$1303		;remove heartbeat task please
		jsl	$E10000
		rts

;=============================================================================
save_new_time
		jsr	divide		;get the new_time
		lda	our_counter
		cmp	new_time
		beq	skip_update	;do not update disk
do_update
		lda	new_time	;is the time zero?
		beq	system_screwed

		lda	>$e100a8	;is the OS loaded?
		and	#$00FF		;clear address.
		cmp	#$005C		;look for a Jump long instruction
		beq	sys_loaded
not_gsos
skip_update
		lda	#$0000
		rts

sys_loaded
		lda	>$e100bc	;look at the OS kind byte.
		and	#$00FF
		cmp	#$0001		;is GS/OS running?
		bne	not_gsos	;P8 is running so exit please

		lda	>dev_start_flag	;see if Ray is starting up still.
		beq	@do_set_info	;Ray is not busy!!!
		lda	#$0007		;simulate OS Busy please.
		sec
		rts
@do_set_info
		jsl	$e100a8		;call GS/OS
		DC.W	$2005		;set file info
		DC.L	info_list

system_screwed
		rts

;=============================================================================
draw_box
		lda	#<box_start	;start of box
		sta	screen_ptr

		jsr	draw_white
		jsr	draw_black
		ldx	#45		;draw 45 middle lines
loop1		jsr	draw_middle
		dex
		bne	loop1
		jsr	draw_black
		jmp	draw_white

;=============================================================================
draw_icon
		lda	#<icon_start
		sta	screen_ptr

		lda	#icon
		sta	icon_ptr

		ldx	#icon_height
outter_loop1
 		ldy	#icon_width-2
		jsr	copy_line	;copy the entire line

		clc
		lda	icon_ptr
		adc	#icon_width
		sta	icon_ptr

		dex
		bne	outter_loop1
		rts			;we are done

;=============================================================================
draw_text
		lda	#<text1_start
		sta	screen_ptr

		lda	#text1
		sta	icon_ptr

		ldx	#text1_height
outter_loop2
		ldy	#text1_width-2
 		jsr	copy_line	;move the entire line

		clc
		lda	icon_ptr
		adc	#text1_width
		sta	icon_ptr

		dex
		bne	outter_loop2

second_line
		lda	#<text2_start
		sta	screen_ptr

		lda	#text2
		sta	icon_ptr

		ldx	#text2_height
@outter_loop2
		ldy	#text2_width-2
		jsr	copy_line	;copy bitmap line to screen memory

		clc
		lda	icon_ptr
		adc	#text2_width
		sta	icon_ptr

		dex
		bne	@outter_loop2

		rts			;we are done

;=============================================================================
		entry	draw_ext_off
draw_ext_off
		lda	#$00E1
		sta	screen_ptr+2

*** added 20-Oct-92 DAL
white_out_area	PointAddress 77,250
		lda	#<white_out_area
		sta	screen_ptr
		ldx	#9			;store 9 lines
@storeLine	lda	#$ffff
		ldy	#56
@storeWord	sta	[<screen_ptr],y
		dey
		dey
		bpl	@storeWord
		clc
		lda	<screen_ptr
		adc	#$a0
		sta	<screen_ptr
		dex
		bpl	@storeLine
*** end 20-Oct-92

		lda	#<ext_off_start
		sta	screen_ptr

		lda	#ext_off
		sta	icon_ptr
		stz	icon_ptr+2

		ldx	#ext_off_height
@loop
		ldy	#ext_off_width-2
		jsr	copy_line	;copy bitmap line to screen memory

		clc
		lda	icon_ptr
		adc	#ext_off_width
		sta	icon_ptr

		dex
		bne	@loop

		rts			;we are done

;=============================================================================
copy_line	;copies bitmap from array to screen memory
@loop
		lda	[icon_ptr],y
		sta	[screen_ptr],y
		dey
		beq	@loop
		dey
		bpl	@loop		;move the entire line
		bra	bump_ptr

;=============================================================================
draw_progress
		lda	#<progress_start
		sta	screen_ptr

		jsr	draw_prog_line	;draw one black line please
		ldx	#$0004
prog_loop
		jsr	draw_prog_end
		dex
		bne	prog_loop
;fall through to draw_prog_line

;=============================================================================
draw_prog_line
		ldy	#35
		lda	#$0000
		sta	[screen_ptr],y
		dey
loopA1		sta	[screen_ptr],y
		dey
		dey
		bpl	loopA1
		bra	bump_ptr	;move to the next line please

;=============================================================================
draw_prog_end
		lda	[screen_ptr]
		and	#$FF0F
		sta	[screen_ptr]

		ldy	#35
		lda	[screen_ptr],y
		and	#$F0FF
		sta	[screen_ptr],y
		bra	bump_ptr	;move to the next line please

;=============================================================================
draw_white
		ldy	#85		;move 86 bytes please
		lda	#$FFFF
		sta	[screen_ptr],y
		dey
loopA		sta	[screen_ptr],y
		dey
		dey
		bpl	loopA
		bra	bump_ptr	;move to the next line please

;=============================================================================
draw_black
		ldy	#85		;move 86 bytes please
		lda	#$0F00
		sta	[screen_ptr],y
		dey
		lda	#$0000
loopB		sta	[screen_ptr],y
		dey
		dey
		bne	loopB
		lda	#$00F0
		sta	[screen_ptr],y
		bra	bump_ptr	;move to the next line please

;=============================================================================
draw_middle

		ldy	#85		;move 86 bytes please
		lda	#$0FFF
		sta	[screen_ptr],y
		dey
		lda	#$FFFF
loopC		sta	[screen_ptr],y
		dey
		dey
		bne	loopC
		lda	#$FFF0
		sta	[screen_ptr],y
;fall through to bump_ptr to move to the next line

bump_ptr
		clc
		lda	screen_ptr
		adc	#123+37		;point to the next line please
		sta	screen_ptr
		rts

;=============================================================================

total_time	DC.W	00		;time during last boot
our_counter	DC.W	5
local_counter	DC.W	00
curr_index	DC.W	0
mask		DC.W	0
mask_index	DC.W	0
progress_complete DC.W	00
task_time	DC.W	00
armed		DC.W	00
app_armed	DC.W	00
text_counter	DC.W	00
hack_wait	DC.W	120		;wait two seconds
		EXPORT	heart_active
heart_active	DC.W	00

info_list	DC.W	04		;thru aux type field
		DC.L	gs_os_path
		DC.W	$E3		;access
		DC.W	$F9		;file type
		EXPORT	new_time
new_time
		DC.L	00		;real time to boot

gs_os_path	DC.W	20
		DC.B	'*:system:start.gs.os'


palette		dc.w	$0000		; black
		dc.w	$0F00		; red
		dc.w	$00F0		; green
		dc.w	$0FFF		; white
		dc.w	$0000		; black
		dc.w	$000F		; blue
		dc.w	$0FF0		; yellow
		dc.w	$0FFF		; white


icon_height	equ	32
icon_width	equ	((28-1)>>1)+1

icon
		hex	FFFFFFFFFFFFFFFFFFFFFFFFFFFF
		hex	FFFFFFFFF030FFFFFFFFFFFFFFFF
		hex	FFFFFFFF03FF0FFFFFFFFFFFFFFF
		hex	FFFFFFF03FFFF0FFFFFFFFFFFFFF
		hex	FFFFFF03FFFFFF0FFFFFFFFFFFFF
		hex	FFFFF03FFCFFFFF3030FFFFFFFFF
		hex	FFFF03FFFFCFFFF0FFF0FFFFFFFF
		hex	FFF03FFCFFFCFF0FFF00FFFFFFFF
		hex	FF33FFFFCFFFF0FFF0F0FFFFFFFF
		hex	FF00FFFFFCFF0FFF0FF0FFFFFFFF
		hex	FF030FFFFFF0FFF0FDF0FFFFFFFF
		hex	FF0330FFFF0FFF0FDDF0FFFFFFFF
		hex	FFF3330FF0FFF0FDDDF033FFFFFF
		hex	FF0F3330F0FF0FDDDDF0FF3FFFFF
		hex	FF03F3333C30FDDDDF0FFF3FFFFF
		hex	FF033F3330F0FDDDF00FFF3FFFFF
		hex	FF0333F330F0FDDF0F0FFFF3FFFF
		hex	FF03333F30F0FDF0FF0FFFFF3CFF
		hex	FF033333F0F0FF0FFF0F0FFFCCCF
		hex	FFF033333F00F0FFF0F0F0FFFCCF
		hex	FFFF033333F00FFF0F0F3F0FFFFF
		hex	FFFFF033330FFAF0F0FF33F0FFFF
		hex	FFFFFF03330F4F0F0F3FFF0FFFFF
		hex	FFFFFFF0330FF0F0F3F3F0FFFFFF
		hex	FFFFF4FF030F0F0F3F3F0FFFFFFF
		hex	FFFF4FFFF0F0F0F3F3F0FFFFFFFF
		hex	FF44F44FFF0F0F3F3F0FFFFFFFFF
		hex	F4FFFFFFFFF0FFF3F0FFFFFFFFFF
		hex	F4FFFFFFFFFC0FFF0FFFFFFFFFFF
		hex	FF4F4F4FFFFFC0F0FFFFFFFFFFFF
		hex	FFF4F4FFFFFFFF0FFFFFFFFFFFFF
		hex	FFFFFFFFFFFFFFFFFFFFFFFFFFFF

text1_start	PointAddress 66,292
text1_width	equ	$0025
text1_height	equ	$0009
text1
		hex	FC3FFC3FFFFC0FFFFFFFFFFFFFFFFFFFFFFC3F
		hex	FFFFFFFC3FC3FFFFFFFFFC3FC3FFFFFFFFFF

		hex	FC3FFC3FFFFF0FFFFFFFFFFFFFFFFFFFFFFC3F
		hex	FFFFFFFC3FC3FFFFFFFFFC3FC3FFFFFFFFFF

		hex	FC3C3C3F00FF0FF00FF00FC00C0FF00FFFF00F
		hex	F00FFFF00FC00FF00FFFFC3FC3FF00FF00FF

		hex	FF0C30FC3C3F0FC3C3C3C3C0C0C3C3C3FFFC3F
		hex	C3C3FFFC3FC0C3C3C3FFFC3FC3FC3C3C3C3F

		hex	FF0000FC3C3F0FC3FFC3C3C3C3C3C3C3FFFC3F
		hex	C3C3FFFC3FC3C3C3C3FFFC3FC3FC3FFC3FFF

		hex	FF0000FC003F0FC3FFC3C3C3C3C3C003FFFC3F
		hex	C3C3FFFC3FC3C3C003FFFC3FC3FC303F00FF

		hex	FFC3C3FC3FFF0FC3FFC3C3C3C3C3C3FFFFFC3F
		hex	C3C3FFFC3FC3C3C3FFFFFC3FC3FC3C3FFC3F

		hex	FFC3C3FC3C3F0FC3C3C3C3C3C3C3C3C3FFFC3F
		hex	C3C3FFFC3FC3C3C3C3FFFC3FC3FC3C3C3C3F

		hex	FFC3C3FF00FF0FF00FF00FC3C3C3F00FFFFF03
		hex	F00FFFFF03C3C3F00FFFFC3FC3FF00FF00FF

*** "System 6.0"
;text2_start	PointAddress 78,330
;text2_width	equ	$0012
;text2_height	equ	$0008
;
;text2
;		HEX	F00FFFFFFFFFFFFFFFFFFFFFFFFC03FFFF00
;		HEX	C3C3FFFFFFFFF0FFFFFFFFFFFFF0FFFFFCF0
;		HEX	C3FFC3C3F00FC00FF00F0003FFF003FFF0F0
;		HEX	F00FC3C3C3FFF0FFC3C30C30FFF0F0FFF0F0
;		HEX	FFC3C303F00FF0FFC0030C30FFF0F0FFF0F0
;		HEX	C3C3F0C3FFC3F0C3C3FF0C30FFF0F0FFF0F3
;		HEX	F00FCFC3F00FFC0FF00F0C30FFFC03F0F00F
;		HEX	FFFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFF

;*** 17-Feb-92 DAL -- "System 6.1 under construction"
;;
;; This file was produced by a somewhat automated sequence
;; Please do not modify by hand unless you're SURE you know what you're doing!
;;
;text2_start	PointAddress 77,258
;text2_width	equ	$0036
;text2_height	equ	$0009
;
;text2
;		HEX FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
;		HEX FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
;		HEX FFFFFFFF
;		
;		HEX FF00FFFFFFFFFFFFFFFFFFFFFFFFC03FFFF0FFFFFFFFFFFFFF
;		HEX 0FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFC3F
;		HEX FFFFFFFF
;
;		HEX FC3C3FFFFFFFFF0FFFFFFFFFFFFF0FFFFF00FFFFFFFFFFFFFF
;		HEX 0FFFFFFFFFFFFFFFFFFFFFFFFFFF0FFFFFFFFFFFFFFC3FFFFF
;		HEX FFFFFFFF
;
;		HEX FC3FFC3C3F00FC00FF00F0003FFF003FFFF0FFFF0F0F003FC0
;		HEX 0FC03F0C3FFF00FF00FC00FF00FC00FC30F0F0FC03F003F03F
;		HEX C03F003F
;
;		HEX FF00FC3C3C3FFF0FFC3C30C30FFF0F0FFFF0FFFF0F0F0F0F0F
;		HEX 0F0F0F03FFFC3C3C3C3C3C3C3FFF0FFC0FF0F0F0F0FC3FFC3F
;		HEX 0F0F0F0F
;
;		HEX FFFC3C303F00FF0FFC0030C30FFF0F0FFFF0FFFF0F0F0F0F0F
;		HEX 0F000F0FFFFC3FFC3C3C3C3F00FF0FFC3FF0F0F0FFFC3FFC3F
;		HEX 0F0F0F0F
;
;		HEX FC3C3F0C3FFC3F0C3C3FF0C30FFF0F0FFFF0FFFF0F0F0F0F0F
;		HEX 0F0FFF0FFFFC3C3C3C3C3C3FFC3F0C3C3FF0F0F0F0FC30FC3F
;		HEX 0F0F0F0F
;
;		HEX FF00FCFC3F00FFC0FF00F0C30FFFC03F0F000FFFC00F0F0FC0
;		HEX 0FC03F0FFFFF00FF00FC3C3F00FFC0FC3FFC00FC03FF03F00F
;		HEX C03F0F0F
;
;		HEX FFFFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
;		HEX FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
;		HEX FFFFFFFF
;*** end 17-Feb-92

;*** 26-May-92 DAL -- "System 6.0.1 under construction"
;;
;; This file was produced by a somewhat automated sequence
;; Please do not modify by hand unless you're SURE you know what you're doing!
;;
;text2_start	PointAddress 77,254
;text2_width	equ	$0039
;text2_height	equ	$0009
;
;text2
;		HEX FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
;		HEX FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
;		HEX FFFFFFFFFFFFFF
;
;		HEX FF00FFFFFFFFFFFFFFFFFFFFFFFFC03FFFF00FFFF0FFFFFFFF
;		HEX FFFFFF0FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
;		HEX FFFC3FFFFFFFFF
;
;		HEX FC3C3FFFFFFFFF0FFFFFFFFFFFFF0FFFFFCF0FFF00FFFFFFFF
;		HEX FFFFFF0FFFFFFFFFFFFFFFFFFFFFFFFFFF0FFFFFFFFFFFFFFC
;		HEX 3FFFFFFFFFFFFF
;
;		HEX FC3FFC3C3F00FC00FF00F0003FFF003FFF0F0FFFF0FFFF0F0F
;		HEX 003FC00FC03F0C3FFF00FF00FC00FF00FC00FC30F0F0FC03F0
;		HEX 03F03FC03F003F
;
;		HEX FF00FC3C3C3FFF0FFC3C30C30FFF0F0FFF0F0FFFF0FFFF0F0F
;		HEX 0F0F0F0F0F0F03FFFC3C3C3C3C3C3C3FFF0FFC0FF0F0F0F0FC
;		HEX 3FFC3F0F0F0F0F
;
;		HEX FFFC3C303F00FF0FFC0030C30FFF0F0FFF0F0FFFF0FFFF0F0F
;		HEX 0F0F0F0F000F0FFFFC3FFC3C3C3C3F00FF0FFC3FF0F0F0FFFC
;		HEX 3FFC3F0F0F0F0F
;
;		HEX FC3C3F0C3FFC3F0C3C3FF0C30FFF0F0FFF0F3FFFF0FFFF0F0F
;		HEX 0F0F0F0F0FFF0FFFFC3C3C3C3C3C3FFC3F0C3C3FF0F0F0F0FC
;		HEX 30FC3F0F0F0F0F
;
;		HEX FF00FCFC3F00FFC0FF00F0C30FFFC03F0F00FF0F000FFFC00F
;		HEX 0F0FC00FC03F0FFFFF00FF00FC3C3F00FFC0FC3FFC00FC03FF
;		HEX 03F00FC03F0F0F
;
;		HEX FFFFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
;		HEX FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
;		HEX FFFFFFFFFFFFFF
;*** end 26-May-92

*** 1-Apr-93 SS -- "System 6.0.1"
;
; This file was produced by a somewhat automated sequence
; Please do not modify by hand unless you're SURE you know what you're doing!
;
text2_start	PointAddress 77,318
text2_width	equ	$0016
text2_height	equ	$000a

text2
		HEX	FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
		HEX	FF00FFFFFFFFFFFFFFFFFFFFFFFFC03FFFF00FFFF0FF
		HEX	FC3C3FFFFFFFFF0FFFFFFFFFFFFF0FFFFFCF0FFF00FF
		HEX	FC3FFC3C3F00FC00FF00F0003FFF003FFF0F0FFFF0FF
		HEX	FF00FC3C3C3FFF0FFC3C30C30FFF0F0FFF0F0FFFF0FF
		HEX	FFFC3C303F00FF0FFC0030C30FFF0F0FFF0F0FFFF0FF
		HEX	FC3C3F0C3FFC3F0C3C3FF0C30FFF0F0FFF0F3FFFF0FF
		HEX	FF00FCFC3F00FFC0FF00F0C30FFFC03F0F00FF0F000F
		HEX	FFFFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
		HEX	FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
*** end 1-Apr-93

Ext_Off_start	PointAddress 78,320
Ext_Off_width	equ	$0017
Ext_Off_height	equ	$0008

Ext_Off
		HEX	CFC3FFFFFFF00FFFFFF0FFFFFFFFFFFC3C00FF
		HEX	00FFFFFF
		HEX	C3C3FFFFFFFC3FFFFFFFFF0FFFFFFFF0FC3C3C
		HEX	3C3FFFFF
		HEX	C0C3F00FFFFC3FC00FC0FC00FF00FFC3FC3C3C
		HEX	3C3F00FF
		HEX	C003C3C3FFFC3FC3C3F0FF0FFC3FFF0FFC3C3C
		HEX	3C3C3FFF
		HEX	C303C3C3FFFC3FC3C3F0FF0FFF00FC3FFC3C3C
		HEX	003F00FF
		HEX	C3C3C3C3FFFC3FC3C3F0FF0C3FFC30FFFC3C3C
		HEX	3C3FFC3F
		HEX	C3F3F00FFFF00FC3C3C03FC0FF00F3FFFC00FC
		HEX	3C3F00FF
		HEX	FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
		HEX	FFFFFFFF

		ENDP

******************************************************************************
*
*        Name:  divide
*
* Description:  Does 16 bit division. dividend/divisor = dividend w/remainder.
*
*     Created:  June 20, 1988
*    Modified:  June 20, 1988
*      Author:  Bryan Atsatt  (adapted from '6502 Software Design')
*
*       Entry:  jsr
*
*       Input:  A = undefined
*               X = undefined
*               Y = undefined
*               P = nvmxdizc
*                   ..000...
*               B = K
*
*               new_time                ;16 bit new_time.
*               divisor                 ;16 bit divisor.
*
*      Output:  A = undefined
*               X = undefined
*               Y = undefined
*               P = nvmxdizc
*                   ..000..0
*               B = K
*
*               new_time                ;quotient
*               remainder               ;remainder
*
*        Uses:  All registers
*               new_time
*               divisor
*               remainder
*
* Copyright Apple Computer, Inc. 1987-1993  All rights reserved.
******************************************************************************

divide		PROC

*
* Initialize...
*
		ldx	#32		;Get bit count.
		stz	remainder	;Clear remainder.
		stz	remainder+2
*
* Do division and exit...
*
div_loop	asl	new_time	;Shift new_time & quotient left.
		rol	new_time+2
		rol	remainder	;Shift partial new_time left.
		rol	remainder+2
		sec			;Subtract low bytes.
		lda	remainder
		sbc	divisor
		tay			;Save low result.
		lda	remainder+2	;Subtract high bytes.

		sbc	divisor+2	;Divisor > new_time?
		bcc	next_bit	;Yes.
		inc	new_time	;No, set bit in quotient.
		sty	remainder	;Enter result in partial new_time.
		sta	remainder+2
next_bit	dex			;Done all bits?
		bne	div_loop	;No, so loop.
		lda	remainder	;do we need to bump the result?
		cmp	#$004A		;the magic value
		bcc	no_bump
		inc	new_time
no_bump
		rts			;Yes, so exit.

divisor		DC.L	148
remainder	DC.L	00

		ENDP



		eject
;===============================================================================
; loader_install
;
; System Loader install program
;===============================================================================

loader_install	PROC

		longa	on
		longi	on

;tell Tool Locator where Loader Caller is

		pea	0000		;Was push System Tool indicator
		pea	Loader_TSN	;Was push Loader Tool number
		pea	#^Loader_Entry	;Loader Call Table
		pea	#<Loader_Entry

		_SetTSPtr

		rtl

		ENDP

		eject
;===============================================================================
;
; gldr_data
;
;===============================================================================

gldr_data	PROC


;-------------------------------------------------------------------------------
; parameter blocks for GS/OS calls
;-------------------------------------------------------------------------------

		EXPORT	open_parms1
open_parms1				;Open - class 1 parameter list
		DC.W	3		;parameter count
		EXPORT	open_ref
open_ref	DS.B	2		;reference number
		EXPORT	open_path
open_path	DC.L	path_buf	;pointer to pathname
		DC.W	1		;read access

		EXPORT	close_parms1
close_parms1				;Close - class 1 parameter list
		DC.W	1		;parameter count
		EXPORT	close_ref
close_ref	DS.B	2		;reference number

		EXPORT	gde_parms1
gde_parms1				;GetDirEntry - class 1 parameter list
		DC.W	13		;parameter count
		EXPORT	gde_ref
gde_ref		DS.B	2		;reference number
		DS.B	2		;flags
		DC.W	0		;base
		EXPORT	gde_disp
gde_disp	DS.B	2		;displacement
		DC.L	filename1	;ptr to class 1 output string
		DS.B	2		;entry number
		EXPORT	gde_filetype
gde_filetype	DS.B	2		;file type
		DS.B	4		;eof
		DS.B	4		;block count
		DS.B	8		;create date and time
		DS.B	8		;mod date and time
		DS.B	2		;access
		EXPORT	gde_auxtype
gde_auxtype	DS.B	4		;aux type

		EXPORT	quit_parms1
quit_parms1				;Quit - class 1 parameter list
		DC.W	2		;parameter count
		DC.L	e1_start_prog1	;ptr to system program pathname
		DC.W	0		;don't return, don't restart

		EXPORT	setpfx0_parms1
setpfx0_parms1				;SetPrefix 0 - class 1 parameter list
		DC.W	2		;parameter count
		DC.W	0		;set prefix 0/.
		DC.L	e1_volname	;points to boot volume name


;-------------------------------------------------------------------------------
; general storage
;-------------------------------------------------------------------------------

		EXPORT	save_mslot
save_mslot	DS.B	2		;boot slot #
		EXPORT	temp_setup
temp_setup	DS.B	2		;1 = setup file should be shutdown
		EXPORT	da_type
da_type		DS.B	2		;desk accessory file type (CDA vs NDA)
		EXPORT	gotp8
gotp8		DC.W	0		;1 = P8 is on boot disk (init to 0)
		EXPORT	custom_boot
custom_boot	DS.B	2		;flags for custom boot
		EXPORT	skip_cdas
skip_cdas	DC.W	0		;1 = max # of CDAs installed (init to 0)
		EXPORT	save_filetype
save_filetype	DS.B	2		;filetype of start application
		EXPORT	perm_msg_size
perm_msg_size	DS.B	2		;size of permanent section of ERROR.MSG file
		EXPORT	big_system
big_system	DC.W	0		;1 = system is > 512K (init to 0)
		EXPORT	boot_hndl
boot_hndl	DS.B	4		;handle to GLoader memory segment
		EXPORT	buf_hndl
buf_hndl	DS.B	4		;handle to buffer
		EXPORT	buf_ptr
buf_ptr		DS.B	4		;pointer to buffer
		EXPORT	save_d
save_d		DS.B	2		;temp to save direct register
		EXPORT	text_flag
text_flag	DS.B	2		;0 = don't put up msgs, $FFFF = put up msgs
		EXPORT	path_len
path_len	DS.B	2		;length of partial pathname
		EXPORT	iload_type
iload_type	DS.B	2		;type of initial_load to do
		EXPORT	load_adr
load_adr	DS.B	4		;address of loaded file
		EXPORT	filetype
filetype	DS.B	2		;filetype returned by read_the_file
		EXPORT	auxtype
auxtype		DS.B	2		;auxtype returned by read_the_file
		EXPORT	got_filename
got_filename	DC.W	0		;1 = got a filename for error msg (init to 0)


; The following 4 bytes are used for storing the load address of the start FST

		EXPORT	fst_address
fst_address	DS.B	4

; The following table is used when loading the start FST, ERROR.MSG,
; GS.OS.DEV, and BOOT.DRIVER files
; load_file_len MUST immediately follow load_file_adr.

		EXPORT	load_file_adr
load_file_adr DS.B	4		;address of load file
		EXPORT	load_file_len
load_file_len DS.B	2		;length of load file

; The following 36 bytes are used when making a class 1 GetDirEntry call.
; The first 2 bytes contain the buffer size.  The next 34 bytes are used for -
; length (2 bytes), filename (32 bytes).

		EXPORT	filename1
filename1	DC.W	36		;size header for class 1 output string
		EXPORT	filename
filename	DS.B	34		;must follow filename1

; The following buffer is used to build pathnames when loading the setup files,
; desk accessories and FSTs.  The pathnames are class 1 strings.
; Maximum length of a pathname is 54 bytes -
;   '*/SYSTEM/SYSTEM.SETUP/' (22 bytes), filename (32 bytes)

		EXPORT	path_buf
path_buf	DS.B	56

; The following bytes are used for storing the name of the start FST in
; class 1 format with no leading or trailing separators.

		EXPORT	startfst_name
startfst_name 	DS.B	34

		ENDP



;===============================================================================
;
; gldr_strings
;
;===============================================================================

gldr_strings	PROC

		msb	on

;column indicator 1-40    1234567890123456789212345678931234567894
;                41-80    1234567895123456789612345678961234567898

		EXPORT	gs_os_credit
gs_os_credit	dc.b	$8d
		DC.B	'Welcome to the world of GS/OS      v'
		verNum			;macro defined at beginning of file
		DC.B	'     The Apple IIGS Operating System'
		DC.B	$8d,$8d		;terminate with a <cr> and skip a line

		DC.B	'Copyright 1983-1993 by Apple Computer, '
		DC.B	'Inc.  '
		verDate			;macro defined at beginning of file
		dc.b	'   All rights reserved.'
		DC.B	$8d,$8d,0	;terminate message with a $00

		EXPORT	pressanykey
pressanykey	DC.B	$8d		;carriage return
		DC.B	'-->  Press space bar to continue  <--'
		DC.B	0		;terminate message with a $00

		msb	off

		EXPORT	mem_size_err
mem_size_err	str	'RAM disk too large or not enough memory. Error=$'
		EXPORT	alloc_err
alloc_err	str	'Error allocating memory for GS/OS. Error=$'
		EXPORT	volname_err
volname_err	str	'Error reading boot disk name. Error=$'
		EXPORT	gsos_err
gsos_err	str	'Error loading GS.OS file. Error=$'
		EXPORT	loader_err
loader_err	str	'Error installing System Loader. Error=$'
		EXPORT	msgfile_err
msgfile_err	str	'Error loading ERROR.MSG file. Error=$'

		EXPORT	sysname
sysname		str	'.SYSTEM'
		EXPORT	s16name
s16name		str	'.SYS16'

		EXPORT	toolsetup_name
toolsetup_name	DC.W	10		;class 1 string
		DC.B	'TOOL.SETUP'

		EXPORT	resmgr_name
resmgr_name	DC.W	12		;class 1 string
		DC.B	'RESOURCE.MGR'

		EXPORT	gsos_path
gsos_path	DC.W	12		;class 1 string
		DC.B	'SYSTEM:GS.OS'

		EXPORT	errmsg_path
errmsg_path	DC.W	16		;class 1 string
		DC.B	'SYSTEM:ERROR.MSG'

		EXPORT	gsosdev_path
gsosdev_path	DC.W	16		;class 1 string
		DC.B	'SYSTEM:GS.OS.DEV'

		EXPORT	startfst_path
startfst_path 	DC.W	12		;class 1 string
		DC.B	'SYSTEM:FSTS:'
		DS.B	32		;space for start fst name

		EXPORT	driver_path
driver_path	DC.W	26		;class 1 string
		DC.B	'SYSTEM:DRIVERS:BOOT.DRIVER'

		EXPORT	vol_path
vol_path	DC.W	2		;class 1 string
		DC.B	'*:'

		EXPORT	fst_path
fst_path	DC.W	13		;class 1 string
		DC.B	'*:SYSTEM:FSTS'

		EXPORT	setup_path
setup_path	DC.W	22		;class 1 string
		DC.B	'*:SYSTEM:SYSTEM.SETUP:'

		EXPORT	toolsetup_path
toolsetup_path	DC.W	32		;class 1 string
		DC.B	'*:SYSTEM:SYSTEM.SETUP:TOOL.SETUP'

		EXPORT	resmgr_path
resmgr_path	DC.W	34		;class 1 string
		DC.B	'*:SYSTEM:SYSTEM.SETUP:RESOURCE.MGR'

		EXPORT	da_path
da_path		DC.W	19		;class 1 string
		DC.B	'*:SYSTEM:DESK.ACCS:'

		EXPORT	startpath
startpath	DC.W	14		;class 1 string
		DC.B	'*:SYSTEM:START'

		ENDP

*********************************************************************************
org_dummy_2	proc	org gldr_obj_pad	;pad to next code segment
		endp
*********************************************************************************



		eject
*********************************************************************************
*                                                                               *
*                               GQuit - B0 segment                              *
*                                                                               *
*                       Copyright Apple Computer, Inc. 1986-1993                *
*                                                                               *
*                               All Rights Reserved                             *
*                                                                               *
*********************************************************************************

*********************************************************************************
		SEG	'seg_b0'
org_dummy_3	proc	org b0_obj_pstn
		endp
*********************************************************************************



		eject
;===============================================================================
; display_msg
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is set to bank $E1 on entry and exit.
; Direct register is set to $0000 on entry and exit.
; Stack pointer is set to $01xx on entry and exit.
;
; Inputs:       none
;
; Outputs:      none
;
; Notes:	must return with an RTL since called from E0 code
;
; This routine clears the screen and displays the "One moment please..." message.
;===============================================================================

display_msg 	PROC

		longa	on
		longi	on

		phb			;save data bank reg
		phk
		plb			;set data bank reg to bank $00

		sec
		xce			;***** begin emulation mode *****
		longa	off		;stack ptr is now set to emulation stack
		longi	off

		lda	|statereg	;get current state register
		pha			;and save
		lda	#$0c		;enable rom/lcbnk 2/external $cn00 space
		sta	|statereg

		lda	|mixclr		;clear mixed mode
		lda	|txtset		;switch in text
		lda	|txtpage1	;switch in text page 1

		lda	|rdc3rom	;save state of slot 3
		php
		sta	|setintc3rom	;enable 80 column firmware for message
		lda	#$80		;disable super hires
		trb	|newvideo
		lda	#$8d		;carriage return is first character
		jsr	eighty_columns	;enable 80 cols/clear screen/reset hooks

		ldy	#$00		;pick up length of message to display
msg_loop
		lda	|b0_reload_msg,y ;get byte to display
		beq	msg_done	;test if done yet
		jsr	cout		;output to screen
		iny			;next please
		bra	msg_loop	;loop til done
msg_done

		plp			;restore 80 column card status
		bpl	nochange	;'+' then we were in 80 columns
		sta	|setslotc3rom	; else reenable external card
nochange

		pla
		sta	|statereg	;restore state register
		ldy	|lcbank1
		ldy	|lcbank1	;write enable lc bank 0

		clc
		xce			;***** return to native mode *****
		rep	#$30		;***** return to 16-bit mode *****
		longa	on
		longi	on

		plb			;restore data bank reg
		rtl

		ENDP


		eject
;===============================================================================
; copy_gsos_segs
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is set to bank $E1 on entry and exit.
; Direct register is preserved.
;
; Inputs:       none
;
; Outputs:      none
;
; Notes:	must return with an RTL since called from E0 code
;
; This routine loops through the e1_gsos_segs table and copies the GS/OS segments
; either to or from the storage areas allocated for them depending on which OS is
; currently running.
;===============================================================================

copy_gsos_segs 	PROC
		DataChk	Off

		longa	on
		longi	on

		phd			;save direct register
		pha			;allocate space on stack to use
		pha			;as direct page
		tsc
		tcd			;set direct register to stack

		ldx	#0		;init table index
loop
		stx	|e1_word_temp	  ;save table index

		lda	|e1_gsos_segs+8,x ;get handle to storage area
		sta	<1
		lda	|e1_gsos_segs+10,x
		sta	<3

		lda	|e1_current_os
		bmi	its_p8

		lda	|e1_gsos_segs+4,x ;hi word of source address
		pha
		lda	|e1_gsos_segs+2,x ;lo word of source address
		pha
its_p8
		ldy	#2
		lda	[<1],y		  ;hi word of dest/source address
		pha
		lda	[<1]		  ;lo word of dest/source address
		pha

		lda	|e1_current_os
		beq	its_gsos

		lda	|e1_gsos_segs+4,x ;hi word of dest address
		pha
		lda	|e1_gsos_segs+2,x ;lo word of dest address
		pha
its_gsos
		pea	0		  ;hi word of xfer count
		lda	|e1_gsos_segs+6,x ;lo word of xfer count
		pha

		lda	|e1_gsos_segs,x	;get LC bank
		beq	lc_ok
		sep	#$30		;go to 8-bit mode to hit soft_switches
		lda	lcbank2		;R/W enable lang card bank 2
		lda	lcbank2
		rep	#$30		;return to 16-bit mode
lc_ok

		jsr	moveblock

		sep	#$30		;go to 8-bit mode to hit soft_switches
		lda	lcbank1		;R/W enable lang card bank 1
		lda	lcbank1
		rep	#$30		;return to 16-bit mode

		clc
		lda	|e1_word_temp	;retrieve table index
		adc	#12
		tax			;adjust index to point to next table entry

		lda	|e1_gsos_segs,x	;at end of table?
		bpl	loop		;no

		pla			;clean up stack
		pla
		pld			;restore direct register
		rtl

		DataChk	On
		ENDP



		eject
;===============================================================================
; moveblock
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is preserved.
; Direct register is preserved.
;
; Inputs:       high order word of source pointer
;               low order word of source pointer
;               high order word of destination pointer
;               low order word of destination pointer
;               high order word of transfer count
;               low order word of transfer count
;
; Outputs:      none
;
; Notes:        The high byte of Source, Dest, and Count must be zero.
;               The source and destination blocks must not overlap.
;               This routine contains self modifying code.
;
; Moves a block of data from a source location to a destination location.
;===============================================================================

moveblock	PROC

; stack offsets

Source		equ	15		; 4-byte source address
Dest		equ	11		; 4-byte destination address
Count		equ	07		; 4-byte transfer count
ReturnMove	equ	05		; 3-byte return address
TempCount	equ	03		; 2-byte temporary transfer count

		longa	on
		longi	on

		pha			; push two bytes on stack for TempCount
		phd			; save D
		tsc			; make direct page correspond to stack
		tcd

; get ready to do the move

		phb			; save DBR on stack (MVN trashes it)

		lda	<Count
		ora	<Count+2
		beq	MoveAbort

		ldx	<Source		; X = low word of Source
		ldy	<Dest		; Y = low word of Dest

; set up the self modifying code to contain dst src

		lda	<Dest+2		; make sure high byte of Dest is 0
		and	#$00ff
		sta	<Dest+2
		lda	<Source+2	; get source bank
		and	#$00ff		; make sure high byte of Source is 0
		xba
		ora	<Dest+2		; OR in dest bank (high byte must be 0)
		sta	>DoMove+1	; put bank values into MVN instruction

; decrement Count because it contains actual transfer count whereas
; remainder of routine assumes it contains transfer count - 1

		lda	<Count
		bne	ArA1
		dec	<Count+2
ArA1		dec	<Count

; initialize TempCount

		lda	<Count
		sta	<TempCount
		bra	mdFirst

; main move loop

mdMore		sta	<Count+2	; more bytes to move
		lda	>DoMove+1	; A = SrcDst banks
		cpx	#$0001		; bank cross? if X=0
		bcs	mdXNot0
		adc	#$0100		; add 1 to source bank
mdXNot0		cpy	#$0000		; did destination cross bank?
		bne	mdYIs0
		inc	a
mdYIs0		sta	>DoMove+1
mdFirst
		txa			; if count > -X then bank cross
		eor	#$ffff
		cmp	<TempCount
		bcs	mdXOk
		sta	<TempCount	; only move -X bytes
mdXOk		tya			; will destination cross bank?
		eor	#$ffff
		cmp	<TempCount
		bcs	mdYOk
		sta	<TempCount	; only move -Y bytes
mdYOk		lda	<TempCount	; get the number of bytes to move

; the following 3 bytes are the actual move instruction
; this routine dynamically modifies the source and destination banks

DoMove		mvn	0,0		; WARNING - BANK VALUES GET CHANGED DYNAMICALLY!!!

		lda	<Count		; Count = Count - bytes moved
		clc			; actual bytes moved 1 more than count
		sbc	<TempCount
		sta	<Count
		sta	<TempCount
		lda	<Count+2
		sbc	#$0000
		bpl	mdMore

; clean up everything before returning

MoveAbort
		plb			; restore DBR

		lda	<ReturnMove	; move return address past parameters
		sta	<Source+2

		pld			; restore D
		tsc			; set S to proper value
		clc
		adc	#$000e
		tcs			;fix up stack
		rts

		ENDP


		eject
;===============================================================================
;
; b0_strings
;
;===============================================================================

b0_strings	PROC

		EXPORT	b0_reload_msg

		msb	on
b0_reload_msg	DC.B	'One moment please...'
		DC.B	0		;terminate msg with a $00
		msb	off

		ENDP


*********************************************************************************
org_dummy_4	proc	org b0_obj_pad	;pad to next code segment
		endp
*********************************************************************************



		eject
*********************************************************************************
*                                                                               *
*                               GQuit - E0 segment                              *
*                                                                               *
*                       Copyright Apple Computer, Inc. 1986-1993                *
*                                                                               *
*                               All Rights Reserved                             *
*                                                                               *
*********************************************************************************


*********************************************************************************
		SEG	'seg_e0'
org_dummy_5	proc	org e0_obj_pstn
		endp
*********************************************************************************



;==============================================================================
; ProDOS 8 QUIT
;
; Entry is in 8-bit native mode.
; Exit is in 16-bit native mode.
;
; Data bank register is set to bank $00 on entry.
; Direct register is set to $000000 on entry.
; Stack pointer is set to $01xx on entry.
;
; Data bank register is set to bank $E1 on exit.
; Direct register is set to $000000 on exit.
; Stack pointer is set to $01xx on exit.
;
; This is the entry point for QUIT calls originating from ProDOS 8.
;==============================================================================

p8quit		PROC
		DataChk	off

		longa	off
		longi	off

; First, let's ensure a known machine state.
; Shadow I/O space, language cards and text page 1 only.
; Preserve state of text page 2 shadowing.
; Set normal zero page and stack, page 1, read main memory, write main memory,
; read ROM off, language card 1st bank.
; Turn off 80STORE.
; Setup system to match battery ram parameters except for slot stuff.

		lda	>shadow
		and	#text_page_2_bit
		ora	#p16_shadowmask
		sta	>shadow
		stz	|statereg
		stz	|clr80col
		sec
		jsl	tobramsetup

; Now begin 16-bit mode

		rep	#$30		;***** begin 16-bit mode *****
		longa	on
		longi	on

; Increment the system busy flag

 		jsl	>incbusyflg

; Set the data bank register to bank $E1

		pea	$e1e1
		plb
		plb

; Identify the current operating system as ProDOS 8

		lda	#$8000
		sta	|e1_current_os

; Set initial values of variables to zero where needed

		jsr	initialize_data

; Initialize prefix flag to say that QUIT call specified a full pathname

		lda	#$ffff
		sta	|e1_quit_prefix

; Now let's set the data bank register to bank $00

		pea	$0000
		plb
		plb

; Now check the quit type

		ldy	#1
		lda	(<PAR),y
		and	#$00ff
		cmp	#$00ee
		bne	no_path		;it's not $EE, so there's no pathname

; It's an extended quit call, so copy the pathname into e1_p8quit_path

		phd			; save direct register

		ldy	#2		; Get the pointer to the user's
		lda	(<PAR),y	; pathname from his parameter list.
		tcd			; and store in direct register

		lda	<0		; Get first word of user's pathname.
		tax			; save for later

		and	#$00ff		; mask off hi byte
		cmp	#p8_max_length+1 ; check length byte - is it too long?
		bcc	len_ok		; no
syntax_error	lda	#bad_path_syntax ; yes - so report a syntax error
		jmp	p8_fatal_err2	; fatal error - no return
len_ok

		txa			; get back first word of pathname
		xba			; get first character into low byte
		and	#$00ff		; mask off length byte
		cmp	#'/'		; does pathname begin with a slash?
		beq	full_path	; yes - so it's a full pathname
		lda	#0
		sta	>e1_quit_prefix	; indicate that pathname was partial
full_path

		sep	#$30		;***** begin 8-bit mode *****
		longa	off
		longi	off

		ldx	<0		; Get length of pathname in X
path_loop
		lda	<0,x		; Copy user pathname to e1_p8quit_path
		sta	>e1_p8quit_path,x
		dex
		bpl	path_loop

		rep	#$30		;***** begin 16-bit mode *****
		longa	on
		longi	on

		pld			;retore direct register

		lda	#e1_p8quit_path	;set up pointer to pathname
		sta	>e1_path_ptr
		lda	#e1_p8quit_path>>16
		sta	>e1_path_ptr+2

no_path

; Now begin 8-bit mode

		sep	#$30		;***** begin 8-bit mode *****
		longa	off
		longi	off

; Since we're not going back to ProDOS 8, clear the active flag
; (This must be done after we have used <PAR but before our first OS call)

		stz	|mliactive	; Zero the MLIACTV flag

; Clear the ProDOS 8 bit map

		ldx	#24
		lda	#0
loop1		sta	|$BF58,X
		dex
		bne	loop1
		inc	a
		sta	|$BF6F		; Mark ProDOS 8 global page in use
		lda	#$CF
		sta	|$BF58		; and pages 0,1,4,5,6,7

; Set the level to zero

		txa
		sta	|$BF94		; Zero the level

; Drop some code into bank $00 for making a P8 Close call
; (No need to preserve anything.  We ain't goin back, no mo.)

		ldx	#close_end-close_start-1 ;# of bytes to move - 1
loop2		lda	>close_start,x
		sta	|$200,x		; store the code at $000200
		dex
		bpl	loop2

		jsl	>$000200	; make the call - don't worry about errors

; Now get P8's prefix for later use
; Drop some code into bank $00 for making a P8 GetPrefix call

		ldx	#pfx_end-pfx_start-1 ;# of bytes to move - 1.
loop3		lda	>pfx_start,x
		sta	|$200,x		; store the code at $000200
		dex
		bpl	loop3

		jsl	>$000200	; make the call
		rep	#$30		;***** begin 16-bit mode *****
		bne	local_fatal	; fatal error - no return
		sep	#$30		;***** begin 8-bit mode *****

; Copy ProDOS 8's prefix into GQuit's data area

		ldx	|$280		; Get length byte of the prefix
copy_pfx	lda	|$280,x		; Copy the prefix
		sta	>e1_prefix_buf,x
		dex
		bpl	copy_pfx

; Now begin 16-bit mode

		rep	#$30		;***** begin 16-bit mode *****
		longa	on
		longi	on

; Now let's set the data bank register to bank $E1

		pea	$e1e1
		plb
		plb

; Check to see if the Quit call specified a pathname to link to

		lda	|e1_p8quit_path
		and	#$00ff
		beq	no_path2

; The Quit call specified a pathname...

		lda	|e1_quit_prefix	;did Quit call specify full pathname?
		bmi	full_path2	;yes

		clc
		lda	|e1_prefix_buf	;check length of prefix+pathname
		adc	|e1_p8quit_path
		and	#$00ff
		cmp	#p8_max_length+1 ;is it too long?
		bcc	len_ok2		;no
		jmp	syntax_error	;yes - so report a syntax error
len_ok2

		pea	0		;indicate class 0 strings
		pea	e1_prefix_buf>>16 ;push address of string 1 to concat
		pea	e1_prefix_buf
		pea	e1_p8quit_path>>16 ;push address of string 2 to concat
		pea	e1_p8quit_path
		pea	e1_p8quit_path>>16 ;push address of resultant string
		pea	e1_p8quit_path
		jsl	concat		;concat the strings

full_path2
		clc			;indicate class 0 string
		jsr	copy_volname	;copy volname for mount_volume window

		jsr	get_info_sub	;get info about the application
		bcc	got_next_prog
local_fatal	jmp	p8_fatal_err	;fatal error - no return


; The Quit call did not specify a pathname...
; Decide on next program to execute

no_path2
		jsr	get_next_prog
		bcs	local_fatal	;fatal error - no return


; We now have a program to execute so launch it

got_next_prog
		jmp	launch_app


;-------------------------------------------------------------------------------
; Get Prefix code
;
; Entry is in 8-bit native mode.
; Exit is in 8-bit native mode.
; Data bank register is set to bank $00 on entry and exit.
;
; Inputs:       none
;
; Outputs:      z - 1 if no error ; 0 if error
;               A - error code if z=0
;
; Notes:        This code is moved to $00/0200 and executed there.
;
; This is the Bank $00 code used to make the P8 Get Prefix call.
;-------------------------------------------------------------------------------

pfx_start
		DC.B	$38		;sec
		DC.B	$FB		;xce - go to emulation mode
		DC.B	$20		;jsr ProDOS8 - Call ProDOS 8
		DC.W	ProDos8
		DC.B	$c7		;Get Prefix command number
		DC.W	pfx_parms-pfx_start+$200 ;Address of parameter list
		DC.B	$29		;and #$ff
		DC.B	$FF
		DC.B	$18		;clc - Go back to native mode
		DC.B	$FB		;xce - Note: Must use z flag to check error!
		DC.B	$6B		;rtl

pfx_parms				;parameter list for P8 Get Prefix call
		DC.B	1		;number of parameters is 1
		DC.W	$280		;pointer to prefix buffer

pfx_end


;-------------------------------------------------------------------------------
; Close code
;
; Entry is in 8-bit native mode.
; Exit is in 8-bit native mode.
; Data bank register is set to bank $00 on entry and exit.
;
; Inputs:       none
;
; Outputs:      none
;
; Notes:        This code is moved to $00/0200 and executed there.
;
; This is the Bank $00 code used to make the P8 Close call.
;-------------------------------------------------------------------------------

close_start
		DC.B	$38		;sec
		DC.B	$FB		;xce - go into emulation mode
		DC.B	$20		;jsr ProDOS8 - Call ProDOS 8
		DC.W	ProDos8
		DC.B	$CC		;Close command number
		DC.W	close_parms-close_start+$200 ;address of parm list
		DC.B	$08		;php
		DC.B	$18		;clc
		DC.B	$FB		;xce - go back to native mode
		DC.B	$28		;plp
		DC.B	$6B		;rtl

close_parms				;parameter list for P8 Close call
		DC.B	1		;number of parameters is 1
		DC.B	0		;ref num

close_end
		DataChk	on
		ENDP



		eject
;==============================================================================
; ProDOS 16 QUIT
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
;
; Data bank register is unknown at entry.
; Direct register is set to the GS/OS direct page at $00BD00 on entry.
; Stack pointer is set to the application's stack on entry. ??
;
; Data bank register is set to bank $E1 on exit.
; Direct register is set to the GS/OS direct page at $00BD00 on exit.
; Stack pointer is set to GQuit's stack on exit.
;
; Inputs:       Y - call class * 2
;               X - prefix #, if quit call specified a partial pathname
;                   $FFFF, if quit call did not specify a partial pathname
;               <param_blk_ptr - pointer to the Quit call parameter block
;               <path_flag - bit 14 is set if a pathname was specified
;               <path1_ptr - pointer to the Quit pathname in class 1 format
;                            (partial pathnames are expanded by SCM)
;               >v_ptr1 - SCM's virtual pointer to the pathname
;
; This is the entry point for QUIT calls originating from GS/OS.
;==============================================================================

		EXPORT	p16quit
p16quit		PROC
		DataChk	off
		Import	gsos_nonfatal2

		longa	on
		longi	on

; First, let's save the call class and the prefix info for later.

		tya			;Y contains call class * 2
		sta	>e1_word_temp
		txa			;X contains the prefix # (if quit call
		sta	>e1_quit_prefix	;specified a partial pathname)

; Now, let's ensure a known machine state.
; Shadow I/O space, language cards and text page 1 only.
; Preserve state of text page 2 shadowing.
; Set normal zero page and stack, page 1, read main memory, write main memory,
; read ROM off, language card 1st bank.
; Turn off 80STORE.

		longa	off
		longi	off
		sep	#$30		;***** begin 8-bit mode *****

		lda	>shadow
		and	#text_page_2_bit
		ora	#p16_shadowmask
		sta	>shadow
		lda	#$00
		sta	>statereg
		sta	>clr80col

		longa	on
		longi	on
		rep	#$30		;***** return to 16-bit mode *****

; Now, let's set the stack to GQuit's own stack.
; But before we do, we must check what the stack is currently set to.
; If it's Page 1 we must set $010100 to the value in S.

		tsc			; get current stack
		and	#$FF00		; look at high byte
		cmp	#$0100		; is it 1?
		bne	set_new_stack	; no, so never mind
		tsc			; get it again
		sep	#$30		; go into 8 bit mode
		sta	>mnemstkptr	; store it
		rep	#$30		; back to 16 bit mode
set_new_stack	lda	#gquit_stack_top ; set stack to GQuit's own stack
		tcs

; Set the data bank register to bank $E1.

		pea	$e1e1
		plb
		plb

; Identify the current operating system as GS/OS

		stz	|e1_current_os

; Set initial values of variables to zero where needed

		jsr	initialize_data

; Tell SCM to automatically put up the 'mount volume' dialog
; and make sure our error messages are not suppressed

		lda	>sys_prefs	;get preferences flag
		ora	#$8000		;set bit 15 - mount volume bit
		and	#$DFFF		;clear bit 13 - error messages bit
		sta	>sys_prefs

; Get the 'flags' word from the Quit parameter block and store for future use.
; If the Quit call was a Class 1 call, we have to check the 'parameter count'
; first to see if the 'flags' word was specified.

		ldy	|e1_word_temp	;retrieve call class * 2
		beq	get_flags	;class 0 so we know there is a flag word
		lda	[<param_blk_ptr] ;class 1 so check parameter count
		cmp	#2		;does parameter block contain flag word?
		bcc	no_params	;no, so skip next section
get_flags

;		tya
;		clc
;		adc	#$0004		;create offset to flags word
;		tay
*** optimized 4-Jun-92 DAL to save 2 bytes (now I just need two more)
		iny
		iny
		iny
		iny
*** end 4-Jun-92

		lda	[<param_blk_ptr],y ;get flags word
		sta	|e1_quit_flags	;and save
no_params

; Is the pathname pointer null or the pathname length zero?

		bit	<path_flag	; bit 14 is set if pathname1 is non-null
		bvc	no_path		; pathname pointer is null so no path

		lda	[<path1_ptr]	; get length word of pathname1
		beq	null_path	; pathname length is 0

; The Quit call specified a pathname...

; Call the memory manager to allocate space to make a copy of the pathname
; since SCM's copy isn't locked down and will move if memory is compacted.

		jsr	copy_pathname	;copy pathname into our own data area
		bcs	local_fatal

; Now notify SCM that we're done with its copy of the pathname so it can
; deallocate the data area.
; The direct register must be set to the GS/OS direct page for the call to SCM

		lda	>v_ptr1		;get pathname's virtual ptr from SCM
		tax
		lda	>v_ptr1+2
		tay
		jsl	>deallocate	;notify SCM to deallocate space

; Since we're not going back to GS/OS, clear the active flag
; (we must do this after we have copied the pathname but before our first
;  OS call)

		lda	>os_flag	; Clear bit 15 (GS/OS Active Flag)
		asl	a
		lsr	a
		sta	>os_flag

; SCM always gives us a full pathname so now copy the volume name from the
; front of the pathname into a separate string which will be used for the
; 'mount volume' window.

		sec			;indicate class 1 string
		jsr	copy_volname	;copy volname for mount_volume window

; Call the loader and the OS to get information about the application.

		jsr	get_info_sub	;get info about application
		bcc	got_next_prog	;no errors
		jsr	gsos_nonfatal2	;display dialog
		lda	|e1_quit_flags	;is current app putting it's ID on the stack?
		bpl	no_path		;no, so just ignore the supplied pathname
		asl	a		;clear the PushID bit
		lsr	a
		sta	|e1_quit_flags	;and put back
		lda	|e1_Current_id	;get the ID of the current app
		sta	e1_open_id	;and store as ID of next program to launch
		lda	#$B3		;must be application type
		sta	e1_load_type
		jmp	got_next_prog	;fake it
	

; The Quit call specified a pathname of length 0...

null_path

; Notify SCM that we're done with its copy of the pathname so it can
; deallocate the data area.
; The direct register must be set to the GS/OS direct page for the call to SCM

		lda	>v_ptr1		;get pathname's virtual ptr from SCM
		tax
		lda	>v_ptr1+2
		tay
		jsl	>deallocate	;notify SCM to deallocate space
;fall thru to no_path

; The Quit call did not specify a pathname...

no_path

; Since we're not going back to GS/OS, clear the active flag
; (this must be done before our first OS call)

		lda	>os_flag	; Clear bit 15 (GS/OS Active Flag)
		asl	a
		lsr	a
		sta	>os_flag

; Check the quit flags

		lda	|e1_quit_flags	; Is he trying to be put on the stack
		bpl	flags_ok	; without a path to go to?

; If we reach this point, the user did a QUIT with no pathname but with the high
; bit of the flag word set.  This is not allowed.  But, since it serves no
; purpose to halt the system with a system death message, we now will clear
; both currently used flag bits and continue execution.
; This means that the program that gave us this incorrect QUIT call will NOT be
; restartable from memory and will NOT be put on the program return stack.

		and	#$3fff		; Mask off stack and restart flags.
		sta	|e1_quit_flags	; and leave the rest alone.
flags_ok

; Decide on the next program to execute.

		jsr	get_next_prog
		bcc	got_next_prog
local_fatal	jmp	gsos_fatal_err	;fatal error - no return


; We now have a program to execute...

got_next_prog

; Check if this is the very first call to GQuit.
; e1_current_id will have a non-zero value except on the very first call.

		lda	|e1_Current_id
		beq	close_files

; Determine if we need to push this id on the stack

		lda	|e1_quit_flags	; Get the Quit call's 'flags' word
		bpl	no_push_id	; Skip if no return attribute
		jsr	push_id		; Push the id onto ID stack
		bcs	local_fatal	; fatal error - no return
no_push_id

; Call the loader to shutdown the current application.

		pha			; Stack space for ID result.
		lda	|e1_Current_id	; ID of program being shutdown
		pha
		lda	|e1_quit_flags	; Tells loader how to shutdown
		and	#%1100000000000000	; Mask bits that the loader doesn't use.
		pha
		_usershutdown		; Call Loader.
		plx			; Discard return ID.
		bcs	local_fatal

; Check if GQuit allocated the current app's ZP and dispose it if we did

		jsl	dispose_user_zp
		bcs	local_fatal

; Close all open application files by setting the level to zero and doing a CLOSE all.
; (Ignore errors on these calls.)

close_files
		_setlevel parms
		_close	parms

; Launch the application

		jmp	launch_app


;-------------------------------------------------------------------------------
; parms
;
; Parameter table for SetLevel and Close calls
;-------------------------------------------------------------------------------

parms		DC.B	$00,$00



;-------------------------------------------------------------------------------
; copy_pathname
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is set to bank $E1 on entry and exit.
; Direct register is set to GS/OS direct page on entry and exit.
;
; Inputs:       <path1_ptr - pointer to SCM's copy of the expanded Quit
;                            pathname in class 1 format
;                            (partial pathnames are expanded by SCM)
;
; Outputs:      e1_path_ptr - pointer to GQuit's copy of the Quit pathname
;               e1_path_hndl - handle to GQuit's copy of the Quit pathname
;               A - error code if c=1
;               c=0 if no error, else c=1
;
; This routine makes a copy of the pathname specified in a P16 Quit call.
; We have to do this since SCM's copy of the pathname is not locked and
; if it moves we're in big trouble.  The reason we can't just lock it and use
; it is that if we have to go to P8, the data area in which the pathname lives
; is disposed when we shutdown GS/OS.  So, we have to make our own copy.
;-------------------------------------------------------------------------------

		longa	on
		longi	on
		entry	copy_pathname
copy_pathname

;first, get the handle associated with the pathname ptr SCM is using

		pha			;space for result
		pha
		pei	<path1_ptr+2	;pointer to pathname in SCM land
		pei	<path1_ptr
		_FindHandle
		sec			;indicate error just in case
;		lda	1,s		;is handle nil?
;		ora	3,s
*** optimized 4-Jun-29 DAL to save two bytes (hooray!)
***   A handle can never be $xx0000xx, so checking the middle word is fine.
		lda	2,s
*** end 4-Jun-92 DAL
		beq	got_error2	;yes - so return error (A=0)

;The handle is now on the stack.  Put another copy of the handle on the stack
;since both the HLock and HUnLock calls require the handle as input.

		lda	1,s		;get lo word of handle
		tax
		lda	3,s		;get hi word of handle
		pha			;push hi word
		phx			;push lo word

;now, lock the handle so that the NewHandle call will not cause the
;pathname to move

		_HLock
		bcs	got_error2

;allocate space so we can make a copy of the pathname

		pha			; reserve space for Handle result
		pha
		ldx	#$0000
		phx			; hi word of seg size ($0000)
		lda	[<path1_ptr]	; get length of pathname
		inc	a		; add 2 for length word
		inc	a
		pha			; lo word of seg size
		lda	|e1_path_id	; segment id
		pha
		pea	path_attrib	; seg attributes word
		phx			; hi word of seg location ($0000)
		phx			; lo word of seg location ($0000)
		_newhandle
		bcs	got_error4

;save the handle to the allocated space and then dereference the handle

		phd			;save direct register
		tsc
		tcd			;point direct register at stack
		lda	<3		;get handle to memory
		sta	|e1_path_hndl	;and save
		lda	<5
		sta	|e1_path_hndl+2
		lda	[<3]		;dereference handle
		sta	|e1_path_ptr	;and save
		tax
		ldy	#2
		lda	[<3],y
		sta	|e1_path_ptr+2
		tay
		pld			;restore direct register
		pla			;clean up stack
		pla

;store pointer to allocated space on GS/OS direct page

		sty	<path2_ptr+2
		stx	<path2_ptr

;copy the pathname from SCM's area into the allocated space

		lda	[<path1_ptr]	;get length word
		tay
loop
		lda	[<path1_ptr],y
		sta	[<path2_ptr],y
		dey
		beq	loop
		dey
		bpl	loop

;now we can unlock SCM's copy of the pathname

		_HUnLock

;return (c and A are set from HLock call)

		rts


;got an error from the memory manager so clean up the stack and return error

got_error4
		plx
		plx
got_error2
		plx
		plx
		rts

		DataChk	on
		ENDP



		eject
;==============================================================================
; initialize_data
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is set to bank $E1 on entry and exit.
; Direct register is unknown.
;
; Inputs:       none
;
; Outputs:      none
;
; This routine sets the initial values of certain variables to zero.
;==============================================================================

initialize_data	PROC
		DataChk	off

		longa	on
		longi	on

		stz	|e1_quit_flags
		stz	|e1_open_id
		stz	|e1_load_type
		stz	|e1_start_flag
		stz	|e1_os_switch
		stz	|e1_p8quit_path
		stz	|e1_path_ptr
		stz	|e1_path_ptr+2
		stz	|e1_path_hndl
		stz	|e1_path_hndl+2
		stz	|e1_path_len
		rts

		DataChk	on
		ENDP



		eject
;==============================================================================
; copy_volname
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is set to bank $E1 on entry and exit.
; Direct register is preserved.
;
; Inputs:       e1_path_ptr - points to the expanded Quit pathname
;               c - 0 if e1_path_ptr points to a class 0 string
;                   1 if e1_path_ptr points to a class 1 string
;
; Outputs:      e1_app_volname - contains the volume name (class 0 always)
;
; Copies the volume name from the expanded Quit pathname into e1_app_volname
; for use by the 'mount volume' routine.
;==============================================================================

copy_volname	PROC
		DataChk	off

		phd			;save direct register
		lda	|e1_path_ptr+2	;push string ptr onto stack
		pha
		lda	|e1_path_ptr
		pha
		tsc			;set direct register to point to stack
		tcd

		longa	off
		longi	off
		sep	#$30		;***** begin 8-bit mode *****

		ldy	#1		;assume class 0 string to start
		ldx	#1		;skip length byte
		lda	#'/'		;separator to look for
		pha
		bcc	class0
		iny			;class 1 string so skip another byte
		lda	#':'		;different separator to look for
		sta	1,s
class0

		lda	#'/'		;store beginning slash
		sta	|e1_app_volname,x

loop		inx
		iny
		lda	[<1],y		;copy volume name
		sta	|e1_app_volname,x
		cmp	1,s
		bne	loop		;loop until hit a separator

done		dex			;don't count the separator
		stx	|e1_app_volname	;store length byte
		pla			;pull separator off stack

		longa	on
		longi	on
		rep	#$30		;***** return to 16-bit mode *****

		pla			;pull pointer off stack
		pla
		pld			;restore direct register
		rts

		DataChk	on
		ENDP



		eject
;==============================================================================
; get_next_prog
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is set to bank $E1 on entry and exit.
;
; Inputs:       none
;
; Outputs:      e1_open_id - id of next program to execute if stack not empty
;               A - error code if c=1
;               c=0 if no error, else c=1
;
; The Quit call didn't specify a pathname to link to so pop the ID stack.
; If the ID stack is empty, execute the program launcher
;==============================================================================

get_next_prog	PROC
		DataChk	off
		Import	call_launcher

		longa	on
		longi	on

; We have no program to link to so pop the ID stack to see if we have a
; program to return to.

		jsr	Pop_id		; Pop the ID stack
		bcc	done		; carry set if stack is empty

; We have no program to link to and nothing on the stack to return to.
; So, default to the start program if we're currently running P8, or
; run the Program Launcher if we're running GS/OS.

		lda	|e1_current_os	;which OS is running?
		bmi	its_p8

		lda	e1_quit_flags	;is the app smart enough to be restarted?
		and	#%0001000000000000
		bne	@restart_it	;yes, just restart the start app

; Since there's no userID on the quit stack to quit to, we'll bring in the Program Launcher
; to allow the user to interactively select the next application to launch.

		lda	>sys_prefs	;get current system preferences
		pha			;save around call to program launcher
		lda	#0		;set to not display mount dialog
		sta	>sys_prefs
		
		jsl	call_launcher	;go execute the program launcher

		pla			;retrieve SysPrefs
		sta	>sys_prefs	;restore original setting

		phx			;save returned userID
		phx			;twice

		jsr	copy_pathname	;copy pathname into our own data area

		ldx	#$1102		;DisposeAll
		jsl	$E10000		;(userid already on stack)

		ldx	#$2103		;DeleteID (id already on stack)
		jsl	$E10000

		sec			;it's a class 1 string
		bra	continue2	;then continue as before

@restart_it
		ldx	#e1_start_prog1	;GS/OS is in so we need a class 1 string
		ldy	#e1_start_prog1>>16
		sec			;class 1 string for 'copy_volname'
		bra	cont

its_p8
		inc	|e1_start_flag	;indicate we're launching start prog

		ldx	#e1_start_prog0	;P8 is in so we need a class 0 string
		ldy	#e1_start_prog0>>16
		clc			;class 0 string for 'copy_volname'

cont		stx	|e1_path_ptr	;store pointer to correct string
		sty	|e1_path_ptr+2
continue2
		jsr	copy_volname	;copy volname for mount_volume window

		jsr	get_info_sub
done		rts			;carry clear if no error, else set

		DataChk	on
		ENDP



		eject
;==============================================================================
; launch_app
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is set to bank $E1 on entry and exit.
;
; Inputs:       none
;
; Outputs:      none
;
; Shut down the Desk Manager in case the application didn't to ensure
; that no interrupt routines will be calling GS/OS or ProDOS 8 incorrectly.
; Then determine if application is P8 or P16 and jump to correct routine.
;
; The DeskShutDown call can cause memory to move so it must be done after
; the Quit pathname has been copied into our own locked data area.
;
; NOTE: We don't want to deallocate interrupts.  If we're not switching
; operating systems, they probably want to live if the QUITing application
; didn't deallocate them.  If we are switching operating systems, the handlers
; are going to be overwritten and we can, and will, shut off known Apple //gs
; interrupt sources before going to ProDOS 8.  However, we haven't any way to
; shut off hardware interrupts from some unknown source, so if interrupts are
; still running...CRASH!!!
;==============================================================================

launch_app	PROC
		DataChk	off

		longa	on
		longi	on

		_DeskShutDown

		lda	|e1_Load_Type	; Get load type
		cmp	#$00ff		; Is it P8?
		beq	launch_p8app	; yes
		jmp	launch_p16app	; no, so must be P16 app

		eject
;===============================================================================
; launch_p8app
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
;
; Data bank register is set to bank $E1 on entry.
; Direct register is set to GS/OS direct page at $00BD00 on entry from p16quit.
; Direct register is set to $000000 on entry from p8quit.
; Stack pointer is set to GQuit's stack on entry from p16quit.
; Stack pointer is set to $01xx on entry from p8quit.
;
; Data bank register is set to bank $00 on exit.
; Direct register is set to $0000 on exit.
; Stack pointer is set to $01fb on exit.
;
; Attempt to launch a P8 application.
;===============================================================================

launch_p8app
		longa	on
		longi	on


		lda	|e1_current_os	; Check to see which OS is running.
		bpl	its_gsos	; It's GS/OS.
		lda	#$01fb		; set stack at $01fb for emulation mode
		tcs
		jmp	its_P8		; It's ProDOS 8.

;-------------------------------------------------------------------------------

its_gsos
		Import	e1_fst_id

		lda	|e1_fst_id	;make sure that the P8 application resides
		cmp	#proDOSFSID	; on a ProDOS or AppleShare volume
		beq	@continue
		cmp	#appleShareFSID
		beq	@continue
		ldx	#65		;non-fatal error message
		jmp	no_can_do
@continue

; Indicate that we are switching operating systems.

		inc	|e1_os_switch

; Set OS_Kind to $ff to indicate that we are switching operating systems
; and that interrupt tasks should not make OS calls

		longa	off
		longi	off
		sep	#$30		;***** begin 8-bit mode *****

		lda	#$ff
		sta	|OS_Kind

		rep	#$30		;***** return to 16-bit mode *****
		longa	on
		longi	on

; We are currently using class 1 strings so convert them to class 0 strings...

; First, check to see if we're relaunching the start program.
; If so, change e1_path_ptr to point to the start program's class 0 pathname.

		lda	|e1_start_flag	;are we relaunching the start prog?
		beq	not_start	;no

		lda	#e1_start_prog0	;yes - so get pointer to class 0 string
		sta	|e1_path_ptr
		lda	#e1_start_prog0>>16
		sta	|e1_path_ptr+2
		bra	get_gsos_pfx

not_start

; The Quit call specified the pathname of a program to link to.
; First, convert the class 1 string to a class 0 string.

		ldx	|e1_path_ptr+2	;push ptr to source string (class 1)
		phx
		ldy	|e1_path_ptr
		phy
		phx			;push ptr to dest string (class 0)
		phy
		jsl	>cvt_1to0	;convert class 1 string to class 0

; Now, convert the class 1 separators (:) to class 0 separators (/).

		ldy	|e1_path_ptr+2	;get pointer to string in X and Y
		ldx	|e1_path_ptr
		jsl	colon_2_slash	;replace colons with slashes

; Get the correct GS/OS prefix which will be used to set ProDOS 8's prefix.

get_gsos_pfx
		lda	|e1_quit_prefix	;get Quit call's pathname prefix
		cmp	#32		;was the prefix '*' ?
		bne	not_star	;no
		_getbootvol e1_gbv_parms ;class 0 call
		bcc	class0_pfx
		jmp	gsos_fatal_err	;fatal error - no return

not_star
		stz	|e1_getpfx_num	;initialize to prefix 0
		cmp	#$ffff		;was a prefix specified?
		beq	get_zero	;no - so get prefix 0
		sta	|e1_getpfx_num	;yes - so get the specified prefix
get_zero
		_getprefix1 e1_getpfx_parms1 ;class 1 call
		bcc	prefix_ok
		cmp	#buff_too_small	;if buffer was too small then prefix
		beq	its_too_long	;was > 65 chars so report syntax err
		jmp	gsos_fatal_err	;fatal error - no return
prefix_ok

; Now, convert the prefix string from class 1 to class 0

		pea	e1_prefix_buf>>16 ;push ptr to source string (class 1)
		pea	e1_prefix_buf
		pea	e1_prefix_buf>>16 ;push ptr to dest string (class 0)
		pea	e1_prefix_buf
		jsl	>cvt_1to0	;convert class 1 string to class 0

; Now, convert the class 1 separators (:) to class 0 separators (/).

		ldy	#e1_prefix_buf>>16 ;get string pointer in X and Y
		ldx	#e1_prefix_buf
		jsl	colon_2_slash	;replace colons with slashes

class0_pfx

; Check to make sure that the length of the pathname minus the length of
; the prefix (if specified) is less than 65 characters.

		pea	0		;init prefix length to 0
		lda	|e1_quit_prefix	;was a prefix specified?
		bmi	no_prefix	;no
		lda	|e1_prefix_buf	;yes - so put prefix length on stack
		and	#$00ff
		sta	1,s
no_prefix
		lda	|e1_path_ptr
		sta	<path1_ptr	;store string ptr on GS/OS direct page
		lda	|e1_path_ptr+2	;we can use path1_ptr as a temp
		sta	<path1_ptr+2
		sec
		lda	[<path1_ptr]	;get length
		and	#$00ff		;mask off hi byte

		sbc	1,s		;subtract length of prefix
		plx			;clean up stack
		cmp	#p8_max_length+1 ;is it longer than maximum P8 pathname?
		bcc	length_ok	;no

its_too_long
		lda	|e1_quit_flags	;was previous app put on ID stack?
		bpl	cant_cancel	;no
		ldx	#p8_path_err	;message #
no_can_do
		jsr	gsos_nonfatal	;put up non-fatal error
		jsr	pop_id		;pop ID of previous app off stack
		jmp	launch_p16app	;and relaunch it

cant_cancel				;can't recover so put up fatal error msg
		ldx	#p8_path_err2	;message #
		jmp	gsos_fatal_err2	;fatal error - no return

length_ok

; Check to see if we have a copy of the P8 file in memory

		lda	|e1_p8copy_flag	;do we have a saved copy of P8?
		bmi	no_copy		;no
		jsr	deref_and_lock	;yes - so deref and lock the handle
		bcc	notify_q	;carry set if block was purged
no_copy

; Go load the P8 file...
; First, try to open the P8 file.

open_call	_open1	e1_open_parms1	; Open the P8 file.
		bcc	open_p8_ok

		cmp	#file_not_found	;was the error 'file not found' ?
		bne	local_fatal	;no - so put up fatal error message

		lda	|e1_quit_flags	;was previous app put on ID stack?
		bpl	no_pop_back	;no - so put up fatal error message

		ldx	#no_p8_err	;message #
		jsr	gsos_nonfatal	;put up non-fatal error
		jsr	pop_id		;pop ID of previous app off stack
		jmp	launch_p16app	;and relaunch it

no_pop_back				;can't recover so put up fatal error msg
		ldx	#no_p8_err2	;message #
		jmp	gsos_fatal_err2	;fatal error - no return

open_p8_ok

*** added 4-Jun-92 DAL, mainly for EtherTalk card
; Call OS_P8_Switch vector with A = $0001 for leaving-GS/OS, for
; things like the ETalk driver, which have no convenient way to
; instally a notify proc on ROM 1.

		lda	#$0001
		jsl	>os_p8_switch
*** end 4-Jun-92

; Notify the OS event queue that we are just about to switch to ProDOS 8.
; The Direct register must be set to GS/OS direct page for the call to SCM.

notify_q
		pha			; push 3 words of garbage
		pha
		pha
		lda	#switch_to_p8	;lo word of the event code
		ldx	#>switch_to_p8  ;hi word of the event code
		jsl	>os_event	;call SCM

; If we have a copy of the P8 file in memory, then copy it down to $2000

		lda	|e1_p8copy_flag
		cmp	#1		;do we have a valid handle?
		bne	read_p8		;no - so read in the file from disk

		lda	|e1_p8copy_ptr+2 ;hi word of src
		pha
		lda	|e1_p8copy_ptr	;lo word of src
		pha
		lda	#$0000
		pha			;hi word of dest ($0000)
		pea	$2000		;lo word of dest
		pha			;hi word of xfer count ($0000)
		lda	|e1_p8copy_size	;lo word of xfer count
		pha
		pea	move_sinc_dinc	;command byte
		jsl	>move_info	;call SCM to do the copy
		jmp	p8copy_done

; The file is open, so now read it into memory at $2000 and close the file.

read_p8
		lda	|e1_open_ref	; Put ref no. into other parm lists
		sta	|e1_close_ref
		sta	|e1_geof_ref
		sta	|e1_read_ref

		_geteof1 e1_geof_parms1	; Get # of bytes in P8 file
		bcc	eof_ok
local_fatal	jmp	gsos_fatal_err	; fatal error - no return
eof_ok

		lda	|e1_geof_eof	; get # of bytes to read
		sta	|e1_p8copy_size	; save
		sta	|e1_read_count	; only low word is needed
		stz	|e1_read_count+2 ; High word is zero

		_read1	e1_read_parms1	; Read in P8
		bcs	local_fatal

		_close1	e1_close_parms1	; Close the P8 file
		bcs	local_fatal

; ProDOS 8 is now loaded at $2000.  Check the "GS/OS compatibility byte".

		lda	|e1_geof_eof	;get size of P8 file
		cmp	#p8_file_eof	;is it the correct size?
		bne	bad_version	;no
		lda	>P8_compat_byte	;size is OK so get the compatibility byte
		and	#$00FF		;mask off hi byte
		cmp	#P8_compat_value
		beq	version_ok
bad_version	ldx	#p8_version_err	;message #
		jmp	gsos_fatal_err2	;fatal error - no return
version_ok

; Save a copy of the P8 file in non-special memory

		pha			;space for Handle result
		pha
		pea	$0000		;hi word of size
		lda	|e1_p8copy_size	;lo word of size
		pha
		lda	|e1_p8copy_id	;user id
		pha
		pea	p8copy_attrib	;attributes
		pha			;loc ptr - unused
		pha

		lda	|e1_p8copy_flag	;do we have a purged handle?
		beq	realloc		;yes - so reallocate it

		_newhandle		;allocate a new handle
		plx
		ply
		bcs	p8copy_done2	;got an error - don't report it
		stx	|e1_p8copy_hndl
		sty	|e1_p8copy_hndl+2
		bra	copy_p8

realloc
		lda	|e1_p8copy_hndl+2 ;purged handle
		pha
		lda	|e1_p8copy_hndl
		pha
		_ReAllocHandle		;reallocate it
		plx			;clean up stack
		plx
		bcs	p8copy_done2	;got an error - don't report it

copy_p8
		jsr	deref_and_lock	;dereference and lock the handle

		ldx	#$0000
		phx			;hi word of src ($0000)
		pea	$2000		;lo word of src
		lda	|e1_p8copy_ptr+2 ;hi word of dest
		pha
		lda	|e1_p8copy_ptr	;lo word of dest
		pha
		phx			;hi word of xfer count ($0000)
		lda	|e1_p8copy_size	;lo word of xfer count
		pha
		pea	$0805		;command byte
		jsl	>move_info	;call SCM to do the copy

; We're done with the copy of P8 so unlock the block

p8copy_done
		lda	|e1_p8copy_hndl+2
		pha
		lda	|e1_p8copy_hndl
		pha
		_HUnlock
p8copy_done2

; Tell the Slot Arbiter to save the slot 3 screenholes since the ProDOS 8 loader
; will enable the internal slot 3 rom.  Do NOT check for errors on this call.

		lda	#$0003		;slot 3
		jsl	>dyn_slot_arbiter
		stx	|e1_besc	;save the "bit encoded slot configuration"

; Save the slot 3 rom status (internal vs external) since the ProDOS 8 loader
; will enable the internal slot 3 rom and we need to restore the correct value
; when we eventually get back to GS/OS.

		sep	#$30		;***** begin 8-bit mode *****
		lda	>rdc3rom	;get slot 3 status
		sta	|e1_c3_status	;and save
		rep	#$30		;***** return to 16-bit mode *****

; Notify SCM that it should do an EndSession call and then close all open application
; files and all open system files and write them out to disk if necessary.
; (must be done before the device dispatcher is shutdown)
; (Direct register must be set to GS/OS direct page)

		jsl	>close_all_files

; Indicate that GS/OS is no longer in a valid state so that the report_fatal routine
; will not try to shutdown GS/OS if a fatal error occurs.

		stz	|e1_gsos_ok

; Shut down the device dispatcher.
; (must be done before SCM is shutdown)
; (Direct register must be set to GS/OS direct page)

		stz	<drvr_dev_num	;device number = dispatcher
		lda	#2
		sta	<drvr_call_num	;call number = shutdown
		jsl	>dev_dispatcher
		bcs	local_fatal2

; Shut down SCM.
; (Direct register must be set to GS/OS direct page)

		jsl	>shutdown_scm
		bcc	scm_ok
local_fatal2	jmp	gsos_fatal_err	; fatal error - no return
scm_ok

		pea	0		; code for switch from GS/OS to P8
		ldx	#$1F11		; internal function number for SwitchHandler
		jsl	$E10000		; notify the loader that we're switching

; Now, let's effectively take out the loader as a tool so it won't be called on
; a control reset, or on a call to the reset routine in the firmware.  We will
; do this by making a SetTSPtr call with the loader's tool number, and pointing
; the function table pointer to a location containing 2 bytes of zeros.  The 2
; zero bytes are the count of how many functions there are in the tool set.
; The Dispatcher will read this zero, and know not to bother making the TLReset
; call to the loader.

		pea	0		; Loader is a System toolset
		pea	Loader_TSN	; loader's tool set #
		pea	zero_word>>16	; Push hi byte of adrs of zero word
		pea	zero_word**$ff	; Push lo byte of adrs of zero word
		_setTSPtr		; Install the ptr to our zero word

; Patch the GS/OS entry vectors to jump to the QuickDraw patches which are at the
; start of the error messages file.  This is done so that if a P8 app starts up QuickDraw
; (which is a legal thing to do), QuickDraw won't crash when it tries to make GS/OS calls
; (which it shouldn't be doing).  The GS/OS entry vectors are restored to their proper
; values by the init_SCM routine in SCM.

		lda	|e1_patch1_adr	; get load address of first patch and
		sta	|$e100b0+1	; store it in the GS/OS stack entry vector after the JML
		lda	|e1_patch1_adr+1 ;ignore hi byte of load address
		sta	|$e100b0+2

		lda	|e1_patch2_adr	; get load address of second patch and
		sta	|$e100a8+1	; store it in the GS/OS normal entry vector after the JML
		lda	|e1_patch2_adr+1 ;ignore hi byte of load address
		sta	|$e100a8+2

; Compact memory so that we have a better chance of getting storage space for GS/OS

		_CompactMem

; Allocate memory to store GS/OS in while ProDOS 8 is running

		stz	|e1_no_storage	;init flag to indicate that we got storage
		jsr	alloc_storage	;allocate storage areas for GS/OS
		bcc	storage_ok	;did we get all the storage areas we need?
		jsl	dispose_storage	;no - so get rid of the storage areas we got
		inc	|e1_no_storage	;indicate that we don't have storage areas
		bra	dispose_os	;skip over some code
storage_ok

; Move the B0 code to bank 0 where it must run from.

		ldx	#<b0e1_obj_pstn	; source address of code to relocate
		ldy	#b0_obj_pstn	; dest address
		lda	#b0_obj_size-1	; # of bytes to move - 1.
		phb			; save data bank reg
		mvn	$E10000,0	; move from bank $E1 to bank $00
		plb			; restore data bank reg

; Copy parts of GS/OS into storage areas  (this is B0 code)

		jsl	copy_gsos_segs

; Dispose of any memory which GQuit or GLDR allocated for GS/OS.

dispose_os
		jsl	dispose_os_mem
		bcs	local_fatal2

; Now allocate all of special memory for ProDOS 8.

		jsr	alloc_p8_mem
		bcs	local_fatal2

; Set direct register to emulation zero page ($000000) for ProDOS 8.

		lda	#$0000
		tcd

; Set stack to $01fb for ProDOS 8.

		lda	#$01fb
		tcs

; Now we must move the code that calls ProDOS 8's loader to bank 0
; because we must go into emulation mode and have the ROM banked in!

		phb			; Save current DBR.
		ldx	#setup_P8_begin	; Source adr. of Bank 0 code to reloc.
		ldy	#$0000200	; Dest adr. (origin) of bank 0 code.
		lda	#setup_P8_end-setup_P8_begin-1 ; # of bytes to move - 1.
		mvn	$E00000,0	; move from bank $E0 to bank 0

; Call ProDOS 8's loader and patch ProDOS 8  (DBR is set to 0 from previous MVN)

		jsl	>$000200	; call setup_p8
		plb			; Restore DBR.

; Update e1_current_os since we have just changed to ProDOS 8.

		lda	#$8000
		sta	|e1_current_os

; Move GS/OS's prefix down to $0200 so we can set ProDOS 8's prefix

		longa	off
		longi	off
		sep	#$30		;***** begin 8-bit mode *****

		lda	|e1_prefix_buf	; get length byte
		tax
move_pfx	lda	|e1_prefix_buf,x
		sta	>$000200,x
		dex
		bpl	move_pfx

		longa	on
		longi	on
		rep	#$30		;***** return to 16-bit mode *****

; fall into next section

;-------------------------------------------------------------------------------

its_p8

; Set current_id to zero since it is now undefined.

		stz	|e1_current_id

; Set the SHADOW register up for P8 applications and set OS_Kind to $00
; to indicate that ProDOS 8 is running

		longa	off
		longi	off
		sep	#$30		;***** begin 8-bit mode *****

		lda	>shadow
		and	#text_page_2_bit ; preserve state of text page 2 shadowing
		ora	#P8_shadowmask	; All shadowing on (//e simulation)
		sta	>shadow

		stz	|OS_Kind	; 0 signifies that P8 is running

		longa	on
		longi	on
		rep	#$30		;***** return to 16-bit mode *****

; Call the first routine in the auto linked chain of routines that
; need to know when the OS is going to be changed.
; (This must be done before we start making P8 calls.)

		jsl	>OS_Switch	; Notify the routines.

; Strip the prefix off the application's pathname if a partial pathname
; was specified in the Quit call

		lda	|e1_quit_prefix	;was it a partial pathname?
		bmi	store_path	;no - so don't have to strip off prefix

		lda	|e1_path_ptr	;put ptr to pathname on direct page
		sta	<0
		lda	|e1_path_ptr+2
		sta	<2

		longa	off
		longi	off
		sep	#$30		;***** begin 8-bit mode *****

		sec
		lda	[0]		;get length byte of full pathname
		sbc	|e1_prefix_buf	;subtract length byte of prefix
		ldy	|e1_prefix_buf	;to create length of partial pathname
		sta	[0],y		;store just before partial pathname

		longa	on
		longi	on
		rep	#$30		;***** return to 16-bit mode *****

		clc			;adjust e1_path_ptr to point to the
		lda	|e1_prefix_buf	;partial pathname
		and	#$00ff
		adc	|e1_path_ptr
		sta	|e1_path_ptr
		lda	|e1_path_ptr+2
		adc	#0
		sta	|e1_path_ptr+2

; Store the application's pathname at $280 abiding by P8's conventions.

store_path
		lda	|e1_path_ptr
		sta	<0
		lda	|e1_path_ptr+2
		sta	<2

		longa	off
		longi	off
		sep	#$30		;***** begin 8-bit mode *****

		lda	[<0]		;get length byte
		tay
		tax

move_loop	lda	[<0],y
		sta	>$000280,x
		dey
		dex
		bpl	move_loop

		longa	on
		longi	on
		rep	#$30		;***** return to 16-bit mode *****

; If we got here from a P16 Quit call which specified a pathname, we must now
; deallocate the space we obtained for the copy of the pathname
; since we are done using the pathname.

		jsl	dispose_path
		bcc	dispose_ok
		jmp	p8_fatal_err2	;fatal error - no return
dispose_ok

		lda	>$1000		; does the quit code start with a CLD? ($D8)
		and	#$00FF
		cmp	#$00D8
		beq	@move_launcher	; yes, so it's not our custom launch code
		lda	>$100E		; pick up the ID bytes
		cmp	#'G'+('Q'<<8)	; is it GQuit's custom launcher?
		beq	@do_launch	; yes, we can use it!

@move_launcher

; Now move the application's loading code into bank zero since it
; makes ProDOS 8 calls.

		ldx	#setup_p8_end	; Source adr. of code to move.
		ldy	#load_app_begin	; Dest adr. of code.
		lda	#load_app_end-load_app_begin-1 ; # of bytes to move - 1.
		mvn	$E00000,0	; MVN from bank $e0 to $00.

; Data bank register is now set to bank $00 from previous MVN.

@do_launch
		pea	0		;must set DBR to 0 for emulation mode
		plb
		plb

; Decrement the system busy flag

		jsl	>decbusyflg

; Load and run the program.


		lda	>e1_os_switch	;must pass value of this flag to P8 launcher
		jmp	>$001010	;jump to relocated QUIT code



;---------------------------------------------------------------------------------
; deref_and_lock
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is set to bank $E1 on entry and exit.
; Direct register is set to GS/OS direct page at $00BD00 on entry and exit.
; Stack pointer is set to GQuit's stack on entry and exit.
;
; Inputs:       e1_p8copy_hndl - handle to copy of P8
;
; Outputs:      c - 1 if handle was purged; 0 if handle is valid
;		e1_p8copy_ptr - ptr to copy of P8 (if e1_p8copy_hndl is valid)
;		e1_p8copy_flag - 0 if handle was purged, 1 if handle is valid
;
; Dereference and lock e1_p8copy_hndl.
;---------------------------------------------------------------------------------

deref_and_lock
		longa	on
		longi	on

		stz	|e1_p8copy_flag	;indicate that we have a purged handle
		sec			;ditto

		lda	|e1_p8copy_hndl	;put handle on direct page
		sta	<path1_ptr	;we can use path1_ptr
		lda	|e1_p8copy_hndl+2
		sta	<path1_ptr+2

		lda	[<path1_ptr]	;dereference the handle
		sta	|e1_p8copy_ptr
		ldy	#2
		lda	[<path1_ptr],y
		sta	|e1_p8copy_ptr+2
		ora	|e1_p8copy_ptr	;has the handle been purged?
		beq	d_and_l_done	;yes

		ldy	#4
		lda	[<path1_ptr],y	;get attributes
		ora	#$8000		;lock the segment
		sta	[<path1_ptr],y
		inc	|e1_p8copy_flag	;indicate that we have a valid handle
		clc			;ditto

d_and_l_done	rts

		DataChk	on
		ENDP

		eject
;===============================================================================
; setup_p8
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is set to bank $00 on entry and exit.
; Direct register is set to $0000 on entry and exit.
; Stack pointer is set to $01xx on entry and exit.
;
; Inputs:       none
;
; Outputs:      none
;
; Notes:        This code is moved to $00/0200 and executed there.
;===============================================================================

setup_P8	PROC

		EXPORT	setup_P8_begin
setup_P8_begin

		longa	off
		longi	off
		sec
		xce			;***** begin emulation mode *****

*** 23-Oct-92 DAL -- Zero is a nasty problem when it gets left in
***   DEVNUM.  Let's lie and say $50 instead.
;;;		stz	$43		;zero P8's boot device ID
		lda #$50
		sta $43
*** end 23-Oct-92


; Now call the alternate entry point in the ProDOS 8 loader that
; will set up ProDOS 8, but instead of executing a system program,
; will return to the caller.

		lda	|romin		; Enable ROM for ProDOS.
		jsr	$2006		; use new GQuit entry point
		ldy	|lcbank1	; R/W enable LCb1 for GQUIT.
		ldy	|lcbank1

		clc
		xce			;***** return to 8-bit native *****


; *** gab ***
; Need to patch the P8 kernel to first move the dispatcher code from $D100 to $1000.
; After it's moved, we can  check the P8 quit parameters for the signature byte ($EE)
; signifying a pathname quit.  If it is, we  can go directly to GQuit.  If it's a normal
; quit, we should transfer control to $1000 (the dispatcher code).  This way, if the user
; has installed their own dispatcher code over our code, the user's dispatcher will gain
; control (instead of going off to GQuit).
; *** end ***

; Now enable LCb1 to patch the P8 kernel. This patch will check to see
; if the P8 quit call was a pathname quit with $ee as an input parameter,
; and if so jump directly to GQUIT.  If not, then it will move the three
; pages at $d100 LCb2 to $1000 and jmp $1000 as usual.

		ldy	|lcbank1

		lda	|p8calldisp_adr	;get the address of p8calldisp
		sta	<0		;and store on zero page
		lda	|p8calldisp_adr+1
		sta	<1

		ldy	#patch_size-1	;get length of patch
lkoop		lda	|patch_begin-setup_p8_begin+$200,y
		sta	(<0),y		; This is the patch address!
		dey
		bpl	lkoop

		longa	on
		longi	on
		rep	#$30		; Return in 16 bit mode.
		rtl			; Back to GQUIT!


;-------------------------------------------------------------------------------
; P8calldisp patch
;
; This is the patch code that patches the code in ProDOS that moves the 3
; pages of quit code from $d100 in bank0 lc to $1000.  Beware that if the
; patched code changes in size, this patch must do the same.  Also beware
; that if the contents of $bf04,$bf05 (currently it's CALLDISP) changes, this
; patch must do the same.
;-------------------------------------------------------------------------------

patch_begin
		longa	off
		longi	off
max_size	equ	$2D		;maximum size the patch can grow to
bra_target	equ	patch_begin+max_size

; *** gab ***
; this has been rearranged so that the move is done prior to checking for the signature
; byte.  This is so that the launcher code is in place whether it's a normal quit or
; a pathname quit.
		lda	|lcbank2	; R/W enable LCb2
		lda	|lcbank2

		longa	on
		longi	on
		clc			; *** gab *** go into native mode
		xce
		rep	#$30		;***** return to 16-bit mode *****

		ldx	#$D100		;source of move
		ldy	#$1000		;destination of move
		lda	#$300-1		;move $300 bytes
		mvn	0,0		;move within bank 0

		longa	off
		longi	off
		sep	#$30		; *** gab *** 8 bit mode

		lda	|lcbank1	; R/W enable LCb1
		lda	|lcbank1

		ldy	#1
		lda	($40),y		;get quit param
		cmp	#$ee		;is it this?
		bne	jjjj		;no it's not, do the move, like always
		jmp	>P8quit		;yes it is, go to pquit

jjjj
		longa	off
		longi	off
		sec
		xce			;***** begin emulation mode *****

	if (*-patch_begin) = max_size-1 then
		nop			;dummy byte to let execution fall through
	elseif (*-patch_begin) < max_size then
		bra	bra_target	;must jump around left-over garbage
	else
		; just let the code fall into the original code
	endif
		
patch_size	equ	*-patch_begin	;size of this patch

  if patch_size>max_size then
    aerror &concat('P8 Quit patch too long by $', &i2s(patch_size-max_size,-4,1), ' bytes!')
  endif


		EXPORT	setup_P8_end
setup_P8_end

		ENDP


		eject

; The functionality of this segment has been placed in an alternate dispatcher
; segment that is copied to bank 2 of the language card by the P8 setup routine
; within P8 itself.  This copy is here so that we can copy it down to bank
; 0 and use it when the normal quit routine has been overwritten by a user-
; installed Quit routine (such as ProSel).
;
; The alternate dispatcher code resides at $1010 in memory after a P8 quit call.
; The first 14 bytes of $1000 area of memory is reserved for the patch that forces
; the quit call to jump to P8Quit, with the bytes at $100E and $100F reserved for
; GQuit's ID bytes (currently 'GQ').
;===============================================================================
; load_app
;
; Entry is in 16-bit native mode.
; Exit is in emulation mode.
; Data bank register is set to bank $00 on entry and exit.
; Direct register is set to $0000 on entry and exit.
; Stack pointer is set to $01fb on entry and exit.
;
; Inputs:       Acc = value of e1_OS_Switch
;
; Outputs:      none
;
; Notes:        This code is moved to $00/1010 and executed there.
;
; Loads and executes a ProDOS 8 application.
;===============================================================================

load_app	PROC	tempOrg $1010
		DataChk	Off
		CodeChk	Off

		EXPORT	load_app_begin
load_app_begin

; Go into emulation mode to load and run ProDOS 8 application.

		longa	off
		longi	off
		sec
		xce			;***** begin emulation mode *****

		tax			; Are we switching from P16 to P8?
		beq	load_it		; no

; We are switching from P16 to P8, so we must pass prefix 0 from P16 to
; the P8 prefix.

setpfx_call	jsr	|ProDOS8
		DC.B	p8_setpfx_num	;command number
		DC.W	p8_setpfx_list	;parameter list
		bcc	setpfx_ok
		jsr	p8error2	; handle error.
		bra	setpfx_call	; try again.
setpfx_ok

; Now, load in the application beginning at $2000.

load_it

; Open the application file.

open_call	jsr	|ProDOS8
		DC.B	p8_open_num
		DC.W	p8_open_list
		bcc	open_ok
		jsr	p8error		; handle error.
		bra	open_call	; try again.
open_ok

; Do a GetEOF call so we know how many bytes to read.

eof_call	jsr	|ProDOS8
		DC.B	p8_eof_num
		DC.W	p8_eof_list
		bcc	eof_ok
		jsr	p8error		; handle error.
		bra	eof_call	; try again.
eof_ok

; Get the size of the file and store in the Read parameter list.

		lda	|p8_eof
		sta	|p8_read_count
		lda	|p8_eof+1
		sta	|p8_read_count+1

; Read in the application.

read_call	jsr	|ProDOS8
		DC.B	p8_read_num
		DC.W	p8_read_list
		bcc	read_ok
		jsr	p8error		; handle error.
		bra	read_call	; try again.
read_ok

; Close the application file.

close_call	jsr	|ProDOS8
		DC.B	p8_close_num
		DC.W	p8_close_list
		bcc	close_ok
		jsr	p8error		; handle error.
		bra	close_call	; try again.
close_ok

;*** added 23-Oct-92 DAL -- If UNIT ($43) is still zero, make it something else,
;***   because zero is dangerous (if fed to ON_LINE, for example, it will return
;***   much more data than expected).  This should only be zero in the somewhat
;***   strange case that you network-booted into GS/OS, and then switched to P8
;***   but have so many devices online that your boot volume isn't in DEVLST.
;		lda	$bf30
;		bne	@okay
;		lda	#$50
;		sta	$bf30
;@okay
;*** end 22-Oct-92

; Now, execute the application.

		lda	|romin		; Enable ROM.
		jmp	$2000		; Execute the application.

;-------------------------------------------------------------------------------

p8error
		ldy	|lcbank1	; Enable LCb1 for error routines
		ldy	|lcbank1

		clc
		xce			;***** begin native mode *****
		rep	#$30		;***** begin 16-bit mode *****

		jsl	p8_mount_vol
		bcc	ret_pressed
		jmp	>p8_fatal_err

p8error2
		ldy	|lcbank1	; Enable LCb1 for error routines
		ldy	|lcbank1

		clc
		xce			;***** begin native mode *****
		rep	#$30		;***** begin 16-bit mode *****

		jsl	p8_prefix_err
		bcc	ret_pressed
		jmp	>p8_fatal_err

ret_pressed
		sec
		xce			;***** return to emulation mode *****
		rts


;-------------------------------------------------------------------------------
; ProDOS 8 parameter lists
;-------------------------------------------------------------------------------

p8_setpfx_list				; Set prefix parameter list.
		DC.B	1		; Number of parameters is 1.
		DC.W	$200		; Address of where prefix is.

p8_open_list
		DC.B	3		; Parameter count is 3.
		DC.W	$280		; Pathname is at $280.
		DC.W	$1c00		; I/O buffer location.
		DS.B	1		; Reference number

p8_eof_list
		DC.B	2		; Number of parameters is 2.
		DC.B	1		; Reference number is 1 (Only open file).
p8_eof		DS.B	3		; 3 byte EOF value.

p8_read_list
		DC.B	4		; Number of parameters is 4.
		DC.B	1		; Reference number is 1.
		DC.W	$2000		; Read into $2000. (Bank 0 of course)
p8_read_count	DS.B	2		; Number of bytes to read.
		DS.B	2		; Transfer count.

p8_close_list
		DC.B	1		; Number of parameters is 1.
		DC.B	1		; Close reference number is 1.

		EXPORT	load_app_end
load_app_end

		DataChk	On
		CodeChk	On
		ENDP



		eject
;===============================================================================
; launch_p16app
;
; Entry is in 16-bit native mode.
; Exit is in 8-bit native mode.
;
; Data bank register is set to bank $E1 on entry.
; Direct register is set to GS/OS direct page at $00BD00 on entry from p16quit.
; Direct register is set to $000000 on entry from p8quit.
; Stack pointer is set to GQuit's stack on entry from p16quit.
; Stack pointer is set to $01xx on entry from p8quit.
;
; Data bank register is set to bank $E1 on exit.
; Direct register is set to application's direct page on exit.
; Stack pointer is set to application's stack on exit.
;
; Attempt to launch a P16 application.
;===============================================================================

launch_p16app	PROC
		DataChk	off
		Import	gsos_nonfatal2

		longa	on
		longi	on

		lda	|e1_current_os	;Check to see which OS is running.
		bmi	its_P8		;It's ProDOS 8.
		jmp	its_gsos	;It's GS/OS.

;-------------------------------------------------------------------------------

its_p8

		lda	|e1_no_storage	; do we have GS/OS storage areas?
		beq	storage_ok	; yes - so continue
		jmp	>restart_system	; call SCM to restart the system
storage_ok

*** NOTE THAT A = $0000 HERE, EVEN IN 6.0 (4-Jun-92 DAL)

; Let everybody know that P8 is going away before it actually goes away

		jsl	>os_p8_switch	; A = $0000 for leaving P8

; Indicate that we are switching operating systems.

		inc	|e1_os_switch

; Set OS_Kind to $ff to indicate that we are switching operating systems
; and that interrupt tasks should not make OS calls

		longa	off
		longi	off
		sep	#$30		;***** begin 8-bit mode *****

		lda	#$ff
		sta	|OS_Kind

		rep	#$30		;***** return to 16-bit mode *****
		longa	on
		longi	on

; Dispose of ProDOS 8's reserved memory segments

		jsl	dispose_os_mem
		bcc	dispose_ok
local_p8_fatal	jmp	p8_fatal_err2	;fatal error - no return
dispose_ok

; Allocate GS/OS's reserved memory segments

		jsl	alloc_gsos_mem
		bcs	local_p8_fatal

; Move the B0 code to bank 0 where it must run from

		ldx	#<b0e1_obj_pstn	; source address of code to relocate
		ldy	#b0_obj_pstn	; dest address
		lda	#b0_obj_size-1	; # of bytes to move - 1.
		phb			; save data bank reg
		mvn	$E10000,0	; move from bank $E1 to bank $00
		plb			; restore data bank reg

; Clear the screen and put up the "One moment please..." message  (this is B0 code)

		jsl	display_msg

; Copy GS/OS back into its assigned locations  (this is B0 code)

		jsl	copy_gsos_segs

; Now set the stack to GQuit's own stack.
; But before we do, we must check what the stack is currently set to.
; If it's Page 1 we must set $010100 to the value in S.

		tsc			; get current stack
		and	#$FF00		; look at high byte
		cmp	#$0100		; is it 1?
		bne	set_new_stack	; no, so never mind
		tsc			; get it again
		sep	#$30		; go into 8 bit mode
		sta	>mnemstkptr	; store it
		rep	#$30		; back to 16 bit mode
set_new_stack	lda	#gquit_stack_top ; set stack to GQuit's own stack
		tcs

; Make sure our error messages are not suppressed

		lda	>sys_prefs	;get preferences flag
		and	#$DFFF		;clear bit 13
		sta	>sys_prefs

; Dispose of GS/OS storage areas

		jsl	dispose_storage
		bcs	local_gs_fatal

; Now, let's re-install the loader as a tool

		pea	0		; indicate this is a System toolset
		pea	Loader_TSN	; loader's tool set #
		pea	#^Loader_Entry
		pea	#<Loader_Entry
		_setTSPtr

		pea	1		; code for switch from P8 to GS/OS
		ldx	#$1F11		; internal function number for SwitchHandler
		jsl	$E10000

; Now restart GS.OS.DEV

		lda	|e1_dev_address+2 ; get hi word of entry address
		xba			; swap bytes
		sta	>dev_adr+2	; and store below
		lda	|e1_dev_address	; get lo word of entry address
		sta	>dev_adr+1	; and store below
dev_adr		jsl	dev_adr		;*** Modified above to JSL to GS.OS.DEV

; Set direct reg to GS/OS direct page for calls to SCM and device dispatcher

		pea	direct_base	;setup gsos direct page
		pld

; Initialize SCM

		jsl	>init_scm
		bcc	scm_ok
local_gs_fatal	jmp	gsos_fatal_err	;fatal error - no return
scm_ok

; Initialize the device dispatcher

		stz	<drvr_dev_num	;device number = dispatcher
		stz	<drvr_call_num	;call number = boot init
		lda	|e1_mslot	;get boot slot #
		and	#$0007		;mask off bits which must be 0
		sta	<boot_slot	;boot slot #
		lda	|e1_drvr_address ;load address of custom boot driver if
		sta	<drvr_dib_ptr	;one was requested, else nil
		lda	|e1_drvr_address+2
		sta	<drvr_dib_ptr+2
		lda	|e1_drvr_id	;user ID of custom boot driver if one
		sta	<boot_user_id	;was requested, else 0
		jsl	>dev_dispatcher	;initialize the device dispatcher
		bcs	local_gs_fatal

; Indicate that GS/OS is now up and running so that the report_fatal routine can
; attempt to shutdown GS/OS if a fatal error occurs.

		inc	|e1_gsos_ok

; Update e1_current_os since we have now switched to GS/OS.

		stz	|e1_current_os

; Restore the slot 3 rom status (internal vs external) since the ProDOS 8
; loader enabled the internal slot 3 rom.

		sep	#$30		;***** begin 8-bit mode *****
		lda	|e1_c3_status	;get the slot 3 rom status
		bpl	no_change	;internal rom was in so no change
		sta	>setslotc3rom	;map in the external slot rom
no_change
		rep	#$30		;***** return to 16-bit mode *****

; Tell the Slot Arbiter to restore the slot 3 screenholes since the ProDOS 8 loader
; enabled the internal slot 3 rom.  Do NOT check for errors on this call.

		ldx	|e1_besc	;get the "bit encoded slot configuration"
		lda	#$0300		;slot 3
		jsl	>dyn_slot_arbiter

; Set prefix 0 to whatever P8's prefix was.

		_setprefix e1_setpfx0_parms
		bcs	local_gs_fatal

; Set the library prefix to its default: '/*/system/libs'.
; This only gets done when the last OS was ProDOS 8, since it might
; have been changed to a different (and valid) value in GS/OS land.

		_setprefix1 e1_setpfx2_parms1
bcs_gs_fatal	bcs	local_gs_fatal

; Notify the OS event queue that we have just switched to GS/OS.
; The Direct register must be set to GS/OS direct page for the call to SCM.

		pha			; push 3 words of garbage
		pha
		pha
		lda	#switch_to_gsos	;lo word of the event code
		ldx	#>switch_to_gsos ;hi word of the event code
		jsl	>os_event	;call SCM

; Check to see if we have the ID of the program we are launching.
; If not, we have to convert the pathname string to class 1.

		lda	|e1_open_id	; do we have an ID?
		bne	have_id		; yes

; We are currently using class 0 strings so convert them to class 1 strings...

; First, check to see if we're relaunching the start program.
; If so, change e1_path_ptr to point to the start program's class 1 pathname.

		lda	|e1_start_flag	;are we relaunching the start prog?
		beq	not_start	;no

		lda	#e1_start_prog1	;yes - so get pointer to class 1 string
		sta	|e1_path_ptr
		lda	#e1_start_prog1>>16
		sta	|e1_path_ptr+2
		bra	convert_done
not_start

; The Quit call specified the pathname of a program to link to.
; Convert the class 0 string to a class 1 string.

		ldx	|e1_path_ptr+2	;push ptr to source string (class 0)
		phx
		ldy	|e1_path_ptr
		phy
		phx			;push ptr to dest string (class 1)
		phy
		jsl	>cvt_0to1	;convert class 0 string to class 1

; Now, convert the class 0 separators (/) to class 1 separators (:).

		ldy	|e1_path_ptr+2	;get pointer to string in X and Y
		ldx	|e1_path_ptr
		jsl	slash_2_colon	;replace slashes with colons

convert_done

have_id

; fall into next section

;-------------------------------------------------------------------------------

its_gsos
		Import	force_get_info

; Set OS_Kind to $01 to indicate that GS/OS is running

		longa	off
		longi	off
		sep	#$30		;***** begin 8-bit mode *****

		lda	#$01
		sta	|OS_Kind

		rep	#$30		;***** return to 16-bit mode *****
		longa	on
		longi	on

; Make sure cache will be purged if system runs out of memory

		jsl	>cache_in_queue

; Make sure that the .CONSOLE device exists before launching the application

		lda	#e1_cons_path		;set up the pathname ptr parameter
		sta	|e1_gdn_ptr		;for the call
		lda	#e1_cons_path>>16
		sta	|e1_gdn_ptr+2
		_getdevnumber1 e1_gdn_parms1	;class 1 call
		bcs	bcs_gs_fatal

; Set prefixes 1 and 9 to the application's pathname.
; Set prefix 33 to the application's USER folder.
; Set prefixes 10,11,12 to '.CONSOLE'.

try_again
		jsr	set_prefixes
		bcs	bcs_gs_fatal

; If we have an ID at this point, it was pulled off the ID stack so restart
; the application.

		lda	|e1_open_id	; do we have an ID?
		bne	restart_it	; yes - so do a restart call

; We have a pathname but not an ID so check to see if the application has been
; previously run. If it has, then maybe we can use the ID for a restart call.

		pha			; Push space for output user ID.
		lda	|e1_path_ptr+2	; push ptr to pathname
		pha
		lda	|e1_path_ptr
		pha
		_getuserid2
		pla			; Pull off output user ID
		bcs	unknown_app	; loader has no record of this app
		sta	|e1_open_id	; save ID for the Restart call

; We found an ID for the app so check to see if it's currently on the ID stack.
; If so, force an InitialLoad since we don't want to relaunch an app which
; is sitting on the ID stack.

		jsr	check_id_stack	; is the ID on the stack?
		bcs	init_load	; yes - so force an InitialLoad

		jsr	force_get_info	; get the file info
		lda	|e1_aux_type	; check the aux type
		and	#$FF02		; check for signature byte and desktop bit
		cmp	#$DB02
		bne	restart_it	; not a desktop app, leave e1_open_id as-is
		lda	#$8000		; else set bit 15
		tsb	|e1_open_id

; Restart the application from memory.

restart_it
		pha			; Push 10 bytes for result space
		pha			; for Restart call.
		pha
		pha
		pha
		lda	|e1_open_id
		asl	a		; clear our SHR bit
		lsr	a
		pha			; Push user ID on stack.
		_restart		; Restart the Application.
		bra	get_outputs	; Outputs are the same as for InitLoad.


; The loader has no record of the app so check its partial path length.
; If the length is > 64 characters then check the auxtype of the app
; to see if it's "GS/OS aware" (ie - uses prefixes 8 and above).
; If not, put up a warning message since the app may not be able to run
; correctly since prefixes 0-7 are limited to 64 characters.

unknown_app
		lda	|e1_path_len	;get length of app's partial path
		cmp	#p8_max_length+1 ;is the string > 64 chars?
		bcc	path_len_ok	;no - so it's OK
		lda	|e1_aux_type	;yes - so get the app's auxtype
		and	#gsos_aware_mask ;mask off certain bits
		cmp	#gsos_aware	;is the app "GS/OS aware"?
		beq	path_len_ok	;yes - so no need for a warning

		lda	|e1_quit_flags	;was previous app put on ID stack?
		bpl	no_pop_back	;no - so put up different message

		ldx	#aware_err1	;message #
		jsr	gsos_nonfatal	;put up non-fatal error message
		ror	a		;2='Cancel' selected, 1='Continue' selected
		bcs	path_len_ok
rtn_to_previous

; before returning to the launching app, clear the fake menu bar on the SHR screen
; but only if the SHR screen is currently being displayed

		lda	newvideo	;read NewVideo byte
		and	#$0080		;SHR displayed?
		beq	@no_blast	;no, don't touch screen

		lda	#$FFFF		;clear with white pixels
		ldx	#11*160		;11 scan lines * 160 bytes per scan line
@1
		dex
		dex
		sta	>$E120A0,x	;leave black line at top and bottom of menu bar
		bne	@1		;loop until done

@no_blast
		jsr	get_next_prog	;get ID of next application to launch
		jmp	try_again	;and relaunch it

no_pop_back				;can't relaunch previous app
		ldx	#aware_err2	;message #
		jsr	gsos_nonfatal	;put up non-fatal error message

path_len_ok				;path length is OK or "Continue" selected

; Load the application from disk.
; First, try loading the app in non-special memory.  If that fails, then
; try loading the app in special memory.

init_load
		lda	#1		; initialize flag to indicate that special
		sta	|e1_word_temp	; memory cannot be used
		pha			; push 10 bytes for result space
		pha			; for Initial Load call
		pha
		pha
		pha
retry_load	pea	0		; assume we need to get a new User ID
		lda	|e1_path_ptr+2	; push ptr to pathname
		pha
		lda	|e1_path_ptr
		pha
		lda	|e1_word_temp
		pha			; indicate whether special memory can be used
		pea	1		; indicate that pathname is class 1
		_initialload2		; load the application
		bcc	get_outputs	; the app was loaded without error
		dec	|e1_word_temp	; got an error - was special mem allowed?
		beq	retry_load	; no-so retry the load but allow special mem

; Get the outputs from the Restart call or the InitialLoad call

get_outputs
		tax			; save error code
		pla			; Pull user id
		sta	|e1_user_id
		pla			; Pull lo word of program start address
		sta	>goadr
		pla			; Pull hi word of program start address
		sta	>goadr+2
		pla			; Pull zero page buffer address
		sta	|e1_zp_start
		pla			; Pull zero page buffer size
		sta	|e1_zp_size
		bcc	ok
bad_adr		txa			; restore error code
		jsr	gsos_nonfatal2	; display dialog
		jmp	rtn_to_previous
ok
		ldx	#not_system_file ; error code in case goadr is 0
;;; 		lda	>goadr		; is the program start address 0?
;;;		ora	>goadr+2
*** optimized 23-Oct-92 DAL -- valid address is never in page zero
		lda	>goadr+1
*** end 23-Oct-92
		beq	bad_adr		; yes - so report error

; If we got here from a P16 Quit call which specified a pathname, we must now
; deallocate the space we obtained for the copy of the pathname
; since we are done using it.

		jsl	dispose_path
		bcc	path_disposed
local_gs_fatal2	jmp	gsos_fatal_err	;fatal error - no return
path_disposed

; Tell SCM to not put up the 'mount volume' dialog automatically
		lda	>sys_prefs	;get preferences flag
		asl	a		;clear bit 15
		lsr	a
		sta	>sys_prefs

; Now, initialize the text tools and ignore all errors

		jsl	Init_text_tools

; Call the first routine in the auto linked chain of routines that
; need to know when the OS is going to be changed.

		jsl	>OS_Switch	; Notify the routines.

; Now setup the user's direct register and stack pointer

		jsl	alloc_user_zp
		bcs	local_gs_fatal2
		tcs			; set user's stack pointer

; make sure the text screen is displayed for those apps that are not
; "Desktop Aware"

		pea	$0000		; space for result
		ldx	#$0604		; QDStatus
		jsl	$E10000
		pla			; retrieve result
		bne	@show_shr	; QD is active, just leave the screen as-is

		lda	|e1_open_id	; do we need to turn off the SHR screen?
		bmi	@show_shr	; no, this app is a desktop app
		bne	@show_text	; yes, doesn't say it supports desktop
@check_aux
		lda	|e1_aux_type	; check the aux type of the file
		and	#$FF02		; check signature byte and destop app bit
		cmp	#$DB02		; is it a desktop app?
		beq	@show_shr	; yup, leave SHR enabled
@show_text
		sep	#$20		; 8-bit accumulator
		longa	off
		lda	>$E0C029	; get the newVideo byte
		and	#%01111111	; clear the SHR bit
		sta	>$E0C029	; then turn the text screen on
		rep	#$20		; back to 16-bit accumulator
		longa	on
@show_shr

; Decrement the system busy flag

		jsl	>decbusyflg

; Now, move the code which will launch the app onto the application's stack

		longa	off
		longi	off
		sep	#$30		;***** begin 8-bit mode *****

		ldx	#go_end-go	; # of bytes to move to user's stack.
loop		lda	>go-1,x		; Get the byte to move.
		pha			; Push it onto app's stack.
		dex			; Next byte of code to move.
		bne	loop

		longa	on
		longi	on
		rep	#$30		;***** return to 16-bit mode *****

; The stack pointer now points just below the code we moved onto the stack.
; We must disable interrupts since we are going to mess with the stack pointer
; and if an interrupt occurs, the code we just moved onto the stack will be
; trashed. Interrupts will be re-enabled by the RTI.

		sei

		tsc			; Put S in A for use as part of JMP
		inc	a		; Adjust A to point to code on stack
		sta	>stack_adr	; Store lo word of code addr after JMP
		inc	a		; Now set S to point to 1 below the RTI stuff
		inc	a		; so when RTI is executed, we will jmp off to
		inc	a		; the application in 16 bit mode/interrupts on
		tcs			; Stack now ready for the RTI.

		lda	|e1_user_id	; User gets his id from A reg.
		sta	|e1_current_id	; Update e1_current_id so can later shutdown app.
		ldx	#$0000		; Set X and Y to zero to denote the application
		txy			; is not being run from a shell program

; Jump to the code on the stack which will then do an RTI to launch the app

		longa	off
		longi	off
		sep	#$30		; Must be 8 bit to jmp to code on stack!

		DC.B	$5c		; Jump long opcode to jump to stack code
stack_adr	DS.B	2		; Low 2 bytes of the stack code's entry address
		DC.B	0		; High byte of address is zero for stack.

;-------------------------------------------------------------------------------
; code which is moved onto the stack

go
		DC.B	$cd,$81,$c0	; cmp $c081 to enable the ROM
		DC.B	$40		; RTI opcode to jmp to the application.
		DC.B	$00		; Will be value of P for application.
goadr		DS.B	3		; Will contain starting address of app
go_end
		DS.B	1		; Space for unused fourth byte of above adr.

		DataChk	on
		ENDP



		eject
;===============================================================================
; set_prefixes
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is set to bank $E1 on entry and exit.
; Direct register is set to GS/OS direct page at $00BD00 on entry and exit.
; Stack pointer is set to GQuit's stack on entry and exit.
;
; Inputs:       none
;
; Outputs:      c - 0 if no error ; 1 if error.
;               A - error code if c=1
;               e1_path_len - length of (pathname-filename)
;
; Notes:	The parameter block for the DInfo call must not be in our $E0 or
;		$E1 language card space since the Device Dispatcher will switch in
;		bank 1 of the language cards thereby switching out the parameter
;		block.  So, by setting the Direct register to the bottom of
;		GQuit's stack space we can use the area starting at $00/BB00 for
;		the parameter block and the device name buffer as well as other
;		temporary variables.
;
; This routine sets prefixes 1 and 9 to the application's partial pathname (the
; full pathname to the application but with the filename removed).  If the
; partial pathname is longer than 64 characters, then prefix 1 is set to
; a null string.  If the AppleShare FST has not been loaded into the system, then
; prefix 33 (@) is also set to the app's partial pathname.  If the AppleShare FST
; has been loaded into the system, then this routine will check to see if the
; application being launched resides on an AppleShare volume.  If so, the
; routine will then ask the AppleShare FST for the correct pathname to use when
; setting prefix 33.  Otherwise, prefix 33 will be set to the partial pathname.
; If the 'skip_std' bit of the Quit Flags is clear then prefixes 10, 11 and 12
; will be set to '.CONSOLE'.  If the 'skip_std' bit is set to 1,
; then prefixes 10, 11 and 12 will not be changed.
;===============================================================================

set_prefixes	PROC
		DataChk	off

; Direct page equates

path_ptr	equ	0		;ptr to application's pathname
fullpath_len	equ	4		;length of application's full pathname
partialpath_len	equ	6		;length of application's partial pathname
					;DInfo - class 1 parameter list
dinfo_pcount	equ	8		  ;parameter count
dinfo_dnum	equ	10		  ;device number
dinfo_ptr	equ	12		  ;ptr to output buffer for device name
					;class 1 output buffer for device name
header		equ	16		  ;header (2 bytes)
buffer		equ	18		  ;buffer (33 bytes)

; Address equates

dinfo_parms1	equ	gquit_stack_end+dinfo_pcount ;address of DInfo parameter list
header_adr	equ	gquit_stack_end+header	;address of output buffer header
buffer_adr	equ	gquit_stack_end+buffer	;address of output buffer

; Misc. equates

header_value	equ	35		;size of output buffer + header


		longa	on
		longi	on

; Set the direct register to the bottom of GQuit's stack space

		phd			;save original direct register
		lda	#gquit_stack_end
		tcd

; Check the 'skip_std' bit of the Quit Flags.
; If it's clear, then set prefixes 10, 11 and 12 to '.CONSOLE'.
; If it's set, then don't set prefixes 10, 11 and 12.

		lda	|e1_quit_flags
		and	#skip_std_bit
		bne	skip_std_prefixes

		lda	#e1_cons_path
		sta	|e1_setpfx_ptr	;set the ptr parameter for the SetPrefix call
		lda	#e1_cons_path>>16
		sta	|e1_setpfx_ptr+2

		ldx	#3			;we have to set 3 prefixes
		lda	#10
		sta	|e1_setpfx_num		;prefix # to set

setpfx_loop
;;;		_setprefix1 e1_setpfx_parms1 	;class 1 call
		jsr	SetPrefix1_e1_setpfx_parms1	;opt 23-Oct-92 DAL
		bcs	bcs_done2
		inc	|e1_setpfx_num
		dex
		bne	setpfx_loop

skip_std_prefixes

; Copy the ptr to the application's full pathname onto direct page.
; If we only have the app's ID, get its pathname from the loader.

		ldx	|e1_path_ptr	; put ptr to app's pathname in X,Y
		ldy	|e1_path_ptr+2
		lda	|e1_open_id	; if we have an ID, we don't know the
		beq	got_pathname	; app's pathname so get it from the loader

		pha			; push space for output pathname pointer
		pha
		asl	a		; clear our SHR bit
		lsr	a
		pha			; push app's ID
		pea	1		; input file number
		_lgetpathname2		; get the pathname from the loader
		plx			; put ptr to app's pathname in X,Y
		ply
		bcs	bcs_done2
got_pathname
		stx	<path_ptr	; store pathname ptr on direct page
		sty	<path_ptr+2

; Strip off the filename so that we are left with a partial pathname.
; Also, save the application's filename in e1_app_filename for SCM to use.

		lda	[<path_ptr]	; Get length of app's full pathname
		sta	<fullpath_len	; and save so we can restore it later
		tay			; put in Y for use as index
		iny
*** G. Branche
; Check for a trailing separator first.  If found, simply decrement the
; length so that it's not a part of the pathname any longer

		lda	[<path_ptr],y	; get last character in pathname
		and	#$00FF
		cmp	#':'		; trailing colon?
		bne	@no_trailer	; no...
		dey			; else decrement length to remove it
		tya
		dec	a		; one more time (for iny above)
		sta	[<path_ptr]	; reset the length
		sta	<fullpath_len
@no_trailer
*** end change
		ldx	#0		; counter for filename length

		longa	off
		longi	off
		sep	#$20		;***** begin 8-bit m mode *****

char_loop	lda	[<path_ptr],y	; Now strip off the file name to yield
		dey			; the partial path to the application
		inx			; Determine filename length at same time
		cmp	#':'		; Class 1 string so separator is colon
		bne	char_loop	; Check next character
		dey			; Subtract 1 for the separator
		dex			; ditto

		phy			;save partial pathname length on stack
		stx	|e1_app_filename ;store length of filename

		ldy	<fullpath_len	;get back length of full pathname
		iny
name_loop	lda	[<path_ptr],y	;copy filename into e1_app_filename
		sta	|e1_app_filename,x ;which is a class 0 string
		dey
		dex
		bne	name_loop

		longa	on
		longi	on
		rep	#$20		;***** return to 16-bit m mode *****

		pla			; retrieve partial pathname length
		sta	[<path_ptr]	; Update the length word.

; Set prefix 9 (the application prefix) to the application's partial pathname.

		lda	#9
		sta	|e1_setpfx_num
		lda	<path_ptr	; Get pathname ptr and store into the
		sta	|e1_setpfx_ptr	; SetPrefix parameter list
		lda	<path_ptr+2
		sta	|e1_setpfx_ptr+2

;;;		_setprefix1 e1_setpfx_parms1 ;class 1 call
		jsr	SetPrefix1_e1_setpfx_parms1	;opt 23-Oct-92 DAL
bcs_done2	bcs	bcs_done

; Set prefix 1 (the application prefix) to the application's partial pathname.
; If the partial pathname is longer than 64 chars then set prefix 1 to a null string.
; Save the length of the partial path for later.

		lda	#1
		sta	|e1_setpfx_num
		lda	[<path_ptr]	;get length word
		sta	|e1_path_len	;and save for later
		cmp	#p8_max_length+1 ;is the string > 64 chars?
		bcc	len_ok		;no - so OK to set prefix 1
		lda	#e1_null_str	;get ptr to null string and store in
		sta	|e1_setpfx_ptr	;the SetPrefix parameter list
		lda	#e1_null_str>>16
		sta	|e1_setpfx_ptr+2
len_ok
;;;		_setprefix1 e1_setpfx_parms1 ;class 1 call
		jsr	SetPrefix1_e1_setpfx_parms1	;opt 23-Oct-92 DAL
 		bcs	bcs_done

; Set prefix 33 (the USER folder prefix)...

; First, check to see if the AppleShare FST has been loaded into the system

		lda	|e1_appleshare	;has the AppleShare FST been loaded?
		bne	got_ashare	;yes
		jmp	set_to_app	;no - so set 33 to the app pathname
got_ashare

; The AppleShare FST has been loaded into the system so we need to determine if
; the application being launched resides on an AppleShare volume.

; Adjust the length word of the application's pathname to only include the
; volume name so we can make a GetDevNumber call

		lda	[<path_ptr]	;get the length word of the partial path
		sta	<partialpath_len ;and save

		ldy	#2		;skip length word and beginning separator
loop		iny
		lda	[<path_ptr],y	;get next char
		and	#$00ff		;mask off hi byte
		cmp	#':'		;is it a class 1 separator?
		bne	loop		;no
		dey			;adjust length count to not include
		dey			;the separator
		tya
		sta	[<path_ptr]	;and store length of volume name

; Make a GetDevNumber call to translate the volume name into a device number

		lda	<path_ptr	;store the volume name ptr into the
		sta	|e1_gdn_ptr	;GetDevNumber parameter list
		lda	<path_ptr+2
		sta	|e1_gdn_ptr+2
		_getdevnumber1 e1_gdn_parms1	;class 1 call
bcs_done	bcs	done

; Restore the length word of the application's partial pathname

		lda	<partialpath_len
		sta	[<path_ptr]

; Make a DInfo call to translate the device number into a device name

		lda	#2
		sta	<dinfo_pcount	;set the pcount parameter for the DInfo call
		lda	|e1_gdn_dnum
		sta	<dinfo_dnum 	;set the device # param for the Dinfo call
		lda	#header_adr
		sta	<dinfo_ptr	;set the ptr parameter for the Dinfo call
		stz	<dinfo_ptr+2
		lda	#header_value	;initialize the size header for the output
		sta	<header		;buffer (max devname length is 31 chars)
		_dinfo1	dinfo_parms1	;class 1 call
		bcs	done

; Now make a Volume call to determine which file system resides on the volume

		lda	#buffer_adr
		sta	|e1_volume_ptr	;set the ptr parameter for the Volume call
		_volume1 e1_volume_parms1	;class 1 call
		bcc	ok
		cmp	#buff_too_small	;did we get a "buffer too small" error?
		beq	ok		;yes - so ignore it
		sec			;no - so indicate a real error
		bra	done
ok

; Check if the file system on the volume is AppleShare.

		lda	|e1_volume_id	;get the file system ID
		cmp	#appleshare_ID	;is it AppleShare?
		bne	set_to_app	;no - so set 33 to the app pathname

; The application is being launched from an AppleShare volume so ask the
; AppleShare FST for the correct path to use when setting prefix 33.
; If we get an error back, set prefix 33 to the application's partial pathname.

		_fstspecific1 e1_fst_parms1	;class 1 call
		bcs	set_to_app		;non-fatal error
		lda	|e1_fst_ptr		;lo word of pathname ptr
		ldx	|e1_fst_ptr+2		;hi word of pathname ptr
		bra	set_it

; Set prefix 33 to the application's partial pathname.

set_to_app
		lda	<path_ptr	;lo word of pathname ptr
		ldx	<path_ptr+2	;hi word of pathname ptr

; Set prefix 33

set_it
		phd			;save direct register
		pea	direct_base	;setup gsos direct page for call to SCM
		pld
		jsl	set_prefix_33	;set prefix 33
		pld			;restore direct register
		bcs	done

; Restore the original length word of the application's pathname

		lda	<fullpath_len
		sta	[<path_ptr]

done		pld			;restore original direct register
		rts

*** Subrootinized 23-Oct-92 DAL (3 calls; replaces 30 bytes w/ 20, saving 10)
SetPrefix1_e1_setpfx_parms1
		_SetPrefix1 e1_setpfx_parms1	;class 1 call
		rts
*** end of subroutine

		DataChk	on
		ENDP

		eject
;==============================================================================
; get_info_sub
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is set to bank $E1 on entry and exit.
;
; Inputs:       e1_path_ptr - points to the pathname of the file
;
; Outputs:      e1_open_id   - id of next program to run  (P16 programs only)
;               e1_load_type - filetype of next program to run
;               e1_aux_type - auxtype of next program to run
;               c=0 if no error, else c=1
;               A - error code if c=1
;
; This routine will return information about a file.
;==============================================================================

get_info_sub	PROC
		DataChk	off

		longa	on
		longi	on

		bit	|e1_current_os	; Which operating system is running?
		bmi	Get_Info_8	; It's ProDOS 8
		jmp	Get_Info_16	; It's GS/OS


********************************************************************************
*               Current operating system is ProDOS 8
********************************************************************************

Get_Info_8
		Import	e1_fst_id

; Go to 8-bit mode

		sep	#$30		;***** begin 8-bit mode *****
		longa	off
		longi	off

; Save current data bank register and switch DBR to bank $00

		phb
		pea	$0000
		plb
		plb

; Save off enough space in bank $00 for the data structure and a pathname buffer

		ldx	#65+Get_Data_Size ;size of data structure + 65 bytes
save_loop	lda	|Bank0-1,X	;for pathname buffer

		sta	>e1_Bank0_Save-1,X
		dex
		bne	save_loop

; Now copy the data structure into bank $00

		ldx	#Get_Data_Size	;size of data structure
copy_loop	lda	>Get_Data-1,X
		sta	|Bank0-1,X
		dex
		bne	copy_loop

; Now move pathname into bank $00 for P8 calls

		rep	#$30		;***** begin 16-bit mode *****
		longa	on
		longi	on

		phd			;save current direct register
		lda	>e1_path_ptr+2	;push ptr to pathname on stack
		pha
		lda	>e1_path_ptr
		pha
		tsc
		tcd			;set direct register to point to stack

		sep	#$30		;***** begin 8-bit mode *****
		longa	off
		longi	off

		lda	[<1]		;get length byte of pathname
		tay
move_loop	lda	[<1],y
		sta	|P8_pathname,y	;move pathname into bank $00
		dey
		bpl	move_loop

		pla			;clean up stack
		pla
		pla
		pla
		pld			;restore direct register

; Make a ProDOS 8 GetFileInfo call

		lda	#p8_gfi_num
		sta	|P8_Call+5
		lda	#<Get_Info_Parm
		sta	|P8_Call+6
		lda	#Get_Info_Parm/$100
		sta	|P8_Call+7

		jsr	make_the_call
		bcs	p8_return

; Check the application's filetype

		lda	|Get_Info_Parm+4 ; Get the application's file type.
		jsr	check_type	; Make sure its a system program.
		bcs	p8_return

		cmp	#sys_ftype	; Is it a P8 application?
		beq	p8_app		; yes
		clc			; no - so indicate no error
		bra	p8_return

; It's a P8 application so we need to check the file size to make sure it will
; fit in bank $00 between $2000 and $beff.

p8_app

; Make a ProDOS 8 Open call

		lda	#p8_open_num
		sta	|P8_Call+5
		lda	#<Open_Parm
		sta	|P8_Call+6
		lda	#Open_Parm/$100
		sta	|P8_Call+7

		jsr	make_the_call
		bcs	p8_return

; Make a ProDOS 8 GetEOF call

		lda	#p8_eof_num
		sta	|P8_Call+5
		lda	#<Get_EOF_Parm
		sta	|P8_Call+6
		lda	#Get_EOF_Parm/$100
		sta	|P8_Call+7

		jsr	make_the_call
		bcs	p8_return

; Make a ProDOS 8 Close call

		lda	#p8_close_num
		sta	|P8_Call+5
		lda	#<Close_Parm
		sta	|P8_Call+6
		lda	#Close_Parm/$100
		sta	|P8_Call+7

		jsr	make_the_call
		bcs	p8_return

; Now check the file size.

		rep	#$30		;***** return to 16-bit mode *****
		longa	on
		longi	on

		ldx	#2
		lda	|Get_EOF_Parm,X
		cmp	#$9F00		;is the file too big?
		bcc	p8_return	;no
		lda	#out_of_mem	;yes - so indicate error

; Restore bank $00 space and return

p8_return
		sep	#$30		;***** begin 8-bit mode *****
		longa	off
		longi	off

		pha			;save error code if any
		php			;save carry info

		lda	#proDOSFSID	;assume ProDOS FST ID
		sta	>e1_fst_id	;(has to be for P8 calls)

		ldx	#65+Get_Data_Size
restore_loop	lda	>e1_Bank0_Save-1,X
		sta	|Bank0-1,X
		dex
		bne	restore_loop

		plp			;restore carry info
		pla			;restore error code
		plb			;restore DBR
		rep	#$30		;***** return to 16-bit mode *****
		rts			;c=0 if no error, else c=1


;-------------------------------------------------------------------------------

make_the_call
		jsl	p8_call
		beq	call_ok

		rep	#$30		;***** begin 16-bit mode *****
		jsl	p8_mount_vol
		sep	#$30		;***** return to 8-bit mode *****

		bcc	make_the_call	;mount window put up - return pressed
		rts			;esc pressed or window not put up

call_ok
		clc
		rts

;-------------------------------------------------------------------------------

; get_data structure

get_data				; This data structure must be moved
					; to bank $00 in order to call ProDOS 8.
		DC.B	$0A		; (Get_Info Parmameters)
		DC.W	P8_Pathname	;      |
		DS.B	15		;      |
		DC.B	$03		; (Open Parameters)
		DC.W	P8_Pathname	;      |
		DC.W	IO_Buf		;      |
		DS.B	1		;      |
		DC.B	$02,$01		; (Get_EOF Parameters)
		DS.B	3		;      |
		DC.B	$01,$00		; (Close Parameters)
		DC.B	$38		;SEC (P8_Call)
		DC.B	$FB		;XCE   |
		DC.B	$20,$00,$BF	;JSR $BF00
		DC.B	$00		;      |
		DC.B	$00,$00		;      |
		DC.B	$18		;CLC   |
		DC.B	$FB		;XCE   |
		DC.B	$6B		;RTL   |
get_data_size	equ	*-get_data	;  <---'

 		EXPORT	bank0_area_used:equ
bank0_area_used equ	get_data_size+65

; location equates

io_buf		equ	$002000		; for our I/O buffer
bank0		equ	$000200		; for our ProDOS 8 call area

; Offsets into get_data structure

get_info_parm	equ	bank0
open_parm	equ	get_info_parm+18
get_eof_parm	equ	open_parm+6
close_parm	equ	get_eof_parm+5
p8_call		equ	close_parm+2

p8_pathname	equ	bank0+get_data_size



********************************************************************************
*               Current operating system is GS/OS
********************************************************************************

Get_Info_16
		longa	on
		longi	on

; First check to see if the program we want to launch has been previously run.
; If so, then we know it's a P16 file.
; NOTE - the reason this call is made instead of just doing the GetFileInfo call
; is because GetFileInfo will spin the disk. So, if the ID exists, we save time.

		pha			; Push space for output user ID.
		lda	|e1_path_ptr+2	; Push pointer to the pathname and
		sta	|e1_gfi_ptr+2	; also store in e1_gfi_parms1 for later
		pha
		lda	|e1_path_ptr
		sta	|e1_gfi_ptr
		pha
		_getuserid2
		pla			; Pull off output user ID.
		bcs	no_id		; No ID
		lda	#s16_ftype	; Set load type to a P16 system file type.
		sta	|e1_load_type
		rts			; return with carry clear

; This entry point is used to force a GetFileInfo call on the file specified by e1_path_ptr.
; It's used to get the auxtype of a file that the loader knows about, but which GS/OS doesn't.
; By checking the auxtype, we can determine whether or not to leave the SHR screen enabled.

		entry	force_get_info
force_get_info
		lda	|e1_path_ptr+2	; set up pathname pointer in parameter block
		sta	|e1_gfi_ptr+2
		lda	|e1_path_ptr
		sta	|e1_gfi_ptr
		;fall into the following section

; The application has not been previously run, so now make a GetFileInfo call to
; determine the file type and to detect any possible errors that may occur if
; we try to load and execute the file.

no_id
		_GetFileInfo1 e1_gfi_parms1
		bcc	@no_err
		cmp	#buff_too_small	; option list buffer too small?
		bne	ret_cs		; no, must be a real error
@no_err
		lda	|e1_gfi_atype	; Get the auxtype of the file
		sta	|e1_aux_type	; and save for later

		lda	|e1_gfi_ftype	; Get the filetype of the file
		jsr	check_type	; Make sure it's a system file type
		bcs	ret_cs
		cmp	#sys_ftype	; is it a P8 application?
		bne	ret_cc		; no

; It's a ProDOS 8 application, so check the file size to be
; sure it will fit in bank $00 between $2000 and $BEFF.

		lda	|e1_gfi_eof+2	; get hi word of the eof
		bne	too_big
		lda	|e1_gfi_eof	; get lo word of the eof
		cmp	#$9F00
		bcc	ret_cc
too_big		lda	#out_of_mem	; yes - so indicate error
ret_cs		sec			; indicate error
		rts

ret_cc		clc			; indicate no error
		rts



;-------------------------------------------------------------------------------
; check_type
;
; Entry is in 8-bit or 16-bit native mode.
; Exit is in same mode as entry.
; Data bank register is unknown at entry.
;
; Checks file type to see if it's type $b3, $b5, or $ff. If not, reports an
; error.
;
; Inputs:       A = file type to check
;
; Outputs:      A = input file type if no error, else error code
;               e1_load_type = set to input value of A
;               c=0 if no error, else c=1
;-------------------------------------------------------------------------------

check_type

		php			; Save processor status.

		rep	#$30		;***** begin 16-bit mode *****
		longa	on
		longi	on

		and	#$00ff		; Strip off hi byte of passed type.
		sta	>e1_load_type
		cmp	#s16_ftype	; Is it a ProDOS 16 system file?
		beq	type_ok		; yes
		cmp	#shell_ftype	; Is it a ProDOS 16 shell file?
		beq	type_ok		; yes
		cmp	#sys_ftype	; Is it a ProDOS 8 system file?
		beq	type_ok		; yes
		lda	#not_system_file ; None of the above so report error
		plp			; Restore mode
		sec			; indicate error
		rts

type_ok
		plp			; Restore mode
		clc			; indicate no error
		rts

		DataChk	on
		ENDP



		eject
;===============================================================================
; alloc_gsos_mem
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is preserved.
;
; Inputs:       none
;
; Outputs:      c - 0 if no error, 1 if error
;               A - error code if c=1
;
; Notes:	Must return with an RTL since called from GLDR and E0 code.
;
; This routine loops through the e1_gsos_segs2 table and uses the information to
; allocate the reserved memory segments for GS/OS and the System Loader.
; The segments are allocated with a $32xx segment ID.
;===============================================================================

alloc_gsos_mem 	PROC
		DataChk	off

		longa	on
		longi	on

		phb			;save data bank register
		pea	$e1e1
		plb			;set data bank register to bank $e1
		plb

		ldx	#0		;init table index
loop
		stx	|e1_word_temp	;save table index

		ldy	|e1_gsos_segs2+4,x ;hi word of seg location
		lda	|e1_gsos_segs2+2,x ;lo word of seg location
		pha
		lda	|e1_gsos_segs2+6,x ;seg size
		plx

		jsr	alloc_os_mem	;allocate the segment
		bcs	done

		lda	|e1_word_temp	;retrieve table index
		adc	#12
		tax			;adjust index to point to next table entry

		lda	|e1_gsos_segs2,x ;at end of table?
		bpl	loop		;no

done		plb			;restore data bank register
		rtl

		DataChk	on
		ENDP



		eject
;===============================================================================
; alloc_p8_mem
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is set to bank $E1 on entry and exit.
;
; Inputs:       none
;
; Outputs:      c - 0 if no error, 1 if error
;               A - error code if c=1
;
; Allocate all necessary memory for the Apple //e program environment.
; The segments are allocated with a $32xx segment ID.
;
; Specifically the memory allocated is:
;
; Bank $00 : $0800-$bfff ; All //e memory allocatable via memory manager.
; Bank $01 : $0800-$bfff ; All //e memory allocatable via memory manager.
; Bank $e0 : $2000-$5fff ; Hi-res pgs 1 & 2.
; Bank $e1 : $2000-$9fff ; Hi-res pgs 1 & 2, Super Hi-res.
;===============================================================================

alloc_p8_mem 	PROC

		longa	on
		longi	on

		lda	#$b800		; From $0800-$0BFFF
		ldx	#$0800		; Starting at $800
		ldy	#$0000		; Bank $00
		jsr	alloc_os_mem
		bcs	done		; Branch if error.

		lda	#$b800		; From $0800-$0BFFF
		ldx	#$0800		; Starting at $800.
		ldy	#$0001		; Bank $01.
		jsr	alloc_os_mem
		bcs	done		; Branch if error.

		lda	#$4000		; From $2000-$5FFF
		ldx	#$2000		; Starting at $2000
		ldy	#$00e0		; Bank $E0.
		jsr	alloc_os_mem
		bcs	done		; Branch if error.

		lda	#$8000		; From $2000-$9FFF
		ldx	#$2000		; Starting at $2000
		ldy	#$00e1		; Bank $E1.
		jsr	alloc_os_mem
done		rts			; Carry set if error, clear if no error.

		ENDP



		eject
;===============================================================================
; alloc_os_mem
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is unknown.
;
; Inputs:       A - # of bytes to allocate.
;               X - Lo word of start address of segment.
;               Y - Hi word of start address of segment.
;               e1_os_mem_id - contains the ID used by GLDR and GQuit when
;                              allocating reserved memory segments for GS/OS and P8.
;
; Outputs:      c - 0 if no error; 1 if error.
;               A - error code if c=1
;               X - Low word of handle to allocated segment.
;               Y - High word of handle.
;
; This routine is used to allocate reserved memory segments for GS/OS and P8.
; The segments are allocated with the attributes - locked, fixed, not purgable,
;   can't cross bank boundary, may use special memory, fixed address, fixed bank.
; The segments are allocated with a $32xx segment ID.
; This routine only allows a 2 byte segment size.
;===============================================================================

alloc_os_mem	PROC

		longa	on
		longi	on

		pha			; Reserve space for Handle result.
		pha
		pea	0		; Hi word of seg size.
		pha			; Low word of seg size (input).
		lda	>e1_os_mem_id	; segment id
		pha
		pea	mm_attrib	; Seg attributes word.
		phy			; Hi  word of seg location (input)
		phx			; Low word of seg location (input)
		_newhandle
		plx			; Pull Handle to the memory segment,
		ply			; saving it in X and Y.
		rts

		ENDP



		eject
;===============================================================================
; alloc_storage
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is set to bank $E1 on entry and exit.
;
; Inputs:       e1_storage_id - contains the ID used by GQuit when
;                               allocating storage space for GS/OS.
;
; Outputs:      c - 0 if no error, 1 if error
;               A - error code if c=1
;
; Allocate segments to store GS/OS in while ProDOS 8 is running.
; The segments are allocated with a $32xx segment ID.
;===============================================================================

alloc_storage 	PROC
		DataChk	off

		longa	on
		longi	on

		ldx	#0
loop
		lda	|e1_gsos_segs,x
		bmi	done

		pha			; space for handle result
		pha
		pea	0		; hi word of seg size
		lda	|e1_gsos_segs+6,x ; lo word of seg size
		pha
		lda	|e1_storage_id
		pha
		pea	storage_attrib	; seg attributes word
		lda	#0
		pha			; hi word of seg location
		pha			; lo word of seg location
		stx	|e1_word_temp
		_newhandle
		bcs	error
		ldx	|e1_word_temp
		pla			; pull handle to the memory segment
		sta	|e1_gsos_segs+8,x ; and save
		pla
		sta	|e1_gsos_segs+10,x
		txa
		adc	#12
		tax
		bra	loop

error		plx			;clean up stack
		plx
done		rts

		DataChk	off
		ENDP



		eject
;===============================================================================
; alloc_user_zp
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is preserved.
; Direct register is set to the user's zero page on exit.
;
; Inputs:       e1_zp_start - start address of user's zero page; 0 if none allocated
;               e1_zp_size - size of user's zero page; 0 if none allocated
;
; Outputs:      c - 0 if no error ; 1 if error.
;               A - starting address of user's stack if c=0; else error code if c=1
;               e1_zp_start - start address of user's zero page
;               e1_zp_size - size of user's zero page
;               e1_zp_handle - handle to user's zero page; 0 if allocated by loader
;
; Notes:        This routine alters the direct page register.
;		Must return with an RTL since called from GLDR and E0 code.
;
; This routine sets up the user's Direct register and sets A to the start
; of the user's stack.  If the loader has allocated the user's zero page
; segment, then this routine uses the values returned by the loader.  Otherwise,
; it will allocate a zero page segment with the following attributes:
; locked, fixed memory, purge level of 1, no bank crossing, may use special
; memory, page aligned, not fixed address, fixed bank.
; The segment size will be 4K.
;===============================================================================

alloc_user_zp	PROC
		DataChk	off

		longa	on
		longi	on

		phb			; save data bank register
		pea	$e1e1		; set data bank register to bank $E1
		plb
		plb

;determine if loader allocated user's zero page

		lda	|e1_zp_start	; did loader allocate user's zero page?
		bne	set_d_reg	; yes

;allocate a zero page segment for user

		pha			; Reserve space for Handle result.
		pha
		ldx	#$0000
		phx			; Hi word of seg size. ($0000)
		lda	#zp_size	; Default zero page size
		pha
		sta	|e1_zp_size	; Save zero page size for later
		lda	|e1_user_id	; Use user's ID for his zero page segment
		pha
		pea	zp_attrib	; Seg attributes word.
		phx			; Address of segment to be
		phx			; somewhere in bank 0. (X still 0)
		_newhandle
		tay			; save error code
		tsc			; move our direct page to stack so we
		tcd			; can dereference the handle
		lda	[<1]		; get address of user's zero page - only lo
		sta	|e1_zp_start	; word since it's a bank 0 address.
		pla			; pull Handle to the memory segment
		sta	|e1_zp_handle	; and save
		pla
		sta	|e1_zp_handle+2
		tya			; Restore error code.
		bcs	exit

		lda	|e1_zp_start	; retrieve start address of user's zero page

;set D register to user's zero page
;set A register to user's stack

set_d_reg	tcd			; set Direct register
		clc			; then add zero page size to set stack
		adc	|e1_zp_size	; A now equals user's S + 1.
		dec	a		; Adjust for proper S value.

exit		plb			; restore data bank register
		rtl

		DataChk	on
		ENDP



		eject
;===============================================================================
; id_routines
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is set to bank $E1 on entry and exit.
;
; Each entry in the id_stack consists of 4 bytes.  They are used as follows -
;   Byte 0 is the lo byte of the current id
;   Byte 1 is the hi byte of the current id
;   Byte 2 is the lo byte of the quit flag
;   Byte 3 is the hi byte of the quit flag
;===============================================================================

id_routines	PROC
		DataChk	off

		longa	on
		longi	on

;-------------------------------------------------------------------------------
; push_id
;
; Inputs:       none
;
; Outputs:      c - 1 if stack full, else 0
;               A - error code if c=1
;-------------------------------------------------------------------------------

		EXPORT	push_id
push_id
		ldx	|e1_id_stack_index ;get index to id_stack
		cpx	#id_stack_size	;are we at the end?
		bcs	push_id0	;yes
		lda	>newvideo	;get current screen state
		and	#%10000000	;only need SHR status
		xba			;put into high byte of accumulator
		ora	|e1_current_id	;combine with current id
		sta	|e1_id_stack,x	;save it
		inx
		inx
		lda	|e1_quit_flags	;get quit flags
		sta	|e1_id_stack,x	;save it
		inx
		inx
		bra	pnp_out

push_id0	lda	#stack_overflow	;id stack full error
		rts			;return with carry set


;-------------------------------------------------------------------------------
; pop_id
;
; Inputs:       none
;
; Outputs:      c - 1 if stack was empty, else 0
;-------------------------------------------------------------------------------

		EXPORT	pop_id
pop_id
		lda	|e1_id_stack_index ;Get index to ID Stack
		beq	empty_stack	;ID stack is empty

		lda	#$b3
		sta	|e1_load_type	;set the load type
		ldx	|e1_id_stack_index ;get index to id stack
		dex
		dex
		dex
		dex
		lda	|e1_id_stack,x	;get id
		sta	|e1_open_id	;save previous id
pnp_out		stx	|e1_id_stack_index ;update the index to id stack
		clc			;indicate no error
		rts

empty_stack	sec			;indicate error
		rts


;-------------------------------------------------------------------------------
; check_id_stack
;
; Inputs:       e1_open_id - ID to check for
;
; Outputs:      c - 1 if ID on stack, else 0
;
; This routine will search the ID stack to see if the ID for the program
; we are launching is already on the stack.
;-------------------------------------------------------------------------------

		EXPORT	check_id_stack
check_id_stack
		ldx	|e1_id_stack_index ;get index to id_stack

check_loop
		dex			;point to next record
		dex
		dex
		dex
		bpl	check_it
		clc			;if done with stack, return carry clear
		rts

check_it	lda	|e1_id_stack,x	;get the user id
		asl	a		;clear SHR bit
		lsr	a
		cmp	|e1_open_id	;does it match?
		bne	check_loop	;no
		sec			;yes - so return carry set
		rts

		DataChk	on
		ENDP



		eject
;===============================================================================
; gsos_nonfatal
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is unknown.
;
; Inputs:       X - message #
;
; Outputs:      A - return value of selected button
;
; Notes:        This routine may not return.
;		This routine assumes that a button return value of 0
;		always corresponds to a "Restart" button.
;
; Generate a non-fatal error while running under GS/OS.
; If the message displayed contains a "Restart" button and the user selects it,
; this routine will call SCM to restart the system.  Otherwise, this routine will
; return the value of the selected button.
;===============================================================================

gsos_nonfatal	PROC
		Import	shutdown_reboot
		longa	on
		longi	on

		phx			;message #
		lda	#0
		pha			;ptr to substitution string 1 (unused)
		pha
call_scm
		pha			;ptr to substitution string 2 (unused)
		pha
		jsl	report_error	;put up non-fatal error message
		bne	return		;A=0 if 'Restart' button selected
		jmp	>shutdown_reboot;call SCM to restart the system

return		rts			;A = return value of selected button

		entry	gsos_nonfatal2
gsos_nonfatal2
		DataChk	Off
		Import	e1_errBuf,e1_errStr

		pha			;put error number on stack
		pea	e1_errBuf>>16	;buffer address
		pea	e1_errBuf
		pea	4		;buffer length
		ldx	#$220B		;Int2Hex call
		jsl	$E10000
		
		pea	#52		;message #
		pea	e1_errStr>>16	;subsititution string pointer
		pea	e1_errStr
		lda	#0		;borrow remainder of code
		bra	call_scm

		DataChk	On
		ENDP



		eject
;===============================================================================
; gsos_fatal_err
; gsos_fatal_err2
;
; Entry is in 16-bit native mode.
; Data bank register is unknown.
;
; Inputs:       A - error code
;		X - message # (on entry to gsos_fatal_err2)
;
; Outputs:      none
;
; Notes:        This routine does not return.
;
; Generate a fatal error while running under GS/OS.
;===============================================================================

gsos_fatal_err	PROC

		longa	on
		longi	on

		ldx	#quit_err

		EXPORT	gsos_fatal_err2
gsos_fatal_err2
		tay			;save error # in Y
		lda	#stack_top	;set up correct stack
		tcs

		phy			;error #
		phx			;message #
		lda	#0
		pha			;no substitution string
		pha
		jsl	report_fatal	;fatal error - no return

		ENDP



		eject
;===============================================================================
; p8_fatal_err
; p8_fatal_err2
;
; Entry is in 16-bit native mode.
; Data bank register is unknown.
;
; Inputs:       A - error code
;
; Outputs:      none
;
; Notes:        This routine does not return.
;
; Generate a fatal error using the System Failure Manager.
;===============================================================================

p8_fatal_err	PROC

		longa	on
		longi	on

; Mask off high byte of error code since it may be garbage.

		and	#$00ff

; Push error code on stack as input to system death call.

		EXPORT	p8_fatal_err2
p8_fatal_err2
		pha

; Move our system death message out of the LC area to anywhere else before dying.

		longa	off
		longi	off
		sep	#$30		;***** begin 8-bit mode *****

		lda	>e1_fatal_msg	;get length byte
		tax

fatal_loop	lda	>e1_fatal_msg,x
		sta	>$002000,x
		dex
		bpl	fatal_loop

		longa	on
		longi	on
		rep	#$30		;***** return to 16-bit mode *****

; Call the system death manager - doesn't return

		pea	$0000		; Message pointer hi-word
		pea	$2000		; Message pointer lo-word
		_sysfailmgr

		ENDP



		EXPORT	e0_end
e0_end		PROC
		ENDP


*********************************************************************************
org_dummy_6	proc	org e0_obj_max, skip	;generate an error if E0 code
		endp				;is too big
*********************************************************************************



		eject
*********************************************************************************
*                                                                               *
*                               GQuit - E1 segment                              *
*                                                                               *
*                       Copyright Apple Computer, Inc. 1986-1993                *
*                                                                               *
*                               All Rights Reserved                             *
*                                                                               *
*********************************************************************************

*********************************************************************************
		SEG	'seg_e1'
org_dummy_7	proc	org e1_obj_pstn, noskip
		endp
*********************************************************************************


		eject
;===============================================================================
; p8_mount_vol
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is unknown.
;
; Inputs:       A - error code
;
; Outputs:      A - error code (hi byte set to 0)
;               c - 0 if mount volume window put up and 'return' was pressed
;                   1 if window not put up or if window put up and 'esc' pressed
;
; Notes:        Must exit with an RTL since called from bank 0 code.
;
; If the error code is volume_not_found ($45) or no disk in drive ($2F),
; then put up a window asking the user to insert the needed volume.
;===============================================================================

p8_mount_vol	PROC
		DataChk	off

		longa	on
		longi	on

		ldy	#e1_app_volname>>16 ;set up ptr to volume name
		ldx	#e1_app_volname

; If the p8_mount_vol2 entry point is called, X and Y must already be set up.

		EXPORT	p8_mount_vol2
p8_mount_vol2

; If error code is 'volume not found' or 'no disk in drive' then put up the
; Mount Volume window, otherwise return with carry set.

		and	#$00ff		;just in case
		cmp	#vol_not_found
		beq	cont
		cmp	#drvr_off_line
		beq	cont
		sec			;indicate error not handled
		rtl			;error code still in A

cont
		pha			;save error code in case ESC pressed
		phy			;push ptr to volume name on stack
		phx
		tsc
		phd			;save D reg
		tcd			;point D reg at stack
		lda	[<1]		;get length byte and leading separator
		dec	a		;don't count leading separator
		xba			;then swap the bytes so the volume name
		sta	[<1]		;does not contain the separator

		pha			; Room for result
		pea	e1_mount_msg>>16
		pea	e1_mount_msg
		phy			; hi word of ptr to volume name
		inx			; skip separator
		phx			; lo word of ptr to volume name
		pea	e1_btn1_label>>16 ; 'Return'
		pea	e1_btn1_label

		pea	e1_btn2_label>>16 ; 'Escape'
		pea	e1_btn2_label
		_TLTextMountVolume
		lda	[<1]		;restore first 2 bytes of volume name
		xba			;back to their original positions
		inc	a		;and values
		sta	[<1]
		pla			;Which button: 1=Return, 2=Escape
		pld			;restore D reg
		plx			;pull volume name ptr off stack
		plx
		cmp	#1		;which button was pressed?
		bne	escape_pressed
		clc			;indicate Return was pressed
		pla			;pull original error code off stack
		rtl			;return with carry clear

escape_pressed	sec			;Indicate Escape was pressed
		pla			;restore error code
		rtl			;return with carry set

		DataChk	on
		ENDP



		eject
;===============================================================================
; p8_prefix_err
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is unknown.
;
; Inputs:       A - error code
;               e1_prefix_buf - contains the prefix being used to set ProDOS 8's
;                               prefix
;
; Outputs:      X - lo word of ptr to volume name
;               Y - hi word of ptr to volume name
;               A - error code
;
; Notes:        This routine jumps into the p8_mount_vol routine at the entry
;               point p8_mount_vol2.  Control does not return to this routine.
;
; An error occurred while trying to set ProDOS 8's prefix.  So we need to
; set up X and Y to point to the correct volume name so that the 'mount volume'
; message will have the correct volume name.
;===============================================================================

p8_prefix_err	PROC
		DataChk	off

		longa	on
		longi	on

		pha			;save error code

;adjust length of e1_prefix_buf to only contain the length of the volume name
;since the prefix may be a pathname

		longa	off
		longi	off
		sep	#$30		;***** begin 8-bit mode *****

		ldx	#1		;skip leading slash
loop		txa
		cmp	>e1_prefix_buf	;at end of string?
		beq	done		;yes
		inx
		lda	>e1_prefix_buf,x
		cmp	#'/'
		bne	loop		;loop until find a slash
		dex			;don't count slash
		txa
		sta	>e1_prefix_buf	;store new length byte
done

		longa	on
		longi	on
		rep	#$30		;***** return to 16-bit mode *****

		ldy	#e1_prefix_buf>>16 ;set up ptr to volume name
		ldx	#e1_prefix_buf
		pla			;retrieve error code
		jmp	>p8_mount_vol2	;put up the mount volume message

		DataChk	on
		ENDP


		eject
;===============================================================================
; get_stacked_id
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is unknown.
; Direct register is unknown.
;
; Inputs:       none
;
; Outputs:      A - ID of next item on ID stack, 0 if stack empty
;
; Notes:        Must return with an RTL since called from SCM.
;
; This routine returns the ID of the next item on the ID stack.
; If the ID stack is empty, it returns 0.
; This routine is called by SCM in response to a system service call.
;===============================================================================

		EXPORT	get_stacked_id
get_stacked_id	PROC

		longa	on
		longi	on

		lda	>e1_id_stack_index ;get current stack index
		beq	done		;0 if stack is empty
		dec	a		;adjust index to point to
		dec	a		;next ID on stack
		dec	a
		dec	a
		tax
		lda	>e1_id_stack,x	;get the ID
done		rtl

		ENDP



		eject
;===============================================================================
; rename_bootvol
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is unknown.
; Direct register is preserved.
;
; Inputs:       X - lo word of pointer to string
;               Y - hi word of pointer to string
;
; Outputs:      c - 0 if no error ; 1 if error
;               A - error code if c=1
;
; Notes:        Must return with an RTL since called from SCM.
;
; Called by SCM when the boot volume has been renamed.
; The string containing the new boot volume name is in class 1 format and has
; a leading colon but not an ending colon.
;===============================================================================

		EXPORT	rename_bootvol
rename_bootvol	PROC

string_ptr	equ	3		;offset into stack

		phy			;push string pointer onto stack
		phx

ldr_ok

		phd			;save direct register
		tsc			;set direct register to point to stack
		tcd

		lda	[<string_ptr]	;get length word
		inc	a		;add 1 for extra length byte
		tay
		tax

		sep	#$30		;***** begin 8-bit mode *****
		longa	off
		longi	off

loop		lda	[<string_ptr],y	;copy new volume name into
		sta	>e1_volname,x	;GQuit's data area
		dey
		dex
		bpl	loop		;loop until done with string

		rep	#$30		;***** return to 16-bit mode *****
		longa	on
		longi	on

		pld			;restore direct register
		pla			;clean up stack
		pla

		jsl	make_start_paths ;create the start program pathnames

		rtl

		ENDP
		eject
;===============================================================================
; concat
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is preserved.
; Direct register is preserved.
;
; Inputs:       SP+15 = 0 if class 0 strings, 1 if class 1 strings
;               SP+11 = Address of String1
;               SP+7  = Address of String2
;               SP+3  = Address of String3 (result string)
;               SP+1  = Return address - 1 (From the JSL)
;
; Outputs:      none
;
; Notes:        Any altered stack usage will alter stack equate values!
;               Must return with an RTL since called from GLDR and B0 code.
;
; Concat will concatinate two strings and place the result in a third string.
; The strings may be all class 0 strings or all class 1 strings.
; String1 and String3 may be the same string.
;===============================================================================

concat		PROC

; equates for direct register addressing

class		equ	19
ptr1		equ	15
ptr2		equ	11
ptr3		equ	7


		longa	on
		longi	on

		phb			; Save current bank.
		pea	$e1e1
		plb			; set data bank reg to bank $E1
		plb

		phd			; Save D. (Note stack indexing consequences!)
		tsc			; Equate D to S for addressing access.
		tcd

		longa	off
		longi	off
		sep	#$30		;***** begin 8-bit mode *****

		lda	[<ptr2]		; get length of string2
		tay			; save for later
		clc
		adc	[<ptr1]		; add to length of string1
		sta	[<ptr3]		; to get length of string3
		tax			; save length of string3 in X

		lda	<class		; class 1 strings?
		beq	class0		; no
		iny			; yes - so add 1 for extra length byte
		inx
class0

copystr2	lda	[<ptr2],y	; first copy string2 into string3
		phy			; save string2's index
		txy			; get string3's index
		sta	[<ptr3],y
		tyx			; save string3's index
		ply			; retrieve string2's index
		dex
		dey
		cpy	<class		; stop at byte 0 if class 0 strings
		bne	copystr2	; stop at byte 1 if class 1 strings

		longa	on
		longi	on
		rep	#$30		;***** return to 16-bit mode *****

		lda	<ptr1		; if the ptr to string1 is the same
		cmp	<ptr3		; as the ptr to string3 then don't
		bne	not_equal	; bother copying string1 into string3
		lda	<ptr1+2		; since they are the same string
		cmp	<ptr3+2		; and the length byte has already
		beq	copy_done	; been changed
not_equal

		longa	off
		longi	off
		sep	#$30		;***** begin 8-bit mode *****

		lda	[<ptr1]		; get length of string1
		tay

		lda	<class		; class 1 strings?
		beq	class00		; no
		iny			; yes - so add 1 for extra length byte
class00

copystr1	lda	[<ptr1],y	; now copy string1 into string3
		phy			; save string1's index
		txy			; get string3's index
		sta	[<ptr3],y
		tyx			; save string3's index
		ply			; retrieve string1's index
		dex
		dey
		bne	copystr1	; loop until done copying string1

		longa	on
		longi	on
		rep	#$30		;***** return to 16-bit mode *****

copy_done
		pld			; Restore Direct reg. (Changes stack indexing!)
		plb			; Restore caller's DBR.

		lda	1,s		; Now move up the 3 byte return address...
		sta	15,s		; to proper place in the stack.
		lda	2,s		; We're forced to move the middle return byte twice..
		sta	16,s
		tsc			; Adjust stack up to spot below return adr.
		clc
		adc	#14
		tcs			; Set S to proper return value.
		rtl
		ENDP



		eject
;===============================================================================
; compare_string
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is preserved.
; Direct register is preserved.
;
; Inputs:       4 bytes - pointer to string 1
;               4 bytes - pointer to string 2
;		3 bytes - return address
;
; Outputs:      c - 0 if strings match, 1 if strings don't match.
;
; Notes:	Must return with an RTL since called from GLDR and B0 code.
;
; This routine compares two class 1 strings to see if they are the same.
; This routine does a case-insensitive compare.
;===============================================================================

compare_string	PROC

		longa	on
		longi	on

str1char	equ	1
ptr2		equ	9
ptr1		equ	13

		phb			;save data bank register
		phd			;save direct register
		pha			;make space to store char
		tsc
		tcd			;set direct register to stack

		lda	[<ptr1]		; Get length of string1.
		cmp	[<ptr2]		; Is it the same length as string2?
		bne	notsame		; no
		inc	a		; add 1 for extra length byte
		tay

		sep	#$30		;***** begin 8-bit mode *****
		longa	off
		longi	off

nextchar	lda	[<ptr1],y	; get char from string1
		jsr	cvt_to_upper	; convert to upper case
		sta	<str1char	; and save on stack
		lda	[<ptr2],y	; get char from string2
		jsr	cvt_to_upper	; convert to upper case
		cmp	<str1char	; cmpare chars
		bne	notsame
		dey
		bne	nextchar

		rep	#$30		;***** return to 16-bit mode *****
		longa	on
		longi	on
		clc			; Indicate that the strings matched
		bra	done

notsame		rep	#$30		;***** return to 16-bit mode *****
		longa	on
		longi	on
		sec			; Set carry denoting no match

done
		pla			; pull char storage off stack
		pld			; restore direct register
		plx			; pull B, RTN1 off stack
		ply			; pull RTN2, RTN3 off stack
		pla			; pull inputs off stack
		pla
		pla
		pla
		phy			; push RTN2, RTN3 back on stack
		phx			; push B, RTN1 back on stack
		plb			; restore data bank
		rtl

;-------------------------------------------------------------------------------

; If the character in A is a lower-case alphabetic character then convert it
; to upper-case.

cvt_to_upper
		longa	off
		longi	off

		cmp	#'a'
		bcc	cvt_done
		cmp	#'{'
		bcs	cvt_done
		sec
		sbc	#$20
cvt_done	rts

		ENDP



		eject
;===============================================================================
; slash_2_colon
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is unknown.
; Direct register is preserved.
;
; Inputs:       X - lo word of pointer to string
;               Y - hi word of pointer to string
;
; Outputs:      none
;
; Scans a class 1 string and converts all slashes (/) to colons (:).
;===============================================================================

slash_2_colon	PROC

string_ptr	equ	3		;offset into stack

		phy			;push string pointer onto stack
		phx

		phd			;save direct register
		tsc			;set direct register to point to stack
		tcd

		lda	[<string_ptr]	;get length word
		beq	xlate_done	;quit if length is 0
		tay
		iny			;add 1 for extra length byte

		sep	#$30		;***** begin 8-bit mode *****
		longa	off
		longi	off

xlate_loop	lda	[<string_ptr],y	;get next character
		cmp	#'/'		;is it a slash?
		bne	xlate_cont	;no
		lda	#':'		;yes - so replace it with a colon
		sta	[<string_ptr],y
xlate_cont	dey
		bne	xlate_loop	;loop until done with string

		rep	#$30		;***** return to 16-bit mode *****
		longa	on
		longi	on
xlate_done
		pld			;restore direct register
		pla			;clean up stack
		pla
		rtl

		ENDP



		eject
;===============================================================================
; colon_2_slash
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is unknown.
; Direct register is preserved.
;
; Inputs:       X - lo word of pointer to string
;               Y - hi word of pointer to string
;
; Outputs:      none
;
; Scans a class 0 string and converts all colons (:) to slashes (/).
;===============================================================================

colon_2_slash	PROC

string_ptr	equ	3		;offset into stack

		phy			;push string pointer onto stack
		phx

		phd			;save direct register
		tsc			;set direct register to point to stack
		tcd

		sep	#$30		;***** begin 8-bit mode *****
		longa	off
		longi	off

		lda	[<string_ptr]	;get length byte
		beq	xlate_done	;quit if length is 0
		tay

xlate_loop	lda	[<string_ptr],y	;get next character
		cmp	#':'		;is it a colon?
		bne	xlate_cont	;no
		lda	#'/'		;yes - so replace it with a slash
		sta	[<string_ptr],y
xlate_cont	dey
		bne	xlate_loop	;loop until done with string
xlate_done

		rep	#$30		;***** return to 16-bit mode *****
		longa	on
		longi	on

		pld			;restore direct register
		pla			;clean up stack
		pla
		rtl

		ENDP



		eject
;===============================================================================
; make_start_paths
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is unknown.
; Direct register is unknown.
;
; Inputs:       e1_volname -  contains the name of the boot volume
;                             in class 1 format
;               e1_sys_filename - contains the filename of the start program
;                                 in class 0 format
;
; Outputs:      e1_start_prog0 - contains the pathname of the start program
;                                in class 0 format
;               e1_start_prog1 - contains the pathname of the start program
;                                in class 1 format
;
; Notes:        Must return with an RTL since called from GLDR and E0 code.
;===============================================================================

make_start_paths PROC
		DataChk	off

		longa	on
		longi	on

; first, convert e1_volname into class 0 format

		lda	>e1_volname	; get length word
		xba
		sta	>e1_volname	; and swap bytes for class 0 format

; now create a class 1 version of the start program pathname

		pea	0		; indicate class 0 strings
		pea	e1_volname>>16	; Push ptr to string1
		pea	e1_volname+1
		pea	e1_sys_filename>>16 ; Push ptr to string2
		pea	e1_sys_filename
		pea	e1_start_prog1>>16 ; Push ptr to resultant string
		pea	e1_start_prog1+1
		jsl	concat

		lda	>e1_start_prog1	;get length of full pathname
		and	#$ff00
		xba			;swap bytes to make it a
		sta	>e1_start_prog1	;class 1 length word

; now create a class 0 version of the start program pathname

		pea	0		; indicate class 0 strings
		pea	e1_volname>>16	; Push ptr to string1
		pea	e1_volname+1
		pea	e1_sys_filename>>16 ; Push ptr to string2
		pea	e1_sys_filename
		pea	e1_start_prog0>>16 ; Push ptr to resultant string
		pea	e1_start_prog0
		jsl	concat

; convert e1_volname back to class 1 format

		lda	>e1_volname	; get length word
		xba
		sta	>e1_volname	; and swap bytes back to class 1 format

; now scan the class 0 pathname and translate the colons into slashes

		ldy	#e1_start_prog0>>16 ;get pointer to string in X and Y
		ldx	#e1_start_prog0
		jsl	colon_2_slash	;convert colons to slashes

		rtl

		DataChk	on
		ENDP

		eject
;===============================================================================
; init_text_tools
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is set to bank $E1 on entry and exit.
;
; Inputs:       none
;
; Outputs:      none
;
; Notes:        The calling routine does not care if there are any errors when
;               this routine is called so we don't check for any and save lots
;               of bytes for missing bcs's.
;
; This routine is called before P16 applications are launched so they
; can immediately utilize character I/O.
;
; Moved to bank $E1 to make a little room in bank $E0, 02/17/91, GAB.
;
;===============================================================================

init_text_tools	PROC

		longa	on
		longi	on

; Make the following Text Tool Set calls -
; SetInGlobals ($090c), SetOutGlobals ($0a0c), SetErrGlobals ($0b0c)
; These calls set the 'global AND mask' and the 'global OR mask' for the
; input device, the output device and the error output device.

		ldx	#$090c
loop1		phx			;save counter for later
		pea	$00ff		;global AND mask for device
		pea	$0080		;global OR mask for device
		jsl	>dispatch1
		clc
		pla			;get counter
		adc	#$0100
		tax
		cmp	#$0c0c
		bcc	loop1		;do until carry set

; Make the following Text Tool Set calls -
; SetInputDevice ($0f0c), SetOutputDevice ($100c), SetErrorDevice ($110c)
; These calls set the input device, the output device and the error output
; device to a Pascal type device in slot 3.

		ldx	#$0f0c
loop2		phx			;save counter for later
		pea	$0001		;pascal device type
		pea	$0000
		pea	$0003		;slot 3
		jsl	>dispatch1
		clc
		pla			;get counter
		adc	#$0100
		tax
		cmp	#$120c
		bcc	loop2		;do until carry set

; Make the following Text Tool Set call -
; InitTextDev ($150c) to initialize the input device ($0000), the error output
; device ($0001) and the output device ($0002)
; Note - only do this if slot 3 is set internal

		lda	>rdc3rom	;slot 3 status is in bit 7
		xba			;swap bytes so bit 7 is now in bit 15
		bmi	done		;branch if slot 3 is set external

		lda	#$0002
loop3		pha			;save counter for later
		pha			;pretend like pea instruction
		ldx	#$150c		;init it
		jsl	>dispatch1
		pla			;get counter
		dec	a
		bne	loop3		;do until 0

done		rtl

		ENDP

		eject
;===============================================================================
; call_launcher
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is set to bank $E1 on entry and exit.
;
; Inputs:       none
;
; Outputs:      pointer to pathname in path1_ptr
;		UserID of Launcher in X
;
;
; This routine is called when there is no application ID on the quit
; stack to return to.  Instead of simply launching the start application
; again, the old Program Launcher will be presented to the user to allow
; her to select the next application to launch.
;
;===============================================================================

call_launcher	PROC
		DataChk	off

new_userID	equ	1
handle		equ	3

		tsc			;make local direct page
		sec
		sbc	#6		;need 6 bytes of local storage
		tcs
		phd
		tcd

		pha			;result space
		pea	$3000		;use GS/OS id type
		ldx	#$2003		;GetNewID
		jsl	$E10000
		lda	1,s		;retrieve new ID, but leave on stack
		sta	new_userID

		ldx	#$021e		;ResourceStartup call
		jsl	$E10000
		
		pha			;result space
		pha
		ldx	#$3403		;GetCodeResConverter
		jsl	$E10000
		; leave proc pointer on stack for following call

		pea	$8017		;rCodeResource
		pea	1		;logFlags
		ldx	#$281e		;ResourceConverter
		jsl	$E10000

		lda	>sys_prefs	;get preferences flag
		pha			;save for a bit
		lda	#$C000		;set to show mount dialog w/o cancel button
		sta	>sys_prefs

		pha			;result space
		pha
		pea	$8017		;rCodeResource
		pea	$07ff		;resource id ($07ff0001)
		pea	$0001
		ldx	#$0e1e		;LoadResource
		jsl	$E10000
		plx			;retrieve handle
		stx	handle
		plx
		stx	handle+2
		plx			;retrieve old sysPrefs
		bcc	@loaded_ok	;no error, continue
		jmp	>p8_fatal_err2

@loaded_ok
		txa
		sta	>sys_prefs	;restore system preferences

		ldy	#1
		lda	[handle],y	;deref the returned handle
		sta	>vector+2	;store the address (self modifying code)
		lda	[handle]
		sta	>vector+1

vector		jsl	>$000000	;address is self-modified

; deref the returned handle
		tya			;high word into Acc
		phb			;save DBR
		xba
		pha
		plb
		plb			;set DBR to bank of Handle
		lda	|0,x		;address of Pointer
		ldy	|2,x		;bank of Pointer
		plb			;restore DBR
		clc			;adjust past buffer length word
		adc	#2
		bcc	@1
		iny
@1
		phy			;save pointer on stack
		pha

		pea	3		;purge level
		pea	$8017		;rCodeResource
		pea	$07ff		;resource id
		pea	$0001
		ldx	#$171e		;ReleaseResource
		jsl	$E10000

		ldx	#$031E		;ResourceShutdown
		jsl	$E10000

		pla			;retrieve pathname pointer
		ply

		ldx	new_userID	;return userID
		pld			;restore original direct page

		sta	<path1_ptr	;store the pointer
		sty	<path1_ptr+2

		pla			;clean up stack
		pla
		pla

		rtl			;back to get_next_prog

		EndP

		eject
;===============================================================================
; dispose_os_mem
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is set to bank $E1 on entry and exit.
;
; Inputs:       e1_os_mem_id - contains the ID used by GLDR and GQuit when
;                              allocating reserved memory segments.
;
; Outputs:      c - 0 if no error, 1 if error
;               A - error code if c=1
;
; Disposes of all memory segments which were allocated using the segment ID
; e1_os_mem_id.
;===============================================================================

dispose_os_mem	PROC
		DataChk	off

		longa	on
		longi	on

		lda	|e1_os_mem_id
		bra	do_dispose


		eject
;===============================================================================
; dispose_storage
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is set to bank $E1 on entry and exit.
;
; Inputs:       e1_storage_id - contains the ID used by GQuit when
;                               allocating storage space for GS/OS.
;
; Outputs:      c - 0 if no error, 1 if error
;               A - error code if c=1
;
; Disposes of all memory segments which were allocated using the segment ID
; e1_storage_id.
;===============================================================================

		Entry	dispose_storage
dispose_storage
		longa	on
		longi	on

		lda	|e1_storage_id
do_dispose
		pha
		_DisposAll
		rtl

		DataChk	on
		ENDP



		eject
;===============================================================================
; dispose_user_zp
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is unknown.
;
; Inputs:       e1_zp_handle - contains the handle to the zero page
;
; Outputs:      c - 0 if no error, 1 if error
;               A - error code if c=1
;
; Notes:	Must return with an RTL since called from GLDR and E0 code.
;
; This routine checks to see if GQuit allocated the zero page segment and if so
; it disposes of it.
;===============================================================================

dispose_user_zp	PROC

		longa	on
		longi	on

		lda	>e1_zp_handle+2	; Put handle on the stack first then
		pha			; see if it's nil
		lda	>e1_zp_handle
		pha
		ora	3,s
		beq	its_nil
		_DisposeHandle		;wasn't nil so dispose it
		tax			;save error temporarily
		lda	#0
		sta	>e1_zp_Handle	;set handle to nil
		sta	>e1_zp_Handle+2
		txa			;retrieve error code
		rtl

		eject
;===============================================================================
; dispose_path
;
; Entry is in 16-bit native mode.
; Exit is in 16-bit native mode.
; Data bank register is set to bank $E1 on entry and exit.
;
; Inputs:       e1_path_hndl - contains the handle to the pathname copy
;
; Outputs:      c - 0 if no error, 1 if error
;               A - error code if c=1
;
; This routine checks to see if a copy of the Quit pathname was made and if so
; it disposes of the memory which was allocated to hold the copy.
;===============================================================================

		entry	dispose_path
dispose_path

		longa	on
		longi	on

		lda	|e1_path_hndl+2	;put handle on stack first then
		pha			;see if it's nil
		lda	|e1_path_hndl
		pha
		ora	3,s
		beq	its_nil
		_DisposeHandle		;wasn't nil so dispose it
		rtl

its_nil					;nothing to do so clean up stack
		pla
		pla
		clc			;indicate no error
		rtl

		ENDP



		eject
;===============================================================================
;
; e1_data
;
;===============================================================================

e1_data		PROC

;-------------------------------------------------------------------------------
; Tables
;-------------------------------------------------------------------------------

		EXPORT	e1_gsos_segs
e1_gsos_segs
		DC.W	0		;language card bank (0/1)
		DC.L	$00D000		;starting address
		DC.W	$3000		;size in bytes
		DC.L	0		;handle to storage area

		DC.W	1		;language card bank (0/1)
		DC.L	$00D000		;starting address
		DC.W	$1000		;size in bytes
		DC.L	0		;handle to storage area

		DC.W	0		;language card bank (0/1)
		DC.L	$01D000		;starting address
		DC.W	$3000		;size in bytes
		DC.L	0		;handle to storage area

		DC.W	1		;language card bank (0/1)
		DC.L	$01D000		;starting address
		DC.W	$1000		;size in bytes
		DC.L	0		;handle to storage area

		EXPORT	e1_gsos_segs2
e1_gsos_segs2
; SCM's bank 0 memory
		DC.W	0		;language card bank (0/1)
		dc.l	SCM_Start	;starting address
		dc.w	$C000-SCM_Start	;size in bytes
		DC.L	0		;handle to storage area

; 1K for use by AppleDisk 3.5 driver Scatter Read routines
		DC.W	0		;language card bank (0/1)
		DC.L	$01BC00		;starting address
		DC.W	$0400		;size in bytes
		DC.L	0		;handle to storage area

; for use by System Loader
		DC.W	0		;language card bank (0/1)
		dc.l	Loader_Entry	;starting address
		dc.w	$1BC00-Loader_Entry	;size
		DC.L	0		;handle to storage area

		DC.W	$ffff		;terminator


;-------------------------------------------------------------------------------
; GS/OS parameter lists
;-------------------------------------------------------------------------------

		EXPORT	e1_setpfx0_parms
e1_setpfx0_parms			;SetPrefix 0 - class 0 parameter list
		DC.W	0		;set prefix 0/
		DC.L	e1_prefix_buf	;ptr to prefix

		EXPORT	e1_gbv_parms
e1_gbv_parms				;GetBootVol - class 0 parameter list
		DC.L	e1_prefix_buf	;ptr to prefix buffer


		EXPORT	e1_getpfx_parms1
		EXPORT	e1_getpfx_num
e1_getpfx_parms1			;GetPrefix - class 1 parameter list
		DC.W	2		;parameter count
e1_getpfx_num	DS.B	2		;prefix #
		DC.L	e1_prefix_buf1	;ptr to prefix buffer

		EXPORT	e1_setpfx_parms1
		EXPORT	e1_setpfx_num
		EXPORT	e1_setpfx_ptr
e1_setpfx_parms1			;SetPrefix - class 1 parameter list
		DC.W	2		;parameter count
e1_setpfx_num	DS.B	2		;prefix #
e1_setpfx_ptr	DS.B	4		;ptr to prefix

		EXPORT	e1_setpfx2_parms1
e1_setpfx2_parms1			;SetPrefix 2 - class 1 parameter list
		DC.W	2		;parameter count
		DC.W	2		;set prefix 2/
		DC.L	e1_lib_path	;ptr to prefix

		EXPORT	e1_open_parms1
		EXPORT	e1_open_ref
		EXPORT	e1_open_path
e1_open_parms1				;Open - class 1 parameter list
		DC.W	3		;parameter count
e1_open_ref	DS.B	2		;reference number
e1_open_path	DC.L	e1_p8_path	;pointer to pathname
		DC.W	1		;read access

		EXPORT	e1_close_parms1
		EXPORT	e1_close_ref
e1_close_parms1				;Close - class 1 parameter list
		DC.W	1		;parameter count
e1_close_ref	DS.B	2		;reference number

		EXPORT	e1_read_parms1
		EXPORT	e1_read_ref
		EXPORT	e1_read_buf
		EXPORT	e1_read_count
e1_read_parms1				;Read - class 1 parameter list
		DC.W	4		;parameter count
e1_read_ref	DS.B	2		;reference number.
e1_read_buf	DC.L	$2000		;pointer to read buffer.
e1_read_count	DS.B	4		;number of bytes to read.
		DS.B	4		;unused

		EXPORT	e1_geof_parms1
		EXPORT	e1_geof_ref
		EXPORT	e1_geof_eof
e1_geof_parms1				;GetEOF - class 1 parameter list
		DC.W	2		;parameter count
e1_geof_ref	DS.B	2		;reference number
e1_geof_eof	DS.B	4		;eof

		EXPORT	e1_gfi_parms1
		EXPORT	e1_gfi_ptr
		EXPORT	e1_gfi_ftype
		EXPORT	e1_gfi_atype
		EXPORT	e1_gfi_eof
e1_gfi_parms1				;GetFileInfo - class 1 parameter list
		DC.W	9		;parameter count
e1_gfi_ptr	DS.B	4		;ptr to pathname
		DS.B	2		;access
e1_gfi_ftype	DS.B	2		;filetype
e1_gfi_atype	DS.B	4		;auxtype
		DS.B	18		;unused fields
		dc.l	e1_option_list
e1_gfi_eof	DS.B	4		;eof

		Export	e1_fst_id
e1_option_list	dc.w	48		;option list total size
		ds.w	1		;space for returned size
e1_fst_id	ds.w	1		;space for returned FST ID
		ds.b	44		;remainder of option list

		EXPORT	e1_sess_parms1
e1_sess_parms1				;EndSession - class 1 parameter list
		DC.W	0		;parameter count

		EXPORT	e1_gdn_parms1
		EXPORT	e1_gdn_ptr
		EXPORT	e1_gdn_dnum
e1_gdn_parms1				;GetDevNumber - class 1 parameter list
		DC.W	2		;parameter count
e1_gdn_ptr	DS.B	4		;ptr to volume name
e1_gdn_dnum	DS.B	2		;device number

		EXPORT	e1_volume_parms1
		EXPORT	e1_volume_ptr
		EXPORT	e1_volume_id
e1_volume_parms1			;Volume - class 1 parameter list
		DC.W	5		;parameter count
e1_volume_ptr	DC.L	0		;ptr to device name (initialize to 0)
		DC.L	e1_prefix_buf1	;ptr to volume name - unused
		DS.B	4		;total blocks - unused
		DS.B	4		;free blocks - unused
e1_volume_id	DS.B	2		;file system ID

		EXPORT	e1_fst_parms1
		EXPORT	e1_fst_ptr
e1_fst_parms1				;FST Specific - class 1 parameter list
		DC.W	3		;parameter count
		DC.W	appleshare_id	;fst #
		DC.W	8		;command #
e1_fst_ptr	DS.B	4		;ptr to pathname

;-------------------------------------------------------------------------------
; general storage
;-------------------------------------------------------------------------------

		EXPORT	e1_word_temp
e1_word_temp	DS.B	2		;scratch word
		EXPORT	e1_os_mem_id
e1_os_mem_id	DS.B	2		;ID assigned to GS/OS and P8 reserved memory
		EXPORT	e1_storage_id
e1_storage_id	DS.B	2		;ID assigned to GS/OS storage
		EXPORT	e1_p8copy_id
e1_p8copy_id	DS.B	2		;ID assigned to copy of P8
		EXPORT	e1_p8copy_hndl
e1_p8copy_hndl	DS.B	4		;handle to copy of P8
		EXPORT	e1_p8copy_ptr
e1_p8copy_ptr	DS.B	4		;pointer to copy of P8
		EXPORT	e1_p8copy_size
e1_p8copy_size	DS.B	4		;size of copy of P8
		EXPORT	e1_p8copy_flag
e1_p8copy_flag	DC.W	$ffff		;$ffff-no hndl;0-purged hndl;1-valid hndl
		EXPORT	e1_path_id
e1_path_id	DS.B	2		;ID assigned to Quit pathname data area
		EXPORT	e1_path_hndl
e1_path_hndl	DS.B	4		;handle to pathname data area
		EXPORT	e1_path_ptr
e1_path_ptr	DS.B	4		;ptr to pathname of program to launch
		EXPORT	e1_path_len
e1_path_len	DS.B	2		;length of partial path of program to launch
		EXPORT	e1_drvr_id
e1_drvr_id	DC.W	0		;ID assigned to boot driver (init to 0)
		EXPORT	e1_user_id
e1_user_id	DS.B	2		;user's segment ID
		EXPORT	e1_current_id
e1_current_id	DS.B	2		;ID of S16 prog that called QUIT
		EXPORT	e1_open_id
e1_open_id	DS.B	2		;ID of S16 prog to be launched
		EXPORT	e1_quit_prefix
e1_quit_prefix	DS.B	2		;prefix # from QUIT pathname parameter
		EXPORT	e1_quit_flags
e1_quit_flags	DS.B	2		;flags from P16 QUIT parameters
		EXPORT	e1_current_os
e1_current_os	DS.B	2		;$8000=ProDOS 8,  $0000=GS/OS
		EXPORT	e1_load_type
e1_load_type	DS.B	2		;$00FF=SYS prog,  $00B3=S16 prog
		EXPORT	e1_aux_type
e1_aux_type	DS.B	2		;aux type of S16 prog to be launched
		EXPORT	e1_start_flag
e1_start_flag	DS.B	2		;1 if relaunching start prog, 0 if not
		EXPORT	e1_full_path
e1_full_path	DS.B	2		;1 if using full pathname, 0 if partial
		EXPORT	e1_appleshare
e1_appleshare	DC.W	0		;<>0 if AppleShare FST loaded, 0 if not
		EXPORT	e1_no_storage
e1_no_storage	DS.B	2		;0 if GS/OS storage allocated, 1 if not
		EXPORT	e1_OS_switch
e1_OS_switch	DC.W	0		;1 if switching operating systems, 0 if not
		EXPORT	e1_mslot
e1_mslot	DS.B	2		;boot slot #
		EXPORT	e1_c3_status
e1_c3_status	DS.B	2		;slot 3 rom status
		EXPORT	e1_besc
e1_besc		DS.B	2		;bit encoded slot configuration
		EXPORT	e1_zp_handle
e1_zp_handle	DC.L	0		;handle to user's zp segment (init to 0)
		EXPORT	e1_zp_start
e1_zp_start	DS.B	2		;address of start of user's zp segment
		EXPORT	e1_zp_size
e1_zp_size	DS.B	2		;size of user's zp segment
		EXPORT	e1_id_stack_index
e1_id_stack_index DC.W	0		;ID stack pointer (init to 0)
		EXPORT	e1_id_stack
e1_id_stack	DS.B	64		;IDs of programs to return to

; The following 8 bytes are used for storing the load addresses of the two QuickDraw patches
; which are contained at the front of the error messages file.

		EXPORT	e1_patch1_adr
e1_patch1_adr	DC.L	0
		EXPORT	e1_patch2_adr
e1_patch2_adr	DC.L	0

; The following word is accessed by the report_fatal routine in SCM to determine
; if GS/OS should be shutdown before the system is reset.

		EXPORT	e1_gsos_ok
e1_gsos_ok	DC.W	0		;1 if GS/OS is up and running, 0 if not

; The following 4 bytes are used for storing the load address of the file
; */SYSTEM/GS.OS.DEV

		EXPORT	e1_dev_address
e1_dev_address	DS.B	4

; The following 4 bytes are used for storing the load address of the file
; */SYSTEM/DRIVERS/BOOT.DRIVER

		EXPORT	e1_drvr_address
e1_drvr_address	DC.L	0		;initialized to nil

; The following 4 bytes are used for storing the load address of the file
; */SYSTEM/ERROR.MSG

		EXPORT	e1_msg_address
e1_msg_address	DS.B	4		;accessed by SCM

; The following bytes are used for storing the name of the boot volume
; in class 1 format beginning with a colon.

		EXPORT	e1_volname
e1_volname	DS.B	35		;accessed by SCM

; The following bytes are used for storing the application's filename
; in class 0 format with no separators.

		EXPORT	e1_app_filename
e1_app_filename	DS.B	33		;accessed by SCM

; The following bytes are used for storing the application's volume name or the
; boot volume name in class 0 format for the P8 'mount volume' window.

		EXPORT	e1_app_volname
e1_app_volname	DS.B	35

;Class 0 string containing the pathname of the start program.
;Maximum length of pathname is 67 bytes as follows - length (1 byte),
;slash (1 byte), volume name (32 bytes), slash (1 byte), filename (32 bytes)

		EXPORT	e1_start_prog0
e1_start_prog0	DS.B	67

;Class 1 string containing the pathname of the start program.
;Maximum length of pathname is 68 bytes as follows - length (2 bytes), separator
;(1 byte), volume name (32 bytes), separator (1 byte), filename (32 bytes)

		EXPORT	e1_start_prog1
e1_start_prog1	DS.B	68

; The following bytes are used for storing the pathname specified in a P8
; Quit call.  We need 67 bytes since the pathname may be converted to class 1.

		EXPORT	e1_p8quit_path
e1_p8quit_path	DS.B	67

; The following bytes are used for storing a prefix which came from P8
; or which will be used to set P8's prefix.
; The first 2 bytes are for the buffer size when making a class 1 GetPrefix
; call.  The next 67 bytes are used for - length (2 bytes),
; prefix (64 bytes - the P8 maximum), trailing slash (1 byte).

		EXPORT	e1_prefix_buf1
e1_prefix_buf1	DC.W	69		;size header for class 1 output string
		EXPORT	e1_prefix_buf
e1_prefix_buf	DS.B	67		;must follow e1_prefix_buf1

; The following bytes are used when setting prefix 1 to a null string
; and when making a Volume call

		EXPORT	e1_null_str
e1_null_str	DC.W	0		;a null string

; The following bytes are used for temporarily saving bank $00 data when making
; ProDOS 8 calls from the get_info_sub routine

		EXPORT	e1_bank0_save
e1_bank0_save	DS.B	bank0_area_used

; This buffer is used for Int2Hex calls.

		Entry	e1_errStr,e1_errBuf
e1_errStr	dc.b	4		;length byte (always 4 characters)
e1_errBuf	ds.b	4		;space for hex digits

		ENDP


		eject
;===============================================================================
;
; e1_strings
;
;===============================================================================

e1_strings	PROC

		EXPORT	e1_sys_filename
		EXPORT	e1_p8_path
		EXPORT	e1_lib_path
		EXPORT	e1_cons_path
		EXPORT	e1_fatal_msg
		EXPORT	e1_mount_msg
		EXPORT	e1_btn1_label
		EXPORT	e1_btn2_label

e1_sys_filename	DC.B	13		;class 0 string
		DC.B	':SYSTEM:START'
		DS.B	20		;extra space needed for 32 char name

e1_p8_path	DC.W	11		;class 1 string
		DC.B	'*:SYSTEM:P8'

e1_lib_path	DC.W	13		;class 1 string
		DC.B	'*:SYSTEM:LIBS'

e1_cons_path	DC.W	8		;class 1 string
		DC.B	'.CONSOLE'


;-------------------------------------------------------------------------------
; Message for P8_Fatal_Error routine
;-------------------------------------------------------------------------------

; The maximum length of this message is 35 characters.
; (The error code will be displayed immediately following the final character.)

e1_fatal_msg	DC.B	35		; Length byte
		DC.B	'Can'
		DC.B	$27
		DC.B	't run next application. Error=$'


;-------------------------------------------------------------------------------
; Messages for P8_Mount_Vol routine
;-------------------------------------------------------------------------------

; The maximum length of this message is 35 characters.
; The button labels must not be more than 16 characters.

e1_mount_msg	str	'Please insert the disk:'

e1_btn1_label	DC.B	13
		DC.B	'Accept: '
		DC.B	$1b		;Basic turn mousetext on code
		DC.B	$0f		;Basic turn inverse mode on
		DC.B	$4d		;Mousetest return character
		DC.B	$0e		;Basic turn normal mode on
		DC.B	$18		;Basic turn mousetext off code

e1_btn2_label	str	'Cancel: Esc'

		ENDP


		EXPORT	e1_end
e1_end		PROC
		ENDP


*********************************************************************************
org_dummy_8	proc	org e1_obj_max, skip	;generate an error if E1 code
		endp				;is too big
*********************************************************************************


		END

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/OS/GQuit/MakeSource b/IIGS.601.SRC/GS.OS/OS/GQuit/MakeSource
new file mode 100644
index 0000000..f39177b
Binary files /dev/null and b/IIGS.601.SRC/GS.OS/OS/GQuit/MakeSource differ
diff --git a/IIGS.601.SRC/GS.OS/OS/GQuit/MakeSource.c b/IIGS.601.SRC/GS.OS/OS/GQuit/MakeSource.c
new file mode 100644
index 0000000..4f9c158
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/OS/GQuit/MakeSource.c
@@ -0,0 +1 @@
+#include <stdio.h>
#include <memory.h>
#include <malloc.h>
#include <stdlib.h>
#include <string.h>
#include <types.h>

typedef struct {
    unsigned    count;
    unsigned    type;
    unsigned long length;
    unsigned long hndl;
} ScrapHeader;

typedef struct {
    unsigned    pictSCB;
    Rect        picFrame;
    unsigned    version;
} *PictHdrPtr;

typedef struct {
    unsigned    opcode;
    unsigned    size;
    Rect        clipRect;
} *ClipRgnPtr;

typedef struct {
    unsigned    opcode;
    unsigned    origSCB;
    unsigned    BWvsColor;
    unsigned    width;
    Rect        boundRect;
    Rect        srcRect;
    Rect        destRect;
    unsigned    mode;
    char        pixData[1]; /* actually is dynamic length */
} *BitsRectPtr;

ScrapHeader scrapHeader;

main(argc,argv)
int     argc;
char    *argv[];
{
    FILE    *clipboard;
    PictHdrPtr  pictHdr;
    ClipRgnPtr  clipRgn;
    BitsRectPtr bitsRect;
    char        *buffer;
    unsigned    numLines;
    unsigned    byteWidth;
    unsigned    loop1,loop2;
    unsigned    offset;

    if(argc != 2) {
        fprintf(stderr,"Invalid # of arguments\n");
        fprintf(stderr,"Usage: %s label\n", argv[0]);
        exit(-1);
    }

    /* open the clipboard file */
    clipboard = fopen("*/System/ClipBoard", "rb");
    if(!clipboard) {
        fprintf(stderr,"Unable to open clipboard file\n");
        exit(-1);
    }

    /* read the scrap header from the file */
    if((fread(&scrapHeader,sizeof(scrapHeader),1,clipboard)) == EOF) {
        fprintf(stderr,"Unable to read header from clipboard file\n");
        exit(-1);
    }

    /* make sure we've got a valid clipboard file */
    if((scrapHeader.count != 1) || (scrapHeader.type != 1)) {
        fprintf(stderr,"Invalid clipboard file\n");
        exit(-1);
    }

    /* allocate a buffer for the remainder of the file */
    if(!(buffer = malloc(scrapHeader.length))){
        fprintf(stderr,"Unable to allocate memory for file\n");
        exit(-1);
    }

    /* read the remainder of the file */
    if((fread(buffer,sizeof(char), (int) scrapHeader.length, clipboard)) == EOF) {
        fprintf(stderr,"Unable to read clipboard file\n");
        exit(-1);
    }

    /* close the file */
    fclose(clipboard);

    /* initialize the pointers to the structures within the file */
    pictHdr = (PictHdrPtr) buffer;
    clipRgn = (ClipRgnPtr) (buffer + 0x0c);
    bitsRect = (BitsRectPtr) (buffer + 0x18);

    /* make sure the pict version is correct */
    if((pictHdr->version != 0x8211) || (pictHdr->pictSCB != 0x80)) {
        fprintf(stderr,"Invalid pict version\n");
        exit(-1);
    }

    /* make sure we've got a cliprgn opcode first */
    if(clipRgn->opcode != 1) {
        fprintf(stderr,"First opcode is not ClipRgn\n");
        exit(-1);
    }

    /* make sure the next opcode is a BitsRect */
    if(bitsRect->opcode != 0x90) {
        fprintf(stderr,"Second opcode is not BitsRect\n");
        exit(-1);
    }

    /* calculate the # of lines in the pixel map */
    numLines = pictHdr->picFrame.v2 - pictHdr->picFrame.v1;

    /* retrieve the width from the BitsRect structure */
    byteWidth = bitsRect->width;

    /* print out the comments at the beginning of the source file */
    printf(";\n");
    printf("; This file was produced by a somewhat automated sequence\n");
    printf("; Please do not modify by hand unless you're SURE you know what you're doing!\n");
    printf(";\n");

    /* write out the equates for the assembly source */
    printf("%s_start\tPointAddress %d,%d\n", argv[1],
        pictHdr->picFrame.v1, pictHdr->picFrame.h1);
    printf("%s_width\tequ\t$%.04x\n", argv[1], bitsRect->width);
    printf("%s_height\tequ\t$%.04x\n", argv[1], numLines);
    putchar('\n');  /* leave a blank line */
    printf("%s\n", argv[1]);    /* then emit the label */

    /* loop through the pixel map, converting each scan line into a source line */
    for(loop1 = 0; loop1 < numLines; ++loop1) {
        offset = loop1 * byteWidth; /* calculate offset of this scan line within bitmap */
        printf("\t\tHEX\t"); /* start source line */
        for(loop2 = 0; loop2 < byteWidth; ++loop2) {
            printf("%.2X", bitsRect->pixData[offset + loop2]);
        }
        putchar('\n');
    } /* end of loop 1 */

    return(0);
}
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/OS/GQuit/Splash.Screen b/IIGS.601.SRC/GS.OS/OS/GQuit/Splash.Screen
new file mode 100644
index 0000000..e79fc72
Binary files /dev/null and b/IIGS.601.SRC/GS.OS/OS/GQuit/Splash.Screen differ
diff --git a/IIGS.601.SRC/GS.OS/OS/GQuit/Splash.Screen.Notes b/IIGS.601.SRC/GS.OS/OS/GQuit/Splash.Screen.Notes
new file mode 100644
index 0000000..95c0299
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/OS/GQuit/Splash.Screen.Notes
@@ -0,0 +1 @@
+The following information may be useful when altering the GS/OS graphics splash
screen.

The splash screen is generated by GLoader by storing graphics data directly to the
super-hi-res display buffer.  The icon and text strings are stored as bitmaps within
GLoader.  To modify any of these items, it is necessary to alter the bitmaps that
represent them.

To modify the text strings, take the following steps:

1)  Transport the Splash.Screen and MakeSource files to an Apple IIGS.

2)	Use AppleWorks.GS to edit this file.  The file is an AppleWorks.GS graphics
	file, which means that the text can be manipulated as objects.
	
3)	Make the necessary changes, then save the file for any possible future editing.

4)	Use the "Save AsÉ" menu item to save the image as an Apple Preferred Format
	graphic file.  This is necessary to save the text "objects" as bitmap images.

5)	Close the document, then open the Apple Preferred Format file that was just
	created.

6)	Use the rectangular selection tool to select the new text string.  Try to keep
	the selection as small as possible.

7)	Once the selection is complete, use the "Copy" menu item (or use Command-C)
	to copy the selection to the clipboard.

8)	Exit AppleWorks.GS (there's no need to save anything at this point).  AWGS should
	display a message telling you that it's saving the clipboard.

9)	Launch APW and execute the MakeSource utility.  The syntax is:

		MakeSource label >file

	The "label" argument will be used to generate the labels that are used by
	GLoader when it is assembled.  It should be either "text1" or "text2".  The
	"file" argument is the file which will receive the redirected output from the
	utility.
	
	This utility will read the clipboard file and generate the source text
	required for inclusion in the build of GLoader.

10)	Port the output file from MakeSoure back to MPW and cut-and-paste as necessary
	into the GLoader source file.


To modify the icon, use an Apple IIGS icon editor (such as DIcEd) that has the
capability to save the icon data as source text.  Once the source has been produced,
port the file to the GLoader source.

NOTE:  GLoader does not require the iconType, iconSize, or iconMask fields of the
generated icon record.  These fields must be deleted from GLoader's icon definition
prior to assembly.


Greg Branche
Apple II System Software
24 September 1990
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/OS/InitManager/Init.Data.Src b/IIGS.601.SRC/GS.OS/OS/InitManager/Init.Data.Src
new file mode 100644
index 0000000..4ddeead
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/OS/InitManager/Init.Data.Src
@@ -0,0 +1 @@
+		string	asis
;==========================================================
;
;  init.data
;
;  Data structure area for the GS/OS initialization package.
;
;  Author:      Andy Stadler
;  Created:     12-Jan-87
;  Modified:    See modification history below
;
;  Copyright (C) 1987-1989 Apple Computer, Inc.
;  All Rights Reserved.
;
;=============================================================================
;
;  Modification history:
;
;  01-Feb-88    ADS     Initial release
;  15-Feb-88    ADS     Text mode stuff
;  23-Feb-88    ADS     Slid screen stuff around for 'fmt too large'
;                       indicators
;  06-Apr-88    CAE     added 'which_class' variable
;  25-Jul-88    CAE     removed leading spaces from format strings
;                       changed 'k' to 'K'
;  10-Aug-88    FAB     at pubs request (orders) restored leading spaces in
;                       format strings.  Also changed 'Mb' to
;                       ' MB' and 'Gb' to ' GB' again at pubs request.
;  21-Dec-88	CAE	added msg_flag, msg_window, save_port, msg_parms
;  12-Jan-89	CAE	moved scr_save_buf here from equates
;  23-Mar-89	CAE	added 'dot_five' string
;=============================================================================

		print	push
		print	off
		include 'E16.Control'
		include	'E16.Window'
		print	pop
		
init_data	Proc	Export		;can't be a Record 'cause of AsmIIGS bug
		Import	draw_window
		with	fmt_list_record,fst_list_record

;  non-page-zero variables

		EXPORT	which_class
which_class	DC.W	0
		EXPORT	which_call
which_call	DC.W	0
		Export	my_dp
my_dp		dc.w	0
		EXPORT	save_cursor
save_cursor	DC.L	0
		EXPORT	cons_dev_num
cons_dev_num	DC.W	0
		EXPORT	vid_state
vid_state	DC.W	0
		EXPORT	console_state
console_state	DC.W	0

;msg_flag = 0 if the 'Initializing...' message was not put up
;	  = 1 if the message was put up in graphics mode
;	  = -1 if the message was put up in text mode

		EXPORT	msg_flag
msg_flag	DC.W	0			;Added CAE 12/21/88
		EXPORT	msg_window
msg_window	DC.L	0			;Added CAE 12/21/88
		EXPORT	save_port
save_port	DC.L	0			;Added CAE 12/21/88
		EXPORT	scr_save_buf
scr_save_buf	DC.L	0			;Added CAE 1/12/89
		Export	currentFST
currentFST	ds.w	1			;stores FST ID of currently selected FST
		Export	path_vp
path_vp		ds.l	1			;stores VP of volume name after it's entered
		Export	save_in_port
save_in_port	ds.l	1			;VP of saved Input Port record
		Export	save_term_list
save_term_list	ds.l	1			;VP of saved terminator list
		Export	save_list_len
save_list_len	ds.w	1			;length of saved terminator list
		Export	save_dflt_string
save_dflt_string ds.l	1			;VP of saved default string
		Export	dflt_string_len
dflt_string_len	ds.w	1			;length of saved default string

; used in add_size_str procedure
		Export	dest_buffer
dest_buffer	DS.B	dest_length

; alert window definition table

		EXPORT	init_wnd_parms
init_wnd_parms	DC.W	end_wnd_parms-init_wnd_parms
		DC.W	$2020			; alert, visible
		DC.L	0			; no title
		DC.L	0			; refcon
		DC.L	0			; zoom size
		DC.L	0			; zoom size
		DC.L	0			; default colors
		DC.L	0			; origin point
		DC.L	0			; content size
		DC.L	0			; max grow size
		DC.L	0			; arrow scroll distance
		DC.L	0			; page scroll distance
		DC.L	0			; info refcon
		DC.W	0			; info bar height
		DC.L	0			; std frame defproc
		DC.L	0			; info bar defproc
		DC.L	draw_window		; content defproc
		DC.W	30,120			; top left corner
		DC.W	178,520			; bottom right corner
		DC.L	-1			; topmost window
		DC.L	0			; no memory yet
;		EXPORT	end_wnd_parms
end_wnd_parms


; 'Initializing...' alert window definition table

		EXPORT	msg_parms		;Added CAE 12/21/88
msg_parms	DC.W	end_msg_parms-msg_parms
		DC.W	$2020			; alert, visible
		DC.L	0			; no title
		DC.L	0			; refcon
		DC.L	0			; zoom size
		DC.L	0			; zoom size
		DC.L	0			; default colors
		DC.L	0			; origin point
		DC.L	0			; content size
		DC.L	0			; max grow size
		DC.L	0			; arrow scroll distance
		DC.L	0			; page scroll distance
		DC.L	0			; info refcon
		DC.W	0			; info bar height
		DC.L	0			; std frame defproc
		DC.L	0			; info bar defproc
		DC.L	0			; content defproc
		DC.W	90,220			; top left corner
		DC.W	110,420			; bottom right corner
		DC.L	-1			; topmost window
		DC.L	0			; no memory yet
;		EXPORT	end_msg_parms
end_msg_parms	

  
;  rect into which the 'fst too large' warning fits

numLines	equ	4
msgTop		equ	87
		EXPORT	warn_rect
warn_rect	dc.w	msgTop			;Rect to display message in
		dc.w	20
		dc.w	(numLines*9)+msgTop
		dc.w	380

		Export	first_rect
first_rect	dc.w	msgTop			;Rect to display initial message in
		dc.w	80			;(leave enough room for the 'Caution' icon)
		dc.w	(numLines*9)+msgTop
		dc.w	380

dfltTop		equ	128
dfltLeft	equ	237
dfltBottom	equ	dfltTop+15
dfltRight	equ	dfltLeft+90

CancelTop	equ	dfltTop
CancelLeft	equ	73
CancelBottom	equ	CancelTop+15
CancelRight	equ	CancelLeft+90

		Export	MyControls
MyControls	dc.l	CancelButton
		dc.l	defaultButton
		dc.l	list2_rec
		dc.l	list1_rec
		dc.l	editLine
		dc.l	0

		Export	dflt_title
defaultButton	dc.w	9			;Param count
		dc.l	defaultButtonID		;Control #
		dc.w	dfltTop			;control rect
		dc.w	dfltLeft
		dc.w	dfltBottom
		dc.w	dfltRight
		dc.l	$80000000		;Simple button
		dc.w	0			;Flags (single outline button)
		dc.w	$3000			;More flags
		dc.l	0			;Refcon
dflt_title	dc.l	0			;title pointer
		dc.l	0			;No color table
		dc.b	$0d			;key equivalent = carriage return
		dc.b	$0d
		dc.w	%0000000100000000	;Open-Apple modifier needed
		dc.w	%0000000100000000

		Export	cancel_title
CancelButton dc.w	9			;Param count
		dc.l	CancelButtonID		;Control #
		dc.w	CancelTop
		dc.w	CancelLeft
		dc.w	CancelBottom
		dc.w	CancelRight
		dc.l	$80000000		;Simple button
		dc.w	0			;Flags
		dc.w	$3000			;More flags
		dc.l	0			;Refcon
cancel_title	dc.l	0			;Title Pointer
		dc.l	0			;No color table
		dc.b	$1b			;key equivalent = ESC
		dc.b	$1b
		dc.w	0			;no modifiers needed
		dc.w	0

;  fst list record - graphics list manager

		EXPORT	list1_size,list1_ref
list1_rec
		dc.w	14			;pCount
		dc.l	fstListID		;control ID
		dc.w	39,40			;rect
		dc.w	81,160
		dc.l	listControl		;procref
		dc.w	$0040			;flags
		dc.w	fCtlProcRefNotPtr+\
			fCtlCanBeTarget+\
			fCtlIsMultiPart		;moreflags
		dc.l	0			;refcon
list1_size	dc.w	0			;listSize
		dc.w	4			;listView
		dc.w	2			;listType (single selections, pStrings)
		dc.w	1			;listStart
		dc.l	0			;listDraw
		dc.w	10			;listMemHeight
		dc.w	ff_size			;listMemSize
list1_ref	dc.l	0			;listRef

;  fmt list record - graphics list manager

		EXPORT	list2_size,list2_ref
list2_rec
		dc.w	14			;pCount
		dc.l	intrlvListID		;control ID
		dc.w	39,216			;rect
		dc.w	81,336
		dc.l	listControl		;procref
		dc.w	$0040			;flags
		dc.w	fCtlProcRefNotPtr+\
			fCtlCanBeTarget+\
			fCtlIsMultiPart		;moreflags
		dc.l	0			;refcon
list2_size	dc.w	0			;listSize
		dc.w	4			;listView
		dc.w	2			;listType (single selections, pStrings)
		dc.w	1			;listStart
		dc.l	0			;listDraw
		dc.w	10			;listMemHeight
		dc.w	df_size			;listMemSize
list2_ref	dc.l	0			;listRef

		Export	editLine,name_default
editLine	dc.w	8			;pCount
		dc.l	editLineID		;ID
		dc.w	18,65			;rect
		dc.w	31,360
		dc.l	editLineControl		;procRef
		dc.w	0			;flags
		dc.w	fCtlCanBeTarget+\
			fCtlWantEvents+\
			fCtlProcRefNotPtr	;moreFlags
		dc.l	0			;refCon
		dc.w	32			;maxSize
name_default	dc.l	0			;defaultRef

; fst list record - text list 'manager'

		EXPORT	tx_list_1
tx_list_1
		DC.L	0			; member list ptr
		DC.B	17+32,10+32		; port to draw list in
		DC.B	36+32,14+32
		DC.W	0			; number entries in list
		DC.W	0			; current selection
		DC.W	0			; top displayed entry
		DC.W	ff_size			; list entry size

; fmt list record - text list 'manager'

		EXPORT	tx_list_2
tx_list_2
		DC.L	0			; member list ptr
		DC.B	43+32,10+32		; port to draw list in
		DC.B	62+32,14+32
		DC.W	0			; number entries in list
		DC.W	0			; current selection
		DC.W	0			; top displayed entry
		DC.W	df_size			; list entry size


; event record for event manager

		Export	TaskRecord,TaskData4
TaskRecord
EventWhat	ds.w	1
EventMessage	ds.w	2
EventWhen	ds.w	2
EventWhere	ds.w	2
EventModifiers	ds.w	1
TaskData	ds.w	2
TaskMask	dc.l	tmIdleEvents+\
			tmControlKey+\
			tmContentControls+\
			tmFindW+\
			tmUpdate+\
			0			;to make editing easier!
		dc.l	0			;wmLastClickTick
		dc.w	0			;wmClickCount
		dc.l	0			;wmTaskData2
		dc.l	0			;wmTaskData3
TaskData4	dc.l	0			;wmTaskData4
		dc.l	0			;wmLastClockPt


; strings for make_fmt_str routine
; (moved here to get more space in bank 0 language card area)

		string	Pascal
bytes_string	DC.B	' bytes'	

kb_string	DC.B	'K'		

mb_string	DC.B	' MB'		

gb_string	DC.B	' GB'		

		EXPORT	two_spaces
two_spaces	DC.B	'  '		

		EXPORT	colon_one
colon_one	DC.B	':1'		

		EXPORT	dot_five
dot_five	DC.B	'.5'		

		String	AsIs

		EXPORT	fmt_str_tb
fmt_str_tb	DC.L	bytes_string
		DC.L	kb_string
		DC.L	mb_string
		DC.L	gb_string

		ENDP

pb_stuff	Record
		export	pb_reqFileSysID
pb_reqFileSysID	ds.w	1		; reqFileSysID parameter
		export	pb_flags
pb_flags	ds.w	1		; flags parameter
		EndR

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/OS/InitManager/Init.Equ.Src b/IIGS.601.SRC/GS.OS/OS/InitManager/Init.Equ.Src
new file mode 100644
index 0000000..1c361e7
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/OS/InitManager/Init.Equ.Src
@@ -0,0 +1 @@
+		string	asis
;==========================================================
;
;  init.equ
;
;  Direct page, data structure definitions, etc for
;  the GS/OS initialization package.
;
;  Author:      Andy Stadler
;  Created:     15-Dec-87
;
;  Copyright (C) 1987-1989 Apple Computer, Inc.
;  All Rights Reserved.
;
;==========================================================

;
; data template for the format list records
;
fmt_list_record	record	0
df_mem_ptr	ds.l	1		; pointer to string
df_mem_flag	ds.b	1		; list mgr enable bits
df_fill_byte	ds.b	1		; filler byte (unused)
df_refnum	ds.w	1		; my refnum
df_one_fst	ds.w	1		; first applicable fst
df_string	ds.l	1		; descriptor string vp
df_conf_num	ds.w	1		; driver's refnum
df_alias	ds.w	1		; alias format refnum
df_flags	ds.w	1		; format type flags
df_block_ct	ds.l	1		; blocks created
df_block_sz	ds.w	1		; block size
df_interleave	ds.w	1		; interleave factor 1:n
df_fmt_size	ds.w	1		; format total size (for display)
df_size
		endr

;
; data template for the FST list records
;
fst_list_record	record	0
ff_mem_ptr	ds.l	1		; pointer to string
ff_mem_flag	ds.b	1		; list mgr enable bits
ff_fill_byte	ds.b	1		; filler byte (unused)
ff_refnum	ds.w	1		; my entry #
ff_fs_num	ds.w	1		; file system #
ff_block_sz	ds.w	1		; block size
ff_max_blocks	ds.l	1		; max block count
ff_min_blocks	ds.l	1		; min block count
ff_flags	ds.w	1		; format type flags
ff_match_ct	ds.w	1		; applicable dev fmt count
ff_match_lst	ds.l	1		; applicable dev fmt list
ff_prompt	ds.l	1		; pointer to prompt string returned by JudgeName
ff_size
		endr

;
; data template for the text list records
;
tx_list_record	Record	0
member_ptr	ds.l	1		; pointer to member list records
port		ds.b	4		; rect defining textport
num_entries	ds.w	1		; number of entries in list
current_entry	ds.w	1		; current selection
top_entry	ds.w	1		; entry currently displayed at top
list_entry_size	ds.w	1		; size of member records
		EndR

;
; data template for my Direct Page usage
;
my_direct_page	record	$80		; starts in FST work area
fmt_list_vp	ds.l	1		; VP to format list records
fmt_list_ptr	ds.l	1		; pointer to format list records
fmt_list_entry	ds.l	1		; pointer to single format list record
fmt_disp_cnt	ds.w	1		; number of records in format list to display
fmt_total_cnt	ds.w	1		; number of records in format list
fst_list_vp	ds.l	1		; VP to FST list records
fst_list_ptr	ds.l	1		; pointer to FST list records
fst_list_entry	ds.l	1		; pointer to single FST list record
fst_list_cnt	ds.w	1		; number of records in FST list
fmt_def_fmt	ds.w	1		; driver's default format
fmt_cur_med	ds.w	1	
chosen_fst	ds.w	1		; selected FST
chosen_fmt	ds.w	1		; selected format
init_choice	ds.w	1		; result of dialog, 0 = cancel, 1 = do it!
init_screen	ds.w	1		; state of screen on entry - grx vs. txt
init_temp_1	ds.l	1		; temporary storage
init_temp_2	ds.l	1	
init_temp_3	ds.l	1	
init_temp_4	ds.l	1	
common_end

; the following are for use by the Graphics dialog only
		org	common_end
save_rts	ds.w	1		; used to save RTS address during tool call
init_window	ds.l	1		; window record pointer for grx window
ok_handle	ds.l	1		; handle to default button control record
edit_handle	ds.l	1		; handle to editLine control record
list1_handle	ds.l	1		; handle to FST list control record
list2_handle	ds.l	1		; handle to format list control record
end_grx_dp			;end of graphics direct page

; the following are used by the Text dialog only
		org	common_end
top_bar_pos	ds.w	1		; currently active 'control'
tx_cur_entry	ds.w	1	
tx_list_ptr	ds.l	1	
tx_entry_ptr	ds.l	1	
txt_name_ptr	ds.l	1		;pointer to name buffer for text dialog
end_txt_dp				;end of text direct page

		org			;reset assembler PC to max
end_my_dp
my_dp_size	equ	end_my_dp-my_direct_page
		endr

;------------------------------------------

header_length	equ	$30
init_1_org	equ	$00b200
init_1_max	equ	$00b300
init_2_org	equ	$00d400
init_2_max	equ	$00e000
init_3_org	equ	$01d000
init_3_max	equ	$01e000
init_4_org	equ	$E0d400
init_4_max	equ	$E0e000

; miscellaneous equates
dest_length	equ	16

; control id equates
CancelButtonID	equ	1
defaultButtonID equ	2
fstListID	equ	3
intrlvListID	equ	4
editLineID	equ	5


jn_parmBlock	Record	0			;template for parameter block
pCount		ds.w	1			;pCount, get's set externally
fileSysID	ds.w	1			;file system ID
nameType	ds.w	1			;name type = volume name
syntax		ds.l	1			;storage for syntax prompt pointer
maxLen		ds.w	1			;max length of name
name		ds.l	1			;points to new volume name
nameFlags	ds.w	1			;translation flags
		EndR

InputPortRec	Record	0			;template for Console Driver InputPortRec
fillChar	ds.b	1
defCursor	ds.b	1
cursorMode	ds.b	1
beepFlag	ds.b	1
entryType	ds.b	1
exitType	ds.b	1
lastChar	ds.b	1
lastMod		ds.b	1
lastTermChar	ds.b	1
lastTermMod	ds.b	1
cursorPos	ds.b	1
inputLength	ds.b	1
originH		ds.b	1
originX		ds.b	2
originV		ds.b	1
		EndR

		Macro
		_SysBeep
		ldx	#$2c03
		jsl	$E10000
		MEnd

cautionIcon	equ	$07ff0004
stopIcon	equ	$07ff0002
rIcon		equ	$8001

; console driver control codes

saveTxtPort	equ	$01			;save the current text port
setTxtPortSize	equ	$02			;set the text port boundaries
clearBOL	equ	$03			;clear to beginning of line
popTxtPort	equ	$04			;pop text port
hScroll		equ	$05			;horizontal scroll
setVertPosition	equ	$06			;set vertical cursor position
bell		equ	$07			;beep!
backspace	equ	$08			;backspace
tab		equ	$09
linefeed	equ	$0A
clearEOS	equ	$0B			;clear to end of text port
clearScreen	equ	$0C			;clear textport & home cursor
carriageReturn	equ	$0D
normal		equ	$0E			;set display format to normal
inverse		equ	$0F			;set display format to inverse
spaceExpansion	equ	$10			;DLE space expansion
column40	equ	$11			;set 40-column mode
column80	equ	$12			;set 80-column mode
clearBOS	equ	$13			;clear to beginning of text port
setHorzPosition	equ	$14			;set horizontal position
setCursWord	equ	$15			;set cursor movement word
scrollDown	equ	$16			;scroll text down one line
scrollUp	equ	$17			;scroll text up one line
mouseOff	equ	$18			;disable MouseText mapping
homeCursor	equ	$19			;reset cursor to upper left corner
clearLine	equ	$1A			;clear current cursor line
mouseOn		equ	$1B			;enable MouseText mapping
cursorRight	equ	$1C			;move cursor right
clearEOL	equ	$1D			;clear to end of line
gotoxy		equ	$1E			;goto x,y
cursorUp	equ	$1F			;move cursor up
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/OS/InitManager/Init1.Src b/IIGS.601.SRC/GS.OS/OS/InitManager/Init1.Src
new file mode 100644
index 0000000..e3e6376
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/OS/InitManager/Init1.Src
@@ -0,0 +1 @@
+		string	asis
		pagesize 70

		print	push
		print	off
		Include	'Common.Equ.Src' 
		include	'init.equ.src'	
saved_dp	equ	$01FD00
		print	pop

;===============================================================================
;
; init.1.s
;
;===============================================================================

init_1_header	PROC	org init_1_org-header_length
		Import	Init_1_end,init_1_start

		msb	on

		DC.W	init_1_end-init_1_start
		DC.L	init_1_org
		DC.W	$0000
		DC.B	'Init Manager part 1   v04.00' 
		DC.B	00

		msb	off

		ENDP

init_1_start	PROC	org init_1_org
		ENDP
		
		
;==========================================================
;
;  file init.1
;
;  This is the interface area of the init package.  It is
;  called by SCM in response to a $24 FORMAT or $25 ERASE_
;  DISK application call.  In addition, it contains code
;  and data which may be needed outside of the language cards.
;
;  Author:      Andy Stadler
;  Created:     26-Jan-88
;  Modified:    See modification history below
;
;  Copyright (C) 1988-1989 Apple Computer, Inc.
;  All Rights Reserved.
;
;==========================================================
;
;  Modification history:
;
;  01-Feb-88    ADS     Initial release
;  04-Feb-88    ADS     std_buffer, strings added
;  15-Feb-88    ADS     strings removed  get_str_addr added
;  23-Feb-88    ADS     crunching.  cp[n]_t2x_t3y created
;  09-Jan-89	CAE	added init_pack_end routine
;
;==========================================================


		DataChk	off
					;using   common_equ
					;using   init_equ
					;using   fst_tbl_data
		longa	on
		longi	on

		Eject
;==========================================================
;
;  jsl init_pack
;
;  Is the entry point for SCM.
;
;  Inputs:      X = call number x 2
;               Y = call class x 2
;               dev_num = device number to be formatted
;               path2_ptr = volume name of new volume
;
;  Outputs:     A = fst id if !C
;                 = error # if C
;                 = 0 if format cancelled
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000..|
;                          0 = no error, 1 = error
;
;  This routine may move memory.
;
;==========================================================

init_pack	Proc	Export
		Import	init_main,lc_dispatcher

		pea	init_main>>16
		pea	init_main
init_cont	
		pea	1		; into the card!
		jsl	lc_dispatcher

		rtl


;==========================================================
;
;  jsl init_pack_end
;
;  Entry point called by SCM after the format or erase is completed.
;
;  Inputs:      none
;
;  Outputs:     A = error # if C
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000..|
;                          0 = no error, 1 = error
;
;  This routine may move memory.
;  This routine added 1/9/89 CAE.
;
;==========================================================

		EXPORT	init_pack_end
init_pack_end				               
		Import	remove_msg

		pea	remove_msg>>16
		pea	remove_msg
		bra	init_cont
		EndP

		Eject
****************************************************************************************************
*
save_my_dp	Proc
*
* Description
*	Saves the FST work area prior to making a call to an FST
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
		with	my_direct_page
*
* Entry Points:
*	none
*
		longa	on			; mode
		longi	on
*
****************************************************************************************************

		ldx	#my_dp_size-2
@loop
		lda	<my_direct_page,x	;copy from direct page to save area
		sta	>saved_dp,x
		dex
		dex
		bpl	@loop			;loop until X drops below $00
		rts
		EndProc


		Eject
****************************************************************************************************
*
restore_dp	Proc
*
* Description
*	Restores the contents of my direct page after a call to an FST
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
		with	my_direct_page
*
* Entry Points:
*	none
*
		longa	on			; mode
		longi	on
*
****************************************************************************************************

		php				;save status
		pha				;and possible error code
		ldx	#my_dp_size-2
@loop
		lda	>saved_dp,x		;copy from save area to direct page
		sta	<my_direct_page,x
		dex
		dex
		bpl	@loop			;until X drops below $00
		
		pla				;restore accumulator
		plp				; and status
		rts
		EndProc

		Eject
****************************************************************************************************
*
call_judgename	Proc	Export
*
* Description
*	Used by Init Manager to perform an internal call to an FST's JudgeName
*	facility.  Must first buffer off some SCM variables, then call a SCM
*	internal entry point, then restore SCM's variables.
*
* Inputs:
*	jn_parms set up properly
*
* Outputs:
*	Acc = error code from JudgeName call, if any
*	jn_parms contains parameters returned from call
*
* External Refs:
		Import	do_judgename,jn_parms
		Import	class,num		; in SCM
*
* Entry Points:
*	none
*
		longa	on			; mode
		longi	on
*
****************************************************************************************************

		phb				; save current DBR
		pea	$0000			; set to SCM's data bank
		plb
		plb

		pei	<param_blk_ptr		;Save parameter block pointer.
		pei	<param_blk_ptr+2
		lda	#jn_parms		;Set param_blk_ptr to our parms.
		sta	<param_blk_ptr
		lda	#jn_parms>>16
		sta	<param_blk_ptr+2

		pei	<call_number		;Save call number.
		lda	#$2007			;Set call number (JudgeName).
		sta	<call_number		

		lda	|num			;Save num
		pha
		lda	#7*2			;Set num to call # times 2.
		sta	|num

		lda	|class			;Save class.
		pha
		lda	#0002			;Set to class 1.
		sta	|class

		jsr	save_my_dp		; save my direct page values
		jsr	do_judgename		; make the JudgeName call
		jsr	restore_dp		; restore my direct page values

		plx				;Restore class.
		stx	|class
		
		plx				;Restore num.
		stx	|num

		plx				;Restore call number.
		stx	<call_number
		plx				;Restore parameter block pointer.
		stx	<param_blk_ptr+2
		plx
		stx	<param_blk_ptr
		plb				; restore my DBR
		rtl

		export	jn_parms
jn_parms	ds	jn_parmBlock		;parameter block for JudgeName call

		EndProc



		eject
;==========================================================
;
;  cp[n]_t2x_t3y
;
;  Copies n words of data from [<init_temp_2],x
;  to [<init_temp_3],y and increments each by 2n.
;
;  Inputs:      init_temp_2 = source base
;               init_temp_3 = dest base
;               X = source data offset
;               Y = dest data offset
;
;  Outputs:     A = trashed
;               X = incremented by 2n
;               Y = incremented by 2n
;               P = nvmxdizc
;                   ..000...
;
;==========================================================

cp8_t2x_t3y	Proc	Export
		Export	CP1_T2X_T3Y,CP4_T2X_T3Y
		with	my_direct_page

		jsl	cp4_t2x_t3y
cp4_t2x_t3y
		jsl	cp2_t2x_t3y
cp2_t2x_t3y
		jsl	cp1_t2x_t3y

cp1_t2x_t3y
		phy
		txy
		lda	[<init_temp_2],y
		ply
		sta	[<init_temp_3],y
		inx
		inx
		iny
		iny
		rtl
		EndP

		eject
;==========================================================
;
;  jsl get_msg_address
;
;  called by the language card stuff to get the address
;  of the strings table.
;
;==========================================================

get_msg_address	Proc	Export
		Import	e1_msg_address

		lda	>e1_msg_address
		tax
		lda	>e1_msg_address+2
		tay
		rtl
		EndP

 if 0 then
;==========================================================
;
; record used to save and restore my direct page variables around
; a call to an FST
;
;==========================================================

saved_dp	Record
		ds.b	my_dp_size
		EndR
 endif

		eject
;==========================================================
;
;  Contained here is data which MUST be in non-language
;  card area, because it is accessed by the console driver.
;
;==========================================================

std_buffer	Record	Export
		DC.L	0

		Export	set_list_str
set_list_str	DC.B	6
		DC.B	$01,$02		; push vp, set vp
		DC.B	0,0,0,0

; the order of the following terminators is important.  If you change it, you must
; change the constant comparison operands in 'handle_edit'

		Export	term_list,term_list_len:equ
term_list	
		dc.b	$7f,%11100011	; termMask
		dc.w	5		; termCount (5 terminators)
		dc.b	$0d,%10000000	; Return w/Apple key
		dc.b	$1b,%00000000	; Esc
		dc.b	$09,%00000000	; Tab
		dc.b	'?',%10100001	; Open-Apple ?, interrupt
		dc.b	'/',%10100000	; Open-Apple /, interrupt
term_list_end
term_list_len	equ	term_list_end-term_list

		Export	dflt_input_port
dflt_input_port	dc.b	' '		; fillChar
		dc.b	$80		; defCursor
		dc.b	$80		; cursorMode
		dc.b	$FF		; beepFlag
		dc.b	$00		; entryType

		Export	input_port
input_port	ds	InputPortRec

		EndR
		DataChk	on
		
;===============================================================================
;
; init.1.e
;
;===============================================================================

init_1_end	PROC	
		ENDP
		
init_1_dummy	PROC	org init_1_max, skip	;generate an error if code is too big
		ENDP

		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/OS/InitManager/Init2.Src b/IIGS.601.SRC/GS.OS/OS/InitManager/Init2.Src
new file mode 100644
index 0000000..4359e80
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/OS/InitManager/Init2.Src
@@ -0,0 +1 @@
+		string	asis
		pagesize 70
		
		longa	on
		longi	on
		
;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

		Import	CurrentFST
		IMPORT	get_string
		IMPORT	lc_dispatcher
		IMPORT	warn_rect
		IMPORT	which_call
		IMPORT	which_class

		print	push
		print	off
		Include	'common.equ.src' 
		include	'init.equ.src'
		include 'E16.Control'
		include 'E16.Window'
		print	pop

;===============================================================================
;
; init.2.s
;
;===============================================================================

init_2_header	PROC	org init_2_org-header_length
		Import	init_2_start,init_2_end

		msb	on

		DC.W	init_2_end-init_2_start
		DC.L	init_2_org
		DC.W	$8000
		DC.B	'Init Manager part 2   v04.02'	;2-Apr-93 SS
		DC.B	00

		msb	off

		ENDP

		
init_2_start	PROC	org init_2_org	
		ENDP

		Eject
;==========================================================
;
;  file init.2
;
;  Contains the main dispatcher, core routines and the
;  graphics user interface portions of the init package,
;  or at least as much of them as will fit in 3k.
;
;  Author:      Andy Stadler
;  Created:     29-Jan-88
;  Modified:    See modification history below
;
;  Copyright (C) 1988-1989 Apple Computer, Inc.
;  All Rights Reserved.
;
;==========================================================


;==========================================================
;
;  file init.main
;
;  Actually handles dispatching the $24 and $25 calls.
;
;  Author:      Andy Stadler
;  Created:     1-Jan-88
;  Modified:    See modification history below
;
;  Copyright (C) 1987 Apple Computer, Inc.
;  All Rights Reserved.
;
;==========================================================
;
;  Modification history:
;
;  01-Feb-88    ADS     Initial release
;  23-Feb-88    ADS     Setting my own data bank
;                       Using that for data area references
;  06-Apr-88    CAE     Modified to handle new field in class 1 calls
;  21-Dec-88	CAE	Added line in init_main to jsr to display_msg
;  09-Jan-89	CAE	Added line in init_main to clear msg_flag
;  09-Mar-89	CAE	Moved jsr setup_screen to init_present to fix bug
;  26-Jul-89	CAE	Split setup_screen into 2 routines and modified
;			init_present to fix bug in which the init_screen
;			flag was not initialized in the non-dialog mode
;			which caused display_msg to screw up.
;==========================================================

;==========================================================
;
;  init.grx
;
;  Super hires graphics based user interface for the
;  init package.  Puts up a dialog window and prompts
;  the user for selection of formatting options.
;
;  Author:      Andy Stadler
;  Created:     11-Jan-88
;  Modified:    See modification history below
;
;  Copyright Apple Computer, Inc. 1987-1989
;  All rights reserved.
;
;==========================================================
;
;  Mod history
;
;  01-Feb-88    ADS     Initial release
;  15-Feb-88    ADS     Added entry points for init.tx
;                       Changed to use international strings
;  23-Feb-88    ADS     General crunching
;                       Additions for 'format too large' indicator
;  30-Mar-88    CAE     Changed to use strings which say
;                       'Format' or 'Erase' instead of 'Initialize'
;  06-Apr-88    CAE     Modified to handle new field in class 1 calls
;
;==========================================================

		eject
;==========================================================
;
;  file init.core
;
;  Contains the main routines for the init package.
;  Everything past the entry vectors but not including
;  user interface.
;
;  This is all a part of the bank 1 language card area.
;
;  Author:      Andy Stadler
;  Created:     15-Dec-87
;  Modified:    See modification history below
;
;  Copyright (C) 1987 Apple Computer, Inc.
;  All Rights Reserved.
;
;==========================================================
;
;  Modification history:
;
;  01-Feb-88    ADS     initial release
;  04-Feb-88    ADS     hooked to actual text dialog
;  10-Feb-88    ADS     make_fmt_str will round up drive
;                       sizes instead of truncating, so a
;                       19.8 Meg hard disk says 20MB.
;  23-Feb-88    ADS     General crunching
;                       Use of abs mode for data area refs
;                       call_tools_0 added
;                       Stuff for 'size warning' messages added
;  06-Apr-88    CAE     modified to handle new field in class 1 Format
;                       and Erase calls
;  04-May-88    CAE     Format options now show only current
;                       block size if Erase call made
;                       Strings in make_fmt_str routine
;                       moved to data segment to gain space.
;  29-Jun-88    CAE     Fixed compare code in cmp_fmt_fst.
;  21-Jul-88    CAE     Fixed compare code in chk_fst_size.
;  22-Jul-88    CAE     Fixed setup_screen so that it goes
;                       into text mode if ListMgr not loaded.
;  08-Feb-89	CAE	Added check for error after call to 
;			tx_dialog in init_present.
;  23-Mar-89	CAE	Modified make_fmt_str to not round up Megs
;==========================================================


init_core	Proc	Export

;==========================================================
;
;  jsl call_alloc       (alloc_seg)
;  jsl call_deref       (deref)
;  jsl call_release     (release_seg)
;  jsl call_dispatch    (dev_dispatcher)
;
;  Since this code is in the language card, glue is needed
;  to get to external routines.
;
;  jsr call_tools_0     ($E10000)
;
;  Saving 1 byte per call adds up!
;
;  Inputs & Outputs:  As per the actual routines.
;
;
; Change History
;
; 10 Feb 89	Bryan, Ray and Steve
;
; To save a few bytes we share a little code.
;
;==========================================================

		EXPORT	call_alloc
call_alloc
		pea	#^alloc_seg
		pea	|alloc_seg		;Low word only
		bra	ShareDispatch

		EXPORT	call_deref
call_deref
		pea	#^deref
		pea	|deref			;Low word only
		bra	ShareDispatch

		EXPORT	call_release
call_release
		pea	#^release_seg
		pea	|release_seg		;Low word only
		bra	ShareDispatch

		EXPORT	call_dispatch
call_dispatch
		pea	#^dev_dispatcher
		pea	|dev_dispatcher		;Low word only
		bra	ShareDispatch

		Export	call_lock_mem
call_lock_mem
		pea	#^lock_mem		; sys service call
		pea	|lock_mem		;Low word only
		bra	ShareDispatch

		Export	call_unlock_mem
call_unlock_mem
		pea	#^unlock_mem		;sys service call
		pea	|unlock_mem		;Low word only

ShareDispatch	pea	0
		jsl	>lc_dispatcher
		rtl

		entry	call_tools_0
call_tools_0
		with	my_direct_page

		pla
		sta	<save_rts
		jsl	$E10000
		pei	<save_rts
		rts
		EndP

		eject
;==========================================================
;
;  nextmember_1
;  nextmember_2
;
;  This quite common call is centralized here.
;
;  Outputs:     A = item number returned from NextMember call
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000..0
;
;==========================================================

nextmember_1	Proc
		with	my_direct_page

		ldx	<list1_handle
		ldy	<list1_handle+2
		bra	nextmember_com

		Entry	nextmember_2
nextmember_2
		ldx	<list2_handle
		ldy	<list2_handle+2

nextmember_com
		lda	#0
		pha				; word result
		pha				; NIL = search all entries
		phy				; handle to list control
		phx
		ldx	#$121C			; NextMember2
		jsr	call_tools_0

		pla				; result
		rts
		EndP

		eject
;==========================================================
;
;  make_fmt_ptr
;
;  fmt_list_entry  <-  fmt_list_ptr + (A * fd_size)
;
;  Inputs:      fmt_list_ptr = ptr to list of available formats
;               A = index number of desired entry
;
;  Outputs:     fmt_list_entry = ptr to desired entry
;               A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000...
;
;==========================================================

make_fmt_ptr	Proc
		with	my_direct_page,fmt_list_record

		tax
		beq	make_fmt_ptr_2		; if index == 0 then offset = 0
		lda	#0

make_fmt_ptr_1
		clc
		adc	#df_size

		dex
		bne	make_fmt_ptr_1

make_fmt_ptr_2
		clc
		adc	<fmt_list_ptr
		sta	<fmt_list_entry
		lda	#0
		adc	<fmt_list_ptr+2
		sta	<fmt_list_entry+2

		rts

		export	jsl_fmt_ptr
jsl_fmt_ptr	jsr	make_fmt_ptr		; so I can call from bank 1
		rtl

		EndP

		eject
;==========================================================
;
;  make_fst_ptr
;
;  fst_list_entry  <-  fst_list_ptr + (A * ff_size)
;
;  Inputs:      fst_list_ptr = ptr to list of available file systems
;               A = index number of desired entry
;
;  Outputs:     fst_list_entry = ptr to desired entry
;               A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000...
;
;==========================================================

make_fst_ptr	Proc
		with	my_direct_page,fst_list_record

		tax
		beq	make_fst_ptr_2		; if index == 0 then offset = 0
		lda	#0

make_fst_ptr_1
		clc
		adc	#ff_size

		dex
		bne	make_fst_ptr_1

make_fst_ptr_2
		clc
		adc	<fst_list_ptr
		sta	<fst_list_entry
		lda	#0
		adc	<fst_list_ptr+2
		sta	<fst_list_entry+2

		rts

		EXPORT	jsl_fst_ptr
jsl_fst_ptr	jsr	make_fst_ptr		; so I can call from bank 1
		rtl

		EndP

		eject
;==========================================================
;
;  cmp_fmt_fst
;
;  Compare a file system with a hard format and determine
;  if they are compatible.
;
;  The rules are:
;  (0)  if we are doing $25 ERASE_DISK, only the currently
;               installed media is legal.
;  (1)  flags:  one or both must be 0 (universal), OR
;               the flags must match
;  (2)  block count: driver block count must be within
;               minimum and [maximum] specified by FST.
;  (3)  block size: must match.
;
;  If they don't match, take a look at the alias field, because
;  there might be another format which does.
;
;  Inputs:      fmt_list_entry = ptr to format in question
;               fst_list_entry = ptr to file system in question
;
;  Outputs:     A = if C = 0, index # of selected FST
;                   if C = 1, not valid
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000..|
;                          0 == compatible, 1 == incompatible
;
;  Uses:        init_temp_4
;
;==========================================================

cmp_fmt_fst	Proc
		with	my_direct_page,fst_list_record,fmt_list_record

		pei	<fmt_list_entry		; record starting point
		pei	<fmt_list_entry+2

cmp_fmt_fst_0
		lda	|which_call		; if FORMAT, all formats legal
		beq	cmp_fmt_fst_05

;  erase_disk, only current format is legal

		ldy	#df_conf_num		; get driver's number
		lda	[<fmt_list_entry],y
		cmp	<fmt_cur_med
		bne	cmp_fmt_fst_no

cmp_fmt_fst_05
		ldy	#df_flags
		lda	[<fmt_list_entry],y
		and	#$0003
		beq	cmp_fmt_fst_1		; universal driver.  OK

		ldy	#ff_flags
		eor	[<fst_list_entry],y
		and	#$0003
		beq	cmp_fmt_fst_1		; driver & fst match.  OK

		lda	[<fst_list_entry],y
		and	#$0003
		beq	cmp_fmt_fst_1		; universal fst, OK
		cmp	#$0003			; Apple ][ only?
		bne	cmp_fmt_fst_no		; nope, no match
		ldy	#df_flags		; look at the device flags again
		lda	[<fmt_list_entry],y
		lsr	a			; Apple-generic format?
		bcc	cmp_fmt_fst_no		; no, can't use it

;  compare the block sizes.

cmp_fmt_fst_1
		ldy	#df_block_sz
		lda	[<fmt_list_entry],y
		ldy	#ff_block_sz
		cmp	[<fst_list_entry],y
		bne	cmp_fmt_fst_no

;  compare the block count with the min & max.  this is messy
;  because 4 byte comparisons.

		ldy	#df_block_ct		; get device block count
		lda	[<fmt_list_entry],y
		sta	<init_temp_4
		iny
		iny
		lda	[<fmt_list_entry],y
		sta	<init_temp_4+2
		ldy	#ff_min_blocks+2

		cmp	[<fst_list_entry],y	;is block count < min allowed?
		blt	cmp_fmt_fst_no		;yes - so no match
		bne	cmp_min_ok		;it's > min allowed so OK
		dey
		dey
		lda	<init_temp_4
		cmp	[<fst_list_entry],y
		blt	cmp_fmt_fst_no
cmp_min_ok					;block count >= min allowed

;  match!  return carry clear

		clc
		bra	cmp_fmt_fst_y

;  no match.  if alias, loop.  If none, return carry clear

cmp_fmt_fst_no
		ldy	#df_alias
		lda	[<fmt_list_entry],y
		beq	cmp_fmt_fst_x
		sta	<init_temp_4		; must look for this entry
		stz	<init_temp_4+2		; counter

cmp_fmt_fst_lp
		lda	<init_temp_4+2
		jsr	make_fmt_ptr
		ldy	#df_conf_num
		lda	[<fmt_list_entry],y
		cmp	<init_temp_4
		beq	cmp_fmt_fst_0		; found alias!

		inc	<init_temp_4+2
		lda	<init_temp_4+2
		cmp	<fmt_total_cnt
		bne	cmp_fmt_fst_lp

cmp_fmt_fst_x
		sec

cmp_fmt_fst_y
		ldy	#df_refnum		; get the refnum
		lda	[<fmt_list_entry],y

		plx				; restore starting point
		stx	<fmt_list_entry+2
		plx
		stx	<fmt_list_entry
		rts
		EndP

		eject
;==========================================================
;
;  deref_lists
;
;  fmt_list_vp  ->  fmt_list_ptr
;  fst_list_vp  ->  fst_list_ptr
;
;  Inputs:      fmt_list_vp = VP of available formats
;               fst_list_vp = VP of available file systems.
;
;  Outputs:     A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000...
;
;==========================================================

jsl_deref	Proc	Export
		Import	deref_lists

		jsl	deref_lists		; so I can call into bank 1
		rts
		EndP

		eject
;==========================================================
;
;  find_matches
;
;  First, for each file system, build a list of all applicable
;  formatting options.  Then, for each format, find the
;  number of the first applicable file system.  If no matches
;  are found for a particular entry, make it non-selectable (dim).
;  If no matches are found in the entire group, formatting is
;  impossible.
;
;  Inputs:      fmt_list_vp = VP of available formats
;               fst_list_vp = VP of available file systems.
;
;  Outputs:     A = error code if C == 1
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000..|
;                          0=no error, 1=no matches found
;
;  This routine may move memory.
;
;==========================================================

find_matches	Proc	Export
		with	my_direct_page,fst_list_record,fmt_list_record
		Import	pb_reqFileSysID,pb_flags

;  for each fst, check all formats

		stz	<init_temp_1		; fst counter
		stz	<init_temp_3		; match counter

;  loop here through file systems

find_matches_1
		lda	<fmt_disp_cnt		; get memory for the list
		asl	a			; word entries
		sec
		jsl	call_alloc
		phy
		phx

		jsr	jsl_deref		; make ptrs
		lda	<init_temp_1
		jsr	make_fst_ptr

		ldy	#ff_match_lst		; install vp of list into fst rec
		pla
		sta	[<fst_list_entry],y
		tax
		iny
		iny
		pla
		sta	[<fst_list_entry],y
		tay
		jsl	call_deref		; make ptr to new list
		stx	<init_temp_2
		sty	<init_temp_2+2

		stz	<init_temp_1+2		; fmt counter

;  loop here through formats, checking against the current fst

find_matches_2
		lda	<init_temp_1+2
		jsr	make_fmt_ptr

		jsr	cmp_fmt_fst		; are they compatible?
		bcs	find_matches_3		; no.

;  compatible.  insert fmt index in fst's list

		ldy	#ff_match_ct
		lda	[<fst_list_entry],y
		inc	a
		sta	[<fst_list_entry],y
		dec	a
		asl	a
		tay
		lda	<init_temp_1+2
		sta	[<init_temp_2],y

		inc	<init_temp_3		; flag successes

;  move to next fmt

find_matches_3
		inc	<init_temp_1+2
		lda	<init_temp_1+2
		cmp	<fmt_disp_cnt
		bne	find_matches_2

;  Dim if no matches found.  Move to next fst

		ldy	#ff_match_ct
		lda	[<fst_list_entry],y
		bne	find_matches_35
		ldy	#ff_mem_flag
		lda	#%01100000		; disable & inactive bits
		sta	[<fst_list_entry],y

find_matches_35
		inc	<init_temp_1
		lda	<init_temp_1
		cmp	<fst_list_cnt
		bne	find_matches_1

;  now do the whole thing over but searching for a single fst
;  to match each format.

		stz	<init_temp_1		; fmt counter

;  loop here through formatting options

find_matches_4
		lda	<init_temp_1
		jsr	make_fmt_ptr

		stz	<init_temp_1+2		; fst counter

;  loop here through file systems, checking against the current format

find_matches_5
		lda	<init_temp_1+2
		jsr	make_fst_ptr

		jsr	cmp_fmt_fst		; are they compatible?
		bcc	find_matches_6		; yes

;  no match.  try next file system

		inc	<init_temp_1+2
		lda	<init_temp_1+2
		cmp	<fst_list_cnt
		bne	find_matches_5

;  no fst matches this format.  disable it

		ldy	#df_mem_flag
		lda	#%01100000		; disable & inactive bits
		sta	[<fmt_list_entry],y
		bra	find_matches_7

;  compatible.  insert fst index in fmt record

find_matches_6
		ldy	#df_one_fst
		lda	<init_temp_1+2		; index # of this fst
		sta	[<fmt_list_entry],y

		inc	<init_temp_3		; flag successes

;  move to next fmt

find_matches_7
		inc	<init_temp_1
		lda	<init_temp_1
		cmp	<fmt_disp_cnt
		bne	find_matches_4

;  all done.  return error if no lists built

		ldx	#drvr_wr_prot		; assume error
		lda	<init_temp_3
		bne	find_matches_8
error
		txa				; put error code in accumulator
		sec
		rts

find_matches_8
		lda	pb_reqFileSysID		; valid ID supplied?
		beq	@skip_check		; no, must be selectable

; The caller supplied an FST ID that they want us to use for the format. Therefore,
; we should probably check the supplied ID to make sure that it's in our list of FSTs
; that support formatting.  If not, we either return an InvalidFSTop error code (if the
; FST is not selectable), or we zero the reqFileSysID variable so that the default FST
; is automatically selected.

		lda	#0
		sta	<init_temp_1
@loop
		jsr	make_fst_ptr
		ldy	#ff_fs_num		; get the FST ID from the record
		lda	[<fst_list_entry],y
		cmp	pb_reqFileSysID		; do they match?
		beq	@found_it		; yes, go check the format count
@next_one
		inc	init_temp_1		; bump counter
		lda	init_temp_1		; are we done yet?
		cmp	fst_list_cnt
		bne	@loop			; no, go do the next one
		bit	pb_flags		; selectable FST?
		bvs	@set_id			; yes, just ignore
		ldx	#invalid_fst_op		; FST not found in the list
		bra	error
@set_id
		stz	pb_reqFileSysID		; clear the variable
		bra	@skip_check
@found_it
		ldx	#invalid_fst_op		; preset error code
		ldy	#ff_match_ct		; get the format match count for this FST
		lda	[<fst_list_entry],y	; if there's no compatible format,
		beq	error			;   then we error out
@skip_check
		lda	#0			; no error
		clc
		rts

		EndP

		eject
;==========================================================
;
;  jsl chk_fst_size
;
;  Formatting FST's onto 'too-large' volumes is allowed ;
;  but a warning is presented if this is true to remind
;  the user that they are a bozo.
;
;  Inputs:      fst_list_entry = currently selected fst
;               fmt_list_entry = currently selected fmt
;
;  Outputs:     A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000..|
;                          0 = fst fits format
;                          1 = format too big
;
;==========================================================

chk_fst_size	Proc	Export
		with	my_direct_page,fst_list_record,fmt_list_record

		jsr	cmp_fmt_fst		; I know they match.  This points us
		jsr	make_fmt_ptr		; to the actual fmt (if alias'd)

;  Now compare the block counts

		ldy	#ff_max_blocks+2
		lda	[<fst_list_entry],y
		ldy	#df_block_ct+2
		cmp	[<fmt_list_entry],y
		blt	chk_fst_err		; too big in hi word
		bne	chk_fst_ok		; smaller in hi word

		ldy	#ff_max_blocks		; hi word is equal if get here
		lda	[<fst_list_entry],y
		ldy	#df_block_ct
		cmp	[<fmt_list_entry],y
		blt	chk_fst_err		; too big in lo word
chk_fst_ok
		clc
		rtl

chk_fst_err
		sec
		rtl
		EndP

		eject
;==========================================================
;
;  set_driver_fmt
;
;  Transmit a selected hard format option to the driver.
;  There is no error checking, because if the driver has
;  no options, it simply ignores the call.
;
;  Inputs:      chosen_fmt = my refnum of chosen format
;               dev_num = driver number
;
;  Outputs:     A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000...
;
;==========================================================

set_driver_fmt	Proc	Export
		with	my_direct_page,fmt_list_record

		jsr	jsl_deref		; convert my ref# to drivers ref#
		lda	<chosen_fmt
		jsr	make_fmt_ptr

		ldy	#df_conf_num
		lda	[<fmt_list_entry],y
		sta	<init_temp_1		; becomes the control list

		lda	#direct_base+init_temp_1
		sta	<drvr_clist_ptr
		stz	<drvr_clist_ptr+2

		lda	<dev_num
		sta	<drvr_dev_num
		lda	#$0006			; 6 = 'control'
		sta	<drvr_call_num
		dec	a			; 5 = 'set format options'
		sta	<drvr_ctrl_code
		lda	#2
		sta	<drvr_req_cnt
		stz	<drvr_req_cnt+2
		jsl	call_dispatch

		rts
		EndP

		eject
;==========================================================
;
;  grx_too_big
;
;  If the current fst is not big enough for the current
;  format, we will let them format, but we give them a
;  nasty note.
;
;  e.g. ProDOS (32Mb max) onto an HD40SC.
;
;  Outputs:     A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000...
;
;==========================================================

grx_too_big	Proc
		Import	draw_caution
		with	my_direct_page

		jsr	nextmember_1		; fst selected?
		beq	grx_clr_warn		; nothing selected

		dec	a			; fix ListMgr's item number
		jsr	make_fst_ptr		; fill in fst_list_entry
		jsr	nextmember_2		; fmt selected?
		beq	no_change		; nothing selected
		dec	a			; fix ListMgr's item number
		jsr	make_fmt_ptr		; fill in fmt_list_entry

;  find out if the current pair is ok

		jsl	chk_fst_size		; fills the string if a problem
		bcc	no_change

;  display the warning

grx_show_warn
		lda	#28-64			; message # - 64
		cmp	currentFST		; is the message already displayed?
		beq	no_change		; yes, don't bother redisplaying
		sta	currentFST		; update message #
		lda	#28			; get the real message #
		jsr	draw_caution		; go draw the message
		sec				; signify that we put up the message
no_change
		rts


;  everybody happy.  No warning
		Entry	grx_clr_warn
grx_clr_warn
		pea	warn_rect>>16		; bounding box
		pea	warn_rect
		ldx	#$5504			; EraseRect
		jsr	call_tools_0
		stz	currentFST		; clear message area
		clc				; no message is displayed now
		rts

		EndP

		eject
;==========================================================
;
;  setup_screen1
;  setup_screen2
;
;  Examine the current configuration of the system to
;  determine if we can legally use the graphics based
;  interface.  If not, we will have to create a text
;  based interface using the console driver.
;
;  Outputs:     init_screen = -1 = graphics
;                              0 = text
;               A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000...
;
;==========================================================

setup_screen1	Proc	Export         
		with	my_direct_page

		stz	<init_screen		;init to text mode

		pha
		ldx	#$0605			; DeskStatus
		jsr	call_tools_0
		pla
		beq	setup_text

		pea	0			; in case list mgr isn't loaded
		ldx	#$061C			; ListStatus
		jsr	call_tools_0
		pla
		beq	setup_text

		sep	#$20			; 8 bit accum.
		lda	|$C029			; new_video
		rep	#$20
		and	#$0080			; super high res on?
		beq	setup_text

		pha				; result space
		ldx	#$1704			; GetMasterSCB
		jsr	call_tools_0
		pla
		and	#%10000000		; 320 or 640 mode?
		beq	setup_text		; 320, use text mode

		pha
		pha
		ldx	#$2F02			; RealFreeMem
		jsr	call_tools_0
		pla
		pla
		cmp	#$0001			; 64k available?
		blt	setup_text

		dec	<init_screen		; passed all tests so use graphics mode

setup_text	rts				 
		EndP
;----------------------------------------------------------

setup_screen2	Proc	Export
		Import	gsos_id
		with	my_direct_page

;  try to get a 1k stack for the grx routines.

		lda	#0
		pha				; returns long
		pha
		pha				; size $00000400  (1k)
		pea	$400
		lda	>gsos_id		; use Mike's memory ID
		pha
		pea	$C011			; locked,no bank cross,spec. bank
		lda	#0
		pha				; must be bank 0
		pha
		ldx	#$0902			; NewHandle
		jsr	call_tools_0

		pla
		sta	<init_window		; cached here for now
		pla
		sta	<init_window+2
		bcc	got_grx_stack
		stz	<init_screen		; didn't get mem so use text mode
got_grx_stack	rts
		EndP

		eject
;==========================================================
;
;  set_grx_stack
;
;  Many of the toolbox routines require more stack space
;  than is provided by GS/OS.  The screen chooser has
;  reserved 1k for me and cached its handle at <init_window.
;
;  Inputs:      GS/OS stack: |  ret addr  |  of my caller
;                            |-          -|
;                            |            | <- SP
;
;  Outputs:     New stack:   |  GS/OS SP  |
;                            |-          -|
;                            |  ret addr  | of my caller
;                            |-          -|
;                            |            | <- SP
;               A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000...
;
;  This routine may move memory.
;
;==========================================================

set_grx_stack	Proc
		with	my_direct_page

		lda	[<init_window]		; the base of the new stack
		clc
		adc	#$03FF			; and this is the new SP
		sta	<init_window

		plx				; get return addr
		tsc
		tay
		lda	<init_window
		tcs				; set to new stack
		phy				; push old sp
		phx				; push ret addr
		rts
		EndP

		eject
;==========================================================
;
;  reset_grx_stack
;
;  Switch back to the normal GS/OS stack.
;
;  Inputs:      New stack:   |  GS/OS SP  |
;                            |-          -|
;                            |  ret addr  | of my caller
;                            |-          -|
;                            |            | <- SP
;
;  Outputs:     GS/OS stack: |  ret addr  |  of my caller
;                            |-          -|
;                            |            | <- SP
;               A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000...
;
;==========================================================

reset_grx_stack	Proc
		with	my_direct_page

		pla				; store return addr
		sta	<init_temp_1
		pla				; store GS/OS stack addr
		sta	<init_temp_1+2

		tsc				; find handle for my stack
		pha
		pha
		pea	0			; always bank 0
		pha
		ldx	#$1A02			; FindHandle
		jsr	call_tools_0
		plx				; save it
		ply
		lda	<init_temp_1+2		; restore GS/OS stack
		tcs
		phy				; then dump the 1k stack
		phx
		ldx	#$1002			; DisposeHandle
		jsr	call_tools_0
		pei	<init_temp_1		; return address
		rts
		EndP

		eject
;==========================================================
;
;  fix_cursor
;  restore_cursor
;
;  Often the calling application sets the cursor to the
;  'watch' cursor because init can be a time consuming
;  operation.  For the purposes of my interface, I need
;  a pointer.
;
;  'fix_cursor' stores the current state of the cursor
;  and replaces it with the standard pointer.
;
;  Outputs:     save_cursor = pointer to old cursor record
;               A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000...
;
;  'restore_cursor' puts it back to whatever the application
;  wanted.
;
;  Inputs:      save_cursor = pointer to original cursor
;
;  Outputs:     A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000...
;
;==========================================================

fix_cursor	Proc
		Import	save_cursor

		pha
		pha
		ldx	#$8F04			; GetCursorAdr
		jsr	call_tools_0
		pla
		sta	|save_cursor
		pla
		sta	|save_cursor+2

		ldx	#$CA04			; InitCursor
		jsr	call_tools_0

		rts

		Entry	restore_cursor
restore_cursor
		lda	|save_cursor+2
		pha
		lda	|save_cursor
		pha
		ldx	#$8E04
		jsr	call_tools_0

		rts
		EndP

		eject
;==========================================================
;
;  fix_ptrs
;
;  (1)  lock down GS/OS memory so ptrs stay the same
;
;  (2)  Loop through format list, making pointers to
;       the strings.
;
;  Outputs:     A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000..0
;
;==========================================================

fix_ptrs	Proc	Export
		with	my_direct_page,fmt_list_record

		jsl	call_lock_mem

		jsr	jsl_deref
		stz	<init_temp_1		; entry counter

fix_ptrs_lp
		lda	<init_temp_1
		jsr	make_fmt_ptr
		ldy	#df_string		; get the vp
		lda	[<fmt_list_entry],y
		tax
		iny
		iny
		lda	[<fmt_list_entry],y
		tay
		jsl	call_deref
		tya
		ldy	#df_mem_ptr+2
		sta	[<fmt_list_entry],y
		dey
		dey
		txa
		sta	[<fmt_list_entry],y

		inc	<init_temp_1
		lda	<init_temp_1
		cmp	<fmt_disp_cnt
		bne	fix_ptrs_lp

		rtl
		EndP

		eject
;==========================================================
;
;  setup_window
;
;  Create the window for the init dialog.  Also adds the
;  first two controls, 'ok' and 'cancel'.
;
;  Outputs:     init_window = grafport of the window
;               A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000..0
;
;  This routine may move memory.
;
;==========================================================

setup_window	Proc
		Import	MyControls,name_default,subArray
		Import	cancel_title,dflt_title,editLine
		Import	init_wnd_parms,pb_flags

		with	my_direct_page

; create the window

		pha				; returns ptr to it
		pha
		pea	init_wnd_parms>>16
		pea	init_wnd_parms
		ldx	#$090E			; NewWindow
		jsr	call_tools_0
		pla
		sta	<init_window
		pla
		sta	<init_window+2

; set up the volume name string pointer

		lda	<path2_ptr		; make pointer to volume name string
		ora	<path2_ptr+2		; was a volume name supplied?
		bne	@set_it_up		; yes, set the length byte
		lda	#61			; get the default volume name string
		jsl	get_string
		bra	@continue

@set_it_up
		lda	<path2_ptr		; make pointer to volume name string
		clc
		adc	#2			; point to $80 separator
		sta	<init_temp_1
		tax				; save in X
		lda	<path2_ptr+2		; high word too
		adc	#0
		sta	<init_temp_1+2
		tay				; save in Y
		lda	[<path2_ptr]		; get the length word
		sep	#$20			; 8-bit accumulator
		dec	a			; account for missing separator
		sta	[<init_temp_1]		; store on top of the $80
		rep	#$20

@continue
		stx	name_default		; store in control template
		sty	name_default+2

; set up pointers to the control strings
		ldx	#23			; get 'ok' string for Format call
		lda	which_call		; was the call Format or Erase?
		beq	its_format		; it was Format
		ldx	#30			; get 'ok' string for Erase call
its_format	txa
		jsl	get_string
		stx	dflt_title
		sty	dflt_title+2

		lda	#24			; get 'cancel' string
		jsl	get_string
		stx	cancel_title
		sty	cancel_title+2

; set up the list of control template pointers

		ldx	#myControls+16		;just past pointers for required templates
		bit	pb_flags		;editable volume name?
		bpl	@static_name		;no...
		lda	#editLine		;else put template pointer into list
		sta	|$0000,x
		inx
		inx
		lda	#^editLine
		sta	|$0000,x
		inx
		inx
@static_name
		stz	|$0000,x		;terminate list
		inx
		inx
		stz	|$0000,x

; add the controls to the window
		pha				;Result space (not used here)
		pha
		pei	<init_window+2
		pei	<init_window
		pea	$0003			;Ptr to list of Ptrs
		pea	MyControls>>16		;Ptr to Ptr list
		pea	MyControls
		ldx	#$3110			;NewControl2
		jsr	call_tools_0
		pla				;Discard (not used here)
		pla

; retrieve the handle of the LineEdit record if it exists
get_handles
		bit	pb_flags		;editable volume name?
		bpl	@static_name		;no...
		pha				;space for result
		pha
		pei	<init_window+2
		pei	<init_window
		pea	editLineID>>16		;ID of editLineControl
		pea	editLineID
		ldx	#$3010			;GetCtlHandleFromID
		jsr	call_tools_0
		pla				;retrieve handle
		sta	init_temp_1
		pla
		sta	init_temp_1+2
		
		ldy	#2			;deref the control handle
		lda	[init_temp_1]
		sta	init_temp_2
		lda	[init_temp_1],y
		sta	init_temp_2+2
		ldy	#octlData		;offset to LineEdit record handle
		lda	[init_temp_2],y
		sta	edit_handle
		iny
		iny
		lda	[init_temp_2],y
		sta	edit_handle+2
@static_name
; retrieve the handle of the default button control (for highlighting purposes)
		pha				;space for result
		pha
		pei	<init_window+2
		pei	<init_window
		pea	defaultButtonID>>16	;ID of default button
		pea	defaultButtonID
		ldx	#$3010			;GetCtlHandleFromID
		jsr	call_tools_0
		pla				;retrieve handle
		sta	ok_handle
		pla
		sta	ok_handle+2
		
; retrieve the handle to the fst list control
		pha				;space for result
		pha
		pei	<init_window+2		; where it is
		pei	<init_window
		pea	fstListID>>16		;ID of fst list control
		pea	fstListID
		ldx	#$3010			;GetCtlHandleFromID
		jsr	call_tools_0
		plx
		stx	<list1_handle
		ply
		sty	<list1_handle+2

; sort the FST list before we display it
		lda	#$0000
		pha				; no custom sort proc
		pha
		phy				; sort the FST list
		phx				; (X and Y still contain the handle)
		ldx	#$151C			; SortList2
		jsr	call_tools_0

; retrieve the handle to the format options list control
		pha				;space for result
		pha
		pei	<init_window+2		; where it is
		pei	<init_window
		pea	intrlvListID>>16	;ID of options list control
		pea	intrlvListID
		ldx	#$3010			;_GetCtlHandleFromID
		jsr	call_tools_0
		pla
		sta	<list2_handle
		pla
		sta	<list2_handle+2

; set up for initial JudgeName message
		lda	#-2
		sta	currentFST		;init variable
		clc				;no errors
		rts
		EndP

		eject
;==========================================================
;
;  setup_lists
;
;  Conveniently, my data structures are compatible with
;  those of the list manager.  So really all I do is tell
;  the list mgr where they are, and it sets up the lists
;  for me.
;
;  Inputs:      fst_list_ptr = deref'd & locked addr of list
;               fmt_list_ptr = deref'd & locked addr of list
;               init_window = grafport of the window
;
;  Outputs:     A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000..0
;
;  This routine may move memory.
;
;==========================================================

setup_lists	Proc
		Import	list1_size,list1_ref
		Import	list2_size,list2_ref
		Import	pb_reqFileSysID,pb_flags
		Import	fst_adj_fmts

		with	my_direct_page,fst_list_record

		stz	<init_temp_1+2		; init # of selected FST

		lda	pb_reqFileSysID		; valid FST ID supplied?
		bne	set_default		; yes, use it as initial selection

; At this point, the supplied FST ID is 0.  This means that the caller doesn't
; really care what the initially selected FST is.  So, since the first FST in the
; list is the boot FST, we should make sure that it's the one that is initially
; selected.  (Well, we should supply SOME kinda default, shouldn't we?)

		ldy	#ff_mem_flag		; get offset of memFlag field
		lda	[<fst_list_ptr],y	; set it as selected
		ora	#%10000000
		sta	[<fst_list_ptr],y
		bra	init_fst_template	; then go set the pointer in the template

set_default
		stz	init_temp_1		; start at the beginning of the list
@loop
		lda	init_temp_1		; get the member #
		jsr	make_fst_ptr		; go make a pointer
		ldy	#ff_fs_num		; get the FST ID from the record
		lda	[<fst_list_entry],y
		cmp	pb_reqFileSysID		; do they match?
		beq	@select_it		; yes, select it
		bit	pb_flags		; only one FST selectable?
		bvs	@next_one		; no, leave other FSTs selectable
		ldy	#ff_mem_flag		; else dim it
		lda	[<fst_list_entry],y
		ora	#%01100000
		sta	[<fst_list_entry],y
		bra	@next_one
@select_it
		ldy	#ff_mem_flag		; set the selected bit
		lda	[<fst_list_entry],y
		bit	#%01100000		; first, is it selectable?
		bne	@next_one		; no, so don't select it
		ora	#%10000000
		sta	[<fst_list_entry],y
		lda	<init_temp_1		; remember which FST we've selected
		sta	<init_temp_1+2
@next_one
		inc	init_temp_1		; bump counter
		lda	init_temp_1		; are we done yet?
		cmp	fst_list_cnt
		bne	@loop			; no, go do the next one

init_fst_template
		lda	<init_temp_1+2		; make a pointer to the selected FST
		jsr	make_fst_ptr
		jsl	fst_adj_fmts		; then initialize the format selections

; fill in the control template for the FST List control
		lda	<fst_list_cnt		; how many entries
		sta	|list1_size

		lda	<fst_list_ptr		; where it be
		sta	|list1_ref
		lda	<fst_list_ptr+2
		sta	|list1_ref+2

;  Now fill in the template for the format options list control

		lda	<fmt_disp_cnt		; how many entries
		sta	|list2_size

		lda	<fmt_list_ptr		; where it be
		sta	|list2_ref
		lda	<fmt_list_ptr+2
		sta	|list2_ref+2

		clc				; no errors
		rts
		EndP

		eject
;==========================================================
;
;  grx_check_name
;
;  Performs a full JudgeName call with the user-supplied
;  volume name prior to exiting the dialog box.
;
;  Outputs:     P = nvmxdizc
;                   ..000..|
;                          0=no error, 1=name not acceptable
;		path_vp = vp of name if acceptable
;
;  This routine may move memory.
;
;  Direct page variable usage is:
;
;	init_temp_2 = pointer to JudgeName result buffer
;	init_temp_3 = handle to LineEdit item
;	init_temp_4 = pointer to LineEdit item, or static name
;
;==========================================================

grx_check_name	Proc	Export
		Import	path_vp,call_judgename,name_default,pb_flags
		Import	call_deref,call_alloc,call_release
		Import	jn_parms:jn_parmBlock

		with	my_direct_page
		with	jn_parms		;gonna use JudgeName parmblock

; first, get some memory to use as a Result Buffer for the JudgeName call

		lda	#36			;GS/OS result buffer
		jsl	call_alloc		;allocate memory for the pathname
		stx	path_vp			;save VP
		sty	path_vp+2
		jsl	call_deref		;turn it into a pointer
		stx	init_temp_2		;save pointer
		sty	init_temp_2+2
		txa				;save in JudgeName parmblock too
		sta	>jn_parms.name
		tya
		sta	>jn_parms.name+2

		lda	#36			;buffer length
		sta	[init_temp_2]		;store in buffer

		bit	pb_flags		;editable name?
		bmi	@editable		;yes...
		lda	name_default		;else get pointer to the name
		sta	init_temp_4
		lda	name_default+2
		sta	init_temp_4+2
		lda	[init_temp_4]		;get the length
		and	#$00FF			;clear high byte
		pha				;put on stack for later
		inc	init_temp_4		;adjust pointer to text of name
		bne	fill_result_buffer
		inc	init_temp_4+2
		bra	fill_result_buffer

@editable
		pha				;result space
		pei	edit_handle+2		;handle of editLine record
		pei	edit_handle
		ldx	#$2314			;LEGetTextLen
		jsl	$E10000
		;leave length on stack

		pha				;result space
		pha
		pei	edit_handle+2		;handle of editLine record
		pei	edit_handle
		ldx	#$2214			;LEGetTextHand
		jsl	$E10000
		pla				;retrieve handle
		sta	init_temp_3
		pla
		sta	init_temp_3+2

		lda	[init_temp_3]		;deref LineEdit text handle
		sta	init_temp_4
		ldy	#2
		lda	[init_temp_3],y
		sta	init_temp_4+2

fill_result_buffer
		ldy	#2
		lda	1,s			;retrieve LineEdit item length
		cmp	#33			;> 32 characters?
		bcc	@good_length		;no...
		lda	#32			;else peg it out at 32
		sta	1,s			;update length on stack
@good_length
		sta	[init_temp_2],y		;store in buffer

		lda	init_temp_2		;adjust pointer to result buffer
		clc
		adc	#4			;to skip buffer length and string length
		sta	init_temp_2
		bcc	@1
		inc	init_temp_2+2
@1
		ply				;retrieve length
		sep	#$20			;8-bit accumulator
		longa	off
		dey				;adjust for first character
@loop
		lda	[init_temp_4],y
		sta	[init_temp_2],y
		dey
		bpl	@loop			;copy volume name to result buffer

		rep	#$20			;16-bit accumulator again
		longa	on
		lda	#6			;reset pCount
		sta	>jn_parms.pCount
		lda	#0
		sta	>jn_parms.nameFlags	;clear translation flags
		
		pea	call_judgename>>16
		pea	call_judgename
		pea	0
		jsl	>lc_dispatcher		; call JudgeName to get the prompt pointer

		lda	>jn_parms.nameFlags	;was the FST happy?
		and	#$E000			;mask off reserved bits
		clc				;assume it was OK
		beq	@name_good		;yes, exit

		ldx	path_vp			;get the VP to the result buffer
		ldy	path_vp+2
		jsl	call_release		;release it back to the system
		stz	path_vp			;null out pointer
		stz	path_vp+2
		sec				;return error
@name_good
		rts

		EndP

		eject
;==========================================================
;
;  draw_caution
;
;  Draws the Caution icon and an associated message in the
;  message area on the screen.
;
;  Input:	A = Error.Msg # of message to display
;
;  Outputs:     A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000...
;		init_temp_1 = trashed
;
;==========================================================

draw_caution	Proc
		Import	first_rect,warn_rect
		with	my_direct_page

		pha				; save message # on stack

		pea	warn_rect>>16		;clear the message area first
		pea	warn_rect
		ldx	#$5504			;EraseRect
		jsr	call_tools_0

		pha				; result space
		pha
		pea	rIcon			; resource type
		pea	cautionIcon>>16		; ID of resource
		ldx	#<stopIcon		; assume we're using the stop icon
		lda	9,s			; get the message #
		cmp	#63			; is it the Bad Name message?
		beq	@use_stop_icon		; yes, use the stop icon
		ldx	#<cautionIcon		; else use the caution icon
@use_stop_icon
		phx				; put the icon ID on the stack
		ldx	#$0e1e			; LoadResource (actually preloaded)
		jsr	call_tools_0		; get the Icon out of Sys.Resources
		pla				; retrieve handle
		sta	init_temp_1
		pla
		sta	init_temp_1+2
		bcs	@skip_icon		; just in case the icon isn't available
		ldy	#2			; deref handle
		lda	[init_temp_1],y
		pha				; put pointer on stack
		lda	[init_temp_1]
		pha
		pea	%1111000000000000	; displayMode
		pea	20			; horizontal position
		pea	87			; vertical position
		ldx	#$0b12			; DrawIcon
		jsr	call_tools_0

@skip_icon
		lda	1,s			; retrieve message #
		jsl	get_string
		sty	<init_temp_1+2		; save pointer to string
		stx	<init_temp_1
		inx				; bump past length byte
		bne	@1
		iny
@1
		phy				; put pointer on stack
		phx
		lda	[<init_temp_1]		; get length byte
		and	#$00FF			; clear high byte
		pha				; put on stack
		pea	first_rect>>16
		pea	first_rect
		pea	0			; justification
		ldx	#$2014			; LETextBox2
		jsr	call_tools_0
		
		pla				; retrieve message #
		sec				; it's either 62 or 63
		sbc	#64			; make either -1 or -2
		sta	currentFST

		rts
		EndP

		eject
;==========================================================
;
;  fill_msg_box
;
;  Determines which message to draw in the message box, then
;  draw it in.
;
;  Outputs:     A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000...
;
;==========================================================

fill_msg_box	Proc
		Import	draw_jn_prompt,pb_flags
		
		lda	currentFST		; is the initial warning up?
		bmi	draw_first_msg		; yes, restore it
		bne	@1			; no, draw real message
@clr_warning
		jmp	grx_clr_warn		; else no current selection, clear box

@1
		bit	pb_flags		; is the volume name editable?
		bpl	@clr_warning		; no, no sense in putting up a prompt

		jsr	nextmember_1		; figure out current selection
		stz	currentFST		; force an update
		jmp	draw_jn_prompt		; then go draw the prompt

; draw the initial warning message
draw_first_msg
		clc
		adc	#64			; make either 62 or 63
		jmp	draw_caution		; draw the caution Icon & message
		EndP

		eject
;==========================================================
;
;  draw_window
;
;  Since we don't take updates, I do this manually after
;  the window is open and the stuff is there ready to draw.
;
;  Outputs:     A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000...
;
;==========================================================

draw_window	Proc	Export
		Import	name_default,my_dp,pb_flags
		with	my_direct_page

		phb				; save DBR
		pea	$0101			; set to our data bank
		plb
		plb
		phd				; save TaskMaster's direct page
		lda	my_dp			; set to my direct page
		tcd
		pei	save_rts		; save this, since we're in the middle
						; of a TaskMaster call

; draw "Initializing" or "Erasing" as appropriate
		pea	40			; horizontal position
		pea	14			; vertical position
		ldx	#$3A04			; MoveTo
		jsr	call_tools_0
		
		ldx	#21			; get "Initializing" string for Format call
		lda	which_call		; was the call Format or Erase?
		beq	its_format2		; it was Format
		ldx	#29			; get top string for Erase call
its_format2	txa
		jsl	get_string
		phy				; put string pointer on stack
		phx
		ldx	#$A504			; DrawString
		jsr	call_tools_0

; draw the device name
		stz	<drvr_dev_num		; device name is in DIB
		lda	#get_dib_ptr
		sta	<drvr_call_num
		lda	<dev_num
		sta	<drvr_buf_ptr
		jsl	call_dispatch

		lda	<drvr_dib_ptr		; make ptr to string
		clc
		adc	#$0E
		tax				; save low word in X
		lda	<drvr_dib_ptr+2		; high word too!
		adc	#0000			; propogate any carry
		pha				; put pointer on stack
		phx
		ldx	#$A504			; DrawString
		jsr	call_tools_0

; now the "as " string
		pea	40			; horizontal position
		pea	29			; vertical position
		ldx	#$3A04			; MoveTo
		jsr	call_tools_0

		lda	#22			; get the "as " string
		jsl	get_string
		phy				; put string pointer on stack
		phx
		ldx	#$A504			; DrawString
		jsr	call_tools_0

; now the volume name, but only if its static
		bit	pb_flags		; editable volume name?
		bmi	@its_a_control		; yes, its an editLine control
		pea	'Ò'			; else draw static text
		ldx	#$A404			; surrounded by quotes
		jsr	call_tools_0		; DrawChar

		lda	name_default+2		; pointer to string
		pha
		lda	name_default
		pha
		ldx	#$A504			; DrawString
		jsr	call_tools_0
		
		pea	'Ó'
		ldx	#$A404			; DrawChar
		jsr	call_tools_0

@its_a_control
		pei	<init_window+2
		pei	<init_window
		ldx	#$1010			; DrawControls
		jsr	call_tools_0

; fill the message box appropriately
		jsr	fill_msg_box

		pla				; restore save_rts
		sta	<save_rts
		pld				; restore direct page
		plb				; restore DBR
		rtl
		EndP

		eject
;==========================================================
;
;  choose_def_fmt
;
;  Choose a format entry by the following algorithm:
;  (1)  If already one, leave them alone
;  (2)  If fmt_def_fmt available, choose it
;  (3)  Else choose first enabled fmt
;
;  Input:       fmt_def_fmt = driver refnum of default entry
;
;  Outputs:     A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000...
;
;==========================================================

choose_def_fmt	Proc
		Import	choose_def_fmt2
		with	my_direct_page

; do step 1 of algorithm

		jsr	nextmember_2

		beq	choose_def_1		; nothing selected

		rts

; do step 2 of algorithm and then step 3 if necessary

choose_def_1
		jsl	choose_def_fmt2

;  now select this entry

		inc	<init_temp_1		; ListMgr starts counting at 1!
		pei	<init_temp_1		; member item number
		pei	<list2_handle+2		; control handle of format list
		pei	<list2_handle
		ldx	#$141C			; SelectMember2
		jsr	call_tools_0

		rts
		EndP

		Eject
;==========================================================
;
;  choose_def_fmt2
;
;  Choose a format entry by the following algorithm:
;  (1)  If fmt_def_fmt available, choose it
;  (2)  Else choose first enabled fmt
;
;  Input:       fmt_def_fmt = driver refnum of default entry
;
;  Outputs:     A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000...
;		fmt_list_entry -> member record to select
;		init_temp_1	= item number of record
;
;==========================================================

choose_def_fmt2	Proc	Export
		with	my_direct_page,fmt_list_record

;  First choice:  The driver-specified default format, if available

		stz	<init_temp_1		; entry counter

choose_def_2
		lda	<init_temp_1
		jsr	make_fmt_ptr

		ldy	#df_conf_num		; look for specified fmt
		lda	[<fmt_list_entry],y
		cmp	<fmt_def_fmt
		bne	choose_def_3

		ldy	#df_mem_flag		; is it available?
		lda	[<fmt_list_entry],y
		and	#%01100000
		clc				; assume it is.
		beq	choose_def_7		; yes!
		bne	choose_def_4		; no.  no need to look further.

choose_def_3
		inc	<init_temp_1
		lda	<init_temp_1
		cmp	<fmt_disp_cnt
		bne	choose_def_2

;  Second choice:  Whatever's available.

choose_def_4
		stz	<init_temp_1		; entry counter

choose_def_5
		lda	<init_temp_1
		jsr	make_fmt_ptr

		ldy	#df_mem_flag		; is it available?
		lda	[<fmt_list_entry],y
		and	#%01100000
		clc				; assume it is.
		beq	choose_def_7		; yes!

choose_def_6
		inc	<init_temp_1
		lda	<init_temp_1
		cmp	<fmt_disp_cnt		;at the end of the list?
		bne	choose_def_5		;no, check some more
		lda	#invalid_fst_op		;else no matches
		sec
choose_def_7
		rtl
		EndP

		eject
;==========================================================
;
;  jsl fst_adj_fmts
;
;  Whichever fst is selected controls the hiliting of the
;  formats.  Given an fst in fst_list_entry, scan through
;  the format options, selectively enabling and disabling
;  them.
;
;  Inputs:      fst_list_entry = selected fst
;
;  Outputs:     A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000...
;
;==========================================================

fst_adj_fmts	Proc	Export
		with	my_direct_page,fst_list_record,fmt_list_record

		stz	<init_temp_1		; count fmt's
		ldy	#ff_match_ct		; get match list size
		lda	[<fst_list_entry],y
		asl	a			; double it
		sta	<init_temp_2		; cache it
		stz	<init_temp_2+2		; (counter*2, start at 0)
		iny
		iny				; setup match list ptr
		lda	[<fst_list_entry],y
		tax
		iny
		iny
		lda	[<fst_list_entry],y
		tay
		jsl	deref
		stx	<init_temp_3
		sty	<init_temp_3+2

fst_adj_lp
		lda	<init_temp_1
		jsr	make_fmt_ptr

		ldy	#df_refnum
		lda	[<fmt_list_entry],y
		ldy	<init_temp_2+2
		cpy	<init_temp_2		; done w/known fmts?
		beq	disable_fmt		; yes.  disable all others.
		cmp	[<init_temp_3],y
		bne	disable_fmt		; in my list? no, disable.

		ldy	#df_mem_flag		; enable it!
		lda	[<fmt_list_entry],y
		and	#Å%01100000		; bits 5 & 6 off
		sta	[<fmt_list_entry],y

		inc	<init_temp_2+2		; bump to next known
		inc	<init_temp_2+2
		bra	fst_adj_nx

disable_fmt
		ldy	#df_mem_flag		; disable it!
		lda	[<fmt_list_entry],y
		and	#Å%10000000		; bit 7 off
		ora	#%01100000		; bit 5 & 6 on
		sta	[<fmt_list_entry],y

fst_adj_nx
		inc	<init_temp_1		; move to next fmt
		lda	<init_temp_1
		cmp	<fmt_disp_cnt
		bne	fst_adj_lp

		rtl
		EndP

		eject
;==========================================================
;
;  draw_jn_prompt
;
;  Determines whether or not to draw the prompt string
;  supplied by the JudgeName call
;
;  Input:	A = ListMgr item # of currently selected member
;
;  Outputs:     A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000.x.
;                         0	= currently selected FST changed
;                         1	= no change needed
;
;==========================================================

draw_jn_prompt	Proc
		Import	pb_flags
		with	my_direct_page,fst_list_record

		dec	a			; fix ListMgr's number base
		jsr	make_fst_ptr		; make a pointer to the member record
		ldy	#ff_fs_num		; get the selected FST ID
		lda	[<fst_list_entry],y
		cmp	currentFST		; has it changed?
		beq	@no_change		; no, no need to update the prompt

		sta	currentFST		; reset the variable

		bit	pb_flags		; is the name editable?
		bpl	@no_change		; no, so don't draw anything

		ldy	#ff_prompt+2		; index to prompt pointer
		lda	[<fst_list_entry],y	; retrieve the pointer
		sta	init_temp_1+2		; save for use later
		tax				; save here too
		ldy	#ff_prompt		; get low word of pointer
		lda	[<fst_list_entry],y
		sta	init_temp_1
		inc	a			;bump pointer past length byte
		bne	@1
		inx
@1
		phx				;put pointer on stack
		pha
		lda	[init_temp_1]		;get length
		and	#$00FF			;clear high byte
		pha				;and onto stack for call
		pea	warn_rect>>16		;message rect
		pea	warn_rect
		pea	0			;justification (left justified)
		ldx	#$2014			; LETextBox2
		jsr	call_tools_0
		rep	#%00000010		; clear Z flag
@no_change
		rts
		EndP

		eject
;==========================================================
;
;  edit_handler
;
;  handles a control hit in the EditLine control
;
;  Outputs:     A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000...
;
;==========================================================

edit_handler	Proc
		import	pb_flags
		with	my_direct_page

		lda	currentFST		;non-JudgeName text displayed?
		bpl	chk_name_len		;no...
		jsr	nextmember_1		;get the current selection
		bne	@2			;if none,
		jsr	grx_clr_warn		;   clear the message area
		bra	disable_ok		;then dim the default button

@2
		jsr	draw_jn_prompt		;else draw the JudgeName prompt

; examine length of LineEdit text and adjust highlighting on OK button
; accordingly
		entry	chk_name_len
chk_name_len
		bit	pb_flags		;is there an editable name?
		bpl	@1			;no, don't bother checking the length

		pha				;result space
		pei	edit_handle+2		;handle of editLine record
		pei	edit_handle
		ldx	#$2314			;LEGetTextLen
		jsr	call_tools_0
		pla				;retrieve length
		beq	disable_ok		;if zero, disable default button
@1
		jsr	nextmember_1		;is there an FST selected?
		beq	disable_ok		;no...
		jsr	nextmember_2		;is there a format selected?
		beq	disable_ok		;no...
						;else fall through into enable_ok

		eject
;==========================================================
;
;  enable_ok
;
;  Make sure the ok button is turned on.
;
;  Outputs:     A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000...
;
;==========================================================
		Entry	enable_ok
enable_ok	
		pea	0			; =active
		bra	call_highlight

;==========================================================
;
;  disable_ok
;
;  (1)  Turn off the OK button
;  (2)  Make all formats available if applicable
;  (3)  Nothing selected either side
;
;  Outputs:     A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000...
;
;==========================================================

		Entry	disable_ok
disable_ok
		pea	255			; =inactive
call_highlight
		pei	<ok_handle+2
		pei	<ok_handle
		ldx	#$1110			; HiliteControl
		jsr	call_tools_0

		rts
		EndP

		eject
;==========================================================
;
;  fst_click
;
;  User clicked on the FST list control.  If no entry is
;  selected, disable the ok button and enable all format
;  options.  If an entry is indeed selected, scan through
;  the format options, selectively enabling and disabling
;  them.  If the currently selected fmt becomes unavailable,
;  select the first ok one.
;
;  Outputs:     A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000...
;
;==========================================================

fst_click	Proc
		with	my_direct_page

		jsr	nextmember_1

		bne	fst_click_1
		jsr	grx_clr_warn		; clear the message box
		jmp	disable_ok		; no selection. OK off.

;  Ok.  Now work on the fmt option list.

fst_click_1
		pha				; save selection #
		jsr	grx_too_big		; tell user if fst too small
		pla				; retrieve selection #
		bcs	@no_change		; don't draw prompt if TooBig is displayed
		jsr	draw_jn_prompt		; fix up the judgename prompt
		beq	@no_change		; if no selection change...
		jsl	fst_adj_fmts		; alter format enable bits

;  now redraw the fmt list

		pea	#0			; NIL = redraw everybody
		pei	list2_handle+2		; in the fmt list
		pei	list2_handle
		ldx	#$111C			; DrawMember2
		jsr	call_tools_0

		jsr	choose_def_fmt		; and adjust selection
@no_change
		jmp	chk_name_len		; adjust highlighting on OK button
		EndP

		eject
;==========================================================
;
;  fmt_click
;
;  User clicked on the format options list control.  If
;  no entry is selected, disable the OK button.  If an entry
;  is selected, and an fst is already selected, we're done.
;  If an entry is selected, but no fst is selected, choose
;  the 1st applicable fst, and do fst_click to fix the enable
;  bits of the other format entries.
;
;  Outputs:     A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000...
;
;==========================================================

fmt_click	Proc
		with	my_direct_page,fmt_list_record

		jsr	nextmember_2

		bne	fmt_click_1
		jmp	disable_ok		; no selection. OK off.

;  see if an FST is also selected.

fmt_click_1
		dec	a			; WE start counting from 0
		jsr	make_fmt_ptr
		jsr	nextmember_1

		beq	fmt_click_2

		jmp	chk_name_len		; adjust highlighting on OK button

;  We must select the first available fst.

fmt_click_2
		ldy	#df_one_fst		; get fst #
		lda	[<fmt_list_entry],y
		inc	a
		pha				; item number
		pei	list1_handle+2
		pei	list1_handle
		ldx	#$141C			; SelectMember2
		jsr	call_tools_0

		jmp	fst_click		; (rts)
		EndP

		eject
;==========================================================
;
;  control_hit
;
;  TaskMaster reported a control hit to us.  Figure out which
;  one it was and act on it.
;
;  Outputs:     A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000...
;
;==========================================================

control_hit	Proc
		Import	TaskData4
		with	my_direct_page

; examine current FST selection to determine if it's changed since the last
; time through here.  If it has, we have to change the message string

		pha				;result space
		pha
		ldx	#$1C04			;GetPort
		jsr	call_tools_0		;save current port
		
		pei	<init_window+2		;set current window
		pei	<init_window
		ldx	#$1B04			;SetPort
		jsr	call_tools_0

		lda	TaskData4		;get control ID
		asl	a			;turn it into an index
		tax
		jsr	(handlers,x)		;call the control hit handler

		ldx	#$1B04			;SetPort
		jsr	call_tools_0		;reset port
		
ignore		rts				;back to event loop

handlers	dc.w	ignore			;dummy entry (no control ID 0)
		dc.w	cancel_handler		;Cancel button
		dc.w	default_handler		;default button handler
		dc.w	fst_click		;FST List control
		dc.w	fmt_click		;format list control
		dc.w	edit_handler		;line edit control

		eject
; The Cancel button was pressed.  Exit without doing anything...
cancel_handler
		lda	#1			;cancel button pressed
		sta	<init_choice
		rts				;back to event loop, will exit

; The default (Initialize or Erase) button was pressed.  Must set up the volume
; name currently in the LineEdit control and perform a JudgeName call to the
; currently selected FST.  If the FST is happy, we can complete the dialog.  If
; the volume name is no good, we'll tell the user and stay in the dialog to give
; them a chance to fix the name.

default_handler
		Import	pb_flags
		Import	jn_parms:jn_parmBlock
		with	my_direct_page,fst_list_record
		with	jn_parms		;gonna use JudgeName parmblock

		jsr	nextmember_1		;get the current selection
		dec	a
		jsr	make_fst_ptr		;point to the member record
		ldy	#ff_fs_num		;get the FST ID
		lda	[fst_list_entry],y
		sta	>fileSysID		;store in parmblock

		jsr	grx_check_name		;go do a JudgeName call
		bcc	@name_good		;checked out OK!

		bit	pb_flags		;was it an editable name?
		bpl	@name_good		;no, just let the FST generate an error

		pea	$0009			;"bad input" beep type
		ldx	#$3803			;SysBeep2
		jsr	call_tools_0		;get the user's attention

		lda	#63			;message = "The supplied name is unacceptable..."
		jsr	draw_caution		;draw the caution message
		rts				;then re-enter the event loop

@name_good
		stz	<init_choice		;the "ok" button was pressed
		rts				;back to event loop, will exit

		EndP

		eject
;==========================================================
;
;  grx_loop
;
;  Event loop for the graphics window.  Waits for mouse
;  clicks or keystrokes.
;
;  Outputs:     init_choice = 0 if ok pressed, 1 if cancel
;               A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000...
;
;==========================================================

grx_loop	Proc
		Import	TaskRecord,grx_too_big,pb_flags,TaskData4
		Import	draw_window,last_control
		with	my_direct_page

		stz	<init_choice		; set to -1
		dec	<init_choice

grx_loop_0
		lda	<init_choice		; done yet?
		bpl	done

no_event
 		lda	#0
		pha				;result space
		pha
		pea	TaskRecord>>16		;pointer to extended task record
		pea	TaskRecord
		pea	$4000+(draw_window>>16)	 ;pointer to update routine
		pea	draw_window		;bit 30=can draw while GS/OS is busy, 10-Jul-92 DAL
		pea	$8000			;eventHook - auto convert command-.
		pha				; to ESC keypress
		pha				;BeepProc pointer
		pha				;(NULL = use SysBeep2)
		pea	%0000000000001001	;flags
		ldx	#$640E			;DoModalWindow
		jsr	call_tools_0
		pla				;retrieve result
		plx				;high word - not used
		tax				;did we have a control hit?
		beq	no_event		;no, just loop
		sta	TaskData4		;store the control ID

		jsr	control_hit		;handle the control hit
		lda	TaskData4		;get the control ID again
		cmp	#defaultButtonID	;was it the Initialize button?
		bne	grx_loop_0		;no, just continue normally
		lda	<init_choice		;was JudgeName happy?
		bmi	no_event		;no, so skip the too big message
done
		rts
		EndP

		eject
;==========================================================
;
;  record_grx_sel
;
;  Convert list selections to chosen_fst and chosen_fmt.
;
;  Outputs:     chosen_fst = entry # of selected FST
;               chosen_fmt = entry # of selected format
;               A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000...
;
;==========================================================

record_grx_sel	Proc
		import	path_vp
		with	my_direct_page,fst_list_record

		stz	<chosen_fst
		stz	<chosen_fmt

		jsr	nextmember_1
		beq	record_grx_1

		dec	a			;fix ListMgr's item #
		jsr	make_fst_ptr		;make pointer to record
		ldy	#ff_fs_num		;get the FST ID
		lda	[<fst_list_entry],y
		sta	<chosen_fst

record_grx_1
		jsr	nextmember_2
		beq	record_grx_2

		dec	a			;fix ListMgr's item #
		sta	<chosen_fmt

record_grx_2
		ldx	path_vp			;get VP of pathname
		ldy	path_vp+2
		tya				;better see if it's valid
		ora	path_vp
		beq	no_path			;no pointer to deref!
		jsl	call_deref
		stx	init_temp_1		;save pointer
		sty	init_temp_1+2
		txa				;offset by 3 for dest pointer
		clc				;(leave room for leading separator)
		adc	#1
		sta	init_temp_2
		tya
		adc	#0
		sta	init_temp_2+2

		ldy	#2			;get pathname length
		lda	[init_temp_1],y
		inc	a			;bump by 1 for leading separator
		sta	[init_temp_1]		;move up over buffer length word
		clc
		adc	#2
		sta	init_temp_3		;save as length comparator

		lda	which_class		;make a class 0 or class 1 string?
		bne	do_copy			;class 1, go do it
		lda	init_temp_1+2		;else decrement destination pointer
		bne	@1
		dec	init_temp_1+2
@1		dec	init_temp_1

do_copy
		sep	#$20			;8-bit accumulator
		longa	off
		lda	#':'			;start with a leading separator
		sta	[init_temp_1],y		;store in string
		iny				;y now equals 3
@loop
		lda	[init_temp_2],y
		sta	[init_temp_1],y
		iny
		cpy	init_temp_3
		bcc	@loop
		rep	#$20			;back to 16-bit accumulator
		longa	on
no_path
		rts
		EndP

		eject
;==========================================================
;
;  remove_window
;
;  Close the selection window.  This kills the controls too.
;
;  Outputs:     A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000...
;
;==========================================================

remove_window	Proc
		with	my_direct_page

		pei	<init_window+2
		pei	<init_window
		ldx	#$0B0E			; CloseWindow
		jsr	call_tools_0

		rts
		EndP

		Eject
;==========================================================
;
;  grx_dialog
;
;  Build and actuate the graphics based dialog.  The box
;  is an alert window, and it contains the following
;  items:
;
;  String at the top:    Please select a file system and format:
;  Left list control:    Available file systems
;  Right list control:   Available formats
;  Buttons:              Cancel (normal)
;                        Ok     (bold)
;
;  Inputs:      fmt_list_vp = vp of the format options data
;               fst_list_vp = vp of the file sys options
;
;  Outputs:     chosen_fst = selected fst # if init_choice=0
;               chosen_fmt = selected fmt # if init_choice=0
;               init_choice = 0=OK, 1=Cancel
;               A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000...
;
;  This routine may move memory.
;
;==========================================================

grx_dialog	Proc	Export
		with	my_direct_page,fmt_list_record

		jsr	set_grx_stack		; make a bigger one

		jsl	fix_ptrs		; at the last moment (locks GIM mem)

		jsr	setup_lists		; create lists
		jsr	setup_window		; create window & controls
		pha				; save old port
		pha
		ldx	#$1C04			; GetPort
		jsr	call_tools_0
		pei	<init_window+2
		pei	<init_window
		ldx	#$1B04			; SetPort
		jsr	call_tools_0

		jsl	choose_def_fmt2		; find the record of the default format
		ldy	#df_mem_flag		; then set the selected bit
		lda	[fmt_list_entry],y
		ora	#%10000000
		sta	[fmt_list_entry],y
		jsr	fmt_click		; (after setting fmt, will choose fst)
		jsr	fix_cursor		; reset the cursor to the arrow

		jsr	grx_loop		; handle clicks & such
		bne	@canceled		; if init_choice != 0, user canceled
		jsr	record_grx_sel		; what did they finally pick?
@canceled
		jsr	restore_cursor		; set it back to the app's setting
		ldx	#$1B04			; SetPort (to previous one)
		jsr	call_tools_0
		jsr	remove_window		; close the winder
		jsl	call_unlock_mem		; unlock GIM mem
		jsr	reset_grx_stack		; reset to GS/OS stack
		rts
		EndP

		eject
;==========================================================
;
;  init_present
;
;  Make a presentation to the user.  This is where we
;  split to graphics or text based dialog routines.
;  If the Format or Erase call is class 1 and pcount > 3
;  then the calling program is requesting a specific FST
;  so don't put up a dialog at all.
;
;  Outputs:     A = if c=0, ID of selected fst
;                   if c=1, 0 if cancel selected, error # if error occurred
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000..|
;                          0 = ok to format, 1 = cancel or error
;
;==========================================================

init_present	Proc	Export
		Import	tx_dialog,non_dialog,pb_flags
		with	my_direct_page

		jsr	setup_screen1		;determine if we are running in text or graphics mode
		
		lda	which_class		;was this a class 1 call?
		beq	do_dialog		;no - so always put up dialog
		lda	pb_flags		;yes - so get the flags for the call
		bit	#%1101111111111111	;(don't include bit 13 in check)
		bne	do_dialog		;if non-zero, present dialog

; all variables are specified in the call, just do the operation

		jsl	non_dialog
		bcs	present_cancel		;error occurred
		bra	present_done

; put up a dialog

do_dialog
		lda	<init_screen
		bpl	present_text

;  use the graphics dialog

		jsr	setup_screen2		;try to allocate a 1K stack for the graphics routines
		bcs	present_text		;couldn't get stack so use text mode
		jsr	grx_dialog
		bra	present_done

;  use the text dialog

present_text
		jsl	tx_dialog
		bcs	present_cancel		;error occurred

;  now return A & C depending on 'init_choice'

present_done
		lda	#0
		lsr	<init_choice		;set carry if Cancel is selected

present_cancel
		rts
		EndP

		eject
;==========================================================
;
;  init_shutdown
;
;  Init package is done.  We must walk through the structures
;  and release any memory we're using.
;
;  Outputs:     A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000...
;
;==========================================================

init_shutdown	Proc	Export
		with	my_direct_page,fmt_list_record,fst_list_record

		lda	<fmt_list_vp		; list exist?
		ora	<fmt_list_vp+2
		beq	init_shut_4		; if no fmt list, no fst list!

		jsr	jsl_deref
		stz	<init_temp_1

;  Loop through fmt entries, deleting the strings

init_shut_1
		lda	<init_temp_1
		jsr	make_fmt_ptr

		ldy	#df_string		; get the VP
		lda	[<fmt_list_entry],y
		tax
		iny
		iny
		lda	[<fmt_list_entry],y
		tay

		jsl	call_release		; dropped!

		inc	<init_temp_1		; next.  done?
		lda	<init_temp_1
		cmp	<fmt_disp_cnt
		bne	init_shut_1

		ldx	<fmt_list_vp		; and dump the master list
		ldy	<fmt_list_vp+2
		jsl	call_release

;  very similar routine:  release match lists from fsts, then
;  dump the fst list.

		lda	<fst_list_vp
		ora	<fst_list_vp+2
		beq	init_shut_4

		lda	<fst_list_cnt		; any FSTs in the list?
		beq	dump_master		; no, just dump the master VP

		stz	<init_temp_1

init_shut_3
		lda	<init_temp_1
		jsr	make_fst_ptr

		ldy	#ff_match_lst		; get the VP
		lda	[<fst_list_entry],y
		tax
		iny
		iny
		lda	[<fst_list_entry],y
		tay

		jsl	call_release		; dropped!

		inc	<init_temp_1		; next.  done?
		lda	<init_temp_1
		cmp	<fst_list_cnt
		bne	init_shut_3

dump_master
		ldx	<fst_list_vp		; and dump the master list
		ldy	<fst_list_vp+2
		jsl	call_release

init_shut_4
		rts
		EndP

		eject
;==========================================================
;
;  init_main
;
;  Called by SCM to pre-process the format call.  Presents
;  a selection of format and file system options to the user,
;  and based on the choice made, presets the driver and returns
;  an FST number, which the SCM then calls.
;
;  Inputs:      dev_num = requested device
;               X = call # x 2
;               Y = call class x 2
;               path2_ptr = pointer to volume name string
;
;  Outputs:     A = if c == 0, ID number of selected FST
;                   if c != 0, 0 if Cancel selected
;                              error # is error condition
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000..|
;                          0=no error, 1=cancel selected or
;                                        init pack failed
;
;  This routine may move memory.
;
;==========================================================

init_main	Proc	Export
		Import	display_msg,FST_Scan,query_driver
		Import	msg_flag,path_vp,my_dp,pb_flags,pb_reqFileSysID
		Import	jn_parms:jn_parmBlock

		with	jn_parms,my_direct_page,fst_list_record

		phb				; remember gs/os data bank
		pea	$0101			; our data is in bank 1
		plb
		plb

		tdc				; remember our DP for update routine
		sta	my_dp

		stz	<fmt_list_vp
		stz	<fmt_list_vp+2
		stz	<fst_list_vp
		stz	<fst_list_vp+2

		txa				; call # x2, $48 or $4A
		sec
		sbc	#$0048			; now its zero or non-zero
		sta	|which_call

		sty	|which_class

		stz	|msg_flag		;initialize flag - added 1/89 CAE

		lda	#1			;nameType = 1 (for JudgeName)
		sta	>nameType

		stz	pb_flags		;initialize to 0
		stz	pb_reqFileSysID
;
; the following sets the flags word appropriately, according to the following
; table.  If pCount >= 5, we leave the flags alone, since they were specified by
; the user.  Only the upper four bits of the flags are specified in the table.
; Only the upper 2 bits are actually used.
;
; Class 0
; -------
;  %0100 (since volume name is supplied in a class 0 call)
;
; Class 1	pCount	volName == NULL		volName != NULL
; -------	------	----------------	----------------
; 		1	N/A (%1100)		N/A (%1100)
;		2	%1100			%0100
;		3	%1100			%0100
;		4	%1000			%0000 (no dialog)
;

		lda	|which_class		;is it a class 1 call?
		beq	@synthesize		;no, the flags will by synthesized

		lda	[<param_blk_ptr]	;get the pCount
		cmp	#4			;reqFileSysID included?
		bcc	@synthesize		;no, so synthesize flags too
		ldy	#$0c			;offset of parm
		lda	[<param_blk_ptr],y	;get the parameter
		sta	pb_reqFileSysID		;store

		lda	[<param_blk_ptr]	;get the pCount
		cmp	#5			;were the flags included?
		bcc	@synthesize		;no, we will synthesize them
		ldy	#$0E			;offset of flags parameter
		lda	[<param_blk_ptr],y	;get the flags
		sta	pb_flags		;store the flags value
@synthesize
; now we validate the flag values
		lda	pb_reqFileSysID		;is there a valid reqFileSysID?
		bne	@req_valid		;yes, leave flags as defined
		lda	pb_flags		;no, so..
		ora	#$4000			;..allow user to select
		sta	pb_flags
@req_valid
		lda	<path2_ptr		;null name supplied?
		ora	<path2_ptr+2
		bne	@name_valid		;no, leave flags as is
		lda	pb_flags		;else allow user to edit the name
		ora	#$8000
		sta	pb_flags
@name_valid
		jsl	query_driver
		bcs	exit_24

		jsl	fst_scan		; build FST list
		bcs	exit_24

		jsr	find_matches
		bcs	exit_24

		jsr	init_present
		bcs	exit_24
		lda	|which_call		; if $25 ERASE, don't set
		bne	sk_set_fmt		; the formatting options
		jsr	set_driver_fmt
		jsl	display_msg		; Added CAE 12/21/88
sk_set_fmt
		lda	<chosen_fst		; return the selected FST
		clc				; no error
exit_24
		php				; save carry
		pha				; save FST value or error code
		jsr	init_shutdown
		ldx	path_vp			; return new volume name VP
		ldy	path_vp+2		;   in X and Y
		pla				;   and FST ID in Acc
		plp
		plb
		rtl				; back to SCM

		EndP
		
;===============================================================================
;
; init.2.e
;
;===============================================================================


init_2_end	PROC	
		ENDP
		
init_2_dummy	PROC	org init_2_max, skip	;generate an error if code is too big
		ENDP

		END
		
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/OS/InitManager/Init3.Src b/IIGS.601.SRC/GS.OS/OS/InitManager/Init3.Src
new file mode 100644
index 0000000..50e154c
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/OS/InitManager/Init3.Src
@@ -0,0 +1 @@
+		string	asis
		pagesize 70

;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

		IMPORT	call_dispatch
		Import	fst_adj_fmts
		IMPORT	lc_dispatcher
		IMPORT	std_buffer

		print	push
		print	off
		include	'common.equ.src' 
		include	'init.equ.src'	
		include	'hw.equ.src'	
new_video	equ	$00C029

		print	pop
		
;===============================================================================
;
; init.3.s
;
;===============================================================================

		longa	on
		longi	on
		
init_3_header	PROC	org init_3_org-header_length
		Import	Init_3_start,Init_3_end

		msb	on

		DC.W	init_3_end-init_3_start
		DC.L	init_3_org
		DC.W	$8000
		DC.B	'Init Manager part 3   v04.01' 
		DC.B	00

		msb	off

		ENDP

init_3_start	PROC	org init_3_org
		ENDP

		include	'init.data.src'	

;==========================================================
;
;  file init.3
;
;  Contains the data segment and text interface portions of
;  the init package.
;
;  Author:      Andy Stadler
;  Created:     29-Jan-88
;  Modified:    See modification history below
;
;  Copyright (C) 1988-1989 Apple Computer, Inc.
;  All Rights Reserved.
;
;==========================================================

		macro
		_gotoxy	&h,&v
		lda	#gotoxy
		jsr	write_char
		lda	#(&h+32)+((&v+32)<<8)
		jsr	write_2char
		endm

		DataChk	Off

		eject
;==========================================================
;
;  jsl  get_string
;
;  Looks up the specified string from the error messages.
;
;  Inputs:      A = string #
;
;  Outputs:     X,Y = pointer to string
;               A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000...
;
;  uses init_temp_1
;
;==========================================================

get_string	Proc	Export
		Import	get_msg_address

		with	my_direct_page

		inc	a			; calc table offset
		asl	a
		asl	a
		sta	<init_temp_1

		pea	get_msg_address>>16
		pea	get_msg_address
		pea	0
		jsl	>lc_dispatcher

		txa				; index into table
		clc
		adc	<init_temp_1
		sta	<init_temp_1
		tya
		adc	#0
		sta	<init_temp_1+2

		lda	[<init_temp_1]		; calc string start
		clc
		adc	<init_temp_1

		tax
		ldy	<init_temp_1+2
		rtl

		ENDP

		eject
;==========================================================
;
;  deref_lists
;
;  fmt_list_vp  ->  fmt_list_ptr
;  fst_list_vp  ->  fst_list_ptr
;
;  Inputs:      fmt_list_vp = VP of available formats
;               fst_list_vp = VP of available file systems.
;
;  Outputs:     A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000...
;
;==========================================================

deref_lists	Proc	Export
		Import	call_deref
		with	my_direct_page

		ldx	<fmt_list_vp
		ldy	<fmt_list_vp+2
		jsl	call_deref
		stx	<fmt_list_ptr
		sty	<fmt_list_ptr+2

		ldx	<fst_list_vp
		ldy	<fst_list_vp+2
		jsl	call_deref
		stx	<fst_list_ptr
		sty	<fst_list_ptr+2

		rtl
		EndP

		eject
;==========================================================
;
;  call_open
;
;  Open the console driver!
;
;  Outputs:     A = error code IF C = 1
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000..|
;                          0 if opened OK, 1 if not
;
;==========================================================

call_open	Proc
		lda	|cons_dev_num
		sta	<drvr_dev_num
		lda	#drvr_open
		sta	<drvr_call_num
		jsl	>call_dispatch
		rts
		EndP

		eject
;==========================================================
;
;  call_status
;
;  Perform a status call to the console driver.  This only
;  works for a max of 2 bytes of data because it always
;  uses std_buffer.  The driver is called with a request
;  count of 2.
;
;  Outputs:     std_buffer = contains data returned
;               <drvr_tran_cnt = transferred data count
;               A = error code IF C = 1
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000..|
;                          0 if status OK, 1 if not
;
;==========================================================

call_status	Proc
		sta	<drvr_stat_code
		lda	#drvr_status
		bra	common_call		; rest is shared with call_control

		eject
;==========================================================
;
;  call_control
;
;  Perform a control call to the console driver.  This only
;  works for a max of 2 bytes of data because it always
;  uses std_buffer.  The driver is called with a request
;  count of 2.
;
;  Outputs:     std_buffer = contains data to send
;               <drvr_tran_cnt = transferred data count
;               A = error code IF C = 1
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000..|
;                          0 if status OK, 1 if not
;
;  console_dispatch - calls the console driver directly.
;
;  Inputs:	A = low byte of request count (high byte always 0)
;		X = low word of control list pointer
;		Y = high word of control list pointer
;		drvr_ctrl_code and drvr_call_num must be
;		initialized prior to entering console_dispatch.
; 
;==========================================================
		Entry	call_control,console_dispatch
call_control
		sta	<drvr_ctrl_code
		lda	#drvr_control

; from here down is shared by call_status

common_call
		sta	<drvr_call_num
		ldx	#<std_buffer
		ldy	#^std_buffer
		lda	#2

console_dispatch
		sta	<drvr_req_cnt
		stz	<drvr_req_cnt+2
		stx	<drvr_slist_ptr
		sty	<drvr_slist_ptr+2
		lda	|cons_dev_num
		sta	<drvr_dev_num
		jsl	>call_dispatch
		rts
		EndP

		eject
;==========================================================
;
;  call_close
;
;  done, close that puppy!
;
;  Outputs:     A = error code IF C = 1
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000..|
;                          0 if closed OK, 1 if not
;
;==========================================================

call_close	Proc
		lda	|cons_dev_num
		sta	<drvr_dev_num
		lda	#drvr_close
		sta	<drvr_call_num
		jsl	>call_dispatch
		rts
		EndP

		eject
;==========================================================
;
;  get_input_port
;
;  Performs a GetInputPort call to the console driver
;
;  Outputs:     A = error code IF C = 1
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000..|
;                          0 if closed OK, 1 if not
;
;==========================================================

get_input_port	Proc
		Import	input_port:InputPortRec

		lda	#$8001			; subcall = GetInputPort
		sta	<drvr_stat_code
		
		lda	#drvr_status		; make a status call
		sta	<drvr_call_num
		
		ldx	#input_port		; status list = InputPortRec
		ldy	#^input_port
		
		lda	#$0011			; sizeof(InputPortRec)
		brl	console_dispatch	; call the console driver (rts)
		EndP

		eject
;==========================================================
;
;  write_num_str
;
;  Write the string specified by A.  This is the index #
;  for a string in the error.msg file.
;
;  Inputs:      A = string # to print
;
;  Outputs:     A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000...
;
;
;==========================================================

write_num_str	Proc
		Import	get_string

		jsl	get_string
		bra	write_pstring		; (rts)

		eject
;==========================================================
;
;  write_2char
;
;  Write the characters contained in A: lo byte, then high.
;
;  Inputs:      A = 2 ascii chars
;
;  Outputs:     A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000...
;
;  Uses:        init_temp_1
;
;==========================================================
		Entry	write_2char
write_2char
		pha
		jsr	write_char
		pla
		xba
;		bra	write_char		; (rts)
		;fall into write_char

		eject
;==========================================================
;
;  write_char
;
;  Write the character in the low byte of A.
;
;  Inputs:      A = ascii to write
;
;  Outputs:     A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000...
;
;  Uses:        init_temp_1
;
;==========================================================
		Entry	write_char
write_char
		and	#$00FF			; make p string
		xba
		inc	a
		sta	>std_buffer
		ldx	#<std_buffer
		ldy	#^std_buffer
;		brl	write_pstring
		;fall into write_pstring

		eject
;==========================================================
;
;  write_pstring
;  write_gstring
;
;  Write the specified string.  In the write_gstring call,
;  there is a special hack which skips over the first
;  character of the string, this eliminates the separator
;  which is $80 or ':' or other nastiness.
;
;  Inputs:      X,Y = pointer to a (p- or g-) string
;
;  Outputs:     A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000...
;
;  Uses: init_temp_1
;
;==========================================================
		Entry	write_pstring
write_pstring
		with	my_direct_page

		stx	<init_temp_1
		sty	<init_temp_1+2

		inx				; make ptr to text
		bne	write_pstr_1
		iny
write_pstr_1

		lda	[<init_temp_1]		; get length
		and	#$00FF

		bra	common_write

		entry	write_gstring
write_gstring
		stx	<init_temp_1
		sty	<init_temp_1+2

		txa				; add 3 (skip length and separator)
		clc
		adc	#3
		tax
		bcc	write_gstr_1
		iny
write_gstr_1

		lda	[<init_temp_1]		; get length

;  common part of write_n_string : length in A, ptr in X,Y
		entry	common_write
common_write
		sta	<drvr_req_cnt
		stz	<drvr_req_cnt+2
		stx	<drvr_buf_ptr
		sty	<drvr_buf_ptr+2
		lda	|cons_dev_num
		sta	<drvr_dev_num
		lda	#drvr_write
		sta	<drvr_call_num
		stz	<drvr_blk_size
		jsl	call_dispatch
		rts
		EndP

		eject
;==========================================================
;
;  find_console
;
;  Call the get_dnum routine in the Device Dispatcher to
;  get the device # of the device named 'CONSOLE'.
;
;  The p-string 'CONSOLE' is contained in the Device Dispatcher
;  itself since the Init Mgr has no room left in its $00/B200
;  space for the string and the string can't live in LC Bank1 space.
;
;  Outputs:     cons_dev_num = device #  
;               A = error # if c=1, else trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000..|
;                          0 = ok, 1 = device not found
;
;==========================================================

find_console	Proc		 
		Import	console_string,get_dnum

		pea	get_dnum>>16		;address of get_dnum routine
		pea	get_dnum
		pea	$0000			;lc bank 0
		ldx	#console_string		;address of p-string "CONSOLE"
		ldy	#console_string>>16
		jsl	>lc_dispatcher
		sta	|cons_dev_num		;device #
		rts
		EndP

		eject
;==========================================================
;
;  restore_state
;
;  Rolls data from vid_state (see above) back into the
;  various soft switches.
;
;  Inputs:      vid_state = (as shown above)
;
;  Outputs:     A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000...
;
;==========================================================

restore_state	Proc
		with	my_direct_page

		sep	#$30
		longa	off
		longi	off

		lda	|vid_state		; put where easier to get at
		sta	<init_temp_1

		lda	|new_video		; just touch bit 7 here
		rol	a
		ror	<init_temp_1
		ror	a
		sta	|new_video

		ldy	#0			; easy source of zeros

		ror	<init_temp_1
		tya
		rol	a			; setup 0 or 1 index
		tax
		sta	|clr80vid,X		; to hit paired soft switches

		ror	<init_temp_1
		tya
		rol	a
		tax
		sta	|clraltchar,X

		ror	<init_temp_1
		tya
		rol	a
		tax
		sta	|txtpage1,X

		ror	<init_temp_1
		tya
		rol	a
		tax
		sta	|txtclr,X

		ror	<init_temp_1
		tya
		rol	a
		tax
		sta	|clr80col,X

		rep	#$30
		longa	on
		longi	on

		rts
		EndP

		eject
;==========================================================
;
;  save_state
;
;  Preserves the state of the video modes.  Everything
;  pertaining to a text-based screen is saved.  The status
;  bits are rolled into the byte 'vid_state' as follows:
;   ___ ___ ___ ___ ___ ___ ___ ___
;  |   |   |   |   |   |   |   |   |
;  | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 |
;  |___|___|___|___|___|___|___|___|
;    |   |   |   |   |   |   |   |__new video
;    |   |   |   |   |   |   |______80 vid
;    |   |   |   |   |   |__________alt char
;    |   |   |   |   |______________page 2
;    |   |   |   |__________________text mode
;    |   |   |______________________80 col
;    |___|__________________________(always 0)
;
;  Then we put everything the way _we_ want it!
;
;  Outputs:     vid_state = (as shown above)
;               A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000...
;
;==========================================================

save_state	Proc
		with	my_direct_page

		sep	#$30			; 8 bit mode for all this
		longa	off
		longi	off

		stz	<init_temp_1

		lda	|rd80col		; get info 1 bit at a time
		rol	a
		rol	<init_temp_1

		lda	|rdtext
		rol	a
		rol	<init_temp_1

		lda	|rdpage2
		rol	a
		rol	<init_temp_1

		lda	|altcharset
		rol	a
		rol	<init_temp_1

		lda	|rd80vid
		rol	a
		rol	<init_temp_1

		lda	|new_video
		rol	a
		rol	<init_temp_1

		lda	#$36			; 80col tx p1 altch 80vid oldvideo
		sta	|vid_state

		rep	#$30
		longa	on
		longi	on

		pei	<init_temp_1
		jsr	restore_state		; now make screen for ME
		pla
		sta	|vid_state
		rts
		EndP

		eject
;==========================================================
;
;  save_cons_state
;
;  Preserves the state of the console driver- whether it
;  was open ; and what wait & read modes were set.  Then it
;  is opened (if necessary) and set for raw read + wait mode.
;  The original state is stored in console_state in the
;  following format:
;   ______ ___ ___ ___ ___ ___ ___ ___ ___
;  |      |   |   |   |   |   |   |   |   |
;  | 15-8 | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 |
;  |______|___|___|___|___|___|___|___|___|
;      |    |   |   |   |   |   |   |   |__console open
;      |    |   |   |   |   |   |   |______no_wait_mode
;      |    |   |   |   |   |   |__________raw input mode
;      |____|___|___|___|___|______________always 0
;
;  Then we put everything the way _we_ want it!
;
;  Outputs:     console_state = (as shown above)
;               A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000...
;
;==========================================================

save_cons_state	Proc
		Import	dflt_input_port,term_list,term_list_len:equ
		Import	call_alloc,call_deref

		with	my_direct_page

		lda	#0			; get driver status
		jsr	call_status
		lda	>std_buffer
		and	#1
		sta	<init_temp_1
		bne	sk_open_con		; already open

		jsr	call_open

sk_open_con
		lda	#2			; get wait mode
		jsr	call_status
		lda	>std_buffer
		rol	a
		rol	<init_temp_1
		lda	#$8005			; get read mode
		jsr	call_status
		lda	>std_buffer
		rol	a

;  create final product and store at >console_state

		lda	<init_temp_1
		rol	a
		sta	|console_state

;  buffer off any existing Input Port record, Terminator list, and
;  default string

		lda	#17			;17 bytes for Input Port record
		jsl	call_alloc
		stx	save_in_port
		sty	save_in_port+2
		jsl	call_deref
		;leave pointer in X and Y
		lda	#$8001			;GetInputPort
		sta	<drvr_stat_code
		lda	#drvr_status
		sta	<drvr_call_num
		lda	#17			;requestCount
		jsr	console_dispatch	;make the call

		lda	#514			;514 bytes for maximum terminator list
		jsl	call_alloc
		stx	save_term_list
		sty	save_term_list+2
		jsl	call_deref
		;leave pointer in X and Y
		lda	#$8002			;GetTerminators
		sta	<drvr_stat_code
		lda	#drvr_status
		sta	<drvr_call_num
		lda	#514			;requestCount
		jsr	console_dispatch	;make the call
		lda	<drvr_tran_cnt		;save the length of the returned record
		sta	save_list_len

		lda	#255			;255 bytes for default string
		jsl	call_alloc
		stx	save_dflt_string
		sty	save_dflt_string+2
		jsl	call_deref
		;leave pointer in X and Y
		lda	#$8006			;GetDefaultString
		sta	<drvr_stat_code
		lda	#drvr_status
		sta	<drvr_call_num
		lda	#255			;requestCount
		jsr	console_dispatch
		lda	<drvr_tran_cnt		;save the length of the string
		sta	dflt_string_len

;  now set:  wait mode, raw read mode

		lda	#0
		sta	>std_buffer
		lda	#4			; set wait mode
		jsr	call_control
		lda	#$8000
		sta	>std_buffer
		lda	#$8003			; set raw read mode
		jsr	call_control

; now we send the terminator list to the console driver

		lda	#$8001			; SetTerminators
		sta	<drvr_ctrl_code
		lda	#drvr_control		; make a control call
		sta	<drvr_call_num

		lda	#term_list_len
		ldx	#<term_list
		ldy	#^term_list
		jsr	console_dispatch	; call the console driver

		lda	#$8000			; SetInputPort
		sta	<drvr_ctrl_code
		lda	#drvr_control		; make a control call
		sta	<drvr_call_num

		lda	#5			; only modify first 5 bytes
		ldx	#<dflt_input_port
		ldy	#^dflt_input_port
		jsr	console_dispatch	; call the console driver

		rts
		EndP

		eject
;==========================================================
;
;  restore_console
;
;  Sets the console driver back into its original state.
;
;  Inputs:      console_state = (as shown above)
;
;  Outputs:     A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000...
;
;==========================================================

restore_console	Proc
		Import	call_deref,call_release

		with	my_direct_page

; restore the original Input Port, Terminator List, and default string

		ldx	save_dflt_string
		ldy	save_dflt_string+2
		jsl	call_deref
		;leave pointer in X and Y
		lda	#$8004			; SetDefaultString
		sta	<drvr_ctrl_code
		lda	#drvr_control
		sta	<drvr_call_num
		lda	dflt_string_len		; requestCount
		jsr	console_dispatch
		ldx	save_dflt_string	; deallocate buffer
		ldy	save_dflt_string+2
		jsl	call_release

		ldx	save_term_list
		ldy	save_term_list+2
		jsl	call_deref
		;leave pointer in X and Y
		lda	#$8001			; SetTerminators
		sta	<drvr_ctrl_code
		lda	#drvr_control
		sta	<drvr_call_num
		lda	save_list_len		; requestCount
		jsr	console_dispatch
		ldx	save_term_list		; deallocate buffer
		ldy	save_term_list+2
		jsl	call_release

		ldx	save_in_port
		ldy	save_in_port+2
		jsl	call_deref
		;leave pointer in X and Y
		lda	#$8000			; SetInputPort
		sta	<drvr_ctrl_code
		lda	#drvr_control
		sta	<drvr_call_num
		lda	#17			; requestCount
		jsr	console_dispatch
		ldx	save_in_port		; deallocate buffer
		ldy	save_in_port+2
		jsl	call_release

; restore the other settings

		lda	|console_state
		sta	<init_temp_1

		lda	#0
		ror	<init_temp_1
		ror	a
		sta	>std_buffer
		lda	#$8003			; set read mode
		jsr	call_control

		lda	#0
		ror	<init_temp_1
		ror	a
		sta	>std_buffer
		lda	#0004			; set wait/no-wait mode
		jsr	call_control

		lda	<init_temp_1		; was it open?
		bne	sk_close_cons		; yes, don't close
		jsr	call_close
sk_close_cons				 
		rts
		EndP

		eject
;==========================================================
;
;  save_tx_screen
;
;  Prepare the text screen for use:
;
;  (1)  Push viewport (sets full size)
;  (2)  Save entire screen
;  (3)  If video mode changed, clear entire screen
;
;  Outputs:     port_save = saved screen image
;               A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000...
;
;==========================================================

save_tx_screen 	Proc
		Import	gsos_id
		with	my_direct_page

		lda	#$01			; push vp
		jsr	write_char

;  get memory for a port buffer

		lda	#0
		pha				; returns long
		pha
		pha				; size 1920 + 2
		pea	1920+2
		lda	>gsos_id		; use Mike's memory ID
		pha
		pea	$C000			; locked
		pha				; bank doesn't matter
		pha
		ldx	#$0902			; NewHandle
		jsl	$E10000

		pla
		sta	<init_temp_1
		pla
		sta	<init_temp_1+2

		lda	[<init_temp_1]		; deref the handle
		sta	|scr_save_buf
		sta	<drvr_slist_ptr
		ldy	#2
		lda	[<init_temp_1],y
		sta	|scr_save_buf+2
		sta	<drvr_slist_ptr+2

; save the port

		lda	#$8003			; save text port
		sta	<drvr_stat_code
		lda	#drvr_status
		sta	<drvr_call_num
		lda	|cons_dev_num
		sta	<drvr_dev_num
		lda	#1920+2
		sta	<drvr_req_cnt
		stz	<drvr_req_cnt+2
		jsl	>call_dispatch

; clear screen if mode changed

		lda	|vid_state
		and	#$0017			; want: text on, altchar on,
		cmp	#$0016			;       80vid on, new vid off
		beq	sk_clr_scr

		lda	#$0C			; clear that puppy
		jsr	write_char
sk_clr_scr

		rts
		EndP
		
		eject
;==========================================================
;
;  restore_tx_scr
;
;  Restore the text screen to its original state
;
;  Inputs:      port_save = saved screen image
;
;  Outputs:     A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000...
;
;==========================================================

restore_tx_scr	Proc
		lda	#$04			; 'pop port'
		jsr	write_char		; (to the prev, which is full scr)

		lda	#$8002			; restore text port
		sta	<drvr_ctrl_code
		lda	#drvr_control
		sta	<drvr_call_num
		lda	|cons_dev_num
		sta	<drvr_dev_num
		lda	|scr_save_buf
		sta	<drvr_slist_ptr
		lda	|scr_save_buf+2
		sta	<drvr_slist_ptr+2
		lda	#1920+2
		sta	<drvr_req_cnt
		stz	<drvr_req_cnt+2
		jsl	>call_dispatch

;  toss out the memory

		pha
		pha
		lda	|scr_save_buf+2
		pha
		lda	|scr_save_buf
		pha
		ldx	#$1A02			; findHandle
		jsl	$E10000

		ldx	#$1002			; disposeHandle
		jsl	$E10000

; and restore to the original port

		lda	#$04			; 'pop port'
		brl	write_char		; (rts)
		EndP

		eject
;==========================================================
;
;  txTextBox2
;
;  Prints the supplied string within the message box in
;  the text dialog.
;
;  Inputs:      X, Y = pointer to pascal string to print
;
;  Outputs:     A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000...
;
;  Variable usage:
;		strPtr = supplied pointer to the string
;		strLen = length of string
;
;==========================================================

txTextBox2	Proc
		with	my_direct_page

strPtr		equ	init_temp_3
strLen		equ	init_temp_4
window_width	equ	47			;width of the message box

		stx	<strPtr
		sty	<strPtr+2
		lda	[<strPtr]		; get the string length
		and	#$00ff
		sta	<strLen
		inc	<strPtr			; bump pointer to actual text
		bne	set_new_port
		inc	<strPtr+2
set_new_port

; Set a new text port to the dimensions of the message box

		lda	#saveTxtPort+(setTxtPortSize<<8)
		jsr	write_2char
		lda	#(16+32)+((15+32)<<8)	; 16, 15
		jsr	write_2char
		lda	#(62+32)+((18+32)<<8)	; 62, 18
		jsr	write_2char

		lda	#clearScreen		; clear the port
		jsr	write_char
		
while_loop	; while (strlen<window_width)
		lda	<strLen			; get the string length
		cmp	#window_width+1		; less than the width of the window?
		bcc	end_while		; yes, just display the string

		ldy	#window_width-1		; start search at window_width into string
		sep	#$20			; 8-bit accumulator
		longa	off
		lda	#' '			; search for a space
@search
		cmp	[strPtr],y		; is there a space there?
		beq	@space_found		; yes...
		dey				; else step back one character
		bne	@search			; and keep searching
		ldy	#window_width-1		; if no space found, just fill the line

@space_found
		phy				; save position of space
		rep	#$20			; back to 16-bit accumulator
		longa	on
		ldx	<strPtr			; get the string pointer into X & Y
		ldy	<strPtr+2
		lda	1,s			; get the length
		sec				; (+1 to skip the space)
		adc	<strPtr			; set pointer to remainder of string
		sta	<strPtr
		bcc	@1
		inc	<strPtr+2
@1
		lda	<strLen			; get original length
		clc				; (-1 to skip the space)
		sbc	1,s			; calculate remaining length
		sta	<strLen

		pla				; retrieve length of string segment
		jsr	common_write		; go write the string
		
		lda	#carriageReturn		; move to next line
		jsr	write_char
		bra	while_loop		; go back and do it again

end_while
		lda	<strLen			; get the remaining string length
		beq	done			; if 0, we're done
		ldx	<strPtr			; get the string pointer
		ldy	<strPtr+2
		jsr	common_write		; write the string
done
		lda	#popTxtPort		; restore the original text port
		brl	write_char		; (rts)

		EndP

		eject
;==========================================================
;
;  draw_top_select
;
;  Any time top_bar_pos is changed, call this routine to
;  draw the 'File System' vs. 'Format' selector bar.
;
;  Inputs:      top_bar_pos = -1 for FS, 0 for niether, 1 for FMT
;
;  Outputs:     A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000...
;
;==========================================================

draw_top_select	Proc
		with	my_direct_page

		_gotoxy	5,6
		lda	#inverse		; inverse text control code
		pha
		dec	a			; turn into a normal code
		
		ldx	<top_bar_pos		; get current setting
		bne	@which_one		; something get's inverted!
		sta	1,s			; put 'normal' code on stack
		bra	draw_top_sel_1		; then draw the headers
		
@which_one
		bpl	draw_top_sel_1		; Format should be inverse

		sta	1,s			; else normal 'Format'
		inc	a			; and inverse 'File System'

draw_top_sel_1
		jsr	write_char

		lda	#26			; ' File System '
		jsr	write_num_str

		pla
		jsr	write_char		; retrieve correct code for 'Format'

		lda	#27			; htab and print 'Format'
		brl	write_num_str		; (rts)
		EndP

		eject
;==========================================================
;
;  write_line
;
;  Draws the line which forms the top & bottom of the
;  init window.
;
;  Inputs:	A = number of characters to write
;
;  Outputs:     A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000...
;
;  Uses: init_temp_2
;
;  Modified 1-13-89 CAE
;
;==========================================================

write_line	Proc
		with	my_direct_page

		sta	<init_temp_2		; save # of chars to write

		lda	#$1C			; move-right
		jsr	write_char

write_ln_lp
		lda	#'_'		
		jsr	write_char
		dec	<init_temp_2
		bne	write_ln_lp

		lda	#$1C			; move-right
		brl	write_char		; (rts)
		EndP

		eject
;==========================================================
;
;  setup_name
;
;  fills our buffer with the currently entered volume name
;
;==========================================================


setup_name	Proc
		Import	call_deref,get_string
		
		with	my_direct_page

		ldx	path_vp			; deref the VP to our buffer
		ldy	path_vp+2
		jsl	call_deref
		stx	txt_name_ptr
		sty	txt_name_ptr+2

		lda	<path2_ptr		; make pointer to volume name string
		ora	<path2_ptr+2		; was a volume name supplied?
		bne	@set_it_up		; yes, use it
		lda	#61			; get the default volume name string
		jsl	get_string
		stx	<init_temp_1
		sty	<init_temp_1+2
		lda	[<init_temp_1]		; get the length byte
		bra	do_copy

@set_it_up
		lda	<path2_ptr		; make pointer to volume name string
		clc
		adc	#2			; point to separator
		sta	<init_temp_1
		lda	<path2_ptr+2		; high word too
		adc	#0
		sta	<init_temp_1+2
		lda	[<path2_ptr]		; get the length word
		dec	a			; adjust for missing separator
do_copy
		and	#$00FF			; clear high byte
		cmp	#33			; >32 characters?
		bcc	@ok			; no...
		lda	#32			; else max it out
@ok
		tay				; into Y for indexing
		sep	#$20			; 8 bit accumulator
		pha				; save length _byte_
@loop
		lda	[<init_temp_1],y	; copy name to our buffer
		sta	[txt_name_ptr],y
		dey
		bne	@loop			; loop until string is copied
		pla				; retrieve length _byte_
		sta	[txt_name_ptr]		; store it
		rep	#$20			; back to 16-bit accumulator
done
		rts
		endp

		eject
;==========================================================
;
;  draw_tx_wind
;
;  (1)  Push port
;  (2)  Set to border port
;  (3)  Draw border
;  (4)  Draw static stuff (dev name... volume...  press RETURN etc)
;
;  Outputs:     A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000...
;
;==========================================================

draw_tx_wind	Proc
		Import	get_string

		with	my_direct_page

;  set for window

		lda	#$0201			; push vp, set vp
		jsr	write_2char
		lda	#$222E			; 14, 2
		jsr	write_2char
		lda	#$3561			; 65, 21
		jsr	write_2char
		lda	#$1715			; disable scroll
		jsr	write_2char

; draw window

		lda	#50			; width
		jsr	write_line		; draw top line

		lda	#19			; sides counter
		sta	<init_temp_2

draw_side_lp
		lda	#$10DA			; side bar, expand spaces
		jsr	write_2char
		lda	#$DF52			; 50 spaces, side bar
		jsr	write_2char

		dec	<init_temp_2
		bne	draw_side_lp

		lda	#50			; width
		jsr	write_line		; draw bottom line

		_gotoxy	6,2

		ldx	#21			; get first string for Format call
		lda	which_call		; was the call Format or Erase?
		beq	its_format		; it was Format
		ldx	#29			; get first string for Erase call
its_format	txa
		jsr	write_num_str		; write out the string

		stz	<drvr_dev_num		; get name from DIB
		lda	#get_dib_ptr
		sta	<drvr_call_num
		lda	<dev_num
		sta	<drvr_buf_ptr
		jsl	call_dispatch

		lda	<drvr_dib_ptr		; make pointer to name string
		clc
		adc	#$0E
		tax
		lda	<drvr_dib_ptr+2
		adc	#0
		tay
		jsr	write_pstring		; and write the mother

		_gotoxy	6,4

		lda	#22			; 'as volume'
		jsr	write_num_str

		bit	pb_flags		; editable volume name?
		bmi	@its_a_control		; yes, its an editLine control
		lda	#'"'			; quote the name
		jsr	write_char
		ldx	<txt_name_ptr		; write volume name
		ldy	<txt_name_ptr+2
		jsr	write_pstring
		lda	#'"'
		jsr	write_char
		bra	@name_drawn

@its_a_control
		lda	#64
		jsr	write_num_str		; draw the box
		
@name_drawn
		ldx	#25			; get prompt string for Format call
		lda	which_call		; was the call Format or Erase?
		beq	its_format2		; it was Format
		ldx	#31			; get string for Erase call
its_format2	txa
		jsr	write_num_str		; write out the string

		stz	<top_bar_pos		; assume editable name
		bit	pb_flags		; is it really?
		bmi	@editable		; yes
		dec	<top_bar_pos		; else set FST title inverse
@editable
		jsr	draw_top_select		; draw the list headers
		
		lda	#62			; start with the caution message
		sta	currentFST		; init to show which message is displayed
		jsl	get_string
		brl	txTextBox2		; draw it in the window

		EndP

		eject
;==========================================================
;
;  make_tx_ptr
;
;  Form a pointer to a particular member of one of the
;  lists.
;
;  Inputs:      A = entry #
;               tx_list_ptr = pointer to text list record
;
;  Outputs:     tx_list_entry = pointer to one of its members
;               A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000...
;
;==========================================================

make_tx_ptr	Proc
		with	my_direct_page,tx_list_record

		tax				; if zero, offset = 0
		beq	make_tx_ptr_2
		lda	#0
		ldy	#list_entry_size	; (offset of entry size)

make_tx_ptr_1
		clc
		adc	[<tx_list_ptr],y

		dex
		bne	make_tx_ptr_1

make_tx_ptr_2
		clc
		adc	[<tx_list_ptr]
		sta	<tx_entry_ptr
		ldy	#2
		lda	#0
		adc	[<tx_list_ptr],y
		sta	<tx_entry_ptr+2
		rts
		EndP

		eject
;==========================================================
;
;  setup_lists
;
;  Plug in data about the member lists and draw the lists.
;
;  Outputs:     A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000...
;
;==========================================================

setup_lists	Proc
		Import	tx_list_1:tx_list_record,tx_list_2:tx_list_record

		with	my_direct_page,tx_list_record

		lda	<fst_list_ptr
		sta	|tx_list_1.member_ptr
		lda	<fst_list_ptr+2
		sta	|tx_list_1.member_ptr+2

		lda	<fst_list_cnt
		sta	|tx_list_1.num_entries

		lda	#$FFFF			; initialize selections
		sta	|tx_list_1.current_entry

		inc	a			; init scroll to top
		sta	|tx_list_1.top_entry

		lda	#<tx_list_1
		sta	<tx_list_ptr
		lda	#^tx_list_1
		sta	<tx_list_ptr+2
		jsr	draw_list

		lda	<fmt_list_ptr
		sta	|tx_list_2.member_ptr
		lda	<fmt_list_ptr+2
		sta	|tx_list_2.member_ptr+2

		lda	<fmt_disp_cnt
		sta	|tx_list_2.num_entries

		lda	#$FFFF			; initialize selections
		sta	|tx_list_2.current_entry

		inc	a			; init scroll to top
		sta	|tx_list_2.top_entry

		lda	#<tx_list_2
		sta	<tx_list_ptr
		lda	#^tx_list_2
		sta	<tx_list_ptr+2
;		bra	draw_list		; (rts)
		; fall into draw_list

		eject
;==========================================================
;
;  draw_list
;
;  Any time one of the lists is changed, call this routine
;  to draw it.  Contains auto-scroll logic (if the currently
;  selected entry is missing, bring it into view).
;
;  Inputs:      tx_list_ptr = ptr to text list record
;
;  Outputs:     A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000...
;
;==========================================================
		Entry	draw_list
draw_list
		Import	set_list_str

		ldy	#port			; set to this port
		lda	[<tx_list_ptr],y
		sta	>set_list_str+3
		iny
		iny
		lda	[<tx_list_ptr],y
		sta	>set_list_str+5
		ldx	#<set_list_str
		ldy	#^set_list_str
		jsr	write_pstring

; scroll (adjust top #) if current selection not visible

		ldy	#current_entry		; A = current sel.
		lda	[<tx_list_ptr],y
		cmp	#$FFFF			; -1 = no selection
		beq	draw_list_0		; no adjustment.

		iny
		iny				; CMP A vs. top #
		cmp	[<tx_list_ptr],y
		bge	draw_list_01		; bra if not before top

		sta	[<tx_list_ptr],y 	; put selection at top of window
		bra	draw_list_0

draw_list_01
		sta	<init_temp_1		; see if past bottom edge
		lda	[<tx_list_ptr],y
		clc				; A = top + 3
		adc	#3
		cmp	<init_temp_1
		bge	draw_list_0

		lda	<init_temp_1		; put selection at 4
		sec
		sbc	#3
		sta	[<tx_list_ptr],y

; draw or erase top arrow

draw_list_0
		ldy	#top_entry 		; if top is non-zero draw arrow
		lda	[<tx_list_ptr],y
		beq	draw_list_1

		lda	#$CB0E			; draw up arrow (normal, arrow)
		jsr	write_2char
		bra	draw_list_2

draw_list_1
		lda	#$200E			; clear up arrow (normal, space)
		jsr	write_2char

;  draw or erase bottom arrow

draw_list_2
		ldy	#num_entries 		; if len-top >= 5 draw down arr.
		lda	[<tx_list_ptr],y
		sec
		ldy	#top_entry
		sbc	[<tx_list_ptr],y
		cmp	#5
		blt	draw_list_3

		_gotoxy	0,3

		lda	#$19CA			; down arrow, home cursor
		jsr	write_2char
		bra	draw_list_4

draw_list_3
		_gotoxy	0,3

		lda	#$1920			; space, home cursor
		jsr	write_2char

;  draw entries one by one

draw_list_4
		ldy	#top_entry
		lda	[<tx_list_ptr],y
		sta	<tx_cur_entry

		lda	#4			; how many to draw

		sta	<init_temp_3

;  loop here per entry

draw_list_5
		lda	<tx_cur_entry
		ldy	#num_entries		; past end?
		cmp	[<tx_list_ptr],y
		blt	draw_list_55

;  we are past the end.  just clear the line

		lda	#clearLine		; this would erase the arrows
		jsr	write_char		; but think, no arrows could be
		brl	draw_list_9

;  this is a real entry

draw_list_55
		jsr	make_tx_ptr		; make pointer to mem list entry

		lda	<tx_cur_entry		; if selected one, draw inversed
		ldy	#current_entry
		cmp	[<tx_list_ptr],y
		beq	draw_list_6

		ldy	#4			; if disabled, draw parens
		lda	[<tx_entry_ptr],y	; get mem_flag from record
		and	#$0020			; check bit 5
		bne	draw_list_7		; not selectable

;  prepare for normal, selectable.

		lda	#$1C1C			; forward
		jsr	write_2char
		lda	#' '		
		jsr	write_char
		per	finish_normal-1
		bra	draw_list_8

;  prepare for selected item

draw_list_6
		lda	#$1C1C			; forward 2
		jsr	write_2char
		lda	#$200F			; inverse, space
		jsr	write_2char

		per	finish_sel-1
		bra	draw_list_8

;  prepare for disabled item

draw_list_7
		lda	#$1C1C			; forward
		jsr	write_2char
		lda	#'('		
		jsr	write_char
		per	finish_disa-1

;  now draw the member string

draw_list_8
		lda	[<tx_entry_ptr]
		tax
		sta	<init_temp_2
		ldy	#2
		lda	[<tx_entry_ptr],y
		tay
		sta	<init_temp_2+2

		brl	write_pstring		; rts to previously pushed addr

finish_normal
		lda	#' '		
		jsr	write_char
		bra	draw_list_9

finish_sel
		lda	#$0E20			; space, normal
		jsr	write_2char
		bra	draw_list_9

finish_disa
		lda	#')'		
		jsr	write_char

;  now pad field, CR and go to next one

draw_list_9
		lda	[<init_temp_2]		; now calc length for padding
		and	#$00FF
		pha
		sec
		lda	#15+32
		sbc	1,s
		and	#$00FF
		ora	#$0D00
		sta	>std_buffer+2
		lda	#$1003			; pstring: $10 char_count CR
		sta	>std_buffer
		pla
		ldx	#<std_buffer
		ldy	#^std_buffer
		jsr	write_pstring

		inc	<tx_cur_entry
		dec	<init_temp_3
		beq	draw_list_10
		brl	draw_list_5

draw_list_10
		lda	#$04			; pop vp
		brl	write_char		; (rts)
		EndP

		eject
;==========================================================
;
;  choose_fmt
;
;  Pick a format to select, by the following algorithm:
;
;  (1)  If a format already selected & it's enabled, stay w/it.
;  (2)  If the driver's 'default' is available, choose it.
;  (3)  Else just take whatever is available.
;
;  Outputs:     A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000...
;
;==========================================================

choose_fmt	Proc
		Import	tx_list_1:tx_list_record,tx_list_2:tx_list_record
		with	my_direct_page,fmt_list_record

		lda	#<tx_list_2
		sta	<tx_list_ptr
		lda	#^tx_list_2
		sta	<tx_list_ptr+2

		lda	|tx_list_2.current_entry
		cmp	#$FFFF
		beq	choose_fmt_1		; nothing selected.

		jsr	make_tx_ptr		; selected.  see if available.

		ldy	#df_mem_flag
		lda	[<tx_entry_ptr],y
		and	#$0020			; disable bit
		bne	choose_fmt_1
		rts				; dis. bit off = enabled.  stay.

;  The current selection is not available.  Try the driver default.

choose_fmt_1
		stz	<init_temp_1		; entry counter

choose_fmt_2
		lda	<init_temp_1
		jsr	make_tx_ptr

		ldy	#df_conf_num
		lda	[<tx_entry_ptr],y
		cmp	<fmt_def_fmt
		bne	choose_fmt_3

		ldy	#df_mem_flag		; got it!  enabled?
		lda	[<tx_entry_ptr],y
		and	#$0020
		bne	choose_fmt_4		; no.  no need to keep looping
		bra	choose_fmt_6

choose_fmt_3
		inc	<init_temp_1		; loop and try another
		lda	<init_temp_1
		cmp	<fmt_disp_cnt
		bne	choose_fmt_2

;  default didn't work.  just take whatever's out there!

choose_fmt_4
		stz	<init_temp_1

choose_fmt_5
		lda	<init_temp_1
		jsr	make_tx_ptr

		ldy	#df_mem_flag		; available?
		lda	[<tx_entry_ptr],y
		and	#$0020
		beq	choose_fmt_6

		inc	<init_temp_1		; no need to test.  something
		bra	choose_fmt_5		; must be available!

choose_fmt_6
		lda	<init_temp_1		; we like it.  select it.
		sta	|tx_list_2.current_entry
		brl	draw_list		; update screen.
		EndP

		eject
;==========================================================
;
;  do_down_arrow
;
;  When the down arrow is pressed, move a selection bar
;  to the next available option.  If none, just freeze.
;
;  Inputs:      top_bar_pos = -1 for FS, 1 for FMT
;
;  Outputs:     A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000...
;
;==========================================================

do_down_arrow	Proc
		Import	tx_list_1:tx_list_record,tx_list_2:tx_list_record

		with	my_direct_page,tx_list_record,fst_list_record

		ldx	#<tx_list_1		; which is current?
		ldy	#^tx_list_1

		lda	<top_bar_pos
		bmi	do_down_1

		ldx	#<tx_list_2		; oops, guessed wrong
		ldy	#^tx_list_2

do_down_1
		stx	<tx_list_ptr
		sty	<tx_list_ptr+2

;  starting with the current entry +1, look for an opening

		ldy	#current_entry
		lda	[<tx_list_ptr],y 	; current entry #
		pha

do_down_lp
		lda	1,s
		inc	a
		sta	1,s

		ldy	#num_entries		; see if at last yet
		cmp	[<tx_list_ptr],y
		beq	do_down_2		; if so, no change!

		jsr	make_tx_ptr		; not last.  see if avail.

		ldy	#ff_mem_flag		; check enable/disable bits
		lda	[<tx_entry_ptr],y
		and	#$0020
		beq	@select_it		; enabled, so select it
		lda	1,s			; get the entry number again
		ldy	#top_entry		; is this entry below the bottom?
		sec
		sbc	#3
		cmp	[<tx_list_ptr],y
		beq	do_down_lp
		bcc	do_down_lp		; within window, keep searching
		lda	[<tx_list_ptr],y	; else must adjust top entry
		inc	a
		sta	[<tx_list_ptr],y
		bra	do_down_lp		; try another.

@select_it
		lda	1,s			; this one is active
		ldy	#current_entry
		sta	[<tx_list_ptr],y 	; set new current #

;  and redraw the list

do_down_2
		pla
		jsr	draw_list

;  finally, fix fmt enable bits for this fst

		bra	fix_fmt_bits		; (see do_up_arrow)

		eject
;==========================================================
;
;  do_up_arrow
;
;  When the up arrow is pressed, move a selection bar
;  to the previous available option.  If none, just freeze.
;
;  Inputs:      top_bar_pos = -1 for FS, 1 for FMT
;
;  Outputs:     A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000...
;
;==========================================================
		entry	do_up_arrow
do_up_arrow
		Import	jsl_fst_ptr

		ldx	#<tx_list_1		; which is current?
		ldy	#^tx_list_1

		lda	<top_bar_pos
		bmi	do_up_1

		ldx	#<tx_list_2		; oops, guessed wrong
		ldy	#^tx_list_2

do_up_1
		stx	<tx_list_ptr
		sty	<tx_list_ptr+2

;  starting with the current entry -1, look for an opening

		ldy	#current_entry
		lda	[<tx_list_ptr],y 	; current entry #
		pha

do_up_lp
		lda	1,s
		beq	do_up_2			; top.  can't go further.

		dec	a
		sta	1,s
		jsr	make_tx_ptr		; not last.  see if avail.

		ldy	#4			; check enable/disable bits
		lda	[<tx_entry_ptr],y
		and	#$0020
		beq	@select_it		; enabled, select it
		lda	1,s			; get the entry number again
		ldy	#top_entry		; is it off the top?
		cmp	[<tx_list_ptr],y	; below this entry?
		bcs	do_up_lp		; within window, continue searching
		lda	[<tx_list_ptr],y	; else must adjust top entry
		dec	a
		bmi	do_up_lp		; can't be > 0
		sta	[<tx_list_ptr],y
		bra	do_up_lp		; no.  try another.

@select_it
		lda	1,s			; this one is active
		ldy	#current_entry
		sta	[<tx_list_ptr],y 	; set new current #

;  fix stack and redraw the list

do_up_2
		pla
		jsr	draw_list

;  if it was an fst, adjust format enable bits

fix_fmt_bits
		lda	<top_bar_pos
		bpl	q_fix

		lda	|tx_list_1.current_entry
		jsl	jsl_fst_ptr		; setting up fst_list_entry
		jsl	fst_adj_fmts
		jsr	choose_fmt

		ldx	#<tx_list_2		; and redraw the format list
		ldy	#^tx_list_2
		stx	<tx_list_ptr
		sty	<tx_list_ptr+2

		jsr	draw_list

q_fix
		rts
		EndP

		eject
;==========================================================
;
;  tx_too_big
;
;  If the current fst is not big enough for the current
;  format, we will let them format, but we give them a
;  nasty note.
;
;  e.g. ProDOS (32Mb max) onto an HD40SC.
;
;  Outputs:     A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000...
;
;==========================================================

tx_too_big	Proc
		Import	tx_list_1:tx_list_record,tx_list_2:tx_list_record
		Import	chk_fst_size,jsl_fmt_ptr,jsl_fst_ptr
		Import	get_string

		clc
		lda	|tx_list_1.current_entry ; make fst and fmt pointers
		bmi	tx_no_warn		; no FST currently selected
		jsl	jsl_fst_ptr
		clc
		lda	|tx_list_2.current_entry
		bmi	tx_no_warn		; no format currently selected
		jsl	jsl_fmt_ptr

;  find out if the current pair is ok

		jsl	chk_fst_size		; fills the string if a problem
		bcc	tx_no_warn

;  and display the warning (if there is one)

		lda	#28			; warning string
		cmp	currentFST		; is the message already displayed?
		beq	tx_no_warn		; yes, just leave it up

		sta	currentFST
		jsl	get_string
		jsr	txTextBox2		; draw the text
		sec				; signify that the message was drawn
		
;  no warning.  determine if we need to change the current message

tx_no_warn
		rts
		EndP

		eject
;==========================================================
;
;  tx_check_name
;
;  Performs a full JudgeName call with the user-supplied
;  volume name prior to exiting the dialog box.
;
;  Outputs:     P = nvmxdizc
;                   ..000..|
;                          0=no error, 1=name not acceptable
;
;  Direct page variable usage is:
;
;	init_temp_2 = pointer to JudgeName result buffer
;	init_temp_3 = VP of result buffer
;	init_temp_4 = pointer to source of name
;
;==========================================================

tx_check_name	Proc	Export
		Import	call_judgename
		Import	call_deref,call_alloc,call_release
		Import	call_lock_mem,call_unlock_mem
		Import	jn_parms:jn_parmBlock

		with	my_direct_page,fst_list_record
		with	jn_parms		; gonna use JudgeName parmblock

; first convert the Pascal string to a GS/OS result buffer containing the name

		lda	#36			; GS/OS result buffer
		jsl	call_alloc		; allocate memory for the pathname
		stx	init_temp_3		; save VP
		sty	init_temp_3+2
		jsl	call_lock_mem		; lock it down
		ldx	init_temp_3		; deref the VP
		ldy	init_temp_3+2
		jsl	call_deref		; turn it into a pointer
		stx	init_temp_2		; save pointer
		sty	init_temp_2+2
		txa				; save in JudgeName parmblock too
		sta	>jn_parms.name
		tya
		sta	>jn_parms.name+2

		lda	#36			; buffer length
		sta	[init_temp_2]		; store in buffer
		lda	<init_temp_2		; now adjust pointer past length words
		clc
		adc	#3
		sta	<init_temp_2
		bcc	@no_carry
		inc	<init_temp_2+2
@no_carry

		lda	<txt_name_ptr		; this is the source pointer
		sta	<init_temp_4
		lda	<txt_name_ptr+2
		sta	<init_temp_4+2
		lda	[<txt_name_ptr]		; get the current length
		and	#$00FF			; clear garbage byte
do_copy
		pha				; save till after copy
		tay				; into Y for indexing
		beq	@its_null		; oops!  NULL volume name, skip copy
		sep	#$20			; 8-bit accumulator
@loop
		lda	[<init_temp_4],y	; move string to our buffer
		sta	[<init_temp_2],y
		dey
		bne	@loop			; until all copied
		rep	#$20			; back to 16-bit accumulator
@its_null
		lda	<init_temp_2		; adjust pointer back to beginning of string
		bne	@1
		dec	<init_temp_2+2
@1
		dec	<init_temp_2
		pla				; retrieve length
		sta	[<init_temp_2]		; set string length

; now we can see if the FST is happy with the supplied name

		lda	#6			; reset pCount
		sta	>jn_parms.pCount

		ldy	#ff_fs_num		; get the FST ID
		lda	[tx_entry_ptr],y	; (tx_entry_ptr set up by caller)
		sta	>jn_parms.fileSysID

		lda	#0
		sta	>jn_parms.nameFlags	;clear translation flags
		
		pea	call_judgename>>16
		pea	call_judgename
		pea	0
		jsl	>lc_dispatcher		; call JudgeName to get the prompt pointer

		jsl	call_unlock_mem		; unlock memory
		
		ldx	<init_temp_3		; release the result buffer
		ldy	<init_temp_3+2
		jsl	call_release

		lda	>jn_parms.nameFlags	; was the FST happy?
		and	#$E000			; mask off reserved bits
		cmp	#$0001			; condition carry
		rts				; and return

		EndP

		eject
;==========================================================
;
;  force_message
;
;  Forces the drawing of the JudgeName prompt, unless it's
;  already being displayed.  
;
;  chk_message
;
;  Updates the contents of the message area in the dialog.
;
;  Outputs:     A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000...
;
;==========================================================

chk_message	Proc
		Import	tx_list_1:tx_list_record,tx_list_2:tx_list_record
		Import	get_string

		with	my_direct_page,fst_list_record

		lda	<top_bar_pos		; which 'control' is the active control?
		beq	force_message		; the editLine 'control', draw the prompt

		jsr	tx_too_big		; update warning string
		bcs	done			; if message drawn, skip prompt

		entry	force_message
force_message
		lda	|tx_list_1.current_entry ; get currently selected FST
		cmp	currentFST		; same as currently displayed msg #?
		beq	done			; yes, just leave it alone
		cmp	#-1			; is anything selected?
		beq	done			; no, skip it
		bit	pb_flags		; is the name editable?
		bpl	done			; no, there's no need to show the message
		lda	#tx_list_1		; else must put up new message
		sta	<tx_list_ptr
		lda	#^tx_list_1
		sta	<tx_list_ptr+2
		lda	|tx_list_1.current_entry ; get the FST number again
		sta	currentFST		; save for comparison later
		jsr	make_tx_ptr		; make a pointer to the member record
		ldy	#ff_prompt		; get the pointer to the JudgeName prompt
		lda	[tx_entry_ptr],y
		tax
		iny
		iny
		lda	[tx_entry_ptr],y
		tay
		jsr	txTextBox2		; draw the string
done
		rts
		EndP

		eject
;==========================================================
;
;  handle_edit
;
;  Handles the actions necessary when the editLine 'control'
;  is the currently active control
;
;  Outputs:     init_choice = 0 if ok pressed,
;                             1 if cancel
;		top_bar_pos = -1 if tab is pressed
;
;               A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000...
;
;==========================================================

handle_edit	Proc
		Import	term_list,term_list_len:equ
		Import	input_port:InputPortRec
		with	my_direct_page

; first, we have to set the default string

		lda	#$8004			; SetDefaultString
		sta	<drvr_ctrl_code
		lda	#drvr_control		; make a control call
		sta	<drvr_call_num
		lda	[<txt_name_ptr]		; get length of current name
		and	#$00ff			; that's our request count
		ldy	<txt_name_ptr+2		; get pointer to buffer
		ldx	<txt_name_ptr
		inx				; bump past length byte
		bne	@1
		iny
@1
		jsr	console_dispatch	; make the control call

; position the cursor to the beginning of the input field

read_reentry
		_gotoxy	9,4

; now we can enter UIR mode and let the user edit the string

		lda	#0			; turn on UIR
		sta	>std_buffer
		lda	#$8003			; SetReadMode
		jsr	call_control		; make the control call

		lda	#drvr_read		; do the read
		sta	<drvr_call_num
		lda	|cons_dev_num
		sta	<drvr_dev_num
		lda	<txt_name_ptr
		ldx	<txt_name_ptr+2
		inc	a			;bump past length byte
		bne	@2
		inx
@2
		sta	<drvr_slist_ptr
		stx	<drvr_slist_ptr+2
		lda	#32			;maximum of 32 characters
		sta	<drvr_req_cnt
		stz	<drvr_req_cnt+2
		jsl	>call_dispatch

		lda	<drvr_tran_cnt		; retrieve the string length
		sta	<init_temp_4		; store here temporarily

; now that we're back from the console driver, turn off UIR mode

		lda	#$8000			; turn off UIR
		sta	>std_buffer
		lda	#$8003			; SetReadMode
		jsr	call_control		; make the control call

; now we get the current Input Port settings to determine which terminator
; halted the Console Driver read

		jsr	get_input_port		; go get the InputPortRec

		lda	>input_port.exitType	; get the terminator number
		and	#$00FF			; exitType is only a byte
		cmp	#4			; one of the help terminators?
		bcc	@not_help		; no...
		jsr	force_message		; else must have been OA-?
		bra	read_reentry		; update message and reenter read mode

@not_help
		tay				; save in Y
		lda	<init_temp_4		; get the returned length
		sep	#$20			; 8-bit store
		sta	[<txt_name_ptr]		; set new string length
		rep	#$20

		ldx	#0			; assume user entered 'ok'
		dey				; was it terminator #1?
		beq	@accept_terminator	; yes...
		inx				; else make X = 1
		dey				; was it terminator #2 (ESC)?
		beq	@accept_terminator	; yes...
; else must have been terminator #3 (TAB)
		dec	<top_bar_pos		; was 0, now -1 to highlight the FST list
		jsr	draw_top_select		; update the highlighting
		ldx	#-1			; re-init init_choice
@accept_terminator
		rts				; back to the 'event handler' loop
		
		endp

		eject
;==========================================================
;
;  text_loop
;
;  Event loop for the text display.  Waits for keystrokes,
;  processes them until return or esc pressed.
;
;  Outputs:     init_choice = 0 if ok pressed,
;                             1 if cancel
;               A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000...
;
;==========================================================

text_loop	Proc
		Import	get_string
		Import	tx_list_1:tx_list_record,tx_list_2:tx_list_record
		Import	input_port:InputPortRec

		with	my_direct_page

		stz	<init_choice		; set to -1
		dec	<init_choice

text_loop_0
		lda	<init_choice		; done yet?
		bpl	done

		lda	<top_bar_pos		; which 'control' is currently active?
		bne	list_current		; one of the lists...
		jsr	handle_edit		; else go handle the edit 'control'
		stx	<init_choice		; store the correct value to halt
		txa				; check the returned value
		bmi	go_chk_message		; negative means continue the loop
		bne	name_good		; != 0 means cancel
done
		lda	#tx_list_1		; get currently selected FST ID
		sta	<tx_list_ptr
		lda	#^tx_list_1
		sta	<tx_list_ptr+2
		lda	|tx_list_1.current_entry ; get the FST record number
		jsr	make_tx_ptr		; make a pointer to the member record
		jsr	tx_check_name		; go do a JudgeName call
		bcc	name_good		; checked out OK!

		bit	pb_flags		; was it an editable name?
		bpl	name_good		; no, just let the FST generate an error

		pea	$0009			; "bad input" beep type
		ldx	#$3803			; SysBeep2
		jsl	$E10000			; get the user's attention

		lda	#63			; message = "The supplied name is unacceptable..."
		sta	currentFST
		jsl	get_string		; go get the message pointer
		jsr	txTextBox2		; draw the caution message
		dec	<init_choice		; reset to continue the loop
		bra	text_loop_0		; re-enter the event loop
name_good
		rts

go_chk_message
		jsr	chk_message		; go update the message box
		bra	text_loop_0		; then re-enter loop

list_current
		lda	#drvr_read		; read 1 char
		sta	<drvr_call_num
		lda	|cons_dev_num
		sta	<drvr_dev_num
		lda	#<std_buffer
		sta	<drvr_slist_ptr
		lda	#^std_buffer
		sta	<drvr_slist_ptr+2
		lda	#1
		sta	<drvr_req_cnt
		stz	<drvr_req_cnt+2
		jsl	>call_dispatch

; case on key pressed

		jsr	get_input_port		; get the InputPort settings

		lda	>input_port.lastChar	; get the last char and modifier bits
		and	#%1100001111111111	; mask out unimportant modifiers
		cmp	#$0009			; was it a TAB?
		bne	not_tab

; handle tab by rotating through the three 'controls'

do_tab
		ldx	#1			; assume FST list is current control
		lda	<top_bar_pos		; better check, though
		bmi	@1			; yup, switch to format list
		dex				; else switch to editLine 'control'
		bit	pb_flags		; is the volume name editable?
		bmi	@1			; yes, we can activate the control
		dex				; else simply toggle between lists
@1
		stx	<top_bar_pos		; store the new setting
		jsr	draw_top_select		; redraw the highlighting
		bra	go_chk_message		; then make sure the right message is displayed

not_tab
		cmp	#$0A			; down arrow?
		bne	not_down_arrow
go_down_arrow
		jsr	do_down_arrow
		bra	go_chk_message		; make sure the correct JudgeName prompt is shown

not_down_arrow
		cmp	#$0B			; up arrow?
		bne	not_up_arrow
go_up_arrow
		jsr	do_up_arrow
		bra	go_chk_message

not_up_arrow
		cmp	#$813F			; Open_Apple '?'?
		beq	is_help			; yes...
		cmp	#$802F			; Open-Apple '/'?
		bne	not_help		; no...
is_help
		bit	pb_flags		; editable name?
		bpl	bad_input		; no, help not available
		jsr	force_message		; force the display of the JudgeName prompt
		bra	leapfrog

not_help
		cmp	#$800D			; Open-Apple return?
		bne	not_return		; no, try something else
		stz	<init_choice		; signal return
		bra	leapfrog

not_return
		cmp	#$001B			; escape?
		bne	bad_input		; nothing else is legal

		inc	<init_choice		; signal esc
		inc	<init_choice
		rts

bad_input
;  illegal key.  beep and loop.
		pea	8			; bad keypress
		ldx	#$3803			; sysbeep2
		jsl	$E10000
leapfrog
		brl	text_loop_0

		EndP

		eject
;==========================================================
;
;  preset_choices
;
;  Pick the defaults, by (1) attempting to choose the
;  driver default format (see choose_fmt for details) and
;  (2) taking the 1st FST listed by that format.
;
;  Outputs:     A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000...
;
;==========================================================

preset_choices	Proc
		Import	tx_list_1:tx_list_record,tx_list_2:tx_list_record
		Import	jsl_fst_ptr,fst_adj_fmts

		with	my_direct_page,fmt_list_record,fst_list_record

		jsr	choose_fmt		; picks a default format

		lda	pb_reqFileSysID		; valid FST ID supplied?
		bne	set_default		; yes, use it as initial selection

; At this point, the supplied FST ID is 0.  This means that the caller doesn't
; really care what the initially selected FST is.  So, since the first FST in the
; list is the boot FST, we should make sure that it's the one that is initially
; selected.  (Well, we should supply SOME kinda default, shouldn't we?)

		lda	|tx_list_2.current_entry ; get that format's FST
		jsr	make_tx_ptr
		ldy	#df_one_fst
		lda	[<tx_entry_ptr],y
		sta	|tx_list_1.current_entry ; and select that fst
		bra	draw_lists		; then go draw the lists

set_default
		lda	#<tx_list_1		; use the FST list
		sta	<tx_list_ptr
		lda	#^tx_list_1
		sta	<tx_list_ptr+2
		lda	#0			; start at the beginning of the list
@loop
		sta	init_temp_1		; save the member #
		jsr	make_tx_ptr		; go make a pointer
		ldy	#ff_fs_num		; get the FST ID from the record
		lda	[<tx_entry_ptr],y
		cmp	pb_reqFileSysID		; do they match?
		beq	@select_it		; yes, select it
		bit	pb_flags		; is the FST selectable?
		bvs	@next_one		; yes, leave the entry as is
		ldy	#ff_mem_flag		; else dim it
		lda	[<tx_entry_ptr],y
		ora	#%00100000
		sta	[<tx_entry_ptr],y
		bra	@next_one
@select_it
		ldy	#ff_mem_flag		; set the selected bit
		lda	[<tx_entry_ptr],y
		bit	#%01100000		; first, is it selectable?
		bne	@next_one		; no, so don't select it
		ora	#%10000000
		sta	[<tx_entry_ptr],y
		lda	<init_temp_1		; get the current index
		sta	tx_list_1.current_entry	; set the current selection
@next_one
		lda	init_temp_1		; bump counter
		inc	a			; are we done yet?
		cmp	fst_list_cnt
		bne	@loop			; no, go do the next one

		lda	tx_list_1.current_entry	; did anything get selected?
		bpl	draw_lists		; yes...
		lda	#0			; else scan the list again, looking for
@loop2
		sta	<init_temp_1		;  the first selectable FST
		jsr	make_tx_ptr
		ldy	#ff_mem_flag		; get the flags
		lda	[<tx_entry_ptr],y
		bit	#%01100000		; is it selectable?
		beq	@got_it			; yes, go select it
		lda	<init_temp_1
		inc	a
		cmp	fst_list_cnt
		bne	@loop2

@got_it
		ora	#%10000000		; set the selected bit
		sta	[<tx_entry_ptr],y
		lda	<init_temp_1
		sta	tx_list_1.current_entry
draw_lists
		lda	tx_list_1.current_entry
		jsl	jsl_fst_ptr		; make a pointer to the entry
		jsl	fst_adj_fmts		; disable any inappropriate formats

		lda	#<tx_list_1
		sta	<tx_list_ptr
		lda	#^tx_list_1
		sta	<tx_list_ptr+2

		brl	draw_list
		EndP

		eject
;==========================================================
;
;  record_tx_sel
;
;  Convert list selections to chosen_fst and chosen_fmt.
;
;  Outputs:     chosen_fst = entry # of selected FST
;               chosen_fmt = entry # of selected format
;               A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000...
;
;==========================================================

record_tx_sel	Proc
		Import	tx_list_1:tx_list_record,tx_list_2:tx_list_record
		with	my_direct_page,fst_list_record
		
		lda	#tx_list_1
		sta	<tx_list_ptr
		lda	#^tx_list_1
		sta	<tx_list_ptr+2
		lda	|tx_list_1.current_entry
		jsr	make_tx_ptr		; make pointer to FST list record
		ldy	#ff_fs_num		; get the FST ID
		lda	[<tx_entry_ptr],y
		sta	<chosen_fst

		lda	|tx_list_2.current_entry ; fmt
		sta	<chosen_fmt

; now we have to fix up the name so that it's in the proper format

		lda	<txt_name_ptr		; get source pointer
		ldx	<txt_name_ptr+2
		
		ldy	which_class		; class 1?
		bne	@class1			; yes, go handle it
		inc	a			; else bump by 1 to make room for
		bne	do_copy			; ..leading separator
		beq	@bump_high_word

@class1
		clc				; class 1, leading separator &
		adc	#2			; ..high byte of length word
		bcc	do_copy
@bump_high_word
		inx
do_copy
		sta	<init_temp_4		; store as destination pointer
		stx	<init_temp_4+2
		lda	[<txt_name_ptr]		; get length
		and	#$00FF			; clear garbage byte
		beq	@class_1		; if null, skip the copy
		pha				; save length
		tay				; put into Y for indexing
		sep	#$20			; 8-bit accumulator
		longa	off
		
@loop
		lda	[<txt_name_ptr],y	; move up within buffer
		sta	[<init_temp_4],y
		dey
		bne	@loop
		lda	#':'			; leading separator
		sta	[<init_temp_4]
		rep	#$20			; 16-bit accumulator again
		longa	on
		pla				; retrieve length
		inc	a			; bump by 1 to account for separator
		ldy	which_class		; class 1 call needs a word length
		bne	@class_1
		ora	#'/'<<8			; else combine with class 0 separator
@class_1
		sta	[<txt_name_ptr]		; store the length
		rts				; and we're done
		EndP

		eject
;==========================================================
;
;  display_msg
;
;  Displays a graphics or text message which says 'Initializing...'.
;
;  Inputs:	none
;
;  Outputs:     A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000...
;
;  Added CAE 12/21/88
;  Modified CAE 7/27/89 to fix a bug in which |cons_dev_num was
;	not initialized if doing a non-dialog Format in text mode.
;
;==========================================================

display_msg	Proc	Export
		longa	on
		longi	on
		Import	get_string
		with	my_direct_page

		lda	pb_flags		;get the flags
		bit	#%0010000000000000	;caller wishes to inhibit the window?
		beq	@show_window		;no, go ahead and display it
		rtl				;else just short circuit it

@show_window
		lda	<init_screen
		bpl	do_text_msg

;put up a graphics message

		inc	|msg_flag		;indicate that a graphics message was put up

; save caller's cursor, and set it to the watch cursor

		pha
		pha
		ldx	#$8F04			; GetCursorAdr
		jsl	>$e10000
		pla
		sta	|save_cursor
		pla
		sta	|save_cursor+2

		ldx	#$0A12			;WaitCursor
		jsl	$E10000			;(no effect if QDAux not set up)

		pha				;space for result
		pha
		pea	msg_parms>>16
		pea	msg_parms
		ldx	#$090E			;NewWindow
		jsl	>$e10000
		pla
		sta	|msg_window
		pla	
		sta	|msg_window+2
		
		pha				; save old port
		pha
		ldx	#$1C04			; GetPort
		jsl	>$e10000
		pla
		sta	|save_port
		pla
		sta	|save_port+2
		
		lda	|msg_window+2		; set new port
		pha
		lda	|msg_window
		pha
		ldx	#$1B04			; SetPort
		jsl	>$e10000

		pea	45
		pea	14
		ldx	#$3A04			;MoveTo
		jsl	>$e10000
		
		lda	#41
		jsl	get_string
		phy
		phx
		ldx	#$A504			;DrawString
		jsl	>$e10000
	
		bra	done
	
;put up a text message

do_text_msg
		jsr	find_console		; get device # of .CONSOLE	** added 7/27/89 CAE **
		bcs	done			; got an error			** added 7/27/89 CAE **
		
		dec	|msg_flag		;indicate that a text message was put up
		
		jsr	save_state		; save video mode state
		jsr	save_cons_state		; save console driver state
		jsr	save_tx_screen 		; save current text screen

		lda	#$0201			; push vp, set vp
		jsr	write_2char
		lda	#$2A3A			; 26, 10
		jsr	write_2char
		lda	#$2D56			; 54, 13
		jsr	write_2char
		lda	#$1715			; disable scroll
		jsr	write_2char

		lda	#27			; width
		jsr	write_line		; draw top line

		lda	#3			; sides counter
		sta	<init_temp_2
side_loop	lda	#$10DA			; side bar, expand spaces
		jsr	write_2char
		lda	#$DF3B			; 27 spaces, side bar
		jsr	write_2char
		dec	<init_temp_2
		bne	side_loop

		lda	#27			; width
		jsr	write_line		; draw bottom line

		_gotoxy	7,2

		lda	#41		
		jsr	write_num_str		; write out the string

done		rtl
		EndP
		
		eject
;==========================================================
;
;  remove_msg
;
;  Removes the 'Initializing...' message.
;
;  Inputs:	none
;
;  Outputs:     A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000...
;
;  Added 1/9/88 CAE
;
;==========================================================

remove_msg	Proc	Export
		longa	on
		longi	on

		phb				; remember gs/os data bank
		pea	$0101			; our data is in bank 1
		plb
		plb
		
		lda	|msg_flag		;did we put a message up?
		beq	rmv_done		;no - so nothing to remove
		bmi	remove_text_msg		;yes - it was a text message
		
;remove a graphics message

		lda	|save_port+2		;restore the original port
		pha
		lda	|save_port
		pha
		ldx	#$1B04			; SetPort
		jsl	>$e10000

		lda	|msg_window+2		;remove the message window
		pha
		lda	|msg_window
		pha
		ldx	#$0B0E			; CloseWindow
		jsl	>$e10000

		lda	|save_cursor+2		;restore caller's original cursor
		pha
		lda	|save_cursor
		pha
		ldx	#$8E04
		jsl	>$e10000

		bra 	rmv_done
		
;remove a text message

remove_text_msg	jsr	restore_tx_scr		; restore the original text screen
		jsr	restore_console		; restore console driver to its original state
		jsr	restore_state		; restore original video mode

rmv_done	plb				;restore gs/os data bank register
		rtl
		EndP

		Eject
;==========================================================
;
;  non_dialog
;
;  The calling program specified which FST to use in the
;  parameter block so all we need to do is get the default
;  format for the device.
;
;  Inputs:      fmt_list_vp = vp of the format options list
;               fst_list_vp = vp of the file system options
;
;  Outputs:     chosen_fst = selected fst #
;               chosen_fmt = selected fmt #
;               init_choice = 0
;               A = error # if c=1
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000..|
;                          0=no error, 1=error
;
;  This routine added 4-88 CAE
;==========================================================

non_dialog	Proc	Export
		Import	choose_def_fmt2,jsl_fst_ptr,jsl_deref
		with	my_direct_page,fst_list_record

		longa	on
		longi	on

		stz	path_vp			;make sure we return a NULL VP
		stz	path_vp+2		;  for the volume name

; first, get the FST ID # specified in the call

		ldy	#$000c			;offset to requested FST field
		lda	[<param_blk_ptr],y 	;get requested FST
		bne	@1			;non zero means look for it
		lda	#invalid_fst_id		;zero is a bad FST ID #
		sec
		rtl
@1
		pha				;save on stack

; now search through the list to find the specified FST ID and ensure that
; the FST supports formatting.

		jsl	deref_lists
		stz	<init_temp_1		;entry counter

xlate_fst
		lda	<init_temp_1
		jsl	jsl_fst_ptr		;create ptr to fst entry
		ldy	#ff_fs_num
		lda	[<fst_list_entry],y 	;get FST ID # from entry
		cmp	1,s			;does it match the requested FST ID #?
		beq	xlate_done		;yes - so we found the correct entry
		inc	<init_temp_1		;no - so check the next entry
		lda	<init_temp_1
		cmp	<fst_list_cnt		;at end of list?
		bne	xlate_fst		;no
		pla				;yes - so clean up stack
		lda	#invalid_fst_op		;return error
		rtl				;carry is set

xlate_done
		pla				;clean up stack
		sta	<chosen_fst		;save fst id

; now enable the available formats for this FST

		jsl	fst_adj_fmts

; now select the default format

		jsl	choose_def_fmt2
		bcs	@oops			;if error occurs, exit

; now set up the correct outputs

		lda	<init_temp_1		;record item #
		sta	<chosen_fmt		;format ref #
		stz	<init_choice
		clc				;indicate no error
@oops
		rtl
		EndP

		eject
;==========================================================
;
;  init.tx
;
;  Text based user interface for the init package.  Puts
;  up a dialog window and prompts the user for selection
;  of formatting options.
;
;  Author:      Andy Stadler
;  Created:     31-Jan-88
;  Modified:    See modification history below
;
;  Copyright Apple Computer, Inc. 1987-1989
;  All rights reserved.
;
;==========================================================
;
;  Modification history:
;
;  15-Feb-88    ADS     Initial release
;  23-Feb-88    ADS     General crunching
;                       'Format too large' indicator added
;  30-Mar-88    CAE     Changed to use strings which say
;                       'Format' or 'Erase' instead of 'Initialize'
;  12-Jan-89	CAE	Renamed some routines and moved some code around 
;  13-Jan-89	CAE	Modified write_line routine to take # of chars as input
;  08-Feb-89	CAE	Added error check in tx_dialog after calling find_console.
;			Changed find_console to ask for the device # of the device 
;			named "CONSOLE" instead of just searching DIBs for a console device.
;==========================================================

;==========================================================
;
;  jsl tx_dialog
;
;  Main level for the text-based user interface.  Saves
;  the state of the screen hardware and the console driver,
;  then takes over, displaying text mode, drawing a window,
;  and showing all the info within the window.
;
;  Inputs:      fmt_list_vp = vp of the format options list
;               fst_list_vp = vp of the file system options
;
;  Outputs:     chosen_fst = selected fst # if init_choice = 0
;               chosen_fmt = selected fmt # if init_choice = 0
;               init_choice = 0=OK, 1=cancel
;               A = error code if c=1 else trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000..|
;			   0 = no error; 1 = error
;
;==========================================================

tx_dialog	Proc	Export			               
		Import	fix_ptrs,call_alloc
		
		with	my_direct_page

		longa	on
		longi	on

		jsr	find_console		; get device # of .CONSOLE
		bcs	tx_dialog_done		; got an error
		jsr	save_state		; save video mode state
		jsr	save_cons_state		; save console driver state
		jsr	save_tx_screen		; save current text sreen
		lda	#36			; allocate 36 bytes for name
		jsl	call_alloc
		stx	path_vp
		sty	path_vp+2
		jsl	>fix_ptrs		; lock memory, make str ptrs
		jsr	setup_name		; fill our name buffer
		jsr	draw_tx_wind		; draw the window

		jsr	setup_lists		; plug in data & draw
		jsr	preset_choices		; select some defaults

		jsr	text_loop

		jsr	restore_tx_scr		; restore original text screen
		jsr	restore_console		; restore console driver state
		jsr	restore_state		; restore video mode state
		jsr	record_tx_sel		; retrieve the settings
		clc				; indicate no error

tx_dialog_done	rtl
		EndP

		Eject
;===============================================================================
;
; init.3.e
;
;===============================================================================

		DataChk	on

init_3_end	PROC	
		ENDP
		
init_3_dummy	PROC	org init_3_max, skip	;generate an error if code is too big
		ENDP

		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/OS/InitManager/Init4.Src b/IIGS.601.SRC/GS.OS/OS/InitManager/Init4.Src
new file mode 100644
index 0000000..7c36f76
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/OS/InitManager/Init4.Src
@@ -0,0 +1 @@
+		string	asis
		pagesize 70
		
		longa	on
		longi	on
		
;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

		Import	LC_Dispatcher
		Import	Call_Deref
		Import	Call_Alloc
		Import	Call_Release
		Import	Call_Dispatch

		print	push
		print	off
		Include	'common.equ.src' 
		include	'init.equ.src'
		print	pop

;===============================================================================
;
; init4.src
;
;===============================================================================

init_4_header	PROC	org init_4_org-header_length
		Import	init_4_start,init_4_end

		msb	on

		DC.W	init_4_end-init_4_start
		DC.L	init_4_org
		DC.W	$8000
		DC.B	'Init Manager part 4   v04.01' 
		DC.B	00

		msb	off

		ENDP

		
init_4_start	PROC	org init_4_org	
		ENDP

		Eject
;==========================================================
;
;  file init.4
;
;  Contains miscellaneous procedures used by the Init Mgr.
;
;  Copyright (C) 1988-1992 Apple Computer, Inc.
;  All Rights Reserved.
;
;==========================================================

		eject
;==========================================================
;
;  add_size_str
;
;  Convert the size given at init_temp_2 into ascii, then
;  append it to the string pointed to by init_temp_1.
;
;  Inputs:      init_temp_1 = p-string pointer
;               init_temp_2 = long # to convert
;
;  Outputs:     A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000...
;
;==========================================================

add_size_str	Proc
		Import	dest_buffer

		with	my_direct_page

		pei	<init_temp_2+2		; value to convert
		pei	<init_temp_2
		pea	dest_buffer>>16		; where to put it
		pea	dest_buffer
		pea	dest_length		; how much space
		pea	0			; unsigned input
		ldx	#$270B			; long2dec
		jsl	$E10000

		ldx	#-1			; find start of actual str
		sep	#$20			; 8-bit acc
		longa	off
		lda	#' '			; skip spaces

add_size_1
		inx				; bump index
		cmp	dest_buffer,X		; a space?
		beq	add_size_1		; yes, skip it

add_size_2
		dex				; adjust string pointer
		phx				; (pushes 2 bytes)
		clc				; calculate length of string
		lda	#dest_length		; byte
		sbc	1,s			; byte

		sta	dest_buffer,X		; insert length byte

		rep	#$20			; 16 bit acc
		longa	on

		pla				; clean stack
		txa				; get offset
		clc
		adc	#<dest_buffer
		tax
		lda	#0
		adc	#^dest_buffer
		tay
;		fall through to add_string

		eject
;==========================================================
;
;  add_string
;
;  Append the string pointed to by X and Y to the string
;  pointed to by init_temp_1.
;
;
;  Inputs:      X,Y = p-string source pointer
;               init_temp_1 = p-string dest pointer
;
;  Outputs:     A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000...
;
;==========================================================

		entry	add_string
add_string	stx	<init_temp_2
		sty	<init_temp_2+2

		lda	#1			; source offset
		sta	<init_temp_3
		lda	[<init_temp_1]		; dest offset
		inc	a
		and	#$00FF
		sta	<init_temp_3+2
		dec	a			; fix for length comp
		clc
		adc	[<init_temp_2]		; compute new length

		sep	#$30			; 8 bit acc + index
		longa	off
		longi	off

		sta	[<init_temp_1]		; store new length

		lda	[<init_temp_2]		; src len is xfer ct
		tax

add_string_1
		ldy	<init_temp_3		; src offset
		lda	[<init_temp_2],y
		ldy	<init_temp_3+2		; dest offset
		sta	[<init_temp_1],y

		inc	<init_temp_3		; 8 bit inc but thats ok
		inc	<init_temp_3+2

		dex				; xfer counter
		bne	add_string_1

		rep	#$30			; 16 bit acc + index
		longa	on
		longi	on

		rts

		EndP

		eject
;==========================================================
;
;  make_fmt_str
;
;  This takes the info found in a device format record
;  and creates a descriptive string.  The string has the
;  following format:
;
;  nnn k  mm:1
;
;  The size figure always appears ;  the interleave factor
;  only appears when valid ( != 0 ).
;

;  The size figure is repeated as specified by a format
;  options list ;  or it is calculated if there is only
;  a single, DIB-synthesized option.
;
;  input:       A = entry number to calculate with
;
;  output:      df_string = VP of a p-string
;               A = trashed
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000...
;
;  This routine may move memory.
;
;==========================================================

make_fmt_str	Proc
		Import	colon_one,two_spaces,fmt_str_tb,dot_five,jsl_fmt_ptr
		Import	which_call

		with	my_direct_page,fmt_list_record

		pha				; remember my victim

		lda	#16			; make it 16 bytes
		sec
		jsl	call_alloc
		stx	<init_temp_2
		sty	<init_temp_2+2

		ldx	<fmt_list_vp		; call_deref fmt list only
		ldy	<fmt_list_vp+2		; (fst_list not around yet!)
		jsl	call_deref
		stx	<fmt_list_ptr
		sty	<fmt_list_ptr+2

		pla
		jsl	jsl_fmt_ptr

		ldx	<init_temp_2
		ldy	<init_temp_2+2
		jsl	call_deref
		stx	<init_temp_1
		sty	<init_temp_1+2

		ldy	#df_string		; install string vp
		lda	<init_temp_2
		sta	[<fmt_list_entry],y
		iny
		iny
		lda	<init_temp_2+2
		sta	[<fmt_list_entry],y

;  If we have a size figure, use it.

		ldy	#df_fmt_size
		lda	[<fmt_list_entry],y
		beq	make_fmt_str_1

		sta	<init_temp_2		; this is the number to use
		stz	<init_temp_2+2		; its only a word

		jsr	add_size_str		; convert and insert

		ldy	#df_flags		; what are the units?
		lda	[<fmt_list_entry],y

		and	#$000C			; bits 2 and 3, times 4
		tax

		bra	make_fmt_str_4		; add units and interleave

;  no size figure given.  Calculate from dib.  If >5 Mb, use Mb,
;  otherwise display as # of k.

make_fmt_str_1
		ldy	#df_block_ct+2		; divide block ct by 2
		lda	[<fmt_list_entry],y
		lsr	a			; to get #k
		tax				; (remember hi wd for a moment)
		dey
		dey
		lda	[<fmt_list_entry],y
		ror	a

;  If the just-rolled-out bit is 1, the fractional size is > 0.5 k.
;  So, in that case we round up.

		bcc	rnd_str_1
		inc	a
		bne	rnd_str_1		; incrementing a long
		inx

rnd_str_1
		sta	<init_temp_2
		stx	<init_temp_2+2

;  If the size is too big for K's, display Mb's.

		txy				; >64 mb?
		bne	make_fmt_str_2
		cmp	#$1400			; >5 Mb?
		bge	make_fmt_str_2

		jsr	add_size_str		; its k.  add the string
		ldx	#4
		bra	make_fmt_str_4

;  generated string, >5 meg.  convert to megs.

make_fmt_str_2	
		ldx	#10			; divide by 2^10
make_fmt_str_3
		lsr	<init_temp_2+2
		ror	<init_temp_2
		dex
		bne	make_fmt_str_3
		
		php				; save carry status from last "ror"
		jsr	add_size_str		; Now megs.  add the string
		plp				; retrieve carry status
		bcc	no_dot_five		; if carry is set we need to add a ".5"
		ldx	#<dot_five		; get address of the string
		ldy	#^dot_five
		jsr	add_string		; and add it		
no_dot_five		
		ldx	#8

;  add the units string indexed by X

make_fmt_str_4
		lda	fmt_str_tb+2,X		; make ptr to add string
		tay
		lda	fmt_str_tb,X
		tax

		jsr	add_string		; stick it on

;  now add the interleave, if necessary

		lda	|which_call		; if Erase call - don't add interleave
		bne	make_fmt_str_5

		ldy	#df_interleave
		lda	[<fmt_list_entry],y
		beq	make_fmt_str_5		; if zero, N/A
		pha

		ldx	#<two_spaces
		ldy	#^two_spaces
		jsr	add_string

		pla
		sta	<init_temp_2		; add interleave value
		stz	<init_temp_2+2
		jsr	add_size_str

		ldx	#<colon_one
		ldy	#^colon_one
		jsr	add_string

make_fmt_str_5
		rts
		EndP

		eject
;==========================================================
;
;  query_driver
;
;  Calls the specified driver with a request for formatting
;  options.  If none are available, assume a single format
;  option and get info from the DIB.  Build a data structure
;  based on the formatting options found.
;
;  Inputs:      dev_num = requested device
;
;  Outputs:     fmt_list_vp = VP of the new structure
;               fmt_disp_cnt = number of entries therein
;               fmt_def_fmt = driver specified default
;               fmt_cur_med = currently installed media's fmt #
;               A = if C == 1, contains error #
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000..|
;                          0=no error, 1=device not formattable
;
;  This routine may move memory.
;
;==========================================================

query_driver	Proc	Export
		Import	cp8_t2x_t3y
		Import	which_call

		with	my_direct_page,fmt_list_record

;  setup.  allocate a buffer for the status lists

		lda	#256			;start out with 256 byte buffer
		pha

get_slist_buf					;buffer size is in A register
		jsl	call_alloc		;allocate the buffer
		stx	<init_temp_1
		sty	<init_temp_1+2
		jsl	call_deref
		stx	<init_temp_2
		sty	<init_temp_2+2

;  step 1:  get_dib_ptr and see if this guy can format

		stz	<drvr_dev_num
		lda	#get_dib_ptr
		sta	<drvr_call_num
		lda	<dev_num
		sta	<drvr_buf_ptr
		jsl	call_dispatch
		bcs	query_drv_err

		ldy	#8			; characteristics word
		lda	[<drvr_dib_ptr],y
		bit	#$0080			; character device?
		bne	query_drv_a
		lda	#not_block_dev
		bra	query_drv_err

query_drv_a
		bit	#%0000000001000000	; write allowed?
** 28 Feb 92  GAB
** ProFile lies about its ability to accept a format call
		;beq	@no_write		; no, so obviously can't format
		;bit	#%0000000000001000	; formatting allowed?
**
		bne	query_drv_0		; yes, we can use it
@no_write
		lda	#drvr_wr_prot
		bra	query_drv_err

;  step 2:  ask the driver for formatting info
;           for a Format call do Get_Format_Options
;           for an Erase call do Get_Device_Status

query_drv_0
		lda	<dev_num
		sta	<drvr_dev_num
		lda	#drvr_status
		sta	<drvr_call_num
		lda	<init_temp_2		; dest ptr
		sta	<drvr_slist_ptr
		lda	<init_temp_2+2
		sta	<drvr_slist_ptr+2
		stz	<drvr_req_cnt+2
;		lda	|which_call
;		bne	its_erase_call
		ldx	#$0003			; get_format_options
		lda	1,s			; get buffer size
;		bra	do_status_call
;its_erase_call
;		ldx	#0			; get_device_status
;		lda	#6			; request count
do_status_call
		stx	<drvr_ctrl_code
		sta	<drvr_req_cnt
		jsl	call_dispatch
		bcs	query_drv_err

		lda	|which_call		;if it's an Erase call
		bne	query_drv_3a		;skip the next part

;  step 3:  based on the result, build a table of format options

step_3
		lda	<drvr_tran_cnt		; check return count
		ora	<drvr_tran_cnt+2
		beq	query_drv_3a
		brl	query_drv_3b

;  we interrupt this program to bring you the error handler

query_drv_err
		pha				;save error code
		ldx	<init_temp_1		;dump the fmt data struct
		ldy	<init_temp_1+2
		jsl	call_release
		pla				;retrieve error code
		bne	real_error		;it was a real error
		clc				;buffer was too small so
		lda	1,s			;increase the requested size
		adc	#256
		sta	1,s
		brl	get_slist_buf

real_error
		plx				;pull buffer size off stack
		sec
		rtl

;  step 3a:  no returned info.  simulate single entry using DIB info
;
;  mem_ptr      = set later
;  mem_flag     = 0 (enabled, not selected)
;  fill_byte    = 0
;  refnum       = 0
;  conf_num     = 1
;  alias        = 0
;  flags        = 0 (universal type) (set size units later)
;  block_ct     = from DIB
;  block_sz     = assume 512 bytes
;  interleave   = 0 (means n/a)
;  fmt_size     = set later
;  one_fst      = set later
;  string       = set later

query_drv_3a
		lda	#1			; one entry
		sta	<fmt_disp_cnt
		sta	<fmt_cur_med
		sta	<fmt_def_fmt
		sta	<fmt_total_cnt

		lda	#df_size		; size of 1 entry
		jsr	get_fmt_mem

		lda	#1			; driver conf. refnum = 1
		ldy	#df_conf_num
		sta	[<fmt_list_ptr],y

		dec	a			; assume universal format
		ldy	#df_flags
		sta	[<fmt_list_ptr],y

		lda	<drvr_tran_cnt		; were any format options returned?
		ora	<drvr_tran_cnt+2
		beq	@no_fmt_options		; no, leave format type as universal

		ldy	#6			; get current option #
		lda	[<init_temp_2],y
		bne	@got_option		; if non-zero, use it
		dey
		dey
		lda	[<init_temp_2],y	; else get the recommended option #
@got_option
		sta	<init_temp_3		; save for comparisons
		lda	[<init_temp_2]		; get # of options
		sta	<init_temp_3+2
		ldy	#8			; look at the first entry refnum
@loop
		lda	[<init_temp_2],y
		cmp	<init_temp_3		; is this the one we're looking for?
		beq	@use_this_entry		; yes, use it's info
		tya				; else look at next option
		clc
		adc	#16			; entry size
		tay
		dec	<init_temp_3+2		; have we looked at all options yet?
		bne	@loop			; no, try again
		bra	@no_fmt_options		; couldn't find it?????
@use_this_entry
		tya				; offset to entry's flags word
		clc
		adc	#4			; add offset to first entry flags word
		tay
		lda	[<init_temp_2],y	; get the flags word
		ldy	#df_flags
		sta	[<fmt_list_ptr],y	; put into list record
		
@no_fmt_options
	if 0 then	; let Format use the status call too
		lda	|which_call
		bne	erase_call_3a

		ldy	#$0A+2			; block count from DIB
		lda	[<drvr_dib_ptr],y
		tax
		dey
		dey
		lda	[<drvr_dib_ptr],y
		bra	cont_3a
	endif
erase_call_3a
		tdc				; make a destination pointer
		clc
		adc	#<init_temp_3		; use init_temp_3 & init_temp_4
		sta	<drvr_slist_ptr		; as the destination buffer
		stz	<drvr_slist_ptr+2	; always in bank 0
		stz	<drvr_req_cnt+2
		ldx	#0			; get_device_status
		lda	#6			; request count
		stx	<drvr_ctrl_code		; other parms left over from
		sta	<drvr_req_cnt		;   get_format_options call
		jsl	call_dispatch
		ldy	#4			; block count from status call
		lda	[<drvr_slist_ptr],y
		tax
		dey
		dey
		lda	[<drvr_slist_ptr],y
cont_3a
		ldy	#df_block_ct
		sta	[<fmt_list_ptr],y
		iny
		iny
		txa
		sta	[<fmt_list_ptr],y

		lda	#512			; assume 512 byte blocks
		iny
		iny
		sta	[<fmt_list_ptr],y

		brl	query_drv_4

;  step 3b:  use the returned data from the driver to build my list

query_drv_3b
		lda	[<init_temp_2]		;get # of entries in list
		asl	a
		asl	a
		asl	a
		asl	a			;multiply by 16
		adc	#8			;and add 8 to get total list size
		cmp	1,s			;was our buffer large enough?
		bcc	cont_3b			;yes - so we got the whole list
		lda	#0			;no - so we need to get a bigger buffer
		brl	query_drv_err

cont_3b
		lda	[<init_temp_2]		; return options count
		sta	<fmt_total_cnt
		tax
		lda	#0

query_sz_lp
		adc	#df_size		; calculate array size
		dex
		bne	query_sz_lp

		jsr	get_fmt_mem
		stx	<init_temp_3
		sty	<init_temp_3+2

;  now walk through the returned list copying info

		ldy	#2
		lda	[<init_temp_2],y 	; # entries to display
		sta	<fmt_disp_cnt
		iny
		iny
		lda	[<init_temp_2],y 	; default refnum
		sta	<fmt_def_fmt
		iny
		iny
		lda	[<init_temp_2],y 	; current media
		sta	<fmt_cur_med

		clc				; set ptr to 1st entry
		lda	<init_temp_2
		adc	#8
		sta	<init_temp_2
		lda	<init_temp_2+2
		adc	#0
		sta	<init_temp_2+2

		ldx	#0			; x is entry counter
		txy				; y is entry offset

copy_fmt_lp
		clc				; move up 6 bytes into dest
		lda	<init_temp_3
		adc	#6			; (skipping mem_ptr, mem_flag,
		sta	<init_temp_3		;  and fill_byte)
		lda	<init_temp_3+2
		adc	#0
		sta	<init_temp_3+2

		txa				; write my refnum
		sta	[<init_temp_3],y

		clc				; move up 8 bytes into dest
		lda	<init_temp_3
		adc	#8			; (skipping over my refnum,
		sta	<init_temp_3		;  one_fst, and string vp)
		lda	<init_temp_3+2
		adc	#0
		sta	<init_temp_3+2

		phx
		tyx
		jsl	cp8_t2x_t3y		; copy 8 words
;                                       	; (conf num, alias, flags, block
;                                       	;  count, block size, interleave,
;                                       	;  format size)

		plx
		inx
		cpx	<fmt_total_cnt		; done?
		bne	copy_fmt_lp

;  step #4: clean up that mess

query_drv_4
		ldx	<init_temp_1
		ldy	<init_temp_1+2
		jsl	call_release

;  step #5: create a string for each entry

		lda	#0

query_drv_5_lp
		pha
		jsr	make_fmt_str
		pla

		inc	a
		cmp	<fmt_disp_cnt
		bne	query_drv_5_lp

;  step #6:  escape while there's time.

		plx				;pull buffer size off stack
		clc
		rtl

; This subroutine simply calls alloc_seg for the fmt list memory

get_fmt_mem
		sec				; cleared, please!
		jsl	call_alloc
		stx	<fmt_list_vp
		sty	<fmt_list_vp+2
		jsl	call_deref
		stx	<fmt_list_ptr
		sty	<fmt_list_ptr+2
		rts
		EndP

		eject
;==========================================================
;
;  jsl fst_scan
;
;  Examine each on-line FST.  For each which supports
;  formatting, build an entry in a table at fst_list_vp.
;  Here because it directly references fst_tbl_data.
;
;  Outputs:     fst_list_vp = VP of new data structure
;               fst_list_cnt = number of entries therein
;               A = error number if C == 1
;               X = trashed
;               Y = trashed
;               P = nvmxdizc
;                   ..000..|
;                          0=no error, 1=no FST's available
;
;  This routine may move memory.
;
;==========================================================


fst_scan	Proc	Export
		Import	call_judgename,jn_parms:jn_parmBlock
		Import	call_deref,call_alloc,call_lock_mem,call_unlock_mem
		Import	fst_tbl,fst_count,entry_size,s_flags,id
		Import	cp4_t2x_t3y,cp1_t2x_t3y

		with	my_direct_page,fst_list_record
		with	jn_parms

		lda	#3			; initialize pCount for JudgeName calls
		sta	>pCount

		lda	>fst_count		; probably in another bank
		tax
		lda	#0

fst_scan_1
		adc	#ff_size		; computing fst struct size
		dex				; = fst_count * ff_size
		bne	fst_scan_1

		sec
		jsl	call_alloc
		stx	<fst_list_vp
		sty	<fst_list_vp+2
		jsl	call_deref
		stx	<fst_list_ptr
		sty	<fst_list_ptr+2

		stx	<init_temp_3		; pointer as I walk thru
		sty	<init_temp_3+2		; the new structure

		stz	<fst_list_cnt		; size of new structure
		stz	<init_temp_1		; fst number currently processing

		lda	#<fst_tbl		; pointer to src list
		sta	<init_temp_4
		lda	#^fst_tbl
		sta	<init_temp_4+2

		jsl	call_lock_mem		; lock the list down temporarily

;  loop here for each FST in the table.  Temps usage:
;
;  init_temp_1.w = fst counter
;  init_temp_2   = pointer to fst header, current entry
;  init_temp_3   = pointer to my table, current entry
;  init_temp_4   = pointer to SCM's fst table, current entry

fst_scan_2
		ldy	#s_flags		; first- does it format?
		lda	[<init_temp_4],y
		and	#$2000			; *** check this field position
		bne	@got_one
		brl	fst_scan_3		; no format allowed this FST
@got_one
		lda	<fst_list_cnt		; ok.  write data into my record
		ldy	#ff_refnum		; starting w/refnum
		sta	[<init_temp_3],y

		ldy	#id			; then file system #
		lda	[<init_temp_4],y
		ldy	#ff_fs_num
		sta	[<init_temp_3],y
		sta	>fileSysID		; store into Parm Block for JudgeName call

		lda	[<init_temp_4]		; build ptr to actual header
		sta	<init_temp_2
		ldy	#2
		lda	[<init_temp_4],y
		sta	<init_temp_2+2

		ldx	#18			; offset of fst block size
		ldy	#ff_block_sz
		jsl	cp1_t2x_t3y		; copy 1 word + 2 longs
		jsl	cp4_t2x_t3y

		ldy	#s_flags		; get the fst attributes again
		lda	[<init_temp_4],y
		and	#0003			; keeping lower 2 bits
		ldy	#ff_flags
		sta	[<init_temp_3],y

		pea	call_judgename>>16
		pea	call_judgename
		pea	0
		jsl	>lc_dispatcher		; call JudgeName to get the prompt pointer
		
		ldy	#ff_prompt		; store prompt pointer into list member
		lda	>syntax
		sta	[<init_temp_3],y
		ldy	#ff_prompt+2
		lda	>syntax+2
		sta	[<init_temp_3],y
		
		clc
		lda	<init_temp_2		; build ptr to format name string
		adc	#36
		ldy	#ff_mem_ptr
		sta	[<init_temp_3],y
		iny
		iny
		lda	<init_temp_2+2
		adc	#0
		sta	[<init_temp_3],y

;  done with this entry.  Move to next entry of my table

		clc				; point to next entry
		lda	<init_temp_3
		adc	#ff_size
		sta	<init_temp_3
		lda	<init_temp_3+2
		adc	#0
		sta	<init_temp_3+2

		inc	<fst_list_cnt

;  after checking each fst, move to next fst

fst_scan_3
		clc
		lda	<init_temp_4
		adc	#entry_size
		sta	<init_temp_4
		lda	<init_temp_4+2
		adc	#0
		sta	<init_temp_4+2

		inc	<init_temp_1		; counter of fst's
		lda	<init_temp_1
		cmp	>fst_count
		beq	fst_scan_4
		brl	fst_scan_2

;  Did we find any?  (maybe we booted off of High Sierra and
;   no ProDOS was available.  Unlikely but hey, who knows?)

fst_scan_4
		jsl	call_unlock_mem		; unlock memory
		lda	#0
		cmp	<fst_list_cnt		; c set if =0
		bcc	fst_scan_5
		lda	#invalid_fst_op
fst_scan_5
		rtl
		EndP

;===============================================================================
;
; init.4.e
;
;===============================================================================


init_4_end	PROC	
		ENDP
		
init_4_dummy	PROC	org init_4_max, skip	;generate an error if code is too big
		ENDP

		END
		
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/OS/SCM/Old SCM history b/IIGS.601.SRC/GS.OS/OS/SCM/Old SCM history
new file mode 100644
index 0000000..e324aeb
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/OS/SCM/Old SCM history	
@@ -0,0 +1 @@
+*******************************************************************************
*
* GS/OS System Call Manager ("SCuM")
* 
* Authors:
*
*	Mike Askins	Jan, 1987 - Oct, 1988	
*	Jim Jatczynski	Jan, 1987 - Oct, 1988
*	Bryan Atsatt	Oct, 1988 - Sep, 1989
*	Cary Farrier	Sep, 1989 - Present
*
* 	a.k.a. "SCuM Lords"
*
* Copyright (c) 1987-89 Apple Computer, Inc.  All Rights Reserved
*******************************************************************************
		eject
******************************************************************************
*                                                                            *
*                  System Call Manager Modification History                  *
*                                                                            *
*                                                                            *
* Date       Ver      Who     Description                                    *
* -------------------------------------------------------------------------- *
* 18 Dec 87  0.10     MSA     Initial State                                  *
*                     JJ      Bouncing Rework                                *
*                     MSA     Changes in Shutdown, release_vcr, swapout      *
*                     JJ&MSA  Added alerts, sessions                         *
* 01 Feb 88  0.01a01          ** Alpha 01 Release **                         *
* 02 Feb 88           MSA     Fix init so that the $00 terminator is placed  *
*                              correctly when making the '*' prefix; removed *
*                              out of date code.                             *
*                             Changed alerts so that if the textbox shows    *
*                              only one button, the prompt will be just the  *
*                              return character.                             *
*                             Changed swapout so that the sense of the swap- *
*                              out bit is reversed.  Added 'write protect'   *
*                              flag in to vcr status.                        *
*                     JJ      Changed the system death routine so that it    *
*                              calls the alert window stuff.                 *
* 08 Feb 88  0.02a01          ** Alpha 02 Release **                         *
* 16 Feb 88  0.03a01  JJ&MSA  Signals added; modified error message file;    *
*                              fixed findvcr, findfcr so that refs to large  *
*                              IDs fail correctly; bug fix in format/erase.  *
* 25 Feb 88  0.03a02  JJ&MSA  Signal bugs fixed; changed over to ':' seps    *
*                              and widened the range of legal pathname chars *
* 29 Feb 88           MSA     Changed class 0 get_prefix so that it nulls    *
*                              the output string upon encountering a slash   *
*                              in the prefix.  Should help existing apps to  *
*                              fail more gracefully.                         *
* 03 Mar 88  0.04a01          ** Alpha 04 Release **                         *
* 21 Mar 88           MSA     "Premature Ejection" message reworded in       *
*                              English message file.  Allocate changed to    *
*                              purge cache if an out of memory error is      *
*                              encountered.                                  *
* 21 Mar 88  0.05a01          ** Alpha 05 Release **                         *
* 21 Mar 88           JJ      Changes made to alert mgr to compensate for    *
*                              spec change in window mgr.  English msg file  *
*                              changed for the same reason.  Alerts mod to   *
*                              accomodate new msgs for format and erase.     *
* 21 Mar 88           MSA     Bug fixed in DynaLists- change to correct      *
*                              behavior in 'out of id' scenarios; changed    *
*                              length of prefixes 0-7 to 64 to match ProDOS  *
*                              16's ill-advised behavior (When P16 adds a    *
*                              slash it can overwrite the buffer given it -  *
*                              manual says up to 64 bytes can be returned.   *
*                     MSA     Bug in 'out of memory' failure of alloc_record *
*                              fixed; reset_cache call added (no doc)        *
* 21 Mar 88  0.06a01          ** Alpha 06 Release **                         *
* 04 May 88           JJ      Support for new format options added.  Reset   *
*                              now forces reboot.                            *
* 04 May 88  0.07a01          ** Alpha 07 Release **                         *
* 02 Jun 88           JJ      English message file: added 'SCSI ROM Version' *
*                              error message.  Added call 'GetStackedID'     *
* 02 Jun 88  0.08a01          ** Alpha 08 Release **                         *
* 14 Jun 88           JJ      Added os_shutdown call.  Added related error   *
*                              in English error msg file.                    *
* 14 Jun 88  0.09a01          ** Alpha 09 Release **                         *
* 28 Jun 88           MSA     Fixed bug in find_record which did not catch   *
*                              ids with the top two bits set and return w/   *
*                              error. Changed lock/unlock sys serv calls to  *
*                              allow proper nested operation.  Changed       *
*                              create_seg so that if GS/OS memory is locked  *
*                              any segment made is also locked.  Low level   *
*                              lock code changed to preserve ZP loc 'hand'.  *
* 27 Jun 88           JJ      Provide a large stack for AlertWindow- uses    *
*                              GS/OS stack and preserves GS/OS zpage (and    *
*                              one extra page for good measure) around the   *
*                              call.                                         *
* 28 Jun 88           JJ/MSA  Change Get_FST_Info script so that it does not *
*                              check for a valid refnum parameter.           *
* 29 Jun 88  0.10a01          ** Alpha 10 Release **                         *
*                                                                            *                                                                                                        *
******************************************************************************

******************************************************************************
*									     *
*									     *
* 			>>	  BIG GAP	<<			     *									     *
*									     *
* The history was not maintained from June 30, 1988 to August 16, 1988 when  *									     *
* the first external release was made on System Disk 4.0.  I have picked up  *									     *
* the history from release date onwards...				     *									     *
*                                                                            *                                                                                                        *
******************************************************************************

*******************************************************************************
*
* REVISION HISTORY:
*
* Date	   By		Description
* -------- ------------ -------------------------------------------------------
* 8/16/88  JJ/MSA	02.00 release.
* 11/1/88  BPA		Conversion to MPW/MAX.
* 11/16/88 BPA		Added parse_pathname system service call.  Modified
*			set_level and get_level such that two distinct ranges
*			of levels can be used: system and user (default).
* 11/17/88 BPA		Added os_event handler.
* 11/18/88 BPA		Added os_add_queue and os_delete_queue calls to support
*			the os_event handler.
* 11/21/88 BPA		Added set_prefix_33 procedure for the '@' prefix, and
*			put in supporting changes.
* 11/28/88 BPA		Restructured source into 1 file (scm.src).
* 11/29/88 BPA		Fixed allocation length in set_prefix_33 to account for
*			length word of string.  Added prefix # range check to
*			get_prefix.
* 11/30/88 BPA		Fixed cvt0to1 to handle null string correctly by
*			clearing high byte. Fixed set_prefix_33 so does not
*			count trailing zero in length word. Fixed get_prefix:
*			range check was in the wrong place.  Added 
*			chk_vol_change so will post volume_change events.
* 12/1/88  BPA		Fixed chk_vol_change so walks vcr list correctly.
*			Changed os_event so sets direct page to zero before
*			calling notify_proc.
* 12/1/88  BPA		02.01d5 release.
* 12/6/88  BPA		Restored inc_busy_flag call in oscall_module and
*			removed it from return_from_lc.  Changed mm_attributes
*			so _newhandle only requests that no special memory be
*			used.  Modified os_shutdown so returns parm_range_err
*			if shutdown_flag has any bits set other than 0 & 1.
* 12/7/88  BPA		Fixed os_shutdown to check for error on GetFirstWindow
*			call (fixes BRC#38977).
* 12/8/88  BPA		Fixed os_shutdown so skips all window manipulation if
*			window manager is not active.
* 12/13/88 BPA		Added CLC after string copy in set_prefix_33.  Changed
*			set_level so does not do range check for system_level.
* 1/3/89   BPA		Changed seg_3_max from $bb00 to $ba00 to give Ray some
*			space.  Commented out scripts for device calls.  Added
*			special case in check_call for device calls which skips
*			sets the type and exits since Ray checks all the
*			remaining parameters.  Changed s_parse_path to set data
*			bank.
* 1/4/89   BPA		Added logic to avoid doing chk_vol_change when there
*			are no notify_procs in the queue which want the event
*			and/or when the call was handled by a character fst.
* 1/5/89   BPA		Modified chk_vol_change so table is a bit map.  Added
*			support for the new device dispatcher.
* 1/9/89   BPA		Modified s_sys_death to clear system busy flag so that
*			CDA's will be enabled during message.  Changed 
*			do_type_7 so calls init_pack_end when done with format
*			or erase so that message can be erased.  Added logic to
*			avoid bouncing on pathname calls to character devices.
* 1/11/89  BPA		Changed logic which avoids bouncing on pathname calls
*			to character devices so uses a new global which is set
*			by a call to get_dnum (char_dev_flag).
* 1/12/89  BPA		Changed add_fst so will not install fst if it fails on
*			the startup call.  Added init_path_vars routine and 
*			modified s_parse_path, xlate_script, and fe_xlate to
*			use it.  Changed findvcr system service vector to point
*			to findvcrcase so searches will be case insensitive.
*			Changed call_fsts so simulates error on volume call to
*			the character fst;  this was necessary because of the
*			changes which avoided bouncing on pathname calls to
*			character devices.
* 1/13/89  BPA		Added set/clear fst_type_flag logic to call_fst.
* 1/16/89  BPA		Changed os_event event code storage to local variable
*			and saved link_pointer across call to notify_proc.
* 1/17/89  BPA		Modified get_fst_info to fake an extra fst for ISO 9660
*			if the High Sierra FST is present.
* 1/18/89  BPA		Modified add_fst to update the iso_fst_header by
*			copying the High Sierra FST header info.
* 1/19/89  BPA		Added two preference bits to sys_prefs: bit 14 controls
*			which dialog the mount_message uses (0=normal, 1=no
*			cancel button), bit 13 controls suppression of error
*			dialogs (dialogs with only 1 button;  1=suppress).
*			Started a miscellaneous data area in the misc_seg
*			and moved iso_fst_header there because above changes
*			caused an overflow of the main segment.  Also moved
*			FST Table Data Structures to misc_seg.  Changed
*			default system preferences to enable the mount volume
*			message.  Modified save_screen and restore_screen to
*			switch in text page 1 before save or restore.
* 1/23/89  BPA		Changed os_shutdown so it closes any open files after
*			posting the shutdown event;  this will ensure that
*			the disk is clean.
* 1/24/89  BPA		Removed volume name parameter from chk_vol_change.
*			Added logic to avoid doing volume_change notification
*			on close or flush calls when no data was written.
*			Changed chk_vol_change back to using a byte map rather
*			than a bit map to enhance performance.
* 1/25/89  BPA		Added d_rename call which is passed directly to the
*			device manager.
* 1/30/88  BPA		Added network_error to bouncing call #'s (is_bouncer).
* 1/31/89  BPA		Commented out both occurences of stz |unclaimed_count
*			done when an interrupt was handled (BRC#37945).  This 
*			means that the unclaimed interrupt counter is only
*			cleared at startup;  if it ever rolls over, we go to 
*			system death.
* 2/9/89   BPA		Added get_std_ref_num call.  Modified xlate_path so if
*			is partial path & prefix 0 is null, will use prefix 8.
*			Fixed call_fsts so generates not_block_device error
*			for opening character devices with paths that are more
*			than a device name.
* 2/14/89  BPA		Changed shutdown_scm so does not unload error messages.
* 2/15/89  BPA		Changed s_report_fatal so calls alternate entry point
*			in os_shutdown (shutdown_reboot) which forces restart
*			after shutdown.
* 2/16/89  BPA		Changed add_fst to return fst_load_fail or error
*			returned by fst from startup.
* 2/17/89  BPA		Modified alloc_fcr so will always store full pathname
*			in fcr.  Moved a bunch of small routines from gim_seg
*			to misc_seg to free up space in gim_seg.
* 2/20/89  BPA		Added insert_vol_name code for expand_path so will
*			convert device name/number to volume name for output.
* 2/21/89  BPA		Added fst_tbl_ptr so Ray's DA can find FST headers.
*			Added get_ref_num call.  Moved release_v_ptrs from
*			scm_main segment to misc_seg.
* 2/22/89  BPA		Changed seg_3_max to equal globals_end to gain more
*			code space in misc_seg.  Added access parameter as
*			output from get_ref_num call.  Added install_int_vec,
*			remove_int_vec, and interrupt_patch along with the 
*			calls to them needed to ensure that signals which do
*			not get dispatched on exit from os call will get 
*			dispatched with interrupts enabled.
* 2/23/89  BPA		Moved interrupt_patch from misc_seg to oscall_seg to
*			ensure that it doesn't end up in the LC area.  Bumped
*			seg_0_max to $a280 (had to change cache manager's start
*			address to do this).  Added get_ref_info call.  Changed
*			dispatch_signal so will always dispatch all signals
*			regardless of interrupt state.  Modified xlate_path
*			to scan string for nulls and return bad_path_syntax if
*			found (fixes BRC# 41728).
* 2/26/89  GRT		Changed Xlate_Path so a zero length string bypasses
*			the scan_for_null routine.  This fixes a bug where
*			set prefix and quit were returning an error if a 
*			null length string was used as input.
* 2/27/89  BPA		Changed how unclaimed_count is handled:  now stops if
*			it ever reaches $ffff.  We check this condition on
*			entry to every OS call and display fatal error message
*			and restart system if found.  Changed s_report_fatal
*			so forces preferences to state in which errors are
*			reported.  Moved vidtab to misc_data to free up some
*			space in scm_seg_1.
* 2/28/89  BPA		Changed deref_int so saves and restores its direct page
*			usage and uses seg_tab_copy rather than seg_tab which
*			lives on direct page and is unreliable during an
*			interrupt.  Moved s_parse_path to misc_seg to free up
*			some space in seg_1.  Removed chk_vol_change call and
*			all supporting logic (if this feature is needed, it
*			will have to be supported by FSTs).  Changed s_signal
*			so sets direct page.
* 3/1/89   BPA		Fixed bug in os_shutdown which caused it to always do
*			powerdown.  Re-ordered os_shutdown so that all
*			tool calls occur before the OS shutdown calls.
* 3/2/89   BPA		Changed os_shutdown to set warm_cold_flag to cold.
*			Changed shutdown_scm, init_scm, init_int and
*			init_signal to respect warm_cold_flag.
* 3/3/89   BPA		Fixed bug in xlate_path which caused crash if path is
*			null.
* 3/6/89   BPA		Re-ordered source so segments are not broken up and are
*			in low to high memory order.  Renamed s_parse_path to
*			parse_path.
* 3/8/89   BPA		Added macros to dump out free space from each segment.
*			Fixed bug in os_shutdown which did not trash memory
*			manager power up byte when requested if the system is
*			in text mode.
* 3/9/89   BPA		Removed pcount and class checking from expand_path and
*			do_quit and put in script to free some space.  Changed
*			s_report_fatal to set direct page (fixes MJS261LWA).
*			Modified do_type_7 (format and erase calls) so checks
*			for open files on target volume and returns a file_busy
*			error if any open (fixes BRC 36724).  Modified
*			do_get_last_dev call so handles only class 0 case
*			(script ensures this is the only one that gets thru).
*			Merged call_proc_data with misc_data to gain space in
*			scm_seg_2.
* 3/13/89  BPA		Fixed get_ref_num to check pcount correctly.
* 3/27/89  BPA		Fixed unlock_mem to save value of lock_flag.  Added 
*			code to lock all of GS/OS managed memory on call entry
*			and unlock it on exit.
* 4/3/89   BPA		Changed shudown_scm so releases all VCRs on warm
*			shutdown after closing all files (BRC#47003).  Changed
*			minimum pcount for set_prefix to 2 (BRC#46822).  Moved
*			is_bouncer from scm_seg_2 to scm_seg_1 to free space.
* 4/7/89   BPA		Removed init_path_vars call from parse_path and added
*			system service call to init_path_vars which must now
*			be called once before calling parse_path (BRC#46696).
* 4/10/89  BPA		Fixed s_signal so cleans up stack correctly on error.
*			Modified shutdown_scm so releases all vcrs on cold
*			shutdown as well as warm shutdown.
* 4/11/89  BPA		Fixed shutdown_scm so correctly releases ALL vcrs.
*			Changed init_path_vars so must jsl to it so that
*			init_parse_path works.  Re-ordered os_shutdown sequence
*			so that _DeskShutDown always occurs and so that no
*			shutdown processes are done after the powerdown dialog.
*			Fixed disp_common_int so handles unclaimed ints
*			correctly.
* 4/17/89  BPA		Added init_parsepath routine to ensure that data bank
*			set correctly.
* 4/18/89  SEG & ELC    Corrected the bold faced lie that appears above:
*			init_path_vars is called with a jsr, not jsl!  (Hey you
*			guys, I wasn't done yet!!).
* 4/19/89  BPA		Added grab_fixed_seg entry point to grab_mm_seg to
*			allocate fixed memory (used for vect_disp_hand).
* 4/21/89  BPA		Changed init_gim and init_list so allocates larger list
*			for seg_tab so that will be less likely to move out
*			into middle of memory.  Modified init_parsepath so that
*			entry with carry clear does init, carry set releases
*			vps used during parse_path.
* 4/28/89  BPA		Changed get_prefix to not force upper case on class 0
*			calls.
* 5/2/89   BPA		Added close_all_files routine which does end_sessions
*			and close all with system_level at zero.  Modified
*			os_shutdown to call close_all_files.  Removed all file
*			closing logic from shutdown_scm because Gquit has
*			already shutdown the device dispatcher by the time
*			shutdown_scm gets called and close requires it to be
*			active.  Gquit must now call close_all_files before
*			calling shutdown_scm.
* 5/3/89   BPA		Modified close_all_files so sets data bank reg 'cuz
*			Gquit doesn't and so sets sys_prefs to force one button
*			mount dialogs.
* 5/11/89  BPA		Modified report_fatal to check a new flag (e1_gsos_ok,
*			maintained by Gquit);  if zero, will skip all shutdown
*			code and just force reboot.  Changed gsos_lc_entry
*			so that if stack pointer is already in the OS area, it
*			is not forced to stack_top.  This solves some problems
*			on shutdown.  Also changed script for get_name so
*			checks for $00/0000 buffer address.
* 5/18/89  BPA		Moved xlate_script to segment 0 to free up space in
*			segment 2.  Added code to call_fsts to call
*			loader_rename on successful change_path call.  Moved
*			event queue header to segment 2.  Changed
*			insert_vol_name so exits with rtl.  Put loader_rename
*			code in gquit.src cuz wouldn't fit in SCM!  Added
*			xlate_path2_l for loader_rename.  Added do_alert_window
*			in gquit.src to handle removing & restoring CR's where
*			needed.
* 5/30/89  BPA		Changed version number to 3.00, final.
* 6/2/89   BPA		Changed get_ref_num so does not return access when
*			pcount is 2.
*
* 6/17/89  BPA	------	3.00 Release ------------------------------------------
*
* 6/27/89  BPA		Added new segment which lives in what used to be GQuit
*			space (E1DC00-E1DFFF).  Brought loader_rename and
*			do_alert_window back out of Gquit.src and into this
*			new segment.  Moved s_mount_msg to scm_seg_4.  Changed
*			version numbers to 3.01.
* 7/18/89  BPA		Modified force_lock so patches out system service
*			entry for lock_mem and modified force_unlock so
*			restores system service entry point.
* 7/19/89  BPA		Moved vidtab to scm_seg_4 to free up space and modified
*			gotoxy to use long addressing.  Removed lock_mem and
*			unlock_mem calls from do_type_7.  Modified make_seg and
*			deallocate to remember highest used position in
*			seg_tab.  Modified unlockmem and lockmem to be much
*			faster (including some self-modifiying code), and
*			rather than walking the entire list, it now stops one
*			past the highest used position.
* 7/26/89  BPA		Fixed bug in unlockmem which my version of the linker
*			did not report (branch out of range)!
*
* 	   CAF	------	3.0.3 Release ------------------------------------------
*
* 9/13/89  CAF		Fixed bug in os_event where a local variable was not
*			being preserved across calling the notify_procs.
* 9/15/89  CAF		Fixed bug that I introduced on 9/13/89.  I moved the
*			code which pushes the local variable onto the stack to
*			a location where it was safe for me to trash the A
*			register.
* 9/18/89  CAF		Fixed a second bug I introduced on 9/15/89, where I
*			had added 4 bytes to the stack and forgot to
*			change the stack relative offsets when loading the
*			a,x,y registers.
* 09/26/89 CAF		Moved _DeskShutDown to before the dispatch of the
*			gsos_shutdown event to the notification queue.  This
*			fixed a bug where sometimes the system would hang after
*			an OS_Shutdown call, due to the Desk Manager making a
*			call to the Resource Manager, which had been shut down
*			through the notification_queue already.  Changed version
*			numbers to 3.03.
*
* 	   CAF	------	3.0.4 Release ------------------------------------------
*
* 11/28/89 CAF		Incorporated a bug fix by Matt Gulick into disp_common_int.
*			This fixes a problem with 65536 unclaimed interrupts being
*			reported, when this was not the case.  Also changed version
*			numbers to 3.04.
*
* 	   CAF	------	3.0.5 Release ------------------------------------------
*
* 12/14/89 CAF		Changed handling of 65536 unclaimed interrupts.  Now, instead
*			of reporting it as a fatal system error, a message
*			will be displayed to the user and things will continue
*			on as normal.
* 01/09/90 CAF		Updated version #'s to 3.05
* 01/11/90 CAF		Incorporated Rob's quick.console init into the OS, and
*			optimized character output.  Added new variable "char_index",
*			the index of the char fst into the fst table, for faster
*			character io.
*
* 	   CAF	------	3.0.6 Release ------------------------------------------
*
* 01/24/90 CAF		Added an unbind_int system service call at $01/FDC8 so
*			that Matt's driver could perform and unbind_int at
*			shutdown time.
* 01/26/90 CAF		Commented out the console io speedups in order to 
*			create a build version for Cocoon.
* 04/06/90 CAF		Fixed bugs in make_seg, deallocate, and lock/unlock_mem which
*			were using 16 bit addressing when the data bank register
*			was not set correctly, so SCM was stomping on memory
*			and not unlocking some handles.
* 06/15/90 CAF		Removed display of unclaimed interrupt dialog box for
*			system disk 5.0.3.  Fixed a bug where the carry was not set
*			if the user selected cancel from an Init Manager dialog.
* 06/20/90 GAB		Since the JSR to the unclaimed interrupt dialog box was
*			removed in the last change, I went ahead and removed the
*			preceeding code which checked to see if the number of
*			unclaimed interrupts had been exceeded.  Also fixed a couple
*			of minor problems that were put in with the new code that
*			saves the carry bit after a system call.  Since the new
*			section of code is shorter than the original version, I
*			added a DS.B statement which automatically makes it the same
*			length to keep all of the following code in place.  Changes
*			marked by {GAB}.
* 09/25/90 CAF		Uncommented all the console speedup routines, now character
*			output is about 28% faster, but could use some more work
*			particularly in the find_fcr area.  Optimized some code
*			in os_shutdown to free up more space, as marked by {CAF}.
*
*******************************************************************************
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/OS/SCM/SCM.src b/IIGS.601.SRC/GS.OS/OS/SCM/SCM.src
new file mode 100644
index 0000000..78cffdf
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/OS/SCM/SCM.src
@@ -0,0 +1 @@
+		print	nohdr,nomdir,nogen
		pagesize 70
		string	asis

do_force_lock	equ	1	;set to 0 to skip the calls that lock and unlock
				; all of GS/OS-managed memory on each and every
				; GS/OS call.

*******************************************************************************
*
* GS/OS System Call Manager ("SCuM")
* 
* Authors:
*
*	Mike Askins	Jan, 1987 - Oct, 1988	
*	Jim Jatczynski	Jan, 1987 - Oct, 1988
*	Bryan Atsatt	Oct, 1988 - Sep, 1989
*	Cary Farrier	Sep, 1989 - Dec, 1990
*	Greg Branche	Jan, 1991 - Feb, 1992
*	Dave Lyons/Greg July, 1992 - Present
*
* 	a.k.a. "SCuM Lords"
*
* Copyright (c) 1987-93 Apple Computer, Inc.  All Rights Reserved
*******************************************************************************
		eject
******************************************************************************
*                                                                            *
*                  System Call Manager Modification History                  *
*                                                                            *
*                                                                            *
* Date		Ver	Who	Description                                  *
* -------------------------------------------------------------------------- *
* 18 Dec 87 - 06/20/90	See an archived version of this file.  I don't see any
*			point in wasting all the space for a history lesson.
*			I've picked up the revision history after System Disk
*			5.0.4 was frozen. (Greg Branche)
*
* 09/25/90		CAF	Uncommented all the console speedup routines, 
*				now character output is about 28% faster, but
*				could use some more work particularly in the
*				find_fcr area.  Optimized some code in
*				os_shutdown to free up more space, as marked
*				by {CAF}.
*
* 01/24/91	3.07(?)	GAB	Removed all code that maintained the unclaimed
*				  interrupt counter.
*				Added support for JudgeName.
*
* 02/12/91	4.00d1	GAB	Reworked do_type_7 procedure to support the
*				  new Init Manager code.
*
* 02/21/91	4.00d2	GAB	Implemented enhanced Volume call.
*				Shrunk the GetFSTInfo call a little, and changed
*				  the result buffer pointer check so that a NULL
*				  pointer is allowed.  Previously, a NULL pointer
*				  would produce a param_range_error.
*				Checked remaining calls that include a GS/OS result
*				  buffer parameter, and they all now allow a NULL
*				  pointer.
*
* 02/27/91	4.00d3	GAB	Implemented enhanced GetRefInfo call.
*				Cleaned up do_type_7 so that the caller's parameter
*				  block is no longer altered.  Since the FST's
*				  now accept any pCount from 1-6, and they use
*				  the name pointed to by path2_ptr, the parmBlock
*				  doesn't need to be modified.
*
* 03/07/91	4.00d4	GAB	$E1 segment now starts at address $E1DA00 instead of
*				  $E1DC00.
*				When GS/OS displays the dialog asking the user to
*				  insert a disk, it will now continually scan all
*				  online block devices that contain removeable media
*				  (except for Disk ]['s) looking for a disk insertion
*				  event.  When GS/OS recognizes that a disk is inserted,
*				  the dialog will go away as if the user pressed the
*				  Return key to accept the default selection.  (This is
*				  actually implemented as a new System Service Call,
*				  which AlertWindow calls as part of its event loop.) In
*				  addition, SysBeep2 is also called with a beep code
*				  of $C030 (disk request, silent by default, activated
*				  on next call to GetNextEvent).
*				When processing calls to FSTs that contain a pathname
*				  parameter (the infamous "bouncing" process), SCM now
*				  post-processes the error code returned by the FST in
*				  an attempt to prioritize the error.  See the GS/OS
*				  Delta ERS for details.
*				When processing a pathname that starts with a digit,
*				  GS/OS now attempts to determine whether the leading
*				  number is a prefix or not.  If it decides that the
*				  number is NOT a prefix, it processes the pathname
*				  using the default prefix instead of setting the
*				  prefix number to the supplied prefix.  This means
*				  that you can now specify filenames such as
*				  "6.0 Systems" without having to build a full
*				  pathname first.
*
* 03/11/91	4.00d5	GAB	OSShutdown call now supports automatically ejecting
*				  disks.  If the call is a full shutdown call (not
*				  a restart call), or if it is a restart call and
*				  bit 2 of the flags is also set, the device
*				  dispatcher is called with a command code of 3
*				  (full shutdown) instead of 2 (normal shutdown).
*
* 04/24/91	4.00d6	GAB	OSShutdown fixed so that it does not eject disks
*				  during a restart call.
*				SysBeep2 changed to SysBeep in getkey procedure,
*				  since we're not guaranteed that SysBeep2 exists
*				  at the time that it's called (i.e. during booting).
*
* 05/09/91	4.00d7	GAB	Volume call enhanced so that if a duplicate volume
*				  error is returned from an FST, and the pCount is 7
*				  or greater, SCM will fill the caller's parameter
*				  block in with the FST ID of the FST that is
*				  returning the error, as well as the characteristics
*				  parameter.  The device ID parameter is also
*				  returned.
*				do_type_7 now checks the reqFileSysID parameter to
*				  ensure that it refers to an FST that supports
*				  formatting prior to calling the Format Manager.
*
* 05/21/91	4.00d8	GAB	do_type_7 now returns error code $65 when a
*				  reqFileSysID specifies an FST that is installed
*				  in the system but that does not support formatting.
*
* 05/28/91	4.00d9	GAB	do_type_7 defers judgement to the Init Manager on
*				  whether or not the reqFileSysID parameter is
*				  valid.  This reverses the change made in d7.
*
* 06/07/91	4.00d10	GAB	Main call dispatcher now performs the character FST
*				  write check inline, instead of as a subroutine
*				  call.
*				Device manager calls are special cased like the
*				  Character FST Write calls.
*				Modified GIM NewHandle call to allocate a new block
*				  as locked if the lock_mem call count is non-zero
*				  (i.e. if the rest of GIM memory is already locked)
*
* 06/19/91	4.00d11 GAB	Move force_lock and force_unlock from main call
*				  dispatcher to FST call dispatcher.
*				Set bit 5 of AlertWindow flags so that any
*				  buttons displayed in the window are located
*				  as suggested by HIG.
*
* 07/24/91	4.00d12 GAB	Changed SysBeep2 flags so that the beep is NOT
*				  silent by default.
*
* 07/31/91	4.00d13	GAB	Changed do_type_7 so that bit 13 of the call's
*				  'flags' parameter is allowed.  Setting this
*				  bit in a Format call will inhibit the display
*				  of the 'Initializing' information dialog.
*
* 08/16/91	4.00d14	GAB	Changed volume call so that bit 4 of the returned
*				  characteristics parameter will be set if the
*				  volume in question contains any open files.
*
* 08/31/91	4.00d15	GAB	Changed do_force_unlock flag so that the calls to
*				  force_lock and force_unlock are back where they
*				  originally were (within the main call dispatcher)
*				  instead of within the Call_FST subroutine.  I
*				  forgot that the "speeded-up" calls to the
*				  Character FST also go through the Call_FST
*				  subroutine, which means that when I added the
*				  force_lock and force_unlock around the actual
*				  FST call, I slowed down the baud rate again.
*				Added logic to call processing to speed up
*				  character I/O by not calling inc_busy_flag &
*				  dec_busy_flag when the character FST is called.
*				  Duplicates functionality of QuickConsole INIT.
*				Fixed get_ref_num to work properly if one of the
*				  standard I/O prefixes is specified (10, 11,
*				  or 12) when the prefix contains a device
*				  name.
*				Changed do_type_2 so that if a file_busy error
*				  is returned from the FST, SCM will see if the
*				  caller was attempting to open prefix 11 or
*				  prefix 12 (stdout or stderr). If so, SCM then
*				  checks the pCount, which must be less than 4 (
*				  since it can't return all of the file information
*				  described by the remaining parameters).  If the
*				  pCount is within range, the system will then
*				  compare the contents of the two prefixes.  If
*				  the prefixes are identical (except for character
*				  case), GS/OS will return the same refnum as
*				  used for the alternate i/o stream (e.g. if
*				  prefix 12 is being opened, but the physical
*				  file has already been opened as prefix 11,
*				  GS/OS will duplicate the stdout prefix for
*				  stderr).  This was done to better support
*				  i/o redirection.
*				Changed do_type_3 so that if a close call is
*				  being made with a refnum that applies to BOTH
*				  stdout and stderr, the call completes without
*				  error, but the file is not actually closed.  In
*				  this case, the stderr stream will be the first
*				  one logically closed (it's internal refnum is
*				  zeroed).
*				Added SetStdRefNum call to allow an application
*				  (like ORCA) to specifically set the refnum
*				  associated with one of the standard i/o
*				  prefixes.  Parameter block is identical
*				  to GetStdRefNum.  The refnum supplied must
*				  refer to a currently open file.
*				Bug fix in e1_volume_call.  No longer attempts
*				  to return the "open_files" bit of the charac-
*				  teristics word if an error is reported by the
*				  called FST.
*				Had to shuffle some subroutines around from
*				  segment to segment to get all of the above
*				  to fit.
*
* 09/05/91	4.00d16	GAB	In return_from_lc, checking the state of bit 14
*				  of io_flag prior to calling the signal dispatcher
*				  was not working properly.  It should now.
*
* 10/10/91	4.00d17 GAB	do_insert_scan modified to skip the status call
*				  on an Apple SCSI tape drive.
*
* 10/30/91	4.00d18	GAB	e1_volume_call modified to use the device number
*				  stored in dev_num ($36) instead of whatever
*				  is left over in drvr_dev_num ($00).
*
* 11/07/91	4.00d19 GAB	new_volume_call modified to zero the string
*				  length word in the volume name result buffer
*				  prior to calling the FSTs.
*				release_v_ptrs optimized.
*
* 11/13/91	4.00d20 GAB	new_volume_call reverted back to its original,
*				  pre-4.0d19 form.  Applications are allowed to
*				  use the same buffer for both input and output
*				  strings for the Volume call.  If SCM zeros
*				  the length word, it's actually zeroing the
*				  length word of the input pathname.
*				Removed code that set 'shutdown_flag', since
*				  no one ever reads the value that's stored there.
*
* 12/05/91	4.00d21	GAB	Altered call_fsts to handle the new flags parameter
*				  to the ChangePath call.  If bit 15 of the flags
*				  word is set AND pathname 1 consists of ONLY a
*				  device name (i.e. the volume name is being changed),
*				  the Loader_Rename call is skipped.
*
* 12/07/91	4.00d22	GAB	Remove 'and #$00FF' from s_sys_death.  It shouldn't be
*				  altering the error code in the first place.
*				Add support in set_prefix and get_prefix to allow caller
*				  to set and retrieve the '@' prefix.  This is done
*				  by specifying a prefix number of $FFFF (-1) in the
*				  SetPrefix and GetPrefix parameter blocks.
*
* 01/06/92	4.00d23	GAB	In call_fsts, if an FST returns an error code with the
*				  priority bit set (bit 15), SCM will exit the subroutine
*				  immediately.  Having the priority bit set means that the
*				  FST is claiming that the call belonged to it.  Therefore
*				  there's no reason to continue the call loop and allow
*				  the remaining FSTs to encounter an error which won't
*				  be reported to the caller (since the error with the
*				  priority bit set will be the one returned in any case).
*				os_shutdown now initializes sys_prefs to 0 prior to
*				  displaying the shutdown dialog to ensure that the dialog
*				  is actually displayed.
*
* 01/18/92	4.00d24	GAB	Moved e1_get_ref_info back into bank 0 (since optimizing
*				  release_v_ptrs freed up enough room for it) and removed
*				  it from bank $E1.
*				Moved init_fst_tbl into miscellaneous segment to free up
*				  some room in the bank $E1 segment.  Also rewrote routine
*				  to be more memory efficient.
*				$E1 segment now starts at $E1D980 to make room for
*				  the following fix.
*				Loader_Rename now scans through all active FCRs to see
*				  if any portion of an open file's pathname is being
*				  changed.  If so, the name stored with the FCR is
*				  changed to reflect the new pathname.
*
* 01/23/92	4.00d25	GAB	When the original pathname was specified as ONLY
*				  a device name for a ChangePath call, meaning that
*				  the volume name was being changed, the
*				  insert_vol_name call within Loader_Rename was
*				  occurring AFTER the volume name had already been
*				  changed by the FST.  This means that the original
*				  pathname had the _new_ volume name used instead
*				  of the actual original volume name.  I've added
*				  the rename_preamble routine that is used by
*				  call_fsts PRIOR to calling the FST so that the
*				  REAL original volume name can be determined.
*
* 02/10/92	4.00d26	GAB	Fixed bug in xlate_path which was allowing a 0-length
*				  pathname to be accepted without generating a
*				  bad_path_syntax error.  When I optimized the
*				  call in the last version, I missed changing
*				  the BNE at is_null into a BEQ to syntax_err.
*
*******************************************************************************
*
* Begin 6.0.1
*
* 17-Jul-92	4.02d8 DAL	Changed restart_system to store a little piece
*				  of code at $F0 instead of $0300 (it bugged me
*				  to have it trash $0300).
*				Changed which_one to force screen dimmers to
*				  un-dim before choosing whehter to use the
*				  Super Hi-Res screen or not.  Reorganized code
*				  to come close to breaking even in bytes.
*				Minor optimizations to save enough bytes for the
*				  above changes.
*
* 20-Jul-92	DAL		Changed the above SendRequest in which_one to
*				  clean up the stack on a dispatcher error,
*				  since this can get used during boot before
*				  the toolbox is patched (before SendRequest
*				  actually exists!).
*
* 12-Aug-92	DAL		Changed SysBeep2 call in s_mount_msg to clean up
*				  stack on error (in case Tool.Setup isn't loaded
*				  yet).
*
* 20-Aug-92	DAL		Added $01FCE0 s_toolbox_msg, new entry point to
*				  the s_full_error routine for AlertMessage to
*				  call from the Misc Tools.  Random optimizations
*				  to save enough bytes to fit in the above.
*
* 2-Sep-92	DAL		Made two changes to OSShutDown:
*				  ¥It was accidentally skipping the DeskShutDown
*				  call if flag bit 2 was clear.
*				  ¥It wasn't calling os_p8_switch to tell DoRight
*				  that GS/OS was going away.
*
* 15-Dec-92	DAL		Two changes disp_common_int:
*				  ¥Returns CLC if and only if at least one interrupt
*				   handler claimed the interrupt (was previously
*				   clearing carry when the *last* handler claimed it).
*				  ¥Restores MSLOT after dispatching to an IRQ.OTHER
*				   handler.
*				  ¥Lots of optimizations to make room for the above,
*				   including removing a redundant check in create_seg
*				   to see if we need to lock a newly-created handle.
*
* 2-Mar-93	DAL		Added code to put a $4C at $BF00 at the beginning of
*				  every GS/OS call, so the Vulcan without a loaded
*				  driver will be happy.  Steve Stephenson and I spent
*				  long enough investigating this that we fixed it even
*				  though it is stupid (Vulcan should not be looking
*				  at $BF00 after boot).
*				For debugging convenience, on the way out of a GS/OS
*				  call we store any nonzero error code at $FC/4242.
*
* 9-Mar-93	DAL		Added code in OSShutDown to call os_p8_switch with
*				  A = $8000, so the Ethernet card can cleanly shut
*				  down and revert to its original $Cn00 state.
*
*******************************************************************************

		print	push
		print	off
		eject
*******************************************************************************
*
*   Imported Addresses
*
*******************************************************************************

		import	cash_add
		import	cash_del_vol
		import	cash_delete
		import	cash_find
		import	cash_flsh_def
		import	cash_init
		import	cash_shutdown
		import	dev_dispatch
		import	e1_app_filename
		import	e1_msg_address
		import	e1_volname
		import	eq_msg_address
		import	g_dispatch
		import	get_b0_buff
		import	get_dnum
		import	get_stacked_id
		import	init_pack
		import	lc_dispatcher
		import	p16quit
		import	post_driver
		import	rename_bootvol
		import	set_disk_sw
		import	set_gsos_speed
		import	slot_arbiter
		import	supervisory
		import	to_bank0_core
		
		import	insert_driver
		import	init_pack_end
		import	e1_gsos_ok
		
		eject
*******************************************************************************
*
* Exported addresses
*
*******************************************************************************

		export	s_flags:equ
		export	entry_size:equ
		export	id:equ
		export	alert_ptr:equ
		export	subst_ptr:equ
		
		export	add_fst
		export	deallocate
		export	event_queue
		export	fst_count
		export	fst_tbl
		export	gsos_id
		export	init_scm
		export	os_event
		export	restart_system
		export	set_prefix_33
		export	shutdown_scm
		export	close_all_files
		export	v_ptr1
		export	v_ptr2
				
		eject
*******************************************************************************
*
*   Forward addresses
*
*******************************************************************************

		entry	add_element
		entry	alloc_int
		entry	alloc_record
		entry	alloc_string
		entry	alloc_zero
		entry	allocate
		entry	allocfcr
		entry	allocvcr
		entry	altcharsv
		entry	begin_session
		entry	bind_int
		entry	build_icr
		entry	cab_2
		entry	calc_span
		entry	call_fsts
		entry	call_fst
		entry	case_mask
		entry	char_index
		entry	check_call
		entry	chk_app_buf
		entry	class
		entry	classify_char
		entry	col80sv
		entry	common_disp_jmp
		entry	common_int_ent
		entry	copy_ext_string
		entry	copy_gstring
		entry	copy_xlate
		entry	create_seg
		entry	ctype_vector
		entry	curr_fst
		entry	cvt0to1
		entry	cvt1to0
		entry	cvt_normal_exit
		entry	dealloc_int
		entry	deallocate
		entry	death_sub_tbl
		entry	default_b_data
		entry	dequeue_signal
		entry	deref2
		entry	deref2_vp
		entry	deref_int
		entry	interrupt_state
		entry	disp_stub_1
		entry	disp_stub_2
		entry	dispatch_busy
		entry	do_button
		entry	do_fst
		entry	do_get_last_dev
		entry	do_judgename
		entry	do_quit
		entry	do_type_0
		entry	do_type_1
		entry	do_type_2
		entry	do_type_3
		entry	do_type_4
		entry	do_type_5
		entry	do_type_6
		entry	do_type_7
		entry	domvxonstack
		entry	draw_box
		entry	empty_vect
		entry	end_session
		entry	entry_mode
		entry	entry_point
		entry	entry_type
		entry	event_code
		entry	event_flags
		entry	event_queue
		entry	expand_path
		entry	fatal_err_num
		entry	fatal_err_str
		entry	fcr_id_hand
		entry	fe_xlate
		entry	find_fst
		entry	find_record
		entry	findfcr
		entry	findvcr
		entry	findvcrcase
		entry	free
		entry	free_id
		entry	free_mm_seg
		entry	fst_count
		entry	fst_entry_size
		entry	fst_flags
		entry	fst_spec
		entry	fst_tbl
		entry	gbuf
		entry	gderef
		entry	get_boot_vol
		entry	get_fst_info
		entry	get_level
		entry	get_level_flag
		entry	get_mm_id
		entry	get_name
		entry	get_pfx
		entry	get_prefix
		entry	get_record
		entry	get_sys_prefs
		entry	get_version
		entry	getfcr
		entry	getkey
		entry	getvcr
		entry	gotoxy
		entry	gprex_alt_ent
		entry	grab_mm_seg
		entry	grow_list
		entry	gs_move_info
		entry	gsos_id
		entry	handled
		entry	icr_id_hand
		entry	init_fst_tbl
		entry	init_gim
		entry	init_int
		entry	init_list
		entry	init_signal
		entry	inline_entry
		entry	int_disp_jump
		entry	inverse
		entry	is_bouncer
		entry	is_volume_only
		entry	jump_v
		entry	kill_element
		entry	last_fst
		entry	lcbank1_twice		;2-Mar-93 DAL
		entry	lc_inline_entry
		entry	lc_stack_entry
		entry	lc_state
		entry	ldxy_idhand
		entry	len_to_delim
		entry	link_record
		entry	list_index
		entry	loc_1
		entry	loc_2
		entry	lock_flag
		entry	lock_hand
		entry	lockmem
		entry	look_at_char
		entry	loop45
		entry	low_allocate
		entry	m_abortmove
		entry	m_contdomove
		entry	m_movefinished
		entry	m_scon_dcon
		entry	m_scon_ddec
		entry	m_scon_dinc
		entry	m_sdec_dcon
		entry	m_sdec_ddec
		entry	m_sdec_dinc
		entry	m_sinc_dcon
		entry	m_sinc_ddec
		entry	m_sinc_dinc
		entry	make_seg
		entry	map_vi
		entry	map_vp
		entry	map_vrn
		entry	merge_free
		entry	mm_deref
		entry	modesave
		entry	movetable
		entry	mybc
		entry	name_search
		entry	newline
		entry	newvidsv
		entry	null_call
		entry	null_flag
		entry	num
		entry	obj_list_tab
		entry	obj_type
		entry	os_add_queue
		entry	os_delete_queue
		entry	os_event
		entry	os_shutdown
		entry	out
		entry	out2
		entry	out80
		entry	page2sv
		entry	patch_vector
		entry	path_to_fst_id
		entry	prefices
		entry	prodos_index
		entry	char_index
		entry	prompt
		entry	queue_signal
		entry	release_record
		entry	release_v_ptrs
		entry	releasefcr
		entry	releasevcr
		entry	rename_record
		entry	renamefcr
		entry	renamevcr
		entry	replace80
		entry	res_block
		entry	reserve_id
		entry	reset_cache
		entry	restart_system
		entry	restore_screen
		entry	restore_vector
		entry	return_1
		entry	return_2
		entry	return_from_fst
		entry	return_from_lc
		entry	s_full_error
		entry	s_get_boot_pfx
		entry	s_get_sys_gbuf
		entry	s_mount_msg
		entry	parse_path
		entry	s_report_error
		entry	s_report_fatal
		entry	s_set_boot_pfx
		entry	s_signal
		entry	s_sys_death
		entry	save_screen
		entry	save_x
		entry	save_y
		entry	script_current
		entry	script_start
		entry	search_seg
		entry	seg_0_end
		entry	seg_1_end
		entry	seg_2_end
		entry	seg_3_end
		entry	seg_4_end
		entry	seg_tab_hand
		entry	select
		entry	select_seg
		entry	session_status
		entry	set_level
		entry	set_pfx
		entry	set_pfx_32
		entry	set_pfx_32_alt
		entry	set_prefix
		entry	set_ptr
		entry	set_sys_prefs
		entry	set_tab_ptr
		entry	set_type
		entry	setupformvx
		entry	signal_beat
		entry	signal_free
		entry	signal_head
		entry	signal_table
		entry	snuggles
		entry	stack_entry
		entry	stp2
		entry	str_to_int
		entry	sub_ptr_1
		entry	sub_ptr_2
		entry	sub_str_1
		entry	sub_str_2
		entry	sub_str_3
		entry	swapout
		entry	switchtab
		entry	system_level
		entry	temp_error
		entry	text_alert
		entry	textsv
		entry	type_3_alt
		entry	ul_hand
		entry	ul_mem
		entry	unbind_int
		entry	unbind_int2
		entry	unbind_int_vec
		entry	unfree
		entry	unlink_record
		entry	unlock_hand
		entry	unlockmem
		entry	user_int_entry
		entry	v_ptr1
		entry	v_ptr2
		entry	vcr_id_hand
		entry	vect_disp_base
		entry	vect_disp_hand
		entry	vrn_to_index
		entry	which_one
		entry	wreck_icr
		entry	xlate_count
		entry	xlate_path
		entry	xlate_path2
		entry	xlate_script
		
		entry	dev_manager
		entry	init_path_vars
		entry	std_ref_num
		entry	get_std_ref_num
		entry	get_ref_num
		entry	shutdown_reboot
		entry	more
		entry	volume_parms
		entry	device_name
		entry	dev_name_length
		entry	insert_vol_name
		entry	path_script
		entry	case_mask2
		entry	fork_num	
		entry	case_sense
		entry	displacement
		entry	fcr_index
		entry	found_count
		entry	install_int_vec
		entry	remove_int_vec
		entry	interrupt_patch
		entry	int_patch_1
		entry	int_patch_2
		entry	int_patch_3
		entry	patch_state
		entry	get_ref_info
		entry	vidtab
		entry	seg_tab_copy
		entry	do_all
		entry	gsos_lc_entry
		entry	dispatch_signal
		entry	disp_user_int
		entry	disp_common_int
		entry	do_volume_call
		entry	force_lock
		entry	force_unlock
		entry	ul_mem2
		entry	alt_rel_vcr
		entry	init_parsepath
		entry	grab_fixed_seg
		entry	init_spcl_list
		entry	play_script
		entry	do_alert_window
		entry	loader_rename
		entry	lock_vector
		entry	unlock_vector
		entry	seg_tab_last
	
		eject
*******************************************************************************
*
*   Includes
*
*******************************************************************************

		include	'common.equ.src'
		include	'hw.equ.src'
		include	'gsos.macros.src'
		include 'driver.equ.src'

		print	pop
		eject		
*******************************************************************************
*
*   Equates
*
*******************************************************************************

;===============================================================================
; Data for processor functions
;===============================================================================

m16		equ	$20			;mode setting value for 16-bit m
x16		equ	$10			;mode setting value for 16-bit x
mx16		equ	$30			;mode setting value for 16-bit m and x
m8		equ	$20			;mode setting value for 8-bit m
x8		equ	$10			;mode setting value for 8-bit x
mx8		equ	$30			;mode setting value for	8-bit m and x
n_flag		equ	$80			;n status flag
v_flag		equ	$40			;v status flag
m_flag		equ	$20			;m mode flag
x_flag		equ	$10			;x mode flag
b_flag		equ	$10			;b status flag
d_flag		equ	$08			;d mode flag
i_flag		equ	$04			;i mode flag
z_flag		equ	$02			;z status flag
c_flag		equ	$01			;c status flag
e_flag		equ	$01			;e mode flag
not_c_flag	equ	$FFFE			;complement of c_flag
not_z_flag	equ	$FFFD			;complement of z_flag
mx16_or_d_flag	equ	$38			;mask to turn off m, x, and d bits

;===============================================================================
; Data in the GS/OS global space in bank $E1
;===============================================================================

active_flag	equ	os_flag			;GS/OS external active flag word
						;bit 15=0:  GS/OS inactive
						;bit 15=1:  GS/OS active
						;bits 14-0:  reserved

is_active	equ	$8000			;value for GS/OS active (use ora)
is_inactive	equ	$7FFF			;value for GS/OS inactive (use and)
;shutdown_flag	equ	$E100B8			;flag to indicate gquit vs. shutdown
;do_gquit	equ	$0000			;indicate that a gquit is in progress
;do_shutdown	equ	$0001			;indicate that shutdown is in progress

sys_busy_flag	equ	$e100ff			;System busy flag (0=not busy).

;===============================================================================
; Data used by the GS/OS shell system call processor.
;===============================================================================

is_inline	equ	$0006			;value for inline type os call
is_stack	equ	$0000			;value for stack type os call
is_native	equ	$0000			;value for call from native mode
is_emulation	equ	$8000			;value for call from emulation mode
i_bit_mask	equ	$0400			;mask to recover i bit from stacked P
default_prefs	equ	$8000

;===============================================================================
; GS/OS system direct page equates
;===============================================================================

perm_work	equ	span2+2			;direct page permanent work area
user_stack	equ	perm_work		;pointer to base of user stack (4 bytes)

temp_work	equ	$D4			;direct page temporary work area
s_temp1		equ	temp_work
s_temp2		equ	s_temp1+4
s_temp3		equ	s_temp2+4
s_temp4		equ	s_temp3+4
s_temp5		equ	s_temp4+4

;===============================================================================
; Aliases for direct page equates
;===============================================================================

;
; Aliases used by SCM entry routines
;
call_block	equ	s_temp1			;pointer to GS/OS call block

;
; Aliases used by pathname translation routines.
;
in_ptr		equ	s_temp1			;pointer to input string data structure
in_curr		equ	s_temp2			;pointer to output string data structure
in_end		equ	s_temp2+2		;offset of current position in input
out_ptr		equ	s_temp3			;offset	one past end of input
out_curr	equ	s_temp4			;offset of current position in output
out_end		equ	s_temp4+2		;offset	one past end of output
control		equ	s_temp5			;upper case flag and separator char
max_span	equ	s_temp5+2		;maximal span between separators in a
						;...pathname

;===============================================================================
; Miscellaneous constants
;===============================================================================

sep		equ	$3A			;canonical separator character
nul		equ	$00			;ASCII null (string terminator)

bit0		equ	$0001			;Value for bit 0.
bit1		equ	$0002			;Value for bit 1.
bit2		equ	$0004			;Value for bit 2.
bit3		equ	$0008			;Value for bit 3.
bit4		equ	$0010			;Value for bit 4.
bit5		equ	$0020			;Value for bit 5.
bit6		equ	$0040			;Value for bit 6.
bit7		equ	$0080			;Value for bit 7.
bit8		equ	$0100			;Value for bit 8.
bit9		equ	$0200			;Value for bit 9.
bitA		equ	$0400			;Value for bit A.
bitB		equ	$0800			;Value for bit B.
bitC		equ	$1000			;Value for bit C.
bitD		equ	$2000			;Value for bit D.
bitE		equ	$4000			;Value for bit E.
bitF		equ	$8000			;Value for bit F.

;===============================================================================
; Data for tool calls
;===============================================================================

inc_busy_flag	equ	$E10064			;address of inc_busy_flag call
dec_busy_flag	equ	$E10068			;address of dec_busy_flag call


;===============================================================================
; FST Table Data Structures
;===============================================================================

max_fsts	equ	16			;maximum number	of FSTs allowed

; offsets of fields within an FST Table entry

fst_hdr_ptr	equ	0			;pointer to FST header
app_entry	equ	fst_hdr_ptr+4		;address of FST's application entry pt
sys_entry	equ	app_entry+4		;address of FST's system entry point
id		equ	sys_entry+4		;FST id value
s_flags		equ	id+2			;flags
						;bit 15 =0, do not upper case pathnames
						; =1, force upper case in pathnames
						;bit 14 =0, the FST is a block FST
						; =1, the FST is a character FST
entry_size	equ	s_flags+2
table_size	equ	max_fsts*entry_size
init_fst	equ	$0002			;code to init FST call
kill_fst	equ	$0004			;code to shtdwn of FST
kill_vcr	equ	$0006			;code to free FST specific data from VCR
flush_def	equ	$0008			;code to flush deferred	blks on a VCR

;------------------------------------------
;
; Equates from procedure session_data
;
;------------------------------------------

session_on	equ	$0001			;value for session in progress
session_off	equ	$0000			;value for no session in progress


;------------------------------------------
;
; Equates from procedure alert_data
;
;------------------------------------------

mount_msg_num1	equ	1			;Error number for mount message
mount_msg_num2	equ	46			;Alternate error # for mount message
right_arrow	equ	$15
left_arrow	equ	$08
up_arrow	equ	$0B
down_arrow	equ	$0A
return_key	equ	$0D
null0		equ	$00
xbias		equ	1
ybias		equ	2
box_orig_x	equ	0
box_orig_y	equ	6
box_width	equ	40
box_height	equ	13
buttons		equ	3
button_x	equ	0			;button x position (column)
button_y	equ	button_x+1		;button y position (row)
button_len	equ	button_y+1		;number	of characters in button label
button_resp	equ	button_len+1		;response if button is pressed
record_len	equ	button_resp+1		;length	of this record
num_buttons	equ	1			;button number of button being processed
default_button	equ	num_buttons+2		;button number of default button
button_table	equ	default_button+2	;button	characteristics table
delim_char	equ	button_table+(buttons*record_len)
alert_ptr	equ	delim_char+2		;pointer to the alert string
subst_ptr	equ	alert_ptr+4		;pointer to the substitution table
temp		equ	subst_ptr+4		;general temporary
subst_str_ptr	equ	temp+2			;pointer to substitution string
selected_button	equ	subst_str_ptr+4		;the selected button
ch		equ	selected_button+2	;cursor horizontal position
cv		equ	ch+1			;cursor vertical position
aptr		equ	cv+1			;general purpose pointer
dp_size		equ	aptr+4-1		;size of direct page word space
s_error		equ	51
s_subst_ptr	equ	47
dp_save_area	equ	$e0d000			;save area for GS/OS direct page and one

;
; Equates from procedure save_screen
;
storage		equ	$E0D000


;----------------------------------------------------------------------------
;
; GIM Equates
;
;----------------------------------------------------------------------------


; Dynalist Constants

list_alc_flag	equ	$8000			;MSB indicates active entry in segtab
list_min_size	equ	4			;Minimum size (entries) of a list
list_grow_inc	equ	8			;Inc (entries) in which	list is grown
list_stump	equ	4			;Size of proto-list
list_size	equ	0			;Location of size (bytes) in list memory
list_freehead	equ	2			;Location of free header in list memory


; Segment Allocation Constants

segment_size	equ	$2000
fwd_ovrhead	equ	10			;Amount of overhead at the front of blk
block_ovrhd	equ	12			;Total # of bytes of overhead each block
max_blk_size	equ	segment_size-6		;Segment size -free header -dummytags
min_blk_size	equ	block_ovrhd+4		;4 bytes is smallest usable space
bsize1		equ	$0000
flink		equ	$0002			;Used for unallocated blocks
blink		equ	$0004			;Used for unallocated blocks
succ		equ	$0002			;Used for allocated records
pred		equ	$0006			;Used for allocated records

seg_tab_stump	equ	$0004			;Table Size + free header
seg_tab_free	equ	$0002			;Free header location in segment table
init_block	equ	$0004			;Begins	after the free header & Dumtag
dtag1_posn	equ	$0002			;First dummy tag position
dtag1_valu	equ	$8000			;MSB set to indicate allocated block
dtag2_posn	equ	segment_size-2		;Second dummy tab position
dtag2_valu	equ	dtag1_valu		;Same as first tag
size1_posn	equ	init_block+bsize1	;First size word (tag = unallocated)
size2_posn	equ	dtag2_posn-2		;2nd size word just before dummy tag
fwd_posn	equ	init_block+flink	;Forward Link position
back_posn	equ	init_block+blink	;Backward link position
head_valu	equ	$FFFE			;Kluge to make back patch work okay
free_posn	equ	$0000			;Position in segment of free header

nullval		equ	$0000


; Object List Constants

num_obj_lists	equ	2+25			;Number of different types of objects

number_prefix	equ	34			;Number of prefixes allowed (incl '*' & '@')


; List Offsets

vcr_list	equ	$0000			;Head pointer for VCRs
fcr_list	equ	$0004			;Head pointer for FCRs
icr_list	equ	$0008			;Head pointers for ICRs

*
* Miscellaneous	Equates
*
dib_dev_char	equ	$0008			;Offset to device characteristics in dib.
block_dev_mask	equ	%0000000010000000	;Block/Character device bit. 
character_fst	equ	$0009			;ID for character fst.
close_call_num	equ	$0014			;Call number for close call.
flush_call_num	equ	$0015			;Call number for flush call.

d_rename_num	equ	$0036			;d_rename call num.
d_calls_start	equ	$002c			;Start of device call #'s.
d_calls_end	equ	$0031			;End of device call #'s.
d_calls_type	equ	$000a			;Call type for device calls.

set_user_level	equ	$8000			;User level OR mask.

cflag		equ	$01			;Processor Status mask
vflag		equ	$40			;Processor Status mask

mm_id_tag	equ	$3100			;Tag for misc tools getID call
mm_normal_attr	equ	$0008			;No spcl mem.
mm_fixed_attr	equ	$4008			;Fixed, no spcl mem.

icr_size	equ	6			;Size of Interrupt Control Record

; Error Codes

init_nomem_err	equ	$0000
fst_brs_err	equ	$0000
al_nomem_err	equ	$0000
cs_nomem_err	equ	$0000


; GIM Zero Page Permanent Storage

seg_tab		equ	$004C			;4
size		equ	seg_tab+4		;2


; GIM Zero Page Temporaries

temporals	equ	$00E8

ptr		equ	temporals		;4
m_temp		equ	ptr+4			;4
seg		equ	m_temp+4		;4
vp		equ	seg+4			;4
vcr		equ	vp+4			;4
hand		equ	vcr+4			;4
pb_ptr		equ	hand			;4


;
; Signal equates
;
sig_link	equ	0			;offset	of link field to next record
sig_priority	equ	2			;offset of priority field
sig_hand_addr	equ	4			;offset of signal handler address field
sig_rec_size	equ	8			;number of bytes in signal record
sig_null_ptr	equ	$8000			;null pointer for signal queue
num_signals	equ	8			;maximum number of signals in queue
disp_free	equ	$0000			;values for dispatch_busy
disp_busy	equ	$8000

;------------------------------------------
;
; Equates from procedure interrupt_data
;
;------------------------------------------

i_temp		equ	$F8			;temporary direct page offset
user_int_vector	equ	$0003FE			;address of user interrupt vector
o_table_length	equ	list_size		;offset	of table length field
o_free_list	equ	list_freehead		;offset	of free entry list header
o_first_entry	equ	4			;offset of first table entry
o_int_hand_addr	equ	0			;offset of interrupt handler address
o_vrn		equ	4			;offset of interrupt vector index (VI)
num_vects	equ	25
vect_disp_len	equ	num_vects*4


;------------------------------------------
;
; Equates from procedure m_move_equ
;
;------------------------------------------

source		equ	$16			; 4-byte source address
dest		equ	$12			; 4-byte destination address
count		equ	$0e			; 4-byte transfer count
movecommand	equ	$0c			; 2-byte command word
returnmove	equ	$09			; 3-byte return address
tempcount	equ	$07			; 2-byte temporary transfer count
domove		equ	$03			; 4-byte mvn 0000 / rtl instructions
stackused	equ	$14			; number of bytes on stack used

*
* Segment equates...
*

header_length	equ	$30

seg_0_start	equ	$009a00			;Segment start address.
seg_0_max	equ	$00a280			;Segment end address+1.

seg_1_start	equ	$00b300			;Segment start address.
seg_1_max	equ	globals_end		;Segment end address+1.

seg_2_start	equ	$00d000			;Segment start address.
seg_2_max	equ	$010000			;Segment end address+1.

seg_3_start	equ	$01fc00			;Segment start address.
seg_3_max	equ	$01fd00			;Segment end address+1.

seg_4_start	equ	$e1d980			;Segment start address.
seg_4_max	equ	$e1e000			;Segment end address+1.

		gbla	&segment_pc		;Allocate a global counter.
	
		eject
*******************************************************************************
*
* Begin oscall segment: $009A00-00A280
*
		SEG	'oscall_seg'		;Becomes scm_seg_0.
		resetpc				;Reset pc.
*
*******************************************************************************
		eject
;===============================================================================
; GS/OS SYSTEM CALL MANAGER
;===============================================================================
; This module performs all general processing of GS/OS system calls from the
; point at which they are issued by an application to the point at which they
; are passed to other parts of the system, including other parts of the System
; Call Manager for further processing.
;===============================================================================

		eject
;===============================================================================
; Main entry points for GS/OS system calls from application programs
;===============================================================================
;
; Created:	4/1/87
; Modified:	1/25/88  Moved IncBusyFlag call to just before DecBusyFlag
; Author:	JJ
;
; Entry points:
;   inline_entry  inline GS/OS call vectored from $E100A8
;   stack_entry   stack-based GS/OS call vectored from $E100B0
; Enter:
;   The caller must have made either an inline GS/OS call or a stack GS/OS call
;   An inline call has the following format:
;     jsl $E100A8
;     dc  i2'call_num'
;     dc  i4'parm_block'
;   A stack call has the following format:
;     push parm_block onto stack (4 bytes)
;     push call_num onto stack (2 bytes)
;     jsl $E100B0
; Input:
;   There are no requirements on register contents or processor mode.
; Output:
;   A	 0=call successful, non-zero error code for unsuccessful call
;   X	 unchanged
;   Y	 unchanged
;   D	 unchanged
;   S	 call parameters (if any) and return address pulled off stack
;   P	 see below
;   DB	 unchanged
;   PB	 unchanged
;   PC	 address of location following GS/OS call block
;   n	 undefined
;   v	 undefined
;   m	 unchanged if e=0 at time of call; otherwise, undefined
;   x	 unchanged if e=0 at time of call; otherwise, undefined
;   b	 undefined
;   d	 unchanged
;   i	 unchanged
;   z	 0=call unsuccessful, 1=call successful
;   c	 0=call successful, 1=call unsuccessful
;   e	 unchanged
;===============================================================================
		eject
;===============================================================================
; Beginning of the GS/OS shell system call processor.  This module must be
; loaded below the language card since it must always be accessible.  Within
; this code segment, we use long absolute addressing to	refer to certain data
; rather than setting up the DBR and using short absolute.  This is done
; deliberately because, at this point, we would have to save DBR on the user's
; stack before setting it.  Our goal is to minimize the amount of user stack
; space we use, so we will wait to save DBR and use faster addressing modes
; until we establish the GS/OS stack a bit later on.
;===============================================================================

oscall_module	proc				;GS/OS system call handling
		entry	stack_entry
		entry	inline_entry
		entry	gbuf
		entry	return_from_lc

		longa	on
		longi	on

gbuf
		DS.B	$400			;global buffer for FST use

inline_entry					;entry point for inline type call
		php				;save P	on user stack
		sei				;disable interrupts temporarily
		clc				;force cpu into native mode...
		xce				;... and save old mode in c
		php				;save old value of e placed in c by xce
		rep	#mx16_or_d_flag		;force 16-bit m and x and binary mode
		lda	>active_flag		;is GS/OS active?
		bmi	inl_actv_exit		;yes, exit immediately
		lda	#is_inline		;flag indicating inline type call
		bra	common_entry		;go on to common processing

stack_entry					;entry point for stack type call
		php				;save P	on user stack
		sei				;disable interrupts temporarily
		clc				;force cpu into native mode...
		xce				;... and save old mode in c
		php				;save old value of e placed in c by xce
		rep	#mx16_or_d_flag		;force 16-bit m and x and binary mode
		lda	>active_flag		;is GS/OS active?
		bmi	stk_actv_exit		;yes, exit immediately
		lda	#is_stack		;flag indicating stack type call

common_entry	sta	>entry_type		;remember whether inline or stack call

		ror	a			;get caller's processor mode saved ...
		and	#$8000			;... in	c by xce above, and remember ...
		sta	>entry_mode		;... it in entry_mode

		txa				;save x	and y registers	at this point
		sta	>save_x			;... because inc_busy_flag is entitled
		tya				;... to	change them since it is almost
		sta	>save_y			;... a tool call

	if 0 then
		jsl	inc_busy_flag		;increment the system busy flag
	endif
		lda	>active_flag		;set active flag
		ora	#is_active
		sta	>active_flag

		lda	1,s			;restore state of caller's i bit ...
		and	#i_bit_mask		;... from first	copy of P on stack
		bne	d_1			;interrupts were disabled, do nothing
		cli				;otherwise, reenable interrupts
d_1
		sep	#mx8			;set up	8-bit m and x temporarily
		longa	off
		longi	off

;		lda	>statereg		;save current language card state
;		sta	>lc_state
;		lda	>lcbank1		;select and write enable language ...
;		lda	>lcbank1		;... card RAM bank 1 (really 0)
;
;		lda	#$00			;zero out power up byte
;		sta	>$0003f4
*** added 2-Mar-93 DAL -- stuff a $4C at $00/BF00 so the Vulcan thinks we are in P8 (ick)
		phb
		pea	$0000
		plb
		plb				;set B to 0 for a sec
		lda	|statereg
		sta	|lc_state		;save current language card state
		jsr	lcbank1_twice
		stz	$03F4			;zero out the power-up byte
		lda	#$4C
		sta	$BF00
		plb
*** end 2-Mar-93

		rep	#mx16			;go back to 16-bit m and x
		longa	on
		longi	on

		jmp	gsos_lc_entry		;continue processing in language card
						;return	at label return_from_lc below

;===============================================================================
; GS/OS was active before the call, so exit with the gsos_active error since the
; system is not	reentrant.  For inline type call, no stack adjustment is
; necessary; for stack type call, squeeze 6 bytes out of the stack before
; continuing with normal exit.
;===============================================================================

inl_actv_exit					;exit from inline call when GS/OS active
		clc				;update	return address to point past ...
		lda	3,s			;... call_num and parm_block pointer
		adc	#$0006			;since code can't cross bank boundary,
		sta	3,s			;we only need to increment low word
		bra	actv_exit

stk_actv_exit					;exit from stack call when GS/OS active
		jsr	stack_squeeze		;squeeze call_num and parm_block pointer

actv_exit	lda	#gsos_active		;error code for GS/OS already active
		plp				;restore caller's processor mode
		xce
		plp				;restore caller's processor status
		rep	#z_flag			;clear z flag to indicate error
		sec				;set c flag to indicate error
		rtl				;return to caller

;===============================================================================
; Return from portion of shell that executes in language card
;===============================================================================

return_from_lc					;must finish up processing outside ...
						;... language card because we have ...
						;... to	restore user's memory state
		Import	io_flag

		sei				;temporarily disable interrupts while
						;manipulating active flag, etc.

		lda	>active_flag		;clear the GS/OS active flag
*** optimized 2-Mar-93 DAL (saved 1 byte)
;;;		and	#is_inactive		;note: can't get here if GS/OS was ...
		asl	a
		lsr	a
*** end 2-Mar-93
		sta	>active_flag		;... active

		lda	>entry_type		;determine whether inline or stack type
		beq	stack_exit		;branch if stack type call
		clc				;inline call-adjust return address by 6
		adc	3,s			;note: entry_type = 6 in this case
		sta	3,s
		bra	common_exit

stack_exit	jsr	stack_squeeze		;squeeze out call_num and parm_block

common_exit	lda	>save_x			;restore x register
		tax
		lda	>save_y			;restore y register
		tay

		lda	>temp_error		;save global error code on stack since
*** added 2-Mar-93 DAL for convenience of debugging
		beq	@skip
		sta	>$FC4242		;trigger logic analyzer
@skip
*** end 2-Mar-93
		pha				;... it could be changed by a GS/OS
						;... call initiated by dec_busy_flag

		sep	#m8			;go to 8-bit m temporarily
		lda	>lc_state		;save caller's LC state on stack
		pha
		rep	#m16			;return to 16-bit m
;
; Restore interrupt state to user's interrupt state before calling
; dec_busy_flag.  This minimizes the amount of time interrupts are explicitly
; disabled by GS/OS.
;
		lda	4,s			;get the two values of P from stack
		and	#i_bit_mask		;isolate state of user's i bit
		bne	d_2			;interrupts were disabled, do nothing
		cli				;otherwise, enable interrupts
d_2
		lda	>io_flag		;should we call dec_busy?
		bmi	@dont_call		;no...
		jsl	dec_busy_flag		;decrement system busy flag and ...
						;potentially launch pending tasks.
						;note: dec_busy_flag and all tasks ...
						;... it launches are required to ...
						;... save and restore all registers
@dont_call
;
; Call the signal dispatcher.  Set c = state of i bit when application
; called GS/OS.
;
		lda	>io_flag		;should we call the signal dispatcher?
		bit	#$4000
		bne	@no_signals		;no...

		lda	5,s			;get application's P register
		lsr	a			;shift i bit into c
		lsr	a
		lsr	a
		jsr	dispatch_signal		;do it (see if we get lucky)

@no_signals
		sep	#m8			;back to 8-bit m to get caller's
		pla				;...LC state and restore it
		sta	>statereg
		rep	#m16

		pla				;restore the error code to the a reg
		plp				;restore caller's processor mode
		xce
		plp				;restore caller's P register (c and ...
						;... z modified	to reflect call status)

		rtl				;return to caller

;==============================================================================
; stack_squeeze:  used when returning from a stack type GS/OS call to squeeze
;		  the 4-byte param_blk_ptr and 2-byte call_number our of the
;		  stack
;
; Enter:	jsr	stack_squeeze
;
; Input:	nvmxdizc
;		..000...
;
; Output:	A = trashed
;===============================================================================

stack_squeeze	lda	6,s			;copy 7 bytes to a location 6 bytes ...
		sta	12,s			;... higher in the stack
		lda	4,s
		sta	10,s
		lda	2,s
		sta	8,s
		pla				;tricky:  byte 2 is moved twice
		sta	5,s

		pla				;remove extra 4 bytes from stack
		pla

		rts

		end_proc
		eject
;===============================================================================
;===============================================================================
; below_lc_int
;
; Interrupt system code that must exist in bank $00 below the langauge card (for
; various reasons).
;===============================================================================
;===============================================================================

;===============================================================================
; user_int_entry
;
; Whenever the firmware interrupt handler fails to resolve an interrupt by
; polling all of the standard interrupt vectors, it finally vectors control
; through the user interrupt vector at $00/03FE, which GS/OS has patched to
; point to this routine.  This routine sets up the proper processing
; environment and hands control to the language card portion of the interrupt
; manager.
;
; On entry to this routine,
;		D = $0000
;		DBR = $00
;		e = emulation mode
;		i = disabled
;		speed = 1 MHz
;===============================================================================

user_int_entry	proc

		phb				;save DBR
		phd				;save D

		lda	|statereg		;save the value of the state register
		pha				;...on the stack

		jsr	lcbank1_twice

		jsr	|disp_user_int		;go to dispatch user interrupt

		pla				;restore state register value
		sta	|statereg

		pld				;restore D
		plb				;restore DBR

		rti				;return to interrupt firmware

		end_proc

*** added 2-Mar-93 DAL
;===============================================================================
; lcbank1_twice -- enable LC bank 1 for read/write
;
; Do  lda |lcbank1  twice (save some bytes).
;===============================================================================
lcbank1_twice	proc
		lda	|lcbank1
		lda	|lcbank1
		rts
		endp
*** end 2-Mar-93 DAL

		eject
;===============================================================================
; disp_stub_1
;
; Below language card code needed to hand control to a P16 interrupt handler and
; return from the interrupt handler.
;===============================================================================

disp_stub_1	proc
		entry	int_disp_jump

int_disp_jump
		jsr	>$000000		;JSL to	the interrupt handler. Address
						;...is modified by interrupt dispatcher
		sep	#mx8			;go to 8-bit mode to access soft switch
		jsr	lcbank1_twice
		rep	#mx16			;return	to 16-bit m and x

		jmp	return_1		;return to language card portion of code

		end_proc
		eject
;===============================================================================
; common_disp_entry
;
; When a firmware interrupt vector has been patched by a class 1 alloc_interrupt
; call, the interrupt system is set up to hand control to a location in the
; Vector Dispatch Table (somewhere in memory), which then routes control to this
; routine.  This routine sets up the proper processing environment and hands
; control to the language card portion of the interrupt manager.
;
; On entry to this routine:
;		D = $0000 for other than irq.aptalk or irq.serial
;		D = undefined for irq.aptalk or irq.serial
;		DBR = $00 for other than irq.aptalk or irq.serial
;		DBR = undefined for irq.aptalk or irq.serial
;		e = native
;		m = 8-bit
;		x = 8-bit
;		i = disabled
;		speed = high
;===============================================================================

common_int_ent	proc

		phb				;save DBR
		phd				;save D

		phk				;set DBR=PBR=$00
		plb

		lda	|statereg		;save value of statereg
		pha
		jsr	lcbank1_twice
		jsr	disp_common_int		;go to lc code to dispatch interrupt

		pla				;recover state register value
		sta	|statereg

		pld				;restore D
		plb				;restore DBR

		rtl				;return to interrupt firmware

		end_proc
		eject
;===============================================================================
; disp_stub_2
;
; Below language card code needed to hand control to a GS/OS interrupt handler
; and return from the interrupt handler.
;===============================================================================

disp_stub_2	proc
		entry	common_disp_jmp

common_disp_jmp
		jsr	>$000000		;JSL to	the interrupt handler. Address
						;...is modified by interrupt dispatcher
		sep	#mx8			;go to 8-bit mode to access soft switch
		jsr	lcbank1_twice
		rep	#mx16			;return	to 16-bit m and x

		jmp	return_2		;return to language card portion of code

		end_proc
		eject
;===============================================================================
; Signal Data
;
; NOTE: The equates in this record are commented out and are here for 
;	documentation purposes only.  The actual definitions are at the start
;	of this file.
;===============================================================================

signal_data	proc

		entry	signal_head
		entry	signal_free
		entry	signal_table
		entry	dispatch_busy
		entry	interrupt_state

;
; Offsets of fields in the signal records.
;
;sig_link	equ	0		;offset of link field to next record
;sig_priority	equ	2		;offset of priority field
;sig_hand_addr	equ	4		;offset of signal handler address field

;sig_rec_size	equ	8		;number of bytes in signal record
;
; Signal queue data structures.
;
signal_head	dc.w	0000			;signal queue header
signal_free	dc.w	0000			;free list header for signal records

;sig_null_ptr	equ	$8000		;null pointer for signal queue
;num_signals	equ	8		;maximum number of signals in queue

signal_table	ds.b	sig_rec_size*num_signals
;
; State variables for signal dispatching.
;
dispatch_busy	dc.w	0000		;tells if dispatch_signal has been
					;called but not yet returned
;disp_free	equ	$0000		;values for dispatch_busy
;disp_busy	equ	$8000

interrupt_state	dc.w	0000		;flag used by dispatch_signal to keep
					;...track of interrupt state on entry
					;= $0000, interrupts enabled
					;= $8000, interrupts disabled.

		end_proc
		eject
;==============================================================================
; Heartbeat task for dispatching signals.
;==============================================================================

signal_beat	proc

beat_count	equ	60			;launch every 60 heartbeats

		DC.L	$00000000		;space for link
num_beats	DC.W	beat_count		;heartbeat count betweeen launches
		DC.W	$a55a			;signature

		phk
		plb

		lda	|statereg
		pha
		jsr	lcbank1_twice
		rep	#mx16			;enter 16-bit m and x mode

		lda	|signal_head		;Anything in the signal queue?
		bmi	done			;Nope, so do nothing.
		lda	>sys_busy_flag		;Yes, is system busy?
		bne	done			;Yes, so do nothing.
		jsr	install_int_vec		;Nope, so install our patch.
		
done		lda	#beat_count		;restore the beat count
		sta	>num_beats

		sep	#mx16			;back to 8-bit m and x mode

		pla
		sta	|statereg

		rtl

		end_proc
		eject
*******************************************************************************
*
*        Name:	interrupt_patch
*
* Description:	Handles dispatching signals with interrupts ENABLED.  This code
*		CANNOT reside in the LC area since the LC ROM may be switched
*		in at interrupt time.
*
*      Author:	Bryan Atsatt
*     Created:	Feb 22, 1989
*    Modified:	
*
*       Entry:	irq ONLY!  Don't call this code.
*
*       Input:  A = undefined
*               X = undefined
*               Y = undefined
*               P = nvmxdizc
*		    ..000...
*
*		int_patch_1			;JMP original vector.
*		int_patch_2			;JMP original vector.
*		int_patch_3			;JMP original vector.
*
*      Output:  A = undefined
*               X = undefined
*               Y = undefined
*               P = nvmxdizc
*		    ..000..?
*
*        Exit:	rti
*
*        Uses:	Lots of stuff
*
* Copyright Apple Computer, Inc. 1989  All rights reserved.
*******************************************************************************

interrupt_patch	proc

bank_0_rti	equ	$0000c072		;Address of an RTI instruction
						;in bank zero.  If this ever
						;moves we're in trouble but
						;Fern assures me it never will!
		entry	int_patch_1
		entry	int_patch_2
		entry	int_patch_3
*
* This code will be called from the main interrupt vector.  Is this an IRQ?
* Exit to original vector if not...
*
		bvs	int_patch_1		;No, so jump to original vec.
*
* Yes.  Set native mode then check to see if we came in in emulation mode.  If
* we did, skip ahead to is_emulation...
*
		clc				;Set native mode.
		xce
		php				;Save mode.  Is emulation?
		bcs	is_emul_mode		;Yes, so skip ahead.
*
* We're in native mode so simulate an IRQ so that RTI will return at our
* return address after interrupt is handled, then jump off to the original
* vector...
*
		phk				;Put our bank on stack.
		pea	our_return		;Put our return adr on stack.
		php				;Put our status on stack.
int_patch_1	jmp	>00000000		;Jump to original vector.
*
* We're in emulation mode.  Go to 8 bit m and test to see if this is really
* a break instruction.  If so, branch down to is_break...
*
is_emul_mode	sep	#m8			;Go to 8 bit m.
		longa	off
		
		pha				;Save A.
		lda	03,s			;Get original status.
		and	#b_flag			;Is break instruction?
		bne	is_break		;Yes, so skip ahead.
*
* Not a break so simulate an IRQ so that RTI will return at our return
* address after interrupt is handled, then jump off to the original
* vector...
* 
		pla				;Pop off saved A.
		plp				;Restore status.
		php				;Put it back on stack.
		phk				;Put our bank on stack.
		pea	our_return		;Put our return adr on stack.
		php				;Put our status on stack.
int_patch_2	jmp	>00000000		;Jump to original vector.
*
* It's an emulation mode break instruction so just restore the state and
* jump off to original vector...
*
is_break	pla				;Pop off saved A.
		plp				;Recover status.
		xce				;Restore emulation mode.
int_patch_3	jmp	>00000000		;Jump to original vector.
*
* When the interrupt handler does an RTI, we will get control back here.  Save
* the state of the system and set it up for our purposes...
*
our_return	rep	#mx16			;Set 16 bit m and x.
		longa	on
		longi	on
		
		pha				;Save A.
		phx				;Save X.
		phy				;Save Y.
		phb				;Save B.

		phk				;Set data bank = program bank.
		plb
		cld				;Make sure we're not in dec.

		sep	#m8			;Go to 8 bit m. 
		lda	|statereg		;Save statereg so can restore.
		pha
		jsr	lcbank1_twice
		rep	#m8			;Back to 16 bit m.
*
* At this point, interrupts are GUARANTEED to be enabled since the only way
* to get here is from an IRQ and the RTI will restore the state.  Now we get
* to the point of all this work, which is to dispatch signals with interrupts
* enabled if there are any to dispatch AND the system is not busy.
*
* First we will remove this patch (interrupt_patch) from the main vector so we
* won't go thru this again until another signal gets queued up.  Should we do
* the dispatch?
*
		jsr	remove_int_vec		;Remove our patch.
		lda	|signal_head		;Anything in the queue?
		bmi	main_exit		;Nope, so exit.
		lda	>sys_busy_flag		;Yes, is the system busy?
		bne	main_exit		;Yes, so exit.
*
* Yes, so go do it...
*
		clc				;Indicate interrupts enabled.
		jsr	dispatch_signal		;Go dispatch all signals.
*
* Alright, we're all done.  Restore the state of the system and RTI if we came
* in in native mode, else skip ahead to emulation_exit...
*
main_exit	sep	#m8			;Go to 8 bit m. 
		pla				;Restore state of LC.
		sta	|statereg
		rep	#m8			;Back to 16 bit m.
		plb				;Restore B.
		ply				;Restore Y.
		plx				;Restore X.
		pla				;Restore A.
		plp				;Restore original status.  Did
						; we come in from emulation?
		bcs	emulation_exit		;Yes, so skip ahead.
		rti				;No, so exit.
*
* We came in in emulation mode so we need to go back to that mode and then jump
* off to an RTI instruction that lives in bank zero...
*
emulation_exit	xce				;Go back to emulation mode.
		jmp	>bank_0_rti		;Go to bank zero RTI.

		end_proc
		eject
;===============================================================================
; Data used by the GS/OS shell system call processor.  This module must be in
; the same bank as the GS/OS System Call Manager.
;
; NOTE: The equates in this record are commented out and are here for 
;	documentation purposes only.  The actual definitions are at the start
;	of this file.
;===============================================================================

oscall_data	proc	export

		entry	entry_type
		entry	entry_mode
		entry	lc_state
		entry	save_x
		entry	save_y
		entry	temp_error
		entry	seg_tab_copy

		
entry_type	dc.w	0000		;records inline vs. stack type call
					;  =is_inline inline type call
					;  =is_stack stack type call
;is_inline	equ	$0006		;value for inline type os call
;is_stack	equ	$0000		;value for stack type os call

entry_mode	dc.w	0000		;records whether cpu was in native or
					; emulation mode before GS/OS call
					;  =is_native native mode
					;  =is_emulation emulation mode
;is_native	equ	$0000		;value for call from native mode
;is_emulation	equ	$8000		;value for call from emulation mode

lc_state	dc.b	00		;saved language card state

save_x		dc.w	0000		;saved value of x register
save_y		dc.w	0000		;saved value of y register

;i_bit_mask	equ	$0400		;mask to recover i bit from stacked P


temp_error	dc.w	0000		;temporary storage for system error code

*
* The following long is a copy of seg_tab which is maintained for deref_int...
*
seg_tab_copy	dc.l	00000000		;Copy of seg_tab.

		end_proc
		eject
;===============================================================================
; xlate_script
;
; Translate pathnames according to the script for the current call.
;
; Created:	1/27/88
; Modified:	1/12/89
; Author:	JJ
;
; Enter:	jsr	xlate_script
;
; Input:	script_start		offset of beginning of script
;		fst_flags		pathname translation control flags
;		P = nvmxdizc
;		    ..000...
;
; Output:	performs pathname translation as directed by the script and
;		fst_flags
;
;		A = if c=0, undefined; if c=1, error code
;		X = trashed
;		Y = trashed
;		P = nvmxdizc
;		    ..000..|
;			   0=no error, 1=error
;===============================================================================

xlate_script	proc

*
* Initialize pathname variables...
*
		jsr	init_path_vars		;Initialize pathname variables.
;
; Execute the pathname translation operators in the script.
;
		lda	|script_start		;reinitialize script address to start
		sta	|script_current

do_script	jsr	play_script		;get script information in A and X
		beq	end_of_script		;zero indicates end of script
		tay				;save script byte in Y
		and	#$00F0			;isolate 'opcode' of the script
		cmp	#$0030			;is it pathname pointer?
		bne	do_script		;no, try next script code

is_pathptr	tya				;recover script code
		and	#$000F			;isolate offset to pathname to translate
		jsr	xlate_path		;translate the pathname
		inc	|xlate_count		;increment pathname translation count
		bcc	do_script		;continue with script if no error
		rts				;return if there is an error

end_of_script					; ;return without error
		clc
		rts

		end_proc
		eject
;===============================================================================
;
; move_info revision history
;
; the general move routine (m_sinc_dinc) algorithm in this program is based
;    on the one used by the memory manager.  it has been updated for gs/os
;    purposes and in hopes that new hardware will take over this functionality]
;    in the future.
;
; memory manager move routine is by rich williams in original iigs rom.
;    later modified for prodos16 by jim jatczynski.
;
; 1/04/88  fab	1st release as move_info routine by fern bachman jr.
; 1/18/88  fab	m_sdec_dcon / m_scon_ddec needed cpy #$ffff in loop to test for
;			falling through an address into the next lower bank.
;		m_sinc_ddec / m_sdec_dinc fixed counter calculation in to
;			include count+1 when doing 8 bit increment.
;		m_scon_dinc changed inc <dest to inc <dest+2 for correct dest
;			bank increment
;		performance statistics table added
;
;===============================================================================

;===============================================================================
;
; performance statistics table
;
;  #   subroutine	time/byte    time/$10000 bytes
;-------------------------------------------------------
;  0   m_scon_dcon	 7.36 usec	 485.8 msec
;  1   m_sinc_dcon	 9.30 usec	 615.6 msec
;  2   m_sdec_dcon	10.48 usec	 691.9 msec
;  4   m_scon_dinc	 9.30 usec	 615.6 msec
;  5   m_sinc_dinc	 2.78 usec	 180.7 msec
;  6   m_sdec_dinc	18.20 usec	1209.0 msec
;  8   m_scon_ddec	10.48 usec	 691.9 msec
;  9   m_sinc_ddec	18.20 usec	1209.0 msec
;  a   m_sdec_ddec	2.78 usec	 180.8 msec
;
;===============================================================================
		eject
;===============================================================================
; move_info
;
; Moves	a block of data from a source location to a destination location.
;
; Calling sequence:
;   1. Place machine in full native mode (e=0, m=0, x=0)
;
;   2. Push high order word of source pointer onto stack
;   3. Push low order word of source pointer
;   4. Push high order word of destination pointer
;   5. Push low order word of destination pointer
;   6. Push high order word of transfer count
;   7. Push low order word of transfer count
;
;   8. Push command byte
;	_______________________________________________
;      |  |  |	|  |  |	 |  |  |  |  |	|  |  |	 |  |  |
;      |15|14|13|12|11|10|09|08|07|06|05|04|03|02|01|00|
;      |__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|
;
;	bits 15/14	= reserved
;	bits 13/12/11	= move mode
;			= 000		=reserved
;			= 001		=block move
;			= 010-111	=reserved
;	bits 10/9/8/7	= reserved
;	bits 6/5/4	= reserved
;	bits 3/2	= destination incrementer
;			= 00 (+0)	=constant destination
;			= 01 (+1)	=increment destination by 1
;			= 10 (-1)	=decrement destination by 1
;			= 11		=reserved
;	bits 1/0	= source incrementer
;			= 00 (+0)	=constant source
;			= 01 (+1)	=increment source by 1
;			= 10 (-1)	=decrement source by 1
;			= 11		=reserved
;
;   9. jsl move_info
;

		eject
;		  Stack	on entry
;      _______________________________________
;     |					      |
;     |-     high word of source pointer     -|
;     |_______________________________________|	  s+$10
;     |					      |
;     |-     low word of source	pointer	     -|
;     |_______________________________________|	  s+$0e
;     |					      |
;     |-  high word of destination pointer   -|
;     |_______________________________________|	  s+$0c
;     |					      |
;     |-  low word of destination pointer    -|
;     |_______________________________________|	  s+$0a
;     |					      |
;     |-     high word of transfer count     -|
;     |_______________________________________|	  s+$08
;     |					      |
;     |-     low word of transfer count	     -|
;     |_______________________________________|	  s+$06
;     |					      |
;     |-	    command word	     -|
;     |_______________________________________|	  s+$04
;     |					      |
;     |-				     -|
;     |		    return address	      |
;     |-				     -|
;     |_______________________________________|	  s+$01
;
;
; Outputs:	if no error then
;		a= $0000
;		c= 0
;		if error then
;		a= error code
;		c= 1
;		data bank and direct register are preserved
;		a= error code
;		x,y = scrambled
;
; Notes:	The high byte of source, dest, and Count must be zero
;		The source and destination blocks must not overlap
;		This routine executes self modifying code on the stack
;			and therefore is romable and reentrant
;===============================================================================

m_move_equ	proc

; zero page locations used on stack


		end_proc
	
gs_move_info	proc
		entry	m_movefinished
		entry	m_abortmove

		longa	on
		longi	on

		pha				; push two bytes on stack for tempcount

		pea	$6b00			;push an rtl instruction onto stack

; note the a place holder of $00 was left on the stack when the rtl instrucion
;  was placed on the stack.  that byte will become the high byte of the operand
;  for the mvn instruction about to be pushed onto the stack

; now put an mvn xxxx instruction on the stack (operand is modified later)

		pea	$0054			;mvn and low byte of mvn operand

		phd				; save user's direct page pointer 'd'

		tsc				; make direct page correspond to stack
		tcd

; zero page is now on stack here

; zero page after pha, phd, push of 'mvn xxxx, rtl' tsc and tcd
;      _______________________________________
;     |					      |
;     |-     high word of source pointer     -|
;     |_______________________________________|	  $18
;     |					      |
;     |-     low word of source	pointer	     -|
;     |_______________________________________|	  $16
;     |					      |
;     |-  high word of destination pointer   -|
;     |_______________________________________|	  $14
;     |					      |
;     |-  low word of destination pointer    -|
;     |_______________________________________|	  $12
;     |					      |
;     |-     high word of transfer count     -|
;     |_______________________________________|	  $10
;     |					      |
;     |-     low word of transfer count	     -|
;     |_______________________________________|	  $0e
;     |					      |
;     |-	    command word	     -|
;     |_______________________________________|	  $0c
;     |					      |
;     |-				     -|
;     |		    return address	      |
;     |-				     -|
;     |_______________________________________|	  $09
;     |					      |
;     |-	   temp	count word	     -|
;     |_______________________________________|	  $07
;     |		      rtl		      |
;     |_______________________________________|	  $06
;     |					      |
;     |-				     -|
;     |	 domove	   mvn 0000   ;(modified code)|
;     |-				     -|
;     |_______________________________________|	  $03
;     |					      |
;     |-	  user's direct page         -|
;     |_______________________________________|	  $01


; stack	moves down when phb info, rtl's info, and rts are placed on stack
;      _______________________________________
;     |	       user's data bank register      |
;     |_______________________________________|
;     |	   rts back from jsr domvxonstack     |
;     |-				     -|
;     |_______________________________________|
;     |					      |
;     |-				     -|
;     |	rtl which points to continuation addr |
;     |-				     -|
;     |_______________________________________|
;     |					      |
;     |-				     -|
;     |	      rtl which	points to domove      |
;     |-				     -|
;     |_______________________________________|
;

		phb				; save dbr on stack (mvn trashes it)

		lda	<source+2		;is high byte of dest/src/count = 0 ??
		ora	<dest+2
		ora	<count+2
		and	#$ff00
		bne	m_abortmove		;not = then a high byte <>=0 was found

; if the number of bytes to move equals zero we are done before we started

		lda	<count
		ora	<count+2
		beq	m_movefinished		;finished before we started (ha! ha!)

; to speed up the most common move routine we will check for it now and
;    not let it go through the normal move dispatcher

		lda	<movecommand		;test if valid or not
		cmp	#move_sinc_dinc		;test for most common mode first
		beq	m_sinc_dinc		;= then do it quickly

; to speed up the second most common move routine we will check for it now and
;    not let it go through the normal move dispatcher

		cmp	#move_sdec_ddec		;test for the 2nd most common mode first
		bne	move_info4
		jmp	m_sdec_ddec		;= then do it quickly

; the next 'bit' instruction uses a mask to test for invalid commands and
;   invalid options.  this mask (found in equates/common.equ) must change as
;   other commands become valid.

move_info4
		bit	#movevaliditymask	;reserved bits set?
		bne	m_abortmove

		bit	#moveblkcmd		;if moveblkcmd bit isn't set then error
		beq	m_abortmove

; if we	fall to here then figure out which move to do

		and	#$000f			;upper 3 nibbles are not important
		asl	a			;set up 'x' to get to rest of moves
		tax

; most of the move routines need this function so all routines will incur the
;   overhead.  this is better and shorter than making it a callable subroutine.

; make count into 2's complement so we can increment to $00000000 instead of
;   decrementing to $00000000 since it is faster to increment than decrement
;   32 bits worth of data (no compares needed).

		lda	<count			;low word of count
		eor	#$ffff
		tay				;save for later
		lda	<count+2		;high word of count
		eor	#$ffff			;'a'=high word and 'y'=low word now

		iny				;make 2's complement now
		bne	move_info8
		inc	a

move_info8
		sty	<count			;leave on zero page
		sta	<count+2		;leave on zero page

; warning - code that gets jumped to from here assumes count is in 'y'

		jmp	(movetable,x)		;off to routine

; common exit routine is here. all errors and move routines finish up here.

m_movefinished					;	 ;no bytes left to move
		clc				;indicate no error encountered
		bcc	no_m_abortmove

m_abortmove
		sec				;indicate an error was encountered

no_m_abortmove
		rep	#$30			;must exit in full native mode

		plb				; restore dbr

		lda	<returnmove		; move return address past parameters
		sta	<source+1
		lda	<returnmove+1		; move return address past parameters
		sta	<source+2

		pld				; restore user's direct register

		tsc				; set s to proper value
		php				;save 'c' around addition
		clc
		adc	#stackused		;number of bytes used on stack
		plp				;restore correct exit 'c'
		tcs				;fix up stack

; set 'a' correctly for exit based on 'c'

		lda	#$0000			;assume no errors
		bcc	cleanexit
		lda	#parm_range_err		;it's an error if here

cleanexit
		rtl

		end_proc
		
m_sinc_dinc	proc				;5 source incs - destination incs

; move with incrementing source address and incrementing destination address
; get ready to do the standard move

		jsr	setupformvx		;set up for mvn/mvp
		bra	m_mdfirst

; main move loop

m_mdmore
		sta	<count+2		; more bytes to move
		lda	<domove+1		; a = srcdst banks
		cpx	#$0001			; bank cross? if x=0
		bcs	m_mdxnot0
		adc	#$0100			; add 1 to source bank

m_mdxnot0
		cpy	#$0000			; did destination cross bank?
		bne	m_mdyis0
		inc	a

m_mdyis0
		sta	<domove+1

m_mdfirst
		txa				; if count > -x then bank cross
		eor	#$ffff
		cmp	<tempcount
		bcs	m_mdxok
		sta	<tempcount		; only move -x bytes

m_mdxok
		tya				; will destination cross bank?
		eor	#$ffff
		cmp	<tempcount
		bcs	m_mdyok
		sta	<tempcount		; only move -y bytes

m_mdyok
		jsr	domvxonstack
		bpl	m_mdmore

		jmp	m_movefinished

		end_proc
		

m_scon_dcon	proc				;0 source constant -destination constant

;move with the source = constant address and the dest = constant address
; 'y' contains count on entry

		ldx	<count+2		;high byte of count in 'x'

; set the 'm' bit to 1 for 8 bit mode since we're moving one byte at a time.
; we don't have to reset to 16 bit mode for 'a' here since m_movefinished does
;    it for us.

		sep	#$20			;make 'a' register 8 bits

m_scon_dconlp
		lda	[<source]		;indirectly get source information
		sta	[<dest]			; and write it to the dest location

; decrement counter by incrementing it to $00000000

		iny				;increment move	counter here
		bne	m_scon_dconlp		;loop if didn't drop to zero yet
		inx				;increment high	byte of move counter
		bne	m_scon_dconlp		;loop if done

		jmp	m_movefinished
		end_proc
		

m_sinc_dcon	proc				;1 source incs - destination constant

;move with the source = incrementing address and the dest = constant address
; 'y' contains count on entry

		tyx				;low word of count is in 'y' on entry
		ldy	#$0000			;start at first source byte

; set the 'm' bit to 1 for 8 bit mode since we're moving one byte at a time.
; we don't have to reset to 16 bit mode for 'a' here since m_movefinished does
;    it for us.

		sep	#$20			;must use 8 bit 'a' register

m_sinc_dconlp
		lda	[<source],y		;get value to write
		sta	[<dest]			; and write it to constant location

; set up for new source address

		iny				;go to next source location
		bne	m_sinc_dconlp2		;loop if not = 0 yet

; the next inc is an eight bit increment but that is ok since the high
;    byte of the high word is always zero to start anyway

		inc	<source+2		;increment bank number

; decrement counter by incrementing it to $00000000

m_sinc_dconlp2
		inx				;increment to 0
		bne	m_sinc_dconlp		;loop if not done

		inc	<count+2		;increment low byte of count word
		bne	m_sinc_dconlp		;not = 0 then just continue
		inc	<count+3		;increment upper byte of word too
		bne	m_sinc_dconlp		;loop if not done

		jmp	m_movefinished		;all done so exit

		end_proc
		

m_sdec_dcon	proc				;2 source decs - destination constant

;move with the source = decrementing address and the dest = constant address
; 'y' contains count on entry

		tyx				;low word of count
		ldy	<source			;start at first source address
		stz	<source			;reset source pointer

; set the 'm' bit to 1 for 8 bit mode since we're moving one byte at a time.
; we don't have to reset to 16 bit mode for 'a' here since m_movefinished does
;    it for us.

		sep	#$20			;must use 8 bit 'a' register

m_sdec_dconlp
		lda	[<source],y		;get next data byte to move
		sta	[<dest]			;store at constant destination

		dey				;decrement to next source location
		cpy	#$ffff			;dec through 0 then adjust source bank
		bne	m_sdec_dconlp2		;<>= then do some more

; the next dec is an eight bit decrement but that is ok since the caller
;   should never be decrementing in bank $00 and expect to go into bank $ff.

		dec	<source+2		;decrement source bank

; decrement counter by incrementing it to $00000000

m_sdec_dconlp2
		inx				;adjust counter
		bne	m_sdec_dconlp		;<>= then do some more

		inc	<count+2		;increment low byte of count word
		bne	m_sdec_dconlp		;not = 0 then just continue
		inc	<count+3		;increment upper byte of word too
		bne	m_sdec_dconlp		;<>= then do some more

		jmp	m_movefinished		;done when we fall to here

		end_proc
		
m_scon_dinc	proc				;4 source constant - destination incs

;move with the source = constant address and the dest = incrementing address
; 'y' contains count on entry

		tyx				;low word of count
		ldy	#$0000			;start at first destination byte

; set the 'm' bit to 1 for 8 bit mode since we're moving one byte at a time.
; we don't have to reset to 16 bit mode for 'a' here since m_movefinished does
;    it for us.

		sep	#$20			;must use 8 bit 'a' register

m_scon_dinclp
		lda	[<source]		;get constant value to write
		sta	[<dest],y		; and write it to incrementing location

; set up for new source address

		iny				;go to next source location
		bne	m_scon_dinclp2		;loop if not = 0 yet

; the next inc is an eight bit increment but that is ok since the high
;    byte of the high word is always zero to start anyway

		inc	<dest+2			;increment bank number

; decrement counter by incrementing it to $00000000

m_scon_dinclp2
		inx				;increment to 0
		bne	m_scon_dinclp		;loop if not done

		inc	<count+2		;increment low byte of count word
		bne	m_scon_dinclp		;not = 0 then just continue
		inc	<count+3		;increment upper byte of word too
		bne	m_scon_dinclp		;loop if not done

		jmp	m_movefinished		;all done so exit

		end_proc
		
m_sdec_dinc	proc				;6 source decs - destination incs

;move with the source = decrementing address and the dest = incrementing address

		ldy	<source			;decrementing address
		stz	<source			;reset source address
		ldx	#$0000			;incrementing address

; set the 'm' bit to 1 for 8 bit mode since we're moving one byte at a time.
; we don't have to reset to 16 bit mode for 'a' here since m_movefinished does
;    it for us.

		sep	#$20			;must use 8 bit 'a' register

m_sdec_dinclp
		lda	[<source],y		;get a byte to transfer
		phy				;save 'y'
		txy				;get destination address
		sta	[<dest],y		;save the byte
		ply				;restore source index

		dey				;next source index
		cpy	#$ffff			;did we fall through 0 ??
		bne	m_sdec_dinclp2		;if not go here

; the next dec is an eight bit decrement but that is ok since the caller
;   should never be decrementing in bank $00 and expect to go into bank $ff.

		dec	<source+2		;back up a bank

m_sdec_dinclp2
		inx				;next destination index
		bne	m_sdec_dinclp4		;loop if no bank cross

; the next inc is an eight bit increment but that is ok since the high
;    byte of the high word is always zero to start anyway

		inc	<dest+2			;next bank please

; decrement counter by incrementing it to $00000000

m_sdec_dinclp4
		inc	<count			;increment low word of count
		bne	m_sdec_dinclp
		inc	<count+1
		bne	m_sdec_dinclp
		inc	<count+2		;increment upper word of count
		bne	m_sdec_dinclp
		inc	<count+3
		bne	m_sdec_dinclp		;loop if not done

		jmp	m_movefinished		;exit via common routines

		end_proc
		
m_scon_ddec	proc				;8 source constant - destination decs

;move with the source = constant address and the dest = decrementing address
; 'y' contains count on entry

		tyx				;low word of count
		ldy	<dest			;start at first destination address
		stz	<dest			;reset destination pointer

; set the 'm' bit to 1 for 8 bit mode since we're moving one byte at a time.
; we don't have to reset to 16 bit mode for 'a' here since m_movefinished does
;    it for us.

		sep	#$20			;must use 8 bit 'a' register

m_scon_ddeclp
		lda	[<source]		;get constant source byte
		sta	[<dest],y		;store at decrementing destination

		dey				;decrement to next source location
		cpy	#$ffff			;dec through 0 then adjust dest bank
		bne	m_scon_ddeclp2		;<>= then do some more

; the next dec is an eight bit decrement but that is ok since the caller
;   should never be decrementing in bank $00 and expect to go into bank $ff.

		dec	<dest+2			;decrement source bank

; decrement counter by incrementing it to $00000000

m_scon_ddeclp2
		inx				;adjust counter
		bne	m_scon_ddeclp		;<>= then do some more

		inc	<count+2		;increment low byte of count word
		bne	m_scon_ddeclp		;not = 0 then just continue
		inc	<count+3		;increment upper byte of word too
		bne	m_scon_ddeclp		;<>= then do some more

		jmp	m_movefinished		;done when we fall to here

		end_proc
		
m_sinc_ddec	proc				;9 source incs - destination decs

;move with the source = incrementing address and the dest = decrementing address

		ldy	#$0000			;incrementing address
		ldx	<dest			;decrementing address
		stz	<dest			;reset destination address

; set the 'm' bit to 1 for 8 bit mode since we're moving one byte at a time.
; we don't have to reset to 16 bit mode for 'a' here since m_movefinished does
;    it for us.

		sep	#$20			;must use 8 bit 'a' register

m_sinc_ddeclp
		lda	[<source],y		;get a byte to transfer
		phy				;save 'y'
		txy				;get destination address
		sta	[<dest],y		;save the byte
		ply				;restore source index

		iny				;next source index
		bne	m_sinc_ddeclp2		;if not go here

; the next inc is an eight bit increment but that is ok	since the high
;    byte of the high word is always zero to start anyway

		inc	<source+2		;next bank

m_sinc_ddeclp2
		dex				;next destination index
		cpx	#$ffff			;fallen	through $0000 yet??
		bne	m_sinc_ddeclp4		;loop if no bank cross

; the next dec is an eight bit decrement but that is ok	since the caller
;   should never be decrementing in bank $00 and expect	to go into bank	$ff.

		dec	<dest+2			;next bank please

; decrement counter by incrementing it to $00000000

m_sinc_ddeclp4
		inc	<count			;increment low word of count
		bne	m_sinc_ddeclp
		inc	<count+1
		bne	m_sinc_ddeclp
		inc	<count+2		;increment upper word of count
		bne	m_sinc_ddeclp
		inc	<count+3
		bne	m_sinc_ddeclp		;loop if not done

		jmp	m_movefinished		;exit via common routines

		end_proc
		

m_sdec_ddec	proc				;a source decs - destination decs

; move with decrementing source	address	and decrementing destination address

; set the move instuction in zero page to mvp

		lda	#$0044			;mvp instruction
		sta	<domove			;upper byte doesn't matter it's modified

		jsr	setupformvx		;set up for mvn/mvp
		bra	ddm_mdfirst

; main move loop

ddm_mdmore
		sta	<count+2		; more bytes to move
		lda	<domove+1		; 'a' = srcdst banks
		cpx	#$ffff			; bank cross? if x=0
		bne	ddm_mdxnot0
		sec
		sbc	#$0100			; subtract 1 to source bank

ddm_mdxnot0
		cpy	#$ffff			; did destination cross bank?
		bne	ddm_mdyis0
		dec	a

ddm_mdyis0
		sta	<domove+1

ddm_mdfirst
		txa				; if count > source then bank cross
		cmp	<tempcount
		bcs	ddm_mdxok
		sta	<tempcount		; only move source bytes

ddm_mdxok
		tya				; will destination cross bank?
		cmp	<tempcount
		bcs	ddm_mdyok
		sta	<tempcount		; only move dest bytes

ddm_mdyok
		jsr	domvxonstack
		bpl	ddm_mdmore

		jmp	m_movefinished		;exit via common routines

		end_proc
		

setupformvx	proc

; set up the self modifying code to contain destination
; and source in	operand	of mvn/mvp instruction constructed on stack.

		lda	<source+2		;get source bank
		xba
		ora	<dest+2			;or in destination bank
		sta	<domove+1		;put bank into mvn/mvp instruction

; decrement count because it contains actual transfer count whereas
; remainder of routine assumes it contains transfer count - 1

		lda	<count
		bne	m_ara1
		dec	<count+2
m_ara1
		dec	<count

; a move instuction is already on zero page at this point in the code

; initialize registers and tempcount for mvn/mvp on stack

		ldx	<source			; X = low word of source
		ldy	<dest			; Y = low word of dest
		lda	<count
		sta	<tempcount
		rts

		end_proc
		

domvxonstack	proc
		entry	m_contdomove


; set up the address to	rtl to which does the mvn on stack
; this is the equivalent of a self modifying jmp absolute long instruction.

		phk				;push rtl return on stack
		pea	m_contdomove-1		;push rtl return address-1 on stack

		pea	$0000			;we'll leave high byte $00 on stack
		plb				; for setting correct execution bank.
		tsc				;where are we now?
		clc
		adc	#$0009			;where are we going?
						;+2 around user's direct page on stack
						;+1 around user's data bank on stack
						;+3 around m_contdomove rtl info on stack
						;+2 around rts from jsr domvxonstack
						;+1 around execution bank just put on stk
		pha				;full rtl info on stack

		lda	<tempcount		; get the number of bytes to move
		rtl				;execute on stack in case we're in rom

m_contdomove					;		;return here after mvn
		lda	<count			; count	= count	- bytes moved
		clc				; actual bytes moved 1 more than count
		sbc	<tempcount
		sta	<count
		sta	<tempcount
		lda	<count+2
		sbc	#$0000
		rts

		end_proc
		

movetable	proc
		DC.W	m_scon_dcon		;0 source constant -destination constanty
		DC.W	m_sinc_dcon		;1 source incs - destination constant
		DC.W	m_sdec_dcon		;2 source decs - destination constant
		DC.W	m_abortmove		;3 illegal move sequence requested
		DC.W	m_scon_dinc		;4 source constant - destination incs
		DC.W	m_abortmove		;5 src/dest incs should never get here
		DC.W	m_sdec_dinc		;6 source decs - destination incs
		DC.W	m_abortmove		;7 illegal move sequence requested
		DC.W	m_scon_ddec		;8 source constant - destination decs
		DC.W	m_sinc_ddec		;9 source incs - destination decs
		DC.W	m_abortmove		;a src/dest decs should never get here
		DC.W	m_abortmove		;b illegal move sequence requested
		DC.W	m_abortmove		;c illegal move sequence requested
		DC.W	m_abortmove		;d illegal move sequence requested
		DC.W	m_abortmove		;e illegal move sequence requested
		DC.W	m_abortmove		;f illegal move sequence requested

		end_proc
		eject
*******************************************************************************
*
* End oscall segment: $009A00-00A280
*
*******************************************************************************

		freespace	SCM segment 0,seg_0_start,seg_0_max,&segment_pc

		eject
*******************************************************************************
*
* Begin miscellaneous segment: $00B300-globals_end (~$00B9EE)
*
		SEG	'misc_seg'		;Becomes scm_seg_1
		resetpc				;Reset counter.
*
*******************************************************************************
		eject
*******************************************************************************
*
*        Name:	os_event
*
* Description:	Notify anyone in the os_event_queue who wants this event that
*		it has occured.  The A, X, and Y registers on the stack will be
*		passed to the notify_procs in the respective registers.
*
*      Author:	Bryan Atsatt
*     Created:	Nov 17, 1988
*    Modified:	Dec 1, 1988	BPA	set direct page to zero before
*					calling notify_proc.
*		Jan 16, 1989 	BPA	Changed code storage to local variable
*					and saved link_pointer across call to
*					notify_proc.
*		Sep 13, 1989	CAF	preserved the value of 'code' across the
*					call to notify_proc.
*		Sep 15, 1989	CAF	moved the code that pushes 'code' onto the
*					stack to before the a,x,y registers are
*					loaded (I was trashing A before)
*		Sep 18, 1989	CAF	fixed stack relative offsets when loading
*					the a,x,y registers (I pushed 4 bytes onto
*					the stack)
*
*       Entry:	jsl $1fcc4
*
*       Input:  A = low word of event code.
*               X = high word of event code.
*               Y = undefined.
*               P = nvmxdizc
*		    ..000...
*
*		Stack:  
*               	|   previous contents	|
*               	|_______________________|
*               	|  A register parameter | word
*               	|_______________________|
*               	|  X register parameter | word
*               	|_______________________|
*               	|  Y register parameter | word
*               	|_______________________|
*               	|   	                | 3 bytes
*               	|     return address	| 
*               	|_______________________|
*               	|   	                | <- SP
*
*      Output:  A = undefined
*               X = undefined
*               Y = undefined
*               P = nvmxdizc
*		    ..000...
*			   
*		Stack:  
*               	|   previous contents	|
*               	|_______________________|
*               	|   	                | <- SP
*
*        Exit:	rtl
*
*        Uses:	event_queue
*		s_temp1
*		s_temp2
*
* Copyright Apple Computer, Inc. 1988  All rights reserved.
*******************************************************************************
		
os_event	proc

link_pointer	equ	s_temp1			;Pointer to queue header temp.

*
* First set environment and save off the event code...
*
		phb				;Save data bank.
		phk				;Set to our code bank.
		plb

		sta	code			;Save low word.
		stx	code+2			;Save high word.
*
* Get pointer to next handler (if any) from our header...
*
		lda	event_queue		;Get low word.
		ldx	event_queue+2		;Get high word.
*
* Save link pointer and exit if nil. Else, add offset to code entry point,
* and self-modify our jsl address...
*
queue_loop	sta	<link_pointer		;Set low word of address.
		stx	<link_pointer+2		;Set high word..	 
		ora	<link_pointer+2		;Nil pointer?
		beq	exit			;Yep, so we're done.	 
*
* Should we call this guy?  If not, skip him...
*
		ldy	#event_flags-event_queue   ;Get offset to lo word of flags.
		lda	[<link_pointer],y	   ;Get low word of flag.
		and	code		   	   ;Any bits match?
		tax				   ;Save result.
		ldy	#event_flags-event_queue+2 ;Get offset to hi word of flags.
		lda	[<link_pointer],y	   ;Get hi word of flag.
		and	code+2		   	   ;Any bits match?
		bne	do_it			   ;Yes, so continue.
		txy				   ;Nope, any in the low word?
		beq	next_link		   ;Nope, so skip it.
*
* Stuff the event code into the queue header, calculate entry point, load up the
* registers and jsl to the code entry point...
*
do_it		ldy	#event_code-event_queue+2 ;Point to hi word of event code.
		sta	[<link_pointer],y	  ;Stuff in header.

		txa			  	  ;Get low word of code.
		ldy	#event_code-event_queue	  ;Point to lo word of event code.
		sta	[<link_pointer],y	  ;Stuff in header.

		clc				;Calculate entry point.
		lda	<link_pointer
		ldx	<link_pointer+2
		adc	#entry_point-event_queue
		bcc	save_it
		inx
		
save_it		sta	jsl_address+1		;Set low word of address.
		sep	#x8			;Set 8 bit index.
		stx	jsl_address+3		;Set high byte of address.
		rep	#x8			;Restore 16 bit index.	 


		lda	code			; <9/13/89 CAF>
		pha				; <9/13/89 CAF>
		lda	code+2			; <9/13/89 CAF>
		pha				; <9/13/89 CAF>

		lda	5+4,s			;Get Y parameter.
		tay
		lda	7+4,s			;Get X parameter.
		tax
		lda	9+4,s			;Get A parameter.
		
		pei	<link_pointer		;Save pointer.
		pei	<link_pointer+2
		phd				;Save direct register.
		phb				;Save bank register.
		pea	0000			;Set direct register to zero.
		pld
jsl_address	jsl	$000000			;Call handler (SELF-MODIFIED!)
		plb				;Restore bank.
		pld				;Restore direct register.
		pla				;Restore pointer.
		sta	<link_pointer+2
		pla
		sta	<link_pointer
		
		pla				; <9/13/89 CAF>
		sta	code+2			; <9/13/89 CAF>
		pla				; <9/13/89 CAF>
		sta	code			; <9/13/89 CAF>
*
* Now load up next link and loop...
*
next_link	ldy	#0002			;Point to high word of link.
		lda	[<link_pointer],y	;Get high word.
		tax				;Put in X.
		lda	[<link_pointer]		;Get low word.
		bra	queue_loop		;Loop.
*
* We're all done.  Restore data bank, move return address up stack and exit...
*
exit		plb				;Restore data bank.

		lda	2,s			;Move return address up.
		sta	8,s
		lda	1,s			;(overlapping)
		sta	7,s
		clc				;Adjust stack pointer.
		tsc
		adc	#6
		tcs
		rtl				;Exit.

code		dc.l	00000000		;Space for event code.

		end_proc
		eject
*******************************************************************************
*
*        Name:	os_add_queue and os_delete_queue
*
* Description:	Adds/deletes call handler to/from os_event_queue.
*
*      Author:	Bryan Atsatt
*     Created:	Nov 18, 1988
*    Modified:	Jan 4, 1989	BPA	Added logic to count notify_procs with
*					volume_change flag set.
*
*       Entry:	jsr
*
*       Input:  A = undefined
*               X = undefined
*               Y = undefined.
*               P = nvmxdizc
*		    ..000...
*
*      Output:  A = error code if error.
*               X = undefined
*               Y = undefined
*               P = nvmxdizc
*		    ..000..0 = no error
*			   1 = error
*
*        Exit:	rts
*
*        Uses:	AddToQueue (misctools)
*		DeleteFromQueue (misctools)
*		set_ptr
*		s_temp1
*		s_temp2
*		s_temp3
*
* Copyright Apple Computer, Inc. 1988  All rights reserved.
*******************************************************************************

os_add_queue	proc

add_del_flag	equ	s_temp1			;Temp equate.

		lda	#$0001			;Select add.
		bra	do_it

		entry	os_delete_queue	

os_delete_queue	lda	#$ffff			;Select delete.
do_it		sta	<add_del_flag		;Save selection.
*
* Is the pointer nil?
*
		jsr	set_ptr			;Bump pointer to first parm.
		lda	[<pb_ptr]		;Get low word of pointer.
		tax				;Save it.
		ldy	#0002			;Point to high word of pointer.
		ora	[<pb_ptr],y		;Nil?
		beq	bad_parm		;Yep.
*		
* Nope, so push parameters for call...
*
		lda	[<pb_ptr],y		;Get high word of pointer.

		pha				;Push caller's pointer.
		phx
		pea	event_queue>>16		;Push pointer to our header.
		pea	event_queue
*
* Now call either AddToQueue or DeleteFromQueue and exit if error...
*
		lda	<add_del_flag		;AddToQueue?
		bmi	delete			;Nope.
		
		_AddToQueue			;Yes, do add call.
		bcc	success			;success.

bad_parm	lda	#parm_range_err		;Exit with error.
		sec
		rts

delete		_DeleteFromQueue		;Do delete call.
		bcs	bad_parm		;error ->

*
* We were successful, so exit with carry clear...
*
success		rts				; carry is already clear


		end_proc
		eject
*******************************************************************************
*
*        Name:	set_prefix_33
*
* Description:	Sets prefix 33, the '@' prefix.
*
*      Author:	Bryan Atsatt
*     Created:	Nov 21, 1988
*    Modified:	Nov 30, 1988	BPA	Fixed set_prefix_33 so does not
*					count trailing zero in length word
*		Dec 12, 1988	BPA	Added CLC after string copy.
*
*       Entry:	jsl
*
*       Input:  A = low word of pointer to class 1 string
*               X = high word of pointer to class 1 string
*               Y = undefined.
*               P = nvmxdizc
*		    ..000...
*
*      Output:  A = error code if error.
*               X = undefined
*               Y = undefined
*               P = nvmxdizc
*		    ..000..0 = no error
*			   1 = error
*
*        Exit:	rtl
*
*        Uses:	set_ptr
*		allocate
*		deallocate
*		s_temp1
*		s_temp2
*		m_temp
*
* Copyright Apple Computer, Inc. 1988  All rights reserved.
*******************************************************************************

set_prefix_33	proc

string_ptr	equ	s_temp1			;Temporary equate.
buffer_ptr	equ	s_temp2			;Temporary equate.

*
* Set pointer to string...
*
		sta	<string_ptr		;Set low word of pointer.
		stx	<string_ptr+2		;Set high word.
*
* Allocate memory for new prefix.  Exit if fail...
*
		lda	[<string_ptr]		;Get length.
		inc	a			;Bump by two for length word.
		inc	a
		inc	a			;Bump it one for the added zero.
		jsl	allocate		;Allocate memory.
		bcs	exit			;Exit on error.
*
* Add VP to prefices table, and set buffer_ptr to new buffer...
*
		lda	#33			;Select prefix 33.
		jsr	set_pfx			;Install new VP.

		lda	>prefices,x		;Recover low word of VP.
		tax
		jsl	deref2			;Dereference VP.
		stx	<buffer_ptr		;Save pointer.
		sty	<buffer_ptr+2
*
* Deallocate old VP if any...
*
		ldy	<m_temp+2		;Was there a VP to deallocate?
		bmi	do_copy			;Nope.
		ldx	<m_temp			;Yes, so get rid of it.
		jsl	deallocate
*
* Now copy the string into the buffer, add a trailing zero and exit...
*
do_copy		lda	[<string_ptr]		;Get length of string in X.
		sta	[<buffer_ptr]		;Set new length.
		tax				;Save length in X.
		
		longa	off			;Set 8 bit mode.
		sep	#m8

		ldy	#0002			;Point to first character.
copy_loop	lda	[<string_ptr],y		;Copy byte.
		sta	[<buffer_ptr],y
		iny				;Bump offset.
		dex				;Done all?
		bne	copy_loop		;Nope, so loop.

		lda	#00			;Add trailing zero.
		sta	[<buffer_ptr],y
		
		longa	on			;Set 16 bit mode.
		rep	#m8
		
		clc				;No error.
exit		rtl				;Exit.

		end_proc
		eject
*******************************************************************************
*
*        Name:	get_std_ref_num
*
* Description:	Returns refnum for last file opened for prefix 10,11 or 12.
*
*      Author:	Bryan Atsatt
*     Created:	Feb 8, 1989
*    Modified:	Feb 8, 1989
*
*       Entry:	jsr
*
*       Input:  A = undefined
*               X = undefined
*               Y = undefined
*               P = nvmxdizc
*		    ..000...
*
*		std_ref_num		;table of 3 refnums (0=undefined).
*
*      Output:  A = Error code if error.
*               X = undefined
*               Y = undefined
*               P = nvmxdizc
*		    ..000..0 no error
*			   1 error
*
*        Exit:	rts
*
*        Uses:	set_ptr
*
* Copyright Apple Computer, Inc. 1988  All rights reserved.
*******************************************************************************

get_std_ref_num	proc

*
* Set up our access to the parameter block...
*
		jsr	set_ptr			;Set pb_ptr
*
* Make sure the prefix requested is 10, 11 or 12...
*
		ldx	#parm_range_err		;Assume error.

		ldy	#pblk_37_pfxnum		;Get offset to prefix.
		lda	[<pb_ptr],y		;Get the prefix number.
		sec				;Put in range 0-2.
		sbc	#10
		cmp	#3			;In range?
		bcs	error			;Nope.
*
* It is. Make sure the requested ref_num is valid...
*
		ldx	#data_unavail		;Assume error.

		asl	a			;Use as word offset.
		tay
		lda	std_ref_num,y		;Get ref_num. Valid?
		bne	valid			;Yep.
		
error		sec				;Nope, so return error.
		txa
		rts
*
* It is, so stuff it in the user's parameter block and exit...
*
valid		ldy	#pblk_37_refnum		;Get offset to parm.
		sta	[<pb_ptr],y		;Stuff it.

		clc				;Indicate no error.
		rts				;Exit.

		end_proc
		eject
*******************************************************************************
*
*        Name:	set_std_ref_num
*
* Description:	Sets refnum for prefix 10,11 or 12 (std i/o channels).
*
*      Author:	Greg Branche
*     Created:	September 1, 1991
*    Modified:	
*
*       Entry:	jsr
*
*       Input:  A = undefined
*               X = undefined
*               Y = undefined
*               P = nvmxdizc
*		    ..000...
*
*		std_ref_num		;table of 3 refnums (0=undefined).
*
*      Output:  A = Error code if error.
*               X = undefined
*               Y = undefined
*               P = nvmxdizc
*		    ..000..0 no error
*			   1 error
*
*        Exit:	rts
*
*        Uses:	set_ptr
*
* Copyright Apple Computer, Inc. 1988  All rights reserved.
*******************************************************************************

set_std_ref_num	proc
		Import	std_prefix_num,last_ref_num
*
* Set up our access to the parameter block...
*
		jsr	set_ptr			;Set pb_ptr
*
* Make sure the prefix requested is 10, 11 or 12...
*
		ldx	#parm_range_err		;Assume error.

		ldy	#pblk_37_pfxnum		;Get offset to prefix.
		lda	[<pb_ptr],y		;Get the prefix number.
		sec				;Put in range 0-2.
		sbc	#10
		cmp	#3			;In range?
		bcs	error			;Nope.
*
* It is. Save the index into the std_ref_num table
*
		asl	a			;Use as word offset.
		sta	std_prefix_num		;Save for later.
*
* Make sure the requested ref_num is valid...
*
		ldx	#invalid_ref_num	;Assume error again.
		ldy	#pblk_37_refnum		;Get offset to parm.
		lda	[<pb_ptr],y		;Retrieve the refnum.
		beq	error			;Ya can't have a zero refnum, meathead!
		sta	last_ref_num		;Save it.
		jsl	findfcr			;Make sure there's an FCR for the refnum.
		bcs	bad_refnum		;No go, Joe!
*
* It is, so stuff it in the std_ref_num table and exit...
*
		ldy	std_prefix_num		;Get the proper index value.
		lda	last_ref_num		;And the actual refnum.
		sta	std_ref_num,y

		clc				;Indicate no error.
		rts				;Exit.

error		sec				;Nope, so return error.
		txa
bad_refnum
		rts
		end_proc
		eject
*******************************************************************************
*
*        Name:	insert_vol_name
*
* Description:	If the input path contained a device name/number, this routine
*		will attempt to build a new output string with the volume name
*		replacing the device name/number.
*
*      Author:	Bryan Atsatt
*     Created:	Feb 20, 1989
*    Modified:	Jan 23, 1992
*
*       Entry:	jsl
*
*       Input:  A = undefined
*               X = undefined
*               Y = undefined
*               P = nvmxdizc
*		    ..000...
*
*		param_blk_ptr		;Points to caller's parms.
*		fst_flags		;Set up by expand_path
*		path1_ptr		;Set up by expand_path
*		v_ptr1			;Set up by expand_path
*
*      Output:  A = undefined
*               X = undefined
*               Y = undefined
*               P = nvmxdizc
*		    ..000..0
*
*		path1_ptr		;Points to original or new outpath.
*
*        Exit:	rtl
*
*        Uses:	alloc_string
*
* Copyright Apple Computer, Inc. 1989  All rights reserved.
*******************************************************************************

insert_vol_name	proc

class1_volume	equ	$2008			;Class 1 volume call #.
volume_x2	equ	$0010			;Volume call # times 2.
exp_path_num	equ	$200e			;Expand_path call number.
period		equ	$002e			;Period.

*
* Was there a device name or number in the path?  Exit if not...
*
		ldy	#0002			;Get offset to first char.
		lda	[<path1_ptr],y		;Get first character.
		and	#$00ff			;Isolate low byte.
		cmp	#period			;Is period?
		beq	do_it			;Yep.
		rtl				;Nope, so exit,
*
* Yes, so we need to do a volume call to try to get the name for the selected
* device.  First save some parameters...
*
do_it		lda	|v_ptr1			;Save v_ptr1.
		pha
		lda	|v_ptr1+2
		pha
		pei	<param_blk_ptr		;Save param_blk_ptr.
		pei	<param_blk_ptr+2

		pei	<call_number		;save current call number

		pei	<path1_ptr		;Save path1_ptr.
		pei	<path1_ptr+2
		
		lda	|fst_flags		;Save flags word.
		pha
*
* Copy just the device name/number into our input path...
*
		sep	#m8			;Go to 8 bit A.
		longa	off

		ldy	#0001			;Point to first char-1.
		ldx	#$ffff			;Point to start-1.
		
copy_name	iny				;Bump offsets.
		inx
		lda	[<path1_ptr],y		;Copy name to device_name.
		sta	device_name+2,x		;Save it.
		beq	set_length		;Done if zero.
		cmp	#sep			;Is separator?
		bne	copy_name		;Nope, so loop.

set_length	stz	device_name+2,x		;Add terminator.
		
		rep	#m8			;Back to 16 bit A.
		longa	on
		
		stx	device_name		;Set length.
		stx	dev_name_length		;Save for later.
*
* Do call and exit to restore_exit if error...
*
		jsr	do_volume_call		;Go do volume call.
		ply				;Recover flags word.
		sty	|fst_flags
		ply				;Recover pointer.
		sty	<path1_ptr+2
		ply
		sty	<path1_ptr
		bcs	restore_exit		;Exit if error. 
*
* Call succeeded.  Now path1_ptr points to original translated path and
* device_name holds volume name.  Now let's figure out the length of the
* new, concatenated string.  To do this, we have to get the length of the
* original path minus the device name/number and add the length of the
* volume name to it...
*
		sec				;Prepare to subtract.
		lda	[<path1_ptr]		;Get original length.
		sbc	dev_name_length		;Subtract device name len.
		clc				;Now add volume name len.
		adc	device_name
		adc	#0003			;Add 3 for length word and 0.
		tay				;And put new length in Y.
*
* Ok, length is in Y, go allocate string.  Exit to restore_exit if error...
*
		lda	#0001			;Set so allocate will use
		sta	|xlate_count		; path2_ptr and v_ptr2.
		jsr	alloc_string		;Get space for a new string.
		bcs	restore_exit		;Error.
*
* Alright, we're all set to do the copy into the space pointed to by
* path2_ptr.  First copy the volume name in, forcing the case if required...
*
		sep	#m8			;Go to 8 bit A.
		longa	off

		lda	#%11111111		;Init mask to no change.
		ldx	|fst_flags		;Force case?
		bpl	set_mask		;Nope, so leave mask alone.
		lda	#%11011111		;Yes, set to clear bit. 
set_mask	sta	|case_mask2

		ldx	device_name		;Get offset to end of string.
		stz	device_name+2,x		;Add null terminator.
		
		ldy	#0001			;Init offset.
volume_loop	iny				;Bump offset.
		lda	device_name,y		;Get byte.
		cmp	#'a'			;Is lower case?
		bcc	save_it			;Nope.
		cmp	#'z'+1			;Maybe.
		bcs	save_it			;Nope.
		and	|case_mask2		;Yes, so mask it.
save_it		sta	[<path2_ptr],y		;Copy it.
		cmp	#00			;Reached end?
		bne	volume_loop		;Nope, so loop.
*
* Now, starting from the end of the device name/number in the original path,
* copy to the end of our new string...
*
		tyx				;Save destination offset.
		ldy	dev_name_length		;Get offset to 1st char after
						; the device name in original.
		iny				;Bump past length word.
		iny
						
append_loop	lda	[<path1_ptr],y		;Get byte.
		phy				;Save source offset.
		txy				;Recover destination offset.
		sta	[<path2_ptr],y		;Copy byte.
		ply				;Recover source offset.
		iny				;Bump offsets.
		inx
		cmp	#00			;Done with append?
		bne	append_loop		;Nope, so loop.
*
* Now set the new length using the value in X minus 3 for the length word
* and the null terminator...
*
		rep	#m8			;Back to 16 bit A.
		longa	on
		
		dex				;Subtract 3 from length.
		dex
		dex
		txa
		sta	[<path2_ptr]		;Save new length.
*
* Now set path1_ptr = path2_ptr so when we exit, expand_path will use the
* new path...
*
		lda	<path2_ptr		;Copy pointer.
		sta	<path1_ptr
		lda	<path2_ptr+2
		sta	<path1_ptr+2
*
* We're done, so restore environment and exit...
*
restore_exit	pla				;Restore call number.
		sta	<call_number

		pla				;Restore param_blk_ptr.
		sta	<param_blk_ptr+2
		pla
		sta	<param_blk_ptr

		pla				;Restore v_ptr1.
		sta	|v_ptr1+2
		pla
		sta	|v_ptr1
		
		clc				;Force no error.
		rtl				;Exit.

		end_proc
		eject
*******************************************************************************
*
*        Name:	do_volume_call
*
* Description:	Does an internal volume call.
*
*      Author:	Bryan Atsatt
*     Created:	Mar 9, 1989
*    Modified:	
*
*       Entry:	jsr
*
*       Input:  A = undefined
*               X = undefined
*               Y = undefined
*               P = nvmxdizc
*		    ..000...
*
*		path1_ptr		;Points to device name/number.
*
*      Output:  A = error code
*               X = undefined
*               Y = undefined
*               P = nvmxdizc
*		    ..000..0 no error
*			   1 error
*
*        Exit:	rts
*
*        Uses:	do_type_2
*		volume_name
*		device_name
*
* Copyright Apple Computer, Inc. 1989  All rights reserved.
*******************************************************************************

do_volume_call	proc

class1_volume	equ	$2008			;Class 1 volume call #.
volume_x2	equ	$0010			;Volume call # times 2.

*
* Set up the environment for the volume call...
*
		lda	#path_script		;Point script_start to special
		sta	script_start		; script for pathname only.
		lda	#class1_volume		;Set call number.
		sta	<call_number		
		lda	#volume_x2		;Set num to call # times 2.
		sta	|num
		lda	#volume_parms		;Set param_blk_ptr to our parms.
		sta	<param_blk_ptr
		lda	#volume_parms>>16
		sta	<param_blk_ptr+2
		lda	|class			;Save class.
		pha
		lda	#0002			;Set to class 1.
		sta	|class
*
* Do call, restore class and exit...
*
		jsr	do_type_2		;Go do volume call.
		plx				;Restore class.
		stx	|class
		rts				;Exit.
		
		end_proc
		eject
*******************************************************************************
*
*        Name:	get_ref_num
*
* Description:	Returns a ref_num if selected pathname is open.
*
*      Author:	Bryan Atsatt
*     Created:	Feb 21, 1989
*    Modified:	Jun 2, 1989   BPA  Was returning access when pcount was 2!
*
*       Entry:	jsr
*
*       Input:  A = undefined
*               X = undefined
*               Y = undefined
*               P = nvmxdizc
*		    ..000...
*
*		param_blk_ptr		;Points to caller's parms.
*
*      Output:  A = Error code
*               X = undefined
*               Y = undefined
*               P = nvmxdizc
*		    ..000..0 no error
*			   1 error code in A
*
*        Exit:	rts
*
*        Uses:	xlate_path
*		getfcr
*		find_fst
*		release_v_ptrs
*
* Copyright Apple Computer, Inc. 1989  All rights reserved.
*******************************************************************************

get_ref_num	proc
		Import	e1_get_ref_num,std_prefix_num

msb_mask	equ	s_temp1			;Temp equate.
character	equ	s_temp2			;Temp equate.
fcr_ptr_temp	equ	s_temp3			;Temp equate.

ref_offset	equ	$0006			;Offset to ref_num parm.
access_offset	equ	$0008			;Offset to access_parm
fork_offset	equ	$000a			;Offset to form_num parm.
case_offset	equ	$000c			;Offset to case_sense parm.
disp_offset	equ	$000e			;Offset to displacement parm.

*
* First set up the default controls in case parameters are not present in the
* parameter list, and initalize pathname translation variables... 
*
		stz	|fork_num		;Select data fork.
		stz	|case_sense		;Select insensitive.
		lda	#0001			;Select 1st match.
		sta	|displacement
		jsr	init_path_vars		;Init pathname variables.
		stz	std_prefix_num		;assume it's not a Std I/O prefix number
*
* We know pcount is in range 'cuz it was checked by check_call.  Now let's
* check the remaining parameters, overwriting the defaults where required...
*
		lda	[<param_blk_ptr]	;Get pcount.
		tax

		cpx	#4			;Do we have a fork_num?
		bcc	set_case		;Nope.
		ldy	#fork_offset		;Yes, get offset.
		lda	[<param_blk_ptr],y	;Get parm.
		cmp	#0002			;In range 0-1?
		bcs	parm_error		;No, so error.
		sta	|fork_num		;Yes, so save control.
		
		cpx	#5			;Yes do we have a case parm?
		bcc	set_case		;Nope.
		ldy	#case_offset		;Yes, get offset.
		lda	[<param_blk_ptr],y	;Get parm.
		cmp	#0002			;In range 0-1?
		bcs	parm_error		;No, so error.
		sta	|case_sense		;Yes, so save control.

		cpx	#6			;Yes do we have a disp parm?
		bcc	set_case		;Nope.
		ldy	#disp_offset		;Yes, get offset.
		lda	[<param_blk_ptr],y	;Get parm.
		sta	|displacement		;Yes, so save control.
		bra	set_case		;Continue.
		
parm_error	lda	#parm_range_err		;Return parm_range_err.
		sec
		bra	release_exit		;Exit.
*
* Now let's set up fst_flags to force upper case if case_insensitive selected
* and set case_mask2 accordingly...
*
set_case	lda	#$8000			;Assume force upper case.
		ldx	#%1111111111011111
		ldy	|case_sense		;Case insensitive requested?
		beq	set_flags		;Yep.
		lda	#0000			;No, so don't force case.
		ldx	#%1111111111111111
set_flags	sta	|fst_flags		;Save flags.
		stx	|case_mask2		;Save OR mask.
*
* Now try translation. This will set path1_ptr to the translated name.  Exit
* if error...
*
		lda	#0002			;Get offset in parm list.
		jsr	xlate_path		;Do translation.
		bcs	release_exit		;Exit on error.

; call part 2, located in another bank

		jsl	e1_get_ref_num

release_exit	pha				;Save error.
		php				;Save status.
		jsr	release_v_ptrs		;Release vps.
		plp				;Recover status.
		pla				;Recover error code.
		rts				;Exit.
		
		end_proc
		eject
*******************************************************************************
*
*        Name:	get_ref_info
*
* Description:	Returns access and pathname of open file with selected ref_num.
*
*      Author:	Bryan Atsatt
*     Created:	Feb 23, 1989
*    Modified:	
*
*       Entry:	jsr
*
*       Input:  A = undefined
*               X = undefined
*               Y = undefined
*               P = nvmxdizc
*		    ..000...
*
*		param_blk_ptr		;Points to caller's parms.
*
*      Output:  A = Error code
*               X = undefined
*               Y = undefined
*               P = nvmxdizc
*		    ..000..0 no error
*			   1 error code in A
*
*        Exit:	rts
*
*        Uses:	findfcr
*		chk_app_buf
*		copy_ext_string
*
* Copyright Apple Computer, Inc. 1989  All rights reserved.
*******************************************************************************

get_ref_info	proc
		Import	e1_get_ref_info

ref_offset	equ	$0002			;Offset to ref_num parm.
access_offset	equ	$0004			;Offset to access parm
outpath_offset	equ	$0006			;Offset to output path parm.
rsrcNum_offset	equ	$000a
level_offset	equ	$000c


*
* Since we got here we know that pcount is between 2 and 5, inclusive.  First let's see if
* we have an FCR with the ref_num given to us.  Exit with error if not...
*
		ldy	#ref_offset		;Get offset to ref_num.
		lda	[<param_blk_ptr],y	;Get ref_num.
		jsl	findfcr			;Do we have one?
		bcs	exit			;Nope.
		jsl	deref2			;Yes, dereference vp.
		stx	<s_temp1		;Save pointer.
		sty	<s_temp1+2
*
* Ok, we found one, now get access bits and put them in the parameter list...
*
		ldy	#fcr_access		;Get offset to access.
		lda	[<s_temp1],y		;Get access.
		and	#%0000000000000011	;Isolate access bits.
		ldy	#access_offset		;Get offset into parms.
		sta	[<param_blk_ptr],y	;Stuff it in.
*
* Did the caller want the pathname?  Exit with carry clear if not...
*
		lda	[<param_blk_ptr]	;Get pcount.
		cmp	#0003			;Want pathname?
		bcc	exit			;Nope, so exit.

*
* Yes, so get pointer to pathname from FCR, and check to make sure that the
* output buffer is large enough.  Exit with error if not...
*
		ldy	#fcr_path_name		;Get offset to name.
		lda	[<s_temp1],y		;Get low word.
		tax				;Save it.
		iny
		iny
		lda	[<s_temp1],y		;Get high word.
		tay				;Put in Y.
		jsl	deref2			;Dereference it.
		stx	<m_temp			;Save pointer.
		sty	<m_temp+2
		
		ldy	#outpath_offset		;Get offset to outpath parm.
		lda	[<m_temp]		;Get length of pathname.
		jsr	chk_app_buf		;App buffer big enough?
		beq	null_ptr		;if NULL pointer, skip it!
		bcs	exit			;Nope, so exit with error.

*
* It's big enough, so do the copy
*
		jsr	copy_ext_string		;Copy the string.
*
* Now check for a request of the new parameters
*
null_ptr
		lda	[<param_blk_ptr]	;Get pcount.
		cmp	#$0004			;either of the new parameters wanted?
		bcc	exit			;no, just exit
		php				;save Z flag (pCount status)
		ldy	#fcr_access		;get the access word
		lda	[<s_temp1],y		;bit 14 is 0 if data fork is open,
		and	#$4000			;clear all but that bit
		asl	a			;shift into position
		asl	a
		rol	a			;and rotate into bottom bit
		ldy	#rsrcNum_offset
		sta	[<param_blk_ptr],y

		plp				;retrieve Z flag
		beq	done			;if set, pCount == 4
		ldy	#fcr_level		;get the file system level used
		lda	[<s_temp1],y		;  when the file was opened
		ldy	#level_offset
		sta	[<param_blk_ptr],y
done
		clc				;no errors
exit		rts				;Exit.

		end_proc
		eject
*******************************************************************************
*
*        Name:	install_int_vec
*
* Description:	Installs interrupt_patch into main interrupt vector.  Does
*		nothing if already installed.
*
*      Author:	Bryan Atsatt
*     Created:	Feb 22, 1989
*    Modified:	
*
*       Entry:	jsr
*
*       Input:  A = undefined
*               X = undefined
*               Y = undefined
*               P = nvmxdizc
*		    ..000...
*
*      Output:  A = undefined
*               X = undefined
*               Y = undefined
*               P = nvmxdizc
*		    ..000..?
*
*        Exit:	rts
*
*        Uses:	intmgrv			;Main interrupt vector.
*
* Copyright Apple Computer, Inc. 1989  All rights reserved.
*******************************************************************************

install_int_vec	proc

*
* Are we already installed?
*
		lda	|patch_state		;Are we already installed?
		bne	exit			;Yes, so do nothing.
*
* No, so do install.  First disable interrupts, then patch our patch with
* the contents of the main interrupt vector...
*
		php				;Save status.
		sei				;Disable interrupts.
		inc	|patch_state		;Set state to installed.
		
		lda	>intmgrv		;Get current vector, low.
		sta	|int_patch_1		;Patch first location.
		sta	|int_patch_2		;Patch second location.
		sta	|int_patch_3		;Patch third location.

		lda	>intmgrv+2		;Get current vector, high.
		sta	|int_patch_1+2		;Patch first location.
		sta	|int_patch_2+2		;Patch second location.
		sta	|int_patch_3+2		;Patch third location.
*
* Now put address of our interrupt_patch into the main interrupt vector, 
* restore interrupt status and exit...
*
		lda	#interrupt_patch	;Get address, low.
		sta	>intmgrv+1		;Stuff it into vector.
		lda	#interrupt_patch>>8	;Get address, middle.
		sta	>intmgrv+2		;Stuff it into vector.

		plp				;Restore status.
exit		rts				;Done.

		end_proc
		eject
*******************************************************************************
*
*        Name:	remove_int_vec
*
* Description:	Remove interrupt_patch from main interrupt vector.  Does
*		nothing if already removed.
*
*      Author:	Bryan Atsatt
*     Created:	Feb 22, 1989
*    Modified:	
*
*       Entry:	jsr
*
*       Input:  A = undefined
*               X = undefined
*               Y = undefined
*               P = nvmxdizc
*		    ..000...
*
*      Output:  A = undefined
*               X = undefined
*               Y = undefined
*               P = nvmxdizc
*		    ..000..?
*
*        Exit:	rts
*
*        Uses:	intmgrv			;Main interrupt vector.
*
* Copyright Apple Computer, Inc. 1989  All rights reserved.
*******************************************************************************

remove_int_vec	proc

*
* Are we currently installed?
*
		lda	|patch_state		;Are we installed?
		beq	exit			;No, so do nothing.
*
* Yes, so remove our patch.  First disable interrupts and set patch_state to
* zero...
*
		php				;Save status.
		sei				;Disable interrupts.
		stz	|patch_state		;Set state to not installed.
*
* Now restore original vector, restore interrupt status and exit...
*
		lda	|int_patch_1		;Get original vector and put
		sta	>intmgrv		; back in main vector.
		lda	|int_patch_1+2
		sta	>intmgrv+2
		
		plp				;Restore interrupt status.
exit		rts				;Exit.

		end_proc
		eject
*******************************************************************************
*
*        Name:	init_parsepath
*
* Description:	Clears internal variables for parse_path call.
*
*      Author:	Bryan Atsatt
*     Created:	Nov 16, 1988
*    Modified:	Apr 17, 1989
*
*       Entry:	jsl $1fcd4
*
*       Input:  A = undefined
*               X = undefined
*               Y = undefined
*               P = nvmxdizc
*		    ..000..0 = initialize
*			   1 = release vps.
*
*      Output:  A = undefined
*               X = undefined
*               Y = undefined
*               P = nvmxdizc
*		    ..000..x
*
*        Exit:	rtl
*
*        Uses:	init_path_vars
*		release_v_ptrs
*
* Copyright Apple Computer, Inc. 1988  All rights reserved.
*******************************************************************************

init_parsepath	proc

		phb				;Save data bank.
		phk				;Set to our code bank.
		plb
		bcc	do_init			;We're doing an init.
		jsr	release_v_ptrs		;Release vps.
		bra	exit			;Exit.

do_init		jsr	init_path_vars		;Do initialization.
exit		plb				;Restore data bank.
		rtl				;Exit.
		
		end_proc
		eject
*******************************************************************************
*
*        Name:	parse_path
*
* Description:	Translate pathname into canonical format for FST_Specific calls.
*
*        NOTE:	Must call system service call Init_Parse_path once before
*		calling this routine.
*
*      Author:	Bryan Atsatt
*     Created:	Nov 16, 1988
*    Modified:	Apr 7, 1989
*
*       Entry:	jsl $1fcc0
*
*       Input:  A = offset to pathname pointer in parameter list.
*               X = fst attribute flags word from FST header.
*               Y = 0000 to select pathname1, 0001 to select pathname2.
*               P = nvmxdizc
*		    ..000...
*
*      Output:  A = error code if error.
*               X = undefined
*               Y = undefined
*               P = nvmxdizc
*		    ..000..1 = error
*			   0 = no error
*
*		path_flag	;indicates which pathname active.
*		dev1_num	;device number if present and path1 active.
*		dev2_num	;device number if present and path2 active.
*		span1		;maximum name length if path1 active.
*		span2		;maximum name length if path2 active.
*		path1_ptr	;pointer to pathname if path1 active.
*		path2_ptr	;pointer to pathname if path2 active.
*
*        Exit:	rtl
*
*        Uses:	xlate_path
*
* Copyright Apple Computer, Inc. 1988  All rights reserved.
*******************************************************************************

parse_path	proc

		phb				;Save data bank.
		phk				;Set to our code bank.
		plb
		
		sty	|xlate_count		;Select pathname.
		ldy	|fst_flags		;Save current flags.
		phy
		stx	|fst_flags		;Set flags word.
		jsr	xlate_path		;Do the name munging.
		ply				;Restore flags.
		sty	|fst_flags
		
		plb				;Restore data bank.
		rtl				;Exit
		
		end_proc

		eject
*******************************************************************************
*
*        Name:	force_lock and force_unlock
*
* Description:	Locks or unlocks all of GS/OS managed memory.
*
*      Author:	Bryan Atsatt
*     Created:	Mar 27, 1989
*    Modified:	Mar 27, 1989
*
*       Entry:	jsl
*
*       Input:  A = undefined
*               X = undefined
*               Y = undefined
*               P = nvmxdizc
*		    ..000...
*
*      Output:  A = undefined
*               X = undefined
*               Y = undefined
*               P = nvmxdizc
*		    ..000..x
*
*        Exit:	rtl
*
*        Uses:	ul_mem2
*
* Copyright Apple Computer, Inc. 1988  All rights reserved.
*******************************************************************************

rtl		equ	$6b			;Opcode for RTL.
jml		equ	$5c			;Opcode for JML.

force_lock	proc
		entry	force_unlock

		ldx	#%0000000000000011	;Select lock.
		lda	#rtl			;Get RTL opcode.
		bra	do_it			;Go do it.

force_unlock	ldx	#%0000000000000000	;Select unlock.
		lda	#jml			;Get JML opcode.
*
* Patch or restore system service entry points for lock and unlock memory and
* call ul_mem2 selecting either lock or unlock...
*
		longa	off
do_it		sep	#$20			;Go to 8 bit A.
		
		sta	>lock_vector		;Patch/restore vector.
		sta	>unlock_vector		;Patch/restore vector.
		
		longa	on
		rep	#$20			;Back to 16 bit A.

		txa				;Get lock/unlock flag.
		lsr	a			;Set/clear carry.
		jmp	ul_mem2			;Go do it.
		
		end_proc
		eject
;===============================================================================
; init_fst_tbl:	 Initialize FST	Table to the empty state.
;
; Created:	4/10/87
; Modified:	4/11/87
; Author:	JJ
;
; Enter:	jsr	init_fst_tbl
;		assumes DBR set to bank 0 (bank containing FST table)
;
; Input:	P = nvmxdizc
;		    ..000...
;
; Output:	P = nvmxdizc
;		    ..000..|
;			   0=no	error, 1=could not initialize table
;===============================================================================

init_fst_tbl	Proc
		stz	fst_count		;initialize number of FSTs to 0
		lda	#$FFFF			;set flag to indicate ProDOS FST not yet
		sta	|prodos_index		;... loaded
		sta	|char_index

		clc				;indicate no error
		rts
		end_proc

		eject
*******************************************************************************
*
* A bunch of small routines were moved from the gim_seg to here (below)...
*
*******************************************************************************

copy_ext_string	proc
		entry	copy_gstring
		entry	more

		lda	[m_temp]
		bra	over

copy_gstring

;Copy a	GS/OS string (2	byte length) from source [m_temp] to dest [ptr]

		lda	[m_temp]		;Got the length
		inc	a			;Compensate for trailing zero
over
		inc	a			;Comp for length word
		tay				;Length in Y

more
		dey
more2
		lda	[m_temp],y		;Byte from source
		sta	[ptr],y			; into destination
		tya
		beq	noxtra			;We've copied the last word
		dey
		bne	more			;Okay as long as we haven't hit zero
		bra	more2			;Odd length copy... skip a dey

noxtra
		rts

		entry	to_copy_string
to_copy_string
		jsr	copy_ext_string
		rtl

		end_proc

ldxy_idhand	proc
		entry	obj_type

		pha

		lda	>obj_type
		rol	a			;Put type into carry (C<-1 means FCR)

		lda	>fcr_id_hand
		bcs	skipa
		lda	>vcr_id_hand
skipa
		tax

		lda	>fcr_id_hand+2
		bcs	skipb
		lda	>vcr_id_hand+2
skipb
		tay

		pla				;Pull back A
		rts

obj_type	DS.B	2			;Msb is	flag indicating FCR/VCR

		end_proc

deref2_vp	proc

		pha
		stx	vp			;Keep for later
		sty	vp+2
		jsl	deref2
		stx	vcr
		sty	vcr+2
		pla
		rts

		end_proc

set_type	proc

		pha
		ror	a
		sta	>obj_type
		pla
		rts

		end_proc

list_index	proc

		lda	>obj_type
		rol	a
		lda	#vcr_list
		bcc	skip
		lda	#fcr_list
skip
		rts

		end_proc

		eject
;===============================================================================
; release_v_ptrs
;
; Release space	occupied by strings pointed to by virtual pointers
; v_ptr	and v_ptr2.
;
; Created:	6/12/87
; Modified:
; Author:	JJ
;
; Enter:	jsr	release_v_ptrs
;
; Input:	v_ptr1	first virtual pointer
;		v_ptr2	second virtual pointer
;		P = nvmxdizc
;		    ..000...
;
; Output:	v_ptr1 and v_ptr2 are set to zero
;		A = trashed
;		X = trashed
;		Y = trashed
;		P = nvmxdizc
;		    ..000...
;===============================================================================

release_v_ptrs	proc

		ldy	|v_ptr1+2
		ldx	|v_ptr1			;release first virtual pointer if it is
		bne	do_it2			;...non-zero.  Do nothing if it is zero.
		tya				;check the high word
		beq	do_2

do_it2		jsr	>deallocate		;release storage
		stz	|v_ptr1			;zero out virtual pointer
		stz	|v_ptr1+2

do_2
		ldy	|v_ptr2+2
		ldx	|v_ptr2			;release second	virtual	pointer if it is
		bne	do_it4			;...non-zero.  Do nothing if it is zero.
		tya
		beq	do_3

do_it4		jsr	>deallocate		;release storage
		stz	|v_ptr2			;zero out virtual pointer
		stz	|v_ptr2+2

do_3		rts

		end_proc
		eject
;==============================================================================
; is_bouncer
;
; Determine whether or not the error code in A is a bouncing error.
;
; Created:	1/28/88
; Modified:
; Author:	JJ
;
; Input:	A = error code to test
;		P = nvmxdizc
;		    ..000...
;
; Output:	A = error code to test
;		P = nvmxdizc
;		    ..000.|.
;			  z = 0, error is not a	bouncing error
;			  z = 1, error is a bouncing error
;===============================================================================

is_bouncer	proc

		sep	#$20			;only compare low byte
		longa	off
		cmp	#vol_not_found
		beq	is_bounce
		cmp	#unknown_vol
		beq	is_bounce
		cmp	#bad_path_syntax
		beq	is_bounce
		cmp	#bad_system_call
		beq	is_bounce
		cmp	#invalid_pcount
		beq	is_bounce
		cmp	#not_block_dev
		beq	is_bounce
		cmp	#network_error
*		beq	is_bounce

not_bounce

is_bounce
		rep	#$20			;back to 16-bit accumulator
		longa	on
		rts

		end_proc

		eject
;===============================================================================
; call_fst:	Perform	all of the processing needed to	call an	individual FST
;		designated by the offset of the	base of	its entry in the
;		FST Table (0, 16, 32,...).  This routine sets up the proper
;		environment for	the
;		FST and	saves and restores its own environment around the FST
;		call.  It assumes the FST call parameters on direct page are
;		already	set up.
;
; Created:	5/11/87
; Modified:	6/5/87
;		7/31/87	 Changed definition of A register input.
; Author:	JJ
;
; Enter:	jsr	call_fst
;
; Input:	A = offset of the FST's entry in the FST table
;		P = nvmxdizc
;		    ..000...
;
; Output:	A = if c=0, undefined; if c=1, error code
;		    relays the error code returned by the FST
;
;		X = trashed
;		Y = trashed
;		P = nvmxdizc
;		    ..000..|
;			   0=no	error, 1=error
;
; Side effects:	The called FST performs	the call if it can.
;===============================================================================
call_fst	proc
		entry	return_from_fst
		import	save_s
;
; Set up pathname translation jump vector to the FST's application entry point.
;
		tax

		lda	|fst_tbl+app_entry,x	;get application entry point
		sta	|jump_vector+1		;... and set up jump vector for
		lda	|fst_tbl+app_entry+1,x	;... later jump to FST
		sta	|jump_vector+2
;
; Prepare to call the FST
;
	if do_force_lock=0 then
		jsl	force_lock		;lock all of GS/OS memory for the FST
	endif
		phd				;save D
		tsc				;save S
		sta	|save_s
		ldx	|num			;X = 2*call_number
		ldy	|class			;Y = 2*subclass
;
; pass control to the FST
;
jump_vector	jmp	>$000000		;code above modifies this jump address

return_from_fst					;FST returns here by way of vector in
					 	;... system service entry point table
;
; Restore DBR to proper	value
;
		phk
		plb
;
; Handle the error returned by the FST
;
		rep	#mx16			;force full native mode
		bcs	ar1			;branch	if FST returned an error
		lda	#$0000			;if no error, force A to 0
ar1
*	and	#$00FF			;force high byte of error number to 0
;
; Restore registers
;
		ldx	|save_s			;restore S
		txs
		pld				;restore D
	if do_force_lock=0 then
		pha				;save error code
		jsl	force_unlock		;unlock our memory again
		pla				;restore error code
	endif
;
; Set c	bit according to error number, which is	still in A
;
		cmp	#$0001			;set c bit according to error number

		rts

		end_proc

		eject
;===============================================================================
; do_type_0
;
; Handle calls with call type of zero.	This is	a system error condition.
;===============================================================================

do_type_0	proc

		jsr	>s_sys_death

		end_proc
		eject
;===============================================================================
; do_type_1
;
; Handle read_block and	write_block calls.  These are unconditionally passed
; to the ProDOS	FST, if	it exists.
;===============================================================================

do_type_1	proc

		lda	|prodos_index		;get index number of ProDOS FST
		cmp	#$FFFF			;does ProDOS FST exist
		beq	no_prodos

		jmp	call_fst		;call the ProDOS FST, return from there

no_prodos	lda	#os_unsupported		;indicate that ProDOS FST is unavailable
		sec
		rts

		end_proc
		eject
;==============================================================================
; cmp_11_12
;
; Compares contents of prefixes 11 and 12.
;
; Created:	9/1/91
; Modified:
; Author:	GAB
;
; Output:	P = nvmxdizc
;		    ..000.|.
;			  z = 0, prefixes are not equal
;			  z = 1, prefixes are equal
;===============================================================================

cmp_11_12	Proc				;compare prefix 11 to prefix 12
		Import	string_compare,case_mask

		lda	#11			;get the pointer to prefix 11
		jsr	get_pfx
		pei	m_temp+2		;save pointer
		pei	m_temp
		lda	#12			;now get the pointer to prefix 12
		jsr	get_pfx
		pla				;restore prefix 11 pointer
		sta	ptr
		pla
		sta	ptr+2
		lda	#$0020			;set flag for case-insensitive compare
		sta	case_mask
		jsr	string_compare		;compare dem strings
		rts				;return with proper Z flag

		end_proc

		eject
*******************************************************************************
* FST Table Data Structures
*
* NOTE:	 The equates in	this record are	commented out and are here for 
*	 documentation purposes	only.  The actual definitions are at the start
*	 of this file.
*
* WARNING:  This data MUST reside in non-language-card memory so that the
*	    Init Mgr can access it to build it's FST list.
*
*******************************************************************************

fst_tbl_data	proc

		entry	fst_entry_size
		entry	fst_count
		entry	fst_tbl
		entry	prodos_index
		entry	char_index
		entry	curr_fst
		entry	last_fst
		entry	fst_flags

;max_fsts	equ	16		;maximum number	of FSTs allowed

; offsets of fields within an FST Table	entry

;fst_hdr_ptr	equ	0		;pointer to FST header
;app_entry	equ	fst_hdr_ptr+4	;address of FST's application entry pt
;sys_entry	equ	app_entry+4	;address of FST's system entry point
;id		equ	sys_entry+4	;FST id value
;s_flags	equ	id+2		;flags
					;bit 15=0, do not upper case pathnames
					;      =1, force upper case in pathnames
					;bit 14=0, the FST is a block FST
					;      =1, the FST is a character FST

;entry_size	equ	s_flags+2
;table_size	equ	max_fsts*entry_size

fst_entry_size	dc.w	entry_size		;word containing size of each entry
fst_count	ds.b	2			;current number	of FSTs in table
fst_tbl		ds.b	table_size		;the FST Table

prodos_index	dc.w	0000			;index of entry for ProDOS FST
char_index	dc.w	0000			; index of entry for Char FST
						; =$FFFF if there is no ProDOS or Char FST

;init_fst	equ	$0002			;code to init FST call
;kill_fst	equ	$0004			;code to shtdwn of FST
;kill_vcr	equ	$0006			;code to free FST specific data from VCR
;flush_def	equ	$0008			;code to flush deferred	blks on a VCR

curr_fst	dc.w	0000			;offset of table entry for FST
						;...to be called next
last_fst	dc.w	0000			;offset	of byte just past end
						;...of FST table
fst_flags	dc.w	0000			;FST's pathname translation attributes

		end_proc
		eject
*******************************************************************************
*
* Miscellaneous Data 
*
* NOTE:	 The equates in	this record are	commented out and are here for 
*	 documentation purposes	only.  The actual definitions are at the start
*	 of this file.
*
*******************************************************************************

misc_data	proc

		entry	hs_fst_flag
		entry	iso_fst_header
		entry	iso_fst_id
		entry	std_ref_num
		entry	std_prefix_num
		entry	last_ref_num
		entry	volume_parms
		entry	volume_name
		entry	device_name
		entry	dev_name_length
		entry	case_mask2
		entry	fork_num	
		entry	case_sense
		entry	displacement
		entry	fcr_index
		entry	found_count
		entry	patch_state
		entry	num
		entry	class
		entry	type
		entry	script_start
		entry	script_current
		entry	save_s
		entry	xlate_count
		entry	xlate_type
		entry	cont_offset
		entry	str_len
		entry	prefix_number
		entry	default_prefix
		entry	fstError
		entry	first_fst
		entry	volname_vp
		entry	volname_ptr
		entry	v_ptr1
		entry	v_ptr2
		entry	partial_len
		entry	save_control
		entry	char_mask
		entry	handler_addr
		entry	s_level
*
* The following table holds the ref_nums for standard prefixes 10,11 & 12. A
* value of zero means that the ref_num is undefined.  The two words following
* the table are used to know when and how to update the table.
*
		entry	stdin_refnum,stdout_refnum,stderr_refnum
std_ref_num
stdin_refnum	dc.w	0000			;Ref_num for prefix 10.
stdout_refnum	dc.w	0000			;Ref_num for prefix 11.
stderr_refnum	dc.w	0000			;Ref_num for prefix 12.

std_prefix_num	dc.w	0000			;Standard prefix number.
last_ref_num	dc.w	0000			;Last reference #.
*
* The following data is used to simulate an ISO 9660 FST.  The hs_fst_flag is
* set by add_fst when the High Sierra FST is added, and the iso_fst_header is
* updated at the same time by copying the High Sierra FST header (up to the
* name length) onto it...
*
		
hs_fst_flag	dc.w	0000			;1 = High Sierra FST loaded.
						;Set by add_fst.
						
iso_fst_header	dc.b	'FST '			;Load identification (4 bytes).
		dc.l	00000000		;Entry point for application calls.
		dc.l	00000000		;Entry point for system calls.
iso_fst_id	dc.w	$000C			;ISO 9660 ID.
		dc.w	$9800			;Flags: uppercase, clear msb.,read-only
		dc.w	$8201			;Version 2.01, development
		dc.w	$800			;Normal block size.   (2k)
		dc.l	$57800			;Maximum blocks/volume. (700Mb)
		dc.l	4			;Minimum blocks/volume. (8k)
		dc.l	$2bbf7800		;Maximum file size.   (699.97Mb)
		dc.l	00000000		;Reserved.
		dc.b	8			;Length of FST name.
		dc.b	'ISO 9660'		;Text of FST name.
*
* The following data is used in the expand_path call to simulate a volume call
* so we can return the volume name when a device name/number begins the path...
*
volume_parms	dc.w	2			;Pcount.
		dc.l	device_name		;Pointer to device name.
		dc.l	volume_name		;Pointer to volume name output.

volume_name	dc.w	50			;Length of output buffer.
device_name	ds.b	48			;Input AND output buffer.

dev_name_length	dc.w	0000			;Temp storage for name length.
case_mask2	dc.w	0000			;Mask for volume name copy.

*
* The following are state variables for the get_ref_num call...
*
fork_num	dc.w	0000			;0 = data, 1 = resource.
case_sense	dc.w	0000			;0 = insensitive, 1 = sensitive
displacement	dc.w	0000			;0 = count 'em, else find Nth.
fcr_index	dc.w	0000			;Current FCR index.
found_count	dc.w	0000			;Count of matching paths.

*
* The following variable indicates whether or not the interrupt_patch is
* currently installed in the main interrupt vector...
*
patch_state	dc.w	0000			;0=not installed, 1=installed

*
* The following data came from call_proc_data...
*

		Export	num,class		;for use by Init Mgr
num		DC.W	0000			;2 * primary call number
class		DC.W	0000			;2 * subclass number
type		DC.W	0000			;2 * call type
script_start	DC.W	0000			;pointer to beginning of call's script
script_current	DC.W	0000			;pointer to current entry in script

		entry	save_script_start
save_script_start dc.w	0000			;used to save script start around rename_preamble

save_s		DC.W	0000			;save value of S before	calling FST

xlate_count	DC.W	0000			;during pathname translation, this
						;...variable indicates whether the
						;...first, second, etc. pathname in the
						;...given parameter block is being
						;...translated
xlate_type	DC.W	0000			;translation type
						;$0000=translation for 'normal' call
						;$0001=translation for set_prefix call

cont_offset	DC.W	0000			;temporary value indicating where to
						;continue processing a pathname after
						;calling another procedure
str_len		DC.W	0000			;string length of pathname or part of
						;pathname during pathname translation

prefix_number	DC.W	0000			;prefix number determined from prefix
						;designator
default_prefix	DC.W	0000			;default prefix number to be used in
						;xlate_path when it processes a partial
						;pathname without a prefix designator

fstError	DC.W	0000			;error code returned by FST deemed most
						;...likely to handle the call
first_fst	DC.W	0000			;FST table index of FST deemed most
						;...likely to handle the call. It is
						;...called before any other FST.
volname_vp	DC.L	00000000		;temporary vp to volume name used by
						;...do_type_2
volname_ptr	DC.L	00000000		;temporary ptr to volume name used by
						;...do_type_2
v_ptr1		DC.L	00000000		;temporary virtual pointers used during
v_ptr2		DC.L	00000000		;...pathname translation
		entry	path1_v_ptr		;used only during ChangePath
path1_v_ptr	ds.l	1

partial_len	DC.W	0000			;length of partial pathname during
						;pathname translation
save_control	DC.B	00			;controlling separator for the pathname
char_mask	DC.B	00			;mask for all pathname characters
handler_addr	DC.L	00000000		;address of routine that processes the
						;current system call
s_level		DC.W	0000			;level variable	used to communicate
						;...between the do_type_6 and do_type_3

		entry	dev_status
dev_status	dc.w	0000			;used for result of device status call

		entry	do_runq
do_runq		dc.w	0			;flag set by s_mount_msg to use a
						;  RunQ handler to recognize a disk
						;  insertion.
		entry	io_flag
io_flag		dc.w	0			;bit flags for fast character I/O

		entry	gsos_id
gsos_id		DC.W	0

		entry	SizeRect
SizeRect	DC.W	0,0,200,640		;RECT used by os_shutdown

		end_proc

		eject
*******************************************************************************
*
* End miscellaneous segment: $00B300-globals_end (~$00B9EE)
*
*******************************************************************************

		freespace	SCM segment 1,seg_1_start,seg_1_max,&segment_pc

		eject
*******************************************************************************
*
* Begin scm_main segment: $00D000-00FFFF
*
		SEG	'scm_main'		;Becomes scm_seg_2
		resetpc				;Reset counter.
*
*******************************************************************************
		eject
;===============================================================================
; System Call Information Tables
;===============================================================================

sys_call_info	proc

;===============================================================================
; info_ptr table:  top level table for accessing system	call information
;
; The first word of this table holds a value one greater than the highest legal
; system call number.  The rest	of the table has a pointer for each system call
; to the descriptor table entry	for the	call.  A call is illegal if 1) the call 
; number is zero, 2) the call number is	greater	than or	equal to the value in
; the first word of the	table, 3) its table entry is zero, or 4) the high byte
; of the call number is	$01, indicating	a call that should have	been handled by
; APW.
;===============================================================================

		entry	info_ptr
		entry	end_info_ptr
		entry	ctype_vector
		entry	path_script

		import	new_volume_call

info_ptr	DC.W	(end_info_ptr-info_ptr)/2 ;number of vectors in	table + 1

		DC.W	create			;$01-create
		DC.W	destroy			;$02-destroy
		DC.W	s_os_shutdown		;$03-os_shutdown
		DC.W	change_path		;$04-change_path
		DC.W	set_file_info		;$05-set_file_info
		DC.W	s_get_file_info		;$06-get_file_info
		DC.W	s_judge_name		;$07-JudgeName
		DC.W	volume			;$08-volume
		DC.W	s_set_prefix		;$09-set_prefix
		DC.W	s_get_prefix		;$0A-get_prefix
		DC.W	clear_backup		;$0B-clear_backup_bit
		DC.W	s_set_sys_prefs		;$0C-set_sys_prefs
		DC.W	s_null			;$0D-null
		DC.W	s_expand_path		;$0E-expand_path
		DC.W	s_get_sys_prefs		;$0F-get_sys_prefs

		DC.W	s_open			;$10-open
		DC.W	s_newline		;$11-newline
		DC.W	s_read			;$12-read
		DC.W	write			;$13-write
		DC.W	s_close			;$14-close
		DC.W	flush			;$15-flush
		DC.W	set_mark		;$16-set_mark
		DC.W	get_mark		;$17-get_mark
		DC.W	set_eof			;$18-set_eof
		DC.W	s_get_eof		;$19-get_eof
		DC.W	s_set_level		;$1A-set_level
		DC.W	s_get_level		;$1B-get_level
		DC.W	get_dir_entry		;$1C-get_dir_entry
		DC.W	s_begin_session		;$1D-begin_session
		DC.W	s_end_session		;$1E-end_session
		DC.W	s_session_stat		;$1F-session_status

		DC.W	get_dev_num		;$20-get_dev_number
		DC.W	get_last_dev		;$21-get_last_dev
		DC.W	read_block		;$22-read_block
		DC.W	write_block		;$23-write_block
		DC.W	s_format		;$24-format
		DC.W	s_erase_disk		;$25-erase_disk
		DC.W	s_reset_cache		;$26-reset_cache
		DC.W	s_get_name		;$27-get_name
		DC.W	s_get_boot_vol		;$28-get_boot_bol
		DC.W	s_quit			;$29-quit
		DC.W	s_get_version		;$2A-get_version
		DC.W	s_get_fst_info		;$2B-get_fst_info
		DC.W	s_d_info		;$2C-d_info
		DC.W	s_d_status		;$2D-d_status
		DC.W	s_d_control		;$2E-d_control
		DC.W	s_d_read		;$2F-d_read

		DC.W	s_d_write		;$30-d_write
		DC.W	s_alloc_int		;$31-alloc_interrupt
		DC.W	s_dealloc_int		;$32-dealloc_interrupt
		DC.W	fst_specific		;$33-fst_specific_call
		dc.w	s_add_queue		;$34-add_to_queue
		dc.w	s_delete_queue		;$35-delete_from_queue
		dc.w	s_d_rename		;$36-d_rename
		dc.w	s_get_std_ref		;$37-get_std_ref_num
		dc.w	s_get_ref_num		;$38-get_ref_num
		dc.w	s_get_ref_info		;$39-get_ref_info
		dc.w	s_set_std_ref		;$3A-set_std_ref_num

end_info_ptr

;===============================================================================
; Call Descriptor Table
;
; This table describes aspects of each system call that	are relevant for call
; preprocessing	by the System Call Manager.  Words in the info_ptr table point
; to this table.  This table is	formatted as follows:
;
; Top level locations in the table (e.g. create) are tables of pointers	to
; lower	level structures in the	table.	Each top level structure corresponds to
; one system call.  The	first byte is one greater than the maximum class number 
; for the call.	 This is followed by a word for	each subclass in the range from
; 0 to the maximum subclass number (one	less than the value in the first word).
; A value of zero in a subclass	word indicates that the	given subclass does not
; exist.  A value other	than zero is a pointer to a table of information that
; completely describes the call.  The descriptor table consists	of a series of
; entries (a script), each element of which is defined as follows:
;
; 76543210  Meaning
;
; 00000000  End	of script
; 0001xxxx  Specifies the call type.  The two bytes immediately	following this
;	    code contain the call type premultiplied by	2 to serve as an index
;	    into the ctype_vector table.  xxxx is undefined.
; 0010vvvv  Minimum parameter count for	the given call and subclass is vvvv
; 0011vvvv  There is a pathname	pointer	at offset vvvv in the parameter	block
;	    corresponding to a pathname	input
; 0100vvvv  There is a reference number	input at offset	vvvv in	the parameter
;	    block
; 0101vvvv  There is a pathname	pointer	at offset vvvv in the parameter	block
;	    corresponding to a pathname	output.
; 0110vvvv  Maximum parameter count for	the given call and subclass is vvvv
; 1110xxxx  Execute a special processing routine whose address is contained in
;	    the	following 3 bytes.  xxxx is undefined
; 1111oooo  Escape to alternate	script opcode number oooo.
;
;	    Remaining values are reserved
;===============================================================================

;don't expand the macros.  makes the listing really messy ;-)
		print	push
		print	nogen

create		classes	2			;$01
		info_at	create0
		info_at	create1
create0		ctype	2
		pathptr	0
		end_script
create1		ctype	2
		pcount	1
		pathptr	2
		end_script

destroy		classes	2			;$02
		info_at	destroy0
		info_at	destroy1
destroy0	ctype	2
		pathptr	0
		end_script
destroy1	ctype	2
		pcount	1
		pathptr	2
		end_script

s_os_shutdown	classes	2			;$03
		no_such_class
		info_at	s_os_shutdown1
s_os_shutdown1	ctype	4
		pcount	1
		maxpcnt	1
		exec	os_shutdown
		end_script

change_path	classes	2			;$04
		info_at	change_path0
		info_at	change_path1
change_path0	ctype	2
		pathptr	0
		pathptr	4
		end_script
change_path1	ctype	2
		pcount	2
		pathptr	2
		pathptr	6
		end_script

set_file_info	classes	2			;$05
		info_at	set_file_info0
		info_at	set_file_info1
set_file_info0	ctype	2
		pathptr	0
		end_script
set_file_info1	ctype	2
		pcount	2
		pathptr	2
		end_script

s_get_file_info	classes	2			;$06
		info_at	get_file_info0
		info_at	get_file_info1
get_file_info0	ctype	2
		pathptr	0
		end_script
get_file_info1	ctype	2
		pcount	2
		pathptr	2
		end_script

s_judge_name	classes	2			;$07
		no_such_class
		info_at	s_judge_name1
s_judge_name1	ctype	4
		pcount	3
		maxpcnt	6
		outpath	12
		exec	do_judgename
		end_script

volume		classes	2			;$08
		info_at	volume0
		info_at	volume1
volume0		ctype	2
		pathptr	0
		outpath	4
		end_script
volume1		ctype	4
		pcount	2
		maxpcnt	8
		pathptr	2
		outpath	6
		exec	new_volume_call
		end_script

s_set_prefix	classes	2			;$09
		info_at	set_prefix0
		info_at	set_prefix1
set_prefix0	ctype	4
		pathptr	2
		exec	set_prefix
		end_script
set_prefix1	ctype	4
		pcount	2
		maxpcnt	2
		pathptr	4
		exec	set_prefix
		end_script

s_get_prefix	classes	2			;$0A
		info_at	get_prefix0
		info_at	get_prefix1
get_prefix0	ctype	4
		outpath	2
		exec	get_prefix
		end_script
get_prefix1	ctype	4
		pcount	2
		maxpcnt	2
		outpath	4
		exec	get_prefix
		end_script

clear_backup	classes	2			;$0B
		info_at	clear_backup0
		info_at	clear_backup1
clear_backup0	ctype	2
		pathptr	0
		end_script
clear_backup1	ctype	2
		pcount	1
		pathptr	2
		end_script

s_set_sys_prefs	classes	2			;$0C
		no_such_class
		info_at	set_sys_prefs1
set_sys_prefs1	ctype	4
		pcount	1
		maxpcnt	1
		exec	set_sys_prefs
		end_script

s_null		classes	2			;$0D
		no_such_class
		info_at	null1
null1		ctype	4
		maxpcnt	0
		exec	null_call
		end_script

s_expand_path	classes	2			;$0E
		no_such_class
		info_at	expand_path_1
expand_path_1	ctype	4
		pcount	2
		maxpcnt	3
		pathptr	2
		outpath	6
		exec	expand_path
		end_script

s_get_sys_prefs	classes	2			;$0F
		no_such_class
		info_at	get_sys_prefs1
get_sys_prefs1	ctype	4
		pcount	1
		maxpcnt	1
		exec	get_sys_prefs
		end_script

s_open		classes	2			;$10
		info_at	open0
		info_at	open1
open0		ctype	2
		pathptr	2
		end_script
open1		ctype	2
		pcount	2
		pathptr	4
		end_script

s_newline	classes	2			;$11
		info_at	newline0
		info_at	newline1
newline0	ctype	4
		refnum	0
		exec	newline
		end_script
newline1	ctype	4
		pcount	4
		maxpcnt	4
		refnum	2
		exec	newline
		end_script

s_read		classes	2			;$12
		info_at	read0
		info_at	read1
read0		ctype	3
		refnum	0
		pathptr	2
		end_script
read1		ctype	3
		pcount	4
		refnum	2
		pathptr	4
		end_script

write		classes	2			;$13
		info_at	write0
		info_at	write1
write0		ctype	3
		refnum	0
		pathptr	2
		end_script
write1		ctype	3
		pcount	4
		refnum	2
		pathptr	4
		end_script

s_close		classes	2			;$14
		info_at	close0
		info_at	close1
close0		ctype	6
		end_script
close1		ctype	6
		pcount	1
		end_script

flush		classes	2			;$15
		info_at	flush0
		info_at	flush1
flush0		ctype	6
		end_script
flush1		ctype	6
		pcount	1
		end_script

set_mark	classes	2			;$16
		info_at	set_mark0
		info_at	set_mark1
set_mark0	ctype	3
		refnum	0
		end_script
set_mark1	ctype	3
		pcount	3
		refnum	2
		end_script

get_mark	classes	2			;$17
		info_at	get_mark0
		info_at	get_mark1
get_mark0	ctype	3
		refnum	0
		end_script
get_mark1	ctype	3
		pcount	2
		refnum	2
		end_script

set_eof		classes	2			;$18
		info_at	set_eof0
		info_at	set_eof1
set_eof0	ctype	3
		refnum	0
		end_script
set_eof1	ctype	3
		pcount	3
		refnum	2
		end_script

s_get_eof	classes	2			;$19
		info_at	get_eof0
		info_at	get_eof1
get_eof0	ctype	3
		refnum	0
		end_script
get_eof1	ctype	3
		pcount	2
		refnum	2
		end_script

s_set_level	classes	2			;$1A
		info_at	set_level0
		info_at	set_level1
set_level0	ctype	4
		exec	set_level
		end_script
set_level1	ctype	4
		pcount	1
		maxpcnt	2
		exec	set_level
		end_script

s_get_level	classes	2			;$1B
		info_at	get_level0
		info_at	get_level1
get_level0	ctype	4
		exec	get_level
		end_script
get_level1	ctype	4
		pcount	1
		maxpcnt	2
		exec	get_level
		end_script

get_dir_entry	classes	2			;$1C
		info_at	get_dir_entry0
		info_at	get_dir_entry1
get_dir_entry0	ctype	3
		refnum	0
		end_script
get_dir_entry1	ctype	3
		pcount	5
		refnum	2
		end_script

s_begin_session	classes	2			;$1D
		no_such_class
		info_at	beg_session1
beg_session1	ctype	4
		maxpcnt	0
		exec	begin_session
		end_script

s_end_session	classes	2			;$1E
		no_such_class
		info_at	end_session1
end_session1	ctype	4
		maxpcnt	0
		exec	end_session
		end_script

s_session_stat	classes	2			;$1F
		no_such_class
		info_at	session_stat1
session_stat1	ctype	4
		pcount	1
		maxpcnt	1
		exec	session_status
		end_script

get_dev_num	classes	2			;$20
		info_at	get_dev_num0
		info_at	get_dev_num1
get_dev_num0	ctype	2
		pathptr	0
		end_script
get_dev_num1	ctype	2
		pcount	2
		pathptr	2
		end_script

get_last_dev	classes	1			;$21
		info_at	get_last_dev0
get_last_dev0	ctype	4
		exec	do_get_last_dev
		end_script

read_block	classes	1			;$22
		info_at	read_block0
read_block0	ctype	1
		refnum	0
		end_script

write_block	classes	1			;$23
		info_at	write_block0
write_block0	ctype	1
		refnum	0
		end_script

s_format	classes	2			;$24
		info_at	format0
		info_at	format1
format0		ctype	7
		pathptr	0
		pathptr	4
		end_script
format1		ctype	7
		pcount	1
		maxpcnt	6
		pathptr	2
*		pathptr	6
		end_script

s_erase_disk	classes	2			;$25
		info_at	erase_disk0
		info_at	erase_disk1
erase_disk0	ctype	7
		pathptr	0
		pathptr	4
		end_script
erase_disk1	ctype	7
		pcount	1
		maxpcnt	6
		pathptr	2
*		pathptr	6
		end_script

s_reset_cache	classes	2			;$26
		no_such_class
		info_at	reset_cache_1
reset_cache_1	ctype	4
		maxpcnt	0
		exec	reset_cache
		end_script

s_get_name	classes	2			;$27
		info_at	get_name0
		info_at	get_name1
get_name0	ctype	4
		pathptr	0
		exec	get_name
		end_script
get_name1	ctype	4
		pcount	1
		maxpcnt	2
		pathptr	2
		exec	get_name
		end_script

s_get_boot_vol	classes	2			;$28
		info_at	get_boot_vol0
		info_at	get_boot_vol1
get_boot_vol0	ctype	4
		outpath	0
		exec	get_boot_vol
		end_script
get_boot_vol1	ctype	4
		pcount	1
		maxpcnt	1
		outpath	2
		exec	get_boot_vol
		end_script

s_quit		classes	2			;$29
		info_at	quit0
		info_at	quit1
quit0		ctype	4
		exec	do_quit
		end_script
quit1		ctype	4
		maxpcnt	2
		exec	do_quit
		end_script

s_get_version	classes	2			;$2A
		info_at	get_version0
		info_at	get_version1
get_version0	ctype	4
		exec	get_version
		end_script
get_version1	ctype	4
		pcount	1
		maxpcnt	1
		exec	get_version
		end_script

s_get_fst_info	classes	2			;$2B
		no_such_class
		info_at	get_fst_info1
get_fst_info1	ctype	4
		pcount	2
		maxpcnt	8
		exec	get_fst_info
		end_script

s_d_info					;$2C
;		classes	2
;		info_at	d_info0
;		info_at	d_info1
;d_info0	ctype	5
;		dnum	0
;		outpath	2
;		end_script
;d_info1	ctype	5
;		pcount	2
;		dnum	2
;		outpath	4
;		end_script

s_d_status					;$2D
;		classes	2
;		no_such_class
;		info_at	d_status1
;d_status1	ctype	5
;		pcount	5
;		dnum	2
;		end_script

s_d_control					;$2E
;		classes	2
;		no_such_class
;		info_at	d_control1
;d_control1	ctype	5
;		pcount	5
;		dnum	2
;		end_script

s_d_read					;$2F
;		classes	2
;		no_such_class
;		info_at	d_read1
;d_read1	ctype	5
;		pcount	6
;		dnum	2
;		end_script

s_d_rename					;Dummy entry. ($36)
s_d_write					;$30
;		classes	2
;		no_such_class
;		info_at	d_write1
;d_write1	ctype	5
;		pcount	6
;		dnum	2
;		end_script

s_alloc_int	classes	2			;$31
		info_at	alloc_int0
		info_at	alloc_int1
alloc_int0	ctype	4
		pathptr	2
		exec	alloc_int
		end_script
alloc_int1	ctype	4
		pcount	3
		maxpcnt	3
		pathptr	6
		exec	bind_int
		end_script

s_dealloc_int	classes	2			;$32
		info_at	dealloc_int0
		info_at	dealloc_int1
dealloc_int0	ctype	4
		refnum	0
		exec	dealloc_int
		end_script
dealloc_int1	ctype	4
		pcount	1
		maxpcnt	1
		refnum	2
		exec	unbind_int
		end_script

fst_specific	classes	2			;$33
		no_such_class
		info_at	fst_specific1
fst_specific1	ctype	4
		pcount	2
		refnum	2
		exec	fst_spec
		end_script


s_add_queue	classes	2			;$34
		no_such_class
		info_at	s_add_queue1
s_add_queue1	ctype	4
		pcount	1
		maxpcnt	1
		exec	os_add_queue
		end_script


s_delete_queue	classes	2			;$35
		no_such_class
		info_at	s_delete_queue1
s_delete_queue1	ctype	4
		pcount	1
		maxpcnt	1
		exec	os_delete_queue
		end_script

;d_rename					;$36

s_get_std_ref	classes	2			;$37
		no_such_class
		info_at	get_std_ref1
get_std_ref1	ctype	4
		pcount	2
		maxpcnt	2
		exec	get_std_ref_num
		end_script

s_get_ref_num	classes	2			;$38
		no_such_class
		info_at	get_ref1
get_ref1	ctype	4
		pcount	2
		maxpcnt	6
		pathptr	2
		exec	get_ref_num
		end_script

s_get_ref_info	classes	2			;$39
		no_such_class
		info_at	get_ref_info1
get_ref_info1	ctype	4
		pcount	2
		maxpcnt	5
		exec	get_ref_info
		end_script

s_set_std_ref	classes	2			;$3A
		no_such_class
		info_at	set_std_ref1
set_std_ref1	ctype	4
		pcount	2
		maxpcnt	2
		exec	set_std_ref_num
		end_script

path_script	pathptr	2
		end_script
		
		print	pop

;===============================================================================
; Call Type Vector Table
;
; Each call has	a type specified by the	ctype field in the Call	Descriptor
; Table.  The value in this field is an	index number into the Call Type	Vector
; Table.  Each entry in	this table is the two byte address of a	routine	that
; performs tasks specific to the calls of the given type.
;===============================================================================

ctype_vector	DC.W	do_type_0		;not a legal type
		DC.W	do_type_1		;read_block and write_block
		DC.W	do_type_2		;FST bouncing calls w/pathname parms
		DC.W	do_type_3		;file access using refnums
		DC.W	do_type_4		;calls requiring unique processing
		DC.W	do_type_5		;d_info, d_status, etc.
		DC.W	do_type_6		;flush & close
		DC.W	do_type_7		;format & erase_disk
;		 aif	  not debug_calls,.dt
;		 dc	 i2'debug'	 ;The debug call
;.dt		 anop

		end_proc
		eject
;===============================================================================
; Initialize the System	Call Manager
;===============================================================================

;===============================================================================
; init_scm:  Initialize	the System Call	Manager
;
; This routine initializes the state of	the System Call	Manager.  Therefore, it
; must be executed before making any GS/OS system calls.
;
; Created:	4/22/87
; Modified:	11/17/88
; Author:	JJ
;
; Enter:	jsl	init_scm
;
; Input:	P = nvmxdizc
;		    ..000...
;
; Output:	P = nvmxdizc
;		    ..000..|
;			   0=no	error, 1=error
;===============================================================================

init_scm	proc


ocjml		equ	$5C			;opcode of the jml instruction

		phb				;save DBR
		phk				;set DBR to value in PBR
		plb

		lda	#fst_count		;Set fst_tbl_ptr for Ray's DA.
		sta	fst_tbl_ptr
		lda	#fst_count>>16
		sta	fst_tbl_ptr+2		
	
		lda	#set_user_level		;Init system level.
		sta	|system_level

		lda	#default_prefs		;set default system behavior
		sta	>sys_prefs		;...preferences

		lda	#session_off		;indicate no session in progress
		sta	>session_stat

		lda	#is_inactive		;indicate that GS/OS is inactive, i.e.
		and	>active_flag		;... no GS/OS call in progress
		sta	>active_flag

		lda	#ocjml			;place jml opcode as first byte of each
		sta	>pro16mli		;... GS/OS entry vector
		sta	>stkpro16mli

		lda	#inline_entry		;insert	inline entry address in next
		sta	>pro16mli+1		;... three bytes of the vector
		lda	#inline_entry>>8
		sta	>pro16mli+2

		lda	#stack_entry		;insert stack entry address in next
		sta	>stkpro16mli+1		;... three bytes of the vector
		lda	#stack_entry>>8
		sta	>stkpro16mli+2
*
* At this point we need to conditionally call init code based on the state of
* the warm_cold_flag...
*
		lda	>warm_cold_flag		;Warm startup?
		bne	do_cache		;Yes, skip ahead.
		
		jsr	init_fst_tbl		;initialize the FST Table
		bcs	error_exit

		jsl	init_gim
		bcs	error_exit

do_cache	jsl	cache_init		;initialize the cache
		bcs	error_exit

		jsr	init_int		;initialize the interrupt manager
		bcs	error_exit

		jsr	init_signal
*		bcs	error_exit
*
*normal_exit					;indicate no error

error_exit					;indicate error
		plb				;restore value of DBR
		rtl

		end_proc
		eject
;===============================================================================
; shutdown_scm:	 Shutdown the System Call Manager
;
; This routine does a complete shut down of the	System Call Manager.  All memory
;  used	by the SCM is released,	the ID is returned, all	FSTs are shutdown and
;  the memory released,	and the	cache is shut down.  If	errors occur they are
;  ignored.
;
; Created:	December 18, 1987
; Modified:
; Author:	MSA
;
; Enter:	jsl	shutdown_scm
;
;		warm_cold_flag		;0 = cold, 1 = warm.
;
; Input:	P = nvmxdizc
;		    ..000...
;
; Output:	P = nvmxdizc
;		    ..000...
;
;===============================================================================

shutdown_scm	proc

*
* Set data bank to program bank...
*
		phb
		phk
		plb
*
* Shutdown the signal dispatcher heartbeat task and make sure we are out of
* the main interrupt vector...
*
		pea	signal_beat>>16		;Shut off heartbeat.
		pea	signal_beat
		_DelHeartBeat
		
		jsr	remove_int_vec		;Make sure we're out.
*
* We also need to release all VCRs...
*
vcr_loop	lda	#0001			;Set to get first VCR.
		jsl	getvcr			;Get a VP to a VCR. Done all?
		bcs	fsts			;Yep, so continue on.
		jsr	deref2_vp		;No, put pointer into dirpg vcr
		ldy	#vcr_id			;Now release VCR.
		lda	[<vcr],y
		jsl	alt_rel_vcr
		bra	vcr_loop		;Go do next one.
*
* Now let's loop thru all the fsts and do a shutdown call...
*
fsts		lda	|last_fst
fst_loop
		sec				;Walk back to another FST
		sbc	|fst_entry_size
		tax
		phx				;Keep the index for later

		lda	#kill_fst
		jsr	do_fst
*
* If we're doing a warm shutdown, release the memory for the fst...
*
		lda	>warm_cold_flag		;Warm shutdown?
		bne	next			;Yes, so don't release mem.

		lda	|jump_v+3		;Push address
		and	#$00FF			;Isolate bank
		tay
		ldx	|jump_v+1
		jsr	do_usd			;Release this FST

next		pla				;Get back the old index
		bne	fst_loop		;Back for another FST
*
* Shut down the	cache...
*
		jsl	>cash_shutdown
*
* If we're doing a cold shutdown, dispose of all GS/OS managed memory.
* We're done if not...
*
		lda	>warm_cold_flag		;Warm shutdown?
		bne	exit			;Yes, so don't release mem.

		lda	|gsos_id
		pha
		_DisposeAll

		lda	|gsos_id
		pha
		_DeleteID

exit		plb				;Restore data bank.
		rtl


do_usd						;X,Y address of segment to unload

; First	use findHandle to ascertain the	handle for this	segment

		pha				;Push space for result
		pha				;Push more space for result

		phy				;Push the address hi
		phx				; and low
		_FindHandle			;Do it
		PullLong <s_temp1		;Shove handle into s_temp1

; Now sneak a peak at the userID so that we can	make a call to UserShutdown

		ldy	#$0006
		lda	[<s_temp1],y		;Got ID
		pha				;Space for result
		pha				;Push ID
		pea	0000			;Push flags
		_UserShutdown
		pla				;Pull off result and ignore

		rts

		end_proc
		eject
*******************************************************************************
*
*        Name:	close_all_files
*
* Description:	Forces all files to be closed.
*
*      Author:	Bryan Atsatt
*     Created:	April 2, 1989
*    Modified:	
*
*       Entry:	jsl
*
*       Input:  A = undefined
*               X = undefined
*               Y = undefined.
*               P = nvmxdizc
*		    ..000...
*
*      Output:  A = undefined
*               X = undefined
*               Y = undefined
*               P = nvmxdizc
*		    ..000..x
*
*        Exit:	rtl
*
*        Uses:	end_session
*		do_all
*		num
*
* Copyright Apple Computer, Inc. 1988  All rights reserved.
*******************************************************************************

close_all_files	proc

		phb				;Save data bank.
		phk				;Set to our code bank.
		plb
*
* Set preferences so will put up mount dialog (if needed) with no cancel
* button...
*
		lda	>sys_prefs		;Get prefs.
		pha				;Save them.
		lda	#%1100000000000000	;Set b15 and 14.
		sta	>sys_prefs		;Save it.
*
* End sessions and close all files...
*
		jsr	end_session		;Make sure sessions off.

		stz	|system_level		;Set level to zero.

		lda	#$0014			;Fake a close call.
		sta	<call_number
		asl	a
		sta	|num
		jsr	do_all			;Close all open files.
*
* Restore preferences and data bank and exit...
*
		pla				;Get preferences.
		sta	>sys_prefs		;Restore them.
		plb				;Restore data bank.
		rtl
		
		end_proc
		eject
;===============================================================================
; do_fst:  Call	an FSTs	system entry point
;
; This routine calls the system	entry point of an FST with the function	code
;  passed in X.	 A 4 byte parameter is shoved on the stack just	prior to the
;  call	and can	be accessed by the FST with 3,s	to 6,s.
;
; Created:	January	26, 1988
; Modified:
; Author:	MSA
;
; Input:	A = FST	function code [1..n] * 2
;		X = Offset into	FST table for this FST
;	      vcr = Parameter to be passed on the stack
;		P = nvmxdizc
;		    ..000...
;
; Output:	s_temp1	= fst table header ptr
;		jump_v	= address of FST entry point
;		P = nvmxdizc
;		    ..000..x ->	As returned from FST call
;
;===============================================================================

do_fst		proc
		entry	jump_v

; Pull the sys entry point for this FST	and make up instruction	that JSRs to it.
;  The FST is then called with X as the	function code (function	[1..n]*2).

		pha
		lda	fst_tbl+fst_hdr_ptr+2,x
		sta	<s_temp1+2
		lda	fst_tbl+fst_hdr_ptr,x
		sta	<s_temp1

		ldy	#sys_entry
		lda	[<s_temp1],y
		sta	|jump_v+1
		iny
		lda	[<s_temp1],y
		sta	|jump_v+2
		plx				;Pull back the function code

; Call the FST

jump_v
		jsr	>$000000		;Set up by above code

		phk
		plb				;Assume	FST flagellated the dbr

		rts
		end_proc
		eject
;===============================================================================
; GS/OS	SYSTEM CALL MANAGER
;===============================================================================
; This module performs all general processing of GS/OS system calls from the
; point	at which they are issued by an application to the point	at which they
; are passed to	other parts of the system, including other parts of the	System
; Call Manager for further processing.
;===============================================================================

;===============================================================================
; Main entry points for	GS/OS system calls from	application programs
;===============================================================================
;
; This module has been moved into its own file os.call.b00
;===============================================================================

;===============================================================================
; Continuation of the GS/OS shell system call processor.  This portion resides
; in the language card.
;===============================================================================

gsos_lc_entry	proc


		lda	#$0000			;zero out ...
		sta	>temp_error		;... temporary GS/OS error word and ...
		sta	>direct_base+user_stack+2
						;... top 2 bytes of user stack pointer

		tsc				;capture user's stack pointer and ...
		sta	>direct_base+user_stack

		sep	#m8			;enter 8-bit mode
		xba				;was the stack in page $01?
		dec	a
		bne	not_page_1		;no, do nothing
		xba				;yes, save stack offset
		sta	>emulstack
not_page_1	rep	#m16			;back to 16-bit mode

*
* If the stack pointer is in our area, leave it alone; else set it to the top
* of our area...
*
		tsc				;In our area?
		cmp	#stack_top
		bcs	set_top			;Nope.
		cmp	#direct_base+$100
		bcs	no_change		;Yes, so no change.

set_top		lda	#stack_top		;switch to GS/OS stack
		tcs

no_change	phd				;save user direct reg in GS/OS stack
		lda	#direct_base		;switch	to GS/OS direct page
		tcd

; At this point, we begin running on the GS/OS stack and direct	page

		phb				;save DBR on GS/OS stack

		phk				;set DBR to same value as PBR
		plb

		lda	entry_type		;prepare to get call_num and parm_block
		beq	lc_stack_entry		;processing differs by inline vs. stack

		entry	lc_inline_entry
lc_inline_entry	ldy	#3			;set up	pointer	to 1 byte below call_num
		lda	[<user_stack],y		;user return address in user stack ...
		sta	<call_block		;... is the proper value
		iny
		lda	[<user_stack],y
		sta	<call_block+1
		bra	get_parms

		entry	lc_stack_entry
lc_stack_entry	clc				;set up	pointer	to 1 byte below call_num
		lda	<user_stack
		adc	#5			;address of location 5 bytes above user
		sta	<call_block		;... stack pointer is the right value   
		stz	<call_block+2

get_parms	ldy	#1			;call_number to GS/OS direct page
		lda	[<call_block],y
		sta	<call_number
		tax				;save in X temporarily

		ldy	#3			;param_blk_ptr to GS/OS direct page 
		lda	[<call_block],y
		sta	<param_blk_ptr
		ldy	#5
		lda	[<call_block],y
		sta	<param_blk_ptr+2

;===============================================================================
; At this point, the state of the system is as follows:
;
; All caller information has been saved.
; The processor	is in full native mode,	16-bit m and x
; The system stack and zero page have been established at $00BFFF and $00BD00,
;   respectively.
; The user's D and DBR have been pushed on the system stack, so S=$BFFC.
; The call number is in	the word at direct page	location $30
; A pointer to the parameter block is in a long	word at	direct page $32.
; The user stack pointer is saved at direct page location $4E.
; System state variables entry_type, entry_mode, save_x, save_y, lc_state,
;   and	active_flag have been set properly.
; System variable temp_error has been initialized to $0000.
; Direct page locations	temp1, temp2, temp3 and	temp4 (16 bytes) are available.
;===============================================================================

;	
; doing a write to the console?  if so, then no need to lock down the
; system memory or check the validity of the pblock
;

*
* check to see if the call is a write call
*
		ldy	#2
		cpx	#$2013			; class 1 write?
		beq	@chk_cons		; yes ->
		cpx	#$2012			; class 1 read?
		beq	@chk_cons		; yes ->
		ldy	#0
		cpx	#$0013			; class 0 write?
		beq	@chk_cons
		cpx	#$0012			; class 0 read?
		bne	not_char_write		; no, handle normally
*
* ok, it is a write call.  now check the fst_id of the file's
* fcr against the fst_id for the character fst.
*
@chk_cons	lda	[<param_blk_ptr],y	; get the ref #
		jsl	findfcr			; find the fcr
		bcs	not_char_write		; error ->
		
		stx	<fcr_ptr		; store vp of fcr for fst
		sty	<fcr_ptr+2
		
		jsl	deref2			; deref it
		stx	s_temp1
		sty	s_temp1+2
		
		ldy	#fcr_fst_id		; get the fst id
		lda	[<s_temp1],y
		cmp	#$0009			; character fst?
		bne	not_char_write		; no, so cannot be console driver ->
*
* the file belongs to the character fst. setup the call and class #'s for the
* fst.
*
		stz	<vcr_ptr		; no vcr for char devices
		stz	<vcr_ptr+2
		
		lda	<call_number
		tax
		
*
* isolate the call class.  no need to clc before the rol, because I
* and it out anyways.
*
		rol	a			; isolate the call class
		rol	a
		rol	a
		rol	a
		and	#$0007			; mask it out
around_1	asl	a
		sta	class
		
		txa				; isolate call #
		and	#$1FFF
		asl	a
		sta	num			; save it
		
*
* call the char fst
*
		lda	char_index		; get the char fst index
		bmi	not_char_write		; no character FST!
		
		jsr	call_fst		; call the fst
		php				; save error and carry
		pha
		lda	#$C000			; init flag for no dec_busy or signal dispatch
		ldx	<drvr_call_num		; check the call #
		cpx	#drvr_write		; was it a write call?
		beq	@store			; yes, store io_flags as-is
		lda	#$8000			; else allow signal dispatch on exit
@store
		sta	io_flag			; store the flags
		pla				; restore error and carry
		plp
		bra	to_skip_lock

not_char_write
		jsl	inc_busy_flag		; increment the system busy flag
		stz	io_flag			; set flag to call dec_busy on exit

		lda	<call_number		; get the call number again
		and	#$1FFF			; mask out call class
		cmp	#d_calls_start		; is it a device call?
		bcc	not_d_call		; no...
		cmp	#d_calls_end
		bcc	@is_d_call		; yes...
		cmp	#d_rename_num		; is it a DRename call?
		bne	not_d_call		; no, handle normally
@is_d_call
		jsl	>dev_manager		; call the device manager
to_skip_lock
		rol	a			; include carry in error code
		sta	temp_error	
		bra	skip_lock

not_d_call
 if do_force_lock<>0 then
		jsl	force_lock		;Lock all GS/OS managed memory.
 endif
;
; Perform one-time checks that are required for	all GS/OS system calls
;
do_check	jsr	check_call
		bcs	error_finish		;oops!  report the error condition {GAB}
;
; Now that the general contents	of the parameter block have been validated,
; branch to a call handling routine based on the value placed in the type field
; by check_call.
;
		ldx	|type			;jump to appropriate call handler
do_call		jsr	(ctype_vector,x)
		bcs	error_finish		; save error and carry if there's an error
		lda	#$0000			; else make sure the saved error = 0 {GAB}

error_finish	rol	a			; rotate the carry into the error code (1)
		sta	temp_error		; then save the combined error code/carry status

;------------------------ D E B	U G   C	O D E ---------------------------------
;
;		 aif	  not debug_calls,.nodebug
;		 jsr	 journal_add
;.nodebug	 anop

;------------------------ D E B	U G   C	O D E ---------------------------------

 if do_force_lock<>0 then
		jsl	force_unlock		;Unlock all GS/OS managed memory.
 endif

skip_lock	plb				;restore caller's DBR
		lda	user_stack		;retrieve caller's stack pointer
		pld				;restore caller's direct page
		tcs				;restore caller's stack pointer

		lda	>temp_error		; restore carry bit and error code (3)
		lsr	a			; shift saved carry into P register
		sta	>temp_error		; save the normalized error code again
		bcs	error_exit		;handle error if carry set (1)
		
no_error_exit	lda	2,s			;retrieve saved user P register
		and	#not_c_flag		;clear c flag
		ora	#z_flag			;set z flag
		bra	finished

error_exit	lda	2,s			;retrieve saved user P register
		and	#not_z_flag		;clear z flag
		ora	#c_flag			;set c flag

finished	sta	2,s			;restore the modified P register

		jmp	return_from_lc		;continue processing outside of lc

		end_proc
		eject
;===============================================================================
; Perform general processing on	GS/OS system calls
;===============================================================================

;===============================================================================
; play_script:	Set up to play the script code pointed to by script_current, and
;		increment script_current to point to the next script code.
;
; Created:	5/11/87
; Modified:
; Author:	JJ
;
; Enter:	jsr	play_script
;
; Input:	script_current:	 pointer to the	current	script code
;		P = nvmxdizc
;		    ..000...
;
; Output:	A = the	current	script code
;		X = address of the current script code
;		Y = trashed
;		P = nvmxdizc
;		    ..000.|.
;			  0=script code	not 0, 1=script	code is	zero (end of
;						 script)
;
; Side effects:	Increments script_current by the appropriate amount to point to
;		the next script	code.  Increments by zero for end of script code
;		and any	undefined code.	 Puts current script code information in
;		the registers.
;===============================================================================
play_script	proc

		ldx	|script_current		;address of current script code
		lda	|0,x			;get the code itself
		lsr	a			;get the 4-bit code into bits 3:0
		lsr	a
		lsr	a
		lsr	a
		and	#$000F			;... and zero out the remaining bits
		tay
		lda	|sc_size,y		;get size byte for script code
		and	#$00FF
		clc
		adc	|script_current
		sta	|script_current
		lda	|0,x			;get the script code into A again
		and	#$00FF
		rts

sc_size		DC.B	0,3,1,1,1,1,1,1,0,0,0,0,0,0,4,0

		end_proc
		eject
;===============================================================================
; check_call:  Perform one-time	general	checks on GS/OS	system calls, and set
;	       up the call processing pseudo-machine.
;
; Created:	5/5/87
; Modified:
; Author:	JJ
;
; Enter:	jsr	check_call
;
; Input:	call_number on direct page
;		  bits 15:13 - subclass	number for the call
;		  bits 12:0  - primary call number
;		  bit 8	     - Westerfield kludge bit--if this bit is 1,
;			       bits 15:9 must not all be zero
;		parm_blk_ptr on	direct page
;		P = nvmxdizc
;		    ..000...
;
; Output:	A = if c=0, undefined; if c=1, error code
;		  = 0001 - bad system call
;		  = 0004 - invalid pcount
;		  = 0053 - parameter value out of range
;		  = 0062 - invalid subclass for	the call
;		X = trashed
;		Y = trashed
;		P = nvmxdizc
;		    ..000..|
;			   0=no	error, 1=error
;
; Side effects:	Initializes the	call processing	pseudo-machine variables
;		num, class, type, script_start,	and script_current.
;===============================================================================

check_call	proc
;
; Isolate call number and check	its legality.  Call is illegal if 1) high byte
; of 16-bit call number	is $01 (indicating call	to be handled by APW), 2)
; primary call number is 0, 3) primary call number is >	maximum	legal call
; number, or 4)	call's entry in info_ptr table is 0.
;

;------------------------ D E B	U G   C	O D E ---------------------------------

;		 aif	  not debug_calls,.nodebug
;		 lda	 #$0006		 ;Number of bytes in entry (for now...)
;		 jsr	 journal_add
;		 lda	 <call_number
;		 jsr	 journal_add
;.nodebug	 anop

;------------------------ D E B	U G   C	O D E ---------------------------------

		lda	<call_number		;get complete call number/subclass
		tay				;save in Y
		and	#$FF00			;check high byte = $01
		cmp	#$0100
		beq	relay			;GS/OS should never see a call number
						;...with high byte = $01
		tya				;get back complete call number/subclass
		and	#$1FFF			;isolate low 13 bits (primary call num)
		beq	relay			;call number cannot be 0
		cmp	|info_ptr		;compare to value 1 bigger than maximum
		bge	relay			;... call number
*
* If this is a d_info, d_status, d_control, d_read or d_write call, we will
* set type and exit.  Ray checks everything himself so the rest of this routine
* is redundant for these calls...
*
		cmp	#d_rename_num		;Is it a d_rename call?
		beq	is_d_call		;Yes.
		cmp	#d_calls_start		;Is it a d_ call?
		bcc	not_d_call		;Nope.
		cmp	#d_calls_end		;Maybe.
		bcs	not_d_call		;Nope.
is_d_call	lda	#d_calls_type		;Yes, get type.
		sta	|type			;Set it.
		clc				;Indicate no error.
		rts				;Exit with carry clear.
*
* Its not a d_ call so continue...
*
not_d_call	asl	a			;double call number to form index
		tax
		sta	|num			;save for later use in calling FST
		lda	|info_ptr,x		;get pointer to	call processing info
		bne	around			;if null, the call is undefined
relay

;--------------------------- D e b u g	C o d e	-----------------------------
;		 aif	  not debug_calls,.nodebug
;		 cpy	 #$20F0		 ;Check to see if it's a debug call
;		 blt	 relay1		 ;If less than $F0, we're outahear
;		 cpy	 #$20F9		 ;If >= $F9, done, too.
;		 bge	 relay1
;		 lda	 #debug_type
;		 sta	 |type
;		 clc
;		 rts
;.nodebug	 anop
;--------------------------- D e b u g	C o d e	-----------------------------

relay1
bad_call	lda	#bad_system_call
		sec
		rts
around
;
; Call number is legal,	so isolate subclass and	check its legality.  Subclass
; is illegal if	1) its value is	greater	than or	equal to the classes field in
; the call descriptor table or 2) its script pointer in	the call descriptor
; table	is zero.
;
		tax				;save address of call's descriptor tbl
		tya				;isolate subclass from saved call num
		rol	a
		rol	a
		rol	a
		rol	a
		and	#$0007
		sep	#m8			;compare to value 1 bigger than maximum
		cmp	|0,x			;...legal subclass.  comparison must be
		rep	#m8			;...8 bits since classes field is a
		bge	bad_class		;...single byte.
		asl	a			;double the class number to make index
		sta	|class			;... and save it
		txa				;recover address of descriptor table
		sec				;add subclass index to descriptor entry
		adc	|class			;... base address plus 1
		tax				;to give address of subclass entry
		lda	|0,x			;subclass is undefined if it's zero
		bne	start_script
bad_class	lda	#invalid_class
		sec
		rts

;
; call number and subclass are both legal at this point
; A contains pointer to	descriptor script for the call/subclass
;
start_script	sta	|script_start
		sta	|script_current
;
; now run through the script checking that pcount is greater than or equal to
; minimum pcount and that all reference	numbers	and pathname pointers are non-
; zero and non-null, respectively
;
do_script	jsr	play_script		;get script information in A and X
		bne	continue_script		;zero indicates end of script
end_of_script	clc
		rts

continue_script
		tay				;save script byte in Y
		and	#$00F0			;isolate 'opcode' of the script
		cmp	#$0010			;is it a call type specifier?
		bne	not_call_type
is_call_type	inx				;yes, capture and save the value
		lda	|0,x
		sta	|type
		bra	do_script
not_call_type	cmp	#$0020			;is it a pcount check?
		bne	not_pcount
is_pcount	tya				;yes, check pcount; get script code
		and	#$000F			;isolate the minimum parameter count
		dec	a			;reduce	it by 1 for comparison to pcount
		cmp	[<param_blk_ptr]	;... field in parameter block
		blt	do_script
bad_pcount	lda	#invalid_pcount
		sec
		rts

not_pcount	cmp	#$0030			;is it a pathname pointer check?
		bne	not_pathptr
is_pathptr	tya				;yes, check pointer non-null
		and	#$000F			;isolate low nibble of script code
		tay				;use it as index to parameter block
		lda	[<param_blk_ptr],y	;check path pointer non-zero
		bne	do_script		;pathname pointer is non-null
		iny
		iny
		lda	[<param_blk_ptr],y
		bne	do_script		;pathname pointer is non-null
bad_parm	lda	#parm_range_err		;error--pathname pointer is null
		sec
		rts

not_pathptr	cmp	#$0040			;is it a refnum non-zero check?
		bne	not_refnum
is_refnum	tya				;yes, check refnum non-zero
		and	#$000F			;isolate low nibble of script code
		tay				;use it as an index to the refnum field
		lda	[<param_blk_ptr],y	;check for non-zero
		bne	do_script
		beq	bad_refnum		;error--refnum field is zero
bad_refnum	lda	#invalid_ref_num
		sec
		rts

not_refnum	cmp	#$0050			;is it an output path pointer
is_outpath	beq	do_script		;yes, no processing defined.

not_outpath	cmp	#$0060			;is it the maximum parameter count?
		bne	not_maxpcnt
is_maxpcnt	tya				;yes, check against actual pcount
		and	#$000F			;isolate the maximum parameter count
		cmp	[<param_blk_ptr]	;compare to actual parameter count
		blt	bad_pcount		;if max<actual, bad parameter count
		bra	do_script

not_maxpcnt	cmp	#$0070			;is it the dnum thingy?
		bne	not_dnum		;no--try something else
is_dnum		tya				;yes, check dnum not zero
		and	#$000F
		tay
		lda	[<param_blk_ptr],y	;get the devnum field value
		bne	do_script
bad_dnum	lda	#invalid_dev_num
		sec
		rts

not_dnum	cmp	#$00E0			;is it address of processing routine?
		bne	leapfrog		;will branch further to do_script
is_address	lda	|1,x			;yes, get address of processing routine
		sta	|handler_addr
		lda	|2,x
		sta	|handler_addr+1
leapfrog
		jmp	do_script

		end_proc
		eject
;===============================================================================
; do_type_2
;
; Handle bouncing type calls with pathname parameters.
;
; This module handles the FST calling, bouncing, automatic volume mounting, and
; error	reporting functions for	calls in which the primary parameters are
; pathnames.
;
; Calling order	strategy:  This	module tries to	call the right FST first.  To
; do this, it translates the first pathname and, if the	pathname begins	with a
; volume name, looks up	the volume in the GS/OS	VCR list.  If a	VCR for	the
; volume exists, it calls the FST identified in	this VCR first.
;
; Automatic mounting strategy:	This module makes a first pass through the FSTs.
; If no	FST handles the	call, but the 'first FST' returns a volume not found
; error, this module calls the mount dialog routine and	then performs a	second
; pass through the FSTs.
;
; Error	reporting strategy:  If	all of this results in an error	condition, this
; module returns the error code	returned by the	'first FST' picked by the
; calling order	strategy.
;
;===============================================================================

do_type_2	proc

*
* Initialize some flags...
*
		stz	std_prefix_num		;Clear prefix number.
		stz	last_ref_num		;Clear last ref_num.
;
; Perform a preliminary	pathname translation so	we can see if the volume (if
; any) is known	to GS/OS.
;
		stz	|fst_flags		;translation control flags--no uppercase
		jsr	xlate_script		;perform translation
		bcc	prelim_xlate_ok
		jmp	dealc_exit		;if error, deallocate and exit
;
; Now, try to get the volume name and look up the VCR.
;
prelim_xlate_ok
		jsr	path_to_fst_id		;try to find FST id corresp to pathname
		stx	|volname_vp		;save vp to volume name	string, or
		sty	|volname_vp+2		;...null if there was no volume name
		bcs	didnt_find_vcr

found_vcr	jsr	find_fst		;translate FST id into FST Table offset
		bcs	no_such_fst
		sta	|first_fst		;this will be the first FST to call
		bra	go_on_1

didnt_find_vcr	stz	|first_fst		;make first FST in FST table the first

go_on_1		jsr	release_v_ptrs		;release vps set by preliminary xlate
;
; Perform pass 1 of FST	calls.	A contains offset of first FST to call.
;
pass_1		lda	|first_fst
		jsr	call_fsts
		bcc	release_exit1		;if call was handled, release volname_vp
						;...and exit successfully
;
; Determine whether or not to perform a	second pass.
;
pass_1_failed	cmp	#vol_not_found		;was pass 1 error 'volume not found'?
		beq	check_vol		;yes, check to see if we have a vol name
		jmp	release_exit2		;no, return with the error code in A

check_vol	tay				;save error code in Y
		lda	|volname_vp		;is there a non-null vp to a vol name?
		tax				;low word of vp	to X in anticipation
		ora	|volname_vp+2
		bne	pass_2			;yes, do pass 2
		tya				;no, return error
		sec				;no need to release vp because it's null
		rts
;
; Perform pass 2 of FST	calls.	First, put up MOUNT dialog.  If	MOUNT succeeds,
; call FSTs again.  Otherwise, return with error.
;
pass_2

		ldx	|volname_vp		;convert vp to volume name to pointer
		ldy	|volname_vp+2
		jsl	deref2
		stx	<s_temp1		;move pointer onto direct page
		sty	<s_temp1+2

		lda	[<s_temp1]		;get length word of string
		xba				;reverse bytes and restore it to fake
		sta	[<s_temp1]		;...up a class 0 string

		inx				;increment low byte of pointer
		bne	ar_3
		iny				;increment high byte
ar_3

		stx	|volname_ptr		;save volume name pointer in permanent
		sty	|volname_ptr+2		;...location

ar_1
		lda	|volname_ptr+2		;set up parameters for MOUNT call
		pha				;first, push volume name pointer
		lda	|volname_ptr
		pha
		lda	#$0000			;tell MOUNT to respect system preference
						;...on whether or not to display dialog
		jsl	s_mount_msg		;perform the MOUNT
		tax				;was the result 'OK'?
		beq	ar_2

cancel_mount	lda	#vol_not_found
		bra	release_exit2

ar_2		lda	|first_fst		;do the next round of FST calls
		jsr	call_fsts
		bcc	release_exit1		;if no error, return
		cmp	#vol_not_found		;if volume not
		beq	ar_1
		bra	release_exit2

dealc_exit	pha				;save error code
		jsr	release_v_ptrs		;release vps to pathnames
		bra	no_deallocate

no_such_fst	jsl	sys_death

*
* Exit point if call completed successfully.  Here we will update the std_ref_num
* table if the call is OPEN and the pathname was just prefix 10, 11 or 12... 
*
release_exit1	ldx	std_prefix_num		;Was it a standard prefix?
		beq	success			;Nope, so done.
		lda	|num			;Yes, get call number.
		cmp	#$0020			;Is open?
		bne	success			;Nope.
		
		txa				;Yes, so let's update.
		sec				;Zero adjust.
		sbc	#10
		asl	a			;Make a word offset.
		tay
		lda	last_ref_num		;Get ref_num.
		sta	std_ref_num,y		;Update std_ref_num.

success		lda	#$0000			;Indicate success.
*
* Exit point if call failed...
*
release_exit2
		cmp	#file_busy		;was this the error that we saw?
		bne	bye_bye			;no, just exit
		ldx	std_prefix_num		;trying to open stdout or stderr?
		cpx	#11
		bcc	bye_bye			;no, just exit
		ldy	|class			;class 0 or class 1 call?
		beq	@do_compare		;class 0, allow duplicate refnum
		lda	[<param_blk_ptr]	;check the pCount
		cmp	#$0004			;can't be greater than 3
		bcs	@true_error		;'cause we can't return all the extra info
@do_compare
		jsr	cmp_11_12		;compare prefixes 11 and 12
		bne	@true_error		;if not equal, let the error stand
		lda	stdout_refnum		;assume we're opening stderr
		ldx	std_prefix_num
		cpx	#12			;is it stderr?
		beq	@store_it		;yes
		lda	stderr_refnum		;else use existing stderr refnum
@store_it
	if 0 then
		ora	#%0100000000000000	;set bit 14 as flag
	endif
		sta	last_ref_num		;save this refnum
		ldy	|class			;get the call class (as offset)
		sta	[<param_blk_ptr],y	;store the return refnum
	if 0 then
		and	#%1011111111111111	;mask out the flag bit again
		bne	release_exit1		;if valid, go store it
	else
		tax				;valid refnum?
		bne	release_exit1		;yes, go store it
	endif
@true_error
		lda	#file_busy		;else return a true error
bye_bye
		pha				;do a return with the error code in A
		lda	|volname_vp		;release volname_vp if its non-null
		tax
		ora	|volname_vp+2
		beq	no_deallocate
		ldy	|volname_vp+2
		jsl	deallocate
no_deallocate	pla
		cmp	#$0001			;set c according to error code value
		rts

		end_proc
		eject
;===============================================================================
; path_to_fst_id
;
; Determine the	FST id value corresponding to the first	pathname in a pathname
; call.	 Succeeds only if the pathname starts with a volume name and there is
; a VCR	for the	volume.	 Also, capture the volume name string and return a vp
; to it.
;
; Created:	1/28/88
; Modified:	1/9/89	BPA	Modified to check for character device and
;				return character fst id if so.
; Author:	JJ
;
; Enter:	jsr	path_to_fst_id
;
; Input:	P = nvmxdizc
;		    ..000...
;
;		char_dev_flag	non-zero if drvr_dev_num non-zero and device
;				is a character device
;
; Output:	A = if c=0, fst	id corresponding to the	volume name in the path
;		    if c=1, undefined
;		X = low	word of	vp to volume name string (null if no name)
;		Y = high word of vp to volume name string (null	if no name)
;		P = nvmxdizc
;		    ..000..|
;			   0=no	error, 1=error
;===============================================================================

path_to_fst_id	proc


temp_sep	equ	s_temp1
vol_ptr		equ	s_temp2			;these two symbols share the same
vcr_ptr_temp	equ	s_temp2			;...storage
*
* Does the first pathname begin with a device name?
*
		lda	<dev1_num		;if device number = 0, then pathname
		beq	may_be_volume		;...may start with volume name.
*
* Yes, is it a character device?  If so, return character fst id and null vp, else
* error...
*
		lda	>char_dev_flag		;Character device?
		beq	not_volume		;Nope, so error.	 
		lda	#character_fst		;Yes, get character fst id.
		ldx	#0000			;Set null vp.
		txy
		clc				;Indicate no error.
		rts				;Exit.
*
* Nope, does it begin with a pathname?
*
may_be_volume	lda	<path_flag		;does path1_ptr point to something?
		and	#$4000
error_hop	beq	not_volume		;no, return error state
;
; Pathname begins with volume name.  Isolate it	and copy to its	own GS/OS
; dynamic memory segment.
;
is_volume	sep	#m8			;enter 8-bit m mode
		longa	off

		ldy	#2			;pick up first character in string
		lda	[<path1_ptr],y		;this will be the separator character
		sta	<temp_sep		;save it

		ldx	#0000			;set character count to zero

count_size_loop	iny				;Y = offset of first char in vol name
		lda	[<path1_ptr],y		;get a character
		beq	loop_no_more		;bomb out if end of string
		cmp	<temp_sep		;is it next occurrence of separator?
		beq	loop_no_more
		inx
		bra	count_size_loop

loop_no_more	rep	#m16			;back to 16-bit m mode
		longa	on

		inx				;allocate space for volname; need
		inx				;...length of volname+2
		txa
		clc
		jsl	alloc_seg
		bcs	fatal_error
		phy				;save the vp
		phx
		jsl	deref2			;dereference the vp
		stx	<vol_ptr
		sty	<vol_ptr+2

		sep	#m8			;8 bit m mode
		longa	off

		ldy	#3			;get ready to copy
copy_loop	lda	[<path1_ptr],y		;get a character
		beq	done_copying		;if null at end of string, done
		cmp	<temp_sep
		beq	done_copying
		dey				;copy it one byte lower in the
		sta	[<vol_ptr],y		;...destination string
		iny				;double increment to get next char
		iny				;...in source string
		bra	copy_loop

done_copying	rep	#m16			;back to 16-bit m mode
		longa	on

		dey				;Y holds value 3 greater than volume
		dey				;...name length
		dey
		tya
		sta	[<vol_ptr]		;store length into string
;
; Finally ready	to look	up the VCR for this volume name.
;
		ldx	<vol_ptr		;prepare to do find_vcr; get pointer
		ldy	<vol_ptr+2		;...to volume name

		lda	#$0000
		jsl	findvcrcase
		bcs	no_vcr

found_vcr	jsl	deref2			;convert vp to pointer
		stx	<vcr_ptr_temp
		sty	<vcr_ptr_temp+2

		ldy	#vcr_fst_id		;get fst id field from VCR
		lda	[<vcr_ptr_temp],y	;return	FST id value in A
		plx				;return vp to volume name string
		ply				;...in X and Y

		clc				;return	with no error
		rts

no_vcr		plx				;rebalance stack and return vp
		ply				;...to volume name string even though
		sec				;...there was no vcr
		rts

not_volume	ldx	#$0000			;return	null pointer to	volname string
		txy
		sec				;indicate error and return
		rts

fatal_error	jsl	s_sys_death

		end_proc
		eject

;===============================================================================
; call_fsts
;
; Perform the FST call and bouncing process.
;
; Created:	1/27/88
; Modified:
; Author:	JJ
;
; Enter:	jsr	call_fsts
;
; Input:	A = offset in FST table	of FST descriptor for first FST	to call
;		P = nvmxdizc
;		    ..000...
;
; Output:	A = if c=0, undefined; if c=1, error code
;		X = trashed
;		Y = trashed
;		P = nvmxdizc
;		    ..000..|
;			   0=no	error, 1=error
;
; Side Effects:	
;
;===============================================================================

call_fsts	proc
		Import	rename_preamble

volume_callnum	equ	$10			;num value for VOLUME call
open_callnum	equ	$20			;num value for OPEN call
;
; Initialize variables used to index into FST table.
;
		sta	|curr_fst		;offset of table entry for current FST
		sta	|first_fst		;remember offset of first FST

		lda	|fst_count		;offset	beyond last FST entry in table
		asl	a
		asl	a
		asl	a
		asl	a
		sta	|last_fst

		stz	|fstError		;initialize to no error condition
;
; This is the beginning	of the FST call/bounce loop
;
bounce		ldx	|curr_fst		;get current FST table offset
		cpx	|first_fst		;is it the first FST?
		bne	not_first_fst		;no, branch

is_first_fst	lda	|fst_tbl+s_flags,x	;get flags word for FST
		sta	|fst_flags		;...and	store for later use
		bra	xlate
not_first_fst	lda	|fst_tbl+s_flags,x	;get current FST's flags
		cmp	|fst_flags		;same as previous flags?
		beq	call_the_fst		;yes--no need to retranslate pathnames
		sta	|fst_flags		;no--save new flags and do translation

		jsr	release_v_ptrs		;release previously translated pathnames

xlate
		lda	|num			;is this a ChangePath call?
		cmp	#8
		bne	@simple_case		;no...
		lda	script_start		;save this around call
		sta	save_script_start
		jsl	rename_preamble		;else set up for eventual loader_rename
		bcs	@to_outta_here		;translation error
		beq	@no_release		;don't release v_ptr1
		ldx	v_ptr1			;else release unused pathname
		ldy	v_ptr1+2
		jsl	deallocate
@no_release
		lda	#8			;restore call number
		sta	|num
		lda	save_script_start
		sta	script_start
		
@simple_case
		jsr	xlate_script
@to_outta_here
		bcs	outta_here		;translation errors are non-bouncing
;
; Pathname translation complete.  Prepare to call the FST.  There are several
; special considerations:
;
; 1.  If the call is a VOLUME call, check to make sure the dev_name parameter
;     consists of a device name	and nothing more.
; 2.  If the FST to be called is the character FST, call it only if the	system
;     call is an OPEN call and the pathname consists of	a device name and
;     nothing more.
;
call_the_fst	lda	|num			;get 2*call number
		cmp	#volume_callnum		;is it a volume call
		bne	not_volume_call		;no, branch ahead

is_volume_call					; ;yes, check dev_name validity
		lda	<dev_num		;error if dev_num is 0
		beq	volume_error
		lda	<path_flag		;error if path_flag indicates there is
		and	#$4000			;...more than just a device name
		beq	not_volume_call		;so far, so good

volume_error	lda	#bad_path_syntax
		bra	no_bounce

not_volume_call
		ldx	|curr_fst		;offset of FST in FST table
		bit	|fst_tbl+s_flags,x	;test the block/character attribute bit
		bvc	do_the_fst_call		;jump ahead if block device

is_character	lda	|num			;get 2*call_number
		cmp	#open_callnum		;is it an OPEN call?
		beq	is_open			;yes.
simulate_err	lda	#not_block_dev		;No, so simulate an error.
		bra	save_error		
				
is_open		lda	<dev_num		;get the device	number.  if it is 0,
		beq	do_bounce		;...don't call the character FST
dev_not_zero	lda	<path_flag		;get path flag word
		and	#$4000			;is rest of pathname non_null?
		bne	simulate_err		;yes, so simulate error.

do_the_fst_call	txa				;put offset of FST entry into A
		jsr	call_fst		;...and call the FST
		bcc	return			;return	immediately if no error from FST

;-------------------------------------------------------------------------------
; Handle the case in which the FST returned an error.  This may	require	FST
; bouncing.  Two conditions must be met	for FST	bouncing to occur:
;   1) the system call contains	a pathname parameter (all calls	handled	by
;      do_type_2 do), and
;   2) the called FST returns one of the following errors:
;      - bad pathname syntax (bad_path_syntax--$40)
;      - volume	not found (vol_not_found--$45)
;      - unknown volume	(unknown_vol--$52)
;      - invalid parameter count (invalid_pcount--$04)
;      - bad system call (bad_system_call--$01)
;      - not a block device (not_block_dev--$58)
;-------------------------------------------------------------------------------
;
; If the FST was the first FST,	save the error code in fstError.
;
save_error
		bit	#%1000000000000000	;is the priority bit set?
		bne	no_bounce		;yes, exit immediately

 		bit	|fstError		;is the priority bit already set?
		bvs	@check_error		;if volNotFound bit is set in stored error,
						;  replace only with higher priority error
		
		cmp	#vol_not_found		;did the FST find the volume?
		bne	@1			;no...
		ora	#%0100000000000000	;else set bit 14 (priority)
@1
		ldy	|fstError		;has error # already been saved?
		beq	@store_it		;no, just store as-is
@check_error
		bit	#%1100000000000000	;is either priority bit set?
		beq	ar1			;no, don't replace existing error
@store_it
		sta	|fstError		;store the new error code

ar1
;
; Is the error one that	should cause bounce to another FST?
;
		jsr	is_bouncer
		beq	do_bounce
;
; No bounce.  Release pathname strings and return error	code.
;
no_bounce	pha				;save error code
		jsr	release_v_ptrs		;release space occupied by pathnames
		pla
		sec				;indicate error
outta_here
		and	#$00FF			;clear high byte of error code
		rts
;
; If there are any more	FSTs, bounce to	the next one.  Otherwise, return error
; that the first FST generated.
;
do_bounce	clc				;increment curr_fst to next FST
		lda	|curr_fst
		adc	#entry_size
		cmp	|last_fst		;did it increment past end of table?
		blt	store_new_index		;no, just store the index
		lda	#$0000			;yes, wrap back	to beginning of table
store_new_index	sta	|curr_fst

		cmp	|first_fst		;have we gotten	back to the first FST?
		beq	ar2			;yes, no more FSTs, so error out
		jmp	bounce			;no, bounce to another FST

ar2		lda	|fstError		;return	the error given by the first FST
		bra	no_bounce
	
return						;no error return
; We now check for a ChangePath call.  If so, then check for a "special" rename
; call, in which a volume name is being changed, but the application does not wish
; to have a system-wide rename performed (for instance, after the finder performs a
; block-by-block copy and then restores the original name of the destination disk).
; If this is the case, we skip the loader rename call.

		lda	|num			;Is this a change_path call?
		cmp	#$0008
		bne	exit			;Nope.
		ldy	|class			;class 1 call?
		beq	@do_the_rename		;nope.
		lda	[<param_blk_ptr]	;get the pCount
		cmp	#3			;flags word included?
		bcc	@do_the_rename		;no...
		ldy	#10			;get the flags word
		lda	[<param_blk_ptr],y
		bpl	@do_the_rename		;normal changepath call
		lda	<path_flag		;does input pathname have a length?
		bit	#$4000
		beq	exit			;no, skip the loader rename
@do_the_rename
		jsr	release_v_ptrs		;else release names used by FST,
		jsl	loader_rename		;then make sure loader knows.
exit
		jsr	release_v_ptrs		;no error return
		clc
		rts				;Exit to caller.

		end_proc
		eject
;===============================================================================
; do_type_3
;
; Handle file access calls with	reference numbers as primary input.
;===============================================================================

do_type_3	proc
		entry	type_3_alt

		stz	|s_level		;precondition level

		ldy	|class			;get class of call (either 0 or 2)
		lda	[<param_blk_ptr],y	;get refnum into A
ar_1

		jsl	findfcr			;get vp	of fcr corresponding to refnum
		bcc	type_3_alt		;no error.
bad_refnum
		lda	#invalid_ref_num
outta_here
		rts

type_3_alt					;entry location for processing close all
						;...and flush all calls

		stx	<fcr_ptr		;store vp of fcr for FST
		sty	<fcr_ptr+2

		jsl	deref2			;dereference to get pointer to fcr
		stx	<s_temp1
		sty	<s_temp1+2
;
; Close	and flush calls	enter from do_type_6 via the label type_3_alt.	All
; other	reference number calls enter at	the main entry point, do_type_3.  At
; this point, s_level will be set to the current system	level if the call is a
; close	or flush, and it will be set to	0 for any other	reference number call.
; Thus all calls other than close and flush should fall	through	the following
; conditional.	Close and flush	will make it through only if the file's level
; is greater than or equal to the current system level.
;
		ldy	#fcr_level		;get file level from fcr
		lda	[<s_temp1],y
		cmp	|s_level		;if file level is < s_level, do nothing
		bcc	outta_here		;...i.e., return with carry clear
*
* At this point, we know we need to perform an operation on the	file.  Save
* off the ref_num so we can update std_ref_num later...
*
do_it		lda	[s_temp1]		;Get ref_num.
		sta	last_ref_num		;Save it.
		ldx	|num			;is this a close call?
		cpx	#$14*2
		bne	@continue		;no, don't mess around with the refnums
	if 0 then
		eor	#%0100000000000000	;is it one of the standard i/o channels
		cmp	stdout_refnum		;caller closing stderr?
		bne	@try_stderr		;no, but check stdout too
		lda	stderr_refnum		;is stderr already closed?
		beq	bad_refnum		;yes, return error
		stz	stderr_refnum		;else fake a close
		bra	success			;and return no error
@try_stderr
		cmp	stderr_refnum		;do we have a match?
		bne	@continue		;no, just close normally
		lda	stdout_refnum		;has stdout already been closed?
		beq	bad_refnum		;yup, return error
		stz	stdout_refnum		;else simply zero the internal refnum
		bra	success			;without actually closing the file
	else
		cmp	stdout_refnum		;trying to close stdout?
		bne	@continue		;no...
		cmp	stderr_refnum		;are stdout and stderr the same file?
		bne	@continue		;no...
		stz	stderr_refnum		;else zero out stderr refnum
		bra	success			;and don't really close the file
	endif
@continue

; In the case that there is no VCR associated with FCR (vol_id = $FFFF), do not
;  make	a call to findvcr.  Instead just signal	the FST	that no	VCR was
;  indicated by	nulling	out the	VCR pointer.  (This only happens in the	case
;  of FCRs made	by the character FST).	The dev_num parameter is also nulled
;  in this case	(the char FST maintains	the device number in it's own storage).

check_vol_id	ldy	#fcr_vol_id		;load fcr_vol_id field from fcr
		lda	[<s_temp1],y
		cmp	#$FFFF			;Check if this is a valid vol_id
		bne	noffff			;Normal case
		stz	<vcr_ptr
		stz	<vcr_ptr+2		;Null out the VP
		stz	<dev_num		; ... and the device number parm
		bra	ffff			;Skip past vcr stuff

noffff
		jsl	findvcr			;get vp	of vcr corresponding to this fcr
		bcs	no_vcr
		stx	<vcr_ptr		;store vp of vcr for FST
		sty	<vcr_ptr+2

		jsl	deref2			;dereference to get pointer to vcr
		stx	<s_temp2
		sty	<s_temp2+2
		ldy	#vcr_dev
		lda	[<s_temp2],y		;get the device	number from the vcr
		sta	<dev_num		;...and	save it	on zero page

ffff
		ldy	#fcr_fst_id		;offset of FST id in fcr
		lda	[<s_temp1],y		;get the FST id from the fcr

		jsr	find_fst		;get the FST's offset
		bcs	no_fst			;say what???
*
* Ok, we're all set up.  Call the fst and exit if error...
*
		jsr	call_fst		;Do call.  Success?
		bcs	return			;Nope.
*
* Call successful.  Is it a close call?  Exit if not...
*
		lda	|num			;Is close call?
		cmp	#$0028
		bne	success			;Nope.
*
* Yes, so we must see if the ref_num is in our std_ref_num list and, if it is,
* clear it out...
*
		ldy	#0004			;Yes, is ref_num in std_ref list?
		lda	last_ref_num
scan_list	cmp	std_ref_num,y		;Match?
		bne	next_ref		;Nope.
		lda	#0000			;Yes, so clear it.
		sta	std_ref_num,y
		tay				;Force exit from loop.
next_ref	dey				;Done all?
		dey
		bpl	scan_list		;Nope, so loop.
		
success		clc				;Yes, so we're done with no error.
return		rts


no_fst
no_vcr		jsl	s_sys_death

		end_proc
		eject

;===============================================================================
; do_type_4
;
; Handle calls that have unique	processing.
;===============================================================================

do_type_4	proc

		jmp	[handler_addr]

		end_proc
		eject
;===============================================================================
; do_type_5
;
; Handle device	calls d_info, d_status,	d_control, d_read, d_write, and d_rename
;===============================================================================

do_type_5	proc

		jsl	>dev_manager		;call the device manager 

		rts

		end_proc
		eject
;===============================================================================
; do_type_6
;
; Handle the flush and close calls.
;===============================================================================

do_type_6	proc
		entry	do_all

; Yank the reference number from the parameter block.  If it is	other than
;  a class 0 call, skip	over the pcount	param.	If the refnum =	0, do it to
;  all appropriate open	files; ow just do it to	the file corresponding to
;  the reference number	passed.

		ldy	|class			;either 0 or 2
		lda	[<param_blk_ptr],y	;Get the refnum request
		beq	do_all

; The app requested a file operation with a specific reference number.	Find
;  the correct FCR, find out who the owning FST	is, and	fire the call of to
;  that	FST.  The type_3 command executor does these very things.

		jmp	do_type_3

error		equ	found_count		;Error storage area (reuse variable)

do_all						;Used during OS_Shutdown.

; Now get into a loop which performs the operation on every open file with
;  a level greater than	or equal to the	current	system level.  Tell the
;  do_type_3 code to do	the level comparison by	setting	the variable s_level.

		lda	|system_level
		sta	|s_level
		stz	|error			;Clear out the error storage byte

		lda	#1			;Start out on the right foot
		jsl	getfcr
		bcs	all_done		;Bail out if there ain't no FCRs

again

		stx	<m_temp			;store vp of fcr for FST
		sty	<m_temp+2

		jsr	peek_next_rec		;See what the next record's VP is
		phy				;Keep it for later
		phx

		ldx	<m_temp			;Get back the VP
		ldy	<m_temp+2

		jsr	type_3_alt		;Do the operation on this file.
		plx				;Get back the successor
		ply
		bcc	return			;If there was no error, skip store
		sta	|error

return
		bne	again			;If VP high was non-zero, more to do
		txa
		bne	again			;If VP low was non-zero, ditto

all_done

; All files have been operated on.  Load up the	error byte and return it
;  after setting the carry correctly.

		clc
		lda	|error
		beq	skip4
		sec
skip4
		rts

peek_next_rec

		jsl	gderef			;dereference to get pointer to block
		stx	<s_temp1
		sty	<s_temp1+2

		ldy	#succ			;Want to get the VP of the successor
		lda	[<s_temp1],y
		tax				;Got low part of successor
		iny
		iny
		lda	[<s_temp1],y
		tay
		rts

		end_proc
		eject
;===============================================================================
; do_type_7
;
; Handle the FORMAT and	ERASE_DISK calls.
;===============================================================================

do_type_7	proc

pblk_fe_act_fst	equ	10			;offset of class 1 actual fst id field
pblk_fe_req_fst	equ	12			;offset of class 1 requested fst id
pblk_fe_flags	equ	14			;offset of class 1 flags word
pblk_fe_realname equ	16			;offset of class 1 result buffer for
						;...name used in actual operation

; First, check to see if requested FST field is	OK if this is a	class 1	call
; with pcount of 4.  Also checks the flags word if pCount == 5.

		lda	|class			;get class
		beq	do_check		;go ahead if it's class 0
		lda	[<param_blk_ptr]	;get pcount
		cmp	#$0004			;is it 4?
		bcc	do_check		;go ahead if it's not pcount>=4
		ldy	#pblk_fe_req_fst	;offset of requested FST field
		lda	[<param_blk_ptr],y	;get requested FST
		beq	@skip_check		;if 0, allow user to select it
		jsr	find_fst		;is it a legal FST id?
		bcs	@bad_fst		;no, return invalid_fst
@skip_check
		lda	[<param_blk_ptr]	;get pCount again
		cmp	#$0005			;flags word included?
		bcc	do_check		;no, so skip the check
		ldy	#pblk_fe_flags
		lda	[<param_blk_ptr],y	;get flags out of parm block
		and	#%0001111111111111	;only bits 13, 14 & 15 are valid
		beq	do_check		;if any other bits are set, return error
		lda	#parm_range_err
		sec
@bad_fst
		rts
*
* Now we need to check to see if there are any files open on the volume that is
* to be formatted or erased.  To do this, we will do a volume call then look up
* the VCR and check the open_cnt.  First, we get the device name parameter into
* device_name...
*
do_check	lda	|class			;Class 0?
		bne	do_class1		;Nope.

		ldy	#0002			;Yes, convert name.
		lda	[<param_blk_ptr],y
		pha
		lda	[<param_blk_ptr]
		pha
		pea	device_name>>16
		pea	device_name
		jsl	cvt0to1			;Convert and move string.
		bra	save_env		;Continue.

do_class1	ldy	#0002			;Get offset to pointer.
		lda	[<param_blk_ptr],y	;Get pointer.
		sta	<m_temp			;Set source pointer.
		ldy	#0004
		lda	[<param_blk_ptr],y
		sta	<m_temp+2
		lda	#device_name		;Set destination pointer.
		sta	<ptr
		lda	#device_name>>16
		sta	<ptr+2
		jsr	copy_ext_string		;Copy string.
*
* Now we must save our current environment...
*
save_env	pei	<param_blk_ptr		;Save parameter block pointer.
		pei	<param_blk_ptr+2
		pei	<call_number		;Save call number.
		lda	|num			;Save num.
		pha
		lda	|script_start		;Save script start.
		pha
*
* Now do the call and restore saved environment.  If an error occured, branch
* ahead past check for open count...
*
		jsr	do_volume_call		;Do volume call.
		
		pla				;Restore script_start.
		sta	|script_start
		pla				;Restore num.
		sta	|num
		pla				;Restore call number.
		sta	<call_number
		pla				;Restore parameter block pointer.
		sta	<param_blk_ptr+2
		pla
		sta	<param_blk_ptr
		php				;Save error status.
		jsr	release_v_ptrs		;Release vps.
		plp				;Did we get an error for volume?
		bcs	go_ahead		;Yes, so skip open count check.
*
* Volume call succeeded so now let's look up the vcr and check the open count.
* If the count is not zero, exit with a file_busy error...
*
		lda	device_name		;Get length.
		dec	a			;Strip leading separator.
		sta	device_name+1

		lda	#0000			;Select search for name.
		ldx	#device_name+1		;Get pointer to name.
		ldy	#device_name+1>>16
		jsl	findvcrcase		;Go look for it. Found?
		bcs	go_ahead		;Nope, so we're ok.
		jsl	deref2			;Yes, deref vp.
		stx	<vcr			;Save pointer to vcr.
		sty	<vcr+2
		ldy	#vcr_open_cnt		;Get offset to open count.
		lda	[<vcr],y		;Get open count.  Zero?
		beq	go_ahead		;Yes, so we're ok.
		lda	#file_busy		;Nope, so exit with error.
		sec
		rts
		
; Perform preliminary pathname translation for the init	package.
go_ahead
		lda	#$0000			;translation flags (no uppercasing)
		tax				;signify that this is first time through
		jsl	fe_xlate		;do the translation
		bcc	@continue
		php				;bomb out if there's an error
		pha				;set up stack for correct return
		jmp	outta_here		;then leave

; Call the init	package.

@continue
		stz	volname_vp		;null out VP variable
		stz	volname_vp+2
		stz	volname_ptr		;and volume name pointer
		stz	volname_ptr+2

		ldx	|num			;X = 2*call number
		ldy	|class			;Y = 2*call class

		jsl	init_pack		;call the initialization package

		bcs	relay_error		;bomb out if there's an error

; Save the returned fst	id in the actual_fst_id	field if a class 1 call.

		pha				;save returned fst_id
		phy				;save returned VP to volume name
		phx

		ldx	|class			;is it class 1 (i.e. class = 2)?
		beq	ar_1			;no, don't save actual fst id
		tax				;save FST ID in X for a sec.
		lda	[<param_blk_ptr]	;get the pCount
		cmp	#$0003			;is there enough room in the parmblock?
		bcc	ar_1			;no, skip it
		ldy	#pblk_fe_act_fst
		txa				;get FST ID back into Acc.
		sta	[<param_blk_ptr],y
ar_1

; Done with the	translated pathnames, so release them.

		jsr	release_v_ptrs

; Now we lock GIM memory and deref the returned VP so we can use the
; name supplied by the user.

		jsl	lockmem			;lock down memory
		plx				;retrieve VP
		ply
		stx	volname_vp		;save here for disposal later
		sty	volname_vp+2
		tya				;now check for a null VP
		ora	volname_vp		;is it NULL?
		beq	@original_name		;yes, just use the supplied name
		jsl	deref2			;deref the VP
		bra	@store_ptr		;go store the pointer
@original_name
		lda	|class			;class 0 or 1?
		clc				;(value was 0 or 2, make
		adc	#4			; into 4 or 6, index to parm pointer)
		tay
		lda	[<param_blk_ptr],y	;get the pointer to the supplied name
		tax
		iny
		iny
		lda	[<param_blk_ptr],y
		tay
@store_ptr
		stx	volname_ptr		;save the pointer to the volume name
		sty	volname_ptr+2

; Recover the fst_id and perform pathname translation.
		pla
		jsr	find_fst		;translate fst_id into fst_tbl index
		bcs	relay_error
		sta	|curr_fst		;curr_fst = index to FST table
		tax				;X = fst_tbl index
		lda	|fst_tbl+s_flags,x	;get translation control flags
		ldx	#1			;signify that this is second time through
		jsl	fe_xlate		;perform the pathname translation
		bcs	relay_error

; Call the FST
		lda	|curr_fst
		jsr	call_fst
relay_error
		php				;save status
		pha				;save error code

		lda	|class			;was there a realVolName parameter?
		beq	@class0			;can't be with class 0 call
		lda	[<param_blk_ptr]	;check the pCount
		cmp	#$0006			;did they want the realVolName returned?
		bne	@class0			;no...
		lda	|volname_ptr		;else set up m_temp pointer
		sta	<m_temp
		lda	|volname_ptr+2
		sta	<m_temp+2
		ora	<m_temp			;is there a volume name to return?
		beq	@class0			;no, just skip it
		lda	[<m_temp]		;get the length of the string
		ldy	#pblk_fe_realName	;offset to buffer pointer in parm block
		jsr	chk_app_buf		;check the length of the app's buffer
		beq	@class0			;skip it if its a NULL pointer
		bcc	@long_enuff		;yup, it's long enough
		lda	2,s			;retrieve the saved status
		bit	#%0000000100000000	;is the carry already set?
		bne	@class0			;yup, just leave it as is
		ora	#%0000000100000000	;else set it
		sta	2,s
		lda	#buff_too_small		;and store the error code
		sta	1,s
		bra	@class0			;then skip the copy

@long_enuff
		jsr	copy_ext_string		;copy the string to caller's buffer
@class0
		lda	volname_vp		;do we have a buffer to dispose of?
		ora	volname_vp+2
		beq	@1			;no...
		ldx	volname_vp		;else dispose of volume name
		ldy	volname_vp+2
		jsl	deallocate
@1
		jsl	unlockmem		;let memory float around
		jsl	init_pack_end		;Tell init_pack we're done.

outta_here	jsr	release_v_ptrs		;release storage used by pathnames

		pla
		plp
		rts

		end_proc

		eject
;===============================================================================
; do_get_last_dev
;
; Handle the get_last_devnum call.
;===============================================================================

do_get_last_dev	proc

		lda	<drvr_dev_num		;get last device number from zero page
		beq	data_error		;error if device number is zero
		sta	[<param_blk_ptr]	;save the device number
		clc
		rts

data_error	lda	#data_unavail
		sec
		rts

		end_proc
		eject
;===============================================================================
; Pathname Translation Module
;
; This module contains routines	and data structures used to translate input
; pathnames into the internal format used by FSTs.
;===============================================================================

;===============================================================================
; xlate_path:  Translate pathname into canonical format	for FST.
; xlate_path2: Alternate entry point for set_prefix and	quit.
;
; Enter:	jsr	xlate_path
;		jsr	xlate_path2
;
; Input:	A = offset of pathname pointer field in	parameter block
;		    we are guaranteed that this	field is not null
;		X = prefix number of prefix to append if partial pathname does
;		    not	explicitly specify a prefix (this is only used by
;		    xlate_path2)
;		fst_flags = pathname translation attributes of the FST
;		xlate_count = 0--translate first pathname in parameter block
;			    = 1--translate second pathname in parameter	block
;		param_blk_ptr =	pointer	to parameter block
;		P = nvmxdizc
;		    ..000...
;
; Output:	Translated pathnames as	described in the Filenames, Device
;		Names, and Pathnames ERS
;		Explain	differences between two	entry points:
;		    How	null prefix is interpreted.
;		    How	device name at beginning is handled.
;
;
;===============================================================================

xlate_path	proc
		entry	xlate_path2,xlate_path3

		stz	|default_prefix		;default prefix is prefix 0
		stz	|xlate_type		;indicate that call is not set_prefix
		bra	xlate_it

xlate_path2					;alternate entry for set_prefix
		stx	|default_prefix		;default prefix specified by caller
		ldy	#$0001			;indicate that call is set_prefix
		sty	|xlate_type
		
;
; Set up working pointers to input pathname.  First get	pointer	to pathname out
; of parameter block.  We are guaranteed that the pathname pointer is non-null.
;
xlate_it	tay				;pathname offset to Y
		lda	[<param_blk_ptr],y	;get pathname pointer (low word)
		sta	<in_ptr
		iny
		iny
		lda	[<param_blk_ptr],y	;get pathname pointer (high)
		sta	<in_ptr+2

; enter here to use custom pathname pointer, must be stored in in_ptr

xlate_path3
;
; Initialize prefix_number to indicate no prefix.
;
		lda	#$FFFF
		sta	|prefix_number
;
; Set in_curr to offset	of first string	byte and in_end	to offset one past
; last string byte.
;
		lda	|class			;check call's class
		bne	not_class_0		;branch	ahead for class > 0
class_0		lda	#$0001			;set in_curr to 1
		sta	<in_curr
		lda	[<in_ptr]		;get string length (one byte)
		and	#$00FF
		inc	a			;increment and make it the value of
		sta	|str_len		;save string length + 1
		sta	<in_end			;...in_end
		dec	a
		bne	ar_1			;Non-null, continue.

null_hop	sep	#m8			;Null, we need to switch to 8 bit.
		bra	is_null			;we have a zero length string.

not_class_0	lda	#$0002			;set in_curr to 2
		sta	<in_curr
		lda	[<in_ptr]		;get string length (two bytes)
		inc	a			;increment twice and store in in_end
		sta	|str_len		;save string length + 1
		inc	a
		sta	<in_end
		cmp	<in_curr		;check for a length of zero from user
		beq	null_hop		;get out of here
ar_1
;
; Enter	8-bit accumulator mode.
;
		sep	#m8			;8-bit memory mode
		longa	off
*
* Now scan string from in_cur to in_end looking for nulls. If any found, exit with
* bad_path_syntax err...
*
		ldy	<in_curr		;Get offset to first char.
null_loop	lda	[<in_ptr],y		;Get char. Null?
		beq	syntax_err_hop		;Yep, so error.
		iny				;Nope, bump offset.
		cpy	<in_end			;Done all?
		bne	null_loop		;No, so keep going.
;
; Set up translation control flags and character mask.
;
		lda	|fst_flags+1
		sta	<control+1

		asl	a			;shift bit 12 of full fst_flags word
		asl	a			;...into sign position of accumulator
		asl	a			;=1 indicates 'turn off high bits'
		and	#$80			;make sure no other bits are on
		eor	#$FF			;if high bit=1 mask will be $7F else $FF
		sta	|char_mask		;save for use throughout translation
;
; Process first	character of pathname, if any.
;
		jsr	look_at_char		;get the first character
		jsr	classify_char		;classify the character
		jmp	(tbl1,x)		;case branch on the first character

tbl1		DC.W	is_null			;no character--can't happen
		DC.W	syntax_err		;illegal character is syntax error
		DC.W	init_sep		;initial character is separator
		DC.W	init_period		;...period
		DC.W	init_star		;...asterisk
		dc.w	init_at			;...'@'
		DC.W	init_digit		;...digit
		DC.W	init_other		;...some other legal character
;-------------------------------------------------------------------------------
; Case 1:  The input pathname string contains no characters.  This is
;	   a syntax error for normal calls, but	is OK for set_prefix.
;-------------------------------------------------------------------------------
is_null		lda	|xlate_type		;determine which call is being processed
		beq	syntax_err_hop		;only set_prefix is allowed to have a NULL string
prefix_1	ldy	#$0003			;allocate a null string in virtual space
		jsr	alloc_string
		jmp	return

;-------------------------------------------------------------------------------
; Case 2:  Full	pathname beginning with	volume name.  The input	pathname starts
;	   with	a separator.
;
;	   Beginning at	the label special_xlate, this code also	handles	a
;	   subcase of Case 3 corresponding to the situation where a pathname
;	   begins with a device	name, but the device name is not to be
;	   translated to a device number and discarded from the	pathname string.
;	   Code	in Case	3 branches to this label.
;-------------------------------------------------------------------------------
init_sep	sta	<control		;store separator character
;
; Allocate space for translated	string.	 Then move the string.
;
special_xlate	ldy	|str_len		;get string length saved earlier
		iny				;already incremented by	1; need to add
		iny				;...2 more to account for length word
		jsr	alloc_string		;allocate space	for the string
		bcc	ok_1
		jmp	memory_err
ok_1		ldy	<in_curr
		ldx	<out_curr
		jsr	copy_xlate
		bcs	syntax_err_hop
ok_2		jsr	calc_span
		bcs	syntax_err_hop
ok_3		jmp	return
;-------------------------------------------------------------------------------
; Case 3:  Full	pathname beginning with	device name.  The input	pathname starts
;	   with	a period.
;-------------------------------------------------------------------------------
;
; Handle the initial part of the pathname containing the device	name.
;
init_period	jsr	len_to_delim		;determine length of device name substr
		bcs	syntax_err_hop		;syntax error if too many characters
ok_4		cpx	#$0000			;any characters in device name?
		bne	ok_5			;yes, continue
syntax_err_hop	jmp	syntax_err		;otherwise it's a syntax error
ok_5		cpx	#$0021			;device name more than 32 characters
		bcs	syntax_err_hop		;yes, syntax error
;
; At this point, initial device	name is	valid.	Now we must determine whether or
; not to translate the device name to a	device number and strip	it off (as
; required by most calls) or leave the device name as is (as required by
; SET_PREFIX and QUIT.
;
ok_6		sta	<control		;store separator character determined
						;...by len_to_delim
		lda	|xlate_type		;which type of device name translation?
		bne	special_xlate		;if non-zero, do not xlate device name

normal_xlate	sty	|cont_offset		;save offset just after device name
		ldy	<in_curr		;get offset of initial '.'
		txa				;store device name length temporarily
		sta	[<in_ptr],y		;...in place of the '.'

		rep	#mx16			;prepare to call get_dnum--set 16-bit
		longa	on			;...m and x

		clc				;compute a pointer to the period by
		tya				;...adding offset of period to pointer
		adc	<in_ptr			;...to beginning of string
		tax				;save low order	word in X
		lda	#$0000
		adc	<in_ptr+2
		tay				;save high order word in Y
		jsr	>get_dnum		;get device number corresponding to
		bcc	ok_7			;handle device number error
		jmp	devnum_err
ok_7		ldx	|xlate_count		;first or second pathname translation?
		bne	go_on_3			;store device number in proper place
		sta	<dev1_num
		bra	go_on_4
go_on_3		sta	<dev2_num
go_on_4

		sep	#m8			;return to 8-bit m mode
		longa	off

		ldy	<in_curr		;restore period in pathname
		lda	#'.'
		sta	[<in_ptr],y
;
; Handle the part of the pathname after	the initial device name.  At this
; point, we don't know if there is anything after the device name.
;
		ldy	|cont_offset		;update	in_curr to contain offset of
		sty	<in_curr		;...byte just after device name

		cpy	<in_end			;are we	past the end of the string?
		bge	devname_only		;yes, go to clean up and exit

		lda	[<in_ptr],y		;no, continue processing at separator
		and	|char_mask
		sta	<control		;save the controlling separator

		iny				;adjust	in_curr and Y to be offset
		sty	<in_curr		;...following separator
		cpy	<in_end			;are we past end of string?
		bge	devname_only		;yes, go clean up and exit
;
; There	is a pathname body after the device name and separator.
;
handle_body	rep	#m16			;enter 16-bit m mode
		sec				;compute size of space to allocate for
		lda	<in_end			;...rest of string
		sbc	<in_curr		;size =	in_end - in_curr + 3 (3 accounts
		tay				;...for	length word and trailing NUL)
		sep	#m8			;back to 8-bit m mode
		iny
		iny
		iny
		jsr	alloc_string		;allocate space	for the string
		bcs	memory_err

		ldy	<in_curr		;copy string to allocated space
		ldx	<out_curr
		jsr	copy_xlate
		bcs	syntax_err

		jsr	calc_span		;calculate span and do gross syntax chk
		bcs	syntax_err

		jmp	return

devname_only	ldx	|xlate_count		;set path flag to indicate to body
		bne	go_on_5			;...in pathname beyond device name
		stz	<path_flag+1
		bra	go_on_6
go_on_5		stz	<path_flag
go_on_6
		rep	#m16			;normal exit, set 16-bit memory
		clc
		rts

;===============================================================================
; Return and error handling has	been inserted in the middle of this routine to
; minimize the number of long branches in pathname translation routines.
;===============================================================================

memory_err	lda	#$00			;out of memory error
		xba
		lda	#out_of_mem
		bra	error_tail

syntax_err	lda	#$00			;pathname syntax error
		xba
		lda	#bad_path_syntax
		bra	error_tail
;
; Device number	error.	A=error	code.  16-bit mode.  Need to restore period
; in caller's input string.
;
devnum_err	sep	#m8			;enter 8-bit m mode
		pha				;push error from get_dnum onto stack
		ldy	<in_curr		;restore period in input string
		lda	#'.'
		sta	[<in_ptr],y
		lda	#$00			;get back error code
		xba
		pla

error_tail	rep	#m16			;return to 16-bit accumulator mode
		sec				;indicate error
		rts

return		lda	#$40			;set path_flag to indicate path has
		ldx	|xlate_count		;...been set up
		bne	second
first		sta	<path_flag+1
		bra	ar_2
second		sta	<path_flag
ar_2

		rep	#m16			;normal	return, enter 16-bit mode
		clc
		rts

;-------------------------------------------------------------------------------
; Case 4:  Partial pathname.  The input	starts with an asterisk, designating the
;	   system prefix.
;-------------------------------------------------------------------------------
init_star	lda	#32			;prefix number for * prefix
		inc	<in_curr		;make in_curr point just after the *
		bra	continue_pref		;handle the rest just like a numeric
						;prefix
;-------------------------------------------------------------------------------
; Case 5:  Partial pathname.  The input	starts with an '@', designating the
;	   appleshare prefix.
;-------------------------------------------------------------------------------
init_at		lda	#33			;prefix number for @ prefix
		inc	<in_curr		;make in_curr point just after the @
		bra	continue_pref		;handle the rest just like a numeric
						;prefix
;-------------------------------------------------------------------------------
; Overflow code	for case 6 just	below.
;-------------------------------------------------------------------------------
no_trailing_sep	lda	#sep			;assume	default separator
		sta	|save_control		;save as the controlling separator
		bra	past_sep

;-------------------------------------------------------------------------------
; Case 6:  Partial pathname.  The input	starts with a digit, designating a
;	   specific prefix.
;-------------------------------------------------------------------------------
init_digit
		pei	<in_curr		;save current value
		jsr	str_to_int		;convert initial numeric prefix
						;  designator to binary integer
		plx				;retrieve previous in_curr
		bcs	@num_too_big		;number got too big
		cpy	<in_end			;did str_to_int reach the end of the string?
		bne	@check_for_sep		;no, must check for separator
		cmp	#32			;number too big to be a prefix?
		bcc	continue_pref		;no, must be a real prefix designator
						;  with no trailing separator
		bra	@partial_path		;if number is too large with no trailing
						;  separator, it must be a partial pathname
@check_for_sep
		pha				;save prefix number
		lda	[<in_ptr],y		;get character following number
		and	|char_mask
		cmp	#':'			;separator?
		beq	@good_prefix		;yes, real prefix designator
		cmp	#'/'
		beq	@good_prefix
		pla				;clean up stack
@partial_path
		stx	<in_curr		;restore current character pointer
		jmp	init_other		;then treat as normal partial pathname

; if we get here, it means that str_to_int exited because the converted number got
; bigger than 32.  In this case, we have to scan the remainder of the string until a
; non-digit character is seen.  If the character following the last digit is a separator,
; we have an honest-to-goodness pathname syntax error.  If its not a separator, or if
; we run out of string characters, we treat it as a partial pathname.
@num_too_big
		lda	[<in_ptr],y		;get character
		and	|char_mask
		cmp	#':'			;separator?
		beq	syntax_err		;yes, real error
		cmp	#'/'
		beq	syntax_err
		cmp	#'0'			;digit?
		bcc	@partial_path		;no, treat as partial pathname
		cmp	#'9'+1
		bcs	@partial_path
		iny				;bump to next character
		cpy	<in_end			;at end yet?
		blt	@num_too_big		;no, skip until non-digit found
		bra	@partial_path

@good_prefix	pla				;retrieve prefix number
continue_pref	sta	|prefix_number		;save prefix number
		stz	|prefix_number+1
		ldy	<in_curr		;are we	now past end of string
		cpy	<in_end
		bge	no_trailing_sep		;there was no separator after pfx desig
		lda	[<in_ptr],y		;get the current character
		and	|char_mask
		cmp	#sep
		beq	at_sep
		cmp	#'/'			;must be a separator
		bne	to_syntax_err

at_sep		sta	|save_control		;save the separator from partial path
		iny				;make Y	and in_curr point after sep
		sty	<in_curr

past_sep	rep	#m16			;compute length of partial pathname
		longa	on
		sec				;...string remaining after the initial
		lda	<in_end			;...separator
		sbc	<in_curr
		sta	|partial_len		
*
* At this point, if partial_len is zero, we have only a prefix # and if it is 10,11,
* or 12, let's save it in std_prefix_num...
*
		bne	contin			;Not zero.
		lda	|prefix_number		;Get prefix.
		cmp	#10			;Is standard?
		bcc	contin			;Nope.
		cmp	#13
		bcs	contin			;Nope.
		sta	std_prefix_num		;Yes, so save it.
		
contin		pei	<in_ptr+2		;save pointer to partial pathname string
		pei	<in_ptr
		pei	<in_curr		;save offset of	current	and end bytes
		pei	<in_end

		lda	|prefix_number		;retrieve the prefix number saved above
		and	#$00FF			;we are accessing a byte value in 16-bit
						;mode, so zero out high byte
		jsr	get_pfx			;get pointer to the prefix string
		sty	<in_ptr+2		;save high word of pointer
		bpl	contin_1		;if positive, prefix is non-null
;
; At this point	we know	that the specified prefix is the null string.  This is
; a syntax error if the	system call was	anything but a set_prefix.  If the call
; was a	set_prefix and the remainder of	the partial pathname is	null, there is
; no syntax error.
;
		lda	|xlate_type		;is it a set_prefix?
		beq	contin_0		;no, indicate a syntax error

		lda	1,s			;is rest partial pathname null?
		cmp	3,s
		bne	contin_0		;if not, syntax error

		ldy	#$0003			;if so, return null string to caller
		jsr	alloc_string
		jsr	pop_stack
		jmp	return

contin_0	jsr	pop_stack		;if prefix is null, pop stack and return
to_syntax_err	jmp	syntax_err		;...syntax error

contin_1	stx	<in_ptr			;save low word of pointer

		lda	#$0002			;initialize in_curr for prefix string
		sta	<in_curr
		lda	[<in_ptr]		;initialize in_end for prefix string
		inc	a
		inc	a
		sta	<in_end

		inc	a			;compute size of output string =
		sec				;...length(prefix) + length(partial
		adc	|partial_len		;...pathname) + 4
		tay

		sep	#m8			;return to 8-bit m mode
		longa	off

		jsr	alloc_string		;allocate space	for the output string
		bcc	contin_2
		jsr	pop_stack
		jmp	memory_err

contin_2	ldy	<in_curr		;set up input and output offsets for
		ldx	<out_curr		;...xlate_path
		lda	#sep			;set up	separator character for xlate
		sta	<control
		jsr	copy_xlate		;copy prefix to beginning of outpur str
		bcs	contin_0

contin_3	lda	#sep			;add separator just after prefix
		txy				;current offset in output string to Y
		sta	[<out_ptr],y		;store the separator in output string
		iny				;update	out_curr to point after sep
		sty	<out_curr

		rep	#m16			;16 bit mode
		longa	on
		lda	[<out_ptr]		;gotta inc the length to compensate
		inc	a			; for the slash	we just added.
		sta	[<out_ptr]
		longa	off
		sep	#m8			;back to 8 bit mode

		ply				;restore state of partial pathname
		sty	<in_end
		ply
		sty	<in_curr
		ply
		sty	<in_ptr
		ply
		sty	<in_ptr+2

		ldy	|partial_len		;are there any characters remaining in
		beq	end_partial		;...the	partial pathname?

		lda	|save_control		;yes, prepare to copy partial to output
		sta	<control		;set up separator
		ldy	<in_curr		;set up	current	offsets in input and
		ldx	<out_curr		;...output
		jsr	copy_xlate
		bcc	end_partial
relay_syn_err	jmp	syntax_err

relay_calc_ret	jmp	calc_and_ret
relay_dev_only	jmp	devname_only
;
; At this point, we need to check whether or not the pathname produced thus far
; needs	additional translation.	 If the	pathname begins	with a device name and
; we are performing a normal call, we need to translate	the device name	into a
; device number	and strip it off the beginning of the pathname.	 Otherwise (for
; set_prefix and a few other calls), we	just leave the pathname	as is.
;
end_partial	ldy	#0002			;is first char in pathname a period?
		lda	[<out_ptr],y
		cmp	#'.'
		bne	relay_calc_ret		;no, just return pathname as is
;
; Here,	we have	a pathname that	starts with a period, so check further.
;
		lda	|xlate_type		;otherwise, check translation type
		beq	skipit
		jmp	calc_and_ret		;it's a set_prefix (or related), so
skipit						; ;don't need to get rid of device name
;
; Here,	the pathname starts with a device name,	and we are doing a normal
; translation, so we need to convert device name to number and strip off device
; name.
;
		sty	<in_curr		;offset of first characer (2)
		sty	<out_curr
		ldy	<out_end		;give in_end same value as out_end
		sty	<in_end
		ldy	<out_ptr		;give in_ptr same value as out_ptr
		sty	<in_ptr
		ldy	<out_ptr+2
		sty	<in_ptr+2

		jsr	len_to_delim		;determine number of chars in dev name
		bcs	relay_syn_err
contin_4	cpx	#0000			;any characters in device name?
		beq	relay_syn_err		;nope!
contin_5	cpx	#$0021			;more than 32 chars in device name?
to_relay_err	bge	relay_syn_err		;yes
;
; At this point, there is a reasonable candidate for a device name.
;
contin_6	sty	|cont_offset		;store offset of character just after
						;device name
		ldy	<in_curr		;temporarily replace period in device
		txa				;...name with length of device name
		sta	[<in_ptr],y

		rep	#m16			;temporarily use 16-bit m mode
		longa	on

		clc				;construct a pointer to the beginning
		tya				;...(length byte) of the device name
		adc	<in_ptr
		tax
		lda	#$0000
		adc	<in_ptr+2
		tay

		jsr	>get_dnum		;get device number corresponding to name
		bcc	contin_7		;go on if no error
		jmp	devnum_err		;otherwise, device number error

contin_7	ldx	|xlate_count		;save device number in proper direct
		bne	contin_8		;...page device number location
		sta	<dev1_num
		bra	contin_9
contin_8	sta	<dev2_num
contin_9

		sep	#m8			;go back to 8-bit m mode
		longa	off
;
; No need to restore the period	in the device name because we are going	to
; write	over it.  cont_offset points one past last character in	device name,
; which	may be a separator or end of string.
;
		ldy	|cont_offset		;determine where rest of pathname starts
		cpy	<in_end			;any chars left in pathname?
		bge	relay_dev_only		;no, handle device name only case
		iny				;must have been a separator, incr past
		cpy	<in_end			;now, are there any more characters?
		bge	relay_dev_only		;no, it's just a dev name and sep
		sty	<in_curr		;yes, save offset of first character
;
; At this point, there is some part of the pathname after the device name and
; separator.  We need to move this substring to	the beginning of the string.
; We move the substring	beginning at offset in_curr and	ending one byte	before
; offset in_end	to locations beginning at offset out_curr (which starts	with
; value	2).
		inc	<in_end			;make in_end point one after final NUL
begin_loop	lda	[<in_ptr],y		;get character
		and	|char_mask
		iny				;increment source offset
		tyx				;...and	save it in X
		ldy	<out_curr		;get destination offset
		sta	[<out_ptr],y		;store character
		iny				;increment destination offset
		sty	<out_curr		;...and save it
		txy				;get back source offset
		cpy	<in_end			;are we past end of string?
		blt	begin_loop		;no, continue the loop
;
; At this point, our_curr gives	offset one past	end of new string.  To get
; length of new	string,	need to	subtract 3 to account for length word and NUL
; terminator.
;
		rep	#m16			;16-bit m mode
		longa	on
		lda	<out_curr
		dec	a
		dec	a
		dec	a
		sta	[<out_ptr]		;store the length word
		sep	#m8			;back to 8-bit m mode
		longa	off

calc_and_ret	jsr	calc_span		;calculate span and do gross syntax chk
		bcs	to_relay_err
just_return	jmp	return

;-------------------------------------------------------------------------------
; Case 7:  Partial pathname.  The input	starts with a legal character other than
;	   a separator,	period,	asterisk, @, or digit.  This is equivalent to
;	   using prefix designator specified by default_prefix.  If default
;	   prefix is 0 and prefix 0 is nil, use prefix 8.
;-------------------------------------------------------------------------------
init_other	lda	|default_prefix		;default prefix number (only low byte is
						;meaningful even though it was initially
						;stored as a word)
		bne	set_pfx_num		;Non-zero so use it.
		
		rep	#m16			;16-bit m mode
		jsr	get_pfx			;Check if prefix is null.
		sep	#m8			;back to 8-bit m mode

		lda	#00			;Set default to 0 in case non-null.
		tyx				;Null prefix?
		bpl	set_pfx_num		;Nope, so use 0 as default.
		lda	#08			;Yes, so use 8 as default.
			
set_pfx_num	sta	|prefix_number
		stz	|prefix_number+1
		jsr	len_to_delim		;determine the controlling separator
		sta	|save_control		;...and	remember it for later use
		jmp	past_sep		;continue in normal prefix code

		longa	on

;===============================================================================
; Helper routine to pop	8-bytes	off the	stack.
;===============================================================================

pop_stack	rep	#m16			;go to 16-bit m mode
		lda	1,s			;get return address
		sta	9,s			;move it up 8 bytes in the stack
		tsc				;adjust S by adding 8
		clc
		adc	#$0008
		tcs
		sep	#m8			;back to 8 bit m mode
		rts

		end_proc

call_xlate_path	proc				;used to access xlate_path from
		jsr	xlate_path		;outside bank 0
		rtl
		end_proc

call_xlate3	Proc
		jsr	xlate_path3		;used to access xlate_path3 from
		rtl				;outside bank 0
		end_proc

		eject
;===============================================================================
; classify_char
;
; Classifies the character in the accumulator.	Returns	a classification number
; that can be used as an index into a jump table.
;
; Enter:	jsr	classify_char
;
; Assumes:	get_char is called first to load A and condition c
;
; Input:	A = character to be classified
;		P = nvmxdizc
;		    ..100..| (8-bit accumulator)
;			   0=character came from within	a string
;			   1=character is end of string	indicator
;
; Output:	A = character to be classified
;		X = classification number for the character
;		    0000 = no more characters in input
;		    0002 = illegal character
;		    0004 = separator (slash or colon)
;		    0006 = period
;		    0008 = asterisk
;		    000A = @
;		    000C = digit
;		    000E = other legal character
;		Y = trashed
;		P = nvmxdizc
;		    ..100...
;
;===============================================================================

classify_char	proc

		longa	off

		bcc	not_end			;carry clear if	not end of input

is_end		ldx	#$0000			;code for end of input
		rts

not_end		cmp	#'0'			;do a somewhat binary search of
		bge	top_half		;...remaining possibilities

bottom_half	cmp	#'*'			;codes < $30 ('*', '.', and '/')
		bne	not_star
		ldx	#$0008			;code for asterisk
		rts

not_star	cmp	#'.'
		bne	not_period
		ldx	#$0006			;code for period
		rts

not_period	cmp	#'/'
		bne	other_legal
		ldx	#$0004			;code for slash
		rts

top_half	cmp	#'9'+1			;codes >= $30 (digits and ':')
		bge	not_digit
		ldx	#$000C			;code for digit
		rts

not_digit	;cmp	#':'		 ':' _is_ '9'+1!
		bne	not_colon
		ldx	#$0004			;code for separator
		rts

not_colon	cmp	#'@'
		bne	other_legal
		ldx	#$000A			;code for '@'
		rts

other_legal	ldx	#$000E			;code for other legal character
		rts

		longa	on

		end_proc
		eject
;===============================================================================
; get_char
;
; Gets the next	character in the input string specified	by in_ptr, in_curr, and
; in_end, and increments in_current.  If there are no more characters in the
; input	string,	returns	ASCII NUL ($00)	and does not increment in_curr.
;
; Enter:	jsr	get_char
;
; Input:	P = nvmxdizc
;		    ..100... (8-bit accumulator)
;		in_ptr = pointer to input string
;		in_curr	= offset of current character position in input	string
;		in_end = offset	one greater than last character	in input string
;
; Output:	A = if in_curr < in_end, the character at offset in_curr;
;		    otherwise ASCII NUL
;		X = trashed
;		Y = trashed
;		P = nvmxdizc
;		    ..100..|
;			   0=character returned, 1=attempt to read beyond string
;		in_curr	= in_curr + 1 if not past end of string; otherwise,
;			  in_curr is unchanged
;===============================================================================

get_char	proc
		entry	return_null

		longa	off

		ldy	<in_curr		;offset of current input character
		cpy	<in_end			;are we past end of string?
		bge	return_null		;yes, branch ahead

return_char	lda	[<in_ptr],y		;no, get the input character
		and	|char_mask
		iny				;increment input character offset
		sty	<in_curr

		rts				;carry is still clear from cpy

return_null	lda	#$00			;return ASCII NUL
		rts				;carry is still set from cpy instruction

		longa	on

		eject
;===============================================================================
; look_at_char
;
; Gets the next	character in the input string specified	by in_ptr, in_curr, and
; in_end, but does not increment in_curr.  If there are	no more	characters in
; the input string, returns ASCII NUL ($00) and	does not increment in_curr.
;
; Enter:	jsr	look_at_char
;
; Input:	P = nvmxdizc
;		    ..100... (8-bit accumulator)
;		in_ptr = pointer to input string
;		in_curr	= offset of current character position in input	string
;		in_end = offset	one greater than last character	in input string
;
; Output:	A = if in_curr < in_end, the character at offset in_curr;
;		    otherwise ASCII NUL
;		X = trashed
;		Y = trashed
;		P = nvmxdizc
;		    ..100..|
;			   0=character returned, 1=attempt to read beyond string
;		in_curr	= unchanged
;===============================================================================

		entry	look_at_char
look_at_char

		longa	off

		ldy	<in_curr		;offset of current input character
		cpy	<in_end			;are we past end of string?
		bge	return_null		;yes, branch out.

@return_char	lda	[<in_ptr],y		;no, get the input character
		and	|char_mask

		rts				;carry is still clear from cpy

		longa	on

		end_proc
		eject
;===============================================================================
; copy_xlate
;
; Copy an input	string onto the	end of an existing output string while
; performing character-by-character translation.
;
; Created:	6/3/87
; Modified:
; Author:	JJ
;
; Enter:	jsr	copy_xlate
;
; Input:	in_ptr	4-byte pointer to input	string
;		Y	2-byte offset to current position in input string
;		in_end	2-byte offset of position 1 past end of	input string
;		out_ptr	4-byte pointer to output string
;		X	2-byte offset to current position in output string
;		out_end	2-byte offset of position 1 past end of	output space
;		control	bit 15=0 do not	upper case letters
;			      =1 force letters to upper	case
;			bits 7-0 separator character (value must be ASCII
;				 slash or colon)
;		P = nvmxdizc
;		    ..100... (8-bit accumulator)
;
; Output:	The portion of the input string	from offset Y to in_end-1
;		is copied into the output string beginning at offset X.
;		The routine forces the high bit	of each	character to 0.	 If the
;		high bit of control is 1, the routine translates all lower case
;		characters to upper case.  The low byte	of control indicates
;		the separator character.  All occurrences of the separator are
;		translated to $80.  The	routine	also
;		updates	X, Y, and the length word of the output
;		string.	 A system error	exists if this routine attempts	to copy
;		a character into the location at offset	out_end.  This means
;		there is not enough space left in the output to	accommodate the
;		input.
;		A = if c=0, undefined; if c=1, error code
;		  = 0040 - syntax error
;		X = updated value of out_curr
;		Y = updated value of in_curr
;		P = nvmxdizc
;		    ..100..|
;			   0=no	error, 1=error
;
; Notes:	in_ptr	---> XXXXXXXXXXCCCCCCCCCCCCCCCCCCCCCCCC
;				       |		       |
;		Y  --------------------+		       |
;		in_end	---------------------------------------+
;
;		out_ptr	---> LLCCCCCCCCCCCXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;					  |				       |
;		X  -----------------------+				       |
;		out_end	 ------------------------------------------------------+
;
;		Copy the C's from the input string into the output string
;		beginning at offset X.	The first two bytes of the output
;		string (LL) are	the length word.  The input string may have a
;		length byte, word, or nothing, since Y and in_end
;		determine the number of	characters to copy.
;
;		The output string may initially	have length zero.  This	does not
;		mean, however, out_curr=out_end.
;		The format of the input	string is relatively unconstrained, as
;		the routine simply copies the characters between offsets Y
;		and in_end-1, inclusive, from in_ptr.  However,	the output
;		string has a specific format.  out_ptr points to a length word,
;		which is followed by the string	content.  Thus,	the minimum
;		value of Y is 2.  In order to complete the output string,
;		another	routine	must terminate it with an ASCII	NUL ($00).  The
;		NUL will not be	included in the	string length.
;===============================================================================

copy_xlate	proc

		longa	off
;
; Is there another character to	copy?
;
next_char	cpy	<in_end			;if current position equals or exceeds
		bge	done			;...end position, we are done
;
; Is there space in the	output string?
;
		cpx	<out_end		;if current position equals or exceeds
		bge	no_space		;...end position, we are done
;
; Get character	from input string and adjust in_curr
;
		lda	[<in_ptr],y		;get input character
		and	|char_mask
		iny				;adjust	in_curr to point to next char
		sty	<in_curr		;...and	save it temporarily
;
; If the character is a	colon, it is valid only	if the already-determined
; separator is the colon.  Otherwise, it is a syntax error.
;
		cmp	#sep			;are we	looking at a colon?
		bne	character_ok		;no, branch ahead
is_sep		cmp	<control		;yes, is colon the separator?
		beq	store_character		;yes, store it away
		bra	syntax_error		;no, it's a syntax error

;
; If high bit of control word is 1, shift lower	case alphabetics to upper case.
;
character_ok	bit	<control+1		;upper case flag is in high order byte
		bpl	no_shift
		cmp	#$61
		blt	no_shift
		cmp	#$7B
		bge	no_shift
		and	#$DF			;shift to upper case
no_shift
;
; If the character is the indicated separator (slash or	colon only), force it to
; be the colon.
;
		cmp	<control
		bne	not_separator
		lda	#sep
not_separator
;
; Store	the character into the output string and increment out_curr
;
store_character	txy				;out_curr was saved in X
		sta	[<out_ptr],y
		inx				;adjust	out_curr (still in X)

		ldy	<in_curr		;restore in_curr to Y

		bra	next_char		;go to beginning of loop
;
; All characters have been copied.  Now	set length word	of output.
;
done		rep	#m16			;restore full 16-bit mode
		longa	on

		txa				;X still contains out_curr, but length
		dec	a			;... is actually out_curr-2
		dec	a			;store value in length word at out_ptr
		sta	[<out_ptr]

		sep	#m8			;restore 8-bit memory mode
		longa	off

		clc				;normal return
		rts

no_space	jsr	>s_sys_death		;no space in output string--system err

syntax_error	lda	#$00			;load error code into A (high byte)
		xba
		lda	#bad_path_syntax	;(low byte)

error_tail	sec				;indicate error
		rts

		longa	on

		end_proc
		eject
;===============================================================================
; alloc_string
;
; Allocate space for a translated pathname and set up translation state
; variables to place translated	string into the	allocated space.
;
; Enter:	jsr	alloc_string
;
; Input:	Y = amount of space to allocate
;		xlate_count = 0:  first	pathname in parameter block
;			      1:  second pathname in parameter block
;		P = nvmxdizc
;		    ..100...
;
; Output:	out_ptr	= pointer to the output	string
;		out_curr = offset of first byte	of string portion of output str
;		out_end	= offset of byte one past end of string	portion	of
;			  output; this byte is set to NUL ($00)
;		length word at beginning of output string set to $0000
;		v_ptr1 or v_ptr2 set to	virtual	pointer	to the string
;		path1_ptr or path2_ptr set to point to the string
;		P = nvmxdizc
;		    ..100...
;			   |
;			   0=string allocation succeeded
;			   1=string allocation failed
;===============================================================================

alloc_string	proc

		longa	on

		rep	#m16			;16-bit accumulator
		tya				;allocation size to A
		pha				;also save it on stack
		jsr	>alloc_zero
		bcs	error

		lda	|xlate_count		;store virtual pointer in the right
		bne	second			;...place based	on whether this is the
first		stx	|v_ptr1			;...first or second pathname in the
		sty	|v_ptr1+2		;...current parameter block
		bra	ar_1
second		stx	|v_ptr2
		sty	|v_ptr2+2

ar_1		jsr	>deref2			;dereference the virtual pointer and
		stx	<out_ptr		;...store it in	out_ptr	as well as the
		sty	<out_ptr+2		;...appropriate direct page pointer
		lda	|xlate_count
		bne	second2
first2		stx	<path1_ptr
		sty	<path1_ptr+2
		bra	ar_2
second2		stx	<path2_ptr
		sty	<path2_ptr+2

ar_2		lda	#$0000			;zero to output string length word
		sta	[<out_ptr]

		inc	a			;set out_curr to 2
		inc	a
		sta	<out_curr

		ply				;get back allocation size
		dey				;set out_end to offset of last byte
		sty	<out_end

		sep	#m8			;and store NUL ($00) into the last byte
		longa	off
		lda	#$00
		sta	[<out_ptr],y

		clc				;indicate no error
		rts

error		ply				;pop off pushed value of A
		sep	#m8
		sec				;indicate error
		rts

		longa	on

		end_proc
		eject
;===============================================================================
; calc_span
;
; Calculate the	maximal	span between separators	or between the last separator
; and the end of string.  If the string	ends with a separator, cut back	the
; string length	by 1 to	eliminate the separator.  For example,
;
;     /a/bc/def/bc/a	span=3
;     /a/b/c/defgh	span=5
;
;     /a/b/ becomes /a/b
;
; Enter:	jsr	calc_span
;
; Input:	out_ptr	= pointer to string whose span is to be	calculated
;			  string is a standard internal	string
;		xlate_count = 0:  first	pathname in parameter block
;			      1:  second pathname in parameter block
;		fst_flags bit 12 = 0:  do not turn off high bits
;				 = 1:  turn off	high bit of all	characters
;		P = nvmxdizc
;		    ..100...
;
; Output:	A = if c=0, undefined; otherwise, error	code
;		  = $0040 - bad	path syntax
;		span1 =	calculated span	if this	is the first pathname parm
;		span2 =	calculated span	if this	is the second pathname parm
;		P = nvmxdizc
;		    ..100..|
;			   0=no	error in pathname string
;			   1=syntax error in pathname
;===============================================================================

calc_span	proc

		longa	off
;
; Initialize state machine.
;
		ldy	#$0002			;offset of first character in pathname
		stz	<max_span		;maximal span found so far is zero
		stz	<max_span+1

start		lda	[<out_ptr],y		;start state--get a chracter
		iny
		cmp	#nul			;if nul, string length is 0, which is
		beq	error_state		;...an error
		ldx	#$0001			;assume non-separator character
		cmp	#sep			;if not a separator, leave span count
		bne	within_span		;...at 1 and continue count
		dex				;...else set it to 0
just_saw_sep	lda	[<out_ptr],y		;just saw separator state--get char
		iny
		cmp	#sep			;if character is a separator, error
		beq	error_state
		cmp	#nul			;if character is end of	string, remove
		beq	cut_back		;...separator just before end of string
		inx				;otherwise, must increment current span

within_span	lda	[<out_ptr],y		;within a span--get character
		iny
		cmp	#sep			;is it a separator?
		bne	not_sep
is_sep		cpx	<max_span		;current span > max span?
		blt	zero_curr_span1		;no, back to just saw sep state
		stx	<max_span		;yes, save as new maximum
zero_curr_span1	ldx	#$0000
		bra	just_saw_sep

not_sep		cmp	#nul			;is it the end of string?
		bne	not_nul
is_nul		cpx	<max_span
		blt	zero_curr_span2
		stx	<max_span
zero_curr_span2	ldx	#$0000
		bra	end_state

not_nul		inx				;no, character contributes to span
		bra	within_span		;continue in same state

cut_back	dey				;make Y	point to separator just before
		dey				;...end of string
		sta	[<out_ptr],y		;store NUL at new end of string

		rep	#m16			;16 bit m mode
		lda	[<out_ptr]		;decrement string length by 1
		dec	a
		sta	[<out_ptr]
		sep	#m8			;back to 8-bit m mode

end_state	ldx	<max_span
		lda	|xlate_count		;8-bit load is OK
		bne	second_path
first_path	stx	<span1
		bra	ar_1
second_path	stx	<span2
ar_1

		clc
		rts

error_state	lda	#$00
		xba
		lda	#bad_path_syntax
		sec
		rts

		longa	on

		end_proc
		eject
;===============================================================================
; len_to_delim
;
; Count	the number of characters between the current character and the next
; separator character or end of	string.	 The current character and the separator
; or end of string are not included in the count.  Also	return the separator
; character.
;
; Enter:	jsr	len_to_delim
;
; Input:	in_ptr = pointer to the	input string
;		in_curr	= offset of the	current	character in the input string
;		in_end = offset	of byte	just past end of input string
;		P = nvmxdizc
;		    ..100...
;
; Output:	A = if c=0, the	separator character ('/', or ':') or $00
;		    if there is	no separator
;		X = if c=0, the	number of characters between current character
;		    and	the separator or end of	string;	else, undefined
;		Y = if c=0, the	offset of the separator	or just	past the end of
;		    string; else, undefined
;		P = nvmxdizc
;		    ..100..|
;			   0=A,	X, and Y contain valid values
;			   1=count overflowed past 255
;===============================================================================

len_to_delim	proc

		longa	off

		ldx	#$0000			;initialize character count to 0
		ldy	<in_curr		;offset	of current character to Y
		iny				;offset of first character to look at

get_looped	lda	#$00			;precondition A = 0
		cpy	<in_end			;did we reach end of string?
		bge	done			;yes, branch ahead

		lda	[<in_ptr],y		;no, check for delimiters
		and	|char_mask
		cmp	#sep
		beq	done
		cmp	#'/'
		beq	done

not_delim	inx				;increment count
		cpx	#256			;if count exceeded 255, overflow
		beq	overflow
		iny				;increment string offset
		bra	get_looped

done		clc
		rts

overflow	sec
		rts

		longa	on

		end_proc
		eject
;===============================================================================
; str_to_int
;
; Convert a numeric prefix designator string into a 2-byte integer.  Move the
; current character pointer to the byte	following the last digit in the	prefix
; designator.
;
; Enter:	jsr	str_to_int
;
; Input:	in_ptr = pointer to the	input string
;		in_curr	= offset of the	current	character in the input string
;		in_end = offset	of byte	just past end of input string
;		P = nvmxdizc
;		    ..100...
;
; Output:	A = if c=0, binary prefix number specified by the prefix
;		    designator;	if c=1,	error code
;		X = trashed
;		Y = trashed
;		in_curr	= offset of character one past the last	digit
;		P = nvmxdizc
;		    ..100..|
;			   0=no	error, prefix number is	in A
;			   1=error occurred during prefix designator translation
;===============================================================================

str_to_int	proc

		longa	off

		ldx	#$0000			;initialize prefix number accumulator
		ldy	<in_curr		;initialize Y to point to current char

loop		lda	[<in_ptr],y		;get the current character
		and	|char_mask
		cmp	#'0'			;is it less than ASCII '0'?
		blt	reached_end
		cmp	#'9'+1			;is it greater than ASCII '9'?
		bge	reached_end

is_digit	sec
		sbc	#'0'			;convert ASCII digit to binary number
		pha				;save value on stack

		cpx	#20			;is accumulated value greater than 20?
		bge	pfx_num_err		;yes, prefix number way to big

		txa				;A = accumulator
		asl	a			;A = 2*accumulator
		pha				;push 2*accumulator
		asl	a			;A = 4*accumulator
		asl	a			;A = 8*accumulator
		clc
		adc	1,s			;A = 2*accumulator + 8*accumulator
		adc	2,s			;A = 10*accumulator + digit
		plx				;pull two bytes from stack and discard
		tax				;save accumulated value	back in X

		iny				;increment offset to get next character
		cpy	<in_end
		blt	loop

reached_end	sty	<in_curr		;update	in_curr to point past pfx desig
		txa				;get 8-bit prefix number into A
		clc
		rts

pfx_num_err	pla				;balance the stack
		lda	#$00			;set up error code for bad pathname
		xba
		lda	#bad_path_syntax
		sec
		rts

		longa	on

		end_proc
		eject
;===============================================================================
; FST Table Management Routines
;===============================================================================

;init_fst_tbl has been relocated to Miscellaneous segment.
;add_fst has been relocated to bank $E1 segment.

;===============================================================================
; find_fst:  converts an FST id	number into an offset in the FST Table.
;
; Created:	12/4/87
; Modified:
; Author:	JJ
;
; Enter:	jsr	find_fst
;
; Input:	A = fst	id number
;		P = nvmxdizc
;		    ..000...
;
; Output:	A = if c=0, offset of fst table	entry for the fst
;		    if c=1, error code for invalid fst id
;		P = nvmxdizc
;		    ..000..|
;			   0=no	error, 1=no fst	with the given fst id
;===============================================================================

find_fst	proc

		pha				;save input FST id on stack

		lda	|fst_count		;compute offset	of base	of last entry
		dec	a			;...in FST table
		asl	a
		asl	a
		asl	a
		asl	a

loop		tax				;X gives offset	of base of FST record
		lda	|fst_tbl+id,x		;look at the FST id field
		cmp	1,s			;is it the FST we're looking for
		beq	found			;yes, jump ahead
not_found	txa				;no, try another earlier in the table
		sec
		sbc	#entry_size
		bcs	loop

		pla				;fst with given	id not found in table
		lda	#invalid_fst_id
		sec
		rts

found		pla				;balance the stack
		txa				;put fst table offset into A
		clc
		rts

; find_fst2 - used to call find_fst from outside bank 0
		entry	find_fst2
find_fst2	jsr	find_fst
		rtl

		end_proc
		eject
;===============================================================================
; System Call Manager code for handling	debug system calls.
;===============================================================================

dbg_module	proc
		longa	on
		longi	on

dbg_vcb_info

dbg_fcb_info

dbg_shell_info

dbg_journal_on

dbg_journal_off

dbg_journal_data

		end_proc
		eject
;===============================================================================
; System Service Entry Points
;
; These	are the	actual code entry points for system services called through the
; System Service Dispatch Table	at $01FC00.
;===============================================================================

sys_svc		proc
		entry	s_get_sys_gbuf
			
s_get_sys_gbuf					;return address of generic FST buffer
		ldx	#gbuf			;...to a more reasonable global equates
		ldy	#gbuf>>16		;...file
		clc
		rtl

		end_proc
		eject
*******************************************************************************
*
*        Name:	init_path_vars
*
* Description:	Clears variables used in pathname translation.
*
*      Author:	Bryan Atsatt
*     Created:	Jan 12, 1989
*    Modified:	Apr 19, 1989	Steven Glass and Lee Collings
*
*       Entry:	jsr
*
*       Input:  A = undefined
*               X = undefined
*               Y = undefined
*               P = nvmxdizc
*		    ..000...
*
*      Output:  A = unchanged
*               X = unchanged
*               Y = unchanged
*               P = nvmxdizc
*		    ..000..x 
*
*		dev1_num		;zero
*		dev2_num		;zero
*		path1_ptr		;zero
*		path2_ptr		;zero
*		span1			;zero
*		span2			;zero
*		path_flag		;zero
*		v_ptr1			;zero
*		v_ptr2			;zero
*		xlate_count		;zero
*
*        Exit:	rts
*
*        Uses:	nothing
*
* Copyright Apple Computer, Inc. 1988  All rights reserved.
*******************************************************************************

init_path_vars	proc

*
* Initialize direct page variables used	to communicate pathname	information to
* the FSTs...
*
		stz	<dev1_num		;device	numbers indicate no device
		stz	<dev2_num
		stz	<path1_ptr		;path pointers indicate no pathnames
		stz	<path1_ptr+2
		stz	<path2_ptr
		stz	<path2_ptr+2
		stz	<span1			;spans initialized to 0
		stz	<span2
		stz	<path_flag		;indicate no pathnames set up initially
*
* Initialize other variables involved in pathname translation...
*
		stz	|v_ptr1			;set vps corresponding to pathn_ptr's
		stz	|v_ptr1+2		;...to null
		stz	|v_ptr2
		stz	|v_ptr2+2

		stz	|xlate_count		;indicate no pathnames translated so far
		
		rts				;exit.
		
		end_proc

init_path_vars2	proc				;used to access init_path_vars from
		jsr	init_path_vars		;outside bank 0
		rtl
		end_proc

		eject
;======================================================================
; set_prefix : Copy the	string from the	app's buffer to a prefix buffer
;
;Created:	August 4, 1987
;Modified:	August 10, 1987
;Author:	Mike Askins
;
;Copyright Apple Computer Inc. 1987  All rights	reserved
;
;Input:		A = <undefined>
;		X = <undefined>
;		Y = <undefined>
;		P = nvmxdizc
;		    ..000...
;		b = k
;
;Output:	A = trashed
;		X = trashed
;		Y = trashed
;		P = nvmxdizc
;		    ..000...
;		b = k
;
;======================================================================

set_prefix	proc

; Set up the parameter block pointer for this type call

		jsr	set_ptr			;Set pb_ptr

; Prepare for a	call to	the path translator routine

		ldy	#pblk_09_pfxnum
		lda	[<pb_ptr],y		;Get the prefix number
		cmp	#32			;Prefix > 31?
		bcc	@good_number		;no, within range
		inc	a			;setting the @ prefix (number = $FFFF)?
		bne	range_error		;no (carry still set)
		lda	#33			;else translate to prefix #33
@good_number
		pha				;Nope.
		tax
		stz	|fst_flags		;Tell xlate NOT to uppercase...
		stz	|xlate_count		;Tell xlate which path to process

		lda	#pblk_09_pname
		clc
		adc	|class			;Offset	for the class
		jsr	xlate_path2		;Leaves room for an extra char for sep

		plx				;Pull back prefix # request

		bcs	syn_error		;If xlate had problem, don't continue

; Class	0 calls	can only access	preficeseses 0-7 and class 1 calls can only
;  access 8-31.	 This limits the cases where existing ProDOS/16	apps get errors
;  that	they are not prepared for.

		cpx	#8			;Set carry if 8-31, clear ow
		lda	|class
		bne	c1			;Class one call...

		bge	range_error		;Get an error if pfx number is 8-31

c2
		lda	[<path1_ptr]		;Grab the length for this class 0 call
		cmp	#65			;Only allow length to 64 like P8
		bge	syn_error		;Too long
		bra	def_okay		;Go ahead and install it

c1
		blt	c2			; prefix < 8.. check for error!
		
def_okay

; Now install the string in the	prefix table.  If there	already	was a string
;  there, we will deallocate the space it used.

		lda	>v_ptr1+2
		tay				;VP high
		lda	>v_ptr1
		phx				;Swap A and X (X is STILL set to pfx #!)
		tax				;X has VP low
		pla				;A has prefix #

		jsr	set_pfx			;Leaves	current string in pfx# in temp
		bcs	range_error		;If prefix number was out of range...

		ldy	<m_temp+2		;msb=1 if there was no string originally
		bmi	cherry			;There is no string to free up.
		ldx	<m_temp
		jsl	deallocate		;Dump it
cherry
		clc				;Avoid error condition

syn_error
		lda	#bad_path_syntax
		rts				;Class 4s are all rts

range_error
		lda	#parm_range_err
		rts

		end_proc
		eject
;======================================================================
; get_prefix : Move a prefix into the app's buffer
;
;Created:	August 4, 1987
;Modified:	August 10, 1987
;Author:	Mike Askins
;
;Copyright Apple Computer Inc. 1987  All rights	reserved
;
;Input:		A = <undefined>
;		X = <undefined>
;		Y = <undefined>
;		P = nvmxdizc
;		    ..000...
;		b = k
;
;Output:	A = trashed
;		X = trashed
;		Y = trashed
;		P = nvmxdizc
;		    ..000...
;		b = k
;
;======================================================================

get_prefix	proc
		entry	null_flag
		entry	gprex_alt_ent

; Set up our access to the parameter block

		jsr	set_ptr			;Set pb_ptr

; Get a	pointer	to the prefix string requested

		ldy	#pblk_09_pfxnum
		lda	[<pb_ptr],y		;Get the prefix number
		cmp	#32			;Prefix > 31?
		bcc	@good_number		;no, within range
		inc	a			;getting the @ prefix (number = $FFFF)?
		bne	range_hop		;no (carry still set)
		lda	#33			;else translate to prefix #33
@good_number
		jsr	get_pfx			;m_temp points at the prefix string
range_hop	bcs	range_error
		sty	|null_flag		;Top bit indicates if string was null

; Get a	pointer	to the caller's return buffer

		ldy	#pblk_09_pname
gprex_alt_ent
		lda	[<pb_ptr],y		;Get low part of pointer to user buffer
		sta	<ptr
		iny
		iny
		lda	[<pb_ptr],y
		sta	<ptr+2

		lda	|class
		bne	class1

; Handle the class 0 case.  We may return strings up to	64 characters in
;  length.  We convert all seperators (:) to slashes.  We return an error
;  if we encounter a slash in the prefix, and we append	a slash	to the end
;  just	because	it's traditional.

class0
		lda	[<m_temp]
		bit	|null_flag		;Maybe a 'virgin' pfx - never been set
		bpl	its_null		;No, gotta real live path here
		lda	#$FFFF			;We're gonna increment this below...
its_null

		longa	off
		sep	#$20
		inc	a			;Make up for the slash we're adding on
		sta	[<ptr]
		beq	its_over		;In the	case of the null string, done.
		tay
		iny				;It just works out that way
		bra	slash_time		;Store the trailing slash

nutr_char
		lda	[<m_temp],y		;Get a source character
		cmp	#'/'
		beq	slash_error		;A slash here ambiguates the string
		cmp	#sep			;Check if this is the seperator (:)
		bne	skip_slam		;If not, use character unchanged
slash_time
		lda	#'/'			;Change	the sep to a slash
skip_slam
		dey

store

		sta	[<ptr],y		;Store the character

		cpy	#2
		bge	nutr_char		;Continue until we've stored up to Y=1
		bra	its_over

		longa	on

; The class 1 case involves first checking the app buffer to see if it is large
;  enough to hold the output.  Then do the copy, incrementing the length and
;  storing the trailing	$80.

class1
		lda	[<m_temp]		;Get the length
		beq	skipinc			;If null string, no trailing seperator
		inc	a			;Need an additional byte for trail sep
skipinc
		jsr	cab_2			;Check the caller's buffer
		bcs	buf_size		;Branch	if too small to return prefix

		lda	[<m_temp]		;Pull the length again
		sta	[<ptr]			;The null string case
		beq	itsnull			;We're through... no more to copy
		inc	a			;Need an additional byte for trail sep
		sta	[<ptr]			;Keep the length in caller's buffer

		ldy	#2			;Now copy to the end of the string
more
		lda	[<m_temp],y		;Get the source character
		sta	[<ptr],y		;Put the character away
		iny				;Move to the next position
		iny				;Moving two bytes at a time
		tya
		cmp	[<ptr]			;Check if we're over the edge
		blt	more			;Go back for more char pairs

		lda	[<ptr]			;Pull the length
		tay
		lda	[<m_temp],y		;Put the last character in the low part
		and	#$00FF			;$00xx
		eor	#sep<<8			;Put seperator into high part
		sta	[<ptr],y		;Finished copy with trailing seperator

itsnull
		clc
		rts

its_over
		rep	#$20			;Back to 16 bit accumulator
		longa	on
		clc
		rts

range_error
		lda	#parm_range_err
		rts

slash_error

* A slash error	is not returned	to the app, since P16 pgms don't know how to
*  handle an error on GetPrefix.  So just null out the returned	string,	and
*  pretend all is wonderful.

		longa	off
		lda	#$00			;Null out the prefix string so that
		sta	[<ptr]			; P16 apps will fail more gracefully
		longa	on
		rep	#$20
		bra	itsnull
buffer_error
		lda	#bad_path_syntax
		sec
buf_size
		rts

null_flag
		DC.W	0

		end_proc
		eject

;======================================================================
; get_boot_vol : Get the name of the boot volume (really '*' prefix #32)
;
;Created:	August 12, 1987
;Modified:	August 10, 1987
;Author:	Mike Askins
;
;Copyright Apple Computer Inc. 1987  All rights	reserved
;
;Input:		A = <undefined>
;		X = <undefined>
;		Y = <undefined>
;		P = nvmxdizc
;		    ..000...
;		b = k
;
;Output:	A = trashed
;		X = trashed
;		Y = trashed
;		P = nvmxdizc
;		    ..000...
;		b = k
;
;======================================================================

get_boot_vol	proc

; Currently no provision is made to make sure that the boot volume name	is under
;  16 bytes.  We will want to do this in the near future...

		jsr	set_ptr
		lda	#star_pfx_num		;Get star prefix
		jsr	get_pfx			;Prefix	number known to be in range
		sty	|null_flag
		ldy	#pblk_28_pname		;Get access to the user's buffer
		jmp	gprex_alt_ent

		end_proc

set_ptr		proc

		lda	<param_blk_ptr
		ldy	<param_blk_ptr+2
		clc				;For class 1, move pointer ahead by two
		adc	|class
		bcc	class0
		iny
class0
		sta	<pb_ptr
		sty	<pb_ptr+2
		rts

		end_proc

set_pfx		proc


; Check	for an in-range	prefix number and install the VP passed	into the prefix
;  table, return carry set if prefix number is not in range.
;  The VP previously stored in the table is returned in	m_temp.

		cmp	#number_prefix
		bge	out

		asl	a
		asl	a			;Four bytes per	element in pfx table
		phx				;Exchange X and A (start it)
		tax				;X now has prefix# * 4

		lda	>prefices,x		;Squirrel away current contents
		sta	<m_temp
		lda	>prefices+2,x
		sta	<m_temp+2

		pla				;Finish	exchange (A has low VP)
		sta	>prefices,x		;Store it all away
		tya
		sta	>prefices+2,x
		clc				;No error
out
		rts

		end_proc

get_pfx		proc
; Check	for an in-range	prefix number and return a pointer to the prefix
;  requested.  Return carry set	if prefix number is not	in range.  If the
;  msb of Y is set upon	return,	the string was null.  The pointer in m_temp and
;  X & Y is valid for both null	and non-null strings.

		cmp	#number_prefix
		bge	out

		asl	a
		asl	a			;Four bytes per	element in pfx table
		tax				;X now has prefix# * 4
		lda	>prefices+2,x		;Get the high part of the VP
		tay
		bpl	outok2			;String is an explicitly null string
		ldx	#null_string		;Set up to a null string
		ldy	#^null_string		; for an implicitly null string
		bra	outok1

outok2
		lda	>prefices,x
		tax				;Got the low part

		jsl	deref2			;Make a	pointer out of the beastie

outok1
		stx	<m_temp			;Need to check for explicit null string
		sty	<m_temp+2
		lda	[<m_temp]		;Get length
		bne	outok
		dec	a
		tay				;Set msb of Y to indicate a null pfx

outok
		clc
out
		rts

null_string	DC.W	0

		end_proc
		eject
*******************************************************************************
*
*        Name:	get_level
*
* Description:	Returns current system level.
*
*      Author:	Mike Askins/Bryan Atsatt
*     Created:	Nov 16, 1988
*    Modified:	Nov 16, 1988
*
*       Entry:	jsr
*
*       Input:  A = undefined
*               X = undefined
*               Y = undefined
*               P = nvmxdizc
*		    ..000...
*
*      Output:  A = system/user level OR mask.
*               X = undefined
*               Y = undefined
*               P = nvmxdizc
*		    ..000...
*
*        Exit:	rts
*
*        Uses:	set_ptr
*		get_level_flag
*
* Copyright Apple Computer, Inc. 1988  All rights reserved.
*******************************************************************************

get_level	proc

*
* Get the system/userlevel flag, make an AND mask from it, and push it on
* the stack...
*
		jsr	get_level_flag		;Get system/user level.
		eor	#$ffff			;Make an AND mask from it.
		pha				;Put in on the stack.
*
* Get the level, mask it with system/user level and exit...
*
		ldy	#pblk_1a_level		;Get offset into parameter block.
		lda	|system_level		;Get current level.
		and	1,s			;Mask with system/user flag.
		sta	[<pb_ptr],y		;Put in parm block.
		pla				;Clean up stack.
		clc				;No error.
		rts				;Exit.
		
		end_proc
		eject
*******************************************************************************
*
*        Name:	get_level_flag
*
* Description:	Gets system/user level OR mask for get_level and set_level
*
*      Author:	Bryan Atsatt
*     Created:	Nov 16, 1988
*    Modified:	Nov 16, 1988	
*
*       Entry:	jsr
*
*       Input:  A = undefined
*               X = undefined
*               Y = undefined
*               P = nvmxdizc
*		    ..000...
*
*      Output:  A = system/user level OR mask.
*               X = undefined
*               Y = undefined
*               P = nvmxdizc
*		    ..000...
*
*        Exit:	rts
*
*        Uses:	set_ptr
*
* Copyright Apple Computer, Inc. 1988  All rights reserved.
*******************************************************************************

get_level_flag	proc

*
* Set the system/user level flag and exit...
*
		jsr	set_ptr			;Bump pointer by two if class 1.
		lda	|class			;Class 0 call?
		beq	user_exit		;Yep, so exit with user level.
		lda	[<param_blk_ptr]	;Nope, do we have system/user parm?
		cmp	#2
		bcc	user_exit		;Nope, so exit with user level.
		ldy	#pblk_1a_flags		;Yes, get offset to parm.
		lda	[<pb_ptr],y		;Get level_flags.
		and	#set_user_level		;Isolate system/user flag bit.
		rts				;Exit with level in A.

user_exit	lda	#set_user_level		;Get user level.
		rts				;Exit.
		
		end_proc
		eject
;======================================================================
; set_level : Set the system level
;
;Created:	August 14, 1987
;Modified:	August 14, 1987
;		June 22, 1988 JJ Changed error from 'parameter out of range'
;				 to 'invalid level'
;Author:	Mike Askins
;
;Copyright Apple Computer Inc. 1987  All rights	reserved
;
;Input:		A = <undefined>
;		X = <undefined>
;		Y = <undefined>
;		P = nvmxdizc
;		    ..000...
;		b = k
;
;Output:	A = trashed
;		X = trashed
;		Y = trashed
;		P = nvmxdizc
;		    ..000...
;		b = k
;
;======================================================================

set_level	proc
		entry	system_level

*
* Get the system/userlevel flag and push it on the stack...
*
		jsr	get_level_flag		;Get system/user level.
		pha				;Put in on the stack.
		tax				;Save it for a second.
*
* Get the level, check it if , OR with system/user level, save it and exit...
*
		ldy	#pblk_1a_level		;Get level.
		lda	[<pb_ptr],y
		clc				;(In case system level)
		txy				;Are we at system level?
		beq	set_it			;Yep, so skip range check.
		cmp	#256			;Nope, level in range?
		bge	r_err			;Nope, so error.
		ora	1,s			;Yep, add in system/user level.
set_it		sta	|system_level		;Set new system level.
				
r_err		pla				;Clean up stack.
		lda	#invalid_level		;OK if carry clear.
		rts				;Exit.

system_level
		DC.W	0

		end_proc


		eject
;======================================================================
; get_version : Get the system version number
;
;Created:	???
;Modified:	???
;Author:	???
;
;Copyright Apple Computer Inc. 1987  All rights	reserved
;
;Input:		A = <undefined>
;		X = <undefined>
;		Y = <undefined>
;		P = nvmxdizc
;		    ..000...
;		b = k
;
;Output:	A = trashed
;		X = trashed
;		Y = trashed
;		P = nvmxdizc
;		    ..000...
;		b = k
;
;======================================================================

get_version	proc


		jsr	set_ptr
		ldy	#pblk_2a_version
		lda	#sys_version
		sta	[<pb_ptr],y
		rts

		end_proc

		eject
s_get_boot_pfx	proc
		phb
		phk
		plb

		lda	#0032
		jsr	get_pfx

		plb
		rtl

		end_proc


s_set_boot_pfx	proc

; Sets the boot	prefix (#32) to	the string whose pointer is passed in X	and Y.
;  Assume that there was a boot	prefix already assigned.

		phb
		phk
		plb

		phy				;Save off the pointer to the new *pfx
		phx

		ldx	#32*4			;Get index into prefix table
		lda	>prefices+2,x
		tay
		lda	>prefices,x
		tax
		jsl	deallocate

		lda	1,s
		sta	<pb_ptr			;Set up	to make	a new * pfx
		lda	3,s
		sta	<pb_ptr+2

		jsr	set_pfx_32_alt

		plx
		ply
		jsl	rename_bootvol

		plb
		rtl

		end_proc
		eject
;===============================================================================
; String conversion routines for converting class 0 strings to class 1 and
; vice versa.
;===============================================================================

;===============================================================================
; cvt0to1:  convert a class 0 string into a class 1 string.
;
; Enter:	pea	source_addr>>16
;		pea	source_addr
;		pea	dest_addr>>16
;		pea	dest_addr
;		jsl	cvt0to1
;
; Input:	push pointer to	source string onto stack
;		push pointer to	destination string onto	stack
;		source and destination pointers	may be identical
;		P = nvmxdizc
;		    ..000...
;
; Output:	A = trashed
;		X = trashed
;		Y = trashed
;		Class 0	source string converted	to class 1 destination string.
;		P = nvmxdizc
;		    ..000...
;===============================================================================

cvt0to1		proc
		entry	cvt_normal_exit

src_ptr		equ	10
dst_ptr		equ	6

		phd				;save D register
		tsc				;set D to overlay stack
		tcd
;
; Copy length from source to destination.
;
		lda	[<src_ptr]		;get length byte and first character
		sta	[<dst_ptr]		;and store as length word
		and	#$00FF			;zero out high byte
		tay				;save length in Y
		bne	bump_ptr		;Not zero.

		sta	[<dst_ptr]		;Zero, so clear length word.
		bra	cvt_normal_exit		;branch to handle zero-length string
;
; Prepare to copy source to destination	by incrementing	destination pointer.
;
bump_ptr	inc	<dst_ptr
		bne	ar_1
		inc	<dst_ptr+2
ar_1 
;
; Loop to copy source string to	destination string.
;
		sep	#m8			;force 8-bit m mode
		longa	off

copy_loop	lda	[<src_ptr],y		;do the copy
		sta	[<dst_ptr],y		;note: this copy trashes high byte of
		dey				; destination length word
		bpl	copy_loop

		lda	#00			;set high byte of length word back to 0
		sta	[<dst_ptr]

		rep	#m16			;go back to 16-bit m mode
		longa	on

cvt_normal_exit

		pld				;restore D register
		lda	2,s			;squeeze input parameters out of stack
		sta	10,s			;...by moving return address upward
		lda	1,s
		sta	9,s

		tsc				;set S to proper value
		clc
		adc	#0008
		tcs

		rtl				;note:	c must be clear here

		end_proc
		eject
;===============================================================================
; cvt1to0:  convert a class 1 string into a class 0 string.
;
; Enter:	pea	source_addr>>16
;		pea	source_addr
;		pea	dest_addr>>16
;		pea	dest_addr
;		jsl	cvt1to0
;
; Input:	push pointer to	source string onto stack
;		push pointer to	destination string onto	stack
;		source and destination pointers	may be identical
;		P = nvmxdizc
;		    ..000...
;
; Output:	A = trashed
;		X = trashed
;		Y = trashed
;		Class 1	source string converted	to class 0 destination string.
;		P = nvmxdizc
;		    ..000..|
;			   0 = successful call
;			   1 = error, source string length > 255
;
;===============================================================================

cvt1to0		proc

src_ptr		equ	10
dst_ptr		equ	6

		phd				;save D register
		tsc				;set D to overlay stack
		tcd

		lda	[<src_ptr]		;get length word from source string
		sep	#m8			;enter 8-bit m mode
		longa	off
		sta	[<dst_ptr]		;save low byte as length byte
		rep	#m16			;go back to 16-bit mode
		longa	on
		tax				;save length word in X
		beq	cvt_normal_exit		;branch to handle zero-length string

		xba				;check whether high byte of length is 0
		bne	error			;error if not
;
; Prepare to copy source to destination	by incrementing	source pointer.
;
		inc	<src_ptr
		bne	ar_1
		inc	<src_ptr+2
ar_1
;
; Loop to copy source to destination string.  Must copy	from low address to
; high address to avoid	destroying source when source and destination overlap.
;
		ldy	#0001			;offset of first character to copy
		dex				;adjust X to give proper loop count

		sep	#m8			;enter 8-bit m mode
		longa	off

copy_loop	lda	[<src_ptr],y
		sta	[<dst_ptr],y
		iny
		dex
		bpl	copy_loop

		rep	#m16			;enter 16-bit m mode
		longa	on

		jmp	cvt_normal_exit		;branch	to exit	code in cvt0to1

error						; ;error exit

		pld				;restore D register
		lda	2,s			;squeeze input parameters out of stack
		sta	10,s			;...by moving return address upward
		lda	1,s
		sta	9,s

		tsc				;set S to proper value
		clc
		adc	#0008
		tcs

		sec				;set carry to indicate error

		rtl

		end_proc
		eject
;===============================================================================
; replace80:  replace all occurrences of sep by	a specified character
;
; This routine replaces	each occurrence	of sep in the input string with
; a character (repl_char) specified by the caller.  However, if	there are any
; occurrences of repl_char in the input	string,	this routine leaves the	input
; string unchanged and returns an error.
;
; Enter:	pea	string_addr>>16
;		pea	string_addr
;		pea	repl_char
;		jsl	replace80
;
; Input:	push pointer to	a class	1 string onto stack
;		push word containing replacement character in low byte
;		P = nvmxdizc
;		    ..000...
;
; Output:	A = trashed
;		X = trashed
;		Y = trashed
;		Input string with seps converted to repl_char (or unchanged if
;		input string already contained occurrences of repl_char.
;		P = nvmxdizc
;		    ..000..|
;			   0=successful	call
;			   1=error, replacement	character already appeared in
;			     input string
;===============================================================================

replace80	proc

string_addr	equ	8			;direct	page address of string pointer
repl_char	equ	6			;direct	page address of replacement char

		phd				;save D register
		tsc				;set D to overlay stack
		tcd
;
; Check	to see if input	is a null string.
;
		lda	[<string_addr]		;get string length
		beq	return			;if length is , return
		tax				;save string length in X and Y
		tay
;
; Increment pointer by 1 to simplify indexing.
;
		inc	<string_addr
		bne	ar_1
		inc	<string_addr+2
ar_1
;
; Go into 8-bit	memory mode and	search string for replacement character.
;
		sep	#m8
		longa	off

		lda	<repl_char

loop1		cmp	[<string_addr],y	;get character from string
		beq	found_repl_char		;is it the replacement character?
		dey				;no, look at next character
		bne	loop1
;
; Replacement character	did not	appear in the string, so loop through string
; again, replacing each	$80 by the replacement character.
;
		txy				;get string length back from X
		ldx	<repl_char		;get replacement character into X
						;...high byte is garbage
loop2		lda	[<string_addr],y	;get character from string
		cmp	#sep			;is it ASCII $80?
		bne	not_sep
is_sep		txa				;yes, replace it with repl_char
		sta	[<string_addr],y
not_sep		dey
		bne	loop2
;
; Successful return to caller.
;
		rep	#m16			;restore 16-bit m mode
		longa	on

return		pld				;restore D

		lda	2,s			;squeeze input parameters out of stack
		sta	8,s			;...by moving return address upward
		lda	1,s
		sta	7,s

		tsc				;set S to proper value
		clc
		adc	#6
		tcs

		clc
		rtl
;
; Unsuccessful return to caller.
;
found_repl_char	rep	#m16			;restore 16-bit m mode
		longa	on

		pld				;restore D

		lda	2,s			;squeeze input parameters out of stack
		sta	8,s			;...by moving return address upward
		lda	1,s
		sta	7,s

		tsc				;set S to proper value
		clc
		adc	#6
		tcs

		sec
		rtl

		end_proc
		eject
;======================================================================
; expand_path :	Expands	a class	1 partial path into a full pathname
;
;Created:	October	5, 1987
;Modified:	November 20, 1987
;Author:	Mike Askins
;
;Copyright Apple Computer Inc. 1987  All rights	reserved
;
;Input:		A = <undefined>
;		X = <undefined>
;		Y = <undefined>
;		P = nvmxdizc
;		    ..000...
;		b = k
;
;Output:	A = trashed
;		X = trashed
;		Y = trashed
;		P = nvmxdizc
;		    ..000...
;		b = k
;
;======================================================================

expand_path	proc


pblk_0E_flags	equ	8			;BELONGS IN COMMON.EQU... PUT IT THERE!

*
* Initialize pathname variables...
*
		jsr	init_path_vars
		
; They're allowed to pass whether they want uppercasing in a 'flags' word.  If
;  the pcount=3	then pick up this value	(which can only	be $8000 or $0000) and
;  use it instead of the $8000 default.

		lda	[<param_blk_ptr]	;Get pcount
		lsr	a			;PCount=3 -> C
		lda	#$8000			;This is the default
		bcc	skip1			;Use the default for PCount=2
		ldy	#pblk_0E_flags+2	;For the PCount=3 case
*		and	[<param_blk_ptr],y  	;Get top bit from them

; Check	the parm passed	to see if bits[14..0] are clear.  Bounce out with an
;  error in that case.

		lda	[<param_blk_ptr],y	;7/26/88MSA Re-get user parm
		asl	a			;7/26/88MSA Remove top bit
		bne	bad_parm		;7/26/88MSA If non zero, bad input
		ror	a			;7/26/88MSA Restore top bit

skip1

; Do the conversion

		ldx	#0			;Want to use prefix #0 if any
		sta	|fst_flags
		stz	|xlate_count
		lda	#pblk_0E_pname1+2	;Indicate the path pointer for input
		jsr	xlate_path2		;Do the name munging
		bcs	syn_error
*
* If the pathname contains a device name/number, build up a path by doing a
* volume call...
*
		jsl	insert_vol_name		;Insert name if available & needed.
*		
* Now make sure	that the user has supplied a buffer which is large enough...
*
		lda	[<path1_ptr]		;Got the required length
		ldy	#pblk_0E_pname2+2	;Indicate ptr of buffer to check
		jsr	chk_app_buf		;Do the checkin'
		beq	bad_parm		;if NULL pointer, bad parm!
		bcs	buf_size		;Acc has buffer size error code
*
* The buffer is large enough, so copy string...
*
		lda	<path1_ptr		;Set up the source pointer for copy
		sta	<m_temp			; (ptr is set by chk_app_buf)
		lda	<path1_ptr+2
		sta	<m_temp+2
		jsr	copy_ext_string		;Do the copy into user's buffer
*
* Now get rid of the buffer that expanding the path generated and exit...
*
skip_it
		jsr	release_v_ptrs		;Release vptrs.

		clc
		rts

bad_parm
		lda	#parm_range_err
		bra	skip

syn_error
		lda	#bad_path_syntax
skip
		sec
buf_size
		rts
		end_proc

		eject
;======================================================================
; chk_app_buf :	Check the caller's buffer to make sure it is big enough
;
;Created:	October	6, 1987
;Modified:	October	16, 1987
;Author:	Mike Askins
;
;Copyright Apple Computer Inc. 1987  All rights	reserved
;
;Input:		A = Required Length
;		X = <undefined>
;		Y = Offset into	pblock indicating location of buffer
;		P = nvmxdizc
;		    ..000...
;		b = k
;
;Output:	A = Buffer Size	error (if C set)
;		X = trashed
;		Y = trashed
;		P = nvmxdizc
;		    ..000.0. -> buffer pointer good
;		          1  -> NULL buffer pointer (ignore it)
;		    ..000..1 ->	'Insufficient Buffer Size'
;		           0 -> buffer good
;	      ptr = Pointer to user buffer+2 (if C clear)
;	       vp = trashed
;		b = k
;
;======================================================================

chk_app_buf	proc
		entry	cab_2

; The user buffer is checked to	see if it is at	least the size passed in
;  the accumulator.  If	it is not large	enough (and it is at least 4 bytes)
;  the required	length is stored in the	buffer as the second and third bytes
;  of the buffer.

		pha				;save required length
		lda	[<param_blk_ptr],y	;Fetch the pointer to the buffer
		sta	<ptr
		iny
		iny
		lda	[<param_blk_ptr],y
		sta	<ptr+2
		ora	<ptr			;null pointer?
		beq	cab			;yes, exit
		pla

cab_2
		clc
		adc	#3			;Include the two size words plus
		cmp	[<ptr]			; one as we have no 'bgt' instruction
		bge	blewit

		lda	#2			;Carry already clear
		adc	<ptr			;Skip the buff length by adding 2
		sta	<ptr
		bcc	cab			;Out with no error
		inc	<ptr+2
		rep	#%00000011		;Return	with no error and valid pointer
cab
		rts

blewit

; Here we know it isn't big enough to do the copy.  Check if it is big enough
;  to allow us to store	the required buffer size in the	buffer itself.	If it
;  is, do it.

		sbc	#3			;reverse the addition of 3 above
						;(carry already set)
		pha				;Keep the required length
		lda	[<ptr]			;Get the actual length of the buffer
		cmp	#4			;Must be at least four bytes
		pla
		blt	cab2

		ldy	#2
		sta	[<ptr],y

cab2
		lda	#buff_too_small
		sec
		rts

		end_proc
		eject
;===============================================================================
; get_name:  Gets the filename of the currently	executing program.
;
; Created:	December 4, 1987
; Modified:
; Author:	JJ
;
; Input:	A = <undefined>
;		X = <undefined>
;		Y = <undefined>
;		P = nvmxdizc
;		    ..000...
;		b = k
;
;		A = trashed
;		X = trashed
;		Y = trashed
;		P = nvmxdizc
;		    ..000...
;		b = k
;
;===============================================================================
;===============================================================================
; null_call:  Handle the null system call.
;
; The purpose of this call is simply to	flush the event	queue.
;
; Created:	December 6, 1987
; Modified:
; Author:	JJ
;
; Input:	A = <undefined>
;		X = <undefined>
;		Y = <undefined>
;		P = nvmxdizc
;		    ..000...
;		b = k
;
;		A = unchanged
;		X = unchanged
;		Y = unchanged
;		P = nvmxdizc
;		    ..000..0
;		b = k
;
;===============================================================================

		DATACHK OFF
get_name	proc

		entry	null_call

; Make pb_ptr point to the data	buffer pointer field in	the parameter block.

		jsr	set_ptr

; Branch depending on class of call.

		lda	|class
		bne	class_1

; Here,	handle the class 0 version of the call.	 First,	make ptr point to the
; caller's output buffer.

class_0
		ldy	#$0000
		lda	[<pb_ptr],y		;low word
		sta	<ptr
		iny
		iny
		lda	[<pb_ptr],y		;high word
		sta	<ptr+2

; Make m_temp point to the class 0 string containing the filename of the
; currently executing program.

		lda	#e1_app_filename	;low word of address
		sta	<m_temp
		lda	#e1_app_filename>>16	;high word of address
		sta	<m_temp+2

; Get the length byte of the source and	check boundary conditions.

		lda	[<m_temp]
		and	#$00FF			;mask off high byte of garbage
		bne	not_0_len
		sep	#$20			;shift to 8-bit mode
		sta	[<ptr]			;set the string length to 0
		rep	#$20
		bra	done			;and exit

; Here,	handle the case	where string length is non-zero.  Do a string copy.

not_0_len
		cmp	#16			;for class 0, string length limited to 16 bytes
		bge	buff_error

		tay				;set up index

more		dey
more2		lda	[<m_temp],y		;get word from source string
		sta	[<ptr],y		;store it in destination string
		tya				;set condition codes
		beq	no_more			;if index is 0,	no more to copy
		dey				;decrement once more
		bne	more			;if non-zero, decrement yet again
		bra	more2			;if zero, just copy lowest word
no_more

done		clc
		rts

buff_error	lda	#buff_too_small
		sec
		rts

; Here,	we handle the class 1 version of the call.  First, get the string
; length, make ptr point to the	output string area, and	check that the output
; buffer is of acceptable size.

		Import	e1_current_id
class_1
		lda	[<param_blk_ptr]	;get the pCount
		cmp	#$0002			;are they asking for the userID?
		bcc	@no_id			;no, skip to name copying
		lda	>e1_current_id		;get the ID from GQuit's variables
		ldy	#$0006			;point to location in parmblock
		sta	[<param_blk_ptr],y	;store it
@no_id
		lda	>e1_app_filename	;get length of the filename
		and	#$00FF			;mask off garbage byte
		ldy	#$0002			;parm list offset of pointer to output
		jsr	chk_app_buf		;check output area length and set up ptr
		beq	skip_name		;skip if caller supplied a NULL pointer
		bcs	outta_here		;cab_2 sets A='buff too small' if so

; Here,	output buffer size is sufficient, and ptr has been incremented to point
; to the actual	class 1	string area in the output buffer.  Now,	copy the
; filename into	the output string.

continue_1
		lda	>e1_app_filename	;get length of the filename
		and	#$00FF			;mask off garbage byte
		pha				;save length on stack
		tax				;put length into X and Y
		tay
		bra	more4

more3		dex				;copy the filename to the caller's
		dey				;...destination string
more4		lda	>e1_app_filename-1,x
		sta	[<ptr],y
		tya
		beq	no_more_1
		dex
		dey
		bne	more3
		bra	more4
no_more_1

; Set length of	output string properly.

		pla
		sta	[<ptr]

skip_name
null_call					;entry point for null call
		clc
outta_here
		rts

		end_proc
		
		DATACHK ON
		
		eject
;===============================================================================
; fst_spec:  Handle the	fst_specific system call.
;
; Created:	December 4, 1987
; Modified:
; Author:	JJ
;
; Input:	A = <undefined>
;		X = <undefined>
;		Y = <undefined>
;		P = nvmxdizc
;		    ..000...
;		b = k
;
;		A = trashed
;		X = trashed
;		Y = trashed
;		P = nvmxdizc
;		    ..000...
;		b = k
;
;===============================================================================

fst_spec	proc
		Export	do_judgename		;very cheap way of implementation!
do_judgename
		ldy	#$0002			;offset	of fst id field	in parm blk
		lda	[<param_blk_ptr],y	;get fst id from parm blk

		cmp	#iso9660FSID		;trying to go to phantom FST?
		bne	@1			;nope, just pass it along
		lda	#highSierraFSID		;else translate into High Sierra ID
@1
		jsr	find_fst		;get fst table offset of fst record
		bcs	no_fst

		jsr	call_fst		;call the fst

no_fst		rts

		end_proc

		eject
;======================================================================
; newline:  Process the	NEWLINE	system call.
;
;Created:	December 10, 1987
;Modified:
;Author:	JJ
;
;Copyright Apple Computer Inc. 1987  All rights	reserved
;
;Input:		A = <undefined>
;		X = Call Number	* 2
;		Y = Class Number * 2
;		P = nvmxdizc
;		    ..000...
;		b = k
;
;Output:	A = trashed
;		X = trashed
;		Y = trashed
;		P = nvmxdizc
;		    ..000...
;		b = k
;
;======================================================================

newline		proc

newl_tbl_ptr	equ	s_temp1			;pointer to table of newline chars
ref_num		equ	s_temp2			;reference number from the call
enable_mask	equ	s_temp2+2		;newline mask from the call
num_chars	equ	s_temp3			;number of newline characters
fcr_ptr_temp	equ	s_temp4			;pointer to FCR corresponding to ref_num
fcr_vp		equ	s_temp5			;vp to the FCR corresponding to ref_num
tbl_ptr		equ	path1_ptr		;pointer to the new newline table
tbl_vp		equ	path2_ptr		;vp to the new newline table

; Copy parameters from parameter block into local storage.

		ldy	|class			;y=0 for class 0; y=2 for class 1
		lda	[<param_blk_ptr],y	;get ref_num
		sta	<ref_num
		iny
		iny
		lda	[<param_blk_ptr],y	;get enable_mask
		and	#$00FF			;force high byte to $00
		sta	<enable_mask

; Perform slightly different processing	for class 0 vs.	class 1

		lda	|class
		bne	is_class_1

; Synthesize a newline character table for the class 0 call.

is_class_0	lda	#1			;pretend there is one newline character
		sta	<num_chars

		iny				;get newline character + garbage byte
		iny
		lda	[<param_blk_ptr],y
		sta	|fake_newl_tbl		;...and	store into fake	newline table

		lda	#fake_newl_tbl		;set up	pointer to synthesized table
		sta	<newl_tbl_ptr
		lda	#fake_newl_tbl>>16
		sta	<newl_tbl_ptr+2

		bra	common

is_class_1	iny				;get newline character count
		iny
		lda	[<param_blk_ptr],y
		sta	<num_chars

		iny				;get pointer to	newline table
		iny
		lda	[<param_blk_ptr],y
		sta	<newl_tbl_ptr
		iny
		iny
		lda	[<param_blk_ptr],y
		sta	<newl_tbl_ptr+2

; After	this point, the	remainder of the processing is identical for class 0 and
; class	1.  The	local variables	ref_num, enable_mask, num_chars, newl_tbl_ptr,
; and the newline table	itself are all set up.

common

; Get pointer to the FCR corresponding to ref_num.

		lda	<ref_num
		jsl	findfcr			;get vp to the FCR
		bcc	ok1
		jmp	no_fcr
ok1		stx	<fcr_vp
		sty	<fcr_vp+2
		jsl	deref2			;transform it into pointer to the FCR
		stx	<fcr_ptr_temp
		sty	<fcr_ptr_temp+2

; If there was already newline data in the FCR,	get rid	of it.

		ldy	#fcr_mask		;if mask=0, there is no	newline data
		lda	[<fcr_ptr_temp],y
		beq	skip1

		lda	#0			;set the mask to zero
		sta	[<fcr_ptr_temp],y

		ldy	#fcr_newline		;prepare to release the storage
		lda	[<fcr_ptr_temp],y	;low word of vp to newline table
		tax
		iny
		iny
		lda	[<fcr_ptr_temp],y	;high word of vp to newline table
		tay
		jsl	deallocate		;get rid of the table

skip1

; Next,	determine if we	are disabling or enabling newline mode.

		lda	<enable_mask
		bne	enable

; Disable newline mode.	 Everything has	been done.

disable
		clc				;normal return
		rts

; Enable newline mode.	First, make sure num_chars has a reasonable value.

enable		lda	<num_chars
		beq	parm_error		;error if enabling, but num_chars=0
		cmp	#257			;error if enabling, but num_chars>256
		bge	parm_error

; Now, do it.  First, get a GIM	segment	of the appropriate size	to use as the
; FCR's newline character table.

		jsl	allocate		;allocate the segment (length in A)
		bcs	memory_error
		stx	<tbl_vp
		sty	<tbl_vp+2
		jsl	deref2			;convert vp to a pointer
		stx	<tbl_ptr
		sty	<tbl_ptr+2

; Re-dereference the vp	to the FCR since allocate may have caused compaction.

		ldx	<fcr_vp
		ldy	<fcr_vp+2
		jsl	deref2
		stx	<fcr_ptr_temp
		sty	<fcr_ptr_temp+2

; Install vp of	new newline table into FCR

		ldy	#fcr_newline
		lda	<tbl_vp
		sta	[<fcr_ptr_temp],y
		iny
		iny
		lda	<tbl_vp+2
		sta	[<fcr_ptr_temp],y

; Record enable	mask and newline character count in FCR.

		ldy	#fcr_mask
		lda	<enable_mask
		sta	[<fcr_ptr_temp],y
		ldy	#fcr_newline_len
		lda	<num_chars
		sta	[<fcr_ptr_temp],y

; Copy the newline character table from	the parameter block to the FCR's
; newline table.

		longa	off
		sep	#m8

		ldy	<num_chars		;offset	of last character in table
		dey

copy_loop	lda	[<newl_tbl_ptr],y
		sta	[<tbl_ptr],y
		dey
		bpl	copy_loop

		longa	on
		rep	#m16

		clc				;normal return to SCM
		rts

no_fcr		lda	#invalid_ref_num
		sec
		rts

memory_error	lda	#out_of_mem		;fcr already has enable mask = 0
		sec
		rts

parm_error	lda	#parm_range_err
		sec
		rts

fake_newl_tbl	DS.B	2			;low byte is used, high	byte is garbage

		end_proc
		eject
;===============================================================================
; get_fst_info:	 Handle	the get_fst_info call.
;
; The purpose of this call is to get information about an FST.
;
; Created:	1/22/88
; Modified:
; Author:	JJ
;
; Input:	A = <undefined>
;		X = <undefined>
;		Y = <undefined>
;		P = nvmxdizc
;		    ..000...
;		b = k
;
;		A = unchanged
;		X = unchanged
;		Y = unchanged
;		P = nvmxdizc
;		    ..000..0
;		b = k
;
;===============================================================================

get_fst_info	proc

pcount		equ	s_temp1			;parameter count from param block
fst_num		equ	s_temp1+2		;fst number from param block
fst_hdr		equ	s_temp2			;pointer to FST header
name_ptr	equ	s_temp3			;pointer to FST name string in FST hdr

o_fst_num	equ	2			;offsets of fields in param block
o_file_sys_id	equ	4
o_name_ptr	equ	6
o_version	equ	10
o_attributes	equ	12
o_block_size	equ	14
o_max_vol	equ	16
o_max_file	equ	20

h_file_sys_id	equ	12			;offsets of fields in FST header
h_name		equ	36
h_version	equ	16
h_attributes	equ	14
h_block_size	equ	18
h_max_vol	equ	20
h_max_file	equ	28
;
; Get pcount from parameter block and save it (it's already been screened for
; minimum and maximum value.
;
		lda	[<param_blk_ptr]
		sta	<pcount
;
; Check	legality of fst_num input field
;
		ldy	#o_fst_num		;offset of fst_num field
		lda	[<param_blk_ptr],y	;get fst_num input
		beq	param_range_err		;illegal if 0
		dec	a			;A = fst_num - 1
		cmp	|fst_count
		bcc	go_on			;legal.
		bne	param_range_err		;illegal.
*
* If the fst_num is 1 greater than the actual number of FSTs loaded and the
* hs_fst_flag is set (indicating that the High Sierra/ISO 9660 FST is loaded),
* lets set up the pointer to our fake ISO 9660 fst header...
*
		lda	hs_fst_flag		;High Sierra FST present?
		beq	param_range_err		;Nope, so error.
		
		lda	#iso_fst_header		;Yes, get pointer to header.
		ldx	#iso_fst_header>>16
		sta	<fst_hdr		;Save it.
		stx	<fst_hdr+2
		bra	continue		;Continue.

param_range_err	lda	#parm_range_err
		sec
outta_here	rts
;
; Set up pointer to FST	header.
;
go_on
		asl	a			;X =16*(fst_num - 1)
		asl	a			;...16 is entry	size in FST table
		asl	a
		asl	a
		tax

		lda	|fst_tbl+fst_hdr_ptr,x	;get pointer to fst header from
		sta	<fst_hdr		;...FST table
		lda	|fst_tbl+fst_hdr_ptr+2,x
		sta	<fst_hdr+2
;
; Get the file system identification value.
;
continue	ldy	#h_file_sys_id
		lda	[<fst_hdr],y
		ldy	#o_file_sys_id
		sta	[<param_blk_ptr],y

		dec	<pcount			;see if there are any more outputs
		dec	<pcount			;...to process.  min pcount is 2
		beq	bounce_to_done
keep_going
;
; Copy the FST name into the class 1 output string pointed to by name_ptr field
; if the output	buffer is big enough.  Otherwise, buffer too small error.
;
		ldy	#h_name			;make A	= length of FST name string in
		lda	[<fst_hdr],y		;...FST header
		and	#$00FF

		ldy	#o_name_ptr		;Y = offset of output pointer parameter

		jsr	chk_app_buf		;make sure output buffer is big enough
		beq	skip_name		;if it's null, just skip it
		bcs	outta_here		;if not, buffer error, return carry set

buffer_ok					;buffer big enough, so copy string
		lda	<fst_hdr		;make a	pointer to the name string in
		clc				;...the FST header
		adc	#h_name
		sta	<name_ptr
		lda	<fst_hdr+2
		adc	#$0000
		sta	<name_ptr+2
;
; Now, copy the	string.	 name_ptr points to a class 0 string in	the FST	header,
; and ptr (set by chk_app_buf) points to a class 1 string.
;
		sep	#m8			;8-bit m mode
		longa	off

		lda	[<name_ptr]		;get string length
		sta	[<ptr]			;store in low byte of output string len
		beq	copy_done		;copy done if string length is zero

		tay				;otherwise, do the copy
copy_loop	lda	[<name_ptr],y		;get character from source
		iny
		sta	[<ptr],y		;store in destination
		dey				;backing up one character in source
		dey				;...requires Y = Y-2
		bpl	copy_loop

copy_done					;fix high byte of destination string len
		ldy	#$0001
		lda	#$00
		sta	[<ptr],y

		rep	#m16			;back to 16-bit m mode
		longa	on

skip_name
		dec	<pcount
bounce_to_done
		beq	done
;
; Get version value.
;
		ldy	#h_version
		lda	[<fst_hdr],y
		ldy	#o_version
		sta	[<param_blk_ptr],y

		dec	<pcount
		beq	done
;
; Get attributes value.
;
		ldy	#h_attributes
		lda	[<fst_hdr],y
		ldy	#o_attributes
		sta	[<param_blk_ptr],y

		dec	<pcount
		beq	done
;
; Get block size.
;
		ldy	#h_block_size
		lda	[<fst_hdr],y
		ldy	#o_block_size
		sta	[<param_blk_ptr],y

		dec	<pcount
		beq	done
;
; Get maximum volume size.
;
		ldy	#h_max_vol
		ldx	#o_max_vol+2
		jsr	copy_longword

		dec	<pcount
		beq	done
;
; Get maximum file size.
;
		ldy	#h_max_file
		ldx	#o_max_file+2
		jsr	copy_longword
done
		clc				;indicate no error and return
buffer_error
		rts

; This subroutine is used to copy a longword from the FST header to the
; parameter block.  Offset within FST header is passed in Y, offset in
; parameter block +2 is passed in X.

copy_longword
		phx				;save parm block offset
		lda	[<fst_hdr],y		;get low word
		tax				;save in X
		iny
		iny
		lda	[<fst_hdr],y		;get high word

		ply				;retrieve parmblock offset
		sta	[<param_blk_ptr],y	;store high word
		dey
		dey
		txa
		sta	[<param_blk_ptr],y	;store low word
		rts

		end_proc
		eject
;===============================================================================
; set_sys_prefs:  Set the system preferences global variable
;
; Created:	1/22/88
; Modified:	7/20/88	Added error check for non-zero bits 14:0
; Author:	JJ
;
; Input:	A = <undefined>
;		X = <undefined>
;		Y = <undefined>
;		P = nvmxdizc
;		    ..000...
;		b = k
;
;		A = unchanged
;		X = unchanged
;		Y = unchanged
;		P = nvmxdizc
;		    ..000..0
;		b = k
;
;===============================================================================

set_sys_prefs	proc

		ldy	#$0002			;offset of preferences field
		lda	[<param_blk_ptr],y
		bit	#%0001111111111111	;are any reserved bits non-zero?
		bne	prefs_error		;yes, error

		sta	>sys_prefs

		clc				;indicate no error and return
		rts

prefs_error	lda	#parm_range_err		;indicate error
		sec
		rts




		end_proc
		eject
;===============================================================================
; get_sys_prefs:  Get the system preferences global variable value.
;
; Created:	1/22/88
; Modified:
; Author:	JJ
;
; Input:	A = <undefined>
;		X = <undefined>
;		Y = <undefined>
;		P = nvmxdizc
;		    ..000...
;		b = k
;
;		A = unchanged
;		X = unchanged
;		Y = unchanged
;		P = nvmxdizc
;		    ..000..0
;		b = k
;
;===============================================================================

get_sys_prefs	proc

		lda	>sys_prefs
		ldy	#$0002
		sta	[<param_blk_ptr],y

		clc				;indicate no error and return
		rts

		end_proc
		eject

;===============================================================================
; begin_session:  Begin	a cache	deferred writing session.
;
; Created:	1/22/88
; Modified:
; Author:	JJ
;
; Input:	A = <undefined>
;		X = <undefined>
;		Y = <undefined>
;		P = nvmxdizc
;		    ..000...
;		b = k
;
;		A = unchanged
;		X = unchanged
;		Y = unchanged
;		P = nvmxdizc
;		    ..000..0
;		b = k
;
;===============================================================================

begin_session	proc

		lda	#$0001			;set session status to session
		sta	session_stat

		clc				;indicate no error and return
		rts

		end_proc
		eject
;===============================================================================
; end_session:	End a cache deferred writing session.
;
; Created:	1/22/88
; Modified:	1/28/88	(Mikie)
; Author:	JJ
;
; Input:	A = <undefined>
;		X = <undefined>
;		Y = <undefined>
;		P = nvmxdizc
;		    ..000...
;		b = k
;
;		A = unchanged
;		X = unchanged
;		Y = unchanged
;		P = nvmxdizc
;		    ..000..0
;		b = k
;
;===============================================================================

end_session	proc

; Loop through all of the VCRs calling the owner through the FST system	entry
;  asking the FST to flush any deferred	blocks on the volume.

		stz	session_stat		;set session status to no session

		lda	#$0001			;Start with the first FST
more
		jsl	getvcr			;Ask for the VCR
		bcs	done			;Past the last VCR

		jsl	deref2			;Deref VP into vcr_ptr
		stx	<vcr_ptr
		sty	<vcr_ptr+2

		ldy	#vcr_id			;Get the volume id
		lda	[<vcr_ptr],y
		sta	<drvr_vol_id
		sec
		jsl	cache_find_blk
		bcs	next_vcr

		ldy	#vcr_fst_id
		lda	[<vcr_ptr],y
		jsr	find_fst
		tax
		lda	#flush_def
		jsr	do_fst

next_vcr
		lda	#$0000			;Value for get next vcr
		bra	more

done

		clc				;indicate no error and return
		rts

		end_proc
		eject
;===============================================================================
; session_status:  Determine whether or	not a cache deferred writing session
;		   is in progress.
;
; Created:	1/22/88
; Modified:
; Author:	JJ
;
; Input:	A = <undefined>
;		X = <undefined>
;		Y = <undefined>
;		P = nvmxdizc
;		    ..000...
;		b = k
;
;		A = unchanged
;		X = unchanged
;		Y = unchanged
;		P = nvmxdizc
;		    ..000..0
;		b = k
;
;===============================================================================

session_status	proc

		lda	session_stat
		ldy	#$0002
		sta	[<param_blk_ptr],y

		clc				;indicate no error and return
		rts

		end_proc
		eject
;===============================================================================
; reset_cache:	Shutdown the cache and restart it
;
; Created:	April 6, 1988
; Modified:	April 6, 1988
; Author:	MSA
;
; Input:	A = <undefined>
;		X = <undefined>
;		Y = <undefined>
;		P = nvmxdizc
;		    ..000...
;		b = k
;
;		A = unchanged
;		X = unchanged
;		Y = unchanged
;		P = nvmxdizc
;		    ..000..0
;		b = k
;
;===============================================================================

reset_cache	proc

		jsr	end_session		;Close out an active session!
		jsl	cash_shutdown
		jsl	cash_init

		rts

		end_proc
		eject
;===============================================================================
; os_shutdown:	Shutdown the cache and restart it
;
; Created:	June 14, 1988
; Modified:	Sept 26, 1989  CAF
; Author:	JJ
;
; Input:	A = <undefined>
;		X = <undefined>
;		Y = <undefined>
;		P = nvmxdizc
;		    ..000...
;		b = k
;
;		A = unchanged
;		X = unchanged
;		Y = unchanged
;		P = nvmxdizc
;		    ..000..0
;		b = k
;
;===============================================================================

os_shutdown	proc
		entry	shutdown_reboot
;
; Equates
;
Temp1		equ	s_temp1
TempRgn		equ	s_temp2
temp_flag	equ	s_temp3
MMPowerFlag	equ	$e115fe			;Memory	Manager power flag
ToolLocator	equ	$e10000			;Tool Locator entry point

window_frame	equ	$ce			;Offset to wFrame.
clear_vis	equ	$ffdf			;Clear vis bit in wFrame.

SetDeskPat	equ	$5

*
* Normal entry just branches to check for valid shutdown flag...
*
		bra	check_flag		;Do check.
*
* Alternate entry forces re-boot...
*
		Export	shutdown_reboot
shutdown_reboot	lda	#0001			;Force reboot.
		bra	set_flag
*
* Check for valid shutdown flag...
*
check_flag	ldy	#2			;Get offset to parameter.
		lda	[<param_blk_ptr],y	;Get flag.
		and	#%1111111111111000	;Any bits other than 0, 1 & 2 set?
		beq	get_flag		;Nope.
		sec				;Yes, indicate error.
		lda	#parm_range_err		;Get error code.
		rts				;Exit.

get_flag	lda	[<param_blk_ptr],y	;Get flag.
set_flag	sta	<temp_flag		;Save it.
*
* Set shutdown flag to indicate	that application has made a shutdown call and
* set warm_cold_flag to cold 'cuz we are doing a real shutdown...
*
;		lda	#do_shutdown
;		sta	>shutdown_flag
		lda	#0000			;Set to cold shutdown.
		sta	>warm_cold_flag
*
* Trash the Memory Manager power up byte if the caller requested it...
*
		lda	<temp_flag		;Get flag.
		and	#$0002			;Isolate the Memory Mgr trash bit
;;;		beq	post_event		;Don't trash if the bit is 0
		beq	@noTrashMM		;fixed 2-Sep-92 DAL (it was skipping DeskShutDown!)

		lda	>MMPowerFlag		;Zero out high byte of the word
		and	#$00ff
		sta	>MMPowerFlag
@noTrashMM

*
* Take care of NDAs (7/26/88 fix)
*
* 09/26/89 CAF	Moved _DeskShutDown to before the dispatch of the
*		gsos_shutdown event to the notification queue.  This
*		fixed a bug where sometimes the system would hang after
*		an OS_Shutdown call, due to the Desk Manager making a
*		call to the Resource Manager, which had been shut down
*		through the notification_queue already.
*
		_DeskShutDown			;Shut down the desk manager.

*
* Notify anyone in the os_event_queue who wants to know that we are shutting
* down...
*
post_event
*** added 2-Sep-92 DAL, mainly for EtherTalk card
; Call OS_P8_Switch vector with A = $0001 for leaving-GS/OS, for
; things like the ETalk driver, which have no convenient way to
; instally a notify proc on ROM 1.
		lda	#$0001
		jsl	>os_p8_switch
*** end 4-Jun-92
		pha				;Don't care about parms.
		pha
		pha
		lda	#gsos_shutdown		;Get event code.
		ldx	#>gsos_shutdown
		jsl	>os_event		;Let everyone know.
*
* Close all open files just in case someone was sloppy and left any open. 
* Ignore any errors...
*
		jsl	close_all_files		;Make sure all files closed.
*
* Shut down the	device dispatcher.  Ignore any errors.
*
		stz	<drvr_dev_num
		ldx	#3			;assume full shutdown
		lda	<temp_flag		;get the flags for the call
		bit	#%00000001		;restart call?
		beq	@store_code		;no...
		bit	#%00000100		;force eject on restart?
		bne	@store_code		;yes...
		dex				;else change into normal shutdown code
@store_code
		stx	<drvr_call_num		;store the proper shutdown code
		jsl	>dev_dispatcher
*
* Shut down SCM.  Ignore any errors.
*
		jsl	>shutdown_scm

*** added 9-Mar-93 DAL -- shut down DoRight thoroughly
		lda	#$8000
		jsl	>os_p8_switch		;A = $8000 for Shut Down
*** end 9-Mar-93

*
* Decide whether we are	performing a restart or	a power	down.
*
		lda	<temp_flag		;Get flag.
*** optimized 20-Jul-92 DAL
;;;		and	#$0001			;isolate restart/powerdown bit.
;;;		beq	PowerDown		;Do powerdown.
		lsr	a
		bcc	PowerDown
*** end 20-Jul-92 DAL
		jmp	restart			;Do restart.
*
* Power	down...
* Is the window manager active?
*
PowerDown
		lda	#0			;init SysPrefs to ensure that the
		sta	>sys_prefs		; shutdown dialog is displayed

		pha				;Space for result.
		_WindStatus			;Do call.
		pla				;Get status. Active?
		bne	active			;Yes.
		jmp	do_dialog		;Nope.
;
; Yes, so go through the window list and make the Window
; Manager think	that all the windows are invisible.
;
active		pha				;Get pointer to first window.
		pha
		_GetFirstWindow
pull_and_loop	PullLong <Temp1

Loop		ora	<Temp1			;Nil pointer?
		beq	done_windows		;Yep, so we're done w/windows.

		ldy	#window_frame		;Get offset to wFrame.
		lda	[<temp1],y		;Get frame value.
		and	#clear_vis		;Clear visible bit.
		sta	[<temp1],y		;Save frame value.

		pha				;Get pointer to next window.
		pha
		pei	<temp1+2
		pei	<temp1
		_GetNextWindow
*** opt 2-Sep-92 DAL
;;;		PullLong <Temp1
;;;		bra	loop			;Next.
		bra	pull_and_loop
*** end 2-Sep-92

done_windows
;
; Now, we add the menu bar area	to the desk top
; region.  This	way when we re-draw the	desktop,
; the menu bar will be erased too.
;
		pha				; get a temp rgn
		pha
		_NewRgn
		lda	1,s			;save region
		sta	<TempRgn		;but leave on stack for RectRgn call
		lda	3,s
		sta	<TempRgn+2

		PushLong #SizeRect		; set the rgn to size of screen
		_RectRgn

		pha				; add this to desktop rgn
		pha
		PushWord #1
		pei	<TempRgn+2
		pei	<TempRgn
		_DeskTop
		pla				; remove unused output of desktop
		pla				; call

		pei	<TempRgn+2		;Get rid of temp rgn.
		pei	<TempRgn
		_DisposeRgn
;
; Finally, set the desktop pattern to black
;

*** opt 2-Sep-92 DAL -- Saved 4 bytes, because Desktop(SetDeskPat) does not use return value!
;;;		pha
;;;		pha
		PushWord #SetDeskPat
		PushLong #$40000000
		_DeskTop
;;;		pla
;;;		pla

;
; Refresh the desk top.
;
*** opt 20-Jul-92 DAL
;;;		PushLong #SizeRect
		lda #0
		pha
		pha
*** end 20-Jul-92 DAL
		_RefreshDeskTop
;
; Put up the power down	dialog.
;
do_dialog	pea	33			;error message number for shutdown
		lda	#$0
		pha				;push two null pointers
		pha
		pha
		pha
		jsl	s_report_error		;call the error	message handler
;
; Do a restart.
;
restart		jmp	restart_system


		end_proc
		eject
;===============================================================================
; quit
;
; Handle the QUIT call
;
; Created:	10/13/87
; Modified:
; Author:	JJ
;
; Input:	A = <undefined>
;		X = <undefined>
;		Y = <undefined>
;		P = nvmxdizc
;		    ..000...
;		b = k
;
; Output:	This routine never returns.
;
; This routine sets up the environment for GQUIT as follows:
;
;		A = <undefined>
;		X = If there is	a pathname, and	it is a	partial	pathname, X
;		    gives the prefix number expressed by the prefix designator
;		    In all other cases,	X = $FFFF
;		Y = $0000 if this was a	class 0	QUIT call
;		    $0002 if this was a	class 1	QUIT call
;		D = the	GS/OS direct page $BD00
;		S = the	GS/OS stack
;		P = nvmxdizc
;		    ..000...
;===============================================================================

do_quit		proc
*
* If it's a class 1 call, check to see if pathname is present...
*
		ldy	|class
		beq	check_path_ptr		;branch if class 0
		lda	[<param_blk_ptr]	;Get pcount.
		beq	no_pathname		;branch ahead if there is no pathname
;
; Here,	we know	there is a pathname field.  Check to see if it is null pointer.
;
check_path_ptr	lda	[<param_blk_ptr],y	;check low word of pathname pointer
		bne	translate_path
		iny
		iny
		lda	[<param_blk_ptr],y	;check high word of pathname pointer
		beq	no_pathname
;
; Perform translation on the pathname.
;
translate_path	ldx	#0			;set default prefix to prefix 0
		stz	|fst_flags		;do not upper case letters
		stz	|xlate_count		;indicate that this is the first path
		lda	|class			;offset of pathname pointer
		jsr	xlate_path2		;perform pathname translation
		bcs	syntax_error
;
; Get value indicating prefix number into X.  This was set by xlate_path.
; And, put class value in Y.
;
		ldx	|prefix_number
		ldy	|class
;
; Set shutdown flag to indicate	that a GQUIT is	in progress
;
call_gquit
;		lda	#do_gquit
;		sta	>shutdown_flag

;
; Transfer control to GQUIT.
;
		jmp	>p16quit
;
; We can never get back	here.
;
no_pathname	stz	<path_flag		;set path flags to indicate no file name
		ldx	#$FFFF			;indicate there was no partial pathname
		ldy	|class			;set the class
		bra	call_gquit

syntax_error	lda	#bad_path_syntax

error_tail	sec
		rts

		end_proc

		eject
;===============================================================================
; new_volume_call
;
; Handle new style of Volume call, with additional parameters
;
; Created:	02/21/91
; Modified:
; Author:	Greg Branche
;
; Input:	A = <undefined>
;		X = <undefined>
;		Y = <undefined>
;		P = nvmxdizc
;		    ..000...
;		b = k
;
;===============================================================================

new_volume_call	Proc

		Import	e1_volume_call

		lda	[<param_blk_ptr]	;get the pCount
		cmp	#$0007			;old-style call?
		bcc	old_call		;yes, just handle like before
		pha				;save pCount
		lda	#$0006			;reset to old maximum to keep
		sta	[<param_blk_ptr]	;...the FSTs happy
		pea	new_call-1		;push a return address

old_call	jmp	do_type_2		;go handle the old way

new_call					;returns to here for new-style call
		tay				;save any error code returned from FST
		pla				;retrieve original pCount
		sta	[<param_blk_ptr]	;put back into parm block
		php				;save carry
		phy				;save possible error code
		jsl	e1_volume_call		;call the handler in bank $E1
		pla				;restore error code
		plp				;and carry
		rts

		end_proc

		eject
;===============================================================================
; Interrupt and	Event Subsystems
;===============================================================================

;===============================================================================
; Interrupt Subsystem Code
;===============================================================================
;
; The interrupt	subsystem consists of modules in the language card and modules
; in bank $00 below the	language card.	The language card modules are as
; follows:
;
; interrupt_data	Global data for	the interrupt subsystem
; init_int		Interrupt subsystem initialization
; alloc_int		ALLOC_INTERRUPT	system call
; dealloc_int		DEALLOC_INTERRUPT system call
; bind_int		BIND_INT system	service	call
; unbind_int		UNBIND_INT system service call
; dispatch_int		interrupt dispatcher
; shutdown_int		shut down the interrupt	system
;
; The module below the language	card is	as follows:
;
; below_lc_int		interrupt handler vectoring and	dispatching stub
;
;===============================================================================

;===============================================================================
; interrupt_data
;===============================================================================

interrupt_data	proc

		entry	vrn_to_index
		entry	loc_1
		entry	loc_2
		entry	next_avail_vrn
		entry	past_avail_vrn
		entry	vect_disp_base
		entry	vect_disp_hand
		entry	vect_ref_num
		entry	int_hand_addr
		entry	handled
;
; Interrupt Identification Table.  This	data structure is a dynalist in	which
; each entry contains a	virtual	pointer	to an interrupt	control	record.	 The
; entry's index is the interrupt id number corresponding to a specific binding
; between an interrupt source and its interrupt	handler.
;
;
; Interrupt Control Record.  These records contain all the information needed to
; execute an interrupt handler.	 There are two ways to get to interrupt	control
; records:  1) each interrupt identification table entry points	directly to a
; single ICR and 2) each ICR is	on a linked list of ICRs corresponding to the
; same firmware	interrupt vector.  The format of an ICR	is as follows:
;
;  ________________________________________________________________
; | | |	| | | |	| | | |	| | | |	| | | |	| | | |	| | | |	| | | |	| |
; |	   VP to next ICR corresponding	to specific VRN		  |
; |_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|
;
;  ________________________________________________________________
; | | |	| | | |	| | | |	| | | |	| | | |	| | | |	| | | |	| | | |	| |
; |	   VP to previous ICR corresponding to specific	VRN	  |
; |_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|
;
;  ________________________________________________________________
; | | |	| | | |	| | | |	| | | |	| | | |	| | | |	| | | |	| | | |	| |
; |		 Interrupt Handler Memory Address		  |
; |_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|
;
;				   ________________________________
;				  | | |	| | | |	| | | |	| | | |	| |
;				  |		 VRN		  |
;				  |_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|
;
; Normally, only offsets to handler and	vrn fields are needed.
;
;
; VRN to VI Translation	Table.	This table holds the information needed	to
; translate a vector reference number (VRN) into an index (not byte offset) to
; the Vector Table entry corresponding to the VRN.  The	table consists of
; 3-word entries.  The first two words of each entry represent a range of legal
; VRN values.  If the input VRN	falls between the two values, the output index
; is the input VRN value minus the value of the	third word.  Value of $00
; in the first word of an entry	indicates the current end of table.
;
vrn_to_index	DC.W	$08,$17,$07		;map VRNs $8-$17 into indexes $01-$10
loc_1		DC.W	$00,$00,$00		;reserved for future expansion
		DC.W	$00,$00,$00		;reserved for future expansion
		DC.W	$00,$00,$00		;reserved for future expansion
loc_2		DC.W	$00

next_avail_vrn	DC.W	loc_1			;address of next available entry
past_avail_vrn	DC.W	loc_2			;address just past available entries
;
; Vector Table.	 This is a table of headers to linked lists of ICRs.  The table
; is indexed by	Vector Index (VI), which is an arbitrary index assigned	to each
; firmware interrupt vector.  The Vector to Index Translation Table provides
; the translation from VRNs to VIs.  Each linked list consists of the ICRs for
; interrupt handlers bound to the particular firmware interrupt	vector.	 This
; table	is actually allocated in the memory controlled by the GIM.
;
;  VI  Offset in	Corresponding vector
;      GIM Tables
;
; $00  icr_list		P16 interrupt handlers
; $01  icr_list+4	irq.aptalk
; $02	       +8	irq.serial
; $03	       +12	irq.scan
; $04	       +16	irq.sound
; $05	       +20	irq.vbl
; $06	       +24	irq.mouse
; $07	       +28	irq.qtr
; $08	       +32	irq.kbd
; $09	       +36	irq.response
; $0A	       +40	irq.srq
; $0B	       +44	irq.dskacc
; $0C	       +48	irq.flush
; $0D	       +52	irq.micro
; $0E	       +56	irq.1sec
; $0F	       +60	irq.ext
; $10	       +64	irq.other
; $11	       +68	reserved for expansion
; $12	       +72	reserved for expansion
; $13	       +76	reserved for expansion
; $14	       +80	reserved for expansion
; $15	       +84	reserved for expansion
; $16	       +88	reserved for expansion
; $17	       +92	reserved for expansion
; $18	       +96	reserved for expansion
;
; Vector Dispatch Table.  This is a table that must be located in memory
; below	the language card.  GS/OS patches the firmware interrupt vectors
; to point to entries in this table.  Each entry is an instruction sequence
; of the form:	ldx #vi	  bra common.  vi is the vector	index corresponding
; to the interrupt vector and common is	the label on common processing code
; that appears after the other table entries.
;
; The interrupt	system initializer (int_init) constructs the table in managed
; memory.  It puts the address of the table into vect_disp_base	and the	handle
; to the table in vect_disp_hand.
;
vect_disp_base	DC.L	00000000		;base address of Vector Dispatch Table
vect_disp_hand	DC.L	00000000		;handle of the Vector Dispatch Table
;
; Data used by alloc_interrupt and bind_int
;
vect_ref_num	DC.W	0000			;vector reference number from bind_int
						;...call ($0000 for alloc_interrupt)
int_hand_addr	DC.L	00000000		;handler address from alloc_interrupt
						;...or bind_int
handled		DC.W	0000			;when polling interrupt handlers tied
						;...to a specific VRN, tells whether or
						;...not the interrupt has been handled
						;$0000 = not yet handled
						;$8000 = already handled
		end_proc
		eject
;===============================================================================
; init_int
;
; Initialize the interrupt manager data	structures.
;===============================================================================

; init_int assumes that DBR is set to 0 (our program bank)
init_int	proc

		php				;save interrupt state
		sei				;disable interrupts
;
; Set the user interrupt vector	at $00/03FF-$00/3FFE to	point to the GS/OS
; interrupt system entry point below the language card in bank $00.
;
		lda	#user_int_entry
		sta	user_int_vector
*
* If we're doing a warm startup, we're done...
*
		lda	>warm_cold_flag		;Warm startup?
		bne	out			;Yes, so done.
;
; The Interrupt	Identification Table dynalist is set up	by init_gim.
;
; init_gim also	sets every vp in the Vector Table to null.
;
; Allocate and initialize the Vector Dispatch Table.  Each 4-byte entry	in this
; table	consists of the	instruction sequence ldx #vi bra common.  At the label
; common is the	instruction jml	common_disp_ent.  This instruction is at the end
; of this table.
;
; First, allocate a fixed memory segment of sufficient size.
;
		lda	#vect_disp_len+4	;length of MM segment
		jsr	grab_fixed_seg		;allocate the segment
		bcs	mm_error		;handle memory manager error
		stx	|vect_disp_hand		;save handle for later deallocation
		sty	|vect_disp_hand+2
		jsr	lock_hand		;lock the segment into position
		jsr	mm_deref		;dereference the handle
		stx	|vect_disp_base		;save pointer to the segment
		sty	|vect_disp_base+2
		stx	<ptr			;also save it on direct page
		sty	<ptr+2
;
; Next,	copy the jml common_disp_ent assembled at the label qb7	into the last
; 4 bytes of the table.
;
		ldy	#vect_disp_len+2	;offset	of last	word in table
;		lda	|qb7+2			;get two high bytes of address operand
		lda	#common_int_ent>>8	;get two high bytes of address operand
		sta	[<ptr],y		;...and store them in table
		dey
		dey
;		lda	|qb7			;get opcode and low byte of operand
		datachk	off
		lda	#((common_int_ent<<8)+$5c) ;get opcode (JML) and low byte of operand
		datachk	on
		sta	[<ptr],y		;...and store them in table
;
; Now, set up to put the ldx #vi bra common instruction	sequences into the
; table.  Start	at the last entry in the table and move	toward the beginning.
;
		lda	#num_vects-1		;highest vector number to low byte of A
		ora	#$A200			;LDX# opcode to high byte of A
		xba				;swap to get right opcode/operand order
		tax				;save in X
		lda	#$0080			;BRA $00 instruction to A
;
; Begin	storing	instructions into the table.
;
loop_2		dey				;set offset for branch instruction
		dey
		bmi	out
		sta	[<ptr],y		;store branch
		pha				;save branch
		txa				;get the LDX #
		dey				;set offset for load A instruction
		dey
		sta	[<ptr],y		;store the LDX #
		sec				;decrement the immediate value in LDX#
		sbc	#$0100
		tax				;...and save result in X
		pla				;recover branch instruction
		clc				;add 4 to the branch offset
		adc	#$0400
		bra	loop_2			;do it some more

;qb7		jml	common_int_ent		;convenient place to put instruction
						;... to be copied into Vector Disp Tbl

out		plp				;restore interrupt state
		clc				;indicate no error
		rts

mm_error	plp				;restore interrupt state
		sec				;indicate error
		rts

		end_proc
		eject
;===============================================================================
; alloc_int
;===============================================================================

alloc_int	proc


o_int_num	equ	0			;offset of int_num field in parm blk
o_int_code	equ	2			;offset of int_code field in parm blk
;
; Set up parameters for	call to	build_icr.
;
		ldy	#o_int_code		;offset of int_code field in parm blk
		lda	[<param_blk_ptr],y	;get low word of handler address
		tax				;move low word handler address to X
		iny
		iny
		lda	[<param_blk_ptr],y	;get high word of handler address
		tay				;move high word	handler	address to Y

		lda	#$0000			;vrn=$0000 for P16-style int handlers

		jsr	build_icr		;set up the interrupt data structures
		bcs	build_icr_err		;branch ahead if there was an error

		sta	[<param_blk_ptr]	;return	int_num (interrupt id)

		rts				;carry must be clear

build_icr_err	cmp	#$0001			;is it an invalid vrn?
		bne	not1
empty_vect_err	lda	#parm_range_err		;translate to parameter range error
		sec
		rts

not1		lda	#irq_table_full		;otherwise, must be memory unavailable
		sec
		rts

		end_proc
		eject
;===============================================================================
; bind_int
;
; Bind an interrupt source (represented	by its firmware	vector reference number)
;===============================================================================

bind_int	proc

o_pcount	equ	0			;offset of parameter count field
o_int_num	equ	2			;offset of int_num field in parm blk
o_vrn_parm	equ	4			;offset	of vrn field in parm block
o_int_code	equ	6			;offset of int_code field in parm blk
;
; First, determine if firmware vector needs to be patched and do the patch if
; necessary.
;
		ldy	#o_vrn_parm		;offset of vrn in parameter block
		lda	[<param_blk_ptr],y	;get the vrn value
		beq	parm_error		;vrn=$0000 is illegal (special case)
		pha				;save it
		jsr	empty_vect		;has the vector been patched yet?
		bcs	empty_vect_err		;c=1 means invalid vrn
		bne	after_patch		;no, jump ahead

patch		pla				;get the vrn value back
		pha				;re-save it, too
		jsr	patch_vector		;patch the firmware vector
		bcs	patch_vect_err
;
; Make a new ICR for the interrupt handler and insert it in the	interrupt
; manager data structures.
;
after_patch	ldy	#o_int_code		;offset of interrupt handler address
		lda	[<param_blk_ptr],y	;get low word of handler address
		tax
		iny
		iny
		lda	[<param_blk_ptr],y	;get high word of handler address
		tay
		pla				;recover vrn value

		jsr	build_icr		;build an ICR for this handler
		bcs	build_icr_err

		ldy	#o_int_num		;offset of interrupt ident field
		sta	[<param_blk_ptr],y	;return int ident to user

		rts				;carry must be clear

build_icr_err	cmp	#$0001			;is it an invalid vrn?
		bne	not1
parm_error	lda	#parm_range_err		;translate to parameter range error
		sec
		rts

patch_vect_err	pla

not1		lda	#irq_table_full		;otherwise, must be memory unavailable
		sec
		rts

empty_vect_err	pla
		bra	parm_error

		end_proc
		eject
;===============================================================================
; dealloc_int
;===============================================================================

dealloc_int	proc

o_int_num	equ	0			;offset of int_num field in parm blk

		ldy	#o_int_num		;get int_num from parameter block
		lda	[<param_blk_ptr],y

		jsr	wreck_icr		;get rid of the ICR
		lda	#parm_range_err		;Set code in case error.
		rts				;normal	return, carry clear

		end_proc
		eject
;===============================================================================
; unbind_int
;
; Unbind a previously formed binding between a firmware	vector and a GS/OS
; interrupt handler.
;===============================================================================
unbind_int_vec	PROC
		phb				;save calling data bank register
		phk				;switch to our data bank
		plb

		jsr  unbind_int2

		plb				;restore user's data bank register
		rtl
		end_proc
		
unbind_int	proc

o_pcount	equ	0			;offset	of pcount field	in parm blk
o_int_num	equ	2			;offset of int_num field

o_fwd_vp	equ	0			;offset of forward vp
o_bkwd_vp	equ	4

;
; First, delete	the ICR	for the	specified interrupt handler.
;
		ldy	#o_int_num		;get the int_num from the parm blk
		lda	[<param_blk_ptr],y

		EXPORT unbind_int2
unbind_int2	jsr	wreck_icr		;get rid of the ICR
		bcs	wreck_icr_err
;
; Now, we need to determine if we need to restore the original value in	the
; firmware interrupt vector.  This is the case if there	is only	1 ICR left in
; the list of ICRs corresponding to the	given VRN.  Note: wreck_icr has	left the
; VRN in A.
;
		pha				;save the vrn

		jsr	map_vrn			;turn vrn into Object List Tbl offset
		tax

		lda	|obj_list_tab+2,x	;see if list header vp is null
		tay
		ora	|obj_list_tab,x
		beq	vp_is_null

		lda	|obj_list_tab,x		;get the low word of vp again
		tax

		jsl	gderef			;get pointer to	forward link field

		stx	<s_temp1		;set up	pointer on direct page
		sty	<s_temp1+2

		ldy	#o_fwd_vp+succ		;check that both forward and backward
		lda	[<s_temp1],y		;vps are 0
		iny
		iny
		ora	[<s_temp1],y
		iny
		iny
		ora	[<s_temp1],y
		iny
		iny
		ora	[<s_temp1],y
		bne	links_not_null
;
; There	is only	this one element in the	linked list, so	it must	be the saved
; value	of the firmware	vector.	 Therefore, do the restore operation.
;
links_null	pla				;get back the saved VRN
		jsr	restore_vector		;restore the value of the firmware vect
		bcs	restore_err

		clc				;normal return
		rts
;
; There	was more than one element in the linked	list, so it wasn't time to
; restore the firmware vector yet.
;
links_not_null	pla				;pop the saved VRN
		clc
		rts

vp_is_null	pla				;if we expected to restore a patched
restore_err	lda	#$000E			;...firmware vector and there is an
		jsr	>s_sys_death		;...error, this	is very bad

wreck_icr_err	lda	#parm_range_err
		sec
		rts

		end_proc
		eject
;===============================================================================
; disp_user_int
;
; On entry to this routine, the	machine	state is as follows:
;
;		e = emulation
;		D = $0000
;		DBR = $00
;		speed =	1 MHz
;		i = disabled
;===============================================================================

disp_user_int	proc
		entry	return_1

o_fwd_vp	equ	0			;offset of forward vp after deref_int
o_handler_addr	equ	8			;offset of handler address

		longa	off
		longi	off

		lda	#$80			;switch	to high speed
		tsb	cyareg

		clc				;switch to native mode
		xce

		longa	on
		longi	on

		rep	#mx16			;16-bit m and x

		pei	<i_temp+6		;save current val of a direct page temp
		pei	<i_temp+4
		pei	<i_temp+2
		pei	<i_temp
;
; Get vp to first ICR on the list of P16 interrupt handlers.
;
		ldx	|obj_list_tab+icr_list
		ldy	|obj_list_tab+icr_list+2
;
; Loop through the ICRs	until one handles the interrupt	or we get to the end of
; the list.
;
loop		txa				;check if current vp is null
		bne	not_null
		tya
		beq	int_exit		;if null, we polled everybody unsuccess

not_null	jsr	deref_int		;dereference the vp
		stx	<i_temp
		sty	<i_temp+2
;
; Get interrupt	handler	address	out of the ICR and patch it into a long	jump
; instruction we have cleverly placed below the	language card.
;
		ldy	#o_handler_addr		;offset of low word handler address
		lda	[<i_temp],y		;low word of handler address
		sta	|int_disp_jump+1	;store into jump instruction
		iny				;offset of middle word handler address
		lda	[<i_temp],y		;note that middle byte of 3-byte
		sta	|int_disp_jump+2	;...address is stored twice
;
; Now jump to the handler calling stub below the language card.
;
		phb				;save DBR value

		sec				;required by defined calling standard

		jmp	disp_stub_1

return_1					;		;stub will jump to return here

		plb				;restore DBR value

		bcc	int_was_handled		;branch ahead if interrupt handled
;
; Here,	the interrupt was not handled, so follow the ICR forward link to the
; next ICR.
;
		ldy	#o_fwd_vp		;offset of forward vp
		lda	[<i_temp],y		;low word of forward vp
		tax
		iny
		iny
		lda	[<i_temp],y		;high word of forward vp
		tay

		bra	loop			;try the next ICR
;
; Here,	the interrupt was handled.
;
int_was_handled

int_exit	pla				;restored saved value of temp
		sta	<i_temp
		pla
		sta	<i_temp+2
		pla
		sta	<i_temp+4
		pla
		sta	<i_temp+6

		sec				;return to emulation mode
		xce

		longa	off
		longi	off

		lda	#$80			;return to low speed
		trb	cyareg

		rts				;return to int code below lang card

		end_proc
		eject
;===============================================================================
; disp_common_int
;
; On entry to this routine, the	machine	state is as follows:
;
;		e = native
;		m = 8-bit
;		x = 8-bit
;		D = undefined
;		DBR = $00
;		speed =	high
;		i = disabled
;===============================================================================

disp_common_int	proc
		entry	return_2

o_fwd_vp	equ	0			;offset of forward vp after deref_int
o_handler_addr	equ	8			;offset of handler address
o_the_vrn	equ	12			;offset to vector reference number (15-Dec-92 DAL)

		rep	#mx16			;switch temporarily to full 16-bit mode
		longa	on
		longi	on

		lda	#$0000			;force D=$0000
		tcd

		pei	<i_temp+6		;save current val of direct page temp
		pei	<i_temp+4
		pei	<i_temp+2
		pei	<i_temp

		txa				;turn Vector Index (VI) into tbl offset
		jsr	map_vi
		tax
;
; Set handled to indicate that no one has handled the interrupt	yet.
;
		stz	|handled
;
; Get vp to first ICR on the list of interrupt handlers	having this VI.
;
		lda	|obj_list_tab,x		;low word
		ldy	|obj_list_tab+2,x	;high word
		tax				;final destination for low word
;
; Loop through the ICRs	until one handles the interrupt	or we get to the end of
; the list.
;
loop		txa				;check if current vp is null
		bne	not_null
		tya
		beq	int_exit		;if null, we polled everyone unsuccess

not_null	jsr	deref_int		;dereference the vp
		stx	<i_temp
		sty	<i_temp+2
;
; Get interrupt	handler	address	out of the ICR and patch it into a long	jump
; instruction we have cleverly placed below the	language card.
;
		ldy	#o_handler_addr		;offset of handler address
		lda	[<i_temp],y		;low word of handler address
		sta	|common_disp_jmp+1	;store into jump instruction
		iny				;offset of middle word handler address
		lda	[<i_temp],y		;note that middle byte of 3-byte
		sta	|common_disp_jmp+2	;address is stored twice
;
; Clear	carry if interrupt has not yet been handled.  Set carry	if it has been
; handled.
;
		lda	#$8000			;propagate high bit of handled into c
		adc	|handled		;do not	change c before	calling handler
;
; Now, jump to the handler calling stub	below the language card.
;
		phb				;save value of DBR
		sep	#mx8			;switch	to 8-bit native mode
		longa	off
		longi	off
		jmp	disp_stub_2		;do the jump

return_2					;stub will jump to return here

		rep	#mx16			;back to full 16-bit mode
		longa	on
		longi	on
		plb				;restore value of DBR

*** added 15-Dec-92 DAL -- If we are doing IRQ.OTHER (vrn=$0017) then restore MSLOT
; DBR = $00
		php
		ldy	#o_the_vrn
		lda	[<i_temp],y
		cmp	#$0017			;IRQ.OTHER?
		bne	@never_mind

		sep	#$30
		longa	off
		longi	off
		lda	>$e1011b		;irq_MSLOT
		sta	$07f8			;MSLOT
		sta	@Cn00_cheat+2		;We're in bank zero!
		bit	$cfff
@Cn00_cheat	bit	$C000			;*** modified to $Cn00 ***

		longa on
		longi on			;don't bother with REP, we're PLPing anyway

@never_mind	plp
*** end 15-Dec-92


;;;		bcc	int_was_handled		;branch ahead if interrupt was handled
		bcs	int_not_handled

int_was_handled
		lda	#$8000			;set handled to indicate interrupt was
		sta	|handled		;...handled

int_not_handled
;
; Here,	the interrupt was not handled, so follow the ICR forward link to the
; next ICR.
;
do_next		ldy	#o_fwd_vp		;offset of forward vp
		lda	[<i_temp],y		;low word of forward vp
		tax
		iny
		iny
		lda	[<i_temp],y		;high word of forward vp
		tay

		bra	loop			;try the next ICR

;;;int_was_handled
;;;
;;;		lda	#$8000			;set handled to indicate interrupt was
;;;		sta	|handled		;...handled
;;;		bra	do_next

int_exit	pla				;restore saved value of temp
		sta	<i_temp
		pla
		sta	<i_temp+2
		pla
		sta	<i_temp+4
		pla
		sta	<i_temp+6

*** added 15-Dec-92 DAL -- Before returning to firmware, condition CLC if handled=$8000, SEC if handled=0
		lda	|handled
		eor	#$8000
		asl	a
*** end 15-Dec-92

		sep	#mx8			;go back to 8-bit m and x
		longa	off
		longi	off
		rts				;return to the firmware

		end_proc
		eject
;======================================================================
; deref_int : Returns a	physical 24 bit	address	corresponding to a
;	       32 bit virtual pointer.	Does not require direct	page to
;	       be GS/OS	direct page (for use at	interrupt time).
;
; Created:	 APR  1, 1987 (no, really)
; Modified:	 November 23, 1987
; Author:	 Mike Askins
;
; Copyright Apple Computer Inc.	1987  All rights reserved
;
; Input:	 A = <undefined>
;		 X = Virtual Pointer (low)
;		 Y = Virtual Pointer (high)
;		 P = nvmxdizc
;		     ..000...
;	   seg_tab = Pointer to	segment	table  (accessed long)
;
; Output:	 A = <undefined>
;		 X = Physical Address (low)
;		 Y = Physical Address (high)
;		 P = nvmxdizc
;		     ..000...
;		 b = preserved
;
;======================================================================

deref_int	proc

		longa	on
		longi	on

; This routine is to be	used at	interrupt time to walk a list of ICRs.
;  It does not require GS/OS direct page to be active.	The value
;  returned points to the position in the block	overhead corresponding
;  to the forward link,	which is what the ICR walking code really wants
;  it to access.


; Zero page storage

st		equ	i_temp

*
* Save the direct page we will use because we can be in a situation
* where the stack has crawled down into direct page (by calling
* AlertWindow)...
*
		lda	<st			;Save st.
		sta	>st_save
		lda	<st+2
		sta	>st_save+2

; Set up temporary zero	page storage

		lda	>seg_tab_copy
		sta	<st
		lda	>seg_tab_copy+2
		sta	<st+2

; Set up a pointer to the handle for this segment

		lda	[<st],y
		pha
		iny
		iny
		lda	[<st],y
		sta	<st+2
		pla
		sta	<st

; Add the offset into the address referenced by	the handle and return

		txa
		clc
		adc	#succ			;Relative offset of the	forward link
		adc	[<st]

		tax
		ldy	#$0002
		lda	[<st],y
		bcc	skip
		inc	a

skip
		tay
*
* Restore direct page usage and exit...
*
		lda	>st_save		;Restore st.
		sta	<st
		lda	>st_save+2
		sta	<st+2
		rts

st_save		dc.l	00000000		;Temp storage.

		end_proc
		eject
;===============================================================================
; Signal Subsystem Code
;===============================================================================
; signal_data	 this module is	in the file os.call
; init_signal	 initialize the	signal subsystem
; signal_signal	 add an	signal to the GS/OS signal queue
;===============================================================================

;===============================================================================
; init_signal
;
; Initialize the signal	management subsystem.
;===============================================================================

init_signal	proc
*
* If we're doing a warm startup, skip ahead to start_heart...
*
		lda	>warm_cold_flag		;Warm startup?
		bne	start_heart		;Yes, so skip ahead.

; Init signal queue...

		lda	#sig_null_ptr		;set the signal queue to the empty state
		sta	|signal_head
;
; Initialize free list of signal records.
;
		stz	|signal_free		;free list header points to first record
						;...in signal table
		lda	#sig_null_ptr		;null pointer to last record in table
		sta	|signal_table+sig_rec_size*(num_signals-1)

		lda	#sig_rec_size*(num_signals-1) ;offset of last record
		bra	ar_1

fwd_ptr_init	sta	|signal_table-sig_rec_size,x
		sec
		sbc	#sig_rec_size
ar_1		tax
		bne	fwd_ptr_init

		stz	|dispatch_busy		;indicate dispatch_signal not running

start_heart	pea	signal_beat>>16		;push pointer to signal dispatcher
		pea	signal_beat		;...heartbeat routine
		_SetHeartBeat
;;;		bcs	return			;save two bytes, 15-Dec-92 DAL

		pea	$0002			;enable VBL interrupts
		_IntSource

return		rts


		end_proc
		eject
;===============================================================================
; s_signal
;
; Announce to GS/OS that a signal has occurred.	 GS/OS places a	signal record in
; its signal queue.
;
; Created:	December 23, 1987
; Modified:	February 9, 1988
;		February 29, 1988  Routine no longer calls the dispatcher.
; Author:	Jim Jatczynski
;
; Input:	A = signal priority
;		X = low	word of	signal handler address
;		Y = high word of signal	handler	address
;		P = nvmxdizc
;		    ..000...
;
; Output:	A = trashed
;		X = trashed
;		Y = trashed
;		P = nvmxdizc
;		    ..000...
;		DBR = unchanged
;		D = unchanged
;===============================================================================

s_signal	proc

handler_addr	equ	1

		php				;save interrupt state
		sei				;disable interrupts

		phb				;save DBR
		phk				;set DBR to PBR
		plb
		phd				;Save direct page register.

		pha				;save signal priority
		phy				;save signal handler address
		phx

		ldx	#direct_base		;Switch in our direct page.
		phx				;(must preserve A).
		pld
;
; Allocate signal record and put it into signal	queue according	to priority.
; Priority is in A.
;
		jsr	queue_signal		;returns signal_table offset in X
		bcs	queue_error
;
; Copy input information into new signal record.  queue_signal has already set
; priority field.
;
		lda	handler_addr,s
		sta	|signal_table+sig_hand_addr,x
		lda	handler_addr+2,s
		sta	|signal_table+sig_hand_addr+2,x
*
* Install our patch into main interrupt vector in case we aren't in the middle
* of an OS call (in which case dispatch_signal will not be called)...
*
		jsr	install_int_vec		;Install patch.
;
; Clear	the stack and return to	caller.
;

*** optimized 15-Dec-92 DAL (saved 3 bytes)
;;;		tsc				;squeeze 6 bytes out of stack
;;;		clc
;;;		adc	#6
;;;		tcs
		pld
		pld
		pld
*** end 15-Dec-92

		pld				;Restore direct page.
		plb				;restore DBR
		plp				;restore P (includes interrupt state)

		clc
		rtl
;
; Error	exit if	queue_signal returned error.
;
queue_error
*** optimized 20-Jul-92 DAL
;;;		tsc				;clear garbage off stack
;;;		clc
;;;		adc	#6
;;;		tcs
		pla
		pla
		pla
*** end 20-Jul-92 DAL
		pld				;Restore direct page.
		plb				;restore DBR and P
		plp

		sec				;indicate error
		rtl

		end_proc
		eject
;===============================================================================
; dispatch_signal
;
; Call one or more signal handlers.
;
; Created:	February 8, 1988
; Modified:
; Author:	Jim Jatczynski
;
; Input:	P = nvmxdizc	| c is set to the value	that i had on entry to
;		    ..000..|____| the routine that ultimately called dispatch_
;				| signal.  dispatch_signal is called either from
;				| s_signal or from SCM exit code.
; Output:	A = preserved
;		X = preserved
;		Y = preserved
;		D = preserved
;		S = restored to	pre-call value on exit
;		DBR = preserved
;		P = nvmxdizc
;		    **000***	* = preserved
;===============================================================================

dispatch_signal	proc
;
; Save all of the registers, and disable interrupts.
;
@doit		php				;Save P
		sei				;Disable interrupts.
		phb				;Save DBR
		phk				;Set DBR to PBR
		plb
		phd				;Save D, A, X, Y
		pha
		phx
		phy
;
; If GS/OS is busy or dispatch_signal has been re-entered, return immediately.
;
		lda	>active_flag
		bmi	return

		lda	|dispatch_busy
		bmi	return
;
; Neither GS/OS	nor dispatch_signal is busy.  Set dispatch_signal busy flag.
;
		lda	#disp_busy
		sta	|dispatch_busy
;
; Save incoming	state of c flag, which gives old state of i bit.  Note:
; code before this point must preserve c.
;
		lda	#$0000			;default state is 'enabled'
;;;		bcc	save_it			;optimized 15-Dec-92 DAL (saved 2 bytes; if CLC, we still get $0000)
		ror	a			;set A = $8000 ('disabled')
save_it		sta	|interrupt_state
;
; Beginning of the signal handler dispatch loop.  First, check to see if there
; are any queued signals.
;
check_queue	ldx	|signal_head		;head pointer of signal queue null?
		bpl	do_signal		;Nope.
		jsr	remove_int_vec		;Yes, make sure our patch is out.
		bra	return2			;Return
;
; Get the first	signal in the queue and	prepare	to call	the signal handler.
; Simulate a JSL instruction to	avoid self-modifying code.
;
do_signal	phk				;push bank byte of return address
		pea	return_here-1		;push return address - 1 (RTL adds 1)

		lda	|signal_table+sig_hand_addr+2,x	;high word handler addr
		xba
		pha				;push bank and dummy byte
		phk				;push another dummy byte
		lda	|signal_table+sig_hand_addr,x ;low word of handler addr
		dec	a			;subtract 1 because RTL will add 1
		sta	1,s

		jsr	dequeue_signal		;get rid of record in signal queue
;
; Restore interrupt state that existed when the	subsystem that called
; dispatch_signal was called.
;
		bit	|interrupt_state
		bmi	ar_1
		cli
ar_1
;
; Call the signal handler.
;
		rtl				;simulate a JSL

return_here					; ;get back here when handler RTLs
;
; Restore DBR =	PBR and loop back to check_queue...
;
		sei				;disable interrupts
		phk				;restore DBR=PBR
		plb
		bra	check_queue		;go see if there are any in queue
;
; Set dispatcher state to not-busy and return.
;
return2		stz	|dispatch_busy		;indicate dispatcher not busy
;
; Restore all of the registers.
;
return

		ply				;Restore Y, X, A, D, DBR, P
		plx
		pla
		pld
		plb
		plp

		rts

		end_proc
		eject
;=====================================================================
; queue_signal : Place a signal	into the signal	priority queue
;
; Created:	February 10, 1988
; Modified:	February 10, 1988
; Author:	Mike Askins
;
; Copyright Apple Computer Inc.	1987  All rights reserved
;
; Input:	A = Priority of	new signal
;		X = undefined
;		Y = undefined
;		P = nvmxdizc
;		    ..000...
;
; Output:	A = trashed
;		X = trashed
;		Y = trashed
;		P = nvmxdizc
;		    ..000..E ->	'No mo room fuh new sign'l'
;		b = preserved
;
;======================================================================

; The signal queue is maintained in a priority number, 'first come first served'
;  manner.  Items are sorted by	priority number, and a new signal with the same
;  priority as others in the queue is placed following the others.

queue_signal	proc

		sec				;Anticipate exception condition
		dec	a			;Reduce	priority by one for comparing
		ldx	|signal_free		;Pick up the 'next free' pointer
		bmi	sorry_full		;If null there is no room; ret w/ error
		ldy	#$8000			;Null out predecessor by setting hi bit
		ldx	|signal_head		;Get the first signal in the list
		bmi	found_spot		;If empty list we have walked far enough

keepwalkin
		cmp	|signal_table+sig_priority,x
		bge	found_spot		;If newpriority < that of x
		txy				;At least we know that we go beyond him
		pha				;Save newpriority
		lda	|signal_table+sig_link,x ;Move to next guy
		tax
		pla
		phx
		plx				;Lost N bit from above lda
		bpl	keepwalkin		;If more signals to check, do it

found_spot
		ldx	|signal_free		;Pick up the next item free index
		inc	a			;Restore the actual priority number
		sta	|signal_table+sig_priority,x ;Store priority in new sig

		lda	|signal_table+sig_link,x ;Maintain free list
		sta	|signal_free		;New sig now out of free list

		lda	|signal_head		;Anticipate the 'no predecessor' case
		phy
		ply				;N <- 'we are first in list'
		bmi	no_pred			;We're first in list
		lda	|signal_table+sig_link,y ;Get predecessor's link
		sta	|signal_table+sig_link,x ;Make it our link
		txa				;Move our index into A
		sta	|signal_table+sig_link,y ;Make predecessor point at us
		bra	rejoin

no_pred
		sta	|signal_table+sig_link,x ;List head becomes our index
		stx	|signal_head		; and we are at	the head of the list
rejoin
		clc
sorry_full
		rts

		end_proc
		eject
;=====================================================================
; dequeue_signal : Remove first	signal from signal queue
;
; Created:	February 10, 1988
; Modified:	February 10, 1988
; Author:	Mike Askins
;
; Copyright Apple Computer Inc.	1987  All rights reserved
;
; Input:	A = Priority of	new signal
;		X = undefined
;		Y = undefined
;		P = nvmxdizc
;		    ..000...
;
; Output:	A = trashed
;		X = trashed
;		Y = trashed
;		P = nvmxdizc
;		    ..000..E ->	'No sign'l ta remove'
;		b = preserved
;
;======================================================================

dequeue_signal	proc

		sec
		ldx	|signal_head
		bmi	sorry_mt

		lda	|signal_table+sig_link,x
		sta	|signal_head

		lda	|signal_free
		sta	|signal_table+sig_link,x
		stx	|signal_free

		clc
sorry_mt
		rts

		end_proc
		eject
;===============================================================================
; Alert	Data Segment
;
; All the alert	processing data	are on zero page.
;===============================================================================

alert_data	proc

		entry	default_b_data
		entry	sub_ptr_1
		entry	sub_ptr_2
		entry	fatal_err_num
		entry	fatal_err_str
		entry	death_sub_tbl
		entry	sub_str_1
		entry	sub_str_2
		entry	sub_str_3
;
; Message constants.
;
;
; Cursor move and response accept characters.
;

;
; Window size specifications.
;
;
; Button data.	There are up to	three buttons, numbered	0, 1, and 2.  Buttons 0 
;		and 1 are on the first button line, and	button 2 is on the
;		second button line.
;
;
; Button characteristics record	offsets.  Each record contains the (x,y)
; coordinates of the first character in	the button label, the length of	the
; button label,	and the	response to be generated if the	button is pressed.
;
;
; Default button data.			   	   x  y	 length	 response
;					 	  -- --	 ------	 --------
default_b_data	DC.B	8,5,2,0			;  8  5	    2      0
		DC.B	28,5,2,1		; 28  5	    2      1
		DC.B	18,7,2,2		; 18  7	    2      2
;
; Substitution string pointer table for	report_error.
;
sub_ptr_1	DC.L	00000000
sub_ptr_2	DC.L	00000000
;
; Temporaries for s_report_fatal
;
fatal_err_num	DC.W	0000
fatal_err_str	DC.B	5
		DC.B	'$....'
;
; Data structures for s_sys_death2
;
death_sub_tbl	DC.L	sub_str_1
		DC.L	sub_str_2
		DC.L	sub_str_3
sub_str_1	DC.B	6			;address substitution string
		DC.B	'......'
sub_str_2	DC.B	1			;LC bank substitution string
		DC.B	'.'
sub_str_3	DC.B	4			;error number substitution string
		DC.B	'....'
;
; Direct page data.
;
						;after all buttons are processed, it
						;gives the number of buttons




						;page below it for calling alertWindow
		end_proc
		eject
;===============================================================================
; scan_alert
;
; Scan the alert string	and perform the	processing needed to display it.
;
; Created:	1/9/88
; Modified:
; Author:	JJ
;
; Input:	alert_ptr and subst_ptr	have been preset
;		P = nvmxdizc
;		    ..000...
;
; Output:	X = trashed
;		Y = trashed
;		P = nvmxdizc
;		    ..000...
;===============================================================================

scan_alert	proc

		stz	<num_buttons		;make button 0 the current and default
		stz	<default_button		;...button

		ldx	#record_len*buttons-2	;copy default button data to tbl
def_copy_loop	lda	|default_b_data,x
		sta	<button_table,x
		dex
		dex
		bpl	def_copy_loop
;
; Go into 8-bit	m mode.
;
		sep	#mx8
		longa	off
		longi	off

		ldx	#$00			;gotoxy(0,0)
		txy
		jsr	gotoxy
;
; Scan past the	window size descriptor (wsd).
;
		ldy	#$01			;initialize Y to 1

		lda	[<alert_ptr]		;get window size specification byte
		and	#$0F
		bne	dont_change_y		;if it's not a custom window size,
		ldy	#$09			;...leave Y with value 1; otherwise 9
dont_change_y
;
; Scan past the	icon descriptor	(id).
;
		lda	[<alert_ptr],y		;get icon specification
		and	#$0F
		bne	inc_by_1		;if it's not a custom icon,
		tya				;...increment Y by 1; otherwise,
		clc				;...increment Y by a total of 9
		adc	#$08
		tay
inc_by_1	iny
;
; We are now sitting at	the first occurrence of	the delimiter character, so set
; up to	process	the text string.
;
		lda	[<alert_ptr],y		;get the delimiter character
		sta	<delim_char		;...and save it

		iny				;point Y at character after delimiter
;
; Perform character-by-character processing on the text	part of	the alert
; string.
;
copy_loop	lda	[<alert_ptr],y		;get the next character
		cmp	#'*'			;is it the text substitution indicator?
		beq	do_subst		;yes, perform substitution
		cmp	<delim_char		;is it the delimiter character?
		beq	text_done		;yes, we are done with text portion

		phy				;no, save Y,
		jsr	out80			;...write out the character,
		ply				;...and	restore Y

		iny				;increment offset
		bra	copy_loop		;...and continue processing

do_subst	iny				;increment Y to offset just after '*'
		lda	[<alert_ptr],y		;get substitution string number
		and	#$0F			;need to turn off high nibble

		phy				;save Y offset in main string

		asl	a			;A = substitution string # * 4
		asl	a
		tay

		rep	#m16
		longa	on

		lda	[<subst_ptr],y		;get pointer to substitution string
		sta	<subst_str_ptr
		iny
		iny
		lda	[<subst_ptr],y
		sta	<subst_str_ptr+2

		sep	#m8
		longa	off
;
; Copy substitution string to output.
;
		lda	[<subst_str_ptr]	;get string length
		beq	done_subst		;nothing to do for length zero string

		ldy	#$01			;make Y	offset of first character

		tax				;X = character count - 1
		dex

copy_subst	lda	[<subst_str_ptr],y	;get next character
		phy				;save Y
		phx
		jsr	out80			;write out character
		plx
		ply				;restore Y
		iny
		dex
		bpl	copy_subst

done_subst
		ply				;restore offset	in main string
		iny				;point to next character
		bra	copy_loop		;go process next character in main str

text_done
;
; Now we are done processing the text part of the message.  It's time to process
; the button data.  Y is now pointing at the terminator	character.
;
button_loop	lda	[<alert_ptr],y		;get the character
;;;		cmp	#null0			;if it's nul or cr, we're done (no need to CMP #$00, 15-Dec-92 DAL)
		beq	no_more_buttons
		cmp	#return_key
		beq	no_more_buttons

		ldx	<num_buttons		;get button number of current button
		jsr	do_button		;process the button specifier
		inc	<num_buttons
		bra	button_loop

no_more_buttons
;
; Now we're done processing the buttons.  Time to handle the response
; specifiers.  Y points	to the NUL or CR at the	end of the alert string.
;
		iny				;Y = offset of first response char
		lda	[<alert_ptr],y		;get response value for button 0
		sta	<button_table+button_resp ;and save in button tbl
		iny
		lda	[<alert_ptr],y
		sta	<button_table+button_resp+record_len
		iny
		lda	[<alert_ptr],y
		sta	<button_table+button_resp+2*record_len
;
; That's all, folks
;
		rep	#mx16
		longi	on
		longa	on

		rts

		end_proc
		eject
;===============================================================================
; do_button
;
; Process a button specification in an alert string.  Prints out the button
; label	and corrects the button's (x,y) coordinates, label length, and response
; code,	all of which have been preset to default values.  Also sets
; default_button to this button	number if the button specifier contains	a '!'.
;
; Created:	1/11/88
; Modified:	3/31/88	JJ Changed default button indicator from '!' to	'^'
; Author:	JJ
;
; Input:	X = button number (0, 1, or 2)
;		Y = offset in alert string just	before button specifier
;		P = nvmxdizc
;		    ..110...
;
; Output:	A = trashed
;		X = trashed
;		Y = offset of the terminator just after	the button specifier
;		P = nvmxdizc
;		    ..110...
;===============================================================================

do_button	proc
		longa	off
		longi	off
;
; Check	to see if the first character is an '^', indicating the	default	button.
;
		iny				;Y = offset of first char of button spec
		lda	[<alert_ptr],y
		cmp	#'^'
		bne	past_default
is_default	stx	<default_button		;save default button number
		iny				;increment Y past default indicator
past_default
;
; Now march through the	button label, adjusting	both the button	length and
; label	x value	to center the label.  Loop processes two characters, backspaces
; on every other one.
;
		phy				;save Y

		txa				;X = 4*button number
		asl	a
		asl	a
		tax

but_label_loop	lda	[<alert_ptr],y		;get a character
		beq	end_of_label1		;moved here to avoid CMP #$00 (15-Dec-92 DAL)
		cmp	<delim_char
		beq	end_of_label1
		cmp	#return_key
		beq	end_of_label1
;;;		cmp	#null0			;moved above, 15-Dec-92 DAL
;;;		beq	end_of_label1
		inc	<button_table+button_len,x ;increment label length
		iny				;look at the next character
		lda	[<alert_ptr],y		;get the next character
		beq	end_of_label1		;moved here to avoid CMP #$00 (15-Dec-92 DAL)
		cmp	<delim_char
		beq	end_of_label1
		cmp	#return_key
		beq	end_of_label1
;;;		cmp	#null0			;moved above, 15-Dec-92 DAL
;;;		beq	end_of_label1
		inc	<button_table+button_len,x ;increment label length
		dec	<button_table+button_x,x ;decrement starting pos
		iny
		bra	but_label_loop

end_of_label1
;
; Set the cursor at the	proper place to	print out the button label.
;

		lda	#$00			;put $00 into high byte of A
		xba

		lda	<button_table+button_y,x ;get Y value
		tay

		lda	<button_table+button_x,x ;get X value
		inc	a			;increment to account for blanks
		tax

		jsr	gotoxy

		ply				;restore Y (offset of first label char)
;
; Now copy label from alert string onto	the screen.
;
copy_label_loop	lda	[<alert_ptr],y
		beq	done_copying		;moved here to avoid CMP #$00 (15-Dec-92 DAL)
		cmp	<delim_char
		beq	done_copying
		cmp	#return_key
		beq	done_copying
;;;		cmp	#null0			;moved above, 15-Dec-92 DAL
;;;		beq	done_copying
		phy				;save Y
		jsr	out80			;write out the character
		ply				;restore Y
		iny				;look at next character
		bra	copy_label_loop

done_copying

		rts

		longi	on
		longa	on

		end_proc
		eject
;===============================================================================
; s_sys_death
;
; Write	out a system death message.
;
; Created:	2/4/88
; Modified:
; Author:	JJ
;
; Input:	A = error code in low byte
;		P = nvmxdizc
;		    ..000...
;
; Output:	None.  Does not	return to the caller.
;===============================================================================

s_sys_death	proc

;
; Translate error number into substitution string 3.
;
;	and	#$00FF			;make sure high	byte is $00
		pha				;set up parameters for Int2Hex
		pea	0+(sub_str_3+1)>>16
		pea	sub_str_3+1
		pea	4
		_Int2Hex
;
; Turn 3-byte return address into 4-byte integer for input to Long2Hex.
;
		phk				;push dummy byte onto stack
		lda	2,s			;move ruturn address down
		sta	1,s			;this new long word is the first
		lda	4,s			;...parameter to Long2Hex
		and	#$00FF
		sta	3,s
;
; Push remaining parameters for	Long2Hex and call it to	build substitution
; string 1.
;
		pea	0+(sub_str_1+1)>>16
		pea	sub_str_1+1
		pea	6
		_Long2Hex
;
; Translate language card bank into substitution string	2.
;
		sep	#m8
		longa	off
		lda	>$00c068		;get state register
		and	#$04			;mask off LC bank bit
		lsr	a			;turn it into the character '0' or '1'
		lsr	a
		ora	#'0'
		sta	>sub_str_2+1
		rep	#m16
		longa	on
*
* Clear the system busy flag so we can get at CDA's during message...
*
		lda	#0000			;Clear busy flag.
		sta	>sys_busy_flag
;
; Display the error message.
;
		pea	19			;push error number for system death
		pea	death_sub_tbl>>16	;push address of substitution
		pea	death_sub_tbl		;...string table
		jsl	s_full_error
;
; Restart the system.
;
		jmp	restart_system

		end_proc
		eject
;===============================================================================
; s_report_error
;
; Write	out an internationalized error message with 2 substitution strings.
;
; Created:	1/12/88
; Modified:
; Author:	JJ
;
; Input:	word	error number
;		pointer	pointer	to first substitution string
;		pointer	pointer	to second substitution string
;	 S --->
;
;		P = nvmxdizc
;		    ..000...
;
; Output:	A = response indicating	which button was pressed
;		X = trashed
;		Y = trashed
;		P = nvmxdizc
;		    ..000...
;===============================================================================

s_report_error	proc
;
; Move substitution string pointers from stack into fixed table.
;
		lda	8,s			;low word of first pointer
		sta	>sub_ptr_1
		lda	10,s			;high word of first pointer
		sta	>sub_ptr_1+2

		lda	4,s			;low word of second pointer
		sta	>sub_ptr_2
		lda	6,s			;high word of second pointer
		sta	>sub_ptr_2+2
;
; Set pointer to this table into correct stack location.
;
		lda	#sub_ptr_1		;low word of pointer value
		sta	5,s
		lda	#sub_ptr_1>>16		;high word of pointer value
		sta	7,s
;
; Move error number down 3 bytes to make room for return address.
;
		lda	12,s
		sta	9,s
;
; Move return address up into the 3-byte void.
;
		lda	1,s			;lower 2 bytes
		sta	11,s
		lda	2,s			;middle two bytes
		sta	12,s
;
; New stack is 4-bytes smaller,	so do pulls.
;
		pla
		pla
;
; Finally able to call full_error
;
		jsl	s_full_error

		clc
		rtl

		end_proc
		eject
;===============================================================================
; s_report_fatal
;
; Write	out the	internationalized fatal	error message.
;
; Created:	1/21/88
; Modified:
; Author:	JJ
;
; Input:	word	fatal error number to be printed in message as
;			substitution string 2
;		word	error message number in	error message file
;		pointer	pointer	to substitution	string 1 (may be null)
;	 S --->
;
;		P = nvmxdizc
;		    ..000...
;
; Output:	A = response indicating	which button was pressed
;		X = trashed
;		Y = trashed
;		P = nvmxdizc
;		    ..000...
;===============================================================================

s_report_fatal	proc
		entry	restart_system
*
* Make sure our direct page is in...
*
		lda	#direct_base		;Set our direct page.
		tcd
*
* Force preferences to not suppress error messages...
*
		lda	>sys_prefs		;Get prefs.
		and	#%1101111111111111	;Clear bit 13.
		sta	>sys_prefs		;Save it.
;
; Move fatal error number into temporary.
;
		lda	10,s
		sta	>fatal_err_num
;
; Move substitution string pointer into	substitution string pointer table.
;
		lda	4,s
		sta	>sub_ptr_1
		lda	6,s
		sta	>sub_ptr_1+2
;
; Move alert error number one byte lower in the	stack.
;
		lda	8,s
		sta	7,s
;
; Move return address above the	other parameters.
;
		lda	1,s
		sta	9,s
		lda	2,s
		sta	10,s
;
; Put pointer to substitution string table into	stack.
;
		lda	#sub_ptr_1
		sta	3,s
		lda	#sub_ptr_1>>16
		sta	5,s
;
; Reduce size of the stack by 2	bytes.
;
		pla
;
; Make second substitution string pointer point	at location where ASCII
; translation of fatal error number will be.
;
		lda	#fatal_err_str
		sta	>sub_ptr_2
		lda	#fatal_err_str>>16
		sta	>sub_ptr_2+2
;
; Translate fatal error	number into ASCII.
;
		lda	>fatal_err_num		;push the integer to translate
		pha
		pea	0+(fatal_err_str+2)>>16	;push address of translation
		pea	fatal_err_str+2		;...buffer
		pea	4			;push field size
		_Int2Hex
;
; Finally call full_error.
;
		jsl	s_full_error
*
* Now we jump to shutdown_reboot which will shutdown the system then jump
* to restart_system below.  However, first we must check a flag set by
* Gquit which tells us whether or not we're fully up and running;  if we're
* not, we cannot do any of the shutdown procedures, can only reboot...
*
		lda	>e1_gsos_ok		;Ok to do shutdown?
		beq	restart_system		;Nope, so just reboot.
		
		jmp	shutdown_reboot		;Yes, force shutdown then restart.
;
; Nothing to do	but reboot the system.
;
restart_system

		sei				;disable interrupts
;
; Turn off the mouse.  Ignore any errors.
;
		pea	$0000			;mouse off status code
		ldx	#$1903			;setMouse Miscellaneous	Toolkit call
		jsl	$e10000			;call Tool Locator
;
; Turn on the 40-column	text screen.
;
		jsr	save_screen

		lda	#$0000			;set D to $0000
		tcd

;
; Set up instructions to set the state register	and jmp	$fa62
;
		pha				;set DBR to zero
		plb
		plb
		lda	#$688d			;sets up 0300: sta $c068
*** 17-Jul-92 DAL -- Changed to use $F0..F5 instead of $300..305
;;;		sta	$0300			;	 0303: jmp $fa62
		sta <$F0
		lda	#$4cc0
;;;		sta	$0302
		sta <$F2
		lda	#$fa62
;;;		sta	$0304
		sta <$F4
;
; Enter	emulation mode and disable various system components.
;
		longa	off
		longi	off
		sec				;go into emulation mode
		xce

		stz	$c035			;set full emulation shadowing

		stz	$c047			;disable AppleTalk interrupts
		stz	$c041

		stz	$c023			;disable VGC interrupts

		lda	#$09			;disable SCC
		sta	$c039
		lda	#$c0
		sta	$c039

		inc	$03f4			;trash the power up byte

		lda	#$0c
;;;		jmp	>$000300		;go reboot the system
		jmp	>$0000F0		;17-Jul-92 DAL

		longa	on
		longi	on

		end_proc
		eject
;===============================================================================
; s_toolbox_msg -- 20-Aug-92 DAL
;
; Used by AlertMessage in the Misc tools.  Just like s_full_error, but it is not
; based on e1_msg_address.
;
; Input:	word	error message number
;		pointer	pointer to table of pointers to substitution strings
;
;               YX	pointer to table of error messages (like Error.Msg)
;
; Output:	A = result code indicating which button was pressed
;
;===============================================================================
s_toolbox_msg	proc
		import toolbox_entry

		phb				;save DBR
		phk				;set DBR to PBR
		plb
		phd				;save D

		tsc				;open up dp_size workspace on stack
		sec				;...and set both S and D to point
		sbc	#dp_size		;...one byte below workspace
		tcs
		tcd

		sty	<aptr+2
		stx	<aptr

		bra	toolbox_entry

		EndP

;===============================================================================
; s_full_error
;
; Write	out one	of the internationalized error message.
;
; Created:	1/12/88
; Modified:	3/31/88	JJ Changed calling sequence for	AlertWindow tool call
;		6/25/88	JJ Save	GS/OS direct page and one page below it	before
;			   calling alertWindow in order	to assure alertWindow
;			   enough space	on the GS/OS stack.  Restore data after
;			   alertWindow returns.
; Author:	JJ
;
; Input:	word	error message number
;		pointer	pointer	to table of pointers to	substitution strings
;	 S --->
;
;		P = nvmxdizc
;		    ..000...
;
; Output:	removes	everything from	the stack
;		A = result code	indicating which button	was pressed
;		X = trashed
;		Y = trashed
;		P = nvmxdizc
;		    ..000...
;===============================================================================

s_full_error	proc

		phb				;save DBR
		phk				;set DBR to PBR
		plb
		phd				;save D

		tsc				;open up dp_size workspace on stack
		sec				;...and set both S and D to point
		sbc	#dp_size		;...one byte below workspace
		tcs
		tcd
;
; Set up pointer to error data.	 First bang in the LC BANK 0 to	access the
;  GLOADER variable e1_msg_address.
;
		sep	#$20
		longa	off
		lda	|statereg
		pha
		and	#%11111011
		sta	|statereg
		rep	#$20
		longa	on

		lda	>e1_msg_address		;get error message handle set up at
		clc
		adc	#$0004
		sta	<aptr
		lda	>e1_msg_address+2
;;;		adc	#$0000			;segment has no-bank-cross set! (15-Dec-92 DAL, saved 3 bytes)
		sta	<aptr+2

		sep	#$20
		pla
		sta	|statereg
		rep	#$20

		export toolbox_entry
toolbox_entry	jsr	which_one		;should we run in graphics or text?
		php				;save indication (c)

		jsr	oh_my_god		;Set pointer.

		lda	<s_subst_ptr		;move substring table pointer to DP
		sta	<subst_ptr
		lda	<s_subst_ptr+2
		sta	<subst_ptr+2
*
* Do the preferences say to suppress error messages?
*
		lda	>sys_prefs		;Get prefs.
		and	#%0010000000000000	;Suppress errors?
		beq	mode_select		;Nope.
*
* Yes, so we must determine if this message has more than one button.  If so,
* we will go ahead anyway...
*
		longa	off			;Enter 8-bit m mode
		sep	#m8

		ldy	#0000			;Find end of alert string.
find_end_loop	lda	[<alert_ptr],y
		beq	found_end
		iny
		bra	find_end_loop

found_end	ldx	#0003			;Set up to loop thru 3 buttons.

button_loop	iny				;Point to button response.
		lda	[<alert_ptr],y		;Get response.
		and	#$0f			;Is non-zero?
		bne	more_than_one		;Yep, so more than one.
		dex				;Nope, done all 3 buttons?
		bne	button_loop		;Nope, so loop.
*
* Only one button so cleanup and exit with default response...
*
		longa	on			;back to 16-bit m mode
		rep	#m16

		pla				;Clean off mode selection.
		ldx	#0000			;Set default response.
		jmp	suppressed_exit		;Exit.
*
* Yes, so select either graphics or text and go do it...
*
		longa	on			;Enter 16-bit m mode.
more_than_one	rep	#m8

mode_select	plp				;recover p (c bit)
		bcs	call_graphics
		jmp	call_text		;if c=0	do text display- no aptr adjust
call_graphics

		longa	off			;enter 8-bit m and x mode
		longi	off
		sep	#mx8
;
; Set up proper	button response	map.
;
		ldy	#$01			;preload Y with 1
		lda	[<alert_ptr]		;get window size descriptor
		and	#$0f
		bne	dont_change_y		;make Y	skip past descriptor by setting
		ldy	#$09			;...it to either 1 or 9
dont_change_y

		lda	[<alert_ptr],y		;get icon descriptor
		and	#$0f
		bne	inc_by_1		;increment Y by either 1 or 9 to skip
		tya				;...over icon descriptor
		clc
		adc	#$08
		tay
inc_by_1	iny

loop_to_end	lda	[<alert_ptr],y		;loop until we see $00 or $13
;;;		cmp	#null0			;saved 2 bytes (15-Dec-92 DAL)
		beq	at_end
		iny
		bra	loop_to_end
at_end

		iny				;offset	to first byte of button resp map
		lda	[<alert_ptr],y
		sta	<button_table+button_resp
		iny
		lda	[<alert_ptr],y
		sta	<button_table+button_resp+record_len
		iny
		lda	[<alert_ptr],y
		sta	<button_table+button_resp+2*record_len
;
; Prepare to call the AlertWindow tool.	 First,	save the GS/OS direct page
; and the page below it	to make	sure alertWindow has plenty of space on	the
; GS/OS	stack.
;
		lda	|statereg		;save contents of state register
		pha
		lda	|lcbank2		;switch	in second $D000 space
		lda	|lcbank2

		longa	on			;back to 16-bit	m and x mode
		longi	on
		rep	#mx16

		ldx	#510			;offset of first word to copy
save_dp		lda	>direct_base-256,x
		sta	>dp_save_area,x
		dex
		dex
		bpl	save_dp
;
; Save the current cursor, and set the current cursor to be the	arrow cursor.
;
		pha				;open up space for result
		pha
		_GetCursorAdr			;after call stack contains long pointer
		_InitCursor			;set to	arrow cursor no parameters

;
; Do the alert and restore saved parms...
;

		lda	|lcbank1		;switch in primary $D000 space
		lda	|lcbank1
		jsl	do_alert_window
		lda	|lcbank2		;switch	in second $D000 space
		lda	|lcbank2

		pla				;pull long address of original cursor
		plx

		php				;save error code from tool
		phy				;save response from alert window

		phx				;push long address of original cursor
		pha
		_SetCursor			;restore the cursor please
		ply				;restore result from alert window
		plp				;restore error flag

;
; Copy back data that were saved before	call.  Note, nothing changes c bit.
;
		ldx	#510
restore_dp	lda	>dp_save_area,x
		sta	>direct_base-256,x
		dex
		dex
		bpl	restore_dp
;
; Restore language card	state.	Note, nothing changes c	bit
;
		longa	off			;8-bit m mode
		sep	#m8
		pla				;get saved state information
		sta	|statereg
		longa	on			;back to 16-bit m mode
		rep	#m16
;
; Put saved return value from alertWindow into A.  Note	c value	from
; alertWindow is still preserved.
;
		tya

		bcc	all_done		;if no error, we're done; else, fall
						;...through to text alert procedure

		clc
		jsr	oh_my_god		;Must set aptr again

; Call the text	alert procedure

call_text	jsr	text_alert

all_done
;
; Map the response button number to the	proper response	value.
;
		asl	a			;response code in A
		asl	a
		tax
		lda	<button_table+button_resp,x
		and	#$0003			;Convert from ASCII and strip misc
		tax				;save response code in X

suppressed_exit	tdc				;restore old value of stack pointer
*** optimized 20-Aug-92 DAL -- carry is clear from asl a above
;;;		clc				;D contains the value
		adc	#dp_size
		tcs

		pld				;restore old value of D
		plb				;restore old value of DBR

		lda	1,s			;move the 3-byte return	address 6 bytes
		sta	7,s			;...higher in the stack (squeezing out
		lda	2,s			;...the input parameters)
		sta	8,s

;		tsc				;S <-- S+6
;		clc
;		adc	#6
;		tcs
*** optimized 20-Aug-92 DAL
		pla
		pla
		pla
*** end 20-Aug-92

		txa				;move saved response code to A

		clc
		rtl


; Sets alert_ptr based on <aptr, <s_error, and the carry.

oh_my_god	lda	<s_error		;get error # passed by caller
		rol	a			;make offset into error data struct
		asl	a
		tay				;Offset of offset word to string

		ldx	<aptr+2			;Load up hi ord result for inc'ing
*		tya				;Move the offset into A
		clc
		adc	[<aptr],y		;Total offset into table (low)
		bcc	m1			;Take if no carry
		inx				;Increment if carry
		clc
m1		adc	<aptr			;String	Address (low)
		bcc	j1
		inx				;X has the string address (high)
j1		sta	<alert_ptr
		stx	<alert_ptr+2
		rts


		end_proc
		eject
;======================================================================
; text_alert : Display the alert box on	the text screen
;
;Created:	January	13, 1988
;Modified:	January	13, 1988
;Author:	Mike Askins
;
;Copyright Apple Computer Inc. 1987-8  All rights reserved
;
;Input:		A = <undefined>
;		X = <undefined>
;		Y = <undefined>
;		P = nvmxdizc
;		    ..000...
;	subst_ptr = pointer to substitution string pointer table
;	alert_ptr = pointer to alert string
;
;Output:	A = Selected Option Number  <0..number_buttons-1>
;		X = <trashed>
;		Y = <trashed>
;		P = nvmxdizc
;		    ..000...
;		b = preserved
;
;======================================================================

text_alert	proc
		longa	on

		jsr	save_screen		;Save text screen and set text mode

		sep	#$30			;8 bit mode
		jsr	draw_box		;Draw the dialog box frame

		rep	#$30			;16 bit mode
		jsr	scan_alert		;Draw the dialog contents

		sep	#$30			;8 bit mode
		jsr	prompt			;Draw the correct LI prompt

		jsr	select			;Get user input

		rep	#$30			;16 bit mode
		and	#$00FF			;Only want low part
		pha				;Save the result
		jsr	restore_screen		;Reset text area and video mode
		pla				;Get back the selection code

		rts

		end_proc
		eject
;======================================================================
; select : Allow selection of an option	on the text screen
;
;Created:	January	12, 1988
;Modified:	January	12, 1988
;Author:	Mike Askins
;
;Copyright Apple Computer Inc. 1987-8  All rights reserved
;
;Input:		A = <undefined>
;		X = <undefined>
;		Y = <undefined>
;		P = nvmxdizc
;		    ..100...
;  default_button = initially highlighted option
;     num_buttons = number of options to cycle through
;    button_table = position and length	of each	button
;
;Output:	A = Selected Option Number  <0..number_buttons-1>
;		X = <trashed>
;		Y = <trashed>
;		P = nvmxdizc
;		    ..1...
;		b = preserved
; selected_button = Selected Option Number
;
;======================================================================

; This routine gets keys from the keyboard or event manager and	allows
;  the user to select one of the options on the	screen.	 The forward and
;  backward arrows rotate around the options highlighting them.	 When a	CR
;  is encountered, the highlighted option is passed back to the	caller.

select		proc

		longa	off			;This routine is only in 8 bit land

		lda	<default_button
storeninverse
		sta	<selected_button
		jsr	inverse
loop
		jsl	getkey
		cmp	#right_arrow		;Allow both the right and down arrows
		beq	its_right
		cmp	#down_arrow
		bne	not_right

its_right
		lda	<selected_button
		inc	a
		cmp	<num_buttons
		blt	switch
		lda	#0			;Wrap

switch
		pha				;Save off new setting for a second
		lda	<selected_button
		jsr	inverse
		pla
		bra	storeninverse

not_right
		cmp	#left_arrow		;Allow both the left and up arrows
		beq	its_left
		cmp	#up_arrow
		bne	not_left

its_left
		lda	<selected_button
*** optimized 20-Aug-92 DAL
;;;		sec
;;;		sbc	#$01			;Set N flag
		dec	a
*** end 20-Aug-92
		bpl	nowrap
		lda	<num_buttons
		dec	a
nowrap
		bra	switch

not_left
		cmp	#return_key
		bne	not_return

		lda	<selected_button
		rts

not_return
*** optimized 20-Aug-92 DAL
;		cmp	#$5A			;special flag for disk insertion?
;		bne	no_insertion		;no...
*** end 20-Aug-92
		xba				;must check high byte too
		cmp	#$A5
		bne	no_insertion
		lda	<default_button		;else simulate a default keypress
		rts

no_insertion	rep	#$30
		ldx	#$2C03			;SysBeep
		jsl	$E10000
		sep	#$30
		bra	loop

		longa	on
		end_proc
		eject
;======================================================================
; inverse : Inverse the	option screen text specified in	the acculumulator
;
;Created:	January	12, 1988
;Modified:	January	12, 1988
;Author:	Mike Askins
;
;Copyright Apple Computer Inc. 1987-8  All rights reserved
;
;Input:		A = Option Text	to Highlight <0..num_buttons-1>
;		X = <undefined>
;		Y = <undefined>
;		P = nvmxdizc
;		    ..110...
;    button_table = position and length	of each	button
;
;Output:	A = <trashed>
;		X = <trashed>
;		Y = <trashed>
;		P = nvmxdizc
;		    ..110...
;		b = preserved
;
;======================================================================

inverse		proc
		entry	loop45

		longa	off
		longi	off

; Get to the button_table entry	for the	option specified, and pull the
;  position and	length data.

		asl	a
		asl	a
		tax
		lda	<button_table+2,x
		pha				;Keep the length of the option text
		lda	<button_table,x
		clc
		adc	#box_orig_x+xbias	;Convert to screen coords
		tay				;Keep around the X value
		lda	<button_table+1,x	;Get the Y value
		clc
		adc	#box_orig_y+ybias	;Convert to screen coords

; Now set up the offsets into the text page for	the line that the text is on.

		jsr	mybc			;Set up the pointers into the text area
		tyx				;Y was preserved
		ply				;Text length -> Y

; Now walk through the characters on the screen	reversing their	'inverse'
;  status.  Stop after Y characters.

loop45						;	 ;*** Don't move without the lda below **
		lda	>$E00000,x		;Non bank part set by mybc routine

; Inversing is normally	done by	flipping the top bit.  This doesn't work for
;  characters in the range $C0-$DF (Normal Uppercase).	Just flipping their
;  top bit turns them into MouseText.  The range $C0-DF	must become $00-1F.

		cmp	#$C0
		blt	nonissue
		cmp	#$E0
		bge	nonissue
		and	#%10111111		;A <- 100xxxxx

; Do the inverse, dec the count	and maybe go back

nonissue
		eor	#%10000000
		jsr	out2			;Y preserved
		dey
		bne	loop45

		rts

		longi	on
		longa	on
		end_proc
		eject

*** Coordinates	Diagram	***

;    0123456789012345678901234567890123456789
;  00
;  01
;  --
;  06________________________________________
;  07|					    |
;  08| * (prompt line 1)		    |
;  09|	 (prompt line 2)		    |
;  10|	 (prompt line 3)		    |
;  11|	 (prompt line 4)		    |
;  12| blank				    |
;  13|	 (button line 1)		    |
;  14| blank				    |
;  15|	 (button line 2)		    |
;  16| blank				    |
;  17----------------------------------------
;  18
;  --
;  23

; The asterisk marks the (0,0) point for gotoxy, out, mybc, etc.
		eject
;======================================================================
; gotoxy : Position the	output cursor
;
;Created:	January	12, 1988
;Modified:	January	12, 1988
;Author:	Mike Askins
;
;Copyright Apple Computer Inc. 1987-8  All rights reserved
;
;Input:		A = <undefined>
;		X = Horizontal offset
;		Y = Vertical offset
;		P = nvmxdizc
;		    ..110...
;
;Output:	A = Selected Option Number  <0..number_buttons-1>
;		X = <trashed>
;		Y = <trashed>
;		P = nvmxdizc
;		    ..110...
;		b = preserved
;
;
;======================================================================

gotoxy		proc
		entry	mybc

		longa	off
		longi	off

		txa
		clc
		adc	#xbias+box_orig_x
		sta	<ch
		tya
		clc
		adc	#ybias+box_orig_y
		sta	<cv

mybc						;Preserve Y
		asl	a
		tax
		rep	#$20			;16 bit M
		lda	>vidtab-12,x
		sta	snuggles+1		;Modify instruction in out
		sta	loop45+1		;Modify instruction in inverse
		sep	#$20
		rts


		longi	on
		longa	on
		end_proc
		eject
;======================================================================
; out, out80, out2 : Put a character onto the text screen
;
;Created:	January	12, 1988
;Modified:	January	12, 1988
;Author:	Mike Askins
;
;Copyright Apple Computer Inc. 1987-8  All rights reserved
;
;Input:		A = Character to output
;		X = <undefined except in out2>
;		Y = <undefined>
;		P = nvmxdizc
;		    ..100...
;	       ch = horizontal cursor position
;
;Output:	A = Selected Option Number  <0..number_buttons-1>
;		X = Current cursor position (horizontal)
;		Y = preserved
;		P = nvmxdizc
;		    ..100...
;		b = preserved
;
;======================================================================

; Warning!  These output routines do not wrap to the next line.	 Outputting
;  something beyond the	end of a line will result in the last character	in
;  the line being overwritten.

out80		proc
		entry	snuggles
		entry	out
		entry	out2

		longa	off
		longi	off

;	eor #$80
;	bmi @noTrans
;	tax
;	lda >transtbl-$80,x
;@noTrans
; NOTE: Replace ora below, and out = @noTrans

		ora	#$80			;If you'd rather not flip the msb

out
		ldx	<ch			;If you just want the cursor pos

out2
		cmp	#return_key+$80
		bne	snuggles
		lda	#box_orig_x+xbias	;Back to left margin
		sta	<ch
		inc	<cv
		lda	<cv
*** optimized 20-Aug-92 DAL
;;;		jsr	mybc
;;;		bra	bye
		bra	mybc
*** end 20-Aug-92

snuggles					;Warning- keep with store!
		sta	>$E00000,x
		cpx	#39
		bge	bye			;Oops, at end of line

		inx				;Next guy
		stx	<ch

bye
		rts

		longi	on
		longa	on
		end_proc
		eject
;======================================================================
; draw_box : Draw the box onto the text	screen
;
;Created:	January	12, 1988
;Modified:	January	12, 1988
;Author:	Mike Askins
;
;Copyright Apple Computer Inc. 1987-8  All rights reserved
;
;Input:		A = <undefined>
;		X = <undefined>
;		Y = <undefined>
;		P = nvmxdizc
;		    ..100...
;
;Output:	A = <trashed>
;		X = <trashed>
;		Y = <trashed>
;		P = nvmxdizc
;		    ..100...
;		b = preserved
;
;======================================================================

draw_box	proc
		longa	off
		longi	off

		lda	#box_orig_x
		sta	<ch
		lda	#box_orig_y
		sta	<cv
		jsr	mybc			;Returns in 16 bit mode

		sep	#$30
		lda	#$DF			;ASCII '_'
		jsr	outline

loop3
		jsr	next_line		;Reset to box edge on next line

		lda	#$5F			;Mousetext left side
		jsr	out
		ldx	#box_orig_x+box_width-1
		lda	#$5A
		jsr	out2

		ldy	<cv
		cpy	#box_orig_y+box_height-2
		blt	loop3

		jsr	next_line		;Reset to box edge on next line

		lda	#$4C			;MouseText bottom line
*** optimized 20-Jul-92 DAL
;;;		jsr	outline
;;;		rts
;;; FALL THROUGH!
*** end 20-Jul-92

outline		ldy	#box_width
loopx		jsr	out
		dey
		bne	loopx
		rts

next_line	inc	<cv
		lda	<cv
		jsr	mybc
		lda	#box_orig_x
		sta	<ch
		rts

		longi	on
		longa	on
		end_proc
		eject
;======================================================================
; save_screen :	Copy the text screen to	save area (clearing the	screen)
;
;Created:	January	13, 1988
;Modified:	January	13, 1988
;Author:	Mike Askins
;
;Copyright Apple Computer Inc. 1987-8  All rights reserved
;
;Input:		A = <undefined>
;		X = <undefined>
;		Y = <undefined>
;		P = nvmxdizc
;		    ..000...
;
;Output:	A = <trashed>
;		X = <trashed>
;		Y = <trashed>
;		P = nvmxdizc
;		    ..000...
;		b = preserved
;
;======================================================================

save_screen	proc

		entry	switchtab
		entry	modesave	        
		entry	textsv
		entry	mixsv
		entry	page2sv	
		entry	hiressv
		entry	altcharsv
		entry	vid80sv
		entry	col80sv
		entry	newvidsv

*
* Save page2 switch status...
*
		lda	|rdpage2		;Save rdpage2 and rdhires
		sta	|page2sv

; Get access to	the save area in $E0 language card

		longa	off
		sep	#$20

		lda	|statereg
		pha

		lda	|lcbank2		;Write enable bank 2
		lda	|lcbank2
*
* Switch in page 1...
*
		lda	txtpage1		;Turn on text page 1.
		
; Set up the pointer

		longa	on
		rep	#$20

		lda	#<storage
		sta	<aptr
		lda	#^storage
		sta	<aptr+2

		ldy	#$03FE

loop1
		tyx
		lda	>$E00400,x		;Get a value to save
		sta	[<aptr],y
		lda	#$A0A0			;Two spaces
		sta	>$E00400,x		;Clear that area
		dey
		dey
		bpl	loop1

; Restore bank 1 language card

		longa	off
		sep	#$20

		pla
		sta	|statereg

; Now preserve the current state of the	video switches

		lda	|rd80col
		sta	|col80sv
		lda	$C029
		sta	|newvidsv

		longa	on
		rep	#$20

		lda	|rdtext			;Save rdtext and rdmix
		sta	|textsv
		lda	|altcharset		;Save altcharset and rd80vid
		sta	|altcharsv

; Now set up page 1 40 columns,	nomix, with MouseText w/ 80colstore off

		longa	off
		sep	#$20

*** optimized 20-Aug-92 DAL
;		lda	$C029
;		and	#%01111111
;		sta	$C029
		lda	#$80
		trb	$C029
*** end 20-Aug-92

		sta	|clr80vid
		sta	|clr80col
		sta	|txtset
		sta	|mixclr
		sta	|txtpage1
		sta	|setaltchar

		longa	on
		rep	#$20

		rts


; The entries in switchtab correspond to the first seven save locations.  They
;  indicate the	low byte (hi = $C0) of the first of two	switches which control
;  the mode who's value was preserved in the 'sv' area.  The table is used by
;  the restore routine.	 (The scheme depends on	the fact that the switch pairs
;  are ordered the way they are.)
;
;NOTE: The '**$ff' after each label is the MAX syntax for AND with $ff (i.e. take
;      the low byte only)

switchtab
		DC.B	txtclr**$ff,mixclr**$ff,txtpage1**$ff
		DC.B	lores**$ff,clraltchar**$ff,clr80vid**$ff,clr80col**$ff

modesave	        
textsv		DC.B	0
mixsv		DC.B	0
page2sv		DC.B	0
hiressv		DC.B	0
altcharsv	DC.B	0
vid80sv		DC.B	0
col80sv		DC.B	0
newvidsv	DC.B	0

		end_proc
		eject
;======================================================================
; restore_screen : Recover the screen from the save area
;
;Created:	January	13, 1988
;Modified:	January	13, 1988
;Author:	Mike Askins
;
;Copyright Apple Computer Inc. 1987-8  All rights reserved
;
;Input:		A = <undefined>
;		X = <undefined>
;		Y = <undefined>
;		P = nvmxdizc
;		    ..000...
;
;Output:	A = <trashed>
;		X = <trashed>
;		Y = <trashed>
;		P = nvmxdizc
;		    ..000...
;		b = preserved
;
;======================================================================

restore_screen	proc

; Restore the original video mode

		longa	off
		longi	off
		sep	#$30

		lda	|newvidsv		;Fix gs video mode
		sta	$C029

; Now march through the	save area and use the switches specified to restore
;  the rest of the video mode state.

		ldx	#6			;There are seven switches
moreswitches
		lda	|modesave,x		;Get a preserved state
		asl	a			;Move the state into carry
		rol	a			; ... into lsb
		and	#$01			;Isolate
		tay
		lda	|switchtab,x		;Get the low part of this switch pair
		sta	selfmod+1		;Sneak it into store instruction
selfmod
		sta	$C000,y			;FLIP IT! (Low part updated each time)
		dex
		bpl	moreswitches

; Get access to	the save area in $E0 language card

		lda	|statereg
		pha

		lda	|lcbank2		;Write enable bank 2
		lda	|lcbank2

*
* Switch in page 1...
*
		lda	txtpage1		;Turn on text page 1.

		longa	on
		longi	on
		rep	#$30

; Now restore the text area we destroyed

		lda	#<storage
		sta	<aptr
		lda	#^storage
		sta	<aptr+2

		ldy	#$03FE

loop1
		tyx
		lda	[<aptr],y
		sta	>$E00400,x		;Get a value to save
		dey
		dey
		bpl	loop1

; Restore bank 1 language card

		longa	off
		sep	#$20

		pla
		sta	|statereg

		longa	on
		rep	#$30

		rts

		end_proc
		eject
;======================================================================
; which_one : Determines which video mode should be used
;
;Created:	January	13, 1988
;Modified:	January	13, 1988
;Author:	Mike Askins
;
;Copyright Apple Computer Inc. 1987-8  All rights reserved
;
;Input:		A = <undefined>
;		X = <undefined>
;		Y = <undefined>
;		P = nvmxdizc
;		    ..000...
;
;Output:	A = <trashed>
;		X = <trashed>
;		Y = <trashed>
;		P = nvmxdizc
;		    ..000..0 ->	Okay to	use SuperHires
;			   1 ->	Must use text
;		b = preserved
;
;======================================================================

which_one	proc

*** added 17-Jul-92 DAL -- Force screen dimmers to un-dim before we decide
*** whether to use the Super Hi-Res screen or the text screen.  It's annoying
*** if we decide to use the text screen & then the dimmer goes back to the
*** graphics screen when the user hits a key.  Very annoying.  (That is, for
*** dimmers that switch to the text screen & change all the text colors to
*** black.)
		ldx #0
		pea $000D			;srqForceUndim
		phx				;sendToAll
		phx
		phx				;target=NIL
		phx
		phx				;dataIn=NIL
		phx
		phx				;dataOut=NIL
		ldx #$1C01
		jsl $e10000
;		_SendRequest
*** added 20-Jul-92 DAL -- Clean up the stack if we got a dispatcher error
		bcc @noCleanUp
		cmp #$0010
		bcs @noCleanUp
		tsc
		adc #$0010	;16 bytes of input parameters to strip
		tcs
@noCleanUp
*** end 20-Jul-92 DAL
*** end 17-Jul-92 DAL

; This routine checks the Window Manager to see	if it is loaded.  If it	is
;  and we're displaying SuperHires and there is 64K of memory available in
;  the system, we choose SuperHires, and 40 column text	otherwise.

*** rewritten to use table, 17-Jul-92 DAL
;		pha				;Space for result
;		_WindStatus
;		pla				;See if window manager is active
;		bcs	text
;		beq	text
;
;		pha
;		_CtlStatus
;		pla				;How 'bout the control manager
;		bcs	text
;		beq	text
;
;		pha
;		_LEStatus
;		pla				;...and	linedit while we're at it
;		bcs	text
;		beq	text

		ldx #statusTableEnd-statusTable-2
@nextStatus	phx				;save index
		lda statusTable,x
		tax
		pha				;space for xxxStatus result
		jsl $e10000
		pla				;result
		plx				;index
		bcs text
		tay
		beq text
		dex
		dex
		bpl @nextStatus
*** end 17-Jul-92

;All of	these guys are active...

		lda	$C029			;Check the NewVideo switch

		and	#$0080			;Check the SuperHires bit
		beq	text
*** attempted change 17-Jul-92 DAL:  This works on my ROM 3 system but hangs thoroughly on my ROM 1.
;;;		lda $C029-1			;check the NewVideo switch (bit 7 of $C029)
;;;		bpl text
*** end 17-Jul-92

; Here's where the memory check should be made


shires		sec
		rts				;Carry is still clear here

text		clc
		export doneit
doneit		rts

statusTable	dc.w $0614,$0610,$060E		;LEStatus, CtlStatus, WindStatus (17-Jul-92 DAL)
statusTableEnd

		end_proc

prompt		proc
		longa	off
		longi	off

; Display non-language-oriented	prompt.	 If less than two buttons are up, just
;  display the last character of the string which is the

		ldy	#0
		lda	#34			;Get us positioned
		ldx	<num_buttons
		cpx	#2
		bge	lesmess
		ldy	#4
		lda	#38			;Get us positioned
lesmess
		sta	<ch
		lda	#box_orig_y+box_height-2
		sta	<cv
		jsr	mybc			;Y is preserved here

mormess
		lda	msgtab,y
		import doneit
		beq	doneit
		jsr	out
		iny
		bra	mormess

;;;doneit	rts


msgtab		DC.B	$48
		DC.B	$A0
		DC.B	$55
		DC.B	$A0
		DC.B	$4D
		DC.B	$00

		longa	on
		longi	on

		end_proc
		eject
*******************************************************************************
*
*        Name:	xlate_path2_l
*
* Description:	External entry point for xlate_path2.
*
*      Author:	Bryan Atsatt
*     Created:	May 17, 1989
*    Modified:
*
*       Entry:	jsl
*
*       Input:  A = offset into parameter list
*               X = undefined
*               Y = undefined.
*               P = nvmxdizc
*		    ..000...
*
*      Output:  A = error code if error.
*               X = undefined
*               Y = undefined
*               P = nvmxdizc
*		    ..000..0 = no error
*			   1 = error
*
*        Exit:	rtl
*
*        Uses:	xlate_path2
*
* Copyright Apple Computer, Inc. 1989  All rights reserved.
*******************************************************************************

xlate_path2_l	proc

*
* Call xlate_path2 and exit...
*
		ldx	#0			;Want to use prefix #0, if any.
		jsr	xlate_path2		;Do translation.
		rtl				;Exit.

		end_proc
		eject
*******************************************************************************
* Segment 2 miscellaneous data
*******************************************************************************

seg_2_data	proc
		entry	event_queue
		entry	event_flags
		entry	event_code
		entry	entry_point
*
* The following structure is used by the add_os_queue and del_os_queue calls. 
*
event_queue	dc.l	$00000000		;Link pointer: MUST BE SAVED
						; ACROSS P8-GS/OS SWITCH!!!
		dc.w	$0000			;Reserved word.
		dc.w	$a55a			;Queue signature.
event_flags	dc.l	$00000000		;Event flags (none for us).
event_code	dc.l	$00000000		;Event code goes here.
entry_point					;Code entry point.

		end_proc
		eject
;======================================================================
; init : Startup Global	Info Manager
;
;Created:	April 2, 1987
;Modified:	August 13, 1987
;Author:	Mike Askins
;
;Copyright Apple Computer Inc. 1987  All rights	reserved
;
;Input:		A = <undefined>
;		X = <undefined>
;		Y = <undefined>
;		P = nvmxdizc
;		    ..000...
;
;Output:	A = trashed
;		X = trashed
;		Y = trashed
;		P = nvmxdizc
;		    ..000...
;		b = preserved
;	  seg_tab = pointer to segment table (locked)
;    seg_tab_hand = handle to segment table
;     vcr_id_hand = handle of VCR ID list
;     fst_id_hand = handle of FST ID list
;
;======================================================================

init_gim	proc
		entry	prefices
		entry	obj_list_tab

; Start	out by getting a memory	manager	ID.

		jsl	get_mm_id

; Allocate memory for the segment address table	(eventually must lock it down).

		sec				;Select large list.
		jsr	init_spcl_list		;Make a new list.
		txa
		sta	>seg_tab_hand
		tya
		sta	>seg_tab_hand+2

		jsr	lock_hand		;Keep it locked down

; Start	things out right by allocating one segment (probably two later)
;   If we can't make any segments then shutdown the system (at least return CS)

		jsr	make_seg
		bcs	init_err		;Segtab	locked,	seg_tab defined

; Zero out the object list table

		lda	#$0000
		ldx	#num_obj_lists*4-2
loop
		sta	>obj_list_tab,x
		dex
		dex
		bpl	loop

; Start	the record id tables

		jsr	init_list
		bcs	init_err
		txa
		sta	>vcr_id_hand		;Global Handle
		tya
		sta	>vcr_id_hand+2

		jsr	init_list
		bcs	init_err
		txa
		sta	>fcr_id_hand		;Global Handle
		tya
		sta	>fcr_id_hand+2

		jsr	init_list
		bcs	init_err
		txa
		sta	>icr_id_hand		;Global Handle
		tya
		sta	>icr_id_hand+2


; Null out the prefix table ($FFFF works since msb is set)

		ldx	#number_prefix*4-2
		lda	#$FFFF
loop2
		sta	>prefices,x
		dex
		dex
		bpl	loop2

; Pull the boot	volume name from g_quit	and set	it up as prefix	32, commonly
;  known as the	'*' prefix.

		jsr	set_pfx_32

		clc
init_err
		rtl

obj_list_tab
		DS.B	num_obj_lists*4+2

prefices
		DS.B	number_prefix*4

		end_proc

	DATACHK OFF
set_pfx_32	proc
		entry	set_pfx_32_alt

; Set pb_ptr to	point to the volume name - the destination - grab the length

		lda	#e1_volname
		sta	<pb_ptr
		lda	#^e1_volname
		sta	<pb_ptr+2

set_pfx_32_alt
		lda	[<pb_ptr]		;Get the two byte length

; Get a	buffer big enough to hold the sucker, deref vp and store the length

		pha				;Keep for later
		inc	a			;One for the high part of the count
		inc	a			; and one for the low part
		inc	a			; and one for the zero at the end
		jsl	allocate		;Get a buffer
		phy
		phx				;Keep the VP to	hand to set_pfx

		jsl	deref2			;Get a pointer to the contents
		stx	<ptr
		sty	<ptr+2			;Points to the destination
		lda	5,s			;Get the length back
		sta	[<ptr]			;Store at destination

		tax				;Use the length as a countdown clock

; Do the copy; we gotta	store a	trailing zero... no big	deal.

		longa	off
		sep	#$20			;Get into 8 bit M to make it easier

		ldy	#2			;Start at the first character

loop
		lda	[<pb_ptr],y		;Get a char to copy
cheater
		sta	[<ptr],y
		iny
		dex
		bne	loop

		lda	#$00			;The $00 makes it a real g-string
		sta	[<ptr],y

		rep	#$20
		longa	on

; Clean	up, store it, and have a nice/lousy day/night.

		plx				;Pull back the vp
		ply
		pla				;This was length... don't need it

		lda	#32
		jsr	set_pfx

		rts

		end_proc
	DATACHK ON
		eject
;=====================================================================
; alloc_record : Allocate a Volume or File Control Record
;
; Created:	April  9, 1987
; Modified:	April 13, 1988
; Author:	Mike Askins
;
; Copyright Apple Computer Inc.	1987  All rights reserved
;
; Input:	A = Size of VCR	including FST specific data
;		X = Device Name	Pointer	(low)
;		Y = Device Name	Pointer	(high)
;		P = nvmxdizc
;		    ..000...
;
; Output:	A = trashed or error code if carry set
;		X = VP to VCR or FCR (low)
;		Y = VP to VCR or FCR (high)
;		P = nvmxdizc
;		    ..000..E ->	'Out of Memory'	or 'Bad Request Size'
;		b = preserved
;
;======================================================================

allocvcr	proc
		entry	allocfcr
		entry	alloc_record

		clc
		bra	alloc_record

allocfcr
		sec

alloc_record

		jsr	set_type		;Record	whether	this is a VCR or FCR

		phy
		phx

; Try to grab a	piece of memory	to hold	the record; zero it out

		sec				;Make sure to zero out
		jsl	alloc_zero
		bcc	wegotit			;We've had a problem
		jmp	bad_exit		;Avoid the branch long problem
wegotit

; Now get and store the	ID into	the VCR

		jsr	deref2_vp		;Set the vcr correctly
		jsr	ldxy_idhand
		jsr	reserve_id
		bcc	set
		jmp	rel_vcr

set		jsr	set_vcr			;The reserve might have compacted memory
		ldy	#vcr_id
		sta	[vcr],y
		sta	>id_temp		;Keep in case need to deallocate.
	
*
* Save name pointer...
*
		plx
		ply				;Got name buffer pointer
		stx	<ptr
		sty	<ptr+2
		lda	[<ptr]			;Got the length
		sta	>length_temp		;Save it.
*
* If this is an	FCR, we	need to	set the	level field to the current system level
* and set last_ref_num to ID...
*
		lda	#0000
		sta	>last_ref_num		;Init to zero in case VCR.
		sta	>full_path_flag		;Init to zero.
		
		lda	>obj_type		;Is VCR?
		bpl	do_allocate		;Yep.
		ldy	#fcr_level		;Nope, so set system level.
		lda	>system_level
		sta	[<vcr],y
		lda	>id_temp		;And set last_ref_num to ID.
		sta	>last_ref_num
*
* Now we need to decide if we need to build a full pathname for this FCR or if
* it is already pointed to by path1_ptr.  If it is already pointed to by
* path1_ptr, set ptr=path1_ptr and length_temp=new length...
*
		lda	<path_flag		;Get path flags.
		and	#$4000			;Does path1_ptr point to something?
		beq	do_allocate		;No so use volume name.

		ldy	#0002			;Yes, get the first character.
		lda	[<path1_ptr],y
		and	#%0000000001111111
		cmp	#$003a			;Is it a colon?
		bne	build_full_path		;Nope, so need to build path.

		lda	<path1_ptr		;Yes, copy path1_ptr to ptr.
		sta	<ptr
		lda	<path1_ptr+2
		sta	<ptr+2
		lda	[<path1_ptr]		;Get new length.
		sta	>length_temp		;Set length.
		bra	do_allocate		;Go allocate string.
*		
* We need to build it, change length_temp to the combined length +1 for colon...
*
build_full_path	lda	#0001			;Set flag.
		sta	>full_path_flag		;Indicate that we need to build full.

		clc				;Add both lengths.
		lda	[<ptr]
		adc	[<path1_ptr]
		adc	#0001			;Add 1 for colon.
		sta	>length_temp		;Save it.  Overflow?
		bcc	do_allocate		;Nope.
		lda	#out_of_mem		;Yes, simulate out of memory.
		jmp	rel_id			;Out of here.
*
* Allocate VP for name string...
*
do_allocate
		lda	>length_temp		;Get string length.
		ina				;Dont forget the count word & terminator
		ina
		ina
		pei	<ptr			;Save pointer.
		pei	<ptr+2

		jsl	allocate		;Invalidates vcr
		bcs	rel_id			;Couldn't get memory for name buffer

; The allocate might have caused a memory compaction...	must deref the VP
;  one last time... updating <vcr if necessary.

		jsr	set_vcr			;Preserves all three reggies

; Now store the	VP returned in the VCR's name field

		phy
		tya
		ldy	#vcr_name+2
		sta	[vcr],y
		txa
		dey
		dey
		sta	[vcr],y
		ply

; Dereference the VP (adding the block overhead	in)

		jsl	deref2			;Takes account of the block overhead
		stx	ptr			;Got the pointer to the destination
		sty	ptr+2
*
* Get back the pointer to the source...
*
		ply
		plx
		stx	m_temp
		sty	m_temp+2		;Place for zero page indirect
*
* We now have m_temp pointing to the source string and ptr pointing to the destination
* space.  Do copy.  Do we need to concatenate strings? 	
*
		jsr	copy_gstring		;Do copy.
		lda	>full_path_flag		;Need to concatenate?
		beq	do_link			;Nope.
*
* Yes, so do it, inserting colon between...
*
		lda	[<ptr]			;Get length of volume name.
		inc	a			;Adjust for length word.
		inc	a
		tay				;Y points to end of volume name.
		lda	#$003a			;Add colon to end.
		sta	[<ptr],y
		iny				;Point Y past colon.
		
		lda	>length_temp		;Get full length.
		sta	[<ptr] 			;Set correct length.
		
		clc				;Set ptr to end of volume name.
		tya
		adc	<ptr
		sta	<ptr
		lda	#0000
		adc	<ptr+2
		sta	<ptr+2
		
		lda	[<path1_ptr]		;Get length of partial path in Y.
		tay
		
		clc				;Set m_temp = path_ptr+2.
		lda	#0002
		adc	<path1_ptr
		sta	<m_temp
		lda	#0000
		adc	<path1_ptr+2
		sta	<m_temp+2
		
		jsr	more			;Do copy.

; Finally (!) link the new VCR into the	VCR list and haveniceday.
;  (vp is already set)

do_link		ldx	vp
		ldy	vp+2
		jsr	map_vp			;Regenerate seg	and get index
		tay				;Move segment offset into Y

		jsr	list_index
		tax
		jsr	link_record

		ldx	vp
		ldy	vp+2

		clc
		rtl				;(whew!)

rel_id
		pha
		lda	>id_temp		;Get the ID we allocated
		jsr	ldxy_idhand
		jsr	free_id			; and give it back.
		pla				;Preserve the error code

rel_vcr

; Oh my... out of memory.  Well, let's release the VCR even though we're
;  probably going to run out of	memory on some other call real soon.

		pha				;Preserve the error code
		ldx	vp
		ldy	vp+2
		jsl	deallocate

		pla				;Restore the error code
		sec				;The alloc_vcr failed irreregardlessless

bad_exit
		plx
		ply
		rtl				;Carry is already set


id_temp		dc.w	0000			;Temp storage for the id.
length_temp	dc.w	0000			;Temp storage for length.
full_path_flag	dc.w	0000			;Set if need to build full path.

set_vcr
		pha
		phy
		phx
		ldx	vp
		ldy	vp+2
		jsr	deref2_vp		;Setup the vcr page zero location
		plx
		ply
		pla
		rts


		end_proc
		eject

;======================================================================
; release_record : Release a Volume or File Control Record
;
; Created:	April  9, 1987
; Modified:	January	25, 1988
; Author:	Mike Askins
;
; Copyright Apple Computer Inc.	1987  All rights reserved
;
; Input:	A = VCR	ID
;		X = <undefined>
;		Y = <undefined>
;		P = nvmxdizc
;		    ..000...
;
; Output:	A = trashed
;		X = trashed
;		Y = trashed
;		P = nvmxdizc
;		    ..000..E ->	A=$43: 'Unknown VCR ID', rarely	'Memory Problem'
;				A=$50: 'Files are open on this VCR'
;		b = preserved
;
;======================================================================

alt_rel_vcr	proc				;Entry for swap_out
		entry	releasevcr
		entry	releasefcr
		entry	release_record

		phb
		phk
		plb
		pha				;Push the ID
		bra	okay

releasevcr


; Releasing a VCR is more involved than	releasing an FCR.  If there are	any open
;  files an error is returned.	Otherwise the correct FST is called to flush
;  any deferred	blocks.	 Then call same	FST to remove all FST specific info
;  from	the VCR.  Finally release the record.

		phb				;Preserve the DBR
		phk
		plb

		pha
		jsl	findvcr			;Get a VP to the VCR
		jsr	deref2_vp		;Get a pointer into VCR

		ldy	#vcr_open_cnt		;Peek at the open count
		lda	[vcr],y
		beq	okay			;Can release if files are open
		pla				;Fix the stack for error case
		lda	#file_busy		;File is open
		sec
		bra	oops2			;Return the error

; Pass a pointer to the	FST in question	in vcr_ptr.  Preserve original value

okay
;		lda	<vcr_ptr+2
;		pha
;		lda	<vcr_ptr
;		pha
*** optimized 17-Jul-92 DAL
		pei <vcr_ptr+2
		pei <vcr_ptr
*** end 17-Jul-92
		lda	<vcr
		sta	<vcr_ptr
		lda	<vcr+2
		sta	<vcr_ptr+2

		ldy	#vcr_fst_id
		lda	[vcr],y			;Who is	responsible for this?
		jsr	find_fst		;Convert to index in FST table
		tax
		lda	#kill_vcr		;Ask FST to remove it's specific data
		jsr	do_fst

		pla				;Get back old value of vcr_ptr
		sta	<vcr_ptr
		pla
		sta	<vcr_ptr+2

		pla				;Retrieve the ID
		clc
		bra	release_record		;Trash the rest of the VCR

releasefcr
		sec
		phb				;Preserve DBR
		phk
		plb

release_record

		jsr	set_type		;Set the obj_type flag
		jsr	ldxy_idhand		;Load vcr list handle into x,y (save A)
		jsr	free_id			;Free the ID in A
		bcs	oops

		phy				;Save the VP of the VCR
		phx
		jsr	list_index		;Unlink	the VCR from the list
		jsr	unlink_record

		plx				;Get back the VP for the VCR
		ply
		jsr	deref2_vp		;Set VCR to thing to release

; Release the name buffer

		ldy	#vcr_name
		lda	[vcr],y
		tax
		iny
		iny
		lda	[vcr],y
		tay
		jsl	deallocate

; Finally release the record area itself

		ldx	vp
		ldy	vp+2
		jsl	deallocate

oops
		lda	#invalid_ref_num
oops2
		plb
		rtl

		end_proc
		eject
;======================================================================
; rename_record	: Change the name of a VCR or FCR
;
; Created:	July 6,	1987
; Modified:	July 15, 1987
; Author:	Mike Askins
;
; Copyright Apple Computer Inc.	1987  All rights reserved
;
; Input:	A = ID (vcr_id or refnum)
;		X = Pointer to new name	(low)
;		Y = Pointer to new name	(high)
;		P = nvmxdizc
;		    ..000...
;
; Output:	A = trashed
;		X = trashed
;		Y = trashed
;		P = nvmxdizc
;		    ..000..E ->	'Out of Memory on Rename'
;		b = preserved
;
;======================================================================

renamevcr	proc
		entry	renamefcr
		entry	rename_record

		clc
		bra	rename_record

renamefcr
		sec

rename_record
		phy
		phx
		jsl	find_record		;Get the appropriate VP
		bcs	rename_err

		jsr	deref2_vp		;Set up VP and VCR

		lda	1,s			;Set up	the ptr to the new string
		sta	ptr
		lda	3,s
		sta	ptr+2

		lda	[ptr]
		inc	a
		inc	a
		inc	a			;Got count plus	lenword plus terminator

		jsl	allocate		;Get space for the new name
		bcs	rename_err

		phy				;Save away VP to new name area
		phx

; Now deallocate the original buffer

		ldy	#vcr_name
		lda	[vcr],y
		tax
		iny
		iny
		lda	[vcr],y
		tay
		jsl	deallocate		;Trashes ptr
		bcs	rename_err2

; Install the new buffer

		ldy	#vcr_name
		lda	1,s
		sta	[vcr],y
		iny
		iny
		lda	3,s
		sta	[vcr],y

; Set up the pointers to do the	copying

		plx
		ply				;Got back the destination VP
		jsl	deref2			;Get pointer to destination
		stx	ptr
		sty	ptr+2

		plx				;This is already a pointer
		ply
		stx	m_temp
		sty	m_temp+2		;Got the source	pointer set up

		jsr	copy_gstring

		clc
		rtl				;Did it!  Return error free

rename_err2
		plx
		ply

rename_err
		plx
		ply

		rtl

		end_proc
		eject
;======================================================================
; link_record :	Insert an object into a	list
;
; Created:	May  8,	1987
; Modified:	May 13,	1987
; Author:	Mike Askins
;
; Copyright Apple Computer Inc.	1987  All rights reserved
;
; Input:	A = Undefined
;		X = Object Table Index (object type)
;		Y = Target's Segment Index
;		P = nvmxdizc
;		    ..000...
;	      seg = Target's Segment Address
;	       vp = Target's Virtual Pointer
;
; Output:	A = trashed
;		X = trashed
;		Y = trashed
;		P = nvmxdizc
;		    ..000...
;		b = preserved
;	      ptr = trashed
;
;======================================================================

link_record	proc

; Point	the object list	header at the target and set the target's next
;  field to the	original value of the list header.

		iny				;Move to target's forward link (low)
		iny
		lda	>obj_list_tab,x		;Get list header (low)
		sta	[seg],y			;Put into target's flink field
		pha				;Keep list header (low) around
		lda	vp			;Get target's VP (low)...
		sta	>obj_list_tab,x		; and store in the header

		iny				;Move to targ's flink (high)
		iny
		lda	>obj_list_tab+2,x	;Get list header (high)
		sta	[seg],y			;Store list header value in flink (high)
		pha				;Keep list header (high)
		lda	vp+2			;Get target's VP (high)...
		sta	>obj_list_tab+2,x	; and store in the list header

		iny				;Null out the backward link
		iny
		lda	#$0000
		sta	[seg],y
		iny
		iny
		sta	[seg],y

; Now go to the	targ's successor and alter it's	back link to point to the targ
;  Don't do this if the free header was originally null, since that means
;  that	there WAS NO successor.

		ply				;Pull back successor's VP
		plx
		bne	non_null
		tya
		beq	no_successor

non_null
		jsl	gderef			;Get a pointer to the successor
		stx	ptr
		sty	ptr+2

		ldy	#pred			;Point to backward link
		lda	vp
		sta	[ptr],y
		iny
		iny
		lda	vp+2
		sta	[ptr],y

no_successor
		rts

		end_proc
		eject
;======================================================================
; unlink_record	: Pull a record	out of it's record list
;
; Created:	May 11,	1987
; Modified:	May 11,	1987
; Author:	Mike Askins
;
; Copyright Apple Computer Inc.	1987  All rights reserved
;
; Input:	A = Object Table Index (Object Type)
;		X = Virtual Pointer (low)
;		Y = Virtual Pointer (high)
;		P = nvmxdizc
;		    ..000...
;
; Output:	A = trashed
;		X = trashed
;		Y = trashed
;		P = nvmxdizc
;		    ..000...
;		b = preserved
;	   m_temp = trashed
;	      ptr = trashed
;
;======================================================================

unlink_record	proc

		pha				;Save for later

; Start	by getting a pointer to	the item to be unlinked

		jsl	gderef
		stx	m_temp
		sty	m_temp+2

; Get the VP of	the predecessor

		plx				;Get back Object Table index
		ldy	#pred+2
		lda	[m_temp],y
		pha				;Keep around the predecessor's VP
		dey
		dey
		lda	[m_temp],y
		ply				;Move a	copy of pred (high) into Y
		phy
		pha				;... the low part of the pred's vp
		phx				;Keep Object Table index around
		tax				;...and a copy of pred (low) into X

; If there was no predecessor, kludge X	and Y to the address of	the list header

		ora	5,s			;Check for nil VP
		bne	gotapred
		pla				;Get Object Table index
		dec	a
		dec	a
		clc
		adc	#obj_list_tab
		tax
		ldy	#^obj_list_tab		;Must be same bnk, code no cross banks
		bra	nopred

; Get a	pointer	to the predecessor

gotapred
		pla				;Toss the Object Table Index
		jsl	gderef
nopred
		stx	ptr
		sty	ptr+2

; Now get the VP of the	successor and store it in the predecessor's forward link

		ldy	#succ
		lda	[m_temp],y
		sta	[ptr],y			;Store in the predecessor's flink
		tax
		iny
		iny
		lda	[m_temp],y
		sta	[ptr],y
		tay

; If the pred's flink was nil, then you're done

		bne	otherhalf
		txa
		beq	endofline2

; There	was a successor	and we need to point it's blink to the predecessor

otherhalf
		jsl	gderef
		stx	ptr
		sty	ptr+2

		ldy	#pred
		pla
		sta	[ptr],y
		iny
		iny
		pla
		sta	[ptr],y
endofline
		rts

endofline2
		pla
		pla
		rts

		end_proc
		eject
;======================================================================
; find_record :	Find a Volume or File Control Record by	ID or name
;
; Created:	April  9, 1987
; Modified:	June 22, 1988
;		August 12, 1988
; Author:	Mike Askins
;
; Copyright Apple Computer Inc.	1987  All rights reserved
;
; Input:	A = ID or refnum or $0000
;		X = Pointer to name string (low, if Acc	=$0000)
;		Y = Pointer to name string (high, if Acc = $0000)
;		P = nvmxdizc
;		    ..000...
;
; Output:	A = trashed or error code
;		X = Pointer to record matching criteria	(VP low)
;		Y = Pointer to record (VP high)
;		P = nvmxdizc
;		    ..000..E ->	'Could not find record'
;		b = preserved
;
;======================================================================

findvcrcase	proc
		entry	findvcr
		entry	findfcr
		entry	find_record
		entry	case_mask

		pha
		lda	#$0020			;mask for case insensitive comparison
		sta	>case_mask
		pla
		clc
		bra	find_record1

findvcr
		clc
		bra	find_record

findfcr
		sec

find_record
		pha				;save value in A
		lda	#$0000			;set mask to indicate case sensitive
		sta	>case_mask		;...compares
		pla				;restore A

find_record1	jsr	set_type		;Sets N and Z per Acc

; If Acc is non	zero, use as an	index into the VCR ID list.  If	zero, do a
;  pattern search on the name passed in	X,Y (pointer).

		beq	find_name
		asl	a
		bcs	prob			;BUG FIX 6/88; bit 15 set is invalid
		asl	a
		bcs	prob			;BUG FIX 6/88; bit 14 set is invalid
		pha
		jsr	ldxy_idhand
		jsr	mm_deref

		stx	ptr
		sty	ptr+2

		ply

		tya				;Added 2/15; check limit of ID or refnum
		cmp	[ptr]
		bge	prob

		lda	[ptr],y
		tax
		iny
		iny
		lda	[ptr],y
		tay
		clc
		bpl	no_prob
prob
		sec
no_prob
		lda	#invalid_ref_num
		rtl

; Do a search of all records looking for one with a specific name

find_name
		stx	m_temp			;Keep the pointer to the target name
		sty	m_temp+2

; Get a	VP to the first	guy in the list	in X,Y

		jsr	list_index
		tax
		lda	>obj_list_tab+2,x
		tay
		lda	>obj_list_tab,x
		tax

; Do the search	and return the results

		jsr	name_search

		bra	no_prob			;If error, make sure return A with code

case_mask					; ;mask value that determines whether
		DC.W	0000			;...comparison is case sensitive

		end_proc

;
; string_compare - compare strings pointed to by m_temp and ptr
; returns Z flag set if strings are equal
;
string_compare	proc
; Compare the lengths

		lda	[ptr]			
		cmp	[m_temp]		;Checked length and first character
		bne	no_match		;No match

; Now check the	rest of	the string starting from the rear

		tay
		iny				;Compensate for lenword

		sep	#$20			;8-bit m
		longa	off

maybe_match
		lda	[<ptr],y
		cmp	[<m_temp],y
		beq	it_matched

		cmp	#'A'			;'A'
		blt	no_match
		cmp	#'Z'+1			;'Z'+1
		blt	isalpha
		cmp	#'a'			;'a'
		blt	no_match
		cmp	#'z'+1			;'z'+1
		bge	no_match

isalpha		eor	[<m_temp],y
		eor	>case_mask
		bne	no_match

it_matched	dey
		bne	maybe_match

match
no_match
		rep	#$20			;back to 16-bit m
		longa	on
		rts				;with Z flag conditioned appropriately

		end_proc

; Target Pascal	string pointed to by m_temp, m_temp+2
; VP of	first guy in chain to search
; Return carry set if search is	unsuccessful

name_search	proc


; Check	if we've come to the end of the chain (null VP)

		tya
		bne	keep_goin
		txa
		bne	keep_goin
		sec				;No match
		rts

; We should check this record to see if	we have	a match

keep_goin
		stx	vp
		sty	vp+2
		jsl	deref2
		stx	ptr			;Got pointer to the record
		sty	ptr+2

		ldy	#vcr_name
		lda	[ptr],y
		tax
		iny
		iny
		lda	[ptr],y
		tay
		jsl	deref2			;Got pointer to name buffer
		stx	ptr
		sty	ptr+2

		jsr	string_compare		;compare the strings
		bne	continue		;no match

; We got a match.  Return the VP we saved and have a nice day.

		ldx	vp
		ldy	vp+2
		clc
		rts				;Got it

; Walk to the next record and see if there's a match there.

continue
		rep	#$20			;back to 16-bit m
		ldx	vp
		ldy	vp+2
		jsl	gderef
		stx	vp
		sty	vp+2

		ldy	#succ			;Changed from flink... wrong usage!
		lda	[vp],y
		tax
		iny
		iny
		lda	[vp],y
		tay
		bra	name_search

		end_proc
		eject
;======================================================================
; get_record : Retrieve	an active Volume or File Control Record
;
; Created:	April  9, 1987
; Modified:	July 15, 1987
; Author:	Mike Askins
;
; Copyright Apple Computer Inc.	1987  All rights reserved
;
; Input:	A = Record Index { =$0000 asks for next	record }
;		X = <undefined>
;		Y = <undefined>
;		P = nvmxdizc
;		    ..000...
;
; Output:	A = trashed
;		X = VP of
;		Y = trashed
;		P = nvmxdizc
;		    ..000..E ->	'Attempt to Walk Past Last Record'
;		b = preserved
;
;======================================================================

; These	routines let the caller	walk through the list of VCRs or that of FCRs.
;  The acc value refers	to a record's relative position in its list, rather
;  than	an intrinsic ID	value.	(Acc=2 will retrieve the 2nd record in the
;  list, if there are at least two in the list.)  The routine keeps around

getvcr		proc
		entry	getfcr
		entry	get_record

		clc
		tax
		lda	>last_vcr		;Get the last index
		bra	get_record

getfcr
		sec
		tax
		lda	>last_fcr		;Get the last index

get_record
		inc	a
		txy				;Check if caller parm = $0000
		beq	call_set		;Use our stored value for the index
		txa
call_set
		sta	m_temp			;Whatever index, store for decrementing
		bcs	its_fcr			;If not vcr skip down

		sta	>last_vcr		;Update our stored index for next time
		ldx	#vcr_list		;Pick up the index into the head table
		bra	cont

its_fcr
		sta	>last_fcr
		ldx	#fcr_list

cont
		lda	>obj_list_tab+2,x
		tay
		lda	>obj_list_tab,x		;Get the head pointer for this list
		tax

null_check
		txa
		bne	non_null
		tya
		bne	non_null

; The requested	record does not	exist.	Inform the poor	unsuspecting caller.

		sec
		rtl

; Now find the record corresponding to the index.  The current VP is in	X,Y

non_null
		lda	m_temp
		dec	a
		beq	got_it

; Move to the next guy

		sta	m_temp

		jsl	gderef
		stx	vcr
		sty	vcr+2
		ldy	#succ
		lda	[vcr],y
		tax
		iny
		iny
		lda	[vcr],y
		tay
		bra	null_check

got_it
		clc				;Indicate requested record returned
		rtl

last_vcr	DC.W	0			;Index of last vcr retrieved by get_vcr
last_fcr	DC.W	0			;Index of last fcr retrieved by get_fcr

		end_proc
		eject
;======================================================================
; swap_out : Mark a volume as swapped out
;
; Created:	September 25, 1987
; Modified:	September 25, 1987
; Author:	Mike Askins
;
; Copyright Apple Computer Inc.	1987  All rights reserved
;
; Input:	A = Device Number
;		X = <undefined>
;		Y = <undefined>
;		P = nvmxdizc
;		    ..000...
;
; Output:	A = Device Number
;		X = trashed
;		Y = trashed
;		P = nvmxdizc
;		    ..000..0
;		b = preserved
;
;======================================================================

swapout		proc

; This routine walks the list of active	VCRs and marks as swapped out any and
;  all VCRs with open files having the correct dev number.  Note that in
;  every legitimate case there will be only one	swapped	in VCR with the	device
;  number passed this routine swaps out	any and	all volumes corresponding to
;  the passed device number.  If a VCR with the	correct	device number is found
;  with	no open	files, a release_vcr call is done on that VCR.


		pha				;Push the target devnum for comparisons

		lda	#1			;Set to	get the	initial volume
more
		jsl	getvcr			;Get a VP to a VCR
		bcs	done			;'End of the line.  Everybody out.'

		jsr	deref2_vp		;Put pointer into dirpg vcr

		ldy	#vcr_dev
		lda	[<vcr],y		;Get the last known device no this vol
		cmp	1,s			;Compare with the target
		bne	noact			;Don't deal with it

		ldy	#vcr_open_cnt		;Check if there	are any open files.
		lda	[<vcr],y
		bne	markit

; There	were no	open files here, so as far as we know we won't ever look at
;  this	volume again.  Get rid of the VCR.

		ldy	#vcr_id
		lda	[<vcr],y
		jsl	alt_rel_vcr
		bra	done

markit
		ldy	#vcr_status		;Now clear the bit
		lda	[<vcr],y
		ora	#vcr_swapped
		and	#vcr_wr_unknown
		sta	[<vcr],y

noact		lda	#0			;Set to	get the next active VCR
		bra	more

done
		pla				;Thanks Mikala for straightening up
		clc				;I love situations where you can't fail
		rtl				;'I shall return.'

		end_proc
		eject
;=====================================================================
; alloc_icr : Allocate an Interrupt Control Record
;
; Created:	November 17, 1987
; Modified:	November 17, 1987
; Author:	Mike Askins
;
; Copyright Apple Computer Inc.	1987  All rights reserved
;
; Input:	A = undefined
;		X = undefined
;		Y = undefined
;		P = nvmxdizc
;		    ..000...
;
; Output:	A = ID of allocated ICR
;		X = VP to ICR (low)
;		Y = VP to ICR (high)
;		P = nvmxdizc
;		    ..000..E ->	'Out of Memory'
;		b = preserved
;
;======================================================================

alloc_icr	proc

		lda	#icr_size
		clc				;Don't bother to zero it out
		jsl	allocate		;Conception
		bcs	outomem

		stx	vp
		sty	vp+2
		ldx	|icr_id_hand
		ldy	|icr_id_hand+2
		jsr	reserve_id		;Registration

		ldx	<vp
		ldy	<vp+2

outomem
		rts

		end_proc
		eject
;======================================================================
; release_icr :	Release	an Interrupt Control Record
;
; Created:	November 17, 1987
; Modified:	November 17, 1987
; Author:	Mike Askins
;
; Copyright Apple Computer Inc.	1987  All rights reserved
;
; Input:	A = ICR	ID
;		X = <undefined>
;		Y = <undefined>
;		P = nvmxdizc
;		    ..000...
;
; Output:	A = trashed
;		X = VP of now-freed ICR	(low)
;		Y = VP of now-freed ICR	(high)
;		P = nvmxdizc
;		    ..000..E ->	'Unknown or unreleaseable ICR'
;		b = preserved
;
;======================================================================

release_icr	proc

		ldx	|icr_id_hand
		ldy	|icr_id_hand+2
		jsr	free_id			;File death certificate
		bcs	bad_id

		phy
		phx
		jsl	deallocate		;Bury
		plx				;Reclaim the VP of the freed ICR
		ply

bad_id
		rts

		end_proc
		eject
;=====================================================================
; build_icr : Allocate an ICR, link into list, and set ICR values
;
; Created:	November 19, 1987
; Modified:	November 19, 1987
; Author:	Mike Askins
;
; Copyright Apple Computer Inc.	1987  All rights reserved
;
; Input:	A = Vector Reference Number (index)
;		X = Interrupt Handler Address (low)
;		Y = Interrupt Handler Address (high)
;		P = nvmxdizc
;		    ..000...
;
; Output:	A = ICR	ID (or error code if CS; 1->'Invalid VRN', 2->'OutOfMem'
;		X = trashed
;		Y = trashed
;		P = nvmxdizc
;		    ..000..E ->	'ICR was not allocated'
;		b = preserved
;
;======================================================================

build_icr	proc

no_mem_err	equ	2			;Belongs in common.equ

		php				;We may	disable interrupts...
		phx				;Keep the handler address for later
		phy				;... hi order last

; Validate and map the vector reference	number.	 If VRN	was okay, allocate the
;  record.

		pha				;Keep to place in the alloc'd ICR
		jsr	map_vrn
		bcs	bad_vrn
		pha				; and the VRN offset

		jsr	alloc_icr		;Procure the real estate
		bcs	no_mem			;None available
		sta	|id_temp		;Keep the ICR ID to return to caller
		phy
		phx
		jsr	deref2_vp		;Set up VP and VCR pointer
		plx
		ply

; Now set up and link the ICR into the list specified by the VRN offset.

		jsr	map_vp			;Set up for link_record
		tay
		plx				;Get back the VRN offset
		sei				;Disable for critical section
		jsr	link_record		;Insert into the list

; Now fill in the fields of the	ICR

		ldy	#4
loop
		pla				;Pull back a byte
		sta	[<vcr],y		;Place in ICR
		dey
		dey
		bpl	loop

		plp				;reset interrupts to old state

		lda	|id_temp		;Get the ID back and return
		clc
		rts

no_mem
		lda	#no_mem_err
		ply				;fix stack
bad_vrn
		ply				;Pop off the stray VRN
		ply
		plx
		plp				;Restore interrupt state
		sec
		rts				;Return carry set with error code in A

id_temp		DC.W	0000			;Temp storage for the ICR id

		end_proc
		eject
;=====================================================================
; map_vrn : Validate and map a Vector reference	number
;
; Created:	November 19, 1987
; Modified:	November 19, 1987
; Author:	Mike Askins
;
; Copyright Apple Computer Inc.	1987  All rights reserved
;
; Input:	A = Vector Reference Number (index)
;		X = undefined
;		Y = undefined
;		P = nvmxdizc
;		    ..000...
;    vrn_to_index = mapping table
;
; Output:	A = VRN	Offset (or error code if CS; 1->'Invalid VRN')
;		X = Vector Index
;		Y = preserved
;		P = nvmxdizc
;		    ..000..E ->	'Invalid VRN'
;		b = preserved
;
;======================================================================

map_vrn		proc
		entry	map_vi

invalid_vrn_err	equ	1			;Belongs in common.equ

		pha				;Keep for compares
		tax				;Check for zero
		beq	found_it		;If zero, we know it's good

		ldx	#$FFFE			;Prep for the first time thru the loop
not_it
		inx				;Move to lower bound of next range
		inx
		lda	|vrn_to_index,x		;Check for end of table
		beq	no_vrn			;Couldn't find a mapping range
		cmp	1,s			;Check if we're too far in the table
		beq	skip			;I wish we had a BGT instruction
		bge	no_vrn			;We've passed all ranges less than VRN
skip

		inx				;Move to upper bound of this range
		inx
		lda	|vrn_to_index,x		;Pull bound
		inx				;Move index to the last field in range
		inx
		cmp	1,s			;Compare against the VRN
		blt	not_it			;Possibly the next range will do it

		sec
		pla
		sbc	|vrn_to_index,x		;Make the 'vector index'
map_vi
		pha				;Keep for misuse later
found_it
		asl	a
		asl	a
		clc
		adc	#icr_list
		plx				;Return 'vector index'
		rts

no_vrn
		pla
		lda	#invalid_vrn_err
		sec
		rts

		end_proc
		eject
;=====================================================================
; patch_vector : Patches a firmware interrupt vector, builds an	ICR
;		  and stores in	it the vector's original value.
;
; Created:	November 19, 1987
; Modified:	November 19, 1987
; Author:	Mike Askins
;
; Copyright Apple Computer Inc.	1987  All rights reserved
;
; Input:	A = Vector Reference Number (index)
;		X = undefined
;		Y = undefined
;		P = nvmxdizc
;		    ..000...
;
; Output:	A = trashed
;		X = trashed
;		Y = trashed
;		P = nvmxdizc
;		    ..000..E ->	'No room for ICR''
;		b = preserved
;
;======================================================================

patch_vector	proc


		pha				;Save away the VRN

; Build	an ICR which will hold the current value of the	interrupt vector

		jsr	build_icr		;Sets VCR to point to the contents
		bcs	pv2

; We don't need this 'ICR' to have an ID associated with it.  It would be
;  difficult to	dispose	of later and so	we just	dispose	of it now.

		ldx	|icr_id_hand
		ldy	|icr_id_hand+2
		jsr	free_id			;Free up the ID

; Get the current value	of the vector we're about to modify

		lda	1,s			;Get back VRN; still there for SetVector
		tay				;Hang on to this for a second
		jsr	map_vrn			;Vector index in X; preserves Y
		phx				;Keep index for later

		phy				;Space for value returned
		phy				; ... it's a long word
		phy				;Send VRN to GetVector
		_GetVector			;Get the value of the vector

; Now record this information in this special ICR.  (Remember that non-special
;  ICRs	record the original value of the firmware interrupt vector.)

		ldy	#0
		pla				;Pull low byte of current vector value
		sta	[vcr],y
		iny
		iny
		pla				; ... and hi byte
		sta	[vcr],y

; Now set the vector to	point into our vector dispatch table.

		pla				;Get back vector index
		ldx	|vect_disp_base+2	;Get table base (high)
		asl	a			;Convert to a point in our dispatch tabl
		asl	a
		clc
		adc	|vect_disp_base
		bcc	pv1
		inx				;There was a carry
pv1
		phx				;Push on the value to set vector to
		pha				; ... and the low part
		_SetVector			;Do it
		rts

pv2
		pla
		rts

		end_proc

empty_vect	proc

; Check	if the vector corresponding to the VRN in Acc is now null.  Return this
;  info	in the Z flag, Z set means VRN list element is null, clear ow.

		jsr	map_vrn
		tay
		lda	|obj_list_tab,y
		ora	|obj_list_tab+2,y
		rts

		end_proc
		eject
;=====================================================================
; wreck_icr : Deallocate an ICR, unlink	it and free the	ID
;
; Created:	November 19, 1987
; Modified:	November 19, 1987
; Author:	Mike Askins
;
; Copyright Apple Computer Inc.	1987  All rights reserved
;
; Input:	A = ID number
;		X = undefined
;		Y = undefined
;		P = nvmxdizc
;		    ..000...
;
; Output:	A = Vector Index of removed ICR	(if CS;	1->'Invalid ID')
;		X = Handler Address from removed ICR (low)
;		Y = Handler Address from removed ICR (high)
;		P = nvmxdizc
;		    ..000..E ->	'ID was never allocated'
;		b = preserved
;
;======================================================================

wreck_icr	proc


; Start	by setting up the locations hand and ptr for use later

		pha
		ldx	|icr_id_hand
		ldy	|icr_id_hand+2
		jsr	set_tab_ptr
		pla

; Now get the VP corresponding to the ID we were passed

		pha				;Keep the ID around
		asl	a
		asl	a
		cmp	[ptr]			;See if beyond end of table
		bge	bad_id2			;Beyond end of table
		tay
		lda	[ptr],y			;Get VP (lo)
		pha
		iny
		iny
		lda	[ptr],y			;Get VP (hi)
		bmi	bad_id			;If the	MSB=1, this icr is unallocated
		tay				;VP (hi) -> Y
		plx				;VP (lo) -> X

; Pull the contents out	of the ICR and shove into the stack

		jsr	deref2_vp		;Set vcr to point to the contents
		ldy	#o_int_hand_addr+2
		lda	[vcr],y			;Hi part of stored handler address
		plx				;Get back the ID to manage stack...
		pha				;Keep to return
		dey
		dey
		lda	[vcr],y			;Lo part of stored handler address
		pha				;Keep to return
		ldy	#o_vrn
		lda	[vcr],y			;Stored VRN
		pha				;Keep to return
		phx				; ...keep the ID at the top of stack

; Now use the index to get a list offset which we will use to unlink the
;  record from the appropriate list.

		jsr	map_vrn			;Convert the VRN to an obj_tab offset

		ldx	vp
		ldy	vp+2
		jsr	unlink_record

; Finally deallocate the ICR, removing it from the Dynalist and	relinquishing
;  the ID.

		pla				;Recover the ID
		jsr	release_icr

		pla				;Recover the vrn
		plx				;Recover the address (lo)
		ply				;Recover the address (hi)
		clc				;Force no error condition
		rts

bad_id
		pla
bad_id2
		pla				;Straighten the stack up
		lda	#parm_range_err
		sec
		rts

		end_proc
		eject
;=====================================================================
; restore_vector : Restore an int vector to its	original value
;
; Created:	November 25, 1987
; Modified:	November 25, 1987
; Author:	Mike Askins
;
; Copyright Apple Computer Inc.	1987  All rights reserved
;
; Input:	A = Vector Reference Number
;		X = undefined
;		Y = undefined
;		P = nvmxdizc
;		    ..000...
;
; Output:	A = trashed
;		X = trashed
;		Y = trashed
;		P = nvmxdizc
;		    ..000..E ->	'Bad VRN' or 'Could not deallocate ICR'
;		b = preserved
;
;======================================================================

restore_vector	proc


		pha				;Keep the VRN for SetVector
		jsr	map_vrn
		bcs	bad_vrn

		tax
		lda	|obj_list_tab+2,x	;Pull VP
		tay
		lda	#0
		sta	|obj_list_tab+2,x	;We can null out this list
		lda	|obj_list_tab,x		;Pull VP (lo)
		pha
		lda	#0
		sta	|obj_list_tab,x
		plx				;VP is now in X,Y

		jsr	deref2_vp		;Set VP and VCR

		ldy	#o_int_hand_addr+2
		lda	[vcr],y
		pha
		dey
		dey
		lda	[vcr],y
		pha
		_SetVector

		ldx	vp
		ldy	vp+2
		jsl	deallocate

bad_vrn
		rts

		end_proc
		eject
;======================================================================
; allocate: Allocate a block of	memory and return a VP to it.
;
;	Note: This routine calls low_allocate to try to	get a block.
;	       If we're out of memory it attempts a purge of the cache and
;	       tries again.
;
;Created:	March 22, 1988
;Modified:	August 13, 1988
;Author:	Mike Askins
;
;Copyright Apple Computer Inc. 1987  All rights	reserved
;
;Input:		A = Requested Size
;		X = <undefined>
;		Y = <undefined>
;		P = nvmxdizc
;		    ..000...
;	  seg_tab = Pointer to segment table
;
;Output:	A = trashed or error code if carry set
;		X = VP (low)
;		Y = VP (high)
;		P = nvmxdizc
;		    ..000..E ->	'Out of Memory'	or 'Bad Parameter' (req	size)
;		b = preserved
;	   m_temp = trashed
;	      seg = segment containing allocated block
;	     size = size of segment allocated
;
;======================================================================
allocate	proc

		sta	>req_size		;In case we need to retry
		jsl	low_allocate		;Try to get block
		php
		bcc	got_it			;If okay, no retries

		cmp	#out_of_mem		;Check if failure was due to no memory
		bne	got_it			;It wasn't an out of memory issue

		plp				;Straighten stack

;		lda	<drvr_dev_num		;Preserve these around cache_del_vol
;		pha
;		lda	<drvr_fst_num
;		pha
*** optimized 17-Jul-92 DAL
		pei <drvr_dev_num		;Preserve these around cache_del_vol
		pei <drvr_fst_num
*** end 17-Jul-92

		stz	<drvr_dev_num		;Purge all non-deferred cached blocks
		stz	<drvr_fst_num
		jsl	cache_del_vol

		pla
		sta	<drvr_fst_num		;Restore these around cache_del_vol
		pla
		sta	<drvr_dev_num

		lda	>req_size
		jsl	low_allocate
		php

got_it
		plp
		rtl

snr_drvr_parms

; Save / Restore driver	parameters
; Copies data between driver direct page and a save area in either direction

;		 ldx	 #$1A
;loop		 anop
;		 lda	 <drvr_dev_num,x
;		 bcc	 skipper_do
;		 lda	 >save_drvr_stuff,x
;skipper_do	 anop
;		 sta	 >save_drvr_stuff,x
;		 sta	 <drvr_dev_num,x
;		 dex
;		 dex
;		 bpl	 loop
;		 rts

req_size	DC.W	0

;save_drvr_stuff ds	 $1C

		end_proc
		eject
;======================================================================
; low_allocate:	Allocate a block of memory and return a	VP to it.
;
;	Note: This routine is called only by allocate.	The latter
;	       is the one who worries about purging cache blocks in the
;	       event of	an out of memory error.
;
;Created:	April 2, 1987
;Modified:	March 22, 1988
;Author:	Mike Askins
;
;Copyright Apple Computer Inc. 1987  All rights	reserved
;
;Input:		A = Requested Size
;		X = <undefined>
;		Y = <undefined>
;		P = nvmxdizc
;		    ..000...
;	  seg_tab = Pointer to segment table
;
;Output:	A = trashed or error code if carry set
;		X = VP (low)
;		Y = VP (high)
;		P = nvmxdizc
;		    ..000..E ->	'Out of Memory'	or 'Bad Parameter' (req	size)
;		b = preserved
;	   m_temp = trashed
;	      seg = segment containing allocated block
;	     size = size of segment allocated
;
;======================================================================

low_allocate	proc

		cmp	#max_blk_size+1
		bge	too_big			;Bad request size from FST

		adc	#block_ovrhd		;Carry is already clear
		sta	size			;Save request size (zp)
		lda	#$0000			;Start us just before start of segtab 

next_seg
		jsr	select_seg		;Return	offset to entry in segtab (y)
		bcc	seg_avail		;Found a segment

; We're out of segments to search

		jsr	make_seg		;Grab another segment from MM
		bcs	alloc_err

seg_avail
		phy
		jsr	search_seg		;Ret with offset into segment (y)
		pla
		bcs	next_seg		;This segment has too little space

		pha				;Segment table offset

found_space
		jsr	res_block		;Reserve a block in segment    

; Now synthesize a VP out of the segtab	offset and segment offset

		tyx				;Offset into segment
		ply				;Offset into segment table

		clc				;No error
too_big
		lda	#parm_range_err		;Request size too large
		rtl

alloc_err
		lda	#out_of_mem		;In case of fail here, return code
		rtl

		end_proc
		eject
;======================================================================
; select_seg : Find the	next segment in	the segment table
;
;Created:	April 8, 1987
;Modified:	April 24, 1987
;Author:	Mike Askins
;
;Copyright Apple Computer Inc. 1987  All rights	reserved
;
;Input:		A = Offset of last segment searched
;		X = <undefined>
;		Y = <undefined>
;		P = nvmxdizc
;		    ..000...
;	  seg_tab = Pointer to segment table
;
;Output:	A = trashed
;		X = preserved
;		Y = Offset of newly found segment
;		P = nvmxdizc
;		    ..000..E  1	-> End of segment table
;		b = preserved
;	   m_temp = trashed
;
;======================================================================

select_seg	proc
		tay
		lda	[seg_tab]
		sta	m_temp
		bra	next_element

valid_entry
		iny				;Move up to high word of entry
		iny
		lda	[seg_tab],y		;Check IT out...
		bmi	next_element2		;If the MSB is set, free block
		dey				;Get back the current offset
		dey
		rts				;Return with carry clear and Y

next_element
		iny				;Move to next position
		iny
next_element2
		iny
		iny
		cpy	m_temp			;Off the end
		blt	valid_entry		;Still less than the limit

high_tail_it
		rts				;Return	CS : off end of table 

		end_proc
		eject
;======================================================================
; make_seg : Create a segment and link it into the segment table.  Return
;		the offset into	the segment table for the new seg in Y. 
;
; Created:	April 7, 1987
; Modified:	April 6, 1990 CAF (see revision history)
; Author:	Mike Askins
;
; Copyright Apple Computer Inc.	1987  All rights reserved
;
; Input:	A = <undefined>
;		X = <undefined>
;		Y = <undefined>
;		P = nvmxdizc
;		    ..000...
;    seg_tab_hand = Handle to segment table
;
; Output:	A = trashed
;		X = trashed
;		Y = Segment Table Offset for new segment
;		P = nvmxdizc
;		    ..000..E
;		b = preserved
;	      seg = pointer to new segment
;	  seg_tab = pointer to segment table
;======================================================================

make_seg	proc

; Set up ptr and hand for the link into	the segment table

		lda	>seg_tab_hand
		tax
		lda	>seg_tab_hand+2
		tay
		jsr	set_tab_ptr		;Set up hand and pointer

; Get the segment

		jsr	create_seg		;Handle returned in X,Y
		bcs	ms_nomem_err

; Add it into the segment table

		phy
		phx
		ldx	hand
		ldy	hand+2
		jsr	unlock_hand		;Unlock handle in case it moves
		plx
		ply
		jsr	add_element
		php				;Carry set per add_element results
		phy				;Save offset into segtab

		lda	ptr			;Get current segtab address
		sta	seg_tab			;Make it really current
		sta	>seg_tab_copy		;Keep a copy for deref_int
		lda	ptr+2
		sta	seg_tab+2
		sta	>seg_tab_copy+2

		ldx	hand			;Now lock segtab down again
		ldy	hand+2
		jsr	lock_hand

		ply				;Get back offset.
*
* We want to keep track of the highest element in the segment table so we can
* avoid walking the entire table (which is usually no where near full) during
* the lock and unlock calls.  Y now contains the offset of the element we just
* added, so we'll first add 4 to it (that's how the lock and unlock calls want
* it), then compare it to the current value.  If it's larger, we save it as the
* new value...
*
		clc				;Add 4 to offset.
		tya
		adc	#4
		cmp	>seg_tab_last		;Larger than current?
		bcc	exit			;Nope, so exit.
		sta	>seg_tab_last		;Yes, so make it the new value.
*
* We're all done, recover status from add_element and exit...
*
exit		plp				;Get back stat from add element
ms_nomem_err
		rts

		end_proc
		eject
;======================================================================
; create_seg : Make a new segment
;
; Created:	April  7, 1987
; Modified:	June 20, 1988
; Author:	Mike Askins
;
; Copyright Apple Computer Inc.	1987  All rights reserved
;
; Input:	A = <undefined>
;		X = <undefined>
;		Y = <undefined>
;		P = nvmxdizc
;		    ..000...
;
; Output:	A = <trashed>
;		X = handle to new segment (low)
;		Y = handle to new segment (high)
;		P = nvmxdizc
;		    ..000..E ->	'Out of Memory Error'
;		b = preserved
;	      seg = pointer to newly created segment
;
;======================================================================

create_seg	proc

; First	grab an	8K segment from	the memory manager

		lda	#segment_size		;8K currently
		jsr	grab_MM_seg		;Return handle in Y,X
		bcs	make_seg_err

*** optimized 15-Dec-92 DAL -- grab_MM_seg already allocates locked memory if lock_flag is set (Greg did that in 6.0)
*** Saved 13 bytes, yahoo!  (I only needed a few to make this build.)
;;;		lda	>lock_flag		;If we're locked now, lock this one too
;;;		beq	cskip			;Skip the lock if we're unlocked now.
;;;		phx
;;;		phy
;;;		jsr	lock_hand		;Lock this segment like the rest
;;;		ply
;;;		plx
;;;cskip
*** end 15-Dec-92

; Keep handle around to	return;	dereference the	mm handle to keep in zero page 

		phx
		phy
		jsr	mm_deref
		stx	seg
		sty	seg+2

; Now make the whole segment look like one big free block

		ldx	#cst_size*2-2
loop
		lda	>cst_locat,x
		tay
		lda	>cst_value,x
		sta	[seg],y
		dex
		dex
		bpl	loop

		ply
		plx
		clc
make_seg_err
		rts


cst_size	equ	7

cst_locat	DC.W	dtag1_posn,dtag2_posn,size1_posn,size2_posn
		DC.W	fwd_posn,back_posn,free_posn
cst_value	DC.W	dtag1_valu,dtag2_valu,max_blk_size,max_blk_size
		DC.W	0,head_valu,init_block

		end_proc
		eject
;======================================================================
; search_seg : Search a	segment	for a free block of sufficient size
;
;
;Created:	April 8, 1987
;Modified:	April 24, 1987
;Author:	Mike Askins
;
;Copyright Apple Computer Inc. 1987  All rights	reserved
;
;Input:		A = <undefined>
;		X = <undefined>
;		Y = Segment to be searched (offset in segment table)
;		P = nvmxdizc
;		    ..000...
;	     size = size of requested segment (bytes - including overhead)
;	  seg_tab = Pointer to segment table
;
;
;Output:	A = trashed
;		X = trashed
;		Y = Offset in segment of block of sufficient size
;		P = nvmxdizc
;		    ..000..E  1	-> search unsuccessful
;		b = preserved
;	      seg = pointer to segment searched
;
;======================================================================

search_seg	proc

; Generate the base pointer 'seg' which	points to the segment to search
;  Remember that the seement entry is a	MM handle, not a pointer.

		lda	[seg_tab],y
		tax				;Low part for dereferencing
		iny
		iny
		lda	[seg_tab],y
		tay				;High part
		jsr	mm_deref
		stx	seg
		sty	seg+2			;Got the pointer to the segment

; Find a free area

		ldy	#$0000			;Start at the free list header 

; Grab this free area pointer

try_again
		lda	[seg],y
		sec				;Assume the worst
		tay				;Offset to available free block 
		beq	out			;No free block of sufficient size

; Look at the size field and determine if this free block is large enough

		lda	[seg],y
		cmp	size			;Is this one big enough?
		bge	end_quest		;Eureka

		iny
		iny
		bra	try_again

end_quest
		clc
out
		rts

		end_proc
		eject
;======================================================================
; grab_deref : Gets a new memory manager segment of a particular size
;		 Returns a dereferenced	pointer	to the segment.
;
; Created:	April 14, 1987
; Modified:	April 22, 1987
; Author:	Mike Askins
;
; Copyright Apple Computer Inc.	1987  All rights reserved
;
; Input:	A = Segment Size Requested
;		X = <reserved>
;		Y = <reserved>
;		P = nvmxdizc
;		    ..000...
;	  gsos_id = the	OS ID
;
; Output:	A = trashed
;		X = New	segment	(pointer low)
;		Y = New	segment	(pointer high)
;		P = nvmxdizc
;		    ..000..E
;		b = preserved
;
;======================================================================

grab_deref	proc
		entry	mm_deref
		
		jsr	grab_mm_seg		;Get the segment and return a handle
		bcs	nevermind

* Dereference the handle and get the buffer address

mm_deref					;Entry just to dereference a mm handle

		tya				;Move the high part into the acc
		phb				;Save current DBR
		pha				;Push bank and garbage
		plb				;DBR now set for handle

		ldy	|$0002,x		;Get high part
		lda	|$0000,x		;Get low part
		tax
		plb				;pull extra byte of garbage
		plb				;restore our DBR

nevermind
		rts

		end_proc
		eject
;======================================================================
; res_block : Create a reserved	block out of a free one
;
;
;Created:	April 8, 1987
;Modified:	April 27, 1987
;Author:	Mike Askins
;
;Copyright Apple Computer Inc. 1987  All rights	reserved
;
;Input:		A = <undefined>
;		X = <undefined>
;		Y = Free Area segment offset
;		P = nvmxdizc
;		    ..000...
;	     size = size of block to reserve
;	      seg = pointer to the segment      
;
;
;Output:	A = trashed
;		X = trashed
;		Y = Offset into	seg of new block
;		P = nvmxdizc
;		    ..000...
;		b = preserved
;	   m_temp = trashed
;	     size = altered in some cases
;
;======================================================================

res_block	proc

		lda	size			;This is request size + overhead
		clc
		adc	#min_blk_size-1		;Smallest usable block size
		cmp	[seg],y			; (-1 above cuz we don't have BLE !)
		blt	fission			;If A < free size, break block in two

; There	is not sufficient free space in	this block to warrant fission.
;   Therefore the requestor will get a segment slightly	longer than expected.

		lda	[seg],y			;Size of free block is now req size
		sta	size

; We must also pull the	free block out of the list. 

		jsr	unfree
		bra	reserve_it

fission

; Gotta	break the free area into two pieces.  Shrink the size of the free
;   block appropriately	and place the new allocated block beyond it.

		lda	[seg],y			;Get the size of the free area
		sec
		sbc	size			;This is the size of the new freeblock
		sta	[seg],y			;Update the size/tag field

		pha				;Save the size for trailing size word
		tya				;Trailsize is: Y + freesize - 2
		clc
		adc	1,s
		tay
		dey
		dey
		pla
		sta	[seg],y			;Set trailing size word
		iny
		iny				;Y is now set to new allocated block!

; Set Block to point to	the reserved block.

reserve_it
		phy
		tya
		clc
		adc	seg
		sta	m_temp
		lda	seg+2
		adc	#$0000
		sta	m_temp+2

; Finish up by storing the size/tag fields in the newly	allocated block!

		lda	size
		ora	#$8000			;Flip on the 'reserved' bit
		sta	[seg],y
		ldy	size
		dey
		dey
		sta	[m_temp],y		;A little funky but it's shorter code

		ply				;Get back the offset into seg
		rts

		end_proc
		eject
;======================================================================
; unfree : Unlinks a free block	from the free list
;
;Created:	April  9, 1987
;Modified:	April 21, 1987
;Author:	Mike Askins
;
;Copyright Apple Computer Inc. 1987  All rights	reserved
;
;Input:		A = <undefined>
;		X = <undefined>
;		Y = Block to unlink (offset within seg)
;		P = nvmxdizc
;		    ..000...
;	      seg = Pointer to segment
;
;Output:	A = trashed
;		X = trashed
;		Y = Preserved
;		P = nvmxdizc
;		    ..000...
;		b = preserved
;
;======================================================================

unfree		proc

; Find the successive free area

		phy
		iny
		iny				;Pointing at next_link
		lda	[seg],y			;Got link to next guy
		tax				;Keep around the offset to successor
		iny				;Advance to back_link
		iny
		lda	[seg],y			;Get offset to predecessor
		pha				;Keep that, too. 

; Alter	the predecessor's forward link

		tay				;Get pointer to next_link of
		iny				; predecessor
		iny
		txa
		sta	[seg],y			;Pred's next_link is now our successor

; Alter	the successor's back_link

		pla				;The predecessor
		txy				;Recover the successor's offset
		beq	no_pred			;There is no successor
		iny				;Move to successor's back_link field
		iny
		iny
		iny
		sta	[seg],y			;Succ's back_link is now our predecessor

no_pred
		ply				;Recover the offset to this block
		rts

		end_proc
		eject
;======================================================================
; alloc_zero : Allocate	and zero out a block of	memory returning a VP
;
;Created:	April 2, 1987
;Modified:	March 22, 1988
;Author:	Mike Askins
;
;Copyright Apple Computer Inc. 1987  All rights	reserved
;
;Input:		A = Requested Size
;		X = <undefined>
;		Y = <undefined>
;		P = nvmxdizc
;		    ..000..0 ->	Allocate and do	not zero
;			   1 ->	Allocate and zero
;	  seg_tab = Pointer to segment table
;
;Output:	A = trashed or error code if carry set
;		X = VP (low)
;		Y = VP (high)
;		P = nvmxdizc
;		    ..000..E ->	'Out of Memory'	'Bad request size'
;		b = preserved
;	   m_temp = trashed
;	      seg = segment containing allocated block
;	     size = size of segment allocated
;
;======================================================================

; Front	end to allocate	which zeros out	the block if the carry is set

alloc_zero	proc

		pha
		php				;Save C so we know whether to zero
		php				;...so that pulls on errorexit work OK
		jsl	allocate
		bcs	failure			;Couldn't get the memory space

		plp
		plp				;Get back info on whether we zero
		bcc	sneakout		;They didn't want us to zero the seg

		phx				;Preserve the VP to return later
		phy
		jsr	map_vp			;A has offset
		clc
		adc	#fwd_ovrhead-2
		sta	m_temp			;Keep total for later
		adc	5,s			;Add in the requested size
		tay
		lda	#$0000

; Zero the contents of the segment.  It	is possible for	us to zero up to two
;  bytes just before the contents, but that's okay since these bytes are in
;  the linkage area of the segment which is defined later (if at all).

more_zero
		sta	[seg],y
		dey
		dey
		cpy	m_temp
		bge	more_zero

		ply				;Pull back the VP
		plx

sneakout
		pla				;Straigten the stack up
		rtl				;Carry was clear

failure
		plx				;Pull off four bytes of stack refuse
		plx
		rtl				;Carry ensured set by the branch



		end_proc
		eject
;======================================================================
; deallocate  :	Frees a	block and merges resulting free	space
;		 Warning: In case of rapture, this code	will be	unsupported! 
;
; Created:	April  9, 1987
; Modified:	April 6, 1990 CAF (see revision history)
; Author:	Mike Askins
;
; Copyright Apple Computer Inc.	1987  All rights reserved
;
; Input:	A = undefined
;		X = Virtual Pointer (low)
;		Y = Virtual Pointer (high)
;		P = nvmxdizc
;		    ..000...
;
; Output:	A = trashed
;		X = trashed
;		Y = trashed
;		P = nvmxdizc
;		    ..000..E ->	'Tried to Deallocate a Segment and Failed'
;		b = preserved
;	      ptr = trashed
;	      seg = trashed
;	   m_temp = trashed
;
;======================================================================

deallocate	proc

; Disclaimer:  This implementation is not as efficient as it could be.
;  The original	block being freed is always linked into	the free list
;  even	in cases where it is (just a few lines later) subsequently unlinked
;  from	the free list.	The algorithm IS conceptually simple, but at the
;  price of inefficient	'worst case' behavior; this routine is a good
;  candidate for optimization.

		sty	m_temp			;Keep offset into segment for later

; Map the virtual pointer into a seg base pointer and offset

		jsr	map_vp
		tay				;Got the offset into the segment

; Make this block unallocated AND link it into the front of the	free list

		jsr	free
		bcs	cog_dis			;Caller's block IS ALREADY FREE! Blowup!

; Check	to see if the physical predecessor is a	free block

		phy
		dey
		dey
		lda	[seg],y
		bmi	merge_refrain1

; Want to merge	the previous block with	the current block.  Get	the
;   size of the	previous block,	subtract from original pointer,	and merge. 

		sec
		sbc	1,s			;This is the wrong order, so 2's comp
		eor	#$FFFF
		inc	a
		tay				;First Area -
		plx				;Balance out the stack (2nd area)
		jsr	merge_free
		bra	skip

; Y now	points to a free block.	 If the	block which follows is also free we
;   want to unlink that	block from the free list and merge it with the
;   current free block.

merge_refrain1
		ply				;Reclaim index to target block
skip
		phy
		lda	[seg],y			;Get size of this block
;;;		and	#$7FFF
*** optmized 17-Jul-92 DAL
		asl a
		lsr a
*** end 17-Jul-92
		clc
		adc	1,s			;Got address of physical successor
		tay
		lda	[seg],y			;See if	following block is free
		bmi	merge_refrain2		;If allocated, nothing to do...

		tyx				;Second free area for merge_free
		ply				;Got first free area
		jsr	merge_free		;We did it!
		bra	free_seg_chk

merge_refrain2
		pla				;Straighten out the stack

free_seg_chk

; Check	to see if the liberation which we just performed resulted in an	empty
;  segment.  If	so, release it and the element pointing	to it in the seg tab.
;  Note	that segments larger than our managed segment size only	contain	one
;  block; free space in	the segment is interpreted as meaning that the
;  whole segment is unallocated.

		ldy	#init_block		;See if the first phys area length
		lda	[seg],y			; is allocated
		bmi	still_active		;Don't throw MM seg away if so
		cmp	#max_blk_size		;If length < maxblocksize
		blt	still_active		; ...skip

		ldy	m_temp			;Get back the segment table offset
		lda	[seg_tab],y		;Pick up the handle
		tax
		phy				;Need ptr to element later
		iny
		iny
		lda	[seg_tab],y
		tay

		jsr	free_mm_seg		;Pass handle in X,Y
		ply				;Get back pointer to element
		bcs	no_free
*
* If we just freed the highest element in the list, we want to update seg_tab_last
* so lockmem and unlockmem are as efficient as possible.  We keep seg_tab_last with
* 4 added to it so we must account for that...
*
		tya				;Add 4 to offset (carry already clr).
		adc	#4
		cmp	>seg_tab_last		;Did we remove the last one?
		bne	continue		;Nope.
		tya
		sta	>seg_tab_last		;Yes, so dec seg_tab_last by 4.
*
continue	lda	seg_tab			;Mod 8/12... used to be >seg_tab_hand
		sta	ptr
		lda	seg_tab+2
		sta	ptr+2
		jsr	kill_element

still_active

		clc
no_free
		rtl

cog_dis
		lda	#sd_scm_dealloc
		jmp	s_sys_death

		end_proc
		eject
;======================================================================
; map_vp : Return the physical address,	segment	address, and offset
;	     into the segment for the block pointed to by a VP 
;
; Created:	April  9, 1987 (no, really)
; Modified:	May  7,	1987
; Author:	Mike and Jim
;
; Copyright Apple Computer Inc.	1987  All rights reserved
;
; Input:	A = <undefined>
;		X = Virtual Pointer (low)
;		Y = Virtual Pointer (high)
;		P = nvmxdizc
;		    ..000...
;
; Output:	A = Offset into	segment
;		X = Physical address (low)
;		Y = Physical address (high)
;		P = nvmxdizc
;		    ..000...
;		b = preserved
;	      seg = Segment address
;	      ptr = trashed
;
;======================================================================

map_vp		proc

; The low part of the VP has the offset	into the segment 

		phx				;Keep around for a while

		jsl	gderef

; Now get the segment address

		lda	[ptr]
		sta	seg
		ldy	#$0002
		lda	[ptr],y
		sta	seg+2
		pla

		rts

		end_proc
		eject
;======================================================================
; free : Frees a block and links it into the front of the free list
;
;Created:	April  9, 1987
;Modified:	May 4, 1987 !
;Author:	Mike Askins
;
;Copyright Apple Computer Inc. 1987  All rights	reserved
;
;Input:		A = <undefined>
;		X = <undefined>
;		Y = Block to free (offset within seg)
;		P = nvmxdizc
;		    ..000...
;	      seg = Pointer to segment
;
;Output:	A = trashed
;		X = trashed
;		Y = Preserved
;		P = nvmxdizc
;		    ..000..E ->	'Attempt to free an unallocated block'
;		b = preserved
;
;======================================================================

free		proc

; If this block	appears	to be free already, branch out with an error

		sec
		lda	[seg],y			;Get the tag/size
		bpl	free_error		;OOPS... ALREADY FREE! Skip out

; Change the leading tag

		phy				;Save off the pointer to the block
;;;		and	#$7FFF			;Force off the tag (freeing block)
*** optimized 17-Jul-92 DAL
		asl a
		lsr a
*** end 17-Jul-92
		sta	[seg],y

; Change the trailing tag

		pha				;Keep the size
		clc
		adc	3,s			;Move pointer to phys successor
		tay
		dey
		dey				;Pointing at tag/size of target block
		pla				;Got back altered size
		plx				;Pull block pointer off; keep in X
		sta	[seg],y			;Store in trailing size word

; Preserve the current free header link	and change it to point to us

*** optimized 15-Dec-92 DAL (saves 3 bytes)
;;;		ldy	#$0000			;Access the free header
;;;		lda	[seg],y			;Point at the target block
;;;		pha				;This is our new free list successor
;;;		txa				;Get back index to target block
;;;		sta	[seg],y			;Make this the first item in free list

;;;		ldy	#$0000			;Access the free header
		lda	[seg]			;Point at the target block
		pha				;This is our new free list successor
		txa				;Get back index to target block
		sta	[seg]			;Make this the first item in free list
*** end 15-Dec-92

; Alter	our forward and	backward link

		txy
		iny
		iny				;Pointing at target's forward link
		pla				;Make old first free our successor
		pha				;Save our successor's index
		sta	[seg],y
		iny
		iny				;Move to the back link
		lda	#head_valu		;Use the head link kludge value
		sta	[seg],y			;Set our backward link

; Pull our successor and alter his backward link to point to us.  Note
;  that	if the free list was null on entry to this routine there was no	succ.

		ply
		beq	i_hate_it		;... there WAS no successor!
		iny
		iny
		iny
		iny
		txa
		sta	[seg],y			;Did it!

i_hate_it
		txy				;Restore Y
		clc
free_error
		rts

		end_proc
		eject
;======================================================================
; merge_free : Merges a	free block with	free space immediately below it
;
; Created:	 April	9, 1987
; Modified:	 April 29, 1987
; Author:	 Mike Askins
;
; Copyright Apple Computer Inc.	1987  All rights reserved
;
; Input:	 A = <undefined>
;		 X = Free area2	(offset)
;		 Y = Free area1	(offset)  (Y < X)
;		 P = nvmxdizc
;		     ..000...
;	       seg = Pointer to	segment	containing areas 
;
; Output:	 A = trashed
;		 X = trashed
;		 Y = preserved
;		 P = nvmxdizc
;		     ..000...
;		 b = preserved
;
;======================================================================

merge_free	proc

; Dig out the size of the first	area

		phy
		lda	[seg],y			;Got size of first area
		txy

; Pull the 2nd free area out of	the free list

		pha
		jsr	unfree			;Unlink	this block from free list
		pla

; Combine the sizes of the two areas to	be combined

		clc
		adc	[seg],y			;Have combined the sizes
;;;		and	#$7FFF			;Nullify any effect of tags
*** optimized 17-Jul-92 DAL
		asl a
		lsr a
*** end 17-Jul-92

; Now store the	new size in the	leading	size field

		ply
		phy
		sta	[seg],y
		tax				;Momemtito...

; And finally store the	new size in the	trailing field

		clc
		adc	1,s
		dec	a
		dec	a
		tay				;Got pointer to trailing size field
		txa				;Got the new size back
		sta	[seg],y

		ply
		rts

		end_proc
		eject
;======================================================================
; gderef : Returns a physical 24 bit address corresponding to a
;	       32 bit virtual pointer.
;
; (Note: gderef	yields a pointer to the	beginning of the block overhead,
;	 whereas deref2	gives a	pointer	to the start of	the content area.)
;
;	       Timing: 24 microseconds typical
;
; Created:	 APR  1, 1987 (no, really)
; Modified:	 May  7, 1987
; Author:	 Mike Askins
;
; Copyright Apple Computer Inc.	1987  All rights reserved
;
; Input:	 A = <undefined>
;		 X = Virtual Pointer (low)
;		 Y = Virtual Pointer (high)
;		 P = nvmxdizc
;		     ..000...
;	   seg_tab = Pointer to	segment	table 
;
; Output:	 A = <undefined>
;		 X = Physical Address (low)
;		 Y = Physical Address (high)
;		 P = nvmxdizc
;		     ..000...
;		 b = preserved
;	       ptr = handle of segment referenced
;
;======================================================================

gderef		proc

		lda	[seg_tab],y		;Pull the handle
		sta	ptr			;Keep for dereferencing
		iny
		iny
		lda	[seg_tab],y
		sta	ptr+2			;... and the low part

; Deref	and add	the segment pointer to the offset

		txa				;A now has the low part of VP
		clc
		adc	[ptr]			;Add offset into the base

		tax				;Got the low part of phys addr
		ldy	#$0002			;Set up to access high part
		lda	[ptr],y			;Get high part of phys addr
		bcc	skip
		inc	a

skip
		tay
		rtl

		end_proc

deref2		proc

		lda	[seg_tab],y		;Pull the handle
		sta	ptr			;Keep for dereferencing
		iny
		iny
		lda	[seg_tab],y
		sta	ptr+2			;... and the low part

; Deref	and add	the segment pointer to the offset

		txa				;A now has the low part of VP
		clc
		adc	#fwd_ovrhead		;Cannot be a carry (32K+12)
		adc	[ptr]			;Add offset into the base

		tax				;Got the low part of phys addr
		ldy	#$0002			;Set up to access high part
		lda	[ptr],y			;Get high part of phys addr
		bcc	skip
		inc	a

skip
		tay
		rtl

		end_proc
		eject
;======================================================================
; unlock_mem, lock_mem : Locks or unlocks all managed segments
;
;   Lock_mem always locks the segments.	 It counts the number of times
;  that	a call is made so that Unlock_mem will only unlock the segments
;  when	an equal number	of locks and unlocks are done.	This allows
;  nested lock/unlocks to work.
;
; Created:	July 15, 1987
; Modified:	April 6, 1990 CAF (see revision history)
; Author:	Mike Askins
;
; Copyright Apple Computer Inc.	1987  All rights reserved
;
; Input:	A = <undefined>
;		X = <undefined>
;		Y = <undefined>
;		P = nvmxdizc
;		    ..000...
;
; Output:	A = trashed
;		X = trashed
;		Y = trashed
;		P = nvmxdizc
;		    ..000..0 ->	No error returnable
;		b = preserved
;
;======================================================================

unlockmem	proc
		entry	ul_mem
		entry	ul_mem2
		entry	lockmem
		entry	lock_flag
		entry	seg_tab_last
*
* If lock_flag is 0 or 1, unlock memory.  Otherwise just decrement counter
* and exit...
*
		clc				;Select unlock.
		lda	>lock_flag		;Unlock w/o Lock -> don't dec flag
		beq	ul_mem
		dec	a
		sta	>lock_flag
		bne	exit			;Don't unlock if lock/unlocks unmatched
		bra	ul_mem2			;Lock/Unlocks match -> do the unlock
*
* Increment flag and lock memory...
*
lockmem		sec				;Select lock.
		lda	>lock_flag
		inc	a
;;;		beq	ul_mem			;Restrain flag at $FFFF (never happens anyway, 15-Dec-92 DAL, save 2 bytes)

ul_mem2		sta	>lock_flag		;Save flag.
*
* First save the direct page variable we will use...
*
ul_mem		pei	<hand+2			;Must preserve this zp across call
		pei	<hand
*
* Now set our lock/unlock mask (self-modified!) based on the carry flag and
* set the loop limit (self-modified!) to seg_tab_last...
*
		lda	#0000			;Clear all bits.
		ror	a			;Rotate the carry into msb.
		sta	>self_mod_flag+1	;Do the self-mod.
		
		lda	>seg_tab_last		;Get loop limit.
		sta	>self_mod_last+1	;Do the self_mod.

		ldy	#4			;Initialize offset.
*
* Copy the handle into our direct page variable;  if the high bit is set,
* we'll skip it...
*
loop		lda	[seg_tab],y
		sta	hand
		iny
		iny
		lda	[seg_tab],y		;Get high word. Active?
		bmi	next			;Nope, so skip it.
		sta	hand+2			;Yes, save high part of handle.
*
* Now lock or unlock the handle...
*
		tyx				;Save our offset.

		ldy	#$0004			;Clear the lock bit.
		lda	[hand],y
*** opt 15-Dec-92 DAL (saved 1 byte)
;;;		and	#$7FFF
		asl	a
		lsr	a
*** end 15-Dec-92
self_mod_flag	ora	#$8000			;(SELF-MODIFIED!!)
save_it		sta	[hand],y		;Save it.

		txy				;Recover the offset.
*
* Bump offset to the next handle and loop if haven't done all...
*
next		iny
		iny
self_mod_last	cpy	#0008			;(SELF-MODIFIED!!)
		bne	loop			;Loop if not done.
*
* Ok, we've done all handles, now restore our direct page location and exit...
*
		pla				;Restore hand zp location.
		sta	<hand
		pla
		sta	<hand+2
exit		clc				;We just can't get an error.
		rtl

		entry	lock_flag
lock_flag	dc.w	0			;Lock/Unlock counter.
seg_tab_last	dc.w	0			;Last used position in seg_tab.

		end_proc
		eject
****************************************************************************
*									   *
*		  **********   D Y N A L I S T	 ***********		   *
*									   *
*		       Dynamic List Management Routines			   *
*									   *
*    All growable lists	handled	by the Global information manager are	   *
*  maintained as dynamic lists.	 A dynamic list	has the	following format:  *
*									   *
*  list	base ->	-----------------------------------------------		   *
*		|	   total list length (bytes)	      |	 (word)	   *
*		-----------------------------------------------		   *
* free header->	|    first free	element	(offset	from base)    |	 (word)	   *
*		-----------------------------------------------		   *
*		|	    1st	list element (low)	      |	 (long)	   *
*		-					      -		   *
*		|	    1st	list element (high)	      |		   *
*		-----------------------------------------------		   *
*		|	    2nd	list element (low)	      |	 (long)	   *
*		-					      -		   *
*		|	    2nd	list element (high)	      |		   *
*		-----------------------------------------------		   *
*		|	 (additional list elements) ...	      |		   *
*									   *
*  When	all existing elements are in use, the free header will be zero.	 A *
*  free	element	has the	msb set; if the	msb is clear then the element is   *
*  in use.  A free element has in the low word the offset of the next free *
*  element in the list;	all free elements are linked into a list, the head *
*  of which is pointed to by the free header.				   *
*									   *
*    The segment table is an example of	a dynalist and the elements	   *
*  of the list in this case are	memory manager handles (3 byte).  The ID   *
*  tables are another example; elements	in these lists are VPs.		   *
*									   *
****************************************************************************
		eject
;=====================================================================
; reserve_id : Pull the	next available ID from the ID list
;
; Created:	May 20,	1987
; Modified:	November 25, 1987
; Author:	Mike Askins
;
; Copyright Apple Computer Inc.	1987  All rights reserved
;
; Input:	A = <undefined>
;		X = ID table handle (low)
;		Y = ID table handle (high)
;		P = nvmxdizc
;		    ..000...
;	       vp = value to place into	the list
;
; Output:	A = ID (range $20 - $FFFF)
;		X = trashed
;		Y = Element Offset
;		P = nvmxdizc
;		    ..000..E ->	'ID could not be allocated'
;		b = preserved
;	   m_temp = trashed
;	      ptr = trashed
;
;======================================================================

reserve_id	proc

		jsr	set_tab_ptr		;Set up hand and ptr for this list
		ldx	vp			;Pick up the value to install
		ldy	vp+2
		jsr	add_element		;Do the add
		bcs	no_mem
		tya				;Divide the index by 4
		lsr	a
		lsr	a			; ...and you have the ID value
;;;		clc				;the DynaList picture says the indexes are multiples of 4, so nuke this (15-Dec-92 DAL)
no_mem
		rts

		end_proc
		eject
;======================================================================
; free_id : Free an allocated ID in a given ID list
;
; Created:	May 20,	1987
; Modified:	May 21,	1987
; Author:	Mike Askins
;
; Copyright Apple Computer Inc.	1987  All rights reserved
;
; Input:	A = ID to remove
;		X = ID table handle (low)
;		Y = ID table handle (high)
;		P = nvmxdizc
;		    ..000...
;
; Output:	A = trashed
;		X = Value of item removed (low)
;		Y = Value of item removed (high)
;		P = nvmxdizc
;		    ..000..E ->	'ID was not released'
;		b = preserved
;	   m_temp = trashed
;	      seg = trashed
;
;======================================================================

free_id		proc

		pha
		jsr	set_tab_ptr
		pla
		asl	a
		asl	a
		tay
;;;		jsr	kill_element
;;;		rts
*** optimized 17-Jul-92 DAL
		bra	kill_element	;optimized from jmp to bra, 15-Dec-92 DAL
*** end 17-Jul-92

		end_proc
		eject
;======================================================================
; add_element :	Add an element to a dynalist; may grow the list
;
; Created:	June  9, 1987
; Modified:	April 5, 1988
; Author:	Mike Askins
;
; Copyright Apple Computer Inc.	1987  All rights reserved
;
; Input:	A = <undefined>
;		X = new	element	contents (low)
;		Y = new	element	contents (high)
;		P = nvmxdizc
;		    ..000...
;	      ptr = pointer to list
;	     hand = handle for list
;
; Output:	A = trashed or error code
;		X = trashed
;		Y = Offset into	list of	new element
;		P = nvmxdizc
;		    ..000..E ->	'Could not allocate element'
;		b = preserved
;	      ptr = maybe changed if list was grown
;
;======================================================================

add_element	proc

		clc
		phy				;Push contents high
		phx				;Push contents low

again
		ldy	#$0002			;Check if there's already room
		lda	[ptr],y			;Get location of first free 'slot'
		bne	gotroom

; Check	to see if the list is 64K.  If so, we're out of ref's.

		lda	[ptr]
		cmp	#$0-list_grow_inc
		bge	nomem_error

		lda	#list_grow_inc
		jsr	grow_list		;Grow the list to make room
		bcs	nomem_error
		bra	again

gotroom
		plx				;Get new elt contents (low)
		tay
		lda	[ptr],y			;Get the old free list link
		pha
		txa				;A = new elt contents (low)
		plx				;X = Old free list link 
		sta	[ptr],y
		pla				;A = Get back new elt contents (high)
		phy				;Save offset to return later
		iny
		iny
		sta	[ptr],y			;Update the high part of the element

		ldy	#$0002
		txa
		sta	[ptr],y			;Update the free list header

		ply				;Return offset into list 
		rts				;Carry WAS still clear...

nomem_error
		lda	#out_of_mem		;No more space
		ply
		ply				;Fix the stack
		rts

		end_proc
		eject
;======================================================================
; kill_element : Deallocate an element in the list
;
; Created:	April  9, 1987
; Modified:	April  9, 1987
; Author:	Mike Askins
;
; Copyright Apple Computer Inc.	1987  All rights reserved
;
; Input:	A = <undefined>
;		X = <undefined>
;		Y = Offset of element to kill
;		P = nvmxdizc
;		    ..000...
;	      ptr = pointer to list
;
; Output:	A = trashed
;		X = Value of item removed (low)
;		Y = Value of item removed (high)
;		P = nvmxdizc
;		    ..000..E ->	'Element doesn't exist'
;		b = preserved
;
;======================================================================


kill_element	proc

		sec
		tyx				;Check for zero offset (illegal)
		beq	error

		iny				;Move to high order part of elt
		iny

		lda	[ptr],y
		bmi	error			;Tried to kill non-exist element

		pha				;Save to return to caller
		lda	#list_alc_flag		;Mark new guy as taken
		sta	[ptr],y

		ldy	#list_freehead		;Locate	at free list header
		lda	[ptr],y			;Who's first in the free list
		pha				;Save him
		txa				;Get back offset of guy to kill
		sta	[ptr],y			;First free guy is now newly freed one
		txy				;Now point new guy to old free head
		lda	[ptr],y			;Get what was already there
		tax
		pla
		sta	[ptr],y

		ply
		clc

error
		rts

		end_proc
		eject
;======================================================================
; grow_list : Grow a list by a specified number	of bytes
;
; Created:	April  9, 1987
; Modified:	June  9, 1987
; Author:	Mike Askins
;
; Copyright Apple Computer Inc.	1987  All rights reserved
;
; Input:	A = Number of bytes to grow by
;		X = <undefined>
;		Y = <undefined>
;		P = nvmxdizc
;		    ..000...
;	      ptr = pointer to list
;	     hand = handle of list
;
; Output:	A = trashed
;		X = trashed
;		Y = trashed
;		P = nvmxdizc
;		    ..000..E ->	'List could not be grown'
;		b = preserved
;	      ptr = changed if grow caused a move of the list
;
;======================================================================

grow_list	proc

; The list handle should be re-dereferenced after running grow since
;  the location	of the list may	have changed.

		pha				;Save the requested grow

		pea	$0000			;Push the high word of New size
		clc
		adc	[ptr]			;Got the new handle size
		pha				;Low part of size request
*** optimized 15-Dec-92 DAL -- saved 2 bytes
;;;		ldy	hand+2
;;;		phy				;Push the handle back
;;;		ldx	hand
;;;		phx
		pei	<hand+2
		pei	<hand
*** end 15-Dec-92

		_SetHandleSize

; It is	possible that the list was moved by the	MM.  Therefore it is important
;  to dereference the handle again in case this	is in fact what	happened.

		php
		ldx	hand
		ldy	hand+2
		jsr	stp2			;Re-dereference the handle
		plp

		plx				;Get back the requested grow
		bcs	mem_err			;Branch if the grow failed

; Now the segment is the new size.  Need to link the new entries into the
;   free list.	Start by setting up an index that points to the	first of
;   elements that we're adding. 

		lda	[ptr]
		tay
		phx				;... and save for later
		pha				;Keep first element we added
		bra	loop2			;In case delta was 1 

; Now loop to initialize each entry except for the last

loop
		sta	[ptr],y
		iny
		iny

		pha
		lda	#list_alc_flag		;(probly $8000)
		sta	[ptr],y			;Mark segment as unallocated
		pla
		iny
		iny

loop2
		clc
		adc	#$0004			;Each element is four bytes
		dex
		dex
		dex
		dex
		bne	loop

; Y is now positioned at the last new element

		tyx
		ldy	#$0002
		lda	[ptr],y			;Got the old free list header
		pha
		lda	3,s			;Pull back the first new elt
		sta	[ptr],y
		txy
		pla				;Get back old free list header
		sta	[ptr],y			;Store that in the last new element

		iny
		iny
		lda	#list_alc_flag		;Mark the last guy as available
		sta	[ptr],y

; Finally sum the old #	elements with the new added and	update the #elts field

		pla				;Pull off garbage
		pla				;Pull off requested grow
		clc
		adc	[ptr]			;Add the original value
		sta	[ptr]
		clc				;Probably unnecessary...

mem_err
		rts

		end_proc
		eject
;======================================================================
; init_list : Generate a new list
;
; Created:	June  9, 1987
; Modified:	June  9, 1987
; Author:	Mike Askins
;
; Copyright Apple Computer Inc.	1987  All rights reserved
;
; Input:	A = <undefined>
;		X = <undefined>
;		Y = <undefined>
;		P = nvmxdizc
;		    ..000..0 = normal list
;                          1 = fixed, larger list (for seg_tab_hand)
;
; Output:	A = trashed
;		X = handle of new list
;		Y = handle of new list
;		P = nvmxdizc
;		    ..000..E ->	'could not get memory for the list'
;		b = preserved
;	      ptr = pointer to new list
;	     hand = handle of new list
;
;======================================================================

init_list	proc

		entry	init_spcl_list
		entry	vcr_id_hand
		entry	fcr_id_hand
		entry	icr_id_hand
		entry	seg_tab_hand

		clc				;Select normal entry.

init_spcl_list	php				;Save carry state.	 

		lda	#list_stump		
		jsr	grab_mm_seg
		bcs	oops
		
		jsr	set_tab_ptr

		lda	#list_stump
		sta	[ptr]			;Store the length of the 'virgin' list
		ldy	#list_freehead		;Position at the free list header
		lda	#$0000
		sta	[ptr],y			;... and null it out

		lda	#list_min_size*4	;Grow the stump to a usable size
		plp				;Do we want a larger one?
		bcc	grow_it			;Nope.
		lda	#list_min_size*4*16	;Yes, so make it larger
grow_it		jsr	grow_list		;Sets carry per any error
		ldx	hand			;Return the handle of the new list
		ldy	hand+2
		rts

oops		plp				;Balance stack.
		sec				;Indicate error.
		rts

seg_tab_hand	DS.B	4
vcr_id_hand	DS.B	4
fcr_id_hand	DS.B	4
icr_id_hand	DS.B	4

		end_proc


set_tab_ptr	proc
		entry	stp2
		
		stx	hand
		sty	hand+2

stp2
		jsr	mm_deref		;Dereference the handle
		stx	ptr
		sty	ptr+2
		rts

		end_proc
		eject
;======================================================================
; grab_mm_seg :	Gets a new memory manager segment of a particular size
;		 Returns a handle to the segment.
;
; Created:	April 14, 1987
; Modified:	April 19, 1989
; Author:	Mike Askins
;
; Copyright Apple Computer Inc.	1987  All rights reserved
;
; Input:	A = Segment Size Requested
;		X = <reserved>
;		Y = <reserved>
;		P = nvmxdizc
;		    ..000...
;	  gsos_id = Our	MM ID word
;
; Output:	A = trashed
;		X = New	segment	(handle	low)
;		Y = New	segment	(handle	high)
;		P = nvmxdizc
;		    ..000..E
;		b = preserved
;
;======================================================================

grab_fixed_seg	proc
		entry	grab_mm_seg

		sec				;Select fixed attributes.
;;;		bra	get_memory		;Go do it.
		dc.b	$90			;opcode for BCC, never taken (save 1 byte, 15-Dec-92 DAL)
		
grab_mm_seg	clc				;Select normal attributes.
	
get_memory	ldx	#0
		phx				;Push space for long result
		phx

		phx				;Hi part of size request
		pha				;Push size request low

		lda	>gsos_id		;Get our ID and shove it
		pha

;Have segments page aligned for	testing	purposes

normal_att	ldy	#mm_normal_attr		;Attributes: no spcl mem.
		bcc	continue		;We're doing a normal allocate.
		ldy	#mm_fixed_attr		;Attributes: fixed, no spcl mem.
continue
		lda	>lock_flag		;is the rest of memory already locked?
		beq	@not_locked		;no, so just allocate the new block as unlocked
		tya				;else set the locked bit
		ora	#$8000
		tay
@not_locked
		phy				;put the attributes on the stack
		phx				;Location info
		phx				; top part

		_NewHandle			;Call memory manager to get memory
		plx				;Pull low part
		ply				;Pull hi part

		rts

		end_proc
		eject
;======================================================================
; free_mm_seg :	Free a memory manager segment
;
; Created:	May  7,	1987
; Modified:	May  7,	1987
; Author:	Mike Askins
;
; Copyright Apple Computer Inc.	1987  All rights reserved
;
; Input:	A = undefined
;		X = Handle (low)
;		Y = Handle (high)
;		P = nvmxdizc
;		    ..000...
;
; Output:	A = trashed
;		X = trashed
;		Y = trashed
;		P = nvmxdizc
;		    ..000..E  1	-> 'Could Not Dispose of the Segment'
;		b = preserved
;
;======================================================================

free_mm_seg	proc

		phy
		phx

		_DisposeHandle

		rts

		end_proc
		eject
;======================================================================
; unlock_hand, lock_hand, ul_hand : Lock or unlock handles
;
; Created:	July 15, 1987
; Modified:	June 28, 1988
; Author:	Mike Askins
;
; Copyright Apple Computer Inc.	1987  All rights reserved
;
; Input:	A = <undefined>
;		X = handle (low)
;		Y = handle (high)
;		P = nvmxdizc
;		    ..000..0 ->	Unlock handle (ul_hand only!)
;			   1 ->	Lock handle (ul_hand only!)
;
; Output:	A = trashed
;		X = preserved
;		Y = preserved
;		P = nvmxdizc
;		    ..000...
;		b = preserved
;	    Carry = preserved for ul_hand only
;
;======================================================================

unlock_hand	proc
		entry	ul_hand
		entry	lock_hand
		
		clc
;;;		bra	ul_hand
		dc.b	$b0		;opcode for BCS, never taken (save 1 byte, 15-Dec-92 DAL)

lock_hand
		sec

ul_hand

;;;		lda	<hand+2			;Must preserve this zp across call
;;;		pha
;;;		lda	<hand
;;;		pha
*** optimized 17-Jul-92 DAL
		pei <hand+2			;Must preserve this zp across call
		pei <hand
*** end 17-Jul-92

; Depending on the carry, set or clear the msb of the handle's attribute word.

		stx	hand
		sty	hand+2

		phy
		ldy	#$0004
		lda	[hand],y
		and	#$7FFF			;Assume it's an unlock request
		bcc	skip
		eor	#$8000			;Thank you, Mr. Murphy
skip
		sta	[hand],y

		ply				;Restore Y

		pla				;Restore hand zp location
		sta	<hand
		pla
		sta	<hand+2
		rts

		end_proc
		eject
;==========================================================================
; integrity.diag : Check the structure of managed memory and crash to the
;		    monitor if an inconsistency	is found.
;
; Created:	August 17, 1987
; Modified:	November 12, 1987
; Author:	Mike Askins
;
; Copyright Apple Computer Inc.	1987  All rights reserved
;
; Input:	A = <undefined>
;		X = <undefined>
;		Y = <undefined>
;
; Output:	A = preserved
;		X = preserved
;		Y = preserved
;		P = nvmxdizc
;		    ..000..E ->	'Out of Memory'
;		b = preserved
;	   m_temp = trashed
;
;=======================================================================
;
; This routine checks all managed memory segments.  If it finds	a problem
;  it gracefully crashes into the monitor with the registers set as follows:
;		A <- Offending segment's offset in the segment table
;		X <- Exception Code
;		Y <- Position in segment
;  Exception Codes:
;		$0001	Subsegment has leading size out	of range
;		$0002	Subsegment has inconsistent trailing size
;		$0003	# of free blocks in segment inconsistent w/ free list
;		$0004	Used block found in free list
;		$0005	Forward	link out of range
;		$0006	Backward link is inconsistent
;		$0007	Trailing dummy tab is missing
;		$0008	Leading	dummy tag is missing
;
;integrity_diag	proc
;
; Hey Mike, we killed this routine for the demo
;
;		rtl
;
;seg_integ
;
;		rtl
;
; The code that	was here can be	found as real.seg.integ
; The memory check debug call can't work without seg.integ
;
;act_seg
;		DC.W	0			;# of segments counter
;free_blks
;		DC.W	0			;# of free blocks counter
;tot_blks
;		DC.W	0			;# blocks (free+used) counter
;
;		end_proc
;		eject
*******************************************************************************
*
* End scm_main segment: $00D000-00FFFF
*
*******************************************************************************

		freespace	SCM segment 2,seg_2_start,seg_2_max,&segment_pc

		eject
*******************************************************************************
*
* Begin system_svc segment: $01FC00-01FCFF
*
		SEG	'system_svc'		;Becomes scm_seg_3
		resetpc				;Reset counter.
*
*******************************************************************************
		eject
;===============================================================================
; System Service Dispatch Table
;
; This is the dispatch table for services provided by the GS/OS	System Call
; Manager.  Each 4-byte	entry is a long	jump instruction to a specific system
; service routine.
;
; This table is	the primary link between FSTs and system services.  The
; location of the table	and the	order of entries must not change from one
; version of GS/OS to the next.
;
; Location:	$01FC00
;===============================================================================

sys_svc_table	proc
		Import	do_insert_scan
		entry	dev_manager
		entry	lock_vector
		entry	unlock_vector

		jmp	>s_sys_death		;$01FC00 (init by new dev disp)
		jmp	>cash_find		;$01FC04
		jmp	>cash_add		;$01FC08
		jmp	>cash_init		;$01FC0C
		jmp	>cash_shutdown		;$01FC10
		jmp	>cash_delete		;$01FC14
		jmp	>cash_del_vol		;$01FC18
		jmp	>alloc_zero		;$01FC1C
		jmp	>deallocate		;$01FC20
		jmp	>allocvcr		;$01FC24
		jmp	>releasevcr		;$01FC28
		jmp	>allocfcr		;$01FC2C
		jmp	>releasefcr		;$01FC30
		jmp	>swapout		;$01FC34
		jmp	>deref2			;$01FC38
		jmp	>s_get_sys_gbuf		;$01FC3C
		jmp	>return_from_fst	;$01FC40
		jmp	>s_sys_death		;$01FC44
		jmp	>findvcrcase		;$01FC48
		jmp	>findfcr		;$01FC4C
		jmp	>s_sys_death		;$01FC50 (init by new dev disp)
		jmp	>cash_flsh_def		;$01FC54
		jmp	>renamevcr		;$01FC58
		jmp	>renamefcr		;$01FC5C
		jmp	>getvcr			;$01FC60
		jmp	>getfcr			;$01FC64
lock_vector	jmp	>lockmem		;$01FC68
unlock_vector	jmp	>unlockmem		;$01FC6C
		jmp	>gs_move_info		;$01FC70
		jmp	>cvt0to1		;$01FC74
		jmp	>cvt1to0		;$01FC78
		jmp	>replace80		;$01FC7C
		jmp	>to_bank0_core		;$01FC80
		jmp	>g_dispatch		;$01FC84
		jmp	>s_signal		;$01FC88
		jmp	>get_b0_buff		;$01FC8C
		jmp	>s_sys_death		;$01FC90 (init by new dev disp)
		jmp	>s_report_error		;$01FC94
		jmp	>s_mount_msg		;$01FC98
		jmp	>s_full_error		;$01FC9C
		jmp	>s_report_fatal		;$01FCA0
		jmp	>supervisory		;$01FCA4
		jmp	>post_driver		;$01FCA8
		jmp	>s_get_boot_pfx		;$01FCAC
		jmp	>s_set_boot_pfx		;$01FCB0
		jmp	>low_allocate		;$01FCB4
		jmp	>get_stacked_id		;$01FCB8
		jmp	>s_sys_death		;$01FCBC (init by new dev disp)
		jmp	>parse_path		;$01FCC0
		jmp	>os_event		;$01FCC4
		jmp	>insert_driver		;$01FCC8
dev_manager	jmp	>s_sys_death		;$01FCCC (init by new dev disp)
		jmp	>dev_dispatch		;$01FCD0
		jmp	>init_parsepath		;$01FCD4
		jml	>unbind_int_vec		;$01FCD8	 
		jml	>do_insert_scan		;$01FCDC
		jml	>s_toolbox_msg		;$01FCE0

@end_table
		DS.B	$fc-(@end_table-sys_svc_table)	;fill out rest of page
		rtl				;$01FCFC for FINDER disk swap only
		ds.b	3
		
		end_proc
*******************************************************************************
*
* End system_svc segment: $01FA00-01FCFF
*
*******************************************************************************

		freespace	SCM segment 3,seg_3_start,seg_3_max,&segment_pc

		eject
*******************************************************************************
*
* Begin scm_seg_e1 segment: $E1D980-E1DFFF
*
* NOTE: All code in this segment requires that the main language card area
* 	is switched in and that either long addressing be used or save, set and
*	restore the data bank register.
*
		SEG	'bank_e1'		;Becomes scm_seg_4
		resetpc				;Reset counter.
*
*******************************************************************************

		eject
;===============================================================================
; e1_get_ref_num
;		The REAL get_ref_num call
;
; Created	08/31/91
; Author	GAB
;
; WARNING:  Assumes DBR is set to bank 0 on entry
;
;===============================================================================

e1_get_ref_num	Proc
		DataChk	Off

msb_mask	equ	s_temp1			;Temp equate.
character	equ	s_temp2			;Temp equate.
fcr_ptr_temp	equ	s_temp3			;Temp equate.

ref_offset	equ	$0006			;Offset to ref_num parm.
access_offset	equ	$0008			;Offset to access_parm
fork_offset	equ	$000a			;Offset to form_num parm.
case_offset	equ	$000c			;Offset to case_sense parm.
disp_offset	equ	$000e			;Offset to displacement parm.

; continuation of call (not enough room in bank 0)

*
* No error on translation.  Does the supplied pathname refer to ONLY one of the
* standard prefix numbers?  If so, simply return information about that I/O stream.
*
		lda	std_prefix_num		;is it one of the standard prefixes?
		beq	@not_std_pfx		;no...
		sec				;yes, turn it into an index
		sbc	#10
		asl	a
		tax
		lda	std_ref_num,x		;get the std_ref_num
		beq	@to_not_found		;if 0, it's not open
		jsl	findfcr			;get a VP to the FCR
		bcc	@got_it
@to_not_found
		jmp	not_found
@got_it
		jsl	deref2			;make a real pointer
		stx	<fcr_ptr_temp
		sty	<fcr_ptr_temp+2
		jmp	get_output		;go fill in the caller's parm block
@not_std_pfx

*
* Is there a device name/number in the path? If so, exit with a bad_path_syntax error...
*
		lda	#bad_path_syntax	;Assume error.
		ldx	<dev1_num		;Device number?
		beq	@no_device		;no...
		jmp	error_exit		;Yep, so exit with error.
@no_device
*
* Ok, all of our parameters are valid.  Initialize fcr_index and found_count
* to control search...
*
		stz	|fcr_index		;Init fcr_index.
		stz	|found_count		;Init found_count.
*
* Here begins our main search loop.  Go find the next fcr and branch to
* no_more_fcrs if error...
*
next_fcr	rep	#m8			;Make sure we're in 16 bit mode.
		longa	on
		
		inc	|fcr_index		;Bump current index.
		lda	|fcr_index		;Get it.
		jsl	getfcr			;Try to find it.
		bcc	do_deref		;No error.
		jmp	no_more_fcrs		;Error.
		
do_deref	jsl	deref2			;Deref VP.
		stx	<fcr_ptr_temp		;Save pointer.
		sty	<fcr_ptr_temp+2
*
* Check to make sure this FCR is for the fork we're interested in.  If not,
* branch to next_fcr...
*
		ldy	#fcr_access		;Get offset to access word.
		lda	[<fcr_ptr_temp],y	;Get access.
		and	#%0100000000000000	;Isolate fork bit.
		clc
		rol	a			;Shift to bit 0.
		rol	a
		rol	a
		cmp	|fork_num		;Is it what we want?
		bne	next_fcr		;Nope.
*
* Now get FST id out of FCR and use it to look up the translation flags in
* the FST header.  Use the flags to set msb_mask so will clear msb's if
* needed...
*
		ldy	#fcr_fst_id		;Get offset to fst id.
		lda	[<fcr_ptr_temp],y	;Get id.
		jsl	find_fst2		;Go find it.
		bcs	next_fcr		;Skip it if error.
		tay				;Put offset in Y.

		ldx	#%1111111111111111	;Init mask to no change.
		
		lda	|fst_tbl+s_flags,y	;Get flags word from FST header
		and	#%0001000000000000	;Want msb's cleared?
		beq	set_msb_mask		;Nope, so leave mask alone.
		ldx	#%1111111101111111	;Yes so get new mask.
						; (we will be in 8 bit mode)

set_msb_mask	stx	<msb_mask		;Save our mask.
*
* Get a pointer to the name in the FCR...
*
		ldy	#fcr_path_name		;Get offset to name VP.
		lda	[<fcr_ptr_temp],y	;Get VP low.
		tax				;Save it.
		iny
		iny
		lda	[<fcr_ptr_temp],y	;Get VP high.
		tay				;Put in Y.
		jsl	deref2			;Dereference it.
		stx	<path2_ptr		;Save in path2_ptr.
		sty	<path2_ptr+2
*
* Ok, so now path1_ptr points to source path and path2_ptr points to path in
* FCR.  Do the string compare.  If we don't match, branch to next_fcr...
*
		lda	[<path1_ptr]		;Get source length.
		cmp	[<path2_ptr]		;Match?
		bne	next_fcr		;Nope, so do next FCR.
		tay				;Yes, use as index.
		iny				;Point past length word.

		sep	#m8			;Go to 8 bit A.
		longa	off
		
match_loop	lda	[<path1_ptr],y		;Get source char.
		and	<msb_mask		;Mask msb.
		sta	<character		;Save it.
		lda	[<path2_ptr],y		;Get dest char.
		and	<msb_mask		;Mask msb.
		cmp	#'a'			;Is lower case?
		bcc	check_match		;Nope.
		cmp	#'z'+1
		bcs	check_match
		and	|case_mask2		;Yes, so apply mask.
check_match	cmp	<character		;Do we have a match?
		bne	next_fcr		;Nope, so next FCR.
		dey				;Yes, back up one char.
		cpy	#0001			;Done all?
		bne	match_loop		;No, so loop.
		
		rep	#m8			;Yes, go back to 16 bit mode.
		longa	on
*
* We have a match, so bump the found_count.  If found_count = displacement
* then we've got the one we want so grab the ref_num and access from the FCR
* and fall thru to found, else go to next_fcr...
*
		inc	|found_count		;Bump count.
		lda	|found_count		;Get it.
		cmp	|displacement		;Equal displacement?
		beq	get_output		;Yes.
		jmp	next_fcr		;Nope, so next_fcr.
		
get_output	ldy	#fcr_access		;Get offset to access word.
		lda	[<fcr_ptr_temp],y	;Get access.
		and	#%0000000000000011	;Isolate access bits.
		tax				;Put in x.

		lda	[<fcr_ptr_temp]		;Get ref_num.
*
* We've found the one we're looking for and the ref_num is in A and the
* access word is in X.  Stuff them in the parameter list and exit with carry
* clear...
*
found		ldy	#ref_offset		;Get offset to ref_num.
		sta	[<param_blk_ptr],y	;Stuff it.
		lda	[<param_blk_ptr]	;Get pcount.
		cmp	#2			;Want access?
		beq	skip_access		;Nope.
		
		ldy	#access_offset		;Yes, get offset to access.
		txa				;Get access in A.
		sta	[<param_blk_ptr],y	;Stuff it.
skip_access	clc				;Indicate no error.
		bra	release_exit		;Exit.
*
* We've gone thru all of the FCRs.  This is an error condition except when
* the displacement is zero, in which case we return the found_count in the
* ref_num parm...
*
no_more_fcrs	lda	|found_count		;Get found_count just in case.
		ldx	|displacement		;Requested count?
		beq	found			;Yep, so return count.
		
not_found	lda	#data_unavail		;Nope, so return error.
error_exit	sec				;Indicate error.

release_exit	rtl				;back to bank 0 to exit

		DataChk	On
		end_proc

		eject
;===============================================================================
; fe_xlate	Perform	special	pathname translation for the format and	erase
;		system calls.
;
; Created:	1/26/88
; Modified:
; Author:	JJ
;
; Enter:	jsl	fe_xlate
;
; Input:	A = fst	flags to be used to control pathname translation
;		X = pass number through this routine
;		P = nvmxdizc
;		    ..000...
;
; Output:
;		A = if c=0, undefined; if c=1, error code
;		X = trashed
;		Y = trashed
;		P = nvmxdizc
;		    ..000..|
;			   =0 translation OK
;			   =1 error during translation
;
; Moved to bank $E1 to free up some room in bank $00, since it's only used by
; do_type_7 (format & erase).  Assumes DBR is set to correct value to access
; misc_data. (GAB)
;
;===============================================================================

fe_xlate	proc
		datachk	off

pblk_fe_dev	equ	0			;offset of ptr to device name
pblk_fe_volume	equ	4			;offset of ptr to volume name
pblk_fe_fst_id	equ	8			;offset	of fst_id field in class 0 pblk

; Set up fst_flags for pathname	translation.

		sta	|fst_flags
		txa				;save pass number
		sta	>pass_num

; Prepare to translate the device name and volume name.

		jsl	init_path_vars2		;Initialize pathname variables.

; Translate device name.

		lda	#pblk_fe_dev		;get offset to device name ptr in pblk
		clc
		adc	|class

		jsl	call_xlate_path		;translate the path
		bcs	relay_error

; Check	that the input path is just a device name and nothing more.

		lda	<dev1_num		;is there a valid device number?
		beq	bad_path_err		;no, invalid pathname syntax

		lda	<path_flag		;is there anything after device name?
		and	#$4000
		bne	bad_path_err		;yes, bad path error

; The device name parameter was	OK.  Translate the volume parameter.
; Note:	 fst_flags still has the correct value.

		inc	|xlate_count		;indicate that this is second pathname

		lda	>pass_num		;is this pass 0 or 1?
		beq	@pass0			;pass 0, null pathname pointer allowed
		lda	volname_ptr		;else get pointer from SCM's variable
		sta	<in_ptr
		lda	volname_ptr+2
		sta	<in_ptr+2
		jsl	call_xlate3		;do the pathname translation
		bra	@common_xlate		;then enter common code

@pass0
		lda	#pblk_fe_volume		;get offset to volume name ptr in pblk
		clc
		adc	|class

		tay				;use Y as index
		tax				;and save index in X for a bit
		lda	|class			;is there a pCount?
		beq	@no_pCount		;no, volume name MUST be supplied
		lda	[<param_blk_ptr]	;get the pCount
		cmp	#$0002			;is the volume name supplied?
		bcc	outta_here		;nope!
@no_pCount
		clc				;in case of NULL volume name string
		lda	[<param_blk_ptr],y	;get the volume name pointer
		sta	in_ptr			;store here
		iny
		iny
		lda	[<param_blk_ptr],y	;get high word
		sta	in_ptr+2
		ora	in_ptr			;is it NULL?
		beq	outta_here		;yes, no volume name supplied
		lda	[in_ptr]		;get the length
		beq	outta_here		;null string...
		txa				;else put index back into Acc
		jsl	call_xlate_path		;then translate the path
@common_xlate
		bcs	relay_error

; Check	that the translated pathname consists of a volume name and nothing else.

		ldx	<path2_ptr		;set up	pointer to translated path
		ldy	<path2_ptr+2
		jsr	is_volume_only		;check that pathname is only a volume
*		bcs	relay_error		;relay the bad_path_syntax error code
outta_here
		rtl				;return	with no error

bad_path_err
		lda	#bad_path_syntax
relay_error
		sec
		rtl

pass_num	ds.w	1

		datachk	on
		end_proc

		eject
;===============================================================================
; is_volume_only
;
; Determines whether or	not a specified	pathname consists of exactly a
; separator followed by	a syntactically	correct	volume name and	nothing	more.
;
; Note:		Use this routine only on pathnames that	have already been
;		translated and determined to be	syntactically correct by
;		xlate_path.
;
; Enter:	jsr	is_volume_only
;
; Input:	X = low	word of	pointer	to the internal	pathname string
;		Y = high word of pointer to the	internal pathname string
;		P = nvmxdizc
;		    ..000...
;
; Output:	A = if c=0, undefined
;		    if c=1, bad_path_syntax error code
;		X = trashed
;		Y = trashed
;		P = nvmxdizc
;		    ..000..|
;			   0=no	error
;			   1=error
;===============================================================================

is_volume_only	proc

string_ptr	equ	s_temp1
string_length	equ	s_temp2

; String pointer must be non-null.

		txa				;set condition codes
		bne	ok_1
		tya
		beq	syntax_error
ok_1

		stx	<string_ptr		;set up string pointer on direct page
		sty	<string_ptr+2

; String length	must be	at least 2.

		lda	[<string_ptr]		;get string length
		cmp	#2
		blt	syntax_error

; Prepare to look at each character in the string.

		ldy	#$0002			;offset of first character

		sep	#m8			;enter 8-bit m mode
		longa	off

		lda	[<string_ptr],y		;get first character
		cmp	#sep			;is it the separator
		bne	syntax_error1		;no, syntax error

loop		iny				;increment index
		lda	[<string_ptr],y		;get next character
		beq	end_string		;string is terminated with a $00
		cmp	#sep			;is it a separator?
		bne	loop			;no, go on

		longa	on

sep_in_string	rep	#m16			;yes, may be an error
		tya				;offset at which sep was found
		dec	a			;adjust for comparison
		cmp	[<string_ptr]		;compare to string length
		bne	syntax_error

end_string	rep	#m16
		clc				;normal return
		rts

syntax_error1	rep	#m16			;back to 16-bit m mode
syntax_error	lda	#bad_path_syntax
		sec
		rts

		end_proc

		eject
;===============================================================================
; do_drvr_status - performs a driver status call
;
; located here 'cause there's not enough room in bank $00
;
; Assumes DBR is set to $00, and Direct Page is set to GS/OS direct page
;
; On Entry:	Acc = driver device #
;===============================================================================

		DataChk	Off
do_drvr_status	Proc

		sta	<drvr_dev_num		;store the passed device number

		lda	#drvr_status		;call # for Status call
		sta	<drvr_call_num
		lda	#dev_status		;use this as the status list
		sta	<drvr_slist_ptr
		lda	#^dev_status
		sta	<drvr_slist_ptr+2
		lda	#2			;only need 2 bytes
		sta	<drvr_req_cnt
		stz	<drvr_stat_code		;requesting device status
		jsl	dev_dispatcher		;make the call (this also set's up drvr_dib_ptr)
		rts
		End_proc
		DataChk	On

		eject
;===============================================================================
; e1_volume_call - handles new parameters to the Volume call
;
; located here 'cause there's not enough room in bank $00
;
; Assumes DBR is set to $00
;
;===============================================================================

e1_volume_call	Proc
		DataChk	Off

		php				;save carry
		bcc	@no_error		;skip if no error occurred
		ldx	|curr_fst		;get FST table offset to FST that handled call
		lda	|fst_tbl+id,x		;get the FST ID
		ldy	#$0012			;offset in parameter block of FST ID
		sta	[<param_blk_ptr],y	;store the ID

@no_error

; now we make a status call to the driver to get the current write-protect status

		lda	<dev_num		;get the device number
		jsr	do_drvr_status		;make the driver status call

		lda	[<param_blk_ptr]	;get the pCount again
		cmp	#$0008			;did caller ask for device ID?
		bcc	just_chars		;no, just the characteristics
		ldy	#dev_id_num		;else get the ID number from the DIB
		lda	[<drvr_dib_ptr],y
		ldy	#$0018			;store into parmblock
		sta	[<param_blk_ptr],y

just_chars
		lda	|fst_flags		;get the flags of the FST that handled call
		xba				;put Read-Only bit into low byte
		and	#%00001000		;mask to just read-only bit
		lsr	a			;shift to correct bit position
		lsr	a
		lsr	a
		pha				;save on stack for a minute
		ldy	#dev_char		;offset to device characteristics
		lda	[<drvr_dib_ptr],y
		and	#%1111111111101100	;clear low two bits and "open files" bit
		ora	1,s			;combine with FST read-only bit
		sta	1,s			;and leave on stack
		lda	dev_status		;this is where Status call put status word
		and	#%00000100		;only interested in write-protect status
		lsr	a			;shift to correct bit position
		ora	1,s			;combine with previous bits
		sta	1,s			;and put back on stack
		lda	3,s			;retrieve saved carry bit
		and	#$0001			;was the carry set on entry?
		bne	@no_open_files		;yes, skip the open-files check

		ldy	#6			;get the returned volume name
		lda	[<param_blk_ptr],y
		inc	a			;bump past buffer size word
		inc	a
		sta	<m_temp			;store as source pointer
		iny
		iny
		lda	[<param_blk_ptr],y
		sta	<m_temp+2
		lda	#device_name		;destination of copy
		sta	<ptr
		lda	#^device_name
		sta	<ptr+2
		jsl	to_copy_string		;copy the string to our local buffer
		lda	device_name		;decrease length by 1 to remove leading colon
		dec	a
		sta	device_name+1
		ldx	#device_name+1
		ldy	#^(device_name+1)
		lda	#0			;look for a name
		jsl	FindVcrCase		;look for the VCR
		jsl	DeRef			;deref the returned VP
		stx	vcr			;save the pointer
		sty	vcr+2
		ldy	#vcr_open_cnt		;get the count of open files
		lda	[<vcr],y
		beq	@no_open_files		;no open files
		lda	#$0010			;else set bit 4 of the characteristics
		ora	1,s
		sta	1,s
@no_open_files
		pla				;retrieve final characteristics
		ldy	#$0016			;offset in parmblock
		sta	[<param_blk_ptr],y	;store the characteristics
		plp				;retrieve original status
		rtl

		DataChk	On
		end_proc

		eject
;===============================================================================
; FST Table Management Routines
;
; Relocated from bank $00 to bank $E1 to free up some room in bank $00 (GAB)
;
;===============================================================================

fst_tbl_mgr	proc
		entry	add_fst
		
		longa	on
		longi	on
		DataChk	off

;===============================================================================
; add_fst:	Add a new FST to the FST Table immediately after the last entry.
;
; Created:	4/9/87
; Modified:	1/18/89
; Author:	JJ
;
; Enter:	jsl	add_fst
;
; Input:	X = low	word of	pointer	to an FST header
;		Y = high word of pointer to an FST header
;		P = nvmxdizc
;		    ..000...
;
; Output:	A = if c=0, undefined; if c=1, error code
;		  = 0001 - FST Table is	full
;		  = 0002 - input object	does not look like an FST
;		  = 0003 - FST error occured during initialization call
;		X = trashed
;		Y = trashed
;		P = nvmxdizc
;		    ..000..|
;			   0=no	error, 1=error
;===============================================================================

file_sys_id	equ	$0c			;Offset to FST id in header.
copy_length	equ	$22			;Offset to word before name len.
high_sierra_id	equ	$0b			;ID for High Sierra FST.
iso_9660_id	equ 	$0c			;ID for ISO 9660 FST.

add_fst

*
* Are we looking at an FST header?
*
		phb				;save user's DBR and set ours to PBR
		pea	fst_count>>8		;set DBR to bank containing variables
		plb
		plb

		stx	<s_temp1		;temp1 <-- pointer to FST header
		sty	<s_temp1+2

		lda	[<s_temp1]		;check that what we're looking at looks
		cmp	#'SF'			;... like an FST header, i.e. the first
		bne	error_hop		;... four bytes are 'FST '
		ldy	#2
		lda	[<s_temp1],y
		cmp	#' T'
error_hop
		bne	not_fst_header
		
*
* Yes, is it High Sierra/ISO 9660?  If so, set hs_fst_flag.  We set this flag
* so that get_fst_info can fake an entry for ISO 9660.  This is necessary because
* the FST supports BOTH file systems and has only one ID in its header.  In order
* to keep our local copy current, we also copy the header up to the FST name...
*
is_fst_header	ldy	#file_sys_id		;Get offset to file system id.
		lda	[<s_temp1],y		;Get id.
		cmp	#high_sierra_id		;Is high sierra?
		bne	check_space		;Nope.
		inc	hs_fst_flag		;Yep, so set flag.
		
		ldy	#copy_length		;Get length to copy (even #).
copy_header	lda	[<s_temp1],y		;Get word.
		sta	iso_fst_header,y	;Update our header.
		dey				;Done all?
		dey
		bpl	copy_header		;Nope, so loop.
		
		lda	#iso_9660_id		;Yes, restore ISO 9660 id.
		sta	iso_fst_id	
*
* Do we have space for another FST?
*
check_space	lda	|fst_count		;is there any space in the table?
		cmp	#max_fsts
		bge	fst_table_full		;no, report error
*
* Yep, call the FST's initialization function and exit if error...
*
		ldy	#sys_entry		;offset	of system entry point addr
		lda	[<s_temp1],y		;get low word of address
		sta	>jump_vector+1		;store address into code
		iny
		lda	[<s_temp1],y		;get middle word of address
		sta	>jump_vector+2		;store into code

		phb				;save our DBR
		ldx	#init_fst		;indicate init FST call
jump_vector	jsr	>$000000		;this instruction is modified by code
						;above.

		plb				;Restore data bank.
		bcs	fst_init_error		;Error so don't add to table.
*
* No error, so add fst entry to table...
*

		lda	|fst_count		;Get current count.
		inc	|fst_count		;increment the number of active entries

		asl	a			;multiply original number of entries
		asl	a			;... (still in A) by 16 to get offset to
		asl	a			;... first unused record
		asl	a
		tax				;move to X to use as offset into table

		ldy	#id			;test to see if	this is the ProDOS FST
		lda	[<s_temp1],y		;get the FST id
		dec	a			;check to see if it is ProDOS (FST id=1)
		bne	ar1			;no, do nothing
		stx	|prodos_index		;yes, save index to this table entry
ar1		cmp	#8			; is it the char fst? (id = 9-1)
		bne	ar2
		stx	|char_index

ar2		lda	<s_temp1		;save pointer to FST header in FST Tbl
		sta	|fst_tbl+fst_hdr_ptr,x
		lda	<s_temp1+2
		sta	|fst_tbl+fst_hdr_ptr+2,x

		ldy	#app_entry		;copy app_entry, sys_entry, id and flags
loop2		lda	[<s_temp1],y		;... from FST header into FST Table
		sta	|fst_tbl+app_entry,x
		iny
		iny
		inx
		inx
		cpy	#s_flags+2
		blt	loop2

		clc				;indicate no error
		plb				;restore caller's DBR
		rtl

fst_table_full
not_fst_header	lda	#fst_load_fail		;not an FST error
*		bra	error_tail

fst_init_error					;error occurred	during FST init call
						;so report it's error.

error_tail	sec				;indicate error
		plb				;restore caller's DBR
		rtl

		DataChk	On
		end_proc

		eject
;======================================================================
; get_id : Gets	an ID for use with the system memory manager
;
; Created:	April 22, 1987
; Modified:	July 20, 1987
; Author:	Mike Askins
;
; Copyright Apple Computer Inc.	1987  All rights reserved
;
; Input:	A = undefined
;		X = undefined
;		Y = undefined
;		P = nvmxdizc
;		    ..000...
;
; Output:	A = ID
;		X = trashed
;		Y = trashed
;		P = nvmxdizc
;		    ..000...
;		b = preserved
;	  gsos_id = the	ID
;
;======================================================================
		DataChk	Off
get_mm_id	proc
		
		pea	$0000			;Push the space for result
		pea	mm_id_tag		;Tag field
*
		_GetNewID			;Get an	ID from Misc Tools
		pla
		sta	>gsos_id
		rtl

		end_proc
		DataChk	On

		EJECT
*******************************************************************************
*
*        Name:	loader_rename
*
* Description:	Takes translated pathnames from change_path call and does
*		insert_vol_name on both, then uses the results to make the
*		loader rename call.
*
*      Author:	Bryan Atsatt
*     Created:	May 16, 1989
*    Modified:	Jan 23, 1992
*	{GAB}	When the original pathname was specified as ONLY a device name,
*		meaning that the volume name was being changed, the
*		insert_vol_name call was occurring AFTER the volume name had
*		already been changed by the FST.  This means that the original
*		pathname had the _new_ volume name used instead of the actual
*		original volume name.  I've added the rename_preamble routine
*		that is used by call_fsts PRIOR to calling the FST so that
*		the REAL original volume name can be determined.
*
*       Entry:	jsl
*
*       Input:  A = undefined
*               X = undefined
*               Y = undefined
*               P = nvmxdizc
*		    ..000..x
*
*      Output:  A = undefined
*               X = undefined
*               Y = undefined
*               P = nvmxdizc
*		    ..000..x
*
*        Exit:	rtl
*
*        Uses:	insert_vol_name
*
* Copyright Apple Computer, Inc. 1989  All rights reserved.
*******************************************************************************

rename_preamble	Proc
		datachk	off
		ldx	path1_v_ptr		;release any previous translation
		ldy	path1_v_ptr+2
		jsr	release
		stz	path1_v_ptr
		stz	path1_v_ptr+2
@skip_it

		stz	xlate_count		;Set to pathname 1.
		lda	class			;get proper parm offset for this class
		jsl	xlate_path2_l		;translate the pathname.
		bcs	nfg			;Return if there is an error.
		jsr	insert			;convert device name to volume name
		ldx	v_ptr2
		ldy	v_ptr2+2
		tya
		ora	v_ptr2			;was there a conversion?
		bne	@store_it		;yes, store the pointer
		ldx	v_ptr1			;else use pathname as supplied
		ldy	v_ptr1+2
		sep	#2			;set Z flag (don't release v_ptr1)
@store_it
		stx	path1_v_ptr
		sty	path1_v_ptr+2
		clc
nfg
		rtl
		datachk	on

		entry	Loader_Rename
loader_rename
		datachk	off
*
* Re-translate the input paths using xlate_path2 which will not strip off
* device names.  Exit if either translation fails...
*
		lda	#1
		sta	xlate_count		;Set to pathname 2.
		lda	class
		clc
		adc	#4			;offset to second pathname parameter
		jsl	xlate_path2_l		;Translate the pathname.
		bcs	exit2			;Exit if error.
*
* Set data bank to our program bank...
*
		phb				;Save current data bank.
		phk				;Push program bank.
		plb				;Set data bank.
		datachk	on
*
* Save v_ptr2...
*
		lda	>v_ptr2			;Get v_ptr2.
		sta	path2_v_ptr		;Save it.
		lda	>v_ptr2+2
		sta	path2_v_ptr+2
*
* Now insert the volume name if neccessary and push a pointer to the full
* pathname as the first parameter for the loader call...
*
	if 0 then
		lda	<path1_ptr+2		;push pointer to original name
		sta	old_name+2		;and save for FCR renaming
		pha
		lda	<path1_ptr
		sta	old_name
		pha
*
* Save v_ptr2 generated by the insert call...
*
		lda	>v_ptr2			;Get v_ptr2.
		sta	v_ptr_save_b		;Save it.
		lda	>v_ptr2+2
		sta	v_ptr_save_b+2
*
* Now set path1_ptr equal to original path2_ptr by dereferencing
* path2_v_ptr...
*
		ldx	path2_v_ptr		;Get vp.
		ldy	path2_v_ptr+2
		jsl	deref2			;Dereference it.
		stx	<path1_ptr		;Save it.
		sty	<path1_ptr+2
	else
		lda	>path1_v_ptr		;get pointer to original name
		tax
		lda	>path1_v_ptr+2
		tay
		jsl	deref2
		sty	old_name+2
		stx	old_name
		phy
		phx
		
		lda	<path2_ptr		;copy 2nd pathname to path1
		sta	<path1_ptr		;for the insert call
		lda	<path2_ptr+2
		sta	<path1_ptr+2
	endif
*
* Now insert the volume name if neccessary and push a pointer to the full
* pathname as the second parameter for the loader call...
*
		jsr	insert			;Do insert if needed.

		pei	<path1_ptr+2		;Push path1_ptr (new name).
		pei	<path1_ptr
*
* Now make the loader rename call...
*
		ldx 	#$1311			;Get the tool call #.
     		jsl 	$E10000			;Make the RenamePathname call.
*
* Now we must walk through all the active FCRs in the system to ensure that
* they're all updated with the new pathname.
*
		jsr	rename_fcrs
*
* Now release all vp's used...
*
exit
		ldx	path2_v_ptr		;Get original v_ptr2.
		ldy	path2_v_ptr+2
		jsr	release			;Do release.
		
		ldx	v_ptr_save_b		;Get first v_ptr2.
		ldy	v_ptr_save_b+2
		jsr	release			;Do release.

;		v_ptr1 and v_ptr2 are released by call_fsts after return from
;		this subroutine

*
* Restore call # and data bank and exit...
*
		datachk	off
		plb				;Restore data bank.
		ldx	path1_v_ptr		;release any previous translation
		ldy	path1_v_ptr+2
		jsr	release
		stz	path1_v_ptr
		stz	path1_v_ptr+2
		datachk	on
exit2
		rtl				;Exit.
*
* Release vp...
*
release		txa				;Check for null.
		bne 	do_it
		tya
		beq	return			;Null!
do_it		jsl	release_seg		;Not null.
return		rts				;Exit.

*
* Set data bank register to code bank of call, call insert_vol_name and restore
* data bank...
*
		DATACHK	OFF
insert		phb				;Save program bank.
		pea	insert_vol_name>>8	;Get bank word.
		plb				;Set data bank.
		plb				;(twice 'cuz did pea).
		stz	v_ptr2
		stz	v_ptr2+2
		jsl	insert_vol_name		;Do call.
		plb				;Restore data bank.
		rts				;Exit to caller.
		DATACHK	ON

rename_fcrs	
*
* path1_ptr is left over from the second insert call and points to the new pathname
* old_name was saved after the first insert call and contains a pointer to the
*   original pathname
*
old_name_ptr	equ	path2_ptr		;alias for pointer to old pathname
new_name_ptr	equ	path1_ptr		;alias for pointer to new pathname
fcr_ptr_temp	equ	s_temp1			;pointer to fcr
fcr_name_vp	equ	s_temp2			;vp of original fcr name
fcr_name	equ	s_temp3			;pointer to fcr name
temp_vp		equ	s_temp4			;temporary vp used to build new pathname
temp_name_ptr	equ	s_temp5			;temp pointer used to build new pathname

; These variables reside in the fst workspace.  Since we won't be calling any FSTs, and
; all FSTs share the workspace (meaning that no FST can depend on any value in the
; workspace being static), we should be able to use the memory safely.

remainder	equ	fst_start		;remainder of FCR's pathname after matching prefix
old_index	equ	remainder+2
new_index	equ	old_index+2
terminate	equ	new_index+2
fst_id_temp	equ	terminate+2		;fst id of fst that handled ChangePath call
fcr_count	equ	fst_id_temp+2		;index to current fcr

		lda	old_name		;retrieve pointer to original pathname
		sta	<old_name_ptr
		lda	old_name+2
		sta	<old_name_ptr+2

		stz	fcr_count		;init fcr index
		lda	>curr_fst		;get id of fst that handled call
		tax
		lda	>fst_tbl+id,x
		sta	fst_id_temp		;save for comparisons

fcr_loop
		inc	fcr_count		;step to next fcr
		lda	fcr_count
		jsl	get_fcr			;get vp to next fcr
		bcs	@to_fcr_exit		;no more fcr's, we're done
		jsl	deref2			;turn into real pointer
		stx	fcr_ptr_temp
		sty	fcr_ptr_temp+2
		ldy	#fcr_fst_id		;does the fcr belong to the fst that
		lda	[fcr_ptr_temp],y	; handled the call?
		cmp	fst_id_temp
		bne	fcr_loop		;no, skip this fcr
		ldy	#fcr_path_name		;else get pointer to pathname
		lda	[fcr_ptr_temp],y
		sta	fcr_name_vp		;save VP for disposal if we rename this one
		tax
		iny
		iny
		lda	[fcr_ptr_temp],y
		sta	fcr_name_vp+2
		tay
		jsl	deref2			;turn into a real pointer
		stx	fcr_name
		sty	fcr_name+2
		lda	[fcr_name]		;get length of fcr pathname
		cmp	[old_name_ptr]		;shorter than original pathname parameter?
		bcc	fcr_loop		;yes, can't possibly be a match
		lda	[old_name_ptr]		;get length of original name
		inc	a			;account for leading length word
		inc	a
		tay				;into index
		sep	#$20			;8-bit comparison
		longa	off
		lda	[fcr_name],y		;get character after prefix
		cmp	#sep			;MUST be a separator character
		beq	@maybe			;so far, so good
@not_this_one
		rep	#$20			;back to 16-bit accumulator
		bra	fcr_loop
@maybe
		dey				;skip back to last character of prefix
@name_loop
		lda	[old_name_ptr],y	;get a character
		eor	[fcr_name],y		;case-insensitive comparison
		beq	@equal			;same character!
		cmp	#$20			;only a difference in case?
		bne	@not_this_one		;nope!
		lda	[old_name_ptr],y	;get the character again
		cmp	#'A'			;make sure it's alphabetic
		bcc	@not_this_one
		cmp	#'Z'+1
		bcc	@equal			;yup, it was uppercase
		cmp	#'a'			;possibly lower case?
		bcc	@not_this_one		;no...
		cmp	#'z'+1
		bcs	@not_this_one		;no way!
@equal
		dey				;step back to previous character
		cpy	#$0002			;done all characters yet?
		bcs	@name_loop		;loop through whole name
		rep	#$20
		longa	on

; We have found a match.  Now we have to rename the fcr, using the new pathname plus
; that portion of the original fcr name that extends beyond the end of the prefix

		lda	[fcr_name]		;get original length
		sec
		sbc	[old_name_ptr]		;calculate length of name beyond prefix
		sta	remainder		;remember this for later
		adc	[new_name_ptr]		;calc total length of new name (+1 -carry's set)
		inc	a			;allow for leading length word
		inc	a			;and trailing null
		sec				;zero it (to generate trailing null)
		jsl	alloc_zero		;get some memory for the new name
@to_fcr_exit	bcs	fcr_exit		;out of memory!                                               
		stx	temp_vp			;save the vp for later
		sty	temp_vp+2
		jsl	deref2			;make into a real pointer
		stx	temp_name_ptr
		sty	temp_name_ptr+2
		stx	ptr			;set up for copy call
		sty	ptr+2
		lda	new_name_ptr
		sta	m_temp
		lda	new_name_ptr+2
		sta	m_temp+2
		jsl	to_copy_string		;copy the new prefix in
		lda	[old_name_ptr]		;get length of original name
		inc	a			;leading length word
		inc	a
		sta	old_index		;this indexes the remainder of the fcr's name
		tay				;for later
		lda	[temp_name_ptr]		;get length of prefix
		tax				;save for a sec
		inc	a			;adjust for length word
		inc	a
		sta	new_index		;this indexes the concatenation location
		txa				;retrieve real length
		clc				;calculate new length
		adc	remainder
		sta	[temp_name_ptr]
		lda	[fcr_name]		;get length of original name
		inc	a
		inc	a
		sta	terminate		;store as terminating value
		sep	#$20
		longa	off
@concat		lda	[fcr_name],y		;get a character
		ldy	new_index
		sta	[temp_name_ptr],y	;store into new pathname
		inc	old_index		;bump indexes
		inc	new_index
		ldy	old_index		;done whole name yet?
		cpy	terminate
		bcc	@concat			;no, loop until at end
		rep	#$20
		longa	on

		ldy	#fcr_path_name		;store vp of new pathname
		lda	temp_vp
		sta	[fcr_ptr_temp],y
		iny
		iny
		lda	temp_vp+2
		sta	[fcr_ptr_temp],y
		
		ldx	fcr_name_vp		;dispose of the original name
		ldy	fcr_name_vp+2
		jsl	deallocate
		
		jmp	fcr_loop		;go back and do the next one

fcr_exit	rts

*
* Storage area for v_ptrs...
*
path2_v_ptr	dc.l	00000000		;Original v_ptr2.
v_ptr_save_b	dc.l	00000000		;First v_ptr2.
old_name	ds.l	1			;original pathname (translated)

		end_proc

		Eject
;===============================================================================
;
; do_insert_scan - System Service Vector handler which allows a module external
; to the OS to perform a device scan looking for a disk insertion.  This
; procedure saves the callers DBR and DP registers, sets these registers to
; those needed by the OS routines, and then performs the device scan.  On exit,
; the caller's DBR and DP will be restored, and the carry will be conditioned
; according to what happened during the scan.  If the carry is set, no insertion
; was seen.  If the carry is clear, the Accumulator will contain the device
; number of the first device that had a disk inserted.
;
; On entry, it is assumed that the language card memory is banked in
; properly (otherwise, it won't ever get here), and that the processor is in
; full native mode.
;
;===============================================================================

do_insert_scan	Proc
		DataChk	Off

; save the caller's environment
		phb				;save DBR
		phd				;save direct page
		pea	gsos_lc_entry>>8	;set DBR to our normal data bank
		plb
		plb			
		lda	#direct_base		;set DP to our direct page
		tcd

		lda	#$0000			;init device number
		pha				;and return device #
		pha
scan_loop
		pla				;retrieve device #
		inc	a			;bump by 1
		pha				;put back on stack
		sta	<drvr_buf_ptr		;put here for device dispatcher
		stz	<drvr_dev_num		;we want to talk to dispatcher
		lda	#get_dib_ptr		;return the driver dib pointer
		sta	<drvr_call_num
		jsl	dev_dispatcher
		bcs	exit			;exit if error occurs

		ldy	#dev_char		;get the characteristics
		lda	[<drvr_dib_ptr],y
		bit	#%0000000010000000	;block device?
		beq	scan_loop		;no...
		bit	#%0000000000000100	;removeable media?
		beq	scan_loop		;no...
		ldy	#dev_id_num		;get the device ID
		lda	[<drvr_dib_ptr],y
		beq	scan_loop		;ignore Disk ]['s
*		cmp	#$0006			;and SCSI tape drives
*		beq	scan_loop
*		cmp	#$0015			;and generic tape drives
*		beq	scan_loop
		cmp	#$0020			;and Apple SCSI tape drives
		beq	scan_loop

		lda	1,s			;get the device number again
		jsr	do_drvr_status		;get status on this device
		bcs	exit			;punt if we get an error
		lda	>dev_status		;get the status word
		and	#%0000000000010001	;check for disk switched & online
		cmp	#%0000000000010001	;is that the status?
		bne	scan_loop		;no, try next device
		lda	3,s			;have we already seen an insertion?
		bne	scan_loop		;yup, leave it as-is
		lda	1,s			;get the device # again
		sta	3,s			;and copy into local variable
		bra	scan_loop		;loop until all devices looked at

exit		plx				;clean up stack
		pla				;retrieve device # that had insertion
		beq	@bye_bye		;if non-zero, we had an insertion
		clc				;else signal that we saw an insertion
@bye_bye

; restore the caller's environment
		pld				;restore DP
		plb				;restore DBR
		rtl				;and back to system

		DataChk	On
		end_proc

		eject
*******************************************************************************
*
*        Name:	do_alert_window
*
* Description:	Replaces $8D's in alert string with spaces, calls AlertWindow,
*		then restores $8D's.
*
*      Author:	Bryan Atsatt
*     Created:	May 18, 1989
*    Modified:	
*
*       Entry:	jsl
*
*       Input:  A = undefined
*               X = undefined
*               Y = undefined
*               P = nvmxdizc
*		    ..000..x
*
*      Output:  A = undefined
*               X = undefined
*               Y = undefined
*               P = nvmxdizc
*		    ..000..x
*
*        Exit:	rtl
*
*        Uses:	insert_vol_name
*
* Copyright Apple Computer, Inc. 1989  All rights reserved.
*******************************************************************************

cr		equ	$8d
space		equ	$20
		DataChk	Off

do_alert_window	proc

*
* Replace $8D's with $20's in alert string, saving offsets on stack...
*
		longa	off
		sep	#$20			;Go to 8 bit A.

		ldx	#0			;Init counter.
		ldy	#$ffff			;Init offset.

replace_loop	iny
		lda	[<alert_ptr],y		;Get byte. Reached end?
		beq	save_count		;Yep.
		cmp	#cr			;Nope, is cr?
		bne	replace_loop		;Nope, so continue.
		phy				;Yes, save offset.
		inx				;Bump counter.
		lda	#space			;Replace with space.
		sta	[<alert_ptr],y
		bra	replace_loop		;Do next character.
		
save_count	phx				;Save count.

		longa	on			;Restore 16 bit A.
		rep	#$20

*
* Do the AlertWindow call...
*
		pha				;push space for response
		pea	$0061			;push indicator that substitution
						 ;...strings are Pascal strings
		pei	<subst_ptr+2		;push pointer to substitution string
		pei	<subst_ptr		;...table
		
		pei	<alert_ptr+2		;push pointer to alert string
		pei	<alert_ptr

		ldx	#$590E			;call the AlertWindow tool
		jsl	$E10000
		pla				;pull response off stack--save in Y
		sta	>save_y			;Save it.
*
* Restore string and exit...
*
		plx				;Recover count.
		beq	exit			;Exit if null.

		longa	off
		sep	#$20			;Go to 8 bit A.
		
restore_loop	ply				;Recover offset.
		lda	#cr			;Restore cr.
		sta	[<alert_ptr],y
		dex				;Done all?
		bne	restore_loop		;Nope, so loop.
		
		longa	on			;Restore 16 bit A.
		rep	#$20

exit		lda	>save_y			;Recover Y.
		tay
		rtl				;Exit

save_y		dc.w	0000			;Storage.
		
		end_proc
		DataChk	On

		eject
;===============================================================================
; s_mount_msg
;
; Write	out the	internationalized mount	volume message.
;
; Created:	1/12/88
; Modified:	1/23/88	(mikie)
; Author:	JJ
;
; Input:	pointer	to volume name to be written out in message
;	 S --->
;
;		A = $0000: use sys_prefs, $0001: force dialog
;		P = nvmxdizc
;		    ..000...
;
; Output:	A = response indicating	which button was pressed
;		X = trashed
;		Y = trashed
;		P = nvmxdizc
;		    ..000...
;===============================================================================

	DATACHK OFF
s_mount_msg	proc

; The mount message is displayed only under certain conditions.	 The FST
;  can mandate the appearance of the message by	calling	with an	Acc value of
;  A=$0001.  If	A=$0000	the appearance of the box is dictated by the App
;  preference word (msb) which is set or reset by the Set_Sys_Prefs call.

		lsr	a
		bcs	doit			;Force the message

		lda	>sys_prefs		;In this case let the preference decide
		bmi	doit			;If msb then continue with the box

		lda	1,s			;Squeeze input parms out of stack
		sta	5,s
		lda	2,s
		sta	6,s
		pla
		pla

		lda	#$0001			;Make it look like the User cancelled
		clc
		rtl


doit
;
; Make stack space for additional parameters.
;
		pha
;
; Move substitution string pointers from stack into fixed table.
;
		lda	6,s			;low word of substitution string pointer
		sta	>sub_ptr_1
		lda	8,s			;high word of substitution string ptr
		sta	>sub_ptr_1+2
;
; Move return address upward by	4 bytes.
;
		lda	3,s			;low word
		sta	7,s
		lda	4,s			;middle word
		sta	8,s
;
; Insert error number into the appropriate parameter position.  We select the message
; number based on bit 14 of the sys_prefs word...
;
		ldx	#mount_msg_num1		;Init to default message.
		lda	>sys_prefs		;Use alternate?
		and	#%0100000000000000
		beq	use_default		;Nope.
		ldx	#mount_msg_num2		;Yes.
use_default	txa
		sta	5,s
;
; Place	pointer	to substitution	string table into parameter position.
;
		lda	#sub_ptr_1		;low word
		sta	1,s
		lda	#sub_ptr_1>>16		;high word
		sta	3,s
;
; set the flag so that devices are scanned for a disk insertion
;
		lda	#1
		sta	>do_runq		;use the runq handler
;
; set up to do a SysBeep at the next GetNextEvent call
;
		pea	$4030			;Disk Request beep
		ldx	#$3803			;SysBeep2
		jsl	$E10000
*** added 12-Aug-92 DAL -- Clean up stack on error.
		bcc	@stack_ok		;assume only error is from tool dispatcher
		pla				;pull input parameter
@stack_ok
*** end 12-Aug-92
;
; Finally call full_error.
;
		jsl	s_full_error

		tax				;save the return value
		lda	#0
		sta	>do_runq		;don't use runq handler
		txa				;restore return value
		clc
		rtl

		end_proc
	DATACHK ON
		eject
;======================================================================
; getkey : Wait	for a keypress
;
;Created:	January	12, 1988
;Modified:	January	12, 1988
;Author:	Mike Askins
;
;Copyright Apple Computer Inc. 1987-8  All rights reserved
;
;Input:		A = <undefined>
;		X = <undefined>
;		Y = <undefined>
;		P = nvmxdizc
;		    ..x00...
;
;Output:	A = Key	pressed	(msb off)
;		X = <trashed>
;		Y = <trashed>
;		P = nvmxdizc
;		    ..x00...
;		b = preserved
;
;======================================================================

getkey		proc
		DataChk	off

		php
		rep	#$30			;Force 16 bit acc
		longa	on
		longi	on

getkey1
		lda	do_runq			;do we need to do a device scan?
		beq	@no_scan		;no...

		pha				;space for result
		pha
		ldx	#$2503			;GetTick
		jsl	$E10000
		pla				;retrieve tick count
		plx				;(high word not used)
		and	#63			;do a MOD 64
		bne	@no_scan		;do device scan every 64th tick
		jsl	do_insert_scan		;(close enough to call it every second)
		bcs	@no_scan		;no insert this time!
		lda	#$A55A			;special code to signal a disk insertion
		plp				;restore register size
		rtl

@no_scan
		pha				;Space for result
		lda	#$0428			;event mask
		pha
		pea	the_event>>16		;pointer to event record
		pea	the_event
		_GetNextEvent
		pla
		bcs	read_myself

		beq	getkey1			;Nothing interesting...
		lda	>evt_message
		bra	gotkey

read_myself
		sep	#$20			;Force 8 bit mode
		lda	>$E0C000		;do we have a keypress?
		bpl	nokey			;no...
		sta	>$E0C010		;yes!  clear the strobe
nokey
		rep	#$20			;back to 16-bit accumulator
		bpl	getkey1

gotkey
		and	#$007F			;clear high byte and bit 7 of character
		plp				;Restore reg size mode

		rtl

the_event
evt_what	DC.W	0
evt_message	DC.L	0
evt_when	DC.L	0
evt_where	DC.L	0
evt_mod		DC.W	0

		DataChk	On
		end_proc
		eject
*******************************************************************************
* Another storage area
*******************************************************************************

more_storage	proc
		entry	vidtab

*
* The following table contains the starting addresses for text screen lines
* 6-19 for the routine gotoxy...
*
vidtab
		DC.W	$0700			;Line 6
		DC.W	$0780			;Line 7
		DC.W	$0428			;Line 8
		DC.W	$04A8			;Line 9
		DC.W	$0528			;Line 10
		DC.W	$05A8			;Line 11
		DC.W	$0628			;Line 12
		DC.W	$06A8			;Line 13
		DC.W	$0728			;Line 14
		DC.W	$07A8			;Line 15
		DC.W	$0450			;Line 16
		DC.W	$04D0			;Line 17
		DC.W	$0550			;Line 18
		DC.W	$05D0			;Line 19
		
		end_proc
		eject		
*******************************************************************************
*
* End bank_e1 segment: $E1DC00-E1DFFF
*
*******************************************************************************

		freespace	SCM segment 4,seg_4_start,seg_4_max,&segment_pc

		eject
*******************************************************************************
*
* Framework for	building load segment seg_0.
*
*******************************************************************************

		SEG	'start_seg0'

seg_0_header	proc	org	seg_0_start-header_length,noskip

		msb	on

		DC.W	seg_0_end-seg_0_start
		DC.L	seg_0_start
		DC.W	0000
		DC.B	'SCM entry code        v04.02'
		DC.B	00

		msb	off

		endp

seg_0_pad	proc	org	seg_0_start
		endp

		SEG	'end_seg0'

seg_0_end	proc
		endp

seg_0_overflow	proc   org   seg_0_max, skip	;This will generate an error if
		endp				;the code overflows its space.

		eject
*******************************************************************************
*
* Framework for	building load segment seg_1.
*
*******************************************************************************

		SEG	'start_seg1'

seg_1_header	proc	org	seg_1_start-header_length,noskip

		msb	on

		DC.W	seg_1_end-seg_1_start
		DC.L	seg_1_start
		DC.W	0000
		DC.B	'SCM misc code         v04.00'
		DC.B	00

		msb	off

		endp

seg_1_pad	proc	org	seg_1_start
		endp

		SEG	'end_seg1'

seg_1_end	proc
		endp

seg_1_overflow	proc   org   seg_1_max, skip	;This will generate an error if
		endp				;the code overflows its space.

		eject
*******************************************************************************
*
* Framework for	building load segment seg_2.
*
*******************************************************************************

		SEG	'start_seg2'

seg_2_header	proc	org	seg_2_start-header_length,noskip

		msb	on

		dc.w	seg_2_end-seg_2_start
		dc.l	seg_2_start
		dc.w	0000
		dc.b	'SCM main body         v04.00'
		dc.b	00

		msb	off

		endp

seg_2_pad	proc	org	seg_2_start
		endp

		SEG	'end_seg2'

seg_2_end	proc
		endp

seg_2_overflow	proc   org   seg_2_max, skip	;This will generate an error if
		endp				;the code overflows its space.

		eject
*******************************************************************************
*
* Framework for	building load segment seg_3.
*
*******************************************************************************

		SEG	'start_seg3'

seg_3_header	proc	org	seg_3_start-header_length,noskip

		msb	on

		DC.W	seg_3_end-seg_3_start
		DC.L	seg_3_start
		DC.W	0000
		DC.B	'System Dispatch Table v04.00'
		DC.B	00

		msb	off

		end_proc

seg_3_pad	proc	org	seg_3_start
		endp

		SEG	'end_seg3'

seg_3_end	proc
		endp

seg_3_overflow	proc   org   seg_3_max, skip	;This will generate an error if
		endp				;the code overflows its space.
		
		eject
*******************************************************************************
*
* Framework for	building load segment seg_4.
*
*******************************************************************************

		SEG	'start_seg4'

seg_4_header	proc	org	seg_4_start-header_length,noskip

		msb	on

		DC.W	seg_4_end-seg_4_start
		DC.L	seg_4_start
		DC.W	0000
		DC.B	'SCM Bank E1 Code      v04.00'
		DC.B	00

		msb	off

		end_proc

seg_4_pad	proc	org	seg_4_start
		endp

		SEG	'end_seg4'

seg_4_end	proc
		endp

seg_4_overflow	proc   org   seg_4_max, skip	;This will generate an error if
		endp				;the code overflows its space.

		eject
*******************************************************************************
*
* Terminator
*
*******************************************************************************

		SEG	'terminator'

gs_os_term	proc	org	$1000,noskip
		DC.W	$ffff
		endp
		eject
		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/OS/SCM/Seg.Trace.Src b/IIGS.601.SRC/GS.OS/OS/SCM/Seg.Trace.Src
new file mode 100644
index 0000000..17af391
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/OS/SCM/Seg.Trace.Src
@@ -0,0 +1 @@
+
;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

m_temp		equ	$EC
seg		equ	$F0
seg_tab		equ	$4C
segment_size	equ	$2000
max_blk_size	equ	segment_size-6


;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

	ENTRY	act_seg
	ENTRY	free_blks
	ENTRY	seg_integ
	ENTRY	tot_blks
	
;======================================================================
;Patch GS/OS code.
;		This routine patches allocate and deallocate routines
;		in GS/OS.  We do this so we can detect memory failure.
;
;Input:		None
;output:	None
;
;======================================================================
alloc_seg	equ	$01FC1C		;alloc_zero
release_seg	equ	$01FC20		;deallocate

		longa	on
		longi	on
Patch		proc
		import	integrity_diag
		
		rep	#$30
		phk
		plb			;set my bank please
		
		lda	>alloc_seg	;we have the original address
		sta	self_mod1
		lda	>alloc_seg+2
		sta	self_mod1+2
		
		lda	our_allocate
		sta	>alloc_seg
		lda	our_allocate+2
		sta	>alloc_seg+2
;
;Patch Release_Seg code
;
		lda	>release_seg	;we have the original address
		sta	self_mod2
		lda	>release_seg+2
		sta	self_mod2+2
		
		lda	our_deallocate
		sta	>release_seg
		lda	our_deallocate+2
		sta	>release_seg+2
		rtl			;we our done!!!
		
		
our_allocate	jml	do_alloc_check	;Code that is stored in service vectors!!!
our_deallocate	jml	do_dealloc_check


do_alloc_check
		phb
		phk
		plb
		php
		jsl	integrity_diag
		plp
		plb
self_mod1	jml	$ffffff

do_dealloc_check
		phb
		phk
		plb
		php
		jsl	integrity_diag
		plp
		plb
self_mod2	jml	$ffffff
		rtl
		
		endp

;====================================================================================================
;Error_routine:	This routine will call the death manager with an error code.  The routine will not
;		return to the caller.  The routine is called with a JSR so I can display the
;		address if I want to.
;
;Input:        
;               A <- Offending segment's offset in the segment table
;               X <- Exception Code
;               Y <- Position in segment
;                   ..000...
;               b = k
;
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;
;====================================================================================================
	
		longa	on
		longi	on		
error_routine	proc
		
		sta	AReg
		stx	XReg
		sty	YReg
		sta	>$FFF000		;hit ROM for logic analyzer
		phx
		
		ldx	#ascii_size
@loop		lda	ascii_info,x
		sta	>$020000,x
		dex
		bpl	@loop
		
		plx
		txa
		pha				;push the error code
		
		asl	a			;times 2 for word table
		tay
		lda	error_tbl-2,y
		tax
		lda	#^error_tbl		;push high word
		pha
		phx				;push low word
		
		lda	#$0000
		sta	>$E100ff		;clear busy flag!
		cli				;make sure irq is enabled
		ldx	#$1503			;call the death manager
		jsl	$e10000
		brk	$ff

		string	pascal
err1            dc.b	'OSMem: bad leading subseg size: '
err2            dc.b	'OSMem: bad trailing subseg size: '
err3            dc.b	'OSMem: free block count conflict: '
err4            dc.b	'OSMem: used block in free list: '
err5            dc.b	'OSMem: forward link out of range: '
err6            dc.b	'OSMem: back link inconsistent: '
err7            dc.b	'OSMem: missing trailing dtag: ' 
err8            dc.b	'OSMem: missing forward dtag: ' 
		string	asis
Ascii_info
		dc.b	'Seg tbl offset'
AReg		dc.w	00
		dc.b	'Exception cond'
XReg		dc.w	00
		dc.b	'Pos in segment'
YReg		dc.w	00
ascii_size	equ	*-ascii_info


error_tbl
		dc.w	err1
		dc.w	err2
		dc.w	err3
		dc.w	err4
		dc.w	err5
		dc.w	err6
		dc.w	err7
		dc.w	err8
		endp

;======================================================================
; select_seg : Find the	next segment in	the segment table
;
;Created:	April 8, 1987
;Modified:	April 24, 1987
;Author:	Mike Askins
;
;Copyright Apple Computer Inc. 1987  All rights	reserved
;
;Input:		A = Offset of last segment searched
;		X = <undefined>
;		Y = <undefined>
;		P = nvmxdizc
;		    ..000...
;	  seg_tab = Pointer to segment table
;
;Output:	A = trashed
;		X = preserved
;		Y = Offset of newly found segment
;		P = nvmxdizc
;		    ..000..E  1	-> End of segment table
;		b = preserved
;	   m_temp = trashed
;
;======================================================================

select_seg	proc
		tay
		lda	[seg_tab]
		sta	m_temp
		bra	next_element

valid_entry					; 
		iny				;Move up to high word of entry
		iny
		lda	[seg_tab],y		;Check IT out...
		bmi	next_element2		;If the	MSB is set, free block
		dey				;Get back the current offset
		dey
		rts				;Return	with carry clear and Y

next_element					; 
		iny				;Move to next position
		iny
next_element2					; 
		iny
		iny
		cpy	m_temp			;Off the end
		blt	valid_entry		;Still less than the limit

high_tail_it					; 
		rts				;Return	CS : off end of	table 

		endp

		
mm_deref	proc				;Entry just to dereference a mm	handle

		tya				;Move the high part into the acc
		phb				;Save current DBR
		xba				;Swap so bank is pulled	last
		pha				;Push bank then	$00
		plb				;Pull the $00
		plb				;DBR now set for handle

		lda	|$0002,x		;Get low part
		tay
		lda	|$0000,x		;Get hi	part
		tax
		plb

nevermind
		rts
		endp

;==========================================================================
; integrity.diag : Check the structure of managed memory and crash to the
;                   monitor if an inconsistency is found.
;
; Created:      August 17, 1987
; Modified:     November 12, 1987
; Author:       Mike Askins
;
; Copyright Apple Computer Inc. 1987  All rights reserved
;
; Input:        A = <undefined>
;               X = <undefined>
;               Y = <undefined>
;
; Output:       A = preserved
;               X = preserved
;               Y = preserved
;               P = nvmxdizc
;                   ..000..E -> 'Out of Memory'
;               b = preserved
;          m_temp = trashed
;
;=======================================================================

; This routine checks all managed memory segments.  If it finds a problem
;  it gracefully crashes into the monitor with the registers set as follows:
;               A <- Offending segment's offset in the segment table
;               X <- Exception Code
;               Y <- Position in segment
;  Exception Codes:
;               $0001   Subsegment has leading size out of range
;               $0002   Subsegment has inconsistent trailing size
;               $0003   # of free blocks in segment inconsistent w/ free list
;               $0004   Used block found in free list
;               $0005   Forward link out of range
;               $0006   Backward link is inconsistent
;               $0007   Trailing dummy tab is missing
;               $0008   Leading dummy tag is missing

		EXPORT	integrity_diag  
integrity_diag  PROC

; Hey Mike, we killed this routine for the demo

                pha
                phx
                phy

                jsl     seg_integ
                bcc     okay
                jmp	error_routine

okay	; 
                ply
                plx
                pla
                rtl

		ENDP


		EXPORT	seg_integ       
seg_integ       PROC

; Walk the segment table checking each active segment to see if it is
;  currently valid.

                lda     #$0000
                sta     |act_seg        ;# of segments counter
                sta     |free_blks      ;# of free blocks counter
                sta     |tot_blks       ;# blocks (free+used) counter
next_seg	; 
                jsr     select_seg
                bcs     done_okay
                inc     |act_seg
                phy
                jsr     check_seg       ;Set Y and X if there's a problem
                pla
                bcc     next_seg

; Return the segment offset in A,...

                rtl                     ;Return:  THIS SEGMENT IS BAD!

done_okay	; 
                lda     #$0000          ;Zero out the results cuz memory's okay
                tax
                tay
                clc
                rtl                     ;Return:  MANAGED MEMORY IS OKAY!



check_seg	; 

; Check this segment (handle passed in X and Y).
;  Verify that ...
;               1)      The dummy tags are correct
;               2)      Each subsegment's length words are consistent
;               3)      The (doubly linked) free list includes only free blocks
;               4)      The backward and forward links of blocks in the
;                        free list are correct.

                lda     [seg_tab],y
                tax
                iny
                iny
                lda     [seg_tab],y
                tay
                jsr     mm_deref

                stx     <seg
                sty     <seg+2

                ldy     #$0002
                lda     #$8000
                cmp     [<seg],y        ;First dummy
                bne     out8

                ldy     #segment_size-2
                cmp     [<seg],y        ;Second dummy
                bne     out7

; Check each subsegment and verify that each one has matching size fields

                ldy     #$0004
                ldx     #$0000

next_block	; 
                lda     [<seg],y
                sta     <m_temp         ;Keep around the leading size
                bmi     nb1
                inc     |free_blks      ;Upkeep total amount of free blocks
                inx                     ;Count this guy if a free block
nb1	; 
                inc     |tot_blks       ;Count this sub-segment
                and     #$7FFF          ;Strip the top bit
                cmp     #max_blk_size+1
                bcs     out1            ;Leading block size too large

                pha                     ;Push leading size
                tya
                adc     1,s
                dec     a
                dec     a               ;Find the trailing size
                tay
                pla                     ;Throw it away
                lda     [<seg],y
                cmp     <m_temp
                bne     out2            ;Trailing block size inconsistent

                iny
                iny
                cpy     #segment_size-2 ;More subsegments?
                blt     next_block      ;Yup

; Now check the integrity of the free list by verifying each forward & backward
;  link.  Make sure that the number of free blocks discovered above is the
;  same as the number of blocks found in the free list.

                ldy     #$0000          ;Start out at the free list header
                lda     #$FFFE          ;Init the 'last visited' location
                sta     <m_temp

cs1	; 
                lda     [<seg],y        ;Get a block index
                beq     done            ;We are to the end of the list
                dex                     ;Count this object
                bmi     out3            ;Forward links say too many free blocks

                cmp     #$0004
                blt     out5            ;This index is too small
                cmp     #segment_size-1
                bge     out5            ;This index is too big

                tay
                lda     [<seg],y        ;Got the size of this block
                bmi     out4            ;Whoa... used block in free list

                phy                     ;Keep index while we get backward link
                iny                     ;Move to backward link
                iny
                iny
                iny
                lda     [<seg],y        ;Make sure the back link is correct
                ply                     ;Reclaim block's index
                cmp     <m_temp         ;Is that back link okay?
                bne     out6            ;Back link did not match last block idx
                sty     <m_temp         ;Sneak idx here for next back link check

                iny                     ;Move to forward link
                iny
                bra     cs1             ;Got index of next block...

done            txa                     ;Did # of free blocks = # in free list
                bne     out3            ;Too few items in the free list

                clc
                rts                     ;THIS SEGMENT IS MORE THAN WONDERFUL!

outout	; 
                sec
                rts

out7            ldx     #$0007          ;Trailing dummy tag is missing
                bra     outout
out8            ldx     #$0008          ;Forward dummy tag is missing
                bra     outout
out1            ldx     #$0001          ;Subsegment has a leading size error
                bra     outout
out2            ldx     #$0002          ;Sub has an inconsistent trailing size
                bra     outout
out3            ldx     #$0003          ;Free block count conflict
                bra     outout
out4            ldx     #$0004          ;Used block in free list
                bra     outout
out5            ldx     #$0005          ;Forward link out of range
                bra     outout
out6            ldx     #$0006          ;Back link inconsistent
                bra     outout


		EXPORT	act_seg
act_seg		DC.W	0		;# of segments counter
		EXPORT	free_blks
free_blks	DC.W	0		;# of free blocks counter
		EXPORT	tot_blks
tot_blks	DC.W	0		;# blocks (free+used) counter


		ENDP
		end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/P8/Ancient History b/IIGS.601.SRC/GS.OS/P8/Ancient History
new file mode 100644
index 0000000..a7b07ed
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/P8/Ancient History	
@@ -0,0 +1 @@
+******************************************************************
*
* NOTE: After each revision is made, the splash screen and the value
*       of KVERSION in the Global Page must be updated to reflect the
*
* Ver 1.0 - Written by J.R. Huston
*         - Updated and released by Dale M. Arends, Dec. 1983
*
* Ver 1.0.1 - by Dale M. Arends, January 1, 1984
*         1.  Bug in status call when testing write protect fixed.
*               (File: READ.WRITE)
*
* Ver 1.0.1A01 - Dale M. Arends, January 20, 1984
*         2.  Force FLUSH of after EOF cutback.
*               (File: CLOSE.EOF)
*
* Ver 1.0.2 - Dale M. Arends, February 7, 1984
*         3.  Replace LDAs with BITs in Interrupt entry area of
*             Global page so it won't destroy Accumulator.
*               (Files: GLOBALS)
*         4.  Fixed bug in Disk core routines so that motor is
*             certain to shut off after recal on an error.
*               (File: XRW1)
*
* Ver 1.0.2A01 - Dale M. Arends, February 13, 1984
*         5.  Rearranged MLI layout within Language Card.
*               (All Files Affected)
*         6.  Rearranged entry to XRW routines to make room for 
*             a CLD as first byte.  This is necessary since XRW 
*             routines are now at $D000 and the CLD flags bank as 
*             Main $D000 space.  Also added check for valid call
*             number (0-3).  (Both XRW files affected.)
*
* Ver 1.0.2A02 - Dale M. Arends, April 4, 1984
*         7.  Rewrote machine ID routine to allow for Phylums of
*             machines.    Ranges:  0n - //c
*                                   4n - ???
*               (File: PROLDR)      8n - ???
*                                   En - //e
*
*         8.  Removed support for boot in 48K machines.
*               (File: PROLDR)
*
* Ver 1.1XA01 - Dale M. Arends, May 3, 1984 
*         9.  Modified Interrupt routine to allow for new ROMs in //c
*             and //e machines.
*               (Files: PROLDR, EQUATES, GLOBALS, XDOSMLI)
*        10.  Removed check for OS version number in file OPEN routine.
*               (File: POSN.OPEN)
*        11.  Incremented KVERSION number in Global page.
*               (Files: GLOBALS)
*        12.  Modified DEVSRCH routine to correctly reflect the
*             presence of any 80-col card following established
*             signature byte protocol.
*               (File: DEVSRCH)
*
* Ver 1.1XA02 - Dale M. Arends, May 11, 1984
*        13.  Added routine to allow for firmware in slot 3 to be
*             enabled. In //e, internal $C300 firmware is enabled
*             if no ROM in slot 3.  This is necessary for interrupts
*             and BRKs to work.  NOTE: any ROMs in slot 3 MUST support
*             the 80-column interrupt and BRK entry points or an
*             interupt or BRK will cause a system hang.
*               (File: PROLDR)
*        14.  Added routine to turn off all disk motor phases prior
*             to SEEKing a track on a Disk II call.
*               (File: XRW2)
*
* Ver 1.1XA02 renamed Ver 1.1 - Dale M. Arends, June 14, 1984
*
* Ver 1.1 - by Dale M. Arends (New date in splash screen 7-19-84)
*        15.  Added routine for accessing user installed drivers
*             located in AUX Language Card.
*               (Files: PROLDR, MEMMGR)
* Ver 1.1 - by Dale M. Arends (New date in splash screen 08-17-84)
*        16.  Added work-around for bug when accessing /RAM after it
*             has been removed from DEVLST.
*               (File: NEWFNDVOL)
*        17.  Reduced the RAM DISK by 1 block to protect the interrupt
*             vector area of the Aux Language Card.  Interrupt vectors
*             installed in the Aux Language Card at boot time.
*               (File: RAM, PROLDR)
*
* Ver 1.1.1 - by Dale M. Arends (New date in splash screen 9-18-84)
*        18.  Fixed routine in RSETPHSE to map into Drive 1.
*               (File: XRW2)
*        19.  Rewrote Machine ID routine to give I/O precedence to
*             an identifiable 80-column card in Slot 3.
*               (File: PROLDR)  (See #12 above.)
*
* Ver 1.2XA01 - by Dale M. Arends - 10/3/84
*        20.  Added MLI Call for AppleBus and driver calling code.
*              (Files: EQUATES, PROLDR, XDOSMLI, MEMMGR, DATATBLS)
*        21.  Fixed bug in error return of Ram Disk Driver.
*              (File: RAM)
*        22.  Assigned a SYSTEM ERROR when error occurs in deallocating
*             blocks from a TREE file.
*              (File: DETREE)
*        23.  Fixed bug in zeroing of a VCB when trying reallocating
*             a previously used VCB.
*              (File: NEWFNDVOL)
*        24.  Modified Loader to automatically install up to 4 drives if
*             the Smart Driver follows the defined $CnFE bit protocol.
*              (File: DEVSRCH)
*        25.  Modified MLI entry routines to disable interrupts until
*             after MLIACTV flag is set and CMDADR is set up.
*             (Note: change is not noted in source code.)
*              (Files: GLOBALS, XDOSMLI)
*
* Ver 1.2XA02 - Lost in the Wilds of the San Jose Triangle.
*        (Go to the Bermuda Triangle and turn left.)
*
* Ver 1.2XA03 - by Dale M. Arends - 1/24/85
*        26.  Modified Dispatcher to treat the DELETE key as a
*              Back Space (Left Arrow).
*              (File: SEL)
*
* Ver 1.2XA04 - by Dale M. Arends - 1/28/85
*        27.  Modified splash screen to reflect version control loss.
*              (File: DEVSRCH)
*
* Ver 1.2XA05 - by Kerry Laidlaw - 2/11/85
*        28.  Modified the ONLINE call to zero out a VCB corresponding
*             to a disconnected device.  Previously if a user followed
*             our method on disconnecting a device by removing the
*             volume's device number in the device list, and removing
*             the device handler's address from the device vector table,
*             ProDOS never removed the corresponding VCB entry.  Now
*             in addition to the above, the user can then issue a 
*             specific ONLINE call to the user disconnected device.  A 
*             no device connected error ($28) will be returned in the 
*             accumulator, but the VCB will be taken off line.
*              (File: BFMGR)
*
* Ver 1.2XA06 - by Kerry Laidlaw - 3/20/85
*        29.  Fixed bug in PROLDR file that did not swap back correct 
*             bank.
*              (File:PROLDR)
*        30.  Added the "real" AppleTalk drivers that will reside in  
*             bank 2, $D400-$DFFF, in the Main Language Card.
*              (File:BUS)
*
* Ver 1.2xa08 - by Kerry Laidlaw - 5/15/85
*        31.  Updated Copyright Notices in source & in splash screen.
*              (Files:MLI,GLOBALS)
*        32.  Set KVERSION byte in global page to $82.  This version
*             ID byte is interpreted as follows:
*                The low 7 bits contain the ProDOS version number.
*                The high bit is set if this version of ProDOS 
*                supports AppleTalk.
*              (Files:GLOBALS)
*        33.  Removed 4 drive install code (see #24 above) to prevent
*             problems with applications.  Some applications would 
*             interpret unit numbers as mapping to physical slots.  Thus
*             even though unit numbers may only have a logical mapping,
*             these applications would assume a disk card is in the 
*             physical slot.  Therefore if an I/O card is in that slot,
*             the application wouldn't look for it.
*              (File:DEVSRCH)
*
*        34.  Commented out one to [sic] many pla's from the dispatcher
*             calling routine.
*              (File:MEMMGR)
*
*        35.  Added an unclaimed (spurious) interrupt handler. It allows
*             255 unclaimed interrupts before going to system death.
*              (File:XDOSMLI)
*
*        36.  Removed low res mode evocation when displaying system
*             death messages.  (It was buggy to begin with and it saves
*             me 6 bytes:lda c083,lda c086).
*             Also removed ability to display system death message 
*             without '-ERR xx' as part of the message.  This was done
*             to save space.  The system itself never used this ability
*             and hopefully no one else did either....
*              (Files:XDOSMLI,DATATBLS)
*
*        37.  Since the JSPARE vector in the global page was the only 
*             vector to the SYS.RTS routine which will halt the system
*             with an 'INSERT SYSTEM DISK AND RESTART' message), and 
*             JSPARE is overwritten by the loader with the dispatcher
*             calling vector, the 6 bytes starting at the SYS.RTS label
*             are now considered free space.
*              (File:GLOBALS)
*
*        38.  Deleted needless code that relocated Atalk drivers twice.
*             Also modified parameters that relocate interrupt file
*             MLI.3.
*              (File:PROLDR)
*
* Ver 1.2xa09 - by Kerry Laidlaw - 5/30/85
*        39.  Fixed bug in dispatcher that would trash screen holes
*             when code is called while in 80 column mode.  (Previously
*             HOME was called without the window size being updated to
*             a 40 column size.  Therefore the wrong BASCALC's were
*             done and zap!).  Now, I call SETTXT before calling home
*             which will set text mode and a 40 column window. 
*             I also commented out a lda #0 to reclaim needed space.
*              (File:SEL)
*
*        40.  Made code that zeroed user's index block in his I/O
*             buffer into a subroutine.  Saved 8 bytes.
*              (Files:READ.WRITE,POSN.OPEN)
*
*        41.  Set a flag in the DELETE code to signal the DETREE routine
*             NOT to zero index blocks upon deallocation.  This was done
*             so developers could write file recovery routines.
*              (Files:DESTROY,DETREE,WRKSPACE)
*
* Ver 1.2xa10 - by Kerry Laidlaw - 6/4/85
*        42.  Replaced two lda's and bit's with one sta to hit the bank
*             switches (c083,c08b).  Note: I am counting on the fact
*             that once into ProDOS, the LC is already in a r/w state.
*             Thereafter, you only have to hit the bank switch once to
*             switch banks and maintain a r/w state in the new bank.
*             Also note that this was done to preserve zero flag status
*             upon return from the network drivers.  The previous BIT's
*             would destroy that status.
*              (File:MEMMGR)
*
*        43.  Forced the /RAM driver to return zeros on block read 
*             requests to block 7, and do nothing on block writes to
*             block 7.  Previously, a block write to block 7 (an 
*             operation that is invalid anyway), would bomb out into
*             the monitor.  Read and writes to blocks 0,1,4,5,6, and
*             now 7 are all treated in this manner.
*              (File:RAM)
*
* Version 1.2xa11 - by Kerry Laidlaw 6/12/85
*        44.  Removed disabling of interrupts from loader.  Therefore 
*             the whether the processor allows interrupts or not is 
*             left up to the monitor.
*              (File:DEVSRCH)
*
* Version 1.2xa12 - by Kerry Laidlaw 6/21/85
*        45.  Initialized main stack to $ff and set up $101 in Aux
*             memory (if it is there) to $ff so programs using the
*             aux stack will be started off correctly.
*              (File:PROLDR)
*
*        46.  Fixed 2 bugs in XDOSMLI file: 
*             1) After processor is pulled to re-enable interrupts,
*                a CLD is now done to keep out of decimal mode.
*             2) Turning "off" MLIACTIVE flag is now done correctly
*                with an ASL after and initial ROR instead of the 
*                original LSR.
*
* New version id for fear of version confusion 12/13/85...
* Version 1.2 exp 01 - by Kerry Laidlaw 12/13/85
*        47.  The OPEN call will now return error $4B (unsupported or
*             incorrect storage type) instead of $4A (incompatible file
*             format for this version) when determining if it is legal
*             to open a file of a particular storage type.
*               (File: POSN.OPEN)
*
* Version 1.2 exp 02 - by Kerry Laidlaw 2/3/86
*        48.  Splash screen now shows "PRODOS 8" instead of "PRODOS".
*             Fixed a bug in the read call that would return the
*             incorrect number of bytes transferred when newline was
*             enabled.  If the requested number of bytes was greater
*             than $00FF, AND the number of bytes in the file AFTER the
*             newline character was READ was a multiple of $100, then
*             the number of bytes reported transferred by ProDOS was
*             equal to the correct number of transferred bytes + $100.
*               (Files: DEVSRCH, READ.WRITE)
*
*        49.  Removed fix from rev #41 that prevented index blocks 
*             from being zeroed after files were deleted.
*              (Files: DESTROY, DETREE, WRKSPACE)
*
*        50.  Added new clock driver to read the Cortland builtin clock.
*             The loader will now check for a Cortland to decide which
*             clock driver (slot or built-in) to install.
*             Stopped messing with slot 3 rom space if running on a 
*             Cortland.  The Control Program lets the user determine
*             internal vs. external slot space.
*             Also commented out bus references in equates file, since
*             it has now been decided that there be no Appletalk drivers
*             in this version of ProDOS8.
*              (Files: EQUATES, PROLDR, CCLOCK)
*
* Version 1.2 exp 03 - by Kerry Laidlaw 2/20/86
*        51.  Updated slot clock driver's year lookup table.
*             The year can now be calculated thru 1991.
*              (File: TCLOCK)
*
* Version 1.2 exp 04 - by Kerry Laidlaw 3/07/86
*        52.  Updated Cortland clock driver to adjust to new 
*             miscellaneous toolset call number.
*
* Version 1.2 exp 05 - by Kerry Laidlaw 3/13/86
*        53.  Updated DEVSRCH to special case a Smartport card
*             in slot 5 to allow 4 Smartport units. Driver entry 
*             addresses for these Smartport units would be placed in
*             the ProDOS global page's slot 5 and slot 2 driver vectors.
*             ProDOS unit numbers $50 & $D0 (slot 5, drives 1 and 2)
*             will correspond to Smartport units 1 and 2.  ProDOS unit
*             numbers $20 and $A0 (Slot 2 drives 1 and 2), will
*             correspond to Smartport units 3 and 4.
*              (File: DEVSRCH) 
*
* Version 1.2 exp 06 - by Kerry Laidlaw 04/03/86
*        54.  Updated Smartport unit special casing (see rev note #53)
*             to ensure the extra two unit numbers to have a $B in
*             the low nibble so the FILER won't have any problems
*             with formatting.  Also set version id byte (KVERSION) in
*             global page to $02 representing version 1.2.
*              (Files: DEVSRCH, GLOBALS)
*
* Version 1.2 D1 - by Kerry Laidlaw 06/22/86
*        55.  Crunched the dispatcher code to make room so the correct
*             soft switches and monitor routines could be called to
*             go to 40 columns and display text.
*              (File: SEL)
*
*        56.  Added feature to loader that will load and JSR to the
*             file "ATINIT" in the booting volume's root directory.
*             If the file is not found, no error is reported, and
*             the ".SYSTEM" file is executed as normal.  But if an
*             I/O error other than file not found is encountered 
*             or if the file type is not the ATINIT type of $f8
*             while loading "ATINIT", a fatal error is displayed.
*              (File: PROLDR)
*
*        57.  Added an alternate loader entry point.
*             The new entry is at $2003 and is intended to be called
*             be called only by the network boot code when booting
*             over the net, and by ProDOS 16 v1.0 on the Apple //-16.
*             The loader through this entry point will
*             NOT load the ATINIT file and will NOT load the 
*             .SYSTEM file.  It will set up ProDOS and RTS back 
*             to the caller to this entry point.
*             Because of this feature, the initialization of the
*             stack done in rev Note #45, was taken out....
*              (File: PROLDR)
*
*        58.  Added code to set MACHID byte to indicate a clock 
*             was present when ProDOS is run on an Apple //-16.
*              (File: PROLDR)
*
* Version 1.2A1 - by Kerry Laidlaw 06/30/86
*        59.  ATINIT file official file type now checked for is 
*             $E2.
*              (File: PROLDR)
*
* Version 1.2A2 - by Mike Askins   08/25/86
*        60.  The device searching process has changed.  SmartPort
*             devices are only installed if they exist and Disk //s
*             are placed in the device list so that they have the
*             lowest priority in device scans.  This should regularize
*             device numbering and naming in ProDOS/16.  Note that this
*             change caused the loader to grow by 256 bytes, and
*             everything beyond devsrch is moved by one page.
*              (File: DEVSRCH)
*
* Version 1.2B1 - by Mike Askins   08/25/86 
*        61.  The loader now passes a flag to Cortland at $FEFF to
*             indicate that we're running on a Cortland.  At system
*             death, if we're on a Cortland, a zero is stuffed into
*             $C029 disabling super hires so that the user can see the
*             system death message.
*              (Files: PROLDR, XDOSMLI, WRKSPACE)
*
*        62.  A parameter os.boot is now passed to Cortland AppleTalk.
*             If it is a stand alone ProDOS/8 (not P8/16 config) a
*             zero is stored in $E100BD.  Two branches had to be
*             extended to accomodate the code which does this (these
*             are marked).
*              (File: PROLDR)
*
*        63.  Two DS directives were altered (" ,0 " added) so that
*             they generated bytes with a fixed value.  Successive
*             builds should now compare byte for byte EXCEPT for the
*             date string (around 1550 decimal into PRODOS file).
*              (File: SEL)
*
*        64.  The logic of the newly added SmartPort handler in the
*             loader has been changed to fix a bug in V1.2A2 which
*             prevents installation of SmartPort devices in any slot
*             OTHER than 5.  The check for slot five was moved down
*             past the installation of drives 1 and/or 2.
*              (File: DEVSRCH)
*
* Version 1.2B2 - by Mike Askins   09/06/86 
*        65.  A bug is fixed in the loader which caused disk devices
*            in slot 2 to conflict ungracefully with more than two  
*            devices in slot 5.  Now, if any disk device is detected
*            in slot 2, NO MORE THAN 2 units are installed in slot 5.
*             (File: DEVSRCH)
*
*        66.  The Cortland Clock Driver now sets main memory before
*            doing the call to the miscellaneous tools to read the
*            clock hardware.  The main/aux state is then restored.
*
* Version 1.2B3 - by Kerry Laidlaw 09/07/86 
*        67. Updated cclock routine to correct the anding of the
*            state register.
*             (File:CCLOCK)
*
* Version 1.2   - by Mike Askins   09/08/86 
*        No changes
*
* Version 1.2   - by Mike Askins   09/23/86
*        68. Inserted a patch into RELOC to fix a bug in the 1.0 GS
*            ROM which caused the internal CX ROM space to be left
*            mapped in after a boot failure on SmartPort.  See the
*            documentation in RELOC to find out why the patch was
*            placed here (it has nothing to do with the RELOCation
*            process!).
*
* Version 1.2   - by Kerry Laidlaw 09/23/86
*        69. Fixed a bug in the dispatcher that trashes screen when
*            executed with the prefix set to nil.
*            Previously when an error occured when the pathname
*            was checked, the message at the top of the screen
*            was redisplayed. Now we are jumping so the message
*            is not redisplayed.  It saves us 2 bytes....
*             (File:SEL)
*
* Version 1.3   - by Mike Askins, Fern Bachman - 10/17/86
*        70. The code that resets the phase lines for Disk //s has been
*            changed so that the phase clearing is done with a load, not
*            a store.  Stores to even numbered locations on the disk
*            hardware cause data bus contention which is just not cool.
*            The routine has been changed to access all 8 even locations
*            which not only clears the phases but forces read mode (as
*            well as 1st drive and motor off) on entry to the disk code.
*            DOS used to do this and ProDOS did not.  If for some reason
*            (copy protection, runaway programs) l7 was left high on
*            entry to the disk routines, and the disk routines checked
*            write protect with l6 high:  BINGO -- we're in write mode.
*            Forcing read mode initially leaves less to chance.
*            to assemble ProDOS8 with cross reference tables.
*        71. The file MLI was changed to allow ASM816 version 1.4.2 to
*            allow for cross reference listings to be generated.
*            Assembling the file MLI generates ProDOS8 without listings.
*            Assembling the file L.MLI generates PorDOS8 with a listing.
*            NOTE: A blank RAM disk card called /RAM1 must be installed
*                  in the system to cross references to be generated.
*        72. The 'date' directive was removed in the file DEVSRCH
*            and an ASC 'xx-xxx-xx' directive replaced it.
*
* Version 1.3   - by Ray Chiang   11/07/86
*        73. In reference to rev notes 41 and 49, index blocks now
*            have their contents flipped when the file is deleted
*            and their contents are fully zeroed when EOF cutback
*            occurs.  This technique allows scavenging programs to
*            possibly recover files that were accidently deleted.
*            Also the possibility of unclaimed blocks 'looking'
*            like valid index blocks is reduced.  Previous to this
*            revision, whole index blocks from tree files were
*            being released back into the disk.
*            (files: DESTROY,DETREE,WRKSPACE)
*
* Version 1.3   - by Fern Bachman 11/17/86
*        74. The SmartPort interface card (our Liron interface card)
*            does not set up its device chain unless a ProDOS call
*            is made to it.  Therefore in DEVSRCH where Mike makes
*            SmartPort calls the card is not setup yet so it returns
*            00 devices in its chain.  This results in the card/drives
*            never being seen by ProDOS.  To fix that we will now make
*            a ProDOS status call before SmartPort status calls.  This
*            should guarantee valid device counts.
*            (file: DEVSRCH)
*
* Version 1.4   - by Ray Chiang/Fern Bachman 02/03/87
*        75. Fix illegal 65C02 instruction in 6502 code.  ie change
*            the BRA to a BEQ instruction.
*
* Version 1.4   - by Mike Askins/Fern Bachman 02/12/87
*        76. Changed RSETPHSE routine to only clear the phase lines.
*            And we clear Q7 so no writes can accidently occur.
*
* Version 1.4  - by Ray Chiang/Mike Askins 03/23/87
*        77. Simple programming error in fix 76 .
*
* Version 1.4 - Ray Chiang 04/17/87
*        78. No changes, released to SCM
*
* Version 1.5d1 - Grady Ward 2 Sep 87
*        79.  Fixed overrun problem in READ.WRITE 
*              Also, changed p16 patch addresses
*
*        80.  Made call to DEVMGR surrounded by NOP's so that
*              it can be patched by p16 and pquit more easily
*              (for both cache and AppleTalk booting)
*

* Version 1.5d7 - Grady Ward 20 Nov 87 Summary of Changes
*        81.  Change to READ.WRITE in tstwprot to disable interrupts
*              if going to use DMGR (Caching)
*
*        82.  P8 code has been extensively moved about to make room
*              for patches to DMGR dispatch (approximately 14 bytes 
*              were needed for AppleTalk booting patches caching patches)
*
* Version 1.5d8 4-Dec-87	Grady Ward
*
*        83.  Change some asc strings, like "system" uppercase.
*
* Version 1.5d11 20-Jan-88	Grady Ward
*
*        84.  Took out $42 generic AppleTalk Call
*
* Version 1.5b2 16-Feb-88	Grady Ward
*
*        85.  Restored asl mliactv to lsr in "exitmli"
*
*  NOTE:	Investigation of this change by Tim Harrington and myself
*	leads us to believe that the rationale for performing an
*	lsr on the "mliactiv" byte is to force the high bit to zero
*	unconditionally (note that the code is implemented so that
*	only the HIGH BIT of that byte serves as the flag to
*	indicate that an mli call is in progress when it is high,
*	and any documentation which states that the zero-value of
*	the entire byte serves as the busy flag is incorrect at
*	this time).  The reason for always forcing the busy flag
*	off, rather than restoring a previous value by use of an
*	asl instruction, is that the quit code never clears the
*	busy flag explicitly, and if control is passed to another
*	application by means of a quit call, that application will
*	inherit an environment in which the busy flag in set when
*	it should be clear; the quit call itself makes mli calls
*	(with the busy flag high--this is possible because the mli
*	never in fact checks the state of the busy flag at any time)
*	and as a side effect, the busy flag gets cleared when those
*	calls are completed because an lsr instruction forces the
*	high bit low.
*
*	This situation was a point of concern at this time because
*	the worstation software, PFI, vectors itself in as a shell
*	around P8, and is itself non-re-entrant.  The hope was that
*	the lsr could be changed back, again, to an asl in order to
*	allow "nested" busy conditions and assure that interrupt
*	routines would never re-enter PFI even if they were to gain
*	control during the time window between the completion of an
*	mli call and the completion of the PFI call which was "parent"
*	to that mli call.
*
*	The actual solution that was implemented is described in
*	revision note #100.
*	(Monte Benaresh -- April 1989)
*
* Version 1.5b3 1-Mar-88	Grady Ward
*
*        86. Clear ESC in keyboard if booting on Apple //c
*                ("slow" down for Zip Chip)
*
* Version 1.6 14-Jun-88		Grady Ward
*
*        87. Set up parallel pfixptr to fix
*                AppleTalk PFI misinterpretation
*                of two's comp prefix pointer
*
* Version 1.7 22-July-88	Grady Ward
*
*        88.  When setting eof backwards, make sure
*                 volumes bitmaps are counted before inc
*                 free blocks
*
*        89.  When installing ramdisk, make sure slot3rom
*                 is preserved rather than overwritten
*
*        90.  In system death, check "cortflag" rather than
*                 "cortland" to ascertain what system we're on
*
*        91.  Waited to restore slot3 firmware until just before
*                  gquit is called at jspare
*
*        92.  Now permit invisible bit to be set with set file info
*                  (bit 2 of d.attr byte)
*
* Version 1.8d1 01-Jan-89	Grady Ward
*
*        93.	Converted to MPW MAX assembler syntax
*
*        94.	Reworked conversion to preserve arrangement of code
*	as in v1.7.  Added vector to calldisp so that GQuit
*	can find it without having to hard-code that address.
*	This vector appears as a dc.w near the end of PROCTHREE.
*	(Grady Ward / Monte Benaresh -- December 1988)
*
*        95.	Fixed a problem where the sequence which destroys a file
*	aborts immediately without releasing the file's directory
*	entry if an I/O error occurs during deallocation of
*	blocks.  This situation leaves a directory entry for a
*	file which may be "partially deleted," i.e., some of the
*	entries in the file's index blocks may have been flipped.
*	If a user tries to delete the file again (after receiving
*	the I/O error) then the destroy code reads the partially
*	flipped index blocks and starts deallocating the wrong
*	blocks from the bitmap.  Obviously, this process can
*	ruin the integrity of the disk.
*
*	The fix causes the destroy sequence to mark the file's
*	entry as deleted even if an error occurs at any time
*	after the index blocks have been touched.  This remedy
*	was chosen given the restriction that almost no
*	bytes were available for expansion of the code.  With
*	the fix in place, the set of circumstances which
*	invoke the problem will at worst leave the disk with
*	blocks marked in the bitmap as used which belong to
*	no existing file, and stray index blocks which may
*	be partially flipped.  The user will still receive an
*	I/O error, but the file will then be absent from the
*	directory, and a subsequent attempt to delete the same
*	file will produce a "file not found" error (as would
*	normally be expected).
*
*	The implementation presumes a "critical point" in the
*	code sequence after which the file's directory entry
*	must be marked as deleted even if any operations
*	fail after that point (this point is marked in the
*	listing).  Since the code was designed to branch
*	whenever an error occurs, it was possible to change all
*	such branches (BCS) to point to the code which marks the
*	file as deleted in the directory.  This code is at the
*	label "zap_entry" and saves the accumulator (which
*	contains an error code or 0 if no error) onto the stack.
*	It then marks the memory image of the directory entry
*	as deleted and does a JSR to the routine which writes
*	the memory image out to the disk.  The code used to
*	simply jump to that routine because it was the last
*	task in the sequence, but the JSR is now necessary so
*	that the code which was pushed onto the stack can
*	be restored before returning to the user.  The ensuing
*	operation ensure that if either an error code was pushed
*	onto the stack or an error just occured when updating
*	the directory, some error will be returned (the more
*	recent code if both conditions are true).
*
*	Note that a "jsr upbmap" instruction was moved from after
*	the label "dst1" to its present position because no call
*	to a routine which might fail can occur after the "zap_entry"
*	label.  This move should be of no consequence.
*
*	The addition of the fix widened a branch that appears before
*	the label "dsdir3."  This motivated the inclusion of an
*	additional "relay" branch at "go_dstlast."
*
*	In order to accomodate the fix (and the extra branch)
*	several places in the code were "crunched" (in fact, the
*	branch mentioned above happens to appear in such a section).
*	A couple of CLC's before RTS's were commented out after
*	this engineer determined that they were redundant.  These
*	are at the labels "dsapdone" and "dseedone."
*	(Monte Benaresh -- January 1989)
*
*        96.	Fixed a bug where the ONLINE call didn't ignore the unused
*	low nybble of the unit_num parameter when deciding how
*	many bytes to zero out in the user buffer before filling it
*	in with the requested data.  Thus, if the user passed a
*	unit_num of, say, $01, P8 would zero out only the first 16
*	bytes of the user buffer, and then fill the buffer with up
*	to 256 bytes of data.  This is a problem because the user
*	was now left without the 2 null bytes which indicate the
*	end of the list when the list does not completely fill the
*	buffer.
*
*	The fix performs the mask and stores the result in "devnum"
*	for later reference and for the online1 subroutine in case
*	the unit_num is non-zero.  The online1 subroutine no longer
*	begins with "sta devnum."  For this reason, the "jsr
*	online1" just before the label "olin4" is now preceded by
*	"lda devnum."
*
*	The instructions at "olin1" used to be:
*
*		lda #1
*		sta cbytes+1
*
*	but have been replaced with simply "inc cbytes+1" since
*	"cbytes+1" was initialized to zero at the start of the
*	"online" sequence.  This was done to make room for the fix.
*	(Monte Benaresh -- January 1989)
*
*        97.	P8 now sets the video firmware "mode" byte ($4FB) to 0
*	and calls SETVID $FE93 again if running on a GS (Cortland).
*	This guarantees that the blinking "checkerboard" cursor
*	will be set up correctly when BASIC (or any other SYSTEM
*	program) gets control.  Before this change, the steady
*	solid block was appearing as the cursor if BASIC.SYSTEM
*	was launched from the finder under System Disk 4.1d10.
*	The fix appears between "savemach" and "itsp8" in
*	a section that only gets executed on a Cortland.
*	(Monte Benaresh -- February 1989)
*
*        98.	Added the "GS/OS compatibility" byte at $BFFA.
*	This byte appears at $50FA when P8 is loaded at $2000
*	(the usual load address).  GQuit now checks the value of
*	this byte after loading P8 to assure functional
*	compatibility.  The present value there is $01, and in
*	recent versions of P8 it has been $00.  For early versions,
*	there is code (which is to be relocated during P8's
*	startup sequence) at $50FA, but the actual values will not
*	interfere with this scheme until future compatibility
*	values climb very high ($2B).
*
*	Previously, GQuit checked the ASCII values of the
*	characters in the splash screen message, which required
*	GQuit to know their location.  The new scheme allows the
*	splash screen message to move (as it did for rev #97) and
*	also allows a compatible release of P8 to work with GQuit
*	even if P8's version number changes.
*	(Monte Benaresh -- February/March 1989)
*
*       98a.	Since some applications depend on the value of the
*	"kbakver" byte at $BFFE, which was the original choice
*	for the location of the "GS/OS compatibility" byte, its
*	value must be preserved as $00.  It is for this reason
*	that the GS/OS compatibility byte was moved to $BFFA.
*
*        99.	Removed the backward compatibility check that was being
*	performed when the user specified a path containing a
*	subdirectory.  The version and min_version fields are now
*	used by the GS/OS ProDOS File System Translator to store
*	upper/lower case patterns for names, so this test now
*	fails if performed on a subdirectory whose name includes
*	lower case characters as supported by the ProDOS FST.
*	Since the min_version field was never used in a meaningful
*	way, the BNE instruction in the test (before the label
*	tstpas0 in PROCTHREE) has been replaced by
*	two NOP's, so the test can never fail.
*
*	This code should actually be removed, as should all of
*	the code which supports password protection, which was
*	never functionally implemented.  Byte positions have been
*	preserved by the use of NOP's because this change comes
*	moments before the Beta release of System Disk 5.0, and
*	the incompatibility risks associated with shuffling code
*	(and recovering the space used by the bogus code) are
*	being deferred until the next release.
*	(Monte Benaresh -- March 1989)
*
*       100.	No code change.  A restriction has been imposed which
*	requires the entry point at the label "exit" on the global
*	page to remain at $BFA0, and for the state of the stack on
*	entry to that code to never change.  These restrictions are
*	added to support PFI, the workstation software, which
*	installs itself as a shell around P8.  PFI patches the code
*	at "exit" and manipulates return addresses on the stack in
*	order to assure that control never be passed to an interrupt
*	routine which intended to make an mli call but noted that
*	the "mli busy" flag (the HIGH BIT of the byte at "mliactv")
*	was high, and thus "deferred" its own execution by use of
*	the mechanism describe on page 108 of the ProDOS 8 Technical
*	Reference Manual in section 6.2.1, "Interrupts During MLI
*	Calls."  The problem involves the possibility of an
*	interrupt routine gaining control just after completion of
*	an mli call which was issued by PFI and before PFI was
*	itself done with its level of processing.  In such a case
*	the interrupt routine could then legally make a P8 call
*	which passed control to PFI, thus effectively re-entering
*	PFI.
*
*	To solve this problem, PFI now patches the "exit" code
*	and manipulates return addresses on the stack in such a
*	way that causes a deferred interrupt routine to gain
*	control only after PFI has finished its level of
*	processing and is ready to handle a P8 call if the
*	interrupt routine should issue one.
*	(Monte Benaresh -- April 1989)
*
*       101.	Expanded the size of the loader portion in order to make
*	room for a GS QuickDraw patch.  The loader portion of
*	the code is of predefined size and was previously $B00
*	bytes long.  This fact is hard-coded in  this file,
*	in the "ram.n file", and in the makefile, so expansion
*	of this area is a non-trivial task that required some
*	changes to be made by hand.  Those changes are logged in a
*	document titled "Loader Code Expansion Notes."
*
*	The patch, at label "InstallOSPatch," fixes a bug in the
*	5.0 System Disk where QuickDraw makes GS/OSª calls without
*	first checking that the System is installed in the machine.
*	The patch installs code which is vectored into the GS/OSª
*	entry points and returns an error for GS/OSª calls.  This
*	fixes things because QuickDraw handles GS/OSª errors properly.
*
*	The patch is called just before the label "itsp8" and
*	should only get executed when running on a GS and when P8
*	is being booted directly, i.e., not being installed by GQuit.
*	The patch disables interrupts (for no specific reason, only
*	as a precaution), switches the machine to native mode,
*	allocates memory for the "real" GS/OS patch, copies that code
*	into the allocated memory, sets up both GS/OSª entry points
*	to point to their appropriate pieces of the code, restores
*	the environment and then returns.
*
*	Since these changes must be reflected in GQuit, the value
*	of the GS/OSª compatibility byte on $BF00 page has been
*	changed from $01 to $02.  Also, GQuit now checks the size
*	of the P8 object file to ensure that it can find this byte
*	in the first place.  The size of the P8 file is now $3D7D
*	bytes.  The location of the GS/OS compatibility byte in
*	the P8 object file has moved from $50FA to $51FA.
*
*	Updated splash screen date text from "31-MAR-89"
*	to "23-MAY-89".
*	(Monte Benaresh -- May 1989)
*
* Version 1.9d1 - 12 Jun 90 - Greg Branche
*
*        102.	Bug fix to BRC #65472 - When displaying the message
*	'** SYSTEM PROGRAM TOO LARGE **', the code was looping
*	through the string intending to use the Y register as
*	a counter.  It was actually using a 'dex' instruction
*	instead of a 'dey'.  This has been corrected.
*
*        103.	Bug fix to BRC #65473 - When loading the first .SYSTEM
*	program found on disk, the code was making sure that
*	the program was not too big by checking the mid byte
*	of the file's EOF against the constant value $98.  This
*	was limiting the size of the file that could be loaded
*	to 38K when there's actually 39.75K available
*	($BF00-$2000).  This has been corrected by changing the
*	operand of the 'cmp' instruction to $9F.
*
*        104.	Redundant EQU's have been removed from ProcOne to
*	dispose of the assembler warnings.
*
*        105.	Loading X and Y for the subroutine call to 'reloc' has
*	been changed from absolute addressing to immediate
*	addressing.  This was done to save some space and
*	execution time (one less byte per load, plus the
*	addresses don't need to be stored in a table anymore).
*	This has been conditionally installed, though.  Only by
*	setting the 'needroom' equate to 1 will the changes
*	be made at assembly time.  Use the following line to
*	set the label value correctly.
needroom	equ 0
*
*        106.	An enhanced version of the Quit handler has been
*	added, along with the necessary logic to decide
*	which version of the handler to use.  The enhanced
*	version will automatically read a directory file
*	and display all files with type $FF or $0F (applications
*	or directories) for the user to select from.  The
*	user is allowed to use the arrow keys to move  a
*	selection cursor from name to name, RETURN to select
*	a name, TAB to step through the attached devices, or
*	ESC to close the current directory and step back one
*	directory in the pathname.  When the user presses
*	RETURN when the cursor is on a directory, that directory
*	is opened and the files contained within that directory
*	are displayed for selection.  If the selected file is
*	an application, the code will load the file and transfer
*	control to it.
*
*	This enhanced handler is only installed on //e or newer
*	machines that have an 80-column card installed.  Machines
*	that don't have the necessary hardware to support the
*	new handler will have the original QUIT handler installed.
*
*        107.	During a cold boot, if a .SYSTEM program can't be found
*	and the new quit code has been installed, the code
*	now performs a simple _Quit call to invoke the new
*	quit code.  This will allow the user to launch P8
*	without requiring a .SYSTEM program on the disk, yet
*	the user will still be able to select an application
*	to execute.
*
* Version 1.9B1 - 12 Jun 90 - Greg Branche
*	Only a version number change.  (Sure was easy!)
*
* Version 1.9   - 16 Jul 90 - Greg Branche
*	Golden Master build.
*
*	(Mods 110 & 111 performed 22 Aug 90 by Greg Branche)
*	(changes to source code bracketed by ;*** gab *** and ;*** end ***)
*
*       110.	Added support for second filename parameter when launching P8
*	applications from the P16 environment.  This convention is described
*	on page 88 of the ProDOS 8 Technical Reference Manual.  This is accomplished
*	by defining an alternate version of the dispatcher code that get's copied
*	to $D100-$D3ff in the second bank of the language card area of memory.
*	This normally get's patched by GQuit anyway, so the remainder of the code
*	might as well be used by GQuit to support the application launch.
*
******************************************************************
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/P8/Loader.Expansion.Notes b/IIGS.601.SRC/GS.OS/P8/Loader.Expansion.Notes
new file mode 100644
index 0000000..ea188e2
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/P8/Loader.Expansion.Notes
@@ -0,0 +1 @@
+
ProDOS 8 Loader Code Expansion Notes  by Monte Benaresh
May 19, 1989

Revised May 23, 1989 by Monte Benaresh


ABOUT THIS DOCUMENT

This document contains my log of steps taken to expand the "loader" portion of the
"P8" file on the GS/OSª System Disk.  This portion of code gets executed when P8 is
loaded into the machine and is then discarded once ProDOS is installed into the machine
(assuming the installation is successful).  This code includes special-cased routines
to set up the environment and to relocate the various drivers and managers to their
final execution locations.  This code also displays the splash screen, identifies
online devices, and loads the ".SYSTEM" file.

The loader portion of the code is of predefined size and is currently $B00 bytes long.
This fact is hard-coded in some of the P8 sourcecode and in the makefile, so expansion
of this area is a non-trivial task that presently requires some changes to be made by
hand.  This document is intended to be a log of those changes so that subsequent
attempts to expand the loader section will require the engineer to merely use this
document as a cookbook-type guide.  Better yet, the aforementioned interdependencies
could be bound by the build system so that expansion of the loader portion would be
automated.

This task is motivated by a need to make room for a patch which will support programs
which run under ProDOS 8 and which make QuickDraw2 calls.  This patch fixes a bug in
the 5.0 System Disk where QuickDraw makes GS/OSª calls without first checking that the
System is installed in the machine.  The patch installs code which is vectored into
the GS/OSª entry points and returns an error for GS/OSª calls.  This fixes things
because QuickDraw handles errors properly.

The patch is run during the load/setup phase of starting P8.  The loader code checks
that the current machine is a GS and that P8 is being booted directly, i.e., not
being installed by GQuit.  The patch disables interrupts (for no specific reason,
only as a precaution), switches the machine to native mode, allocates memory for
the "real" GS/OS patch, copies that code into the allocated memory, sets up both
GS/OSª entry points to point to their appropriate pieces of the code, restores the
environment and then returns to the P8 loader code.

This change is documented in rev note #101 in the P8 mlisrc.aii file.


NOTES

file; PROC; location				changes
--------------------				-------

ram.n; PROC RAM1; label "SRCE" (2 places)	"EQU $2B00" becomes "EQU $2C00"

ram.n; PROC RAM2; proc header			"ORG $2B00" becomes "ORG $2C00"

mlisrc.aii; before PROC PROCONE; label "ram_1"	"equ mli_0+$b00" becomes "equ mli_0+$C00"
						Hex addresses in comments on following
						equates should be updated.

mlisrc.aii; PROC PROCONE; label "ram_1"		exact duplicate of above change

mlisrc.aii; PROC PROCONE; label "loader_end"	from here to the end of the proc (ENDP):
							"$B00" becomes "$C00"
							"$2B00" becomes "$2C00"

make.p8; build commands for "ram.bin"		"-lseg RAM2 -org $002B00" becomes
						"-lseg RAM2 -org $002C00"

make.p8; build commands for "{workfolder}p8"	in "Overlayiigs" commands, all hex values
						after a "-a" directive must be augmented
						by $100, e.g., "-a $2F36" becomes
						"-a $3036"
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/P8/MliSrc.aii b/IIGS.601.SRC/GS.OS/P8/MliSrc.aii
new file mode 100644
index 0000000..ba96b27
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/P8/MliSrc.aii
@@ -0,0 +1 @@
+		pagesize 70
		machine	m6502

use_ram_drvr	equ	0	;set to 1 to include ramdrvr code

*	Put all	these equates outside the PROC so MAX assembler	can understand that
*	they are global	CONSTANTS.


		ENTRY	afbank
		ENTRY	aftirq
		ENTRY	bnkbyt1
		ENTRY	bubit
		ENTRY	calldisp
		ENTRY	cmdadr
		ENTRY	cortflag
		ENTRY	datelo
		ENTRY	datetime
		ENTRY	devadr01
		ENTRY	devcnt
		ENTRY	devlst
		ENTRY	devnum
		ENTRY	exit
		ENTRY	fix45
		ENTRY	gl_buff
		ENTRY	intaddr
		ENTRY	intareg
		ENTRY	intbankid
		ENTRY	intpreg
		ENTRY	intrupt1
		ENTRY	intrupt2
		ENTRY	intrupt3
		ENTRY	intrupt4
		ENTRY	intsreg
		ENTRY	intxreg
		ENTRY	intyreg
		ENTRY	irqent
		ENTRY	irqflag
		ENTRY	irqrecev
		ENTRY	irqxit
		ENTRY	irqxit0
		ENTRY	jspare
		ENTRY	kversion
		ENTRY	level
		ENTRY	machid
		ENTRY	memtabl
		ENTRY	mliactv
		ENTRY	newpfxptr
		ENTRY	old45
		ENTRY	pfixptr
	if use_ram_drvr then
		ENTRY	ramdrvr
	endif
		ENTRY	savex
		ENTRY	savey
		ENTRY	serr
		ENTRY	sltbyt
		ENTRY	spare1
		ENTRY	stapfx
		ENTRY	stypfx
		ENTRY	sysdeath
		ENTRY	sysdeath1
		ENTRY	syserr
		ENTRY	syserr1
		ENTRY	xdosver

dispadr		equ	$1000		; dispatcher load address
rwts		equ	$d000		; disk driver entry 

orig		equ	$d700

Proc1_Org	equ	$2000		; loader
Proc2_Org	equ	$BF00		; global page
Proc3_Org	equ	$DE00		; the MLI
Proc4_Org	equ	$FF9B		; language card irq, nmi, & reset

globals		equ	$bf00
inthandler	equ	$ff9b		; start	of interrupt handler.
network		equ	$d400		; applebus driver (main	lc - bank 2)

sp_status_list	equ	orig-$14	; used for SmartPort status call
sp_unitnums	equ	orig-$10	; used for SmartPort unit numbers
pathbuf		equ	orig
fcb		equ	orig+$100	; file control block
vcb		equ	orig+$200	; volume control block
bmbuf		equ	orig+$300	; bit map buffer
gbuf		equ	orig+$500	; general buffer

*  load	addresses in build.prodos basic	program
 if 0 then

mli_0		equ	$2000		; mli loader/relocater
ram_1		equ	mli_0+$C00	; $2C00	- installer for	/ram
ram_0		equ	ram_1+$100	; $2D00	- /ram driver in aux mem
ram_2		equ	ram_0+$200	; $2F00	- /ram driver in main lc.
mli_2		equ	ram_2+$100	; $3000	- mli
mli_1		equ	mli_2+$2100	; $5100	- global page
tclock_0	equ	mli_1+$100	; $5200	- tclock driver
mli_3		equ	tclock_0+$9b	; $529b	- interrupts
xrw_0		equ	tclock_0+$100	; $5300	- disk core routines
sel_0		equ	xrw_0+$700	; $5A00	- dispatcher

********* see rev note #106 *********

sel_1		equ	sel_0+$300	; $5D00	- Enhanced quit	code
************************************
********* see rev note #110 *********

sel_2		equ	sel_1+$300	; $6000	- GQuit	dispatcher support
************************************

********* see rev note #50 *********

cclock_0	equ	sel_2+$300	; $6300	- cortland clock driver
************************************

 else

mli_0		equ	$2000		; mli loader/relocater
ram_1		equ	mli_0+$C80	; $2C80	- installer for	/ram
ram_2		equ	ram_1+$80	; $2D00	- /ram driver in main lc.
mli_3		equ	ram_2+$9b	; $2D9b	- interrupts
mli_1		equ	mli_0+$E00	; $2E00	- global page
tclock_0	equ	mli_1+$100	; $2F00	- tclock driver
cclock_0	equ	tclock_0+$80	; $2F80	- cortland clock driver
mli_2		equ	cclock_0+$80	; $3000	- mli
ram_0		equ	mli_2+$2100	; $5100	- /ram driver in aux mem
xrw_0		equ	ram_0+$200	; $5300	- disk core routines
sel_0		equ	xrw_0+$700	; $5A00	- dispatcher
sel_1		equ	sel_0+$300	; $5D00	- Enhanced quit	code
sel_2		equ	sel_1+$300	; $6000	- GQuit	dispatcher support

 endif
tclk_in		equ	pathbuf+$42	; clock	driver execution address

* standard error codes 

badscnum	equ	$01		; bad system call #
badscpcnt	equ	$04		; bad call parameter count
intblful	equ	$25		; interupt table full.
xioerr		equ	$27
xnodrv		equ	$28		; no device connected.
xnowrite	equ	$2b		; disk/media is	hardware write protected
dswtched	equ	$2e		; wrong	volume is mounted on active device.
devoffline	equ	$2f		; device off line, or no disk in drive.
badpath		equ	$40		; invalid pathname syntax
fcbfull		equ	$42		; file control block full
badrefnum	equ	$43		; invalid refnum
vnferr		equ	$45		; volume not found
pathnotfnd	equ	$44		; pathname not found
fnferr		equ	$46		; file not found
duperr		equ	$47		; duplicate file name error
ovrerr		equ	$48		; not enough disk space	for preallocation
dirfull		equ	$49		; directory full error
cpterr		equ	$4a		; file incompatible sos	version
typerr		equ	$4b		; not currently	supported storage type
eoferr		equ	$4c		; position attempted beyond end	of file
posnerr		equ	$4d		; illegal position (l.t. 0 or g.t. $ffffff)
accserr		equ	$4e		; file access r/w request conflicts with attributes.
filbusy		equ	$50		; either write was requested or	write access already allocated.
direrr		equ	$51		; directory entry count	inconsistent with actual entries
notsos		equ	$52		; not an xdos diskette
badlstcnt	equ	$53		; invalid value	in list	parameter
vcbfull		equ	$55		; too many devices...
badbuf		equ	$56
dupvol		equ	$57		; duplicate volume can't be logged in.
bitmapadr	equ	$5a		; bit map disk address impossible

* fatal	errors

badirq		equ	$01		; unclaimed interrupt
vcberr		equ	$0a		; volume control block not usable
fcberr		equ	$0b
alcerr		equ	$0c		; allocation blocks invalid

* constants

seedtyp		equ	1
saptyp		equ	2
tretyp		equ	3
dirtyp		equ	$d
hedtyp		equ	$e
rdcmd		equ	$1
wrtcmd		equ	$2
statcmd		equ	$00		; request status, no error=ready 
pretime		equ	$20		; command needs	current	date/time stamp
preref		equ	$40		; command requires fcb address and verification
prepath		equ	$80		; command has pathname to preprocess

* volume status	constants (bits)


* file status constants

datalc		equ	$1		; data block not allocated.
idxalc		equ	$2		; index	not allocated
topalc		equ	$4		; top index not	allocated
stpmod		equ	$8		; storage type modified
usemod		equ	$10		; file usage modified
eofmod		equ	$20		; end of file modified
datmod		equ	$40		; data block modified
idxmod		equ	$80		; index	block modified
fcbmod		equ	$80		; has fcb/directory been modified? (flush)

* file attributes constants

readen		equ	$1		; read enabled
writen		equ	$2		; write	enabled
renamen		equ	$40		; rename ok when on.
dstroyen	equ	$80		; destroy ok when on.

* header index constants

hnlen		equ	$0		; header name length (offset into header)
*hname		equ	$1 		; header name
hpenab		equ	$10		; password enable byte
hpass		equ	$11		; encoded password
hcrdt		equ	$18		; header creation date
* hcrtm		equ	$1a		; header creation time 
hver		equ	$1c		; sos version that created directory
hcmp		equ	$1d		; backward compatible with sos version
hattr		equ	$1e		; header attributes- protect etc.
* hentln	equ	$1f 		; length of each entry
* hment		equ	$20		; maximum number of entries/block
hcent		equ	$21		; current number of files in directory
hrblk		equ	$23		; owner's directory address
hrent		equ	$25		; owner's directory entry number 
hreln		equ	$26		; owner's directory entry length 
vbmap		equ	hrblk
vtblk		equ	hrent		; (used	for root directory only) 

* volume control block index constants

vcbsize		equ	$20		; current vcb is 32 bytes per entry (ver 0)
vcbnml		equ	0		; volume name length byte
vcbnam		equ	1		; volume name
vcbdev		equ	$10		; volume's device
vcbstat		equ	$11		; volume status. (80=files open. 40=disk switched.) 
vcbtblk		equ	$12		; total	blocks on this volume
vcbtfre		equ	$14		; number of unused blocks
vcbroot		equ	$16		; root directory (disk)	address
*vcbmorg	equ	$18 		; map organization (not supported by v	0)
*vcbmbuf	equ	$19 		; bit map buf num
vcbdmap		equ	$1a		; first	(disk) address of bitmap(s)
vcbcmap		equ	$1c		; relative block address of bit	mapÉ
					;Éwith space (add to vcbdmap)
*vcbmnum	equ	$1d 		; relative bit map currently in memory
vcbopnc		equ	$1e		; current number of open files.
*vcb addr $1f reserved

* file control block index constants

fcbrefn		equ	0		; file reference number	(position sensitive)
fcbdevn		equ	1		; device (number) on which file	resides
*fcbhead	equ	2 		; block address of file's directory header
*fcbdirb	equ	4 		; block address of file's directory
fcbentn		equ	6		; entry	number within directory	block
fcbstyp		equ	7		; storage type - seed, sapling,	tree, etc.
fcbstat		equ	8		; status - index/data/eof/usage/type modified.
fcbattr		equ	9		; attributes - read/write enable, newline enable.
fcbnewl		equ	$a		; new line terminator (all 8 bits significant).
fcbfbuf		equ	$b		; buffer number
fcbfrst		equ	$c		; first	block of file
fcbidxb		equ	$e		; block	address	of index (0 if no index)
fcbdatb		equ	$10		; block	address	of data
fcbmark		equ	$12		; current file marker.
fcbeof		equ	$15		; logical end of file.
fcbuse		equ	$18		; actual number	of blocks allocated to this file.
*fcb addr $1a reserved
fcblevl		equ	$1b		; level	at which this file was opened
fcbdirty	equ	$1c		; fcb marked as	modified
fcbnlmsk	equ	$1f

* zero page stuff

par		equ	$40
device		equ	par+2
dhpcmd		equ	device
unitnum		equ	device+1
dbufpl		equ	device+2
dbufph		equ	dbufpl+1
bloknml		equ	device+4
bloknmh		equ	bloknml+1

intcmd		equ	dhpcmd

ztemps		equ	par+8
tpath		equ	ztemps
drbufpl		equ	ztemps
drbufph		equ	drbufpl+1
tindx		equ	ztemps
datptr		equ	ztemps+2
posptr		equ	ztemps+4
usrbuf		equ	ztemps+6

* xdos parameters: 

c_pcnt		equ	$0		; (count)
c_devnum	equ	$1		; (value)
c_refnum	equ	$1		; (value)
c_intnum	equ	$1		; (value)
c_path		equ	$1		; &2 (pointer) 
c_isnewl	equ	$2		; (mask)
c_datbuf	equ	$2		; &3 (value)
c_bufadr	equ	$2		; &3 (address)
c_intadr	equ	$2		; &3 (address)
c_mark		equ	$2		; ->4 (value)
c_eof		equ	$2		; ->4 (value)
c_attr		equ	$3		; (flags) 
c_newl		equ	$3		; (character)
c_bufptr	equ	$3		; &4 (pointer)
c_nwpath	equ	$3		; &4 (pointer)
c_filid		equ	$4		; (value) 
c_reqcnt	equ	$4		; &5 (value)
c_blknum	equ	$4		; &5 (address)
c_outref	equ	$5
c_auxid		equ	$5		; &6 (value) 
c_trnscnt	equ	$6		; &7 (value)
c_fkind		equ	$7		; (value) 
c_date		equ	$8		; &9 (value) 
c_outblk	equ	$8		; &9 (count)
c_time		equ	$a		; &b (value) 
c_moddate	equ	$a		; &b (value)
c_modtime	equ	$c		; &d (value)
c_credate	equ	$e		; &f (value)
c_cretime	equ	$10		; &11 (value)

altram		equ	$c083
irqvect		equ	$fffe		; location of irq vector
romirq		equ	$fa41		; monitor rom irq entry
m_break		equ	$fa59		; monitor break	vector
m_reset		equ	$ff59		; monitor reset	entry
m_and		equ	m_reset		; & vector
m_ctl_y		equ	m_reset		; control y vector
m_nmi		equ	m_reset		; nmi vector

rtbl		equ	$10
src		equ	$12
dst		equ	$14
cnt		equ	$16
cde		equ	$18
ecde		equ	$1a
look		equ	$0a		; must go at $000a!!
apple		equ	$0c
unit		equ	$43
home		equ	$fc58
gopro		equ	$bf00
lodintrp	equ	$800
pbuf		equ	$280
reset		equ	$3f2
name		equ	pbuf
prefix		equ	$c6
onlyne		equ	$c5		; mli online call # 
iopen		equ	$c8
igeof		equ	$d1
iread		equ	$ca
iclos		equ	$cc
getfileinfo	equ	$c4		; prodos get file info call number.
idbrd		equ	$80
mode		equ	$04FB
cout		equ	$FDED

* soft switches

ramin		equ	$c08b
ramin2		equ	$c083
romin		equ	$c082		; swap rom in, write protect ram
romin1		equ	$c081		; swap rom in w/o w-prot ram
slot3rom	equ	$c00b		; write	location to switch in slot 3 rom
read3rom	equ	$c017		; bit 7	=1 if slot space 3 enabled
int3rom		equ	$c00a		; write	location to switch in internal 3 rom

		print	push
		print	off
		INCLUDE	'M16.UTIL'

		macro
&lab		datestr
&lab		dc.b	'&sysdate'
		mend

					; these	next includes added for	the GS QuickDraw patch
					; see rev note #101
					;include 'All.macros'
		include	'e16.memory'
		print	pop

PROCONE		PROC	ORG Proc1_Org
procstart

		longa	off
		longi	off

		TITLE	' MLI Revision History'
******************************************************************
*								 *
*			C A U T	I O N S				 *
*								 *
* 1.  In the language card area, the $D000 areas overlay.  To	 *
*     determine	which bank is in requires that the main	bank	 *
*     has a CLD	instruction ($D8) at location $D000 and	the	 *
*     alternate	bank must not.					 *
*								 *
* 2.  Location $E000 is	used to	determine the state of ROM vs.	 *
*     language card.  Therefore, the values of $E000 in	the MLI	 *
*     and in the ROM MUST differ.				 *
*								 *
* 3.  In the file MEMMGR, the routines CALLDISP, RAMDRVR and	 *
*     DOBUS each must access the other $D000 bank.  Therefore,	 *
*     they MUST	reside ABOVE $E000 in the language card	area.	 *
*								 *
* 4.  In order to tell the difference between a	Disk II	with a	 *
*     DEVID of 0 and a Ram-based driver	with a DEVID of	0, the	 *
*     Disk II routines MUST start on a page boundary and the	 *
*     ram-based	driver caller (routine RAMDRVR in file MEMMGR)	 *
*     MUST NOT start on	a page boundary.			 *
*								 *
* 5.  In the ram disk driver (file RAM), the byte that assembles *
*     into location $FF58 MUST be a $60	(RTS) so that the usual	 *
*     routine to determine an I/O card's slot (by JSR $FF58)     *
*     will still work even if the Language card	is switched in.	 *
*								 *
* 6.  RWTS calling routine at $FF90 is hard coded at that	 *
*     address.	If /RAM	driver moves or	expands, the routine	 *
*     must be moved and	the dummy RWTS entry routine in	XDOSMLI	 *
*     must be changed.						 *
*								 *
* 7.  If the ram disk driver is	to be moved (to	make room more	 *
*     code), the value of the symbol Srce must be updated to	 *
*     reflect the change.  It is found in the file 'RAM' and	 *
*     should point to where the	basic builder 'build.prodos'	 *
*     loads the	RAM driver into	memory.				 *
*								 *
* 8.  Any changes in the size of PRODOS/8 must be accompanied	 *
*     by changes in P/16 load information... the size is hard	 *
*     coded there.						 *
*								 *
* 9.  WARNING!	There are at least four	absolute patches in p8	 *
*     from pquit and p16.  (1) Pquit "CallDisp"	about p8 FCE3	 *
*     (2) P16 ChangePath "TOTENT" about	p8 FE8A			 *
*     (3) P16 Entry/IsItOpen about p16 96fc about p8 EFA3	 *
*     "TSTOPEN"	 (4) Pquit's PLOADER direct patch into p8's	 *
*     block READ/WRITE dispatch	"godev"				 *
*     All of these must	be looked at if	there are any changes to *
*     p8.							 *
*								 *
* 10. AS OF 10/88, this	p8 is not associated with a p16		 *
*     therefore	there is no need to coordinate patches areas	 *
*     anymore when p8's code is moved about or reorganized.      *
*								 *
******************************************************************

******************************************************************
*
* NOTE:	After each revision is made, the splash	screen and the value
*	of KVERSION in the Global Page must be updated to reflect the
*
* NOTE:  Release notes for versions 1.0 through 1.9 can be found
* in an SCM-archived version of this file.  There's no need wasting
* space here for a lessing in ancient history. (GAB, 10 Jun 91)
*
* Version 1.9.1d1
*	110.	Added support for second filename parameter when launching P8
*	applications from the P16 environment.	This convention	is described
*	on page	88 of the ProDOS 8 Technical Reference Manual.	This is	accomplished
*	by defining an alternate version of the	dispatcher code	that get's copied
*	to $D100-$D3ff in the second bank of the language card area of memory.
*	This normally get's patched by GQuit anyway, so the remainder of the code
*	might as well be used by GQuit to support the application launch.
*
*	111.	The entry portion of the P8 file has been modified to add a third entry	point.
*	The third entry	point was added	so that	GQuit could have it's own entry point 
*	so that	the alternate dispatcher code could be copied to the language card.
*
*	In addition, a macro (datestr) has been	added to define	the date of the	version.
*	This macro simply uses the built in assembler variable &SYSDATE	to generate
*	an ASCII string	containing the date of the assembly.  This reverses the	change
*	made with rev note 72.
*
*	Loading	X and Y	for the	subroutine call	to 'reloc' has been changed from
*	absolute addressing to immediate addressing.  This was done to save some space
*	and execution time (one	less byte per load, plus the addresses don't need to
*	be stored in a table anymore).  This nullifies the effect of the 'needroom'
*	label mentioned in note 105.
*
* Version 1.9.1d2
*	112.	Added code right after the splash screen comes up to
*	force off the super-hires screen if we're on a GS.  Cool, eh?
*	(If we're NOT on a GS, it's important not to touch $C029, since	this banks
*	out ROM	on a IIc Plus.)
*
* Version 1.9.1d4 - 10 Jun 91
*	Cleaned up source.
*	Fixed "Relocation/Configuration Error" message display.
*	Fixed problem with truncating a sparse seedling or sapling file.
*	Fixed problem with filling up a volume during a WRITE call and ending
*	  up with the Mark located past the EOF.
*
* Version 2.0d5 - 17 Jun 91
*	Bug fix - BRC 68214 - P8 now returns an Invalid Pathname Syntax error
*	  when a Set_Prefix call is made with a pathname that contains a single
*	  '/' as it's only character.
*	A 65C02 or newer processor is now required to run P8.  The P8 Loader
*	  checks for the correct hardware and dies if it's running on a 6502.
*	Bug fix - BRC 78124 - The GS clock driver now limits the year value to
*	  be in the range of 0 through 99.
*
* Version 2.0d6 - 20 Jun 91
*	Removed doBus subroutine (used to provide support for AppleTalk, but
*	  AppleTalk intercepts the $BF00 vector directly anyways.  P8 should
*	  never see call #$42.)
*	Removed ramdrvr support, since the /RAM driver is supplied as a
*	  separate module anyways.
*	Replaced LDA #0, STA sequences with STZ instructions when possible
*	  (to free up some room for the following enhancement)
*	P8 now supports more than two devices per slot!  After mounting
*	  all possible devices using the old method, a new subroutine searches
*	  for SmartPort device interfaces which have more than 2 devices
*	  connected.  When found, the routine logs these devices into "empty"
*	  slots in the device table, with the device driver vector pointing
*	  to a routine in the MLI that translates the ProDOS call into
*	  a SmartPort call to the proper device.  (See new_mount in the loader,
*	  and remap_sp in the MLI.)
*
* Version 2.0d7 - 26 July 91
*	MLI now interprets a SetPrefix prefix string containing only a '/' as
*	  a null prefix, but does allow it without error.  This should keep
*	  BASIC.System happy.
*	NewMount now correctly mounts > 3 devices per SmartPort.  On the second
*	  iteration through FindBlockDevLp, the accumulator contained the high
*	  byte of the translator subroutine instead of the device number like
*	  it should have.
*	NewMount now makes a SmartPort Status call to device 2 prior to making
*	  the call to unit 0 to retrieve a count of the number of devices
*	  attached.  This is done to allow Cocoon to build it's internal
*	  device table and return a valid count.  Otherwise, the call will
*	  always return a count of 4.
*	New quit code fixed so that if it can't open a subdirectory, it
*	  simply beeps and allows the user to try another one instead of
*	  stepping forward to the next volume.
*	New quit code fixed so that ProDOS errors occurring within the
*	  directory read loop cause the file to be closed prior to continuing.
*	Changed LookFile so that when a file entry is synthesized for a volume
*	  header entry, the code checks for a forward link in the third
*	  and fourth bytes of the directory block.  If there is no forward
*	  link, the EOF and Blocks_used values will be reset to $200 and 1,
*	  respectively.  This corrects a problem when opening the root
*	  directory of the aux memory /RAM disk (which has only one
*	  directory block).
*	System Death message is now displayed in the center of the 40-column
*	  screen, bordered by inverse spaces.
*	New_Mount subroutine changed so that it ensures that the Language
*	  card is write-enabled prior to storing information into the
*	  SmartPort call translation tables.
*	SmartPort translation tables grown by 1 byte to allow for slot 0
*	  (keeps the indexing simple).
*
* Version 2.0d8 - 19 Sep 91
*	Changed BMI to BEQ between srtdsk2 and srtdsk3 after decrementing Y.  Y
*	  contains # of devices found in the boot slot.  If there's only one
*	  device in the slot, but there're devices in other slots, doing a BMI
*	  following a DEY was allowing the code to assume there were two devices
*	  in the slot.  This left one extra device id on the stack after rearranging
*	  the device list, which caused a crash when the eventual RTS was encountered.
*
* Version 2.0d9 - 23 Sep 91
*	Various code optimizations to support the following addition.
*	Add logic in fnddvcb to free an entry in the VCB table when the table is
*	  full and a new volume comes online.
*	new_mount changed so that when a device gets mirrored to an unused slot,
*	  the slot used can't already have a SmartPort interface installed.  This
*	  confuses Print Shop GS.
*
* Version 2.0d10 - 9 Oct 91
*	Better Bye quit code rearranged so that the screen is cleared PRIOR to
*	  loading the selected application.  This ensures that mslot ($07f8) is
*	  set to the proper value ("boot" slot) prior to starting up the app.
*	  This allows ProBoot (GS/OS ProDOS file) to start up GS/OS correctly.
*
* Version 2.0d11 - 30 Oct 91
*	Bug fix at errnoref - was attempting to zero out a refnum in the fcb
*	  table, but was using "fcbptr" as a label instead of "fcb".
*
* Version 2.0d12 - 05 Nov 91
*	Bug fix in remap_sp - wasn't copying the high byte of the block number
*	  from the ProDOS parameters to the SmartPort parameter block.
*
* Version 2.0d13 - 12 Nov 91
*	Bug fix in remap_sp - wasn't translating the status byte returned by a
*	  STATUS call into appropriate error codes (e.g. WriteProtected).
*	Even MORE code compaction to make room for the above fix.
*	Added logic in original device search code to make a SmartPort Status
*	  call to device #2 of a SCSI SmartPort to allow Cocoon to build its
*	  internal device tables and report the TRUE number of devices attached.
*
* Version 2.0 (Final) 6 Feb 92
*	Fixed crash when booting directly into P8 from a 5.25 drive.  When I
*	  made the change in 2.0d8, I mistyped my intended BEQ and it turned
*	  into a BNE.  Oops!  (See, I'm only human!)
*
* Version 2.0.1 (for 8-bit system 4.0??, GS 6.0) 26-Feb-92 Dave Lyons
*       Fixed bug in remap_sp.  Status call was returning error $40 whenever
*         it tried to return no error.  Changed CMP # to EOR # (no bytes moved).
*       Changed splash screen to 2.0.1, KVersion to $21.
*
************************************************************************
*
* Version 2.0.2d1 for 8-bit 4.0 and GS 6.0.1, 8-Jun-92 Dave Lyons
*	Changed splash screen to 2.0.2d1, KVersion to $22.
*	Removed slot 3 drive 2 from the MountDirection table.
*
* Version 2.0.2d2  10-Jun-92 DAL
*	Made RELOCATION/CONFIGURATION ERROR uppercase again (like 1.9)
*	so it will be legible on a II+.  After displaying the message,
*	hang with BMI instead of BRA, for pre-65C02.
*
* Version 2.0.2d3  18-Aug-92 DAL
*	Change the "(C)APPLE'83" message at $BF40 to start with a $00,
*	in hopes of preventing crashes when applications use the code
*	in the ProDOS 8 Technical Reference to remove /RAM.
*
* 2-Sep-92 DAL
*	Changed page-3-init table to initialize NMI jump to $00 $40 $00
*	instead of JMP $FF59.
*
* Version 2.0.2d4 22-Oct-92 DAL (for 6.0.1d12)
*	Added and then removed the following change:
*	 ;Just before jumping to the SYS program, if UNIT ($43) is still
*	 ;zero, make it something else, because zero is dangerous (if fed to
*	 ;ON_LINE, for example, it will return much more data than expected).
*	 ;This should only be zero in the somewhat strange case that you
*	 ;network-booted into GS/OS, and then switched to P8 but have so many
*	 ;devices online that your boot volume isn't in DEVLST.
*	Optimized some stuff in the loader to make room.
*
* Version 2.0.2   2-Nov-92 DAL (for 8-bit System 4.0.1)
*	Changed version number to 2.0.2.
*	Conditionally removed the d4 optimization, since we don't need the
*	  bytes right now (lower risk to not change it!).
*
************************************************************************
*
* Version 2.0.3d1   24-Mar-93 DAL (for 6.0.1d15)
*	Changed version number to 2.0.3d1, copyright to 93.
*	KVersion is $23.
*	Updated the Thunderclock year table for 1993-1998.
*	When we don't have a 65C02, instead of saying "relocation/
*	configuration error" we put a message below the P8 version
*	line so it looks like this:
*
*                            Apple II
*                 ProDOS 8 V2.0.3    16-Dec-92
*            REQUIRES EHHANCED APPLE IIE OR LATER
*
*	Apple II+ users will not be able to read the lowercase, but
*	they can read the REQUIRES part.
*
*	Removed the message "**  Unable to find a ".System" file  **".
*	We always use the Quit code if there is no .System file.  The
*	old check was flawed anyway--it was invalid after running the
*	ATINIT file.
*
* Version 2.0.3	  2-Apr-93 DAL (for GS System 6.0.1)
*	Changed version on splash screen to 2.0.3.
*
************************************************************************

		TITLE	' ProDOS Kernel Loader'

twoCMask	equ	%0000000	; AND mask used	to identify //c	machine	ID
statereg	equ	$c068

;NOTE:	to maintain compatbility with Double Exposure, the first instruction
; here MUST be a JMP ($4C).  DO	NOT ALTER!!!

		jmp	prostart	; normal boot entry point....
		jmp	atalkstart	; setup	and rts	entry point...
		jmp	p16start	; GQuit	setup and rts entry point...

		msb	on
slin1		DC.B	'Apple II'	; 8 Chars Exactly

slin2		DC.B	'ProDOS 8 V2.0.3      '		;2-Apr-93 DAL

		datestr			; date (no leading spaces unless date <10) (macro call)
slin3		DC.B	'            '
slin4		DC.B	'Copyright Apple Computer, Inc., 1983-93' ; 39 chars 
slin5		DC.B	'All Rights Reserved.'
grt6
grtlz		equ	(slin3-slin2)/2
grtlzz		equ	(slin4-slin3)/2
grtlzzz		equ	(grt6-slin5)/2
		msb	off

p16start
		inc	setuprts	;GQuit setup and rts entry point...
atalkstart
		inc	setuprts	; setup	and rts	entry point....(for network booting)

*********************************************
prostart
		lda	unit		; get boot device number.
		sta	bunit		; save it for later 'prefix'
		jsr	greet		; put up greeting message.

; ensure we're running on at least a 65C02

		sed			; go into BCD mode
		lda	#$99		; a negative number in BCD
		clc
		adc	#$01		; +1 in BCD mode = 0 (a positive number)
		cld			; back to binary mode
		bmi	m48k		; a 6502 will not clear N flag here

		machine	m65C02		; now we can start using 'C02 instructions

**************** see note #68 *****************

* patch	for the	gs rom... force	the intcxrom bit off
*  to guarantee	that the internal/external status of 
*  the slots are set per the control panel.
*

		lda	#1
		trb	statereg	; we have forced off intcxrom

************************************************

		ldx	#<tablitp	; move interpreter loader to $800
		ldy	#>tablitp
prostart1
		jsr	reloc
		bcs	m48k		; branch if error

proldr1
		ldy	#0
		lda	#$ff		; make sure there is 
		sta	$bfff		; at least 48k.
		eor	$bfff
		sec
		bne	m48k		; branch if not.
		sta	$bfff		; try again. once may have been	luck!
		lda	$bfff
		bne	m48k		; hitch	to hitch
		lda	romin
		jsr	whchrom		; get preliminary system configuration
		bcs	m48k		; branch if apple /// emulation
		lda	apple		; test for 48k configuration
		and	#$20		; by testing for 64k plus.
		bne	m64k		; branch if >48k
*** changed 24-Mar-93 DAL
;;;m48k		jmp	nogood		; must have at least 64k
m48k		jmp	NeedEnhancedIIe
*** end 24-Mar-93

m64k		ldx	#<tabl64	; now move/relocate whatever we	got.
		ldy	#>tabl64
		jsr	reloc
		lda	kversion	; get current revision number
		sta	xdosver		; and save it for directory use
*** changed 24-Mar-93 DAL -- m48k now shows a need-enhanced-IIe-or-later message
nogood0					; hitch	to nogood jump
;;;		bcs	m48k
		bcc	@1
		jmp	nogood
@1
*** end 24-Mar-93
		lda	romin
		ldx	$fbb3		; look for //e family
		cpx	#6
		bne	id1
		lda	#$e0		; phylum check on high 2 bits
		bit	$fbc0		; another approved location
		php			; save the results from	the bit
		lda	apple
		and	#$37		; mask off bits	7,6 and	3
		plp			; get results back
		bvc	set3		; //c or //x
		bmi	set7		; branch if //e
set3		php			; save the results from	the bit	again
		ora	#$8		; set bit 3 on
		plp
		bpl	mach2		; branch if //c
		ora	#$40
		bpl	savemach	; always...
mach2		inc	|cflag-licode+lodintrp ; make it easy to see if	we're on //c later
		bvs	savemach
set7		ora	#$80
savemach	sta	apple

		lda	romin		; enable rom for cortland id routine.
		sec			; carry	will determine if cortland or not.
		jsr	$fe1f		; rts in all a //'s prior to cortland
		bcs	itsaiie		; branch if really a //e.
		inc	cortland	; set loader's cortland flag!

*		lda	#$00		; force	setvid to reset	cursorÉ	    <----|   rev
		stz	mode		;Éwhen running on a Cortland	    <----|   note
		jsr	$FE93		; call setvid (again)		    <----|   #97

* if setuprts is zero, zero out	os.boot	for appletalk.
*  (setuprts reflects whether we're prodos 8 regular or running with
*  the p16 shell.

		lda	setuprts
		bne	itsp8
**** the os.boot value is hardwired to $e100bd ****
****  and the dfb defines a 65816 sta absolute long ****
		DC.B	$8f,$bd,$00,$e1	; zero is already in acc

		jsr	InstallOSPatch	; routine to patch QD2 on GS.  See revÉ
					;Énote #101.
itsp8

****************************************
itsaiie
****************************************
id1
		lda	bunit		; place	boot devnum in globals.
		sta	bbunit
		sta	lstdev
		jsr	devsrch		; finish setting up globals.
		lda	bbunit
		sta	lstdev
		jsr	lc1in
		ldx	#<rlclk64	; and set up clock.
		ldy	#>rlclk64
		jsr	reloc
nogood1		bcs	nogood0		; give up any time we got problems.

*  dispatcher 1	must go	in bank	2 of language card
*    in	a 64k or larger	system.

		lda	#<calldisp
		sta	jspare+1	; put dispatcher relocater address
		lda	#>calldisp	; into jspare vector.
		sta	jspare+2
		lda	ramin2
		lda	ramin2		; switch in bank 2

		ldx	#<altDspTbl	; use the alternate dispatcher segment
		ldy	#>altDspTbl
		lda	setuprts	; is this a GQuit setup?
		cmp	#2
		beq	@do_it		; yes, so use GQuit's dispatcher segment

		ldx	#<newQuitTbl	; else assume we're gonna use the new quit code
		ldy	#>newQuitTbl
		lda	machid		; get machine ID byte again
		bit	#twoCMask	; running on a //c?
		bne	@do_it		; yes, we can use the new stuff
		and	#%11000010	; //e w/80-column card?
		cmp	#%10000010
		beq	@do_it		; yes, use the new stuff
;		  else must use	the original quit code
		ldx	#<dsp64		; relocate dispatcher and rwts
		ldy	#>dsp64		; drivers to main lc, b2.
		inc	newQuitFlag	; old quit code	is installed, set flag
@do_it
		jsr	reloc
		lda	#$ee		; nonsense byte	to distinguish bank 2
		sta	$d000
		jsr	lc1in		; switch bank 1	back in
		bcs	nogood1		; leap-frogs to	m48k, which jumps to nogood

* test for 128k	so ram disk can	be installed

chkram		lda	machid
		and	#$30
		eor	#$30
		bne	noramdsk	; branch if less than 128k system

		ldx	#$ff		; x used to init aux sp	to $ff.
		php			; save interrupt status
		pla			; in a reg.
		sei			; no interrupts	for safety sake.
		sta	$c009		; swap in aux lc & zp &	stack.
		stx	$101		; init aux sp to $ff.
		sta	$c008		; back to main lc, zp, and stack.
		pha			; restore
		plp			; interrupt status.
		sta	int3rom		; make sure internal slot 3 rom	is in
		jsr	ram_1		; go install ramdisk

*  now check for interrupt vector.  if vector <$d000 then we
*    have new roms and should re-point vector in language card to
*    rom vector	and set	a flag byte.  in vector	is >$d000, reset
*    flag byte and do nothing.

noramdsk
		lda	romin1		; switch in rom 
		ldy	irqvect
		ldx	irqvect+1	; get hi byte of irq vector

* the jsr lc1in	was moved here from after the bcs chk4card so the
* sta irqflag is written to the	proper bank.

		jsr	lc1in		; put the lc,b1	for r/w	back now!

		cpx	#$d0		; is it	>$d000 (old roms)
		lda	#0		; anticipate not
		bcs	chk4card	; but branch if	they are old roms
		sta	$c009		; swap aux lc, zpg and stack
		lda	#$ff		; set aux stack	pointer	at $ff
		sta	$101		; while	we're here.
		stx	irqvect+1
		sty	irqvect		; save rom vector in aux lang. card
		sta	$c008		; swap in main lc, zpg and stack
		stx	irqvect+1
		sty	irqvect		; save rom vector in main lang.	card
		lda	#1		; set irqflag to show new roms
chk4card	sta	irqflag

		stz	cortflag	; assume we're not on a cortland
		lda	cortland	; are we running on a cortland?
		beq	nocort		; if not branch, and muck w/slot 3!
		inc	cortflag	; make it a one	if we're on cortland
		bra	docard
nocort

*  check for a rom in slot 3.  switch in internal $c300	firmware
*    if	no rom seen.

		sta	int3rom		; start	with internal firmware switched	in
		lda	sltbyt		; get slots rom	pattern
		and	#8		; mask off all but slot	3
		bne	isromin3	; branch if there is rom in slot three.
		bra	noslot3rom	; continue with	boot....
isromin3

* we've seen a rom in slot 3.  is it an external, identifiable 
*   80-col card	with interrupt routines?  if so, enable	it.  if	not,
*   switch in the internal $c300 firmware.

		sta	slot3rom	; switch in slot 3 rom
		lda	$c305		; 1st generic terminal card id byte
		cmp	#$38
		bne	hitswtch	; branch if not	a terminal card.
		lda	$c307		; 2nd generic terminal card id byte
		cmp	#$18
		bne	hitswtch	; branch if not	a terminal card.
		lda	$c30b		; 3rd generic terminal card id byte
		cmp	#$01
		bne	hitswtch	; branch if not	a terminal card.
		lda	$c30c		; is it	an apple 80-col	card compatible?
		and	#$f0		; mask off lo nibble
		cmp	#$80		; and check for	$8n   
		bne	hitswtch	; branch if not	an 80-col card.
		lda	machid		; get the machine id
		and	#$c8
		cmp	#$c0		; is is	a //+?
		beq	docard		; branch if it is.
		lda	$c3fa		; check	for interrupt handler routine
		cmp	#$2c		; in the magic $c3fa spot.
		beq	docard		; branch if interrupt handler is there!
hitswtch	sta	int3rom		; internal $c300 rom

* verify that the card in the aux slot is actually there.

		sta	$c001		; 80-store
		sta	$c055		; page2
		lda	#$ee
		sta	$400
		asl	a
		asl	$400
		cmp	$400
		bne	maybe		; branch if not	there
		lsr	a
		lsr	$400
		cmp	$400
maybe		sta	$c054		; main memory
		sta	$c000		; 80-store off
		beq	docard		; branch if card is there
		lda	machid		; get machine id byte
		and	#$fd		; mask off 80-col bit
		bne	docard1		; always..

* ok, the card's good.  leave it enabled and update the machid.

docard		lda	machid		; get machine id byte
		ora	#2		; turn bit 2 on	to show	80-col card
docard1		sta	machid

noslot3rom
		lda	cortland	; are we running on a cortland?
		beq	notcortland	; branch if not.
		lda	#$4c		; enable clock routine by
		sta	$bf06		; putting a jmp	in front of clock vector.
		ldx	#<cortclock	; now set up for relocating
		ldy	#>cortclock	; the cortland clock driver.
		jsr	reloc		; and relocate it.

		lda	#1		; denote clock present in machid byte!
		tsb	machid		; bit 0	set to 1.
notcortland
		lda	setuprts	; get value of setup entry point flag...
		beq	norts		; branch if normal boot...
		lda	romin		; make sure the	rom is in for consistancy...
		rts			; return to the	caller at the setup entry point. ($2003)
setuprts	dc.b	0		; 0->normal boot; <>0->return.
norts
* now set prefix to boot device.

		jsr	gopro		; first	'online'(was labled bootpfx,#en3)
		DC.B	onlyne
		DC.W	olparm
		bcs	nogood		; branch if problems.
		lda	pbuf+1		; get volume name length.
		and	#$f		; strip	devnum.
		beq	nogood		; branch if error.
		inc	a		; add 1	for leading '/'
		sta	pbuf		; save prefix length.
		lda	#$2f		; place	leading	'/' in pbuf.
		sta	pbuf+1
		jsr	gopro		; set prefix.
		DC.B	prefix
		DC.W	prparm
		bcs	nogood		; branch if problems.
		tax			; acc =	0 after	successful mli call
		stx	dst
		ldy	#2		; read directory into buffer starting
		lda	#$c		; at $c00
rdbdir		sta	dst+1
		sta	dbbufr+1	; (using a pointer in zero page	also)
		sty	dbblok
		stx	dbblok+1
		jsr	gopro
		DC.B	idbrd		; block	read
		DC.W	dbprms
		bcs	nogood
		ldy	#3		; get next block number	from link
		lda	(dst),y
		tax
		dey
		ora	(dst),y		; if both bytes	are the	same i.e. 0, 0
		beq	edbrd		; then no more blocks of directory
		lda	(dst),y
		tay
		lda	dst+1
		clc
		adc	#2		; add $200 to buffer pointer until buffer
		cmp	#$14		; points past $13ff.
		bcc	rdbdir		; if ok, read next block
edbrd
		jmp	lodintrp	; all is well, load interpreter!!!

nogood		sta	romin		; make sure rom	is there. 
		jsr	home		; clear	video.
		ldy	#meslen		; print	message	centered on screen.
prmess		lda	errmess,y
		sta	qscrn,y
		dey
		bpl	prmess
;;;hang		bra	hang
hang		bmi	hang		;10-Jun-92 DAL for pre-65C02

		msb	on
meslen		equ	&len('RELOCATION/CONFIGURATION ERROR')-1
errmess		DC.B	'Relocation/Configuration Error'	;changed back to mixed case 24-Mar-93 DAL
;;;errmess	DC.B	'RELOCATION/CONFIGURATION ERROR'	;10-Jun-92 DAL
qscrn		equ	$5a7+((40-meslen)/2)	; screen address to store message at

*** added 24-Mar-93 DAL
NeedEnhancedIIe	ldy	#IIeMessEnd-IIeMessage-1
@prmess		lda	IIeMessage,y
		sta	$6a8+2,y
		dey
		bpl	@prmess
@hang		bmi	@hang

IIeMessage	dc.b	'REQUIRES ENHANCED APPLE IIE OR LATER'
IIeMessEnd	equ	*

*** end 24-Mar-93

olparm		DC.B	$02
bunit		DC.B	$60
		DC.W	pbuf+1


prparm		DC.B	$01
		DC.W	pbuf


dbprms		DC.B	$03
bbunit		DC.B	$00
dbbufr		DC.W	$00
dbblok		DC.W	$00



czero		equ	$00
cmove		equ	$01
cradd		equ	$03
crloc		equ	$04
cdone		equ	$ff
at_load_addr	equ	$4000		; atalk	file will load here. (*#en3*)

cortland	DC.B	0		; cortland existance flag initially zero!
newQuitFlag	dc.b	0		; if 1,	old quit code is present

***********************************
*  code	move tables are	explained in file reloc.

tablitp		DC.B	cmove		; move interpreter loader code & tables. 
		DC.W	lodintrp	; code is address independent. 
		DC.W	pclen
		DC.W	licode

pg3tbl		DC.B	cmove
	if use_ram_drvr then
		DC.W	$03d6		; was $3f0
		DC.W	$002a		; and $0010
		DC.W	pg3stuf
	else
		dc.w	$03F0
		dc.w	pg3_len
		dc.w	pg3stuf
	endif

		DC.B	cmove
		DC.W	look
		DC.W	2
		DC.W	dst

		DC.B	cmove		; move 128k test to zero page
		DC.W	tst128
		DC.W	end128
		DC.W	strt128

		DC.B	cdone

dsp64		DC.B	cmove
		DC.W	$d100		; (lang	card bank 2)
		DC.W	$0300		; 3 pages
		DC.W	sel_0

		DC.B	cdone

newQuitTbl	dc.b	cmove		;move launcher code & tables
		dc.w	$D100		;launcher goes to $D100	(instead of normal QUIT	code)
		dc.w	$0300		;length	of launcher & tables
		dc.w	sel_1

		DC.B	cdone

altDsptbl	dc.b	cmove		;move launcher code & tables
		dc.w	$D100		;launcher goes to $D100	(instead of normal QUIT	code)
		dc.w	$0300		;length	of launcher & tables
		dc.w	sel_2

		dc.b	cmove		;move launcher code & tables
		dc.w	$1000		;have to put a copy at $1000 too (for launching	from P16)
		dc.w	$0300		;length	of launcher & tables
		dc.w	sel_2

		DC.B	cdone

****************************************************
* the following	table is for moving the	64k version of
* the mli to its execution address.
****************************************************

tabl64		DC.B	cmove		; relocate the interrupt/break/reset
		DC.W	inthandler	; handler and associated vectors.
		DC.W	$0065		; number of bytes to relocate.
		DC.W	mli_3		; source address of code to relocate.

		DC.B	cmove		; move preset 64k version of globals
		DC.W	globals
		DC.W	$0100
		DC.W	mli_1

		DC.B	czero		; clear	buffers/workspace
		DC.W	orig
		DC.W	$700

		DC.B	cmove		; move 64k version of mli to language card.
		DC.W	Proc3_Org	; see #45..put rwts in lc b2 to	make mli.2
		DC.W	$2100		; mli length.
		DC.W	mli_2		; from address it was loaded at.

		DC.B	cmove		; move 64k version of
		DC.W	rwts		; disk ii routines
		DC.W	$0700
		DC.W	xrw_0

		DC.B	cdone		; clock	moved later.

rlclk64		DC.B	cmove		; lastly move/relocate thunderclock
		DC.W	tclk_in		; whether needed or not.
		DC.W	$007d
		DC.W	tclock_0

		DC.B	crloc		; adjust slot addresses.
		DC.W	tclk_in
		DC.W	$0069
		DC.W	tclk_in
		DC.B	0
clock64		equ	*+2
		DC.B	$c1,$c1,$00	; last changed by devsrch to correct slot#.

		DC.B	cdone		; end of relocations.

cortclock	DC.B	cmove		; cortland clock relocating table.
		DC.W	tclk_in		; destination address.
		DC.W	$7d		; length of 125	bytes.
		DC.W	cclock_0	; source load address of driver.
		DC.B	cdone

errbuf		equ	$56
gointerp	equ	$2000
iscrn		equ	$7a8
idxl		equ	$10
entlen		equ	$c23


* let's load and jsr to the appletalk configuaration file "atinit"
* if it	is found.  if it is not	found, just continue with the loading
* and running of the ".system" file.

licode
		jsr	gopro		; make a get file info call to make
		dc.b	getfileinfo	; atinit file is there and is 
		DC.W	gfi_list	; of the proper	file type.
		bcc	gfi_ok		; branch if call successful...
		cmp	#$46		; was error file not found?
		beq	loadint		; branch if so and continue with interp	load...
		bne	atloaderr	; otherwise fatal i/o error in loading atinit file
gfi_ok
		lda	gfi_type	; now see if atinit file is of proper type...
		cmp	#$e2		; is it	the correct file type?	 
		bne	atloaderr	; error	if wrong file type!
		jsr	gopro		; open atinit file.
		DC.B	iopen
		DC.W	atopen		; parameter list...
		bne	atloaderr	; branch if error...
*** 22-Oct-92 DAL -- Save some bytes by assuming ATINIT is not huge
	if 0 then			; enabled this change 24-Mar-93 DAL by changing to 0
		jsr	gopro		; get file's length
		DC.B	igeof
		DC.W	efparm
		bne	atloaderr	; branch on error...
		lda	eof+2		; make sure file will fit.
		bne	atloaderr	; branch if too	big...
		lda	eof+1
		cmp	#$9F		; max size is 39.75K ($BF00-$2000) ** Rev Note 103 **
		bcs	atloaderr	; branch if too	big...
		sta	rdlen+1
		lda	eof
		sta	rdlen		; read entire file.
	else
		lda	#$9F		; max size is 39.75K ($BF00-$2000)
		sta	rdlen+1
		stz	rdlen
	endif
*** end 22-Oct-92
		jsr	gopro
		DC.B	iread
		DC.W	rdparm
		bne	atloaderr	; branch if too	big...
		jsr	gopro
		DC.B	iclos
		DC.W	clparm
		bne	atloaderr	; branch on error....

		lda	romin		; put rom on line for atinit....
		jsr	$2000		; call the atinit routine to set up appletalk stuff.
loadint
		jmp	goloadint	; go execute the .system file!

atloaderr				; fatal	error if trouble loading atinit	file..
		ldx	aterr		; load length of error msg.
aterrlp		lda	aterr,x
		sta	iscrn,x
		dex
		bne	aterrlp
aterrhang	beq	aterrhang	; hang.	couldn't load atinit file....
aterr		str	'Unable to load ATInit file'
gfi_list	equ	*-licode+lodintrp
		dc.b	$a		; parameter count.
		DC.W	atinitname	; pointer to file name.
		dc.b	0		; access
gfi_type	equ	*-licode+lodintrp
		dc.b	0		; file type.
		dc.b	0,0,0,0,0,0,0,0,0,0,0,0,0 ; space for rest of parameters...

atopen		equ	*-licode+lodintrp
		dc.b	3		; parameter count.
		DC.W	atinitname	; pointer to "atinit" file name.
		DC.W	$1400		; address of i/o buffer.
		dc.b	1		; reference number hard	coded since no other files.  

atinitname	equ	*-licode+lodintrp
		str	'atinit'	; name of appletalk config file.

goloadint	equ	*-licode+lodintrp
*********************************************
		lda	#$0c		; search directory already
		sta	idxl+1		; in memory between $c00 & $13ff.
		lda	#4		; start	1 entry	past header.
		bne	addeln		; always...

nxentr		lda	idxl		; calc next entry posn.
addeln		clc
		adc	entlen		; bump to next entry address.
		sta	idxl
		bcs	pgecros		; branch if page cross.
		adc	entlen		; test for end of block.
		bcc	nocros		; branch if definitely not page	cross.
		lda	idxl+1
		lsr	a		; end of block?
		bcc	nocros		; branch if not.
		cmp	#9		; end of directory?
*** changed 22-Oct-92 DAL
;;;		beq	noint1		; branch if no interpreter file.
		bne	@continue
		jmp	nointrp-licode+lodintrp
@continue
*** end 22-Oct-92 DAL
		lda	#4		; reset	index to first entry in	next block.
		sta	idxl
pgecros		inc	idxl+1		; bump to next page.
nocros		ldy	#$10		; first	off, check file	type.
		lda	#$ff		; must be prodos sys file.
		eor	(idxl),y
		bne	nxentr		; branch if not.
		tay			; else check to	see if active.
		lda	(idxl),y
		beq	nxentr		; branch if deleted file.
		and	#$f		; strip	file 'kind'.
		sta	name		; save name's length.

		cmp	#8		; must be at least 'x.system'
		bcc	nxentr		; otherwise, ignore it.

;;;		bcs	skip2		; branch always...  -- removed 22-Oct-92 DAL
;;;noint1	beq	nointrp		; (branch extender) -- removed 22-Oct-92 DAL

skip2		tay			; compare last 7 characters for	'.system'.
		ldx	#$6
lkintrp		lda	(idxl),y
		eor	iterp,x
		asl	a
		bne	nxentr		; branch if something else.
		dey
		dex
		bpl	lkintrp


load_atalk	equ	*-licode+lodintrp ; (*********** en3 ************)
		ldy	#0		; move name to pathname	buffer.
mvintrp		iny
		lda	(idxl),y
		sta	name,y
		ora	#$80		; make it printable in case of error.
		sta	iomess+$11,y
		cpy	name		; all characters moved?
		bne	mvintrp
		lda	#$a0		; save a space after name.
		sta	iomess+$12,y
		tya			; update error message length.
		adc	#$13		; (carry was set)
		sta	ierlen


		jsr	gopro		; open interpreter file.
		DC.B	iopen
		DC.W	opparm
		bne	badlod
		jsr	gopro		; get file's length
		DC.B	igeof
		DC.W	efparm
		bne	badlod
		lda	eof+2		; make sure file will fit.
		bne	toolong
		lda	eof+1
		cmp	#$9F		; max size is 39.75K ($BF00-$2000) ** Rev Note 103 **
		bcs	toolong
		sta	rdlen+1
		lda	eof
		sta	rdlen		; read entire file.
		jsr	gopro
		DC.B	iread
		DC.W	rdparm
		beq	goclos		; branch if sucessful read.
		cmp	#errbuf		; memory conflict?
		beq	toolong
		bne	badlod		; report i/o error.
goclos		jsr	gopro
		DC.B	iclos
		DC.W	clparm
		bne	badlod		; (branch never, we hope).

***************************************************
* if we	are booting on a //c and an escape is in the keyboard buffer
* then clear it	so we dont interfere with start	application
* (pizza accelerator chip requires ESC to shift	speed down)

		lda	|cflag-licode+lodintrp ; booting on a 2c?
		beq	going		; branch if not
		lda	$c000		; fetch	last key in board (pending or not)
		cmp	#$9b		; ESCAPE character? (with bit 7	on)
		bne	going		; branch if not
		sta	$c010		; clear	keyboard strobe
going

		lda	romin
		jmp	gointerp

cflag		DC.B	$00		; a one	if an apple 2 c		 
nointrp
*** removed next 2 lines 24-Mar-93 DAL (newQuitFlag is invalid after running ATINIT anyway)
;;;		lda	newQuitFlag	; was the new quit code	installed?
;;;		bne	@death		; no, handle the old way (system death)
		jsr	gopro		; else simply perform a	quit call
		dc.b	$65
		dc.w	quitparm

*** removed this stuff 24-Mar-93 DAL (see above)
;;;@death
;;;**************************************
;;;		ldx	#$27		; report no interpreter.
;;;nitrp	lda	nomess,x
;;;		sta	iscrn,x
;;;		dex
;;;		bpl	nitrp
;;;		bmi	hang10

badlod		ldy	ierlen		; center the bad news.
		lda	#$27
		sec
		sbc	ierlen
		lsr	a
		adc	ierlen
		tax
bdlod1		lda	iomess,y
		sta	iscrn,x
		dex
		dey
		bpl	bdlod1
		bmi	hang10

toolong		ldy	#$1e
tlong1		lda	lgmess,y
		sta	iscrn+5,y
		dey			;** Rev	Note #102 **
		bpl	tlong1
hang10		bmi	hang10

*** removed message 24-Mar-93 DAL (now we always use the Quit code if there is no x.system file)
;;;nomess	equ	*-licode+lodintrp
;;;		DC.B	'**  Unable to find a ".System" file  ** '

lgmess		equ	*-licode+lodintrp
		DC.B	'**  System program too large  **'
iomess		equ	*-licode+lodintrp
		DC.B	'** Unable to load X.System *********'
ierlen		equ	*-licode+lodintrp
		DC.B	0

opparm		equ	*-licode+lodintrp
		DC.B	$03
		DC.W	name
		DC.W	$1400
		DC.B	$01

efparm		equ	*-licode+lodintrp
		DC.B	$02
		DC.B	01
eof		equ	efparm+2
		DC.B	0,0,0

rdparm		equ	*-licode+lodintrp
		DC.B	$04
		DC.B	$01
		DC.W	$2000

rdlen		equ	rdparm+4
		DC.W	$0000
		DC.W	$0000

clparm		equ	*-licode+lodintrp
		DC.B	01
		DC.B	00

quitparm	equ	*-licode+lodintrp
		dc.b	4
		dc.b	0
		dc.w	0
		dc.b	0
		dc.w	0

iterp		equ	*-licode+lodintrp
		DC.B	'.SYSTEM'

* note:	atflg must be here so it also will get relocated!

pclen		equ	*-licode

***************	end of .SYSTEM startup code ****************************************

pg3stuf					; this stuff goes on page 3
	if use_ram_drvr then
* ------------------- see rev note 15 --------------------------

* locate between vectors in page 3 starting at $3d6

*  note: since this is treated as a subroutine from the	mli,
*	 nothing may use the stack in main ram area!!

*  x = 5 from calling routine to move parameter	bytes in the call
lp1					; address after	relocation = $3d6
		sta	$c008		; swap in main z.p. & stack
		lda	$42,x		; get the parameter bytes
		sta	$c009		; switch in aux	stack &	z.p.
		sta	$42,x		; save them in aux zero	page
		dex
		bpl	lp1

* at this time,	a jsr is no good since we have the wrong stack pointer
*  the first, and last thing a ram based driver	must do	is take	care
*  of the stack	pointers saved in $100 & $101 of alt stack.

* this operational address (after relocation) is $3e3.	it must	be
*   patched to a jmp $d100 when	the ram	based driver is	installed.

		lda	#$28		; no device connected error
		sec			; show an error

comebak					; ram drivers in aux lc	must jmp back to here
		sta	$c008
		rts			; swap main z.p. & stack, and return
		DC.W	ramdrvr		; vector addr for patching into	global page
		dc.b	0,0,0,0		; spare	bytes to align following vectors to $3f0
* --------------------------------------------------------------
	endif

; $3F0 vectors
		DC.W	m_break		; brk vector
		DC.W	m_reset		; reset	vector
		DC.B	$5a		; power-up byte
		jmp	m_and		; '&' vector
		jmp	m_ctl_y		; ctrl-y vector
*** changed 2-Sep-92 DAL
;;;		jmp	m_nmi		; nmi vector
		dc.b 0,$40,0
*** end 2-Sep-92
		DC.W	irqent		; interrupt vector to global page
pg3_len		equ	*-pg3stuf

lc1in					; swap lc bank1	in
		lda	ramin
		lda	ramin
		rts

whchrom		stz	apple		; assume standard apple	ii first.
		ldx	$fbb3		; look at the approved location...
		cpx	#$38		; apple	ii? (actually is it autostart rom?) 
		beq	muchram2	; branch if it is..
		lda	#$80		; else try for apple iie.
		cpx	#6
		beq	muchram
		lda	#$40		; if that fails, try ii+.
		cpx	#$ea		; must be one of these values...
		bne	whatsit
		ldx	$fb1e		; if it	passes as ii+, then
		cpx	#$ad		; it might be /// in emulation.
		beq	muchram
		lda	#$d0		; mark it as 48k /// emulation!
		cpx	#$8a		; if it	passes the test.
		bne	whatsit		; branch always, well, maybe.
nsm		sec			; 48k not allowed so apple ///
		rts			; emulation is not sufficient memory 
whatsit		lda	#$02		; machine unknown if we	land here.
		sta	(dst),y
		bne	finram		; branch always 


muchram		sta	apple		; save rom id.
muchram2	jsr	lc1in		; test for the presents	of 'language'
		lda	#$aa		; card ram.
		sta	$d000
		eor	$d000		; if it	is there, result is zero.
		bne	nsm		; branch if it is not.
		lsr	$d000		; else check twice just	to be sure.
		lda	#$55
		eor	$d000
		bne	nsm
		lda	#$20		; indicate at lc ram available.
is64k		ora	apple
finram		jmp	tst128		; go test for 128k.


tst128		equ	$80		; use zpage for	this routine 
strt128		sta	apple		; save accumulated value.
		bpl	not128		; branch if sure it's less than 128k.


		lda	#$ee		; first	try storing in aux mem
		sta	$c005		; write	to aux while on	main zp
		sta	$c003		; set to read aux ram
		sta	$c00		; check	for sparse mem mapping
		sta	$800
		lda	$c00		; see if sparse	memory -same value 
		cmp	#$ee		; 1k away 
		bne	noaux
		asl	$c00		; may be sparse	mem so change value 
		asl	a		; & see	what happens  
		cmp	$c00
		bne	noaux
		cmp	$800
		bne	auxmem
noaux		sec			; sparse mapping so no aux mem
		bcs	back
auxmem		clc			; there	is aux mem
back		sta	$c004		; switch  back to write	main ram
		sta	$c002		; switch back main ram read
		bcs	not128		; branch if not	128k
		lda	apple		; else update identity of machine.
		ora	#$30		; indicate 128k	present.
		sta	apple


not128		lda	look+1		; futs with pointer for	apple test.
		sec
		sbc	#$05		; should result	in $fb if zpage	is ok. 
		sta	look+1
		bcs	@1		; (to the clc)
		dec	look
@1		clc
		rts
end128		equ	*-strt128	; byte count for routine move to zpage.

		machine	m6502		; allow only 6502 instructions in this subroutine

greet		lda	$c030		; hit speaker
		sta	$c00c		; disable 80 columns (rev-e)
		sta	$c000		; disable '80store'
		jsr	$fe84		; SETNORM, clears inverse mode
		jsr	$fb2f		; INIT,	sets up	full window in text page 1
		jsr	$fe93		; SETVID, resets output	hooks at $36
		jsr	$fe89		; SETKBD, resets input hooks at	$38
		cld

		jsr	home		; clear	screen
		ldx	#slin2-slin1-1	; move greeting	to screen.
grt1		lda	slin1,x		; "apple ii"
		sta	$4a8+20-4,x	; $4a8 starts the line.
		dex
		bpl	grt1
		ldx	#slin3-slin2-1
grt2		lda	slin2,x		; "prodos (version)   (date)"
		sta	$5a8+20-grtlz,x	; $5a8 starts the line
		dex
		bpl	grt2
		ldx	#slin4-slin3-1
grt3		lda	slin3,x		; (blank line)
		sta	$6a8+20-grtlzz,x ; $6a8	starts the line
		dex
		bpl	grt3
		ldx	#slin5-slin4-1
grt4		lda	slin4,x
		sta	$750,x		; $750 starts the line
		dex
		bpl	grt4
		ldx	#grt6-slin5-1
grt5		lda	slin5,x
		sta	$7d0+20-grtlzzz,x ; $7d0 starts	the line
		dex
		bpl	grt5

		machine	M65816
		longa	off
		longi	off

		sec
		jsr	$fe1f		;IDROUTINE returns CLC if we're on a GS
		bcs	@notGS
		lda	#$80
		trb	$C029		;turn off bit 7	of NEWVIDEO
@notGS
		machine	m65C02		;inhibit '816 instructions

		lda	$c030
		rts

		Eject
indrcn		equ	$10
devid		equ	$12
relc800		equ	$cfff
drv1adr		equ	$bf10
drv2adr		equ	$bf20
lstdev		equ	$bf30
glbclk		equ	$bf06
jump		equ	$4c

***************************************************
*
* this routine finds all disk devices plugged into the
*  system's slots that follow apple's disk id convention.
*  the routine sets up the address and device table in
*  prodos's system global page.  13-sector disk ii's are 
*  not configured since	they may not function properly in
*  the 16 sector mode...
*
* profiles, and	other intelligent devices, are expected	to
*  have	roms containing	the disk i/o drivers.
*
* this routine was revved 8/21/86 to make sure that correct number
*  of smartport	devices	are installed, and that	disk //s are always
*  searched last by placing them at the	end of the list.  disk // unit
*  numbers are stacked at the end of the device	table, while regular
*  devices are stacked at the beginning.  after	all slots have been
*  searched the	two lists are combined.	see note 60.

numdevices	dc.b	0,0,0,0,0,0,0,0	; eight	bytes for smartport call

sp_unit_count
driveradr	DC.W	0
d2idx		DC.B	0
diskins2	DC.B	0		; msb set if drive in slot 2

***************************************************

devsrch		stz	dst
		stz	dst+1
		stz	indrcn		; set up for search.
		ldx	#$FF
		stx	devcnt		; device count = $FF = none
		lda	#14		; start	disk //	area at	the end	of devlist
		sta	d2idx

***********************	see note #65 ***********************

* make a quick check of	slot 2.	 if there is a disk card there
*  clear the msb of diskins2.  this will limit the number of
*  devices in any slot 5 smartport card	to 2.

		lda	#$c2
		sta	indrcn+1	; check	slot 2
		jsr	cmpid		; is there a disk card in slot 2??
		ror	diskins2	; clear	msb if so, set otherwise

**********************************************************

		lda	#$c7		; search slots from high to low.
		sta	indrcn+1


***************** code here became a subroutine	****************
************************* see note #65 *************************

findsks1
		jsr	cmpid
		bcs	nxtdsk		; carry	set means no ProDOS device in this slot

****************************************************************

					; Y = $FF now
		lda	(indrcn),y	; check	last byte of $Cn rom
		beq	diskii		; if =00 then 16 sector	disk ii.
		cmp	#$ff		; if =ff then 13 sector	disk ii.
		bcs	nxtdsk		; ignore if 13 sector boot rom.
		sta	driveradr	; else,	assume it's an intelligent disk for now.

		ldy	#7		; check	for a smartport	device
		lda	(indrcn),y
		bne	nosport
		jmp	smartport
nosport
		ldy	#$fe		; get attributes byte.
		lda	(indrcn),y
		and	#$03		; verify it provides read and status calls
		cmp	#$03
		sec			; assume it is a bozo brand disk...
		bne	nxtdsk

		jsr	setdevid	; put high nybble of attributes	on card	ROM intoÉ
					;Élow nybble of	"devid"
		clc
		php			; remember that	it's not a disk //
		lsr	a		; move # of units (0=1,	1=2) to	carry.
		lda	indrcn+1	; low entry addr already stored, store hi addr.
		bne	adevice		; branch always	taken.
diskii
					; accum	= 0 now
		sta	devid		; disk ii's have nul attributes
		sec
		php			; remember it's a disk //
		lda	d2blkio
		sta	driveradr
		lda	d2blkio+1

* the carry is already set telling installdev to install two devices
*  for disk //s.

adevice
		sta	driveradr+1

		jsr	installdev	; install one or two devices from this slot into $BF00 page

		plp			; get back if it's disk // (carry)
		bcc	nodisk2

		dex			; move the list	pointer	back by	2 devices
		dex			; (installdev left x set)
		stx	devcnt
		dec	d2idx		; increase the disk two	index
		dec	d2idx
		ldy	d2idx

		inx			; adjust since device count starts with	$FF
		lda	devlst+1,x	; get entries for disk ][
		sta	devlst,y	; move them toward the end of the list
		lda	devlst,x
		sta	devlst+1,y
		dex			; back to devcnt again
nodisk2

******************* see	rev note #53 & #54 **********************

nxtdsk2
		clc
nxtdsk
		jsr	sltrom		; test for clock, 80 col, or any ROM in	givenÉ
					;Éslot & set global flags accordingly

		dec	indrcn+1	; set up for next lower	slot.
		lda	indrcn+1	; have all slots been checked?
		and	#7
		bne	findsks1	; branch if not.

; Now perform the new Device Search, mapping unmounted SmartPort devices
; to empty slots in the device table

		jsr	new_mount

* now copy the disk // list to the end of the regular list
*  start by making the device count include disk //s
		ldx	devcnt		; load up current devcnt-1
		lda	#14
		sec
		sbc	d2idx
		beq	d2snone		; if there were	no disk	//s, forget it

		clc
		adc	devcnt		; sum of disk //s and others
		sta	devcnt

		inx			; move to open space in	regular	list
		ldy	#13		; first	disk //	entry

mlab
		lda	devlst,y
		pha
		lda	devlst,x
		sta	devlst,y
		pla
		sta	devlst,x

		inx
		dey
		sty	d2idx		; use as a temp
		cpx	d2idx
		blt	mlab		; continue 'til indices cross...

d2snone
		ldy	#0
		ldx	devcnt		; now change the device	order
srtdsk1		lda	devlst,x	;  so that the boot device
		pha			;  will have highest priority
		and	#$7f		; strip off drive bit
		eor	lstdev		;  for comparison
		asl	a
		bne	srtdsk2
		pla
		iny
srtdsk2		dex
		bpl	srtdsk1
		ldx	devcnt		; now reverse order of search, hi to lo.
		tya			; was boot device found?
		beq	srtdsk3
		lda	lstdev		; make boot device first in search order.
		sta	devlst,x
		dex
		bmi	dsrend		; branch if only one device.
		dey			; is this a 2 drive device?
		beq	srtdsk3		; branch if not. (used to be BMI)
		eor	#$80		; make boot device, drive 2 next.
		sta	devlst,x
		dex
		bmi	dsrend		; branch if only one device, 2 drives. 
srtdsk3		pla
		sta	devlst,x
		dex
		bpl	srtdsk3
dsrend		jsr	fndtrd		; save accumuated machine id. 
		beq	whosit
		sta	machid
		rts


whosit		jmp	whatsit


stadrv
		ora	devid		; combine with attributes.
		ldx	devcnt
		inx			; put device number into device	list.
		sta	devlst,x
		asl	a		; now form drive 2 device number, if any.
		rts



sltrom		bcc	isrom		; branch if disk drive.
		ldy	#6		; test this slot for clock card.
clkchk		lda	(indrcn),y
		cmp	clkid,y
		bne	notclk		; branch if not	clock. 
		dey
		dey
		bpl	clkchk
		lda	indrcn+1	; transfer high	slot addr minus	$c1 (default) 
		sbc	#$c1		; to relocate references to clock rom. 
		sta	clock64
		lda	#jump		; also enable jump vector in globals. 
		sta	glbclk
		lda	apple		; mark clock as	present
		beq	dsrend
		ora	#1
		sta	apple
		bne	isrom		; branch always	taken.


notclk		ldy	#5		; test for 80 col card.
		lda	(indrcn),y	; byte at a time.
		cmp	#$38
		bne	notcons
		ldy	#7		; test values are same as pascal's
		lda	(indrcn),y
		cmp	#$18
		bne	notcons
		ldy	#$b
		lda	(indrcn),y
		dec	a		; must = 1
		bne	notcons
		iny
		lda	(indrcn),y
		and	#$f0		; mask off low nibble
		cmp	#$80		; generic for 80-col card
		bne	notcons
		lda	apple
		beq	dsrend
		ora	#2
		sta	apple		; mark config for 80 col. present.
		bne	isrom		; branch always	taken.


notcons		ldx	#0		; test for any rom.
		lda	(indrcn)
		cmp	#$ff		; test for apple iii non slot.
		beq	norom		; branch if invalid rom.
tstrom		cmp	(indrcn)	; look for floating bus.
		bne	norom
		inx			; loop 256 times.
		bne	tstrom
isrom		lda	indrcn+1	; mark a bit in	slot byte
		and	#$7		; to indicate rom present.
		tax
		lda	sltbit,x
		ora	sltbyt
		sta	sltbyt
norom		rts


d2blkio		DC.W	rwts
dskid
clkid		DC.B	$08,$20,$28,$00,$58,$03,$70,$3c
sltbit		DC.B	$00,$02,$04,$08,$10,$20,$40,$80


fndtrd		clc
		ldy	sltbit
ftrad1		lda	(look),y
		and	#$df
		adc	sltbit
		sta	sltbit
		rol	sltbit
		iny
		cpy	sltbit+3
		bne	ftrad1
		tya
		asl	a
		asl	a
		asl	a
		asl	a
		tay
		eor	sltbit
		adc	#$b
		bne	ftrad2
		lda	apple
		rts
ftrad2		lda	#0
		rts

installdev				; made a sub 8/21/86
		php			; how many drives (carry).
		lda	indrcn+1	; get index to global device table for
		and	#7		; this slot
		asl	a
		tay			; ... into y reg.
		asl	a
		asl	a		; now form device number = slot	# in high nybble
		asl	a
		jsr	stadrv		; OR in	low bybble, store in dev list, return withÉ
					;Éthat value ASL'ed
		plp			; restore # of devices in carry
		ror	a		; if 2 drives, then bit	7=1.
		bpl	nodrv2		; branch if a 1-drive device (e.g. profile)
		inx			; else presume that second drive is present.
		sta	devlst,x
nodrv2		stx	devcnt		; save updated device count.
		asl	a		; shift	# of drives back into carry.
		lda	driveradr	; get high address of device driver.
		sta	drv1adr,y
		bcc	ndrv2a		; branch if single drive
		sta	drv2adr,y
ndrv2a
		lda	driveradr+1
		sta	drv1adr+1,y
		bcc	ndrv2b
		sta	drv2adr+1,y
ndrv2b
		rts

* this piece of	code (not a subroutine)	is branched to if the slot
*  search code finds a smartport device.  it does a smartport status
*  call	(code =	0) to determine	the number of devices connected	to
*  the "card".	it then	installs from 0..4 units in the	table.

smartport
		jsr	setdevid	; set up the devid byte	from attributes

* only map more	than two devices if card is in slot 5

		lda	indrcn+1
		sta	driveradr+1	; didn't set this yet

* do the call to smartport to get the number of	devices

		lda	driveradr

*********************************************
* patch	74
*********************************************

		sta	pscall+1	; modify operand

		clc
		adc	#3
		sta	sp_vector	; store the SmartPort entry point
		lda	driveradr+1	; no page cross	possible
		sta	sp_vector+1

*********************************************
* patch	74
*********************************************

		sta	pscall+2	; modify operand
		asl	a		; convert $cn to $n0
		asl	a
		asl	a
		asl	a
		sta	$43		; unit number
		stz	$42		; force	a prodos status	call
		stz	$44		; dummy	pointer
		stz	$46		; number of bytes to transfer
		stz	$47		; number of bytes to transfer
		lda	#$10		; dummy	pointer	should be <>0
		sta	$45		; dummy	pointer


*********************************************
* patch	74
*********************************************


pscall					; prodos status	call
		jsr	$0		; filled in by above code

		ldy	#$fb		; check device ID byte
		lda	(indrcn),y
		and	#%00000010	; SCSI?
		beq	@skip_dev_2	; no, no need to init Cocoon
		sta	StatUnit	; set device number to 2 (left over in Acc)

; Get status on device 2 to allow Cocoon to build its internal device tables
; and report the TRUE number of devices attached.  If we don't make this initial
; status call, Cocoon will always report either a 4 (if it's in slot 5) or 2 (if
; it's in any other slot), no matter how many devices are actually attached.

		jsr	DoSmartCal
		dc.b	0
		dc.w	spcallparms	; ignore any errors
@skip_dev_2
		stz	StatUnit	; set unit # to 0
		jsr	DoSmartCal	; call the interface to get the device count
		DC.B	$0		; this is a status call
		DC.W	spcallparms

* don't add devices if there are none connected

		lda	numdevices
		beq	donesp

* do the first and second device if it exists

		cmp	#2		; c set	if 2,3,4
		jsr	installdev

* do the third and fourth drives if they exist
*  they	cannot exist for any card other	than one in slot 5

		lda	indrcn+1
		cmp	#$c5
		bne	donesp

********************* see note #65 *********************

* if this is slot 5, and if there is a disk card in slot 2,
*  only	install	2 devices this slot.  thank you.

		bit	diskins2	; is there a disk in slot two?
		bpl	donesp

********************************************************

		lda	numdevices
		cmp	#3		; c set	if 3,4,...
		blt	donesp
		cmp	#4		; c set	if 4,5,6,...
		lda	#$c2		; make it think	it's slot 2
		sta	indrcn+1
		jsr	installdev
		lda	#$c5
		sta	indrcn+1

donesp
		jmp	nxtdsk2		; we know it's a disk device

setdevid
		ldy	#$fe		; look at attributes byte
setdevid_2
		lda	(indrcn),y
		lsr	a		; move high nybble to low for dev table	entries
		lsr	a
		lsr	a
		lsr	a
		sta	devid
		rts

* input:   indrcn -  point to $cn00 of mystery card
* output:  carry    clear if disk card here, set ow
*	   y	    $ff

cmpid
		lda	relc800		; release $c800	space from previous slot.
		ldy	#$5
cmpid2		lda	(indrcn),y	; compare id bytes.
		cmp	dskid,y		; $cn07=don't care. 
		sec
		bne	cibye		; $cn05=03 
		dey			; $cn03=00
		dey			; $cn01=20
		bpl	cmpid2		; loop until all 4 id bytes match.
		clc
cibye
		rts

*************************************************

* smartport parameter area

StatusParms
spcallparms
		DC.B	3		; number of parameters
StatUnit	DC.B	0		; unit number (code for	smartport stat)
		DC.W	numdevices
		DC.B	0		; status code =	0 (code	for general status)

*  the original	code (previous to the 8/21/86 revision)	see note 60

****************************************************************************************************
* new_mount - mounts SmartPort devices that were originally skipped because
* there were more than 2 devices connected to the slot
*

		Import	gnodev
;		Import	sp_unitnums
		Import	sp_vector_lo
		Import	sp_vector_hi
		Import	remap_sp
		
MountDirection
*** 8-Jun-92 DAL -- Omit S3,D2 to avoid overwriting /RAM (important!)
;;;		dc.b	$16			;slot 3 drive 2
		dc.b	$06			;slot 3 drive 1
		dc.b	$1E			;slot 7 drive 2
		dc.b	$0E			;slot 7 drive 1
		dc.b	$1C			;slot 6 drive 2
		dc.b	$0C			;slot 6 drive 1
		dc.b	$1A			;slot 5 drive 2
		dc.b	$0A			;slot 5 drive 1
		dc.b	$14			;slot 2 drive 2
		dc.b	$04			;slot 2 drive 1
		dc.b	$12			;slot 1 drive 2
		dc.b	$02			;slot 1 drive 1
		dc.b	$18			;slot 4 drive 2
		dc.b	$08			;slot 4 drive 1

DoSmartCal	jmp	0
		org	*-2
sp_vector	ds.b	2			;self-modified above

new_mount
		stz	indrcn
		lda	#$C7
		sta	indrcn+1
FindSmartLp
		jsr	cmp_smartport		;do we have a SmartPort device here?
		bcs	NextDev
		ldy	#$ff			;Get SmartPort address
		lda	(indrcn),y
		clc
		adc	#3			;add 3 for SmartPort call
		sta	sp_vector
		lda	indrcn+1
		sta	sp_vector+1

		dey				;get the device attributes set up
		jsr	setdevid_2

		stz	StatUnit
		jsr	DoSmartCal		;do a status call on SmartPort itself
		dc.b	0
		dc.w	StatusParms
		
		lda	numdevices		;Number of devices on SmartPort
		cmp	#3
		bcc	NextDev			;only two devices, skip to next one
		inc	a			;bump by 1 for comparisons
		sta	sp_unit_count		;store the # of devices + 1
		lda	#3			;start at unit #3 (non-slot 5)
		ldx	sp_vector+1		;are we lookin' at slot 5?
		cpx	#$C5
		bne	Not5			;no, start at unit #3
		bit	diskins2		;is there a disk controller in slot 2?
		bpl	Not5			;yes, so allow remapping of slot 5 devices
		lda	#5			;else start looking at unit #5 (3 & 4 already mapped
						;into slot 2)
Not5
FindBlockDevLp					;find block devices on this SmartPort
		cmp	sp_unit_count		;have we done all units in this slot?
		bcs	NextDev			;yes, skip to next slot
		sta	StatUnit		;store the unit number
		jsr	DoSmartCal		;perform Status call on individual device
		dc.b	0
		dc.w	StatusParms
		lda	numdevices		;is this a block device?
		bmi	Mount			;yes, mount it!
MountMoreDevs
		lda	StatUnit		;bump the current unit number
		inc	a
		bra	FindBlockDevLp		;and go check it

NextDev
		dec	indrcn+1
		lda	indrcn+1
		cmp	#$C0			;worked our way down to slot 0?
		bne	FindSmartLp		;nope, keep looking
		rts				;else we're done!

Mount
		ldx	#12			;was 13, 8-Jun-92 DAL
MountLp
		ldy	MountDirection,x
		lda	devadr01,y
		cmp	#<gnodev
		bne	OvNoDev
		lda	devadr01+1,y
		cmp	#>gnodev
		beq	found_hole
OvNoDev
		dex
		bpl	MountLp
		rts				;ran out of space for devices, exit
						;(all devices are not mounted in this case)

; we found an empty slot

found_hole
		lda	indrcn+1		;save this for now
		pha
		phx				;save registers too
		phy
		tya				;which slot has the hole?
		lsr	a			;shift into slot #
		and	#$07			;make it 1-7
		ora	#$C0			;make it $C1-$C7
		sta	indrcn+1		;store into pointer
		jsr	cmp_smartport		;do we have a SmartPort interface in this slot?
		ply				;restore registers
		plx				;(doesn't modify carry)
		pla
		sta	indrcn+1
		bcc	OvNoDev			;yes, can't use it to mirror the device
		
		jsr	lc1in			;write-enable LC RAM
 		tya				;divide index by 2
		lsr	a
		tax
		lda	StatUnit
 		sta	sp_unitnums-1,x		;store the SmartPort unit number
		lda	sp_vector		;and the SmartPort entry address
		sta	sp_vector_lo-1,x
		lda	sp_vector+1
		sta	sp_vector_hi-1,x
		lda	romin			;write-protect RAM

DnMounting
		inc	DevCnt
		ldx	DevCnt
		tya
		lsr	a
		cmp	#$08
		bcc	NoDev2			;drive 2 mount
		sbc	#$08
		ora	#$08
NoDev2
		asl	a
		asl	a
		asl	a
		asl	a
		ora	devid			;include device attributes
		sta	DevLst,x
		lda	#<remap_sp
		sta	devadr01,y
		lda	#>remap_sp
		sta	devadr01+1,y
		
		bra	MountMoreDevs

cmp_smartport
		jsr	cmpid			;is it a disk controller?
		bcs	@nogood			;no, return to caller
		sec				;assume no SmartPort
		ldy	#7
		lda	(indrcn),y		;is it SmartPort?
		bne	@nogood			;no...
		clc				;carry clear means we have SmartPort
@nogood
		rts

		Eject
*******************************************************
* program/data relocation routine is driven by a table
* describing program, vectors, and data	segments.  the
* table	has the	general	format:
*  (1)command:	   0= zero destinaton range. 
*		   1= move data	to from	src to dst. 
*		   2= high address ref tbl, relocate & move.
*		   3= lo-hi addr ref tbl, relocate & move.
*		   4= program, relocate	& move.
*		  >4= end of table.
*  (2)dest addr:   address of where segment is to be moved. 
*  (2)byte count:  length of segment. 
*  (2)source addr: start address segment to be operated	on,
*		   n/a if type=0, code does not	have to	be
*		   assembled at	this address.
*  (1)segments:	   number of address ranges to be tested
*		   and altered,	n/a if type=0 or 1.
*		   limit and offset lists should each 
*		   contain segments+1 (s) bytes.
*  (s)limitlow:	   list	of low page addresses to be tested.
*  (s)limithigh:   list	of high	page addresses to be tested.
*  (s)offset:	   list	of amounts to be added if 
*		   low & high limits have been met.
*
* on entry: x=table address low, y=table address high 
* on exit:  carry clear	if no error; else carry	set, 
*	    x=addrlo, y=addrhi of error	causing	source. 
*	    a=0	if input table error, =$ff if illegal opcode.
*******************************************************

		
reloc		stx	rtbl		; save address of control table
		sty	rtbl+1

rloop		lda	(rtbl)		; get relocation command
		cmp	#5		; if 5 or greater then done...
		bcs	rlend		; branch if done.
		tax
		ldy	#1		; move destination address to
		lda	(rtbl),y	; zero page for	indirect access.
		sta	dst
		iny
		lda	(rtbl),y
		sta	dst+1
		iny
		lda	(rtbl),y	; also the length (byte	count)
		sta	cnt		; of the destination area.
		iny
		lda	(rtbl),y
		sta	cnt+1
		bmi	rlerr		; branch if >=32k
		txa			; request to zero out destination?
		beq	zero		; branch if it is.

		iny
		lda	(rtbl),y	; now get the source address.
		sta	src
		sta	cde		; src is used for the move, cde	is
		iny			; used for relocation.
		clc			; add length to	get final address
		adc	cnt
		sta	ecde
		lda	(rtbl),y
		sta	src+1
		sta	cde+1
		adc	cnt+1
		sta	ecde+1
		dex			; now that set-up is done, test	for 'move'
		beq	movem		; branch if move only (no relocation).
		stx	wsize		; save element size (1,2,3).
		iny
		lda	(rtbl),y	; now get the number of	ranges
		sta	sgcnt		; that are valid relocation target addresses.
		tax			; separate serial range	groups into tables.
rlimlo		iny
		lda	(rtbl),y	; transfer low limits to 'limlo' table.
		sta	limlo,x
		dex
		bpl	rlimlo
		ldx	sgcnt
rlimhi		iny
		lda	(rtbl),y	; transfer high	limits to 'limhi' table.
		sta	limhi,x
		dex
		bpl	rlimhi
		ldx	sgcnt
rofset		iny
		lda	(rtbl),y	; transfer offsets to 'ofset' table.
		sta	ofset,x
		dex
		bpl	rofset


		jsr	adjtbl		; adjust 'rtbl'	to point at next spec.
		ldx	wsize		; test for machine code	relocation.
		cpx	#3
		beq	rlcode		; branch if program relocation
		jsr	reladr		; otherwise, relocate addresses	in
rlend1		jsr	move		; one or two byte tables, then move to destination.
		bra	rloop		; do next table	entry... 


rlend		clc
		rts


rlerr		jmp	tblerr


rlcode		jsr	rlprog		; go relocate machine code references.
		bra	rlend1

zero		jsr	adjtbl		; adjust 'rtbl'	pointer	to next	entry.
		lda	#0		; fill destination range with zeros.
		ldy	cnt+1		; is it	at least a page?
		beq	zpart		; branch if less than 256 bytes.
		tay
zero1		sta	(dst),y
		iny
		bne	zero1
		inc	dst+1		; bump to next page.
		dec	cnt+1
		bne	zero1		; branch if more pages to clear.
zpart		ldy	cnt		; any bytes left to zero?
		beq	zeroed		; branch if not.
		tay
zpart1		sta	(dst),y
		iny
		cpy	cnt
		bcc	zpart1
zeroed		jmp	rloop		; do next thing	in table.

movem		jsr	adjtbl
		bra	rlend1

adjtbl		tya			; add previous table length to 'rtbl'
		sec			; to get position of next entry	in table.
		adc	rtbl
		sta	rtbl
		bcc	adjtbl1
		inc	rtbl+1
adjtbl1		rts

move		lda	src+1		; determine if move is up, down,
		cmp	dst+1		; or not at all.
		bcc	movup		; branch if definitely up...
		bne	movdn		; branch if definitely down...
		lda	src
		cmp	dst
		bcc	movup		; branch if definitely up...
		bne	movdn		; branch if definitely down...
		rts			; otherwise, don't move nutin.

movup		ldy	cnt+1		; calc highest page of move up.
		tya
		clc
		adc	src+1
		sta	src+1		; and adjust src & dst accordingly.
		tya
		clc
		adc	dst+1
		sta	dst+1
		ldy	cnt		; move partial page first.
		beq	mvup2		; branch if no partial pages.
mvup1		dey
		lda	(src),y
		sta	(dst),y
		tya			; end of page transfer?
		bne	mvup1
mvup2		dec	dst+1
		dec	src+1
		dec	cnt+1		; done with all	pages?
		bpl	mvup1		; branch if not.
		rts

movdn		ldy	#0
		lda	cnt+1		; partial page move only?
		beq	mvdn2		; branch if less than a	page to	be moved.
mvdn1		lda	(src),y
		sta	(dst),y
		iny
		bne	mvdn1
		inc	dst+1		; bump addresses
		inc	src+1
		dec	cnt+1		; more pages?
		bne	mvdn1		; branch if more pages.
mvdn2		lda	cnt		; move partial page.
		beq	mvdn4		; branch if no more to move.
mvdn3		lda	(src),y
		sta	(dst),y
		iny
		cpy	cnt
		bne	mvdn3
mvdn4		rts			; all done...

reladr		ldy	wsize		; determine 1 or 2 byte	reference
		dey
		lda	(cde),y
		jsr	adjadr		; relocate reference.
		lda	wsize		; update and test 'cde'	pointer
		jsr	adjcde
		bcc	reladr		; branch if more to do.
		rts

rlprog		ldy	#0		; fetch	next opcode.
		lda	(cde),y
		jsr	oplen		; determine if it's a 3 byte instruction.
		beq	rperr		; branch if not	an opcode.
		cmp	#3
		bne	rlprg1
		ldy	#2
		jsr	adjadr		; relocate address
		lda	#3
rlprg1		jsr	adjcde		; update and test 'cde'	for done.
		bcc	rlprog		; loop if more to do.
		rts

* error	handling...

rperr		pla			; return bad code address 
		pla			; first	un-do stack
		ldx	cde
		ldy	cde+1
		lda	#$ff		; indicate bad opcode.
		sec			; indicate error
		rts

tblerr					; return table address error
		ldx	rtbl
		ldy	rtbl+1
		lda	#0		; indicate input table error
		sec
		rts

adjadr		lda	(cde),y		; get page address
		ldx	sgcnt		; and test against limits.
adjad1		cmp	limlo,x		; is it	>= low?
		bcc	adjad2		; branch if not.
		cmp	limhi,x		; is it	=< highest page	limit.
		bcc	adjad3		; branch if it is.
		beq	adjad3
adjad2		dex			; try next limit set.
		bpl	adjad1
		rts			; return without adjustment.
adjad3		clc			; add offset to	form relocated
		adc	ofset,x		; page address.
		sta	(cde),y		; and replace old address with result.
		rts

adjcde		clc			; update 'cde' pointer
		adc	cde
		ldy	cde+1
		bcc	adcde1		; branch if not	page cross.
		iny			; update high order address too.
adcde1		cpy	ecde+1		; has all code/data been processed?
		bcc	adcde2		; branch if definitely not.
		cmp	ecde		; if carry results set,	end of code.
adcde2		sta	cde
		sty	cde+1		; save updated values.
		rts			; return result	(carry set=done).

oplen		pha			; form index to	table and which	2-bit group.
		and	#3		; low 2	bits specify group.
		tay
		pla
		lsr	a		; upper	6 bits specify byte in table.
		lsr	a
		tax
		lda	opcodln,x
nxgroup		dey			; is opcode length in lowest 2 bits of acc?
		bmi	rtnlen		; branch if it is.
		lsr	a
		lsr	a		; shift	to next	group
		bne	nxgroup		; if len=0 then	error...
rtnlen		and	#3		; strip	other garbage 
		rts			; if z-flg true, then error!!! 


* the following	table contains the length of each
* machine instruction (in two-bit groups).

opcodln		DC.B	$09,$28,$19,$3c
		DC.B	$0a,$28,$0d,$3c
		DC.B	$0b,$2a,$19,$3f
		DC.B	$0a,$28,$0d,$3c
		DC.B	$09,$28,$19,$3f
		DC.B	$0a,$28,$0d,$3c
		DC.B	$09,$28,$19,$3f
		DC.B	$0a,$28,$0d,$3c
		DC.B	$08,$2a,$11,$3f
		DC.B	$0a,$2a,$1d,$0c
		DC.B	$2a,$2a,$19,$3f
		DC.B	$0a,$2a,$1d,$3f
		DC.B	$0a,$2a,$19,$3f
		DC.B	$0a,$28,$0d,$3c
		DC.B	$0a,$2a,$19,$3f
		DC.B	$0a,$28,$0d,$3c


wsize		DC.B	0
sgcnt		DC.B	0
limlo		Dc.b	0,0,0,0,0,0,0,0
limhi		Dc.b	0,0,0,0,0,0,0,0
ofset		Dc.b	0,0,0,0,0,0,0,0

		eject
; What follows is a patch that gets executed only when P8 is bootedÉ
;Édirectly on a	GS.  See rev note #101

; Patch	written	by Steve Glass,	May 23,	1989.  See rev note #101.

****************************************************************
*
InstallOSPatch				;PROC EXPORT
*
* Installs a patch to the GSOS vectors so that an error
* is returned when OS calls are	made.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry	Points:
*	none
*
		machine	M65816

		longa	off		; mode
		longi	off
*
****************************************************************


P8UserID	equ	$3101
Temp		equ	$00
StackEntry	equ	$E100B0
NormalEntry	equ	$E100A8
NoOS		equ	$00FF
sizetest	equ	1
;
; disable interrupts just in case
;
		php
		sei
;
; full native mode
;
		clc
		xce
		rep	#$30
		longa	on
		longi	on
	if sizetest=0 then
;
; Save this our	zero page loc
;
		pei	Temp+2
		pei	Temp
	endif
;
; Get A	Handle
;
	if sizetest=1 then
		phb			;save DBR
	endif
		pha
		pha
		pea	PatchSize>>16
		pea	PatchSize
		pea	P8UserID
		pea	attrlocked+attrnospec+attrnocross
		pha
		pha
					;_NewHandle
		ldx	#$0902		; NewHandle
		jsl	$E10000

	if sizetest=0 then
		pla
		sta	temp
		pla
		sta	temp+2
	else
		lda	1,s		;retrieve handle
		tax
		lda	3,s
		tay
	endif

;
; Copy the code	into the handle
;
		pea	StackEntryPatch>>16
		pea	StackEntryPatch
	if sizetest=0 then
		pei	Temp+2
		pei	Temp
	else
		phy
		phx
	endif
		pea	PatchSize>>16
		pea	PatchSize
					;_PtrToHand
		ldx	#$2802		; PtrToHand
		jsl	$E10000

;
; Deref	the handle
;
	if 0 then
		ldy	#2
		lda	[temp],y
		tax
		lda	[temp]
;
; And put the address in the OS	entry points
;
		sta	>StackEntry+1	; first	the low	word
		clc
		adc	#NormalEntryOffset
		sta	>NormalEntry+1
		txa

		sep	#$30		; now in 8 bit mode the	high byte
		longa	off
		longi	off
		sta	>StackEntry+3
		sta	>NormalEntry+3
		lda	#$5C		; and the jml opcode
		sta	>StackEntry
		sta	>NormalEntry
		rep	#$30
		longa	on
		longi	on

;
; Restore our zero page	loc
;
		pla
		sta	Temp
		pla
		sta	Temp+2

	else
		plx			;retrieve low word of handle
		plb			;set DBR to handle's bank
		lda	|1,x		;get upper 16-bits of 24-bit address
		tay			;save in Y
		lda	|0,x		;get low 8-bits of address
		and	#$00FF		;clear high byte
		xba			;put address in high byte
		ora	#$005C		;include JML opcode
		sta	>StackEntry	;store into GS/OS vectors
		clc
		adc	#NormalEntryOffset
		sta	>NormalEntry
		tya			;store upper 16-bits too
		sta	>StackEntry+2
		adc	#0		;adjust for possible page crossing
		sta	>NormalEntry+2
		plb			;remove garbage byte from stack
		plb			;restore DBR
	endif
;
; back to emulation mode
;
		sec
		xce

		plp			; restore

		rts


;
; this is a copy of the	code that goes in the handle
;

StartPatch

StackEntryPatch
		lda	1,s
		sta	7,s
		lda	2,s
		sta	8,s
		pla
		pla
		pla

NormalEntryPatch
		lda	#NoOS
		sec
		rtl

EndPatch

PatchSize	equ	EndPatch-StartPatch

NormalEntryOffset equ	NormalEntryPatch-StackEntryPatch


		MACHINE	M65C02

; The loader code has expanded,	so from	here to	the end	of the proc, allÉ
;Éoccurences of	the value $B00 and $2B00 have been changed to $C00 andÉ
;É$2C00	respectively.

; See rev note #101.
; May 19, 1989		--Monte	Benaresh

loader_end
		if	loader_end-procstart = $C80 goto .loader_ok
		if	loader_end-procstart < $C80 goto .loader_pad

		aerror	'P8 ERROR: loader overflows $2C80'
.loader_pad
		ds.b	$C80 - (loader_end-procstart)      ;	pad to $2C80
.loader_ok

		ENDP


		TITLE	' ProDOS Global Page'
PROCTWO		PROC	ORG Proc2_Org
procstart
		longi	off
		longa	off

		msb	off

		EXPORT	devnum
		EXPORT	jspare
		EXPORT	entry
		EXPORT	datetime
		EXPORT	syserr
		EXPORT	sysdeath
		EXPORT	serr
		EXPORT	devadr01
		EXPORT	devcnt
		EXPORT	devlst
		EXPORT	mlient1
		EXPORT	aftirq
		EXPORT	old45
		EXPORT	afbank
		EXPORT	memtabl
		EXPORT	gl_buff
		EXPORT	intrupt1
		EXPORT	intrupt2
		EXPORT	intrupt3
		EXPORT	intrupt4
		EXPORT	intareg
		EXPORT	intxreg
		EXPORT	intyreg
		EXPORT	intsreg
		EXPORT	intpreg
		EXPORT	intbankid
		EXPORT	intaddr
		EXPORT	datelo
		EXPORT	timelo
		EXPORT	level
		EXPORT	bubit
		EXPORT	spare1
		EXPORT	newpfxptr
		EXPORT	machid
		EXPORT	sltbyt
		EXPORT	pfixptr
		EXPORT	mliactv
		EXPORT	cmdadr
		EXPORT	savex
		EXPORT	savey
		EXPORT	exit
		EXPORT	exit1
		EXPORT	exit2
		EXPORT	mlicont
		EXPORT	rpmcont
		EXPORT	irqxit
		EXPORT	irqxit0
		EXPORT	irqxit1
		EXPORT	irqxit2
		EXPORT	romxit
		EXPORT	irqent
		EXPORT	bnkbyt1
		EXPORT	bnkbyt2
		EXPORT	ibakver
		EXPORT	iversion
		EXPORT	kbakver
		EXPORT	kversion

*	org globals     

entry		jmp	mlient1		; mli call entry point

************ see rev note #36 *************************


jspare		jmp	jspare		; will be changed to point to dispatcher
*					  caller by the loader.
*******************************************************
datetime	DC.B	$60		; changed to $4c (jmp) if clock	present.
		DC.W	tclk_in		; clock	routine	entry address.
syserr		jmp	syserr1		; error	reporting hook.
sysdeath	jmp	sysdeath1	; system failure hook.
serr		DC.B	$00		; error	code, 0=no error.

* device driver	vectors. 

		Import	gnodev
devadr01	DC.W	gnodev		; slot zero reserved
		DC.W	gnodev		; slot 1, drive	1
		DC.W	gnodev		; slot 2, drive	1
		DC.W	gnodev		; slot 3, drive	1
		DC.W	gnodev		; slot 4, drive	1
		DC.W	gnodev		; slot 5, drive	1
		DC.W	gnodev		; slot 6, drive	1
		DC.W	gnodev		; slot 7, drive	1
		DC.W	gnodev		; slot zero reserved
		DC.W	gnodev		; slot 1, drive	2 
		DC.W	gnodev		; slot 2, drive	2 
		DC.W	gnodev		; slot 3, drive	2 
		DC.W	gnodev		; slot 4, drive	2 
		DC.W	gnodev		; slot 5, drive	2 
		DC.W	gnodev		; slot 6, drive	2 
		DC.W	gnodev		; slot 7, drive	2 

* configured device list by device number
* access order is last in list first.

devnum	Dc.b	00		; most recent accessed device. 
devcnt		Dc.b	$ff		; number of on-line devices (minus 1). 
devlst		Dc.b	0,0,0,0,0,0,0
		Dc.b	0,0,0,0,0,0,0	; up to	14 units may be	active.	        

*** Changed 18-Aug-92 DAL -- Avoid crashing people who were stupid enough to
*** use the official remove-/RAM code, where they stop at a $00 when shifting
*** the device list.  Now we have 
;;; 		DC.B	'(C)APPLE''83'
		dc.b	$00,'(C)APPLE  '
*** end 18-Aug-92

mlient1		php
		sei
		jmp	mlicont
aftirq		sta	ramin
		jmp	fix45		; restore $45 after interrupt in lang card

****** see rev note #en3 ******

* note:	this code was moved down here so a branch could	reach gorpm.


*******************************

* THE following	MUST be	alligned to $bf56!

old45		DC.B	0
afbank		DC.B	0



* memory map of	the lower 48k.	each bit represents one	page
* (256 bytes) of memory.  protected areas are marked with a
* 1, unprotected with a	0.  prodos dis-allows reading or
* buffer allocation in protected areas.

memtabl		DC.B	$c0,$00,$00,$00,$00,$00,$00,$00
		DC.B	$00,$00,$00,$00,$00,$00,$00,$00
		DC.B	$00,$00,$00,$00,$00,$00,$00,$01


* the addresses	contained in this table	are buffer addresses
* for currently	open files.  these are informational only,
* and should not be changed by the user	except through the 
* mli call setbuf.

gl_buff		DC.W	$0000		; file number 1 
		DC.W	$0000		; file number 2 
		DC.W	$0000		; file number 3 
		DC.W	$0000		; file number 4 
		DC.W	$0000		; file number 5 
		DC.W	$0000		; file number 6 
		DC.W	$0000		; file number 7 
		DC.W	$0000		; file number 8 



* interrupt vectors are	stored here.  again, this area is
* informational	only, and should be changed only by calls
* to the mli to	allocate_interrupt.  values of the a, x, y,
* stack, and status registers at the time of the most recent
* interrupt are	also stored here.  in addition,	the address
* interrupted is also preserved.  these	may be used for
* performance studies and debugging, but should	not be changed
* by the user.

intrupt1	DC.W	$0000		; interupt routine 1 
intrupt2	DC.W	$0000		; interupt routine 2 
intrupt3	DC.W	$0000		; interupt routine 3 
intrupt4	DC.W	$0000		; interupt routine 4 
intareg		DC.B	$00		; a-register 
intxreg		DC.B	$00		; x-register 
intyreg		DC.B	$00		; y-register 
intsreg		DC.B	$00		; stack	register 
intpreg		DC.B	$00		; status register 
intbankid	DC.B	$01		; rom, ram1, or	ram2 ($d000 in lc) 
intaddr		DC.W	$0000		; program counter return addr. 



* the user may change the following options prior
* to calls to the mli.

datelo		DC.W	$0000		; bits 15-9=yr,	8-5=mo,	4-0=day 
timelo		DC.W	$0000		; bits 12-8=hr,	5-0=min; low-hi	format. 
level		DC.B	$00		; file level: used in open, flush, close. 
bubit		DC.B	$00		; backup bit disable, setfileinfo only. 
spare1		DC.B	$00		; Used to save A reg
newpfxptr	DC.B	$00		; used as AppleTalk alternate prefix ptr


* the following	are informational only.	 machid	identifies
* the system attributes:
* (bit 3 off) bits 7,6-	 00=ii	01=ii+	 10=iie	  11=/// emulation
* (bit 3 on)  bits 7,6-	 00=na	01=na	 10=//c	  11=na
*	      bits 5,4-	 00=na	01=48k	 10=64k	  11=128k
*	      bit  3	modifier for machid bits 7,6. 
*	      bit  2	reserved for future definition. 
*	      bit  1=1-	 80 column card
*	      bit  0=1-	 recognizable clock card

* sltbyt indicates which slots are determined to have roms.
* pfixptr indicates an active prefix if	it is non-zero.
* mliactv indicates an mli call	in progress if it is non-zero.
* cmdadr is the	address	of the last mli	call's parameter list.
* savx and savy	are the	values of x and	y when the mli 
*  was last called.

machid		DC.B	$00		; machine identification. 
sltbyt		DC.B	$00		; '1' bits indicate rom	in slot(bit#) 
pfixptr		DC.B	$00		; if = 0, no prefix active.. 
mliactv		DC.B	$00		; if <>	0, mli call in progress
cmdadr		DC.W	$0000		; return address of last call to mli. 
savex		DC.B	$00		; x-reg	on entry to mli
savey		DC.B	$00		; y-reg	on entry to mli



* the following	space is reserved for language card bank
* switching routines.  all routines and	addresses are
* subject to change at any time	without	notice and will, 
* in fact, vary	with system configuration.
* the routines presented here are for 64k systems only. 


; NOTE:	As of April, 1989, the code at "exit" must always
; reside at $BFA0 because PFI (workstation software) patches
; this area in order to	properly handle	re-entrancy
; issues associated with interrupts.

; IN ADDITION, the expected state of the stack must never
; change because the PFI patch manipulates return address
; data at hard-coded stack offsets.

; This restriction is associated with revision note #100.

exit
		if	exit-procstart	= $A0 goto .exit_ok
		aerror	'P8 ERROR: "exit" not at $BFA0'
.exit_ok

		eor	$e000		; test for rom enable. 
		beq	exit1		; branch if ram	enabled.
		sta	romin		; else enable rom and return.
		bne	exit2		; branch always 


exit1		lda	bnkbyt2		; for alternate	ram (mod by mlient1) 
		eor	$d000		; enable.
		beq	exit2		; branch if not	alternate ram.
		lda	altram		; else enable alt $d000
exit2		pla			; restore return code.
		rti			; re-enable interupts and return 


mlicont		sec
		ror	mliactv		; indicate to interupt routines	mli active.

***** see rev note #en3	*******


*******************************
rpmcont		lda	$e000		; preserve language card / rom 
		sta	bnkbyt1		; orientation for proper 
		lda	$d000		; restoration when mli exits...
		sta	bnkbyt2
		lda	ramin		; now force ram	card on
		lda	ramin		; with ram write allowed.

*********** see	rev note #en3 ************


******************************************
		jmp	$de00		; "entrymli"


* interupt exit/entry routines



irqxit		lda	intbankid	; determine state of ram card 
irqxit0		beq	irqxit2		; if any.  branch if enabled.
		bmi	irqxit1		; branch if alternate $d000 enabled.
		lsr	a		; determine if no ram card present.
		bcc	romxit		; branch if rom	only system.
		lda	romin1		; else enable rom first.
		bcs	romxit		; branch always	taken...
irqxit1		lda	altram		; enable alternate $d000.
irqxit2		lda	#1		; preset bankid	for rom.
		sta	intbankid	; (reset if ram	card interupt)
romxit		lda	intareg		; restore accumulator...
		rti			; and exit!


irqent		bit	ramin		; this entry only used when rom
		bit	ramin		; was enabled at time of interupt.
		jmp	irqrecev	; a-reg	is stored at $45 in zpage.
bnkbyt1		DC.B	$00
bnkbyt2		DC.B	$00


***************	see rev	note #36 **********************


	if *-procstart<$FA then		; pad
		Ds.b	$FA-(*-procstart)
	endif

gsos_cmp	DC.B	$04		; GS/OS	compatibility byte (Feb/Mar 1989)  ** see rev note #98 **
					; Updated 5/23/89.  See	rev note #101.

		dc.b	0		; pad


ibakver		DC.B	$00		; reserved
iversion	DC.B	$00		; version # of currently running interpreter



kbakver		DC.B	$00		; this must be preserved for SYSTEM UTILITIES
kversion	DC.B	$23		; Represents release 2.0.3 (24-Mar-93 DAL)

		ENDP

		TITLE	' ProDOS Machine Language Interface'
PROCTHREE	PROC	ORG Proc3_Org
procstart


		longa	off
		longi	off

		EXPORT	syserr1
		EXPORT	sysdeath1
	if use_ram_drvr then
		EXPORT	ramdrvr
	endif
		EXPORT	irqrecev
		EXPORT	irqflag
		EXPORT	calldisp
		EXPORT	xdosver
		EXPORT	cortflag
		
		Entry	gnodev

*	org Proc3_Org       
* * * *	* * * *	* * * *	* * * *	*
*    the xdos machine language	*
*	  interface (mli)	*
*      system call processor	*
* * * *	* * * *	* * * *	* * * *	*


entrymli	cld			; cannot deal with decimal mode!!!
		pla			; get processor	status
		sta	spare1		; save it on the global	page temporarily
		sty	savey		; preserve the y and x registers.
		stx	savex
		pla			; find out the address of the caller.
		sta	par
		clc			; and preserve the address of the call spec.
		adc	#4
		sta	cmdadr
		pla
		sta	par+1
		adc	#0
		sta	cmdadr+1	; cmdadr is in the globals.
		lda	spare1
		pha
		plp			; pull processor to re-enable interrupts
		cld			; no decimal! (** #46 **)
		ldy	#0
		sty	serr		; clear	any previous errors...
		iny			; find out if we've got a valid command.
		lda	(par),y		; get command #
		lsr	a		; hash it to a range of	0-$1f.
		lsr	a
		lsr	a
		lsr	a
		clc
		adc	(par),y
		and	#$1f
		tax
		lda	(par),y		; now see if result is a valid command number.
		cmp	scnums,x	; should match if it is.
		bne	scnerr		; branch if not.
		iny			; index	to call	spec parm list addr.
		lda	(par),y		; make par point to parameter count byte 
		pha			; in parameter block. 
		iny
		lda	(par),y
		sta	par+1
		pla
		sta	par
		ldy	#c_pcnt		; now make sure	parameter list has the
		lda	pcntbl,x	; proper number	of parameters 
		beq	goclock		; clock	has 0 parameters
		cmp	(par),y
		bne	scperr		; report error if wrong	count.

		lda	scnums,x	; get call number again.
		cmp	#$65
		beq	special
		asl	a		; carry	set if bfm or dev mgr.
		bpl	godevmgr
		bcs	gobfmgr
		lsr	a		; shift	back down for interrupt	mgr.
		and	#$3		; valid	calls are 0 & 1
		jsr	intmgr
		bra	exitmli		; command processed, all done.

special
		jmp	jspare

goclock		jsr	datetime	; go read clock.
		bra	exitmli		; no errors posible!

godevmgr	lsr	a		; save command #
		adc	#1		; valid	commands are 1 & 2
		sta	dhpcmd
		jsr	devmgr		; execute read or write	request.
		bra	exitmli

gobfmgr		lsr	a
		and	#$1f		; valid	commands in range of 0-$13
		tax
		jsr	bfmgr		; go do	it...

exitmli		stz	bubit		; first	clear bubit. 
		ldy	serr		; y holds error	code thru most of exit. 
		cpy	#1		; if >0	then set carry 
		tya			; and set z flag. 
		php			; disable interrupts until exit	complete. 
		sei
		lsr	mliactv		; indicate mli done.(**	#46 **)	(** #85	**)
		plx			; save status register elswhere until return
		lda	cmdadr+1	; address is placed on the stack.
		pha
		lda	cmdadr		; returning is done via	'rti' so that the
		pha			; status register is restored at the same time.
		phx			; place	status back on the stack.
		tya			; return error,	if any.
		ldx	savex		; restore x & y	registers.
		ldy	savey
		pha
		lda	bnkbyt1		; restore language card	status & return.
		jmp	exit

gnodev		lda	#xnodrv		; report no device connected.
		jsr	syserr

scnerr		lda	#badscnum	; report no such command.
		bne	scerr1		; branch always

scperr		lda	#badscpcnt	; report parameter count is invalid.
scerr1		jsr	gosyserr
		bcs	exitmli		; branch always	taken.

		TITLE	' ProDOS Device Manager'
devmgr		ldy	#5		; the call spec	for devices must
		php			; do not allow interrupts.
		sei
dvmgr1		lda	(par),y		; be passed to drivers in zero page.
		sta	|dhpcmd,y	; dhpcmd,unitnum,bufptr,blocknum.
		dey
		bne	dvmgr1
		ldx	dbufph
		stx	usrbuf+1
		inx
		inx			; add 2	for 512	byte range 
		lda	dbufpl		; is buffer page alligned?
		beq	dvmgr2		; branch if it is.
		inx			; else account for 3-page straddle...
dvmgr2		jsr	vldbuf1		; make sure user is not	conflicting
		bcs	dvmgrerr	; with protected ram
		jsr	dmgr		; call internal	entry for device dispatch.
		bcs	dvmgrerr	; branch if error occured.
		plp
		clc			; make sure carry is clear (no error)
gl_rts		rts
dvmgrerr	plp			; restore interrupt status.
gosyserr	jsr	syserr


*  NOTE: interrupts must always	be off when entering here

dmgr		lda	unitnum		; get device number.
		and	#$f0		; strip	misc lower nibble
		sta	unitnum		; and save it back.
		lsr	a		; use as index to device table.
		lsr	a
		lsr	a
		tax
		lda	devadr01,x	; fetch	driver address.
		sta	goadr
		lda	devadr01+1,x
		sta	goadr+1
gocmd		jmp	(goadr)		; goto driver (or error	if no driver)

		TITLE	' ProDOS Interrupt Manager'
intmgr
		sta	intcmd		; allocate intrupt or deallocate?
	if 0 then	; not used, since AppleTalk intercepts the $BF00 vector directly
* -------------------- see rev note 20 ---------------------------
***************** see rev note #en3 *****************
		cmp	#2		; alloc	& dealloc = 0 &	1; 2 = atalk
		bcc	intmgr1
		jsr	dobus		; go set up and	call atp drivers.
		bcs	interr1		; signify error
		rts
intmgr1
* ---------------------------------------------------------------
	endif
		lsr	a		; (acc=0, carry	set=dealloc)
		bcs	dealcint	; branch if deallocation.
		ldx	#3		; test for a free interrupt space in table.
alcint		lda	intrupt1-2,x	; test high addr for zero.
		bne	alcint1		; branch if spot occupied. 
		ldy	#c_intadr+1	; fetch	address	of routine.
		lda	(par),y		; must not be in zero page!!!!
		beq	badint		; branch if the	fool tried it.
		sta	intrupt1-2,x	; save high address
		dey
		lda	(par),y
		sta	intrupt1-3,x	; and low address.
		txa			; now return interrupt # in range of 1 to 4.
		lsr	a
		dey
		sta	(par),y		; pass back to user.
		clc			; indicate success!
		rts

alcint1		inx
		inx			; bump to next lower priority spot.
		cpx	#$b		; are all four allocated already?
		bne	alcint		; branch if not.

		lda	#intblful	; return news that four	devices	are active.
		bne	interr1

badint		lda	#badlstcnt	; report invalid parameter.
interr1		jsr	syserr


dealcint	ldy	#c_intnum	; zero out interrupt vector.
		lda	(par),y		; but make sure	it is valid #
		beq	badint		; branch if it's <1
		cmp	#5		; or >4
		bcs	badint
		asl	a
		tax
		lda	#0		; now zip it.
		sta	intrupt1-2,x
		sta	intrupt1-1,x
		clc
		rts

irqrecev	lda	$45		; get acc from 0-page where old	rom put	it
		sta	intareg
		stx	intxreg		; entry	point on ram card interrupt 
		sty	intyreg
		tsx
		stx	intsreg
		lda	irqflag		; irq flag byte	= 0 if old roms
		bne	irqrcv1		; and 1	if new roms
		pla
		sta	intpreg
		pla
		sta	intaddr
		pla
		sta	intaddr+1
irqrcv1		txs			; restore return addr &	p-reg to stack
		lda	$7f8		; set up to re-enable $cn00 rom. 
		sta	irqdev+2
		tsx			; make sure stack has room for 16 bytes
		bmi	nostsve		; branch if stack safe.
		ldy	#$f
stksve		pla
		sta	svstack,y
		dey
		bpl	stksve
nostsve		ldx	#$fa		; save 6 bytes of zero page
zpgsve		lda	$0,x
		sta	svzerop-$fa,x
		inx
		bne	zpgsve

* poll interrupt routines for a	claimer.

		lda	intrupt1+1	; test for valid routine.
		beq	intr2		; branch if no routine.
		jsr	goint1
		bcc	irqdone
intr2		lda	intrupt2+1	; test for valid routine.
		beq	intr3		; branch if no routine.
		jsr	goint2		; execute routine.
		bcc	irqdone
intr3		lda	intrupt3+1	; test for valid routine.
		beq	intr4		; branch if no routine.
		jsr	goint3
		bcc	irqdone
intr4		lda	intrupt4+1	; test for valid routine.

		beq	irqdeath

		jsr	goint4		; execute routine.
		bcc	irqdone

***************	see rev	note #35 *************************
irqdeath	inc	irqcount	; allow	255 unclaimed interrupts before
		bne	irqdone		; going	to system death...
**********************************************************

		lda	#badirq		; kill the system, no one claimed the interrupt.
		jsr	sysdeath


irqdone		ldx	#$fa
irqdne1		lda	svzerop-$fa,x	; restore zero page stuff.
		sta	$0,x
		inx
		bne	irqdne1
		ldx	intsreg		; test for necessity of	restoring stack	elements.
		bmi	irqdne3
		ldy	#$00
irqdne2		lda	svstack,y
		pha
		iny
		cpy	#$10
		bne	irqdne2
irqdne3
		lda	irqflag		; check	for old	roms
		bne	irqdne		; branch if new	roms
		ldy	intyreg		; restore registers.
		ldx	intxreg
		lda	$cfff		; re-enable i/o	card 
irqdev		lda	$c100		; warning, self	modified. 
		lda	irqdev+2	; restore device id
		sta	$7f8		; just in case...
irqdne		jmp	irqxit		; do necessary bank switches and return.

irqflag		DC.B	0		; irq flag byte. 0=old roms; 1=new roms
irqcount	DC.B	0		; unclaimed interrupt counter.(note #35)
svstack		ds.b	$10		; storage for saving portion of stack
svzerop		ds.b	6		; storage for zero page usage

goint1		jmp	(intrupt1)
goint2		jmp	(intrupt2)
goint3		jmp	(intrupt3)
goint4		jmp	(intrupt4)

		Title	' Error Handlers'
; Ensure that SysErr1 is in non-bank-switched memory
	if (*-procstart) < ($E000-Proc3_Org) then
		ds.b	$E000-Proc3_Org-(*-procstart)
	endif

syserr1		sta	serr
		plx
		plx			; pop 1	level of return.
		sec
		rts

line11		equ	$528
line12		equ	$5a8
line13		equ	$628

line23		equ	$750
line24		equ	$7d0


***************	see rev	note #36 **************************


sysdeath1	tax			; system death!!!
		sta	$c00c		; force	40 columns on rev-e.
		lda	$c051		; text mode on.

**************** see rev note #61 **************************

		lda	cortflag	; check	if we're on a cortland
		beq	nosuphires	; if not, don't touch shires switch
		stz	$c029		; force	off super hires
nosuphires

************************************************************


		lda	$c054		; display page 1 on.

		ldy	#19		; move 20 characters
dsdeath		lda	#$20		; inverse space border
		sta	line11+10,y
		sta	line13+10,y
		lda	death,y
		sta	line12+10,y
		dey
		bpl	dsdeath

***********************************************************
		txa
		and	#$f
		ora	#$b0
		cmp	#$ba
		bcc	pq		; branch if not	>9
		adc	#$6		; bump to alpha	a-f
pq		sta	line12+28
halt		bra	halt		; hold forever.

		TITLE	' ProDOS Block File Manager'
bfmgr
	if 0 then
		stx	command		; what call?
	endif
		lda	disptch,x	; translate into command address
		asl	a		; (bit 7 indicates a pathname to preprocess)
		sta	cmdtemp
		and	#$3f		; (bit 6 is refnum preprocess, 5 is for	time, so strip em.) 
		tax
		lda	cmdtable,x	; move address for indirect jump.
		sta	goadr
		lda	cmdtable+1,x	; (high	byte)
		sta	goadr+1
		lda	#$20		; init "backup bit flag"
		sta	bkbitflg	; to say "file modified"
		bcc	nopath
		jsr	setpath		; go process pathname before calling command
		bcs	errorsys	; branch if bad	name.

**************************************************************
nopath		asl	cmdtemp		; test for refnum preprocessing
		bcc	nopreref
		jsr	findfcb		; go set up pointers to	fcb and	vcb of this file.
		bcs	errorsys	; branch if any	errors are encountered.
nopreref	asl	cmdtemp		; lastly check for necessity of	time stamp.
		bcc	execute
		jsr	datetime	; (no error posible)
execute		jsr	gocmd		; execute command
		bcc	goodop		; branch if successful

errorsys	jsr	syserr
goodop		rts			; good return 

		eject
setpath
		ldy	#c_path		; index	to pathname pointer
		lda	(par),y		; get low pointer addr.
		sta	tpath
		iny
		lda	(par),y		; and hi pointer addr.
		sta	tpath+1

synpath					; entry	used by	rename for second pathname.
		ldx	#0		; x register is	used as	index to pathbuf
		ldy	#0		; y register is	index to input pathname.
		stx	prfxflg		; assume prefix	is in use.
		stx	pathbuf		; mark pathbuf to indicate nothing processed.
		lda	(tpath),y	; validate pathname length>0, and <65 
		beq	errsyn
		cmp	#$41
		bcs	errsyn
		sta	pathcnt		; this is used to compare for 
		inc	pathcnt		; end of pathname processing.
		iny			; now check for	full pathname...
		lda	(tpath),y	; (full	name if	starts with "/".)
		ora	#$80
		cmp	#$af
		bne	spath2		; branch if prefix appended
		sta	prfxflg		; set prefix flag to indicate prefix not used.
		iny			; index	to first charcter of pathname.

spath2			
		lda	#$ff		; set current position of pathbuf
		sta	pathbuf,x	; to indicate end of pathname.
		sta	namcnt		; also indicate	no characters processed	in local name.
		stx	namptr		; preserve pointer to local name length	byte.
spath3
		cpy	pathcnt		; done with pathname processing?
		bcs	endpath
		lda	(tpath),y	; get character
		and	#$7f		; we're not interested in high order bit.
		inx			; prepare for next character.
		iny
		cmp	#$2f		; is it	delimiter "/"?
		beq	endname		; branch if it is.
		cmp	#$61		; is it	lower case character?
		bcc	notlower	; branch if not.
		and	#$5f		; upshift to upper case
notlower	sta	pathbuf,x	; store	charcter.
		inc	namcnt		; is it	the first of a local name?
		bne	notfrst		; branch if not.
		inc	namcnt		; kick count to	1
		bne	tstalfa		; first	char. must be alpha (branch always taken).

notfrst		cmp	#$2e		; is it	"."?
		beq	spath3		; it's ok if it is, do next char.
		cmp	#$30		; is it	at least "0"?
		bcc	errsyn		; report syntax	error if not.
		cmp	#$3a		; is it	numeric?
		bcc	spath3		; ok if	it is, do next character.
tstalfa
		cmp	#$41		; is it	at least an "a"?
		bcc	errsyn		; report err if	not.
		cmp	#$5b		; is it	g.t. "z"?
		bcc	spath3		; get next char	if valid alpha.

errsyn		sec			; make sure carry set.
		lda	#badpath
		rts			; report error.

endpath		lda	#0		; end pathname with 0.
		bit	namcnt		; also make sure name count is positive.
		bpl	epath2
		sta	namcnt
		dex
epath2		inx
		sta	pathbuf,x
		beq	errsyn		; report error if "/" only
		stx	pathcnt		; save true length of pathname.
		tax			; x=0 causes end of process, after endname.

endname		lda	namcnt		; validate local name <16
		cmp	#$10
		bcs	errsyn
		phx			; save current pointer.
		ldx	namptr		; get index to beginning of local name.
		sta	pathbuf,x	; save local name's length.
		plx			; restore x
		bne	spath2		; branch if more names to process.
		clc			; indicate success!
		lda	prfxflg		; but make sure	all pathnames are
		bne	en1		; prefixed or begin with a "/".
		lda	newpfxptr	; must be non zero
		beq	errsyn
en1		rts

		eject
setprefx	jsr	setpath		; call is made here so a 'nul' path may	be detected.
		bcc	setprfx1	; branch if pathname ok
		ldy	pathbuf		; was it a nul pathname?
		bne	pfxerr		; branch if true syntax	error.
		jsr	stypfx		; indicate nul prefix
		clc			; no error. 
		rts

setprfx1
		jsr	findfile	; go find specified prefix directory.
		bcc	setprfx2	; branch if no error
		cmp	#badpath
		bne	pfxerr		; branch if error is real (not root dir)
setprfx2	lda	d_stor		; make sure last local name is directory type.
		and	#$d0		; (either root or sub)
		eor	#$d0		; is it	a directory?
		bne	ptyperr		; report wrong type.
		ldy	prfxflg		; new or appended prefix?
		bne	setprfx3
		lda	newpfxptr	; append new prefix to old.
setprfx3	tay
		sec			; find new beginning of	prefix.
		sbc	pathcnt
		cmp	#$c0		; too long?
		bcc	errsyn		; report it if so.
		tax
		jsr	stapfx
		lda	d_dev		; save device number.
		sta	p_dev
		lda	d_frst		; and addr of first block.
		sta	p_blok
		lda	d_frst+1
		sta	p_blok+1
movprfx		lda	pathbuf,y
		sta	pathbuf,x
		iny
		inx
		bne	movprfx
		clc			; indicate good	prefix.
		rts

ptyperr		lda	#typerr		; report not a directory.
pfxerr		sec			; indicate error
		rts

		eject
getprefx	clc			; calculate how	big a buffer is	needed to 
		ldy	#c_path		; get index to users pathname buffer
		lda	(par),y
		sta	usrbuf
		iny
		lda	(par),y
		sta	usrbuf+1
		stz	cbytes+1	; set buf length at max.
		lda	#$40		; (64 characters max).
		sta	cbytes
		jsr	valdbuf		; go validate prefix buffer addr.
		bcs	pfxerr
		ldy	#0		; y is indirect	index to user buffer.
		lda	newpfxptr	; get address of beginning of prefix
		tax
		beq	nulprfx		; branch if nul	prefix.
		eor	#$ff		; get total length of prefix
		adc	#2		; add 2	for leading and	trailing slashes.
nulprfx		sta	(usrbuf),y	; store	length in users	buffer.
		beq	gotprfx		; branch if nul	prefix.
sendprfx	iny			; bump to next user buf	loc.
		lda	pathbuf,x	; get next char	of prefix.
sndlimit	sta	(usrbuf),y	; give character to user.
		and	#$f0		; check	for length descriptor
		bne	sndpfx1		; branch if regular character
		lda	#$2f		; otherwise, substitute	a slash	"/".
		bne	sndlimit	; branch always.

sndpfx1		inx
		bne	sendprfx	; branch if more to send.
		iny
		lda	#$2f		; end with "/"
		sta	(usrbuf),y
gotprfx		clc			; indicate no error.
		rts

		eject
findfcb		ldy	#c_refnum	; index	to reference number
		lda	(par),y		; is it	a valid	file number?
		beq	reefer		; must not be 0!
		cmp	#9		; must be 1 to 8 only.
		bcs	reefer		; user must be stoned...
		pha
		dec	a		; subtracts 1
		lsr	a		; shift	low 3 bits to high bits.
		ror	a
		ror	a
		ror	a		; effective multiply by	32.
		sta	fcbptr		; latter used as an index to fcb.
		tay			; like now.
		pla			; restore refnum in acc.
		cmp	fcb+fcbrefn,y	; is it	an open	reference?
		bne	errnoref	; branch if not.

fndfcbuf	lda	fcb+fcbfbuf,y	; get page addr. of file buffer.
		jsr	getbufadr	; get files address into bufaddrl&h
		ldx	bufaddrh	; (y=fcbptr preserved)
		beq	fcbdead		; report fcb screwed up!!!
		stx	datptr+1	; save pointer to data area of buffer.
		inx
		inx			; index	block always 2 pages after data.
		stx	tindx+1
		lda	fcb+fcbdevn,y	; also set up device number.
		sta	devnum
		lda	bufaddrl
		sta	datptr
		sta	tindx		; index	and data buffers always	on page	boundaries. 

fndfvol		tax			; search for associated	vcb.
		lda	vcb+vcbdev,x
		cmp	fcb+fcbdevn,y	; is this vcb the same device?
		beq	tstvopen	; if it	is, make sure volume is	active.

nxtfvol		txa			; adjust index to next vcb.
		clc
		adc	#vcbsize
		bcc	fndfvol		; loop until volume found.
		lda	#vcberr		; report open file has no volume...
		jsr	sysdeath	; and kill the system.

fcbdead		lda	#fcberr		; report fcb trashed!
		jsr	sysdeath	; and kill the system.

tstvopen	lda	vcb,x		; make sure this vcb is	open
		beq	nxtfvol		; branch if it is not active.
		stx	vcbptr		; save pointer to good vcb.
		clc			; indicate all is well.
		rts

errnoref	lda	#0		; drop a zero into this	fcb to
		sta	fcb+fcbrefn,y	; show free fcb

reefer		lda	#badrefnum	; tell user that requested refnum
		sec			; is illegal (out of range) for	this call.
		rts

		eject
online		jsr	mvdbufr		; move user specified buffer pointer to	usrbuf. 
		stz	cbytes		; figure out how big buffer has	to be.
		stz	cbytes+1	; set this for valdbuf
		ldy	#c_devnum
		lda	(par),y		; if zero then cbytes=$100, else =$010 for one device.
		and	#$f0		; mask out unused nybble  <---------------------------|
		sta	devnum		; store	here for below <------------------------------|
					;						      |
		beq	olin1		; branch if all	devices.			      |
		lda	#$10		;						      |
		sta	cbytes		;						      |
		bne	olin2		; always taken					      |
olin1					;						      |
		inc	cbytes+1	; set this byte	to 1.  do this for valdbuf <----------|
olin2		jsr	valdbuf		; go validate buffer range against allocated memory.  |
		bcs	onlinerr	;						      |
		lda	#0		; zero out user	buffer space.			      |
		ldy	cbytes		;						|-----|
olin3		dey			;						|
		sta	(usrbuf),y	; zero either 16 or 256	bytes.			| see
		bne	olin3		; branch if more to zero.			|
		sta	namptr		; use namptr as	pointer	to user	buffer.		| rev
					;						|
		lda	devnum		; get device number again. <--------------------| note
					;						|
		bne	online1		; branch if only 1 device to process.		| #96
		jsr	mvdevnums	; get list of currently	recognized devices.	|
olin4		phx			; save index to	last item on list.		|
		lda	loklst,x	; get next device #				|
		sta	devnum		; save desired device to look at. <-------------|
		jsr	online1		; log this volume and return it's name to user. |
olin5		lda	namptr		; bump pointer for next	device.			|
		clc			;						|
		adc	#$10		;						|
		sta	namptr		;						|
		plx			; get index to device list.			|
		dex			; index	to next	device				|
		bpl	olin4		; branch if there is another device.		|
		lda	#0		; no errors for	muliple	on-line.		|
		clc			; indicate good	on all volumes.			|
onlinerr	rts			;						|
					;						|
					;;						       |
online1					; "sta devnum" used to be here	<---------------|
		jsr	fnddvcb		; see if it has	already	been logged in.
		bcs	olinerr1	; branch if vcb	is full
		ldx	#0		; read in root (volume)	directory.
		lda	#2
		jsr	rdblk		; read it into general purpose buffer.
		ldx	vcbptr		; use x	as an index to the vcb entry.

* this fix is to remove	vcb entries that correspond to devices that
* are no longer	in the device list (i.e. removed by the	user).

		bcc	volfound	; branch if the	read was ok.
		tay			; save off error value in y.
		lda	vcb+vcbstat,x	; don't take the vcb off line if
		bne	rtrnerr		; there	are active files present!
		sta	vcb,x		; now take the volume off line.	  
		sta	vcb+vcbdev,x
rtrnerr		tya			; now return error to accumulator.
		bcs	olinerr1	; branch if unable to read.
volfound
*-----------------------------------------------------------------
		lda	vcb,x		; has it been logged in	before?
		beq	olin11		; branch if not.
		lda	vcb+vcbstat,x	; it has, are there active files?
		bmi	olin12		; branch if the	volume is currently busy.
olin11		jsr	logvcb1		; go log it in.
		bcs	olinerr1	; branch if there is some problem (like	notsos).
		lda	#dupvol		; anticipate a duplicate active	volume exists.
		bit	duplflag
		bmi	olinerr1	; branch if we guessed right.
olin12		ldx	vcbptr		; restore vcbptr just in case we lost it.
		jsr	cmpvcb		; does read in volume compare with logged volume?
		lda	#dswtched	; anticipate wrong volume mounted in active device.
		bcc	olin13		; branch if no problem!
olinerr1	pha			; save error code.
		jsr	svdevn		; tell user what device	we looked at.
		pla			; get error code again
		iny			; tell user what error was encountered on this device
		sta	(usrbuf),y
		cmp	#dupvol		; was it a duplicate volume error?
		bne	olinerr2	; branch if not,
		iny			; otherwise tell user which other device has same name.
		ldx	vcbentry
		lda	vcb+vcbdev,x
		sta	(usrbuf),y
		stz	duplflag	; clear	duplicate flag.
		lda	#dupvol		; restore error	code.
olinerr2	sec			; indicate error.
		rts

olin13		lda	vcb,x		; get volume name count
		sta	namcnt
		ldy	namptr		; index	to user's buffer
olin14		lda	vcb,x		; move name to user's buffer
		sta	(usrbuf),y
		inx
		iny
		dec	namcnt		; loop until all characters moved.
		bpl	olin14
svdevn		ldy	namptr		; index	to first byte of this entry.
		lda	devnum		; put device number in upper nibble of this byte.
		ora	(usrbuf),y	; lower	nibble is name length.
		sta	(usrbuf),y
		clc			; indicate no errors.
		rts

		eject
create		jsr	lookfile	; check	for duplicate /	get free entry
		bcs	tstfnf		; error	code in	acc may	be 'file not found'
		lda	#duperr		; tell em a file of that name already exists
crerr1		sec			; indicate error encountered
		rts			; return error in acc.

tstfnf		cmp	#fnferr		; 'file not found' is what we want
		bne	crerr1		; pass back other error.
		ldy	#c_fkind	; test for "tree" or directory file.
		lda	(par),y		; no other kinds are legal.
		cmp	#$4		; is it	seed, sapling, or tree?
		bcc	tstdspc		; branch if it is.
		cmp	#$d
		bne	ctyperr		; report type error if not directory.
tstdspc		lda	devnum		; before proceeding, make sure destination device 
		jsr	twrprot1	; is not write protected...
		bcs	crtn
		lda	nofree		; is there space in directory to add this file?
		beq	xtndir		; branch if not.
		jmp	creat1		; otherwise, go	create file.

ctyperr		lda	#typerr
		sec			; indicate error
crtn		rts

xtndir		lda	own_blok	; before extending directory,
		ora	own_blok+1	; make sure it is a sub	directory!!!
		bne	xtndir1
		lda	#dirfull	; otherwise report directory full error.
		sec
		rts

xtndir1		lda	bloknml		; preserve disk	address	of current (last)
		pha
		lda	bloknmh		; directory link, before allocating an
		pha			; extend block.
		jsr	alc1blk		; allocate a block for extending directory.
		plx
		stx	bloknmh		; restore block	addr of	directory stuff	in gbuf.
		plx
		stx	bloknml
		bcs	crtn		; branch if unable to allocate.
		sta	gbuf+2		; save low block address in current directory
		sty	gbuf+3		; and hi adr too
		jsr	wrtgbuf		; go update dir. block with new	link.
		bcs	crtn		; (report any errors.)
		ldx	#1
swpbloks	lda	bloknml,x	; now prepare new directory block.
		sta	gbuf,x		; use current block as back link.
		lda	gbuf+2,x
		sta	bloknml,x	; and save new block as	next to	be writen.
		dex
		bpl	swpbloks
		inx			; now x=0
		txa			; and a=0 too.
clrdir		sta	gbuf+2,x
		sta	gbuf+$100,x
		inx
		bne	clrdir
		jsr	wrtgbuf		; write	prepared directory extension.
		bcs	crtn		; report errors.

		lda	own_blok
		ldx	own_blok+1
		jsr	rdblk		; read in 'parent' directory block. 
		ldx	own_ent		; prepare to calculate entry address.
		lda	#gbuf/256
		sta	drbufph
		lda	#4
ocalc		clc
		dex			; has entry adr. been computed
		beq	ocalc1		; branch if yes.
		adc	own_len		; bump to next entry adr.
		bcc	ocalc
		inc	drbufph		; entry	must be	in second 256 of block.
		bcs	ocalc		; branc	always.
ocalc1		sta	drbufpl
		ldy	#$13		; index	to block count.
ocalc2		lda	(drbufpl),y
		adc	dinctbl-$13,y	; add 1	to block count and 
		sta	(drbufpl),y
		iny
		tya			; $200 to the directory's end of file. 
		eor	#d_eof-dfil+3	; done with usage/eof update? 
		bne	ocalc2		; branch if not. 
		jsr	wrtgbuf		; go update parent.
		bcs	crerr2
		jmp	create
crerr2		rts			; report errors...

creat1
		ldx	#0		; zero out gbuf.
@clrgbuf	stz	gbuf,x
		stz	gbuf+$100,x	; first	zero out data block of file.
		inx
		bne	@clrgbuf	; loop until zipped!
		ldy	#c_time+1	; move user specified date/time
cmvtime		lda	(par),y		; to directory entry.
		sta	d_credt-c_date,y
		txa			; if all four bytes of date/time are zero
		ora	(par),y		; then use built in date/time.
		tax
		dey			; have all four	bytes been moved and tested?
		cpy	#c_fkind
		bne	cmvtime		; branch if not.
		txa			; does user want default time?
		bne	cmvname		; branch if not.
		ldx	#3
mvdftime	lda	datelo,x	; move current default date/time.
		sta	d_credt,x
		dex
		bpl	mvdftime

cmvname		lda	(par),y		; (y is	pointing at fkind.)
		cmp	#4
		lda	#$10		; assume tree type.
		bcc	csvfkind
		lda	#$d0		; it is	directory since	file kind has already been verified.
csvfkind	ldx	namptr		; get index to 'local' name of pathname.
		ora	pathbuf,x	; combine file kind with name length.
		sta	d_stor		; (sos calls this 'storage type')
		and	#$f		; strip	back to	name length.
		tay			; and use as count-down	for move.
		clc
		adc	namptr		; calculate end	of name.
		tax

crname		lda	pathbuf,x	; now move local name as filename.
		sta	d_stor,y
		dex
		dey			; all characters transfered?
		bne	crname		; branch if not.

		ldy	#c_attr		; index	to 'access' parameter.
		lda	(par),y
		sta	d_attr
		iny			; also move 'file identification'
		lda	(par),y
		sta	d_filid
cmvauxid	iny			; and finally, the auxillary identifcation bytes.
		lda	(par),y
		sta	d_auxid-c_auxid,y
		cpy	#c_auxid+1
		bne	cmvauxid
		lda	xdosver		; save current xdos version number.
		sta	d_sosver
		lda	compat		; and backward compatiblity number.
		sta	d_comp
		lda	#1		; usage	is always 1 block.
		sta	d_usage
		lda	d_head		; place	back pointer to	header block
		sta	d_dhdr
		lda	d_head+1
		sta	d_dhdr+1
		lda	d_stor		; get storage type again.
		and	#$e0		; is it	a directory
		beq	cralcblk	; branch if seed file.
		ldx	#$1e		; move header to data block.
cmvheadr	lda	d_stor,x
		sta	gbuf+4,x
		dex
		bpl	cmvheadr
		eor	#$30		; ($dn->$en) last one is fkind/namlen,
		sta	gbuf+4		; make it a directory header mark
		ldx	#7		; now overwrite	password area and other	header info.
cmvpass		lda	pass,x
		sta	gbuf+4+$10,x
		lda	xdosver,x
		sta	gbuf+4+$1c,x
		dex
		bpl	cmvpass

		ldx	#2		; and include info about parent	directory.
		stx	d_eof+1
cmvparnt	lda	d_entblk,x
		sta	gbuf+4+$23,x
		dex
		bpl	cmvparnt
		lda	h_entln		; lastly the length of parent's dir entries
		sta	gbuf+4+$26

cralcblk	jsr	alc1blk		; get address of file's data block.
		bcs	crerr3		; branch if error encountered.
		sta	d_frst
		sty	d_frst+1
		sta	bloknml
		sty	bloknmh
		jsr	wrtgbuf		; go write data	block of file.
		bcs	crerr3
		inc	h_fcnt		; add 1	to total # of files in this directory
		bne	credone
		inc	h_fcnt+1
credone		jsr	drevise		; go revise directories	with new file. 
		bcs	crerr3
		jmp	upbmap		; lastly, update volume	bitmap.

entcalc		lda	#gbuf/256	; set high address of directory	entry index pointer
		sta	drbufph
		lda	#4		; calculate address of entry based
		ldx	d_entnum	; on the entry number
ecalc0		clc
ecalc1		dex			; addr=gbuf+((entnum-1)*entlen)
		beq	ecalc2
		adc	h_entln
		bcc	ecalc1
		inc	drbufph		; bump hi address
		bcs	ecalc0		; branch always.

ecalc2		sta	drbufpl		; save newly calculated	low address
crerr3					; return errors
derror2		rts

drevise		lda	datelo		; if no	clock,
		beq	drevise1	; then don't touch mod t/d
		ldx	#3		; move last modification date/time to entry being updated. 
modtime		lda	datelo,x
		sta	d_moddt,x
		dex
		bpl	modtime

drevise1	lda	d_attr		; mark entry as	backupable
		ora	bkbitflg	; bit 5	= backup needed	bit
		sta	d_attr
		lda	d_dev		; get device number of directory
		sta	devnum		; to be	revised.
		lda	d_entblk	; and address of directory block
		ldx	d_entblk+1
		jsr	rdblk		; read block into general purpose buffer.
		bcs	crerr3
		jsr	entcalc		; fix up pointer to entry location within gbuf.
		ldy	h_entln		; now move 'd.'	stuff to directory.
		dey
mvdent		lda	d_stor,y
		sta	(drbufpl),y
		dey
		bpl	mvdent
		lda	d_head		; is the entry block the same as the
		cmp	bloknml		; entry's header block?
		bne	sventdir	; no, save entry block
		lda	d_head+1	; maybe, test high addresses
		cmp	bloknmh
		beq	uphead		; branch if they are the same block.
sventdir	jsr	wrtgbuf		; write	updated	directory block
		bcs	derror2		; return any error.
		lda	d_head		; get address of header	block
		ldx	d_head+1
		jsr	rdblk		; read in header block for modification
		bcs	derror2
uphead		ldy	#1		; update current number	of files in this directory 
uphed1		lda	h_fcnt,y
		sta	gbuf+hcent+4,y	; (current entry count)
		dey
		bpl	uphed1
		lda	h_attr		; also update header's attributes.
		sta	gbuf+hattr+4
		jsr	wrtgbuf		; go write updated header
		bcs	derror1

ripple		lda	gbuf+4		; test for 'root' directory
		and	#$f0		; if it	is root, then directory	revision is complete.
		eor	#$f0		; (leaves carry	clear)
		beq	drvisdne	; branch if ripple done.
		lda	gbuf+hrent+4	; get entry number
		sta	d_entnum
		lda	gbuf+hreln+4	; and the length of entries in that dir
		sta	h_entln
		lda	gbuf+hrblk+4	; get addr of parent entry's dir block.
		ldx	gbuf+hrblk+5
		jsr	rdblk		; read that sucker in.
		bcs	derror1
		jsr	entcalc		; get indirect pointer to parent entry in gbuf
		lda	datelo		; don't touch mod
		beq	rupdate		; if no	clock. . .
		ldx	#3		; now update the modification date and timeÉ
		ldy	#d_moddt-dfil+3	;Éfor this entry too.
riptime		lda	datelo,x
		sta	(drbufpl),y
		dey
		dex
		bpl	riptime		; move all for bytes...
rupdate		jsr	wrtgbuf		; write	updated	entry back to disk. (assumesÉ
					;Ébloknm undisturbed)
		bcs	derror1		; give up on any error.
		ldy	#d_dhdr-dfil	; now compare current block number to this
		lda	(drbufpl),y	; entry's header block
		iny
		cmp	bloknml		; are low addresses the	same? 
		sta	bloknml		; (save	it in case it's not)
		bne	ripple2		; branch if entry does not reside in same block	as header.
		lda	(drbufpl),y	; check	high address just to be	sure.
		cmp	bloknmh
		beq	ripple		; they are the same, continue ripple to	root directory.
ripple2		lda	(drbufpl),y	; they aren't the same, read in this directory's header.
		sta	bloknmh
		jsr	rdgbuf
		bcc	ripple		; continue if read was good.
derror1
		rts


tsterr		lda	#notsos		; not tree or directory- not a recognized type!
		sec
		rts			; do nothing.


tstsos
	if 0 then
		lda	gbuf		; test sos stamp
		cmp	sostmpl
		bne	tsterr
		lda	gbuf+1
		cmp	sostmph
		bne	tsterr
	else
		lda	gbuf		; pointer to previous directory block
		ora	gbuf+1		;   must be NULL
		bne	tsterr
	endif
		lda	gbuf+4		; test for header
		and	#$e0
		cmp	#hedtyp*16
		bne	tsterr		; branch if not	sos header (no error number) 
drvisdne	clc			; indicate no error.
		rts
	
		eject
findfile	jsr	lookfile	; see if file exists
		bcs	nofind		; branch if an error was encountered
moventry	ldy	h_entln		; move entire entry info to a safe area
movent1		lda	(drbufpl),y
		sta	d_stor,y
		dey
		bpl	movent1
		lda	#0		; to indicate all is well
nofind		rts			; return condition codes.

lookfile	jsr	preproot	; find volume and set up other boring stuff
		bcs	fnderr		; pass back any	error encountered
		bne	lookfil0	; branch if more than root.
		lda	#>gbuf		; otherwise, report a badpath error
		sta	drbufph		; (but first create a phantom entry for	open)
		lda	#4
		sta	drbufpl
		ldy	#d_auxid-dfil	; first	move in	id, and	date stuff.
phantm1		lda	(drbufpl),y
		sta	dfil,y
		dey
		cpy	#d_credt-dfil-1
		bne	phantm1
phantm2		lda	rootstuf-$10,y
		sta	dfil,y
		dey
		cpy	#d_filid-dfil-1
		bne	phantm2
		lda	#dirtyp*$10	; fake directory file
		sta	d_stor
		lda	gbuf+2		; check forward link
		ora	gbuf+3		; if non-zero, assume full sized directory
		bne	@not_ram	; else assume its the slot 3 /RAM volume
		lda	#$02		; so reset EOF and blocks_used fields
		sta	d_eof+1
		lda	#1
		sta	d_usage
@not_ram
		lda	#badpath	; (carry is set)
		rts


lookfil0	stz	nofree		; reset	free entry indicator
		sec			; indicate that	the directory to be searched has header	in this	block
lookfil1	stz	totent		; reset	entry counter
		jsr	looknam		; look for name	pointed	to by pnptr  
		bcc	namfound	; branch if name was found.
		lda	entcntl		; have we looked at all	of the
		sbc	totent		; entries in this directory?
		bcc	dcrenth		; maybe, check hi count.
		bne	lookfil2	; no, read next	directory block
		cmp	entcnth		; has the last entry been looked at (acc=0)
		beq	errfnf		; yes, give 'file not found' error.
		bne	lookfil2	; branch always.
dcrenth		dec	entcnth		; should be at least 1
		bpl	lookfil2	; (this	should be branch always...)
errdir		lda	#direrr		; report directory messed up.
fnderr		sec			; indicate error has been encountered.
		rts


lookfil2	sta	entcntl		; keep running count
		lda	#>gbuf		; reset	indirect pointer
		sta	drbufph
		lda	gbuf+2		; get link to next directory block
		bne	nxtdir0		; (if there is one)
		cmp	gbuf+3		; are both zero, i.e. no link?
		beq	errdir		; if so, then not all entries were accounted for.
nxtdir0					; acc has value	for block # (low)
		ldx	gbuf+3
		jsr	rdblk		; go read the next linked directory in.
		bcc	lookfil1	; branch if no error.
		rts			; return error (in accumulator).


errfnf		lda	nofree		; was any free entry found?
		bne	fnf0
		lda	gbuf+2		; test link
		bne	telfree
		cmp	gbuf+3		; if both are zero, then give up
		beq	fnf0		; simply report	'not found'
telfree		sta	d_entblk
		lda	gbuf+3
		sta	d_entblk+1	; assume first entry of	next block
		lda	#1		; is free for use.
		sta	d_entnum
		sta	nofree		; mark d.entnum	as valid (for create)
fnf0		jsr	nxtpnam1	; test for 'file not found' versus 'path not found'
errpath1	sec			; if non-zero then 'path not found'.
		beq	fnf1
		lda	#pathnotfnd	; report no such path.
		rts
fnf1		lda	#fnferr		; report file not found.
		rts


namfound	jsr	nxtpname	; adjust index to next name in path. 
		beq	filfound	; branch if that was last name. 
		ldy	#d_stor-dfil	; be sure this is a directory entry
		lda	(drbufpl),y	; high nibble will tell
		and	#$f0
		cmp	#dirtyp*16	; is it	a sub-directory?
		bne	errpath1	; report the user's mistake
		ldy	#d_frst-dfil	; get address of first sub-directory block
		lda	(drbufpl),y
		sta	bloknml		; (no checking is done here for	a valid
		iny			; block	number... )
		sta	d_head		; save as file's header block too.
		lda	(drbufpl),y
		sta	bloknmh
		sta	d_head+1
		jsr	rdgbuf		; read sub-directory into gbuf
		bcs	fnderr1		; return immediately any error encountered.
		lda	gbuf+hcent+4	; get the number of files
		sta	entcntl		; contained in this directory
		lda	gbuf+hcent+5
		sta	entcnth
		lda	gbuf+hpenab+4	; make sure password disabled
		ldx	#0
		sec
		rol	a
tstpas0		bcc	tstpas1
		inx
tstpas1		asl	a
		bne	tstpas0
		cpx	#5		; is password disabled?
		beq	movhead

errcomp		lda	#cpterr		; tell them this directory is not compatible
fnderr1		sec
		rts

movhead		jsr	movhed0		; move info about this directory
		jmp	lookfil0	; do next local	pathname

movhed0		ldx	#$a		; move info about this directory
movhed1		lda	gbuf+hcrdt+4,x
		sta	h_credt,x
		dex
		bpl	movhed1
		lda	gbuf+4		; if this is root, then	nothing	to do.
		and	#$f0
		eor	#$f0		; test header type.
		beq	mvhed3		; branch if root.
		ldx	#3		; otherwise, save owner	info about this	header.
mvhed2		lda	gbuf+hrblk+4,x
		sta	own_blok,x
		dex
		bpl	mvhed2
mvhed3		rts


filfound
entadr		lda	h_maxent	; figure out which is entry number this	is.
		sec
		sbc	cntent		; max entries -	count entries +	1 = entry number
		adc	#0		; (carry is/was	set)
		sta	d_entnum
		lda	bloknml
		sta	d_entblk
		lda	bloknmh		; and indicate block number of this directory.
		sta	d_entblk+1
		clc
		rts

looknam		lda	h_maxent	; reset	count of files per block
		sta	cntent
		lda	#>gbuf
		sta	drbufph
		lda	#4
loknam1		sta	drbufpl		; reset	indirect pointer to gbuf
		bcs	loknam2		; branch if this block contains	a header
		ldy	#d_stor-dfil
		lda	(drbufpl),y	; get length of	name in	directory
		bne	isname		; branch if there is a name.
		lda	nofree		; test to see if a free	entry has been declared.
		bne	loknam2		; yes bump to next entry
		jsr	entadr		; set address for current entry
		inc	nofree		; indicate a free spot has been	found
		bne	loknam2		; branch always.

isname		and	#$f		; strip	type (this is checked by 'filfound')
		inc	totent		; (bump	count of valid files found)
		sta	namcnt		; save name length as counter
		ldx	pnptr		; get index to current path.
		cmp	pathbuf,x	; are both names of the	same length?
		bne	loknam2		; no, bump to next entry

cmpname		inx			; (first) next letter index 
		iny
		lda	(drbufpl),y	; compare names	letter by letter
		cmp	pathbuf,x
		bne	loknam2
		dec	namcnt		; have all letters been	compared?
		bne	cmpname		; no, continue..
		clc			; by golly, we got us a	match!
noname		rts

loknam2		dec	cntent		; have we checked all possible entries in this block?
		sec
		beq	noname		; yes, give up.
		lda	h_entln		; add entry length to current pointer
		clc
		adc	drbufpl
		bcc	loknam1		; branch if we're still in the first page.
		inc	drbufph		; look on second page
		clc			; carry	should always be clear before looking at next.
		bcc	loknam1		; branch always...


preproot	jsr	findvol		; search vcb's and devices for specified volume.
		bcs	novolume	; branch if not	found.
		lda	#0		; zero out directory temps.
		ldy	#$42
clrdsp		sta	own_blok,y	; and owner info. 
		dey
		bpl	clrdsp
		lda	devnum		; set up device	number for this	directory.
		sta	d_dev
		jsr	movhed0		; set up other header info from	directory in gbuf.
		ldy	#1		; and clean up misc.
		ldx	vcbptr
		inx
rootmisc	lda	vcb+vcbtblk,x	; misc info includes
		sta	h_tblk,y	; total	# of blocks,
		lda	vcb+vcbdmap,x	; the address of the first bitmap
		sta	h_bmap,y
		lda	|bloknml,y	; and directory's disk address, 
		sta	d_head,y
		lda	h_fcnt,y	; and lastly, setting up a counter for the number of
		sta	entcntl,y	; files	in this	directory.
		dex			; move low order bytes too.
		dey
		bpl	rootmisc

nxtpname	jsr	nxtpnam1	; get new pnptr	in y and next namlen in	acc.
		sty	pnptr		; save new pathname pointer.
		rts			; (status reg according	to accumulator)

nxtpnam1	ldy	pnptr		; bump pathname	pointer	to next	name
		lda	pathbuf,y	; in the path...
		sec
		adc	pnptr		; if this addition results in zero,
		tay			; then prefixed	directory has been moved to
		bne	nxpnmret	; another device. branch if not.
		lda	devnum		; revise devnum	for prefixed directory
		sta	p_dev
nxpnmret	lda	pathbuf,y	; test for end of name. 
		clc			; indicate no errors. 
novolume	rts

findvol		lda	#0
		ldy	pfixptr		; use prefix volume name to look up vcb.
		bit	prfxflg		; is this a prefixed path?
		bpl	fndvol2		; branch in it is. 

fndvol1		tay			; set ptr to volume name.
fndvol2		sty	vnptr		; save pointer.
		sta	devnum		; zero out device number until vcb located.
fndvol3		pha			; acc now used as vcb lookup index
		tax			; move pointer to x for	index.
		lda	vcb,x		; get vcb volume name length
		bne	matchvol	; branch if claimed vcb	to be tested.
nxtvcb		ldy	vnptr		; restore ptr to reqested volume name.
		pla			; now adjust vcb index to next vcb entry.
		clc
		adc	#$20
		bcc	fndvol3		; branch if more vcb's to check.
		bcs	lookvol		; otherwise go look for	unlogged volumes.

matchvol	sta	namcnt		; save length of vol name to be	compared
mtchvol1	cmp	pathbuf,y	; is it	the same as requested vol name?
		bne	nxtvcb		; branch if not.
		inx
		iny			; bump to next character
		lda	vcb,x
		dec	namcnt		; was that the last character?
		bpl	mtchvol1	; branch if not.

		plx			; restore pointer to vcb that matches.
		stx	vcbptr		; save it for future reference.
		lda	vcb+vcbdev,x	; get its device number
		sta	devnum		; save it.
		stz	bloknmh		; assume prefix	is not used and
		lda	#$02		; that root directory is to be used.
		sta	bloknml
		lda	vnptr		; = 0 if no prefix. 
pfxdir		tay			; if prefix, then find ptr to prefixed dir name.
		sta	pnptr		; save path ptr.
		beq	fndvol4		; branch if no prefix. 
		sec			; bump to next dir in prefix path
		adc	pathbuf,y
		bcc	pfxdir		; branch if there is another dir in prefix.
		lda	p_blok		; volume verification will occur at
		sta	bloknml		; sub directory	level.
		lda	p_blok+1
		sta	bloknmh

******verify volume name****** 

fndvol4		jsr	rdgbuf		; read in directory (or	prefix directory)
		bcs	wrgvol		; if error then	look on	other devices
		jsr	cmppnam		; compare directory name with pathname
		bcc	wrg7		; if they match, don't look elswhere.

wrgvol		ldx	vcbptr		; find out if current (matched)	vcb is active.
		lda	vcb+vcbstat,x	; i.e. does it have open files?
		bmi	lvolerr		; report not found if active.

lookvol		lda	vnptr		; make path pointer same as volume ptr.
		sta	pnptr
		jsr	mvdevnums	; copy all device numbers to be	examined.
		lda	devnum		; log current device first, before searching others
		bne	wrg3
wrg1		ldx	devcnt		; scan look list for devices we	need
wrg2		lda	loklst,x	; to search for	the requested volume.
		bne	wrg4		; branch if we've a device to look at.
		dex
		bpl	wrg2		; look at next guy.
lvolerr		lda	#vnferr		; report that no mounted volume
		sec			; matches the requested.
wrg7		rts

wrg3		ldx	devcnt		; now remove the device	from the list
wrg4		cmp	loklst,x	; of prospective devices (so we	don't look twice)
		beq	wrg5		; branch if match.
		dex			; look until found.
		bpl	wrg4		; branch always	taken! (usually!) * * *
* -------------------- see rev note 16 -----------------------------
		bmi	lvolerr		; never	unless device was manually removed from	devlst (/ram)
* ------------------------------------------------------------------

wrg5		sta	devnum		; preserve dedice we're about to investigate.
		stz	loklst,x	; mark this one	as tested.
		jsr	fnddvcb		; find vcb that	claims this device, if any.
		bcs	fnvolerr	; branch if vcb	full.
		ldx	vcbptr		; did 'fnddvcb'	find it	or did it return free vcb?
		lda	vcb,x
		beq	wrg6		; branch if free vcb.
		lda	vcb+vcbstat,x	; is this volume active?
		bmi	wrg1		; if so, no need to re-log.
wrg6		lda	#2		; go read root directory into gbuf.
		ldx	#0
		jsr	rdblk
		bcs	wrg1		; ignore if unable to read.
		jsr	logvcb		; go log in this volume's proper name.
		bcs	wrg1		; look at next if non xdos disk	was mounted.
		jsr	cmppnam		; is this the volume we're looking for?
		bcs	wrg1		; branch if not.
fnvolerr	rts			; return to caller. 

mvdevnums	ldx	devcnt		; copy all device numbers to be	examined.
mvdvnum1	lda	devlst,x
		and	#$f0		; strip	device type info.
		sta	loklst,x	; copy them to a temporary workspace.
		dex
		bpl	mvdvnum1
		ldx	devcnt
		rts

fnddvcb		lda	#0		; look for vcb with this device	number.
		ldy	#$ff
fddvcb		tax			; new index to next vcb.
		lda	vcb+vcbdev,x	; check	all devnums.
		cmp	devnum		; is this the vcb were looking for?
		bne	fnxtvcb		; branch if not.
		stx	vcbptr
		clc			; indicate found.
		rts
fnxtvcb		lda	vcb,x		; is this a free vcb? 
		bne	fnxvcb1		; branch if not.
		iny
		stx	vcbptr
fnxvcb1		txa			; now...
		clc			; bump index to	next vcb.
		adc	#$20
		bne	fddvcb
		tya			; were any free	vcb's available?
		bpl	@return		; yes!

		lda	#0		; look for an entry we can kick out
@check_vcb	tax
		lda	vcb+vcbstat,x	; any open files?
		bpl	@got_one	; no, we can kick this one out
		txa			; bump to next VCB
		clc
		adc	#32		; (VCB entry size)
		bne	@check_vcb
		beq	vfulerr		; all VCB entries have open files!
@got_one
		stx	vcbptr		; save entry index
		stz	vcb,x		; free this entry
		stz	vcb+vcbdev,x
@return
		clc			; signify no error
vfulerr
		lda	#vcbfull
		rts

cmppnam		ldx	#0		; index	to directory name.
		ldy	pnptr		; index	to pathname
		lda	gbuf+4		; get directory	name length (and type)
		cmp	#$e0		; also make sure it's a directory
		bcc	vnocmp		; branch if not	a directory.
		and	#$f		; isolate name length
		sta	namcnt		; save as counter.
		bne	cmpvnm1		; branch if valid length
vnocmp		sec			; indicate not what were looking for.
		rts
cmpvnm0		lda	gbuf+4,x	; get next char.
cmpvnm1		cmp	pathbuf,y
		bne	vnocmp		; branch if not	the same.
		inx			; chek nxt char.
		iny
		dec	namcnt
		bpl	cmpvnm0		; branch if more to compare.
		clc			; otherwise we got a match!!!
		rts

logvcb		ldx	vcbptr		; is this a previously logged in volume
		lda	vcb,x		; (acc=0?)
		beq	logvcb1		; no, go ahead and prepare vcb.
		jsr	cmpvcb		; does vcb match volume	read?
		bcc	vcblogd		; yes, don't disturb it.

logvcb1		ldy	#vcbsize-1	; zero out vcb entry
@zervcb		stz	vcb,x
		inx
		dey
		bpl	@zervcb
		jsr	tstsos		; make sure it's an xdos diskette.
		bcs	vcblogd		; if not, return carry set.
		jsr	tstdupvol	; find out if a	duplicate with open files already exists
		bcs	notlog0
		lda	gbuf+4		; move volume name to vcb
		and	#$f		; strip	root marker
		tay
		pha
		ora	vcbptr
		tax
movolnm		lda	gbuf+4,y
		sta	vcb,x
		dex
		dey
		bne	movolnm
		pla			; get length again
		sta	vcb,x		; save that too.
		lda	devnum
		sta	vcb+vcbdev,x	; save device number also. 
		lda	gbuf+vtblk+4	; and total number of blocks on	this unit,
		sta	vcb+vcbtblk,x
		lda	gbuf+vtblk+5
		sta	vcb+vcbtblk+1,x
		lda	bloknml		; and address of root directory
		sta	vcb+vcbroot,x
		lda	bloknmh
		sta	vcb+vcbroot+1,x
		lda	gbuf+vbmap+4	; and lastly, the address
		sta	vcb+vcbdmap,x	; of the first bitmap
		lda	gbuf+vbmap+5
		sta	vcb+vcbdmap+1,x
notlog0		clc			; indicate that	it was logged if posible. 
vcblogd		rts

cmpvcb		lda	gbuf+4		; compare volume name in vcb
		and	#$f		; with name in directory
		cmp	vcb,x		; are they same	length
* -------------------- see rev note 23 --------------------
		stx	xvcbptr
* -----------------------------------------------------------
		bne	notsam1
		tay
		ora	xvcbptr
		tax
vcbcmp1		lda	gbuf+4,y
		cmp	vcb,x
notsam1		sec			; anticipate different names
		bne	notsame
		dex
		dey
		bne	vcbcmp1
		clc			; indicate match.
notsame
* -------------------- see rev note 23 --------------------
		ldx	xvcbptr		; get back offset to start of vcb
* -----------------------------------------------------------
		rts

tstdupvol	lda	#0		; look for other logged	in volumes with	same name. 
tsdupv1		tax
		jsr	cmpvcb
		bcs	tsdupv2		; branch if no match.
		lda	vcb+vcbstat,x	; test for any open files 
		bmi	founddup	; tell the sucker he can't look at this volume!
		lda	#0		; take duplicate off line if no	open files.
		sta	vcb,x
		sta	vcb+vcbdev,x
		beq	nodupvol	; return that all is ok	to log in new.

tsdupv2		txa			; index	to next	vcb
		clc
		and	#$e0		; strip	odd stuff.
		adc	#vcbsize	; bump to next entry.
		bcc	tsdupv1		; branch if more to look at. 

nodupvol	clc
		rts

founddup	sta	duplflag	; a duplicate has been detected.
		stx	vcbentry	; save pointer to conflicting vcb.
		sec			; indicate error
		rts

tsfrblk		ldx	vcbptr		; find out if enough free blocks 
		lda	vcb+vcbtfre+1,x	; available to accomdate the request. 
		ora	vcb+vcbtfre,x	; but first find out if	we got a proper	count for this volume.
		bne	cmpfreb		; branch if count is non-zero
tkfrecnt	jsr	cntbms		; get #	of bitmaps. 
		sta	bmcnt		; save it.
		stz	scrtch		; start	count at zero.
		stz	scrtch+1
		lda	#$ff		; mark 'first free' temp as unknown
		sta	nofree
		jsr	upbmap		; (nothing happens if it don't hafta.)
		bcs	tfberr		; branch if we got trouble,
		ldx	vcbptr		; get address of first bit map.
		lda	vcb+vcbdmap,x
		sta	bloknml
		lda	vcb+vcbdmap+1,x
		sta	bloknmh
bmaprd		jsr	rdgbuf		; use g(eneral)	buff(er) for temporary
		bcs	tfberr		; space	to count free blocks (bits)
		jsr	count		; go count em
		dec	bmcnt		; was that the last bit	map?
		bmi	chgvcb		; if so, go change fcb to avoid	doing this again!
		inc	bloknml		; note:	the organization of the	bit maps
		bne	bmaprd		; are contiguous for sos version 0
		inc	bloknmh		; if some other	organization is	implemented, this code
		bra	bmaprd		; must be changed! 


chgvcb		ldx	vcbptr		; mark which block had first free space
		lda	nofree
		bmi	dskfull		; branch if no free space was found.
		sta	vcb+vcbcmap,x	; update the free count.
		lda	scrtch+1	; get high count byte
		sta	vcb+vcbtfre+1,x	; update volume	control	block.
		lda	scrtch
		sta	vcb+vcbtfre,x	; and low byte too...
cmpfreb		lda	vcb+vcbtfre,x	; compare total	available
		sec
		sbc	reql		; free blocks on this volume.
		lda	vcb+vcbtfre+1,x
		sbc	reqh
		bcc	dskfull
		clc
		rts
dskfull		lda	#ovrerr
		sec
tfberr		rts


count		ldy	#0		; begin	at the beginning.
frcont		lda	gbuf,y		; get bit pattern
		beq	frcnt1		; don't bother counting nothin'
		jsr	cntfree
frcnt1		lda	gbuf+$100,y	; do both pages	with same loop
		beq	frcnt2
		jsr	cntfree
frcnt2		iny
		bne	frcont		; loop till all	512 bytes counted
		bit	nofree		; has first block with free space been found yet?
		bpl	frcnt3		; branch if it has.
		lda	scrtch		; test to see if any blocks were counted
		ora	scrtch+1
		beq	frcnt3		; branch if none counted.
		jsr	cntbms		; get total # of maps. 
		sec			; subtract countdown from total	bit maps
		sbc	bmcnt
		sta	nofree
frcnt3		rts

cntfree		asl	a		; count	the number of bits in this byte.
		bcc	cfree1
		inc	scrtch
		bne	cfree1
		inc	scrtch+1
cfree1		ora	#0
		bne	cntfree		; loop until all bits counted.
		rts

cntbms		ldx	vcbptr
		ldy	vcb+vcbtblk+1,x	; return the # of bit maps 
		lda	vcb+vcbtblk,x	; posible with the total count 
		bne	cntbms1		; found	in the vcb... 
		dey			; adjust for bitmap block boundary
cntbms1		tya
		lsr	a		; divide by 16.	the result is the number
		lsr	a		; of bit maps.
		lsr	a
		lsr	a
		rts

dealloc					;free a	block's entry in the bitmap

					;on entry,	x     =	high byte of block address
					;		accum =	low byte of block address

		stx	bmcnt		; save high order address of block to be freed.
		pha			; save it
		ldx	vcbptr		; check	that bitmap block address is valid givenÉ
		lda	vcb+vcbtblk+1,x	;Éthe total # of blocks	on the volume
		cmp	bmcnt
		pla			; restore
		bcc	dealerr1	; branch if invalid
		tax
		and	#$7		; get the bit to be or'ed in.
		tay
		lda	whichbit,y	; (shifting takes 7 bytes, but is slower)
		sta	nofree		; save bit pattern
		txa			; get low block	address	again.
		lsr	bmcnt
		ror	a		; get pointer to byte in bitmap	that represents
		lsr	bmcnt		; the block address.
		ror	a
		lsr	bmcnt
		ror	a
		sta	bmptr		; save pointer.
		lsr	bmcnt		; now transfer bit which specifies which page of bitmap.
		rol	half
		jsr	fndbmap		; make absolutely sure we've got the right device.
		bcs	dealerr		; return any errors.
		lda	bmacmap		; what is the current map
		cmp	bmcnt		; is in-core bit map the one we	want?
		beq	deall1		; branch if in-core is correct.
		jsr	upbmap		; put current map away.
		bcs	dealerr		; pass back any	error.
		lda	bmcnt		; get desired map number.
		ldx	vcbptr
		sta	vcb+vcbcmap,x	; and make it current.
		lda	bmadev
		jsr	gtbmap		; read it into the buffer,
		bcs	dealerr
deall1		ldy	bmptr		; index	to byte.
		lsr	half
		lda	nofree		; (get individual bit)
		bcc	deall2		; branch if on page one	of bitmap.
		ora	bmbuf+$100,y
		sta	bmbuf+$100,y
		bcs	deall3		; branch always	taken
deall2
bmbufhi		ora	bmbuf,y
		sta	bmbuf,y
deall3		lda	#$80		; mark bitmap as modified.
		tsb	bmastat
		inc	deblock		; bump count of	blocks deallocated
		bne	deall4
		inc	deblock+1
deall4		clc
dealerr		rts
dealerr1	lda	#bitmapadr	; bit map block	number impossible
		sec			; say bit map disk address wrong
		rts			; (probably data masquerading as index block)

alc1blk		jsr	fndbmap		; get address of bit map in 'bmadr'
		bcs	erralc1		; branch if error encountered
srchfre		ldy	#0		; start	search at beginning of bit map block
		sty	half		; indicate which half (page) we're searching.
getbits1	lda	bmbuf,y
		bne	bitfound	; free blocks are indicated by 'on' bits
		iny
		bne	getbits1	; check	all of 'em in first page.

		inc	half		; indicate search has progressed to page 2
		inc	basval		; base value= base address/2048
getbits2	lda	bmbuf+$100,y	; search second	half for free block
		bne	bitfound
		iny
		bne	getbits2

		inc	basval		; add 2048 offset for next page
		jsr	nxtbmap		; get next bitmap (if it exists) and update vcb.
		bcc	srchfre		; branch if no error encountered.
erralc1		rts			; return error.


bitfound	sty	bmptr		; save index pointer to	valid bit group
		lda	basval		; set up for block address calculation
		sta	scrtch+1
		tya			; get address of bit pattern
		asl	a		; multiply this	and basval by 8
		rol	scrtch+1
		asl	a
		rol	scrtch+1
		asl	a
		rol	scrtch+1
		tax			; now x= low address within 7 of actual	address.
		sec
		lda	half
		beq	page1alc	; branch if allocating from 1st	half
		lda	bmbuf+$100,y	; get pattern from second page
		bcs	adcalc		; branch always
page1alc	lda	bmbuf,y		; get bit pattern from first page  
adcalc		rol	a		; find left most 'on' bit
		bcs	bounce		; branch if found.
		inx			; adjust low address
		bne	adcalc		; branch always
bounce		lsr	a		; restore all but left most bit	to original position
		bcc	bounce		; loop until mark (set above) moves into carry
		stx	scrtch		; save low address.
		ldx	half		; which	half of	bit map?
		bne	page2alc
		sta	bmbuf,y
		beq	drtybmap	; branch always

page2alc	sta	bmbuf+$100,y	; update bitmap	to show	allocated block	in use.
drtybmap	lda	#$80		; indicate map has been	modified
		tsb	bmastat		; by setting dirty bit. 
		ldy	vcbptr		; subtract 1 from total	free
		lda	vcb+vcbtfre,y	; blocks in vcb	to account for newly
		sbc	#1		; allocated block (carry is set from 'bounce')
		sta	vcb+vcbtfre,y
		bcs	ret1blk		; branch if hi free count doesn't need adjustment.

		lda	vcb+vcbtfre+1,y	; adjust high count.
		dec	a
		sta	vcb+vcbtfre+1,y
ret1blk		clc			; indicate no error encountered
		lda	scrtch		; get address low in acc.
		ldy	scrtch+1	; and high address in y
		rts			; return address of newly allocated block.


nxtbmap		ldy	vcbptr		; before bumping to next map,
		lda	vcb+vcbtblk+1,y	; check	to be sure there is
		lsr	a		; indeed a next	map!
		lsr	a
		lsr	a
		lsr	a
		cmp	vcb+vcbcmap,y	; are there more maps?
		beq	nomorbit	; branch if no more to look at.
		lda	vcb+vcbcmap,y	; add 1	to current map
		inc	a
		sta	vcb+vcbcmap,y
		jsr	upbmap

fndbmap		ldy	vcbptr
		lda	vcb+vcbdev,y	; get device number
		cmp	bmadev		; does the map we have match present device?
		beq	freshmap
		jsr	upbmap		; save out other volume's bitmap, andÉ
		bcs	nogo
		ldy	vcbptr
		lda	vcb+vcbdev,y
		sta	bmadev		;Éread in fresh	bitmap for this	device.
freshmap
		ldy	bmastat		; is this one already modified?
		bmi	bmfound		; yes, return pointer in 'bmadr'
		jsr	gtbmap		; otherwise read in fresh bit map
		bcs	nogo		; branch if unsuccessful.

bmfound
		ldy	vcbptr
		lda	vcb+vcbcmap,y	; get relative block number of bitmap
		asl	a		; 2 pages per block!
		sta	basval
		clc			; indicate all is valid	and good!
nogo		rts

nomorbit	lda	#ovrerr		; indicate request can't be filled.
		sec			; indicate error
		rts

upbmap		clc			; anticipate nothing to	do 
		lda	bmastat		; is current map dirty? 
		bpl	nogo		; no need to do	anything
		jsr	wrtbmap		; it is	dirty, update device! 
		bcs	nogo		; error	encountered on writing
		lda	#0
		sta	bmastat		; mark bm buffer as free
		rts			; all done! 


gtbmap		sta	bmadev		; read bitmap specified	by dev & vcb 
		ldy	vcbptr		; get lowest map number	with free blocks in it.
		lda	vcb+vcbcmap,y
		sta	bmacmap		; associate the	offset with the	bitmap control block
		clc			; add this number to the base
		adc	vcb+vcbdmap,y	; address of first bit map
		sta	bmadadr		; save low address of bit map to be used.
		lda	vcb+vcbdmap+1,y	; now get high disk address of map
		adc	#0		; add to this the state	of the carry
		sta	bmadadr+1	; save high disk address too.

		lda	#rdcmd		; (x contains an index to determine which buffer)
dobmap		sta	dhpcmd		; save device command
		lda	devnum		; preserve current devnum. 
		pha
		lda	bmadev		; get bitmap's device number.
		sta	devnum
		lda	bmadadr		; and map's disk address
		sta	bloknml
		lda	bmadadr+1
		sta	bloknmh
		lda	bmbufhi+2	; lastly get the address of the	buffer
		jsr	dobitmap	; (note: low address is	fixed to zero as this is a buffer)
		tax			; preserve error code, if any.
		pla			; restore
		sta	devnum		; the devnum we	came in	with!
		bcc	dobmap1		; return devnum	if no error.
		txa			; return any errors.
dobmap1		rts

rdblk
		sta	bloknml
		stx	bloknmh
		jsr	rdgbuf
		rts

wrtbmap		lda	#wrtcmd		; write	bit map. 
		bne	dobmap		; branch always 

wrtgbuf		lda	#wrtcmd		; set call for write.
		bne	svgcmd		; branch always.
rdgbuf		lda	#rdcmd		; set call for read.
svgcmd		sta	dhpcmd		; passed to device handler.
		lda	#>gbuf		; get high address of general buffer
dobitmap	php			; no interrupts	allowed 
		sei
		sta	dbufph
		stz	dbufpl		; general purpose buffers always start on a page boundary.
		stz	serr		; clear	global error value
		lda	#$ff		; also, 
		sta	ioaccess	; set to indicate reg call made	to dev handler. 
		lda	devnum		; transfer the device number for dispatcher to convert to unit number.
		sta	unitnum
		jsr	dmgr		; call the driver
		bcs	fioerr1		; branch if error
		plp			; restore interrupts.
		clc
		rts
fioerr1		plp			; restore interrupts
		sec
		rts

		Eject
getmark		ldx	fcbptr		; get index to open file control block.
		ldy	#c_mark		; and index to user's mark parameter.
gmark1		lda	fcb+fcbmark,x	; transfer current position
		sta	(par),y		; to user's parameter list.
		inx
		iny
		cpy	#c_mark+3	; have all three bytes been transferred.
		bne	gmark1		; branch if not...
		clc			; no errors.
		rts


errmeof		lda	#posnerr	; report invalid position.
		sec
		rts

		Eject
setmark		ldy	#c_mark+2	; get index to user's desired position
		ldx	fcbptr		; and file's control block index
		inx			; (bump	by 2 for index to hi eof)
		inx
		sec			; indicate comparisons are necessary
smark1		lda	(par),y		; move it to 'tpos'
		sta	tposll-c_mark,y
		bcc	smark2		; branch if we already know mark<eof.
		cmp	fcb+fcbeof,x	; carry	or z flag must be clear	to qualify. 
		bcc	smark2		; branch if mark qualifies for sure.
		bne	errmeof		; branch if mark>eof
		dex

smark2		dey			; prepare to move/compare next lower byte of mark.
		tya			; test for all bytes moved/tested.
		eor	#c_mark-1	; to preserve carry status. 
		bne	smark1		; branch if more.

		Eject
rdposn
		ldy	fcbptr		; first	test to	see if new position is
		lda	fcb+fcbmark+1,y	; within the same (current) data block.
		and	#$fe
		sta	scrtch
		lda	tposlh		; get middle byte of new position
		sec
		sbc	scrtch
		sta	scrtch
		bcc	typmark		; branch if possibly l.t. current position
		cmp	#2		; must be within 512 bytes of beginning	of current
		bcs	typmark
		lda	tposhi		; now make sure	were talkin about
		cmp	fcb+fcbmark+2,y	; the same 64k chunk!
		bne	typmark		; branch if we aren't.
		jmp	svmark		; if we	is, adjust fcb,	posptr and return.

typmark					; now find out which type
		lda	fcb+fcbstyp,y	; of file we're positioning on.
		beq	ferrtyp		; there	is no such type	as zero, branch	never!
		cmp	#4		; is it	a tree class file?
		bcc	trepos		; yes, go position
		jmp	dirmark		; no, test for directory type.


ferrtyp		ldy	#fcbptr		; clear	illegally typed	fcb entry
		sta	fcb+fcbrefn,y
		lda	#badrefnum	; tell em there	is no such file
		sec
		rts


trepos					; use storage type as number of	index levels 
		lda	fcb+fcbstyp,y	; (since 1=seed, 2=sapling, and	3=tree)
		sta	levels
		lda	fcb+fcbstat,y	; must not forget previous data.
		and	#datmod		; therefore, see if previous data was modified
		beq	posnew1		; then disk must be updated.
		jsr	wfcbdat		; go write current data	block.
		bcs	poserr		; return any error encountered.

posnew1		ldy	fcbptr		; test to see if current
		lda	fcb+fcbmark+2,y	; index	block is going to be usable...
		and	#$fe		; or in	other words-
		sta	scrtch		; is new position within 128k of the beginning
		lda	tposhi		; of current sapling level chunk.
		sec
		sbc	scrtch
		bcc	posnew2		; branch if a new index	block is also needed
		cmp	#2		; new position is > than begining of old. is it	within 128k?
		bcs	posnew2		; branch if not.
		ldx	levels		; is the file we're dealing with a seed?
		dex
		bne	datlevel	; no, use current indexes.
tstiny		lda	tposlh		; is new position under	512?
		lsr	a
		ora	tposhi
		bne	noidxdat	; no, mark both	data and index block as	un-allocated.
		lda	fcb+fcbfrst,y	; first	block is only block and	it's data!
		sta	bloknml
		lda	fcb+fcbfrst+1,y	; (high	block address)
		jmp	rnewpos		; go read in block and set appropriate statuses.


posnew2					; gota check to	see if previous
		lda	fcb+fcbstat,y	; index	block was modified.
		and	#idxmod
		beq	posnidx		; read in over it if current is	up to date.
		jsr	wfcbidx		; go update index on disk (block addr in fcb)
		bcs	poserr
posnidx		ldx	levels		; before reading in top	index, check to	be sure
		cpx	#3		; that there is	a top index...
		beq	posindex	; branch if file is full blown tree.
		lda	tposhi		; is new position within range of a
		lsr	a		; sapling file (l.t. 128k)?
		php			; anticipate no	good.
		lda	#topalc+idxalc+datalc ;	(to indicate no	level is allocated for new position.)
		plp			; z flag tells all...
		bne	nodata		; go mark 'em all dummy.
		jsr	clrstats	; go clear status bits 0,1,2 (index/data alloc status).
		dex			; (unaffected since loaded above) check	for seed
		beq	tstiny		; if seed, check for position l.t. 512...
		jsr	rfcbfst		; go get only index block
		bcs	poserr		; branch if error
		ldy	fcbptr		; save newly loaded index block's address
		lda	bloknml
		sta	fcb+fcbidxb,y
		lda	bloknmh
		sta	fcb+fcbidxb+1,y
		bcc	datlevel	; branch always...

poserr					; carry	always set when	branched to
		rts

posindex	jsr	clrstats	; clear	all allocation requirements for	previous position 
		jsr	rfcbfst		; get highest level index block.
		bcs	poserr
		lda	tposhi		; then test for	a sap level index block
		lsr	a
		tay
		lda	(tindx),y
		inc	tindx+1
		cmp	(tindx),y	; (both	hi and lo will be zero if no index exists)
		bne	saplevel
		tax			; are both bytes zero?
		bne	saplevel
		dec	tindx+1		; don't leave wrong pointers laying around!
noidxdat	lda	#idxalc+datalc	; show neither index or	data block allocated.
		bra	nodata


saplevel	sta	bloknml		; read in next lower index block
		lda	(tindx),y	; (hi address)
		sta	bloknmh
		dec	tindx+1
		jsr	rfcbidx		; read in sapling level
		bcs	poserr
datlevel	lda	tposhi		; now get block	address	of data	block
		lsr	a
		lda	tposlh		; ( if there is	one )
		ror	a
		tay
		lda	(tindx),y	; data block address low
		inc	tindx+1
		cmp	(tindx),y
		bne	posnew3
		tax
		bne	posnew3
		lda	#datalc		; show data block as never been	allocated
		dec	tindx+1

nodata		ldy	fcbptr		; set status to	show whats missin' 
		ora	fcb+fcbstat,y
		sta	fcb+fcbstat,y
		lsr	a		; throw	away bit that says data	block un-allocated
		lsr	a		; cuz we know that. carry now indicates	if index block
		jsr	zipdata		; also is invalid and needs to be zeroed (carry	undisturbed) 
		bcc	svmark		; branch if index block	doesn't need zippin.

***************** see rev note #40 ***************************

		jsr	zeroindex	; go zero index	block in user's i/o buffer
		bra	svmark

zeroindex	lda	#0
		tay
zipidx		sta	(tindx),y	; zero out the index half of the user's
		iny			; i/o buffer.
		bne	zipidx
		inc	tindx+1
zpidx1		sta	(tindx),y
		iny
		bne	zpidx1
		dec	tindx+1		; restore proper address
		rts			; that's all.
**************************************************************

zipdata		lda	#0		; also is invalid and needs to be zeroed.
		tay
zipdat0		sta	(datptr),y	; zero out data	area
		iny
		bne	zipdat0
		inc	datptr+1
zpdat1		sta	(datptr),y
		iny
		bne	zpdat1
		dec	datptr+1
		rts



posnew3		sta	bloknml		; get data block of new	position
		lda	(tindx),y	; (hi address)
		dec	tindx+1
rnewpos		sta	bloknmh
		jsr	rfcbdat
		bcs	pritz		; return any error
		jsr	clrstats	; show whole chain is allocated
svmark		ldy	fcbptr		; update position in file control block
		iny
		iny
		ldx	#2
svmrk1		lda	fcb+fcbmark,y	; remember oldmark in case
		sta	oldmark,x	; calling routine fails	later
		lda	tposll,x
		sta	fcb+fcbmark,y
		dey
		dex			; move 3 byte position marker
		bpl	svmrk1

		clc			; last,	but not	least, set up
		lda	datptr		; indirect address to buffer page pointed
		sta	posptr		; to by	the current position marker.
		lda	tposlh
		and	#1
		adc	datptr+1
		sta	posptr+1
pritz		rts			; carry	set indicates error! 


clrstats	ldy	fcbptr		; clear	allocation states for data block
		lda	fcb+fcbstat,y	; and both levels of indexes.
		and	#$ff-topalc-idxalc-datalc
		sta	fcb+fcbstat,y	; this says that either	they exist currently
		rts			; or that they're unnecessary for current position.



dirmark		cmp	#dirtyp		; is it	a directory?
		beq	dirpos		; yes...
		lda	#cpterr		; no, there is a compatablity problem-
		jsr	syserr		; the damn thing should	of never been opened!

dirpos		lda	scrtch		; recover results of previous subtraction.
		lsr	a		; use difference as counter as to how many
		sta	cntent		; blocks must be read to get to	new position.
		lda	fcb+fcbmark+1,y	; test for position direction.
		cmp	tposlh		; carry	indicates direction...
		bcc	dirfwrd		; if set, position forward.
dirvrse		ldy	#0		; otherwise, read directory file in reverse order.
		jsr	dirpos1		; read previous	block.
		bcs	drposerr	; branch if anything goes wrong.
		inc	cntent		; count	up to 128
		bpl	dirvrse		; loop if there	is more	blocks to pass over.
		bmi	svmark		; branch always.

dirfwrd		ldy	#2		; position is forward from current position.
		jsr	dirpos1		; read next directory block.
		bcs	drposerr
		dec	cntent
		bne	dirfwrd		; loop if position not found in	this block.
		beq	svmark		; branch always.

dirpos1		lda	(datptr),y	; get link address of previous or
		sta	bloknml		; next directory block.

					;----- crunched	for v1.8 (Monte	Benaresh, Jan '89) --|
					;						     |
		cmp	#1		; test for nul byte into carry			     |
		iny			; but first be sure there is a link.		     |
		lda	(datptr),y	; get the rest of the link.			     |
		bne	dirpos2		; branch if certain link exists			     |
		bcs	dirpos2		; was the low part null	as well?		     |
					;----------------------------------------------------|

		lda	#eoferr		; something is wrong with this directory file!
drposerr	sec			; indicate error
		rts

dirpos2
		sta	bloknmh

* drop into rfcbdat (read file's data block)



* note:	for directory positioning, no optimization has been done since
*   since directory files will almost always be	less than 6 blocks.
*   if more speed is required or directory type	files are to be	used
*   for	other purposes requiring more blocks, then the recommended
*   method is to call rfcbdat for the first block and go directly to
*   device (via	jmp (iounitl)) handler for subsequent accesses.
* also note that no checking is	done for read/write enable since a 
*   directory file can only be opened for read access.

rfcbdat		lda	#rdcmd		; set read command.
		sta	dhpcmd
		ldx	#datptr		; use x	to point at address of data buffer
		jsr	fileio1		; go do	file input.
		bcs	rdaterr		; return any error
		ldy	fcbptr
		lda	bloknml
		sta	fcb+fcbdatb,y	; save block number just read in fcb.
		lda	bloknmh
		sta	fcb+fcbdatb+1,y
rdaterr		rts			; carry	set indicates error

rfcbidx		lda	#rdcmd		; prepare to read in index block.
		sta	dhpcmd
		ldx	#tindx		; point	at address of current index buffer
		jsr	fileio1		; go read index	block.
		bcs	rdfcberr	; report error
		ldy	fcbptr
		lda	bloknml
		sta	fcb+fcbidxb,y	; save block address of	this index in fcb.
		lda	bloknmh
		sta	fcb+fcbidxb+1,y
		clc
rdfcberr	rts

wfcbfst1	lda	#wrtcmd		; set write mode for device
		DC.B	$2c		; skip next 2 bytes for	pseudo-branch always to	rwfst

rfcbfst		lda	#rdcmd		; set read mode	for device
rwfst		pha			; save command
		lda	#fcbfrst
		ora	fcbptr		; add offset to	fcbptr 
		tay
		pla
		ldx	#tindx		; read block into index	portion	of file	buffer

* drop into dofileio

dofileio	sta	dhpcmd		; save command.
		lda	fcb,y		; get disk block address from fcb.
		sta	bloknml		; block	zero not legal. 
		cmp	fcb+1,y
		bne	fileio
		cmp	#0		; are both bytes zero?
		bne	fileio		; no, continue with request.
		lda	#alcerr		; otherwise report allocation error.
		jsr	sysdeath	; never	returns...


fileio		lda	fcb+1,y		; get high address of disk block
		sta	bloknmh
fileio1		php			; no interrupts	from here on out. 
		sei
		lda	0,x		; get memory address of	buffer from
		sta	dbufpl		; zero page pointed to by
		lda	1,x		; the x-register.
		sta	dbufph		; and pass address to device handler
		ldy	fcbptr
		lda	fcb+fcbdevn,y	; of course having the device number
		sta	devnum		; would	make the whole operation more meaningful...
		lda	#$ff		; also, 
		sta	ioaccess	; set to indicate reg call made	to dev handler. 
		lda	devnum		; transfer the device number for dispatcher to convert to unit number.
		sta	unitnum
		stz	serr		; clear	global error value
		jsr	dmgr		; call the driver
		bcs	fioerr		; branch if error
		plp			; restore interrupts.
		clc
		rts
fioerr		plp			; restore interrupts
		sec
		rts

wfcbfst					; first	update the bitmap 
		jsr	upbmap
		bra	wfcbfst1	; and go write file's first block! 


wfcbdat		ldx	#datptr
		lda	#fcbdatb	; point	at memory address with x and disk address with y.
		ora	fcbptr		; add offset to	fcbptr 
		tay			; and put it in	y.
		lda	#wrtcmd		; write	data block.
		jsr	dofileio
		bcs	filioerr	; report any errors
		lda	#$ff-datmod	; mark data status as current.
		bra	fcbupdat

wfcbidx
		jsr	upbmap		; go update bitmap 
		ldx	#tindx		; point	at address of index buffer
		lda	#fcbidxb	; and block address of that index block.
		ora	fcbptr
		tay
		lda	#wrtcmd
		jsr	dofileio	; go write out index block.
		bcs	filioerr	; report any errors
		lda	#$ff-idxmod	; mark index status as current.
fcbupdat	ldy	fcbptr		; change status	byte to
		and	fcb+fcbstat,y	; reflect successful disk file update.
		sta	fcb+fcbstat,y	; (carry is unaffected)
filioerr	rts

		Eject
open		jsr	findfile	; first	of all look up the file...
		bcc	open0
		cmp	#badpath	; is an	attempt	to open	a root directory?
		bne	erropn		; no, pass back	error

open0		jsr	tstopen		; find out if any other	files are writing
		bcc	open1		; to this same file. (branch if	not)
errbusy		lda	#filbusy	; report shared	access not allowed.
erropn		sec
		rts			; return error.

*****************  see rev note	#47  ***************

wrgstype	lda	#typerr		; report file is of wrong storage type!
****************************************************
		sec
		rts

open1		ldy	fcbptr		; get address of first free fcb	found
		lda	fcbflg		; this byte indicates that an free fcb found if	non zero. 
		bne	asgnfcb		; is available for use.
		lda	#fcbfull	; report fcb full error.
		sec
		rts

asgnfcb		ldx	#$1f		; assign fcb, but first
		lda	#0		; clean	out any	old rubbish left around...
clrfcb		sta	fcb,y
		iny
		dex
		bpl	clrfcb
		lda	#fcbentn	; now begin claim by moving in file info 
		tax			; use x	as source index
		ora	fcbptr		; and y	as destination (fcb)
		tay
fcbownr		lda	d_dev-1,x	; move ownership information.
		sta	fcb,y		; note:	this code depends upon the defined
		dey			; order	of both	the fcb	and directory entry
		dex
		bne	fcbownr		; buffer (d.). beware of changes!!! *************
		lda	d_stor		; get storage type.
		lsr	a		; strip	off file name length.
		lsr	a
		lsr	a		; (by dividing by 16)
		lsr	a
		tax			; save in x for	later type comparison
		sta	fcb+fcbstyp,y	; and in fcb for future	access. 
		lda	d_attr		; get files attributes and
		and	#readen+writen	; use it as a default access request.
		cpx	#dirtyp		; if directory,	don't allow write enable
		bne	svattr1
		and	#readen
svattr1		sta	fcb+fcbattr,y
		and	#writen		; check	for write enabled requested.
		beq	open3		; branch if read only open.
		lda	totent		; otherwise, be	sure no	one else is reading same
		bne	errbusy		; file (set up by tstopen).

open3		cpx	#tretyp+1	; is it	a tree type file?
		bcc	open4		; test for further compatablity. it must
		cpx	#dirtyp		; be either a tree or a	directory.
******************  see	rev note #47  ************

		bne	wrgstype	; report file is of wrong storage type.
**************************************************
open4		ldx	#6		; move address of first	block of file, 
open5		sta	bloknmh		; end of file, and current usage count. 
		lda	fcbptr
		ora	ofcbtbl,x	; this is done via a translation 
		tay			; table	between	directory info and fcb. 
		lda	d_frst,x
		sta	fcb,y
		dex			; has all info been moved? 
		bpl	open5
		sta	bloknml		; last loop stored hi addr of frst block. 
		ldy	fcbptr
		lda	cntent		; this was set up by 'tstopen'.............
		sta	fcb+fcbrefn,y	; claim	fcb for	this file. 

		jsr	alcbuffr	; go allocate buffer in	memtables.
		bcs	erropen2	; give up if any errors	occurr.
		jsr	fndfcbuf	; returns address of bufs in data & index pointers.
		lda	level		; mark level at	which
		sta	fcb+fcblevl,y	; file was opened
		lda	fcb+fcbstyp,y	; file must be positioned to beginning.
		cmp	#tretyp+1	; is it	a tree file?
		bcs	opndir		; no, assume it's a directory.
		lda	#$ff		; fool the position routine into giving
		sta	fcb+fcbmark+2,y	; a valid position with	preloaded data,	etc.
		ldy	#2		; set desired position to zero.
		lda	#0
opnpos1		sta	tposll,y
		dey
		bpl	opnpos1
		jsr	rdposn		; let tree position routine do the rest.
		bcc	opendone	; branch if successful.


erropen2	pha			; save error code.
		ldy	fcbptr		; return buffer	to free	space
		lda	fcb+fcbfbuf,y
		beq	erropen3	; branch if no bufnum.
		jsr	relbuffr	; doesn't matter if it was never allocated.
		ldy	fcbptr		; since	error was encountered before file
erropen3	lda	#0		; was successfully opened, then
		sta	fcb+fcbrefn,y	; its necessary	to release fcb. 
		pla
		sec
		rts

opndir		jsr	rfcbdat		; read in first	block of directory file.
		bcs	erropen2	; return any error after freeing buffer	& fcb
opendone	ldx	vcbptr		; index	to volume control block
		inc	vcb+vcbopnc,x	; add 1	to the number of files currently open. 
		lda	vcb+vcbstat,x	; and indicate that this volume	has
		ora	#$80		; at least 1 file active.
		sta	vcb+vcbstat,x
		ldy	fcbptr		; index	to file	control	block
		lda	fcb+fcbrefn,y	; return reference number to user.
		ldy	#c_outref
		sta	(par),y
		clc			; indicate successful open!
		rts			; all done...

tstopen		lda	#0
		sta	cntent		; this temp returns the	refnum of a free fcb.
		sta	totent		; this is used as a flag to indicate file is already open.
		sta	fcbflg		; this is a flag to indicate a free fcb	is available.

tstopn1		tay			; index	to next	fcb
		ldx	fcbflg		; test for free	fcb found.
		bne	tstopn2		; branch if already found.
		inc	cntent
tstopn2		lda	fcb+fcbrefn,y	; is this fcb in use?
		bne	chkactv		; branch if it is.
		txa			; if not, should we claim it?
		bne	tsnxfcb		; branch if free fcb already found.
		sty	fcbptr		; save index to	free fcb.
		lda	#$ff		; set fcb flag to indicate free	fcb found. 
		sta	fcbflg
		bne	tsnxfcb		; branch always	to test	next fcb.

chkactv		tya			; add offset to	index to ownership info.
		ora	#fcbentn
		tay			; put it back in y.
		ldx	#fcbentn	; index	to directory entry owner info.
whowns		lda	fcb,y
		cmp	d_dev-1,x	; all bytes must match to say that its
		bne	tsnxfcb		; the same file	again.
		dey			; index	to next	lower bytes.
		dex
		bne	whowns		; loop to check	all owner info.
		inc	totent		; file is already open,
		lda	fcb+fcbattr,y	; now see if its already opened	for write
		and	#writen		; if so, report	file busy (with	carry set).
		beq	tsnxfcb		; branch if this file is read access only.
		sec
		rts

tsnxfcb		tya			; calc position	of next	fcb.
		and	#$e0		; first	strip any posible index	offsets.
		clc
		adc	#$20		; bump to next fcb.
		bne	tstopn1		; branch if more to compare.
		clc			; report no conflicts.
		rts

		Eject
read		jsr	mvdbufr		; first	transfer  buffer adr & request count 
		jsr	mvcbytes	; to a more accessable location, also get fcbattr, clc. 
		pha			; save attributes for now.
		jsr	calcmrk		; calc mark after read,	test mark>eof
		pla			; carry	set indicates end mark>eof
		and	#readen		; test for read	enabled	first.
		bne	read1		; branch if ok to read
		lda	#accserr	; report illegal access.
		bne	gofix1		; branch always	taken. 


read1		bcc	read2		; branch if result mark<eof. 
; adjust request to read up to (but not	including) end of file. 
		ldy	fcbptr
		lda	fcb+fcbeof,y	; result= (eof-1)-position
		sbc	tposll
		sta	cbytes
		sta	rwreql
		lda	fcb+fcbeof+1,y
		sbc	tposlh
		sta	cbytes+1
		sta	rwreqh
		ora	cbytes		; if both bytes	are zero, report eof error.
		bne	read3
		lda	#eoferr
gofix1		jmp	errfix1


read2		lda	cbytes
		ora	cbytes+1
		bne	read3		; branch if read request definitely non-zero.
gorddne		jmp	rwdone		; do nothing.


read3		jsr	valdbuf		; validate user's data buffer range.
		bcs	gofix1		; branch if memory conflict.
		jsr	gfcbstyp	; get storage type. 
		cmp	#tretyp+1	; now find if it's a tree or other. 
		bcc	tread		; branch if a tree file.
		jmp	dread		; othewise assume it's a directory.


tread		jsr	rdposn		; get data pointer set up.
		bcs	gofix1		; report any errors
		jsr	preprw		; test for newline, sets up for	partial	read.
		jsr	readpart	; move current data buffer contents to user area
		bvs	gorddne		; branch if request is satisfied.
		bcs	tread		; carry	set indicates newline is set.
		lda	rwreqh		; find out how many blocks are to be read
		lsr	a		; if less than two, then do it the slow	way.
		beq	tread
		sta	bulkcnt		; save bulk block count.
		jsr	gfcbstat	; make sure current data area doesn't need writing before 
		and	#datmod		; resetting pointer to read directly into
		bne	tread		; user's area. branch if data need to be written
		sta	ioaccess	; to force first call thru all device handler checking. 
		lda	usrbuf		; make the data	buffer the user's space.
		sta	datptr
		lda	usrbuf+1
		sta	datptr+1

rdfast		jsr	rdposn		; get next block directly into user space.
		bcs	errfix		; branch on any	error.
rdfast0		inc	datptr+1	; bump all pointers by 512 (one	block)
		inc	datptr+1
		dec	rwreqh
		dec	rwreqh
		inc	tposlh
		inc	tposlh
		bne	rdfast1		; branch if position does not get to a 64k boundary.
		inc	tposhi		; otherwise, must chect	for a 128k boundary
		lda	tposhi		; set carry if mod 128k	has been reached
		eor	#1
		lsr	a
rdfast1		dec	bulkcnt		; have we read all we can fast?
		bne	rdfast2		; branch if more to read.
		jsr	fxdatptr	; go fix up data pointer to xdos buffer.
		lda	rwreql		; test for end of read.
		ora	rwreqh		; are both zero?
		beq	rwdone
		bne	tread		; no, read last	partial	block.

rdfast2		bcs	rdfast
		lda	tposhi		; get index to next block address
		lsr	a
		lda	tposlh
		ror	a
		tay			; index	to address is int(pos/512)
		lda	(tindx),y	; get low address
		sta	bloknml
		inc	tindx+1
		cmp	(tindx),y	; are both hi and low address the same?
		bne	realrd		; no, it's a real block address.
		cmp	#0		; are both bytes zero?
		bne	realrd		; nope -- must be real data
		sta	ioaccess	; don't do repeatio just after sparse
		beq	nostuf		; branch always	(carry set)
realrd		lda	(tindx),y	; get high address byte
		clc
nostuf		dec	tindx+1
		bcs	rdfast		; branch if no block to	read
		sta	bloknmh
		lda	ioaccess	; has first call gone to device	yet?
		beq	rdfast		; nope,	go thru	normal route...
		clc
		php			; interrupts cannot occur while	calling	dmgr
		sei
		lda	datptr+1	; reset	hi buffer address for device handler
		sta	dbufph
		jsr	dmgr
		bcs	errfx00		; branch if error
		plp
		bcc	rdfast0		; no errors, branch always. 

errfx00		plp			; restore interrupts.
errfix		pha			; save error code
		jsr	fxdatptr	; go restore data pointers, etc...
		pla
errfix1		pha			; save error code
		jsr	rwdone		; pass back number of bytes actually read.
		pla
		sec			; report error
		rts



rwdone		ldy	#c_trnscnt	; return total number of bytes actually	read
		sec			; this is derived from cbytes-rwreq
		lda	cbytes
		sbc	rwreql
		sta	(par),y
		iny
		lda	cbytes+1
		sbc	rwreqh
		sta	(par),y
		jmp	rdposn		; leave	with valid position in fcb.

preprw		ldy	fcbptr		; adjust pointer to user's buffer to
		sec			; make the transfer
		lda	usrbuf
		sbc	tposll
		sta	usrbuf
		bcs	preprw1		; branch if no adjustment to hi	addr. needed.
		dec	usrbuf+1
preprw1		lda	fcb+fcbnlmsk,y	; test for new line enabled. 
		clc
		beq	nonewlin	; branch if newline is not enabled
		sec			; carry	set indicates newline enabled. 
		sta	nlmask
		lda	fcb+fcbnewl,y	; move newline character to more
		sta	nlchar		; accessable spot.
nonewlin	ldy	tposll		; get index to first data
		lda	datptr		; reset	low order of posptr to beginning of page.
		sta	posptr
		ldx	rwreql		; and lastly get low order count of requested bytes.
		rts			; return statuses...

readpart	txa			; (x contains low count	of bytes to move)
		bne	rdpart0		; branch if request is not a even pages
		lda	rwreqh		; a call of zero bytes should never get	here!
		beq	setrdne		; branch if nothin' to do.
		dec	rwreqh
rdpart0		dex
rdpart		lda	(posptr),y	; move data to user's buffer
		sta	(usrbuf),y	; one byte at a	time.

***************	see rev	note #48 *************


		bcs	tstnewl		; let's test for newline first!
rdpart2		txa			; note:	x must be unchanged from tstnewl!
		beq	endrqchk	; see if read request is satisfied...
rdpart1					; continue
***********************************************
		dex			; dec #	of bytes left to move.
		iny			; page crossed?
		bne	rdpart		; no. move next	byte.
		lda	posptr+1	; test for end of buffer
		inc	usrbuf+1	; but first adjust user	buffer pointer
		inc	tposlh		; and position.
		bne	rdpart3
		inc	tposhi
rdpart3		inc	posptr+1	; and sos buffer high address.
		eor	datptr+1	; (carry has been cleverly undisturbed.)
		beq	rdpart		; branch if more to read in buffer.
		clv			; indicate not finished.
		bvc	rdprtdne	; branch always.

endrqchk	lda	rwreqh
		beq	rdrqdne		; branch if reqest satisfied.
		iny			; done with this block of data?
		bne	endrchk1	; no, adjust high byte of request.
		lda	posptr+1	; maybe- check for end of block	buffer.
		eor	datptr+1	; (don't disturb carry)
		bne	endrchk2	; branch if hi count can be dealt with next time.
endrchk1	dec	rwreqh
endrchk2	dey			; restore proper value to 'y'
		bra	rdpart1

tstnewl		lda	(posptr),y	; get last byte	transfered again.
		and	nlmask		; only bits on in mask are significant. 
		eor	nlchar		; have we matched newline character?
		bne	rdpart2		; no, read next.
rdrqdne		iny			; adjust position.
		bne	setrdne
		inc	usrbuf+1	; bump pointers.
		inc	tposlh
		bne	setrdne
		inc	tposhi
setrdne		bit	setvflg		; (set v flag)
rdprtdne	sty	tposll		; save low position
		bvs	rdone1
		inx			; leave	request	as +1 for next call 
rdone1		stx	rwreql		; and remainder	of request count.
		php			; save statuses
		clc			; adjust user's low buffer address
		tya
		adc	usrbuf
		sta	usrbuf
		bcc	rdpart4
		inc	usrbuf+1	; adjust hi address as needed.
rdpart4		plp			; restore return statuses
setvflg		rts			; (this	byte <$60> is used to set v flag)

fxdatptr	lda	datptr		; put current user buffer
		sta	usrbuf		; address back to normal
		lda	datptr+1
		sta	usrbuf+1	; bank pair byte should	be moved also. 
		ldy	fcbptr		; restore buffer address
		jmp	fndfcbuf



* read directory file...

dread		jsr	rdposn
		bcs	errdrd		; pass back any	errors
		jsr	preprw		; prepare for transfer.
		jsr	readpart	; move data to user's buffer
		bvc	dread		; repeat until request is satisfied.
		jsr	rwdone		; update fcb as	to new position. 
		bcc	dredone		; branch if all	is well.
		cmp	#eoferr		; was last read	to end of file?
		sec			; anticipate some other	problem
		bne	drederr		; branch if not	eof error.
		jsr	svmark
		jsr	zipdata		; clear	out data block.
		ldy	#0		; provide dummy	back pointer for future	re-position
		ldx	fcbptr		; get hi byte of last block.
dred1		lda	fcb+fcbdatb,x
		sta	(datptr),y
		lda	#0		; mark current block as	imposible. 
		sta	fcb+fcbdatb,x
		inx
		iny			; bump indexes to do both hi & low bytes. 
		cpy	#2
		bne	dred1
dredone		clc			; indicate no error
drederr		rts

errdrd		jmp	errfix1		; report how much we could transfer before error.

mvcbytes	ldy	#c_reqcnt	; move request count 
		lda	(par),y		; to a more accessable location. 
		sta	cbytes
		sta	rwreql
		iny
		lda	(par),y
		sta	cbytes+1
		sta	rwreqh
		ldy	fcbptr		; also return y=val(fcbptr),
		lda	fcb+fcbattr,y	; and a=attributes
		clc			; and carry clear...
		rts

mvdbufr		ldy	#c_datbuf	; move pointer to users	buffer to bfm
		lda	(par),y
		sta	usrbuf		; z-page area.
		iny
		lda	(par),y
		sta	usrbuf+1
gfcbstyp	ldy	fcbptr		; also return storage type.
		lda	fcb+fcbstyp,y
		rts

calcmrk		ldx	#0		; this subroutine adds the requested byte
		ldy	fcbptr
		clc
calcmrk1	lda	fcb+fcbmark,y	; count	to mark, and returns sum 
		sta	tposll,x	; in scrtch and	also returns mark in tpos. 
		sta	oldmark,x	; and oldmark.
		adc	cbytes,x
		sta	scrtch,x	; on exit: y, x, a=unknown 
		txa			; carry	set indicates scrtch>eof.
		eor	#2		; (cbytes+2 always = 0) 
		beq	eoftest
		iny
		inx
		bne	calcmrk1	; branch always
eoftest		lda	scrtch,x	; new mark in scrtch! 
		cmp	fcb+fcbeof,y	; is new position > eof?
		bcc	eoftst1		; no, proceed.
		bne	eoftst1		; yes, adjust 'cbytes' request
		dey
		dex			; have we compared all tree bytes?
		bpl	eoftest		; no, test next	lowest.
eoftst1		rts



werreof		jsr	plus2fcb	; reset	eof to pre-error position.
weof1		lda	oldeof,x	; place	oldeof back into fcb.
		sta	fcb+fcbeof,y
		lda	oldmark,x	; also reset mark to last best write position.
		sta	fcb+fcbmark,y
		sta	scrtch,x	; and copy mark	to scrtch for test of
		dey			; eof less than	mark.
		dex
		bpl	weof1
		jsr	plus2fcb	; get pointers to test eof<mark
		jsr	eoftest		; carry	set means mark>eof!!
* drop into wadjeof to adjust eof to mark if necessary.


wadjeof		jsr	plus2fcb	; get y=fcbptr+2, x=2, a=y
wadj1		lda	fcb+fcbeof,y	; copy eof to oldeof
		sta	oldeof,x
		bcc	wadj2		; and if carry set...
		lda	scrtch,x	; copy scrtch to fcb's eof
		sta	fcb+fcbeof,y
wadj2		dey
		dex			; copy all three bytes.
		bpl	wadj1
		rts


plus2fcb	lda	#2		; on exit a&y=(fcbptr)+2
		tax			; x=2
		ora	fcbptr
		tay
		rts

write					; first	determine if reqested
		jsr	mvcbytes	; write	is legal
		pha
		jsr	calcmrk		; save a copy of eof to	oldeof,	set/clr	carry
		jsr	wadjeof		; to determine if new mark > eof.
		pla			; get attributes again.

		and	#writen		; is write enabled?
		bne	write1		; yes, continue...
erraccs		lda	#accserr	; report illegal access.
		bne	writerror	; branch always	taken. 

write1		jsr	tstwprot	; otherwise, make sure device is not write protected.
		bcs	writerror	; report write potected	and abort operation.
		lda	cbytes
		ora	cbytes+1	; anything to write? 
		bne	write2		; branch if write request definitely non-zero.
		jmp	rwdone		; do nothing.


write2		jsr	mvdbufr		; move pointer to users	buffer to bfm
		cmp	#tretyp+1	; zpage	area, also get storage type. 
		bcs	erraccs		; if not tree, return an access	error!
twrite		jsr	rdposn		; read block we're
		bcs	writerror
		jsr	gfcbstat

		and	#datalc+idxalc+topalc
		beq	trewrt1
		ldy	#0		; find out if enough disk space	is available for
twrtalc		iny			; indexes and data block
		lsr	a
		bne	twrtalc
		sty	reql
		sta	reqh
		jsr	tsfrblk
		bcs	writerror	; pass back any	errors.
		jsr	gfcbstat	; now get more specific.
		and	#topalc		; are we lacking a tree	top?
		beq	tstsapwr	; no, test for lack of sapling level index.
		jsr	topdown		; go allocate tree top and adjust file type.
		bcc	dblokalc	; continue with	allocation of data block.
writerror
		pha			; save error
		jsr	errfix1		; error	return
		jsr	werreof		; adjust eof and mark to pre-error state
		pla			; restore error	code.
		sec
		rts

tstsapwr	jsr	gfcbstat	; get status byte again.
		and	#idxalc		; do we	need a sapling level index block?
		beq	dblokalc	; no, assume it's just a data block needed.
		jsr	sapdown		; go allocate an index block and update	tree top.
		bcs	writerror	; return any errors.
dblokalc	jsr	alcwblk		; go allocate for data block.
		bcs	writerror
		jsr	gfcbstat	; clear	allocation required bits in status.
		ora	#idxmod		; but first tell 'em index block is dirty
		and	#$ff-datalc-idxalc-topalc
		sta	fcb+fcbstat,y
		lda	tposhi		; calculate position within index block.
		lsr	a
		lda	tposlh
		ror	a
		tay			; now put block	address	into index block
		inc	tindx+1		; high byte first.
		lda	scrtch+1
		tax
		sta	(tindx),y
		dec	tindx+1		; (restore pointer to lower page of index block)
		lda	scrtch		; get low block	address
		sta	(tindx),y	; now store low	address.
		ldy	fcbptr		; also update file control block to indicate
		sta	fcb+fcbdatb,y	; that this block is allocated.
		txa			; get high address again.
		sta	fcb+fcbdatb+1,y
trewrt1		jsr	preprw		; write	on
		jsr	wrtpart
		bvc	twrite
		jmp	rwdone		; update fcb with new position.


wrtpart		txa
		bne	wrpart		; branch if request is not a even pages
		lda	rwreqh		; a call of zero bytes should never get	here!
		beq	setwrdne	; do nothing!

		dec	rwreqh
wrpart		dex
		lda	(usrbuf),y	; move data from user's buffer
		sta	(posptr),y	; one byte at a	time.
		txa
		beq	endwqchk
wrpart2		iny			; page crossed?
		bne	wrpart		; no. move next	byte.
		lda	posptr+1	; test for end of buffer
		inc	usrbuf+1	; but first adjust user	buffer pointer
		inc	tposlh		; and position.
		bne	wrpart3
		inc	tposhi
; don't wrap around on file!
		bne	wrpart3
		lda	#posnerr	; say out of range if >32 meg
		bne	writerror
wrpart3		inc	posptr+1	; and sos buffer high address.
		eor	datptr+1	; (carry has been cleverly undisturbed.)
		beq	wrpart		; branch if more to write to buffer.
		clv			; indicate not finished.
		bvc	wrprtdne	; branch always.

endwqchk	lda	rwreqh
		beq	wrtrqdne	; branch if reqest satisfied.
		iny			; are we done with this	block of data?
		bne	endwchk1	; branch if not.
		lda	posptr+1
		eor	datptr+1	; while	this is	redundant, it's necessary for
		bne	endwchk2	; proper adjustment of request count.
endwchk1	dec	rwreqh		; (not finished- ok to adjust hi byte.)
endwchk2	dey			; reset	modified y
		bra	wrpart2

wrtrqdne	iny			; and position.
		bne	setwrdne
		inc	usrbuf+1	; bump pointers.
		inc	tposlh
		bne	setwrdne
		inc	tposhi
setwrdne	bit	setvflg		; (set v flag)
wrprtdne	sty	tposll		; save low position
		stx	rwreql		; and remainder	of request count.
		php			; save statuses
		jsr	gfcbstat
		ora	#datmod+usemod
		sta	fcb+fcbstat,y
		clc			; adjust user's low buffer address
		lda	tposll
		adc	usrbuf
		sta	usrbuf
		bcc	wrpart4
		inc	usrbuf+1	; adjust hi address as needed.
wrpart4		jsr	fcbused		; set directory	flush bit
		plp			; restore return statuses
		rts

topdown		jsr	swapdown	; first	make current 1st block an entry	in new top.
		bcs	tpdwnerr	; return any errors
		jsr	gfcbstyp	; find out if storage type has been changed to 'tree'.
* (if not, assume it was originally a seed and
		cmp	#tretyp		; both levels need to be built.
		beq	topdwn1		; otherwise, only an index need	be allocated)
		jsr	swapdown	; make previous	swap a sap level index block.
		bcs	tpdwnerr
topdwn1		jsr	alcwblk		; get another block address for	the sap	level index.
		bcs	tpdwnerr
		lda	tposhi		; calculate position of	new index block
		lsr	a		; in the top of	the tree.
		tay
		lda	scrtch		; get address of newly alocated	index block again
		tax
		sta	(tindx),y
		inc	tindx+1
		lda	scrtch+1
		sta	(tindx),y	; save hi address
		dec	tindx+1
		ldy	fcbptr		; make newly allocated block the current index block.
		sta	fcb+fcbidxb+1,y
		txa

		sta	fcb+fcbidxb,y
		jsr	wfcbfst		; save new top of tree.
		bcs	tpdwnerr

***************** see rev note #40 **************************

		jmp	zeroindex	; zero index block in user's i/o buffer.

************************************************************

sapdown		jsr	gfcbstyp	; find out if we're dealing with a tree
		cmp	#seedtyp	; if seed then an adjustment to	file type is necessary.
		beq	sapdwn1		; branch if seed.
		jsr	rfcbfst		; otherwise read in top	of tree.
		bcc	topdwn1		; branch if no error.
tpdwnerr	rts			; return errors


sapdwn1					; make current seed into a sapling

swapdown	jsr	alcwblk		; allocate a block before swap
		bcs	swaperr		; return errors	immediately.
		ldy	fcbptr		; get previous first block
		lda	fcb+fcbfrst,y	; address into index block.
		pha			; save temporarly while	swapping in new	top index
		lda	scrtch		; get new block	address	(low)
		tax
		sta	fcb+fcbfrst,y
		lda	fcb+fcbfrst+1,y
		pha
		lda	scrtch+1	; and high address too.
		sta	fcb+fcbfrst+1,y
		sta	fcb+fcbidxb+1,y	; make new top also the	current	index in memory.
		txa			; get low address again
		sta	fcb+fcbidxb,y
		inc	tindx+1		; make previous	the first entry	in sub index
		pla
		sta	(tindx)
		dec	tindx+1
		pla
		sta	(tindx)
		jsr	wfcbfst		; save new file	top.
		bcs	swaperr
		jsr	gfcbstyp	; now adjust storage type
		adc	#1		; by adding 1 (thus seed becomes sapling becomes tree)
		sta	fcb+fcbstyp,y
		lda	fcb+fcbstat,y	; mark storage type modified.
		ora	#stpmod
		sta	fcb+fcbstat,y
		clc			; return 'no error' status.
swaperr		rts


alcwblk		jsr	alc1blk
		bcs	aluserr
		jsr	gfcbstat	; mark usage as	modified
		ora	#usemod
		sta	fcb+fcbstat,y
		lda	fcb+fcbuse,y	; bump current usage count by 1.
		clc
		adc	#1
		sta	fcb+fcbuse,y
		lda	fcb+fcbuse+1,y
		adc	#0
		sta	fcb+fcbuse+1,y
wrok		clc			; indicate no error
aluserr		rts			; all done

tstwprot	jsr	gfcbstat	; check	for a 'never been modified' condition
		and	#usemod+datmod+idxmod+eofmod
		bne	wrok		; ordinary rts if known	write ok. 
		lda	fcb+fcbdevn,y	; get file's device number. 
		sta	devnum		; get current status of	block device
twrprot1	sta	unitnum		; make the device status call. 
		lda	bloknmh
		pha
		lda	bloknml		; save the current block values
		pha
		stz	dhpcmd
		stz	bloknml		; zero the block #
		stz	bloknmh
		php
		sei
		jsr	dmgr
		bcs	twerr		; branch if write protect error
		lda	#$00		; otherwise, assume no errors
twerr		plp			; restore interrupt status
		clc
		tax			; save error
		beq	twno		; branch if no error
		sec			; else,	set carry to show error
twno
		pla
		sta	bloknml		; restore the block #
		pla
		sta	bloknmh
		txa
wprotret	rts			; carry	is indeterminate

		Eject
close		ldy	#c_refnum	; close	all?
		lda	(par),y
		bne	close1		; no, just one of 'em
		sta	cferr		; clear	global close error
		lda	#0		; begin	at the beginning.
clsall1		sta	fcbptr		; save current low byte	of pointer
		tay			; fetch	the level at which
		lda	fcb+fcblevl,y	; file was opened
		cmp	level		; test against current global level
		bcc	nxtclos		; dont close if	files level is < global	level
		lda	fcb+fcbrefn,y	; is this reference file open?
		beq	nxtclos		; no, try next.
		jsr	flush2		; clean	it out...
		bcs	closerr		; return flush errors
		jsr	close2		; update fcb & vcb
		ldy	#c_refnum
		lda	(par),y
		beq	nxtclos		; no err if close all
		bcs	closerr
nxtclos		lda	fcbptr		; bump pointer to next file control block.
		clc
		adc	#$20
		bcc	clsall1		; branch if within same	page.
		lda	cferr		; on final close of close all report logged errors
		beq	closend		; branch if errors
		rts			; carry	already	set (see bcc)

close1		jsr	flush1		; flush	file first (including updating bit map)
		bcs	closerr		; report errors	immediately!! 
close2		ldy	fcbptr
		lda	fcb+fcbfbuf,y	; release file buffer 
		jsr	relbuffr
		bcs	closerr
		lda	#0
		ldy	fcbptr
		sta	fcb+fcbrefn,y	; free file control block too., 
		lda	fcb+fcbdevn,y
		sta	devnum		; go look for associated vcb.
		jsr	fnddvcb
		ldx	vcbptr		; get vcbptr
		dec	vcb+vcbopnc,x	; indicate one less file open.
		bne	closend		; branch if that wasn't the last...
		lda	vcb+vcbstat,x
		and	#$7f		; strip	'files open' bit
		sta	vcb+vcbstat,x
closend		clc
		rts
closerr		bcs	flsherr		; don't report closall err now 

		Eject
flush		ldy	#c_refnum	; flush	all?
		lda	(par),y
		bne	flush1		; no, just one of 'em
		sta	cferr		; clear	global flush error
		lda	#0		; begin	at the beginning.
flshal1		sta	fcbptr		; save current low byte	of pointer
		tay			; index	to reference number
		lda	fcb+fcbrefn,y	; is this reference file open?
		beq	nxflush		; no, try next.
		jsr	flush2		; clean	it out...
		bcs	flsherr		; return any errors

nxflush		lda	fcbptr		; bump pointer to next file control block.
		clc
		adc	#$20
		bcc	flshal1		; branch if within same	page.
flushend	clc
		lda	cferr		; on last flush	of a flush(0)
		beq	f3		; branch if no logged errors 
		sec			; report error now
f3		rts

flush2		jsr	fndfcbuf	; must set up associated vcb an	buffer locations first.
		bcc	flush2a		; branch if no error encountered.
flsherr		jmp	glberr		; check	for close or flush all

flush1		stz	cferr		; clear global error for normal refnum flush
		jsr	findfcb		; set up pointer to fcb	user references
		bcs	flsherr		; return any errors
flush2a					; test to see if file is
		lda	fcb+fcbattr,y	; modified. first test write enabled.
		and	#writen
		beq	flushend	; branch if 'read only'
		lda	fcb+fcbdirty,y	; see if eof has been modified
		bmi	flush2b		; branch if it has
		jsr	gfcbstat	; now test for data modified.
		and	#usemod+eofmod+datmod ;	was written to while it's been open? 
		beq	flushend	; branch if file not modified.
flush2b		jsr	gfcbstat	; now test for data modified.
		and	#datmod		; does current data buffer need	to be
		beq	flush3		; written? branch if not.
		jsr	wfcbdat		; if so, go write it stupid!
		bcs	flsherr
flush3		jsr	gfcbstat	; check	to see if the index block (tree	files only)
		and	#idxmod		; needs	to be written.
		beq	flush4		; branch if not...
		jsr	wfcbidx
		bcs	flsherr		; return any errors.


flush4		lda	#fcbentn	; now prepare to update	directory
		tax
		ora	fcbptr
		tay
ownrmov		lda	fcb,y		; note:	this code depends on the
		sta	d_dev-1,x	; defined order	of the file control
		dey			; block	and the	temporary directory area in 'workspc'! *************
		dex
		bne	ownrmov
		sta	devnum
		lda	d_head		; read the directory header for	this file
		ldx	d_head+1
		jsr	rdblk		; read it into the general purpose buffer
		bcs	flsherr		; branch if error.
		jsr	movhed0		; move header info.
		lda	d_entblk	; get address of directory block that
		ldy	d_entblk+1	; contains the file entry.
		cmp	d_head		; test to see if it's the same block that
		bne	flsheblk	; the header is	in. branch if not.
		cpy	d_head+1
		beq	flush5		; branch if header block = entry block.
flsheblk	sta	bloknml
		sty	bloknmh
		jsr	rdgbuf		; get block with file entry in general buffer.
flush5		jsr	entcalc		; set up pointer to entry
		jsr	moventry	; move entry to	temp entry buffer in 'workspc'
		ldy	fcbptr		; update 'blocks used' count.
		lda	fcb+fcbuse,y
		sta	d_usage
		lda	fcb+fcbuse+1,y
		sta	d_usage+1	; hi byte too...
		ldx	#0		; and move in end of file mark whether
eofupdte	lda	fcb+fcbeof,y	; we need to or	not.
		sta	d_eof,x
		inx			; move all three bytes.
		cpx	#3
		beq	eofup1
		lda	fcb+fcbfrst,y	; also move in the address of
		sta	d_frst-1,x	; the file's first block since
		iny			; it might have	changed	since the file
		bne	eofupdte	; first	opened.	branch always taken. 


eofup1		lda	fcb+fcbstyp-2,y	; the last thing to update is storage type (y=fcbptr+2). 
		asl	a		; (shift it into the hi	nibble)
		asl	a
		asl	a
		asl	a
		sta	scrtch
		lda	d_stor		; get old type byte (it	might be the same)
		and	#$f		; strip	off old	type
		ora	scrtch		; add in the new type,
		sta	d_stor		; and put it away.
		jsr	drevise		; go update directory!
		bcs	flusherr
		ldy	fcbptr		; mark
		lda	fcb+fcbdirty,y	; fcb/directory
		and	#$ff-fcbmod	; as
		sta	fcb+fcbdirty,y	; undirty
		lda	d_dev		; see if bitmap	should be written.
		cmp	bmadev		; is it	in same	as current file? 
		bne	flshend1	; yes, put it on the disk if necessary.
		jsr	upbmap		; go put it away.
		bcs	flusherr
flshend1	clc
		rts
flusherr				; drop into glberr 

glberr					; report error immediately
* only if not a	close all or flush all
		ldy	#c_refnum
		pha
		lda	(par),y
		bne	glberr1		; not an 'all' so report now
		clc
		pla
		sta	cferr		; save for later
		rts
glberr1		pla
		rts

gfcbstat	ldy	fcbptr		; index	to fcb.
		lda	fcb+fcbstat,y	; return status	byte.
		rts			; that is all...

seterr		lda	#accserr
		sec
eofretn		rts

		Eject
seteof		jsr	gfcbstyp	; only know how	to move	eof of tree, sapling, or seed. 
		cmp	#tretyp+1
		bcs	seterr		; branch if other than tree
		asl	a
		asl	a
		asl	a
		asl	a
		sta	stortype	; may be used later for	trimming the tree...
		lda	fcb+fcbattr,y	; now check to insure write is enabled.
		and	#writen		; can we set new eof?
		beq	seterr		; nope,	access error.
		jsr	tstwprot	; find out if mod is posible (hardware write protect)
		bcs	seterr
		ldy	fcbptr		; save old eof
		iny
		iny
		ldx	#2		; so it	can be seen
setsave		lda	fcb+fcbeof,y	; whether blocks need
		sta	oldeof,x	; to be	released
		dey			; upon
		dex			; contraction
		bpl	setsave		; all three bytes of the eof
		ldy	#c_eof+2
		ldx	#2
neofpos		lda	(par),y		; position mark	to new eof
		sta	tposll,x
		dey
		dex
		bpl	neofpos
		ldx	#2		; point	to third byte
purtest		lda	oldeof,x	; see if eof moved backwards
		cmp	tposll,x	; so blocks can
		bcc	eofset		; be released (branch if not)
		bne	purge		; branch if blocks to be released
		dex
		bpl	purtest		; all three bytes
eofset		ldy	#c_eof+2
		ldx	fcbptr		; place	new end	of file	into fcb. 
		inx
		inx
eofset1		lda	(par),y
		sta	fcb+fcbeof,x
		dex
		dey
		cpy	#c_eof		; all three bytes moved?
		bcs	eofset1		; branch if not... 
		jmp	fcbused		; mark fcb as dirty... all done. 

purge		jsr	flush1		; make sure file is current. 
		bcs	eofretn
		ldx	datptr+1	; restore pointer to index block
		inx
		inx			; (zero	page conflict with dirptr)
		stx	tindx+1
		ldx	datptr
		stx	tindx
		ldy	fcbptr		; find out if eof < mark.
		iny
		iny
		ldx	#2
neoftst		lda	fcb+fcbmark,y
		cmp	tposll,x	; compare until	not equal or carry clear
		bcc	seteof1		; branch if eof>mark
		bne	seteof0		; branch if eof<mark
		dey
		dex
		bpl	neoftst		; loop on all three bytes
seteof0		ldy	fcbptr
		ldx	#0
fakeof		lda	tposll,x	; fake position, correct position 
		sta	fcb+fcbmark,y
		iny			; will be made below... 
		inx			; move all three bytes 
		cpx	#3
		bne	fakeof


seteof1		jsr	tkfrecnt	; force	proper free block count	before releasing blocks
		lda	tposll		; now prepare for purge	of excess blocks.. 
		sta	dseed		; all blocks and bytes beyond new eof 
		lda	tposlh		; must be zeroed! 
		sta	dsap
		and	#1
		sta	dseed+1
		lda	tposhi
		lsr	a
		sta	dtree
		ror	dsap		; pass position	in terms of block & bytes 
		lda	dseed		; now adjust for boundarys of $200  
		ora	dseed+1
		bne	seteof3		; branch if no adjustment necessary 
		lda	dsap		; get correct block positions for sap and 
		sec			; tree levels. 
		sbc	#1
		sta	dsap		; deallocate for last (phantom)	block.
		lda	#2		; and don't modify last data block.
		bcs	seteof2		; branch if tree level un affected.
		dec	dtree		; but if it is affected, make sure neweof#0
		bpl	seteof2		; branch if new	eof not	zero
		lda	#0
		sta	dtree		; otherwise, just make a nul seed out of it.
		sta	dsap
seteof2		sta	dseed+1
seteof3		ldy	fcbptr		; also must pass file's first block addr. 
		lda	fcb+fcbfrst,y
		sta	firstbl
		lda	fcb+fcbfrst+1,y
		sta	firstbh
		stz	deblock		; lastly, number of blocks to be 
		stz	deblock+1	; freed	should be initialized. 
		jsr	detree		; go defoliate... 
		php			; save any error status	until 
		pha			; fcb is cleaned up! 
		sec
		ldy	fcbptr
		ldx	#0
adjfcb		lda	firstbl,x
		sta	fcb+fcbfrst,y	; move in posible new first file block addr. 
		lda	fcb+fcbuse,y	; adjust usage count also 
		sbc	deblock,x
		sta	fcb+fcbuse,y
		iny
		inx
		txa
		and	#1		; test for both	bytes adjusted 
		bne	adjfcb		; without disturbing carry. 
		lda	stortype	; get possibly modified	storage	type 
		lsr	a
		lsr	a
		lsr	a
		lsr	a
		ldy	fcbptr		; save it in fcb 
		sta	fcb+fcbstyp,y
		jsr	clrstats	; make it look as though position has  
		jsr	dvcbrev		; nothing allocated, update total blocks in vcb. 
		ldy	fcbptr		; now correct position stuff. 
		iny
		iny
		ldx	#2
corctpos	lda	fcb+fcbmark,y	; tell rdposn to go to correct 
		sta	tposll,x
		eor	#$80		; position from	incorrect place. 
		sta	fcb+fcbmark,y
		dey
		dex
		bpl	corctpos
		jsr	rdposn		; go do	it!!! 
		bcc	purge1		; branch if no error.
		tax			; otherwise report latest error.
		pla
		plp
		txa			; restore latest error code to stack
		sec
		php
		pha			; save new error.
purge1					; mark file as in need of a flush and 
		jsr	eofset		; update fcb with new end of file
		jsr	flush1		; now go do flush
		bcc	purge2		; branch if no error.
		tax			; save latest error.
		pla			; clean	previous error off stack
		plp
		txa			; restore latest error code to stack
		sec			; set the carry	to show	error condition
		php			; restore error	status to stack
		pha			; and the error	code.
purge2
		pla			; report any errors that may have cropped up.
		plp
		rts

		Eject
geteof		ldx	fcbptr		; index	to end of file mark
		ldy	#c_eof		; and index to users call parameters 
outeof		lda	fcb+fcbeof,x
		sta	(par),y
		inx
		iny
		cpy	#c_eof+3
		bne	outeof		; loop until all three bytes are moved. 
		clc			; no errors
		rts



newline		ldy	#c_isnewl	; adjust newline status	for open file.
		lda	(par),y		; on or	off?
		ldx	fcbptr		; it will be zero if off. 
		sta	fcb+fcbnlmsk,x	; set new line mask 
		iny
		lda	(par),y		; and move in new 'new-line' byte.
		sta	fcb+fcbnewl,x
		clc
		rts			; no error possible.

		Eject
getinfo		jsr	findfile	; look for file	they want ot know about.
		bcc	gtinfo1		; branch if no errors.
		cmp	#badpath	; was it a root	directory file?
		sec			; (in case of no match)
		bne	ginfoerr
		lda	#$f0
		sta	d_stor		; for get info,	report proper storage type
		stz	reql		; force	a count	of free	blocks.
		stz	reqh
		ldx	vcbptr
		jsr	tkfrecnt	; take a fresh count of	free blocks on this volume. 
		ldx	vcbptr
		lda	vcb+vcbtfre+1,x	; return total blocks and total	in use.
		sta	reqh		; first	transfer 'free'	blocks to zpage	for later subtract
		lda	vcb+vcbtfre,x	; to determine the 'used' count
		sta	reql
		lda	vcb+vcbtblk+1,x	; transfer to 'd.' table as aux	i.d.
		sta	d_auxid+1	; (total block count is	considered aux i.d. for	the volume)
		pha
		lda	vcb+vcbtblk,x
		sta	d_auxid
		sec			; now subtract and report the number of	blocks 'in use'
		sbc	reql
		sta	d_usage
		pla
		sbc	reqh
		sta	d_usage+1
gtinfo1		lda	d_stor		; transfer bytes from there internal order to call spec 
		lsr	a		; via 'inftabl'	translation table. 
		lsr	a
		lsr	a		; but first change storage type	to 
		lsr	a		; external (low	nibble)	format. 
		sta	d_stor
		ldy	#c_cretime+1	; index	to last	of users spec table. 
gtinfo2		lda	inftabl-3,y
		and	#$7f		; strip	bit used by setinfo
		tax
		lda	dfil,x		; move directory info to call spec. table. 
		sta	(par),y
		dey
		cpy	#c_attr		; have all info	bytes been sent? 
		bcs	gtinfo2		; branch if not. 
ginfoerr	rts			; exit with carry clear

		Eject
setinfo		jsr	findfile	; find what user wants...
		bcs	sinfoerr	; return any failure.
		lda	bubit		; discover if backup bit can be	cleared.
		eor	#$20
		and	d_attr
		and	#$20
		sta	bkbitflg	; or preserve current...
		ldy	#c_modtime+1	; init pointer to user supplied	list.
setinf1		ldx	inftabl-3,y	; get index into coresponding 'd.' table
		bmi	setinf2		; branch if we've got a non setable parameter. 
		lda	(par),y
		sta	dfil,x
setinf2		dey			; has user's request been satisfied?
		cpy	#c_attr
		bcs	setinf1		; no, move next	byte.

		and	#$18		; make sure no illegal access bits were	set! 
		beq	setinf3		; branch if legal access 
		lda	#accserr	; otherwise, refuse to do it.
		sec			; indicate error. 
sinfoerr	rts

setinf3		ldy	#c_moddate+1
		lda	(par),y		; was clock nul	input?
		beq	setinf4
		jmp	drevise1	; end by updating directory. 

setinf4		jmp	drevise		; update with clock also...

		Eject
rename		jsr	lookfile	; look for source (original) file.
		bcc	rname0		; branch if found.
		cmp	#badpath	; trying to rename a volume?
		bne	rnmeror		; no, return other error.
		jsr	renpath		; syntax new name.
		bcs	rnmeror
		ldy	pathbuf		; find out if only rootname for	new name
		iny
		lda	pathbuf,y	; must be $ff if v-name	only
		bne	rnbadpth	; branch if not	single name.
		ldx	vcbptr		; text for open	files before changing.
		lda	vcb+vcbstat,x
		bpl	rnamevol	; branch if volume not busy
		lda	#filbusy
rnmeror		sec
		rts
rnamevol	ldy	#0		; get newname's length.
		lda	pathbuf,y
		ora	#$f0		; (root	file storage type)
		jsr	mvrotnam	; update root directory.
		bcs	rnamerr
		ldy	#0
		ldx	vcbptr		; update vcb also.
rnmevol		lda	pathbuf,y	; move new name	to vcb. 
		beq	rnmevol1
		sta	vcb,x
		iny			; bump to next character. 
		inx
		bne	rnmevol		; branch alwasy	taken. 
rnmevol1	clc			; no errors
		rts

rname0		jsr	getnamptr	; set y	to first char of path, x=0
rname1		lda	pathbuf,y	; move original	name to	gbuf
		sta	gbuf,x		; for later comparison with new	name.
		bmi	rname2		; branch if last character has been moved.
		iny			; otherwise, get the next one.
		inx
		bne	rname1		; branch always	taken.


rname2		jsr	renpath		; get new name syntaxed.
		bcs	rnamerr
		jsr	getnamptr	; set y	to path, x to 0
		lda	pathbuf,y	; now compare new name with old	name
rname3		cmp	gbuf,x		; to make sure that they are in	the same directory.
		php			; save result of compare for now,
		and	#$f0		; was last char	really a count?
		bne	rname4		; branch if not.
		sty	rnptr		; save pointer to next name, it	might be the last.
		stx	pnptr
rname4		plp			; what was the result of the compare?
		bne	rname5		; branch if different character	or count.
		inx			; bump pointers.
		iny
		lda	pathbuf,y	; was that the last character?
		bne	rname3		; branch if not.
		clc			; no-operation,	names were the same.
		rts

rname5		ldy	rnptr		; index	to last	name in	the chains.
		lda	pathbuf,y	; get last name	length.
		sec
		adc	rnptr
		tay
		lda	pathbuf,y	; this byte should be $00!
		bne	rnbadpth	; branch if not.
		ldx	pnptr		; index	to last	of original name.
		lda	gbuf,x
		sec
		adc	pnptr
		tax
		lda	gbuf,x		; this byte should also	be $00 
		beq	rname6		; continue processing if it is.

rnbadpth	lda	#badpath
rnamerr		sec
		rts			; report error.

rname6		jsr	lookfile	; test for duplicate file name.
		bcs	rname7		; branch if file not found, which is what we want!
		lda	#duperr		; new name already exists.
		sec			; report duplicate. 
		rts

rname7		cmp	#fnferr		; was it a valid file not found?
		bne	rnamerr		; no, return other error code.
		jsr	setpath		; now syntax the pathname of the file to be changed.
		jsr	findfile	; get all the info on this one.
		bcs	rnamerr
		jsr	tstopen		; don't allow rename to occur if file is in use.
		lda	#filbusy	; anticipate error
		bcs	rnamerr
		lda	d_attr		; test bit that	says it's ok to rename
		and	#renamen
		bne	rname8		; branch if it's alright to rename.
		lda	#accserr	; otherwise report illegal access.
rname10		sec
		rts

rname8
		lda	d_stor		; find out which storage type.
		and	#$f0		; strip	off name length.
		cmp	#dirtyp*16	; is it	a directory? 
		beq	rname11
		cmp	#(tretyp+1)*$10	; is it	a seed,	sapling, or tree?
		bcc	rname11
		lda	#cpterr
		bne	rname10
rname11		jsr	renpath		; well... since	both names would go into the
		bcs	rnamerr		; directory, re-syntax the new name to get local name address.
		ldy	rnptr		; (y contains index to local name length)
		ldx	pathbuf,y	; adjust y to last char	of new name. 
		tya
		adc	pathbuf,y
		tay
rname9		lda	pathbuf,y	; move local name to dir entry workspace.
		sta	d_stor,x
		dey
		dex
		bne	rname9
		lda	d_stor		; preserve file	storage	type.
		and	#$f0		; strip	off old	name length.
		tax
		ora	pathbuf,y	; add in new name's length
		sta	d_stor
		cpx	#dirtyp*16	; that file must be changed also.
		bne	rnamdone	; branch if not	directory type.

		lda	d_frst		; read in 1st (header) block of	sub-dir
		ldx	d_frst+1
		jsr	rdblk
		bcs	rnamerr		; report errors
		ldy	rnptr		; change the header's name to match the owner's	new name.
		lda	pathbuf,y	; get local name length	again 
		ora	#hedtyp*16	; assume it's a header.
		jsr	mvrotnam
		bcs	rnamerr
rnamdone	jmp	drevise1	; end by updating all path directories


mvrotnam	ldx	#0
mvhednam	sta	gbuf+4,x
		inx
		iny
		lda	pathbuf,y
		bne	mvhednam
		jmp	wrtgbuf		; write	changed	header block.


renpath		ldy	#c_nwpath	; get address to new pathname.
		lda	(par),y
		iny
		sta	tpath
		lda	(par),y		; set up for syntaxing routine (synpath).
		sta	tpath+1
		jmp	synpath		; go syntax it.	(returns last local name length	in y).

getnamptr	ldy	#0		; return pointer to first name of path.
		bit	prfxflg		; is this a prefixed name?
		bmi	getnptr		; branch if not.
		ldy	newpfxptr
getnptr		ldx	#0
		rts

		Eject
destroy		jsr	findfile	; look for file	to be wiped out.
		bcs	desterr		; pass back any	error.
		jsr	tstopen		; is this file open?
		lda	totent
		bne	desterr1	; branch if file open.

dstroy1		stz	reql		; force	proper free count in volume.
		stz	reqh		; (no disk access occurs if already proper)
		jsr	tsfrblk
		bcc	dstroy2
		cmp	#ovrerr		; was it just a	full disk?
		bne	desterr		; nope,	report error.

dstroy2		lda	d_attr		; make sure it's ok to destroy this file.
		and	#dstroyen
		bne	dstroy3		; branch if ok.
		lda	#accserr	; tell user it's not kosher.
		jsr	syserr		; (returns to caller of	destory)

dstroy3		lda	devnum
		jsr	twrprot1	; before going thru deallocation, 
		bcs	desterr		; test for write protected hardware.
		lda	d_frst		; "detree" needs first block addr.
		sta	firstbl
		lda	d_frst+1
		sta	firstbh
		lda	d_stor		; find out which storage type.
		and	#$f0		; strip	off name length.
		cmp	#(tretyp+1)*$10	; is it	a seed,	sapling, or tree?
		bcc	dstree		; branch if it is.
		bra	dstdir		; otherwise test for directory destroy.

desterr1	lda	#filbusy
desterr		sec			; inform user that file	can't be destroyed at this time.
		rts


dstree					; destroy a tree file.
		sta	stortype	; save storage type.
		ldx	#5
		lda	#0		; set "detree" input variables
dstre1		sta	stortype,x	; variables must be  
		dex			; in order:deblock, dtree, dsap, dseed
		bne	dstre1		; loop until all set to	zero.
		lda	#2		; this avoids an extra file i/o	and preventsÉ
		sta	dseed+1		;Édestruction of any deleted data
		inc	delflag		; don't allow detree to zero index blocks.

					;		   <------ critical point --|
		jsr	detree		; make trees and saplings into seeds	    |
		dec	delflag		; reset	flag.				    | see
					;					    |
		bcs	zap_entry	; (de-evolution). <-------------------------| rev
dstlast		ldx	firstbh		;					    |
		lda	firstbl		; now deallocate seed.			    | note
		jsr	dealloc		;					    |
		bcs	zap_entry	;  <----------------------------------------| #95
		jsr	upbmap		; this used to be just after dst1 <---------|
					;					    |
zap_entry				;  <----------------------------------------|
		pha			; save possible	error code

		lda	#0		; update directory to free entry space.
		sta	d_stor
		cmp	h_fcnt		; file entry wrap?
		bne	dst1		; branch if no carry adjustment
		dec	h_fcnt+1	; take carry from high byte of file entries
dst1		dec	h_fcnt		; mark header with one less file
*
		jsr	dvcbrev		; go update block count	in vcb (can't fail)
					; fall through even if error
		jsr	drevise		; update directory last...

		tax			; save possible	new error code
		pla			; restore possible old error code
		bcc	@good		; that last call succeeded
		txa			; last call failed, use	its error code
@good		cmp	#1		; set carry properly
		rts

dvcbrev					; update block free count in vcb to reflect recent activity

		ldy	vcbptr		; point	to vcb of correct device
		lda	deblock		; get the number of blocks recently freed
		adc	vcb+vcbtfre,y
		sta	vcb+vcbtfre,y	; update current free block count.
		lda	deblock+1
		adc	vcb+vcbtfre+1,y
		sta	vcb+vcbtfre+1,y
		lda	#0		; force	rescan from first bitmap
		sta	vcb+vcbcmap,y
		rts

go_dstlast	bcc	dstlast		; branch widened, always taken


dstdir		cmp	#dirtyp*16	; is this a directory file?
		bne	drcpterr	; no, report file incompatible. 

dsdir1		jsr	fndbmap		; make sure a buffer is	available for the bitmap.
		bcs	dsdirerr
		lda	d_frst		; read in first	block of directory into	gbuf.
		sta	bloknml
		lda	d_frst+1
		sta	bloknmh
		jsr	rdgbuf
		bcs	dsdirerr
		lda	gbuf+hcent+4	; find out if any files	exist on this directory.
		bne	dsdiracc	; branch if any	exist.
		lda	gbuf+hcent+5
		beq	dsdir1a
dsdiracc	lda	#accserr
		jsr	syserr

dsdir1a		sta	gbuf+4		; make it an invalid subdir.
		jsr	wrtgbuf
		bcs	dsdirerr
dsdir2		lda	gbuf+2		; get forward link.

					;----- crunched	for v1.8 (Monte	Benaresh, Jan '89) --|
					;						     |
		cmp	#1		; test for nul block into carry			     |
		ldx	gbuf+3		; get the rest of the block address.		     |
		bne	dsdir3		; branch if not	nul.				     |
		bcc	go_dstlast	; was the low part null	as well?		     |
					;----------------------------------------------------|
dsdir3
		jsr	dealloc		; free this block.
		bcs	dsdirerr
		lda	gbuf+2
		ldx	gbuf+3
		jsr	rdblk
		bcc	dsdir2		; loop until all are freed.
dsdirerr	rts

drcpterr	lda	#cpterr		; file is not compatible.
		jsr	syserr		; give up.

fcbused					; mark as fcb as dirty so
* the directory	will be	flushed	on 'flush'
		pha
		tya
		pha			; save regs
		ldy	fcbptr
		lda	fcb+fcbdirty,y	; fetch	current	fcbdirty byte
		ora	#fcbmod		; mark fcb as dirty
		sta	fcb+fcbdirty,y	; save it back
		pla
		tay			; and restore regs
		pla
		rts


* "detree" deallocates blocks from tree	files. 

* it is	assumed	that the device	preselected and	the 'gbuf' may be used.

* on entry the following values	must be	set: 
*   stortype = storage type in upper nibble, lower nibble is undisturbed.
*   firstbl & firstbh =	first block of file (index or data)
*   deblock = 0	(see below)
*   dtree = ptr	to 1st block with stuff	to be deallocated at tree level.
*   dsap = ptr to 1st block at sapling level
*   dseed = byte (0-511) position to be	zeroed from (inclusive).

* on exit:
*   stortype = modified	result of storage type (if applicable)
*   firstbl & h	= modified if storage type changed.
*   deblock = total number of blocks freed at all levels.
*   dtree, dsap, dseed unchanged.

* to trim a tree to a seed file, both dtree and	dsap must be zero.
* to go	from tree to sapling, dtree alone must be zero.


detree		lda	stortype	; which	flavor of tree?
		cmp	#$20		; is it	a 'seed' (<=$1f)
		bcc	seedeal		; branch if yes.
		cmp	#$30		; maybe	a 'sapling'?
		bcc	sapdeal
		cmp	#$40		; well,	at least be certain it's a 'tree'.
		bcc	tredeal		; branch if it is.
* ----------------- see	rev note 22 ----------------------------
		lda	#alcerr		; block	allocation error
* --------------------------------------------------------------
		jsr	sysdeath	; should never have been called.

;------------------------------------------------------------------------------------
; FIX - 06/10/91 - Greg Branche
;
; If we try to deallocate blocks of a seedling or sapling file
; that do not exist (because the file is a sparse file), previous
; versions of P8 would trash data in the last allocated block of
; the file.  We fix this by limit checking the last desireable 
; block of the file.

; seedling file type - make sure first desireable block is the
; only block available in a seedling file
seedeal		lda	dsap
		ora	dtree
		bne	dsapdone	; block # != 0, punt
		jmp	seedel0		; else go truncate the block

; sapling file type - make sure first desireable block is within
; the range of blocks available in a sapling file
sapdeal		lda	dtree		; can't have any blocks in this range
		bne	dsapdone	; punt!
		jmp	sapdel0		; else go do it

;------------------------------------------------------------------------------------

tredeal		lda	#$80
		sta	topdest		; for tree top,	start at end, work backwards.
tredel1		jsr	drdfrst		; read specified first block into gbuf.
		bcs	bummerr		; return all errors.
		ldy	topdest		; get current pointer to top indexes.
		cpy	dtree		; have enough sapling indexes been deallocated?
		beq	tredel7		; yes, now deallocate sapling blocks
		ldx	#7		; buffer up to 8 sapling index block addrs.
tredel2		lda	gbuf,y		; fetch	low block address
		sta	dealbufl,x	; and save it.
		ora	gbuf+$100,y	; is it	a real block that is allocated?
		beq	tredel3		; branch if phantom block.
		lda	gbuf+$100,y	; fetch	hi block addr.
		sta	dealbufh,x	; and save it.
		dex			; decrement and	test for dealc buf filled.
		bmi	tredel5		; branch if we've fetched 8 addresses.


tredel3		dey			; look now for end of deallocation limit.
		cpy	dtree		; is this the last position on tree level?
		bne	tredel2		; branch if not.
		iny
		lda	#0		; fill rest of dealc buffer with nul addresses.
tredel4		sta	dealbufl,x
		sta	dealbufh,x
		dex
		bpl	tredel4		; loop until filled.

tredel5		dey			; decrement to prepare for next	time.
		sty	topdest		; save index.
		ldx	#7
tredel6		stx	dtmpx		; save index to	dealc buf.
		lda	dealbufl,x
		sta	bloknml
		ora	dealbufh,x	; are we finished?
		beq	tredel1		; branch if done with this level.
		lda	dealbufh,x	; complete address with	hi byte,
		sta	bloknmh
		jsr	rdgbuf		; read sapling level into gbuf.
		bcs	bummerr		; return any errors.
		jsr	dealblk		; go free all data indexes in this block.
		bcs	bummerr


**************** see rev note #73 ******************
		jsr	wrtgbuf		;write out the flipped index block
		bcs	bummerr


		ldx	dtmpx		; restore index	to dealc buff.
		dex			; are there more to free?
		bpl	tredel6		; branch if there are.
		bmi	tredel1		; branch always	to get up to 8 more sapling block nums

dtredone
dsapdone				;clc	; indicate no errors.
bummerr		rts			; return point for errors.

tredel7		ldy	dtree		; now deallocate all saplingÉ
		iny			;Éblocks greater than specified	block.
		jsr	dalblk1		; (master index	in gbuf)
		bcs	bummerr		; report any errors.
		jsr	wrtgbuf		; write	updated	master index back to disk.
		bcs	bummerr
		ldy	dtree		; now figure out if tree can become sapling
		beq	tredel8		; branch if it can!
		lda	gbuf,y		; otherwise, continue with partial
		sta	bloknml		; deallocation of last sapling index.
		ora	gbuf+$100,y	; is there such	a sapling index	block?
		beq	dtredone	; all done if not!
		lda	gbuf+$100,y	; read in sapling level	to be modified.
		sta	bloknmh
		jsr	rdgbuf		; read 'highest' sapling index into gbuf.
		bcc	sapdel1
		rts

tredel8		jsr	shrink		; shrink tree to sapling.
		bcs	bummerr

sapdel0		jsr	drdfrst		; read specified only sapling level index into gbuf.
		bcs	bummerr
sapdel1		ldy	dsap		; fetch	pointer	to last	of desirable indexes
		iny			; bump to the first undesirable.
		beq	sapdel2		; branch if all	are desirable.
		jsr	dalblk1		; deallocate all indexes above appointed.
		bcs	bummerr
		jsr	wrtgbuf		; write	out the	index block
		bcs	bummerr

sapdel2		ldy	dsap		; now prepare to cleanup last data block.
		beq	sapdel4		; branch if there is a possiblity of making it a seed.
sapdel3		lda	gbuf,y		; fetch	low order data block addr.
		sta	bloknml
		ora	gbuf+$100,y	; is it	a real block?
		beq	dsapdone	; we're done if not.
		lda	gbuf+$100,y
		sta	bloknmh
		jsr	rdgbuf		; go read data block into gbuf.
		bcc	seedel1		; branch if good read
		rts			; otherwise return error.

sapdel4		lda	dtree		; are both tree	and sap	levels zero?
		bne	sapdel3		; branch if not.
		jsr	shrink		; reduce this sap to a seed.
		bcs	bumerr1

* if no	error, drop into seedel0

seedel0		jsr	drdfrst		; go read only data block.
		bcs	bumerr1		; report any errors.
seedel1		ldy	dseed+1		; check	hi byte	for no deletion
		beq	seedel2		; branch if all	of second page is to be	deleted.
		dey			; if dseed > $200 then were all	done!
		bne	dseedone	; branch if that's the case.
		ldy	dseed		; clear	only bytes >= dseed.
seedel2		lda	#0
seedel3		sta	gbuf+$100,y	; zero out unwanted data.
		iny
		bne	seedel3
		ldy	dseed+1		; was that all?
		bne	seedel5		; branch if it was.
		ldy	dseed
seedel4		sta	gbuf,y
		iny
		bne	seedel4
seedel5		jmp	wrtgbuf		; update data block to disk.

dseedone				;clc	; indicate no error.
bumerr1		rts			; return error status.

drdfrst		lda	firstbl		; read specified first block into gbuf.
		ldx	firstbh
		jmp	rdblk		; go do	it!

************************************************
* beware that dealloc may bring	in a new bitmap	block and
* may destroy locations	46 and 47 which	use to point
* to the current index block.
************************************************

shrink		ldx	firstbh		; first	deallocate top index block.
		txa
		pha
		lda	firstbl
		pha			; save block address of	this index block
		jsr	dealloc		; free it from the bitmap
		pla
		sta	bloknml		; set master of	sapling	index block address
		pla
		sta	bloknmh
		bcs	bumerr2		; report any errors.
		lda	gbuf		; get number of	new first block	from old index
		sta	firstbl
		lda	gbuf+$100
		sta	firstbh

		ldy	#$0
		jsr	swapme		; flip that one	entry in old top index

		sec			; now change file type,	from
		lda	stortype	; tree to sapling,
		sbc	#$10		; or from sapling to seed!
		sta	stortype

		jsr	wrtgbuf		; write	out the	(deallocated) old top index

bumerr2		rts			; return error status.


dealblk		ldy	#0		; begin	at the beginning.
dalblk1		lda	bloknml		; save disk address of
		pha			; gbuf's data.
		lda	bloknmh
		pha
dalblk1a	sty	saptr		; save current index.
		lda	gbuf,y		; get address (low) of block to	be deallocated.

					;----- crunched	for v1.8 (Monte	Benaresh, Jan '89) --|
					;						     |
		cmp	#1		; test for nul block into carry			     |
		ldx	gbuf+$100,y	; get the rest of the block address.		     |
		bne	dalblk2		; branch if not	nul.				     |
		bcc	dalblk3		; was the low part null	as well?		     |
					;----------------------------------------------------|
dalblk2
		jsr	dealloc		; free it up on	volume bit map.
		bcs	dalblkerr	; return any error.
		ldy	saptr		; get index to sapling level index block again.

		jsr	swapme

dalblk3		iny			; point	at next	block address.
		bne	dalblk1a	; branch if more to deallocate (or test).
		clc			; indicate no error.
dalblkerr	tax			; save error code, if any. 
		pla			; restore bloknml&h 
		sta	bloknmh
		pla
		sta	bloknml
		txa			; restore return code.
		rts


swapme		lda	delflag		; are we swapping or 0ing ?
		bne	swapme1		; skip if swapping
		tax			; make x a 0

****************** see rev note	75 ********************

		beq	swapme2		; 0 the	index  (always taken)

swapme1		ldx	gbuf+$100,y	; get index, hi
		lda	gbuf,y		; get index, lo

swapme2		sta	gbuf+$100,y	; save index, hi
		txa
		sta	gbuf,y		; save index, lo
		rts			; we done

alcbuffr	ldy	#c_bufptr+1	; index	to user	specified buffer
alcbufr1	lda	(par),y		; this buffer must be on a page	boundary. 
		tax			; save in x for	validation
		cmp	#$8
		bcc	obadbuf		; cannot be lower than video!
		cmp	#$bc		; nor greater than $bb00
		bcs	obadbuf		; since	it would wipe out globals...
		sta	datptr+1
		dey
		lda	(par),y		; low addr should be zero!
		sta	datptr
		bne	obadbuf		; branch if it isn't
		inx			; add 4	pages for 1k buffer 
		inx
		inx
		inx
alcbufr2	dex			; test for conflicts
		jsr	cmembit		; test for free	buffer space
		and	memtabl,y	; report memory	conflict.
		bne	obadbuf		; if any...
		cpx	datptr+1	; test all four	pages. 
		bne	alcbufr2
		inx			; add 4	pages again for	allocation. 
		inx
		inx
		inx
alcbufr3	dex			; set proper bits to 1 
		jsr	cmembit
		ora	memtabl,y	; to mark it's allocation. 
		sta	memtabl,y
		cpx	datptr+1	; set all four pages. 
		bne	alcbufr3
		ldy	fcbptr		; now calculate	buffer number.
		lda	fcb+fcbrefn,y
		asl	a		; buffer number=(entnum)*2
		sta	|fcb+fcbfbuf,y	; save it in fcb.
		tax			; use entnum*2 as index	to global buffer addr tables.
		lda	datptr+1	; get addr already validated as	good.
		sta	gl_buff-1,x	; store	hi addr	(entnums start at 1, not zero)
		clc
		rts			; all done allocating buffers.

obadbuf		lda	#badbuf		; tell user buffer is in use or	not legal otherwise.
		sec			; indicate error.
		rts

getbufadr
		tax			; index	into global buffer table.
		lda	gl_buff-2,x	; low buffer addr
		sta	bufaddrl
		lda	gl_buff-1,x	; and high addr.
		sta	bufaddrh
		rts

relbuffr	jsr	getbufadr	; preserve buf adr in 'bufaddr' 
		tay			; returns high buffer addr in acc.
		beq	relbuf1		; branch if unallocated	buffer space. 
		stz	gl_buff-1,x	; take address out of buffer list.
		stz	gl_buff-2,x	; (x was set up	by getbufadr) 
freebuf		ldx	bufaddrh	; get hi addr of buffer	again. 
		inx			; add 4	pages to account for 1k	space 
		inx
		inx
		inx
frebuf1		dex			; drop to next lower page.
		jsr	cmembit		; get bit and posn to memtabl of this page
		eor	#$ff		; invert mask.
		and	memtabl,y	; mark addr as free space now.
		sta	memtabl,y
		cpx	bufaddrh	; all pages freed yet?
		bne	frebuf1		; branch if not.
relbuf1		clc			; indicate no error. 
		rts

* calculate memory allocation bit position
*  entry: x=hi addr of buffer, low addr	assumed	zero.

*  exit: acc=allocation	bit mask, x=unchanged, y=pointer to memtabl byte.

cmembit		txa			; move page address to acc. 
		and	#7		; which	page in	any 2k set? 
		tay			; use as index to determine 
		lda	whichbit,y	; bit position representation. 
		pha			; save bit position mask for now.
		txa			; get page address again. 
		lsr	a
		lsr	a		; now determine	2k set. 
		lsr	a
		tay			; return it in y. 
		pla			; restore bit mask. 
		rts			; return bit position in a&y, pointer to memtabl in x.

valdbuf		lda	usrbuf+1	; get high addr	of user's buffer
		cmp	#2		; must be greater than page 2
		bcc	obadbuf		; report bad buffer.


		ldx	cbytes+1
		lda	cbytes		; get cbytes-1 value.
		sbc	#1		; (carry is set)
		bcs	vldbuf0
		dex
vldbuf0		clc
		adc	usrbuf		; calculate end	of request addr.
		txa			; do hi	addr.
		adc	usrbuf+1	; all we care about is final addr.
		tax			; must be less than $bf	(globals) 
		cpx	#$bf
		bcs	obadbuf
		inx			; loop thru all	 affected pages.
vldbuf1		dex			; check	next lower page.
		jsr	cmembit
		and	memtabl,y	; if zero then no conflict
		bne	obadbuf		; branch if conflict... 
		cpx	usrbuf+1	; was that the last (lowest) page? 
		bne	vldbuf1		; branch if not. 
		clc			; indicate all pages ok.
		rts			; all done here

		Eject
getbuf		ldy	#c_bufadr	; give user address of file buffer
		lda	bufaddrl	; referenced by	refnum.
		sta	(par),y
		iny
		lda	bufaddrh
		sta	(par),y		; no errors possible if	this routine is	called.
		clc
		rts

		Eject
setbuf		ldy	#c_bufadr+1
		jsr	alcbufr1	; allocate new buffer address over old one
		bcs	sbuferr		; report any conflicts immediately
		lda	bufaddrh
		sta	usrbuf+1
		lda	bufaddrl
		sta	usrbuf
		jsr	freebuf		; now free address space of old	buffer.
		ldy	#0
		ldx	#3
setbuf1		lda	(usrbuf),y	; move all four	pages of the buffer to new location.
		sta	(datptr),y
		iny
		bne	setbuf1
		inc	datptr+1
		inc	usrbuf+1
		dex
		bpl	setbuf1
		clc			; indicate all is well...
sbuferr		rts			; all done.


		Eject
****************************************************

*  this	is the routine that moves the 3	pages of dispatcher 1
*  from	$d100 of the alt 4k bank to its	execution address ($1000).
*  since it is in the mli and must swap	the $d000-$dfff	banks,
*  it must be resident at all times above $e000.

****************************************************

calldisp
a1l		equ	$3C
a1h		equ	a1l+1
a2l		equ	$3E
a2h		equ	a2l+1

		if	calldisp-procstart ³ $200 goto .cd_ok
		aerror	'P8 ERROR: calldisp below $E000'
.cd_ok

		lda	ramin2
		lda	ramin2		; bring	in the other $d000 space

		lda	#>dispadr	; destination address of user-code 
		sta	a2h
		lda	#<dispadr
		sta	a2l
		lda	#$d1		; dispatcher is	stored at $d100-$d3ff 
		sta	a1h
		stz	a1l
		ldy	#0		; y will be 0 now 
		ldx	#3		; 3 pages of code to move
mvpge		dey			; nifty	routine	to move	a page of code
		lda	(a1l),y		; move all 255 bytes on	the page 
		sta	(a2l),y
		tya
		bne	mvpge
		inc	a1h		; move pointers	to next	page 
		inc	a2h
		dex			; move all pages needed 
		bne	mvpge

		lda	ramin
		lda	ramin		; swap mli's $d000 space back in.
		stz	mliactv		; must zero out active flag
		stz	reset		; set up the reset vector
		lda	#>dispadr	; to dispatch entry 
		sta	reset+1
		eor	#$a5		; set up power up byte
		sta	reset+2
		jmp	dispadr

		Eject
****************************************************************************************************
*
* remap_sp - allows normally unseen SmartPort devices to be accessed by
* translating the ProDOS call into a SmartPort call
*
****************************************************************************************************
		Entry	remap_sp
remap_sp
		ldx	#3			;assume 3 parameters
		lda	$42			;cmd number
		sta	cmdNum
		bne	@not_status		;if status call, must supply our own buffer
		ldy	#<sp_status_list	;borrow a little memory for the status list buffer
		sty	$44			;fake up the ProDOS parameters
		ldy	#>sp_status_list
		sty	$45
		stz	$46			;make sure statcode is 0, for simple status call
@not_status
		cmp	#3			;is it Format?
		bne	@ov3			;no...
		ldx	#1			;Format only has 1 parameter
@ov3
		stx	StatParms		;set number of parms
		lda	$43			;Unit number
 		lsr	a			;turn into an index
		lsr	a
		lsr	a
		lsr	a
		tax
		lda	sp_unitnums-1,x		;get the SmartPort unit number
		sta	sp_unitnum		;store into SmartPort parm list
		lda	sp_vector_lo-1,x	;get low byte of SmartPort entry address
		sta	sp_vector
		lda	sp_vector_hi-1,x	;high byte too
		sta	sp_vector+1

		ldx	#4			;copy buffer pointer and block number
@loop
		lda	$44-1,x			;  from ProDOS parameters on zero page
		sta	sp_bufptr-1,x		;  to SmartPort parameter block
		dex
		bne	@loop
		
		jsr	0
		org	*-2
sp_vector	dc.w	0			;get's filled in by code above
cmdNum		dc.b	0
		dc.w	StatParms
		bcs	@done
		ldx	cmdNum			;status call?
		bne	@done			;no...
		ldx	sp_status_list+1	;else get the block count
		ldy	sp_status_list+2
		lda	sp_status_list		;get the returned status
		bit	#%00010000		;is there a disk there?
		bne	@got_disk		;yes, check for write protected
		lda	#$2F			;return Offline error
		bra	@error
@got_disk
		and	#%01000100		;mask all but writeAllowed and writeProtected bits
*** changed 26-Feb-92 DAL to leave carry clear in case of no error
;;;		cmp	#%01000000		;write allowed and not write protected?
		eor	#%01000000		;if write allowed & not-wp, exit with carry still clear!
*** end 26-Feb-92
		beq	@done			;yes, exit
@write_protected
		lda	#$2b			;else return write-protected error
@error
		sec
@done
		rts

;		Entry	sp_unitnums
;sp_unitnums	ds.b	15			;storage for translation of ProDOS Unit #
						;into SmartPort unit number

		Entry	sp_vector_lo
sp_vector_lo	ds.b	15			;storage for low byte of SmartPort entry

		Entry	sp_vector_hi
sp_vector_hi	ds.b	15			;storage for high byte of SmartPort entry

StatParms	dc.b	3			;number of parms (always 3 except format)
sp_unitnum	dc.b	0			;unit number
sp_bufptr	dc.w	0			;data buffer
sp_blknum	dc.a	0			;block number (3 bytes)


	if use_ram_drvr then	; not used.  The /RAM driver is totally separate from the MLI
* -------------------- see rev note 15 --------------------------
*  this	is the (goadr) for a ram based driver located in the 
*    aux language card.	 it must do housekeeping and then jsr
*    to	auxgo.	upon return, status must be restored before
*    leaving with an rts.  

*  since it is in the mli and must swap	the $d000-$dfff	banks,
*    it	must be	resident at all	times above $e000.

*********************************************************************
**								   **
**  restriction: in order to absolutely	tell a disk ][ with a	   **
**   device id of 0 from a ram based driver with a device id of	0, **
**   this driver must not, repeat not, begin on	a page boundary!   **
**								   **
*********************************************************************

ramdrvr
		if	ramdrvr-procstart ³ $200 goto .rdrvr_ok1
		aerror	'P8 ERROR: ramdrvr below $E000'
.rdrvr_ok1

		if	((ramdrvr-procstart) mod $100) <> 0 goto .rdrvr_ok2
		aerror	'P8 ERROR: ramdrvr starts on page boundry'
.rdrvr_ok2

		php			; save the processor status
		pla			; get status into acc
		pha
		clv			; clear	the overflow flag
		and	#$4		; check	for interrupts disabled	(flag on)
		beq	@int_enbld	; branch to sei	if not
		bit	ramdrtn		; set overflow flag on if int flag was on
@int_enbld	sei			; disable interrupts since we are going	to aux lc
		lda	ramin2
		lda	ramin2		; swap in other	$d000 space
		sec			; and set carry	as a process flag for
		ldx	#$5		; lc.  get ready to move 5 param bytes,
		jsr	$03d6		; and then go!

*  ok, we're back (i hope) with error code in acc and error stat
*  in carry.

		sta	serr		; save error code in serr
		lda	ramin
		lda	ramin		; restore first	$d000 bank
		plp			; restore processor status
		clc
		lda	serr		; in case call is direct & needs err code
		beq	ramdrtn
		sec			; set carry on an error	code not 0
ramdrtn		rts			; and return
	endif

	if 0 then	; not used, since AppleTalk intercepts $BF00 directly
*********** see	rev notes #20,#42 *****

*** dobus is the setup and caller for the atp driver.
*** since the driver resides in	bank 2,	this calling code must
*** reside at or above $e000.

dobus
		if	dobus-procstart	³ $200 goto .db_ok
		aerror	'P8 ERROR: dobus below $E000'
.db_ok

		sta	ramin2		; this should be all that is needed for	b2 r/w.
		jsr	network		; call the atp driver.
		sta	ramin		; swap back bank 1 preserving status.
		rts			; errors will be returned by driver.
***************************************
	endif


* ---- added call $41 &	its count - see	rev note 20 --------

		Eject
scnums
		DC.B	$d3,0,0,0	; (zeros are reserved for bfm)
		DC.B	$40,$41,$00,0	; (zero	is reserved for	interrupt calls)
		DC.B	$80,$81,$82,$65
		DC.B	$c0,$c1,$c2,$c3
		DC.B	$c4,$c5,$c6,$c7
		DC.B	$c8,$c9,$ca,$cb
		DC.B	$cc,$cd,$ce,$cf
		DC.B	$00,$d0,$d1,$d2	; zero is non-existent. 

pcntbl					; parameter counts for the calls 
		DC.B	2,$ff,$ff,$ff
		DC.B	2,1,$ff,$ff
		DC.B	3,3,0,4
		DC.B	7,1,2,7
		DC.B	$a,2,1,1
		DC.B	3,3,4,4
		DC.B	1,1,2,2
		DC.B	$ff,2,2,2




**********************************

cmdtable
		DC.W	create
		DC.W	destroy
		DC.W	rename
		DC.W	setinfo
		DC.W	getinfo
		DC.W	online
		DC.W	setprefx
		DC.W	getprefx
		DC.W	open
		DC.W	newline
		DC.W	read
		DC.W	write
		DC.W	close
		DC.W	flush
		DC.W	setmark
		DC.W	getmark
		DC.W	seteof
		DC.W	geteof
		DC.W	setbuf
		DC.W	getbuf

disptch
		DC.B	$a0		; create
		DC.B	$a1		; destroy
		DC.B	$a2		; rename
		DC.B	$a3		; setinfo
		DC.B	$84		; getinfo
		DC.B	5		; volume
		DC.B	6		; setprefix, pathname moved to prefix buffer
		DC.B	7		; getprefix
		DC.B	$88		; open
		DC.B	$49		; newline
		DC.B	$4A		; read
		DC.B	$4b		; write
		DC.B	$2c		; close
		DC.B	$2d		; flush, refnum	may be zero to flush all.
		DC.B	$4e		; setmark
		DC.B	$4f		; getmark
		DC.B	$50		; set eof
		DC.B	$51		; get eof
		DC.B	$52		; set buffer address (move)
		DC.B	$53		; get buffer address 


dinctbl		DC.B	1,0,0,2,0	; table	to increment directory usage/eof counts.


pass		DC.B	$75

	if 0 then
sostmpl		DC.B	0
sostmph		DC.B	0
	endif

xdosver		DC.B	$0,0,$c3,$27,$d,0,0,0
compat		equ	xdosver+1

rootstuf	DC.B	$f,2,0,4
		DC.B	0,0,8,0


whichbit	DC.B	$80,$40,$20,$10
		DC.B	8,4,2,1


* the following	table is used in the 'open5' loop (posn/open). 

ofcbtbl		DC.B	fcbfrst,fcbfrst+1,fcbuse,fcbuse+1
		DC.B	fcbeof,fcbeof+1,fcbeof+2

* the following	with $80+ are ignored by setinfo

inftabl		DC.B	d_attr-dfil,d_filid-dfil,d_auxid-dfil,d_auxid+1-dfil
		DC.B	$80+d_stor-dfil,$80+d_usage-dfil,$80+d_usage+1-dfil,d_moddt-dfil
		DC.B	d_moddt+1-dfil,d_modtm-dfil,d_modtm+1-dfil,d_credt-dfil
		DC.B	d_credt+1-dfil,d_cretm-dfil,d_cretm+1-dfil

		msb	on

********************* see rev note #36 *********************

death		dc.b	$20		;inverse space
		DC.B	'RESTART SYSTEM-$01'
		dc.b	$20

************************************************************
		msb	off
***********************************************************

ProcTable

own_blok	DC.W	0000
own_ent		DC.B	0
own_len		DC.B	0
h_credt		DC.W	0000		; directory creation date
		DC.W	0000		; directory creation time
		DC.B	0		; version under	which this directory was created
		DC.B	0		; earliest version that	it's compatible with
h_attr		DC.B	0		; attributes (protect bit, etc.)
h_entln		DC.B	0		; length of each entry in this directory.
h_maxent	DC.B	0		; maximum number of entries per	block
h_fcnt		DC.W	0000		; current number of files in this directory
h_bmap		DC.W	0000		; address of first allocation bit map
h_tblk		DC.W	0000		; total	number of blocks on this unit
d_dev		DC.B	0		; device number	of this	directory entry
d_head		DC.W	0000		; address of <sub> directory header
d_entblk	DC.W	0000		; address of block which contains this entry
d_entnum	DC.B	0		; entry	number within block.

dfil
d_stor		Ds.B	1
		Ds.b	15		; file name
d_filid		Ds.B	1		; user's identification byte
d_frst		Ds.W	1		; first	block of file
d_usage		Ds.W	1		; number of blocks currently allocated to this file
d_eof		Ds.B	3		; current end of file marker
d_credt		Ds.W	1		; date of file's creation
d_cretm		Ds.W	1		; time of file's creation
d_sosver	Ds.B	1		; sos version that created this	file
d_comp		Ds.B	1		; backward version compatabilty
d_attr		Ds.B	1		; 'protect', read/write	'enable' etc.
d_auxid		Ds.W	1		; user auxillary identifacation
d_moddt		Ds.W	1		; file's last modification date
d_modtm		Ds.W	1		; file's last modification time
d_dhdr		Ds.W	1		; header block address of file's directory

scrtch		dc.b	0,0,0,0		; scratch area for allocation address conversion
oldeof		DC.B	0,0,0		; temp used in w/r
oldmark		DC.B	0,0,0		; used by 'rdposn' and 'write'
xvcbptr		DC.B	0		; used in 'cmpvcb' as a	temp. 
vcbptr		DC.B	0
fcbptr		DC.B	0
fcbflg		DC.B	0

reql		DC.B	0
reqh		DC.B	0
levels		DC.B	0
totent		DC.B	0
entcntl		DC.B	0
entcnth		DC.B	0
cntent		DC.B	0
nofree		DC.B	0
bmcnt		DC.B	0
saptr		DC.B	0
pathcnt		DC.B	0
p_dev		DC.B	0
p_blok		DC.W	0000
bmptr		DC.B	0
basval		DC.B	0
half		DC.B	0

ProcTable_end

* bit map info tables (a & b)

bmastat		DC.B	0
bmadev		DC.B	0
bmadadr		DC.W	0000
bmacmap		DC.B	0		; similar to vcbcmap 

tposll		DC.B	0
tposlh		DC.B	0
tposhi		DC.B	0
rwreql		DC.B	0
rwreqh		DC.B	0
nlchar		DC.B	0
nlmask		DC.B	0
ioaccess	DC.B	0		; has a	call been made to disk device handler? 
bulkcnt		; DC.B	0		; share with cmdtemp
cmdtemp		DC.B	0		; test refnum, time, and dskswtch for (pre)processing.

bkbitflg	DC.B	0		; used for drevise to set or clear back	up bit.
duplflag	DC.B	0		; difference between vnferr and	dupvol by synpath 
vcbentry	DC.B	0		; pointer to current vcb entry


* xdos temporaries added....

	if 0 then
command		DC.B	0
	endif
namcnt		DC.B	0
rnptr		DC.B	0
pnptr
namptr		DC.B	0
vnptr		DC.B	0
prfxflg		DC.B	0
cferr		DC.B	0


* the following	are used for deallocation temps.

firstbl		DC.B	0
firstbh		DC.B	0
stortype	DC.B	0
deblock		DC.W	0000
dtree		DC.B	0
dsap		DC.B	0
dseed		DC.W	0000
topdest		DC.B	0
dtmpx		DC.B	0
dealbufl	ds.b	8
dealbufh	ds.b	8


loklst		equ	dealbufl

cbytes		DC.W	0000
		DC.B	$00		; cbytes+2 must	always be zero!!! see "calcmark"

bufaddrl	DC.b	0
bufaddrh	DC.B	0		; buffer allocation, getbuffr, and release buffer temps.

goadr		DC.W	0000


delflag		dc.b	0		; used by detree to know if called from	delete

		if	($fefd-Proc3_Org)<=(*-procstart) then
		aerror	'Not enough room for CortFlag'
		else
		ds.b	($fefd-Proc3_Org)-(*-procstart) ;align to $fefd
					;note that procstart equals 0, but isÉ
					;Éconsidered RELATIVE by the assembler.
		endif

		dc.w	calldisp	;this is the vector used by GQuit -- January, 1989


*********************************************************
*
*  this	flag is	set in the loader indicating whether the
*  machine is a	cortland.
*
*
cortflag	DC.B	0		; 0=>non cortland / 1=>cortland
*
**************** see rev note #61 ***********************

		ENDP

		TITLE	' lang_ cd_ irq, nmi, & reset'
PROCFOUR	PROC	ORG Proc4_Org

		longi	off
		longa	off

		export	stypfx
		export	stapfx
		export	fix45

*	org $ff9b       

nmi		equ	$3fb
acc		equ	$45

lanirq
		pha
		lda	acc
		sta	old45
		pla
		sta	acc
		pla			; get status register from stack.
		pha			; (and restore it!)
		and	#$10		; is it	a break	or interupt
		bne	lbreak		; branch if break
		lda	$d000		; get bankid
		eor	#$d8		; is the system	active?
		beq	sysactv		; branch if it is.
		lda	#$ff
sysactv		sta	intbankid
		sta	afbank
		lda	#>aftirq
		pha			; set up return	address
		lda	#<aftirq
		pha
		lda	#4		; status reg w/int flag	set 
		pha
lbreak		lda	#>romirq	; push rom entry also 
		pha
		lda	#<romirq
		pha
gorom		sta	romin		; switch to rom	(hits rts immediately).

lreset		lda	rreset+1
		pha			; since	reset, acc can be destroyed.
		lda	rreset
		pha
		jmp	gorom

rreset		DC.W	$fa61
fix45		sta	intareg		; preserve the acc 
		lda	old45
		sta	acc
		lda	ramin
		lda	ramin		; switch ram in	for write & read
		lda	afbank
		jmp	irqxit0


xxx
stypfx		sty	newpfxptr	; fix AppleTalk	PFI bug
		sty	pfixptr
		rts
stapfx		sta	newpfxptr
		sta	pfixptr
		rts

		DC.W	nmi
		DC.W	lreset
		DC.W	lanirq

_end

		if	(_end-ProcFour+$FF9B)<>$10000 then
		writeln	'Invalid ProcFour code location!'
		writeln	'End should be $10000, is actually $',&i2s(_end-ProcFour+$FF9B,-1,1)
		aerror	''
		else
		Print	NoWarn		;inhibit the warning message
		endif
		END
		Print	Warn

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/P8/P8.Drivers/CClock.n b/IIGS.601.SRC/GS.OS/P8/P8.Drivers/CClock.n
new file mode 100644
index 0000000..316c2ce
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/P8/P8.Drivers/CClock.n
@@ -0,0 +1 @@
+
CCLOCK_P1	PROC org $00D742
procstart

;	This EdAsm/Asm816 source code file was converted to AsmIIGS
;	by EdAsmCVTIIGS version 1.0D3 on 1/24/89 at 9:8:46 AM

* Converted and reformatted by Monte Benaresh -- February 1989

		MACHINE M65816		; Must go here for 24 bit expressions.

***********************************************************
*
*       ProDOS 8 CORTLAND CLOCK DRIVER
*
*         COPYRIGHT APPLE COMPUTER, INC., 1986
*
*         ALL RIGHTS RESERVED
*
*       Written by Kerry Laidlaw, 2/12/86
*       Modified by Mike Askins, 9/6/86   
*       Modified by Fern Bachman, 9/7/86
*	Modified by Greg Branche, 6/12/91
*
***********************************************************
*
* This is the ProDOS8 Cortland built-in clock driver. 
* Its sole function in life is to fetch the time from the Cortland
* clock via the Read Hex Time misc. tool call, and transfer this
* time into the ProDOS global page time format.
*
* This routine will IGNORE any errors passed back to it from the
* Read Hex Time call.  This was done since existing ProDOS8 programs
* cannot deal with some new time error code.
* Thus the only way that a user can tell if his Cortland clock is
* broken, is by noticing that the date and time fields are zeroed.
*
* Note: There are some interesting facts to know regarding the 
* slot clock driver for ProDOS8 and the built-in
* Cortland clock.  The year value returned from the Cortland clock
* is an offset from the year 1900.  Thus Cortland is capable of 
* reporting the year correctly until 1900+255=2155.  Only 7 bits
* are used for the year in the ProDOS8 global page, so theoretically
* 1900+127=2027 is the last year that ProDOS could represent on a
* Cortland.  But this is only if the ProDOS8 year value is interpreted
* as being an offset from 1900.
*
* Historically, the year value has been interpreted as the binary 
* representation of the last two digits of the year 19xx.
* So this means that programs that display the year as a concatination
* of 19 and the ascii equivalent of the year value will work until 1999.
* And programs that just display the last two digits of the year will
* still work correctly until (20)27 if they convert the year value
* correctly, but ignore any hundredths place digit.
*
* Apple //e's that use slot clocks that utilize the slot clock
* driver have further restrictions of the year value.  The slot
* clock driver calculates the year given the position of the day
* of the week in the month.  This algorithm then uses a year look
* up table that has seven possible values.  Leap years are repeated
* in the table.  Since 1988 is a leap year, then the updated slot
* clock driver (file TCLOCK) will yield the six year offset values
* rather then seven.
* So before 1992, if ProDOS8 still exists, the slot clock driver
* routine must be updated again!
*
* So, we now have the following definition:
*    The value placed in the year field is defined as the
*    number of years past the year 1900.
*    Numerically speaking: Current Year = 1900 + year value.
*
*
* 12 Jun 91 - Greg Branche
* Well, it's time to alter the above definition a little, since we now
* have ProDOS Tech Note #28, which defines the year a little differently.
* In accordance with the tech note, this driver will now supply only a
* two digit year value, with a range of 0-99.  Any year value from 40 to
* 99 is interpreted to be in the 20th century (19xx).  Year values from
* 0-39 are interpreted to be in the 21st century (20xx).
*
STATEREG	EQU	$C068	 	;Cortland memory state register
CLOCK_BEGIN	EQU	$D742	 	; Entry address of Cortland clock driver.
MISC_TSN	EQU	3	 	; Misc. tool set number.
READ_TIME_HEX	EQU	$0D	 	; Read Time Hex function number.
DISPATCH	EQU	$E10000	 	; Tool Dispatcher entry address.
MINUTES		EQU	$BF92	 	; Minutes in ProDOS global page.
HOURS		EQU	$BF93
YEAR		EQU	$BF91
DAY		EQU	$BF90
*
*
************************* See Note #66,67 *************************
*
* This mod will force read/write main memory for the tool
* call by resetting the read/write auxillary memory bits
* in the state register (statereg).
*
		LONGA	OFF
		SEP	#$30		 ;Make sure we're in 8 bit mode
		LDA	STATEREG	 ;Get the state reg
		STA	SAVESTATE	 ;Keep for restore after tool call
		AND	#$CF		 ;Clear the Read/Write aux memory bits
		STA	STATEREG	 ;Make it real
*
***************************************************************
*
		LONGI ON
		LONGA ON
*
* First off, lets get into native mode with 16 bit m & x.
*
		CLC 			; Set e = 0, to set native mode.
		XCE
	
		REP	#$30		; Zero m & x for 16 bit mode.
		LDA	#0		; Zero out result space.
		PHA			; Push 4 words for hex time result...
		PHA
		PHA
		PHA
		LDX	#READ_TIME_HEX * $100 + MISC_TSN	 ; Read Time Hex.
		JSL	>DISPATCH	; Make the ReadTimeHex call...
*
* Note that no error condition is checked for, so the date will
* be zeroed by default if an error indeed happened.
*
*  Back to 8 bit m to access results on stack...
*
		LONGA	OFF
		SEP	#$20	 	; 8 bit m
*
************************* See Note #66 *************************
*
		LDA	SAVESTATE	;Restore the state register
		STA	STATEREG
*
***************************************************************
*
*
* Now let's pull the time off the stack and stick it in the global page.
*
		PLA			; Pull off Seconds, and ignore.
		PLA			; Pull off Minutes.
		STA	MINUTES		; Store in global page.
		PLA			; Pull off Hours.
		STA	HOURS		; Store in global page.
		PLA			; Pull off Year value.
@try_again
		cmp	#100		; out of range?
		bcc	@in_range	; no, go ahead and store
		sbc	#100		; else put it back in range
		bra	@try_again
@in_range
		STA	YEAR		; Store in global page.
		PLA			; Pull off Day.
		INC	A		; Increment day value for ProDOS8 format.
		STA	DAY		; Store in global page.
		PLA			; Pull off Month.
		INC	A		; Inc month value for ProDOS8 format.
		ASL	A		; Shift month as it sits in between
		ASL	A		; the year and day values.
		ASL	A
		ASL	A
		ASL	A
		ORA	DAY		; Put all but the top bit of month value
		STA	DAY		; in the day byte.
		ROL	YEAR		; Put hi bit of mo. in lo bit of yr byte.
		PLA			; Pull off unused byte.
		PLA			; Pull off Day of Week. Stack now clean.

		SEC			; Now go back to emulation mode
		XCE			; to continue with ProDOS8.
		RTS			; That's all.

SAVESTATE	DC.B	0		;Keep the state of state register
		DC.B	'JIMJAYKERRY&MIKE'
CLOCK_END
		DS.B	(125) - (* - procstart)	; Zero rest of 125 bytes.
SIZE		EQU	*-CLOCK_BEGIN	; MUST be $7D (125) bytes in length!
	if (*-procstart)<>125 then
	aerror	'CCLock code overflow'
	endif
		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/P8/P8.Drivers/E16.8Bit b/IIGS.601.SRC/GS.OS/P8/P8.Drivers/E16.8Bit
new file mode 100644
index 0000000..dc1441a
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/P8/P8.Drivers/E16.8Bit
@@ -0,0 +1 @@
+;
; E16.8Bit - Equates useful when building 8-bit applications
;

****************************************************************************************************
* Zero Page

WNDLFT		equ		$20					;left edge of text window
WNDWDTH		equ		$21					;width of text window
WNDTOP		equ		$22					;top of text window
WNDBTM		equ		$23					;bottom of text window
CH			equ		$24					;cursor horizontal
CV			equ		$25					;cursor vertical
GBASL		equ		$26					;lo-res graphics base address
GBASH		equ		$27
BASL		equ		$28					;text base address
BASH		equ		$29
BAS2L		equ		$2A					;temp base for scrolling
BAS2H		equ		$2B
H2			equ		$2C					;temp for lo-res graphics
LMNEM		equ		$2C					;temp for mnemonic decoding
V2			equ		$2D					;temp for lo-res graphics
RMNEM		equ		$2D					;temp for mnemonic decoding
MASK		equ		$2E					;color mask for lo-res graphics
CHKSUM		equ		$2E					;temp for opcode decode
FORMAT		equ		$2E					;temp for opcode decode
LENGTH		equ		$2F					;temp for opcode decode
LASTIN		equ		$2F					;temp for tape read csum
COLOR		equ		$30					;color for lo-res graphics
MODE		equ		$31					;monitor mode
INVFLG		equ		$32					;normal/inverse(/flash)
PROMPT		equ		$33					;prompt character
YSAV		equ		$34					;position in Monitor command
YSAV1		equ		$35					;temp for Y register
CSWL		equ		$36					;character output hook
CSWH		equ		$37
KSWL		equ		$38					;character input hook
KSWH		equ		$39
PCL			equ		$3A					;temp for program counter
PCH			equ		$3B
A1L			equ		$3C					;A1-A5 are monitor temps
A1H			equ		$3D
A2L			equ		$3E
A2H			equ		$3F
A3L			equ		$40
A3H			equ		$41
A4L			equ		$42
A4H			equ		$43
A5L			equ		$44
A5H			equ		$45
MACSTAT		equ		$44					;machine state for break
ACC			equ		$45					;Acc after break (destroys A5H)
XREG		equ		$46					;X reg after break
YREG		equ		$47					;Y reg after break
STATUS		equ		$48					;P reg after break
SPNT		equ		$49					;SP after break
RNDL		equ		$4E					;random counter low
RNDH		equ		$4F					;ramdom counter high

****************************************************************************************************
* Vector Address's

ResetVector	equ		$03F2				; ctrl-reset vector
PwrByte		equ		$03F4				;power up byte

****************************************************************************************************
* Input	/ Output and Monitor

OurCH		equ		$57B
Key			equ		$C000
Store80		equ		$C001				;80	columns	on
Col40		equ		$C00C				;set 40	column mode
AltChar		equ		$C00E				;write here	to set Primary
;										 Char Set
Strobe		equ		$C010				;clear KEY I/O location
RomOvr		equ		$C082				;read ROM, enable BANK2
RamWrt		equ		$C083				;set up	for	Block 2	Upper Ram Write
Init80		equ		$C300				;set up	80 col card

PrntYX		equ		$F940				;print contents of Y and X
PrntAX		equ		$F941				;print contents of Acc and X
PrntX		equ		$F944				;print contents of X
PrBlnk		equ		$F948				;print 3 spaces
PrBl2		equ		$F94a				;print (X) spaces
Reset		equ		$FA62				;reset handler
PRead		equ		$FB1E				;read hand controller
Init		equ		$FB2F				;set up	full page
SetTxt		equ		$FB39				;set text mode
SetGR		equ		$FB40				;set graphics mode
SetWnd		equ		$FB4B				;set text window size
SetWnd2		equ		$BF51				;set text window width and bottom
TabV		equ		$FB5B				;set vert pos from A reg
SetPwrC		equ		$FB6F				;set RESET compliment byte
BasCalc		equ		$FBC1				;calculate screen base address
Bell1		equ		$FBDD				;beep speaker
Home		equ		$FC58
RdKey		equ		$FD0C				;wait for key, flash cursor
CROut		equ		$FD8E				;output	<CR> to	screen
COut		equ		$FDED				;output	char to	text window
COut1		equ		$FDF0				;output	char to	text window
SetInv		equ		$FE80				;set inverse video
SetNorm		equ		$FE84				;normal	video
SetKbd		equ		$FE89				;connect keyboard I/O
SetVid		equ		$FE93				;connect video I/O

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/P8/P8.Drivers/E16.P8 b/IIGS.601.SRC/GS.OS/P8/P8.Drivers/E16.P8
new file mode 100644
index 0000000..87731b8
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/P8/P8.Drivers/E16.P8
@@ -0,0 +1 @@
+;
; E16.P8 - ProDOS 8 eqates
;

* MLI Global Page

MLI			equ		$BF00				;MLI entry vector
DevAdr01	equ		$BF10				;device driver addresses
DevNum		equ		$BF30				;last slot / drive
DevCnt		equ		$BF31				;count - 1
DevLst		equ		$BF32				;active	device list
MemTabl		equ		$BF58				;start of table
BitMap2		equ		$BF6F				;start of table
DateLo		equ		$BF90				;bits 15-9=Yr, 8-5=Mo, 4-0=Day
TimeLo		equ		$BF92				;bits 12-8=hr, 5-0=min, low-hi format
Level		equ		$BF94				;file level
BUBit		equ		$BF95				;backup bit
MachID		equ		$BF98				;machine identification
SltByt		equ		$BF99				;1 bit indicates active ROM in slot
PFixPtr		equ		$BF9A				;if 0, no prefix active
MLIActv		equ		$BF9B				;if <> 0, MLI call in progress
CmdAdr		equ		$BF9C				;return address of last call to MLI
SaveX		equ		$BF9E				;X-Reg on entry to MLI
SaveY		equ		$BF9F				;Y-Reg on entry to MLI
IBakVer		equ		$BFFC
IVersion	equ		$BFFD				;version # of currently running interpreter
KBakVer		equ		$BFFE
KVersion	equ		$BFFF				;version # of MLI

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/P8/P8.Drivers/M16.P8 b/IIGS.601.SRC/GS.OS/P8/P8.Drivers/M16.P8
new file mode 100644
index 0000000..d15fde5
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/P8/P8.Drivers/M16.P8
@@ -0,0 +1 @@
+; File:  M16.P8
;
; AsmIIGS Macros used to access ProDOS 8 calls
;
;
; Copyright Apple Computer, Inc. 1986-90
; All Rights Reserved
;
;

			Macro
			_CREATE &params
			jsr		$BF00
			dc.b	$C0
			dc.w	&params
			MEnd

			Macro
			_DESTROY &params
			jsr		$BF00
			dc.b	$C1
			dc.w	&params
			MEnd

			Macro
			_RENAME &params
			jsr		$BF00
			dc.b	$C2
			dc.w	&params
			MEnd

			Macro
			_SET_FILE_INFO &params
			jsr		$BF00
			dc.b	$C3
			dc.w	&params
			MEnd

			Macro
			_GET_FILE_INFO &params
			jsr		$BF00
			dc.b	$C4
			dc.w	&params
			MEnd

			Macro
			_ON_LINE &params
			jsr		$BF00
			dc.b	$C5
			dc.w	&params
			MEnd

			Macro
			_SET_PREFIX &params
			jsr		$BF00
			dc.b	$C6
			dc.w	&params
			MEnd

			Macro
			_GET_PREFIX &params
			jsr		$BF00
			dc.b	$C7
			dc.w	&params
			MEnd

			Macro
			_OPEN	&params
			jsr		$BF00
			dc.b	$C8
			dc.w	&params
			MEnd

			Macro
			_NEWLINE &params
			jsr		$BF00
			dc.b	$C9
			dc.w	&params
			MEnd

			Macro
			_READ	&params
			jsr		$BF00
			dc.b	$CA
			dc.w	&params
			MEnd

			Macro
			_WRITE	&params
			jsr		$BF00
			dc.b	$CB
			dc.w	&params
			MEnd

			Macro
			_CLOSE	&params
			jsr		$BF00
			dc.b	$CC
			dc.w	&params
			MEnd

			Macro
			_FLUSH	&params
			jsr		$BF00
			dc.b	$CD
			dc.w	&params
			MEnd

			Macro
			_SET_MARK &params
			jsr		$BF00
			dc.b	$CE
			dc.w	&params
			MEnd

			Macro
			_GET_MARK &params
			jsr		$BF00
			dc.b	$CF
			dc.w	&params
			MEnd

			Macro
			_SET_EOF &params
			jsr		$BF00
			dc.b	$D0
			dc.w	&params
			MEnd

			Macro
			_GET_EOF &params
			jsr		$BF00
			dc.b	$D1
			dc.w	&params
			MEnd

			Macro
			_SET_BUF &params
			jsr		$BF00
			dc.b	$D2
			dc.w	&params
			MEnd

			Macro
			_GET_BUF &params
			jsr		$BF00
			dc.b	$D3
			dc.w	&params
			MEnd

			Macro
			_ALLOC_INTERRUPT &params
			jsr		$BF00
			dc.b	$40
			dc.w	&params
			MEnd

			Macro
			_DEALLOC_INTERRUPT &params
			jsr		$BF00
			dc.b	$41
			dc.w	&params
			MEnd

			Macro
			_READ_BLOCK &params
			jsr		$BF00
			dc.b	$80
			dc.w	&params
			MEnd

			Macro
			_WRITE_BLOCK &params
			jsr		$BF00
			dc.b	$81
			dc.w	&params
			MEnd

			Macro
			_GET_TIME
			jsr		$BF00
			dc.b	$82
			dc.w	$0000	; no parameter list needed for this call
			MEnd

			Macro
			_QUIT	&params
			jsr		$BF00
			dc.b	$65
			dc.w	&params
			MEnd

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/P8/P8.Drivers/QuitCode.aii b/IIGS.601.SRC/GS.OS/P8/P8.Drivers/QuitCode.aii
new file mode 100644
index 0000000..de7fdf3
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/P8/P8.Drivers/QuitCode.aii
@@ -0,0 +1 @@
+***********************************************************
*
*				   Bird's Better Bye
*
*				   80 Column Version
*
*					Begun 8	Jun	87
*
*			   Added Pop: April	23,	1988
*
* Revision History:
*
* 05/29/90	GAB	Modified for use as official ProDOS Quit code
*				Changed P8 calls to macros
*				Converted to 'C02 code, but this is currently
*					not used.  If the code becomes too long,
*					the C02 code can be used to shrink it again.
*				Changed signaling of directories in display 
*					from a '/' to a Mousetext folder
*				File list now scrolls up and down
*
* 07/29/91	GAB	Turned on 'C02 code.
*				Fixed so that if a subdirectory cannot be
*				  opened, the code will no longer move on to
*				  the next volume.
*				Fixed handling of errors within the directory
*				  read loop so that the file is actually
*				  closed prior to continuing.
*
***********************************************************

			Machine	M65C02
			Print	Push
			Print	off

			Include 'M16.P8'		;P8 MLI macros
			Include	'E16.8Bit'		;8-bit memory location equates
			Include 'E16.P8'		;P8 equates

			Print	Pop
			PRINT	NOSYM

* Buffer Addresses

Buff0		equ		$0280
Buff1		equ		$0281
NameBuff	equ		$1400
Op_Buff		equ		$1C00
Rd_Buff		equ		$2000
MaxFiles	equ		(Op_Buff-NameBuff)>>4

StSys		equ		$2000
TypeLen		equ		$2000				;type and length info for file
FilType		equ		$2010
Access		equ		$201E
DirInfo		equ		$2023

****************************************************************************************************
MyZeroPage	Record	0					;my own zero page usage
			org		$60

; NOTE:  SetMarkParms MUST reside before $80 on zero page to maintain
; compatibility with AppleShare

SetMarkParms DS.B	1					;SET_MARK (CE)
Mark_Rn		DS.B	1					;file reference	number
FPos_Lo		DS.B	1					;new file position
FPos_Mid	DS.B	1					;
FPos_HiI	DS.B	1					;	 last part of above

* Variables

LstPntr		ds.w	1					;device	list pointer
Valcnt		ds.b	1					;name counter
FileCount	ds.b	1					;# of displayable files in directory
NameLen		ds.b	1					;length of filename
Counter		ds.b	1					;general purpose counter
Level		ds.b	1					;directory level

* File Name	Storage	Pointers

StoLo		ds.b	1					;lo	byte
StoHi		ds.b	1					;hi	byte ($17)

* Directory	Variables

EntLen		ds.b	1					;ENTRY_LENGTH storage
EntBlk		ds.b	1					;ENTRYS_PER_BLOCK storage
CountLo		ds.b	1					;FILE_COUNT	(lo	byte)
CountHi		ds.b	1					;FILE_COUNT	(hi	byte)
BlkFlag		ds.b	1					;block flag	/ counter
			org		BlkFlag
BlkFil		ds.b	1					;Valid files read this block

* Scroll control variables

topName		ds.b	1					;index number of top name in display

* table used to store filetypes

FilStore	ds.b	MaxFiles			;table of filetypes

zpEnd

 if zpEnd>$ff then
 			aerror	'myZeroPage overflow!'
 endif
			EndR

****************************************************************************************************
Better_Bye	PROC	Export,TempOrg $1000
			With	myZeroPage

			cld							;clear to binary mode
;										 to conform to Apple specs
			lda		RomOvr				;make sure ROM is switched in
			stz		ResetVector			;set up	new RESET VECTOR
			lda		#$10				;we live at $1000
			sta		ResetVector+1
			jsr		SetPwrC				;and Power up byte

			lda		#$a0				;space character
			jsr		Init80				;initialize 80-column text card

* Set up BITMAP	in Global Page

			ldx		#$17
MapLoop		stz		MemTabl,x
			dex
			bpl		MapLoop

			inc		BitMap2				;protect Global	Page

			lda		#$cf				;protect zero page,	stack and page 1
			sta		MemTabl

			lda		#2					;init SetMarkParms pCount
			sta		SetMarkParms

* Drive	Selector

			ldx		DevCnt				;get device	count and
			stx		LstPntr				; and store	in zero	page

DS1			lda		DevNum				;get last slot / drive
			bne		VolName				;if	<> 0, then start here

DS2			ldx		LstPntr				;get device	list pointer
			lda		DevLst,x			;get UNIT_NUMBER from list
			cpx		#$01				;make sure it's real
			bcs		DS3					;if	so change list pointer
			ldx		DevCnt				;get device	count
			inx							;increment,	next step decrements
DS3			dex							;decrement list	pointer	and
			stx		LstPntr				;	restore

* Get and Store	Volume Name

VolName		sta		Ol_Unit				;store UNIT_NUMBER for ONLINE
			_ON_LINE OnLineParms		;make ONLINE call
			bcs		DS2					;error check
			stz		Level				;haven't read root directory yet
			lda		Buff1				;load description byte
			and		#$0f				;mask for name length
			beq		DS2					;if	0, then	try next unit
			adc		#$02				;add 2 to length
			tax							;put name length in	X reg

VNam1
			stx		Buff0				;save the name length
			lda		#$2f				;put '/' in	A reg
			sta		Buff1				;store in front	of and
			sta		Buff0,x				;  end of name
			stz		Buff1,x				;put NULL after	complete name

* Open and Read	Directory

RdDir		_Open	OpenParms
			bcc		@no_err				;good open
			lda		Level				;trying to open root directory?
			beq		DS2					;yes, just move to next volume
			jsr		Bell1				;beep 'em
			jsr		do_pop				;and stay at same level
			stx		Buff0
			jmp		KeyLoop
@no_err
			inc		Level
			stz		FileCount			;zero out FileCount
			lda		Open_Rn				;get file reference	number
			sta		Read_Rn				;store in READ and SET_MARK
			sta		Mark_Rn				;	parm lists
			lda		#$2b				;set READ parm list	for
			sta		Len_Lo				;  Directory Header	length
			stz		Len_Lo+1
			jsr		doRead
			bcs		Done				;error check

* Get Directory	Information
*
* After	reading	directory the following
* will be in these places:
*
*	ENTRY_LENGTH		   @ $2023
*	ENTRYS_PER_BLOCK	   @ $2024
*	FILE_COUNT (lo byte)   @ $2025
*	FILE_COUNT (hi byte)   @ $2026

			ldx		#$03				;get ENTRY_LENGTH,
DirLoop		lda		DirInfo,x			; and FILE_COUNT and store in zero
			sta		EntLen,x			; page
			dex
			bpl		DirLoop				;loop until	through
			sta		Len_Lo				;put ENTRY_LENGTH in READ parm list
			lda		#$01
			sta		BlkFil				;set block file	counter	to 1
			stz		FPos_Mid			;zero out MSB's of File Position in SET_MARK
			stz		FPos_HiI			;  parm	list
			lda		CountLo				;see if	there any files
			ora		CountHi				;  in Directory
			bne		ReadFil				;if	so,	continue

Done		bra		CloDir				;go	close Directory	File

* Check	next file in Directory

ReadFil		bit		CountHi				;check MSB of FILE_COUNT
			bmi		Done				;if	set	we're done

SetUp		lda		FPos_Mid			;get mid byte of SET_MARK file position
			and		#$fe				;reset LSB
			sta		FPos_Mid			;  and save
			ldy		BlkFil				;get block file	counter
			lda		#$00				;zero A	reg
			cpy		EntBlk				;have we read all entrys this block?
			bcc		SetLoop				;if	not	continue
			tay							;if	so,	zero Y reg and
			sty		BlkFil				; reset	block counter /	flag

			inc		FPos_Mid			;incr mid byte of file pos

* Set up SET_MARK parameters for next file to
* be read. If we transfer to second	sector,	handle it

SecHalf		inc		FPos_Mid			;incr mid byte of file pos

SetLoop		dey							;decrement file	 block counter
			clc
			bmi		SetMark
			adc		EntLen				;add entry length to A reg
			bcc		SetLoop				;determine if we flopped into
			bcs		SecHalf				;  second half of block,
;								  		 if so increment $12FE
SetMark		adc		#$04				;add 4 to A	reg
			sta		FPos_Lo				;put in	lo byte	of SET_MARK
			_SET_MARK SetMarkParms
			bcs		Done				;error handling

			jsr		doRead				;read directory file
			bcs		Done				;error handling

			inc		BlkFil				;increment files read count
			lda		TypeLen				;get file len/type
			and		#$f0				;mask off high nibble
			beq		SetUp				;deleted file, try next	one
			dec		CountLo				;decrement lo FILE_COUNT
			bne		ReadChk				;
			dec		CountHi				; and hi FILE_COUNT	if ness

ReadChk		ror		Access				;check ACCESS bit
			bcc		ReadFil				;if	no read, try next file
			lda		FilType				;get FILE_TYPE
			cmp		#$0f				;DIR file?
			beq		FilNamCk			;	then continue
			cmp		#$ff				;SYS file?
			bne		ReadFil				; no, read next	file
FilNamCk	ldx		FileCount			;get valid files read
			cpx		#MaxFiles			;if > size of filename buffer
			bcs		CloDir				; then close directory
			sta		FilStore,x			;store FILE_TYPE in	zero page
			jsr		NameCalc			;go	set	up storage area

* Move File	to storage area

			ldy		#$0f				;15	in Y reg
MovLoop		lda		TypeLen,y			;get byte of file name
			sta		(StoLo),y			;store in directed area
			dey							;decrement pointer
			bpl		MovLoop				;loop 'til name trasnsfered
			iny							;set Y = 0 again
			and		#$0f				;mask for lo nibble	(NAME_LEN)
			sta		(StoLo),y			;restore in	Name Buffer
			inc		FileCount			;increment valid file counter
			bne		ReadFil				;go	get	next file (branch always)

* Error	Handler

Error		jmp		DS2					;try next unit

* Close	Directory

CloDir		_Close	CloseParms				;CLOSE directory file
			bcs		Error

* Print	Page Header

			jsr		SetTxt				;use full screen for window
			jsr		Home				;clear screen
			lda		#23					;position cursor to bottom of screen
			jsr		TabV				;set vert pos
			ldy		#$00				;zero y	reg
			lda		#20					;horizontal position
			jsr		SetHorz				;print 'ESC...'	@ pos in A reg

* Print	Volume Name

			jsr		HomeCursor			;position cursor to upper left corner
			ldx		#$00				;zero X	reg
VNamLoop	lda		Buff1,x				;get char
			beq		@showFiles			;if	NULL then through
			jsr		OutPut				;output	char
			inx							;
			bne		VNamLoop			;continue loop

@showFiles
			stz		ValCnt				;init ValCnt
			stz		TopName				;init top filename index
			lda		FileCount			;get number	of valid files
			beq		KeyLoop				;if	no files, go elsewhere
			cmp		#21					;more than what will fit within window?
			bcc		@1					;no...
			lda		#20
@1
			sta		Counter				;store loop counter

			lda		#2					;set window dimensions
			sta		WndTop
			sta		WndLft
			lda		#22
			sta		WndWdth
			sta		WndBtm

HFileCnt
			jsr		NamePrnt			;output	file name to screen
			inc		ValCnt
			dec		Counter				;dec file counter
			bne		HFileCnt			;continue spittin' out names
			stz		ValCnt
			beq		InvName				;if	last file, it needs	to be INVERSE (branch always)

* Left or Up Arrow

UpArrow		jsr		NamePrnt			;print old NAME	in NORMAL
			ldx		ValCnt				;get old NAME number
			beq		InvName				;already at the top name!
			dec		ValCnt				;else fix index
			lda		CV					;get current cursor line
			cmp		#2					;at top line of window?
			bne		InvName				;no, move up normally
			dec		topName				;fix offset index
			lda		#$16				;else scroll window down a line
			bne		scroll				;branch always

* Right	or Down	Arrow

DwnArrow	jsr		NamePrnt			;print old NAME	in NORMAL
			ldx		ValCnt				;get old NAME number
			inx							;add one
			cpx		FileCount
			bcs		InvName				;already at last filename!
			stx		ValCnt				;else update index
			lda		CV					;get current cursor position
			cmp		#21					;already on bottom line of window?
			bne		InvName				;no, move cursor normally
			inc		topName				;update offset index
			lda		#$17				;else scroll window up a line
scroll
			jsr		Cout

InvName		jsr		SetInv				;INVERSE text

			jsr		NamePrnt			;output	last file name

* Keyboard Read	Routine

KeyLoop		lda		Key					;get Keyboard input
			bpl		KeyLoop				;loop til key pressed
			sta		strobe				;clear strobe
			jsr		SetNorm				;set NORMAL	video

* Keyboard Filter

			ldx		FileCount			;are there any files displayed?
			beq		skipArrows			;no, don't accept arrow keys or RETURN
			cmp		#$8d				;RTN? run selected file
			beq		RunIt
			cmp		#$8a				;DOWN?
			beq		DwnArrow			;	move down a	name
			cmp		#$8b				;UP?
			beq		UpArrow				;	yes, move up a name
skipArrows
			cmp		#$89				;TAB?
			beq		NewVol				;	new volume
			cmp		#$9B				;ESC?
			bne		KeyLoop				;	no, try again
;											else pop up a directory

* Pop a	directory level

Pop			jsr		do_pop
			dec		Level
			bra		SelDir2

do_pop
			ldx		Buff0
Pop2		dex
			lda		Buff0,X
			cmp		#$2F				;slash
			bne		Pop2
			cpx		#$01
			bne		@done
			ldx		Buff0
@done
			rts

NewVol		jmp		DS2					;set up	new	unit number

* RETURN on	Directory File

SelDir		inx	
SelDir2		jmp		VNam1				;get new Directory Info

* Run Selected File

RunIt		_SET_PREFIX	SetPfxParms
			bcs		NewVol				;error handler

			ldx		ValCnt				;get NAME number
			jsr		NameCalc			;set up	NAME storage area
			ldx		Buff0				;get prefix	length
New_Pref	iny							;set Y reg = 1
			lda		(StoLo),y			;get char of NAME
			inx
			sta		Buff0,x				;put in	proper buffer location
			cpy		NameLen				;check length of NAME
			bcc		New_Pref			;loop 'til all transfered
			stx		Buff0				;put prefix	length into	buffer
			ldy		ValCnt				;get file number
			lda		FilStore,y			;get FILE_TYPE
			bpl		SelDir				;if	DIR, go	else where

			jsr		SetTxt				;reset to full window
			jsr		Home				;makes for no flash

			lda		#$95				;Ctrl U	char
			jsr		COut				;	hope it	kills 80 columns --> works

			_Open	OpenParms
			bcs		NewVol

			lda		Open_Rn				;move ref num from OPEN	parm
			sta		Read_Rn				;  READ

 			lda		#$ff				;simply read the entire file
			sta		Len_Lo
			sta		Len_Lo+1
			jsr		doRead				;READ selected file

			php							;temp push of status

			_Close	CloseParms			;CLOSE selected	file
;										 ignore any error from CLOSE
Finish		plp							;pull status from stack
			bcs		NewVol				;if	we had a read error, handle	it

			jmp		StSys				;transfer control to selcted file

***********************************************************
*														  *
*				 Video Output Subroutines				  *
*														  *
***********************************************************

* Standard Video Output	for	Messages

SetHorz		sta		CH
MsgLoop		lda		msg1,y				;get TEXT from Data	Area
			beq		MsgDone				;if	null we're done
			jsr		COut				;OutPut	text
			iny							;increment counter
			bne		MsgLoop				;loop (always taken)
MsgDone		rts							;loop escape clause

* Name Pointer Calculator for NAME Storage Area

NameCalc
			stz		StoHi				;init high byte of 16-bit shift
			txa
			asl		a					;shift to high nybble
			rol		StoHi
			asl		a
			rol		StoHi
			asl		a
			rol		StoHi
			asl		a
			rol		StoHi
			sta		StoLo				;place in Lo Pointer

			lda		#>NameBuff
			clc
			adc		StoHi
Sto_Pointer	sta		StoHi				;put $16 ($17) in Hi Pointer
			ldy		#$00				;Y reg = 0
			lda		(StoLo),y			;A = file NAME length
			sta		NameLen				;temp storage
			rts

* Output a File	NAME Line

NamePrnt	lda		#2					;set h pos to 2
			sta		OurCH				;set horizontal	position
			ldx		ValCnt				;get file NAME number
			txa
			sec
			sbc		TopName				;calculate line # to put name on
			inc		a
			inc		a
			jsr		TabV				;set vert pos

			lda		FilStore,x			;get FILE_TYPE (x is unchanged by TabV)
			bmi		SysName				;if	SYS	file jump
			stz		OurCH				;adjust cursor position
			lda		INVFLG				;save current inverse setting
			pha
			ldy		#FldrMsg-Msg1
			jsr		MsgLoop				;display the folder
			pla							;restore inverse setting
			sta		INVFLG

SysName		jsr		spcOut				;output a 'space'
			jsr		NameCalc			;calc name location
LoopName	iny							;Y reg = 1 (first time around)
			lda		(StoLo),y			;get character of NAME
			jsr		OutPut				;put on	screen
			cpy		NameLen				;end of	NAME?
			bcc		LoopName			;loop 'til done
spcOut		lda		#$a0				;load and OutPut a
			bne		myCOut				;  'space' (branch always)

HomeCursor	lda		#$99				;screen control - Home cursor
OutPut		ora		#$80				;set high bit
myCout		jmp		COut				;put on	screen

doRead		_Read	ReadParms
			rts

* Data Area

			msb		on

Msg1		DC.B	'RETURN: Select | TAB: Chg Vol | ESC: Back',$00

FldrMsg		dc.b	$0f					;INVERSE control code
			dc.b	$1b					;enable MouseText
			dc.b	'XY'				;folder characters
			dc.b	$18					;disable MouseText
			dc.b	$0e					;NORMAL control code
			dc.b	0

			msb		off

* Parameter	Area

OpenParms	DC.B	$03					;OPEN (C8)
			DC.W	Buff0				;address of	pathname
			DC.W	Op_Buff				;address of	file buffer
Open_Rn		DC.B	$00					;reference number

CloseParms	DC.B	$01					;CLOSE (CC)
			DC.B	$00					;file reference	number

OnLineParms	DC.B	$02					;ONLINE	(C5)
Ol_Unit		DC.B	$60					;unit number, default at S6, D1
			DC.W	Buff1				;data buffer

SetPfxParms	DC.B	$01					;SET_PREFIX	(C6)
			DC.W	Buff0				;address of	Pathname

; The last four bytes of this parameter block _may_ extend beyond our 768 byte
; limit, since the request count is set prior to using the parameter block, and
; the transfer count isn't used at all (except by ProDOS);

ReadParms	DC.B	$04					;READ (CA)
Read_Rn		DC.B	$01					;file reference	number
			DC.W	Rd_Buff				;data buffer address
Len_Lo		;DC.B	$00,$00				;requested length
			;DC.B	$00,$00				;actual	length

			Export	Bye_End
Bye_End
Bye_Len		equ		Bye_End-Better_Bye

	if Bye_Len>$300 then
			aerror	&concat('Better Bye code length overflow by $',&i2s((Bye_Len-$300),-4,1),' bytes.')
	endif

			ENDP
			END

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/P8/P8.Drivers/Ram.n b/IIGS.601.SRC/GS.OS/P8/P8.Drivers/Ram.n
new file mode 100644
index 0000000..a8dbff7
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/P8/P8.Drivers/Ram.n
@@ -0,0 +1 @@
+
;	This EdAsm/Asm816 source code file was converted to AsmIIGS
;	by EdAsmCVTIIGS version 1.0D3 on 1/24/89 at 10:49:37 AM

* Converted and reformatted by Monte Benaresh -- February 1989



	;these are ZERO PAGE locations!	 
CMD		equ	$42		;command from ProDOS
UNIT		equ	$43		;unitnum from ProDOS
BUFPTR		equ	$44		;User Buffer pointer
BLOCK		equ	$46		;block requested

		MACHINE	M6502

		longa	off
		longi	off

PRODOS		EQU	0
EDNET		EQU	1
OS		EQU	PRODOS
*
* Creates 3 object files 
*
XDIOERR		EQU	$27
XDWPERR		EQU	$2B		;write protect error
A1L		EQU	$3C
A1H		EQU	$3D		;SOURCE OF TRANSFER
A2L		EQU	$3E
A2H		EQU	$3F		;END OF SOURCE
A3L		EQU	$40
A3H		EQU	$41
A4L		EQU	$42
A4H		EQU	$43		;DESTINATION OF TRANSFER
*
MOVE		EQU	$C311		;monitor move data routine
XFER		EQU	$C314		;monitor XFER control
*
ENBLRAM2	EQU	$C083		;enable 2nd bank of LC
ENBLRAM1	EQU	$C08B		;enable 1st bank of LC
*
STORE80OFF	EQU	$C000
STORE80ON	EQU	$C001
STORE80SW	EQU	$C018
WRMAINRAM	EQU	$C004		;Write data to main ram
WRCARDRAM	EQU	$C005		;Write data to card ram
ALTZP		EQU	$C009		;enable alternate ZP,STK,LC
REGZP		EQU	$C008		;enable regular ZP,STK,LC
*
ABUF1		EQU	$C00		;temporary buffer
VBLOCK1		EQU	$E00		;where the Vdir goes
*
ENTERCARD	EQU	$200		;card entry point
PASSIT		EQU	$3ED		;XFER param 
*

		Eject
************************************************************
*                                                          *
*            PRODOS 8 KERNEL 59.5K RAMDISK (REV-E)         *
*                                                          *
*            COPYRIGHT APPLE COMPUTER, INC., 1983-86       *
*                                                          *
*                     ALL RIGHTS RESERVED                  *
*                                                          *
************************************************************

**** Note that the "os" variable must be updated depending on
**** the system you are building.


RAM1		PROC	Org $200
procstart
max_size	equ	$1FE		;allowed to grow to $3FD


		IMPORT	NOERR
		IMPORT	MAINWRT
		EXPORT	DONEWRT
*
* After the main routine has determined that the command
* is ok, and the block to be read/written is within
* range, it tranfers control to this routine.  This routine
* remaps the block requested as follows:
*     Request blocks 0,1 :invalid
*                      2 :returns VDIR (card block 3)
*                      3 :returns bitmap (synthesized)
*                      4 :returns card block 0
*                 $5-$5F :returns card blocks $5-$5F
*                $60-$67 :returns blocks $68-$7F in bank 1 of
*                           card's language card
*                $68-$7F :returns blocks $68-$7F in bank 2
*                           of card's language card
*
DOCMD		LDA	STORE80SW	;Read 80STORE
		PHA			;SAVE for later
		STA	STORE80OFF	;turn off 80STORE

		LDX	#4		;move the params for our use  
DOCMD1		LDA	<CMD,X		;CMD,UNIT,BUFPTR,&BLOCK(lo)
		STA	TCMD,X		;->TCMD,TUNIT,R2L,R2,R1 
		DEX
		BPL	DOCMD1
		AND	FORMATFLAG	;Format the volume first time 
		BNE	DOCOMMAND	;thru, or when requested 

DOFORMAT	LDX	<BLOCK		;save R1 during format
		LDA	#>VBLOCK1	;block to be cleared
		JSR	CLRBUF1		;ClrBuf clears all buffers
		LDY	#$3		;Format volume in 2 chunks 
DF2		LDA	VDIR,Y
		STA	VBLOCK1+4,Y
		DEY
		BPL	DF2

		LDA	#$FE		;Set last block as unusable to protect vectors
		STA	BITMAP+$F
		TYA			;SET bitmap bits to $FF
		LDY	#$E		;15 bytes to set
DF2_1		STA	BITMAP,Y	 
		DEY
		BNE	DF2_1
		STY	BITMAP		;first byte=0

		LDY	#$7		;do other chunk
DF3		LDA	ACCESS,Y
		STA	VBLOCK1+34,Y
		DEY
		BPL	DF3	 
		LDA	FORMATFLAG	;if 0, set to FF 
		BNE	DFX		;else exitcard
		STY	FORMATFLAG	;Y=FF, won't format next time 
		STX	R1		;restore R1

* Now use the requested block number to determine
* which routine performs the transfer

DOCOMMAND	ASL	R1		;block requested->page requested
		LDA	R1		;get page requested
		CMP	#$BF		;in Language card?
		BCS	TLC1		;yes, do it
CB1		CMP	#6		;bit map?
		BNE	CB2	 
		JMP	TBMAP		;yes, transfer bitmap
CB2		JMP	TREG		;else normal transfer

* When a block between $60 and $7F is requested, it must
* be spirited into/from the language card area of the 
* 64K card.  This requires a two-stage move: into the temp
* buffer and then to its real destination.

TLC1		TAX			;SAVE R1 for later
		JSR	SETPTR		;get direction
		PHP			;SAVE direction
		BCS	LCWRT		;it is a write
LCRD		TXA			;GET R1 back
		CMP	#$CF		;which bank is it in
		BCS	TLC2		;in main bank

		ORA	#$10		;in secondary bank
		BNE	TLC3		;branch always

TLC2		STA	ENBLRAM2	;turn on main $D000
		STA	ENBLRAM2

TLC3		STA	R1		;restore R1
		LDA	R2		;save R2 for later
		PHA
		LDX	R2L	 
		STA	ALTZP		;now switch to other ZP
		LDA	#>ABUF1		;set R2 to Abuf 
		STA	R2	 
		LDA	#<ABUF1	  
		STA	R2L
		JSR	SETPTR		;set pointers
		TAY			;A>0 from SETPTR
TLC4		LDA	(A1L),Y		;move A1,A2 to A4,A3
		STA	(A4L),Y
		LDA	(A2L),Y
		STA	(A3L),Y
		DEY
		BNE	TLC4

		STA	REGZP		;restore normal ZP    
		STX	R2L	 
		PLA			;RESTORE R2
		STA	R2
		PLP			;GET direction
DFX		BCS	XLCWRT		;write, done with move

		STA	ENBLRAM1	;now switch MLI part of LC in
		STA	ENBLRAM1
		JSR	BLOCKDO0	;read, transfer Abuf to main
XLCWRT		JMP	EXITCARD

LCWRT		JSR	BLOCKDO0	;transfer main to Abuf
		JMP	LCRD		;transfer Abuf to Lang card

* BLOCKDO transfers a block between main memory and the 
*  64K card.  R1 contains the page address of the block
*  in the card; R2 contains the page address of the block
*  in main memory.  The address in main memory is always
*  in the language card, so the language card is always
*  switched in.  If CMD is 2, a write is done (R2->R1);
*  if CMD is 1, a read is done (R1->R2).

BLOCKDO0	LDA	#>ABUF1		;set up R1 = Abuf 
BLOCKDO1	STA	R1
BLOCKDO		JSR	SETPTR		;set pointers
		BCS	BLOCKWRITE	;it's a write
		STA	WRMAINRAM	;transfer buffer directly to main ram
		TAY			;0 left from SETPTR
BD1		LDA	(A1L),Y		;transfer A1,A2 to A4,A3
		STA	(A4L),Y
		LDA	(A2L),Y
		STA	(A3L),Y
		DEY
		BNE	BD1
		STA	WRCARDRAM	;back the way it was
DONEWRT		RTS			;MAINWRT returns here 

BLOCKWRITE	LDA	#<MAINWRT	;pointers set up,
		STA	PASSIT		;pass control to main ram
		LDA	#>MAINWRT
		JMP	EX1		;set PassIt+1 and transfer

* SETPTR is used by other routines to set up pointers
* and to detect read or write.

SETPTR		LDA	TCMD		;the rest depends on read 
		LSR	A		;or write.  Which is it?
		BCS	CMDWRT		;it's write

CMDRD		LDA	R2		;get dest page
		STA	A4H		;1st dest page (MOVE)
		STA	A3H		;2nd dest page
		LDA	R2L		;low byte dest page
		STA	A4L		;1st dest page low
		STA	A3L		;2nd dest page low
		LDA	R1		;get source page
		STA	A1H		;1st source page
		STA	A2H		;2nd source page
		LDA	#0		;source page aligned
		STA	A1L		;1st source page
		STA	A2L		;2nd source page
		BEQ	CMDBOTH		;update second pages

CMDWRT		LDA	R2		;get source page
		STA	A1H		;1st source page
		STA	A2H		;2nd source page
		LDA	R2L		;get source page low
		STA	A1L		;1st source page low
		STA	A2L		;2nd source page low
		LDA	R1		;get dest page
		STA	A4H		;1st dest page
		STA	A3H		;2nd dest page
		LDA	#0		;dest page aligned
		STA	A4L		;1st dest page
		STA	A3L		;2nd dest page

CMDBOTH		INC	A2H		;update 2nd source page 
		INC	A3H		;update 2nd dest page
		RTS

* TZIP is called if Blocks 0,1,4,5 are requested.
* On write it does nothing, on read, it returns 0's

TZIP		JSR	CLRBUF0		;fill ABUF with 0's
		JSR	BLOCKDO		;transfer them 0's
ZIPOUT		JMP	EXITCARD	;and return

* CLRBUF fills the buffer indicated by R1 to 0's
* Should only be called on a read or format. 

CLRBUF0		LDA	#>ABUF1		;ABUF is temp buffer
CLRBUF1		STA	R1		;assign to BLOCK
CLRBUF2		JSR	SETPTR		;set pointers
		TAY			;A set to 0 by setptr 
CLRBUF3		STA	(A1L),Y
		STA	(A2L),Y
		DEY
		BNE	CLRBUF3	 
		RTS

* TREG maps the requested block into the aux card
* so that 8K data files will be contiguous (the index
* blocks will not be placed within data).

TREG		CMP	#4		;page 4 = vdir  
		BNE	T1		;not vdir, continue
		LDA	#$7		;else xfer block 7 
		BNE	GOTIMES2

***************** See Rev Note #43 ********************

T1		CMP	#$F		;if any page<f (<block 8) requested
*******************************************************
		BCC	TZIP		;it is invalid

TREG1		LDX	#0		;X contains number of iterations
		LDA	<BLOCK		;use true block number
		CMP	#$5D		;beyond 8K blocks?
		BCC	TR1		;no, do normal
		SBC	#$50		;else subtract offset
GOTIMES2	JMP	TIMES2		;and multiply by 2

* Determine which 8K chunk it is in, place in X;
* block offset into chunk goes into Y.

TR1		SEC
		SBC	#$8		;block = block -6
TR2		CMP	#$11		;if <=17, done
		BCC	TR3		;yup, got iteration
		SBC	#$11		;else block =block -17
		INX			;COUNT iteration
		BPL	TR2		;branch always
		DC.B	$00		;just in case
TR3		TAY			;REMAINDER in Y

* If remainder is 1 it's an index block: start index
* blocks at $1000,$2000..$19FF) 
*    If remainder is 0, it is first data block in 8K
* chunk.  Page is 32 + (16 * X). 
*    Otherwise, it is some other data block. 
* Page is 32 + (16 * X) + (2 * Y) 

		CPY	#1		;is it index block?
		BNE	TR4		;no
		TXA			;INDEX = 2*(8+X)
		CLC
		ADC	#8	 
		BNE	TIMES2		;multiply by 2
TR4		INX			;NEED iteration+1
		TXA			;PAGE = 2 * (16 + 8X)      
		ASL	A
		ASL	A	 
		ASL	A
		ASL	A
		STA	R1
		TYA			;GET offset into 8K chunk
		BEQ	TR5		;if 0, no offset
		DEY			;ELSE offset = 2 * Y
		TYA
TR5		CLC
		ADC	R1
TIMES2		ASL	A		;acc=2*acc
		JSR	BLOCKDO1	;store in R1 and xfer
		JMP	EXITCARD	;and return

* When Block 3 is requested, the bitmap is returned.  The
* Real bitmap is only 16 bytes long (BITMAP); the rest of
* the block is synthesized.  The temporary buffer at $800
* is used to build/read a full size bitmap block.

TBMAP		LDA	#>ABUF1		;use temporary buffer as BLOCK
		STA	R1
		JSR	SETPTR		;Set pointers/test read-write 
		BCS	BITWRT		;its a write!

BITRD		JSR	CLRBUF2	 

		LDY	#$F		;now put real bitmap there
BITRD2		LDA	BITMAP,Y
		STA	(A1L),Y
		DEY
		BPL	BITRD2
		JSR	BLOCKDO		;move temp buf to user buf
		JMP	EXITCARD

BITWRT		JSR	BLOCKDO		;move user buf to temp buf
		JSR	SETPTR		;Set pointers
		LDY	#$F		;move temp buf to bitmap
BITWRT1		LDA	(A4L),Y		;(pointer set by SETPTR) 
		STA	BITMAP,Y
		DEY
		BPL	BITWRT1
		JMP	EXITCARD

FORMATFLAG	DC.B	0		;not formatted yet

TCMD		DS.B	1 		;command byte
TUNIT		DS.B	1 		;unit byte (not used)
R2L		DS.B	1 		;low byte of user buffer
R2		DS.B	1 		;hi byte of user buffer
R1		DS.B	1 		;page requested

BITMAP		DC.B	$00,$FF,$FF,$FF	;blocks 0-7 used 
		DC.B	$FF,$FF,$FF,$FF
		DC.B	$FF,$FF,$FF,$FF
		DC.B	$FF,$FF,$FF,$FE

VDIR					;start of vdir
TYPE_NAMEL	DC.B	$F3		;storage type F, namelength 3
		MSB	OFF
VNAME		DC.B	'RAM'

ACCESS		DC.B	$C3		;Destroy, Rename, Read enabled
ENTRY_LEN	DC.B	$27		;entry length
ENTRIES_PER_BLOCK DC.B	$0D	 
FILE_COUNT	DC.B	0,0
MAP_POINTER	DC.B	3,0		;Block 3 
TOTAL_BLOCKS	DC.B	$7F		;128 blocks 

EXITCARD	LDA	ENBLRAM1	;restore lang card
		LDA	ENBLRAM1	 
		PLA			;GET 80STORE
		BPL	EX0		;80STORE wasn't on
		STA	STORE80ON
EX0		JMP	$3EF		;Jump around PassIt (3ED,3EE)
		DS.B	($3EF - $200) - (* - procstart)	 ;pad thru $3EE 
		LDA	#<NOERR		;set up return to NoErr
		STA	PASSIT
		LDA	#>NOERR
EX1		STA	PASSIT+1	;also used by BlockWrite 
		CLC			;TRANSFER card to main
		CLV			;USE standard zp/stk
		JMP	XFER		;there's no place like home...

*  NOTE: The previous section of code MUST NOT use $3FE & $3FF
*        since the Interrupt Vector must go there if AUX interrupts
*        are to be used.
	if (*-procstart) > max_size then
		aerror	'Aux bank /RAM driver segment too large.'
	endif
		ENDP

		Eject
RAM2		proc	Org $2C80
procstart
max_size	equ	$80

* Transfer card part of the driver to the card
* Transfer front part of the driver to lang.card

RAMDEST		EQU	$0200
LCDEST		EQU	$FF00	 


RAMSRC		EQU	$5100		;address of Aux Bank driver within P8 image
LCSRC		EQU	$2D00		;address of Main Bank driver within P8 image

DEVNUM		EQU	$B0		;Slot 3, Drive 2 ($30 + hi bit set)
DEVADR		EQU	$BF10		;Base of Device addresses 
DEVCNT		EQU	$BF31
DEVLST		EQU	$BF32

* Move LCSrc to LCDest

		LDY	#$99		;move $9A bytes 
MVLC		LDA	LCSRC,Y		;get a byte of source
		STA	LCDEST,Y
		DEY
		CPY	#$FF
		BNE	MVLC

* Move RAMSrc to RAMDest

		LDX	#<RAMSRC
		STX	<A1L		;source low
		DEX			;SOURCE end low
		STX	<A2L
		LDX	#>RAMSRC	;source high
		STX	<A1H
		INX
		STX	<A2H		;end high
		LDA	#<RAMDEST
		STA	<A4L
		LDA	#>RAMDEST
		STA	<A4H
		SEC			;RAM to Card
		JSR	MOVE

* Now install it into the system

		LDA	#<LCDEST	;put LC address into
		STA	$BF26		;slot 3, drive 2 
		LDA	#>LCDEST
		STA	$BF26+1
		INC	DEVCNT
		LDX	DEVCNT
		LDA	#DEVNUM+$F	;unit num of /RAM
		STA	DEVLST,X
		RTS

	if (*-procstart) > max_size then
		aerror	'/RAM driver installer segment too large.'
	endif
		ENDP

		Eject
RAM3		proc	Org $FF00
procstart
		IMPORT	DONEWRT
		EXPORT	NOERR
		EXPORT	MAINWRT

max_size	equ	$9B

ENTERRAM				;/RAM entry point
		CLD

		LDX	#$B		;save 13 bytes of params
SAVPARMS	LDA	<A1L,X	  
		STA	A1L1,X
		DEX
		BPL	SAVPARMS

		LDX	#1		;save XFER Vectors too 
SVP1		LDA	PASSIT,X
		STA	SP1,X
		DEX
		BPL	SVP1

		LDA	<CMD		;get command
		BEQ	STAT		;0=STATUS
		CMP	#4		;check for command too high
		BCS	IOERR		;if it is, IO ERR
		EOR	#$3		;0=FORMAT,2=READ,1=WRITE
		STA	<CMD		;CMD=>0=Format,2=Read,1=Write
		BEQ	FORMAT		;format the volume
		LDY	<BLOCK+1	;check for enormous blocknum
		BNE	IOERR		;io error if too big
		LDA	<BLOCK		;get the block number
		BMI	IOERR		;largest block is $7F

* At this point, control is passed to the code in the
* alternate 64K.  It is used for read, write, and 
* format.  After the request is completed, control
* is always passed back to NoErr.

FORMAT
		LDA	#<ENTERCARD	;card entry point
		STA	PASSIT		;figure it out on card
		LDA	#>ENTERCARD
GOCARD		STA	PASSIT+1	;also used by MainWrt 
		SEC			;RAM->>CARD

		CLV			;START with original z.p.
		JMP	XFER		;transfer control


IOERR		LDA	#XDIOERR	;get err num
		BNE	ERROUT		;and return
WPERR		LDA	#XDWPERR	;write protect err
ERROUT		SEC			;FLAG error
		BCS	RESTORE		;restore cmd and unitnum

STAT
NOERR		LDA	#0		;no error
		CLC			;FLAG no error
RESTORE		PHP			;SAVE status
		PHA			;SAVE error code

		LDX	#$B		;restore 13 bytes of params
RSTPRMS		LDA	A1L1,X	 
		STA	<A1L,X	  
		DEX
		BPL	RSTPRMS

		LDA	SP1		;restore XFER params
		BIT	$6060		;This instruction is to put an RTS at $FF58 as in ROM
		STA	PASSIT
		LDA	SP1+1
		STA	PASSIT+1

; -------------------- See rev note 21 -----------------------
		PLA			;GET error
		PLP			;GET status
; ------------------------------------------------------------
		RTS			;AND return

MAINWRT		STA	WRCARDRAM	;xfer data to card
		LDY	#0
MW1		LDA	(A1L),Y		;pointers set in card by SETPTR
		STA	(A4L),Y	 
		LDA	(A2L),Y
		STA	(A3L),Y
		DEY
		BNE	MW1
		STA	WRMAINRAM	;done writing Card

		LDA	#<DONEWRT
		STA	PASSIT
		LDA	#>DONEWRT
		JMP	GOCARD

SP1		DS.B	2	
A1L1		DS.B	$C		;13 bytes of storage
FRONTLEN	EQU	*-ENTERRAM

***************** See Rev Note #EN1 ******************

;	IF OS-EDNET = 0 THEN
;	LDA	$C083		; Switch in bank 2.
;	JSR	$D400		; Go do RWTS.
;	STA	$C08B		; Switch bank 1 back in preserving status!
;	RTS			; Back to caller.
WHEREAREWE
;	ENDIF
*****************************************************

	if (*-procstart) > max_size then
		aerror	'Main bank /RAM driver segment too large.'
	endif
		ENDP

		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/P8/P8.Drivers/Sel.Alt.n b/IIGS.601.SRC/GS.OS/P8/P8.Drivers/Sel.Alt.n
new file mode 100644
index 0000000..7a9f5d4
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/P8/P8.Drivers/Sel.Alt.n
@@ -0,0 +1 @@
+				print	off
				include	'blaunch.macros'
				print	on,nogen,nopage,nohdr

****************************************************************
*
* sel.alt.n
*	alternate program selector segment for P8 when used
* 	in conjunction with GS/OS.
*
* Description
*	This code is used in place of the standard P8 interactive
*	program selector when P8 is started up by GQuit.  It is called
*	by GQuit when GQuit is passing control from one application to
*	another, and the new application is an 8-bit application.
*
*	This code first loads the specified P8 application at $2000 in
*	bank 0 of memory.  It then checks the message center for a
*	possible message specifying the name of a file.  This file is
*	passed on to any 8-bit application that follows the guidelines
*	on page 88 of the P8 Technical Reference Manual.  When the
*	message handling is completed, this segment will pass control
*	on to the freshly loaded app.
*
* Version 1.0
*	January 30, 1989	-	Greg Branche
*
****************************************************************

				machine	m65816			;using the '816 here

devoffline		equ		$2f				; device off line, or no disk in drive.
vnferr			equ		$45				; volume not found
volbuf			equ		$f00			; buffer for volume name
ramin			equ		$c08b
romin			equ		$c082			; swap rom in, write protect ram
P8Quit			equ		$E0D000

alt_dispatch	proc	org $1000

; first	16 bytes reserved for patch	by GQuit
; currently, patch looks like this:

; WARNING - Do NOT start with a CLD instruction (as other replacement
; quit code is supposed to do).  GQuit checks this to see if this version
; of the quit code is available.

				lda		|ramin			;enable	LC Bank	1 for GQuit
				clc						;go	to native mode
				xce
				jmp		>P8Quit			;go	to GQuit

				ds.b	(alt_dispatch + 16) - * -2	;offset to paragraph boundary
				dc.b	'GQ'			;ID bytes so GQuit can identify us

;===============================================================================
; load_app
;
; Entry	is in 16-bit native	mode.
; Exit is in emulation mode.
; Data bank	register is	set	to bank	$00	on entry and exit.
; Direct register is set to	$0000 on entry and exit.
; Stack	pointer	is set to $01fb	on entry and exit.
;
; Inputs:		Acc	= value	of E1_OS_Switch	(0 or 1, 1 = yes, we're switching)
;
; Outputs:		none
;
; Notes:		This code is moved to $00/1010 and executed	there.
;
; Loads	and	executes a ProDOS 8	application.
;===============================================================================

; first, copy the prefix passed from GS/OS to our own volume name buffer
; this is done so that if there's an error setting P8's prefix, we can issue
; a pretty error message.

launcher
				shortm					;8-bit accumulator
				pha						;save the switch status
				ldx		#$200			;point to passed prefix
				jsr		copy_volname	;copy the name into the buffer
				pla						;retrieve the switch status
				
; Go into emulation	mode to	load and run ProDOS	8 application.

				emulation				;begin emulation mode
				ora		#0				; Are we switching from	P16	to P8?
				beq		load_it			; no

; We are switching from	P16	to P8, so we must pass prefix 0	from P16 to
; the P8 prefix.  The prefix is passed at $00/0200 by GQuit.

setpfx_call		SetPrefix p8_setpfx_list
				bcc		setpfx_ok
				jsr		p8error			; handle error.
				bra		setpfx_call		; try again.
setpfx_ok

; Now, load	in the application beginning at	$2000.

load_it
				xce						;go to native mode (carry already clear)
				rep		#$10			;16-bit registers, but leave 8-bit accumulator
				longa	off
				longi	on
				lda		$281			;is the application name a complete pathname?
				cmp		#'/'
				bne		use_pfx			;no, use prefix as volume name (already set up)
				ldx		#$280			;else use the application name!
				jsr		copy_volname	;copy the volume name to the buffer
use_pfx
				emulation				;back to emulation mode
				
; Open the application file.

open_call		Open	p8_open_list
				bcc		open_ok
				jsr		p8error			; handle error.
				bra		open_call		; try again.
open_ok
				lda		o_refnum		;copy refnum to parameter lists
				sta		eof_refnum
				sta		r_refnum
				sta		c_refnum
				
; Do a GetEOF call so we know how many bytes to	read.

eof_call		GetEOF	p8_eof_list
				bcc		eof_ok
				jsr		p8error			; handle error.
				bra		eof_call		; try again.
eof_ok

; Get the size of the file and store in	the	Read parameter list.

				lda		|p8_eof
				sta		|p8_read_count
				lda		|p8_eof+1
				sta		|p8_read_count+1

; Read in the application.

read_call		Read	p8_read_list
				bcc		read_ok
				jsr		p8error			; handle error.
				bra		read_call		; try again.
read_ok

; Close	the	application	file.

close_call		Close	p8_close_list
				bcc		close_ok
				jsr		p8error			; handle error.
				bra		close_call		; try again.
close_ok
				jsr		do_launch		;check for possible	passing	of second pathname
				bne		Here_We_Go		;if	no filename, then just run the program
				jsr		CheckForDrive	;else make sure	the	volume containing the file is online
				bcc		Here_We_Go		;if so, then off we go!
				lda		#vnferr
				bra		p8_fatal_err	;if	not	online,	then just quit

; Now, execute the application.
Here_We_Go
				lda		|romin			; Enable ROM.
				jmp		$2000			; Execute the application.

;-------------------------------------------------------------------------------

p8error
				native	long			;switch	into 16-bit	native mode
				jsr		p8_mount_vol
				bcs		p8_fatal_err
ret_pressed
				emulation				;back to emulation mode
				rts

;===============================================================================
; p8_fatal_err
;
; Entry	is in whatever mode you want (it get's switched immediatedly to native).
; Data bank	register is	unknown	at entry.
;
; Inputs:		A -	error code
;
; Outputs:		none
;
; Notes:		This routine does not return.
;
; Generate a fatal error while running under ProDOS	8.
;===============================================================================

p8_fatal_err
				native					;switch into high gear!

				and		#$00ff			; mask off high	byte of	error code
				pha						;put on	stack for IntMath tool call
				pea		errvalstr>>16	;put address of	string buffer
				pea		errvalstr
				pea		4				;make string 4 digits long
				_Int2Hex				;convert value to hex string

				pha						;make space	for	return value
				pea		QuitStr1>>16	;push first	error message address
				pea		QuitStr1
				pea		QuitStr2>>16	;push second error message address
				pea		QuitStr2
				pea		e1_btn1_label>>16 ;push	first button text address
				pea		e1_btn1_label
				pea		QuitBtn2>>16	;push second button	text address (null string)
				pea		QuitBtn2
				_TLTextMountVolume		;make the dialog box
				pla						;retrieve button press (not	used)

				emulation				;shift back to emulation mode
				Quit	QuitParms		;then just quit back to GQuit

;===============================================================================
; p8_mount_vol
;
; Entry	is in 16-bit native	mode.
; Exit is in 16-bit	native mode.
; Data bank	register is	unknown.
;
; Inputs:		A -	error code
;				volbuf = name of volume to mount
;
; Outputs:		A -	error code (hi byte	set	to 0)
;				c -	0 if mount volume window put up	and	'return' was pressed
;					1 if window	not	put	up or if window	put	up and 'esc' pressed
;
; If the error code	is volume_not_found	($45) or no	disk in	drive ($2F),
; then put up a	window asking the user to insert the needed	volume.
;===============================================================================

p8_mount_vol
				longa	on
				longi	on
				ldy		#volbuf>>16		;set up	ptr	to volume name
				ldx		#volbuf

; If error code	is 'volume not found' or 'no disk in drive'	then put up	the
; Mount	Volume window, otherwise return	with carry set.

				and		#$00ff			;just in case
				cmp		#vnferr
				beq		cont
				cmp		#devoffline
				beq		cont
				sec						;indicate error	not	handled
				rts						;error code	still in A

cont
				pha						;save error	code in	case ESC pressed
				phy						;push ptr to volume	name on	stack
				phx
				tsc
				phd						;save D	reg
				tcd						;point D reg at	stack
				lda		[<1]			;get length	byte and leading separator
				dec		a				;don't count leading separator
				xba						;then swap the bytes so	the	volume name
				sta		[<1]			;does not contain the separator

				pha						; Room for result
				pea		e1_mount_msg1>>16
				pea		e1_mount_msg1
				phy						; hi word of ptr to	volume name
				inx						; skip separator
				phx						; lo word of ptr to	volume name
				pea		e1_btn1_label>>16 ;	'Return'
				pea		e1_btn1_label

				pea		e1_btn2_label>>16 ;	'Escape'
				pea		e1_btn2_label
				_TLTextMountVolume
				lda		[<1]			;restore first 2 bytes of volume name
				xba						;back to their original	positions
				inc		a				;and values
				sta		[<1]
				pla						;Which button: 1=Return, 2=Escape
				pld						;restore D reg
				plx						;pull volume name ptr off stack
				plx
				cmp		#1				;which button was pressed?
				bne		escape_pressed
				clc						;indicate Return was pressed
				pla						;pull original error code off stack
				rts						;return	with carry clear

escape_pressed	sec						;Indicate Escape was pressed
				pla						;restore error code
				rts						;return	with carry set

****************************************************************
*
copy_volname
*
* Description
*	copies the volume name from the given pathname to the volume
*	name buffer.
*
* Inputs:
*	X -> length byte of complete pathname containing volume name
*
* Outputs:
*	volume name is stored in volbuf	
*
****************************************************************

				longa	off
				longi	on
				
				lda		|1,x			;get the first slash
				sta		volbuf+1
				ldy		#2				;initialize the length count
@1				lda		|2,x			;now copy the volume name
				cmp		#'/'			;up	to the separating slash
				beq		@2
				sta		volbuf,y
				inx
				iny
				bra		@1

@2				dey						;fix character count
				tya						;get the length into the accumulator
				sta		volbuf			;store the resultant string	length
				rts

****************************************************************
*
* Do_Launch
*
* This routine translates a	filename message from the message center
* to the currently launching P8	application	if the application can
* accept a second filename.
*
* First, it	checks the application for the correct structure (as
* defined on page 88 of	the	ProDOS 8 Technical Reference Manual).
* If the application meets the requirements, it	then checks	for	a
* filename message in the message center.  If found, the filename
* is copied	into the application's filename buffer.
*
* This routine is entered and exited in	emulation mode.
*
* On exit, the Z flag in the processor status register is set (BEQ)
* if a filename	was	correctly passed to	the	application.  The flag
* is clear (BNE) if	it couldn't be done.
*
****************************************************************

do_launch
				longa	off
				longi	off
				
				lda		$2000			;does the app start	with a jump?
				cmp		#$4c
				bne		go_fer_it		;no, doesn't follow the convention
				lda		#$ee			;now check for the signature bytes
				cmp		$2003
				bne		go_fer_it		;first one doesn't match, just skip it
				cmp		$2004
				beq		get_msg			;both match, we	can	do it
go_fer_it
				rts						;else just return to launch	the	app	    

get_msg
				lda		#-1				;put flag conditioning value on	stack (assume error)
				pha

				native	long			;native	mode, 16-bit registers

				pha						;make room on stack	for	UserID
				_MMStartUp				;start up the memory manager
				pla						;get the UserID
				pha						;and leave it on the stack

				pha						;make room on stack	for	new	handle
				pha
				pea		0				;get a 10-byte block of	memory
				pea		10
				pha						;put the UserID	on the stack (still in Acc)
				pea		0				;totally unrestricted block
				pha						;LocationPtr (not used)
				pha
				_NewHandle				;go	get	the	block of memory
				pla						;get the handle	from the stack
				plx
				bcs		oops_no_mem		;ERROR?	Just forget	I mentioned	anything then...
				phx						;leave the handle on the stack
				pha

				pea		2				;"get" a message
				pea		1				;get a type	1 message (filename	message)
				phx						;put the message handle	on the stack
				pha						;(still contained in Acc and X-Reg)
				_MessageCenter
				bcs		oops_no_msg		;What, no message???

				pha						;leave 4 bytes free	on stack
				pha						;(will be used as a	direct page	pointer)
				tsc						;get the stack pointer
				phd						;save current direct register
				inc		a				;point to new direct page space
				tcd						;make our own direct page

				lda		[4]				;de-reference the handle
				sta		0
				ldy		#2
				lda		[4],y
				sta		2

				ldy		#6				;get the message command
				lda		[0],y
				bne		bad_msg			;if	print, then	just skip it

				lda		0				;adjust	pointer	to point to	filename string
				clc
				adc		#8
				sta		0
				bcc		no_carry
				inc		2
no_carry
				lda		[0]				;get the length	of the string
				and		#$00ff			;mask off high byte	(leaving just the length)
				shortm					;8-bit accumulator
				cmp		$2005			;check against length of application buffer
				beq		samelen			;if	equal, then	continue with move
				bcs		bad_msg			;if	too	long, then just	forget it
samelen
				tay						;put string	length into	Y (high	byte too)
nameloop
				lda		[0],y			;get a character
				sta		$2006,y			;store it in the app's filename buffer
				sta		$0200,y			;and in our prefix buffer
				dey
				bpl		nameloop		;until all moved
				lda		#0				;change	flag conditioning value	on stack
				sta		13,s			;to indicate that we have passed a filename
bad_msg
				longm					;16-bit	accumulator
				pld						;restore direct	register
				pla						;fix stack (handle and UserID still	on stack)
				pla

				pea		3				;now, delete the message (we're done with it)
				pea		1				;message type 1
				pha						;garbage handle (it's not used, anyway)
				pha
				_MessageCenter			;go delete the message

oops_no_msg
				_DisposeHandle			;throw away	the	message (handle still on stack)

oops_no_mem
				_MMShutDown				;shut down the memory manager (UserID still on stack)

				emulation				;back to emulation mode
				pla						;condition Z-flag with value on	stack
				bne		done
				ldx		$0200			;get length of pathname
				lda		#'/'			;look for slash
@loop
				cmp		$0200,x
				beq		@found			;when found, set prefix
				dex
				bne		@loop
				bra		done			;if no slash, just skip it
@found
				dex						;don't include trailing slash
				stx		$0200			;set new length
				SetPrefix p8_setpfx_list ;set the P8 Prefix
				lda		#0				;set Z flag
done
				rts						;now go	launch the app

****************************************************************
*
* CheckForDrive
*
* This routine is entered and exited in	emulation mode.
*
* The carry	flag is	used to	signal if the disk can be found.
* 	clear = disk was found
*	set   = disk couldn't be found
*
****************************************************************

CheckForDrive

				clc						;go into native mode
				xce
				rep		#$10			;16-bit registers, but 8-bit accumulator
				longa	off
				longi	on
				ldx		#$2006			;point to pathname buffer
				jsr		copy_volname	;copy volume name to buffer
LookForDisk
				emulation				;go into emulation mode
				GetFileInfo	GFIParams	;try to	get	info on	the	volume
				bcc		DoIt1			;volume	found, continue
				native					;(must be in native mode)
				jsr		p8_mount_vol	;else ask the user to mount	the	volume
				bcc		LookForDisk		;if	<return> pressed, try again
				emulation				;switch	back to	emulation
				sec						;make sure the carry's set
DoIt1
				rts						;and return


;-------------------------------------------------------------------------------
; ProDOS 8 parameter lists
;-------------------------------------------------------------------------------

p8_setpfx_list							; Set prefix parameter list.
				DC.B	1				; Number of	parameters is 1.
				DC.W	$200			; Address of where prefix is.

p8_open_list
				DC.B	3				; Parameter	count is 3.
				DC.W	$280			; Pathname is at $280.
				DC.W	$1c00			; I/O buffer location.
o_refnum		DS.B	1				; Reference	number

p8_eof_list
				DC.B	2				; Number of	parameters is 2.
eof_refnum		DS.B	1				; Reference	number
p8_eof			DS.B	3				; 3	byte EOF value.			  

p8_read_list
				DC.B	4				; Number of	parameters is 4.
r_refnum		DS.B	1				; Reference	number
				DC.W	$2000			; Read into	$2000. (Bank 0 of course)
p8_read_count	DS.B	2				; Number of	bytes to read.
				DS.B	2				; Transfer count. (so what?)

p8_close_list
				DC.B	1				; Number of	parameters is 1.
c_refnum		DS.B	1				; Close	reference number

QuitParms
				dc.b	4				; 4	parameters for Quit	call
				dc.b	0				; Quit back	to whoever launched	us
				dc.w	0				; (it had better be GQuit!)
				dc.b	0
				dc.w	0

GFIParams		DC.B	10
				DC.W	volbuf
				DS.B	1				; access
				DS.B	1				; file type
				DS.B	2				; aux type
				DS.B	1				; storage type
				DS.B	2				; blocks used
				DS.B	2				; mod date
				DS.B	2				; mod time
				DS.B	2				; cre date
				DS.B	2				; cre time

;-------------------------------------------------------------------------------
; Messages for P8_Fatal_Error routine
;-------------------------------------------------------------------------------

; The maximum length of	this message is	35 characters.
; (The error code will be displayed	immediately	following the final	character.)

QuitStr1		DC.B	27				; Length byte
				DC.B	'Can'
				DC.B	$27
				DC.B	't run next application.'

QuitStr2		dc.b	20
				dc.b	'ProDOS Error = $'
ErrValStr		dc.b	'    '			;hex error code	gets stored	here by	_Int2Hex

QuitBtn2		dc.b	0				;null string (no 2nd button)

;-------------------------------------------------------------------------------
; Messages for P8_Mount_Vol	routine
;-------------------------------------------------------------------------------

; The maximum length of	this message is	35 characters.
; The button labels	must not be	more than 16 characters.

				string	pascal
e1_mount_msg1	dc.b	'Please insert the disk:'
				string	asis

e1_btn1_label	DC.B	13
				DC.B	'Accept: '
				DC.B	$1b				;Basic turn	mousetext on code
				DC.B	$0f				;Basic turn	inverse	mode on
				DC.B	$4d				;Mousetest return character
				DC.B	$0e				;Basic turn	normal mode	on
				DC.B	$18				;Basic turn	mousetext off code

				string	pascal
e1_btn2_label	dc.b	'Cancel: Esc'
				string	asis

********************************************************************************
* end of sel.alt.n                                                             *
********************************************************************************
 if (*-alt_dispatch)>$300 then
   aerror &concat('Code length overflow by $', &i2s(*-alt_dispatch,4,1),' bytes.')
 endif
				endp
				end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/P8/P8.Drivers/Sel.n b/IIGS.601.SRC/GS.OS/P8/P8.Drivers/Sel.n
new file mode 100644
index 0000000..b4003b2
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/P8/P8.Drivers/Sel.n
@@ -0,0 +1 @@
+

SEL_P1	PROC org $1000

;	This EdAsm/Asm816 source code file was converted to AsmIIGS
;	by EdAsmCVTIIGS version 1.0D3 on 1/24/89 at 9:19:54 PM

* Converted and reformatted by Monte Benaresh -- February 1989

	MACHINE	M65816
	longa off
	longi off


***********************************************************
*                                                         *
*          PRODOS 8 LOBOTOMIZED DISPATCHER ROUTINE        *
*                                                         *
*           COPYRIGHT APPLE COMPUTER, INC., 1983-86       *
*                                                         *
*                    ALL RIGHTS RESERVED                  *
*                                                         *
***********************************************************

***********************************************************

*  DISPATCHER 1 - This code ORGs and operates at $1000 but
*    is resident in memory at $D100 in the Alt 4K bank of the
*    Language Card.  The QUIT call vectors to a routine high
*    in the MLI that moves DISPATCHER 1 down and jumps to it.
*    The move routine MUST remain somewhere between $E000-$F7FF.

*  NOTE: This entire routine MUST remain no larger than 3 pages.

***********************************************************
	MSB ON
PROMPT	EQU $FF
CV	EQU $25
CH	EQU $24
INFOCALL	EQU $C4
SETPFXCALL	EQU $C6
GETPFXCALL	EQU $C7
OPENCALL	EQU $C8
READCALL	EQU $CA
CLOSECALL	EQU $CC
EOFCALL	EQU $D1
ERRNUM	EQU $DE	 ;Applesoft ERRNUM but who cares?
PATH	EQU $280	 ;Second half of input buffer

LINE3	EQU $600	 ; 3rd line of screen (starting from 0).

ENTRY	EQU $2000
MLI	EQU $BF00
BITMAP	EQU $BF58
PFIXPTR	EQU $BF9A
KBD	EQU $C000
STB	EQU $C010
RAMIN	EQU $C08B	 
ROMIN	EQU $C082
RAMIN2	EQU $C083
CLEOL	EQU $FC9C	 ;Clear to End of Line 
SETTXT	EQU $FB39	 ; Monitor routine to set 40 col window.
HOME	EQU $FC58
RDKEY	EQU $FD0C
COUT	EQU $FDED
CROUT	EQU $FD8E
BELL	EQU $FF3A

* Monitor equates, soft switch equates for fix #55....

SETVID	EQU $FE93	 ; Puts COUT1 in CSW.
SETNORM	EQU $FE84	 ; Normal white text on black backround.
INIT	EQU $FB2F	 ; Text pg1;text mode;sets 40/80 col window.
SETKBD	EQU $FE89	 ; Does an IN#1.
CLR80VID	EQU $C00C	 ; Disable 80 column hardware.
CLRALTCHAR	EQU $C00E	 ; Switch in primary character set.
CLR80COL	EQU $C000	 ; Disable 80 column store.

*  Reset the Rev e soft switches

*********** See rev note #55 ****************
HEREIN
	LDA ROMIN
* JSR $FE93 ;SETVID 
* JSR $FE89 ;SETNORM 
* STA $C00C ;80 col off 
* STA $C00F ;Alt chrset on 
* STA $C000 ;Main ram
	STA CLR80VID	 ; Disable 80 column hardware.
	STA CLRALTCHAR ;Switch in primary char set.
	STA CLR80COL	 ; Disable 80 column store.
	JSR SETNORM	 ; Normal white chars on black backround.
	JSR INIT	 ; Text pg1; text mode; set 40 col window.
	JSR SETVID	 ; Does a PR#0 (puts COUT1 in CSW).
	JSR SETKBD	 ; Does an IN#0 to set Basic input to kbd.
****************************************************

*  Clear the memory Bit Map

CLRMAP	LDX #$17	 ;Do all the bytes 
	LDA #1
	STA BITMAP,X	 ;Protect page $BF00 
	DEX
	LDA #$0	 ;Clear the rest 
CLRLOOP	STA BITMAP,X
	DEX
	BPL CLRLOOP
	LDA #$CF
	STA BITMAP	 ;Protect pages 0,1 & $400-$7FF (Screen)
START

***************** See Rev Note #39 *********************

* jsr settxt ; No longer necessary with fix #55...
********************************************************
	JSR HOME	 ; Clear the screen
	JSR CROUT

********************* Rev Note #55  *******************

	LDX #<MSG0-MSGSTART	 ; Load offset to message into x...
******************************************************

	JSR PRNTLOOP
	LDA #3	 ;Set CV to 3rd line 
	STA CV
	JSR CROUT	 ;  and col 1 
	JSR MLI	 ;Call the MLI (Remember, this code executes at $1000) 
	DC.B GETPFXCALL
	DC.W PREFIX
	LDX PATH	 ;Get PREFIX length 
	LDA #0	 ;Put a 0 at end of Prefix 
	STA PATH+1,X

******************* See Rev Note #69 *******************

	LDX PATH	 ; Get length byte back.
	BEQ NILPFX	 ; Branch if no prefix to display!!
********************************************************

********************* Rev Note #55  *******************

*LDA #0 ;Put a 0 at end of Prefix 
*STA PATH+1,X
*LDA #>PATH+1 ;Put the prefix address in print loop 
*STA LOOP+1 
*LDA #<PATH 
*STA LOOP+2
*JSR PRNTLOOP

M1	LDA PATH,X	;Display prefix directly
	ORA #$80	;Set hi bit for NORMAL text.
	STA LINE3-1,X	;to the screen.
	DEX	;Next....
	BNE M1	;Branch until prefix displayed.
******************************************************

******************* See Rev Note #69 *******************

NILPFX
********************************************************
	LDX #0
	DEC CV
	JSR CROUT	;Put the cursor on the first char 
GETKEY	JSR RDKEY	;Wait for keyboard input 
	CMP #$8D	;Is it CR? 
	BEQ GOTPFX	;Yes, and we accept what was entered 
	PHA	;NO, save the char 
	JSR CLEOL	;Clear rest of line 
	PLA	;GET char back 
	CMP #$9B	;Is it ESC? 
	BEQ START	;Yes, start over again 
	CMP #$98	;If it is CTRL-X, start over. 
RESTRT	BEQ START	;(Used as an extended BEQ from PRMPT) 
	CMP #$89	;Is it TAB? 
	BEQ BADKEY	;No good if it is! 
	CMP #$FF	;Delete? 
	BEQ X2	;Branch if it is
	CMP #$88	;Back Space?
	BNE NOTBS	;Branch if not 
X2	CPX #$0	;If it is, are we at col 0? 
	BEQ *+5	;If col 0, do nothing 
	DEC CH	;else move left 1 char 
	DEX	;decrement char count, 
	JSR CLEOL	;clear rest of line 
	JMP GETKEY	;Go get another char 
NOTBS	BCS MAYBE
BADKEY	JSR BELL	;Ring the speaker (bell) if it isn't. 
	JMP GETKEY
MAYBE	CMP #$DB	;Ok, is it below 'Z'? 
	BCC *+4	;Branch if yes 
	AND #$DF	;If not, shift it up upper case 
	CMP #$AE	;Is it below '.'? 
	BCC BADKEY	;If yes, it ain't good! 
	CMP #$DB	;Is it above 'Z'? 
	BCS BADKEY	;If so, it also ain't good 
	CMP #$BA	;Is it below ':'? ('.' - '9' range) 
	BCC GOODKEY	;Yes, it's good! 
	CMP #$C1	;If not, is it at or above 'A'? ('A' - 'Z') 
	BCC BADKEY	;No, reject it 
GOODKEY	INX	;IT'S OK.  Hallelulah! 
	CPX #39	;Were there more than 39 chars? 
	BCS RESTRT	;Yes, too many!  Go restart. 
	STA PATH,X	;No, save the lucky char 
	JSR COUT	;Print it 
	JMP GETKEY	;and go get another. 
GOTPFX
	CPX #$0	 ;OK, is our Prefix length (chars entered)=0? 
	BEQ PRMPT	 ;If yes, don't bother re-setting it 
	STX PATH	 ;Set prefix length 
	JSR MLI	 ;Call the MLI 
	DC.B SETPFXCALL
	DC.W PREFIX
	BCC PRMPT	 ;If ok, go get Filename
	JSR BELL	 ;If not, ring Bell 
	LDA #0	 ;  and try again 
BADPFX	BEQ RESTRT	 ;Z flag must be set for extended Branch
PRMPT	JSR HOME	 ;Clear the screen for application name 
PRMPT1	JSR CROUT	 ;Output a CR 

********************* Rev Note #55  *******************

	LDX #<MSG-MSGSTART	 ; Load offset to message into x...
******************************************************

	JSR PRNTLOOP
RETRYRICH	LDA #3	 ;Set CV to 3rd line 
	STA CV
	JSR CROUT	 ;  and col 1 
	LDX #0

********************* Rev Note #69  *******************

*LOOP1 LDA #PROMPT ;Our cursor char 
* JSR COUT ;Print it 
* DEC CH ;  and point to it so a typed 
* LDA KBD ;  character can replace it. 
*BPL *-3 ;(We'll wait here till a keypress.) 
* STA STB ;Hit the strobe 

LOOP1
	JSR RDKEY
	CMP #$9B	 ;ESC
	BNE NOTESC	 
	LDA CH
	BNE PRMPT
	BEQ BADPFX	 ;If ESC in col 0 go get PREFIX again  
NOTESC	CMP #$98	 ;CTRL-X
EXTNDBR	BEQ PRMPT	 ;(Used as a branch extender) 
	CMP #$89	 ;TAB
	BEQ NOTGUD
	CMP #$FF	 ;Delete?
	BEQ X3
	CMP #$88	 ;BACK SPACE
	BNE X1
X3	JMP EATEM	 ;Eat the previous character. 
X1	BCS GETIN1	 ;> $88 and the char may be acceptable 
NOTGUD	JSR BELL	 ;Ring the bell (speaker) 
	JMP LOOP1
GETIN1	CMP #$8D	 ;Is it a CR?
	BEQ DONE
	CMP #$DB	 ;> than Z 
	BCC *+4	 ;No. 
	AND #$DF	 ;Make sure its Upper case  
	CMP #$AE	 ;Is it "."?
	BCC NOTGUD	 ;Branch if less 
	CMP #$DB	 ;Must be less than "[". 
	BCS NOTGUD
	CMP #$BA	 ;OK if less than or equal to "9" 
	BCC ITSGUD
	CMP #$C1	 ;Else must be > than "A" 
	BCC NOTGUD
ITSGUD
	PHA
	JSR CLEOL
	PLA
	JSR COUT	 ;No, print it 
	INX
	CPX #39
	BCS EXTNDBR	 
	STA PATH,X	 
	JMP LOOP1	 ;Go get the next one 
DONE
	LDA #' '
	JSR COUT 	;After the CR, blank out the cursor. 
	STX PATH 	;Put the length in front of the name. 

*  At this point the specified Pathname is in PATH ($280)
*    and we can do a GET_FILE_INFO on it.

	JSR MLI
	DC.B INFOCALL
	DC.W INFO
	BCC INFOOK
	JMP ERROR
INFOOK	LDA TYPE
	CMP #$FF	 ;Is it a type SYS file?
	BEQ DOIT
	LDA #1	 ;Not SYS File
	JMP ERROR
DOIT		;It's a type SYS all right! 
	LDA #0
	STA CLSNUM
	JSR MLI
	DC.B CLOSECALL	 ;CLOSE all open files first
	DC.W CLS
	BCC CHKACS	 
	JMP ERROR

*  Now check for the proper access

CHKACS	LDA ACESS	 ;Get the allowed access 
	AND #1	 ;Is READ disabled? 
	BNE ACSOK	 ;No. Access ok. 
	LDA #$27	 ;I/O error 
	JMP ERROR	 ;Never returns! 
ACSOK
	JSR MLI
	DC.B OPENCALL
	DC.W OPN	 ;OPEN it. 
	BCC *+5
	JMP ERROR
	LDA REFNUM
	STA REEDNUM	 ;Spread REFNUM around
	STA EOFNUM

*  Ok it's OPEN, let's get the EOF

	JSR MLI
	DC.B EOFCALL
	DC.W EOF
	BCS ERROR
	LDA EOFB+2	 ;3rd of 3 bytes 
	BEQ EOFOK
	LDA #$27	 ;I/O ERROR even though the file is
	BNE ERROR	 ;  simply too large
EOFOK	LDA EOFB	 ;Move EOF to Read # bytes
	STA RCOUNT
	LDA EOFB+1
	STA RCOUNT+1
	JSR MLI
	DC.B READCALL	 ;Do the READ 
	DC.W REED
	PHP	;PUSH the processor status
	JSR MLI
	DC.B CLOSECALL	;Close it 
	DC.W CLS
	BCC *+6	 
	PLP 	;GET status back (it is irrevalent now)
	BNE ERROR	;(if CLOSE generated an error)
	PLP	;WE'RE here if CLOSE was OK
	BCS *-4	;JMP ERROR
	JMP ENTRY	 

EATEM
	LDA CH	 ;Is the cursor in col 0? 
	BEQ EATEMBAK	 ;Yes, ignore it. 
	DEX
	LDA #' '
	JSR COUT	 ;Blank out the cursor 
	DEC CH	 ;Point to last character 
	DEC CH	 ;  entered... 
	JSR COUT	 ;  and blank it too. 
	DEC CH	 ;Point to that location 
EATEMBAK	JMP LOOP1	 ;Go back & get the next char 

****************** See Rev Note #55  *****************

*PRNTLOOP LDX #0 ;Index into message
*LOOP LDA *,X ;CAUTION:  SELF-MODIFYING CODE 
* BEQ LOOPRTN ;  ADDR FILLED W/ LOC OF MESSAGE. 
* ORA #$80
* JSR COUT ;Print message on screen 
* INX 
* BNE LOOP ;Loop til done (rotisserie mode) 
*LOOPRTN RTS

PRNTLOOP
	LDA MSGSTART,X	;Display string, offset is in X.
	BEQ DONE1	;Branch if done.
	JSR COUT	;Output character...
	INX	;Next..
	BNE PRNTLOOP	;Branch always.
DONE1	RTS 	;Done.
****************************************************
ERROR
	STA ERRNUM
	LDA #$0C	 ;Put error message on line 13 
	STA CV
	JSR CROUT
	LDA ERRNUM
	CMP #1
	BNE NEXTERR

*************** See Rev Note #55  **************

* LDA #>ERR1 
* STA LOOP+1 
* LDA #<ERR1 
* STA LOOP+2 

	LDX #<ERR1-MSGSTART	 ; Load x with offset to message.
***********************************************
	BNE DOERROR
NEXTERR	CMP #$40	 
	BEQ ERROR3	 
	CMP #$44	  
	BEQ ERROR3
	CMP #$45	 
	BEQ ERROR3
	CMP #$46	 
	BEQ ERROR3

*************** See Rev Note #55  **************

* LDA #>ERR2
* STA LOOP+1 
* LDA #<ERR2
* STA LOOP+2 
	LDX #<ERR2-MSGSTART	 ; Load x with offset to message.
***********************************************
	BNE DOERROR

*************** See Rev Note #55  **************

*ERROR3 LDA #>ERR3
* STA LOOP+1
* LDA #<ERR3
* STA LOOP+2
ERROR3
	LDX #<ERR3-MSGSTART	 ; Load x with offset to message.
***********************************************
DOERROR	JSR PRNTLOOP

********************* Rev Note #69  *******************

* LDA #0 ; Printloop will leave A=0...See Rev Note #39
*STA CV
	JMP RETRYRICH

***********************************************************
MSGSTART
	MSB ON
MSG0	DC.B 'ENTER PREFIX (PRESS "RETURN" TO ACCEPT)'
	DC.B 0
MSG	DC.B 'ENTER PATHNAME OF NEXT APPLICATION'	 
	DC.B 0	 
ERR1	DC.B $87	 ;BELL
	DC.B 'NOT A TYPE "SYS" FILE'
	DC.B 0
ERR2	DC.B $87
	DC.B 'I/O ERROR            '	 
	DC.B 0	 
ERR3	DC.B $87
	DC.B 'FILE/PATH NOT FOUND  '	 
	DC.B 0

***********************************************************

INFO	DC.B $A	 ;10 PARAMETERS ON GFI
	DC.W PATH	 ;Pathname buffer pointer
ACESS	DC.B 0	 ;ACCESS
TYPE	DC.B 0	 ;File Type
	DS.B $0D	 ;All the rest are unimportant

OPN	DC.B 3	 ;3 parameters on an OPEN
	DC.W PATH
	DC.W $1800	 ;FCB Buffer
REFNUM	DC.B 0

CLS	DC.B 1
CLSNUM	DC.B 0	 ;REFERENCE #

REED	DC.B 4	 ;4 Parameters for a READ
REEDNUM	DC.B 0
	DC.W ENTRY	 ;SYS files always load at $2000
RCOUNT	DC.W 0
	DC.W 0

EOF	DC.B 2
EOFNUM	DC.B 0
EOFB	DS.B 3	 ;Three byte EOF

PREFIX	DC.B 1
PBUF	DC.W PATH	 

ZZSIZ	EQU *-HEREIN	 
ZZFRE	EQU $2FF-ZZSIZ

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/P8/P8.Drivers/TClock.n b/IIGS.601.SRC/GS.OS/P8/P8.Drivers/TClock.n
new file mode 100644
index 0000000..158c90d
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/P8/P8.Drivers/TClock.n
@@ -0,0 +1 @@
+
TCLOCK_P1	PROC	ORG $D742

;	This EdAsm/Asm816 source code file was converted to AsmIIGS
;	by EdAsmCVTIIGS version 1.0D3 on 1/24/89 at 10:39:28 AM

* Converted and reformatted by Monte Benaresh -- February 1989

		MACHINE	M6502
		longa	off
		longi	off

***********************************************************
*                                                         *
*          PRODOS 8 CLOCK DRIVER INTERFACE ROUTINE        *
*                                                         *
*           COPYRIGHT APPLE COMPUTER, INC., 1983-86       *
*                                                         *
*                    ALL RIGHTS RESERVED                  *
*                                                         *
***********************************************************

PRODOS		EQU	0
EDNET		EQU	1
OS		EQU	PRODOS

***************************************
*    CLOCK - PRODOS INTERFACE ROUTINE
*          BY JAMES R. HUSTON
*     WARNING: HARD CODED FOR SLOT 1
***************************************

TENS		EQU	$3A	 	;NO CONFLICT SINCE MONTH IS LAST PROCESSED. 
MONTH		EQU	$3A	 
WKDAY		EQU	$3B	 
DAY		EQU	$3C	 
HOUR		EQU	$3D	 
MINUTE		EQU	$3E	 

WTTCP		EQU	$C10B
RDTCP		EQU	$C108	 	;CLOCK READ ENTRY POINTS.  
CLKMODE		EQU	$538	 	;(+$CN=$5F8+N)
DATE		EQU	$BF90	 	;PRODOS DATE
TIME		EQU	$BF92	 	;PRODOS TIME.

INBUF		EQU	$200	 	;INPUT BUFFER.

READCLK		LDX	CLKSLT		 ;PRESERVE CURRENT MODE FOR THUNDERCLOCK
		LDA	CLKMODE,X
		PHA
		LDA	#$A3		 ;SEND NUMERIC MODE BYTE TO THUNDERCLOCK
		JSR	WTTCP
CLKSLT		EQU	*+2
		JSR	RDTCP		;READ MONTH, DAY OF WEEK, DAY OF MONTH, AND TIME
		CLC			;INTO INPUT BUFFER.
		LDX	#4		;INDEX FOR 5 VALUES
		LDY	#$C		;READ MINUTES FIRST, MONTH LAST.
CONVRT		LDA	INBUF,Y		;CONVERT VALUES TO BINARY.
		AND	#$7		;NO VALUE > 5 DECIMAL. 
		STA	TENS		;MULTIPLY 'TENS' PLACE VALUE. 
		ASL	A	 
		ASL	A	 
		ADC	TENS		;NOW IT'S TIMES 5.
		ASL	A		;NOW IT IS TIMES 10! 
		ADC	INBUF+1,Y	;ADD TO ASCII 'ONES' PLACE 
		SEC			;AND SUBTRACT OUT THE ASCII... 
		SBC	#$B0	 

CNVRT2		STA	MONTH,X		;SAVE CONVERTED VALUE.
		DEY			;INDEX TO NEXT LOWER VALUE.
		DEY
		DEY
		DEX			;ARE THERE MORE VALUES?
		BPL	CONVRT		;BRANCH IF THERE ARE.
		TAY			;ACC STILL CONTAINS MONTH, SAVE IN Y FOR NOW. 
		LSR	A	 
		ROR	A
		ROR	A
		ROR	A	 	;(HI BIT OF MONTH HELD IN CARRY)
		ORA	DAY
		STA	DATE	 	;SAVE LOW VALUE OF DATE.

		PHP			;SAVE HI BIT OF MONTH FOR NOW.
		AND	#$1F		;ISOLATE DAY AGAIN.
					;(WHEN MONTH >7 CARRY SET ACCOUNTED FOR IN FOLLOWING ADD) 
		ADC	TDAYS-1,Y	;REMEMBER THAT Y=MONTH.
		BCC	CNVRT3		;BRANCH NOT SEPT 13 THRU 30.
		ADC	#3		;ADJUST FOR MOD 7 WHEN DAY > 256. 
CNVRT3		SEC
CNVRT4		SBC	#7
		BCS	CNVRT4		;LOOP UNTIL LESS THAN 0.
		ADC	#7		;NOW MAKE IT IN THE RANGE OF 0-6. 
		SBC	WKDAY		;THE DELTA PROVIDES YEARS OFFSET.
		BCS	CNVRT5		;BRANCH IF POSITIVE.
		ADC	#7		;ELSE MAKE IT POSITIVE AGAIN.
CNVRT5		TAY			;LOOK UP YEAR! 
		LDA	YRADJ,Y
		PLP			;LASTLY, COMBINE WITH HI BIT OF MONTH.
		ROL	A
		STA	DATE+1		;AND SAVE IT.
		LDA	HOUR
		STA	TIME+1		;MOVE HOUR AND MINUTE TO PRODOS GLOBALS.
		LDA	MINUTE
		STA	TIME
		PLA
		LDX	CLKSLT		;RESTORE PREVIOUS MODE.
		STA	CLKMODE,X
		RTS			;ALL DONE...

; This table contains entries for the cumulative number of days in a year,
; one entry for each month.  The values are modulo 256.
;
; For example, at the beginning of January, 0 days of the year have elapsed.
; On July 1st, 181 days have elapsed.

TDAYS		DC.B	0		;January
		dc.b	31		;February
		dc.b	59		;March
		dc.b	90		;April
		DC.B	120		;May
		dc.b	151		;June
		dc.b	181		;July
		dc.b	211		;August	 
		DC.B	242		;September
		dc.b	20		;October (remember, MOD 256)
		dc.b	51		;November
		dc.b	81		;December	 

; The following table is used to look up the current year, based on the current
; month, day, and day of week.  The first entry in the table corresponds to the
; year in which January 1st falls on a Monday.  The second entry is the year which
; has January 1st on a Sunday, and so on backwards through the days of the week.
;
; To refresh the table (because time goes on...), start with the current year, look
; at your calendar and found out what day January 1st was on.  Fill in the appropriate
; entry in the table, then continue on for the next five years.
;
; While filling in new entries for the table, there should be one blank entry right
; next to a leap year entry.  In this case, copy the leap year entry into the blank
; entry.  (Keep in mind that the year 2000 is NOT a leap year!)
;

YRADJ		DC.B	96		;Monday
		dc.b	95		;Sunday
		dc.b	94		;Saturday
		dc.b	93		;Friday
		DC.B	98		;Thursday
		dc.b	97		;Wednesday
		dc.b	96		;Tuesday

		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/P8/P8.Drivers/XrwTot.n b/IIGS.601.SRC/GS.OS/P8/P8.Drivers/XrwTot.n
new file mode 100644
index 0000000..6c1c581
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/P8/P8.Drivers/XrwTot.n
@@ -0,0 +1 @@
+
org_val	equ  $D000
XRWTOT_P1	PROC org org_val
procstart

;	This EdAsm/Asm816 source code file was converted to AsmIIGS
;	by EdAsmCVTIIGS version 1.0D3 on 1/24/89 at 9:37:50 PM

* Converted and reformatted by Monte Benaresh -- February 1989

	MACHINE M65816
	longa off
	longi off

****************************************************
*
*          PRODOS 8 DISK II DRIVER (RWTS)
*
*         COPYRIGHT APPLE COMPUTER INC., 1980-1986
*
*             ALL RIGHTS RESERVED
*
*          REVISED 11/8/82 BY J.R.H.
*
****************************************************
PRODOS	EQU 0
EDNET	EQU 1
OS	EQU PRODOS	 

* org $d400 ; ** moved to xrw file **
****************************
*                         *
*     critical timing     *
*   requires page bound   *
*   considerations for    *
*      code and data      *
*     code-----           *
*   virtually the entire  *
*     'write' routine     *
*      must not cross     *
*     page boundaries.    *
*  critical branches in   *
*  the 'write', 'read',   *
*  and 'read adr' subrs   *
*  which must not cross   *
*  page boundaries are    *
*  noted in comments.     *
*                         *
****************************
*                         *
*         equates         *
*                         *
MAXCMD	EQU 4	 ;commands 0-3 only
WTEMP	EQU $3A	 
MIDNIB1	EQU WTEMP+1
MIDNIB2	EQU WTEMP+2
LSTNIB	EQU WTEMP+3
SLOTZ	EQU WTEMP+4
YEND	EQU WTEMP+5
DHPCMD	EQU $42	 
UNITNUM	EQU $43
BUF	EQU $44	 
BLOKNML	EQU $46
BLOKNMH	EQU BLOKNML+1

DVMOT	EQU $E8	 

************************
*                      *
*    device address    *
*     assignments      *
*                      *
************************
PHASEOFF	EQU $C080	;stepper phase off.
*phaseon equ $c081	;stepper phase on.
Q6L	EQU $C08C	;q7l,q6l=read
Q6H	EQU $C08D	;q7l,q6h=sense wprot
Q7L	EQU $C08E	;q7h,q6l=write
Q7H	EQU $C08F	;q7h,q6h=write store
****************************************
*
* equates for rwts and block
*
****************************************
MOTOROFF	EQU $C088
MOTORON	EQU $C089
DRV0EN	EQU $C08A
*drv1en equ $c08b
IBDERR	EQU $27	 
IBWPER	EQU $2B	 
IBNODRV	EQU $28	 

************************
*                      *
*       block i/o      * 
*                      * 
************************
BLOCKIO	CLD	;THIS must be first as it is an id value
	JSR RSETPHSE

* this is patch 76 part 1.  part 2 is in xrw2.
* this is patch 77, use to be 'lda q7l+14,x'.

	LDA Q7L,X	 ;turn off write enable please!!!

* (pad is just spare bytes but the number is critical for page alignment of tables later)

pad_start
PAD	EQU (pad_start-procstart) mod $100
	Dcb.B $09-PAD, $EA	;fill pad w/nops
	JSR DOCHECK
	BCS BADBLK	;branch if block # is out of range
BLKIO1	LDY #$5
TRKSEC	ASL A
	ROL IBTRK
	DEY
	BNE TRKSEC
	ASL A	 
	BCC TRKSC1	 
	ORA #$10	 ;adjust for upper 4 blks of trk. 
TRKSC1	LSR A
	LSR A
	LSR A	 
	LSR A	 
	PHA	;SAVE sector#
	JSR REGRWTS
	PLA	;RESTORE sector #
	BCS QUIT	;branch if error encountered. 
	INC BUF+1
	ADC #2	 
	JSR REGRWTS	;get second half of block. 
	DEC BUF+1
QUIT	LDA IBSTAT
	RTS

BADBLK	LDA #IBDERR	 ;i/o error
	SEC
	RTS

**************************
*                        *
*     read/write a       *
*   track and sector     *
*                        *
**************************

REGRWTS	LDY #1	;retry count
	STY SEEKCNT	;only one recalibrate per call
	STA IBSECT
	LDA UNITNUM	;get slot # for this operation
	AND #$70
	STA SLOTZ
	JSR CHKPREV	;make sure other drives in other slots are stopped.

* now check if the motor is on, then start it

	JSR CHKDRV	;set zero flag if motor stopped
	PHP	;SAVE test results
	LDA #DVMOT
	STA MONTIMEH
	LDA UNITNUM	;determine drive one or two
	CMP IOBPDN	;same drive used before?
	STA IOBPDN	;save it for next time
	PHP	;KEEP results of compare
	ASL A	;get drive number into carry
	LDA MOTORON,X	;turn on the drive
	BCC DRIVSEL	;branch if drive 1 selected
	INX	;SELECT drive 2
DRIVSEL	LDA DRV0EN,X
	PLP	;WAS it same drive?
	BEQ OK
	PLP	;MUST indicate drive off by setting zero flag)
	LDY #7	;delay 150 ms before stepping
DRVWAIT	JSR MSWAIT	;(on return a=0)
	DEY
	BNE DRVWAIT
	PHP 	;NOW zero flag set
OK	LDA DHPCMD	;make sure this command needs seeking.
	BEQ OK1	;branch if status check.
	LDA IBTRK	;get destination track
	JSR MYSEEK	;and go to it.

* now at the desired track.  was the motor
* on to start with?

OK1	PLP	;WAS motor on?
	BNE TRYTRK	;if so, don't delay, get it today!

* motor was off, wait for it to speed up.

MOTOF	LDA #1	;wait exactly 100 us for each count in montime
	JSR MSWAIT	 
	LDA MONTIMEH	 
	BMI MOTOF	;count up to 0000

****************************************
*
* motor should be up to speed.
* if it still looks stopped then 
* the drive is not present.
*
****************************************
	JSR CHKDRV	;is drive present?
	BEQ HNDLERR	;branch if no drive 

* now check: if it is not the format disk command,
*  locate the correct sector for this operation.

TRYTRK	LDA DHPCMD	;get command code #
	BEQ STATCMD	;if $00, then status command. 
	LSR A	;set carry=1 for read, 0 for write
	BCS TRYTRK2	;must prenibblize for write.
	JSR PRENIB16
TRYTRK2	LDY #$40	;only 64 retries of any kind
	STY RETRYCNT
TRYADR	LDX SLOTZ	;get slot num into x-reg
	JSR RDADR16	;read next address field
	BCC RDRIGHT	;if read it right, hurrah!
TRYADR2
	DEC RETRYCNT	;another mistaek!!
	BPL TRYADR	;well, let it go this time.,
	LDA #IBDERR	;anticipate a bad drive error
	DEC SEEKCNT	;only recalibrate once!
	BNE HNDLERR	;tried to recalibrate a second time, error!
	LDA CURTRK
	PHA	;SAVE track we really want
	ASL A	 
	ADC #$10	;pretend track is 8>curtrk 
	LDY #$40
	STY RETRYCNT	;reset retrys to 64 max.
	BNE RECAL1	;branch always 

* have now read an address field correctly.
* make sure this is the track, sector, and volume desired.

RDRIGHT	LDY TRACK	;on the right track?
	CPY CURTRK
	BEQ RTTRK	;if so, good

* recalibrating from this track

	LDA CURTRK	;preserve destination track
	PHA
	TYA
	ASL A	;(washing machine fix!)
RECAL1	JSR SETTRK
	PLA
	JSR MYSEEK
	BCC TRYADR	;go ahead and recalibrate

* drive is on right track, check volume mismatch

RTTRK	LDA SECT	;check if this is the right sector
	CMP IBSECT
	BNE TRYADR2	;no, try another sector
	LDA DHPCMD	;read or write?
	LSR A	;the carry will tell.
	BCC WRIT	;carry was set for read operation,
	JSR READ16	;cleared for write
	BCS TRYADR2	;carry set upon return if bad read

ALLDONE		;was clc
	LDA #$0	;no error
	DC.B $D0	;branch never (skip 1 byte)
HNDLERR	SEC	;INDICATE an error
ALDONE1	STA IBSTAT	;give him error#
	LDX SLOTZ	;get the slot offset
	LDA MOTOROFF,X	;turn it off...
	RTS	;ALL finished! 

WRIT	JSR WRITE16	 ;write nybbles now
STATDNE	BCC ALLDONE	 ;if no errors.
	LDA #IBWPER	 ;disk is write protected!!
	BNE HNDLERR	 ;branch always 

STATCMD	LDX SLOTZ	 
	LDA Q6H,X	 ;test for write protected. 
	LDA Q7L,X
	ROL A	 ;write protect-->carry-->bit 0=1
	LDA Q6L,X	 ;keep in read mode...
	JMP STATDNE	 ;branch always taken.

* this is the 'seek' routine
*  seeks track 'n' in slot #x/$10
* if drivno is negative, on drive 0
* if drivno is positive, on drive 1

MYSEEK	ASL A	;assume two phase stepper.
	STA TRACK	;save destination track(*2)
	JSR ALLOFF	;turn all phases off to be sure.
	JSR DRVINDX	;get index to previous track for current drive
	LDA DRV0TRK,X
	STA CURTRK	;this is where i am
	LDA TRACK	;and where i'm going to
	STA DRV0TRK,X
	JSR SEEK	;go there!
ALLOFF	LDY #3	;turn off all phases before returning
NXOFF	TYA	;(SEND phase in acc.)
	JSR CLRPHASE	;carry is clear, phases shold be turned off
	DEY
	BPL NXOFF
	LSR CURTRK	;divide back down
	CLC
	RTS	;ALL off... now it's dark

**************************
*                        *
*  fast seek subroutine  *
**************************
*                        *
*    on entry ----       *
*                        *
*  x-reg holds slotnum   *
*         times $10.     *
*                        *
*  a-reg holds desired   *
*         halftrack.     *
*         (single phase) *
*                        *
*  curtrk holds current  *
*          halftrack.    *
*                        *
*    on exit -----       *
*                        *
*  a-reg uncertain.      *
*  y-reg uncertain.      *
*  x-reg undisturbed.    *
*                        *
*  curtrk and trkn hold  *
*      final halftrack.  *
*                        *
*  prior holds prior     *
*    halftrack if seek   *
*    was required.       *
*                        *
*  montimel and montimeh *
*    are incremented by  *
*    the number of       *
*    100 usec quantums   *
*    required by seek    *
*    for motor on time   *
*    overlap.            *
*                        *
* --- variables used --- *
*                        *
*  curtrk, trkn, count,  *
*    prior, slottemp     *
*    montimel, montimeh  *
*                        *
**************************

SEEK	STA TRKN	;save target track
	CMP CURTRK	;on desired track?
	BEQ SETPHASE	;yes,energize phase and return
	LDA #$0
	STA TRKCNT	;halftrack count.
SEEK2	LDA CURTRK	;save curtrk for
	STA PRIOR	;delayed turnoff.
	SEC
	SBC TRKN	;delta-tracks.
	BEQ SEEKEND	;br if curtrk=destination
	BCS OUT	;(move out, not in)
	EOR #$FF	;calc trks to go.
	INC CURTRK	;incr current track (in).
	BCC MINTST	;(always taken)
OUT	ADC #$FE	;calc trks to go.
	DEC CURTRK	;decr current track (out).
MINTST	CMP TRKCNT
	BCC MAXTST	;and 'trks moved'.
	LDA TRKCNT
MAXTST	CMP #$9
	BCS STEP2	;if trkcnt>$8 leave y alone (y=$8).
	TAY	;ELSE set acceleration index in y
	SEC
STEP2	JSR SETPHASE
	LDA ONTABLE,Y	;for 'ontime'.
	JSR MSWAIT	;(100 usec intervals)
	LDA PRIOR
	CLC	;FOR phaseoff
	JSR CLRPHASE	;turn off prior phase
	LDA OFFTABLE,Y	;then wait 'offtime'.
	JSR MSWAIT	;(100 usec intervals)
	INC TRKCNT	;'tracks moved' count.
	BNE SEEK2	;(always taken)
SEEKEND	JSR MSWAIT	;settle 25 msec
	CLC	;SET for phase off
SETPHASE	LDA CURTRK	;get current track
CLRPHASE	AND #3	;mask for 1 of 4 phases
	ROL A	;double for phaseon/off index
	ORA SLOTZ	 
	TAX
	LDA PHASEOFF,X	;turn on/off one phase
	LDX SLOTZ	;restore x-reg
	RTS	;AND return

**************************
*                        *
*     7-bit to 6-bit     *
*    'deniblize' tabl    *
*   (16-sector format)   *
*                        *
*      valid codes       *
*    $96 to $ff only.    *
*                        *
*  codes with more than  *
*  one pair of adjacent  *
*   zeroes or with no    *
*  adjacent ones (except *
*   bit 7) are excluded. *
*                        *
*  nibls in the ranges   *
*  of $a0-$a3, $c0-$c7,  *
*  $e0-$e3 are used for  *
*  other tables since no *
*  valid nibls are in    *
*  these ranges.         *
**************************

DNIBL	EQU *-$96	 
	DC.B $00,$04	 
	DC.B $FF,$FF,$08,$0C
	DC.B $FF,$10,$14,$18
TWOBIT3	DC.B $00,$80,$40,$C0	 ;used in fast prenib as lookup for 2-bit quantities. 
	DC.B $FF,$FF,$1C,$20	 
	DC.B $FF,$FF,$FF,$24	 
	DC.B $28,$2C,$30,$34	 
	DC.B $FF,$FF,$38,$3C	 
	DC.B $40,$44,$48,$4C	 
	DC.B $FF,$50,$54,$58	 
	DC.B $5C,$60,$64,$68	 
TWOBIT2	DC.B $00,$20,$10,$30	 ;used in fast prenib. 
ENDMRKS	DC.B $DE,$AA,$EB,$FF	 ;table using 'unused' nibls ($c4,$c5,$c6,$c7) 
	DC.B $FF,$FF,$FF,$6C	 
	DC.B $FF,$70,$74,$78	 
	DC.B $FF,$FF,$FF,$7C	 
	DC.B $FF,$FF,$80,$84	 
	DC.B $FF,$88,$8C,$90	 
	DC.B $94,$98,$9C,$A0	 
TWOBIT1	DC.B $00,$08,$04,$0C	 ;used in fast prenib. 
	DC.B $FF,$A4,$A8,$AC	 
	DC.B $FF,$B0,$B4,$B8	 
	DC.B $BC,$C0,$C4,$C8	 
	DC.B $FF,$FF,$CC,$D0	 
	DC.B $D4,$D8,$DC,$E0	 
	DC.B $FF,$E4,$E8,$EC	 
	DC.B $F0,$F4,$F8,$FC	 

;   page align the following tables.
***************************
*                         *
*     6-bit to 2-bit      *
*   conversion tables.    *
*                         *
* dnibl2 abcdef-->0000fe  *
* dnibl3 abcdef-->0000dc  *
* dnibl4 abcdef-->0000ba  *
*                         *
***************************
*                         *
*     6-bit to 7-bit      *
*  nibl conversion table  *
*                         *
*   codes with more than  *
*   one pair of adjacent  *
*    zeroes or with no    *
*   adjacent ones (except *
*     b7) are excluded.   *
*                         *
***************************

DNIBL2	DC.B 0
DNIBL3	DC.B 0
DNIBL4	DC.B 0
NIBL	DC.B $96,2,0,0,$97
	DC.B 1,0,0,$9A,3,0,0,$9B
	DC.B 0,2,0,$9D,2,2,0,$9E
	DC.B 1,2,0,$9F,3,2,0,$A6
	DC.B 0,1,0,$A7,2,1,0,$AB
	DC.B 1,1,0,$AC,3,1,0,$AD
	DC.B 0,3,0,$AE,2,3,0,$AF
	DC.B 1,3,0,$B2,3,3,0,$B3
	DC.B 0,0,2,$B4,2,0,2,$B5
	DC.B 1,0,2,$B6,3,0,2,$B7
	DC.B 0,2,2,$B9,2,2,2,$BA
	DC.B 1,2,2,$BB,3,2,2,$BC
	DC.B 0,1,2,$BD,2,1,2,$BE
	DC.B 1,1,2,$BF,3,1,2,$CB
	DC.B 0,3,2,$CD,2,3,2,$CE
	DC.B 1,3,2,$CF,3,3,2,$D3
	DC.B 0,0,1,$D6,2,0,1,$D7
	DC.B 1,0,1,$D9,3,0,1,$DA
	DC.B 0,2,1,$DB,2,2,1,$DC
	DC.B 1,2,1,$DD,3,2,1,$DE
	DC.B 0,1,1,$DF,2,1,1,$E5
	DC.B 1,1,1,$E6,3,1,1,$E7
	DC.B 0,3,1,$E9,2,3,1,$EA
	DC.B 1,3,1,$EB,3,3,1,$EC
	DC.B 0,0,3,$ED,2,0,3,$EE
	DC.B 1,0,3,$EF,3,0,3,$F2
	DC.B 0,2,3,$F3,2,2,3,$F4
	DC.B 1,2,3,$F5,3,2,3,$F6
	DC.B 0,1,3,$F7,2,1,3,$F9
	DC.B 1,1,3,$FA,3,1,3,$FB
	DC.B 0,3,3,$FC,2,3,3,$FD
	DC.B 1,3,3,$FE,3,3,3,$FF

NBUF2	DS.B $56	 ;nibl buffer for read/write of low 2-bits of each byte.


IBTRK	DC.B $00	 
IBSECT	DC.B $00	 
IBSTAT	DC.B $00	 
IOBPDN	DC.B $00	 
CURTRK	DC.B $00	 
DRV0TRK	EQU *-2	 
	DC.B 0,0,0,0,0,0,0	 ;for slots 1 thru 7 
	DC.B 0,0,0,0,0,0,0	 ;drives 1 & 2
RETRYCNT	DS.B 1	 
SEEKCNT	DS.B 1	 

************************
*                      *
*    readadr----       *
*                      *
************************
COUNT		;'must find' count.
LAST	DS.B 1	;'odd bit' nibls.
CSUM	DS.B 1	;used for address header cksum
CSSTV	DS.B 4	;four bytes,
*       checksum, sector, track, and volume.
SECT	EQU CSSTV+1
TRACK	EQU CSSTV+2	 
VOLUME	EQU CSSTV+3	 

TRKCNT	EQU COUNT	 ;halftrks moved count.
PRIOR	DS.B 1	 
TRKN	DS.B 1	 

************************
*                      *
*    mswait ----       *
*                      *
************************
MONTIMEL	EQU CSSTV+2	 ;motor-on time
MONTIMEH	EQU MONTIMEL+1	 ;counters.

**************************
*                        *
*  phase on-, off-time   *
*   tables in 100-usec   *
*   intervals. (seek)    *
*                        *
**************************

ONTABLE	DC.B 1,$30,$28
	DC.B $24,$20,$1E
	DC.B $1D,$1C,$1C
OFFTABLE	DC.B $70,$2C,$26
	DC.B $22,$1F,$1E
	DC.B $1D,$1C,$1C

**************************
*                        *
*   mswait subroutine    *
*                        *
**************************
*                        *
*  delays a specified    *
*   number of 100 usec   *
*   intervals for motor  *
*   on timing.           *
*                        *
*    on entry ----       *
*                        *
*  a-reg: holds number   *
*        of 100 usec     *
*        intervals to    *
*        delay.          *
*                        *
*    on exit -----       *
*                        *
*  a-reg: holds $00.     *
*  x-reg: holds $00.     *
*  y-reg: unchanged.     *
*  carry: set.           *
*                        *
*  montimel, montimeh    *
*   are incremented once *
*   per 100 usec interval*
*   for moton on timing. *
*                        *
*    assumes ----        *
*                        *
*   1 usec cycle time    *
*                        *
**************************

MSWAIT	LDX #$11
MSW1	DEX	;DELAY 86 usec.
	BNE MSW1
	INC MONTIMEL
	BNE MSW2	;double-byte
	INC MONTIMEH	;increment.
MSW2	SEC
	SBC #$1	;done 'n' intervals?
	BNE MSWAIT	;(a-reg counts)
	RTS


****************************
*                          *
*    read address field    *
*        subroutine        *
*    (16-sector format)    *
*                          *
****************************
*                          *
*    reads volume, track   *
*        and sector        *
*                          *
*    on entry ----         *
*                          *
*  xreg: slotnum times $10 *
*                          *
*  read mode (q6l, q7l)    *
*                          *
*    on exit -----         *
*                          *
*  carry set if error.     *
*                          *
*  if no error:            *
*    a-reg holds $aa.      *
*    y-reg holds $00.      *
*    x-reg unchanged.      *
*    carry clear.          *
*                          *
*    csstv holds chksum,   *
*      sector, track, and  *
*      volume read.        *
*                          *
*    uses temps count,     *
*      last, csum, and     *
*      4 bytes at csstv.   *
*                          *
*     expects ----         *
*                          *
*   original 10-sector     *
*  normal density nibls    *
*   (4-bit), odd bits,     *
*   then even.             *
*                          *
*     caution ----         *
*                          *
*         observe          *
*    'no page cross'       *
*      warnings on         *
*    some branches!!       *
*                          *
*     assumes ----         *
*                          *
*    1 usec cycle time     *
*                          *
****************************

RDADR16	LDY #$FC
	STY COUNT	;'must find' count.
RDASYN	INY
	BNE RDA1	;low order of count.
	INC COUNT	;(2k nibls to find
	BEQ RDERR	;adr mark, else err)
RDA1	LDA Q6L,X	;read nibl.
	BPL RDA1	;*** no page cross! ***
RDASN1	CMP #$D5	;adr mark 1?
	BNE RDASYN	;(loop if not)
	NOP	;ADDED nibl delay.
RDA2	LDA Q6L,X
	BPL RDA2	;*** no page cross! ***
	CMP #$AA	;adr mark 2?
	BNE RDASN1	;(if not, is it am1?)
	LDY #$3	;index for 4-byte read.
*            (added nibl delay)
RDA3	LDA Q6L,X
	BPL RDA3	 ;*** no page cross! ***
	CMP #$96	 ;adr mark 3?
	BNE RDASN1	 ; (if not, is it am1?)
	SEI ;NO	 interupts until address is tested.(carry is set) 
	LDA #$0	 ;init checksum.
RDAFLD	STA CSUM
RDA4	LDA Q6L,X	 ;read 'odd bit' nibl.
	BPL RDA4	 ;*** no page cross! ***
	ROL A	 ;align odd bits, '1' into lsb.
	STA LAST	 ; (save them)
RDA5	LDA Q6L,X	 ;read 'even bit' nibl.
	BPL RDA5	 ;*** no page cross! ***
	AND LAST	 ;merge odd and even bits.
	STA CSSTV,Y	 ;store data byte.
	EOR CSUM
	DEY
	BPL RDAFLD	;loop on 4 data bytes.
	TAY	;IF	 final checksum
	BNE RDERR	;nonzero, then error.
RDA6	LDA Q6L,X	;first bit-slip nibl.
	BPL RDA6	;*** no page cross! ***
	CMP #$DE
	BNE RDERR	;error if nonmatch.
	NOP	;DELAY nop ;delay

RDA7	LDA Q6L,X	;second bit-slip nibl.
	BPL RDA7	;*** no page cross! ***
	CMP #$AA
	BNE RDERR	;error if nonmatch.
	CLC	;CLEAR carry on
	RTS	;normal read exits.
RDERR	SEC
	RTS

**************************
*                        *
*     read subroutine    *
*   (16-sector format)   *
*                        *
**************************
*                        *
*   reads encoded bytes  *
*  into nbuf1 and nbuf2  *
*                        *
*  first reads nbuf2     *
*          high to low,  *
*  then reads nbuf1      *
*          low to high.  *
*                        *
*    on entry ----       *
*                        *
*  x-reg: slotnum        *
*         times $10.     *
*                        *
*  read mode (q6l, q7l)  *
*                        *
*    on exit -----       *
*                        *
*  carry set if error.   *
*                        *
*  if no error:          *
*     a-reg holds $aa.   *
*     x-reg unchanged.   *
*     y-reg holds $00.   *
*     carry clear.       *
*    caution -----       *
*                        *
*        observe         *
*    'no page cross'     *
*      warnings on       *
*    some branches!!     *
*                        *
*    assumes ----        *
*                        *
*   1 usec cycle time    *
*                        *
**************************

READ16	TXA	;GET slot #.
	ORA #$8C	;prepare mods to read routine.
	STA RD4+1	;warning: the read routine is self modified!!!
	STA RD5+1
	STA RD6+1
	STA RD7+1
	STA RD8+1
	LDA BUF	;modify storage addresses also.
	LDY BUF+1
	STA REF3+1
	STY REF3+2
	SEC
	SBC #$54
	BCS RD16B	;branch if no borrow.
	DEY
RD16B	STA REF2+1
	STY REF2+2
	SEC
	SBC #$57
	BCS RD16C	;branch if no borrow.
	DEY
RD16C	STA REF1+1
	STY REF1+2
	LDY #$20	;'must find count'
RSYNC	DEY
	BEQ RDERR2	;branch if can't find data header marks.
RD1	LDA Q6L,X
	BPL RD1
RSYNC1	EOR #$D5	;first data mark.
	BNE RSYNC
	NOP	;WASTE a little time...
RD2	LDA Q6L,X
	BPL RD2
	CMP #$AA	;data mark 2
	BNE RSYNC1	;if not, check for first again.
	NOP
RD3	LDA Q6L,X
	BPL RD3
	CMP #$AD	;data mark 3
	BNE RSYNC1	;if not, check for data mark 1 again.
	LDY #$AA
	LDA #0
RDATA1	STA WTEMP	;use zpage for checksum keeping.
RD4	LDX $C0EC	;warning: self modified.
	BPL RD4
	LDA DNIBL,X
	STA NBUF2-$AA,Y	;save the two-bit groups in nbuf.
	EOR WTEMP	;update checksum.
	INY	;BUMP to next nbuf position.
	BNE RDATA1	;loop for all $56 two-bit groups.
	LDY #$AA	;now read directly into user buffer.
	BNE RD5	;branch always taken!!!

RDERR2	SEC
	RTS

REF1	STA $1000,Y	;warning: self modified!

RD5	LDX $C0EC
	BPL RD5
	EOR DNIBL,X	;get actual 6-bit data from dnib table.
	LDX NBUF2-$AA,Y	;get associated two-bit pattern.
	EOR DNIBL2,X	;and combine to form whole byte.
	INY
	BNE REF1	;loop for $56 bytes.
	PHA	;SAVE this byte for now, no time to store...
	AND #$FC	;strip low bits...
	LDY #$AA	;prepare for next $56 bytes.
RD6	LDX $C0EC
	BPL RD6
	EOR DNIBL,X
	LDX NBUF2-$AA,Y
	EOR DNIBL3,X
REF2	STA $1000,Y	;warning: self modified.
	INY
	BNE RD6	;loop until this group of $56 read in.

RD7	LDX $C0EC
	BPL RD7
	AND #$FC
	LDY #$AC	;last group is $54 long.
RDATA2	EOR DNIBL,X
	LDX NBUF2-$AC,Y
	EOR DNIBL4,X	;combine to form full byte.
REF3	STA $1000,Y
RD8	LDX $C0EC	;warning: self modified.
	BPL RD8
	INY
	BNE RDATA2
	AND #$FC
	EOR DNIBL,X	;check sum ok?
	BNE RDERR1	;branch if not.
	LDX SLOTZ	;test end marks.
RD9	LDA Q6L,X
	BPL RD9
	CMP #$DE
	CLC
	BEQ RDOK	;branch if good trailer...
RDERR1	SEC
RDOK	PLA 	;PLACE last byte into user buffer.
	LDY #$55
	STA (BUF),Y
	RTS


* this subroutine sets the slot dependent track
* location.

SETTRK	JSR DRVINDX	 ;get index to drive number.
	STA DRV0TRK,X
	RTS

*****************************************
*
* subr to tell if motor is stopped
*
* if motor is stopped, controller's
* shift reg will not be changing.
*
* return y=0 and zero flag set if it is stopped.
*
*****************************************

CHKDRV	LDX SLOTZ
CHKDRV0	LDY #0	;init loop counter
CHKDRV1	LDA Q6L,X	;read the shift reg
	JSR CKDRTS	;delay
	PHA
	PLA	;MORE delay
	CMP Q6L,X 	;has shift reg changed?
	BNE CKDRTS	;yes, motor is moving
	LDA #IBNODRV	;anticipate error.
	DEY	;NO,DEC retry counter
	BNE CHKDRV1	;and try 256 times
CKDRTS	RTS	;THEN return

DRVINDX	PHA 	;PRESERVE acc.
	LDA UNITNUM	 
	LSR A
	LSR A
	LSR A
	LSR A	 
	CMP #$8
	AND #$7
	ROL A
	TAX 	;INTO x for index to table
	PLA	;RESTORE acc.
	RTS

************************
*                      *
*      write subr      *
*  (16-sector format)  *
*                      *
************************
*                      *
*   writes data from   *
*    nbuf1 and buf     *
*                      *
*  first nbuf2,        *
*      high to low.    *
*  then direct from    * 
*  (buf), low to high. * 
* self modified code!! *
*   on entry ----      *
*                      *
*   x-reg: slotnum     *
*        times $10.    *
*                      *
*                      *
*   on exit -----      *
*                      *
*  carry set if error. *
*   (w prot violation) *
*                      *
*  if no error:        *
*                      *
*    a-reg uncertain.  *
*    x-reg unchanged.  *
*    y-reg holds $00.  *
*    carry clear.      *
*                      *
*   assumes ----       *
*                      *
*  1 usec cycle time   *
*                      *
************************

WRITE16	SEC	;ANTICIPATE wprot err.
	LDA Q6H,X
	LDA Q7L,X	;sense wprot flag.
	BPL WR16
	JMP WEXIT	;exit if write protected
WR16	LDA NBUF2
	STA WTEMP
	LDA #$FF	;sync data.
	STA Q7H,X	;(5) goto write mode
	ORA Q6L,X	;(4)
	LDY #$4	;(2) for five nibls.
	NOP	;(2) nop ;(2)

	PHA	;(3) pha ;(3)

	PLA	;(4) pla ;(4)

WSYNC	PHA	;(3) exact timing.
	PLA	;(4) exact timing.
	JSR WNIBL7	;(13,9,6)  write sync.
	DEY	;(2) dey ;(2)

	BNE WSYNC 	;(3-)  must not cross page!
	LDA #$D5	;(2)  1st data mark.
	JSR WNIBL9	;(15,9,6)
	LDA #$AA	;(2)  2nd data mark.
	JSR WNIBL9	;(15,9,6)
	LDA #$AD	;(2)  3rd data mark.
	JSR WNIBL9	;(15,9,6)
	TYA	;(2) zero checksum 
	LDY #$56	;(2) nbuf2 index
	BNE WDATA1	;(3)branch always taken. 
WDATA0	LDA NBUF2,Y	;(4) prior 6-bit nibl. 
WDATA1	EOR NBUF2-1,Y	;(5) xor with current. 
	TAX	;(2) index to 7-bit nibl (nbuf2 must be on page boundary). 
	LDA NIBL,X	;(4) must not cross page boundary 
	LDX SLOTZ	;(3) restore slot index. 
	STA Q6H,X	;(5) store encoded byte.
	LDA Q6L,X	;(4) time must = 32 us per byte!
	DEY	;(2) dey ;(2)

	BNE WDATA0	;(3-) must not cross page boundary 
	LDA WTEMP	;(3) get prior nibl (from nbuf2).
WREFD1	LDY #0	;(2) warning: load value modified by prenib! 
WDATA2
WREFA1	EOR $1000,Y	;(4) warning: address modified by prenib!
	AND #$FC	;(2)
	TAX	;(2) index to nibl table
	LDA NIBL,X	;(4)
WREFD2	LDX #$60	;(2) warning: load value modified by prenib
	STA Q6H,X	;(5) write nibl.
	LDA Q6L,X	;(4) handshake.
WREFA2	LDA $1000,Y	;(4) prior nibl. warning: address modified by prenib.
	INY	;(2) all done with this page?
	BNE WDATA2	;(3-) loop until page end.

	LDA MIDNIB1	;(3) get next (precalculated and translated) nibl.
	BEQ WDONE	;(2+) branch if code writen was page aligned.
	LDA YEND	;(3) get byte address of last byte to be written.
	BEQ WDATA4	;(2+) branch if only 1 byte left to write.
	LSR A	;(2) test for odd or even last byte (carry set or clear)
	LDA MIDNIB1	;(3) restore nibl to acc.
	STA Q6H,X	;(5)
	LDA Q6L,X	;(4)
	LDA MIDNIB2	;(3) =byte 0 of second page. xor'd with byte 1 if above test set carry.
	NOP	;(2) waste time.
	INY	;(2) y=1
	BCS WRTODD	;(2+) branch if last byte to be odd.

WDATA3
WREFA3	EOR $1100,Y	;(4) warning: address modified by prenib.
	AND #$FC	;(2) strip low 2 bits.
	TAX	;(2) index to nibl table.
	LDA NIBL,X	;(4) get nibl.
WREFD3	LDX #$60	;(2) restore slot index. warning: modified by prenib.
	STA Q6H,X	;(5)
	LDA Q6L,X	;(4)
WREFA4	LDA $1100,Y	;(4) warning: modified by prenib.
	INY	;(2) got prior nibl, bump to next.
WREFA5	EOR $1100,Y	;(4) warning: modified by prenib.
WRTODD	CPY YEND	;(3) set carry if this is last nibl.
	AND #$FC	;(2)
	TAX	;(2)	 
	LDA NIBL,X	;(4)
WREFD4	LDX #$60	;(2) restore slot. warning: modified by prenib. 
	STA Q6H,X	;(5) 
	LDA Q6L,X	;(4) 
WREFA6	LDA $1100,Y	;(4) get prior. warning: these warnings are all the same.
	INY	;(2)	 
	BCC WDATA3	;(3-) branch if that was not the last.
	BCS WDNE1	;(3) waste 3 cycles, branch always
WDNE1	BCS WDONE	;(3) branch always

WDATA4	DC.B $AD,MIDNIB1,$00	;(4) absolute reference to zero page.
	STA Q6H,X	;(5)
	LDA Q6L,X	;(4)
	PHA	;(3) waste 14 us total.
	PLA	;(4) pla ;(4)

	PHA	;(3) pha ;(3)

	PLA	;(4)	 
WDONE	LDX LSTNIB	;(3) use last nibl (anded with $fc) for checksum.
	LDA NIBL,X	;(4)
WREFD5	LDX #$60	;(2) restore slot. warning: see above warnings...
	STA Q6H,X	;(5) 
	LDA Q6L,X	;(4)
	LDY #0	;(2) set y to index end mark table. 
	PHA	;(3) waste another 11 us. 
	PLA	;(4)	 
	NOP	;(2)	 
	NOP	;(2)	 
WRTENDMK	LDA ENDMRKS,Y	;(4) dm4, dm5, dm6, and turn off byte. 
	JSR WNIBL	;(15,6)    write it.
	INY	;(2) iny ;(2)

	CPY #4	;(2) have all end marks been written? 
	BNE WRTENDMK	;(3)
	CLC	;(2,9)	 
WEXIT	LDA Q7L,X	;out of write mode.
	LDA Q6L,X	;to read mode.
	RTS	;RETURN from write.

****************************
*                           *
*   7-bit nibl write subrs  *
*                           *
*   a-reg or'd prior exit   *
*       carry cleared       *
*                           *
****************************
WNIBL9	CLC	;(2) 9 cycles, then write.
WNIBL7	PHA	;(3) 7 cycles, then write.
	PLA	;(4) pla ;(4)

WNIBL	STA Q6H,X	;(5)  nibl write sub.
	ORA Q6L,X	;(4)  clobbers acc, not carry.
	RTS	;(6)	 

****************************
*                          *
*    preniblize subr       *
*   (16-sector format)     *
*                          *
****************************
*                          *
*  converts 256 bytes of   *
*  user data in (buf) into *
*  6 bit nibls into nbuf2  *
*  high 6 bits are trans-  * 
*  lated directly by the   *
*  write routines.         *
*                          *
*     on entry ----        *
*                          *
*  buf is 2-byte pointer   *
*    to 256 bytes of user  *
*    data.                 *
*                          *
*     on exit -----        *
*                          *
*  a,x,y undefined.        *
*  write routine modified  *
*  to do direct conversion *
*  of high 6 bits of users *
*  buffer data.            *
****************************

PRENIB16	LDA BUF	;first self modify addresses so we can be fast! 
	LDY BUF+1	;y contains high order address. 
	CLC	;ALL offsets are -$aa... 
	ADC #2	;the highest set is buf+$ac 
	BCC PRENIB1	;branch if no carry. 
	INY	;OTHERWISE add carry to high address. 
PRENIB1	STA PRN3+1 	;self mod 3 
	STY PRN3+2	 
	SEC
	SBC #$56	;middle set is buf+$56 
	BCS PRENIB2	;branch if no borrow 
	DEY	;OTHERWISE deduct from high..
PRENIB2	STA PRN2+1 	;self mod 2. 
	STY PRN2+2	 
	SEC
	SBC #$56	;low set is exactly buf.
	BCS PRENIB3
	DEY
PRENIB3	STA PRN1+1	;self mod 1.
	STY PRN1+2

	LDY #$AA	;count up to 0. 
PRENIB4	EQU *	 
PRN1	LDA $1000,Y	;fetch byte from lowest group. warning: self modified. 
	AND #$3	;strip high 6 bits. 
	TAX	;INDEX to 2 bit equiv.
	LDA TWOBIT1,X	 
	PHA	;SAVE pattern 
PRN2	LDA $1056,Y	;fetch from middle group 
	AND #3	 
	TAX
	PLA 	;RESTORE pattern.
	ORA TWOBIT2,X	;combine second group with first. 
	PHA 	;SAVE new pattern. 
PRN3	LDA $10AC,Y	;get highest group.
	AND #3	 
	TAX
	PLA	;RESTORE new pattern. 
	ORA TWOBIT3,X	;and form final nibl. 
	PHA
	TYA
	EOR #$FF
	TAX
	PLA
	STA NBUF2,X	;save in nibl buffer! 
	INY	;BUMP to next set. 
	BNE PRENIB4	;loop until all $56 nibls formed. 
	LDY BUF	;now prepare data bytes for write16 routine.
	DEY	;PREPARE end addr.
	STY YEND
	LDA BUF	 
	STA WREFD1+1	;warning: the following storage addresses starting
	BEQ WMOD1	;with 'wref' are referces into code space,
	EOR #$FF	;changed by this routine.
	TAY	;INDEX to last byte of page pointed to by buf.
	LDA (BUF),Y	;pre-niblize the last byte of the page with
	INY	;the first byte of the next page.
	EOR (BUF),Y
	AND #$FC
	TAX
	LDA NIBL,X	;get disk 7-bit nibl equivalent.
WMOD1	STA MIDNIB1
	BEQ WMOD3	;branch if data to be written is page aligned.
	LDA YEND	;find out if last byte is even or odd address.
	LSR A	;shift even/oddness into carry
	LDA (BUF),Y	;if even, then leave in tact.
	BCC WMOD2	;branch if odd.
	INY	;IF even, then pre-xor with byte 1.
	EOR (BUF),Y
WMOD2	STA MIDNIB2	;save result for write routine.
WMOD3	LDY #$FF	;index to last byte of data to be writen
	LDA (BUF),Y	;to be used as checksum.
	AND #$FC	;strip extra bits
	STA LSTNIB	;save it.
	LDY BUF+1	;now modify address reference to user data.
	STY WREFA1+2
	STY WREFA2+2
	INY
	STY WREFA3+2
	STY WREFA4+2
	STY WREFA5+2
	STY WREFA6+2
	LDX SLOTZ	;and lastly index references to controller.
	STX WREFD2+1	 
	STX WREFD3+1	 
	STX WREFD4+1	 
	STX WREFD5+1	 
	RTS	;ALL done.

CHKPREV	EOR IOBPDN	;same slot as last?
	ASL A
	BEQ CHKPV2	 
	LDA #01	 
	STA MONTIMEH
CHKPV1	LDA IOBPDN
	AND #$70
	TAX
	BEQ CHKPV2	;branch if no previous ever (boot only)
	JSR CHKDRV0	;find out if previous drive running. 
	BEQ CHKPV2	;branch if stopped.
	LDA #1	;waste some time.
	JSR MSWAIT
	LDA MONTIMEH
	BNE CHKPV1
CHKPV2	RTS

* ----------------- see rev notes 14, 18 & 70 -------------
RSETPHSE
	LDA UNITNUM	;get unit number
	AND #$7F	;map off hi bit
	TAX

* clear all the phases and force read mode


* patch 76 part 2. part 1 is in xrw1.

	LDA PHASEOFF+0,X	;make sure all motor phases
	LDA PHASEOFF+2,X	;are off.
	LDA PHASEOFF+4,X
	LDA PHASEOFF+6,X
	RTS
* ---------------------------------------------------------
DOCHECK
	LDA DHPCMD	;get the command number
	CMP #MAXCMD	;is the command allowable?
	BCS DOCHKBAD	;branch if not!
	LDA BLOKNML
	LDX BLOKNMH
	STX IBTRK	;calculate block's track & sector.
	BEQ DOCHKOK	;branch if block # in range.
	DEX	;ELSE test further
	BNE DOCHKBAD	;bad range
	CMP #$18	;must be <$118
	BCC DOCHKOK
DOCHKBAD	SEC	;SET carry for an error
	RTS

DOCHKOK	CLC	;NO error
	RTS

	if (*-procstart) > ($D6EC-org_val) then
	aerror 'Code length exceeds address $D6EC.'
	endif
	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/P8/clock.patch b/IIGS.601.SRC/GS.OS/P8/clock.patch
new file mode 100644
index 0000000..48fb48b
Binary files /dev/null and b/IIGS.601.SRC/GS.OS/P8/clock.patch differ
diff --git a/IIGS.601.SRC/GS.OS/Scripts/Build b/IIGS.601.SRC/GS.OS/Scripts/Build
new file mode 100644
index 0000000..bfecfd7
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Scripts/Build
@@ -0,0 +1 @@
+# Build
# By Bryan Atsatt
#
# Syntax:	Build [options] name [name [name]]
#
# Description:	This script will Make the specified makefile from the {MakeFiles} directory
# 		and execute its output.  It expects the filenames in the {MakeFiles} directory
#		to be in the format "make.name" where "name" is the name passed to Build.
#
# Options:	-l	Generate a listing in {Listings} directory. Forces -e option.
#		-o	Open makeout file so you can see what Make outputs.
#		-e	Force Make to rebuild everything.
#		-p	Write progress information to standard output.
#		-s	Suppress update dialog.	
#
# All of the Make options which do not have two parts (i.e. "-f makefile") can also
# be passed as options.
#
# The following names can be used in place of "os";  these are especially useful when creating
# listings because they will only list the named module:
#
#	scm, bank0, devmgr, devdisp, cache, init, gquit, loader
#
# If you type "all" for the name, all of the makefiles in the {MakeFiles} directory will be
# processed.   
#

#
# Check for zero parameters case...
#
if !{#}
	echo "### Build - Filename required." >> dev:StdOut
	exit 0
end

#
# Parse parameters as long as this is not a recursive call...
#
if !{MakeAllFlag}

	unset MakeParm
	unset MakeAllFlag
	unset FilesList
	unset ListFlag
	unset ListPartFlag
	unset AsmOptions
	unset LnkOptions
	unset WindowFlag
	unset SkipUpdate
	unset DoProgress
	
	set OSfiles "scm bank0 devmgr devdisp cache init gquit loader" 
	for Item in {Parameters}
		Begin
		if "{Item}" =~ /-l/ 
			set ListFlag "-l"
			set MakeParm "{MakeParm}-e "
		else if "{Item}" =~ /-o/
			open -n {WorkFolder}makeout > dev:null ³ dev:null
			set WindowFlag 1
		else if "{Item}" =~ /-s/
			set SkipUpdate 1
		else if "{Item}" =~ /-p/
			set DoProgress 1
		else if "{Item}" =~ /all/
			set MakeAllFlag 1 
		else if "{Item}" =~ /-?/
			set MakeParm "{MakeParm}{Item} "
		else
			set FilesList "{FilesList} {Item}"
		end
		set Parameters "{FilesList}"
		end
	end
	export	MakeAllFlag
	export	MakeParm
	export	ListFlag
	export	OSfiles
	export	DoProgress
	export	SkipUpdate
#
# If the {GSOS} variable is not set then we must set it as well as all the other variables
# required by our makefiles...
#
	if !{GSOS}

		directory ::
		set GSOS `directory`
		directory {GSOS}MakeFiles > dev:null ³ dev:null || ¶
		(loop
			alert "Please set the directory to GSOS..."
			directory `getfilename -d`
			set GSOS `directory`
			directory {GSOS}MakeFiles > dev:null ³ dev:null && break
			continue
		end)
		export GSOS
		directory {GSOS}Scripts
		execute {GSOS}Scripts:GSOSvariables
		set Commands "{Commands},{Scripts}"
		export Commands

		if !{SkipUpdate}
			set exit 0
			confirm -t 'Do you want to update your UserStartup script for GS/OS?'
			set Answer {status}
			if {Answer} == 5
				exit 0
			else if !{Answer} 
				search -q "# Set up for GS/OS project..." {MPW}UserStartup > dev:null ³ dev:null
				if {status}
					begin
						echo
						echo '#'
						echo '# Set up for GS/OS project...'
						echo '#'
						echo 'set GSOS '`echo {GSOS}`' ;export GSOS'
						echo 'execute {GSOS}Scripts:GSOSstartup'
					end >> {MPW}UserStartup
					alert 'Your UserStartup script has been updated for GS/OS...'
				else
					alert 'Your UserStartup script has already been updated, so no changes were made...'
				end
			end
		end
		set exit 1
	end

#
# If one of the parameters is "all", we will do a recursive call with all of
# the filenames in the MakeFiles directory...
#
	if {MakeAllFlag}
		set CurrentDir `directory`
		directory {MakeFiles}
		execute {Scripts}build `files make.Å`
		directory {CurrentDir}
		exit 0
	end
end

#
# Set up some variables, do a Make and execute its output for each file requested...
#
for File in {Parameters}

	if {DoProgress}
		echo "Making "{File}"..."
	end
	if "{File}" !~ /make.Å/
		set Prefix "make."
	else
		unset Prefix	
	end

	if "{ListFlag}"
		set AsmOptions "-l -m -lo {Listings}{File}.lst -pagesize 70"
		Export AsmOptions
		set LnkOptions "-l > {Listings}{File}.map"
		Export LnkOptions
	end

	set exit 0
	begin
		if {DoProgress}
			echo "set echo 1"
		end
		make {MakeParm} -f "{MakeFiles}{Prefix}{File}"
	end	> "{WorkFolder}makeout" ³ dev:null || 
		begin
			set exit 1
			for Item in {OSfiles}
				if "{File}"  == "{Item}"
					set File "os"
					if "{ListFlag}"
						unset ListFlag
						set ListPartFlag "{Item}"
						export ListPartFlag
					end
					break
				end
			end
			begin
				if {DoProgress}
					echo "set echo 1"
				end
				make {MakeParm} -f "{MakeFiles}{Prefix}{File}"
			end	> "{WorkFolder}makeout" ³ dev:null
		end
		set exit 1
	
	{WorkFolder}makeout
end

if {DoProgress}
	echo "Done."
end

if {WindowFlag}

	target {WorkFolder}makeout > dev:null ³ dev:null
end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Scripts/Build.Cocoon.GSFiles b/IIGS.601.SRC/GS.OS/Scripts/Build.Cocoon.GSFiles
new file mode 100644
index 0000000..5d15e27
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Scripts/Build.Cocoon.GSFiles
@@ -0,0 +1 @@
+#
# make sure the GSOS variable is initialized
#
set GSOS {GSProjects}GS.OS:
export GSOS

#
# Set up the shell variables...
#
execute {GSOS}Scripts:GSOSvariables

#
# Make the shell look in the Scripts folder for scripts...
#
set Commands "{Commands},{Scripts}"

#
# Now we can start the build of the new SCSI drivers
#
Build -e SCSIManager					# the SCSI device manager
Build -e HD.Driver						# the SCSI HD Driver
Build -e CD.Driver						# the CD-ROM driver
#
# Now we can start the build of GS/OS
#
Build -e OS
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Scripts/CancelActive b/IIGS.601.SRC/GS.OS/Scripts/CancelActive
new file mode 100644
index 0000000..b11c94f
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Scripts/CancelActive
@@ -0,0 +1 @@
+#	CancelActive - Cancel checkout of the active window
#
#	Usage:	Called by a userÐdefined menu item
#
#	CancelActive was cribbed from CheckInActive.  Instead of checking
#   in the active window, it cancels the checkout (reverting the changes).
#
#   CancelActive- hacked by Andy Stadler
#
#	© Apple Computer, Inc. 1988
#	All rights reserved.

Set Exit 0
Set error 0
Begin

	#	First see if the active window belongs to a project.
	
	(Set info "`ProjectInfo "{Active}"`" || Set error 1)
	Evaluate "{info}" =~ /Å,[0-9a-z.]+([¶+¶*])¨1 +Å/
	Evaluate "{info}" =~ /ÅProject: (ź)¨2 +Checked outÅ/
	If {error} ­ 0 || "{info}" == ""
		Alert "¶"{Active}¶" canÕt be cancelled because ¶
it doesnÕt belong to a project."
		Exit 0 
	End
	
	#	Find out if the active window is checked out for modification.

	If "'{¨1}'" ­ "'+'" &&  "'{¨1}'" ­ "'*'"
		Alert "¶"{Active}¶" canÕt be cancelled because ¶
it wasnÕt checked out for modification."
		Exit 0 
	End
	
	#	Is the right project mounted?
	
	(Set info "`ProjectInfo "{¨2}"`" || Set error 1)
	If "{info}" == ""
		Alert "¶"{Active}¶" canÕt be cancelled because the project ¶
¶"{¨2}¶" is not mounted."
		Exit 0 
	End

	#	Now cancel the file.
	set echo 1	
    CheckOut -cancel "{Active}"
	If {Status} ­ 0
		Alert "There was a problem checking in ¶"{Active}¶". ¶
You need to check it in on a branch."
	End
End · dev:null
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Scripts/CheckInActive b/IIGS.601.SRC/GS.OS/Scripts/CheckInActive
new file mode 100644
index 0000000..99ab5bf
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Scripts/CheckInActive
@@ -0,0 +1 @@
+#	CheckInActive - Check the active window in
#
#	Usage:	Called by a userÐdefined menu item
#
#	CheckInActive uses the Request command to allow the user to 
#	type in a short comment to catalog the changes that were
#	made to the file since it was last checked out. Once the
#	comment is entered, the file open as the Active window is
#	checked in to its parent project and a readÐonly copy is left
#	in its place.
#
#	© Apple Computer, Inc. 1988
#	All rights reserved.

Set Exit 0
Set error 0
Begin

	#	First see if the active window belongs to a project.
	
	(Set info "`ProjectInfo "{Active}"`" || Set error 1)
	Evaluate "{info}" =~ /Å,[0-9a-z.]+([¶+¶*])¨1ÅOwnerÅ/
	Evaluate "{info}" =~ /ÅProject: (ź)¨2 +Checked outÅ/
	If {error} ­ 0 || "{info}" == ""
		Alert "¶"{Active}¶" canÕt be checked in because ¶
it doesnÕt belong to a project."
		Exit 0 
	End
	
	#	Find out if the active window is checked out for modification.

	If "'{¨1}'" ­ "'+'" &&  "'{¨1}'" ­ "'*'"
		Alert "¶"{Active}¶" canÕt be checked in because ¶
it wasnÕt checked out for modification."
		Exit 0 
	End
	
	#	Is the right project mounted?
	
	(Set info "`ProjectInfo "{¨2}"`" || Set error 1)
	If "{info}" == ""
		Alert "¶"{Active}¶" canÕt be checked in because the project ¶
¶"{¨2}¶" is not mounted."
		Exit 0 
	End

	#	Now request the comment and check the file in.
	set echo 1	
	(Set comment "`Request "What changes did you make?" || Set error {Status}`")
	If {error} == 0
		If "{comment}" ­ ""
			CheckIn -cs "{comment}" "{Active}"
		Else
			CheckIn "{Active}"
		End
		If {Status} ­ 0
			Alert "There was a problem checking in ¶"{Active}¶". ¶
You need to check it in on a branch."
		End
	End
End · dev:null
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Scripts/CheckOutActive b/IIGS.601.SRC/GS.OS/Scripts/CheckOutActive
new file mode 100644
index 0000000..f6aabbf
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Scripts/CheckOutActive
@@ -0,0 +1 @@
+
#	CheckOutActive - Check the active window out for modification
#
#	Usage:	Called by a userÐdefined menu item
#
#	CheckOutActive uses the ProjectInfo command to determine the
#	parent project for the file open as the Active window. Once this
#	project has been determined, the file open as the Active window
#	can be properly checked out.
#
#	© Apple Computer, Inc. 1988
#	All rights reserved.

Set Exit 0
Set error 0
Begin

	#	First see if the active window belongs to a project. Then
	#	find the name of the parent project.
	
	(Set info "`ProjectInfo "{Active}"`" || Set error 1)
	Evaluate "{info}" =~ /Å,[0-9a-z.]+([¶+¶*])¨1 +Å/
	Evaluate "{info}" =~ /ÅProject: (ź)¨2 +Checked outÅ/
	If {error} ­ 0 || "{info}" == ""
		Alert "¶"{Active}¶" canÕt be checked out because ¶
it doesnÕt belong to a project."
		Exit 0 
	End
	
	#	Find out if the active window is checked out for modification.

	Echo "'{¨1}'"
	If "'{¨1}'" == "'+'"
		Alert "¶"{Active}¶" canÕt be checked out again because ¶
it already IS checked out for modification."
		Exit 0 
	Else If "'{¨1}'" == "'*'"
		Alert "¶"{Active}¶" canÕt be checked out again because ¶
it IS a modified read-only file."
		Exit 0 
	End
	
	#	Is the right project mounted?
	
	(Set info "`ProjectInfo "{¨2}"`" || Set error 1)
	If "{info}" == ""
		Alert "¶"{Active}¶" canÕt be checked out because the project ¶
¶"{¨2}¶" is not mounted."
		Exit 0 
	End

	#	Request a comment before we check the file out. It is still possible
	#	that the checkout will fail because the lastest revision on the trunk
	#	is already checked out for modification by someone else.

	(Set comment "`Request -d "{Task}" "What changes will you make?" || Set error {Status}`")
	If {error} == 0
		If "{comment}" ­ ""
			Checkout -cs "{comment}" -c -m -project "{¨2}" "{Active}"
		Else
			Checkout -c -m -project "{¨2}" "{Active}"
		End
		If {Status} ­ 0
			Alert "¶"{Active}¶" has already been checked out by someone else."
			Exit 0 
		End
	End

End · dev:null
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Scripts/GSOSdirectory b/IIGS.601.SRC/GS.OS/Scripts/GSOSdirectory
new file mode 100644
index 0000000..47c642b
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Scripts/GSOSdirectory
@@ -0,0 +1 @@
+Directory "{dir}"

if "{LastItem}"
	addmenu GSOS "{LastItem}" "set item {LastItem}; set dir {LastDir} ; execute GSOSdirectory"
	end

addmenu GSOS "{Item}!" "set item {Item}; set dir {Dir} ; execute GSOSdirectory"

set LastDir "{Dir}"
set LastItem "{Item}"
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Scripts/GSOSstartup b/IIGS.601.SRC/GS.OS/Scripts/GSOSstartup
new file mode 100644
index 0000000..9a622c6
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Scripts/GSOSstartup
@@ -0,0 +1 @@
+#
# Set up the shell variables...
#
execute {GSOS}Scripts:GSOSvariables

#
# Set default tab for new windows to eight...
#
set tab 8 ;export tab

#
# Make the shell look in the Scripts folder for scripts...
#
set Commands "{Commands},{Scripts}"
export Commands

#
# If the SkipGSOSmount flag is not set, mount project,set checkout directories,
# and update the project menu...
#
if !{SkipGSOSmount}
	mountproject A2CE_Sources:gsprojects:gs.os
	checkoutdir -project gs.osº -r {GSOS}

	addmenu Project '(-' ''
	addMenu Project 'Update GSOS' ¶
		'echo >> "{WorkSheet}"; checkout -p -project gs.osº -r -a ³³ {WorkSheet}'
#
# Otherwise, create the Project menu...
#
else
  if !{AlreadyHaveProjectMenu}
	AddMenu Project 'New Project' 'NewProject -w ³³ "{WorkSheet}"'
	AddMenu Project 'Check In' 'CheckIn -w ³³ "{WorkSheet}"'
	AddMenu Project 'Check Out' 'CheckOut -w ³³ "{WorkSheet}"'
	AddMenu Project '(-'   	''
	AddMenu Project 'Mount All' ¶
					'MountAll {GSOS}:'
	AddMenu Project 'Mount Toolbox' ¶
					'mountproject A2CE_Sources:GSProjects:GSToolbox ; ¶
					 CheckOutDir -project GSToolboxº {GSOS}:GSToolbox: -r'
	AddMenu Project 'Mount Includes' ¶
					'mountproject A2CE_Sources:GSProjects:Includes ; ¶
					 CheckOutDir -project Includesº {MPW} -r'
	AddMenu Project 'Mount GS.OS' ¶
					'mountproject A2CE_Sources:GSProjects:GS.OS ; ¶
					 CheckOutDir -project GS.OSº {GSOS} -r'
	AddMenu Project 'Mount A.U.G.' ¶
					'mountproject A2CE_Sources:GSProjects:a.u.g. ; ¶
					 CheckOutDir -project a.u.g.º {GSOS}:a.u.g.: -r'
	AddMenu Project 'Mount BASIC' ¶
					'mountproject A2CE_Sources:GSProjects:BASIC.SYSTEM ; ¶
					 CheckOutDir -project BASIC.SYSTEMº {GSOS}:BASIC.SYSTEM -r'
	AddMenu Project 'Mount Odds N Ends' ¶
					'mountproject A2CE_Sources:GSProjects:SD.ODDS.N.ENDS ; ¶
					 CheckOutDir -project SD.ODDS.N.ENDSº {GSOS}:SD.ODDS.N.ENDS: -r'
	AddMenu Project '(-'   	''
	AddMenu Project 'Update All' 		¶
					'open {worksheet};	¶
					 echo "Updating All..." >> "{WorkSheet}"; ¶
					 CheckOutAll -newer '
	AddMenu Project 'Update Toolbox' 	¶
					'open {worksheet};	¶
					 echo "Updating GSToolbox..." >> "{WorkSheet}"; ¶
					 CheckOut -project GSToolboxº -r -newer -p '
	AddMenu Project 'Update Includes' 	¶
					'open {worksheet};	¶
					 echo "Updating Includes..." >> "{WorkSheet}"; ¶
					 CheckOut -project Includesº -r -newer -p '
	AddMenu Project 'Update GS.OS' 		¶
					'open {worksheet};	¶
					 echo "Updating GS.OS..." >> "{WorkSheet}"; 	¶
					 CheckOut -project GS.OSº -r -newer -p '
	AddMenu Project 'Update BASIC' 		¶
					'open {worksheet};	¶
					 echo "Updating BASIC..."  >> "{WorkSheet}";	¶
					 CheckOut -project BASIC.SYSTEMº -r -newer -p '
	AddMenu Project 'Update A.U.G.' 	¶
					'open {worksheet};	¶
					 echo "Updating A.U.G...." >> "{WorkSheet}";	¶
					 CheckOut -project a.u.g.º -r -newer -p '
	AddMenu Project 'Update Odds N Ends' 	¶
					'open {worksheet};	¶
					 echo "Updating Odds N Ends..." >> "{WorkSheet}"; ¶
					 CheckOut -project SD.ODDS.N.ENDSº -r -newer -p '
  end
end

#
# Set up the GSOS directories menu...
#
addmenu GSOS 'HFS.FST' 'set item "HFS.FST"; set dir "{HFS}" ; execute GSOSdirectory'
addmenu GSOS 'ProDOSFST' 'set item "ProDOSFST"; set dir "{ProDOS}" ; execute GSOSdirectory'
addmenu GSOS 'CharacterFST' 'set item "CharacterFST"; set dir "{Character}" ; execute GSOSdirectory'
addmenu GSOS 'HighSierraFST' 'set item "HighSierraFST"; set dir "{HighSierra}" ; execute GSOSdirectory'
addmenu GSOS 'PascalFST' 'set item "PascalFST"; set dir "{PascalFST}" ; execute GSOSdirectory'
addmenu GSOS 'DOS3.3FST' 'set item "DOS3.3FST"; set dir "{DOS3.3}" ; execute GSOSdirectory'
addmenu GSOS '(-' ''
addmenu GSOS 'OS' 'set item "OS"; set dir "{OS}" ; execute GSOSdirectory'
addmenu GSOS 'FSTs' 'set item "FSTs"; set dir "{FSTs}" ; execute GSOSdirectory'
addmenu GSOS 'Boot' 'set item "Boot"; set dir "{GSOSboot}" ; execute GSOSdirectory'
addmenu GSOS 'Common' 'set item "Common"; set dir "{Common}" ; execute GSOSdirectory'
addmenu GSOS 'Loader' 'set item "Loader"; set dir "{Loader}" ; execute GSOSdirectory'
addmenu GSOS 'ExpressLoad' 'set item "ExpressLoad"; set dir "{ExpressLoad}" ; execute GSOSdirectory'
addmenu GSOS 'Object' 'set item "Object"; set dir "{Object}" ; execute GSOSdirectory'
addmenu GSOS 'Scripts' 'set item "Scripts"; set dir "{Scripts}" ; execute GSOSdirectory'
addmenu GSOS 'Drivers' 'set item "Drivers"; set dir "{Drivers}" ; execute GSOSdirectory'
addmenu GSOS 'Listings' 'set item "Listings"; set dir "{Listings}" ; execute GSOSdirectory'
addmenu GSOS 'MakeFiles' 'set item "MakeFiles"; set dir "{MakeFiles}" ; execute GSOSdirectory'
addmenu GSOS 'SystemDisk' 'set item "SystemDisk"; set dir "{SystemDisk}" ; execute GSOSdirectory'
addmenu GSOS 'WorkFolder' 'set item "WorkFolder"; set dir "{WorkFolder}" ; execute GSOSdirectory'
addmenu GSOS 'SupervisoryDrivers' 'set item "SupervisoryDrivers"; set dir "{SupervisoryDrivers}" ; execute GSOSdirectory'
addmenu GSOS '(-' ''
addmenu GSOS 'SCM' 'set item "SCM"; set dir "{SCM}" ; execute GSOSdirectory'
addmenu GSOS 'Gquit' 'set item "Gquit"; set dir "{Gquit}" ; execute GSOSdirectory'
addmenu GSOS 'BankZero' 'set item "BankZero"; set dir "{BankZero}" ; execute GSOSdirectory'
addmenu GSOS 'InitManager' 'set item "InitManager"; set dir "{InitManager}" ; execute GSOSdirectory'
addmenu GSOS 'CacheManager' 'set item "CacheManager"; set dir "{CacheManager}" ; execute GSOSdirectory'
addmenu GSOS 'ErrorMessages' 'set item "ErrorMessages"; set dir "{ErrorMessages}" ; execute GSOSdirectory'
addmenu GSOS 'DeviceDispatcher' 'set item "DeviceDispatcher"; set dir "{DeviceDispatcher}" ; execute GSOSdirectory'
addmenu GSOS '(-' ''
addmenu GSOS 'SDsystem' 'set item "SDsystem"; set dir "{SDsystem}" ; execute GSOSdirectory'
addmenu GSOS 'SDdrivers' 'set item "SDdrivers"; set dir "{SDdrivers}" ; execute GSOSdirectory'
addmenu GSOS 'SDfsts' 'set item "SDfsts"; set dir "{SDfsts}" ; execute GSOSdirectory'
addmenu GSOS 'SDdeskaccs' 'set item "SDdeskaccs"; set dir "{SDdeskaccs}" ; execute GSOSdirectory'
addmenu GSOS '(-' ''
addmenu GSOS 'SCSI.Manager' 'set item "SCSI.Manager(1meg)"; set dir "{SCSI.Manager(1meg)}" ; execute GSOSdirectory'

#
# Set the current directory to GSOS and set printoptions...
#
set item "OS"; set dir "{GSOS}" ; execute GSOSdirectory
set printoptions '-b2 -font Courier -size 7'

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Scripts/GSOSvariables b/IIGS.601.SRC/GS.OS/Scripts/GSOSvariables
new file mode 100644
index 0000000..d3f603c
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Scripts/GSOSvariables
@@ -0,0 +1 @@
+#
# The following variables are required by the GS/OS makefiles...
#

set OS    		{GSOS}OS:			;export	OS
set FSTs		{GSOS}FSTs:			;export FSTs
set DeskAccs		{GSOS}DeskAccessories:		;export DeskAccs
set Common		{GSOS}Common:			;export	Common
set Object		{GSOS}Object:			;export	Object
set Loader		{GSOS}Loader:			;export Loader
set ExpressLoad		{GSOS}Loader:ExpressLoad:	;export ExpressLoad
set Scripts		{GSOS}Scripts:			;export	Scripts
set Drivers		{GSOS}Drivers:			;export Drivers
set Listings    	{GSOS}Listings:			;export	Listings
set GSOSboot    	{GSOS}boot:			;export	GSOSboot
set MakeFiles    	{GSOS}MakeFiles:		;export	MakeFiles
set SystemDisk		{GSOS}SystemDisk:		;export	SystemDisk
set WorkFolder    	{GSOS}WorkFolder:		;export	WorkFolder
set SupervisoryDrivers  {GSOS}SupervisoryDrivers:	;export	SupervisoryDrivers
set p8			{GSOS}p8:			;export p8
set SetupFiles		{GSOS}SetupFiles:		;export SetupFiles
set NetBoot		{GSOS}NetBoot:			;export NetBoot

set SCM    		{OS}SCM:			;export	SCM
set Gquit    		{OS}Gquit:			;export	Gquit
set BankZero    	{OS}BankZero:			;export	BankZero
set InitManager    	{OS}InitManager:		;export	InitManager
set CacheManager    	{OS}CacheManager:		;export	CacheManager
set ErrorMessages    	{OS}ErrorMessages:		;export	ErrorMessages
set DeviceDispatcher	{OS}DeviceDispatcher:		;export	DeviceDispatcher

set ProDOS		{FSTs}ProDOS:			;export ProDOS
set Character		{FSTs}Character:		;export Character
set HighSierra		{FSTs}HighSierra:		;export HighSierra
set ASFST		{FSTs}AppleShare:		;export ASFST
set DOS3.3		{FSTs}DOS3.3:			;export DOS3.3
set PascalFST		{FSTs}Pascal:			;export PascalFST
set HFS			{FSTs}HFS:			;export HFS
set MSDos		{FSTs}MSDos:			;export MSDos

set SDsystem		{SystemDisk}System:		;export	SDsystem
set SDdrivers		{SDSystem}Drivers:		;export	SDdrivers
set SDfsts		{SDSystem}FSTs:			;export	SDfsts
set SDdeskaccs		{SDSystem}Desk.Accs:		;export	SDdeskaccs
set SDsetupfiles	{SDSystem}System.Setup:		;export SDsetupfiles
set SDAppleTalk		{SystemDisk}AppleTalk:		;export SDAppleTalk

set Loader2.0		{Loader}Loader2.0:		;export Loader2.0

set SCSI.Manager(1meg)	{SupervisoryDrivers}SCSI.Manager(1meg): ;export SCSI.Manager(1meg)

set SCSIdrivers		{Drivers}SCSI.drivers:		;export SCSIdrivers
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Scripts/InstallGSOS b/IIGS.601.SRC/GS.OS/Scripts/InstallGSOS
new file mode 100644
index 0000000..08ce077
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Scripts/InstallGSOS
@@ -0,0 +1 @@
+# InstallGSOS
# By Bryan Atsatt
#
# This script will mount the GS.OS project, set the correct checkout directories
# and add some needed commands to your UserStartup file...
# 
directory ::
set GSOS `directory`
directory {GSOS}MakeFiles > dev:null ³ dev:null || ¶
(loop
	alert "Please set the directory to GSOS..."
	directory `getfilename -d`
	set GSOS `directory`
	directory {GSOS}MakeFiles > dev:null ³ dev:null && break
	continue
end)

directory :scripts

begin
	echo
	echo '#'
	echo '# Set up for GS/OS project...'
	echo '#'
	echo 'set GSOS '`echo {GSOS}`' ;export GSOS'
	echo 'execute {GSOS}Scripts:GSOSstartup'
end >> {MPW}UserStartup

execute {GSOS}Scripts:GSOSstartup

\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Scripts/UpdateGSOSonSystemDisk b/IIGS.601.SRC/GS.OS/Scripts/UpdateGSOSonSystemDisk
new file mode 100644
index 0000000..fb0e585
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Scripts/UpdateGSOSonSystemDisk
@@ -0,0 +1 @@
+# UpdateGSOSonSystemDisk
#
# This script copies the local image of the system disk for GS/OS up to the
# disk4.1 and tools4.1 images on fettuccine.
#
duplicate -d -y {SystemDisk}prodos 		fettuccine:disk4.1:PRODOS

duplicate -d -y {SDsystem}gs.os 		fettuccine:disk4.1:system:GS.OS
duplicate -d -y {SDsystem}p8 			fettuccine:disk4.1:system:P8
duplicate -d -y {SDsystem}start.gs.os 		fettuccine:disk4.1:system:START.GS.OS
duplicate -d -y {SDsystem}gs.os.dev 		fettuccine:disk4.1:system:GS.OS.DEV
duplicate -d -y {SDsystem}error.msg 		fettuccine:disk4.1:system:ERROR.MSG

duplicate -d -y {SDfsts}pro.fst 		fettuccine:disk4.1:system:fsts:PRO.FST
duplicate -d -y {SDfsts}char.fst 		fettuccine:disk4.1:system:fsts:CHAR.FST
duplicate -d -y {SDfsts}hs.fst 			fettuccine:tools4.1:system:fsts:HS.FST

duplicate -d -y {SDdrivers}appledisk3.5 	fettuccine:disk4.1:system:drivers:APPLEDISK3.5
duplicate -d -y {SDdrivers}console.driver 	fettuccine:disk4.1:system:drivers:CONSOLE.DRIVER
duplicate -d -y {SDdrivers}scsihd.driver 	fettuccine:tools4.1:system:drivers:SCSIHD.DRIVER
duplicate -d -y {SDdrivers}scsicd.driver 	fettuccine:tools4.1:system:drivers:SCSICD.DRIVER
duplicate -d -y {SDdrivers}scsi.manager 	fettuccine:tools4.1:system:drivers:SCSI.MANAGER
duplicate -d -y {SDdrivers}unidisk3.5 		fettuccine:tools4.1:system:drivers:UNIDISK3.5
duplicate -d -y {SDdrivers}appledisk5.25 	fettuccine:tools4.1:system:drivers:APPLEDISK5.25
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/Scripts/linkOS b/IIGS.601.SRC/GS.OS/Scripts/linkOS
new file mode 100644
index 0000000..5e877c5
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/Scripts/linkOS
@@ -0,0 +1 @@
+# GSOSlink
# By Bryan Atsatt
#
# This file links and builds the following files:
#
#	GS.OS
#	START.GS.OS
#	ERROR.MSG

#
# Link everybody...
#
unset LnkOptions
if "{ListFlag}" || "{ListPartFlag}"
	set LnkOptions "-l > {Listings}os.symbols"
end

linkiigs -apw -o {WorkFolder}scm.lnk {LnkOptions} ¶
	-lseg scm_seg_0 				# becomes scm.bin ¶
		{Object}scm.obj(@start_seg0) ¶
		{Object}scm.obj(@oscall_seg) ¶
		{Object}scm.obj(@end_seg0) ¶
	-lseg scm_seg_1					# becomes scm.bin.2 ¶
		{Object}scm.obj(@start_seg1) ¶
		{Object}scm.obj(@misc_seg) ¶
		{Object}scm.obj(@end_seg1) ¶
	-lseg scm_seg_2					# becomes scm.bin.3 ¶
		{Object}scm.obj(@start_seg2) ¶
		{Object}scm.obj(@scm_main) ¶
		{Object}scm.obj(@end_seg2) ¶
	-lseg scm_seg_3					# becomes scm.bin.4 ¶
		{Object}scm.obj(@start_seg3) ¶
		{Object}scm.obj(@system_svc) ¶
		{Object}scm.obj(@end_seg3) ¶
	-lseg scm_seg_4					# becomes scm.bin.5 ¶
		{Object}scm.obj(@start_seg4) ¶
		{Object}scm.obj(@bank_e1) ¶
		{Object}scm.obj(@end_seg4) ¶
	-lseg b00segr					# becomes scm.bin.6 ¶
		{Object}b00segr.s.obj ¶
		{Object}bank0.obj ¶
		{Object}b00segr.e.obj ¶
	-lseg be0segr					# becomes scm.bin.7 ¶
		{Object}be0segr.s.obj ¶
		{Object}device.dispatcher.obj ¶
		{Object}be0segr.e.obj ¶
	-lseg gquit.1					# becomes scm.bin.8 ¶
		{Object}gquit.obj(@seg_gldr) ¶
	-lseg gquit.2 					# becomes scm.bin.9 ¶
		{Object}gquit.obj(@seg_b0) ¶
	-lseg gquit.3 					# becomes scm.bin.10 ¶
		{Object}gquit.obj(@seg_e1) ¶
	-lseg gquit.4 					# becomes scm.bin.11 ¶
		{Object}gquit.obj(@seg_e0) ¶
	-lseg cache 					# becomes scm.bin.12 ¶
		{Object}cache.obj ¶
	-lseg init.1 					# becomes scm.bin.13 ¶
		{Object}init1.obj ¶
	-lseg init.2 					# becomes scm.bin.14 ¶
		{Object}init2.obj ¶
	-lseg init.3 					# becomes scm.bin.15 ¶
		{Object}init3.obj ¶
	-lseg init.4 					# becomes scm.bin.16 ¶
		{Object}init4.obj ¶
	-lseg terminator 				# becomes scm.bin.17 ¶
		{Object}scm.obj(@terminator)
#
# Make binary...
#
makebiniigs {WorkFolder}scm.lnk -o {WorkFolder}scm.bin

#
# Create "START.GS.OS" from binary...
#
catenate {WorkFolder}scm.bin.8  >  	{SDsystem}start.gs.os
catenate {WorkFolder}scm.bin.9  >> 	{SDsystem}start.gs.os
catenate {WorkFolder}scm.bin.10  >> 	{SDsystem}start.gs.os
catenate {WorkFolder}scm.bin.11  >> 	{SDsystem}start.gs.os

#
# Set filetype and auxtype...
#
set exit 0; echo "foo" | rez -o {SDsystem}start.gs.os -m -c pdos -t $70f90007 ³ dev:null; set exit 1

#
# Set the mod time to the current time
#
setfile -m . {SDsystem}start.gs.os

#
# Create "GS.OS" from binary...
#
catenate {WorkFolder}loader     >  	{SDsystem}gs.os
catenate {WorkFolder}scm.bin    >> 	{SDsystem}gs.os
catenate {WorkFolder}scm.bin.2  >> 	{SDsystem}gs.os
catenate {WorkFolder}scm.bin.3  >> 	{SDsystem}gs.os
catenate {WorkFolder}scm.bin.4  >> 	{SDsystem}gs.os
catenate {WorkFolder}scm.bin.5  >> 	{SDsystem}gs.os
catenate {WorkFolder}scm.bin.6  >> 	{SDsystem}gs.os
catenate {WorkFolder}scm.bin.7  >> 	{SDsystem}gs.os
catenate {WorkFolder}scm.bin.12 >> 	{SDsystem}gs.os
catenate {WorkFolder}scm.bin.13 >> 	{SDsystem}gs.os
catenate {WorkFolder}scm.bin.14 >> 	{SDsystem}gs.os
catenate {WorkFolder}scm.bin.15 >> 	{SDsystem}gs.os
catenate {WorkFolder}scm.bin.16 >> 	{SDsystem}gs.os
catenate {WorkFolder}scm.bin.17 >> 	{SDsystem}gs.os

#
# Set filetype and auxtype...
#
set exit 0; echo "foo" | rez -o {SDsystem}gs.os -m -c pdos -t $70f90000 ³ dev:null; set exit 1

#
# Set the mod time to the current time
#
setfile -m . {SDsystem}gs.os
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/SetupFiles/ATInit/ATInit.aii b/IIGS.601.SRC/GS.OS/SetupFiles/ATInit/ATInit.aii
new file mode 100644
index 0000000..3a1a6e5
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/SetupFiles/ATInit/ATInit.aii
@@ -0,0 +1 @@
+		msb	off
		string	asis
		print	sym
		print	nopage
		print	nomdir

*opennet
* this file moves all new code that is going into bank
* $e0 language card	area.  It checks for a card and calls init.
* After init it calls the start vectors	for any protocols that
* have been added, like PAP, RPM, ZIP, and any patches.
*           by
*           Greg Seitz
*           15-Apr-86
*
* Copyright Apple Computer, Inc.  1986
* All Rights Reserved
* Version 1.2
*
* 27-Aug-86 (gws)
* -now supports running under both types of prodos,
* and has an entry point for a seperate	loader to call
* it in full native	mode.
*
* 19-Jun-86 (GWS)
* -it now relocates	pap, rpm, & zip into bank e1
*  and calls them to allow themselves to be installed
*
*
* 24-Sept-86 (RBH)
* Changed interrupt	vector for the ParaMIS card for the umpteenth time
* it is now CN19
*
* 30-Sept-86 (RBH)
* Turn on interrupts for the Apple //
*
* 28-Oct-86 (gws)
* -installed code to call nbppatch routine within zip
* -added 1 more page to size of area to	move, now ends at $3aff
*
* 17-Nov-86 (gws)
* -added patch to low level LAP packet dispatch routine to verify proper bank
* configuration.
*
* 24-Nov-86 (par)
* -added call to HardReset to reinitialize ATalk variables when ATINIT is
* loaded. now done by atpatch
*
* 30-Apr-87 (gws)
* -re-configured atinit to handle only starting the system from prodos 16,
* it starts the paramis card if found when running p16.  This file previously
* contained all the	ram based protocols	such as pap,rpm,zip.  Those files
* are now kept in atload which is dynamically loaded into available memory
* by the loader.  Therefore, built in Appletalk no longer requires use of
* the language card	area in bank $e0.
*
* 19-APR-88 (gws)
* file is now only a stub to hold data,	the only code here is an rts
* at the start to prevent old load files from crashing if they attempt
* to execute this.
*
***********************************************************************************

		print	off
		INCLUDE 'm16.util'
		print	on

opennet		PROC

		rts			;not allowed to boot prodos 8 with this	file

		ENDP


loadrec		PROC

username	str ''			;No default user name so that ATRESPONDER
namelen		equ *-username		;will ask for a name.
		DS.B 33-namelen

prflag		DC.B $a0		;Printer flag.

prname
objname		str 'WBJ'		;Default printer name goes here.
typename	str 'LaserWriter'
zonename	str '*'
ptrlen		equ *-prname
		DS.B 99-ptrlen

		ENDP

;---------------------------------------------------------------------------------

		END
	
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/SetupFiles/ATInit/MakeFile b/IIGS.601.SRC/GS.OS/SetupFiles/ATInit/MakeFile
new file mode 100644
index 0000000..9cc080c
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/SetupFiles/ATInit/MakeFile
@@ -0,0 +1 @@
+Objects	=	atinit.oii atstart.oii

.oii		Ä	.aii
	asmiigs {aiigsoptions} -o {Default}.oii {Default}.aii

atinit 		Ä	atinit.oii
	linkiigs -o {Targ} {Targ}.oii
	makebiniigs {Targ}
	setfile -t 'E2  ' {targ}
	echo "FileType = $E2  AuxType = $0000" >> {Worksheet}
	quote `directory`{Targ}

{Objects}	ÄÄ	MakeFile

atstart.oii	ÄÄ	::ASP:atp.equates.inc ::ASP:global.equates.inc


\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/SetupFiles/ATResponder/ATResponder.aii b/IIGS.601.SRC/GS.OS/SetupFiles/ATResponder/ATResponder.aii
new file mode 100644
index 0000000..1e95ade
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/SetupFiles/ATResponder/ATResponder.aii
@@ -0,0 +1 @@
+		msb	off
		string	asis
		print	sym
		print	nopage
		print	nomdir

;-----------------------------------------------------------------------------------
;
; This is an implementation of Responder (Snitch) for the Apple IIgs. It
; is designed to kludge up a Macintosh like Responder packet so that the
; application Inter-Poll (007) will be able to display system info.
;
; Tim Harrington	February 2nd, 1988
;
; Modification history:
;
;Version	Date		Who	Comments
;-------	---------	---	---------------------------------------------
;0.10A	Ã	02-Feb-88	TGH	Project started
;
;0.11A	Ã	05-Feb-88	TGH	Fixed BDS buffer length from a byte to a word
;	Ã			TGH	Added support for P16 version number and OS
;					type currently loaded.
;	Ã			TGH	Ignore anything but a command = 1
;
;0.12A	Ã	05-Feb-88	TGH	OS Loaded field now reports ?? if the OS type
;					byte (E100BC) = $FF
;
;0.13A	Ã	08-Feb-88	TGH	Fixed ignore bug. If I got anything but a
;					command 1 from 007, I didn't que up the next
;					request.
;
;0.14A	Ã	09-Feb-88	TGH	I now look for the user name in ATINIT as
;					the name to register.
;
;0.15A	Ã	09-Feb-88	TGH	The user name gets bumped up by digits when
;					a duplicate name error occurs when registering
;					the user's name.
;
;0.16B	Ã	12-Feb-88	TGH	Converted to MACtoGS assembler.
;
;0.17B	Ã	18-Feb-88	TGH	Added Current Application string as the third
;					string in the response packet.
;	Ã			TGH	I now register the default printer entity name
;					to RPM.
;	Ã			TGH	Replaced 'Apple IIgs Snitch' with just 'Apple IIgs'
;	Ã			TGH	Put myself into the priority vector to make sure I
;					run after AppleTalk has been initialized.
;0.18B	Ã	19-Feb-88	TGH	Prompt the user if the user name is null in the
;					ATINIT file.
;	Ã			TGH	Changed AppleTalk version number in response
;					packet from 0 to 1.
;
;0.19B	Ã	22-Feb-88	TGH	Fixed bug in ATP Response packet.  The bytes are
;					now correct and the AT version word says 0001.
;					The bug was in the MACtoGS assembler!
;	Ã			TGH	Added check to see if AppleTalk is active.
;	Ã			TGH	Save off the user name if it was null and they
;					typed in a new one.
;	Ã			TGH	No longer return application name, I now return
;					the currently choosen/selected LaserWriter name.
;
;0.20B	Ã			TGH	Released to the outside for review.
;
;0.21B	Ã			TGH	Added RTS to the end of the BuildPacket routine.
;	Ã			TGH	Took beep out if I ever error out.
;	Ã			TGH	Fixed crash if the number at the end of the user
;					name got bumped past 99.
;
;0.22B	Ã			TGH	Changed response message. Took out ' - ' and
;					changed them to ': '
;
;0.23B	Ã	25-Feb-88	TGH	Fixed bug in default name <Unnamed>. I had a
;					comment on the same line as a STR directive.
;
;10A1	Ã	1-MAR-88	TGH	Added extra checking to make sure AppleTalk
;					really got loaded.
;					This file resides on disk as a STR (Init) and
;					$BC (Load) file.
;
;10A2	Ã	3-MAR-88	TGH	Fixed RPM call so that I get the status of
;					the printer instead of setting it.
;
;10A3	Ã	8-MAR-88	TGH	Now saving off prefix 0 during the loading of
;					the ATINIT file.
;
;10A5	Ã	9-MAR-88	TGH	Changed to an asyncronous call to register the
;					name.
;		11-MAR-88	TGH	No longer display a name when registering.
;
;10A6	Ã				No changes
;
;10B1	Ã	13-APRIL-88	TGH	Changed maximum name length to 31 instead of 32.
;					Added Flush call after Write to fix the problem
;					with write protected disks in a UniDisk drive.
;					Took out debuging code that was causing some
;					crashes.
;
;10B2	Ã	18-APRIL-88	TGH	Changed timeout value in RPM setup from 15
;					seconds to 30 seconds.
;
;10B3		25-APRIL-88	TGH	Now re-register the user name on RESET.
;
;11B1		14-July-88	MSD	Console forces text mode (for GS/OS).
;
;11B2		12-Aug-88	TGH	Save and restore SHR mode when asking for
;					a user name (for GS/OS).
;
;11B3		12-Aug-88	TGH	Changed the order of saving and setting the
;					SHR mode byte.
;					Took responder out of the priority chain.
;
;11B4		8-Sept-88	TGH	Uses GS/OS console driver.
;
;		26-Jan-89	MSD	Closes console driver (had the wrong command
;					number, $1C = GetDirEntry).
;
;11B5		13-March-89	TGH	Changed 'ProDOS 16' -> 'GS/OS'
;
; 101		24-April-89	TGH	Added CancelReq call if not a Inter¥Poll
;					packet.  Fixed stack bug in error handling
;					condition code in GetRequest completion
;					routine.  Changed version number.
;
; 		26-April-89	TGH	Changed verticle bars in user name prompt
;					box to left and right verticle bars
;					(mousetext.)
;
;		15-May-89	MSD	Now turns off SuperHiRes after the console
;					driver is initialized and just before it
;					is read from.  This minimizes the text
;					garbage one will see before being asked
;					for your user name.
;
; 102		24-Jul-89	MSD	Changed check for AppleShare FST version.
;					If there is no AppleShare FST, the version
;					is set to 0.00.  It used to abort without
;					registering the user's name, or setting
;					the default printer.  It now continues.
;
; 103		30-Jan-91	MSD	Removed a STA >$0A0000 instruction that was
;					trashing memory (it was probably left over
;					from some debugging).
;
;-------------------------------------------------------------------------------------
;
; Things yet to do:
;
;	Check the system type to determine what kind of Apple II I'm
;	running on.
;
;-------------------------------------------------------------------------------------

		MACHINE	M65816	


R0		equ	0			;Zero page location (4 bytes)
R1		equ	4			;Zero page location (4 bytes)

Version		equ	$0301			;This is the version of Responder (1.0.3)
softreset	equ	$E11010
AT_Entry	equ	$E11014			;AppleTalk entry point
PriorityVec	equ	$E1103A			;Address of vector list
P16_Entry	equ	$E100A8			;Entry point for all P16 OS calls
OS_Type		equ	$E100BC			;Currently running ProDOS type (8 or 16)

		print	off
		INCLUDE	'm16.util'
		print	on

;----------------------------------------------------------------------------------------
; Below is the main entry point for this file.  We aren't quit sure in what state we're
; called, so we better save it off and reset it.

MAIN		PROC

		clc				;Make sure we're in native mode.
		xce
		php				;Save the current state of the
		phb				;processor and bank registers.

		phk				;Set the data bank to our
		plb				;program bank.

		rep	#$30			;Long all
		longa	on
		longi	on

		stz	DeviceNum

DeviceLoop	inc	DeviceNum

		jsl	P16_Entry		;Do a DInfo call on every driver
		dc.w	$202C			;until we find DeviceID=001D or
		dc.l	DInfoList		;we run out of drivers.

		bcs	ATNotThere		;Branch to exit on any error!

		lda	DeviceID
		cmp	#$001D
		bne	DeviceLoop

		jsr	realinstall

ATNotThere	plb
		plp
		rtl

DInfoList	dc.w	0008			;Parameter count
DeviceNum	dc.w	0000			;Device number
		dc.l	DeviceName		;Device name pointer
		dc.w	0000			;Characteristics
		dc.l	00000000		;Total blocks
		dc.w	0000			;Slot number
		dc.w	0000			;Unit number
DeviceVersion	dc.w	0000			;Version
DeviceID	dc.w	0000			;DeviceID

DeviceName	dc.w	0037			;Buffer size
		ds.b	35			;33 bytes in buffer

;----------------------------------------------------------------------------------------
; SetVec will install us into the priority chain vector.  If there's nothing in the
; vector, then we just install ourselves.  Otherwise we put ourselves in the correct
; order so we get called last.

realinstall	jsl	P16_Entry		;P16 version call
		DC.W	$2A
		DC.L	P16Version
		bcc	VerOK
Bad_Exit2	jmp	Bad_Exit

VerOK		lda	#0512
		sta	BlockBuffer

		stz	FSTNumber

@L1		inc	FSTNumber

		jsl	P16_Entry		;P16 GetFSTInfo call
		dc.w	$202B
		dc.l	GetFSTVersion
		bcs	no_fst

		lda	FSTID
		cmp	#$000D			;Is it AppleShare?
		bne	@L1
		beq	got_fst_vers
no_fst
		stz	FSTVersion		; FST v0.00 means no FST found
got_fst_vers
		sep	#$30
		longa	off
		longi	off

;------------------------------------------------------------------------------
; The following code will take a version number and change it as follows:
;
; 102B (1.02B) -> 12
;
; I have to do this because Interpoll only wants a byte version string.  This
; will look somewhat funny but I think it's the easiest to figure out for
; a lab administrator.
;------------------------------------------------------------------------------

		lda	DeviceVersion+1		;Load the most significant byte.
		and	#$F0			;Strip of low nibble (discard).
		sta	RespPacket+1		;Store it in packet buffer.
		lda	DeviceVersion		;Load the least significant byte.
		lsr	a			;Shift it into the low nibble.
		lsr	a
		lsr	a
		lsr	a
		ora	RespPacket+1		;Add it to most significant byte
		sta	RespPacket+1		;and store it in packet buffer.

;------------------------------------------------------------------------------
; The following code will take the FST version number and change it as follows:
;
; 8201 (2.01P) -> "2.01"
;------------------------------------------------------------------------------

		lda	FSTVersion+1
		and	#$0F
		ora	#$30
		sta	AFPVersion1
		lda	FSTVersion
		lsr	a
		lsr	a
		lsr	a
		lsr	a
		ora	#$30
		sta	AFPVersion2
		lda	FSTVersion
		and	#$0F
		ora	#$30
		sta	AFPVersion3

		rep	#$30
		longa	on
		longi	on

		jsr	BuildPacket
		bcs	Bad_Exit2

		lda	GICompl			;Shove the completion vector into...
		sta	RegCompl		;The RegisterName call block,
		sta	ATPDone			;The GetATPReq completion routine,
		lda	GICompl+2		;Don't forget the high bytes!
		sta	RegCompl+2
		sta	ATPDone+2

;	Ask for a ATP socket number

		ldx	#OATPSocket		;OpenATPSocket
		ldy	#^OATPSocket		;Open a listener socket for our
		jsl	AT_Entry		;ATP packets
		bcs	Bad_Exit		;Branch if error

		sep	#$20			;Go short
		longa	off
		lda	Socket			;Store the ATP socket number into...
		sta	RegSocket		;The RegisterName call block
		sta	ReqSocket		;The GetATPRequest call block
		sta	ResSocket		;The SendATPResp call block
		sta	RelSocket		;The RecATPCB call block
		rep	#$30			;Back to long
		longa	on

		jsl	P16_Entry		;Save prefix 0
		DC.W	$0A
		DC.L	SavePrefix

		jsr	Find_ATINIT		;Get the name to register from ATINIT

		jsr	ShowName		;Ask for one if we need it

		jsl	P16_Entry		;Restore prefix 0
		DC.W	09
		DC.L	SavePrefix

		jsr	ConcatName		;Build entity name

		ldx	#RegName		;RegisterName
		ldy	#^RegName		;Register our name onto the net
		jsl	AT_Entry

		lda	PRegFlag		;Is there a printer to register?
		beq	StartReq		;Branch if not

		ldx	#NetPrinter		;Set the default net printer
		ldy	#^NetPrinter
		jsl	AT_Entry		;If there's an error, oh well.

StartReq	; 

;	Start the asyncronous request call

		ldx	#ATPReq			;GetATPReq
		ldy	#^ATPReq		;Asyncronous get.request call
		jsl	AT_Entry

		php
		sei

		lda	softreset		;get the current reset vector
		sta	proldreset		;and store internally
		lda	softreset+2
		sta	proldreset+2		;now we have the old vector
		lda	jpatchesreset		;store a jml ourreset
		sta	softreset		;into vector
		lda	jpatchesreset+2
		sta	softreset+2

		plp

Bad_Exit	rts

;		we re-install misc patches here

patchesreset					 ;should come here during reset
		php				;save mode bits
		phb				;and databank
		jsl	proldreset		;let lower protocol get called first
		phk				;set up data bank
		plb
		jsl	reinstall		;re-install echo code
		plb				;restore bank
		plp				;and mode bits
		rtl				;and return to our caller

jpatchesreset	jml	>patchesreset

proldreset	jml	>000000

reinstall	php

		rep	#$30
		longa	on
		longi	on

		pha
		phx
		phy

		jsr	BuildPacket
		bcs	ReQExit

		lda	GICompl			;Shove the completion vector into...
		sta	RegCompl		;The RegisterName call block,
		sta	ATPDone			;The GetATPReq completion routine,
		lda	GICompl+2		;Don't forget the high bytes!
		sta	RegCompl+2
		sta	ATPDone+2

;	Ask for a ATP socket number

		lda	#0000
		sta	Socket

		ldx	#OATPSocket		;OpenATPSocket
		ldy	#^OATPSocket		;Open a listener socket for our
		jsl	AT_Entry		;ATP packets
		bcs	ReQExit			;Branch if error

		sep	#$20			;Go short
		longa	off
		lda	Socket			;Store the ATP socket number into...
		sta	RegSocket		;The RegisterName call block
		sta	ReqSocket		;The GetATPRequest call block
		sta	ResSocket		;The SendATPResp call block
		rep	#$30			;Back to long
		longa	on

		jsr	ConcatName		;Build entity name

		ldx	#RegName		;RegisterName
		ldy	#^RegName		;Register our name onto the net
		jsl	>AT_Entry

		lda	PRegFlag		;Is there a printer to register?
		beq	ReQ			;Branch if not

		ldx	#NetPrinter		;Set the default net printer
		ldy	#^NetPrinter
		jsl	>AT_Entry		;If there's an error, oh well.

ReQ		ldx	#ATPReq			;GetATPReq
		ldy	#^ATPReq		;Asyncronous get.request call
		jsl	>AT_Entry

ReQExit		ply
		plx
		pla
		plp
		rtl

;-------------------------------------------------------------------------
;
; This routine will put any information I can get into the ATP response
; packet. We do add more information later though.

BuildPacket	; 

;	Now we get some AppleTalk information

		ldx	#GIMisc			;GetInfo
		ldy	#^GIMisc		;I do this so I can get the completion
		jsl	AT_Entry		;vector for my asyncronous calls.
		bcs	Skip1			;Branch if error

		lda	GIROMVers		;Store the ROM version into the
		xba				;ATP response packet
		sta	RespROM			;ROM 85 version field

		sep	#$30
		longi	off
		longa	off

		lda	P16Version		;Load the low byte
		ora	#$30			;Make it ASCII
		sta	SVLow			;Store it in buffer

		lda	P16Version+1		;Load the high byte
		pha				;Save it for later
		and	#$7F			;Mask off prototype bit
		ora	#$30			;Make it ASCII
		sta	SVHigh			;Store it in buffer

		lda	#$20			;Default prototype byte to space ' '
		sta	SVBit
		pla				;Get high byte of version number
		and	#$80			;Mask off all but prototype bit
		beq	Skip1			;If it's equal to 0, use the space
		lda	#$50			;Otherwise use a 'P'
		sta	SVBit

Skip1		rep	#$30
		longi	on
		longa	on

		rts

;-------------------------------------------------------------------------
;
; This routine will attempt to do a block read from the boot volume. If
; it returns with a network error, then I know I booted of the network and
; I have to get the user's system path from the net. Otherwise I just grab
; the ATINIT file from the */SYSTEM/SYSTEM.SETUP/ directory.
; If for any reason I can't extract a user name from either method, I just
; use the entity name <Unnamed>:Apple IIgs@*.

		longa	on
		longi	on

Find_ATINIT	stz	PRegFlag		;printer name to register.

		jsl	P16_Entry		;Get the deviceID for device #1
		dc.w	$202C			;DInfo
		dc.l	DInfo
		bcs	NoName

		lda	DInfoID
		cmp	#$001E			;Is is = .AFPn?
		bne	LocalDisk		;Branch if not.

NetDisk		ldx	#UserPrefix		;Get the user's boot prefix
		ldy	#^UserPrefix
		jsl	AT_Entry
		bcs	NoName			;Branch if error

		jsl	P16_Entry		;Set prefix 0 out to that path
		DC.W	09
		DC.L	SetNet0
		bcs	NoName			;Branch if error

		jsl	P16_Entry		;Set prefix 0 to prefix 0 + SETUP/
		DC.W	09
		DC.L	SetNet1
		bcs	NoName			;Branch if error

		bra	OpenIt			;Try to open ATINIT

LocalDisk	jsl	P16_Entry		;Set the prefix out to
		DC.W	$09			;'*/SYSTEM/SYSTEM.SETUP/'
		DC.L	SetLocal
		bcc	OpenIt

NoName		sep	#$30
		longa	off
		longi	off

		jsr	MoveUnnamed
		bra	BuildRest		;Append the rest of the name and exit
;						 If this happens, no printer will be selected
;						 to print to.  Ahhhh, too bad!

		longa	on
		longi	on

OpenIt		jsl	P16_Entry		;Open the ATINIT file
		DC.W	$10
		DC.L	InitFile
		bcs	NoName			;Branch if error

		lda	InitFile		;Move the file reference number
		sta	EOFBlock		;into the get and set eof call blocks
		sta	ReadName		;and the read file call block

		jsr	SetTheMark
		bcs	CheckError

		jsl	P16_Entry		;Read in the default user name
		DC.W	$12
		DC.L	ReadName

CheckError	pha				;Save the error state
		jsl	P16_Entry		;Close the file
		DC.W	$14
		DC.L	InitFile
		pla				;Get the old error state back
		bne	NoName			;Branch if it's an error

		sep	#$30
		longa	off
		longi	off

		ldx	BlockBuffer		;Load the default user name length
		stx	RealLength		;Store it for later use by BumpName
		beq	NSkip			;If it's zero then don't move anything
NLoop1		lda	BlockBuffer,x		;Move the default user name into our
		sta	UserName,x		;user name.
		dex
		bpl	Nloop1

NSkip		lda	BlockBuffer+33		;Load the printer flag and store
		sta	PFlag			;it into the setprinter call block

		dec	PRegFlag		;Flag that we have a cadidate for the
;						 printer name to register.

BuildRest	rep	#$30
		longa	on
		longi	on

		rts				;Exit in long native mode



		longa	off
		longi	off

MoveUnnamed	ldx	Unnamed			;This routine will move the string
		stx	RealLength		;'<Unnamed>' into the UserName field.
NLoop3		lda	Unnamed,x
		sta	UserName,x
		dex
		bpl	NLoop3
		rts



		longa	on
		longi	on

SetTheMark	jsl	P16_Entry		;Get ATINIT's EOF marker
		DC.W	$19
		DC.L	EOFBlock
		bcs	SetSkip			;Branch if error, close file first

		sec				;Subtract 133 ($85) from the EOF to
		lda	EOF			;get to the user's default name and
		sbc	#133			;store the result back into the
		sta	EOF			;call block
		lda	EOF+2
		sbc	#0
		sta	EOF+2

		jsl	P16_Entry		;Set the mark to this new value
		DC.W	$16
		DC.L	EOFBlock

SetSkip		rts



SavePrefix	DC.W	0		;Save and restore prefix 0
		DC.L	ReqBuffer

DInfo		dc.w	8		;PCount
		dc.w	1		;Device number
		dc.l	DevName		;Device name (result)
		dc.w	0		;Characteristics (result)
		dc.l	0		;Total blocks (result)
		dc.w	0		;Slot number (result)
		dc.w	0		;Unit number (result)
		dc.w	0		;Version (result)
DInfoID		dc.w	0		;Device ID (result) <- We want only this

DevName		ds.b	34		;Device name gets put here from DINFO call

SetLocal	DC.W	0
		DC.L	LocPtr
LocPtr		str	'*/SYSTEM/SYSTEM.SETUP/'

InitFile	DS.B	2		;Open and close parameter blocks
		DC.L	InitName	;for the ATINIT file.
		DS.B	4
InitName	str	'ATINIT'

SetNet0		DC.W	0
		DC.L	BlockBuffer

BlockBuffer	DS.B	512		;This is a general purpose buffer

SetNet1		DC.W	0
		DC.L	NetPtr
NetPtr		str	'SETUP/'

EOFBlock	DS.B	2
EOF		DS.B	4

ReadName	DS.B	2		;Read block for reading the ATINIT file
		DC.L	BlockBuffer
		DC.L	133		;Request count
		DS.B	4		;Transfer count

WriteName	DS.B	2		;Write block for writting the ATINIT file
		DC.L	UserName
		DC.L	33
		DS.B	4

Unnamed		str	'<Unnamed>'
					;Default user name if I can't get one.

UserPrefix	DC.B	0		;Sync
		DC.B	$2A		;FIUserPrefix
		DS.B	2		;Result
		DC.B	0		;1 byte of reserved 0
		DC.L	BlockBuffer

NetPrinter	DC.B	0		;Sync
		DC.B	$28		;PMSetPrinter
		DS.B	2
		DC.L	BlockBuffer+34	;Entity name pointer
PFlag		DS.B	1
		DC.W	2
		DC.W	30*4
		DC.W	20

PRegFlag	DS.B	2			;This flag is clear (zero) if I couldn't
;						 get to a possible printer name.  It's
;						 $FFFF if I did find a possible name.

;*******************************************************************************************

;-----------------------------------------------------------------------------------------
; 		Screen routines and data are below.
;

ShowName	php				;Save the state of the m and x bits.

		sep	#$30
		longa	off
		longi	off

		lda	UserName		;Load the default user name length.
		beq	GetOne
ShowExitShort	jmp	ShowExit		;Jump if it's non-zero.

GetOne
		rep	#$30
		longa	on
		longi	on

		jsl	P16_Entry		;Get the console drivers dev #
		DC.W	$2020
		DC.L	CDevNumber
		bcs	ShowExitShort

		jsl	P16_Entry		;Open the console driver
		DC.W	$2010
		DC.L	OpenCon
		bcs	ShowExitShort

		lda	ConDevNum
		sta	ResetConDev
		sta	GetIDevNum
		sta	SetIDevNum
		sta	SetTDevNum
		sta	SetWDevNum
		sta	SetRDevNum
		lda	ConRefNum
		sta	ReadConRef
		sta	DrawConRef
		sta	CloseConRef

		jsr	PrepareConsole
		bcs	SCloseExit

		sep	#$20			; MSD: short A for I/O
		longa	off
		lda	>$E1C029		;Save the current state of the
		sta	HoldSHR			;SHR screen.
		and	#$7F			;Turn off SHR mode.
		sta	>$E1C029
		rep	#$20			; MSD: return to long A
		longa	on
		
		jsl	P16_Entry		;Read
		dc.w	$2012
		dc.l	ReadCon
		bcs	SCloseExit

		jsl	P16_Entry		;Get the current input settings
		dc.w	$202D
		dc.l	GetInputParms
		bcs	SCloseExit

		lda	InputPort+8		;Get the last terminator
		and	#$00FF
		cmp	#0013
		beq	@L1

		stz	ReadCount

@L1		lda	ReadCount
		and	#$00FF
		ora	UserName
		sta	UserName

		sep	#$30
		longa	off
		longi	off

		lda	HoldSHR			;Restore the old state of the
		sta	>$E1C029		;SHR screen.

		jsr	SaveName		;Save the new name to disk.

		lda	UserName		;Load the new user name length.
		sta	RealLength		;Save it for the BumpName routine.
		bne	ShowExit		;Branch if it's non-zero.

		jsr	MoveUnnamed		;They entered no name or hit escape, just
;						 use <Unnamed>.

SCloseExit	jsl	P16_Entry		;Close the console driver
		DC.W	$2014			; MSD
		DC.L	CloseCon

ShowExit	plp				;Restore the m and x bits
		rts

		longa	on
		longi	on

PrepareConsole	jsl	P16_Entry		;Reset the console driver
		DC.W	$202E
		DC.L	ResetCon
		bcs	@L1

		jsl	P16_Entry		;Draw the main screen.
		DC.W	$2013
		DC.L	DrawCon
		bcs	@L1

		jsl	P16_Entry		;Get the current input settings
		dc.w	$202D
		dc.l	GetInputParms
		bcs	@L1

		lda	#$80C9
		sta	InputPort		;Set fillchar ('ghost space')
						;and cursor mode (defualt)

		jsl	P16_Entry		;Set the new input settings
		dc.w	$202E
		dc.l	SetInputParms
		bcs	@L1

		jsl	P16_Entry		;Set the terminators
		dc.w	$202E
		dc.l	SetTerminators
		bcs	@L1

		jsl	P16_Entry		;Set the wait mode
		dc.w	$202E
		dc.l	SetWaitMode
		bcs	@L1

		jsl	P16_Entry		;Set the read mode
		dc.w	$202E
		dc.l	SetReadMode
		bcs	@L1

		clc
@L1		rts

		longa	off
		longi	off

HoldSHR		ds.b	1			;For holding the state of the SHR
						;mode byte (just the high bit)

;------------------------------------------------------------------------------------------
;	Console data is below
;

CDevNumber	dc.w	0002			;Parameter count
		dc.l	ConName			;Device name pointer
ConDevNum	dc.w	0000			;Device number
ConName		dc.w	0008			;Device name length
		dc.b	'.CONSOLE'		;Device name

ResetCon	dc.w	0005			;Parameter count
ResetConDev	dc.w	0000			;Device number
		dc.w	0000			;Reset Device
		dc.l	Reset			;List pointer
		dc.l	0			;Request count
		dc.l	0			;Transfer count
Reset		dc.w	0

OpenCon		dc.w	0002			;Parameter count
ConRefNum	dc.w	0000			;File reference number
		dc.l	ConName			;File name pointer

CloseCon	dc.w	0001			;Parameter count
CloseConRef	dc.w	0000			;File referenc number

DrawCon		dc.w	0004			;Parameter count
DrawConRef	dc.w	0000			;Reference number
		dc.l	DrawBuff		;Pointer to write buffer
		dc.l	DrawLength		;Request count
		dc.l	0			;Transfer count

ReadCon		dc.w	0004			;Parameter count
ReadConRef	dc.w	0000			;Reference number
		dc.l	UserName+1		;Pointer to write buffer
		dc.l	0031			;Request count
ReadCount	dc.l	0			;Transfer count

GetInputParms	dc.w	0005			;Parameter count
GetIDevNum	dc.w	0			;Device number
		dc.w	$8001			;GetInputPort
		dc.l	InputPort		;List pointer
		dc.l	12			;Request count
		dc.l	0			;Transfer count

SetInputParms	dc.w	0005			;Parameter count
SetIDevNum	dc.w	0			;Device number
		dc.w	$8000			;SetInputPort
		dc.l	InputPort		;List pointer
		dc.l	12			;Request count
		dc.l	0			;Transfer count

SetTerminators	dc.w	0005			;Parameter count
SetTDevNum	dc.w	0			;Device number
		dc.w	$8001			;SetTerminators
		dc.l	Terminators		;List pointer
		dc.l	TermLength		;Request count
		dc.l	0			;Transfer count

SetWaitMode	dc.w	0005			;Parameter count
SetWDevNum	dc.w	0			;Device number
		dc.w	$0004			;SetWaitStatus
		dc.l	WaitMode		;List pointer
		dc.l	0002			;Request count
		dc.l	0			;Transfer count
WaitMode	dc.w	0

SetReadMode	dc.w	0005			;Parameter count
SetRDevNum	dc.w	0			;Device number
		dc.w	$8003			;SetReadMode
		dc.l	ReadMode		;List pointer
		dc.l	0002			;Request count
		dc.l	0			;Transfer count
ReadMode	dc.w	0

DrawBuff	dc.b	$0C			;Clear the screen
		dc.b	$1B			;Moustext on
		dc.b	$02,10+32,9+32,69+32,16+32 ;Set text port size
		dc.b	$1E,2+32,6+32		;GotoXY
		dc.b	'OK: '
		msb	on
		dc.b	'M'
		msb	off
		dc.b	$1E,47+32,6+32		;GotoXY
		dc.b	'Esc: Cancel'
		dc.b	$1E,4+32,2+32
		dc.b	'Please Enter a User Name: '
		dc.b	$19			;Home cursor
		dc.b	$15,$01			;Set cursor movement.
		dc.b	' __________________________________________________________ '
		dc.b	$1E,0+32,1+32		;GotoXY
		msb	on
		dc.b	'Z',$0A,$08,'Z',$0A,$08,'Z',$0A,$08,'Z',$0A,$08,'Z',$0A,$08,'Z',$0A,$08
		msb	off
		dc.b	$1E,59+32,1+32		;GotoXY
		msb	on
		dc.b	'_',$0A,'_',$0A,'_',$0A,'_',$0A,'_',$0A,'_',$0A
		msb	off
		dc.b	$1E,0+32,7+32		;GotoXY
		dc.b	' '
		msb	on
		dcb.b	58,'L'
		msb	off
		dc.b	' '		
		dc.b	$15,$1F			;Set cursor movement.
		dc.b	$1E,4+32,4+32		;GotoXY (for input)
DrawLength	equ	*-DrawBuff

InputPort	ds.b	12

Terminators	dc.w	$007F			;AND mask
		dc.w	$0002			;Term count
		dc.w	0027		;Escape
		dc.w	0013		;Return
TermLength	equ	*-Terminators

;-----------------------------------------------------------------------------------------
; The routine below will save the new username off to disk.  The prefix should be already
; set to the appropriate setup directory.

SaveName	lda	UserName		;Only save the name if it's a non-null
		beq	ShowS1

		rep	#$30
		longa	on
		longi	on

		jsl	P16_Entry		;Open the ATINIT file
		DC.W	$10
		DC.L	InitFile
		bcs	ShowS1			;Branch if error

		lda	InitFile		;Move the file reference number
		sta	EOFBlock		;into the get and set eof call blocks
		sta	WriteName		;and the read file call block

		jsr	SetTheMark
		bcs	ShowS2

		jsl	P16_Entry		;Write out the default user name
		DC.W	$13
		DC.L	WriteName

		jsl	P16_Entry		;Flush in case we're working on a
		DC.W	$15			;UniDisk and it's write protected.
		DC.L	WriteName

ShowS2		jsl	P16_Entry		;Close the file
		DC.W	$14
		DC.L	InitFile

ShowS1		sep	#$30
		longa	off
		longi	off

		rts

;*******************************************************************************************

;-------------------------------------------------------------------------
; RegAgain is the completion routine for the asyncronous RegisterName call.
; If there was an error in registering the name, it will bump the number at
; the end of the name and try to re-register it.

		longa	on
		longi	on

RegAgain	php
		phb

		lda	RegResult		;Load the error
		cmp	#$0402			;Does the name already exist?
		bne	RegExit			;Branch if different error

		jsr	BumpName		;Add number to user name
		bcs	RegExit

		jsr	ConcatName		;Add the type and zone fields.

RegSkip		ldx	#RegName		;RegisterName
		ldy	#^RegName		;Register our name onto the net
		jsl	AT_Entry

RegExit		plb
		plp
		jmp	>$FFFFFF		;Seeya-
RegCompl	equ	*-3
		nop				;This nop gets overlayed by the store
;						 in the Main segment. This byte never
;						 gets executed anyways, so we don't
;						 care.

;-------------------------------------------------------------------------
;
; This routine will add a digit to the end of the user name. If a digit
; has already been added then it gets incremented. When it rolls over
; 9, then another digit is added.

BumpName	php				;Save the old state of m and x
		sep	#$30
		longa	off
		longi	off

		ldy	RealLength		;Load the original length of the name
		bit	BracFlag		;Have we already added a '>' to the end?
		bmi	BumpS0			;Branch if so

		lda	UserName,y		;Else check to see if there is a '>' on
		cmp	#'>'			;the end.
		bne	BumpS1			;Branch if there isn't
		dec	BracFlag		;Else flag that there is a '>' at the end.
BumpS0		dey				;Bump our length byte down by 1 if there
;						 is a '>' at the end of the user name.

BumpS1		sed				;Decimal mode please
		clc				;Bump the number to add to the end of
		lda	Num2Add			;the user name by one.
		adc	#1
		sta	Num2Add
		cld
		bcs	BumpTooFar		;Branch if we went past 99.

		pha				;Save the number for later
		and	#$F0			;Get the high nibble (number) only.
		beq	BumpS2			;If it's zero, don't use it.
		lsr	a			;Shift it into the lower nibble
		lsr	a
		lsr	a
		lsr	a
		ora	#$30			;Make it ASCII
		iny				;Bump our user name length
		sta	UserName,y		;Store this first number at the end.

BumpS2		pla				;Get the original number to add, back.
		and	#$0F			;Get the low nibble (number) only.
		ora	#$30			;Make it ASCII
		iny				;Bump our user name length
		sta	UserName,y		;Store this second/first number at the end.

		bit	BracFlag		;Do we have to add a '>' to the end?
		bpl	BumpS3			;Branch if not.
		iny				;Else, bump the length and store it at
		lda	#'>'			;the end.
		sta	UserName,y

BumpS3		sty	UserName		;Store the new length of the user name.
		plp				;Restore old m and x bits
		clc				;Flag successful and exit.
		rts

BumpTooFar	plp				;Restore old m and x bits.
		sec				;Flag unseccessful and exit.
		rts

RealLength	DS.B	1			;This is the original length of the user name.
BracFlag	DS.B	1			;This flag is 0 for no '>' else $FF.
Num2Add		DS.B	1			;Number to append to end of user name.

;--------------------------------------------------------------------------------------
;
; This routine will add the string 'Apple IIgs*' to the user name with the appropriate
; length bytes imbedded. This is to create a entity name for our ATP socket.

ConcatName	php				;Save the state of the m and x bits.
		sep	#$30
		longa	off
		longi	off

		ldy	UserName

		ldx	#0			;Now append the string
NLoop2		inx				;'Apple IIgs''*' to it along
		iny				;with the appropriate length bytes
		lda	DefStruc,x
		sta	UserName,y
		cpx	DefStruc
		bne	NLoop2

		plp				;Restore the state of the m and x bits
		rts

;*******************************************************************************************

;-------------------------------------------------------------------------
;
; This routine is the ATP socket listener. It gets control when a suspected
; Responder packet arrives. A response is sent if appropriate and the request
; is re-qeued.

		longa	on
		longi	on

ATPComplete	php				;Save the current processor status and
		phb				;data bank.

		phk				;Set our data bank up
		plb

		rep	#$30
		longa	on
		longi	on

		lda	ATPReqResult		;Result code to GetRequest
		beq	@L1			;If no error, continue
		cmp	#$102
		beq	Skip0
		jmp	ATPExit			;Else leave and never return.

@L1		lda	#1			;Make sure we GET the RPM
		sta	GetArgs			;printer variables.

		ldx	#WhichPrinter		;Find out which printer they are
		ldy	#^WhichPrinter		;printing to.
		jsl	AT_Entry 
		bcs	Skip			;Branch if error.

		sep	#$30
		longa	off
		longi	off

		ldx	#30			;Blank out printer name
		lda	#' '			;destination in RespPacket
Loop0		sta	Printer,x		;buffer.
		dex
		bpl	Loop0

		ldx	BlockBuffer+34		;Move Printer name into
		beq	Skip			;destination in ResPacket
Loop1		lda	BlockBuffer+34,x	;buffer.
		sta	Printer-1,x
		dex
		bne	Loop1

Skip		rep	#$30
		longa	on
		longi	on

		lda	FromUBytes+3		;Load the command from the user bytes field
		and	#$00FF
		cmp	#1			;Is it a one (1)?
		beq	ATPDoIt

		lda	FromNet			;Put the source info from the
		sta	RelAddr			;GetATPReq call block to the
		lda	FromNode		;SendATPResp call block
		sta	RelAddr+2
		lda	FromTID
		sta	RelTID

		ldx	#ATPRel			;Release control block
		ldy	#^ATPRel		;for bogus packet in case it
		jsl	AT_Entry		;was a XO packet.

Skip0		jmp	Ignore			;If not, I don't know what it is.

;	Below we load the OS type byte.	If it's = $FF then it's
;	Unnamed and we just use '??', if it's = $00 then it's P8 and
;	we use '8 ', if it's anything else, it's P16 and we use '16'

ATPDoIt		lda	OS_Type			;Load the OS type byte
		and	#$00FF
		beq	Skip2			;If zero then we'll assume P8
		cmp	#$00FF			;Unnamed?
		beq	Skip3			;Branch if yes

		ldx	#GSOSName
		bra	Skip4

Skip2		ldx	#P8Name
		bra	Skip4

Skip3		ldx	#UnKnownName

Skip4		pei	<R0

		stx	<R0

		sep	#$30
		longa	off
		longi	off

		lda	(<R0)
		tay
@L1		lda	(<R0),y
		sta	FOSType-1,y
		dey
		bne	@L1

		rep	#$30
		longa	on
		longi	on

		pla
		sta	<R0

		lda	FromNet			;Put the source info from the
		sta	ToNet			;GetATPReq call block to the
		lda	FromNode		;SendATPResp call block
		sta	ToNode
		lda	FromTID
		sta	ToTID
		lda	FromFlags
		and	#$00FF			;only the low byte
		ora	#$0100			;make BitMap = 1
		sta	ToFlags			;store flag and bitmap

		ldx	#ATPResp		;Send our response
		ldy	#^ATPResp
		jsl	AT_Entry 

Ignore		ldx	#ATPReq			;Re-que the request
		ldy	#^ATPReq
		jsl	AT_Entry 

ATPExit		plb				;Restore AppleTalk's data bank and
		plp				;processor status

		jmp	>$FFFFFF		;Seeya-
ATPDone		equ	*-3
		nop				;This nop gets overlayed by the store
;						 in the Main segment. This byte never
;						 gets executed anyways, so we don't
;						 care.

WhichPrinter	DC.B	0			;Sync
		DC.B	$28			;PMSetPrinter
		DS.B	2
		DC.L	BlockBuffer+34		;Entity name pointer
GetArgs		DC.B	1			;Get arguments
		DS.B	2
		DS.B	2
		DS.B	2

;-------------------------------------------------------------------------
;	DATA IS BELOW
;-------------------------------------------------------------------------

P16Version	DS.B	2

GetFSTVersion	dc.w	4			;PCount
FSTNumber	dc.w	0
FSTID		dc.w	0
		dc.l	BlockBuffer
FSTVersion	dc.w	0

GIMisc		DC.B	0
		DC.B	2
		DS.B	2
GICompl		DS.B	4
GIThisNet	DS.B	2
GIABridge	DS.B	1
GIHardID	DS.B	1
GIROMVers	DS.B	2
GINodeNum	DS.B	1

OATPSocket	DC.B	0
		DC.B	$14
		DS.B	2
Socket		DS.B	2			;2 bytes because of word store

RegName		DC.B	$80
		DC.B	$0E
RegResult	DS.B	2
		DC.L	RegAgain
		DC.L	NameStruc
		DC.B	2			;Retry ever 1/2 second
		DC.B	8			;Retry eight times (4 seconds)
		DS.B	2			;Reserved
RegSocket	DS.B	1			;Socket number
		DC.B	0			;Check for duplicates.

NameStruc	DS.B	9
UserName	DS.B	99

DefStruc	DC.B	DefLength
		str	'Apple IIgs'
		str	'*'
DefLength	equ	*-DefStruc+1

ATPReq		DC.B	$80
		DC.B	$16
ATPReqResult	DS.B	2
		DC.L	ATPComplete
ReqSocket	DS.B	1
FromNet		DS.B	2			;Source network number
FromNode	DS.B	1			;Source node number
		DS.B	1			;Source socket number
FromTID		DS.B	2			;ATP transactive ID
		DC.W	600			;Request buffer length
		DC.L	ReqBuffer		;Request buffer pointer
FromUBytes	DS.B	4			;User bytes
		DS.B	2			;Actual request length
FromFlags	DS.B	1			;ATP flags
		DS.B	1			;Bitmap
		DS.B	4			;Reserved

ATPRel		dc.b	$00			;Sync Flag
		dc.b	$19			;RelATPCB call number
		dc.w	0			;Result code
RelSocket	dc.b	0			;Response socket #
RelAddr		dc.w	0			;Dest Net
		dc.b	0			;Dest node
		dc.b	0			;Dest socket
RelTID		dc.w	0			;TID

ATPResp		DC.B	$80
		DC.B	$17
		DS.B	2
		DC.L	0			;No completion routine.
ResSocket	DS.B	1
ToNet		DS.B	2
ToNode		DS.B	1
		DS.B	1
ToTID		DS.B	2
		DC.B	1			;1 response buffer
		DC.B	1			;1 ATP packet
		DC.L	RespBDS
ToFlags		DC.B	0			;ATP Flags
		DC.B	1			;Current bitmap
		DC.L	0			;Add routine pointer
		DS.B	1			;Add bitmap

RespBDS		DC.W	ATPLength		;Length of packet (53)
		DC.L	RespPacket		;Pointer to packet
		DC.B	1			;User's bytes (4)
		DC.B	0
		DC.W	Version
		DC.W	0			;Actual length

RespPacket	DC.W	$0100			;AppleTalk driver version
		DC.B	0			;Rom version
		DC.B	$25			;System type (Apple IIgs)
		DC.B	$02			;System subclass (Apple II series)
		DC.B	$02			;Hardware flags (ADB bus only)
RespROM		DC.W	0			;ROM 85 version
		DC.B	0			;Status byte 1
		DC.B	0			;Status byte 2
RespStrOffSet	DC.B	str1len
str1		DC.B	'GS/OS Version: '
SVHigh		DC.B	'1.'
SVLow		DC.B	'1'
SVBit		DC.B	'P'
str1len		equ	*-str1

		DC.B	str2len
str2		DC.B	'OS Loaded: '
FOSType		DC.B	'ProDOS 8'
str2len		equ	*-str2

		DC.B	str3len
str3		DC.B	'Network Printer: '
Printer		dcb.b	31,$20
str3len		equ	*-str3

		dc.w	$0C00			;This has to be 12 in order for
						;Interpoll to use the string below.
		dc.b	str4len
str4		
AFPVersion1	dc.b	' '
		dc.b	'.'
AFPVersion2	dc.b	' '
AFPVersion3	dc.b	' '
str4len		equ	*-str4

ATPLength	equ	*-RespPacket


ReqBuffer	DS.B	600

P8Name		str	'ProDOS 8'
GSOSName	str	'GS/OS   '
UnKnownName	str	'Unknown '

		ENDP

;**********************************************************************************

		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/SetupFiles/ATResponder/MakeFile b/IIGS.601.SRC/GS.OS/SetupFiles/ATResponder/MakeFile
new file mode 100644
index 0000000..615a413
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/SetupFiles/ATResponder/MakeFile
@@ -0,0 +1 @@
+Objects	=	atresponder.oii

.oii			Ä	.aii
	asmiigs {aiigsoptions} -o {Default}.oii -l -lo {Default}.lst {Default}.aii

atresponder		Ä	{Objects}
	linkiigs -t B6 -l >{Targ}.objlist -o {Targ} {Objects}
	echo "FileType = $B6  AuxType = $0000" >> {Worksheet}
	quote `directory`{Targ}
	

{Objects}		Ä	atresponder.aii
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/SetupFiles/ConsPatch6.0/ConsPatch.aii b/IIGS.601.SRC/GS.OS/SetupFiles/ConsPatch6.0/ConsPatch.aii
new file mode 100644
index 0000000..c6dcdf8
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/SetupFiles/ConsPatch6.0/ConsPatch.aii
@@ -0,0 +1 @@
+*
* ConsPatch.aii - INIT to fix bugs in the System 6.0 Console Driver
*
* written by Greg Branche
*
* Copyright (c) 1992
* Apple Computer, Inc.
* All Rights Reserved
*

		include	'M16.GSOS'

ptr		equ	1

patch_version	equ	$3020
new_version	equ	$3030
version_addr	equ	$0040
remove_trap	equ	$0678		;offset to remove_trap routine
cout_addr	equ	$09C5		;offset to COut vector
cout_1_addr	equ	cout_addr+4
keyin_addr	equ	$09E5		;offset to KeyIn vector
keyin_1_addr	equ	keyin_addr+4

start		Proc
		Import	consPatch
		
		bra	consPatch
		EndP

devName		Record
		dc.w	8
		dc.b	'.CONSOLE'

dNumParms	Record
		dc.w	2
		dc.l	devName
devNum		dc.w	0

dInfoParms	Record
		dc.w	7		;pCount
devNum		dc.w	0		;devNum
		dc.l	0		;devName (NULL pointer)
		dc.w	0		;characteristics
		dc.l	0		;totalBlocks
		dc.w	0		;slotNum
		dc.w	0		;unitNum
version		dc.w	0		;version

openParms	Record
pCount		dc.w	2		;pCount
refnum		dc.w	0
		dc.l	devName

statList	Record
cOutVector	dc.l	0
keyInVector	dc.l	0

dStatusParms	Record
		dc.w	5		;pCount
devNum		dc.w	0		;devNum
		dc.w	$8007		;GetVectors code
		dc.l	statList
		dc.l	8		;requestCount
		dc.l	0		;transferCount

consPatch	Proc

		phb			;set DBR properly
		phk
		plb
		
		phd			;make local direct page
		pha			;space for pointer
		pha
		tsc
		tcd

; determine device number for .Console driver

		_GetDevNumberGS dNumParms
		bcs	@to_skip_it	;huh???

		lda	dNumParms.devNum
		sta	dInfoParms.devNum
		sta	dStatusParms.devNum

; make a DInfo call to ensure we're looking at the buggy driver

		_DInfoGS dInfoParms
		bcs	@to_skip_it	;huh???
		
		lda	dInfoParms.version
		cmp	#patch_version
		sec
		bne	@to_skip_it	;not correct version number, skip it

; OK, we've got the right driver.  Now get the vector addresses

		_OpenGS openParms	;first we have to open the driver
		bcc	@no_problems
@to_skip_it
		brl	skip_it
@no_problems
		_DStatusGS dStatusParms	;get the vector values
		bcs	close_skip	;huh???

; Calculate the beginning address of the driver
; (makes it easier to look up the addresses in the listing)

		lda	statList.cOutVector
		sec
		sbc	#cout_addr	;calculate beginning of driver segment
		sta	ptr		;store into pointer
		lda	statList.cOutVector+2
		sta	ptr+2
		
; Look at the current values at remove_trap to make sure the bug is still there

		ldy	#remove_trap+$15
		lda	[ptr],y		;at lda #<char_out
		sec
		sbc	ptr		;calculate offset from beginning of driver
		cmp	#$0a3d
		sec
		bne	close_skip	;no match, skip it
		ldy	#remove_trap+$21
		lda	[ptr],y		;at lda #<read_key
		sec
		sbc	ptr
		cmp	#$155e
		sec
		bne	close_skip

; OK, the incorrect values are still there.  Fix 'em

		lda	statList.cOutVector
		clc
		adc	#4		;proper address is just after vector
		ldy	#remove_trap+$15
		sta	[ptr],y		;at lda #<char_out (should have been lda #<cout_1)
		ldy	#cout_addr+1	;patch the vector directly too
		sta	[ptr],y
		sep	#$20		;8-bit mode
		lda	statList.cOutVector+2	;get bank byte
		rep	#$20
		xba			;put bytes into proper order
		ldy	#remove_trap+$1b
		sta	[ptr],y		;at lda #char_out>>8
		ldy	#cout_addr+2
		sta	[ptr],y
		
		lda	statList.keyInVector
		clc
		adc	#4
		ldy	#remove_trap+$21
		sta	[ptr],y		;at lda #<read_key (should have been lda #<keyin_1)
		ldy	#keyin_addr+1
		sta	[ptr],y
		sep	#$20
		lda	statList.keyInVector+2
		rep	#$20
		xba
		ldy	#remove_trap+$27
		sta	[ptr],y		;at lda #read_key>>8
		ldy	#keyin_addr+2
		sta	[ptr],y

; now we can update the version number stored in the DIB

		ldy	#version_addr
		lda	#new_version
		sta	[ptr],y

		clc
close_skip
		php			;save carry
		lda	#1		;set the proper pCount
		sta	openParms.pCount
		_CloseGS openParms
		plp			;retrieve original carry
		bcc	no_error
skip_it
		ldx	#$2C03		;SysBeep
		jsl	$E10000
no_error
		pla			;clean up stack
		pla
		pld
		plb
		rtl			;done
		EndP
		End
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/SetupFiles/ConsPatch6.0/Makefile b/IIGS.601.SRC/GS.OS/SetupFiles/ConsPatch6.0/Makefile
new file mode 100644
index 0000000..08fc357
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/SetupFiles/ConsPatch6.0/Makefile
@@ -0,0 +1 @@
+ConsPatch	ÄÄ	ConsPatch.obj
	LinkIIGS -t TIF ConsPatch.obj -o ConsPatch

ConsPatch.obj	Ä	ConsPatch.aii
	AsmIIGS ConsPatch.aii -o ConsPatch.obj
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/SetupFiles/QuickConsole/QuickConsole.aii b/IIGS.601.SRC/GS.OS/SetupFiles/QuickConsole/QuickConsole.aii
new file mode 100644
index 0000000..b55ef29
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/SetupFiles/QuickConsole/QuickConsole.aii
@@ -0,0 +1 @@
+		string	asis
		blanks	off

		print	push
		print	off
		include	'common.equ.src'
		print	pop,nogen,nopage,nohdr
		
;====================================================================================================
;
;Fast.Access:	This setup file will speed up file writes to the console driver.
;
;Created:	June 25, 1989
;Modified:	June 28, 1989
;Author:	Rob Turner
;
;Modified:	August 7, 1989
;Modifier:	Greg Branche
;
;	At @call_console_fast, the code now checks whether it's handing a read call or a write
;	call.  If it's a read call, it skips the modification to the JSR SIGNAL instruction.  In
;	other words, the call to the signal handler only get's patched out during a driver write
;	call.  This allows Rob's improved console driver to continue working with this speed-up
;	init file.  (His modification to the User Input Routine (UIR) implemented a method of 
;	using the signal handler so that the CDA menu was still accessible while waiting for 
;	input in the UIR.)
;
;Modified:	August 25, 1989
;Modifier:	Greg Branche
;
;	When verifying the device characteristics, the code masks the 'Fixed Name' bit, since
;	it's not important, and the value of that bit has changed since System Disk 5.0.
;
;Modified:	July 3, 1990
;Modifier	Greg Branche
;
;	Updated addresses, version numbers, and code for use with GS/OS version 3.03 (System
;	disk 5.0.3).
;
;====================================================================================================

go_main		proc
		import	main
		jmp	main
		endp
		
;====================================================================================================
;equates used by fast access.  The following address MUST be changed if GS/OS is changed!!!!
;====================================================================================================

OSVersNum	equ	$0303			;OS Version number required
ConsVersNum	equ	$3010			;Console driver version number

return_address	equ	$00D5BD			;address we return to after call.
return_check	equ	$2BAB
entry_type	equ	$00A025			;Better be there
patch_address	equ	$00D5A0			;address in Language card
patch_check1	equ	$3A22			;patch value = JSL 00B73A
patch_check2	equ	$00B7

signal_patch	equ	$009EC9			;Address of signal dispatch.
signal_check1	equ	$AB20			;"JSR $ECAB" SEP #$20
signal_check2	equ	$E2EC
TwoNOPs		equ	$EAEA			;Two NOP instructions

INCBusyPatch	equ	$009E38			;Address of INC Busy call in the OS
INCBusyCheck	equ	$6422			;Part of JSL $E10064

DECBusyPatch	equ	$009EC0			;Address of DEC Busy call in the OS!
DECBusyCheck	equ	$6822			;Part of JSL $E10068
IncDecCommon	equ	$E100			;High word of JSL $E10068 = 22 68 00 E1

UnlockPatch	equ	$00D5B9			;Address in LC of call to Force Unlock.
UnlockCheck1	equ	$4222			;Part of JSL $00B742 = 22 42 B7 00
UnlockCheck2	equ	$00B7			;Second Part of above JSL
OSUnlockRoutine	equ	$00B742
OSLockRoutine	equ	$00B73A

inc_busy_flag	equ	$E10064			;address of inc_busy_flag call
dec_busy_flag	equ	$E10068			;address of dec_busy_flag call


call_block	equ	$D4
temp_error	equ	$00A02E			;error code returned to caller

do_Unlock	equ	$0000
do_DEC_Busy	equ	$0000

No_DEC_Busy	equ	$0001			;BIT set = No DEC Busy flag
No_UnLock	equ	$8000			;BIT set = No_Unlock memory

;====================================================================================================
;Macros used by FastAccess
;====================================================================================================

  MACRO 
&lab _GSOSCall &param1,&param2 
&lab jsl $E100A8 
 DC.W &param1 
 DC.L &param2 
  MEND 

open		equ	$2010
close		equ	$2014
DControl	equ	$202E
GetDevNum	equ	$2020
Version		equ	$202A
AddNotifyProc	equ	$2034
DInfo		equ	$202C

;====================================================================================================
;Local Data used by FastAccess
;====================================================================================================
Console_Dev_Num	record
		dc.w	00			;Device number of the Console Driver
		endr

;====================================================================================================
;entry_patch:	This routine is called by GS/OS at the at the beginning of the OS call.
;
;Input:         A = saved
;               X = saved
;               Y = saved
;               P = saved
;                   ..000...
;               b = k
;
;
;Output:        A = restored
;               X = restored
;               Y = restored
;               P = restored
;                   ..000...
;               b = k
;
;
;====================================================================================================
		longa	on
		longi	on
entry_patch	proc

user_stack	equ	$48
		
		phb
		
		lda	>entry_type		;prepare to get	call_num and parm_block
		beq	lc_stack_entry		;processing differs by inline vs. stack

		entry	lc_inline_entry
lc_inline_entry	ldy	#3			;set up	pointer	to 1 byte below	call_num
		lda	[<user_stack],y		;user return address in	user stack ...
		sta	<call_block		;... is	the proper value
		iny
		lda	[<user_stack],y
		sta	<call_block+1
		bra	get_parms

		entry	lc_stack_entry
lc_stack_entry	clc				;set up	pointer	to 1 byte below	call_num
		lda	<user_stack
		adc	#5			;address of location 5 bytes above user
		sta	<call_block		;... stack pointer is the right	value   
		stz	<call_block+2

get_parms	ldy	#1			;call_number to	GS/OS direct page
		lda	[<call_block],y
		sta	<call_number
		tax
		
		ldy	#3			;param_blk_ptr to GS/OS	direct page 
		lda	[<call_block],y
		sta	<param_blk_ptr
		ldy	#5
		lda	[<call_block],y
		sta	<param_blk_ptr+2	;Now PUSH the Parameter block pointer BANK	
;
;Set flag that says "Do not Call ForceUnlock and Do not call DEC Busy"
;
		lda	#No_Unlock+No_DEC_Busy
		sta	>LockFlag_and_DECFlag
;
;Now check for a CONSOLE write call.
;
		ldy	#$0002			;setup for class 1 write call
		txa
		cmp	#$2013			;is the call a write call?
		beq	@chk_if_console

		ldy	#$0000			;setup for class 0 write call
		cmp	#$0013
		beq	@chk_if_console
;
;Now check to see if we are doing a DRead or DWrite call. IF we are doing DRead or DWrite
;Then DO NOT do ForceLock/Unlock or INC/DEC busy flag.
;
@check_DRead
		cmp	#$202F
		bne	@check_DWrite
		lda	#drvr_read
		sta	drvr_call_num		;setup the call number
		bra	@dev_common		;see if the device is the CONSOLE
@check_DWrite
		cmp	#$2030
		bne	@chk_close		;see if a close call is being made.
		
		lda	#drvr_write
		sta	drvr_call_num		;setup for Device Write
@dev_common
		lda	[param_blk_ptr]		;Check the PCount
		cmp	#$0006
		bne	@call_os		;Punt
		
		ldy	#$0002			;see if this is the console driver please
		lda	[param_blk_ptr],y	;get the device number
		cmp	>console_dev_num	;is it the console!
		beq	@do_fast_console	;yes so do it fast!
		plb
		rtl				;NOT .CONSOLE but skip Lock/Unlock and INC/DEC Busy.
;
;Now see if we are making a close call.  If so then zero out our check reference number
;and call the OS!

@chk_close	
		and	#$00FF
		cmp	#$0014
		bne	@call_os		;do a standard OS call.
		lda	#'RT'
		sta	>console_ref		;enable search please

@call_os
		jsl	inc_busy_flag		;Do INC Busy Flag
		jsl	OSLockRoutine		;Do a ForceHandleLock Call
		lda	#Do_DEC_busy+Do_Unlock	;set flag that indicates we should "unLockHandle" and
						;do a DEC Busy Flag
		sta	>LockFlag_and_DECFlag
;
;Restore "JSR Signal_dispatch" code in GS/OS, We may have trashed on on Console Write.
;
		lda	#signal_check1		;restore orignal GS/OS code
		sta	>signal_patch
		lda	#signal_check2
		sta	>signal_patch+2
		plb
		rtl
@chk_if_console
		lda	#drvr_write		;we only call on write calls.
		sta	drvr_call_num		;setup the call number

		lda	[param_blk_ptr],y	;get the reference number
		tax
;
;Setup the drvr_buf_ptr
;
@do_fast_console
		iny
		iny
		lda	[param_blk_ptr],y
		sta	drvr_buf_ptr
		iny
		iny
		lda	[param_blk_ptr],y
		sta	drvr_buf_ptr+2
;
;Setup the request count please
;
		iny
		iny
		lda	[param_blk_ptr],y
		sta	drvr_req_cnt
		iny
		iny
		lda	[param_blk_ptr],y
		sta	drvr_req_cnt+2
		
		stz	drvr_blk_num
		stz	drvr_blk_num+2
		stz	drvr_tran_cnt		
		stz	drvr_tran_cnt+2		
		stz	drvr_blk_size
		
		lda	<call_number		;is this a file write call
		cmp	#$202F			;IF < DRead then Must be Write Call
		bcc	@do_FILE_stuff
;
;IF here then we need to verify that the Starting Block is zero and the block num is zero
;
		iny
		iny
		lda	[param_blk_ptr],y
		iny
		iny
		ora	[param_blk_ptr],y
		bne	@call_os		;let the OS fail
		
		iny
		iny
		lda	[param_blk_ptr],y	;check the block size
		bne	@call_os
;
;For DRead and DWrite we want the BUSY flag to work, so handle it here.
;
		lda	#do_DEC_Busy+No_Unlock	;Force DEC busy on exit.
		sta	>LockFlag_and_DECFlag
		jsl	inc_busy_flag		;Go ahead and do a INC busy
		bra	@call_console_fast
		
@do_FILE_stuff
		txa				;get the reference number again
		cmp	>console_ref		;is it the console's reference number?
		beq	@call_console_fast	;Make this puppy fly!!!
		
		jsl	find_fcr		;get the file control record
		bcs	@call_os
		jsl	deref			;get me a real pointer please
		stx	call_block
		sty	call_block+2

		ldy	#fcr_fst_id
		lda	[call_block],y
		cmp	#$0009			;character FST
		bne	@to_call_os		;cannot be console driver!
		ldy	#fcr_access+2
		lda	[call_block],y		;get the device number
		cmp	>console_dev_num
		beq	@get_ref
@to_call_os
		brl	@call_os		;it is not the console driver
@get_Ref
		lda	[call_block]		;get the reference number
		sta	>console_ref		;save for next time
		
@call_console_fast
;
;Replace "JSR Signal_Dispatch" with NOPs only if writing to the driver
;(reading from .CONSOLE requires the signal handler to be working properly)
;
		ldx	drvr_call_num		;get the call number
		cpx	#drvr_read		;reading?
		beq	@skip_signal_patch	;yes, skip the signal patching

		lda	#TwoNOPS		;Trash Signal Dispatch on exit please
		sta	>signal_patch
		sta	>signal_patch+1

@skip_signal_patch
		lda	>console_dev_num
		sta	drvr_dev_num

;		lda	drvr_call_num		;used as input to the console driver
		txa				;drvr_call_num is still in X register
		export	console_address
console_address	jsl	$0000000		;call the console driver please A=call number!!
		bcs	@oops			;had an error!
		lda	#$0000			;else make sure the accumulator is clear
@oops
		rol	a			;save carry in low bit of temp_error
		sta	>temp_error
		bcs	@error
;
;Now we need to send the Transfer count to the caller.
;
		ldy	#$000A
		lda	<call_number		;is this a file write call
		cmp	#$0013			;Class 0 write call.
		beq	@do_XFer_cnt
		
		cmp	#$2013			;Write call
		bne	@DType_Call

		ldy	#$000C
		lda	[param_blk_ptr]		;Check the PCount for Class 1 write call
		cmp	#$0004
		bcc	@error			;Sorry the PCount DOES NOT include TRANSFER Count
		bra	@do_XFer_cnt

@DType_Call
		ldy	#$0012
@do_XFer_cnt
		lda	drvr_tran_cnt
		sta	[param_blk_ptr],y
		iny
		iny
		lda	drvr_tran_cnt+2
		sta	[param_blk_ptr],y
@error
		plb				;fix the stack please
		pla				;pull off the return address!!
		sep	#$20
		pla
		rep	#$20
		jml	return_address		;return to SCM with error stuff.

;====================================================================================================
;This routine is called to do the DEC Busy Routine!!
;
;		IF the LOW Bit of LockFlag_and_DECFlag is set then we just EXIT otherwise dec_Busy_Flag
;
;====================================================================================================

		export	DECBusyEntry
DECBusyEntry
		lda	>LockFlag_and_DECFlag	;see if we should do a DEC Busy Flag
		lsr	a
		bcc	@do_Dec_busy
		rtl
@do_Dec_busy
		jml	dec_busy_flag		;returns to the OS
		
;====================================================================================================
;This routine is called to do the ForceUnlock Routine!!
;
;		IF the HIGH Bit of LockFlag_and_DECFlag is set then we just EXIT otherwise UNLOCK
;
;====================================================================================================
		export	ForceUnlockEntry
ForceUnlockEntry
		lda	>LockFlag_and_DECFlag	;see if we should do a DEC Busy Flag
		bpl	@do_forceUnlock
		rtl				;skip Unlock
@do_forceUnlock
		jml	OSUnlockRoutine		;Call original

console_ref		dc.w	'RT'		
LockFlag_and_DECFlag	dc.w	$00
		endp				;return to GS/OS


;====================================================================================================
;resize_handle:	This routine shrinks the handle size and returns to GS/OS
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;====================================================================================================
		longa	on
		longi	on
resize_handle	proc

my_handle	equ	$00
		
		php
		sei			;Kill interrupts
		
		pha			;space for result
		pha
		
		pea	resize_handle>>16
		pea	resize_handle	;our own address

		ldx	#$1A02
		jsl	$e10000		;FindHandle
		plx
		ply			;get the handle
		bcs	@exit
		bne	@have_handle
		txa
		beq	@exit		;handle is NIL so exit.
@have_handle
		stx	my_handle
		sty	my_handle+2

		ldy	#$0004		;unlock my handle
		lda	[my_handle],y
		and	#$7FFF
		sta	[my_handle],y

		pea	$0000		;high word
		lda	new_size
		pha
		pei	my_handle+2
		pei	my_handle
		ldx	#$1902
		jsl	$e10000		;Set Handle Size
		bcs	@exit
		
		ldy	#$0004		;unlock my handle
		lda	[my_handle],y
		ora	#$8000		;lock the handle
		sta	[my_handle],y
@exit
		plp			;restore interrupt state.
		rtl

new_size	dc.w	resize_handle-go_main

		endp
		
Console_Name	record		
		dc.w	$08
		dc.b	'.CONSOLE'
		endr
			
;====================================================================================================
;check_os_version:	This routine makes sure we are using GS/OS version 3.0 only.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = OS Version number
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = bad OS version
;               b = k
;
;
;====================================================================================================
		longa	on
		longi	on
check_os_version		proc
	
		_GSOSCall	Version,VersionList
		bcs	@error_exit

		lda	OSVersion
		and	#$7FFF		;clear the proto bit.
		cmp	#OSVersNum
		bne	@error_exit
		clc
		rts
@error_exit
		sec
		rts

;*************************************************************************************************
;************************ Local Variables used by this routine ***********************************
;*************************************************************************************************

VersionList	dc.w	$0001		;PCount for the call
OSVersion	dc.w	0000		;The result

		endp
;====================================================================================================
;trap_handler:	This routine is called directly by the console driver!
;
;Input:         A = call number
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = console driver bank.
;
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = console driver bank
;
;
;====================================================================================================
		longa	on
		longi	on
trap_handler	proc
		php
		pha
;
;Picture of the stack:
;
;	--------------
;	  A Register    $0001
;	--------------
;	  Process	$0003
;	--------------
;	  Return addr	$0004
;	--------------
;
		sec
		lda	4,s		;get the return address
		sbc	#$0003		;get address of Vector call routine!
		tax
		lda	6,s
		and	#$00FF
		sbc	#$0000
;
;Console_Address jsl	$000000		;call console
;
;		$22 00 00 00
;
		xba			;put bank address in high byte of accum.
		sta	>console_address+2
		txa			;low 16 bits of console address.
		sta	>console_address+1

		pla			;restore A register and flags
		plp
		rtl
		endp			;let the call continue please

;====================================================================================================
;get_console_entry:	This routine will setup the console driver device Number and setup 
;			the console driver patch.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;               b = k
;
;
;====================================================================================================
		longa	on
		longi	on
get_console_entry		proc
;
;Before we can use the console driver we must open it first
;
		_GSOSCall	open,OpenList
		bcs	@exit			;Holy Cow BatMan!

		lda	ref_num			;setup reference number for the close call.
		sta	close_ref
		
;
;Now lets get the device number setup please.
;

		_GSOSCall	GetDevNum,GetDevList
		bcs	@close_and_exit

		lda	ret_dev_num		;Device number returned by the call.
		sta	console_dev_num		;save number for Global use
		sta	ctrl_dev_num		;used for DControl Calls
		sta	DInfo_dev_num		;used for DInfo call to console!
;
;Lets make sure that the console driver we are using is the one we think it is.
;
		jsr	check_cons_version		
		bcs	@close_and_exit

;
;Issue a reset_trap call to the console driver.  This will nuke anyones installed handler
;
		stz	request_count		;zero request count for this call
		lda	#$8007			;reset trap address
		sta	ctrl_code
		_GSOSCall	DControl,DCtrlList
		bcs	@close_and_exit		;This call should not fail		
;
;Add in my console driver handling routine.
;
		lda	#$0004			;setup the request count
		sta	request_count
		lda	#$8006			;Add_Trap address
		sta	ctrl_code
		_GSOSCall	DControl,DCtrlList
		bcs	@close_and_exit
;
;Reset the handler again.  	Note: 	this call will cause our Trap_Handler to be called, then
;					removed, hows that for trickyness!!
;				
		stz	request_count		;zero request count for this call
		lda	#$8007			;reset trap address
		sta	ctrl_code
		_GSOSCall	DControl,DCtrlList	

@close_and_exit
		php
		pha				;save error code if any
		_GSOSCall	close,CloseList
		pla
		plp
@exit
		rts

check_cons_version
		_GSOSCall	DInfo,DInfoList
		bcs	@error_out
		
		lda	dev_char		;check the characteristics
		and	#%1111101111111111	;doesn't matter whether the name is fixed or not (gab)
		cmp	#$0B60
		bne	@error_out		;sorry I don't know this console
		lda	slot_num
		cmp	#$8003			;fake slot 3
		bne	@error_out
		lda	unit_num
		dec	a
		bne	@error_out		;we want unit 1
		lda	con_version		;we patch only if console is version 3.01
		and	#$FFF0			;don't care about alpha, beta, or whatever
		cmp	#ConsVersNum
		bne	@error_out
		lda	dev_id
		cmp	#$000A			;check the device ID as well.
		bne	@error_out

		clc
		rts
@error_out
		sec
		rts

;*************************************************************************************************
;************************ Local Variables used by this routine ***********************************
;*************************************************************************************************

DInfoList	dc.w	$0008			;PCount
DInfo_dev_num	dc.w	000
		dc.l	name_buffer
dev_char	dc.w	00			;device characteristics
		dc.l	00			;total blocks
slot_num	dc.w	00
unit_num	dc.w	00
con_version	dc.w	00			;Console Version Number
dev_id		dc.w	00			;Device ID

name_buffer	dc.w	$000C
name_size	dc.w	0000
		dc.b	'.CONSOLE'		;This will get over written at runtime.


GetDevList	dc.w	$0002			;PCount
		dc.l	console_name		;pointer to the name ".CONSOLE"
ret_dev_num	dc.w	00			;resulting device number

DCtrlList	dc.w	$0005			;PCount
ctrl_dev_num	dc.w	00			;Device number of .CONSOLE
ctrl_code	dc.w	00			;Call I wish to make
		dc.l	control_list		;pointer to the control data
request_count	dc.l	00			;number of bytes used
		dc.l	00			;transfer count
		
Control_list	dc.l	trap_handler		;address of routine to get data

OpenList	dc.w	$0002			;PCount
Ref_Num		dc.w	000			;ref num of console driver
		dc.l	console_name

CloseList	dc.w	$0001
close_ref	dc.w	000
		endp



;====================================================================================================
;patch_os:	This routine sets up a patch in the OS.  The patch will allow us to get control
;		Before we have gone to far into an OS call
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000..1 = error
;               b = k
;
;
;====================================================================================================
		longa	on
		longi	on
patch_os	proc

statereg        equ     $c068          		;state register 
lcbank2         equ     $c083           	;sel LC ram bank2, 2 rds wrt enb LC ram 
lcbank1         equ     $c08b           	;sel LC ram bank1, 2 rds wrt enb LC ram


		longa	off
		sep	#$20
		lda	>statereg		;save current language card state
		sta	lc_state
		lda	>lcbank1		;select	and write enable language ...
		lda	>lcbank1		;... card RAM bank 1 (really 0)
		longa	on
		rep	#$20
	
		lda	>patch_address		;see if this is OK to patch
		cmp	#patch_check1
		bne	@error_exit
		lda	>patch_address+2
		cmp	#patch_check2
		bne	@error_exit
		
;
;Check the INC Busy Call
;
		lda	>INCBusyPatch		;is this right!
		cmp	#INCBusyCheck
		bne	@error_exit		;Sorry NO GO
;		
;Check the DEC Busy routine.
;
		lda	>DECBusyPatch
		cmp	#DECBusyCheck
		bne	@error_exit		;Sorry NO GO
;
;Check the FORCEUNLOCK call
;
		lda	>UnLockPatch
		cmp	#UnlockCheck1
		bne	@error_exit
		lda	>UnlockPatch+2
		cmp	#UnlockCheck2
		bne	@error_exit
		
;
;Check the return address to make sure we are OK
;
		lda	>return_address		;make sure the return code is still there!!
		cmp	#$2BAB			;should be a PLB PLD
		bne	@error_exit		;we cannot patch it!

		lda	>signal_patch
		cmp	#signal_check1
		bne	@error_exit
		lda	>signal_patch+2
		cmp	#signal_check2
		beq	@patch_it
@error_exit
		sec				;set error condition
		bra	@exit
		
@patch_it
;
;It all passes so lets patch the OS please.
;
		
		lda	patch1			;install entry patch please
		sta	>patch_address
		lda	patch1+2
		sta	>patch_address+2
;
;Install ForceUnlock patch
;
		lda	UnlockJSL
		sta	>UnlockPatch
		lda	UnlockJSL+2
		sta	>UnlockPatch+2
;
;Install DECBusy Patch
;
		lda	DECBusyJSL
		sta	>DECBusyPatch
		lda	DECBusyJSL+2
		sta	>DECBusyPatch+2
;
;NOP out the JSL INCBusy
;
		lda	#TwoNOPS
		sta	>INCBusyPatch
		sta	>INCBusyPatch+2
		
		clc
		bra	@exit
		
@exit
		pha
		php

		lda	lc_state
		sep	#$20
		sta	>statereg		;restore langauge card setting
		rep	#$20

		plp
		pla
		rts
		
;*************************************************************************************************
;************************ Local Variables used by this routine ***********************************
;*************************************************************************************************

lc_state	dc.w	00
patch1		jsl	entry_patch		;put in patch to our code
UnlockJSL	jsl	ForceUnlockEntry
DECBusyJSL	jsl	DECBusyEntry
		endp
		
		
;====================================================================================================
;main:	This is the main entry point to the program, it is called when we get loaded.
;	Note that it is NOT called on each OS call.
;
;Input:         A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;Output:        A = undefined
;               X = undefined
;               Y = undefined
;               P = nvmxdizc
;                   ..000...
;               b = k
;
;
;====================================================================================================
		longa	on
		longi	on
main		proc

		phk					;you know the story here.
		plb
		
		jsr	check_os_version		;are we running GS/OS version 3.0?
		bcs	@version_exit			;I cannot patch the OS.
		jsr	get_console_entry		;get the console driver's dev num and entry
		bcs	@unload_exit
		jsr	patch_os
		bcs	@unload_exit
		jmp	resize_handle			;Shrink and Exit!!!!
		
@version_exit
		cmp	#$0300
		bcc	@exit				;IF greater > 3.0 then purge me, else exit.
@unload_exit
		lda	#$0001
		sta	4,s				;set the unload flag for GQuit
@exit
		rtl					;return with Unload request!!
		
		endp
		end
		
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/SupervisoryDrivers/SCCManager/Driver.aii b/IIGS.601.SRC/GS.OS/SupervisoryDrivers/SCCManager/Driver.aii
new file mode 100644
index 0000000..feff416
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/SupervisoryDrivers/SCCManager/Driver.aii
@@ -0,0 +1 @@
+		msb	off
		string	asis
		print	sym
		print	nopage
		print	nomdir

;---------------------------------------------------------------------------------
;
;			AppleTalk Supervisory Driver
;
;			    Copyright (c) 1988-1992
;			   Apple Computer, Inc.
;			   All rights reserved.
;
;---------------------------------------------------------------------------------
;
; The SCC supervisory driver goes in the */SYSTEM/DRIVERS/ directory.  It MUST
; have the following attributes set correctly.
;
;	File type  - $00 BB
;	Aux type   - $000 0140
;
;---------------------------------------------------------------------------------
;
; 0.01a		03/27/88	TGH	-First attempt
;
; 0.02a		05/20/88	TGH	-Now loads the files ATALK.PROTOCOLS
;
; 0.03a		06/07/88	TGH	-Searches the DRIVER directory for any
;					 files of type $BB and aux type of $0400
;					 and loads them.
;
; 0.04a		07/05/88	TGH	-Took out statereg access
;					-Fixed alphabetizing bug.
;
; 0.05a		07/11/88	TGH	-Added slot search
;
; 0.06a		10/12/88	TGH	-Changed the way driver looks for
;					 AppleTalk in ROM2 and ROM3.
;
; 00.05		11/29/88	TGH	-Changed version to match system disk.
;					-Fixed bug for ROM01 AppleTalk slot
;					 check.
;
; 2.18A		1/5/89		TGH	-Added Get_Status and Set_Status calls.
;					-No longer unloads if AppleTalk off.
;
; 2.1CB		1/5/89		TGH	-Changed AppleTalk_Client parameters.
;					-Now pass ATalk Channel # in A when
;					 calling ATalk protocols.
;
; 2.1DB		3/6/89		TGH	-Added restart capabilities.
;					-Added shutdown code to reset the SCC.
;
; NOTE: I changed the version number to it's final value (2.01).  From now on,
;       changes will be refered to by build disk name (e.g. 5.0 d19) and date.
;
; 5.0 d20	4/24/89		TGH	-Changed version number to 0201 (2.01).
;
; 5.0 d22	5/1/89		TGH	-I now handle low memory condition
;					 while loading ATALK files.
;
; 5.0 d25	6/1/89		TGH	-Changed the version number to final
;
;		8/7/89		MSD	-The channel usage tables are word-wide
;					 but the routines were accessing them
;					 with byte-wide offsets, causing entries
;					 to overlap.  Fixed.
;
; 6.0 d42	1-Jul-91	MSD	AppleTalk driver files are now sorted in a
;					case-insensitive way.
;
; 6.0 d47	3-Sep-91	MSD	Added support for an EtherTalk bit in an
;					AppleTalk driver's auxtype.  Code now checks
;					Battery RAM location $62 to see whether to
;					load LocalTalk or EtherTalk drivers.
; 6.0 d70	7-Feb-92	MSD	Changed version to 2.02 final.
; 6.0.1d3	6-Apr-92	MSD	Changed version to 2.03 prototype.  Uses two
;					new error messages #66 (No AppleTalk hardware)
;					and #67 (No AppleTalk driver).
; 6.0.1d6	18-Jun-92	MSD	Don't display message #67 if we network booted
;					(i.e. ProtocolType<>0).
;
; 6.0.1d12	14-Dec-92	DAL	Make slot number be 8..15 for an external
;					Ethernet card.  If we do this wrong, the system
;					gets horribly confused on return from ProDOS 8.
;
; 6.0.1d13	21-Jan-93	DAL	Add a new call GetSlotNumber ($0005) to get the
;					0..15 net slot number.  Routine is get_slotnum.
;					The AppleShare FST needs this to know whether
;					we are using Ethernet or not.
;
; 6.0.1d14	9-Mar-93	DAL	Check for Ethernet card version at $CnF7, not
;					at $CnFE.
;
; 6.0.1d16	1-Apr-93	DAL	Check for Ethernet ROM version 2.0d25 or higher,
;					not any old 2.0 version.  Changed this file's
;					version to 2.03 final.
;
;---------------------------------------------------------------------------------

		print	off
		include 'all.macros'
		print	on

Version		equ	$2030			;Version 2.03

ATalk_Dispatch	equ	$E11014
AT_PriorityVec	equ	$E1103A			;Address of vector list
AT_Port		equ	$E101C0			;AT Port for ROM2 or >
AT_Slot		equ	$E101C1			;AT Slot for ROM2 or >

warm_cold_flag	equ	$E101CF			;word 0 = cold 1 = warm.

sltromsel	equ	$C02D

		print	off
		include	'equates'
		print	on

		entry	dispatch,\
			startup,\
			shutdown,\
			dev_startup,\
			get_status,\
			set_status,\
			get_slotnum,\
			others		:CODE

;---------------------------------------------------------------------------------
;
; Header	This 'routine' is the header information needed for all
;		supervisory drivers.
;

Header		proc

		dc.l	Dispatch	;Entry point
		dc.w	0001		;AppleTalk supervisory driver ID #
		dc.w	Version		;Version number
		dc.l	DriverName	;Pointer to supervisor name
		dc.w	$8000		;SIB characteristics.
		dc.w	0		;Reserved word

DriverName	dc.b	11
		dc.b	'SCC.MANAGER'
		dcb.b	21,$20

		endp

;---------------------------------------------------------------------------------
;
; Disp_Table	This 'routine' is the dispatch table for all calls made
;		to this driver.
;

disp_table	proc

		dc.w	startup		;0 = Startup routine
		dc.w	shutdown	;1 = Shutdown routine
	;Supervisor specific call below here
		dc.w	dev_startup	;2 = Driver unit#/slot request (AppleTalkClient)
		dc.w	get_status	;3 = GetChannelStatus
		dc.w	set_status	;4 = SetChannelStatus
		dc.w	get_slotnum	;5 = GetSlotNumber, 0..15 (21-Jan-93 DAL)
		dc.w	others		;Invalid calls

		endp

;---------------------------------------------------------------------------------
;
; Dispatch	This is the main entry point for the SCC supervisory driver.
;
;	Calls		Function
;
;	$0000		Startup
;	$0001		Shutdown
;	$0002		Device Startup
;	$0003		Get Channel Status
;	$0004		Set Channel Status
;	$0005		Get Slot Number
;	$0006-$FFFF	Unspecified (invalid)
;

dispatch	proc

max_command	equ	$0005

		phb				;Save the GS/OS bank register

		phk				;Setup our bank register
		plb

		txa				;Transfer call # to Accum
		cmp	#max_command+1		;Max call number?
		blt	doit			;<, go call it.
		lda	#max_command+1		;Otherwise do others
doit		asl	a
		tax
		jsr	(disp_table,x)		;opt 21-Jan-93 DAL

		plb				;Restore the GS/OS bank register
		rtl				;Return to GS/OS

		endp

;---------------------------------------------------------------------------------
;
; Startup	This routine is the supervisor's startup routine. It first checks
;		to see if AppleTalk is 'turned on'.  If it is, it load all
;		AppleTalk driver files in the DRIVER subdirectory.
;

		entry	Channel1

startup		proc

		ENTRY	Slot_Num,Next_Unit,RomVersion,ATChannel,LinkType

Work1		equ	$00			;Long
Work2		equ	$04			;Long
String1		equ	$08			;Long
String2		equ	$0C			;Long
MyHandle	equ	$10			;Long
ZeroHandle	equ	$14			;Long
TempChar	equ	$18			;byte

SupWork		equ	$60			; available for supervisory drivers

		longa	on
		longi	on

		lda	restart_flag		;Have I already started?
		bne	Exit			;Branch if yes.
		dec	restart_flag		;Else mark me as started.

		jsr	FindSlot
		bcs	Exit			;Carry set = No AppleTalk.

		ldx	ATChannel		;Mark channel n as 'in-use'
		beq	@none
		dex				;by AppleTalk.
		lda	#0001
		sta	Channel1,x
@none
		stz	error_shown		; no message shown yet
		jsr	LoadFiles		;Load all AppleTalk driver files.
		bcc	Exit
		lda	error_shown		; was a message already displayed?
		bne	@shown
		
		pea	0060			;No memory for AppleTalk
		PushLong #NullMessage
		PushLong #NullMessage
		jsl	>$01FC94		;REPORT_ERROR
@shown
		stz	ATChannel		;Turn AppleTalk off
		stz	Slot_Num

Exit		lda	#$0002			;Initialize our unit counter.
		sta	Next_Unit

		lda	#no_error
		clc
		rts				;Return to our dispatcher.

error_shown	dc.w	0			; non-zero if LoadFiles already showed an error
restart_flag	dc.w	0

NullMessage	dc.w	0

;---------------------------------------------------------------------------------
;
; Below we find the appletalk slot if any, and whether we're using LocalTalk or
; EtherTalk.  We also determine and set ROMVersion.  (This used to happen in FindLTalk
; because slot settings are version dependent -- this caused the ROMVersion to be
; set to 0 if EtherTalk was selected.  Fixed 3-Jun-92 MSD.)
;

FindSlot
		pha			;Space for result
		pha			;Space for result
		pha			;Space for result
		pha			;Space for result
		pea	0000		;A on entry
		pea	0000		;X on entry
		pea	0000		;Y on entry
		pea	$FE1F		;Emulation mode entry point
		_FWEntry
		pla			;Y on exit
		plx			;X on exit
		plx			;A on exit
		plx			;Status byte
					;At this point, A (Y on exit) holds the
					;ROM version number.
		and	#$007F			;Strip off prototype bit (high bit)
		sta	ROMVersion		;Store for later use

		pha			; result space
		pea	$0061		; LocalTalk/EtherTalk setting
		_ReadBParam
		pla			; get LocalTalk/EtherTalk setting
		cmp	#2		; EtherTalk?
		beq	@GotLink
		lda	#1		; otherwise, must be LocalTalk
@GotLink
		dea			; change to 0/1
		sta	LinkType	; save result for later
		beq	FindLTalk	; zero, find out which SCC channel we're using
;
; Find the EtherTalk card's slot.  Need to find 'ATLK', $01, $xx, $yy at $CnF9 where
; $yy >= $20.
;
FindETalk
;;;		lda	#$C7F9		; point to slot 7
		lda	#$C7F7		; point to slot 7 (changed 9-Mar-93 DAL)
		sta	SupWork
		stz	SupWork+2
@loop1
;;;		ldy	#3		; offset to 'K' $01
		ldy	#5		;offset to 'K' $01 (changed 9-Mar-93 DAL)
@loop2
		lda	[SupWork],y
		cmp	IDBytes-2,y	;changed 9-Mar-93 DAL
		bne	@next
		dey
		cpy	#2		;added 9-Mar-93 DAL
		bpl	@loop2
*** changed 9-Mar-93 DAL
;;;		ldy	#5		; offset to version
;;;		lda	[SupWork],y
		lda	[SupWork]
*** end 9-Mar-93
		cmp	#$2025		; must be 2.0d25 or later (1-Apr-93 DAL)
		bge	@found		; yep, found it
@next
		dec	SupWork+1	; move down a slot
		lda	SupWork		; get slot pointer
		cmp	#$C100		; slot 1 or more?
		bge	@loop1		; yes, so start scanning slot
		bra	NoAppleTalk	; nothing found!
@found
		stz	ATChannel	; not using an SCC channel
		lda	SupWork+1
		and	#$000F		; get slot number
		jsr	FixSlotNumber	; If needed, add 8 for external slot (14-Dec-92 DAL)
		sta	Slot_Num
		clc			; no error
		rts

IDBytes		dc.b	'ATLK',$01

*** added 14-Dec-92 DAL -- If slot A is external, add 8
FixSlotNumber	pha
		and	#7
		tax
		lda	>sltromsel	; get slot rom selection
slot_check	ror	a
		dex
		bpl	slot_check
		bcc	int_slot

		pla
		ora	#$0008		; slots 8-15 are external
		rts

int_slot	pla
		rts
*** end 14-Dec-92
		

FindLTalk	lda	ROMVersion		; which version?
		cmp	#0002			;There really isn't a ROM 2
		bcs	ROM3			;but that's OK (its ROM 3).

ROM0orROM1	pha				;Space for result
		pea	$0027			;Slot 7 setting
		_ReadBParam
		pla				;Pull the data
		bne	NoAppleTalk

		lda	#0001
		sta	ATChannel		;Assume channel 1

		pha				;Space for result
		pea	$0021			;Slot 1 setting
		_ReadBParam
		pla
		bne	@L1

		inc	ATChannel		;Make it = 2

@L1		lda	#0007
		bra	DoneROMCheck

ROM3		lda	>AT_Port
		and	#$00FF
		beq	NoAppleTalk
		sta	ATChannel
		lda	>AT_Slot
		and	#$00FF

DoneROMCheck	sta	Slot_Num
		clc
		rts

NoAppleTalk
		stz	Slot_Num
		stz	ATChannel
		
		pea	0066			;No AppleTalk hardware
		PushLong #NullMessage
		PushLong #NullMessage
		jsl	>$01FC94		;REPORT_ERROR

		sec
		rts

Slot_Num	dc.w	0			;We are in slot n.
Next_Unit	dc.w	$0001			;Start with unit #1.

RomVersion	dc.w	0			;ROM version (byte).
ATChannel	dc.w	0			;SCC channel AppleTalk uses.
LinkType	dc.w	0	; 0 = LocalTalk, 1 = EtherTalk


;---------------------------------------------------------------------------------
;
; LoadFiles	This routine will do the following:
;
;		1) Allocate a 5K chunk of memory.
;		2) Get all the AppleTalk protocol driver file
;		   names and stick them in the 5K chunk along
;		   with pointers to those names.
;		3) Sort the names by manipulating the pointers.
;		4) Load the files by pointer order.
;		5) Deallocate the 5K chunk of memory.
;

LoadFiles	stz	ProtocolType

		lda	>AT_PriorityVec+2	;If the priority chain has anything
		bne	SkipLoad
		lda	>AT_PriorityVec
		cmp	#$006B			;but a $6B000000 in it, then appletalk
		beq	LoadProtocols		;has already been loaded and I don't
		cmp	#$6B6B			;have to load it now.
		beq	LoadOProtocols
SkipLoad	clc
		rts

LoadOProtocols	lda	#$0080			;Load only optional protocols
		sta	ProtocolType

LoadProtocols	tdc
		sta	ZeroPageHold

		stz	FilesFound		;Mark no files found yet.

;	Below we get a block of memory to store the file names
;	of the files to load and pointers to those names.
;	If we have trouble getting the block of memory, we just
;	leave with the carry set which means AppleTalk won't be
;	available.  This might not be totally true because we might
;	not have any RAM based patches, but we can't take the chance.

		PushWord #0			;Make sure we have a unique
		PushWord #$A100			;ID number.
		_GetNewID
		PullWord MyID
		bcc	@GotID
		rts				; return with carry set

;
; Here, we're allocating one page in bank 0 for use as a direct page.
;
@GotID		PushLong #0
		PushLong #$0100			;.25K
		PushWord MyID
		PushWord #$C015			;Attributes
		PushLong #0			;Must be in bank 0
		_NewHandle			;Ask for a one page chunk.
		bcc	@GotHandle
		pla				;Fix the stack
		pla
		rts				; return with carry set

@GotHandle	tsc				;Set the zero page to our stack and
		tcd				;dereference the handle and transfer
		lda	[1]			;the result to the direct register.
		tcd
		PullLong ZeroHandle		;Save the handle for deleting.

		PushLong #0
		PushLong #$1400			;5K
		PushWord MyID
		PushWord #$0100			;Attributes
		PushLong #0			;I don't care where it starts
		_NewHandle			;Ask for a 5K chunk.
		PullLong MyHandle
		bcc	@GotHandle1
		jmp	PurgeZP

@GotHandle1	PushLong MyHandle		;Now lock it down so we can de-
		_HLock				;reference it without it moving.

		ldy	#0002
		lda	[MyHandle]		;Dereference 5K chunk,
		sta	Work1			;Store it on zero page
		sta	PrefixBuffer
		clc
		adc	#0002
		sta	OpenBuffer
		lda	[MyHandle],y		;Don't forget the high word.
		sta	Work1+2
		sta	PrefixBuffer+2
		adc	#0000
		sta	OpenBuffer+2

;	Now we try to open the */SYSTEM/DRIVERS/ subdirectory

		lda	#$1400-2		;Initialize Get_Prefix's
		sta	[Work1]			;G-String.

		jsl	>$E100A8
		dc.w	$200A			;Class 1 Get_Prefix
		dc.l	GetPrefix
		bcc	@GotPrefix
		jmp	PurgeMemory		;Leave with carry set!

@GotPrefix	jsl	>$E100A8
		dc.w	$2010			;Class 1 Open
		dc.l	OpenDir
		bcc	@GoodOpen		;Branch if no error
		jmp	PurgeMemory		;Leave with carry set!

@GoodOpen	lda	OpenDir+2		;Move the reference number into
		sta	EntryList+2		;get_dir_entry and close call
		sta	CloseDir+2		;blocks.

		clc
		lda	Work1
		adc	#0136
		sta	[Work1]
		sta	Work2
		lda	Work1+2
		adc	#0000
		sta	[Work1],y
		sta	Work2+2

; Below we loop until we have looked at ALL the files in the driver
; directory on the boot disk.  If there is any kind of an error on the
; the directory, we stop searching.

LoadLoop	lda	Work2			;Move the next entry pointer into
		sta	EntryPtr		;the GetNextEntry call block.
		lda	Work2+2
		sta	EntryPtr+2

		lda	#0032			;Initialize the G-String to 32.
		sta	[Work2]

		jsl	>$E100A8
		dc.w	$201C			;Class 1 GetDirEntry
		dc.l	EntryList

		bcs	DoneSearch		;If there was an error, stop looking.

; Now see if we should load this particular file with our given machine configuration.
; First we test the filetype (must be $BB = driver).  Second we test the auxtype (must
; be $02xx = AppleTalk driver).  Third we test the "optional protocol" bit (set for
; non-Apple drivers); if it is clear (i.e. an Apple-supplied required driver) and we've
; already loaded all the required drivers, then the file won't get loaded.  Fourth, if
; the "optional" bit was clear, test the EtherTalk bit against the selected link.
; Fifth (and last), compare the maximum ROM version.

; First, test file type
		lda	EntryType		;Load the file type.
		cmp	#$00BB			;Is it a driver file?
		bne	LoadLoop		;Branch if not, keep looking.

; Second, auxtype = $02xx
		lda	EntryAUX		;Load the aux type.
		and	#$FF00			;Only look at the high byte
		cmp	#$0200			;Is it an AppleTalk driver file?
		bne	LoadLoop		;Branch if not, keep looking.

; Third, test "optional" bit and required drivers already loaded
		lda	ProtocolType		;Load the aux type again!
		beq	@L1			;Branch if load all protocols.
		bit	EntryAux		;Otherwise check protocol type.
		beq	LoadLoop		;Branch if not to load.
@L1
; Fourth, test "optional" bit and link type
		lda	EntryAUX
		bit	#$0080			; is "optional" bit set?
		bne	@L2			; yes, so don't check link type
		and	#$0010			; get LocalTalk/EtherTalk bit
		lsr	a			; shift down to 0/1
		lsr	a
		lsr	a
		lsr	a
		cmp	LinkType		; same as our link type?
		bne	LoadLoop		; no, so don't load it
@L2
; Fifth, check ROM version
		lda	EntryAUX
		and	#$000F			;Only look at the low byte
		cmp	ROMVersion		;Only load the file if it's ROM ID
		bcc	LoadLoop		;byte is <= the current ROM version.

		lda	Work1
		clc
		adc	#0004
		sta	Work1
		lda	Work1+2
		adc	#0000
		sta	Work1+2

		ldy	#0002
		lda	Work2			;Ok, we got a valid file, keep
		clc				;it in the list by bumping our
		adc	#0034			;index by 1 field.
		sta	Work2
		sta	[Work1]
		lda	Work2+2
		adc	#0000
		sta	Work2+2
		sta	[Work1],y

		inc	FilesFound		;Bump our file counter.

		lda	FilesFound		;Make sure we don't load more
		cmp	#0100			;than 100 files.
		bge	DoneSearch
		brl	LoadLoop

;	We've found all the files we can, now close the directory

DoneSearch	jsl	>$E100A8
		dc.w	$2014			;Class 1 Close
		dc.l	CloseDir

;	If we haven't found any files, then we just release our
;	memory segment and leave.

		lda	FilesFound		;Did we find any files?
		beq	@L1			;If there are no files, just leave.
		cmp	#0002			;Is there more than 1 file?
		bge	SortThem		
		jmp	LoadThem		;If there is only 1 files, just load it.
@L1
; Begin 18-Jun-92 MSD
		lda	ProtocolType		; if non-zero, then already loaded basic driver
		beq	@L2			; no drivers loaded yet, so display message
		brl	FixVector		; skip over sorting/loading protocols
@L2
; End 18-Jun-92 MSD
		pea	0067			;No AppleTalk driver
		PushLong #NullMessage
		PushLong #NullMessage
		jsl	>$01FC94		;REPORT_ERROR

		dec	error_shown		; don't display memory error message
		
		sec				;should have loaded a driver!
		jmp	PurgeMemory		;There are no files, just leave.

;	Here we sort the files using a bubble sort to put them in
;	alphabetical order (A...z where 'A' == 'a').  1-Jun-91 MSD

SortThem	lda	#0001
		sta	LoadTemp		;What file are we looking at.

		ldy	#0002
		lda	[MyHandle]		;Dereference 5K chunk,
		sta	Work1			;Store it on zero page
		lda	[MyHandle],y		;Don't forget the high word.
		sta	Work1+2

Search1Loop	lda	LoadTemp		;Load the main index
		tax
		clc
		ldy	#0002
		lda	[Work1]
		adc	#0002
		sta	String1			;Dereference the pointer and store it
		lda	[Work1],y
		sta	String1+2

		lda	Work1
		sta	Work2
		lda	Work1+2
		sta	Work2+2

Search2Loop	lda	Work2
		clc
		adc	#0004
		sta	Work2
		lda	Work2+2
		adc	#0000
		sta	Work2+2

		clc
		ldy	#0002
		lda	[Work2]
		adc	#0002
		sta	String2			;Dereference the pointer and store it
		lda	[Work2],y
		sta	String2+2

		sep	#$20
		longa	off

		ldy	#0001
ScanLoop	iny
;
; 1-Jul-91 MSD:	Changed the comparison to be case-insensitive.
;		Note that String2 must be converted first so the
;		order of the compare isn't changed (String1 - String2).
;
;		lda	[String1],y
;		cmp	[String2],y

		lda	[String2],y
		cmp	#'a'
		blt	@upper2
		cmp	#'z'+1
		bge	@upper2
		and	#$5F		; convert to upper case
@upper2
		sta	TempChar	; save for comparison
		
		lda	[String1],y
		cmp	#'a'
		blt	@upper1
		cmp	#'z'+1
		bge	@upper1
		and	#$5F
@upper1
		cmp	TempChar
;
; End of 1-Jul-91 MSD change.
;
		beq	Cont1Loop
		blt	NoChange
		bge	SwapThem
Cont1Loop	tya
		cmp	[String1]
		beq	Cont2Loop
		bge	NoChange
Cont2Loop	cmp	[String2]
		beq	ScanLoop
		blt	ScanLoop

SwapThem	rep	#$20
		longa	on

		ldy	#$0002
SwapLoop	lda	[Work1],y
		pha
		lda	[Work2],y
		sta	[Work1],y
		pla
		sta	[Work2],y
		dey
		dey
		bpl	SwapLoop

NoChange	rep	#$20
		longa	on

		inx
		cpx	FilesFound
		blt	Search2Loop

		lda	Work1
		clc
		adc	#0004
		sta	Work1
		lda	Work1+2
		adc	#0000
		sta	Work1+2

		inc	LoadTemp
		lda	LoadTemp
		cmp	FilesFound
		bge	LoadThem
		jmp	Search1Loop

;	Now that they're in order, we load them in that order

LoadThem	ldy	#0002
		lda	[MyHandle]
		sta	Work1			;Dereference the pointer and store it
		lda	[MyHandle],y
		sta	Work1+2

		ldx	#0000			;Start with index 0.

LoadThemLoop	phx				;Save our file counter.

		PushWord #0
		PushWord #0
		PushLong #0
		PushWord #0
		PushWord MyID
		ldy	#0002
		lda	[Work1]
		clc
		adc	#0002
		tax
		lda	[Work1],y
		adc	#0000
		pha
		phx
		PushWord #$0001
		PushWord #$0001
		_InitialLoad2
		PullWord
		PullLong patchit
		PullWord
		PullWord
		bcc	@InitFile
		plx				;Fix the stack
		sec
		bra	PurgeMemory

@InitFile	lda	ATChannel		;Load the ATChannel in A
		ldx	RomVersion		;Load the ROM version in X
		ldy	Slot_Num		;Load the ATalk slot # in Y
		jsl	doit			;JSL to the begining of it.

		lda	Work1			;Bump our file name pointer by
		clc				;one field.
		adc	#0004
		sta	Work1
		lda	Work1+2
		adc	#0000
		sta	Work1+2

		plx				;Restore our file counter.

		inx				;Increment the puppy.
		cpx	FilesFound		;Our we done yet?
		blt	LoadThemLoop		;Branch for some more if not.

FixVector
;	We have to stuff a dummy vector into the priority chain so that we
;	won't load the protocols again later.  We do this because we can't
;	garauntee that something will install itself into the chain.

		lda	>AT_PriorityVec		;Get the old vector and stuff
		sta	NextJmp			;it into our structure.
		lda	>AT_PriorityVec+2
		sta	NextJmp+2
		lda	Ourjml			;Stuff our jump long into the
		sta	>At_PriorityVec		;priority chain vector.
		lda	Ourjml+2
		sta	>AT_PriorityVec+2

;	We have to get rid of our memory segments before we leave.

		clc				;Clear the carry flag (no error).
PurgeMemory	php				;Save carry flag

		PushLong MyHandle		;Get rid of our chunk of memory.
		_DisposeHandle			;These calls don't care about						;being locked or not.

		plp				;Restore carry flag

PurgeZP		php				;Save carry flag

		PushLong ZeroHandle

		lda	ZeroPageHold
		tcd				;Restore the direct page register.

		_DisposeHandle			;Get rid of our zero page.

		plp				;Restore carry flag
		rts				;Th, th, that's all folks!


PEntry		bra	NextJmp
NextJmp		DS.B	4
		DC.W	$7FFF			;medium priority
Ourjml		jml	PEntry			;Code that jumps to above structure

doit		dc.b	$5C
patchit		ds.l	1

ProtocolType	ds.w	1

ZeroPageHold	ds.w	1
MyID		ds.w	1
LoadTemp	ds.w	1

GetPrefix	dc.w	$0002			;Parameter count
		dc.w	$0000			;Prefix number
PrefixBuffer	dc.l	0			;Buffer pointer

OpenDir		dc.w	$0002			;Parameter count
		dc.w	0			;Reference number
OpenBuffer	dc.l	0

EntryList	dc.w	$000D			;Parameter count
		dc.w	0			;Reference number
		dc.w	0			;Flags
		dc.w	1			;Base
		dc.w	1			;Displacement
EntryPtr	dc.l	0			;Name pointer
		dc.w	0			;Entry number
EntryType	dc.w	0			;File type
		dc.l	0			;EOF
		dc.l	0			;Block count
		dc.l	0,0			;Create date and time
		dc.l	0,0			;Mod date and time
		dc.w	0			;Access
EntryAUX	dc.l	0			;AUX time

CloseDir	dc.w	$0001			;Parameter count
		dc.w	0			;Reference number

FilesFound	dc.w	0

		endp

;---------------------------------------------------------------------------------
;
; ShutDown	This routine will release any resource gained during startup.
;		It will also turn off the SCC if this is a SHUTDOWN as opposed
;		to a OSSWITCH type shutdown call.  This will fix the problem that
;		an AppleTalk interupt would come in and jump to the old vectors
;		which are no longer valid because of a re-boot.

shutdown	proc

		longa	on
		longi	on

		lda	#$0000			;No error.
		clc
		rts

;		lda	warm_cold_flag	;0 = cold, 1 = warm
;		bne	@L1
;
;		php			;We better disable interupts
;		sei			;while we reset the SCC.
;
;		sep	#$30		;Short all!
;		longa	off
;		longi	off
;
;		lda	#$00
;		sta	>$00C047	;Clear any 1/4 sec interupt.
;		lda	>$00C041
;		and	#$EF		;Disable 1/4 sec interupt source.
;		sta	>$00C041
;		lda	#$09		;Disable SCC
;		sta	>$00C039
;		lda	#$C0
;		sta	>$00C039
;		lda	#$0B		;Enable oscillator
;		sta	>$00C039
;		lda	#$D2
;		sta	>$00C039
;
;		plp			;Re-enable interupts and mode.
;
;		longa	on
;		longi	on
;
;@L1		lda	#0000
;		clc
;		rts

		endp

;---------------------------------------------------------------------------------
;
;			BELOW ARE THE DRIVER SPECIFIC CALLS!
;
;---------------------------------------------------------------------------------
;
; Dev_Startup	This routine routine returns the slot number and unit number
;		to be used by the calling AppleTalk driver.
;
;		 Return Parameter Block
;
;		 _______________________
;		|			|
;		|	Slot #		|
;		|	(Word)		|
;		|_______________________|
;		|			|
;		|	Channel #	|
;		|	(Word)		|
;		|_______________________|
;		|			|
;		|	Unit #		|
;		|	(Word)		|
;		|_______________________|
;

dev_startup	proc

		longa	on
		longi	on

		lda	ATChannel
		ora	Slot_Num
		beq	bad_exit

		ldy	#0000			;Index to slot value.
		lda	Slot_Num		;Load the slot # to use.
		sta	[sup_parm_ptr],y	;Store it in calling drivers
		iny				;call block.
		iny
		lda	ATChannel		;Load the ATChannel #
		sta	[sup_parm_ptr],y
		iny
		iny
		lda	Next_Unit		;Store a unique UnitNumber in
		beq	bad_exit		;(Branch if we wrapped.)
		sta	[sup_parm_ptr],y	;the calling drivers call block.

		inc	Next_Unit		;Bump our unit number.

		lda	#$0000
		clc
		rts

bad_exit	lda	#$0088			;Too many units! (more than 64
		sec				;thousand  needless to say, this
		rts				;should never happen) or ATALK
						;not turned on.

		endp



;---------------------------------------------------------------------------------
;
; Get_Status	This routine returns the current status of the SCC channels.
;

get_status	proc

		entry	Channel1,Channel2,\
			Channel1Count,Channel2Count

		longa	on
		longi	on

		ldy	#0000
		lda	Channel1		;Load channel 1 status.
		sta	[sup_parm_ptr],y	;Store it in calling drivers
		iny				;call block.
		iny
		lda	Channel2		;Load channel 2 status
		sta	[sup_parm_ptr],y	;Store it.

		lda	#$0000
		clc
		rts

Channel1	dc.w	0
Channel2	dc.w	0

Channel1Count	dc.w	0
Channel2Count	dc.w	0

		endp

;---------------------------------------------------------------------------------
;
; Set_Status	The routine sets the status of the specified SCC channel.
;
;		    Parameter Block
;
;		 _______________________
;		|			|
;		|	Channel #	|
;		|	(Word)		|
;		|_______________________|
;		|			|
;		|	Status		|
;		|	(Word)		|
;		|_______________________|
;
;
; The Channel # can be the following values:
;
;	1 = Channel 1
;	2 = Channel 2
;
; The Status can be the following values:
;
;	0 = Channel to be freed
;	1 = Channel used
;	2 = Channel used but can be shared
;

set_status	proc

		longa	on
		longi	on

		ldy	#0000
		lda	[sup_parm_ptr],y	;Load the channel to set.
		beq	@L1			;If <0 or >2 then error.
		cmp	#0003
		bcc	GoodChannel

@L1		lda	#drvr_bad_parm
		sec
		rts

GoodChannel
; Note: X should be index to channel status table (table of words),
; so it needs to be 2*(channel-1) instead of channel-1.
		dea				; indexes start at 0, not 1
		asl	a			; double for word-wide index
		tax				; use X to index channel table.

		ldy	#0002
		lda	[sup_parm_ptr],y	;Load the control value
		tay				;and save it in Y.

		lda	Channel1,x		;Status of the req. channel.
		beq	SaveState
		cmp	#0002			;Is it dedicated?
		beq	ShareIt

		tya
		beq	ZeroIt			;Only a zero is valid
						;(giving up resource).

NotAvailable	lda	#drvr_no_resrc
		sec
		rts

ZeroIt		stz	Channel1,x		;Channel available.
		stz	Channel1Count,x		;No clients.
		bra	GoodExit

ShareIt		tya
		beq	DecIt
		cmp	#0001
		beq	NotAvailable
		bra	SaveState

DecIt		dec	Channel1Count,x
		bne	GoodExit
		bra	ZeroIt

SaveState	tya
		beq	GoodExit
		sta	Channel1,x
		inc	Channel1Count,x

GoodExit	lda	#$0000			;No error.
		clc
		rts

		endp

;---------------------------------------------------------------------------------
;
; get_slotnum	Return the 0..15 slot number for the network.  For Ethernet
;		this will be 9..15.
;
; New routine 21-Jan-93 DAL
;
get_slotnum	proc
		longa	on
		longi	on

		lda	Slot_Num
		sta	[<sup_parm_ptr]

		lda	#0
		clc
		rts

		EndP

;---------------------------------------------------------------------------------
;
; Others	This routine routine does absolutely nothing and is called only
;		if a driver calls us with an invalid call number.
;

others		proc

		longa	on
		longi	on

		lda	#$0020			;Just return with a 'bad request'
		clc				;error.
		rts

		endp

;---------------------------------------------------------------------------------

		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/SupervisoryDrivers/SCCManager/Equates b/IIGS.601.SRC/GS.OS/SupervisoryDrivers/SCCManager/Equates
new file mode 100644
index 0000000..2efafca
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/SupervisoryDrivers/SCCManager/Equates
@@ -0,0 +1 @@
+*******************************************************************************
*
* Common equates for GS/OS
*
* Created:	4/7/87
* Modified:	See Revision History below
* Author:	GS/OS Team
*
* Copyright (C) 1987-1988 Apple Computer, Inc.	All rights reserved.
*
* REVISION HISTORY:
*
* DATE	   BY	DESCRIPTION
*
* 04/27/87 RBM	Correction: drvr_blk_size is a word wide parameter.
*
* 04/16/87 JJ	Correction: changed error number for duplicate volume
*			    from $55 to $57
* 04/29/87 GRT	Addition:   added definition of path flag
*			    and defined "span1" and "span2"
*
* 05/18/87 RBM	Addition:   Added "boot_slot", "dev_id_ref",
*			    "drvr_char_config" & "drvr_pro_config"
*			    These parameters are passed from the F_Loader
*			    to the device dispatcher during boot init.
*
* 06/04/87 JJ	Addition:   Add global equates for system direct page base,
*			    stack top, and ProDOS FST header.
*
* 06/11/87 JJ	Change:     Direct page locations used by SCM to pass
*			    parameters to FST's fundamentally changed. Look
*			    between labels dev_num and span2, inclusive.
*
* 06/30/87 RM/RC Addition:  Added cache manager equates.
*			    Cache priority now cache enable.
*
* 07/20/87 RM/AS Addition:  Equates for control/status list pointers.
*			    Equates for control/status codes.
*
* 07/22/87 RM/RC Change:    Cache enable now cache priority.
*
* 07/24/87 MSA	 Addition:  System Service Table Equates & FCR Equates
*
* 07/29/87 RC	 Addition:  Added cache header equates.
*
* 08/03/87 RC	 Addition:  Added 4 byte pointer in direct page
*
* 08/05/87 MSA	 Change:    System Service Table chgd to make GRT happy
*			    Added Parameter Block Equates
*
* 08/10/87 RC/RM Change:    Changed c_volumeid in cache equates into c_devnum.
*
* 08/12/87 FAB	 Addition:  Added gquit_stack_top
*
*	   MSA	 Addition:  Added pblk equate for Get Boot Volume
*			     Star prefix equate added
*
* 08/13/87 RBM	 Deletion:  Removed status and control codes for
*			    driver newline since it's not ported.
*
* 08/14/87 MSA	 Addition:  Added pblk equate for SetLevel, GetLevel
*
* 08/18/87 RBM	 Deletion:  Drvr_vol_id is now Drvr_reserved.
*
* 09/15/87 RBM	 Change:    Moved control/status code location on direct page
*
* 09/24/87 MSA	 Addition:  Added pblk equate for Close, Flush
*
* 10/02/87 ADS	 Deletion:  Removed pro_fst_entry
*
* 10/06/87 MSA	 Addition:  Added pblk equate for Expand_Path
*
* 10/29/87 MSA	 Addition:  Added debug call flag, debug.calls
*			     and debug.type for SCM
*
* 11/12/87 RBM	 Change:    Device dispatcher cmd numbers
*
* 11/13/87 MSA	 Addition:  GS/OS System Death Error Codes
*
* 11/15/87 RBM	 Addition:  Added 'DRVR_VOL_ID' on direct page.
*
* 11/17/87 RC	 Addition:  Added 'c_volumeid' to cache header
*
* 12/6/87  JJ	 Addition:  Added system call error codes $64, $65, and $66
*
* 1/5/88   fab	 addition:  move commands word for moveinfo system service call
*
* 1/5/88   RBM	 addition:  status and control codes.
*
* 1/13/88  fab	 addition:  movevaliditymask equate added
*
* 1/14/88  RBM	 change:    moved status/control code
*
* 1/14/88  BPA	 change:    made all equ's gequ's
*
* 1/15/88  fab	 replace:   move_block to move_info
*
* 1/19/88  rc	 addition:  default_cache_size
*
* 1/20/88  MSA	 addition:  system service table equates
*
* 1/23/88  RBM	 Addition:  System service table equates
*
* 2/08/88  RBM	 Addition:  driver busy error code ($0029)
*		 Addition:  Supervisory driver direct page equates
*
* 3/04/88  MSA	 Addition:  get, set boot_vol equates
*
*******************************************************************************

****************************************************************
*
* The following are direct page equates on the GS/OS
* direct page for driver usage.
*
****************************************************************

stack_top	equ	$00BFFF 	; initial value of system stack pointer
direct_base	equ	$00BD00 	; base address of system direct page
gquit_stack_top equ	$00BCFF 	; gquit sets stk here for boot/switching

drvr_start	equ	$0000		; start location of driver parameters
gs_start	equ	$0030		; start of GS/OS parameters
fst_start	equ	$0080		; start of FST parameters
cache_wspace	equ	$005A		; beginning addr of cache mgr w/space
drvr_wspace	equ	$006A		; ***** NUKE THIS LATER ****
sup_wspace	equ	$0070		; supervisory driver workspace

drvr_dev_num	equ	drvr_start	; (w)  device number
drvr_call_num	equ	drvr_dev_num+2	; (w)  call number
drvr_buf_ptr	equ	drvr_call_num+2 ; (lw) buffer pointer
drvr_slist_ptr	equ	drvr_call_num+2 ; (lw) buffer pointer
drvr_clist_ptr	equ	drvr_call_num+2 ; (lw) buffer pointer
boot_slot	equ	drvr_buf_ptr	; (w)  boot slot for dispatcher only
dev_id_ref	equ	drvr_buf_ptr	; (w)  indirect device ID
dev_char_config equ	drvr_buf_ptr+2	; (w)  BASIC/Pascal1.1 configuration
dev_pro_config	equ	drvr_buf_ptr+4	; (w)  ProDOS configuration
drvr_req_cnt	equ	drvr_buf_ptr+4	; (lw) request count
drvr_tran_cnt	equ	drvr_req_cnt+4	; (lw) transfer count
drvr_blk_num	equ	drvr_tran_cnt+4 ; (lw) block number
drvr_blk_size	equ	drvr_blk_num+4	; (w)  block size
drvr_fst_num	equ	drvr_blk_size+2 ; (w)  File System Translator Number
drvr_stat_code	equ	drvr_fst_num	; (b)  status code for status call
drvr_ctrl_code	equ	drvr_fst_num	; (b)  control code for control call
drvr_vol_id	equ	drvr_fst_num+2	; (w)  volume id
drvr_cache	equ	drvr_vol_id+2	; (w)  Cache Priority
drvr_cach_ptr	equ	drvr_cache+2	; (lw) pointer to cached block
drvr_dib_ptr	equ	drvr_cach_ptr+4 ; (lw) pointer to active DIB
drvr_dev_ptr	equ	drvr_dib_ptr+4	; (lw) pointer to device list

****************************************************************
*
* Cache Manager Direct Page
*
****************************************************************

cache_cur_ptr	equ	cache_wspace	; (lw) pointer to current cache cell
cache_nxt_ptr	equ	cache_cur_ptr+4 ; (lw) pointer to next cache cell
cache_pre_ptr	equ	cache_nxt_ptr+4 ; (lw) pointer to prev cache cell
cache_bkt_ptr	equ	cache_pre_ptr+4 ; (lw) pointer to bucket list

default_cache_size equ $0040		;16k is default cache size


****************************************************************
*
* Supervisory Driver Direct Page
*
****************************************************************

sup_drvr_ptr	equ	sup_wspace	; (lw) ptr to supervisor driver list
sib_ptr 	equ	sup_wspace+4	; (lw) ptr to SIB
sup_parm_ptr	equ	sib_ptr+4	; (lw) ptr to supervisor parameters

****************************************************************
*
* The following are absolute zero page equates for use by
* slot resident firmware based ProDOS block device drivers.
*
****************************************************************

pcmd		equ	$0042		; (b)  ProDOS device command
punit		equ	$0043		; (b)  ProDOS unit number
pbuffer 	equ	$0044		; (w)  ProDOS buffer address
pblock		equ	$0046		; (w)  ProDOS block number

****************************************************************
*
* The following are equates for driver command types.
*
****************************************************************

drvr_startup	equ	$0000		; driver startup command
drvr_open	equ	$0001		; driver open command
drvr_read	equ	$0002		; driver read command
drvr_write	equ	$0003		; driver write command
drvr_close	equ	$0004		; driver close command
drvr_status	equ	$0005		; driver status command
drvr_control	equ	$0006		; driver control command
drvr_flush	equ	$0007		; driver flush command
drvr_shutdn	equ	$0008		; driver shutdown command

****************************************************************
*
* The following are equates for dispatcher command types.
*
****************************************************************

dsptch_bootinit equ	$0000		; dispatcher boot init command
get_dib_ptr	equ	$0001		; return a drivers DIB pointer
dsptch_shutdn	equ	$0002		; dispatcher shutdown command

****************************************************************
*
* GS/OS Direct Page Equates
*
****************************************************************

call_number	equ	gs_start	; FST call number
param_blk_ptr	equ	call_number+2	; pointer to user's parameter block
dev_num 	equ	param_blk_ptr+4 ; device number from parameter block
dev1_num	equ	dev_num 	; alias name for dev_num
dev2_num	equ	dev1_num+2	; second device number
path1_ptr	equ	dev2_num+2	; ptr to 1st partial/entire pathname
fcr_ptr 	equ	path1_ptr	; pointer to file control record
path2_ptr	equ	path1_ptr+4	; ptr to 2nd partial/entire pathname
vcr_ptr 	equ	path2_ptr	; pointer to volume control record
path_flag	equ	path2_ptr+4	; flag for path information
*					;
*					; bit  14: 0 = pathname1 is null
*					;      14: 1 = pathname1 is non-null
*					;
*					;      06: 0 = pathname2 is null
*					;      06: 1 = pathname2 is non-null
*					;
span1		equ	path_flag+2	; largest distance between path1 term.
span2		equ	span1+2 	; max dist. between seperators for path2

****************************************************************
*
* The following are equates for GS/OS error codes.
*
****************************************************************

no_error	equ	$00		; no error has occured
bad_system_call equ	$01		; bad system call number
invalid_pcount	equ	$04		; invalid parameter count
gsos_active	equ	$07		; gsos already active
dev_not_found	equ	$10		; device not found
invalid_dev_num equ	$11		; invalid device number
drvr_bad_req	equ	$20		; bad request or command
drvr_bad_code	equ	$21		; bad control or status code
drvr_bad_parm	equ	$22		; bad call parameter
drvr_not_open	equ	$23		; character device not open
drvr_prior_open equ	$24		; character device already open
irq_table_full	equ	$25		; interrupt table full
drvr_no_resrc	equ	$26		; resources not available
drvr_io_error	equ	$27		; I/O error
drvr_no_dev	equ	$28		; device not connected
drvr_busy	equ	$29		; driver is busy & not available
drvr_wr_prot	equ	$2B		; device is write protected
drvr_bad_count	equ	$2C		; invalid byte count
drvr_bad_block	equ	$2D		; invalid block number
drvr_disk_sw	equ	$2E		; disk has been switched
drvr_off_line	equ	$2F		; device off line / no media present
bad_path_syntax equ	$40		; invalid pathname syntax
invalid_ref_num equ	$43		; invalid reference number
path_not_found	equ	$44		; subdirectory does not exist
vol_not_found	equ	$45		; volume not found
file_not_found	equ	$46		;
dup_pathname	equ	$47		; create or rename with existing name
volume_full	equ	$48		;
vol_dir_full	equ	$49		; volume directory full
version_error	equ	$4A		;
bad_store_type	equ	$4B		; bad storage type
end_of_file	equ	$4C		;
out_of_range	equ	$4D		; position out of range
invalid_access	equ	$4E		; access not allowed
buff_too_small	equ	$4F		; buffer too small
file_busy	equ	$50		; file is already open
dir_error	equ	$51		; directory error
unknown_vol	equ	$52		; unknown volume type
parm_range_err	equ	$53		; parameter out of range
out_of_mem	equ	$54		; out of memory
dup_volume	equ	$57		; duplicate volume name
not_block_dev	equ	$58		; not a block device
invalid_level	equ	$59		; specified level outside legal range
damaged_bitmap	equ	$5A		; block number too large
bad_path_names	equ	$5B		; invalid pathnames for change_path
not_system_file equ	$5C		; not an executable file
os_unsupported	equ	$5D		; operating system not supported
stack_overflow	equ	$5F		; too many applications on stack
data_unavail	equ	$60		; data unavailable
end_of_dir	equ	$61		; end of directory has been reached
invalid_class	equ	$62		; invalid FST call class
res_not_found	equ	$63		; file does not contain req. resource
invalid_fst_id	equ	$64		; specified FST is not present in system
invalid_fst_op	equ	$65		; FST does not handle this type of call
fst_caution	equ	$66		; FST handled call, but result is weird

****************************************************************
*
* Fatal Errors:
*
****************************************************************

unclaimed_irq	equ	$01		; unclaimed interrupt
sd_scm_dealloc	equ	$02		; deallocation error
sd_scm_alloc	equ	$03		; allocation error
wrong_os_ver	equ	$11		; wrong operating system version

****************************************************************
*
* FST equates: to be removed when lou loader is working!!!!!!!!!
*
****************************************************************

char_fst_entry	equ	$095000 	;address of Character FST header


****************************************************************
*
* DRIVER Equates:
*
****************************************************************

drvr_dev_stat	equ	$0000		; device status code
drvr_ctrl_stat	equ	$0001		; return control parms
drvr_get_wait	equ	$0002		; return wait/no-wait mode
drvr_get_format equ	$0003		; get format options

drvr_reset	equ	$0000		; reset the device
drvr_format	equ	$0001		; physically format the device
drvr_eject	equ	$0002		; eject the media
drvr_set_ctrl	equ	$0003		; set control parms
drvr_set_wait	equ	$0004		; set wait/no-wait mode
drvr_set_format equ	$0005		; set format options
drvr_set_ptn	equ	$0006		; assign partition owner
drvr_insert	equ	$0007		; logical media insertion

****************************************************************
*
* System Service Table Equates:
*
****************************************************************

dev_dispatcher	equ	$01FC00 	;dev_dispatch
cache_find_blk	equ	$01FC04 	;cash_find
cache_add_blk	equ	$01FC08 	;cash_add
cache_init	equ	$01FC0C 	;cache initialization
cache_shutdn	equ	$01FC10 	;cash_shutdown
cache_del_blk	equ	$01FC14 	;cash_delete
cache_del_vol	equ	$01FC18 	;cash_del_vol
alloc_seg	equ	$01FC1C 	;alloc_zero
release_seg	equ	$01FC20 	;deallocate
alloc_vcr	equ	$01FC24 	;allocvcr
release_vcr	equ	$01FC28 	;releasevcr
alloc_fcr	equ	$01FC2C 	;allocfcr
release_fcr	equ	$01FC30 	;releasefcr
swap_out	equ	$01FC34 	;swapout
deref		equ	$01FC38 	;deref2
get_sys_gbuf	equ	$01FC3C 	;s_get_sys_gbuf
sys_exit	equ	$01FC40 	;s_sys_exit
sys_death	equ	$01FC44 	;s_sys_death
find_vcr	equ	$01FC48 	;findvcr
find_fcr	equ	$01FC4C 	;findfcr
set_sys_speed	equ	$01FC50 	; set system speed
cache_flsh_def	equ	$01FC54 	; flush deferred blocks from cache
rename_vcr	equ	$01FC58 	;renamevcr
rename_fcr	equ	$01FC5C 	;renamefcr
get_vcr 	equ	$01FC60 	;getvcr
get_fcr 	equ	$01FC64 	;getfcr
lock_mem	equ	$01FC68 	;lockmem
unlock_mem	equ	$01FC6C 	;unlockmem
move_info	equ	$01FC70 	;block move routines
cvt_0to1	equ	$01FC74 	;cvt0to1
cvt_1to0	equ	$01FC78 	;cvt1to0
replace_80	equ	$01FC7C 	;replace80
to_b0_core	equ	$01FC80 	;to_bank0_core
gen_dispatch	equ	$01FC84 	;g_dispatch
signal		equ	$01FC88 	;signal_event
get_sys_buf	equ	$01FC8C 	;get_b0_buf
set_disksw	equ	$01FC90 	;set_disk_sw
report_error	equ	$01FC94 	;s_report_error
mount_message	equ	$01FC98 	;s_mount_msg
full_error	equ	$01FC9C 	;s_full_error
report_fatal	equ	$01FCA0 	;s_report_fatal
sup_drvr_disp	equ	$01FCA4 	; supervisory dispatcher
install_driver	equ	$01FCA8 	; install device driver
get_boot_pfx	equ	$01FCAC 	;s_get_boot_vol
set_boot_pfx	equ	$01FCB0 	;s_set_boot_vol


****************************************************************
*
* Volume Control Record (VCR) Equates
*
****************************************************************

vcr_size	equ	18		;Currently 18 bytes in length

vcr_id		equ	$0000		;offset to volume ID
vcr_name	equ	vcr_id+2	;offset to volume name pointer
vcr_status	equ	vcr_name+4	;offset volume status
vcr_open_cnt	equ	vcr_status+2	;offset to number of open files on vol.
vcr_fst_id	equ	vcr_open_cnt+2	;offset to owner ID number
vcr_dev 	equ	vcr_fst_id+2	;offset to where volume was last seen
vcr_fst_ptr	equ	vcr_dev+2	;offset to where volume was last seen

vcr_swapped	equ	$4000		;FLAG:Volume is swapped out (1 = true)
vcr_swapped_in	equ	$BFFF		;FLAG:Volume is swapped in

vcr_wr_enable	equ	$2000		;FLAG:Volume has been seen write enabled
vcr_wr_unknown	equ	$DFFF		;FLAG:Volume has not been seen wrenbld

****************************************************************
*
* File Control Record Equates:
*
****************************************************************

fcr_ref_num	equ	$0000
fcr_path_name	equ	fcr_ref_num+2
fcr_fst_id	equ	fcr_path_name+4
fcr_vol_id	equ	fcr_fst_id+2
fcr_level	equ	fcr_vol_id+2
fcr_newline	equ	fcr_level+2
fcr_newline_len equ	fcr_newline+4
fcr_mask	equ	fcr_newline_len+2
fcr_access	equ	fcr_mask+2

;--------------------------------------------------------------------------
; cache header equates
;
; Copyright (c) 1987 Apple Computer Inc. All rights reserved.
; author: Ray (Rowdy Yates) Chiang
;--------------------------------------------------------------------------

c_lru_fwd	equ	$0000		;vp to	forward LRU vp link
c_lru_bwd	equ	c_lru_fwd+4	;vp to backward LRU vp link
c_bkt_fwd	equ	c_lru_bwd+4	;vp to	forward bucket vp link
c_bkt_bwd	equ	c_bkt_fwd+4	;vp to backward bucket vp link
c_blknum	equ	c_bkt_bwd+4	;block number  of cached block
c_blksize	equ	c_blknum+4	;block	 size  of cached block
c_fstnum	equ	c_blksize+2	;FST number    of cached block
c_volumeid	equ	c_fstnum+2	;volume id     of cached block
c_devnum	equ	c_volumeid+2	;device number of cached block
c_priority	equ	c_devnum+2	;cache priority
c_cellsize	equ	c_priority+2	;size of this cache cell
c_reserved	equ	c_cellsize+2	;reserved
c_headerlen	equ	c_reserved+4	;length of cache header
c_cached_data	equ	c_reserved+4	;offset to cached data block

;--------------------------------------------------------------------------
; general and miscellaneous equates
;--------------------------------------------------------------------------

ram_cache_size	equ	$0081		;battery ram location for this

star_pfx_num	equ	32		;Prefix #32 is the star prefix

sys_version	equ	$8200		;Unreleased Version 2.00
debug_calls	equ	$0001		;Turn on debugging calls
debug_type	equ	$0010		;Highest numbered type


****************************************************************
*
* Parameter Block Equates
*
****************************************************************

pblk_09_pfxnum	equ	$0000		;Set and Get Prefix
pblk_09_pname	equ	$0002

pblk_0E_pname1	equ	$0000		;Expand Path
pblk_0E_pname2	equ	$0004

pblk_14_refnum	equ	$0000		;Close and Flush

pblk_1a_level	equ	$0000		;Set and Get Level

pblk_28_pname	equ	$0000		;Get Boot Volume

pblk_2a_version equ	$0000		;Get Version Number


*****************************************************************
*
* Emulation mode stack pointer
*
*****************************************************************

emulstack	equ	$010100

*****************************************************************
*
* command word for the moveinfo routine
*
*****************************************************************

moveblkcmd	equ	$0800		;tell hardware to do block move option

; the movevaliditymask is a mask used to determine if a user's command word
;   is using any invalid (reserved bits or not).  this value changes as reserved
;   bits become active!!!!!!!

movevaliditymask equ	$f7f0		;invalid move if any of these bits =1

; most common command

move_sinc_dinc	equ	$05+moveblkcmd	;source incs - destination incs

; less common commands

move_sinc_ddec	equ	$09+moveblkcmd	;source incs - destination decs
move_sdec_dinc	equ	$06+moveblkcmd	;source decs - destination incs
move_sdec_ddec	equ	$0a+moveblkcmd	;source decs - destination decs

move_scon_dcon	equ	$00+moveblkcmd	;source constant - destination constant
move_sinc_dcon	equ	$01+moveblkcmd	;source incs - destination constant
move_sdec_dcon	equ	$02+moveblkcmd	;source decs - destination constant
move_scon_dinc	equ	$04+moveblkcmd	;source constant - destination incs
move_scon_ddec	equ	$08+moveblkcmd	;source constant - destination decs
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/SupervisoryDrivers/SCCManager/MakeFile b/IIGS.601.SRC/GS.OS/SupervisoryDrivers/SCCManager/MakeFile
new file mode 100644
index 0000000..f48f529
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/SupervisoryDrivers/SCCManager/MakeFile
@@ -0,0 +1 @@
+atalk.sup		ÄÄ	driver.aii.obj
	LinkIIGS ¶
			driver.aii.obj ¶
			-t $70BB0140 ¶
			-o atalk.sup
	echo "FileType = $BB  AuxType = $0140" >> {Worksheet}
	quote `directory`atalk.sup

driver.aii.obj Ä driver.aii
	AsmIIGS driver.aii
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/SupervisoryDrivers/SCSI.Manager(1meg)/Make.Mgr.list b/IIGS.601.SRC/GS.OS/SupervisoryDrivers/SCSI.Manager(1meg)/Make.Mgr.list
new file mode 100644
index 0000000..d0a7b95
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/SupervisoryDrivers/SCSI.Manager(1meg)/Make.Mgr.list
@@ -0,0 +1 @@
+#   File:       SCSI.Manager.make
#   Target:     SCSI.Manager
#   Sources:    SCSIM.Header
#               SCSIM.History
#               SCSIM.Variables
#               SCSIM.Entry
#               SCSIM.Startup
#               SCSIM.Shutdown
#               SCSIM.IO.Calls
#               SCSIM.Req.Devs
#               SCSIM.Claim.Devs
#               SCSIM.Misc
#               SCSIM.Mgmnt
#   Created:    Wednesday, June 14, 1989 7:05:04 AM

asmiigs -l -t -font courier,7 -print hdr -f ¶
		SCSIM.Header ¶
		-o :Mgr.Obj:SCSIM.Header.obj ¶
		SCSIM.History ¶
		-o :Mgr.Obj:SCSIM.History.obj ¶
		SCSIM.Variables ¶
		-o :Mgr.Obj:SCSIM.Variables.obj ¶
		SCSIM.Entry ¶
		-o :Mgr.Obj:SCSIM.Entry.obj ¶
		SCSIM.Startup ¶
		-o :Mgr.Obj:SCSIM.Startup.obj ¶
		SCSIM.Shutdown ¶
		-o :Mgr.Obj:SCSIM.Shutdown.obj ¶
		SCSIM.IO.Calls ¶
		-o :Mgr.Obj:SCSIM.IO.Calls.obj ¶
		SCSIM.Req.Devs ¶
		-o :Mgr.Obj:SCSIM.Req.Devs.obj ¶
		SCSIM.Claim.Devs ¶
		-o :Mgr.Obj:SCSIM.Claim.Devs.obj ¶
		SCSIM.Misc ¶
		-o :Mgr.Obj:SCSIM.Misc.obj ¶
		SCSIM.Mgmnt ¶
		-o :Mgr.Obj:SCSIM.Mgmnt.obj
LinkIIGS -w -t $bb -at $013f ¶
		:Mgr.Obj:SCSIM.Header.obj ¶
		:Mgr.Obj:SCSIM.History.obj ¶
		:Mgr.Obj:SCSIM.Variables.obj ¶
		:Mgr.Obj:SCSIM.Entry.obj ¶
		:Mgr.Obj:SCSIM.Startup.obj ¶
		:Mgr.Obj:SCSIM.Shutdown.obj ¶
		:Mgr.Obj:SCSIM.IO.Calls.obj ¶
		:Mgr.Obj:SCSIM.Req.Devs.obj ¶
		:Mgr.Obj:SCSIM.Claim.Devs.obj ¶
		:Mgr.Obj:SCSIM.Misc.obj ¶
		:Mgr.Obj:SCSIM.Mgmnt.obj ¶
		-o :Mgr.Obj:SCSI.Manager.lnk
ExpressIIGS ¶
		:Mgr.Obj:SCSI.Manager.lnk ¶
		-o SCSI.Manager
catenate ¶
		SCSIM.History.lst ¶
		SCSIM.Header.lst ¶
		SCSIM.Variables.lst ¶
		SCSIM.Entry.lst ¶
		SCSIM.Startup.lst ¶
		SCSIM.Shutdown.lst ¶
		SCSIM.IO.Calls.lst ¶
		SCSIM.Req.Devs.lst ¶
		SCSIM.Claim.Devs.lst ¶
		SCSIM.Misc.lst ¶
		SCSIM.Mgmnt.lst ¶
		>SCSI.Manager.lst
delete ¶
		SCSIM.Header.lst ¶
		SCSIM.History.lst ¶
		SCSIM.Variables.lst ¶
		SCSIM.Entry.lst ¶
		SCSIM.Startup.lst ¶
		SCSIM.Shutdown.lst ¶
		SCSIM.IO.Calls.lst ¶
		SCSIM.Req.Devs.lst ¶
		SCSIM.Claim.Devs.lst ¶
		SCSIM.Misc.lst ¶
		SCSIM.Mgmnt.lst
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/SupervisoryDrivers/SCSI.Manager(1meg)/SCSI.Manager.Make b/IIGS.601.SRC/GS.OS/SupervisoryDrivers/SCSI.Manager(1meg)/SCSI.Manager.Make
new file mode 100644
index 0000000..72cd77a
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/SupervisoryDrivers/SCSI.Manager(1meg)/SCSI.Manager.Make
@@ -0,0 +1 @@
+#   File:       SCSI.Manager.make
#   Target:     SCSI.Manager
#   Sources:    'SCSIM.Header'
#               'SCSIM.History'
#               'SCSIM.Variables'
#               'SCSIM.Entry'
#               'SCSIM.Startup'
#               'SCSIM.Shutdown'
#               'SCSIM.Req.Devs'
#               'SCSIM.Claim.Devs'
#               'SCSIM.IO.Calls'
#               'SCSIM.Mgmnt'
#               'SCSIM.Misc'
#   Created:    Tuesday, June 13, 1989 8:30:49 AM
#  Modified:    Tuesday, June 13, 1989 8:30:49 AM

SCSI.Manager ÄÄ SCSI.Manager.make ¶
		:Mgr.Obj:'SCSIM.Header.obj' ¶
		:Mgr.Obj:'SCSIM.History.obj' ¶
		:Mgr.Obj:'SCSIM.Variables.obj' ¶
		:Mgr.Obj:'SCSIM.Entry.obj' ¶
		:Mgr.Obj:'SCSIM.Startup.obj' ¶
		:Mgr.Obj:'SCSIM.Shutdown.obj' ¶
		:Mgr.Obj:'SCSIM.Req.Devs.obj' ¶
		:Mgr.Obj:'SCSIM.Claim.Devs.obj' ¶
		:Mgr.Obj:'SCSIM.IO.Calls.obj' ¶
		:Mgr.Obj:'SCSIM.Mgmnt.obj' ¶
		:Mgr.Obj:'SCSIM.Misc.obj'
    LinkIIGS -t $BB -at $0140 ¶
		:Mgr.Obj:'SCSIM.Header.obj' ¶
		:Mgr.Obj:'SCSIM.History.obj' ¶
		:Mgr.Obj:'SCSIM.Variables.obj' ¶
		:Mgr.Obj:'SCSIM.Entry.obj' ¶
		:Mgr.Obj:'SCSIM.Startup.obj' ¶
		:Mgr.Obj:'SCSIM.Shutdown.obj' ¶
		:Mgr.Obj:'SCSIM.Req.Devs.obj' ¶
		:Mgr.Obj:'SCSIM.Claim.Devs.obj' ¶
		:Mgr.Obj:'SCSIM.IO.Calls.obj' ¶
		:Mgr.Obj:'SCSIM.Mgmnt.obj' ¶
		:Mgr.Obj:'SCSIM.Misc.obj' ¶
		-o 'SCSI.Manager'
#		-o ':Mgr.Obj:SCSI.Manager.lnk'
#	ExpressIIGS ¶
#		':Mgr.Obj:SCSI.Manager.lnk' ¶
#		-o 'SCSI.Manager'
	duplicateiigs -y -m SCSI.Manager SCSI.Manager
:Mgr.Obj:'SCSIM.Header.obj' Ä ¶
		'SCSI.Manager.make' ¶
		'SCSIM.Header' ¶
		'SCSIM.Equates'
	AsmIIGS 'SCSIM.Header' ¶
		-o :Mgr.Obj:'SCSIM.Header.obj'
:Mgr.Obj:'SCSIM.History.obj' Ä ¶
		'SCSI.Manager.make' ¶
		'SCSIM.History' ¶
		'SCSIM.Equates'
	AsmIIGS 'SCSIM.History' ¶
		-o :Mgr.Obj:'SCSIM.History.obj'
:Mgr.Obj:'SCSIM.Variables.obj' Ä ¶
		'SCSI.Manager.make' ¶
		'SCSIM.Variables' ¶
		'SCSIM.Equates'
	AsmIIGS 'SCSIM.Variables' ¶
		-o :Mgr.Obj:'SCSIM.Variables.obj'
:Mgr.Obj:'SCSIM.Entry.obj' Ä ¶
		'SCSI.Manager.make' ¶
		'SCSIM.Entry' ¶
		'SCSIM.Equates'
	AsmIIGS 'SCSIM.Entry' ¶
		-o :Mgr.Obj:'SCSIM.Entry.obj'
:Mgr.Obj:'SCSIM.Startup.obj' Ä ¶
		'SCSI.Manager.make' ¶
		'SCSIM.Startup' ¶
		'SCSIM.Equates'
	AsmIIGS 'SCSIM.Startup' ¶
		-o :Mgr.Obj:'SCSIM.Startup.obj'
:Mgr.Obj:'SCSIM.Shutdown.obj' Ä ¶
		'SCSI.Manager.make' ¶
		'SCSIM.Shutdown' ¶
		'SCSIM.Equates'
	AsmIIGS 'SCSIM.Shutdown' ¶
		-o :Mgr.Obj:'SCSIM.Shutdown.obj'
:Mgr.Obj:'SCSIM.Req.Devs.obj' Ä ¶
		'SCSI.Manager.make' ¶
		'SCSIM.Req.Devs' ¶
		'SCSIM.Equates'
	AsmIIGS 'SCSIM.Req.Devs' ¶
		-o :Mgr.Obj:'SCSIM.Req.Devs.obj'
:Mgr.Obj:'SCSIM.Claim.Devs.obj' Ä ¶
		'SCSI.Manager.make' ¶
		'SCSIM.Claim.Devs' ¶
		'SCSIM.Equates'
	AsmIIGS 'SCSIM.Claim.Devs' ¶
		-o :Mgr.Obj:'SCSIM.Claim.Devs.obj'
:Mgr.Obj:'SCSIM.IO.Calls.obj' Ä ¶
		'SCSI.Manager.make' ¶
		'SCSIM.IO.Calls' ¶
		'SCSIM.Equates'
	AsmIIGS 'SCSIM.IO.Calls' ¶
		-o :Mgr.Obj:'SCSIM.IO.Calls.obj'
:Mgr.Obj:'SCSIM.Mgmnt.obj' Ä ¶
		'SCSI.Manager.make' ¶
		'SCSIM.Mgmnt' ¶
		'SCSIM.Equates'
	AsmIIGS 'SCSIM.Mgmnt' ¶
		-o :Mgr.Obj:'SCSIM.Mgmnt.obj'
:Mgr.Obj:'SCSIM.Misc.obj' Ä ¶
		'SCSI.Manager.make' ¶
		'SCSIM.Misc' ¶
		'SCSIM.Equates'
	AsmIIGS 'SCSIM.Misc' ¶
		-o :Mgr.Obj:'SCSIM.Misc.obj'
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/SupervisoryDrivers/SCSI.Manager(1meg)/SCSIM.Claim.Devs b/IIGS.601.SRC/GS.OS/SupervisoryDrivers/SCSI.Manager(1meg)/SCSIM.Claim.Devs
new file mode 100644
index 0000000..4314dd0
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/SupervisoryDrivers/SCSI.Manager(1meg)/SCSIM.Claim.Devs
@@ -0,0 +1 @@
+
;*******************************************************
;
;	'SCSIM.Claim.Devs'
;
;	Written by:
;	
;					Gus Andrade
;
;	Modified for new card by:
;
;					Matt Gulick.
;					Started June 1,1989
;
;	This file contains code to handle the Claim Devices
;	Call.
;
;	Copyright Apple Computer, Inc. 1988,89
;	All rights reserved.
;
;*******************************************************

					STRING		PASCAL
					BLANKS		OFF
					PAGESIZE	70
					PRINT		NOGEN
					PRINT		NOMDIR
					MACHINE		M65816

					IMPORT		error_stat
					IMPORT		get_plist
					IMPORT		find_sdr

;					ENTRY		

					PRINT		OFF

					INCLUDE		'SCSIM.Equates'
;					INCLUDE		'Common.Equ.Src'
;					INCLUDE		'HW.Equ.Src'
;					INCLUDE		'M16.MEMORY'
;					INCLUDE		'M16.UTIL'
;					INCLUDE		'M16.MISCTOOL'

					PRINT		ON

					EJECT

;*******************************************************
;
;	'scsim_claimdevs'
;
;	This module will mark specific SDR records as
;	claimed the the driver who made the immmediatelly
;	previous Req_Devices  call from the same driver.
;
;	Called via 'JSR'
;
;	Inputs:		e,m,x		=	0 (full native)
;
;	Outputs:	e,m,x		=	0 (full native)
;				Acc			=	0
;				Carry		=	0
;				Y reg		=	Unspecified
;				X reg		=	Unspecified
;				P reg		=	0=M=X=e
;				D Page		=	GS/OS Direct Page
;				Bank		=	Ours
;
;	Errors:		See Spec.
;
;*******************************************************

					EXPORT	scsim_claimdevs
scsim_claimdevs		PROC
											;
											; get parameter list pointer
											; & point to buffer
											;
					stz		|error_stat		;reset error status

					jsr		get_plist		;point to the parameter list

					stx		<plist_ptr		;form pointer to parameter list
					sty		<plist_ptr+2

					ldy		#destbuffptr	;get destination buffer address
					lda		[plist_ptr],y
					sta		<buffer_ptr

					ldy		#destbuffptr+2
					lda		[plist_ptr],y
					sta		<buffer_ptr+2

					ldy		#total_devcount	;total number of devices in the list
					lda		[buffer_ptr],y
					sta		<scratchzpg

					bra		get_id
											;
											; find SDR matching this ID
											;
next_id				dec		<scratchzpg		;decrement the total device count in the list
					bne		@100			;check next ID if count not zero
					clc						;otherwise mark success & quit
					rts

@100				lda		<buffer_ptr		;bump to the next id in the list
					adc		#reqENTRY_size	;size of each device ENTRY in list
					sta		<buffer_ptr
					bcc		get_id
					inc		<buffer_ptr+2

get_id				ldy		#device_id		;point to the ID field in claim parameter list
					lda		[buffer_ptr],y	;get the slot number
					bpl		next_id			;Doesn't want it.  Do next one in list.

					and		#$7fff
					sta		<dev_id			;save the id sought

					ldy		#device_slot	;point to the slot field in claim parameter list
					lda		[buffer_ptr],y	;get the ID
					sta		<slot_no

					jsr		find_sdr		;get the SDR address (C=1 then invalid ID)	
					bcs		exit			;if error then go away
											;
											; mark device claimed if not
											; claimed previously
											;
					sty		<sdr_ptr		;save the SDR address
					sta		<sdr_ptr+2

					ldy		#device_id		;set high bit to mark claimed
					lda		[sdr_ptr],y		;device claimed marker (bit 15 of device id)
					bmi		@error			;if already set then an error

					ora		#claimed		;Set the bit
					sta		[sdr_ptr],y

					bra		next_id

@error				lda		#bad_scsi_id
					sta		|error_stat		;mark ID error
exit				rts						;>>>--- scsim_claimdevs --->>>

					ENDP
	
					EJECT

					END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/SupervisoryDrivers/SCSI.Manager(1meg)/SCSIM.Entry b/IIGS.601.SRC/GS.OS/SupervisoryDrivers/SCSI.Manager(1meg)/SCSIM.Entry
new file mode 100644
index 0000000..fab508c
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/SupervisoryDrivers/SCSI.Manager(1meg)/SCSIM.Entry
@@ -0,0 +1 @@
+
;*******************************************************
;
;	'SCSIM.ENTRY'
;
;	Written by:
;	
;					Gus Andrade
;
;	Modified for new card by:
;
;					Matt Gulick.
;					Started June 1,1989
;
;	This file contains code to handle all Calls to the
;	SCSI Manager and serves as the main ENTRY point for
;	all calls..
;
;	Copyright Apple Computer, Inc. 1988,89
;	All rights reserved.
;
;*******************************************************

					STRING		PASCAL
					BLANKS		OFF
					PAGESIZE	70
					PRINT		NOGEN
					PRINT		NOMDIR
					MACHINE		M65816

					IMPORT		smbusy_flag
					IMPORT		sdriver_no_hold
					IMPORT		sm_call_no
					IMPORT		max_cmd
					IMPORT		our_zpg_hold
					IMPORT		bind_scsi_irq
					IMPORT		tout_header
					IMPORT		arbtout_header
					IMPORT		scsim_chars
					IMPORT		get_zpage
					IMPORT		zpg_savebuff
					IMPORT		zpg_hold
					IMPORT		our_zpg_hold
					IMPORT		snooper_ptr
					IMPORT		error_stat
					IMPORT		gsos_zpg_hold
					IMPORT		allocate_memory
					IMPORT		handle_hold
					IMPORT		clear_memory
					IMPORT		cmd_table
					IMPORT		scsi_status
					IMPORT		scsi_message

;					ENTRY		

					PRINT		OFF

					INCLUDE		'SCSIM.Equates'
					INCLUDE		'Common.Equ.Src'
					INCLUDE		'HW.Equ.Src'
;					INCLUDE		'M16.MEMORY'
					INCLUDE		'M16.UTIL'
					INCLUDE		'M16.MISCTOOL'

					PRINT		ON

					EJECT

;*******************************************************
;
;	'scsi_man_exec'
;
;	This module controls the command execution of the
;	SCSI Manager.  All commands flow through this
;	routine.  It validates the command to make sure it
;	is within range, to the specific call.
;
;	NOTE:
;		This code assumes that Supervisor startup call
;		is the first call made to the SCSI Manager and
;		can occur only once during any system startup
;		session.
;
;	Inputs:		e,m,x		=	0 (full native)
;				Acc			=	Supervisors driver number
;				X reg		=	SCSI Manager command number
;				Y reg		=	Supervisor ID
;				dpage		=	GS/OS Direct page
;				Stack		=	GS/OS stack space
;				Speed		=	fast
;
;	Output:		e,m,x		=	0 (full native)
;				Carry		=	0 for successful call
;							=	1 for error during call
;				Acc			=	Error code or supervisor
;								driver number
;				dpage		=	GS/OS direct page
;				B			=	ENTRY
;				X reg		=	undefined
;				Y reg		=	undefined
;		
;*******************************************************

					EXPORT	scsi_man_exec
scsi_man_exec		PROC
											;
											; point to our code bank &
											; check if scsi manager
											; already busy
											;
					sta		$FF0400			;for debug purposes
					phb						;save data bank register
					phd						;save direct register
					phk						;point to our code segment
					plb						;data bank reg saved by Sup. Disp.
					bit		|smbusy_flag
					bpl		@75
					lda		#sm_busy_err	;mark scsi manager busy error
					brl		execend			;and go away
											;
											; SCSI Manager not busy go
											; issue the call
											;
@75					jsl		incbusyflag		;increment busy flag to prevent CDA access
					sta		|sdriver_no_hold;save supervisor driver number
					stx		|sm_call_no		;save the call number
					cpx		#max_cmd		;check if command in range
					bcc		rangok
											;
											; command out of range report
											; the error
											;
					lda		#scsicmd_err	;command out of range
					brl		execend

rangok				cpx		#startup		;check for startup
					beq		warmchk

											;
											; non startup call enters here
											;
					lda		|our_zpg_hold	;point to our zero page
					tcd
					brl		clrerr
											;
											; Check for a warmstart.  If
											; warmstart install allocate a
											; zero page and restore the zero
											; page data back into to it.
											; Also, no matter if warmstart
											; or cold start install interrupt
											; handler and heartbeat task
											; handler.
											;
warmchk				jsr		bind_scsi_irq	;install our irq handler
					bcc		@100			;go away if error
					brl		rsrcerr
											;
											; startup the VBL interrupts
											; source
											;
@100				pea		$0002			;vertical irq reference number
					_IntSource
											;
											; Install timeout handler
											; heartbeat task
											;
					PUSHLONG	#tout_header
					_SetHeartBeat
					bcc		@105
					brl		rsrcerr
											;
											; Install arbitration timeout
											; heartbeat task
											; 
@105				PUSHLONG	#arbtout_header
					_SetHeartBeat
					bcc		@110
					brl		rsrcerr

@110				bit		|scsim_chars	;check bit 15 for restartable
					bpl		coldst			;coldstart if not restartable

					lda		>warm_cold_flag
					and		#$0001
					beq		coldst			;Z=1 marks a coldstart go do it
											;
											; allocate zero page area
											;
warmst				jsr		|get_zpage
					bcs		rsrcerr			;go away if error
											;
											; Restore Saved Values.
											;
					PUSHLONG	#zpg_savebuff	;source address
					PUSHWORD	#NULL			;destination address High
					PUSHWORD	|zpg_hold		;destination address Low
 					PUSHLONG	#maxzpg_space
 					PUSHWORD	#move_sinc_dinc

					jsl		move_info

					lda		|zpg_hold		;set our direct register
					clc						;point to the 2nd zero page
					adc		#driverzpgsize
					sta		|our_zpg_hold	;Save to eliminate future calcs.

					stz		|snooper_ptr+2	;clear high word of the snooper cda pointer
					sta		|snooper_ptr	;save the address of the zero page

					tcd						;point to our zero page

					stz		|error_stat		;clear the error status field
					bra		warmend			;go away
											;
											; Coldstart
											;
coldst				tdc						;save GS/OS zero page address (will need later)
					sta		|gsos_zpg_hold	

					jsr		allocate_memory	;get our work memory
					bcc		memok
											;
											; failed to allocate working
											; resources
											;
rsrcerr				lda		#sm_rsrc_err	;scsi manager could not allocate memory
					bra		execend			;go away
											;
											; dereference our handle
											;
memok				lda		|handle_hold	;setup handle pointer
					sta		scratchzpg
					lda		|handle_hold+2
					sta		scratchzpg+2
											;
											; form I/O table address
											;
					lda		[scratchzpg]	;form memory pointer
					sta		<io_table_ptr
					tax						;low word of pointer
					ldy		#$0002
					lda		[scratchzpg],y
					sta		<io_table_ptr+2
					tay						;high word of pointer
					txa						;form address of SDR table
					clc
											;
											; Form SDR table address
											;
					adc		#iotsize
					sta		<sdr_table_ptr
					sty		<sdr_table_ptr+2
					sta		<next_sdr		;link to first sdr
					sty		<next_sdr+2
					lda		#default_sdrs	;number of default SDRs
					sta		<avail_sdrs
											;
											; clear newly acquired memory
											;
					lda		#min_mem_size	;number of bytes to clear
					jsr		clear_memory	;go clear them

clrerr				stz		|error_stat		;clear error status

					lda		|sm_call_no		;get the call number back
					asl		a				;two byte pointers
					tax

					jsr		(cmd_table,x)	;go to it!
											;
											; all calls return here except
											; SHUTDOWN
											;
											; clear scsi call status and
											; message working variables
											;
warmend				stz		|scsi_status
					stz		|scsi_message
					jsl		decbusyflag		;adjust the busy flag (CDAs can come in)
					lda		|error_stat		;check for non zero status
					stz		|error_stat		;clear the error status field
execend				sta		$FF0402			;**** Debug
					pld						;restore GS/OS direct page
					plb						;restore data bank register
					cmp		#$0001			;set carry on errors
					rtl

					ENDP

					EJECT

					END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/SupervisoryDrivers/SCSI.Manager(1meg)/SCSIM.Equates b/IIGS.601.SRC/GS.OS/SupervisoryDrivers/SCSI.Manager(1meg)/SCSIM.Equates
new file mode 100644
index 0000000..b742f5a
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/SupervisoryDrivers/SCSI.Manager(1meg)/SCSIM.Equates
@@ -0,0 +1 @@
+
;*******************************************************
;
;	SCSI Manager 'Equates' file.
;
;	Written by:
;	
;					Gus Andrade
;
;	Modified for new card by:
;
;					Matt Gulick.
;					Started June 1,1989
;
;	Copyright Apple Computer, Inc. 1988,89
;	All rights reserved.
;
;*******************************************************

;*******************************************************
;
;	Revision History:
;
;*******************************************************

;	June		1,		1989		Rev. 5.1 Started.
;	July		10,		1989		Merged Equates from
;									the GS/OS 5.0 Final
;									Disk.

;*******************************************************
;
;	'SCSIM.Equates'
;
;	This file contains all the global equates for the
;	SCSI Manager.  Only those items below that are
;	marked as "**** Changable ****" can be altered
;	safely without detailed intimate knowledge of how
;	the generic driver functions.  Any other values
;	should only be modified by someone who understands
;	how this generic driver functions.
;
;	Copyright Apple Computer, Inc. 1988-1989
;	All rights reserved.
;
;*******************************************************
											;
											; Bit Location equates
											;
null				equ		%0000000000000000
bit_0				equ		%0000000000000001
bit_1				equ		%0000000000000010
bit_2				equ		%0000000000000100
bit_3				equ		%0000000000001000
bit_4				equ		%0000000000010000
bit_5				equ		%0000000000100000
bit_6				equ		%0000000001000000
bit_7				equ		%0000000010000000
bit_8				equ		%0000000100000000
bit_9				equ		%0000001000000000
bit_10				equ		%0000010000000000
bit_11				equ		%0000100000000000
bit_12				equ		%0001000000000000
bit_13				equ		%0010000000000000
bit_14				equ		%0100000000000000
bit_15				equ		%1000000000000000

true				equ		$0001
false				equ		$0000

;****************** DEBUG CONDITIONAL assembly switch ****************************
;
debug				equ		false
Disc_ReSel			equ		false
;
;*******************************************************
;
;	SCSI Manager hardware equates
;
;*******************************************************
;
io_space			equ		$00C000					;base address for I/O space
;*******************************************************
													;
													; SCSI ports I/O space (READ)
													;
currdata			equ		$0000					;current scsi data

;*******************************************************
													;
													; 5380 command register
													;
initcmdreg			equ		$0001					;initiator command register

databuson			equ		bit_0					;assert scsi data bus
attention			equ		bit_1					;assert SCSI ATN*
select				equ		bit_2					;assert SCSI SEL*
busy				equ		bit_3					;assert SCSI BSY*
asrtack				equ		bit_4					;assert SCSI ACK*
arbitlost			equ		bit_5					;lost arbitration status
differenab			equ		bit_5					;enable differential (NCR 5381 only!)
arbinprog			equ		bit_6					;arbitration in progress
testmode			equ		bit_6					;enable test mode
assertrst			equ		bit_7					;assert RST*

;*******************************************************
													;
													; 5380 mode register
													;	
modereg				equ		$0002					;5380 Mode register

arbitrate			equ		bit_0					;start arbitration phase
dmaenable			equ		bit_1					;enable DMA mode
monitorbsy			equ		bit_2					;monitor BSY*
eopirqenb			equ		bit_3					;enable EOP* interrupt
parirqenb			equ		bit_4					;enable parity interrupt
parchkenb			equ		bit_5					;enable parity checking
targetenb			equ		bit_6					;set target mode
blkdmaenb			equ		bit_7					;enable Block Mode DMA

;*******************************************************
													;
													; 5380 Target command register
													;
targcmdreg			equ		$0003					;5380 target command register

assertio			equ		bit_0					;assert I/O*
assertcd			equ		bit_1					;assert C/D*
assertmsg			equ		bit_2					;assert MSG*
assertreq			equ		bit_3					;assert REQ*
lastbyte			equ		bit_7					;last byte sent (53C80 only!)

;*******************************************************
													;
													; Current SCSI bus status register
													;
curbusstat			equ		$0004					;5380 current bus status Reg (READ Only)

dbp					equ		bit_0					;scsi bus parity
sel					equ		bit_1					;scsi bus SEL*
io					equ		bit_2					;scsi bus I/O*
cd					equ		bit_3					;scsi bus C/D*
msg					equ		bit_4					;scsi bus MSG*
req					equ		bit_5					;scsi bus REQ*
bsy					equ		bit_6					;scsi bus BSY*
rst					equ		bit_7					;scsi bus reset
													;
													; SCSI Bus phases bit patterns
													;
data_out_phase		equ		$0000					;$0000
data_in_phase		equ		io/4					;$0001
cmd_phase			equ		cd/4					;$0002
stat_phase			equ		(io+cd)/4				;$0003
invalid_phase1		equ		msg/4					;$0004
invalid_phase2		equ		(io+msg)/4				;$0005
msg_out_phase		equ		(cd+msg)/4				;$0006
msg_in_phase		equ		(io+cd+msg)/4			;$0007

;*******************************************************

sel_enabl_reg		equ		$0004					;5380 Select Enable Reg (WRITE Only)

;*******************************************************
													;
													; Bus & Status Reg (READ Only)
													;
busstat				equ		$0005					;bus & status register

ack					equ		bit_0					;scsi bus ACK*
atn					equ		bit_1					;scsi bus ATN*
busyerr				equ		bit_2					;busy error status
phasematch			equ		bit_3					;scsi bus phase match status
scsiirq				equ		bit_4					;5380 irq pending flag
parityerr			equ		bit_5					;scsi data parity error
drq					equ		bit_6					;DMA request asserted (DRQ)
end_dma				equ		bit_7					;end of dma transfer status
;
;*******************************************************

start_dma_send		equ		$0005					;5380 Start DMA Send (WRITE Only)

;*******************************************************

indatareg			equ		$0006					;scsi data input Reg (READ Only)

;*******************************************************

start_dma_trecv		equ		$0006					;5380 Start DMA Target Receive
													;(WRITE Only)

;*******************************************************

resetpreg			equ		$0007					;scsi reset parity Reg (READ Only)
resetirqreg			equ		$0007					;clear 5380 pending irq (READ Only)

;*******************************************************

start_dma_irecv		equ		$0007					;5380 Start DMA Initiator Receive
													;(WRITE Only)

;*******************************************************
													;
													; SCSI ports I/O space (Write)
													;
outdatareg			equ		$0000					;output data register
selectereg			equ		$0004					;scsi device id during select phase
dmasndreg			equ		$0005					;start DMA send register
tdmarecv			equ		$0006					;start DMA receive target
idmarecv			equ		$0007					;start DMA receive initiator
;
;
;*******************************************************
;
;          SCSI DMA controller registers (Cocoon)
;
;*******************************************************
;
dmaaddrl			equ		$0008					;low byte of source/dest dma address
dmaaddrh			equ		$0009					;high byte of source/dest dma address

dmacntl				equ		$000A					;low byte of dma byte count
dmacnth				equ		$000B					;high byte of dma byte count
													;
													; DMA controller control bit definitions
													;
dmactl				equ		$000C					;dma chip control register

pseudo_dma			equ		bit_0					;Pseudo Dma enable			( READ/WRITE )
real_dma			equ		bit_1					;Real Dma enable			( READ/WRITE )
addr_roll			equ		bit_2					;Address Rollover			( READ )
dis_stop_dma		equ		bit_3					;DMA ignores IRQs			( READ/WRITE )
watch_dog			equ		bit_4					;DMA Watch Dog Timer		( READ )
irq_enable			equ		bit_5					;5380 INT Enable			( READ/WRITE )
dma_enabled			equ		bit_6					;DMA Enabled bit			( READ )
dma_stopped			equ		bit_7					;DMA stop by irq status		( READ )

fixit_reg			equ		$000D					;Cocoon Fixit Register ( WRITE )

kick_dma			equ		bit_0					;Restart DMA after rollover or IRQ
reset_5380			equ		bit_1					;Reset the 5380
clear_test			equ		bit_6					;Clear Test Mode
set_test			equ		bit_7					;Set Test Mode

priority			equ		$000E					;Cocoon Priority ( READ )

prio_mask			equ		bit_5++\				;Mask for priority
							bit_6++\
							bit_7

fire_watch			equ		$000E					;Cocoon Fire Watchdog ( WRITE )

fire_watch_bit		equ		bit_7

speed_cont			equ		$000F					;Cocoon Speed Control ( READ/WRITE )

dma_speed			equ		bit_7					;DMA Speed Control (1 = slow, 0 = fast)
;
;*******************************************************
;
;	OLD SCSI card hardware registers
;
;*******************************************************
;
io_stbreset			equ		$CFFF					;reset I/O strobe space register
opdmadatareg		equ		$0008					;data in/out pseudo DMA register
card_priot_reg		equ		$0009					;priority jumper block i/o address
ocard_breg			equ		$000A					;old scsi card rom/ram bank select register
opdmareg			equ		$000D					;Pseudo-DMA mode enable old scsi card
drqstatreg			equ		$000E					;b7 = DRQ status bit of address $C0NE
													;
													; OLD SCSI CARD internal ram variables/equates
													;
scsi_init			equ		$00C809					;Init flag
sdat_start			equ		$00C831					;Start of SDAT ram
gs_flag				equ		$00C8F3					;GS system flag
dibtab_start		equ		$00C931					;start of DIBTAB ram
dibtab_len			equ		$001B					;length of dibtab record

					EJECT

;*******************************************************
;
;	SCSI bus timeout equates
;
;*******************************************************

bus_set_delay		equ		$FF						;bus SET delay
bus_res_hold		equ		$FF						;bus RESET hold time (25 usec min.)
sel_abort_tout		equ		$20						;bus SELECT abort time (200 usec max)
sel_timeout			equ		$A100					;SELECT Timeout (250 millisec min.)
millisec_count		equ		$00CB					;count for 1 millisecond delay
usec125				equ		66						;count for 256 usec delay
bres_ready_del		equ		275						;275 millllisec
arbtcount			equ		120						;2 second arbitration timeout
;
;*******************************************************
;
;	Misc Hardware registers
;
;*******************************************************

dma_bank_reg		equ		$00C037					;system dma bank register
slotromsel			equ		$00C02D					;slot rom select register

					EJECT

;*******************************************************
;
;	SCSI Manager zero page equates
;
;*******************************************************
;
driver_zpg			equ		$0000					;256 bytes reserved for device drivers
driverzpgsize		equ		$0100
;
scsizpg				equ		$0000					;start of our zero page area
													;
													; zero page working pointer variables
													;
zpgwptrs			equ		scsizpg
dev_slot			equ		scsizpg					;slot number
dev_id				equ		dev_slot+2				;id of device sought
pversion			equ		dev_id+2				;parameter list version number
call_attrbs			equ		pversion+2				;call attribute flags
calltout			equ		call_attrbs+2			;number of 1/4 secs call must complete within
compvector			equ		calltout+2				;completion routine vector
scsicptr			equ		compvector+4			;scsi command pointer
dclst_ptr			equ		scsicptr+4				;pointer to buffer structure
req_count			equ		dclst_ptr+4				;working register for byte count requested
asense_ptr			equ		req_count+4				;autosense buffer pointer
msgb_ptr			equ		asense_ptr+4			;message buffer pointer
endzwvars			equ		msgb_ptr+4				;end zero page work variables
wptrssize			equ		endzwvars-zpgwptrs		;number of bytes in working pointers
													;
													; zero page misc variables
													;
logunit				equ		endzwvars				;logical unit work variable
slot_no				equ		logunit+2				;slot number work variable
io_offset			equ		slot_no+2				;work io space address work variable
dma_offset			equ		io_offset+4				;dma controller io space address work variable
plist_ptr			equ		dma_offset+4			;parameter list pointer
dc_pc				equ		plist_ptr+4				;working data chain inst prog. counter
curr_dci_ptr 		equ		dc_pc+4					;work current data chain inst pointer
buffer_ptr			equ		curr_dci_ptr+4			;work buffer pointer
byte_ctr			equ		buffer_ptr+4			;work byte counter
xfer_count			equ		byte_ctr+4				;working register for byte count transferred
;
numscsi_cards		equ		xfer_count+4			;number of scsi cards found in system
sdrsonline			equ		numscsi_cards+2			;number of sdrs online
sdrstocheck			equ		sdrsonline+2			;working varialble
active_sdr			equ		sdrstocheck+2			;pointer to currently active SDR
io_table_ptr		equ		active_sdr+4			;points to I/O table
iorec_ptr			equ		io_table_ptr+4			;I/O record pointer
sdr_table_ptr		equ		iorec_ptr+4				;scsi device records table pointer
sdr_ptr				equ		sdr_table_ptr+4			;SDR record pointer	
next_sdr			equ		sdr_ptr+4				;contains address of next available SDR
avail_sdrs			equ		next_sdr+4				;number of available SDRs
scratchzpg			equ		avail_sdrs+2			;scratchpad pointer
temp1				equ		scratchzpg+4			;scratchpad
temp2				equ		temp1+4					;scraattchpad
addr_table_ptr		equ		temp2+4					;routine tables pointer
tick_addr			equ		addr_table_ptr+4		;system wide tick counter address
zpgsize				equ		tick_addr+4-scsizpg		;scsi manager has 1 page of zero page space max.
;
max_zpgcode			equ		$0080					;largest code space for zero page routines
maxzpg_space		equ		$0200					;2 pages for zero page space max.
driver_zpg_size		equ		$0100					;one page of drivers (2nd page for scsi manager)
zeropg_code			equ		$0080					;start of zero page code
zpgbank				equ		$0000					;zero page always in bank $0000

;*******************************************************
;
;	GS/OS zero page equates
;
;*******************************************************
;
sib_plptr			equ		$0078					;pointer to parameter list for scsi manager
gsoszpgscratch		equ		$0060					;scratch zero page area in gs/os zero page

					EJECT

;*******************************************************
;
;	Parameter list field definitions for Request Devices &
;	Claim Devices calls.
;
;*******************************************************
													;
													; Get Devices parameter list fields
													;
getdevs_plst		equ		$0000
scsi_dtype			equ		$0000					;scsi device type
intcomvect			equ		$0002					;intercommnunication vector
destbuffptr			equ		$0006					;destination buffer pointer
													;
													; destination buffer field definitions
													;
zpg_addr			equ		$0000					;offset to zero page field
total_devcount		equ		$0002					;total device count field
device_slot			equ		$0004					;slot number field
device_id			equ		$0006					;scsi device id field
;
reqENTRY_size		equ		device_id\
							-total_devcount			;number of bytes per ENTRY
;
					EJECT

;*******************************************************
;
;	Parameter list field definitions for SCSI I/O call
;
;*******************************************************
													;
													; I/O call parameter list
													;
io_call_plst		equ		$0000
plst_slot			equ		$0000					;device ID := slot & unit number
plst_devid			equ		$0002					;parameter list device ID
plst_version		equ		$0004					;parameter list version
plst_attrbs			equ		$0006					;attributes word
plst_timeout		equ		$0008					;timeout in 1/4 sec counts
plst_comp_vect		equ		$000A					;Completion vector
plst_cmd_ptr		equ		$000E					;pointer to scsi cmd list
plst_dchainptr		equ		$0012					;pointer to data chain instructions
plst_reqxfr_cnt		equ		$0016					;request/transfered byte count
plst_autos_ptr		equ		$001A					;pointer to autosense buffer
plst_msg_ptr		equ		$001E					;pointer to message buffer pointer
plst_Reserved		equ		$0022					;reserved (must be $0000)
													;
													; parameter list attribute bits definitions
													;
plst_disc_bit		equ		bit_15					;parameter list attribute bit for disconnect
plst_msgin_bit		equ		bit_14					;save message in bytes in message buffer
plst_msgout_bit		equ		bit_13					;message out bytes in message buffer for target
plst_attresbits		equ		$7FFF					;param list attributes word reserved bits
													;
													; DATA CHAINING INSTRUCTION DEFINITION
													;
dci_opcode			equ		$0000					;opcode field
dci_count_field		equ		$0004					;count field
dci_offset			equ		$0008					;offset field
dci_save			equ		$000C					;data chain instruction save area

dci_size			equ		dci_save+4\
							-dci_opcode				;number of bytes in data chain instruction
maxdcis				equ		32						;maximum of 32 data chain inst per i/o call

					EJECT

;*******************************************************
;
;	SCSI Manager Errors
;
;*******************************************************

success				equ		$0000				;
scsi_man_err		equ		$FE00				;generic scsi manager error
bad_dev_type		equ		$FE01				;invalid SCSI device type
ckcondition			equ		$FE02				;check condition
bad_scsi_id			equ		$FE03				;invalid SCSI device ID
condmetgood			equ		$FE04				;condition met good
plist_error			equ		$FE05				;invalid SCSI Mgr. parameter block
bad_buff_size		equ		$FE06				;invalid buffer size
sm_rsrc_err 		equ		$FE07				;unable to allocate mgr. resources
target_busy			equ		$FE08				;target busy
sm_shutdown_err		equ		$FE09				;unable to shutdown scsi manager
scsicmd_err			equ		$FE0A				;scsi manager command out or range
scsi_start_err		equ		$FE0B				;scsi manager already started error
no_startup_err		equ		$FE0C				;SCSI Manager not started error
no_scsi_hardware	equ		$FE0D				;no scsi cards found
irq_install_err		equ		$FE0E				;unable to install scsi irq handler
irq_remove_err		equ		$FE0F				;unable to unbind scsi irq handler
intermed_good		equ		$FE10				;intermediate status good (linked cmds)
calltout_err		equ		$FE11				;call timeout error
get_dib_err			equ		$FE12				;get_dib_ptr call failed
gen_scsi_bus_err 	equ		$FE13				;general scsi bus error
bus_free_err		equ		$FE14				;bus freee phase error
arbit_phase_err		equ		$FE15				;bus arbitration error
sel_phase_err		equ		$FE16				;select phase error
int_cond_met_good	equ		$FE17				;intermediate/condition met/good
cmd_phase_err		equ		$FE18				;command phase error
data_phase_err		equ		$FE19				;data phase error
bad_msg_err			equ		$FE1A				;message phase error
reserve_conflict	equ		$FE1B				;reservation conflict
stat_phase_err		equ		$FE1C				;status phase error
scsi_bus_Res_err 	equ		$FE1D				;SCSI bus reset error
no_scsi_devs		equ		$FE1E				;general scsi hardware error
no_scsi_err			equ		$FE1F				;No SCSI signatured hardware found
inv_scsi_irq		equ		$FE20				;Invalid SCSI interrupt generated
inv_code_err		equ		$FE21				;seq opcode routine should not have gone to bcs handler
inv_phase_err		equ		$FE22				;Invalid phase pattern
sm_busy_err			equ		$FE23				;SCSI Manager busy error
autosfail_err		equ		$FE24				;Autosense call failed
												;
												; SCSI target status error codes
												;
queue_full			equ		$FE28				;queue full status
												;$FExx where xx = scsi status byte

		EJECT

;*******************************************************
;
;	SCSI message definitions
;
;*******************************************************

cmd_complete		equ		$0000				;command complete
extended_msg		equ		$0001				;extended message marker
save_dat_ptr		equ		$0002				;save data pointer message
rest_data_ptr		equ		$0003				;restore data pointer message
disconnect			equ		$0004				;disconnect message
init_err_detect		equ		$0005				;initiator detected error
abort_msg			equ		$0006				;abort transaction message
rEJECT_msg			equ		$0007				;rEJECT message
nop_msg				equ		$0008				;NO operation message
par_err_msg			equ		$0009				;parity error message
link_comp_msg		equ		$000A				;linked command complete message
link_compwf_msg		equ		$000B				;linked command complete with flag message
bus_dev_res_msg		equ		$000C				;bus device reset message
sdata_follows		equ		$000D				;auto Sense data follows
identify_msg		equ		$0080				;$80-$FF = Identify message

					EJECT

;*******************************************************
;
;	SCSI Manager Data structures
;
;*******************************************************
;
;	SCSI Manager I/O Space Table
;
;*******************************************************
;
;	This table contains all the entries for each Slot,
;	scsi devices and logical units within scsi devices.
;	The bitmap of the scsi device logical units is
;	broken down as follows:
;
;	I/O table record:
;	+-----------+-----------+
;	|    	Slot Number		|	slots 0-F (slot 0,8 do not exist) slots 9-F external 
;	+-----------+-----------+
;	| SCSI hardware version	|	hardware version identification
;	+-----------+-----------+
;	|    5380 base addr		|	Low word $C0X0 where X := (slot# * $10) + $80
;	+-----------+-----------+
;	|   5380 bank number	|	bank number of scsi controller base
;	+-----------+-----------+
;	| DMA Control base addr |	Low word $C0X0 where X := (slot# * $10) + $80
;	+-----------+-----------+
;	|  DMA controller bank	|	DMA controller bank
;	+-----------+-----------+
;	| Card/port attributes	|
;	+-----------+-----------+
;	|   Initiator Priority	|
;	+-----------+-----------+
;	| SCSI Device 0 Logical	|	Bit Map for Logical units on SCSI Device 0
;	+-----------+-----------+
;	| SCSI Device 1 Logical	|	Bit Map for Logical units on SCSI Device 1
;	+-----------+-----------+
;	| SCSI Device 2 Logical	|	Bit Map for Logical units on SCSI Device 2
;	+-----------+-----------+
;	| SCSI Device 3 Logical	|	Bit Map for Logical units on SCSI Device 3
;	+-----------+-----------+
;	| SCSI Device 4 Logical	|	Bit Map for Logical units on SCSI Device 4
;	+-----------+-----------+
;	| SCSI Device 5 Logical	|	Bit Map for Logical units on SCSI Device 5
;	+-----------+-----------+
;	| SCSI Device 6 Logical	|	Bit Map for Logical units on SCSI Device 6
;	+-----------+-----------+
;	| SCSI Device 7 Logical	|	Bit Map for Logical units on SCSI Device 7
;	+-----------+-----------+
;	|		RESERVED		|	Room for future expansion
;	+-----------+-----------+
;
;	NOTE:	1.	If the Slot Number field is zero then
;				no SCSI card/port was found in this
;				position Otherwise it contains the slot
;				number
;			2.	The Intiator priority defined by the
;				cards Built-in SCSI ports are defined
;				have the highest priority $07
;
;	card/port_attrbs:
;	+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
;	|F|E|D|C|B|A|9|8|7|6|5|4|3|2|1|0|
;	+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
;	 | | | | | | | | | | | | | | | |
;	 | | | | | | | | | | | | +-+-+-+----- scsi hardware version
;	 | | | | | | | | | | | +------------- card/built-in port 	0=port, 1=card
;	 | | | | | | | | | | +--------------- IRQ support		0=no irq 1=generates irq
;	 | | | | | | | | | +----------------- DMA support		0=no DMA 1=DMA transfers
;	 +-+-+-+-+-+-+-+-+------------------- RESERVED
;
;	scsi hardware version:
;	0000 = Old SCSI card
;	0001 = New SCSI card
;	0010 = Option 4 built-in port
;	0011-1111 Reserved
;
;	Device word:
;	+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
;	|F|E|D|C|B|A|9|8|7|6|5|4|3|2|1|0|
;	+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
;	 | | | | | | | | | | | | | | +-+------ Logical unit 0
;	 | | | | | | | | | | | | +-+---------- Logical unit 1
;	 | | | | | | | | | | +-+-------------- Logical unit 2
;	 | | | | | | | | +-+------------------ Logical unit 3
;	 | | | | | | +-+---------------------- Logical unit 4
;	 | | | | +-+-------------------------- Logical unit 5
;	 | | +-+------------------------------ Logical unit 6
;	 +-+---------------------------------- Logical unit 7
;
;	Each pair of bits is encoded as follows:
;
;*******************************************************
;
scan_lu				equ		%00 				;This logical unit needs to be scanned for
lu_online			equ		%01 				;This logical unit is online leave alone
select_active		equ		%10 				;Currently trying to select this scsi device
lu_scan_end			equ		%11					;Do not check for Logical units beyond this one
;
;*******************************************************
;
iorecord			equ		$0000
slot				equ		iorecord
hwd_type			equ		slot+2
scsi_base			equ		hwd_type+2			;scsi controller base address
scsi_bank			equ		scsi_base+2			;high word of scsi controller base
dma_base			equ		scsi_bank+2			;io base addr for dma controll
dma_bank			equ		dma_base+2			;dma control bank address
io_attrbs			equ		dma_bank+2			;this slots/port attributes
initpriot			equ		io_attrbs+2			;Initiator priority
d0logicals			equ		initpriot+2			;device 0 logical units bit map
d1logicals			equ		d0logicals+2		;device 1 logical units bit map
d2logicals			equ		d1logicals+2		;device 2 logical units bit map
d3logicals			equ		d2logicals+2		;device 3 logical units bit map
d4logicals			equ		d3logicals+2		;device 4 logical units bit map
d5logicals			equ		d4logicals+2		;device 5 logical units bit map
d6logicals			equ		d5logicals+2		;device 6 logical units bit map
d7logicals			equ		d6logicals+2		;device 7 logical units bit map
end_iorecord		equ		d7logicals+2		;
iorec_size			equ		end_iorecord\
							-iorecord			;size I/O record size
;*******************************************************
;
;	io_attrbs bit definitions & defaults
;
;*******************************************************
												;
												; Hardware version types
												;
old_scsi_card		equ		$0000
new_scsi_card		equ		$0001
;					equ		$0002				;opt4_scsi
;					equ		$8000+0				;vendor_spec0
;					equ		$8000+1				;vendor_spec1
;					equ		$8000+2				;vendor_spec2
;					equ		$8000+3				;vendor_spec3
;					equ		$8000+4				;vendor_spec4
;					equ		$8000+5				;vendor_spec5
;					equ		$8000+6				;vendor_spec6
;					equ		$8000+7				;vendor_spec7
												;
												; I/O attribute bits
												;
external_card		equ		$0002
irq_support			equ		$0004
dma_support			equ		$0008
;
old_card_attrbs		equ		$0010				;old card, external, no irq or DMA support
new_card_attrbs		equ		$0070				;new scsi card attributes

					EJECT

;*******************************************************
;
;	I/O table
;
;*******************************************************

io_table			equ		$0000				;io table definition
s0_iorec			equ		io_table\
							+iorec_size			;slot 0 internal
s1_iorec			equ		s0_iorec\
							+iorec_size			;slot 1
s2_iorec			equ		s1_iorec\
							+iorec_size			;slot 2
s3_iorec			equ		s2_iorec\
							+iorec_size			;slot 3
s4_iorec			equ		s3_iorec\
							+iorec_size			;slot 4
s5_iorec			equ		s4_iorec\
							+iorec_size			;slot 5
s6_iorec			equ		s5_iorec\
							+iorec_size			;slot 6
s7_iorec			equ		s6_iorec\
							+iorec_size			;slot 7
s8_iorec			equ		s7_iorec\
							+iorec_size			;slot 0 external
s9_iorec			equ		s8_iorec\
							+iorec_size			;slot 1
sA_iorec			equ		s9_iorec\
							+iorec_size			;slot 2
sB_iorec			equ		sA_iorec\
							+iorec_size			;slot 3
sC_iorec			equ		sB_iorec\
							+iorec_size			;slot 4
sD_iorec			equ		sC_iorec\
							+iorec_size			;slot 5
sE_iorec			equ		sD_iorec\
							+iorec_size			;slot 6
sF_iorec			equ		sE_iorec\
							+iorec_size			;slot 7
end_iotable			equ		sF_iorec
iotsize				equ		end_iotable\
							-io_table			;io_table size

					EJECT

;*******************************************************
;
;	Scsi Device Record (SDR)
;
;*******************************************************
;
;	+-----------+-----------+
;	|	  Next SDR Link		|	Address of next SDR record (LONG)
;	+-----------------------+
;	|	  sdr_plist_ptr		|	pointer to parameter list tied to this device (LONG)
;	+-----------+-----------+
;	|       Device Id		|	ID assigned to this Logical Unit (WORD)
;	+-----------+-----------+
;	|   SCSI Device Type 	|	See standard for definition (WORD)
;	+-----------------------+
;	| SCSI standard Version |	Refer to SCSI standard (WORD)
;	+-----------+-----------+
;	|		SDR Flags		|	scsi device access attributes (WORD)
;	+-----------+-----------+
;	|		SDR SubLU		|	sub logical unit (reserved must be zero) (WORD)
;	+-----------+-----------+
;	|	 SDR Logical Unit	|	Logical unit number (WORD)
;	+-----------+-----------+
;	|	 Target priority	|	Target priority record belongs to (WORD)
;	+-----------+-----------+
;	|	  Host priority		|	Initiator priority this LU talks to (WORD)
;	+-----------+-----------+
;	|		SDR Slot		|	card slot no. for this LU (WORD)
;	+-----------+-----------+
;	|						|
;	+--  5380 Base Addrs  --+	I/O base address for 5380 (LONG)
;	|						|
;	+-----------+-----------+
;	|						|
;	+--   DMA Base Addrs  --+	I/O base address for 5380 DMA control (LONG)
;	|						|
;	+-----------+-----------+
;	|						|
;	+-- Timeout Remaining --+	call timeout remaining (seconds) (LONG)
;	|						|
;	+-----------+-----------+
;	|						|
;	+-- completion Vector --+	completion vector (LONG)
;	|						|
;	+-----------+-----------+
;	|						|
;	+-- Next Command Byte --+	position of next command byte to send (LONG)
;	|						|
;	+-----------+-----------+
;	|						|	Field to save data chain instruction during
;	+-- Data Chain Offset --+	Save pointers call (LONG)
;	|						|
;	+-----------+-----------+
;	|						|	current position of buffer address (2's complement form)
;	+------ Buffer Ptr -----+
;	|						|
;	+-----------+-----------+
;	|						|
;	+-- Current byte count--+	Byte count place holder (LONG)
;	|						|
;	+-----------+-----------+
;	|						|
;	+--  Context RAM HNDL --+	Handle to RAM for Context Switches (LONG)
;	|						|
;	+-----------+-----------+
;	|		Reserved 		|	Expansion (WORD)
;	+-----------+-----------+
;
;
;	Device ID:
;	+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
;	|F|E|D|C|B|A|9|8|7|6|5|4|3|2|1|0|
;	+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
;	 | | | | | | | | | | | | | | | |
;	 | | | | | | | | | | | | | | | |
;	 | | | | | | +-+-+-+-+-+-+-+-+-+-----	Device ID assigned by SCSI Manager
;	 | +-+-+-+-+-------------------------	RESERVED
;	 +-----------------------------------	Claimed bit 1= Claimed by driver
;
;
;	Logical Unit Attrbs:
;	+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
;	|F|E|D|C|B|A|9|8|7|6|5|4|3|2|1|0|
;	+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
;	 | | | | | | | | | | | | | | | |
;	 | | +-+-+-+-+-+-+-+-+-+-+-+-+-+-----	RESERVED
;	 | +---------------------------------	SDR record busy flag
;	 +-----------------------------------	Removeable media
;
;	SCSI_DEVICE_TYPE BYTE DEFINITION: (Inquiry call
;	definition)
;	Bits 0-4
;	$00		=	Direct access device (magnetic disk)
;	$01		=	Sequential access device (magnetic tape)
;	$02		=	Printer device
;	$03		=	PROCessor device
;	$04		=	Write-once direct access device (some
;				optical disks)
;	$05		=	Read-only direct access device (optical
;				disks)
;	$06		=	Scanner device
;	$07		=	Optical Memory devices (optical disks)
;	$08		=	Changer device (jukeboxes)
;	$09		=	Communications device
;	$0A-$0F =	RESERVED
;	$10		=	Apple Tape Drive
;	$1E		=	Target device ???
;	$1F		=	Unknown device type
;
;	Bits 5-7
;	000		=	Type defined by bits 0-4 connected to this LU
;	001		=	Target SCSI ID able to support type defined
;				by bits 0-4
;	010		=	RESERVED
;	011		=	LU not able to support Logical unit
;	1XX		=	Vendor Unique
;
;*******************************************************

sdr_record			equ		$0000				;scsi manager scsi device record
nxt_sdr_lnk			equ		sdr_record			;(4)link to next SDR in the queue
sdr_plist_ptr		equ		nxt_sdr_lnk+4		;(4)pointer to parameter list tied to this device
sdr_device_id		equ		sdr_plist_ptr+4		;(2)ID assigned by SCSI manager
sdr_devtype			equ		sdr_device_id+2		;(2)SCSI Device type definition
sdr_standard_vers	equ		sdr_devtype+2		;(2)scsi standards version
sdr_flags			equ		sdr_standard_vers+2	;(2)scsi device access attributes
sdr_sublu			equ		sdr_flags+2			;(2)sub logical unit (reserved must be zero)
sdr_logunit			equ		sdr_sublu+2			;(2)Logical unit number
sdr_targ_priot		equ		sdr_logunit+2		;(2)Target device priority
sdr_init_priot		equ		sdr_targ_priot+2	;(2)Initiator priority this LU talks to
sdr_slot			equ		sdr_init_priot+2	;(2)card slot no. for this LU
sdr_5380_base		equ		sdr_slot+4			;(4)I/O base address for 5380
sdr_dma_base		equ		sdr_5380_base+4		;(4)I/O base address for 5380 DMA control
sdr_timeout			equ		sdr_dma_base+2		;(4)call timeout remaining (seconds)
sdr_completion_vect	equ		sdr_timeout+4		;(4)completion vector
sdr_cmd_ptr			equ		sdr_completion_vect\
							+4					;(4)position of next command byte to send
sdr_dc_offset		equ		sdr_cmd_ptr+4		;(4)Position of current data chain instruction
sdr_Buffer_ptr		equ		sdr_dc_offset+4		;(4)address of next data byte in buffer
sdr_byte_count		equ		sdr_buffer_ptr+4	;(4)intermediate byte count
context_hndl		equ		sdr_byte_count+4	;(4) Handle to RAM for context Switch
sdr_reserved		equ		context_hndl+4		;(2) room for expansion
end_sdr_record		equ		sdr_reserved+2

sdrrec_size			equ		end_sdr_record\
							-sdr_record			;size of scsi device record
;
;	SCSI DEVICE RECORD (SDR) attributes word bit definitions
;
;	bits 0-D reserved & must be zero
;
sdr_attrb_busy		equ		bit_15				;SDR busy marker bit
sdr_attrb_tout		equ		bit_14				;call timed out
sdr_attrb_disc		equ		bit_13				;disconnect flag
sdr_attrb_purge		equ		bit_12				;flag to mark purge on next timeout IRQ
sdr_attrb_rmb		equ		bit_7				;media removeable bit

					EJECT

;*******************************************************
;
;	SCSI device types as defined by the SCSI 2 standard
;
;*******************************************************
;
;	$00 =	Direct access device (magnetic disk)
;	$01 =	Sequential access device (magnetic tape)
;	$02 =	Printer device
;	$03 =	PROCessor device
;	$04 =	Write-once direct access device (some
;			optical disks)
;	$05 =	Read-only direct access device (optical
;			disks)
;	$06 =	Scanner device
;	$07 =	Optical Memory devices (optical disks)
;	$08 =	Changer device (jukeboxes)
;	$09 =	Communications device
;	$0A-$10 = RESERVED
;	$1E =	Target device ???  (SEE STANDARD)
;	$1F =	Unknown device type
;
diraccdev			equ		$0000
seqaccdev			equ		$0001
prnterdev			equ		$0002
PROCdev				equ		$0003
wrtoncedev			equ		$0004
readonlydev			equ		$0005
scannerdev			equ		$0006
optmemdev			equ		$0007
changerdev			equ		$0008
commdev				equ		$0009
apple_tape			equ		$0010
targetdev			equ		$001E
unknowndev			equ		$001F

					EJECT

;*******************************************************
;
;	SCSI Manager misc. equates
;
;*******************************************************
;
startup				equ		$0000				;scsi manager call numbers
shutdown			equ		$0001
request_devs		equ		$0002
claim_devs			equ		$0003
io_call				equ		$0005

scsi_manager_id		equ		$0002				;See SCSI supervisor driver ERS

bind_irq			equ		$2031				;class 1 bind interrupt call number
bind_pcount			equ		$0003				;bind irq parameter count
unbind_irq			equ		$2032				;class 1 unbind irq call number
unbind_pcount		equ		$0001				;unbind parameter count
add_notify_proc		equ		$2034				;class 1 Add Notify Proc call number
add_notify_pcount	equ		$0001				;Add Notify Proc parameter count
del_notify_proc		equ		$2035				;class 1 Del Notify Proc call number
del_notify_pcount	equ		$0001				;Del Notify Proc parameter count
gsos_busy			equ		$0007				;GS/OS busy error generated during Unbind irq

other_irq_vrn		equ		$0017				;IRQ other VRN
scsi_vrn			equ		other_irq_vrn		;our vrn for now will change in option 4
mtool_id_type		equ		$3B00				;supervisors driver id type from misc. tools
initpriority		equ		$0007				;SCSI priority for initiator

wait_phase_rcnt		equ		$0003				;high word of wait_phase retry count
qtrsec				equ		$000F				;15 ticks for 1/4 second
max_slots			equ		$0008				;maximum number of slots internal & external
max_scsi_devs		equ		$0008				;maximum scsi device on bus per slot
max_targets			equ		$0007				;maximum number of SCSI targets per slot
max_logunits		equ		$0008				;maximum number of SCSI Logical units

inqbsize			equ		$100				;2 buffers 256 bytes each
inqbstart			equ		$0002				;start of inquiry buffer data area
mem_page			equ		$0100				;256 bytes per memory page
sdrsperpage			equ		mem_page\
							/sdrrec_size		;number of sdrs per page
default_sdrs		equ		sdrsperpage*2		;minimum number of SDRs allocated
sdr_memory			equ		default_sdrs\
							*sdrrec_size		;amount of default SDR memory
max_sdrs			equ		max_slots\
							*max_targets\
							*max_logunits		;max SCSI Device records
min_mem_size		equ		iotsize\			;I/O table size
							+sdr_memory			;two memory pages for sdrs to start with
min_cmd_size		equ		$0006				;smallest scsi command 6 bytes
mid_cmd_size		equ		$000A				;middle scsi command 10 bytes
max_cmd_size		equ		$000C				;largest scsi command 12 bytes
dont_scan_dev		equ		$FFFF				;Do not scan any logicals
no_device			equ		$FFFF  				;marker for no scsi device found
lunotavail			equ		$007F				;byte 1 of inquiry (LU not available)
claimed				equ		bit_15				;bit 15 of sdr_id field marks device claimed
slot0				equ		$0000				;
slot7				equ		$0007				;
slot7ext			equ		$000F				;slot 7 external
;
scsid0				equ		$0000				;scsi device number 0
scsid1				equ		$0001				;scsi device number 1
scsid2				equ		$0002				;scsi device number 2
scsid3				equ		$0003				;scsi device number 3
scsid4				equ		$0004				;scsi device number 4
scsid5				equ		$0005				;scsi device number 5
scsid6				equ		$0006				;scsi device number 6
scsid7				equ		$0007				;scsi device number 7
;
scsi_prior0			equ		bit_0				;scsi device 0 priority
scsi_prior1			equ		bit_1				;scsi device 1 priority
scsi_prior2			equ		bit_2				;scsi device 2 priority
scsi_prior3			equ		bit_3				;scsi device 3 priority
scsi_prior4			equ		bit_4				;scsi device 4 priority
scsi_prior5			equ		bit_5				;scsi device 5 priority
scsi_prior6			equ		bit_6				;scsi device 6 priority
scsi_prior7			equ		bit_7				;scsi device 7 priority
;
lu0					equ		$0000				;logical unit numbers
lu1					equ		$0020				;in logical unit field
lu2					equ		$0040				;within the scsi command 
lu3					equ		$0060				;packet. (bits 5-7 of byte 0)
lu4					equ		$0080
lu5					equ		$00A0
lu6					equ		$00C0
lu7					equ		$00E0
												;
												; Memory attribute equates
												;
attrlock			equ		bit_15				;Block is locked down.
attrfixed			equ		bit_14				;Block can't move in mem
attrpurg1			equ		bit_8				;Purge level 1
attrpurg2			equ		bit_9				;Purge level 2
attrpurg3			equ		bit_8+bit_9			;Purge level 3
attrnocross			equ		bit_4				;May not cross banks
attrnospec			equ		bit_3				;don't use special mem
attrpage			equ		bit_2				;Page alligned
attraddr			equ		bit_1				;Remain at fixed address
attrbank			equ		bit_0				;Remain in fixed bank

sm_buffer_attrs		equ		attrlock++\			;Attributes of requested mem.
							attrfixed++\
							attrnocross++\
							attrnospec++\
							attrpage

zpg_attrbs			equ		attrlock++\			;scsi Manager zero page MM attributes
							attrfixed++\
							attrnocross++\
							attrpage++\
							attrbank

gsos_sys_death		equ		$01FC44				;GS/OS system death system service routine
slot_arbit			equ		$01FCBC				;GS/OS system service routine slot arbitrator
eunich_vect			equ		$01FCD8				;Use this wrong and be come a eunich.

incbusyflag			equ		$E10064				;Increment Busy flag ENTRY point
decbusyflag			equ		$E10068				;Decrement Busy flag ENTRY point
stack_ENTRY			equ		$E100B0				;GS/OS stack based call ENTRY point
system_busy_flag	equ		$E100FF				;System Busy Flag.
System_Type			equ		$E1018E				;³ 6 = 10 Speed

rom_message			equ		$0020				;message number for rev c rom required
rev_c_rom			equ		$0002				;version number for version C scsi rom

;*******************************************************
;
;	Data Chaining equates
;
;*******************************************************

dc_size				equ		$0010				;16 bytes per data chain instruction
;
dc_loop_inst		equ		$ffffffff			;-1 defines loop ocode
dc_stop_inst		equ		$00000000
												;
												; chain instructions field positions
												;
dc_opcode			equ		$0000				;long word field for the data chain opcode
dc_count			equ		$0004				;long word field for count field
dc_offset			equ		$0008				;long word field for offset
dc_sav_ptrs			equ		$000C				;long word field for save pointers field

;*******************************************************
;
;	SCSI Manager sequence number equates
;
;*******************************************************

oend				equ		$0000				;end of sequence marker
irq_hand			equ		$0000				;irq handler
phase_hand			equ		$0001				;phase handler
hwdchk				equ		$0002				;hardware type check
setup				equ		$0003				;setup routine
bfreeph				equ		$0004				;bus free
arbph				equ		$0005				;arbitrate
selectph			equ		$0006				;select
doutph				equ		$0007				;data out phase
dinph				equ		$0008				;data in phase
cmdph				equ		$0009				;command phase
statph				equ		$000A				;status phase
moutph				equ		$000D				;message out
minph				equ		$000E				;message in

;*******************************************************
;
;	Byte definitions of INQUIRY packet
;
;*******************************************************
;
;	inquiry packet field positions
;
inq_packet			equ		$0000
inq_devtype			equ		$0000				;scsi device type
inq_rmb				equ		$0001				;bit 7 = removeable bit
inq_version			equ		$0002				;standard supported version information
inq_attrbs			equ		$0007				;attribute bits for target (see standard)
;
;	Inquiry	packet bit definitions
;
scsidt_mask			equ		$007F				;mask for device type
scsi_rmb			equ		$0080				;removeable media bit
scsi_svers			equ		$0007				;scsi standard version number

					EJECT
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/SupervisoryDrivers/SCSI.Manager(1meg)/SCSIM.Header b/IIGS.601.SRC/GS.OS/SupervisoryDrivers/SCSI.Manager(1meg)/SCSIM.Header
new file mode 100644
index 0000000..ab71499
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/SupervisoryDrivers/SCSI.Manager(1meg)/SCSIM.Header
@@ -0,0 +1 @@
+
;*******************************************************
;
;	SCSI Driver Main Driver.
;
;	Written by:
;	
;					Gus Andrade
;
;	Modified for new card by:
;
;					Matt Gulick.
;					Started June 1,1989
;
;	Copyright Apple Computer, Inc. 1988,89
;	All rights reserved.
;
;*******************************************************

;*******************************************************
;
;	'SCSIM.Header'
;
;	This file contains all Structures required to be a
;	loadable Supervisory Driver.
;
;*******************************************************

					STRING		PASCAL
					BLANKS		OFF
					PAGESIZE	70
					PRINT		NOGEN
					PRINT		NOMDIR
					MACHINE		M65816

					IMPORT		scsi_man_exec
					IMPORT		scsim_startup
					IMPORT		scsim_shutdown
					IMPORT		scsim_reqdevs
					IMPORT		scsim_claimdevs
					IMPORT		scsim_io
					IMPORT		oaddr_tbl
					IMPORT		cocoon_tbl

;					ENTRY		

					EJECT

					INCLUDE		'SCSIM.Equates'
					INCLUDE		'Common.Equ.Src'
					INCLUDE		'HW.Equ.Src'

					PRINT		OFF

;					INCLUDE		'M16.MEMORY'
;					INCLUDE		'M16.UTIL'
;					INCLUDE		'M16.MISCTOOL'

					PRINT		ON
			
;*******************************************************
;
;	This dummy Procedure is used to inform the loader,
;	'Drivers start with data but are not data segments'.
;	The loader may load what it thinks to be a data
;	segment accross bank boundries.  This is not good
;	for code.
;
;*******************************************************

					;EXPORT	dummy
dummy				PROC
					ENDP
			
;*******************************************************
;
;	Header as required by the device dispatcher for
;	drivers.
;
;*******************************************************

					;EXPORT		scsi_man_header
scsi_man_header		PROC

					dc.l	scsi_man_exec		;Entry address to scsi Manager
					dc.w	SCSI_Manager_ID		;scsi manager := $0002
scsim_version		dc.w	$5040				;version 2.1 5.0.4
					dc.l	manager_name		;name string of manager

					EXPORT		scsim_chars
scsim_chars			dc.w	$8000				;restartable supervisory driver
					dc.w	$0000				;RESERVED

					EXPORT		snooper_ptr
snooper_ptr			dc.l	$00000000			;will hold the address of Managers zero page
manager_name		dc.b	'SCSI.MANAGER'		;SCSI Manager
pad					dcb.b	20,' '				;20 spaces of pad for max name 32 bytes
;
					ENDP

;*******************************************************
;
;	SCSI Manager command table
;
;*******************************************************
;
					EXPORT	cmd_table
cmd_table			PROC

					dc.w	scsim_startup
					dc.w	scsim_shutdown
					dc.w	scsim_reqdevs
					dc.w	scsim_claimdevs
					dc.w	scsim_io

					EXPORT	max_cmd:equ
max_cmd				equ		(*-cmd_table)/2

					ENDP

					EJECT

;*******************************************************
;
;	Address table for routines defined for each
;	interface type
;
;*******************************************************
;
					EXPORT	addr_tables
addr_tables			PROC
;
					dc.l	oaddr_tbl			;table for old scsi card
					dc.l	cocoon_tbl			;table for Cocoon card

;					dc.l	future_tbl
;					dc.l	vendor_spec0
;					dc.l	vendor_spec1
;					dc.l	vendor_spec2
;					dc.l	vendor_spec3
;					dc.l	vendor_spec4
;					dc.l	vendor_spec5
;					dc.l	vendor_spec6
;					dc.l	vendor_spec7
		
					EXPORT	num_dev_types:equ
num_dev_types		equ		(*-addr_tables)/4	;number of device types
;
					ENDP

					EJECT

					END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/SupervisoryDrivers/SCSI.Manager(1meg)/SCSIM.History b/IIGS.601.SRC/GS.OS/SupervisoryDrivers/SCSI.Manager(1meg)/SCSIM.History
new file mode 100644
index 0000000..cb1a25a
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/SupervisoryDrivers/SCSI.Manager(1meg)/SCSIM.History
@@ -0,0 +1 @@
+
;*******************************************************
;
;	'SCSIM.History'
;
;	Written by:
;	
;					Gus Andrade
;
;	Modified for new card by:
;
;					Matt Gulick.
;					Started June 1,1989
;
;	Copyright Apple Computer, Inc. 1988,89
;	All rights reserved.
;
;*******************************************************

					STRING		PASCAL
					BLANKS		OFF
					PAGESIZE	70
					PRINT		NOGEN
					PRINT		NOMDIR
					MACHINE		M65816

;					IMPORT		

;					ENTRY		

					PRINT		OFF

;					INCLUDE		'SCSIM.Equates'
;					INCLUDE		'Common.Equ.Src'
;					INCLUDE		'HW.Equ.Src'
;					INCLUDE		'M16.MEMORY'
;					INCLUDE		'M16.UTIL'
;					INCLUDE		'M16.MISCTOOL'

					PRINT		ON

					EJECT

;*******************************************************
;
;	'SCSIM.History'
;
;	This file contains the rev history for the SCSI
;	Manager.  All major Modifications, Design Changes
;	and Bug Fixes are described in the following text.
;
;	Copyright Apple Computer, Inc. 1988-1989
;	All rights reserved.
;
;*******************************************************
;
;	REVISION HISTORY:
;
;	System Bug Fix Manager	Creator	Description of bug fixed
;
;	Date:		Version:		
;
;	5-26-88		D0.01	GAA	Start SCSI Manager code development
;
;	12-1-88		0.01A	GAA	Alpha release of manager
;
;	12-12-88	0.02A	GAA
;						1.	Bug fix for crash on startup with
;							no cards present
;						2.	Added Autosensing support code
;						3.	Bus float check looks for bus free
;					   		to tell if card present.
;
;	12-30-88	0.03A	GAA
;						1.	Fixed a crash bug when autosense was
;							enabled and mode sense call failed.
;						2.	Fixed a bug where pdmaoff was droping
;							a byte between data chaining
;							instructions
;						3.	Added code to zero out some of the
;							internal parameters in the old SCSI
;							card to force to rebuild its SDATS
;							when launching a Prodos 8 application
;
;	01-07-89	0.04	GAA
;						1.	Fixed a bug where the memory I
;							allocated for myself was disposed of
;							when an error was encountered during
;							startup but the code segment was not
;							because I returned to the Supervisory
;							Dispatcher with carry cleared.  This
;							made the system crash in various ways.
;
;	01-15-89	0.05	GAA
;						1.	Added code to increment the BUSY flag
;							on ENTRY to the SCSI Manager and
;							decrement on exit to prevent access to
;							desk accessories during calls to the
;							SCSI Manager. Long delays in Desk Accs
;							can  lockup targets and the Manager.
;						2.	Phase Handler will no longer hang on a
;							call which has timed out.
;						3.	Modified the Logical unit scanner to
;							stop the scan for LUs on a scsi ID if
;							access to an LU fails. Will not
;							install the LU that failed and ones
;							that follow.
;						4.	Now issuing a Test Unit Ready prior to
;							Inquiry call to force target to clear
;							sense data generated by the the bus
;							reset to the bus during the scsi card
;							slot scan.
;
;	01-23-89	0.06	GAA
;						1.	Fixed infinite loop bug when there was
;							no jumper installed on the initiator
;							priority jumper on the OLD scsi card.
;
;	01-24-89	0.07	GAA
;						1.	Fixed a bug where the Manager was
;							dropping devices because the 5380 was
;							sending $00 instead of $80 during the
;							message out phase for the identify.
;							This appears to go out because the
;							target select register was set to the
;							initiator priority after we have won
;							arbitration and are trying select the
;							target.  Also the assert data bus bit
;							is set every time I come into phase
;							handler to make sure that the bus is
;							turned on.
;
;	01-27-89	0.08	GAA
;						1.	Fixed a bug where the phase bits were
;							being set before set before checking to
;							see if request was asserted.
;
;	01-30-89	0.09	GAA
;						1.	Bug fix: returned $FE00 for a call which
;							failed with a check condition ($02).
;							Should have returned $FE02.  This
;							occurred only when a call failed and no
;							autosense pointer was provided.
;
;	02-08-89	0.0A	GAA
;						1.	Fixed a bug where the last byte of each
;							DCMOVE data chain instruction was being
;							dropped when multiple data chaining
;							instructions were issued to the SCSI
;							Manager with one call.
;						2.	Fixed a bug where the data chaining prog.
;							counter was not being bumped to the next
;							instruction for DCMOVE instructions.
;						3.	Fixed a bug where the savepointers
;							routine was not setting the pointer
;							for the save field properly.
;						4.	Added code to add the contents of the
;							DCoffset field to the address field
;							in the DCMOVE instruction each time a
;							DCMOVE instruction is accessed.
;						5.	Moved the Select timeout back to 250
;							millisecs from from 350 millisecs.
;
;	02-15-89	0.0B	GAA
;						1.	Fixed a bug where the transfer count
;							update routine was not updating the
;							high word of the transfer count.
;						2.	Bug fix where the transfer count
;							field was not updated when data was
;							being written to a target.
;						3.	Bug fix: When two SCSI cards installed
;							with different initiator priorities
;							the entries in the I/O table for logical
;							unit encoding were shifted by one
;							logical unit.
;
;	03-06-89	0.0C	GAA
;						1.	Bug fix: was returning $FE00 when
;							autosensing was enabled for a call
;							and the autosense call succeeded on
;							a device specific $801B.
;						2.	Added the code to the SCSI Manager for
;							WarmStart and shutdown.
;						3.	Removed the check for REQ in the
;							Osend_bytes routine It was to there to
;							try and prevent the problem with the
;							transfer count being off by one on
;							writes to a target.  The fix did not
;							work!!!  Drivers must insure that the
;							number of bytes specified in the
;							req/xfer count field of the parameter
;							block  match the number of bytes
;							specified in the CDB.
;
;	03-17-89			1.	NO CHANGES
;
;	03-21-89	0.0D	GAA
;						1.	The initial release for beta.
;						2.	Changed the ID assignment to match
;							the format of the ID fields as
;							defined by the device dispatcher.
;							The ID field now is a 32 bit ENTRY
;							with the low word set to the slot
;							number and the next word an ID
;							incrementing from $0001 to $FFFF.
;						3.	Added the detection for the rev C
;							SCSI rom.  If the rom installed is
;							not a rev. C a message will be
;							displayed on the screen and that
;							card will be installed in the device
;							list (for the time being).
;
;	03-17-89			1.	NO CHANGES
;
;	04-03-89	0.0E	GAA
;						1.	Fixed a bug where the SDRSTOCHECK
;							counter was not being reloaded when
;							booting from a floppy when the call
;							to ASSIGNID subroutine call was made.
;
;						2.	Fixed a bug where index to the sdr
;							was pointing to the slot field instead
;							of the link field for the next SDR in
;							the list.  This caused the SDR to
;							contain erroneous ID information during
;							the ID assignment PROCess.
;
;						3.	Fixed a bug in the zap_oldcard routine
;							to mask off the external slot bit prior
;							using it to turn on the $CNXX space for
;							a card.
;
;	04-07-89	0.0F	GAA
;						1.	Added a vector to store the address of
;							my zero page so the Snooper CDA can
;							have access to my handles and access
;							to my tables for display purposes.
;
;						2.	Fixed a bug in the Find_sdr routine.
;							The last accessed pointers were not
;							being updated and this in turn was
;							forcing the scan through the entire
;							SDR table to find the requested device.
;
;						3.	Bug fix in irq handler where was
;							returning the wrong polarity on the
;							carry when an interrupt was serviced
;							for a SCSI card.
;
;						4.	Bug fix in irq handler where the
;							pointer to the record in the I/O
;							table was not pointing to the slot
;							field in the record when trying to
;							check to see if a slot had a scsi
;							card installed with a possible
;							interrupt which needed servicing.
;
;						5.	Fixed bug with auto sensing where
;							the slot number portion of the ID was
;							not being set prior to issuing a
;							Request sense call for autosense.
;
;	05-15-89	0.10	MSG
;						1.	Started to restructure the SCSI
;							Manager Source code from one file
;							into smaller funtional modules.
;							This will hopefully aid int the
;							modification of the manager to be
;							more flexable in either
;							communicating with non-Apple SCSI
;							Cards and also adding the Sandwich
;							card when it is available.
;
;	6-10-89		0.11	MSG
;						1.	Fixed bug in claim devices call.
;
;	7-10-89		1.01	MSG
;						1.	Merged Latest SCSI Manager from the
;							Finale GS/OS 5.0 Disk with the files
;							under development for the new card and
;							GS/OS 5.1
;
;	7-18-89		2.01	MSG
;						1.	Fixed Minor errors due to translation
;						2.	Updated the Routine Headers
;						3.	Trimed down code size, removed 'MOVE
;							BYTES' and modified the 'CLEAR MEMORY'
;							Routines.  The OS Move Info call is now
;							used, and the clear memory is done by
;							by the Move Info Call.
;
;	7-24-89		2.02	MSG
;						1.	Fixed error from translation (making
;							this version a working pre-cacoon
;							version), cleaned up the code and
;							comments.  Also updated the entry and
;							exit information for each routine.
;
;	7-24-89 through
;	8-24-89		2.03	MSG
;						1.	Fixed problem in Cocoon Read and Write
;							where I was hitting the 53c80 every time
;							I restarted after an interupt stopped DMA.
;							This was causing data to be lost.
;						2.	Took all the JSR to bit wiggle routines
;							and placed the code inline replacing the
;							JSRs.  This improved the polled I/O from
;							200+ milliseconds to 72+ per byte sent.
;						3.	No longer allowing interupts to stop DMA.
;							On large transfers DMA was getting
;							interrupted, for some unknown reason,
;							approx every $200 bytes of data.  This
;							slowed down the overall performance by a
;							significant amount.  IRQ's are still safe
;							however since an IRQ window is opened every
;							time a bank boundry is crossed.  This would
;							normally be every 65.5 milliseconds at 64k
;							data with a 1meg/sec transfer rate.
;
;	8-29-89		2.04	MSG
;						1.	At the time of shutdown, the Manager was
;							doing an unbind_irq OS Call.  This call was
;							failing do to the OS being busy.  Added cade
;							to place a vector at $e1103A.  The 4 bytes
;							at that location were imported, and a JML
;							was put in it's place.  This is called just
;							before the start app. is called.  The code
;							jumped to installs a Notify Proc to inform
;							the manager when a shutdown or os switch is
;							taking place. This then calls unbind_irq.
;							It's messy, but it works.
;
;	9-13-89		2.05	MSG
;						1.	Fixed a problem in the manager and DMA.  If
;							the IRQs were disabled on entry to the Manager,
;							DMA would hang when DMA was told to allow irqs.
;							The manager now tells sandwich to ignor irqs
;							if the I processor status bit was set on entry
;							to the manager.
;
;	10-3-89		2.06	MSG
;						1.	Added Pseudo DMA Mode for cocoon.
;						2.	Cleaned up the manager.  Fixed a bug where the
;							return count had a $FFFF in the high word.
;							Added a few minor speed improvments.
;
;	10-10-89	2.07	MSG
;						1.	Combined Common routines.
;						2.	Fixed Pseudo DMA.  It now actually works.
;						3.	Fixed some bugs in the messaging system.
;
;	10-27-89	2.08	MSG
;						1.	Fixed p8 launch bug where system would hang
;							forever.
;						2.	Fixed bug that cause infinite beeping loop on
;							shutdown and restart.
;						3.	Remainder of bugs seem to be due to un reliable
;							data through the unterminated cocoon card.
;
;	01-25-91	6.00	MSG
;						1.	Added ROM Writes to each Phase handler for Timing
;							and performance evaluations.
;						2.	Modified code to always do DMA to System Ram
;							regardless of the DMA Switch.  Most Directories
;							are read into Bank 0 and would benifit from DMA
;							even if the Expansion RAM could not support DMA.
;
;*******************************************************
;

history				PROC

					ENDP

					EJECT

					END
					
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/SupervisoryDrivers/SCSI.Manager(1meg)/SCSIM.IO.Calls b/IIGS.601.SRC/GS.OS/SupervisoryDrivers/SCSI.Manager(1meg)/SCSIM.IO.Calls
new file mode 100644
index 0000000..7616422
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/SupervisoryDrivers/SCSI.Manager(1meg)/SCSIM.IO.Calls
@@ -0,0 +1 @@
+
;*******************************************************
;
;
;	'SCSIM.IO.Calls'
;
;	Written by:
;	
;					Gus Andrade
;
;	Modified for new card by:
;
;					Matt Gulick.
;					Started June 1,1989
;
;	This file contains code to handle the IO Calls
;
;	Copyright Apple Computer, Inc. 1988,89
;	All rights reserved.
;
;*******************************************************

					STRING		PASCAL
					BLANKS		OFF
					PAGESIZE	70
					PRINT		NOGEN
					PRINT		NOMDIR
					MACHINE		M65816

					IMPORT		get_plist
					IMPORT		ioplchk
					IMPORT		setzpgvars
					IMPORT		find_sdr
					IMPORT		error_stat
					IMPORT		copy_plist
					IMPORT		setup_call_env
					IMPORT		set_iorec_ptr
					IMPORT		addr_tables
					IMPORT		callrtn
					IMPORT		getticks
					IMPORT		tick_count
					IMPORT		saveptrs
					IMPORT		busy_sdr_count
					IMPORT		asense_flag
					IMPORT		scsi_status
					IMPORT		senseid
					IMPORT		sense_slot
					IMPORT		sensebstruc
					IMPORT		sensecnt0
					IMPORT		sensecnt1
					IMPORT		sense_slot
					IMPORT		set_plist
					IMPORT		callcomp

;					ENTRY		

					PRINT		OFF

					INCLUDE		'SCSIM.Equates'
;					INCLUDE		'Common.Equ.Src'
;					INCLUDE		'HW.Equ.Src'
;					INCLUDE		'M16.MEMORY'
					INCLUDE		'M16.UTIL'
;					INCLUDE		'M16.MISCTOOL'

					PRINT		ON

					EJECT

;*******************************************************
;
;	'scsim_io'
;
;	This module handles all request for IO Data from the
;	device, regardless if it is a Data or Device
;	Transaction.
;
;	Called via 'JSR'
;
;	Inputs:		e,m,x		=	0 (full native)
;
;	Outputs:	e,m,x		=	0 (full native)
;				Acc			=	0
;				Carry		=	0
;				Y reg		=	Unspecified
;				X reg		=	Unspecified
;				D Page		=	GS/OS Direct Page
;				Bank		=	Ours
;
;	Errors:		See Spec.
;
;*******************************************************

					EXPORT	scsim_io
scsim_io			PROC
												;
												; get parameter list address and
												; validate the parameter list
												;
					jsr		get_plist

					stx		<plist_ptr
					sty		<plist_ptr+2

					jsr		ioplchk				;validate I/O call parameter list
					bcs		@l_exit_1
												;
												; setup working variables from
												; parameter list
												;
					ldx		<plist_ptr
					ldy		<plist_ptr+2
					jsr		setzpgvars			;setup zero page work pointers
												;
												; find SDR matching ID from parameter
												; list
												;
					jsr		find_sdr
					bcs		@l_exit_1

					sty		<sdr_ptr
					sta		<sdr_ptr+2

					sty		<active_sdr
					sta		<active_sdr+2
												;
												; check if SDR already busy
												;
					ldy		#sdr_flags
					lda		[sdr_ptr],y
					and		#sdr_attrb_busy
					beq		@10

					lda		#target_busy
					sta		|error_stat
					sec

@l_exit_1			lda		|error_stat			;get possible error code back
					rts
												;
												; copy parameters into SDR, mark
												; SDR busy
												;
@10					php							;no interruptions
					sei

					lda		[sdr_ptr],y
					ora		#sdr_attrb_busy
					sta		[sdr_ptr],y

					plp							;restore interrupt enable bit

					jsr		copy_plist
												;
												; setup work variables from SDR
												; and issue call to the target
												;
					jsr		setup_call_env

					ldy		<slot_no			;get the slot number
					jsr		set_iorec_ptr		;point to the I/O record for this SDR
												;
												; point to routines table for this
												; type of scsi card
												;
					ldy		#hwd_type
					lda		[iorec_ptr],y
					asl		a
					asl		a
					tay

					lda		|addr_tables,y
					sta		<addr_table_ptr

					lda		|addr_tables+2,y
					sta		<addr_table_ptr+2
												;
												; arbitrate for the SCSI bus and
												; then Select the target
												;
					lda		#arbph				;go arbitrate for control of scsi bus
					jsr		callrtn
					bcs		@l_exit

					lda		#selectph			;select the target device
					jsr		callrtn
					bcs		@l_exit
												;
												; do some hardware initialization
												;
					lda		#setup
					jsr		callrtn
												;
												; start the timeout heartbeat task
												;
					jsr		getticks			;get number of ticks to load into
					sta		|tick_count			;the task header
												;
												; do a save pointers prior to talking
												; to the target in case the first
												; communication from the target is a
												; restore pointers message
												;
					jsr		saveptrs
												;
												; bump the busy SDR count and then go
												; to the phase handler
												;
					inc		|busy_sdr_count

					lda		#phase_hand			;phase handler for old scsi card
					jsr		callrtn
					bcs		@l_exit
												;
												; check scsi status byte for success.
												; If failed see if autosense required
												;
					lda		|asense_flag		;see if returning from a autosense call
					beq		@75					;not autosense
												;
												; if autosense failed mark it failed
												; and quit
												;
					bcs		@l_exit

					lda		|scsi_status		;if status byte not zero then mark failed
					bne		@55

					lda		<error_stat
					beq		@l_exit

@55					sec
@l_exit				brl		exit
												;
												; call was not autosense. See if
												; autosense enabled and previous call
												; failed then issue a request sense
												; call to the same target.
												;
@75					lda		|scsi_status
					beq		statok
												;
												; The following code will be executed
												; only if the call failed and autosense
												; is enabled.  If autosense is enabled
												; then SCSIM_IO will be called again.
												;
					ldy		#plst_autos_ptr		;see if the auto sense pointer nonzero
					lda		[plist_ptr],y

					ldy		#plst_autos_ptr+2
					ora		[plist_ptr],y

					php							;Save the result of the .OR.
					lda		|scsi_status		;Get the Status in case the Pointer is Null
					plp							;Restore the .OR. Result for the branch condition

					beq		@100				;Branch if the AutoSense Pointer is Null.
												;
												; save the scsi status byte and
												; parameter list pointer for later
												; restore
												;
					pha							;save scsi status of previous call

					jsr		get_plist			;get call's parameter list pointer

					phy							;save old parameter list pointer
					phx
												;
												; setup the ID & buffer pointer for
												; the request sense call
												;
					lda		<dev_id				;device id to issue request sense for
					sta		|senseid

					lda		<slot_no			;slot number to issue call for
					sta		|sense_slot

					ldy		#plst_autos_ptr
					lda		[plist_ptr],y
					sta		|sensebstruc

					ldy		#plst_autos_ptr+2
					lda		[plist_ptr],y
					sta		|sensebstruc+2

					lda		#$0014				;20 bytes maximum requested
					sta		|sensecnt0			;byte count requested in scsi command packet

					sta		|sensecnt1			;byte count in data chaining instructions

					ldx		#sense_slot			;point to request sense parameter list
					ldy		#^sense_slot

					jsr		set_plist
												;
												; set autosense in progress flag and
												; clear SDR busy flag for mode sense
												; call
												;
					dec		|asense_flag		;mark autosense in progress

					ldy		#sdr_flags			;clear busy bit (*** change for
					lda		[sdr_ptr],y			;disconnect case ***)
					and		#sdr_attrb_busy\
							--$FFFF
					sta		[sdr_ptr],y

					jsr		scsim_io			;issue the autosense call
												;
												; restore parameter list pointer and
												; scsi status for previous call
												;
					plx							;restore parameter list pointer
					ply

					jsr		set_plist			;restore the parameter list pointer

					lda		|error_stat			;get status from request sense call
					cmp		#$0001				;check of request sense failed

					pla							;restore status from call prior
					bcc		@100				;to request sense

					ora		#$0080				;bit 7 marks request sense failed

@100				ora		#scsi_man_err		;include $FE00 (marks error)
					sta		|error_stat			;scsi status error overides other errors

					stz		|asense_flag		;reset the autosense flag
												;
												; call completion routine if vector
												; non-zero
												;
statok
exit				jsr		callcomp			;call completion routine if a pointer exists

					dec		|busy_sdr_count 	;command completed one less SDR
					bne		@100

					stz		|tick_count			;reset heartbeat counter no busy sdrs

@100				ldy		#sdr_flags			;clear busy bit (*** change for
					lda		[sdr_ptr],y			;disconnect case ***)
					and		#sdr_attrb_busy\
							--$FFFF
					sta		[sdr_ptr],y

errexit				lda		|error_stat			;get possible error code back

autosexit			rts							;>>>--- scsim_io --->>>

					ENDP
	
					EJECT

					END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/SupervisoryDrivers/SCSI.Manager(1meg)/SCSIM.Mgmnt b/IIGS.601.SRC/GS.OS/SupervisoryDrivers/SCSI.Manager(1meg)/SCSIM.Mgmnt
new file mode 100644
index 0000000..bb1f4ab
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/SupervisoryDrivers/SCSI.Manager(1meg)/SCSIM.Mgmnt
@@ -0,0 +1 @@
+
;*******************************************************
;
;	SCSI Manager 'Management' file.
;
;	Written by:
;	
;					Gus Andrade
;
;	Modified for new card by:
;
;					Matt Gulick.
;					Started June 1,1989
;
;	Copyright Apple Computer, Inc. 1988,90
;
;*******************************************************

;*******************************************************
;
;	This file contains those routines that are used for
;	the management of structures, Memory, Parameter
;	lists as well as support routines needed to make
;	the Manager do what it do so well.
;
;*******************************************************

;*******************************************************
;
;	Revision History:
;
;*******************************************************

;	June		1,		1989		Rev. 5.1 Started.

					STRING		PASCAL
					BLANKS		OFF
					PAGESIZE	70
					PRINT		NOGEN
					PRINT		NOMDIR
					MACHINE		M65816

					IMPORT		priot_to_dev
					IMPORT		more_dci
					IMPORT		getnxtdci
					IMPORT		new_phase
					IMPORT		scsi_status
					IMPORT		scsi_message
					IMPORT		msg_out_byte
					IMPORT		current_phase
					IMPORT		more_phases
					IMPORT		cleanup_sdr
					IMPORT		error_stat
					IMPORT		low_ptrs_init
					IMPORT		callrtn
					IMPORT		init_priority
					IMPORT		target_priority
					IMPORT		phase_hold
					IMPORT		our_zpg_hold
					IMPORT		cyareg_hold
					IMPORT		ident_modify
					IMPORT		work_vars_size
					IMPORT		user_id
					IMPORT		rom_01
					IMPORT		rom_03

					ENTRY		oscsi_irq_hand
					ENTRY		cocoon_irq_hand
					ENTRY		oscsi_phases
					ENTRY		cocoon_phases
					ENTRY		oscsi_hwd_check
					ENTRY		cocoon_hwd_check
					ENTRY		oscsi_setup
					ENTRY		cocoon_setup
					ENTRY		oscsi_bus_free
					ENTRY		cocoon_bus_free
					ENTRY		oscsi_arbitrate
					ENTRY		cocoon_arbitrate
					ENTRY		oscsi_select
					ENTRY		cocoon_select

					ENTRY		oscsi_data_out
					ENTRY		cocoon_data_out
					ENTRY		oscsi_data_in
					ENTRY		cocoon_data_in
					ENTRY		oscsi_cmd
					ENTRY		cocoon_cmd
					ENTRY		oscsi_status
					ENTRY		cocoon_status
					ENTRY		oscsi_bad
					ENTRY		cocoon_bad
					ENTRY		oscsi_msg_out
					ENTRY		cocoon_msg_out
					ENTRY		oscsi_msg_in
					ENTRY		cocoon_msg_in

					ENTRY		badmin
					ENTRY		badmout
					ENTRY		badmout
					ENTRY		msgin_tbl
					ENTRY		msgout_tbl
					ENTRY		singmout
					ENTRY		Save_PTR
					ENTRY		discon
					ENTRY		validate_msg

					ENTRY		set_old_scsi
					ENTRY		osend_bytes
					ENTRY		send_byte
					ENTRY		orecv_bytes
					ENTRY		cocoon_read
					ENTRY		cocoon_write
					ENTRY		orecv_byte
					ENTRY		callzpg
					ENTRY		ozeropgcode
					ENTRY		patch1
					ENTRY		ocopyzcode
					ENTRY		oinit_5380
					ENTRY		ozap_5380
					ENTRY		bus_reset
					ENTRY		chk_sel_tout
					ENTRY		sel_abort_wait
					ENTRY		bus_status

					ENTRY		DMA_req_count
					ENTRY		DMA_buffer_ptr
					ENTRY		DMA_dma_cnt
					ENTRY		DMA_dma_addr
					ENTRY		DMA_dma_bank
					ENTRY		DMA_direction
					ENTRY		DMA_do_bank_chk

					PRINT		OFF

					INCLUDE		'SCSIM.Equates'
					INCLUDE		'Common.Equ.Src'
					INCLUDE		'HW.Equ.Src'
					INCLUDE		'M16.MEMORY'
					INCLUDE		'M16.UTIL'
;					INCLUDE		'M16.MISCTOOL'

					PRINT		ON

					EJECT
			
;___Phasing_Tables___
;*******************************************************
;
;	'hdw_setup_tbls'
;
;	Old SCSI card Sequencer & routines table
;
;	Not Called
;
;	Inputs:		None
;
;	Outputs:	None
;
;	Errors:		None
;
;*******************************************************

					;EXPORT	hdw_setup_tbls
hdw_setup_tbls		PROC
												;
												; Old scsi card routines address
												; table
												;
					EXPORT	oaddr_tbl
oaddr_tbl			dc.w	oscsi_irq_hand
					dc.w	oscsi_phases
					dc.w	oscsi_hwd_check
					dc.w	oscsi_setup
					dc.w	oscsi_bus_free
					dc.w	oscsi_arbitrate
					dc.w	oscsi_select
												;
												; Phasing routines table
												;
oscsi_tbl_2			dc.w	oscsi_data_out		;NOTE: Must remain in this relative position
					dc.w	oscsi_data_in		; because phase bits used as index into
					dc.w	oscsi_cmd			; this table. Please see SCSI standard
					dc.w	oscsi_status		; and oscsi_phases
					dc.w	oscsi_bad			;reserved (invalid phase combination)
					dc.w	oscsi_bad			;reserved (invalid phase combination)
					dc.w	oscsi_msg_out
					dc.w	oscsi_msg_in

oscsi_offset		equ		oscsi_tbl_2\		;index to start of phase addr tbl
							-oaddr_tbl
												;
												; Cocoon routines address table
												;
					EXPORT	cocoon_tbl
cocoon_tbl			dc.w	cocoon_irq_hand
					dc.w	cocoon_phases
					dc.w	cocoon_hwd_check
					dc.w	cocoon_setup
					dc.w	cocoon_bus_free
					dc.w	cocoon_arbitrate
					dc.w	cocoon_select
												;
												; Cocoon routines address table
												;
cocoon_tbl2			dc.w	cocoon_data_out
					dc.w	cocoon_data_in
					dc.w	cocoon_cmd
					dc.w	cocoon_status
					dc.w	cocoon_bad
					dc.w	cocoon_bad
					dc.w	cocoon_msg_out
					dc.w	cocoon_msg_in

cocoon_offset		equ		cocoon_tbl2\		;index to start of phase addr tbl
							-cocoon_tbl

					IF		oscsi_offset	=	cocoon_offset	THEN

					EXPORT		phase_offset:EQU
phase_offset		equ		oscsi_offset		;index to start of phase addr tbl

					ELSE

					The two tables are not equal

					ENDIF

					ENDP

					EJECT

;_____Setup_Code_____
;*******************************************************
;
;	'oscsi_irq_hand'
;
;	Old scsi card interrupt handler. The old scsi card
;	does not support interrupts!!!
;
;	Inputs:		e,m,x		=	0 (full native)
;
;	Output:		e,m,x		=	0 (full native)
;				Carry		=	1 for error during call
;				Acc			=	ENTRY
;				dpage		=	ENTRY
;				B			=	ENTRY
;				X reg		=	ENTRY
;				Y reg		=	ENTRY
;		
;*******************************************************

					;EXPORT	oscsi_irq_hand
oscsi_irq_hand		PROC

					sec							;go back to GS/OS irq handler
					rts
		
					ENDP

					EJECT

;*******************************************************
;
;	'cocoon_irq_hand'
;
;	Inputs:		e,m,x		=	0 (full native)
;
;	Output:		e,m,x		=	0 (full native)
;				Carry		=	1 for error during call
;				Acc			=	ENTRY
;				dpage		=	ENTRY
;				B			=	ENTRY
;				X reg		=	ENTRY
;				Y reg		=	ENTRY
;		
;*******************************************************

					;EXPORT	cocoon_irq_hand
cocoon_irq_hand		PROC

					sec							;go back to GS/OS irq handler
					rts
		
					ENDP

					EJECT

;*******************************************************
;
;	'oscsi_phases'
;	'cocoon_phases'
;
;	This routine will wait for a target device to go
;	into its phasing and then will pass control to
;	different scsi phasing routines until a Message
;	Complete is received from the target device.
;
;	Inputs:		e,m,x		=	0 (full native)
;
;	Output:		e,m,x		=	0 (full native)
;				Carry		=	1 for error during call
;				Acc			=	ENTRY
;				dpage		=	ENTRY
;				B			=	ENTRY
;				X reg		=	ENTRY
;				Y reg		=	ENTRY
;		
;*******************************************************

					;EXPORT	oscsi_phases
oscsi_phases		PROC

					EXPORT	cocoon_phases
cocoon_phases

					dec		|more_phases		;initialize phase handler trigger
												;
												; check more_phases flag each loop
												; through the phase handler
												;
@100				lda		|more_phases		;we remain here until legitimate bus free
					beq		exit

					ldx		<io_offset			;point to specific i/o space

@200				lda		>curbusstat,x
					and		#bsy++sel			;look for unexpected bus free
					beq		errexit
												;
												; not bus free go check which phase
												;
@250				cmp		#bsy				;bsy and/or sel set check which
					bne		@100				;if sel* asserted  then check again
												;
												; toggle DMA mode to reset the phase
												; mismatch and allow REQ to come through
												;
					SHORTM						;m=1

					lda		>modereg,x
					pha							;****
					and		#dmaenable--\
							$FF
					sta		>modereg,x

;					ora		#dmaenable
					pla							;****
					sta		>modereg,x

					LONGM
												;
												; check for REQ to go asserted
												;
					lda		>curbusstat,x		;get target command register
					and		#req
					beq		@100
												;
												; vector to new phase
												;
					lda		>curbusstat,x
					lsr		a
					lsr		a
					and		#$0007				;keep phase bits
												;
												; match the phase bits in target
												; command register
												;
					SHORTM						;m=1

					sta		>targcmdreg,x                                                                                                                       	;match the phase bits

					LONGM						;m=0
												;
												; save the phase information for later
												; comparison when multiple data chain
												; instructions are called.
												;
					stz		|new_phase			;assume not a new phase

					cmp		|current_phase		;same phase as last time??
					beq		@125				;set new phase  flag if different

					sta		|current_phase		;save the phase value
					dec		|new_phase

@125				clc
					adc		#phase_offset/2		;offset into phasing routines in addr table		

					jsr		callrtn				;go to the phasing routines for this interface
					bra		@100				;go check for more phases
												;
												; if bus free when it should not have
												; been report an error
												;
errexit				lda		#bus_free_err
					sta		|error_stat

					stz		|more_phases

					sec
exit				jsr		ozap_5380			;clean up the 5380 registers

					rts

					ENDP

					EJECT

;*******************************************************
;
;	'oscsi_hwd_check'
;
;	This module checks to see if the SCSI Card in
;	question is in fact a SCSI Card.  If it is, then is
;	it a Rev. "C" or is it a "Cacoon" Card?
;
;	Inputs:		e,m,x		=	0 (full native)
;				Acc			=	undefined
;				X reg		=	undefined
;				Y reg		=	undefined
;				dpage		=	Ours
;				Stack		=	Ours
;				Speed		=	fast
;
;	Output:		e,m,x		=	0 (full native)
;				Carry		=	0 for successful call
;							=	1 for error during call
;				Acc			=	Error code or supervisor
;								driver number
;				dpage		=	Ours
;				Bank		=	Ours
;				X reg		=	undefined
;				Y reg		=	undefined
;		
;*******************************************************

					;EXPORT	oscsi_hwd_check
oscsi_hwd_check		PROC

					lda		<slot_no			;get the slot
					and		#slot7				;mask off internal external bit
					xba							;times 256
					clc							;point to end of rom image
					adc		#old_rom_size-2		;check if old scsi card rom image (REV B & REV C roms)
					tax

					ldy		#old_rom_size-2

@100				lda		>io_space+$00,x
					eor		|old_rom,y
					bne		@200				;not an old apple scsi card

					dex
					dex

					dey
					dey

					bpl		@100
												;
												; Check for REV C SCSI rom
												;
												; point to bank $00 of old scsi card
												; check location $C8XX for $02.  If
												; $02 then REV C otherwise check for
												; a 'Cacoon' Card.  If neither then
												; report error and do not install card
												; in the tables
												;
					SHORTM						;m=1

					php
					sei

					lda		>$00CFFF			;turn off I/O strobe  space all cards

					lda		<slot_no
					and		#slot7				;keep low 3 bits
					xba							;we want to access $CNXX space
					tax

					lda		>io_space,x			;to turn on I/O strobe space

					plp							;restore possible irq enable

					txa
					xba

					asl		a					;form DEV-SEL space address
					asl		a
					asl		a
					asl		a

					adc		#$80
					tax

					lda		#$00				;point to bank $00 of the SCSI rom
					sta		>io_space\
							+ocard_breg,x

					lda		>$00CFFC			;get the rom rev C flag
					cmp		#rev_C_rom

					LONGM						;m=0

 					beq		@150				;install the card for NOW!! G.A.
												;
												; This routine will report the requirement
												; for a REV C SCSI rom
												;
					lda		<slot_no			;get the slot number
					and		#slot7				;keep low 3 bits
					clc
					adc		#$0030				;convert to a ascii slot number
					sta		>slot_string+1		;include it in the message string

					PUSHWORD	#rom_message	;message number
					PUSHLONG	#slot_string	;rom message string address
					PUSHLONG	#null			;null substition string 0

					jsl		report_error		;call system service routine

@150				jsr		set_old_scsi		;it is an old scsi card go set the I/O record

					clc							;C=0 old scsi card
					rts							;go away

@200				sec							;C=1 NOT old scsi card or wrong rev rom
					rts
					
slot_string			dc.b	$01					;size of string
					dc.w	$0000

;*******************************************************
;
;	SCSI rom image
;
;	This module contains a partial image of the rev. B
;	and rev. C scsi roms. The segment of code is the
;	same in both roms and will be used to check the rom
;	code in the old SCSI card against the pattern. If a
;	match is found the scsi manager assumes that this
;	is a OLD version SCSI card. The code resides in the
;	I/O Select address space from $CN00 thru $CN57.
;
;*******************************************************

					longa	off
					longi	off

old_rom				ldx		#$20				;what comments????
					ldx		#$00
					ldx		#$03
					ldx		#$00
					lda		$CFFF
					cld
					php
					sei
					lda		#$60
					sta		|$07F8
					jsr		$07F8
					tsx
					lda		|$0100,x
					sta		|$07F8
					plp
					lda		|$CFFF
					lda		|$07F8
					sta		<$1A
					lda		#$00
					sta		<$19
					tay
					lda		($19),y
					ldy		#$0A
					lda		#$00
					sta		($19),y
					lda		#$55
					sta		|$C8E3
					lda		|$07F8
					and		#$0F
					clc
					adc		#$08
					asl		a
					asl		a
					asl		a
					asl		a
					sta		|$C81A
					tay
					ldx		#$00
					lda		#$05
					jsr		|$CFCC
					lda		#$01
					sta		|$C81D
					sta		|$C800
					dc.b	$20					;opcode for JSR (we want even byte count)

old_rom_size		equ		*-old_rom

					longa	on
					longi	on

					ENDP

					EJECT

;*******************************************************
;
;	'cocoon_hwd_check'
;
;	Inputs:		e,m,x		=	0 (full native)
;
;	Output:		e,m,x		=	0 (full native)
;				Carry		=	1 for error during call
;				Acc			=	ENTRY
;				dpage		=	ENTRY
;				B			=	ENTRY
;				X reg		=	ENTRY
;				Y reg		=	ENTRY
;		
;*******************************************************

					;EXPORT	cocoon_hwd_check
cocoon_hwd_check 	PROC
												;
												; Check for Cacoon SCSI rom
												;
												; Issue smartport status $01 call.
												;
					php
					sei

					ldx		#$0032-2
					txy
@is_loop_0			lda		@is_code,y
					sta		<zeropg_code,x
					dex
					dex
					txy
					bpl		@is_loop_0

					lda		<slot_no			;get the slot
					and		#slot7				;mask off internal external bit
					xba							;times 256
					tax
					lda		>io_space+$FE,x
					and		#$ff00
					xba
					clc
					adc		#$C003
					stx		@is_slot
					clc
					adc		@is_slot
					sta		<zeropg_code+\
							@is_call+1-\
							@is_code

					lda		|our_zpg_hold		;point to our zero page
					xba
					sta		@stuffit+2
@stuffit			jsl		>zeropg_code

					plp
					clc
					lda		@is_carry
					and		#$00ff
					beq		@is_over
@is_no_good			sec
					rts

@is_over			lda		|@is_stat1
					cmp		#$0024
					bne		@is_no_good

					lda		<slot_no			;save the slot number
					ldy		#slot				;point to slot field
					sta		[iorec_ptr],y		;slot number

					lda		#new_scsi_card
					ldy		#hwd_type			;save hardware version
					sta		[iorec_ptr],y

					lda		#new_card_attrbs	;new scsi card attributes
					ldy		#io_attrbs
					sta		[iorec_ptr],y

					lda		<slot_no			;get the slot number
					and		#slot7				;mask off internal/external bit
					asl		a					;times 16
					asl		a
					asl		a
					asl		a
					adc		#io_space+$0080		;dev-sel address $C0NX

					ldy		#scsi_base			;offset for base_address of scsi port in record
					sta		[iorec_ptr],y		;the base addr bank & dma address already zero
					sta		<io_offset			;the bank and DMA controller address := $0000
					stz		<io_offset+2

					tax

					SHORT						;m=1,x=1 to fix the F.O. Hardware.

					lda		>priority+$C000,x	;get the priority for this card
					lsr		a
					lsr		a
					lsr		a
					lsr		a
					lsr		a
					eor		#%00000111
					tax
					lda		@priority_tbl,x

					LONGMX

					and		#$00FF				;mask of read from $C0NB
					ldy		#initpriot			;set it as initiator priority
					sta		[iorec_ptr],y

					lda		#$0000				;clear other fields in I/O record

					ldy		#scsi_bank
					sta		[iorec_ptr],y		;clear bank field of scsi controller base addr

					ldy		#dma_base
					sta		[iorec_ptr],y		;clear DMA controller base addr & bank

					ldy		#dma_bank
					sta		[iorec_ptr],y

					ldy		#io_attrbs
					sta		[iorec_ptr],y

					ldy		#d0logicals			;clear logical unit fields for scsi devices

@100				sta		[iorec_ptr],y		;8 device fields 2 bytes each scsi device
					iny
					iny
					cpy		#max_scsi_devs\
							*2+d0logicals		;2 bytes per device field
					bcc		@100

					txa							;initiator priority
												;
												; convert to scsi device number
												;
					asl		a					;times 2 because I/O record dev fields = words
					clc
					adc		#d0logicals			;point to device fields  within i/o record
					tay

					lda		#dont_scan_dev		;do not scan initiator priority for logicals
					sta		[iorec_ptr],y

					inc		<numscsi_cards		;bump the scsi cards total

					clc
					rts							;>>>--- set_old_scsi --->>>
												;
												; Data Area for this munge.
												;
@priority_tbl		dc.b	bit_0
					dc.b	bit_1
					dc.b	bit_2
					dc.b	bit_3
					dc.b	bit_4
					dc.b	bit_5
					dc.b	bit_6
					dc.b	bit_7
												;
												; Code to call smart port from
												; bank 0
												;
@is_code			phd
					phb
					pea		$0000
					pld
					phk
					plb
					php
					tsc
					sta		>@stack
					sec
					xce
					php
					SHORT
@is_call			jsr		|$c000
					dc.b	$00+$40
					dc.l	@is_data
					bcs		@is_err
					lda		#$00
@is_err				sta		>@is_carry
					plp
					xce
					lda		>@stack
					tcs
					plp
					plb
					pld
					longa	on
					longi	on
					rtl

@is_data			dc.b	$03
					dc.b	$00
					dc.l	@is_stat1
					dc.b	$01

@is_slot			dc.w	$0000
@is_carry			dc.w	$0000
@stack				dc.w	$0000
@is_stat1			dcb.b	256,0

		
					ENDP

					EJECT

;*******************************************************
;
;	'oscsi_irq_hand'
;
;	This module will setup all the required variables
;	and pointers before performing a specified function
;	requested by the caller.  The routine performs the
;	following functions:
;		1.	Gets the parameter list pointer from the SIB
;		2.	Sets up a parameter list pointer
;		3.	Sets up all the zero page pointers to access
;			all the buffers
;		4.	Loads the index of the next routine in the
;			table to run
;
;	'cocoon_setup'
;
;	There is no setup for the Cocoon Card.  It is done
;	in the data I/O Sections.
;
;	Inputs:		e,m,x		=	0 (full native)
;				Acc			=	undefined
;				X reg		=	undefined
;				Y reg		=	undefined
;				dpage		=	undefined
;				Bank		=	undefined
;				Stack		=	undefined
;				Speed		=	undefined
;
;	Output:		e,m,x		=	0 (full native)
;				Acc			=	ENTRY
;				X reg		=	ENTRY
;				Y reg		=	ENTRY
;				Carry		=	0 for no error.
;				dpage		=	ENTRY
;				Bank		=	ENTRY
;				Speed		=	ENTRY
;		
;*******************************************************

					;EXPORT	oscsi_setup
oscsi_setup			PROC

					jsr		oinit_5380			;initialize old scsi card registers

					EXPORT	cocoon_setup
cocoon_setup

					jsr		ocopyzcode			;download high speed routines into zpg.

					clc							;mark success
					rts
		
					ENDP

					EJECT

;*******************************************************
;
;	'oscsi_irq_hand'
;
;	Old scsi card Bus Free support
;
;	Inputs:		e,m,x		=	0 (full native)
;
;	Output:		e,m,x		=	0 (full native)
;				Carry		=	1 for error during call
;				Acc			=	ENTRY
;				dpage		=	ENTRY
;				B			=	ENTRY
;				X reg		=	ENTRY
;				Y reg		=	ENTRY
;		
;*******************************************************

					;EXPORT	oscsi_bus_free
oscsi_bus_free		PROC

					sec
					rts
		
					ENDP

					EJECT

;*******************************************************
;
;	'cocoon_bus_free'
;
;	Inputs:		e,m,x		=	0 (full native)
;
;	Output:		e,m,x		=	0 (full native)
;				Carry		=	1 for error during call
;				Acc			=	ENTRY
;				dpage		=	ENTRY
;				B			=	ENTRY
;				X reg		=	ENTRY
;				Y reg		=	ENTRY
;		
;*******************************************************

					;EXPORT	cocoon_bus_free
cocoon_bus_free		PROC

					sec							;go back to GS/OS irq handler
					rts
		
					ENDP

					EJECT

;*******************************************************
;
;	'oscsi_arbitrate'
;	'cocoon_arbitrate'
;
;	This module will arbitrate for the SCSI bus.  The
;	contents of the accumulator contain the ID of the
;	Initiator.  This routine will wait until the
;	arbitration succeds.
;
;	Inputs:		e,m,x			=	0 (full native)
;				initiator_id	=	SCSI ID of device wanting bus
;				io_offset		=	Register offset (slot*$10+$80)
;				Acc				=	undefined
;				X reg			=	undefined
;				Y reg			=	undefined
;				dpage			=	Ours
;				Stack			=	GS/OS
;				Bank			=	Ours
;				Speed			=	undefined
;
;	Output:		e,m,x			=	0 (full native)
;				X reg			=	undefined
;				Y reg			=	undefined
;				Carry			=	0 if successful arbitration
;									1 if arbitration failed
;				Error_stat		=	arbitration phase error ($FE15)
;				Acc				=	$FE15 if an error else = 0
;				dpage			=	ENTRY
;				Bank			=	ENTRY
;				Speed			=	ENTRY
;		
;*******************************************************

					;EXPORT	oscsi_arbitrate
oscsi_arbitrate		PROC
					EXPORT	cocoon_arbitrate
cocoon_arbitrate

					phd							;save direct register

					lda		<io_offset			;i/o register offset
					tcd
												;
												; start the arbitration timeout heartbeat
												; task
												;
					lda		#arbtcount			;arbitrate timeout count (approx. 2 secs)
					sta		|arbtick_count

					SHORTM						;m=1

					lda		|init_priority		;get priority of our initiator
					stz		<initcmdreg			;****
					stz		<targcmdreg			;clear the phase bits
					sta		<outdatareg			;write Initiator ID
												;
												; check the arbitration timeout count
												; field for zero
												;
@10					lda		|arbtick_count
					ora		|arbtick_count+1
					beq		arbitrate_tout		;if nonzero check again later

					stz		<modereg			;reset arbitrate bit

					lda		#arbitrate			;then set arbitrate bit
					sta		<modereg

					bit		<initcmdreg			;wait for bus free
					bvc		@10

					nop							;wait 2.2+ usec
					nop
					nop
					nop
					nop

					lda		#arbitlost			;check for loss of arbitration
					and		<initcmdreg
					bne		@10

					lda		<currdata			;otherwise reset arbitrate bit &
					eor		|init_priority		;check for higher priority on bus
					beq		@30					;nobody else wants the bus

					cmp		|init_priority		;otherwise try again
					bcs		@10

@30					lda		#arbitlost			;check for arbitrate loss
					and		<initcmdreg			;if not lost we win
					bne		@10					;otherwise go try again

;					lda		#select++\
;							atn					;assert select with attention
;					ora		<initcmdreg			;include other bits of register
;					and		#<%10011111			;mask off test & differential
;					sta		<initcmdreg			;write out modified register

					lda		#select				;assert select
					ora		<initcmdreg			;include other bits of register
					and		#<%10011111			;mask off test & differential
					sta		<initcmdreg			;write out modified register

					clc							;mark success

arbit_exit			LONGM						;m=0

					pld							;restore direct register

					stz		|arbtick_count		;clear the timeout count
					rts
												;
												; arbitration timeout
												;
arbitrate_tout		LONGM						;m=0

					lda		#arbit_phase_err
					sta		|error_stat

					sec
					pld							;restore direct register

					stz		|arbtick_count		;clear the timeout count
					rts
												;
												; Arbitration timeout heartbeat service
												; routine
												;
					EXPORT	arbtout_header

arbtout_header		dc.l	$00000000			;room for link pointer
arbtick_count		dc.w	$0000				;tick count before irq
					dc.w	$A55A				;manual is wrong A55A signature correct
												;
												; count field in the header is the flag
												; for timout
												;
												;the count field in heartbeat task header
												;= $0000 marks timeout.
					rtl

					ENDP

					EJECT

;*******************************************************
;
;	'oscsi_select'
;	'cocoon_select'
;
;	This routine will select a particular SCSI target
;	device.  The routine assumes that the routine
;	Arbitration_phase has been called previously and
;	succeeded in gaining control of the SCSI bus.
;
;	Inputs:		e,m,x			=	0 (full native)
;				initiator_id	=	scsi device who has scsi bus
;				target_id		=	scsi ID of target we want
;				Acc				=	undefined
;				X reg			=	undefined
;				Y reg			=	undefined
;				dpage			=	undefined
;				Bank			=	Ours
;				Stack			=	GS/OS
;				Speed			=	undefined
;
;	Output:		e,m,x			=	0 (full native)
;				Acc				=	undefined
;				X reg			=	ENTRY
;				Y reg			=	ENTRY
;				Carry			=	0 for no error.
;									1 for error during call
;				dpage			=	ENTRY
;				Bank			=	ENTRY
;				Speed			=	ENTRY
;		
;*******************************************************

					;EXPORT	oscsi_select
oscsi_select		PROC
					EXPORT	cocoon_select
cocoon_select

					phd							;save direct register
					lda		<io_offset			;get slot offset for 5380 registers
					tcd

					SHORTM						;m=1

					stz		<selectereg			;clear the reselect ID register

					lda		|init_priority		;post our ID and targets ID on bus
					ora		|target_priority
					sta		<outdatareg

					lda		#identify_msg		;we want to send an identify message
					sta		|msg_out_byte

					lda		#<databuson			;assert our ID & target ID on bus
					ora		<initcmdreg			;include other bits of register
					and		#<%10011111			;mask off test & differential
					sta		<initcmdreg			;write out modified register

					lda		#<arbitrate			;reset arbitrate bit
					trb		<modereg

					lda		#busy--\			;reset BSY*
							%10011111
					and		<initcmdreg			;include other bits in register
					sta		<initcmdreg			;write out new initiator cmd. reg.

					jsr		chk_sel_tout		;wait for target to assert BSY*
					bcc		remove_sel			;bus select success or fail

select_fail			jsr		sel_abort_wait		;wait select abort time & check BSY*

remove_sel			lda		#<select--\			;on success or fail clear SEL* line
							%10011111
					and		<initcmdreg			;include other bits in register
					sta		<initcmdreg			;write out new initiator cmd. reg.

					bcc		select_ok			;go away if all ok

					lda		#atn--\				;remove atn & turn off bus on select fail
							%10011111
					and		<initcmdreg			;include other bits in register
					sta		<initcmdreg			;write out new initiator cmd. reg.

					lda		#databuson--\
							%10011111
					and		<initcmdreg			;include other bits in register
					sta		<initcmdreg			;write out new initiator cmd. reg.

					LONGM						;m=0

					lda		#sel_phase_err		;mark select phase error
					sta		|error_stat			;and let SCSI bus go free

					pld							;restore direct register

					sec							;mark an error
					rts


					longa	off					;Put Asm in SHORT Mode for the next
												;2 lines

select_ok			lda		#databuson--\		;turn off the data bus
							%10011111
					and		<initcmdreg			;include other bits in register
					sta		<initcmdreg			;write out new initiator cmd. reg.

					LONGM						;m=0

					pld							;restore direct register
					stz		|error_stat			;mark select ok

					clc							;mark success
					rts

					ENDP

					EJECT
			
;____Phasing_Code____
;*******************************************************
;
;	'oscsi_data_out'
;	'cocoon_data_out'
;
;	This routine will use DMA and the cocoon card to
;	send data to the target.
;
;	Inputs:		e,m,x			=	0 (full native)
;				scsicptr		=	Pointer to CDB  (LONG)
;				Acc				=	undefined
;				X reg			=	undefined
;				Y reg			=	undefined
;				dpage			=	undefined
;				Bank			=	Ours
;				Stack			=	GS/OS
;				Speed			=	undefined
;
;	Output:		e,m,x			=	ENTRY
;				Acc				=	undefined
;				X reg			=	undefined
;				Y reg			=	undefined
;				Carry			=	0 for no error.
;									1 for error during call
;				dpage			=	ENTRY
;				Bank			=	ENTRY
;				Stack			=	ENTRY
;				Speed			=	ENTRY
;		
;*******************************************************

					;EXPORT	oscsi_data_out
oscsi_data_out		PROC

					pea		$0000				;Flag to call old card.
					bra		data_out
;					bra		chk_DMA				;**** Experimental ****

					EXPORT	cocoon_data_out
cocoon_data_out

					pea		$8000				;Flag to call Cocoon card.
												;
												;**** Experimental ****
												; v v v v v v v v v v v
												;
;chk_DMA				sta		>$ff0410
;					lda		>dmactl,x
;					and		#dma_enabled
;					bne		@real_dma
												;
												; Set thresholds for System RAM Only.
												;
;					lda		#$0002
;					ldy		#$0010
;					bra		@set_size
												;
												; Set full DMA Range.
												;
;@real_dma			lda		#$0042
;					ldy		#$0050
												;
												; Save Sizes for 'getnxtdci' Call.
												;
;@set_size			sta		|rom_01
;					sty		|rom_03
												;
												; ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^
												;**** Experimental ****
												;
data_out			lda		|more_dci			;check for more DCI instructions
					beq		exit

					jsr		getnxtdci			;next data chain instruction (buffer & count returned)
					bcs		exit				;no more DCI instructions

					lda		1,s
;					bmi		@cocoon
					bmi		@cocoon1

					jsr		osend_bytes			;go write bytes
					bra		@over

;@cocoon				clv							;Try to use real DMA
@cocoon1			jsr		cocoon_write		;go receive from cocoon using DMA
												;
												; update the transfer count
												;
@over				clc

					ldy		#plst_reqxfr_cnt
					lda		<xfer_count			;update the transfered byte count
					adc		[plist_ptr],y
					sta		[plist_ptr],y

					ldy		#plst_reqxfr_cnt+2
					lda		<xfer_count+2
					adc		[plist_ptr],y
					sta		[plist_ptr],y
												;
												; check for a phase mismatch
												;
					jsr		bus_status			;get the status of the scsi bus
					and		#$0800				;check for phase match
					beq		exit				;go away if phase changed

					stz		|new_phase			;phase has not changed
					bra		data_out			;go receive next groupt of bytes

exit				pla							;Yank our flag
					sta		>$ff0412
					rts

					ENDP
		
					EJECT

;*******************************************************
;
;	'oscsi_data_in'
;	'cocoon_data_in'
;
;	This routine will use DMA and the cocoon card to
;	receive data from the target.
;
;	Inputs:		e,m,x			=	0 (full native)
;				scsicptr		=	Pointer to CDB  (LONG)
;				Acc				=	undefined
;				X reg			=	undefined
;				Y reg			=	undefined
;				dpage			=	undefined
;				Bank			=	Ours
;				Stack			=	GS/OS
;				Speed			=	undefined
;
;	Output:		e,m,x			=	ENTRY
;				Acc				=	undefined
;				X reg			=	undefined
;				Y reg			=	undefined
;				Carry			=	0 for no error.
;									1 for error during call
;				dpage			=	ENTRY
;				Bank			=	ENTRY
;				Stack			=	ENTRY
;				Speed			=	ENTRY
;		
;*******************************************************

					;EXPORT	oscsi_data_in
oscsi_data_in		PROC

					pea		$0000				;Flag to call old card.
					bra		data_in
;					bra		chk_DMA				;**** Experimental ****

					EXPORT	cocoon_data_in
cocoon_data_in

					pea		$8000				;Flag to call Cocoon card.
												;
												;**** Experimental ****
												; v v v v v v v v v v v
												;
;chk_DMA				sta		>$ff0420
;					lda		>dmactl,x
;					and		#dma_enabled
;					bne		@real_dma
												;
												; Set thresholds for System RAM Only.
												;
;					lda		#$0002
;					ldy		#$0010
;					bra		@set_size
												;
												; Set full DMA Range.
												;
;@real_dma			lda		#$0042
;					ldy		#$0050
												;
												; Save Sizes for 'getnxtdci' Call.
												;
;@set_size			sta		|rom_01
;					sty		|rom_03
												;
												; ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^
												;**** Experimental ****
												;
data_in				lda		|more_dci			;check for more DCI instructions
					beq		exit

					jsr		getnxtdci			;next data chain instruction (buffer & count returned)
					bcs		exit				;no more DCI instructions

					lda		1,s
;					bmi		@cocoon
					bmi		@cocoon1

					jsr		orecv_bytes			;go receive from the old card
					bra		@over

;@cocoon				clv							;Try to use real DMA
@cocoon1			jsr		cocoon_read			;go receive from cocoon using DMA
												;
												; update the transfer count
												;
@over				clc

					ldy		#plst_reqxfr_cnt
					lda		<xfer_count			;update the transfered byte count
					adc		[plist_ptr],y
					sta		[plist_ptr],y

					ldy		#plst_reqxfr_cnt+2
					lda		<xfer_count+2
					adc		[plist_ptr],y
					sta		[plist_ptr],y
												;
												; check for a phase mismatch
												;
					jsr		bus_status			;get the status of the scsi bus
					and		#$0800				;check for phase match
					beq		exit				;go away if phase changed

					stz		|new_phase			;phase has not changed
					bra		data_in				;go receive next groupt of bytes

exit				pla							;Yank our flag
					sta		>$ff0422
					rts

					ENDP
		
					EJECT

					;EXPORT	oscsi_cmd
oscsi_cmd			PROC
*******************************************************************
*		This routine will send a scsi command to a
*               previously selected device.  The command pointer
*               address must be provided in cmd_ptr.
*
*               Note: This call assumes that the target device
*               has been selected and has the BSY*, C/D* and REQ*
*               lines asserted (target waiting for command from
*               initiator.
*
*                ENTRY: e,m,x=0
*			(cmd_ptr:long word) = address of scsi command
*			(cmd_size:long word) = number of bytes in command
*
*                Exit:  e,m,x=0
*
*****************************************************************

					sta		>$ff0430

					SHORTM

					lda		#attention--\		;Remove Attention
							%10011111
					and		>initcmdreg,x		;include other bits in register
					sta		>initcmdreg,x		;write out new initiator cmd. reg.
												;
												; Stuff Logical Unit Number in
												; Command Packet.
												;
					ldy		#null+1				;Second Byte
					lda		<logunit			;Get the logical unit
					asl		a					;0000 0xxx
					asl		a					;0000 xxx0
					asl		a					;000x xx00
					asl		a					;00xx x000
					asl		a					;0xxx 0000
					asl		a					;xxx0 0000
					ora		[scsicptr],y
					sta		[scsicptr],y

					LONGM

					lda		#max_cmd_size		;assume command is 12 bytes
					sta		<byte_ctr			;if not max, phase change pulls us out
					stz		<byte_ctr+2			;clear high word of byte count

					lda		<scsicptr			;setup pointer for send bytes
					sta		<buffer_ptr

					lda		<scsicptr+2
					sta		<buffer_ptr+2

					jsr		osend_bytes			;send the command on the scsi bus

					sta		>$ff0432

					rts

					ENDP		

					EJECT

;*******************************************************
;
;	'cocoon_cmd'
;
;	This routine will send out the command bytes via
;	polled I/O to the Cocoon Card.  This may change to
;	pDMA in the future, but there is currently a
;	problem with that.
;
;	Inputs:		e,m,x			=	0 (full native)
;				scsicptr		=	Pointer to CDB  (LONG)
;				Acc				=	undefined
;				X reg			=	io_offset
;				Y reg			=	undefined
;				dpage			=	undefined
;				Bank			=	Ours
;				Stack			=	GS/OS
;				Speed			=	undefined
;
;	Output:		e,m,x			=	0 (full native)
;				Acc				=	undefined
;				X reg			=	ENTRY
;				Y reg			=	undefined
;				Carry			=	0 for no error.
;									1 for error during call
;				dpage			=	ENTRY
;				Bank			=	ENTRY
;				Stack			=	ENTRY
;				Speed			=	ENTRY
;		
;*******************************************************

					;EXPORT	cocoon_cmd
cocoon_cmd			PROC

					sta		>$ff0430

					SHORTM
												;
												; Stuff Logical Unit Number in
												; Command Packet.
												;
					ldy		#null+1				;Second Byte
					lda		<logunit			;Get the logical unit
					asl		a					;0000 0xxx
					asl		a					;0000 xxx0
					asl		a					;000x xx00
					asl		a					;00xx x000
					asl		a					;0xxx 0000
					asl		a					;xxx0 0000
					ora		[scsicptr],y
					sta		[scsicptr],y

					ldy		#null-1				;start with the first byte
@loop				iny
					lda		[scsicptr],y		;Get Command Byte

					jsr		send_byte			;send the byte on the scsi bus

					bcc		@loop

					LONGM

					sty		<xfer_count
					stz		<xfer_count+2

					sta		>$ff0432

					rts

					ENDP
		
					EJECT

;*******************************************************
;
;	'oscsi_status'
;	'cocoon_status'
;
;	This routine will handle the reading of the status
;	byte from the SCSI bus.  The I/O of the byte is made
;	in programmed I/O mode.
;
;	Inputs:		e,m,x			=	0 (full native)
;				target_id		=	scsi ID of target we want
;				Acc				=	undefined
;				X reg			=	undefined
;				Y reg			=	undefined
;				dpage			=	undefined
;				Bank			=	Ours
;				Stack			=	GS/OS
;				Speed			=	undefined
;
;	Output:		e,m,x			=	0 (full native)
;				Acc				=	undefined
;				X reg			=	target_id
;				Y reg			=	ENTRY
;				Carry			=	0 for no error.
;				dpage			=	ENTRY
;				Bank			=	ENTRY
;				Stack			=	ENTRY
;				Speed			=	ENTRY
;		
;*******************************************************

					;EXPORT	oscsi_status
oscsi_status		PROC
					EXPORT	cocoon_status
cocoon_status

					sta		>$ff0440

					jsr		orecv_byte

					sta		|scsi_status		;save the scsi call status byte

					clc							;will always succeed

					sta		>$ff0442

					rts							;>>>--- oscsi_status --->>>

					ENDP
		
					EJECT

;*******************************************************
;
;	'oscsi_bad'
;	'cocoon_bad'
;
;	This routine will set the error code inv_phase_err
;	in error_stat, sets the carry bit and exits.
;
;	Inputs:		e				=	0 (full native)
;				m,x				=	undefined
;				Acc				=	undefined
;				X reg			=	undefined
;				Y reg			=	undefined
;				dpage			=	undefined
;				Bank			=	Ours
;				Stack			=	GS/OS
;				Speed			=	undefined
;
;	Output:		e				=	ENTRY
;				m,x				=	ENTRY
;				error_stat		=	inv_phase_err
;				Acc				=	inv_phase_err
;				X reg			=	ENTRY
;				Y reg			=	ENTRY
;				Carry			=	1 for an error.
;				dpage			=	ENTRY
;				Bank			=	ENTRY
;				Stack			=	ENTRY
;				Speed			=	ENTRY
;		
;*******************************************************

					;EXPORT	oscsi_bad
oscsi_bad			PROC
					EXPORT	cocoon_bad
cocoon_bad

					sta		>$ff0450

					php
					LONGM						;m=0

					lda		#inv_phase_err		;mark phase bits error
					sta		|error_stat

					plp							;m=?

					sec

					sta		>$ff0452

					rts

					ENDP

					EJECT

;*******************************************************
;
;	'oscsi_msg_out'
;	'cocoon_msg_out'
;
;	This routine will send the value located in
;	'msg_out_byte to the target.
;
;	Inputs:		e,m,x			=	0 (full native)
;				msg_out_byte	=	SCSI Message Byte to Send
;				io_offset		=	Register offset (slot*$10+$80)
;				Acc				=	undefined
;				X reg			=	undefined
;				Y reg			=	undefined
;				dpage			=	Ours
;				Bank			=	Ours
;				Stack			=	GS/OS
;				Speed			=	undefined
;
;	Output:		e,m,x			=	0 (full native)
;				Acc				=	undefined
;				X reg			=	undefined
;				Y reg			=	undefined
;				Carry			=	0 for no error.
;									1 for error during call
;				dpage			=	ENTRY
;				Bank			=	ENTRY
;				Speed			=	ENTRY
;		
;*******************************************************

					;EXPORT	oscsi_msg_out
oscsi_msg_out		PROC
					EXPORT	cocoon_msg_out
cocoon_msg_out
					sta		>$ff0460
					jsr		@do_it
					sta		>$ff0462
					rts

@do_it				lda		|msg_out_byte		;check if trying to send identify msg
					jsr		|validate_msg		;range check the message
					bcs		@badmout			;invalid message number

					lda		|msg_out_byte		;valid check for identify
					cmp		#identify_msg
					bge		moident

					asl		a					;address table index = msg*4
					asl		a
					tax
					jsr		(msgout_tbl,x)		;call message service routine

					rts
												;
												; Bad Message Out
												;
@badmout			lda		#bad_msg_err		;report a bad message error
					sta		|error_stat
					sec
					rts
												;
												; IDENTIFY message out
												;
moident				ora		<logunit			;include the logical unit
					ora		|ident_modify		;Include any other flags.
					bra		singmout
												;
												; Send Message Byte
												;
sndmbyte			lda		|msg_out_byte
												;
												; single byte message out routine
												;
					EXPORT		singmout
singmout			SHORTM						;m=1,x=0

					ldx		<io_offset			;point to proper io location

					xba							;save the message byte
					lda		>modereg,x			;use programmed I/O mode
					pha							;save mode register

					and		#%11111101
					sta		>modereg,x

					lda		#attention--\		;Remove Attention
							%10011111
					and		>initcmdreg,x		;include other bits in register
					sta		>initcmdreg,x		;write out new initiator cmd. reg.

					xba
					sta     >currdata,x   		;write out the byte

					lda		#databuson			;assert the data bus
					ora		>initcmdreg,x
					sta		>initcmdreg,x

					lda		#asrtack			;assert ACK*
					ora		>initcmdreg,x		;initiator command register
					sta		>initcmdreg,x		;write modified register

@req_loop			lda		#<req				;wait for REQ* to go false
					and		>curbusstat,x		;get current scsi bus status
					bne		@req_loop			;and wait until REQ* is false

					lda		>initcmdreg,x		;get initiator cmd register
					and		#%10011111--\		;mask off tst mode,diff. mode
							asrtack				;and strip ACK*
					sta		>initcmdreg,x		;write out modified register

    				lda		#databuson--\		;turn off the data bus
							%11111111
					and		>initcmdreg,x
					sta		>initcmdreg,x

					pla							;restore mode register
					sta		>modereg,x

					LONGM

					rts

					ENDP

					EJECT

;*******************************************************
;
;	'oscsi_msg_in'
;	'cocoon_msg_in'
;
;	This routine will handle the reading of the message
;	byte(s) from the SCSI bus.  The I/O of the byte is
;	made in programmed I/O mode.
;
;	Inputs:		e,m,x			=	0 (full native)
;				io_offset		=	Register offset (slot*$10+$80)
;				Acc				=	undefined
;				X reg			=	undefined
;				Y reg			=	undefined
;				dpage			=	undefined
;				Bank			=	Ours
;				Stack			=	GS/OS
;				Speed			=	undefined
;
;	Output:		e,m,x			=	0 (full native)
;				scsi_message	=	call message byte
;				Acc				=	undefined
;				X reg			=	target_id
;				Y reg			=	ENTRY
;				Carry			=	0 for no error.
;				dpage			=	ENTRY
;				Bank			=	ENTRY
;				Stack			=	ENTRY
;				Speed			=	ENTRY
;		
;*******************************************************

					;EXPORT	oscsi_msg_in
oscsi_msg_in		PROC

					EXPORT	cocoon_msg_in
cocoon_msg_in
					sta		>$ff0470
					jsr		@do_it
					sta		>$ff0472
					rts

@do_it				ldx		<io_offset			;point to DEV-SEL space for specific slot

					SHORTM

					lda		<modereg,x
					and		#dmaenable
					beq		@non_dma_mode

					lda		<modereg,x
					and		#dmaenable--\
							$ff
					sta		<modereg,x
					sec

@non_dma_mode
					lda		>currdata,x			;read a msg byte (may be extended msg)
					bcc		@long

					pha
					lda		<modereg,x
					ora		#dmaenable
					sta		<modereg,x
					pla

@long				LONGM

					and		#$00FF				;low byte
					sta		|scsi_message		;save it

					jsr		validate_msg		;go see if valid (range check it)
					bcc		msginok
												;
												; message is invalid REJECT it (bad
												; message in)
												;
					EXPORT		badmin
badmin				lda		#rEJECT_msg			;rEJECT message
					sta		|msg_out_byte		;for data out phase

					ldx		<io_offset			;point to DEV-SEL space for specific slot

					SHORTM

					sta		>outdatareg,x		;write reject message byte.

					lda		#asrtack			;assert ACK*
					ora		>initcmdreg,x		;initiator command register
					and		#<%10011111			;mask off test mode & differential
					sta		>initcmdreg,x		;write modified register

					lda		#attention			;force target to msg_out phase
					ora		>initcmdreg,x		;include other bits of register
					and		#<%10011111			;mask off test & differential
					sta		>initcmdreg,x		;write out modified register

@req_loop			lda		#<req				;wait for REQ* to go false
					and		>curbusstat,x		;get current scsi bus status
					bne		@req_loop			;and wait until REQ* is false

					lda		>initcmdreg,x		;get initiator cmd register
					and		#%10011111--\		;mask off tst mode,diff. mode
							asrtack				;and strip ACK*
					sta		>initcmdreg,x		;write out modified register

					LONGM

					rts							;go away (next phase should be MSG out phase)
												;
												; message byte was within range
												; use msg # as index and call message
												; service routine
												;
msginok				SHORTM

					lda		#asrtack			;assert ACK*
					ora		>initcmdreg,x		;initiator command register
					and		#<%10011111			;mask off test mode & differential
					sta		>initcmdreg,x		;write modified register

@req_loop			lda		#<req				;wait for REQ* to go false
					and		>curbusstat,x		;get current scsi bus status
					bne		@req_loop			;and wait until REQ* is false

					lda		>initcmdreg,x		;get initiator cmd register
					and		#%10011111--\		;mask off tst mode,diff. mode
							asrtack				;and strip ACK*
					sta		>initcmdreg,x		;write out modified register

					LONGM

					lda		|scsi_message
					cmp		#identify_msg
					blt		@100
												;
												; identify message from target convert
												; to restore pointers
												;
					lda		#rest_data_ptr
					sta		|scsi_message
												;
												; form table index and call message
												; service routine
												;
@100				asl		a					;index into table := msg # * 4
					asl		a
					tax
					jsr		(|msgin_tbl,x)		;call service routine

					rts

					ENDP
		
					EJECT

;___Message_Center___
;*******************************************************
;
;	'msgin_tbl'
;	'msgout_tbl'
;
;	Address table for message service routines each
;	ENTRY has following format
;
;		Table ENTRY
;		Message		msg_in_address	 msg_out_address
;					+---------------+---------------+
;			N		|	L	|	H	|	L	|	H	|
;					+---------------+---------------+
;
;*******************************************************
;
					;EXPORT		msgin_tbl
msgin_tbl			PROC

					dc.w	cmd_compmsg			;old scsi command complete msg in
					EXPORT		msgout_tbl
msgout_tbl			dc.w	badmout				;handler for cmd complete msg out
					dc.w	badmin,badmout		;extended message
					dc.w	Save_PTR,badmout	;save data pointers
					dc.w	badmin,badmout		;restore data pointers
					dc.w	discon,badmout		;disconnect (old card can not!)
					dc.w	badmin,badmout		;initiator detected error
					dc.w	badmin,abortmout	;abort message
					dc.w	rEJECTmi,rEJECTmo	;rEJECT message
					dc.w	badmin,badmout		;nop
					dc.w	badmin,badmout		;message parity error
					dc.w	badmin,badmout		;linked command complete
					dc.w	badmin,badmout		;linked command complete with flag
					dc.w	badmin,badmout		;autosense data follows

;*******************************************************
;
;		MESSAGE Handlers
;
;*******************************************************

												;
												; command complete message
												;
												;
cmd_compmsg			lda		#$FFFF				;reset current phase value
					sta		|current_phase
					stz		|more_phases
					rts
												;
												; REJECT message in
												;
rEJECTmi			lda		|msg_out_byte		;see if we sent an identify message
					xba							;check for bit 7 set
					bmi		@100				;ignore the identify
												;
												; message in state machine  goes here
												;
@100				rts
												;
												; REJECT message out
												;
rEJECTmo			lda		#rEJECT_msg			;send a reject message to the target
					jsr		singmout			;send the message byte
					rts
												;
												; ABORT message out
												;
abortmout			lda		#abort_msg			;send an abort message to the target
					jsr		singmout			;send the message byte
					stz		|more_phases		;clean up and quit
					jsr		cleanup_sdr
					rts
												;
												; bad message handler (message out phase)
												;
					EXPORT	badmout
badmout				jsr		abortmout
					lda		#bad_msg_err		;report a bad message error
					sta		|error_stat
					sec
					rts

					ENDP

					EJECT

;*******************************************************
;
;	'Save_PTR'
;
;	This module will the 'Save Pointer' message from the
;	target.  The methode of operation is as follows:
;
;	Check to see if RAM has already been allocated.  If
;	so then skip to Lock handle.
;
;	Request a section of movable RAM for our context
;	switch.  If not available, then we will reject the
;	message.
;
;	Place handle in the SDR.
;
;	Lock the handle for now.
;
;	Copy the environs to the memory.
;
;	Unlock the handle.
;
;	
;
;	ENTRY:		JSR
;
;	Inputs:		e,m,x			=	0 (full native)
;				Acc				=	undefined
;				X reg			=	undefined
;				Y reg			=	undefined
;				Bank			=	Ours
;				dpage			=	Ours
;				Stack			=	undefined
;				Speed			=	fast
;
;	Output:		e,m,x			=	ENTRY
;				X reg			=	undefined
;				Y reg			=	undefined
;				Acc				=	undefined
;				Carry			=	undefined
;				dpage			=	ENTRY
;				Bank			=	ENTRY
;				Stack			=	ENTRY
;				Speed			=	ENTRY
;
;	Errors:		None.
;
;*******************************************************
;
					EXPORT	Save_PTR
Save_PTR			PROC
												;
												; Make sure that the Phase handler
												; continues untill the disconnect
												; or until the bus goes free.
												;
					lda		#$FFFF				;reset current phase value
					sta		|current_phase
					sta		|more_phases
												;
												; Reject the message for now.
												;
					jmp		badmin
												;
												; Do we need any RAM?
												;
					ldy		#context_hndl
					lda		[active_sdr],y
					tax

					ldy		#context_hndl+2
					ora		[active_sdr],y

					beq		@get_handle			;Yes we do.  Let's get it.

					lda		[active_sdr],y
					tay
					bra		@lock_down
												;
												; No.  Then let's get some RAM
												;
												; Allocate our work space
@get_handle										;
					PUSHLONG	#null			;room for handle
					PUSHLONG	#work_vars_size	;our work area size
					PUSHWORD	|user_id		;our user ID
					PUSHWORD	#attrnocross++\	;Attributes of requested mem.
								attrnospec++\
								attrpage
					PUSHLONG	#null			;location pointer (will be ignored)
					_newhandle					;allocate our memory area
					ply							;assume all ok
					plx
					bcc		@Stuff_n_SDR
												;
												; No.  Reject the message.
												;
					jmp		badmin
												;
												; Place handle in SDR
												;
@Stuff_n_SDR		txa							;A'=X
					tyx							;X'=Y
					ldy		#context_hndl
					sta		[active_sdr],y
					phx							;Stack=X'=Y
					tax							;X=A'=X
					pla							;A'=Stack=Y
					ldy		#context_hndl+2
					sta		[active_sdr],y
					tay							;Y=A'=Y
												;
												; We have the Handle, now lock it.
												;
@lock_down			stx		<temp1
					sty		<temp1+2
					ldy		#$0004
					lda		[temp1],y
					ora		#%1000000000000000	;Cheap Lock Down
					sta		[temp1],y
												;
												; Handle is locked.  Deref it.
												;
@deref_it			ldy		#$0002
					lda		[temp1]
					tax
					lda		[temp1],y
					tay
												;
												; Memory is Locked and Derefed.  Now
												; we need to do the context switch.
												; IRQs will be locked out.
												;
@clear_it
					
					rts

					ENDP
	
					EJECT

;*******************************************************
;
;	'discon'
;
;	This module will the 'DISSCONNECT' message from the
;	target.  The method of operation is as follows:
;
;	Request a section of movable RAM for our context
;	switch.  If not available, then we will reject the
;	message.
;
;	Place handle in the SDR.
;
;	Lock the handle for now.
;
;	
;
;	ENTRY:		JSR
;
;	Inputs:		e,m,x			=	0 (full native)
;				Acc				=	message byte to validate
;				X reg			=	undefined
;				Y reg			=	undefined
;				Bank			=	Ours
;				dpage			=	Ours
;				Stack			=	undefined
;				Speed			=	fast
;
;	Output:		e,m,x			=	ENTRY
;				X reg			=	undefined
;				Y reg			=	undefined
;				Acc				=	message #
;				Carry			=	0 for valid message
;									1 for bad message
;				dpage			=	ENTRY
;				Bank			=	ENTRY
;				Stack			=	ENTRY
;				Speed			=	ENTRY
;
;	Errors:		
;
;*******************************************************
;
					EXPORT	discon
discon				PROC
												;
												; Reject the message for now.
												;
					jmp		badmin

					and		#$00FF				;low byte only
					cmp		#identify_msg		;check for identify message type
					bge		@msg_ok

					cmp		#sdata_follows		;check if greater than msg $0C (i.e. $0D sense data follows)
					blt		@rts

					sec
					rts

@msg_ok				clc
@rts				rts

					ENDP
	
					EJECT

;*******************************************************
;
;	'validate_msg'
;
;	This module will validate the message to be sent to
;	the target or received from the target.
;
;	ENTRY:		JSR
;
;	Inputs:		e,m,x			=	0 (full native)
;				Acc				=	message byte to validate
;				X reg			=	undefined
;				Y reg			=	undefined
;				Bank			=	Ours
;				dpage			=	Ours
;				Stack			=	undefined
;				Speed			=	fast
;
;	Output:		e,m,x			=	ENTRY
;				X reg			=	undefined
;				Y reg			=	undefined
;				Acc				=	message #
;				Carry			=	0 for valid message
;									1 for bad message
;				dpage			=	ENTRY
;				Bank			=	ENTRY
;				Stack			=	ENTRY
;				Speed			=	ENTRY
;
;	Errors:		
;
;*******************************************************
;
					EXPORT	validate_msg
validate_msg		PROC

					and		#$00FF				;low byte only
					cmp		#identify_msg		;check for identify message type
					bge		@msg_ok

;-------------------------------------------------------------------------------------

					IF		Disc_ReSel	=	false	then

					cmp		#save_dat_ptr		;check if < save Data Pointer MSG
					blt		@rts				;yes.

					cmp		#init_err_detect	;Check if > Disconnect MSG
					blt		@sec				;No.  Force the rejection.

					ENDIF

;-------------------------------------------------------------------------------------

					cmp		#sdata_follows		;check if greater than msg $0C (i.e. $0D sense data follows)
					blt		@rts

@sec				sec
					rts

@msg_ok				clc
@rts				rts

					ENDP
	
					EJECT

;____IO_Code_Segs____
;*******************************************************
;
;	'orecv_bytes'
;	'osend_bytes'
;
;	This routine will setup the low level byte transfer
;	routine to receive data from a target into an
;	intiatiator or to send data from the initiator to a
;	target.  It copies a short code stub into zero
;	page to adjust the byte transfer direction.
;	It also calls low_ptrs_init to setup the byte
;	counters and pointer addresses
;
;	Inputs:		e,m,x			=	0 (full native)
;				scsicptr		=	Pointer to CDB  (LONG)
;				Acc				=	undefined
;				X reg			=	undefined
;				Y reg			=	undefined
;				dpage			=	undefined
;				Bank			=	Ours
;				Stack			=	GS/OS
;				Speed			=	undefined
;
;	Output:		e,m,x			=	ENTRY
;				Acc				=	undefined
;				X reg			=	undefined
;				Y reg			=	undefined
;				Carry			=	0 for no error.
;									1 for error during call
;				dpage			=	ENTRY
;				Bank			=	ENTRY
;				Stack			=	ENTRY
;				Speed			=	ENTRY
;		
;*******************************************************

					;EXPORT	orecv_bytes
orecv_bytes			PROC
												;
												; download the receive byte stub
												; into zero page
												;
					lda		|new_phase			;check of new or same phase as last time
					beq		nextbuf

					lda		|rcvstub			;small piece of code to zero page
					sta		<patch1-ozeropgcode\
							+zeropg_code

					lda		|rcvstub+2
					sta		<patch1-ozeropgcode\
							+zeropg_code+2

					lda		|rcvstub+3
					sta		<patch1-ozeropgcode\
							+zeropg_code+3
												;
												; initialize the 5380 controller
												;
					jsr		oinit_5380			;enable pseudo-DMA mode (old scsi card)

					SHORTM

					sta		>idmarecv,x			;enable pseudo dma receive mode

					LONGM
												;
												; save the requested byte count
												;
nextbuf				lda		<byte_ctr
					sta		<req_count

					lda		<byte_ctr+2
					sta		<req_count+2

					jsr		low_ptrs_init		;adjust byte count and pointer

					phb							;save current data bank, it will be changed
					jsl		callzpg				;call routine in zero page
												;
												; save the transfered byte count
												;
@100				php							;save carry bit

					clc
					tya
					adc		<req_count
					sta		<xfer_count

					lda		<byte_ctr+2
					adc		<req_count+2
					sta		<xfer_count+2

					plp							;restore carry bit

					plb							;restore data bank

					rts

rcvstub				lda		|opdmadatareg,x		;recv code stub
					sta		[buffer_ptr],y

					ENDP

					EJECT

					;EXPORT	osend_bytes
osend_bytes			PROC

					lda		|new_phase			;check new phase flag for phase change
					beq		nextbuf				;dont reinit if same phase as last time

					lda		|sndstub			;small piece of code to zero page
					sta		<patch1-ozeropgcode\
							+zeropg_code

					lda		|sndstub+2
					sta		<patch1-ozeropgcode\
							+zeropg_code+2

					lda		|sndstub+3
					sta		<patch1-ozeropgcode\
							+zeropg_code+3

					jsr		oinit_5380			;enable pseudo-DMA mode
												;
												; turn on the scsi data bus and kick
												; start the DMA PROCess
												;
					SHORTM

					lda		#$01
					sta		>initcmdreg,x
					sta		>dmasndreg,x		;enable pseudo dma send mode

					LONGM
												;
												; save the requested byte count
												;
nextbuf				lda		<byte_ctr
					sta		<req_count

					lda		<byte_ctr+2
					sta		<req_count+2

					jsr		low_ptrs_init		;2's complement byte count & pointer

					phb							;save current data bank, it will be changed
					jsl		callzpg				;call routine in zero page
												;
												; save the transfered byte count
												;
@100				php							;save carry bit

					clc
					tya
					adc		<req_count
					sta		<xfer_count

					lda		<byte_ctr+2
					adc		<req_count+2
					sta		<xfer_count+2

					plp							;restore carry bit
												;
												; check for more data chaining
												; instructions
												;
					plb

					rts

sndstub				lda		[buffer_ptr],y		;send code stub
					sta		|opdmadatareg,x
		
					ENDP

					EJECT

;*******************************************************
;
;	'cocoon_read'
;
;	This routine will setup the sandwich chip for DMA,
;	kick it and then monitor it for IRQs, or Bank
;	rollovers, as well as any timeouts.
;
;	ENTRY:		JSR
;
;	Inputs:		e,m,x			=	0 (full native)
;				scsicptr		=	Pointer to CDB  (LONG)
;				Overflow		=	0 for DMA.
;									1 for Pseudo DMA
;				Acc				=	undefined
;				X reg			=	undefined
;				Y reg			=	undefined
;				dpage			=	undefined
;				Bank			=	Ours
;				Stack			=	GS/OS
;				Speed			=	undefined
;
;	Output:		e,m,x			=	ENTRY
;				Acc				=	undefined
;				X reg			=	undefined
;				Y reg			=	undefined
;				Carry			=	0 for no error.
;									1 for error during call
;				dpage			=	ENTRY
;				Bank			=	ENTRY
;				Stack			=	ENTRY
;				Speed			=	ENTRY
;
;	Errors:		None.
;
;*******************************************************

					;EXPORT	cocoon_read
cocoon_read			PROC

					lda		#$0000
					bra		dma_it

					EXPORT	cocoon_write
cocoon_write

					lda		#$0080				;For short mode
												;
												; Set the direction flag
												;
dma_it				sta		DMA_direction
												;
												; Check for real or pseudo DMA Mode.
												; We will load address in 16 bit
												; mode.  This will put bit 6 of the
												; register in bit 6 of the Acc
												;
												;
												;**** Experimental ****
												; v v v v v v v v v v v
												;
					bvs		@do_pseudo
					lda		>dmactl,x
					and		#dma_enabled
					bne		@real_dma
@do_pseudo			brl		@pseudo_stuff
;					bvc		@real_dma
;					brl		@pseudo_stuff
												;
												; ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^
												;**** Experimental ****
												;
												;
												; Clear the transfer count
												;
@real_dma			stz		<xfer_count
					stz		<xfer_count+2
												;
												; Init bank rollover flag.  Must
												; validate the first bank rollover
												; that this call receives from sandwich.
												;
					dec		DMA_do_bank_chk
												;
												; Get the I/O Offset
												;
					ldx		<io_offset
												;
												; save the requested byte count
												;
					lda		<byte_ctr
					sta		<req_count
					sta		DMA_req_count

					lda		<byte_ctr+2
					sta		<req_count+2
					sta		DMA_req_count+2
												;
												; Set Buffer Pointer
												;
					lda		<buffer_ptr+2
					sta		DMA_buffer_ptr+2
					lda		<buffer_ptr
					sta		DMA_buffer_ptr

;*******************************************************
;
;	Special processing.
;
;	There is a problem with the way that bank rollover
;	is handled in the sandwich chip.  If the previous
;	call ended at $xx/FFFF then the call would have
;	terminated normaly without reporting a bank
;	rollover.  But, because it did reach the end of a
;	bank, it will report a rollover for the next byte
;	transfered regardless to that bytes address and
;	regardless to that bytes relationship to the data
;	written at $xx/FFFF.
;
;	To fix the problem we will check the address
;	pointer in sandwich when we get a rollover.  If it
;	is not = 0 then we will ignor it.  If it is zero,
;	we will then increment the bank.  For this to work,
;	in any situation, we must insure that the starting
;	buffer pointer is not = 0.
;
;*******************************************************
												;
												; Check if low words of both the count
												; and buffer are = 0.
												;
												; 'Acc' Low buff pointer loaded above.
												;
					ora		DMA_req_count
					bne		@dma_loop			;No.  Process normally
												
												;
												; Setup to read first $8000 and leave
												; $8000 for next pass of the loop.
												; Make sure that the high word is 'dec'
												; by 1.
												;
					lda		#$8000
					sta		DMA_dma_cnt			;For this request
					sta		DMA_req_count		;For next time.
					bra		@bank_sub			;subtract 1 from high word of count
												;
												; Set Byte Counter to the low word
												; of the requested byte count
												;
@dma_loop			lda		DMA_req_count
					sta		DMA_dma_cnt			;Save for later
					php							;Is it 0?

					stz		DMA_req_count		;Update the remainding Byte Count

					plp							;Is dma count = 0
					beq		@bank_sub			;Yes.  Treat as a 17 bit value

					sec							;put the carry back
					bra		@finish_sub

@bank_sub			clc

@finish_sub			lda		DMA_req_count+2
					sbc		#$0000
					sta		DMA_req_count+2

@bump_ptrs			clc							;Update the next buffer address
					lda		DMA_buffer_ptr
					sta		DMA_dma_addr
					adc		DMA_dma_cnt
					sta		DMA_buffer_ptr

					php							;Save Carry from the Add.

					cmp		DMA_dma_addr

					bne		@over_carry			;Not $xxxxx + $10000

					plp
					sec							;Treat as $xxxxx + $10000
					php

@over_carry			plp							;Restore Carry from Add (or Pseudo Carry)
					lda		DMA_buffer_ptr+2
					sta		DMA_dma_bank
					adc		#$0000
					sta		DMA_buffer_ptr+2
												;
												; DANGER DANGER DANGER DANGER DANGER
												; This line may cause problems.  Test
												; fully.  Added 12-03-91 by MSG.
												; DANGER DANGER DANGER DANGER DANGER
												;
					dec		DMA_do_bank_chk		;Set flag.  We have changed the Bank.
												;
												; DANGER DANGER DANGER DANGER DANGER
												;
												; Setup DMA Count, Buffer, and Bank
												;
					sec
					lda		#$0000
					sbc		DMA_dma_cnt			;Convert to two's compliment.
					sta		>dmacntl,x

					lda		DMA_dma_addr
					sta		>dmaaddrl,x

					SHORTM						;m=1

					lda		DMA_dma_bank
					sta		>dma_bank_reg
												;
												; initialize the 5380 controller
												;
@time_out			lda		#null
					sta		>dmactl,x			;Turn DMA off

					lda		#fire_watch_bit		;fire watchdog timer
					ora		>fire_watch,x		;in the control register
					and		#%10011111			;mask off unused bits
					sta		>fire_watch,x		;fire watchdog timer

					eor		#fire_watch_bit
					sta		>fire_watch,x		;clear watchdog timer

					eor		#fire_watch_bit
					sta		>fire_watch,x		;fire watchdog timer

					lda		>modereg,x			;Get the mode register
					and		#dmaenable--\		;mask off dma
							$FF
					sta		>modereg,x

					lda		#dmaenable			;Now turn on DMA
					ora		>modereg,x
					and		#$7F				;mask off block mode dma
					sta		>modereg,x
												;
												; Were IRQs Disabled?
												;
					php
					pla							;we are in 8 bit mode.

					and		#%00000100			;I Bit
					bne		@disable			;SEI was done.

					lda		#real_dma++\		;Enable DMA on the Sandwich
							irq_enable			;Enable IRQ
					bra		@start_dma

@disable			lda		#real_dma++\		;Enable DMA on the Sandwich
							dis_stop_dma		;Disable IRQ

@start_dma			sta		>dmactl,x

					php
					sei

					lda		>cyareg				;read current setting
					sta		cyareg_hold			;save it
					and		#<%01111111			;b7 = 0 slow down
					sta		>cyareg				;write modified register

					lda		DMA_direction
					bmi		@dma_send

					sta		>idmarecv,x			;enable DMA Initiator receive
					bra		@dma_done

@dma_send			sta		>dmasndreg,x		;enable DMA send register

@dma_done			lda		cyareg_hold			;Restore the CYA Register
					sta		>cyareg

					plp							;Allow IRQs to steal Processor
												;
												; check to see why DMA stopped 
												;
					lda		>busstat,x			;check for a phase mismatch
					bmi		@end_dma_B			;if end of dma then quit, else restart

					and		#phasematch
					beq		@end_call_B			;keep going until count expires or
												;phase change
					lda		>dmactl,x			;What does sandwich have to say about
												;this.
					tay
					and		#addr_roll
					bne		@next_bank			;Bank Rollover.

					lda		>currdata,x
					lda		>initcmdreg,x
					lda		>modereg,x
					lda		>curbusstat,x
					lda		>busstat,x
					lda		>resetirqreg,x

					tya
					and		#watch_dog
					bne		@restart_B			;IRQ Stoped us.  Restart
												;
												; Reset the Watchdog Timer
												;
					lda		>dmactl,x
					pha							;Save current Value

					lda		#null
					sta		>dmactl,x			;Turn only Sandwich DMA off

					lda		#fire_watch_bit		;fire watchdog timer
					ora		>fire_watch,x		;in the control register
					and		#%10011111			;mask off unused bits
					sta		>fire_watch,x		;fire watchdog timer

					eor		#fire_watch_bit
					sta		>fire_watch,x		;clear watchdog timer

					eor		#fire_watch_bit
					sta		>fire_watch,x		;fire watchdog timer

					pla
					and		#irq_enable++\		;Not setting these bits, only
							dis_stop_dma++\		;making sure that of the bits that
							real_dma++\			;were set and can be written are.
							pseudo_dma			;All others are masked out.
;					sta		>dmactl,x

;					bra		@restart

					pha							;Save Control Register Value

					lda		DMA_direction		;The following code is for writes only.
					bpl		@brl_start_dma

					lda		>targcmdreg,x		;Was the byte in the 53c80 sent?
					and		#lastbyte
					bne		@brl_start_dma		;Yes.  Continue on.

					LONGM

					lda		>dmaaddrl,x			;No it wasn't sent yet.  The code at
					dec		a					;@start_dma will lose it.  Back off
					sta		>dmaaddrl,x			;pointer and count by 1.
					lda		>dmacntl,x
					dec		a
					sta		>dmacntl,x

					SHORTM

@brl_start_dma		pla							;Restore Control Register Value.

					brl		@start_dma
												;
												; Stepping stone for these two branches.
												;
@end_dma_B			bra		@end_dma
@end_call_B			bra		@end_call
@restart_B			bra		@restart

												;
												; See note on ENTRY to this routine for
												; an explanation of why I'm doing this.
												;
@next_bank			lda		DMA_do_bank_chk
					beq		@inc_it				;Already been done

					LONGM						;m=0

					stz		DMA_do_bank_chk		;Clear flag

					lda		>dmaaddrl,x			;Did it rollover?
					beq		@maybe				;Check count to be sure

					SHORTM						;m=1

					bra		@restart			;No.

					longa	on					;for assembler	m=0

@maybe				sec							;Maybe! Did it really rollover?
					lda		#$0000
					sbc		DMA_dma_cnt			;Convert to two's compliment.
					cmp		>dmacntl,x

					SHORTM						;m=1

					beq		@restart			;No.  It did not really rollover.

@inc_it				lda		>dma_bank_reg		;Account for Bank Rollover
					inc		a
					sta		>dma_bank_reg
					
@restart			php
					sei

					lda		>cyareg				;read current setting
					sta		cyareg_hold			;save it
					and		#<%01111111			;b7 = 0 slow down
					sta		>cyareg				;write modified register

					lda		#kick_dma			;force the DMA to continue
					sta		>fixit_reg,x

					brl		@dma_done			;loop until someone tells us to quit

@end_dma			LONGM
					clc
					bra		@update_counts

@end_call			LONGM
					sec
												;
												; Update the transfer count
												;
@update_counts		php
					lda		DMA_dma_cnt
					php
					clc
					adc		<xfer_count
					sta		<xfer_count
					rol		a
					plp
					sec
					beq		@bank_add
					ror		a
@bank_add			lda		<xfer_count+2
					adc		#null
					sta		<xfer_count+2
												;
												; Adjust for any data not transfered
												;
					clc
					lda		>dmacntl,x
					adc		<xfer_count			;2's compliment add = subtract
					sta		<xfer_count
					bcc		@fixed_it

					lda		<xfer_count+2
					sbc		#null
					sta		<xfer_count+2
												;
												; Was this the end of the call or only DMA?
												;
@fixed_it			plp
					bcs		@call_done
												;
												; Adjust for any data not transfered
												;
					lda		DMA_req_count
					ora		DMA_req_count+2
					beq		@call_done
					brl		@dma_loop
					
@call_done			rts							;Call ended early

;*******************************************************
;
;	'@pseudo_stuff'
;
;	Use un-real stuff to get the data from or to the
;	card.  First we must download the receive or send
;	byte stub into zero page, init cocoon and run.
;	
;*******************************************************

@pseudo_stuff		lda		|new_phase			;check of new or same phase as last time
					beq		@nextbuf

					lda		DMA_direction
					beq		@pseudo_read

					lda		@pseudo_snd			;small piece of code to zero page
					sta		<patch1-ozeropgcode\
							+zeropg_code

					lda		@pseudo_snd+2
					sta		<patch1-ozeropgcode\
							+zeropg_code+2

					lda		@pseudo_snd+3
					sta		<patch1-ozeropgcode\
							+zeropg_code+3

					bra		@pseudo_init

@pseudo_read		lda		@pseudo_rcv			;small piece of code to zero page
					sta		<patch1-ozeropgcode\
							+zeropg_code

					lda		@pseudo_rcv+2
					sta		<patch1-ozeropgcode\
							+zeropg_code+2

					lda		@pseudo_rcv+3
					sta		<patch1-ozeropgcode\
							+zeropg_code+3
												;
												; initialize the 5380 controller
												;
@pseudo_init		SHORTM						;m=1

					lda		>modereg,x			;Get the mode register
					and		#dmaenable--\		;mask off dma
							$7F
					sta		>modereg,x

					ora		#dmaenable			;Now turn on DMA
					sta		>modereg,x

					lda		#pseudo_dma
					sta		>dmactl,x			;enable pseudo DMA xfers old card

					lda		DMA_direction
					bne		@pseudo_wdma

					sta		>idmarecv,x			;enable pseudo dma receive mode
					bra		@pseudo_long

@pseudo_wdma		sta		>dmasndreg,x		;enable pseudo dma send mode

@pseudo_long		LONGM
												;
												; save the requested byte count
												;
@nextbuf			lda		<byte_ctr
					sta		<req_count

					lda		<byte_ctr+2
					sta		<req_count+2

					jsr		low_ptrs_init		;adjust byte count and pointer

					phb							;save current data bank, it will be changed

					jsl		callzpg				;call routine in zero page
												;
												; save the transfered byte count
												;
@100				php							;save carry bit

					clc
					tya
					adc		<req_count
					sta		<xfer_count

					lda		<byte_ctr+2
					adc		<req_count+2
					sta		<xfer_count+2

					plp							;restore carry bit

					plb							;restore data bank

					rts

@pseudo_rcv			lda		|indatareg,x		;recv code stub
					sta		[buffer_ptr],y

@pseudo_snd			lda		[buffer_ptr],y		;send code stub
					sta		|outdatareg,x
		
					ENDP

					EJECT

;*******************************************************
;
;	'send_byte'
;
;	This routine will send a byte contained in the Acc.
;	to a device on the scsi bus.  The byte is sent in
;	Programmed I/O mode.  The routine assumes that all
;	the required work to to send bytes on the bus has
;	been proviously done.  The routine writes the byte
;	out to the scsi bus asserts ACK*, waits for the
;	target to deassert REQ* and then deasserts the ACK*.
;
;	Inputs:		e,x			=	0 (full native)
;				m			=	1
;				Acc			=	Byte to send
;				X reg		=	io_offset
;				Y reg		=	undefined
;				dpage		=	Ours
;				Bank		=	Ours
;				Stack		=	GS/OS stack space
;				Speed		=	undefined
;
;	Output:		e,x			=	0 (full native)
;				m			=	1
;				X reg		=	ENTRY
;				Y reg		=	ENTRY
;				Carry		=	0 for successful call
;							=	1 for error during call
;				dpage		=	ENTRY
;				Bank		=	ENTRY
;				Stack		=	ENTRY
;				Speed		=	ENTRY
;		
;*******************************************************

					;EXPORT	send_byte
send_byteT  		    PROC

					longa	off

					xba							;save the data byte
					lda		>modereg,x			;use programmed I/O mode
					pha							;save mode register

					and		#$FD
					sta		>modereg,x

@req_loop
					lda		#phasematch			;Check for a phase mismatch
					and		>busstat,x
					beq		@error_out			;Unexpected Phase Change

					lda		#<req
					and		>curbusstat,x		;get current scsi bus status
					beq		@req_loop			;and wait until REQ* is true

					lda		#phasematch			;Check for a phase mismatch
					and		>busstat,x
					beq		@error_out			;Unexpected Phase Change

					xba
					sta     >outdatareg,x		;write out the byte

					lda		#databuson			;Turn on Data Bus

					ora		>initcmdreg,x		;include other bits of register
					sta		>initcmdreg,x		;write out modified register

					lda		#attention--\		;Remove Attention
							%10011111
					and		>initcmdreg,x		;include other bits in register
					sta		>initcmdreg,x		;write out new initiator cmd. reg.

					lda		#asrtack			;assert ACK*
					ora		>initcmdreg,x		;initiator command register
					sta		>initcmdreg,x		;write modified register

@req_loop1			lda		#<req				;wait for REQ* to go false
					and		>curbusstat,x		;get current scsi bus status
					bne		@req_loop1			;and wait until REQ* is false

					lda		>initcmdreg,x		;get initiator cmd register
					and		#%10011111--\		;mask off tst mode,diff. mode
							asrtack				;and strip ACK*
					sta		>initcmdreg,x		;write out modified register

					clc
					bra		@out

@error_out			sec

@out				pla							;restore mode register
					sta		>modereg,x

					rts

					longa	on

					ENDP

					EJECT

;*******************************************************
;
;	'send_byte'
;
;	This routine will send a byte contained in the Acc.
;	to a device on the scsi bus.  The byte is sent in
;	Programmed I/O mode.  The routine assumes that all
;	the required work to to send bytes on the bus has
;	been proviously done.  The routine writes the byte
;	out to the scsi bus asserts ACK*, waits for the
;	target to deassert REQ* and then deasserts the ACK*.
;
;	Inputs:		e,x			=	0 (full native)
;				m			=	1
;				Acc			=	Byte to send
;				X reg		=	io_offset
;				Y reg		=	undefined
;				dpage		=	Ours
;				Bank		=	Ours
;				Stack		=	GS/OS stack space
;				Speed		=	undefined
;
;	Output:		e,x			=	0 (full native)
;				m			=	1
;				X reg		=	ENTRY
;				Y reg		=	ENTRY
;				Carry		=	0 for successful call
;							=	1 for error during call
;				dpage		=	ENTRY
;				Bank		=	ENTRY
;				Stack		=	ENTRY
;				Speed		=	ENTRY
;		
;*******************************************************

					;EXPORT	send_byte
send_byte  		    PROC

					longa	off

					xba							;save the data byte

					lda		#attention--\		;Remove Attention
							%10011111
					and		>initcmdreg,x		;include other bits in register
					sta		>initcmdreg,x		;write out new initiator cmd. reg.

@req_loop
					lda		#phasematch			;Check for a phase mismatch
					and		>busstat,x
					beq		@error_out			;Unexpected Phase Change

					lda		#<req
					and		>curbusstat,x		;get current scsi bus status
					beq		@req_loop			;and wait until REQ* is true

					lda		#phasematch			;Check for a phase mismatch
					and		>busstat,x
					beq		@error_out			;Unexpected Phase Change

					xba
					sta     >outdatareg,x		;write out the byte

					lda		#databuson			;Turn on Data Bus

					ora		>initcmdreg,x		;include other bits of register
					sta		>initcmdreg,x		;write out modified register

;					lda		#asrtack			;assert ACK*
;					ora		>initcmdreg,x		;initiator command register

					ora		#asrtack			;assert ACK*
					sta		>initcmdreg,x		;write modified register

;@req_loop1			lda		#<req				;wait for REQ* to go false
;					and		>curbusstat,x		;get current scsi bus status

					lda		#<req				;wait for REQ* to go false
@req_loop1			and		>curbusstat,x		;get current scsi bus status
					bne		@req_loop1			;and wait until REQ* is false

					lda		>initcmdreg,x		;get initiator cmd register
					and		#%10011111--\		;mask off tst mode,diff. mode
							asrtack				;and strip ACK*
					sta		>initcmdreg,x		;write out modified register

					clc
					rts

@error_out			sec
					rts

					longa	on

					ENDP

					EJECT

;___Misc_Code_Segs___
;*******************************************************
;
;	'set_old_scsi'
;
;	This routine will setup the I/O record for a
;	particular slot with parameters for an old scsi
;	card.
;
;	Inputs:		e,m,x		=	0 (full native)
;				slot_no		=	Slot Number of card.
;				io_rec_ptr	=	Pointer to the IO Record
;				Acc			=	undefined
;				X reg		=	undefined
;				Y reg		=	undefined
;				dpage		=	Ours
;				Stack		=	GS/OS
;				Speed		=	fast
;
;	Output:		e,m,x		=	0 (full native)
;				Carry		=	0 for successful call
;							=	1 for error during call
;				Acc			=	Error code or supervisor
;								driver number
;				dpage		=	GS/OS direct page
;				B			=	ENTRY
;				X reg		=	undefined
;				Y reg		=	undefined
;		
;*******************************************************

					;EXPORT	set_old_scsi
set_old_scsi		PROC

					lda		<slot_no			;save the slot number
					ldy		#slot				;point to slot field
					sta		[iorec_ptr],y		;slot number

					lda		#old_scsi_card
					ldy		#hwd_type			;save hardware version
					sta		[iorec_ptr],y

					lda		#old_card_attrbs	;old apple card default attributes
					ldy		#io_attrbs
					sta		[iorec_ptr],y

					lda		<slot_no			;get the slot number
					and		#slot7				;mask off internal/external bit
					asl		a					;times 16
					asl		a
					asl		a
					asl		a
					adc		#io_space+$0080		;dev-sel address $C0NX

					ldy		#scsi_base			;offset for base_address of scsi port in record
					sta		[iorec_ptr],y		;the base addr bank & dma address already zero
					sta		<io_offset			;the bank and DMA controller address := $0000
					stz		<io_offset+2

					tax

					SHORTM						;m=1 to fix the F.O. Hardware.

					lda		>card_priot_reg,x	;get the priority for this card
					bne		@75					;if no jumper installed force priot 7
					lda		#$80

@75					LONGM

					and		#$00FF				;mask of read from $C0NB
					ldy		#initpriot			;set it as initiator priority
					sta		[iorec_ptr],y

					lda		#$0000				;clear other fields in I/O record

					ldy		#scsi_bank
					sta		[iorec_ptr],y		;clear bank field of scsi controller base addr

					ldy		#dma_base
					sta		[iorec_ptr],y		;clear DMA controller base addr & bank

					ldy		#dma_bank
					sta		[iorec_ptr],y

					ldy		#io_attrbs
					sta		[iorec_ptr],y

					ldy		#d0logicals			;clear logical unit fields for scsi devices

@100				sta		[iorec_ptr],y		;8 device fields 2 bytes each scsi device
					iny
					iny
					cpy		#max_scsi_devs\
							*2+d0logicals		;2 bytes per device field
					bcc		@100

					ldy		#initpriot			;initiator priority
					lda		[iorec_ptr],y
					jsr		priot_to_dev		;convert to scsi device number

					asl		a					;times 2 because I/O record dev fields = words
					clc
					adc		#d0logicals			;point to device fields  within i/o record
					tay

					lda		#dont_scan_dev		;do not scan initiator priority for logicals
					sta		[iorec_ptr],y

					inc		<numscsi_cards		;bump the scsi cards total

					rts							;>>>--- set_old_scsi --->>>

					ENDP

					EJECT

					;EXPORT	orecv_byte
orecv_byte			PROC
;*******************************************************
*	This routine will read ONE byte from the NCR 5380 in programmed I/O mode.
*	The routine assumes that the phases are in a input phase where data is
*	being received by the initiator.
*
*	ENTRY:	e=0
*		io_offset = C0NX address space for NCR 5380
*
*	Exit	e,m,x = 0
*		A = $00XX (byte read from the 5380)
*
;*******************************************************

					php
					SHORTM						;m=1

					ldx		<io_offset			;point to proper io location

					lda		>currdata,x			;get the byte
					xba							;save it away

					lda		#asrtack			;assert ACK*
					ora		>initcmdreg,x		;initiator command register
					and		#<%10011111			;mask off test mode & differential
					sta		>initcmdreg,x		;write modified register

@req_loop			lda		#<req				;wait for REQ* to go false
					and		>curbusstat,x		;get current scsi bus status
					bne		@req_loop			;and wait until REQ* is false

					lda		>initcmdreg,x		;get initiator cmd register
					and		#%10011111--\		;mask off tst mode,diff. mode
							asrtack				;and strip ACK*
					sta		>initcmdreg,x		;write out modified register

					LONGM						;m=0

					xba							;restore the byte
					and		#$00FF				;keep low byte only

					plp							;m=?

					rts

					ENDP

					EJECT

					;EXPORT callzpg
callzpg				PROC
;*******************************************************
*	This routine will pass control to location $0080 of the
*	SCSI Manager zero page. It assumes there is valid code to
*	run at that location. This routine MUST be called through
*	a JSL instruction because the code in zero page will return
*	through an RTL instructinon.
*
*	ENTRY: e=0,m=0,x=0
*
*	Exit:	e,m,x=0
*		registers trashed
*
;*******************************************************

					pea		$0000				;force bank $00 for code bank and data bank

					plb							;flush one byte off the stack

					tdc
					clc
					adc		#zeropg_code
					dec		A
					pha

					rtl							;call routine in zero page

					ENDP

					EJECT

;*******************************************************
;
;	'ozeropgcode'
;
;	This routine will send or receive a number of bytes
;	to or from a scsi i/o port.  This call assumes that
;	the scsi port is in a appropriate phase to send or
;	receive bytes  Depending on whether bytes are being
;	sent or received a low level routine in SCSI Manager
;	zero page will be modified to send or receive bytes.
;	Note: The routine is optimized for fast transfers. It
;	assumes that once a byte is found bytes will come in
;	faster than we can check for them The second check
;	for a byte should only occur if we are talking to
;	slow scsi devices.
;
;                ENTRY:	e,m,x=0
;			X = $C0NX
;			sndbptr	= pointer to buffer to send
;			sndbcnt	= byte count to send
;
;                Exit: 	e,m,x = 0
;			sndbcnt = $00000000
;
;*******************************************************

					;EXPORT		ozeropgcode
ozeropgcode			PROC

					SHORTM						;m=1

@100				bit		|busstat,x			;check for DRQ
					bvs		patch1

					lda		#phasematch			;check for a phase mismatch
					bit		|busstat,x
					bne		@100				;keep going until count expires or phase
												;change

					bra		patch1

statloop			bit		|busstat,x			;check for DRQ
					bvc		nextcheck

bumpcount			iny							;bump count/buffer index
					beq		uppercheck

					EXPORT		patch1

patch1				lda		[buffer_ptr],y		;transfer a byte
					sta		|opdmadatareg,x

nextcheck			bit		|busstat,x			;check for DRQ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                
					bvs		bumpcount			;go transfer another byte

					lda		#phasematch			;check for a phase mismatch
					bit		|busstat,x
					bne		statloop			;keep going until count expires or phase
												;change

					sep		#$40				;mark phase changed status

					iny							;adjust the transfered byte count for humans
					bne		exit_byteio

					LONGM						;m=0

					inc		<buffer_ptr+2		;bump the high word of the buffer
					inc		<byte_ctr+2			;bump the high word of the byte count

					bra		exit_byteio			;phase changed go away

uppercheck			LONGM						;m=0

					inc		<buffer_ptr+2		;bump high word of buffer address
					inc		<byte_ctr+2			;bump high word of byte count

					SHORTM						;m=1

					bne		patch1				;keep going until zero
												;
												; exit byte I/O routine
												;

exit_byteio			LONGM						;m=0

					clc
					rtl

size				equ		*-ozeropgcode

					IF		 size	AND	$00000001	then	;check if odd byte count
					nop							;odd byte count insert NOP
					ENDIF

					EXPORT		oscsibytesize:equ
oscsibytesize		equ		*-ozeropgcode		;number of bytes in routine

					ENDP
				
					EJECT

					;EXPORT	ocopyzcode
ocopyzcode			PROC
;*******************************************************
*	This module copies some high speed routines into zero page space reserved
*	for low level I/O fast access routines.  These routines are specific to
*	the OLD scsi card.
*
*	ENTRY:	e,m,x=0
*		X= byte count to copy
*
*	Exit:	X = trashed
*
;*******************************************************

					ldx		#oscsibytesize

@100				lda		|ozeropgcode,x		;copy words at a time
					sta		<zeropg_code,x

					dex
					dex
					bpl		@100

					rts
	
					ENDP
	
					EJECT

					;EXPORT	oinit_5380
oinit_5380			PROC
;*******************************************************
*	This routine will initialize the NCR 5380 chip on an old scsi card
*	implementation.  Also, it enables pseudo-DMA mode on the 5380 and on the
*	SCSI card.
*
*	ENTRY:	e,m,x = 0
*
*	Exit:	e,m,x = 0
*
;*******************************************************

					php
					SHORTM

					phx

					ldx		<io_offset
					lda		#dmaenable			;enable DMA on the 5380
					ora		>modereg,x			;in the mode register
					and		#$7F				;mask off block mode dma
					sta		>modereg,x

					lda		#$00
					sta		>opdmareg,x			;enable pseudo DMA xfers old card

					plx

					longa	on
					plp							;m=?

					rts

					ENDP

					EJECT

					;EXPORT	ozap_5380
ozap_5380			PROC
;*******************************************************
*	This routine will initialize the NCR 5380 registers on the old scsi card
*	to a known state.
*
*	ENTRY:	e,m,x = 0
*
*	Exit:	e,m,x = 0
*
;*******************************************************

					php
					SHORTM						;m=1

					phx

					ldx		<io_offset

					lda		#$0000				;write zeros to registers
					sta		>initcmdreg,x		;initiator command register
					sta		>modereg,x
					sta		>targcmdreg,x		;target command register

					plx

					longa	on
					plp							;m=?

					rts

					ENDP

					EJECT

					;EXPORT	opdmaoff
opdmaoff			PROC
;*******************************************************
*	This routine will turn of DMA mode in the 5380 and check to see if the
*	target phase bits changed to a new phase.
*
*	ENTRY:	e,m,x = 0
*		X=Dev-sel registers offset
*
*	Exit:	e,m,x = 0
*		C=1 if phase changed
*
;*******************************************************

					SHORTM

					lda		#dmaenable--$FF		;read 5380 mode register
					and		>modereg,x			;clear dma enable bit
					sta		>modereg,x

					LONGM

					rts

					ENDP

					EJECT

					;EXPORT	oscsi_dma_enab
oscsi_dma_enab		PROC
;*******************************************************
*dma_enable:    This module will set DMA mode in the NCR 5380
*       	and dma mode in the Sandwich chip.  If carry is
*       	set then Pseudo-DMA will be enabled in the
*       	sandwich chip.
*
*       ENTRY: e=0,m=0,x=0
*              Carry = 0        set true DMA in sandwich
*              Carry = 1        set Pseudo DMA in sandwich
*            	  D = $C0XX (points to dev-sel space for card selected)
*
*       Exit: e=0,m=1
*             A=trashed
*
;*******************************************************

					php							;save m,x
					SHORTM

					ldx		<io_offset			;point to dev-sel space
					lda		#<dmaenable			;turn on dma mode in 5380
					ora		>modereg,x
					sta		>modereg,x

					longa	on
					plp							;restore m,x
					rts

					ENDP
		
		
					;EXPORT	oscsi_dma_disab
oscsi_dma_disab		PROC
;*******************************************************
*oscsi_dma_disab:	This routine will disable ANY dma modes which
*       		may be set.
*
*       ENTRY: e=0,m=0
*              io_offset = I/O space index
*
*       Exit: same as ENTRY
*
;*******************************************************

					php							;save m,x
					SHORTM

					ldx		<io_offset			;index for I/O registers
					lda		>modereg,x			;read the mode register
					and		#<%11111101			;disable DMA in 5380
					sta		>modereg,x

					longa	on
					plp							;restore m,x
					rts

					ENDP

					EJECT
;*******************************************************
*set_ack:       This routines will set the ACK* line true or false.
*
*       ENTRY: e=0,m=0
*              io_offset = I/O space index
*              carry = 1        set ACK* true
*              carry = 0        set ACK* false
*
*       Exit: A= trashed
*
;*******************************************************

					;EXPORT	set_ack_true
set_ack_true		PROC

					php							;save m,x
					SHORTM

					ldx		<io_offset			;I/O address offset
					lda		#<asrtack
					ora		>initcmdreg,x		;initiator command register
					and		#<%10011111			;mask off test mode & differential
					sta		>initcmdreg,x		;write modified register

					longa	on
					plp							;restore m,x
					rts

set_ack_false		PROC 

					php							;save m,x
					SHORTM

					ldx		<io_offset			;I/O address offset
					lda		>initcmdreg,x		;get initiator cmd register
					and		#<%10001111			;mask off tst mode,diff. mode, ACK*
					sta		>initcmdreg,x		;write out modified register

					longa	on
					plp							;restore m,x
					rts

					ENDP
					EJECT
*****************************************************************
*wait_req       This routines will wait for REQ* to go true or
*       	false.
*
*       ENTRY: e=0,m=0
*
*       Exit: A= trashed
*
*****************************************************************

					;EXPORT	wait_req_true
wait_req_true		PROC

					php							;save m,x
					SHORTM

					ldx		<io_offset
@100				lda		#<req
					and		>curbusstat,x		;get current scsi bus status
					beq		@100				;and wait until REQ* is true

					longa	on
					plp							;restore m,x
					rts

wait_req_false		PROC     

					php							;save m,x
					SHORTM

					ldx		<io_offset
@100				lda		#<req
					and		>curbusstat,x		;get current scsi bus status
					bne		@100				;and wait until REQ* is false

					longa	on
					plp							;restore m,x
					rts

					ENDP
		
					EJECT

					;EXPORT	wait_drq_true
wait_drq_true		PROC
*****************************************************************
*wait_drq_true: This routine will wait for DRQ (DMA request) to
*       	go true or false depending on the setting of the
*       	carry bit.
*
*       ENTRY: e=0,m=0
*            	io_offset = I/O space index
*              carry = 1        wait for DRQ* to        be asserted
*              carry = 0        wait for REQ* to        be deasserted
*
*       Exit: A= trashed
*
*****************************************************************

					php							;save m,x
					SHORTM

@loop				ldx		<io_offset
					lda		#<drq
					and		>busstat,x			;get DMA request status
					beq		@loop				;and wait until REQ* is true

					longa	on
					plp							;restore m,x
					rts

					ENDP

					EJECT
					;EXPORT	wait_busy
wait_busy			PROC
*****************************************************************
*Wait_busy:     This routine waits for BSY* to go true before
*       	returning to the caller.
*
*       ENTRY: e=0,m=0
*            	io_offset = I/O space index
*
*       Exit: same as ENTRY
*
*****************************************************************

					php							;save m,x
					SHORTM

					ldx		<io_offset
@10					lda		>curbusstat,x		;check for busy
					and		#<bsy
					beq		@10					;and wait until it comes

					longa	on
					plp							;restore m,x
					rts

					ENDP
					EJECT
					;EXPORT	message_phase
message_phase		PROC
*****************************************************************
*message.phase: This routine will waits for the message phase
*       	and reads in the message byte.
*
*       ENTRY: e=0, m=0
*            	io_offset = I/O space index
*
*       Exit: same as ENTRY
*
*****************************************************************

					php							;save m,x
					SHORTM

					ldx		<io_offset

@req_loop			lda		#<req
					and		>curbusstat,x		;get current scsi bus status
					beq		@req_loop			;and wait until REQ* is true

					lda		>currdata,x			;get message byte from target
					pha							;save the status

					lda		#asrtack
					ora		>initcmdreg,x		;initiator command register
					and		#<%10011111			;mask off test mode & differential
					sta		>initcmdreg,x		;write modified register

					and		#%10011111--\		;mask off tst mode,diff. mode
							asrtack				;and strip ACK*
					sta		>initcmdreg,x		;write out modified register

					pla							;restore status byte

					longa	on
					plp							;restore m,x
					rts

					ENDP
		
					EJECT
					;EXPORT	status_phase
status_phase		PROC
*****************************************************************
*status_phase:  This routine will set the REQ*, I/O* & C/D*
*       	lines to match the status phase signal setup
*
*       ENTRY:	e=0, m=0
*            	io_offset = I/O space index
*
*       Exit: same as ENTRY
*
*****************************************************************

					php							;save m,x
					SHORTM

					ldx		<io_offset

@req_loop			lda		#<req
					and		>curbusstat,x		;get current scsi bus status
					beq		@req_loop			;and wait until REQ* is true

					lda		>currdata,x			;get SCSI status byte from target
					pha							;save the status

					lda		#asrtack			;assert ACK*
					ora		>initcmdreg,x		;initiator command register
					and		#<%10011111			;mask off test mode & differential
					sta		>initcmdreg,x		;write modified register

					and		#%10011111--\		;mask off tst mode,diff. mode
							asrtack				;and strip ACK*
					sta		>initcmdreg,x		;write out modified register

					pla							;restore status byte

					longa	on
					plp							;restore m,x
					rts

					ENDP
		
					EJECT

					EXPORT	chkbusfloat
chkbusfloat			PROC
*********************************************************************************
*	This routine will attempt to check if the SCSI bus is floating due to
*	no peripherals turned on or connected to the current card/port.  SCSI
*	peripherals provide termination power.  This check is not 100% effective
*	since the bus floating can float signals high or low depending on how
*	the hardware feels!!  This routine is intended as a gross check for no
*	target or target powered off.
*
*	ENTRY	e,m,x = 0
*		None
*
*	Exit:	e,m,x=0
*		registers used are saved and restored
*
*********************************************************************************

					phx							;save registers
					pha
					jsr		bus_status			;read the status of the scsi bus signals
					and		#bsy\				;mask off unwanted bits except for BSY
							+sel\				;SEL
							+io\				;I/O
							+cd\				;C/D
							+msg				;MSG
					clc							;assume not floating
												;
												; since we did a bus reset ealier the
												; result must be zero or else we assume
												; it is a floating bus.
												;
					beq	fexit

float				sec							;assume floating
fexit				pla							;restore registers
					plx
					rts
		
					ENDP
		
		
					EJECT
					;EXPORT	wait_for_phase
wait_for_phase		PROC
********************************************************************************
*	This routine will wait for a phase specified by the contents of the
*	accumulator. If the phase changes to a phase other than the requested
*	phase, the V bit will be set and carry will be cleared.  On exit, if the
*	phase matches the requested phase then the Target command register bits 0-2
*	will be set to match the requested phase.
*
*	ENTRY:	e,m,x=0
*		A = phase bit pattern
*		+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
*		|F|E|D|C|B|A|9|8|7|6|5|4|3|2|1|0|
*		+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
* 		 | | | | | | | | | | | | | | | |
* 		 | | | | | | | | | | | | | +-+-+------ (MSG,C/D,I/O) Phase bit pattern:
* 		 +-+-+-+-+-+-+-+-+-+-+-+-+------------ Reserved
*
*	Exit:	e,m,x = 0
*		C = 0,V = 0 if changed to phase requested
*		C = 0,V = 1 if phase changed to phase other than requested
*		C = 1,V = X if phase lines never changed during the sampling period
*		A = phase bit pattern
*
*	Phase bit combinations:
*	000 = Data Out
*	001 = Data In
*	010 = Command
*	011 = Status
*	100 = Invalid phase (reserved for future scsi standard expansion)
*	101 = Invalid phase (reserved for future scsi standard expansion)
*	110 = Message Out
*	111 = Message IN
*
********************************************************************************

					and		#$0007				;mask off upper 13 bits
					pha							;save phase bits
												;
												; save the current phase setting
												;
					ldx		<io_offset
					lda		>curbusstat,x		;get target command register
					lsr		A
					lsr		A
					and		#$0007
					sta		|phase_hold
												;
												; clear possible ACK asserted bit
												;

					SHORTM

					lda		#asrtack--\
							%10011111
					and		>initcmdreg,x		;include other bits in register
					sta		>initcmdreg,x		;write out new initiator cmd. reg.

					LONGM

												;
												; 196608 times retry count for valid
												; phase check
												;
					stz		<scratchzpg			;retry count := count * $10000
					lda		#wait_phase_rcnt
					sta		<scratchzpg+2
												;
												; check the bus status for the phase
												; we want
												;
@100				sec							;assume timeout
					dec		<scratchzpg			;decrement retry count
					bne		@150
					dec		<scratchzpg+2
					beq		error
@150				ldx		<io_offset			;point to specific i/o space
					lda		>curbusstat,x		;get target command register
					and		#$00FF
					tax							;save the phase bits
					and		#bsy++sel			;look for BSY* asserted and SEL* not asserted
					beq		@100
					cmp		#bsy				;bsy and/or sel set check which
					bne		@100				;if sel* asserted  then check again
					txa							;get the status back
					lsr		A					;REQ*,I/O*,C/D* to low 3 bits
					lsr		A
					and		#$0007				;mask off upper 13 bits
					cmp		|phase_hold			;check if phase has changed
					beq		@100				;wait until match
					sep		#$40				;phase changed, assume not the phase we want
					cmp		1,s					;check if sought phase
					bne		@100				;phase other than requested (go along with it)
					rep		#$40				;V=1 & C=0 if phase other than sought

					SHORTM

					ldx		<io_offset			;point back to the dev-sel space for this card
					lda		1,s					;set the target command register to match phases
					sta		>targcmdreg,x

					LONGM

@200				clc							;got the phase we want
error				pla
					rts

*********************************************************************************
*get_phase:
*	This routine will read the phase bits and return them in the accumulator
*	It will also return the overflow bit set if we are in a bus free phase.
*
*	ENTRY:	e,m,x = 0
*
*	Exit:	e,m,x = 0
*		A = b2 = MSG
*		    b1 = C/D
*		    b0 = I/O
*
*		V = 1 if bus free
*		C = 1 if invalid phase
*
*********************************************************************************

					;EXPORT	get_phase
get_phase			ldx		<io_offset			;point to specific i/o space
					sep		#$40				;V=1 assume bus free
					lda		>curbusstat,x		;get target command register
					and		#$00FF				;low byte only
					lsr		A					;REQ*,I/O*,C/D* to low 3 bits
					lsr		A
					bcs		exit				;if C=1 then SEL* asserted and should not be
					cmp		#bsy				;check for BSY* asserted
					bcc		@100
					clc
					clv							;V=0 not bus free
@100				and		#%00000111			;mask off upper 5 bits
exit				rts

					ENDP

					EJECT

;*******************************************************
;
;	'bus_reset'
;
;	This routine will assert the scsi RST* line for 125
;	usec (Mac recomended value) and clear the bus reset.
;
;	NOTE: 	The 125 usec delay will be approx. 2.8 times
;			longer if running in slow mode.  The routine
;			does not check system speed.  Also, it is
;			the responsibility of the caller to delay
;			275 milliseconds to allow time for the scsi
;			devices to initialize themselves.
;
;	Inputs:		e,x			=	0 (full native)
;				m			=	undefined
;				io_offset	=	dev-sel space index
;				Acc			=	undefined
;				X reg		=	undefined
;				Y reg		=	undefined
;				dpage		=	Ours
;				Stack		=	undefined
;				Bank		=	Ours
;				Speed		=	undefined
;
;	Output:		e,m,x		=	ENTRY
;				Carry		=	ENTRY
;				Acc			=	undefined
;				X reg		=	ENTRY
;				Y reg		=	ENTRY
;				dpage		=	ENTRY
;				Stack		=	ENTRY
;				Bank		=	ENTRY
;				Speed		=	ENTRY
;		
;*******************************************************

					;EXPORT	bus_reset
bus_reset			PROC

					php							;save m,x
					sei

					SHORTM

					phx							;save registers

					ldx		<io_offset
					lda		#%10000000			;scsi bus reset
					sta		>initcmdreg,x
					lda		#<usec125			;delay 125 usecs
usec_delay_loop		dec		A
					bne		usec_delay_loop
					lda		>initcmdreg,x		;clear scsi bus reset bit and
					and		#<%00011111			;test mode bit and differential bit
					sta		>initcmdreg,x
					plx

					plp							;restore m,x
					rts

					longa	on

					ENDP

					EJECT

;*******************************************************
;
;	'chk_sel_tout'
;
;	This routine will check for select timeout.  From
;	the time the initiator removes BSY* the target must
;	assert BSY* within a select ABORT time.  If this
;	does not occur then carry will be set to mark an
;	error.
;
;	Inputs:		e,x			=	0
;				m			=	1
;				Acc			=	undefined
;				X reg		=	io_offset
;				Y reg		=	undefined
;				dpage		=	io_offset
;				Bank		=	Ours
;				Stack		=	GS/OS
;				Speed		=	undefined
;
;	Output:		e,m,x		=	ENTRY
;				Acc			=	undefined
;				X reg		=	ENTRY
;				Y reg		=	ENTRY
;				Carry		=	0 for select success
;								1 for select failure
;				dpage		=	ENTRY
;				Bank		=	ENTRY
;				Speed		=	ENTRY
;		
;*******************************************************

					;EXPORT	chk_sel_tout
chk_sel_tout		PROC

					longa	off					;m=1

					phy							;save register
					ldy		#sel_timeout		;count for delay of 250 millisec min

@loop				lda		<curbusstat			;check for BSY* from target
					and		#<bsy
					bne		@selected			;go away if target responded

					dey							;decrement count
					bne		@loop				;keep checking until count=0 or

					ply							;restore register
					sec							;count=00 report error
					rts

@selected			ply							;restore register
					clc
					rts

					longa	on

					ENDP

					EJECT

;*******************************************************
;
;	'sel_abort_wait'
;
;	This module will wait release the SCSI data bus and
;	wait one select abort timeout (200 usec) while
;	checking for BSY* from the desired target device.
;	If BSY* is not received from the target then SEL*
;	will be released and the bus will be allowed to go
;	back to the bus free phase and the carry will be set.
;
;	Inputs:		e,x			=	0
;				m			=	1
;				Acc			=	undefined
;				X reg		=	io_offset
;				Y reg		=	undefined
;				dpage		=	io_offset
;				Bank		=	Ours
;				Stack		=	GS/OS
;				Speed		=	undefined
;
;	Output:		e,m,x		=	ENTRY
;				Acc			=	undefined
;				X reg		=	ENTRY
;				Y reg		=	ENTRY
;				Carry		=	0 BSY* asserted
;								1 failure
;				dpage		=	ENTRY
;				Bank		=	ENTRY
;				Speed		=	ENTRY
;		
;*******************************************************

					;EXPORT	sel_abort_wait
sel_abort_wait		PROC

					longa	off					;m=1

					phy							;save register
					ldy		#<sel_abort_tout 	;select abort timeout

@loop				lda		<curbusstat			;SCSI bus status register
					and		#<bsy				;check for BSY* from target
					bne		@pass				;if BSY* asserted then OK
					dey							;decrement timer
					bne		@loop				;until zero
					ply							;restore register

					sec							;mark an error
					rts

@pass				ply							;restore register
					clc							;mark success

					rts

					ENDP

					EJECT
					;EXPORT	match_phases
match_phases		PROC
*****************************************************************
*match_phases:  This routine will set the MSG*, C/D* and I/O*
*       lines on the initiator 5380 the same as the
*       MSG*, C/D* and I/O* lines on the target.  The
*       routine toggles lines, it does not look to make
*       sure that the we have made through the arbitrate
*       and select phases successfully.
*
*       ENTRY: e=0
*              X=register offset
*
*       Exit: Same as ENTRY
*
*****************************************************************

					php							;save m,x
					SHORTM

					lda		>curbusstat,x		;get the settings of MSG*,C/D*,I/O*
					lsr		A					;set MSG, C/D, I/O as low 3 bits
					lsr		A
					and		#<%00000111			;mask off remaining bits
					sta		>targcmdreg,x

					longa	on
					plp							;restore m,x
					rts

					ENDP

					EJECT

					;EXPORT pdma_recv_data
pdma_recv_data		PROC
*****************************************************************
*pdma_recv_data  This routine will read 512 bytes of data from a
*                a target device.  The data will be stored in
*                the location pointed by [data_buffer_ptr].  The
*                byte count will be specified by RECV_SIZE. The
*                routine expects to use pseudo dma mode to do the
*                data transfers. It calls the enable dma routine
*                with carry set to enable the pseudo dma mode.
*
*                ENTRY: e=0
*                          (data_buffer_ptr:long word) = data buffer address
*                          (recv_size:word) = number of bytes to receive
*                       X = register offset for specific 5380
*
*                Exit:  same as ENTRY
*
*****************************************************************

					clc							;data phase complete
					rts

					ENDP

					EJECT

					;EXPORT	rdma_recv_data
rdma_recv_data		PROC
*****************************************************************
*rdma_recv_data This routine will read 512 bytes of data from a
*       	a target device. The data will be stored in
*      	 	the location pointed by [data_buffer_ptr].  The
*       	byte count will be specified by RECV_SIZE. The
*       	routine expects to use pseudo dma mode to do the
*       	data transfers. It calls the enable dma routine
*       	with carry set to enable the pseudo dma mode.
*
*       ENTRY: e=0
*                 (data_buffer_ptr:long word) = data buffer address
*                 (recv_size:word) = number of bytes to receive
*              X = register offset for specific 5380
*
*       Exit:  same as ENTRY
*
*****************************************************************

					clc							;data phase complete
					rts

					ENDP

					EJECT
					;EXPORT	rdma_send_data
rdma_send_data		PROC
*****************************************************************
*rdma_send_data This routine will write 512 bytes of data to a
*       	a target device. The data will be stored in
*       	the location pointed by [data_buffer_ptr].  The
*      	 	byte count will be specified by xmit_SIZE. The
*       	routine expects to use real dma mode to do the
*       	data transfers. It calls the enable dma routine
*       	with carry clear to enable the real dma mode.
*
*       ENTRY: e=0
*              carry = 0 (real dma)
*              (data_buffer_ptr:long word) = data buffer address
*              (recv_size:word) = number of bytes to receive
*              X = register offset for specific 5380
*
*       Exit:  same as ENTRY
*
*****************************************************************

					clc							;data phase complete
					rts

					ENDP

					EJECT
					;EXPORT	bus_status
bus_status			PROC
*****************************************************************
* This module will read the status registers from the SCSI chip
* and return them to the caller in the accumulator.  This code
* can be called in native or emulation mode. Bits 0-7 will be
* returned in the A register and bits 8-15 will be returned in the
* B register.
*
*          Stat_reg:
*          +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
*          |F|E|D|C|B|A|9|8|7|6|5|4|3|2|1|0|
*          +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
*           | | | | | | | | | | | | | | | |
*           | | | | | | | | | | | | | | | +---- Data bus parity
*           | | | | | | | | | | | | | | +------ SEL*
*           | | | | | | | | | | | | | +-------- I/O*
*           | | | | | | | | | | | | +---------- C/D*
*           | | | | | | | | | | | +------------ MSG*
*           | | | | | | | | | | +-------------- REQ*
*           | | | | | | | | | +---------------- BSY*
*           | | | | | | | | +------------------ RST*
*           | | | | | | | +-------------------- ACK*
*           | | | | | | +---------------------- ATN*
*           | | | | | +------------------------ Busy error
*           | | | | +-------------------------- Phase Match
*           | | | +---------------------------- IRQ request
*           | | +------------------------------ Parity Error
*           | +-------------------------------- DMA Request
*           +---------------------------------- End of DMA
*
*       ENTRY:  e,m,x=0
*
*       Exit:   e,m,x=0
*		C reg = bus status word
*
*****************************************************************

					phx							;save register
					ldx		<io_offset			;io address
					lda		>curbusstat,x
					plx							;restore register
					rts

					ENDP

					EJECT

					EXPORT	clear_state
clear_state			PROC
************************************************************************************
*	This routine will remove a pending task which has timedout.  It clears the
*	work variables within the SCSI Manager record (SDR) removes the task from
*	the SCSI bus and returns an error to the caller.
*
*	ENTRY:	e,m,x = 0
*		[sdr_ptr] points to the record to discard
*
*	Exit:	e,m,x = 0
*		A,X,Y undefined
*
************************************************************************************
												;
												; save some scsi manager internals
												;
					lda		<io_offset+2
					pha
					lda		<io_offset
					pha
												;
												; point to the I/O space corresponding
												; to this SDR
												;
					ldy		#sdr_5380_base
					lda		[active_sdr],y
					sta		<io_offset
					tax							;I/O index register
					ldy		#sdr_5380_base+2
					lda		[active_sdr],y
					sta		<io_offset+2
												;
												; send abort message to the target
												;
					lda		#abort_msg			;setup message out byte in case end up in msgout phase
					sta		|msg_out_byte

					SHORTM

					lda		#attention
					ora		>initcmdreg,x		;include other bits of register
					and		#<%10011111			;mask off test & differential
					sta		>initcmdreg,x		;write out modified register

					LONGM

					lda		#msg_out_phase
					jsr		wait_for_phase
					bcs		@75
					bvs		@75					;phase changed to other than requested
												;
												; send the abort byte to the target
												; right now!
												;
					ldx		<io_offset			;point to proper io location

					SHORTM

					lda		#attention--\		;Remove Attention
							%10011111
					and		>initcmdreg,x		;include other bits in register
					sta		>initcmdreg,x		;write out new initiator cmd. reg.

					lda		>modereg,x			;use programmed I/O mode
					pha							;save mode register

					and		#$FD
					sta		>modereg,x

@req_loop			lda		#<req
					and		>curbusstat,x		;get current scsi bus status
					beq		@req_loop			;and wait until REQ* is true

					lda		#abort_msg			;send the abort message
					sta     >outdatareg,x		;write out the byte

					lda		#asrtack			;assert ACK*
					ora		>initcmdreg,x		;initiator command register
					and		#<%10011111			;mask off test mode & differential
					sta		>initcmdreg,x		;write modified register

@req_loop1			lda		#<req				;wait for REQ* to go false
					and		>curbusstat,x		;get current scsi bus status
					bne		@req_loop1			;and wait until REQ* is false

					lda		>initcmdreg,x		;get initiator cmd register
					and		#%10011111--\		;mask off tst mode,diff. mode
							asrtack				;and strip ACK*
					sta		>initcmdreg,x		;write out modified register

					pla							;restore mode register
					sta		>modereg,x

					LONGM

					bra		@85
												;
												; if "wait for phase" timed out reset
												; the bus
												;
@75					jsr		bus_reset
@85					ldx		<io_offset
					lda		#invalid_phase1
					sta		>targcmdreg,x
												;
												; toggle 5380 DMA enable bit to allow
												; req to come through
												;
					SHORTM

					lda		#dmaenable
					eor		>modereg,x
					sta		>modereg,x
					eor		>modereg,x
					sta		>modereg,x

					LONGM

					jsr		cleanup_sdr
@100				pla
					sta		<io_offset
					pla
					sta		<io_offset+2
					stz		|more_phases		;forces exit in phase handler
					rts

					ENDP

					EJECT

;*******************************************************
;
;	'zap_oldcard'
;
;	This module will reset some parameters kept in the
;	OLD SCSI card's ram.  This will force the card to
;	rebuild its tables (SDATS) when control is passed
;	to PRODOS 8.
;
;	Inputs:		e,m,x		=	0
;				Acc			=	undefined
;				X reg		=	io_offset
;				Y reg		=	undefined
;				dpage		=	Ours
;				Bank		=	Ours
;				Stack		=	GS/OS
;				Speed		=	undefined
;
;	Output:		e,m,x		=	ENTRY
;				Acc			=	undefined
;				X reg		=	ENTRY
;				Y reg		=	ENTRY
;				Carry		=	undefined
;				dpage		=	ENTRY
;				Bank		=	ENTRY
;				Speed		=	ENTRY
;		
;*******************************************************

					EXPORT	zap_oldcard
zap_oldcard			PROC
												;
												; save work registers for later restore
												;
					phx
					phy
												;
												; Initialize the loop counter.
												;
					lda		#16-1
					sta		@loop_count
												;
												; Start with the first I/O Record
												;
					lda		<io_table_ptr
					sta		<iorec_ptr

					lda		<io_table_ptr+2
					sta		<iorec_ptr+2
												;
												; Is it a valid Slot?
												;
@loop				lda		[iorec_ptr]
					beq		@next_slotl			;No.  Next Slot
												;
												; Is it the old Card?
												;
					ldy		#hwd_type
					lda		[iorec_ptr],y
					beq		@old_card			;Shut Down Old Card.
					cmp		#$0001				;Is it Cocoon?
					bne		@next_slotl			;No.  Next Slot
												;
												; Shut of Sandwich Chip.
												;
					ldy		#scsi_base			;point to card DEV-SEL space
					lda		[iorec_ptr],y
					tax
					lda		#$0000

					SHORTM

					sta		>initcmdreg,x
					sta		>modereg,x
					sta		>targcmdreg,x
					sta		>sel_enabl_reg,x
					sta		>dmaaddrl,x
					sta		>dmaaddrh,x
					sta		>dmacntl,x
					sta		>dmacnth,x
					sta		>dmactl,x

					LONGM

@next_slotl			bra		@next_slot			;No.  Next Slot
												;
												; Old Card. Reset I/O Strobe memory
												; ($C800-$CFFE) and turn on this cards
												; I/O strobe space
												;
@old_card			lda		>io_stbreset		;access $CFFF (reset I/O strobe space)
					ldy		#slot				;get the slot number
					lda		[iorec_ptr],y
					and		#slot7				;mask off the external slot bit
					xba							;times $100
					tax							;access $CNXX space to turn on I/O strobe space
					lda		>io_space,x			;for this card
												;
												; point to bank $00 of the old card's ram
												;
					ldy		#scsi_base			;point to card DEV-SEL space
					lda		[iorec_ptr],y
					tax
					lda		#$0000				;point to card's bank zero rom and bank
												;zero ram
					SHORTM

					sta		>ocard_breg,x

					LONGM

												;
												; zero out working parameters in the
												; cards ram (forces tables reinit)
												;
					lda		#0000
					sta		>scsi_init			;clear init flag

					sta		>sdat_start			;clear SDAT ID's
					sta		>sdat_start\
							+dibtab_len*1
					sta		>sdat_start\
							+dibtab_len*2
					sta		>sdat_start\
							+dibtab_len*3
					sta		>sdat_start\
							+dibtab_len*4
					sta		>sdat_start\
							+dibtab_len*5
					sta		>sdat_start\
							+dibtab_len*6

					sta		>dibtab_start		;clear dibtab ID's.
					sta		>dibtab_start\
							+dibtab_len*1
					sta		>dibtab_start\
							+dibtab_len*2
					sta		>dibtab_start\
							+dibtab_len*3
					sta		>dibtab_start\
							+dibtab_len*4
					sta		>dibtab_start\
							+dibtab_len*5
					sta		>dibtab_start\
							+dibtab_len*6
					inc		a
					sta		>gs_flag			;force GS_flag true (nonzero)
												;
												; Any more to do?
												;
@next_slot			dec		@loop_count
					bmi		@out				;No.  Out of here.
												;
												; Yes.  Bump the pointer to the next 1.
												;
					clc
					lda		<iorec_ptr
					adc		#iorec_size
					sta		<iorec_ptr

					brl		@loop

@out				ply
					plx
					rts
												;
												; Loop Counter.
												;
@loop_count			dc.w	$0000

					ENDP
	
					EJECT

;*******************************************************
;
;	'cocoon_data'
;
;	This area contains the data that will be switched
;	during a re_selection
;
;	Inputs:		None.
;
;	Output:		None
;		
;*******************************************************

					;EXPORT	cocoon_data
cocoon_data			PROC

					EXPORT	DMA_req_count
DMA_req_count		dc.l	null				;Remaining Count to read
					EXPORT	DMA_buffer_ptr
DMA_buffer_ptr		dc.l	null				;Current Buffer Pointer
					EXPORT	DMA_dma_cnt
DMA_dma_cnt			dc.w	null				;DMA Count		this time
					EXPORT	DMA_dma_addr
DMA_dma_addr		dc.w	null				;DMA Address	this time
					EXPORT	DMA_dma_bank
DMA_dma_bank		dc.w	null				;DMA Bank		this time
					EXPORT	DMA_direction
DMA_direction		dc.w	null				;DMA direction	you know.
					EXPORT	DMA_do_bank_chk
DMA_do_bank_chk		dc.w	null				;Validate Bank rollover if ­ 0

					ENDP

					EJECT

;*******************************************************
;
;	'context_data'
;
;	This area contains the space that is used for the
;	Cocoon Context switch durring Disconnect and
;	Re-Selection.  Each Table has enough space for
;	eight (8) entries or disconnects.
;
;	Inputs:		None.
;
;	Output:		None
;		
;*******************************************************

context_data		PROC	;EXPORT

CTX_req_cnt_l		dcb.w	8,null				;Remaining Low Count to read
CTX_req_cnt_h		dcb.w	8,null				;Remaining High Count to read

CTX_buff_ptr_l		dcb.w	8,null				;Current Low Buffer Pointer
CTX_buff_ptr_h		dcb.w	8,null				;Current High Buffer Pointer

CTX_dma_cnt			dcb.w	8,null				;DMA Count
CTX_dma_addr		dcb.w	8,null				;DMA Address
CTX_dma_bank		dcb.w	8,null				;DMA Bank
CTX_direction		dcb.w	8,null				;DMA direction	you know.
CTX_do_bank_chk		dcb.w	8,null				;Validate Bank rollover if ­ 0

CCON_dmaaddr		dcb.w	8,null				;Current Cocoon DMA Address
CCON_dmacntl		dcb.w	8,null				;Current Cocoon DMA Count

CCON_dmactl			dcb.b	8,null				;Current Cocoon DMA Control Register

GS_bank_reg			dcb.b	8,null				;Current GS Bank Register ($00C037)

					ENDP

					EJECT

					END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/SupervisoryDrivers/SCSI.Manager(1meg)/SCSIM.Misc b/IIGS.601.SRC/GS.OS/SupervisoryDrivers/SCSI.Manager(1meg)/SCSIM.Misc
new file mode 100644
index 0000000..e93998f
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/SupervisoryDrivers/SCSI.Manager(1meg)/SCSIM.Misc
@@ -0,0 +1 @@
+
;*******************************************************
;
;	'SCSIM.Misc'
;
;	Written by:
;	
;					Gus Andrade
;
;	Modified for new card by:
;
;					Matt Gulick.
;					Started June 1,1989
;
;	This file contains code to various misc.
;	Transactions, device maintainence and Card Support.
;
;	Copyright Apple Computer, Inc. 1988,89
;	All rights reserved.
;
;*******************************************************

					STRING		PASCAL
					BLANKS		OFF
					PAGESIZE	70
					PRINT		NOGEN
					PRINT		NOMDIR
					MACHINE		M65816

					IMPORT		snooper_ptr
					IMPORT		handle_hold
					IMPORT		zpg_handle

					IMPORT		zpg_hold
					IMPORT		our_zpg_hold
					IMPORT		our_irq_flag
					IMPORT		cyareg_hold
					IMPORT		num_dev_types
					IMPORT		ahold
					IMPORT		addr_tables
					IMPORT		error_stat
					IMPORT		devices_found
					IMPORT		hwd_version
					IMPORT		ioattrbs
					IMPORT		init_priority
					IMPORT		last_acc_slot2
					IMPORT		last_acc_id2
					IMPORT		lutemp
					IMPORT		ckluflag
					IMPORT		scsi_status
					IMPORT		scsi_message
					IMPORT		more_dci
					IMPORT		busy_sdr_count
					IMPORT		target_priority
					IMPORT		chkbusfloat
					IMPORT		yhold
					IMPORT		scsi_variables
					IMPORT		work_vars_buffer
					IMPORT		work_vars_size
					IMPORT		gsos_zpg_hold
					IMPORT		last_sdr_ptr2
					IMPORT		last_acc_slot1
					IMPORT		last_acc_id1
					IMPORT		last_sdr_ptr1
					IMPORT		last_acc_flag
					IMPORT		user_id
					IMPORT		smbusy_flag
					IMPORT		clear_state
					IMPORT		smboot_slot
					IMPORT		ident_modify

					ENTRY		clear_memory
					ENTRY		get_zpage
					ENTRY		inq_buff
					ENTRY		chk_scsi_type
					ENTRY		set_iorec_ptr
					ENTRY		setup_work_vars
					ENTRY		calltarget
					ENTRY		nextlu
					ENTRY		build_sdr
					ENTRY		scan_scsi_devs
					ENTRY		save_work_vars
					ENTRY		rest_work_vars
					ENTRY		smartp_scsi_chk
					ENTRY		millisec_delay
					ENTRY		setzpgvars
					ENTRY		get_plist
					ENTRY		set_plist
					ENTRY		find_sdr
					ENTRY		setonline
					ENTRY		setnoscan
					ENTRY		alloc_nxt_sdr
					ENTRY		id_assignment
					ENTRY		adjtout
					ENTRY		ckdcilst
					ENTRY		getnextID
					ENTRY		assgnid
					ENTRY		unbind_scsi_irq
					ENTRY		irq_id
					ENTRY		inq_lunit
					ENTRY		tulunit
					ENTRY		sense_lunit

					PRINT		OFF

					INCLUDE		'SCSIM.Equates'
					INCLUDE		'Common.Equ.Src'
					INCLUDE		'HW.Equ.Src'
					INCLUDE		'Driver.Equ.Src'
					INCLUDE		'M16.MEMORY'
					INCLUDE		'M16.UTIL'
					INCLUDE		'M16.MISCTOOL'
					INCLUDE		'M16.SCHEDULER'

					PRINT		ON

					EJECT

;__Memory_Manager_Calls__
;*******************************************************
;
;	'allocate_memory'
;
;	This routine will allocate an ID from the Misc.
;	Tools and issue a New_handle call to the memory
;	manager using this ID.  The Handle returned will be
;	saved away to be used during Shutdown of the SCSI
;	Manager.
;
;	ENTRY:		JSR
;
;	Inputs:		e,m,x			=	0 (full native)
;				Acc				=	undefined
;				X reg			=	undefined
;				Y reg			=	undefined
;				dpage			=	GS/OS Direct page
;				Stack			=	GS/OS stack space
;				Speed			=	fast
;
;	Output:		e,m,x			=	ENTRY
;				user_id			=	ID given to us by Misc.
;									Tools
;				smhandle_hold	=	handle address from memory
;									manager
;				scsim_ptr		=	actual buffer address from
;									handle
;				Carry			=	0 for successful call
;								=	1 for error during call
;				Acc				=	Error code or supervisor
;									driver number
;				dpage			=	Our direct page
;				X reg			=	Mem Handle Low
;				Y reg			=	Mem Handle High
;				Bank			=	ENTRY
;				Stack			=	ENTRY
;				Speed			=	ENTRY
;
;	Errors:		None.
;
;*******************************************************
;
					EXPORT	allocate_memory
allocate_memory		PROC
												;
												; Get an ID from Misc tools
												;
					pha							;room for ID from Misc. Tools
					pea		#mtool_id_type		;ID type for sup. drivers from misc. tools
					_getnewid
					ply							;get our ID assuming call succeeded
					bcs		@30					;check for error
					sty		|user_id
												;
												; allocate our zero page area
												;
					jsr		|get_zpage
					bcs		@30					;go away if error

					ldx		|zpg_hold			;go zero out the memory
					ldy		#$0000
 					lda		#maxzpg_space
					jsr		clear_memory		;FIX ME MSG
					lda		|our_zpg_hold		;set our direct register
					stz		|snooper_ptr+2		;clear high word of the snooper cda pointer
					sta		|snooper_ptr		;save the address of the zero page
					tcd							;point to our zero page
												;
												; allocate our work space
												;
					PUSHLONG	#null			;room for handle
					PUSHLONG	#min_mem_size	;our work area size of 3 pages
					PUSHWORD	|user_id		;our user ID
					PUSHWORD	#attrlock++\	;Attributes of requested mem.
								attrfixed++\
								attrnocross++\
								attrnospec++\
								attrpage
					PUSHLONG	#null			;location pointer (will be ignored)
					_newhandle					;allocate our memory area
					ply							;assume all ok
					plx
					bcs		@30					;go away if error
					sty		|handle_hold		;save our handle
					stx		|handle_hold+2	
@30					rts

					ENDP

					EJECT

;*******************************************************
;
;	'get_zpage'
;
;	This routine requests $200 bytes of memory on bank
;	$00 to be used for Zero Page addressing.  The First
;	$100 is for driver use and the second $100 is for
;	the manager's usage.
;
;	ENTRY:		JSR
;
;	Inputs:		e,m,x			=	0 (full native)
;				user_id			=	Our User ID
;				Acc				=	undefined
;				X reg			=	undefined
;				Y reg			=	undefined
;				Bank			=	Our
;				dpage			=	GS/OS
;				Stack			=	GS/OS stack space
;				Speed			=	fast
;
;	Output:		e,m,x			=	ENTRY
;				zpg_hold		=	Address on Bank $00  (WORD)
;				X reg			=	undefined
;				Y reg			=	undefined
;				Acc				=	Error code 
;				Carry			=	0 for successful call
;								=	1 for error during call
;				dpage			=	Our direct page
;				Bank			=	ENTRY
;				Stack			=	ENTRY
;				Speed			=	ENTRY
;
;	Errors:		Memory Manager Errors
;
;*******************************************************
;
					EXPORT	get_zpage
get_zpage			PROC
											;
											; allocate our zero page area
											;
					PUSHLONG	#null			;room for handle
					PUSHLONG	#maxzpg_space	;zero page
					PUSHWORD	|user_id		;our user ID
					PUSHWORD	#attrlock++\	;scsi Manager zero page MM attributes
								attrfixed++\
								attrnocross++\
								attrpage++\
								attrbank
					PUSHWORD	#zpgbank		;must be in bank zero & page aligned
					PUSHWORD	#null			;don't really care where in bank $00

					_newhandle				;allocate our memory area

					ply						;assume all ok
					plx

					pha						;Preserve Error if any.

					sty		<sup_parm_ptr 	;this pointer used as scratch during startup
					stx		<sup_parm_ptr+2

					sty		|zpg_handle		;save our handle
					stx		|zpg_handle+2

					lda		[sup_parm_ptr]	;Save Zpage Pointer
					sta		|zpg_hold

					clc
					adc		#driverzpgsize	;Save Our Zpage Pointer
					sta		|our_zpg_hold

					pla						;Restore Error if any.
					rts

					ENDP

					EJECT

;*******************************************************
;
;	'clear_memory'
;
;	This routine clears a specified number of bytes
;	starting at a given location.  It assumes no bank
;	crossings!!!!
;
;	ENTRY:		JSR
;
;	Inputs:		e,m,x			=	0 (full native)
;				Acc				=	Number of bytes to clear
;				X reg			=	Low word of first location
;									to clear
;				Y reg			=	High word of first location
;									to clear
;				Bank			=	Ours
;				dpage			=	Ours
;				Stack			=	GS/OS stack space
;				Speed			=	fast
;
;	Output:		e,m,x			=	ENTRY
;				zpg_hold		=	Address on Bank $00  (WORD)
;				X reg			=	undefined
;				Y reg			=	undefined
;				Acc				=	undefined
;				Carry			=	undefined
;				dpage			=	ENTRY
;				Bank			=	ENTRY
;				Stack			=	ENTRY
;				Speed			=	ENTRY
;
;	Errors:		None.
;
;*******************************************************
;
					EXPORT	clear_memory
clear_memory		PROC					;FIX ME MSG
											;
											; Zero out the Memory
											;
					PUSHLONG	#cm_null	;source address
					phy						;Destination High
					phx						;Destination Low
 					pea			$0000
					pha						;Byte Count
 					PUSHWORD	#move_scon_dinc

					jsl		move_info

					rts						;>>>--- clear_memory --->>>
											;
											; Data for this routine.
											;
cm_null				dc.w	null

					ENDP

					EJECT
			
;*******************************************************
;
;	'callcomp'
;
;	This module will call the completion routine if a
;	pointer exists
;
;	ENTRY:		JSR
;
;	Inputs:		e,m,x			=	0 (full native)
;				error_stat		=	error code to report
;				Acc				=	undefined
;				X reg			=	undefined
;				Y reg			=	undefined
;				Bank			=	Ours
;				dpage			=	GS/OS Direct Page
;				Stack			=	GS/OS stack space
;				Speed			=	fast
;
;	Output:		e,m,x			=	ENTRY
;				X reg			=	undefined
;				Y reg			=	undefined
;				Acc				=	undefined 
;				Carry			=	0 for successful call
;				dpage			=	GS/OS Direct Page
;				Bank			=	ENTRY
;				Stack			=	ENTRY
;				Speed			=	ENTRY
;
;	Errors:		None.
;
;*******************************************************
;
					EXPORT	callcomp
callcomp			PROC
												;
												; Call Completion Routine if
												; pointer is non-zero.
												;
					ldy		#plst_comp_vect+2
					lda		[plist_ptr],y
					ldy		#plst_comp_vect
					ora		[plist_ptr],y
					beq		@125				;go away if pointer zero
					lda		[plist_ptr],y
					sta		@100+1
					iny
					lda		[plist_ptr],y
					sta		@100+2
					lda		|error_stat
@100				jsl		$000000				;*** SELF MODIFYING CODE
@125				rts							;>>>--- callcomp --->>>

					ENDP
	
					EJECT

;*******************************************************
;
;	'copy_plist'
;
;	This module will copy the parameter list into SDR
;
;	Inputs:		e,m,x		=	0 (full native)
;				plist_ptr	=	points to the parameter list
;				Acc			=	undefined
;				X reg		=	undefined
;				Y reg		=	undefined
;				dpage		=	Our Direct page
;				Stack		=	GS/OS stack space
;				Speed		=	fast
;
;	Output:		e,m,x		=	0 (full native)
;				Carry		=	0 for successful call
;				Acc			=	undefined
;				dpage		=	Ours direct page
;				Bank		=	ENTRY
;				X reg		=	ENTRY
;				Y reg		=	undefined
;
;*******************************************************

					EXPORT	copy_plist
copy_plist			PROC
												;
												; copy the timeout into the SDR
												; record
												;
					ldy		#plst_timeout
					lda		[plist_ptr],y

					jsr		adjtout				;convert 1/4/s to 1/60/s counts

					ldy		#sdr_timeout
					sta		[sdr_ptr],y

					ldy		#sdr_timeout+2
					txa
					sta		[sdr_ptr],y
												;
												; copy completion vector into sdr
												;
					ldy		#plst_comp_vect
					lda		[plist_ptr],y
					ldy		#sdr_completion_vect
					sta		[sdr_ptr],y

					ldy		#plst_comp_vect+2
					lda		[plist_ptr],y
					ldy		#sdr_completion_vect+2
					sta		[sdr_ptr],y
												;
												; copy the SCSI command list pointer
												;
					ldy		#plst_cmd_ptr
					lda		[plist_ptr],y
					ldy		#sdr_cmd_ptr
					sta		[sdr_ptr],y

					ldy		#plst_cmd_ptr+2
					lda		[plist_ptr],y
					ldy		#sdr_cmd_ptr+2
					sta		[sdr_ptr],y
												;
												; copy the address of the parameter
												; list into the SDR
												;
					ldy		#sdr_plist_ptr
					lda		<plist_ptr
					sta		[sdr_ptr],y

					ldy		#sdr_plist_ptr+2
					lda		<plist_ptr+2
					sta		[sdr_ptr],y

					rts							;>>>--- copy_plist --->>>

					ENDP
	
					EJECT

;*******************************************************
;
;	'ioplchk'
;
;	This module will validate I/O call parameter list
;
;	Inputs:		e,m,x		=	0 (full native)
;				plist_ptr	=	points to the parameter list
;				Acc			=	undefined
;				X reg		=	undefined
;				Y reg		=	undefined
;				dpage		=	Our Direct page
;				Stack		=	GS/OS stack space
;				Speed		=	fast
;
;	Output:		e,m,x		=	0 (full native)
;				error_stat	=	Error Code if any
;				Carry		=	0 for successful call
;							=	1 for error during call
;				Acc			=	undefined
;				dpage		=	Ours direct page
;				Bank		=	ENTRY
;				X reg		=	ENTRY
;				Y reg		=	undefined
;
;*******************************************************
;
					EXPORT	ioplchk
ioplchk				PROC
												;
												; check for slots 0-F
												;
					ldy		#plst_slot
					lda		[plist_ptr],y
					cmp		#$0010
					bge		plfail				;fail it if out of range

					ldy		#plst_devid			;check ID for nonzero
					lda		[plist_ptr],y
					beq		plfail

					ldy		#plst_version		;check the parameter block version
					lda		[plist_ptr],y
					bne		plfail
												;
												; check reserved attribute bits
												; for zero
												;
					stz		|ident_modify
					ldy		#plst_attrbs
					lda		[plist_ptr],y
					beq		@attributes_ok

					and		#plst_attresbits
					bne		plfail

;-------------------------------------------------------------------------------------

					IF		Disc_ReSel	=	true	then

												;
												; Set to allow Disconect.
												;
					lda		#bit_6				;DiscPriv of Identify Message.
					tsb		|ident_modify

					ENDIF

;-------------------------------------------------------------------------------------

												;
												; check the timeout for nonzero
												;
@attributes_ok		ldy		#plst_timeout
					lda		[plist_ptr],y
					beq		plfail
												;
												; check the command list pointer
												; for nonzero
												;
					ldy		#plst_cmd_ptr
					lda		[plist_ptr],y
					ldy		#plst_cmd_ptr+2
					ora		[plist_ptr],y
					beq		plfail
												;
												; check reserved field for zero
												;
					ldy		#plst_reserved
					lda		[plist_ptr],y
					ldy		#plst_reserved+2
					ora		[plist_ptr],y
					bne		plfail
												;
												; make sure request count and data
												; chain pointer are consistent with
												; each other
												;
					ldy		#plst_dchainptr		;check data chain pointer for zero
					lda		[plist_ptr],y

					ldy		#plst_dchainptr+2
					ora		[plist_ptr],y
					bne		@100				;if data chain ptr zero then req count must = 0

					ldy		#plst_reqxfr_cnt
					ora		[plist_ptr],y
					bne		plfail

					ldy		#plst_reqxfr_cnt+2
					ora		[plist_ptr],y
					bne		plfail
					beq		@150				;both zero go away

@100				jmp		ckdcilst			;go check data chain inst list for stop inst
												;
												; we got here, the parameter list
												; must be OK
												;
@150				clc
plexit				rts							;>>>>---- I/O parameter list check --->>>
												;
												; failed parameter list check
												;
plfail				lda		#plist_error		;error for parameter list error
					sta		|error_stat
					sec
					rts

					ENDP
	
					EJECT

;*******************************************************
;
;	'callrtn'
;
;	This routine will pass control to a routine defined
;	in a address table for a specific interface type
;
;	Inputs:		e,m,x		=	0 (full native)
;				plist_ptr	=	points to the parameter list
;				Acc			=	Routine Number to call
;				X reg		=	undefined
;				Y reg		=	undefined
;				dpage		=	Our Direct page
;				Stack		=	GS/OS stack space
;				Speed		=	fast
;
;	Output:		All values are dependent on which
;				routine was called.  Output will follow
;				the definition for that routine.
;
;*******************************************************
;
					EXPORT	callrtn
callrtn				PROC
												;
												; Generate offset for vector, get
												; the long vector and call it.
												;
					asl		a
					tay
callit				lda		(addr_table_ptr),y

					dec		a
					pha
					rts							;call the routine

					ENDP
	
					EJECT

;*******************************************************
;
;	'scsi_irq_hand'
;
;	This module will handle all interrupts which are
;	generated by SCSI peripheral cards or internal scsi
;	ports found during the "FIND_SCSI" subroutine call.
;
;	Inputs:		e,m,x		=	short m and x
;				Acc			=	undefined
;				X reg		=	undefined
;				Y reg		=	undefined
;				dpage		=	undefined
;				Stack		=	undefined
;				Speed		=	undefined
;
;	Output:		e,m,x		=	ENTRY
;				Carry		=	0 for successful call
;							=	1 for error during call
;				Acc			=	Error Code if any
;				dpage		=	ENTRY
;				Bank		=	ENTRY
;				X reg		=	ENTRY
;				Y reg		=	ENTRY
;				Stack		=	ENTRY
;
;*******************************************************
;
					;EXPORT	scsi_irq_hand
scsi_irq_hand		PROC
												;
												;
					php							;save m and x
					sei							;disable being interupted
												;
												; Put in long m and x
												;
					LONGMX

					phy							;save work registers
					phx
					phd							;save direct register
					phb							;save data bank
					phk							;point data bank to us
					plb

					lda		|our_zpg_hold		;point to our zero page
					tcd
												;
												; save some variables we are
												; about to clobber
												;
					lda		<io_offset			;save the 5380 registers address pointer
					pha
					jsr		save_work_vars		;save our work area in case irqed? ourselves		pha
												;
												; check the slots for nonzero
												;
					lda		#$FFFF				;assume not our irq
					sta		|our_irq_flag

					ldy		#$0000
@100				tyx							;save index to start of io record
					lda		[io_table_ptr],y	;see if scsi is source of irq
					beq		@200				;if zero no card in this slot

					tya							;point to the hardware base address
					clc
					adc		#scsi_base			;get the base address of the 5380
					tay

					lda		[io_table_ptr],y
					sta		<io_offset		


					phx
					ldx		<io_offset			;point to specific i/o space
												;
												; If it is a Bus Phase Mismatch IRQ,
												; then just blow it off.  Otherwise,
												; Treat it as a potential Disconnect/
												; ReSelect event.
												;
					lda		>curbusstat,x		;look for Bus Phase Mismatch IRQ
					and		#end_dma*256++\		;Port 5 bit 7
							drq*256++\			;Port 5 bit 6
							parityerr*256++\	;Port 5 bit 5
							scsiirq*256++\		;Port 5 bit 4
							phasematch*256++\	;Port 5 bit 3
							busyerr*256++\		;Port 5 bit 2
							ack*256++\			;Port 5 bit 0
							rst++\				;Port 4 bit 7
							bsy++\				;Port 4 bit 6
							req++\				;Port 4 bit 5
							sel					;Port 4 bit 1
												;
												; Only these bits should be set.  All the
												; other bits used for the mask above must
												; be equal to '0'.
												;
					cmp		#scsiirq*256++\		;Port 5 bit 4
							bsy++\				;Port 4 bit 6
							req					;Port 4 bit 5

					bne		@chk_other_IRQs		;No Bus Phase Mismatch IRQ

					SHORTM

					lda		>resetirqreg,x		;Reset Bus Phase Mismatch IRQ

					LONGM

					plx							;That's all it was.  We're out of here!
					stz		|our_irq_flag		;$0000 = serviced one of our IRQs
					bra		irq_hand_exit		;service one card per interrupt

@chk_other_IRQs		plx
					and		#scsiirq*256		;check for scsi irq pending
					beq		@200

					jsr		serve_irq			;go service interrupt
					stz		|our_irq_flag		;$0000 = serviced one of our IRQs
					bra		irq_hand_exit		;service one card per interrupt

@200				txa							;point to next i/O record
					clc
					adc		#iorec_size
					tay							;check if beyond end of io table

					cmp		#iotsize
					bcc		@100

irq_hand_exit		pla							;restore contents of i/o offset
					sta		<io_offset

					lda		|our_irq_flag		;flag <> 0 if our irq
					pha							;save the value of the flag

					jsr		rest_work_vars		;restore our working variables

					pla							;restore flag of our irq service
					plb							;restore environment
					pld
					plx							;restore work registers
					ply
					plp							;restore m and x

					longa	off

					cmp		#$01
					rtl

					longa	on

serve_irq			phx							;save register
					ldx		<io_offset			;point to i/o space
					SHORTM						;m=1
					lda		>resetirqreg,x		;reset the irq pending bit
					LONGM						;m=0
					plx							;restore register
					rts							;very dumb handler so far!!

					ENDP
	
					EJECT

;*******************************************************
;
;	'low_ptrs_init'
;
;	This routine will setup source/dest and byte
;	counters to optimize for data transfers.  The byte
;	count is made 2's complement so it can double as
;	byte counter and buffer index.  The buffer address
;	will be modified to compensate for the change in the
;	byte counter.  The routine sets things up to
;	optimize the data transfers from the hardware into
;	buffers and viceversa.  Transfers of very few bytes
;	(5-20 bytes) will suffer some degradation but
;	transfers of blocks will receive a major performance
;	improvement.
;	
;	Inputs:		e,m,x		=	0 (full native)
;				buffer_ptr	=
;				byte_ctr	=
;				Acc			=	undefined
;				X reg		=	undefined
;				Y reg		=	undefined
;				dpage		=	Our Direct page
;				Stack		=	GS/OS stack space
;				Speed		=	fast
;
;	Output:		e,m,x		=	0 (full native)
;				buffer_ptr	=	undefined
;				byte_ctr	=	undefined
;				X reg		=	ENTRY
;				Y reg		=	undefined
;				dpage		=	Ours direct page
;				Bank		=	ENTRY
;				Stack		=	ENTRY
;				Speed		=	fast
;				Carry		=	0 for successful call
;							=	1 for error during call
;				Acc			=	undefined
;
;*******************************************************
;
					EXPORT	low_ptrs_init
low_ptrs_init		PROC
					sec							;2's complement low word of byte count
					lda		#$0000				;to make counter incrementing and can
					sbc		<byte_ctr			;double as source/destination pointer
					tay							;save modified counter

					php							;save 16 bit status (just want carry bit)
					php
					lda		#$0000
					sbc		<byte_ctr+2			;high word of byte count
					sta		<byte_ctr+2			;save high word of updated count

					clc							;update source pointer to compensate byte count
					lda		<buffer_ptr			;becoming 2's complement
					adc		<byte_ctr	
					sta		<buffer_ptr	

					pla							;restore carry bit
					and		#$0001
					bne		@100				;if carry set don't subtract

					lda		<buffer_ptr+2		;include possible borrow
					sbc		#$0000		
					sta		<buffer_ptr+2

@100				sty		<byte_ctr			;Y contains low word of byte count
					rts							;>>>--- low_ptrs_setup --->>>

					ENDP

					EJECT

;*******************************************************
;
;	'slow_down'
;
;	This routine will read the setting of the system
;	speed, save it away and then set the system slow.
;	
;	Inputs:		e,m,x		=	0 (full native)
;				Acc			=	undefined
;				X reg		=	undefined
;				Y reg		=	undefined
;				dpage		=	Our Direct page
;				Stack		=	GS/OS stack space
;				Speed		=	undefined
;
;	Output:		e,m,x		=	0 (full native)
;				cyareg_hold	=	old setting of system speed
;				X reg		=	ENTRY
;				Y reg		=	ENTRY
;				dpage		=	Ours direct page
;				Bank		=	ENTRY
;				Stack		=	ENTRY
;				Speed		=	SLOW
;				Acc			=	undefined
;
;*******************************************************
;
					;EXPORT	slow_down
slow_down			PROC

					SHORTM						;m=1

					lda		>cyareg				;read current setting
					sta		<cyareg_hold		;save it
					and		#<%01111111			;b7 = 0 slow down
					sta		>cyareg				;write modified register

					LONGM						;restore m

					rts							;>>>--- slow_down --->>>

					ENDP

					EJECT

;*******************************************************
;
;	'restore_cya'
;
;	This routine will restore the contents of the cya
;	register to the setting saved away by the slow_down
;	routine in 'cya_hold'.
;	
;	Inputs:		e,m,x		=	0 (full native)
;				cyareg_hold	=	old setting of system speed
;				Acc			=	undefined
;				X reg		=	undefined
;				Y reg		=	undefined
;				dpage		=	Our Direct page
;				Stack		=	GS/OS stack space
;				Speed		=	undefined
;
;	Output:		e,m,x		=	0 (full native)
;				X reg		=	ENTRY
;				Y reg		=	ENTRY
;				dpage		=	Ours direct page
;				Bank		=	ENTRY
;				Stack		=	ENTRY
;				Speed		=	Setting prior to last
;								slowdown call
;				Acc			=	undefined
;
;*******************************************************
;
					;EXPORT	restore_cya
restore_cya			PROC

					SHORTM						;m=1

					lda		<cyareg_hold		;restore setting of CYA reg
					sta		>cyareg

					LONGM						;restore m,x

					rts							;>>>--- restore_cya --->>>

					ENDP

					EJECT

;*******************************************************
;
;	'bind_scsi_irq'
;
;	This module will install the scsi manage interrupt
;	handler by issuing a BIND_IRQ system call to GS/OS
;	to install the interrupt in its vectoring list.  The
;	call will be issued as a stack based GS/OS call.
;	
;	Inputs:		e,m,x		=	0 (full native)
;				Acc			=	undefined
;				X reg		=	undefined
;				Y reg		=	undefined
;				dpage		=	Our Direct page
;				Stack		=	GS/OS stack space
;				Speed		=	undefined
;
;	Output:		e,m,x		=	0 (full native)
;				X reg		=	undefined
;				Y reg		=	undefined
;				dpage		=	Ours direct page
;				Bank		=	ENTRY
;				Stack		=	ENTRY
;				Speed		=	ENTRY
;				Carry		=	0 for successful call
;							=	1 for error during call
;				Acc			=	Error Code
;
;*******************************************************
;
					EXPORT	bind_scsi_irq
bind_scsi_irq		PROC

					PUSHLONG	#bind_irq_pblk	;bind parameter block
					PUSHWORD	#bind_irq		;bind irq call number

					jsl		stack_entry			;GS/OS stack based call entry point
					bcc		@exit				;nobody happy

					lda		#irq_install_err	;bad news!!
					sta		|error_stat

@exit				rts
												;
												; Parametre List for Bind IRQ Call
												;
bind_irq_pblk		dc.w	bind_pcount			;3 parameters
					EXPORT	irq_id
irq_id				dc.w	$0000				;our irq identifier returned here
					dc.w	scsi_vrn			;SCSI Manager VRN
					dc.l	scsi_irq_hand		;SCSI Manager interrupt handler

					ENDP

					EJECT

;*******************************************************
;
;	'schedule_unbind'
;
;	This routine will unbind the SCSI Manager interrupt
;	handle from GS/OS either by doing it now if the
;	System is not busy, ar by using the scheduler if it
;	is busy.
;	
;	Inputs:		e,m,x		=	0 (full native)
;				irq_id		=	Irq to unbind
;				Acc			=	undefined
;				X reg		=	undefined
;				Y reg		=	undefined
;				dpage		=	Our Direct page
;				Stack		=	GS/OS stack space
;				Speed		=	undefined
;
;	Output:		e,m,x		=	0 (full native)
;				X reg		=	undefined
;				Y reg		=	undefined
;				dpage		=	ENTRY
;				Bank		=	ENTRY
;				Stack		=	ENTRY
;				Speed		=	ENTRY
;				Carry		=	undefined
;				Acc			=	undefined
;
;*******************************************************
;
					EXPORT	schedule_unbind
schedule_unbind		PROC

;					lda		>system_busy_flag		;Is the System Busy?
;					bne		@shedule_it				;No.  Unbind IRQ.
					jsl		unbind_scsi_irq			;Yes.  Set SCHEDULER to call unbind.
					rts

@shedule_it			PUSHWORD	#null				;Space for Result
					PUSHLONG	#unbind_scsi_irq	;task_pointer

					_SchAddTask
					
					pla

					rts

unbind_pblk			dc.w	unbind_pcount		;1 parameter
unbind_irq_id		dc.w	$0000				;irq id to unbind

					ENDP

					EJECT

;*******************************************************
;
;	'unbind_scsi_irq'
;
;	This routine will unbind the SCSI Manager interrupt
;	handle from GS/OS.
;	
;	Inputs:		e,m,x		=	0 (full native)
;				irq_id		=	Irq to unbind
;				Acc			=	undefined
;				X reg		=	undefined
;				Y reg		=	undefined
;				dpage		=	Our Direct page
;				Stack		=	GS/OS stack space
;				Speed		=	undefined
;
;	Output:		e,m,x		=	0 (full native)
;				X reg		=	undefined
;				Y reg		=	undefined
;				dpage		=	Ours direct page
;				Bank		=	ENTRY
;				Stack		=	ENTRY
;				Speed		=	ENTRY
;				Carry		=	0 for successful call
;							=	1 for error during call
;				Acc			=	Error Code
;
;*******************************************************
;
					;EXPORT	unbind_scsi_irq
unbind_scsi_irq		PROC

					lda		|gsos_zpg_hold	
coldst				tcd							;save GS/OS zero page address (will need later)

					pea		#0000
					plb
					plb

					lda		>irq_id
					jsl		eunich_vect
					
					phk
					plb

					lda		|our_zpg_hold		;point to our zero page
					tcd

					rtl

;					lda		>irq_id				;setup our irq id
;					sta		>unbind_irq_id
;
;					PUSHLONG	#unbind_pblk	;parameter block
;					PUSHWORD	#unbind_irq		;class 1 unbind irq
;
;					jsl		stack_entry			;GS/OS stack based call entry point
;
;					rtl
;
;unbind_pblk			dc.w	unbind_pcount		;1 parameter
;unbind_irq_id		dc.w	$0000				;irq id to unbind
;
					ENDP

					EJECT

;*******************************************************
;
;	'find_scsi'
;
;	This routine will check 16 slots for the presence of
;	SCSI cards/ports It calls 'DYN_SLOT_ARBITER' with
;	the accumulator containing the slot number sought.
;	If the slot is found then it PROCeeds to check for
;	SCSI signatures and card/port type (old scsi card vs
;	new).  The routine builds a I/O table which contains
;	information about each of the scsi cards or ports
;	found.
;
;	ENTRY:		JSR
;
;	Inputs:		e,m,x			=	0 (full native)
;				error_stat		=	error code to report
;				Acc				=	undefined
;				X reg			=	undefined
;				Y reg			=	undefined
;				Bank			=	Ours
;				dpage			=	Ours
;				Stack			=	undefined
;				Speed			=	fast
;
;	Output:		e,m,x			=	ENTRY
;				X reg			=	undefined
;				Y reg			=	undefined
;				Acc				=	Error Code 
;				Carry			=	0 for successful call
;									1 for unsuccessful call
;				dpage			=	ENTRY
;				Bank			=	ENTRY
;				Stack			=	ENTRY
;				Speed			=	ENTRY
;
;	Errors:		See Error Listing on Equates file
;
;*******************************************************
;
					EXPORT	find_scsi
find_scsi			PROC

					stz		<numscsi_cards		;reset total cards found count

					ldy		#slot7ext			;start with slot 7 external
					sty		<slot_no			;save the slot number

					jsr		set_iorec_ptr		;form pointer for this slot's I/O record
					bra		find_loop_alt

find_scsi_loop		lda		<iorec_ptr			;point to next lower record
					sec
					sbc		#iorec_size	
					sta		<iorec_ptr

find_loop_alt		lda		<slot_no			;get the slot number

					jsl		slot_arbit			;check with the slot arbitrator
					bcs		not_scsi_card		;mark no card available

					jsr		smartp_scsi_chk		;check if smartport scsi implementation
					bcs		not_scsi_card
					jsr		chk_scsi_type		;check type of scsi card

					bcc		next_slot

not_scsi_card		lda		#$0000				;marks not valid card

set_slot			ldy		#slot				;point to slot field
					sta		[iorec_ptr],y		;set slot number slot number

next_slot			dec		<slot_no			;next lower slot
					bpl		find_scsi_loop	

					lda		#no_scsi_hardware	;assume  no cards will be found
					sta		|error_stat			;assume no scsi cards found

					lda		<numscsi_cards		;will contain total scsi card found count
					beq		find_scsi_exit		;assume no cards found

					ldy		#bres_ready_del		;give scsi devs 275 millisecs to come ready
					jsr		millisec_delay		;after scsi bus reset cycle
					stz		|error_stat			;report success (cards found)

find_scsi_exit		lda		|error_stat			;check for no scsi hardware error
					cmp		#$0001				;set carry if no cards
					rts							;>>>--- find_scsi --->>>

					ENDP
		
					EJECT

;*******************************************************
;
;	'chk_scsi_type'
;
;	This routine will check the scsi card type looking
;	for valid APPLE scsi cards and ports.
;
;	ENTRY:		JSR
;
;	Inputs:		e,m,x			=	0 (full native)
;				iorec_ptr		=	I/O Record Pointer
;				Acc				=	undefined
;				X reg			=	undefined
;				Y reg			=	undefined
;				Bank			=	Ours
;				dpage			=	Ours
;				Stack			=	undefined
;				Speed			=	fast
;
;	Output:		e,m,x			=	ENTRY
;				X reg			=	undefined
;				Y reg			=	undefined
;				Acc				=	Error Code 
;				Carry			=	0 for successful call
;									1 for unsuccessful call
;				dpage			=	ENTRY
;				Bank			=	ENTRY
;				Stack			=	ENTRY
;				Speed			=	ENTRY
;
;	Errors:		See Error Listing on Equates file
;
;*******************************************************
;
					;EXPORT	chk_scsi_type
chk_scsi_type		PROC

					lda		#num_dev_types		;check for valid scsi card/port type
					bra		@150				;types go from $0000

@100				sta		ahold				;save type
					asl		a					;times 4 for 32 bit table ENTRY
					asl		a
					tay

					lda		|addr_tables,y		;point to proper address table for dev type
					sta		<addr_table_ptr

					lda		|addr_tables+2,y
					sta		<addr_table_ptr+2

					lda		#hwdchk				;check card type routine
					jsr		callrtn				;call_routine through address table
					bcc		@200				;carry clear = found it & I/O record was setup

					lda		ahold				;restore type
@150				dec		a					;decrement type
					bpl		@100

@200				rts							;>>>--- check_scsi_type --->>>
		
					ENDP

					EJECT

;*******************************************************
;
;	'set_iorec_ptr'
;
;	This module sets up the iorec_ptr to a given value
;	based on the contents of SLOT_NO.
;
;	Inputs:		e,m,x			=	0 (full native)
;				Acc				=	undefined
;				X reg			=	slot number
;				Y reg			=	undefined
;				dpage			=	Our direct page
;				Stack			=	GS/OS stack space
;				Speed			=	fast
;
;	Output:		e,m,x			=	0 (full native)
;				io_rec_ptr		=	address of I/O record
;									corresponding to slot_no
;				X reg			=	ENTRY
;				Y reg			=	undefined
;				Carry			=	0 for successful call
;				Acc				=	Error code or supervisor
;									driver number
;				dpage			=	Our direct page
;				Stack			=	GS/OS stack space
;				Speed			=	fast
;		
;*******************************************************
;
					EXPORT	set_iorec_ptr
set_iorec_ptr		PROC

					lda		#slot0
					clc							;bump by increments of iorecsize
@100				adc		#iorec_size
					dey
					bne		@100

					clc							;include address of I/O table
					adc		<io_table_ptr
					sta		<iorec_ptr

					lda		<io_table_ptr+2		;set I/O record pointer
					sta		<iorec_ptr+2

					rts

					ENDP

					EJECT

;*******************************************************
;
;	'init_sdr_tbl'
;
;	This routine sets up the SDR for a specific scsi
;	logical unit found on the SCSI bus.  If the number
;	of default SDRs built exceeds the number the number
;	of default SDRs space a SetHandleSize call will be
;	made to grow our work  area.  If we must grow our
;	work area, it increases by enough bytes to allocate
;	8 SDRs (4 pages of memory).
;
;	ENTRY:		JSR
;
;	Inputs:		e,m,x			=	0 (full native)
;				slot_no			=	peripheral card/port slot no.
;				inqb_ptr		=	pointer to inquiry buffer containing data
;				scsi_mem_ptr	=	pointer to our work area
;				Acc				=	undefined
;				X reg			=	undefined
;				Y reg			=	undefined
;				Bank			=	Ours
;				dpage			=	Ours
;				Stack			=	undefined
;				Speed			=	fast
;
;	Output:		e,m,x			=	ENTRY
;				X reg			=	undefined
;				Y reg			=	undefined
;				Acc				=	Error Code 
;				Carry			=	0 for successful call
;									1 for unsuccessful call
;				dpage			=	ENTRY
;				Bank			=	ENTRY
;				Stack			=	ENTRY
;				Speed			=	ENTRY
;
;				SDRs will be built for each logical
;				device found
;
;	Errors:		See Error Listing on Equates file
;
;*******************************************************
;
					EXPORT	init_sdr_tbl
init_sdr_tbl		PROC

												;
												; find SCSI devices & types by Issuing
												; an Inquiry call
												;
					lda		#no_scsi_devs
					sta		|devices_found		;assume we do not find any targets

					ldy		#slot0				;check slot 0 through slot F
@100				lda		[io_table_ptr],y	;check the slot number for $0000
					beq		@200

					phy
					tay							;save slot number

					jsr		set_iorec_ptr		;point to i/o record for this slot

					jsr		setup_work_vars		;setup working variable from i/o record

					ply							;point at start of I/O record
					phy
					jsr		scan_scsi_devs		;go look for scsi devices
					ply

@200				tya							;point to next I/O record
					clc
					adc		#iorec_size
					cmp		#iotsize			;see if all records checked
					tay							;next record index
					bcc		@100

					lda		|devices_found		;assume no devices found
					bne		exit

					jsr		id_assignment		;walk through the SDR table assigning IDs
					bcs		errexit

exit				clc
errexit				rts

					ENDP
		
					EJECT

;*******************************************************
;
;	'setup_work_vars'
;
;	This routine will copy several parameters from a
;	given I/O record into several working variables.
;
;	ENTRY:		JSR
;
;	Inputs:		e,m,x			=	0 (full native)
;				Acc				=	undefined
;				X reg			=	undefined
;				Y reg			=	undefined
;				Bank			=	Ours
;				dpage			=	Ours
;				Stack			=	undefined
;				Speed			=	fast
;
;	Output:		e,m,x			=	ENTRY
;				X reg			=	undefined
;				Y reg			=	undefined
;				Acc				=	Error Code 
;				Carry			=	0 for successful call
;									1 for unsuccessful call
;				dpage			=	ENTRY
;				Bank			=	ENTRY
;				Stack			=	ENTRY
;				Speed			=	ENTRY
;
;		The following variables loaded from the
;		I/O record
;				io_offset		=	long word
;				dma_offset		=	long word
;				io_attrbs		=	word
;				init_priority	=	word
;
;	Errors:		See Error Listing on Equates file
;
;*******************************************************
;
					;EXPORT	setup_work_vars
setup_work_vars		PROC

					ldy		#slot
					lda		[iorec_ptr],y		;check for slot/port present
					sta		<slot_no			;save the slot number

					jsl		slot_arbit			;enable this slot if we can

					ldy		#hwd_type
					lda		[iorec_ptr],y		;get hardware type
					sta		|hwd_version

					ldy		#scsi_base
					lda		[iorec_ptr],y		;point to base address of scsi controller
					sta		<io_offset

					ldy		#scsi_bank
					lda		[iorec_ptr],y		;high word of scsi controller io address
					sta		<io_offset+2

					ldy		#dma_base
					lda		[iorec_ptr],y
					sta		<dma_offset

					ldy		#dma_bank
					lda		[iorec_ptr],y
					sta		<dma_offset+2

					ldy		#io_attrbs			;point to hardware attributes
					lda		[iorec_ptr],y
					sta		|ioattrbs

					ldy		#initpriot
					lda		[iorec_ptr],y
					sta		|init_priority
												;
												; point to card's address table
												;
					phx

					lda		|hwd_version		;get hardware type
					asl		a
					asl		a
					tax

					lda		|addr_tables,x		;pointer to this interface routines addr table
					sta		<addr_table_ptr

					lda		|addr_tables+2,x
					sta		<addr_table_ptr+2

					plx
					rts

					ENDP
	
					EJECT

;*******************************************************
;
;	'check_logicals'
;
;	This module will check logical units which may exist
;	under SCSI devices.  Checking is done by issuing a
;	scsi Inquiry call to scsi device IDs. The call will
;	request 256 bytes of data and save it away.  When
;	the Inquiry call is made to the next logical unit the
;	data returned by that call will be compared against
;	the data saved away.  If they match then the current
;	Logical unit will not have a SDR built for it.  Also,
;	there will be no further scanning of logical units
;	under this scsi device ID.
;
;	ENTRY:		JSR
;
;	Inputs:		e,m,x			=	0 (full native)
;				Acc				=	undefined
;				X reg			=	undefined
;				Y reg			=	undefined
;				Bank			=	Ours
;				dpage			=	Ours
;				Stack			=	undefined
;				Speed			=	fast
;
;	Output:		e,m,x			=	ENTRY
;				X reg			=	undefined
;				Y reg			=	undefined
;				Acc				=	Error Code 
;				Carry			=	0 for successful call
;									1 for unsuccessful call
;				dpage			=	ENTRY
;				Bank			=	ENTRY
;				Stack			=	ENTRY
;				Speed			=	ENTRY
;
;	Errors:		Those from 'call_target'
;
;*******************************************************
;
					;EXPORT	check_logicals
check_logicals		PROC

					stz		<dev_id				;fake the find_sdr routine
					stz		|last_acc_id2
					stz		|lutemp				;logical units for device temp flags (assume all ok)
					stz		|ckluflag			;$FFFF marks when we have 2 inq buffers to compare
					stz		<logunit			;logical unit #0-7
					stz		|ident_modify		;Disconnect Flag
												;
												; setup some variables so we can issue
												; find_sdr subroutine call
												;
					lda		<slot_no			;set the slot number
					sta		|last_acc_slot2
					sta		|tu_slot
					sta		|inq_slot			;in the parameter list
					sta		|sense_slot

					lda		#lu0				;check Logical units 0-7 (in scsi packet form)

					SHORTM						;m=1

 					sta		|tulunit			;logical unit for test unit ready parameter list
 					sta		|inq_lunit			;logical unit number in inquiry cmd packet
  					sta		|sense_lunit		;logical unit number in req_sense cmd packet

					LONGM						;m=0

checklu				ldx		#tu_slot			;point to test unit ready parameter list
					ldy		#^tu_slot

					jsr		set_plist

					jsr		calltarget			;issue call to the target (ignore status from target)

					ldx		#inq_slot			;point to inquiry paramter list
					ldy		#^inq_slot			;get our bank address

					jsr		set_plist			;set parameter list

					jsr		calltarget			;issue call to the target

					bcs		errexit				;go away if error
												;
												; check if inquiry call succeeded
												;
					lda		|scsi_status		;scsi status & message byte must be zero if ok
					ora		|scsi_message
					beq		@125				;good call go mark it in the list
												;
												; inq call failed figure out why
												;
					jsr		get_plist			;save old parameter list pointer

					phy
					phx

					ldx		#sense_slot			;point to request sense parameter list
					ldy		#^sense_slot		;get our bank address

					jsr		set_plist			;set parameter list

					jsr		calltarget			;issue call to the target

					plx							;point back to inquiry parameter list
					ply

					jsr		set_plist

					lda		|scsi_status		;see if request sense failed
					bne		@150

					lda		|sense_buff			;get the error class
					and		#$007F				;mask off the valid bit
					cmp		#$0070				;check for class 7 code $00
					bne		@150				;class was not 7 or code <> zero

					lda		|sense_buff+2		;get the sense key and check if device really exists
					and		#$000F				;keep the sense key only
					beq		@125				;we are ok mark device as existing

					cmp		#$0001				;check for recovered error
					beq		@125
					cmp		#$0006				;check for unit attention

					bne		@150

@125				lda		|inq_buff			;check first byte for lu not supported ($7F)
					and		#$00FF
					cmp		#lunotavail
					bne		@200

@150				ldy		|inq_lunit			;get the LU #

					jsr		setnoscan			;LU not available (don't scan for it again)

					jsr		nextlu
					bne		@150				;once an lu fails mark remaining LUs not available
					beq		exit				;for this SCSI ID
												;
												; Mark LU online & build SDR
												;
@200				ldy		|inq_lunit			;mark this LU online

					jsr		setonline

					jsr		build_sdr			;build an SDR for this LU (may get tossed later)

					stz		|devices_found		;we have a scsi target online
												;
												; **** TEST CODE ****
												; Eleiminate support for multiple LUs.
												;
					bra		@275

@250				ldy		|inq_lunit			;get the LU #

					jsr		setnoscan			;LU not available (don't scan for it again)

@275				jsr		nextlu
					bne		@250				;once an lu fails mark remaining LUs not available
					beq		exit				;for this SCSI ID

;					jsr		nextlu
;					beq		exit				;for this SCSI ID
;					brl		checklu
												;
												; **** TEST CODE ****
												; Eleiminate support for multiple LUs.
												;

exit				lda		|lutemp				;get the logical unit bit mapping
					clc
errexit				rts

												;
												; This module contains a canned
												; packet for test unit ready call
												;
tu_slot				dc.w	$0000				;slot number
					dc.w	$0000				;id field
					dc.w	$0000				;parameter list version
					dc.w	$0000				;flags
					dc.w	$0008				;give call 2 seconds to complete
					dc.l	$00000000			;completion vector
					dc.l	tuscmd				;pointer to scsi test unit ready
												; command packet
					dc.l	$00000000			;no byte count returned
					dc.l	$00000000			;message buffer pointer
					dc.l	$00000000			;reserved

tuscmd				dc.b	$00					;command number
					EXPORT	tulunit
tulunit				dc.b	$00					;no data coming back
					dc.l	$00000000			;4 bytes of zero
												;
												; This module contains the parameter
												; list for the Inquiry call made to
												; interrogate devices on the scsi bus
												; when building the SDRs.
												;
inq_slot			dc.w	$0000				;low  word of 32 bit device ID field
					dc.w	$0000				;id = $0000
					dc.w	$0000				;parameter list version
					dc.w	$0000				;flags
					dc.w	$0004				;1 sec Timeout
					dc.l	$00000000			;no completion vector
					dc.l	inqcmd				;scsi command pointer
					dc.l	dcstruc				;data chaining instructions
					dc.l	$00000040			;request 8 bytes
					dc.l	$00000000			;message buffer pointer
					dc.l	$00000000			;reserved

inqcmd				dc.b	$12					;inquiry command
					EXPORT	inq_lunit
inq_lunit			dc.b	$00					;b7-b5 = Logical unit, b4-b0 = reserved
					dc.b	$00					;reserved
					dc.b	$00					;reserved
					dc.b	$08					;8 bytes of data requested
					dc.b	$00					;Vendor unique & flag & link bits

dcstruc				dc.l	inq_buff			;inquiry buffer address
					dc.l	inq_end-inq_buff	;byte count to request
					dc.l	$00000000			;number to add to buffer address
					dc.l	$00000000			;save inquiry pointer area
												;
												; This module contains the parameter
												; list for the Inquiry call made to
												; interrogate devices on the scsi bus
												; when building the SDRs.
												;
					EXPORT	sense_slot
sense_slot			dc.w	$0000				;low  word of 32 bit device ID field
					EXPORT	senseid
senseid				dc.w	$0000				;id = $0000
					dc.w	$0000				;parameter list version
					dc.w	$0000				;flags
					dc.w	$0010				;give the call 16 secs to complete
					dc.l	$00000000			;completion vector
					dc.l	sense_cmd			;scsi command pointer
					dc.l	sensebstruc			;DC instructions for request sense
					dc.l	$00000004			;request 4 bytes
					dc.l	$00000000			;autosense buffer pointer
					dc.l	$00000000			;message buffer pointer
					dc.l	$00000000			;reserved

sense_cmd			dc.b	$03					;request Sense
					EXPORT	sense_lunit
sense_lunit			dc.b	$00					;b7-b5 = Logical unit, b4-b0 = reserved
					dc.b	$00					;reserved
					dc.b	$00					;reserved
					EXPORT	sensecnt0
sensecnt0			dc.b	$00					;forces 4 bytes of request sense data
					dc.b	$00					;Control byte

					EXPORT	sensebstruc
sensebstruc			dc.l	sense_buff			;sense buffer
					EXPORT	sensecnt1
sensecnt1			dc.l	$00000000			;sense byte count requested
					dc.l	$00000000			;number to add to buffer address
					dc.l	$00000000			;save inquiry pointer area
					dc.l	$00000000			;DCStop Area
					dc.l	$00000000			;DCStop Area
					dc.l	$00000000			;DCStop Area
					dc.l	$00000000			;DCStop Area

					;EXPORT	sense_buff
sense_buff			ds.b	$04					;24 byte buffer for request sense & inq calls

					EXPORT	inq_buff
					EXPORT	inq_end
inq_buff			ds.b	$40					;40 byte inquiry buffer
inq_end

					ENDP

					EJECT

;*******************************************************
;
;	'calltarget'
;
;	This routine issues a call to a target device and
;	returns with the SCSI status and scsi message bytes
;	set to what the target returned.
;
;	ENTRY:		JSR
;
;	Inputs:		e,m,x			=	0 (full native)
;				Acc				=	undefined
;				X reg			=	Low word of parameter list address
;				Y reg			=	High word of parameter list address
;				Bank			=	Ours
;				dpage			=	Ours
;				Stack			=	undefined
;				Speed			=	fast
;
;	Output:		e,m,x			=	ENTRY
;				|scsi_status	=	status byte returned by the target
;				|scsi_message	=	message byte returned by the target
;				X reg			=	undefined
;				Y reg			=	undefined
;				Acc				=	undefined 
;				Carry			=	0 for successful call
;				dpage			=	ENTRY
;				Bank			=	ENTRY
;				Stack			=	ENTRY
;				Speed			=	ENTRY
;
;	Errors:		See Error Listing on Equates file
;
;*******************************************************
;
					;EXPORT	calltarget
calltarget			PROC

					jsr		get_plist			;get the parameter list for this call

					jsr		setzpgvars			;setup zero page work variables

					jsr		find_sdr			;find a scsi device record to match
					bcs		errexit
												;
												; initialize more DCI instructions flag
												;
					lda		#$FFFF
					sta		|more_dci
												;
												; go access the target
												;
					lda		#arbph				;go arbitrate for control of scsi bus
					jsr		callrtn
					bcs		errexit				;go away if an error occurs

					lda		#selectph			;select the target device
					jsr		callrtn
					bcs		errexit				;go away if an error occurs

					lda		#setup
					jsr		callrtn

					lda		#phase_hand			;phase handler for old scsi card
					jsr		callrtn

					stz		|busy_sdr_count		;compensate for decrement in the msg complete
errexit				rts

					ENDP

					EJECT

;*******************************************************
;
;	'nextlu'
;
;	This routine will bump the logical unit ID work
;	fields and decide if it has rolled past LU 7.
;
;	ENTRY:		JSR
;
;	Inputs:		e,m,x			=	0 (full native)
;				Acc				=	undefined
;				X reg			=	undefined
;				Y reg			=	undefined
;				Bank			=	Ours
;				dpage			=	Ours
;				Stack			=	undefined
;				Speed			=	fast
;
;	Output:		e,m,x			=	ENTRY
;				|inq_lunit		=	MODIFIED
;				|tulunit		=	MODIFIED
;				|sense_lunit	=	MODIFIED
;				X reg			=	undefined
;				Y reg			=	undefined
;				Acc				=	undefined
;				Carry			=	0 for successful call
;				Z Bit			=	1 if rolled past LU 7
;				dpage			=	ENTRY
;				Bank			=	ENTRY
;				Stack			=	ENTRY
;				Speed			=	ENTRY
;
;	Errors:		See Error Listing on Equates file
;
;*******************************************************
;
					;EXPORT	nextlu
nextlu				PROC

					SHORTM						;m=1
												;
												; see if lu 7 checked
												;
					inc		<logunit			;logical unit number 0-7

					lda		|inq_lunit
					clc
					adc		#lu1
					sta		|tulunit			;update the test unit ready cmd packet
					sta		|inq_lunit			;update inquiry cmd packet
					sta		|sense_lunit		;update req_sense cmd packet

					LONGM						;m=0

					rts

					ENDP

					EJECT

;*******************************************************
;
;	'build_sdr'
;
;	This routine builds the SCSI device records for each
;	logical unit found in the system.
;
;	ENTRY:		JSR
;
;	Inputs:		e,m,x			=	0 (full native)
;				Acc				=	undefined
;				X reg			=	undefined
;				Y reg			=	undefined
;				Bank			=	Ours
;				dpage			=	Ours
;				Stack			=	undefined
;				Speed			=	fast
;
;	Output:		e,m,x			=	ENTRY
;				X reg			=	undefined
;				Y reg			=	undefined
;				Acc				=	Error Code 
;				Carry			=	0 for successful call
;									1 for unsuccessful call
;				dpage			=	ENTRY
;				Bank			=	ENTRY
;				Stack			=	ENTRY
;				Speed			=	ENTRY
;
;	Errors:		See Error Listing on Equates file
;
;*******************************************************
;
					;EXPORT	build_sdr
build_sdr			PROC
												;
												; allocate next SDR record
												;
					jsr		alloc_nxt_sdr		;get the address for the next SDR
					bcs		exit

					sty		<sdr_ptr+2
					sta		<sdr_ptr
												;
												; device type from inquiry buffer
												;
					lda		|inq_buff\
							+inq_devtype		;get the device type & standard version
					and		#$00FF				;low byte only
					ldy		#sdr_devtype
					sta		[sdr_ptr],y
												;
												; scsi standard version
												;
					lda		|inq_buff\
							+inq_version
					and		#$00FF				;low byte only
					ldy		#sdr_standard_vers
					sta		[sdr_ptr],y
												;
												; mark removeable bit in attributes
												;
					ldy		#sdr_flags			;point to LU attributes word
					lda		inq_buff+inq_rmb	;check for removeable media
					and		#scsi_rmb			;bit 7 only
					beq		@50

					lda		#sdr_attrb_rmb		;mark removeable bit in SDR
					ora		[sdr_ptr],y
					sta		[sdr_ptr],y
												;
												; save Slot, Device priority,
												; Initiator priority & logical unit
												; in SDR
												;
@50					phx				

					ldy		#sdr_logunit
					lda		<logunit			;our logical unit number
					sta		[sdr_ptr],y

					ldy		#sdr_targ_priot		;target priority
					lda		|target_priority
					sta		[sdr_ptr],y

					ldy		#sdr_init_priot		;initiator priority
					lda		|init_priority
					sta		[sdr_ptr],y

					ldy		#sdr_slot			;slot number
					lda		<slot_no
					sta		[sdr_ptr],y
												;
												; copy parameters from the scsi io
												; record into the SDR
												;
					ldy		#scsi_base			;point to the hardware addr in io record
					lda		[iorec_ptr],y
					ldy		#sdr_5380_base
					sta		[sdr_ptr],y

					ldy		#scsi_base+2
					lda		[iorec_ptr],y
					ldy		#sdr_5380_base+2
					sta		[sdr_ptr],y

					ldy		#dma_base			;dma controller base address	
					lda		[iorec_ptr],y
					ldy		#sdr_dma_base
					sta		[sdr_ptr],y

					ldy		#dma_base+2	
					lda		[iorec_ptr],y
					ldy		#sdr_dma_base+2		;write them into the SDR
					sta		[sdr_ptr],y

					inc		<sdrsonline			;bump the number of SDRs in the table
					plx

exit				rts

					ENDP

					EJECT

;*******************************************************
;
;	'scan_scsi_devs'
;
;	This module scans a particular scsi slot or scsi
;	built-in port for SCSI devices online.  The scsi
;	devices are checked from scsi dev 7 through scsi dev
;	0.
;
;	ENTRY:		JSR
;
;	Inputs:		e,m,x			=	0 (full native)
;				Acc				=	undefined
;				X reg			=	undefined
;				Y reg			=	undefined
;				Bank			=	Ours
;				dpage			=	Ours
;				Stack			=	undefined
;				Speed			=	fast
;
;	Output:		e,m,x			=	ENTRY
;				X reg			=	undefined
;				Y reg			=	undefined
;				Acc				=	undefined 
;				Carry			=	undefined
;				dpage			=	ENTRY
;				Bank			=	ENTRY
;				Stack			=	ENTRY
;				Speed			=	ENTRY
;
;	Errors:		See Error Listing on Equates file
;
;*******************************************************
;
					;EXPORT	scan_scsi_devs
scan_scsi_devs		PROC

					jsr		chkbusfloat			;check for floating scsi bus
					bcs		scexit				;if floating, we are done here

					lda		#scsi_prior7		;start with priority 7
					sta		|target_priority

					ldy		#d7logicals			;start at scsi device 7
					bra		chkdup

scloop				jsr		check_logicals		;check logical units (A=$FFFF no logicals)
					bcc		setd				;C=0 if scsi device found
	
duplic				lda		#no_device			;assume no scsi device found	

setd				ldy		|yhold				;restore device number
					sta		[iorec_ptr],y

					dey							;point to next scsi device table ENTRY
					dey

					stz		|error_stat			;clear possible select error from no target

skipp				lsr		|target_priority	;set for next priority
					bcs		scexit	

chkdup				sty		|yhold				;save the table index

					lda		|init_priority		;if target = initiator priority skip it
					cmp		|target_priority
					beq		duplic				;skip this one
					bra		scloop

scexit				rts

					ENDP
		
					EJECT

;*******************************************************
;
;	'save_work_vars'
;
;	This routine will save our working variables into a
;	holding buffer.
;
;	Inputs:		e,m,x			=	0 (full native)
;				Acc				=	undefined
;				X reg			=	undefined
;				Y reg			=	undefined
;				dpage			=	undefined
;				Stack			=	undefined
;				Bank			=	undefined
;				Speed			=	undefined
;
;	Output:		e,m,x			=	ENTRY
;				X reg			=	ENTRY
;				Y reg			=	ENTRY
;				Carry			=	undefined
;				Acc				=	ENTRY
;				dpage			=	ENTRY
;				Stack			=	ENTRY
;				Bank			=	ENTRY
;				Speed			=	ENTRY
;		
;*******************************************************

					;EXPORT	save_work_vars
save_work_vars		PROC

					phx							;save registers
					pha

					ldx		#work_vars_size
save_loop			lda		|scsi_variables,x	;save a piece of GS/OS zero page
					sta		|work_vars_buffer,x

					dex
					beq		save_loop

					dex
					bpl		save_loop


					pla							;restore registers
					plx

					rts							;>>>--- save work_vars --->>>

					ENDP

					EJECT

;*******************************************************
;
;	'rest_work_vars'
;
;	This routine will restore our work variables into
;	their respective locations from a holding buffer
;	used to copy them into during an IRQ
;
;	Inputs:		e,m,x			=	0 (full native)
;				Acc				=	undefined
;				X reg			=	undefined
;				Y reg			=	undefined
;				dpage			=	undefined
;				Stack			=	undefined
;				Bank			=	undefined
;				Speed			=	undefined
;
;	Output:		e,m,x			=	ENTRY
;				X reg			=	ENTRY
;				Y reg			=	ENTRY
;				Carry			=	undefined
;				Acc				=	ENTRY
;				dpage			=	ENTRY
;				Stack			=	ENTRY
;				Bank			=	ENTRY
;				Speed			=	ENTRY
;		
;*******************************************************

					;EXPORT	rest_work_vars
rest_work_vars		PROC

					phx							;save registers
					pha

					ldx		#work_vars_size

restore_loop		lda		|work_vars_buffer,x
					sta		|scsi_variables,x	;restore a piece of zero page

					dex
					beq		restore_loop

					dex
					bpl		restore_loop

					pla							;restore registers
					plx

					rts							;>>>--- restore work vars --->>>
		
					ENDP

					EJECT

;*******************************************************
;
;	'smartp_scsi_chk'
;
;	This routine checks for smartport SCSI devices
;	signatures.
;
;		$CN01	=	$20
;		$CN03	=	$00
;		$CN05	=	$03
;		$CN07	=	$00
;
;	and if match then checks
;
;		$CNFB bit 1 = 1 signifying a SCSI Smartport
;		device
;
;	If the above criteria is met then a check against
;	part of the rom image will be made and if a match is
;	found then it is assumed that the card is an old
;	Apple II scsi card.
;
;	ENTRY:		JSR
;
;	Inputs:		e,m,x			=	0 (full native)
;				slot_no			=	slot number to check
;				Acc				=	undefined
;				X reg			=	undefined
;				Y reg			=	undefined
;				Bank			=	Ours
;				dpage			=	Ours
;				Stack			=	undefined
;				Speed			=	fast
;
;	Output:		e,m,x			=	ENTRY
;				X reg			=	ENTRY
;				Y reg			=	ENTRY
;				Acc				=	undefined
;				1.	Carry		=	0 and
;					Overflow	=	0 old apple scsi card
;				2.	Carry		=	1 and
;					Overflow	=	x not scsi card
;				3.	Carry		=	0 and
;					Overflow	=	1 scsi card but not old Apple
;									scsi card
;				dpage			=	ENTRY
;				Bank			=	ENTRY
;				Stack			=	ENTRY
;				Speed			=	ENTRY
;
;	Errors:		See Error Listing on Equates file
;
;*******************************************************
;
					;EXPORT	smartp_scsi_chk
smartp_scsi_chk		PROC

					phx							;save registers
					phy

					lda		<slot_no			;get slot number
					and		#slot7				;mask off internal/external bit
					xba							;times $100
					tax							;index for soft switches

					SHORTM

					lda		>io_space+1,x		;check $00CN01 = $20
					cmp   	#$0020
					bne		@100				;go away if no match

					lda		>io_space+3,x		;check $00CN03 = $00
					bne		@100				;go away if no match

					lda		>io_space+5,x		;check $00CN05 = $03
					cmp		#$0003
					bne		@100				;go away if no match

					lda		>io_space+7,x		;check $00CN07 = $00
					bne		@100				;go away if no match

					lda		>io_space+$FB,x		;check $00CNFB bit 1
					and		#%0000000000000010	;bit 1 must be one for scsi
					bne		@200

@100				sec							;C=1 (not scsi card)
					bcs		@300

@200				clc							;C=0 (scsi card)

@300				LONGM

					ply							;restore registers
					plx
					rts							;>>>-- check_slot --->>>

					ENDP

					EJECT

;*******************************************************
;
;	'millisec_delay'
;
;	This routine will delay a number of milliseconds
;	specified by the contents of the A register.
;
;	ENTRY:		JSR
;
;	Inputs:		e,m,x			=	0 (full native)
;				Acc				=	undefined
;				X reg			=	undefined
;				Y reg			=	delay count 1-65536
;									($0000=65536 millisecs)
;				Bank			=	Ours
;				dpage			=	Ours
;				Stack			=	undefined
;				Speed			=	fast
;
;	Output:		e,m,x			=	ENTRY
;				X reg			=	null
;				Y reg			=	null
;				Acc				=	undefined
;				Carry			=	ENTRY
;				dpage			=	ENTRY
;				Bank			=	ENTRY
;				Stack			=	ENTRY
;				Speed			=	ENTRY
;
;	Errors:		See Error Listing on Equates file
;
;*******************************************************
;
					;EXPORT	millisec_delay
millisec_delay		PROC

					php							;save m,x, and IRQ
					sei							;no interruptions

					SHORTM						;m=1

					lda		>cyareg				;get cya register contents
					pha
					and		#<%01111111			;slow the system down
					sta		>cyareg
					pla							;keep old cya register setting

delay_millisec		ldx		#millisec_count		;1 millisecond delay count

millis_del_loop		dex							; 2 cycles
					bne		millis_del_loop		; 3 (2 if branch fails)
					dey
					bne		delay_millisec		;keep delaying until zero
					sta		>cyareg				;restore cya register

					longa	on					;Fix Assembler

					plp							;restore m,x, and IRQ
					rts

					ENDP

					EJECT

;*******************************************************
;
;	'setzpgvars'
;
;	This routine will setup all the zero page pointers
;	to access the parameters list provided by the device
;	driver.  Also, the routine validates the parameter
;	list and initializes internal work variables.  This
;	routine will work for SCSI_IO call only!
;
;	ENTRY:		JSR
;
;	Inputs:		e,m,x			=	0 (full native)
;				Acc				=	undefined
;				X reg			=	Low parm list ptr from caller
;				Y reg			=	High parm list ptr from caller
;				Bank			=	Ours
;				dpage			=	Ours
;				Stack			=	undefined
;				Speed			=	fast
;
;	Output:		e,m,x			=	ENTRY
;				X reg			=	undefined
;				Y reg			=	undefined
;				Acc				=	undefined
;				Carry			=	undefined
;				dpage			=	ENTRY
;				Bank			=	ENTRY
;				Stack			=	ENTRY
;				Speed			=	ENTRY
;
;	Errors:		None
;
;*******************************************************
;
					EXPORT	setzpgvars
setzpgvars			PROC
												;
												; copy parameters into work variables
												;
					stx		<plist_ptr
					sty		<plist_ptr+2

					ldy		#plst_slot			;get the ID of the device (slot & unit number)
					ldx		#0000				;destination index

@100				lda		[plist_ptr],y		;get the ID of device sought
					sta		<zpgwptrs,x

					inx
					inx

					iny
					iny

					cpy		#wptrssize			;check if all pointers moved
					blt		@100	
												;
												; clear parameter list request count
												; need field for transfer count
												;
@150				ldy		#plst_reqxfr_cnt	;clear parameter list request count

					lda		#$0000				;a copy of the request count saved in zpg
					sta		[plist_ptr],y

					ldy		#plst_reqxfr_cnt+2
					sta		[plist_ptr],y
												;
												; initialize the DC PC to start of data
												; chain instructions
												;
					lda		<dclst_ptr
					sta		<dc_pc

					lda		<dclst_ptr+2
					sta		<dc_pc+2

					clc
					rts
	
					ENDP
	
					EJECT

;*******************************************************
;
;	'get_plist'
;
;	This routine gets the address of the parameter list
;	address from the SIB.
;
;	ENTRY:		JSR
;
;	Inputs:		e,m,x			=	0 (full native)
;				Acc				=	undefined
;				X reg			=	undefined
;				Y reg			=	undefined
;				Bank			=	Ours
;				dpage			=	Ours
;				Stack			=	undefined
;				Speed			=	fast
;
;	Output:		e,m,x			=	ENTRY
;				X reg			=	Low word of parm list addr
;				Y reg			=	High word of parm list addr
;				Acc				=	undefined
;				Carry			=	undefined
;				dpage			=	ENTRY
;				Bank			=	ENTRY
;				Stack			=	ENTRY
;				Speed			=	ENTRY
;
;	Errors:		None
;
;*******************************************************
;
					EXPORT	get_plist
get_plist			PROC

					ldx		|gsos_zpg_hold		;point to GS/OS zero page
					lda		>sib_plptr+2,x
					tay
					lda		>sib_plptr,x		;get address of parameter list
					tax
					rts

					ENDP

					EJECT

;*******************************************************
;
;	'set_plist'
;
;	This routine sets the address of the parameter list
;	address in the SIB.
;
;	ENTRY:		JSR
;
;	Inputs:		e,m,x			=	0 (full native)
;				Acc				=	undefined
;				X reg			=	Low word of parm list addr
;				Y reg			=	High word of parm list addr
;				Bank			=	Ours
;				dpage			=	Ours
;				Stack			=	undefined
;				Speed			=	fast
;
;	Output:		e,m,x			=	ENTRY
;				X reg			=	undefined
;				Y reg			=	ENTRY
;				Acc				=	undefined
;				Carry			=	ENTRY
;				dpage			=	ENTRY
;				Bank			=	ENTRY
;				Stack			=	ENTRY
;				Speed			=	ENTRY
;
;	Errors:		See Error Listing on Equates file
;
;*******************************************************
;
					EXPORT	set_plist
set_plist			PROC

					txa
					ldx		|gsos_zpg_hold		;point to GS/OS zero page
					sta		>sib_plptr,x		;set address of parameter list
					tya
					sta		>sib_plptr+2,x
					rts

					ENDP
	
					EJECT

;*******************************************************
;
;	'find_sdr'
;
;	This module will walk compare the slot & scsi device
;	id against the IDs of each scsi device record
;	looking for a match.  If the ID is found sdr_ptr
;	will be set with the address of this scsi device
;	record.  If it is not found carry will be set to
;	signify an error.
;
;	ENTRY:		JSR
;
;	Inputs:		e,m,x			=	0 (full native)
;				|dev_id			=	id sought
;				Acc				=	undefined
;				X reg			=	undefined
;				Y reg			=	index to start of specific
;									I/O record
;				Bank			=	Ours
;				dpage			=	Ours
;				Stack			=	undefined
;				Speed			=	fast
;
;	Output:		e,m,x			=	ENTRY
;				X reg			=	low word of SDR record address
;				X reg			=	low word of SDR record address
;				Acc				=	high lword of SDR record address
;								=	Error Code if Carry Set
;				Carry			=	0
;								=	1 if no ID found
;				dpage			=	ENTRY
;				Bank			=	ENTRY
;				Stack			=	ENTRY
;				Speed			=	ENTRY
;
;	Errors:		See Error Listing on Equates file
;
;*******************************************************
;
					EXPORT	find_sdr
find_sdr			PROC

					lda		|last_acc_slot2		;get last accessed slot number
					cmp		<dev_slot
					bne		@100				;check alternate accessed slot field if no match

					lda		|last_acc_id2
					cmp		<dev_id
					bne		@100				;check alternate accessed id field

					ldy		|last_sdr_ptr2
					lda		|last_sdr_ptr2+2
					bra		@setsdr				;set the pointer for the sdr record

@100				lda		|last_acc_slot1		;get the id sought
					cmp		<dev_slot			;compare against last accessed slot
					bne		@200				;check alternate accessed slot field if no match

					lda		|last_acc_id1	
					cmp		<dev_id
					bne		@200

					ldy		|last_sdr_ptr1
					lda		|last_sdr_ptr1+2
					bra		@setsdr				;set the pointer for the sdr record

@200				lda		<sdr_table_ptr+2	;form work pointer
					sta		<sdr_ptr+2

					lda		<sdr_table_ptr
					sta		<sdr_ptr

					lda		<sdrsonline			;number of sdrs to check
					sta		<sdrstocheck

@300				ldy		#sdr_slot			;point to the slot number in this SDR
					lda		[sdr_ptr],y
					cmp		<dev_slot			;compare against sought slot
					bne		@325

					ldy		#sdr_device_id		;point to ID field within SDR
					lda		<dev_id				;get the device ID
					cmp		[sdr_ptr],y			;compare IDs
					beq		@400

@325				ldy		#$0002				;get address to next SDR
					lda		[sdr_ptr],y
					pha

					lda		[sdr_ptr]
					sta		<sdr_ptr

					pla
					sta		<sdr_ptr+2

					dec		<sdrstocheck
					bne		@300

@nosdr				stz		|last_acc_id1		;clear both last_acc_id fields
					stz		|last_acc_id2

					lda		#bad_scsi_id		;report an error
					sta		|error_stat

					sec							;mark bad id
					rts
												;
												; return the address of the SDR
												;
@400				ldx		|last_acc_flag		;get last access flag/index

					lda		<dev_slot			;slot number
					sta		|last_acc_slot1,x	;save the slot number

					lda		<dev_id
					sta		|last_acc_id1,x		;save the id of this field

					lda		<sdr_ptr			;get the address of the SDR
					sta		|last_sdr_ptr1,x
					tay

					lda		<sdr_ptr+2
					sta		|last_sdr_ptr1+2,x
												;
												; toggle the accessed flag so we
												; know which pointer to change next
												; time we do not find the slot &
												; unit we seek.
												;
					pha							;save high word of sdr address
					txa							;toggle the flag & form new index
					eor		#last_acc_id2\
							-last_acc_id1
					sta		|last_acc_flag		;save the flag/index for next time

					pla
@setsdr				clc							;mark success
endfsdr				rts
	
					ENDP

					EJECT

;*******************************************************
;
;	'priot_to_dev'
;
;	This routine will convert a scsi priority number
;	into a scsi device number.  For example scsi
;	priority $80 = $07.
;
;	NOTE:	This routine will hang in an infinite loop if
;			priority = $0000
;
;	ENTRY:		JSR
;
;	Inputs:		e,m,x			=	0 (full native)
;				Acc				=	scsi priority to convert
;				X reg			=	undefined
;				Y reg			=	undefined
;				Bank			=	Ours
;				dpage			=	Ours
;				Stack			=	undefined
;				Speed			=	fast
;
;	Output:		e,m,x			=	ENTRY
;				X reg			=	scsi device number
;				Y reg			=	undefined
;				Acc				=	scsi device number
;				Carry			=	0 for successful call
;									1 for unsuccessful call
;				dpage			=	ENTRY
;				Bank			=	ENTRY
;				Stack			=	ENTRY
;				Speed			=	ENTRY
;
;	Errors:		ID '0' Passed
;
;*******************************************************
;
					EXPORT	priot_to_dev
priot_to_dev		PROC

					sec							;Preload Error
					and		#$00FF				;priority $80-$01 only
					beq		@rts

					clc
					ldx		#$0007				;start with scsi device $0007
					xba							;in high byte of accumulator
@100				asl		a					;shift scsi priority into carry
					bcs		@200

					dex
					bra		@100

@200				txa							;dev number in accumulator
@rts				rts

					ENDP
	
					EJECT

;*******************************************************
;
;	'getticks'
;
;	This routine will check the timeout count for a
;	value greater than $10000.  If the value is greater,
;	it subtracts $FFFF from the value and returns with
;	the accumulator set to $FFFF.  If the value is less
;	than $10000, the accumulator will be set to the value
;	of the low word of the timeout.
;
;	ENTRY:		JSR
;
;	Inputs:		e,m,x			=	0 (full native)
;				[SDR_PTR]		=	record containing the timeout
;									value to check
;				Acc				=	undefined
;				X reg			=	undefined
;				Y reg			=	undefined
;				Bank			=	Ours
;				dpage			=	Ours
;				Stack			=	undefined
;				Speed			=	fast
;
;	Output:		e,m,x			=	ENTRY
;				X reg			=	undefined
;				Y reg			=	undefined
;				Acc				=	value of low timeout word.
;								=	$FFFF if value in 32 bit timeout
;									field greater than $10000
;				Carry			=	undefined
;				dpage			=	ENTRY
;				Bank			=	ENTRY
;				Stack			=	ENTRY
;				Speed			=	ENTRY
;
;	Errors:		None
;
;*******************************************************
;
					EXPORT	getticks
getticks			PROC
												;
												; check high word of timeout > $0000
												;
					ldy		#sdr_timeout+2
					lda		[sdr_ptr],y
					php
												;
												; get contents timeout low word then
												; check if high word was zero
												;
					ldy		#sdr_timeout
					lda		[sdr_ptr],y
					plp
					bne		@100				;high word was zero go away with low
												;word contents
												;
												; clear low word of timeout count
												;
					pha
					lda		#$0000
					sta		[sdr_ptr],y
					pla
					rts							;go away
												;
												; subtract $FFFF from low word save
												; result and adjust high word
												;
@100				sec
					sbc		#$FFFF
					sta		[sdr_ptr],y

					ldy		#sdr_timeout+2		;point to high word of timeout
					lda		[sdr_ptr],y
					sbc		#$0000
					sta		[sdr_ptr],y

					lda		#$FFFF				;value to load into heartbeat header
					rts

					ENDP
	
					EJECT

;*******************************************************
;
;	'setonline'
;	'setnoscan'
;	'setlupatt'
;
;	The next three routine will set the corresponding
;	bit combinations in the logical unit field positions
;	of each scsi I/O record.  There are three possible
;	bit patterns which may be set for each logical unit.
;
;	Logical Unit Bitmap:
;
;		 F E D C B A 9 8 7 6 5 4 3 2 1 0
;		+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
;		|   |   |   |   |   |   |   |   |   SCSI Device N Logical unit bitmap
;		+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
;		 LU7 LU6 LU5 LU4 LU3 LU2 LU1 LU0
;
;	Bit Pattern Definitions
;		00	=	Unit needs scanning
;		01	=	Logical unit online do not scan
;		10	=	Currently selecting SCSI device for these
;				8 logicals
;		11	=	Logical unit not available (do not scan
;				for it)
;
;	ENTRY:		JSR
;
;	Inputs:		e,m,x			=	0 (full native)
;				Acc				=	undefined
;				X reg			=	undefined
;				Y reg			=	LU # to update in word pattern
;				Bank			=	Ours
;				dpage			=	Ours
;				Stack			=	undefined
;				Speed			=	fast
;
;	Output:		e,m,x			=	ENTRY
;				X reg			=	undefined
;				Y reg			=	undefined
;				Acc				=	undefined
;				Carry			=	undefined
;				dpage			=	ENTRY
;				Bank			=	ENTRY
;				Stack			=	ENTRY
;				Speed			=	ENTRY
;
;	Errors:		
;
;*******************************************************
;
;scanpatt			equ		$0000				;bit pattern for scan for logical unit
onlinepatt			equ		$0001				;bit pattern for logical unit online
;selecton			equ		$0002				;bit pattern for currently selecting scsi target
notscanned			equ		$0003				;bit pattern for DO NOT scan for this LU

lu_bit_code			PROC

					EXPORT	setonline
setonline			lda		#onlinepatt			;01 = LU online
					bra		setlupatt

					EXPORT	setnoscan
setnoscan			lda		#notscanned			;11 = do not scan logical unit

setlupatt			phx
					pha							;save the 2 bit pattern to write out

					tya
					and		#$00FF				;low byte only

					lsr		a					;shift them to low 3 bits then times 2
					lsr		a
					lsr		a
					lsr		a
					tax							;index into mask table for LUs

					lda		luptbl,x
					ora		|lutemp
					eor		luptbl,x			;two bits corresponding to LU # should be clear
					sta		|lutemp

					pla							;get pattern to write
					cpx		#lu0
					beq		@150				;don't shift if LU zero already

@100				asl		a					;shift it into proper position
					dex
					bne		@100

@150				ora		|lutemp				;set the appropriate bits
					sta		|lutemp
					plx

					rts

luptbl				dc.w	$0003				;LU 0 pattern mask
					dc.w	$000C				;LU 1 pattern mask
					dc.w	$0030				;LU 2 pattern mask
					dc.w	$00C0				;LU 3 pattern mask
					dc.w	$0300				;LU 4 pattern mask
					dc.w	$0C00				;LU 5 pattern mask
					dc.w	$3000				;LU 6 pattern mask
					dc.w	$C000				;LU 7 pattern mask

					ENDP
		
					EJECT

;*******************************************************
;
;	'alloc_nxt_sdr'
;
;	This routine returns the next SDR address available.
;	If no space is available the routine will call the
;	memory manager and request enough space for a
;	specific number of SDRs.  If an error is returned
;	from the memory manager the call exits with an error.
;
;	ENTRY:		JSR
;
;	Inputs:		e,m,x			=	0 (full native)
;				Acc				=	undefined
;				X reg			=	undefined
;				Y reg			=	undefined
;				Bank			=	Ours
;				dpage			=	Ours
;				Stack			=	undefined
;				Speed			=	fast
;
;	Output:		e,m,x			=	ENTRY
;				X reg			=	undefined
;				Y reg			=	High word of SDR address
;				Acc				=	Low word of SDR address
;				Carry			=	0 for successful call
;									1 for unsuccessful call
;				dpage			=	ENTRY
;				Bank			=	ENTRY
;				Stack			=	ENTRY
;				Speed			=	ENTRY
;
;	Errors:		
;
;*******************************************************
;
					;EXPORT		alloc_nxt_sdr
alloc_nxt_sdr		PROC

					lda		<avail_sdrs				;if already zero then quit
					bne		@100

					lda		#sm_rsrc_err			;got an error from get handle call
					sta		|error_stat

					sec
					rts
												;
												; get SDR address
												;
@100				lda		<next_sdr+2				;get the SDR address
					pha

					lda		<next_sdr
					pha

					dec		<avail_sdrs				;decrement number of available SDRs
					beq		getmem					;had one left go allocate more space

					clc								;bump to next SDR (cannot cross banks)
					adc		#sdrrec_size

setlink				sta		[next_sdr]				;form link address for next SDR
					pha								;save low 16 bits of next sdr address

					lda		5,s						;get the high word of the SDR address

					inc		next_sdr
					inc		next_sdr

					sta		[next_sdr]

					pla								;restore low 16 bits of next sdr address
					sta		<next_sdr				;save next SDR address
					bra		exit

getmem				lda		#default_sdrs			;assume we can get the memory for more sdrs
					sta		<avail_sdrs

					PUSHLONG	#null				;room for handle
					PUSHLONG	#default_sdrs\
								*sdrrec_size		;high word of number of bytes required
					PUSHWORD	|user_id			;our ID
					PUSHWORD	#attrlock++\		;Attributes of requested mem.
								attrfixed++\
								attrnocross++\
								attrnospec++\
								attrpage
					PUSHLONG	#null				;address (not used in this call)

					_NewHandle

					pla								;get handle off the stack
					ply
					bcc		@100

					lda		#$0000
					sta		[next_sdr]

					ldy		#$0002
					sta		[next_sdr],y

					lda		#sm_rsrc_err		;got an error from get handle call
					sta		|error_stat

					stz		<avail_sdrs			;could not get memory
					bra		exit				;go away with last SDR address EVER!!!
												;
												; get pointer to new memory & form link
												; to next available SDR
												;
@100				sta		<scratchzpg
					sty		<scratchzpg+2

					lda		[scratchzpg]
					sta		[next_sdr]

					pha							;save new low word of next SDR pointer

					ldy		#$0002
					lda		[scratchzpg],y
					sta		[next_sdr],y
												;
												; form new Next_SDR address pointer &
												; set avail_sdrs to default sdrs
												;
					sta		next_sdr+2
					pla
					sta		next_sdr
												;
												; clear newly allocated memory
												;
					phx

					lda		#default_sdrs\
							*sdrrec_size		;number of bytes to clear
					ldx		next_sdr			;address of first location
					ldy		next_sdr+2
					jsr		clear_memory		;wipe the new memory

					plx

					dec		<avail_sdrs			;decrement available SDRs

exit				pla							;get SDR address & quit
					ply

errexit				rts

					ENDP
	
					EJECT

;*******************************************************
;
;	'getnxtdci'
;
;	This routine will get the pointer to the next DC
;	instruction and return it to the caller.  The
;	routine performs the following steps:
;
;		1.	Check if first instruction in DCP
;			(data chaining packet)
;		2.	If first then
;			a) reset DC PC
;			b) setup working pointers
;			c) clear first instruction flag
;			d) jump back to getnxtdci
;		3.	bump DC PC.
;		4.	get first long word of instruction
;		5.	If zero then go to DCSTOP
;		6.	If -1 then go to DCLOOP
;		7.	Must buffer address goto to Buffer handler.
;
;	ENTRY:		JSR
;
;	Inputs:		e,m,x			=	0 (full native)
;				Acc				=	undefined
;				X reg			=	undefined
;				Y reg			=	undefined
;				Bank			=	Ours
;				dpage			=	Ours
;				Stack			=	undefined
;				Speed			=	fast
;
;	Output:		e,m,x			=	ENTRY
;				X reg			=	undefined
;				Y reg			=	undefined
;				Acc				=	undefined
;				Carry			=	undefined
;				dpage			=	ENTRY
;				Bank			=	ENTRY
;				Stack			=	ENTRY
;				Speed			=	ENTRY
;
;	Errors:		
;
;*******************************************************
;
					EXPORT	getnxtdci
getnxtdci			PROC

					lda		<dc_pc				;data chain pc in terms of bytes
					sta		<curr_dci_ptr		;form pointer to current DC instruction

					lda		<dc_pc+2
					sta		<curr_dci_ptr+2
												;
												; check for DCMOVE, DCLOOP & DCSTOP
												; instructions
												;
					ldy		#dc_opcode			;start at the beginning of the instruction
					lda		[curr_dci_ptr],y
					pha							;save the instruction

					ldy		#dc_opcode+2
					ora		[curr_dci_ptr],y	;check for DCSTOP
					bne		@over
					brl		dcstop

@over				lda		1,s					;check for DCLOOP
					and		[curr_dci_ptr],y
					cmp		#dc_loop_inst
					beq		dcloop
												;
												; must be a buffer address
												;
					lda		[curr_dci_ptr],y	;get high word of buffer address
					sta		<buffer_ptr+2

					pla							;get low byte of buffer address
					sta		<buffer_ptr

					ldy		#dc_count			;get the byte count
					lda		[curr_dci_ptr],y
					sta		<byte_ctr

					ldy		#dc_count+2
					lda		[curr_dci_ptr],y
					sta		<byte_ctr+2

					clc

					jsr		bump_addr			;add offset to address and save it

					jsr		bump_pc				;bump the DCI prog counter
												;
												; Check the Buffer Address to see if
												; this DCMove instruction will be out
												; side the limits of DMA for this
												; Machine Type.
												;
					clc

					lda		<buffer_ptr
					adc		<byte_ctr

					lda		<buffer_ptr+2
					adc		<byte_ctr+2
					cmp		#$00E0
					bge		@try_dma

					pha

					lda		>System_Type
					cmp		#$0006
					bge		@chk_10speed		;It's a ten-speed.  Let it go on.

					pla
					cmp		|rom_01				;Will the transfer end in bank
					blt		@try_dma			;$42 or Greater?

					bra		@do_pdma

@chk_10speed		pla
					cmp		|rom_03				;Will the transfer end in bank
					blt		@try_dma			;$50 or Greater?

@do_pdma			sep		#$40				;Set the V flag to disable DMA
					clc
					rts							;return to caller with address & count

@try_dma			clv							;Clear the V flag to enable DMA
					clc
					rts							;return to caller with address & count
												;
												; DMA Range Storage
												;
					EXPORT		rom_01
rom_01				dc.w	$0042
					EXPORT		rom_03
rom_03				dc.w	$0050
												;
												; Looping Data chaining instruction (DCLOOP)
												;
dcloop				pla							;discard low byte of instruction address

					ldy		#dc_count			;get the number of passes through the loop
					lda		[curr_dci_ptr],y	;bump past this instruction if zero
					pha

					ldy		#dc_count+2
					lda		[curr_dci_ptr],y
					ora		1,s
					bne		deccnt				;otherwise decrement the loop count

					jsr		bump_pc				;bump the DCI pc
					pla							;discard working low word of loop count

					brl		getnxtdci			;go back for another DC instruction
												;
												; decrement the loop count
												;
deccnt				pla
					dec		A					;decrement the low word of the loop count

					ldy		#dc_count			;get index to loop count
					sta		[curr_dci_ptr],y	;save the low word of the count
					bne		dcbra				;go to specified offset if nonzero

					ldy		#dc_count+2
					lda		[curr_dci_ptr],y
					dec		A
					sta		[curr_dci_ptr],y	;decrement high word of loop count

					beq		goagain				;loop exausted see if more instructions
												;
												; loop not exausted get relative offset
												; and branch
												;
dcbra				ldy		#dc_offset			;get the loop instruction offset
					lda		[curr_dci_ptr],y	;low word of offset
					sta		<scratchzpg			;offset times 16

					ldy		#dc_offset+2
					lda		[curr_dci_ptr],y
					sta		<scratchzpg+2

					asl		<scratchzpg
					rol		<scratchzpg+2

					asl		<scratchzpg
					rol		<scratchzpg+2

					asl		<scratchzpg
					rol		<scratchzpg+2

					asl		<scratchzpg
					rol		<scratchzpg+2

					clc

					lda		<scratchzpg			;get low word of offset*16
					adc		<dc_pc				;adjust the chaining inst. prog. counter
					sta		<dc_pc

					lda		<scratchzpg+2		;get high word of offset*16
					adc		<dc_pc+2
					sta		<dc_pc+2

goagain				brl		getnxtdci			;go execute next instruction
												;
												; DCSTOP instruction handler
												;
dcstop				pla							;discard high word of instruction

					iny							;point to 2nd long word of dcstop
					iny

					lda		[curr_dci_ptr],y	;check low 24 bits for nonzero (routine address)
					iny
					ora		[curr_dci_ptr],y	;check for DCSTOP

					beq		@110				;a real DCSTOP instruction
												;
												; DCSPECIAL instruction
												;
					lda		[curr_dci_ptr],y	;get bits 8-23 of routine address
					sta		@100+2				;self modify high byte of JSL address

					dey

					lda		[curr_dci_ptr],y	;get bits 0-15 of routine address
					sta		@100+1				;self modify low word of JSL address

@100				jsl		$00000000			;the user returns back to us or hell breaks loose

					jsr		bump_pc				;bump the data chaining program counter

					brl		getnxtdci			;go get the next instruction
												;
												; all done with DCSTOP instruction
												;
@110				stz		|more_dci			;reset more data chain instructions flag
nodci				sec
exit				rts
												;
												; Bump the DCI program counter
												;
bump_pc				php

					pha
					lda		<dc_pc				;bump the data chain prog. counter
					clc
					adc		#dc_size			;bump by data chain intruction size
					sta		<dc_pc

					bcc		@100
					inc		<dc_pc+2			;bump chaining program counter

@100				pla
					plp

					rts
												;
												; ADD the contents of the offset field
												; to the address field
												;
bump_addr			php							;save Carry

					ldy		#dc_offset
					lda		[curr_dci_ptr],y

					ldy		#dc_opcode
					clc
					adc		[curr_dci_ptr],y
					sta		[curr_dci_ptr],y	;write out the modified address

					ldy		#dc_offset+2		;get high word of offset to add to the address
					lda		[curr_dci_ptr],y
					ldy		#dc_opcode+2
					adc		[curr_dci_ptr],y
					sta		[curr_dci_ptr],y

					plp							;restore Carry
					rts

					ENDP

					EJECT

;*******************************************************
;
;	'smatch'
;
;	Found a slot match adjust the link pointers and set
;	the IDs
;
;	BEFORE:
;			+-----------+	  +-----------+		+-----------+
;	Head >>>|  SDR N-1  | >>> |   SDR N   | >>>	|  SDR N+1  |
;			+-----------+	  +-----------+		+-----------+
;
;	AFTER:			
;			+-----------+	  +-----------+		+-----------+
;	Head >>>|  SDR  N   | >>> |  SDR N-1  | >>>	|  SDR N+1  |
;			+-----------+	  +-----------+		+-----------+
;
;	ENTRY:		JSR
;
;	Inputs:		e,m,x			=	0 (full native)
;				Acc				=	undefined
;				X reg			=	undefined
;				Y reg			=	undefined
;				Bank			=	Ours
;				dpage			=	Ours
;				Stack			=	undefined
;				Speed			=	fast
;
;	Output:		e,m,x			=	ENTRY
;				scratchzpg		=	address of SDR N
;				sdr_ptr			=	address of SDR N-1
;				X reg			=	undefined
;				Y reg			=	undefined
;				Acc				=	Error Code 
;				Carry			=	0 for successful call
;									1 for unsuccessful call
;				dpage			=	ENTRY
;				Bank			=	ENTRY
;				Stack			=	ENTRY
;				Speed			=	ENTRY
;
;	Errors:		
;
;*******************************************************
;
					;EXPORT		smatch
smatch				PROC

					lda		<scratchzpg+2		;check for already in right order
					eor		<sdr_ptr+2
					bne		@100

					lda		<scratchzpg
					eor		<sdr_ptr
					beq		assgnid

@100				ldy		#$0002				;point to nxt_sdr_ptr field high word
					lda		[scratchzpg],y		;SDR N+1 address into SDR N-1 link ptr
					sta		[sdr_ptr],y

					lda		[scratchzpg]
					sta		[sdr_ptr]

					lda		<sdr_table_ptr+2	;save pointer to head of list
					pha

					lda		<sdr_table_ptr
					pha

					lda		<scratchzpg+2		;write SDR N address in head link
					sta		<sdr_table_ptr+2

					lda		<scratchzpg
					sta		<sdr_table_ptr

					pla							;link SDR N to SDR N-1
					sta		[scratchzpg]

					pla							;restore high word of old sdr_table_ptr
					sta		[scratchzpg],y
												;
												; Assign the IDs starting with $0001
												;
					EXPORT		assgnid
assgnid				lda		<sdrsonline			;number of SDRs to assign IDs for
					sta		<sdrstocheck

					lda		<sdr_table_ptr+2
					sta		<scratchzpg+2

					lda		<sdr_table_ptr
					sta		<scratchzpg

nextid				ldy		#sdr_slot			;point to the slot field within the SDR
					lda		[scratchzpg],y		;get the slot for this SDR

					jsr		getnextID

					ldy		#sdr_device_id		;point to ID field in SDR
					sta		[scratchzpg],y

					dec		<sdrstocheck
					clc							;assume all done
					beq		alldone				;count of zer means all done

onemore				ldy		#$0002				;point to link field
					lda		[scratchzpg],y		;get address of next SDR
					pha

					lda		[scratchzpg]
					sta		<scratchzpg

					pla
					sta		<scratchzpg+2

					bra		nextid

alldone				plx
					rts

					ENDP

					EJECT

;*******************************************************
;
;	'touthandler'
;
;	This module will check for tasks which may be
;	pending and have timed out.  The routine walks the
;	SDR list and checks if the busy bit is set. If the
;	bit is set then it decrements the timeout count.  If
;	the count rolls to zero, the busy bit will be reset
;	and a timeout error will be reported to the caller.
;	
;	Inputs:		e,m,x		=	undefined
;				Acc			=	undefined
;				X reg		=	undefined
;				Y reg		=	undefined
;				dpage		=	undefined
;				Stack		=	undefined
;				Speed		=	undefined
;
;	Output:		e,m,x		=	ENTRY
;				Carry		=	ENTRY
;				Acc			=	ENTRY
;				X reg		=	ENTRY
;				Y reg		=	ENTRY
;				dpage		=	ENTRY
;				Bank		=	ENTRY
;				Stack		=	ENTRY
;				Speed		=	ENTRY
;
;*******************************************************

					;EXPORT	touthandler
touthandler			PROC
												;
												; HeartBeat task header
												;
					EXPORT	tout_header
					EXPORT	tick_count

tout_header			dc.l	$00000000			;room for link pointer
tick_count			dc.w	$0000				;tick count before irq
					dc.w	$A55A				;manual is wrong A55A signature correct
												;
												; save environment we will be playing with
												;
timeout				php							;save m and x

					LONGMX

					pha							;save registers
					phx
					phy
					phd							;save direct register
					phb
					phk
					plb
												;
												; point to our zero page
												;
					lda		|our_zpg_hold
					tcd
												;
												; check for SDR Busy bit set
												;
					ldy		#sdr_flags
					lda		[active_sdr],y
					and		#sdr_attrb_busy
					beq		exit
												;
												; SDR is busy decrement timeout
												; count & check for zero
												;
					jsr		getticks
					sta		|tick_count			;tick count before next irq
					bne		exit
												;
												; go tell driver the call it issued
												; timed out
												;
					ldy		#sdr_completion_vect;call the intercomm vector
					lda		[active_sdr],y		;get address of completion vector
					sta		calldvr+1			;form jsl address

					iny
					ora		[active_sdr],y
					beq		exit				;Completion Vector already called

					lda		[active_sdr],y
					sta		calldvr+2
												;
												; mark SCSI Manager busy so drivers
												; can not issue another call now
												; then notify driver of the timeout.
												;
					lda		|smbusy_flag		;save current setting of SCSI Manager busy flag
					pha

					lda		#busy
					sta		|smbusy_flag

					lda		#calltout_err		;tell driver its call timed out
					sec
					sta		|error_stat			;and keep error for future reference

calldvr				jsl		$000000				;**** SELF MODIFYING CODE

					jsr		clear_state			;remove this scsi transaction

					dec		|busy_sdr_count		;one less busy SDR

					ldy		#sdr_flags
					lda		[active_sdr],y
					and		#sdr_attrb_busy\
							--$FFFF				;clear busy bit in attribute word
					sta		[active_sdr],y
												;
												; restore state of SCSI Manager busy
												; flag
												;
					pla
					sta		|smbusy_flag
												;
												; all done set for next interrrupt
												; (0000 is possible) and go away
												;
exit				plb
					pld							;restore direct register
					ply
					plx
					pla
					plp

					rtl

					ENDP

					EJECT

;*******************************************************
;
;	'setup_call_env'
;
;	This routine will copy all the work variables from
;	the SCSI Device record into working variables.
;
;	ENTRY:		JSR
;
;	Inputs:		e,m,x			=	0 (full native)
;				|plist_ptr		=	record matching the sought ID
;				Acc				=	undefined
;				X reg			=	undefined
;				Y reg			=	undefined
;				Bank			=	Ours
;				dpage			=	Ours
;				Stack			=	undefined
;				Speed			=	fast
;
;	Output:		e,m,x			=	ENTRY
;				X reg			=	undefined
;				Y reg			=	undefined
;				Acc				=	Error Code 
;				Carry			=	0 for successful call
;									1 for unsuccessful call
;				dpage			=	ENTRY
;				Bank			=	ENTRY
;				Stack			=	ENTRY
;				Speed			=	ENTRY
;
;	Errors:		
;
;*******************************************************
;
					EXPORT	setup_call_env
setup_call_env		PROC

					ldy		#sdr_logunit		;logical unit
					lda		[sdr_ptr],y
					sta		<logunit

					ldy		#sdr_targ_priot		;target priority
					lda		[sdr_ptr],y
					sta		|target_priority

					ldy		#sdr_init_priot		;initiator priority
					lda		[sdr_ptr],y
					sta		|init_priority

					ldy		#sdr_slot			;slot number
					lda		[sdr_ptr],y
					sta		<slot_no

					ldy		#sdr_5380_base		;5380 I/O base address
					lda		[sdr_ptr],y
					sta		<io_offset

					ldy		#sdr_5380_base+2
					lda		[sdr_ptr],y
					sta		<io_offset+2

					ldy		#sdr_dma_base		;5380 DMA controller base address
					lda		[sdr_ptr],y
					sta		<dma_offset

					ldy		#sdr_dma_base+2
					lda		[sdr_ptr],y
					sta		<dma_offset+2
												;
												; setup work flags etc...
												;
					lda		#$FFFF				;setup for possible DCI instructions
					sta		|more_dci
					rts

					ENDP
	
					EJECT

;*******************************************************
;
;	'id_assignment'
;
;	This routine will determine the boot slot and assign
;	the SDR which contains the target with the highest
;	scsi priority ID 1.  This way the boot continues from
;	the same target when the SCSI driver got control.
;	IDs are assigned based on slot number.  Each slot
;	starts with ID 1 and increments for each device found
;	on that slot.
;
;	ENTRY:		JSR
;
;	Inputs:		e,m,x			=	0 (full native)
;				sdr_table_ptr	=	points to first SDR in table
;				Acc				=	undefined
;				X reg			=	undefined
;				Y reg			=	undefined
;				Bank			=	Ours
;				dpage			=	Ours
;				Stack			=	undefined
;				Speed			=	fast
;
;	Output:		e,m,x			=	ENTRY
;				X reg			=	undefined
;				Y reg			=	undefined
;				Acc				=	undefined
;				Carry			=	undefined
;				dpage			=	ENTRY
;				Bank			=	ENTRY
;				Stack			=	ENTRY
;				Speed			=	ENTRY
;
;			Each SDR contains an ID based on Slot &
;			unit number.
;
;	Errors:		
;
;*******************************************************
;
					;EXPORT	id_assignment
id_assignment		PROC

					phx							;save register
					lda		<sdrsonline			;number of sdrs available
					sta		<sdrstocheck

					bne		@100
					plx
					rts							;say goodnight!!

@100				lda		<sdr_table_ptr		;point to the start of the SDR table
					sta		<scratchzpg

					lda		<sdr_table_ptr+2
					sta		<scratchzpg+2
												;
												; issue get_dib_ptr call for unit
												; one to find boot slot number
												;
					phd							;save our zero page

					lda		|gsos_zpg_hold		;point to GS/OS zero page
					tcd

					pei		<drvr_dib_ptr+2		;save the driver dib pointer
					pei		<drvr_dib_ptr

					pei		<dev_id_ref			;save the id reference number

					pei		<drvr_dev_num		;save current device number
					stz		<drvr_dev_num		;select device dispatcher

					lda		#$0001				;unit number one
					sta		<dev_id_ref

					lda		#get_dib_ptr
					sta		drvr_call_num

					jsl		dev_dispatcher		;issue get_dib_ptr to device dispatchjer

					ldy		#slot_num
					lda		[drvr_dib_ptr],y		
					sta		|smboot_slot

					pla							;restore gsos zero page
					sta		<drvr_dev_num		;restore GS/OS direct page

					pla
					sta		<dev_id_ref

					pla
					sta		<drvr_dib_ptr

					pla
					sta		<drvr_dib_ptr+2

					pld							;point back to our direct page
					bcc		dibok				;if we fail, we get purged

dibfail				sec
					lda		#get_dib_err		;get_dib_ptr failed
					sta		|error_stat
					plx
					rts
												;
												; get the slot number of the boot device
												;
dibok				lda		<scratchzpg			;make the previous sdr link point
					sta		<sdr_ptr			;to sdr N

					lda		<scratchzpg+2
					sta		<sdr_ptr+2

ckslot				ldy		#sdr_slot			;point to the slot field within the SDR
					lda		[scratchzpg],y
					cmp		|smboot_slot
					bne		@over

					brl		smatch				;found matching slots adjust link pointers
												;
												; slots do not match check next SDR
												;
@over				dec		<sdrstocheck		;if count zero go assign ids
					bne		@over_1
					jmp		assgnid

@over_1				ldy		#$0002				;point to next SDR
												;
												; save this SDR's address
												;
					lda		<scratchzpg+2		;keep SDR's address
					sta		<sdr_ptr+2

					lda		<scratchzpg
					sta		<sdr_ptr

					lda		[scratchzpg]
					pha

					lda		[scratchzpg],y		;set address for next SDR
					sta		<scratchzpg+2

					pla
					sta		<scratchzpg

					bra		ckslot				;go check the slot number

					ENDP
	
					EJECT

;*******************************************************
;
;	'cleanup_sdr'
;
;	This routine will reset working parameters in the
;	SDR back to zero.
;
;	ENTRY:		JSR
;
;	Inputs:		e,m,x			=	0 (full native)
;				[sdr_ptr]		=	address of SDR to cleanup
;				Acc				=	undefined
;				X reg			=	undefined
;				Y reg			=	undefined
;				Bank			=	Ours
;				dpage			=	Ours
;				Stack			=	undefined
;				Speed			=	fast
;
;	Output:		e,m,x			=	ENTRY
;				X reg			=	undefined
;				Y reg			=	undefined
;				Acc				=	undefined
;				Carry			=	undefined
;				dpage			=	ENTRY
;				Bank			=	ENTRY
;				Stack			=	ENTRY
;				Speed			=	ENTRY
;
;	Errors:		
;
;*******************************************************
;
					EXPORT	cleanup_sdr
cleanup_sdr			PROC

					lda		#$0000
												;
												; clear the data chaining instructions
												; pointer
												;
					ldy		#sdr_cmd_ptr
					sta		[sdr_ptr],y

					ldy		#sdr_cmd_ptr+2
					sta		[sdr_ptr],y
												;
												; clear the buffer pointer and byte count
												;
					ldy		#sdr_buffer_ptr
					sta		[sdr_ptr],y

					ldy		#sdr_buffer_ptr+2
					sta		[sdr_ptr],y

					ldy		#sdr_byte_count
					sta		[sdr_ptr],y

					ldy		#sdr_byte_count+2
					sta		[sdr_ptr],y

					rts

					ENDP

					EJECT

;*******************************************************
;
;	'adjtout'
;
;	This routine will convert the 1/4 second timeout
;	count passed by the caller into 1/60 second tick
;	count.  The routine also adds the current tick count
;	to the calculated 1/60 sec timeout count and returns
;	it in a pair of registers.
;
;	ENTRY:		JSR
;
;	Inputs:		e,m,x			=	0 (full native)
;				Acc				=	1/4 sec timeout value
;				X reg			=	undefined
;				Y reg			=	undefined
;				Bank			=	Ours
;				dpage			=	Ours
;				Stack			=	undefined
;				Speed			=	fast
;
;	Output:		e,m,x			=	ENTRY
;				X reg			=	High word of timeout count
;				Y reg			=	undefined
;				Acc				=	Low word of timeout count
;				Carry			=	0 for successful call
;									1 for unsuccessful call
;				dpage			=	ENTRY
;				Bank			=	ENTRY
;				Stack			=	ENTRY
;				Speed			=	ENTRY
;
;	Errors:		
;
;*******************************************************
;
					;EXPORT	adjtout
adjtout				PROC

					pha							;save 1/4 sec count

					stz		scratchzpg			;work area
					stz		scratchzpg+2

					clc

					asl		a					;times 16
					rol		<scratchzpg+2

					asl		a
					rol		<scratchzpg+2

					asl		A
					rol		<scratchzpg+2

					asl		A
					rol		<scratchzpg+2

					sec
					sbc		1,s					;but we really want times 15
					sta		<scratchzpg

					lda		<scratchzpg+2
					sbc		#$0000

					plx							;discard 1/4 set count off the stack
					tax

					lda		<scratchzpg
					rts

					ENDP

					EJECT

;*******************************************************
;
;	'saveptrs'
;
;	This routine will do a save pointers in the data
;	chaining instructions.  For Buffer addresses it
;	copies the address into the save pointer field.  For
;	Loop instructions, it copies the loop count into the
;	save pointer.
;
;	ENTRY:		JSR
;
;	Inputs:		e,m,x			=	0 (full native)
;				[sdr_ptr]		=	Ptr to parameter list containing
;									data chain instructions to do save
;									pointers on.
;				Acc				=	undefined
;				X reg			=	undefined
;				Y reg			=	undefined
;				Bank			=	Ours
;				dpage			=	Ours
;				Stack			=	undefined
;				Speed			=	fast
;
;	Output:		e,m,x			=	ENTRY
;				scratchzpg		=	addr of data chaining instructions
;				X reg			=	undefined
;				Y reg			=	undefined
;				Acc				=	undefined
;				Carry			=	undefined
;				dpage			=	ENTRY
;				Bank			=	ENTRY
;				Stack			=	ENTRY
;				Speed			=	ENTRY
;
;	Errors:		
;
;*******************************************************
;
					EXPORT		saveptrs
saveptrs			PROC
												;
												; point to the data chaining instructions
												;
					phy							;save work registers
					phx

					ldy		#sdr_plist_ptr		;get the address of the parameter list
					lda		[sdr_ptr],y
					sta		<scratchzpg

					ldy		#sdr_plist_ptr+2
					lda		[sdr_ptr],y
					sta		<scratchzpg+2

					ldy		#plst_dchainptr		;get the pointer to the data chain instructions
					lda		[scratchzpg],y
					tax

					ldy		#plst_dchainptr+2
					lda		[scratchzpg],y

					sta		<scratchzpg+2		;point to opcode field of data chain instruction
					stx		<scratchzpg

					sta		<temp1+2			;point to save ptr area of data chaining instruction

					txa
					clc
					adc		#dci_save
					sta		<temp1	
												;
												; save pointers until stop instruction
												; (max of 32 instructions including stop)
												;
					ldy		#$0000				;point to start of data chain instructions list

movloop				lda		[scratchzpg],y		;get the instruction
					tax							;save low word of instruction

					iny
					iny

					ora		[scratchzpg],y
					beq		exit				;if stop instruction go away

					cmp		#$FFFF				;check for loop instruction
					beq		movlcnt				;if loop instruction move loop count

					lda		[scratchzpg],y		;high word of buffer address
					sta		[temp1],y			;save in high word of save area

					dey
					dey

					lda		[scratchzpg],y		;low word of buffer address
					sta		[temp1],y			;to save area

nxtdci				tya

					clc
					adc		#dci_size			;bump to next data chain instruction
					tay

					bra		movloop				;do next instruction
												;
												; instruction was a loop instruction
												; move the loop count
												;
movlcnt				iny							;bump to the loop count field
					iny

					lda		[scratchzpg],y		;get the loop count
					tax							;save low word of loop count

					iny
					iny

					lda		[scratchzpg],y		;get the high word of the count

					dey							;point back to the loop instruction opcode
					dey
					dey
					dey

					sta		[temp1],y			;save the high word of the loop count

					dey
					dey

					txa
					sta		[temp1],y			;save the low word of the loop count

					bra		nxtdci				;Y points at the start of instruction

exit				plx							;restore registers
					ply
					rts

					ENDP
	
					EJECT

;*******************************************************
;
;	'ckdcilst'
;
;	This routine will validate that there are a maximum
;	of 32 data chaining instructions and that the last
;	instruction is a stop instruction.
;
;	ENTRY:		JSR
;
;	Inputs:		e,m,x			=	0 (full native)
;				Acc				=	undefined
;				X reg			=	undefined
;				Y reg			=	undefined
;				Bank			=	Ours
;				dpage			=	Ours
;				Stack			=	undefined
;				Speed			=	fast
;
;	Output:		e,m,x			=	ENTRY
;				X reg			=	undefined
;				Y reg			=	undefined
;				Acc				=	undefined
;				Carry			=	undefined
;				dpage			=	ENTRY
;				Bank			=	ENTRY
;				Stack			=	ENTRY
;				Speed			=	ENTRY
;
;	Errors:		
;
;*******************************************************
;
					;EXPORT	ckdcilst
ckdcilst			PROC
												;
												; point to data chain instruction list
												;
					phx
					phy

					ldy		#plst_dchainptr
					lda		[plist_ptr],y
					sta		<scratchzpg

					ldy		#plst_dchainptr+2
					lda		[plist_ptr],y
					sta		<scratchzpg+2
												;
												; walk the list looking for stop instructions
												;
					ldx		#maxdcis			;maximum number of data chain instructions
					ldy		#$0000

@100				clc							;assume we find a stop inst within 32 instructions
					lda		[scratchzpg],y

					iny
					iny

					ora		[scratchzpg],y
					beq		exit

					dey							;back down to low word of opcode
					dey

					sec							;assume we will fail at this point
					dex							;decrement instruction count remaining
					beq		exit				;if zero then exit with error

					tya							;point to next instruction
					clc
					adc		#dci_size
					tay

					bra		@100

exit				ply
					plx
					rts

					ENDP

					EJECT

;*******************************************************
;
;	'getnextid'
;
;	This routine will return the next ID available for
;	devices on the slot number specified in the
;	accumulator.  The slot number will be truncated to
;	a value between $00 and $0F.
;
;	ENTRY:		JSR
;
;	Inputs:		e,m,x			=	0 (full native)
;				Acc				=	slot number
;				X reg			=	undefined
;				Y reg			=	undefined
;				Bank			=	Ours
;				dpage			=	Ours
;				Stack			=	undefined
;				Speed			=	fast
;
;	Output:		e,m,x			=	ENTRY
;				X reg			=	undefined
;				Y reg			=	undefined
;				Acc				=	ID number
;				Carry			=	undefined
;				dpage			=	ENTRY
;				Bank			=	ENTRY
;				Stack			=	ENTRY
;				Speed			=	ENTRY
;
;	Errors:		
;
;*******************************************************
;
					;EXPORT	getnextid
getnextid			PROC

					phx							;save work registers
					and		#$000F				;truncate the slot number to $00-$0F
					tax

					SHORTM						;m=1

					inc		|slot_table,x		;bump to next available ID
					lda		|slot_table,x		;next available ID for this slot

					LONGM						;m=0

					plx							;restore work registers
					rts

slot_table			dc.w	$0000				;a table of 16 one byte entries (slots 0-F)
					dc.w	$0000
					dc.w	$0000
					dc.w	$0000
					dc.w	$0000
					dc.w	$0000
					dc.w	$0000
					dc.w	$0000

					ENDP
	
					EJECT

					END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/SupervisoryDrivers/SCSI.Manager(1meg)/SCSIM.Req.Devs b/IIGS.601.SRC/GS.OS/SupervisoryDrivers/SCSI.Manager(1meg)/SCSIM.Req.Devs
new file mode 100644
index 0000000..ea9bb3d
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/SupervisoryDrivers/SCSI.Manager(1meg)/SCSIM.Req.Devs
@@ -0,0 +1 @@
+
;*******************************************************
;
;	'SCSIM.Req.Devs'
;
;	Written by:
;	
;					Gus Andrade
;
;	Modified for new card by:
;
;					Matt Gulick.
;					Started June 1,1989
;
;	This file contains code to handle the Request
;	Devices Call.
;
;	Copyright Apple Computer, Inc. 1988,89
;	All rights reserved.
;
;*******************************************************

					STRING		PASCAL
					BLANKS		OFF
					PAGESIZE	70
					PRINT		NOGEN
					PRINT		NOMDIR
					MACHINE		M65816

					IMPORT		error_stat
					IMPORT		get_plist
					IMPORT		zpg_hold

;					Entry		

					PRINT		OFF

					INCLUDE		'SCSIM.Equates'
;					INCLUDE		'Common.Equ.Src'
;					INCLUDE		'HW.Equ.Src'
;					INCLUDE		'M16.MEMORY'
;					INCLUDE		'M16.UTIL'
;					INCLUDE		'M16.MISCTOOL'

					PRINT		ON

					EJECT

;*******************************************************
;
;	'scsim_reqdevs'
;
;	This module will handle will return IDs for all
;	devices mathching a requested device type.
;
;	Called via 'JSR'
;
;	Inputs:		e,m,x		=	0 (full native)
;
;	Outputs:	e,m,x		=	0 (full native)
;				Acc			=	0
;				Carry		=	0
;				Y reg		=	Unspecified
;				X reg		=	Unspecified
;				P reg		=	0=M=X=e
;				D Page		=	GS/OS Direct Page
;				Bank		=	Ours
;
;	Errors:		See Spec.
;
;*******************************************************

					EXPORT	scsim_reqdevs
scsim_reqdevs		PROC

					stz		|error_stat		;reset error status

					jsr		get_plist		;point to the parameter list

					stx		<plist_ptr		;form pointer to parameter list
					sty		<plist_ptr+2

					ldy		#destbuffptr	;get destination buffer address
					lda		[plist_ptr],y
					sta		buffer_ptr

					ldy		#destbuffptr+2
					lda		[plist_ptr],y
					sta		buffer_ptr+2

					lda		|zpg_hold		;get the driver's zero page address
					sta		[buffer_ptr]

					ldy		#scsi_dtype		;check for device type
					lda		[plist_ptr],y
					jsr		devtype_chk		;check for valid device type
					bcc		@100

					lda		#bad_dev_type
					sta		|error_stat
					rts						;bad type go away

@100				ldx		<sdrsonline		;set number of sdrs to compare against
					stx		<sdrstocheck
					bne		@200

					ldx		#$0000			;zero devices found
					txa
					pha						;call status
					sta		|error_stat
					bra		all_done

@200				jsr		build_reqlist	;build list of devices matching device type
reqexit				rts						;>>>--- scsim_reqdevs --->>>
											;
											; check for valid scsi device
											; type
											;
devtype_chk			and		#$001F			;low 5 bits only
					beq		good_type		;if zero then ok

					cmp		#apple_tape		;check for apple tape drive
					beq		good_type

					cmp		#commdev+1		;check for types A-F
					bge		bad_type

good_type			clc
bad_type			rts						;>>>--- devtype_chk --->>>
											;
											; build request list for caller
											;
build_reqlist		pha

					ldx		#$0000			;clear device counter

					lda		sdr_table_ptr	;point to the SCSI device records
					sta		<scratchzpg
					lda		sdr_table_ptr+2
					sta		<scratchzpg+2

check_type			ldy		#sdr_devtype	;index to device type field
					lda		[scratchzpg],y
					and		#$00FF			;low byte only (devtype one byte)
					cmp		1,s				;compare the types
					beq		type_match

chk_next_sdr		dec		<sdrstocheck	;see if more sdrs to check
					beq		all_done

					ldy		#nxt_sdr_lnk	;point to next sdr in the list
					lda		[scratchzpg],y	;check next SDR
					pha

					ldy		#nxt_sdr_lnk+2
					lda		[scratchzpg],y
					sta		<scratchzpg+2

					pla
					sta		<scratchzpg

					bra		check_type
											;
											; Found an SDR record which
											; matches the type tell caller
											;
type_match			ldy		#sdr_device_id	;get the device ID of the target
					lda		[scratchzpg],y
					bmi		chk_next_sdr	;Device has been claimed

					ldy		#device_id
					sta		[buffer_ptr],y

					ldy		#sdr_slot		;include the slot number
					lda		[scratchzpg],y

					ldy		#device_slot	;point to Slot number field
					sta		[buffer_ptr],y

					inx						;bump number of matching devices count

					lda		<buffer_ptr		;bump address
					clc
					adc		#reqEntry_size	;by one Entry size
					sta		<buffer_ptr
					bcc		chk_next_sdr	;go check the next sdr

					inc		<buffer_ptr+2
					bra		chk_next_sdr
											;
											; write out device count found
											; to match the type
											;
all_done			ldy		#destbuffptr	;point to start of the destination buffer
					lda		[plist_ptr],y
					sta		<scratchzpg

					ldy		#destbuffptr+2
					lda		[plist_ptr],y
					sta		<scratchzpg+2

					ldy		#total_devcount	;point to device count field
					txa
					sta		[scratchzpg],y	;write the count

					pla

					rts
		
					ENDP
	
					EJECT

					END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/SupervisoryDrivers/SCSI.Manager(1meg)/SCSIM.Shutdown b/IIGS.601.SRC/GS.OS/SupervisoryDrivers/SCSI.Manager(1meg)/SCSIM.Shutdown
new file mode 100644
index 0000000..f773d6f
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/SupervisoryDrivers/SCSI.Manager(1meg)/SCSIM.Shutdown
@@ -0,0 +1 @@
+
;*******************************************************
;
;	'SCSIM.Shutdown'
;
;	Written by:
;	
;					Gus Andrade
;
;	Modified for new card by:
;
;					Matt Gulick.
;					Started June 1,1989
;
;	This file contains code to handle the Shutdown Call.
;	It will deallocate all the resources used by the
;	SCSI Manager to become operational.
;
;	Copyright Apple Computer, Inc. 1988,89
;	All rights reserved.
;
;*******************************************************

					STRING		PASCAL
					BLANKS		OFF
					PAGESIZE	70
					PRINT		NOGEN
					PRINT		NOMDIR
					MACHINE		M65816

					IMPORT		tout_header
					IMPORT		arbtout_header
					IMPORT		scsim_chars
					IMPORT		zpg_hold
					IMPORT		zpg_savebuff
					IMPORT		zpg_handle
					IMPORT		user_id
					IMPORT		sdriver_no_hold
					IMPORT		schedule_unbind
					IMPORT		zap_oldcard

;					ENTRY		

					PRINT		OFF

					INCLUDE		'SCSIM.Equates'
					INCLUDE		'Common.Equ.Src'
					INCLUDE		'HW.Equ.Src'
					INCLUDE		'M16.MEMORY'
					INCLUDE		'M16.UTIL'
					INCLUDE		'M16.MISCTOOL'

					PRINT		ON

					EJECT

;*******************************************************
;
;	'scsim_shutdown'
;
;	Main Entry point to the 'Shutdown' routine.  This
;	is called before the Manager is unloaded.  The code
;	that follows clears up the Manager's environment,
;	then calls Memory Manager to deallocate space.
;
;	Called via 'JSR'
;
;	Inputs:		e,m,x		=	0 (full native)
;
;	Outputs:	e,m,x		=	0 (full native)
;				Acc			=	0
;				Carry		=	0
;				Y reg		=	Unspecified
;				X reg		=	Unspecified
;				P reg		=	0=M=X=e
;				D Page		=	GS/OS Direct Page
;				Bank		=	Ours
;
;	Errors:		See Spec.
;
;*******************************************************

					EXPORT	scsim_shutdown
scsim_shutdown		PROC
											;
											; delete our timeout heartbeat
											; task
											;
					PUSHLONG	#tout_header
					_DelHeartBeat
					bcs		death			;go away if error
											;
											; delete arbitration heartbeat
											; task
											;
					PUSHLONG	#arbtout_header
					_DelHeartBeat
					bcs		death			;go away if error
											;
											; check characteristics word
											; for restartable.  If
											; restartable then check
											; warm_cold_flag to see if
											; going to sleep or being
											; killed.
											;
					bit		|scsim_chars	;check bit 15 for restartable
					bpl		@100			;coldshutdown if not restartable
					lda		>warm_cold_flag
					and		#$0001
					beq		@100			;Z=1 marks a cold shutdown go do it
											;
											; warmshutdown saves zero page
											; in a internal buffer within
											; the manager
											;
											;
											; Save Zero Page Values.
											;
					PUSHWORD	#NULL			;source address High
					PUSHWORD	|zpg_hold		;source address Low
					PUSHLONG	#zpg_savebuff	;destination address
 					PUSHLONG	#maxzpg_space
 					PUSHWORD	#move_sinc_dinc

					jsl		move_info

											;
											; now dispose the zero page area
											; allocated
											;
					PUSHLONG	|zpg_handle
					_disposeHandle
					bcs		death
					bra		wrmshut			;go away	
											;
											; dispose all memory allocated
											; to us
											;
@100				PUSHWORD	|user_id	;dispose all memory we allocated
					_disposeAll
					bcs		death			;dispose of memory allocated to us
											;
											; dispose our ID back to Misc.
											; Tools
											;
					PUSHWORD	|user_id	;dispose our ID back to misc tools
					_DeleteId

wrmshut				jsr		zap_oldcard
											;
											; Unbind our IRQ via the SCHEDULER
											;
					jsr		schedule_unbind
											;
											; get supervisor driver number
											; if clean shutdown
											;
					lda		|sdriver_no_hold
					rts

death				jsl		gsos_sys_death	;call system death will not return

					ENDP
	
					EJECT

					END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/SupervisoryDrivers/SCSI.Manager(1meg)/SCSIM.Startup b/IIGS.601.SRC/GS.OS/SupervisoryDrivers/SCSI.Manager(1meg)/SCSIM.Startup
new file mode 100644
index 0000000..588dee3
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/SupervisoryDrivers/SCSI.Manager(1meg)/SCSIM.Startup
@@ -0,0 +1 @@
+
;*******************************************************
;
;	'SCSIM.Startup'
;
;	Written by:
;	
;					Gus Andrade
;
;	Modified for new card by:
;
;					Matt Gulick.
;					Started June 1,1989
;
;	This file contains code to handle the Startup Call.
;	It will allocate all the resources needed by the
;	SCSI Manager to become operational.  It determines
;	how many scsi devices are online and build all the
;	routing data structures to gain access to those
;	devices.
;
;	Copyright Apple Computer, Inc. 1988,89
;	All rights reserved.
;
;*******************************************************

					STRING		PASCAL
					BLANKS		OFF
					PAGESIZE	70
					PRINT		NOGEN
					PRINT		NOMDIR
					MACHINE		M65816

					IMPORT		find_scsi
					IMPORT		init_sdr_tbl
					IMPORT		tout_header
					IMPORT		user_id
					IMPORT		error_stat
					IMPORT		schedule_unbind

;					ENTRY		

					PRINT		OFF

					INCLUDE		'SCSIM.Equates'
;					INCLUDE		'Common.Equ.Src'
;					INCLUDE		'HW.Equ.Src'
					INCLUDE		'M16.MEMORY'
					INCLUDE		'M16.UTIL'
					INCLUDE		'M16.MISCTOOL'

					PRINT		ON

					EJECT

;*******************************************************
;
;	'scsim_startup'
;
;	Main Entry point to the 'Startup' routine.  This is
;	called after the Manager is loaded.  The code that
;	follows sets up the Manager's environment, then
;	calls Memory Manager to allocate space for the SDRs.
;
;	From this point, we need to build the SDR for each
;	device. 
;
;	Called via 'JSR'
;
;	Inputs:		e,m,x		=	0 (full native)
;
;	Outputs:	e,m,x		=	0 (full native)
;				Acc			=	0
;				Carry		=	0
;				Y reg		=	Unspecified
;				X reg		=	Unspecified
;				P			=	0=M=X=e
;				D Page		=	GS/OS Direct Page
;				Bank		=	Ours
;
;	Errors:		See Spec.
;
;*******************************************************
;
					EXPORT	scsim_startup
scsim_startup		PROC
											;
											; go look for SCSI Peripheral
											; cards/ports
											;
					jsr		find_scsi		;go look for scsi cards/ports
					bcs		@85				;none found report error (we get purged)
											;
											; initiaize SCSI Device Record
											; (SDR) table
											;
					jsr		init_sdr_tbl	;initialize scsi device records
					bcs		@85				;none found report error (we get purged)
					rts
											;
											; Delete timeout heartbeat task
											; if errors
											;
@85					PUSHLONG	#tout_header
					_DelHeartBeat
					bcs		@250			;someone destroyed our heartbeat
											;
											; Unbind our IRQ via the SCHEDULER
											;
					jsr		schedule_unbind
											;
											; dispose our memory
											;
					PUSHWORD	|user_id	;dispose of zero page and work areas
					_disposeall
					bcs		@250			;dispose of memory allocated to us
											;
											; dispose our ID back to Misc.
											; Tools
											;
					PUSHWORD	|user_id	;dispose our ID
					_DeleteID
					bcc		sfail

@250				jsl		gsos_sys_death	;bad news could not dispose our memory

sfail				lda		#scsi_start_err	;mark error
					sta		|error_stat
					sec
exit				rts						;>>>--- scsi_man_startup --->>>

					ENDP	

					EJECT

					END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/SupervisoryDrivers/SCSI.Manager(1meg)/SCSIM.Variables b/IIGS.601.SRC/GS.OS/SupervisoryDrivers/SCSI.Manager(1meg)/SCSIM.Variables
new file mode 100644
index 0000000..89e11f6
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/SupervisoryDrivers/SCSI.Manager(1meg)/SCSIM.Variables
@@ -0,0 +1 @@
+
;*******************************************************
;
;	'SCSIM.Variables'
;
;	Written by:
;	
;					Gus Andrade
;
;	Modified for new card by:
;
;					Matt Gulick.
;					Started June 1,1989
;
;	This file contains all Variable Storage used by the
;	SCSI Manager
;
;	Copyright Apple Computer, Inc. 1988,89
;	All rights reserved.
;
;*******************************************************

					STRING		PASCAL
					BLANKS		OFF
					PAGESIZE	70
					PRINT		NOGEN
					PRINT		NOMDIR
					MACHINE		M65816

;					IMPORT		

;					ENTRY		

					PRINT		OFF

					INCLUDE		'SCSIM.Equates'

					PRINT		ON

					EJECT

;*******************************************************
;
;	SCSI Manager internal variables
;
;*******************************************************

					EXPORT	scsi_variables
scsi_variables		PROC

					EXPORT	smbusy_flag
					EXPORT	sdriver_no_hold
					EXPORT	sm_call_no
					EXPORT	zpg_savebuff
					EXPORT	gsos_zpg_hold
					EXPORT	handle_hold

					EXPORT	user_id
					EXPORT	zpg_hold
					EXPORT	zpg_handle

					EXPORT	busy_sdr_count
					EXPORT	asense_flag

					EXPORT	our_irq_flag

					EXPORT	ahold

					EXPORT	devices_found

					EXPORT	hwd_version
					EXPORT	ioattrbs

					EXPORT	last_acc_id2
					EXPORT	lutemp
					EXPORT	ckluflag
					EXPORT	last_acc_slot2

					EXPORT	yhold
					EXPORT	work_vars_buffer

					EXPORT	last_sdr_ptr2
					EXPORT	last_acc_slot1
					EXPORT	last_acc_id1
					EXPORT	last_sdr_ptr1
					EXPORT	last_acc_flag

					EXPORT	smboot_slot
;;
					EXPORT	our_zpg_hold
					EXPORT	error_stat
					EXPORT	scsi_status
					EXPORT	scsi_message

					EXPORT	more_phases
					EXPORT	new_phase
					EXPORT	current_phase
					EXPORT	init_priority
					EXPORT	target_priority
					EXPORT	msg_out_byte
					EXPORT	more_dci
					EXPORT	ident_modify
					EXPORT	cyareg_hold
					EXPORT	phase_hold

smbusy_flag			dc.w	$0000				;scsi manager busy flag (powers up cleared)
ahold				dc.w	$0000
yhold				dc.w	$0000
user_id				dc.w	$0000				;our ID provided by memory manager
handle_hold			dc.l	$00000000			;our handle place holder
zpg_handle			dc.l	$00000000			;zero page handle place holder
zpg_hold			dc.w	$0000				;zero page adddress holder
our_zpg_hold		dc.w	$0000				;our zero page adddress holder
gsos_zpg_hold		dc.w	$0000				;GS/OS zero page placeholder
sdriver_no_hold		dc.w	$0000				;scsi Manager supervisor driver number
sm_call_no			dc.w	$0000				;scsi manager call number holder

asense_flag			dc.w	$0000				;autosense in progress flag
error_stat			dc.w	$0000		
devices_found		dc.w	$0000				;SCSI devices found connected to card/port flag
logicals_found		dc.w	$0000				;Logical units found for scsi device ID

last_acc_slot1		dc.w	$0000				;slot number field of device last accessed
last_acc_id1		dc.w	$0000				;last id accessed holder record 1
last_sdr_ptr1		dc.l	$00000000			;pointer to last sdr accessed record 1
last_acc_slot2		dc.w	$0000				;slot number field of device last accessed
last_acc_id2		dc.w	$0000				;last id accessed holder record 2
last_sdr_ptr2		dc.l	$00000000			;pointer to last sdr accessed record 2
last_acc_flag		dc.w	$0000				;flag & index for last access pointer updating

target_priority		dc.w	$0000				;target priority
init_priority		dc.w	$0000				;initiator priority
hwd_version			dc.w	$0000				;hardware version number
ioattrbs			dc.w	$0000				;I/O Attributes

cyareg_hold			dc.b	$00					;cya register holding location
our_irq_flag		dc.w	$0000				;scsi manager interrupt flag

more_dci			dc.w	$0000				;more data chain instructs. available flag
more_phases			dc.w	$0000				;more phases phase handler trigger
scsi_status			dc.w	$0000				;scsi call status field
scsi_message		dc.w	$0000				;scsi call message field;
msg_out_byte		dc.w	$0000				;message byte to send during message out phase
ident_modify		dc.w	$0000				;Disconnect and other Flags
lutemp				dc.w	$0000				;bitpattern for each possible LU on a SCSI ID
ckluflag			dc.w	$0000				;toggle flag marking when to compare inq buffers
smboot_slot			dc.w	$0000				;slot number boot occuring from
busy_sdr_count		dc.w	$0000				;count of number of busy SDRs
phase_hold			dc.w	$0000				;placeholder for current phase bits
current_phase		dc.w	$FFFF				;totally invalid valid when loaded
new_phase			dc.w	$FFFF				;new phase flag

					EXPORT	work_vars_size:equ
work_vars_size		equ		*-scsi_variables

work_vars_buffer 	ds.b	work_vars_size		;holding buffer for work variables during IRQ
zpg_savebuff		ds.b	maxzpg_space

					ds.b 27						;added 27 bytes of padding to sparse out one block (30-Jan-92 DAL)

					ENDP
	
					EJECT

					END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GS.OS/SupervisoryDrivers/SCSIManager/SCSI.Manager.src b/IIGS.601.SRC/GS.OS/SupervisoryDrivers/SCSIManager/SCSI.Manager.src
new file mode 100644
index 0000000..10a2fd9
--- /dev/null
+++ b/IIGS.601.SRC/GS.OS/SupervisoryDrivers/SCSIManager/SCSI.Manager.src
@@ -0,0 +1 @@
+					TITLE		'GS/OS SCSI Manager' 
					MACHINE		M65816
					PRINT		ON,GEN,NOSYM,OBJ,MCALL,NOMDIR
					PAGESIZE	70
		
;****************************************************************
;	SCSI_Manager:	This program controls access to SCSI devices
;	which may by connected to peripheral cards or built'in SCSI
;	ports.  The program removes all direct access to the hardware
;	from the device drivers. The SCSI Manager controls the
;	following:
;
;	- Hardware resources management.
;		1.	Support startup and shutdown as defined by the
;			Supervisor Dispatcher.
;		2.	Support call interface between SCSI drivers and the
;			SCSI manager.
;		3.	Built-in NCR 5380 support.
;		4.	Support for current SCSI card implementation.
;		5.	Low level phase support to access SCSI devices
;			a. Bus free Phase
;			b. Arbitration Phase
;			c. Selection Phase
;			d. Reselection Phase
;			e. Command Phase
;			f. Data Phase.
;			g. Bus reset Phase
;		6.	Manage SCSI DMA controller.
;		7.	SCSI interrupt support (Used in Reselection)
;	- Message routing between Drivers and physical devices.
;	- Cache support as defined by GS/OS
;	- Async SCSI call support.
;		1.	Issuing calls to devices Asynchronously
;		2.	Posting completion routines for Async SCSI calls.
;
*****************************************************************
;
;	REVISION HISTORY:
;
;System Bug Fix		Manager	Creator	Description of bug fixed
;Vers:	Date:		Version		
;
;	5-26-88		D0.01	GAA	Start SCSI Manager code development
;
;	12-1-88		0.01A	GAA	Alpha release of manager
;
;	12-12-88	0.02A	GAA	1. Bug fix for crash on startup with
;					   no cards present
;					2. Added Autosensing support code
;					3. Bus float check looks for bus free
;					   to tell if card present.
;
;	12-30-88	0.03A	GAA	1. Fixed a crash bug when autosense was
;					   enabled and mode sense call failed.
;					2. Fixed a bug where pdmaoff was dropping
;					   a byte between data chaining instrucntions
;					3. Added code to zero out some of the
;					   internal parameters in the old SCSI
;					   card to force to rebuild its SDATS
;					   when launching a Prodos 8 application
;
;	01-07-89	0.04	GAA	1. Fixed a bug where the memory I allocated
;					   for myself was disposed of when an error
;					   was encountered during startup but the
;					   code segment was not because I returned
;					   to the Supervisory Dispatcher with
;					   carry cleared.  This made the system
;					   crash in various ways.
;
;	01-15-89	0.05	GAA	1. Added code to increment the BUSY flag on ENTRY
;					   to the SCSI Manager and decrement on exit to
;					   prevent access to desk accessories during calls
;					   to the SCSI Manager. Long delays in Desk Accs can
;					   lockup targets and the Manager.
;					2. Phase Handler will no longer hang on a call which
;					   has timed out.
;					3. Modified the Logical unit scanner to stop the scan
;					   for LUs on a scsi ID if access to an LU fails. Will
;					   not install the LU that failed and ones that follow.
;					4. Now issuing a Test Unit Ready prior to Inquiry call
;					   to force target to clear sense data generated by the
;					   the bus reset to the bus during the scsi card slot
;					   scan.
;
;	01-23-89	0.06	GAA	1. Fixed infinite loop bug when there was no jumper
;					   installed on the initiator priority jumper on th3e
;					   OLD scsi card.
;
;	01-24-89	0.07	GAA	1. Fixed a bug where the Manager was dropping devices
;					   because the 5380 was sending $00 instead of $80
;					   during the message out phase for the identify.  This
;					   appears to go out because the target select register
;					   was set to the initiator priority after we have won
;					   arbitration and are trying select the target.  Also
;					   the assert data bus bit is set every time I come into
;					   phase handler to make sure that the bus is turned on.
;
;	01-27-89	0.08	GAA	1. Fixed a bug where the phase bits were being set before
;					   set before checking to see if request was asserted.
;
;	01-30-89	0.09	GAA	1. Bug fix: returned $FE00 for a call which failed
;					   with a check condition ($02). Should have returned
;					   $FE02.  This occurred only when a call failed and
;					   no autosense pointer was provided.
;
;4.1D11	02-8-89		0.0A	GAA	1. Fixed a bug where the last byte of each DCMOVE data chain
;					   instruction was being dropped when multiple data chaining
;					   instructions were issued to the SCSI Manager with one call.
;					2. Fixed a bug where the data chaining prog. counter
;					   was not being bumped to the next instruction for
;					   DCMOVE instructions.
;					3. Fixed a bug where the savepointers routine was not
;					   setting the pointer for the save field properly.
;					4. Added code to add the contents of the DCoffset field to
;					   the address field in the DCMOVE instruction each time a
;					   DCMOVE instruction is accessed.
;					5. Moved the Select timeout back to 250 millisecs from
;					   from 350 millisecs.
;
;4.1D12	02-15-89	0.0B	GAA	1. Fixed a bug where the transfer count update routine was
;					   not updating the high word of the transfer count.
;					2. Bug fix where the transfer count field was not updated
;					   when data was being written to a target.
;					3. Bug fix: When two SCSI cards installed with
;					   different initiator priorities the entries in
;					   the I/O table for logical unit encoding were
;					   shifted by one logical unit.
;
;4.1D13	03-06-89	0.0C	GAA	1. Bug fix: was returning $FE00 when autosensing was
;					   enabled for a call and the autosense call succeeded
;					   on a device specific $801B.
;					2. Added the code to the SCSI Manager for WarmStart
;					   and shutdown.
;					3. Removed the check for REQ in the Osend_bytes routine
;					   It was to there to try and prevent the problem
;					   with the transfer count being off by one on writ3tes
;					   to a target.  The fix did not work!!!  Drivers
;					   must insure that the number of bytes specified in
;					   the req/xfer count field of the parameter block
;					   match the number of bytes specified in the CDB.
;
;4.1D14	03-17-89			1. NO CHANGES
;
;4.1D15	03-21-89	0.0D	GAA	1. The initial release for beta.
;					2. Changed the ID assignment to match the format of the
;					   ID fields as defined by the device dispatcher.  The
;					   ID field now is a 32 bit ENTRY with the low word set
;					   to the slot number and the next word an ID incrementing
;					   from $0001 to $FFFF.
;					3. Added the detection for the rev C SCSI rom.  If the rom 
;					   installed is not a rev. C a message will be displayed on
;					   the screen and that card will be installed in the
;					   device list (for the time being).
;
;4.1D16	03-17-89	1. NO CHANGES
;
;4.1d17	04-03-89	0.0E	GAA	1. Fixed a bug where the SDRSTOCHECK counter was not
;					   being reloaded when booting from a floppy when
;					   the call to ASSIGNID subroutine call was made.
;
;					2. Fixed a bug where index to the sdr was pointing to
;					   the slot field instead of the link field for the next
;					   SDR in the list.  This caused the SDR to contain erroneous
;					   ID information during the ID assignment PROCess.
;
;					3. Fixed a bug in the zap_oldcard routine to mask off the
;					   external slot bit prior using it to turn on the 
;					   $CNXX space for a card.
;
;4.1D18	04-07-89	0.0F	GAA	1. Added a vector to store the address of my zero 
;					   page so the Snooper CDA can have access to   my
;					   handles and access to my tables for display
;					   purposes.
;
;					2. Fixed a bug in the Find_sdr routine.  The last 
;					   accessed pointers were not being updated and
;					   this in turn was forcing the scan through the
;					   entire SDR table to find the requested device.
;
;					3. Bug fix in irq handler where was returning the
;					   wrong polarity on the carry when an interrupt
;					   was serviced for a SCSI card.
;
;					4. Bug fix in irq handler where the pointer to the
;					   record in the I/O table was not pointing to the
;					   slot field in the record when trying to check
;					   to see if a slot had a scsi card installed with a
;					   possible interrupt which needed servicing.
;
;					5. Fixed bug with auto sensing where the slot number
;					   portion of the ID was not being set prior to
;					   issuing a Request sense call for autosense.
;
;	5.0 d29	6-10-89		Fixed bug in claim devices call.
;
;
;--------------------------------------------------------------------------
;
;		INCLUDE FILES
;
;--------------------------------------------------------------------------
;
					PRINT		OFF
					include		'M16.misctool'
					include		'M16.memory'
					PRINT		ON
					EJECT
;
;****************** DEBUG CONDITIONAL assembly switch ****************************
;
debug				equ		$0000					;debug mode 1 = enabled
;
*****************************************************************
*          SCSI Manager hardware equates
*****************************************************************
*
io_space			equ		$00C000					;base address for I/O space
*
*          SCSI ports I/O space (READ)
*
currdata			equ		$0000					;current scsi data
initcmdreg			equ		$0001					;initiator command register
modereg				equ		$0002					;5380 Mode register
targcmdreg			equ		$0003					;5380 target command register
curbusstat			equ		$0004					;5380 current bus status register
busstat				equ		$0005					;bus & status register
indatareg			equ		$0006					;scsi data input register
resetpreg			equ		$0007					;scsi reset parity register
resetirqreg			equ		$0007					;clear 5380 pending irq
*
*          SCSI ports I/O space (Write)
*
outdatareg			equ		$0000					;output data register
selectereg			equ		$0004					;scsi device id during select phase
dmasndreg			equ		$0005					;start DMA send register
tdmarecv			equ		$0006					;start DMA receive target
idmarecv			equ		$0007					;start DMA receive initiator
;
;
*****************************************************************
*
*          SCSI DMA controller registers (Sandwich)
*
*****************************************************************
;
dmaaddrl			equ		$0008					;low byte of source/dest dma address
dmaaddrh			equ		$0009					;high byte of source/dest dma address
dmacntl				equ		$000A					;low byte of dma byte count
dmacnth				equ		$000B					;high byte of dma byte count
dmactl				equ		$000C					;dma chip control register
edmar5380			equ		$000D					;enable DMA & reset 5380 register
restart_dma_reg		equ		$000D					;restart interrupted dma register
reset_5380			equ		$000D					;reset NCR 5380 register
;
;
*****************************************************************
*	OLD SCSI card hardware registers
*****************************************************************
;
io_stbreset			equ		$CFFF					;reset I/O strobe space register
opdmadatareg		equ		$0008					;data in/out pseudo DMA register
card_priot_reg		equ		$0009					;priority jumper block i/o address
ocard_breg			equ		$000A					;old scsi card rom/ram bank select register
opdmareg			equ		$000D					;Pseudo-DMA mode enable old scsi card
drqstatreg			equ		$000E					;b7 = DRQ status bit of address $C0NE
;
;	OLD SCSI CARD internal ram variables/equates
;
scsi_init			equ		$00C809					;Init flag
sdat_start			equ		$00C831					;Start of SDAT ram
gs_flag				equ		$00C8F3					;GS system flag
dibtab_start		equ		$00C931					;start of DIBTAB ram
dibtab_len			equ		$001B					;length of dibtab record
;
	EJECT
*****************************************************************
*
*          NCR 5380 general equates
*
*****************************************************************
*
*          5380 command register
*
databuson			equ		$01						;assert scsi data bus
attention			equ		$02						;assert SCSI ATN*
select				equ		$04						;assert SCSI SEL*
busy				equ		$08						;assert SCSI BSY*
asrtack				equ		$10						;assert SCSI ACK*
arbitlost			equ		$20						;lost arbitration status
differenab			equ		$20						;enable differential (NCR 5381 only!)
arbinprog			equ		$40						;arbitration in progress
testmode			equ		$40						;enable test mode
assertrst			equ		$80						;assert RST*
*
*          5380 mode register
*
arbitrate			equ		$01						;start arbitration phase
dmaenable			equ		$02						;enable DMA mode
monitorbsy			equ		$04						;monitor BSY*
eopirqenb			equ		$08						;enable EOP* interrupt
parirqenb			equ		$10						;enable parity interrupt
parchkenb			equ		$20						;enable parity checking
targetenb			equ		$40						;set target mode
blkdmaenb			equ		$80						;enable Block Mode DMA
*
*          5380 Target command register
*
assertio			equ		$01						;assert I/O*
assertcd			equ		$02						;assert C/D*
assertmsg			equ		$04						;assert MSG*
assertreq			equ		$08						;assert REQ*
lastbyte			equ		$80						;last byte sent (53C80 only!)
*
*          Current SCSI bus status register
*
dbp					equ		$01						;scsi bus parity
sel					equ		$02						;scsi bus SEL*
io					equ		$04						;scsi bus I/O*
cd					equ		$08						;scsi bus C/D*
msg					equ		$10						;scsi bus MSG*
req					equ		$20						;scsi bus REQ*
bsy					equ		$40						;scsi bus BSY*
rst					equ		$80						;scsi bus reset
*
*          Bus & Status register
*
ack					equ		$01						;scsi bus ACK*
atn					equ		$02						;scsi bus ATN*
busyerr				equ		$04						;busy error status
phasematch			equ		$08						;scsi bus phase match status
scsiirq				equ		$10						;5380 irq pending flag
parityerr			equ		$20						;scsi data parity error
drq					equ		$40						;DMA request asserted (DRQ)
end_dma				equ		$80						;end of dma transfer status
;
;
;
;
*****************************************************************
*
*       DMA controller control bit definitions
*
*****************************************************************
;
;
spseudodma			equ		%00000001			;Sandwich Pseudo Dma enable
realdma				equ		%00000010			;Sandwich Real Dma enable
ststmode			equ		%00000100			;Sandwich test mode
sdisstopdma			equ		%00001000			;Disable stop DMA on irq
dmadir				equ		%00010000			;DMA direction bit (read only)
ssystemdma			equ		%01000000			;System DMA status bit (read only)
dma_stopped			equ		%10000000			;DMA stop by irq status (read only)
;
;
*****************************************************************
*
*       SCSI bus timeout        equates
*
*****************************************************************
bus_set_delay		equ		$FF					;bus SET delay
bus_res_hold		equ		$FF					;bus RESET hold time (25 usec min.)
sel_abort_tout		equ		$20					;bus SELECT abort time (200 usec max)
sel_timeout			equ		$A100				;SELECT Timeout (250 millisec min.)
millisec_count		equ		$00CB				;count for 1 millisecond delay
usec125				equ		66					;count for 256 usec delay
bres_ready_del		equ		275					;275 millllisec
arbtcount			equ		120					;2 second arbitration timeout
;
;
********************************************************************************
*
*       Misc Hardware registers
*
********************************************************************************
dma_bank_reg		equ		$00C037				;system dma bank register
slotromsel			equ		$00C02D				;slot rom select register
;
;
		EJECT
********************************************************************************
*
*	SCSI Manager zero page equates
*
********************************************************************************
;
driver_zpg			equ		$0000				;256 bytes reserved for device drivers
driverzpgsize		equ		$0100
;
scsizpg				equ		$0000				;start of our zero page area
;
;
;	zero page working pointer variables
;
zpgwptrs			equ		scsizpg
dev_slot			equ		scsizpg				;slot number
dev_id				equ		dev_slot+2			;id of device sought
pversion			equ		dev_id+2			;parameter list version number
call_attrbs			equ		pversion+2			;call attribute flags
calltout			equ		call_attrbs+2		;number of 1/4 secs call must complete within
compvector			equ		calltout+2			;completion routine vector
scsicptr			equ		compvector+4		;scsi command pointer
dclst_ptr			equ		scsicptr+4			;pointer to buffer structure
req_count			equ		dclst_ptr+4			;working register for byte count requested
asense_ptr			equ		req_count+4			;autosense buffer pointer
msgb_ptr			equ		asense_ptr+4		;message buffer pointer
endzwvars			equ		msgb_ptr+4			;end zero page work variables
wptrssize			equ		endzwvars-zpgwptrs	;number of bytes in working pointers
;
;	zero page misc variables
;
logunit				equ		endzwvars			;logical unit work variable
slot_no				equ		logunit+2			;slot number work variable
io_offset			equ		slot_no+2			;work io space address work variable
dma_offset			equ		io_offset+4			;dma controller io space address work variable
plist_ptr			equ		dma_offset+4		;parameter list pointer
dc_pc				equ		plist_ptr+4			;working data chain inst prog. counter
curr_dci_ptr 		equ		dc_pc+4				;work current data chain inst pointer
buffer_ptr			equ		curr_dci_ptr+4		;work buffer pointer
byte_ctr			equ		buffer_ptr+4		;work byte counter
xfer_count			equ		byte_ctr+4			;working register for byte count transferred
;
numscsi_cards		equ		xfer_count+4		;number of scsi cards found in system
sdrsonline			equ		numscsi_cards+2		;number of sdrs online
sdrstocheck			equ		sdrsonline+2		;working varialble
active_sdr			equ		sdrstocheck+2		;pointer to currently active SDR
io_table_ptr		equ		active_sdr+4		;points to I/O table
iorec_ptr			equ		io_table_ptr+4		;I/O record pointer
sdr_table_ptr		equ		iorec_ptr+4			;scsi device records table pointer
sdr_ptr				equ		sdr_table_ptr+4		;SDR record pointer	
next_sdr			equ		sdr_ptr+4			;contains address of next available SDR
avail_sdrs			equ		next_sdr+4			;number of available SDRs
scratchzpg			equ		avail_sdrs+2		;scratchpad pointer
temp1				equ		scratchzpg+4		;scratchpad
temp2				equ		temp1+4				;scraattchpad
addr_table_ptr		equ		temp2+4				;routine tables pointer
tick_addr			equ		addr_table_ptr+4	;system wide tick counter address
zpgsize				equ		tick_addr+4-scsizpg	;scsi manager has 1 page of zero page space max.
;
max_zpgcode			equ		$0080				;largest code space for zero page routines
maxzpg_space		equ		$0200				;2 pages for zero page space max.
driver_zpg_size		equ		$0100				;one page of drivers (2nd page for scsi manager)
zeropg_code			equ		$0080				;start of zero page code
zpgbank				equ		$0000				;zero page always in bank $0000

********************************************************************************
*	GS/OS zero page equates
********************************************************************************

sib_plptr			equ		$0078				;pointer to parameter list for scsi manager
gsoszpgscratch		equ		$0060				;scratch zero page area in gs/os zero page

	EJECT
*****************************************************************
*	Parameter list field definitions for Request Devices &
*	Claim Devices calls.
*****************************************************************
;
;	Get Devices parameter list fields
;
getdevs_plst		equ		$0000
scsi_dtype			equ		$0000				;scsi device type
intcomvect			equ		$0002				;intercommnunication vector
destbuffptr			equ		$0006				;destination buffer pointer
;
;
;	destination buffer field definitions
;
zpg_addr			equ		$0000				;offset to zero page field
total_devcount		equ		$0002				;total device count field
device_slot			equ		$0004				;slot number field
device_id			equ		$0006				;scsi device id field
;
reqENTRY_size		equ		device_id\
							-total_devcount		;number of bytes per ENTRY
;
		EJECT
*****************************************************************
*	Parameter list field definitions for SCSI I/O call
*****************************************************************
;
;	I/O call parameter list
;
io_call_plst		equ		$0000
plst_slot			equ		$0000				;device ID := slot & unit number
plst_devid			equ		$0002				;parameter list device ID
plst_version		equ		$0004				;parameter list version
plst_attrbs			equ		$0006				;attributes word
plst_timeout		equ		$0008				;timeout in 1/4 sec counts
plst_comp_vect		equ		$000A				;Completion vector
plst_cmd_ptr		equ		$000E				;pointer to scsi cmd list
plst_dchainptr		equ		$0012				;pointer to data chain instructions
plst_reqxfr_cnt		equ		$0016				;request/transfered byte count
plst_autos_ptr		equ		$001A				;pointer to autosense buffer
plst_msg_ptr		equ		$001E				;pointer to message buffer pointer
plst_Reserved		equ		$0022				;reserved (must be $0000)
;
;	parameter list attribute bits definitions
;
plst_disc_bit		equ		$8000				;parameter list attribute bit for disconnect
plst_msgin_bit		equ		$4000				;save message in bytes in message buffer
plst_msgout_bit		equ		$2000				;message out bytes in message buffer for target
plst_attresbits		equ		$7FFF				;param list attributes word reserved bits
;
;
;	DATA CHAINING INSTRUCTION DEFINITION
;
dci_opcode			equ		$0000				;opcode field
dci_count_field		equ		$0004				;count field
dci_offset			equ		$0008				;offset field
dci_save			equ		$000C				;data chain instruction save area
;
dci_size			equ		dci_save+4\
							-dci_opcode			;number of bytes in data chain instruction
maxdcis				equ		32					;maximum of 32 data chain inst per i/o call
;
		EJECT
********************************************************************************
*
*       SCSI Manager Errors
*
********************************************************************************
success				equ		$0000				;
scsi_man_err		equ		$FE00				;generic scsi manager error
bad_dev_type		equ		$FE01				;invalid SCSI device type
ckcondition			equ		$FE02				;check condition
bad_scsi_id			equ		$FE03				;invalid SCSI device ID
condmetgood			equ		$FE04				;condition met good
plist_error			equ		$FE05				;invalid SCSI Mgr. parameter block
bad_buff_size		equ		$FE06				;invalid buffer size
sm_rsrc_err 		equ		$FE07				;unable to allocate mgr. resources
target_busy			equ		$FE08				;target busy
sm_shutdown_err		equ		$FE09				;unable to shutdown scsi manager
scsicmd_err			equ		$FE0A				;scsi manager command out or range
scsi_start_err		equ		$FE0B				;scsi manager already started error
no_startup_err		equ		$FE0C				;SCSI Manager not started error
no_scsi_hardware	equ		$FE0D				;no scsi cards found
irq_install_err		equ		$FE0E				;unable to install scsi irq handler
irq_remove_err		equ		$FE0F				;unable to unbind scsi irq handler
intermed_good		equ		$FE10				;intermediate status good (linked cmds)
calltout_err		equ		$FE11				;call timeout error
get_dib_err			equ		$FE12				;get_dib_ptr call failed
gen_scsi_bus_err 	equ		$FE13				;general scsi bus error
bus_free_err		equ		$FE14				;bus freee phase error
arbit_phase_err		equ		$FE15				;bus arbitration error
sel_phase_err		equ		$FE16				;select phase error
int_cond_met_good	equ		$FE17				;intermediate/condition met/good
cmd_phase_err		equ		$FE18				;command phase error
data_phase_err		equ		$FE19				;data phase error
bad_msg_err			equ		$FE1A				;message phase error
reserve_conflict	equ		$FE1B				;reservation conflict
stat_phase_err		equ		$FE1C				;status phase error
scsi_bus_Res_err 	equ		$FE1D				;SCSI bus reset error
no_scsi_devs		equ		$FE1E				;general scsi hardware error
no_scsi_err			equ		$FE1F				;No SCSI signatured hardware found
inv_scsi_irq		equ		$FE20				;Invalid SCSI interrupt generated
inv_code_err		equ		$FE21				;seq opcode routine should not have gone to bcs handler
inv_phase_err		equ		$FE22				;Invalid phase pattern
sm_busy_err			equ		$FE23				;SCSI Manager busy error
autosfail_err		equ		$FE24				;Autosense call failed
;
;	SCSI target status error codes
;
queue_full			equ		$FE28				;queue full status
												;$FExx where xx = scsi status byte
;
*****************************************************************
*	Bus Status word bit definitions
*****************************************************************
;
bparstat			equ		$0001				;bus parity status bit
bselstat			equ		$0002				;bus select
biostat				equ		$0004				;bus I/O
bcdstat				equ		$0008				;bus C/D
bmsgstat			equ		$0010				;bus MSG
breqstat			equ		$0020				;bus REQ
bbsystat			equ		$0040				;bus BSY
brststat			equ		$0080				;bus RST (scsi bus reset)
backstat			equ		$0100				;bus ACK status bit
batnstat			equ		$0200				;bus ATN
bbsyerrstat			equ		$0400				;bus BSY error
bphasematch			equ		$0800				;bus phase match status
birqstat			equ		$1000				;5380 irq pending
bparerrstat			equ		$2000				;scsi bus parity error status
bdmareqstat			equ		$4000				;DRQ status bit
benddmastat			equ		$8000				;End of DMA status
beopstat			equ		$8000				;bus end of DMA status
;
;
		EJECT
*****************************************************************
*	SCSI Bus phases bit patterns
*****************************************************************
;
data_out_phase		equ		$0000
data_in_phase		equ		$0001
cmd_phase			equ		$0002
stat_phase			equ		$0003
invalid_phase1		equ		$0004
invalid_phase2		equ		$0005
msg_out_phase		equ		$0006
msg_in_phase		equ		$0007
;
;
*****************************************************************
*	SCSI message definitions
*****************************************************************
;
cmd_complete		equ		$0000				;command complete
extended_msg		equ		$0001				;extended message marker
save_dat_ptr		equ		$0002				;save data pointer message
rest_data_ptr		equ		$0003				;restore data pointer message
disconnect			equ		$0004				;disconnect message
init_err_detect		equ		$0005				;initiator detected error
abort_msg			equ		$0006				;abort transaction message
rEJECT_msg			equ		$0007				;rEJECT message
nop_msg				equ		$0008				;NO operation message
par_err_msg			equ		$0009				;parity error message
link_comp_msg		equ		$000A				;linked command complete message
link_compwf_msg		equ		$000B				;linked command complete with flag message
bus_dev_res_msg		equ		$000C				;bus device reset message
sdata_follows		equ		$000D				;auto Sense data follows
identify_msg		equ		$0080				;$80-$FF = Identify message
;
					EJECT
*****************************************************************
*          SCSI Manager Data structures
*****************************************************************
*          SCSI Manager I/O Space Table
*****************************************************************
* This table contains all the entries for each Slot, scsi devices
* and logical units within scsi devices. The bitmap of the scsi
* device logical units is broken down as follows:
*
*	I/O table record:
*	+-----------+-----------+
*	|    	Slot Number	|	slots 0-F (slot 0,8 do not exist) slots 9-F external 
*	+-----------+-----------+
*	| SCSI hardware version	|	hardware version identification
*	+-----------+-----------+
*	|    5380 base addr	|	Low word $C0X0 where X := (slot# * $10) + $80
*	+-----------+-----------+
*	|   5380 bank number	|	bank number of scsi controller base
*	+-----------+-----------+
*	| DMA Control base addr |	Low word $C0X0 where X := (slot# * $10) + $80
*	+-----------+-----------+
*	|  DMA controller bank	|	DMA controller bank
*	+-----------+-----------+
*	| Card/port attributes	|
*	+-----------+-----------+
*	|   Initiator Priority	|
*	+-----------+-----------+
*	| SCSI Device 0 Logical	|	Bit Map for Logical units on SCSI Device 0
*	+-----------+-----------+
*	| SCSI Device 1 Logical	|	Bit Map for Logical units on SCSI Device 1
*	+-----------+-----------+
*	| SCSI Device 2 Logical	|	Bit Map for Logical units on SCSI Device 2
*	+-----------+-----------+
*	| SCSI Device 3 Logical	|	Bit Map for Logical units on SCSI Device 3
*	+-----------+-----------+
*	| SCSI Device 4 Logical	|	Bit Map for Logical units on SCSI Device 4
*	+-----------+-----------+
*	| SCSI Device 5 Logical	|	Bit Map for Logical units on SCSI Device 5
*	+-----------+-----------+
*	| SCSI Device 6 Logical	|	Bit Map for Logical units on SCSI Device 6
*	+-----------+-----------+
*	| SCSI Device 7 Logical	|	Bit Map for Logical units on SCSI Device 7
*	+-----------+-----------+
*	| 	RESERVED	|	Room for future expansion
*	+-----------+-----------+
*
*	NOTE: 1.If the Slot Number field is zero then
*		no SCSI card/port was found in this position
*		Otherwise it contains the slot number
*	      2.The Intiator priority defined by the cards
*		Built-in SCSI ports are defined have the highest priority $07
*
*  card/port_attrbs:
*  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
*  |F|E|D|C|B|A|9|8|7|6|5|4|3|2|1|0|
*  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
*   | | | | | | | | | | | | | | | |
*   | | | | | | | | | | | | +-+-+-+----- scsi hardware version
*   | | | | | | | | | | | +------------- card/built-in port 	0=port, 1=card
*   | | | | | | | | | | +--------------- IRQ support		0=no irq 1=generates irq
*   | | | | | | | | | +----------------- DMA support		0=no DMA 1=DMA transfers
*   +-+-+-+-+-+-+-+-+------------------- RESERVED
*
*	scsi hardware version:
*	0000 = Old SCSI card
*	0001 = New SCSI card
*	0010 = Option 4 built-in port
*	0011-1111 Reserved
*
*  Device word:
*  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
*  |F|E|D|C|B|A|9|8|7|6|5|4|3|2|1|0|
*  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
*   | | | | | | | | | | | | | | +-+------ Logical unit 0
*   | | | | | | | | | | | | +-+---------- Logical unit 1
*   | | | | | | | | | | +-+-------------- Logical unit 2
*   | | | | | | | | +-+------------------ Logical unit 3
*   | | | | | | +-+---------------------- Logical unit 4
*   | | | | +-+-------------------------- Logical unit 5
*   | | +-+------------------------------ Logical unit 6
*   +-+---------------------------------- Logical unit 7
*
*	Each pair of bits is encoded as follows:
*
scan_lu				equ		%00 				;This logical unit needs to be scanned for
lu_online			equ		%01 				;This logical unit is online leave alone
select_active		equ		%10 				;Currently trying to select this scsi device
lu_scan_end			equ		%11					;Do not check for Logical units beyond this one
*
*****************************************************************
;
iorecord			equ		$0000
slot				equ		iorecord
hwd_type			equ		slot+2
scsi_base			equ		hwd_type+2			;scsi controller base address
scsi_bank			equ		scsi_base+2			;high word of scsi controller base
dma_base			equ		scsi_bank+2			;io base addr for dma controll
dma_bank			equ		dma_base+2			;dma control bank address
io_attrbs			equ		dma_bank+2			;this slots/port attributes
initpriot			equ		io_attrbs+2			;Initiator priority
d0logicals			equ		initpriot+2			;device 0 logical units bit map
d1logicals			equ		d0logicals+2		;device 1 logical units bit map
d2logicals			equ		d1logicals+2		;device 0 logical units bit map
d3logicals			equ		d2logicals+2		;device 1 logical units bit map
d4logicals			equ		d3logicals+2		;device 0 logical units bit map
d5logicals			equ		d4logicals+2		;device 1 logical units bit map
d6logicals			equ		d5logicals+2		;device 0 logical units bit map
d7logicals			equ		d6logicals+2		;device 1 logical units bit map
end_iorecord		equ		d7logicals+2		;
iorec_size			equ		end_iorecord\
							-iorecord			;size I/O record size
*
*	io_attrbs bit definitions & defaults
*
;
;	Hardware version types
;
old_scsi_card		equ		$0000
new_scsi_card		equ		$0001
opt4_scsi			equ		$0002
;
;
;	I/O attribute bits
;
external_card		equ		$0002
irq_support			equ		$0004
dma_support			equ		$0008
;
old_card_attrbs		equ		$0010				;old card, external, no irq or DMA support
new_card_attrbs		equ		$000F				;new scsi card attributes
;
		EJECT
*****************************************************************
*
*	I/O table
*
*****************************************************************
;
io_table			equ		$0000				;io table definition
s0_iorec			equ		io_table\
							+iorec_size			;slot 0 internal
s1_iorec			equ		s0_iorec\
							+iorec_size			;slot 1
s2_iorec			equ		s1_iorec\
							+iorec_size			;slot 2
s3_iorec			equ		s2_iorec\
							+iorec_size			;slot 3
s4_iorec			equ		s3_iorec\
							+iorec_size			;slot 4
s5_iorec			equ		s4_iorec\
							+iorec_size			;slot 5
s6_iorec			equ		s5_iorec\
							+iorec_size			;slot 6
s7_iorec			equ		s6_iorec\
							+iorec_size			;slot 7
s8_iorec			equ		s7_iorec\
							+iorec_size			;slot 0 external
s9_iorec			equ		s8_iorec\
							+iorec_size			;slot 1
sA_iorec			equ		s9_iorec\
							+iorec_size			;slot 2
sB_iorec			equ		sA_iorec\
							+iorec_size			;slot 3
sC_iorec			equ		sB_iorec\
							+iorec_size			;slot 4
sD_iorec			equ		sC_iorec\
							+iorec_size			;slot 5
sE_iorec			equ		sD_iorec\
							+iorec_size			;slot 6
sF_iorec			equ		sE_iorec\
							+iorec_size			;slot 7
end_iotable			equ		sF_iorec
iotsize				equ		end_iotable\
							-io_table			;io_table size
;
;
					EJECT
********************************************************************************
*	Scsi Device Record (SDR)
********************************************************************************
*
*	+-----------+-----------+
*	|						|	Address of next SDR record
*	+---- Next SDR Link ----+
*	|						|	See Device ID definition below
*	+-----------+-----------+
*	|       Device Id		|	ID assigned to this Logical Unit (LU)
*	+-----------+-----------+
*	|Logical Unit Attributes|	See Logical_unit_attributes definition below
*	+-----------+-----------+
*	|   SCSI Device Type 	|	See standard for definition
*	+-----------------------+
*	| SCSI standard Version |	Refer to SCSI standard
*	+-----------+-----------+
*	|     Target_priority	|	Target priority record belongs to
*	+-----------+-----------+
*	|						|	Intercommunication vector for driver who owns
*	+-- Intercomm. Vector --+	this device.
*	|						|
*	+-----------+-----------+
*	|						|	Vector to pass control on Reselect IRQ
*	+--completion Vector----+
*	|						|
*	+-----------+-----------+
*	|						|	Field to save data chain instruction during
*	+-- Data Chain Offset --+	Save pointers call
*	|						|
*	+-----------------------+
*	|						|	call terminal count in tics
*	+------- Timeout -------+
*	|						|
*	+-----------+-----------+
*	|						|	current position of buffer address (2's complement form)
*	+------ Buffer Ptr -----+
*	|						|
*	+-----------+-----------+
*	|						|	Byte count place holder
*	+-- Current byte count--+
*	|						|
*	+-----------+-----------+
*	|		Reserved		|	Expansion
*	+-----------+-----------+
*	|						|	Expansion
*	+------- Reserved ------+
*	|						|
*	+-----------+-----------+
*	|						|	Expansion
*	+--------Reserved ------+
*	|						|
*	+-----------+-----------+
*
*
*  Device ID:
*  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
*  |F|E|D|C|B|A|9|8|7|6|5|4|3|2|1|0|
*  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
*   | | | | | | | | | | | | | | | |
*   | | | | | | | | | | | | | | | |
*   | | | | | | +-+-+-+-+-+-+-+-+-+-----	Device ID assigned by SCSI Manager
*   | +-+-+-+-+-------------------------	RESERVED
*   +-----------------------------------	Claimed bit 1= Claimed by driver
*
*
* 	Logical Unit Attrbs:
*	+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
*	|F|E|D|C|B|A|9|8|7|6|5|4|3|2|1|0|
*	+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
* 	 | | | | | | | | | | | | | | | |
* 	 | | +-+-+-+-+-+-+-+-+-+-+-+-+-+-----	RESERVED
* 	 | +---------------------------------	SDR record busy flag
*	 +-----------------------------------	Removeable media
*
* SCSI_DEVICE_TYPE BYTE DEFINITION: (Inquiry call definition)
*	Bits 0-4
*	$00 = Direct access device (magnetic disk)
*	$01 = Sequential access device (magnetic tape)
*	$02 = Printer device
*	$03 = PROCessor device
*	$04 = Write-once direct access device (some optical disks)
*	$05 = Read-only direct access device (optical disks)
*	$06 = Scanner device
*	$07 = Optical Memory devices (optical disks)
*	$08 = Changer device (jukeboxes)
*	$09 = Communications device
*	$0A-$10 = RESERVED
*	$1E = Target device ???
*	$1F = Unknown device type
*
*	Bits 5-7
*	000 = Type defined by bits 0-4 connected to this LU
*	001 = Target SCSI ID able to support type defined by bits 0-4
*	010 = RESERVED
*	011 = LU not able to support Logical unit
*	1XX = Vendor Unique
*
********************************************************************************
;
;
sdr_record			equ		$0000				;scsi manager scsi device record
nxt_sdr_lnk			equ		sdr_record			;(4)link to next SDR in the queue
sdr_plist_ptr		equ		nxt_sdr_lnk+4		;(4)pointer to parameter list tied t to this device
sdr_device_id		equ		sdr_plist_ptr+4		;(2)ID assigned by SCSI manager
sdr_devtype			equ		sdr_device_id+2		;(2)SCSI Device type definition
sdr_standard_vers	equ		sdr_devtype+2		;(2)scsi standards version
sdr_flags			equ		sdr_standard_vers+2	;(2)scsi device access attributes
sdr_sublu			equ		sdr_flags+2			;(2)sub logical unit (reserved must be zero)
sdr_logunit			equ		sdr_sublu+2			;(2)Logical unit number
sdr_targ_priot		equ		sdr_logunit+2		;(2)Target device priority
sdr_init_priot		equ		sdr_targ_priot+2	;(2)Initiator priority this LU talks to
sdr_slot			equ		sdr_init_priot+2	;(2)card slot no. for this LU
sdr_5380_base		equ		sdr_slot+4			;(4)I/O base address for 5380
sdr_dma_base		equ		sdr_5380_base+4		;(4)I/O base address for 5380 DMA control
sdr_timeout			equ		sdr_dma_base+2		;(4)call timeout remaining (seconds)
sdr_completion_vect	equ		sdr_timeout+4		;(4)completion vector
sdr_cmd_ptr			equ		sdr_completion_vect\
							+4					;(4)position of next command byte to send
sdr_dc_offset		equ		sdr_cmd_ptr+4		;(4)Position of current data chain instruction
sdr_Buffer_ptr		equ		sdr_dc_offset+4		;(4)address of next data byte in buffer
sdr_byte_count		equ		sdr_buffer_ptr+4	;(4)intermediate byte count
sdr_reserved1		equ		sdr_byte_count+4	;(6) room for expansion
sdr_reserved2		equ		sdr_reserved1+2
end_sdr_record		equ		sdr_reserved2+4
;
sdrrec_size			equ		end_sdr_record\
							-sdr_record			;size of scsi device record
;
;
;
;	SCSI DEVICE RECORD (SDR) attributes word bit definitions
;
;	bits 0-D reserved & must be zero
;
sdr_attrb_busy		equ		$8000				;SDR busy marker bit
sdr_attrb_tout		equ		$4000				;call timed out
sdr_attrb_disc		equ		$2000				;disconnect flag
sdr_attrb_purge		equ		$1000				;flag to mark purge on next timeout IRQ
sdr_attrb_rmb		equ		$0080				;media removeable bit
;
	EJECT
*****************************************************************
*	SCSI device types as defined by the SCSI 2 standard
*****************************************************************
*
*	$00 = Direct access device (magnetic disk)
*	$01 = Sequential access device (magnetic tape)
*	$02 = Printer device
*	$03 = PROCessor device
*	$04 = Write-once direct access device (some optical disks)
*	$05 = Read-only direct access device (optical disks)
*	$06 = Scanner device
*	$07 = Optical Memory devices (optical disks)
*	$08 = Changer device (jukeboxes)
*	$09 = Communications device
*	$0A-$10 = RESERVED
*	$1E = Target device ???  (SEE STANDARD)
*	$1F = Unknown device type
*
diraccdev			equ		$0000
seqaccdev			equ		$0001
prnterdev			equ		$0002
PROCdev				equ		$0003
wrtoncedev			equ		$0004
readonlydev			equ		$0005
scannerdev			equ		$0006
optmemdev			equ		$0007
changerdev			equ		$0008
commdev				equ		$0009
targetdev			equ		$001E
unknowndev			equ		$001F
;
;
					EJECT
*****************************************************************
*          SCSI Manager misc. equates
*****************************************************************
;
startup				equ		$0000				;scsi manager call numbers
shutdown			equ		$0001
request_devs		equ		$0002
claim_devs			equ		$0003
io_call				equ		$0005

scsi_manager_id		equ		$0002				;See SCSI supervisor driver ERS

bind_irq			equ		$2031				;class 1 bind interrupt call number
bind_pcount			equ		$0003				;bind irq parameter count
unbind_irq			equ		$2032				;class 1 unbind irq call number
unbind_pcount		equ		$0001				;unbind parameter count
gsos_busy			equ		$0007				;GS/OS busy error generated during Unbind irq

other_irq_vrn		equ		$0017				;IRQ other VRN
scsi_vrn			equ		other_irq_vrn		;our vrn for now will change in option 4
stack_ENTRY			equ		$E100B0				;GS/OS stack based call ENTRY point
slot_arbit			equ		$01FCBC				;GS/OS system service routine slot arbitrator
gsos_sys_death		equ		$01FC44				;GS/OS system death system service routine
mtool_id_type		equ		$3B00				;supervisors driver id type from misc. tools
initpriority		equ		$0007				;SCSI priority for initiator

wait_phase_rcnt		equ		$0003				;high word of wait_phase retry count
qtrsec				equ		$000F				;15 ticks for 1/4 second
max_slots			equ		$0008				;maximum number of slots internal & external
max_scsi_devs		equ		$0008				;maximum scsi device on bus per slot
max_targets			equ		$0007				;maximum number of SCSI targets per slot
max_logunits		equ		$0008				;maximum number of SCSI Logical units

inqbsize			equ		$0100				;2 buffers 256 bytes each
inqbstart			equ		$0002				;start of inquiry buffer data area
mem_page			equ		$0100				;256 bytes per memory page
sdrsperpage			equ		mem_page\
							/sdrrec_size		;number of sdrs per page
default_sdrs		equ		sdrsperpage*2		;minimum number of SDRs allocated
sdr_memory			equ		default_sdrs\
							*sdrrec_size		;amount of default SDR memory
max_sdrs			equ		max_slots\
							*max_targets\
							*max_logunits		;max SCSI Device records
min_mem_size		equ		iotsize\			;I/O table size
							+sdr_memory			;two memory pages for sdrs to start with
max_cmd_size		equ		$000C				;largest scsi command 12 bytes
dont_scan_dev		equ		$FFFF				;Do not scan any logicals
no_device			equ		$FFFF  				;marker for no scsi device found
lunotavail			equ		$007F				;byte 1 of inquiry (LU not available)
claimed				equ		$8000				;bit 15 of sdr_id field marks device claimed
slot0				equ		$0000				;
slot7				equ		$0007				;
slot7ext			equ		$000F				;slot 7 external
;
scsid0				equ		$0000				;scsi device number 0
scsid1				equ		$0001				;scsi device number 1
scsid2				equ		$0002				;scsi device number 2
scsid3				equ		$0003				;scsi device number 3
scsid4				equ		$0004				;scsi device number 4
scsid5				equ		$0005				;scsi device number 5
scsid6				equ		$0006				;scsi device number 6
scsid7				equ		$0007				;scsi device number 7
;
scsi_prior0			equ		$0001				;scsi device 0 priority
scsi_prior1			equ		$0002				;scsi device 1 priority
scsi_prior2			equ		$0004				;scsi device 2 priority
scsi_prior3			equ		$0008				;scsi device 3 priority
scsi_prior4			equ		$0010				;scsi device 4 priority
scsi_prior5			equ		$0020				;scsi device 5 priority
scsi_prior6			equ		$0040				;scsi device 6 priority
scsi_prior7			equ		$0080				;scsi device 7 priority
;
lu0					equ		$0000				;logical unit numbers
lu1					equ		$0020				;in logical unit field
lu2					equ		$0040				;within the scsi command 
lu3					equ		$0060				;packet. (bits 5-7 of byte 0)
lu4					equ		$0080
lu5					equ		$00A0
lu6					equ		$00C0
lu7					equ		$00E0
;
lock_bit			equ		%1000000000000000	;lock bit for our handle
sm_buffer_attrs		equ		%1100000000011100	;our work data buffer MM attributes
zpg_attrbs			equ		%1100000000010101	;scsi Manager zero page MM attributes
;							 |||||||||||||||+--- Fixed bank
;							 ||||||||||||||+---- Fixed address
;							 |||||||||||||+----- Page aligned
;							 ||||||||||||+------ May not use special memory
;							 |||||||||||+------- May not cross bank boundaries
;							 ||||||||+++-------- RESERVED
;							 ||||||++----------- Purge level 00 (don't purge)
;							 ||++++------------- RESERVED
;							 |+----------------- Block FIXED may not move
;							 +------------------ Block Locked may not move or purge
;
;
incbusyflag			equ		$E10064				;Increment Busy flag ENTRY point
decbusyflag			equ		$E10068				;Decrement Busy flag ENTRY point
;
rom_message			equ		$0020				;message number for rev c rom required
rev_c_rom			equ		$0002				;version number for version C scsi rom
;
**********************************************************************************
*	Data Chaining equates
**********************************************************************************
;
dc_size				equ		$0010				;16 bytes per data chain instruction
;
dc_loop_inst		equ		$FFFFFFFF			;-1 defines loop ocode
dc_stop_inst		equ		$00000000
;
;	chain instructions field positions
;
dc_opcode			equ		$0000				;long word field for the data chain opcode
dc_count			equ		$0004				;long word field for count field
dc_offset			equ		$0008				;long word field for offset
dc_sav_ptrs			equ		$000C				;long word field for save pointers field
;
**********************************************************************************
*	SCSI Manager sequence number equates
**********************************************************************************

oend				equ		$0000				;end of sequence marker
irq_hand			equ		$0000				;irq handler
phase_hand			equ		$0001				;phase handler
hwdchk				equ		$0002				;hardware type check
setup				equ		$0003				;setup routine
bfreeph				equ		$0004				;bus free
arbph				equ		$0005				;arbitrate
selectph			equ		$0006				;select
doutph				equ		$0007				;data out phase
dinph				equ		$0008				;data in phase
cmdph				equ		$0009				;command phase
statph				equ		$000A				;status phase
moutph				equ		$000D				;message out
minph				equ		$000E				;message in
;
*************************************************************************************
*
*	Byte definitions of INQUIRY packet
*
*************************************************************************************
;
;	inquiry packet field positions
;
inq_packet			equ		$0000
inq_devtype			equ		$0000				;scsi device type
inq_rmb				equ		$0001				;bit 7 = removeable bit
inq_version			equ		$0002				;standard supported version information
inq_attrbs			equ		$0007				;attribute bits for target (see standard)
;
;	Inquiry	packet bit definitions
;
scsidt_mask			equ		$007F				;mask for device type
scsi_rmb			equ		$0080				;removeable media bit
scsi_svers			equ		$0007				;scsi standard version number
;
;
;	includes for GS/OS
;
					EJECT
					include		'common.equ.src'
					include		'driver.equ.src'
					include		'hw.equ.src'
;
					EJECT
**********************************************************************
*Entries:	ALL the ENTRY definitions go here\
**********************************************************************
;
					ENTRY		scsi_man_header
					ENTRY		snooper_ptr
					ENTRY		scsim_chars
					ENTRY		cmd_table
					ENTRY		addr_tables
					ENTRY		oaddr_tbl
					ENTRY		scsi_variables
					ENTRY		scsi_man_exec
					ENTRY		allocate_memory
					ENTRY		clear_memory
					ENTRY		move_bytes
					ENTRY		scsim_startup
					ENTRY		tout_header
					ENTRY		scsim_shutdown
					ENTRY		scsim_reqdevs
					ENTRY		scsim_claimdevs
					ENTRY		scsim_io
					ENTRY		tick_count
					ENTRY		callrtn
					ENTRY		scsi_irq_hand
					ENTRY		old_scsi_tbls
					ENTRY		oscsi_irq_hand
					ENTRY		oscsi_hwd_check
					ENTRY		set_old_scsi
					ENTRY		oscsi_bus_free
					ENTRY		oscsi_setup
					ENTRY		oscsi_data_out
					ENTRY		oscsi_data_in
					ENTRY		oscsi_status
					ENTRY		oscsi_msg_in
					ENTRY		oscsi_msg_out
					ENTRY		ocopyzcode
					ENTRY		osend_cmd
					ENTRY		osend_bytes
					ENTRY		orecv_bytes
					ENTRY		osend_byte
					ENTRY		orecv_byte
					ENTRY		callzpg
					ENTRY		oscsibyteio
					ENTRY		ozeropgcode
					ENTRY		low_ptrs_init
					ENTRY		ophase_handler
					ENTRY		oinit_5380
					ENTRY		ozap_5380
					ENTRY		opdmaoff
					ENTRY		obad_phase
					ENTRY		tu_slot
					ENTRY		tulunit
					ENTRY		inq_slot
					ENTRY		inq_lunit
					ENTRY		sense_plist
					ENTRY		sense_slot
					ENTRY		senseid
					ENTRY		sense_lunit
					ENTRY		sensebstruc
					ENTRY		sensecnt0
					ENTRY		sensecnt1
					ENTRY		inq_plist
					ENTRY		sense_buff
					ENTRY		inq_buff
					ENTRY		arbitrate_phase
					ENTRY		arbtout_header
					ENTRY		Select_phase
					ENTRY		res_icmd_bits
					ENTRY		set_icmd
					ENTRY		res_icmd
					ENTRY		set_icmd_bits
					ENTRY		oscsi_dma_enab
					ENTRY		oscsi_dma_disab
					ENTRY		set_ack_true
					ENTRY		set_ack_false
					ENTRY		wait_req_true
					ENTRY		wait_req_false
					ENTRY		wait_drq_true
					ENTRY		slow_down
					ENTRY		restore_cya
					ENTRY		wait_busy
					ENTRY		message_phase
					ENTRY		status_phase
					ENTRY		chkbusfloat
					ENTRY		wait_for_phase
					ENTRY		bind_scsi_irq
					ENTRY		unbind_scsi_irq
					ENTRY		bus_reset
					ENTRY		find_scsi
					ENTRY		chk_scsi_type
					ENTRY		set_iorec_ptr
					ENTRY		init_sdr_tbl
					ENTRY		setup_work_vars
					ENTRY		check_logicals
					ENTRY		calltarget
					ENTRY		nextlu
					ENTRY		set_io_addrs
					ENTRY		build_sdr
					ENTRY		scan_scsi_devs
					ENTRY		rest_sromsel
					ENTRY		save_work_vars
					ENTRY		rest_work_vars
					ENTRY		chk_sel_tout
					ENTRY		sel_abort_wait
					ENTRY		smartp_scsi_chk
					ENTRY		millisec_delay
					ENTRY		match_phases
					ENTRY		pdma_recv_data
					ENTRY		rdma_recv_data
					ENTRY		rdma_send_data
					ENTRY		bus_status
					ENTRY		setzpgvars
					ENTRY		get_plist
					ENTRY		set_plist
					ENTRY		find_sdr
					ENTRY		priot_to_dev
					ENTRY		dev_to_priot
					ENTRY		get_tick_addr
					ENTRY		getticks
					ENTRY		get_targp
					ENTRY		setscan
					ENTRY		alloc_nxt_sdr
					ENTRY		getnxtdci
					ENTRY		setup_call_env
					ENTRY		id_assignment
					ENTRY		validate_msg
					ENTRY		touthandler
					ENTRY		clear_state
					ENTRY		cleanup_sdr
					ENTRY		adjtout
					ENTRY		saveptrs
					ENTRY		ckdcilst
					ENTRY		setnoscan
					ENTRY		setonline
					ENTRY		oaddr_tbl
					ENTRY		zap_oldcard
					ENTRY		zpg_savebuff
					ENTRY		getnextid
;
					EJECT
scsi_man_header		PROC
********************************************************************************
*
*	SIB Header for SCSI Manager
*
********************************************************************************
;
					EXPORT		scsim_chars
					EXPORT		snooper_ptr
;
					dc.l	scsi_man_exec		;ENTRY address to scsi Manager
					dc.w	SCSI_Manager_ID		;scsi manager := $0002
scsim_version		dc.w	$1000				;version 1.0 Final for release 5.0
					dc.l	manager_name		;name string of manager
scsim_chars			dc.w	$8000				;restartable supervisory driver
					dc.w	$0000				;RESERVED
;
snooper_ptr			dc.l	$00000000			;will hold the address of Managers zero page
manager_name		dc.b	namelen				;length of name (Pascal string)
					dc.b	'SCSI.MANAGER'		;SCSI Manager
namelen				equ		*-manager_name-1
pad					dcb.b	20,' '				;20 spaces of pad for max name 32 bytes
;
					ENDP
					EXPORT	cmd_table
cmd_table			PROC
********************************************************************************
*	SCSI Manager command table
********************************************************************************
;
					dc.w	scsim_startup
					dc.w	scsim_shutdown
					dc.w	scsim_reqdevs
					dc.w	scsim_claimdevs
					dc.w	scsim_io

					EXPORT	max_cmd:equ
max_cmd				equ		(*-cmd_table)/2

					ENDP

					EJECT
					EXPORT	addr_tables
addr_tables			PROC
*********************************************************************************
*		Address table for routines defined for each interface type
*********************************************************************************
;
;
old_addr_table		dc.l	oaddr_tbl			;table for old scsi card
		
					EXPORT	num_dev_types:equ
num_dev_types		equ		(*-addr_tables)/4	;number of device types
;
					ENDP
					EJECT
					EXPORT	scsi_variables
scsi_variables		PROC
********************************************************************************
*
*		SCSI Manager internal variables
*
********************************************************************************
;
					EXPORT	smbusy_flag
					EXPORT	ahold
					EXPORT	xhold
					EXPORT	yhold
					EXPORT	ourcode_bank
					EXPORT	handle_hold
					EXPORT	zpg_handle
					EXPORT	zpg_hold
					EXPORT	gsos_zpg_hold
					EXPORT	sdriver_no_hold
					EXPORT	sm_call_no
					EXPORT	asense_flag
					EXPORT	error_stat
					EXPORT	user_id
					EXPORT	devices_found
					EXPORT	last_acc_slot1
					EXPORT	last_acc_id1
					EXPORT	last_sdr_ptr1
					EXPORT	last_acc_slot2
					EXPORT	last_acc_id2
					EXPORT	last_sdr_ptr2
					EXPORT	last_acc_flag
					EXPORT	hwd_version
					EXPORT	ioattrbs
					EXPORT	init_priority
					EXPORT	target_priority
					EXPORT	initiator_id
					EXPORT	target_id
					EXPORT	cyareg_hold
					EXPORT	slotrom_hold
					EXPORT	bus_stat_hold
					EXPORT	our_irq_flag
					EXPORT	identify_flag
					EXPORT	work_vars_buffer
					EXPORT	more_dci
					EXPORT	more_phases
					EXPORT	scsi_status
					EXPORT	scsi_message
					EXPORT	msg_out_byte
					EXPORT	lutemp
					EXPORT	ckluflag
					EXPORT	move_cnt
					EXPORT	smboot_slot
					EXPORT	busy_sdr_count
					EXPORT	phase_hold
					EXPORT	current_phase
					EXPORT	new_phase
					EXPORT	zpg_savebuff
;
smbusy_flag			dc.w	$0000				;scsi manager busy flag (powers up cleared)
ahold				dc.w	$0000
xhold				dc.w	$0000
yhold				dc.w	$0000
ourcode_bank		dc.w	$0000				;bank we run from
user_id				dc.w	$0000				;our ID provided by memory manager
handle_hold			dc.l	$00000000			;our handle place holder
zpg_handle			dc.l	$00000000			;zero page handle place holder
zpg_hold			dc.w	$0000				;zero page adddress holder
gsos_zpg_hold		dc.w	$0000				;GS/OS zero page placeholder
sdriver_no_hold		dc.w	$0000				;scsi Manager supervisor driver number
sm_call_no			dc.w	$0000				;scsi manager call number holder
;
asense_flag			dc.w	$0000				;autosense in progress flag
error_stat			dc.w	$0000		
devices_found		dc.w	$0000				;SCSI devices found connected to card/port flag
logicals_found		dc.w	$0000				;Logical units found for scsi device ID
;
last_acc_slot1		dc.w	$0000				;slot number field of device last accessed
last_acc_id1		dc.w	$0000				;last id accessed holder record 1
last_sdr_ptr1		dc.l	$00000000			;pointer to last sdr accessed record 1
last_acc_slot2		dc.w	$0000				;slot number field of device last accessed
last_acc_id2		dc.w	$0000				;last id accessed holder record 2
last_sdr_ptr2		dc.l	$00000000			;pointer to last sdr accessed record 2
last_acc_flag		dc.w	$0000				;flag & index for last access pointer updating
;
target_priority		dc.w	$0000				;target priority
init_priority		dc.w	$0000				;initiator priority
hwd_version			dc.w	$0000				;hardware version number
ioattrbs			dc.w	$0000				;slot/port attributes
;
initiator_id		dc.w	$0000				;initiating scsi device id
target_id			dc.w	$0000				;target scsi device id
cyareg_hold			dc.b	$00					;cya register holding location
slotrom_hold		dc.b	$00					;SLOTROMSEL holding location
bus_stat_hold		dc.w	$0000				;SCSSI bus status place holder
our_irq_flag		dc.w	$0000				;scsi manager interrupt flag
identify_flag		dc.w	$0000				;send identify msg byte flag
;
more_dci			dc.w	$0000				;more data chain instructs. available flag
more_phases			dc.w	$0000				;more phases phase handler trigger
scsi_status			dc.w	$0000				;scsi call status field
scsi_message		dc.w	$0000				;scsi call message field;
msg_out_byte		dc.w	$0000				;message byte to send during message out phase
lutemp				dc.w	$0000				;bitpattern for each possible LU on a SCSI ID
ckluflag			dc.w	$0000				;toggle flag marking when to compare inq buffers
move_cnt			dc.w	$0000				;byte count to move by move_bytes routine
smboot_slot			dc.w	$0000				;slot number boot occuring from
busy_sdr_count		dc.w	$0000				;count of number of busy SDRs
phase_hold			dc.w	$0000				;placeholder for current phase bits
current_phase		dc.w	$FFFF				;totally invalid valid when loaded
new_phase			dc.w	$FFFF				;new phase flag
;
					EXPORT	work_vars_size:equ
work_vars_size		equ		*-scsi_variables

work_vars_buffer 	ds.b	work_vars_size		;holding buffer for work variables during IRQ
zpg_savebuff		ds.b	maxzpg_space

					ENDP
	
					EJECT
					EXPORT	scsi_man_exec
scsi_man_exec		PROC
*****************************************************************************
*
* Description:	This module controls the command execution of the SCSI
*		Manager.  All commands flow through this routine.
*		It validates the command to make sure it is within range,
*		installs our memory work area pointers and then passes control
*		to the specific call.
*
*	NOTE: 	This code assumes that Supervisor startup call is the first
*		call made to the SCSI Manager and can occur only once during
*		any system startup session.
*
*	Inputs:	e,m,x=0	(full native)
*		A = Supervisors driver number
*		X = SCSI Manager command number
*		Y = Supervisor ID
*		D = GS/OS Direct page
*		Stack = GS/OS stack space
*		Speed = fast
*
*
*	Output:	e,m,x=0 (full native)
*		C = 0 for successful call
*		C = 1 for error during call
*		A = Error code or supervisor driver number
*		D = GS/OS direct page
*		B same as ENTRY
*		X,Y trashed
*		
*****************************************************************************
;###
					longa	on
					longi	on
;
;	point to our code bank & check if scsi manager already busy
;
					sta		$FF0400				;for logic analyzer trigger purposes

					phb							;save data bank register
					phd							;save direct register
					phk							;point to our code segment
					plb							;data bank reg saved by Sup. Disp.
					bit		|smbusy_flag
					bpl		@75
					lda		#sm_busy_err		;mark scsi manager busy error
					brl		execend				;and go away
;	
;	SCSI Manager not busy go issue the call
;
@75					jsl		incbusyflag			;increment busy flag to prevent CDA access
					sta		|sdriver_no_hold	;save supervisor driver number
					stx		|sm_call_no			;save the call number
					cpx		#max_cmd			;check if command in range
					bcc		rangok
;
;	command out of range report the error
;
					lda		#scsicmd_err		;command out of range
					brl		execend
;
rangok				cpx		#startup			;check for startup
					beq		warmchk
					brl		notst
;
;	Check for a warmstart.  If warmstart install allocate a zero page and
;	restore the zero page data back into to it. Also, no matter if warmstart
;	or cold start install interrupt handler and heartbeat task handler.
;
warmchk				jsr		bind_scsi_irq		;install our irq handler
					bcc		@100				;go away if error
					brl		rsrcerr
;
;	startup the VBL interrupts source
;
@100				pea		$0002				;vertical irq reference number
					_IntSource
;
;	Install timeout handler heartbeat task
;
					pea		tout_header>>16
					pea		tout_header
					_SetHeartBeat
					bcc		@105
					brl		rsrcerr
;
;	Install arbitration timeout heartbeat task
;
@105				pea		arbtout_header>>16
					pea		arbtout_header
					_SetHeartBeat
					bcc		@110
					brl		rsrcerr
@110				bit		|scsim_chars		;check bit 15 for restartable
					bpl		coldst				;coldstart if not restartable
					lda		>warm_cold_flag
					and		#$0001
					beq		coldst				;Z=1 marks a coldstart go do it
;
;	allocate zero page area
;
warmst				pha							;room for handle
					pha
					pea		|maxzpg_space>>16	;zero page
					pea		|maxzpg_space
					lda		|user_id			;our user ID
					pha
					pea		zpg_attrbs			;attributes for our zero page
					pea		zpgbank				;must be in bank zero & page aligned
					pea		$0000				;don't really care where in bank $00
					_newhandle					;allocate our memory area
					ply							;assume all ok
					plx
					bcs		rsrcerr				;go away if error
					sty		|zpg_handle			;save our handle
					stx		|zpg_handle+2
					sty		<sup_parm_ptr 		;this pointer used as scratch during startup
					stx		<sup_parm_ptr+2
					lda		[sup_parm_ptr]	
					sta		|zpg_hold
					tay							;setup destination address of buffer
					ldx		#zpg_savebuff		;X = source address, Y = destination address
 					lda		#maxzpg_space
					sta		|move_cnt			;move_cnt := number of bytes to move
;
					longa	off
					sep		#$20				;m=1
					phb							;get destination bank
					pla
					xba
					lda		#$00				;get source bank
					longa	on
					rep		#$20				;m=0
					jsr		move_bytes
					lda		|zpg_hold			;set our direct register
					clc							;point to the 2nd zero page
					adc		#driverzpgsize
					stz		|snooper_ptr+2		;clear high word of the snooper cda pointer
					sta		|snooper_ptr		;save the address of the zero page
					tcd							;point to our zero page
					stz		|error_stat			;clear the error status field
					bra		warmend				;go away
;
;	Coldstart
;
coldst				tdc							;save GS/OS zero page address (will need later)
					sta		|gsos_zpg_hold	
					phk							;save our code bank address
					phk
					pla							;bank of parameter list
					and		#$00FF
					sta		|ourcode_bank
					jsr		allocate_memory		;get our work memory
					bcc		memok
;
;	failed to allocate working resources
;
rsrcerr				lda		#sm_rsrc_err		;scsi manager could not allocate memory
					bra		execend				;go away
;
;	dereference our handle
;
memok				lda		|handle_hold		;setup handle pointer
					sta		scratchzpg
					lda		|handle_hold+2
					sta		scratchzpg+2
;
;	form I/O table address
;
					ldy		#$0000
					lda		[scratchzpg],y		;form memory pointer
					sta		<io_table_ptr
					tax							;low word of pointer
					ldy		#$0002
					lda		[scratchzpg],y
					sta		<io_table_ptr+2
					tay							;high word of pointer
					txa							;form address of SDR table
					clc
;
;	Form SDR table address
;
					adc		#iotsize
					sta		<sdr_table_ptr
					sty		<sdr_table_ptr+2
					sta		<next_sdr			;link to first sdr
					sty		<next_sdr+2
					lda		#default_sdrs		;number of default SDRs
					sta		<avail_sdrs
;
;	clear newly acquired memory
;
					lda		#min_mem_size		;number of bytes to clear
					jsr		clear_memory		;go clear them
					bra		clrerr
;
;	non startup call enters here
;
notst				lda		|zpg_hold			;point to our zero page
					clc							;point to our zero page area
					adc		#driverzpgsize		;2nd zero page is mine
					tcd
clrerr				stz		|error_stat			;clear error status
					lda		|sm_call_no			;get the call number back
					asl		A					;two byte pointers
					tax
					jsr		(cmd_table,x)		;go to it!
												;all calls return here except SHUTDOWN
;
;	clear scsi call status and message working variables
;
warmend				stz		|scsi_status
					stz		|scsi_message
					jsl		decbusyflag			;adjust the busy flag (CDAs can come in)
					lda		|error_stat			;check for non zero status
					stz		|error_stat			;clear the error status field
execend
					sta		$FF0402				;**** Debug

					pld							;restore GS/OS direct page
					plb							;restore data bank register
					cmp		#$0001				;set carry on errors
					rtl

					ENDP
					EJECT
					EXPORT	allocate_memory
allocate_memory		PROC
********************************************************************************
*	This routine will allocate an ID from the Misc. Tools and issue a
*	New_handle call to the memory manager using this ID.  The Handle returned
*	will be save away to be used during Shutdown of the SCSI Manager.
*
*	ENTRY:	e,m,x=0
*
*	Exit:	e,m,x=0
*		Y restored
*		X restored
*		(user_id):= ID given to us by Misc. Tools
*		(smhandle_hold) := handle address from memory manager
*		(scsim_ptr) := actual buffer address from handle
*		
*
********************************************************************************
;
;
;
;
					longa	on
					longi	on
;
;	Get an ID from Misc tools
;
					pha							;room for ID from Misc. Tools
					pea		#mtool_id_type		;ID type for sup. drivers from misc. tools
					_getnewid					;
					ply							;get our ID assuming call succeeded
					bcs		@30					;check for error
					sty		|user_id
;
;	allocate our zero page area
;
					pha							;room for handle
					pha
					pea		|maxzpg_space>>16	;zero page
					pea		|maxzpg_space
					lda		|user_id			;our user ID
					pha
					pea		zpg_attrbs			;attributes for our zero page
					pea		zpgbank				;must be in bank zero & page aligned
					pea		$0000				;don't really care where in bank $00
					_newhandle					;allocate our memory area
					ply							;assume all ok
					plx
					bcs		@30					;go away if error
					sty		<sup_parm_ptr 		;this pointer used as scratch during startup
					stx		<sup_parm_ptr+2
					lda		[sup_parm_ptr]	
					sta		|zpg_hold
					sty		|zpg_handle			;save our handle
					stx		|zpg_handle+2
					ldx		|zpg_hold			;go zero out the memory
					ldy		#$0000
 					lda		#maxzpg_space
					jsr		clear_memory
					lda		|zpg_hold			;set our direct register
					clc							;point to the 2nd zero page
					adc		#driverzpgsize
					stz		|snooper_ptr+2		;clear high word of the snooper cda pointer
					sta		|snooper_ptr		;save the address of the zero page
					tcd							;point to our zero page
;
;	allocate our work space
;
					pha							;room for handle
					pha							;
					pea		|min_mem_size>>16	;our work area size of 3 pages
					pea		|min_mem_size
					lda		|user_id			;our user ID
					pha
					pea		sm_buffer_attrs		;attributes for our buffer
					pea		$0000				;location pointer (will be ignored)
					pea		$000
					_newhandle					;allocate our memory area
					ply							;assume all ok
					plx
					bcs		@30					;go away if error
					sty		|handle_hold		;save our handle
					stx		|handle_hold+2	
@30					rts							;>>>--- allocate_memory --->>>
;
					ENDP
					EJECT
					EXPORT	clear_memory
clear_memory		PROC
********************************************************************************
*	This routine clears a specified number of bytes starting at a given
*	location.  It assumes no bank crossings!!!!
*
*	ENTRY:	e,m,x = 0
*		A = Number of bytes to clear
*		X = Low word of first location to clear
*		Y = High word of first location to clear
*
*	Exit:	e,m,x = 0
*		A,X,Y undefined
*
********************************************************************************
;
;
					longa	on
					longi	on
;
					stx		<sup_parm_ptr		;sup_parm_ptr used as scratch during
					sty		<sup_parm_ptr+2		;startup
					dec		A					;adjust count to compensate for dest start
					sta		|move_cnt			;number of bytes to clear
					lda		#$0000				;clear first two locations
					sta		[sup_parm_ptr]
					tya							;save the bank
					inx
					txy							;destination address
					and		#$00FF				;keep low byte of bank
					pha							;
					xba							;source & destination banks the same
					ora		1,s
					plx							;trash word on stack
					ldx		<sup_parm_ptr		;restore source address

;					lda		#$0000				;fill pattern	

					jsr		move_bytes			;go clear memory
					rts							;>>>--- clear_memory --->>>
;
					ENDP
					EXPORT	move_bytes
move_bytes			PROC
***********************************************************************************
*	This routine will move a specified number of bytes from a source address
*	to a destination address.  Please NOTE that this routine contains self
*	modifying code.
*
*	ENTRY:	e,m,x = 0
*		A accum = Dest bank
*		B accum = Source bank
*		move_cnt = number of bytes to move
*		X = Source address
*		Y = Dest address
*
*	Exit:	e,m,x = 0
*		A = $FFFF
*		X,Y = undefined
*		Data Bank register saved and restored
*
***********************************************************************************
;
;
					longa	on
					longi	on
;
					phb							;save data bank
					sta		move_it+1			;save source & destination banks
					lda		move_cnt			;number of bytes to move
					dec		A					;adjust byte count
move_it				mvn		$00,$00				;*** WARNING self modifying code!!!! ***
					plb							;restore data bank register
					rts							;>>>>--- move_bytes ---->>>>
;
					ENDP
	
					EJECT
					EXPORT	scsim_startup
scsim_startup		PROC
********************************************************************************
* 	This module will allocate all the resources needed by the SCSI Manager
*	to become operational.  It determines how many scsi devices are online
*	and build all the routing data structures to gain access to the devices.
*
*	Input:	e,m,x=0
*
*	Output:	e,m,x=0
*		C=0 if successful
*		C=1 if SCSI Manager startup failed
*		A = Supervisor driver number if successful call
*		A = error code if call failed
*
********************************************************************************
;
					longa	on
					longi	on
;
;	go look for SCSI Peripheral cards/ports
;
					jsr		find_scsi			;go look for scsi cards/ports
					bcs		@85					;none found report error (we get purged)
;
;	initiaize SCSI Device Record (SDR) table
;
					jsr		init_sdr_tbl		;initialize scsi device records
					bcc		exit
;
;	Delete timeout heartbeat task if errors
;
@85					pea		tout_header>>16		;high word of timeout task header
					pea		tout_header
					_DelHeartBeat
					bcs		@250				;someone destroyed our heartbeat
;
;	dispose our memory
;
					lda		|user_id			;dispose of zero page and work areas
					pha
					_disposeall
					bcs		@250				;dispose of memory allocated to us
;
;	dispose our ID back to Misc. Tools
;
					lda		|user_id			;dispose our ID
					pha
					_DeleteID
					bcc		sfail
@250				jsl		gsos_sys_death		;bad news could not dispose our memory
sfail				lda		#scsi_start_err		;mark error
					sta		|error_stat
					sec
exit				rts							;>>>--- scsi_man_startup --->>>
;
					ENDP	
		EJECT
					EXPORT	scsim_shutdown
scsim_shutdown	PROC
********************************************************************************
* 	This module will perform the necessary functions to get the
*	SCSI Manager resources allocated during startup released
*	back to the system and shutdown the scsi hardware.
*
*	Input:	e,m,x=0
*
*	Output:	e,m,x=0
*		C=0 if successful
*		C=1 error occurred
*		A = Supervisor driver number if successful call
*		A = error code if call failed
*
********************************************************************************
;
;	unbind our interrupt handler
;
					jsr		unbind_scsi_irq		;
					bcs		death				;go away if error
;
;	delete our timeout heartbeat task
;
					pea		tout_header>>16
					pea		tout_header
					_DelHeartBeat
					bcs		death				;go away if error
;
;	delete arbitration heartbeat task
;
					pea		arbtout_header>>16
					pea		arbtout_header
					_DelHeartBeat
					bcs		death				;go away if error
;
;	check characteristics word for restartable.  If restartable then
;	check warm_cold_flag to see if going to sleep or being killed.
;
					bit		|scsim_chars		;check bit 15 for restartable
					bpl		@100				;coldshutdown if not restartable
					lda		>warm_cold_flag
					beq		@100				;Z=1 marks a cold shutdown go do it
;
;	warmshutdown saves zero page in a internal buffer within the manager
;
					tdc							;get our zero page area
					sec
					sbc		#driverzpgsize		;include the zero page area allocated for drivers
					tax							;keep as source address
					ldy		#zpg_savebuff		;get the destination buffer address
 					lda		#maxzpg_space
					sta		|move_cnt			;move_cnt := number of bytes to move
					longa	off
					sep		#$20				;m=1
					lda		#$00				;source memory bank number
					xba
					phb
					pla							;get destination buffer bank address
					longa	on
					rep		#$20				;m=0
					jsr		move_bytes			;save the zero page areas
;
;	now dispose the zero page area allocated
;
					lda		|zpg_handle+2
					pha
					lda		|zpg_handle
					pha
					_disposeHandle
					bcs		death
					bra		wrmshut				;go away	
;
;	dispose all memory allocated to us
;
@100				lda		|user_id			;dispose all memory we allocated
					pha
					_disposeAll
					bcs		death				;dispose of memory allocated to us
;
;	dispose our ID back to Misc. Tools
;
					lda		|user_id			;dispose our ID back to misc tools
					pha
					_DeleteId

wrmshut				jsr		zap_oldcard
					lda		|sdriver_no_hold	;get supervisor driver number if clean shutdown 
;MSG wrmshut				lda		|sdriver_no_hold	;get supervisor driver number if clean shutdown 

					rts							;>>>--- scsim_shutdown --->>>
death				jsl		gsos_sys_death		;call system death will not return
;
					ENDP
					EJECT
					EXPORT	scsim_reqdevs
scsim_reqdevs		PROC
********************************************************************************
*	This module will handle will return IDs for all devices mathching a
*	requested device type.
*
*	Input:	e,m,x=0
*
*	Output:	e,m,x=0
*		C=0 if successful
*		C=1 if SCSI Manager device call failed
*		A = Supervisor driver number if successful call
*		A = error code if call failed
*
********************************************************************************
;
;
					longa	on
					longi	on
;
					stz		|error_stat			;reset error status
					jsr		get_plist			;point to the parameter list
					stx		<plist_ptr			;form pointer to parameter list
					sty		<plist_ptr+2
					ldy		#destbuffptr		;get destination buffer address
					lda		[plist_ptr],y
					sta		buffer_ptr
					ldy		#destbuffptr+2
					lda		[plist_ptr],y
					sta		buffer_ptr+2
					lda		|zpg_hold			;get the driver's zero page address

;					sta		[buffer_ptr]		;save the driver zero page address

					sta		[buffer_ptr]
					ldy		#scsi_dtype			;check for device type
					lda		[plist_ptr],y
					jsr		devtype_chk			;check for valid device type
					bcc		@100
					lda		#bad_dev_type
					sta		|error_stat
					bra		reqexit				;bad type go away
@100				ldx		<sdrsonline			;set number of sdrs to compare against
					stx		<sdrstocheck
					bne		@200
					ldx		#$0000				;zero devices found
					txa
					pha							;call status
					sta		|error_stat
					bra		all_done
@200				jsr		build_reqlist		;build list of devices matching device type
reqexit				rts							;>>>--- scsim_reqdevs --->>>
;	
;	check for valid scsi device type
;
Apple_tape			equ		$0010				;Apple tape drive
comm_dtype			equ		$0009				;communications device
;
devtype_chk			and		#$001F				;low 5 bits only
					beq		good_type			;if zero then ok
					cmp		#apple_tape			;check for apple tape drive
					beq		good_type
					cmp		#apple_tape+1		;check for devices 11-1F
					bcs		bad_type			;if so, bad news
					cmp		#comm_dtype+1		;check for types A-F
					bcs		bad_type
good_type			clc
bad_type			rts							;>>>--- devtype_chk --->>>
;
;	build request list for caller
;

build_reqlist		pha
					ldx		#$0000				;clear device counter
					lda		sdr_table_ptr		;point to the SCSI device records
					sta		<scratchzpg
					lda		sdr_table_ptr+2
					sta		<scratchzpg+2
check_type			ldy		#sdr_devtype		;index to device type field
					lda		[scratchzpg],y
					and		#$00FF				;low byte only (devtype one byte)
					cmp		1,s					;compare the types
					beq		type_match
chk_next_sdr		dec		<sdrstocheck		;see if more sdrs to check
					beq		all_done
;
					ldy		#nxt_sdr_lnk		;point to next sdr in the list
					lda		[scratchzpg],y		;check next SDR
					pha
					ldy		#nxt_sdr_lnk+2
					lda		[scratchzpg],y
					sta		<scratchzpg+2
					pla
					sta		<scratchzpg
					bra		check_type
;
;	Found an SDR record which matches the type tell caller
;
type_match			inx							;bump number of matching devices count
					ldy		#sdr_slot			;include the slot number
					lda		[scratchzpg],y		;
					ldy		#device_slot		;point to Slot number field
					sta		[buffer_ptr],y
					ldy		#sdr_device_id		;get the device ID of the target
					lda		[scratchzpg],y
					ldy		#device_id
					sta		[buffer_ptr],y
					lda		<buffer_ptr			;bump address
					clc
					adc		#reqENTRY_size		;by one ENTRY size
					sta		<buffer_ptr
					bcc		chk_next_sdr		;go check the next sdr
					inc		<buffer_ptr+2
					bra		chk_next_sdr		
;
;	write out device count found to match the type
;
all_done			ldy		#destbuffptr		;point to start of the destination buffer
					lda		[plist_ptr],y
					sta		<scratchzpg
					ldy		#destbuffptr+2
					lda		[plist_ptr],y
					sta		<scratchzpg+2
					ldy		#total_devcount		;point to device count field
					txa
					sta		[scratchzpg],y		;write the count
					pla
					rts
		
					ENDP
	
					EJECT
					EXPORT	scsim_claimdevs
scsim_claimdevs		PROC
********************************************************************************
*	This module will mark specific SDR records as claimed the the driver
*	who made the immmediatelly previous Req_Devices  call from the same
*	driver.
*
*	Input:	e,m,x=0
*
*	Output:	e,m,x=0
*		C=0 if successful
*		C=1 if SCSI Manager device call failed
*		A = Supervisor driver number if successful call
*		A = error code if call failed
*
********************************************************************************
;
;
;	get parameter list pointer & point to buffer
;
					stz		|error_stat			;reset error status
					jsr		get_plist			;point to the parameter list
					stx		<plist_ptr			;form pointer to parameter list
					sty		<plist_ptr+2
					ldy		#destbuffptr		;get destination buffer address
					lda		[plist_ptr],y
					sta		<buffer_ptr
					ldy		#destbuffptr+2
					lda		[plist_ptr],y
					sta		<buffer_ptr+2
					ldy		#total_devcount		;total number of devices in the list
					lda		[buffer_ptr],y
					dec		a
					sta		<scratchzpg
					bra		get_id
;
;	find SDR matching this ID
;
next_id				dec		<scratchzpg			;decrement the total device count in the list
					bpl		@100				;check next ID if count not zero
					clc							;otherwise mark success & quit
					rts
;
@100				lda		<buffer_ptr			;bump to the next id in the list
					adc		#reqENTRY_size		;size of each device ENTRY in list
					sta		<buffer_ptr
					bcc		get_id
					inc		<buffer_ptr+2
get_id				ldy		#device_id			;point to the ID field in claim parameter list
					lda		[buffer_ptr],y		;get the ID
					bpl		next_id				;Doesn't want it.  Do next one in list.
					and		#$7fff
					sta		<dev_id				;save the id sought
					ldy		#device_slot		;point to the slot field in claim parameter list
					lda		[buffer_ptr],y		;get the slot number
					sta		<slot_no			;
					jsr		find_sdr			;get the SDR address (C=1 then invalid ID)	
					bcs		exit				;if error then go away
;
;	mark device claimed if not claimed previously
;
					sty		<sdr_ptr			;save the SDR address
					sta		<sdr_ptr+2

					ldy		#device_id			;set high bit to mark claimed
					lda		[sdr_ptr],y			;device claimed marker (bit 15 of device id)
					bmi		@error				;if already set then an error
					ora		#claimed			;Set the bit
					sta		[sdr_ptr],y
					bra		next_id

@error				lda		#bad_scsi_id
					sta		|error_stat			;mark ID error
exit				rts							;>>>--- scsim_claimdevs --->>>
;
					ENDP

					EJECT
					EXPORT	scsim_io
scsim_io			PROC
********************************************************************************
*	This module will handle all calls passed to it by drivers.
*
*	Input:	e,m,x=0
*
*	Output:	e,m,x=0
*		C=0 if successful
*		C=1 if SCSI Manager io call failed
*		A = Supervisor driver number if successful call
*		A = error code if call failed
*
********************************************************************************
;
;
;	get parameter list address and validate the parameter list
;
					jsr		get_plist
					stx		<plist_ptr
					sty		<plist_ptr+2
					jsr		ioplchk				;validate I/O call parameter list
					bcc		@60
					brl		errexit
;
;	setup working variables from parameter list
;
@60					ldx		<plist_ptr
					ldy		<plist_ptr+2
					jsr		setzpgvars			;setup zero page work pointers
;
;	find SDR matching ID from parameter list
;
					jsr		find_sdr
					bcc		@75
					brl		errexit
@75					sty		<sdr_ptr
					sta		<sdr_ptr+2
					sty		<active_sdr
					sta		<active_sdr+2
;
;	check if SDR already busy
;
					ldy		#sdr_flags
					lda		[sdr_ptr],y
					and		#sdr_attrb_busy
					beq		@100
					lda		#target_busy
					sta		|error_stat
					sec
					brl		errexit
;
;	copy parameters into SDR, mark SDR busy
;
@100				php							;no interruptions
					sei
					lda		[sdr_ptr],y
					ora		#sdr_attrb_busy
					sta		[sdr_ptr],y
					plp							;restore interrupt enable bit
					jsr		copy_plist
;
;	setup work variables from SDR and issue call to the target
;
					jsr		setup_call_env
					ldy		<slot_no			;get the slot number
					jsr		set_iorec_ptr		;point to the I/O record for this SDR
;
;	point to routines table for this type of scsi card
;
					ldy		#hwd_type
					lda		[iorec_ptr],y
					asl		A
					tay
					lda		|addr_tables,y
					sta		<addr_table_ptr
					lda		|addr_tables+2,y
					sta		<addr_table_ptr+2
;
;	arbitrate for the SCSI bus and then Select the target
;
					lda		#arbph				;go arbitrate for control of scsi bus
					jsr		callrtn
					bcc		@125				;go select if arbitration succeeded
					brl		exit
@125				lda		#selectph			;select the target device
					jsr		callrtn
					bcc		@150				;go away if an error occurs
					brl		exit
;
;	do some hardware initialization
;
@150				lda		#setup
					jsr		callrtn
;
;	start the timeout heartbeat task
;
					jsr		getticks			;get number of ticks to load into the task header
					sta		|tick_count
;
;	do a save pointers prior to talking to the target in case the
;	first communication from the target is a restore pointers message
;
					jsr		saveptrs
;
;	bump the busy SDR count and then go to the phase handler
;
					inc		|busy_sdr_count
					lda		#phase_hand			;phase handler for old scsi card
					jsr		callrtn
					bcc		error				;check for possible SCSI status error
					brl		exit
;
;	check scsi status byte for success.  If failed see if autosense required
;
error				lda		|asense_flag		;see if returning from a autosense call
					beq		@75					;not autosense
;
;	if autosense failed mark it failed and quit
;
					bcc		@50
					brl		exit
@50					lda		|scsi_status		;if status byte not zero then mark failed
					bne		@55
					lda		<error_stat
					beq		@60
@55					sec
@60					brl		exit
;
;	call was not autosense. See if autosense enabled and previous call failed
;	then issue a request sense call to the same target.
;
@75					lda		|scsi_status
					beq		statok
;
;	The following code will be executed only if the call failed and autosense
;	 is enabled.  If autosense is enabled then SCSIM_IO will be called again.
;
					ldy		#plst_autos_ptr		;see if the auto sense pointer nonzero
					lda		[plist_ptr],y
					ldy		#plst_autos_ptr+2
					ora		[plist_ptr],y
					beq		@100
;
;	save the scsi status byte and parameter list pointer for later restore
;
					lda		|scsi_status
					pha							;save scsi status of previous call
					jsr		get_plist			;get call's parameter list pointer
					phy							;save old parameter list pointer
					phx
;
;	setup the ID & buffer pointer for the request sense call
;
					lda		<dev_id				;device id to issue request sense for
					sta		|senseid
					lda		<slot_no			;slot number to issue call for
					sta		|sense_slot
					ldy		#plst_autos_ptr
					lda		[plist_ptr],y
					sta		|sensebstruc
					ldy		#plst_autos_ptr+2
					lda		[plist_ptr],y
					sta		|sensebstruc+2
					lda		#$00FF				;256 bytes maximum requested
					longa	off
					sep		#$20				;m=1
					sta		|sensecnt0			;byte count requested in scsi command packet
					longa	on
					rep		#$20				;m=0
					sta		|sensecnt1			;byte count in data chaining instructions
					ldx		#sense_plist		;point to request sense parameter list
					ldy		|ourcode_bank
					jsr		set_plist
;
;	set autosense in progress flag and clear SDR busy flag for mode sense call
;
					dec		|asense_flag		;mark autosense in progress
					ldy		#sdr_flags			;clear busy bit (*** change for disconnect case ***)
					lda		[sdr_ptr],y
					and		#sdr_attrb_busy\
							--$FFFF
					sta		[sdr_ptr],y
					jsr		scsim_io			;issue the autosense call
;
;	restore parameter list pointer and scsi status for previous call
;
					plx							;restore parameter list pointer
					ply
					jsr		set_plist			;restore the parameter list pointer
					lda		|error_stat			;get status from request sense call
					cmp		#$0001				;check of request sense failed
					pla							;restore status from call prior to request sense
					bcc		@100
					ora		#$0080				;bit 7 marks request sense failed
@100				ora		#scsi_man_err		;include $FE00 (marks error)
					sta		|error_stat			;scsi status error overides other errors
					stz		|asense_flag		;reset the autosense flag
;
;	call completion routine if vector non-zero
;
statok				jsr		callcomp			;call completion routine if a pointer exists
exit				dec		|busy_sdr_count 	;command completed one less SDR
					bne		@100
					stz		|tick_count			;reset heartbeat counter no busy sdrs
@100				ldy		#sdr_flags			;clear busy bit (*** change for disconnect case ***)
					lda		[sdr_ptr],y
					and		#sdr_attrb_busy\
							--$FFFF
					sta		[sdr_ptr],y
errexit				lda		|error_stat			;get possible error code back
autosexit			rts							;>>>--- scsim_io --->>>
;
;----------------------------------------------------------------------------
;	call completion routine if a pointer exists
;
;	ENTRY:	e,m,x = 0
;		error_stat = error code to report
;
;	exit:	e,m,x = 0
;		A,Y trashed
;
;----------------------------------------------------------------------------
;
callcomp			ldy		#plst_comp_vect+2	;
					lda		[plist_ptr],y
					ldy		#plst_comp_vect
					ora		[plist_ptr],y
					beq		@125				;go away if pointer zero
					lda		[plist_ptr],y
					sta		@100+1
					iny
					lda		[plist_ptr],y
					sta		@100+2
					lda		|error_stat
@100				jsl		$000000				;*** SELF MODIFYING CODE
@125				rts							;>>>--- callcomp --->>>
;
;
;----------------------------------------------------------------------------
;	Copy parameter list into SDR
;
;	ENTRY:	e,m,x = 0
;		plist_ptr: points to the parameter list
;
;	Exit:	e,m,x = 0
;
;----------------------------------------------------------------------------
;
;	copy the timeout into the SDR record
;
copy_plist			ldy		#plst_timeout
					lda		[plist_ptr],y
					jsr		adjtout				;convert timeout from 1/4 sec into 1/60 sec counts
					ldy		#sdr_timeout
					sta		[sdr_ptr],y
					ldy		#sdr_timeout+2
					txa
					sta		[sdr_ptr],y
;
;	copy completion vector into sdr
;
					ldy		#plst_comp_vect
					lda		[plist_ptr],y
					pha
					ldy		#plst_comp_vect+2
					lda		[plist_ptr],y
					ldy		#sdr_completion_vect+2
					sta		[sdr_ptr],y
					pla
					ldy		#sdr_completion_vect
					sta		[sdr_ptr],y
;
;	copy the SCSI command list pointer
;
					ldy		#plst_cmd_ptr
					lda		[plist_ptr],y
					ldy		#sdr_cmd_ptr
					sta		[sdr_ptr],y
					ldy		#plst_cmd_ptr+2
					lda		[plist_ptr],y
					ldy		#sdr_cmd_ptr+2
					sta		[sdr_ptr],y
;
;	copy the address of the parameter list into the SDR
;
					ldy		#sdr_plist_ptr
					lda		<plist_ptr
					sta		[sdr_ptr],y
					ldy		#sdr_plist_ptr+2
					lda		<plist_ptr+2
					sta		[sdr_ptr],y
					rts							;>>>--- copy_plist --->>>
;
;----------------------------------------------------------------------------
;	Validate I/O call parameter list
;
;	ENTRY:	e,m,x = 0
;		plist_ptr: points to parameter list
;
;	Exit:	e,m,x = 0
;		C=0 if success otherwise failed
;		C=1 if failed check & error_stat = error code
;
;----------------------------------------------------------------------------
;
ioplchk				ldy		#plst_slot			;check for slots 0-F
					lda		[plist_ptr],y
					cmp		#$0010
					bcs		plfail				;fail it if out of range
					ldy		#plst_devid			;check ID for nonzero
					lda		[plist_ptr],y
					beq		plfail
					ldy		#plst_version		;check the parameter block version
					lda		[plist_ptr],y
					bne		plfail
;
;	check reserved attribute bits for zero
;
					ldy		#plst_attrbs
					lda		[plist_ptr],y
					and		#plst_attresbits
					bne		plfail
;
;	check the timeout for nonzero
;
					ldy		#plst_timeout
					lda		[plist_ptr],y
					beq		plfail
;
;	check the command list pointer for nonzero
;
					ldy		#plst_cmd_ptr
					lda		[plist_ptr],y
					ldy		#plst_cmd_ptr+2
					ora		[plist_ptr],y
					beq		plfail
;
;	check reserved field for zero
;
					ldy		#plst_reserved
					lda		[plist_ptr],y
					ldy		#plst_reserved+2
					ora		[plist_ptr],y
					bne		plfail
;
;	make sure request count and data chain pointer are consistent with each other
;
					ldy		#plst_dchainptr		;check data chain pointer for zero
					lda		[plist_ptr],y
					ldy		#plst_dchainptr+2
					ora		[plist_ptr],y
					bne		@100				;if data chain ptr zero then req count must = 0
					ldy		#plst_reqxfr_cnt
					ora		[plist_ptr],y
					bne		plfail
					ldy		#plst_reqxfr_cnt+2
					ora		[plist_ptr],y
					bne		plfail
					beq		@150				;both zero go away
@100				jsr		ckdcilst			;go check data chain inst list for stop inst
					bcs		plfail
;
;	we got here, the parameter list must be OK
;
@150				clc
plexit				rts							;>>>>---- I/O parameter list check --->>>
;
;	failed parameter list check
;
plfail				lda		#$0000
					ldy		#plst_reqxfr_cnt	;Set transfer Count to Zero
					sta		[plist_ptr],y
					ldy		#plst_reqxfr_cnt+2
					sta		[plist_ptr],y
					lda		#plist_error		;error for parameter list error
					sta		|error_stat
					sec
					rts
;
					ENDP
	
					EJECT
					EXPORT	callrtn
callrtn				PROC
*******************************************************************************
*	This routine will pass control to a routine defined in a address table
*	for a specific interface type
*
*	ENTRY:	e,m,x=0
*		X = routine number
*
*	Exit:	e,m,x=0
*		A,X,Y undefined
*
*******************************************************************************
;
;
					asl		A					;times 2 for table index
					tay
callit				lda		(addr_table_ptr),y
					dec		A					;adjust address
					pha
					rts							;call the routine
;
					ENDP
					EJECT
					EXPORT	scsi_irq_hand
scsi_irq_hand		PROC
********************************************************************************
*	This module will handle all interrupts which are generated by SCSI
*	peripheral cards or internal scsi ports found during the "FIND_SCSI"
*	subroutine call.
*
********************************************************************************
;
;
					longa	on
					longi	on
					rep		#$30				;m=0, x=0
;
					phy							;save work registers
					phx
					phd							;save direct register
					phb							;save data bank
					phk							;point data bank to us
					plb
					lda		|zpg_hold			;point to our zero page
					clc
					adc		#driverzpgsize
					tcd
;
;		save some variables we are about to clobber
;
					lda		<io_offset			;save the 5380 registers address pointer
					pha
					jsr		save_work_vars		;save our work area in case irqed? ourselves		pha
;
;		check the slots for nonzero
;
					lda		#$FFFF				;assume not our irq
					sta		|our_irq_flag
					ldy		#$0000
@100				tyx							;save index to start of io record
					lda		[io_table_ptr],y	;see if scsi is source of irq
					beq		@200				;if zero no card in this slot
					tya							;point to the hardware base address
					clc
					adc		#scsi_base			;get the base address of the 5380
					tay
					lda		[io_table_ptr],y
					sta		<io_offset		
					jsr		bus_status			;go read status of scsi bus
					sta		|bus_stat_hold		;save the status
					lda		#birqstat			;check for scsi irq pending
					bit		|bus_stat_hold
					beq		@200
					jsr		serve_irq			;go service interrupt
					inc		|our_irq_flag		;$0000 = serviced one of our IRQs
					bra		irq_hand_exit		;service one card per interrupt
@200				txa							;point to next i/O record
					clc
					adc		#iorec_size
					tay							;check if beyond end of io table
					cmp		#iotsize
					bcc		@100
irq_hand_exit		pla							;restore contents of i/o offset
					sta		<io_offset
					lda		|our_irq_flag		;flag <> 0 if our irq
					pha							;save the value of the flag
					jsr		rest_work_vars		;restore our working variables
					pla							;restore flag of our irq service
					plb							;restore environment
					pld
					plx							;restore work registers
					ply
					cmp		#$0001
					rtl							;>>>--- exit irq_hand --->>>
;
serve_irq			phx							;save register
					ldx		<io_offset			;point to i/o space
					sep		#$20				;m=1
					lda		>resetirqreg,x		;reset the irq pending bit
					rep		#$20				;m=0
					jsr		bus_status			;**** debug make sure went away
					plx							;restore register
					rts							;very dumb handler so far!!
;
					ENDP
		
		
		
					EJECT
********************************************************************************
*	This module contains all the code which makes up the OLD SCSI card
*	portion of the SCSI Manager.
********************************************************************************
					EXPORT	old_scsi_tbls
old_scsi_tbls		PROC
********************************************************************************
*		Old SCSI card Sequencer & routines table
********************************************************************************
;
;
*
*	Old scsi card routines address table
*
					EXPORT	oaddr_tbl
oaddr_tbl			dc.w	oscsi_irq_hand
					dc.w	ophase_handler
					dc.w	oscsi_hwd_check
					dc.w	oscsi_setup
					dc.w	oscsi_bus_free
					dc.w	arbitrate_phase
					dc.w	select_phase
*
*	Phasing routines table
*
*
					EXPORT	phase_addr_tbl
;
phase_addr_tbl		dc.w	oscsi_data_out		;NOTE: Must remain in this relative position
					dc.w	oscsi_data_in		; because phase bits used as index into
					dc.w	osend_cmd			; this table. Please see SCSI standard
					dc.w	oscsi_status		; and ophase_handler
					dc.w	obad_phase			;reserved (invalid phase combination)
					dc.w	obad_phase			;reserved (invalid phase combination)
					dc.w	oscsi_msg_out
					dc.w	oscsi_msg_in
;
					EXPORT	phase_offset:equ
phase_offset		equ		phase_addr_tbl\
							-oaddr_tbl			;index to start of phase addr tbl
;
					ENDP

					EJECT
					EXPORT	oscsi_irq_hand
oscsi_irq_hand		PROC
********************************************************************************
*	Old scsi card interrupt handler.
*	The old scsi card does not support interrupts!!!
*
********************************************************************************
					sec							;go back to GS/OS irq handler
					rtl
		
					ENDP
		
		
					EJECT
					EXPORT	oscsi_hwd_check
oscsi_hwd_check		PROC
********************************************************************************
*	Old scsi card interrupt handler.
*	The old scsi card does not support interrupts!!!
*
********************************************************************************
;
;
					longa	on
					longi	on
;
					lda		<slot_no			;get the slot
					and		#slot7				;mask off internal external bit
					xba							;times 256
					clc							;point to end of rom image
					adc		#old_rom_size-2		;check if old scsi card rom image (REV B & REV C roms)
					tax
					ldy		#old_rom_size-2
@100				lda		>io_space+$00,x
					eor		|old_rom,y
					bne		@200				;not an old apple scsi card
					dex
					dex
					dey
					dey
					bpl		@100
;
;	Check for REV C SCSI rom
;
;	point to bank $00 of old scsi card
;	check location $C8XX for $02
;	if $02 then REV C otherwise report error
;	and do not install card in the tables
;
					longa	off
					sep		#$20				;m=1
					php
					sei
					lda		>$00CFFF			;turn off I/O strobe  space all cards
					lda		<slot_no
					and		#slot7				;keep low 3 bits
					xba							;we want to access $CNXX space
					tax
					lda		>io_space,x			;to turn on I/O strobe space
					plp							;restore possible irq enable
					txa
					xba
					asl		A					;form DEV-SEL space address
					asl		A
					asl		A
					asl		A
					adc		#$80
					tax
					lda		#$00				;point to bank $00 of the SCSI rom
					sta		>io_space\
							+ocard_breg,x
					lda		>$00CFFC			;get the rom rev C flag
					cmp		#rev_C_rom
					longa	on
					rep		#$20				;m=0
 					beq		@150				;install the card for NOW!! G.A.
;
;	This routine will report the requirement for a REV C SCSI rom
;
					lda		<slot_no			;get the slot number
					and		#slot7				;keep low 3 bits
					clc
					adc		#$0030				;convert to a ascii slot number
					sta		>slot_string+1		;include it in the message string
					lda		#rom_message		;message number
					pha
					pea		slot_string>>16		;rom message string address
					pea		slot_string
					pea		$0000				;null substition string 0
					pea		$0000
					jsl		report_error		;call system service routine
@150				jsr		set_old_scsi		;it is an old scsi card go set the I/O record
					clc							;C=0 old scsi card
					bcc		@300				;go away

@200				sec							;C=1 NOT old scsi card or wrong rev rom
@300				rts
;
slot_string			dc.b	$01					;size of string
					dc.w	$0000


********************************************************************************
*	SCSI rom image
********************************************************************************
*	This module contains a partial image of the rev. B and rev. C scsi roms.
*	The segment of code is the same in both roms and will be used to check
*	the rom code in the old SCSI card against the pattern. If a match is found
*	the scsi manager assumes that this is a OLD version SCSI card. The code
*	resides in the I/O Select address space from $CN00 thru $CN57.
********************************************************************************
;
;
					longa	off
					longi	off
;
old_rom				ldx		#$20				;what comments????
					ldx		#$00
					ldx		#$03
					ldx		#$00
					lda		$CFFF
					cld
					php
					sei
					lda		#$60
					sta		|$07F8
					jsr		$07F8
					tsx
					lda		|$0100,x
					sta		|$07F8
					plp
					lda		|$CFFF
					lda		|$07F8
					sta		<$1A
					lda		#$00
					sta		<$19
					tay
					lda		($19),y
					ldy		#$0A
					lda		#$00
					sta		($19),y
					lda		#$55
					sta		|$C8E3
					lda		|$07F8
					and		#$0F
					clc
					adc		#$08
					asl		A
					asl		A
					asl		A
					asl		A
					sta		|$C81A
					tay
					ldx		#$00
					lda		#$05
					jsr		|$CFCC
					lda		#$01
					sta		|$C81D
					sta		|$C800
					dc.b	$20					;opcode for JSR (we want even byte count)
;
old_rom_size		equ		*-old_rom
;
					ENDP

		
					EJECT
					EXPORT	set_old_scsi
set_old_scsi		PROC
********************************************************************************
*	This routine will setup the I/O record for a particular slot with
*	parameters for an old scsi card.
*
*	ENTRY:	e,m,x = 0
*		slot_no
*		io_rec_ptr
*
*	Exit:	e,m,x=0
*
********************************************************************************
;
;
;
					longa	on
					longi	on
;
					lda		<slot_no			;save the slot number
					ldy		#slot				;point to slot field
					sta		[iorec_ptr],y		;slot number
					lda		#old_scsi_card
					ldy		#hwd_type			;save hardware version
					sta		[iorec_ptr],y
					lda		#old_card_attrbs	;old apple card default attributes
					ldy		#io_attrbs
					sta		[iorec_ptr],y
					lda		<slot_no			;get the slot number
					and		#slot7				;mask off internal/external bit
					asl		A					;times 16
					asl		A
					asl		A
					asl		A
					adc		#io_space+$0080		;dev-sel address $C0NX
					ldy		#scsi_base			;offset for base_address of scsi port in record		sta		[io_table_ptr],y	;and save it in the table
					sta		[iorec_ptr],y		;the base addr bank & dma address already zero
					sta		<io_offset			;the bank and DMA controller address := $0000
					stz		<io_offset+2
					tax
;
					longa	off
					sep		#$20				;m=1 to fix the F.O. Hardware.
;
					lda		>card_priot_reg,x	;get the priority for this card
					bne		@75					;if no jumper installed force priot 7
					lda		#$80
;
					longa	on
@75					rep		#$20
;
					and		#$00FF				;mask of read from $C0NB
					ldy		#initpriot			;set it as initiator priority
					sta		[iorec_ptr],y
					lda		#$0000				;clear other fields in I/O record
					ldy		#scsi_base+2
					sta		[iorec_ptr],y		;clear bank field of scsi controller base addr
					ldy		#scsi_base+4
					sta		[iorec_ptr],y		;clear DMA controller base addr & bank
					ldy		#scsi_base+6
					sta		[iorec_ptr],y
					ldy		#scsi_base+8
					ldy		#d0logicals			;clear logical unit fields for scsi devices
@100				sta		[iorec_ptr],y		;8 device fields 2 bytes each scsi device
					iny
					iny
					cpy		#max_scsi_devs\
							*2+d0logicals		;2 bytes per device field
					bcc		@100
					ldy		#initpriot			;initiator priority
					lda		[iorec_ptr],y
					jsr		priot_to_dev		;convert to scsi device number
					asl		A					;times 2 because I/O record dev fields = words
					clc
					adc		#d0logicals			;point to device fields  within i/o record
					tay
					lda		#dont_scan_dev		;do not scan initiator priority for logicals
					sta		[iorec_ptr],y
					jsr		bus_reset			;reset scsi bus for this card
					inc		<numscsi_cards		;bump the scsi cards total
					rts							;>>>--- set_old_scsi --->>>
;
					ENDP

					EJECT
					EXPORT	oscsi_bus_free
oscsi_bus_free		PROC
********************************************************************************
*	Old scsi card Bus Free support
********************************************************************************
					sec
					rts							;>>>--- exit oscsi_bus_free --->>>		
		
					ENDP
		
		
					EJECT
					EXPORT	oscsi_setup
oscsi_setup			PROC
********************************************************************************
*	This module will setup all the required variables and pointers before
*	performing a specified function requested by the caller.  The routine
*	performs the following functions:
*		1. Gets the parameter list pointer from the SIB
*		2. sets up a parameter list pointer
*		3. sets up all the zero page pointers to access all the buffers
*		4. loads the index of the next routine in the table to run
*
********************************************************************************
;
;
					longa	on
					longi	on
;
@100				jsr		oinit_5380			;initialize old scsi card registers
					jsr		ocopyzcode			;download high speed routines into zpg.
					clc							;mark success
@200				rts							;>>>--- oscsi_setup --->>>
		
					ENDP

					EJECT
					EXPORT	oscsi_data_out
oscsi_data_out		PROC
********************************************************************************
*	Old scsi card data out phase
********************************************************************************
;
;
					lda		|more_dci			;check for more DCI instructions
					beq		exit
					jsr		getnxtdci			;next data chain instruction (buffer & count returned)
					bcs		exit				;no more DCI instructions
					jsr		osend_bytes			;go write bytes
;
;	update the transfer count
;
					ldy		#plst_reqxfr_cnt
					clc
					lda		<xfer_count			;update the transfered byte count
					adc		[plist_ptr],y
					sta		[plist_ptr],y
					ldy		#plst_reqxfr_cnt+2
					lda		<xfer_count+2
					adc		[plist_ptr],y
					sta		[plist_ptr],y
;
;	check for a phase mismatch
;
					jsr		bus_status			;get the status of the scsi bus
					and		#$0800				;check for phase match
					beq		exit				;go away if phase changed
					stz		|new_phase			;phase has not changed
					bra		oscsi_data_out		;go receive next groupt of bytes
exit				rts							;>>>--- oscsi_data_out --->>>
;		
					ENDP
		
		
					EJECT
					EXPORT	oscsi_data_in
oscsi_data_in		PROC
********************************************************************************
*	Old scsi card data in phase
********************************************************************************
;
;
;
					lda		|more_dci			;check for more DCI instructions
					beq		exit
					jsr		getnxtdci			;next data chain instruction (buffer & count returned)
					bcs		exit				;no more DCI instructions
					jsr		orecv_bytes			;go receive bytes
;
;	update the transfer count
;
					ldy		#plst_reqxfr_cnt
					clc
					lda		<xfer_count			;update the transfered byte count
					adc		[plist_ptr],y
					sta		[plist_ptr],y
					ldy		#plst_reqxfr_cnt+2
					lda		<xfer_count+2
					adc		[plist_ptr],y
					sta		[plist_ptr],y
;
;	check for a phase mismatch
;
					jsr		bus_status			;get the status of the scsi bus
					and		#$0800				;check for phase match
					beq		exit				;go away if phase changed
					stz		|new_phase			;phase has not changed
					bra		oscsi_data_in		;go receive next groupt of bytes
exit				rts							;>>>--- oscsi_data_in --->>>
;
					ENDP
		
		
					EJECT
					EXPORT	oscsi_status
oscsi_status		PROC
********************************************************************************
*	This routine will handle the reading of the status byte from the SCSI
*	bus.  The I/O of the byte is made in programmed I/O mode.
*
*	ENTRY:	e=0
*
*	Exit:	e,m,x = 0
*		scsi_statbyte := call status byte
*
********************************************************************************
;
;
					longa	on
					longi	on
;
					jsr		orecv_byte
					sta		|scsi_status		;save the scsi call status byte
					clc							;will always succeed
					rts							;>>>--- oscsi_status --->>>
;		
					ENDP
;		
			
		
					EJECT
					EXPORT	oscsi_msg_in
oscsi_msg_in		PROC
********************************************************************************
*	This routine will handle the reading of the message byte(s) from the SCSI
*	bus.  The I/O of the byte is made in programmed I/O mode.
*
*	ENTRY:	e=0
*
*	Exit:	e,m,x = 0
*		scsi_message := call message byte
*
********************************************************************************
;
;
;
					longa	on
					longi	on
					rep		#$30				;m=0, x=0
;
					sep		#$20				;m=1
					ldx		<io_offset			;point to DEV-SEL space for specific slot
					lda		>currdata,x			;read a msg byte (may be extended msg)
					rep		#$20				;m=0
					and		#$00FF				;low byte
					sta		|scsi_message		;save it
					jsr		validate_msg		;go see if valid (range check it)
					bcc		msginok
;
;	message is invalid REJECT it (bad message in)
;
obadmin				lda		#rEJECT_msg			;rEJECT message
					sta		|msg_out_byte		;for data out phase
					lda		#atn				;force target to msg_out phase
					jsr		set_icmd
					jsr		set_ack_true		;assert ACK
					jsr		wait_req_false		;wait for target to remove REQ
					jsr		set_ack_false		;remove ACK
					bra		exit				;go away (next phase should be MSG out phase)
;
;	message byte was within range
;	use msg # as index and call message service routine
;
msginok				jsr		set_ack_true		;assert ACK
					jsr		wait_req_false		;wait for target to remove REQ
					jsr		set_ack_false		;remove ACK
					lda		|scsi_message
					cmp		#identify_msg
					bne		@100
;
;	identify message from target convert to restore pointers
;
					lda		#rest_data_ptr
					sta		|scsi_message
;
;	form table index and call message service routine
;
@100				asl		A					;index into table := msg # * 4
					asl		A
					tax
					jsr		(|omsgin_tbl,x)		;call service routine
exit				rep		#$30				;m=0,x=0
					rts							;>>>--- oscsi_status --->>>
;		
;		
		
					EJECT
********************************************************************************
*	Old scsi card Message out phase
********************************************************************************
;
;
					EXPORT	oscsi_msg_out
oscsi_msg_out		lda		|msg_out_byte		;check if trying to send identify msg
					jsr		|validate_msg		;range check the message
					bcc		@100				;invalid message number
					brl		obadmout
@100				lda		|msg_out_byte		;valid check for identify
					cmp		#identify_msg
					beq		moident
					asl		A					;address table index := msg# * 4
					asl		A
					tax
					jsr		(omsgout_tbl,x)		;call message service routine
					bra		exit
;
;	IDENTIFY message out
;
moident				ora		<logunit			;include the logical unit (no reselect)
;
;	single byte message out routine
;
					longa	off
					longi	on
singmout			sep		#$20				;m=1
					rep		#$10				;x=0
					ldx		<io_offset			;point to proper io location
					xba							;save the message byte
					lda		>modereg,x			;use programmed I/O mode
					pha							;save mode register
					and		#$FD
					sta		>modereg,x
					lda		#attention			;deassert attention
					jsr		res_icmd
					xba
					sta     >currdata,x   		;write out the byte
					lda		#01					;assert the data bus
					ora		>initcmdreg,x
					sta		>initcmdreg,x
					jsr     set_ack_true		;assert the ACK* line
					jsr     wait_req_false		;wait for REQ* to go false
					jsr     set_ack_false		;negate ACK*
    				lda		#01					;turn off the data bus
					eor		>initcmdreg,x
					sta		>initcmdreg,x
					pla							;restore mode register
					sta		>modereg,x
					longa	on
					longi	on
					rep		#$30				;m,x = 0
					rts
;
sndmbyte			lda		|msg_out_byte
					bra		singmout
;
;
					EJECT
*******************************************************************************
*
*	address table for message service routines
*	each ENTRY has following format
*
*	table ENTRY
*	(msg_number)	msg_in_address	 msg_out_address
*			+--------------+-----------------+
*	     N		|   L   |   H  |   L    |    H   |
*			+--------------+-----------------+
*******************************************************************************
;
;
omsgin_tbl			dc.w	ocmd_complete		;old scsi command complete msg in
omsgout_tbl			dc.w	obadmout			;handler for cmd complete msg out
					dc.w	obadmin,obadmout	;extended message
					dc.w	obadmin,obadmout	;save data pointers
					dc.w	obadmin,obadmout	;restore data pointers
					dc.w	obadmin,obadmout	;disconnect (old card can not!)
					dc.w	obadmin,obadmout	;initiator detected error
					dc.w	obadmin,abortmout	;abort message
					dc.w	rEJECTmi,obadmout	;rEJECT message
					dc.w	obadmin,obadmout	;nop
					dc.w	obadmin,obadmout	;message parity error
					dc.w	obadmin,obadmout	;linked command complete
					dc.w	obadmin,obadmout	;linked command complete with flag
					dc.w	obadmin,obadmout	;autosense data follows
;
;		MESSAGE Handlers
;
;---------------------------------------
;	command complete message
;---------------------------------------
;
;					longa	on
					longi	on
;
ocmd_complete		lda		#$FFFF				;reset current phase value
					sta		|current_phase
					stz		|more_phases
					rts							;we are done!
;
;	REJECT message in
;
rEJECTmi			lda		|msg_out_byte		;see if we sent an identify message
					xba							;check for bit 7 set
					bmi		@100				;ignore the identify
;
;	message in state machine  goes here
;
@100				brl		exit				;go away (next phase should be MSG out phase)
;
;	ABORT message out
;
abortmout			lda		#abort_msg			;send an abort message to the target
					jsr		singmout			;send the message byte
					stz		|more_phases		;clean up and quit
					jsr		cleanup_sdr
					brl		exit
;
;	bad message handler (message out phase)
;
obadmout			lda		#bad_msg_err		;report a bad message error
					sta		|error_stat
					sec
					brl		exit
;		
					ENDP
					EJECT
					EXPORT	ocopyzcode
ocopyzcode			PROC
********************************************************************************
*	This module copies some high speed routines into zero page space reserved
*	for low level I/O fast access routines.  These routines are specific to
*	the OLD scsi card.
*
*	ENTRY:	e,m,x=0
*		X= byte count to copy
*
*	Exit:	X = trashed
*
********************************************************************************
;
					import	oscsibytesize
;
					ldx		#oscsibytesize
@100				lda		|oscsibyteio,x		;copy words at a time
					sta		<zeropg_code,x
					dex
					dex
					bpl		@100
					rts							;>>>--- ocopyzcode --->>>
	
					ENDP
	
					EJECT
					EXPORT	osend_cmd
osend_cmd			PROC
*******************************************************************
*		This routine will send a scsi command to a
*               previously selected device.  The command pointer
*               address must be provided in cmd_ptr.
*
*               Note: This call assumes that the target device
*               has been selected and has the BSY*, C/D* and REQ*
*               lines asserted (target waiting for command from
*               initiator.
*
*                ENTRY: e,m,x=0
*			(cmd_ptr:long word) = address of scsi command
*			(cmd_size:long word) = number of bytes in command
*
*                Exit:  e,m,x=0
*
*****************************************************************
;
;
					longa	on
					longi	on
		
					lda		#atn				;remove ATN if asserted
					jsr		res_icmd
					lda		#max_cmd_size		;assume command is 12 bytes
					sta		<byte_ctr			;if not max phase change pulls us out
					stz		<byte_ctr+2			;clear high word of byte count
					lda		<scsicptr			;setup pointer for send bytes
					sta		<buffer_ptr
					lda		<scsicptr+2
					sta		<buffer_ptr+2
					jsr		osend_bytes			;send the command on the scsi bus
					rts							;>>>--- osend_cmd --->>>

					ENDP		

		
					EJECT
					EXPORT	osend_bytes
osend_bytes			PROC
*****************************************************************
*	This routine will setup the low level byte transfer
*	routine to send data from the initiator to a target.
*	It also calls low_ptrs_init to setup the byte counters
*	and pointer addresses
*
*	ENTRY	e,m,x=0
*
*	Exit:	e,m,x=0
*
*****************************************************************
;
					import	patch_addr1
;
					longa	on
					longi	on
;
					lda		|new_phase			;check new phase flag for phase change
					beq		nextbuf				;dont reinit if same phase as last time
					lda		|sndstub			;small piece of code to zero page
					sta		<patch_addr1

;					LDA		[buffer_ptr],y

					lda		|sndstub+2
					sta		<patch_addr1+2
					lda		|sndstub+3
					sta		<patch_addr1+3
					jsr		oinit_5380			;enable pseudo-DMA mode
;
;	turn on the scsi data bus and kick start the DMA PROCess
;
					longa	off
					sep		#$20				;m=1
					lda		#$01
					sta		>initcmdreg,x
					sta		>dmasndreg,x		;enable pseudo dma send mode
					longa	on
					rep		#$20				;m=0
;
;	save the requested byte count
;
nextbuf				lda		<byte_ctr
					sta		<req_count
					lda		<byte_ctr+2
					sta		<req_count+2
					jsr		low_ptrs_init		;2's complement byte count & pointer
					phb							;save current data bank, it will be changed
					jsl		callzpg				;call routine in zero page
;
;	save the transfered byte count
;
@100				php							;save carry bit
					clc
					tya
					adc		<req_count
					sta		<xfer_count
					lda		<byte_ctr+2
					adc		<req_count+2
					sta		<xfer_count+2
					plp							;restore carry bit
;
;	check for more data chaining instructions
;
					plb
exitsnd				rts							;>>>--- osend_bytes --->>>
;
sndstub				lda		[buffer_ptr],y		;send code stub
					sta		|opdmadatareg,x		;
		
					ENDP
					EJECT
					EXPORT	orecv_bytes
orecv_bytes			PROC
*****************************************************************
*	This routine will setup the low level byte transfer
*	routine to receive data from a target into an intiatiator.
*	It copies a short code stub into zero page to adjust the
*	byte transfer direction.
*
*	ENTRY	e,m,x=0
*
*	Exit:	e,m,x=0
*
*****************************************************************
;
					import	patch_addr1
;
;	download the receive byte stub into zero page
;
					lda		|new_phase			;check of new or same phase as last time
					beq		nextbuf
					lda		|rcvstub			;small piece of code to zero page
					sta		<patch_addr1

;					LDa		|indatareg,x

					lda		|rcvstub+2

;					STa		[buffer_ptr],y

					sta		<patch_addr1+2
					lda		|rcvstub+3
					sta		<patch_addr1+3
;
;	initialize the 5380 controller
;
					jsr		oinit_5380			;enable pseudo-DMA mode (old scsi card)
					longa	off
					sep		#$20				;m=1
					sta		>idmarecv,x			;enable pseudo dma receive mode
					longa	on
					rep		#$20				;m=0
;
;	save the requested byte count
;
nextbuf				lda		<byte_ctr
					sta		<req_count
					lda		<byte_ctr+2
					sta		<req_count+2
;
					jsr		low_ptrs_init		;adjust byte count and pointer
					phb							;save current data bank, it will be changed
					jsl		callzpg				;call routine in zero page
;
;	save the transfered byte count
;
@100				php							;save carry bit
					clc
					tya
					adc		<req_count
					sta		<xfer_count
					lda		<byte_ctr+2
					adc		<req_count+2
					sta		<xfer_count+2
					plp							;restore carry bit
					plb							;restore data bank
exitrcv				rts							;>>>--- orecv_bytes --->>>
;
rcvstub				lda		|opdmadatareg,x		;recv code stub
					sta		[buffer_ptr],y

					ENDP
;

					EJECT
					EXPORT	osend_byte
osend_byte  	    PROC
*****************************************************************
*osend_byte:     This routine will send a byte contained in the
*                A accumulator to a device on the scsi bus.  The
*		 byte is sent in Programmed I/O mode.  The
*                routine assumes that all the required work to
*                to send bytes on the bus has been proviously done.
*                The routine writes the byte out to the scsi bus
*                asserts ACK*, waits for the target to deassert REQ*
*                and then deasserts the ACK*.
*
*                ENTRY: e=0,m=1
*                       B=byte to send
*                       X=5380 register offset
*
*                Exit: same as ENTRY
*
*****************************************************************
;
					longa	off
					longi	on
;
;
					php							;save m,x
					sep		#$20				;m=1
					rep		#$10				;x=0
					ldx		<io_offset			;point to proper io location
					xba							;save the data byte
					lda		>modereg,x			;use programmed I/O mode
					pha							;save mode register
					and		#$FD
					sta		>modereg,x
					jsr		wait_req_true		;wait for request true
					xba
					sta     >outdatareg,x		;write out the byte
					jsr     set_ack_true		;assert the ACK* line
					jsr     wait_req_false		;wait for REQ* to go false
					jsr     set_ack_false		;negate ACK*
					pla							;restore mode register
					sta		>modereg,x
					plp							;restore m,x
					rts							;>>>--- osend_byte --->>>
;
					ENDP

					EJECT
					EXPORT	orecv_byte
orecv_byte			PROC
********************************************************************************
*	This routine will read ONE byte from the NCR 5380 in programmed I/O mode.
*	The routine assumes that the phases are in a input phase where data is
*	being received by the initiator.
*
*	ENTRY:	e=0
*		io_offset = C0NX address space for NCR 5380
*
*	Exit	e,m,x = 0
*		A = $00XX (byte read from the 5380)
*
********************************************************************************
;
;
					longa	off
					longi	on
;
					php							;save m,x
					sep		#$20				;m=1
					rep		#$10				;x=0
					ldx		<io_offset			;point to proper io location
					lda		>currdata,x			;get the byte
					xba							;save it away
					jsr     set_ack_true	    ;assert the ACK* line
					jsr     wait_req_false		;wait for REQ* to go false
					jsr     set_ack_false		;negate ACK*
;
					longa	on
					rep		#$20				;m=0
					xba							;restore the byte
					and		#$00FF				;keep low byte only
					plp							;restore m,x
					rts							;>>>--- orecv_byte --->>>
;
					ENDP
;
					EJECT
					EXPORT callzpg
callzpg				PROC
*****************************************************************
*	This routine will pass control to location $0080 of the
*	SCSI Manager zero page. It assumes there is valid code to
*	run at that location. This routine MUST be called through
*	a JSL instruction because the code in zero page will return
*	through an RTL instructinon.
*
*	ENTRY: e=0,m=0,x=0
*
*	Exit:	e,m,x=0
*		registers trashed
*
*****************************************************************
;
					longa	on
					longi	on
;
					pea		$0000				;force bank $00 for code bank and data bank
					plb							;flush one word off the stack
					tdc
					clc
					adc		#zeropg_code
					dec		A
					pha
					rtl							;call routine in zero page

					EJECT
oscsibyteio			PROC
					ENDP
*****************************************************************
*oscsibyteio	This routine will send or receive a number of bytes
*		to or from a scsi i/o port.  This call assumes
*		that the scsi port is in a appropriate phase to
*		send or receive bytes  Depending on whether bytes
*		are being sent or received a low level routine in
*		SCSI Manager zero page will be modified to send or
*		receive bytes.  Note: The routine is optimized for
*		fast transfers. It assumes that once a byte is found
*		bytes will come in faster than we can check for them
*		The second check for a byte should only occur if we
*		are talking to slow scsi devices.
*
*                ENTRY:	e,m,x=0
*			X = $C0NX
*			sndbptr	= pointer to buffer to send
*			sndbcnt	= byte count to send
*
*                Exit: 	e,m,x = 0
*			sndbcnt = $00000000
*
*****************************************************************
ozeropgcode			PROC
;
;
					longa	off
					longi	on
					sep		#$20				;m=1
					rep		#$10				;x=0
@100				bit		|busstat,x			;check for DRQ
					bvs		patch1
					lda		#phasematch			;check for a phase mismatch
					bit		|busstat,x
					bne		@100				;keep going until count expires or phase change
					bra		patch1
statloop			bit		|busstat,x			;check for DRQ
					bvc		nextcheck
bumpcount			iny							;bump count/buffer index
					beq		uppercheck
patch1				lda		[buffer_ptr],y		;transfer a byte
					sta		|opdmadatareg,x
nextcheck			bit		|busstat,x			;check for DRQ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                
					bvs		bumpcount			;go transfer another byte
					lda		#phasematch			;check for a phase mismatch
					bit		|busstat,x
					bne		statloop			;keep going until count expires or phase change
					sep		#$40				;mark phase changed status
					iny							;adjust the transfered byte count for humans
					bne		exit_byteio
					rep		#$20				;m=0
					inc		<buffer_ptr+2		;bump the high word of the buffer
					inc		<byte_ctr+2			;bump the high word of the byte count
					bra		exit_byteio			;phase changed go away
;
uppercheck			rep		#$20				;m=0
					inc		<buffer_ptr+2		;bump high word of buffer address
					inc		<byte_ctr+2			;bump high word of byte count
					sep		#$20				;m=1
					bne		patch1				;keep going until zero
;
;	exit byte I/O routine
;
					longa	on
					longi	on
exit_byteio			rep		#$30				;m=0,x=0
exit1				clc
					rtl							;>>>--- oscsibyteio --->>>
;
;
size				equ		*-ozeropgcode
;
					IF		 size	AND	$00000001	then	;check if odd byte count
					nop							;odd byte count insert NOP
					ENDIF

					EXPORT	oscsibytesize:equ
oscsibytesize		equ		*-ozeropgcode		;number of bytes in routine
	
					EXPORT	patch_addr1:equ
patch_addr1			equ		patch1-ozeropgcode\
							+zeropg_code
;
					ENDP
				
					EJECT
					EXPORT	low_ptrs_init
low_ptrs_init	PROC
********************************************************************************
* low_ptrs_init	This routine will setup source/dest and byte counters to optimize
*		for data transfers.  The byte count is made 2's complement
*		so it can double as byte counter and buffer index.  The buffer
*		address will be modified to compensate for the change in the byte
*		counter.  The routine sets things up to optimize the data transfers
*		from the hardware into buffers and viceversa.  Transfers of very few
*		bytes (5-20 bytes) will suffer some degradation but transfers of blocks will
*		receive a major performance improvement.
*
*		ENTRY:	e,m,x=0
*			buffer_ptr
*			byte_ctr
*
*
*		Exit:	e,m,x = 0
*			buffer_ptr trashed
*			byte_ctr trashed
*
********************************************************************************
;
;		
					longa	on
					longi	on
					rep		#$30				;m,x=0
		
					sec							;2's complement low word of byte count
					lda		#$0000				;to make counter incrementing and can
					sbc		<byte_ctr			;double as source/destination pointer
					tay							;save modified counter
					php							;save 16 bit status (just want carry bit)
					php
					lda		#$0000
					sbc		<byte_ctr+2			;high word of byte count
					sta		<byte_ctr+2			;save high word of updated count
					clc							;update source pointer to compensate byte count
					lda		<buffer_ptr			;becoming 2's complement
					adc		<byte_ctr	
					sta		<buffer_ptr	
					pla							;restore carry bit
					and		#$0001
					bne		@100				;if carry set don't subtract
					lda		<buffer_ptr+2		;include possible borrow
					sbc		#$0000		
					sta		<buffer_ptr+2
@100				sty		<byte_ctr			;Y contains low word of byte count
					rts							;>>>--- low_ptrs_setup --->>>

					ENDP

					EJECT
					EXPORT	ophase_handler
ophase_handler		PROC
********************************************************************************
*	This routine will wait for a target device to go into its phasing
*	and then will pass control to different scsi phasing routines until a
*	Message Complete is received from the target device.
*
*	ENTRY	e,m,x=0
*
*	Exit	e,m,x=0
*
********************************************************************************
;
;
;
					longa	on
					longi	on
;
					ldx		#$FFFF
					stx		|more_phases		;initialize phase handler trigger
;
;	check more_phases flag each loop through the phase handler
;
@100				lda		|more_phases		;we remain here until legitimate bus free
					beq		exit
					ldx		<io_offset			;point to specific i/o space
@200				lda		>curbusstat,x
					and		#bsy++sel			;look for unexpected bus free
					beq		errexit
;
;	not bus free go check which phase
;
@250				cmp		#bsy				;bsy and/or sel set check which
					bne		@100				;if sel* asserted  then check again
;
;	toggle DMA mode to reset the phase mismatch and allow REQ to come through
;
					longa	off
					sep		#$20				;m=1
					lda		>modereg,x
					and		#dmaenable--\
							$FF
					sta		>modereg,x
					ora		#dmaenable
					sta		>modereg,x
;
;	check for REQ to go asserted
;
					longa	on
					rep		#$20
					lda		>curbusstat,x		;get target command register
					and		#req
					beq		@100
;
;	vector to new phase
;
					lda		>curbusstat,x
					lsr		A
					lsr		A
					and		#$0007				;keep phase bits
;
;	match the phase bits in target command register
;
					sep		#$20				;m=1
					sta		>targcmdreg,x                                                                                                                       	;match the phase bits
					rep		#$20				;m=0
;
;	save the phase information for later comparison when multiple data
;	chain instructions are called.
;
					stz		|new_phase			;assume not a new phase
					cmp		|current_phase		;same phase as last time??
					beq		@125				;set new phase  flag if different
					sta		|current_phase		;save the phase value
					dec		|new_phase
@125				clc
					adc		#phase_offset/2		;offset into phasing routines in addr table		
					jsr		callrtn				;go to the phasing routines for this interface
					bra		@100				;go check for more phases
;
;	if bus free when it should not have been report an error
;
errexit				lda		#bus_free_err
					sta		|error_stat
					stz		|more_phases
					sec
exit				jsr		ozap_5380			;clean up the 5380 registers
					rts							;>>>--- ophase_handler --->>>

					ENDP
;
;
					EJECT
					EXPORT	oinit_5380
oinit_5380			PROC
*********************************************************************************
*	This routine will initialize the NCR 5380 chip on an old scsi card
*	implementation.  Also, it enables pseudo-DMA mode on the 5380 and on the
*	SCSI card.
*
*	ENTRY:	e,m,x = 0
*
*	Exit:	e,m,x = 0
*
*********************************************************************************
;
					php
					longa	off
					longi	on
					sep		#$20				;m=1
					rep		#$10				;x=0
;
					phx
					ldx		<io_offset
					lda		#dmaenable			;enable DMA on the 5380
					ora		>modereg,x			;in the mode register
					and		#$7F				;mask off block mode dma
					sta		>modereg,x
					lda		#$00
					sta		>opdmareg,x			;enable pseudo DMA xfers old card
					plx
					plp							;restore m,x
					rts							;>>>--- onit_5380 --->>>
;
					ENDP
;
					EJECT
					EXPORT	ozap_5380
ozap_5380			PROC
*********************************************************************************
*	This routine will initialize the NCR 5380 registers on the old scsi card
*	to a known state.
*
*	ENTRY:	e,m,x = 0
*
*	Exit:	e,m,x = 0
*
*********************************************************************************
;
					php
					longa	off
					longi	on
					sep		#$20				;m=1
					rep		#$10				;x=0
;
					phx
					ldx		<io_offset
					lda		#$0000				;write zeros to registers
					sta		>initcmdreg,x		;initiator command register
					sta		>modereg,x
					sta		>targcmdreg,x		;target command register
					plx
					plp							;restore m,x
					rts							;>>>--- onit_5380 --->>>
;
					ENDP
;
					EJECT
					EXPORT	opdmaoff
opdmaoff			PROC
*********************************************************************************
*	This routine will turn of DMA mode in the 5380 and check to see if the
*	target phase bits changed to a new phase.
*
*	ENTRY:	e,m,x = 0
*		X=Dev-sel registers offset
*
*	Exit:	e,m,x = 0
*		C=1 if phase changed
*
*********************************************************************************
;
;
					longa	off
					longi	on
					sep		#$20				;m=1
;
					lda		#dmaenable--$FF		;read 5380 mode register
					and		>modereg,x			;clear dma enable bit
					sta		>modereg,x
exit				rep		#$20				;m=0
					rts							;>>>--- opdmaoff --->>>
;
					ENDP
;
					EJECT
					EXPORT	obad_phase
obad_phase			PROC
**********************************************************************************
*	This routine will set the error code inv_phase_err in error_stat, sets
*	the carry bit and exits.
*
*	ENTRY: e=0
*
*	Exit:	e=0, m,x = same as ENTRY
*		C=1
*		error_stat := inv_phase_err
*
*********************************************************************************
;
;
					php
					longa	on
					rep		#$20				;m=0
;
					lda		#inv_phase_err		;mark phase bits error
					sta		|error_stat
					sec
					rts							;>>>--- exit bad_phase --->>>
;
					ENDP
					EJECT
					EXPORT	tuplist
tuplist				PROC
********************************************************************************
*	This module contains a canned packet for test unit ready call
********************************************************************************
;
					EXPORT	tulunit
					EXPORT	tu_slot
;
tu_slot				dc.w	$0000				;slot number
					dc.w	$0000				;id field
					dc.w	$0000				;parameter list version
					dc.w	$0000				;flags
					dc.w	$0008				;give call 2 seconds to complete
					dc.l	$00000000			;completion vector
					dc.l	tuscmd				;pointer to scsi test unit ready command packet
					dc.l	$00000000			;no byte count returned
					dc.l	$00000000			;message buffer pointer
					dc.l	$00000000			;reserved
;
;
					EXPORT	tulunit
tuscmd				dc.b	$00					;command number $00 (test unit ready)
tulunit				dc.b	$00					;no data coming back (also scsi command packet)
					dc.l	$00000000			;4 bytes of zero
;
					ENDP
;
;
					EXPORT	inq_plist
inq_plist			PROC
********************************************************************************
*	This module contains the parameter list for the Inquiry call made to
*	interrogate devices on the scsi bus when building the SDRs.
********************************************************************************
;
					EXPORT	inq_slot
					EXPORT	inq_lunit
;
inq_slot			dc.w	$0000				;low  word of 32 bit device ID field
					dc.w	$0000				;id = $0000
					dc.w	$0000				;parameter list version
					dc.w	$0000				;flags
					dc.w	$0004				;give the call 1 sec to complete (4*250 millisec)
					dc.l	$00000000			;completion vector (no completion vector)
					dc.l	inqcmd				;scsi command pointer
					dc.l	dcstruc				;data chaining instructions
					dc.l	$00000008			;request 8 bytes
					dc.l	$00000000			;message buffer pointer  (zero = throw data on floor)
					dc.l	$00000000			;reserved
;
inqcmd				dc.b	$12					;inquiry command
inq_lunit			dc.b	$00					;b7-b5 = Logical unit, b4-b0 = reserved
					dc.b	$00					;reserved
					dc.b	$00					;reserved
					dc.b	$FF					;255 bytes of data requested
					dc.b	$00					;Vendor unique & flag & link bits
;
dcstruc				dc.l	inq_buff			;inquiry buffer address
					dc.l	inqbsize			;byte count to request
					dc.l	$00000000			;number to add to buffer address
					dc.l	$00000000			;save inquiry pointer area (must be set to zero)
;
					ENDP
					EXPORT	sense_plist
sense_plist			PROC
********************************************************************************
*	This module contains the parameter list for the Inquiry call made to
*	interrogate devices on the scsi bus when building the SDRs.
********************************************************************************
;
					EXPORT	sense_slot
					EXPORT	senseid
					EXPORT	sense_lunit
;
sense_slot			dc.w	$0000				;low  word of 32 bit device ID field
senseid				dc.w	$0000				;id = $0000
					dc.w	$0000				;parameter list version
					dc.w	$0000				;flags
					dc.w	$0010				;give the call 16 secs to complete
					dc.l	$00000000			;completion vector
					dc.l	sense_cmd			;scsi command pointer
					dc.l	sensebstruc			;data chaining instructions for request sense
					dc.l	$00000004			;request 256 bytes
					dc.l	$00000000			;autosense buffer pointer (not available)
					dc.l	$00000000			;message buffer pointer  (zero = throw data on floor)
					dc.l	$00000000			;reserved
;
					EXPORT	sense_lunit
					EXPORT	sensebstruc
					EXPORT	sensecnt0
					EXPORT	sensecnt1
					EXPORT	sense_buff
					EXPORT	inq_buff
;
sense_cmd			dc.b	$03					;request Sense
sense_lunit			dc.b	$00					;b7-b5 = Logical unit, b4-b0 = reserved
					dc.b	$00					;reserved
					dc.b	$00					;reserved
sensecnt0			dc.b	$00					;forces 4 bytes of request sense data
					dc.b	$00					;Control byte
;
sensebstruc			dc.l	sense_buff			;sense buffer
sensecnt1			dc.l	$00000000			;sense byte count requested (filled by manager)
					dc.l	$00000000			;number to add to buffer address
					dc.l	$00000000			;save inquiry pointer area (must be set to zero)
;
sense_buff			ds.b	$04					;260 byte buffer for request sense & inq calls
;
inq_buff			ds.b	$100				;256 byte inquiry buffer
					ENDP
;
;
					EJECT
;					EXPORT	arbitrate_phase
arbitrate_phase		PROC
*****************************************************************
* Arbitrate:    This module will arbitrate for the SCSI bus
*       The contents of the accumulator contain the ID
*       of the Initiator.  This routine will wait until
*       the arbitration succeds.
*
*       ENTRY:    (initiator_id) = SCSI ID of device wanting bus
*                 (io_offset) = Register offset (slot #*$10+$80)
*
*       Exit:     e,m,x = 0
*		C = 0 if successful arbitration
*		C = 1 if arbitration failed
*		  Error_stat := arbitration phase error ($FE15)
*
*****************************************************************
;
;
					longa	on
					longi	on
					rep		#$30				;m=0,x=0
					phd							;save direct register
					lda		<io_offset			;i/o register offset
					tcd
;
;	start the arbitration timeout heartbeat task
;
					lda		#arbtcount			;arbitrate timeout count (approx. 2 secs)
					sta		|arbtick_count
;
					longa	off
					sep		#$20				;m=1
					lda		|init_priority		;get priority of our initiator
					stz		<targcmdreg			;clear the phase bits
					sta		<outdatareg			;write Initiator ID
;
;	check the arbitration timeout count field for zero
;
@10					lda		|arbtick_count
					ora		|arbtick_count+1
					beq		arbitrate_tout		;if nonzero check again later
					stz		<modereg			;reset arbitrate bit
					lda		#<arbitrate			;then set arbitrate bit
					sta		<modereg
					bit		<initcmdreg			;wait for bus free
					bvc		@10
					nop							;wait 2.2+ usec
					nop
					nop
					nop
					nop
					lda		#<arbitlost			;check for loss of arbitration
					and		<initcmdreg
					bne		@10
					lda		<currdata			;otherwise reset arbitrate bit &
					eor		|init_priority		;check for higher priority on bus
					beq		@30					;nobody else wants the bus
					cmp		|init_priority		;otherwise try again
					bcs		@10
@30					lda		#<arbitlost			;check for arbitrate loss
					and		<initcmdreg			;if not lost we win
					bne		@10					;otherwise go try again
					lda		#select++atn		;assert select with attention
					jsr		set_icmd_bits
					clc							;mark success
arbit_exit			pld							;restore direct register
					longa	on
					longi	on
					rep		#$30				;m,x=1
					stz		|arbtick_count		;clear the timeout count
					rts							;>>>--- arbitrate_phase --->>>
;
;	arbitration timeout
;
					longa	on
arbitrate_tout		rep		#$20				;m=0
					lda		#arbit_phase_err
					sta		|error_stat
					sec
					bra		arbit_exit
;
;	Arbitration timeout heartbeat service routine
;
					EXPORT	arbtout_header
;
arbtout_header		dc.l	$00000000			;room for link pointer
arbtick_count		dc.w	$0000				;tick count before irq
					dc.w	$A55A				;manual is wrong A55A signature correct
;
;	count field in the header is the flag for timout
;
					rtl							;the count field in heartbeat task header
												;= $0000 marks timeout.
;
					ENDP
					EJECT
					EXPORT	Select_phase
Select_phase		PROC
*****************************************************************
* Select_Phase: This routine will select a particular
*       SCSI target device.  The routine
*       assumes that the routine Arbitration_phase
*       has been called previously and succeeded
*       in gaining control of the SCSI bus.
*
*       ENTRY: e=0
*              (initiator_id) = scsi device who has scsi bus
*              (target_id) = scsi ID of target we want
*
*       Exit: same as ENTRY
*****************************************************************
;
;
					php							;save m,x
					longa	on
					longi	on
					rep		#$30				;m=0,x=0

					phd							;save direct register
					lda		<io_offset			;get slot offset for 5380 registers
					tcd			;

					longa	off
					sep		#$20				;m=1

					stz		<selectereg			;clear the reselect ID register
					lda		|init_priority		;post our ID and targets ID on bus
					ora		|target_priority
					sta		<outdatareg
					lda		#identify_msg		;we want to send an identify message
					sta		|msg_out_byte
					lda		#<databuson			;assert our ID & target ID on bus
					jsr		set_icmd_bits
					lda		#<arbitrate			;reset arbitrate bit
					trb		<modereg
					lda		#<busy				;reset BSY*
					jsr		res_icmd_bits
					jsr		chk_sel_tout		;wait for target to assert BSY*
					bcc		remove_sel			;bus select success or fail
select_fail			jsr		sel_abort_wait		;wait select abort time & check BSY*
remove_sel			lda		#<select			;on success or fail clear SEL* line
					jsr		res_icmd_bits		;INITIATOR now has control of target

					longa	on
					rep		#$20				;m=0

					bcc		select_ok			;go away if all ok
					lda		#atn				;remove atn & turn off bus on select fail
					jsr		res_icmd_bits
					lda		#databuson
					jsr		res_icmd_bits
					lda		#sel_phase_err		;mark select phase error
					sta		|error_stat			;and let SCSI bus go free
					pld							;restore direct register
					plp							;restore m,x & mark error
					sec							;mark an error
					bcs		select_exit			;go away with error
select_ok			lda		#databuson			;turn off the data bus
					jsr		res_icmd_bits
					pld							;restore direct register
					stz		|error_stat			;mark select ok
					plp							;restore m,x
					clc							;mark success
select_exit			rts							;>>>--- select_phase --->>>
;
					ENDP
					EJECT
					EXPORT	res_icmd_bits
res_icmd_bits		PROC
*****************************************************************
*Res_Icmd_bits: This routine will reset a specified number of
*       bits in the SCSI Initiator command register. The
*       bit positions to be reset must be set in the
*       A register.
*
*       ENTRY:    e=0,m=0
*                 io_offset = index into I/O dev-sel space
*       Exit:     same as ENTRY
*
*****************************************************************
;
;
					php							;save m,x
					longa	off
					sep		#$20				;m=1

					pha							;save bits to reset
					ora		<initcmdreg			;include other bits in register
					eor		1,s					;now reset desired bits
					and		#<%10011111			;mask test mode & different. enable
					sta		<initcmdreg			;write out new initiator cmd. reg.
					pla							;clean up the stack
					plp							;restore m,x
					rts							;>>>--- res_icmd_bits --->>>
;
					ENDP


					EJECT
					EXPORT	set_icmd
set_icmd			PROC
*****************************************************************
*set_icmd: This routine will set specified bits in the
*       SCSI initiator command register and mask off the
*       test mode bit and the Differential mode enable
*       bit.
*
*       ENTRY:    e=0
*                 A=bits        to set
*            	  X = $C0XX (points to dev-sel space for card selected)
*
*       Exit:     e=0
*                 X=same        as ENTRY
*                 A=trashed
*
*****************************************************************
;
;
					php							;save m,x
					longa	off
					sep		#$20				;m=1

					ora		>initcmdreg,x		;include other bits of register
					and		#<%10011111			;mask off test & differential
					sta		>initcmdreg,x		;write out modified register
					plp							;restore m,x
					rts							;>>>--- set_icmd_bits --->>>
;
					ENDP
;
					EJECT
					EXPORT	res_icmd
res_icmd			PROC
*****************************************************************
*Res_Icmd: This routine will reset a specified number of
*       bits in the SCSI Initiator command register. The
*       bit positions to be reset must be set in the
*       A register.
*
*       ENTRY:    e=0,m=0
*                 X = C0NX address
*       Exit:     same as ENTRY
*
*****************************************************************
;
;
					php							;save m,x
					longa	off
					sep		#$20				;m=1

					pha							;save bits to reset
					ora		>initcmdreg,x		;include other bits in register
					eor		1,s					;now reset desired bits
					and		#<%10011111			;mask test mode & different. enable
					sta		>initcmdreg,x		;write out new initiator cmd. reg.
					pla							;clean up the stack
					plp							;restore m,x
					rts							;>>>--- res_icmd_bits --->>>
;
					ENDP


					EJECT
					EXPORT	set_icmd_bits
set_icmd_bits		PROC
*****************************************************************
*set_icmd_bits: This routine will set specified bits in the
*       SCSI initiator command register and mask off the
*       test mode bit and the Differential mode enable
*       bit.
*
*       ENTRY:    e=0,m=0
*                 A=bits        to set
*            	  D = $C0XX (points to dev-sel space for card selected)
*
*       Exit:     e=0,m=1
*                 X=same        as ENTRY
*                 A=trashed
*
*****************************************************************
;
;
					php							;save m,x
					longa	off
					sep		#$20				;m=1

					ldx		<io_offset
					ora		<initcmdreg			;include other bits of register
					and		#<%10011111			;mask off test & differential
					sta		<initcmdreg			;write out modified register
					plp							;restore m,x
					rts							;>>>--- set_icmd_bits --->>>
;
					ENDP
;
;

					EXPORT	oscsi_dma_enab
oscsi_dma_enab		PROC
*****************************************************************
*dma_enable:    This module will set DMA mode in the NCR 5380
*       	and dma mode in the Sandwich chip.  If carry is
*       	set then Pseudo-DMA will be enabled in the
*       	sandwich chip.
*
*       ENTRY: e=0,m=0,x=0
*              Carry = 0        set true DMA in sandwich
*              Carry = 1        set Pseudo DMA in sandwich
*            	  D = $C0XX (points to dev-sel space for card selected)
*
*       Exit: e=0,m=1
*             A=trashed
*
*****************************************************************
;
					php							;save m,x
					longa	off
					sep		#$20				;m=1

					ldx		<io_offset			;point to dev-sel space
					lda		#<dmaenable			;turn on dma mode in 5380
					ora		>modereg,x
					sta		>modereg,x
					plp							;restore m,x
					rts							;>>>--- oscsi_dma_enab --->>>
;
					ENDP
		
		
					EXPORT	oscsi_dma_disab
oscsi_dma_disab		PROC
*****************************************************************
*oscsi_dma_disab:	This routine will disable ANY dma modes which
*       		may be set.
*
*       ENTRY: e=0,m=0
*              io_offset = I/O space index
*
*       Exit: same as ENTRY
*
*****************************************************************
;
					php							;save m,x
					longa	off
					sep		#$20				;m=1
;
					ldx		<io_offset			;index for I/O registers
					lda		>modereg,x			;read the mode register
					and		#<%11111101			;disable DMA in 5380
					sta		>modereg,x
					plp							;restore m,x
					rts							;>>>--- dma_disable --->>>
;
					ENDP

					EJECT
*****************************************************************
*set_ack:       This routines will set the ACK* line true or false.
*
*       ENTRY: e=0,m=0
*              io_offset = I/O space index
*              carry = 1        set ACK* true
*              carry = 0        set ACK* false
*
*       Exit: A= trashed
*
*****************************************************************
;
					EXPORT	set_ack_true
set_ack_true		PROC
					php							;save m,x
					longa	off
					sep		#$20				;m=1

					ldx		<io_offset			;I/O address offset
					lda		#<asrtack
					ora		>initcmdreg,x		;initiator command register
					and		#<%10011111			;mask off test mode & differential
					sta		>initcmdreg,x		;write modified register
					plp							;restore m,x
					rts							;>>>--- wait_req_true --->>>

set_ack_false		PROC 
					php							;save m,x
					longa	off
					sep		#$20				;m=1

					ldx		<io_offset			;I/O address offset
					lda		>initcmdreg,x		;get initiator cmd register
					and		#<%10001111			;mask off tst mode,diff. mode, ACK*
					sta		>initcmdreg,x		;write out modified register
					plp							;restore m,x
					rts							;>>>--- set_ack_false --->>>
;
					ENDP
					EJECT
*****************************************************************
*wait_req       This routines will wait for REQ* to go true or
*       	false.
*
*       ENTRY: e=0,m=0
*
*       Exit: A= trashed
*
*****************************************************************
;
					EXPORT	wait_req_true
wait_req_true		PROC
					php							;save m,x
					longa	off
					sep		#$20				;m=1
					ldx		<io_offset
@100				lda		#<req
					and		>curbusstat,x		;get current scsi bus status
					beq		@100				;and wait until REQ* is true
					plp
					rts							;>>>--- wait_req_true --->>>
;
wait_req_false		PROC     
					php							;save m,x
					longa	off
					sep		#$20				;m=1
					ldx		<io_offset
@100				lda		#<req
					and		>curbusstat,x		;get current scsi bus status
					bne		@100				;and wait until REQ* is false
					plp							;restore m,x
					rts							;>>>--- wait_req_true --->>>
;
;
					ENDP
		
		
					EJECT
					EXPORT	wait_drq_true
wait_drq_true		PROC
*****************************************************************
*wait_drq_true: This routine will wait for DRQ (DMA request) to
*       	go true or false depending on the setting of the
*       	carry bit.
*
*       ENTRY: e=0,m=0
*            	io_offset = I/O space index
*              carry = 1        wait for DRQ* to        be asserted
*              carry = 0        wait for REQ* to        be deasserted
*
*       Exit: A= trashed
*
*****************************************************************
;
					php							;save m,x
					longa	off
					sep		#$20				;m=1

					ldx		<io_offset
					lda		#<drq
					and		>busstat,x			;get DMA request status
					beq		wait_drq_true		;and wait until REQ* is true
					plp							;restore m,x		rts			;>>>--- wait_req_true --->>>
;
					ENDP

					EXPORT	slow_down
slow_down	PROC
*****************************************************************
*slow_down:     This routine will read the setting of the system
*       	speed, save it away and then set the system slow.
*
*       ENTRY: e=0,m=0
*
*       Exit: e=0,m=0
*             (speed_setting) := old setting of system speed
*             CYAREG-b7 := 0 slow
*
*****************************************************************
;
;
					php							;save m,x
					longa	off
					sep		#$20				;m=1

					lda		>cyareg				;read current setting
					sta		<cyareg_hold		;save it
					and		#<%01111111			;b7 = 0 slow down
					sta		>cyareg				;write modified register
					plp							;restore m,x
					rts							;>>>--- slow_down --->>>
;
					ENDP

					EJECT
					EXPORT	restore_cya
restore_cya			PROC
****************************************************************
*restore_cya:   This routine will restore the contents of the
*       	cya register to the setting saved away by the
*       	slow_down routine in 'cya_hold'.
*
*       ENTRY: e=,m=0
*              (cya_hold) := contents to write into cyareg
*
*       Exit: e=0,m=1 cyareg := (cya_hold)
*
*****************************************************************
;
;
					php							;save m,x
					longa	off
					sep		#$20				;m=1

					lda		<cyareg_hold		;restore setting of CYA reg
					sta		>cyareg
					plp							;restore m,x
					rts							;>>>--- restore_cya --->>>
;
					ENDP
					EJECT
					EXPORT	wait_busy
wait_busy			PROC
*****************************************************************
*Wait_busy:     This routine waits for BSY* to go true before
*       	returning to the caller.
*
*       ENTRY: e=0,m=0
*            	io_offset = I/O space index
*
*       Exit: same as ENTRY
*
*****************************************************************
;
;
					php							;save m,x
					longa	off
					sep		#$20				;m=1

					ldx		<io_offset
@10					lda		>curbusstat,x		;check for busy
					and		#<bsy
					beq		@10					;and wait until it comes
					plp							;restore m,x
					rts							;>>>--- wait_busy --->>>
;
					ENDP
					EJECT
					EXPORT	message_phase
message_phase		PROC
*****************************************************************
*message.phase: This routine will waits for the message phase
*       	and reads in the message byte.
*
*       ENTRY: e=0, m=0
*            	io_offset = I/O space index
*
*       Exit: same as ENTRY
*
*****************************************************************
;
					php							;save m,x
					longa	off
					sep		#$20				;m=1

					ldx		<io_offset
					jsr		wait_req_true		;wait for REQ*
					lda		>currdata,x			;get message byte from target
					pha							;save the status
					jsr		set_ack_true		;assert ACK*
					jsr		set_ack_false		;reset ACK*
					pla							;restore status byte
					plp							;restore m,x
					rts							;>>>--- status phase --->>>
;
					ENDP
		
					EJECT
					EXPORT	status_phase
status_phase		PROC
*****************************************************************
*status_phase:  This routine will set the REQ*, I/O* & C/D*
*       	lines to match the status phase signal setup
*
*       ENTRY:	e=0, m=0
*            	io_offset = I/O space index
*
*       Exit: same as ENTRY
*
*****************************************************************
					longa	off
;
					php							;save m,x
					longa	off
					sep		#$20				;m=1

					ldx		<io_offset
					jsr		wait_req_true		;wait for REQ*
					lda		>currdata,x			;get SCSI status byte from target
					pha							;save the status
					jsr		set_ack_true		;assert ACK*
					jsr		set_ack_false		;reset ACK*
					pla							;restore status byte
					plp							;restore m,x
					rts							;>>>--- status phase --->>>
;
					ENDP
		
					EJECT
					EXPORT	chkbusfloat
chkbusfloat			PROC
*********************************************************************************
*	This routine will attempt to check if the SCSI bus is floating due to
*	no peripherals turned on or connected to the current card/port.  SCSI
*	peripherals provide termination power.  This check is not 100% effective
*	since the bus floating can float signals high or low depending on how
*	the hardware feels!!  This routine is intended as a gross check for no
*	target or target powered off.
*
*	ENTRY	e,m,x = 0
*		None
*
*	Exit:	e,m,x=0
*		registers used are saved and restored
*
*********************************************************************************


					longa	on
					longi	on

					phx							;save registers
					pha
					jsr		bus_status			;read the status of the scsi bus signals
					and		#bbsystat\			;mask off unwanted bits except for BSY
							+bselstat\			;SEL
							+biostat\			;I/O
							+bcdstat\			;C/D
							+bmsgstat			;MSG
					clc							;assume not floating
;
;	since we did a bus reset ealier the result must 
;	be zero or else we assume it is a floating bus.
;
					beq	fexit
;
float				sec							;assume floating
fexit				pla							;restore registers
					plx
					rts							;>>>--- chkbusfloat --->>>
		
					ENDP
		
		
					EJECT
					EXPORT	wait_for_phase
wait_for_phase		PROC
********************************************************************************
*	This routine will wait for a phase specified by the contents of the
*	accumulator. If the phase changes to a phase other than the requested
*	phase, the V bit will be set and carry will be cleared.  On exit, if the
*	phase matches the requested phase then the Target command register bits 0-2
*	will be set to match the requested phase.
*
*	ENTRY:	e,m,x=0
*		A = phase bit pattern
*		+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
*		|F|E|D|C|B|A|9|8|7|6|5|4|3|2|1|0|
*		+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
* 		 | | | | | | | | | | | | | | | |
* 		 | | | | | | | | | | | | | +-+-+------ (MSG,C/D,I/O) Phase bit pattern:
* 		 +-+-+-+-+-+-+-+-+-+-+-+-+------------ Reserved
*
*	Exit:	e,m,x = 0
*		C = 0,V = 0 if changed to phase requested
*		C = 0,V = 1 if phase changed to phase other than requested
*		C = 1,V = X if phase lines never changed during the sampling period
*		A = phase bit pattern
*
*	Phase bit combinations:
*	000 = Data Out
*	001 = Data In
*	010 = Command
*	011 = Status
*	100 = Invalid phase (reserved for future scsi standard expansion)
*	101 = Invalid phase (reserved for future scsi standard expansion)
*	110 = Message Out
*	111 = Message IN
*
********************************************************************************
;
;
					longa	on
					longi	on
;
					and		#$0007				;mask off upper 13 bits
					pha							;save phase bits
;
;	save the current phase setting
;
					ldx		<io_offset
					lda		>curbusstat,x		;get target command register
					lsr		A
					lsr		A
					and		#$0007
					sta		|phase_hold
;
;	clear possible ACK asserted bit
;
					lda		#asrtack
					jsr		res_icmd
;
;	196608 times retry count for valid phase check
;
					stz		<scratchzpg			;retry count := count * $10000
					lda		#wait_phase_rcnt
					sta		<scratchzpg+2
;
;	check the bus status for the phase we want
;
@100				sec							;assume timeout
					dec		<scratchzpg			;decrement retry count
					bne		@150
					dec		<scratchzpg+2
					beq		error
@150				ldx		<io_offset			;point to specific i/o space
					lda		>curbusstat,x		;get target command register
					and		#$00FF
					tax							;save the phase bits
					and		#bsy++sel			;look for BSY* asserted and SEL* not asserted
					beq		@100
					cmp		#bsy				;bsy and/or sel set check which
					bne		@100				;if sel* asserted  then check again
					txa							;get the status back
					lsr		A					;REQ*,I/O*,C/D* to low 3 bits
					lsr		A
					and		#$0007				;mask off upper 13 bits
					cmp		|phase_hold			;check if phase has changed
					beq		@100				;wait until match
					sep		#$40				;phase changed, assume not the phase we want
					cmp		1,s					;check if sought phase
					bne		@100				;phase other than requested (go along with it)
					rep		#$40				;V=1 & C=0 if phase other than sought
					longa	off
					sep		#$20				;m=1
					ldx		<io_offset			;point back to the dev-sel space for this card
					lda		1,s					;set the target command register to match phases
					sta		>targcmdreg,x
					longa	on
					rep		#$20				;m=0
@200				clc							;got the phase we want
error				pla
					rts							;>>>--- wait_phase --->>>

*********************************************************************************
*get_phase:
*	This routine will read the phase bits and return them in the accumulator
*	It will also return the overflow bit set if we are in a bus free phase.
*
*	ENTRY:	e,m,x = 0
*
*	Exit:	e,m,x = 0
*		A = b2 = MSG
*		    b1 = C/D
*		    b0 = I/O
*
*		V = 1 if bus free
*		C = 1 if invalid phase
*
*********************************************************************************
;
					EXPORT	get_phase
get_phase			ldx		<io_offset			;point to specific i/o space
					sep		#$40				;V=1 assume bus free
					lda		>curbusstat,x		;get target command register
					and		#$00FF				;low byte only
					lsr		A					;REQ*,I/O*,C/D* to low 3 bits
					lsr		A
					bcs		exit				;if C=1 then SEL* asserted and should not be
					cmp		#bsy				;check for BSY* asserted
					bcc		@100
					clc
					rep		#$40				;V=0 not bus free
@100				and		#%00000111			;mask off upper 5 bits
exit				rts							;>>>--- get_phase --->>>
					ENDP

	

					EJECT
					EXPORT	bind_scsi_irq
bind_scsi_irq		PROC
********************************************************************************
*	This module will install the scsi manage interrupt handler by issuing
*	a BIND_IRQ system call to GS/OS to install the interrupt in its vectoring
*	list.  The call will be issued as a stack based GS/OS call.
*
*	ENTRY:	e,m,x=0
*		bind_irq_bblk
*		
*
********************************************************************************
;
					EXPORT	irq_id

					longa	on
					longi	on
;
					pea		bind_irq_pblk>>16	;high word of bind parameter block
					pea		bind_irq_pblk		;low word
					pea		bind_irq			;bind irq call number
					jsl		stack_ENTRY			;GS/OS stack based call ENTRY point
					bcc		bind_irq_exit		;every body happy
					lda		#irq_install_err	;bad news!!
					sta		|error_stat
bind_irq_exit		rts							;>>>--- bind_scsi_irq --->>>
		


bind_irq_pblk		dc.w	bind_pcount			;3 parameters
irq_id				dc.w	$0000				;our irq identifier returned here
					dc.w	scsi_vrn			;SCSI Manager VRN
					dc.l	scsi_irq_hand		;SCSI Manager interrupt handler

					ENDP


					EXPORT	unbind_scsi_irq
unbind_scsi_irq		PROC
********************************************************************************
*	This routine will unbind the SCSI Manager interrupt handle from GS/OS.
*
*	ENTRY:	e,m,x=0
*		irq_id
*
*	EXPORT: e,m,x=0
*
********************************************************************************
;
;
					longa	on
					longi	on
;
					lda		irq_id				;setup our irq id
					sta		|unbind_irq_id
					pea		unbind_pblk>>16		;high word of parameter block
					pea		unbind_pblk			;low word
					pea		unbind_irq			;class 1 unbind irq
					jsl		stack_ENTRY			;stack base GS/OS call
					bcc		unbind_irq_exit
					eor		#gsos_busy			;if gsos busy error ignore it (JJ said so)
					bne		@100
					clc
					bcc		unbind_irq_exit
@100				lda		#irq_remove_err		;irq remove error
@110				sta		|error_stat
unbind_irq_exit		rts							;>>>--- unbind_irq --->>>
;
unbind_pblk			dc.w	unbind_pcount		;1 parameter
unbind_irq_id		dc.w	$0000				;irq id to unbind

					ENDP

					EJECT
					EXPORT	bus_reset
bus_reset			PROC
*****************************************************************
*bus_reset:     This routine will assert the scsi RST* line for
*       	125 usec (Mac recomended value) and clear the bus
*       	reset.
*
*       ENTRY:	e=0, m=X
*             	io_offset = dev-sel space index for I/O for card
*
*       Exit:	e=0, m=0, x=0
*		X=(io_offset)
*		
*       NOTE: 	The 125 usec delay will be approx. 2.8 times
*             	longer if running in slow mode.  The routine
*             	does not check system speed.  Also, it is the
*		responsibility of the caller to delay 275
*		milliseconds to give time to the scsi devices
*		to initialize themselves.
*
*****************************************************************
;
;
;
					php							;save m,x
					longa	off
					longi	on
					sep		#$20				;m=1
					rep		#$10				;x=0
					phx							;save registers
;
					ldx		<io_offset
					lda		#<%10000000			;scsi bus reset
					sta		>initcmdreg,x
					lda		#<usec125			;delay 125 usecs
usec_delay_loop		dec		A
					bne		usec_delay_loop
					lda		#<%00011111			;clear scsi bus reset bit and
					and		>initcmdreg,x		;test mode bit and differential bit
					sta		>initcmdreg,x
					plx
					plp							;restore m,x
					rts							;>>>--- bus_reset --->>>
;
					ENDP

					EJECT
					EXPORT	find_scsi
find_scsi			PROC
********************************************************************************
*	This routine will check 16 slots for the presence of SCSI cards/ports
*	It calls 'DYN_SLOT_ARBITER' with the accumulator containing the slot
*	number sought.  If the slot is found then it PROCeeds to check for SCSI
*	signatures and card/port type (old scsi card vs new).  The routine
*	builds a I/O table which contains information about each of the scsi cards
*	or ports found.
*
********************************************************************************
;
;
;	
;
;
					longa	on
					longi	on
;
;
					stz		<numscsi_cards		;reset total cards found count
					ldy		#slot7ext			;start with slot 7 external
					sty		<slot_no			;save the slot number
					jsr		set_iorec_ptr		;form pointer for this slot's I/O record
					bra		find_loop_alt
find_scsi_loop		lda		<iorec_ptr			;point to next lower record
					sec
					sbc		#iorec_size	
					sta		<iorec_ptr
find_loop_alt		lda		<slot_no			;get the slot number
					jsl		slot_arbit			;check with the slot arbitrator
					bcs		not_scsi_card		;mark no scsi card available
					jsr		smartp_scsi_chk		;check if smartport scsi implementation
					bcs		not_scsi_card
					jsr		chk_scsi_type		;check type of scsi card
					bcc		next_slot
not_scsi_card		lda		#$0000				;marks not valid card
set_slot			ldy		#slot				;point to slot field
					sta		[iorec_ptr],y		;set slot number slot number

next_slot			dec		<slot_no			;next lower slot
					bpl		find_scsi_loop	
					lda		#no_scsi_hardware	;assume  no cards will be found
					sta		|error_stat			;assume no scsi cards found
					lda		<numscsi_cards		;will contain total scsi card found count
					beq		find_scsi_exit		;assume no cards found
					ldy		#bres_ready_del		;give scsi devs 275 millisecs to come ready
					jsr		millisec_delay		;after scsi bus reset cycle
					stz		|error_stat			;report success (cards found)
find_scsi_exit		lda		|error_stat			;check for no scsi hardware error
					cmp		#$0001				;set carry if no cards
					rts							;>>>--- find_scsi --->>>

					ENDP
		
					EJECT
					EXPORT	chk_scsi_type
chk_scsi_type		PROC
********************************************************************************
*	This routine will check the scsi card type looking for valid APPLE
*	scsi cards and ports.
*
*	ENTRY:	e,m,x=0
*		iorec_ptr
*
*	Exit:	e,m,x=0
*		A,X,Y = undefined
*
********************************************************************************
;
;
					longa	on
					longi	on
;
					lda		#num_dev_types		;check for valid scsi card/port type
					bra		@150				;types go from $0000
@100				sta		ahold				;save type
					asl		A					;times 4 for 32 bit table ENTRY
					asl		A
					tay
					lda		|addr_tables,y		;point to proper address table for dev type
					sta		<addr_table_ptr
					iny
					iny
					lda		|addr_tables,y
					sta		<addr_table_ptr+2
					lda		#hwdchk				;check card type routine
					jsr		callrtn				;call_routine through address table
					bcc		@200				;carry clear = found it & I/O record was setup
					lda		ahold				;restore type
@150				dec		A					;decrement type
					bpl		@100
@200				rts							;>>>--- check_scsi_type --->>>
		
					ENDP


					EJECT
					EXPORT	set_iorec_ptr
set_iorec_ptr		PROC
********************************************************************************
*	This module sets up the iorec_ptr to a given value based on the contents
*	of SLOT_NO.
*
*	ENTRY:	e,m,x=0
*		Y = slot number
*
*	Exit:	e,m,x=0
*		io_rec_ptr = address of I/O record corresponding to slot_no
*
********************************************************************************
;
;
					longa	on
					longi	on
;
					lda		#slot0
					clc							;bump by increments of iorecsize
@100				adc		#iorec_size
					dey
					bne		@100
@200				clc							;include address of I/O table
					adc		<io_table_ptr
					sta		<iorec_ptr
					lda		<io_table_ptr+2		;set I/O record pointer
					sta		<iorec_ptr+2
					rts							;>>>--- iotbl_index --->>>

					ENDP

					EJECT
					EXPORT	init_sdr_tbl
init_sdr_tbl		PROC
********************************************************************************
*	This routine sets up the SDR for a specific scsi logical unit found on
*	the SCSI bus.  If the number of default SDRs built exceeds the number
*	the number of default SDRs space a SetHandleSize call will be made to
*	grow our work  area.  If we must grow our work area, it increases by
*	enough bytes to allocate 8 SDRs (4 pages of memory).
*
*		ENTRY:	e,m,x=0
*			slot_no		:= peripheral card/port slot no.
*			inqb_ptr	:= pointer to inquiry buffer containing data
*			scsi_mem_ptr	:= pointer to our work area
*
*		Exit:	e,m,x=0
*			SDRs will be built for each logical device found
*
********************************************************************************
;
;
;
					longa	on
					longi	on
;
;	find	SCSI devices & types by Issuing an Inquiry call
;
					lda		#no_scsi_devs
					sta		|devices_found		;assume we do not find any targets
					ldy		#slot0				;check slot 0 through slot F
@100				lda		[io_table_ptr],y	;check the slot number for $0000
					beq		@200
					phy
					tay							;save slot number
					jsr		set_iorec_ptr		;point to i/o record for this slot
					jsr		setup_work_vars		;setup working variable from i/o record
					ply							;point at start of I/O record
					phy
					jsr		scan_scsi_devs		;go look for scsi devices
					ply
@200				tya							;point to next I/O record
					clc
					adc		#iorec_size
					cmp		#iotsize			;see if all records checked
					tay							;next record index
					bcc		@100
					lda		|devices_found		;assume no devices found
					bne		exit
					jsr		id_assignment		;walk through the SDR table assigning IDs
					bcs		errexit
exit				clc
errexit				rts							;>>>--- setup_buffers --->>>
;
					ENDP

		
					EJECT
					EXPORT	setup_work_vars
setup_work_vars		PROC
********************************************************************************
*	This routine will copy several parameters from a given I/O record into
*	several working variables.
*
*	ENTRY:	e,m,x = 0
*		Y=index to start of specific I/O record
*
*	Exit:	e,m,x = 0
*		The following variables loaded from the I/O record
*			io_offset:	long word
*			dma_offset:	long word
*			io_attrbs:	word
*			init_priority	word
*
********************************************************************************
;
;
					longa	on
					longi	on
;
					ldy		#slot
					lda		[iorec_ptr],y		;check for slot/port present
					sta		<slot_no			;save the slot number
					jsl		slot_arbit			;enable this slot if we can
					ldy		#slot+2
					lda		[iorec_ptr],y		;get hardware type
					sta		|hwd_version
					ldy		#slot+4
					lda		[iorec_ptr],y		;point to base address of scsi controller
					sta		<io_offset
					ldy		#slot+6
					lda		[iorec_ptr],y		;high word of scsi controller io address
					sta		<io_offset+2
					ldy		#slot+8
					lda		[iorec_ptr],y
					sta		<dma_offset
					ldy		#slot+10
					lda		[iorec_ptr],y
					sta		<dma_offset+2
					ldy		#slot+12			;point to hardware attributes
					lda		[iorec_ptr],y
					sta		|ioattrbs
					ldy		#slot+14
					lda		[iorec_ptr],y
					sta		|init_priority
;
;	point to card's address table
;
					phx
					lda		|hwd_version			;get hardware type
					asl		A
					tax
					lda		|addr_tables,x		;pointer to this interface routines addr table
					sta		<addr_table_ptr
					inx
					inx
					lda		|addr_tables,x
					sta		<addr_table_ptr+2
					plx
					rts							;>>>--- setup_work_vars --->>>
;
					ENDP
	
					EJECT
					EXPORT	check_logicals
check_logicals		PROC
********************************************************************************
*	This module will check logical units which may exist under SCSI devices.
*	Checking is done by issuing a scsi Inquiry call to scsi device IDs. The
*	call will request 256 bytes of data and save it away.  When the Inquiry
*	call is made to the next logical unit the data returned by that call will
*	be compared against the data saved away.  If they match then the current
*	Logical unit will not have a SDR built for it.  Also, there will be no
*	further scanning of logical units under this scsi device ID.
*
*	ENTRY:	e,m,x=0
*
*	Exit:	e,m,x=0
*
********************************************************************************
;
;
					stz		<dev_id				;fake the find_sdr routine
					lda		<slot_no
					sta		|last_acc_slot2
					stz		|last_acc_id2
					stz		|lutemp				;logical units for device temp flags (assume all ok)
					stz		|ckluflag			;$FFFF marks when we have 2 inq buffers to compare
					stz		<logunit			;logical unit #0-7
;
;	setup some variables so we can issue find_sdr subroutine call
;
					lda		<slot_no			;set the slot number
					sta		|tu_slot
					sta		|inq_slot			;in the parameter list
					sta		|sense_slot
					lda		#lu0				;check Logical units 0-7 (in scsi packet form)
					sep		#$20				;m=1
 					sta		|tulunit			;logical unit for test unit ready parameter list
 					sta		|inq_lunit			;logical unit number in inquiry cmd packet
  					sta		|sense_lunit		;logical unit number in req_sense cmd packet
;
					longa	on
					rep		#$20				;m=0
checklu				ldx		#tuplist			;point to test unit ready parameter list
					ldy		|ourcode_bank
					jsr		set_plist
					jsr		calltarget			;issue call to the target (ignore status from target)
					ldx		#inq_plist			;point to inquiry paramter list
					ldy		|ourcode_bank		;get our bank address
					jsr		set_plist			;set parameter list
					jsr		calltarget			;issue call to the target

					if		debug 			then
;
;	DEBUG CODE enabled ALL LU's succeed
;
					bra		@200				;if debugging then assume all LUs present

					else

					bcs		errexit				;go away if error

					endif
;
;	check if inquiry call succeeded
;
					lda		|scsi_status		;scsi status & message byte must be zero if ok
					ora		|scsi_message
					beq		@125				;good call go mark it in the list
;
;	inq call failed figure out why
;
					longa	on
					rep		#$20				;m=0
					jsr		get_plist			;save old parameter list pointer
					phy
					phx
					ldx		#sense_plist		;point to request sense parameter list
					ldy		|ourcode_bank		;get our bank address
					jsr		set_plist			;set parameter list
					jsr		calltarget			;issue call to the target
					plx							;point back to inquiry parameter list
					ply
					jsr		set_plist
					lda		|scsi_status		;see if request sense failed
					bne		@150
					lda		|sense_buff			;get the error class
					and		#$007F				;mask off the valid bit
					cmp		#$0070				;check for class 7 code $00
					bne		@150				;class was not 7 or code <> zero
					lda		|sense_buff+2		;get the sense key and check if device really exists
					and		#$000F				;keep the sense key only
					beq		@125				;we are ok mark device as existing
					cmp		#$0001				;check for recovered error
					beq		@125
					cmp		#$0006				;check for unit attention
					bne		@150

@125				lda		|inq_buff			;check first byte for lu not supported ($7F)
					and		#$00FF
					cmp		#lunotavail
					bne		@200
@150				ldy		|inq_lunit			;get the LU #
					jsr		setnoscan			;LU not available (don't scan for it again)
					jsr		nextlu
					bne		@150				;once an lu fails mark remaining LUs not available
					beq		exit				;for this SCSI ID
;
;	Mark LU online & build SDR
;
@200				ldy		|inq_lunit			;mark this LU online
					jsr		setonline
					jsr		build_sdr			;build an SDR for this LU (may get tossed later)
					stz		|devices_found		;we have a scsi target online
					jsr		nextlu				;bump to next logical unit number
					beq		exit
					brl		checklu
exit				lda		|lutemp				;get the logical unit bit mapping
					clc
errexit				rts							;>>>--- exit check.logicals --->>>
;
					ENDP
					EJECT
					EXPORT	calltarget
calltarget			PROC
********************************************************************************
*	This routine issues a call to a target device and returns with the
*	SCSI status and scsi message bytes set to what the target returned.
*
*	ENTRY:	e,m,x = 0
*		X = low word of parameter list address
*		Y = High word of parameter list address
*
*	Exit:	e,m,x = 0
*		|scsi_status := status byte returned by the target
*		|scsi_message:= message byte returned by the target
*
********************************************************************************
;
					longa	on
					longi	on
;
					jsr		get_plist			;get the parameter list for this call
					jsr		setzpgvars			;setup zero page work variables
					bcs		errexit
					jsr		find_sdr			;find a scsi device record to match
					bcs		errexit
;
;	initialize more DCI instructions flag
;
					lda		#$FFFF
					sta		|more_dci
;
;	go access the target
;
					lda		#arbph				;go arbitrate for control of scsi bus
					jsr		callrtn
					bcs		errexit				;go away if an error occurs
					lda		#selectph			;select the target device
					jsr		callrtn
					bcs		errexit				;go away if an error occurs
					lda		#setup
					jsr		callrtn
					lda		#phase_hand			;phase handler for old scsi card
					jsr		callrtn
					stz		|busy_sdr_count		;compensate for decrement in the msg complete
errexit				rts
;
					ENDP
					EJECT
					EXPORT	nextlu
nextlu				PROC
**********************************************************************
*
*	This routine will bump the logical unit ID work fields and
*	decide if it has rolled past LU 7.
*
*	ENTRY:	e,m,x = 0
*
*	Exit:	e,m,x = 0
*		Z = 1 if rolled past LU 7
*		A = trashed
*		inq_lunit 	MODIFIED
*		tulunit		MODIFIED
*		sense_lunit	MODIFIED
*
**********************************************************************
;
					longa	off
					sep		#$20				;m=1
;
;	see if lu 7 checked
;
					inc		<logunit			;logical unit number 0-7
					lda		|inq_lunit
					clc
					adc		#lu1
					sta		|tulunit			;update the test unit ready cmd packet
					sta		|inq_lunit			;update inquiry cmd packet
					sta		|sense_lunit		;update req_sense cmd packet
					longa	on
					rep		#$20				;m=0
					rts							;>>>--- nextlu --->>>
;
					ENDP
					EJECT
set_io_addrs		PROC
********************************************************************************
*	This module will issue an Unit zero status code one call to the currently
*	selected slot.  The call should return an error or respond with the
*	the vendor id and the base address parameters for hardware devices found
*	on that card.
*
*	ENTRY:	e,m,x=0
*
*	Exit:	e,m,x=0
*
********************************************************************************
;
;
					sec							;report error
					rts							;>>>--- set_io_addrs --->>>
;
					ENDP

					EJECT
					EXPORT	build_sdr
build_sdr			PROC
********************************************************************************
*	This routine builds the SCSI device records for each logical unit found
*	in the system...
*
*	ENTRY:	e,m,x=0
*
*
*	Exit:	e,m,x=0
*
********************************************************************************
;
;
;	allocate next SDR record
;
					jsr		alloc_nxt_sdr		;get the address for the next SDR
					bcs		exit
					sty		<sdr_ptr+2
					sta		<sdr_ptr
;
;	device type from inquiry buffer
;
					lda		|inq_buff\
							+inq_devtype		;get the device type & standard version
					and		#$00FF				;low byte only
					ldy		#sdr_devtype
					sta		[sdr_ptr],y
;
;	scsi standard version
;
					lda		|inq_buff\
							+inq_version
					and		#$00FF				;low byte only
					ldy		#sdr_standard_vers
					sta		[sdr_ptr],y
;
;	mark removeable bit in attributes
;
					ldy		#sdr_flags			;point to LU attributes word
					lda		inq_buff+inq_rmb	;check for removeable media
					and		#scsi_rmb			;bit 7 only
					beq		@50
					lda		#sdr_attrb_rmb		;mark removeable bit in SDR
					ora		[sdr_ptr],y
					sta		[sdr_ptr],y
;
;	save Slot, Device priority, Initiator priority & logical unit in SDR
;
@50					phx				
					ldy		#sdr_logunit
					lda		<logunit			;our logical unit number
					sta		[sdr_ptr],y
					ldy		#sdr_targ_priot		;target priority
					lda		|target_priority
					sta		[sdr_ptr],y
					ldy		#sdr_init_priot		;initiator priority
					lda		|init_priority
					sta		[sdr_ptr],y
					ldy		#sdr_slot			;slot number
					lda		<slot_no
					sta		[sdr_ptr],y
;	
;	copy parameters from the scsi io record into the SDR
;
					ldy		#scsi_base			;point to the hardware addr in io record
					lda		[iorec_ptr],y
					pha
					ldy		#scsi_base+2
					lda		[iorec_ptr],y
					pha
					ldy		#dma_base			;dma controller base address	
					lda		[iorec_ptr],y
					pha
					ldy		#dma_base+2	
					lda		[iorec_ptr],y
					pha
					ldy		#sdr_dma_base+2		;write them into the SDR
					pla
					sta		[sdr_ptr],y
					ldy		#sdr_dma_base
					pla
					sta		[sdr_ptr],y
					ldy		#sdr_5380_base+2
					pla
					sta		[sdr_ptr],y
					ldy		#sdr_5380_base
					pla
					sta		[sdr_ptr],y
					inc		<sdrsonline			;bump the number of SDRs in the table
					plx
exit				rts							;>>>--- build_sdr --->>>

					ENDP

					EJECT
					EXPORT	scan_scsi_devs
scan_scsi_devs		PROC
********************************************************************************
*	This module scans a particular scsi slot or scsi built-in port for
*	SCSI devices online.  The scsi devices are checked from scsi dev 0
*	through scsi dev 6.  SCSI dev 7 is never checked; it is assumed to
*	be the initiator.
*
*	ENTRY:	e,m,x=0
*		Carry=0 for external slot
*		Carry=1 for internal scsi port
*		io_offset = dev-sel address offset for this card/port
*		Y= I/O table index
*		init_priority = $0007 (priority 7 always initiator)
*
*	Exit:	e,m,x=0
*		A=trashed
*		X= I/O table index
*		Y points at the DMA offset bank word in the current slot record
*
********************************************************************************
;
;
;
;
					longa	on
					longi	on
;
					jsr		chkbusfloat			;check for floating scsi bus
					bcs		scexit				;if floating, we are done here
					lda		#scsi_prior7		;start with priority 7
					sta		|target_priority
					ldy		#d7logicals			;start at scsi device 7
					bra		chkdup
scloop				jsr		check_logicals		;check logical units (A=$FFFF no logicals)
					bcc		setd				;C=0 if scsi device found
	
duplic				lda		#no_device			;assume no scsi device found	
setd				ldy		|yhold				;restore device number
					sta		[iorec_ptr],y
					dey							;point to next scsi device table ENTRY
					dey
					stz		|error_stat			;clear possible select error from no target
skipp				lsr		|target_priority	;set for next priority
					bcs		scexit	
chkdup				sty		|yhold				;save the table index
					lda		|init_priority		;if target = initiator priority skip it		;next priority
					cmp		|target_priority
					beq		duplic				;skip this one
					bra		scloop
scexit				rts							;>>>--- exit scan_scsi_devices --->>>
;
;
					ENDP
		
					EJECT
					EXPORT	rest_sromsel
rest_sromsel		PROC
*************************************************************************************
*	This routine will write the contents of slotrom_hold back into SLOTROMSEL
*	register.
*
*	ENTRY:	e,m,x=0
*		(slotrom_hold) := value to restore slotromsel register to
*
*	Exit:	e,m,x=0
*		SLOTROMSEL register := slotrom_hold
*
*************************************************************************************
;
;
					php							;save m,x
					longa	off
					longi	on
					sep		#$20				;m=1
;
					pha							;save accumulator
					lda		#%00001000			;check if slot internal or external
					trb		|slotrom_hold		;& reset bit 4 to zero
					beq		@10					;$C3XX internal
					lda		>setslotc3rom
					bra		@20
@10					lda		>setintc3rom
@20					lda		|slotrom_hold		;write slotrom register
					sta		>slotromsel
					pla							;restore accumulator
					plp							;restore m,x
					rts							;>>>--- exit restore_slotromsel --->>>

					ENDP

					EJECT
					EXPORT	save_work_vars
save_work_vars		PROC
********************************************************************************
*	This routine will save our working variables into a holding buffer.
*
*	ENTRY:	e,m,x=0
*		work vars
*		work_vars_buffer
*
*	Exit:	e,m,x=0
*		registers saved and restored
*
********************************************************************************
;
;
					php							;save m,x
					longa	on
					longi	on
					rep		#$30

					phx							;save registers
					pha
					ldx		#$0000
save_loop			lda		|scsi_variables,x	;save a piece of GS/OS zero page
					sta		|work_vars_buffer,x
					inx
					inx
					cpx		#work_vars_size
					bcc		save_loop
					pla							;restore registers
					plx
					plp							;restore m,x
					rts							;>>>--- save work_vars --->>>

					ENDP

					EJECT		
					EXPORT	rest_work_vars
rest_work_vars		PROC
********************************************************************************
*	This routine will restore our work variables into their respective
*	locations from a holding buffer used to copy them into during an IRQ
*
*	ENTRY:	e,m,x=0
*		Work vars
*		work_vars_buffer
*
*	Exit:	e,m,x=0
*		registers saved and restored
*
********************************************************************************
;
;
					php							;save m,x
					longa	on
					longi	on
					rep		#$30

					phx							;save registers
					pha
					ldx		#$0000
restore_loop		lda		|work_vars_buffer,x
					sta		|scsi_variables,x	;restore a piece of zero page
					inx
					inx
					cpx		#work_vars_size
					bcc		restore_loop
					pla							;restore registers
					plx
					plp							;restore m,x
					rts							;>>>--- restore work vars --->>>
		
					ENDP

					EJECT
					EXPORT	chk_sel_tout
chk_sel_tout		PROC
*****************************************************************
*chk_sel_tout:  This routine will check for select timeout.
*       	From the time the initiator removes BSY* the
*       	target must assert BSY* within a select ABORT
*       	time.  If this does not occur then carry will be
*       	set to mark an error.
*
*       ENTRY: e=0
*              X=register offset ($00XX) XX=slot * $10 + $80
*
*       Exit: e=0
*             carry = 0 for select success
*             carry = 1 for select failure
*
*****************************************************************
;
					php							;save status

					longa	off
					longi	on
					sep		#$20				;m=1
					rep		#$10				;x=0

					phy							;save register
					ldy		#sel_timeout		;count for delay of 250 millisec min
selchk_loop 
					lda		<curbusstat			;check for BSY* from target
					and		#<bsy
					bne		sel_success			;go away if target responded
					dey							;decrement count
					bne		selchk_loop			;keep checking until count=0 or
					ply							;restore register
					plp							;restore m,x
					sec							;count=00 report error
					bra		selchk_exit
sel_success
					ply							;restore register
					plp							;restore status register
					clc
selchk_exit
					rts							;>>>--- chk_sel_tout --->>>

					ENDP

					EJECT
					EXPORT	sel_abort_wait
sel_abort_wait		PROC
*****************************************************************
*sel_abort_wait:This module will wait release the SCSI data bus
*       	and wait one select abort timeout (200 usec)
*       	while checking for BSY* from the desired target
*       	device.  If BSY* is not received from the target
*       	then SEL* will be released and the bus will be
*      	 	allowed to go back to the bus free phase.  Also
*       	if the target does not respond carry will be set
*       	and the accumulator will contain an error code.
*
*       ENTRY: e=0
*              X=register offset
*
*       Exit: e=0
*             A = 0, C=0 for successful response from target
*             A = $XXXX C=1 for SELECT failure
*             X = register offset
*
*****************************************************************
;
					php							;save status
					longa	off
					longi	off
					sep		#$30				;m=1,x=1

					phy							;save register
					ldy		#<sel_abort_tout 	;select abort timeout
sel_abort_loop
					lda		<curbusstat			;SCSI bus status register
					and		#<bsy				;check for BSY* from target
					bne		select_pass			;if BSY* asserted then OK
					dey							;decrement timer
					bne		sel_abort_loop		;until zero
					ply							;restore register
					plp							;restore status
					sec							;mark an error
					bra		sel_abort_exit		;go away

select_pass										;target finally responded
					ply							;restore register
					plp							;restore m,x
					clc							;mark success
sel_abort_exit
					rts

					ENDP

					EJECT
					EXPORT	smartp_scsi_chk
smartp_scsi_chk		PROC
*************************************************************************************
*	This routine checks for smartport SCSI devices signatures.
*
*				$CN01 = $20
*				$CN03 = $00
*				$CN05 = $03
*				$CN07 = $00
*	and if match then checks
*				$CNFB bit 1 = 1 signifying a SCSI Smartport device
*
*	If the above criteria is met then a check against part of the rom image will
*	be made and if a match is found the it is assumed that the card is a old
*	Apple  II scsi card.
*
*	ENTRY:	e,m,x=0
*		slot_no = slot number to check
*
*	Exit:	e,m,x=0
*		C=0,V=0 old apple scsi card
*		C=1,V=X not scsi card
*		C=0,V=1 scsi card but not old  apple scsi card
*
*************************************************************************************
;
;
					longa	on
					longi	on
;
					phx							;save registers
					phy
					lda		<slot_no			;get slot number
					and		#slot7				;mask off internal/external bit
					xba							;times $100
					tax							;index for soft switches
;
					lda		>io_space+1,x		;check $00CN01 = $20
					and 	#$00FF				;mask off upper byte
					cmp   	#$0020
					bne		@100				;go away if no match
					lda		>io_space+3,x		;check $00CN03 = $00
					and 	#$00FF				;mask off upper byte
					bne		@100				;go away if no match
					lda		>io_space+5,x		;check $00CN05 = $03
					and 	#$00FF				;mask off upper byte
					cmp		#$0003
					bne		@100				;go away if no match
					lda		>io_space+7,x		;check $00CN07 = $00
					and 	#$00FF				;mask off upper byte
					bne		@100				;go away if no match
					lda		>io_space+$FB,x		;check $00CNFB bit 1
					and		#%0000000000000010	;bit 1 must be one for scsi
					beq		@100

@200				clc							;C=0 (scsi card)
					bcc		@300

@100				sec							;C=1 (not scsi card)
					bcs		@300

@300				ply							;restore registers
					plx
					rts							;>>>-- check_slot --->>>

					ENDP


					EJECT
					EXPORT	millisec_delay
millisec_delay		PROC
*****************************************************************
*millisec_delay:This routine will delay a number of milliseconds
*       	specified by the contents of the A register.
*
*       ENTRY: 	e=0,m=0,x=0
*              	Y reg = delay count 1-65536 ($0000=65536 millisecs)
*
*       Exit: 	e=0,m=0,x=0
*             	A = trashed
*            	Y = $0000
*		X = $0000
*
*****************************************************************
;
;
					longa	on
					longi	on
;
;
					php							;save m,x
					sei							;no interruptions

					longa	off
					longi	on
					sep		#$20				;m=1
					rep		#$10				;x=0

					lda		>cyareg				;get cya register contents
					pha
					and		#<%01111111			;slow the system down
					sta		>cyareg
					pla							;keep old cya register setting
delay_millisec 
					ldx		#millisec_count		;1 millisecond delay count
millis_del_loop 
					dex							; 2 cycles
					bne		millis_del_loop		; 3 (2 if branch fails)
					dey
					bne		delay_millisec		;keep delaying until zero
					sta		>cyareg				;restore cya register
					plp							;restore m,x
					rts							;>>>--- millisec_delay --->>>

					ENDP

					EJECT
					EXPORT	match_phases
match_phases		PROC
*****************************************************************
*match_phases:  This routine will set the MSG*, C/D* and I/O*
*       lines on the initiator 5380 the same as the
*       MSG*, C/D* and I/O* lines on the target.  The
*       routine toggles lines, it does not look to make
*       sure that the we have made through the arbitrate
*       and select phases successfully.
*
*       ENTRY: e=0
*              X=register offset
*
*       Exit: Same as ENTRY
*
*****************************************************************
;
					php							;save m,x
					longa	off
					sep		#$20				;m=1

					lda		>curbusstat,x		;get the settings of MSG*,C/D*,I/O*
					lsr		A					;set MSG, C/D, I/O as low 3 bits
					lsr		A
					and		#<%00000111			;mask off remaining bits
					sta		>targcmdreg,x
					plp							;restore m,x
					rts							;>>>--- match phases --->>>

					ENDP

					EJECT
					EXPORT pdma_recv_data
pdma_recv_data		PROC
*****************************************************************
*pdma_recv_data  This routine will read 512 bytes of data from a
*                a target device.  The data will be stored in
*                the location pointed by [data_buffer_ptr].  The
*                byte count will be specified by RECV_SIZE. The
*                routine expects to use pseudo dma mode to do the
*                data transfers. It calls the enable dma routine
*                with carry set to enable the pseudo dma mode.
*
*                ENTRY: e=0
*                          (data_buffer_ptr:long word) = data buffer address
*                          (recv_size:word) = number of bytes to receive
*                       X = register offset for specific 5380
*
*                Exit:  same as ENTRY
*
*****************************************************************
;
;
					clc							;data phase complete
					rts							;>>>--- recv_data--->>>

					ENDP

					EJECT
					EXPORT	rdma_recv_data
rdma_recv_data		PROC
*****************************************************************
*rdma_recv_data This routine will read 512 bytes of data from a
*       	a target device. The data will be stored in
*      	 	the location pointed by [data_buffer_ptr].  The
*       	byte count will be specified by RECV_SIZE. The
*       	routine expects to use pseudo dma mode to do the
*       	data transfers. It calls the enable dma routine
*       	with carry set to enable the pseudo dma mode.
*
*       ENTRY: e=0
*                 (data_buffer_ptr:long word) = data buffer address
*                 (recv_size:word) = number of bytes to receive
*              X = register offset for specific 5380
*
*       Exit:  same as ENTRY
*
*****************************************************************
;
;
					clc							;data phase complete
					rts							;>>>--- recv_data--->>>

					ENDP

					EJECT
					EXPORT	rdma_send_data
rdma_send_data		PROC
*****************************************************************
*rdma_send_data This routine will write 512 bytes of data to a
*       	a target device. The data will be stored in
*       	the location pointed by [data_buffer_ptr].  The
*      	 	byte count will be specified by xmit_SIZE. The
*       	routine expects to use real dma mode to do the
*       	data transfers. It calls the enable dma routine
*       	with carry clear to enable the real dma mode.
*
*       ENTRY: e=0
*              carry = 0 (real dma)
*              (data_buffer_ptr:long word) = data buffer address
*              (recv_size:word) = number of bytes to receive
*              X = register offset for specific 5380
*
*       Exit:  same as ENTRY
*
*****************************************************************
;
;
					clc							;data phase complete
					rts							;>>>--- rdma_send_data --->>>

					ENDP

					EJECT
					EXPORT	bus_status
bus_status			PROC
*****************************************************************
* This module will read the status registers from the SCSI chip
* and return them to the caller in the accumulator.  This code
* can be called in native or emulation mode. Bits 0-7 will be
* returned in the A register and bits 8-15 will be returned in the
* B register.
*
*          Stat_reg:
*          +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
*          |F|E|D|C|B|A|9|8|7|6|5|4|3|2|1|0|
*          +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
*           | | | | | | | | | | | | | | | |
*           | | | | | | | | | | | | | | | +---- Data bus parity
*           | | | | | | | | | | | | | | +------ SEL*
*           | | | | | | | | | | | | | +-------- I/O*
*           | | | | | | | | | | | | +---------- C/D*
*           | | | | | | | | | | | +------------ MSG*
*           | | | | | | | | | | +-------------- REQ*
*           | | | | | | | | | +---------------- BSY*
*           | | | | | | | | +------------------ RST*
*           | | | | | | | +-------------------- ACK*
*           | | | | | | +---------------------- ATN*
*           | | | | | +------------------------ Busy error
*           | | | | +-------------------------- Phase Match
*           | | | +---------------------------- IRQ request
*           | | +------------------------------ Parity Error
*           | +-------------------------------- DMA Request
*           +---------------------------------- End of DMA
*
*       ENTRY:  e,m,x=0
*
*       Exit:   e,m,x=0
*		C reg = bus status word
*
*****************************************************************
;
					longa	on
					longi	on

					phx							;save register
					ldx		<io_offset			;io address
					lda		>curbusstat,x
					plx							;restore register
					rts							;>>>--- exit bus_status --->>>
;
					ENDP

					EJECT
					EXPORT	setzpgvars
setzpgvars			PROC
********************************************************************************
*	This routine will setup all the zero page pointers to access the
*	parameters list provided by the device driver.  Also, the routine
*	validates the parameter list and initializes internal work variables.
*	This routine will work for SCSI_IO call only!
*
*	ENTRY:	e,m,x=0
*		parameter list from caller
*
*	Exit:	e,m,x=0
*		C=1 if timeout value = $0000
*
********************************************************************************

	
					longa	on
					longi	on

;
;	copy parameters into work variables
;
					stx		<plist_ptr
					sty		<plist_ptr+2
					ldy		#plst_slot			;get the ID of the device (slot & unit number)
					ldx		#0000				;destination index
@100				lda		[plist_ptr],y		;get the ID of device sought
					sta		<zpgwptrs,x
					inx
					inx
					iny
					iny
					cpy		#wptrssize			;check if all pointers moved
					bcc		@100	
;
;	clear parameter list request count need field for transfer count
;
@150				ldy		#plst_reqxfr_cnt	;clear parameter list request count
					lda		#$0000				;a copy of the request count saved in zpg
					sta		[plist_ptr],y
					ldy		#plst_reqxfr_cnt+2
					sta		[plist_ptr],y
;
;	initialize the DC PC to start of data chain instructions
;
					lda		<dclst_ptr
					sta		<dc_pc
					lda		<dclst_ptr+2
					sta		<dc_pc+2
					clc							;mark no errors
@300				rts							;>>>--- setwrkptrs --->>>
	
					ENDP
	
					EJECT
					EXPORT	get_plist
get_plist			PROC
********************************************************************************
*	This routine gets the address of the parameter list address from the SIB.
*
*	ENTRY:	e,m,x=0
*
*	Exit:	e,m,x=0
*		X = Low word of parameter list address
*		Y = High word of parameter list address
*
*********************************************************************************
;
;	
					longa	on
					longi	on
	
					phd							;save direct register
					lda		|gsos_zpg_hold		;point to GS/OS zero page
					tcd
					ldx		<sib_plptr			;get address of parameter list
					ldy		<sib_plptr+2
					pld							;restore direct register
					rts							;>>>--- get_plist --->>>

					ENDP


					EXPORT	set_plist
set_plist			PROC
********************************************************************************
*	This routine sets the address of the parameter list address in the SIB.
*
*	ENTRY:	e,m,x=0
*		X = Low word of parameter list address
*		Y = High word of parameter list address
*
*	Exit:	e,m,x=0
*
*********************************************************************************
;
;	
					longa	on
					longi	on
	
					phd								;save direct register
					lda		|gsos_zpg_hold			;point to GS/OS zero page
					tcd
					stx		<sib_plptr				;set address of parameter list
					sty		<sib_plptr+2
					pld								;restore direct register
					rts								;>>>--- set_plist --->>>

					ENDP
	
					EJECT
					EXPORT	find_sdr
find_sdr			PROC
*******************************************************************************
*	This module will walk compare the slot & scsi device id against the 
*	IDs of each scsi device record looking for a match.  If the ID is found
*	sdr_ptr will be set with the address of this scsi device record.  If it
*	is not found carry will be set to signify an error.
*
*	ENTRY:	e,m,x=0
*		dev_id = id sought
*
*	Exit:	e,m,x=0
*		Y = low word of SDR record address
*		A = high lword of SDR record address
*		& carry = 0
*		Carry = 1 if no ID found
*
*******************************************************************************
;
;
					longa	on
					longi	on
	
					lda		|last_acc_slot2		;get last accessed slot number
					cmp		<dev_slot
					bne		@100				;check alternate accessed slot field if no match
					lda		|last_acc_id2
					cmp		<dev_id
					bne		@100				;check alternate accessed id field

					ldy		|last_sdr_ptr2
					lda		|last_sdr_ptr2+2
					bra		@setsdr				;set the pointer for the sdr record

@100				lda		|last_acc_slot1		;get the id sought
					cmp		<dev_slot			;compare against last accessed slot
					bne		@200				;check alternate accessed slot field if no match
					lda		|last_acc_id1	
					cmp		<dev_id
					bne		@200
					ldy		|last_sdr_ptr1
					lda		|last_sdr_ptr1+2
					bra		@setsdr				;set the pointer for the sdr record
;	
@200				lda		<sdr_table_ptr+2	;form work pointer
					sta		<sdr_ptr+2
					lda		<sdr_table_ptr
					sta		<sdr_ptr
					lda		<sdrsonline			;number of sdrs to check
					sta		<sdrstocheck
@300				ldy		#sdr_slot			;point to the slot number in this SDR
					lda		[sdr_ptr],y
					cmp		<dev_slot			;compare against sought slot
					bne		@325
					ldy		#sdr_device_id		;point to ID field within SDR
					lda		<dev_id				;get the device ID
					cmp		[sdr_ptr],y			;compare IDs
					beq		@400
@325				ldy		#nxt_sdr_lnk+2		;get address to next SDR
					lda		[sdr_ptr],y
					pha
					lda		[sdr_ptr]
					sta		<sdr_ptr
					pla
					sta		<sdr_ptr+2
					dec		<sdrstocheck
					bne		@300
@nosdr				stz		|last_acc_id1		;clear both last_acc_id fields
					stz		|last_acc_id2
					lda		#bad_scsi_id		;report an error
					sta		|error_stat
					sec							;mark bad id
					bra		endfsdr
;
;	return the address of the SDR
;
@400				ldx		|last_acc_flag		;get last access flag/index
					lda		<dev_slot			;slot number
					sta		|last_acc_slot1,x	;save the slot number
					lda		<dev_id
					sta		|last_acc_id1,x		;save the id of this field
					lda		<sdr_ptr			;get the address of the SDR
					sta		|last_sdr_ptr1,x
					tay
					lda		<sdr_ptr+2
					sta		|last_sdr_ptr1+2,x
;
;	toggle the accessed flag so we know which pointer to change next time
;	we do not find the slot & unit we seek.
;
					pha							;save high word of sdr address
					txa							;toggle the flag & form new index
					eor		#last_acc_id2\
							-last_acc_id1
					sta		|last_acc_flag		;save the flag/index for next time
					pla
@setsdr				clc							;mark success
endfsdr				rts							;>>>--- find_sdr --->>>>
	
					ENDP

					EJECT
					EXPORT	priot_to_dev
priot_to_dev		PROC
*******************************************************************************
*	This routine will convert a scsi priority number into a scsi device
*	number.  For example scsi priority $80 = $07.
*	NOTE: This routine will hang in an infinite loop if priority = $0000
*
*	ENTRY:	e,m,x=0
*		A = scsi priority to convert
*
*	Exit:	e,m,x=0
*		A=scsi device number
*		X=scsi device number
*
*******************************************************************************
;
;
					and		#$00FF				;priority $80-$01 only!
					clc
					ldx	#$0007					;start with scsi device $0007
					xba							;in high byte of accumulator
@100				asl		A					;shift scsi priority into carry
					bcs		@200
					dex
					bra		@100				;hang around if priority = $0000 (should never happen)
@200				txa							;dev number in accumulator
					rts							;>>>--- exit priot_to_dev

					ENDP
	
	
					EXPORT	dev_to_priot
dev_to_priot		PROC
*******************************************************************************
*	This routine will convert a scsi device number into a scsi bus priority.
*
*	ENTRY:	e,m,x = 0
*		A = device number to convert
*
*	Exit:	e,m,x = 0
*		A = priority number
*		X = device number converted
*
*******************************************************************************
;
;
					and		#$0007				;devices $0000-$0007 only!
					tax
					lda		dtop_tbl,x			;table translation
					rts							;>>>--- dev_to_priot --->>>
;
					EXPORT	dtop_tbl
dtop_tbl			dc.b	$01					;device 0 = priority $01
					dc.b	$02					;device 1 = priority $02
					dc.b	$04					;device 1 = priority $04
					dc.b	$08					;device 1 = priority $08
					dc.b	$10					;device 1 = priority $10
					dc.b	$20					;device 1 = priority $20
					dc.b	$40					;device 1 = priority $40
					dc.b	$80					;device 1 = priority $80

					ENDP
	
	
					EJECT
					EXPORT	get_tick_addr
get_tick_addr		PROC
********************************************************************************
*	This routine will call the Misc tools and request the address of the
*	system tick counter.
*
*	ENTRY:	e,m,x = 0
*
*	Exit:	tick_addr := address of system tick counter
*
********************************************************************************
;
tick_refnum	equ		$0005						;tick counter address reference number
;
					longa	on
					longi	on
;
					pha							;room for long result
					pha
					pea		tick_refnum			;tick reference number ($0005 := tick count address)
					_GetAddr					;misc. tools get address call
					pla							;save the address
					sta		<tick_addr
					pla
					sta		<tick_addr+2
					rts							;>>>--- get_tick_addr --->>>
;
					ENDP
;
					EJECT
					EXPORT	getticks
getticks			PROC
***********************************************************************************
*	This routine will check the timeout count for a value greater than $10000.
*	If the value is greater, it subtracts $FFFF from the value and returns
*	with the accumulator set to $FFFF.  If the value is less than $10000,
*	the accumulator will be set to the value of the low word of the timeout.
*
*	ENTRY:	e,m,x = 0
*		[SDR_PTR] := record containing the timeout value to check
*
*	Exit:	e,m,x = 0
*		A := $FFFF if value in 32 bit timeout field greater than $10000
*		A := value of low timeout word.
*
***********************************************************************************
;
					longa	on
					longi	on
;
;	check high word of timeout > $0000
;
					ldy		#sdr_timeout+2
					lda		[sdr_ptr],y
					php
;
;	get contents timeout low word then check if high word was zero
;
					ldy		#sdr_timeout
					lda		[sdr_ptr],y
					plp
					bne		@100				;high word was zero go away with low word contents
;
;	clear low word of timeout count
;
					pha
					lda		#$0000
					sta		[sdr_ptr],y
					pla
					bra		exit				;go away
;
;	subtract $FFFF from low word save result and adjust high word
;
@100				sec
					sbc		#$FFFF
					sta		[sdr_ptr],y
					iny
					iny							;point to high word of timeout
					lda		[sdr_ptr],y
					sbc		#$0000
					sta		[sdr_ptr],y
					lda		#$FFFF				;value to load into heartbeat header
exit				rts
;
					ENDP
	
					EJECT
					EXPORT	get_targp
get_targp			PROC
*********************************************************************************
*	This routine will extract the scsi ID from the DEVICE ID requested by
*	the caller.
*
*	ENTRY:	e,m,x = 0
*		dev_id := device ID assigned by scsi manager
*
*	Exit:	e,m,x = 0
*		A = target priority
*
**********************************************************************************
;
					longa	on
					longi	on
;
					phx
					lda		<dev_id				;get the ID
					asl		A					;put scsi id in low 3 bits of high byte
					asl		A
					xba							;low byte
					and		#$0007				;keep low 3 bits
					tax
					lda		|dtop_tbl,x			;convert to bit position encoding
					and		#$00FF				;low byte only
					plx
					rts							;>>>--- get_targp --->>>
;
					ENDP
;
					EJECT
***********************************************************************************
*
*	The next four routine will set the corresponding bit combinations in
*	the logical unit field positions of each scsi I/O record.  There are
*	 four possible bit patterns which may be set for each logical unit.
*
*	Logical Unit Bitmap:
*	 F E D C B A 9 8 7 6 5 4 3 2 1 0
*	+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
*	|   |   |   |   |   |   |   |   |   SCSI Device N Logical unit bitmap
*	+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
*	 LU7 LU6 LU5 LU4 LU3 LU2 LU1 LU0
*
*		Bit Pattern Definitions
*		00 = Unit needs scanning
*		01 = Logical unit online do not scan
*		10 = Currently selecting SCSI device for these 8 logicals
*		11 = Logical unit not available (do not scan for it)
*
*	ENTRY: e,m,x = 0
*		Y = LU # to update in word pattern
*
***********************************************************************************
;
scanpatt			equ		$0000				;bit pattern for scan for logical unit
onlinepatt			equ		$0001				;bit pattern for logical unit online
selecton			equ		$0002				;bit pattern for currently selecting scsi target
notscanned			equ		$0003				;bit pattern for DO NOT scan for this LU
;
setscan				PROC
					lda		#scanpatt			;00 = scan for logical unit
					bra		setlupatt			;go set bits corresponding to this LU
;
					EXPORT	setonline
setonline			lda		#onlinepatt			;01 = LU online
					bra		setlupatt
;
					EXPORT	selecting
selecting			lda		#selecton			;10 = currently selecting target
					bra		setlupatt
;
					EXPORT	setnoscan
setnoscan			lda		#notscanned			;11 = do not scan logical unit
;
setlupatt			phx
					pha							;save the 2 bit pattern to write out
					tya
					and		#$00FF				;low byte only
					lsr		A					;shift them to low 3 bits then times 2
					lsr		A
					lsr		A
					lsr		A
					tax							;index into mask table for LUs
					lda		luptbl,x
					ora		|lutemp
					eor		luptbl,x			;two bits corresponding to LU # should be clear
					sta		|lutemp
					pla							;get pattern to write
					cpx		#lu0
					beq		@150				;don't shift if LU zero already
@100				asl		A					;shift it into proper position
					dex
					bne		@100
@150				ora		|lutemp				;set the appropriate bits
					sta		|lutemp
					plx
					rts							;>>>--- exit lu bit pattern set routines --->>>
;
luptbl				dc.w	$0003				;LU 0 pattern mask
					dc.w	$000C				;LU 1 pattern mask
					dc.w	$0030				;LU 2 pattern mask
					dc.w	$00C0				;LU 3 pattern mask
					dc.w	$0300				;LU 4 pattern mask
					dc.w	$0C00				;LU 5 pattern mask
					dc.w	$3000				;LU 6 pattern mask
					dc.w	$C000				;LU 7 pattern mask
;
					ENDP
		
					EJECT
alloc_nxt_sdr		PROC
***********************************************************************************
*	This routine returns the next SDR address available.  If no space is
*	available the routine will call the memory manager and request enough space
*	for a specific number of SDRs.  If an error is returned from the memory
*	manager the call exits with an error.
*
*	ENTRY:	e,m,x = 0
*
*	Exit:	e,m,x = 0
*		A = low word of SDR address & C=0 of call succeeds
*		Y = high word of SDR address
*
*		A,Y undefined and C=1 if error encountered
*
***********************************************************************************
;
					longa	on
					longi	on
;
					lda		<avail_sdrs				;if already zero then quit
					bne		@100
					lda		#sm_rsrc_err			;got an error from get handle call
					sta		|error_stat
					sec
					brl		errexit
;
;	get SDR address
;
@100				lda		<next_sdr+2				;get the SDR address
					pha
					lda		<next_sdr
					pha
					dec		<avail_sdrs				;decrement number of available SDRs
					beq		getmem					;had one left go allocate more space
					clc								;bump to next SDR (cannot cross banks)
					adc		#sdrrec_size
setlink				sta		[next_sdr]				;form link address for next SDR
					pha								;save low 16 bits of next sdr address
					lda		5,s						;get the high word of the SDR address
					inc		next_sdr
					inc		next_sdr
					sta		[next_sdr]
					pla								;restore low 16 bits of next sdr address
					sta		<next_sdr				;save next SDR address
					bra		exit
;
getmem				lda		#default_sdrs			;assume we can get the memory for more sdrs
					sta		<avail_sdrs
					pha								;room for handle
					pha
					pea		default_sdrs\
							*sdrrec_size>>16		;high word of number of bytes required
					pea		default_sdrs\
							*sdrrec_size			;number of bytes required
					lda		|user_id				;our ID
					pha
					pea		sm_buffer_attrs			;locked not cross banks,....
					pea		$0000					;address (not used in this call)
					pea		$0000
					_NewHandle
					pla								;get handle off the stack
					ply
					bcc		@100
;
					ldy		#nxt_sdr_lnk		;no more SDRs tag link to next SDR with zeroes
					lda		#$0000
					sta		[next_sdr],y
					ldy		#nxt_sdr_lnk+2
					sta		[next_sdr],y
					lda		#sm_rsrc_err		;got an error from get handle call
					sta		|error_stat
					stz		<avail_sdrs			;could not get memory
					bra		exit				;go away with last SDR address EVER!!!
;
;	get pointer to new memory & form link to next available SDR
;
@100				sta		<scratchzpg
					sty		<scratchzpg+2
					ldy		#$0000
					lda		[scratchzpg],y
					sta		[next_sdr],y
					pha							;save new low word of next SDR pointer
					ldy		#$0002
					lda		[scratchzpg],y
					sta		[next_sdr],y
;
;	form new Next_SDR address pointer & set avail_sdrs to default sdrs
;
					sta		next_sdr+2
					pla
					sta		next_sdr
;
;	clear newly allocated memory
;
					phx
					lda		#default_sdrs\
							*sdrrec_size		;number of bytes to clear
					ldx		next_sdr			;address of first location
					ldy		next_sdr+2
					jsr		clear_memory		;wipe the new memory
					plx
					dec		<avail_sdrs			;decrement available SDRs
exit				pla							;get SDR address & quit
					ply
errexit				rts							;>>>--- alloc_nxt_sdr --->>>
;
					ENDP
	
					EJECT
					EXPORT	getnxtdci
getnxtdci			PROC
**********************************************************************************
*	This routine will get the pointer to the next DC instruction and return it
*	to the caller.  The routine performs the following steps:
*
*		1. Check if first instruction in DCP	(data chaining packet)
*		2. If first then
*			a) reset DC PC
*			b) setup working pointers
*			c) clear first instruction flag
*			d) jump back to getnxtdci
*		3. bump DC PC.
*		4. get first long word of instruction
*		5. If zero then go to DCSTOP
*		6. If -1 then go to DCLOOP
*		7. Must buffer address goto to Buffer handler.
*
***********************************************************************************
;
;
					lda		<dc_pc				;data chain pc in terms of bytes
					sta		<curr_dci_ptr		;form pointer to current DC instruction
					lda		<dc_pc+2
					sta		<curr_dci_ptr+2
;
;	check for DCMOVE, DCLOOP & DCSTOP instructions
;
					ldy		#dc_opcode			;start at the beginning of the instruction
					lda		[curr_dci_ptr],y
					pha							;save the instruction
					ldy		#dc_opcode+2
					ora		[curr_dci_ptr],y	;check for DCSTOP
					beq		dcstop
;
					lda		1,s					;check for DCLOOP
					and		[curr_dci_ptr],y
					cmp		#dc_loop_inst
					beq		dcloop
;
;	must be a buffer address
;
					lda		[curr_dci_ptr],y	;get high word of buffer address
					sta		<buffer_ptr+2
					pla							;get low byte of buffer address
					sta		<buffer_ptr
					ldy		#dc_count			;get the byte count
					lda		[curr_dci_ptr],y
					sta		<byte_ctr
					ldy		#dc_count+2
					lda		[curr_dci_ptr],y
					sta		<byte_ctr+2
					clc
					jsr		bump_addr			;add offset to address and save it
					jsr		bump_pc				;bump the DCI prog counter
					brl		exit				;return to caller with address & count
;
;	Looping Data chaining instruction (DCLOOP)
;
dcloop				pla							;discard low byte of instruction address
					ldy		#dc_count			;get the number of passes through the loop
					lda		[curr_dci_ptr],y	;bump past this instruction if zero
					pha
					ldy		#dc_count+2
					lda		[curr_dci_ptr],y
					ora		1,s
					bne		deccnt				;otherwise decrement the loop count
					jsr		bump_pc				;bump the DCI pc
					pla							;discard working low word of loop count
					bra		getnxtdci			;go back for another DC instruction
;
;	decrement the loop count
;
deccnt				pla
					dec		A					;decrement the low word of the loop count
					ldy		#dc_count			;get index to loop count
					sta		[curr_dci_ptr],y	;save the low word of the count
					bne		dcbra				;go to specified offset if nonzero
					ldy		#dc_count+2
					lda		[curr_dci_ptr],y
					dec		A
					sta		[curr_dci_ptr],y	;decrement high word of loop count
					beq		goagain				;loop exausted see if more instructions
;
;	loop not exausted get relative offset and branch
;
dcbra				ldy		#dc_offset			;get the loop instruction offset
					lda		[curr_dci_ptr],y	;low word of offset
					sta		<scratchzpg			;offset times 16
					ldy		#dc_offset+2
					lda		[curr_dci_ptr],y
					sta		<scratchzpg+2
					asl		<scratchzpg
					rol		<scratchzpg+2
					asl		<scratchzpg
					rol		<scratchzpg+2
					asl		<scratchzpg
					rol		<scratchzpg+2
					asl		<scratchzpg
					rol		<scratchzpg+2
					clc
					lda		<scratchzpg			;get low word of offset*16
					adc		<dc_pc				;adjust the chaining inst. prog. counter
					sta		<dc_pc
					lda		<scratchzpg+2		;get high word of offset*16
					adc		<dc_pc+2
					sta		<dc_pc+2
goagain				brl		getnxtdci			;go execute next instruction
;
;	DCSTOP instruction handler
;
dcstop				pla							;discard high word of instruction
					iny							;point to 2nd long word of dcstop
					iny
					lda		[curr_dci_ptr],y	;check low 24 bits for nonzero (routine address)
					iny
					ora		[curr_dci_ptr],y	;check for DCSTOP
					beq		@110				;a real DCSTOP instruction
;
;	DCSPECIAL instruction
;
					lda		[curr_dci_ptr],y	;get bits 8-23 of routine address
					sta		@100+2				;self modify high byte of JSL address
					dey
					lda		[curr_dci_ptr],y	;get bits 0-15 of routine address
					sta		@100+1				;self modify low word of JSL address
@100				jsl		$00000000			;the user returns back to us or hell breaks loose
					jsr		bump_pc				;bump the data chaining program counter
					brl		getnxtdci			;go get the next instruction
;
;	all done with DCSTOP instruction
;
@110				stz		|more_dci			;reset more data chain instructions flag
nodci				sec
exit				rts							;>>>>---- getnextdci ---->>>
;
;----------------------------------------------------------------------------
;
;	Bump the DCI program counter
;
;	ENTRY:	e,m,x = 0
;		dc_pc
;
;	exit:	e,m,x = 0
;		dc_pc := dc_pc + 16
;
;----------------------------------------------------------------------------
;
bump_pc	php
					pha
					lda		<dc_pc				;bump the data chain prog. counter
					clc
					adc		#dc_size			;bump by data chain intruction size
					sta		<dc_pc
					bcc		@100
					inc		<dc_pc+2			;bump chaining program counter
@100				pla
					plp
					rts							;>>>--- exit bump_pc --->>>
;
;
;----------------------------------------------------------------------------
;
;	ADD the contents of the offset field to the address field
;
;	ENTRY:	e,m,x = 0
;		curr_dci_ptr:	pointer to current DC instruction
;
;	Exit:	e,m,x = 0
;		[DCMOVE_opcode] := [DCMOVE_opcode]+[DCMOVE_offset]
;
;----------------------------------------------------------------------------
;
bump_addr			php							;save Carry
					ldy		#dc_offset+2		;get high word of offset to add to the address
					lda		[curr_dci_ptr],y
					pha
					ldy		#dc_offset
					lda		[curr_dci_ptr],y
					ldy		#dc_opcode
					clc
					adc		[curr_dci_ptr],y
					sta		[curr_dci_ptr],y	;write out the modified address
					pla							;get the high word of the offset
					ldy		#dc_opcode+2
					adc		[curr_dci_ptr],y
					sta		[curr_dci_ptr],y
					plp							;restore Carry
					rts							;>>>--- exit bump_addr ---->>>
;
					ENDP

					EXPORT	setup_call_env
setup_call_env		PROC
*********************************************************************************
*	This routine will copy all the work variables from the SCSI Device record
*	into working variables.
*
*	ENTRY:	e,m,x = 0
*		plist_ptr points to the record matching sought ID
*
*	Exit:	e,m,x = 0
*		working parameters
*		updated
*
*********************************************************************************
;
;
					ldy		#sdr_logunit		;logical unit
					lda		[sdr_ptr],y
					sta		<logunit
					ldy		#sdr_targ_priot		;target priority
					lda		[sdr_ptr],y
					sta		|target_priority
					ldy		#sdr_init_priot		;initiator priority
					lda		[sdr_ptr],y
					sta		|init_priority
					ldy		#sdr_slot			;slot number
					lda		[sdr_ptr],y
					sta		<slot_no
					ldy		#sdr_5380_base		;5380 I/O base address
					lda		[sdr_ptr],y
					sta		<io_offset
					ldy		#sdr_5380_base+2
					lda		[sdr_ptr],y
					sta		<io_offset+2
					ldy		#sdr_dma_base		;5380 DMA controller base address
					lda		[sdr_ptr],y
					sta		<dma_offset
					ldy		#sdr_dma_base+2
					lda		[sdr_ptr],y
					sta		<dma_offset+2
;
;	setup work flags etc...
;
					lda		#$FFFF				;setup for possible DCI instructions
					sta		|more_dci
					rts							;>>>--- setup_call_env --->>>
;
					ENDP
	
					EXPORT	id_assignment
id_assignment		PROC
*********************************************************************************
*	This routine will determine the boot slot and assign the SDR which
*	contains the target with the highest scsi priority ID 1.  This way
*	the boot continues from the same target when the SCSI driver got control.
*	IDs are assigned
*	based on slot number.  Each slot starts with ID 1 and increments for each
*	device found on that slot.
*
*	ENTRY:	e,m,x = 0
*		sdr_table_ptr: points to the first SDR in the table
*
*	Exit:	e,m,x = 0
*		Each SDR contains an ID based on Slot & unit number.
*		A,X,Y undefined.
*
*********************************************************************************
;
					longa	on
					longi	on

					phx							;save register
					lda		<sdrsonline			;number of sdrs available
					sta		<sdrstocheck
					bne		@100
					brl		alldone				;if zero go away
@100				lda		<sdr_table_ptr		;point to the start of the SDR table
					sta		<scratchzpg
					lda		<sdr_table_ptr+2
					sta		<scratchzpg+2
;
;	issue get_dib_ptr call for unit one to find boot slot number
;
					phd							;save our zero page
					lda		|gsos_zpg_hold		;point to GS/OS zero page
					tcd
					pei		<drvr_dib_ptr+2		;save the driver dib pointer
					pei		<drvr_dib_ptr
					pei		<dev_id_ref			;save the id reference number
					pei		<drvr_dev_num		;save current device number
					stz		<drvr_dev_num		;select device dispatcher
					lda		#$0001				;unit number one
					sta		<dev_id_ref
					lda		#get_dib_ptr
					sta		drvr_call_num
					jsl		dev_dispatcher		;issue get_dib_ptr to device dispatchjer
					ldy		#slot_num
					lda		[drvr_dib_ptr],y		
					sta		|smboot_slot
					pla							;restore gsos zero page
					sta		<drvr_dev_num		;restore GS/OS direct page
					pla
					sta		<dev_id_ref
					pla
					sta		<drvr_dib_ptr
					pla
					sta		<drvr_dib_ptr+2
					pld							;point back to our direct page
					bcc		dibok				;if we fail, we get purged
;
dibfail	sec
					lda		#get_dib_err		;get_dib_ptr failed
					sta		|error_stat
					brl		alldone
;
;	get the slot number of the boot device
;
dibok				lda		<scratchzpg			;make the previous sdr link point
					sta		<sdr_ptr			;to sdr N
					lda		<scratchzpg+2
					sta		<sdr_ptr+2
ckslot				ldy		#sdr_slot			;point to the slot field within the SDR
					lda		[scratchzpg],y
					cmp		|smboot_slot
					beq		smatch				;found matching slots adjust link pointers
;
;	slots do not match check next SDR
;
					dec		<sdrstocheck		;if count zero go assign ids
					beq		assgnid
					ldy		#nxt_sdr_lnk+2		;point to next SDR
;
;	save this SDR's address
;
					lda		<scratchzpg+2		;keep SDR's address
					sta		<sdr_ptr+2
					lda		<scratchzpg
					sta		<sdr_ptr
					lda		[scratchzpg]
					pha
					lda		[scratchzpg],y		;set address for next SDR
					sta		<scratchzpg+2
					pla
					sta		<scratchzpg
					bra		ckslot				;go check the slot number
;
;
;********************************************************************************
;
;	found a slot match adjust the link pointers and set the IDs
;
;********************************************************************************
;
;	scratchzpg := address of SDR N
;	sdr_ptr	:= address of SDR N-1
;
;BEFORE:
;				+-----------+			+-----------+			+-----------+
;Head >>------>>|  SDR N-1  | >>----->>	|   SDR N   | >>----->> |   SDR N+1 |
;				+-----------+			+-----------+			+-----------+
;
;			
;AFTER:			
;				+-----------+			+-----------+			+-----------+
;Head >>----->> |  SDR  N   | >>----->>	|  SDR N-1  | >>----->> |  SDR N+1  |
;	  		 	+-----------+			+-----------+			+-----------+
;
;********************************************************************************
;	
smatch				lda		<scratchzpg+2		;check for already in right order
					eor		<sdr_ptr+2
					bne		@100
					lda		<scratchzpg
					eor		<sdr_ptr
					beq		assgnid
;
@100				ldy		#nxt_sdr_lnk+2		;point to nxt_sdr_ptr field high word
					lda		[scratchzpg],y		;SDR N+1 address into SDR N-1 link ptr
					sta		[sdr_ptr],y
					lda		[scratchzpg]
					sta		[sdr_ptr]
					lda		<sdr_table_ptr+2	;save pointer to head of list
					pha
					lda		<sdr_table_ptr
					pha
					lda		<scratchzpg+2		;write SDR N address in head link
					sta		<sdr_table_ptr+2
					lda		<scratchzpg
					sta		<sdr_table_ptr
					pla							;link SDR N to SDR N-1
					sta		[scratchzpg]
					pla							;restore high word of old sdr_table_ptr
					sta		[scratchzpg],y
;
;	Assign the IDs starting with $0001
;
assgnid				lda		<sdrsonline			;number of SDRs to assign IDs for
					sta		<sdrstocheck
					lda		<sdr_table_ptr+2
					sta		<scratchzpg+2
					lda		<sdr_table_ptr
					sta		<scratchzpg
nextid				ldy		#sdr_slot			;point to the slot field within the SDR
					lda		[scratchzpg],y		;get the slot for this SDR
					jsr		getnextID
					ldy		#sdr_device_id		;point to ID field in SDR
					sta		[scratchzpg],y
					dec		<sdrstocheck
					clc							;assume all done
					beq		alldone				;count of zer means all done
;
onemore				ldy		#nxt_sdr_lnk+2		;point to link field
					lda		[scratchzpg],y		;get address of next SDR
					pha
					lda		[scratchzpg]
					sta		<scratchzpg
					pla
					sta		<scratchzpg+2
					bra		nextid
alldone				plx
					rts							;say goodnight!!
;
					ENDP
					EJECT
					EXPORT	validate_msg
validate_msg		PROC
*********************************************************************************
*	This module will validate the message to be sent to the target or
*	received from the target.
*
*	ENTRY:	e,m,x = 0
*		A = message byte to validate
*
*	Exit:	e,m,x = 0
*		A = $00XX where XX = message number &C = 0 if valid message
*		A = $00XX where XX = message # & C=1 for bad message
*
*********************************************************************************
;
					longa	on
					longi	on
;
					php
					rep		#$30				;m,x=0
					and		#$00FF				;low byte only
					cmp		#identify_msg		;check for identify message type
					bcs		msg_ok
					cmp		#sdata_follows		;check if greater than msg $0C (i.e. $0D sense data follows)
					bcc		msg_ok
					plp							;restore m,x
					sec							;bad news
					bcs		exit
msg_ok				plp							;restore m,x
					clc
exit				rts							;>>>--- validate_msg --->>>
;
					ENDP
	
					EXPORT	touthandler
touthandler			PROC
*******************************************************************************
*	This module will check for tasks which may be pending and have timed
*	out.  The routine walks the SDR list and checks if the busy bit is set.
*	If the bit is set then it decrements the timeout count.  If the count
*	rolls to zero, the busy bit will be reset and a timeout error will be
*	reported to the caller.
*
*	ENTRY:	e,m,x = 0
*		All registers saved & restored
*		NOTE: ENTRY to this routine is made through an interrupt
*		      from a previously installed heartbeat task.
*
*	Exit:	e,m,x = 0
*		C = 1 if timeout has occurred
*		A = timeout error code
*		X = Low word of SDR
*		Y = High word of SDR
*
*********************************************************************************
;
;
;	HeartBeat task header
;
					EXPORT	tout_header
					EXPORT	tick_count
;
tout_header	dc.l	$00000000					;room for link pointer
tick_count	dc.w	$0000						;tick count before irq
					dc.w	$A55A				;manual is wrong A55A signature correct
;
;	save environment we will be playing with
;
timeout				php							;save m,x
					longa	on
					longi	on
					rep		#$30				;m,x=0
					pha							;save registers
					phx
					phy
					phd							;save direct register
;
;	point to our zero page
;
					lda		|zpg_hold
					clc							;point to SCSI Manager zero page
					adc		#driver_zpg_size
					pha
					pld
;
;	check for SDR Busy bit set
;
					ldy		#sdr_flags
					lda		[active_sdr],y
					and		#sdr_attrb_busy
					beq		exit
;
;	SDR is busy decrement timeout count & check for zero
;
					jsr		getticks
					sta		|tick_count			;tick count before next irq
					bne		exit
;
;	go tell driver the call it issued timed out
;
					ldy		#sdr_completion_vect;call the intercomm vector
					lda		[active_sdr],y		;get address of completion vector
					sta		calldvr+1			;form jsl address
					iny
					lda		[active_sdr],y
					sta		calldvr+2
;
;	mark SCSI Manager busy so drivers can not issue another call now
;	then notify driver of the timeout.
;
					lda		|smbusy_flag		;save current setting of SCSI Manager busy flag
					pha
					lda		#busy
					sta		|smbusy_flag
					lda		#calltout_err		;tell driver its call timed out
					sec
					sta		|error_stat			;and keep error for future reference
calldvr				jsl		$000000				;**** SELF MODIFYING CODE
					jsr		clear_state			;remove this scsi transaction
					dec		|busy_sdr_count		;one less busy SDR
					ldy		#sdr_flags
					lda		[active_sdr],y
					and		#sdr_attrb_busy\
							--$FFFF				;clear busy bit in attribute word
					sta		[active_sdr],y
;
;	restore state of SCSI Manager busy flag
;
					pla
					sta		|smbusy_flag
;
;	all done set for next interrrupt (0000 is possible) and go away
;
exit				pld							;restore direct register
					ply
					plx
					pla
					plp							;restore m,x
					xce
					rtl							;>>>--- tout_handler --->>>
;
					ENDP
;
					EJECT
					EXPORT	clear_state
clear_state			PROC
************************************************************************************
*	This routine will remove a pending task which has timedout.  It clears the
*	work variables within the SCSI Manager record (SDR) removes the task from
*	the SCSI bus and returns an error to the caller.
*
*	ENTRY:	e,m,x = 0
*		[sdr_ptr] points to the record to discard
*
*	Exit:	e,m,x = 0
*		A,X,Y undefined
*
************************************************************************************
;
					longa	on
					longi	on
;
;
;	save some scsi manager internals
;
					lda		<io_offset+2
					pha
					lda		<io_offset
					pha
;
;	point to the I/O space corresponding to this SDR
;
					ldy		#sdr_5380_base
					lda		[active_sdr],y
					sta		<io_offset
					tax							;I/O index register
					ldy		#sdr_5380_base+2
					lda		[active_sdr],y
					sta		<io_offset+2
;
;	 send abort message to the target
;
					lda		#abort_msg			;setup message out byte in case end up in msgout phase
					sta		|msg_out_byte
					lda		#attention
					jsr		set_icmd
					lda		#msg_out_phase
					jsr		wait_for_phase
					bcs		@75
					bvs		@75					;phase changed to other than requested
;
;	send the abort byte to the target right now!
;
					ldx		<io_offset			;point to proper io location
					lda		#attention				;clear the attention bit
					jsr		res_icmd
					lda		#abort_msg				;send the abort message
					jsr		osend_byte
					bra		@85
;
;	if "wait for phase" timed out reset the bus
;
@75					jsr		bus_reset
@85					ldx		<io_offset
					lda		#invalid_phase1
					sta		>targcmdreg,x
;
;	toggle 5380 DMA enable bit to allow req to come through
;
					longa	off
					sep		#$20				;m=1
					lda		#dmaenable
					eor		>modereg,x
					sta		>modereg,x
					eor		>modereg,x
					sta		>modereg,x
					longa	on
					rep		#$20				;m=0
					jsr		cleanup_sdr
@100				pla
					sta		<io_offset
					pla
					sta		<io_offset+2
					stz		|more_phases		;forces exit in phase handler
					rts
;
					ENDP
					EJECT
					EXPORT	cleanup_sdr
cleanup_sdr			PROC
*********************************************************************************
*	This routine will reset working parameters in the SDR back to zero.
*
*	ENTRY:	e,m,x = 0
*		[sdr_ptr] := address of SDR to cleanup
*
*	Exit:	e,m,x = 0
*		A,Y trashed
*
*********************************************************************************
;
					longa	on
					longi	on
;
;	cleanup the timeout field
;
					lda		#$0000
					ldy		#sdr_timeout
					sta		[sdr_ptr],y
					ldy		#sdr_timeout+2
					sta		[sdr_ptr],y
;
;	clear completion vector
;
					ldy		#sdr_completion_vect
					sta		[sdr_ptr],y
					ldy		#sdr_completion_vect+2
					sta		[sdr_ptr],y
;
;	clear the command field pointer
;
					ldy		#sdr_cmd_ptr
					sta		[sdr_ptr],y
					ldy		#sdr_cmd_ptr+2
					sta		[sdr_ptr],y
;
;	clear the data chaining instructions pointer
;
					ldy		#sdr_cmd_ptr
					sta		[sdr_ptr],y
					ldy		#sdr_cmd_ptr+2
					sta		[sdr_ptr],y
;
;	clear the buffer pointer and byte count
;
					ldy		#sdr_buffer_ptr
					sta		[sdr_ptr],y
					ldy		#sdr_buffer_ptr+2
					sta		[sdr_ptr],y
					ldy		#sdr_byte_count
					sta		[sdr_ptr],y
					ldy		#sdr_byte_count+2
					sta		[sdr_ptr],y
					rts							;>>>--- cleanup_sdr --->>>
;
					ENDP
					EJECT
					EXPORT	adjtout
adjtout				PROC
*********************************************************************************
*	This routine will convert the 1/4 second timeout count passed by the
*	caller into 1/60 second tick count.  The routine also adds the current
*	tick count to the calculated 1/60 sec timeout count and returns it in
*	a pair of registers.
*
*	ENTRY:	e,m,x = 0
*		A = 1/4 sec timeout value
*
*	Exit:	e,m,x = 0
*		A = low word of 1/60th sec timeout count
*		X = high word of 1/60th sec timeout count
*
*********************************************************************************
;
;
					longa	on
					longi	on
;
					pha							;save 1/4 sec count
					stz		scratchzpg			;work area
					stz		scratchzpg+2
					clc
					asl		A					;times 16
					rol		<scratchzpg+2
					asl		A
					rol		<scratchzpg+2
					asl		A
					rol		<scratchzpg+2
					asl		A
					rol		<scratchzpg+2
					sec
					sbc		1,s					;but we really want times 15
					sta		<scratchzpg
					lda		<scratchzpg+2
					sbc		#$0000
					plx							;discard 1/4 set count off the stack
					tax
					lda		<scratchzpg
					rts								;>>>--- adjtout --->>>
;
					ENDP
;
					EJECT
saveptrs			PROC
**********************************************************************************
*	This routine will do a save pointers in the data chaining instructions.
*	For Buffer addresses it copies the address into the save pointer field.
*	For Loop instructions, it copies the loop count into the save pointer.
*
*	ENTRY:	e,m,x = 0
*		[sdr_ptr] points to parameter list containing data chain
*			  instructions to do save pointers on.
*
*	Exit:	e,m,x = 0
*		A = trashed
*		scratchzpg:= address of data chaining instructions
*
**********************************************************************************
;
					longa	on
					longi	on
;
;	point to the data chaining instructions
;
					phy							;save work registers
					phx
					ldy		#sdr_plist_ptr		;get the address of the parameter list
					lda		[sdr_ptr],y
					tax
					ldy		#sdr_plist_ptr+2
					lda		[sdr_ptr],y
					sta		<scratchzpg+2
					stx		<scratchzpg
					ldy		#plst_dchainptr		;get the pointer to the data chain instructions
					lda		[scratchzpg],y
					tax
					ldy		#plst_dchainptr+2
					lda		[scratchzpg],y
					sta		<scratchzpg+2		;point to opcode field of data chain instruction
					stx		<scratchzpg
					sta		<temp1+2			;point to save ptr area of data chaining instruction
					txa
					clc
					adc		#dci_save
					sta		<temp1	
;
;	save pointers until stop instruction (max of 32 instructions including stop)
;
					ldy		#$0000				;point to start of data chain instructions list
movloop				lda		[scratchzpg],y		;get the instruction
					tax							;save low word of instruction
					iny
					iny
					ora		[scratchzpg],y
					beq		exit				;if stop instruction go away
					cmp		#$FFFF				;check for loop instruction
					beq		movlcnt				;if loop instruction move loop count
					lda		[scratchzpg],y		;high word of buffer address
					sta		[temp1],y			;save in high word of save area
					dey
					dey
					lda		[scratchzpg],y		;low word of buffer address
					sta		[temp1],y			;to save area
nxtdci				tya
					clc
					adc		#dci_size			;bump to next data chain instruction
					tay
					bra		movloop				;do next instruction
;
;	instruction was a loop instruction move the loop count
;
movlcnt				iny							;bump to the loop count field
					iny
					lda		[scratchzpg],y		;get the loop count
					tax							;save low word of loop count
					iny
					iny
					lda		[scratchzpg],y		;get the high word of the count
					dey							;point back to the loop instruction opcode
					dey
					dey
					dey
					sta		[temp1],y			;save the high word of the loop count
					dey
					dey
					txa
					sta		[temp1],y			;save the low word of the loop count
					bra		nxtdci				;Y points at the start of instruction
;
exit				plx							;restore registers
					ply
					rts							;>>>--- saveptrs --->>>
;
					ENDP
	
					EJECT
ckdcilst			PROC
********************************************************************************
*	This routine will validate that there are a maximum of 32 data chaining
*	instructions and that the last instruction is a stop instruction.
*
*	ENTRY:	e,m,x = 0
*
*	Exit:	scratchzpg trashed
*		A = undefined
*
********************************************************************************
;
					longa	on
					longi	on
;
;	point to data chain instruction list
;
					phx
					phy
					ldy		#plst_dchainptr
					lda		[plist_ptr],y
					sta		<scratchzpg
					ldy		#plst_dchainptr+2
					lda		[plist_ptr],y
					sta		<scratchzpg+2
;
;	walk the list looking for stop instructions
;
					ldx		#maxdcis+1			;max # of DC Cmds + 1 for DCStop
					ldy		#$0000
@100				clc							;assume we find a stop inst within 32 instructions
					lda		[scratchzpg],y
					iny
					iny
					ora		[scratchzpg],y
					beq		exit
					dey							;back down to low word of opcode
					dey
					sec							;assume we will fail at this point
					dex							;decrement instruction count remaining
					beq		exit				;if zero then exit with error
					tya							;point to next instruction
					clc
					adc		#dci_size
					tay
					bra		@100
exit				ply
					plx
					rts							;>>>--- ckdcilst --->>>
;
					ENDP
					EJECT
					EXPORT	getnextid
getnextid			PROC
******************************************************************************
*Getnextid:	This routine will return the next ID available for devices on
*		the slot number specified in the accumulator.  The slot number
*		will be truncated to a value between $00 and $0F.
*
*		ENTRY:	e,m,x = 0
*			A = slot number
*
*		Exit:	e,m,x = 0
*			A = ID number
*
******************************************************************************
;
					longa	on
					longi	on
;
					phx							;save work registers
					and		#$000F				;truncate the slot number to $00-$0F
					tax
					sep		#$20				;m=1
					inc		|slot_table,x		;bump to next available ID
					lda		|slot_table,x		;next available ID for this slot
					rep		#$20				;m=0
					plx							;restore work registers
					rts							;>>>--- getnextid --->>>
;
slot_table			dc.w	$0000				;a table of 16 one byte entries (slots 0-F)
					dc.w	$0000
					dc.w	$0000
					dc.w	$0000
					dc.w	$0000
					dc.w	$0000
					dc.w	$0000
					dc.w	$0000
;
					ENDP
;
					EJECT
					EXPORT	zap_oldcard
zap_oldcard			PROC
**********************************************************************
*	This module will reset some parameters kept in the OLD SCSI
*	card's ram.  This will force the card to rebuild its tables (SDATS)
*	when control is passed to PRODOS 8.
*
*	ENTRY:	e,m,x = 0
*
*	Exit:	e,m,x = 0
*		A = $0001
*
**********************************************************************
;
;
					longa	on
					longi	on
;
;	save work registers for later restore
;
					phx
					phy
;
;	reset I/O Strobe memory ($C800-$CFFE) and turn on this cards I/O strobe space
;
					lda		>io_stbreset		;access $CFFF (reset I/O strobe space)
					ldy		#sdr_slot			;get the slot number
					lda		[sdr_ptr],y
					and		#slot7				;mask off the external slot bit
					xba							;times $100
					tax							;access $CNXX space to turn on I/O strobe space
					lda		>io_space,x			;for this card
;
;	point to bank $00 of the old card's ram
;
					ldy		#sdr_5380_base		;point to card DEV-SEL space
					lda		[sdr_ptr],y
					tax
					lda		#$0000				;point to card's bank zero rom and bank zero ram
					sep		#$20				;m=1
					sta		>ocard_breg,x
					rep		#$20
;
;	zero out working parameters in the cards ram (forces tables reinit)
;
					lda		#0000
					sta		>scsi_init			;clear init flag

					sta		>sdat_start			;clear SDAT ID's
					sta		>sdat_start\
							+dibtab_len*1
					sta		>sdat_start\
							+dibtab_len*2
					sta		>sdat_start\
							+dibtab_len*3
					sta		>sdat_start\
							+dibtab_len*4
					sta		>sdat_start\
							+dibtab_len*5
					sta		>sdat_start\
							+dibtab_len*6

					sta		>dibtab_start		;clear dibtab ID's.
					sta		>dibtab_start\
							+dibtab_len*1
					sta		>dibtab_start\
							+dibtab_len*2
					sta		>dibtab_start\
							+dibtab_len*3
					sta		>dibtab_start\
							+dibtab_len*4
					sta		>dibtab_start\
							+dibtab_len*5
					sta		>dibtab_start\
							+dibtab_len*6
					inc		A
					sta		>gs_flag			;force GS_flag true (nonzero)
					ply
					plx
					rts							;>>>--- exit zap_oldcard --->>>
;
					ENDP
					END
					EJECT
	
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSFirmware/AD3.5Driver/AD35.REV.HIST.aii b/IIGS.601.SRC/GSFirmware/AD3.5Driver/AD35.REV.HIST.aii
new file mode 100644
index 0000000..a767efd
--- /dev/null
+++ b/IIGS.601.SRC/GSFirmware/AD3.5Driver/AD35.REV.HIST.aii
@@ -0,0 +1 @@
+		TITLE	'Firmware History'

;	This EdAsm/Asm816 source code file was converted to AsmIIGS
;	by EdAsmCvtIIGS version 1.2d8 on 5/16/91 at 9:15:58 PM

*****************************************************************
*                                                               *
*     NOTE:   This firmware was developed using the firmware    *
*             developed by Mike Askins, for the Unidisk 3.5     *
*             controller board as a starting point.             *
*                                                               *
*****************************************************************
*                                                               *
*  Modification History:                                        *
*                                                               *
* Rel  Date       Who  Action                                   *
* ------------------------------------------------------------- *
* *** 02 Oct 85   G.A. Development cycle    0.01                *
* 1.0 31-Jan-86   G.A. Alpha release of Unified 1.0 firmware    *
* 1.1 15-Apr-86   G.A. Beta 2.0 release of unified firmwave     *
*                      1. Fixed a status DIB volume size bug.   *
*                      2. FIxed a status DIB version bug.       *
*                      3. Implemented disk swapped error check  *
* 2.0 13-Oct-86   G.A. Rom rev. 2.0 bug fixes                   *
*                      1. Fixed the Mac read/write block calls  *
* 2.0 19-Nov-86   G.A. Rom rev. 2.0 added two status calls.     *
*                      Get.vars, Get.buff.addr.                 *
*                      1. Returns the start of internal vars.   *
*                      2. Returns the start of work buffers.    *
* 2.0 27-Feb-87   G.A. Rom rev. 2.0 general status byte & swap  *
*                      1. The general status byte returned on   *
*                         status call (code $00) now will have  *
*                         the LSB set if the media has been     *
*                         switched.                             *
*                                                               *
* 3.0 15-Aug-88   JOA  Rom Rev 3.0 for 'Rev D' IIgs revision    *
*                      1. Added Direct Read & FastBufr routines *
*                      2. ReCoded GCR Format to use rpt count   *
*                      3. Eliminated unused $E1 and Zpg labels  *
*                      4. Moved xlvtab to $E10F00 from zpag     *
*                      5. New MergeIt; separate 512 case code   *
*                      6. Added volume status and eject handling*
*                      7. Added timeout to WaitReady and errors * 
*                      8. Added RawRead Call with Raw&Sect modes*
*                      9. Added TrkRead Call for n whole trkrds *
*                     10. Fixed FastBufr fast bank spanned rdbug*
*                     11. Modified Status Call to return devtype*
*                         different for extended and std/prodos *
*                     12. Changed XSP Status call to preserve   *
*                         MotorON rather than always canceling. *
*                                                               *
*****************************************************************
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSFirmware/AD3.5Driver/AD35Driver.make b/IIGS.601.SRC/GSFirmware/AD3.5Driver/AD35Driver.make
new file mode 100644
index 0000000..76cb1c6
--- /dev/null
+++ b/IIGS.601.SRC/GSFirmware/AD3.5Driver/AD35Driver.make
@@ -0,0 +1 @@
+#   File:       AD35Driver.make
#   Created:    June 13, 1991   by JOA
# 	Copyright Apple Computer, Inc. 1991
# 	All rights reserved.

AD35Driver 	Ä	AD35Driver.make			¶
				AD35Driver.aii			¶
				::Firmware.macros.aii	¶
				::Firmware.Equates.aii	¶
				AD35.REV.HIST.aii		¶
				equates.aii				¶
				mainline.aii			¶
				subroutines.aii			¶
				read.aii				¶
				write.aii
	AsmIIgs  {userAOptions} -h AD35Driver.aii -wt -o AD35Driver.obj
	LinkIIgs020  AD35Driver.obj -o AD35Driver.rel
	MakeBinIIgs AD35Driver.rel -o AD35Driver
	dup AD35Driver ::bin:AD35Driver.bin
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSFirmware/AD3.5Driver/AD35driver.aii b/IIGS.601.SRC/GSFirmware/AD3.5Driver/AD35driver.aii
new file mode 100644
index 0000000..243972f
--- /dev/null
+++ b/IIGS.601.SRC/GSFirmware/AD3.5Driver/AD35driver.aii
@@ -0,0 +1 @@
+
;	This EdAsm/Asm816 source code file was converted to AsmIIGS
;	by EdAsmCvtIIGS version 1.2d7 on 5/16/91 at 7:30:6 PM
		
		PRINT	NOGEN
		MACHINE	M65816
;
		INCLUDE	'ad35.rev.hist.aii'	; revision history
;
VERSION		EQU	$3000	;
CYAREG		EQU	$C036	;
CODE		EQU	$FF	; Rom in bank $FF
CODE_BANK		EQU	$FF0000
FAKE_IT		EQU	$00	; make it think we are in bank $00
DATA_BANK		EQU	$E1	; data bank register
POWER1		EQU	$0FB6	; powerup byte (defined in SmartPort)
POWER2		EQU	$0FB7	; powerup ok byte
*
OPEN_WNDW		EQU	$5603	; Rev 01 ROm at $6543 irq window rtn
A35DRIVER		EQU	$3400		;was $3C00 for Ver 03 rom 
A35LGTH		EQU	$5600-A35DRIVER	;was $1A00 for Ver 03 rom 
;

		INCLUDE	'::Firmware.macros.aii'
		INCLUDE	'equates.aii'
Bnk~Org		EQU	A35DRIVER
AD35DRIVER	PROC	ORG CODE_BANK+A35DRIVER
		WITH	AD35_ZPAGE
		WITH	E1_AD35VARS
		LONGA	OFF
		LONGI	OFF
*
;
*********************************************************
*
*              **** WARNING **** WARNING **** WARNING ****
*
*      1. The order of the include file list is crytical to the
*         generation of the object file.  The files; Disk.main
*         and Tables  must be included in sequential order
*         or the positions of the nyble tables etc will be
*         wrong.  
*
*
*      2. On Write block and Write calls the upper half of the
*         accumulator contains the extra bits for three data
*         bytes which have been nibblized.
*
*********************************************************
Rel~Org:
		INCLUDE	'mainline.aii'	;
		INCLUDE	'subroutines.aii'
		INCLUDE	'read.aii'
		INCLUDE	'write.aii'
;
P_SIZE		EQU	*-DSONY_ENTRY	; number of bytes used by code  
		FillTo	A35DRIVER+A35LGTH	; fill allotted space
;
		ENDP
		
		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSFirmware/AD3.5Driver/equates.aii b/IIGS.601.SRC/GSFirmware/AD3.5Driver/equates.aii
new file mode 100644
index 0000000..74b3c99
--- /dev/null
+++ b/IIGS.601.SRC/GSFirmware/AD3.5Driver/equates.aii
@@ -0,0 +1 @@
+		TITLE	'Equates'

;	This EdAsm/Asm816 source code file was converted to AsmIIGS
;	by EdAsmCvtIIGS version 1.2d8 on 5/16/91 at 9:16:12 PM

*
*
MAXDRIVS		EQU	02	;only two drives for now
DEVTYPE		EQU	$01	;We're the first device!
DEVSUBTYPE	EQU	$C0	; supports extended calls & swap error checking
*
*
*  Tuning Constants
*
TK0WAIT		EQU	7	;Wait per track seeked for /TK0 in recal
MOTCNTLO		EQU	255	;Motor timeout
MOTCNTHI		EQU	255
*
INMUPWAIT		EQU	500/2	;500 ms first access new disk
STDMUPWAIT	EQU	100/2	;100 ms normal motor up wait
*
gapByte		EQU	$4E	;Inter/intra sector gap byte
theSync		EQU	$00	;Sync byte preceeding each mark
fmtFillByte	EQU	$FA-256	;Format byte to fill sectors with

; SpliceCnt must be tuned to put MFM slice 22 bytes after end of the address mark
SpliceCnt		EQU	16	;15 * 17 slow cycles + overhead between end of mfmRdAddr and mfmWriteData
AD1440KSectors	EQU	18
;Field sizes:

gap4aSize		EQU	80	;Gap between index and index mark				<1.8>
gap1Size		EQU	50	;Gap between index mark and sector 1			<1.8>
gap2Size		EQU	22	;Gap between address and data fields
gap3Sz1440K	EQU	101	;Gap between adjacent sectors (1440K)			<1.9>
gap4bSize		EQU	1000	;Gap from end of last sector to index (max)		<1.8>
syncSize		EQU	12	;Sync field size
*
RECALTRKS		EQU	80	;80 track seek max on recal
AMTOUT		EQU	1950	;Byte timeout for rdaddr
READTO		EQU	25	;25 bytes timeout for read
ITSSIZE		EQU	200	;1000 byte init sync field size
FMTRETRY		EQU	10	;10 try track format
*
EJECTRETRIES	EQU	3	;Try to eject up to three times
EJECTTIMEOUT	EQU	195	;Wait 1.5s for disk to be ejected
*
MOTORTIMEOUT	EQU	$78E6	;About 1 sec delay on motor off
*
MAXSEEKS		EQU	4	;Maximum of 3 reseeks
SKRCLTHRSH	EQU	2	;Point in reseeks where recal occurs
MAXRET		EQU	150	;Maximum number of sectors to good data
RCLTHRESH		EQU	MAXRET/2	;Point in retries when recal occurs
*
TOTCYLS		EQU	80	;80 cylinders total
SINGSIZE		EQU	800	;800 blocks on a single sided disk
DOUBSIZE		EQU	1600	;1600 on a double sided
*
DUMMYTO		EQU	200	;One spin at 300 RPM (approx)
SONYPWRUP		EQU	230	;Sony powerup=300ms, Liron=70ms
*
AD400K		EQU	02
AD800K		EQU	04	; 800K any interleave
AD1440K		EQU	06	; 1440K 2:1 interleave
AD1440K1		EQU	10	; 1440K 1:1 interleave
AD800K2		EQU	$C	; 800K 2:1 interleave
XLEAVEDEF		EQU	4	;Default format interleave of 4:1
MAXXLV		EQU	$08	; max interleave of 08:1
BSTAT_SIZE	EQU	$04	; basic status = 4 bytes
*
CTRLLIST		EQU	$0C00	;Control lists are put here
STATBUF		EQU	$0C00	;Status lists built here
*
SECTBUF		EQU	$0C00	;Formatter sector skeleton built here
VOLCSUM		EQU	SECTBUF+2+65+8
VOLFMT		EQU	SECTBUF+2+65+7
VOLSIDE		EQU	SECTBUF+2+65+6
VOLASECT		EQU	SECTBUF+2+65+5
VOLTRK		EQU	SECTBUF+2+65+4
VOLDSECT		EQU	SECTBUF+2+65+21
;
BUF1		EQU	$0C00	;R/W nibble buffer
BUF2		EQU	$0D00	;R/W nibble buffer
BUF3		EQU	$0E00	;R/W nibble buffer
BUF_SIZ		EQU	$00B0	; nibble buffer size
;
VARS_AREA		EQU	SECTBUF+798	; start of variable area
*
*  IWM Locations
*
IWM		EQU	$C0E0
*
CA0CLR		EQU	IWM+0
CA0SET		EQU	IWM+1
CA1CLR		EQU	IWM+2
CA1SET		EQU	IWM+3
CA2CLR		EQU	IWM+4
CA2SET		EQU	IWM+5
LSTRBCLR		EQU	IWM+6
LSTRBSET		EQU	IWM+7
DESELECT		EQU	IWM+8
SELECT		EQU	IWM+9
ENABLE1		EQU	IWM+10
ENABLE2		EQU	IWM+11
L6CLR		EQU	IWM+12
L6SET		EQU	IWM+13
L7CLR		EQU	IWM+14
L7SET		EQU	IWM+15
*
* ISM register Equates
*
IsmDataW		EQU	IWM+0
IsmMarkW		EQU	IWM+1
IsmCRCW		EQU	IWM+2	;if action = 1
IsmConfigW	equ	IWM+2	;if action = 0
IsmParmsW		equ	IWM+3
IsmPhaseW		equ	IWM+4
IsmSetupW		EQU	IWM+5
IsmMode0W		EQU	IWM+6
IsmMode1W		EQU	IWM+7

IsmDataR		equ	IWM+8	; if action = 1
IsmCorrR		EQU	IWM+8	; if action = 0
IsmMarkR		EQU	IWM+9
IsmErrorR		equ	IWM+10
IsmParmsR		EQU	IWM+11
IsmPhaseR		EQU	IWM+12
IsmSetupR		EQU	IWM+13
IsmModeR		EQU	IWM+14
IsmHndShR		EQU	IWM+15

*
*        Disk control register
*
DISKREG		EQU	$C031	; enable 3.5 & head select
SHADOW		EQU	$C035	;used in FastBufr routine 7/88 joa
*
* Equates for Host Communication
*
BSYSET		EQU	CA0SET
BSYCLR		EQU	CA0CLR
*
CMDMARK		EQU	$80	;Command packet type
STATMARK		EQU	$81	;Status packet type
DATAMARK		EQU	$82	;Data packet type
*
PACKETBEG		EQU	$C3
PACKETEND		EQU	$C8
HOSTID		EQU	$80
*
;
;
;              Commands
;
EXT_CMD		EQU	$40	; bit 6 set = extended cmd.
CMDREAD		EQU	$1	;Read command from host
CMDWRITE		EQU	$2	;Write command from host
CMDSTATUS		EQU	$0	;Status command from host
CMDFORMAT		EQU	$3	;Format command from host
CMDCONTROL	EQU	$4	;Control command from host
CMDDEFID		EQU	$5	;INIT command from host
MAC_READ		EQU	$08	; Macintosh 524 block read
MAC_WRITE		EQU	$09	; Macintosh write call 512 bytes
CMDSETFMT		EQU	$0A
CMDGETFMT		EQU	$0B
CMDRAWRD		EQU	$0C
CMDTRFLG		EQU	$0D
;
*
STATVAL		EQU	%11111100	;Basic PC Device Standard Status
SVMASK1		EQU	%00010000	;DIP bit in standard status byte
SVMASK2		EQU	%00000100	;WRPROT bit in std stat byte
SVMASK3		EQU	%00000001	;swap bit in std stat byte
*
*
TCONSTANT		EQU	100	; constant for 2 Mhz clock
		TITLE	'I/O Port Equates'
*
*
* Drive PAL Control Constants
*
* Command (Write) addresses
DIRINADR		EQU	0	;0 -> /DIRTN : set dir in
DIROUTADR		EQU	1	;1 -> /DIRTN : set dir out
READ0ADR		EQU	1	;Read data head 0
READ1ADR		EQU	3	;Read data head 1
EJCT_RESET	EQU	3	; reset disk ejected bit
STEP0ADR		EQU	4	;0 -> /STEP : step a track
STEP1ADR		EQU	5	;1 -> /STEP
DRIVMFMADR	EQU	6	;0 -> Driv mode := MFM mode
DRIVGCRADR	EQU	7	;1 -> Driv mode := GCR mode
MTRONADR		EQU	8	;/MOTORON
MTROFFADR		EQU	9
EJECT1ADR		EQU	13	;1 -> /EJECT : eject the disk
* Sense (Read) Addresses
DIPADR		EQU	2	;/CSTIN : sense disk in place
FDHDADR		EQU	5	; FDHD  : read drive type bit
WPROTADR		EQU	6	;/WRTPRT : sense write protect
MFMMODEADR	EQU	7	;MFMMODE : sense drive mode
SIDESADR		EQU	9	; SIDES : sense single/dual head
TK0ADR		EQU	10	;/TK0 : sense recal posn
READYADR		EQU	11	;/READY : ready to read or write
EJCTADR		EQU	12	;0   -> Read disk ejected latch (in gate array)
DRVXSTADR		EQU	13	;/DRVIN : sense if a drive is there
TACHADR		EQU	14	;/TACH : sense motor speed
MEDIAADR		EQU	15	;/HDMEDIA : sense media type (FDHD only)
*
*  ERROR codes
*
IOERROR		EQU	$27	;I/O error bit 
NODRVERR		EQU	$28	; no device connected error
OFFLINE		EQU	$2F	;Disk is offline
WPERROR		EQU	$2B	;Write Protect 
IBNERROR		EQU	$2D	;Illegal Block Number 
DSWERROR		EQU	$2E	; disk switched error
CMDERROR		EQU	$01	;Illegal Command Type 
PCOUNTERR		EQU	$04	;Wrong # of parameters
LASTERROR		EQU	$40	;Returned on DEFID call
CODERROR		EQU	$21	;Control or status code error (wrong Media Type)
BCPARMCNT		EQU	$22	; invalid control parameter count
SOFTERROR		EQU	$27+$40	;Soft I/O error
*
*  ERROR2 Byte Masks
*
S1ERROR		EQU	$40	;spare
ADRERROR		EQU	$20	;Address Field error
DCSERROR		EQU	$10	;Data Field Checksum error
DBSERROR		EQU	$08	;Data Field Bitslip error
SFTSKERROR	EQU	$04	;An apparent mis-seek
SEEKERROR		EQU	$02	;Seeking error
*
*    Sethook, Resethook, setmark, Resetmark error codes
*
BHOOK_ERR		EQU	$30	; invalid hook number
BMARK_ERR		EQU	$31	; mark table range error
XLV_ERR		EQU	$32	; invalid interleave
SIDE_ERR		EQU	$33	; invalid side value error
UNDERUN_ERR	EQU	$34	;format error
NOINDEX_ERR	EQU	$35	;mfm format error
;
SWAP		EQU	$20	; swap bit mask for temp
;
		TITLE	'$E1BANK Variable Storage'
E1_AD35VARS	RECORD	0
		ORG	VARS_AREA-30	; variable storage area
*
* Permanent Storage
*
XLVTAB		DS.B	18	;needed later for MFM formatting
STSSAV		DS.B	12	;spare for now 7/88 JOA
EXT_FLAG		DS.B	1	; extended command flag
UNITCNT		DS.B	1	;number of units attached
*
UNITID		EQU	*	;SmartPort UnitNo for each drive
UNITA		DS.B	1	;accessed via ENABL1
UNITB		DS.B	1	;accessed via ENABL2
		DS.B	1	;for future expansion
		DS.B	1	;for future expansion
*
UNITFLAGS		EQU	*	;flags for drive unit mode
*  b7  = double sided volume flag ($80)
*  b6  = MFM mode as of last accesss
*  b5  = FDHD drive type (MFM & GCR capable)
*  b4  = NO Chuckwait before next access
*  b0..b3  reserved for future expansion
*
UFCHUKWAIT	EQU	$10
UFFDHD		EQU	$20
UFMFM		EQU	$40
UFDBLSIDED	EQU	$80
*
		DS.B	1	; unit  a
		DS.B	1	; unit  b
		DS.B	1	;future expansion
		DS.B	1	;future expansion
*
* Temporary Storage
*
DRIVE		DS.B	1
CYL		DS.B	1
SECTOR		DS.B	1
TRACK		EQU	SECTOR	;used by TrkRead
SIDE		DS.B	1
CURNSECT		DS.B	1
CLASS		DS.B	1
SENSBITS		DS.B	1
DBLSIDED		DS.B	1	;setup by each call to ReadAdrs 
SECTINFO		EQU	*
CSFND		DS.B	1
FMTFND		DS.B	1
SIDEFND		DS.B	1
SECTFND		DS.B	1
TRKFND		DS.B	1
SEEKRET		DS.B	1
ADRSRET		DS.B	1
READRET		DS.B	1
MFMFLAG		DS.B	1
DRVTOASSIGN	DS.B	1	;count of drivs to assign by InitCmd
*
CURCYL		DS.L	1	;current cylinder 
*
VOLSTS		DS.L	1	;volume status 
VSEJCTED		EQU	$80
VSOFFLINE		EQU	$40
VSWRPROT		EQU	$20
*   b7  = ejected latch set
*   b6  = Offline volume
*   b5  = Wr Prot volume
* b0..4 = Volume type (400/800/720/1440K )
*
DRSWTCH		DS.B	1	;Direct Read switch
*
*  Error Byte Storage
*
STATUSTAB		EQU	*
ERROR1		DS.B	1	;Unused
ERROR2		DS.B	1	;Error byte
RETRY		EQU	*
ERROR3		DS.B	1
ERROR4		DS.B	1
ERROR5		DS.B	1
ERROR6		DS.B	1
ERROR7		DS.B	1
ERROR8		DS.B	1
*
NSBYTES		EQU	*-STATUSTAB
*
STATBYTE		DS.B	1	;PC status code (hi bit set)
*
PRIORSTS		DS.B	1	;saved by EnblnSens
FAKEBIT		DS.B	1	;constant in E1 used by EnblnChk
TRKCNT		DS.B	1	;used by TrkRead
*
INTERLEAVE	DS.B	1	;Formatter interleave input
FORMSIDES		DS.B	1	;Formatter # sides input
*
MAC_FLAG		DS.B	1
*
FMTOPTION		DS.B	4	;
*
MIDEJECT		DS.B	1
;
;
MARKTAB		EQU	*	;Address, data mark table
AFDMTAB		DS.B	1	;Data sector nibble
DATAMARKS		DS.B	4
SYNCTAB		DS.B	5
BSMARKS		DS.B	1
BSLIP2		DS.B	1
BSLIP1		DS.B	1
		DS.B	5	;adrguts (ck,fmt,side,sect,trk)
ADRMARKS		DS.B	4
MARKTABLEN	EQU	*-MARKTAB
		ENDR
;
	; SEG	Data_bank	; ram vectors
		EQUSECT	$E10F6D
HOOKS		EQUDS	*	;Copy Protection Vectors
		EQUDS.W	1	;Length
RDADDRHOOK	EQUDS.L	1
		EQUDS.L	1
READDATAHOOK	EQUDS.L	1
		EQUDS.L	1
WRITEDATAHOOK	EQUDS.L	1
		EQUDS.L	1
SEEKHOOK		EQUDS.L	1
		EQUDS.L	1
FORMATHOOK	EQUDS.L	1
		EQUDS.L	1
WRITETRKHOOK	EQUDS.L	1
		EQUDS.L	1
VERIFYHOOK	EQUDS.L	1
		EQUDS.L	1
VECTORHOOK	EQUDS.L	1
		EQUDS.L	1
HOOKS_END		EQUDS	*
	
HOOKTABLEN	EQU	(HOOKS_END-HOOKS)-2	;Don't include this word
*
MAXHOOK		EQU	(HOOKS_END-HOOKS-2)/8	; number of hooks in table
		ENDSECT
*****************************************************
*            Zero page work areas
*
*                The Command Table
*****************************************************
AD35_ZPAGE	RECORD	$42
CMDTAB		EQU	*	; start of command table
CMDBUFFL		DS.B	1	; lower three bytes of buffer address
		DS.B	1	;
		DS.B	1	;
CMDCODE		DS.B	1	; command number
CMDPCOUNT		DS.B	1	; number of parameters
		DS.B	1	; upper byte of buffer bits 24-31
CMDBLOCKL		DS.B	1	; bits 0-7 of block number
CMDBLOCKH		DS.B	1	;
CMDSCODE		EQU	CMDBLOCKL	; if control call then control number
CMDCOUNT		EQU	CMDBLOCKL	;if GetFmtOpts call
CMDBLKEXTL	DS.B	1	;
CMDBLKEXTH	DS.B	1	;
		DS.B	1	;3rd byte of address parm
CMDADRS		EQU	CMDBLKEXTL	;adrs for ReadBytes & WriteBytes
		DS.B	1	;4th byte of address parm (unused)
*
*           driver zero page work area
*
CMDUNIT		DS.B	1	; 
;
CSUM		DS.B	1
CSUMC		DS.B	1
CSUMB		DS.B	1
CSUMA		DS.B	1
WCSUM		DS.B	1
;
BASEPAGE		DS.B	1	;used by TrkRead
FMTSECT		EQU	*	;used by mfmWriteTrk
CBYTE1		DS.B	1	;used by WritePrep, Write
CBYTE2		DS.B	1	; "          "        "   
CBYTE3		DS.B	1	; "          "        "
;
EXINDEX		DS.B	1	; extra bits
EXINDEX2		DS.B	1	;
;
TEMP		DS.B	1	;used by WAITMS
TEMP2		DS.B	1	;used by WAITMS
fmtTrkretry	DS.B	1
;
BASESAVE		DS.B	1	;trkread basepage save temp
		DS.B	1
STSMOTOR		DS.B	1	;status call motorOn state at entry
		IF * > $62 THEN
		WRITELN 	'TOO MUCH A3.5 ZERO PAGE'
		ENDIF
ZPG_SIZE		EQU	*-CMDTAB	; number of zero page bytes
		ENDR
;
;
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSFirmware/AD3.5Driver/mainline.aii b/IIGS.601.SRC/GSFirmware/AD3.5Driver/mainline.aii
new file mode 100644
index 0000000..f1e7dae
--- /dev/null
+++ b/IIGS.601.SRC/GSFirmware/AD3.5Driver/mainline.aii
@@ -0,0 +1 @@
+		TITLE	'Reset Service'

;	This EdAsm/Asm816 source code file was converted to AsmIIGS
;	by EdAsmCvtIIGS version 1.2d8 on 5/16/91 at 9:21:58 PM

*****************************************************************
*                                                               *
*       This is the main entry point for the Phoenix sony       *
*       driver. It expects to finds call parameters in page     *
*       0, starting at address $42.  The number of parameters   *
*       will vary depending on the type of call.                *
*                                                               *
*       ON ENTRY : X-reg = unitno from SmartPort firmware       *
*                                                               *
*****************************************************************
DSONY_ENTRY	EQU	*	;
		JSR	regs_setup	; set up DBR,CYA,/ENBL35, & save X
		STZ	mac_flag	; reset mac command marker
		LDA	#$A5
		CMP	power1
		BEQ	warmstart	; drives ready go to it
		STA	power1	;set power1 for next InitCmd 
*
* Now, initialize the formatter values and clr the timeout counters
;
		JSR	InitFormat
*
		JSR	InitHooks	;Set the hooks
		JSR	initmarks	; set up mark tables
*
* Now initialize stuff and locate the drives (eject blanks)
		JSR	configure	; assign drives which need IDs
*
* There is the possibility that a reset occurred while an eject was
*  in progress.  Some drives will fail in this case.  In an attempt
*  to minimize the risk, we retry the eject if it was interrupted.
*
WARMSTART		EQU	*
		BIT	MidEject	;The flag is now in N bit
		BMI	reset1	;If hi, forget it
		LDX	mideject	;This has the drive number
		STX	drive	;this occurs before Vector sets drive
		JSR	EnblDrivX
		JSR	Eject	;Try again
RESET1		EQU	*
************************************************************
*                                                          *
* mainline                                 Top level loop  *
*                                                          *
*   This is the driving force behind the operation of the  *
* firmware.  It does three things- gets a command from     *
* the host, services the command, and returns the status.  *
*                                                          *
************************************************************
MAINLINE		EQU	*
*
* Jump to the appropriate service routine.  Set status bytes.
		JSR	vector
* 
* Besure to always put SWIM back into IWM mode on exit
		BIT	MFMflag	;was ISM used
		BPL	@noISMuse
		JSR	SelectISM
		JSR	DisableISM
@noISMuse		EQU	*
*
* return to caller with a status
		BIT	DeSelect	; start drive's timer
		STZ	diskreg	; remove /ENBL3.5
		CLC
		LDA	statbyte	;
		STA	stssav-2	;save error status for dbug
		BEQ	all_done	; go home
		SEC		; something wrong, flag it.
ALL_DONE		RTS
*
		TITLE	'ColdStart Initializations'
****************************************************
INITFORMAT	EQU	*
		LDA	#XLeaveDef
		STA	Interleave
		LDA	#$80	;Double sided drives default
		STA	formsides
		STZ	FmtOption
		STZ	FmtOption+1
		RTS
*
*
INITHOOKS		EQU	*
		LDX	#HookTabLen+1
RST2		LDA	>HookTab,x
		STA	Hooks,x
		DEX
		BPL	rst2
		RTS		; >>>--- exit Inithooks --->>>
;
*
INITMARKS		EQU	*	;
		LDX	#MarkTabLen-1
RST3		LDA	>MarkTabVals,x
		STA	MarkTab,x
		DEX
		BPL	rst3
		RTS
*
*
NO_DRIVES		LDA	#nodrverr	; no drive connected
SET_ERR		SEC		; return with error status
		STA	statbyte	; save the status
		RTS
;
;
		TITLE	'wait table for timers'
	; SEG	code	;
FMTWTAB		DC.B	25,25,25,25,150
*
VOLSIZETBL	EQU	*
		DC.W	0000	;0 = unknown
		DC.W	0800	;2 = 400K 
		DC.W	1600	;4 = 800K 4:1
		DC.W	2880	;6 = 1400K MFM 
		DC.W	1440	;8 = 720K 
		DC.W	2880	;A = 1440K MFM 2:1
		DC.W	1600	;C = 800K 2:1 
	; SEG	fake_it
*
		TITLE	'Denibbilizing Table'
******************************************************
*                                                    *
*          7 bit to 6 bit 'Deniblize' Table          *
*                                                    *
*          Valid codes are $96 to $FF only           *
*     Codes with more than one pair of adjacent      *
*      zeroes or with no adjacent ones (except       *
*               bit 7) are excluded.                 *
*                                                    *
*      This table *must* be aligned at the end       *
*               of a page in memory.                 *
*                                                    *
******************************************************
	; SEG	code	; rom bank
XB		EQU	(*-Rel~Org+Bnk~Org)**$00FF	;
*
		DCB.B	$96-XB,0		;Pad up to $XX96 
DNIBTAB		EQU	*-$96
*
		DC.B	$00,$01,$98
		DC.B	$99,$02,$03
		DC.B	$9C,$04,$05
		DC.B	$06,$A0,$A1
		DC.B	$A2,$A3,$A4
		DC.B	$A5,$07,$08
		DC.B	$A8,$A9,$AA
		DC.B	$09,$0A,$0B
		DC.B	$0C,$0D,$B0
		DC.B	$B1,$0E,$0F
		DC.B	$10,$11,$12
		DC.B	$13,$B8,$14
		DC.B	$15,$16,$17
		DC.B	$18,$19,$1A
		DC.B	$C0,$C1,$C2
		DC.B	$C3,$C4,$C5
		DC.B	$C6,$C7,$C8
		DC.B	$C9,$CA,$1B
		DC.B	$CC,$1C,$1D
		DC.B	$1E,$D0,$D1
		DC.B	$D2,$1F,$D4
		DC.B	$D5,$20,$21
		DC.B	$D8,$22,$23
		DC.B	$24,$25,$26
		DC.B	$27,$28,$E0
		DC.B	$E1,$E2,$E3
		DC.B	$E4,$29,$2A
		DC.B	$2B,$E8,$2C
		DC.B	$2D,$2E,$2F
		DC.B	$30,$31,$32
		DC.B	$F0,$F1,$33
		DC.B	$34,$35,$36
		DC.B	$37,$38,$F8
		DC.B	$39,$3A,$3B
		DC.B	$3C,$3D,$3E
		DC.B	$3F
;
;
	; SEG	fake_it	; make code run in bank $00
		TITLE	'Nibble Table'
******************************************************
*                                                    *
*           6 bit to 7 bit 'Niblize' Table           *
*                                                    *
*          Valid codes are $96 to $FF only           *
*     Codes with more than one pair of adjacent      *
*      zeroes or with no adjacent ones (except       *
*               bit 7) are excluded.                 *
*                                                    *
******************************************************
	; SEG	code
NIBTAB		EQU	*
		DC.B	$96,$97,$9A
		DC.B	$9B,$9D,$9E
		DC.B	$9F,$A6,$A7
		DC.B	$AB,$AC,$AD
		DC.B	$AE,$AF,$B2
		DC.B	$B3,$B4,$B5
		DC.B	$B6,$B7,$B9
		DC.B	$BA,$BB,$BC
		DC.B	$BD,$BE,$BF
		DC.B	$CB,$CD,$CE
		DC.B	$CF,$D3,$D6
		DC.B	$D7,$D9,$DA
		DC.B	$DB,$DC,$DD
		DC.B	$DE,$DF,$E5
		DC.B	$E6,$E7,$E9
		DC.B	$EA,$EB,$EC
		DC.B	$ED,$EE,$EF
		DC.B	$F2,$F3,$F4
		DC.B	$F5,$F6,$F7
		DC.B	$F9,$FA,$FB
		DC.B	$FC,$FD,$FE
		DC.B	$FF
*
		DC.B	$96,$97,$9A
		DC.B	$9B,$9D,$9E
		DC.B	$9F,$A6,$A7
		DC.B	$AB,$AC,$AD
		DC.B	$AE,$AF,$B2
		DC.B	$B3,$B4,$B5
		DC.B	$B6,$B7,$B9
		DC.B	$BA,$BB,$BC
		DC.B	$BD,$BE,$BF
		DC.B	$CB,$CD,$CE
		DC.B	$CF,$D3,$D6
		DC.B	$D7,$D9,$DA
		DC.B	$DB,$DC,$DD
		DC.B	$DE,$DF,$E5
		DC.B	$E6,$E7,$E9
		DC.B	$EA,$EB,$EC
		DC.B	$ED,$EE,$EF
		DC.B	$F2,$F3,$F4
		DC.B	$F5,$F6,$F7
		DC.B	$F9,$FA,$FB
		DC.B	$FC,$FD,$FE
		DC.B	$FF
*
		DC.B	$96,$97,$9A
		DC.B	$9B,$9D,$9E
		DC.B	$9F,$A6,$A7
		DC.B	$AB,$AC,$AD
		DC.B	$AE,$AF,$B2
		DC.B	$B3,$B4,$B5
		DC.B	$B6,$B7,$B9
		DC.B	$BA,$BB,$BC
		DC.B	$BD,$BE,$BF
		DC.B	$CB,$CD,$CE
		DC.B	$CF,$D3,$D6
		DC.B	$D7,$D9,$DA
		DC.B	$DB,$DC,$DD
		DC.B	$DE,$DF,$E5
		DC.B	$E6,$E7,$E9
		DC.B	$EA,$EB,$EC
		DC.B	$ED,$EE,$EF
		DC.B	$F2,$F3,$F4
		DC.B	$F5,$F6,$F7
		DC.B	$F9,$FA,$FB
		DC.B	$FC,$FD,$FE
		DC.B	$FF
*
		DC.B	$96,$97,$9A
		DC.B	$9B,$9D,$9E
		DC.B	$9F,$A6,$A7
		DC.B	$AB,$AC,$AD
		DC.B	$AE,$AF,$B2
		DC.B	$B3,$B4,$B5
		DC.B	$B6,$B7,$B9
		DC.B	$BA,$BB,$BC
		DC.B	$BD,$BE,$BF
		DC.B	$CB,$CD,$CE
		DC.B	$CF,$D3,$D6
		DC.B	$D7,$D9,$DA
		DC.B	$DB,$DC,$DD
		DC.B	$DE,$DF,$E5
		DC.B	$E6,$E7,$E9
		DC.B	$EA,$EB,$EC
		DC.B	$ED,$EE,$EF
		DC.B	$F2,$F3,$F4
		DC.B	$F5,$F6,$F7
		DC.B	$F9,$FA,$FB
		DC.B	$FC,$FD,$FE
		DC.B	$FF
	; SEG	fake_it
;
		TITLE	' Hook & Mark tables'
*
* Hook Table Initial Values
*
	; SEG	code	; force bank
		DC.B	$AB,$6B
HOOKTAB		EQU	*
		DC.W	HOOKTABLEN	;There are this many bytes
		JMP	>RdAddr~GCR
		JMP	>RdAddr~GCR
		JMP	>ReadData~GCR
		JMP	>ReadData~GCR
		JMP	>WriteData~GCR
		JMP	>WriteData~GCR
		JMP	>Seek+4
		JMP	>Seek+4
		JMP	>Format~Vol
		JMP	>Format~Vol
		JMP	>WriteTrk~GCR
		JMP	>WriteTrk~GCR
		JMP	>Verify~GCR
		JMP	>Verify~GCR
		JMP	>Vector+4
		JMP	>Vector+4
*
MARKTABVALS	EQU	*	;Address, data mark table
		DC.B	$FF	;Data sector nibble
		DC.B	$AD,$AA,$D5,$FF
		DC.B	$FC,$F3,$CF,$3F,$FF
		DC.B	$FF
		DC.B	$AA
		DC.B	$DE
		DC.B	$FF,$FF,$FF,$FF,$FF
		DC.B	$96,$AA,$D5,$FF
*
	; SEG	fake_it
*
		TITLE	'Command Code Vector Routine'
************************************************************
*                                                          *
*  vector                 Multi-way branch on the cmdcode  *
*                                                          *
*   This routine looks at the command type byte in the     *
*  command table and if it is not a legal code sets the    *
*  illegal command status bit.  Otherwise control is       *
*  transferred to the routine which supports the command.  *
*  Just before vectoring, this routine clears the status.  *
*                                                          *
*  Input:   cmdcode                                        *
*  Regs:    A,X destroyed                                  *
*           Y   preserved                                  *
*           error1 altered if cmdcode error                *
*  Time:    166 microseconds (maximum)                     *
*                                                          *
************************************************************
	; SEG	code
VECTOR		EQU	*
	; SEG	fake_it	;
		JMP	VectorHook
*
* If there are drive IDs to assign, skip the drive selection
*
		LDA	Cmdcode
		CMP	#cmdDefID	;init command?
		BEQ	@10	;yes. don;t check unit number
*
* Decide which drive is meant
*
		LDX	#00
		LDA	cmdUnit
@01		CMP	UnitId,x
		BEQ	@03
		INX
		CPX	#maxdrivs
		BCC	@01
*
		LDA	#$11	;bad unit error
		STA	statbyte
		RTS
@03		STX	drive	;define drive to use
*
* Clear out the status area if NOT a status call
*
@10		LDA	CMDCode
		BEQ	skipclrsb
		LDX	#6
VEC1		STZ	statustab,x
		DEX
		BPL	vec1
*
* Set up the length of the default status string (=0) and statbyte
*
SKIPCLRSB		EQU	*
		STZ	statbyte	; clear status byte
*
* Okay, now multi-way branch
*
		LDA	CMDCode
		CMP	#ncommands
		BLT	cmdokay
*
* Command code was not within legal bounds. Flag as an error
*
ILLCMDCODE	EQU	*
		LDA	#cmderror
		BRL	set_err	; mark an error
*
CMDOKAY		EQU	*
		TAX
		LDA	>parmctab,x
		AND	#%01111111	;Strip Top bit
		CMP	CMDPCount
		BEQ	goforit
*
FLAGPCERR		EQU	*
		LDA	#PCountErr
		BRL	set_err	; mark an error
*
GOFORIT		EQU	*
		TXA		;CMDCode is still in X
		ASL	a	;Convert to word index 
		TAX
		JMP	(fntable,x)	; Vector to the routine
CLOSERTS		EQU	*	;
		RTS		; Vector to the routine
*
	; SEG	code	;
FNTABLE		DC.W	STATUS
		DC.W	READBLK
		DC.W	WRITEBLK
		DC.W	FORMATVOL
		DC.W	CONTROL
		DC.W	INITCMD
		DC.W	ILLCMDCODE	;No opens
		DC.W	ILLCMDCODE	;No Closes
		DC.W	MACREAD	;Read nnnn bytes
		DC.W	MACWRITE	;Write nnnn bytes
		DC.W	SETFMTOPT	;Set Format Options
		DC.W	GETFMTOPT	;Get Format Options
		DC.W	RAWREAD	;Raw Track Read
*
NCOMMANDS		EQU	(*-FNTABLE)/2
*
PARMCTAB		EQU	*
		DC.B	%00000011	;Status:  3 parms/no data send
		DC.B	%00000011	;Read:    3 parms/no data send
		DC.B	%10000011	;Write:   3 parms/data send
		DC.B	%00000001	;Format:  1 parm /no data send
		DC.B	%10000011	;Control: 3 parms/data send
		DC.B	%00000010	;Init:    2 parm /no data send
		DC.B	%00000001	;Open: not used
		DC.B	%00000001	;Close: not used
		DC.B	%00000100	;CharRead: 4 parms/data send
		DC.B	%10000100	;CharWrite: 4 parms/data send
		DC.B	%00000011	;SetFmtOpt
		DC.B	%00000011	;GetFmtOpt
		DC.B	%00000100	;RawRead
		DC.B	%00000010	;filler for t&rf
	; SEG	fake_it	;
		TITLE	'Status Request Handler'
****************************************************************
*                                                              *
*  Status                        Handles a status request      *
*                                                              *
****************************************************************
STATUS		EQU	*
		LDA	CMDSCode	;Get the control code
		CMP	#nscodes	;Check for boundary
		BLT	statokay	;It's within range
*
		BRL	IllCode
*
* Code is okay... do the multi-way branch
*
STATOKAY		EQU	*
		ASL	a
		TAX
		LDA	>sctable+1,x
		PHA
		LDA	>sctable,x
		PHA
		LDX	drive
		STZ	stsmotor	;assume timer cancel mode
		RTS		; go to the routine called
*
	; SEG	code	;
SCTABLE		EQU	*
		DC.W	BASICSTAT-1
		DC.W	ILLCODE-1
		DC.W	ILLCODE-1	;Char dev only
		DC.W	STATDIB-1
		DC.W	ILLCODE-1
		DC.W	STATDEV-1
		DC.W	GET_VARS-1	; variable area dump
		DC.W	GET_BUFF_ADDR-1	; buffers address dump
*
STATTEND		EQU	*
NSCODES		EQU	(STATTEND-SCTABLE)/2
	; SEG	fake_it	;
*
*
STATDIB		EQU	*
		JSR	BasicStat	;Sets first four bytes
*
		TXY		; get current number of bytes
		LDX	#00	;Get length of additional data
SDMORE		EQU	*
		LDA	>DIBString,x
		STA	[cmdbuffl],y	; save device name
		INY		;
		INX		; bump index
		CPX	#DIBSLen	; moved all bytes
		BCC	sdmore	; keep going until all bytes moved
		TYX		; save byte count transfered
		BIT	ext_flag
		BPL	@10
		DEY
		DEY
		DEY		;bak up to devsubtype offset
		LDA	[cmdbuffl],y
		ORA	#01
		STA	[cmdbuffl],y	;set the SuperCmds bit 
@10		LDY	#00
		RTS
*
	; SEG	code	;
DIBSTRING		EQU	*
		DC.B	IDSL
IDSTRING		DC.B	'DISK 3.5'
*
IDSL		EQU	*-IDSTRING	;ID string length
*
		DCB.B	16-IDSL,$20	;Pad with spaces
		DC.B	DEVTYPE
		DC.B	DEVSUBTYPE
		DC.W	VERSION
*
DIBSLEN		EQU	*-DIBSTRING	;This is the entire DIB length
	; SEG	fake_it	;
*
*
STATDEV		EQU	*
		LDY	#nsbytes	; copy status table to users buffer
SDLOOP		LDA	statustab,y	;
		STA	[cmdbuffl],y	;
		DEY		;
		BPL	sdloop	;
		STZ	statbyte
		LDX	#09
		BRL	stat_exit
******************************************************
*
******************************************************
BASICSTAT		EQU	*
		STZ	statbyte	;clear error code
		JSR	EnblnSens	;enable drive and sense status
		IF 0	THEN	;remove it for now
		PHP		;returns v=1 if offline n=1 if dsw
* Now record the MotorOn state of the drive
		BIT	ext_flag	;extended status call?
		BVC	@05	;nothing doing
		LDA	cmdscode	;statcode = 00?
		BEQ	@05	;yes.
		LDA	#mtronadr
		JSR	ReadBit	;get motorON state 
		BMI	@05	;Motor if off. (a good guess)
		DEC	stsmotor	;select leave timer ON mode
@05		PLP
		ENDIF
		PHP
		LDA	#VSwrprot
		AND	volsts,x
		LSR	a
		LSR	a
		LSR	a
		ORA	#$E8
		BVS	@10
		ORA	#svmask1	;assert online
@10		PLP
		PHP
		BMI	@15	;disk was ejected
		BVS	@20	;offline so skip this
		BIT	priorsts	;is this an offline/online transition?
		BVC	@20	;no. otherwise signal 'switched'
@15		BIT	ext_flag
		BVC	@20
		ORA	#svmask3	;add in dsw
@20		EQU	*
		STA	stssav-1	;save where analyzer can see it
		STA	[cmdbuffl]	;Store the device status byte
*
* Now I may need to process a volume type change before
* I can know how many block are on the new volume
		PLP		;do I have a volume
		BVC	@30	;online volume present
		JSR	OfflineX	;set volsts to offline&unknown
		JSR	ClearDSW
		BRA	@50	;return zero block count
@30		BPL	@40	;DIP true and DSW false! 
		JSR	UnkVolx	;mark voltype unknown
		JSR	ClearDSW
@40		LDA	volsts,x
		AND	#$1F	;is voltyp known?
		BNE	@60	;yes. so I am all setup
@45		JSR	mountvol	;set VOLTYP if I can 
@50		EQU	*
		LDX	drive	;Whichever drive...
		LDA	volsts,x	;a=zero if voltype is unknown
		AND	#$1F	;extract voltype index
@60		TAX
		LDA	>volsizetbl,x	;return volsize zero
		LDY	#01
		STA	[cmdbuffl],y	;
		INY		;
		LDA	>volsizetbl+1,x	;
		STA	[cmdbuffl],y	;
		INY		;
		LDA	#$00	;
		STA	[cmdbuffl],y	;Hi- we're always zero here
		INY		;
		BIT	ext_flag	; bit 6 set if extended
		BVC	@90	; otherwise go away
		STA	[cmdbuffl],y	; the volume size is four bytes
		INY		; if extended command
@90		TYX		; save byte count
STAT_EXIT		LDY	#$00	; reset high byte of byte count
		BIT	stsmotor	;should I reset drive timer?
		BMI	@100	;no
		STZ	diskreg	; disable drive timer by DEasserting /ENBL35 
@100		RTS		;before Deselect in mainline
;
;
	; SEG	code
STATMASKS		EQU	*	; status bits for wrprot, dip, swap
	; SEG	fake_it
		DC.B	SVMASK3,SVMASK1,SVMASK2
;
;
		TITLE	'Read or Write a Block'
************************************************************
*                                                          *
* readBlk, writeBlk           Block read and write         *
*                                                          *
*   This is the top level read/write routine.  It maps     *
*  the block number to cyl, sect, side, and proceeds to    *
*  attempt to read or write the requested block.  Up to 4  *
*  reseeks and 200 retries on address and data errors are  *
*  performed.  A recal and reseek is done after the 100th  *
*  retry.                                                  *
*                                                          *
*   Uses:    blkmap, rdaddr, read, write, seek, & recal    *
*   Input:   blocknol, blocknoh, cmdcode, drive            *
*   Output:  C <- set if a fatal error                     *
*                 clr ow                                   *
*            error2 <- bits set if error (soft or hard)    *
*                                                          *
************************************************************
READBLK		EQU	*
		STZ	UNITID+3
		CLC
		BRA	RdWr
*
WRITEBLK		EQU	*
*
* do the checksum prepass on the data
*
		LDX	#175	;
		LDY	#$00	; assume a mac write call
		LDA	mac_flag	; check for mac write cmd
		BNE	write_entry	;
		LDY	#$04	; Can't be right all the time!
ZAP_LOOP		EQU	*	;
		STZ	buf1,x	; 4 bytes each buffer
		STZ	buf2,x	;
		STZ	buf3,x	;
		DEX		;
		DEY		; decrement count
		BNE	zap_loop	; when all done, then prepare the data
WRITE_ENTRY	EQU	*	;
		JSR	writeprep	; split data & generate cksum
*
* Check for DIP, DSW and WRPROT 
*    
		SEC
RDWR		EQU	*
		JSR	SensnChk	;enable,Sense, and chk volsts
		BCS	@05	; some error: Offline,DSWerr,WPerr
		BPL	@CHK_BLK	;no need to mount volume
		JSR	MountVol	;online after switch or unknown voltyp
		BCC	@CHK_BLK	;mount worked!
@05		STA	statbyte	;record error code
@rtn		RTS		; something happened go away
*
* Check block number; map to side, cylinder, sector
*
@CHK_BLK		JSR	blockchk
		BCS	@rtn	;
* Now setup the ISM with 16M clk and params if this is MFM volume
		LDX	drive
		LDA	#UFmfm		;fdhd bit mask
		BIT	unitflags,x	;is this MFM volume 
		BEQ	@notMFMvol
		BIT	mac_flag		;is this a read/write bytes CMD?
		BPL	@mfmok		;no
* later this should generate 12 fake tag bytes and add 12 to the buffer pointer 
* fake tag bytes to read "John Arkley!"
		LDA	#coderror		;WRONG MEDIA TYPE for now
		STA	statbyte
		RTS
@mfmok		LDA	#$80
		TSB	MFMflag		;b7 = mfm  b6 = ISM enabled
		JSR	EnableISM		;enable ISM and 16M FCLK
		JSR	SetMFMParms	;set the timing params for 15.6672 Mhz
		JSR	DeSelectISM	;back to IWM until I/O (for now)
@notMFMvol	EQU	*
*
* Now translate the blocknum into cyl, side, sect
		JSR	blkmap
*
* Now determine if direct read can be used
		LDA	cmdcode
		CMP	#cmdread
		BNE	@10
 		JSR	FastBufr	;determine if buffer is in fast memory
		LDX	drive
@10		EQU	*
*
* Set up the maximum number of retries and reseeks
*
		LDA	#maxseeks
		STA	seekret
*
		LDA	#maxret
		STA	readret	;Set sector counter
*
* Now turn on the drive motor BUT set FDHD MFM/GCR mode before a motor turn-on
		JSR	MotorOn	;
*
* Check if we have reseeked enough to recal...
*
MORESEEK		EQU	*
		LDA	seekret
		CMP	#skrclthrsh
		BNE	aseek	;If not two reseeks, no recal 
*
* Do a recal before seeking
*
ARECAL		EQU	*
		JSR	recal
*
* Seek to the cylinder in cyl
*
ASEEK		EQU	*
		JSR	seek
		BCC	grabheadr	;If no error, get an adr field 
OOPSEEK		EQU	*
		JSR	SelectIWM
*
* There was a seek error ("hard" or "soft"). Maintain seek counter
*
		DEC	seekret
		BNE	moreseek	;Maybe try a reseek 
		BEQ	rdwrerr	;OW give up 
*
* Maintain the retry counter.  Quit if too many errors
*
TRYMORE		EQU	*
		JSR	SelectIWM
		INC	retry	;Keep status table informed
		DEC	readret
		BNE	rwckrc
*
* Set the fatal error flag
*
RDWRERR		EQU	*
		LDA	#ioerror
GOSETERR		BRL	set_err	;
*
* If the recal threshold is reached, recal the drive.
*
RWCKRC		LDA	readret
		CMP	#rclthresh
		BEQ	arecal
*
* Okay, read an address field
*
GRABHEADR		EQU	*
		JSR	rdaddr
		BCC	sidesokay
		BIT	temp	;read adrs get CS/BS error?
		BPL	trymore	;yes.
		BVC	goseterr	;offline ?!!? error in RdAddrs
		DEC	readret	;timeout err uses 
		BNE	trymore	;double the retries
		BRA	rdwrerr
*
* Now, see if this is the cylinder we expected 
*
SIDESOKAY		EQU	*
		BIT	MFMflag
		BPL	@GCRCYL
		LDA	trkfnd	;mfm track byte is 0ccccccc
		BRA	@cmpCYL
@GCRcyl		LDA	sidefnd
		LSR	A	;msb of track to Carry 
		LDA	trkfnd	;XXcccccc
		AND	#$3F	;00cccccc
		BCC	@cmpCyl	;00cccccc
		ORA	#$40	;01cccccc 
@cmpCYL		CMP	cyl
		BEQ	rightcyl
*
* Well, we seeked (sucked?) to the wrong cylinder.  Use the cylinder
*  number found to define our current position. 
*
		LDX	drive
		STA	curcyl,x	;Use cyl found as reference
		LDA	#sftskerror	;Flip on seek error bit
		TSB	error2
		BRA	oopseek	;One more seek error and retry
*
* Is side found what we thought?
*
RIGHTCYL		EQU	*
		LDA	sidefnd	;XXS00000
		ASL	a	;XS000000
		ASL	a	;S0000000
		EOR	side	;0&0,1&1 leaves 0
		BMI	trymore	;Treat as a soft error
*
* If this is the right sector, we win!
*
RIGHTSIDE		EQU	*
		LDA	sectfnd
		CMP	sector
		BNE	trymore	;Keep looking
*
* Found the target, now do whatever we came to do (read or write)
*
		LDA	cmdcode
		CMP	#cmdwrite
		BEQ	dowrite	;Assume write if not read
*
* Try to read the data field
*
@33		JSR	ReadData	;read direct/indirect 
		BCS	trymore
		BIT	DRswtch	;was a Direct Read done?
		BMI	sbset	;yep. don't need MergeIt
*
* Got the data - send it over
*
		JSR	MergeIt	;Move data to user buffer
*
SBSET		EQU	*
		CLC		; assume no errors
		LDA	error2
		BEQ	skipstow
		LDA	#SoftError
		BRL	set_err	; mark an error
SKIPSTOW		EQU	*
		CLC		; no errors
		RTS
*
* Write out a data field
*
DOWRITE		EQU	*
		JSR	WriteData
		CLC
		RTS
		EJECT
**************************************************
* FastBufr
*
* FastBufr determines if the user buffer address
* is in fast memory or if the 512 bytes spans a
* bank boundary
*
*    INPUT :  cmdbuffl+1,+2 is user buffer adrs
*    OUTPUT: DRswtch =  00 if bk spanned or slow (shadowed)
*            DRswtch = $FF if fast and not bk spanned 
*
***************************************************
FASTBUFR		EQU	*
		STZ	DRswtch	;assume slow &/ bk spanned
		BIT	MFMflag	;is this MFM read?
		BMI	@FAST	;yes. set DR flag to skip MergeIt
		BIT	mac_flag	;524 rd? 
		BMI	@slow	;must use slow
		LDY	cmdbuffl+2
		CPY	#$E0
		BCC	@10
		CPY	#$E1+1
		BCC	@slow
@10		CPY	#02
		BCC	@15
		LDX	cmdbuffl+1
		CPX	#$FF
		BNE	@fast
		BRA	@slow
@15		LDA	shadow
		AND	#$1E
		CMP	#$1E	;all fast?
		BEQ	@fast
		LDX	cmdbuffl+1
		JSR	chkpgslow
		BCS	@slow
		LDX	cmdbuffl+1
		INX
		INX
		JSR	chkpgslow
		BCS	@slow
@FAST		DEC	DRswtch
@SLOW		RTS
**************************************
* ChkpgSlow checks the page address
* of a page in bank 0/1 to see
* if it is shadowed and therefore slow
*
* INPUTS :  X = page address to check
*           A = shadow Reg shadow bits
*               (Shadow AND $1E)
*           Y = Bank address (00/01)
* OUTPUT :  C = 1 if slow
*           C = 0 if fast    
*
* PRESERVES : A-reg, X-reg, Y-reg
* DESTROYS  : carry  (and P)
***************************************
CHKPGSLOW		EQU	*
		CPX	#$FF	;do bufr pags span bank boundary?
		BEQ	@slow	;yes. so do block indirect!
		CPX	#$D0
		BCS	@fast
		CPX	#$C0
		BCS	@slow
		CPX	#$A0
		BCS	@fast
		CPX	#$0C	;foget the txtpg2 buffer too!
		BCC	@slow
		CPY	#01	;bank 1 only check?
		BNE	@20
		CPX	#$60
		BCC	@20	;adrs not in range
		BIT	%00001000	;is $6000..$9FFF fast RAM
		BNE	@fast	;yep
		BRA	@slow
@20		CPX	#$20	;in hires 1/2 range?
		BCC	@fast	;no.
		CPX	#$40	;hires 1 or 2?
		BCS	@30
		BIT	#%00000010	;are HiRes1,1X both fast?
		BRA	@35
@30		BIT	#%00000100	;is HiRes2,2x both fast?
@35		BNE	@fast
		CPY	#00
		BEQ	@slow	;
		BIT	#%00010000	;is HiRes1x or 2x fast 
		BEQ	@slow	;no.
@FAST		CLC
		RTS
@SLOW		SEC
		RTS
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSFirmware/AD3.5Driver/read.aii b/IIGS.601.SRC/GSFirmware/AD3.5Driver/read.aii
new file mode 100644
index 0000000..798b666
--- /dev/null
+++ b/IIGS.601.SRC/GSFirmware/AD3.5Driver/read.aii
@@ -0,0 +1 @@
+
;	This EdAsm/Asm816 source code file was converted to AsmIIGS
;	by EdAsmCvtIIGS version 1.2d8 on 5/16/91 at 9:23:15 PM

		TITLE	'Extra Bits Shift Tables'
	; SEG	code
ASHIFT		DC.B	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
		DC.B	64,64,64,64,64,64,64,64,64,64,64,64,64,64,64,64
		DC.B	128,128,128,128,128,128,128,128
		DC.B	128,128,128,128,128,128,128,128
		DC.B	192,192,192,192,192,192,192,192
		DC.B	192,192,192,192,192,192,192,192
*
BSHIFT		DC.B	0,0,0,0,64,64,64,64
		DC.B	128,128,128,128,192,192,192,192
		DC.B	0,0,0,0,64,64,64,64
		DC.B	128,128,128,128,192,192,192,192
		DC.B	0,0,0,0,64,64,64,64
		DC.B	128,128,128,128,192,192,192,192
		DC.B	0,0,0,0,64,64,64,64
		DC.B	128,128,128,128,192,192,192,192
*
CSHIFT		DC.B	0,64,128,192,0,64,128,192
		DC.B	0,64,128,192,0,64,128,192
		DC.B	0,64,128,192,0,64,128,192
		DC.B	0,64,128,192,0,64,128,192
		DC.B	0,64,128,192,0,64,128,192
		DC.B	0,64,128,192,0,64,128,192
		DC.B	0,64,128,192,0,64,128,192
		DC.B	0,64,128,192,0,64,128,192
*
		DCB.B	$03,$FF	;Just for now
	; SEG	fake_it
		TITLE	'Read Address Field'
**************************************************
*                                                *
*  rdaddr                Read an address field   *
*                                 with timeout   *
*                                                *
*   Output:   sectinfo[0..4] of sector found     *
*             C <- clr:all okay, set:field error *
*   Destroys: A, X, Y, temp                      *
*                                                *
**************************************************
	; SEG	code	; point to bank $FF
RDADDR		EQU	*
	; SEG	fake_it	;
		BIT	MFMflag
		BPL	@notMFM
		JMP	mfmRdAddr
@notMFM		JMP	>RdAddrHook
*
* Wait until any seeking/speed changing/head settling finishes
*
RdAddr~GCR	JSR	WaitRdyTO	;Wait ready with TimeOut
		BCS	NeverRdy
*
* Set IWM into read mode
*
		JSR	rdmode	;Set read mode with hdsel 
*
* Set up the timeout
*
		LDA	#>amtout
		STA	temp
		LDY	#<amtout
*
* Find the 3 address marks
*
RMB		LDX	#2	;Three of 'em
RMC		DEY		;Maintain double byte t.o. ctr
		BNE	rma	;=> no timeout
		DEC	temp
		BMI	rmerr	;Oops, timeout error
* 
RMA		LDA	l6clr	;Look for a byte
		BPL	rma	;Branch if no byte ready
		CMP	adrmarks,x	;Is it the right mark? 
		BNE	rmb	;No, start all over 
		DEX		;Yes, found a mark 
		BPL	rmc	;If more marks, go back 
*
* Found an address field. Now grab the info 
*
		LDY	#4	;Four pieces of info + csum
		STZ	csum
RMD		LDX	l6clr	;Get a byte
		BPL	rmd	;If not ready, back again
		LDA	>dnibtab,x	;Perform 8 to 6 bit xform 
		STA	sectinfo,y	;Save that chunk 
		EOR	csum	;Add into the checksum
		STA	csum
		DEY		;One less piece of info
		BPL	rmd	;If more, go back
*
* The last byte was the checksum. If our calculated
*  checksum is not zero now, we've had a problem
*
		TAY
		BNE	rmerr
*
* Now identify the bitslip marks
*
RME		LDA	l6clr
		BPL	rme
		CMP	bslip1
		BNE	rmerr
*
RMF		LDA	l6clr
		BPL	rmf
		CMP	bslip2
		BNE	rmerr
*
		LDX	drive
		LDA	fmtfnd	;extract the DS bit from Fmt 
		ASL	a
		ASL	a
		AND	#$80
		STA	DblSided	;Set Dblsided per this volume
*
		CLC		;Got a good sector
		RTS
*
* Error exit... we had either a timeout, checksum
*  or bitslip error
*
RMERR		EQU	*
		LDA	#adrerror
		TSB	error2
		lda	statbyte
		SEC		;Set flag 
		RTS
*
NEVERRDY		LDA	#offline
		STA	statbyte	;return an error code
		LDA	#$80
		STA	temp	;return BMI+ BVC 
		BRA	rmerr
*
*
RDMODE		EQU	*
		LDA	#read0adr
		BIT	side
		BPL	@10
		LDA	#read1adr
@10		JSR	ReadBit
		LDA	l7clr
		LDA	l6clr
		RTS
		TITLE	'Read Data Field'
**************************************************
*                                                *
*  readdata       Read a data field into buffer  *
*                                                *
*   Assumes:                                     *
*   INPUT :   cyl, sector, side                  *
*                                                *
**************************************************
	; SEG	code	;
READDATA		EQU	*
	; SEG	fake_it	;
		BIT	MFMflag
		BPL	@notmfm
		JMP	mfmReadData
@notmfm
		JMP	>ReadDataHook
*
ReadData~GCR	STZ	csuma
		STZ	csumb
		STZ	csumc
*
		BIT	DRswtch
		BPL	@01
		JMP	DirectRead
*
* Find the data marks
*
@01		LDY	#readto	;Rather short timeout
RMXB		LDX	#2	;Three of 'em
RMXC		DEY		;Maintain t.o. ctr
		BEQ	rderr	;=> Too many bytes passed 
* 
RMXA		LDA	l6clr	;Look for a byte
		BPL	rmxa	;Branch if no byte ready
		CMP	datamarks,x	;Is it the right mark? 
		BNE	rmxb	;No, start all over 
		DEX		;Yes, found a mark 
		BPL	rmxc	;If more marks, go back 
*
* Found the data marks. Verify the sector mark.
*
RDA		LDX	l6clr
		BPL	rda
*
		LDA	>dnibtab,x	;Denibblize the sector mark
		CMP	sectfnd	;Same as address field?
		BEQ	rdaaa	;Yes, all okay...
RDERR		JMP	readerr
*
* Now read the field
*
RDAAA		LDY	#175	;175 groups of 4 nibs -1=699
		JMP	rdb	;Skip into the loop
*
RDE		LDX	l6clr	;(6-9,11)
		BPL	rde	;(3)
		LDA	>dnibtab,x	;(4)
		LDX	exindex	;(3)
		ORA	>cshift,x	;(5) Add extra bits
		EOR	csumb	;(3) Got CCCCCCCC
		STA	buf3+1,y	;(6-9) store to bank $E1
		ADC	csumc	;(3)
		STA	csumc	;(3)
*
RDB		LDX	l6clr	;(6-9,11) Get the top nybl
		BPL	rdb	;(3) Back if no byte 
		LDA	>dnibtab,x	;(4) Denibblize extras
		STA	exindex	;(3) Move them into Y
*
		ASL	csumc	;(5) Shift csumc
		BCC	rdc	;(3) Wrap carry around to lsB
		INC	csumc	;(5)  
*
RDC		LDX	l6clr	;(6-9,11) Get nybl A
		BPL	rdc	;(3) 
		LDA	>dnibtab,x	;(4) Denib: 00AAAAAA
		LDX	exindex	;(3) Get back the extras index
		ORA	>ashift,x	;(5) AAAAAAAA XOR csumc
		EOR	csumc	;(3) AAAAAAAA
		STA	buf1,y	;(6-9) Keep the data byte 
		ADC	csuma	;(3) A <- csuma + bytea 
*
RDD		LDX	l6clr	;(6-9,11) Next Byte
		BPL	rdd	;(3)
		STA	csuma	;(2) Get rid of that csuma
		LDA	>dnibtab,x	;(5) Denib: 00BBBBBB
		LDX	exindex	;(3)
		ORA	>bshift,x	;(5) BBBBBBBB XOR csuma
		EOR	csuma	;(3) BBBBBBBB 
		STA	buf2,y	;(6-9) Get rid of byteb
		ADC	csumb	;(3) Add it in to the carry
		STA	csumb	;(3) Keep it
*
		DEY		;(2) all groups?
		BNE	rde	;(3)
*
* Now grab, decode, and verify the checksum bytes
*
RDF		LDX	l6clr	;(4) Get the extras
		BPL	rdf	;(2) Wait until byte ready
		LDA	>dnibtab,x	;(4) Denibbilize it
		TAX		; (2) save it
		LDA	>cshift,x	;(4) Grab C extras in A[7..6]
		STA	exindex	;(3) Keep for later
		LDA	>bshift,x	;(4) Get shifted B extras
		STA	exindex2	;(3)
		LDA	>ashift,x	;(4) Get A extras shifted
*
		LDY	#2
*
RDG		LDX	l6clr	;(4)
		BPL	rdg	;(2) Wait until byte ready
		AND	#$C0	;(2) Isolate hi bits in A
		ORA	>dnibtab,x	;(4) 'or' in denibbed low 6
		TYX		; need fast addressing
		CMP	csumc,x	;(4) Is it what we calc'd?
		BNE	dcsumerr	;(2) If not, flag a checksum error
		LDA	exindex-1,x	;(4) Get next hi set of extras
		DEY		;(2) Almost done
		BPL	rdg	;(3) Back maybe...
*
* Checksum okay... How are the bitslip bytes?
*
		LDY	#2	;(2) Got two bitslip marks 
RDH		LDA	l6clr	;(4) Wait for a byte
		BPL	rdh	;(2) 
		CMP	bsmarks,y	;(4) Right one?
		BNE	dbserr	;(2) If not, you know where to go
		DEY		;(2)
		BNE	rdh	;(3) Get the other mark
*
* Return good...we did it!
*
		CLC
		RTS
*
* 'Blew it' code
*
DCSUMERR		LDA	#dcserror
		BNE	rdi
*
DBSERR		LDA	#dbserror
*
RDI		ORA	error2
		STA	error2
*
READERR		SEC
		RTS
*
*
DR~ADRS		EQU	*-Rel~Org+Bnk~Org
DR~ADRSL		EQU	DR~ADRS**$00FF
DR~ADRSH		EQU	(DR~ADRS**$FF00)>>8
 		IF DR~ADRSL-24 > 0 THEN
 		DCB.B	((DR~ADRSH+1)*256+24)-DR~ADRS,$FF
 		ENDIF
		TITLE	'Direct Read Data Field'
**********************************************************
*                                                        *
* DirectRead: Read data field directly to users buffer   *
*                                                        *
*   Assumes: the user buffer is in fast ram              *
*            i.e. not in $E0-E1 or $00-01 with shadowing *
*         and the buffer does NOT span a bank boundary!! *
*                                                        *
*   Output:   512 bytes stored in user buffer            *
*                                                        *
**********************************************************
	; SEG	code
DIRECTREAD	EQU	*
	; SEG	fake_it
*
* Find the data marks
*
		LDY	#readto	;Rather short timeout
@02		LDX	#2	;Three of 'em
@04		DEY		;Maintain t.o. ctr
		BEQ	@rderr	;=> Too many bytes passed 
* 
		LDA	l6clr	;Look for a byte
		BPL	*-3	;Branch if no byte ready
		CMP	datamarks,x	;Is it the right mark? 
		BNE	@02	;No, start all over 
		DEX		;Yes, found a mark 
		BPL	@04	;If more marks, go back 
*
* Found the data marks. Verify the sector number matches adrs field
*
		LDX	l6clr
		BPL	*-3
*
		LDA	>dnibtab,x	;Denibblize the sector mark
		EOR	sectfnd	;leave zero in A for cksum algorthm
		BNE	@rderr
*
* Now read the 16 nybl (12 bytes) tag field
*
		LDY	#12
		CLC
@TAGLOOP		LDX	l6clr	;(6-9,11)
*
		BPL	*-3	;(3)
		ADC	csumc	;(2)
		CMP	#$80	;(2)
		ROL	a	;(2)
		STA	csumc	;(3)
		LDA	>dnibtab,x	;(5)
		STA	exindex	;(3)
		LDX	l6clr	;(6-9,11)
*
		BPL	*-3	;(3)
		LDA	>dnibtab,x	;(4)
		LDX	exindex	;(3)
		ORA	>ashift,x	;(5)
		EOR	csumc	;(3)
		ADC	csuma	;(3) just perform cksum algorithm
		STA	csuma	;(3)
		DEY		;(2)
		LDX	l6clr	;(6-9,11)
*
		BPL	*-3	;(3)
		LDA	>dnibtab,x	;(4)
		LDX	exindex	;(3)
		ORA	>bshift,x	;(5)
		EOR	csuma	;(3)
		ADC	csumb	;(3)
		STA	csumb	;(3)
		DEY		;(2)
		LDX	l6clr	;(6-9,11)
*
		BPL	*-3	;(3)
		LDA	>dnibtab,x	;(4)
		LDX	exindex	;(3)
		ORA	>cshift,x	;(5)
		EOR	csumb	;(3)
		DEY		;(2)
		BNE	@tagloop	;(3)
		BRA	@go	;(3) enter the 1st page loop
@RDERR		JMP	readerr
*
* Now read the 1st 256 data bytes of data field
*
@PG1LOOP		LDX	l6clr	;(6-9,11) (best-worst,loop)
		BPL	*-3	;(3)  get nybl B
		LDA	>dnibtab,x	;(4) Denib: 00BBBBBB
		LDX	exindex	;(3) top bits index
		ORA	>bshift,x	;(5) BBBBBBBB XOR csuma
		EOR	csuma	;(3) BBBBBBBB
		STA	[cmdbuffl],y	;(6) put the data byte b
		INY		;(2)
		ADC	csumb	;(3) A <- csumb + byteb 
		STA	csumb	;(3) 
*
		LDX	l6clr	;(6-9,11) 4 1us cycles/loop 
		BPL	*-3	;(3)    get nybl C
		LDA	>dnibtab,x	;(4)
		LDX	exindex	;(3)
		ORA	>cshift,x	;(5) Add top bits 
		EOR	csumb	;(3) Got CCCCCCCC
		STA	[cmdbuffl],y	;(6)
		INY		;(2)
*
@GO		LDX	l6clr	;(6-9,11) Get the top bits nybl
		BPL	*-3	;(3) Back if no byte 
		ADC	csumc	;(2)
		CMP	#$80	;(2)
		ROL	a	;(2)
		STA	csumc	;(3)
		LDA	>dnibtab,x	;(5) Denibblize top bit nybl
		STA	exindex	;(3) 
*
		LDX	l6clr	;(6-9,11) Get nybl A
		BPL	*-3	;(3) 
		LDA	>dnibtab,x	;(4) Denib: 00AAAAAA
		LDX	exindex	;(3) top bit index
		ORA	>ashift,x	;(5) AAAAAAAA XOR csumc
		EOR	csumc	;(3) AAAAAAAA
		STA	[cmdbuffl],y	;(6) put the data byte A   
		ADC	csuma	;(3) Add it in to the carry
		STA	csuma	;(3) Keep it
		INY		;(2) end of 1st 256 bytes yet?
		BNE	@pg1loop	;(3)
*
* cross over nybl to 2nd loop and 2nd code page!
* WARNING! The code page boundary must occur within the
*          following instructions before the loop label
*
;DRCHK1		EQU	?*
		LDX	l6clr	;(6-9,11) get the C nybl
		BPL	*-3	;(3)
		LDA	>dnibtab,x	;(4)
		LDX	exindex	;(3)
		ORA	>bshift,x	;(5)
		EOR	csuma	;(3)
		INC	cmdbuffl+1	;(5) assumes no bank overflow!!!!
		STA	[cmdbuffl],y	;(6)
		ADC	csumb	;(3)
		STA	csumb	;(3)
		INY		;(2)
;DRCHK2		EQU	?*
;		IF DRCHK2-DRCHK1-1 <> 0 THEN
;		WRITELN	'Direct Read page Alignment ERROR'
;		ENDIF
*
* Now read the 2nd 256 data bytes of data field
*
@PG2LOOP		LDX	l6clr	;(6-9,11)  (best-worst,loop)
		BPL	*-3	;(3)    (4 slow cycles/loop)
		LDA	>dnibtab,x	;(4)
		LDX	exindex	;(3)
		ORA	>cshift,x	;(5) Add top bits 
		EOR	csumb	;(3) Got CCCCCCCC
		STA	[cmdbuffl],y	;(6)
		INY		;(2)
*
		LDX	l6clr	;(6-9,11) Get the top bits nybl
		BPL	*-3	;(3) Back if no byte 
		ADC	csumc	;(2)
		CMP	#$80	;(2)
		ROL	a	;(2)
		STA	csumc	;(3)
		LDA	>dnibtab,x	;(5) Denibblize top bit nybl
		STA	exindex	;(3) 
*
		LDX	l6clr	;(6-9,11) Get nybl A
		BPL	*-3	;(3) 
		LDA	>dnibtab,x	;(4) Denib: 00AAAAAA
		LDX	exindex	;(3) top bit index
		ORA	>ashift,x	;(5) AAAAAAAA XOR csumc
		EOR	csumc	;(3) AAAAAAAA
		STA	[cmdbuffl],y	;(6) put the data byte 
		INY		;(2)
		ADC	csuma	;(3) A <- csuma + bytea 
		STA	csuma	;(3) 
*
		LDX	l6clr	;(6-9,11) get nybl B
		BPL	*-3	;(3)
		LDA	>dnibtab,x	;(4) Denib: 00BBBBBB
		LDX	exindex	;(3)
		ORA	>bshift,x	;(5) BBBBBBBB XOR csuma
		EOR	csuma	;(3) BBBBBBBB 
		STA	[cmdbuffl],y	;(6) Get rid of byteb
		ADC	csumb	;(3) Add it in to the carry
		STA	csumb	;(3) Keep it
		INY		;(2) done with 2nd page yet? 
		BNE	@pg2loop	;(3)
*
* Now grab, decode, and verify the checksum bytes
*
		LDX	l6clr	;(4) Get the extras
		BPL	*-3	;(2) Wait until byte ready
		LDA	>dnibtab,x	;(5) Denibbilize it
		TAX		;(2) save it
		LDA	>cshift,x	;(5) Grab C extras in A[7..6]
		STA	exindex	;(3) Keep for later
		LDA	>bshift,x	;(5) Get shifted B extras
		STA	exindex2	;(3)
		LDA	>ashift,x	;(5) Get A extras shifted
*
		LDY	#2
*
@80		LDX	l6clr	;(4)
		BPL	*-3	;(3) Wait until byte ready
		AND	#$C0	;(1) Isolate hi bits in A
		ORA	>dnibtab,x	;(5) 'or' in denibbed low 6
		TYX		;(2) need zpg indexed addressing
		CMP	csumc,x	;(4) Is it what we calc'd?
		BNE	@110	;(2) If not, flag a checksum error
		LDA	exindex-1,x	;(4) Get next hi set of extras
		DEY		;(2) Almost done
		BPL	@80	;(3) Back maybe...
*
* Checksum okay... How are the bitslip mark?
*
		LDY	#2	;(2) Got two bitslip marks 
@90		LDA	l6clr	;(4) Wait for a byte
		BPL	*-3	;(2) 
		CMP	bsmarks,y	;(4) Right one?
		BNE	@120	;(2) If not, you know where to go
		DEY		;(2)
		BNE	@90	;(3) Get the other mark
*
* Return good...we did it!
*
		DEC	cmdbuffl+1	;restore buffr adrs
		CLC
		RTS
*
* 'Blew it' code
*
@110		LDA	#dcserror
		BNE	@130
*
@120		LDA	#dbserror
*
@130		DEC	cmdbuffl+1	;restore buffer adrs
		ORA	error2
		STA	error2
		SEC
		RTS
	
		TITLE	'MFM RdAddr Routine'
**********************************************************************
*
*	MFM Read Address Field
*
* 	The timeout process must be absolute timing since the ISM
* 	doesn't return any data until a mark byte appears and blank
*	media doesn't have any marks so MFM rdaddr can't count "bytes"
*	the way GCR-IWM RdAddrs routine does.
*
*	The logic polls for mark bytes for 65535 times around the polling
*	loop (5us each at 2.8Mhz) for a total of .327 seconds and then
*	aborts 
*
**********************************************************************
mfmRdAddr		EQU	*
		JSR	WaitRdyTO		;wait for Drive Ready
		BCC	@nowRdy
		LDA	#offline
		BRA	@neverRdy
		
@neveraMark	SEP	#$10
		LONGI	OFF
		LDA	#$18
		STA	IsmMode0W		;zero ACTION and WRITE bits
		LDA	IsmErrorR
		STA	csum+2
		JSR	DeSelectISM	;back to IWM for error
		LDA	#ioerror		;blank media returns ioerror but online
@neverRdy		STA	statbyte
		LDX	#$80
		STX	temp		;make Read/WriteBlk exit with ioerror
		SEC
		RTS
	
@nowRdy		JSR	rdmode		;select the proper head (before ISM switch)
	
		JSR	SelectISM		;reselect ISM side of SWIM
		
		LONGI	ON
		REP	#$10
		LDY	#-1		;65535 * 5us/poll = .327 seconds at 2.8 Mhz
		BRA	@reAction
		
@Indexmark	LDX	#03-1		;three mark bytes after initial $C2
@05		BIT	IsmHndShR	
		BPL	@05
		LDA	IsmMarkR
		CMP	>mfmIndexMarks,X
		BNE	@reAction		;restart the Read Action after $C2
		DEX			;found all 4 yet?
		BPL	@05		;no.
				
@reAction		BIT	IsmErrorR		;clear the error register
		LDA	#$18
		STA	IsmMode0W		;clear write and action bits
		LDA	#$01
		STA	IsmMode1W
		STA	IsmMode0W		;toggle the FIFO bit to clear the fifo
		BIT	IsmErrorR		;again for grins (per mac mRdAddr)
		LDA	#$08
		STA	IsmMode1W		;start the Read ACTION going

@10		BIT	IsmHndShR		;6(9)	anything available yet
		BMI	@15		;2
		DEY			;2
		BNE	@10		;3
		BRA	@neveraMark	;mark timeout is 65536 * 5 us/loop

@15		LDA	IsmMarkR	
		CMP	#$A1		;adrs/data mark?
		BEQ	@30		;yep.
		CMP	#$C2		;index mark?
		BNE	@10		;nope
		BRA	@IndexMark	;yep

@30		LDX	#03-1		;three mark bytes after initial #$A1
@35		BIT	IsmHndShR
		BMI	@37
		DEY
		BNE	@35
		BRA	@neveraMark
		
@37		LDA	IsmMarkR
		CMP	>mfmAddrMarks,X
		BNE	@reAction		;restart the fifo etc
		DEX			;found all 4 yet?
		BPL	@35		;no.
		
		SEP	#$10
		LONGI	OFF
		
@40		BIT	IsmHndShR		;is a data byte available
		BPL	@40
		LDA	IsmDataR		;field order => cyl,head,sect,size
		STA	trkfnd

@50		BIT	IsmHndShR		;is a data byte available
		BPL	@50
		LDA	#00
		LDY	IsmDataR		;get mfm "head" = 0/1
		BEQ	@55
		LDA	#$20
@55		STA	sidefnd		;look like GCR sidefnd

@60		BIT	IsmHndShR		;is a data byte available
		BPL	@60
		LDA	IsmDataR		;almost same as GCR sectfnd
		DEC	A		;mfm sectors start at 1
		STA	sectfnd		;but we want zero based ones

@70		BIT	IsmHndShR		;is a data byte available
		BPL	@70
		LDA	#$20		;look like GCR "fmt" bytes
		ORA	IsmDataR		
		STA	fmtfnd

@80		BIT	IsmHndShR
		BPL	@80
		LDA	IsmDataR
		STA	csum		;1st byte of CRC
		
@90		LDA	IsmHndShR
		BPL	@90
		LDY	IsmDataR
		STY	csum+1		;2nd byte of CRC
		
		LDY	IsmErrorR
		STY	csum+2
		
		STA	csum+3
		AND	#%00100010	;save CRC error and 
		BNE	@errxit
		LDA	#$18
		STA	IsmMode0W		;zero ACTION and WRITE bits
; behave like GCR dblsided bit that is extracted from GCR "format" byte
		LDA	#$80
		STA	DblSided		;mfm is always dbl sided
		CLC
		RTS		;Leave ISM mode selected for ReadData?

@errxit		LDA	#$18
		STA	IsmMode0W		;zero ACTION and WRITE bits
		LDA	IsmErrorR
		STA	csum+2
		JSR	DeSelectISM
		stz	temp		;so Read/WriteBlk retries for CRC errors
		LDA	#adrerror
		TSB	error2
		SEC
		RTS
		
		
		
mfmIndexMarks	DC.B	$FC,$C2,$C2
mfmAddrMarks	DC.B	$FE,$A1,$A1
mfmDataMarks	DC.B	$FB,$A1,$A1,$A1

**********************************************************************
*
* 	MFM Read Sector Routine
*
**********************************************************************
mfmReadData	EQU	*
		BIT	IsmErrorR		;clear the error register
		LDA	#$18
		STA	IsmMode0W		;clear write and action bits
		LDA	#$01
		STA	IsmMode1W
		STA	IsmMode0W		;toggle the FIFO bit to clear the fifo
		BIT	IsmErrorR		;again for grins (per mac mRdAddr)
		
		LDY	#50		;max bytes before error if no $A1
		LDA	#$08
		STA	IsmMode1W		;start the Read ACTION going

@20		DEY
		BPL	@25
@err		LDA	#$18
		STA	IsmMode0W
		JSR	DeSelectISM	;back into IWM mode on exit
		SEC
		RTS
		
@25		BIT	IsmHndShR
		BPL	@25
		LDA	IsmMarkR
		CMP	#$A1		;a mark byte?
		BNE	@20

		LDX	#03		;last mark bytes
@30		BIT	IsmHndShR		;anything available yet
		BPL	@30
		LDA	IsmMarkR	
		CMP	>mfmDataMarks-1,X
		BNE	@err		;no a mark so forget it
		DEX			;found all 3 yet?
		BNE	@30		;no.
*	leaves with X = 00
		LONGI	ON
		REP	#$10
		LDY	#-1		;Y = -1 
* NOTE: X & Y = 16 bit mode A = 8 bit mode!
@40		BIT	IsmHndShR		;+6 (+9 max sync wait)
		BPL	@40		;+3 := 32-40 of 44 cycles per round trip)
		INY			;+2  INY MUST BE BETWEEN BPL & LDA	
		LDA	IsmDataR		;+6 	no sync delay due to INY above
		STA	[cmdbuffl],Y	;+6 (+11 if slow memory)
		CPY	#512-1		;+3	
		BCC	@40		;+4  SWIM also has dbl buffer so I can catch up

		SEP	#$10
		LONGI	OFF

@50		BIT	IsmHndShR
		BPL	@50
		LDA	IsmDataR
		STA	csum		;1st byte of CRC
		
@60		LDA	IsmHndShR
		BPL	@60
		LDY	IsmDataR
		STY	csum+1		;2nd byte of CRC
		
		LDY	IsmErrorR
		STY	csum+2		
		
		STA	csum+3
		AND	#%00100010	;save CRC error and 
		BNE	@errxit
		LDA	#$18
		STA	IsmMode0W		;zero ACTION and WRITE bits
		STZ	error2
		JSR	DeSelectISM	;put it back into IWM mode
		CLC
		RTS		
		
@errxit		LDA	#$18
		STA	IsmMode0W		;zero ACTION and WRITE bits
		JSR	DeSelectISM
		LDA	#dcserror
		ORA	error2
		STA	error2
		SEC
		RTS
		
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSFirmware/AD3.5Driver/subroutines.aii b/IIGS.601.SRC/GSFirmware/AD3.5Driver/subroutines.aii
new file mode 100644
index 0000000..e867364
--- /dev/null
+++ b/IIGS.601.SRC/GSFirmware/AD3.5Driver/subroutines.aii
@@ -0,0 +1 @@
+		TITLE	'Format Volume'

;	This EdAsm/Asm816 source code file was converted to AsmIIGS
;	by EdAsmCvtIIGS version 1.2d8 on 5/16/91 at 9:22:43 PM

**************************************************
*                                               
*  Format Volume    Format an diskette based on
*		the media type 800K for DD
*		or 1440K for HD media
*
*	Don't allow formatting 800K on 1440 media
*                                               
**************************************************
FORMATVOL		EQU	*
		JMP	FormatHook
Format~VOL:
		LDA	#ejct_reset	; reset ejected bit
		JSR	writebit	;to supress DSWerr from SensnChk
		SEC		;need the WP error here
		JSR	SensnChk	;enable,Sense, and chk volsts
		BCC	@10	;media is online
		STA	statbyte	;offline or WritProt 
		RTS
		
@10		LDA	#UFfdhd
		BIT	UnitFlags,X	;is this a FDHD drive?
		BEQ	@20		;NO. so can't determine media type
		LDA	#MediaAdr
		JSR	ReadBit
		BMI	@20		;not HD media so only do GCR format
		LDA	#$80
		STA	DblSided
* Now setup the ISM with 16M clk and params since this is MFM media
		LDA	#$80
		TSB	MFMflag		;b7 = mfm  b6 = ISM enabled
		JSR	EnableISM		;enable ISM and 16M FCLK
		JSR	SetMFMParms	;set the timing params for 15.6672 Mhz
		JSR	DeSelectISM	;back to IWM until I/O (for now)
		
		lda	#AD1440KSectors
		sta	curnsect		;1440 has 18 sectors / track
		lda	#02
		sta	Interleave	;set the default mfm interleave
		LDX	drive
		LDA	FmtOption,X	;default format or specific format?
		BNE	@ck1440K
		LDA	#AD1440K
		STA	FmtOption,X
		BRA	@20		;default it to do 1440K with 2:1 interleave
@ck1440K		CMP	#AD1440K
		BEQ	@20
		CMP	#AD1440K1		;other interleave factor?
		BEQ	@20		;yep.
		LDA	#coderror		;wrong media type error 
		sta	statbyte
		SEC
		RTS
*
*
* Prep to start the track loop
@20		JSR	MotorOn	;enable motor (SEEK doesn't doit now)
		JSR	recal	;Start out on the right foot
		BCS	fmterr
*
		STZ	cyl
		STZ	side	;Start on side 0 
*
@TRKLP		EQU	*
		LDA	#fmtretry
		STA	fmtTrkretry	;Set retry count
*
* Write out an entire track
@RTRY		JSR	writetrk
		BCS	fmterr	;If there was any problem, escape
*
* Now verify that we wrote it correctly
		JSR	verify
		BCC	@30	;Skip retries if verify okay 
*
		DEC	fmtTrkretry
		BEQ	fmterr	;I/O error if verify fails rptdly
		LDA	statbyte	;rdadrs return offline?
		CMP	#offline
		BNE	@rtry	;no. so try again
		BRA	fmterror	;return offline!!!
*
* Flip the side if it's a double sided disk
@30		EQU	*
		JSR	open_wndw	; open an interrupt window
		BIT	formsides	;Set N flag to double sided
		BPL	@40	;If 1 sided, leave side alone 
		LDA	#$80	;2 sided: Flip side 
		EOR	side
		STA	side
		BNE	@trklp	;If side 1 now, back to write it
*
* Advance to the next cylinder 
@40		INC	cyl
		LDA	cyl
		CMP	#totcyls
		BLT	@trklp	;If more cyls, do 'em
*
		LDX	drive
		JSR	ResetFmt	;return Format Option to default
		CLC		;no prior error
		JSR	MountVol	;determine volume type
		BCS	fmterror	;can't read adrs after format?????
		CLC
		RTS		;Return- everything AOK
*
FMTERR		LDA	#ioerror
		STA	statbyte
FMTERROR		JSR	eject
		SEC
RTS33		RTS		;Return w/ carry set
		TITLE	'Write out a Track'
**************************************************
*                                                *
*  writetrk       Write an entire track to disk  * 
*                                                *
*   Input:    cyl, side                          *
*   Uses:     seek, initwtrk                     *
*   Destroys: A,X,Y, temp                        *
*                                                *
**************************************************
WRITETRK		EQU	*
		BIT	MFMflag
		BPL	@doGCR
		JMP	mfmWriteTrk
@doGCR		JMP	WriteTrkHook
*
WriteTrk~GCR	JSR	seek
		JSR	makesect	;Generate a sector image in RAM 
		JSR	initwtrk
		JSR	WaitRdyTO	
		BCS	rts33	;return an error
*
* To meet the Sony formatting spec, one must wait extra time
*  on track 0 and others that are the first of a speed class.
*
		LDA	side
		BNE	wtnowait
*
		LDA	cyl
		AND	#$0F
		BNE	wtnowait	;If not 1st of speed class
*
		LDA	cyl	;Get back again
		LSR	a
		LSR	a
		LSR	a
		LSR	a
		TAX
		LDA	>fmtwtab,x
		JSR	wait2ms
*
WTNOWAIT		EQU	*
		JSR	rdmode	;Set the head correctly
		STZ	temp
		LDA	#$FF
		BIT	l6set	;Prep to write
		STA	l7set
		LDA	#>itssize
		LDX	#<itssize
		STA	temp2
*
* Write out 20 microsec sync marks (pre-track)
*
WSYNB		LDY	#4	;(2)
WSYND		LDA	synctab,y	;(4)
WSYNA		BIT	l6clr
		BPL	wsyna
		STA	l6set	;(4)
		DEY		;(2)
		BPL	wsynd	;(3,2)
		DEX		;(2) 
		BNE	wsynb	;(3,2)
		DEC	temp2	;(5)
		BPL	wsynb	;(3,2)
*
* Copy out the header and marks to the disk
*
FMTSLOOP		EQU	*
		REP	#$10	;(2) 16 bit indexes
		SEP	#$20	;(2)
		LONGA	OFF		; 8 bit accumulator
		LONGI	ON		; 16 bit indexes
		LDY	#0000	;(3) Get count from buffer
		LDX	sectbuf	;(5) get header field length
@20		LDA	sectbuf+2,y	;(6..9) Get a byte in the sector
@30		BIT	l6clr	;(6-9,11)
		BPL	@30	;(3)
		STA	l6set	;(3) Start it writing out
		INY		;(2) Next byte
		DEX		;(2) 
		BNE	@20	;(3) Waste more time if not
		LONGA	ON
		REP	#$20
		LDA	sectbuf+2,y	;get 16 bit repeat count
		TAX		;    repeat count is 1 based
		LONGA	OFF
		SEP	#$20
*
		LDA	sectbuf+4,y	;get repeat byte
@40		BIT	l6clr
		BPL	@40
		STA	l6set
		DEX
		BNE	@40
*
		LONGA	ON
		REP	#$20
		LDA	sectbuf+5,y	;get 2nd field length
		TAX
		LONGA	OFF
		SEP	#$20
@50		LDA	sectbuf+7,y
@60		BIT	l6clr
		BPL	@60
		STA	l6set
		INY		;(2)
		DEX		;(2)
		BNE	@50	;(2)
*
		SEP	#$10	;(2) 8 bit indexes
		LONGI	OFF		; 8 bit accumulator
*
* More sectors this track?
*
		INC	temp	;(5)
		LDY	temp	;(3) Sectors out so far
		CPY	curnsect	;(9)
		BGE	donetrk	;(2) If done, skip out
*
* Now, in order to keep the IWM in write mode, must write
*  a byte to keep from underflow.  Remember, the inner write
*  loop above is small (<32 cyc), so the IWM would not underflow
*  until well into the SECOND byte time.
*
		LDA	#$FF	;(2)
@70		BIT	l6clr	;(9) wait for buffer empty
		BPL	@70	;(3)
		STA	l6set	;(9) Pop out an $FF
*
* Need another sector... update the sector number
*
		LDX	xlvtab,y	;(9) Translate to logical sect#
		LDA	>nibtab,x	;(5) Nibbilize it
		STA	volasect	;(9) Place in address field
		STA	voldsect	;(9) and in the data field
;
		LDY	#$FF	;(2) keep on writing....
@80		BIT	l6clr	;(6,9) wait for buffer empty
		BPL	@80	;(3)
		STY	l6set	;(9)
*
* Now update the checksum
*
		TXA		;(2) Move the current log sect#
		EOR	csum	;(3)
		TAX		;(2) min of 40 fast cycles per nyble
		LDA	>nibtab,x	;Nibbilize the new sum
		STA	volcsum	;Into the sector image
*
@90		BIT	l6clr
		BPL	@90
		STY	l6set	;out with another sync byte 
;
		BRL	fmtSloop	;Back for more sectors 
*
DONETRK		EQU	*
		BIT	l6clr	; wait for underrun
		PHP		;retain /underrun in v bit
@100		BIT	l6clr	;wait for last byte to underrun
		BVS	@100	;
		LDA	l7clr	;Back into read mode
		LDA	l6clr
		PLP
		SEC
		LDA	#$34	;write underrun error for debug
		BVC	wtrkerr	;return an error
		LDA	#00
		CLC
WTRKERR		STA	error1	;save where debug is easy
		RTS
**************************************************
*                                                *
*  makesect      Generate a sector image in RAM  *
*                                                *
* As follows: Length word of header field        *
*             header field bytes                 *
*             count word of repeat field         *
*             repeat byte   (exactly one byte!)  * 
*             length word of trailer field       *
*             trailer field bytes                *
*                                                *
*   Destroys: A, X, Y                            *
*                                                *
**************************************************
MAKESECT		EQU	*
*
* Generate intersector gap
		LDA	#65+22
		STA	sectbuf	;init header field length
		STZ	sectbuf+1
*
		LDX	#00
@10		LDY	#4
@20		LDA	synctab,y
		STA	sectbuf+2,x
		INX
		CPX	#65
		BCS	@30
		DEY
		BPL	@20
		BRA	@10
*
* the data to sectbuf is reverse order from afdmtab
* Copy the address field 'skeleton' and data marks
@30		LDX	#22-1
		LDY	#00
@40		LDA	afdmtab,x	;src from hi adrs
		STA	sectbuf+2+65,y	;dest to low adrs
		INY
		DEX
		BPL	@40
*
* repeat field is 703 $96 nybles
		LDA	#<703
		STA	sectbuf+2+65+22
		LDA	#>703
		STA	sectbuf+3+65+22
		LDA	#$96
		STA	sectbuf+4+65+22	;repeat byte
*
* Trailer field is just the bit slip marks
		LDA	#<02	;old formatter didn't write the
		STA	sectbuf+5+65+22
		LDA	#>03	;last byt of the 793 byte buffer cuz
		STA	sectbuf+6+65+22
		LDX	#3-1	;of the 3 $FF written btween sects
		LDY	#00	;
@50		LDA	bsmarks,x
		STA	sectbuf+7+65+22,y
		INY
		DEX
		BPL	@50
		RTS
		TITLE	'Write Track Support'
**************************************************
*                                                *
*  initwtrk      Set interleave table, and init  *
*                 the RAM sect image for sect 0  *
*                                                *
*                                                *
**************************************************
INITWTRK		EQU	*
*
* Generate interleave table
*
		LDA	#$FF
		LDX	#11
CLEARXTAB		EQU	*
		STA	xlvtab,x
		DEX
		BPL	clearxtab
*
		INX		;X=0
		LDY	#0
ALLOCSPOT		TYA
		STA	xlvtab,x
		INY		;Physical Sector number
		CPY	curnsect	;If all sectors placed, we're done
		BGE	xlvdone
		TXA		;Move index to A to add
		CLC
		ADC	Interleave
		TAX
CHECKBOUND	EQU	*
		CPX	curnsect
		BLT	checkspot
		TXA		;We wrapped (C=1)
		SBC	curnsect
		TAX
CHECKSPOT		EQU	*
		BIT	xlvtab,x
		BMI	allocspot
		INX
		BRA	checkbound
*
* Put track into sector image
*
XLVDONE		EQU	*
		LDA	cyl
		AND	#$3F	;Only lower six bits
		STA	csum	;Start checksum calc
		TAX
		LDA	>nibtab,x	;Nibbilize the track
		STA	voltrk	;Save it
*
* Put side byte into sector image
*
		LDA	cyl	;track[6] goes into side 
		ASL	a
		ASL	a
		LDA	#0
		ROL	a	;A[0] has track[6] 
		BIT	side
		BPL	iwtb
		EOR	#$20
IWTB		TAX
		EOR	csum	;Maintain the checksum
		STA	csum
		LDA	>nibtab,x
		STA	volside
*
* Now set the fmt byte
*
		LDA	Interleave	;Whatever it may be
		BIT	formsides	;Single or double desired?
		BPL	iwtc	;If one sided, skip down
		ORA	#$20	;Two sides - flip fmt[5]
IWTC		TAX
		EOR	csum
		STA	csum	;Add into checksum
		PHA		;Save for a jiffy
		LDA	>nibtab,x	;Nibbilize the fmt byte
		STA	volfmt
*
* Store sector0 and checksum
		PLA		;Get back csum
		TAX
		LDA	>nibtab,x	;Nibbilize
		STA	volcsum
		LDA	#$96
		STA	volasect	;Save sector 0 in add field
		STA	voldsect	; and in data field
		RTS
		eject
**************************************************
*                                                *
*  verify             Verify the current track   *
*                                                *
*                                                *
**************************************************
VERIFY		EQU	*
		JMP	VerifyHook
*
* Wait out the write recovery time
Verify~GCR	LDA	#2
		JSR	waitms
*
		LDA	curnsect	;Set up a counter
		STA	temp2
*
* Find and interpret an address field
VFYA		JSR	rdaddr	;this could destory temp2 if drive not Ready!!!!
		BCS	@vererr1	;If cs/bs/TO/Offline error
*
* Have we already seen this sector?
		LDX	sectfnd	;Which one is this
		CPX	curnsect	;Is it too big?
		BGE	@vererr4	;Yes- some problem
*
		LDA	xlvtab,x	;See if we've marked it before
		BMI	@vererr3	;If so, blew it
*
* Mark this sector as having been seen
		LDA	#$FF
		STA	xlvtab,x
*
* Now check the data field
		BIT	MFMflag
		BPL	@GCR
		LDA	#<BUF1
		STA	cmdbuffl
		LDA	#>BUF1
		STA	cmdbuffl+1
		LDA	#Data_Bank
		STA	cmdbuffl+2 ;MFM is always direct SO it needs bufr ptr!!
		BRA	@MFM
@GCR		STZ	DRswtch	;always verify to indirect buffr
@MFM		JSR	readdata
		BCS	@vererr2	;Return bad if problem
*
* More to do?
		DEC	temp2
		BNE	vfya
*
		CLC
		RTS		;Good exit
*
		NOP
@Vererr1		LDA	#01
@vererr2		LDA	#02
@vererr3		LDA	#03
@vererr4		LDA	#04	;debugger junk
VERERR		SEC
rts55		RTS		;Error exit 
**********************************************************************
*
* MFMWriteTrk
*
**********************************************************************
mfmWriteTrk	JSR	seek
		JSR	initMFMwtrk	;setup interleave table etc
		JSR	WaitRdyTO
		BCS	rts55		;return an error
*
* To meet the Sony formatting spec, one must wait extra time on track 0
		LDA	cyl
		BNE	@wtnowait		
		LDA	side
		BNE	@wtnowait
*
		LDA	#150
		JSR	wait2ms	;wait an extra 300ms before 1st track
		LDA	#150
		JSR	wait2ms	;wait an extra 300 ms before 1st track
*
@WTNOWAIT		EQU	*
		JSR	rdmode		;Set the head correctly
		JSR	SelectISM		;switch modes for formatting
* enable write (search for index pulse etc)

		BIT	IsmErrorR
		LDA	#$18
		STA	IsmMode0W
		LDA	#$10
		STA	IsmMode1W		;enable Write with action OFF
		LDA	#$01
		STA	IsmMode1W
		STA	IsmMode0W		;2+ us clear FIFO toggle
		STA	fmtsect		;set start sector is 1 for MFM volumes
		STZ	temp		;init the sector counter
		BIT	IsmErrorR

		SEP	#$20		; 8 bit accumulator
		LONGA	OFF		; 8 bit accumulator
		REP	#$10		; 16 bit indexes
		LONGI	ON		; 16 bit indexes
	
		LDY	#12500+325	;.2 secs / 16 us/byte = 12500 + speed margin
		LDA	#GapByte
		STA	IsmDataW		;preload FIFO with 1st two gaper's
		STA	IsmDataW		;preload FIFO with 1st two 
		XBA			;save gapByte for writing
		LDA	#$08		;(measured overhead about 90 us)
		STA	IsmMode1W		;Write Current on NOW
		
@waitIndexLo	BIT	IsmHndShR
		BPL	@waitIndexLo
		BEQ	@20
		XBA			;get gapbyte back
		STA	IsmDataW		;write a gap byte
		XBA			;get BIT mask back
		DEY
		BNE	@waitIndexLo
		BRL	NoFmtIndex
	
@20		XBA			;get gapbyte back
		STA	IsmDataW		;write a gap byte
		XBA			;get BIT mask back
@waitIndexHi	BIT	IsmHndShR
		BPL	@waitIndexHi
		BNE	mfmStartFmt
		XBA			;get gapbyte back
		STA	IsmDataW		;write a gap byte
		XBA			;get BIT mask back
		DEY
		BNE	@waitIndexHi
		BRL	NoFmtIndex

; first insure that the Index/Tach adrs is not the lingering phase line setting
; to prevent the Index Pulse cross talk from RdData line to WriteData line problem
mfmStartFmt	XBA
		STA	IsmDataW
		LDA	#%11110101	;CA [3210] = 0101
		STA	IsmPhaseW		; select the 2Meg Drive sense adrs
*
* Write out the index mark ($C2 $C2 $C2 $FC) and following gap
*
		LDX	#Gap4aSize-1	;
		LDA	#gapByte
@10		BIT	IsmHndShR
		BPL	@10		;wait for FIFO empty
		STA	IsmDataW
		DEX
		BNE	@10
*
* Write out sync (pre-index mark)
*
		LDX	#syncSize		;
@20		BIT	IsmHndShR
		BPL	@20		;wait for FIFO empty
		STZ	IsmDataW
		DEX
		BNE	@20
		
		LDX	#03		; three bytes of $C2 Index mark Writes
@30		BIT	IsmHndShR
		BPL	@30
		LDA	#$C2
		STA	IsmMarkW
		DEX
		BNE	@30
		
@40		BIT	IsmHndShR
		BPL	@40
		LDA	#$FC
		STA	IsmDataW		;4th byte of mark is just data write
*
* Index mark has no field or CRC bytes

		LDX	#Gap1Size	;
		LDA	#gapByte
@50		BIT	IsmHndShR
		BPL	@50		;wait for FIFO empty
		STA	IsmDataW
		DEX
		BNE	@50
		BRA	mfmAdrsSync
		
mfmFmtSectLp	EQU	*
*
* Format a sector Address mark
*
		LDX	#Gap3Sz1440K	;
		LDA	#gapByte
@20		BIT	IsmHndShR
		BPL	@20		;wait for FIFO empty
		STA	IsmDataW
		DEX
		BNE	@20
		
mfmAdrsSync	LDX	#syncSize		;
@30		BIT	IsmHndShR
		BPL	@30		;wait for FIFO empty
		STZ	IsmDataW
		DEX
		BNE	@30
		
		LDX	#0003		; three bytes of $A1 mark Writes
@40		BIT	IsmHndShR
		BPL	@40
		LDA	#$A1
		STA	IsmMarkW		;write 3 adrs Mark bytes
		DEX
		BNE	@40
		
@50		BIT	IsmHndShR
		BPL	@50
		LDA	#$FE
		STA	IsmDataW		; write 4th Adrs Mark byte of $FE

		LDA	cyl		
@55		BIT	IsmHndShR
		BPL	@55
		STA	IsmDataW		;write cylinder
		
		LDA	#00
		BIT	side
		BPL	@60
		INC	A
@60		BIT	IsmHndShR
		BPL	@60
		STA	IsmDataW		;write side number
		
		LDA	fmtsect		;
@70		BIT	IsmHndShR
		BPL	@70
		STA	IsmDataW		;write sector
		
@80		BIT	IsmHndShR
		BPL	@80
		LDA	#$02
		STA	IsmDataW		;format (length in 256's)

@90		BIT	IsmHndShR
		BPL	@90
		STZ	IsmCRCW		;This dummy store writes 2 CRC bytes!
*
* Format a Data Field
*
fmtmfmData	EQU	*
		LDX	#Gap2Size		;
		LDA	#gapByte
@20		BIT	IsmHndShR
		BPL	@20		;wait for FIFO empty
		STA	IsmDataW
		DEX
		BNE	@20
		
		LDX	#syncSize		;
@30		BIT	IsmHndShR
		BPL	@30		;wait for FIFO empty
		STZ	IsmDataW
		DEX
		BNE	@30
		
		LDX	#0003		; three bytes of $A1 mark Writes
@40		BIT	IsmHndShR
		BPL	@40
		LDA	#$A1
		STA	IsmMarkW
		DEX
		BNE	@40
		
@50		BIT	IsmHndShR
		BPL	@50
		LDA	#$FB
		STA	IsmDataW		;4th byte of Data mark is just data write

		LDX	#0512
		LDA	#fmtFillByte	;fill with $FA to id Apple II formatter
@60		BIT	IsmHndShR
		BPL	@60
		STA	IsmDataW
		DEX
		BNE	@60
		
@70		BIT	IsmHndShR
		BPL	@70
		STZ	IsmCRCW		;This dummy store writes 2 CRC bytes!!!
*
* More sectors this track?
*
		INC	temp		; count physical sectors
		LDA	#00
		XBA			;force B = 00 for TYA below!!!
		LDA	temp		; Sectors out so far
		CMP	curnsect		;
		BGE	@lastsect		;If that was last sector
*
* Need another sector... update the sector number
*
		TAY			;this does a 16 transfer to Y
		LDA	xlvtab,y		; Translate physical to logical sect#
		INC	A		; mfm sectors start at 1 instead of 0
		STA	fmtsect		;
		BRL	mfmFmtSectLp	;Back for next sectors 
*
* Done with last sector
*
@lastsect		EQU	*
		LDX	#0005
		LDY	#gap4bSize
		BRA	@80
		
@turnIndexOn	LDA	#%11110100
		STA	IsmPhaseW
		
@80		LDA	IsmHndShR
		BPL	@80
		XBA
		LDA	#gapByte
		STA	IsmDataW
		DEX
		BEQ	@turnIndexOn
		BPL	@88
		XBA
		BIT	#%00001000	;found index high yet?
		BNE	@fmtdone		;yep
@88		DEY
		BNE	@80
		BRA	noFmtIndex

		LONGI 	OFF
@fmtdone		SEP	#$10
		
		AND	#$20	;
		BEQ	@nounder
		LDA	#$34	;write underrun error for debug
		SEC
		BRA	mfmwtexit
@nounder		LDA	#00
		CLC
mfmwtexit		STA	error1	;save where debug is easy
*
* now Back into read mode
		LDA	#$08
		STA	IsmMode0W	;turn off write mode
		JSR	DeSelectISM
		RTS
*
* Exit when can't find the Index pulse
noFmtIndex	SEP	#$10
		LDA	#$35
		SEC
		BRA	mfmwtexit		
**********************************************************************
*
*	InitMFMwTrk
*
**********************************************************************
InitMFMWTrk	EQU	*
		lda	#AD1440KSectors
		sta	curnsect	;force this for 1440K
*
* Generate interleave table
*
		LDA	#$FF
		LDX	#AD1440KSectors-1
@CLEARXTAB	EQU	*
		STA	xlvtab,x
		DEX
		BPL	@clearxtab
*
		INX		;X=0
		LDY	#0
@ALLOCSPOT	TYA
		STA	xlvtab,x
		INY		;Physical Sector number
		CPY	curnsect	;If all sectors placed, we're done
		BGE	@xlvdone
		TXA		;Move index to A to add
		CLC
		ADC	Interleave
		TAX
@CHKBOUND		EQU	*
		CPX	curnsect
		BLT	@checkspot
		TXA		;We wrapped (C=1)
		SBC	curnsect
		TAX
@CHECKSPOT		EQU	*
		BIT	xlvtab,x
		BMI	@allocspot
		INX
		BRA	@chkbound
@XLVDONE		EQU	*
		RTS
		
		TITLE	'GETFORMAT OPTIONS'
****************************************************
* DoGetFmt   (local 3.5" units)
*
*  Return a list of format options or Offline err
*
*  input : xfrcnt says how big is output buffr is
*
*  Output: like a status command (a buffer of data)
****************************************************
GETFMTOPT		EQU	*
		CLC		;no wp errs please
		JSR	SensnChk	;do I have a media online?
		BCC	@20	;no 'error' 
		BVC	@20	;ignore dsw error
@ERR1		BRL	set_err	;return Offline error
@20		BPL	@30	;online known volume
		JSR	MountVol	;re-mount volume if possible!
		BCC	@30	;vol was known type (reformating!)
		CMP	#offline	;it went offline between Sens & mount??
		BEQ	@err1	;yep. boy that was funny
		BRA	@30	;it was I/O error after DIP
@PCERR		SEP	#$30
		LDA	#bcparmcnt
		BRA	@err1
*
@30		EQU	*
		LONGI	ON
		REP	#$10
		LDY	cmdcount
		DEY
		BMI	@pcerr	;zero or neg is bad count
		CPY	#0768
		BCC	@33
		LDY	#0512
@33		CPY	#0057	;min is 56 bytes
		BCC	@pcerr
		LDA	#00
@35		STA	[cmdbuffl],y	;pre fill user buffer with zero
		DEY
		BNE	@35	;all but last byte
		LONGI	OFF
		SEP	#$10
		
		LDX	drive
		BIT	UnitFlags,X	;is it a FDHD with MFM media
		BVC	StdMedia		;nope!
		LDA	#01
		STA	[cmdbuffl],y	;entry count is 1
		INY
		INY
		STA	[cmdbuffl],y	;display count = 1
		INY
		INY
		LDA	#AD1440K1
		STA	[cmdbuffl],y	;default refnum
		LDX	drive
		LDA	volsts,x		;current refnum
		AND	#$1F		;extract cur voltype
		INY
		INY
		STA	[cmdbuffl],y	;current refnum
		REP	#$20		;a = 16 bits
		LONGA	ON
*
* Now create a pointer of build entry
		LDA	#0008
		CLC
		ADC	cmdbuffl
		STA	csum	;use csum as zpg pointer
		SEP	#$20
		LONGA	OFF
		LDA	cmdbuffl+2
		BCC	@36
		INC	a
@36		STA	csum+2
*
* Now put some entries
		LDA	#AD1440K1
		JSR	BldFMTentry	;two entries
		LDX	#2*16+8
		LDY	#00
		CLC
		RTS
		
*
* now fake GetFmt for 400 & 800 K only
StdMedia		LDA	#02
		STA	[cmdbuffl],y	;entry count is 2
		INY
		INY
		LDA	#02
		STA	[cmdbuffl],y	;display count = 2
		INY
		INY
		LDA	#AD800K2
		STA	[cmdbuffl],y	;default refnum
		LDX	drive
		LDA	volsts,x	;current refnum
		AND	#$1F	;extract cur voltype
		INY
		INY
		STA	[cmdbuffl],y
		REP	#$20	;a = 16 bits
		LONGA	ON
*
* Now create a pointer of build entry
		LDA	#0008
		CLC
		ADC	cmdbuffl
		STA	csum	;use csum as zpg pointer
		SEP	#$20
		LONGA	OFF
		LDA	cmdbuffl+2
		BCC	@38
		INC	a
@38		STA	csum+2
*
* Now put some entries
		LDA	#AD800K2
		JSR	BldFMTentry	;two entries
		LDA	#AD400K
		JSR	BldFMTentry	;one entry
		LDX	#3*16+8
		LDY	#00
		CLC
		RTS
		EJECT
***************************************************
* BldFMTentry
*
*    Create an entry in the GETFMTOPTS list for the
* Format option given in the A-reg
* and increment the entry pointer by 16 
*
*    Input : A = format option to create
*           csum = pointer to where to put the data
*
*   Output : csum = csum+16
*
***************************************************
BLDFMTENTRY	EQU	*
		LDY	#00
@01		STA	[csum]	;set fmtoption
		TAX
		LDA	>FmtFlags,x
		AND	#$0F	;just flags bits please
		LDY	#4
		STA	[csum],y
		LDA	>FmtFlags,x
		LSR	a
		LSR	a
		LSR	a
		LSR	a	;discard the flag bits
		LDY	#12
		STA	[csum],y
;
		LDA	>VolSizeTbl,x
		LDY	#06
		STA	[csum],y
		INY
		LDA	>VolSizeTbl+1,x
		STA	[csum],y
		LDY	#10+1
		LDA	#>512
		STA	[csum],y
		LDA	>VolSizeTbl+1,x
		LSR	a
		LDY	#14+1	;hi byte first
		STA	[csum],y
		LDA	>VolSizeTbl,x
		ROR	a	;shift in bit from hi byte
		DEY
		STA	[csum],y	;size in Kbytes = blks/2
*
		LDA	csum
		CLC
		ADC	#16	;= length of 1 entry
		STA	csum
		BCC	@30
		REP	#$20	;a = 16
		INC	csum+1
		SEP	#$20
@30		EQU	*
		LDA	>FmtFlags+1,x	;related entries to do?
		BEQ	@90	;no.
		TAX
		LDY	#02
		LDA	[cmdbuffl],y
		INC	a
		STA	[cmdbuffl],y
		LDY	#00
		LDA	[cmdbuffl],y
		INC	a
		STA	[cmdbuffl],y
		TXA
		BRA	@01	;stick another entry in
@90		RTS
		EJECT
********************************************
* Format option tables
*
* This table contains 3 items in low byte
* Low Byte  b7..b4  = interleave factor n:1
*           b3,b2   = Kbytes format size 
*           b1,b0   = format flags Univ,Appl,NonAppl
* Hi Byte  refnum of related format 
*     0x is alternate interleave format
*
********************************************
KB		EQU	$04
UNIV		EQU	$00
APPL		EQU	$01
NONAPPL		EQU	$02
	; SEG	code
FMTFLAGS		EQU	*
	; SEG	fake_it
FMTOPT1		DC.B	0,0	;  0 null
		DC.B	$20+KB+APPL,0	;  2 AD400K    2:1
		DC.B	$40+KB+APPL,$00	;  4 AD800K    4:1
		DC.B	$20+KB+UNIV,00	;  6 SD1440K   2:1
		DC.B	$10+KB+NONAPPL,00	;  8 AD720K    1:1  
		DC.B	$10+KB+UNIV,$06	;  A SD1440K   1:1
		DC.B	$20+KB+APPL,$04	;  C AD800K2   2:1
FOPTMAX		EQU	*-FMTOPT1-1
		DC.W	0000
		EJECT
****************************************************
* DoSetFmt
*
*  Set the format option for the next Format command
*
*  INPUT a format option number (0..maxfopt)
*
*  OUTPUT : Error messages for conflicts between the
*           selected option and media density
****************************************************
SETFMTOPT		EQU	*
		LDA	cmdcount+1	;hi byte of clist lgth zero?
		BEQ	@10	;yep.
@BPCERR		LDA	#bcparmcnt
		BRL	set_err
@BCERR		LDA	#coderror
		BRL	set_err
@10		LDA	cmdcount	;get clist byte length
		BEQ	@13	;zero parms is default set
		CMP	#05
		BCS	@bpcerr	;too much data
		LSR	a
		BCS	@bpcerr
		LDA	[cmdbuffl]	;get fmt option
		CMP	#foptmax	;check parm range
		BCS	@bcerr	;its bad.
		AND	#01	;is it odd?
		BNE	@bcerr	;bad also.
		LDX	drive	;parm in range
		LDA	[cmdbuffl]	;get the option again
		BNE	@15	;specific fmt requested
@13		JSR	Set800KFmt ;reset to defaults
		BRA	@20	;and reply 'ok'
@15		LDY	#$80
		STY	formsides	;assume double sided
		CMP	#AD400K	;is it single sided?
		BNE	@17
		STZ	formsides
@17		EQU	*
		STA	FmtOption,x
		TAX
		LDA	>FmtFlags,x	;get interleave from table
		LSR	a
		LSR	a
		LSR	a
		LSR	a
		STA	Interleave	;set interleave from tbl
		LDA	cmdcount	;does clist include 2nd parm?
		CMP	#04
		BCC	@20	;nope. 
		LDY	#02	;offset to interleave
		LDA	[cmdbuffl],y	;get interleave override
		BEQ	@20	;nope.
		CMP	#8+1
		BCS	@bpcerr
		STA	Interleave	;use callers override interleave
@20		EQU	*
*
* For MFM types we must now verify that the drive 
* is capable of formatting the selected option
* NOTE: SetFmt Options doesn't check the current media type 
* against the selected format since the Format Command will do that
		LDA	FmtOption,x
		BEQ	@30		;not specific fmt so media type during Format cmd controls 
		CMP	#AD1440K
		BCC	@30		;not MFM fmt so either drive type is ok
		CMP	#AD1440K1+1	;
		BCS	@30		;not MFM fmt so either drive type is ok
		LDA	#UFfdhd		;can the drive do MFM?
		BIT	UnitFlags,x
		BNE	@30		;yes drive is an FDHD so mfm is ok
		JSR	Set800KFmt	;reset to this unit to default
		JMP	@BCERR		;exit with a Code Error (Wrong drive type)
@30		CLC
		RTS
************************************************
* ResetFmt
************************************************
SET800KFMT	LDA	#AD800K
		STA	FmtOption,x
RESETFMT		EQU	*
		LDA	FmtOption,x	;was SetFmt option used?
		BEQ	@10		;no. leave interleave,sides alone
		LDA	#$80
		STA	Formsides		;default GCR is DS & 4:1
		LDA	#04
		STA	Interleave
		STZ	FmtOption,x	;zero means use default
@10		RTS
		TITLE	'Control Request Handler'
****************************************************************
*                                                              *
*  Control                       Handles a control request     *
*                                                              *
****************************************************************
*
CONTROL		EQU	*
		LDA	CMDSCode	;Get the control code
		CMP	#nccodes	;Check for boundary
		BLT	ctrlokay	;It's within range
*
ILLCODE		EQU	*
		LDA	#coderror	;Bad control code
		BRL	set_err	; mark an error
*
* Code is okay... do the multi-way branch
*
CTRLOKAY		EQU	*
		ASL	a
		TAX
		LDA	>cctable+1,x
		PHA
		LDA	>cctable,x
		PHA
		RTS
*
	; SEG	code	;
CCTABLE		EQU	*
		DC.W	CTRLRESET-1
		DC.W	ILLCTRL-1
		DC.W	ILLCTRL-1	;Char dev only
		DC.W	ILLCTRL-1	;Not interrupt driven
		DC.W	CTRLEJECT-1	;Drive eject
		DC.W	HOOKSET-1	; set hook address
		DC.W	HOOKRES-1	; reset hook address to default
		DC.W	MARKSET-1	; Set mark table bytes
		DC.W	MARKRES-1	; reset mark table bytes
		DC.W	SETSIDES-1	; set single or double sided
		DC.W	SETXLV-1	; set interleave
	; SEG	fake_it	;
*
CTRLTEND		EQU	*
NCCODES		EQU	(CTRLTEND-CCTABLE)/2
*
*
ILLCTRL		EQU	*
		JMP	IllCode
*
*
CTRLRESET		EQU	*
		JSR	initformat	; make it double sided, interleave 4:1
		JSR	InitHooks
		JMP	Initmarks	; set up mark tables
*
CTRLSETDCB	EQU	*
		JMP	illcode	; not good
		RTS		;Pull the command packet
* 
CTRLEJECT		EQU	*
		LDX	drive
		JSR	EnblnSens	;enable the drive and set sense bits
		JSR	Eject	;Do the eject
* stz diskreg ;remove /ENBL35
		RTS

		TITLE	'Define the Device ID'
*****************************************************************
*                                                               *
*  Init                             Define the device UnitID    *
*                                                               *
*   Assign the UnitNo in CmdId to the next available drive      *
*   If all Devices are assigned the return a soft error for     *
*   SmartPort initialization processing                         *
*                                                               *
*****************************************************************
INITCMD		EQU	*
		LDA	DrvToAssign	;If all assigned return error
		BEQ	@30	;yep already done.
*
		LDY	#00
@10		LDA	UnitId,y
		BEQ	@20	; no drive 
		CMP	#$40	; is this drive assigned?
		BCS	@40	;no so assign it and exit
@20		INY
		CPY	#maxdrivs
		BCC	@10	;try next drive
*
@30		EQU	*
		LDA	#lasterror	;thisis a 'soft' error to SmartPort
		STA	statbyte
		RTS
*
@40		LDA	cmdUnit
		STA	UnitID,y
		DEC	DrvToAssign	;count this one
		RTS		;
		TITLE	'Miscellaneous Commands'
*****************************************************************
*
* Macread: This will map a protocol converter read call into a
*          a 524 byte block read call.
*
*****************************************************************
MACREAD		EQU	*
		JSR	MovBlkNo	;Blknum not quite where we want
		BCS	return	;count not = 524
		LDA	#CMDRead	;Make it look like a reg'ler read
		STA	CMDCode
		LDA	#$FF	; mark a mac command
		STA	mac_flag	; (doesn't work for MFM disks)
		JMP	ReadBlk	;Do a read of the block in question
*****************************************************************
*
* Macwrite: This routine will  map a protocol converter write call
*           into a 524 byte block write call.  
*
*****************************************************************
MACWRITE		EQU	*
		JSR	MovBlkNo	;Move blknum to the regular place
		BCS	return	;count not = 524!!
		LDA	#CMDWrite
		STA	CMDCode	;This is really a write
		LDA	#$FF	; mark a Mac write command
		STA	mac_flag	; (doesn't work for MFM disks)
		JMP	WriteBlk	;Do a write of the block in question
*****************************************************************
*
* Movblkno: This routine will discard the two byte count parameter
*           associated with the read or write call.  The block number
*           will be shifted up two byte and overwrite the count.
*
*****************************************************************
MOVBLKNO		EQU	*
		LDA	cmdcount+1
		CMP	#>524
		BNE	bhpcount
		LDA	cmdcount
		CMP	#<524
		BNE	bhpcount
		LDX	#$00	; reset counter
MBN1		EQU	*
		LDA	cmdadrs,x	; throw away byte count
		STA	cmdblockl,x
		INX		; next byte
		CPX	#$04	; 4 bytes moved
		BLT	mbn1	;
		CLC
RETURN		EQU	*	;
		RTS
		TITLE	'Hook set/reset routines'
*****************************************************************
*
* Hook.set: This routine will set the address field corresponding to a
*           hook  number in the firmware of the Dsony drive to a specific
*           value.  The contents of the control call parameter list is
*           as follows:
*
*                $XXYY +-------------+        Control call # = $05
*                      |  count.low  |
*                      +- - - - - - -+
*                      |  count.high |
*                      +-------------+
*                      | Hook number |
*                      +-------------+
*                      |   addr.low  |
*                      +- - - - - - -+
*                      |   addr.med. |
*                      +- - - - - - -+
*                      |  addr.high  |
*                      +-------------+
*
*****************************************************************
HOOKSET		EQU	*	;
		LDA	#$04	; 4 bytes of parameter
		JSR	chk_hpbounds	;
		BCS	exit_chk_hpbound	; something went wrong go away
		LDA	[cmdbuffl],y	; get the hook #
		PHA		; save it
		AND	#$7F	; mask off upper bit
		BEQ	bad_hook	; 0 < hook < maxhook+1
		DEC	A	; point to beginning of ram
		CMP	#maxhook	; and make sure it is in range
		BGE	bad_hook	; if not, let world know
		ASL	A	; hook number times 8 points
		ASL	A	; to start area of hook+1
		ASL	A	;
		TAX		; point to the hook table entry
		LDA	#$22	; replace jmp long with jsl
		STA	hooks+2,x	; put it in the table
		BRA	seth_loop_1	; put it in the table
SETH_LOOP		EQU	*
		LDA	[cmdbuffl],y	; get the byte
		STA	hooks+2,x	; and put it in the table
SETH_LOOP_1	INX		; point to next hook table byte
		INY		; point to next parameter byte
		CPY	#$06	; all bytes moved?
		BLT	seth_loop	; move three bytes
		PLA		; restore hook number
		BPL	exit_hook_setup	; all done he wants to fall into my code
		LDA	#^return	; force a return
		STA	hooks+5,x	; point to bank $FF
		LDA	#<return	; low byte of return address
		STA	hooks+3,x	;
		LDA	#>return	; high byte of return address
		STA	hooks+4,x	;
EXIT_HOOK_SETUP	BRL	good_exit	; mark success
;
BAD_HOOK		EQU	*
		PLA		; discard hook number
		LDA	#bhook_err	; bad hook number error
		BRL	set_err	; tell the world
		TITLE	'Check set.res.hook param count'
***************************************************
* Chk.hpbounds: This routine will check the parameter count for
*             the set hook and reset hook calls.
*
*     Import: A = compare value
*     Export: (Y) points to hook number in [cmdbuffl]
*
***************************************************
CHK_HPBOUNDS	EQU	*	;
		LDY	#$00	; point to low byte of count
		CMP	[cmdbuffl],y	;
		BNE	bhpcount	; bad parameter count
		INY		; bump to high byte of count
		LDA	[cmdbuffl],y	; must be zero
		BNE	bhpcount	; non zero = bad news
		INY		; point to hook number
GOOD_EXIT:	CLC		; mark success
		STZ	statbyte	;
EXIT_CHK_HPBOUND	RTS		; >>>--- exit chk.hpbounds --->>>
BHPCOUNT		LDA	#bcparmcnt	; bad control param count
		BRL	set_err	;
***************************************************
*
* Hook.res: This routine will restore a firmware hook to its firmware
*            default.
*
*     Import: parameter list
*             
*             +-------------+        Control call # = $06
*             | Hook number |
*             +-------------+
*
***************************************************
HOOKRES		EQU	*	;
		LDA	#$04	; 4 bytes of parameter
		JSR	chk_hpbounds	;
		BCS	exit_chk_hpbound	; something went wrong go away
		LDA	[cmdbuffl],y	; get the hook #
		BEQ	res_hooks	; hook #0 resets all hooks
		CMP	#maxhook+1	; and make sure it is in range
		BGE	bad_hook	; if not, let world know
		ASL	A	; times 8 points
		ASL	A	; to table entry
		ASL	A	;
		INC	A	; point to end of hook
		TAX		; point to start of address
		LDY	#$08
RESETH_LOOP	LDA	>hooktab,x	; get the byte
		STA	hooks,x	; and put it in the table
		DEX		; decrement count
		DEY		; decrement count
		BNE	reseth_loop	; move three bytes
		BRA	exit_hook_setup	; >>>>---- exit resethook ---->>>>
;
RES_HOOKS		EQU	*	; hook # = 0 reset all hooks
		JSR	inithooks	;
		BRA	exit_hook_setup	;
		TITLE	'Hook set/reset routines'
***************************************************
* Mark.set: This routine will allow the caller to set a specific
*           number of bytes in the mark tables to specific values.
*           The count field will be used to determine how many
*           bytes need to be moved to the mark tables. The count
*           field is required by the protocol converter.  The count
*           minus one will equal the number of bytes to move.
*
*     Import:
*              (Temp) = byte count, from chk.bounds subroutine
*            Ctrllist: +----------+        Control call # = $07
*                      | count lo | = $XX
*                      +----------+
*                      | count hi | = $00
*                      +----------+
*                      |start byte|
*                      +----------+
*                      |   data   |
*                      +----------+
*                      |   data   |
*                      +----------+
*                      |   data   |
*                      +----------+
*                        . . . .
*                        . . . .
*
*     Export:
*             A, X, Y = trash
*             (Temp) = $00
*
***************************************************
MARKSET		EQU	*	;
		JSR	chk_bounds	; make sure starting location ok & size ok
		BCS	exit_Mset	; something wrong, go away
		LDA	[cmdbuffl],y	; get start pointer
		TAX		; point to mark table location
		INY		; point to 1st data byte
SM_LOOP		LDA	[cmdbuffl],y	; get data byte
		STA	marktab,x	;
		INY		; bump source pointer
		INX		; bump destination
		DEC	temp	; decrement count
		BNE	sm_loop	;
EXIT_MSET		BRL	good_exit	; everybody happy
		EJECT
***************************************************
*
* Mark.res: This routine will reset a specified number of bytes in
*           the mark tables to their rom default values.
*
*
*     Import:
*               (Temp) = byte count, from Chk.bounds subroutine
*            Ctrllist: +----------+        Control call # = $08 
*                      | count lo | = $XX
*                      +----------+
*                      | count hi | = $00
*                      +----------+
*                      |start byte|
*                      +----------+
*
*     Export:
*             A, X, Y = trash
*             (Temp) = $00
*
***************************************************
MARKRES		EQU	*	;
		JSR	chk_bounds	; make sure starting location ok & size ok
		BCS	exit_mres	; something wrong, go away
		LDA	[cmdbuffl],y	; get pointer to first byte to change
		TAX		;
RM_LOOP		LDA	>Marktabvals,x	; get mark table byte
		STA	Marktab,x	; place it in ram based table
		INX		; point to next lower byte
		DEC	temp	; decrement byte count
		BNE	rm_loop	;
EXIT_MRES		BRL	good_exit	;
		TITLE	'Bounds check for set & reset mark'
***************************************************
*
* Chk.bounds: This routine will check the starting location against
*             number of bytes to be moved into the mark table to
*             make sure that we are within range.
*
*     Import: None
*     Export: A = index to last byte to be accessed
*     Export: C = 0, statbyte = 0 for success
*             C = 1, statbyte = $31 for range error
*             (Temp) = byte count
*
***************************************************
CHK_BOUNDS	EQU	*	;
		LDY	#$01	; point to beginning of parameter list
		LDA	[cmdbuffl],y	; upper byte must be zero
		BNE	invbcount	; too many bytes
		DEY		; point to low byte of count
		LDA	[cmdbuffl],y	;
		DEC	A	; byte count to move = count - 1
		STA	temp	; save the count
		LDY	#$02	; point past the count
		CLC		;
		ADC	[cmdbuffl],y	; add starting byte
		CMP	#marktablen+1	; and messed up if greater than
		BLT	mbok	; mark bounds ok
INVBCOUNT		LDA	#bcparmcnt	; mark a parameter count error
		BRL	set_err	;
;
MBOK		EQU	*	;
		STZ	statbyte	; everybody happy
		RTS		; >>>--- exit check bounds --->>>
***************************************************
*
* Set.sides: This routine will allow the caller to set the type
*            of media inserted into the drive.  By being able to
*            change, one can format single sided disks in a double
*            sided drive.
*
*     Import: +---------+          Control call # = $09
*             | countl  | = $01
*             +---------+
*             | counth  | = $00
*             +---------+
*             |  sides  | single = %0xxxxxxx, double = %1xxxxxxx
*             +---------+
*
*    Export: C = 0, statbyte = 0
*             A,X,Y trashed 
*
***************************************************
SETSIDES		EQU	*	;
		LDA	#$01	; 1 parameter byte
		JSR	chk_hpbounds	; check for 1 byte
		BCS	invbcount	; invalid count
		LDA	[cmdbuffl],y	; get the number of sides
		AND	#$80	; bit 7 = sides bit
		STA	formsides	; save number of sides
		BRL	good_exit	; mark success
		EJECT
***************************************************
*
* Setxlv: This routine will allow the caller to change the interleave
*         between 1 & 12 inclusive.
*
*
*     Import:
*            Ctrllist: +----------+        Control call # = $0A
*                      | count lo |
*                      +----------+
*                      | count hi |
*                      +----------+
*                      |Interleave|
*                      +----------+
*
***************************************************
SETXLV		EQU	*
		LDA	#$01	; 1 byte of parameter
		JSR	chk_hpbounds	; check bounds
		BCS	invbcount	; error if more than one byte
		LDA	[cmdbuffl],y	; get the interleave
		BEQ	xlverror	; 0< xlv <13
		CMP	#maxxlv+1	; check for the max interleave
		BGE	xlverror	; greater than 12, something is wrong
		STA	interleave	; set new interleave
		BRL	good_exit	; everybody happy
;
XLVERROR		EQU	*	;
		LDA	#xlv_err	; mark an interleave error
		BRL	set_err	;
		TITLE	'Get variable area pointer'
***************************************************
*
* Get.vars: This routine will return the start of the variable
*           area for the unified drive.  This routine is called
*           as a user defined control call in smartport.   
*
***************************************************
GET_VARS		EQU	*	;
		CLC		; native mode
		XCE		;
		PHP		; save e, m, x 
		LONGA	ON
		LONGI	ON
		REP	#$30	;
		LDY	#$0000	; destination index
		LDA	#vars_area	; return the variables
		STA	[cmdbuffl],y	; save it away
		INY		; bump index
		INY		;
		LDA	#data_bank	; save the variables data bank
		STA	[cmdbuffl],y	;
		LONGA	OFF		;
		LONGI	OFF		;
EXIT_GV		EQU	*	; Get.buff.addr exits here
		PLP		; restore e, m, x
		INY		; byte count returned
		INY		;
		TYX		; x = low count
		LDY	#$00	; y = high count
		STZ	statbyte	; mark success
		XCE		;
		CLC		; mark success
		RTS
***************************************************
*
* Get.buff.addr: This routine will return the address of the
*                unified firmware data buffers.
*
***************************************************
GET_BUFF_ADDR	EQU	*	;
		CLC		; native mode
		XCE		;
		PHP		; save e, m, x 
		LONGA	ON
		LONGI	ON
		REP	#$30	;
		LDY	#$0000	; destination index
		LDA	#sectbuf	; buffer start address
		STA	[cmdbuffl],y	; save it away
		INY		; bump index
		INY		;
		LDA	#data_bank	; save the variables data bank
		STA	[cmdbuffl],y	;
		BRA	exit_gv
		LONGA	OFF
		LONGI	OFF
*
		TITLE	'Hardware registers setup routine'
*******************************************************************
*
* Regs.setup: This routine sets up the data bank register, the disk
*             register, the CYA register and the command byte will
*             be checked for a possible extended command.  If the
*             command is an extended command then a flag will be
*             set and the extended command bit in the command byte
*             will be cleared.
*
*     Import: None
*     Export: D = $E1 data bank
*             Disk reg = $40 (enable 3.5 asserted)
*              CYA reg = 10XXXXXX (fast, NO motor slowdown)
*
*******************************************************************
REGS_SETUP	EQU	*	;
		LDA	#data_bank	; point to my data bank
		PHA		;
		PLB		;
		LDA	cyareg	; must be preserved by caller (SmartPort Mgr)
		AND	#$FB	; no motor detect
		ORA	#$80	; and fast
		STA	cyareg	; put it back
		STX	cmdUnit	; save destination unitno
		LDA	#$40	; enable sony 3.5 drives
		STA	diskreg	; asserts EN3.5 to active (low state)
		LDA	cmdcode	; get the command
		AND	#ext_cmd	; save possible extended bit
		STA	ext_flag	;
		LDA	cmdcode	; clear extended command bit
		AND	#$BF	;
		STA	cmdcode	;
		STZ	MFMflag	;MUST start out in GCR/IWM mode every time
		IF 1	THEN
		LDX	#11
@CPYCT		LDA	cmdtab,x
		STA	stssav,x
		DEX
		BPL	@cpyct	;sav a copy for debugging
		LDA	cmdUnit
		STA	stssav+5	;save unit in the 12 bytes
		ENDIF
		LDA	#$0F	;7 Mhz no timer fast asynch latch 
*  fall thru to SetIWMmode 
**************************************************************
*
* Enter setIWMmode with A set to the IWM mode desired
*
*     INPUT :   A = needed IWM mode
*    OUTPUT :   Y = input A reg
*    Destorys   A
*    Preserves  X
*
**************************************************************
SETIWMMODE	EQU	*
		TAY		;Preserve the mode byte 
		BIT	DeSelect	;deactivate the enables
		BIT	l6set	;setup for StatusRd and ModeWr
@05		LDA	l7clr	; get the status reg
		AND	#$20
		BNE	@05	;wait for enable's to drop
		BRA	@20
@10		STY	l7set	;write the mode register
@20		TYA
		EOR	l7clr	;compare with low 5 bits of status reg
		AND	#$1F	;mask off upper 3 bits
		BNE	@10	;try again if it doesn't match
		LDA	#$40
		TRB	MFMflag	;mark ISM off
		LDA	l6clr	;return to read state
		RTS
**********************************************************************
*	Setup MFM Decoding parameters
*
*	Assumes that CYL has been determined from blocknum
*
**********************************************************************
SetMFMParms	EQU	*
		LDA	CYL	;(in the range 0..79)
		CMP	#80
		BCC	@ok
		LDA	#00	;higher is unknown so assume a RECAL will occur
@ok		LDX	#-2
@loop		INX
		INX
		CMP	>mfmCylZones,X
		BCS	@loop
		LDA	>mfmCylZones+1,X	;get the parmamter group offset
		TAX
		LDY	#5		;retry count
@1		LDA	#$18
		STA	ISMMode0W		;clear 0->WRITE & ACTION (reset parm adrs to zero)
		PHX			;save starting parameter offset
@rLoop		DEX
		LDA	>mfmParams,X	; x starts at parameter zero
		BEQ	@done
		CMP	ISMParmsR		; must read parameters in sequence
		BNE	@Wparms
		BRA	@rLoop
@done		PLX
		CLC
		RTS			;Parameters all matched so It worked

@Wparms		LDA	#$18
		STA	ISMMode0W		;reset param auto inc ctr to zero
		PLX
		PHX
@wLoop		PHA
		PLA
		DEX			;delay a few cycles
		LDA	>mfmParams,X
		BEQ	@Wdone
		STA	ISMParmsW		;have to write all 16 parms in sequence
		BRA	@wloop		;nope
@wDone		PLX			;get index back for retry &/ exit
		DEY	
		BNE	@1		;so go back and read em all again or retry
		SEC
		RTS

mfmCylZones	DC.B	40,17
		DC.B	80,34
		DC.B	80,00
		DC.B	80,00
		
mfmParams		DC.B	0
		DC.B	(31-2)*2+1	;[F] Time1 = 31.5
		DC.B	$57		;[E] Early/Norm = $57
		DC.B	(15-2)*2+1	;[D] Time0 = 15.5
		DC.B	$97		;[C] Late/Norm = $97
		DC.B	(14-2)*2+1	;[B] LLS = 14.5
		DC.B	(14-2)*2+1	;[A] LLL = 14.5
		DC.B	(25-2)*2+1	;[9] LSS = 25.5
		DC.B	(25-2)*2+1	;[8] LSL = 25.5
		DC.B	(15-2)*2+1	;[7] CSLS = 15.5
		DC.B	(15-2)*2+1	;[6] RPT = 15.5
		DC.B	(14-2)*2+0	;[5] SLS = 14.0
		DC.B	(14-2)*2+0	;[4] SLL = 14.0
		DC.B	(25-2)*2+0	;[3] SSS = 25.0
		DC.B	(25-2)*2+0	;[2] SSL = 25.0
		DC.B	65		;[1] Mult = 65
		DC.B	(15-3)*2		;[0] Min = 15.0
	
		DC.B	00		
		DC.B	(31-2)*2+1	;[F] Time1 = 31.5
		DC.B	$57		;[E] Early/Norm = $57
		DC.B	(15-2)*2+1	;[D] Time0 = 15.5
		DC.B	$97		;[C] Late/Norm = $97
		DC.B	(14-2)*2+1	;[B] LLS = 14.5
		DC.B	(14-2)*2+1	;[A] LLL = 14.5
		DC.B	(25-2)*2+1	;[9] LSS = 25.5
		DC.B	(25-2)*2+1	;[8] LSL = 25.5
		DC.B	(15-2)*2+1	;[7] CSLS = 15.5
		DC.B	(15-2)*2+1	;[6] RPT = 15.5
		DC.B	(14-2)*2+0	;[5] SLS = 14.0
		DC.B	(14-2)*2+0	;[4] SLL = 14.0
		DC.B	(25-2)*2+0	;[3] SSS = 25.0
		DC.B	(25-2)*2+0	;[2] SSL = 25.0
		DC.B	65		;[1] Mult = 65
		DC.B	(15-3)*2		;[0] Min = 15.0
		
**********************************************************************
*
* Select ISM mode of SWIM
*	
*	Assumes that SETIWMMODE above has been called first
*	and that the currently in IWM mode fast mode
*
**********************************************************************
EnableISM		EQU	*
		JSR	SelectISM	
		LDA	IsmSetupR
		LDA	#%00100010
		STA	IsmSetupW	;assert EN3.5 (make it low for 15.6672 Mhz FCLK)
		LDA	IsmSetupR
		LDA	#$18
		STA	IsmMode0W	; 0-> WRITE & ACTION bits
		LDA	#$40
		STA	IsmConfigW ;config timer for 15Mhz FCLK
		LDA	#$20
		STA	IsmMode1W ; 1-> HDSEL (ISM MODE INDICATOR for debug!)
		LDA	IsmModeR
		RTS
**********************************************************************
SelectISM		EQU	*
		BIT	MFMflag
		BVS	@alreadyISM
		BIT	DeSelect	;disable the IWM drive enable (starts Drive's Timer!)
		LDA	#$4F
		BIT	l7clr	;make sure were not in write
		STA	l6set	;setup for write to IWM mode Reg
		STA	l7set
		EOR	#$40	;turn the bit off
		STA	l7set	; continue the tap dance
		EOR	#$40
		STA	l7set
		STA	l7set	; finish the fast slow fast fast dance steps
		LDA	#$40
		TSB	MFMflag
@alreadyISM	LDA	IsmModeR
		LDX	drive
		LDA	>DrivSelBit,X
		STA	IsmMode1W	;select the proper drive
		LDA	#$80
		STA	IsmMode1W	;Re-enable the selected drive (so it can't timeout)
		LDA	IsmPhaseR
		LDA	IsmModeR
		RTS

DrivSelBit	DC.B	02	;enable for drive 1
		DC.B	04	;enable for drive 2
**********************************************************************
*
* DeSelect the ISM mode of SWIM
*
*	Assumes that SelectISM above has been called and that SWIM
*	is still in ISM mode
*
**********************************************************************
DisableISM	EQU	*
		LDA	#$18
		STA	IsmMode0W	;insure action and write are OFF!
		LDA	IsmSetupR
		AND	#00	;reset all bits in setup register
		STA	IsmSetupW	;reset FCLK to 7.159 Mhz 
		STZ	ISMConfigW ;config for 8Mhz clock
		LDA	#$20
		STA	IsmMode0W	; (HDSEL = 0 means ISM mode off for degug)
		JSR	DeSelectISM
		LDX	drive
		JMP	EnblDrivX	;reSelect drive before timer drops it
		
DeSelectISM	EQU	*
		LDA	#$B8	;reset DrvEnable,HDSEL,Write,Action bits
		STA	ISMmode0W	
		LDA	 #$40
		STA	ISMmode0W
		LDA	#$40
		TRB	MFMflag	;mark ISM off
		BIT	l7clr
		BIT	l6clr	;put IWM back into read mode
		LDX	drive
		JMP	EnblDrivX	;reselect drive via IWM switches
**********************************************************************
*	Select IWM mode if ISM is enabled
**********************************************************************
SelectIWM		BIT	MFMflag	;is ISM enabled?
		BVC	@exit
		JSR	DeSelectISM
@exit		RTS

		TITLE	'Survey GCR Volume Type'
********************************************************************
* Determine the type of volume in drive
*
* complex for SWIM and FDHD's
*  06 =720 08 =1440 and 00 = unknown
*
********************************************************************
ID1MEGVOL		EQU	*
; To add support for 720K the IDGCRVol routine must Ident MFM volumes if GCR ID fails
		LDA	#3	;three non timeout retries
		STA	readret
@60		JSR	rdaddr	;find an adrsmark
		BCC	@70	;found a good one no errors
		DEC	readret
		BEQ	@err
		BIT	temp	;if temp is positive
		BPL	@60	;mark was found but CS/BS error
@ERR		SEC
		RTS
@70		LDX	drive
		LDA	volsts,x
		AND	#%00100000 ;preserve only WP status
		STA	volsts,x
		
		LDA	DblSided	;get DS flag from rdaddrs
		ORA	unitflags,x
		STA	unitflags,x
		BMI	@80	;its a dbl sided vol type
		LDA	#AD400K	;02 = 400K SS 
		BRA	@90
@80		LDA	#AD800K	;800K = 04
@90		ORA	VolSts,x
		STA	Volsts,x
		CLC
		RTS
********************************************************************
* 
* MountVol
*
*	Assumes the proper drive has been selected
*
********************************************************************
MOUNTVOL		EQU	*
		PHP
		PHA
		STX	drive
		JSR	UnkVolx	;assume failure: unktyp to volsts
*
* take no prisoners and verify /DIP
		LDA	#dipadr
		JSR	ReadBit	;
		SEC		;assume its offline
		BPL	@10	;some people never lie
		PLA		;discard input A-reg
		LDA	#offline	;return OFFLINE error
		BRA	@errxit
*
@10		LDA	#UFfdhd
		BIT	UnitFlags,X	;is this a FDHD drive?
		BEQ	@20		;NO. so must read media to get type
; To add support for 720K the IDGCRVol routine must Ident MFM volumes if GCR ID fails
		LDA	#MediaAdr
		JSR	ReadBit
		BMI	@20		;not HD media so read media to get type
		LDA	#$80
		STA	DblSided
		ORA	#UFmfm		;add the is MFM bit to unitflags (should be in volsts!)
		ORA	unitflags,x
		STA	unitflags,x	;make it dbl sided
		
		LDA	volsts,x
		AND	#%00100000	;preserve only WP bit
		ORA	#AD1440K		;and volume type (assumes its formatted)
		STA	volsts,x
		JSR	RDMODE		;leave drive as if it rdaddr was called
		CLC
		PLA
		BRA	@90	;exit with mounted and 1440K type
*

* now have DIP to read and survey for voltype
@20		JSR	MotorON	;turn motor on
		JSR	Recal	;recal to zero for Survey
		STZ	side	;force 0 for single sided
		LDX	drive
		JSR	ID1MegVol	;determine the volume type please
		PLA
		BCC	@90	;voltype identified!
		LDA	#ioerror	;DIP but unreadable is blank media!!
@ERRXIT		PLP
		SEC		;return an error instead of voltype
		RTS
@90		PLP
		RTS
**********************************************************************
*	SetDrivMode
*
* Only called from MotorOn if motor is off 
*
**********************************************************************
SetDrivMode	EQU	*
		LDX	drive
		LDA	#UFfdhd
		BIT	unitflags,X	;is this an FDHD unit?
		BEQ	@doNothing	;nope so it can't change modes
		LDY	#DrivMFMadr	;assume MFM mode set (6)
		BIT	UnitFlags,X	;is volume MFM HD media?
		BVS	@itsMFM		;YES!
		INY			; GCR Mode (7)
@itsMFM		LDA	#MFMmodeAdr	;should do this in SensNChk for FDHD's
		JSR	ReadBit		;read the drive's current mode
		BMI	@drivIsMFM	;sense drive Mode (1 = mfm mode)
@drivIsGCR	CPY	#DrivGCRadr	;is it in the right mode?
		BEQ	@doNothing	;yep
		BRA	@setMode
@drivIsMFM	CPY	#DrivMFMadr	;is it in the right mode?
		BEQ	@doNothing	;yep.
@setMode		TYA	
		JSR	WriteBit		;send cmd to set FDHD mode
		LDA	#MFMmodeAdr
		JSR	ReadBit
		BMI	@ckMFM
		CPY	#DrivGCRadr
		BEQ	@doNothing
@bad		BRK	$d3
@ckMFM		CPY	#DrivMFMadr
		BNE	@bad
@doNothing	RTS

		TITLE	'Configure the Drive(s)'
*******************************************************************
*                                                                 *
*  Configure                   Look for drives and set those fnd  *
*                                                                 *
*    This clears the drive parameters UnitFlag & UnitID & looks   *
*   at each drive to see if there is a drive there.  If a         *
*   drive is present, it stores a value in the ID byte.  The ID   *
*   byte values are as follows:                                   *
*             ID              Meaning                             *
*          00000000           No drive connected                  *
*          01000000           Drive connected needing ID assign   *
*          1xxxxxxx           Drive connected with ID             *
*   This routine also sets the DrvToAssign byte to the number of  *
*   drives that need IDs.                                         *
*                                                                 *
*   Values set:                                                   *
*     twosided  <-  $80 Double sided default                   *
*     UnitID    <-  $00 No Drive, $40 Drive needing ID         *
*     DrvCnt       <-  number of drives connected                 *
*                                                                 *
*******************************************************************
CONFIGURE		EQU	*
		LDA	#VSoffline
		LDX	#maxdrivs-1
@10		STA	volsts,x	;reset volume status to offline
		STZ	UnitID,x
		STZ	UnitFlags,x	;clear unitmode bits
		DEX
		BPL	@10
		STZ	DrvToAssign
		STZ	UnitCnt
		LDA	#$A0	;constant for BIT
		STA	fakebit
		SEC
		ROR	mideject
*
* Do this for maxdrivs drives         
*
		LDX	#maxdrivs
		BRA	@40
*
@20		EQU	*
*
* Turn on the right drive
*
		JSR	EnblDrivX	;Drive enabled  
*
		JSR	IS35drive	; look for the drive
		BCS	@40	; nothing present so skip it
*
* There's a drive here
		LDA	#ejct_reset
		JSR	WriteBit	;clear dsw on Cold or Appl-Ctrl-Reset
*
* Now mark the drive stuff
		INC	DrvToAssign
		INC	UnitCnt	;save a unit count too
		LDA	#$40
		STA	Unitid,x
*
		LDA	#FDHDAdr	;see if its an Apple FDHD
		JSR	ReadBit
		BPL	@30	;nope
		LDA	#UFfdhd
		ORA	UnitFlags,x
		STA	UnitFlags,x	;set the driv type bit
*
@30		EQU	*
		LDA	cmdcode
		AND	#%10111111
		CMP	#cmddefid		;fixed 5/29/91 JOA (was initcmd!)
		BNE	@35
		BIT	cmdscode	; allows special INIT command to skip Sens & MountVol!!
		BVS	@40	;don't do this now
@35		JSR	SensX	;set volsts per sense bits
		CLC		; MountVol preserves carry
		JSR	MountVol	;identify volume type if possible
		BCC	@40	;vol type now known
*
* No address field was found.  This could be because:
*  1)  A dummy disk is in place
*  2)  The cassette compartment is down but no disk is in place
*  3)  There is a blank piece of media or plastic shipdisk
*   -> Eject the media in all cases.
*
		JSR	eject
*
@40		EQU	*
		DEX		;Maybe a next drive
		STX	drive
		BPL	@20	;Maybe another drive
*
		BIT	DeSelect
		RTS
**********************************************************************
*
* IS35drive    This routine will check a Dsony drive present on a
*              previously specified enable line.  The routine tries
*              to set the direction on the drive and then check if the
*              direction has changed.  The direction gets set in, out
*              and in again.  If it passes all three checks then we
*              assume that a drive is present.  On exit carry will be
*              cleared if a drive is found and set otherwise.
*
*     Import: The specific enable set prior to calling the routine
*     Export: C = 0 if drive found
*             C = 1 if drive not found
*
******************************************************************
IS35DRIVE		LDA	#dirinadr	; point the drive head in
		JSR	writebit	;
		JSR	readbit	; get the status
		BMI	@10	; can not see it
		LDA	#diroutadr	; point towards edge of disk
		JSR	writebit	;
		JSR	readbit	; get the status
		BPL	@10	; something wrong
		LDA	#dirinadr	; point in again
		JSR	writebit	; set direction in
		JSR	readbit	;
		CLC		; assume drive found
		BPL	@20	; and go away
@10		SEC		; no drive
@20		RTS
		TITLE	'Seek Routine'
**************************************************
*                                                *
*  seek                     Seek to a cylinder   *
*                     Assume curcyl is correct   *
*                                                *
*   Input:    cyl <- cylinder to seek to         *
*             drive <- drive on which to seek    *
*             curcyl <- head rests here          *
*   Output:   C <- set if seek error occurred    *
*             curnsect <- # sectors this cyl     *
*   Uses:     recal, sendsteps, WriteBit         *
*   Regs:     A <- error2 (if carry set)         *
*   Destroys: X, Y                               *
*                                                *
**************************************************
	; SEG	fake_it	;
SEEKA		EQU	*
		STA	cyl
	; SEG	code	;
SEEK		EQU	*
	; SEG	fake_it	;
		JMP	SeekHook
*
* If drive is offline (cyl unknown), do a recal
		LDX	drive
		BIT	curcyl,x	;Set N to online
		BPL	@05	;If cyl known, skip recal
		JSR	recal
		BCS	seekerr
@05		EQU	*
*
* Determine # of steps to take, and direction
		SEC
		LDX	drive
		LDA	curcyl,x
		SBC	cyl	;Calculate delta 
		BEQ	seekdone	;If on track, skip down
*
* At this point, C clear means inward seek, ow out
		LDY	#diroutadr	;Assume outward seek 
		BCS	@10	;Branch on outward seek
*
		LDY	#dirinadr	;Setnasrt value for inward seek
		EOR	#$FF	;Gotta convert the negative delta
		ADC	#1	;Carry was already clear 
*
@10		EQU	*
		TAX		;Move delta to X reg
		TYA		;Set up to set the direction
		JSR	WriteBit
*
* Now do the stepping; delta in X
		JSR	sendsteps	;Send the step pulses 
*
SEEKDONE		EQU	*
* 
* Update the current cylinder byte and exit error free 
		LDX	drive
		LDA	cyl
		STA	curcyl,x
*
		JSR	cylsect	;Map to sectors this cylinder
		STA	curnsect	;Update # sectors this cyl
*
		CLC		;Return Good!
		RTS
*
* Flip the seek error bit on (carry set previously) 
SEEKERR		EQU	*
		LDA	#seekerror
		ORA	error2
		STA	error2
SKERR		EQU	*
		RTS
		TITLE	'Track Stepping Routine'
**************************************************
*                                                *
*  sendsteps           Steps a number of tracks  * 
*                        assume IWMDIR to drive  *
*                                   and dir set  * 
*                                                *
*   Input:    X <- number of tracks to step      *
*   Destroys: A, Y                               *
*             X cleared                          *
*                                                *
*  (Delays after stepping until /READY is valid) *
*                                                *
**************************************************
SENDSTEPS		EQU	*
*
* Take a step
*
		LDA	#step0adr
		JSR	WriteBit
*
* Wait for handshake from drive
*
SS1		JSR	IWMsense
		BPL	ss1
*
* See if more steps to do
*
		DEX
		BNE	sendsteps
*
* The current Sony /READY is not valid for 150 microseconds after a
*  step pulse.
*
		LDX	#$4F	; constant for 150 usec delay
WAIT150M		DEX
		BNE	wait150m
		RTS
		TITLE	'Recalibrate'
**************************************************
*                                                *
*  recal                       Seek to track 0   *
*                                                *
*   Input:    drive <- current drive             *
*   Output:   curcyl <- 0                        *
*             C <- clr:okay, ow step/sensor err  *
*             X <- drive                         *
*   Destroys: A, X, Y                            *
*                                                *
**************************************************
RECAL		EQU	*
*
* Set the step direction to out
*
		LDA	#diroutadr
		JSR	WriteBit
*
		LDA	#tk0adr
		JSR	ReadBit	;is is already at trk0?
		CLC
		BPL	@30	;yes. so alldone
*
* Send a whole bunch of step pulses
*
		LDX	#recaltrks
		JSR	sendsteps
*
* Now wait for /TK0 with timeout
*
		LDX	#recaltrks+5	;head settling = 5 trk seeks
@10		LDA	#tk0wait	;Gonna wait a few ms
		JSR	waitms
*
		LDA	#tk0adr
		JSR	ReadBit
		CLC
		BPL	@30	;=> Saw track 0 
*
		DEX
		BNE	@10
*
* Never saw /TK0
*
@20		EQU	*
		SEC
@30		EQU	*
		LDX	drive
		STZ	curcyl,x
		RTS
		TITLE	'Eject the Diskette'
**************************************************
*                                                *
*  eject                   Ejects the diskette   *
*                                                *
*   Output:   C <- set if eject fails            *
*   Destroys: A,X,Y                              *
*                                                *
**************************************************
EJECT		EQU	*
*
* Make sure there is a disk in there
		LDA	#dipadr
		JSR	ReadBit
		BMI	@90	;no. so insure it unmounted!
*
		LDX	drive
		LDA	curcyl,x	;save current posn
		BPL	@01
		LDA	#00	;if cyl unknown Seek does a Recal
@01		PHA		;save it for later
		LDA	#79	;pull head inward  BUT don't verify
		JSR	SeekA	;arrival since RdAdrs is the only means
*
* Must first turn off the motor
		LDA	#mtroffadr
		JSR	WriteBit
*
* And you gotta wait minimum of 200 milliseconds (Kamoto says)
		PLA
		STA	cyl
		LDA	#80
		SBC	cyl	;calc length of seek  
		CMP	#34	;33 is to few
		BCS	@03
		LDA	#34	;at minimum wait is 200 ms
@03		STA	cyl	;eg IF A = 80
		ASL	a	; THEN A =160 
		CLC		; PLUS     80 = 240 * 2 = 480 Ms
		ADC	cyl	; EQUALS  6ms / 80trks = 480 ms
		JSR	Wait2Ms	;wait 6ms / trk (min 200)
*
		LDA	#EjectRetries	;# of attempts to eject
		STA	seekret
*
* Now set a flag that says we're in the middle of an eject this drive
*  This is important in case we're reset while ejecting
		LDX	drive
		STX	MidEject
@10		EQU	*
		LDA	#eject1adr
		JSR	WriteBit
;
		LDA	#EjectTimeOut
		STA	readret	;This many groups of 10 ms timeout
@20		EQU	*
		LDA	#10
		JSR	waitms	;Wait a while
*
* Now see if the cassette actually out 
*
		LDA	#dipadr
		JSR	ReadBit
		BMI	@40
		DEC	readret
		BNE	@20	;Maybe next time
*
* Failed an attempt.  Maybe send the command again.
*
		DEC	seekret
		BNE	@10
*
* Disk was NOT ejected.  Set carry and return.
		LDA	#ioerror	;Set up error byte
		BRL	set_err	; mark an error
*
* The disk was ejected. UnMount volume  (clear state vars)
@40		EQU	*
*
		LDA	#1
		JSR	waitms
		SEC
		ROR	MidEject	;Clear the mideject flag
*
@90		LDX	drive
		JSR	OfflineX	;clear volsts and set offline (X)
		CLC
		RTS
*
*****************************************************************
*                                                               *
*  WaitRdyTO   Waits for /READY for 1.5 seconds                 * 
*                                                               *
*****************************************************************
WAITRDYTO		EQU	*
*
* Set up to read the /READY line
*
		LDA	#readyadr
		JSR	ReadBit	;Set the control lines
		BIT	l7clr
		BMI	@10	;its not ready on 1st try
@RDY		CLC
		RTS
*
* Now Poll for /Ready for 1.5 seconds max
@10		LDX	#>15000
		LDY	#<15000
@20		LDA	#01
		JSR	wait100us	;waste about .1 ms
		BIT	l7clr	;and test again
		BPL	@rdy
		DEY
		BNE	@20
		DEX
		BNE	@20
		SEC
		RTS
		EJECT
***********************************************************
*
* MotorOn
*
***********************************************************
MOTORON		EQU	*
*
* First check if the motor is on already
*
		LDA	#mtronadr
		JSR	ReadBit
		BPL	@90
*
* Now the drive mode must be checked and set if its wrong
*	
		JSR	SetDrivMode
*
* It wasn't.  Turn it on now.  Control lines are already set.
*
		LDA	#mtronadr
		JSR	WriteBit
*
* Have to wait either 50 or 500 milliseconds before proceeding
*
		LDX	drive
		LDA	#UFchukwait	;
		BIT	UnitFlags,x
		BNE	@10
		ORA	UnitFlags,x
		STA	Unitflags,x	;set the chuckwait done bit
		LDA	#InMupWait	;500 
		BRA	@20
@10		LDA	#StdMupWait	;100
@20		JSR	wait2ms	;Wait some time
@90		RTS
		TITLE	'Low Level Drive Control Routines'
***************************************************
*
* SetHead
***************************************************
SETHEAD		EQU	*
		LDA	diskreg	; get disk/hdsel register
		AND	#$7F	; mask off head select bit
		BIT	side	; check which side
		BPL	shead0	; set head 0
		ORA	#$80	; else set head 1
SHEAD0		STA	diskreg	; set it
		RTS
*
**************************************************
*                                                *
*  ReadBit                Control routines for   *
*  WriteBit       reading/writing signals from   *
*                               the SONY drive   *
*                                                *
*                                                *
*   Input:    A <-  X X X X CA1 CA0 SEL CA2      *
*   Regs:     A cleared (ReadBit: IWM status)    *
*             X preserved                        *
*             Y destroyed                        *
*   Time:     72 microsecs (inc JSR)             *
*                                                *
**************************************************
READBIT		EQU	*
*
* Set up the control lines
*
		JSR	sdclines
*
* Now read the sense line from the IWM into the N flag
*
IWMSENSE		BIT	l6set	;Set L6 
		LDA	l7clr	;Read the status
		RTS
*
********************************************************
*   WriteBit
*
**********************************************************
WRITEBIT		EQU	*
*
* Set up the lines, then 'LSTRB' Acc's lsb over
*
		JSR	sdclines
*
PULSELSTB		BIT	lstrbset	;Raise LSTRB
		BIT	lstrbclr	;Lower it after 2 micros (twice spec)
		RTS
		EJECT
***********************************************************
*
* SDCLINES
***********************************************************
SDCLINES		EQU	*
*
* Must set CA0, CA1 before changing HDSEL 1->0
*
		BIT	ca0clr
		BIT	ca1set
		BIT	lstrbclr	;
*
* Set CA2 per Acc lsb
*
		BIT	ca2clr	;Assume lsb clear
		LSR	a	;lsb -> C; Acc has 0XXXX CA1 CA0 SEL
		BCC	sdcla	;=> We were right
		BIT	ca2set	;We were wrong, set CA2
*
* Deal with SEL setting
*
SDCLA		EQU	*
		LSR	a	;SEL -> C; Acc has 00XXXX CA1 CA0
		PHA		;Hold that thought
		LDA	diskreg	;Assume SEL will be 0
		AND	#$7F	; => I'm just psychic
		BCC	sdclb	; Luckily HDSEL is lsb
		ORA	#$80	; set Hdsel to a one
SDCLB		STA	diskreg	; Finally set SEL correctly
		PLA		;Get CA0 & CA1 back
*
* Now for CA0, CA1. CA0 is low, CA1 is high,
*  clear them if we were asked to.
*
		LSR	a	;C has CA0
		BCC	sdclc	;If 0, nothing to be done
		BIT	ca0set	;Okay, set it
*
SDCLC		LSR	a	;Get the CA1
		BCS	sdcld
		BIT	ca1clr	;Clear it
*
SDCLD		RTS
*******************************************************************
*                                                                 *
*  EnblUnitX      Enable unit given in X-reg if it exists         *
*                                                                 *
*    Input   X-reg : 0/1 - Specify the unit to enable             *
*    Output  A : destroyed                                        *
*         X &Y : preserved                                        *
*            C : clr if drive enabled, set if drive non-existant  *
*                                                                 *
*******************************************************************
* Check if this drive is connected
ENBLUNITX		SEC
		LDA	UnitId,x	;does unit exits?
		BEQ	enexit	;yes
***************
ENBLDRIVX		BIT	enable1,x	; enable proper drive ;
		BIT	Select	; activate the enable line
		CLC
ENEXIT		RTS
****************
DRIVESOFF		EQU	*
		BIT	DeSelect	; deactivate the drive enable
		RTS
		EJECT
***********************************************************
* EnblnSens
*
*
*
*
*
***********************************************************
ENBLNSENS		EQU	*
		BIT	enable1,x	; enable proper drive ;
		BIT	Select	; activate the enable line
SENSX		LDA	volsts,x
		STA	priorsts	;save for history compares
		AND	#$1F	;preserve voltype index
		ORA	#VSwrprot	;preset b5 so EOR resets
		STA	volsts,x
		TXY
		LDX	#3
@10		LDA	>sensbit-1,x
		JSR	readbit
		BPL	@20
		LDA	>statbit-1,x
		EOR	volsts,y
		STA	volsts,y
@20		DEX
		BNE	@10
		TYX
		LDA	#VSwrprot
		BIT	volsts,x
		RTS
*
	; SEG	code
SENSBIT		DC.B	WPROTADR,DIPADR,EJCTADR
STATBIT		DC.B	VSWRPROT,VSOFFLINE,VSEJCTED
	; SEG	fake_it
************************************************************
* SensnChk
*
*   Sense the drive status and return priority encoded errors
* as follows:
*
* Enable drive and save 3 Sense bits in volsts
* IF media Offline
* THEN 'Offline' the volsts :
*    : If dsw Then clear dswlatch : EC = 00
*                  if ext.cmd then EC = Disk Switched ($2E)
*                  else EC = Offline ($2F) 
*    : Err = 1 : rtn n,v bits  : exit
* ELSE Disk-in-Place   
*   If dsw Then 'UnMount' volsts : clear dswlatch 
*        : if ext.cmd then EC = $2E : Err = 1: rtn n,v bits : exit
* IF Mode = Write THEN If WritProt Then EC = $2B : Err = 1 : exit
* IF voltype = unknown THEN mount =1 
* RETURN
*
*  INPUT :   R/W Mode = Carry   Set = Write   Clr = Read
*
* OUTPUT :               Err EC Mnt /DIP
*   case description      C   A  N  V (Carry, A-reg, N-flag, V-flag)
* -------------------------------------------------------------------
* No Media    & DSW set   1  $2E 1  1 Disk Switched (extended cmd)
* No Media    & DSW set   1  $2F 1  1 Offline error (std cmd)
* No Media    & DSW clr   1  $2F 0  1 Offline after dsw cleared
* DiskInPlac & DSW set    1  $2E 1  0 Disk Switched (extended cmd)
* DiskInPlac & Wp & DSW   1  $2B 1  0 NoWrite (std cmd & write mode)
* DiskInPlac & Wp & noDSW 1  $2B 0  0 NoWrite (std cmd & write mode)
* DiskInPlac & DSW set    0  $00 1  0 MountVol   (std cmd)
* DiskInPlac & Dsw clr    0  $80 1  0 MountVol unknown voltype 
* DiskInPlac & Dsw clr    0  $00 0  0 Known online volume (at last)
* 
************************************************************
SENSNCHK		EQU	*
		PHP		;save R/W mode
		LDX	drive	;enable and check drive
		JSR	EnblnSens	;get the drive status bits
		BVC	@DIP	;Drive carrier down (and thus media?)
*
* Volume is OFFLINE
		PHP		;save n flag
		JSR	OfflineX	;clear volume type and set offline
		PLP
		BPL	@05	;offline and not DSW
		JSR	ClearDSW	;clear drive latch and rtn dswerr 
		BCS	@10	;have dsw error to return
@05		LDA	#offline	;if not dsw then Offline error
@10		PLP		;discard R/W mode 
		BRA	@chkerr	;exit with WP error
*
* here IF ONLINE true
@DIP		BPL	@WPtest	;DIP but not DSW!
* OK do DIP true and eject true also
		JSR	UnkVolX	;set volsts to online but unknown
		JSR	ClearDSW	;clear drive latch 
		BCS	@10	;its dswerror!
*
* Now do the Write Protect check
@WPTEST		PLP		;carry set say return WP error
		BCC	@volchk	;read mode so don't check WP
		LDA	#VSwrProt
		AND	volsts,x	;NE if Wprot and Write
		BEQ	@volchk	;no WP error
		LDA	#WPerror
@CHKERR		SEC
		BRA	@exit
*
* Now have Online, no dswerr, no WP err
@VOLCHK		LDA	volsts,x	;volume type is low 5 bits 
		AND	#$1F	;drop sense bits
		CLC		;return no error!
		BNE	@noerr	;yeah. a normal access to known voltype
		BIT	volsts,x
		LDA	#$80	;force n=1 preserve v and c=0
		RTS
@NOERR		LDA	#00
@EXIT		BIT	volsts,x
		RTS
*******************************************
* Clear DSW etc
*
*  INPUT : X = drive number (0,1)
*
*  OUTPUT: A = 00 or $2E 
*          A = dswerror if extended cmd 
*          C = 1 if err
*          C = 0 if no error
*
*******************************************
CLEARDSW		EQU	*
		LDA	#ejct_reset
		JSR	WriteBit	;clear the drive latch
		LDA	#00
		CLC
		BIT	ext_flag
		BVC	@10
		LDA	#dswerror	;replace callers with mine
		SEC
@10		RTS
		TITLE	'Time Delay Subroutines'
**************************************************
*                                                *
*  waitms        Wait the specified # millisecs  * 
*                         assuming a 2MHZ clock  *
*                   (accurate to roughly +0.7%)  * 
*                                                *
*  If code straddles pages, it is less accurate  *
*                                                *
*   Input:    A <- milliseconds of delay         *
*   Destroys: A; temp and temp2 cleared          *
*   Prserves: X, Y                               *
*                                                *
**************************************************
WAIT2MS		EQU	*
		PHA
		JSR	waitms
		PLA
*****************
WAITMS		EQU	*	;Time= 0.0005*(A*2013+9) 
*                              ;    = Acc * 1.007 millisecs
		STA	temp2	;(3) 
		LDA	cyareg	; slow down
		PHA		; save old settings
		AND	#$7F	;
		STA	cyareg	;
*
WAITB		LDA	#tconstant	;(2) waitb is >1022 slow cycles 
		STA	temp	;(3) 
*
WAITA		DEC	temp	;(5) waita is 10 cycles
		NOP		;(2) 
		BNE	waita	;(3,2) 
*
		DEC	temp2	;(5) 
		BNE	waitb	;(3,2) 
*
		PLA		;(4) restore cya register
		STA	cyareg	;(4)
		RTS		;(2) = 25+20= 45
		
Wait100us		STA	temp2	;(1)
		LDA	CYAreg	;(2) = 3
		PHA		;(1) = 4
		AND	#$7F	;(1) = 5
		STA	cyareg	;(2) = 7
		LDA	#7	;(2) = 11	   7*10 + 35 = 105
		STA	temp	;(3) = 14
		BRA	WAITA	;(3) = 17 + 18 = 35
************************************
* Offline
*
* Reset all variables for media  Offline
*
******************************************
OFFLINEX		EQU	*
		LDA	#%01000000	;set offline bit
		ORA	Volsts,x
		STA	Volsts,x
UNKVOLX		LDA	UnitFlags,x
		AND	#%00101111	;enable chukwait next DIP access
		STA	UnitFlags,x
		LDA	#$FF
		STA	curcyl,x	;reset to unknown track ($FF)
		LDA	volsts,x
		AND	#%11100000	;scratch voltype
		STA	Volsts,x	;volume status to unknown
		RTS
		TITLE	'Block Mapping Routine'
**************************************************
*                                                *
*  BlkMap           Map the block number to      *
*                       track, sector, side      *
*                                                *
*   Input:    CmdBlockl,h <- block to convert    *
*             drive <- current device            *
*             twosided <- for the current dev    *
*   Output:   cyl, sector, side                  *
*   Uses:     TrackSect                          *
*   Regs:     A <- sector                        *
*             X <- drive                         *
*   Destroys: Y, temp                            *
*   Max time: 316 microsec  (2MHZ)               *
*                                                *
**************************************************
BLKMAP		EQU	*
		LDX	drive
		LDA	volsts,x
		AND	#$1F		;extract voltype
		TAY
		LDA	UnitFlags,x
		CPY	#02		;single sided?
		BNE	@05
		AND	#-1-UFdblsided
		BRA	@06
@05		ORA	#UFdblsided	;set flag for Dblsided vol type
@06		STA	UnitFlags,x	;
		BIT	MFMflag		;is this MFM volume?
		BMI	MFMBlkMap		;yes. has fixed sects/trk
*
* Preserve the low order six bits
		LDA	CmdBlockl
		AND	#$3F
		STA	sector
*
* Obtain a table driven "guess" for the track, sector.
*  Get index into table with CmdBlock div 64.
		LDA	cmdBlockl	;
		STA	temp	;dexxxxxx
		LDA	cmdBlockh	;0000 0abc  (max of 06)
		ROL	temp
		ROL	A	;0000 abcd
		ROL	temp
		ROL	A	;000abcde = Block DIV 64
*
* If this disk is 800K GCR offset to second half
*  of the track and sector tables.
* 
		BIT	UnitFlags,x	;is this single sided GCR vol?
		BPL	@10	;yes.
*
		CLC
		ADC	#13
*
@10		EQU	*
		TAX		; set up table index
		LDA	>sectab,x	; sector number
		PHA		; save it
		LDA	>tracktab,x	; track number
		TAY		; save it
		PLA		; restore sector number
*
* Y now has the track and A has the sector of the
*  requested CmdBlock with the low six bits clear.
*  Now we add the low six bits and correct an 
*  illegal mapping by subtracting off tracks
*  of sectors.
		LDX	drive	;TrackSect will need this
		CLC
		ADC	sector
@20		PHA		;Preserve the sector number 
		JSR	TrackSect	;A <- # sectors on current track 
		STA	temp	;Keep A 
		PLA		;Pull back sector number 
		CMP	temp	;Bigger than # on this track? 
		BLT	@30	;No: block's been mapped; branch 
		INY		;Next track 
		SBC	temp	;Subtract # sectors that track 
		BRA	@20	;Try again 
*
* Acc now has the sector, and X now has the track. 
*  In the case of a two sided disk, the track is
*  actually twice the cylinder, so correct for that.
*
********************************************
*  Note that the carry is clear here.   ****
@30		STY	cyl
		STA	sector
		BIT	UnitFlags,x
		BPL	@40
*
* The track (A) is really the cylinder*2 plus the side.
*  -> CCCCCCCS. Div by two puts cyl->A and side->carry.
		LSR	cyl
@40		ROR	side	;shift in c=0 if 400K
		LDA	sector	;recover a reg
		RTS
		eject
**********************************************************************
*
*  MFM BlkMap is always double sided and 36 sect per cylinder
*  since only 1440K is supported (720K is 18 sects per cylinder)
**********************************************************************
mfmBlkMap		EQU	*
* How about a segmentation algorithm that converts the block number by
* first looking thru a 16 entry table of block numbers that has the
* base block number and compute by subtraction the remainder block count 
* that can have blks/track subtracted repeatedly to determine the final track number.
* This divides the block number into 16 groups of 10 tracks (5 cylinders) and leads to
* at most 9 subtracts to finish the divide operation
;	i = 15 // 15*2 = 30
;	if (Blknum >= RangeTbl[i] )
;	{  remainder = blknum-RangeTbl[i];
;	   while (remainder >= trktbl[j];) j++;
;	}
		LDX	#-2
		longa	ON
		REP	#$20	;
@searchRT		INX
		INX
		LDA	>BlkRangeTbl+2,X	;get word
		BMI	@err
		CMP	CmdBlockl		; if tblentry+1 < blocknum?
		BCC	@searchRT		; yes. so try next larger entry
		LDA	CmdBlockl
		SBC	>BlkRangeTbl,X	;rem (0-179) = blknum - tblentry
		STA	EXINDEX		;save remainder in a zpg temp(16 bit store)
		LDA	>TrkOriginTbl,X	;get starting track value
		TAX			; get initial cylinder in X 
		LDA	EXINDEX		;get remainder back (16 bit fetch)
@div18loop	SEC
		SBC	#AD1440KSectors
		BMI	@done
		INX			;count whole tracks
		BRA	@div18loop	; loop max of 10 times

@done		CLC			;sectors start from 0 like on GCR disks
		ADC	#AD1440KSectors	;add 18 back in
		SEP	#$20
		longa	OFF
		STA	sector		; result is 0..17 (not 1-18)!
		STX	cyl
		LSR	cyl		; convert track(0-159) into cylinder (0-79)
		STZ	side
		ROR	side		; side = 00/$80
		LDA	sector
		LDX	drive
		RTS
		
@err		BRK	$D2		;this should never happen

BlkRangeTbl	DC.W	0000
		DC.W	180
		DC.W	180*2
		DC.W	180*3
		DC.W	180*4
		DC.W	180*5
		DC.W	180*6
		DC.W	180*7
		DC.W	180*8
		DC.W	180*9
		DC.W	180*10
		DC.W	180*11
		DC.W	180*12
		DC.W	180*13
		DC.W	180*14
		DC.W	180*15	; BlkNum < 2700
		DC.W	180*16	; BlkNum < 2880
		DC.W	-1	;end of table flag
		
TrkOriginTbl	DC.W	0000
		DC.W	0010
		DC.W	0020
		DC.W	0030
		DC.W	0040
		DC.W	0050
		DC.W	0060
		DC.W	0070
		DC.W	0080
		DC.W	0090
		DC.W	0100
		DC.W	0110
		DC.W	0120
		DC.W	0130
		DC.W	0140
		DC.W	0150
		DC.W	-1
		

		
		TITLE	'Track Class & Number of Sectors'
**************************************************
*                                                *
*  TrackSect        Determine the number of      *
*                       sectors for a cylinder   *
*                                                *
*   Input:    Y <- the track                     *
*             X <- the drive                     *
*   Output:   A <- number of sectors this cyl    *
*             class <- speed group (0-4)         *
*   Prsrves:  X & Y (carry is set)               *
*   Max time: 16 microsec  (2MHZ)                *
*                                                *
**************************************************
TRACKSECT		EQU	*
		TYA
		BIT	UnitFlags,x	;is volume 400K gcr format ?
		BPL	cylsect	;yes.
		LSR	a	;map trk (0..159) to cyl (0..79)
*
CYLSECT		LSR	a	;Alt entry for A <- cyl 
		LSR	a
		LSR	a
		LSR	a
		STA	class
		LDA	#12
		SEC
		SBC	class	; 12-(0,1,2,3,4)=12..8
RETURN_3		RTS		;A has # of sectors per track
*
*
* This table contains the track number of blocks with
*  the low six bits clear.  The first part (13) are the
*  tracks for a single sided drive, the second (25) for
*  a double sided drive.
*
	; SEG	code
TRACKTAB		DC.B	0,5,10,16,21,27,33,40,46,53
		DC.B	60,68,76
		DC.B	0,5,10,16,21,26,32,37,43,49
		DC.B	55,61,67,73,80,86,92,99,106,113
		DC.B	120,128,136,144,152
*
* This is the sector table.  It has an organization
*  just like that of the track table.
*
SECTAB		DC.B	0,4,8,0,9,7,6,0,4,3,4,0,0
		DC.B	0,4,8,0,4,8,0,9,7,5
		DC.B	3,1,2,6,0,4,8,5,6,7
		DC.B	8,0,0,0,0
	; SEG	fake_it
*
*
		TITLE	'Convert and Test block number'
*****************************************************************
*                                                               *
*  blockchk                Convert and test the coded block no. *
*                                                               *
*    This routine checks the block in the command table to see  *
*  if it is within the correct bounds for this disk.            *
*                                                               *
*   Regs:   A,X  destroyed                                      *
*           Y    preserved                                      *
*           C <-- 1 if block out of range; 0 otherwise          *
*   Time:   40 microseconds (no error)                          *
*                                                               *
*****************************************************************
BLOCKCHK		EQU	*
		LDX	drive
		LDA	volsts,x
		AND	#$1F	;get voltype
		TAX		;=2,4,6,8,10 etc
*
* Got a pointer to the block size for this disk, drive
		LDA	CmdBlockl+2
		ORA	CmdBlockl+3
		BNE	invalid_block
		LONGA	ON
		REP	#$20
		PHA		;preserve B for write 
		LDA	CmdBlockl
		CMP	>VolSizeTbl,x
		PLA
		SEP	#$20
		LONGA	OFF
		BCC	return_3
*
* Lousy block number.  Set statbyte 
INVALID_BLOCK	EQU	*	;
		LDA	#ibnerror	;Flag illegal block number
		BRL	set_err	; mark an error
*
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSFirmware/AD3.5Driver/write.aii b/IIGS.601.SRC/GSFirmware/AD3.5Driver/write.aii
new file mode 100644
index 0000000..fd52990
--- /dev/null
+++ b/IIGS.601.SRC/GSFirmware/AD3.5Driver/write.aii
@@ -0,0 +1 @@
+		TITLE	'Write prep routine'

;	This EdAsm/Asm816 source code file was converted to AsmIIGS
;	by EdAsmCvtIIGS version 1.2d8 on 5/16/91 at 9:23:56 PM

*********************************************************
*
* 
* Writerprep: This routine will the users data, split it into three
*             segments and generate the checksum.  Once the data has
*             been split the fourth byte of the checksum is generated,
*             then the first three data bytes are nibblized.  The 
*             nibblizing of the data bytes creates a fourth byte which
*             contains the upper two bits from each of the data bytes.
*             This fourth byte will be kept in the upper half to the
*             accumulator.
*
*     Import: [cmdbuffl] = pointer to users data buffer
*             Y = number of groups of three bytes to move.
*                 The Y register is set up in the routine for the
*                 protocol converter write call routine.
*                 Y = 171 for Apple //e blocks
*                 Y = 175 for Macintosh blocks
*
*     Export: Cbyte0 = 1st nibblized data byte
*             Cbyte1 = 2nd nibblized data byte
*             Cbyte2 = 3rd nibblized data byte
*            B accum = extra bits from first three data bytes.
*
*********************************************************
WRITEPREP		EQU	*	;
		LONGI	ON		;
		REP	#$10	;
		STZ	csuma
		STZ	csumb
		STZ	csumc
		BRA	wp4
*
WPTOP		EQU	*
		LDA	[cmdbuffl],y
		ADC	csumc
		STA	csumc
		LDA	[cmdbuffl],y
		EOR	csumb
		STA	buf3+1,x
		INY
*
WP4		EQU	*
		ASL	csumc
		BCC	wp1
		INC	csumc
WP1		EQU	*
		LDA	[cmdbuffl],y
		ADC	csuma
		STA	csuma
		LDA	[cmdbuffl],y
		EOR	csumc
		STA	buf1,x
		INY
*
WP2		EQU	*
		LDA	[cmdbuffl],y
		ADC	csumb
		STA	csumb
		LDA	[cmdbuffl],y
		EOR	csuma
		STA	buf2,x
		INY
*
WP3		EQU	*
		DEX
		BNE	wptop
		LONGI	OFF		;
		SEP	#$10	;
*
* And also figure the 'fourth' checksum byte
*
		LDA	csumc	;CCCCCCCC
		LSR	a	;0CCCCCCC
		LSR	a	;00CCCCCC
		EOR	csumb	;00CCCCCC+BBBBBBBB
		AND	#%00111111
		EOR	csumb	;BBCCCCCC
		LSR	a	;0BBCCCCC
		LSR	a	;00BBCCCC
		EOR	csuma
		AND	#%00111111
		EOR	csuma	;AABBCCCC
		LSR	a	;0AABBCCC
		LSR	a	;00AABBCC
		STA	wcsum
*
* Okay, now prime the write pump with the first three data Cbytes.
*
		LDA	#$00	; clear upper half of accumulator
		XBA		;
		LDA	buf1+175
		STA	Cbyte1
		REP	#$20	; 16 bit accmulator
		ASL	A	;
		ASL	A	;
		SEP	#$20	; 8 bit accumulator
*
		LDA	buf2+175
		STA	Cbyte2
		REP	#$20	; 16 bit accmulator
		ASL	A	;
		ASL	A	;
		SEP	#$20	; 8 bit accumulator
*
		LDA	buf3+175
		STA	Cbyte3
		REP	#$20	; 16 bit accmulator
		ASL	A	;
		ASL	A	;
		SEP	#$20	; 8 bit accumulator
		RTS

		TITLE	'Write Routines'
**********************************************************************
*	General Write Data Field Routine
* 
*  Selects between MFM and GCR Write Routines
**********************************************************************
WRITEDATA		EQU	*
		BIT	MFMflag		;mfm Write
		BPL	@GCR
		JMP	mfmWriteData
@GCR		JMP	WriteDataHook
*
* Okay, into write mode and write sync bytes
*
WriteData~GCR	BIT	l6set	;Write prep
		LDA	#$FF	;First sync byte
		STA	l7set
*
		LDY	#7
WD00		LDA	datamarks,y
WD0		BIT	l6clr	;Wait for buffer ready
		BPL	wd0
		STA	l6set
		DEY
		BPL	wd00
*
		LDX	sectfnd	;Send sector number
		LDA	>nibtab,x
		ORA	#$80
SNDB1		BIT	l6clr
		BPL	sndb1
		STA	l6set
*
* Okay, start sending the data.
*
		LDY	#174	;Write 174*3+2 nibbles
		BRA	wdb
*
WDC		EQU	*
		LDX	Cbyte3
		LDA	buf3+1,y
		STA	Cbyte3
		REP	#$20	; 16 bit accmulator
		ASL	A	;
		ASL	A	;
		SEP	#$20	; 8 bit accumulator
		LDA	>nibtab,x	; kill time
WDL		BIT	l6clr	; wait for IWM ready
		BPL	wdl	;
		STA	l6set	;Output previous Cbyte 3
*
WDB		EQU	*
		XBA		;
		TAX		; get extra bits
		LDA	>nibtab,x	;Nibblize
WDA		BIT	l6clr
		BPL	wda
		STA	l6set
*
		LDX	Cbyte1
		LDA	buf1,y
		STA	Cbyte1
		REP	#$20	; 16 bit accmulator
		ASL	A	;
		ASL	A	;
		SEP	#$20	; 8 bit accumulator
		LDA	>nibtab,x
WDM		BIT	l6clr	; wait for IWM ready
		BPL	wdm	;
		STA	l6set	;Send previous byte 1
*
		LDX	Cbyte2
		LDA	buf2,y
		STA	Cbyte2
		REP	#$20	; 16 bit accmulator
		ASL	A	;
		ASL	A	;
		SEP	#$20	; 8 bit accumulator
		LDA	>nibtab,x
WDK		BIT	l6clr	; wait for buffer empty
		BPL	wdk	;
		STA	l6set
*
		DEY
		CPY	#$FF
		BNE	wdc
*
* Now send the checksum as four encoded nibbles
*
		LDY	#3
WDG		EQU	*
		TYX		; form index
		LDA	csumc,x
		AND	#$3F
		TAX
		LDA	>nibtab,x
WDD		BIT	l6clr
		BPL	wdd
		STA	l6set
		DEY
		BPL	wdg
*
* Now send the data bitslip marks
*
		LDY	#2
WDF		LDA	bsmarks,y
WDE		BIT	l6clr
		BPL	wde
		STA	l6set
		DEY
		BPL	wdf
*
* Wait til write underrun
*
WDH		BIT	l6clr
		BVS	wdh
		BIT	l7clr	;Back into read mode
		RTS
**********************************************************************
*
* mfmWriteData
*
**********************************************************************
mfmWriteData	EQU	*
; first insure that the Index/Tach adrs is not the lingering phase line setting
; to prevent the Index Pulse cross talk problem
		LDA	#%11110101	;CA [3210] = 0101
		STA	IsmPhaseW		; select the 2Meg Drive sense adrs
	
		BIT	IsmErrorR
		LDA	#$18
		STA	IsmMode0W
		LDA	#$10
		STA	IsmMode1W		;enable Write with action OFF
		LDA	#$01
		STA	IsmMode1W
		STA	IsmMode0W		;2+ us clear FIFO toggle
		BIT	IsmErrorR
		LDA	cyareg
		TAX			;save for restore below
		AND	#$7F
		STA	cyareg		;switch to 1 Mhz to count cycles accurately

		LONGI	ON
		REP	#$10
		LDY	#SpliceCnt	; this must be tuned to get splice timing right
@20		LDA	IsmHndShR		;4 slow cycles
		LDA	IsmHndShr		;4 slow cycles
		LDA	IsmHndShr		;4 slow cycles
		DEY			;2 slow cycles
		BNE	@20		;3 slow cycles = 17 slow cycles
* exit with Y = $0000 for later write loop
		STZ	IsmDataW		;preload FIFO with 1st two bytes
		STZ	IsmDataW		;preload FIFO with 1st two bytes
		TXA
		STA	cyareg		;switch back to fast
		LDA	#$08		;(measured overhead = 90 us)
		STA	IsmMode1W		;Write Current on NOW

		LDX	#syncSize-2	;adjust for preloaded two
@30		BIT	IsmHndShR
		BPL	@30		;wait for FIFO empty
		STZ	IsmDataW
		DEX
		BNE	@30
		
		LDX	#0003		; three bytes of $A1 mark Writes
@40		BIT	IsmHndShR
		BPL	@40
		LDA	#$A1
		STA	IsmMarkW
		DEX
		BNE	@40
		
@50		BIT	IsmHndShR
		BPL	@50
		LDA	#$FB
		STA	IsmDataW		;4th byte of mark is just data write

		LDX	#0512
@60		LDA	[cmdbuffl],Y
@61		BIT	IsmHndShR
		BPL	@61
		INY
		STA	IsmDataW
		DEX
		BNE	@60
		
		LONGI 	OFF
		SEP	#$10
		
@70		BIT	IsmHndShR
		BPL	@70
		STZ	IsmCRCW		;This dummy store writes 2 CRC bytes!!!

		LDX	#04
		LDA	#gapByte
		
@80		LDY	IsmHndShR
		BPL	@80
		STA	IsmDataW
		DEX
		BNE	@80		;write enough of the gap to force CRC +1 gap to write
		
@85		BIT	IsmHndShR
		BVC	@85		;wait til fifo says 2 are empty
		
		LDA	#$18
		STA	IsmMode0W		;turn off Write mode and action
		
		TYA			;get trailing handshake
		AND	#$20		;any errors (underrun is it?)
		CLC
		BEQ	@90
		LDA	IsmErrorR		;clear the error register
		STA	csum+2		;save it for analyzer
		BRK	$DE		;this should not happen
@90		RTS

		eject
**********************************************************************
* Merge It combines the triple read buffer into 1 512 byte user buffer
**********************************************************************
MERGEIT		EQU	*
*
* Merge data from read into a contiguous block
*
		PHP		; save processor state
		XCE		;
		PHP		;
		CLC		; native, m=1, x=0
		XCE
		LONGA	OFF		;
		LONGI	ON		;
		REP	#$10	;
		SEP	#$20	;
		LDX	#0001
		LDY	#0511
		PHY
		LDA	mac_flag	; check for mac read or write
		BEQ	@512	; if clear merge 512 bytes
***********************************
		PLY
		LDY	#523
		PHY
		BRA	@524
@10		EQU	*
		LDA	buf3,x
		STA	[cmdbuffl],y
		DEY
		BMI	@90	; are we done?
*
@524		LDA	buf2,x
		STA	[cmdbuffl],y
		DEY		;
		BMI	@90
*
		LDA	buf1,x
		STA	[cmdbuffl],y
		INX		; point to next src byte
		DEY		; bump dest index
		BPL	@10	;
		BRA	@90
*****************************************
* This is coded for maximum performance 
* for the normal 512 byte case
*****************************************
@50		EQU	*
		LDA	buf3,x
		STA	[cmdbuffl],y
		DEY
*
@512		LDA	buf2,x
		STA	[cmdbuffl],y
		DEY		;
*
		LDA	buf1,x
		STA	[cmdbuffl],y
		INX		; point to next src byte
		DEY		; bump dest index
		BPL	@50	;
************************************
@90		EQU	*
		PLA		; restore low byte of count
		XBA		;
		PLA		; restore high byte of count
		PLP		; restore processor state
		XCE		;
		PLP		;
		LONGA	OFF		;
		LONGI	OFF		;
		TAY		; y = high byte of byte count
		XBA		;
		TAX		; x = low byte of byte count
		RTS
		TITLE	'RawRead'
***********************************************************
*
* RawRead 
*
*    INPUT : cmdbuffl   pointer to output buffer
*          : cmdcount   size of of output buffer
*          : cmdadrs    pointer to following ctrl list
*      
* ctrl list: list size in bytes
*          : track number (lsb is side bit)
*          : Sector number (0,1..n)
*          : Read count
*          : Search count
*          : Search pattern (0..16 bytes)
*
***********************************************************
RAWREAD		EQU	*
		BIT	ext_flag
		BVS	@01
		LDA	#cmderror
		BRA	@err
@01		EQU	*
		LDA	[cmdadrs]	;get list length
		BEQ	@bcerr
		CMP	#08
		BCC	@bcerr
		CMP	#19
		BCC	@10	;max is 18
@BCERR		LDA	#bcparmcnt
		BRA	@err
@10		CLC
		JSR	SensnChk	;enable, sense and chk
		BCS	@err	;bailout if any err
		LDA	#3
		STA	readret	;set read retry maximum
		JSR	MotorOn	;enable motor on drive
		LDY	#02
		LDA	[cmdadrs],y
		LSR	a	;side bit to carry
		STZ	side
		ROR	side	;set side as $00/$80
		CMP	#80
		BCC	@24
		LDA	#79
@24		EQU	*
		STA	cyl
		JSR	Seek	;this only gets 1 chance
*
*  wait for Ready from drive (but not forever)
		JSR	WaitRdyTO
		BCC	@30
		LDA	#offline
@ERR		BRL	set_err
@30		JSR	Rdmode	;select side and rdmode
*
* Now select which RawRead routine to call
		LDY	#04	;get offset to sector parm
		LDA	[cmdadrs],y
		BNE	@50	;sector non zero case
		LDA	[cmdadrs]	;get length
		CMP	#11
		BCC	@bcerr
@40		JSR	PatrnRawRd	;call the pattern match case
		BRA	@60
@50		JSR	SectRawRd	;call the sector match case
@60		BCC	@80
		LDA	#ioerror
		BRA	@err
@80		STZ	statbyte
		CLC
		RTS
**************************************************
*                                                *
*             C <- clr:all okay, set:field error *
*   Destroys: A, X, Y, temp                      *
*   Assumes: caller did WaitRdyTO and Rdmode     *
*                                                *
**************************************************
PATRNRAWRD	EQU	*
		LDY	#08
		LDA	[cmdadrs],y	;get pattrn length
		TAX
		CLC
		ADC	#11
		STA	csum
		TXA
		BEQ	@01
		LDA	#$80
@01		STA	csumc	;00= no pattern $80 = pattern to match
*
* Setup ReadCnt in a zpg temp
		LDY	#07
		LDA	[cmdadrs],y
		STA	csuma	;csuma immediately follows csumb !!
		DEY
		LDA	[cmdadrs],y
		STA	csumb	;csumb immediately preceeds csmua !!
*
* Set up the timeout
*
		LDA	#>2000
		STA	temp
		LDX	#<2000
		BIT	csumc
		BPL	@rawrd
@RB		LDY	#10	;offset to 1st pattern byte
@RC		DEX		;Maintain double byte t.o. ctr
		BNE	@Ra	;=> no timeout
		DEC	temp
		BMI	@Rerr	;Oops, timeout error
* 
@RA		LDA	l6clr	;Look for a byte
		BPL	@Ra	;Branch if no byte ready
		CMP	[cmdadrs],y	;pattern match? 
		BNE	@Rb	;No, start all over 
		INY		;Yes, found a matching byte
		CPY	csum	;whole pattern matched?
		BCC	@Rc
*
* Now copy the next csumb (ReadCnt) nybbles to user buffer
@RAWRD		REP	#$10
		LONGI	ON
		LDX	csumb	; 16 bit ldx
		LDY	#0000
@40		LDA	l6clr
		BPL	@40
		STA	[cmdbuffl],y
		INY
		DEX
		BNE	@40
		SEP	#$10
		LONGI	OFF
*
		CLC		;Ok there's the stuff
		RTS
@RERR		LDA	#adrerror+$01	;adrs + timeout bits
		TSB	error2
		SEC
		RTS
		EJECT
**************************************************
*                                                *
*             C <- clr:all okay, set:field error *
*   Destroys: A, X, Y, temp                      *
*   Assumes: caller did WaitRdyTO and Rdmode     *
*                                                *
**************************************************
SECTRAWRD		EQU	*
*
* Setup ReadCnt-5 in a zpg temp
		LDY	#06
		REP	#$20
		LONGA	ON
		LDA	[cmdadrs],y
		SEC
		SBC	#0005
		STA	csumb	;csumb immediately preceeds csmua !!
		SEP	#$20
		LONGA	OFF
		BPL	@00
		LDA	#bcparmcnt
		BRL	set_err
*
* Set up the timeout
*
@00		STZ	temp2	;zero the sector retry counter
@R0		LDA	#>10000
		STA	temp
		LDY	#<10000
@RB		LDX	#3-1	;
@RC		DEY		;Maintain double byte t.o. ctr
		BNE	@Ra	;=> no timeout
		DEC	temp
		BMI	@Rerr	;Oops, timeout error
* 
@RA		LDA	l6clr	;Look for a byte
		BPL	@Ra	;Branch if no byte ready
		CMP	adrmarks,x	;is it D5,AA,96?
		BNE	@Rb	;No, start all over 
* I have now found an address mark
@RD		LDY	#03
@RE		LDA	l6clr
		BPL	@Re
		STA	[cmdbuffl],y	;save the cyl nybble
@RF		LDX	l6clr	;read the sector nybble
		BPL	@rf
		LDA	>dnibtab,x	;get sector as data (0..63)
		INY		;y=04
		INC	a	;convert sector to 1 based
		CMP	[cmdadrs],y	;is this the requested sector?
		BEQ	@30	;yes. so copy count bytes-3
		INC	temp2
		LDA	temp2
		CMP	adrsret	;enough adrs mark retries?
		BCC	@R0	;no. try again
*
* ERROR Exit: couldn't find the sector's adrs mark
@RERR		LDA	#adrerror
		TSB	error2
		SEC
		RTS
*
* Now copy next ReadCnt nybbles to user buffer
@30		EQU	*
		TXA
		STA	[cmdbuffl],y	;save the sector nybble
		REP	#$10
		LONGI	ON
		LDX	csumb	;get read length (16 bits)
@40		LDA	l6clr
		BPL	@40
		INY
		STA	[cmdbuffl],y
		DEX
		BNE	@40
		SEP	#$10
		LONGI	OFF
*
* Now reconstruct the 3 mark bytes in user's buffer
		LDX	#3-1
		TXY
@80		LDA	adrmarks,x
		STA	[cmdbuffl],y
		DEY
		DEX
		BPL	@80
*
		CLC		;Ok there's the stuff
		RTS
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSFirmware/ATALK/ATALK.make b/IIGS.601.SRC/GSFirmware/ATALK/ATALK.make
new file mode 100644
index 0000000..188c541
--- /dev/null
+++ b/IIGS.601.SRC/GSFirmware/ATALK/ATALK.make
@@ -0,0 +1 @@
+#   File:       ATALK.make
#   Created:    June 13, 1991   by JOA
# 	Copyright Apple Computer, Inc. 1991
# 	All rights reserved.

ATALK 		Ä	ATALK.make				¶
				::Firmware.macros.aii	¶
				Port7.aii
	AsmIIgs  {userAOptions} -h Port7.aii -wt -o Port7.obj
	LinkIIgs  Port7.obj -o Port7.rel
	MakeBinIIgs Port7.rel -o ATALK
	dup ATALK ::bin:C7xx.bin
	dup ATALK.2 ::bin:ATpatch.bin
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSFirmware/ATALK/PORT7.aii b/IIGS.601.SRC/GSFirmware/ATALK/PORT7.aii
new file mode 100644
index 0000000..356538c
--- /dev/null
+++ b/IIGS.601.SRC/GSFirmware/ATALK/PORT7.aii
@@ -0,0 +1 @@
+		TITLE	'C700 Space'

;	This EdAsm/Asm816 source code file was converted to AsmIIGS
;	by EdAsmCvtIIGS version 1.2d7 on 5/15/91 at 8:28:4 PM

*
*
		PRINT	NOGEN
		MACHINE	M65816
		LONGA	OFF
		LONGI	OFF

*
		INCLUDE	'::Monitor:Monitor.macros.aii'
*
VERSION		EQU	$1020	;Same as serial code
PASSIG		EQU	$01
DEVSIG		EQU	$31
SLOT		EQU	$C7
ID		EQU	$0
IERRORCODE	EQU	$FF
*
XQSETUP		EQU	$FF0000
XQPASCAL		EQU	$FF0003
*
SERBASPATCH	EQU	$E1020C
SERPASPATCH	EQU	$E10210
SEREXTPATCH	EQU	$E10214
*
ASEXT		EQU	$E11000
ASBAS		EQU	$E11004
ASPAS		EQU	$E11008
RAMDISPATCH	EQU	$E11014
RAMFORBID		EQU	$E11018
RAMPERMIT		EQU	$E1101C
PRODOS		EQU	$E11022
PROENTRY		EQU	$E11020
*
MBIT		EQU	$20
XBIT		EQU	$10
EXECADDR		EQU	$84
*
STATEREG		EQU	$C068
CYAREG		EQU	$C036
*
*
Bnk~Org		EQU	$C700

		SEG	'C7SEG'

C7XXCODE		PROC	ORG $C700
*
*
Rel~Org:		
		FillTo	$C796
C7XXSEG		EQU	*
		JSL	>ramforbid
		RTS
		JSL	>rampermit
		RTS
*
C7XX		EQU	*
		XCE
		PEI	execaddr+1
		PLB
		PLB
C7XXGO		EQU	*
		JML	[execaddr]
C7XXRET		EQU	*
		CLC
		XCE
		RTL
*
*
C7ERROR		EQU	*
		LDX	#ierrorcode
		RTL
C7PRODOS		EQU	*
		CLC
		XCE
		JSL	>prodos
		PHP
		SEC
		XCE
		PLP
		BVC	noerr1
		LDA	proentry+1
		PHA
		LDA	proentry
		PHA
NOERR1		EQU	*
		RTS
*
*
		FillTo	$C7D8
*
QSETVECTOR1	EQU	*
		JMP	>xqsetup
QPASVECTOR1	EQU	*
		JMP	>xqpascal
*
*
		FillTo	$C7F9
		DC.B	'ATLK'	;Signature for a network card
		DC.B	ID
		DC.W	VERSION
*
*
		ENDP

*
* AppleShare Patch
*
*  The older GS roms had an AppleTalk routine in bank $FF which
*   'initialized' AppleTalk.  The AppleTalk code is no longer in
*   the same place... This jump supports calls to that old routine,
*   jumping off into the real AppleTalk code in bank $FE.
*
		SEG	'ATSEG'
ATPATCH		PROC	ORG $FF1C06
		JMP	>$FE000C
		ENDP

		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSFirmware/Applesoft/APPLESOFT.aii b/IIGS.601.SRC/GSFirmware/Applesoft/APPLESOFT.aii
new file mode 100644
index 0000000..a1e2eb4
--- /dev/null
+++ b/IIGS.601.SRC/GSFirmware/Applesoft/APPLESOFT.aii
@@ -0,0 +1 @@
+;	This EdAsm/Asm816 source code file was converted to AsmIIGS
;	by EdAsmCvtIIGS version 1.2d2 on 5/4/91 at 6:36:21 PM
		
		MACHINE	M65816		
		MSB	OFF
		LONGA	OFF
		LONGI	OFF
		PRINT	NOGEN,DATA
		PRINT	PUSH
		PRINT	OFF
		INCLUDE	'::Firmware.macros.aii'
		
		PRINT	POP
		
PLIST		EQU	0
A2E		EQU	0	;1= Do Apple //e enhanced fixes
LOLLY		EQU	1	;1= Do //c fixes
CORTLAND		EQU	1	;1= Do Cortland fixes
		IF CORTLAND <> 0 THEN
		TITLE	'Cortland AppleSoft BASIC'
		ELSE
		TITLE	'APPLESOFT BASIC'
		ENDIF

*******************************
*   REAL APPLESOFT II SOURCE 
*    CONVERTED TO EDASM II 
*      ON JUNE 26, 1981
*   RESURECTED  BY  J ARKLEY
*      ON  MAY 1, 1980
*  MODIFICATIONS FOR LOLLY BY
*   J.R HUSTON, AUGUST 1983
*
* Modifications for Cortland by
* R. Williams / F. Bachman 1986
*
*******************************
*****************************
*                           *
*       APPLESOFT:          *
* FLOATING POINT BASIC FOR  *
*      THE APPLE-][         *
*                           *
*  COPYRIGHT 1978, 1983 by  *
*  APPLE COMPUTER INC.      *
*   ALL RIGHTS RESERVED     *
*                           *
*  WRITTEN BY MICROSOFT     *
*                           *
* EXTENDED BY R. WIGGINTON  *
*                           *
*****************************
		EJECT
		TITLE	'PRELIMINARY EQUATES'
CLMWID		EQU	14
STKEND		EQU	507
BUFPAG		EQU	2
TRMPOS:		EQU	$24
FIRST		EQU	$F0
H2		EQU	$2C
V2		EQU	$2D
ROMLOC		EQU	$D000
RAMLOC		EQU	$800
C_INLN		EQU	$FD6A
C_PRMP		EQU	$33
C_INCH		EQU	$FD0C
C_COUT		EQU	$FECD
C_CSIN		EQU	$FEFD
BUF		EQU	$0200
OUTCH		EQU	$FDED
C_GETL		EQU	$FD0C
SPDBYT		EQU	$F1
WAITNOW		EQU	$FCA8
CLRSCR		EQU	$FC58
TRFLAG		EQU	$F2	;TRACE ON/OFF
ORMASK		EQU	$F3	;FOR FLASH, NORMAL, INVERSE
INVFLG		EQU	$32	;DISPLAY MODES.
ERRTO		EQU	$F4
ERRFLG		EQU	$D8
ERRLIN		EQU	$DA
ERRPOS		EQU	$DC
ERRNUM		EQU	$DE	;PLACE FOR ERROR .
ERRSTK		EQU	$DF	;SAVE STACK POINTER DURING ERROR.
REMSTK		EQU	$F8	;FOR EVERY TIME.
RNONLY		EQU	$D6	;RUN-ONLY PROGRAM?
		EJECT
		TITLE	'INTR AND COMP PARAMETERS.'
; --------- ---- -- ---------
; COPYRIGHT 1976 BY MICROSOFT
; --------- ---- -- ---------
; *
NUMLEV		EQU	19	;NUMBER OF STACK LEVELS RESERVED
				;BY AN EXPLICIT CALL TO 'GETSTK'.
LINLEN		EQU	40
BUFLEN		EQU	240	;INPUT BUFFER SIZE.
				;FOR COMMODORE.
STRSIZ		EQU	3	;# OF LOCS PER STRING DESCRIPTOR.
NUMTMP		EQU	3	;NUMBER OF STRING TEMPORARIES.
CONTW		EQU	15	;CHARACTER TO SUPPRESS OUTPUT.
		; DSECT
ZPage		RECORD	0
START:		DS.b	3	;JMP INIT	;INITIALIZE - SETUP CERTAIN LOCATIONS
				;AND DELETE FUNCTIONS IF NOT NEEDED,
				;AND CHANGE THIS TO 'JMP READY'
				;IN CASE USER RESTARTS AT LOC ZERO.
RDYJSR:		DS.b	3	;JMP INIT	;CHANGED TO 'JMP STROUT' BY 'INIT'
				;TO HANDLE ERRORS.
ADRAYI:		DS.W	1	;was DW AYINT ;STORE HERE THE ADDR OF THE
				;ROUTINE TO TURN THE FAC INTO A 
				;TWO BYTE SIGNED INTEGER IN Y,A
ADRGAY:		DS.W	1	;was DW GIVAYF ;STORE HERE THE ADDR OF THE
				;ROUTINE TO CONVERT Y,A TO A FLOATING
				;POINT NUMBER IN THE FAC.
USRPOK:		DS.b	3	;JMP FCERR ;SET UP ORIG BY INIT.
				; THIS IS THE 'VOLATILE' STORAGE AREA AND NONE OF IT
				; CAN BE KEPT IN ROM. ANY CONSTANTS IN THIS AREA CANNOT
				; BE KEPT IN A ROM, BUT MUST BE LOADED IN BY THE 
				; PROGRAM INSTRUCTIONS IN ROM.
; --- GENERAL RAM ---:
CHARAC:		DS.B	1	;A DELIMITING CHARACTER.
INTEGR		EQU	CHARAC	;A ONE-BYTE INTEGER FROM 'QINT'.
ENDCHR:		DS.B	1	;THE OTHER DELIMITING CHARACTER.
COUNT:		DS.B	1	;A GENERAL COUNTER.
; --- FLAGS ---:
DIMFLG:		DS.B	1	;IN GETTING A PNTER TO A VARIABLE
				;IT IS IMPORTANT TO REMEMBER WHETHER IT
				;IS BEING DONE FOR 'DIM' OR NOT.
				;DIMFLG AND VALTYP MUST BE
				;CONSECUTIVE LOCATIONS.
KIMY		EQU	DIMFLG	;PLACE TO PRESERVE Y DURING OUT.
VALTYP:		DS.B	1	;THE TYPE INDICATOR.
				;0=NUMERIC 1=STRING.
INTFLG:		DS.B	1	;TELLS IF INTEGER.
DORES:		DS.B	1	;WHETHER CAN OR CAN'T CRUNCH RES'D WORDS.
				;TURNED ON WHEN 'DATA'
				;BEING SCANNED BY CRUNCH SO UNQUOTED
				;STRINGS WON'T BE CRUNCHED.
GARBFL		EQU	DORES	;WHETHER TO DO GARBAGE COLLECTN.
SUBFLG:		DS.B	1	;FLAG WHETHER SUB'D VARIABLE ALLOWED.
				;'FOR' AND USER-DEFINED FUNCTION
				;POINTER FETCHING TURN
				;THIS ON BEFORE CALLING 'PTRGET'
				;SO ARRAYS WON'T BE DETECTED.
				;'STKINI' AND 'PTRGET' CLEAR IT.
				;ALSO DISALLOWS INTEGERS THERE.
INPFLG:		DS.B	1	;FLAGS WHETHER WE ARE DOING 'INPUT'
				;OR 'READ'.
TANSGN:		DS.B	1	;USED IN DETERMINING SIGN OF TANGENT.
				;****** DSECT
		ORG	$50	;ROOM FOR APPLE PAGE 0 STUFF.
; --- RAM DEALING WITH TERMINAL HANDLING ---:
				;NUMBER OF NULLS TO PRINT.
LINNUM:		DS.B	01	;LOCATION TO STORE LINE NUMBER BEFORE BUF
				;SO THAT 'BLTUC' CAN STORE IT ALL AWAY AT ONCE.
		DS.B	1 	;A COMMA (PROAD OR FROM ROM)
				;USED BY INPUT STATEMENT SINCE THE
				;DATA POINTER ALWAYS STARTS ON A
				;COMMA OR TERMINATOR.
				;TYPE IN STORED HERE.
				;DIRECT STATEMENTS EXECUTE OUT OF
				;HERE. REMEMBER 'INPUT' SMASHES BUF.
				;MUST BE ON PAGE ZERO
				;OR ASSIGNMENT OF STRING
				;VALUES IN DIRECT STATEMENTS WON'T COPY
				;INTO STRING SPACE -- WHICH IT MUST.
				;N.B. TWO NONZERO BYTES MUST PRECEDE 'BUFLNM'.
				; --- STORAGE FOR TEMPORARY THINGS ---:
TEMPPT:		DS.B	1	;POINTER AT FIRST FREE TEMP DESCRIPTOR.
				;INITIALIZ TO POINT TO TEMPST.
LASTPT:		DS.B	2	;POINTER TO LAST-USED STRING TEMPORARY.
TEMPST:		DS.B	STRSIZ*NUMTMP	;STORAGE FOR NUMTMP TEMP DESCRPT
INDEX1:		DS.B	2	;INDEXES.
INDEX		EQU	INDEX1
INDEX2:		DS.B	2
RESHO:		DS.B	1	;RESULT OF MULTIPLIER AND DIVIDER.
RESMOH:		DS.B	1	;ONE MORE BYTE.
RESMO:		DS.B	1
RESLO:		DS.B	1
ADDEND		EQU	RESMO	;TEMPORARY USED BY 'UMULT'.
		DS.B	1	;OVERFLOW FOR RES.
; --- POINTERS INTO DYNAMIC DATA STRUCTURES ---;
TXTTAB:		DS.B	2	;POINTER TO BEGINNING OF TEXT.
				;DOE'T CHANGE AFTER BEING
				;SETUP BY 'INIT'.
VARTAB:		DS.B	2	;POINTER TO START OF SIMPLE
				;VARIABLE SPACE.
				;UPDATED WHENEVER THE SIZE OF THE
				;PROGRAM CHANGES, SET TO TXTTAB
				;BY 'SCRATCH' ('NEW').
ARYTAB:		DS.B	2	;POINTER TO BEGINNING OF ARRAY
				;TABLE.
				;INCREMENTED BY 6 WHENEVER
				;A NEW SIMPLE VARIABLE IS FOUND, AND
				;SET TO VARTAB BY 'CLEARC'.
STREND:		DS.B	2	;END OF STORAGE IN USE.
				;INCREASED WHENEVER A NEW ARRAY
				;OR SIMPLE VARIABLE IS ENCOUNTERED.
				;SET TO VARTAB BY 'CLEARC'.
FRETOP:		DS.B	2	;TOP OF STRING FREE SPACE.
FRESPC:		DS.B	2	;POINTER TO NEW STRING.
MEMSIZ:		DS.B	2	;HIGHEST LOCATION IN MEMORY.
; --- LINE NUMBERS AND TEXTUAL POINTERS ---:
CURLIN:		DS.B	2	;CURRENT LINE .
				;SET TO 0,255 FOR DIRECT STATEMENTS.
OLDLIN:		DS.B	2	;OLD LINE NUMBER (SETUP BY C,'STOP'
				;OR 'END' IN A PROGRAM).
POKER		EQU	LINNUM	;SET UP LOCATION USED BY POKE.
				;TEMPORARY FOR INPUT AND READ CODE
OLDTXT:		DS.B	2	;OLD TEXT POINTER.
				;POINTS AT STATEMENT TO BE EXEC'D NEXT.
DATLIN:		DS.B	2	;DATA LINE  -- REMEMBER FOR ERRORS.
DATPTR:		DS.B	2	;POINTER TO DATA. INITIALIZED TO POINT
				;AT THE ZERO IN FRONT OF TXTTAB
				;BY 'RESTORE' WHICH IS CALLED BY 'CLEARC'.
				;UPDATED BY EXECUTION OF A 'READ'.
INPPTR:		DS.B	2	;THIS REMEMBERS WHERE INPUT IS COMING FROM.
; --- STUFF USED IN EVALUATIONS ---:
VARNAM:		DS.B	2	;VARIABLE'S NAME IS STORED HERE.
VARPNT:		DS.B	2	;POINTER TO VARIABLE IN MEMORY.
FDECPT		EQU	VARPNT	;POINTER INTO POWERF TENS OF 'FOUT'.
FORPNT:		DS.B	2	;A VARIABLE'S POINTER FOR 'FOR' LOOPS
				;AND 'LET' STATEMENTS.
LSTPNT		EQU	FORPNT	;PNTR TO LIST STRING.
ANDMSK		EQU	FORPNT	;THE MASK USED BY WAIT FOR ANDING.
EORMSK		EQU	FORPNT+1	;THE MASK FOR EORING IN WAIT.
OPPTR:		DS.B	2	;POINTER TO CURRENT OP'S ENTRY IN 'OPTAB'.
VARTXT		EQU	OPPTR	;POINTER INTO LIST OF VARIABLES
OPMASK:		DS.B	1	;MASK CREATED BY CURRENT OPERATOR.
DOMASK		EQU	TANSGN	;MASK IN USE BY RELATION OPERATIONS.
DEFPNT:		DS.B	2	;POINTER USED IN FUNCTION DEFINITION.
GRBPNT		EQU	DEFPNT	;ANOTHER US IN GARBAGE COLLECTION.
DSCPNT:		DS.B	2	;POINTER TO A STRING DESCRIPTOR.
		DS.B	1	;FOR TEMPF3.
FOUR6:		DS.B	1	;VARIABLE CONSTANT USED BY GARB COLECT
; --- ET CETERA ---:
JMPER:		DS.b	3	;was JMP 60000
SIZE		EQU	JMPER+1
OLDOV		EQU	JMPER+2	;THE OLD OVERFLOW.
TEMPF3		EQU	DEFPNT	;A THIRD FAC TEMPORARY (4 BYTES).
TEMPF1:		DS.B	1	;FOR TEMPF1S EXTRA BYTE.
HIGHDS:		DS.B	2	;DESINATION OF HIGHEST ELEMENT IN BLT.
HIGHTR:		DS.B	2	;SOURCE OF HIGHEST ELEMENT TO MOVE.
TEMPF2:		DS.B	1	;FOREMPF2S EXTRA BYTE.
LOWDS:		DS.B	2	;LOCATION OF LAST BYTE TRANSFERRED INTO.
LOWTR:		DS.B	2	;LAST THING TO MOVE IN BLT.
ARYPNT		EQU	HIGHDS	;A POINTER USED IN ARRAY BUILDING.
GRBTOP		EQU	LOWTR	;A POINTER USED IN GARBAGE COLLECTION.
DECCNT		EQU	LOWDS	;NUMBER OF PLACES BEFORE DECIMAL POINT.
TENEXP		EQU	LOWDS+1	;HAS A DPT BEEN INPUT?
DPTFLG		EQU	LOWTR	;BASE TEN EXPONENT.
EXPSGN		EQU	LOWTR+1	;SIGN OF BASE TEN EXPONENT.
; --- THE FLOATING ACCUMULATOR ---:
FAC:		EQU	*
FACEXP:		DS.B	01
FACHO:		DS.B	01	;MOST SIGNIFICANT BYTE OF MANTISSA.
FACMOH:		DS.B	01	;ONE MORE.
FACMO:		DS.B	01	;MIDDLE ORDER OF MANTISSA.
FACLO:		DS.B	01	;LEAST SIG BYTE OF MANTISSA.
FACSGN:		DS.B	01	;SIGN OF FAC (0 OR -1) WHEN UNPACKED.
SGNFLG:		DS.B	01	;SIGN OF FAC IS PRESERVED BERE BY 'FIN'.
DEGREE		EQU	SGNFLG	;A COUNT USED BY POLYNOMIALS.
DSCTMP		EQU	FAC	;THIS IS WHERE TEMP DESCS ARE BUILT.
INDICE		EQU	FACMO	;INDICE IS SET UP HERE BY 'QINT'.
BITS:		DS.B	01	;SOMETHING FOR 'SHIFTR' TO USE.
; --- THE FLOING ARGUMENT (UNPACKED) ---:
ARGEXP:		DS.B	01
ARGHO:		DS.B	01
ARGMOH:		DS.B	01
ARGMO:		DS.B	01
ARGLO:		DS.B	01
ARGSGN:		DS.B	01
ARISGN:		DS.B	01	;A SIGN REFLECTING THE RESULT.
FACOV:		DS.B	01	;OVERFLOW BYTE OF THE FAC.
STRNG1		EQU	ARISGN	;POINTER TO A STRING OR DESCRIPTOR.
FBUFPT:		DS.B	2	;POINTER INTO FBUFFR USED BY FOUT.
BUFPTR		EQU	FBUFPT	;POINTER TO BUF USED BY 'CRUNCH'.
STRNG2		EQU	FBUFPT	;POINTER TO STRING OR DESC.
POLYPT		EQU	FBUFPT	;POINTER INTO POLYNOMIAL COEFFICIENTS.
CURTOL		EQU	FBUFPT	;ABSOLUTE LINEAR INDEX IS FORMED HERE.
PRGEND:		DS.B	2
		EJECT
		TITLE	'RAM CODE.'
; THIS CODE GETS CHANGED THROUGHOUT EXECUTION.
; IT IS MADE TO BE FAST THIS WAY.
; ALSO, X AND Y ARE NOT DISTURBED
; 'CHRGET' USING TXTPTR AS THE CURRENT TEXT PNTR
; FETCHES NEW CHARACTER INTO ACCA AFTER INCREMENTING TXTPT
; AND SETS CONDITION CODES ACCORDING TO WHAT'S IN ACCA.
; NOT C= NUMERIC   ('0' THRU '9')
; Z= ':' OR END-OF-LINE (A NULL)
; ACCA = NEW CHAR.
; TXTPTR=TXTPTR+1
; THE FOLLOWING EXISTS IN ROM IF ROM EXISTS AND IS LOADED
; DOWN HERE BY INIT. OTHERWISE IT IS JUST LOADED INTO THIS
; RAM LIKE ALL THE REST OF RAM IS LOADED.
CHRGET:		DS.b	2	;INC CHRGET+7 ;INCREMENT THE WHOLE TXTPTR.
		DS.b	2	;BNE CHRGOT
		DS.b	2	;INC CHRGET+8
CHRGOT:		DS.b	3	;LDA 60000 ;A LOAD WITH AN EXT ADDR.
TXTPTR		EQU	CHRGOT+1
		DS.b	2	;CMP $20 ;SKIP SPACES.
		DS.b	2	;BEQ CHRGET
QNUM:		DS.b	2	;CMP ':' ;IS IT A ':'?
		DS.b	2	;BCS CHRRTS ;IT IS .GE. ':'
		DS.b	1	;SEC
		DS.b	2	;SBC '0' ;ALL CHARS .GT. '9' HAVE RET'D SO
		DS.b	1	;SEC
		DS.b	2	;SBC $100-'0' ;SEE INUMERIC.
				;TURN CARRY ON IF NUMERIC.
				;ALSO, SETZ IF NULL.
CHRRTS:		DS.b	1	;RTS ;RETURN TO CALLER.
 RNDX:		DS.b	1	;was DB 128 ;LOADED OR FROM ROM.
		DS.b	1	;was DB 79 ;THE INITIAL RANDOM NUMBER.
		DS.b	1	;was DB 199
		DS.b	1	;was DB 82
		DS.b	1	;was DB 89 ;ONE MORE BYTE.
		ORG	255	;PAGE 1 STUFF COMING UP.
LOFBUF:		DS.B	1	;THE LOW FAC BUFFER. COPYABLE.
;---  PAGE ZERO/ONE BOUNDARY ---.
;MUST HAVE 13 CONTIGUOUS BYTES.
FBUFFR:		DS.B	3*1+13	;BUFFER FOR 'FOUT'.
;ON PAGE 1 SO THAT STRING IS NOT COPIED.
;STACK IS LOCATED HERE. IE FROTHE END OF FBUFFR TO STKEND.
		ENDR
		EJECT
		TITLE	'DISPATCH TABLES, RESERVED WORDS, AND ERROR TEXTS.'
ROMASOFT		PROC	ORG ROMLOC
		WITH	ZPage
APPLESOFT:		
STMDSP:		DC.W	END-1
		DC.W	FOR-1
		DC.W	NEXT-1
		DC.W	DATA-1
		DC.W	INPUT-1
		DC.W	DELETE-1
		DC.W	DIM-1
		DC.W	READ-1
		DC.W	MSETGR-1
		DC.W	MSETTXT-1
		DC.W	PRNUMB-1
		DC.W	INNUMB-1
		DC.W	CALL-1
		DC.W	PLOT-1
		DC.W	HLIN-1
		DC.W	VLIN-1
		DC.W	SETHRH-1
		DC.W	SETHRL-1
		DC.W	SETHCOL-1
		DC.W	LINE-1
		DC.W	DODRAW-1
		DC.W	DOXDRAW-1
		DC.W	HTAB-1
		DC.W	CLRSCR-1
		DC.W	SETROT-1
		DC.W	SETSCALE-1
		IF PLIST <> 0 THEN
		PRINT	ON
		ELSE
		ENDIF
		IF LOLLY <> 0 THEN
		DC.W	$3F4	;UNSUPPORTED IN LOLLY, GO & HOOK
		ELSE
		DC.W	SHLOAD-1
		ENDIF
		DC.W	SETTRACE-1
		DC.W	TRACEOFF-1
		DC.W	SETNORM-1
		DC.W	INVERSE-1
		DC.W	FLASH-1
		DC.W	COLORE-1
		DC.W	RETURN-1
		DC.W	VTAB-1
		DC.W	HIMEMSET-1
		DC.W	LOMEMSET-1
		DC.W	ONERR-1
		DC.W	RESUME-1
		IF LOLLY <> 0 THEN
		DC.W	$3F4	;UNSUPPORTED IN LOLLY, DO & HOOK
		DC.W	$3F4
		ELSE
		DC.W	RECALL-1
		DC.W	STORE-1
		ENDIF
		DC.W	SETSPD-1
		DC.W	LET-1
		DC.W	GOTO-1
		DC.W	RUN-1
		DC.W	IF-1
		DC.W	RESTOR-1
		DC.W	$3F4	;WHY THE HELL NOT
		DC.W	GOSUB-1
		DC.W	RETURN-1
		DC.W	REM-1
		DC.W	STOP-1
		DC.W	ONGOTO-1
		DC.W	FNWAIT-1
		IF LOLLY <> 0 THEN
		DC.W	$3F4	;UNSUPPORTED IN LOLLY, DO & HOOK
		DC.W	$3F4
		ELSE
		DC.W	LOAD-1
		DC.W	SAVE-1
		ENDIF
		IF PLIST <> 0 THEN
		PRINT	OFF
		ELSE
		ENDIF
		DC.W	DEF-1
		DC.W	POKE-1
		DC.W	PRINT-1
		DC.W	CONT-1
		DC.W	LIST-1
		DC.W	CLEAR-1
		DC.W	GET-1	;FILL W/ GET ADDR.
		DC.W	SCRATH-1
FUNDSP:		DC.W	SGN
		DC.W	INT
		DC.W	ABS
USRLOC:		DC.W	USRPOK
		DC.W	FRE
		DC.W	ERROR	;DUMMY FILL FOR SCRN().
		DC.W	PDLHNDL
		DC.W	POS
		DC.W	SQR
		DC.W	RND
		DC.W	LOG
		DC.W	EXP
COSFIX:		DC.W	COS
SINFIX:		DC.W	SIN
TANFIX:		DC.W	TAN
ATNFIX:		DC.W	ATN
		DC.W	PEEK
		DC.W	LEN
		DC.W	STRS
		DC.W	VAL
		DC.W	ASC
		DC.W	CHRS
		DC.W	LEFTS
		DC.W	RIGHTS
		DC.W	MIDS
OPTAB:		DC.B	121
		DC.W	FADDT-1
		DC.B	121
		DC.W	FSUBT-1
		DC.B	123
		DC.W	FMULTT-1
		DC.B	123
		DC.W	FDIVT-1
		DC.B	125
		DC.W	FPWRT-1
		DC.B	80
		DC.W	ANDOP-1
		DC.B	70
		DC.W	OROP-1
NEGTAB:		DC.B	127
		DC.W	NEGOP-1
NOTTAB:		DC.B	127
		DC.W	NOTOP-1
PTDORL:		DC.B	100	;PRECEDENCE.
		DC.W	DOREL-1	;OPERATOR ADDRESS.
; TOKENS FOR RESERVED WORDS ALWAYS HAVE THE MOST
; SIGNIFICANT BIT ON.
; THE LIST OF RESERVED WORDS:
;Q EQU 128-1
; DCI MACRO A
;Q EQU Q+1
; DC A
; ENDM
RESLST:		DCI	'END'
ENDTK		EQU	$80
		DCI	'FOR'
FORTK		EQU	ENDTK+1
		DCI	'NEXT'
		DCI	'DATA'
DATATK		EQU	FORTK+2
		DCI	'INPUT'
		DCI	'DEL'
		DCI	'DIM'
		DCI	'READ'
		DCI	'GR'
		DCI	'TEXT'
		DCI	'PR#'
		DCI	'IN#'
		DCI	'CALL'
		DCI	'PLOT'
		DCI	'HLIN'
		DCI	'VLIN'
		DCI	'HGR2'
		DCI	'HGR'
		DCI	'HCOLOR='
		DCI	'HPLOT'
		DCI	'DRAW'
		DCI	'XDRAW'
		DCI	'HTAB'
		DCI	'HOME'
		DCI	'ROT='
		DCI	'SCALE='
		DCI	'SHLOAD'
		DCI	'TRACE'
		DCI	'NOTRACE'
		DCI	'NORMAL'
		DCI	'INVERSE'
		DCI	'FLASH'
		DCI	'COLOR='
		DCI	'POP'
POPTKN		EQU	DATATK+30
		DCI	'VTAB'
		DCI	'HIMEM:'
		DCI	'LOMEM:'
		DCI	'ONERR'
		DCI	'RESUME'
		DCI	'RECALL'
		DCI	'STORE'
		DCI	'SPEED='
		DCI	'LET'
		DCI	'GOTO'
GOTOTK		EQU	POPTKN+10
		DCI	'RUN'
		DCI	'IF'
		DCI	'RESTORE'
		DC.b	$26+$80	;'&' FOR DISK HOOKS.
		DCI	'GOSUB'
GOSUTK		EQU	GOTOTK+5
		DCI	'RETURN'
		DCI	'REM'
REMTK		EQU	GOSUTK+2
		DCI	'STOP'
		DCI	'ON'
		DCI	'WAIT'
		DCI	'LOAD'
		DCI	'SAVE'
		DCI	'DEF'
		DCI	'POKE'
		DCI	'PRINT'
PRINTK		EQU	REMTK+8
		DCI	'CONT'
		DCI	'LIST'
		DCI	'CLEAR'
		DCI	'GET'
		DCI	'NEW'
SCRATK		EQU	PRINTK+5
; END OF COMMAND LIST.
		DCI	'TAB('
TABTK		EQU	SCRATK+1
		DCI	'TO'
TOTK		EQU	TABTK+1
		DCI	'FN'
FNTK		EQU	TOTK+1
		DCI	'SPC('
SPCTK		EQU	FNTK+1
		DCI	'THEN'
THENTK		EQU	SPCTK+1
		DCI	'AT'
ATTKN		EQU	THENTK+1
		DCI	'NOT'
NOTTK		EQU	ATTKN+1
		DCI	'STEP'
STEPTK		EQU	NOTTK+1
		DCI	'+'
PLUSTK		EQU	STEPTK+1
		DCI	'-'
MINUTK		EQU	PLUSTK+1
		DCI	'*'
		DCI	'/'
		DC.B	$DE	;THE EXPONENTIATION SIGN
		DCI	'AND'
		DCI	'OR'
		DCI	'>'
GREATK		EQU	MINUTK+6
		DCI	'='
EQULTK		EQU	GREATK+1
		DCI	'<'
LESSTK		EQU	EQULTK+1
; ANOTHER EXAMPLE: IF T OR Q THEN ... 'TO' IS CNCHED
		DCI	'SGN'
ONEFUN		EQU	LESSTK+1
		DCI	'INT'
		DCI	'ABS'
		DCI	'USR'
		DCI	'FRE'
		DCI	'SCRN('
SCRNFN		EQU	ONEFUN+5
		DCI	'PDL'
		DCI	'POS'
		DCI	'SQR'
		DCI	'RND'
		DCI	'LOG'
		DCI	'EXP'
		DCI	'COS'
		DCI	'SIN'
		DCI	'TAN'
		DCI	'ATN'
		DCI	'PEEK'
		DCI	'LEN'
		DCI	'STR$'
		DCI	'VAL'
		DCI	'ASC'
		DCI	'CHR$'
LASNUM		EQU	SCRNFN+16	;NUMBER OF LAST FUNCTION
;THAT TAKES ONE ARG
		DCI	'LEFT$'
		DCI	'RIGHT$'
		DCI	'MID$'
		DC.B	0	;MARKS END OF RESERVED WORD LIST
; NOTE: THIS ERROR COUNT TECHNIQUE WILL NOT WORK IF THERE
; ARE THAN 256 CHARACTERS OF ERROR MESSAGES
ERRTAB:		DCI	'NEXT WITHOUT FOR'
ERRNF		EQU	0
		DCI	'SYNTAX'
ERRSN		EQU	ERRNF+16
		DCI	'RETURN WITHOUT GOSUB'
ERRRG		EQU	ERRSN+6
		DCI	'OUT OF DATA'
ERROD		EQU	ERRRG+20
		DCI	'ILLEGAL QUANTITY'
ERRFC		EQU	ERROD+11
		DCI	'OVERFLOW'
ERROV		EQU	ERRFC+16
		DCI	'OUT OF MEMORY'
ERROM		EQU	ERROV+8
		DCI	'UNDEF''D STATEMENT'
ERRUS		EQU	ERROM+13
		DCI	'BAD SUBSCRIPT'
ERRBS		EQU	ERRUS+17
		DCI	'REDIM''D ARRAY'
ERRDD		EQU	ERRBS+13
		DCI	'DIVISION BY ZERO'
ERRDV0		EQU	ERRDD+13
		DCI	'ILLEGAL DIRECT'
ERRID		EQU	ERRDV0+16
		DCI	'TYPE MISMATCH'
ERRTM		EQU	ERRID+14
		DCI	'STRING TOO LONG'
ERRLS		EQU	ERRTM+13
		DCI	'FORMULA TOO COMPLEX'
ERRST		EQU	ERRLS+15
		DCI	'CAN''T CONTINUE'
ERRCN		EQU	ERRST+19
		DCI	'UNDEF''D FUNCTION'
ERRUF		EQU	ERRCN+14
; NEEDED FOR MESSAGES IN ALL VERSIONS.
ERR:		DC.B	' ERROR'
		DC.B	7,0
INTXT:		DC.B	' IN '
		DC.B	0
BRKTXT:		DC.B	13
		DC.B	'BREAK'
		DC.B	7,0
		EJECT
		TITLE	'GENERAL STORAGE ROUTINES.'
; FIND A 'FOR' ENTRY ON THE STACK VIA 'VARPNT'.
FORSIZ		EQU	$12
FNDFOR:		TSX		;LOAD XREG WITH STK PNTR.
		INX
		INX
		INX
		INX		;IGNORE ADR(NEWSTT) AND RTS ADDR.
FFLOOP:		LDA	257,X	;GET STACK ENTRY.
		CMP	#FORTK	;IS IT A 'FOR' TOKEN?
		BNE	FFRTS	;NO, NO 'FOR' LOOPS TH THIS PNTR.
		LDA	FORPNT+1	;GET HIGH.
		BNE	CMPFOR
		LDA	258,X	;PNTR IS ZERO, SO ASSUME THIS ONE.
		STA	FORPNT
		LDA	259,X
		STA	FORPNT+1
CMPFOR:		CMP	259,X
		BNE	ADDFRS	;NOT THIS ONE.
		LDA	FORPNT	;GET DOWN.
		CMP	258,X
		BEQ	FFRTS	;WE GOT IT! WE GOT IT!
ADDFRS:		TXA
		CLC		;ADD 16 TO X.
		ADC	#FORSIZ
		TAX		;RESULT BACK INTO X.
		BNE	FFLOOP
FFRTS:		RTS		;RETURN TO CALLER.
; THIS IS THE BLOCK TRANSFER ROUTINE.
; IT MAKES SPACE BY SHOVING EVERYTHING FORWARD.
; ON ENTRY:
; Y,A=HIGHDS    (FOR REASON).
; HIGHDS= DESTINATION OF HIGH ADDRESS.
; LOWTR= LOWEST ADDR TO BE TRANSFERRED.
; HIGHTR= HIGHEST ADDR TO BE TRANSFERRED.
; A CHECK IS MADE TO ASCERTAIN THAT A REASONABLE
; AMOUNT OF SPACE REMAINS BETWEEN THE BOTTOM
; OF THE STRINGS AND THE HIGHEST LOCATION TRANSFERRED INTO
; ON EXIT:
; LOWTR ARE UNCHANGED.
; HIGHTR=LOWTR-200 OCTAL.
; HIGHDS=LOWEST ADDR TRANSFERRED INTO MINUS 200 OCTAL.
BLTU:		JSR	REASON	;CERTAIN THAT STRING SPACE WON'T
;BE OVERRUN.
		STA	STREND
		STY	STREND+1
BLTUC:		SEC		;PREPARE TO SUBTRACT.
		LDA	HIGHTR
		SBC	LOWTR	;COMPUTE NUMBER OF THINGS TO MOVE.
		STA	INDEX	;SAVE FOR LATER.
		TAY
		LDA	HIGHTR+1
		SBC	LOWTR+1
		TAX		;PUT IT IN A COUNTER REGISTER.
		INX		;SO THAT COUNTER ALGORITHM WORKS.
		TYA		;SEE IF LOW PART OF COUNT IS ZERO.
		BEQ	DECBLT	;YES, GO START MOVING BLOCKS.
		LDA	HIGHTR	;NO, MUST MODIFY BASE ADDR.
		SEC
		SBC	INDEX	;BORROW IS OFF SCE HIGHTR.GT.LOWTR.
		STA	HIGHTR	;SAVE MODIFIED BASE ADDR.
		BCS	BLT1	;IF NO BORROW, GO SHOVE IT.
		DEC	HIGHTR+1	;BORROW IMPLIES SUB 1 FROM HIGH ORDER.
		SEC
BLT1:		LDA	HIGHDS	;MOD BASE OF DEST ADDR.
		SBC	INDEX
		STA	HIGHDS
		BCS	MOREN1	;NO BORROW.
		DEC	HIGHDS+1	;DECREMENT HIGH ORDER BYTE.
		BCC	MOREN1	;ALWAYS SKIP.
BLTLP:		LDA	(HIGHTR),Y	;FETCH BYTE TO MOVE
		STA	(HIGHDS),Y	;MOVE IT IN, MOVE IT OUT.
MOREN1:		DEY
		BNE	BLTLP
		LDA	(HIGHTR),Y	;MOVE LAST OF THE BLOCK.
		STA	(HIGHDS),Y
DECBLT:		DEC	HIGHTR+1
		DEC	HIGHDS+1	;START ON NEW BLOCKS.
		DEX
		BNE	MOREN1
		RTS		;RETURN TO CALLER.
; THIS ROUTINE IS USED TO ASCERTAIN THAT A GIVEN
; NUMBER OF LOCS REMAIN AVAILABLE FOR THE STACK.
;    THE CALL IS:
; LDAI NUMBER OF 2-BYTE ENTRIES NEEDED.
; JSR GETSTK
; THIS ROUTINE MUST BE CALLED BY ANY ROUTINE WHICH PUTS
; AN ARBITRARY AMOUNT OF STUFF ON THE STACK,
; I.E., ANY RECURSIVE ROUTINE LIKE 'FRMEVL'.
; IT IS ALSO CALLED BY ROUTINES SUCH A'GOSUB' AND 'FOR'
; WHICH MAKE PERMANENT ENTRIES ON THE STACK.
; ROUTINES WHICH MERELY USE AND FREE UP THE GUARANTEED
; NUMLEV LOCATIONS NEED NOT CALL THIS.
; ON EXIT:
;    A AND X HAVE BEEN MODIFIED.
GETSTK:		ASL	A	;MULT A BY 2. NB, CLEARS C BIT.
		ADC	#2*NUMLEV+3+13	;MAKE SURE 2*NUMLEV+13 LOCS
;(13 BECAUSE OF FBUFFR)
		BCS	OMERR	;WILL REMAIN IN STACK.
		STA	INDEX
		TSX		;GET STACKED.
		CPX	INDEX	;COMPARE.
		BCC	OMERR	;IF STACK.LE.INDEX1, OM.
		RTS
; Y,A IS A CERTAIN ADDRESS. 'REASON' MAKES SURE
; IT IS LESS THAN FRETOP.
REASON:		CPY	FRETOP+1
		BCC	REARTS
		BNE	TRYMOR	;GO GARB COLLECT.
		CMP	FRETOP
		BCC	REARTS
TRYMOR:		PHA
		LDX	#8+1	;IF TEMPF2 HAS ZERO IN BETWEEN.
		TYA
REASAV:		PHA
		LDA	HIGHDS-1,X	;SAVE HIGHDS ON STACK.
		DEX
		BPL	REASAV	;PUT 8 OF THEM ON STK.
		JSR	GARBA2	;GO GARB COLLECT.
		LDX	#$F7
REASTO:		PLA
		STA	HIGHDS+8+1,X	;RESTORE AFTER GARB COLLECT.
		INX
		BMI	REASTO
		PLA
		TAY
		PLA		;RESTORE A AND Y.
		CPY	FRETOP+1	;COMPARE HIGHS
		BCC	REARTS
		BNE	OMERR	;HIGHER IS BAD.
		CMP	FRETOP	;AND THE LOWS.
		BCS	OMERR
REARTS:		RTS
		EJECT
		TITLE	'ERR HAND, READY, TERM INPUT'
OMERR:		LDX	#ERROM
ERROR:		EQU	*
ERRCRD:		BIT	ERRFLG
		BPL	*+5
		JMP	HNDLERR
		JSR	CRDO	;OUTPUT CRLF.
		JSR	OUTQST	;PRINT A QUESTI MARK
;OUTPUT IT.
GETERR:		LDA	ERRTAB,X
		PHA
		JSR	OUTDO	;OUTPUT IT.
		INX
		PLA		;LAST CHAR OF MESSAGE?
		BPL	GETERR	;NO. GO GET NEXT AND OUTPUT IT.
TYPERR:		JSR	STKINI	;RESET THE STACK AND FLAGS.
		LDA	#ERR
		LDY	#>ERR	;GET PNTR TO ' ERROR'.
ERRFIN:		JSR	STROUT	;OUTPUT IT.
		LDY	CURLIN+1
		INY		;WAS NUMBER 64000?
		BEQ	READY	;YES, DON'T TYPE LINE NUMBER.
		JSR	INPRT
READY		EQU	*
;NO INIT ERRORS POSSIBLE.
MAIN:		JSR	CRDO	;NEXT LINE
		LDX	#$DD	;BACK BRACKET FOR PROMPT
		JSR	INLIN+2
		STX	TXTPTR
		STY	TXTPTR+1
		LSR	ERRFLG	;CLEAR 'ONERR' FLAG.
		JSR	CHRGET
		TAX		;SET ZERO FLAG BASED ON A
;THIS DISTINGUISHES ':' AND 0
		BEQ	MAIN	;IF BLANK LINE, GET ANOTHER.
		LDX	#255	;SET DIRECT LINE NUMBER.
		STX	CURLIN+1
		BCC	MAIN1	;IS A LINE NUMBER. NOT DIRECT.
		JSR	CRUNCH	;COMPACTIFY.
		JMP	GONE	;EXECUTE IT.
MAIN1:		LDX	PRGEND
		STX	VARTAB
		LDX	PRGEND+1
		STX	VARTAB+1
		JSR	LINGET	;READ LINE NUMBER INTO 'LINNUM'
		JSR	CRUNCH
		STY	COUNT	;RETAIN CHARACTER COUNT.
		JSR	FNDLIN
		BCC	NODEL	;NO MATCH, SO DON'T DELETE.
		LDY	#1
		LDA	(LOWTR),Y
		STA	INDEX1+1
		LDA	VARTAB
		STA	INDEX1
		LDA	LOWTR+1	;SET TRANSFER TO.
		STA	INDEX2+1
		LDA	LOWTR
		DEY
		SBC	(LOWTR),Y	;COMPUTE NEGATIVE LENGTH.
		CLC
		ADC	VARTAB	;COMPUTE NEW VARTAB.
		STA	VARTAB
		STA	INDEX2	;SET LOW OF TRANS TO.
		LDA	VARTAB+1
		ADC	#255
		STA	VARTAB+1	;COMPUTE HIGH OF VARTAB.
		SBC	LOWTR+1	;COUTE NUMBER OF BLOCKS TO MOVE.
		TAX
		SEC
		LDA	LOWTR
		SBC	VARTAB	;COMPUTE OFFSET.
		TAY
		BCS	QDECT1	;IF VARTAB.LE.LOWTR,
		INX		;DECR DUE TO CARRY, AND
		DEC	INDEX2+1	;DECREMENT STORE SO CARRY WORKS.
QDECT1:		CLC
		ADC	INDEX1
		BCC	MLOOP
		DEC	INDEX1+1
		CLC		;FOR LATER ADC.
MLOOP:		LDA	(INDEX1),Y
		STA	(INDEX2),Y
		INY
		BNE	MLOOP	;BLOCK DONE?
		INC	INDEX1+1
		INC	INDEX2+1
		DEX
		BNE	MLOOP	;DO ANOTHER BLOCK. ALWAYS.
NODEL:		LDA	BUF	;SEE IF LINE HAD ANY CONTES.
		BEQ	FINI	;IF NOT, DON'T INSERT.
		LDA	MEMSIZ
		LDY	MEMSIZ+1
		STA	FRETOP
		STY	FRETOP+1
		LDA	VARTAB
		STA	HIGHTR	;SETUP HIGHTR.
		ADC	COUNT	;ADD LENGTH OF LINE TO INSERT.
		STA	HIGHDS	;THIS GIVES DEST ADDR.
		LDY	VARTAB+1
		STY	HIGHTR+1	;SAME FOR HIGH ORDERS.
		BCC	NODELC
		INY
NODELC:		STY	HIGHDS+1
		JSR	BLTU
		LDA	LINNUM
		LDY	LINNUM+1	;POSITION THE BINARY LINE NUMBER
		STA	BUF-2
		STY	BUF-2+1	;IN FRONT OF BUF
		LDA	STREND
		LDY	STREND+1
		STA	VARTAB
		STY	VARTAB+1
		LDY	COUNT
STOLOP:		LDA	BUF-5,Y
		DEY
		STA	(LOWTR),Y
		BNE	STOLOP
FINI:		JSR	RUNC	;DO CLEAR & SET UP STACK.
;AND SET TXTPTR TO TXTTAB-1.
		LDA	TXTTAB
		LDY	TXTTAB+1	;SET INDEX TO TXTTAB.
		STA	INDEX
		STY	INDEX+1
		CLC
; CHEAD GOES THROUGH PROGRAM STORAGE AND FIXES
; UP ALL THE LINKS. THE END OF EACH LINE IS FOUND
; BY SEARCHING FOR THE ZERO AT THE END.
; THE DOUBLE ZERO LINK IS USED TO DETECT THE END OF PROG
CHEAD:		LDY	#1
		LDA	(INDEX),Y	;ARRIVED AT DOUBLE ZEROES?
		BNE	CCHEAD
SAVMEM:		LDA	VARTAB
		STA	PRGEND
		LDA	VARTAB+1
		STA	PRGEND+1
		JMP	MAIN	;YES, CHEAD HAS FINISHED.
CCHEAD:		LDY	#4
CZLOOP:		INY		;THERE IS AT LEAST ONE BYTE.
		LDA	(INDEX),Y
		BNE	CZLOOP	;NO, CONTINUE SEARCHING.
		INY		;GO ONE BEYOND.
		TYA
		ADC	INDEX
		TAX
		LDY	#0
		STA	(INDEX),Y
		LDA	INDEX+1
		ADC	#0
		INY
		STA	(INDEX),Y
		STX	INDEX
		STA	INDEX+1
		BCC	CHEAD	;ALWAYS BRANCHES.
INLIN:		LDX	#$80	;NO PROMPT CHARACTER
		STX	C_PRMP
		JSR	C_INLN	;GET A LINE ONTO PAGE 2
		CPX	#BUFLEN-1
		BCC	GDBUFS	;NOT TOO MANY CHARACTERS
		LDX	#BUFLEN-1
GDBUFS:		LDA	#0	;PUT A ZERO AT THE END
		STA	BUF,X
		TXA
		BEQ	NOCHR
LOPBHT:		LDA	BUF-1,X
		AND	#127
		STA	BUF-1,X
		DEX
		BNE	LOPBHT
NOCHR:		LDA	#0
		LDX	#<BUF-1
		LDY	#>BUF-1	;POINT AT THE BEGINNING
		RTS
;GO TO FININL FAR, FAR AWAY.
INCHR:		JSR	C_INCH
		AND	#127
INCRTS:		RTS		;END OF INCHR.
;OF THE TEXT POINTER TO GET TO BUF
;AFTER TXTPTR HAS BEEN SETUP TO POINT INTO BUF
BUFOFS		EQU	BUF/256*256
		IF PLIST <> 0 THEN
		PRINT	ON
		ELSE
		ENDIF
CRUNCH:		LDX	TXTPTR	;SETOURCE POINTER.
		DEX
		LDY	#4	;SET DESTINATION OFFSET.
		STY	DORES	;ALLOW CRUNCHING.
		BIT	RNONLY	;RUN ONLY?
		BPL	SLOOP
		PLA		;NO SUBROUTINES IN
		PLA
		JSR	RUNC	;GO TO IT!
		JMP	NEWSTT	;AND RUN!!
SLOOP:		INX
KLOOP		EQU	*
		IF A2E+LOLLY <> 0 THEN		;Do for enhanced //e and //c
		JSR	UPSHFT2	;UPSHIFT CHARACTERS FOR TOKEN SEARCH
		ELSE
		LDA	BUFOFS,X
		ENDIF
		BIT	DORES
		BVS	NOSPCS
CMPSPC:		CMP	#$20	;IS IT A SPACE TO SAVE?
		BEQ	SLOOP	;YES,IGNORE IT.
NOSPCS:		STA	ENDCHR	;IF IT'S A QUOTE, THIS WILL
;STOP LOOP WHEN OTHER QUOTE APPEARS.
		CMP	#34	;QUOTE SIGN?
		BEQ	STRNG	;YES, DO SPECIAL STRING HANDLING.
		BVS	STUFFH	;NO CRUNCH, JUST STORE.
		CMP	#'?'	;A QMARK?
		BNE	KLOOP1
		LDA	#PRINTK	;YES, STUFF A 'PRINT' TOKE
		BNE	STUFFH	;ALWAYS GO TO STUFFH.
KLOOP1:		CMP	#'0'	;SKIP NUMERICS.
		BCC	MUSTCR
		CMP	#60	;':' AND ';' ARE ENTERED STRAIGHTAWAY.
		BCC	STUFFH
MUSTCR:		STY	BUFPTR	;SAVE BUFFER POINTER.
		LDA	#RESLST	;FOR INDIRECT.
		STA	FAC
		LDA	#>RESLST-$100	;HI BYTE
		STA	FAC+1
		LDY	#0	;LOAD RESLST POINTER.
		STY	COUNT	;ALSO CLEAR COUNT.
		DEY
		STX	TXTPTR	;SAVE TEXT POINTER FOR LATER USE.
		DEX
RESER:		INY
		BNE	RESPUL
		INC	FAC+1
RESPUL:		INX
RESCON:		EQU	*
		IF A2E+LOLLY <> 0 THEN		;Do for enhanced //e and //c
		JSR	UPSHFT2
		ELSE
		LDA	BUFOFS,X
		ENDIF
		CMP	#$20	;IS IT A SPACE TO CRUNCH?
		BEQ	RESPUL	;SKIP IT.
		SEC		;PREPARE TO SUBSTARCT.
		SBC	(FAC),Y	;CHARACTERS EQUAL?
		BEQ	RESER	;YES, CONTINUE SEARCH.
		CMP	#128	;NO BUT MAYBE THE END IS HERE.
		BNE	NTHIS	;NO, TRULY UNEQUAL.
		ORA	COUNT
		CMP	#ATTKN	;AT PROBLEM?
		BNE	GETBPT	;NAW, FANCY FREE...
		IF A2E+LOLLY <> 0 THEN		;Do for enhanced //e and //c
		JSR	UPSHFT1
		ELSE
		LDA	BUFOFS+1,X	;GET NEXT CHAR.
		ENDIF
		CMP	#'N'	;IS IT A 'N' (ATN)
		BEQ	NTHIS	;IF SO, NO 'AT' FUNCTION
		CMP	#'O'	;IS IT A 'O'   (A TO...)
		BEQ	NTHIS
		LDA	#ATTKN	;NOTHING SPECIAL, GIVE HIM 'AT'
GETBPT:		LDY	BUFPTR	;GET BUFFER PNTR.
STUFFH:		INX
		INY
		STA	BUF-5,Y
		LDA	BUF-5,Y
		BEQ	CRDONE	;NULL IMPLIES END OF LINE.
		SEC		;PREPARE TO SUBSTARCT.
		SBC	#':'	;IS IT A ':'?
		BEQ	COLIS	;YES, ALLOW CRUNCHING AGAIN.
		CMP	#DATATK-':'	;IS IT A DATATK?
		BNE	NODATT	;NO, SEE IF IT IS REM TOKEN.
COLIS:		STA	DORES	;SETUP FLAG.
NODATT:		SEC		;PREP TO SBC.
		SBC	#REMTK-':'	;REM ONLY STOPS ON NULL.
		BNE	KLOOP	;NO, CONTINUE CRUNCHING.
		STA	ENDCHR	;REM STOPS ONLY ON NULL, NOT : OR '.
STR1:		EQU	*
		IF A2E+LOLLY <> 0 THEN		;Do for enhanced //e and //c
		JSR	UPSHFT2
		ELSE
		LDA	BUFOFS,X
		ENDIF
		BEQ	STUFFH	;YES, END OF LINE, SO DONE.
		CMP	ENDCHR	;END OF GOBBLE?
		BEQ	STUFFH	;YES, DONE WITH STRING.
STRNG:		INY		;INCREMENT BUFFER POINTER.
		STA	BUF-5,Y
		INX
		BNE	STR1	;PROCESS NEXT CHARACTER.
NTHIS:		LDX	TXTPTR	;RESTORE TEXT POINTER.
		INC	COUNT	;INCREMENT RES WORD COUNT.
NTHIS1:		LDA	(FAC),Y	;NEXT WORD TIME...
		INY
		BNE	*+4
		INC	FAC+1
		ASL	A
		BCC	NTHIS1
		LDA	(FAC),Y	;END OF TABLE?
		BNE	RESCON
		IF A2E+LOLLY <> 0 THEN		;Do for enhanced //e and //c
		JSR	UPSHFT3
		ELSE
		LDA	BUFOFS,X	;YES, END OF TABLE. GET 1ST CHR.
		ENDIF
		BPL	GETBPT	;STORE IT AWAY (ALWAYS BRANCHES).
CRDONE:		STA	BUF-3,Y	;SO THAT IF THIS IS A DIR STATEMENT
;ITS END WILL LOOK LIKE END OF PROGRAM.
		DEC	TXTPTR+1
		LDA	#<BUF-1	;MAKE TXTPTR POINT TO
		STA	TXTPTR	;CRUNCHED LINE.
LISTRT:		RTS		;RETURN TOALLER.
		IF PLIST <> 0 THEN
		PRINT	OFF
		ELSE
		ENDIF
; FNDLIN SEARCHES THE PROGRAM TEXT FOR THE LINE
; WHOSE NUMBER IS PASSED IN 'LINNUM'.
; THERE ARE TWO POSSIBLE RETURNS:
; 1) CARRY SET.
;    LOWTR POINTS TO THE LINK FIELD IN THE LINE
;    WHICH IS THE ONE SEARCHED FOR.
; 2) CARRY NOT SET.
;    LINE NOT FOUND. LOWTR POINTS TO THE LINE IN THE
;    PROGRAM GREATER THAN THE ONE SOUGHT AFTER.
FNDLIN:		LDA	TXTTAB
		LDX	TXTTAB+1	;LOAD X,A WITH TXTTAB
FNDLNC:		LDY	#1
		STA	LOWTR
		STX	LOWTR+1	;STORE X,ANTO LOWTR
		LDA	(LOWTR),Y	;SEE IF LINK IS 0
		BEQ	FLINRT
		INY
		INY
		LDA	LINNUM+1	;COMP HIGH ORDERS OF LINE NUMBERS.
		CMP	(LOWTR),Y
		BCC	FLNRTS	;NO SUCH LINE NUMBER.
		BEQ	FNDLO1
		DEY
		BNE	AFFRTS	;ALWAYS BRANCH.
FNDLO1:		LDA	LINNUM
		DEY
		CMP	(LOWTR),Y	;COMPARE LOW ORDERS.
		BCC	FLNRTS	;NO SUCH NUMBER.
		BEQ	FLNRTS	;GO TIT.
AFFRTS:		DEY
		LDA	(LOWTR),Y	;FETCH LINK.
		TAX
		DEY
		LDA	(LOWTR),Y
		BCS	FNDLNC	;ALWAYS BRANCHES.
FLINRT:		CLC		;C MAY BE HIGH.
FLNRTS:		RTS		;RETURN TO CALLER.
; THE 'NEW' COMMAND CLEARS THE PROGRAM TEXT AS WELL
; AS VARIABLE SPACE.
SCRATH:		BNE	FLNRTS	;MAKE SURE THERE IS A TERMINATOR.
SCRTCH:		LDA	#0	;GET A CLEARER.
		STA	RNONLY	;OUT OF RRUN-ONLY MODE.
		TAY		;SET UP INDEX.
		STA	(TXTTAB),Y	;CLEAR FIRST LINK.
		INY
		STA	(TXTTAB),Y
		LDA	TXTTAB
		ADC	#2
		STA	VARTAB	;SETUP VARTAB.
		STA	PRGEND
		LDA	TXTTAB+1
		ADC	#0
		STA	VARTAB+1
		STA	PRGEND+1
RUNC:		JSR	STXTPT
		LDA	#0	;SET ZERO FLAG
; THIS CODE IS FOR THE CLEAR COMMAND.
CLEAR:		BNE	STKRTS	;SYNTAX ERROR IF NO TERMINATOR.
; CLEARC IS SUBROUTINE WHICH INITIALIZES THE VARIABLE AND
; ARRAY SPACE BY RESETING ARYTAB (END OF SIMPLE VARIABLE)
; AND STREND (END OF ARRAY STORAGE). IT FALLS INTO
; 'STKINI' WHICH RESETS THE STACK. 
CLEARC:		LDA	MEMSIZ
		LDY	MEMSIZ+1	;FREE UP STRING SPACE.
		STA	FRETOP
		STY	FRETOP+1
		LDA	VARTAB
		LDY	VARTAB+1	;LIBERATE THE
		STA	ARYTAB
		STY	ARYTAB+1	;VARIABLESND
		STA	STREND
		STY	STREND+1	;ARRAYS.
FLOAD:		JSR	RESTOR	;RESTORE DATA.
; STKINI RESETS THE STACK POINTER ELIMINATING
; GOSUB AND FOR CONTEXT. STRING TEMPORARIES ARE FREED
; UP, SUBFLG IS RESET. CONTINUING IS PROHIBITED.
; AND A DUMMY ENTRY IS LEFT AT THE BOTTOM OF THE STACK
; FIND A NON-'FOR' ENTRY AT THE BOTTOM OF THE STACK.
STKINI:		LDX	#TEMPST	;INITIALIZE STRING TEMPORARIES.
		STX	TEMPPT
		PLA		;SETUP RETURN ADDRESS.
		TAY
		PLA
		LDX	#STKEND-259	;HAVE STACK POINT TO RETURN ADDRESS.
		TXS
		PHA
		TYA
		PHA
		LDA	#0
		STA	OLDTXT+1	;DISALLOWING CONTINUING
		STA	SUBFLG	;ALLOW SUBSCRIPTS.
STKRTS:		RTS
STXTPT:		CLC
		LDA	TXTTAB
		ADC	#255
		STA	TXTPTR
		LDA	TXTTAB+1
		ADC	#255
		STA	TXTPTR+1	;SETUP TEXT POINTER.
		RTS
		IF PLIST <> 0 THEN
		PRINT	ON
		ELSE
		ENDIF
		EJECT
		TITLE	'THE LIST COMMAND.'
LIST:		BCC	GOLST	;IT IS A DIGIT.
		BEQ	GOLST	;IT IS A TERMINATOR.
		CMP	#MINUTK	;DASH PRECEDING?
		BEQ	GOLST
		CMP	#$2C
		BNE	STKRTS
GOLST:		JSR	LINGET	;GET LINE NUMBER INTO NUMLIN.
		JSR	FNDLIN	;FIND LINE .GE. NUMLIN.
		JSR	CHRGOT	;GET LAST CHARACTER.
		BEQ	LSTEND	;IF END OF LINE, # IS THE END.
		CMP	#MINUTK	;DASH?
		BEQ	*+6
		CMP	#$2C
		BNE	FLNRTS	;IF NOT, SYNTAX ERROR.
		JSR	CHRGET	;GET NEXT CHAR.
		JSR	LINGET	;GET END #.
		BNE	STKRTS	;IF NOT TERMINATOR, ERROR.
LSTEND:		PLA
		PLA		;GET RID OF 'NEWSTT' RTS ADDR.
		LDA	LINNUM	;SEE IF IT WAS EXISTENT.
		ORA	LINNUM+1
		BNE	LIST4	;IT WAS TYPED.
		LDA	#255
		STA	LINNUM
		STA	LINNUM+1	;MAKE IT HUGE.
LIST4:		LDY	#1
		LDA	(LOWTR),Y	;IS LINK ZERO?
		BEQ	GRODY	;YES, GO TO READY.
		JSR	ISCNTC	;LISTEN FOR CONT-C.
		JSR	CRDO	;PRINT CRLF TO START WITH.
		INY
		LDA	(LOWTR),Y
		TAX
		INY
		LDA	(LOWTR),Y	;GET LINE NUMBER.
		CMP	LINNUM+1	;SEE IF BEYOND LAST.
		BNE	TSTDUN	;GO DETERMINE RELATION.
		CPX	LINNUM	;WAS EQUAL SO TEST LOW ORDER.
		BEQ	TYPLIN	;EQUAL, SO LIST IT.
TSTDUN:		BCS	GRODY	;IF LINE IS GR THAN LAST, THEN DUNE.
TYPLIN:		STY	LSTPNT
		IF A2E+LOLLY <> 0 THEN		;Do for enhanced //e and //c
		JSR	LDSPCE	;OUTPUT SPACE BEFORE LINE NUMBER
		ELSE
		JSR	LINPRT	;PRINT AS INT WITHOUT LEADING SPACE.
		ENDIF
		LDA	#$20	;ALWAYS PRINT SPACE AFTER NUMBER.
PRIT4:		LDY	LSTPNT	;GET POINTER TO LINE BACK.
		AND	#127
PLOOP:		JSR	OUTDO	;PRINT CHAR.
		IF A2E+LOLLY <> 0 THEN		;Do for enhanced //e and //c
		JSR	LSTFMAT
		NOP
		ELSE
		LDA	$24	;WINDOW WIDTH EXCEEDED?
		CMP	#33
		ENDIF
		BCC	PLOOP1
		JSR	CRDO	;GO TO NEXT LINE,
		LDA	#$05	;AND FAKE A TAB.
		STA	$24
PLOOP1:		INY
;THE PROGRAM MUST BE MISFORMATED IN
;MEMORY DUE TO A BAD LOAD OR BAD
;HARDWARE. LET THE GUY RECOVER
		LDA	(LOWTR),Y	;GET NEXT CHAR. IS IT ZERO?
		BNE	QPLOP	;YES. END OF LINE.
		TAY
		LDA	(LOWTR),Y
		TAX
		INY
		LDA	(LOWTR),Y
		STX	LOWTR
		STA	LOWTR+1
		BNE	LIST4	;BRANCH IF SOMETHING TO LIST.
GRODY:		LDA	#$0D	;PRINT EXTRA CRLF
		JSR	OUTDO
		JMP	NEWSTT	;THEN GO BACK TONEWSTT FOR NXTLIN.
GETNXTW:		INY		;NEXT CHAR IN
		BNE	*+4	;RESLST
		INC	FAC+1
		LDA	(FAC),Y
		RTS
		IF PLIST <> 0 THEN
		PRINT	OFF
		ELSE
		ENDIF
;IS IT A TOKEN?
QPLOP:		BPL	PLOOP	;NO, HEAD FOR PRINTER.
;YES, JUST TYPE THE CHARACTER.
		SEC
		SBC	#127	;GET RID OF SIGN BIT AND ADD 1.
		TAX		;MAKE IT A COUNTER.
		STY	LSTPNT	;SAVE POINTER TO LINE.
		LDY	#RESLST
		STY	FAC
		LDY	#>RESLST-$100
		STY	FAC+1
		LDY	#255	;LOOK AT RES'D WORD LIST.
RESRCH:		DEX		;IS THIS THE RES'D WORD?
		BEQ	PRIT25	;YES, GO TOSS IT UP
RESCR1:		JSR	GETNXTW
		BPL	RESCR1	;NO, CONTINUE PASSING.
		BMI	RESRCH
PRIT25:		LDA	#$20	;SPACE AROUND RESERVED WORDS.
		JSR	OUTDO
PRIT3:		JSR	GETNXTW
		BMI	PRFINIS	;END OF RESERVED WORD.
		JSR	OUTDO	;PRINT IT.
		BNE	PRIT3	;END OF ENTRY? NO, TYPE REST.
PRFINIS:		JSR	OUTDO
		LDA	#$20
		BNE	PRIT4
		EJECT
		TITLE	'THE FOR STATEMENT.'
; A 'FOR' ENTRY ON THE STACK HAS THE FOLLOWING FORMAT:
; LOW ADDRESS
; TOKEN (FORTK) 1 BYTE
; A POINTER TO THE LOOP VARIABLE 2 BYTES
; THE STEP 4+ADDPRC BYTES
; A BYTE REFLECTING THE SIGN OF THE INCREMENT 1 BYTE
; THE UPPER VALUE 4+ADDPRC BYTE ; LINE NUMBER OF THE 'FOR'
; A TEXT POINTER INTO THE 'FOR' STATEMENT 2 BYTES
; HIGH ADDRESS
; TOTAL 16+2*ADDPRC BYTES.
FOR:		LDA	#128	;DON'T RECOGNIZE
		STA	SUBFLG	;SUBSCRIPTED VARIABLES.
		JSR	LET	;READ THE VARIABLE AND ASSIGN IT
;THE CORRECT INITIAL VALUE AND STORE
;A POINTER TO THE VARIABLE IN VARPNT.
		JSR	FNDFOR	;PNTR IS IN VARPNT, AND FORPNT.
		BNE	NOTOL	;IF NO MATCH, DON'T ELIMINATE ANYTHING.
		TXA		;MAKE IT ARITHMETICAL.
		ADC	#FORSIZ-3	;ELIMINATE ALMOST ALL.
		TAX		;NOTE C=1, THEN PLA, PLA.
		TXS		;MANIFEST.
NOTOL:		PLA		;GET RID OF NEWSTT RETURN ADDRESS
		PLA		;IN CASE THIS IS A TOTALLY NEW ENTRY.
		LDA	#9
		JSR	GETSTK	;MAKE SURE 16 BYTES ARE AVAILABLE.
		JSR	DATAN	;GET A COUNT IN Y OF THE NUMBER OF
;CHACRACTERS LEFT IN THE 'FOR' STATEMENT
;TXTPTR IS UNAFFECTED.
		CLC		;PREP TO ADD.
		TYA		;SAVE IT FOR PUSHING.
		ADC	TXTPTR
		PHA
		LDA	TXTPTR+1
		ADC	#0
		PHA
		LDA	CURLIN+1
		PHA
		LDA	CURLIN
		PHA		;PUT LINE NUMBER ON STACK.
		LDA	#TOTK
		JSR	SYNCHR	;'TO' IS NECESSARY.
		JSR	CHKNUM	;VALUE MUST BE A NUMBER.
		JSR	FRMNUM	;GET UPPER VALUE INTO FAC.
		LDA	FACSGN	;PACK FAC.
		ORA	#127
		AND	FACHO
		STA	FACHO	;SET PACKED SIGN BIT.
		LDA	#LDFONE
		LDY	#>LDFONE
		STA	INDEX1
		STY	INDEX1+1
		JMP	FORPSH	;PUT FAC ONTO STACK, PACKED.
LDFONE:		LDA	#FONE
		LDY	#>FONE	;PUT 1.0 INTO FAC.
		JSR	MOVFM
		JSR	CHRGOT
		CMP	#STEPTK	;A STEP IS GIVEN?
		BNE	ONEON	;NO. AUME 1.0.
		JSR	CHRGET	;YES. ADVANCE POINTER.
		JSR	FRMNUM	;READ THE STEP.
ONEON:		JSR	SIGN	;GET SIGN IN ACCA.
		JSR	PUSHF	;PUSH FAC ONTO STACK (THRU A).
		LDA	FORPNT+1
		PHA
		LDA	FORPNT
		PHA		;PUT PNTR TO VARIABLE ON STACK.
NXTCON:		LDA	#FORTK	;PUT A FORTK ONTO STACK.
		PHA
; BNEA NEWSTT   ;SIMULATE BNE TO NEWSTT. JUST FALL IN.
		EJECT
		TITLE	'NEW STATEMENT FETCHER.'
; BACK HERE FOR NEW STATEMENT. CHAR POINTED TO BY TXTPT
; IS ':' OR END-OF-LINE. THE ADDRESS OF TS LOC IS LEFT
; ON THE STACK WHEN A STATEMENT IS EXECUTED SO THAT
; IT CAN MERELY DO A RTS WHEN IT IS DONE.
NEWSTT:		EQU	*
		TSX		;IN CASE OF ERROR.
		STX	REMSTK
		JSR	ISCNTC	;LISTEN FOR CONTROL-C.
		LDA	TXTPTR
		LDY	TXTPTR+1	;LOOK AT CURRENT CHARACTER.
		LDX	CURLIN+1
		INX
		BEQ	DIRCON
		STA	OLDTXT
		STY	OLDTXT+1	;SAVE IN CASE OF RESTART BY INPUT.
DIRCON:		LDY	#0
		LDA	(TXTPTR),Y
		BNE	MORSTS	;NOT NULL -- CHECK WHAT IT IS
		LDY	#2	;LOOK AT LINK.
		LDA	(TXTPTR),Y	;IS LINK 0?
		CLC
		BEQ	INTERM	;YES - RAN OFF THE END.
		INY		;PUT LINE NUMB IN CURLIN.
		LDA	(TXTPTR),Y
		STA	CURLIN
		INY
		LDA	(TXTPTR),Y
		STA	CURLIN+1
		TYA
		ADC	TXTPTR
		STA	TXTPTR
		BCC	GONE
		INC	TXTPTR+1
GONE:		BIT	TRFLAG	;IN TRACE MODE?
		BPL	GOFORIT	;IF NOT, DO LINE
		LDX	CURLIN+1	;IN DIRECT MODE?
		INX
		BEQ	GOFORIT	;IF SO, DON'T TRACE
		LDA	#'#'
		JSR	OUTDO	;FOR TRACE FORMAT
		LDX	CURLIN
		LDA	CURLIN+1
		JSR	LINPRT
		JSR	OUTSPC	;TRAILING BLANK.
GOFORIT:		JSR	CHRGET
		JSR	GONE3
		JMP	NEWSTT
INTERM:		BEQ	ENDCON	;GO ALL THE WAY
GONE3:		BEQ	ISCRTS	;IF TERMINATOR, TRY AGAIN.
;NO NEED TO SET UP CARRY SINCE IT WILL
;BE ON IF NON-NUMERIC AND NUMERICS
;WILL CAUSE A SYNTAX ERROR LIKE THEY SHOULD
GONE2:		SBC	#ENDTK	;' ON ... GOTO AND GOSUB' COME HERE.
		BCC	GLET
		CMP	#SCRATK-ENDTK+1
		BCS	SNERR1	;SOMRES'D WORD BUT NOT
;A STATEMENT RES'D WORD.
		ASL	A	;MULTIPLY BY TWO.
		TAY		;MAKE AN INDEX.
		LDA	STMDSP+1,Y
		PHA
		LDA	STMDSP,Y
		PHA		;PUT DISP ADDR ONTO STACK.
		JMP	CHRGET
GLET:		JMP	LET	;MUST BE A LET
MORSTS:		CMP	#':'
		BEQ	GONE	;IF A ':' CONTINUE STATEMENT
SNERR1:		JMP	SNERR	;NEITHER 0 OR ':' SO SYNTAX ERROR
		EJECT
		TITLE	'REST,STOP,END,CONT,NULL,CLEAR.'
RESTOR:		SEC
		LDA	TXTTAB
		SBC	#1
		LDY	TXTTAB+1
		BCS	RESFIN
		DEY
RESFIN:		STA	DATPTR
		STY	DATPTR+1	;READ FINISHES COME TO 'RESFIN'.
ISCRTS:		RTS
;WAS IT A CONTROL-C??
ISCNTC:		LDA	$C000	;CHECK THE CHARACTER
		CMP	#$83
		BEQ	ISCCAP
		RTS
ISCCAP:		JSR	INCHR
		LDX	#$FF	;FOR BREAK ERROR NUMBER.
		BIT	ERRFLG	;IN ONERR MODE?
		BPL	*+5	;IF SO, JUMP TO 'HNDLERR'
		JMP	HNDLERR
		CMP	#$03
STOP:		BCS	STOPC	;MAKE C NONZERO AS A FLAG.
END:		CLC
STOPC:		BNE	CONTRT	;RETURN IF NOT CONT-C OR
;IF NO TERMINATOR FOR STOP OR END.
;C=0 SO WILL NOT PRINT 'BREAK'.
		LDA	TXTPTR
		LDY	TXTPTR+1
		LDX	CURLIN+1
		INX
		BEQ	DIRIS
		STA	OLDTXT
		STY	OLDTXT+1
STPEND:		LDA	CURLIN
		LDY	CURLIN+1
		STA	OLDLIN
		STY	OLDLIN+1
DIRIS:		PLA		;POP OFF NEWSTT ADDR.
		PLA
ENDCON:		LDA	#BRKTXT
		LDY	#>BRKTXT
		BCC	GORDY	;CARRY CLEAR SO DON'T PRINT 'BREAK'.
		JMP	ERRFIN
GORDY:		JMP	READY	;TYPE 'READY'.
CONT:		BNE	CONTRT	;MAKE SURE THERE IS A TERMINATOR.
		LDX	#ERRCN	;CONTINUE ERROR.
		LDY	OLDTXT+1	;A STORED TXTPTR OF ZERO IS SETUP
;BY STKINI AND INDICATES THERE IS
;NOTHING TO CTINUE.
		BNE	*+5
		JMP	ERROR	;'STOP', 'END', TYPING CRLF TO 
;'INPUT' AND  C SETUP OLDTXT.
		LDA	OLDTXT
		STA	TXTPTR
		STY	TXTPTR+1
		LDA	OLDLIN
		LDY	OLDLIN+1
		STA	CURLIN
		STY	CURLIN+1
CONTRT:		RTS		;RETURN TO CALLER.
		IF PLIST <> 0 THEN
		PRINT	ON
		ELSE
		ENDIF
		EJECT
		TITLE	'LOAD AND SAVE SUBROUTINES.'
;FOR APPLE COMPUTERS.
		IF LOLLY <> 0 THEN
UPSHFT1		LDA	BUFOFS+1,X
		BPL	UPSHFT4	;BRANCH ALWAYS
UPSHFT2		LDA	ENDCHR	;TESTS FOR NO UPSHIFT DESIRED
		BEQ	NOSHFT
		CMP	#$22	;INSIDE A QUOTED STRING?
		BEQ	NOSHFT
		LDA	DORES	;TEST FOR DATA STATEMENT
		CMP	#$49
		BEQ	NOSHFT	;BRANCH IF DATA
UPSHFT3		LDA	BUFOFS,X	;GET CHARACTER FROM INPUT BUFFER
UPSHFT4		PHP		;SAVE STATUS
		CMP	#$61	;IS IT LOWER CASE?
		BCC	UPSHFT5
		AND	#$5F	;MAKE IT UPPER CASE!
UPSHFT5		PLP		;RESTORE STATUS
		RTS
NOSHFT		LDA	BUFOFS,X	;RETURN ORIGINAL STUFF
		RTS
LDSPCE		PHA		;SAVE ACC 
		LDA	#$20	;OUTPUT A SPACE CHARACTER IN FRONT OF LINE NUMBER
		JSR	OUTDO
		PLA
		JMP	LINPRT	;NOW OUTPUT LINE # 
LSTFMAT		LDA	$24
		CMP	#33	;REGULAR WIDTH
		BIT	$C01F
		BPL	FMAT40
		LDA	$57B	;IF 80-COL ENABLED, COMPARE WITH 73
		CMP	#73
FMAT40		RTS
ROMPLOT		EQU	$F80E
COLOR		EQU	$30
GBASL		EQU	$26
GBASCALC		EQU	$F847
MASK		EQU	$2E
SETWND		EQU	$FB4B
SETGR		EQU	*
		LDA	TXTCLR
		JSR	CLRTOP
		LDA	#$14	;SET WINDOW TOP TO LINE 20
		JMP	SETWND	; IN MONITOR 
*
CLRTOP		LDY	#$27	;GET GRAPHICS VERTICAL IN Y REGISTER
		STY	V2
		JSR	VIDSTATE	;GET VIDEO STATE (DOUBLE GR?)
		LDA	#$27
		BCC	GRIS40	;BRANCH IF 40 BY 48 (NORMAL)
		ROL	A
GRIS40		TAY		;WIDTH IN A... PUT IN Y.
CLRSC3		LDA	#0
		STA	COLOR
		JSR	VLINE
		DEY
		BPL	CLRSC3
		RTS
*
FILL_SIZE01	EQU	APPLESOFT+$912-*
	IF FILL_SIZE01 > 0	THEN
		DCB.B	FILL_SIZE01,0	;FILL REMAINDER WITH BREAKS FOR LOLLY
	ENDIF
		ELSE
SAVE:		SEC		;CALCLUATE PROGRAM SIZE IN POKER
		LDA	PRGEND	;GET ACTUAL END OF PROGRAM
		SBC	TXTTAB
		STA	POKER
		LDA	PRGEND+1
		SBC	TXTTAB+1
		STA	POKER+1
		JSR	VARTIO
		JSR	C_COUT	;WRITE PROGRAM SIZE POK
		JSR	PROGIO
		JMP	C_COUT	;WRITE PROGRAM.
LOAD:		JSR	VARTIO
		JSR	C.CSIN	;READ SIZE OF PROGRAM INTO POKER
		CLC
		LDA	TXTTAB	;CALCULATE VARTAB FROM SIZE AND
		ADC	POKER	;TXTTAB
		STA	VARTAB
		LDA	TXTTAB+1
		ADC	POKER+1
		STA	VARTAB+1
		LDA	POKER+2
		STA	RNONLY	;HAHA!! FUCKED HIM OVER!
		JSR	PROGIO
		JSR	C_CSIN	;READ PROGRAM.
		BIT	RNONLY	;IS THIS A SPECIAL PROGRAM?
		BPL	DOTHEREST
		JMP	RUNC
DOTHEREST:	JMP	FINI
VARTIO:		LDA	#POKER
		LDY	#>POKER
		STA	$3C
		STY	$3C+1
		LDA	#POKER+2
		STA	$3E
		STY	$3E+1
		STY	RNONLY	;REGULAR SAVE...
		RTS
PROGIO:		LDA	TXTTAB
		LDY	TXTTAB+1
		STA	$3C
		STY	$3C+1
		LDA	VARTAB
		LDY	VARTAB+1
		STA	$3E
		STY	$3E+1
		RTS
		ENDIF
		IF PLIST <> 0 THEN
		PRINT	OFF
		ELSE
		ENDIF
		EJECT
		TITLE	'RUN,GOTO,GOSUB,RETURN.'
RUN:		PHP
		DEC	CURLIN+1	;RUN NOT DIRECT!
		PLP
		BNE	*+5
		JMP	RUNC	;IF NO LINE # ARGUMENT.
		JSR	CLEARC	;CLEAN UP -- RESET THE STACK.
		JMP	RUNC2	;MUST REPLACE RTS ADDR.
; A GOSUB ENTRY ON THE STACK HAS THE FOLLOWING FORMAT:
; LOW ADDRESS:
; THE GOSUTK ONE BYTE
; THE LINE NUMBER OF THE GOSUB STATEMENT TWO BYTES
; A POINTER INTO THE TEXT OF THE GOSUB TWO BYS
; HIGH ADDRESS.
; TOTAL FIVE BYTES.
GOSUB:		LDA	#3
		JSR	GETSTK	;MAKE SURE THERE IS ROOM.
		LDA	TXTPTR+1
		PHA
		LDA	TXTPTR
		PHA		;PUSH ON THE TEXT POINTER.
		LDA	CURLIN+1
		PHA
		LDA	CURLIN
		PHA		;PUSH ON THE CURRENT LINE NUMBER.
		LDA	#GOSUTK
		PHA		;PUSH ON A GOSUB TOKEN.
RUNC2:		JSR	CHRGOT	;GET CHARACTER & SET CODES FOR LINGET.
		JSR	GOTO	;USE RTS SCHEME TO 'NEWSTT'.
		JMP	NEWSTT
GOTO:		JSR	LINGET	;PICK UP THE LINE NUMBER IN 'LINNUM'.
		JSR	REMN	;SKIP TO END OF LINE.
		LDA	CURLIN+1
		CMP	LINNUM+1
		BCS	LUK4IT
		TYA
		SEC
		ADC	TXTPTR
		LDX	TXTPTR+1
		BCC	LUKALL
		INX
		BCS	LUKALL	;ALWAYS GOES.
LUK4IT:		LDA	TXTTAB
		LDX	TXTTAB+1
LUKALL:		JSR	FNDLNC	;X,A ARE ALL SET UP.
QFOUND:		BCC	USERR	;GOTO LINE IS NONEXISTANT.
		LDA	LOWTR
		SBC	#1
		STA	TXTPTR
		LDA	LOWTR+1
		SBC	#0
		STA	TXTPTR+1
GORTS:		RTS		;PROCESS THE STATEMENT.
; 'RETURN' RESTORES LINE NUMBER AND TEXT PNTR FROM STACK
; AND ELIMINATES ALL E 'FOR' ENTRIES IN FRONT OF 'GOSUB'
RETURN:		BNE	GORTS	;NO TERMINATOR=BLOW HIM UP.
		LDA	#255
		STA	FORPNT	;MAKE SURE THE VARIABLE'S PNTR
;NEVER GETS MATCHED.
		JSR	FNDFOR	;GO PAST ALL THE 'FOR' ENTRIES.
		TXS
		CMP	#GOSUTK	;RETURN WITHOUT GOSUB?
		BEQ	RETU1
		LDX	#ERRRG
		DC.B	44
USERR:		LDX	#ERRUS	;NO MATCH SO 'US' ERROR.
		JMP	ERROR	;YES.
SNERR2:		JMP	SNERR
RETU1:		PLA		;REMOVE GOSUTK.
		PLA
		CPY	#<POPTKN*2	;POP STATEMENT
		BEQ	DOPOP
		STA	CURLIN
		PLA
		STA	CURLIN+1	;GET LINE NUMBER 'GOSUB' WAS OM.
		PLA
		STA	TXTPTR
		PLA
		STA	TXTPTR+1	;GET TEXT PNTR FROM 'GOSUB'.
DATA:		JSR	DATAN	;SKIP TO END OF STATEMENT, 
;SINCE WHEN 'GOSUB' STUCK THE TEXT  PNTR
;ONTO THE STACK, THE LINE NUMBER ARG
;HADN'T BEEN READ YET.
ADDON:		TYA
		CLC
		ADC	TXTPTR
		STA	TXTPTR
		BCC	REMRTS
		INC	TXTPTR+1
REMRTS:		RTS		;'NEWSTT' RTS ADDR IS STILL THERE.
DATAN:		LDX	#':'	;'DATA' TERMINATES ON ':' AND NULL.
		DC.B	44
REMN:		LDX	#0	;THE ONLY TERMINATOR IS NULL.
		STX	CHARAC	;PRESERVE IT.
		LDY	#0	;THIS MAKES CHARAC=0 AFTER SWAP.
		STY	ENDCHR
EXCHQT:		LDA	ENDCHR
		LDX	CHARAC
		STA	CHARAC
		STX	ENDCHR
REMER:		LDA	(TXTPTR),Y
		BEQ	REMRTS	;NULL ALWAYS TERMINATES.
		CMP	ENDCHR	;IS IT THE OTHER TERMINATOR?
		BEQ	REMRTS	;YES, IT'S FINISHED.
		INY		;PROGRESS TO NEXT CHARACTER.
		CMP	#34	;IS IT A QUOTE?
		BNE	REMER	;NO, JUST CONTINUE.
		BEQ	EXCHQT	;YES, TIME TO TRADE.
DOPOP:		PLA		;GET OTHER STUFF OFF STACK
		PLA
		PLA		;NEWSTT ADDR STILL THERE
		RTS		;SO GO BACK.....
		EJECT
		TITLE	'IF ... THEN CODE.'
IF:		JSR	FRMEVL	;EVALUATE A FORMULA.
		JSR	CHRGOT	;GET CURNT CHARACTER.
		CMP	#GOTOTK	;IS TERMINATING CHARACTER A GOTOTK?
		BEQ	OKGOTO	;YES.
		LDA	#THENTK
		JSR	SYNCHR	;NO, IT MUST BE 'THEN'.
OKGOTO:		LDA	FACEXP	;0=FALSE. ALL OTHERS TRUE.
		BNE	DOCOND	;TRUE !
REM:		JSR	REMN	;SKIP REST OF STATEMENT.
		BEQ	ADDON	;WILL ALWAYS BRANCH.
DOCOND:		JSR	CHRGOT	;TEST CURRENT CHARACTER.
		BCS	DOCO	;IF A NUMBER, GOTO IT.
		JMP	GOTO
DOCO:		JMP	GONE3	;INTERPRET NEW STATEMENT.
		EJECT
		TITLE	'ON ... GO TO ... CODE.'
ONGOTO:		JSR	GETBYT	;GEVALUE IN FACLO.
		PHA		;SAVE FOR LATER.
		CMP	#GOSUTK	;AN 'ON ... GOSUB' PERHAPS?
		BEQ	ONGLOP	;YES.
SNERR3:		CMP	#GOTOTK	;MUST BE 'GOTOTK'.
		BNE	SNERR2
ONGLOP:		DEC	FACLO
		BNE	ONGLP1	;SKIP ANOTHER LINE NUMBER.
		PLA		;GET DISPATCH CHARACTER.
		JMP	GONE2
ONGLP1:		JSR	CHRGET	;ADVANCE AND SET CODES.
		JSR	LINGET
		CMP	#44	;IS IT A COMMA?
		BEQ	ONGLOP
		PLA		;REMOVE STACK ENTRY (TOKEN).
ONGRTS:		RTS		;EITHER END-OF-LINE OR SYNTAX ERROR.
		EJECT
		TITLE	'LINGET -- READ A LINE NUMBER'
; 'LINGET' READS A LINE NUMBER FROM CURRENT TEXT POSITION
; LINE NUMBERS RANGE FROM 0 TO 64000-1.
; THE ANSWER IS RETURNED IN 'LINNUM'.
; 'TXTPTR' IS UPDATED TO POINT TO THE TERMINATING CHARCTER
; AND A = THE TERMINATING CHARACTER WITH CONDITION
; CODES SET UP TO REFLECT ITS VALUE.
LINGET:		LDX	#0
		STX	LINNUM	;INITIALIZE LINE NUMBER TO ZERO.
		STX	LINNUM+1
MORLIN:		BCS	ONGRTS	;IT IS NOT A DIGIT.
		SBC	#'0'-1	;-1 SINCE C=0.
		STA	CHARAC	;SAVE CHARACTER.
		LDA	LINNUM+1
		STA	INDEX
		CMP	#25	;LINE NUMBER WILL BE .LT. 64000?
		BCS	SNERR3
		LDA	LINNUM
		ASL	A	;MULTIPLY BY 10.
		ROL	INDEX
		ASL	A
		ROL	INDEX
		ADC	LINNUM
		STA	LINNUM
		LDA	INDEX
		ADC	LINNUM+1
		STA	LINNUM+1
		ASL	LINNUM
		ROL	LINNUM+1
		LDA	LINNUM
		ADC	CHARAC	;ADD IN DIGIT.
		STA	LINNUM
		BCC	NXTLGC
		INC	LINNUM+1
NXTLGC:		JSR	CHRGET
		JMP	MORLIN
		EJECT
		TITLE	'LET CODE.'
LET:		JSR	PTRGET	;GET PNTR TO VARIABLE INTO 'VARPNT'.
		STA	FORPNT
		STY	FORPNT+1	;PRESERVE POINTER.
		LDA	#EQULTK
		JSR	SYNCHR	;'=' IS NECESSARY.
		LDA	INTFLG	;SAVE FOR LATER.
		PHA
		LDA	VALTYP	;RETAIN THE VARIABLE'S VALUE TYPE.
		PHA
		JSR	FRMEVL	;GET VALUE OF FORMULA INTO 'FAC'.
		PLA
		ROL	A	;CARRY SET FOR STRING, OFF FOR
;NUMERIC.
		JSR	CHKVAL	;MAKE SURE 'VALTYP' MATCHES CARRY.
;AND SET ZERO FLAG FOR NUMERIC.
		BNE	COPSTR	;IF NUMERIC, COPY IT.
COPNUM:		PLA		;GET NUMBER TYPE.
QINTGR:		BPL	COPFLT	;STORE A FLTING NUMR.
		JSR	ROUND	;ROUND INTEGER.
		JSR	AYINT	;MAKE 2-BYTE NUMBER.
		LDY	#0
		LDA	FACMO	;GET HIGH.
		STA	(FORPNT),Y	;STORE IT.
		INY
		LDA	FACLO	;GET LOW.
		STA	(FORPNT),Y
		RTS
COPFLT:		JMP	MOVVF	;PUT NUMBER @FORPNT.
COPSTR:		EQU	*
		PLA		;IF STRING, NO INTFLG.
INPCOM:		EQU	*
;ADD IN DIGIT TO FAC.
GETSPT:		LDY	#2	;GET PNTR TO DESCRIPTOR.
		LDA	(FACMO),Y
		CMP	FRETOP+1	;SEE IF IT POINTS INTO STRING SPACE.
		BCC	DNTCPY	;IF FRETOP,GT.2&3,FACMO, DON'T COPY.
		BNE	QVARIA	;IT IS LESS.
		DEY
		LDA	(FACMO),Y
		CMP	FRETOP	;COMPARE LOW ORDERS.
		BCC	DNTCPY
QVARIA:		LDY	FACLO
		CPY	VARTAB+1	;IF VARTAB.GT.FACMO, DON'T COPY.
		BCC	DNTCPY
		BNE	COPY	;IT IS LESS.
		LDA	FACMO
		CMP	VARTAB	;COMPARE LOW ORDERS.
		BCS	COPY
DNTCPY:		LDA	FACMO
		LDY	FACMO+1
		JMP	COPY_C
COPY:		LDY	#0
		LDA	(FACMO),Y
		JSR	STRINI	;GET ROOM TO COPY STRING INTO.
		LDA	DSCPNT
		LDY	DSCPNT+1	;GET POINTER TO OLD DESCRIPTOR, SO 
		STA	STRNG1
		STY	STRNG1+1	;MOVINS CAN FINSTRING.
		JSR	MOVINS	;COPY IT.
		LDA	#DSCTMP
		LDY	#>DSCTMP	;GET POINTER TO OLD DESCRIPTOR.
COPY_C:		STA	DSCPNT
		STY	DSCPNT+1	;REMEMBER POINTER TO DESCRIPTOR.
		JSR	FRETMS	;FREE UP THE TEMPORARY WITHOUT
;FREEING UP ANY STRING SPACE.
		LDY	#0
		LDA	(DSCPNT),Y
		STA	(FORPNT),Y
		INY		;POINT TO STRING PNTR.
		LDA	(DSCPNT),Y
		STA	(FORPNT),Y
		INY
		LDA	(DSCPNT),Y
		STA	(FORPNT),Y
		RTS
		EJECT
		TITLE	'PRINT CODE.'
STRDON:		JSR	STRPRT
NEWCHR:		JSR	CHRGOT	;REGET LAST CHARACTER.
PRINT:		BEQ	CRDO	;TERMINATOR SO TYPE CRLF.
PRINTC:		BEQ	PRTRTS	;HERE AFTER SEEING TAB(X) OR , OR ;
;IN WHICH CASE A TERMINATOR DOES NOT
;MEAN TYPE A CRLF BUT JUST RTS.
		CMP	#TABTK	;TAB FUNCTION?
		BEQ	TABER	;YES.
		CMP	#SPCTK	;SPACE FUNCTION?
		CLC		;REMEMBER IF IT IS.
		BEQ	TABER
		CMP	#44	;A COMMA?
		CLC
		BEQ	COMPRT	;YES.
		CMP	#59	;A SEMICOLON?
		BEQ	NOTABR	;YES.
		JSR	FRMEVL	;EVALUATE THE FORMULA.
		BIT	VALTYP	;A STRING?
		BMI	STRDON	;YES.
		JSR	FOUT
		JSR	STRLIT
		JMP	STRDON
		IF PLIST <> 0 THEN
		PRINT	ON
		ENDIF
CRDO:		EQU	*
		LDA	#13	;MAKE TRMPOS LESS THAN LINE LENGTH.
		JSR	OUTDO
CRFIN:		EQU	*
		EOR	#255
PRTRTS:		RTS
		IF A2E+LOLLY <> 0 THEN		;Do for enhanced //e and //c
COMPRT		JSR	LSTFMAT
		BMI	MORCOM	;PAST LAST COMMA POSITION
		CMP	#$18
		BCC	MORCOM
		JSR	CRDO
		BNE	NOTABR	;FINISH UP
MORCOM:		ADC	#$10	;DO COMMA FOR PRINTER CARD
		AND	#$F0	;THE RIGHT WAY SO IT WILL WORK!
		TAX
		SEC
		BCS	TABR1A	;FINISH UP BY PRINTING SPACES TO NEXT TAB. 
TABER:		PHP		;REMEMBER IF SPC OR TAB FUNCTION.
		JSR	GTBYTC	;GET VALUE INTO ACCX.
		CMP	#41
		BNE	SNERR4
* 
		PLP
		BCC	XSPAC	;PRINT X SPACES.
TABER1		DEX		;COLUMN 1 ISFIRST
TABR1A		JSR	TABER2
		BCC	NOTABR	;NEGATIVE, DON'T PRINT ANY.
		ELSE
COMPRT		LDA	TRMPOS
		CMP	#$18	;PAST LAST COMMA POSITION
		BCC	MORCOM
		JSR	CRDO
		BNE	NOTABR	;FINISH UP
MORCOM:		ADC	#$10	;DO COMMA FOR PRINTER CARD
		AND	#$F0	;THE WRONG WAY SO IT WILL WORK!
		STA	TRMPOS
		BCC	NOTABR	;FINISH UP.
TABER:		PHP		;REMEMBER IF SPC OR TAB FUNCTION.
		JSR	GTBYTC	;GET VALUE INTO ACCX.
		CMP	#41
		BEQ	*+5
		JMP	SNERR
		PLP
		BCC	XSPAC	;PRINT X SPACES.
		DEX		;COLUMN 1 IS FIRST
		TXA
		SBC	TRMPOS
		BCC	NOTABR	;NEGATIVE, DON'T PRINT ANY.
		ENDIF
ASPAC:		TAX
XSPAC:		INX
XSPAC2:		DEX		;DECREMENT THE COUNT.
		BNE	XSPAC1
NOTABR:		JSR	CHRGET	;REGET LAST CHARACTER.
		JMP	PRINTC	;DON'T CALL CRDO.
XSPAC1:		JSR	OUTSPC
		BNE	XSPAC2
; PRINT STRING POINTED TO BY Y,A WHICH ENDS WITH A ZERO.
; IF STRING IS BELOW DSCTMP IT WILL BE COPIED INTO STRING
STROUT:		JSR	STRLIT	;GET A STRING LITERAL.
; PRINT THE STRING WHOSE DESCRIPTOR IS POINTED TO BY FACMO
STRPRT:		JSR	FREFAC	;RETURN TEMP POINTER.
		TAX		;PUT COUNT INTO COUNTER.
		LDY	#0
		INX		;MOVE ONE AHEAD.
STRPR2:		DEX
		BEQ	PRTRTS	;ALL DONE.
		LDA	(INDEX),Y	;PNTR TO ACT STRNG SET BY FREFAC.
		JSR	OUTDO
		INY
		CMP	#13
		BNE	STRPR2
		JSR	CRFIN	;TYPE REST OF CARRIAGE RETURN.
		JMP	STRPR2	;AND ON AND ON.
		IF PLIST <> 0 THEN
		PRINT	OFF
		ENDIF
; OUTDO OUTPUTS THE CHARACTER IN ACCA, USING CNTWFL
; (SUPPSS OR NOT), TRMPOS (PRINT HEAD POSITION),
; TIMING, ETC.. NO REGISTERS ARE CHANGED.
OUTSPC:		EQU	*
		LDA	#$20
		DC.B	44
OUTQST:		LDA	#'?'
OUTDO:		EQU	*
		ORA	#$80	;TURN ON B7 FOR APPLE.
		CMP	#$A0	;CONTROL CHARACTER?
		BCC	OUTLOC
		ORA	ORMASK
OUTLOC:		JSR	OUTCH	;OUTPUT THE CHARACTER.
		AND	#$7F	;GET A BACK FROM APPLE.
		PHA		;NOW DELAY FOR SPEED=
		LDA	SPDBYT
		JSR	WAITNOW
		PLA
GETRTS:		RTS
		EJECT
		TITLE	'INPUT AND READ CODE'
; HERE WHEN DATA THAT WAS TYPED IN OR IN 'DATA' STATEMENT
; IS IMPROPERLY FORMATTED. FOR 'INPUT' WE START AGAIN.
; FOR 'READ' WE GIVE A SYNTAX ERROR AT THE DATA LINE.
TRMNOK:		LDA	INPFLG
		BEQ	TRMNO1	;IFNPUT TRY AGAIN.
		BMI	GETDTL
		LDY	#255	;MAKE IT LOOK DIRECT.
		BNE	STCURL	;ALWAYS GOES.
GETDTL:		EQU	*
		LDA	DATLIN
		LDY	DATLIN+1	;GET DATA LINE NUMBER.
STCURL:		STA	CURLIN
		STY	CURLIN+1	;MAKE IT CURRENT LINE.
SNERR4:		JMP	SNERR
		PLA
TRMNO1:		EQU	*
		BIT	ERRFLG	;ON ERR IN EFFECT?
		BPL	DOAGIN	;NO.
		LDX	#254	;ERROR CODE IS 254 FOR BAD INPUT.
		JMP	HNDLERR
DOAGIN:		LDA	#TRYAGN
		LDY	#>TRYAGN
		JSR	STROUT	;PRINT '?REDO FROM START'.
		LDA	OLDTXT
		LDY	OLDTXT+1	;POINT AT START
		STA	TXTPTR
		STY	TXTPTR+1	;OF THIS CURRENT LINE.
		RTS		;GO TO 'NEWSTT'.
GET:		JSR	ERRDIR	;DIRECT IS NOT OK.
GETTTY:		LDX	#<BUF+1
		LDY	#>BUF+1	;POINT TO 0.
		LDA	#0	;TO STUFF AND TO POINT.
		STA	BUF+1
		LDA	#64	;TURN ON V-BIT.
		JSR	INPCO1	;DO THE GET.
		RTS
INPUT:		EQU	*
		CMP	#34	;A QUOTE?
		BNE	NOTQTI	;NO MESSA.
		JSR	STRTXT	;LITERALIZE THE STRING IN TEXT
		LDA	#59
		JSR	SYNCHR	;MUST END WITH SEMICOLON.
		JSR	STRPRT	;PRINT IT OUT.
		JMP	NOTQTII	;DON'T PRIN OUT QUESTION MARK
NOTQTI:		JSR	OUTQST	;PRINT A ? FOR INPUT
NOTQTII:		JSR	ERRDIR	;USE COMMON ROUTINE SINCE DEF DIRECT
		LDA	#44	;GET COMMA.
		STA	BUF-1
;IS ALSO ILLEGAL.
GETAGN:		JSR	INLIN	;INPUT A LINE OF TEXT.
		LDA	BUF	;ANYTHING INPUT?
		CMP	#$03	;CONTROL-C AT FRONT OF LINE?
		BNE	INPCON	;YES, CONTINUE
		JMP	ISCCAP+3	;NO, STOP.
QINLIN:		EQU	*
		JSR	OUTQST
GINLIN:		JMP	INLIN
READ:		LDX	DATPTR
		LDY	DATPTR+1	;GET LAST DATA LOCATION.
		LDA	#$98	;FOR STUFF..
		DC.B	44	;SKIP OVER LDA #0 OPERATION.
INPCON:		LDA	#0
INPCO1:		STA	INPFLG	;STORE THE FLAG.
; IN THE PROCESSING OF DATA AND READ STATEMENTS:
; ONE POINTER POINTS TO DATA (THE NUMBERS BEING FETCHED)
; AND ANOTHER POINTS TO THE LIST OF VARIABLES.
; THE POINTER INTO THE DATA ALWAYS STARTS POINTING TO A
; TERMINATOR -- A , : OR END-OF-LINE.
; AT THIS POINT TXTPTR POINTS TO LIST OF VARIABLES AND
; Y,X POINTS TO DATA OR INPUT LINE.
		STX	INPPTR
		STY	INPPTR+1
INLOOP:		JSR	PTRGET	;READ VARIABLE LIST.
		STA	FORPNT
		STY	FORPNT+1	;SAVE POINTER FOR 'LET' STRING UFFING.
;RETURNS PNTR TOP VAR IN VARPNT.
		LDA	TXTPTR
		LDY	TXTPTR+1	;SAVE TEXT PNTR.
		STA	VARTXT
		STY	VARTXT+1
		LDX	INPPTR
		LDY	INPPTR+1
		STX	TXTPTR
		STY	TXTPTR+1
		JSR	CHRGOT	;GET IT AND SET Z IF TERM.
		BNE	DATBK1
		BIT	INPFLG
		BVC	QDATA
		JSR	C_GETL	;DON'T WANT INCHR. JUST ONE.
		AND	#127
		STA	BUF	;MAKE IT FIRST CHARACTER.
		LDX	#<BUF-1
		LDY	#>BUF-1	;POINT JUST BEFORE IT.
		BNE	DATBK	;GO PROCESS.
QDATA:		BMI	DATLOP	;SEARCH FOR ANOTHER DATA STATEMENT.
		JSR	OUTQST
GETNTH:		JSR	QINLIN	;GET ANOTHER LINE.
DATBK:		STX	TXTPTR
		STY	TXTPTR+1	;SET FOR 'CHRGET'.
DATBK1:		JSR	CHRGET
		BIT	VALTYP	;GET VALUE TYPE.
		BPL	NUMINS	;INPUT A NUMBER IF NUMERIC.
		BIT	INPFLG	;GET?
		BVC	SETQUT	;NO, GO SET QUOTE.
		INX
		STX	TXTPTR
		LDA	#0	;ZERO TERMINATORS.
		STA	CHARAC
		BEQ	RESETC
SETQUT:		STA	CHARAC	;ASSUME QUOTED STRING.
		CMP	#34	;TERMINATORS OK?
		BEQ	NOWGET	;YES.
		LDA	#':'	;SET TERMINATORS TO ':' AND
		STA	CHARAC
		LDA	#44	;COMMA.
RESETC:		CLC
NOWGET:		STA	ENDCHR
		LDA	TXTPTR
		LDY	TXTPTR+1
		ADC	#0	;C IS SET PROPERLY ABOVE.
		BCC	NOWGE1
		INY
NOWGE1:		JSR	STRLT2	;MAKE A STRING DESCRIPTOR FOR VALUE
;AND COPY IF NECESSARY.
		JSR	ST2TXT	;SET TEXT POINTER.
		JSR	INPCOM	;DO ASSIGNMENT.
		JMP	STRDN2
NUMINS:		PHA
		LDA	BUF	;BLANK INPUT?
		BEQ	MAYBAD
NUMINS2:		PLA
		JSR	FIN	;GET VALUE.
		LDA	INTFLG	;SET CODES ON FLAG.
		JSR	QINTGR	;GO DECIDE ON FLOAT.
STRDN2:		JSR	CHRGOT	;READ LAST CHARACTER.
		BEQ	TRMOK	;':' OR EOL IS OK.
		CMP	#44	;A COMMA?
		BEQ	*+5
		JMP	TRMNOK
TRMOK:		LDA	TXTPTR
		LDY	TXTPTR+1
		STA	INPPTR
		STY	INPPTR+1	;SAVE FOR MORE READS.
		LDA	VARTXT
		LDY	VARTXT+1
		STA	TXTPTR
		STY	TXTPTR+1	;POINT TO VARIABLE LIST.
		JSR	CHRGOT	;LOOK AT LAST VARIABLE LIST CHARACTER.
		BEQ	VAREND	;THAT'S THE END OF THE LIST.
		JSR	CHKCOM	;NOT END. CHECK FOR COMMA.
		JMP	INLOOP
MAYBAD:		LDA	INPFLG
		BNE	NUMINS2
		JMP	TRMNO1-1
; SUBROUTINE TO FIND DATA
; SEARCH IS MADE BY USING THE EXECUTION CODE FOR DATA TO
; SKIP OR STATEMENTS. THE START WORD OF EACH STATEMENT
; IS COMPARED WITH 'DATATK'. EACH NEW LINE NUMBER
; IS STORED IN 'DATLIN' SO THAT IF AN ERROR OCCURS
; WHILE READING DATA THE ERROR MESSAGE CAN GIVE THE LINE
; NUMBER OF THE ILL-FORMATTED DATA.
DATLOP:		JSR	DATAN	;SKIP SOME TEXT.
		INY
		TAX		;END OF LINE?
		BNE	NOWLIN	;SHO AIN'T.
		LDX	#ERROD	;YES = 'NO DATA' ERROR.
		INY
		LDA	(TXTPTR),Y
		BEQ	ERRGO5
		INY
		LDA	(TXTPTR),Y	;GET HIGH BYTE OF LINE NUMBER.
		STA	DATLIN
		INY
		LDA	(TXTPTR),Y	;GET LOW BYTE.
		INY
		STA	DATLIN+1
NOWLIN:		LDA	(TXTPTR),Y	;HOW IS IT?
		TAX
		JSR	ADDON	;ADD Y TO TXTPTR.
		CPX	#DATATK	;IS IT A 'DATA' STATEMENT.
		BNE	DATLOP	;NOT QUITE RIGHT. KEEP LOOKING.
		JMP	DATBK1	;THIS IS THE ONE !
VAREND:		LDA	INPPTR
		LDY	INPPTR+1	;PUT AWAY A NEW DATA PNTR MAYBE.
		LDX	INPFLG
		BPL	VARY0
		JMP	RESFIN
VARY0:		LDY	#0
		LDA	(INPPTR),Y	;LAST DATA CHR COULD HAVE BEEN
;COMMA OR COLON BUT SHOULD BE NULL.
		BEQ	INPRTS	;IT IS NUL
		LDA	#EXIGNT
		LDY	#>EXIGNT
		JMP	STROUT	;TYPE '?EXTRA IGNORED'
INPRTS:		RTS		;DO NEXT STATEMENT.
EXIGNT:		DC.B	'?EXTRA IGNORED'
		DC.B	13
		DC.B	0
TRYAGN:		DC.B	'?REENTER'
		DC.B	13
		DC.B	0
		EJECT
		TITLE	'THE NEXT CODE IS THE NEXT CODE'
; A 'FOR' ENTRY ON THE STACK HAS THE FOLLOWING FORMAT:
; LOW ADDRESS
; TOKEN (FORTK) 1 BYTE
; A POINTER TO THE LOOP VARIABLE 2 BYTES
; T STEP 4+ADDPRC BYTES
; A BYTE REFLECTING THE SIGN OF THE INCREMENT 1 BYTE
; THE UPPER VALUE (PACKED) 4+ADDPRC BYTES
; THE LINE NUMBER OF THE 'FOR' STATEMENT 2 BYTES
; A TEXT POINTER INTO THE 'FOR' STATEMENT 2 BYTES
; HIGH ADDRESS
; TOTAL 16+2*ADDPRC BYTES.
NEXT:		BNE	GETFOR
		LDY	#0	;WITHOUT ARG CALL 'FNDFOR' WITH
		BEQ	STXFOR	;FORPNT=0.
GETFOR:		JSR	PTRGET	;GET A POINTER TO LOOP VARIABLE
STXFOR:		STA	FORPNT
		STY	FORPNT+1	;INTO 'FORPNT'.
		JSR	FNDFOR	;FIND THE MATCHI ENTRY IF ANY.
		BEQ	HAVFOR
		LDX	#ERRNF	;'NEXT WITHOUT FOR'.
ERRGO5:		BEQ	ERRGO4
HAVFOR:		TXS		;SETUP STACK. CHOP FIRST.
		INX
		INX
		INX
		INX		;POINT TO INCREMENT.
		TXA		;SET LO ADDR OF THING TO MOVE.
		INX
		INX
		INX
		INX
		INX
		INX		;POINT TO UPPER LIMIT.
		STX	INDEX2
		LDY	#1	;SET HI ADDR OF THING TO MOVE.
		JSR	MOVFM	;GET QUANTITY INTO THE FAC.
		TSX
		LDA	257+7+1,X	;SET SIGN CORRECTLY.
		STA	FACSGN
		LDA	FORPNT
		LDY	FORPNT+1
		JSR	FADD	;ADD INC TO LO VARIABLE.
		JSR	MOVVF	;PACK THE FAC INTO MEMORY.
		LDY	#1
		JSR	FCOMPN	;COMPARE FAC WITH UPPER VALUE.
		TSX
		SEC
		SBC	257+7+1,X	;SUBTRACT SIGN OF INC FROM SIGN OF
;OF (CURRENT VALUE-FINAL VALUE).
		BEQ	LOOPDN	;IF SIGN (FINAL-CURRENT)-SIGN STEP=0
;THEN LOOP IS DONE.
		LDA	257+12+2,X
		STA	CURLIN	;STORE LINE NUMBER OF 'FOR' STATEMENT.
		LDA	257+13+2,X
		STA	CURLIN+1
		LDA	257+15+2,X
		STA	TXTPTR	;STORE TEXT PNTR INTO 'FOR' STATEMENT.
		LDA	257+14+2,X
		STA	TXTPTR+1
NEWSGO:		JMP	NEWSTT	;PROCESS NEXT STATEMENT.
LOOPDN:		TXA
		ADC	#15+2	;ADDS 16 WITH CARRY.
		TAX
		TXS		;NEW STACK PNTR.
		JSR	CHRGOT
		CMP	#44	;COMMA AT END?
		BNE	NEWSGO
		JSR	CHRGET
		JSR	GETFOR	;DO NEXT BUT DON'T ALLOW BLANK VARIABLE
;PNTR. VARPNT IS THE STK PNTR WHICH
;NEVER MATCHES ANY POINTER.
;JSR TO PUT ON DUMMY NEWSTT ADDR.
		EJECT
		TITLE	'FORMULA EVALUATION CODE.'
; THESE ROUTINES CHECK FOR CERTAIN 'VALTYP'.
; C IS NOT PRESERVED.
FRMNUM:		JSR	FRMEVL
CHKNUM:		CLC
		DC.B	36
CHKSTR:		SEC		;SET CARRY.
CHKVAL:		BIT	VALTYP	;WILL NOT F UP 'VALTYP'.
		BMI	DOCSTR
		BCS	CHKERR
CHKOK:		RTS
DOCSTR:		BCS	CHKOK
CHKERR:		LDX	#ERRTM
ERRGO4:		JMP	ERROR
; THE FORMULA EVALUATOR STARTS WITH
; TXTPTR POINTING TO THE FIRST CHARACTER OF THE FORMULA.
; AT THE END TXTPTR POINTS TO THE TERMINATOR.
; THE RESULT IS LEFT IN THE FAC.
; ON RETURN A DOES NOT REFLECT THE TERMINATOR.
; THE FORMULA EVALUATOR USES THE OPERATOR LIST (OPTAB)
; TO DETERMINE PCEDENCE AND DISPATCH ADDRESSES FOR 
; EACH OPERATOR.
; A TEMPORARY RESULT ON THE STACK HAS THE FOLLOWING FORMAT
; THE ADDRESS OF THE OPERATOR ROUTINE.
; THE FLOATING POINT TEMPORARY RESULT.
; THE PRECEDENCE OF THE OPERATOR.
FRMEVL:		LDX	TXTPTR
		BNE	FRMEV1
		DEC	TXTPTR+1
FRMEV1:		DEC	TXTPTR
		LDX	#0	;INITIAL DUMMY PRECEDENCE IS 0.
		DC.B	36
LPOPER:		PHA		;SAVE LOW PRECEDENCE. (MASK.)
		TXA
		PHA		;SAVE HIGH PRECEDENCE.
		LDA	#1
		JSR	GETSTK	;MAKE SURE THERE IS ROOM FOR
;RECURSIVE CALLS.
		JSR	EVAL	;EVALUATE SOMETHING.
		LDA	#$00
		STA	OPMASK	;PREPARE TO BUILD MASK MAYBE.
TSTOP:		JSR	CHRGOT	;REGET LAST CHARACTER.
LOPREL:		SEC		;PREP TO SUBTRACT.
		SBC	#GREATK	;IS CURRENT CHARACTER A RELATION?
		BCC	ENDREL	;NO. RELATIONS ALL THROUGH.
		CMP	#LESSTK-GREATK+1	;REALLY RELATIONAL?
		BCS	ENDREL	;NO -- JUST BIG.
		CMP	#1	;RESET CARRY FOR ZERO ONLY.
		ROL	A	;0 TO 1, 1 TO 2, 2 TO 4.
		EOR	#1
		EOR	OPMASK	;BRING IN THE OLD BITS.
		CMP	OPMASK	;MAKE SUREHE NEW MASK IS BIGGER.
		BCC	SNERR5	;SYNTAX ERROR. BECAUSE TWO OF THE SAME.
		STA	OPMASK	;SAVE MASK.
		JSR	CHRGET
		JMP	LOPREL	;GET THE NEXT CANDIDATE.
ENDREL:		LDX	OPMASK	;WERE THERE ANY?
		BNE	FINREL	;YES, HANDLE AS SPECIAL OP.
		BCS	QOP	;NOT AN OPERATOR.
		ADC	#GREATK-PLUSTK
		BCC	QOP	;NOT AN OPERATOR.
		ADC	VALTYP	;C=1.
		BNE	*+5
		JMP	CAT	;ONLY IF A=0 AND VALTYP=-1 (A STR).
		ADC	#$100-1	;GET BACK ORIGINAL A.
		STA	INDEX1
		ASL	A	;MULTIPLY BY 2.
		ADC	INDEX1	;BY THREE.
		TAY		;SET UP FOR LATER.
QPREC:		PLA		;GET PREVIOUS PRECEDENCE.
		CMP	OPTAB,Y	;IS OLD PRECEDENCE GREATER OR EQUAL?
		BCS	QCHNUM	;YES, GO OPERATE.
		JSR	CHKNUM	;CAN'T BE STRING HERE.
DOPREC:		PHA		;SAVE OLD PRECEDENCE.
NEGPRC:		JSR	DOPRE1	;SET A RETURN ADDRESS FOR OP.
		PLA		;PULL OFF PREVIOUS PRECEDENCE.
		LDY	OPPTR	;GET POINTER TO OP.
		BPL	QPREC1	;THAT'S A REAL OPERATOR.
		TAX		;DONE ?
		BEQ	QOPGO	;DONE !
		BNE	PULSTK
FINREL:		LSR	VALTYP	;GET VALUE TYPINTO 'C'.
		TXA
		ROL	A	;PUT VALTYP INTO LOW ORDER BIT OF MASK.
		LDX	TXTPTR	;DECREMENT TEXT POINTER.
		BNE	FINRE2
		DEC	TXTPTR+1
FINRE2:		DEC	TXTPTR
		LDY	#PTDORL-OPTAB	;MAKE YREG POINT AT OPERATOR ENTRY.
		STA	OPMASK	;SAVE THE OPERATION MASK.
		BNE	QPREC	;SAVE IT ALL. BR ALWAYS.
;NOTE B7(VALTYP)=0 SO CHKNUM CALL IS OK.
QPREC1:		CMP	OPTAB,Y	;LAST PRECEDENCE IS GREATER?
		BCS	PULSTK	;YES, GO OPERATE.
		BCC	DOPREC	;NO SAVE ARGUMENT AND GET OTHER OPERAND.
DOPRE1:		LDA	OPTAB+2,Y
		PHA		;DISP ADDR GOES ONTO STACK.
		LDA	OPTAB+1,Y
		PHA
		JSR	PUSHF1	;SAVE FAC ON STACK UNPACKED.
		LDA	OPMASK	;ACCA MAY BE MASK FOR REL.
		JMP	LPOPER
SNERR5:		JMP	SNERR	;GO TO AN ERROR.
PUSHF1:		LDA	FACSGN
		LDX	OPTAB,Y	;GET HIGH PRECEDENCE.
PUSHF:		TAY		;GET POINTER INTO STACK.
		PLA
		STA	INDEX1
		INC	INDEX1
		PLA
		STA	INDEX1+1
		TYA
;STORE FAC ON STACK UNPACKED.
		PHA		;START WITH SIGN SET UP.
FORPSH:		JSR	ROUND	;PUT ROUNDED FAC ON STACK.
		LDA	FACLO	;ENY POINT TO SKIP STORING SIGN.
		PHA
		LDA	FACMO
		PHA
		LDA	FACMOH
		PHA
		LDA	FACHO
		PHA
		LDA	FACEXP
		PHA
		IF LOLLY <> 0 THEN
		DC.B	$6C	;JMP (INDIRECT)
		DC.W	INDEX1
		ELSE
		JMP	(INDEX1)	;RETURN.
		ENDIF
QOP:		LDY	#255
		PLA		;GET HIGH PRECEDENCE OF LAST OP.
QOPGO:		BEQ	QOPRTS	;DONE !
QCHNUM:		CMP	#100	;RELATIONAL OPERATOR?
		BEQ	UNPSTK	;YES, DON'T CHECK OPERAND.
		JSR	CHKNUM	;MUST BE NUMBER.
UNPSTK:		STY	OPPTR	;SAVE OPERATOR'S POINTER FOR NEXT TIME
PULSTK:		PLA		;GET MASK FOR REL OP IF IT IS ONE.
		LSR	A	;SETUP C FOR DOREL 'CHKVAL'.
		STA	DOMASK	;SAVE FOR 'DOCMP'.
		PLA		;UNPACK STACK INTO ARG.
		STA	ARGEXP
		PLA
		STA	ARGHO
		PLA
		STA	ARGMOH
		PLA
		STA	ARGMO
		PLA
		STA	ARGLO
		PLA
		STA	ARGSGN
		EOR	FACSGN	;GET PROBABLE RESULT SIGN.
		STA	ARISGN	;ARITHMETIC SIGN. USED BY
;ADD, SUB, MULT, DIV.
QOPRTS:		LDA	FACEXP	;GET IT AND SET CODES.
UNPRTS:		RTS		;RETURN.
EVAL:		LDA	#$00
		STA	VALTYP	;ASSUME VALUE WILL BE NUMERIC.
EVAL0:		JSR	CHRGET	;GET A CHARACTER.
		BCS	EVAL2
EVAL1:		JMP	FIN	;IT IS A NUMBER.
EVAL2:		JSR	ISLETC	;VARIABLE NAME?
		BCS	ISVAR	;YES.
QDOT:		CMP	#'.'	;LEADING CHARACTER OF CONSTANT?
		BEQ	EVAL1
		CMP	#MINUTK	;NEGATION?
		BEQ	DOMIN	;SHO IS.
		CMP	#PLUSTK
		BEQ	EVAL0
		CMP	#34	;A QUOTE? A STRING?
		BNE	EVAL3
STRTXT:		LDA	TXTPTR
		LDY	TXTPTR+1
		ADC	#0	;TO INC, ADD C=1.
		BCC	STRTX2
		INY
STRTX2:		JSR	STRLIT	;YES. GO PROCESS IT.
		JMP	ST2TXT
EVAL3:		CMP	#NOTTK	;CHECK FOR 'NOT' OPERATOR.
		BNE	EVAL4
		LDY	#NOTTAB-OPTAB	;NOT' HAS PRECEDENCE 90.
		BNE	GONPRC	;GO DO ITS EVALUATION.
NOTOP:		LDA	FACEXP
		BNE	TOZER
		LDY	#1
		DC.B	44	;SKIP 2 INSTRUCTION
TOZER:		LDY	#0
		JMP	SNGFLT
EVAL4:		CMP	#FNTK	;USER-DEFINED FUNCTION?
		BNE	*+5
		JMP	FNDOER
		CMP	#ONEFUN	;A FUNCTION NAME?
		BCC	PARCHK	;FUNCTIONS ARE THE HIGHEST NUMBERED
		JMP	ISFUN	;CHARACTERS SO NO NEED TO CHECK
;AN UPPER-BOUND.
PARCHK:		JSR	CHKOPN	;ONLY POSSIBILITY LEFT IS
		JSR	FRMEVL	;A FORMULA IN PARENTHESIS.
;RECURSIVELY EVALUATE THE FORMULA.
CHKCLS:		LDA	#41	;CHECK FOR A RIGHT PARENTHESE
		DC.B	44
CHKOPN:		LDA	#40
		DC.B	44
CHKCOM:		LDA	#44
; 'SYNCHK' LOOKS AT THE CURRENT CHARACTER TO MAKE SURE IT
; IS THE SPECIFIC THING LOADED INTO ACCA JUST BEFORE CALL
; 'SYNCHK'. IF NOT, IT CALLS THE 'SYNTAX ERROR' ROUTINE.
; OTHERWISE IT GOBBLES THE NEXT CHAR AND RETURNS,
; A=NEW CHAR AND TXTPTR IS ADVANCED BY 'CHRGET'.
SYNCHR:		LDY	#0
		CMP	(TXTPTR),Y	;CHARACTERS EQUAL?
		BNE	SNERR
CHRGO5:		JMP	CHRGET
SNERR:		LDX	#ERRSN	;'SYNTAX ERROR'
		JMP	ERROR
DOMIN:		LDY	#NEGTAB-OPTAB	;A PRECEDENCE BELOW ''.
GONPRC:		PLA		;GET RID OF RTS ADDR.
		PLA
		JMP	NEGPRC	;EVALUTE FOR NEGATION.
ISVAR:		JSR	PTRGET	;GET A PNTR TO VARIABLE.
ISVRET:		STA	FACMO
		STY	FACMO+1
		LDX	VALTYP
		BEQ	GOOO	;THE STRING IS SET UP.
		LDX	#0
		STX	FACOV
STRRTS:		RTS
GOOO:		EQU	*
		LDX	INTFLG
		BPL	GOOOOO
		LDY	#0
		LDA	(FACMO),Y	;FETCH HIGH.
		TAX
		INY
		LDA	(FACMO),Y
		TAY		;PUT LOW IN Y.
		TXA		;GET HIGH IN A.
		JMP	GIVAYF	;FLOAT AND RETURN.
GOOOOO:		EQU	*
QSTATV:		EQU	*
		JMP	MOVFM	;MOVE ACTUAL VALUE IN.
DOSCRN:		JSR	CHRGET	;WITH TWO ARGS.
		JSR	PLOTFNS	;CALC X & Y
		TXA
		LDY	FIRST
		JSR	RDSCRN
		IF LOLLY <> 0 THEN
		ELSE
RDSCRN:		EQU	$F871
		ENDIF
		TAY
		JSR	SNGFLT
		JMP	CHKCLS
ISFUN:		CMP	#SCRNFN	;MULTIPLY BY TWO.
		BEQ	DOSCRN
		ASL	A
		PHA
		TAX
		JSR	CHRGET	;SET UP FORYNCHK.
		CPX	#2*LASNUM-256+1	;IS IT PAST 'LASNUM'?
		BCC	OKNORM	;NO, MUST BE NORMAL FUNCTION.
; MOST FUNCTIONS TAKE A SINGLE ARGUMENT.
; THE RETURN ADDRESS OF THESE FUNCTIONS IS 'CHKNUM'
; WHICH ASCERTAINS THAT VALTYP=0  (NUMERIC).
; NORMAL FUNCTIONS THAT RETURN STRING RESULTS
; (E.G., CHR$) MUST POP OFF THAT RETURN ADDR AND
; RETURN DIRECTLY TO 'FRMEVL'.
; SO-CALLED 'FUNNY' FUNCTIONS CAN TAKE MORE THAN ONE ARG
; THE FIRST OF WHICH MUST BE STRING AND THE SECOND OF ICH
; MUST BE A NUMBER BETWEEN 0 AND 255.
; CLOSED PARENTHESIS MUST BE CHECKED AND RETURN IS DIRECT
; TO 'FRMEVL' WITH THE TEXT PNTR POINTING BEYOND THE ')'.
; THE POINTER TO THE DESCRIPTOR OF THE STRING ARGUMENT
; IS STORED ON THE STACK UNDERNEATH THE VALUE OF THE
; INTEGER ARGUMENT.
		JSR	CHKOPN	;CHECK FOR AN OPEN PARENTHESE
		JSR	FRMEVL	;EAT OPEN PAREN AND FIRST ARG.
		JSR	CHKCOM	;TWO ARGS SO COMMA MUST DELIMIT.
		JSR	CHKSTR	;MAKE SURE FIRST WAS STRING.
		PLA		;GET NCTION NUMBER.
		TAX
		LDA	FACMO+1
		PHA
		LDA	FACMO
		PHA		;SAVE POINTER AT STRING DESCRIPTOR
		TXA
		PHA		;RESAVE FUNCTION NUMBER.
;THIS MUST BE ON STACK SINCE RECURSIVE.
		JSR	GETBYT	;X=VALUE OF FORMULA.
		PLA		;GET FUNCTION NUMBER.
		TAY
		TXA
		PHA
		JMP	FINGO	;DISPATCH TO FUNCTION.
OKNORM:		JSR	PARCHK	;READ A FORMULA SURROUNDED BY PARENS.
		PLA		;GET DISPATCH FUNCTION.
		TAY
FINGO:		LDA	FUNDSP-ONEFUN-ONEFUN+256,Y	;MODIFY DISPATCH ADR
		STA	JMPER+1
		LDA	FUNDSP-ONEFUN-ONEFUN+257,Y
		STA	JMPER+2
		JSR	JMPER	;DISPATCH!
;STRING FUNCTIONS REMOVE THIS RET ADDR.
		JMP	CHKNUM	;CHECK IT FOR NUMERICNESS AND RETURN.
OROP:		LDA	ARGEXP
		ORA	FACEXP
		BNE	GIVE1
ANDOP:		LDA	ARGEXP
		BEQ	GIVE0
		LDA	FACEXP
		BNE	GIVE1
GIVE0:		LDY	#0
		DC.B	44
GIVE1:		LDY	#1
		JMP	SNGFLT
; TIME TO PERFORM A RELATIONAL OPERATOR.
; DOMASK CONTAINS THE BITS AS TO WHICH RELATIONAL
; OPERATOR IT WAS. CARRY BIT ON=STRING COMPARE.
DOREL:		JSR	CHKVAL	;CHECK FOR MATCH.
		BCS	STRCMP	;IT IS A STRING.
		LDA	ARGSGN	;PACK ARG FOR FCOMP.
		ORA	#127
		AND	ARGHO
		STA	ARGHO
		LDA	#ARGEXP
		LDY	#>ARGEXP
		JSR	FCOMP
		TAX
		JMP	QCOMP
STRCMP:		LDA	#$00
		STA	VALTYP	;RESULT WILL BE NUMERIC.
		DEC	OPMASK	;TURN OFF VALTYP WHICH WAS STRING.
		JSR	FREFAC	;FREE THE FACLO STRING.
		STA	DSCTMP	;SAVE FOR LATER.
		STX	DSCTMP+1
		STY	DSCTMP+1+1
		LDA	ARGMO
		LDY	ARGMO+1	;GET POINTER TO OTHER STRING.
		JSR	FRETMP	;FREES FIRST DESC POINTER.
		STX	ARGMO
		STY	ARGMO+1
		TAX		;COPY COUNT INTO X.
		SEC
		SBC	DSCTMP	;WHICH IS GREATER. IF 0, ALL SET UP.
		BEQ	STASGN	;JUST PUT SIGN OF DIFFEREE AWAY.
		LDA	#1
		BCC	STASGN	;SIGN IS POSITIVE.
		LDX	DSCTMP	;LENGTH OF FAC IS SHORTER.
		LDA	#$100-1	;GET A MINUS 1 FOR NEGATIVES.
STASGN:		STA	FACSGN	;KEEP FOR LATER.
		LDY	#255	;SET POINTER TO FIRST STRING. (ARG.)
		INX		;TO LOOP PROPERLY.
NXTCMP:		INY
		DEX		;ANY CHARACTERS LEFT TO COMPARE?
		BNE	GETCMP	;NOT DONE YET.
		LDX	FACSGN	;USE SIGN OF LENGTH DIFFERENCE
;SINCE ALL CHARACTERS ARE THE SAME.
QCOMP:		BMI	DOCMP	;C IS ALWAYS SET THEN.
		CLC
		BCC	DOCMP	;ALWAYS BRCH.
GETCMP:		LDA	(ARGMO),Y	;GET NEXT CHAR TO COMPARE.
		CMP	(DSCTMP+1),Y	;SAME?
		BEQ	NXTCMP	;YEP. TRY FURTHER.
		LDX	#$100-1	;SET A POSITIVE DIFFERENCE.
		BCS	DOCMP	;PUT STACK BACK TOGETHER.
		LDX	#1	;SET A NEGATIVE DIFFERENCE.
DOCMP:		INX		;-1 TO 1, 0 TO 2, 1 TO 4.
		TXA
		ROL	A
		AND	DOMASK
		BEQ	GOFLOT
		LDA	#1	;MAP 0 TO 0. ALL OTHERS TO 1.
GOFLOT:		JMP	FLOAT	;FLOAT THE ONE-BYTE RESULT INTO FAC.
PDLHNDL:		JSR	CONINT	;GET X= PDL#
		JSR	PREAD
		JMP	SNGFLT
PREAD:		EQU	$FB1E
		EJECT
		TITLE	'DIMENSION AND VARIABLE SEARCHING.'
; THE 'DIM' CODE TS DIMFLG & THEN FALLS INTO THE VARIABLE
; ROUTINE, WHICH LOOKS AT DIMFLG AT THREE DIFFERENT POINTS
; 1) IF AN ENTRY IS FOUND, 'DIMFLG' BEING ON INDICATES
;  A 'DOUBLY' DIMENSIONED VARIABLE.
; 2) WHEN A NEW ENTRY IS BEING BUILT 'DIMFLG' BEING ON
;  INDICTAES THE INDICES SHOULD BE USED FOR THE
;  SIZE OF EACH INDEX. OTHERWISE THE DEFAULT OF TEN
;  IS USED.
; 3) WHEN BUILD ENTRY CODE FINISHES, ONLY IF 'DIMFLG' IS
;  WILL INDEXING BE DONE.
DIM3:		JSR	CHKCOM	;MUST  A COMMA
DIM:		TAX		;SET ACCX NONZERO.
;ACCA MUST BE NONZERO TO WORK RIGHT.
DIM1:		JSR	PTRGT1
DIMCON:		JSR	CHRGOT	;GET LAST CHARACTER.
		BNE	DIM3
		RTS
; ROUTINE TO READ VARIABLE NAME AT CURRENT TEXT POSISION
; AND  PUT A POINTER TO ITS VALUE IN VARPNT. TXTPTR
; POINTS TO THE TERMINATING CHARCTER. NOT THAT EVALUATING
; IN A VARIABLE NAME CAN CAUSE RECURSIVE CALLS TO 'PTRGET'
; THAT POINT ALL VALUES MUST BE STORED ON THE STACK.
PTRGET:		LDX	#0	;MAKE ACCX=0.
		JSR	CHRGOT	;RETRIEVE LAST CHARACTER.
PTRGT1:		STX	DIMFLG	;STORE FLAG AWAY.
PTRGT2:		STA	VARNAM
		JSR	CHRGOT	;GET CURRENT CHARACTER
;MAYBE WITH FUNCTION BIT OFF.
		JSR	ISLETC	;CHECK FOR LETTER.
		BCS	PTRGT3	;MUST HAVE A LETTER.
INTERR:		JMP	SNERR
PTRGT3:		LDX	#0	;ASSUME NO SECOND CHARACTER.
		STX	VALTYP	;DEFAULT IS NUMERIC.
		STX	INTFLG	;ASSUME FLOATING.
		JMP	ARNDME	;FOR CONTROL-B & CONTROL-C
		JMP	INIT
		JMP	READY
		DC.B	$00	;FILL SPACE SAME AS ROM CHIPS
ARNDME:		JSR	CHRGET	;GET FOLLOWING CHARACTER.
		BCC	ISSEC	;CARRY RESET BY CHRGET IF NUMERIC.
		JSR	ISLETC	;SET CARRY IF NOT ALPHABETIC.
		BCC	NOSEC	;ALLOW ALPHABETICS.
ISSEC:		TAX		;IT IS A NUMBER -- SAVE IN ACCX.
EATEM:		JSR	CHRGET	;LOOK AT NEXT CHARACTER.
		BCC	EATEM	;SKIP NUMERICS.
		JSR	ISLETC
		BCS	EATEM	;SKIP ALPHABETICS.
NOSEC:		CMP	#'$'	;IS IT A STRING?
		BNE	NOTSTR	;IF NOT, VALTYP=0.
		LDA	#$100-1	;SET VALTYP=255 (STRING !).
		STA	VALTYP
		BNE	TURNON	;ALWAYS GOES.
NOTSTR:		CMP	#'%'	;INTEGER VARIABLE?
		BNE	STRNAM	;NO.
		LDA	SUBFLG
		BMI	INTERR
		LDA	#128
		STA	INTFLG	;SET FLAG.
		ORA	VARNAM	;TURN ON BOTH HIGH BITS.
		STA	VARNAM
TURNON:		TXA
		ORA	#128	;TURN ON MSB OF SECOND CHARACTER.
		TAX
		JSR	CHRGET	;GET CHARACTER AFTER $.
STRNAM:		STX	VARNAM+1	;STORE AWAY SECOND CHARACTER.
		SEC
		ORA	SUBFLG	;ADD FLAG WHETHER TO ALLOW ARRAYS.
		SBC	#40	;(CHECK FOR '(') WON'T MATCH IF SUBFLG SET. 
		BNE	*+5
GARRAY:		JMP	ISARY	;IT IS!
		BIT	SUBFLG	;IN STORE OR RECALL?
		BMI	*+4	;IN CASE OF USER FUNCTIONS
		BVS	GARRAY
		LDA	#0
		STA	SUBFLG	;ALLOW SUBSCRIPTS AGAIN.
		LDA	VARTAB	;PLACE TO START SEARCH.
		LDX	VARTAB+1
		LDY	#0
STXFND:		STX	LOWTR+1
LOPFND:		STA	LOWTR
		CPX	ARYTAB+1	;AT END OF TABLE YET?
		BNE	LOPFN
		CMP	ARYTAB
		BEQ	NOTFNS	;YES. WE COULDN'T FIND IT.
LOPFN:		LDA	VARNAM
		CMP	(LOWTR),Y	;COMPARE HIGH ORDERS.
		BNE	NOTIT	;NO COMPARISON.
		LDA	VARNAM+1
		INY
		CMP	(LOWTR),Y	;AND THE LOW PART?
		BEQ	FINPTR	;THAT'S IT ! THAT'S IT !
		DEY
NOTIT:		CLC
		LDA	LOWTR
		ADC	#6+1	;MAKES NO DIF AMONG TYPES.
		BCC	LOPFND
		INX
		BNE	STXFND	;ALWAYS BRANCHES.
; TEST FOR A LETTER. / CARRY OFF= NOT A LETTER.
;     CARRY ON= A LETTER.
ISLETC:		CMP	#'A'
		BCC	ISLRTS	;IF LESS THAN 'A', RET.
		SBC	#'Z'+1
		SEC
		SBC	#$100-'Z'-1	;RESET CARRY IF A .GT. 'Z'.
ISLRTS:		RTS		;RETURN TO CALLER.
NOTFNS:		PLA		;CHECK WHO'S CALLING.
		PHA		;RESTORE MT.
		CMP	#ISVRET-1	;IS EVAL CALLING?
		BNE	NOTEVL	;NO, CARRY ON.
		TSX
		LDA	258,X
		CMP	#>ISVRET
		BNE	NOTEVL
LDZR:		LDA	#ZERO
		LDY	#>ZERO	;SET UT PNTR TO SIMULATED ERO.
		RTS		;R STRINGS OR NUMERIC.
ZERO:		DC.B	0	;AND FOR INTEGERS TOO.
		DC.B	0
NOTEVL:		EQU	*
QSTAVR:		EQU	*
VAROK:		LDA	ARYTAB
		LDY	ARYTAB+1
		STA	LOWTR
		STY	LOWTR+1	;LOWEST THING TO MOVE.
		LDA	STREND
		LDY	STREND+1	;GET HIGHEST ADDR TO MOVE.
		STA	HIGHTR
		STY	HIGHTR+1
		CLC
		ADC	#6+1
		BCC	NOTEVE
		INY
NOTEVE:		STA	HIGHDS
		STY	HIGHDS+1	;PLACE TO STUFF IT.
		JSR	BLTU	;MOVE IT ALL.
;NOTE Y,A HAS HIGHDS FOR REASON.
		LDA	HIGHDS
		LDY	HIGHDS+1	;AND SET UP
		INY
		STA	ARYTAB
		STY	ARYTAB+1	;NEW START OF ARRAY TABLE.
		LDY	#0	;GET ADDR OF VARIABLE ENTR.
		LDA	VARNAM
		STA	(LOWTR),Y
		INY
		LDA	VARNAM+1
		STA	(LOWTR),Y	;STORE NAME OF VARIABLE.
		LDA	#0
		INY
		STA	(LOWTR),Y
		INY
		STA	(LOWTR),Y
		INY
		STA	(LOWTR),Y
		INY
		STA	(LOWTR),Y	;FOURTH ERO FOR DEF FUNG.
		INY
		STA	(LOWTR),Y
FINPTR:		LDA	LOWTR
		CLC
		ADC	#2
		LDY	LOWTR+1
		BCC	FINNOW
		INY
FINNOW:		STA	VARPNT
		STY	VARPNT+1	;TLIS IS IT.
		RTS
		EJECT
		TITLE	'MULTIPLE DIMENSION CODE.'
FMAPTR:		LDA	COUNT
		ASL	A
		ADC	#5	;POINT TO ENTRMES. G CLR'D BY ASL.
		ADC	LOWTR
		LDY	LOWTR+1
		BCC	JSRGM
		INY
JSRGM:		STA	ARYPNT
		STY	ARYPNT+1
		RTS
N32768:		DC.B	144,128,0,0	;-32768.
; INTIDX READS A FORMULA FROM THE CURRENT POSITION AND
; TURNS IT INTO A POSITIVE INTEGER
; LEAVING THE RESULIN FACMO&LO. NEGATIVE ARGUMENTS
; ARE NOT ALLOWED.
INTIDX:		JSR	CHRGET
		JSR	FRMNUM	;GET A NUMBER
POSINT:		LDA	FACSGN
		BMI	NONONO	;IF NEGATIVE, BLOW HIM OUT.
AYINT:		LDA	FACEXP
		CMP	#144	;FAC .GT. 32767?
		BCC	QINTGO
		LDA	#N32768
		LDY	#>N32768	;GET ADDR OF -32768.
		JSR	FCOMP	;SEE IF FAC=Y,A.
NONONO:		BNE	FCERR	;NO, FAC IS TOO BIG.
QINTGO:		JMP	QINT	;GO TO QINT AND SHOVE IT.
; FORMAT OF ARRAYS IN CORE.
; DESCRIPTOR:
; LOWBYTE = FIRST CHARACTER.
; HHBYTE = SECOND CHARACTER (200 BIT IS STRING FLAG).
; LENGTH OF ARRAY IN CORE IN BYTES (INCLUDES EVERYTHING).
; NUMBER OF DIMENSIONS.
; FOR EACH DIMENSION STARTING WITH THE FIRST A LIST
; (2 BYTES EACH) OF THE MAX INDICE+1
; THE VALUES
ISARY:		LDA	SUBFLG
		BNE	STRTSRCH	;IF FOR STORE ORRECALL
		LDA	DIMFLG
		ORA	INTFLG
		PHA		;SAVE DIMFLG FOR RECURSION.
		LDA	VALTYP
		PHA		;SAVE VALTYP FOR RECURSION.
		LDY	#0	;SET NUMBER OF DIMENSIONS TO ZERO.
INDLOP:		TYA		;SAVE NUMBER OF DIMS.
		PHA
		LDA	VARNAM+1
		PHA
		LDA	VARNAM
		PHA		;SAVE LOOKS.
		JSR	INTIDX	;EVALUATE INDICE INTO FACMO&LO.
		PLA
		STA	VARNAM
		PLA
		STA	VARNAM+1	;GET BACK ALL... WE'RE HOME.
		PLA		;(# OF DIMS).
		TAY
		TSX
		LDA	258,X
		PHA		;PUSH DIMFLG AND VALTYP FURTHER.
		LDA	257,X
		PHA
		LDA	INDICE	;PUT INDICE ONTO STACK.
		STA	258,X	;UNDER DIMFLG AND VALTYP.
		LDA	INDICE+1
		STA	257,X
		INY		;INCREMENT # OF DIMS.
		JSR	CHRGOT	;GET TERMINATING CHARACTER.
		CMP	#44	;A COMMA?
		BEQ	INDLOP	;YES.
		STY	COUNT	;AVE COUNT OF DIMS.
		JSR	CHKCLS	;MUST BE CLOSED PAREN.
		PLA
		STA	VALTYP	;GET VALTYP AND
		PLA
		STA	INTFLG
		AND	#127
		STA	DIMFLG	;DIMFLG OFF STACK.
STRTSRCH:		LDX	ARYTAB	;PLACE TO START SEARCH.
		LDA	ARYTAB+1
LOPFDA:		STX	LOWTR
		STA	LOWTR+1
		CMP	STREND+1	;END OF ARRAYS?
		BNE	LOPFDV
		CPX	STREND
		BEQ	NOTFDD	;A FINE THING! NO ARRAY!.
LOPFDV:		LDY	#0
		LDA	(LOWTR),Y
		INY
		CMP	VARNAM	;COMPARE HIGH ORDERS.
		BNE	NMARY1	;NO WAY IS IT THIS. GET OUT OF HERE.
		LDA	VARNAM+1
		CMP	(LOWTR),Y	;LOW ORDERS?
		BEQ	GOTARY	;WELL, HERE IT IS !!
NMARY1:		INY
		LDA	(LOWTR),Y	;GET LENGTH.
		CLC
		ADC	LOWTR
		TAX
		INY
		LDA	(LOWTR),Y
		ADC	LOWTR+1
		BCC	LOPFDA	;ALWAYS BRANCHES.
BSERR:		LDX	#ERRBS	;GET BAD SUB ERROR NUMBER.
		DC.B	44
FCERR:		LDX	#ERRFC	;TOO BIG. 'FUNCTION CALL' ERROR.
ERRGO3:		JMP	ERROR
GOTARY:		LDX	#ERRDD	;PERHAPS A 'RE-DIMENSION' ERROR
		LDA	DIMFLG	;TEST THE DIMFLG
		BNE	ERRGO3
		LDA	SUBFLG
		BEQ	*+4	;RETURN TO DATA SAVE ROUTINES.
		SEC
		RTS
		JSR	FMAPTR
		LDA	COUNT	;GET NUMBER OF DIMS INPU
		LDY	#4
		CMP	(LOWTR),Y	;# OF DIMS THE SAME?
		BNE	BSERR	;SAME SO GO GET DEFINITION.
		JMP	GETDEF
; HERE WHEN VARIABLE IS NOT FOUND IN THE ARRAY TABLE.
; BUILDING AN ENTRY.
; PUT DOWN THE DESCRIPTOR.
; SETUP NUMBER OF DIMENSIONS.
; MAKE SURE THERE IS ROOM FOR THE NEW ENTRY.
; REMEMBER 'VARPNT'.
; TALLY=4.
; SKIP 2 LOCS FOR LATER FILL IN OF SIZE.
; LOOP: GET AN INDICE
; PUT DOWN NUMBER+1 AND INCREMENT VARPTR.
; TALLY=TALLY*NUMBER+1.
; DECREMENT NUMBER-DIMS.
; BNE LOOP
; CALL 'REASON' WITH Y,A REFLECTING LAST LOC OF VARIABLE.
; UPDATE STREND.
; ZERO ALL.
; MAKE TALLY INCLUDE MAXDIMS AND DESCRIPTOR.
; PUT DOWN TALLY.
; IF CALLED BY DIMENSION, RETURN.
; OTHERWISE INDEX INTO THE VARIABLE AS IF IT
;  WERE FOUND ON THE INITIAL SEARCH.
NOTFDD:		LDA	SUBFLG	;DON'T FORM ARRAY FOR STORE
		BEQ	*+7
		LDX	#ERROD
		JMP	ERROR
		JSR	FMAPTR	;FORM ARYPNT.
		JSR	REASON
		LDA	#0
		TAY
		STA	CURTOL+1
		LDX	#5
		LDA	VARNAM	;THIS CODE ONLY WORKS FOR INTPRC=1
		STA	(LOWTR),Y	;IF ADDPRC=1.
		BPL	NOTFLT
		DEX
NOTFLT:		INY
		LDA	VARNAM+1
		STA	(LOWTR),Y
		BPL	STOMLT
		DEX
		DEX
STOMLT:		STX	CURTOL
		LDA	COUNT
		INY
		INY
		INY
		STA	(LOWTR),Y	;SAVE NUMBER OF DIMENSIONS.
LOPPTA:		LDX	#11	;DEFAULT SIZE.
		LDA	#0
		BIT	DIMFLG
		BVC	NOTDIM	;NOT IN A DIM STATEMENT.
		PLA		;GET LOW ORDER OF INDICE.
		CLC
		ADC	#1
		TAX
		PLA		;GET HIGH PART OF INDICE.
		ADC	#0
NOTDIM:		INY
		STA	(LOWTR),Y	;STORE HIGH PART OF INDICE.
		INY
		TXA
		STA	(LOWTR),Y	;STORE LOW ORDER OF INDICE.
		JSR	UMULT	;X,A=CURTOL*LOWTR,Y
		STX	CURTOL	;SAVE NEW TALLY.
		STA	CURTOL+1
		LDY	INDEX
		DEC	COUNT	;ANY MORE INDICES LEFT?
		BNE	LOPPTA	;YES.
		ADC	ARYPNT+1
		BCS	OMERR1	;OVERFLOW.
		STA	ARYPNT+1	;COMPUTE WHERE TO ZERO.
		TAY
		TXA
		ADC	ARYPNT
*********
		BCC	GREASE
		INY
		BEQ	OMERR1
GREASE:		JSR	REASON	;GET ROOM.
		STA	STREND
		STY	STREND+1	;NEW END OF STORAGE.
		LDA	#0	;STORING ACCA IS FASTER THAN CLEAR.
		INC	CURTOL+1
		LDY	CURTOL
		BEQ	DECCUR
ZERITA:		DEY
		STA	(ARYPNT),Y
		BNE	ZERITA	;NO. CONTINUE.
DECCUR:		DEC	ARYPNT+1
		DEC	CURTOL+1
		BNE	ZERITA	;DO ANOTHER BLOCK.
		INC	ARYPNT+1	;BUMP BACK UP. WILL USE LATER.
		SEC
		LDA	STREND	;RESTORE ACCA.
		SBC	LOWTR	;DETERMINE LENGTH.
		LDY	#2
		STA	(LOWTR),Y	;LOW.
		LDA	STREND+1
		INY
		SBC	LOWTR+1
		STA	(LOWTR),Y	;HIGH.
		LDA	DIMFLG
		BNE	DIMRTS	;BYE.
		INY
; AT THIS POINT LOWTR,Y POINTS BEYOND THE SIZE TO NUMBER
; DIMENSIONS. STRATEGY:
; NUMDIM=NUMBER OF DIMENSIONS.
; CURTOL.
; INLPNM:GET A NEW INDICE.
; MAKE SURE INDICE IS NOT TOO BIG.
; MULTIPLY CURTOL BY CURMAX.
; ADD INDICE TO CURTOL.
; NUMDIM=NUMDIM-1.
; BNE INLPNM.
; USE CURTOL*4 AS OFFSET.
GETDEF:		LDA	(LOWTR),Y
		STA	COUNT	;SAVE A COUNTER.
		LDA	#0	;ZERO CURTOL.
		STA	CURTOL
INLPNM:		STA	CURTOL+1
		INY
		PLA		;GET LOW INDICE.
		TAX
		STA	INDICE
		PLA		;AND THE HIGH PART
		STA	INDICE+1
		CMP	(LOWTR),Y	;COMPARE WITH MAX INDICE.
		BCC	INLPN2
		BNE	BSERR7	;IF GREATER, 'BADUBSCRIPT' ERROR.
		INY
		TXA
		CMP	(LOWTR),Y
		BCC	INLPN1
BSERR7:		JMP	BSERR
OMERR1:		JMP	OMERR
INLPN2:		INY
INLPN1:		LDA	CURTOL+1	;DON'T MULTIPLY IF CURTOL=0.
		ORA	CURTOL
		CLC		;PREPARE TO GET INDICE BACK.
		BEQ	ADDIND	;GET HIGH PART OF INDICE BACK.
		JSR	UMULT	;MULTIPLY CURTOL BY LOWTR,Y,Y+1.
		TXA
		ADC	INDICE	;ADD IN INDICE.
		TAX
		TYA
		LDY	INDEX1
ADDIND:		ADC	INDICE+1
		STX	CURTOL
		DEC	COUNT	;ANY MORE?
		BNE	INLPNM	;YES.
		STA	CURTOL+1	;SET UP HIGH-ORDER OFFSET
		LDX	#5	;THIS CO ONLY WORKS FOR INTPRC=1
		LDA	VARNAM	;IF ADDPRC=1.
		BPL	NOTFL1
		DEX
NOTFL1:		LDA	VARNAM+1
		BPL	STOML1
		DEX
		DEX
STOML1:		STX	ADDEND
		LDA	#0
		JSR	UMULTD	;ON RTS, A&Y=HI . X=LO.
		TXA
		ADC	ARYPNT
		STA	VARPNT
		TYA
		ADC	ARYPNT+1
		STA	VARPNT+1
		TAY
		LDA	VARPNT
DIMRTS:		RTS		;RETURN TO CALLER.
		EJECT
		TITLE	'INTEGER ARITHMETIC ROUTINES.'
;TWO BYTE UNSIGNED INTEGER MULTIPLY.
;THIS IS FOR MULTIPLY DIMENSIONED ARRAYS.
; X,Y=X,A=CURTOL*LOWTR,Y,Y+1.
UMULT:		STY	INDEX
		LDA	(LOWTR),Y
		STA	ADDEND	;LOW, THEN HIGH.
		DEY
		LDA	(LOWTR),Y	;PUT LOWTR,Y,Y+1 IN FASTER MEMORY.
UMULTD:		STA	ADDEND+1
		LDA	#16
		STA	DECCNT
		LDX	#0	;CLR THE ACCS.
		LDY	#0	;RESULT INITIALLY ZERO.
UMULTC:		TXA
		ASL	A	;MULTIPLY BY TWO.
		TAX
		TYA
		ROL	A
		TAY
		BCS	OMERR1	;TWO MUCH !
		ASL	CURTOL
		ROL	CURTOL+1
		BCC	UMLCNT	;NOTHING IN THIS POSITION TO MULTIPLY.
		CLC
		TXA
		ADC	ADDEND
		TAX
		TYA
		ADC	ADDEND+1
		TAY
		BCS	OMERR1	;MANJUST TOO MUCH !
UMLCNT:		DEC	DECCNT	;DONE?
		BNE	UMULTC	;KEEP IT UP.
UMLRTS:		RTS		;YES, ALL DONE.
		EJECT
		TITLE	'FRE AND INT TO FLOATING ROUTINES.'
FRE:		LDA	VALTYP
		BEQ	NOFREF
		JSR	FREFAC
NOFREF:		JSR	GARBA2
		SEC
		LDA	FRETOP	;WE WANT
		SBC	STREND	;FRETOP-STREND.
		TAY
		LDA	FRETOP+1
		SBC	STREND+1
GIVAYF:		LDX	#0
		STX	VALTYP
		STA	FACHO
		STY	FACHO+1
		LDX	#144	;SET EXPONENT TO 216.
		JMP	FLOATS	;TURN IT TO A FLOATING PNT #.
POS:		LDY	TRMPOS	;GET POSITION.
SNGFLT:		LDA	#0
		SEC
		BEQ	GIVAYF	;FLOAT IT.
		EJECT
		TITLE	'SIMPLE-USER-DEFINED-FUNCTION CODE.'
; NOTE ONLY SINGLE ARGUMENTS ARE ALLOWED TO FUNCTIONS
; AND FUNCTIONS MUST BE OF THE SINGLE LINE FORM:
; DEF FNA(X)=X2+X-2
; NO STRINGS CAN BE INVOLVED WITH THESE FUNCTIONS.
; IDEA: CREATE A SIMPLE VARIABLE ENTRY
; WHOSE FIRST CHARACTER HAS THE 200 BIT SET.
; THE VALUE WILL BE:
; A TEXT PNTR TO THE FORMULA.
; A PNTR TO THE ARGUMENT VARIABLE.
; FUNCTIONAMES CAN BE LIKE 'FNA4'.
; SUBROUTINE TO SEE IF WE ARE IN DIRECT MODE.
; AND COMPLAIN IF SO.
ERRDIR:		LDX	CURLIN+1	;DIR MODE HAS CURLIN=0,255
		INX		;SO NOW, IS RESULT ZERO?
		BNE	DIMRTS	;YES.
		LDX	#ERRID	;INPUT DIRECT ERROR CODE.
		DC.B	44	;SKIP 2 OFFSET.
ERRGUF:		LDX	#ERRUF
ERRGO1:		JMP	ERROR
DEF:		JSR	GETFNM	;GET A PNTR TO THE FUNCTION.
		JSR	ERRDIR
		JSR	CHKOPN	;MUST HAVE '('.
		LDA	#128
		STA	SUBFLG	;PROHIBIT SUBSCRIPTED VARIABLES.
		JSR	PTRGET	;GET PNTR TO ARGUMENT.
		JSR	CHKNUM	;IS IT A NUMBER?
		JSR	CHKCLS	;MUST HAVE ')'
		LDA	#EQULTK
		JSR	SYNCHR	;MUST HAVE '='.
		PHA		;PUT CRAZY BYTE ON.
		LDA	VARPNT+1
		PHA
		LDA	VARPNT
		PHA
		LDA	TXTPTR+1
		PHA
		LDA	TXTPTR
		PHA
		JSR	DATA
		JMP	DEFFIN
; SUBROUTINE TO GET A PNTR TO A FUNCTION NAME.
GETFNM:		LDA	#FNTK
		JSR	SYNCHR	;MUST START WITH FN.
		ORA	#128	;PUT FUNCTION BIT ON.
		STA	SUBFLG
		JSR	PTRGT2	;GET POINTER TO FUNCTION OR CREATE ANEW.
		STA	DEFPNT
		STY	DEFPNT+1
		JMP	CHKNUM	;MAKE SURE IT'S NOA STRING AND RETURN.
FNDOER:		JSR	GETFNM	;GET THE FUNCTION'S NAME.
		LDA	DEFPNT+1
		PHA
		LDA	DEFPNT
		PHA
		JSR	PARCHK	;EVALUATE PARAMETER.
		JSR	CHKNUM
		PLA
		STA	DEFPNT
		PLA
		STA	DEFPNT+1
		LDY	#2
		LDA	(DEFPNT),Y	;GET POINTER TO VARIABLE.
		STA	VARPNT	;SAVE VARIABLE POINTER.
		TAX
		INY
		LDA	(DEFPNT),Y
		BEQ	ERRGUF	;FUNCTION UNDEFINED?
		STA	VARPNT+1
		INY		;SINCE DEF USES ONLY 4.
DEFSTF:		LDA	(VARPNT),Y
		PHA		;PUSH IT ALL ON STACK.
		DEY		;SINCE WE ARE RECURSING MAYBE.
		BPL	DEFSTF
		LDY	VARPNT+1
		JSR	MOVMF	;PUT CURRENT FAC INTO OUR ARG VARIABLE.
		LDA	TXTPTR+1
		PHA
		LDA	TXTPTR
		PHA		;SAVE TEXT POINTER.
		LDA	(DEFPNT),Y	;PNTR TO FUNCTION.
		STA	TXTPTR
		INY
		LDA	(DEFPNT),Y
		STA	TXTPTR+1
		LDA	VARPNT+1
		PHA
		LDA	VARPNT
		PHA		;SAVE VARIABLE POINTER.
		JSR	FRMNUM	;EVALUATE FORMULA AND CHECK NUMERIC.
		PLA
		STA	DEFPNT
		PLA
		STA	DEFPNT+1
		JSR	CHRGOT
		BEQ	*+5
		JMP	SNERR	;IT DIDN'T TERMINE. HUH?
		PLA
		STA	TXTPTR
		PLA
		STA	TXTPTR+1	;RESTORE TEXT PNTR.
DEFFIN:		LDY	#0
		PLA		;GET OLD ARG VALUE OFF STACK
		STA	(DEFPNT),Y	;AND PUT IT BACK IN VARIABLE.
		PLA
		INY
		STA	(DEFPNT),Y
		PLA
		INY
		STA	(DEFPNT),Y
		PLA
		INY
		STA	(DEFPNT),Y
		PLA
		INY
		STA	(DEFPNT),Y
DEFRTS:		RTS
		EJECT
		TITLE	'STRING FUNCTIONS.'
; THE STR$ FUNCTION TAKES A NUMBER AND GIVES A STRING
; WITH THE CHARACTERS THE OUTPUT OF THE NUMBER
; WOULD HAVE GIVEN.
STRS:		JSR	CHKNUM	;ARG HAS TO BE NUMERIC.
		LDY	#0
		JSR	FOUTC	;DO ITS OUTPUT.
		PLA
		PLA
TIMSTR:		LDA	#LOFBUF
		LDY	#>LOFBUF
		BEQ	STRLIT	;SCAN IT AND TURN IT INTO A STRING.
; 'STRINI' GET STRING SPACE FOR CREATION OF A STRING AND
; CREATES A DESCRIPTOR FOR IT IN 'DSCTMP'.
STRINI:		LDX	FACMO
		LDY	FACMO+1	;GET FACMO TO STORE IN DSCPNT.
		STX	DSCPNT
		STY	DSCPNT+1	;RETAIN THE DESCRIPTOR POINTER.
STRSPA:		JSR	GETSPA	;GET STRING SPACE.
		STX	DSCTMP+1
		STY	DSCTMP+1+1	;SE LOCATION.
		STA	DSCTMP	;SAVE LENGTH.
		RTS		;ALL DONE.
; 'STRLT2' TAKES THE STRING LITERAL WHOSE FIRST CHARACTER
; IS POINTED TO BY Y,A AND BUILDS A DESCRIPTOR FOR IT.
; DESCRIPTOR IS INITIALLY BUILT IN 'DSCTMP', BUT 'PUTNEW'
; TRANSFERS IT INTO A TEMPORARY AND LEAVES A POINTER
; AT THE TEMPORARY IN FACMO&LO. THE CHARACTERS OTHER THAN
; ZERO THAT TERMINATE STRING SHOULD BE SET UP IN 'CHARAC'
; AND 'ENDCHR'. IF TERMINATOR IS QUOTE, THE QUOTE IS SAVED
; OVER. LEING QUOTES SHOULD BE SKIPPED BEFORE JSR.
; ON RETURN THE CHARACTER AFTER THE STRING LITERAL IS
; POINTED TO BY STRNG2.
STRLIT:		LDX	#34	;ASSUME STRING ENDS ON QUOTE.
		STX	CHARAC
		STX	ENDCHR
STRLT2:		STA	STRNG1
		STY	STRNG1+1	;SAVE POINTER TO STRING.
		STA	DSCTMP+1
		STY	DSCTMP+1+1	;IN CASE NO STRCPY.
		LDY	#255	;INITIALIZE CHARACTER COUNT.
STRGET:		INY
		LDA	(STRNG1),Y	;GET CHARACTER.
		BEQ	STRFI1	;IF ZERO.
		CMP	CHARAC	;THIS TERMINATOR?
		BEQ	STRFIN	;YES.
		CMP	ENDCHR
		BNE	STRGET	;LOOK FURTHER.
STRFIN:		CMP	#34	;QUOTE?
		BEQ	STRFI2
STRFI1:		CLC		;NO, BACK UP.
STRFI2:		STY	DSCTMP	;RETAIN COUNT.
		TYA
		ADC	STRNG1	;WISHING TO SET TXTPTR.
		STA	STRNG2
		LDX	STRNG1+1
		BCC	STRST2
		INX
STRST2:		STX	STRNG2+1
		LDA	STRNG1+1	;IF PAGE 0, COPY SINCE IT IS EITHER
;A STRING CONSTANT IN BUF OR A STR$
;RESULT IN LOFBUF
		BEQ	STRCP
		CMP	#2
		BNE	PUTNEW
STRCP:		TYA
		JSR	STRINI
		LDX	STRNG1
		LDY	STRNG1+1
		JSR	MOVSTR	;MOVE STRING. ;
; SOME STRING FUNCTION IS RETURNING A RESULT IN DSCTMP.
; SETUP A TEMP DESCRIPTOR WITH DSCTMP IN IT.
; PUT A POINTER TO THE DESCRIPTOR IN FACMO&LO AND FLAG THE
; RESULT AS TYPE STRING.
PUTNEW:		LDX	TEMPPT	;POINTER TO FIRST FREE TEMP.
		CPX	#STRSIZ*NUMTMP+TEMPST
		BNE	PUTNW1
		LDX	#ERRST	;STRING TEMPORARY ERROR.
ERRGO2:		JMP	ERROR	;GO TELL HIM.
PUTNW1:		LDA	DSCTMP
		STA	0,X
		LDA	DSCTMP+1
		STA	1,X
		LDA	DSCTMP+2
		STA	2,X
		LDY	#0
		STX	FACMO
		STY	FACMO+1
		DEY
		STY	VALTYP	;TYPE IS 'STRING'.
		STX	LASTPT	;SET POINTER TO LAST-USED TEMP.
		INX
		INX
		INX		;POINT FURTHER.
		STX	TEMPPT	;SAVE POINTER TO NEXT TEMP IF ANY.
		RTS		;ALL DONE.
; GETSPA - GET SPACE FOR CHARACTER STRING.
; MAY FORCE GARBAGE COLLECTION.
; # OF CHARACTERS (BYTES) IN ACCA.
; RETURNS WITH POINTER IN Y,X. OTHERWISE (IF CAN'T GET
; SPACE) BLOWS OFF TO 'OUT OF STRING SPACE' TYPE ERROR.
; ALSO PRESERVES ACCA AND SETS FRESPC=Y,X=PNTR AT SPACE.
GETSPA:		LSR	GARBFL	;SIGNAL NO GARBAGE COLLECTION YET.
TRYAG2:		PHA		;SAVE FOR LATER.
		EOR	#255
		SEC		;ADD ONE TO COMPLETE NEGATION
		ADC	FRETOP
		LDY	FRETOP+1
		BCS	TRYAG3
		DEY
TRYAG3:		CPY	STREND+1	;COMPARE HIGH ORDERS.
		BCC	GARBAG	;MAKE ROOM FOR MORE.
		BNE	STRFRE	;SAVE NEW FRETOP.
		CMP	STREND	;COMPARE LOW ORDERS.
		BCC	GARBAG	;CLEAN UP.
STRFRE:		STA	FRETOP
		STY	FRETOP+1	;SAVE NEW FRETOP.
		STA	FRESPC
		STY	FRESPC+1	;PUT IT THERE OLD MAN.
		TAX		;PRESERVE A IN X.
		PLA		;GET COUNT BACK IN ACCA.
		RTS		;ALL DONE.
GARBAG:		LDX	#ERROM	;'OUT OF STRING SPACE'
		LDA	GARBFL
		BMI	ERRGO2
		JSR	GARBA2
		LDA	#128
		STA	GARBFL
		PLA		;GET BACK STRING LENGTH.
		BNE	TRYAG2	;ALWAYS BRANCHES.
GARBA2:		EQU	*	;START FROM TOP DOWN.
		LDX	MEMSIZ
		LDA	MEMSIZ+1
FNDVAR:		STX	FRETOP	;LIKE SO.
		STA	FRETOP+1
		LDY	#0
		STY	GRBPNT+1
		LDA	STREND
		LDX	STREND+1
		STA	GRBTOP
		STX	GRBTOP+1
		LDA	#TEMPST
		LDX	#>TEMPST
		STA	INDEX1
		STX	INDEX1+1
TVAR:		CMP	TEMPPT	;DONE WITH TEMPS?
		BEQ	SVARS	;YEP.
		JSR	DVAR
		BEQ	TVAR	;LOOP.
SVARS:		LDA	#6+1
		STA	FOUR6
		LDA	VARTAB
		LDX	VARTAB+1	;GET START OF SIMPLE VARIABLES.
		STA	INDEX1
		STX	INDEX1+1
SVAR:		CPX	ARYTAB+1	;DONE WITH SIMPLE VARIABLES?
		BNE	SVARGO	;NO.
		CMP	ARYTAB
		BEQ	ARYVAR	;YEP.
SVARGO:		JSR	DVARS	;DO IT , AGAIN.
		BEQ	SVAR	;LOOP.
ARYVAR:		STA	ARYPNT
		STX	ARYPNT+1	;SAVE FOR ADDITION.
		LDA	#STRSIZ
		STA	FOUR6
ARYVA2:		LDA	ARYPNT
		LDX	ARYPNT+1	;G THE POINTER TO VARIABLE.
ARYVA3:		CPX	STREND+1	;DONE WITH ARRAYS?
		BNE	ARYVGO	;NO.
		CMP	STREND
		BNE	*+5
		JMP	GRBPAS	;YES, GO FINISH UP.
ARYVGO:		STA	INDEX1
		STX	INDEX1+1
		LDY	#1-1
		LDA	(INDEX1),Y
		TAX
		INY
		LDA	(INDEX1),Y
		PHP
		INY
		LDA	(INDEX1),Y
		ADC	ARYPNT
		STA	ARYPNT	;FORM POINTER TO NEXT ARRAY VAR.
		INY
		LDA	(INDEX1),Y
		ADC	ARYPNT+1
		STA	ARYPNT+1
		PLP
		BPL	ARYVA2
		TXA
		BMI	ARYVA2
		INY
		LDA	(INDEX1),Y
		LDY	#0	;RESET INDEX Y.
		ASL	A
		ADC	#5	;CARRY IS OFF AND OFF AFTER ADD.
		ADC	INDEX1
		STA	INDEX1
		BCC	ARYGET
		INC	INDEX1+1
ARYGET:		LDX	INDEX1+1
ARYSTR:		CPX	ARYPNT+1	;END OF THE ARRAY?
		BNE	GOGO
		CMP	ARYPNT
		BEQ	ARYVA3	;YES.
GOGO:		JSR	DVAR
		BEQ	ARYSTR	;CYCLE.
DVARS:		EQU	*
		LDA	(INDEX1),Y
		BMI	DVARTS
		INY
		LDA	(INDEX1),Y
		BPL	DVARTS
		INY
DVAR:		LDA	(INDEX1),Y	;IS LENGTH=0?
		BEQ	DVARTS	;YES, RETURN.
		INY
		LDA	(INDEX1),Y	;GET LOW(ADR).
		TAX
		INY
		LDA	(INDEX1),Y
		CMP	FRETOP+1	;COMPARE HIGHS.
		BCC	DVAR2	;IF THIS STRING'S PNTR .GE. FRETOP
		BNE	DVARTS	;NO NEED TO MESS WITH IT FURTHER.
		CPX	FRETOP	;COMPARE LOWS.
		BCS	DVARTS
DVAR2:		CMP	GRBTOP+1
		BCC	DVARTS	;IF THIS STRING IS BELOW PREVIOUS,
;FORGET IT.
		BNE	DVAR3
		CPX	GRBTOP	;COMPARE LOW ORDERS.
		BCC	DVARTS	;X,A .LE. GRBTOP.
DVAR3:		STX	GRBTOP
		STA	GRBTOP+1
		LDA	INDEX1
		LDX	INDEX1+1
		STA	GRBPNT
		STX	GRBPNT+1
		LDA	FOUR6
		STA	SIZE
DVARTS:		LDA	FOUR6
		CLC
		ADC	INDEX1
		STA	INDEX1
		BCC	GRBRTS
		INC	INDEX1+1
GRBRTS:		LDX	INDEX1+1
		LDY	#0
		RTS		;DONE.
; HERE WHEN MADE ONE COMPLETE PASS THRU STRING VARIABLES.
GRBPAS:		LDX	GRBPNT+1	;VARIABLE POINTER.
		BEQ	GRBRTS	;ALL DONE.
		LDA	SIZE
		AND	#4	;LEAVES C OFF.
		LSR	A
		TAY
		STA	SIZE
		LDA	(GRBPNT),Y
;NOTE: GRBTOP=LOWTR SO NO NEED TO SET LOWTR.
		ADC	LOWTR
		STA	HIGHTR
		LDA	LOWTR+1
		ADC	#0
		STA	HIGHTR+1
		LDA	FRETOP
		LDX	FRETOP+1
		STA	HIGHDS
		STX	HIGHDS+1	;WHERE IT ALL GOES.  JSR BLTUC
		JSR	BLTUC
		LDY	SIZE
		INY
		LDA	HIGHDS	;GET POSITION OF START OF RESULT.
		STA	(GRBPNT),Y
		TAX
		INC	HIGHDS+1
		LDA	HIGHDS+1
		INY
		STA	(GRBPNT),Y	;CHANGE ADDR OF STRING IN VAR.
		JMP	FNDVAR	;GO TO FNDVAR WITH SOMETHING FOR
;FRETOP.
; THE FOLLOWING ROUTINE CONCATENATES TWO STRINGS.
; THE FAC CONTAINS THE FIRST ONE AT THIS POINT.
; TXTPTR POINTS TO THE + SIGN.
CAT:		LDA	FACLO	;PSH HIGH ORDER ONTO STACK.
		PHA
		LDA	FACMO	;AND THE LOW.
		PHA
		JSR	EVAL	;CAN COME BACK HERE SINCE
;OPERATOR IS KNOWN.
		JSR	CHKSTR	;RESULT MUST BE STRING.
		PLA
		STA	STRNG1	;GET HIGH ORDER OF OLD DESC.
		PLA
		STA	STRNG1+1
		LDY	#0
		LDA	(STRNG1),Y	;GET LENGTH OF OLD STRING.
		CLC
		ADC	(FACMO),Y
		BCC	SIZEOK	;RESULT IS LESS THAN 256.
		LDX	#ERRLS	;ERROR 'LONG STRING'.
		JMP	ERROR
SIZEOK:		JSR	STRINI	;INITIALIZE STRING.
		JSR	MOVINS	;MOVE IT.
		LDA	DSCPNT
		LDY	DSCPNT+1	;GET POINTER TO SECOND.
		JSR	FRETMP	;FREE IT.
		JSR	MOVDO
		LDA	STRNG1
		LDY	STRNG1+1
		JSR	FRETMP
		JSR	PUTNEW
		JMP	TSTOP	;'CAT' REENTERS FORM EVAL AT TSTOP.
MOVINS:		LDY	#0	;GET ADDR OF STRING.
		LDA	(STRNG1),Y
		PHA
		INY
		LDA	(STRNG1),Y
		TAX
		INY
		LDA	(STRNG1),Y
		TAY
		PLA
MOVSTR:		STX	INDEX
		STY	INDEX+1
MOVDO:		TAY
		BEQ	MVDONE
		PHA
MOVLP:		DEY
		LDA	(INDEX),Y
		STA	(FRESPC),Y
QMOVE:		TYA
		BNE	MOVLP
		PLA
MVDONE:		CLC
		ADC	FRESPC
		STA	FRESPC
		BCC	MVSTRT
		INC	FRESPC+1
MVSTRT:		RTS
; 'FRETMP' IS PASS A STRING DESCRIPTOR PNTR IN Y,A.
; A CHECK IS MADE TO SEE IF STRING DESCRIPTOR POINTS TO
; TEMPORARY DESCRIPTOR ALLOCATED BY PUTNEW.
; IF SO, THE TEMPORARY IS FREED UP BY UPDATING TEMPPT
; IF A TEMP IS FREED UP, A FURTHER CHECK SEES IF STRING
; THAT STRING TEMP PNT'D TO IS THE LOWEST PART OF STRING
; IF SO, FRETOP IS UPDATED TO REFLECT THE FACT THAT
; IS NO LONGER IN USE.
; THE ADDR OF THE ACTUAL STRING IS RETURNED  Y,X AND
; ITS LENGTH IN ACCA.
FRESTR:		JSR	CHKSTR	;MAKE SURE ITS A STRING.
FREFAC:		LDA	FACMO
		LDY	FACMO+1	;FREE UP STR PNT'D TO BY FAC.
FRETMP:		STA	INDEX
		STY	INDEX+1	;GET LENGTH FOR LATER.
		JSR	FRETMS	;FREE UP THE TEMPORARY DESC.
		PHP		;SAVE CODES.
		LDY	#0	;PREP TO GET STUFF.
		LDA	(INDEX),Y	;GET COUNT AND
		PHA		;SAVE IT.
		INY
		LDA	(INDEX),Y
		TAX		;SAVE LOW ORDER.
		INY
		LDA	(INDEX),Y
		TAY		;SAVE HIGH ORDER.
		PLA
		PLP		;RETURN STATUS.
		BNE	FRETRT
		CPY	FRETOP+1	;STRING IS LAST ONE IN?
		BNE	FRETRT
		CPX	FRETOP
		BNE	FRETRT
		PHA
		CLC
		ADC	FRETOP
		STA	FRETOP
		BCC	FREPLA
		INC	FRETOP+1
FREPLA:		PLA		;GET COUNT BACK.
FRETRT:		STX	INDEX
		STY	INDEX+1	;SAVE FOR LATER USE.
		RTS
FRETMS:		CPY	LASTPT+1	;LAST ENTRY TO TEMP? 
		BNE	FRERTS
		CMP	LASTPT
		BNE	FRERTS
		STA	TEMPPT
		SBC	#STRSIZ	;POINT TO LAST ONE.
		STA	LASTPT	;UPDATE TEMP PNTR.
		LDY	#0	;ALSO CLEARS ZFLG SO WE DO REST OF FRETMP.
FRERTS:		RTS		;ALL DONE.
; CHR$(#) CREATES A STRING WHICH CONTAINS AS ITS ONLY
; CHARACTER THE ASCII EQUIVALENT OF INTEGER ARGUMENT (#)
; WHICH MUST BE .LT. 255.
CHRS:		JSR	CONINT	;GET INTEGER IN RANGE.
		TXA
		PHA
		LDA	#1	;ONE-CHARACTER STRING.
		JSR	STRSPA	;GET SPACE FOR STRING.
		PLA
		LDY	#0
		STA	(DSCTMP+1),Y
		PLA		;GET RID OF 'CHKNUM' RETURN ADDR.
		PLA
RL$RET:		JMP	PUTNEW	;SETUP FAC TO POINT TO DESC.
; THE FOLLOWING IS THE LEFT$($,#) FUNCTION.
; IT TAKES THE LEMOST # CHARACTERS OF THE STRING.
; IF # .GT. THE LEN OF STRING, IT RETURNS THE WHOLE STRING
LEFTS:		JSR	PREAM	;TEST PARAMETERS.
		CMP	(DSCPNT),Y
		TYA
RLEFT:		BCC	RLEFT1
		LDA	(DSCPNT),Y
		TAX		;PUT LENGTH INTO X.
		TYA		;ZERO A THE OFFSET.
RLEFT1:		PHA		;SAVE OFFSET.
RLEFT2:		TXA
RLEFT3:		PHA		;SAVE LENGTH.
		JSR	STRSPA	;GET SPACE.
		LDA	DSCPNT
		LDY	DSCPNT+1
		JSR	FRETMP
		PLA
		TAY
		PLA
		CLC
		ADC	INDEX	;COMPUTE WHERE TO COPY.
		STA	INDEX
		BCC	PULMOR
		INC	INDEX+1
PULMOR:		TYA
		JSR	MOVDO	;GO MOVE IT.
		JMP	PUTNEW
RIGHTS:		JSR	PREAM
		CLC		;LENGTH DES'D-LENGTH-1.
		SBC	(DSCPNT),Y
		EOR	#255	;NEGATE.
		JMP	RLEFT
; MID ($,#) RETURNS STRING WITH CHARS FROM # POSITION
; ONWARD. IF # .GT. LEN ($) THEN RETURN NULL STRING.
; MID ($,#,#) RETURNS STRING WITH CHARACTERS FROM
; # POSITION FOR #2 CHARS. IF #2 GOES PAST END OF STRING
; RETURN AS MUCH AS POSSIBLE.
MIDS:		LDA	#255	;DEFAULT.
		STA	FACLO	;SAVE FOR LAT COMPARE.
		JSR	CHRGOT	;GET CURRENT CHARACTER.
		CMP	#41	;IS IT A RIGHT PAREN )?
		BEQ	MID2	;NO THIRD PARAM.
		JSR	CHKCOM	;MUST HAVE COMMA.
		JSR	GETBYT	;GET THE LENGTH INTO 'FACLO'.
MID2:		JSR	PREAM	;CHECK IT OUT.
		DEX		;COMPUTE OFFSET.
		TXA
		PHA		;PRSERVE AWHILE.
		CLC
		LDX	#0
		SBC	(DSCPNT),Y	;GET LENGTH OF WHAT'S LEFT.
		BCS	RLEFT2	;GIVE NULL STRING.
		EOR	#255	;IN SUB C WAS 0 SO JUST COMPLEMENT.
		CMP	FACLO	;GREATER THAN WHAT'S DESIRED?
		BCC	RLEFT3	;NO,OPY THAT MUCH.
		LDA	FACLO	;GET LENGTH OF WHAT'S DESIRED.
		BCS	RLEFT3	;COPY IT.
; USED BY RIGHT$, LEFT$, MID$ FOR PARAMETER CHECKING & SET
PREAM:		JSR	CHKCLS	;PARAM LIST SHOULD END.
		PLA		;GET THE RETURN ADDRESS INTO
		TAY		;JMPER+1,Y
		PLA
		STA	JMPER+1
		PLA		;GET RID OF FINGO'S JSR RET ADDR.
		PLA
		PLA		;GET LENGTH.
		TAX
		PLA
		STA	DSCPNT
		PLA
		STA	DSCPNT+1
		LDA	JMPER+1	;PUT RETURN ADDRESS BACK ON
		PHA
		TYA
		PHA
		LDY	#0
		TXA
		BEQ	GOFUC
		RTS
; THE FUNCTION LEN($) RETURNS THE LENGTH OF THE STRING
; PASSED AS AN ARGUMENT.
LEN:		JSR	LEN1
		JMP	SNGFLT
LEN1:		JSR	FRESTR	;FREE UP STRING.
		LDX	#0
		STX	VALTYP	;FORCE NUMERIC.
		TAY		;SET CODES ON LENGTH.
		RTS		;DONE.
; THE FOLLOWING IS THE ASC($) FUNCTION. IT RETURNS
; AN INTEGER WHICH IS THE DECIMAL ASCII EQUIVALENT.
ASC:		JSR	LEN1
		BEQ	GOFUC	;NULL STRING, BAD ARG.
		LDY	#0
		LDA	(INDEX1),Y	;GET CHARACTER.
		TAY
		JMP	SNGFLT
GOFUC:		JMP	FCERR	;YES.
GTBYTC:		JSR	CHRGET
GETBYT:		JSR	FRMNUM	;READ FORMULA INTO FAC.
CONINT:		JSR	POSINT	;CONVERT THE FAC TO A SINGLE BYTE INT
		LDX	FACMO
		BNE	GOFUC	;RESULT MUST BE .LE. 255.
		LDX	FACLO
CHRGO2:		JMP	CHRGOT	;SET CONDITION CODES ON TERMINATOR.
; THE 'VAL' FUNCTION TAKES A STRING AND TURNS IT INTO
; A NUMBER BY INTERPRETING THE ASCII DIGITS ETC.
; EXCEPT FOR THE PROBLEM THAT TERMINATOR MUST BE SUPPLIED
; BY REPLACING THE CHARACTER BEYOND STRING, VAL IS MELY
; A CALL TO FLOATING POINT INPUT ('FIN').
VAL:		JSR	LEN1	;DO SETUP. SET RESULT=NUMERIC.
		BNE	*+5
		JMP	ZEROFC	;ZERO THE FAC ON A NULL STRING
		LDX	TXTPTR
		LDY	TXTPTR+1
		STX	STRNG2
		STY	STRNG2+1	;SAVE FOR LATER.
		LDX	INDEX1
		STX	TXTPTR
		CLC
		ADC	INDEX1
		STA	INDEX2
		LDX	INDEX1+1
		STX	TXTPTR+1
		BCC	VAL2	;NO CARRY, NO INC.
		INX
VAL2:		STX	INDEX2+1
		LDY	#0
		LDA	(INDEX2),Y	;PRESERVE CHARACTER.
		PHA
		LDA	#0	;SET A TERMINATOR.
		STA	(INDEX2),Y
		JSR	CHRGOT	;GET CHARACTER PNT'D TO AND SET FLAGS.
		JSR	FIN
		PLA		;GET PRES'D CHARACTER.
		LDY	#0
		STA	(INDEX2),Y	;STUFF IT BACK.
ST2TXT:		LDX	STRNG2
		LDY	STRNG2+1
		STX	TXTPTR
		STY	TXTPTR+1
VALRTS:		RTS		;ALL DONE WITH STRINGS.
		EJECT
		TITLE	'PEEK, POKE, AND FNWAIT.'
GETNUM:		JSR	FRMNUM	;GET ADDRESS.
		JSR	GETADR	;GET THAT LOCATION.
COMBYT:		JSR	CHKCOM	;CHECK FOR A COMMA.
		JMP	GETBYT	;GET SOMETHING TO STORE AND RETURN.
GETADR:		LDA	FACEXP	;EXAMINE EXPONENT.
		CMP	#145
		BCS	GOFUC	;FUNCTION CALL ERROR.
		JSR	QINT	;INTEGERIZE IT.
		LDA	FACMO
		LDY	FACMO+1
		STY	POKER
		STA	POKER+1
		RTS		;IT'S DONE !.
PEEK:		LDA	POKER	;CHEAP ASS FIX.
		PHA
		LDA	POKER+1
		PHA
		JSR	GETADR
		LDY	#0
GETCON:		LDA	(POKER),Y	;GET THAT BYTE.
		TAY
		PLA
		STA	POKER+1
		PLA
		STA	POKER	;FOR POKE X,PEEK(KKK)
DOSGFL:		JMP	SNGFLT	;FLOAT IT.
POKE:		JSR	GETNUM
		TXA
		LDY	#0
		STA	(POKER),Y	;STORE VALUE AWAY.
		RTS		;SCANNED  EVERYTHING.
; THE WAIT LOCATION,MASK1,MASK2 STEMENT WAITS UNTIL CONT
; OF LOCATION IS NONZERO WHEN XORED WITH MASK2
; AND THEN ANDED WITH MASK1. IF MASK2 IS NOT PRESENT, IT
; IS ASSUMED TO BE ZERO.
FNWAIT:		JSR	GETNUM
		STX	ANDMSK
		LDX	#0
		JSR	CHRGOT
		BEQ	STORDO
		JSR	COMBYT	;GET MASK2.
STORDO:		STX	EORMSK
		LDY	#0
WAITER:		LDA	(POKER),Y
		EOR	EORMSK
		AND	ANDMSK
		BEQ	WAITER
ZERRTS:		RTS		;GOT A NONZERO.
		EJECT
		TITLE	'FLOATING POINT MATH CONFIG'
;THROUGHOUT THE MATH PACKAGE.
; THE FLTING POINT FORMAT IS AS FOLLOWS:
; THE SIGN IS THE FIRST BIT OF THE MANTISSA.
; THE MANTISSA IS 24 BITS LONG.
; THE BINARY POINT IS TO THE LEFT OF THE MSB.
; NUMBER = MANTISSA * 2  EXPONENT.
; THE MANTISSA IS POSITIVE WITH A 1 ASSUMED TO BE WHERE
; THE SIGN OF THE EXPONENT IS THE 1ST BIT OF THE EXPONENT.
; THE EXPONENT IS STORED IN EXCESS 200, IE, WITH A BIAS OF
; SO, THE EXPONENT IS A SIGNED 8-BIT NUMBER WITH 200 ADDED
; AN EXPONENT OF ZERO MEANSHE NUMBER IS ZERO.
; THE OTHER BYTES MAY NOT BE ASSUMED TO BE ZERO.
; TO KEEP THE SAME NUMBER IN THE FAC WHILE SHIFTING,
;  TO SHIFT RIGHT, EXP:=EXP+1
;  TO SHIFT LEFT,  EXP:=EXP-1
; IN MEMORY THE NUMBER LOOKS LIKE THIS:
;  THE EXPONENT AS A SIGNED NUMBER +200
;  THE SIGN BIT IN 7, BITS 2-8 OF MANTISSA IN BITS 6-0.
;   (REMEMBER BIT 1 OF MANTISSA IS ALWAYS A ONE.)
;  BITS 9-16 OF THE MANTISSA
;  BITS 17-24 OF THE MANTISSA
; ARITHMETIC ROUTINE CALLING CONVENTION
; FOR ONE ARGUMENT FUNCTIONS:
;  THE ARGUMENT IS IN THE FAC.
;  THE RESULT IS LEFT IN THE FAC.
; FOR TWO ARGUMENT OPERATIONS:
;  THE 1ST ARGUMENT IS IN ARG (ARGEXP,HO,MO,LO AND ARGSGN)
;  THE SECOND ARGUMENT IS IN THE FAC.
;  THE RESULT IS LEFT IN THE FAC.
; THE 'T' ENTRY POINTS TO THE 2-ARGUMENT OPERATIONS HAVE B
; SETUP IN RESPECTIVE REGISTERS. BEFORE CALLING ARG MAY
; POPPED OFF THE STACK AND INTO ARG, FOR EXAMPLE.
; THE OTHER ENTRY POINTSSUMES Y,A POINTS TO THE ARGUMENT
; SOMEWHERE IN MEMORY. IT IS UNPACKED INTO ARG BY 'CONUPK'
; ON THE STACK, THE SGN IS PUSHED ON FIRST, THE LO,MO,HO &
; NOTE ALL THINGS ARE KEPT UNPACKED IN ARG, FAC & ON THE S
; IT IS ONLY WHEN SOMETHING IS STORED THAT IT IS PACKED
; BYTES. UNPACKED FORMAT HAS A SGN BYTE REFLECTING THE S
; NUMBER (POSITIVE=0, NEGATIVE=-1) A HO,MO & LO WITH THE H
; OF THE HO TURNED ON. THE EXP IS THE SAMES STORED FORMAT.
; THIS IS DONE FOR SPEED OF OPERATION.
; %
		EJECT
		TITLE	'FLOATING POINT ADD AND SUB'
FADDH:		LDA	#FHALF
		LDY	#>FHALF	;ENTRY TO ADD 1/2.
		JMP	FADD	;UNPACK AND GO ADD UIT.
FSUB:		JSR	CONUPK	;UNPACK ARGUMENT INTO ARG.
FSUBT:		LDA	FACSGN
		EOR	#$FF	;COMPLEMENT IT.
		STA	FACSGN
		EOR	ARGSGN	;COMPLEMENT ARISGN.
		STA	ARISGN
		LDA	FACEXP	;SET CODES ON FACEXP.
		JMP	FADDT	;Y=ARGEXP..
FADD5:		JSR	SHIFTR	;DO A LONG SHIF
		BCC	FADD4	;CONTINUE WITH ADDITION.
FADD:		JSR	CONUPK
FADDT:		BNE	*+5
		JMP	MOVFA	;IF FAC=0, RESULT IS IN ARG.
		LDX	FACOV
		STX	OLDOV
		LDX	#ARGEXP	;DEFAULT IS SHIFT ARGUMENT.
		LDA	ARGEXP	;IF ARG=0, FAC IS RESULT.
FADDC:		TAY		;ALSO COPY ACCA INTO ACCY.
		BEQ	ZERRTS	;RETURN.
		SEC
		SBC	FACEXP
		BEQ	FADD4	;NO SHIFTING.
		BCC	FADDA	;BR IF ARGEXP.LT.FACEXP.
		STY	FACEXP	;RESULTING EXPONENT.
		LDY	ARGSGN	;SINCE ARG IS BIGGER, IT'S
		STY	FACSGN	;SIGN IS SIGN OF RESU.
		EOR	#$FF	;SHIFT A NEGATIVE NUMBER OF PLACES.
		ADC	#0	;COMPLETE NEGATION. W/ C=1.
		LDY	#0	;ZERO OLDOV.
		STY	OLDOV
		LDX	#FAC	;SHIFT THE FAC INSTEAD.
		BNE	FADD1
FADDA:		LDY	#0
		STY	FACOV
FADD1:		CMP	#$100-7	;FOR SPEED AND NECESSITY.  GETS
;MOST LIKELY CASE TO SHIFTR FASTEST
;AND ALLOWS SHIFTING OF NEG NUMS
;BY 'QINT'.
		BMI	FADD5	;SHIFT BIG.
		TAY
		LDA	FACOV	;SET FACOV.
		LSR	1,X	;GETS 0 IN MOST SIG BIT.
		JSR	ROLSHF	;DO THE ROLLING.
FADD4:		BIT	ARISGN	;GET SULTING SIGN.
		BPL	FADD2	;IF POSITIVE, ADD.
;CARRY IS CLEAR.
FADD3:		LDY	#FACEXP
		CPX	#ARGEXP	;FAC IS BIGGER.
		BEQ	SUBIT
		LDY	#ARGEXP	;ARG IS BIGGER.
SUBIT:		SEC
		EOR	#$FF
		ADC	OLDOV
		STA	FACOV
		LDA	|$3+1,Y
		SBC	 $3+1,X
		STA	FACLO
		LDA	|$2+1,Y
		SBC	 $2+1,X
		STA	FACMO
		LDA	|$2,Y
		SBC	 $2,X
		STA	FACMOH
		LDA	|$1,Y
		SBC	 $1,X
		STA	FACHO
FADFLT:		BCS	NORMAL	;HERE IF SIGNS DIFFER. IF CARRY,
;FAC IS SET OK.
		JSR	NEGFAC	;NEGATE FAC.
NORMAL:		LDY	#0
		TYA
		CLC
NORM3:		LDX	FACHO
		BNE	NORM1
		LDX	FACHO+1	;SHIFT 8 BITS AT A TIME FOR SPEED.
		STX	FACHO
		LDX	FACMOH+1
		STX	FACMOH
		LDX	FACMO+1
		STX	FACMO
		LDX	FACOV
		STX	FACLO
		STY	FACOV
		ADC	#$08
		CMP	#$18+$08
		BNE	NORM3
ZEROFC:		LDA	#0	;NOT NEED BY NORMAL BUT BY OTHERS.
ZEROF1:		STA	FACEXP	;NUMBER MUST BE ZERO.
ZEROML:		STA	FACSGN	;MAKE SIGN POSITIVE.
		RTS		;ALL DONE.
FADD2:		ADC	OLDOV
		STA	FACOV
		LDA	FACLO
		ADC	ARGLO
		STA	FACLO
		LDA	FACMO
		ADC	ARGMO
		STA	FACMO
		LDA	FACMOH
		ADC	ARGMOH
		STA	FACMOH
		LDA	FACHO
		ADC	ARGHO
		STA	FACHO
		JMP	SQUEEZ	;GO ROUND IF SIGNS SAME.
NORM2:		ADC	#1	;DECREMENT SHIFT COUNT.
		ASL	FACOV	;SHIFT ALL LEFT ONE BIT.
		ROL	FACLO
		ROL	FACMO
		ROL	FACMOH
		ROL	FACHO
NORM1:		BPL	NORM2	;IF MSB=0 SHIFT AGAIN.
		SEC
		SBC	FACEXP
		BCS	ZEROFC
		EOR	#$FF
		ADC	#1	;COMPLEMENT.
		STA	FACEXP
SQUEEZ:		BCC	RNDRTS	;BITS TO SHIFT?
RNDSHF:		INC	FACEXP
		BEQ	OVERR
		ROR	FACHO
		ROR	FACMOH
		ROR	FACMO
		ROR	FACLO
		ROR	FACOV
RNDRTS:		RTS		;ALL DONE ADDING.
NEGFAC:		LDA	FACSGN
		EOR	#255
		STA	FACSGN	;COMPLEMENT FAC  ENTIRELY.
NEGFCH:		LDA	FACHO
		EOR	#255
		STA	FACHO	;COMPLEMENT JUST THE NUMBER.
		LDA	FACMOH
		EOR	#255
		STA	FACMOH
		LDA	FACMO
		EOR	#255
		STA	FACMO
		LDA	FACLO
		EOR	#255
		STA	FACLO
		LDA	FACOV
		EOR	#255
		STA	FACOV
		INC	FACOV
		BNE	INCFRT
INCFAC:		INC	FACLO
		BNE	INCFRT
		INC	FACMO
		BNE	INCFRT	;IF NO CARRY, RETURN.
		INC	FACMOH
		BNE	INCFRT
		INC	FACHO	;CARRY INCREMENT.
INCFRT:		RTS
OVERR:		LDX	#ERROV
		JMP	ERROR	;TELL USER.
; 'SHIFTR' SHIFTS X+1:X+3 -ACCA  BITS RIGHT.
; SHIFTS BYTES TO START WITH IF POSSIBLE.
MULSHF:		LDX	#RESHO-1	;ENTRY POINT FOR MULTIPLIER.
SHFTR2:		LDY	3+1,X	;SHIFT BYTES FIRST.
		STY	FACOV
		LDY	3,X
		STY	4,X
		LDY	2,X	;GET MO.
		STY	3,X	;STORE LO.
		LDY	1,X	;GET HO.
		STY	2,X	;STORE MO.
		LDY	BITS
		STY	1,X	;STORE HO.
SHIFTR:		ADC	#$08
		BMI	SHFTR2
		BEQ	SHFTR2
		SBC	#$08	;C CAN BE EITHER 1,0 AND IT WORKS.
		TAY
		LDA	FACOV
		BCS	SHFTRT	;EQUIV TO BEQ HERE.
SHFTR3:		ASL	1,X
		BCC	SHFTR4
		INC	1,X
SHFTR4:		ROR	1,X
		ROR	1,X	;YES, TWO OF THEM.
ROLSHF:		EQU	*
		ROR	2,X
		ROR	3,X
		ROR	4,X	;ONE MO TIME.
		ROR	A	;ROTATE ARGUMENT 1 BIT RIGHT.
SHFTR7:		INY
		BNE	SHFTR3	;$$$ ( MOST EXPENSIVE ! )
SHFTRT:		CLC		;CLEAR OUTPUT OF FACOV.
		RTS
		EJECT
		TITLE	'NATURAL LOG FUNCTION.'
; CALCULATION IS BY:
; LN(F*2N)=(N+LOG2(F))*LN(2)
; AN APPXIMATION POLYNOMIAL IS USED TO CALCULATE LOG2(F).
;  CONSTANTS USED BY LOG:
FONE:		DC.B	$81	; 1.0
		DC.B	$00
		DC.B	$00
		DC.B	$00
		DC.B	$00
LOGCN2:		DC.B	$03	;DEGREE-1
		DC.B	$7F	;.43425594188
		DC.B	$5E
		DC.B	$56
		DC.B	$CB
		DC.B	$79
		DC.B	$80	; .57658454134
		DC.B	$13
		DC.B	$9B
		DC.B	$0B
		DC.B	$64
		DC.B	$80	; .96180075921
		DC.B	$76
		DC.B	$38
		DC.B	$93
		DC.B	$16
		DC.B	$82
		DC.B	$38
		DC.B	$AA
		DC.B	$3B
		DC.B	$20
SQR0_5:		DC.B	$80	; S(0.5)
		DC.B	$35
		DC.B	$04
		DC.B	$F3
		DC.B	$34
SQR2_0:		DC.B	$81	; SQR(2.0)
		DC.B	$35
		DC.B	$04
		DC.B	$F3
		DC.B	$34
NEGHLF:		DC.B	$80	; -1/2
		DC.B	$80
		DC.B	$00
		DC.B	$00
		DC.B	$00
LOG2:		DC.B	$80	; LN(2)
		DC.B	$31
		DC.B	$72
		DC.B	$17
		DC.B	$F8
LOG:		JSR	SIGN	;IS IT POSITIVE?
		BEQ	LOGERR
		BPL	LOG1
LOGERR:		JMP	FCERR	;CAN'T TOLERATE NEG OR ZERO.
LOG1:		LDA	FACEXP	;GET EXPONENT INTO ACCA.
		SBC	#$7F	;REMOVE BIAS. (CARRY IS OFF)
		PHA		;SE AWHILE.
		LDA	#$80
		STA	FACEXP	;RESULT IS FAC IN RANGE 0.5,1.
		LDA	#SQR0_5
		LDY	#>SQR0_5	;GET POINTER TO SQR(0.5).
; CALCULATE (F-SQR(.5))/(F+SQR(.5))
		JSR	FADD	;ADD TO FAC.
		LDA	#SQR2_0
		LDY	#>SQR2_0	;GET SQR(2.).
		JSR	FDIV
		LDA	#FONE
		LDY	#>FONE
		JSR	FSUB
		LDA	#LOGCN2
		LDY	#>LOGCN2
		JSR	POLYX	;EVALUATE APPROXIMATION POLYNOMIAL.
		LDA	#NEGHLF
		LDY	#>NEGHLF	;ADD IN LAST CONSTANT.
		JSR	FADD
		PLA		;GET EXPONENT BACK.
		JSR	FINLOG	;ADD IT IN.
MULLN2:		LDA	#LOG2
		LDY	#>LOG2	;MULTIPLY RESULT BY LOG(2.0).
; JMP FMULT   ;MULTIPLY TOGETHER.
		EJECT
		TITLE	'FLOATING MULT AND DIV'
;MULTIPLICATION  FAC:=ARG*FAC.
FMULT:		JSR	CONUPK	;UNPACK THE CONSTANT INTO ARG FOR USE.
FMULTT:		BNE	*+5
		JMP	MULTRT	;IF FAC=0, RETURN. FAC IS SET.
		JSR	MULDIV	;FIX UP THE EXPONENTS.
		LDA	#0	;TO CLEAR RESULT.
		STA	RESHO
		STA	RESMOH
		STA	RESMO
		STA	RESLO
		LDA	FACOV
		JSR	MLTPLY
		LDA	FACLO	;MLTPLARG BY FACLO.
		JSR	MLTPLY
		LDA	FACMO	;MLTPLY ARG BY FACMO.
		JSR	MLTPLY
		LDA	FACMOH
		JSR	MLTPLY
		LDA	FACHO	;MLTPLY ARG BY FACHO.
		JSR	MLTPL1
		JMP	MOVFR	;MOVE RESULT INTO FAC,
;NORMALIZE RESULT, AND RETURN.
MLTPLY:		BNE	*+5
		JMP	MULSHF	;SHIFT RESULT RIGHT 1 BYTE.
MLTPL1:		LSR	A
		ORA	#$80
MLTPL2:		TAY
		BCC	MLTPL3	;IT MULT BIT=0, JUST SHIFT.
		CLC
		LDA	RESLO
		ADC	ARGLO
		STA	RESLO
		LDA	RESMO
		ADC	ARGMO
		STA	RESMO
		LDA	RESMOH
		ADC	ARGMOH
		STA	RESMOH
		LDA	RESHO
		ADC	ARGHO
		STA	RESHO
MLTPL3:		ROR	RESHO
		ROR	RESMOH
		ROR	RESMO
		ROR	RESLO
		ROR	FACOV	;SAVE FOR ROUNDING.
		TYA
		LSR	A	;CLEAR MSB SO WE GET A CLOSER TO 0.
		BNE	MLTPL2	;SLOW AS A TURTLE !
MULTRT:		RTS
;ROUTINE TO UNPACK MEMORY INTO ARG.
CONUPK:		STA	INDEX1
		STY	INDEX1+1
		LDY	#3+1
		LDA	(INDEX1),Y
		STA	ARGLO
		DEY
		LDA	(INDEX1),Y
		STA	ARGMO
		DEY
		LDA	(INDEX1),Y
		STA	ARGMOH
		DEY
		LDA	(INDEX1),Y
		STA	ARGSGN
		EOR	FACSGN
		STA	ARISGN
		LDA	ARGSGN
		ORA	#$80
		STA	ARGHO
		DEY
		LDA	(INDEX1),Y
		STA	ARGEXP
		LDA	FACEXP	;SET CODES OF FACEXP.
		RTS
;CHECK SPECIAL CASES AND ADD EXPONENTS FOR FMULT, FDIV.
MULDIV:		LDA	ARGEXP	;EXP OF ARG=0?
MLDEXP:		BEQ	ZEREMV	;SO WE GET ZERO EXPONENT.
		CLC
		ADC	FACEXP	;RESULT IS IN ACCA.
		BCC	TRYOFF	;FIND C XOR N.
		BMI	GOOVER	;OVERFLOW IF BITS MATCH.
		CLC
		DC.B	44
TRYOFF:		BPL	ZEREMV	;UNDERFLOW.
		ADC	#$80	;ADD BIAS.
		STA	FACEXP
		BNE	*+5
		JMP	ZEROML	;ZE THE REST OF IT.
		LDA	ARISGN
		STA	FACSGN	;ARISGN IS RESULT'S SIGN.
		RTS		;DONE.
MLDVEX:		LDA	FACSGN	;GET SIGN.
		EOR	#$FF	;COMPLEMENT IT.
		BMI	GOOVER
ZEREMV:		PLA		;GET ADDR OFF STACK.
		PLA
		JMP	ZEROFC	;UNDERFLOW.
GOOVER:		JMP	OVERR	;OVERFLOW.
;MULTIPLY FAC BY 10.
MUL10:		JSR	MOVAF	;COPY FAC INTO ARG.
		TAX
		BEQ	MUL10R	;IF FAC=0, GOT ANSWER.
		CLC
		ADC	#2	;AUGMENT EXP BY 2.
		BCS	GOOVER	;OVERFLOW.
FINML6:		LDX	#0
		STX	ARISGN	;SIGNS ARE SAME.
		JSR	FADDC	;ADD TOGETHER.
		INC	FACEXP	;MULTIPLY BY TWO.
		BEQ	GOOVER	;OVERFLOW.
MUL10R:		RTS
; DIVIDE FAC BY 10.
TEN_C:		DC.B	$84
		DC.B	$20
		DC.B	$00
		DC.B	$00
		DC.B	$00
DIV10:		JSR	MOVAF	;MOVE FAC TO ARG.
		LDA	#TEN_C
		LDY	#>TEN_C	;POINT TO CONSTANT OF 10.0
		LDX	#0	;SIGNS ARE BOTH POSITIVE.
FDIVF:		STX	ARISGN
		JSR	MOVFM	;PUT IT INTO FAC.
		JMP	FDIVT	;SKIP OVER NEXT TWO BYTES.
FDIV:		JSR	CONUPK	;UNPACK CONSTANT.
FDIVT:		BEQ	DV0ERR	;CAN'T DIVIDE BY ZERO !
;(NOT ENOUGH ROOM TO STORE RESULT.)
		JSR	ROUND	;TAKE FACOV INTO ACCT IN FAC.
		LDA	#0	;NEGATE FACEXP.
		SEC
		SBC	FACEXP
		STA	FACEXP
		JSR	MULDIV	;FIX UP EXPONENTS.
		INC	FACEXP	;SCALE IT RIGHT.
		BEQ	GOOVER	;OVERFLOW.
		LDX	#$100-3-1	;SETUP PROCEDURE.
		LDA	#1
DIVIDE:		EQU	*	;THIS IS THE BEST CODE IN THE WHOLE PILE
		LDY	ARGHO	;SEE WHAT RELATION HOLDS.
		CPY	FACHO
		BNE	SAVQUO	;C=0,1. N(C=0)=0.
		LDY	ARGMOH
		CPY	FACMOH
		BNE	SAVQUO
		LDY	ARGMO
		CPY	FACMO
		BNE	SAVQUO
		LDY	ARGLO
		CPY	FACLO
SAVQUO:		PHP
		ROL	A	;SAVE RESULT.
		BCC	QSHFT	;IF NOT DONE, CONTINUE.
		INX
		STA	RESLO,X
		BEQ	LD100
		BPL	DIVNRM	;NOTE THIS REQ 1 MO RAM THEN NECESS.
		LDA	#1
QSHFT:		PLP		;RETURN CONDITION CODES.
		BCS	DIVSUB	;FAC .LE. ARG.
SHFARG:		ASL	ARGLO	;SHIFT ARG ONE PLACE LEFT.
		ROL	ARGMO
		ROL	ARGMOH
		ROL	ARGHO
		BCS	SAVQUO	;SAVE A RESULT OF ONE FOR THIS POSITION
;AND DIVIDE.
		BMI	DIVIDE	;IF MSB ON, GO DECIDE WHETHER TO SUB.
		BPL	SAVQUO
DIVSUB:		TAY		;NOTICE C MUST BE ON HERE.
		LDA	ARGLO
		SBC	FACLO
		STA	ARGLO
		LDA	ARGMO
		SBC	FACMO
		STA	ARGMO
		LDA	ARGMOH
		SBC	FACMOH
		STA	ARGMOH
		LDA	ARGHO
		SBC	FACHO
		STA	ARGHO
		TYA
		JMP	SHFARG
LD100:		LDA	#$40	;ONLY WANT TWO MORE BITS.
		BNE	QSHFT	;ALWAYS BRANCHES.
DIVNRM:		EQU	*
		ASL	A
		ASL	A
		ASL	A
		ASL	A
		ASL	A
		ASL	A	;GET LAST TWO BITS INTO MSB AND B6.
		STA	FACOV
		PLP		;TO GET GARBAGE OFF STACK.
		JMP	MOVFR	;MOVE RESULT INTO FAC, THEN
;NORMALIZE RESULTND RETURN.
DV0ERR:		LDX	#ERRDV0
		JMP	ERROR
		EJECT
		TITLE	'FLOATING POINT MOVEMENT ROUTINES.'
;MOVE RESULT TO FAC.
MOVFR:		LDA	RESHO
		STA	FACHO
		LDA	RESMOH
		STA	FACMOH
		LDA	RESMO
		STA	FACMO
		LDA	RESLO	;MOVE LO AND SGN.
		STA	FACLO
		JMP	NORMAL	;ALL DONE.
;MOVE MEMORY INTO FAC (UNPACKED).
MOVFM:		STA	INDEX1
		STY	INDEX1+1
		LDY	#3+1
		LDA	(INDEX1),Y
		STA	FACLO
		DEY
		LDA	(INDEX1),Y
		STA	FACMO
		DEY
		LDA	(INDEX1),Y
		STA	FACMOH
		DEY
		LDA	(INDEX1),Y
		STA	FACSGN
		ORA	#$80
		STA	FACHO
		DEY
		LDA	(INDEX1),Y
		STA	FACEXP	;LEAVE SWITCHES SET ON EXP.
		STY	FACOV
		RTS
;MOVE NUMBER FROM FAC TO MEMORY.
MOV2F:		LDX	#TEMPF2
		DC.B	44
MOV1F:		LDX	#TEMPF1
MOVML:		LDY	#0
		BEQ	MOVMF	;ALWAYS BRANCHES.
MOVVF:		LDX	FORPNT
		LDY	FORPNT+1
MOVMF:		JSR	ROUND
		STX	INDEX1
		STY	INDEX1+1
		LDY	#3+1
		LDA	FACLO
		STA	(INDEX),Y
		DEY
		LDA	FACMO
		STA	(INDEX),Y
		DEY
		LDA	FACMOH
		STA	(INDEX),Y
		DEY
		LDA	FACSGN	;INCLUDE SIGN IN HO.  ORA #$7F
		ORA	#$7F
		AND	FACHO
		STA	(INDEX),Y
		DEY
		LDA	FACEXP
		STA	(INDEX),Y
		STY	FACOV	;ZERO IT SINCE ROUNDED.
		RTS		;Y=0.
;MOVE ARG INTO FAC.
MOVFA:		LDA	ARGSGN
MOVFA1:		STA	FACSGN
		LDX	#4+1
MOVFAL:		LDA	ARGEXP-1,X
		STA	FACEXP-1,X
		DEX
		BNE	MOVFAL
		STX	FACOV
		RTS
;MOVE FAC INTO ARG.
MOVAF:		JSR	ROUND
MOVEF:		LDX	#5+1
MOVAFL:		LDA	FACEXP-1,X
		STA	ARGEXP-1,X
		DEX
		BNE	MOVAFL
		STX	FACOV	;ZERO IT SINCE ROUNDED.
MOVRTS:		RTS
ROUND:		LDA	FACEXP	;ZO?
		BEQ	MOVRTS	;YES. DONE ROUNDING.
		ASL	FACOV	;ROUND?
		BCC	MOVRTS	;NO. MSB OFF.
INCRND:		JSR	INCFAC	;YES, ADD ONE TO LSB(FAC).
		BNE	MOVRTS	;NO CARRY MEANS DONE.
		JMP	RNDSHF	;SQUEEZ MSB IN AND RTS.
;NOTE C=1 SINCE INCFAC DOESNT TOUCH C.
		EJECT
		TITLE	'SIGN, SGN, FLOAT, NEG, ABS.'
;PUT SIGN OF FAC IN ACCA.
SIGN:		LDA	FACEXP
		BEQ	SIGNRT	;IF NUMBER IS ZERO, SO IS RESULT.
FCSIGN:		LDA	FACSGN
FCOMPS:		ROL	A
		LDA	#$100-1	;ASSUME NEGATIVE.
		BCS	SIGNRT
		LDA	#1	;GET .
SIGNRT:		RTS
;SGN FUNCTION.
SGN:		JSR	SIGN
;FLOAT THE SIGNED INTEGER IN ACCA.
FLOAT:		STA	FACHO	;PUT ACCA IN HIGH ORDER.
		LDA	#0
		STA	FACHO+1
		LDX	#$88	;GET THE EXPONENT.
;FLOAT THE SIGNED NUMBER IN FAC.
FLOATS:		LDA	FACHO
		EOR	#$FF
		ROL	A	;GET COMP OF SIGN IN CARRY.
FLOATC:		LDA	#0	;ZERO ACCA BUT NOT CARRY.
		STA	FACLO
		STA	FACMO
FLOATB:		STX	FACEXP
		STA	FACOV
		STA	FACSGN
		JMP	FADFLT
;ABSOLUTE VALUE OF FAC.
ABS:		LSR	FACSGN
		RTS
		EJECT
		TITLE	'COMPARE TWO NUMBERS.'
;A=1 IF ARG .LT. FAC.
;A=0 IF ARG=FAC.
;A=-1 IF ARG .GT. FAC.
FCOMP:		STA	INDEX2
FCOMPN:		STY	INDEX2+1
		LDY	#0
		LDA	(INDEX2),Y	;HAS ARGEXP.
		INY		;BUMP PNTR UP.
		TAX		;SAVE A IN X AND RESET CODES.
		BEQ	SIGN
		LDA	(INDEX2),Y
		EOR	FACSGN	;SIGNS THE SAME.
		BMI	FCSIGN	;SIGNS DIFFER SO RESULT IS
;SIGN OF FAC AGAIN.
FOUTCP:		CPX	FACEXP
		BNE	FCOMPC
		LDA	(INDEX2),Y
		ORA	#$80
		CMP	FACHO
		BNE	FCOMPC
		INY
		LDA	(INDEX2),Y
		CMP	FACMOH
		BNE	FCOMPC
		INY
		LDA	(INDEX2),Y
		CMP	FACMO
		BNE	FCOMPC
		INY
		LDA	#$7F
		CMP	FACOV
		LDA	(INDEX2),Y
		SBC	FACLO	;GET ZERO IF EQUAL.
		BEQ	QINTRT
FCOMPC:		LDA	FACSGN
		BCC	FCOMPD
		EOR	#$FF
FCOMPD:		JMP	FCOMPS	;A PART OF SIGN SETS ACCA UP.
		EJECT
		TITLE	'GREATEST INTEGER FUNCTION.'
;QUICK GREATEST INTEGER FUNCTION.
;LEAVES INT(FAC) IN FACHO&MO&LO SIGNED.
;ASSUMES FAC .LT. 223 = 8388608
QINT:		LDA	FACEXP
		BEQ	CLRFAC	;IF ZERO, GOT IT.
		SEC
		SBC	#$98+8	;GET NUMBER OF PLACES TO SHIFT.
		BIT	FACSGN
		BPL	QISHFT
		TAX
		LDA	#$FF
		STA	BITS	;PUT 377 IN WHEN SHFTR SHIFTS BYTES.
		JSR	NEGFCH	;TRULY NEGATE QUANTITY IN FAC.
		TXA
QISHFT:		LDX	#FAC
		CMP	#$100-7
		BPL	QINT1	;IF NUMBER OF PLACES .GE. 7
;SHIFT 1 PLACE @ A TIME
		JSR	SHIFTR	;START SHIFTN BYTS, THEN BITS
		STY	BITS	;ZERO BITS; ADDER WANTS 0
QINTRT:		RTS
QINT1:		TAY		;CNT IN CTR
		LDA	FACSGN
		AND	#$80	;GET SIGN BIT.
		LSR	FACHO	;SAVE FIR SHIFTED BYTE.
		ORA	FACHO
		STA	FACHO
		JSR	ROLSHF	;SHIFT THE REST.
		STY	BITS	;ZERO BITS.
		RTS
;GREATEST INTEGER FUNCTION.
INT:		LDA	FACEXP
		CMP	#$98+8
		BCS	INTRTS	;FORGET IT.
		JSR	QINT
		STY	FACOV	;CLR OVERFLOW BYTE.
		LDA	FACSGN
		STY	FACSGN	;MAKE FAC POSITIVE
		EOR	#$80	;GET COMPLEMENT OF SIGN IN CARRY.
		ROL	A
		LDA	#$98+8
		STA	FACEXP
		LDA	FACLO
		STA	INTEGR
		JMP	FADFLT
CLRFAC:		STA	FACHO	;MAKE IT REALLY ZERO.
		STA	FACMOH
		STA	FACMO
		STA	FACLO
		TAY
INTRTS:		RTS
		EJECT
		TITLE	'FLOATING POINT INPUT ROUTINE.'
;NUMBER INPUT IS LEFT IN FAC.
;AT ENTRY TXTPTR POINTS TO THE 1ST CHARACTER IN A TEXT BUF
;THE FIRST CHARACTER IS ALSO IN ACCA. FIN PACKS THE DIGITS
;INTO THE FAC AS AN INTEGER AND KEEPS TRACK OF WHERE THE
;DECIMAL POINT IS. DPTFLG TELL WHETHER A DP HAS BEEN
;SEEN. DECCNT IS THE NUMBER OF DIGITS AFTER THE DP.
;AT THE END DECCNT AND THE EXPONENT ARE USED TO
;DETERMINE HOW MANY TIMES TO MULTIPLY ORIVIDE BY TEN
;TO GET THE CORRECT NUMBER.
FIN:		LDY	#0	;ZERO FACSGN&SGNFLG.
		LDX	#$09+1	;ZERO EXP AND HO (AND MOH).
FINZLP:		STY	DECCNT,X	;ZERO MO AND LO.
		DEX		;ZERO TENEXP AND EXPSGN
		BPL	FINZLP	;ZERO DECCNT, DPTFLG.
		BCC	FINDGQ	;FLAGS STILL SET FROM CHRGET.
		CMP	#$2D	;A '-' SIGN?
		BNE	QPLUS	;NO, TRY +
		STX	SGNFLG	;IT'S NEGATIVE. (X=377).
		BEQ	FINC	;ALWAYS GO
QPLUS:		CMP	#$2B	;PLUS SIGN?
		BNE	FIN1	;YES, SKIP IT.
FINC:		JSR	CHRGET
FINDGQ:		BCC	FINDIG
FIN1:		CMP	#'.'	;THE DP?
		BEQ	FINDP
		CMP	#'E'	;EXPONENT FOLLOWS.
		BNE	FINE	;NO.
;HERE TO CHECK FOR SIGN OF EXP.
		JSR	CHRGET	;YES. GET ANOTHER.
		BCC	FNEDG1	;IT IS A DIGIT. (EASIER THAN
;BACKING UP POINTER.)
		CMP	#MINUTK	;MINUS?
		BEQ	FINEC1	;NEGATE.
		CMP	#$2D	;MINUS SIGN?
		BEQ	FINEC1
		CMP	#PLUSTK	;PLUS?
		BEQ	FINEC
		CMP	#$2B	;PLUS SIGN?
		BEQ	FINEC
		BNE	FINEC2
FINEC1:		ROR	EXPSGN	;TURN IT ON.
FINEC:		JSR	CHRGET	;GET ANOTHER.
FNEDG1:		BCC	FINEDG	;IT IS A DIGIT.
FINEC2:		BIT	EXPSGN
		BPL	FINE
		LDA	#0
		SEC
		SBC	TENEXP
		JMP	FINE1
FINDP:		ROR	DPTFLG
		BIT	DPTFLG
		BVC	FINC
FINE:		LDA	TENEXP
FINE1:		SEC
		SBC	DECCNT	;# OF PLACES TO SHIFT
		STA	TENEXP
		BEQ	FINQNG	;NEGATE?
		BPL	FINMUL	;POSITIVE SO MULTIPLY.
FINDIV:		JSR	DIV10
		INC	TENEXP	;DONE?
		BNE	FINDIV	;NO.
		BEQ	FINQNG	;YES.
FINMUL:		JSR	MUL10
		DEC	TENEXP	;DONE?
		BNE	FINMUL	;NO
FINQNG:		LDA	SGNFLG
		BMI	NEGXQS	;IF POSITE, RETURN.
		RTS
NEGXQS:		JMP	NEGOP	;ELSE, NEG AND RTN
FINDIG:		PHA
		BIT	DPTFLG
		BPL	FINDG1
		INC	DECCNT
FINDG1:		JSR	MUL10
		PLA		;GET IT BACK.
		SEC
		SBC	#'0'
		JSR	FINLOG	;ADD IT IN.
		JMP	FINC
FINLOG:		PHA
		JSR	MOVAF	;SAVE FAC FOR LATER.
		PLA
		JSR	FLOAT	;FLOAT THE A REG
		LDA	ARGSGN
		EOR	FACSGN
		STA	ARISGN	;RESULTANT SIGN.
		LDX	FACEXP	;SET SIGNS ON THING TO ADD.
		JMP	FADDT	;ADD  AND RETURN
;HERE PACK IN THE NEXDIGIT OF THE EXPONENT.
;MULTIPLY THE OLD EXP BY 10 AND ADD IN THE NEXT
;DIGIT. NOTE: EXP OVERFLOW IS NOT CHECKED FOR.
FINEDG:		LDA	TENEXP	;GET EXP SO FAR.
		CMP	#$0A	;WILL RESULT BE .GE. 100?
		BCC	MLEX10
		LDA	#$64	;GET 100.
		BIT	EXPSGN
		BMI	MLEXMI	;IF NEG EXP, NO CHK FOR OVERR.
		JMP	OVERR
MLEX10:		ASL	A	;MULT BY 2 TWICE
		ASL	A
		CLC		;POSSIBLE SHIFT OUT OF HIGH.
		ADC	TENEXP	;LIKE MULTIPLYING BY FIVE.
		ASL	A	;AND NOW BY TEN.
		CLC
		LDY	#0
		ADC	(TXTPTR),Y
		SEC
		SBC	#'0'
MLEXMI:		STA	TENEXP	;SAVE RESULT.
		JMP	FINEC
		EJECT
		TITLE	'FLOATING POINT OUTPUT ROUTINE.'
N_0999:		DC.B	$9B	; 99999999.9499
		DC.B	$3E
		DC.B	$BC
		DC.B	$1F
		DC.B	$FD
N_9999:		DC.B	$9E	; 999999999.499
		DC.B	$6E
		DC.B	$6B
		DC.B	$27
		DC.B	$FD
N_MIL:		DC.B	$9E	; 109
		DC.B	$6E
		DC.B	$6B
		DC.B	$28
		DC.B	$00
;ENTRY TO LINPRT.
INPRT:		LDA	#INTXT
		LDY	#>INTXT
		JSR	STROU2
		LDA	CURLIN+1
		LDX	CURLIN
LINPRT:		STA	FACHO
		STX	FACHO+1
		LDX	#$90	;EXPONENT OF 16.
		SEC		;NUMBER IS POSITIVE.
		JSR	FLOATC
		JSR	FOUT
STROU2:		JMP	STROUT	;PRINT AND RETURN.
FOUT:		LDY	#1
FOUTC:		LDA	#$2D	;PRINT NULL IF PLUS
		DEY		;NEG SIGN IF NEGATIVE
		BIT	FACSGN
		BPL	FOUT1_1
		INY
FOUT1:		STA	|FBUFFR-1,Y	;STA THE CHR
FOUT1_1:		STA	FACSGN	;MAKE FAC POS FOR QINT.
		STY	FBUFPT	;SAVE FOR LATER.
		INY
		LDA	#'0'	;GET ZERO TO TYPE IF FAC=0.
		LDX	FACEXP
		BNE	*+5
		JMP	FOUT19
		LDA	#0
		CPX	#$80	;IS NUMBER .LT. 1.0 ?
		BEQ	FOUT37	;NO.
		BCS	FOUT7
FOUT37:		LDA	#N_MIL
		LDY	#>N_MIL	;MULTIPLY BY 106.
		JSR	FMULT
		LDA	#$100-6-3
FOUT7:		STA	DECCNT	;SAVE COUNT OR ZERO IT.
FOUT4:		LDA	#N_9999
		LDY	#>N_9999
		JSR	FCOMP	;IS NUMBER .GT. 999999.499 ?
;OR 999999999.499?
		BEQ	BIGGES
		BPL	FOUT9	;YES. MAKE IT SMALLER.
FOUT3:		LDA	#N_0999
		LDY	#>N_0999
		JSR	FCOMP	;IS NUMBER .GT. 99999.9499 ?
; OR 99999999.9499?
		BEQ	FOUT38
		BPL	FOUT5	;YES. DONE MULTIPLYING.
FOUT38:		JSR	MUL10	;MAKE IT BIGGER.
		DEC	DECCNT
		BNE	FOUT3	;SEE IF THAT DOES IT.
;THIS ALWAYS GOES.
FOUT9:		JSR	DIV10	;MAKE IT SMALLER.
		INC	DECCNT
		BNE	FOUT4	;SEE IF THAT DOES IT.
;THIS ALWAYS GOES.
FOUT5:		JSR	FADDH	;ADD A HALF TO ROUND UP.
BIGGES:		JSR	QINT
		LDX	#1	;DECIMAL POINT COUNT.
		LDA	DECCNT
		CLC
		ADC	#3*1+7	;SHOULD # PRINT IN E FORM?
;IE, IS NUMBER .LT. .01 ?
		BMI	FOUTPI	;YES.
		CMP	#3*1+$08	;IS IT .GT. 999999 (999999999)?
		BCS	FOUT6	;YES. USE E NOTATION.
		ADC	#$100-1	;# OF PLACES BR DEC PT
		TAX		;PUT INTO ACCX.
		LDA	#2	;NO E NOTATION.
FOUTPI:		SEC
FOUT6:		SBC	#2	;ADD 5 TO ORIG EXP
		STA	TENEXP	;THAT IS THE EXPONENT TO PRINT.
		STX	DECCNT	;# OF DEC PLACS
		TXA
		BEQ	FOUT39
		BPL	FOUT8	;SOME PLACES BEFORE DEC PNT.
FOUT39:		LDY	FBUFPT	;PTR TO OUTPUT
		LDA	#'.'	;PUT IN '.'
		INY
		STA	|FBUFFR-1,Y
		TXA
		BEQ	FOUT16
		LDA	#'0'	;GET THE ENSUING ZERO.
		INY
		STA	|FBUFFR-1,Y
FOUT16:		STY	FBUFPT	;SAVE FOLATER.
FOUT8:		LDY	#0
FOUTIM:		LDX	#$80	;FIRST PASS THRU, ACCX HAS MSB SET.
FOUT2:		LDA	FACLO
		CLC
		ADC	FOUTBL+2+1,Y
		STA	FACLO
		LDA	FACMO
		ADC	FOUTBL+1+1,Y
		STA	FACMO
		LDA	FACMOH
		ADC	FOUTBL+1,Y
		STA	FACMOH
		LDA	FACHO
		ADC	FOUTBL,Y
		STA	FACHO
		INX		;IT WAS DONE YET ANOTHER TIME.
		BCS	FOUT41
		BPL	FOUT2
		BMI	FOUT40
FOUT41:		BMI	FOUT2
FOUT40:		TXA
		BCC	FOUTYP	;CAN USE ACCA AS IS.
		EOR	#$FF	;FIND 11.-A.
		ADC	#$0A	;C IS STILL ON TO COMPLETE NEGAON.
;AND WILL ALWAYS BE ON AFTER.
FOUTYP:		ADC	#'0'-1	;GET A CHARACTER TO PRINT.
		INY
		INY
		INY
		INY		;BUMP POINTER UP.
		STY	FDECPT
		LDY	FBUFPT
		INY		;POINT TO PLACE TO STORE OUTPUT.
		TAX
		AND	#$7F	;GET RID OF MSB.
		STA	|FBUFFR-1,Y
		DEC	DECCNT
		BNE	STXBUF	;NOT TIME FOR DP YET.
		LDA	#'.'
		INY
		STA	|FBUFFR-1,Y	;STORE DP.
STXBUF:		STY	FBUFPT	;STORE PNTR FOR LATER.
		LDY	FDECPT
FOUTCM:		TXA		;COMPLEMENT ACCX
		EOR	#$FF	;COMPLEMENT ACCA.
		AND	#$80	;SAVONLY MSB.
		TAX
		CPY	#FDCEND-FOUTBL
		BNE	FOUT2	;CONTINUE WITH OUTPUT.
FOULDY:		LDY	FBUFPT	;GET BACK OUTPUT PNTR.
FOUT11:		LDA	|FBUFFR-1,Y	;REMOVE TRAIL 0'S
		DEY
		CMP	#'0'
		BEQ	FOUT11
		CMP	#'.'
		BEQ	FOUT12	;RUN INTO DP. STOP.
		INY		;SOMETHING ELSE. SAVE IT.
FOUT12:		LDA	#$2B
		LDX	TENEXP
		BEQ	FOUT17	;NO EXPONENT TO OUTPUT.
		BPL	FOUT14
		LDA	#0
		SEC
		SBC	TENEXP
		TAX
		LDA	#$2D	;EXPONENT IS NEGATIVE.
FOUT14:		STA	FBUFFR-1+2,Y	;STORE SIGN OF EXP
		LDA	#'E'
		STA	FBUFFR-1+1,Y	;STORE THE 'E' CHARACTER.
		TXA
		LDX	#'0'-1
		SEC
FOUT15:		INX		;MOVE CLOSER TO OUTPUT VALUE.
		SBC	#$0A	;SUBTRACT 10.
		BCS	FOUT15	;NOT NEGATIVE YET.
		ADC	#'0'+$0A	;2ND OUTPUT CHR
		STA	FBUFFR-1+4,Y	;STORE HIGH DIGIT.
		TXA
		STA	FBUFFR-1+3,Y	;STORE  LOW DIGIT.
		LDA	#0	;PUT IN TERMINATOR.
		STA	FBUFFR-1+5,Y
		BEQ	FOUT20	;RETURN. (ALWAYS  GO)
FOUT19:		STA	|FBUFFR-1,Y	;STOR CHAR
FOUT17:		LDA	#0	;A TERMINATOR.
		STA	FBUFFR-1+1,Y
FOUT20:		LDA	#<FBUFFR
		LDY	#>FBUFFR
FPWRRT:		RTS		;ALL DONE.
FHALF:		DC.B	$80	;1/2
		DC.B	$00
		DC.B	$00
		DC.B	$00
		DC.B	$00
;POWER OF TEN TABLE
FOUTBL:		DC.B	$FA	;-100,000,000
		DC.B	$0A
		DC.B	$1F
		DC.B	$00
		DC.B	$00	;10,000,000
		DC.B	$98
		DC.B	$96
		DC.B	$80
		DC.B	$FF	;-1,000,000
		DC.B	$F0
		DC.B	$BD
		DC.B	$C0
		DC.B	$00	;100,000
		DC.B	$01
		DC.B	$86
		DC.B	$A0
		DC.B	$FF	;-10,000
		DC.B	$FF
		DC.B	$D8
		DC.B	$F0
		DC.B	$00	;00
		DC.B	$00
		DC.B	$03
		DC.B	$E8
		DC.B	$FF	;-100
		DC.B	$FF
		DC.B	$FF
		DC.B	$9C
		DC.B	$00	;10
		DC.B	$00
		DC.B	$00
		DC.B	$0A
		DC.B	$FF	;-1
		DC.B	$FF
		DC.B	$FF
		DC.B	$FF
FDCEND:		EQU	*
		EJECT
		TITLE	'EXP AND SQUARE ROOT'
;SQUARE ROOT FUNCTION --- SQR(A)
;USE SQR(X)=X.5
SQR:		JSR	MOVAF	;MOVE FAC INTO ARG.
		LDA	#FHALF
		LDY	#>FHALF
		JSR	MOVFM	;PUT MEMORY INTO FAC.
;LAST THING FETCHED IS FACEXP. INTO ACCX.
; JMP FPWRT   ;FALL INTO FPW.
;EXPONENTIATION ---  XY.
;N.B.  00=1
;FIRST CHECK IF Y=0. IF SO, THE RESULT IS 1.
;NEXT CHECK IF X=0. IF SO THE RESULT IS 0.
;THEN CHECK IF X.GT.0. IF NOT CHECK THAT Y IS AN INTEGER.
;IF SO, NEGATE X, SO THAT LOG DOESN'T GIVE FCERR.
;IF X IS NEGATIVE AND Y IS ODD, NEGATE THE RESULT
;RETURNED BY EXP.
;TO COMPUTE THE RESULT USE XY=EXP((Y*LOG(X)).
FPWRT:		BEQ	EXP	;IF FAC=0, JUST EXPONENTIATE THAT.
		LDA	ARGEXP	;IS X=0?
		BNE	FPWRT1
		JMP	ZEROF1	;ZERO FAC.
FPWRT1:		LDX	#TEMPF3
		LDY	#>TEMPF3	;SAVE FOR LATER IN A TEMP.
		JSR	MOVMF
;Y=0 ALREADY. GOOD IN CASE NO ONE CALLS INT.
		LDA	ARGSGN
		BPL	FPWR1	;NO PROBLEMS IF X.GT.0.
		JSR	INT	;INTEGERIZE THE FAC.
		LDA	#TEMPF3
		LDY	#>TEMPF3	;GET ADDR OF COMPERAND.
		JSR	FCOMP	;EQUAL?
		BNE	FPWR1	;LEAVE X NEG. LOG WILL BLOW HIM OUT.
;A=-1 AND Y IS IRRELEVANT.
		TYA		;NEGATE X. MAKE POSITIVE.
		LDY	INTEGR	;GET EVENNESS.
FPWR1:		JSR	MOVFA1	;ALTERNATE ENTRY POINT.
		TYA
		PHA		;SAVE EVENNESS FOR TER.
		JSR	LOG	;FIND LOG.
		LDA	#TEMPF3
		LDY	#>TEMPF3	;MULTIPLY FAC TIMES LOG(X).
		JSR	FMULT
		JSR	EXP	;EXPONENTIATE THE FAC.
		PLA
		LSR	A	;IS IT EVEN?
		BCC	NEGRTS	;YES. OR X.GT.0.
;NEGATE THE NUMBER IN FAC.
NEGOP:		LDA	FACEXP
		BEQ	NEGRTS
		LDA	FACSGN
		EOR	#255
		STA	FACSGN
NEGRTS:		RTS
		EJECT
		TITLE	'EXPONENTIATION FUNCTION.'
;FIRST SAVE THE ORIGINAL ARGUMENT AND MULTIPLY THE FAC BY
;LOG2(E). THE RESULT IS USED TO DETERMINE IF OVERFLOW
;WILL OCCUR SINCE EXP)=2(X*LOG2(E)) WHERE
;LOG2(E)=LOG(E) BASE 2. THEN SAVE THE INTEGER PART OF
;THIS TO SCALE THE ANSWER AT THE END. SINCE
;2Y=2INT(Y)*2(Y-INT(Y)) AND 2INT(Y) IS EASY TO COMPUTE.
;NOW COMPUTE 2(X*LOG2(E)-INT(X*LOG2(E)) BY
;P(LN(2)*(INT(X*LOG2(E))+1)-X) WHERE P IS AN APPROXIMATION
;POLYNOMIAL. THE RESULT IS THEN SCALED BY THE POWER OF 2
;PREVIOUSLY SAVED.
LOGEB2:		DC.B	$81	;LOG(E) BASE 2.
		DC.B	$38
		DC.B	$AA
		DC.B	$3B,$29
EXPCON:		DC.B	7	;DEGREE-1
		DC.B	$71	; .0000214987636
		DC.B	$34
		DC.B	$58
		DC.B	$3E
		DC.B	$56
		DC.B	$74	; .00014352314036
		DC.B	$16
		DC.B	$7E
		DC.B	$B3
		DC.B	$1B
		DC.B	$77	; .0013422634824
		DC.B	$2F
		DC.B	$EE
		DC.B	$E3
		DC.B	$85
		DC.B	$7A	; .0096140170119
		DC.B	$1D
		DC.B	$84
		DC.B	$1C
		DC.B	$2A
		DC.B	$7C	; .055505126860
		DC.B	$63
		DC.B	$59
		DC.B	$58
		DC.B	$0A
		DC.B	$7E	; .24022638462
		DC.B	$75
		DC.B	$FD
		DC.B	$E7
		DC.B	$C6
		DC.B	$80	; .69314718608
		DC.B	$31
		DC.B	$72
		DC.B	$18
		DC.B	$10
		DC.B	$81	; 1.0
		DC.B	$00
		DC.B	$00
		DC.B	$00
		DC.B	$00
EXP:		EQU	*
		LDA	#LOGEB2
		LDY	#>LOGEB2	;MULTIPLY BY LOG(E) BASE 2.
		JSR	FMULT
		LDA	FACOV
		ADC	#$50
		BCC	STOLD
		JSR	INCRND
STOLD:		STA	OLDOV
		JSR	MOVEF	;TO SAVE IN ARG WITHOUT ROUND.
		LDA	FACEXP
		CMP	#$88	;IF ABS(FAC) .GE. 128, TOO BIG.
		BCC	EXP1
GOMLDV:		JSR	MLDVEX	;OVERFLOW OR OVERFLOW.
EXP1:		JSR	INT
		LDA	INTEGR	;GET LOW PART.
		CLC
		ADC	#$81
		BEQ	GOMLDV	;OVERFLOW OR OVERFLOW !!
		SEC
		SBC	#1	;SUBTRACT 1.
		PHA		;SAVE A WHILE.
		LDX	#4+1	;PREP TO SWAP FAC AND ARG.
SWAPLP:		LDA	ARGEXP,X
		LDY	FACEXP,X
		STA	FACEXP,X
		STY	ARGEXP,X
		DEX
		BPL	SWAPLP
		LDA	OLDOV
		STA	FACOV
		JSR	FSUBT
		JSR	NEGOP	;NEGATE FAC.
		LDA	#EXPCON
		LDY	#>EXPCON
		JSR	POLY
		LDA	#0
		STA	ARISGN	;MULTIPLY BY POSITIVE 1.0.
		PLA		;GET SCALE FACTOR.
		JSR	MLDEXP	;MODIFY FACEXP AND CHECK FOR OVERFLOW.
		RTS		;HAS TO DO JSR DUE TO PULAS IN MULDIV.
		EJECT
		TITLE	'POLY EVAL & RANDOM NUMBER GEN'
;EVALUATE P(X2)*X
;POINTER TO DEGREE IS IN Y,A.
;THE CONSTANTS FOLLOW THE DEGREE.
;FOR X=FAC, COMPUTE:
; C0*X+C1*X3+C2*X5+C3*X7+...+C(N)*X(2*N+1)
POLYX:		STA	POLYPT
		STY	POLYPT+1	;RETAIN POLYNOMIAL POINTER FOR LATER.
		JSR	MOV1F	;SAVE FAC IN FACTMP.
		LDA	#TEMPF1
		JSR	FMULT	;COMPUTE X2.
		JSR	POLY1	;COMPUTE P(X2).
		LDA	#TEMPF1
		LDY	#>TEMPF1
		JMP	FMULT	;MULTIPLY BY FAC AGAIN.
;POLYNOMIAL EVALUATOR.
;POINTER TDEGREE IS IN Y,A.
;COMPUTE:
; C0+C1*X+C2*X2+C3*X3+C4*X4+...+C(N-1)*X(N-1)+C(N)*XN.
POLY:		STA	POLYPT
		STY	POLYPT+1
POLY1:		JSR	MOV2F	;SAVE FAC.
		LDA	(POLYPT),Y
		STA	DEGREE
		LDY	POLYPT
		INY
		TYA
		BNE	POLY3
		INC	POLYPT+1
POLY3:		STA	POLYPT
		LDY	POLYPT+1
POLY2:		JSR	FMULT
		LDA	POLYPT
		LDY	POLYPT+1	;GET CURRENT POINTER.
		CLC
		ADC	#4+1
		BCC	POLY4
		INY
POLY4:		STA	POLYPT
		STY	POLYPT+1
		JSR	FADD	;ADD IN CONSTANT.
		LDA	#TEMPF2
		LDY	#>TEMPF2	;MULTIY THE ORIGINAL FAC.
		DEC	DEGREE	;DONE?
		BNE	POLY2
RANDRT:		RTS		;YES.
;PSUEDO-RANDOM NUMBER GENERATOR.
;IF ARG=0, THE LAST RANDOM NUMBER GENERATED IS RETURNED.
;IF ARG .LT. 0, A NEW SEQUENCE OF RANDOM NUMBERS IS
;STARTED USING THE ARGUMENT.
;   TO FORM THE NEXT RANDOM NUMBER IN THE SEQUENCE,
;MULTIPLY THE PREVIOUS RANDOM NUMBER BY A RANDOM CONSTANT
;AND ADD IN ANOTHER RANDOM CONSTANT. THE THEN HO
;AND LO BYTES ARE SWITCHED, THE EXPONENT IS PUT WHERE
;IT WILL BE SHIFTED IN BY RMAL, & THE EXPONENT IN THE FAC
;IS SET TO 200 SO THE RESULT WILL BE LESS THAN 1. THIS
;IS THEN NORMALIZED AND SAVED FOR THE NEXT TIME.
;THE HO AND LOW BYTES WERE SWITCHED SO THERE WILL BE A
;RANDOM CHANCE OF GETTING A NUMBER LESS THAN OR GREATER
;THAN .5 .
RMUL_C:		DC.B	$98
		DC.B	$35
		DC.B	$44
		DC.B	$7A
RADD_C:		DC.B	$68
		DC.B	$28
		DC.B	$B1
		DC.B	$46
RND:		JSR	SIGN	;GET SIGN INTO ACCX.
		TAX		;GET INTO ACCX, SINCE 'MOVFM' USES ACCX.
		BMI	RND1	;START NEW SEQUENCE  NEGATIVE.
QSETNR:		LDA	#RNDX
		LDY	#>RNDX	;GET LAST ONE INTO FAC.
		JSR	MOVFM
		TXA		;FAC WAS ZERO?
		BEQ	RANDRT	;RESTORE LAST ONE.
		LDA	#RMUL_C
		LDY	#>RMUL_C	;MULTIPLY BY RANDOM CONSTANT.
		JSR	FMULT
		LDA	#RADD_C
		LDY	#>RADD_C
		JSR	FADD	;ADD RANDOM CONSTANT.
RND1:		LDX	FACLO
		LDA	FACHO
		STA	FACLO
		STX	FACHO	;REVERSE HO AND LO.
STRNEX:		LDA	#$00
		STA	FACSGN	;MAKE NUMBER POSITIVE.
		LDA	FACEXP	;PUT EXP WHERE IT WILL
		STA	FACOV	;BE SHIFTED IN BY NORMAL.
		LDA	#$80
		STA	FACEXP	;MAKE RESULT BETWEEN 0 AND 1.
		JSR	NORMAL	;NORMALIZE.
		LDX	#RNDX
		LDY	#>RNDX
GMOVMF:		JMP	MOVMF	;PUT NEW ONE INTO MEMORY.
		EJECT
		TITLE	'SINE, COSINE & TANGENT'
;COSINE FUNCTION.
;USE COS(X)=SIN(X+PI/2)
COS:		LDA	#PI2
		LDY	#>PI2	;PNTR TO PI/2.
		JSR	FADD	;ADD IT IN.
;FALL INTO SIN.
;SINE FUNCTION.
;USE IDENTITIES TO GET FAC IN QUADRANTS I OR IV.
;THE FAC IS DIVIDED BY 2*PI & THE INTEGER PART IS IGNORED
;BECAUSE SIN(X+PI)=SIN(X). THEN ARGUMENT CAN BE COMPARED
;WITH PI/2 BY COMPARING THE RESULT OF THE DIVISION
;WITH PI/2/(2*PI)=1/4.
;IDENTITIES ARE THEN USED TO GET THE RESULT IN QUADRANTS
;I OR IV. AN APPROXIMATION POLYNOMIAL IS THEN USED TO
;COMPUTE SIN(X).
SIN:		JSR	MOVAF
		LDA	#TWOPI
		LDY	#>TWOPI	;GET PNTR TO DIVISOR.
		LDX	ARGSGN	;GET SIGN OF RESULT.
		JSR	FDIVF
		JSR	MOVAF	;GET RESULT INTO ARG.
		JSR	INT	;INTEGERIZE FAC.
		LDA	#0
		STA	ARISGN	;ALWAYS HAVE THE SAME SIGN.
		JSR	FSUBT	;KEEP ONLY THE FRACTIONAL PART.
		LDA	#FR4
		LDY	#>FR4	;GET PNTR TO 1/4.
		JSR	FSUB	;COMPUTE 1/4-FAC.
		LDA	FACSGN	;SAVE SIGN FOR LATER.
		PHA
		BPL	SIN1	;FIRST QUADRANT.
		JSR	FADDH	;ADD 1/2 TO FAC.
		LDA	FACSGN	;SIGN IS NEGATIVE?
		BMI	SIN2
		LDA	TANSGN
		EOR	#255
		STA	TANSGN	;QUADRANTS II AND III COME HERE.
SIN1:		JSR	NEGOP	;IF POSITIVE, NEGATE IT.
SIN2:		LDA	#FR4
		LDY	#>FR4	;POINTER TO 1/4.
		JSR	FADD	;ADD IT IN.
		PLA		;GET ORIGINAL QUADRANT.
		BPL	SIN3
		JSR	NEGOP	;IF NEGATIVE, NEGATE RESULT.
SIN3:		LDA	#SINCON
		LDY	#>SINCON
GPOLYX:		JMP	POLYX	;DO APPROXIMATION POLYNOMIAL.
;TANGENT FUNCTION.
TAN:		JSR	MOV1F	;MOVE FAC INTO TEMPORARY.
		LDA	#0
		STA	TANSGN	;REMEMBER WHETHER TO NEGATE.
		JSR	SIN	;COMPUTE THE SIN.
		LDX	#TEMPF3
		LDY	#>TEMPF3
		JSR	GMOVMF	;PUT SIGN INTO OTHER TEMP.
		LDA	#TEMPF1
		LDY	#>TEMPF1
		JSR	MOVFM	;PUT THIS MEMORY LOC INTO FAC.
		LDA	#0
		STA	FACSGN	;START OFF POSITIVE.
		LDA	TANSGN
		JSR	COSC	;COMPUTE COSINE.
		LDA	#TEMPF3
		LDY	#>TEMPF3	;ADDRESS OF SINE VALUE.
GFDIV:		JMP	FDIV	;DIVIDE SINE BY COSINE AND RETURN.
COSC:		PHA
		JMP	SIN1
PI2:		DC.B	$81	;PI/2
		DC.B	$49
		DC.B	$0F
		DC.B	$DA
		DC.B	$A2
TWOPI:		DC.B	$83	;2*PI.
		DC.B	$49
		DC.B	$0F
		DC.B	$DA
		DC.B	$A2
FR4:		DC.B	$7F	;1/4
		DC.B	$00
		DC.B	$00
		DC.B	$00
		DC.B	$00
SINCON:		DC.B	5	;DEGREE-1.
		DC.B	$84	; -14.381383816
		DC.B	$E6
		DC.B	$1A
		DC.B	$2D
		DC.B	$1B
		DC.B	$86	; 42.07777095
		DC.B	$28
		DC.B	$07
		DC.B	$FB
		DC.B	$F8
		DC.B	$87	; -76.704133676
		DC.B	$99
		DC.B	$68
		DC.B	$89
		DC.B	$01
		DC.B	$87	; 81.605223690
		DC.B	$23
		DC.B	$35
		DC.B	$DF
		DC.B	$E1
		DC.B	$86	; -41.34170209
		DC.B	$A5
		DC.B	$5D
		DC.B	$E7
		DC.B	$28
		DC.B	$83	; 6.2831853070
		DC.B	$49
		DC.B	$0F
		DC.B	$DA
		DC.B	$A2
		DC.B	$A6
		DC.B	$D3
		DC.B	$C1
		DC.B	$C8
		DC.B	$D4
		DC.B	$C8
		DC.B	$D5
		DC.B	$C4
		DC.B	$CE
		DC.B	$CA
		EJECT
		TITLE	'ARCTANGENT FUNCTION.'
;USE IDENTITIES TO GET ARG BETWEEN 0 AND 1 AND THEN USE AN
;APPROXIMATION POLYNOMIAL TO COMPUTE ARCTAN(X).
ATN:		LDA	FACSGN	;WHAT IS SIGN?
		PHA		;(MEANWHILE SAVE FOR LATER.)
		BPL	ATN1
		JSR	NEGOP	;IF NEGATIVE, NEGATE FAC.
;USE ARCTAN(X)=-ARCTAN(-X) .
ATN1:		LDA	FACEXP
		PHA		;SAVE THIS TOO FOR LATER.
		CMP	#$81	;SEE IF FAC .GE. 1.0 .
		BCC	ATN2	;IT IS LESS THAN 1.
		LDA	#FONE
		LDY	#>FONE	;GET PNTR TO 1.0 .
		JSR	FDIV	;COMPUTE RECROCAL.
;USE ARCTAN(X)=PI/2-ARCTAN(1/X) .
ATN2:		LDA	#ATNCON
		LDY	#>ATNCON	;PNTR TO ARCTAN CONSTANTS.
		JSR	POLYX
		PLA
		CMP	#$81	;WAS ORIGINAL ARGUMENT .LT. 1 ?
		BCC	ATN3	;YES.
		LDA	#PI2
		LDY	#>PI2
		JSR	FSUB	;SUBTRACT ARCTAGN FROM PI/2.
ATN3:		PLA		;WAS ORIGINAL ARGUMENT POSITIVE?
		BPL	ATN4	;YES.
		JMP	NEGOP	;IF NEGATIVE, NEGATE RESULT.
ATN4:		RTS		;ALL DONE.
ATNCON:		DC.B	$0B	;DEGREE-1.
		DC.B	$76	; -.0006847939119
		DC.B	$B3
		DC.B	$83
		DC.B	$BD
		DC.B	$D3
		DC.B	$79	; .004850942156
		DC.B	$1E
		DC.B	$F4
		DC.B	$A6
		DC.B	$F5
		DC.B	$7B	; -.01611170184
		DC.B	$83
		DC.B	$FC
		DC.B	$B0
		DC.B	$10
		DC.B	$7C	; .03420963805
		DC.B	$0C
		DC.B	$1F
		DC.B	$67
		DC.B	$CA
		DC.B	$7C	; .-.05427913276
		DC.B	$DE
		DC.B	$53
		DC.B	$CB
		DC.B	$C1
		DC.B	$7D	; .07245719654
		DC.B	$14
		DC.B	$64
		DC.B	$70
		DC.B	$4C
		DC.B	$7D	; -.08980239538
		DC.B	$B7
		DC.B	$EA
		DC.B	$51
		DC.B	$7A
		DC.B	$7D	; .1109324134
		DC.B	$63
		DC.B	$30
		DC.B	$88
		DC.B	$7E
		DC.B	$7E	; -.1428398077
		DC.B	$92
		DC.B	$44
		DC.B	$99
		DC.B	$3A
		DC.B	$7E	; .1999991205
		DC.B	$4C
		DC.B	$CC
		DC.B	$91
		DC.B	$C7
		DC.B	$7F	; -.3333333157
		DC.B	$AA
		DC.B	$AA
		DC.B	$AA
		DC.B	$13
		DC.B	$81	; 1.000000000
		DC.B	$00
		DC.B	$00
		DC.B	$00
		DC.B	$00
		EJECT
		TITLE	'SYSTEM INITIALIZATION CODE.'
; THIS INITIALIZES THE BASIC INTERPRETER FOR THE M6502
; LOCATED WHERE IT WIL BE WIPED OUT IN RAM IF CODE IS ALIN 
;SO ZEROING AT TXTTAB DOESN'T PREVENT
;RESTARTING INIT
INITAT:		INC	CHRGET+7	;INCREMENT THE WHOLE TXTPTR.
		BNE	CHSGOT
		INC	CHRGET+8
CHSGOT:		LDA	60000	;A LOAD WITH AN EXT ADDR.
		CMP	#':'	;IS IT A ':'?
		BCS	CHSRTS	;IT IS .GE. ':'
		CMP	#' '	;SKIP SPACES.
		BEQ	INITAT
		SEC
		SBC	#'0'	;ALL CHARS .GT. '9' HAVE RET'D SO
		SEC
		SBC	#$100-'0'	;SEE IF NUMERIC.
;TURN CARRY ON IF NUMERIC.
;ALSO, SETZ IF NULL.
CHSRTS:		RTS		;RETURN TO CALLER.
		DC.B	128	;LOADED  FROM ROM.
		DC.B	79	;THE INITIAL RANDOM NUMBER.
		DC.B	199
		DC.B	82
		DC.B	88
INIT:		LDX	#255	;MAKE IT LOOK DIRECT IN CASE OF
		STX	CURLIN+1	;ERROR MESSAGE.
		LDX	#STKEND-256
		TXS
		LDA	#<INIT
		LDY	#>INIT	;ALLOW RESTART.
		STA	START+1
		STY	START+1+1
		STA	RDYJSR+1
		STY	RDYJSR+1+1	;RTS HERE ON ERRORS.
		JSR	SETNORM	;FOR NORMAL VIDEO
		LDA	#76	; A JUMP INSTRUCTION
		STA	START
		STA	RDYJSR
		STA	JMPER
		STA	USRPOK
		LDA	#<FCERR
		LDY	#>FCERR
		STA	USRPOK+1
		STY	USRPOK+1+1
;INTO THE PROGRAM
		LDX	#RNDX+4-CHRGET
MOVCHG:		LDA	INITAT-1,X
		STA	CHRGET-1,X	;MOVE TO RAM.
		STX	SPDBYT	;FOR FULL SPEED PRINTING
		DEX
		BNE	MOVCHG
		STX	TRFLAG	;TRACE OFF MODE.
		TXA		;SET CONST IN RAM.
		STA	BITS
		STA	LASTPT+1
		PHA		;PUT ZERO AT THE END OF THE STACK
;SO FNDFOR WILL STOP
		LDA	#STRSIZ
		STA	FOUR6
		JSR	CRDO	;TYPE A CR.
		LDA	#1
		STA	BUF-3	;SET PRE-BUF BYTES NON-ZERO FOR CHEAD
		STA	BUF-4
		LDX	#TEMPST
		STX	TEMPPT	;SET UP STRING TEMPORARIES.
		LDA	#<RAMLOC
		LDY	#RAMLOC/256
		STA	LINNUM
		STY	LINNUM+1
		LDY	#0
LOOPMM:		INC	LINNUM+1
LOOPM1:		LDA	(LINNUM),Y
		EOR	#$FF
		STA	(LINNUM),Y
		CMP	(LINNUM),Y
		BNE	USEDEC
		EOR	#$FF
		STA	(LINNUM),Y
		CMP	(LINNUM),Y
		BEQ	LOOPMM
USEDEC:		LDY	LINNUM
		LDA	LINNUM+1	;GET SIZE OF MEMORY INPUT.
USEDEF:		EQU	*	;HIGHEST ADDRESS.
		AND	#$F0
		STY	MEMSIZ
		STA	MEMSIZ+1	;THIS IS THE SIZE OF MEMORY.
		STY	FRETOP
		STA	FRETOP+1	;TOP OF STRINGS TOO.
ASKAGN:		EQU	*
		LDX	#<RAMLOC
		LDY	#RAMLOC/256
FINILOW:		STX	TXTTAB
		STY	TXTTAB+1
		LDY	#0
		STY	RNONLY
		TYA
		STA	(TXTTAB),Y	;SET UP TEXT TABLE.
		INC	TXTTAB
		BNE	QROOM
		INC	TXTTAB+1
QROOM:		LDA	TXTTAB
		LDY	TXTTAB+1	;PREPARE TO USE 'REASON'.
		JSR	REASON
		JSR	SCRTCH	;SET UP EVERYTHING ELSE.
		LDA	#<STROUT
		LDY	#>STROUT
		STA	RDYJSR+1
		STY	RDYJSR+1+1
		LDA	#<READY
		LDY	#>READY
		STA	START+1
		STY	START+1+1
		IF LOLLY <> 0 THEN
		DC.B	$6C	;JMP (INDIRECT)
		DC.W	START+1
		ELSE
		JMP	(START+1)
		ENDIF
		EJECT
		TITLE	'APPLESOFT EXTENSIONS'
CALL:		JSR	FRMNUM
		JSR	GETADR
		IF LOLLY <> 0 THEN
		DC.B	$6C	;JMP (INDIRECT)
		DC.W	POKER
		ELSE
		JMP	(POKER)	;GO TO USER ROUTINE
SETGR		EQU	$FB40
		ENDIF
		IF PLIST <> 0 THEN
		PRINT	ON
		ELSE
		ENDIF
SETTXT		EQU	$FB39
INPORT		EQU	$FE8B
OUTPORT		EQU	$FE95
INNUMB:		JSR	GETBYT	;GET PORT NUMBR
		TXA		;INTO A
		JMP	INPORT
PRNUMB:		JSR	GETBYT
		TXA
		JMP	OUTPORT
		IF LOLLY <> 0 THEN
XMAX		EQU	$50
		ELSE
XMAX		EQU	$30
		ENDIF
PLOTFNS:		JSR	GETBYT
		CPX	#XMAX
		BCS	TOOBIG
		STX	FIRST
		LDA	#$2C	;ARGS MUST BE SEPERATED BY COMMA
		JSR	SYNCHR
		JSR	GETBYT	;GET SECOND ARG
		IF CORTLAND <> 0 THEN
		CPX	#48	;48 is correct for Cortland
		ELSE
		CPX	#XMAX
		ENDIF
		BCS	TOOBIG	;BRANCH IF ILLEGAL PLOT 
		STX	H2
		STX	V2	;BOTH ARGS
		RTS
TOOBIG:		JMP	FCERR
ATFNS:		JSR	PLOTFNS
ATFNS2		EQU	*	;Cortland HLIN return entry point
		CPX	FIRST	;ARGS IN RIGHT ORDER?
		BCS	RGHTORD
		LDA	FIRST
		STA	H2
		STA	V2
		STX	FIRST
RGHTORD:		LDA	#ATTKN
		JSR	SYNCHR
		JSR	GETBYT
		CPX	#XMAX	;LAST COORD OK?
		BCS	TOOBIG
		RTS
PLOT:		JSR	PLOTFNS
		IF LOLLY <> 0 THEN
		LDY	FIRST	;Y-REG=X-COORDINATE
		JSR	XBOUND
		TXA		;ACC=Y-COORD
		JMP	PLOTDO
		ELSE
HLINE		EQU	$F819
PLOTDO		EQU	$F800
		TXA		;ACC=Y-COORD
		LDY	FIRST	;Y-REG=X-COORDINATE
		CPY	#40	;OUT OF RANGE
		BCS	TOOBIG
		JMP	PLOTDO
		ENDIF
	IF LOLLY <> 0  THEN
		DC.B	$00	;Was BRK
HLIN:		EQU	*
	IF CORTLAND <> 0 THEN
SPATFNS		EQU	$F8D9	;Patches to fix ATFNS for HLIN
		JSR	SPATFNS
	ELSE
		JSR	ATFNS
	ENDIF
	ENDIF
		IF LOLLY <> 0 THEN
		LDY	H2	;THIRD ARG IN ACC
		JSR	XBOUND
		CPX	#48
		BCS	TOOBIG
		ELSE
HLIN:		JSR	ATFNS
		TXA		;THIRD ARG IN ACC
		LDY	H2
		CPY	#40
		BCS	TOOBIG
		LDY	FIRST
		ENDIF
		JMP	HLINE
		IF LOLLY <> 0 THEN
VLIN		JSR	ATFNS
		TXA
		TAY
		JSR	XBOUND
		LDA	FIRST
		JMP	VLINXX
		DC.B	$00	;Was BRK
		ELSE
VLINE		EQU	$F828
VLIN:		JSR	ATFNS
		TXA
		TAY		;THIRD ARG IN Y-REG
		CPY	#40
		BCS	TOOBIG
		LDA	FIRST
		JMP	VLINE
		ENDIF
COLORE:		JSR	GETBYT
		TXA		;COLOR TO A-REG.
		JMP	SETCOL
		IF PLIST <> 0 THEN
		PRINT	OFF
		ELSE
		ENDIF
SETCOL:		EQU	$F864
VTAB		JSR	GETBYT
		DEX
		TXA		;PREPARE FOR TABV SUBR.
		CMP	#$18	;OFF OF SCREEN?
		BCS	TOOBIG
		JMP	TABV
TABV		EQU	$FB5B
SETSPD:		JSR	GETBYT
		TXA		;FOR OUTPUT SPEED
		EOR	#$FF
		TAX
		INX
		STX	SPDBYT
		RTS
SETTRACE:		SEC
		DC.B	$90	;was BCC	SETTRACE : ORG *-1
TRACEOFF:		CLC		;ADJUST TRFLAG FOR TRACE.
		ROR	TRFLAG
		RTS		;BACK TO CALLER.
*
SETNORM:		LDA	#$FF
		BNE	SETTYPE
INVERSE:		LDA	#$3F
SETTYPE:		LDX	#$00
SETMODE:		STA	INVFLG
		STX	ORMASK
		RTS
FLASH:		LDA	#$7F
		LDX	#$40
		BNE	SETMODE	;ALWAYS TAKEN
*
HIMEMSET:		JSR	FRMNUM	;GET ARG FOR HIMEM:
		JSR	GETADR
		LDA	POKER	;PROGRAM OVERFLOW?
		CMP	STREND
		LDA	POKER+1
		SBC	STREND+1
		BCS	DOSET
MEMFULL:		JMP	OMERR
DOSET:		LDA	POKER
		STA	MEMSIZ
		STA	FRETOP
		LDA	POKER+1
		STA	MEMSIZ+1
		STA	FRETOP+1
		RTS
LOMEMSET:		JSR	FRMNUM
		JSR	GETADR
		LDA	POKER
		CMP	MEMSIZ
		LDA	POKER+1
		SBC	MEMSIZ+1
		BCS	MEMFULL
		LDA	POKER
		CMP	VARTAB
		LDA	POKER+1
		SBC	VARTAB+1
		BCC	MEMFULL
		LDA	POKER
		STA	VARTAB
		LDA	POKER+1
		STA	VARTAB+1
		JMP	CLEARC
ONERR:		LDA	#GOTOTK	;ON ERR GOTO?
		JSR	SYNCHR	;IF NOT, BLOW HIM UP
		LDA	TXTPTR	;SAVE FOR ERRHNDL
		STA	ERRTO
		LDA	TXTPTR+1
		STA	ERRTO+1
		SEC		;ROTATE IN.
		ROR	ERRFLG
		LDA	CURLIN	;ALL INFO FOR 'GOTO' COMMAND
		STA	ERRTO+2
		LDA	CURLIN+1
		STA	ERRTO+3
		JSR	REMN	;SKIP REST OF LINE.
		JMP	ADDON	;FINISH.
HNDLERR:		STX	ERRNUM
		LDX	REMSTK	;PRESERVE STACK POINTER
		STX	ERRSTK	;FOR 'RESUME' STATEMENT
		LDA	CURLIN	;FOR RESUME
		STA	ERRLIN
		LDA	CURLIN+1
		STA	ERRLIN+1
		LDA	OLDTXT
		STA	ERRPOS
		LDA	OLDTXT+1
		STA	ERRPOS+1
* ALL USER INFO NOW THERE.
		LDA	ERRTO
		STA	TXTPTR
		LDA	ERRTO+1
		STA	TXTPTR+1
		LDA	ERRTO+2
		STA	CURLIN
		LDA	ERRTO+3
		STA	CURLIN+1
		JSR	CHRGOT	;FOR STATUS
		JSR	GOTO	;NOW DISPATCH, THEN
		JMP	NEWSTT	;BACK TO NEWSTT.
RESUME:		LDA	ERRLIN
		STA	CURLIN
		LDA	ERRLIN+1
		STA	CURLIN+1
		LDA	ERRPOS
		STA	TXTPTR
		LDA	ERRPOS+1
		STA	TXTPTR+1
		LDX	ERRSTK	;RESTORE STACK POINTER.
		TXS		;FOR REST OF BASIC.
		JMP	NEWSTT	;BACK TO TRY AGAIN.....
BLOWEM:		JMP	SNERR
DELETE:		BCS	BLOWEM	;IF NOT A DIGIT.
		LDX	PRGEND	;FOR LOMEM:
		STX	VARTAB
		LDX	PRGEND+1
		STX	VARTAB+1
		JSR	LINGET	;READ THE LINE NUMBER INTO LINNUM.
		JSR	FNDLIN
		LDA	LOWTR	;PREPARE FOR MOVE.
		STA	INDEX2
		LDA	LOWTR+1
		STA	INDEX2+1
		LDA	#$2C
		JSR	SYNCHR
		JSR	LINGET	;MUST HAVE TWO ARGS.
		INC	LINNUM	;INCLUSIVE DELETE.
		BNE	*+4
		INC	LINNUM+1
		JSR	FNDLIN	;GET THIS LINE.
;CHECK FOR BACKWARDS DELETE
		LDA	LOWTR	;IS LOWTR>=INDEX2
		CMP	INDEX2	;IF SO ;DO NOTHING
		LDA	LOWTR+1
		SBC	INDEX2+1
		BCS	*+3
		RTS
;NOW MOVE: (INDEX1)<(LOWTR).(VARTAB)M
		LDY	#0
MOVEDEL:		LDA	(LOWTR),Y	;TRANSFER A BYTE.
		STA	(INDEX2),Y
		INC	LOWTR	;NEXT LOCATIONS...
		BNE	*+4
		INC	LOWTR+1
		INC	INDEX2
		BNE	*+4
		INC	INDEX2+1
		LDA	VARTAB
		CMP	LOWTR	;DONE WITH MOVE?
		LDA	VARTAB+1
		SBC	LOWTR+1
		BCS	MOVEDEL	;IF LESS THAN OR EQUAL, CONT.
		LDX	INDEX2+1
		LDY	INDEX2
		BNE	*+3
		DEX
		DEY
		STX	VARTAB+1	;END OF PROGRAM
		STY	VARTAB
		JMP	FINI	;FINISH IT OFF.
		IF PLIST <> 0 THEN
		PRINT	ON
		ELSE
		ENDIF
LORES:		EQU	$C056
MSETGR:		LDA	LORES
		LDA	MIXSET
		JMP	SETGR	;NOW INTO LOW-RESOLUTION
MSETTXT:		LDA	LOPAGE
		JMP	SETTXT
	IF LOLLY <> 0 THEN
PLOTDO		LSR	A
		PHP		;THIS STUFF STOLEN FROM MONITOR GR ROUTINES
		JSR	GBASCALC
		PLP
		LDA	#$F
		BCC	RTMASK
		ADC	#$E0	;FORMS $F0 WITH CARRY CLEAR
RTMASK		STA	MASK
PLOT1		PHY		;OTHER ROUTINES ENTER HERE 
		JSR	VIDSETY	;TEST FOR DOUBLE GR, SET Y 
		BCC	PLOT3	;BRANCH IF REG GR 
		PHX		;SAVE X ON TOP OF STACK 
		LDA	COLOR	;MUST MUCK WITH COLORS IN ALT BANK 
		TAX		;SAVE IN X FOR LATER COLOR RESTORE 
		LSR	A
		TXA		;ROTATE 8 BITS RIGHT
		ROR	A
		SEC		;RESET CARRY FOR ALT PAGE INDICATOR
		STA	COLOR
PLOT3		EQU	*
		JSR	ROMPLOT	;GO PLOT THE DOT 
		BCC	PLOT4	;BRANCH IF NOT SPECIAL HANDLED
		LDA	$C054
		STX	COLOR	;RESTORE UNTRANSLATED COLOR
		PLX		;RESTORE ORIGINAL X
		CLC		;PLOT ALWAYS RETURNS CARRY CLEAR.
PLOT4		PLY		;RESTORE ORIGINAL Y
		RTS
VIDSTATE		EQU	*
	ENDIF
	IF LOLLY <> 0 THEN
	IF CORTLAND <> 0 THEN
GETAN3STATUS	EQU	$F93A	;Let Cortland monitor get AN3
		JSR	GETAN3STATUS	;Get AN3 status in bit 7
	ELSE
		LDA	$C079	;GET STATE OF DOUBLE GR
	ENDIF
	ENDIF
	IF LOLLY <> 0 THEN

		EOR	#$80
		AND	$C018	;80-STORE MUST ALSO BE ENABLED 
		AND	$C01F
		ASL	A	;RETURN IN CARRY
		RTS
*
FILL_SIZE02	EQU	APPLESOFT+$23D8-*
	IF FILL_SIZE02 > 0	THEN
		DCB.B	FILL_SIZE02,0	;MAKE EM BREAKS
	ENDIF
	ELSE
;THIS IS THE 'STORE' ROUTINE.
;START=NAME POS.+#DIMS*2+5
;END  =NAME POS.+LENGTH -1
;
;'RECALL' IS SIMILAR. (SHARES ROUTINES)
;
;
STORE:		JSR	GETARYPT	;SET UP.
		LDY	#3
		LDA	(LOWTR),Y	;GET LENGTH
		TAX		;X=HIGH
		DEY
		LDA	(LOWTR),Y
		SBC	#01	;SHOULD IT BE A 3 ??
		BCS	*+3
		DEX
		STA	POKER
		STX	POKER+1
		JSR	C_COUT	;WRITE LEN TO CASSETTE
		JSR	DOPTRS
		JMP	C_COUT
;
; NOW I RECALL....
;
RECALL:		JSR	GETARYPT
		JSR	C_CSIN	;GET LEN OF FILE
		LDY	#2
		LDA	(LOWTR),Y	;TOO BIG?
		CMP	POKER
		INY		;COMPARE HIGHS.
		LDA	(LOWTR),Y
		SBC	POKER+1
		BCS	*+5	;IF ENOUGH ROOM
		JMP	OMERR	;JUST TOO BIG!!
		JSR	DOPTRS
		JMP	C_CSIN
	ENDIF
		IF PLIST <> 0 THEN
		PRINT	OFF
		ELSE
		ENDIF
;TITLE "APPLE II HI-RES GRAPHICS ROUTINES"
**************************
*                        *
* APPLE-II HI-RESOLUTION * 
*  GRAPHICS SUBROUTINES  * 
*                        * 
*    BY WOZ   9/13/77    * 
*                        *
*  ALL RIGHTS RESERVED   *
*                        * 
**************************
		EJECT
		TITLE	'HI-RES EQUATES'
SHAPEL		EQU	$1A	;POINTER TO
SHAPEH		EQU	$1B	;SHAPE LIST 
HCOLOR1		EQU	$1C	;RUNNING COLOR MASK
COUNTH		EQU	$1D
HBASL		EQU	$26	;BASE ADR FOR CURRENT
HBASH		EQU	$27	;HI-RES PLOT LINE. A
HMASK		EQU	$30
A1L		EQU	$3C	;MONITOR A1.
A1H		EQU	$3D
A2L		EQU	$3E	;MONITOR A2.
A2H		EQU	$3F
LOMEML		EQU	$4A	;BASIC 'START OF VARS'.
LOMEMH		EQU	$4B
DXL		EQU	$D0	;DELTA-X FOR HLIN, SHAPE.
DXH		EQU	$D1
SHAPEX		EQU	$D1	;SHAPE TEMP.
DY		EQU	$D2	;DELTA-Y FOR HLIN, SHAPE.
QDRNT		EQU	$D3	;ROT QUADRANT (SHAPE).
EL		EQU	$D4	;ERROR FOR HLIN.
EH		EQU	$D5
X0L		EQU	$E0	;PRIOR X-COORD SAVE
X0H		EQU	$E1	;AFTER HLIN OR HPLOT.
Y0		EQU	$E2	;HLIN, HPLOT Y-COORD SAVE.
HCOLOR		EQU	$E4	;COLOR FOR HPLOT, HPOSN
HNDX		EQU	$E5	;HORIZ OFFSET SAVE.
HPAG		EQU	$E6	;HI-RES PAGE ($20 NORMAL)
SCALE		EQU	$E7	;SCALE FOR SHAPE, MOVE.
SHAPXL		EQU	$E8	;START OF
SHAPXH		EQU	$E9	;SHAPE TABLE.
COLLSN		EQU	$EA	;COLLISION COUNT.
ROTBYT		EQU	$F9	;HOLD ROTATION FACTOR >>>UNDOCUMENTED ZPG BYTE<<<
SHSTRT		EQU	$C00	;START OF SHAPE TABLE.
HIRES		EQU	$C057	;SWITCH TO HI-RES VIDEO
MIXSET		EQU	$C053	;SELECT TEXT/GRAPHICS 
TXTCLR		EQU	$C050	;SELECT GRAPHICS MODE.
ACADR		EQU	$F11E	;2-BYTE TAPE READ SETUP.
	IF A2E+LOLLY+CORTLAND <> 0 THEN		;Do for enhanced //e and //c
		ELSE
RD2BIT		EQU	$FCFA	;TWO-EDGE TAPE SENSE.
READX1		EQU	$FF02	;READ WITHOUT HEADER.
	ENDIF
LOPAGE		EQU	$C054	;FOR PRIMARY PAGE.
HIPAGE		EQU	$C055	;FOR SECONDARY PAGE.
FULSET		EQU	$C052	;WHOLE SCREEN GRAPHICS
		EJECT
		TITLE	'HIGH RESOLUTION GRAPHICS INITS'
*
* MICROSOFT VERSION
*
SETHRH:		BIT	HIPAGE	;DISPLAY SECOND PAGE.
		BIT	FULSET
		LDA	#$40
		BNE	SET	;ALWAYS TAKEN.
SETHRL		LDA	#$20	;INIT FOR $2000-3FFF
		BIT	LOPAGE
		BIT	MIXSET
SET:		STA	HPAG	;HI-RES SCREEN MEMORY.
		LDA	HIRES	;SET HIRES DISPLAY MODE
		LDA	TXTCLR	;SET GRAPHICS DISPLAY
HCLR		LDA	#$0
BKGNDO		STA	HCOLOR1	;SET FOR BLACK BKGND.
BKGND		LDA	HPAG
		STA	SHAPEH	;INIT HI-RES SCREEN MEM
		LDY	#$0	;FOR CURRENT PAGE, NORMALLY
		STY	SHAPEL	;$2000-3FFF OR $4000-5FFF
BKGND1		LDA	HCOLOR1
		STA	(SHAPEL),Y
		JSR	CSHFT2	;(SHAPEL,H) WILL SPECIFY
		INY		;32 SEPARATE PAGES.
		BNE	BKGND1	;THROUGHOUT THE INIT.
		INC	SHAPEH
		LDA	SHAPEH
		AND	#$1F	;TEST FOR DONE.
		BNE	BKGND1
		RTS
		EJECT
		TITLE	'HI-RES POSITION AND PLOT'
HPOSN		STA	Y0	;ENTER WITH Y IN A-REG,
		STX	X0L	;XL IN X-REG,
		STY	X0H	;AND XH IN Y-REG.
		PHA
		AND	#$C0
		STA	HBASL	;FOR Y-COORD = OOABCDEF. 
		LSR	A	;CALCULATES BASE ADDRESS.
		LSR	A	;IN HBASL, HBASH FOR
		ORA	HBASL	;ACCESSING SCREEN MEM
		STA	HBASL	;VIA (HBASL),Y ADDRESSING MODE
		PLA
		STA	HBASH
		ASL	A	;CALCULATES
		ASL	A	;HBASH = PPPFGHCD,
		ASL	A	;HBASL = EABAB000
		ROL	HBASH
		ASL	A	;WHERE PPP=001 FOR $2000.3FFF
		ROL	HBASH	;SCREEN MEM RANGE AND
		ASL	A	;PPP=010 FOR $4000-7FFF
		ROR	HBASL	;(GIVEN Y-COORD=ABCDEFGH)
		LDA	HBASH
		AND	#$1F
		ORA	HPAG
		STA	HBASH
		TXA		;DIVIDE X0 BY 7 FOR
		CPY	#$0	;INDEX FROM BASE ADR
		BEQ	HPOSN2	;(QUOTIENT) AND BIT
		LDY	#$23	;WITHIN SCREEN MEM B
		ADC	#$4	;(MASK SPEC'D BY REMAINDER) 
HPOSN1		INY
HPOSN2		SBC	#$7	;SUBTRACT OUT SEVENS.
		BCS	HPOSN1
		STY	HNDX	;WORKS FOR XO FROM
		TAX		;0 TO 279, LOW-ORDER
		LDA	MSKTBL-$F9,X	;BYTE IN X-REG,
		STA	HMASK	;HIGH IN Y-REG ON ENTRY
		TYA
		LSR	A	;IF ON ODD BYTE (CARRY
		LDA	HCOLOR	;THEN ROTATE HCOLOR
HPOSN3		STA	HCOLOR1	;BIT FOR 180 DEGREE
		BCS	CSHFT2	;PRIOR TO COPYING TO
		RTS
HPLOT		JSR	HPOSN
HPLOT1		LDA	HCOLOR1	;CALC BIT POSN IN HBAS
		EOR	(HBASL),Y	;HNDX, AND HMASK FROM
		AND	HMASK	;Y-COORD IN A-REG,
		EOR	(HBASL),Y	;X-COORD IN X,Y-REGS.
		STA	(HBASL),Y	;FOR ANY 'L' BITS OF H
		RTS		;SUBSTITUTE CORRESPONDING 
* BIT OF HCOLOR1.
		EJECT
		TITLE	'HI-RES GRAPHICS L,R,U,D SUBRS'
LFTRT		BPL	RIGHT	;USE SIGN FOR LFT/RT S
LEFT		LDA	HMASK
		LSR	A	;SHIFT LOW-ORDER
		BCS	LEFT1	;7 BITS OF HMASK
		EOR	#$C0	;ONE BIT TO LSB.
LR1		STA	HMASK
		RTS
LEFT1		DEY		;DECR HORIZ INDEX.
		BPL	LEFT2
		LDY	#$27	;WRAP AROUND SCREEN.
LEFT2		LDA	#$C0	;NEW HMASK, RIGHTMOST
NEWNDX		STA	HMASK	;DOT OF BYTE.
		STY	HNDX	;UPDATE HORIZ INDEX.
CSHIFT		LDA	HCOLOR1
CSHFT2		ASL	A	;ROTATE LOW-ORDER
		CMP	#$C0	;7 BITS OF HCOLOR1
		BPL	RTS1	;ONE BIT POSN.
		LDA	HCOLOR1
		EOR	#$7F	;ZXYXYXYX -> ZYXYXYXY
		STA	HCOLOR1
RTS1		RTS
RIGHT		LDA	HMASK
		ASL	A	;SHIFT LOW-ORDER
		EOR	#$80	;7 BITS OF HMASK
		BMI	LR1	;ONE BIT TO MSB.
		LDA	#$81
		INY		;NEXT BYTE.
		CPY	#$28
		BCC	NEWNDX
		LDY	#$0	;WRAP AROUND SCREEN IF
		BCS	NEWNDX	;ALWAYS TAKEN.
		EJECT
		TITLE	'L,R,U,D, SUBROUTINES.'
LRUDX1		CLC		;NO 90 DEG ROT (X-OR).
LRUDX2		LDA	SHAPEX
		AND	#$4	;IF B2=0 THEN NO PLOT.
		BEQ	LRUD4
		LDA	#$7F	;FOR EX-OR INTO SCREEN
		AND	HMASK
		AND	(HBASL),Y	;SCREEN BIT SET?
		BNE	LRUD3
		INC	COLLSN
		LDA	#$7F
		AND	HMASK
		BPL	LRUD3	;ALWAYS TAKEN.
LRUD1		CLC		;NO 90 DEG ROT.
LRUD2		LDA	SHAPEX
		AND	#$4	;IF B2=0 THEN NO PLOT.
		BEQ	LRUD4
		LDA	(HBASL),Y
		EOR	HCOLOR1	;SET HI-RES SCREEN BIT
		AND	HMASK	;TO CORRESPONDING HC
		BNE	LRUD3	;IF BIT OF SCREEN CHAN
		INC	COLLSN	;THEN INCR COLLSN DE
LRUD3		EOR	(HBASL),Y
		STA	(HBASL),Y
LRUD4		LDA	SHAPEX	;ADD QDRNT TO
		ADC	QDRNT	;SPECIFIED VECTOR
		AND	#$3	;AND MOVE LFT, RT,
EQ3		EQU	*-1	;UP, OR DWN BASED
		CMP	#$2	;ON SIGN AND CARRY.
		ROR	A
LRUD		BCS	LFTRT
UPDWN		BMI	DOWN4	;SIGN FOR UP/DWN SELECT
UP		CLC
		LDA	HBASH	;CALC BASE ADDRESS
		BIT	EQ1C	;(ADR OF LEFTMOST BYTE)
		BNE	UP4	;FOR NEXT LINE UP
		ASL	HBASL	;IN (HBASL, HBASH)
		BCS	UP2	;WITH 192-LINE WRAPA
		BIT	EQ3
		BEQ	UP1
		ADC	#$1F	;**** BIT MAP ****
		SEC
		BCS	UP3	;FOR ROW = ABCDEFGH,
UP1		ADC	#$23
		PHA
		LDA	HBASL	;HBASL = EABABOOO
		ADC	#$B0	;HBASH = PPPFGHCD
		BCS	UP5
		ADC	#$F0	;WHERE PPP=001 FOR PRIMARY
UP5		STA	HBASL	;HI-RES PAGE ($2000-
		PLA
		BCS	UP3
UP2		ADC	#$1F
UP3		ROR	HBASL
UP4		ADC	#$FC
UPDWN1		STA	HBASH
		RTS
DOWN		CLC
DOWN4		LDA	HBASH
		ADC	#$4	;CALC BASE ADR FOR NEX
EQ4		EQU	*-1	;DOWN TO (HBASL,HBAS
		BIT	EQ1C
		BNE	UPDWN1
		ASL	HBASL	;WITH 192-LINE WRAPA
		BCC	DOWN1
		ADC	#$E0
		CLC
		BIT	EQ4
		BEQ	DOWN2
		LDA	HBASL
		ADC	#$50
		EOR	#$F0
		BEQ	DOWN3
		EOR	#$F0
DOWN3		STA	HBASL
		LDA	HPAG
		BCC	DOWN2
DOWN1		ADC	#$E0
DOWN2		ROR	HBASL
		BCC	UPDWN1
		EJECT
		TITLE	'HI-RES GRAPHICS LINE DRAW SUBRS'
HLINRL		PHA
		LDA	#$0	;SET (X0L,X0H) AND
		STA	X0L	;Y0 TO ZERO FOR
		STA	X0H	;REL LINE DRAW
		STA	Y0	;(DX, DY).
		PLA
HILIN		PHA		;ON ENTRY
		SEC		;XL: A-REG
		SBC	X0L	;XH; X-REG
		PHA		;Y: Y-REG
		TXA
		SBC	X0H
		STA	QDRNT	;CALC ABS(X-XO)
		BCS	HLIN2	;IN (DXL,DXH)
		PLA
		EOR	#$FF	;X DIR TO SIGN BIT
		ADC	#$1	;OF QDRNT.
		PHA		;0=RIGHT (DX POS)
		LDA	#$0	;1=LEFT (DX NEG)
		SBC	QDRNT
HLIN2		STA	DXH
		STA	EH	;INIT (EL,EH) TO
		PLA		;ABS(X-X0)
		STA	DXL
		STA	EL
		PLA
		STA	X0L
		STX	X0H
		TYA
		CLC
		SBC	Y0	;CALC -ABS(Y-O)-1
		BCC	HLIN3	;IN DY.
		EOR	#$FF
		ADC	#$FE
HLIN3		STA	DY	;ROTATE Y DIR INTO
		STY	Y0	;QDRNT SIGN BIT
		ROR	QDRNT	;(0=UP, 1=DOWN)
		SEC
		SBC	DXL	;INIT (COUNTL, COUNTH).
		TAX		;TO -(DELTX+DELTY+1)
		LDA	#$FF
		SBC	DXH
		STA	COUNTH
		LDY	HNDX	;HORIZ INDEX
		BCS	MOVEX2	;ALWAYS TAKEN.
MOVEX		ASL	A	;MOVE IN X-DIR. USE
		JSR	LFTRT	;QDRNT B6 FOR LFT/RT
		SEC
MOVEX2		LDA	EL	;ASSUME CARRY SET.
		ADC	DY	;(EL,EH)-DELTY TO (EL,
		STA	EL	;NOTE: DY IS (-DELTY)-1
		LDA	EH	;CARRY CLR IF (EL,EH)
		SBC	#$0	;GOES NEG.
HCOUNT		STA	EH
		LDA	(HBASL),Y	;SCREEN BYTE.
		EOR	HCOLOR1	;PLOT DOT OF HCOLOR1.
		AND	HMASK	;CURRENT BIT MASK.
		EOR	(HBASL),Y
		STA	(HBASL),Y
		INX		;DONE (DELTX+DELTY)
		BNE	HLIN4	;DOTS?
		INC	COUNTH
		BEQ	RTS2	;YES, RETURN.
HLIN4		LDA	QDRNT	;FOR DIRECTION TEST
		BCS	MOVEX	;IF CAR SET, (EL, EH) P
		JSR	UPDWN	;IF CLR, NEG, MOVE Y
		CLC
		LDA	EL	;(EL,EH)+DELTX
		ADC	DXL	;TO (EL,EH).
		STA	EL
		LDA	EH	;CAR SET IF (EL,EH) GO
		ADC	DXH
		BVC	HCOUNT	;ALWAYS TAKEN.
MSKTBL		DC.B	$81	;LEFTMOST BIT OF BYTE.
		DC.B	$82,$84,$88
		DC.B	$90,$A0
		DC.B	$C0	;RIGHTMOST BIT OF BYTE.
EQ1C		DC.B	$1C
COSTABL		DC.B	$FF,$FE,$FA,$F4
		DC.B	$EC,$E1,$D4,$C5
		DC.B	$B4
		DC.B	$A1,$8D,$78,$61
		DC.B	$49,$31,$18,$FF
		EJECT
		TITLE	'HI-RES GRAPHICS COORD RESTORE'
HFIND		LDA	HBASL
		ASL	A	;CONVERTS BASE ADR
		LDA	HBASH	;TO Y-COORD.
		AND	#$3
		ROL	A	;FOR HBASL = EABABOOO
		ORA	HBASL	;HBASH = PPPFGHCD
		ASL	A
		ASL	A	;GENERATE
		ASL	A	;Y-COORD = ABCDEFGH
		STA	Y0
		LDA	HBASH	;(PPP=SCREEN PAFE,
		LSR	A	;NORMALLY 001 FOR
		LSR	A	;$2000-$3FFF
		AND	#$7	;HI-RES SCREEN)
		ORA	Y0
		STA	Y0	;CONVERTS HNDX (INDEX
		LDA	HNDX	;FROM BASE ADR)
		ASL	A	;AND HMASK (BIT
		ADC	HNDX	;MASK) TO X-COORD
		ASL	A	;IN (XOL,XOH)
		TAX		;(RANGE $0-$133)
		DEX
		LDA	HMASK
		AND	#$7F
HFIND1		INX
		LSR	A
		BNE	HFIND1
		STA	X0H
		TXA
		CLC		;CALC HNDX*7 +
		ADC	HNDX	;LOG (BASE 2) HMASK.
		BCC	HFIND2
		INC	X0H
HFIND2		STA	X0L
RTS2		RTS
		EJECT
		TITLE	'HI-RES GRAPHICS SHAPE DRAW SUBR'
*
* SHAPE DRAW
* R = O TO 63
* SCALE FACTOR USED (1=NORMAL)
*
DRAW		STX	SHAPEL	;DRAW DEFINITION
		STY	SHAPEH	;POINTER.
DRAW1		TAX
		LSR	A	;ROT ($0-$3F)
		LSR	A
		LSR	A	;QDRNT 0=UP, 1=RT,
		LSR	A	;2=DWN, 3=LFT.
		STA	QDRNT
		TXA
		AND	#$F
		TAX
		LDY	COSTABL,X	;SAVE COS AND SIN
		STY	DXL	;VALS IN DXL AND DY.
		EOR	#$F
		TAX
		LDY	COSTABL+1,X
		INY
		STY	DY
DRAW2		LDY	HNDX	;BYTE INDEX FROM
		LDX	#$0	;HI-RES BASE ADR.
		STX	COLLSN	;CLEAR COLLISION COUNT.
		LDA	(SHAPEL,X)	;1ST SHAPE DEF BYTE.
DRAW3		STA	SHAPEX
		LDX	#$80
		STX	EL	;EL,EH FOR FRACTIONAL
		STX	EH	;L,R,U,D VECTORS.
		LDX	SCALE	;SCALE FACTOR.
DRAW4		LDA	EL
		SEC		;IF FRAC COS OVFL
		ADC	DXL	;THEN MOVE IN
		STA	EL	;SPECIFIED VECTOR
		BCC	DRAW5	;DIRECTION.
		JSR	LRUD1
		CLC
DRAW5		LDA	EH	;IF FRAC SIN OVFL
		ADC	DY	;THEN MOVE IN
		STA	EH	;SPECIFIED VECTOR
		BCC	DRAW6	;DIRECTION +90 DEG.
		JSR	LRUD2
DRAW6		DEX		;LOOP ON SCALE
		BNE	DRAW4	;FACTOR.
		LDA	SHAPEX
		LSR	A	;NEXT 3-BIT VECTOR
		LSR	A	;OF SHAPE DEF.
		LSR	A
		BNE	DRAW3	;NOT DONE THIS BYTE.
		INC	SHAPEL
		BNE	DRAW7	;NEXT BYTE OF
		INC	SHAPEH	;SHAPE DEFINITION.
DRAW7		LDA	(SHAPEL,X)
		BNE	DRAW3	;DONE IF ZERO.
		RTS
		EJECT
		TITLE	'HI-RES GRAPHICS SHAPE EX-OR SUBR'
*
* EX-OR SHAPE INTO SCREEN. 
*
* ROT = 0 TO 3 (QUADRANT ONLY)
* SCALE IS USED
*
XDRAW		STX	SHAPEL	;SHAPE DEFINITION
		STY	SHAPEH	;POINTER.
XDRAW1		TAX
		LSR	A	;ROT ($0-$3F)
		LSR	A
		LSR	A	;QDRNT 0=UP, 1=RT,
		LSR	A	;2=DWN, 3=LFT.
		STA	QDRNT
		TXA
		AND	#$F
		TAX
		LDY	COSTABL,X	;SAVE COS AND SIN
		STY	DXL	;VALS IN DXL AND DY,
		EOR	#$F
		TAX
		LDY	COSTABL+1,X
		INY
		STY	DY
XDRAW2		LDY	HNDX	;INDEX FROM HI-RES
		LDX	#$0	;BASE ADR.
		STX	COLLSN	;CLEAR COLLISION DETECT
		LDA	(SHAPEL,X)	;1ST SHAPE DEF BYTE.
XDRAW3		STA	SHAPEX
		LDX	#$80
		STX	EL	;EL,EH FOR FRACTIONAL 
		STX	EH	;L,R,U,D, VECTORS.
		LDX	SCALE	;SCALE FACTOR.
XDRAW4		LDA	EL
		SEC		;IF FRAC COS OVFL
		ADC	DXL	;THEN MOVE IN
		STA	EL	;SPECIFIED VECTOR
		BCC	XDRAW5	;DIRECTION
		JSR	LRUDX1
		CLC
XDRAW5		LDA	EH	;IF FRAC SIN OVFL
		ADC	DY	;THEN MOVE IN
		STA	EH	;SPECIFIED VECTOR
		BCC	XDRAW6	;DIRECTION +90 DEG.
		JSR	LRUDX2
XDRAW6		DEX		;LOOP ON SCALE
		BNE	XDRAW4	;FACTOR.
		LDA	SHAPEX
		LSR	A	;NEXT 3-BIT VECTOR
		LSR	A	;OF SHAPE DEF.
		LSR	A
		BNE	XDRAW3
		INC	SHAPEL
		BNE	XDRAW7	;NEXT BYTE OF
		INC	SHAPEH	;SHAPE DEF.
XDRAW7		LDA	(SHAPEL,X)
		BNE	XDRAW3	;DONE IF ZERO.
		RTS
HFNS:		JSR	FRMNUM	;GET X-ARG
		JSR	GETADR
		LDY	POKER+1
		LDX	POKER
		CPY	#1	;X<280
		BCC	HOK	;IF LESS THAN 256, FINE
		BNE	HTOOBIG
		CPX	#24
		BCS	HTOOBIG
HOK:		TXA		;SAVE COORDS.
		PHA
		TYA
		PHA
		LDA	#$2C	;COMMA MUST SEPERATE ARGS.
		JSR	SYNCHR
		JSR	GETBYT	;GET Y-ARG.
		CPX	#192
		BCS	HTOOBIG
		STX	FAC	;ALL REGS. CORRECT
		PLA
		TAY
		PLA
		TAX
		LDA	FAC
		RTS
HTOOBIG:		JMP	TOOBIG	;ERROR.
SETHCOL:		JSR	GETBYT
		CPX	#8	;COLOR=0 TO 7
		BCS	HTOOBIG	;BLOW UP!
		LDA	COLRTAB,X
		STA	HCOLOR
MINERTS:		RTS
COLRTAB:		DC.B	0,42,85,127
		DC.B	128,170,213,255
LINE:		CMP	#TOTK	;LINE TO X,Y?
		BEQ	LINETO
		JSR	HFNS
		JSR	HPLOT
LINEAGAIN:	JSR	CHRGOT	;IS IT FOR A LINE?
		CMP	#TOTK
		BNE	MINERTS
LINETO:		JSR	SYNCHR
		JSR	HFNS
		STY	FAC	;REARRANGE REGISTERS FOR LINE DRAW
		TAY
		TXA
		LDX	FAC
		JSR	HILIN	;GO THROUGH WOZ'S ROUTINE
		JMP	LINEAGAIN	;CHECK FOR AN EXTRA 'TO'
SETROT:		JSR	GETBYT	;SET HI-RES ROTATION
		STX	ROTBYT
		RTS
SETSCALE:		JSR	GETBYT
		STX	SCALE
SCALRTS:		RTS
PREDRAW:		JSR	GETBYT	;GET SHAPE# INTO X
		LDA	SHAPXL	;PRSERVE SHAPE POINTER
		STA	SHAPEL
		LDA	SHAPXH
		STA	SHAPEH
		TXA		;ACC=SHAPE NUMBER
		LDX	#0	;ZERO INDEX
		CMP	(SHAPEL,X)
		BEQ	DRAWOK
		IF LOLLY <> 0 THEN
XBND3		EQU	*
		ENDIF
		BCS	HTOOBIG
DRAWOK:		ASL	A	;SHAPE # *2
		BCC	PREDRAW2	;IF OVEFLOW
		INC	SHAPEH
		CLC
PREDRAW2:		TAY		;INDX INTO TABLE
		LDA	(SHAPEL),Y
		ADC	SHAPEL	;RELATIVE TABLE.
		TAX		;PRESERVE
		INY		;ADD 2-BYTE INDEX TO SHAPE
		LDA	(SHAPEL),Y	;START ADDRESS
		ADC	SHAPXH
		STA	SHAPEH
		STX	SHAPEL
		JSR	CHRGOT	;OPTIONALLY FOLLOWED BY X,Y ARGS.
		CMP	#ATTKN	;IS IT THERE?
		BNE	SHFINI	;IF NOT, FINISH UP.
		JSR	SYNCHR
		JSR	HFNS
		JSR	HPOSN	;POSITION TO X,Y
SHFINI:		LDA	ROTBYT
		RTS
DODRAW:		JSR	PREDRAW	;SET UP,
		JMP	DRAW1	;THEN DRAW IT.
DOXDRAW:		JSR	PREDRAW
		JMP	XDRAW1
		IF LOLLY <> 0 THEN
XBOUND		JSR	VIDSTATE	;DETERMINE IF DOUBLE GR
		BCS	XBND2
		CPY	#40
		BCS	XBND3
* IF LESS THAN 40 THEN SURELY LESS THAN 80 
XBND2		CPY	#80
		BCS	XBND3
		RTS
VLINXX		PHA
		LDA	V2
		CMP	#48
		PLA
		BCS	XBND3
VLINE		PHA
		JSR	PLOTDO
		PLA
		CMP	V2
		INC	A
		BCC	VLINE
RTSQQ		RTS
*
HLINE		TXA
		LDY	FIRST
		JSR	PLOTDO
HLINE1		CPY	H2
		BCS	RTSQQ	;BRANCH IF DONE WITH PLOT
		INY
		JSR	PLOT1
		BRA	HLINE1	;BRANCH ALWAYS TAKEN
RDSCRN		EQU	*
		PHA
		JSR	VIDSETY	;ADJUST Y AS NECESSARY, CARRY SET=PG2GR 
		PLA
		PHP
		JSR	$F871	;ROM RDSCRN
		PLP
		BCC	RDSCRN41
		STA	$C054
		CMP	#8
		ASL	A	;EFFECTIVE 4 BIT ROTATE LEFT 
		AND	#$F	; FOR ALT MEM COLORS
RDSCRN41		EQU	*
		RTS
*
VIDSETY		JSR	VIDSTATE	;TEST 40/80 GRAFIX
		BCC	XQXRTS
		TYA
		EOR	#1
		LSR	A
		TAY
		BCC	XQXRTS
		LDA	$C055
XQXRTS		RTS
*
TABER2		TXA		;CALC SPACES TO NEXT COMMA
		BIT	$C01F	; TAB POSITION IN EITHER 40 OR 80 COLUMNS
		BMI	TABER3
		DC.B	$2C	;SKIP THE NEXT 2 BYTES
HTAB3		STA	$24
		SEC
		TXA
		SBC	$24
HTDONE		RTS
GETARYPT		LDA	#$40
		STA	SUBFLG
		JSR	PTRGET
		STZ	SUBFLG
		RTS
*
TABER3		SBC	$57B
		RTS
*
HTAB:		JSR	GETBYT	;GET ARG OF STATEMENT
		DEX
HTAB1:		LDA	#40
		CMP	$21
		BCS	HTAB2
		LDA	$21
HTAB2:		JSR	HTAB3
		STX	$24
		BCC	HTDONE
		TAX
		JSR	CRDO
		BRA	HTAB1
		ELSE
		ENDIF


		IF A2E <> 0 THEN
INTCXROM		EQU	$C007
EXTCXROM		EQU	$C006
SHLOAD		SEC
		DC.B	$90	;SKIP 1 BYTE (BCC OPCODE) 
DOPTRS		CLC
		STA	INTCXROM
		JSR	SHLOAD1
		STA	EXTCXROM
		BCS	SHLERR
		RTS
SHLERR		JMP	OMERR
*
UPSHFT1		LDA	BUFOFS+1,X
		BPL	UPSHFT4	;BRANCH ALWAYS
*
UPSHFT2		LDA	ENDCHR	;TESTS FOR NO UPSHIFT DESIRED
		BEQ	NOSHFT
		CMP	#$22	;INSIDE A QUOTED STRING?
		BEQ	NOSHFT
		LDA	DORES	;TEST FOR DATA STATEMENT
		CMP	#$49
		BEQ	NOSHFT	;BRANCH IF DATA
*
UPSHFT3		LDA	BUFOFS,X	;GET CHARACTER FROM INPUT BUFFER
*
UPSHFT4		PHP		;SAVE STATUS
		CMP	#$61	;IS IT LOWER CASE?
		BCC	UPSHFT5
		AND	#$5F	;MAKE IT UPPER CASE!
*
UPSHFT5		PLP		;RESTORE STATUS
		RTS
*
NOSHFT		LDA	BUFOFS,X	;RETURN ORIGINAL STUFF
		RTS
*
LDSPCE		PHA		;SAVE ACC 
		LDA	#$20	;OUTPUT A SPACE CHARACTER IN FRONT OF LINE NUMBER
		JSR	OUTDO
		PLA
		JMP	LINPRT	;NOW OUTPUT LINE # 
*
LSTFMAT		LDA	$24
		CMP	#33	;REGULAR WIDTH
		BIT	$C01F
		BPL	FMAT40
		LDA	$57B	;IF 80-COL ENABLED, COMPARE WITH 73
		CMP	#73
FMAT40		RTS
*
*
TABER2		TXA		;CALC SPACES TO NEXT COMMA
		BIT	$C01F	; TAB POSITION IN EITHER 40 OR 80 COLUMNS
		BMI	TABER3
		DC.B	$2C	;SKIP THE NEXT 2 BYTES
HTAB3		STA	$24
		SEC
		TXA
		SBC	$24
HTDONE		RTS
*
TABER3		SBC	$57B
		RTS
*
FILL_SIZE03	EQU	APPLESOFT-$27D9-*
	IF FILL_SIZE03 > 0	THEN
		DS.B	FILL_SIZE03,0
	ENDIF
GETARYPT		LDA	#$40
		STA	SUBFLG
		JSR	PTRGET
		LDA	#0
		STA	SUBFLG
		JMP	VARTIO
*
*
HTAB:		JSR	GETBYT	;GET ARG OF STATEMENT
		DEX
HTAB1:		LDA	#40
		CMP	$21
		BCS	HTAB2
		LDA	$21
HTAB2:		JSR	HTAB3
		STX	$24
		BCC	HTDONE
		TAX
		JSR	CRDO
		BNE	HTAB1	;BRANCH ALWAYS TAKEN 
		ELSE
		ENDIF

		IF A2E+LOLLY+CORTLAND <> 0 THEN
		ELSE
SHLOAD:		LDA	#0
		STA	A1H	;READ LENGTH INTO
		STA	A2H	;POKER
		LDY	#POKER
		STY	A1L
		INY		;AND POKER+1
		STY	A2L
		JSR	C.CSIN	;GET TABLE LENGTH IN POKER
		CLC		;PREP FOR SUBTRACT(MEMSIZ-LEN-1)
		LDA	MEMSIZ	;PUT TABLE AT END OF MEMORY
		TAX		;-1 FROM MEMSIZ.
		DEX
		STX	A2L
		SBC	POKER
		PHA
		LDA	MEMSIZ+1
		TAY
		INX
		BNE	*+3
		DEY
		STY	A2H
		SBC	POKER+1
		CMP	STREND+1
		BCC	MFULL
		BNE	*+5	;ENOUGH ROOM FOR TABLE?
MFULL:		JMP	OMERR
		STA	MEMSIZ+1
		STA	FRETOP+1
		STA	A1H
		STA	SHAPXH
		PLA
		STA	SHAPXL
		STA	MEMSIZ
		STA	FRETOP	;END OF STRING SPACE.
		STA	A1L
		JSR	RD2BIT	;NOW GET IT FINALLY.
		LDA	#3
		JMP	READX1


DOPTRS:		CLC
		LDA	LOWTR	;CALCULATE END POSITION
		ADC	POKER
		STA	A2L	;INTO CASSETTE POINTERS
		LDA	LOWTR+1
		ADC	POKER+1
		STA	A2H
		LDY	#4	;CALC. BEGIN POSITION
		LDA	(LOWTR),Y	;GET # OF DIMENSIONS.
		JSR	FMAPTR+2
		LDA	ARYPNT
		STA	A1L	;INTO (A1)
		LDA	ARYPNT+1
		STA	A1H
		RTS
;
; THIS ROUTINE FAKES OUT PTRGET INTO FINDING ME AN
; ARRAY BY ONLY IT'S NAME.
;
GETARYPT:		LDA	#$40	;MAKE SURE BIT 6 SET.
		STA	SUBFLG
		JSR	PTRGET	;GO FIND ARRAY.
		LDA	#$00	;MAKE NORMAL FOR NEXT TIME
		STA	SUBFLG	;TO ALLOW SUBSCRIPTING!
		JMP	VARTIO
HTAB:		JSR	GETBYT	;GET ARG OF STATEMENT
		DEX
		TXA
HTAB1:		CMP	#40
		BCC	HTDONE
		SBC	#40
		PHA
		JSR	CRDO
		PLA
		JMP	HTAB1
HTDONE:		STA	$24	;CURSOR HORIZONTAL.
		RTS
		MSB	ON
		DC.B	'KR'	;Matches ROM Junk
		MSB	OFF
		DC.B	$78	;Matches ROM junk
		ENDIF

		ENDP
		END

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSFirmware/Applesoft/Applesoft b/IIGS.601.SRC/GSFirmware/Applesoft/Applesoft
new file mode 100644
index 0000000..252fc10
Binary files /dev/null and b/IIGS.601.SRC/GSFirmware/Applesoft/Applesoft differ
diff --git a/IIGS.601.SRC/GSFirmware/Applesoft/Applesoft.make b/IIGS.601.SRC/GSFirmware/Applesoft/Applesoft.make
new file mode 100644
index 0000000..83d74cb
--- /dev/null
+++ b/IIGS.601.SRC/GSFirmware/Applesoft/Applesoft.make
@@ -0,0 +1 @@
+#   File:       Applesoft.make
#   Created:    June 13, 1991   by JOA
# 	Copyright Apple Computer, Inc. 1991
# 	All rights reserved.

Applesoft Ä		Applesoft.make		¶
				Applesoft.aii			¶
				::Firmware.macros.aii	¶
				::Firmware.Equates.aii
	AsmIIgs  {userAOptions} -h Applesoft.aii -wt -o Applesoft.obj
	LinkIIgs  Applesoft.obj -o Applesoft.rel
	MakeBinIIgs Applesoft.rel -o Applesoft
	dup Applesoft ::bin:Applesoft.bin
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSFirmware/Applesoft/Applesoft.makeout b/IIGS.601.SRC/GSFirmware/Applesoft/Applesoft.makeout
new file mode 100644
index 0000000..9733b10
--- /dev/null
+++ b/IIGS.601.SRC/GSFirmware/Applesoft/Applesoft.makeout
@@ -0,0 +1 @@
+Set Echo 1
AsmIIgs  {userAOptions} -h Applesoft.aii -wt -o Applesoft.obj
LinkIIgs  Applesoft.obj -o Applesoft.rel
MakeBinIIgs Applesoft.rel -o Applesoft
dup Applesoft ::bin:Applesoft.bin
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSFirmware/Applesoft/Applesoft.rel b/IIGS.601.SRC/GSFirmware/Applesoft/Applesoft.rel
new file mode 100644
index 0000000..a515c8e
Binary files /dev/null and b/IIGS.601.SRC/GSFirmware/Applesoft/Applesoft.rel differ
diff --git a/IIGS.601.SRC/GSFirmware/BuildFFROM b/IIGS.601.SRC/GSFirmware/BuildFFROM
new file mode 100644
index 0000000..118b880
--- /dev/null
+++ b/IIGS.601.SRC/GSFirmware/BuildFFROM
@@ -0,0 +1 @@
+###   Build Script for Mark Twain 'FF' ROM   ###
#
#  Usage:  BuildFFROM
#
#
# ASSUMPTION:  All subdirectories containing GSFirmware source are in the
# directory containing this script file.
#
# The following Code permits this script to be executed from anywhere,
# and
# for subsidiary scripts to do anything they want to the directory prefixes
# WITHOUT messing up the overall build.
#
# CREDITS: Jim Mensch for the regular expression in the "evaluate" below


set myparent `files -f {Command}`
(evaluate "{myparent}" =~ /(([Â:]*:)+)¨1[Â:]*/ ) > Dev:Null
set myparent "{¨1}"

IF "{myparent}" == ""
	echo "*** ERROR: Script buildFFROM can NOT determine its home directory!"
	exit
END

set startTime `Date -n`

	directory {myparent}

 	echo " "
 	directory {myparent}SmartPort:
 	BuildProgram {Parameters} SmartPort

	echo " "
	directory {myparent}Applesoft:
	BuildProgram {Parameters} Applesoft

	echo " "
	directory {myparent}Monitor:
	BuildProgram {Parameters} Monitor

	echo " "
	directory {myparent}Diagnostics:
	BuildProgram {Parameters} Diagnostics

	echo " "
	directory {myparent}AD3.5Driver:
	BuildProgram {Parameters} AD35Driver

  	echo " "
  	directory {myparent}Serial:
  	BuildProgram {Parameters} Serial

 	echo " "
 	directory {myparent}ATALK:
	BuildProgram {Parameters} ATALK

echo " "

directory {myparent}
echo Combining the Mark Twain $FF ROM segments
date -a
echo Fill the ROM image with zeros...
filliigs {myparent}ROM:rom.ff -c -s $10000
echo Overlaying Diagnostics...
overlayiigs {myparent}bin:diag.bin {myparent}ROM:rom.ff -a $6400
echo Overlaying Monitor...
overlayiigs {myparent}bin:monitor.bin {myparent}ROM:rom.ff -a $7600
echo Overlaying Serial...
overlayiigs {myparent}bin:C1xx.bin {myparent}ROM:rom.ff -a $C100
overlayiigs {myparent}bin:C2xx.bin {myparent}ROM:rom.ff -a $C200
overlayiigs {myparent}bin:serial.bin {myparent}ROM:rom.ff -a $0000
echo Overlaying AppleTalk...
overlayiigs {myparent}bin:atpatch.bin {myparent}ROM:rom.ff -a $1C06
overlayiigs {myparent}bin:c7xx.bin {myparent}ROM:rom.ff -a $C700
echo Overlaying AD3.5Driver...
overlayiigs {myparent}bin:C5xx.bin {myparent}ROM:rom.ff -a $C500
overlayiigs {myparent}bin:Smartport.bin {myparent}ROM:rom.ff -a $5600
overlayiigs {myparent}bin:AD35drvr.bin {myparent}ROM:rom.ff -a $3400
echo Overlaying Applesoft...
overlayiigs {myparent}bin:Applesoft.bin {myparent}ROM:rom.ff -a $D000
##	echo Finishing up...
##  not in ROM 04 overlayiigs {myparent}bin:appleTwo0.bin {myparent}ROM:rom.ff -a $1000
##  not in ROM 04 overlayiigs {myparent}bin:appleTwo1.bin {myparent}ROM:rom.ff -a $1D00


### Now combine the two 64K pieces into one 128K piece ###
### The FE/FF image is reversed due to hardware design ##

Echo Combine the $FE and $FF banks...
duplicate {myparent}ROM:rom.ff {myparent}ROM:rom.fe.and.ff -y
overlayiigs {myparent}ROM:rom.fe {myparent}ROM:rom.fe.and.ff -a $10000
directory {myparent}

# This executes the tool that calculates and inserts the ROM checksum
# It assumes the input filename is rom.fe.and.ff AND
# it assumes that the $FF bank begins at $00000 and the $FE bank begins at $10000
{myparent}TSCsum {myparent}ROM
date -a

Echo Done!
set endTime `Date -n`

echo " "
echo '# '`Date -t` ----- Build Completed in ¶
	`Evaluate {endTime} - {startTime}` seconds.

directory {myparent}



\ No newline at end of file
diff --git a/IIGS.601.SRC/GSFirmware/Diagnostics/DIAG.MACROS.aii b/IIGS.601.SRC/GSFirmware/Diagnostics/DIAG.MACROS.aii
new file mode 100644
index 0000000..9d37e0c
--- /dev/null
+++ b/IIGS.601.SRC/GSFirmware/Diagnostics/DIAG.MACROS.aii
@@ -0,0 +1 @@
+		TITLE	'Cortland Diagnostics Info'

;	This EdAsm/Asm816 source code file was converted to AsmIIGS
;	by EdAsmCvtIIGS version 1.2d7 on 5/14/91 at 7:12:45 PM

****************************************************************
*
* This is the ROM Test Sequencer for Burn-IN & Self-Test
*
* File Name: ROM.SEQ.              By Karl Grabe.  Cork.
*
*
* Documentation: TSKA 0047
* Rev: Beta 2.0 14 Apr 86
*
* Modification History:
*
*       20-Jan-86: Created, KG
*       17-Feb-86: Alpha 1.0, KG
*       10-Mar-86: Alpha 2.0, KG.  Add Clock, Interrupt,Speed.
*       24-Mar-86: Beta 1.0, KG. Add Interrupt, Staggered error status
*       23-Apr-86: Beta 2.0, KG. Add NVR, Shadow, Ram Address
*                                    Front Desk Bus   
*                                    Port 1 status output
*       08-Jan-87: Rom rev. 2.0 Alpha
*               Fern Bachman
*                  1. Added code to clear banks $E0 & $E1
*                  2. Runs Burn-in diagsnostics continuously and writes
*                     to NVR ram when SW0=low (0 volts)
*                  3. Runs one cycle of burn in diags. when SW0=high
*                     and will not write to NVR.
*               Gus Andrade/Ray Montagne
*                  1. Added sound diagnostics as test number $0C
*
*                                       
* Tests Available for Beta 2.0 and later revs
*
*       Error No           Test
*       ========           ================
*       01                  ROM CHECKSUM
*       02                  MOVING INVERSION RAM
*       03                  SOFTSWITCH
*       04                  RAM ADDRESS
*       05                  FPI SPEED
*       06                  SERIAL PORTS
*       07                  REAL TIME CLOCK
*       08                  BATTERY RAM
*       09                  FRONT DESK BUS
*       0A                  SHADOW
*       0B                  INTERRUPTS
*       0C                  SOUND TESTS
*
*            Copyright Apple Computer Inc. 1986
*                   All Rights Reserved
****************************************************************
;
;
****************************************************************
*
* The Cortland Test Diagnostics operate in Burn-In and
* Self Test modes:
*
* IN BURN-IN:
* The sequencer looks to Non Volatile Ram for a certain
* sequence, put there by pre burn-in functional tester.
* If this sequence is not found then the Pre-BI tester failed to set
* up NVR or the UUT/NVR is bad so the test halts setting the FAIL.LED(D).
* IF this sequence is correct then a tests mask (= what tests to run) in NVR
* is used instead of the default mask. This allows the Pre-BI tester
* to determine what tests are to be run in Burn-In.
*
* The entire test sequence is repeated for a number of cycles and this number
* is also programmable by the Pre-BI tester. When the cycle completes
* the power off annunciator is activated to tell the BI controller that
* the UUT is inactive and ready to power down. Test fail status ( if any )
* is stored in NVR to be read by the Post-BI tester. The tester can thus
* determine if a board failed in Burn-IN and if so what test failed,
* it's error code, and during what cycle the last fail occurred.
*
*...............................................................
*
* For Self Test (User):
* The test mask (ie what tests to run) for self test
* is a subest of the Burn-IN test mask.
*
* After all tests have been sucessfully completed a
* continous 1 KHz frequence beep is emmitted.
* A 'System Good' message is displayed on the screen.
*
* If any tests fail then a 6 KHz beep is emmitted.
* A 'System Bad: AABBCCDD' message is displayed.
* where AA is the test number that failed and BB-DD is
* the fail code. The fail code is output to port 1
* at 1200 baud preceded by a '*'.
*
* AN0/1 and disk port phases 1 & 2 are used to tell
* the outside world that the test sequence is ongoing/complete and
* and that the UUT has passed/failed the self test.
*
* NVR is never read or written to by the sequencer.
* Some of the tests may use NVR but if so they will restore
* its contents after the test is complete.
*
*...............................................................
*
* External test software can use its own mask ( store in
* C register ) by calling EXT.SEQ. The EXT.SEQ address is
* stored just after the last test pointer in the Test
* pointer table.
* All 11 ( at present ) tests are represented by an on/off
; bit in the C register when using the EXT.SEQ call.
* The C LSB is the first test in the test table etc.
*
****************************************************************
		EJECT
;...............................................................
;
; Soft Switches for Burn In:
;
; Note: a) 'wr NVR' = write test STATUS (6) registers
;           to Non Volatile Ram.
;
;       b) DIAGTYPE (MSB $C046) is active lo eg MSB=0 is a hi
;          on the Burn In connector
;
; KG 04 Feb 86
;________________________________________________________________
;   |DIAGTYPE*|   SW0   |   SW1   |         MODE                |
;================================================================
;   |    0    |     0   |     0   |  Normal Power UP            |
;----------------------------------------------------------------
;   |    0    |     0   |     1   |  Control Panel              |
;----------------------------------------------------------------
;   |    0    |     1   |     0   |  Cold Restart               |
;----------------------------------------------------------------
;   |    0    |     1   |     1   |  Self Diagnostic, no wr NVR |
;----------------------------------------------------------------
;   |    1    |     0   |     X   |  BI Diagnostic 1, wr NVR    |
;----------------------------------------------------------------
;   |    1    |     1   |     X   |  Self Diagnostic, no wr NVR |
;----------------------------------------------------------------
;   | BI.FLAG | BI.ALT  |  SELF   |  <-- Test s/w Equate Names  |
;----------------------------------------------------------------
;   |  9/10   |   5/6   |  ----   |  <-- BI Connector pins      |
;----------------------------------------------------------------
;
; Burn In Annunciator/Disk Port Truth Table:
;
; Note: The PASS/FAIL.LED (AN0 & Phase 1) signal also operates
;       in self test. Use an LED connected via a buffer to game
;       I/O connector/disk port to verify UUT without VDU.
;
;_______________________________________________________________
;   |   AN0   |   AN1   |          MODE                         |
;================================================================
;   |    1    |    0    |  Passed last cycle, continue          |
;----------------------------------------------------------------
;   |    0    |    0    |  Failed last cycle, continue          |
;----------------------------------------------------------------
;   |    1    |    1    |  Pass, ready to power down            |
;----------------------------------------------------------------
;   |    0    |    1    |  Fail, ready to power down            |
;----------------------------------------------------------------
;   |PASS.LED |POWER.ON | <-- Equate Names to turn on  (1)      |
;   |FAIL.LED |POWER.OFF| <-- Equate Names to turn off (0)      |
;----------------------------------------------------------------
;   | Phase 1 | Phase 2 | <-- Final System Test with cover on   |
;----------------------------------------------------------------
;   | 13/14   |  17/18  | <-- BI Connector Pins                 |
;----------------------------------------------------------------
;
; Note: Cork uses disk port phase lines P1 & P2 to match AN0 & AN1
;
		EJECT
;...............................................................
;
; Tests available:
;
; Note: Each TEST NO corresponds to a bit in the 16 bit
;       C register on calling EXT.SEQ. If the bit is true
;       then the test is run, else it is skipped.
;       The test subroutine must clear the carry if the
;       test passed, else set the carry. The sequencer
;       automatically  passes a skipped test. Two different
;       groups of tests can be run as defined in the equates file
;       ( a third set can be defined in Battery backed up ram):
;
;_______________________________________________________________
;   | TST NO  |  Test(s) performed                              |
;================================================================
;   | LSB: 0  |  Bank $FE/$FF Roms Checksum                     |
;----------------------------------------------------------------
;   |      1  |  Softswitch/STATEREG test                       |
;----------------------------------------------------------------
;   |      2  |  Ram:  Moving Inversions                        |
;----------------------------------------------------------------
;   |      3  |  Ram: Addressing                                |
;---------------------------------------------------------------|
;   |      4  |  FPI/Video Counters Speed verification          |
;----------------------------------------------------------------
;   |      5  |  Serial: Internal Loopback                      |
;----------------------------------------------------------------
;   |      6  |  Real Time Clock                                |
;----------------------------------------------------------------
;   |      7  |  Battery Ram                                    |
;----------------------------------------------------------------
;   |      8  |  Front Desk Bus Processor & Rom                 |
;----------------------------------------------------------------
;   |     09  |  Shadow register                                |
;----------------------------------------------------------------
;   |     10  |  Interrupts                                     |
;----------------------------------------------------------------
;   |     11  |  Sound                                          |
;----------------------------------------------------------------
;   |     12  |  -                                              |
;----------------------------------------------------------------
;   |     13  |  -                                              |
;----------------------------------------------------------------
;   |     14  |  -                                              |
;----------------------------------------------------------------
;   | MSB:15  |  -                                              |
;----------------------------------------------------------------
		EJECT
***************************************************************
; Error Message: "System Bad: AABBCCDD
; Where AA is the test number that failed.
;
;_______________________________________________________________
;   | Test     | Fail Codes                                     |
;================================================================
;   | ROM     |  BBCC= Failed Checksum, DD=01->Ram err          |
;----------------------------------------------------------------
;   | Ram 1   |  BB=BANK, CC=ADDRESS                            |
;----------------------------------------------------------------
;   | Speed   |  BB=1:Stuck slow, BB=2: Stuck fast. CC=Bad Value|
;----------------------------------------------------------------
;   | Soft.sw |  BB=STATEREG BIT, CC=READ SOFTSWITCH ADDRESS    |
;----------------------------------------------------------------
;   | Ram MOVI|  BB=BANK, CC=BIT                                |
;----------------------------------------------------------------
;   | Ser.tst |  See Test code                                  |
;----------------------------------------------------------------
;   | IRQ     |  See Test code                                  |
;----------------------------------------------------------------
;   | CLOCK   | If DD=01-> Tool Error encountered, BB= error #  |
;----------------------------------------------------------------
;   | FDB     | BBCC= Failed Checksum, DD=01-> Tool error       |
;----------------------------------------------------------------
;   | RAM addr| As Moviram                                      |
;----------------------------------------------------------------
;   | BAT.RAM | BB=1-> Address test, CC=Failed Address          |
;   |         | BB=2-> Pattern, CC=Pattern, DD= Address         |
;----------------------------------------------------------------
;   | SHADOW  | None                                            |
;----------------------------------------------------------------
;   |         |                                                 |
;----------------------------------------------------------------
;   |         |                                                 |
;----------------------------------------------------------------
;   |         |                                                 |
;----------------------------------------------------------------
;   |         |                                                 |
;----------------------------------------------------------------
;
****************************************************************
*
* Note:  For debugging the sequencer code Use SEQ.DEBUG =1
*        This swaps DIAGTYPE for SW2. Note that SW2 for
*        debugging is inverted to DIAGTYPE ie a 0 is
*        required to be in Burn In. Also do a JMP $FF7140
*        to get into the diagnostics code. SEQ.DEBUG is a
*        variable at the beginning of file ROM.SEQ and is used
*        for conditional assembly.
*
****************************************************************
		TITLE	'65SC816 word size macros'
*********************************************************
*
* 65816 Macros for word size switching
*
* kg Sep 85
*
********************************************************
****************************************
		MACRO
		NTV		; 
		CLC
		XCE		;t into native mode
		ENDM
*
*
		MACRO
		NTV16		; GET
		CLC
		XCE		;ET E = 0 ( Native mode )
		REP	#%00110000
		LONGA	ON
		LONGI	ON
		ENDM
*
*
		MACRO
		EML		; SET
		SEC
		XCE		;ET E=1 ( Emulation mode )
		LONGA	OFF
		LONGI	OFF
		ENDM
;****************************************
*
*
		MACRO
		DATA16		; SET
		REP	#%00110000	;SET M=0, X=0 (16 BIT)
		LONGA	ON
		LONGI	ON
		ENDM
*
*
		MACRO
		DATA8		; 
		SEP	#%00110000	;SET M=1, X=1 (8 BIT )
		LONGA	OFF
		LONGI	OFF
		ENDM
;****************************************
*
*
		MACRO
		IND16		; 
		REP	#%00010000	;X=0 ( 16 bit index )
		LONGI	ON
		ENDM
*
*
		MACRO
		MEM16		; 
		REP	#%00100000	;M=0 (16 bit memory)
		LONGA	ON
		ENDM
*
*
;****************************************
		MACRO
		IND8		; 
		SEP	#%00010000	;Set X=1 ( 8bit index )
		LONGI	OFF
		ENDM
*
*
		MACRO
		MEM8		; 
		SEP	#%00100000	;Set M=1 ( 8 bit memory )
		LONGA	OFF
		ENDM
;****************************************
*
* FPI FAST/SLOW macros.
*
		MACRO
		SLOW		; 
		STZ	CYAREG	;Go into slow mode
		ENDM

		MACRO
		FAST		; 
		LDA	#%10000000
		STA	CYAREG	;Set fpi fast
		ENDM
;****************************************
*
* Message length macro
* Uses same format as ProDOS pathname length
*
* Use:
*      MSG.0 MSG.LEN
*           ASC "<Fist message 0>"
*      MSG.1 ASC "The 2nd message"
*      .
*      .
*      MSG.n DFB $00  ;Last message
*
;****************************************
		MACRO
		MSG_LEN		; 
		DC.B	MSG_&SYSINDEX-*-1
		ENDM
	
		TITLE	'DIAGNOSTIC HARDWARE EQUATES'
****************************************************************
*
* Hardware equates:
*
* (Game I/O) & B/I pad Signals:
* Note: We in Cork use Disk phase signals for
* Final System Test pass/fail & test ongoing/complete
* status. Singapore will use AN0 & AN1 instead.
*
* By Karl Grabe. Apple Computer Inc.
*
****************************************************************


	; SEG	$00
PASS_LED		EQU	SETAN0	;Turn on pass LED
PASS_LEDD		EQU	$C0E3	;Phase 1 on disk port hi (for CORK FST)
FAIL_LED		EQU	CLRAN0	;Turn off pass LED
FAIL_LEDD		EQU	$C0E2	;Phase 1 on disk port lo
POWER_ON		EQU	CLRAN1	;Turn on power cycle LED (Test in progress)
POWER_OND		EQU	$C0E4	;Phase 2 disk port hi (Test in progress)
POWER_OFF		EQU	SETAN1	;Turn off power cycle LED (Ok to power off: tst fin)
POWER_OFFD	EQU	$C0E5	;Phase 2 lo (test finished)
BI_FLAG		EQU	BUTN2	;True: UUT is in Burn-In (For debuggin,Norm use DIAGTYPE)
SELF		EQU	BUTN0	;True: we are in self/user diagnostic (NO wr to NVR)
NVR_FREE		EQU	$0361	;Start of free battery ram space

DIAG_VARS		RECORD	0	;Diagnostic vars
*
* ZP variables:
*
		ORG	$10
BAT_RAM_PTR	DS.B	4	;Used by READ.NVR routine
		ORG	$F9
ZP_PNTR		DS.B	2	;Zero page pointer
TST_PTR		DS.B	2	;Points to test
CHK_BEG		DS.B	2	;Start address to checksum

*
* Non ZP variables:
*
		ORG	$300

NVR_BEG		EQU	*	;Non vol ram image starts here
BI_STATUS		DS.B	4	;Test Results -- Currently use only 4 bytes
BI_FAILMASK	DS.B	2	;BI.STATUS was 6-byte, becomes 'OR'ed of all failed tests
BI_COUNTER	DS.B	2	;Counts the number of cycles done
BI_PASSES		DS.B	2	;Number of passes in BI (=Board level Burn-In)
BI_FIRSTF		DS.B	2	;SEQ.COUNTER value at first fail
BI_LASTF		DS.B	2	;SEQ.COUNTER value at last fail
CYCLES_MAX	DS.B	2	;Number if test cycles to run in BI (Programmable)
VALID_CHK		DS.B	3	;3 byte signature to validate next bytes BI.ALT.MASK
BI_ALT_MASK	DS.B	2	;The PreBI tester can program what tests to run in BI
NVR_END		EQU	*	;Non vol ram image ends here

TST_STATUS	DS.B	6	;Temp storage of fail status in BI
ERRCODE1		EQU	TST_STATUS+1
ERRCODE2		EQU	TST_STATUS+2
BI_FAIL		DS.B	2	;True if any test fails during BI sequence (1 byte)
ST_FAIL		DS.B	2	;True if a test fails in self test
TST_MASK		DS.B	2	;Two byte test mask - what tests to run
CYCLE_COUNT	DS.B	2	;One byte BI cycle counter: init with CYCLES.MAX
TST_COUNT		DS.B	2	;Test counter for sequencer (use only one byte)
NO_TESTS		DS.B	2	;Initial value of TST.COUNT, ie total no of tests
CUR		DS.B	2	;"Curser" for ROM.COUT ( use one byte only )
PORT_ON		DS.B	2	;True for ROM.COUT to print to Port 1
KEY_VERSION	DS.B	2	;Key micro version number (1 byte)

;
; For Battery ram tests:
;
		ORG	$0800	;Disk s/w must avoid this area
BRAM_TEMP		DS.B	256	;Used to hold contents during tests
BRAM_WORK		DS.B	256	;Working Bram area
BRAM_WORK1	DS.B	256	;Working Bram area 2
;
; FDB rom checksum:
;
POINTER		DS.B	2	;What FDB up byte ram/rom to read
RESULT		DS.B	2	;Where tool leaves rom/ram byte read
FDB_BUF		DS.B	4096	;Read FDB rom code in here NB: 4k Buffer
		ENDR
;
; Tool vars in bank $E1  (Must be cleared to zero)
; See FDB tool source code on following:



;
; Serial PORT1.COUT routine:
;
SLOT		EQU	1	;Port 1 is in slot 1
SLOT_ADDR		EQU	SLOT*16*16+$C000
INIT_OFF		EQU	SLOT_ADDR+$D	;Pascal 1.1 init pointer offset
WRITE_OFF		EQU	SLOT_ADDR+$F	;Pascal 1.1 write pointer offset

INIT_JMP		EQU	$10	;10-12  ;
WRITE_JMP		EQU	$12	;12-13  ;Zero page locations used
SER_ZBANK		EQU	$2000	;Where slot 1 IO rom is called from in zero bank
;
; Moving Inversions Ram
;
LOC		EQU	$04
RAMBANK		EQU	$F0
RAMENDADDR	EQU	$F2
RAMBEGADDR	EQU	$F4
THEDATA		EQU	$07
MOD~		EQU	$09
FLIP		EQU	$0B
;
; Serial Test Equates
;

SCCCMD		EQU	$BFFD
SCCDATA		EQU	$BFFF
CHAINDEX		EQU	$3C
CHBINDEX		EQU	$3B

CNT1		EQU	$0800
CNT2		EQU	$0801
CNT3		EQU	$0802
CNT4		EQU	$0803
STCNT1		EQU	$0804
STCNT2		EQU	$0805
STCNT3		EQU	$0806
STCNT4		EQU	$0807
SERIRQCNT		EQU	$0809
CHHSK		EQU	$080A
CHDTR		EQU	$080B
DATA		EQU	$080C
REGNO		EQU	$080D
SERMASK		EQU	$080E
MASKDATA		EQU	$080F
SERIRQTEMP1	EQU	$0810
SERIRQTEMP2	EQU	$0811
SERIRQTEMP3	EQU	$0812

ZER1		EQU	$BE
ZER2		EQU	$E2
LIMIT		EQU	$FF	;??????
;...............................................................
; FDB.EQU
; Front Desk Bus Test Equates
; KG
;...............................................................

	; SEG	RUNBANK
FDB_ROM_GYRO_A	EQU	$1000	;Start of rom address in Gyro
FDB_ROM_B		EQU	$1400	;Start of rom address in GS
FDB_ROM_E		EQU	$1FFF	;End

; FDB rom checksums:
FDB_REV1		EQU	$3DE6	;No longer supported kg/apr/86
FDB_REV2		EQU	$F772
FDB_REV3		EQU	$2672	;Checksum for all new rom releases

;
;FDB Tool table for RDMEM
;
RD_KEY_DATA	EQU	10*4+$8000
FDB_TOOL_ADDR	EQU	11*4+$8000

NOT_SW		EQU	$FF	;Flags non standard soft switch
FAST_LIM		EQU	$191A	;Lower and upper fast speed limits, ER 1
SLOW_LIM		EQU	$0C0D	;Lwr and upr slow speed limits for ROM, ER 2
	; SEG	$00	;Code was written for bank $00
CUSIRQCNT		EQU	$7000
CUSIRQSTS		EQU	$7002
CUSLINENO		EQU	$7004
CUSIRQSRCE	EQU	$7006
IRQTEMP1		EQU	$7008
IRQTEMP2		EQU	$700A
IRQTEMP3		EQU	$700C

SHADPATT1		EQU	$5A5A
SHADPATT2		EQU	$A5A5
SHDLENGHT		EQU	$0400

SHDSTRT		EQU	$000A	;Must be 4 bytes in Pg 0
SHDBIT		EQU	$000E
SHDDATA		EQU	$0800

XTEMP		EQU	10
*
		TITLE	'Doc diags. equate file'
;********************************************************
*
* Doc.equ: This file contains all the equates required by the
*          rom based Ensoniq DOC diagnostics.
*
;********************************************************
;
;
SGCONTROL		EQU	$C03C	; Sound Glu control register
SGDATA		EQU	$C03D	; Sound Glu data register
SGADDRL		EQU	$C03E	; Sound Glu address reg low
SGADDRH		EQU	$C03F	; Sound Glu address reg high
;
;
;
;       Sound Glu control register bit definition
;
;          +---+---+---+---+---+---+---+---+
;          | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 |
;          +---+---+---+---+---+---+---+---+
;            |   |   |   | |_______________|
;            |   |   |   |         |
;            |   |   |   |         +---------- System volume setting
;            |   |   |   +-------------------- RESERVED
;            |   |   +------------------------ Addr. 0=hold, 1=incr
;            |   +---------------------------- Dev sel. 0=DOC, 1=Ram
;            +-------------------------------- Busy bit: 1=busy 0=free
;
DOC_NO_INC	EQU	$04	; select the Doc no auto incr vol = $04
DOC_INCR		EQU	$24	; Doc, auto inc. sys vol = 04 
RAM_INCR		EQU	$64	; ram, auto inc. sys vol =$04
;
;
;********************************************************
*
*                 Misc equates
*
;********************************************************
;
;
IRQ_VECTOR	EQU	$E10010	; Master interrupt vector
;
;
;********************************************************
*
*                 Doc register names
*
;********************************************************
;
;
DOC_FREQL		EQU	$00	; frequency low register
DOC_FREQH		EQU	$20	;
DOC_VOLUME	EQU	$40	;
DOC_WAVE_DATA	EQU	$60	;
DOC_WAVE_PTR	EQU	$80	; doc waveform table pointer
DOC_CONTROL	EQU	$A0	; doc control register
DOC_BANK_RES	EQU	$C0	; bank, table size, res.
DOC_IRQ_REG	EQU	$E0	; osc. interrupt register
DOC_OSC_ENB	EQU	$E1	; oscillator enable register
DOC_AD_CONV	EQU	$E2	; oscillator analog to digital converter
;
;
;
;********************************************************
*
* Doc.data.equ: This module contains the ram work area equates
*               for the rom doc diagnostics.
*
;********************************************************
;
;
;
DOC_DATA_EQU	EQU	0	;
IRQ_COUNTER	EQU	0	;
FAIL_TIMER	EQU	2	; fail safe timer
CYCLE_COUNTER	EQU	4	;
OSC_BUSY		EQU	6	; oscillator busy flag
TESTDATA		EQU	8	; temp variable for data pattern
;
;
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSFirmware/Diagnostics/DIAG.ROM.SEQ.aii b/IIGS.601.SRC/GSFirmware/Diagnostics/DIAG.ROM.SEQ.aii
new file mode 100644
index 0000000..fb33c43
--- /dev/null
+++ b/IIGS.601.SRC/GSFirmware/Diagnostics/DIAG.ROM.SEQ.aii
@@ -0,0 +1 @@
+		TITLE	'ROM Diagnostic Test Sequencer'

;	This EdAsm/Asm816 source code file was converted to AsmIIGS
;	by EdAsmCvtIIGS version 1.2d7 on 5/14/91 at 7:14:3 PM

;...............................................................
;
; Main entry point to Rom Test Sequencer
;
; Call:    In native
; Return: Not defined
;
; Created  : 07 Jan 86 Karl Grabe
; Alpha 1.0: 17 Feb 86 KRG
; Alpha 2.0: 10 Mar 86 KRG
; Beta 1.0 : 26 Mar 86 KRG
; Beta 2.0 : 23 Apr 86 KRG
; Beta 3.0 : 14 May 86
; VER 1.0  : 23 May 86
;          : 29 Sep 86 FAB Fixed crash in FDB file
;          :               (INDEX8 MEMORY8 needed)
; VER 2.0  : 08 Jan 87
;                        Zero out banks $E0/$E1 at end of 'System Good' 
;                        On burn-in, diags will run diags continuosly
;                        and write to NVR if SW0 = low
;                        Will run Burn-in diags only once and not
;                        write to NVR if SW0 = high.
;                        Added Sound diagnostics.
;
; VER 2.0  : 05 Feb 87
;                        Zeroes out banks $E0/$E1 at start of diags.
;                        In routine BI.SELF.TST changed
;                           LDA #BI.SELF.MASK to LDA BI.ALT.MASK
;                           at the request of Singapore.
;
;
; This code determines whether the UUT is in Burn-In or Self test
; and then executes the selected test. See file: DIAG.MACROS.aii
; for details.
;
;
;
;             Copyright Apple Computer Inc. 1986-1987
;                    All Rights Reserved
;...............................................................

ST_SEQ_B		EQU	*
		SEI		;o interrupts
		DATA16		;Set 16 bit memory and index


* Code added by FAB to reset all bytes in banks
* E1/E0 from $800 to $BFFF to zero so that
* Control-Open Apple RESET will allow memory
* manager to do a coldstart along with all the
* other tools.
*
* September 30, 1986 by Bachman

		LDX	#$0800	;16 bit index from above
@1		EQU	*
		STA	>$E00000,X	;Zero out from $800 to $BFFF
		STA	>$E10000,X	; in banks E0 and E1.
		INX		;;
		CPX	#$C000	;Done if at $C000
		BCC	@1	;Loop til done


		LDA	#TST_DEATH_MGR	;Test death manager ..
		STA	>SYSDMGRV+1	; .. replaces system death manager
		DATA8
		LDA	#^TST_DEATH_MGR	;Bank for test death manager
		STA	>SYSDMGRV+3	;Save it
		JSR	BANK_0	;Set Data Bank reg = 0
		STZ	CLOCKCTL	;Initialise border color
		STZ	MONOCOLOR	;Turn on colour
		ASL	PWREDUP	;Destroy powerup byte (cold boot if test interrupted)
		STZ	SLTROMSEL	;Enable all internal slots (for Port1 & Disk Port)
		LDA	#$04	;Not too loud ... for speaker beep at end
		STA	SOUNDCTL	;To speaker volume DAC

		STZ	FAIL_LED	;Start by assuming the system is bad
		STZ	FAIL_LEDD	;Duplicate FAIL.LED in disk port (CORK FST)
		STZ	POWER_ON	;Tell BI controller NOT to power off!
;                            ;(... so we don't trash NVR)
		STZ	POWER_OND	;Disk port (For FST in Cork)
;                            ;(for self test: test in progress LED)
;Find out where we are and do relevant tests ...
	IF SEQ_DEBUG <> 0 THEN		;For debugging test code use SW2 instead of DIAGTYPE
		LDA	BI_FLAG	;In Burn In ?
		BMI	SELF_TST	;We're not in Burn In so do self test
	ELSE
		LDA	DIAGTYPE	;Read Burn In connector if not in debug
		BPL	SELF_TST	;We're not in Burn In so do self test
	ENDIF
		JSR	RD_BI_NVR_88_66	;Restore NVR to bank zero ram
		LONGI	ON		;
		LONGA	ON		;
		LDA	CYCLES_MAX	;Max sequence run per BI power on cycle
		STA	CYCLE_COUNT	;BI Cycle counter decrements to 0
		DATA8
		LDA	SELF	;Self test in Burn In?
		BMI	BI_SELF_TST	;Yes .. so self and no wr NVR

NXT_BI_CYCLE	EQU	*	;Run BI tests again NTV16
;
; UUT is in burn in if here.
; First check if NVR is correctly set by pre bi tester
; up by checking that the check bytes are intact
;
		DATA16
		STZ	BI_FAIL	;Zero the fail flag
		LDA	VALID_CHK	;First two (0,1)
		CMP	>VALID_MASK	;Check with what we expect
		BNE	BAD_NVR	;Not correct - Stop with self test fail. NVR bad?
		LDA	VALID_CHK+1	;Last two (1,2)
		CMP	>VALID_MASK+1	;What we expect
		BNE	BAD_NVR	;Not correct - Stop with self test fail. NVR bad?
		LDA	BI_ALT_MASK	;Mask put there by Pre BI tester in NVR
		BRA	EXT_SEQ	;Go do the sequence
BAD_NVR		EQU	*	;NVR bad or not set up properly
		LDA	#$FFFF	;AA= FF, BB=FF : NVR NOT SETUP
		STA	TST_STATUS	;Put bad Battery Ram msg on screen.
		DATA8
		BRL	FAIL_SELF	;Goto self test fail routine and die.
BI_SELF_TST	EQU	*
		DATA16		;Tests to run in User/Self test
		STZ	BI_FAIL	;Zero fail flag

* February 5, 1987    Fern Bachman
* Changed LDA #BI.SELF.MASK TO LDA BI.ALT.MASK at Singapore's request
		LDA	BI_ALT_MASK	;Tests to run in self test when in BI
		BRA	EXT_SEQ	;Goto sequencer

SELF_TST		EQU	*
		DATA16
		LDA	#SELF_MASK

;Be of full 16 bit mode if entering here:
EXT_SEQ		EQU	*	;Disk s/w can enter here(c=tests to run)
		STA	TST_MASK	;Save what tests to run
		LDA	#TST_TAB	;Address of top of pointer table
		STA	ZP_PNTR	;Use zero page pointer
		LDA	>TST_TAB	;No of bytes in table
		AND	#$00FF	;Drop hi byte
		LSR	A	;Devide by 2 to get number of tests
		STA	TST_COUNT	;Save as test counter (decrement)
		STA	NO_TESTS	;Save as number of tests

NXT_TST		EQU	*	;Do next test
		NTV16		;Get back to ntv16 (2nd ..)
		LDX	#$01FF
		TXS		;et up the stack
		STZ	PORT_ON	;Tell ROM.COUT not to write to Port 1
		STZ	TST_STATUS	;Zero out all fail status regs
		STZ	TST_STATUS+2
		INC	ZP_PNTR	;Point to test pointer
		PHK		;t Data bank reg to bank code is running in
		PLB
		LDA	(ZP_PNTR)	;Get test pointer
		JSR	BANK_0	;Data Bank reg = 0
		STA	TST_PTR	;Save it for JMP (TST.PTR) to test
		INC	ZP_PNTR	;Increment for next time round
		SEC		;ow get NO.TESTS-TST.COUNT to get test we're on
		LDA	NO_TESTS	;Total number of tests n-1
		SBC	TST_COUNT	;Current test number
		INC	A	;Bring into range 1 ... n
		STA	TST_STATUS	;First byte of status is test number
		JSL	>DO_TEST	;Do/skip (TST.PTR) test ** NATIVE 16 **
		SEI		;ke sure interrupts still off
		JSR	BANK_0	;Data Bank reg = 0
		BCS	TST_FAIL	;Current test has failed
		BRL	TEST_PASS
		EJECT
*
* Test fail handler
*
* In Burn-In:
*    The NVR fail counter and cycle number are incremented
*    A note is made of the test # that failed + errcodes
*    The test sequence continues.
*
* Self Test:
*    The test number and fail status is printed on screen:
*     "AABBCCDD" ( 3 times and staggered ),
*      where AA is test no and BBCCDD is fail status.
*
*    "System Bad: AABBCCDD" message is printed
*    A high ( 6KHz ) tone is generated.
*    "AABBCCDD" is sent to serial port 1 at 9600 baud 
*    The NVR is NOT updated.
*

TST_FAIL		EQU	*
		NTV
		DATA8
		LDA	#0
		STA	$E0C035	;Real shadow location
		DEC	A	;LDA #$FF
		STA	BI_FAIL	;Set BI.FAIL flag to non zero
		JSR	ROM_HOME_86	;Clr txt page returns in 86
		LDX	TST_STATUS+2	;Get detailed fail status
		STX	BI_STATUS+2	;Put fail status aside for NVR later (BI only)
		LDX	TST_STATUS	;Get the test number that failed
		STX	BI_STATUS	;Save for storage in NVR later (BI only)
		IND8
		MEM16
		LDA	#$0000
		SEC
ROTATE		ROL	A	;Set '1' at bit where the test failed
		DEX
		BNE	ROTATE
		TSB	BI_FAILMASK	;Update all tests that failed so far
		DATA8
		JSR	PRINT_STATUS88	;Put fail status on scrn
		STZ	FAIL_LED	;Tell outside world there's trouble
		STZ	FAIL_LEDD	;Disk port also (Corcaig)
	IF SEQ_DEBUG <> 0 THEN		;Use SW2 or DIAGTYPE? (SW2 for debugging)
		LDA	BI_FLAG	;We in BI?
		BPL	FAIL_BI_CONT	;Yes failed current test but continue .....
		ELSE
		LDA	DIAGTYPE	;We in BI?
		BMI	FAIL_BI_CONT	;Yes failed current test but continue .....
	ENDIF

;If here then UUT has failed self test
FAIL_SELF		LDX	#0
		STZ	CUR	;Set curser to zero
		STZ	POWER_OFF	;For LED on Game IO or disk port
		STZ	POWER_OFFD	;Disk port phase (agus Corcaig)
	; SEG	RUNBANK	;Tell assembler bank $FF for bad message
NXT_FAIL_CHAR	LDA	>FAIL_SELF_MSG,X
		BEQ	FAIL_SELF_TONE	;Check for end of msg
		JSR	ROM_COUT88	;Print "System Bad message"
		BRA	NXT_FAIL_CHAR	;For all characters
FAIL_SELF_TONE	EQU	*
		LDA	#$FF	;Non zero
		STA	|ST_FAIL	;Make a note that a fail occurred.
		JSR	PRINT_STATUS88	;Print stagered on screen
		JSR	INIT_PORT1	;Setup Port 1 for writing (Cork's process)
		LDA	#$FF	;Non zero
		STA	|PORT_ON	;Enable port1
		JSR	PRINT_STATUS88	;Print to Port 1
		LDA	#$8D	;CR
		JSR	COUT_PORT1	;Send Carrage Return to port 1
		LDA	#$8A	;LF
		JSR	COUT_PORT1	;And a line feed
		NTV		;Make sure we're still in native mode
		DATA8
		IND16
		LDX	#10000	;No of cycles
		LDA	#5	;Period for 6 KHz or so
		BRL	TONE86	;Go do tone and die.
FAIL_SELF_MSG	EQU	*
		DC.B	' System Bad:'
		DC.B	$00
	; SEG	$00
		EJECT
*
*
* Test returns here even if test was skipped
*         -- OR --
* if test failed AND UUT is in BI.
*
* Note: carry is clear ('passed') when test skipped
*
FAIL_BI_CONT	EQU	*	;Failed test but in BI so continue
TEST_PASS		EQU	*	;Passed test in BI or Self Test so continue
		NTV		;In case test ended up in emulation mode
		DATA8
		LDA	#0	;Turn on all shadowing
		STA	$E0C035	;Real shadow location
		JSR	PRINT_STATUS88	;Show user tests progressing
		DEC	TST_COUNT	;Decrement single byte counter
		BMI	END_TST_SEQ	;All tests done
		BRL	NXT_TST	;Do another test if TST.COUNT not zero
END_TST_SEQ	EQU	*
		IF SEQ_DEBUG <> 0 THEN		;Test SW2 or DIAGTYPE for BI
		LDA	BI_FLAG	;In BI?
		BMI	PASS_SELF_STOP88	;No so unit has passed self test
		ELSE
		LDA	DIAGTYPE	;In BI?
		BPL	PASS_SELF_STOP88	;No so unit has passed self test
		ENDIF
		LDA	BI_FAIL	;Check if any test failed
		BMI	BI_CYCLE_FAIL	;Yes so handle it
		STZ	PASS_LED	;Last cycle passed all tests
		STZ	PASS_LEDD	;Disk port also
		DATA16
		INC	BI_PASSES	;Record as a passed cycle
CONT_CYC		EQU	*
		INC	BI_COUNTER	;Cumulative counter for ENTIRE time in BI
		DEC	CYCLE_COUNT	;Reset to CYCLES.MAX on each BI power up
		BEQ	FIN_CYCLES	;All BI test cycles complete
		BRL	NXT_BI_CYCLE	;Continue doing BI cycles

;Required no of BI cycles complete so stop and wait
FIN_CYCLES	EQU	*
		JSR	WR_BI_NVR_66_88	;Save counters status to NVR for next time or tester
		LONGI	OFF
		LONGA	OFF
		STZ	POWER_OFF	;Tell BI controller it's ok to power down.
		STZ	POWER_OFFD	; .. And Cork FST controller via disk port


* Modified by FAB
* Singapore requested the burn in self diagnostic
* run continuously with no write to batteryram if
* SW0 (SELF same as BUTN0) is 1 ('-').
* September 30, 1986 by Bachman

		LDA	SELF	;If active ('-') then loop continuously
		BPL	@1	;If inactive ('+') then stop the processor
		BRL	ST_SEQ_B	;Loop and restart diagnostics

@1		EQU	*
		STP		;Just hang til power off


BI_CYCLE_FAIL	EQU	*	;Here if a cycle has failed a test
		DATA16
;INC BI.FAILS  ;No more, replaced by BI.FIRSTF
		LDA	BI_COUNTER
		STA	BI_LASTF	;Record what cycle failure occurred
		LDX	BI_FIRSTF	;Is this the firt time it fails?
		BNE	@2	;No
		STA	BI_FIRSTF	;Yes, record the first fail cycle
@2		BRA	CONT_CYC	;Go on to next cycle if necessary

TST_RTS		RTL		;ny rts instruction

		; SEG	RUNBANK	;All tests are normally in Bank $FF
DO_TEST		EQU	*	; ** Native 16 **
		; SEG	$00	;Data and softswitches in Bank $00
		STZ	ST_FAIL	;Clear test fail status to pass
		ROR	TST_MASK	;Put test 0/1 in carry, 16 bit.
		BCC	TST_RTS	;Skip this test  *** Note carry CLR => passed ***
		DATA8
		INC	|CLOCKCTL	;Each test has a new border color
		IF SEQ_DEBUG <> 0 THEN
		JSR	TEMP_WAIT	;Slow down display while debugging only
		ENDIF
		JSR	ROM_HOME_86	;Routine sets 86 (8bit memory, 16 bit index)
		DATA8
		JSR	PRINT_STATUS88	;Prt tst running (useful if test crashes)
		FAST		;Hurry things along a little (8 bit macro)
		JMP	(TST_PTR)	;Go do test ** MEM8 IND8 ** Return with RTL
		EJECT
****************************************************************
*
* All following Subroutines are MEMORY8 & INDEX16
* (subname)86
* KG JAN 86
*
****************************************************************

;...............................................................
; PASS.SELF.STOP88
; UUT passed self test so put out 1Khz
; tone, print message & stop
;
; MEMX, INDX
;...............................................................
PASS_SELF_STOP88	EQU	*
		JSR	ROM_HOME_86	;Routine sets 86
		DATA8
		STZ	PASS_LED	;Tell game IO we've passed
		STZ	PASS_LEDD	;And disk port
		STZ	POWER_OFF	;Tell game IO test finished
		STZ	POWER_OFFD	;And disk port
		LDX	#0
		STZ	CUR
	; SEG	RUNBANK	;Tell assembler where code resides
NXT_PASS_CHAR	LDA	>SELF_PASS_MSG,X
		BEQ	PASS_SELF_TONE	;Check for end of msg
		JSR	ROM_COUT88	;Print "System Good message"
		BRA	NXT_PASS_CHAR
SELF_PASS_MSG	EQU	*
		DC.B	' System Good'
		DC.B	$00
VALID_MASK	DC.B	'KRG'	;Do not change - used in NVR by tst s/w
	; SEG	$00
PASS_SELF_TONE	EQU	*
		IND16
		LDX	#1000	;Number of speaker clicks
		LDA	#17	;Period for 1KHz

;...............................................................
; TONE86
; Generate tone Period: ACC (8)
;               Cycles: X (16)
;
; Enter MEM8,IND16
; Ret :Does not return
;...............................................................
TONE86		EQU	*
		TAY
NXT_KICK		TYA		; GET DURATION
		JSR	$FCA8	; MONITOR WAIT ROUTINE
		BIT	SPKR
		DEX
		BNE	NXT_KICK


		LDA	ST_FAIL	;Has self test failed?
		BEQ	END_SELF	;Wait for OA pressed to Repeat Self Test
		STP		;Die here with Self Test err msg on screen
END_SELF		EQU	*
* ASL SELF
* BCC END.SELF  ;Wait here 'till Open apple pressed
		ASL	DIAGTYPE	;Test if in burn-in or user diags
		LDA	SELF	;Get Open-Apple status
		BCS	CHKOAONLY	;If in burn-in diags check Open-Apple only
		AND	BUTN1	; else both buttons pressed to continue?
CHKOAONLY		EQU	*
		BPL	END_SELF	;If '+' in any case then keep looping
		BRL	ST_SEQ_B	;Go to very beginning of diags again.

;...............................................................
;
;ROM.HOME.86
;Clear the text page & set to 40 text
;
; Enter/RET Native
; Exit Mem8 Ind16
;...............................................................
ROM_HOME_86	EQU	*
		IND16		;Index regs 16 bit
		MEM8		;For soft switch toggles
		STZ	CLR80COL
		STZ	CLR80VID	;40 COL
		STZ	TXTSET	;Get out of graphics
		STZ	TXTPAGE1
		LDA	#1
		STA	NEWVIDEO	;Make sure not in new video mode
		LDY	#LINE1	;The text screen
		LDA	#' '	;Space
ROM_NXT_SP	EQU	*	;Write another space
		STA	LINE1,Y	;The text screen
		DEY
		BPL	ROM_NXT_SP
		RTS
		EJECT
****************************************************************
*
* All following subroutines are MEMORY8 & INDEX8
* (subname)88
*
****************************************************************

;...............................................................
;
; ROM.COUT88
; Print char on last line of screen. 40 col only.
; offset by CUR. (CUR <40 !)
; The caller must make sure the 'curser' does not
; end up outside the text window!
;
; If ST.FAIL is true then print staggered fail status on scrn
; If PORT.ON is true then send fail status to port 1
;
; Enter/RET: DATA8
;...............................................................
ROM_COUT88	DATA8
		LDX	CUR	;Get curser
		STA	LINE1+$3D0,X
		LDX	ST_FAIL	;For self test fail only
		CPX	#0
		BEQ	NOT_FAIL
;Fail status so print on screen in different posn
;and send to port 1
		LDX	CUR	;Restore curser
		STA	LINE1-$0F,X	;Top lhs of scrn
		STA	LINE1+$81-$0F,X	;Next line shift one to right
		STA	LINE1+$102-$0F,X	;Nxt line, one to right
		LDX	PORT_ON	;Check do we write to port1 also ?
		CPX	#0
		BEQ	NOT_FAIL	;No so don' write to port 1
		JSR	COUT_PORT1	;Send Acc to port
		NTV		;Make sure we're still in native mode
NOT_FAIL		EQU	*
		LDX	CUR	;
		INC	CUR	;Increment curser
		RTS

;...............................................................
; ROM.PRBYTE88    ( Accumulator )
; Print a byte on screen at CUR
; Enter/Ret DATA8
;...............................................................
ROM_PRBYTE88	EQU	*
		PHA		;ave byte to prt
		ROR	A
		ROR	A
		ROR	A
		ROR	A	;Get hi nybble into low nyb posn
		JSR	PRNYBBLE	;go prt nybble
		PLA		;ow work on low nybble
PRNYBBLE		AND	#$0F	;Strip out hi nybble
		CMP	#$0A
		BLT	PR_NOADD
		ADC	#$06
PR_NOADD		EQU	*
		ADC	#$B0
		BRA	ROM_COUT88

;...............................................................
; PRINT.STATUS88
; Print 6 byte status on text scrn.
;
; Enter/Ret DATA8
;...............................................................
PRINT_STATUS88	EQU	*
		LDA	#15
		STA	CUR	;Set up curser
		LDY	#0
		PHY		;ave Y when using ROM.PRBYTE
NXT_STAT		EQU	*
		LDA	TST_STATUS,Y	;Get the byte
		JSR	ROM_PRBYTE88	;Y gets trashed
		PLY		;estore byte count
		INY		;xt byte
		PHY
		CPY	#4
		BNE	NXT_STAT	;Next status byte
		PLY
		RTS
		EJECT
;
;...............................................................
; RD.BI.NVR.88.66
; Read NVR counters to ram for BI cycling
;
; NTV DATA 8
;................................................................
RD_BI_NVR_88_66	EQU	*
MVN_NVR		EQU	NVR_FREE	;Lower 2 bytes of BRAMBUFFER adr (free bat space)
		DATA8
		JSL	>TOREADBR	;Read NVR to bank ^BRAMBUFFER (=$E1)
		DATA16
		LDX	#MVN_NVR	;Source addess
		LDY	#BI_STATUS	;Destination address
		LDA	#NVR_END-NVR_BEG	;Number of bytes to move
		MVN	BRAMBUFFER,$000000
		RTS		;;

;...............................................................
; WR.BI.NVR.66.88
; Write BRAMBUFFER to NVR
;
; NTV DATA 8
;................................................................
WR_BI_NVR_66_88	EQU	*
		LDX	#BI_STATUS	;From (Bank $00)
		LDY	#MVN_NVR	;To   (Bank $E1)
		LDA	#NVR_END-NVR_BEG	;Number of bytes to move
		MVN	$000000,BRAMBUFFER	;Move status bytes to bank $E1
		DATA8
		LDA	SELF	;Are we in BI but running Self Diags?
		BMI	BI_SLF_NVR	;Yes so don't write to NVR
		JSL	>TOWRITEBR	;Write stuff permanently to BRAM
BI_SLF_NVR	DATA8
		RTS		;;

;...............................................................
; BANK.0   XX/XX
; Set Data bank register to zero
;
;...............................................................

BANK_0		EQU	*
		PEA	0
		PLB
		PLB		;et it
		RTS
;...............................................................
; TST.DEATH.MGR
; This routine replaces the system death manager during tests.
; SYSDMGRV vector points to here.
;
;...............................................................

	; SEG	RUNBANK	;Bank this code is in
TST_DEATH_MGR	EQU	*
		NTV16
		LDX	#$01FF
		TXS		;eset stack pointer
		JSR	BANK_0	;Make sure Data Bank is zero
		LDA	#0
		TCD		;irect register
		INC	A	;Errcode 01
		STA	>TST_STATUS+3	;DD=01: Death manager was called during test
		BRL	TST_FAIL	;Print/save test that was running
		TITLE	'Setup & write to Port 1'
;...............................................................
; COUT.PORT1  8/8
; Output Fail status registers to serial device
; using Pascal 1.1 entry points.
;
; Two entry Points:
; INIT.PORT1 -> Initialise port for writing
; COUT.PORT1 -> Send 8 bit acc to port1
;
;
; 22 Jan 86:  KG  Created
; 20 Mar 86:  KG  Port to Bank $FF ROM
;...............................................................

	; SEG	RUNBANK	;Bank code resides in
INIT_PORT1	EQU	*
		LONGA	OFF
		LONGI	OFF
		LDA	#$04
		STA	|STATEREG	;Correct language card setup

;
; Set up Port 1 Parameters
;
; Copy PORT.PARMS to BRAMBUFFER ( in bank $E1 )
; Then a Pascal Init call will use these parms
; instead of those in the Control Panel.
;

		LDX	#END_PORT_PARMS-PORT_PARMS	;All of port 1 parameters
STO_NXT_PARM	EQU	*	;Store next parameter
		LDA	>PORT_PARMS,X	;Get it from table
		STA	>BRAMBUFFER,X	;Save it in BRAMBUFFER
		DEX
		BPL	STO_NXT_PARM	;Do next parameter

; Release $C800 space
		LDA	#>SLOT_ADDR
		STA	|$07F8	;For interrupts 
		LDA	|CLRROM	;Disable C800

; Setup Init pointer
		LDA	|INIT_OFF	;Offset byte for Pascal Init
		STA	INIT_JMP	;Points to actual init address
		LDA	#>INIT_OFF
		STA	INIT_JMP+1	;Contains actual Init address

; Setup write pointer
		LDA	|WRITE_OFF	;Offset byte for Pascal Write
		STA	WRITE_JMP
		LDA	#>WRITE_OFF
		STA	WRITE_JMP+1	;Contains actual Write address

; Relocate section of Bank $FF code to bank zero
		LDA	#BANK_ZERO_END-BANK_ZERO_BEG	;No of bytes to transfer
		TAX		;se y as byte loop counter
NXT_ZBYTE		EQU	*
		LDA	>BANK_ZERO_BEG,X	;Load it from bank $ff rom
		STA	|SER_ZBANK,X	;Save it in zero bank
		DEX		;ove down a byte
		BPL	NXT_ZBYTE	;Repeat
		LDX	#>SLOT_ADDR	;X & X must have slot related values
		LDY	#SLOT*16

; Initialise Port 1. Use Pascal 1.1 protocol
DO_INIT		EQU	*
		JSL	>SER_ZBANK	;Go initialise device for writing

		LDA	#'*'
		JSR	COUT_PORT1	;Tell tester failcode is sent next
		RTS		;o sequencer

COUT_PORT1	EQU	*	; send acc to port
		LDX	#>SLOT_ADDR
		LDY	#SLOT*16
DO_WRITE		EQU	*	;Write Acc to slot
		JSL	>SER_ZBANK+ZERO_WRITE-ZERO_INIT	;To bank zero routine
		RTS		;;


PORT_PARMS	EQU	*	;Port Parms (default values except baud)

		DC.B	$00	;This port is a: Printer
		DC.B	$00	;Line Length: Unlimited
		DC.B	$00	;Delete First LF after CR: No
		DC.B	$01	;Add LF after CR: Yes
		DC.B	$00	;Echo: No
		DC.B	$00	;Buffering: No
		DC.B	$07	;Baud: 1200  ** Non Default **
		DC.B	$06	;Data/Stop Bits: 8/1
		DC.B	$02	;Parity: None
		DC.B	$01	;DCD Handshake: Yes
		DC.B	$01	;DSR Handshake: Yes
		DC.B	$00	;XON/XOFF Handshake: No
END_PORT_PARMS	EQU	*

		EJECT
;
; The next section of code is downloaded to bank zero RAM
; and run from there. (Because we cannot call the Port
; firmware with a JSL)
;

	; SEG	RUNBANK
BANK_ZERO_BEG	EQU	*	;Beginning of Bank zero image
	; SEG	$00
ZERO_INIT		EQU	*	;Initialise from bank zero
		JSR	SER_ZBANK+IJ-ZERO_INIT	;Go through INIT.JMP vector in bank $00
		RTL		;eturn to bank sequencer RUNBANK
IJ		JMP	(INIT_JMP)	;Jump to $00/C1XX space

ZERO_WRITE	EQU	*	;Write Acc form bank zero
		JSR	SER_ZBANK+WJ-ZERO_INIT	;Go through WRITE.JMP vector
		RTL		;eturn to sequencer RUNBANK
WJ		JMP	(WRITE_JMP)	;Jump to $00/C1XX space
BANK_ZERO_END	EQU	*	;End of Bank zero image

	IF SEQ_DEBUG <> 0 THEN
		EJECT

	; SEG	$FF
;...............................................................
;
; Following 'test' for debug only
; Test 1 'fails' if a key is pressed
;
;...............................................................
		LONGA	OFF
		LONGI	OFF
*
TEST1		EQU	*
		LDA	KBDSTRB	;CHECK IF KEY PRESSED
		BPL	TEST1_EXIT
		STA	TST_STATUS+1
		SEC		;n "Error" occurred
		RTL
TEST1_EXIT	CLC		;
		RTL
;...............................................................
;
; TEMP.WAIT
;  DEBUG ONLY
;...............................................................
TEMP_WAIT		EQU	*
		LDA	#254
		JSR	WEIGHT
		LDA	#254
		JSR	WEIGHT
		LDA	#254
		JSR	WEIGHT
		LDA	#254
		JSR	WEIGHT
		LDA	#254
		JSR	WEIGHT
		LDA	#254
		JSR	WEIGHT
		LDA	#254
		JSR	WEIGHT
		LDA	#254
WEIGHT		SEC		;his is monitor wait routine $FCA8
TEMP_WAIT2	PHA		;
TEMP_WAIT3	SBC	#$01
		BNE	TEMP_WAIT3
		PLA
		SBC	#$01
		BNE	TEMP_WAIT2
		RTS
	ENDIF
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSFirmware/Diagnostics/DIAG.TESTS.aii b/IIGS.601.SRC/GSFirmware/Diagnostics/DIAG.TESTS.aii
new file mode 100644
index 0000000..4705f25
--- /dev/null
+++ b/IIGS.601.SRC/GSFirmware/Diagnostics/DIAG.TESTS.aii
@@ -0,0 +1 @@
+		TITLE	'Pseudo MovInv Ram Test'

;	This EdAsm/Asm816 source code file was converted to AsmIIGS
;	by EdAsmCvtIIGS version 1.2d7 on 5/14/91 at 7:15:58 PM

***********************************************************************
* file: moviram
*
* 16 bit version of popular //e Ramtest of the 80's
*
* Revision History:
*
* 11 sep 85    RCarr    New Today
* 16 sep 85    RCarr    Converted to use indirect long addressing
* 05 dec 85    RCarr    Added to DVT test, make seg unrelated
* XX Jan 86    KG       Added to internal diags...
* 20 mar 86    RCarr    Improve Error Reporting and code krunch 1
* 06 Apr 88    BS Soh   Expand to 1 M for Rev.D
*
* Data 8 , Data bank =0
	; SEG	$00
MOVIRAM		EQU	*
		DATA8
		BIT	TXTCLR
		BIT	MIXCLR
		BIT	HIRES
;stz RamBank
;jsr DoZpageInd
;bcs RamError2
;lda #0
;jsr MoviRamTest
;bcs RamError2
*
		LDX	#0
		PHX		;save x
BT1		EQU	*
;LDA #$C0
;eor NEWVIDEO  ;Toggle between $01 & $C1
;sta NEWVIDEO
		PLX
		CPX	#4
		BEQ	BTEnd	;Completed
		INC	CLOCKCTL	;Increment into next border color
		LDA	>BANKtbl,x	;Get next Test Bank
		INX
		PHX		;save x
		JSR	MoviRamTest
		BCS	BTExit
		JSR	DoZpageInd
		BCC	BT1	;More bank
BTEXIT		PLX		;Throuw away x
		BRA	MoviRamExit	;fail, exit
*
BTEND		EQU	*
;
; Check key micro version number
;
		JSR	GETVERSION
		BCS	M_FDB_ERR	;Tool had problem reading up
		CMP	#$6	;Is version >= 6 ?
		BCC	NoMore	;No, it's IIgs
		LDA	#$01
;sta NEWVIDEO
		STA	RamBank
EXPBANK		INC	RamBank
		LDA	RamBank
		CMP	#$10	;Has it exceeded max?
		BCS	NoMore	;Yes Exit
		JSR	MoviRamTestExp	;Acc still contain RamBank
		BCC	ExpBank	;another bank
		BRA	MoviRamExit
NOMORE		CLC		;to be sure
MOVIRAMEXIT	DATA8
RAMERROR2		RTL		;
M_FDB_ERR		LDA	#$FF
		STA	ErrCode1
		SEC
		RTL
*
MOVIRAMTEST	EQU	*
		STA	RamBank
		IND16
		MEM8
		LDX	#$0400
		LDY	#$BFFF
		JSR	DoMoviTest
		BCS	FoundMoviErr
		LDA	lcbank1
		LDA	lcbank1
		LDX	#$d000
		LDY	#$dfff
		JSR	DoMoviTest
		BCS	FoundMoviErr
		LDA	lcbank2
		LDA	lcbank2
		LDX	#$d000
		LDY	#$ffff
		JSR	DoMoviTest
FOUNDMOVIERR	IND8
		RTS
*
MOVIRAMTESTEXP	EQU	*
		IND16
		INC	CLOCKCTL	;Change border color
		LDX	#0	;memory8, index16
		TXY
		DEY		;(y=$ffff) test the entire bank
		JSR	DoMoviTest
		IND8
		RTS
*
		LONGI	ON
DOMOVITEST	EQU	*
		STY	RamEndAddr
		STX	RamBegAddr
		LDX	#$0000
		STX	loc
		LDA	RamBank
		STA	loc+2
		LDA	#0
OUTER16		STA	thedata
		LDX	#$0002
		STX	mod~
STEPP16		LDY	RamBegAddr
		LDA	thedata
		EOR	#$ff
		STA	flip
STUFF16		STA	[loc],y
		INY
		CPY	RamEndAddr
		BCC	stuff16
		LDX	mod~
		LDY	RamBegAddr
		LDA	thedata
ALT16		DEX
		BPL	skip16
		LDX	#$0002
		STA	[loc],y
SKIP16		INY
		CPY	RamEndAddr
		BCC	alt16
		LDA	mod~
		BNE	test16
		LDA	thedata
		CMP	#$FF
		BNE	test16
		CLC
		RTS
*
TEST16		LDX	mod~
		LDY	RamBegAddr
INV16		LDA	flip
		DEX
		BPL	jmp16
		LDX	#$02
		LDA	thedata
JMP16		CMP	[loc],y
		BNE	Error16
		INY
		CPY	RamEndAddr
		BCC	inv16
		DEC	mod~
		BPL	stepp16
		LDA	thedata
		EOR	#$ff
		BRA	outer16
*
*
ERROR8		PLA		;Pull away a
		EOR	[loc],y
		SEP	#$10	;Index 8
		LDA	#0
		PHA
		PHA
		PLD
		BRA	E2
ERROR16		EQU	*
		EOR	[loc],y
E2		STA	ErrCode2
		LDA	RamBank
		STA	ErrCode1
		SEC
		RTS
*
DOZPAGEIND	EQU	*	;tests zero pages of any bank specified by RamBank
		IND16
		LDA	RamBank
		PEA	$1000	;Change Direct Page Register
		PLD
		STA	loc+2
		LDY	#0
		STY	loc	;was stx, but should be sty
ZPIND1		LDA	[loc],y
		PHA
		LDA	#$fe
		LDX	#$0000
ZPIND2		STA	[loc],y
		CMP	[loc],y
		BNE	Error8
		SEC
		ROL	a
		INX
		CPX	#$0008
		BNE	ZPInd2
		DEX
		LDA	#$80
ZPIND4		STA	[loc],y
		CMP	[loc],y
		BNE	Error8
		LSR	a
		DEX
		BPL	ZPInd4
		PLA
		STA	[loc],y
		INY
		CPY	#$0400
		BNE	ZPInd1
		IND8
		LDA	#0
		PHA		;Reset Direct Page Register
		PHA
		PLD
		CLC
		RTS
		EJECT
		TITLE	'Serial Z8530 test.'
****************************************************************
*
*    File   :  SER.TST
*
*
*   Serial tests for the SCC (8530)
*
*    14-Nov-85   :  JR    : New Today!
*    23-Jan-86   :  JR    : Modified to run in ROM
*
*    See Diagnostics ERS for error codes
*
*    Data8, Data Bank = 0
****************************************************************

*
*   Calls to the three test routines
*

SER_TST		EQU	*
	; SEG	$00	;Should really be $FF, but program was written for bnk 0
		JSR	SCCRegRW
		BCS	SCCEnd
	IF BAUD_SWITCH <> 0 THEN		;If baud tests included
		JSR	BaudIRQ
		BCS	SCCEnd
	ENDIF
		JSR	IntLoop
SCCEND		RTL		;
		EJECT
****************************************************************
*
*  SCC register R/W test
*
****************************************************************

SCCREGRW		EQU	*

		SEI		;isable interupts
		STZ	DATA
		STZ	ErrCode1
		JSR	ResetSCC	;SCC reset & point to Chn A
		LDA	#$FF
		STA	SerMask	;BIT mask,for WR15 only
		LDA	#2
		STA	RegNo	;Write register to test
		JSR	RWChA	;Test Wr 2 for ChA only
		BMI	FailRW
		LDA	#12
		STA	RegNo	;Test Wr reg 12
		JSR	TstRW
		BMI	FailRW
		INC	RegNo	;Test Wr reg 13
		JSR	TstRW
		BMI	FailRW
		LDA	#$FA
		STA	SerMask	;Mask non R/W bits in Wr 15
		LDA	#15
		STA	RegNo	;Test Wr reg 15
		JSR	TstRW
		BMI	FailRW
		CLC
		RTS
FAILRW		LDA	#01
		STA	ErrCode1
		SEC
		RTS

TSTRW		LDY	#ChBIndex	;Test Channel A & B
		JSR	RegRW
		BMI	EndRWtst
RWCHA		LDY	#ChAIndex
		JSR	RegRW
		BMI	EndRWtst
ZRTS		LDA	#0
ENDRWTST		RTS		;

REGRW		LDA	RegNo	;Actual R/W test
		STA	SCCCmd,Y	;Point to the Wr reg
		LDA	DATA	;Initially = 0
		AND	SerMask	;Mask out non R/W bits
		STA	MaskData	;Store for later comparison
		STA	SCCCmd,Y	;Write the register
		LDA	RegNo
		STA	SCCCmd,Y
		LDA	SCCCmd,Y	;Read the register
		CMP	MaskData	;Compare
		BNE	BadData
		DEC	DATA
		BNE	RegRW	;Try $0-FF
		BEQ	ZRTS
BADDATA		LDA	#$80
		RTS
		EJECT
		IF BAUD_SWITCH <> 0 THEN		;Leave out next section
***************************************************************
*
* Test for interupt on zero count of the baud rate generator
*
****************************************************************


BAUDIRQ		EQU	*
		SEI		;isable interupts
		STZ	CNT1
		STZ	CNT2
		STZ	CNT3
		STZ	CNT4
		STZ	SerIRQCnt
		JSR	ResetSCC

*
*  Local IRQ vector setup for Zero count interupt.
*

		LDA	>INTMGRV+1	;Interupt manager vector
		STA	SerIRQtemp1
		LDA	>INTMGRV+2
		STA	SerIRQtemp2
		LDA	>INTMGRV+3
		STA	SerIRQtemp3
		LDA	#<ZerIRQHnd
		STA	>INTMGRV+1
		LDA	#>ZerIRQHnd
		STA	>INTMGRV+2
		LDA	#^ZerIRQHnd
		STA	>INTMGRV+3
		LDX	#$00
SETENV		EQU	*
		LDA	>TBL1,X	;Set up the SCC regs
		STA	SCCCmd,Y
		INX
		LDA	>TBL1,X
		STA	SCCCmd,Y
		INX
		CPX	#14
		BNE	SetEnv
		CLI		;nable interupts

ZE1		EQU	*
		LDA	SerIRQCnt	;Wait for 1st interupt
		CMP	#1
		BEQ	Ze2
		DEC	CNT1
		BNE	Ze1
		DEC	CNT2
		BNE	Ze1
TIMOUT		EQU	*
		LDA	#02	;Timout fail on IRQ one
		STA	ErrCode1
		BRA	ErrRestore

ZE2		EQU	*
		LDA	SerIRQCnt	;Wait for 2nd interupt
		CMP	#2
		BEQ	CheckTime
		DEC	CNT3
		BNE	Ze2
		DEC	CNT4
		BNE	Ze2
		LDA	#03	;Timout fail on IRQ two
		STA	ErrCode1
		BRA	ErrRestore

CHECKTIME		EQU	*
		LDA	CNT2
		CMP	CNT4	;Upper byte compare
		BNE	BadXtal
		LDA	CNT1
		CMP	#Zer1+Limit	;Low byte 1st IRQ
		BGE	BadXtal
		CMP	#Zer1-Limit
		BLT	BadXtal
		LDA	CNT3	;Low byte 2nd IRQ
		CMP	#Zer2+Limit
		BGE	BadXtal
		CMP	#Zer2-Limit
		BLT	BadXtal
		CLC		;
		BRA	IRQRestore

BADXTAL		EQU	*
		LDA	#04
		STA	ErrCode1
		BRA	ErrRestore

ERRRESTORE	EQU	*
		JSR	IRQRestore
		SEC
		RTS

*
*  Local interupt handler for IRQ on zero count
*

	; SEG	RUNBANK	;Tell assembler next entry in bank $ff
ZERIRQHND		EQU	*
	; SEG	$00
		INC	SerIRQCnt
		LDA	SerIRQCnt	;1st or 2nd time here ?
		CMP	#2
		BEQ	SCNDIRQ
		LDA	CNT1
		STA	STCNT1
		LDA	CNT2
		STA	STCNT2
		BRA	Rtn
SCNDIRQ		LDA	CNT3
		STA	STCNT3
		LDA	CNT4
		STA	STCNT4
RTN		LDA	#0
		STA	SCCCmd,Y
		LDA	#$10	;Reset ext int sts
		STA	SCCCmd,Y
		RTI

*
*  Intrupt manager vector restore
*

IRQRESTORE	EQU	*
		LDY	#ChAIndex
		LDA	#9
		STA	SCCCmd,Y
		LDA	#$00
		STA	SCCCmd,Y
		LDA	SerIRQtemp1
		STA	>INTMGRV+1
		LDA	SerIRQTemp2
		STA	>INTMGRV+2
		LDA	SerIRQtemp3
		STA	>INTMGRV+3
		CLC
		RTS
		ENDIF
		EJECT
***************************************************************
*
*   Internal loopback test
*
***************************************************************

INTLOOP		EQU	*

		SEI
		JSR	ResetSCC	;Reset SCC & point to Ch A
		LDY	#ChAIndex	;
		JSR	SCCRegSet
		JSR	TstCh
		BNE	IntLoopErr

		LDY	#ChBIndex
		JSR	SCCRegSet
		JSR	TstCh
		BNE	IntLoopErr
		CLC
		RTS

INTLOOPERR	STA	ErrCode1
		SEC
		RTS

TSTCH		STZ	DATA
CHN1		STZ	CNT1
		STZ	CNT2
TXCLR		LDA	#0
		STA	SCCCmd,Y
		LDA	SCCCmd,Y
		AND	#$04	;Tx Buffer empty status
		BNE	SendData
		DEC	CNT1
		BNE	TxClr
		LDA	#05	;Tx Buffer empty failure
		RTS

SENDDATA		LDA	DATA
		STA	SCCData,Y
		STZ	CNT1
ALLSENT		LDA	#1
		STA	SCCCmd,y
		LDA	SCCCmd,Y
		AND	#$01	;All Sent status
		BNE	ChkRead
		DEC	CNT1
		BNE	AllSent
		DEC	CNT2
		BNE	ALLSENT
		LDA	#06	;All Sent status fail
		RTS
CHKREAD		STZ	CNT1
		STZ	CNT2
CHKRD		LDA	#0
		STA	SCCCmd,Y
		LDA	SCCCmd,Y
		AND	#$01	;Rx charecter available
		BNE	ChkData
		DEC	CNT1
		BNE	ChkRd
		LDA	#07	;Rx char available error
		RTS
CHKDATA		LDA	SCCData,Y
		CMP	DATA
		BEQ	TxChk
		LDA	#08	;Bad Data
		RTS

TXCHK		LDA	#1
		STA	SCCCmd,Y
		LDA	SCCCmd,Y
		AND	#$70	;Framing, Overrun & Parity errors
		BEQ	AGAIN
		LDA	#09	;Frame, Overrun or Parirty error
		RTS

AGAIN		DEC	DATA
* BEQ Retrn 
* BRA Chn1

		BNE	CHN1

RETRN		LDA	#0
		RTS

SCCREGSET		LDX	#0
SETENV2		LDA	>TBL2,X	;Set up the SCC registers
		STA	SCCCmd,Y	;  for internal loopback.
		INX
		LDA	>TBL2,X
		STA	SCCCmd,Y
		INX
		CPX	#16
		BNE	SetEnv2
		RTS

*
*   Reset the SCC
*

RESETSCC		LDY	#ChAIndex	;Channel A
		LDA	#$9	;Reg 9
		STA	SCCCmd,Y
		LDA	#$C0	;Force an SCC reset
		STA	SCCCmd,Y
		RTS

	; SEG	RUNBANK	;Normally bank $FF
TBL2		EQU	*
		DC.B	9,$00	;Disable interupts
		DC.B	4,$4C	;X16 clk 2 Stp bits
		DC.B	11,$D0	;Xtal RTxC
		DC.B	12,$5E	;Low Byte Time const
		DC.B	13,$00	;Hi Byte Time const
		DC.B	14,$13	;Loopback BR enable
		DC.B	3,$C1	;Rx 8bits
		DC.B	5,$6A	;Tx 8bits Tx enable RTS

		IF BAUD_SWITCH <> 0 THEN		;Only if baud test assembled
TBL1		DC.B	9,$0A	;Enable interupts no vectors
		DC.B	12,$FF	;Low byte of time constant
		DC.B	13,$FF	;Hi byte       "     "
		DC.B	15,$02	;Int on zero count enable
		DC.B	0,$10	;Reset ext status interupt
		DC.B	1,$01	;Ext int enable
		DC.B	14,$03	;BR gen enable & BR source
		ENDIF
		TITLE	'Cortland softswitch test'
***********************************************************
*
* MAIN PROG TO test cortland softswitches
* 8 BIT ROUTINE
* Enter with Data Bank = $00
* Returns with RTL and in 8 bit EML mode.
*
* Test returns with carry set if fail, else carry clear
* kg 01 OCT 85: Created
* KG 03 JAN 86: Modified to run in Bank $FF rom
*
*
* Karl Grabe. Apple Computer Inc., Corcaig
***********************************************************
*
* Now test each softswitch by setting & checking if set,
* then clearing and checking if clear.
*
* 8 of the softswitches have equivalent bits in the STATEREG
* register and these are tested/set/reset and verified
* for correct value and function.
*
* If a fail occurs then:
*       1.   The carry flag is set
*       2.   A contains the failed STATEREG bit ( if any )
*       3.   TST.STATUS+2 +$C000 gives the read softswitch location
*            that the fail occurred on
*       4.   TST.STATUS+1 contains STATEREG bit in error
*
* NOTE: Call in NTV DATA8, Data Bank =$00
*
*
***********************************************************

SOFT_SW		EQU	*
	; SEG	RUNBANK
		PHK
		PLB
		LDA	#$01	;STATEREG bit mask
		LDY	#SOFT_TAB_SIZE	;For all softswitches
NEXT_SW		LDX	SOFT_TAB+1,Y	;Get ready to set switch
		CPX	#NOT_SW	;Test for skip or not
		BEQ	INC_SW_1	;Skip this soft switch

* Set switch ...
		STA	>IOADR,X	;Set it now
		LDX	SOFT_TAB+2,Y	;Get ready to read the switch
		JSR	BANK_0	;Set data bank reg to zero
		ASL	|IOADR,X	;Put bit 7 into carry
		BCC	MEGA_SOFT_ER	;Mega softswitch error

* STATEREG ...
		CMP	#$00	;More STATEREG bits to test ?
		BEQ	CLR_SW	;No ... skip STATEREG test
		BIT	#%00001100	;Testing bit 2 ?
		BNE	STATE_INV	;Yes ... so test inverted.
		JSR	BANK_0	;Set data bank reg to zero
		TRB	|STATEREG	;Test/reset using A mask
		BEQ	MEGA_SOFT_ER	;State reg does'nt match
		ASL	|IOADR,X	;Does STATEREG clr softsw?
		BCS	MEGA_SOFT_ER	;No so err
		TSB	|STATEREG	;Test/set using A mask
		BNE	MEGA_SOFT_ER	;STATEREG did not set, err
		ASL	|IOADR,X	;Does STATEREG set softssw ?
		BCC	MEGA_SOFT_ER	;No .. er
		BRA	CLR_SW	;Jump over inverted bits test

STATE_INV		EQU	*	;Not branched to on new production Mega //
		TSB	|STATEREG	;Test/reset using A mask

* Clear switch ...
CLR_SW		EQU	*
		PHK
		PLB
		LDX	SOFT_TAB,Y	;Get ready to clear
		STA	>IOADR,X	;Clear it
		LDX	SOFT_TAB+2,Y	;Get ready to read softswitch
		JSR	BANK_0	;Set data bank reg to zero
		ASL	|IOADR,X	;Put bit 7 into carry
		BCS	MEGA_SOFT_ER	;Mega softswitch error
		PHK
		PLB
INC_SW		DEY		;softsw cntr by 3
INC_SW_1		DEY		;softsw cntr by 2
		ASL	A	;Move to next STATEREG bit
		DEY
		BPL	NEXT_SW	;Do next soft switch

NORMSTATE		LDA	#$0C
		STA	|STATEREG	;Restore to 'normal' settings
NORMRTL		CLC		;r carry for test pass
		RTL

MEGA_SOFT_ER	EQU	*
		STA	|TST_STATUS+1	;State register Bit at fault (if any)
		STX	|TST_STATUS+2	;>of soft switch at fault
		JSL	>NORMSTATE
		SEC		;carry as test fails
		RTL		;rmine faulty softwsitch from Y
		EJECT
***********************************************************
*
* Softswitches table:
* Format: Clear softswitch, Set softswitch, Read softswitch
* The last 8 softswitches have a STATEREG bit.
*
***********************************************************

SOFT_TAB		EQU	*
		DC.B	SETINTC3ROM,SETSLOTC3ROM,RDC3ROM
		DC.B	CLR80COL,SET80COL,RD80COL
		DC.B	TXTCLR,TXTSET,RDTEXT
		DC.B	MIXCLR,MIXSET,RDMIX
		DC.B	LORES,HIRES,RDHIRES
		DC.B	CLRALTCHAR,SETALTCHAR,ALTCHARSET
		DC.B	CLR80VID,SET80VID,RD80VID
*
* The following softswitches have an equivalent bit
* in the Mega // STATEREG register.
*
STATE_7		DC.B	SETSTDZP,SETALTZP,RDALTZP	;Bit 7
STATE_6		DC.B	TXTPAGE1,TXTPAGE2,RDPAGE2	;Bit 6
STATE_5		DC.B	RDMAINRAM,RDCARDRAM,RDRAMRD	;Bit 5
STATE_4		DC.B	WRMAINRAM,WRCARDRAM,RDRAMWRT	;Bit 4
STATE_3		DC.B	LCBANK1,LCBANK2,RDLCBNK2	;Bit 3
STATE_2		DC.B	ROMIN,LCBANK1,RDLCRAM	;Bit 2
STATE_1		DC.B	NOT_SW,ROMBANK		;Not soft switch. Bit 1 STATEREG
STATE_0		DC.B	SETSLOTCXROM,SETINTCXROM,RDCXROM	;Bit 0 STATEREG
SOFT_TAB_SIZE	EQU	*-SOFT_TAB-3
SOFT_END		EQU	*
	; SEG	$00
		TITLE	'FPI/MEGA SPEED TEST'
;...............................................................
; FPI.SPEED
;
;
; MAIN PROG TO CHECK FAST/SLOW SPEED RATIO OF RAMBO
;
; K.G. 17 SEP 85
;
; 17 SEP 85  File Created
; 14 FEB 86  Modified to run in Bank $FF rom
;
; Call in Native mode 8, Data Bank = $00
; Returns with RTL in Native Mode, Data8, Data Bank = $00
;
;  Errors: TST.STATUS+1: 1=>stuck fast, 2=>stuck slow
;          TST.STATUS+2: Bad ratio measured
;
; By Karl Grabe  Apple Computer Ltd. Cork
;...............................................................

FPI_SPEED		EQU	*	;Sequencer calls with JSL 
	; SEG	RUNBANK	;Bank code is running in
LBL00		EQU	*	;Check correct Video counter freq in Fast mode
		LDA	#%10000000	; SET FPI FAST
		STA	|CYAREG
		JSR	FIND_SPEED	;Leave result in X
		LDY	#1	;Section of the test if it fails =1
		CPX	#>FAST_LIM	;Test low value first
		BEQ	NOW_SLOW	;Is good so check slow mode
		CPX	#<FAST_LIM	;Try high value
		BNE	BAD_SPEED	;Bad so error

NOW_SLOW		EQU	*	;Check correct Video counter freq in Slow mode
		STZ	|CYAREG	;slow mode
		JSR	FIND_SPEED
		LDY	#2	;Section of the test if it fails =2
		CPX	#>SLOW_LIM	;Test low value
		BEQ	NORMRTL
		CPX	#<SLOW_LIM	;Try high value
		BEQ	NORMRTL

BAD_SPEED		EQU	*	;Failed speed test if here
		STY	|TST_STATUS+1	;Section of test that failed (1..2)
		STX	|TST_STATUS+2	;Wrong value we found
		SEC		;d status
		RTL
		EJECT
****************************************************************
*
* Find speed of 816 relative to the Vertical video counter
* The X register ends up with a no which is proportional
* to the speed of the 816 with respect to the Vertical video
* counter which is running at a constant rate.
*
* Call/Ret in NTV8 mode
*
* Return with speed relative speed in X register.
*
*
* Note that this test also takes into account the
* fact that the FPI should slow down when accessing
* the Mega // video counters.
*
****************************************************************

FIND_SPEED	LDX	#0	;Zero counter.
		LDA	>VERTCNT	;Get vertical video counter
LBL01		CMP	>VERTCNT	;Wait till it changes
		BEQ	LBL01	;Loop till new line
		LDA	>VERTCNT	;Just begun new value so get it
LBL02		INX		;counts occurences of same VERTCNT
		CMP	>VERTCNT
		BEQ	LBL02	;Repeate till it changes again
		RTS
		TITLE	'MEGA // Int test.'
****************************************************************
*
*    File : Custom.IRQ
*
****************************************************************
*
*   MEGA and VGC interupts test.
*
*  Modification history:
*
*  12th-Nov-85   :  JR   : Created
*  17th-Feb-86   :  JR   : Modified for Rom
*
* Sequencer calls in NTV8 mode, Data Bank = $00 with JSL.
*
****************************************************************

	; SEG	$00	;Code was written for bank $00

CUSTOM_IRQ	EQU	*	;Sequencer entry point 
		JSR	MEGATstIRQ	;Test Mega // interupts
		BCS	CUS_IRQ_RTL	;Found error so RTL
		JSR	VGCTstIRQ	;Now VGC
CUS_IRQ_RTL	RTL		;

*
*   VBL interupt
*

MEGATSTIRQ	EQU	*
		SEI
		LDA	>INTMGRV+1
		STA	IRQTEMP3
		LDA	>INTMGRV+2
		STA	IRQTemp1
		LDA	>INTMGRV+3
		STA	IRQTemp2
		LDA	#<MEGAIntHnd
		STA	>INTMGRV+1
		LDA	#>MEGAIntHnd
		STA	>INTMGRV+2
		LDA	#^MEGAIntHnd
		STA	>INTMGRV+3

		STZ	INTEN
		STZ	CNT1
		STZ	CNT2
		STZ	CusIRQCnt
		CLI

		STZ	CLRVBLINT
		LDA	#%00001000
		STA	INTEN
LOOP001		LDA	CusIRQCnt
		CMP	#1
		BEQ	VBLIRQTst
		DEC	CNT1	;
		BNE	loop001	;
		DEC	cnt2	;
		BNE	Loop001
		LDA	#$01
		BRA	MegaErr

VBLIRQTST		LDA	CusIRQsts
		AND	#%00001000
		BNE	QtrIRQ
		LDA	#$02
		BRA	MegaErr

*
*  1/4 secound interupt
*

QTRIRQ		STZ	CNT1
		STZ	CNT2
		STZ	CLRVBLINT
		LDA	#%00010000
		STA	INTEN
LOOP002		LDA	CusIRQCNT
		CMP	#2
		BEQ	TstQtrIRQ
		DEC	cnt1	;
		BNE	loop002	;
		DEC	cnt2	;
		BNE	Loop002
		LDA	#$03
		BRA	MegaErr

TSTQTRIRQ		LDA	CusIRQsts
		AND	#%00010000
		BNE	MegRstre
		LDA	#$04

MEGAERR		STA	ErrCode1

MEGRSTRE		EQU	*	;
		SEI		; turn off interrupts
		LDA	IRQTEMP3
		STA	>INTMGRV+1
		LDA	IRQTemp1
		STA	>INTMGRV+2
		LDA	IRQTemp2
		STA	>INTMGRV+3
		LDA	ErrCode1
		BEQ	MegaPass
		SEC
		RTS
MEGAPASS		CLC		;
		RTS

	; SEG	RUNBANK	;Rom code bank
MEGAINTHND	EQU	*
		STZ	|INTEN
		LDA	|INTFLAG
		STA	|CusIRQsts
		INC	|CusIRQCnt
		RTI
	; SEG	$00
		TITLE	'VGC IRQ Test.'
;*****************************************************************
*
*   This is a test of the VGC 1 sec interrupt , and of each of
*   the possable scan line interupts .
*
*     13.Nov.85
*
;*****************************************************************

VGCTSTIRQ		EQU	*
		DATA8
		SEI
		LDA	>INTMGRV+1
		STA	IRQTEMP3
		LDA	>INTMGRV+2
		STA	IRQTemp1
		LDA	>INTMGRV+3
		STA	IRQTemp2
		LDA	#<VGCIntHnd
		STA	>INTMGRV+1
		LDA	#>VGCIntHnd
		STA	>INTMGRV+2
		LDA	#^VGCIntHnd
		STA	>INTMGRV+3

		STZ	VGCINT	;VGC Interupts off
		STZ	SCANINT	;Clear IRQ flags
		STZ	CusIRQSrce	;Point to 1 sec 
		STZ	CusIRQCnt
		STZ	CNT2
		LDA	#$10	;About  4 seconds
		STA	CNT3	;Timeout limit for 1 sec IRQ

		CLI
		LDA	#%00000100
		STA	VGCINT
LOOP003		LDA	CusIRQCNT
		CMP	#1
		BEQ	TstSecIRQ
		DEC	cnt1	;
		BNE	loop003	;
		DEC	cnt2	;
		BNE	Loop003
		DEC	CNT3
		BNE	Loop003
		LDA	#$05
		BRA	ERROR2
		EJECT
TSTSECIRQ		EQU	*
		LDA	CusIRQsts	;Test the IRQ flag
		AND	#$C4	;Test bits 2,6,7 only!!!!!!!
		CMP	#$C4	;For New VGC's  - 31 MAR 86
		IF VGC_SWITCH <> 0 THEN		;For VGC's after about 31 Mar
		BEQ	ScanTst	;Scan Line interrupt
		ELSE
		BEQ	VGCRstre	;( BEQ ScanTst for production VGC's)
		ENDIF
		LDA	#$06
ERROR2		STA	ErrCode1

VGCRSTRE		SEI		;
		STZ	VGCINT
		LDA	#$01
		STA	NEWVIDEO
		LDA	IRQTEMP3
		STA	>INTMGRV+1
		LDA	IRQTemp1
		STA	>INTMGRV+2
		LDA	IRQTemp2
		STA	>INTMGRV+3
		LDA	ErrCode1
		BEQ	VGCPass
		SEC
		RTS
VGCPASS		CLC		;
		RTS

*
*  Scan line test
*

		IF VGC_SWITCH <> 0 THEN		;For new VGC's/room in rom
SCANTST		SEI		;
		LDA	#$FF
		STA	CusIRQCnt
		STA	CusIRQSrce
		STZ	CusLineNo
		STZ	VGCINT
		STZ	SCANINT
		STZ	CNT1
		STZ	CNT2
		LDA	#$C1
		STA	NEWVIDEO	;Enable hires
SCNLINE		LDX	CusLineNo	;One line at a time
SETIRQ		LDA	#%01000000
		ORA	$019D00,X
		STA	$019D00,X	;Set the IRQ bit
		CLI
		LDA	#%00000010
		STA	VGCINT
WAITFIN		LDA	CusIRQCnt
		CMP	CusLineNo
		BEQ	ScnIRQTst
		DEC	CNT1
		BNE	WaitFIN
		DEC	CNT2
		BNE	WaitFIN
		LDA	#$07
		BRA	ERROR2


SCNIRQTST		LDA	CusIRQsts
		CMP	#$B2
		BNE	FailSts
		INC	CusLineNo
		LDA	CusLineNo
		CMP	#0	;Wrap a round
		BNE	ScnLine
		BRA	VGCRstre
FAILSTS		LDA	#$08
		BRL	ERROR2
		ENDIF

		; SEG	RUNBANK
VGCINTHND		EQU	*	;VGC interupt handler
		; SEG	$00
		LDA	VGCINT
		STA	CusIRQsts
		LDA	CusIRQSrce
		BEQ	IncCnt
		LDX	CusLineNo
		LDA	#%10111111
		AND	$019D00,X
		STA	$019D00,X
INCCNT		STZ	VGCINT
		INC	CusIRQCnt
		RTI
		EJECT
		TITLE	'Vegas ROM test'
;...............................................................
; ROM.CHECKSUM
;
; Compute Checksum of rom banks $FE, $FF.
; and compare with expected value
;
; Call  :   In Full native mode, Data Bank 0, use JSL
; Return:   In Full native mode
;
; 20 Feb 86: Created
; 09 Apr 86: Add register based ram test
;
; By Karl Grabe, Apple Computer INC., Cork
;...............................................................

	; SEG	RUNBANK
ROM_CHECKSUM	EQU	*	;Called from  test sequencer
		STZ	RamBank
		JSR	DoZPageInd	;Register based ram test first
		DATA16
		BCS	BAD_RAM	;Ram is bad so report and stop
		STZ	CHK_BEG	;Starting address
		PEA	|$FCFC	;Firts bank $FC
		PLB
		PLB		;et data bank register
		LDY	#$FFFF	;Entire 64k of rom
		JSR	CAL_CHECKSUM	;Go get checksum
		PEA	|$FDFD	;Bank $FD
		PLB
		PLB
		DEY		;Entire 64k of rom
		JSR	CAL_CHECKSUM2	;Get checksum
		PEA	|$FEFE	;Bank $FE
		PLB
		PLB
		DEY		;Entire 64k of rom
		JSR	CAL_CHECKSUM2	;Get checksum
		PEA	|$FFFF	;Bank $FF
		PLB
		PLB
		DEY		;Entire 64k of rom
		JSR	CAL_CHECKSUM2	;Get checksum
;
; Note that the rom checksum must be adjusted 
; to equal $1234
;
		CMP	#$1234	;Compare with a fixed value
; Change CHECKSUM condition in file: MAIN
		IF CHECKSUM <> 0 THEN		;Normally do next line
		BNE	BAD_ROM	;Bad checksum so fail
		ELSE		;Do next line for debugging only
		BRA	GOOD_ROM	;Don't fail ROM checkum
		ENDIF
GOOD_ROM		EQU	*	;Rom ok
		CLC
		RTL
BAD_ROM		EQU	*	;Rom does'nt check out
		STA	>TST_STATUS+1	;Save actual checksum for display
		LDA	#$CDD2	;"RM" = RoM fail
		STA	>LINE1+$100	;Put "RM" msg on screen in case system hangs
		SEC
		RTL		;ttempt to return to sequencer to put bad message on screen
BAD_RAM		EQU	*	;Encountered bad ram during rom test
		LDA	#$01	;Bad ram
		STA	|TST_STATUS+3	;01-> can't do rom tst because bad ram
		STA	|TST_STATUS+1	;Error that occurred (See Test code)
		SEC
		RTL
		EJECT
;...............................................................
;
; Calculate Checksum. 16 Bit ADC
;
; Call  :   In Full native mode, use JSR
; Return:   In Full native mode
;
; Inputs:
;        C: Partially computed checksum, or else 0
;  CHK.BEG: Start address to checksum (Zero Page var)
;        Y: No Bytes  (odd) to checksum
;        B: Set data bank reg to required bank.
;
; Output:
;        C: Checksum of C to C+Y inclusive
;
;
; Note:     Have partially computed checksum in C when
;           dealing with more than one bank.
;
; kg nov85
;...............................................................
CAL_CHECKSUM	EQU	*	;Enter here first bank with C=0, else enter next line+1
		LDA	#$0000	;Clear checksum to zero
		CLC
CAL_CHECKSUM2	EQU	*	;Enter here for remaining banks.
		DEY		;rop to low byte of top address
N_NXT_CHK		EQU	*
		ADC	(CHK_BEG),Y	;Add to previous value
		DEY		;ve to next byte
		BEQ	CHK_END	;Fin except for last 2
		DEY		;ve to next byte
		BNE	N_NXT_CHK	;do next two bytes
CHK_END		EQU	*
		ADC	(CHK_BEG),Y	;Add last 2 bytes
		RTS		;eturn in Native 16 mode
		EJECT
		TITLE	'Cortland ROM Clock Test'
;...............................................................
; CLOCK
; Test each bit in the clock register for R/W
; Restore correct time after test.
;
;
; Created :5 Mar 86, KG
;
; By Karl Grabe, Corcaig.   Apple Computer Ltd.
;...............................................................

	; SEG	RUNBANK
CLOCK		EQU	*
		PEA	|$E1E1
		PLB
		PLB		;ank $E1
;
; Save time
;
		JSL	>TOREADTIME	;Cad e an tam?
		DATA16
		LDA	|CLKRDATA	;Get low binary time word
		STA	|BRAM_WORK	;Save it here for retrieval after test
		LDA	|CLKRDATA+2	;Get hi time word
		STA	|BRAM_WORK+2	;Save it for after test
;
; Now setup CLKWDATA with 00000000 00000001
; and shift thro' each bit
;
		LDA	#$0001	;LSB
		STA	|CLKWDATA	;Lo word
		STZ	|CLKWDATA+2	;Hi word
NXT_CLK_BIT	EQU	*	;Check next clock bit
		JSR	|WR_RD_CMP_TIME	;Write and see if correctly written
		BEQ	CLK_CONT	;Yes, so now check hi word
;Doesn't match, so repeat as a second may have incremented ...
		JSR	|WR_RD_CMP_TIME	;Write and see if correctly written
		BNE	CLK_ERR	;Still doesn't match so we have an error
CLK_CONT		LDA	CLKRDATA+2	;Now check hi word
		CMP	|CLKWDATA+2
		BNE	CLK_ERR	;No so there's an error
		CLC
		ROL	|CLKWDATA	;If carry set then bit moves into hi word
		ROL	|CLKWDATA+2	;
		BCC	NXT_CLK_BIT	;Not finished with 32 bits so continue
		LDA	|BRAM_WORK	;Now restore original time
		STA	|CLKWDATA
		LDA	|BRAM_WORK+2
		STA	|CLKWDATA+2	;Restore hi word
		DATA8
		JSL	>TOWRITETIME
		CLC
		RTL
CLK_ERR		EQU	*	;Fail handler
		SEC
		RTL
		EJECT
;...............................................................
; WR.RD.CMP.TIME  16/16
;
; Write, read back and compare write to read data
; Z=1 if results equal ( ie good )
;...............................................................

WR_RD_CMP_TIME	EQU	*
		DATA8
		JSL	>TOWRITETIME	;Write to clock
		JSL	>TOREADTIME	;Now read back
		DATA16
		LDA	|CLKRDATA	;Clock data read back
		CMP	|CLKWDATA	;Does it match what was written ?
		RTS
		TITLE	'Text Pg1 shadow test'
;*****************************************************************
*
*   File  :  SHADOW
*
;*****************************************************************
*
*
*  This test checks shadow reg bit 0 (text page 1) by writing
*  a known pattern , then  checking for the presence of this 
*  pattern depending on the state of the shadow register.
*
*
*   Modification history  :
*
*   10-Mar-86   :   JR  : Today
*
*   15-Apr-88   : BS Soh: Modify to test the shadowing of text page 2
*                         for the Gyro
*
*   06-Feb-89   : MS Askins: Change Shadow.Tst so that it terminates
*                         with an RTL (not RTS), fixed a stack problem,
*                         code now returns with carry indicating whether
*                         the call was successful.
*
;*****************************************************************
	; SEG	$00	;Reflect data bank

SHADOW_TST	EQU	*
		DATA8
		STZ	SHADOW	;Shadow all
		LDA	#$09
		STA	ShdBit	;Test Shadowing of text page 1 first
		DATA16
		LDA	#$0400	;1st page starting address
		JSR	ShdText	;Test Text Page 1
		BCS	Page1_Err
;
; Text Page 2 shadow test
;
		DATA8
; Check key micro version number
;
		JSR	GETVERSION
		BCS	s_fdb_err	; problem reading up
		CMP	#$6	;Is version >= 6 ?
		BCS	GYROS	;Yes, is Gyro
		BRA	Shd_ret	; No, is gs, skip page 2 test & exit
GYROS		STZ	SHADOW	;Shadow all
		LDA	#$28
		STA	ShdBit	;Test Shadowing of text page 2
		DATA16
		LDA	#$0800	;2nd page starting address
		JSR	ShdText	;go test
		BCS	Page2_Err
		LONGA	OFF
		LONGI	OFF
;
; Testing CYA register Power-On-Clear bit (Bit 6)
;
		LDA	CYAREG	;Read CYA register
		PHA		;ave it
		AND	#$BF	;Clear POC bit
		STA	CYAREG
		LDA	CYAREG	;Read back and check
		AND	#$40	;Bit 6 must be resetable
		BNE	CYAREG_Err	;Error
		LDA	CYAREG
		ORA	#$40	;Set Bit 6
		STA	CYAREG
		LDA	CYAREG	;Read back and check
		AND	#$40
		BEQ	CYAREG_Err	;Error
		PLA
		STA	CYAREG	;Restore it
SHD_RET		RTL		;eturn to caller (end of shadow test)
*
PAGE1_ERR		LDA	#$01	;Page 1 error code
		BRA	epath
*
PAGE2_ERR		LDA	#$02	;Page 2 error code
		BRA	epath
*
CYAREG_ERR	PLA		;Fix the stack
		STA	CYAREG	;Restore it
		LDA	#$04	;CYAREG POC bit error code
		BRA	epath
*
S_FDB_ERR		LDA	#$03	;FDB Call error code
EPATH		EQU	*
		STA	Tst_Status+1
		SEC
		RTL
*
* Test one page of $400 byte beginning with addr specified by acc
*
SHDTEXT		EQU	*
		DATA16
		STA	ShdStrt	;Starting address of the page
		STZ	ShdStrt+2
		LDA	#ShadPatt1
		JSR	ShdWrite	;Write patt # 1 to bank $00
		INC	ShdStrt+2
		JSR	ShdWrite	;Write patt # 1 to bank $01
		MEM8
		LDA	ShdBit
		STA	SHADOW	;Inhibit text shadowing
		IND16
		LDA	#ShadPatt2
		STA	ShdData
		JSR	ShdWrite	;Write patt # 2 to bank $01
		DEC	ShdStrt+2
		JSR	ShdWrite	;Write patt # 2 to bank $00

		JSR	ShdVerfy	;Check bank $00
		BCS	C035_Bad
		INC	ShdStrt+2	;Check bank $01
		JSR	ShdVerfy
		BCS	C035_Bad

		LDA	#ShadPatt1
		STA	ShdData
		LDA	#$00E0
		STA	ShdStrt+2
		JSR	ShdVerfy	;Check bank $E0
		BCS	C035_Bad
		INC	ShdStrt+2
		JSR	ShdVerfy	;Check bank $E1
C035_BAD		EQU	*
		DATA8
		STZ	SHADOW
		RTS

*
*   'Write' a pattern routine
*

		LONGA	ON
		LONGI	ON
SHDWRITE		LDY	#$0000
SHDSTORE		STA	[ShdStrt],Y	;Write directly to the bank
		INY
		INY
		CPY	#ShdLenght	;End of page ?
		BNE	ShdStore
		RTS

*
*  'Verify' the data in any Bank
*

SHDVERFY		LDY	#$0000
SHDFETCH		LDA	[ShdStrt],Y	;Load directly from the bank
		CMP	ShdDATA
		BNE	ShdFail
		INY
		INY
		CPY	#ShdLENGHT
		BNE	ShdFetch
		CLC
		RTS
SHDFAIL		SEC		;
		RTS
		TITLE	'Vegas Battery Ram test'
;...............................................................
; BAT.RAM  (JSL)
; ROM based Battery Ram Tests using Cortland tools
;
;
; Errors: Carry Set,
;         TST.STATUS+1 :  1=ADDRESS, TST.STATUS+2 = Failed address.
;
;         TST.STATUS+1 :  2=PATTTERN, TST.STATUS+2 = PATTERN
;                                     TST.STATUS+3 = FAILED ADDRESS
;
;  Created: 04 Mar 86, KG
;
;  Karl Grabe. Apple Computer Ltd.  Cork.
;...............................................................

	; SEG	RUNBANK
BAT_RAM		EQU	*
		DATA16
		LDA	#BRAM_TEMP	;Used to hold NVR contents suring test
		STA	BAT_RAM_PTR	;READ.NVR routine uses this
		STZ	BAT_RAM_PTR+2	;Upper two bytes of pointer
		JSR	READ_NVR	;Copy it to BRAM.TEMP

;Now do address uniqueness test
		LONGI	OFF
		LONGA	OFF
		LDY	#255	;Entire buffer
NXT_BAT_ADR	EQU	*
		TYA
		STA	|BRAM_WORK-1,Y	;Store unique value in each addr
		DEY
		BNE	NXT_BAT_ADR	;Do next bat ram address
		JSR	WR_RD_CMP	;Write to Bram, read and compare
		BCS	BAT_RAM_ER2	;Error so exit
		LDX	#5	;6 Patterns
		STX	|CUR	;Use as temp storage
NXT_BAT_PAT	EQU	*	;Do next battery pattern
		LDX	|CUR	;Get counter back
		LDA	>BAT_PAT,X
;
; FILL.BRAM.WORK
; Fill BRAM.WORK buffer with accumulator
;
FILL_BRAM_WORK	EQU	*
		LDY	#255	;Entire buffer
NXT_FILL_WORK	EQU	*
		STA	|BRAM_WORK-1,Y	;Fill byte
		DEY
		BNE	NXT_FILL_WORK
		JSR	WR_RD_CMP	;Write to Bram, read then compare.
		BCS	BAT_RAM_ER1	;Er so exit
		DEC	|CUR	;Another Pattern ?
		BPL	NXT_BAT_PAT	;Try another pattern
		BRA	GOOD_BAT_RAM	;Restore Bram and exit

BAT_RAM_ER1	INC	|TST_STATUS+1	;Record error code
BAT_RAM_ER2	INC	|TST_STATUS+1	;Rec er cd
		STA	|TST_STATUS+2	;Address or pattern that failed
		STY	|TST_STATUS+3	;Address of fail if pattern test
		SEC		;rror flag
		RTL		;ack to sequencer

GOOD_BAT_RAM	EQU	*	;Battery ram ok
		DATA16
		LDX	#BRAM_TEMP	;Where we saved NVR initially
		JSR	WRITE_NVR	;Go restore NVR to what was there before test
		CLC		;lear error status
		RTL		;.to sequencer
;...............................................................
; WR.RD.CMP  8/8
; Write BRAM.WORK to Bram, read Bram to BRAM.WORK1
; then copmare BRAM.WORK to BRAM.WORK1 
;
; Carry set if error,
; A = Pattern that failed
; Y = Address fail occurred
;...............................................................
WR_RD_CMP		EQU	*
;
; WR.BRAM.WORK
;
; Write BRAM.WORK to Bram
;
		DATA16
		LDX	#BRAM_WORK	;Save this buffer to bram
		JSR	WRITE_NVR	;Go save it
;
; RD.BRAM.WORK1
;
; Copy Bram into BRAM.WORK1
;
RD_BRAM_WORK1	EQU	*
		LDA	#BRAM_WORK1	;Now read back NVR into this buffer
		STA	BAT_RAM_PTR	;Tell READ.NVR routine where to read to
		JSR	READ_NVR

;
; Now compare BRAM.WORK1 to BRAM.WORK
;
CMP_BRAM_WORK	EQU	*
		LONGA	OFF
		LONGI	OFF
		LDY	#252	;But not checksum bytes (4)
NXT_CMP_WORK	EQU	*
		LDA	|BRAM_WORK-1,Y	;Bram
		CMP	|BRAM_WORK1-1,Y	;Cortalnd ram
		BNE	BRAM_CMP_ER	;No match so error
		DEY
		BNE	NXT_CMP_WORK
		CLC		;ood status
		RTS
BRAM_CMP_ER	EQU	*	;Bad status
		SEC
		RTS
BAT_PAT		DC.B	$AA,$55,$00,$FF,$CC,$33
		EJECT
;...............................................................
; WRITE.NVR 16/16
; Write buffer pointed to by X to NVR
;
;...............................................................
		LONGA	ON
		LONGI	ON
WRITE_NVR		EQU	*
;X already set up
		LDY	#BRAMBUFFER	;Normally in bank $e1
		LDA	#255	;All of buffer
		MVN	$000000,BRAMBUFFER	;Move it into bank $e1
		DATA8
		JSL	>TOWRITEBR	;Go write it
		JSR	BANK_0	;Data bank = 0
		DATA16
		RTS
;...............................................................
; READ.NVR XX/8
; Copy NVR into a 4 byte buffer ppointed to by BAT.RAM.PTR
;
;...............................................................

READ_NVR		EQU	*
		DATA8
		PHB		;ave current data bank reg
		PHP		;ISABLE INTERRUPTS DURING WRITE
		SEI
		LDX	#$00	;Start with 1st byte
		TXY		;tart with address 00
READBRLP		EQU	*
		SEP	#$40	;Set v for read
		JSR	XTNDBRAM	;Read a byte
		PHY		;ave y
		TXY
		STA	[BAT_RAM_PTR],Y	;Save for later
		PLY		;ow restore y

		INX		;ext
		INY		;ext address
		BNE	READBRLP

		PLP		;estore interrupt status
		CLC		;ata intact indicator
		SEP	#$30	;M,X back to 8 bit mode
		PLB		;estore data bank register
		RTS

XTNDBRAM		EQU	*	;Set up command and extended address
		PHA		;ave data to wr to clock register
		TYA		;reate extended address
		PHA		;ave for later
		AND	#$E0	;Get sector data
		LSR	A	;Move to bits 012
		LSR	A
		LSR	A
		LSR	A
		LSR	A
		ORA	#EXMEMCMD	;Sets command corerectly ($38)
		BVC	XTNDBRAM4	;V=0 then writing
		ORA	#$80	;Modify command for reading

XTNDBRAM4		EQU	*
		XBA		;ove in hi byte of a
		PLA		;ecall adr
		AND	#$1F	;Strip off sector bits
		ASL	A	;Shift bits 2 to 6
		ASL	A
		XBA		;ave address/do command
		PHP		;ave user read/write command
		JSR	ACCCLKCLV	;Transfer command to clock chip
		XBA		;end address to write to, to clock chip
XTNDBRAM6		EQU	*
		JSR	ACCCLKCLV	;Transfer extended adr to clk chip
		PLP		;ecall what test sequencer wants
		PLA		;ecall sequencer data if writing
		JSR	ACCCLOCK	;Read/write byte of data
		PHA
		LDA	|CLOCKCTL	;Reset bit
		AND	#$DF
		STA	|CLOCKCTL
		PLA
		RTS

ACCCLKCLV		EQU	*	;Write a byte of data to clock chip
		CLV		;or write data
ACCCLOCK		EQU	*	;Send a byte of data to the clock chip
		STA	|CLOCKDATA	;Data/address/cmd to clock data register
		LDA	|CLOCKCTL	;Reset read/write bit
		AND	#$3F	;Bit 7/6 to 0
		BVS	ACCCLOCK0	;V=1 IF READING
		ORA	#$A0	;Bit 7/5 to 1 to write transfer
		BRA	ACCCLOCK1

ACCCLOCK0		EQU	*	;Doing a read of battery ram if here
		ORA	#$E0	;Enable transfer for reading
ACCCLOCK1		EQU	*	;
		STA	|CLOCKCTL	;
ACCCLOCK2		EQU	*	;Wait till transaction is done
		LDA	|CLOCKCTL	;Wait for transfer to complete
		BMI	ACCCLOCK2	;Loop till done
		LDA	|CLOCKDATA	;Data is in a on exit
		RTS
		TITLE	'Cortland FDB test'
		EJECT
;...............................................................
; FDB
; Test the FDB processor rom
;
;
; Created : 27 Feb 86
; Modified : 19 Mar 86 for rom
; Modified : 10 Apr 86 use FDB tool call
; Modified :  5 Apr 88 for Gyro new keybd micro
;
; Routine to read FDB rom into main ram
; starting at FDB.BUF and then do a checksum.
;
; Call/RET: NTV16
;
; Output: Carry set if error, TST.STATUS+1,+2 CONTAINS BAD CHECKSUM                 
;
; By Karl Grabe Apple Computer Ltd., Cork by the Lee
;...............................................................

FDB		EQU	*
	; SEG	$00
		DATA8
;
; Check key micro version number
;
		JSR	GETVERSION
		BCS	FDB_TOOL_ER	;Tool had problem reading up
		DATA16
		AND	#$FF	;Take away MS byte
		CMP	#$6	;Is version >= 6 ?
		BCS	GYRO	;Yes, is Gyro
		LDA	#FDB_ROM_B	;Start address
		BRA	SKIPNEXT
GYRO		LDA	#FDB_ROM_GYRO_A
SKIPNEXT		STA	POINTER
		LDA	#FDB_BUF	;Where to stash in main mem
		STA	BAT_RAM_PTR
NXT_FDB_BYTE	DATA8
		JSR	R_FDB	;Read a byte
		BCS	FDB_TOOL_ER	;Tool had a problem reading up
		STA	(BAT_RAM_PTR)	;Save it
		DATA16
		INC	BAT_RAM_PTR
		INC	POINTER	;FDB rom address
		LDA	POINTER
		CMP	#FDB_ROM_E+1	;Are we at end of rom yet ?
		BMI	NXT_FDB_BYTE
FDB_CHECK_TST	EQU	*	;Debug entry point (NTV16)
		LDA	#FDB_BUF	;Start of address where FDB rom code is
		STA	CHK_BEG
		LDA	KEY_VERSION	;Get version number
		AND	#$FF
		CMP	#$6	;Is it >= 6?
		BCS	GYRO2	;Yes, Gyro
		LDY	#FDB_ROM_E-FDB_ROM_B	;End address
		BRA	SKIPNEXT2
GYRO2		LDY	#FDB_ROM_E-FDB_ROM_GYRO_A	;End address
SKIPNEXT2		JSR	CAL_CHECKSUM	;Go do checksum (data bank is zero)
		CMP	#FDB_REV2
		BEQ	FDB_GOOD_CHK	;It's rev 2
		CMP	#FDB_REV3	;All other revs must equal this
		BNE	FDB_BAD
FDB_GOOD_CHK	EQU	*
		CLC
		RTL		;allable from disk diagnostics also

		LONGA	OFF
		LONGI	OFF
FDB_TOOL_ER	EQU	*	;Tool had problem reading uC
		LDA	#1	;Tool problem
		STA	TST_STATUS+3	;Last byte of status
FDB_BAD		STA	TST_STATUS+1	;The error tool encountered
		SEC		;ad status
		RTL
		EJECT
	IF USE_FDB_TOOL <> 0 THEN		;Use following code if FDB tool code is in rom
****************************************************************
*
* Read a byte from the FDB Processor Memory (RAM/ROM)
*                      .... Using Vegas Tool code
*
* Call: in 8 bit mode
* RTN : in 8 bit mode
*
* Inputs:
*        (POINTER) is byte to read
*        ROM in range $1400-1FFF
*        RAM in range $0000-0050
*
* Output:
*        ACC containes byte
*
****************************************************************

R_FDB		EQU	*
		MEM16		;Into 16 bit memory
		LONGI	OFF
		LDA	#0	;STZ has no long address mode
		STA	>FLAGS	;Set these to zero for tool
		STA	>FLAGS+2
		STA	>FLAGS+4
		PEA	^RESULT
		PEA	|RESULT	;Where to stash result
		PEA	^POINTER	;And uppr
		PEA	|POINTER	;Tell tool wher i/p is
		PEA	9	;The command no
		PHA		;ush 3 dummy bytes
		PHB		;rd byte
;
; Set up stack to RTL from tool
		LDX	#^FDB_TOOL_RTN	;So we get good rtl from tool
		PHX		;ank address
		PEA	|FDB_TOOL_RTN-1
;
; Set up stack to RTL to tool instead of JSL
		; SEG	$00
		LDA	>FDB_TOOL_ADDR+2	;Push 3 bytes RTL address
		TAX
		PHX
		LDA	>FDB_TOOL_ADDR
		PHA		;et ready to RTL to tool entry point
		DATA16		;Back to index 16 (already in mem16)
		RTL		;o Front Desk Bus tool
		; SEG	RUNBANK
FDB_TOOL_RTN	EQU	*	;Tool will RTL here
;Now pull off garbage bytes
		DATA8
		PLA
		PLA
		PLA
		LDA	|RESULT	;Get rom contents
		RTS
;
****************************************************************
*
* Routine to read the key micro version number
*                        .... Using Tools call
*
* Call: in 8 bit mode
* RTN : in 8 bit mode
*
* Output:
*        KEY.VERSION contains version number
*
****************************************************************

GETVERSION	EQU	*
		MEM16		;Into 16 bit memory
		IND8
		LDA	#0	;STZ has no long address mode
		STA	>FLAGS	;Set these to zero for tool
		STA	>FLAGS+2
		STA	>FLAGS+4
		PEA	1	;Data length
		PEA	^RESULT
		PEA	|RESULT	;Where to stash result
		PEA	$000D	;The command no
		PHA		;ush 3 dummy bytes
		PHB		;rd byte
;
; Set up stack to RTL from tool
		LDX	#^FDB_TOOL_RTN2	;So we get good rtl from tool
		PHX		;ank address
		PEA	|FDB_TOOL_RTN2-1
;
; Set up stack to RTL to tool instead of JSL
		; SEG	$00
		LDA	>RD_KEY_DATA+2	;Push 3 bytes RTL address
		TAX
		PHX
		LDA	>RD_KEY_DATA
		PHA		;et ready to RTL to tool entry point
		IND16		;Back to index 16 (already in mem16)
		RTL		;o Front Desk Bus tool
		; SEG	RUNBANK
FDB_TOOL_RTN2	EQU	*	;Tool will RTL here
;Now pull off garbage bytes
		DATA8
		PLA
		PLA
		PLA
		LDA	|RESULT	;Get rom contents
		STA	KEY_VERSION
		RTS
		EJECT
		ELSE
				;****************************************
*
* Read a byte from the FDB Processor Memory (RAM/ROM)
*                      ... Don't use FDB Tool code
*
* Call: in 8 bit mode
* RTN : in 8 bit mode
*
* Inputs:
*        (POINTER) is byte to read
*        ROM in range $1400-1FFF
*        RAM in range $0000-0050
*
* Output:
*        ACC containes byte
*
				;****************************************

		DATA8
R_FDB		LDA	#%00001001	;Command byte to read UP memory
		JSR	FDB_CMD	;Do a store to FDB micro, rtn when ready
		BCS	ERR_RET	;Error sending command
		LDA	POINTER	;the low byte of rom start address
		JSR	FDB_CMD	;Store lo address
		BCS	ERR_RET	;Error sending command
		LDA	POINTER+1	;Hi address
		JSR	FDB_CMD	;Do hi
		BCS	ERR_RET	;Error sending command
		JSR	FDB_RDATA	;Read data & wait till rdy
		BCS	ERR_RET	;Error sending command
		RTS


;...............................................................
; FDB.CMD
; Write a byte to FDB processor
;
; Store acc in FDB command register and wait
; 'till ready for next command/data
;
; Input Accumulator
;
; 8 bit mode
;...............................................................

FDB_CMD		EQU	*
		IND16
		PHP		;ave interrupt status
		SEI		;o interrupts
		TAX		;ave the command/data byte
;@2 LDA DATAREG  ;DUMMY READ
		LDA	KMSTATUS	;Get status for command accept
		ROR	A	;Put lsb in carry
		TXA		;t data back
;BCS @2
		BCS	FDB_ERR	;BRA If register not empty, flag error !!
		STA	DATAREG	;Else store away new command/data
		LDX	#7500	; Timeout 7500*(2+2+4+2+3)/3 = 30 ms
@1		DEX		;
		BEQ	FDB_ERR	;Timeout error
		LDA	KMSTATUS	;Get command reg full bit
		ROR	A	;Put lsb in carry
		BCS	@1
		PLP		;estore interrupt status
		IND8
		CLC		;'=0, o.k.
		RTS
FDB_ERR		PLP		;
		IND8
ERR_RET		SEC		;
		RTS
		EJECT
;...............................................................
; FDB.RDATA
; Read a byte from FDB processor
;
; Read DATAREG register ( Wait till data valid )
;
; Output : Accumulator
;
; 8 bit mode
;
;...............................................................

FDB_RDATA		EQU	*
		IND16
		PHP		;ave interrupt status
		SEI		;o interupts allowed
		LDX	#7500
@1		DEX		;
		BEQ	FDB_ERR	;Timeout error
		LDA	KMSTATUS
		AND	#$20	;Data full?
		BEQ	@1	;No, wait
		LDA	DATAREG	;Get the FDB DATA
		PLP
		IND8
		CLC
		RTS

;...............................................................
; Read the version number from key board micro
;                        ... Don't use FDB Tools call
;
; Call: in 8 bit mode
; Rtn; in 8 bit mode
; Input: None
;
; Output:
;   ACC contain version number
;   KEY.VERSION contain version number
;...............................................................

GETVERSION	EQU	*
		LDA	#$0D	;Command to read kbmicro version number
		JSR	FDB_CMD	;Send command to kb micro
		BCS	ERR_RET	;Error sending command
		JSR	FDB_RDATA	;Read back data
		BCS	ERR_RET	;Error sending command
		STA	KEY_VERSION
		RTS
		ENDIF

		TITLE	'New Ram Address Test'
;**************************************************
*
* File: RAM.ADDR
*
* Routines to test the addressing of all onboard RAM
*  taking care to notice the Bank Address in the test.
*
*
*  20 Mar 86  R.Carr       New Today!
*
*  11 Nov 86  R.Montagne   Rewritten to fix access of
*                          bank0 softswitches when I/O
*                          shadowing is turned off.
*
*  18 May 88  BS Soh       Expanded to 1 M Ram for Rev D
*
*
;**************************************************
	; SEG	RUNBANK
RAM_ADDR		EQU	*
	; SEG	$00
DONEWADDR		EQU	*
;pea $00E1 ; data bank to E1 for softsw access
;plb
		DATA8
		JSR	GETVERSION
		BCS	A_FDB_err	;Tool had problem reading up
		LDA	|shadow	; preserve shadow register
		PHA
		LDA	#%01111111	; and turn shadowing off
		STA	|shadow
		LDX	#3	; pointer to bank under test
WLP1		LDA	>Banktbl,x
		STA	RamBank
		STA	loc+2
		PHX		; save test bank pointer
		REP	#$30	; 16 bit 'm' and 'x'
		LONGA	ON
		LONGI	ON
		STZ	loc	; sets up the indirection
		LDY	#$400	; start addr
		LDX	#$bffe	; end addr
		JSR	writeit	; fill mem with test pattern
		SEP	#$20	; 8 bit 'm'
		LDA	lcbank1	; R/W ram lc bank 1
		LDA	lcbank1
		REP	#$20	; 8 bit 'm'
		LDY	#$d000	; start address
		LDX	#$fffe	; end address
		JSR	writeit	; fill mem with test pattern
		SEP	#$30	; 8 bit 'm' and 'x'
		LONGA	OFF
		LONGI	OFF
		PLX		; restore test bank pointer
		DEX
		BPL	wlp1
;
; Check key micro version number
;
		LDA	KEY_VERSION
		CMP	#$6	;Is version >= 6 ?
		BCC	IIGS	;No, it's IIgs
		LDA	#$01
		STA	RamBank
EXPBANK_A		INC	RamBank	; Start with Bank $02
		LDA	RamBank
		CMP	#$10	;Has it exceeded max?
		BCS	IIgs	;Yes Exit
		STA	loc+2	; Setup bank number
		DATA16
		STZ	loc	; Setup the indirection
		LDY	#0	; Start from 0
		LDX	#$fffe	; End address
		JSR	writeit	; Fill memory with test pattern
		MEM8
		BRA	ExpBank_A	; More Bank
;
A_FDB_ERR		LDA	#$FF
		STA	ErrCode1
		SEC
		BRA	NewAddrErr
;
IIGS		IND8
		LDX	#3	; pointer to bank under test
CLP1		LDA	>BankTbl,x	; get bank under test
		STA	Rambank
		STA	loc+2
		PHX
		REP	#$30	; 16 bit 'm' and 'x'
		LONGA	ON
		LONGI	ON
		STZ	loc	; preset address
		LDY	#$400	; start of addr check
		LDX	#$bffe	; end of addr check
		JSR	cmpit
		BCS	CmpFail
		SEP	#$20	; 8 bit 'm'
		LDA	lcbank1	; R/W ram in LC bank 1
		LDA	lcbank1
		REP	#$20	; 8 bit 'm'
		LDY	#$d000	; start address
		LDX	#$fffe	; end address
		JSR	cmpit
CMPFAIL		SEP	#$30	;carry is set on error
		LONGA	OFF
		LONGI	OFF
		PLX		; restore pointer to test bank
		BCS	NewAddrErr
		DEX
		BPL	Clp1
;
; Check key micro version number
;
		LDA	KEY_VERSION
		CMP	#$6	;Is version >= 6 ?
		BCC	NewAddrErr	;No, it's IIgs
		LDA	#$01
		STA	RamBank
EXPBANK_B		DATA8
		INC	RamBank	; Start with Bank $02
		LDA	#$0F	;Maximum bank number
		CMP	RamBank	;Has it exceeded max?
		BCC	NewAddrErr	;Yes Exit
		LDA	RamBank
		STA	loc+2	; Setup bank number
		DATA16
		STZ	loc	; Setup the indirection
		LDY	#0	; Start from 0
		LDX	#$fffe	; End address
		JSR	cmpit	; Compare it pattern
		BCC	ExpBank_B	; More Bank
		DATA8
NEWADDRERR	EQU	*
		PLA		; restore shadow reg
		STA	$E0C035	;real shadow location
;plb ; set bank back to 0
		BIT	|$C081	; turn the rom back on
		RTL
*
WRITEIT		EQU	*
		STX	RamEndAddr
WRITELP1		TYX
		TYA
		CLC
		ADC	RamBank
		TXY
		STA	[loc],y
		INY
		INY
		CPY	RamEndAddr
		BCC	writelp1
		RTS
*
CMPIT		EQU	*
		STX	RamEndAddr
CMPLP1		TYX
		TYA
		CLC
		ADC	RamBank
		TXY
		CMP	[loc],y
		BNE	cmperror
		INY
		INY
		CPY	RamEndAddr
		BCC	cmplp1
		CLC
		RTS
*
CMPERROR		EQU	*
		STA	ErrCode1	;16 bit write is ok!
		TYA		; as this covers it
		XBA
		STA	ErrCode2
		SEC
		RTS
*
*
	; SEG	RUNBANK	;Table is in ROM
BANKTBL		DC.B	$0,$1,$E0,$E1	;table of banks to check
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSFirmware/Diagnostics/DIAG.aii b/IIGS.601.SRC/GSFirmware/Diagnostics/DIAG.aii
new file mode 100644
index 0000000..58cb873
--- /dev/null
+++ b/IIGS.601.SRC/GSFirmware/Diagnostics/DIAG.aii
@@ -0,0 +1 @@
+
;	This EdAsm/Asm816 source code file was converted to AsmIIGS
;	by EdAsmCvtIIGS version 1.2d7 on 5/14/91 at 7:6:34 PM

		PRINT	NOGEN

		MACHINE	M65816
		INCLUDE	'::Firmware.Macros.aii'
		PRINT	PUSH
		PRINT	OFF
		INCLUDE	'::Firmware.Equates.aii'
		PRINT	POP
		INCLUDE	'DIAG.MACROS.aii'
		MSB	ON
		TITLE	'Cortland Diagnostics'
RUNBANK		EQU	$FF	;Bank code will run in
PEA_BANK		EQU	RUNBANK*16*16+RUNBANK
	; SEG	RUNBANK	;ROM Bank code resides in
BAUD_SWITCH	EQU	0	;0 (No room in rom) See serial test
VGC_SWITCH	EQU	0	;0 (No room in rom) See Custom.Irq file
SEQ_DEBUG		EQU	0	;Normally 0 ( Use DIAGTYPE and NOT SW2 )
CHECKSUM		EQU	1	;Normally 1, 0 -> skip 128K checksum tst
USE_FDB_TOOL	EQU	0	;Normally 1 to use Bank $FF FDB tool code

BI_MASK		EQU	%1111111111111111	;Tests to run if in BI and BTN0 = 1
SELF_MASK		EQU	%1111111111111111	;Tests to run in self test
BI_SELF_MASK	EQU	%1111111100111111	;Tests to run in BI and BTN0 =0

Bnk~Org		EQU	$6400

DIAGNOSTICS	PROC	ORG $FF6400
		WITH	DIAG_VARS
		
Rel~Org		BRA	ST_SEQ_B	;Skip over test pointer table


****************************************************************
*
* Test pointer table
* Points to tests in Bank $FF
* Tests must return with RTL instruction
* (This allows disk s/w to look up the pointer table and
*  call the tests from any bank).
* kg
****************************************************************


TST_TAB		DC.B	TST_TAB_E-*-3	;Number of pointers times 2

		DC.W	ROM_CHECKSUM	;Test 1  128K rom
		DC.W	MOVIRAM	;Test 2  Ram: Moving Inversions
		DC.W	SOFT_SW	;Test 3  Mega // & Statereg softswitch test
		DC.W	RAM_ADDR	;TEST 4  Ram: Addressing
		DC.W	FPI_SPEED	;Test 5  Fpi fast/slow mode check
		DC.W	SER_TST	;Test 6  Serial Chip
		DC.W	CLOCK	;Test 7  Real Time Clock
		DC.W	BAT_RAM	;Test 8  Battery ram
		DC.W	FDB	;Test 9 Front Desk Bus
		DC.W	SHADOW_TST	;Test 0A Shadow
	IF SEQ_DEBUG <> 0 THEN		;Do following 'test' for debug only
		DC.W	TEST1	;Fails if a key is pressed
	ENDIF
		DC.W	CUSTOM_IRQ	;Test 0B Interrupts
		DC.W	DOC_EXEC	; DOC, Doc ram, sound glu diagnostics

TST_TAB_E		EQU	*	;End of test pointer table
		DC.W	EXT_SEQ	;Pointer for Disk s/w

		INCLUDE	'DIAG.ROM.SEQ.aii'
		INCLUDE	'DIAG.TESTS.aii'
		TITLE	'Ensoniq DOC rom diags.'
		EJECT
*
*
*         DDDD   OOOOO  CCCCC   DDDD  IIIII  AAAAA GGGGG  SSSSS
*         D   D  O   O  C       D   D  III   A   A G      S    
*         D   D  O   O  C       D   D  III   AAAAA GGGGG  SSSSS
*         D   D  O   O  C       D   D  III   A   A G   G      S
*         DDDD   OOOOO  CCCCC   DDDD  IIIII  A   A GGGGG  SSSSS
*
*                  Copyright Apple Computer, Inc.  1986
*                         All Rights Reserved
*
*****************************************************************
*                                                               *
* Modification History:                                         *
*                                                               *
* Rel  Date       Who  Action                                   *
* ------------------------------------------------------------- *
* 0.1 10-21-86    G.A  Initial release of Ensoniq rom base diag *
*                                                               *
*****************************************************************
;
;
DOC_START		EQU	*	; START OF DOC diagnostics
		INCLUDE	'DOC.TESTS.aii'
;
		PRINT	ON	; 
DOC_END		EQU	*	;
PROG_SIZE		EQU	DOC_END-DOC_START	;
;
		FillTo	$7C00-2	;Leave room for pointer

		DC.W	TST_TAB	;Tell Singapore/Cork where table is


		ENDP
		
		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSFirmware/Diagnostics/DOC.TESTS.aii b/IIGS.601.SRC/GSFirmware/Diagnostics/DOC.TESTS.aii
new file mode 100644
index 0000000..309f6f1
--- /dev/null
+++ b/IIGS.601.SRC/GSFirmware/Diagnostics/DOC.TESTS.aii
@@ -0,0 +1 @@
+		TITLE	'Doc register init routine'

;	This EdAsm/Asm816 source code file was converted to AsmIIGS
;	by EdAsmCvtIIGS version 1.2d7 on 5/14/91 at 7:16:40 PM

;********************************************************
*
* Doc.exec: This routine will control the execution of the rom
*           based sound diagnostics.  The test will consist of
*           a ram test, register test and a limited functional
*           test which will generate tones using a sawtooth
*           waveform.
*
*     Input: e=0, m=0, x=0 ; full native
*            All registers preserved.
*
*     Output: e=0, m=0, x=0 ; full native
*             same as entry
*
;********************************************************
DOC_EQU		EQU	*	;
;
;
DOC_EXEC		EQU	*	;
		CLC		;
		XCE		; native mode
		LONGA	ON
		LONGI	ON
		REP	#$30	; m=0, x=0
		PHB		; save data bank
		PHD		; save direct reg.
		TSC		; form a zero page area
		SEC		;
		SBC	#$10	; 16 bytes of zero page
		TCS		;
		INC	A	; point to zero page addr 0
		PHA		; set direct register
		PLD		;
		PEA	$0000	; set data bank
		PLB		;
		PLB		;
		JSR	doc_init	; place doc in a known state
;
;**************************************************
*
* This set of tests to be integrated into
* Apple][GS ROM includes the following
* diagnostic functions related to the 
* Ensoniq DOC.....
*
* (0)   Address Register Test
* (1)   RAM data test
* (2)   RAM Address test
* (3)   Register Data Test
* (4)   Control Register Test
*
* Written by Ray Montagne - Oct. 30, 1986
*
;**************************************************
		SEP	#$30	; 8 bit 'm' and 'x'
		LONGA	OFF
		LONGI	OFF
NEXT0		EQU	*
		JSR	ram_data	; do ram data test
		BCC	next1	; if no error
		LDA	#$01	; ram data test
		BCS	report	;
NEXT1		EQU	*
		JSR	doc_ram	; do ram address test
		BCC	next2	; if no error
		LDA	#$02	;
		BCS	report	;
NEXT2		EQU	*
		JSR	reg_data	; do register data test
		BCC	next3	; if no error
		LDA	#$03	;
		BCS	report	;
NEXT3		EQU	*
		JSR	ctrl_reg	; do control register test
		BCC	next4	; if no error
		LDA	#$04	; sound glu control reg error
		BCS	report	;
NEXT4		EQU	*
		JSR	Doc_sound_tst	; run the sound diagnostics
REPORT		EQU	*	;
		SEP	#$30	; m,x 8 bits
		LONGA	OFF
		LONGI	OFF
		STZ	|tst_status+1	; clear error field
		STZ	|tst_status+2	;
		STA	|tst_status+3	; save possible error code
		LDA	#$0C	; save test number
		STA	|tst_status	;    
;
EXIT_DOC_EXEC	EQU	*	; all done go away
		PHP		; save carry bit
		JSR	doc_init	; shut down the DOC
		PLX		; carry status in x for now
		TSC		; restore stack space
		CLC		;
		ADC	#$10	;
		TCS		;
		PHX
		PLP		; restore carry bit
		PLD		; restore direct register
		PLB		; & data bank
		RTL		; >>>--- exit Doc.exec --->>>
;
;
		TITLE	'RAM data test'
;**************************************************
*
* This test checks the data lines to each
* location in DOC ram.
*
;**************************************************
RAM_DATA		EQU	*
		LONGA	OFF		;
		LONGI	ON
		REP	#$10	; 16 bit index registers
		STZ	|sgaddrl	; set base address
		STZ	|sgaddrh
		LDA	#%01000000	; select ram w/o incr
		STA	|sgcontrol
		LDA	|sgcontrol	; a short delay (I don't know why)
		LDA	|sgdata
		LDY	#$0000	;
RAMDATA0		EQU	*
		LDA	#$01
		STA	TheData	;Test Pattern
		LDX	#$0007	; point top of pattern table
RAMDATA1		EQU	*
		LDA	TheData	; get data pattern
		STA	|sgdata	; write to sound ram
		JSR	ReadData	; read it back
		CMP	TheData	; and check it
		BNE	RamDatErr	; if ram data error
		ASL	TheData	; next pattern
		BNE	RamData1	; check all bits
		DEY		; next ram location
		STY	|sgaddrl	; set address register
		BNE	RamData0	; then go test next location
		LONGI	OFF
		SEP	#$10	; 8 bit index registers
		CLC
		RTS
READDATA		EQU	*	;
		LDA	|sgdata
		LDA	|sgdata
		RTS		;

		TITLE	'RAM address test'
;**************************************************
*
* This test checks the each of the address
* lines to DOC ram for either shorts or 
* opens.  The test does not distinguish
* any difference between a short or open.
*
;**************************************************
DOC_RAM		EQU	*
		LDA	#%01100000	; set ram w/incr
		STA	|sgcontrol
		LDA	|sgcontrol	; a short delay
		LDA	|sgdata	; update register data
		REP	#$10	; 16 bit 'x'
		LONGI	ON
		LDX	#$0001	; initial test address
RAMADDR0		EQU	*
		JSR	clrram	; clear all ram to zero
		STX	|sgaddrl	; set test address
		LDA	#$A5	; write unique data to test addr
		STA	|sgdata
		STZ	|sgaddrl	; set ram base address
		STZ	|sgaddrh
		LDY	#$0000	; address counter
		LDA	|sgdata	; clock in preset address
RAMADDR1		EQU	*
		LDA	|sgdata	; read ram and check for data
		CMP	#$A5
		BEQ	RamAddr2	; if found data
RAMADDR3		EQU	*
		DEY		; check all of ram
		BNE	RamAddr1
		REP	#$20	; 16 bit 'm'
		TXA		; get test address
		ASL	a	; make next test addr
		TAX
		SEP	#$20	; 8 bit 'm'
		BCC	RamAddr0	; loop till all lines checked
		SEP	#$30	; 8 bit 'm' and 'x'
		CLC		; return without error
		RTS
RAMADDR2		EQU	*
		INX		; adjust for auto incr
		INX
		CPX	|sgaddrl	; is addr = test addr?
		PHP
		DEX		; but put it back
		DEX
		PLP
		BEQ	RamAddr3	; yes, ignore it
RAMDATERR		EQU	*	;
		SEP	#$31	; 8 bit 'm' & 'x' with carry set
		RTS
		TITLE	'Clear DOC Ram'
;**************************************************
*
* This routine must be called in 16 'x' native mode
*
;**************************************************
CLRRAM		EQU	*
		PHX
		LDX	#0
		STZ	|sgaddrl	; set base address
		STZ	|sgaddrh
CLRRAM0		EQU	*
		STZ	|sgdata	; clear the ram
		DEX
		BNE	clrram0
		PLX
		RTS
		TITLE	'Register data test'
;**************************************************
*
* This test checks the data lines to each
* of the DOC registers.
*
;**************************************************
		LONGA	OFF
		LONGI	OFF
REG_DATA		EQU	*
		STZ	|sgaddrl	; set base address
		STZ	|sgcontrol	; select register w/o incr
		LDA	|sgdata
		LDX	#0	; init mask table pointer
REGDATA0		EQU	*
		LDA	#$01
		STA	TheData	;Test Pattern
REGDATA1		EQU	*
		LDA	TheData	; get data pattern
		AND	>DataMask,x	; bits to check
		STA	TestData	; save test data for compare
		STA	|sgdata	; write to sound register
		JSR	ReadData	; read it back
		AND	>DataMask,x	; mask off untestable bits
		CMP	TestData	; and check data integrity
		BNE	RegDatErr	; if register data error
REGDATA2		EQU	*
		ASL	TheData	; Next pattern
		BNE	RegData1	; check all bits
REGDATA3		EQU	*
		INC	|sgaddrl	; increment register address
		LDA	|sgaddrl
		CMP	#$E0	; done all?
		BEQ	RegData4	; yes
		ROL	a	; else make mask index
		ROL	a
		ROL	a
		ROL	a
		AND	#%00000111
		TAX
		BRA	RegData0
REGDATA4		EQU	*
		CLC
		RTS
REGDATERR		EQU	*
		SEC
		RTS


;
;
CODE_BANK		EQU	RUNBANK
		; SEG	code_bank	; code runs out of bank $FF
;
DATAMASK		EQU	*
		DC.B	%11111111	; bits to test in addr range $00-1F
		DC.B	%11111111	; bits to test in addr range $20-3F
		DC.B	%11111111	; bits to test in addr range $40-5F
		DC.B	%00000000	; bits to test in addr range $60-7F
		DC.B	%11111111	; bits to test in addr range $80-9F
		DC.B	%11110110	; bits to test in addr range $A0-BF
		DC.B	%01111111	; bits to test in addr range $C0-DF
		DC.B	%00000000	; bits to test in addr range $E0-FF
;
	; SEG	$00
;
		TITLE	'Control Register test'
;**************************************************
*
* This test checks the operation of bits 
* 5 and 6 in the sound glu control register.
*
;**************************************************
CTRL_REG		EQU	*
		STZ	|sgaddrl	; set address $0000
		STZ	|sgaddrh
		STZ	|sgcontrol	; set DOC register access w/o incr
		LDA	#$A5	; write unique data to DOC register
		STA	|sgdata
		LDA	#%01000000	; set DOC ram access w/o incr
		STA	|sgcontrol
		LDA	#$5A	; write unique data to DOC ram
		STA	|sgdata
		STZ	|sgcontrol	; set DOC register access w/o incr
		JSR	ReadData	; read data from DOC register
		CMP	#$A5
		BNE	CtrlErr	; if data incorrect
		STA	|sgdata	; if problems, will induce ram error
		LDA	#%01000000	; set DOC ram access w/o incr
		STA	|sgcontrol
		JSR	ReadData	; read data from DOC ram
		CMP	#$5A
		BNE	CtrlErr	; if data incorrect
		CLC
		RTS
CTRLERR		EQU	*
		SEC
		RTS
		TITLE	'DOC sound test'
;********************************************************
*
* Doc.sound.tst: This routine load a waveform into memory and
*                play it in interrupt driven mode making sure
*                that each oscillator is able to play and
*                generate interrupts.
*
*     Input: e=0, m=?, x=?
*
;********************************************************
DOC_SOUND_TST	EQU	*	;
		LONGA	OFF
		LONGI	OFF
		PHP		; save m,x
		SEP	#$30	;
		JSR	doc_init	; set DOC to known state
		JSR	make_waves	; initialize sawtooth waveform
		STZ	irq_counter	; reset interrupt counter
		STZ	fail_timer	; reset failsafe timer
		STZ	fail_timer+1	;
		LDA	#$20	; 32 oscillators
		STA	osc_busy	;
		LONGA	ON		;
		REP	#$20	; 16 bit accumulator
		LDA	#doc_irq	; set interrupt handler
		STA	>irq_vector+1	; set up vector
		LDA	#>doc_irq	;
		STA	>irq_vector+2	;
		LONGA	OFF		;
		SEP	#$20	;
		CLI		; enable interrupts
		LDA	#$80	; volume halfway
		LDX	#$40	;
		LDY	#$20	; all 32 oscillators
		JSR	reg_init	;
		LDA	#$08	;
		LDX	#$20	;
@10		EQU	*	;
		JSR	write_reg	; write to the frequency register
		INC	A	; bump the 
		INX		; bump register number
		DEC	osc_busy	; count 32 osillators
		BNE	@10	;
@6		BIT	osc_busy	; wait for it to finish
		BNE	@5	;
		LDA	irq_counter	; check the interrupt count
		CMP	#$20	; check for 32 irq osc 0-1F
		BLT	@1	; all done! 
		LDX	#$00	; mark success
		PLP		; mark success
		CLC		;
		BCC	@2	; and go away
@1		LDA	irq_counter	; point to next oscillator
		CLC		;
		ADC	#doc_control	;
		TAX		;
		LDA	#$08	; remove halt bit and enable irq
		JSR	write_reg	;
		LDA	#$FFFF	; mark oscillator busy
		STA	osc_busy	;
@5		EQU	*	;
		REP	#$20	; 16 bit accumulator
		DEC	fail_timer	;
		SEP	#$20	; 8 bit accumulator
		BNE	@6	; not exausted
		LDX	#$05	; sound irq timeout
		PLP		; set failed mark
		SEC		; mark an error
@2		PHP		; save status
		LONGA	OFF		;
		SEP	#$20	;
		LDA	sgcontrol	; get control bits
		AND	#$F0	; mask off sys vol bits
		ORA	#$08	; sys. vol. mid. range
		STA	sgcontrol	; write it back out
		TXA		; restore possible error code
		PLP		; restore m,x
		RTS		; >>>--- exit doc.sound.tst --->>>
		TITLE	'doc init routine'
;********************************************************
*
* Doc.init: This routine will set all the oscillators to a
*           known state, ie; oscillators halted, volume set
*           to zero, frequency registers set to zero and
*           buffer pointers reset to zero.
*
*     Input: e=0, m=?, x=?
*
*     Output: e=0, m,x same as entry
*             A=$01, X=$C0, Y=$00
*
;********************************************************
DOC_INIT		EQU	*	;
		PHP		; save m, x
		LONGA	OFF
		LONGI	OFF
		SEP	#$30	; m=1, x=1
		LDA	#62	; enable all oscillators.
		LDX	#$E1	; oscillator enable register
		JSR	write_reg	;
		LDA	#$00	; clear frequency registers
		TAX		; frequency & volume registers
		LDY	#$60	; 96 registers freq. & volume
		JSR	reg_init	;
		LDA	#$3F	; 32K buffers
		LDX	#$C0	; reset size/resolution regs.
		LDY	#$20	; 32 registers
		JSR	reg_init	;
		LDA	#$00	; osc 0-F buffer starts $0000
		LDX	#$80	; address pointer registers
		LDY	#$10	; 16 oscillators
		JSR	reg_init	;
		LDA	#$80	; osc 10-1F buffer starts $8000
		LDX	#$90	; address pointer registers
		LDY	#$10	; 16 oscillators
		JSR	reg_init	;
		LDA	#$01	; control reg: no irq, halted
		LDX	#$A0	;
		LDY	#$20	; 32 registers
		JSR	reg_init	;
;
;              Note: The following code is required to flush
;                    sound interrupts which are pending as
;                    a result of enabling the oscillators.
;
		LDA	#doc_no_inc	; select doc no auto incr.
		STA	|sgcontrol	;
		LDA	#doc_irq_reg	; point to Doc irq register
		STA	|sgaddrl	;
		LDX	#$22	; read the register 34 times
@10		EQU	*	;
		LDA	|sgdata	; read for possible irq
		DEX		;
		BPL	@10	;
		PLP		; restore m, x
		INC	|clockctl	; change the border color
		RTS		; >>>--- exit doc.init --->>>
		TITLE	'Doc register init routine'
;********************************************************
*
* Reg.init: This routine will write a value specified by reg A
*           into the registers specified by the contents of
*           register X for a count of registers specified by
*           register Y.
*
*     Input: e=0, m=?, x=?
*            (A) = value to write to registers
*            (X) = first register to write to
*            (Y) = number of consecutive registers to write to.
*
;********************************************************
REG_INIT		EQU	*	;
		PHX		; save register number
		PHP		; save m,x
		LONGA	OFF
		LONGI	OFF
		SEP	#$30	; make all 8 bits
		STX	|sgaddrl	; initialize the start reg.
		LDX	#Doc_incr	; select Doc with auto incr.
		STX	|sgcontrol	; sound Glu control register
@1		EQU	*	;
		STA	sgdata	; write to first register
		DEY		; decrement register count
		BNE	@1	; write until count = $00
		PLP		; restore processor
		PLX		; restore reg number
		RTS		; >>>--- exit Reg.init --->>>
		TITLE	'Read Doc register routine'
;********************************************************
*
* Read.read: This routine will read any doc register specified
*            by the accumulator register.
*
*     Input: e=0, m=?, x=?
*
;********************************************************
READ_REG		EQU	*	;
		PHP		; save m, x
		SEP	#$30	;
		STX	|sgaddrl	; set up register to talk to
		LDA	#doc_incr	; select the DOC
		STA	sgcontrol	;
		LDA	|sgdata	; read the register
		LDA	|sgdata	;
		PLP		; restore m, x
		RTS		; >>>--- exit Read.reg --->>>
		TITLE	'Write DOC register routine'
;********************************************************
*
* Write.reg: This routine will write to one register in the DOC.
*
*     Input: e=0, m=?, x=?
*            A=data to write to register
*            X=register to write to
*
*     Output: e=0, m, x same as entry
*             A, X same as entry
*             Y = $00
*
;********************************************************
WRITE_REG		EQU	*	;
		LONGA	ON		;
		LONGI	ON		;
		PHP		; save m, x bits
		REP	#$30	;
		LDY	#$01	; one register
		JSR	reg_init	; initialize one register
		PLP		; restore m, x
		RTS		; >>>--- exit write.reg --->>>
		TITLE	'Sawtooth wave maker'
;********************************************************
*
* Make.waves: This routine will create a sawtooth wave pattern
*             throughout the DOC ram ($0000-$FFFF).
*             The Data pattern for the ram is as follows:
*             $01,$01,$02,$03......$FE,$FF.  The first $01 is
*             a replacement for $00 which at this stage of the
*             test is not allowed.
*
*     Input: e=0, m=?, x=?
*            A,X = don't care (preserved)
*      
;********************************************************
MAKE_WAVES:	PHA		; save registers
		PHX		;
		PHP		; save m,x
		LONGA	OFF
		LONGI	ON
		REP	#$10	; x=0
		SEP	#$20	; m=1
		LDX	#$0000	; set counter/address pointer
		STX	|sgaddrl	; write to sgaddrl,sgaddrh
		LDA	#ram_incr	; DOC ram with auto incr
		STA	sgcontrol	;
		LDA	#$00	; setup data pattern
@1		EQU	*	;
		CMP	#$00	; check for zeroes
		BNE	@2	; write it if not zero
		INC	A	; make it a one
		STA	sgdata	; write to the ram
		DEX		; decrement the count
@2		STA	sgdata	;
		INC	A	; write to the ram
		DEX		; decrement count
		BNE	@1	; write 65536 patterns
		PLP		; restore m,x
		PLX		; restore registers
		PLA		;
		RTS		; >>>--- exit make.waves --->>>
		TITLE	'Doc Diags. Sound IRQ vector'
;********************************************************
*
* DOC.irq: This routine will handle interrupts coming from
*          the DOC.  It expects to find 32 different interrupts
*            from the chip.
*
;********************************************************
	; SEG	RUNBANK
DOC_IRQ		EQU	*	;
	; SEG	$00
		PHA		; save registers
		PHX		;
		PHP		; save m, x
		LONGA	OFF		;
		LONGI	OFF		;
		SEP	#$30	;
		LDX	#Doc_irq_reg	; read the Doc irq register
		JSR	read_reg	; (A)=Doc irq reg
		ASL	A	;
		BCS	@8	; not sound irq
		LSR	A	;
		LSR	A	; throw away low bit
		AND	#$1F	; keep oscillator number
@4		EQU	*	;
		STZ	fail_timer	; reset failsafe timer
		STZ	fail_timer+1	;
		CLC		;
		ADC	#doc_control	; point to DOC control registers
		TAX		; doc register number
		LDA	#$01	; halt without irq.
		JSR	write_reg	;
		INC	irq_counter	; bump interrupt counter
		STZ	osc_busy	; reset busy flag
@8		EQU	*	;
		PLP		; restore m, x
		PLX		; restore register
		PLA		;
		CLC		; exit clean
		RTI		; >>>--- exit Sound.irq --->>>
;
;
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSFirmware/Diagnostics/Diagnostics.make b/IIGS.601.SRC/GSFirmware/Diagnostics/Diagnostics.make
new file mode 100644
index 0000000..3945c7c
--- /dev/null
+++ b/IIGS.601.SRC/GSFirmware/Diagnostics/Diagnostics.make
@@ -0,0 +1 @@
+#   File:       Diagnostics.make
#   Created:    June 13, 1991   by JOA
# 	Copyright Apple Computer, Inc. 1991
# 	All rights reserved.

Diagnostics Ä	Diagnostics.make		¶
				DIAG.aii				¶
				::Firmware.macros.aii	¶
				::Firmware.Equates.aii	¶
				DIAG.MACROS.aii			¶
				DIAG.ROM.SEQ.aii		¶
				ROM.SEQ.DEBUG.aii		¶
				DIAG.TESTS.aii			¶
				DOC.TESTS.aii
	AsmIIgs  {userAOptions} -h Diag.aii -wt -o Diag.obj
	LinkIIgs  Diag.obj -o Diag.rel
	MakeBinIIgs Diag.rel -o Diagnostics
	dup Diagnostics ::bin:Diag.bin
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSFirmware/Firmware.Equates.aii b/IIGS.601.SRC/GSFirmware/Firmware.Equates.aii
new file mode 100644
index 0000000..5a33b8c
--- /dev/null
+++ b/IIGS.601.SRC/GSFirmware/Firmware.Equates.aii
@@ -0,0 +1 @@
+
;	This EdAsm/Asm816 source code file was converted to AsmIIGS
;	by EdAsmCvtIIGS version 1.2d4 on 5/7/91 at 4:9:18 PM

		TITLE	'Bank $FF Variables'

******************************************************
*                                                    *
*                  Bank $FF Variables                *
*                                                    *
*                         by                         *
*                  Fern Bachman    1985-1987         *
*                  Joe Bo          1987-1989         *
*                                                    *
*      Copyright Apple Computer, Inc. 1985-1989      *
*                All Rights Reserved.                *
*                                                    *
******************************************************


F8VERSION		EQU	$06	;F8 ROM //e ID byte


*
* ZERO PAGE EQUATES
*
LOC0		EQU	$00	;vector for autostart from disk 
LOC1		EQU	$01
PRINTTMP		EQU	$06	;$06-$08 saved and restore by print rtne
WNDLFT		EQU	$20	;left edge of text window 
WNDWDTH		EQU	$21	;width of text window 
WNDTOP		EQU	$22	;top of text window 
WNDBTM		EQU	$23	;bottom+1 of text window 
CH		EQU	$24	;cursor horizontal position 
CV		EQU	$25	;cursor vertical position 
GBASL		EQU	$26	;lo-res graphics base addr. 
GBASH		EQU	$27
BASL		EQU	$28	;text base address 
BASH		EQU	$29
BAS2L		EQU	$2A	;temp base for scrolling 
BAS2H		EQU	$2B
H2		EQU	$2C	;temp for lo-res graphics 
LMNEM		EQU	$2C	;temp for mnemonic decoding 
V2		EQU	$2D	;temp for lo-res graphics 
RMNEM		EQU	$2D	;temp for mnemonic decoding 
MASK		EQU	$2E	;color mask for lo-res gr. 
FORMAT		EQU	$2E	;temp for opcode decode 
LENGTH		EQU	$2F	;temp for opcode decode 
COLOR		EQU	$30	;color for lo-res graphics 
MONMODE		EQU	$31	;Monitor mode
INVFLG		EQU	$32	;normal/inverse(/flash)  
PROMPT		EQU	$33	;prompt character 
YSAV		EQU	$34	;position in Monitor command 
YSAV1		EQU	$35	;temp for Y register 
CSWL		EQU	$36	;character output hook 
CSWH		EQU	$37
KSWL		EQU	$38	;character input hook 
KSWH		EQU	$39
PCL		EQU	$3A	;temp for program counter 
PCH		EQU	$3B
A1L		EQU	$3C	;Monitor temp 
A1H		EQU	$3D	;Monitor temp 
A2L		EQU	$3E	;Monitor temp 
A2H		EQU	$3F	;Monitor temp 
A3L		EQU	$40	;Monitor temp 
A3H		EQU	$41	;Monitor temp 
A4L		EQU	$42	;Monitor temp 
A4H		EQU	$43	;Monitor temp 
*A5L EQU $44 ;Monitor temp 
A5H		EQU	$45	;Monitor temp 
ACC		EQU	$45	;Acc after break (destroys A5H) 
XREG		EQU	$46	;X reg after break 
YREG		EQU	$47	;Y reg after break 
STATUS		EQU	$48	;P reg after break 
SPNT		EQU	$49	;SP after break 
RNDL		EQU	$4E	;random counter low 
RNDH		EQU	$4F	;random counter high 

*
* Value equates
*

GOODF8		EQU	$06	;//e ID byte
X8		EQU	$10	;Mask for interrupt code
M8		EQU	$20	;Mask for interrupt code
EXMEMCMD		EQU	$38	;Mask for extnd mem designator/sctr # cmd
CHKSMCNST		EQU	$AAAA	;BATTERYRAM checksum EOR constant

*
* Bank 1 / Page 1 permanent storage
*

MNEMSTKPTR	EQU	$010100	;Main stack pointer
ALEMSTKPTR	EQU	$010101	;Alternate stack pointer

*
* Characters read by GETLN are placed in
* IN, terminated by a carriage return.
*

IN		EQU	$0200	;input buffer for GETLN  

*
* Page 3 vectors
*

OSWMSTRT		EQU	$3D0	;QUITMON jumps here
BRKV		EQU	$03F0	;vectors here after break 
SOFTEV		EQU	$03F2	;vector for warm start
PWREDUP		EQU	$03F4	;THIS MUST = EOR #$A5 OF SOFTEV+1 
AMPERV		EQU	$03F5	;APPLESOFT & EXIT VECTOR
USRADR		EQU	$03F8	;APPLESOFT USR function vector 
NMI		EQU	$03FB	;NMI vector 
IRQLOC		EQU	$03FE	;Maskable interrupt vector 
LINE1		EQU	$0400	;first line of text screen 
PRO8MLI		EQU	$00BF00	;Address of PRODOS8 MLI entry point
		EJECT
* HARDWARE EQUATES

		EQUSECT	$C000
IOADR		EQUDS	*	;All I/O is at $Cxxx
KBD		EQUDS	*	;Bit 7=1 if keystroke 
CLR80COL		EQUDS.B	1	;disable 80 column store 
SET80COL		EQUDS.B	1	;enable 80 column store 
RDMAINRAM		EQUDS.B	1	;read from main 48K RAM 
RDCARDRAM		EQUDS.B	1	;read from alt. 48K RAM 
WRMAINRAM		EQUDS.B	1	;write to main 48K RAM 
WRCARDRAM		EQUDS.B	1	;write to alt. 48K RAM 
SETSLOTCXROM	EQUDS.B	1	;use ROMS on cards
SETINTCXROM	EQUDS.B	1	;use internal ROM
SETSTDZP		EQUDS.B	1	;use main zero page/stack 
SETALTZP		EQUDS.B	1	;use alt. zero page/stack 
SETINTC3ROM	EQUDS.B	1	;Enable internal slot 3 ROM
SETSLOTC3ROM	EQUDS.B	1	;Enable external slot 3 ROM
CLR80VID		EQUDS.B	1	;disable 80 column hardware 
SET80VID		EQUDS.B	1	;enable 80 column hardware 
CLRALTCHAR	EQUDS.B	1	;normal LC, flashing UC 
SETALTCHAR	EQUDS.B	1	;normal inverse, LC; no flash 
KBDSTRB		EQUDS.B	1	;turn off key pressed flag 
RDLCBNK2		EQUDS.B	1	;Bit 7=1 if LC bank 2 is in 
RDLCRAM		EQUDS.B	1	;Bit 7=1 if LC RAM read enabled 
RDRAMRD		EQUDS.B	1	;Bit 7=1 if reading alt 48K
RDRAMWRT		EQUDS.B	1	;Bit 7=1 if writing alt 48K 
RDCXROM		EQUDS.B	1	;Bit 7=1 if using int rom
RDALTZP		EQUDS.B	1	;Bit 7=1 if slot zp enabled
RDC3ROM		EQUDS.B	1	;Bit 7=1 if slot c3 space enabled
RD80COL		EQUDS.B	1	;Bit 7=1 if 80 column store   
RDVBLBAR		EQUDS.B	1	;Bit 7=1 if not VBL 
RDTEXT		EQUDS.B	1	;Bit 7=1 if text (not graphics) 
RDMIX		EQUDS.B	1	;Bit 7=1 if mixed mode on
RDPAGE2		EQUDS.B	1	;Bit 7=1 if TXTPAGE2 switched in 
RDHIRES		EQUDS.B	1	;Bit 7=1 if HIRES is on
ALTCHARSET	EQUDS.B	1	;Bit 7=1 if alternate char set in use
RD80VID		EQUDS.B	1	;Bit 7=1 if 80 column hardware in 
		EQUDS.B	1	;Reserved for future system expansion

* __7______6______5______4______3______2______1______0___
*|      |      |      |      |      |      |      |      |
*|Enable|      |      |      |      |      |      |      | 
*|color/|   0  |   0  |   0  |   0  |   0  |   0  |   0  |
*| mono |      |      |      |      |      |      |      |
*|______|______|______|______|______|______|______|______|
*           ^^^^^  MONOCOLOR Status Byte ^^^^^

* MONOCOLOR bits defined as follows
*    bit 7= 0 enables color -- 1 disables color
*    bit 6,5,4,3,2,1,0  Must be 0

MONOCOLOR		EQUDS.B	1	;Monochrome/color select register

* __7______6______5______4______3______2______1______0___
*|      |      |      |      |      |      |      |      |
*|      |      |      |      |      |      |      |      | 
*|       Text Color Bits     |   Background Color Bits   |
*|      |      |      |      |      |      |      |      |
*|______|______|______|______|______|______|______|______|
*               ^^^^^  TBCOLOR Byte ^^^^^

* TBCOLOR bits defined as follows
*    bit 7,6,5,4 = Text color bits
*    bits 3,2,1,0 = Background color bits
*
*   Color bits =
*                $0 = Black
*                $1 = Deep Red
*                $2 = Dark Blue
*                $3 = Purple
*                $4 = Dark green
*                $5 = Dark Gray
*                $6 = Medium Blue
*                $7 = Light Blue
*                $8 = Brown
*                $9 = Orange
*                $A = Light Gray
*                $B = Pink
*                $C = Green
*                $D = Yellow
*                $E = Aquamarine
*                $F = White

TBCOLOR		EQUDS.B	1	;Text/background color select register

* __7______6______5______4______3______2______1______0___
*|      |      |      |      |      |      |      |      |
*| VGC  | 1sec | Scan | Ext  |      | 1sec | Scan | Ext  | 
*|  int |  int |  int | int  |Unused|  int |  int | int  |
*|active|active|active|active|      |enable|enable|enable|
*|______|______|______|______|______|______|______|______|
*           ^^^^^  VGCINT Status Byte ^^^^^

* VGCINT bits defined as follows
*    bit 7= 1 if interrupt generated by VGC
*    bit 6= 1 if 1 second timer interrupt
*    bit 5= 1 if scan line interrupt
*    bit 4= 1 if external interrupt
*    bit 3= unused
*    bit 2= 1 second timer interrupt enable
*    bit 1= scan line interrupt enable
*    bit 0= external interrupt enable

VGCINT		EQUDS.B	1	;VGC interrupt register

* __7______6______5______4______3______2______1______0___
*|      |      |      |      |      |      |      |      |
*|Button|      |                                         | 
*|status|Delta |             Delta movement              |
*| now  | sign |                                         |
*|______|______|______|______|______|______|______|______|
*              ^^^^^  MOUSEDATA Byte ^^^^^

* MOUSEDATA bits defined as follows
*    bit 7= if reading X data = button 1 status
*           if reading Y data = button 0 status
*    bit 6= sign of delta 0='+' -- 1='-'
*    bit 5,4,3,2,1,0 = delta movement

MOUSEDATA		EQUDS.B	1	;X or Y mouse data register

* __7______6______5______4______3______2______1______0___
*|      |      |Update|      |      |      |      |      |
*| Open |Closed| mod  |Keypad|Repeat| Caps | Ctrl |Shift | 
*| Apple| Apple|no key|  key |active| lock |  key | key  |
*|  key |  key | press|active|      |active|active|active|
*|______|______|______|______|______|______|______|______|
*           ^^^^^  KEYMODREG Status Byte ^^^^^

* KEYMODREG bits defined as follows
*    bit 7= Open Apple key active
*    bit 6= Closed Apple key active
*    bit 5= Updated modifier latch without keypress
*    bit 4= Keypad key active
*    bit 3= Repeat active
*    bit 2= Caps lock active
*    bit 1= Control key active
*    bit 0= Shift key active

KEYMODREG		EQUDS.B	1	;Key modifier register

* __7______6______5______4______3______2______1______0___
*|      |      |      |      |      |      |      |      |
*|                                                       | 
*|              Data to/from keyboard micro              |
*|                                                       | 
*|______|______|______|______|______|______|______|______|
*               ^^^^^  DATAREG Byte ^^^^^

* DATAREG bits defined as follows
*    bit 7,6,5,4,3,2,1,0 = data to/from keyboard micro
*
* Data at interrupt time in this register is defined as
*    bit 7= Response byte if set, otherwise status byte
*    bit 6= ABORT valid if set and all other bits reset
*    bit 5= Desktop manager key sequence pressed
*    bit 4= Flush buffer key sequence pressed
*    bit 3= SRQ valid if set
*    bit 2,1,0 If all bits clear then no FDB data valid,
*              else the bits indicate the number of valid
*              bytes received minus 1. (2-8 bytes total)

DATAREG		EQUDS.B	1	;Data register in KeyGlu chip

* __7______6______5______4______3______2______1______0___
*|      |      |      |      |      |      |      |      |
*| Mouse| Mouse| Data | Data | Key  | Key  | Mouse| Cmd  | 
*|  reg |  int |  reg |  int | data | int  |X/Yreg| reg  |
*| full |enable| full |enable| full |enable| data | full |
*|______|______|______|______|______|______|______|______|
*           ^^^^^  KMSTATUS Status Byte ^^^^^

* KMSTATUS bits defined as follows
*    bit 7= 1 if mouse register full
*    bit 6= mouse interrupt disable/enable
*    bit 5= 1 if data register full
*    bit 4= data interrupt enable
*    bit 3= 1 if key data full  <<<<<------NEVER USE, WON'T WORK
*    bit 2= key data interrupt enable  <<<<<------NEVER USE, WON'T WORK
*    bit 1= 0 = mouse 'X' register data available
*           1 = mouse 'Y' register data available
*    bit 0= Command register full

KMSTATUS		EQUDS.B	1	;Keyboard/mouse status register
ROMBANK		EQUDS.B	1	;ROM bank select toggle

* __7______6______5______4______3______2______1______0___
*|      |      |      |      |      |      |      |      |
*|Enable|Linear| B/W  |      |      |      |      |Enable| 
*| super| video|Color |  0   |  0   |  0   |  0   |bank 1|
*|hi-res|      |DHires|      |      |      |      |latch |
*|______|______|______|______|______|______|______|______|
*               ^^^^^  NEWVIDEO Byte ^^^^^

* NEWVIDEO bits defined as follows
*    bit 7= 1 to disable Apple //e video (enables super hi-res)
*    bit 6= 1 to linearize for super hi-res
*    bit 5= 0 for color double hi-res -- 1 for B/W hi-res
*    bit 4,3,2,1= MUST be pregrammed as 0
*    bit 0= Enable bank 1 latch to allow long instructions
*           to access bank 1 directly.

NEWVIDEO		EQUDS.B	1	;Video/enable read alt mem with long instr
		EQUDS.B	1	;Reserved for future system expansion

* __7______6______5______4______3______2______1______0___
*|      |      |      |      |      |      |      |      |
*| Character Generator| NTSC/| Lang |      |      |      | 
*|   language select  |  PAL |select|   0  |   0  |   0  |
*|      |      |      |      |  bit |      |      |      |
*|______|______|______|______|______|______|______|______|
*               ^^^^^  LANGSEL Byte ^^^^^

* LANGSEL bits defined as follows
*    bit 7,6,5= Character generator language select
*                   Primary language    Secondary language
*              $0 =       USA                 Dvorak 
*              $1 =       UK                   USA
*              $2 =     French                 USA
*              $3 =     Danish                 USA
*              $4 =     Spanish                USA
*              $5 =     Italian                USA
*              $6 =     German                 USA 
*              $7 =     Swedish                USA
*    bit 4= 0 if NTSC video mode -- 1 if PAL video mode
*    bit 3= LANGUAGE switch bit 0 if primary lang set selected
*    bit 2,1,0 ;MUST be programmed as 0's

LANGSEL		EQUDS.B	1	;Language/PAL/NTSC select register
CHARROM		EQUDS.B	1	;Addr for tst mode read of character ROM

* __7______6______5______4______3______2______1______0___
*|      |      |      |      |      |      |      |      |
*|Slot7 |Slot6 |Slot5 |Slot4 |      |Slot2 |Slot1 |      | 
*|intext|intext|intext|intext|   0  |intext|intext|   0  |
*|enable|enable|enable|enable|      |enable|enable|      |
*|______|______|______|______|______|______|______|______|
*               ^^^^^  SLTROMSEL Byte ^^^^^

* SLTROMSEL bits defined as follows
*    bit 7= 0 enables internal slot 7 -- 1 enables slot ROM
*    bit 6= 0 enables internal slot 6 -- 1 enables slot ROM
*    bit 5= 0 enables internal slot 5 -- 1 enables slot ROM
*    bit 4= 0 enables internal slot 4 -- 1 enables slot ROM
*    bit 3= MUST be 0
*    bit 2= 0 enables internal slot 2 -- 1 enables slot ROM
*    bit 1= 0 enables internal slot 1 -- 1 enables slot ROM
*    bit 0= Must be 0

SLTROMSEL		EQUDS.B	1	;Slot ROM select
VERTCNT		EQUDS.B	1	;Addr for read of video cntr bits V5-VB
HORIZCNT		EQUDS.B	1	;Addr for read of video cntr bits VA-H0
SPKR		EQUDS.B	1	;clicks the speaker  

* __7______6______5______4______3______2______1______0___
*|      |      |      |      |      |      |      |      |
*| 3.5" | 3.5" |      |      |      |      |      |      | 
*| head | drive|  0   |  0   |  0   |  0   |  0   |  0   |
*|select|enable|      |      |      |      |      |      |
*|______|______|______|______|______|______|______|______|
*           ^^^^^  DISKREG Status Byte ^^^^^

* DISKREG bits defined as follows
*    bit 7= 1 to select head on 3.5" drive to use
*    bit 6= 1 to enable 3.5" drive
*    bit 5,4,3,2,1,0= unused

DISKREG		EQUDS.B	1	;Used for 3.5" disk drives

* __7______6______5______4______3______2______1______0___
*|      |      |      |      |      |      |      |      |
*|      |Clear |Clear |      |      |      |      |      | 
*|   0  |1 sec | scan |   0  |   0  |   0  |   0  |   0  |
*|      | int  |ln int|      |      |      |      |      |
*|______|______|______|______|______|______|______|______|
*                 ^^^^^  SCANINT Byte ^^^^^

* SCANINT bits defined as follows
*    bit 7= unused
*    bit 6= write a 0 here to reset 1 second interrupt
*    bit 5= write a 0 here to clear scan line interrupt
*    bit 4= unused
*    bit 3= unused
*    bit 2= unused
*    bit 1= unused
*    bit 0= unused

SCANINT		EQUDS.B	1	;Scan line interrupt register

* __7______6______5______4______3______2______1______0___
*|      |      |      |      |      |      |      |      |
*|                                                       | 
*|                  Clock data register                  |
*|                                                       | 
*|______|______|______|______|______|______|______|______|
*               ^^^^^  CLOCKDATA Byte ^^^^^

* CLOCKDATA bits defined as follows
*    bit 7,6,5,4,3,2,1,0 -- Data passed to/from clock chip

CLOCKDATA		EQUDS.B	1	;Clock data register

* __7______6______5______4______3______2______1______0___
*|      |      |      |      |      |      |      |      |
*| Clock| Read/|Chip  |      |                           | 
*| xfer |Write |enable|Unused|        Border Color       |
*|      | chip |assert|      |                           |
*|______|______|______|______|______|______|______|______|
*               ^^^^^  CLOCKCTL Byte ^^^^^

* CLOCKCTL bits defined as follows
*    bit 7= Set =1 to start transfer to clock
*           Read =0 when transfer to clock is complete
*    bit 6= 0= write to clock chip -- 1= read from clock chip
*    bit 5= Clock chip enable asserted after transfer 0=no 1=yes
*    bit 4= unused
*    bit 3,2,1,0 = select border color (see TBCOLOR for values)

CLOCKCTL		EQUDS.B	1	;Clock control register

* __7______6______5______4______3______2______1______0___
*|      |      |      |      |      |      |      |      |
*|      | Stop | Stop | Stop | Stop | Stop | Stop | Stop | 
*|   0  |I/O/LC|txtpg2|auxh-r|suprhr|hires2|hires1|txtpg1|
*|      |shadow|shadow|shadow|shadow|shadow|shadow|shadow|
*|______|______|______|______|______|______|______|______|
*               ^^^^^  SHADOW Byte ^^^^^

* SHADOW bits defined as follows
*    bit 7= Must write 0
*    bit 6= 1 to inhibit I/O and language card operation
*    bit 5= 1 to inhibit shadowing text page 2
*    bit 4= 1 to inhibit shadowing aux hi-res page
*    bit 3= 1 to inhibit shadowing 32k video buffer
*    bit 2= 1 to inhibit shadowing hires page 2
*    bit 1= 1 to inhibit shadowing hires page 1
*    bit 0= 1 to inhibit shadowing text page 1
*
* Note: bit 5 only implemented in new CYA chip, if using
*       FPI chip then must write 0.  

SHADOW		EQUDS.B	1	;Shadow register

* __7______6______5______4______3______2______1______0___
*|      |      |      |      |      |      |      |      |
*| Slow/|Power |      |Shadow|Slot 7|Slot 6|Slot 5|Slot 4| 
*| fast | up   |   0  |in all|motor |motor | motor| motor|
*| speed|detect|      | RAM  |detect|detect|detect|detect|
*|______|______|______|______|______|______|______|______|
*               ^^^^^  CYAREG Byte ^^^^^

* CYAREG bits defined as follows
*    bit 7= 0=slow system speed -- 1=fast system speed
*    bit 6= 1=cold start -- 0=warm start
*    bit 5= Must write 0
*    bit 4= Shadow in all RAM banks
*    bit 3= Slot 7 disk motor on detect
*    bit 2= Slot 6 disk motor on detect
*    bit 1= Slot 5 disk motor on detect
*    bit 0= Slot 4 disk motor on detect
*
* Note: bit 6 only implemented in new CYA chip, if using
*       FPI chip then must always write 0.

CYAREG		EQUDS.B	1	;Speed and motor on detect
DMAREG		EQUDS.B	1	;Used during DMA as bank address
SCCBREG		EQUDS.B	1	;SCC channel B cmd register
SCCAREG		EQUDS.B	1	;SCC channel A cmd register
SCCBDATA		EQUDS.B	1	;SCC channel B data register
SCCADATA		EQUDS.B	1	;SCC channel A data register

* __7______6______5______4______3______2______1______0___
*|      |      |      |      |      |      |      |      |
*| Busy |Access| Auto |      |                           | 
*| flag | doc/ | inc  |   0  |         Volume DAC        |
*|      | RAM  |adrptr|      |                           |
*|______|______|______|______|______|______|______|______|
*               ^^^^^  SOUNDCTL Byte ^^^^^

* SOUNDCTL bits defined as follows
*    bit 7= 0 if not busy -- 1 if busy
*    bit 6= 0=access doc -- 1=access RAM
*    bit 5= 0=disable auto incrementing of address pointer
*           1=enable auto incrementing of address pointer
*    bit 4= Must be 0
*    bit 3,2,1,0= volume DAC $0=off $F=full volume

SOUNDCTL		EQUDS.B	1	;Sound control register

* __7______6______5______4______3______2______1______0___
*|      |      |      |      |      |      |      |      |
*|                                                       | 
*|               Sound data read/written                 |
*|                                                       |
*|______|______|______|______|______|______|______|______|
*           ^^^^^  SOUNDDATA Byte ^^^^^

* SOUNDDATA bits defined as follows
*    bit 7,6,5,4,3,2,1,0 = Data read from/written to sound RAM

SOUNDDATA		EQUDS.B	1	;Sound data register

* __7______6______5______4______3______2______1______0___
*|      |      |      |      |      |      |      |      |
*|                                                       | 
*|            Low byte of sound address pointer          |
*|                                                       |
*|______|______|______|______|______|______|______|______|
*           ^^^^^  SOUNDADRL Byte ^^^^^

* SOUNDADRL bits defined as follows
*    bit 7,6,5,4,3,2,1,0 = Address into sound RAM low byte

SOUNDADRL		EQUDS.B	1	;Sound address pointer, low byte

* __7______6______5______4______3______2______1______0___
*|      |      |      |      |      |      |      |      |
*|                                                       | 
*|           High byte of sound address pointer          |
*|                                                       |
*|______|______|______|______|______|______|______|______|
*           ^^^^^  SOUNDADRH Byte ^^^^^

* SOUNDADRH bits defined as follows
*    bit 7,6,5,4,3,2,1,0 = Address into sound RAM high byte

SOUNDADRH		EQUDS.B	1	;Sound address pointer, high byte
		EQUDS.B	1	;Reserved for future system expansion

* __7______6______5______4______3______2______1______0___
*|      |      |      |      |      |      |      |      |
*|      |      |      |Enable|Enable|Enable|Enable|Enable| 
*|   0  |   0  |   0  |1/4sec| VBL  |switch| move | mouse|
*|      |      |      | ints | ints | ints | ints |      |
*|______|______|______|______|______|______|______|______|
*               ^^^^^  INTEN Byte ^^^^^

* INTEN bits defined as follows
*    bit 7= Must be 0
*    bit 6= Must be 0
*    bit 5= Must be 0
*    bit 4= 1 to enable 1/4 second interrupts
*    bit 3= 1 to enable VBL interrupts
*    bit 2= 1 to enable Mega // mouse switch interrupts
*    bit 1= 1 to enable Mega // mouse movement interrupts
*    bit 0= 1 to enable Mega // mouse operation

INTEN		EQUDS.B	1	;Interrupt enable register
		EQUDS.B	1	;Reserved for future system expansion
		EQUDS.B	1	;Reserved for future system expansion

* __7______6______5______4______3______2______1______0___
*|      |      |      |      |      |      |      |      |
*|                                                       | 
*|           Mega // mouse delta movement byte           |
*|                                                       |
*|______|______|______|______|______|______|______|______|
*              ^^^^^  MMDELTAX Byte ^^^^^

* MMDELTAX bits defined as follows
*    bit 7,6,5,4,3,2,1,0 = delta movement in 2's complement notation

MMDELTAX		EQUDS.B	1	;Mega // mouse delta X register

* __7______6______5______4______3______2______1______0___
*|      |      |      |      |      |      |      |      |
*|                                                       | 
*|           Mega // mouse delta movement byte           |
*|                                                       |
*|______|______|______|______|______|______|______|______|
*             ^^^^^  MMDELTAY Byte ^^^^^

* MMDELTAY bits defined as follows
*    bit 7,6,5,4,3,2,1,0 = delta movement in 2's complement notation

MMDELTAY		EQUDS.B	1	;Mega // mouse delta Y register

* __7______6______5______4______3______2______1______0___
*|      |      |      |      |      |      |      |      |
*|Self/ |MMouse|Status|Status|Status|Status|Status|Status| 
*|burnin| last |  AN3 |1/4sec| VBL  |switch| move |system|
*| diags|button|      | int  | int  | int  | int  | IRQ  |
*|______|______|______|______|______|______|______|______|
*               ^^^^^  DIAGTYPE Byte ^^^^^

* DIAGTYPE bits defined as follows
*    bit 7= 0 if self diagnostics get used if BUTN0=1 and BUTN1=1
*    bit 7= 1 if burn-in diagnostics get used if BUTN0=1 and BUTN1=1
*    bits 6-0 = same as INTFLAG

* __7______6______5______4______3______2______1______0___
*|      |      |      |      |      |      |      |      |
*|MMouse|MMouse|Status|Status|Status|Status|Status|Status| 
*|  now | last |  AN3 |1/4sec| VBL  |switch| move |system|
*|button|button|      | int  | int  | int  | int  | IRQ  |
*|______|______|______|______|______|______|______|______|
*               ^^^^^  INTFLAG Byte ^^^^^

* INTFLAG bits defined as follows
*    bit 7= 1 if mouse button currently down
*    bit 6= 1 if mouse button was down on last read
*    bit 5= status of AN3
*    bit 4= 1 if 1/4 second interrupted
*    bit 3= 1 if VBL interrupted
*    bit 2= 1 if Mega // mouse switch interrupted
*    bit 1= 1 if Mega // mouse movement interrupted
*    bit 0= 1 if system IRQ line is asserted

DIAGTYPE		EQUDS	*	;0/1 Self/burn-in diagnostics
INTFLAG		EQUDS.B	1	;Interrupt flag register
CLRVBLINT		EQUDS.B	1	;Clear the VBL and 3.75Hz interrupt flags
CLRXYINT		EQUDS.B	1	;Clear Mega // mouse interrupt flags
		EQUDS.B	1	;Reserved for future system expansion
		EQUDS.B	1	;Reserved for future system expansion
		EQUDS.B	1	;Reserved for future system expansion
		EQUDS.B	1	;Reserved for future system expansion
		EQUDS.B	1	;Reserved for future system expansion
		EQUDS.B	1	;Reserved for future system expansion
		EQUDS.B	1	;Reserved for future system expansion
TXTCLR		EQUDS.B	1	;switch in graphics (not text) 
TXTSET		EQUDS.B	1	;switch in text (not graphics) 
MIXCLR		EQUDS.B	1	;clear mixed-mode 
MIXSET		EQUDS.B	1	;set mixed-mode (4 lines text) 
TXTPAGE1		EQUDS.B	1	;switch in text page 1 
TXTPAGE2		EQUDS.B	1	;switch in text page 2 
LORES		EQUDS.B	1	;low-resolution graphics 
HIRES		EQUDS.B	1	;high-resolution graphics 
SETAN0		EQUDS.B	1	;Clear annunciator 0
CLRAN0		EQUDS.B	1	;Set annunciator 0
SETAN1		EQUDS.B	1	;Clear annunciator1
CLRAN1		EQUDS.B	1	;Set annunciator 1
SETAN2		EQUDS.B	1	;Clear annunciator 2
CLRAN2		EQUDS.B	1	;Set annunciator 2
SETAN3		EQUDS.B	1	;Clear annunciator 3
CLRAN3		EQUDS.B	1	;Set annunciator 3
BUTN3		EQUDS.B	1	;Read switch 3
BUTN0		EQUDS.B	1	;open apple key
BUTN1		EQUDS.B	1	;closed apple key
BUTN2		EQUDS.B	1	;Read switch 2
PADDL0		EQUDS.B	1	;Read paddle 0 
		EQUDS.B	1	;Read paddle 1
		EQUDS.B	1	;Read paddle 2
		EQUDS.B	1	;Read paddle 3

* __7______6______5______4______3______2______1______0___
*|      |      |      |      |      |      |      |      |
*| ALZP | PAGE2| RAMRD|RAMWRT| RDROM|LCBNK2|ROMBNK| INTCX| 
*|status|status|status|status|status|status|status|status|
*|      |      |      |      |      |      |      |      |
*|______|______|______|______|______|______|______|______|
*           ^^^^^  STATEREG Status Byte ^^^^^

* STATEREG bits defined as follows
*    bit 7= ALZP status
*    bit 6= PAGE2 status
*    bit 5= RAMRD status
*    bit 4= RAMWRT status
*    bit 3= RDROM status (Read only RAM/ROM (0/1))

* IMPORTANT NOTE:
*           Do two reads to $C083 then change STATEREG
*           to change LCRAM/ROM banks (0/1) and still
*           have the language card write enabled.

*    bit 2= LCBNK2 status 0=LC bank 0 - 1=LC bank 1
*    bit 1= ROMBANK status
*    bit 0= INTCXROM status

STATEREG		EQUDS.B	1	;State register
		EQUDS.B	1	;Reserved for future system expansion
		EQUDS.B	1	;Reserved for future system expansion
		EQUDS.B	1	;Reserved for future system expansion
		EQUDS.B	1	;Reserved for future system expansion
TESTREG		EQUDS.B	1	;Test mode bit register
CLRTM		EQUDS.B	1	;Clear test mode
ENTM		EQUDS.B	1	;Enable test mode
PTRIG		EQUDS.B	1	;trigger the paddles 
		EQUDS.B	15	;ROM interrupt code jump table

		EQUDS.B	1	;Sel LC RAM bank2 rd, wrt protect LC RAM
ROMIN		EQUDS.B	1	;Enable ROM read, 2 reads write enb LC RAM
		EQUDS.B	1	;Enable ROM read, wrt protect LC RAM
LCBANK2		EQUDS.B	1	;Sel LC RAM bank2, 2 rds wrt enb LC RAM

		EQUDS.B	1	;Sel LC RAM bank2 rd, wrt protect LC RAM
		EQUDS.B	1	;Enable ROM read, 2 reads wrt enb LC RAM
		EQUDS.B	1	;Enable ROM read, wrt protect LC RAM
		EQUDS.B	1	;Sel LC RAM bank2, 2 rds wrt enb LC RAM

		EQUDS.B	1	;Sel LC RAM bank1 rd, wrt protect LC RAM
		EQUDS.B	1	;Enable ROM read, 2 reads wrt enb LC RAM
		EQUDS.B	1	;Enable ROM read, wrt protect LC RAM
LCBANK1		EQUDS.B	1	;Sel LC RAM bank1, 2 rds wrt enb LC RAM

		EQUDS.B	1	;Sel LC RAM bank1 rd, wrt protect LC RAM
		EQUDS.B	1	;Enable ROM read, 2 reads wrt enb LC RAM
		EQUDS.B	1	;Enable ROM read, wrt protect LC RAM
		EQUDS.B	1	;Sel LC RAM bank1, 2 rds wrt enb LC RAM

		ENDSECT

CLRROM		EQU	$CFFF	;switch out $C8 ROMs 


* Applesoft equates

FIRST		EQU	$F0	;Used by Applesoft plotting routines
CHKCOM		EQU	$DEBE	;Parse for comma to continue
TOOBIG		EQU	$F206	;If argument is too big jump here
ATFNS2		EQU	$F20C	;Return point for HLIN fix
BASIC		EQU	$E000	;BASIC entry point 
BASIC2		EQU	$E003	;BASIC warm entry point 
GETBYT		EQU	$E6F8	;Get next user entered byte


* Permanent data in screenholes 
*
* Note: these screenholes are only used by 
* the 80 column firmware if an 80 column card 
* is detected or if the user explicitly activates 
* the firmware.  If the 80 column card is not
* present, only MODE is trashed on RESET.  
*
* The success of these routines rely on the
* fact that if 80 column store is on (as it
* normally is during 80 column operation), that
* text page 1 is switched in.  Do not call the
* video firmware if video page 2 is switched in!!

MSLOT		EQU	$7F8	;=$Cn ;n=slot using $C800

OLDCH		EQU	$478+3	;LAST CH used by video firmware 
MODE		EQU	$4F8+3	;video firmware operating mode 
OURCH		EQU	$578+3	;80 column CH 
OURCV		EQU	$5F8+3	;80 column CV
CHAR		EQU	$678+3	;character to be printed/read 
XCOORD		EQU	$6F8+3	;GOTOXY X-coord (pascal only) 
TEMP1		EQU	$778+3	;temp
OLDBASL		EQU	$778+3	;last BASL (pascal only) 
OLDBASH		EQU	$7F8+3	;last BASH (pascal only) 

*
*
* BASIC VMODE BITS
*
* 0....... - BASIC active
* 1....... - Pascal active 
* .0...... - Print mouse chars 
* .1...... - Don't print mouse characters 
* ..0..... - Print control characters  
* ..1..... - Don't print ctrl chars 
* ...0.... - 
* ...1.... -
* ....0... - Print control characters 
* ....1... - Don't print ctrl chars. 
* .....0.. -
* .....1.. - 
* ......0. - Scroll normally 
* ......1. - 1200 baud: home instead of scroll 
* .......0 - Mouse text inactive
* .......1 - Mouse text active
*
M_6		EQU	$40	;
M_CTL2		EQU	$20	;Don't print controls
M_4		EQU	$10	;
M_CTL		EQU	$08	;Don't print controls 
M_2		EQU	$04	;
M_1		EQU	$02	;
M_MOUSE		EQU	$01	;Don't print mouse chars
*
* Pascal Mode Bits 
*
* 0....... - BASIC active
* 1....... - Pascal active 
* .0...... - Print mouse chars 
* .1...... - Don't print mouse characters 
* ..0..... -
* ..1..... -
* ...0.... - Cursor always on 
* ...1.... - Cursor always off 
* ....0... - GOTOXY n/a 
* ....1... - GOTOXY in progress 
* .....0.. - Normal Video
* .....1.. - Inverse Video
* ......0. - Scroll normally  
* ......1. - 1200 baud: home instead of scroll  
* .......0 -
* .......1 -
*
M_PASCAL		EQU	$80	;Pascal active 
M_CURSOR		EQU	$10	;Don't print cursor
M_GOXY		EQU	$08	;GOTOXY IN PROGRESS
M_VMODE		EQU	$04
M_PAS1_0		EQU	$02	;Pascal 1.0 mode



		EJECT
		TITLE	'Bank $FF Variables2'

******************************************************
*                                                    *
*                  Bank $FF Variables2               *
*                                                    *
*                         by                         *
*                  Fern Bachman    1985-1987         *
*                  Joe Bo          1987-1989         *
*                                                    *
*      Copyright Apple Computer, Inc. 1985-1989      *
*                All Rights Reserved.                *
*                                                    *
******************************************************


* Tool set numbers and call numbers used
* either in the Control Panel or monitor
* subroutines.

MTN		EQU	$03	;Miscellaneous Tool Number
RTHFN		EQU	$0D	;Read Time Hex Function Number
WTHFN		EQU	$0E	;Write Time Hex Function Number
RATFN		EQU	$0F	;Read Ascii Time Function Number

RDN		EQU	$0D	;RAM Disk tool number
DPCN		EQU	$0A	;Do Protocol Converter call number
SRDSZN		EQU	$0B	;Set RAM Disk size function number
GRDSZN		EQU	$0C	;Get RAM Disk size function number

MMN		EQU	$02	;Memory manager tool number
FMEMN		EQU	$1B	;Free memory in system function number
TMEMN		EQU	$1D	;Total memory in system function number

EMTN		EQU	$06	;Event manager tool number
ACTFN		EQU	$06	;Active function number
GNEFN		EQU	$0A	;Get next event function number
EAFN		EQU	$0B	;Event available function number


IMTN		EQU	$0B	;Integer math routines tool number
LONGMUL		EQU	$0C	;32 bit multiply function number
LONGDIV		EQU	$0D	;32 bit divide function number
LONG2DEC		EQU	$27	;Convert hex to decimal ASCII string
DEC2LONG		EQU	$29	;Convert decimal ASCII string to hex


DSKTN		EQU	$05	;Desk accessory manager tool number
SVESCRNFN		EQU	$09	;Save 80 column screen function number
RSTSCRNFN		EQU	$0A	;Restore 80 column screen function number


SETHEART		EQU	$1203	;Put task in heartbeat queue
DELHEART		EQU	$1303	;Remove task from heartbeat queue


INSTALLCDA	EQU	$0F05	;Tool # + Function # * 256 

GOTOMON		EQU	$F7	;Defined below
RETURNFROM	EQU	GOTOMON+4	;Return from monitor code
RETURNBANK	EQU	GOTOMON+8	;Modify instruction

* GOTOMON contains the following code
*        CLI              ;Reenable interrupts
*        JMP MONZ         ;Enter the monitor
*        SEI              ;Disable interrupts to return to calling bank
*        JMP =RETURNPOINT ;Return to calling bank

MICROPOWER	EQU	$A5	;Power up byte for keyboard micro
DECAY		EQU	$0250	;Decay rate for NEWBELL1 sounds
MICRORAMPWR	EQU	$51	;Keyboard micro power up byte location
DURBELL		EQU	$2000	;Duration of bell sound
TOGPATTERN	EQU	$8888	;Speaker toggle pattern
INITDISMGR	EQU	$FE0000	;Initialize DISPATCH handler
MEMORYPEEKER	EQU	$FE0004	;Install memory peeker desk acc
TODESKMGR		EQU	$FE0008	;Private CDA entry point
APTALKINIT	EQU	$FE000C	;Coldstart vector for AppleTalk
APTALKRESET	EQU	$FE0010	;Warmstart vector for AppleTalk
ADBSENDTL		EQU	$FE0014	;Vctr to send COMMAND to Keyuc
BOOTAPTALK1	EQU	$C1E0	;Boot AppleTalk from slot1
BOOTAPTALK2	EQU	$C2E0	;Boot AppleTalk from slot2
DIAGS		EQU	$FF6400	;Diagnostics start here
PROCONINIT	EQU	$FF5600	;Initialize protocol converter
SERBASPATCH	EQU	$FF0000	;Serial code BASIC patch
SERPASPATCH	EQU	$FF0003	;Serial code PASCAL patch
SEREXTPATCH	EQU	$FF0006	;Serial code EXTERNAL patch


* The bank $F8 expansion rom must have the following
* information located at the base of the rom.
*
* $F80000-F80007 ... An ASCII string 'ROMTOOLS'
* $F80008-F80009 ... Version Number
* $F8000A-F8001F ... Pad Area
* $F80020 .......... Entry Point
*
* The entry point is called in 16 bit native mode.
* (e=0, m=0, x=0) The entry point will execute
* code to install any rom based extensions to the
* tool set and return with an 'RTL' instruction
* with the carry flag cleared.  If the rom is found,
* the version number will be returned in the 16 bit
* C register after the 'RTL' is executed.
*
* Note that the string at $F80000 must have the
* msb set to a '1'.
*


EXROMSTR		EQU	$F80000	; Expansion rom string 'ROMTOOLS'
EXROMVER		EQU	$F80008	; Expansion rom version
EXROMPAD		EQU	$F8000A	; Pad to $F8001F
EXROMENTRY	EQU	$F80020	; Expansion rom entry point


* Bank $E1 equates

E1_VARS		EQUSECT	$E102C0
BRAMBUFFER	EQUDS	*	;1 page image of BATTERYRAM

* Port 1 selections

USERPORT1		EQUDS.B	1	;Device Connected: Printer
		EQUDS.B	1	;Line Length: Unlimited
		EQUDS.B	1	;Delete First LF after CR: No
		EQUDS.B	1	;Add LF after CR: Yes
		EQUDS.B	1	;Echo: No
		EQUDS.B	1	;Buffering: No
		EQUDS.B	1	;Baud: 9600
		EQUDS.B	1	;Data/Stop Bits: 8/1
		EQUDS.B	1	;Parity: None
		EQUDS.B	1	;DCD Handshake: Yes
		EQUDS.B	1	;DSR Handshake: Yes
		EQUDS.B	1	;XON/XOFF Handshake: No

* Port 2 selections

USERPORT2		EQUDS.B	1	;Device Connected: Modem
		EQUDS.B	1	;Line Length: Unlimited
		EQUDS.B	1	;Delete First LF after CR: No
		EQUDS.B	1	;Add LF after CR: No
		EQUDS.B	1	;Echo: No
		EQUDS.B	1	;Buffering: No
		EQUDS.B	1	;Baud: 1200
		EQUDS.B	1	;Data/Stop Bits: 8/1
		EQUDS.B	1	;Parity: None
		EQUDS.B	1	;DCD Handshake: Yes
		EQUDS.B	1	;DSR Handshake: Yes
		EQUDS.B	1	;XON/XOFF Handshake: No

* Display selections

USERCOLOR		EQUDS.B	1	;Type: Color
USERCOL		EQUDS.B	1	;Columns: 40
USERTEXT		EQUDS.B	1	;Text: (white)
USERBACK		EQUDS.B	1	;Background: (medium blue)
USERBORDER	EQUDS.B	1	;Border: (medium blue)
USERHERTZ		EQUDS.B	1	;Hertz: 60

* Sound selections

USERVOL		EQUDS.B	1	;Volume: |-----*---------|
USERBELL		EQUDS.B	1	; Pitch: |------*--------|

* Speed selections

USERSPEED		EQUDS.B	1	;Speed: Fast

* Slots' selections

USERSLT1		EQUDS.B	1	;Slot 1: Port 1
USERSLT2		EQUDS.B	1	;Slot 2: Port 2
USERSLT3		EQUDS.B	1	;Slot 3: Text Display
USERSLT4		EQUDS.B	1	;Slot 4: Mouse     
USERSLT5		EQUDS.B	1	;Slot 5: Smart Port
USERSLT6		EQUDS.B	1	;Slot 6: Disk Port
USERSLT7		EQUDS.B	1	;Slot 7: Your Card
USERSLTST		EQUDS.B	1	;Startup Slot: Scan

* Language selections

USERDISP		EQUDS.B	1	;Text Display: English (U.S.)
USERLANG		EQUDS.B	1	;Keyboard: English (U.S.)
USERKBUFF		EQUDS.B	1	;Keyboard Buffering: No
USERRSPD		EQUDS.B	1	;Repeat Speed: |-------*-------|
USERRDLY		EQUDS.B	1	;Repeat Delay: |-----*---------|
;DFB $02 ;Double Click: |-----*---------|
USERFLASH		EQUDS.B	1	;Cursor Flash: |-----*---------|
USERCAPS		EQUDS.B	1	;Shift Caps/Lower Case: No
USERFSPDE		EQUDS.B	1	;Fast Space/Delete Keys: No
USERDUAL		EQUDS.B	1	;Dual Speed Keys: Normal
USERD1EJ		EQUDS.B	1	;Disk1 ejection option, 0->1, 1->2, ....
USERD2EJ		EQUDS.B	1	;Disk2 ejection option, 0->1, 1->2, ....

* Clock selections

USERDATE		EQUDS.B	1	;Format: MM/DD/YY
USERAMPM		EQUDS.B	1	;Format: AM-PM

* Ramdisk selections

USERMRAM		EQUDS.B	1	;Minimum RAM for Ramdisk option number
USERXRAM		EQUDS.B	1	;Maximum RAM for Ramdisk option number
USERRSTRAM	EQUDS.B	1	;Reset Ram Disk size during next reset
;USERXRAM DFB $00

* Mouse Selections

USERHMR		EQUDS.B	1	;Mouse Tracking: |*-------------|
USERDBCK		EQUDS.B	1	;Double Click:   |-----*--------|
USERMDLY		EQUDS.B	1	;Start Delay:    |-----*--------|
USERSPRT		EQUDS.B	1	;Acceleration:   |-----*--------|
USERMAXSP		EQUDS.B	1	;Maximum Speed:  |-----*--------|

LANGS		EQUDS.B	9	;Count/Number of languages

LAYOUTS		EQUDS.B	17	;Count/Numbers of layouts

SPCLSLT1		EQUDS.B	1	;Keep track of real slt1 setup
BRAMDAACT		EQUDS.B	1	;$00/<>0 = NOT install/install monitor/memory peeker

		EQUORG	E1_VARS+$78	;Pad to Cntl Panel password

PASSWDBUFF	EQUDS	*
USRPASSWD0	EQUDS.B	1	;
		EQUDS.B	1
		EQUDS.B	1
		EQUDS.B	1
		EQUDS.B	1
		EQUDS.B	1
		EQUDS.B	1
USRPASSWD7	EQUDS.B	1	;=0 then default password

		EQUORG	E1_VARS+$80	;Pad to AppleTalk node number

APTALKNODE	EQUDS.B	1	;AppleTalk node number

OSVARIABLES	EQUDS.B	32	;Operating system variables

		EQUORG	E1_VARS+$FC	;Pad to check sums

BRAMCHKSUM1	EQUDS.W	1	;Main BATTERYRAM checksum
BRAMCHKSUM2	EQUDS.W	1	;= BRAMCHKSUM1 EOR BRAMCNST

		ENDSECT
		EJECT
		EQUSECT	$E10000	;Monitor $E1 permanent storage area
E1_VECTORS	EQUDS	*
* Important vectors the user may change
* RAM space from locations $0000->$02B7 are allocated for
* monitor and RAM vectors use.

DISPATCH1		EQUDS.L	1	;Jmp vector to Tool Locator1
DISPATCH2		EQUDS.L	1	;Jmp vector to Tool Locator2
UDISPATCH1	EQUDS.L	1	;Jmp vector to User's tool locator1
UDISPATCH2	EQUDS.L	1	;Jmp vector to User's tool locator2
INTMGRV		EQUDS.L	1	;Jmp vector to Interrupt manager
COPMGRV		EQUDS.L	1	;Jmp vector to COP manager
ABORTMGRV		EQUDS.L	1	;Jmp vector to ABORT manager
SYSDMGRV		EQUDS.L	1	;Jmp vector to system death manager

* Tool/internal interrupt vectors

IRQ_APTLK		EQUDS.L	1	;Jmp vector to APTLK interrupt handler
IRQ_SERIAL	EQUDS.L	1	;Jmp vector to serial port int handler
IRQ_SCAN		EQUDS.L	1	;Jmp vector to scan line interrupt handler
IRQ_SOUND		EQUDS.L	1	;Jmp vector to sound interrupt handler
IRQ_VBL		EQUDS.L	1	;Jmp vector to VBL interrupt handler
IRQ_MOUSE		EQUDS.L	1	;Jmp vector to mouse interrupt handler
IRQ_QTR		EQUDS.L	1	;Jmp vector to 1/4 sec interrupt handler
IRQ_KBD		EQUDS.L	1	;Jmp vector to keyboard interrupt handler
IRQ_RESPONSE	EQUDS.L	1	;Jmp vctr to FDB response byte int hndlr
IRQ_SRQ		EQUDS.L	1	;Jmp vector to SRQ int handler
IRQ_DSKACC	EQUDS.L	1	;Jmp vector to desk accessory int handler
IRQ_FLUSH		EQUDS.L	1	;Jmp vector to flush buffer int handler
IRQ_MICRO		EQUDS.L	1	;Jmp vector to key micro int handler
IRQ_1SEC		EQUDS.L	1	;Jmp vector to 1 second interrupt handler
IRQ_EXT		EQUDS.L	1	;Jmp vector to EXT VGC interrupt handler
IRQ_OTHER		EQUDS.L	1	;Jmp vector to other interrupt handler

CUPDATE		EQUDS.L	1	;Jmp vector to cursor update handler

INCBUSYFLG	EQUDS.L	1	;Jmp vector to increment BUSYFLAG routine
DECBUSYFLG	EQUDS.L	1	;Jmp vector to decrement BUSYFLAG routine

BELLVECTOR	EQUDS.L	1	;Jmp vector to BELL routine in use

BREAKVECTOR	EQUDS.L	1	;Breaks go through here for debuggers

TRACEVECTOR	EQUDS.L	1	;Jmp vector to trace code
STEPVECTOR	EQUDS.L	1	;Jmp vector to step code

ROMTOOLHOOK	EQUDS.L	1	;Jmp vector to ROM expansion tools

		EQUORG	E1_VECTORS+$80	;Pad for more vectors
IRQ_HERE01	EQUDS	*

IRQ_LEN		EQU	IRQ_HERE01-IRQ_APTLK


* End of user changable interrupt vectors.


TOWRITEBR		EQUDS.L	1	;Jmp vector to write BATTERYRAM routine
TOREADBR		EQUDS.L	1	;Jmp vector to read BATTERYRAM routine
TOWRITETIME	EQUDS.L	1	;Jmp vector to write time routine
TOREADTIME	EQUDS.L	1	;Jmp vector to read time routine
TOCTRL_PANEL	EQUDS.L	1	;Jmp vctr to Control Panel desk accessory
TOBRAMSETUP	EQUDS.L	1	;Jmp vector for ext Menu to setup stuff
TOPRINTMSG8	EQUDS.L	1	;Jmp vector to print a msg- 8 bit entry
TOPRINTMSG16	EQUDS.L	1	;Jmp vector to print a msg- 16 bit entry


CTRLYVECTOR	EQUDS.L	1	;Jmp vector for CTRL-Y (native mode)
TOTEXTPG2DA	EQUDS.L	1	;Text page 2 desk acc routine


		EQUORG	E1_VECTORS+$A8	;Pad for more vectors


OSVECTORS		EQUDS	*	;Operating system 4 byte jump vectors
PRO16MLI		EQUDS.L	1	;1st OS vector is PRODOS16 MLI entry point
CHAINVECTOR	EQUDS.L	1	;Called before application launch
		EQUDS.B	10	;10 reserved bytes
		EQUDS.W	1	;Guaranteed 2 zeros
OS_KIND		EQUDS.B	1	;0/1-P8/P16 current OS running
OS_BOOT		EQUDS.B	1	;0/1-P8/P16 booted OS
OS_FLAGS		EQUDS.W	1	;Prodos 16 flags


MSGPOINTER	EQUDS.B	3	;Pointer to messages table


* IRQ.SECFLAG, IRQ.INTFLAG, IRQ.DATAREG are setup
* during interrupt time.  They are defined as follows
*
* IRQ.INTFLAG = value of INTFLAG read during interrupt
*               processing.
* IRQ.DATAREG = value of DATAREG read during interrupt
*               processing.
* IRQ.KMSTATUS value of KMSTATUS read during interrupt
*             processing.
* IRQ.SECFLAG =0 if all interrupts processed by handlers
*             =<>0 if any interrupt not processed by handlers
* IRQ.SERIAL1 is set up by serial interrupt manager
*             for the user to read.
* IRQ.SERIAL2 is set up by serial interrupt manager
*             for the user to read.
* IRQ.APTLKHI is set up by AppleTalk interrupt manager
*             for the user to read.
*
* IRQ.SECFLAG, IRQ.INTFLAG, IRQ.DATAREG, IRQ.KMSTATUS are set
* to zero in irq.done2.

IRQ_INTFLAG	EQUDS.B	1	;Status of INTFLAG at interrupt time
IRQ_DATAREG	EQUDS.B	1	;Status of DATAREG at interrupt time
IRQ_KMSTATUS	EQUDS.B	1	;Status of KMSTATUS at interrupt time
IRQ_SECFLAG	EQUDS.B	1	;0/<>0 = int not processed/processed
IRQ_SERIAL1	EQUDS.B	1	;Interrupt info for users
IRQ_SERIAL2	EQUDS.B	1	;Interrupt info for users
IRQ_APTLKHI	EQUDS.B	1	;Interrupt info for users
IRQ_VOLUME	EQUDS.B	1	;Volume used during interrupt time
IRQ_ACTIVE	EQUDS.B	1	;<>0 if called during irq
IRQ_SOUNDDATA	EQUDS.B	1	;Sound data register at int time


		EQUORG	E1_VECTORS+$CF	;Pad for more irq bytes


SIOFLAG		EQUDS.B	1	;Slts enabled via init call to Misc Tl Loc
INMASK		EQUDS.B	3	;AND mask / OR mask / slot #
OUTMASK		EQUDS.B	3	;AND mask / OR mask / slot #


ENSONIQFLG	EQUDS.B	1	;0=chip installed / 1=no chip installed
IRQ_MOUSVBL	EQUDS.B	1	;0 if mouse not using VBL


HBPTR		EQUDS.L	1	;Heart beat pointer to 1st item in list
TICKCNT		EQUDS.L	1	;Tick count updated by heart beat
MOUSESLOT		EQUDS.B	1	;Mouse slot in use

EVMGRDATA		EQUDS.B	30	;Event manager permanent information

BUSYFLAG		EQUDS.W	1	;System busy flag


SCCSTAT		EQUDS.B	1	;=0 then not SCC int- <>0 then SCC int
		EQUDS.B	1	;Reserved
SCCFLAG2		EQUDS.B	1	;Aptalk int mask -$07=chanB-$38=chanA
SERFLAG		EQUDS.B	1	;Ser int msk-$07=chanB-$38=chanA-$3F=both
SCC1		EQUDS.B	1	;1st data byte read in by int handler
SCC2		EQUDS.B	1	;2nd data byte read in by int handler
		EQUDS.B	1	;Reserved


* Interrupt uses all variables with 'irq.'
*
* Interrupt buffer is used by monitor to save
* ASCIITIME in during '=T' calls.  Interrupts
* are disabled during this time so it is safe
* to use the same buffer.

ASCIITIME		EQUDS	*	;Time in ASCII 'mm/dd/yy hh:mm:ss am/pm'
IRQ_A		EQUDS.B	2
IRQ_X		EQUDS.B	2
IRQ_Y		EQUDS.B	2
IRQ_S		EQUDS.B	2
IRQ_D		EQUDS.B	2
IRQ_P		EQUDS.B	1
IRQ_DB		EQUDS.B	1	;irq.DB and irq.e canNOT be separated

IRQ_HERE02	EQUDS	*
IRQLEN		EQU	IRQ_HERE02-IRQ_A

IRQ_E		EQUDS.B	1
IRQ_K		EQUDS.B	1
IRQ_PC		EQUDS.B	2
IRQ_STATE		EQUDS.B	1
IRQ_SHADOW	EQUDS.B	2
IRQ_MSLOT		EQUDS.B	1
IRQ_EMULSTKPTR	EQUDS.B	1	;emulation stack pointer, $010100


		EQUORG	E1_VECTORS+$120	;Pad for more interrupt info


AVAL		EQUDS.W	1	;A register value
XVAL		EQUDS.W	1	;X register value
YVAL		EQUDS.W	1	;Y register value
SVAL		EQUDS.W	1	;S (stack pointer) value
DVAL		EQUDS.W	1	;D (direct (zero page) register) value
PVAL		EQUDS.B	1	;P (processor status) value
BVAL		EQUDS.B	1	;B (data bank register) value
KVAL		EQUDS.B	1	;K (program bank register) value
MVAL		EQUDS.B	1	;M (memory status) value
QVAL		EQUDS.B	1	;Q (bit7=speed - bits6-0 match shadow reg)
LVAL		EQUDS.B	1	;L (language card bank 0/1 selected) value
MPVAL		EQUDS.B	1	;m memory access mode bit value
XPVAL		EQUDS.B	1	;x index mode bit value
EPVAL		EQUDS.B	1	;e (emulation mode status) value
DDVAL		EQUDS.B	1	;d (disassembly option) value
ASCFILTER		EQUDS.B	1	;F (filter mask for ASCII input in mon)

CURSOR		EQUDS.B	1	;Cursor
NXTCUR		EQUDS.B	1	;Cursor
CHGCURFLG		EQUDS.B	1	;<>0=change cursor/ 0=no change cursor

SYSTEMSPD		EQUDS.B	1	;$00=slow speed -- $80=high speed mask
SLOTSFLG		EQUDS.B	1	;SLTROMSEL value for reset
;ORGMEMORY DFB 0 ;Used in executed BRK/COP disassembly

E1PCLH		EQUDS.W	1	;Program counter for 'G'o routine
GOS		EQUDS.W	1	;'S' value to return to after a 'G'o cmd

BANKS		EQUDS.B	1	;Source bank
BANKD		EQUDS.B	1	;Destination bank

EXTENDBNK		EQUDS.W	1	;Extend+bank bytes that user entered 
DIGITCNT		EQUDS.B	1	;Used by GETNUM - how many digits entered

C1FLAG		EQUDS.B	1	;Serial code uses as indicator  
C2FLAG		EQUDS.B	1	;Serial code uses as indicator
CURSHIFTER	EQUDS.B	1	;Shifts to 0 which causes cursor to flash

EXTENDBNKS	EQUDS.W	1	;Saved extend+bank bytes entered 


IRQ_3031SOUND	EQUDS.L	1	;Jmp vector to Apple sound irqs


		EQUORG	E1_VECTORS+$14C	;Pad to KEYTASKHDR

KEYTASKHDR0	EQUDS.B	12	;Key press task handler buffer

EVMKEYBUFF	EQUDS.B	16	;16 bytes required
WHATEVENT		EQU	EVMKEYBUFF	;1st byte is event number
EVMKEY		EQU	EVMKEYBUFF+2	;ASCII key pressed is here

RDMEMDATA		EQUDS.B	1	;Powerup byte read from keyboard micro

TOGGLEPAT		EQUDS.W	1	;Speaker toggle ptrn for NEWBELL1 sounds
DURATION		EQUDS.W	1	;Hold time counter for NEWBELL1
PITCH		EQUDS.W	1	;User chosen pitch value for NEWBELL1
VOLUME		EQUDS.B	1	;Volume counter for NEWBELL1


TP2THDR		EQUDS.L	1	;Task header for text page 2 copier
TP2TCNT		EQUDS.W	1	;VBL count
TP2TSIG		EQUDS.W	1	;Signature byte
TP2TJMP		EQUDS.L	1	;Jmp vector
TP2MODE		EQUDS.B	1	;0/1 text page 2 copier off/on


* ROMDAACT is a flag which is reset on to
* $00 on power up only.  It is set <>0 if
* and only if the user types in the '#'
* command in the monitor.  The '#' command
* installs the monitor desk accessory and
* the memory peeker desk accessory.
*
* If ROMDAACT is <>0 the monitor on coldstart
* only will reinstall the monitor/memory peeker
* desk accessories.

ROMDAACT		EQUDS.B	1	;0=Do not activate <>0=activate


		EQUORG	E1_VECTORS+$180	;Fill to TOBUSYSTRIP


TOBUSYSTRIP	EQUDS.L	1	;JSL to dec busy flag
TOSTRIP		EQUDS.L	1	;JMP vector to oErrOut routine


NOIDEA		EQUDS.L	1	;Ask Steve ?????
STEPSP		EQUDS.W	1	;Step/Trace return address after each inst
KEYUCVER		EQUDS.B	1	;KEyUC VERSION #
ORGMEMORY		EQUDS.B	1	;Used in executed BRK/COP disassembly
LOWABSX		EQUDS.B	1	;Mouse x/y absolute position
LOWABSY		EQUDS.B	1
HIGHABSX		EQUDS.B	1
HIGHABSY		EQUDS.B	1
MSEINFO		EQUDS.B	1	;Bit 6, 7 for Y clamps
MSESPARE		EQUDS.B	1	;Reserved as temp for mouse routine
MSESTAT		EQUDS.B	1	;Button 0/1 interrupt status byte
MSEMODE		EQUDS.B	1	;Mode byte
MDISPATCH		EQUDS.L	1	;Jmp vector to monitor dispatch
MAINSIDEPATCH	EQUDS.L	1	;Jmp vector to main side dispatch
GUS		EQUDS.L	1	;????
DEBUGB		EQUDS.B	1	;Rom debugger uses for bank saving
GSC		EQUDS.B	1	;Bit7=1, GSc; Bit6=1, not install cntlpanl
CLRHOLES		EQUDS.B	1	;0=CLEAR, <>0 NOT CLEAR
HIGHBANK		EQUDS.B	1	;Used to handle bank crossing
FLIPSCRN		EQUDS.B	1	;Bit7, flip between txtpage1 and 'brk scrn
DEFAULTSLT	EQUDS.L	1	;Jmp vctr to restor default slt assignment
RESTORSLT		EQUDS.L	1	;Jmp vctr to restor system slot assignment
CYAVER		EQUDS.B	1	;$00 = FPI, $40 = CYA
MIDIINPUTPOLL	EQUDS.B	8	;For MidiTool vector 
JSX		EQUDS.B	1	;Bit7:real time of jsx, bit6: regs display
SCRNSTAT		EQUDS.B	1	;Store the display before brk, used in 'r'
LLTOOLBOXVCTR	EQUDS.L	1	;Vctr to patch low level toolbox routines
APTALKPORT	EQUDS.B	1	;0=NONE, 1=PORT1, 2=PORT2
APTALKBOOT	EQUDS.B	1	;0=NONE, 1=$C100, 2=$C200, 3=$C300 .....
APTALKRPMM	EQUDS.B	1	;0=NONE, 1=$C100, 2=$C200, 3=$C300 .....

* The following bytes are mainly used in the step/trace
* monitor commands

USEROPC		EQUDS.B	1	;User opcode
USEROPRL		EQUDS.B	1	;User low operand
USEROPRH		EQUDS.B	1	;User high operand
USEROPRK		EQUDS.B	1	;User program bank
JMPNOBRA		EQUDS.B	1	;JML, $5c, to jmp to handle user nobranch opcode
NOBRAPCL		EQUDS.B	1	;Nobranch address, pcl
NOBRAPCH		EQUDS.B	1	;Nobranch address, pch
NOBRAPCK		EQUDS.B	1	;Nobranch address, pck
JMPBRACH		EQUDS.B	1	;JML, $5c, to jmp to handle user branch opcode
BRACHPCL		EQUDS.B	1	;Branch address, pcl
BRACHPCH		EQUDS.B	1	;Branch address, pch
BRACHPCK		EQUDS.B	1	;Branch address, pck
KPMNEMSP		EQUDS.B	1	;{MSA 4/28/89} Stores Emul SP in Step/Trace Code


		EQUORG	E1_VECTORS+$200	;Fill to new Jmp vectors, publish out


TOMEMMOVER	EQUDS.L	1	;Jump vector to memory mover
TOSETSPEED	EQUDS.L	1	;Jump vector to set system speed
SLTARBITER	EQUDS.L	1	;Jump vector to do slot arbitration
SERBASIC		EQUDS.L	1	;Jump vector for serial BASIC
SERPASCAL		EQUDS.L	1	;Jump vector for serial PASCAL
SEREXTERL		EQUDS.L	1	;Jump vector for serial external patch
INDINTVCTR	EQUDS.L	1	;Hardware independent interrupt vctr
IRQ_MIDI		EQUDS.L	1	;Special vector for Midi Interrupt polling


		EQUORG	E1_VECTORS+$2B8	;Fill to mouse clamps


LOWXCLAMP		EQUDS.W	1	;Low X clamp
LOWYCLAMP		EQUDS.W	1	;Low Y clamp
HIXCLAMP		EQUDS.W	1	;High X clamp
HIYCLAMP		EQUDS.W	1	;High Y clamp

;
; The battery RAM buffer starts right after the mouse clamps.  It 
; is from $e102c0 - $e103bf with a total of 256 bytes. 
;
; Be careful, not allowed to fill anything between here !!! 
;

		EQUORG	E1_VECTORS+$03D0	;Fill to ADB absolute device scaling

ADBSCALE		EQUDS.B	12	;Absolute device scale data area
ADBCPLTVCTR	EQUDS.L	1	;Completion vector address


		EQUORG	E1_VECTORS+$03E0

TIMEOUT		EQUDS.B	1	;Timeout counter
CLKRDATA		EQUDS.L	1	;Time read from clock in seconds
CLKWDATA		EQUDS.L	1	;Time to write to clock in seconds
TIMEBUFFER	EQUDS.B	23	;Working buffer to time tools


		EQUORG	E1_VECTORS+$0FB0	;// gs uses these area instead of screen holes

SMARTPORT		EQUDS.B	25	;gs smartport variables, $e10fb0-$e10fc8

		EQUORG	E1_VECTORS+$0FD0	;
MTHANDLE		EQUDS.L	1	;Storage for ID tag handle
KBDIRQFLAG	EQUDS.B	1	;Keyboard interrupt flag

		EQUORG	E1_VECTORS+$0FD6	;Fill to ADB variables
FLAGS		EQUDS.B	1	;Flags used in ADB tool, cmd pending...
STATUSTMP		EQUDS.B	1	;Holds any uC pending status
SRQNUM		EQUDS.B	1	;# of devices installed in SRQ chain
SRQCNT		EQUDS.B	1	;# of devices polled since last data
SRQPTR		EQUDS.B	1	;Pointer of next device in SRQ list
SRQMRU		EQUDS.B	1	;Most recently used device (top of list)


SERPWRUP		EQU	$E10FFE	;+E10FFF = serial port pwr up bytes
RAMDSKPWRUP	EQU	$E115FF	;<>0 if powered up before
SYSVOLLOC		EQU	$E11DB0	;Volume for sound tools is in hi byte


		EQUORG	E1_VECTORS+$154A	;ADB devices completion vectors
ADBVCTRS		EQUDS.B	64	;MAX 16 devices * 4 = 64


		EQUORG	E1_VECTORS+$1DD0	;Fill to absolute clamp values
ABSCLAMPS		EQUDS.B	8	;Absolute device clamp values

		ENDSECT


ERRCODE		EQU	$0911	;System can't synch with ADB keyuc error code
CMDREG		EQU	$C026	;Same as datareg
CMDFULL		EQU	$01	;Command reg full bit (in keygloo status)
DATAFULL		EQU	$20	;Data reg full bit (in keygloo status)


* Command word for the G_MOVE_INFO routine

MOVEBLKCMD	EQU	$0800	;Tell hardware to do block move option

* The MOVEVALIDITYMASK is a mask used to determine if a
* user's command word is using any invalid (reserved bits or not)
* This value changes as reserved bits become active !!!

MOVEVALIDITYMASK	EQU	$F7F0	;Invalid move if any of these bits = 1

* Most common command

MOVESINCDINC	EQU	$05+MOVEBLKCMD	;Source incs - destination incs

* Less common commands

MOVESINCDDEC	EQU	$09+MOVEBLKCMD	;Source incs - destination decs
MOVESDECDINC	EQU	$06+MOVEBLKCMD	;Source decs - destination incs
MOVESDECDDEC	EQU	$0A+MOVEBLKCMD	;Source decs - destination decs

MOVESCONDCON	EQU	$00+MOVEBLKCMD	;Source constant - dest constant
MOVESINCDCON	EQU	$01+MOVEBLKCMD	;Source incs - destination const
MOVESDECDCON	EQU	$02+MOVEBLKCMD	;Source decs - destination const
MOVESCONDINC	EQU	$04+MOVEBLKCMD	;Source constant - dest constant
MOVESCONDDEC	EQU	$08+MOVEBLKCMD	;Source constant - destination decs

PARMRANGEERR	EQU	$FFFF	;Command error code


\ No newline at end of file
diff --git a/IIGS.601.SRC/GSFirmware/Firmware.macros.aii b/IIGS.601.SRC/GSFirmware/Firmware.macros.aii
new file mode 100644
index 0000000..45d4189
--- /dev/null
+++ b/IIGS.601.SRC/GSFirmware/Firmware.macros.aii
@@ -0,0 +1 @@
+		PRINT	PUSH
		PRINT	OFF
;
; EQUSect Macros
;
; By John Arkley
; 08 May 91
;
; A few macros to help in making equates.  This is
; useful when you want to define a series of equates that
; relate to each other.  
;
; Normally you would do something like
;
;     lab1 equ  0
;     lab2 equ  lab1+4
;     lab3 equ  lab2+2
;     etc.
;
; These macros let you do the  following
;
;          DSect 0
;     lab1 equds.b  1
;     lab2 equds.w  1
;     lab3 equds.l  1
;     lab4 equds.a  1
;
; The macro does the equating and addition for you.  
; It also improves the readability of the code.
;
;

;
;  	EQUSect &Value
;
;  	Begin local equate section. This defines a  dummy PC
;  	set variable which can be used in equates to avoid error-
;  	prone linked equates for setting up direct page or
;  	stack offsets. The dummy PC begins at &Value and
;  	is updated by the appropriate amount by the EQUDS macro
;
		MACRO
&sectname		EQUSECT 	&Value,&propt
		IF &FINDSYM(&SYSGLOBAL,'EQUSECTPC') = 0 THEN
		GBLA 	&EQUSECTPC
		LCLC	&pr
		ENDIF
&EQUSECTPC	SETA 	&EVAL(&Value)
		IF &sectname <> '' THEN
&sectname		EQU	&EVAL(&Value)
		ENDIF
		PRINT	PUSH
		IF &propt = '' THEN
		PRINT	GEN,NOMDIR,NOMCALL
		ELSE
		PRINT	NOMDIR,&propt
		ENDIF
		MEND
;
; 	EQUORG &value
;
;	Assigns a new value to the EQUSECT program counter
;	(relative assignment is NOT supported
;
		
		MACRO
		EQUORG	&Value
		GBLA	&EQUSECTPC
&EQUSECTPC	SETA	&EVAL(&Value)
;--->		equorg	&CONCAT('$',&TRIM(&I2S(&EQUSECTPC,6,1)))
		ENDM


;
;  &lab EQUDS.len count
;
;  Equate the given label with the current dummy
;  PC (defined  by DSect, GlobalDSect, or
;  DefineStack), and update the dummy PC by the
;  appropriate  amount.
;
		MACRO
&lab		EQUDS.&siz	&count
		GBLA	&EQUSECTPC
		LCLA	&cnt
	 	IF &TRIM(&COUNT) = '*' THEN
	 	 IF  &lab <> '' THEN
		  IF &len(&lab) < 10 THEN
&lab		equ 	&CONCAT('$',&TRIM(&I2S(&EQUSECTPC,6,1)))
		  ELSE
&lab	equ	&CONCAT('$',&TRIM(&I2S(&EQUSECTPC,6,1)))
		  ENDIF
	 	 ELSE
	 	 WRITELN	'### Error: EQUDS * found without a label.')
	  	 ENDIF
	 	ELSE
&cnt		SETA	&EVAL(&count)
		IF &cnt > 0 THEN
		 IF &lab <> '' THEN
		  IF &len(&lab) < 10 THEN
&lab		equ 	&CONCAT('$',&TRIM(&I2S(&EQUSECTPC,6,1)))
		  ELSE
&lab	equ	&CONCAT('$',&TRIM(&I2S(&EQUSECTPC,6,1)))
		  ENDIF
	 	 ENDIF
	  	 IF &UC(&siz) = 'B' THEN
&EQUSECTPC	SETA 	&EQUSECTPC+&cnt
	  	 ELSEIF &UC(&siz) = 'W' THEN
&EQUSECTPC	SETA 	&EQUSECTPC+(2*&cnt)
	  	 ELSEIF &UC(&siz) = 'A' THEN
&EQUSECTPC	SETA 	&EQUSECTPC+(3*&cnt)
	  	 ELSEIF &UC(&siz) = 'L' THEN
&EQUSECTPC	SETA 	&EQUSECTPC+(4*&cnt)
	  	 ENDIF
		ELSE
	 	WRITELN	'### Error: EQUDS found with invalid operand =>',&count
		ENDIF
		ENDIF
		MEND
	
		MACRO
		ENDSECT
		PRINT	POP
		MEND
	
		MACRO
		STR	&string
		LCLC	&sset
&sset		SETC	&SETTING('STRING')
		STRING	PASCAL
		DC.B	&string
		STRING	&sset
		MEND
		
		MACRO
		DCI	&string
		LCLA	&slen
		LCLC	&msbset
		LCLC	&sset
&sset		SETC	&SETTING('STRING')
&msbset		SETC	&SETTING('MSB')
&slen		SETA	&LEN(&string)
		STRING	ASIS
	IF &slen > 3	THEN
		MSB	OFF
		DC.B	&CONCAT(&string[1:&slen-2],'''')
		MSB	ON
		DC.B	&CONCAT('''',&string[&slen-1:2])
	ELSEIF &slen = 3	THEN
		MSB	ON
		DC.B	&string		; 1 byte string + 2 delimiters
	ELSE
		WRITELN	'### DCI string argument too short: string =>',&string
	ENDIF
		MSB	&msbset
		STRING	&sset
		MEND


		MACRO	
		FillTo	&Addr,&Value
		LCLA	&PCadrs
		LCLC	&Here
		LCLC	&expr
		LCLC	&val
		IF &TRIM(&Value) = '' THEN
&val		SETC	'0'
		ELSE
&Val		SETC	&Value
		ENDIF
&PCadrs		SETA	*-Rel~Org+Bnk~Org
&Here		SETC	&I2S(&PCAdrs)
&expr		SETC	&CONCAT('(',&Addr,')','-',&Here)
&PCadrs		SETA	&EVAL(&expr)
	IF &PCadrs < 0 THEN
		WRITELN	'### WARNING: FILLTO parameter resulted in a negative length'
	ELSEIF &PCadrs > 32767 THEN
		WRITELN	'### WARNING: FILLTO parameter resulted in a fill size > 32767'
	ELSEIF  &PCadrs > 0 THEN
		DCB.B	&PCadrs,&val
	ENDIF
		MEND
		
		MACRO
		OPCODE.&mod &opc
		LCLC	&opcode
&opcode		SETC	&UC(&TRIM(&opc))
		IF &opcode = 'BCC' THEN
		DC.B	$90
		ELSEIF &opcode = 'BCS' THEN
		DC.B	$B0
		ELSEIF &opcode = 'BVS' THEN
		DC.B	$70
		ELSEIF &opcode = 'BVC' THEN
		DC.B	$50
		ELSEIF &opcode = 'LDA' THEN
		 IF &UC(&mod) = 'ZPG' THEN
		 DC.B	$A5
		 ELSE
		WRITELN	'### ERROR: OPCODE macro needs to have this adrs mode added for=>',&opcode,',',&mod
		 ENDIF
		ELSE
		WRITELN	'### ERROR: OPCODE macro needs to have this opcode added =>',&opcode
		ENDIF
		ENDM
		
		MACRO
&lbl		PgAdrEqu	&adrs
		LCLA	&absadrs
		LCLA	&pgadrs
&absadrs		SETA	&EVAL(&adrs)-Rel~Org+Bnk~Org
&pgadrs		SETA	(&absadrs**$FF00)>>8
&lbl		EQU	&pgadrs
		ENDM
		
		PRINT POP

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSFirmware/Monitor/BFUNC.80COL.aii b/IIGS.601.SRC/GSFirmware/Monitor/BFUNC.80COL.aii
new file mode 100644
index 0000000..1d87ed4
--- /dev/null
+++ b/IIGS.601.SRC/GSFirmware/Monitor/BFUNC.80COL.aii
@@ -0,0 +1 @@
+		EJECT
		TITLE	'Functions and Subroutines'

;	This EdAsm/Asm816 source code file was converted to AsmIIGS
;	by EdAsmCvtIIGS version 1.2d5 on 5/9/91 at 6:22:11 PM


* BASIC FUNCTION HOOK:
*
* INPUT: Y=FUNCTION AS FOLLOWS:
*
*           1 = KEYIN 
*           2 = Fix escape char 
*           3 = BASCALCC 
*           4 = VTABC or VTABCZ
*           5 = HOME
*           6 = SCROLL 
*           7 = CLREOL 
*           8 = CLREOLZ 
*           9 = RESET  
*           A = CLREOP 
*           B = RDKEY  
*           C = SETWND 
*           D = Fix pick for monitor
*           E = set 40 columns on PR#0/IN#0
*

F_HOME		LDA	WNDTOP
		STA	CV
		STZ	CH	;Reset CH
F_CLREOP		LDY	CH	; ESC F IS CLR TO END OF PAGE
		LDA	CV
CLEOP1		PHA
		JSR	VTABCZ
		JSR	X_CLREOLZ
		LDY	#$00
		PLA
		INC	A	;ADC #$00 ;(carry set)
		CMP	WNDBTM
		BCC	CLEOP1
		BCS	GVTZ	;=>always to VTABCZ

F_SCROLL		LDA	WNDTOP
		PHA
		JSR	VTABCZ
SCRL1		LDA	BASL
		STA	BAS2L
		LDA	BASH
		STA	BAS2H
		LDY	WNDWDTH
		DEY
		PLA
		INC	A	;ADC #$01  
		CMP	WNDBTM
		BCS	@2
		PHA
		JSR	VTABCZ
@1		LDA	(BASL),Y
		STA	(BAS2L),Y
		DEY
		BPL	@1
		BMI	SCRL1
@2		LDY	#$00
		JSR	X_CLREOLZ
GVTZ		LDA	CV
GVTZ2		JMP	VTABCZ	;set vertical base

F_SETWND		EQU	*
		LDA	#40
		STA	WNDWDTH
		LDA	#24
		STA	WNDBTM
		DEC	A	;LDA #23
		STA	CV
		BNE	GVTZ2	;=>go do vtab, exit

* Load Y from BAS2L and clear line

F_CLREOLZ		LDY	BAS2L	;set up by $F8 ROM
		BRA	X_CLREOLZ	;JMP X_CLREOLZ ;and clear line

* 80 column routines begin here

* Clear to end of line using Y = BAS2L
* which was set up by the $F8 ROM

B_CLREOLZ		LDY	BAS2L	;get Y
		JMP	X_GSEOLZ	;clear to end of line

B_HOME		JSR	X_FF	;HOME & CLEAR
		LDA	OURCH
		STA	CH	;COPY CH/CV FOR CALLER
		STA	OLDCH	;REMEMBER WHAT WE SET
		JMP	VTABC	;calc base & return

* Complete PR# or IN# call.  Quit video firmware
* if PR#0 and it was active (B_QUIT).  Complete call
* if inactive (F_QUIT).

B_QUIT		EQU	*
		LDY	LOC0,X	;was it PR#0/IN#0?
		BEQ	NOT0	;=>no, not slot 0
		CPY	#KEYIN	;was it IN#0?
		BEQ	IS0	;=>yes, update high byte
		JSR	QUIT	;quit the firmware
F_QUIT		LDY	LOC0,X	;get low byte into Y
		BEQ	NOT0	;not slot 0, firmware inactive
F8HOOK		LDA	#>KEYIN	;set high byte to $FD
		STA	LOC1,X
NOT0		LDA	LOC1,X	;restore accumulator
		RTS

IS0		LDA	CSWH	;is $C3 in output hook?
		CMP	#>BASICIN
		BNE	F8HOOK	;=>no, set to $FD0C
		JMP	C3IN	;else set to $C305, exit A=$C3

F_RDKEY		LDY	CH	;else do normal 40 cursor
		LDA	(BASL),Y	;grab the character
		PHA
		AND	#$3F	;set screen to flash
		ORA	#$40
		STA	(BASL),Y	;and display it
		PLA
		RTS		;return (A=char) 

F_BASCALCCC	TAY		;restore Y
		LDA	BASL	;restore A
		JMP	BASCALCC	;calculate base address

B_ESCFIX		EQU	*
		JSR	UPSHFT	;upshift lowercase
		PHX		;Must use X for this
		LDX	#4-1	;SCAN FOR A MATCH
@2		EQU	*
		CMP	>ESCIN,X	;IS IT?
		BNE	@1	;=>NAW
		LDA	>ESCOUT,X	;YES, TRANSLATE IT
@1		EQU	*
		DEX
		BPL	@2
		PLX		;Restore 'X'
		RTS		;RETURN:CHAR IN AC 

	; SEG $FF
ESCOUT		EQU	*
	; SEG $00
		DC.B	'JKMI'

* Pick an 80 column character for the monitor

FIXPICK		EQU	*	;get 80 column cursor
		JSR	PICKY	;pick the character 
		ORA	#$80	;always pick as normal
		RTS		;and return

* Load CH into Y and clear line

F_CLREOL		EQU	*
		LDY	CH	;get horizontal position
X_CLREOLZ		LDA	#$A0	;store a normal blank
		BIT	ALTCHARSET	;unless alternate char set
		BPL	@1
		BIT	INVFLG	;and inverse
		BMI	@1
		LDA	#$20	;use inverse blank
@1		JMP	CLR40	;clear to end of line

* Call VTABC or VTABCZ for 40 or 80 columns.  Acc (CV)
* is saved in BASL.

F_VTABCZ		TAY		;restore Y
		LDA	BASL	;and A
		JMP	VTABCZ	;do VTABCZ

* Do BOUT, ESCFIX, BASCALCCC, and KEYIN immediately
* to avoid destroying Accumulator.

B_KEYIN		EQU	*
		BIT	RD80VID	;80 columns?
		BPL	B_KEYIN1	;=>no, flash the cursor
		JMP	BIN	;get a keystroke

B_KEYIN1		EQU	*
		LDY	CH	;Get cursor position
		STA	(BASL),Y	;
		JSR	SHOWCUR	;Show current cursor
@1		EQU	*
		JSR	UPDATE	;
		BPL	@1	;Loop til done
		RTS		;Done now exit

B_SETWNDX		EQU	*
		JSR	F_SETWND	;set 40 column width
		BIT	RD80VID	;80 columns?
		BPL	@1	;=>no, width ok
		ASL	WNDWDTH	;make it 80
@1		LDA	CV
		STA	OURCV	;update OURCV
		RTS

* HANDLE RESET FOR MONITOR:

B_RESETX		EQU	*
		LDA	#$FF	;DESTROY MODE BYTE
		STA	MODE
		LDA	SETAN0	;AN0 = TTL low
		LDA	SETAN1	;AN1 = TTL low
		LDA	CLRAN2	;SETUP
		LDA	CLRAN3	; ANNUNCIATORS
		JSR	SETTEXT2REG	;Set textp2 shadowing reg first
		LDA	#$08	;Disable super high res shadowing
		TSB	SHADOW	;
		RTS

* READ MEMORY LOCATION AT (PCL),Y

READPCY1		EQU	*
		INY		;Next byte please
READPCY		EQU	*
		PHP
		PHY		;Save 'X'/'Y' values
		PHX		;
		JSR	PCYTOA3	; let A3 = PC + Y
		JSR	READBYTE
		PLX		; restore value
		PLY		;
		PLP
B_RDKEYXRTS	EQU	*
		RTS

B_RDKEYX		LDY	CH	;get cursor position
		LDA	(BASL),Y	;and character
		BIT	RD80VID	;80 columns?
		BMI	B_RDKEYXRTS	;=>don't display cursor
		JMP	SHOWCUR2	;else display cursor, exit


\ No newline at end of file
diff --git a/IIGS.601.SRC/GSFirmware/Monitor/BRAM.INTR071.aii b/IIGS.601.SRC/GSFirmware/Monitor/BRAM.INTR071.aii
new file mode 100644
index 0000000..d19f7f4
--- /dev/null
+++ b/IIGS.601.SRC/GSFirmware/Monitor/BRAM.INTR071.aii
@@ -0,0 +1 @@
+		TITLE	'BATTERYRAM/Clock Chip Rtnes'

;	This EdAsm/Asm816 source code file was converted to AsmIIGS
;	by EdAsmCvtIIGS version 1.2d5 on 5/9/91 at 7:18:34 PM

******************************************************
*                                                    *
*              BATTERYRAM/Clock Routines             *
*                                                    *
*                    by                              *
*               Fern Bachman     1985-1987           *
*               Joe Bo           1987-1989           *
*                                                    *
*       Copyright Apple Computer, Inc. 1985-1989     *
*                All Rights Reserved.                *
*                                                    *
******************************************************


* The INITCLOCK code guarantees that the clock
* chip is not in test mode and that it is write
* enabled.  Doing this does not alter the data
* in the clock chip and therefore it is performed
* on every coldstart of the system.

	; SEG $FF
INITCLOCK		EQU	*
	; SEG $00
		LDA	#$37	;Write protect address
		LDY	#$55	;Reset write protect register
		JSR	WRITE1BYTE	;Send byte to clock chip
		LDA	#$31	;Test mode address
		LDY	#$00	;Disable test mode
		JSR	WRITE1BYTE	;Send byte to clock chip
		RTL		;Make callable from anywhere with JSL

* WRITESTD puts Apple standard parameters into
* the buffer BRAMBUFFER and then writes this data
* to the clock chips memory BATTERYRAM.

	; SEG $FF
WRITESTD		EQU	*
	; SEG $00
		PHP		;Preserve interrupt status
		SEI		;
		PHB		;Save current data bank
		JSR	DBTOE1	;Switch to bank $e1
		LDX	#$00	;Start with 1st byte to move to buffer
@1		EQU	*
		LDA	>CPDEFTBL,X	;Default parameter
		STA	|BRAMBUFFER,X	;Put in buffer
		INX		;Next please
		CPX	#CPDTBLLN	;Test against max
		BCC	@1	;Loop if not done

		LDA	#$FF	;$FF out rest of table
@2		EQU	*
		CPX	#$A1	;Is it get to the burn-in params ?
		BNE	@3	;BRA if not
		LDY	DIAGTYPE	;Is burn-in on ?
		BPL	@3	;BRA if not
		LDX	#$C1	;Else skip over 32 bytes
@3		STA	|BRAMBUFFER,X	;Put in buffer
		INX		;
		BNE	@2	;Loop til all $FF'ed out

		PLB		;Recall data bank
		PLP		;Recall interrupt status


	; SEG $FF
WRITEBR		EQU	*	;Write to BATTERYRAM routine
	; SEG $00
		PHP		;Disable interrupts during write
		SEI		;
		PHB		;Save current data bank register
		JSR	DBTOE1	;Switch to bank E1
		JSR	CALCCHKSUM	;Go calculate checksum
		STX	|BRAMCHKSUM1	;'X' returns main checksum
		STA	|BRAMCHKSUM2	;'A' returns secondary checksum
		SEP	#$30	;'m'/'x' back to 8 bit land
		LDX	#$00	;Start with 1st byte
		TXY		;Start with address 00
@1		EQU	*
		CLV		;Clear 'v' for write
		LDA	|BRAMBUFFER,X	;
		JSR	XTNDBRAM	;
		INX		;
		INY		;Next address
		BNE	@1	;
		PLB		;Restore data bank register
		PLP		;Restore interrupt status
		RTL		;Make callable from anywhere with JSL

	; SEG $FF
READBR		EQU	*	;Read from BATTERYRAM routine
	; SEG $00
		PHB		;Save current data bank register
		PHP		;Disable interrupts during write
		SEI		;
		JSR	DBTOE1	;Switch to bank E1
		LDX	#$00	;Start with 1st byte
		TXY		;Start with address 00
@1		EQU	*
		SEP	#$40	;Set V for read
		JSR	XTNDBRAM	;Read a byte
		STA	|BRAMBUFFER,X	;Save for later

		CPX	#NLANGOP+0-NPORTOP	;Number of languages available?
		BEQ	@16_3	;
		CPX	#NLANGOP+1-NPORTOP	;Number of layouts available?
		BEQ	@16_5	;
		CPX	#NRAMDSKOP+0-NPORTOP	;Is it minimum RAM disk size?
		BEQ	@18	;No limit checking needed
		CPX	#NRAMDSKOP+1-NPORTOP	;Is it maximum RAM disk size?
		BEQ	@18	;No limit checking needed
		CPX	#NCLOCKOP-NPORTOP	;Test special if above this value
		BCS	@16	;
		CMP	>BRAMLIMITS,X	;Test read value against max allowable
		BRA	@17	;'c'=0 then it's an OK value

@16		EQU	*
		BNE	@16_6	;<>=8
		CMP	#9	;'c'=0 then all's file
		BRA	@17	;Exit routine

@16_3		EQU	*
		CMP	#8	;
		BRA	@17	;Exit routine

@16_5		EQU	*
		CMP	#17	;0-16 is OK for number of layouts
		BRA	@17	;Exit routine

@16_6		EQU	*
		CPX	#NCLOCKOP-NPORTOP+9+18	;Limit+1 is 16
		BCS	@18	;>= 83 then no limit checking is done
		CPX	#NCLOCKOP-NPORTOP+9+17	;CHK new slot1 value
		BCC	@18_8	;BRA if not
		CMP	#$04	;New slot1 value <=$03
		BRA	@17	;Exit routine
@18_8		EQU	*
		CMP	#32	;
@17		EQU	*
		BCS	READBRBAD	;'c'=1 here then bad BATTERYRAM

@18		EQU	*
		INX		;Next
		INY		;Next address
		BNE	@1	;Loop til done
		JSR	CALCCHKSUM	;Go calculate checksum
		CPX	|BRAMCHKSUM1	;'X' returns main checksum
		BNE	READBRBAD	;No match then exit with error
		CMP	|BRAMCHKSUM2	;'A' returns secondary checksum
		BNE	READBRBAD	;No match then exit with error
		PLP		;Restore interrupt status
		CLC		;Data intact indicator
		SEP	#$30	;'m'/'x' back to 8 bit land
		PLB		;Restore data bank register
		RTL		;Make callable from anywhere with JSL

READBRBAD		EQU	*	;Set carry if data corrupt
		SEP	#$30	;'m'/'x' back to 8 bit land
		JSL	>WRITESTD	;Try to write out standards if here
		PLP		;Restore interrupt status
		SEC		;Data is Apple standards indicator
		PLB		;Restore data bank register
		RTL		;Make callable from anywhere with JSL


	; SEG $FF
READTIME		EQU	*
	; SEG $00
		PHP		;Disable interrupts during read
		SEI		;
		PHB		;Save data bank register
		JSR	DBTOE1	; and switch it to bank E1
		STZ	|TIMEOUT	;Restart time out counter

@11		EQU	*
		LDY	#$00	;Loop counter

@22		EQU	*
		INC	|TIMEOUT	;Test if timed out
		BEQ	READTIME8	;Quit if can't read clock properly
		LDX	#$00	;Read 4 bytes
		LDA	#$01-$04	;Starting address-4
@33		EQU	*
		CLC		;Next address
		ADC	#4	;
		PHA		;
		ORA	#$80	;Set bit 7 for reading command
		SEP	#$40	;'v'=1 for reading clock chip
		JSR	WRITE1BYTE+1	;Read data and disable transfer
		CPY	#$00	;Test if 1st/2nd time through loop here
		BNE	@1	;<>0 then 2nd time through loop
		STA	|CLKRDATA,X	;Store clock data 1st time through
		BRA	@2	;

@1		EQU	*
		CMP	|CLKRDATA,X	;Test for match
		BEQ	@2	;= then continue normally
		PLA		;Clean up stack
		BRA	@11	;And try again

@2		EQU	*
		PLA		;Recall 'A'
		INX		;
		CPX	#$04	;Read 4 bytes then all done
		BCC	@33	;Loop til 4 bytes read
		TYX		;Test if 1st/2nd time through loop
		BNE	READTIME9	;
		INY		;Indicate 2nd time through loop
		BRA	@22	;

READTIME8		EQU	*	;Write exits at READTIME8+1
		PLB		;Restore data bank register
		PLP		;Restore interrupt status
	; SEG $FF
SECRTL		EQU	*
	; SEG $00
		SEC		;Indicate unable to read clock
		RTL		;Make callable from anywhere with JSL

READTIME9		EQU	*	;Write exits at READTIME9+1
		PLB		;Restore data bank register
		PLP		;Restore interrupt status
	; SEG $FF
CLCRTL		EQU	*
	; SEG $00
		CLC		;Indicate able to read clock
		RTL		;Make callable from anywhere with JSL


	; SEG $FF
WRITETIME		EQU	*
	; SEG $00
		PHP		;Disable interrupts during write
		SEI		;
		LDA	#$00	;Counter on stack
@4		EQU	*
		PHA		;
		LDX	#$00	;Write 4 bytes
		LDA	#$01-$04	;Starting address-4
@1		EQU	*
		CLC		;Next address
		ADC	#4	;
		PHA		;
		LDA	>CLKWDATA,X	;Time to set clock to
		TAY		;Data to 'Y' for WRITE1BYTE
		LDA	1,S	;'A' = address to write to
		JSR	WRITE1BYTE	;Do it
		PLA		;Recall 'A'
		INX		;
		CPX	#$04	;If at 4 then done
		BCC	@1	;Loop til 'c'=1

		JSL	>READTIME	;Read back/verify data written is correct

		LDX	#$03	;Test 4 bytes
@2		EQU	*
		LDA	>CLKRDATA,X	;Test data read
		CMP	>CLKWDATA,X	; against data written
		BNE	@3	;<> = then rewrite clock data
		DEX		;Try next value
		BPL	@2	;
		PLA		;All matched if here so exit
		BRA	READTIME9+1	;Exit indicating all's fine

@3		EQU	*
		PLA		;Decrement counter
		DEC	A	;
		BNE	@4	;Try again if timeout not reached
		BRA	READTIME8+1	;Exit indicating error in write


CALCCHKSUM	EQU	*	;Calc checksum of BRAM from $00 to $FB
		LDX	#$FA	;Checksum all BRAM except checksum bytes
		REP	#$20	;'m'=16 bit -- 'x'=8 bit
		LONGA	ON
		CLC		;Clear carry to start
		LDA	#$0000	;Start with $0000 as checksum
@1		EQU	*
		ROL	A	;16 bit shift
		ADC	|BRAMBUFFER,X	;Add in value from buffer
		DEX		;
		CPX	#$FF	;Stop on 'X'=$FF
		BNE	@1	;Loop til done
		REP	#$30	;'m'/'x' = 16 bit mode
		TAX		;Save checksum 1 in 'X'
		EOR	#CHKSMCNST	;Exclusive OR result with constant
		LONGA	OFF
		RTS		;Exit 'X'=main chksum - 'A'=2nd chksum


* 'A' contains data to to write / from read
* 'Y' contains address to read/write data to
* BATTERYRAM address is in the form sssaaaaa
*            where sss is sector number (0-7)
*            and aaaaa is address (0-1F)
* 'v' contains read/write status
*     1 = read
*     0 = write
* 'X' is preserved

XTNDBRAM		EQU	*	;Set up command and extended address
		PHA		;Save data to write to clock data register
		TYA		;Create extended address
		PHA		;Save for later
		AND	#$E0	;Get sector data
		LSR	A	;Move to bits 0,1,2
		LSR	A	;
		LSR	A	;
		LSR	A	;
		LSR	A	;
		ORA	#EXMEMCMD	;Sets command correctly
		BVC	@1	;'v' = 0 then writing
		ORA	#$80	;Modify command for reading

@1		EQU	*
		XBA		;Move in hi byte of 'A'
		PLA		;Recall address
		AND	#$1F	;Strip off sector bits
		ASL	A	;Shift bits to 2 to 6
		ASL	A	;
		XBA		;Save address/do command
		PHP		;Save user read/write status
		JSR	ACCCLKCLV	;Transfer command to clock chip
		XBA		;Send address to write to, to clock chip
XTNDBRAM6		EQU	*
		JSR	ACCCLKCLV	;Transfer extended address to clock chip
		PLP		;Recall what user wants to do
		PLA		;Recall user data if writing
		JSR	ACCCLOCK	;Read/write a byte of data
		PHA		;Save 'A'
		LDA	CLOCKCTL	;Reset bit
		AND	#$DF	;
		STA	CLOCKCTL	;
		PLA		;Recall 'A'
		RTS		;Back to caller


WRITE1BYTE	EQU	*
		CLV		;'v'=0 to write data
		PHY		;Save data to write on stack
		PHP		;Save read/write status on stack
		BRA	XTNDBRAM6	;


ACCCLKCLV		EQU	*	;Write a byte of data to the clock chip
		CLV		;'v'=0 to write data
ACCCLOCK		EQU	*	;Send a byte of data to the clock chip
		STA	CLOCKDATA	;Data/address/cmd to clock data register
		LDA	CLOCKCTL	;Reset read/write bit
		AND	#$3F	;Bit 7/6 to 0
		BVS	@0	;'v' = 1 if reading instead of writing
		ORA	#$A0	;Bit 7/5 to 1 to write transfer
		BRA	@1	;

@0		EQU	*	;Doing read of BATTERYRAM if here
		ORA	#$E0	;Enable transfer for reading
@1		EQU	*
		STA	CLOCKCTL	;
@2		EQU	*	;Wait til transaction is done
		LDA	CLOCKCTL	;Wait for transfer to complete
		BMI	@2	;Loop til done
		LDA	CLOCKDATA	;Put data in 'A' and exit
		RTS		;All's fine if here




		TITLE	'BATTERYRAM/Clock Chip Rtnes2'

******************************************************
*                                                    *
*              BATTERYRAM/Clock Routines2            *
*                                                    *
*                    by                              *
*               Fern Bachman     1985-1987           *
*               Joe Bo           1987-1989           *
*                                                    *
*       Copyright Apple Computer, Inc. 1985-1989     *
*                All Rights Reserved.                *
*                                                    *
******************************************************


	; SEG $FF
MICROABORTED	EQU	*	;Int handler goes here on micro abort
	; SEG $00
		LDA	>CURSOR	;Save cursor around JSR SETUPBR
		PHA		;
		JSR	SETUPBR	;Go resync with keyboard micro
		PLA		;Restore CURSOR
		STA	>CURSOR	;
		CLC		;Back to interrupt handler 'c'=0 if
		RTL		; micro is back on line else system death.


* SETUPBR does several things for the system.
*
* NOTE: Interrupts are off on entry to here
*
*     1. Read BATTERYRAM
*     2. If an error then write default parameters
*        to BRAMBUFFER and write that to BATTERYRAM.
*     3. Pre-modify APTALKBOOT byte so that 'SLOOP' routine
*        can have enough space to handle booting from AppleTalk
*     4. Setup system to user preferences except for
*        system speed which must be done in Apple//e
*        monitor space.
*

SETUPBR		EQU	*
		LDA	#11	;Change register 11 in the SCC
		STA	SCCAREG	; to enable the oscillator.
		LDA	#$D2	;Monitor is only one allowed to do this
		STA	SCCAREG	; of channel B will stop working.
		JSR	RESETFF	;Setup some reset stuff
		JSL	>READBR	;Move BATTERYRAM params to buffer in E1
		PHB		;Save data bank register
		JSR	DBTOE1	;Change data bank to E1

		STZ	|APTALKPORT	;0=NONE, 1=PORT1, 2=PORT2
		STZ	|APTALKBOOT	;0=NONE, 1=$C100, 2=$C200 .....
		STZ	|APTALKRPMM	;Remote printing, same as APTALKBOOT
		LDA	|USERSLT2	;Is slot 2 for AppleTalk ?
		CMP	#$02	;0=Printer, 1=Modem, 2=AppleTalk
		BEQ	@2	;Set APTALKBOOT=2, boot from slot2
@1		EQU	*
		LDA	|SPCLSLT1	;Is slot 1 for AppleTalk? Use real one !!
		CMP	#$02	;
		BNE	@3	;Bra if both slot1/2 not for ApTalk  
		DEC	A	;Make it 1=boot from slot1 AppleTalk
@2		EQU	*
		STA	|APTALKPORT	;Set up APTALKPORT
		STA	|APTALKBOOT	;0=NONE, 1=Slot1 ApTalk, 2=Slot2 ApTalk
		STA	|APTALKRPMM	;Set remote printing stuff

@3		EQU	*
		LDX	#$07	;Save 8 bytes
@4		EQU	*	;Save flush/micro abort vectors
		LDA	|IRQ_FLUSH,X	;Pick up byte
		PHA		;Save on stack
		DEX		;
		BPL	@4	;Loop til done

		JSR	RESETFDB	;Wake up front desk bus


		JSR	RESETFDB	;Wake up front desk bus again

		LDX	#$00	;Restore 8 bytes
@12		EQU	*	;Save flush/micro abort vectors
		PLA		;Recall byte
		STA	|IRQ_FLUSH,X	;Pick up byte
		INX		;
		CPX	#$08	;Increment to 8 the quit
		BNE	@12	;Loop til done

		PLB		;Restore data bank register
		LDA	>CLRHOLES	;
		BNE	@13	;BRA not to clear
		LDA	#$FF	;Set it non-zero
		STA	>CLRHOLES	;Set it non zero
;REP #$30 ;16-bit mode to clear screen holes
;MEMORY16  ; so that slinky ram card would work
;INDEX16  ; it can't be clear with $a0 !!!
;LDA #$0000 ;Clean all screen holes to zero
;LDX #$0006 ;Index to screen holes
		LDA	#$00
		LDX	#$08
@14		EQU	*
		DEX
		BEQ	@13
		STA	$478,X	;DO IT
		STA	$4F8,X
		STA	$578,X
		STA	$5F8,X
		STA	$678,X
		STA	$6F8,X
		STA	$778,X
		STA	$7F8,X
		BRA	@14
;DEX
;CPX #$0001
;BNE @14
;DEX
;BPL @14
;SEP #$30
;MEMORY8
;INDEX8
@13		EQU	*
		JSR	TSTPWRUP	;Test power up bytes
		BNE	ITSCLDST	;= then it's warmstart
		LDA	>SLOTSFLG	;What was set up before?
		JSR	SETUPSLOTS1	;Set up 80 columns correctly NOW!!!!
		SEC		;Do NOT setup slots on warmstart
		OPCODE	BCC

ITSCLDST		EQU	*
		CLC		;Set up slots if coldstart
		JSL	>USERSETUP	;Do rest of setup

* Test if warm or cold startup.  If warmstart make
* warmstart reset call to tool dispatcher.

		JSR	TSTPWRUP	;Test power up bytes
		BNE	@4	;<>= then it's coldstart

		IF IS512 <> 0 THEN
		ELSE
		REP	#$30	;Warm start the tool locator/tools
		LONGI	ON
		LDX	#$0501	;Warmstart/tool locator call
		LONGI	OFF
		JSL	>DISPATCH1	;Call it
		SEP	#$30	;Back to normal monitor mode
		ENDIF

@4		EQU	*
		RTS		;Back to caller

TSTPWRUP		EQU	*	;Test for warmstart or coldstart
		LDA	SOFTEV+1	;Is reset Hi byte
		EOR	#$A5	; a funny complement of the
		CMP	PWREDUP	; power up byte?
		RTS		;'z'=0 if warmstart else its coldstart

* USERSETUP is called via a vector called TOBRAMSETUP
* in bank E1.
*  Entry requirements:
*                      Native mode 8 bit 'm'/'x'
*                      'c'=0 for complete setup
*                      'c'=1 for setup all except slots

	; SEG $FF
USERSETUP		EQU	*	;Setup called by control panel
	; SEG $00
		PHP		;Save interrupt status
		SEI		;NO interrupts in here
		LDA	STATEREG	;Save state
		PHA		;Save on stack
		AND	#$FE	;Enable slotcsrom space
		ORA	#$08	;Enable ROM
		STA	STATEREG	;
		PHP		;'c'=0 then change everything possible
		JSR	SETUPBR2	;Set up some BATTERYRAM stuff
		PLP		;'c'=1 if do NOT change slots designation
		BCS	@1	;
		JSR	SETUPSLOTS	;Set up slots stuff (int versus ext)
@1		EQU	*
		JSR	D2D	;Detect disk ]['s / set up system speed
		PLA		;Recall state
		STA	STATEREG	; and restore it.
		PLP		;Recall interrupt status
		CLC		;Needed for keyboard micro abort interrupt
		RTL		;Back to external caller

	; SEG $FF
SETUPSLOTS	EQU	*	;Set up slot designation (int versus ext)
	; SEG $00
		LDX	#$7	;Shift 7 times
		LDA	#$00	;Starting SLTROMSEL value
@1		EQU	*
		ORA	>USERSLT1-1,X	;Or in next slot
		ASL	A	;Shift 1 bit
		DEX		;
		BNE	@1	;Loop til done
		AND	#$F0	;Bits 3,2,1 and 0 MUST be 0
		TAX		;Save 'A'
		LDA	>USERSLT2	;Whose slot 2 card ?
		CMP	#$01	;Is it set to external ?
		BNE	@2	;BRA if not
		TXA		;Get back 'A'
		ORA	#$04	;Set slot 2 to external, bit2
		TAX		;Save 'A' again
@2		EQU	*
		LDA	>SPCLSLT1	;Whose slot 1 card ? Use real one
		CMP	#$01	;Is it set to external ?
		BNE	@3	;BRA if not 
		TXA		;Get back 'A'
		ORA	#$02	;Set slot 1 to external, bit0
		TAX		;Make it for next instruction
@3		EQU	*
		TXA		;Get back 'A'
		STA	SLTROMSEL	;Now set up slot ROM select switch
		STA	>SLOTSFLG	;Used to set up SLTROMSEL on warm reset
	; SEG $FF
SETUPSLOTS1	EQU	*	;Set up 80 columns correctly
	; SEG $00
		STA	SETINTC3ROM	;Enable internal slot 3 $Cn00 space
		LDA	>USERSLT3	;Whose slot 3 card?
		BEQ	@1	;= then internal slot 3 $Cn00 active
		STA	SETSLOTC3ROM	;Enable external slot 3 $Cn00 space

@1		EQU	*
		RTS		;Back to caller


SETUPBR2		EQU	*	;Entry point for control panel
		JSL	>READBR	;Move BATTERYRAM params to buffer in E1

		PHB		;Change data bank register to E1
		JSR	DBTOE1	;
		STZ	|ORGMEMORY	;Zero out for monitor commands
		CLC		;Carry must be clear to start
		LDA	|USERSPEED	;
		ROR	A	;Shift to hi bit to make mask
		ROR	A	;Bit7=1 for hi spd - bit7=0 for slow spd
		STA	|SYSTEMSPD	;

		JSR	SETCOLORS	;Set up all color related stuff

		LDA	SOUNDCTL	;Change low nybble only
		AND	#$F0	;
		ORA	|USERVOL	;What's user volume?
		STA	SOUNDCTL	;Alter user's volume
		LDA	|USERVOL	;Set up IRQ volumne
		STA	|IRQ_VOLUME	; for interrupt manager
		ASL	A	;Move to hi nybble for Ensoniq routines
		ASL	A	;
		ASL	A	;
		ASL	A	;
		STA	|SYSVOLLOC	;Save for Ensoniq sound routines
		JSR	FIXCURSHIFTER	;Fix up flash rate for cursor


* Sync up to the keyboard microprocessor.
*    and place them in BRAMBUFFER.
* Finally setup all micro parameters including
*    1. Keyboard buffering
*    2. Shift Caps/Lower Case
*    3. Fast Space/Bkspace Keys
*    4. Dual Speed
*    5. High Mouse Resolution


		JSR	|PANELFDB	;Go to front desk bus code to set up stuff
		PLB		;Restore data bank register
		RTS		;Back to caller


SETCOLORS		EQU	*
		PHB		;Save data bank register
		JSR	DBTOE1	;Switch to bank E1
		LDA	|USERTEXT	;Make up text/background as user wants
		ASL	A	;Lo byte to hi byte
		ASL	A	;
		ASL	A	;
		ASL	A	;
		ORA	|USERBACK	;
		STA	TBCOLOR	;Sets text/background bits

		LDA	CLOCKCTL	;Mask off lo nybble
		AND	#$F0	;
		ORA	|USERBORDER	;
		STA	CLOCKCTL	;

		LDA	#$F0	;Mask out bits 4,5,6,7
		TRB	LANGSEL	;
		LDA	|USERDISP	;User display language
		ASL	A	;Shift left 1 byte to make room for hertz
		ORA	|USERHERTZ	;Set up user clock frequency
		ASL	A	;Shift to bit4 for masking
		ASL	A	;
		ASL	A	;
		ASL	A	;
		ORA	#$08	;Enable character select bit in Mega //
		TSB	LANGSEL	;Bit4=0/1 (60hz/50hz)

		LDA	#$20	;Reset bit
		TRB	NEWVIDEO	; before setting it correctly
		CLC		;MUST clear carry or unknown results
		LDA	|USERCOLOR	;Make up color/mono for user
		ROR	A	;Move to bit 7
		ROR	A	;
		STA	MONOCOLOR	;Sets up mono/color for user
		ROR	A	;Shift to bit 5 for NEWVIDEO mask
		ROR	A	;
		TSB	NEWVIDEO	;Sets color/mono for double hires
		PLB		;Restore data bank register
		RTS		;Back to caller




		TITLE	'Interrupt Handlers ROM Code'

******************************************************
*                                                    *
*    Interrupt Handler/Manager ROM code routines     *
*                                                    *
*                    by                              *
*               Rich Williams     1985-1987          *
*               Fern Bachman      1985-1987          *
*               Joe Bo            1987-1989          *
*                                                    *
*       Copyright Apple Computer, Inc. 1985-1989     *
*                All Rights Reserved.                *
*                                                    *
******************************************************


******************************************************
*
* CPABRTDISP arbitrates whether the interrupt was
* from an ABORT or a COP occurring.
*
******************************************************

	; SEG $FF
CPABRTDISP	EQU	*	;COP/ABORT dispatcher
	; SEG $00
		BCC	@1	;'c'=0 if it's a COP of some kind
		JMP	>ABORTMGRV	;'c'=1 it's an abort

@1		EQU	*
		JMP	>COPMGRV	;'c'=0 it's a COP


******************************************************
*
* Here 'v'=? 'b'=? from COP instruction.  In here
* dummy up processor status from COP to make it look
* like a break (native or emulation) occurred for
* display of the COP message.  For emulation mode
* this requires clearing 'v' and by pulling the COP
* status from the stack, setting the 'b' bit and pushing
* the status back on the stack and falling
* into Rich's interrupt code.  For native mode this
* requires setting 'v'=1 to indicate a native
* mode COP.
*
******************************************************

	; SEG $FF
UABORTHNDLR	EQU	*	;Unknown aborts come here
UCOPHNDLR		EQU	*	;Unknown aborts come here
	; SEG $00
		CLC		;Which type of COP (emulation or native)?
		XCE		;Switch 'e' and 'c'
		BCS	@1	;'c' set then it was emulation mode COP
		SEP	#$40	;Set 'v' to simulate native mode break
		BRA	INTHNDLR	;Go to normal interrupt handler

	; SEG $FF
@1		EQU	*	;Unknown emulation mode COP handler
	; SEG $00
		XCE		;Switch back to emulation mode
		CLV		;Indicates not a native break
		PLA		;Change COP status to simulate a break
		ORA	#$10	;Set break bit
		PHA		;


***********************************************
*
* Here V=1 if break =0 if don't know yet
* Save A,X,Y,DB and E bit
* and shadow reg and cya register
* Set native mode, fast speed, C = E bit
*
***********************************************

	; SEG $FF
INTHNDLR		EQU	*
	; SEG $00
		CLC		;Into native mode
		XCE
		REP	#M8+X8	;16 bit regs
		LONGA	ON
		PHP		;Save emulation status
		PHB		;Save data bank
		PEA	$E1E1	;Set data bank to E1
		PLB
		STA	|irq_A	;Save the A reg
		LDA	SHADOW	;Get shadow and cya
		STA	|irq_shadow	;Save em
		ORA	#$8000	;Force fast speed
		AND	#$9F3E	;Force I/O and text shadowing
		STA	SHADOW
		STX	|irq_X	;Save X & Y
		STY	|irq_Y
		TDC		;Save direct register
		STA	|irq_D	;
		LDA	#$0000	;Reset direct register to $0000
		TCD		;


		LONGA	OFF
		SEP	#$30
*
* A patch was added here to preserve the alternate pg 1 stack which
*  was not preserved in the earlier ROMs.  This patch added too many
*  cycles into the path from interrupt to the AppleTalk data stores
*  below and so was pulled out.  The load/store is moved to three
*  different places that are not in this initial, critical path.
*  {MSA/FAB 4/14/89}
*
;LDA =ALEMSTKPTR ;Store emulation stack pointer
;STA irq_EMULSTKPTR ;

* Do a quick break test before testing for SCC interrupt.

		BCC	@1	;'c'=0 then maybe native mode interrupt
		LDA	4,S	;Recall status byte
		AND	#$10	;Test emulation mode break bit
		ADC	#$70	;Add $10 or $11 to set 'v'
@1		EQU	*
		BVS	@222	;'v'=1 on breaks

* End of quick break test.


		LDA	#$03	;Test register 3 for interrupt
		STA	SCCAREG	;
		LDA	SCCAREG	;=0 then not an SCC interrupt
		BIT	|SCCFLAG2	;Interrupt mask for AppleTalk
		BEQ	@122	;
		PHA		;Save for serial interrupt testing
		AND	#$07	;$38=channel A mask - $07=channel B mask
		BNE	@2	;Do channel B for AppleTalk

* Fall through for channel A AppleTalk interrupt

		LDA	SCCADATA	;Read channel A
		STA	|SCC1	;Save as data byte 1
		LDA	SCCADATA	;Read next byte too
		STA	|SCC2	;Save as data byte 2
		JSL	>IRQ_APTLK	;Process AppleTalk interrupt
		BRA	@121	;Skip channel B read

* Branch (BNE) to here for channel B AppleTalk interrupt

@2		EQU	*
		LDA	SCCBDATA	;Read channel B
		STA	|SCC1	;Save as data byte 1
		LDA	SCCBDATA	;Read next byte too
		STA	|SCC2	;Save as data byte 2
		JSL	>IRQ_APTLK	;Process AppleTalk interrupt

@121		EQU	*
		LDA	>ALEMSTKPTR	;{MSA/FAB 4/14/89} Preserve page 1 stack pointer
		STA	|IRQ_EMULSTKPTR	;{MSA/FAB 4/14/89}
		LDA	#$00	;Save user gets called or not status
		ROR	A	;Move 'c' into status byte
		STA	|SCCSTAT	;
		PLA		;Recall SCC interrupt status
		BRA	@123	;Skip reseting of SCCSTAT

@122		EQU	*
		PHA		;{MSA/FAB 4/14/89} Keep SCCAREG around
		LDA	>ALEMSTKPTR	;{MSA/FAB 4/14/89} Preserve page 1 stack pointer
		STA	|IRQ_EMULSTKPTR	;{MSA/FAB 4/14/89}
		STZ	|SCCSTAT	;MUST 0 this status byte out here

		JSL	>IRQ_MIDI	;Polls for midi input int
		PLA		;{MSA/FAB 4/14/89} Recover SCCAREG!
		BCC	@123_7	;BRA if Midi claims the int
*
* The following clear carry is inserted to maintain compatibility
*  in the case that the MIDI interrupt handler refuses the interrupt.
*  The carry was clear at this point in the 01 ROM and some app's
*  interrupt handlers depend on the the carry being clear on entry
*  to the handler (Master Tracks just does a PHP / PLP in the sound
*  handler; it always services the interrupt when installed and
*  assumed that what the carry was at entry was okay to return
*  on exit...)  3/23/89  MSA
*
		CLC

@123		EQU	*
		PHA		;Preserve SCC register 3 interrupt status
		AND	|SERFLAG	;Test for serial interrupts
		BEQ	@124	;=0 then no serial interrupts
		JSL	>IRQ_SERIAL	;Go to serial interrupt handler
		ROR	|SCCSTAT	;Save user gets called or not status
		PLA		;Clean up stack to exit this way
@123_5		EQU	*
		LDA	|SCCSTAT	;Test for <>=0
		BNE	@125	;ROR yields 'z'<>1 then bug user

@123_7		EQU	*
		REP	#$30	;16 bit land a must
		PLB		;Clean up stack
		JMP	IRQDONE4	;Exit quickly

@124		EQU	*
		PLA		;What was SCC register 3 interrupt status?
		BNE	@123_5	;<>=0 then chk to see if user gets called

@125		EQU	*
		CLV		;


		LONGA	ON
@222		EQU	*
		LDA	>ALEMSTKPTR	;{MSA/FAB 4/14/89} Preserve page 1 stack pointer
		STA	|IRQ_EMULSTKPTR	;{MSA/FAB 4/14/89}
		REP	#$30	;16 bit land a must
		PLB		;Clean up stack
		PLA
		STA	|irq_DB	;Save data bank and em status
		STZ	|IRQ_INTFLAG	;Reset IRQ_INTFLAG/IRQ_DATAREG
		STZ	|IRQ_KMSTATUS	;Reset IRQ_KMSTATUS/IRQ_SECFLAG

********************************************
*
* Test for break here so stack information
* can be saved with the correct stack 
* in place.
*
*******************************************

		BVC	@4	;
		SEP	#$10	;16 bit 'm' but 8 bit 'x'
		PLY		;Recall break processor status
		PHY		;Put back on stack for possible restart
		STY	|irq_P	;Save for break printout/'R'esume
		STY	STATUS	;Save for old break users
		LDA	2,S	;Recall PCL/PCH
		STA	|irq_PC	;Save for break printout/'R'esume
		STA	PCL	;Save for old break users
		LDY	#$00	;Anticipate bank 00 is break bank
		LDA	|irq_DB+1	;Bit 0=1 if emulation mode break
		LSR	A	;Bit 0 to 'c'
		BCS	@3	;
		LDA	4,S	;Recall break bank
		TAY		;Move to 8 bit 'Y' to save bank number
@3		EQU	*
		STY	|irq_K	;Save for break printout/'R'esume

@4		EQU	*

***********************************************
*
* Now fix the stack pointer
*
***********************************************
		TSC
		STA	|irq_S	;Save the stack pointer
		SEP	#M8+X8	;8 bit land
		LONGA	OFF
		XBA		;A = stack hi
		EOR	#1	;Page 1?
		BNE	@5	;
		LDX	rdaltzp	;Alternate stack? (do NOT change 'v')
		BPL	@6
		XBA		;
		STA	>ALEMSTKPTR	;Save the alternate stack pointer
@5		EQU	*
		LDA	#$01	;
		XBA		;
		LDA	>MNEMSTKPTR	;Get main stack pointer
		TCS		;Into the stack with it

***********************************************
*
* Now set the state register to the standard state
*
***********************************************
@6		EQU	*
		LDA	statereg
		STA	|irq_state	;Save the current value
		LDX	rd80col	;If 80store, get page 1 (leave 'v' alone)
		BPL	@7
		AND	#$BF
@7		EQU	*
		AND	#$40	;
		ORA	#$08	;Enable ROM
		STA	STATEREG

*
* At this point we have
* A,X,Y,DB saved
* State, shadow and CYA registers saved
* Standard state and fast speed set
* V = 1 if Break
*

		LDA	>$000000+mslot	;Get mslot
		STA	|irq_mslot	;Push on stack?
		BVC	@8	;'v'=0 then test for internal interrupt
		STZ	|IRQ_SECFLAG	;Be sure it's 0
		JMP	irqbrk1	;If BRK, skip internal irq handlers



***********************************************
*
* Built in interrupt handlers should be put here
* All registers are 8 bits on entry to here
*
***********************************************


@8		EQU	*
		INC	|IRQ_ACTIVE	;<>0 then indicate irq's active
		LDA	|SCCSTAT	;=0 then not SCC irq
		BEQ	@9	;<>0 then it's an SCC problem
		STA	|IRQ_SECFLAG	;Causes multiple interrupts to be handled
		LDA	#$00	;Change data bank register to $00
		PHA		;
		PLB		; before quitting.
		JMP	IRQDONE1_1	;Exit with SCC interrupt processed

@9		EQU	*
		LDA	#$00	;Data bank register to 00
		PHA		;
		PLB		;
		LDA	VGCINT	;Test for scan line interrupt
		BPL	@22	;+ then not a VGC interrupt
		AND	#$22	;Bit 5=status - bit 1=enable
		LSR	A	;Shift bit 1 into carry
		LSR	A	;
		BCC	@22	;'c'=0 then not enabled
		BEQ	@22	;'z'=0 then not a scan line interrupt
		JSL	>IRQ_SCAN	;<>0 then try to service interrupt
		JMP	@77_6	;Exit this way

@22		EQU	*

* Save and restore Ensoniq state

		LDA	SOUNDCTL	;Save control state too
		AND	#$F0	;Strip off unstable nybble
		PHA		;
		REP	#$30	;Do this fast to save time
		LDA	SOUNDADRL	;
		PHA		;Save sound address in use
		SEP	#$30	;Back to normal monitor mode
		LDA	#$E0	;Oscillator Interrupt Register (OIR)
		STA	SOUNDADRL	;Set in address lo byte of sound glu
		LDA	SOUNDCTL	;What's current hi nybble?
		AND	#$90	;Enable reading Ensoniq DOC / Auto inc off
		ORA	>IRQ_VOLUME	;Or in volume nybble
		STA	SOUNDCTL	;
		LDA	SOUNDDATA	;False read to sound glu
		LDA	SOUNDDATA	;Reads OIR
		STA	>IRQ_SOUNDDATA	;Save for sound tools
		BMI	@33	;'-' then not sound interrupt
		JSL	>IRQ_SOUND	;'+' then it's a sound interrupt
		REP	#$30	;Do this fast to save time
		PLA		;Recall sound address in use
		STA	SOUNDADRL	;
		SEP	#$30	;Back to normal monitor mode
		PLA		;Recall sound control state
		ORA	>IRQ_VOLUME	;Or in volume nybble
		STA	SOUNDCTL	; and restore it.
		JMP	@77_6	;Exit this way

@33		EQU	*
		REP	#$30	;Do this fast to save time
		PLA		;Recall sound address in use
		STA	SOUNDADRL	;
		SEP	#$30	;Back to normal monitor mode
		PLA		;Recall sound control state
		ORA	>IRQ_VOLUME	;Or in volume nybble
		STA	SOUNDCTL	; and restore it.
		LDA	INTFLAG	;Get VBL/qtr sec int status
		AND	INTEN	;Only enabled active ints will be 1 now
		STA	>IRQ_INTFLAG	;
		AND	#$18	;Bit 4=1/4 sec int - -bit 3=VBL
		PHA		;Save for qtr sec testing later
		AND	#$08	;VBL status is bit 3
		BEQ	@33_2	;=0 then not a VBL interrupt
		JSL	>IRQ_VBL	;Go to routine to service VBL
		LDA	>IRQ_MOUSVBL	;Test if user gets VBLs
		BNE	@33_0	;<>= then mouse gets VBLs
		BCC	@33_2	;
		LDA	#$08	;Reset VBL interrupts if no one wants them
		TRB	INTEN	;
		STA	CLRVBLINT	;Arbitrarily turn off VBL int
		BRA	@33_2	;Skip setting flag

@33_0		EQU	*
		SEC		;Forces interrupt to user
		JSR	TSTSETFLG	;Set flag to guarantee VBL to user

@33_2		EQU	*
		LDA	KMSTATUS	;Save status for later testing
		STA	>IRQ_KMSTATUS	;
		ASL	A	;See if mousey type interrupt
		BPL	@44	;Mouse interrupts not enabled
		BCC	@44	;+ then mouse ints enabled but not active
		JSL	>IRQ_MOUSE	;Go try to do mouse interrupt
		CLV		;Mouse interrupt

		JSR	TSTSETFLG	;Check 'c' and maybe set flag
		BRA	@44_1	;Skip setting 'v'

@44		EQU	*
		SEP	#$40	;'v'=1 if not serviced or not mouse int
@44_1		EQU	*
		PLA		;Recall INTFLAG status
		BNE	@44_2	;<>= then try qtr sec int status flag
		BVC	@66_8	;'v'=0 then no more to test for
		BVS	@66	;Not VBL/qtr sec or mouse interrupt

@44_2		EQU	*
		AND	#$10	;Bit 4 is qtr sec int status flag
		BEQ	@66_8	;Not a qtr sec interrupt
		JSL	>IRQ_QTR	;Go to routine to service interrupt
		BRA	@66_6	;Exit this way

@66		EQU	*
		LDA	>IRQ_KMSTATUS	;Test for data register interrupts
		AND	#$30	;Bits 4,5 are status/enable
		ASL	A	;Bit 5 to 'c'/bit 4 to bit 7
		ASL	A	;
		ASL	A	;
		BPL	@55	;+ then not enabled
		BCC	@55	;'c'=0 then not data reg int

		LDA	DATAREG	;Pick up DATAREG for testing now and later
		STA	>IRQ_DATAREG	;Save for later
		BPL	@66_1	;Not response byte interrupt
		JSL	>IRQ_RESPONSE	;Go do interrupt if possible
		JSR	TSTSETFLG	;Check 'c' and maybe set flag

@66_1		EQU	*
		LDA	>IRQ_DATAREG	;Recall status byte
		AND	#$08	; and test for SRQ interrupt
		BEQ	@66_2	;=0 then not an SRQ
		JSL	>IRQ_SRQ	;Go do interrupt if possible
		JSR	TSTSETFLG	;Check 'c' and maybe set flag

@66_2		EQU	*
		LDA	>IRQ_DATAREG	;Recall status byte
		AND	#$20	; and test for desktop mgr interrupt
		BEQ	@66_3	;=0 then not an desktop mgr interrupt
		LDA	KEYMODREG	;Is Shift key pressed also ?
		ROR	A	;Rotate bit0 (shift) to 'c'
		BCC	@66_2_1	;BRA if not pressed with Shift key
		JSL	>TODESKMGR	;Else use private vector to jmp to
		BRA	@66_2_3	;Continue on  
@66_2_1		EQU	*
		JSL	>IRQ_DSKACC	;Go do interrupt if possible
@66_2_3		EQU	*
		JSR	TSTSETFLG	;Check 'c' and maybe set flag

@66_3		EQU	*
		LDA	>IRQ_DATAREG	;Recall status byte
		AND	#$50	; and test for flush buffer interrupt
		ASL	A	;Shift bit 6 to carry
		ASL	A	;
		BEQ	@66_4	;=0 then not flush buffer interrupt
		BCC	@66_2_2	;'c' clear then don't clear KBDSTRB
		STA	KBDSTRB	;Remove key in buffer
@66_2_2		EQU	*
		JSL	>IRQ_FLUSH	;Go do interrupt if possible

@66_4		EQU	*
		LDA	>IRQ_DATAREG	;Recall status byte
		CMP	#$40	; and test for keyboard micro interrupt
		BNE	@66_8	;= then abort interrupt
		JSL	>IRQ_MICRO	;Go do interrupt if possible
@66_6		EQU	*
		JSR	TSTSETFLG	;Check 'c' and maybe set flag
@66_8		EQU	*
		JMP	IRQDONE1_1	;See if we exit or go to OS int handler

@55		EQU	*
		LDA	>IRQ_KMSTATUS	;Test for keyboard interrupt
		TAY		;Save for later
		AND	#$0C	;Bit 2= key int enable- bit3=key int
		LSR	A	;
		LSR	A	;
		LSR	A	;'c' = enable - 'z' = key int
		BCC	@77_0	;'c' = 0 key ints not enabled
		BEQ	@77_0	;Not a keyboard interrupt
		JSL	>IRQ_KBD	;Go do interrupt if possible
		BRA	@77_6	;Exit this way

@77_0		EQU	*
		LDA	VGCINT	;Test for 1 second interrupt
		BPL	@77	;+ then not a VGC interrupt
		AND	#$44	;Bit 6=status - bit2=enable
		ASL	A	;Shift status to 'c'
		ASL	A	;
		BEQ	@77	;=0 then 1 sec int not enabled
		BCC	@77	;'c'=0 then not a 1 second interrupt
		JSL	>IRQ_1SEC	;Go do interrupt if possible
		BRA	@77_6	;Exit this way

@77		EQU	*
		LDA	VGCINT	;Test for EXT interrupt from VGC
		BPL	@88	;+ then not a VGC interrupt
		AND	#$11	;Bit 4=status - Bit 0=enable
		LSR	A	;
		BCC	@88	;EXT interrupts not enabled
		BEQ	@88	;=0 then not EXT interrupt
		JSL	>IRQ_EXT	;Go do interrupt if possible
@77_6		EQU	*
		BCC	IRQDONE2	;Exit with interrupt serviced
		JMP	IRQBRK0	;Go to operating system to handle int

@88		EQU	*
		JSL	>DEFAULTSLT	;Let OS patches for set default slot

		JSL	>IRQ_OTHER	;Is special interrupt handler installed?
		BRA	@77_6	;Test 'c' flag
		EJECT
***********************************************
*
* irqdone1 - This restores the machine after a user's interrupt
* Assumes entry in emulation mode from user's interrupt
* Sets native mode, fast speed, DB=$E1
* Restores mslot, D
*
***********************************************

	; SEG $FF
IRQDONE1		EQU	*
	; SEG $00

		PLA		;Pull RTL opcode from stack
IRQDONE1_2	EQU	*
		CLC		;Back to native mode
		XCE
		JSL	>RESTORSLT	;Restore system slots assignment after user's int
		LDA	>IRQ_SECFLAG	;Are we really done?
		ASL	A	;Remove 1 status bit
		STA	>IRQ_SECFLAG	;Resave status byte
		BNE	IRQBRK0	;Back through operating system if <>0

@1		EQU	*
		LDA	#$80	;Back to fast mode
		TSB	cyareg
		LDA	>irq_mslot	;Get mslot
		STA	mslot	;Assumes data bank reg is $00 on entry
		REP	#X8
		XBA		;A = Cnxx
		LDA	#$00	;A = Cn00
		TAX
		BIT	CLRROM	;Deselect all C800s
		LDA	|0000,x	;Access Cn00 to enable C800 space
		SEP	#X8	;Restore 'x' to 8 bit mode



***********************************************
*
* irqdone2 - Fixes machine after internal interrupt
* restores stack, data bank, Y, X ,A & E bit
* and state, shadow & cya registers
* Assumes 8 bit 'm' and 'x'
*
***********************************************

IRQDONE2		EQU	*
		LDA	#$E1	;Data bank register back to E1
		PHA		;
		PLB		;
		LDA	LCBANK1	;Write enable language card
		LDA	LCBANK1	;Write enable language card
		LDA	|irq_state	;Fix the state reg
		STA	STATEREG	;
		DEC	|IRQ_ACTIVE	;Indicate irq's no longer active
		REP	#M8+X8	;Go to 16 bit land
		STZ	|IRQ_INTFLAG	;Zero out 2 bytes
		LDA	|irq_S	;And now the stack
		TCS
		LDA	|irq_db	;Data bank and E bit
		PHA

IRQDONE4		EQU	*
		LDA	|irq_D	;Restore ZP
		TCD
		LDY	|irq_Y
		LDX	|irq_X
		LDA	|irq_shadow	;SHADOW and CYA
		STA	SHADOW

		SEP	#$20	;8 bit 'm'
		LDA	|irq_emulstkptr	;Restore emulation stk ptr
		STA	>alemstkptr	;

		JSR	SETTEXT2REG	;Add in for protection
		REP	#$20	;Back to 16 bit 'm'
		LDA	|irq_A	;A reg

		PLB		;Data bank
		PLP		;'c' = 'e' bit
		BCS	@1	;Br if emulation
		RTI		;Bye bye
@1		EQU	*	;Must rti from bank 0
		XCE		;Switch to emulation mode first
		JMP	>RTI~Bnk00	;Must rti from bank 0


TSTSETFLG		EQU	*
		BCC	@1	;No flag change if 'c'=0
		LDA	>IRQ_SECFLAG	; else set a bit
		ROR	A	;Move 'c' to bit 7 of IRQ_SECFLAG
		STA	>IRQ_SECFLAG	;
@1		EQU	*
		RTS		;





***********************************************
*
* Not an internal interrupt
* Save D and mslot
* Set D=0 DB=0 and slow speed
* and call user's handler
*
***********************************************

IRQDONE1_1	EQU	*
		LDA	>IRQ_SECFLAG	;Go to operating sys int handler
		BNE	IRQBRK0	;If <>0, then not yet done
		JMP	IRQDONE1_2	; else end it and exit
IRQBRK0		EQU	*
		CLV		;'v'=0 to indicate it's an int not break
IRQBRK1		EQU	*
		LDA	#$00	;Change data bank
		PHA		;Set data bank to 0
		PLB




* Added for protection

		LDA	statereg
		LDX	rd80col	;If 80store, get page 1 (leave 'v' alone)
		BPL	@1	;
		AND	#$BF
@1		EQU	*
		AND	#$40	;
		ORA	#$08	;Enable ROM
		STA	STATEREG




		LDA	#$80
		TRB	cyareg	;Slow speed
		BVC	@3	;'v'=0 then it's not a BRK
		JSL	>BREAKVECTOR	;If it's a BRK see if something to do
		BCC	IRQDONE1_1	;

@2		EQU	*
		SEP	#$40	;Indicate BRK occurred

@3		EQU	*
		REP	#$20	;16 bit 'A' register needed
		TSC		;Save stack pointer
		LDX	#$6B	;'RTL' opcode
		PHX		;Put instruction on stack
		PHK		;Put bank number of return addr on stack
		PEA	|IRQDONE1-1	;Push return address on stack
		PHA		;Push RTI return address on stack
		SEC		;Into emulation mode
		XCE		;
		SEP	#$20	;8 bit 'm'
		LDA	#$04	;Disable interrupt's for user's RTI
		PHA		;
		BVS	@5	;Branch if break
		JMP	>GOIRQ~Bnk00	;Off to the user's handler

@5		EQU	*
		LDA	>irq_A	;Move Accumulator
		STA	ACC	;
		LDA	>irq_X	;Move 'X'
		STA	XREG	;
		LDA	>irq_Y	;Move 'Y'
		STA	YREG	;
		LDA	>irq_S	;Move stack pointer
		STA	SPNT	;
		SEC		;Into emulation mode
		XCE		;
		JMP	>GOBRK~Bnk00	;Go do a break
		
		FillTo	$C06E
TOROMDSKACC	EQU	*
		JMP	TSTMONDSKACC
		
		
		TITLE	'15 Byte Interrupt ROM Code'

******************************************************
*                                                    *
*         15 byte interrupt ROM code routines        *
*                                                    *
*                         by                         *
*                    Fern Bachman                    *
*                    Rich Williams                   *
*                                                    *
*       Copyright Apple Computer, Inc. 1985-1987     *
*                All Rights Reserved.                *
*                                                    *
******************************************************

TONBREAK		EQU	*	;Native mode breaks vector here
RTI~Bnk00		EQU	*+1-Rel~Org+Bnk~Org	;RTI ($40) in C07x space
		SEP	#$40	;Set 'v' to indicate from here
		OPCODE	BVC

TONIRQ		EQU	*
TOEBRKIRQ		EQU	*
		CLV		;Indicate from here
		JMP	>INTMGRV	;Enter interrupt handler

TONABORT		EQU	*
TOEABORT		EQU	*
		SEC		;'c'=1 if it's abort
		OPCODE	BCC
TONCOP		EQU	*
TOECOP		EQU	*
		CLC		;'c'=0 if it's COP
		JMP	>CPABRTDISP	;Go to COP/ABORT dispatcher

		TITLE	'Print Routine + New Cmds Table'

;	This EdAsm/Asm816 source code file was converted to AsmIIGS
;	by EdAsmCvtIIGS version 1.2d5 on 5/9/91 at 7:22:19 PM


******************************************************
*                                                    *
*           Firmware Print Messages Routines         *
*                                                    *
*                         by                         *
*                    Fern Bachman                    *
*                                                    *
*       Copyright Apple Computer, Inc. 1985-1987     *
*                All Rights Reserved.                *
*                                                    *
******************************************************


* PRINTMSG and PRINTMSG2 are used by the monitor,
* control panel program, disk routines, and via
* hooks the user.
*
* PRINTMSG takes the 8 bit value in the accumulator
*          shifts it left by 2 and uses it as an index
*          into a messages table of DW's defined by
*          MSGPOINTER.
*
* LPRINTMSG takes the 16 bit value in the accumulator
*          shifts it left by 2 and uses it as an index
*          into a messages table of DW's defined by
*          MSGPOINTER.
*
* Both print entry points handle data the same way.
*
* If the 1st byte of ASCII is + (Hi bit=0) then
*        the print routines print until an ASCII
*        byte with the hi bit - (Hi bit=1) is
*        detected.  That ASCII character is printed
*        as the last character in the message.
*
* If the 1st byte of ASCII is $00 then the print
*        routines increment to the next character
*        and prints until $00 is found.  This allows
*        strings which begin with MouseText characters
*        to be printed.  The $00 is NOT printed.
*
* If the 1st byte of ASCII is <$20 then the print
*        routines will take that number as a repeat count
*        and repeat the next character that many times.
*        It will then increment to the next character
*        and print until $00 is found.  This allows
*        strings which begin with repeated characters
*        to be printed.  The $00 is NOT printed.
*
* Repeat characters are handled as follows:
*   If LDA [PRINTTMP] = <$20 then the following is true.
*      The byte is the repeat indicator / number of times to repeat.
*      The byte after that is the repeat character.
*      The repeat character/number of times to repeat
*         indicator can appear anywhere in the string.
*      The maximum repeat count is $1F (31 decimal).
*
* The message length limit is 65535 characters!!!!
*
* PRINTTMP(+0 +1 +2) then locations used in
*       zero page are saved and restored.

PRINTMSG		EQU	*
		REP	#$30	;Off to 16 bit land
		LONGA	ON
		AND	#$00FF	;High byte must be 0

		LONGA	OFF
PRINTMSG2		EQU	*	;Extended print message entry point
		LDY	PRINTTMP+0	;Save zero page used on stack
		PHY		;
		LDY	PRINTTMP+2	;Make room for bank num too!
		PHY		;
		ASL	A	;Shift through all 16 bits
		TAY		;Transfer 16 bit 'A' to 'Y'
		LDA	>MSGPOINTER	;Set up pointer to msg tbl in zero page
		STA	PRINTTMP+0	;
		LDA	>MSGPOINTER+1	;Hi byte and bank of pointer address
		STA	PRINTTMP+1	;
		LDA	[PRINTTMP],Y	;Set up pointer in zero page
		STA	PRINTTMP+0	;Bank num assumed to be same as pointer's 

		SEP	#$70	;8 bits+anticipate DCI or MouseText string
@2		EQU	*
		LDA	[PRINTTMP]	;First byte - then normal 
		BEQ	@5_4	;=0 then printing MouseText string
		CMP	#INVSPACE	;<$20 then it's a repeat count
		BCC	@11	;'c'=0 then it's a repeat count
		CLV		;Clear 'v' if mixed ASCII/MouseText
@4		EQU	*
		LDA	[PRINTTMP]	;Get a message character
		BEQ	@7	;0 is terminator
		CMP	#INVSPACE	;<$20 then it's a repeat count
		BCC	@11	;'c'=0 then it's a repeat count
		BVS	@5	;'v'=1 then last byte is 0 (DCI/MouseText)
		BMI	@6	;'v'=0 then last byte is -
		ORA	#$80	;Set hi bit to 1
@5		EQU	*
		PHP		;Must save 'v' 
		JSR	COUTFF	;Print to screen
		PLP		;Must restore 'v'
@5_4		EQU	*
		INC	PRINTTMP	;Inc to next character
		BNE	@4	;If not 0 print more
		INC	PRINTTMP+1	;Inc hi byte if here
		BRA	@4	;Always go back for more

@6		EQU	*	;Exit routine
		JSR	COUTFF	;Output last character
@7		EQU	*	;Exit routine
		REP	#$30	;16 bit land to save time
		PLA		;Restore zero page used
		STA	PRINTTMP+2	;
		PLA		;
		STA	PRINTTMP+0	;
		SEP	#$30	;8 bit land a must for monitor
		RTS		;Back to caller


* Repeat characters is handled as follows:
*   If LDA [PRINTTMP] = <$20 then the following is true.
*      The byte is the repeat indicator / number of times to repeat.
*      The byte after that is the repeat character.

@11		EQU	*
		TAY		;Move to index as counter
		INC	PRINTTMP	;Inc to next character
		BNE	@112	;If not 0 then let hi byte alone
		INC	PRINTTMP+1	;Inc hi byte if here
@112		EQU	*
		LDA	[PRINTTMP]	;Get repeat character
		PHY		;Save 'Y' around print
		BVS	@114	;'v'=1 then do not modify character
		ORA	#$80	; else set hi bit.
@114		EQU	*
		PHP		;Preserve 'v' status
		JSR	COUTFF	;Print character
		PLP		;Restore 'v' status
		PLY		;Recall counter
		DEY		;
		BNE	@112	;Loop til done repeating
		BRA	@5_4	;Continue normal printing


	; SEG $FF
NEWCMDSTBL	EQU	*
	; SEG $00
		DC.B	'A'	;'A' location change entry
		DC.B	'X'	;'X' location change entry
		DC.B	'Y'	;'Y' location change entry
		DC.B	'S'	;'S' location change entry
		DC.B	'D'	;'D' location change entry
		DC.B	'P'	;'P' location change entry
		DC.B	'B'	;'B' location change entry
		DC.B	'K'	;'K' location change entry
		DC.B	'M'	;'M' location change entry
		DC.B	'Q'	;'Q' Location change entry
		DC.B	'L'	;'L' location change entry
		DC.B	'm'	;'m' location change entry
		DC.B	'x'	;'x' location change entry
		DC.B	'e'	;'e' location change entry
		DC.B	'd'	;'d' location change entry
		DC.B	'F'	;'F' location change entry

		DC.B	'V'	;'V' set video mode to resume w/
		DC.B	'T'	;Display current time command
		DC.B	$8D	;Convert hex input to ASCII
NEWCMDLEN		EQU	*-NEWCMDSTBL


		DCB.B	3,0	;pad up to $C100

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSFirmware/Monitor/C3XXCODE.aii b/IIGS.601.SRC/GSFirmware/Monitor/C3XXCODE.aii
new file mode 100644
index 0000000..5a10428
--- /dev/null
+++ b/IIGS.601.SRC/GSFirmware/Monitor/C3XXCODE.aii
@@ -0,0 +1 @@
+		TITLE	'$C3xx Internal ROM Code'

;	This EdAsm/Asm816 source code file was converted to AsmIIGS
;	by EdAsmCvtIIGS version 1.2d5 on 5/9/91 at 9:27:10 PM

*********************************************
*                                           *
*          Apple //e Video Firmware         *
*                                           *
*         R. Auricchio      Aug 1981        *       
*         E. Beernink           1984        *
*         F. Bachman         1985-1987      *
*                                           *
*       Copyright Apple Computer, Inc.      *
*                  1981-1987                *
*            All Rights Reserved            *
*                                           *
*********************************************

**************************************************************
*                                                            *
* THIS IS THE $C3XX ROM SPACE:                               *
* Note:  This page must not be used by any routines          *
* called by the F8 ROM.  When it is referenced, it claims    *
* the C800 space (kicking out anyone who was using it).      *
* This also means that peripheral cards cannot use the       *
* AUXMOVE and XFER routines from their C800 space.           *
*                                                            *
**************************************************************

C300		EQU	*	;Maintained entry point $C300
		SEP	#$40	;set vflag (init) 
		BVS	BASICENT	;(ALWAYS TAKEN)
		NOP		;A filler is required here

* BASIC input entry point.  After a PR#3, this is the 
* address that is called to input each character.

BASICIN		EQU	*	;Maintained entry point $C305
		SEC
		OPCODE	BCC	;(NEVER TAKEN)

* BASIC output entry point.  After a PR#3, this is the
* address that is called to output each character.

BASICOUT		EQU	*	;Maintained entry point $C307
		CLC
		CLV		;CLEAR VFLAG (NOT INIT)
		BVC	BASICENT	;(ALWAYS TAKEN) 

* Pascal 1.1 Firmware Protocol table:

* This tables identifies this as an Apple //e 80 column
* card.  It points to the four routines available to 
* programs doing I/O using the Pascal 1.1 Firmware 
* Protocol.

* The next 6 entry points are maintained entry points
		DC.B	$01	;GENERIC SIGNATURE BYTE
		DC.B	$88	;DEVICE SIGNATURE BYTE

		DC.B	JPINIT	;PASCAL INIT
		DC.B	JPREAD	;PASCAL READ
		DC.B	JPWRITE	;PASCAL WRITE
		DC.B	JPSTAT	;PASCAL STATUS

* 128K SUPPORT ROUTINE ENTRIES:

* Maintained entry point $C311
		JMP	MOVEC	;MEMORY MOVE ACROSS BANKS 
* Maintained entry point $C314

****************************************
* NAME    : XFER
* FUNCTION: TRANSFER CONTROL CROSSBANK
* INPUT   : $03ED=TRANSFER ADDR
*         : CARRY SET=XFER TO CARD
*                 CLR=XFER TO MAIN
*         : VFLAG CLR=USE STD ZP/STK
*         :       SET=USE ALT ZP/STK
* OUTPUT  : NONE
* VOLATILE: $03ED/03EE IN DEST BANK 
* CALLS   : NOTHING
* NOTE    : ENTERED VIA JMP, NOT JSR
****************************************

XFER		EQU	*
		XBA		;Preserve entry 'A'
		LDA	$3ED	;What's addr to execute at in other bank
		PHA		;Save for later
		LDA	$3EE	;
		PHA		;
		LDA	#$30	;Arbitrarily set read/write alt RAM
		TSB	STATEREG	;
		BCS	@2	;'c'=1 then stay in alternate memory
		TRB	STATEREG	;'c'=0 then set read/write main RAM
@2		EQU	*
		PLA		;Recall execution address for other bank
		STA	$3EE	;
		PLA		;
		STA	$3ED	;
		XBA		;Restore entry 'A'
		STA	SETSTDZP	;Arbitrarily set std zeropage/lang card
		BVC	@4	;'v'=0 then stay in main zp/lang card
		STA	SETALTZP	; else change to alternate zp/lang card
@4		EQU	*
		JMP	($3ED)	;Go execute code in other bank


****************************************

BASICENT		STA	CHAR
		PHY		;Save registers
		PHX		;
		PHP		;SAVE CARRY & VFLAG

* If escape mode is allowed, the high bit of MSLOT is 
* clear.  Set M_CTL to flag that 1) escapes are allowed, and
* 2) that control characters should not be echoed.
* M_CTL is cleared by BPRINT.

		BIT	MSLOT	;get MSLOT
		BMI	@1	;=>Esc disable, ctl char enable
		LDA	#M_CTL
		TSB	MODE

@1		EQU	*
		JSR	SETC8	;SETUP C8 INDICATOR
		PLP		;GET VFLAG (INIT)
		BVS	JBASINIT	;=>DO THE INIT

* If a PR#0 has been done, input should be transferred
* from the video firmware to KEYIN.  This is detected
* if the high bit of the mode byte is set.

		BCC	@2	;=>output, no problem
		LDA	MODE	;test mode
		BPL	@2	;video firmware is on
		JSR	SETKEYIN	;else set FD1B as input
		PLX		;restore registers
		PLY
		LDA	CHAR
		JMP	(KSWL)	;go input the character

@2		JMP	C8BASIC	;GET OUT OF CN SPACE

JBASINIT		JMP	BASICINIT	;=>GOTO C8 SPACE

JPINIT		EQU	*
		JSR	SETC8	;SETUP C8 INDICATOR
		JMP	PINIT	;XFER TO PASCAL INIT

JPREAD		EQU	*
		JSR	SETC8	;SETUP C8 INDICATOR
		JMP	PASCALREAD	;XFER TO PASCAL READ

JPWRITE		EQU	*
		JSR	SETC8	;SETUP C8 INDICATOR
		JMP	PWRITE	;XFER TO PASCAL WRITE

JPSTAT		EQU	*
		JSR	SETC8	;Setup C8 indicator
		TAX		;is request code = 0?
		BEQ	@1	;=>yes, ready for output
		DEX		;check for any input
		BNE	PSTERR	;=>bad request, return error
		JSR	XBITKBD	;look for a key
		BPL	PNOTRDY	;=>no keystroked
@1		SEC
		RTS

PSTERR		LDX	#3	;else flag error
PNOTRDY		CLC
		RTS
		EJECT
****************************************
* NAME    : SETC8
* FUNCTION: SETUP IRQ $C800 PROTOCOL
* INPUT   : NONE
* OUTPUT  : NONE
* VOLATILE: NOTHING
* CALLS   : NOTHING
****************************************

SETC8		EQU	*
		LDX	#>C300	;SLOT NUMBER
		STX	MSLOT	;STUFF IT
		LDX	CLRROM	;kick out other $C8 ROMs
		RTS

****************************************
* NAME    : MOVEC
* FUNCTION: PERFORM CROSSBANK MEMORY MOVEC
* INPUT   : A1=SOURCE ADDRESS
*         : A2=SOURCE END
*         : A4=DESTINATION START
*         : CARRY SET=MAIN-->CARD
*                 CLR=CARD-->MAIN
* OUTPUT  : A1=A2+1
*         : A4=A4+(A2-A1)+1
* VOLATILE: NOTHING
* CALLS   : NOTHING
****************************************

MOVEC		EQU	*
		PHB		;Save data bank register before moving
		PHA		;Save A
		PHY		;Save Y
		PHX		;Save X
		LDA	STATEREG	;Save user memory configuration
		PHA		;
		AND	#$CF	;Must enable read/write main memory
		STA	STATEREG	;
		LDA	CYAREG	;Go to hi speed after saving current speed
		PHA		;
		ORA	#$80	;Set hi bit
		STA	CYAREG	;
		PHP		;Save C for a little while
		PHP		;Save C for a little while
		CLC		;Switch modes
		XCE		;Off to native land
		REP	#$30	;Off to 16 bit land
		SEC		;Calculate length to move
		LDA	A2L	;Src ending addr minus src starting addr
		PHA		;Save for later
		SBC	A1L	; leaves source data length in 'A'
		PHA		;Save length of move for later
		LDA	5,S	;Get back 'c'
		ROR	A	;Set carry as it was before
		LDA	1,S	;Get subtraction result back
		LDX	A1L	;Source address
		LDY	A4L	;Destination address
		BCC	@1	;C=0 then aux to main
		MVN	$000000,$010000	;Move bank 00 data to bank 01
		BRA	@2	;

@1		EQU	*
		MVN	$010000,$000000	;Move bank 01 to bank 00
@2		EQU	*
		PLA		;Fix A4 for those who need A4=A4+(A2-A1)+1
		SEC		;Cause +1 to be added
		ADC	A4L	;
		STA	A4L	;A4=(A2-A1)+1
		PLA		;Fix A1 for those who need on A1=A2+1
		INC	A	;+1
		STA	A1L	;A1=A2+1
		PLA		;Clean entry status off stack
		SEP	#$30	;PUT SEC/XCE BELOW HERE WHEN MEGA// FIXED
		PLA		;Restore system speed
		STA	CYAREG	;
		PLA		;Restore user memory configuration
		STA	STATEREG	;
		SEC		;Back to emulation mode to exit
		XCE		;
		PLX		;Restore X
		PLY		;Restore Y
		PLA		;Restore A
		PLB		;MUST restore data bank reg after moving
		RTS		;Back to caller

FIXCURSHIFTER	EQU	*	;Reset CURSHIFTER
		LDA	>USERFLASH	;
		EOR	#$07	;Flip lower 3 bits
		SEC		;Subtract 3
		SBC	#$03	;
		ASL	A	;Now times 2
		INC	A	;Now add 1
		STA	>CURSHIFTER	;Save for later
		RTS		;Back to caller


	; SEG $FF
ESCIN		EQU	*
		DC.B	$88,$95,$8A,$8B,$86,$82
	; SEG $00


\ No newline at end of file
diff --git a/IIGS.601.SRC/GSFirmware/Monitor/C4XXCODE.aii b/IIGS.601.SRC/GSFirmware/Monitor/C4XXCODE.aii
new file mode 100644
index 0000000..0bcb48c
--- /dev/null
+++ b/IIGS.601.SRC/GSFirmware/Monitor/C4XXCODE.aii
@@ -0,0 +1 @@
+		TITLE	'Phoenix Mouse $Cn00 Space.'

;	This EdAsm/Asm816 source code file was converted to AsmIIGS
;	by EdAsmCvtIIGS version 1.2d5 on 5/9/91 at 9:29:34 PM

********************************************************
*                                                      *
*                    Phoenix  Mouse                    *
*                                                      *
*                      $C400 Space                     *
*                                                      *
*                          by                          *
*                     Fern Bachman                     *
*                     Joe  Bo                          *
*                                                      *
*      Copyright  1984-1989 by Apple Computer, Inc.    *
*                 All Rights Reserved                  *
*                                                      *
********************************************************


* The slot 4 and related bank $ff mouse firmware have been 
* changed so that it calls mouse tools (in miscellaneous tools)
* to set or get the necessary information.
* To use slot 4 as an entry (most P8 applications), select slot 4
* to be Mouse Port in the control panel.
* For new gs applications, it is not necessary to set slot 4 as
* Mouse Port and therefore can free up a slot for 'Your Card'.
* For slot 4 mouse firmware and mouse tools to work properly, 
* separate mouse parameters location have been defined in slot 4
* screen holes and bank $e1.  When slot 4 mouse firmware gets called
* then the related screen holes parameters would show up also in 
* the bank $e1 mouse locations but not vice versa.  Slot 4 and 
* bank $ff mouse firmware relies on mouse tools.
* 
* Mouse parameters:
*  Descriptions                 slot 4       bank $e1
*------------------------------------------------------------
* Low byte of abs X             $047c        $e10190
* Low byte of abs Y             $04fc        $e10191
* High byte of abs X            $057c        $e10192
* High byte of abs Y            $05fc        $e10193
* Info, bits 6, 7 for Y clamps  $067c        $e10194
* Spare, reserved as a temp     $06fc        $e10195
* Button                        $077c        $e10196
* Mousmode                      $07fc        $e10197
*   


* BASICSTART EQU *
		BRA	OENTBAS	;Branch always
		DC.B	$C6,$C1,$C2	;
IENTBAS		EQU	*	;Basic input entry point
		SEC		;Must=$38 for IN# in Basic
		OPCODE	BCC	;Causes skip over CLC instruction
OENTBAS		EQU	*	;Basic output entry point
		CLC		;Must=$18 for PR# in Basic
		BRA	@1	;Go to basic entry point 
		NOP		;Required filler
		DC.B	$01	;PASCAL generic sig byte
		DC.B	$20	;Dev sig//Apple tech supp id
		DC.B	PERROR	;Offset to PASCAL PINIT
		DC.B	PERROR	;Offset to PASCAL PREAD
		DC.B	PERROR	;Offset to PASCAL PWRITE
		DC.B	PERROR	;Offset to PASCAL PSTATUS
		DC.B	00	;Must be 00
		DC.B	TSETMOUSE	;Offset to SETMOUSE
		DC.B	SERVEMOUSE	;Offset to SERVEMOUSE
		DC.B	TREADMOUSE	;Offset to TREADMOUSE
		DC.B	CLEARMOUSE	;Offset to CLEARMOUSE 
		DC.B	POSMOUSE	;Offset to POSMOUSE
		DC.B	TCLAMPMOUSE	;Offset to TCLAMPMOUSE 
		DC.B	THOMEMOUSE	;Offset to THOMEMOUSE
		DC.B	TINITMOUSE	;Offset to TINITMOUSE
		DC.B	CLRCRTS	;Dummy offset to DIAGMOUSE
		DC.B	CLRCRTS	;Dummy offset to COPYRIGHT
		DC.B	CLRCRTS	;Dummy offset to TIMEDATA
		DC.B	CLRCRTS	;Dummy offset to SETVBLCNTS
		DC.B	CLRCRTS	;Dummy offset to OPTMOUSE
		DC.B	CLRCRTS	;Dummy offset to STARTTIMER

@1		EQU	*
		PHY		;Save Y on stack
		TXY		;Save 'X' value in 'Y' register
		LDX	#$06	;Indicate which mouse routine to do
		JSR	GODOMOUSE	;Go do the mouse routine requested
		PLY		;Restore former Y
		RTS		;Back to BASIC

SERVEMOUSE	EQU	*	;User entry point - SERVEMOUSE 
		LDA	#$0E	;Reset bits 1,2,3
		TRB	BUTTON	;Causes reset of bits 1,2,3
		LDA	>IRQ_INTFLAG	;Test VBL enabled/active status flag
		TAY		;Save temporarily
		AND	#$08	;Bit 3 = status
		BEQ	@1	;Not VBL int then don't reset it
		STA	CLRVBLINT	;Disable VBL interrupt
		TYA		;Reset VBL interrupt status bit
		AND	#$F7	;Clears bit
		STA	>IRQ_INTFLAG	;Save status
		LDA	#$08	;Bit to set in BUTTON
@1		EQU	*
		TAY		;Save status
		TSB	BUTTON	;Set VBL bit if active
		BIT	KMSTATUS	;Check for mouse info
		BVC	@2	;Mouse interrupts not enabled
		BPL	@2	;Interrupts enabled but mouse didn't int
		LDA	#$E	;What's interrupt status?
		TAY		;Set 'Y' non-zero
		TSB	BUTTON	;Combine in with button status

@2		EQU	*
		LDA	BUTTON	;Get mouse button status from screen holes
		STA	MSESTAT	;Update related location in bank $e1
		TYA		;Test if mousey interrupt or not
		BEQ	PERROR2	;'c'=1 exit for not mousey type interrupt
		CLC		;<> 0 so RTS with C=0
		RTS		;Back to caller

TSETMOUSE		EQU	*	;Mode is in A upon entry 
		CMP	#$10	;If $10 or > then error
		BCS	PERROR2	;Set carry for error exit
		LDX	#$0A	;Indicate which mouse routine to do
		JSR	GODOMOUSE	;
		LDA	>MSEMODE	;Get from bank $e1 mouse mode byte
		STA	MOUSMODE	; and update the screen hole also
		CLC		;Must exit w/ carry clear
		RTS

* PASCAL PREAD, PWRITE, PSTATUS, PINIT are not
* supportted by the mouse except to generate
* an error for the PASCAL programmer.

PERROR		EQU	*
		LDX	#$03	;Bad mode : illegal operation
PERROR2		EQU	*
		SEC		;Must set C before exiting
		RTS		;Back to caller

TINITMOUSE	EQU	*	;User entry point - INITMOUSE 
		LDX	#$00	;Indicate which mouse routine to do
		JSR	GODOMOUSE	;

CLEARMOUSE	EQU	*	;User entry point - CLEARMOUSE
		STZ	HI	;Clear screen holes
		STZ	LO	;
		STZ	HI+$80	;
		STZ	LO+$80	;
		STZ	BUTTON	;
		LDX	#$03	;Also clear related bank $e1 mouse stuff
		LDA	#$00	;
@1		EQU	*
		STA	>LowAbsx,X	;
		DEX		;
		BPL	@1	;Loop till done
		STA	>MseStat	;Clear mouse status byte also

POSMOUSE		EQU	*	;User entry point - POSMOUSE
		PHP		;No interrupts in GETMDATA
		SEI		;
		JSR	GETMDATA	;Reset KeyGlu mouse information
		PLP		;Restore interrupt status
CLRCRTS		EQU	*
		CLC		;Must exit with carry clear
		RTS		;Back to caller


TCLAMPMOUSE	EQU	*	;User entry point - CLAMPMOUSE
		LDX	#$02	;Indicate which mouse routine to do
		JSR	GODOMOUSE	;

TREADMOUSE	EQU	*	;User entry point - READMOUSE 
		LDX	#$04	;Indicate which mouse routine to do

GODOMOUSE		EQU	*
		PHP		;Must save c/v statuses
		CLC		;Off to native mode
		XCE		;
		PLP		;Restore c/v statuses
		XBA		;Don't alter 'A'
		LDA	CYAREG	;What's current speed?
		PHA		;Save for later restoring
		ORA	#$80	;Let's do hi speed
		STA	CYAREG	;
		XBA		;Don't forget to restore 'A' value
		JSL	>MOUSE_DISPATCHER	;Off to bank FF
		PHP		;Save c status
		SEC		;Back to emulation mode
		XCE		;
		PLP		;Restore c status
		XBA		;Don't loose 'A'
		PLA		;Recall user entry speed
		STA	CYAREG	; and restore it.
		XBA		;Got back 'A'
		RTS		;Back to caller of this subroutine


*
* GETMDATA returns three things
*
*   If C=0 then the following is true
*      X = X / butn1 information
*          bit 7= butn 1 status
*          bit 6= sign of delta
*          bits 0-5 = actual X delta movement if any
*      Y = Y / butn0 information
*          bit 7= butn 0 status
*          bit 6= sign of delta
*          bits 0-5 = actual Y delta movement if any
*
*   If C=0 then the following is true
*      Data was either unavailable or contaminated
*
*  In either case, GETMDATA returns with the
*  X/Y information register =MOUSEDATA clear and in
*  its proper state to receive more information.

GETMDATA		EQU	*
		LDA	KMSTATUS	;Test if data available
		BPL	PERROR2	;If + then no data available
		ROR	A	;Clr C if data NOT contaminated
		ROR	A	;Bit 1 has info
		LDA	MOUSEDATA	;Bit 7=butn1\bit6=direction\bits0-5=delta
		TAX		;
		BCS	PERROR2	;C=1 if data is contaminated
		LDA	KMSTATUS	;Verify hardware has Y data ready
		AND	#$02	;'z'=0 if data available
		BEQ	PERROR2	;'z'=1 then somethings wrong
		LDA	MOUSEDATA	;Bit 7=butn0\bit6=direction\bits0-5=delta
		TAY		;
		CLC		;Must exit with carry clear
		RTS		;Back to caller


THOMEMOUSE	EQU	*	;User entry point - THOMEMOUSE
		LDX	#$08	;'X'=8 for home mouse
		JSR	GODOMOUSE	;Go to bank FF to execute home mouse
		BRA	POSMOUSE	;Exit via position mouse

	; SEG $FF
PRINTMSG8		EQU	*	;For external print capability
	; SEG $00
		JSR	PRINTMSG	;Print message normally
		RTL		;Back to external caller

	; SEG $FF
PRINTMSG16	EQU	*	;For external print capability
	; SEG $00
		JSR	PRINTMSG2	;Print message normally
		RTL		;Back to external caller


		FillTo	$C4FB	;Fill with $00 

		DC.B	$D6,$C6,$C1,$C2	;2nd sig byte at $CnFB 

* VERSIONNUMBER EQU *
		DC.B	$01	;2nd release version#=01

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSFirmware/Monitor/COPYRIGHT.VCTRS.aii b/IIGS.601.SRC/GSFirmware/Monitor/COPYRIGHT.VCTRS.aii
new file mode 100644
index 0000000..03b596d
--- /dev/null
+++ b/IIGS.601.SRC/GSFirmware/Monitor/COPYRIGHT.VCTRS.aii
@@ -0,0 +1 @@
+		TITLE	'Miscellaneous Tables/Messages'

;	This EdAsm/Asm816 source code file was converted to AsmIIGS
;	by EdAsmCvtIIGS version 1.2d5 on 5/9/91 at 5:7:41 PM

******************************************************
*                                                    *
*              Copyright Notices + Etc.              *
*                                                    *
*                    by                              *
*               Fern Bachman     1985-1987           *
*               Joe Bo           1987-1989           *
*                                                    *
*       Copyright Apple Computer, Inc. 1985-1989     *
*                All Rights Reserved.                *
*                                                    *
******************************************************


* Apple Computer, Inc. copyright notice.
*
* Pointers to SPLASHx appear in CP.TABLES1 and CP.TABLES2.
* Those files MUST be updated if new lines are added.

SPLASH1		EQU	*
		DC.B	15,SPACE	;Centers line

NEWTITLE		EQU	*
		DC.B	'Twain ->01'
*** Restore this later as needed	DC.B	'Apple IIgs'

NEWTITLELEN	EQU	*-NEWTITLE	;Length of title
CNEWTITLE		EQU	NEWTITLELEN/2	;Needed for centering
		DC.B	TERMINATOR

SPLASH2		EQU	*
		DCI	'Copyright Apple Computer, Inc. 1977-1991'

SPLASH3		EQU	*	;Spare position
		DC.B	13,SPACE	;Do not show this line
		DC.B	'Under struct''n'
		DC.B	TERMINATOR

SPLASH4		EQU	*	;Spare position
		DC.B	13,SPACE	;Do not show this line
		DC.B	'by John Arkley'
		DC.B	TERMINATOR

SPLASH5		EQU	*
		DC.B	10,SPACE	;Centers line
		DC.B	'All Rights Reserved.'
		DC.B	TERMINATOR

SPLASH6		EQU	*
		DC.B	13,SPACE	;Centers line
		DC.B	'ROM Version '
		DC.B	TERMINATOR


SPLASHVERT	EQU	*	;Vertical position of splash screen msgs
		DC.B	$00	;'Apple IIgs' vertical position
		DC.B	$13	;'Copyright ...' vertical position
		DC.B	$15	;Spare vertical position
		DC.B	$16	;Spare vertical position
		DC.B	$14	;'All Rights...' vertical position
		DC.B	$17	;'ROM ...' vertical position
SPLASHCNT		EQU	*-SPLASHVERT	;Number of lines to display


SPLASH		EQU	*
		JSR	RAMVCTRS2	;Set up all E1 RAM vectors
		LDX	#$00	;Start with first line
@1		EQU	*
		REP	#$20	;
		LONGA	ON		;
		CLC		;Clear carry to add
		PHB		;Change data bank register to read data
		PHK		;
		PLB		;
		LDY	SPLASHVERT,X	;Get vertical screen postion in 'Y'
		PLB		;Restore data bank register
		TXA		;Create display message number
		ADC	#SPLASHMSG	;Add base number to offset
		PHX		;Preserve index around call
		PHA		;Save 'A' before switch to 8 bit 'm'
		SEP	#$30	;Call requires 8 bit mode
		JSR	FIXVTAB0X	;Position on 40/80 columns screen
		REP	#$30	;Must be 16 bit 'm'/'x' for next call
		PLA		;Recall 'A'
		JSR	PRINTMSG2	;Print line via 16 bit entry to PRINTMSG
		PLX		;Recall index
		INX		;Next message number
		CPX	#SPLASHCNT	;Stop when all lines are displayed
		BCC	@1	;Loop if not done
		SEP	#$30	;Back to monitor mode
		JSR	PR1BLNKFF	;Keep as centered as possible {MSA 4/13/89}
		LDA	REGIDY	;Get 8 bit version number
; 	JMP PRBYTEFF 	;added temporarily 6/7/91 JOA
		JMP	PRHEXFF	;Just a single digit {MSA 4/13/89}

APPLEIIGSMSG	EQU	*
		PHX		;Maintain compatibility from $00fb60 call
		LDX	#NEWTITLELEN	;Length of title
STITLE		EQU	*
		LDA	>NEWTITLE-1,X	;Get a character
		STA	>LINE1+19-CNEWTITLE,X	;Put it at top center of screen
		DEX
		BNE	STITLE
		PLX		;Restore 'X'
		RTS

		LONGA	OFF
		EJECT
	; SEG $FF
INTVTBL0		EQU	*
		DC.B	$5C	;Long jump
		DC.A	MEMMOVER	;Address of memory mover
		DC.B	$5C	;Long jump
		DC.A	SETSPEED	;Addr of set system speed
		DC.B	$5C	;Long jump
		DC.A	SLOTARBITER	;Address of slot arbiter
		DC.B	$5C	;Long jump
		DC.A	SERBASPATCH	;Address of serial code BASIC patch
		DC.B	$5C	;Long jump
		DC.A	SERPASPATCH	;Address of serial code PASCAL patch
		DC.B	$5C	;Long jump
		DC.A	SEREXTPATCH	;Address of serial code EXTERNAL patch
		DC.B	$5C	;Long jump
		DC.A	SECRTL	;Address of hardware independent int, not done !
		DC.B	$5C	;Long jump
		DC.A	SECRTL	;Address of IRQ_MIDI, default to SEC/RTL
* ;; Add new vectors here

INTVTBLEN0	EQU	*-INTVTBL0


INTVTBL1		EQU	*
		DC.B	$5C	;Long jump
		DC.A	INTHNDLR	;Address of interrupt handler
		DC.B	$5C	;Long jump
		DC.A	UCOPHNDLR	;Address of unknown COP handler
		DC.B	$5C	;Long jump
		DC.A	UABORTHNDLR	;Address of unknown abort handler
		DC.B	$5C	;Long jump
		DC.A	SYSDEATH	;Address of system death handler

INTVTBLLEN	EQU	*-INTVTBL1


INTVTBL2		EQU	*
		DC.B	$5C	;Long jump
		DC.A	WRITEBR	;Addr of write BATTERYRAM routine
		DC.B	$5C	;Long jump
		DC.A	READBR	;Addr of read BATTERYRAM routine
		DC.B	$5C	;Long jump
		DC.A	WRITETIME	;Addr of write time routine
		DC.B	$5C	;Long jump
		DC.A	READTIME	;Addr of read time routine
		DC.B	$5C	;Long jump
		DC.A	CTRL_PANEL	;Addr of Control Panel routine
		DC.B	$5C	;Long jump
		DC.A	USERSETUP	;Addr of rtne to setup user parameters
		DC.B	$5C	;Long jump
		DC.A	PRINTMSG8	;Addr of print msg rtn (8 bit) and RTL
		DC.B	$5C	;Long jump
		DC.A	PRINTMSG16	;Addr of print msg rtn (16 bit) and RTL
		DC.B	$5C	;Long jump
		DC.A	USR2~Bnk00	;Addr back to monitor from CTRL-Y rtne
		DC.B	$5C	;Long jump
		DC.A	TEXTPG2DA	;Addr back to text page 2 desk accessory

INTVTBLLEN2	EQU	*-INTVTBL2


		LONGA	OFF
		EJECT

	; SEG $00

		PRINT	PUSH
		PRINT	OFF

N2A		EQU	*
		DC.B	0,SPACE
		DC.B	'Project Management'
		DC.B	2,SPACE
		DC.B	'Hardware'
		DC.B	CRRETURN	;Next line
		DC.B	4,SPACE
		DC.B	'Josef Friedman'
		DC.B	6,SPACE
		DC.B	'Larry Thompson'
		DC.B	CRRETURN	;Next line
		DC.B	4,SPACE
		DC.B	'Fern Bachman,Jr.'
		DC.B	4,SPACE
		DC.B	'Dan Hillman'
		DC.B	CRRETURN	;Next line
		DC.B	4,SPACE
		DC.B	'Anne Bachtold'
		DC.B	7,SPACE
		DC.B	'Ray Jaafari'
		DC.B	CRRETURN	;Next line
		DC.B	4,SPACE
		DC.B	'Jane Jacobson'
		DC.B	7,SPACE
		DC.B	'Gary Knutson'
		DC.B	CRRETURN	;Next line
		DC.B	4,SPACE
		DC.B	'Harvey Lehtman'
		DC.B	6,SPACE
		DC.B	'John MacPhee'
		DC.B	CRRETURN	;Next line
		DC.B	4,SPACE
		DC.B	'D. Dresbach'
		DC.B	9,SPACE
		DC.B	'Rob Moore'
		DC.B	CRRETURN
		DC.B	4,SPACE
		DC.B	'L. Kurihara'
		DC.B	9,SPACE
		DC.B	'Jay Rickard'
		DC.B	CRRETURN	;Next line
		DC.B	24,SPACE
		DC.B	'Todd Rudin'
		DC.B	TERMINATOR
NLN		EQU	*-N2A

N1A		EQU	*
		DC.B	MOUSEIND	;Start from 1st column
		DC.B	'Firmware'
		DC.B	8,SPACE
		DC.B	'Tools'
		DC.B	8,SPACE
		DC.B	'Diagnostics'
		DC.B	SPACE	;Next line and space in one byte
		DC.B	'Michael Askins'
		DC.B	2,SPACE
		DC.B	'Steven Glass'
		DC.B	1,SPACE
		DC.B	'B.S. Soh'
		DC.B	CRRETURN,SPACE	;Next line and space in one byte
		DC.B	'Gus Andrade'
		DC.B	5,SPACE
		DC.B	'Eagle Berns'
		DC.B	2,SPACE
		DC.B	'Randy Carr'
;DFB CRRETURN,SPACE ;Next line and space in one byte
		DC.B	SPACE	;Next line and space in one byte
		DC.B	'John Arkley'
		DC.B	5,SPACE
		DC.B	'Art Cabral'
		DC.B	3,SPACE
		DC.B	'Karl Grabe'
		DC.B	SPACE	;Next line and space in one byte
		DC.B	'C.K. Bo (Joe)'
		DC.B	3,SPACE
		DC.B	'Matt Denman'
		DC.B	2,SPACE
		DC.B	'J Reynolds'
		DC.B	SPACE	;Next line and space in one byte
		DC.B	'Peter Baum'
		DC.B	6,SPACE
		DC.B	'Sue Dumont'
		DC.B	CRRETURN,SPACE	;Next line and space in one byte
		DC.B	'Rob Turner   '
		DC.B	3,SPACE
		DC.B	'Cheryl Ewy'
		DC.B	CRRETURN,SPACE	;next line and space in one byte
		DC.B	'Laura Drittler'
		DC.B	2,SPACE
		DC.B	'Dave Good'
		DC.B	CRRETURN,SPACE	;Next line and space in one byte 
		DC.B	'Tim Harrington'
		DC.B	2,SPACE
		DC.B	'Kenton Hanson'
		DC.B	CRRETURN,SPACE	;Next line and space in one byte
		DC.B	'Ed Lai'
		DC.B	10,SPACE
		DC.B	'Suki Lee'
		DC.B	CRRETURN,SPACE	;Next line and space in one byte
		DC.B	'Ray Montagne'
		DC.B	4,SPACE
		DC.B	'Clayton Lewis'
		DC.B	CRRETURN,SPACE	;Next line and space in one byte
		DC.B	'Peter Richert'
		DC.B	3,SPACE
		DC.B	'Bennet Marks'
		DC.B	CRRETURN,SPACE	;Next line and space in one byte
		DC.B	'Greg Seitz'
		DC.B	6,SPACE
		DC.B	'Andy Stadler  '
		DC.B	CRRETURN,SPACE	;Next line and space in one byte
		DC.B	'Rich Williams'
		DC.B	3,SPACE
		DC.B	'Mensch'
		DC.B	CRRETURN	;Next line 
		DC.B	17,SPACE
		DC.B	'Dan Oliver'
		DC.B	CRRETURN	;Next line 
		DC.B	17,SPACE
		DC.B	'Konstantin Othmer'
		DC.B	CRRETURN	;Next line 
		DC.B	17,SPACE
		DC.B	'Owen Rubin'
		DC.B	CRRETURN	;Next line
		DC.B	17,SPACE
		DC.B	'Harry Yee'
		DC.B	TERMINATOR


NLN2		EQU	*-N1A

		PRINT	POP
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSFirmware/Monitor/CP.EQUATES.aii b/IIGS.601.SRC/GSFirmware/Monitor/CP.EQUATES.aii
new file mode 100644
index 0000000..a40f24f
--- /dev/null
+++ b/IIGS.601.SRC/GSFirmware/Monitor/CP.EQUATES.aii
@@ -0,0 +1 @@
+		TITLE	'Control Panel Equates'

;	This EdAsm/Asm816 source code file was converted to AsmIIGS
;	by EdAsmCvtIIGS version 1.2d4 on 5/8/91 at 8:41:35 PM

******************************************************
*                                                    *
*       Equates for Control Panel Desk Accessory     *
*                                                    *
*                         by                         *
*                    Fern Bachman                    *
*                                                    *
*      Copyright Apple Computer, Inc. 1985-1987      *
*                All Rights Reserved.                *
*                                                    *
******************************************************


CP_ZPAGE		EQUSECT	$0

CURSCRN		EQUDS.B	1	;Current screen active
CURLINE		EQUDS.B	1	;Current line in active screen in use
NEWLINE		EQUDS.B	1	;Line user has moved to
CUROPTION		EQUDS.B	1	;Current option active in line in use
NUMLINES		EQUDS.B	1	;Number of lines+1 for active screen
NUMOPTS		EQUDS.B	1	;Number of options on current line

		EQUORG	CP_ZPAGE+$06	Pad to next monitor usage point
		EQUDS.A	1	;6-8 are used by print routine

ZINT		EQUDS.W	1	;Used in interrupt routine
ZINTSHBUF		EQUDS.B	16	;Save slot0/3 scrn holes here on interrupt

SHIFTER		EQUDS.L	1	;Used in shifting routines

STATBYTE		EQUDS.B	1	;Screen information status byte

		EQUORG	CP_ZPAGE+$50	Pad to next monitor usage point

TOTALSRAM		EQUDS.L	1	;Total RAM in system in bytes
TOTALFRAM		EQUDS.L	1	;Total free RAM in system in bytes
FREERAM		EQUDS.L	1	;Free RAM for RAMDISK in bytes
CURRENTRAM	EQUDS.L	1	;Current Ramdisk Size in bytes
PROGRAMRAM	EQUDS.L	1	;RAM Used for Program in bytes

ZMONTH		EQUDS.B	1	;Month on screen
ZDAY		EQUDS.B	1	;Day on screen
ZYEAR		EQUDS.B	1	;Year on screen
ZDATE		EQUDS.B	1	;Mirrors USERDATE in bank E1
Z24HOUR		EQUDS.B	1	;24 hour time
ZMINUTE		EQUDS.B	1	;Minute on screen
ZSECOND		EQUDS.B	1	;Second on screen
ZAMPM		EQUDS.B	1	;Mirrors USERAMPM in bank E1

ZHOUR		EQUDS.B	1	;12 hour / 24 hour time for screen
ZAMPMASCII	EQUDS.W	1	;2 bytes of ASCII ('AM' or 'PM' or '  ')

* CASCIITIME buffer format is as follows
*
*       'nn/dd/yy hh:mm:ss am/pm'
*
* ReadAsciiTime -- Function number RATFN
*      Input stack:  SP+4 = Null
*                    SP+3 = ASCII buffer bank number
*                    SP+2 = ASCII buffer hi byte of address
*                    SP+1 = ASCII buffer lo byte of address
*                          
*      PEA $0000+^CASCIITIME ;Null byte + bank number
*      PEA CASCIITIME ;Address of buffer
*      INDEX16
*      LDX #RATFN*256+MTN   ;Function number*256 + Misc Tool number
*      INDEX8
*      JSL =DISPATCH1  ;Call main Tool Locator
*
*      Return data is in buffer CASCIITIME
*
* ReadTimeHex -- Function number RTHFN
*     Input stack:   SP+8 = Push room for day of week 0=Sunday
*                    SP+7 = Push room for null byte
*                    SP+6 = Push room for month
*                    SP+5 = Push room for day
*                    SP+4 = Push room for year
*                    SP+3 = Push room for hour
*                    SP+2 = Push room for minute
*                    SP+1 = Push room for second
*
*      Push room for day of week on stack 0=Sunday
*      Push room for null byte on stack
*      Push room for month on stack
*      Push room for day on stack
*      Push room for year on stack
*      Push room for hour on stack
*      Push room for minute on stack
*      Push room for second on stack
*      INDEX16
*      LDX #RTHFN*256+MTN  ;Function number*256 + Misc Tool number
*      INDEX8
*      JSL =DISPATCH1  ;Call main Tool Locator
*
*      Pull second from stack
*      Pull minute from stack
*      Pull hour from stack
*      Pull year from stack
*      Pull day from stack
*      Pull month from stack
*      Pull null byte from stack
*      Pull day of week from stack 0=Sunday
*
* WriteTimeHex -- Function number WTHFN
*      Input stack:  SP+6 = Month
*                    SP+5 = Day
*                    SP+4 = Year
*                    SP+3 = Hour
*                    SP+2 = Minute
*                    SP+1 = Second
*
*      Push month on stack
*      Push day on stack
*      Push year on stack
*      Push hours on stack
*      Push minutes on stack
*      Push seconds on stack
*      INDEX16
*      LDX #WTHFN*256+MTN  ;Function number*256 + Misc Tool number
*      INDEX8
*      JSL =DISPATCH1  ;Call main Tool Locator
*
*             No values are returned from this call.
*

CASCIITIME	EQUDS.B	20	;Time in ASCII 'mm/dd/yy hh:mm:ss am/pm'
DATE		EQU	CASCIITIME+0	;Date in whatever format starts here
DATE1		EQU	CASCIITIME+0	;+0/1 = month or day or year
DATE2		EQU	CASCIITIME+3	;+3/4 = month or day
DATE3		EQU	CASCIITIME+6	;+6/7 = year or day
TIME		EQU	CASCIITIME+9	;Time in whatever format starts here
HOUR		EQU	CASCIITIME+9	;+9/10 = hour
MINUTE		EQU	CASCIITIME+12	;+12/13 = minute
SECOND		EQU	CASCIITIME+15	;+15/16 = seconds
TIMEFMT		EQU	CASCIITIME+18	;+18/19 = AM-PM/24 hour format

REALLNTBL		EQUDS.B	16	;Indicates true offsets/dummy lines
REALOPTTBL	EQUDS.B	16	;Indicates true option offset number

NUMFIRSTLN	EQUDS.B	1	;Msg num of first line of submenu screen
OPTPTR		EQUDS.A	1	;Pointer to option message number pointers
NOPTPTR		EQUDS.A	1	;Ptr to ptr to num of options per line tbl
DEFAULTPTR	EQUDS.A	1	;Pointer to default table of options
BRAMPTR		EQUDS.A	1	;Pointer to current user options

ZKMSTATUS		EQUDS.B	1	;Irq enable status of key micro on entry
ZVGCINT		EQUDS.B	1	;Irq enable status of 1 sec timer on entry
ZIRQ_1SEC		EQUDS.L	1	;Previous contents of 1 sec int jmp vector

		ENDSECT


* MouseText characters used

CLAPPLE		EQU	$40	;MouseText close apple character
OPAPPLE		EQU	$41	;MouseText open apple character
CHECK		EQU	$44	;MouseText check character
TITLEBAR		EQU	$47	;MouseText title bar character
LEFTARROW		EQU	$48	;MouseText left arrow character
DOWNARROW		EQU	$4A	;MouseText down arrow character
UPARROW		EQU	$4B	;MouseText up arrow character
TOPLINE		EQU	$4C	;MouseText overline character
RETURN		EQU	$4D	;MouseText return character
CENTERLINE	EQU	$53	;MouseText center line character
RIGHTARROW	EQU	$55	;MouseText right arrow character
RIGHTLINE		EQU	$5A	;MouseText right line character
DIAMOND		EQU	$5B	;MouseText diamond character
DOUBLEBAR		EQU	$5C	;MouseText double bar character
LEFTLINE		EQU	$5F	;MouseText left line character


* Miscellaneous characters used

DINDICATOR	EQU	CHECK	;Apple Default indicator
INVSPACE		EQU	$20	;Inverse space character
SPACE		EQU	$A0	;Normal space character
CLOSEPAREN	EQU	$A9	;Normal closed parenthesis
LESSTHAN		EQU	$BC	;Normal '<' character
GREATERTHAN	EQU	$BE	;Normal '>' character
BOTTOMLINE	EQU	$DF	;Normal underline character


* Misc equates used by Control Panel Program

MOUSEIND		EQU	$00	;MouseText char is first indicator
TERMINATOR	EQU	$00	;ASCII string terminator
DEFPOSITION	EQU	$02	;Default indicator position
CPHPOSITION	EQU	$01	;Control panel menu horzontal position
CPVPOSITION	EQU	$01	;Control panel menu vertical position
MPOSITION		EQU	$05	;Vertical position to start main screen
CLKPOSITION	EQU	$05	;Vertical position of clock box
SPOSITION		EQU	$05	;Vertical position to start submenu scrn
LNPOSITION	EQU	$04	;Horizontal position for submenu lines
SPECOPV		EQU	$08	;Vertical pstn of ctrl closed Apple start
SPECOPH		EQU	$00	;Horizontal pstn of ctrl clsd Apple start
WPOSITION		EQU	$10	;Vert position of AppleTalk warning msg
FNPOSITION	EQU	$16	;Vertical position for footnote
PRPOSITION	EQU	$17	;Horizontal position for boxes
MTXTOFF		EQU	$18	;Disables MouseText printing
MTXTON		EQU	$1B	;Enables MouseText printing
LEFTAKEY		EQU	$88	;Left arrow key
DOWNAKEY		EQU	$8A	;Down arrow key
UPAKEY		EQU	$8B	;Up arrow key
RETURNKEY		EQU	$8D	;Carriage return key
CRRETURN		EQU	$8D	;Carriage return for printing
CRRETURNL		EQU	$0D	;Carriage return for printing
RIGHTAKEY		EQU	$95	;Right arrow key
ESCKEY		EQU	$9B	;Escape key


		TITLE	'Control Panel Tables Equates'

******************************************************
*                                                    *
*      Tables1 for Control Panel Desk Accessory      *
*                                                    *
*                    by                              *
*               Fern Bachman     1985-1987           *
*               Joe Bo           1985-1989           *
*                                                    *
*      Copyright Apple Computer, Inc. 1985-1989      *
*                All Rights Reserved.                *
*                                                    *
******************************************************


CP_MsgEquates	RECORD	0

* Miscellaneous Messages

BOOTMSG		DS.B	1	;'I/O error!' message number
DISKMSG		DS.B	1	;'Not a bootable disk!' message number
DEVMSG		DS.B	1	;'No device connected!' message number
CHKDEVMSG		DS.B	1	;'Check startup device!' message number
TIMEMSG		DS.B	1	;'Time=' message number
STEPMSG		DS.B	1	;'Step' message number
TRACEMSG		DS.B	1	;'Trace' message number
CBANKMSG		DS.B	1	;'Cbank' message number
DECMSG		DS.B	1	;'Decimal' message number
HEXMSG		DS.B	1	;'Hex' message number
ARWDASHDOL	DS.B	1	;'-> $' message number
TLERRMSG		DS.B	1	;'Tool error= ' message number
SYSDMSG		DS.B	1	;'Fatal system error-> ' message number

* Special entry to Control Panel ASCII

SPCHOICES		DS.B	1	;Special entry ASCII

* Desk Accessory Title

CPTITLE		DS.B	1	;' Control Panel' message number

* Prompts / Footnotes

TOSELUSE		DS.B	1	;'Select:' message number
UDSEL		DS.B	1	;' ^ v' message number
LRSEL		DS.B	1	;' < >' message number
OPENCR		DS.B	1	;'Open CR' message number
SAVECR		DS.B	1	;'Save CR' message number
CANCELESC		DS.B	1	;'Cancel ESC' message number
SPACEBOX		DS.B	1	;'|               |' message number
TOPBOX		DS.B	1	;' ______________ ' message number
BOTTOMBOX		DS.B	1	;' -------------- ' message number
APS1S2L1		DS.B	1	;'ApTalk/Ser Prt1/Ser Prt2' msg # part 1
APS1S2L2		DS.B	1	;'ApTalk/Ser Prt1/Ser Prt2' msg # part 2
TWOAPTALK		DS.B	1	;'AppleTalk already Selected' message

* Main Menu

CPLN1		DS.B	1	;'Display' message number
CPLN2		DS.B	1	;'Sound' message number
CPLN3		DS.B	1	;'System Speed' message number
CPLN4		DS.B	1	;'Clock' message number
CPLN5		DS.B	1	;'Options' message number
CPLN6		DS.B	1	;'Slots' message number
CPLN7		DS.B	1	;'Port 1' message number
CPLN8		DS.B	1	;'Port 2' message number
CPLN9		DS.B	1	;'Ramdisk' message number
CPLN10		DS.B	1	;'Mouse' message number
		DS.B	1	;'  ' message number
CPQUIT		DS.B	1	;'Quit' message number

MMLEN		EQU	*-CPLN1	;# of lines in main menu screen

* Serial Port

SERIALLN1		DS.B	1	;'Device Connected' message number
		DS.B	1	;'Line Length' message number
		DS.B	1	;'Delete First LF after CR' message number
		DS.B	1	;'Add LF after CR' message number
		DS.B	1	;'Echo' message number
		DS.B	1	;'Buffering' message number
		DS.B	1	;'Baud' message number
		DS.B	1	;'Data/Stop Bits' message number
		DS.B	1	;'Parity' message number
		DS.B	1	;'DCD Handshake' message number
		DS.B	1	;'DSR Handshake' message number
		DS.B	1	;'XON/XOFF Handshake' message number

SERIALLEN		EQU	*-SERIALLN1	;# of lines for serial screens

* Display

DISPLN1		DS.B	1	;'Type' message number
DISPLN2		DS.B	1	;'Columns' message number
DISPLN3		DS.B	1	;'-Screen Colors-' message number
DISPLN4		DS.B	1	;'Text' message number
DISPLN5		DS.B	1	;'Background' message number
DISPLN6		DS.B	1	;'Border' message number
DISPLN7		DS.B	1	;'Standards' message number
DISPLN8		DS.B	1	;'  ' message number
DISPLN9		DS.B	1	;'Hertz' message number

DISPLEN		EQU	*-DISPLN1	;# of lines for display screen

* System Speed

SYSSPDLN1		DS.B	1	;'System Speed' message number

SYSSPDLEN		EQU	*-SYSSPDLN1	;# of lines for system speed screen

* Slots

SLOTSLN1		DS.B	1	;'Slot 1' message number
SLOTSLN2		DS.B	1	;'Slot 2' message number
SLOTSLN3		DS.B	1	;'Slot 3' message number
SLOTSLN4		DS.B	1	;'Slot 4' message number
SLOTSLN5		DS.B	1	;'Slot 5' message number
SLOTSLN6		DS.B	1	;'Slot 6' message number
SLOTSLN7		DS.B	1	;'Slot 7' message number
SLOTSLN8		DS.B	1	;'  ' message number
SLOTSLN9		DS.B	1	;'Startup Slot' message number

SLOTSLEN		EQU	*-SLOTSLN1	;# of lines for display screen

* Language

LANGLN1		DS.B	1	;'Language' message number
LANGLN2		DS.B	1	;'Keyboard' message number
LANGLN3		DS.B	1	;'Keyboard Buffering' message number
LANGLN4		DS.B	1	;'Repeat Speed' message number
LANGLN5		DS.B	1	;'Delay to Repeat' message number
LANGLN7		DS.B	1	;'Flash Rate of Cursor' message number
		DS.B	1
ADVANCED		DS.B	1	;'-Advanced Features-' message number
LANGLN8		DS.B	1	;'Shift Caps/Lower Case' message number
LANGLN9		DS.B	1	;'Fast Space/Delete Keys' msg number
LANGLN10		DS.B	1	;'Dual Speed Keys' message number

		IF OPTION4 <> 0 THEN
LANGLN11		DS.B	1	;'Disk1 Eject' message number
LANGLN12		DS.B	1	;'Disk2 Eject' message number
		ENDIF

LANGLEN		EQU	*-LANGLN1	;# of lines for language screen

* Clock

CLOCKLN1		DS.B	1	;'Month' message number
CLOCKLN2		DS.B	1	;'Day' message number
CLOCKLN3		DS.B	1	;'Year' message number
CLOCKLN4		DS.B	1	;'Format' message number
CLOCKLN5		DS.B	1	;'  ' message number
CLOCKLN6		DS.B	1	;'Hour' message number
CLOCKLN7		DS.B	1	;'Minute' message number
CLOCKLN8		DS.B	1	;'Second' message number
CLOCKLN9		DS.B	1	;'Format' message number

CLKLEN		EQU	*-CLOCKLN1	;# of lines for clock screen

* Ramdisk

RAMDSKLN1		DS.B	1	;'Select Ramdisk Size' message number
;RAMDSKLN2 DS 1,0 ;'Maximum Ramdisk Size' message number
RAMDSKLN3		DS.B	1	;'-Largest Selectable Size' message number
RAMDSKLN4		DS.B	1	;'  ' message number
RAMDSKLN4_2	DS.B	1	;'-RAM Status-' message number
RAMDSKLN5		DS.B	1	;'Ramdisk Size' message number
RAMDSKLN6		DS.B	1	;'Total RAM in Use' message number
RAMDSKLN7		DS.B	1	;'Total Free RAM' message number
RAMDSKLN8		DS.B	1	;' ' message number
RAMDSKLN9		DS.B	1	;'Reset Ramdisk during next Cntl-Apple-Reset'

RAMDSKLEN		EQU	*-RAMDSKLN1	;# of lines for ramdisk screen

* Sound

SOUNDLN1		DS.B	1	;'Volume' messag2 number
SOUNDLN2		DS.B	1	;'  ' message number
SOUNDLN3		DS.B	1	;' Pitch' message number

SNDLEN		EQU	*-SOUNDLN1	;# of lines for sound screen

* Mouse

MOUSELN1		DS.B	1	;'Mouse Tracking' message number
MOUSELN2		DS.B	1	;'Double click' message number
		DS.B	1	;'   ' message number
ADVMSEMSG		DS.B	1	;'Keyboard Mouse' msg number                 
MOUSELN3		DS.B	1	;'Start Delay' message number
MOUSELN4		DS.B	1	;'Acceleration' message number
MOUSELN5		DS.B	1	;'Maxm Speed ' message number

MOUSELEN		EQU	*-MOUSELN1

		EJECT
* Serial Port Options

PORTOP1_0		DS.B	1	;'Printer' message number
		DS.B	1	;'Modem' message number
		DS.B	1	;'AppleTalk' message number
		DS.B	1	;'Your Card' message number
NPORTOP1_0	EQU	*-PORTOP1_0

PORTOP2_0		DS.B	1	;'Unlimited' message number
		DS.B	1	;'40' message number
		DS.B	1	;'72' message number
		DS.B	1	;'80' message number
		DS.B	1	;'132' message number
NPORTOP2_0	EQU	*-PORTOP2_0

RAMDSKOP8_0	EQU	*
LANGOP8_0		EQU	*
LANGOP9_0		EQU	*
LANGOP3_0		EQU	*
DISPOP3_0		EQU	*
PORTOP12_0	EQU	*
PORTOP11_0	EQU	*
PORTOP10_0	EQU	*
PORTOP6_0		EQU	*
PORTOP5_0		EQU	*
PORTOP4_0		EQU	*
PORTOP3_0		DS.B	1	;'No' message number
		DS.B	1	;'Yes' message number
NPORTOP3_0	EQU	*-PORTOP3_0
NPORTOP4_0	EQU	*-PORTOP4_0
NPORTOP5_0	EQU	*-PORTOP5_0
NPORTOP6_0	EQU	*-PORTOP6_0
NPORTOP10_0	EQU	*-PORTOP10_0
NPORTOP11_0	EQU	*-PORTOP11_0
NPORTOP12_0	EQU	*-PORTOP12_0
NDISPOP3_0	EQU	*-DISPOP3_0
NLANGOP3_0	EQU	*-LANGOP3_0
NLANGOP9_0	EQU	*-LANGOP9_0
NLANGOP8_0	EQU	*-LANGOP8_0
NRAMDSKOP8_0	EQU	*-RAMDSKOP8_0

PORTOP7_0		DS.B	1	;'50' message number
		DS.B	1	;'75' message number
		DS.B	1	;'110' message number
		DS.B	1	;'134.5' message number
		DS.B	1	;'150' message number
		DS.B	1	;'300' message number
		DS.B	1	;'600' message number
		DS.B	1	;'1200' message number
		DS.B	1	;'1800' message number
		DS.B	1	;'2400' message number
		DS.B	1	;'3600' message number
		DS.B	1	;'4800' message number
		DS.B	1	;'7200' message number
		DS.B	1	;'9600' message number
		DS.B	1	;'19200' message number
NPORTOP7_0	EQU	*-PORTOP7_0

PORTOP8_0		DS.B	1	;'5/1' message number
		DS.B	1	;'5/2' message number
		DS.B	1	;'6/1' message number
		DS.B	1	;'6/2' message number
		DS.B	1	;'7/1' message number
		DS.B	1	;'7/2' message number
		DS.B	1	;'8/1' message number
		DS.B	1	;'8/2' message number
NPORTOP8_0	EQU	*-PORTOP8_0

PORTOP9_0		DS.B	1	;'Odd' message number
		DS.B	1	;'Even' message number
		DS.B	1	;'None' message number
NPORTOP9_0	EQU	*-PORTOP9_0


* Display Options

DISPOP1_0		DS.B	1	;'Color' message number
		DS.B	1	;'Monochrome' message number
NDISPOP1_0	EQU	*-DISPOP1_0

DISPOP2_0		DS.B	1	;'40' message number
		DS.B	1	;'80' message number
NDISPOP2_0	EQU	*-DISPOP2_0

DISPOPC		DS.B	1	;'Black' color message number
		DS.B	1	;'Deep Red' color message number
		DS.B	1	;'Dark Blue' color message number
		DS.B	1	;'Purple' color message number
		DS.B	1	;'Dark Green' color message number
		DS.B	1	;'Dark Gray' color message number
		DS.B	1	;'Medium Blue' color message number
		DS.B	1	;'Light Blue' color message number
		DS.B	1	;'Brown' color message number
		DS.B	1	;'Orange' color message number
		DS.B	1	;'Light Gray' color message number
		DS.B	1	;'Pink' color message number
		DS.B	1	;'Light Green' color message number
		DS.B	1	;'Yellow' color message number
		DS.B	1	;'Aquamarine' color message number
		DS.B	1	;'White' color message number
NDISPOPC		EQU	*-DISPOPC

DISPOP4_0		DS.B	1	;'60' message number
		DS.B	1	;'50' message number
NDISPOP4_0	EQU	*-DISPOP4_0


* Language Options

LANGOP1_0		EQU	*
LANGOP2_0		DS.B	1	;'U.S.A' message number
		DS.B	1	;'U.K.' message number
		DS.B	1	;'French' message number
		DS.B	1	;'Danish' message number
		DS.B	1	;'Spanish' message number
		DS.B	1	;'Italian' message number
		DS.B	1	;'German' message number
		DS.B	1	;'Swedish' message number
		DS.B	1	;'Dvorak' message number
		DS.B	1	;'French Canadian' message number
		DS.B	1	;'Flemish' message number
		DS.B	1	;'Hebrew' message number
		DS.B	1	;'Japanese' message number
		DS.B	1	;'Arabic' message number
		DS.B	1	;'Greek' message number
		DS.B	1	;'Turkish' message number
		DS.B	1	;'Finnish' message number
		DS.B	1	;'Portuguese' message number
		DS.B	1	;'Tamil' message number
		DS.B	1	;'Hindu' message number
		DS.B	1	;'T1' message number
		DS.B	1	;'T2' message number
		DS.B	1	;'T3' message number
		DS.B	1	;'T4' message number
		DS.B	1	;'T5' message number
		DS.B	1	;'T6' message number
		DS.B	1	;'L1' message number
		DS.B	1	;'L2' message number
		DS.B	1	;'L3' message number
		DS.B	1	;'L4' message number
		DS.B	1	;'L5' message number
		DS.B	1	;'L6' message number

MOUSEOP5_0	EQU	*
LANGOP4_0		DS.B	1	;'|*--------------|' message number
		DS.B	1	;'|-*-------------|' message number 
		DS.B	1	;'|--*------------|' message number
		DS.B	1	;'|---*-----------|' message number
		DS.B	1	;'|----*----------|' message number
		DS.B	1	;'|------*--------|' message number
		DS.B	1	;'|--------*------|' message number
		DS.B	1	;'|----------*----|' message number
		DS.B	1	;'|------------*--|' message number
		DS.B	1	;'|--------------*|' message number
NLANGOP4_0	EQU	*-LANGOP4_0
NMOUSEOP5_0	EQU	*-MOUSEOP5_0

LANGOP7_0		EQU	*
MOUSEOP1_0	EQU	*
MOUSEOP2_0	EQU	*
MOUSEOP3_0	EQU	*
MOUSEOP4_0	EQU	*
LANGOP5_0		DS.B	1	;'|*--------------|' message number
		DS.B	1	;'|---*-----------|' message number
		DS.B	1	;'|-------*-------|' message number
		DS.B	1	;'|----------*----|' message number
		DS.B	1	;'|--------------*|' message number
NLANGOP5_0	EQU	*-LANGOP5_0
NMOUSEOP1_0	EQU	*-MOUSEOP1_0
NMOUSEOP2_0	EQU	*-MOUSEOP2_0
NMOUSEOP3_0	EQU	*-MOUSEOP3_0
NMOUSEOP4_0	EQU	*-MOUSEOP4_0
NLANGOP7_0	EQU	*-LANGOP7_0

SYSSPDOP1_0	EQU	*
LANGOP10_0	DS.B	1	;'Normal' message number
		DS.B	1	;'Fast' message number
NLANGOP10_0	EQU	*-LANGOP10_0
NSYSSPDOP1_0	EQU	*-SYSSPDOP1_0

* Sound and KBD mouse options

SOUNDOP1_0	EQU	*
SOUNDOP2_0	DS.B	1	;'|*--------------|' message number
		DS.B	1	;'|-*-------------|' message number
		DS.B	1	;'|--*------------|' message number
		DS.B	1	;'|---*-----------|' message number
		DS.B	1	;'|----*----------|' message number
		DS.B	1	;'|-----*---------|' message number
		DS.B	1	;'|------*--------|' message number
		DS.B	1	;'|-------*-------|' message number
		DS.B	1	;'|--------*------|' message number
		DS.B	1	;'|---------*-----|' message number
		DS.B	1	;'|----------*----|' message number
		DS.B	1	;'|-----------*---|' message number
		DS.B	1	;'|------------*--|' message number
		DS.B	1	;'|-------------*-|' message number
		DS.B	1	;'|--------------*|' message number
NSOUNDOP1_0	EQU	*-SOUNDOP1_0
NSOUNDOP2_0	EQU	*-SOUNDOP2_0

* Clock Options

CLOCKOP1_0	DS.B	1	;'MM/DD/YY' message number
		DS.B	1	;'DD/MM/YY' message number
		DS.B	1	;'YY/MM/DD' message number
NCLOCKOP1_0	EQU	*-CLOCKOP1_0

CLOCKOP2_0	DS.B	1	;'AM-PM' message number
		DS.B	1	;'24 Hour' message number
NCLOCKOP2_0	EQU	*-CLOCKOP2_0


TURN		DS.B	1	;'Turn ' message number
ALTDSPMODE	DS.B	1	;'Alternate Display Mode' message number
ON		DS.B	1	;'On' message number
OFF		DS.B	1	;'Off' message number
ACCEPT		DS.B	1	;'Accept CR' message number


WELCOME		DS.B	1	;'Welcome ...' message number



* Copyright and Messages not to be translated follow


N1		DS.B	1	;Test only
N2		DS.B	1	;Test2 only 
SPLASHMSG		DS.B	1	;'Apple IIgs' message number
		DS.B	1	;'Copyright ... ' message number
		DS.B	1	;Spare splash screen message number
		DS.B	1	;Spare splash screen message number
		DS.B	1	;'All Rights ...' message number
		DS.B	1	;'ROM ...' message number


		DS.B	5
* Slots Options

SLOTSOP1_0	EQU	*
		DS.B	1	;'Printer Port' message number
		DS.B	1	;'Your Card' message number
		DS.B	1	;'AppleTalk' message number
		DS.B	1	;'Modem Port' message number
NSLOTSOP1_0	EQU	*-SLOTSOP1_0

SLOTSOP2_0	EQU	*
		DS.B	1	;'Modem Port' message number
		DS.B	1	;'Your Card' message number
		DS.B	1	;'AppleTalk' message number
		DS.B	1	;'Printer Port' message number
NSLOTSOP2_0	EQU	*-SLOTSOP2_0

SLOTSOP3_0	EQU	*
		DS.B	1	;'Built-in Text Display' message number
		DS.B	1	;'Your Card' message number
NSLOTSOP3_0	EQU	*-SLOTSOP3_0

SLOTSOP4_0	EQU	*
		DS.B	1	;'Built-in Mouse' message number
		DS.B	1	;'Your Card' message number
NSLOTSOP4_0	EQU	*-SLOTSOP4_0

SLOTSOP5_0	EQU	*
		DS.B	1	;'Built-in Smart Port' message number
		DS.B	1	;'Your Card' message number
NSLOTSOP5_0	EQU	*-SLOTSOP5_0

SLOTSOP6_0	EQU	*
		DS.B	1	;'Built-in Disk Port' message number
		DS.B	1	;'Your Card' message number
NSLOTSOP6_0	EQU	*-SLOTSOP6_0

SLOTSOP7_0	EQU	*
		DS.B	1	;'Built-in SCSI Port' message number
		DS.B	1	;'Your Card' message number
NSLOTSOP7_0	EQU	*-SLOTSOP7_0

SLOTSOP8_0	DS.B	1	;'Scan' message number
		DS.B	1	;'Slot 1' message number
		DS.B	1	;'Slot 2' message number
		DS.B	1	;'Slot 3' message number
		DS.B	1	;'Slot 4' message number
		DS.B	1	;'Slot 5' message number
		DS.B	1	;'Slot 6' message number
		DS.B	1	;'Slot 7' message number
		DS.B	1	;'Ramdisk' message number
		DS.B	1	;'Romdisk' message number
		DS.B	1	;'AppleTalk' message number
NSLOTSOP8_0	EQU	*-SLOTSOP8_0
		ENDR
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSFirmware/Monitor/CP.MAIN.aii b/IIGS.601.SRC/GSFirmware/Monitor/CP.MAIN.aii
new file mode 100644
index 0000000..2bdb0d7
--- /dev/null
+++ b/IIGS.601.SRC/GSFirmware/Monitor/CP.MAIN.aii
@@ -0,0 +1 @@
+		EJECT
		TITLE	'Text Page 2 Desk Accessory'

;	This EdAsm/Asm816 source code file was converted to AsmIIGS
;	by EdAsmCvtIIGS version 1.2d5 on 5/9/91 at 5:22:20 PM

******************************************************
*                                                    *
*             Text Page 2 Desk Accessory             *
*                                                    *
*                    by                              *
*               Fern Bachman     1985-1987           *
*               Joe Bo           1987-1989           *
*                                                    *
*       Copyright Apple Computer, Inc. 1985-1989     *
*                All Rights Reserved.                *
*                                                    *
******************************************************


	; SEG $FF
TEXTPG2DA		EQU	*
	; SEG $00
		LDA	RDCXROM	;Save/restore INTCXROM/SLOTCXROM
		PHA		;
		LDA	CYAREG	;Save system speed
		PHA		;Save it
		JSR	HOMEFF	;Clear screen
		JSR	TURNONMTXT	;Enable mouse text character printing

		LDX	#CPHPOSITION	;Horizontal position of message
		LDY	#CPVPOSITION	;Vertical position of message
		LDA	#ALTDSPMODE	;Message number
		JSR	PRINTMSGXY	;Show it
		JSR	UNDERTITLE	;Underline title

		LDX	#CPHPOSITION	;Horizontal position for message
		LDY	#CPVPOSITION+10	;Vertical position for message
		LDA	#TURN	;Message number
		JSR	PRINTMSGXY	;Print 'Turn'

		LDA	#ALTDSPMODE	;Message number
		JSR	PRINTMSG
		LDA	>TP2MODE	;<>= then already active
		BNE	@1	;
		LDA	#ON	;Give 'On' message if here
		BRA	@2	;
@1		EQU	*
		LDA	#OFF	;'Off' message number
@2		EQU	*
		JSR	PRINTMSG

		LDX	#CPHPOSITION	;Horizontal footnote position
		LDY	#FNPOSITION	;Vertical footnote position
		LDA	#CANCELESC	;Message
		JSR	PRINTMSGXY	;Print it

		LDA	#ACCEPT	;Message
		JSR	PRINTMSG

		JSR	ALLBORDER	;Put up complete border

@5		EQU	*
		JSR	XRDKBD	;Read keyboard
		BPL	@5	;Loop til key pressed
		CMP	#RETURNKEY	;Return then do it
		BEQ	@3	;
		CMP	#ESCKEY	;Escape key then do nothing
		BEQ	@4	;
		JSR	NEWBELL1	;Unknown key then beep and loop
		BRA	@5	;

@3		EQU	*
		JSR	TEXT2COPYFF	;Toggle it

@4		EQU	*
		PLA		;Restore system speed
		STA	CYAREG	;Set it back
		JMP	RDYSBMENU0	;Exit via control panel routine


*
* This routine installs a heartbeat task
* that copies text page 2 to bank E0 for
* the Mega // to display on every VBL.
*
* This is a toggle (enable/disable) routine.
* If auto text copy is on, on entry, it is disabled on exit.
* If auto text copy is off, on entry, it is enabled on exit.
*
* For Gyro, no heart beat task is required.
* Toggle hardware bit5 of shadow register, $c035 
* is equivalent to software copying.
*
* This routine can be invoked from Classic Desk Accessory
* or mainside entry point $f962. In the case of CDA, an      
* interrupt occurred and the enviroments are stored and restored
* during in and out of the CDA, this includes store and restore of
* SHADOW reg, therefore it is necessay to update IRQ_SHADOW to   
* reflect the most current states of shadowing.  When exits, then
* restoring of SHADOW reg from IRQ_SHADOW would show the users'
* preference states.

TEXT2COPYFF	EQU	*	;Entry from $f962 also !!!   
		IF IS512 <> 0 THEN
		ELSE
		PHB		;Save data bank
		JSR	DBTOE1	;Change to $e1
		LDA	|TP2MODE	;Toggle the flag
		EOR	#$FF	;
		STA	|TP2MODE	;Save back, 0/1 = off/on
		JSR	SETTEXT2REG	;
		BCC	@1	;BRA for //gs
		PLB		;Restore data bank
		RTS		;


@1		EQU	*	;//gs uses software copy !!!
		PLB		;Restore its data bank
		SEP	#$40	;Set 'v' to indicate enabling routine
		CLC		;Make call in full native mode
		XCE		;
		PHP		;Preserve entry status
		REP	#$30	;16 bit land required
		OPCODE	BVC	;Do a trick to save a byte
@2		EQU	*
		CLV		;Skipped first time through this code
		PEA	TP2THDR>>16	;High word of routine address
		PEA	|TP2THDR	;Low word of routine address
		LONGI	ON
		LDX	#SETHEART	;Set up heartbeat task
		BVS	@14	;'v'=1 then put in heartbeat queue
		LDX	#DELHEART	;Remove from heartbeat task
		LONGI	OFF
@14		EQU	*	;'v'=0=disable 'v'=1=enable routine
		JSL	>DISPATCH1	;Off to tool locator
		BCS	@2	;Already on then disable txt pg 2 copier
		PLP		;Recall entry status (8 bit mode)  
		LDA	#$08	;Enable VBL's to start up copier
		TSB	INTEN	;
		XCE		;Switch back to entry state now
		ENDIF
		RTS		;Back to caller



		TITLE	'Special Entry Routines'

******************************************************
*                                                    *
*   Special Entry Rtnes for Control Panel Desk Acc   *
*                                                    *
*                    by                              *
*               Fern Bachman     1985-1987           *
*               Joe Bo           1987-1989           *
*                                                    *
*       Copyright Apple Computer, Inc. 1985-1989     *
*                All Rights Reserved.                *
*                                                    *
******************************************************


	; SEG $FF
SPEC_PANEL	EQU	*	;Closed Apple reset enters here
	; SEG $00
		SEI		;Disallow data register interrupts
		LDA	#$10	;Bit 4 is data register interrupt enable
		TRB	KMSTATUS	;
		CLI		;Re-enable interrupts
		JSR	T480CARD2	;'z'=0 if 80 cols - 'z'=1 if 40 cols OK
		BEQ	@1	;= then 80 columns OK
		STA	SETINTC3ROM	;Enable internal $C300 ROM
@1		EQU	*
		LDA	#$11	;Must set up funny 40 column mode
		JSR	C300FF	; this way.
		JSR	TURNONMTXT	;Enable mouse text characters
		LDA	#$80	;Must run in high speed
		STA	CYAREG	;Ignore disk ][ motor on detects
		STA	>SYSTEMSPD	;Besure all runs fast
		ASL	A	;Zero out bytes to force reboot
		STZ	SOFTEV+1	;Be sure vectors cause cold boot
		STZ	PWREDUP	;Reset power up byte too.
		LDY	#SPECOPV	;Vertical pstn to start on
		LDX	#SPECOPH	;Horizontal pstn to start on
		LDA	#SPCHOICES	;Show choices
		JSR	PRINTMSGXY	; to user here
		JSR	ALLBORDER	;Put up complete border
		STA	SETSLOTCXROM	;Enable external CX ROM as per entry state
@2		EQU	*
		LDA	KBD	;Check for what to do
		BPL	@2	;Loop til key pressed
		STA	KBDSTRB	;Clear key pressed
		CMP	#'1'	;1,2,3,4 only keys allowed
		BEQ	@6	;Enter Control Panel
		CMP	#'2'	;= 2 then do #2
		BEQ	@3	;Restore standards and 60 hertz
		CMP	#'3'	;= 3 then do #3
		BEQ	@4	;Restore standards and 50 hertz
		CMP	#'4'	;=4 then do #4
		BEQ	@5	;Continue with boot
		JSR	NEWBELL1	;Indicate illegal choice
		BRA	@2	;Loop for new keypress


@3		EQU	*
		JMP	>WRITESTD	;Write standards with 60 hertz

@4		EQU	*
		JSL	>WRITESTD	;Write standards with 60 hertz
		LDA	#DISPOP4_0+1-DISPOP4_0	;50 hertz indicator
		STA	>USERHERTZ	;Make change
		JMP	>WRITEBR	;Write change to BATTERYRAM

@5		EQU	*
		RTL		;Back to caller


@6		EQU	*	;Set screen size before entry
		LDA	>USERCOL	;0=40 / 1=80
		BEQ	CTRL_PANEL	;= then leave in 40 columns 
		LDA	#MTXTON	;Enable Mouse Text and 80 columns
		JSR	C300FF	;Enable 80 columns


* Fall into control panel from here




		TITLE	'Control Panel Main Routines'

******************************************************
*                                                    *
*   Main Routines for Control Panel Desk Accessory   *
*                                                    *
*                    by                              *
*               Fern Bachman     1985-1987           *
*               Joe Bo           1987-1989           *
*                                                    *
*       Copyright Apple Computer, Inc. 1985-1989     *
*                All Rights Reserved.                *
*                                                    *
******************************************************


	; SEG $FF
CTRL_PANEL	EQU	*	;E1 vector enters here
	; SEG $00
		LDA	RDCXROM	;Save/restore INTCXROM/SLOTCXROM status
		PHA		;
		PHP		;Disable int while saving/changing vector
		SEI		;
		LDA	KMSTATUS	;Save keyboard interrupt enable
		STA	ZKMSTATUS	;
		LDA	VGCINT	;Bit 2 hold 1-sec int enable bit
		STA	ZVGCINT	;Save for later
		LDA	#$04	;Bit 2 is kbd interrupt enable bit
		TRB	KMSTATUS	;Disable keyboard interrupts
		TSB	VGCINT	;Enable 1 second interrupt
		STZ	SCANINT	;Reset 1 second timer interrupt

		REP	#$20	;16 bit world for now
		LONGA	ON
		LDA	>IRQ_1SEC	;Save 1 second vector
		STA	ZIRQ_1SEC	;
		LDA	>IRQ_1SEC+2	;
		STA	ZIRQ_1SEC+2	;
		PHK		;Bank number of interrupt code
		LDX	#>CPINTHNDLR	;Hi byte of address
		PHX		;
		PLA		;Recall 16 bit bank num/hi byte
		STA	>IRQ_1SEC+2	;Change vector
		LDA	#CPINTHNDLR*256+$5C	;Low byte of addr / JMP abs long
		STA	>IRQ_1SEC	;
		LONGA	OFF
		SEP	#$30	;8 bit world to continue
		PLP		;Re-enable ints with new vector installed

		JSL	>READBR	;Read in user selections from BATTERYRAM
		SEC		;Set up everything EXCEPT slots
		JSL	>TOBRAMSETUP	;Setup batteryram choices

* Current RAM Disk size

		LDX	#$02	;Push 4 bytes on stack for result
		JSR	PUSH	;
		IF IS512 <> 0 THEN
		ELSE
		LONGI	ON
		LDX	#GRDSZN*256+RDN	;Function number/tool set number
		LONGI	OFF
		JSL	>DISPATCH1	;Go make total RAM call
		ENDIF
		LDA	1,S	;Get size from stack
		STA	CURRENTRAM	;Save full 32 bits
		LDA	3,S	;Save hi word too
		STA	CURRENTRAM+2	; and save in zero page for later

* Free RAM for RAM Disk = Total system RAM - 256K
*
* NOTE: 4 bytes were left on the stack from Current
*       RAM Disk size call.  The space they occupy
*       will be used for the total system RAM call.

		IF IS512 <> 0 THEN
		ELSE
		LONGI	ON
		LDX	#TMEMN*256+MMN	;Function number/tool set number
		LONGI	OFF
		JSL	>DISPATCH1	;Go make total RAM call
		ENDIF
		LDA	1,S	;Save 32 bits
		STA	TOTALSRAM	;Save as total system RAM size
		STA	FREERAM	;Save as low byte of FREERAM too
		LDA	3,S	;Save hi word too
		STA	TOTALSRAM+2	;Save as total system RAM size
		SEC		;Subtract 256K
		LONGA	ON
		SBC	#$0004	;256K is for system
		STA	FREERAM+2	;Save as Free RAM for RAM disk
		LONGA	OFF
		BNE	@1	;<>= then there is ram to work with
		STA	>USERMRAM	;00 variables because something's wrong!!!
		SEP	#$30	;8 bit mode for call
		JSL	>TOWRITEBR	;Write new parameter to BATTERYRAM
		REP	#$30	;16 bit mode to continue

* RAM used for program = Total system RAM - Free system RAM
*
* NOTE: 4 bytes were left on the stack from Total
*       system RAM call.  The space they occupy
*       will be used for the free RAM call.

@1		EQU	*
		IF IS512 <> 0 THEN
		ELSE
		LONGI	ON
		LDX	#FMEMN*256+MMN	;Function number/tool set number
		LONGI	OFF
		JSL	>DISPATCH1	;Go make free RAM call
		ENDIF
		LDA	1,S	;Save as 32 bits
		STA	TOTALFRAM	;Save as Total Free RAM
		LDA	3,S	;Save hi word too
		STA	TOTALFRAM+2	;Save as Total Free RAM
		LDA	TOTALSRAM	;
		SEC		;Prepare to subtract
		SBC	TOTALFRAM	;Subtract total free RAM low byte
		STA	PROGRAMRAM	;Save as RAM used by program size
		LDA	TOTALSRAM+2	;Now do high bytes
		SBC	TOTALFRAM+2	;
		STA	PROGRAMRAM+2	;Save as RAM used by program size
		PLA		;Clean 4 bytes off the stack
		PLA		;
		SEP	#$30	;Back to control panel mode

		JSR	TURNONMTXT	;Enable printing of mouse text characters

* Clear screen and put line over main title position.

		LDY	#CPVPOSITION-1	;Set up total screen clear
		JSR	CLRTOBTM	;Clear to bottom of screen
		LDX	#CPHPOSITION	;Horizontal position
		LDY	#CPVPOSITION-1	;Vertical position
		JSR	FIXVTAB	;Move to position
		LDA	#BOTTOMLINE	;Output 1 char to set OURCH if in 80 cols
		JSR	FILLREST	;Put in underline stuff

		LDA	#CPQUIT-CPLN1	;Point to QUIT option
		STA	CURSCRN	;Last main screen pointer position

* Restart main menu screen here

MAINMENU		EQU	*	;Restart program here from submenus
		SEI		;Keep clock off til screen setup
		LDA	CURSCRN	;Where should we point to?
		STA	CURLINE	;

* Change CURSCRN to point to main screen data

		LDA	#CPQUIT-CPLN1	;Point to QUIT option
		STA	CURSCRN	;Last main screen pointer position

* Clear to bottom of screen

		LDY	#CPVPOSITION	;Set up partial screen clear
		JSR	CLRTOBTM	;Clear to bottom of screen

* Put up title

		JSR	PRTTITLE	;Print title
		JSR	UNDERTITLE	;Fill rest of line and underline it

* Set up some zero page parameters for
* submenu screens and indicator selection routines.

		JSR	GETSTATNUM	;

* Put up border/footnotes/prompt boxes.

		JSR	PRINTBORDER	;Print border

* Put up main menu screen

SHWMAINMENU	EQU	*	;Put up main menu
		LDA	#MPOSITION-1	;Vertical position -1
		STA	CV	;
		LDA	#CPLN1	;1st line to print
@1		EQU	*
		PHA		;Save for testing if done
		INC	CV	;Next vertical position
		SEC		;Calculate where we are
		SBC	#CPLN1	;
		CMP	CURLINE	;Inverse if =
		BNE	@11	;
		JSR	TURNOFFMTXT	;Enable printing inverse characters
@11		EQU	*
		LDY	CV	;'Y' contains vertical postn for FIXVTAB
		LDX	#LNPOSITION	;Horizontal tab
		LDA	1,S	;Recall message number to print
		JSR	PRINTMSGXY	;
		JSR	TURNONMTXT	;Always reenable printing mouse text chars
		PLA		;
		INC	A	;
		CMP	#CPLN1+MMLEN+0	;
		BCC	@1	;Loop til done

		JSR	SELECTLINE	;Select main menu option
		CMP	#RETURNKEY	;If return pressed go to submenu
		BEQ	RDYSBMENU	;If return pressed do submenu stuff
		CMP	#ESCKEY	;If Esc pressed move arrow to Quit option
		BEQ	@16	;<>= then beep the user
		CMP	#$00	;=0 then just redisplay screen
		BEQ	SHWMAINMENU	;
		JSR	NEWBELL1	;Indicate illegal key pressed
		BRA	SHWMAINMENU	;Look for another key

@16		EQU	*
		LDA	#CPQUIT-CPLN1	;Force arrow to move to Quit option
		STA	CURLINE	;
		BRA	SHWMAINMENU	;Move to Quit

* Mark submenu chosen and test for Quit.

RDYSBMENU		EQU	*
		LDX	CURLINE	;Check for line number chosen
		STX	CURSCRN	;Save as screen chosen
		CPX	#CPQUIT-CPLN1	;Quit chosen?
		BNE	RDYSBMENU1	;<>= then don't quit

* Exit Routine for Control Panel

NOTPASS		EQU	*
		PHP		;Disable int while restoring vector
		SEI		;
		LDA	ZVGCINT	;Bit 2 hold 1-sec int enable bit
		STA	VGCINT	;Save for later
		LDA	ZKMSTATUS	;Restore keyboard interrupt status
		STA	KMSTATUS	;

		REP	#$30	;16 bit world for now
		LONGA	ON
		LDA	ZIRQ_1SEC	;Restore 1 second vector
		STA	>IRQ_1SEC	;
		LDA	ZIRQ_1SEC+2	;
		STA	>IRQ_1SEC+2	;
		LONGA	OFF
		SEP	#$30	;8 bit world to continue
		PLP		;Re-enable ints with orig vector installed

		SEC		;'c'=1 indicates do NOT do slt designation
		JSL	>TOBRAMSETUP	;Reset setup parameters

RDYSBMENU0	EQU	*	;Called by text page 2 desk accessory
		PLA		;Restore INTCXROM/SLOTCXROM
		BMI	@1	;'-' then we stay in INTCXROM space
		STA	SETSLOTCXROM	;'+' then switch back in SLOTCXROM space
@1		EQU	*
		RTL		;Back to caller


RDYSBMENU1	EQU	*
		SEI		;Keep clock off til screen setup

* Before get to control panel submenu, update the original gs
* maximum ramdisk option with the 're-size ramdisk during next
* reset' value so that when changing with cursor, it would
* point to the right batteryram buffer location without  
* changing all the rest of the reference tables. When exits
* from control panel, update it back !!!

		LDA	>USERRSTRAM	;Get re-size option
		STA	>USERXRAM	; save to maxi ramdisk to fool around  

* Also for slot submenu, update USERSLT1 with SPCLSLT1 so that all
* printing can use USERSLT1 offset correctly.  When exiting from
* slot submenu, then copy USERSLT1 to SPCLSLT1 and then update 
* USERSLT1 for 0/1 so that AppleTalk can function properly with
* System disk <= 4.0 but >= 3.2 !!!

		LDA	>SPCLSLT1	;Before enter submenu, update USERSLT1 w/
		STA	>USERSLT1	;  this special slot1 byte 

* Undo main title indicator

@1		EQU	*
		JSR	PRTTITLE	;Print title
		JSR	FILLSPACE	;Fill rest of line with spaces

* Underline main title and overline submenu title

		LDX	#CPHPOSITION-1	;Put up separater
		LDY	#CPVPOSITION+1	;Vertical position
		JSR	FIXVTAB	;Move there
		JSR	FILLDBLBAR	;Fill rest of line with double bar

* Underline submenu title

		LDX	#CPHPOSITION	;Horizontal position of overline
		LDY	#SPOSITION-1	;Underline submenu title
		JSR	FILLTOPLINE	;

* Put up submenu title and submenu title indicator

		LDX	#CPHPOSITION	;Horizontal position
		LDY	#SPOSITION-2	;Vertical position
		JSR	FIXVTAB	;Move there
		JSR	PR1BLNKFF	;Print a space
		CLC		;Calc msg num for title of submenu screen
		LDA	CURSCRN	;Screen number chosen is offset
		ADC	#CPLN1	;Add starting message number
		JSR	PRINTMSG	;Print submenu title
		JSR	FILLINVSPACE	;Fill rest of line with inverse space

* Clear submenu screen area.

RSTPORTMENU	EQU	*
		STZ	CURLINE	;Start on 1st line always
		LDY	#SPOSITION-1	;Clear from here
		JSR	CLRTOBTM	;Clear to end of screen
		LDY	#SPOSITION-1	;Vertical position to start submenu screen
		JSR	ADDBOTTOM2	;Top line of submenu

* Setup submenu zero page variables

		JSR	GETSTATNUM	;Set up submenu information

* Put up submenu border

		JSR	PRINTBORDER	;

* Get latest clock values

		LDX	#$04	;Push 8 bytes on stack
		JSR	PUSH	;
		IF IS512 <> 0 THEN
		ELSE
		LONGI	ON
		LDX	#RTHFN*256+MTN	;Function number/Misc Tool number
		LONGI	OFF
		JSL	>DISPATCH1	;Call main Tool Locator
		ENDIF
		SEP	#$30	;8 bit land a must now
		PLA		;Recall second count
		STA	ZSECOND	;Save in zero page
		PLA		;Recall minute count
		STA	ZMINUTE	;Save in zero page
		PLA		;Recall 24 hour time
		STA	Z24HOUR	;Save in zero page

		PLA		;Recall year count
		CMP	#$64	;If >= $64 (100 decimal) then subtract $64
		BCC	@123	;< then save without subtracting 100
		SBC	#$64	;Offset for years >= the year 2000
@123		EQU	*
		STA	ZYEAR	;Save in zero page
		PLA		;Recall day count
		STA	ZDAY	;Save in zero page
		PLA		;Recall month count
		STA	ZMONTH	;Save in zero page
		PLA		;Eat null byte
		PLA		;Eat day of week
		LDA	>USERDATE	;Move to zero page
		STA	ZDATE	;
		LDA	>USERAMPM	;
		STA	ZAMPM	;

* Put up submenu screen chosen

		JSR	PRTMODEM	;CHK for printer/modem screen
		BNE	@125	;BRA if not 1st line of prt/modem
		JSR	SELECTLINE	;Fool to 2nd line 
		BRA	RSTSBMENU	;Continue on
@125		EQU	*
		STZ	NEWLINE	;Be sure to inverse 1st item 1st line
		JSR	PRINTSBMENU	;Print submenu
		STZ	CURLINE	;Start on 1st submenu line always

* Select which line on submenu to act on

RSTSBMENU		EQU	*
		LDA	CURLINE	;Must preserve around PRINTSBMENU call
		STA	NEWLINE	;Save for print routine
		PHA		;
		JSR	PRINTSBMENU	;Print submenu
		PLA		;Recall CURLINE
		STA	CURLINE	; and restore.
		JSR	SELECTLINE	;Select submenu line number to do
		CMP	#$00	;=0 then reshow screen
		BEQ	RSTSBMENU	;
		CMP	#ESCKEY	;Escape pressed then back to main menu
		BNE	NOTESC	;
RSTSBMENU2	EQU	*
		SEC		;'c'=1 indicates do NOT do slt designation
		JSL	>TOBRAMSETUP	;Reset setup parameters
		JMP	MAINMENU	;Restart main menu

NOTESC		EQU	*
		CMP	#RETURNKEY	;If return write data to BATTERYRAM
		BEQ	@11	;BRA if CR pressed
		JMP	NOTCRETURN	;

@11		EQU	*
		LDA	CURSCRN	;Which screen were we on?
		CMP	#CPLN4-CPLN1	;If it's the time screen reset the clock
		BNE	@12	;

		IF IS512 <> 0 THEN
		ELSE
		LDA	ZMONTH	;Push month on stack for WriteTime call
		PHA		;
		LDA	ZDAY	;Push day on stack for WriteTime call
		PHA		;
		LDA	ZYEAR	;Push year on stack for WriteTime call
		CMP	#40	;If =< then add $64
		BCS	@2	;
@1		EQU	*	;Add $64 (100 decimal) to the year
		CLC		;Clear carry to add
		ADC	#$64	;Add offset
@2		EQU	*
		PHA		;
		LDA	Z24HOUR	;Push hour on stack for WriteTime call
		PHA		;
		LDA	ZMINUTE	;Push minute on stack for WriteTime call
		PHA		;
		LDA	ZSECOND	;Push second on stack for WriteTime call
		PHA		;
		REP	#$30	;16 bit land a must for tool calls
		LONGI	ON
		LDX	#WTHFN*256+MTN	;Function number*256 + Misc Tool number
		LONGI	OFF
		JSL	>DISPATCH1	;Call main Tool Locator
		SEP	#$30	;Back to 8 bit land
		ENDIF

		BRA	@18	;
@12		EQU	*
		CMP	#CPLN9-CPLN1	;If it's RAM Disk then send parameters
		BNE	@18	;Skip RAM Disk parameter send stuff
@13		EQU	*
		IF IS512 <> 0 THEN
		ELSE
		REP	#$30	;16 bit land required for all tool calls
		LONGI	ON
		LDX	#SRDSZN*256+RDN	;Function num*256 + RAM Disk call num
		LONGI	OFF
		JSL	>DISPATCH1	;Go through tool locator
		SEP	#$30	;Back to 8 bit land
		ENDIF

@18		EQU	*
		JSR	WARNPROMPT	;Maybe put up a warning prompt
		BCS	RSTSBMENU	;Restart same screen

		LDA	>USERXRAM
		STA	>USERRSTRAM
		BEQ	@20_1
		LDA	#$00
		STA	>RAMDSKPWRUP
@20_1		EQU	*
		LDA	>USERMRAM
		STA	>USERXRAM

* If slot screen is properly sets up, then need to copy USERSLT1 to
* SPCLSLT1 and then play around for USERSLT1 so that AppleTalk can
* function properly with System disk <= 4.0 !!!
* If slot7 is set to 'Your Card', then USERSLT1 = SPCLSLT1 
* Also needs to update 'Device Connected' in Printer Port/Modem
* Port respectively since users can't change it.  

		LDA	>USERSLT1	;Update SPCLSLT1 w/ USERSLT1
		STA	>SPCLSLT1	; 
		TAX		;Save 'A'
		BEQ	@22	;BRA for 'printer,0' -> 'printer,0'
		DEC	A	;
		BEQ	@26	;BRA for 'Your Card,1' -> 'Your Card,3'
		DEC	A	;
		BEQ	@24	;BRA for 'AppleTalk,2' -> 'AppleTalk,2'
		DEC	A	;
		BEQ	@25	;Should be 'Modem,3' -> 'Modem,1'
		DEC	A
@26		EQU	*
		INC	A
@24		EQU	*
		INC	A	;
@25		EQU	*
		INC	A
@22		EQU	*
		STA	>USERPORT1	;Set proper value for USERPORT1

@23		EQU	*
		LDA	>USERSLT2	;DO the same for slot2 and Modem Port
		BEQ	@31	;BRA for 'Modem, 0 ' -> 'Modem, 1'
		DEC	A	;
		BEQ	@36	;Bra for 'Your Card, 1' -> 'Your Card,3'
		DEC	A	;
		BEQ	@32	;BRA for 'AppleTalk, 2' -> 'ApTalk,2'
		DEC	A	;
		BEQ	@33	;BRA for 'Printer, 3' -> 'Printer,0'
		DEC	A
@36		EQU	*
		INC	A
@32		EQU	*
		INC	A
@31		EQU	*
		INC	A
@33		EQU	*
		STA	>USERPORT2	;Update it
@35		EQU	*
		LDA	>USERSLT7	;Get slot7 configuration
		BNE	@19	;BRA if set to 'Your Card'
		TXA		;Get back 'A'
		CMP	#$02	;Is slot1 selected for ApTalk
		BEQ	@20	;If 2, make it 1 for 'Your Card'
		LDA	#$01	;Else make it $00, other than ApTalk
@20		EQU	*
		DEC	A	;Adjust for old ApTalk Disk to run
		STA	>USERSLT1	;Update it
@19		EQU	*
		JSL	>TOWRITEBR	;Write info from BRAM buff to BATTERYRAM
		JMP	RSTSBMENU2	;Restart same menu after setup

NOTCRETURN	EQU	*
		PHA		;Save key pressed
		BIT	STATBYTE	;Bit 6 = normal/special change function
		BVS	SPECCHANGE	;'v'=1 then special change function
RDYTSTKEY		EQU	*
		JSR	GETUSROPT0	;Get option shown currently on screen
		PLX		;Recall keypressed
		JSR	TSTKEYNOW	;Now test key pressed
		JSR	WARNPROMPT	;Maybe put up a warning prompt
		JMP	RSTSBMENU	;Restart submenu screen

TSTKEYNOW		EQU	*
		CPX	#LEFTAKEY	;Test for left or right arrow
		BEQ	DECOPTION	;Decrement option if left arrow
		TAX		;Save 'a'
		JSR	CHKGSC	;Check for GSc machine
		BCS	@1	;BRA if not
		LDA	CURLINE	;What line of slot screen ?
		BEQ	@2	;
		CMP	#$01	;
		BNE	@1
@2		EQU	*
		TXA		;CHK if currently at 'default one'
		BNE	@11
		INC	A	;Else add one more to skip over
		BRA	@11	;
@1		EQU	*
		TXA
@11		EQU	*
		INC	A	;Increment to next option
		CMP	NUMOPTS	;If at max then wrap to first item
		BCC	LRNORMEXIT	;< then no right arrow wrapping
		LDA	#$00	;Minimum option number = 0

LRNORMEXIT	EQU	*	;Left/right arrow normal exit
		STA	[BRAMPTR],Y	;Save back as new user option
		CLC		;Clear carry to add
		LDA	CURLINE	;Calculate message number of line were on
		TAX		;Save in 'X' for PRINTLINE
		ADC	NUMFIRSTLN	;Offset + 1st line msg # = correct msg num
		JSR	PRINTLINE	;Print line
		JMP	PRINTOPTION	;Print line's new option

DECOPTION		EQU	*	;Left arrow was pressed if here
		TAX		;Sets 'z'
		BNE	@1	;= then left arrow wrap must occur
		LDA	NUMOPTS	;Pick up max option number to wrap
		BRA	@11
@1		EQU	*
		JSR	CHKGSC
		BCS	@2
		LDA	CURLINE
		BEQ	@3
		CMP	#$01
		BNE	@2
@3		EQU	*
		TXA
		CMP	#$02
		BNE	@11
		DEC	A
		BRA	@11
@2		EQU	*
		TXA
@11		EQU	*
		DEC	A	;Decrement to next option
		BRA	LRNORMEXIT	;Exit through common exit point


SPECCHANGE	EQU	*	;'v'=1 then special change function
		JSR	GETUSROPT0	;Get option shown currently on screen
		LDX	CURSCRN	;Which screen we on?
		BEQ	CHDISP	;=0 then its display screen change
		CPX	#CPLN2-CPLN1	;
		BEQ	CHSOUND	;= then its sound screen change
		CPX	#CPLN4-CPLN1	;
		BEQ	@1	;= then its clock screen change
		CPX	#CPLN9-CPLN1	;
		BEQ	@2	;= then its ramdisk screen change
		PLA		;Recall keypress from stack
		JMP	MAINMENU	;Return to main menu for now

@1		EQU	*
		JMP	CHCLOCK	;Off to change clock routine

@2		EQU	*
		JMP	CHRAMDSK	;Off to change ramdisk routine


CHDISP		EQU	*	;Display screen change requested
		LDA	CURLINE	;Which line we on?
		CMP	#DISPLN7-DISPLN1	;On 'Standards' line?
		BNE	@10	;<>= then don't put up standard colors
		PLA		;Pull keystroke from stack
		LDX	#2	;Move 3 bytes
@13		EQU	*
		LDA	>DISPDFTT,X	;Default parameters
		STA	>USERTEXT,X	;Save as new user parameters
		DEX		;
		BPL	@13	;Loop til 3 bytes moved
		BRA	@12	;

@10		EQU	*
		CMP	#DISPLN3-DISPLN1	;< then do normally
		BCS	@11	;> or = then special stuff
		JMP	RDYTSTKEY	;Go to normal loop

@11		EQU	*
		JSR	GETUSROPT0	;Get option shown currently on screen
		PLX		;Recall keypressed
		CPX	#LEFTAKEY	;Test for left or right arrow
		BEQ	@14	;Decrement option if left arrow
@11_1		EQU	*
		INC	A	;Increment to next option
		CMP	NUMOPTS	;If at max then wrap to first item
		BCC	@11_2	;< then no right arrow wrapping
		LDA	#$00	;Minimum option number=0

@11_2		EQU	*	;Left/right arrow normal exit
		JSR	TSTTXTBGD	;Test text color vs background color
		BCS	@11_1	;'c'=1 then increment one more time
@12		EQU	*	;Left/right arrow normal exit
		LDA	CURLINE	;Save line number we're on
		PHA		;
		LDY	#SPOSITION	;Vertical position for 1st line
		STY	CV	;
		STZ	CURLINE	;Needed to redraw screen
		JSR	DISPSBM	;
		BRA	BK2SBMENU	;Restart submenu

@14		EQU	*	;Left arrow was pressed if here
		TAX		;Sets 'z'
		BNE	@16	;= then left arrow wrap must occur
		LDA	NUMOPTS	;Pick up max option number to wrap
@16		EQU	*
		DEC	A	;Decrement to next option
		JSR	TSTTXTBGD	;Test text color vs background color
		BCS	@14	;'c'=1 then decrement one more time
		BRA	@12	;Exit through common exit point


CHSOUND		EQU	*	;Sound screen change requested
		PLX		;Recall keypress from stack
		JSR	TSTKEYNOW	;Test key end do option change

		LDA	SOUNDCTL	;Change low nybble only
		AND	#$F0	;
		ORA	>USERVOL	;What's user volume?
		STA	SOUNDCTL	;Alter user's volume
		AND	#$0F	;What's user volume?
		STA	>IRQ_VOLUME	;Save as new interrupt manager value
		ASL	A	;Shift to hi nybble for Ensoniq routines
		ASL	A	;
		ASL	A	;
		ASL	A	;
		STA	>SYSVOLLOC	;Save for Ensoniq sound routines

		JSR	NEWBELL1	;Let user hear new volume/chimes
		BRA	BK2SBMENU2	;Return to sub menu for now


CHRAMDSK		EQU	*	;Ramdisk screen change
		PLX		;Recall ke}pressed
		CPX	#LEFTAKEY	;Test for left or right arrow
		BEQ	CHRAMDISK6	;Decrement option if left arrow
		INC	A	;Increment to next option
		LDX	NUMOPTS	;If 0 then wrapping is automatic
		BEQ	CHRAMDISK2	;
		CMP	NUMOPTS	;If at max then wrap to first item
		BCC	CHRAMDISK2	;< then no right arrow wrapping
		LDA	#$00	;Minimum option number=0

CHRAMDISK2	EQU	*	;Left/right arrow normal exit
		STA	[BRAMPTR],Y	;Set maxi option = mini option

		LDA	CURLINE	;Remember which line we're on
		PHA		;
		STZ	CURLINE	;Needed to redraw screen
		JSR	RAMDSKSBM	;Reshow sceen
BK2SBMENU		EQU	*	;Return to current submenu
		PLA		;Recall user's line number
		STA	CURLINE	;
BK2SBMENU2	EQU	*	;Return to current submenu
		JMP	RSTSBMENU	;Restart screen

CHRAMDISK6	EQU	*	;Left arrow was pressed if here
		TAX		;Sets 'z'
		BNE	@18	;= then left arrow wrap must occur
		LDX	NUMOPTS	;If 0 then wrapping is automatic
		BEQ	@18	;
		LDA	NUMOPTS	;Pick up max option number to wrap
@18		EQU	*
		DEC	A	;Decrement to next option
		BRA	CHRAMDISK2	;Exit through common exit point


CHCLOCK		EQU	*	;Clock screen change
		JSR	GOCHECKDAY	;Go check day
		LDA	|ZMONTH,Y	;Get current option value
		PLX		;Recall keypressed
		CPX	#LEFTAKEY	;Test for left or right arrow
		BEQ	@16	;Decrement option if left arrow
		INC	A	;Increment to next option
		CMP	NUMOPTS	;If at max then wrap to first item
		BCC	@12	;< then no right arrow wrapping
		LDA	#$00	;Minimum option number=0

@12		EQU	*	;Left/right arrow normal exit
		STA	|ZMONTH,Y	;Save back in zero page

		LDA	ZDATE	;Move to user save area
		STA	>USERDATE	;
		LDA	ZAMPM	;
		STA	>USERAMPM	; for use by scveen display.

		LDA	CURLINE	;Remember which line we're on
		PHA		;
		STZ	CURLINE	;Needed to redraw screen
		JSR	GOCHECKDAY	;Modify day if needed
		JSR	RSTCLOCKSBM	;Reshow sceen
		BRA	BK2SBMENU	;Restart screen

@16		EQU	*	;Left arrow was pressed if here
		TAX		;Sets 'z'
		BNE	@18	;= then left arrow wrap must occur
		LDA	NUMOPTS	;Pick up max option number to wrap
@18		EQU	*
		DEC	A	;Decrement to next option
		BRA	@12	;Exit through common exit point

GOCHECKDAY	EQU	*
		CPY	#CLOCKLN4-CLOCKLN1	;On month/day/}ear line?
		BCS	@11_8	;If not, use NUMOPTS already calculated
		LDX	ZMONTH	;What's the current month?
		LDA	ZYEAR	;What's the current year?
		AND	#$03	;Leap year?
		BNE	@123	; Nope
		CPX	#$01	;If yes, is it February
		BNE	@123	;Nope
		LDX	#$0C	;If February and leap year.
@123		EQU	*
		LDA	>MONTHLEN,X	;Get maximum days in month
		CPY	#CLOCKLN2-CLOCKLN1	;Are we on day line?
		BNE	@11_2	;No then don't change NUMOPTS
		STA	NUMOPTS	;Save as new number of options
@11_2		EQU	*
		DEC	A	;'A' contains real day+1 to start
		CMP	ZDAY	;?Test current day against maximum
		BCS	@11_8	;>= then all's OK
		STA	ZDAY	;
@11_8		EQU	*
		RTS		;Back to caller




		TITLE	'Print Subroutines'

******************************************************
*                                                    *
* Print Subroutines for Control Panel Desk Accessory *
*                                                    *
*                    by                              *
*               Fern Bachman     1985-1987           *
*               Joe Bo           1987-1989           *
*                                                    *
*       Copyright Apple Computer, Inc. 1985-1989     *
*                All Rights Reserved.                *
*                                                    *
******************************************************


FIXVTAB0X		EQU	*	;Start at left side of screen
		LDX	#$00	;To do that 'X' must be $00
FIXVTAB		EQU	*
		PHA		;Save 'A'
		TXA		;Maybe change horizontal offset?
		CLC		;
		BIT	RD80VID	;Are we using 80 columns?
		BPL	@1	;+ then we aren't.
		ADC	#20	;Add 20 byte horizontal offset
@1		EQU	*
		TAX		;Move horizontal position to 'X'
		JSR	SETVTAB	;Move there
		PLA		;Recall print index
		RTS		;Back to caller


PRTTOPBOX		EQU	*	;Print top of box
		LDA	#TOPBOX	;Top of box message number

PRTMSGXPR		EQU	*	;Print box starting at PRPOSITION
		LDX	#PRPOSITION	;Horizontal box position

PRINTMSGXY	EQU	*
		JSR	FIXVTAB	;Fix up print position
GOPRINTMSG	EQU	*
		JMP	PRINTMSG	;Print approprmate message


PRTTITLE		EQU	*	;Print title
		LDX	#CPHPOSITION	;HTAB position
		LDY	#CPVPOSITION	;Vertical position
		LDA	#CPTITLE	;Print title
		BRA	PRINTMSGXY	;Exit via print routine


PRTOPT		EQU	*	;Print an option
		CLC		;Calculate message number
		LDA	[OPTPTR],Y	;Starting option number
		ADC	[BRAMPTR],Y	;Add user option as offset to 1st msg num
		BRA	GOPRINTMSG	;Print option message


PRINTEDGES	EQU	*	;Print sides of border
		LDY	#CPVPOSITION	;Vertical position to start all borders
@1		EQU	*
		PHY		;Wave vertical position
		JSR	FIXVTAB0X	;Left border of screen
		LDA	#RIGHTLINE	;Left side border
		JSR	COUTFF	;
		PLY		;Recall vertical position
		PHY		; and resave it.
		LDX	#$27	;Right side of screen
		JSR	FIXVTAB	;
		LDA	#LEFTLINE	;Right side border
		JSR	COUTFF	;
		PLY		;Recall vertical position
		INY		;Next line down
		CPY	#FNPOSITION	;Border edges to FNPOSITION
		BCC	@1	;
		BEQ	@1	;Loop on = too
		RTS		;Back to caller

PRINTBORDER	EQU	*
		JSR	PRINTEDGES	;Print edges of border

* Determine which footnote to display and display it

		LDX	#CPHPOSITION+1	;Horizontal position
		LDY	#FNPOSITION	;Vertical position
		LDA	#TOSELUSE	;Always print 'Select:'
		JSR	PRINTMSGXY	;Print footnotes

		LDA	CURSCRN	;Main screen then print ^ v only
		CMP	#CPQUIT-CPLN1	;Same as Quit option then on main screen
		BEQ	@1	; if main screen then print$^ v only

		LDA	#LRSEL	;Message number
		JSR	PRINTMSG	;Print it
		LDA	NUMLINES	;Test number of lines to determine prompts
		CMP	#$01	;= then < > else < > ^ v
		BEQ	@2	;No more footnote if = 

@1		EQU	*
		LDA	#UDSEL	;Message number
		JSR	PRINTMSG	;Print it

@2		EQU	*
		LDA	STATBYTE	;Check which boxes to display
		AND	#$30	;Bit4=Open-Cancel/Sve | Bit5=no clk or clk
		ASL	A	;Shift into 'c'/bit 7
		ASL	A	;
		ASL	A	;
		PHP		;Save status for clock checking later
		BMI	DOCANSVE	;'-' then cancel/save

		LDA	#OPENCR	;?Message
		BRA	PRINTBORDER4	;

DOCANSVE		EQU	*
		LDA	#CANCELESC	;Message
		JSR	PRINTMSG	;Print message

		LDA	#SAVECR	;Message

PRINTBORDER4	EQU	*
		JSR	PRINTMSG	;Print message
		PLP		;Recall clock status
		BCC	ADDBOTTOM	;'c'=0 then no clock
		JSR	PRINTCLK	;'c'=1 then print cloco box


ADDBOTTOM		EQU	*
		LDY	#FNPOSITION+1	;Vertical position
ADDBOTTOM2	EQU	*
		LDX	#$01	;Start in first column
		JSR	FIXVTAB	;
		LDA	#TOPLINE	;Bottom line char is TOPLINE
		JMP	FILLREST	;Finish bottom in this routine


* Print clock box, read time and display time in clock box

PRINTCLK		EQU	*	;Print Clock in box
		LDY	#CLKPOSITION	;Vertical position
		JSR	PRTTOPBOX	;Print top of box

		LDY	#CLKPOSITION+1	;Vertical position
		LDA	#SPACEBOX	;Message
		JSR	PRTMSGXPR	;Print message at PRPOSITION

		LDY	#CLKPOSITION+2	;Vertical position
		LDA	#SPACEBOX	;Message
		JSR	PRTMSGXPR	;Print message at PRPOSITION

PRINTCLK0		EQU	*	;Interrupt entry point
		PHP		;No interrupts in here
		SEI		;

		IF IS512 <> 0 THEN
		BRA	DUMMYTIME	;Skip ASCII message

	; SEG $FF
DUMMYTASCII	EQU	*
	; SEG $00
		DC.B	'  ROM!   No Bank FE '

DUMMYTIME		EQU	*
		LDX	#$00	;Start with 1st byte
DTLOOP		EQU	*
		LDA	>DUMMYTASCII,X	;Move ASCII to buffer
		STA	CASCIITIME,X	;
		INX		;
		CPX	#20	;Move 20 characters max
		BCC	DTLOOP	;

		ELSE

		REP	#$30	;16 bit land a must for tool call
		PEA	$0000	;Sets up ASCII time (Null byte and bank)
		PEA	CASCIITIME	;Address of buffer
		LONGI	ON
		LDX	#RATFN*256+MTN	;Function number/Misc Tool number
		LONGI	OFF
		JSL	>DISPATCH1	;Call main Tool Locator

		ENDIF
		SEP	#$30	;8 bit land a must now

		LDX	#PRPOSITION+2	;Horizontal position
		LDY	#CLKPOSITION+1	;Time line
		JSR	FIXVTAB	;
		LDA	>USERAMPM	;0='AM/PM' - 1='24 HR'
		BEQ	@2	;=0 then don't change offset
		JSR	PR1BLNKFF	;Print a blank to offset by 1
@2		EQU	*
		LDX	#TIME-CASCIITIME	;Move first byte on first
@4		EQU	*
		LDA	>CASCIITIME,X	;
		PHX		;Preserve 'X' index
		JSR	COUTFF	;Print character to screen
		PLX		;Recall 'X'
		INX		;Decrement counter
		CPX	#20	;Stop at 'X'=20
		BCC	@4	;Loop til done

		LDX	#PRPOSITION+3	;Horizontal position
		LDY	#CLKPOSITION+2	;Vertical position
		JSR	FIXVTAB	;
		LDX	#DATE-CASCIITIME	;Move first byte on first
@6		EQU	*
		LDA	>CASCIITIME,X	;
		PHX		;Preserve 'X' index
		JSR	COUTFF	;Print character to screen
		PLX		;Recall 'X'
		INX		;Decrement counter
		CPX	#8	;Stop at 'X'=8
		BCC	@6	;

		PLP		;Restore interrupt status
		LDY	#CLKPOSITION+3	;Vertical position
		LDA	#BOTTOMBOX	;Bottom of box
		JMP	PRTMSGXPR	;Do it to it


FILLDBLBAR	EQU	*
		LDA	#DOUBLEBAR	;Fill character is double bar
		BRA	FILLREST1	;

FILLTOPLINE	EQU	*
		LDA	#TOPLINE	;Fill character is top line
		BRA	FILLREST3	;

FILLINVSPACE	EQU	*
		LDA	#INVSPACE	;Fill character is inverse space
		BRA	FILLREST1	;

FILLSPACE		EQU	*
		LDA	#SPACE	;Fill character is space
		BRA	FILLREST3	;No right line wanted here

FILLREST		EQU	*	;Fill rest of line with character in 'A'
		PHA		;Preserve fill character
		BRA	FILLREST2	;Skip RIGHTLINE stuff

FILLREST1		EQU	*	;Fill rest of line with character in 'A'
		PHA		;Preserve fill character
		LDA	#RIGHTLINE	;Right line character needed

FILLREST2		EQU	*
		JSR	COUTFF	;
		PLA		;Restore fill character

FILLREST3		EQU	*
		PHA		;Preserve fill character
		LDA	CH	;Assume 40 column display
		BIT	RD80VID	;If in 80 columns get CH from OURGH
		BPL	@5	;'+' use CH
		LDA	OURCH	;'-' user OURCH (80 column CH)
		SEC		;Prepare to subtract
		SBC	#20	;Subtract 80 column offset
@5		EQU	*
		TAX		;'X' contains counter
		PLA		;Restore fill character

@7		EQU	*
		CPX	#39	;Stop on CV = 39
		BCS	FILLREST8	;Exit if here
		PHX		;Save horizontal index
		PHA		;Save fill character
		JSR	COUTFF	;
		PLA		;
		PLX		;
		INX		;Increment to next horizontal position
		BRA	@7	;Loop til done


* PRINTRAM determines what RAM value should
* be converted from Hex to Decimal and prints it
* on the RAMDISK screen.

PRINTRAM		EQU	*	;Print RAM value for RAMDISK screen
		JSR	GETUSROPT	;'A' contains low byte
		TAY		; and save as index for later.
		TXA		;On first line
		BEQ	PRINTRAM0	;Do it

		REP	#$20	;16 bit 'm' required here
		CPX	#RAMDSKLN3-RAMDSKLN1	;On 3rd line of RAMDISK screen?
		BEQ	PRINTRM2	;= then on line 3
		CPX	#RAMDSKLN5-RAMDSKLN1	;On 5th line?
		BEQ	PRINTRM4	;= then on line 5
		CPX	#RAMDSKLN6-RAMDSKLN1	;On 6th (last) line?
		BEQ	PRINTRM6	;= then on line 6
		CPX	#RAMDSKLN7-RAMDSKLN1	;On 7th (last) line?
		BEQ	PRINTRM8	;= then on line 7
		SEP	#$30	;Exit in 8 bit land

FILLREST8		EQU	*
		RTS		;If here then on '  ' line


PRINTRM2		EQU	*
		LDA	FREERAM+1	;Free RAM for Ramdisk
		BRA	PRINTRM9	;

PRINTRM4		EQU	*
		LDA	CURRENTRAM+1	;Current Ramdisk Size
		BRA	PRINTRM9	;

PRINTRM6		EQU	*
		LDA	PROGRAMRAM+1	;RAM Used for Program
		BRA	PRINTRM9	;

PRINTRM8		EQU	*
		LDA	TOTALFRAM+1	;Total RAM in use
PRINTRM9		EQU	*
		LSR	A	;Divide by 2 ten times this way
		LSR	A	;
		BRA	PRINTRAM1_8	;

PRINTRAM0		EQU	*	;First line of screen
		REP	#$20	;Must do in 16 bit mode
		LONGA	ON
		LDA	#$8000	;32768 (32K) increments used
		LONGA	OFF
		STA	SHIFTER	;Save in counter
		STZ	SHIFTER+2	;Zero out hi bytes

		PEA	$0000	;Make room for sum on stack
		PEA	$0000	;
		CLC		;Clear carry for 1st add
@1		EQU	*
		DEY		;Decrement addition counter
		CPY	#$FF	;Decremented below $00 then done
		BEQ	@1_2	;'-' then use $0000 as value
		LDA	1,S	;Summing value
		ADC	SHIFTER	;Add 32K to sum
		STA	1,S	;Resave on stack
		LDA	3,S	;
		ADC	SHIFTER+2	;
		STA	3,S	;Resave on stack
		ADC	1,S	;Else add 32k to sum
		BRA	@1	;Loop always

@1_2		EQU	*
		PLX		;Remove a byte from stack
		PLA		;Result to show to user
		LSR	A	;Converted to 'K'ilobytes
		LSR	A	;
		PLX		;Remove last excess byte from stack

PRINTRAM1_8	EQU	*
		SEP	#$30	;Back to 8 bit land
		XBA		;Hi nybble to low nybble
		TAX		;Put hi byte in 'X' for printing
		XBA		;Lo byte in 'A' for printing
		CLC		;'c'= 0 to right justify


* Convert hex value to decimal and display
* it on the screen at the current CV/CH position.
*
* Hex number to convert to decimal ASCII
* is transmitted to this subroutine in 'A' and 'X'.
*       'A'=lo byte      'X'=Hi byte
*
*       'c'=0 to right justify decimal ASCII
*       'c'=1 to left justify decimal ASCII
*

MKDECASC		EQU	*
		STA	A2L	;Lo byte into A2L
		STX	A2H	;Hi byte into A2H
		ROR	YSAV	;'+'/'-'=rt/lft justify decimal ASCII
		LDY	#$05	;Number of times in loop
@1		EQU	*
		LDX	#16+1	;16 bits and 1st time do nothing
		LDA	#$00	;
		CLC		;C=0 so first ROL leaves A=0
@2		ROL	A	;
		CMP	#10	;A >= 10?
		BCC	@4	;Branch if <
		SBC	#10	;C=1 frm CMP and is left set
@4		ROL	A2L	;
		ROL	A2H	;
		DEX		;
		BNE	@2	;
		ORA	#$B0	;Make an ascii char
		PHA		;Preserve data on stack
		DEY		;
		BNE	@1	;

		LDY	#$04	;Maximum number of bytes to print-1
@6		EQU	*
		PLA		;Recall byte to print
		CMP	#$B0	;'0' then don't print it
		BNE	@9	;
		BIT	YSAV	;- then left justify else right justify
		BMI	@7	;For left justification only
		TYX		;Test for 'Y'=0
		BEQ	@7_4	;If 'Y'=0 then do NOT print a ' '
		PHY		;Preserve 'Y'
		PHA		;Preserve character to print
		JSR	PR1BLNKFF	;Put a space on screen
		PLA		;Recall character to print
		PLY		;Recall 'Y'
@7		EQU	*
		DEY		;Decrement counter
		BPL	@6	;Don't print preceeding '0's

@7_4		EQU	*
		JMP	COUTFF	;Print only '0'

@8		EQU	*
		PLA		;Recall converted value to print
@9		EQU	*
		PHY		;
		JSR	COUTFF	;Print value
		PLY		;Recall registers
		DEY		;
		BPL	@8	;
		RTS		;Return to caller


* If Port 1 / Port 2 are all selected for 
* AppleTalk at the same time this routine
* displeys a prompt on the Printer or Modem    
* Port screen.
*
* If they are not all active, this routine
* erases the part of the screen where the
* prompt would normally appear.

WARNPROMPT	EQU	*
		LDA	CURSCRN	;Which screen we on?
		CMP	#CPLN7-CPLN1	;If Printer Port screen do some stuff
		BNE	@1	;BRA if not
		LDA	#$00	;Zero out serial port1 indicator flag
		STA	>C1FLAG	;
		JSR	GETSTATNUM	;Set up submenu information
		LDA	>USERPORT1	;If =2 then AppleTalk selected
		CMP	#$02	;
		BNE	NOSHRINK	;BRA if not
		JSR	CHPORTMENU	;Shrink the display for ApTalk 

@1		EQU	*
		CMP	#CPLN8-CPLN1	;Else check for Modem Port screen
		BNE	@3	;BRA to check for two ApTalk
		LDA	#$00	;Zero out serial port2 indicatior flag
		STA	>C2FLAG	;
		JSR	GETSTATNUM	;
		LDA	>USERPORT2	;
		CMP	#$02	;Port1 already ApTalk, chk port2
		BNE	NOSHRINK	;Bra if not AppleTalk selected
		JSR	CHPORTMENU	;Shrink the display for$ApTalk

@3		EQU	*

		LDA	CURSCRN	;Get current screen again
		CMP	#CPLN6-CPLN1	;Check for slot screen
		BNE	NOT2APTALK	;BRA to end if not slot screen
		LDA	>USERSLT1	;Get slot1 assignmnet, 2=AppleTalk
		CMP	#$02	;Is it assigned for AppleTalk ?
		BNE	@4	;BRA if not
		EOR	>USERSLT2	;Check with slot2 assignment
		BNE	@4	;<>0 then all's fine
		LDA	#TWOAPTALK	;Message number
		LDY	#WPOSITION	;Vertical position
		BRA	@5	;Display warning message
@4		EQU	*
		LDA	>USERSLT7	;CHK slot7 configuration
		BEQ	@6	;BRA if slot7=ApTalk
		LDA	>USERSLTST	;CHK 'StartUp' selection
		CMP	#$0A	;Is it set to boot from ApTalk
		BNE	NOT2APTALK	;BRA if all is fine
@6		EQU	*
		LDA	#$02	;If slot7=ApTalk, then chk slot1/slot2
		CMP	>USERSLT1	; either slot1 or slot2 needs to be 
		BEQ	NOT2APTALK	; set to AppleTalk
		CMP	>USERSLT2	;If slot1 not ApTalk, chk slot2
		BEQ	NOT2APTALK	;BRA if all's fine
		LDA	#APS1S2L1	;Message number
		LDY	#WPOSITION	;Vertical position
		JSR	@5	;Print error message
		LDA	#APS1S2L2	;Message number
		LDY	#WPOSITION+1	;Vertical position
@5		EQU	*
		LDX	#$01	;Vertical position
		JSR	PRINTMSGXY	;Display warning message
		SEC		;'C' = 1 on bad exit
		RTS		;Back to caller with prompt on screen

NOT2APTALK	EQU	*
NOTALLON		EQU	*
		LDY	#WPOSITION	;Vertical position
		JSR	@1	;Space out rest of line
		LDY	#WPOSITION+1	;Continue to clean next line
@1		EQU	*
		LDX	#$01	;Horizontal position
		JSR	FIXVTAB
		LDA	#SPACE
		JSR	FILLREST	;Space out rest of line
NOSHRINK		EQU	*
		CLC		;'C'=0 if ok      
		RTS		;Back to caller

CHPORTMENU	EQU	*
		LDY	#$0A	;
		JSR	CLRTOBTM	;
		JSR	PRINTBORDER	;
		RTS


CENTERALINE	EQU	*
		LDA	#CENTERLINE	;Print a centerline mouse text character
		JMP	COUTFF	;


ALLBORDER		EQU	*
		LDX	#CPHPOSITION	;Horizontal position of start of border
		LDY	#CPVPOSITION-1	;Vertical position of start of border
		JSR	FIXVTAB	;Move to position
		LDA	#BOTTOMLINE	;Output 1 char to set OURCH if in 80 cols
		JSR	FILLREST	;Put in underline stuff
		JSR	PRINTEDGES	;Put up edges
		JMP	ADDBOTTOM	;Put up bottom of screen


UNDERTITLE	EQU	*	;Fill title line and underline it
		JSR	FILLINVSPACE	;Fill rest of line with inverse space

* Put line under main title

		LDX	#CPHPOSITION	;Horizontal position
		LDY	#CPVPOSITION+1	;Vertical position
		JSR	FIXVTAB	;Move to position
		LDA	#TOPLINE	;Output 1 char to set OURCH if in 80 cols
		JMP	FILLREST	;Put in top line stuff



		TITLE	'Print Sub Menu Screens'

******************************************************
*                                                    *
*  Print Sub Menus for Control Panel Desk Accessory  *
*                                                    *
*                    by                              *
*               Fern Bachman     1985-1987           *
*               Joe Bo           1987-1989           *
*                                                    *
*       Copyright Apple Computer, Inc. 1985-1989     *
*                All Rights Reserved.                *
*                                                    *
******************************************************


PDISPSBM		EQU	*	;Show display screen
		JMP	DISPSBM	;

PRSTCLOCKSBM	EQU	*	;Show clock screen
		JMP	RSTCLOCKSBM	;

PRAMDSKSBM	EQU	*	;Show ramdisk screen
		JMP	RAMDSKSBM	;


PRINTSBMENU	EQU	*	;Print < >'s and submenu
		LDY	#SPOSITION	;Vertical position for 1st line
		STY	CV	;Save to use later
		LDX	CURSCRN	;Which screen do we display now?
		BEQ	PDISPSBM	;Show display screen
		CPX	#CPLN4-CPLN1	;Is it clock screen?
		BEQ	PRSTCLOCKSBM	;Show clock screen
		CPX	#CPLN9-CPLN1	;Is it ramdisk screen?
		BEQ	PRAMDSKSBM	;Show ramdisk screen
		JSR	GET1STLNUM	;Get 1st line message number

* Print a complete submenu screen

		LDX	#$00	;Counter
@12		EQU	*
		JSR	PRINTLINE	;Print an appropriate line
		BIT	REALLNTBL,X	;'n'=1 then don't print options
		BMI	@13	;
		JSR	PRINTOPTION	;Print options
@13		EQU	*
		INC	CV	;Prepare for the next line
		INC	A	;Increment message number of line
		INX		;Increment counter
		CPX	NUMLINES	; and test to see if done.
		BCC	@12	;Loop til done
		RTS		;Back to caller


* Print a line up to and including ':'.
* 'A' and 'X' registers are preserved.

PRINTLINE		EQU	*
		PHA		;Preserve 'A' and 'X'
		PHX		;
		LDA	REALLNTBL,X	;'-' then message delimiter line only
		PHP		;Save status for later
		LDA	2,S	;Recall line number we are on
		CMP	NEWLINE	;If 'X' = NEWLINE then inverse
		BNE	@4	;<>= then print normally
		JSR	TURNOFFMTXT	;Disable mouse text + enable inverse
@4		EQU	*
		CLC		;Clear carry to ADC to follow
		LDA	#SPOSITION	;Calculate where line goes
		ADC	2,S	;Add line number
		TAY		;Put in 'Y' for PRINTMSGXY
		LDX	#LNPOSITION	;Horizontal position for lines
		LDA	3,S	;Message number
		JSR	PRINTMSGXY	;Go print it
		PLP		;Do ': ' or not?
		PHP		;Place holder on stack
		BMI	@6	;'-' then no ': '
		LDA	#':'	;Colon first
		JSR	COUTFF	;
		JSR	TURNONMTXT	;Always enable mouse text chars here
		JSR	PR1BLNKFF	;Print a space
		LDA	2,S	;Recall line number to act on
		STA	CURLINE	;Save as current line
		JSR	SETUPLNSTUF	;Set up zero page stuff for PRINTLINE

@6		EQU	*
		PLP		;Clear 1 byte off stack
		PLX		;Restore 'X'
		PLA		;Restore 'A'
		RTS		;Back to caller


* Print option prints the option corresponding
* to the value in CURLINE.  SETUPLNSTUFF must be
* called prior to calling PRINTOPTION.
*
* 'A' and 'X' registers are preserved.

PRINTOPTION	EQU	*
		PHA		;Preserve 'A'
		PHX		;Preserve 'X'
		LDX	CURLINE	;Current line user is on
		LDY	REALOPTTBL,X	;Get real offset into tables
		LDA	[BRAMPTR],Y	;Add user option as offset to 1st msg num

		LDX	CURSCRN	;Are we on language screen?
		CPX	#CPLN5-CPLN1	;
		BNE	@7	;If not, continue on      
		TYX		;Set/reset 'z' flag
		BEQ	@6	;
		CPY	#$02	;2 or > then do normally

		IF OPTION4 <> 0 THEN
		BCS	@0	;If not, check disk1/2 ejection
		ELSE
		BCS	@7	;Continue on normally
		ENDIF

		TAX		;Transfer to 'X' index
		LDA	>LAYOUTS+1,X	;Get option number offset to display
		BRA	@7	;

		IF OPTION4 <> 0 THEN
@0		EQU	*
		CPY	#$09	;$09, disk1 eject/ $0A, disk2 eject
		BCC	@7	;If not disk1/2 line, then continue on
		ORA	#$B0	;Else form ASCII to display, 0->$31, 1->$32...
		INC	A	;Make it to start from 0 instead of 1
		PHA		;Temp save
		LDA	#$41	;Display Apple indicator first
		JSR	COUTFF	;Display it]
		LDX	#$FF	;Display '-Shift-' message
@1		INX		; 
		PHX		;Save index
		PHB		;Save data bank
		PHK		;Make data bank = current program bank
		PLB		;Set it
		LDA	SHIFTMSGA,X	;Access message w/ current program bank
		PLB		;Restore the original bank
		JSR	COUTFF	;Display it
		PLX		;Get back index
		CPX	#$06	;Check for end
		BNE	@1	;Bra if not yet
		PLA		;Get back the user selected #
		JSR	COUTFF	;Display it]
		BRA	COMMON	;Continue on to check for default indicator

@2		EQU	*
		CPX	#CPLN6-CPLN1	;Are we on slots screen ?
		BNE	@7	;If$not, continue normally
		PHA		;Save 'A'
		LDA	>KEYUCVER	;CHK FOR GYRO or //gs
		CMP	#$06	;If >= $06 then Gyro
		BCS	@3	;BRA for GYRO,slot3/5 can only be internal 
		PLA		;
		BRA	@7

@3		EQU	*
		PLA		;
		CPY	#$02	;Is it on slot3? Gyro, internal only
		BEQ	@5	;If YES, check for internal only

@4		EQU	*
		CPY	#$04	;Is it on slot5 line of slots screen ?
		BNE	@7	;If not, continue on normally
@5		TAX		;If slot5, Is it assigned for external card ?
		BEQ	@7	;Bra for OK assignment
		DEC	A	;Make a skip
		STA	[BRAMPTR],Y	;Update user option also
		BRA	@7
		ELSE
		ENDIF


*
		IF OPTION4 <> 0 THEN
@2		EQU	*
		CPX	#CPLN6-CPLN1	;Are we on slot screen ?
		BNE	@7	;BRA if not
		CPY	#$6	;Is it on slot 7 ? External only
		BNE	@7	;BRA if not
		TAX		;Else set 'z' flag
		BNE	@7	;Already set to external, OK !
		INC	A	;Else force to set to external
		STA	[BRAMPTR],Y	;Update BRAM location also
		BRA	@7
		ELSE
		ENDIF

@6		EQU	*
		TAX		;Transfer to 'X' index
		LDA	>LANGS+1,X	;Get option number offset to display
@7		EQU	*
		CLC		;
		ADC	[OPTPTR],Y	;

		LDX	CURSCRN	;Are we on slots screen ?
		CPX	#CPLN6-CPLN1
		BNE	GOPRINT	;If not slot screen, then print option msg w/ 8-bit print 

		PHA		;Temp save low 'A', adjust for slot option msg to be 16-bit prt
		LDA	#$01	;Set high 'A' to 1, the slots 'DS' table must start at page 1
		XBA		;exchange high/low
		PLA		;Restore low byte 'A'
		REP	#$30	;Off to 16-bit printing
		JSR	PRINTMSG2	;Execute the 16-bit printing, return w/ 8-bit
		BRA	COMMON	;Continue w/ common stuff handling

GOPRINT		EQU	*
		JSR	PRINTMSG	;Print message

* Test if same as default option

COMMON		EQU	*
		LDX	CURLINE	;Current line user is on
		LDY	REALOPTTBL,X	;Get real offset into tables

PRINTOPT2		EQU	*
		JSR	FILLSPACE	;Blank out rest of line and exit
		JSR	PRINTOPTDEF	;Print opt / default indicator if needed
		PLX		;Restore 'X'
		PLA		;Restore 'A'
		RTS		;Back to caller

PRINTOPTDEF	EQU	*
		LDA	[BRAMPTR],Y	;Current selection
		CMP	[DEFAULTPTR],Y	;Default selection
PRINTOPTDEF2	EQU	*
		PHP		;Save 'z' status
		LDX	#DEFPOSITION	;Default indicator position
		LDY	CV	;
		JSR	FIXVTAB	;Move to position
		PLP		;Recall 'z' status
		BNE	@1	;<>= then its not default
		JSR	PRTMODEM	;CHK for 1st line prt/modem scrn
		BEQ	@1	;Skip default indicator if it is
		LDA	#DINDICATOR	;Print default indicator.
		BRA	@2	;Continue on
@1		EQU	*
		LDA	#SPACE	;Anticipate remove def indicator from scrn
@2		JMP	COUTFF	;


DISPSBM		EQU	*	;Show display screen
		JSR	GET1STLNUM	;Get 1st line message number
		LDX	#$00	;Start with 1st line of screen
@22		EQU	*
		JSR	PRINTLINE	;Print option line
		PHA		;Preserve 'A'
		PHX		;Preserve 'X'
		CPX	#DISPLN9-DISPLN1	;
		BNE	@2_7	;<>= then handle normally
		LDA	>USERHERTZ	;0=60 hertz 1=50 hertz
		BNE	@1	;
		LDA	#DISPOP4_0	;60 hertz message number
		BRA	@2	;

@1		EQU	*
		LDA	#PORTOP7_0	;50 hertz message number
@2		EQU	*
		JSR	PRINTMSG	;Print message and restore 'X' and 'A'
		JSR	CENTERALINE	;Put up centerline
		BRA	@3	;Continue this way

@2_7		EQU	*
		PLX		;Restore 'X'
		PLA		;Restore 'A'
		BIT	REALLNTBL,X	;'n'=1 then don't print options
		BMI	@4	;
		PHA		;Save 'A'
		PHX		;Save 'X'
		LDA	REALLNTBL,X	;What's real line number?
		CMP	#DISPLN7-DISPLN1	;If on 'Standards' line show 'Yes/No'
		BNE	@2_75	;

* Now test if standard values being shown.
* If not put up 'No', if so put up 'Yes'.

		LDX	#DISPLN4-DISPLN1	;'Text' option index
		JSR	GETUSROPT	;Get user's choice
		CMP	[DEFAULTPTR],Y	;Test against default value
		BNE	@123	;<>= then not default color
		LDX	#DISPLN5-DISPLN1	;'Background' option index
		JSR	GETUSROPT	;
		CMP	[DEFAULTPTR],Y	;
		BNE	@123	;<>= then not default color
		LDX	#DISPLN6-DISPLN1	;'Border' option index
		JSR	GETUSROPT	;Get user's ghoice
		CMP	[DEFAULTPTR],Y	;Test against default value
		BNE	@123	;<>= then not default colors
		LDA	#LANGOP3_0+1	;'Yes' message number
		SEP	#$02	;Set 'z' flag
		BRA	@9	;Print message

@123		EQU	*	;Not default colors
		LDA	#LANGOP3_0	;'No' message number
@9		EQU	*
		PHP		;Preserve 'z' status
		JSR	PRINTMSG	;Print message
		JSR	PR1BLNKFF	;Print a space
		PLP		;Restore 'z' status
		JSR	PRINTOPTDEF2	;Show/erase default indicator
		BRA	@3	;Continue this way


@2_75		EQU	*
		CMP	#DISPLN3-DISPLN1	;=>3rd line then no options to display
		BCC	@2_9	;
		CMP	#DISPLN7-DISPLN1	;'Border'
		BCS	@3	;

@2_9		EQU	*
		JSR	PRINTOPTION	;Print option normally
@3		EQU	*
		PLX		;Restore 'X'
		PLA		;Restore 'A'
@4		EQU	*
		INC	CV	;Print next line on next vertical line
		INC	A	;Next line number message
		INX		;
		CPX	NUMLINES	;Print all screen lines
		BCC	@22	;Loop til 3 lines done


		JMP	SETCOLORS	;Setup color/hertz stuff


PRTOPENAPP	EQU	*	;Print with 'open-apple'
		PHX		;Temp save
		LDA	#$41	;Open-Apple mouse text
		JSR	COUTFF	;Print it
		PLX		;Get back index
		DEX
		BPL	PRTOPENAPP
		LDA	CURSCRN	;CHK for valid password screen
		BMI	@1
		PLP		;Get back 'z' flag
		JMP	PRINTOPTDEF2	;Print and exit
@1		RTS


* Show ramdisk screen

RAMDSKSBM		EQU	*	;Show ramdisk screen
		LDY	#SPOSITION	;Vertical position for 1st line
		STY	CV	;Save to use later
		JSR	GET1STLNUM	;Get 1st line message number
		LDX	#$00	;Start with 1st line of screen
@1		EQU	*
		PHX		;Preserve 'X'
		PHA		;Preserve 'A'
		JSR	PRINTLINE	;Print line up to ASCII value
		JSR	PRINTRAM	;Print Minimum RAM available for RAMDISK
		LDA	2,S	;Test if on '  ' line or 2nd line or not
		CMP	#RAMDSKLN4-RAMDSKLN1	;If on '  ' line then no 'K'
		BEQ	@1_4	;'=' then skip 'K'
		CMP	#RAMDSKLN4_2-RAMDSKLN1	;'RAM Status' line then no 'K'
		BEQ	@1_4	;'=' then skip 'K'
		CMP	#RAMDSKLN8-RAMDSKLN1	;If on ' ' line then no 'K'
		BEQ	@1_4	;  
		CMP	#RAMDSKLN9-RAMDSKLN1	;If on 'Re-size..' line then no 'K'
		BEQ	@2_4
		LDA	#'K'	;Kilobytes indicator
		JSR	COUTFF	;
		LDA	2,S	;Test if on 'Largest Selectable Size' line
		CMP	#RAMDSKLN3-RAMDSKLN1	;
		BNE	@1_4	;If not continue normally
		JSR	CENTERALINE	;If so, then print a centerline
@1_4		EQU	*
		LDA	2,S	;Recover 'X' and 'A'
		TAX		;
		LDA	1,S	;
		CPX	#$00	;
		BNE	@2	;
@1_6		EQU	*
		TXY		;'Y'=line number = 'X'
		JSR	PRINTOPTDEF	;Test and maybe print default indicator
@2		EQU	*
		INC	CV	;Next line please
		PLA		;Recall 'A'
		INC	A	;Next message number
		PLX		;Recall 'X'
		INX		;Next please
		CPX	NUMLINES	;Reached last line yet?
		BCC	@1	;
		RTS		;Back to caller

@2_4		EQU	*
		LDA	>USERXRAM	;In ramdisk scrn USERRSTRAM=USERXRAM
		BNE	@3	;BRA if 'Yes'
		LDA	#RAMDSKOP8_0	;'No' message number
		BRA	@4	;Print it
@3		EQU	*
		LDA	#RAMDSKOP8_0+1	;'Yes' message number
@4		EQU	*
		JMP	GOPRINT	;Print it and exit

* Show clock screen

RSTCLOCKSBM	EQU	*	;Restart clock submenu here

* Set up hour format as AM-PM or 24 hour

		LDA	>USERAMPM	;AM/PM / 24 hour format
		BEQ	@11	;= then AM-PM format
		LDY	#SPACE	;' ' ZAMPMASCII for 24 hour time format
		TYX		;
		LDA	Z24HOUR	;Recall 24 hour time
		BRA	@14	;

@11		EQU	*
		LDX	#'P'	;Anticipate setting up PM
		LDA	Z24HOUR	;Recall hour count
		CMP	#12	;>= 12 then PM
		BCC	@0	;< 12 then it's AM
		BEQ	@22	;= then it's 12 PM
		SBC	#12	;Subtract 12 hour offset ('c' already =1)
		BRA	@22	;

@0		EQU	*
		TAX		;Set/clear 'z'
		BNE	@1	;<>=0 then normal time
		LDA	#12	;Convert 0 AM to 12 AM
@1		EQU	*
		LDX	#'A'	;Set up AM
@22		EQU	*
		LDY	#'M'	;
@14		EQU	*
		STX	ZAMPMASCII	;
		STY	ZAMPMASCII+1	;
		STA	ZHOUR	;Save converted hour value

		LDY	#SPOSITION	;Vertical position for 1st line
		STY	CV	;Save to use later
		LDX	CURSCRN	;Which screen we on?
		JSR	GET1STLNUM	;Get 1st line message number
		LDX	#$00	;Start on 1st clock line
@111		EQU	*	;Loop back to here for each line
		PHA		;Preserve line message number currently on
		PHX		;Preserve line number
		JSR	PRINTLINE	;Print a line

		JSR	GETUSROPT	;Sets 'Y'=corrected scrn line num offset
		CPX	#CLOCKLN4-CLOCKLN1	;Line 4 gets format option
		BEQ	@2	;
		CPX	#CLOCKLN5-CLOCKLN1	;Line 5 gets no option
		BEQ	@6	;
		CPX	#CLOCKLN9-CLOCKLN1	;Line 9 gets format option
		BEQ	@4	;

		LDX	CURLINE	;If on hour line then get different value
		CPX	#CLOCKLN6-CLOCKLN1	;
		BNE	@1_1	;<>= then do normally
		LDY	#ZHOUR-ZMONTH	;Change offset
@1_1		EQU	*
		LDA	|ZMONTH,Y	;Get hex value
		CPY	#CLOCKLN1-CLOCKLN1	;On 1st line then inc value
		BEQ	@1_2	;
		CPY	#CLOCKLN2-CLOCKLN1	;On 2nd line then inc value
		BNE	@1_4	;
@1_2		EQU	*
		INC	A	;Increment value
@1_4		EQU	*
		LDX	#$00	;Hi byte = 0
		SEC		;Set left justify mode
		JSR	MKDECASC	;Convert hex to decimal ASCII and print
		JSR	PR1BLNKFF	;Print a space just in case
		BRA	@6	;Skip format option stuff

@4		EQU	*
		LDY	#$01	;$00=user date fmt - $01=user time fmt
		JSR	PRTOPT	;Print option message

		LDY	#$01	;$00=user date fmt - $01=user time fmt
		JMP	PRINTOPT2	;Enter normal print option subroutine

@2		EQU	*
		LDY	#$00	;$00=user date fmt - $01=user time fmt
		JSR	PRTOPT	;Print option message

		LDY	#$00	;$00=user date fmt - $01=user time fmt
		JSR	PRINTOPTDEF	;Enter normal print option subroutine

@6		EQU	*
		PLX		;Recall line number
		PHX		;Resave 'X'
		CPX	#CLOCKLN6-CLOCKLN1	;If hour line then add AM/PM/'  '
		BNE	@8	;
		LDA	ZAMPMASCII	;Print 1st character
		JSR	COUTFF	;
		LDA	ZAMPMASCII+1	;
		JSR	COUTFF	;
		JSR	PR1BLNKFF	;Print an extra space just in case

@8		EQU	*
		PLX		;Recall line number
		PLA		;Recall line message number currently on
		INC	A	;Next message number
		INX		;Next line number
		INC	CV	;Next line
		CPX	NUMLINES	;Are we done yet?
		BCC	@111	;Loop til done
		RTS		;Back to caller




		TITLE	'Control Panel Misc Routines'

******************************************************
*                                                    *
*   Misc Routines for Control Panel Desk Accessory   *
*                                                    *
*                    by                              *
*               Fern Bachman   $ 1985-1987           *
*               Joe Bo           1987-1989           *
*                                                    *
*       Copyright Apple Computer, Inc. 1985-1989     *
*                All Rights Reserved.                *
*                                                    *
******************************************************


CLRTOBTM		EQU	*	;Clear to bottom off screen
		LDA	WNDTOP	;Save original value
		PHA		;
		STZ	CH	;Always clear from column 0
		STY	CV	;
		STY	WNDTOP	;Save as new top of window
		JSR	VTABFF	;Move to start of clear area
		JSR	HOMEFF	;Clear to end of screen
		PLA		;Restore window top
		STA	WNDTOP	;
		RTS		;Back to caller


GETSTATNUM	EQU	*
		LDX	CURSCRN	;What screen we on?
		LDA	>STATTBL,X	;
		STA	STATBYTE	;Save status byte for later testing
		AND	#$F	;Get number of lines/screen
		STA	NUMLINES	; and save for later.

		JSR	PRTAPTALK	;CHK if printer port/appletalk
		BEQ	@03	;BRA if yes
@02		EQU	*
		JSR	MODAPTALK	;CHK if modem port/appletalk
		BNE	@04	;BRA if AppleTalk not selected
@03		EQU	*
		SEC		;Set 'c' properly for sbc
		LDA	NUMLINES	;Get the NUMLINES               
		SBC	#$07	;Get rid of the unwanted for ApTalk
		STA	NUMLINES	;Store as new NUMLINES
		SEC		;
		PHP		;
		BRA	@00

@04		EQU	*
		LDA	>KEYUCVER	;Get keyuc version#
		CMP	#$06	;If >= $06, then Gyro or newer machine
		PHP		;Save 'c'
		BCS	@00	;BRA for Gyro or newer machine

		IF OPTION4 <> 0 THEN
		CPX	#CPLN5-CPLN1	;Is it language screen?
		BNE	@01	;BRA if not
		DEC	NUMLINES	;Else dec by 2
		DEC	NUMLINES
		ELSE
		ENDIF

@01		EQU	*
		CPX	#CPLN10-CPLN1	;Is it mouse screen ? 
		BNE	@00	;BRA if not
		SEC		;Set 'c' properly for sbc
		LDA	NUMLINES	;
		SBC	#$05	;Get 5 lines off, gs doesn't have
		STA	NUMLINES	;

* Determine and setup line access table in zero page

@00		EQU	*
		TXA		;Which screen we looking at?
		ASL	A	;Shift for proper indexing
		TAX		;
		LDA	>TRUELNTBL+1,X	;Pick up information byte
		XBA		;Save in hi byte
		LDA	>TRUELNTBL,X	;Pick up lo byte too
		PLP		;Get back 'c'
		BCS	@22	;BRA for Gyro and newer machine
		CPX	#$08	;Is it keyboard screen ?
		BNE	@21	;Bra if not
		XBA		;Swap 'A'
		ORA	#$18	;Mask off Disk2/Disk1 display lines
		XBA		;Save back to high byte
@21		EQU	*
		CPX	#18	;Is it mouse screen ?
		BNE	@22	;Bra if not
		ORA	#$70	;Mask off the unwanted keyboard mouse

@22		EQU	*
		CPX	#12	;Is it printer port screen?
		BNE	@23	;
		PHA		;Save off information in 'A'
		LDA	>USERPORT1	;Check for AppleTalk
		BRA	@24	;;
@23		EQU	*
		CPX	#14	;Is it modem screen ?
		BNE	@20	;
		PHA		;
		LDA	>USERPORT2	;
@24		EQU	*
		CMP	#$02
		BEQ	@25
		PLA		;Pull back
		BRA	@20	;

@25		EQU	*
		PLA		;Get back information in 'A'
		ORA	#$E0	;Mask off unwanted for AppleTalk
		XBA		;Swap 'A'
		ORA	#$FF	;Mask off some more
		XBA		;Swap back to proper position

@20		EQU	*
		LDX	#$00	;Start with 1st line
@11		EQU	*
		JSR	@18	;Do some stuff
		CPX	#$08	;Stop at 'X'=8
		BCC	@11	;Loop if not done

		XBA		;Do same to hi byte
@12		EQU	*
		JSR	@18	;Do some stuff
		CPX	#$10	;Stop at 'X'=16
		BCC	@12	;Loop if not done

		LDX	#$00	;Go through REALLNTBL and make REALOPTTBL
		TXY		;'Y' equal real offset counter
@14		EQU	*
		LDA	REALLNTBL,X	;
		CMP	#$80	;'c'=1 then line is a delimiting line
		STY	REALOPTTBL,X	;Save real offset in real line number tbl
		INX		;Continue til 'X'=16
		BCS	@15	;'c'=0 then not a delimiting line
		INY		; so increment real offset counter.
@15		EQU	*
		CPX	#16	;'X'=16 then all done
		BCC	@14	;Not done then loop back
		RTS		;Back to caller


@18		EQU	*
		LSR	A	;Shift lo bit into 'c'
		PHA		;Save on stack for later
		LDY	#$80	;Anticipate skip line
		BCS	@19	;'c'=1 then line not OK to acgess
		TXY		;Table gets index number
@19		EQU	*
		STY	REALLNTBL,X	;Save in real line number table
		PLA		;Recall 'A' mask
		INX		;Try next bit
		RTS		;


* SETUPLNSTUF sets up zero page pointers for PRINTLINE

SETUPLNSTUF	EQU	*
		PHB		;Save data bank register
		PHK		;New data bank = program bank
		PLB		;
		LDX	CURSCRN	;What screen we on?

		LDA	OPTPTRTBL,X	;Set up address of 1st message number
		STA	OPTPTR+0	;Save in zero page

		LDA	CPDFPTRTBL,X	;Address of defaults
		STA	DEFAULTPTR+0	;

		LDA	BRAMPTRTBL,X	;Address of current user choices
		STA	BRAMPTR+0	;

		LDA	NOPTPTRTBL,X	;Set up address of num of options/line
		STA	NOPTPTR+0	;Save in zero page

		LDA	#^BRAMBUFFER	;Bank number of current user choice tables
		STA	BRAMPTR+2	;
		PHK		;Get data bank of tables
		PLA		;
		STA	OPTPTR+2	;
		STA	DEFAULTPTR+2	;
		STA	NOPTPTR+2	;

		LDA	#>DISPOP	;Hi byte of address for tables
		STA	OPTPTR+1	;
		STA	DEFAULTPTR+1	;
		STA	NOPTPTR+1	;

		LDA	#>USERCOLOR	;Address of current user choices
		STA	BRAMPTR+1	;

		TXA		;What screen we on?
		ASL	A	;Shift to get correct index
		TAX		;Move to index
		PLB		;Restore data bank register
		RTS		;Back to caller


* GET1STLNNUM determines which screen is in use,
* calculates what message number the 1st line of
* the submenu screen should display, and saves
* that value at NUMFIRSTLN.

GET1STLNUM	EQU	*
		LDX	CURSCRN	;Which screen we on?
		LDA	>LNNUMTBL,X	;Recall message number of line
		STA	NUMFIRSTLN	;Save as number of first line
		RTS		;Back to caller


* GETUSROPT gets the user's option number from bank E1.
*
* On Input: 'X' = line number to look option up for
*
* On Output: 'A' contains the user's option number
*            Sets up NUMOPTS (maximum option number)
*                in zero page.

GETUSROPT0	EQU	*
		LDX	CURLINE	;Which line we on?
GETUSROPT		EQU	*
		STX	CURLINE	;Line to access information for
		JSR	SETUPLNSTUF	;
		LDX	CURLINE	;Line to access information for
		LDY	REALOPTTBL,X	;Get real offset into tables
		LDA	[NOPTPTR],Y	;Get max number of ottions for this line
		BPL	GETUSROPT6	;+ then not a special one
		PHA		;Preserve 'A'
		LDA	CURSCRN	;Which screen we on?
		CMP	#CPLN4-CPLN1	;
		BEQ	CLOCKLIM	;= then determine clock limits
		CMP	#CPLN5-CPLN1	;
		BEQ	LANGLIM	;= then determine language limits

		PHY		;MUST preserve 'Y'
		LDY	#$FF	;Counter for NUMOPTS
		REP	#$20	;Need 16 bit 'm'
		PEA	$0000	;Set up subtraction value on stack
		PEA	$8000	;32768 is subtraction value
		LDA	FREERAM	;Move to safe place
		STA	SHIFTER	;
		LDA	FREERAM+2	;
		STA	SHIFTER+2	;
		LONGA	ON
		CMP	#$0080	;If 8 megabytes limit it to 8 meg-64K
		LONGA	OFF
		BCS	@2	;Maximum limit is 8128K not 8192K
		INY		;'Y'=$00 to calculate limit normally
@1		EQU	*	;Calculate max number of options
		SEC		;Set 'c' to subtract
		INY		;Increment for each subtract
		LDA	SHIFTER	;
		SBC	1,S	;Subtract 32768 each time
		STA	SHIFTER	;
		LDA	SHIFTER+2	;
		SBC	3,S	;
		STA	SHIFTER+2	;
		BCS	@1	;Loop if still 'c'=1

@2		EQU	*
		STY	NUMOPTS	;Save as number of options for wrapping
		PLA		;Clean up stack
		PLA		;
		SEP	#$30	;Back to monmtor mode
		PLY		;Restore 'Y'
		PLA		;Clean up stack
		BRA	GETUSROPT8	;Exit this way

CLOCKLIM		EQU	*
		PLA		;Clean up stack
		PHB		;Save data bank register
		PHK		;New data bank reg = program bank reg
		PLB		;
		LDA	NCLOCKOP,Y	;Range for current option value
		PLB		;Restore data bank register
		BRA	GETUSROPT6	;Exit

LANGLIM		EQU	*
		PLA		;Recall 'A'
		ASL	A	;Shift bit 7 to 'c' and bit 6 to bit 7
		BMI	@1	;'+' then language limit requested
		LDA	>LANGS	;Pick up # of langs sent by key micro
		BRA	GETUSROPT6	;Exit

@1		EQU	*
		LDA	>LAYOUTS	;Pick up # of layouts sent by key micro

GETUSROPT6	EQU	*
		STA	NUMOPTS	;Save in zero page

GETUSROPT8	EQU	*
		LDA	[BRAMPTR],Y	;Get user's choice
		RTS		;Back to caller


* TSTTXTBGD test which line user is on, on the
* Display screen.  If user is on 'Text' or 'Background'
* and the colors match the 'c' flag is set to 1.
* If the colors do not match the 'c' flag is set to 0.

TSTTXTBGD		EQU	*
		PHA		;Preserve 'A'
		STA	[BRAMPTR],Y	;Save temporary new color value
		LDX	CURLINE	;Which line we on?
		CPX	#DISPLN4-DISPLN1	;Line 4 is 'Text' line
		BEQ	@2	;= then go do test
		CPX	#DISPLN5-DISPLN1	;Line 5 is 'Background' line
		BEQ	@2	;= then go do test

@1		EQU	*	;Clear carry exit for no match
		PLA		;Recall 'A'
		CLC		;
		RTS		;Back to caller

@2		EQU	*
		LDA	>USERTEXT	;Which color is Text?
		CMP	>USERBACK	;Does it = background color?
		BNE	@1	;<>= then indicate no match and exit
		PLA		;Recall 'A'
		SEC		; else indicate a match and exit.
		RTS		;Back to caller


TURNONMTXT	EQU	*	;Enable mouse text printing
		PHA		;Preserve all registers
		PHX		;
		PHY		;
		JSR	SETNORM	;Set output mask for normal characters
		LDA	#MTXTON	;Enable mouse text character printing
MTXTEXIT		EQU	*
		JSR	COUTFF	;
		PLY		;Restore registers
		PLX		;
		PLA		;
		RTS		;Back to caller


TURNOFFMTXT	EQU	*	;Disable mouse text printing
		PHA		;Preserve all registers
		PHX		;
		PHY		;
		LDA	#$7F	;Set output mask for inverse characters
		STA	INVFLG	;Set inverse flag
		LDA	#MTXTOFF	;Disable mouse text character printing
		BRA	MTXTEXIT	;Exit this way

PRTAPTALK		EQU	*	;CHK current screen is printer/aptalk
		LDA	CURSCRN	;CHK current screen
		CMP	#CPLN7-CPLN1	;Is is printer port screen
		BNE	BOTHXIT	;BRA if no
		LDA	>USERPORT1	;CHK for appletalk assigned
		BRA	TOCHKEND	;

MODAPTALK		EQU	*	;CHK current screen is mod/appletalk
		LDA	CURSCRN	;CHK current screen
		CMP	#CPLN8-CPLN1	;Is it modem port screen
		BNE	BOTHXIT	;BRA if no
		LDA	>USERPORT2	;CHK appletalk assigned
TOCHKEND		EQU	*
		CMP	#$02	;
BOTHXIT		EQU	*
		RTS
PRTMODEM		EQU	*	;CHK for 1st line of prt/modem screnn
		LDA	CURLINE
		BNE	@1
		LDA	CURSCRN	;
		CMP	#CPLN7-CPLN1	;
		BEQ	@1
		CMP	#CPLN8-CPLN1	;
@1		EQU	*
		RTS


		EJECT
		TITLE	'New BELL1 Routine'

******************************************************
*                                                    *
*         New BELL1 Routine for 40/80 Columns        *
*                                                    *
*                         by                         *
*                    Fern Bachman                    *
*                    Mike Askins                     *
*                    Joe  Bo
*                                                    *
*       Copyright Apple Computer, Inc. 1985-1989     *
*                All Rights Reserved.                *
*                                                    *
******************************************************


NEWBELL1		EQU	*	;New BELL1 routine
		JSL	>BELLVECTOR	;See if user supplied routine installed
		BCS	NEWBELL2	;If no routine installed then do this one
		RTS		;Exit back to monitor

NEWBELL2		EQU	*
		PHP		;Preserve interrupt status
		SEI		;Make bell sound pretty with no ints
		LDA	#$B0	;Delay in case repeated calls to BELL1
		JSR	WAIT	;
		LDA	CYAREG	;Slow system down
		PHA		;
		AND	#$7F	;
		STA	CYAREG	;
		PHX		;MUST preserve 'X' around this call
		PHB		;Save data bank register
		JSR	DBTOE1	;Data bank register to E1
		LDA	|USERBELL	;Get pitch for pattern
		EOR	#$0F	;Flip nybble
		STA	|PITCH	;
		STZ	|PITCH+1	;Be sure hi nybble = 0
		REP	#$20	;16 bit land for awhile
		LONGA	ON
		LDA	#TOGPATTERN	;Now get pattern
		STA	|TOGGLEPAT	;Save as toggle pattern
		LDA	#DURBELL	;Set up bell duration counter
		STA	|DURATION	;
		LONGA	OFF
		SEP	#$30	;Back to 8 bit land
		LDA	|IRQ_VOLUME	;True volume
		STA	|VOLUME	;Save as temporary volume
		PHA		;Save original user volume

		AND	#$0F	;Look at the volume
		BNE	@2	;Bell it if not =0                   
		LDA	|CLOCKCTL	; Else save original border color
		AND	#$0F
		PHA		;Temp store
		CLI		;Enable interrupts

		JSR	WAITFORVBL	;
		LDA	#$0F	;Force white 
		TSB	|CLOCKCTL
		JSR	MYWAIT	;Call wait routine

		JSR	WAITFORVBL
		LDA	#$0F	;Force black
		TRB	|CLOCKCTL	;
		JSR	MYWAIT	;

		JSR	WAITFORVBL	;
		LDA	#$0F	;Force white 
		TSB	|CLOCKCTL	;
		JSR	MYWAIT	;

		JSR	WAITFORVBL	;
		LDA	#$0F	;Force black
		TRB	|CLOCKCTL	;
		JSR	MYWAIT	;


		PLX		;Restore original border in x
		SEI		;Ints off
		LDA	#$0F	;Force black 
		TRB	|CLOCKCTL
		TXA
		TSB	|CLOCKCTL	;Restore original border color
		BRA	@8	;BRA to end border flashing

@2		EQU	*
		CLC		;Clear carry to start
		REP	#$30	;16 bit land needed
		LONGA	ON
		LONGI	ON
		LDY	|PITCH	;Pitch
		LDX	#DECAY	;Decay rate
@3		EQU	*
		DEY		;Decrement pitch counter
		BNE	@4	;<>= then skip toggle
		LDY	|PITCH	;Reset pitch counter
		ROL	|TOGGLEPAT	;Shift low byte by 1
		BCC	@4	;'c'=0/1 no toggle/toggle speaker
		LDA	SPKR	;Toggle speaker
@4		EQU	*
		DEX		;Decrement decay counter
		BNE	@5	;
		LDX	#DECAY	;Reset decay counter
		SEP	#$20	;Back to 8 bit mode to change volume
		LDA	|VOLUME	;What's current volume?
		BEQ	@8	;Volume = 0 then quit
		DEC	A	;Decrement volume
		STA	|VOLUME	;Resave volume counter
		STA	|IRQ_VOLUME	;Save for interrupt handler
		STA	|SOUNDCTL	;Make hardware volume change
		REP	#$20	;Back to 16 bit land
		BRA	@6	;Skip delay loop

@5		EQU	*
		LDA	#0005	;28 cycle delay
@5_5		EQU	*
		DEC	A	;
		BNE	@5_5	;
@6		EQU	*
		DEC	|DURATION	;Duration made it to 0 yet?
		BNE	@3	;If not, then loop some more


* Exit new bell routine after fixing up system volume

@8		EQU	*
		SEP	#$30	;Back to 8 bit land to quit
		LONGA	OFF
		LONGI	OFF
		PLA		;Restore user volume
		STA	|IRQ_VOLUME	;
		STA	SOUNDCTL	;
		PLB		;Restore data bank register
		PLX		;Must preserve 'X' around this call
		LDY	#$00	;Some users require 'Y'=0 on exit
		PLA		;Restore CYAREG
		STA	CYAREG	;
		PLP		;Restore users interrupt status
		RTS		;Back to caller


MYWAIT		EQU	*
		LDA	#$FF	;Input for 'wait'
		JMP	WAIT	;Do wait, appro 160 ms

* This small sub-routine would wait forever if a VBL task
* kept me from reading the counters in time.  So we add 
* a timeout counter.
*
* This counter assumes 18 cycles per loop
* 2.8 million cycles per second
* 60 vbls a second
*
* 2800000/60/18 = 2600 (approx)
*
* (Add 200 more for good luck)
*
WAITFORVBL	EQU	*
		REP	#$10	;
		LONGA	OFF
		LONGI	ON
* 
* Don't want to use the vertical count here.  Better
*  to use the actual VBL signal.  (mensch/askins 3/16/89)
*
@1		LDA	|RDVBLBAR
		BMI	@1
@2		LDA	|RDVBLBAR
		BPL	@2
* 
; LDX #2800 ;No more than 2800 times through loop
;@WAIT EQU *
; LDA :VERTCNT ;Addr for read of video cntr bits v5-vb
; AND #$7F
; ASL A
; CMP #220
; BCS @DONE
; DEX
; BNE @WAIT
*
*
@DONE		EQU	*
		SEP	#$10
		LONGI	OFF
		RTS
BELLLEN		EQU	*-NEWBELL1	;Length of NEWBELL1 routine


\ No newline at end of file
diff --git a/IIGS.601.SRC/GSFirmware/Monitor/CP.TABLES.aii b/IIGS.601.SRC/GSFirmware/Monitor/CP.TABLES.aii
new file mode 100644
index 0000000..c7f5cfe
--- /dev/null
+++ b/IIGS.601.SRC/GSFirmware/Monitor/CP.TABLES.aii
@@ -0,0 +1 @@
+		TITLE	'Control Panel Int Handler'

;	This EdAsm/Asm816 source code file was converted to AsmIIGS
;	by EdAsmCvtIIGS version 1.2d5 on 5/9/91 at 5:21:42 PM

******************************************************
*                                                    *
*    Int Handler for Control Panel Desk Accessory    *
*                                                    *
*                         by                         *
*               Fern Bachman     1985-1987           *
*               Joe Bo           1987-1989           *
*                                                    *
*       Copyright Apple Computer, Inc. 1985-1989     *
*                All Rights Reserved.                *
*                                                    *
******************************************************


* CPINTHNDLR handles one second interrupts.
* Its purpose is to update the clock box
* on screens which require the clock box.
* No action is taken on screens which do not
* display the clock box.

CPINTHNDLR	EQU	*
		JSR	SAVESHOLES	;Save screen holes
		PEI	BASL	;Save monitor variables
		PEI	CH	;

		LDX	CURSCRN	;Which screen we on?
		BMI	@1	;BRA for special password display 
		LDA	>STATTBL,X	;Get status byte
		ASL	A	;Bit 5 has data
		ASL	A	; so shift it to bit 7 for testing.
		BPL	@1	;'+' then no clock box required
		STZ	OLDCH	;Force 80 column firmware to use new CH
		LDA	INVFLG	;=FF then normal printing
		PHA		;Save for later testing
		JSR	TURNONMTXT	;Enable normal mouse text printing
		JSR	PRINTCLK0	;Change clock box contents
		PLA		;Recall state of mouse text printing
		BMI	@1	;Continue normally if '-'
		JSR	TURNOFFMTXT	;<>= then set inv print + no mouse text

@1		EQU	*	;Clear interrupt/clean up/exit
		REP	#$30	;16 bit mode to save a few bytes
		PLA		;
		STA	CH	;Restore monitor variables
		PLA		;
		STA	BASL	;
		SEP	#$30	;Back to monitor world
		JSR	RSTRSHOLES	;Restore screen holes
		STZ	SCANINT	;Reset bit 6 to clear 1 second interrupt
		CLC		;Clear 'c' to indicate serviced
		RTL		;Back to interrupt handler


SAVESHOLES	EQU	*	;Enter here to save slt 0/3 scrn holes
		SEP	#$40	;'v'=1 if saving screen holes
		OPCODE	BVC	;Branch never taken

RSTRSHOLES	EQU	*	;Enter here to restore slt 0/3 scrn holes
		CLV		;'v'=0 if restoring screen holes
		LDX	#$00	;Start with 1st location in buffer
		LDY	#$78	;Low byte of screen hole
@1		EQU	*
		LDA	#$04	;Start with 1st screen hole
		STY	ZINT+0	;
@2		EQU	*
		STA	ZINT+1	;Interrupt pointer
		LDY	#$00	;Start with 1st screen hole
		BVC	@3	;'v'=0 then restoring screen holes
		LDA	(ZINT),Y	;Get screen hole
		STA	ZINTSHBUF,X	;Save in zero page int scrn hole buffer
		BRA	@4	;

@3		EQU	*
		LDA	ZINTSHBUF,X	;Get saved screen hole
		STA	(ZINT),Y	;Restore screen hole byte
@4		EQU	*
		INX		;Next location in buffer
		LDY	#$80	;Offset to next screen hole byte
		BVC	@5	;'v'=0 then restoring screen holes
		LDA	(ZINT),Y	;Get screen hole
		STA	ZINTSHBUF,X	;Save in zero page int scrn hole buffer
		BRA	@6	;

@5		EQU	*
		LDA	ZINTSHBUF,X	;Get saved screen hole
		STA	(ZINT),Y	;Restore screen hole byte
@6		EQU	*
		INX		;Next location in buffer
		LDA	ZINT+1	;Increment hi byte of pointer
		INC	A	;Increment then test for done
		CMP	#$08	;If 8 then done
		BCC	@2	;Loop if < 8

		LDY	#$7B	;Done if ZINT=$7B
		CPY	ZINT	;= or not
		BNE	@1	;Loop til done
		RTS		;Back to caller




		TITLE	'Control Panel Select Rtnes'

******************************************************
*                                                    *
*  Select Routines for Control Panel Desk Accessory  *
*                                                    *
*                         by                         *
*               Fern Bachman    $1985-1987           *
*               Joe Bo           1987-1989           *
*                                                    *
*       Copyright Apple Computer, Inc. 1985-1989     *
*                All Rights Reserved.                *
*                                                    *
******************************************************


* SELECTLINE does all the work necessary to 
* move the user's indicator cursor up and down
* a menu.  It exits when carriage return/escape/
* left or rmght arrow key is pressed indicating
* the user wants to open a feature, ignore changes
* or make a line option change.
*
* Enter SELECTLINE with CURLINE set to option #
* to start indicator on.
*
* Enter SELECTLINE with NUMLINES set to # of
* screen lines+1 available.
*
* In the case of printer or modem screen, it skips over    
* the 1st line whenever it tries to get to that line.    
* To flip to the top or bottom line of the screen has to 
* be taken care.  Also has a special case for AppleTalk
* being selected as the connected device, then the screen
* has a maximum of 5 lines only !!!

SELECTLINE	EQU	*	;Put up indicator character to start
		CLI		;Enable clk ints since scrn is set up now
		JSR	PRTMODEM	;CHK for 1st line of printer or modem scrn
		BEQ	@01	;BRA to skip 1st line 
		JSR	@6	;Get a keypress for main screen
		CMP	#UPAKEY	;Up arrow pressed?
		BEQ	@1	;Yes, then do it to it.
		CMP	#DOWNAKEY	;Down arrow pressed?
		BEQ	@3	;Yes, then do it to it.
		RTS		;Back to caller with CURLINE updated


@1		EQU	*
		LDA	CURLINE	;Pick up current indicator pstn
		BNE	@2	;<>0 then just dec and exit
		LDA	NUMLINES	;# of lines for screen+1
		STA	CURLINE	;Save as new position+1
@2		EQU	*
		DEC	CURLINE	;Decrement position
		LDX	CURLINE	;Valid line or not?
		LDA	REALLNTBL,X	;Test against table entry
		BMI	@1	;'-' then not a valid position
		JSR	PRTMODEM	;CHK for 1st line of printer or modem scrn
		BNE	@44	;BRA if not
		LDA	CURLINE	;Get current line so that to flip to top
		BNE	@4	; or bottom of the line of the scrn
		JSR	PRTAPTALK	;Chk if current screen prt port for Aptalk
		BEQ	@24	;BRA if yes
		JSR	MODAPTALK	;CHK if current screen mod port for Aptalk
		BEQ	@24	;BRA if yes
@23		EQU	*
		LDA	#$0B	;Flip to bottom line of the prt/modem scrn
		BRA	@02	; and show new at new position.
@24		EQU	*
		LDA	#$04	;ApTalk maxi has 5 lines only
		BRA	@02	;BRA to end
@44		EQU	*
		JSR	CHKGSC	;Check for GSc and on slot screen
		BCS	@4	;BRA if not
		LDA	CURLINE	; else what line of slot screen
		CMP	#$05	;
		BNE	@4
		LDA	#$01	;
		BRA	@02	;


@3		EQU	*
		LDA	CURLINE	;Pick up current indicator pstn
		INC	A	;Test against number of lines+1 for screen
		CMP	NUMLINES	;Number of lines for screen+1
		BCC	@22	;<>0 then just dec and exit
		LDA	#$FF	;First line for screen-1
		STA	CURLINE	;Save as new position/1
@22		EQU	*
		INC	CURLINE	;Decrement position
		LDX	CURLINE	;Valid line or not?
		LDA	REALLNTBL,X	;Test against table entry
		BMI	@3	;'-' then not a valid position
		JSR	PRTMODEM	;CHK for 1st line of printer or modem scrn
		BNE	@46	;BRA if not
		LDA	CURLINE	;Get current line
		BNE	@4	;BRA if not get to 1st line
@01		EQU	*
		LDA	#$01	; else set to 2nd line
@02		EQU	*
		STA	CURLINE	;Update as new current line
@4		EQU	*	;Check if doing main screen or not
		LDA	#$00	;$00 indicates redraw main screen
		RTS		;Back to caller

@46		EQU	*
		JSR	CHKGSC
		BCS	@4
		LDA	CURLINE
		CMP	#$02
		BNE	@4
		LDA	#$06	;
		BRA	@02	;




* @6 does the following
*         1.  Gets a keypress
*         2.  Tests for arrow keys, carriage return and escape.
*             If none of these keys it beeps the bell
*                and looks for another keypress.
*         3.  Returns 'c'=0 if return/escape/(up/down)
*                              arrow key pressed
*                     'c'=1 if left or right arrow was pressed.
*         4.  Exits with key press in 'A'

@6		EQU	*
		JSR	XRDKBD	;Read keys
		BPL	@6	;Loop til key pressed
		CMP	#ESCKEY	;ESC key pressed?
		BEQ	@5	;= take clear carry exit
		CMP	#RETURNKEY	;Carriage return ke} pressed?
		BEQ	@5	;= take carry clear exit
		CMP	#UPAKEY	;Up arrow key pressed?
		BEQ	@5	;= then take clear carry exit
		CMP	#DOWNAKEY	;Down arrow key pressed?
		BEQ	@5	;= then take clear carry exit
		CMP	#LEFTAKEY	;Left arrow key pressed?
		BEQ	@52	;= then take left/right arrow key exit
		CMP	#RIGHTAKEY	;Right arrow key pressed?
		BEQ	@52	;= then take left/right arrow key exit

@61		JSR	NEWBELL1	;Beep user for bad key press
		BRA	@6	;Loop til good key pressed

@5		EQU	*	;Clear carry exit
		CLC		;
@52		EQU	*	;Left/right arrow key exit
		RTS		;Back to caller


* Check for GSc and on slot screen: return w/ c=0 then yes

CHKGSC		EQU	*
		LDA	>KEYUCVER	;Get keyuc version#
		CMP	#$06	;>=$06 then TenSpeed or GSc or newer
		BCC	@4	;
		LDA	>GSC	;
		BPL	@4	;BRA if not GSc
		LDA	CURSCRN	;What screen ?
		CMP	#CPLN6-CPLN1	;CHK for slot screen
		BNE	@4	;BRA if not 
		CLC		;
		RTS
@4		EQU	*
		SEC
		RTS

		TITLE	'Control Panel Tables3'

******************************************************
*                                                    *
*      Tables3 for Control Panel Desk Accessory      *
*                                                    *
*           Fern Bachman       1985-1987             *
*           Joe Bo             1987-1989             *
*                                                    *
*      Copyright Apple Computer, Inc. 1985-1989      *
*                All Rights Reserved.                *
*                                                    *
******************************************************

* OPTPTRTBL holds pointers to the tables containing
* the message number for the first option number
* message of each submenu screen line.

OPTPTRTBL		EQU	*
		DC.B	DISPOP	;Points to line number option msg numbers
		DC.B	SOUNDOP	;Points to line number option msg numbers
		DC.B	SYSSPDOP	;Points to line number option msg numbers
		DC.B	CLOCKOP	;Points to line number option msg numbers
		DC.B	LANGOP	;Points to line number option msg numbers
		DC.B	SLOTSOP	;Points to line number option msg numbers
		DC.B	PORTOP	;Points to line number option msg numbers
		DC.B	PORTOP	;Points to line number option msg numbers
* DFB >RAMDSKOP ;There are no msg numbers for RAMDSKOP
		DC.B	$00	;Place holder
		DC.B	MOUSEOP	;Points to line number option msg numbers


* NOPTPTRTBL holds pointers to the tables containing
* the address of the tables containing the number of
* options for each submenu screen line.

NOPTPTRTBL	EQU	*
		DC.B	NDISPOP	;Points to tbl of number of options
		DC.B	NSOUNDOP	;Points to tbl of number of options
		DC.B	NSYSSPDOP	;Points to tbl of number of options
		DC.B	NCLOCKOP	;Points to tbl of number of options
		DC.B	NLANGOP	;Points to tbl of number of options
		DC.B	NSLOTSOP	;Points to tbl of number of options
		DC.B	NPORTOP	;Points to tbl of number of options
		DC.B	NPORTOP	;Points to tbl of number of options
		DC.B	NRAMDSKOP	;Points to tbl of number of options
		DC.B	NMOUSEOP	;Points to tbl of number of options


* CPDFPTRTBL holds pointers to the tables containing
* the default option numbers for the first option number
* message of each submenu screen line.

CPDFPTRTBL	EQU	*
		DC.B	DISPDFT	;Points to 1st line number default number
		DC.B	SOUNDDFT	;Points to 1st line number default number
		DC.B	SYSSPDDFT	;Points to 1st line number default number
		DC.B	CLOCKDFT	;Points to 1st line number default number
		DC.B	LANGDFT	;Points to 1st line number default number
		DC.B	SLOTSDFT	;Points to 1st line number default number
		DC.B	PORT1DFT	;Points to 1st line number default number
		DC.B	PORT2DFT	;Points to 1st line number default number
		DC.B	RAMDSKDFT	;Points to 1st line number default number
		DC.B	MOUSEDFT	;Points to 1st line number default number


* BRAMPTRTBL holds pointers to the tables containing
* the current option numbers for the first line number
* of each submenu screen.

BRAMPTRTBL	EQU	*
		DC.B	USERCOLOR	;Ptr to user value as 1st opt of 1st line
		DC.B	USERVOL	;Ptr to user value as 1st opt of 1st line
		DC.B	USERSPEED	;Ptr to user value as 1st opt of 1st line
		DC.B	USERDATE	;Ptr to user value as 1st opt of 1st line
		DC.B	USERDISP	;Ptr to user value as 1st opt of 1st line
		DC.B	USERSLT1	;Ptr to user value as 1st opt of 1st line
		DC.B	USERPORT1	;Ptr to user value as 1st opt of 1st line
		DC.B	USERPORT2	;Ptr to user value as 1st opt of 1st line
		DC.B	USERMRAM	;Ptr to user value as 1st opt of 1st line
		DC.B	USERHMR	;Ptr to user value as 1st opt of 1st line


* TRUELNTBL contains a word for each screen
* which details whether a line is a selectable
* line number or a group delimiter.
* Each bit set is a non accessible line.

	; SEG $FF
TRUELNTBL		EQU	*
	; SEG $00
		DC.W	$FF84	;Display lines 7-15,2 not accessible
		DC.W	$FFF2	;Sound lines 3-15,1 not accessible
		DC.W	$FFFE	;System speed lines 1-15 not accessible
		DC.W	$FE10	;Clock lines 9-15,4 not accessible
		DC.W	$F8C0	;Lang lines 12-15, 6-7 not accessible-"D"
		DC.W	$FE80	;Slots lines 9-15,7 not accessible
		DC.W	$F000	;Port 1 lines 1,12-15 not accessible
		DC.W	$F000	;Port 2 lines 1,12-15 not accessible
		DC.W	$FEFE	;Ramdisk lines 1-7,9-15 not accessible
		DC.W	$FF8C	;Mouse lines 2-3, 7-15 not accessible
		DC.W	$FFFF	;Place holder only
		DC.W	$F400	;Main scrn lines 10, 11-15 not accessible
		EJECT





* W A R N I N G: PORTOP through MOUSEDFT must be
*                be on the same page or the tables
*                OPTPTRTBL/NOPTPTRTBL/CPDFPTRTBL
*                will pick up incorrect addresses.
		EJECT
* PORTOP holds the message number for the first
* option of each line number on the serial ports
* submenu screen.

PORTOP		EQU	*
		DC.B	PORTOP1_0	;1st message number for line #1
		DC.B	PORTOP2_0	;1st message number for line #2
		DC.B	PORTOP3_0	;1st message number for line #3
		DC.B	PORTOP4_0	;1st message number for line #4
		DC.B	PORTOP5_0	;1st message number for line #5
		DC.B	PORTOP6_0	;1st message number for line #6
		DC.B	PORTOP7_0	;1st message number for line #7
		DC.B	PORTOP8_0	;1st message number for line #8
		DC.B	PORTOP9_0	;1st message number for line #9
		DC.B	PORTOP10_0	;1st message number for line #10
		DC.B	PORTOP11_0	;1st message number for line #11
		DC.B	PORTOP12_0	;1st message number for line #12


* DISPOP holds the message number for the first
* option of each line number on the display
* submenu screen.

DISPOP		EQU	*
		DC.B	DISPOP1_0	;1st message number for line #1
		DC.B	DISPOP2_0	;1st message number for line #2
		DC.B	DISPOPC	;1st message number for text line
		DC.B	DISPOPC	;1st message number for background line
		DC.B	DISPOPC	;1st message number for border line
		DC.B	DISPOP3_0	;1st message number for line #3
		DC.B	DISPOP4_0	;1st message number for line #4


* LANGOP holds the message number for the first
* option of each line number on the language
* submenu screen.

LANGOP		EQU	*
		DC.B	LANGOP1_0	;1st message number for line #1
		DC.B	LANGOP2_0	;1st message number for line #2
		DC.B	LANGOP3_0	;1st message number for line #3
		DC.B	LANGOP4_0	;1st message number for line #4
		DC.B	LANGOP5_0	;1st message number for line #5
;DFB LANGOP6.0 ;1st message number for line #6
		DC.B	LANGOP7_0	;1st message number for line #7
		DC.B	LANGOP8_0	;1st message number for line #8
		DC.B	LANGOP9_0	;1st message number for line #9
		DC.B	LANGOP10_0	;1st message number for line #10


* SOUNDOP holds the message number for the first
* option of each line number on the sound
* submenu screen.

SOUNDOP		EQU	*
		DC.B	SOUNDOP1_0	;1st message number for line #1
		DC.B	SOUNDOP2_0	;1st message number for line #2


* SLOTSOP holds the message number for the first
* option of each line number on the slots
* submenu screen.

SLOTSOP		EQU	*
		DC.B	SLOTSOP1_0	;1st message number for line #1
		DC.B	SLOTSOP2_0	;1st message number for line #2
		DC.B	SLOTSOP3_0	;1st message number for line #3
		DC.B	SLOTSOP4_0	;1st message number for line #4
		DC.B	SLOTSOP5_0	;1st message number for line #5
		DC.B	SLOTSOP6_0	;1st message number for line #6
		DC.B	SLOTSOP7_0	;1st message number for line #7
		DC.B	SLOTSOP8_0	;1st message number for line #8


* CLOCKOP holds the message number for the first
* option of each line number on the clock
* submenu screen.

CLOCKOP		EQU	*
		DC.B	CLOCKOP1_0	;1st message number for line #1
		DC.B	CLOCKOP2_0	;1st message number for line #2


* SYSSPDOP holds the message number for the first
* option of each line number on the system speed
* submenu screen.

SYSSPDOP		EQU	*
		DC.B	SYSSPDOP1_0	;1st message number for line #1


* MOUSEOP holds the message number for the first 
* option of each line number on the mouse       
* submenu screen.

MOUSEOP		EQU	*
		DC.B	MOUSEOP1_0	;1st message number for line #1
		DC.B	MOUSEOP2_0	;1st message number for line #2
		DC.B	MOUSEOP3_0	;1st message number for line #3
		DC.B	MOUSEOP4_0	;1st message number for line #4
		DC.B	MOUSEOP5_0	;1st message number for line #5




* Start of tables whose order can NEVER be changed

	; SEG $FF
BRAMLIMITS	EQU	*	;Table of BRAM parameter limits+1
	; SEG $00


* NPORTOP holds the number of options for each
* submenu screen line.

NPORTOP		EQU	*
		DC.B	NPORTOP1_0	;Number of options for line #1
		DC.B	NPORTOP2_0	;Number of options for line #2
		DC.B	NPORTOP3_0	;Number of options for line #3
		DC.B	NPORTOP4_0	;Number of options for line #4
		DC.B	NPORTOP5_0	;Number of options for line #5
		DC.B	NPORTOP6_0	;Number of options for line #6
		DC.B	NPORTOP7_0	;Number of options for line #7
		DC.B	NPORTOP8_0	;Number of options for line #8
		DC.B	NPORTOP9_0	;Number of options for line #9
		DC.B	NPORTOP10_0	;Number of options for line #10
		DC.B	NPORTOP11_0	;Number of options for line #11
		DC.B	NPORTOP12_0	;Number of options for line #12


		DC.B	NPORTOP1_0	;Number of options for line #1
		DC.B	NPORTOP2_0	;Number of options for line #2
		DC.B	NPORTOP3_0	;Number of options for line #3
		DC.B	NPORTOP4_0	;Number of options for line #4
		DC.B	NPORTOP5_0	;Number of options for line #5
		DC.B	NPORTOP6_0	;Number of options for line #6
		DC.B	NPORTOP7_0	;Number of options for line #7
		DC.B	NPORTOP8_0	;Number of options for line #8
		DC.B	NPORTOP9_0	;Number of options for line #9
		DC.B	NPORTOP10_0	;Number of options for line #10
		DC.B	NPORTOP11_0	;Number of options for line #11
		DC.B	NPORTOP12_0	;Number of options for line #12


* NDISPOP holds the number of options for each
* submenu screen line.

NDISPOP		EQU	*
		DC.B	NDISPOP1_0	;Number of options for line #1
		DC.B	NDISPOP2_0	;Number of options for line #2
		DC.B	NDISPOPC	;Number of options for line #3
		DC.B	NDISPOPC	;Number of options for line #4
		DC.B	NDISPOPC	;Number of options for line #5
		DC.B	NDISPOP4_0	;Number of options for line #6


* NSOUNDOP holds the number of options for each
* submenu screen line.

NSOUNDOP		EQU	*
		DC.B	NSOUNDOP1_0	;Number of options for line #1
		DC.B	NSOUNDOP2_0	;Number of options for line #2


* NSYSSPDOP holds the number of options for each
* submenu screen line.

NSYSSPDOP		EQU	*
		DC.B	NSYSSPDOP1_0	;Number of options for line #1


* NSLOTSOP holds the number of options for each
* submenu screen line.

NSLOTSOP		EQU	*
		DC.B	NSLOTSOP1_0	;Number of options for line #1
		DC.B	NSLOTSOP2_0	;Number of options for line #2
		DC.B	NSLOTSOP3_0	;Number of options for line #3
		DC.B	NSLOTSOP4_0	;Number of options for line #4
		DC.B	NSLOTSOP5_0	;Number of options for line #5
		DC.B	NSLOTSOP6_0	;Number of options for line #6
		DC.B	NSLOTSOP7_0	;Number of options for line #7
		DC.B	NSLOTSOP8_0	;Number of options for line #8


* NLANGOP holds the number of options for each
* submenu screen line.

NLANGOP		EQU	*
		DC.B	$80	;Indicate special lookup 1st opt req
		DC.B	$C0	;Indicate special lookup 2nd opt req
		DC.B	NLANGOP3_0	;Number of options for line #3
		DC.B	NLANGOP4_0	;Number of options for line #4
		DC.B	NLANGOP5_0	;Number of options for line #5
;DFB NLANGOP6.0 ;Number of options for line #6, gs only
		DC.B	NLANGOP7_0	;Number of options for line #7
		DC.B	NLANGOP8_0	;Number of options for line #8
		DC.B	NLANGOP9_0	;Number of options for line #9
		DC.B	NLANGOP10_0	;Number of options for line #10

* The disk ejection option keys have the range value not
* equal or greater than $09, but in ten speed the hardware
* is not available for the disk ejection keys and the keyuc
* code had finalized.  Therefore a special index value is
* used to fool around the keyuc and make the range value to 
* put here as index($2d) + 1 = $2e

;DFB $09 ;Number of options for line #11
;DFB $09 ;Number of options for line #12
		DC.B	$2E	;Need to be changed if disk ejection available
		DC.B	$2E	;


* NDCLOCKOP is used by the READBR routine to
* verify that the 2 clock options in BATTERYRAM
* are within range.

*NDCLOCKOP EQU *
		DC.B	NCLOCKOP1_0	;Number of options+1
		DC.B	NCLOCKOP2_0	;Number of options+1


* NRAMDSKOP holds the number of options for each
* submenu screen line.

NRAMDSKOP		EQU	*
		DC.B	$80	;Indicate special lookup
		DC.B	NRAMDSKOP8_0	;Number of options for line #8
		DC.B	$80	;No longer be able to get to this line

* NMOUSEOP holds the number of options for each
* submenu screen line

NMOUSEOP		EQU	*
		DC.B	NMOUSEOP1_0	;Number of options for line #1
		DC.B	NMOUSEOP2_0	;Number of options for line #2
		DC.B	NMOUSEOP3_0	;Number of options for line #3
		DC.B	NMOUSEOP4_0	;Number of options for line #4
		DC.B	NMOUSEOP5_0	;Number of options for line #5


* End of tables whose order can NEVER be changed.




* NCLOCKOP holds the number of options for each
* submenu screen line.

NCLOCKOP		EQU	*
		DC.B	12	;Max month+1=12
		DC.B	31	;Max day+1=31
		DC.B	100	;Max year+1=100
		DC.B	03	;Max date format+1=3
		DC.B	24	;Max hour+1=24
		DC.B	60	;Max minute+1=60
		DC.B	60	;Max second+1=60
		DC.B	02	;Max time format+1=2


* MONTHLEN holds the number of days for each
* month.

	; SEG $FF
MONTHLEN		EQU	*
	; SEG $00
		DC.B	31	;Days in January
		DC.B	28	;Days in non leap year February
		DC.B	31	;Days in March
		DC.B	30	;Days in April
		DC.B	31	;Days in May
		DC.B	30	;Days in June
		DC.B	31	;Days in July
		DC.B	31	;Days in August
		DC.B	30	;Days in September
		DC.B	31	;Days in October
		DC.B	30	;Days in November
		DC.B	31	;Days in December
		DC.B	29	;Days in leap year February

NSPCLSLT1		EQU	*
		DC.B	$04	;Max allowable new slot1 #, <=$03




		TITLE	'BATTERYRAM Default Values'

******************************************************
*                                                    *
*  BATTERYRAM Default Values for Ctrl Panel Dsk Acc  *
*                                                    *
*                    by                         *
*               Fern Bachman     1985-1987           *
*               Joe Bo           1987-1989           *
*                                                    *
*       Copyright Apple Computer, Inc. 1985-1989     *
*                All Rights Reserved.                *
*                                                    *
******************************************************


	; SEG $FF
CPDEFTBL		EQU	*	;Control Panel Defaults table

* Port 1 selections

PORT1DFT		EQU	*
		DC.B	$00	;Device Connected: Printer
		DC.B	$00	;Line Length: Unlimited
		DC.B	$00	;Delete First LF after CR: No
		DC.B	$01	;Add LF after CR: Yes
		DC.B	$00	;Echo: No
		DC.B	$00	;Buffering: No
		DC.B	$0D	;Baud: 9600
		DC.B	$06	;Data/Stop Bits: 8/1
		DC.B	$02	;Parity: None
		DC.B	$01	;DCD Handshake: Yes
		DC.B	$01	;DSR Handshake: Yes
		DC.B	$00	;XON/XOFF Handshake: No

* Port 2 selections

PORT2DFT		EQU	*
		DC.B	$01	;Device Connected: Modem
		DC.B	$00	;Line Length: Unlimited
		DC.B	$00	;Delete First LF after CR: No
		DC.B	$00	;Add LF after CR: No
		DC.B	$00	;Echo: No
		DC.B	$00	;Buffering: No
		DC.B	$07	;Baud: 1200
		DC.B	$06	;Data/Stop Bits: 8/1
		DC.B	$02	;Parity: None
		DC.B	$01	;DCD Handshake: Yes
		DC.B	$01	;DSR Handshake: Yes
		DC.B	$00	;XON/XOFF Handshake: No

* Display selections

DISPDFT		EQU	*
		DC.B	$00	;Type: Color
		DC.B	$00	;Columns: 40
DISPDFTT		DC.B	$0F	;Text: (White)
DISPDFTBK		DC.B	$06	;Background: (Medium Blue)
DISPDFTBD		DC.B	$06	;Border: (Medium Blue)
		DC.B	$00	;Hertz: 60

* Sound selections

SOUNDDFT		EQU	*
		DC.B	$05	;Volume: |-----*---------|
		DC.B	$06	; Pitch: |------*--------|

* Speed selections

SYSSPDDFT		EQU	*
		DC.B	$01	;Speed: Fast

* Slots' selections

SLOTSDFT		EQU	*
		DC.B	$00	;Slot 1: Port 1
		DC.B	$00	;Slot 2: Port 2
		DC.B	$00	;Slot 3: Text Display
		DC.B	$00	;Slot 4: Mouse     
		DC.B	$00	;Slot 5: Smart Port
		DC.B	$00	;Slot 6: Disk Port
		DC.B	$01	;Slot 7: Your Card
		DC.B	$00	;Startup Slot: Scan

* Language selections

LANGDFT		EQU	*
		DC.B	$00	;Text Display: English (U.S.)
		DC.B	$00	;Keyboard: English (U.S.)
		DC.B	$00	;Keyboard Buffering: No
		DC.B	$05	;Repeat Speed: |------*--------|
		DC.B	$02	;Repeat Delay: |-----*---------|
;DFB $02 ;Double Click: |-----*---------|, move out !!   
		DC.B	$02	;Cursor Flash: |-----*---------|
		DC.B	$00	;Shift Caps/Lower Case: No
		DC.B	$00	;Fast Space/Delete Keys: No
		DC.B	$00	;Dual Speed Keys: Normal
*
* Disk ejection keys not implemented yet, set this special index
* to fool around keyuc not to wipe out any combination keys of
* apple-shift-XXX.
*
		DC.B	$2D	;Disk1 ejection, 0 -> 1, 1->2, ......
		DC.B	$2D	;Disk2 ejection, 1 -> 2, 2->3, ......

* Clock selections

CLOCKDFT		EQU	*
		DC.B	$00	;Format: MM/DD/YY
		DC.B	$00	;Format: AM-PM

* Ramdisk selections

RAMDSKDFT		EQU	*
		DC.B	$00	;Minimum RAM for Ramdisk option number
		DC.B	$00	;Maximum RAM for Ramdisk option number
		DC.B	$00	;Reset RAMdisk during next reset

* Mouse defaults

MOUSEDFT		EQU	*
		DC.B	$00	;Mouse Tracking: |*--------------|
		DC.B	$02	;Double Click:   |-----*---------|
		DC.B	$02	;Start Delay:    |-----*---------|
		DC.B	$02	;Acceleration:   |-----*---------|
		DC.B	$06	;Maximum Speed:  |-----*---------|


		DC.B	8	;Number of languages from keyboard micro
		DC.B	0	;Option number of language
		DC.B	1	;Option number of language
		DC.B	2	;Option number of language
		DC.B	3	;Option number of language
		DC.B	4	;Option number of language
		DC.B	5	;Option number of language
		DC.B	6	;Option number of language
		DC.B	7	;Option number of language

		DC.B	10	;Number of layouts from keyboard micro
		DC.B	0	;Option number of layout
		DC.B	1	;Option number of layout
		DC.B	2	;Option number of layout
		DC.B	3	;Option number of layout
		DC.B	4	;Option number of layout
		DC.B	5	;Option number of layout
		DC.B	6	;Option number of layout
		DC.B	7	;Option number of layout
		DC.B	8	;Option number of layout
		DC.B	9	;Option number of layout
		DC.B	10	;Option number of layout
		DC.B	11	;Option number of layout
		DC.B	12	;Option number of layout
		DC.B	13	;Option number of layout
		DC.B	14	;Option number of layout
		DC.B	15	;Option number of layout

* This byte is newly picked for slot1 configuration, it is       
* different from the USERSLT1 that this byte will actually 
* contain the right value (0,1,2,3) for the selection of 
* slot1 where as USERSLT1 will only contain (0,1) for   
* internal/external selection of the card.  Doing this way
* so AppleTalk firmware can survive in either of the system
* disk (must be >= 3.2).

NEWSLT1		DC.B	$00	;Set new slot1 default to printer
ROMDADEF		DC.B	$00	;$00 not install monitor/memory peeker


SAMEPAGE1		PgAdrEQU	PORTOP
SAMEPAGE2		PgAdrEQU	MOUSEDFT
		IF (SAMEPAGE1-SAMEPAGE2) THEN
		WRITELN	'### ERROR: PORTOP -> MOUSEDFT MUST be in the same page!'
		ENDIF

CPDTBLLN		EQU	*-CPDEFTBL

		EJECT
*
* The following tables moved 6/7/91 by JOA to make room for longer splah screens 
*

* STATTBL is defined as follows
*         Bit 7= 0 normal display functions
*              = 1 special display functions
*         Bit 6= 0 standard change functions
*              = 1 special change functions
*         Bit 5= 0 for no clock box
*              = 1 for clock box
*         Bit 4= 0 for 'Open' box only
*              = 1 for 'Cancel'/'Save' boxes only
*         Bits 3-0 = # of lines/screen+1

	; SEG $FF
STATTBL		EQU	*	;Max number of lines/screen+1
	; SEG $00
		DC.B	$80+$40+$10+DISPLEN	;SpDisp/Spchange/no clk/Cancel-Save
		DC.B	$40+$10+SNDLEN	;NMDisp/Spchange/no clk/Cancel-Save
		DC.B	$10+SYSSPDLEN	;NMDisp/NMchange/no clk/Cancel-Save
		DC.B	$80+$40+$20+$10+CLKLEN	;Spdisp/Spchange/clk/Cancel-Save
		DC.B	$10+LANGLEN	;NMDisp/NMchange/no clk/Cancel-Save
		DC.B	$10+SLOTSLEN	;NMDisp/NMchange/no clk/Cancel-Save
		DC.B	$10+SERIALLEN	;NMDisp/NMchange/no clk/Cancel-Save
		DC.B	$10+SERIALLEN	;NMDisp/NMchange/no clk/Cancel-Save
		DC.B	$80+$40+$10+RAMDSKLEN	;SpDisp/Spchange/no clk/Cancel-Sve
		DC.B	$10+MOUSELEN	;NMDisp/NMchange/no clk/Cancel-save
		DC.B	$00	;Required space holder
		DC.B	$20+MMLEN	;Normal/TOSEL1/clock/Open


* LNNUMTBL holds the starting message number
* for the first line number message of each
* submenu screen.

	; SEG $FF
LNNUMTBL		EQU	*
	; SEG $00
		DC.B	DISPLN1	;1st message number of Display submenu
		DC.B	SOUNDLN1	;1st message number of Sound submenu
		DC.B	SYSSPDLN1	;1st message number of System Spd submenu
		DC.B	CLOCKLN1	;1st message number of Clock submenu
		DC.B	LANGLN1	;1st message number of Language submenu
		DC.B	SLOTSLN1	;1st message number of Slots submenu
		DC.B	SERIALLN1	;1st message number of Port 1 submenu
		DC.B	SERIALLN1	;1st message number of Port 2 submenu
		DC.B	RAMDSKLN1	;1st message number of Ramdisk submenu
		DC.B	MOUSELN1	;1st message number of Mouse submenu

		TITLE	'Control Panel Tables2'

******************************************************
*                                                    *
*     Tables2 for Control Panel Desk Accessory       *
*                                                    *
*                    by                              *
*               Fern Bachman     1985-1987           *
*               Joe Bo           1987-1989           *
*                                                    *
*      Copyright Apple Computer, Inc. 1985-1989      *
*                All Rights Reserved.                *
*                                                    *
******************************************************


		DC.B	'   March 17, 1987'	;DATE


* Miscellaneous messages
*
* WARNING: The 'DW's below MUST be in the same
*          order as the previous CP.TABLES or the print
*          program will display the wrong messages.


	; SEG $FF
MSGTBL		EQU	*
	; SEG $00
		DC.W	BOOTMSGA	;'I/O error!' message address
		DC.W	DISKMSGA	;'Not a bootable disk!' message address
		DC.W	DEVMSGA	;'No device connected!' message address
		DC.W	CHKDEVMSGA	;'Check startup device!' message address
		DC.W	TIMEMSGA	;'Time=' message address
		DC.W	STEPMSGA	;'Step' message address
		DC.W	TRACEMSGA	;'Trace' message address
		DC.W	CBANKMSGA	;'Cbank' message address
		DC.W	DECMSGA	;'Decimal' message address
		DC.W	HEXMSGA	;'Hex' message address
		DC.W	ARWDASHDOLA	;'-> $' message address
		DC.W	TLERRMSGA	;'Tool error= ' message address
		DC.W	SYSDMSGA	;'Fatal system error-> ' message address

* Special entry to Control Panel ASCII

		DC.W	SPCHOICESA	;Special entry control panel ASCII

* Desk Accessory Title

		DC.W	CPTITLEA	;' Control Panel' message address 

* Prompts / Footnotes

		DC.W	TOSELUSEA	;'Select:' message address 
		DC.W	UDSELA	;' ^ v' message address 
		DC.W	LRSELA	;' < >' message address 
		DC.W	OPENCRA	;'Open CR' message address
		DC.W	SAVECRA	;'Save CR' message address
		DC.W	CANCELESCA	;'Cancel ESC' message address
		DC.W	SPACEBOXA	;'|              |' message address
		DC.W	TOPBOXA	;' ______________ ' message address
		DC.W	BOTTOMBOXA	;' -------------- ' message address
		DC.W	APS1S2L1A	;'ApTalk/Ser Prt1/Ser Prt2 part 1 msg addr
		DC.W	APS1S2L2A	;'ApTalk/Ser Prt1/Ser Prt2 part 2 msg addr
		DC.W	TWOAPTALKA	;'AppleTalk already Selected' msg addr

* Main Menu

		DC.W	CPLN1A	;'Display' message address 
		DC.W	CPLN2A	;'Sound' message address 
		DC.W	CPLN3A	;'System Speed' message address 
		DC.W	CPLN4A	;'Clock' message address 
		DC.W	CPLN5A	;'Language' message address 
		DC.W	CPLN6A	;'Slots' message address 
		DC.W	CPLN7A	;'Port 1' message address 
		DC.W	CPLN8A	;'Port 2' message address 
		DC.W	CPLN9A	;'Ramdisk' message address 
		DC.W	CPLN11A	;'Mouse' message address
		DC.W	SPACEA	;'  ' message address
		DC.W	CPLN10A	;'Quit' message address 

* Serial Port

		DC.W	SERIALLN1A	;'Device Connected' message address 
		DC.W	SERIALLN2A	;'Line Length' message address 
		DC.W	SERIALLN3A	;'Delete First LF after CR' message addr
		DC.W	SERIALLN4A	;'Add LF after CR' message address 
		DC.W	SERIALLN5A	;'Echo' message address 
		DC.W	SERIALLN6A	;'Buffering' message address 
		DC.W	SERIALLN7A	;'Baud' message address 
		DC.W	SERIALLN8A	;'Data/Stop Bits' message address 
		DC.W	SERIALLN9A	;'Parity' message address 
		DC.W	SERIALLN10A	;'DCD Handshake' message address
		DC.W	SERIALLN11A	;'DSR Handshake' message address
		DC.W	SERIALLN12A	;'XON/XOFF Handshake' message address

* Display

		DC.W	DISPLN1A	;'Type' message address 
		DC.W	DISPLN2A	;'Columns' message address 
		DC.W	COLORSA	;'-Screen Colors-' message address
		DC.W	DISPLN3A	;'Text' message address 
		DC.W	DISPLN4A	;'Background' message address 
		DC.W	DISPLN5A	;'Border' message address 
		DC.W	DISPLN6A	;'Standards' message address
		DC.W	SPACEA	;'  ' message address
		DC.W	DISPLN7A	;'Hertz' message address

* System Speed

		DC.W	CPLN3A	;'System Speed' message address 

* Slots

		DC.W	SLOTSLN1A	;'Slot 1' message address 
		DC.W	SLOTSLN2A	;'Slot 2' message address 
		DC.W	SLOTSLN3A	;'Slot 3' message address 
		DC.W	SLOTSLN4A	;'Slot 4' message address 
		DC.W	SLOTSLN5A	;'Slot 5' message address 
		DC.W	SLOTSLN6A	;'Slot 6' message address 
		DC.W	SLOTSLN7A	;'Slot 7' message address 
		DC.W	SPACEA	;'  ' message address
		DC.W	SLOTSLN8A	;'Startup Slot' message address 

* Options

		DC.W	LANGLN1A	;'Language' message address 
		DC.W	LANGLN2A	;'Keyboard' message address 
		DC.W	LANGLN3A	;'Keyboard Buffering' message address
		DC.W	LANGLN4A	;'Repeat Speed' message address 
		DC.W	LANGLN5A	;'Delay to Repeat' message address 
		DC.W	LANGLN7A	;'Flash Rate of Cursor' message address 
		DC.W	SPACEA	;'   ' Message address
		DC.W	ADVANCEDA	;'-Advanced Features-' message address 
		DC.W	LANGLN8A	;'Shift Caps/Lower Case' message address 
		DC.W	LANGLN9A	;'Fast Space/Delete Keys' msg address 
		DC.W	LANGLN10A	;'Dual Speed' message address 

		IF OPTION4 <> 0 THEN
		DC.W	LANGLN11A	;'Disk1 Eject (shift-Cmd-?)' msg address
		DC.W	LANGLN12A	;'Disk2 Eject (shift-Cmd-?)' msg address
		ENDIF

* Clock

		DC.W	CLOCKLN1A	;'Month' message address 
		DC.W	CLOCKLN2A	;'Day' message address 
		DC.W	CLOCKLN3A	;'Year' message address 
		DC.W	CLOCKLN4A	;'Format' message address 
		DC.W	SPACEA	;'  ' message address
		DC.W	CLOCKLN6A	;'Hour' message address 
		DC.W	CLOCKLN7A	;'Minute' message address 
		DC.W	CLOCKLN8A	;'Second' message address 
		DC.W	CLOCKLN4A	;'Format' message address 


* Ramdisk

		DC.W	RAMDSKLN1A	;'Select Ramdisk Size' message address
;DW RAMDSKLN2A ;'Maximum Ramdisk Size' message address
		DC.W	RAMDSKLN3A	;'-Largest Selectable Size' message addr
		DC.W	SPACEA	;'  ' message address
		DC.W	STATUSA	;'-RAM Status-' message address
		DC.W	RAMDSKLN4A	;'RAM disk Size' message address
		DC.W	RAMDSKLN5A	;'Total RAM in Use' message address
		DC.W	RAMDSKLN6A	;'Total Free RAM' message address
		DC.W	SPACEA	;' ' message address
		DC.W	RAMDSKLN7A	;'Re-size during next reset' message #


* Sound

		DC.W	SOUNDLN1A	;'Volume' message address
		DC.W	SPACEA	;'  ' message address
		DC.W	SOUNDLN2A	;' Pitch' message address

* Mouse

		DC.W	MOUSELN1A	;'Mouse Tracking' message address
		DC.W	MOUSELN2A	;'Double click' message address
		DC.W	SPACEA	;'   ' message address
		DC.W	ADVMSEMSGA	;'-Keyboard Mouse-' msg address
		DC.W	MOUSELN3A	;'Start Delay' message address
		DC.W	MOUSELN4A	;'Acceleration' message address
		DC.W	MOUSELN5A	;'Maxm Speed ' message address

		EJECT

* Serial Port Options

		DC.W	PORTOP1_0A	;'Printer' message address
		DC.W	PORTOP1_1A	;'Modem' message address
		DC.W	PORTOP1_2A	;'AppleTalk' message number
		DC.W	PORTOP1_3A	;'Your Card' message address

		DC.W	PORTOP2_0A	;'40' message address
		DC.W	PORTOP2_1A	;'72' message address
		DC.W	PORTOP2_2A	;'80' message address
		DC.W	PORTOP2_3A	;'132' message address
		DC.W	PORTOP2_4A	;'Unlimited' message address

		DC.W	PORTOP3_0A	;'No' message address
		DC.W	PORTOP3_1A	;'Yes' message address

		DC.W	PORTOP7_0A	;'50' message address
		DC.W	PORTOP7_1A	;'75' message address
		DC.W	PORTOP7_2A	;'110' message address
		DC.W	PORTOP7_3A	;'134.5' message address
		DC.W	PORTOP7_4A	;'150' message address
		DC.W	PORTOP7_5A	;'300' message address
		DC.W	PORTOP7_6A	;'600' message address
		DC.W	PORTOP7_7A	;'1200' message address
		DC.W	PORTOP7_8A	;'1800' message address
		DC.W	PORTOP7_9A	;'2400' message address
		DC.W	PORTOP7_10A	;'3600' message address
		DC.W	PORTOP7_11A	;'4800' message address
		DC.W	PORTOP7_12A	;'7200' message address
		DC.W	PORTOP7_13A	;'9600' message address
		DC.W	PORTOP7_14A	;'19200' message address

		DC.W	PORTOP8_0A	;'5/1' message address
		DC.W	PORTOP8_1A	;'5/2' message address
		DC.W	PORTOP8_2A	;'6/1' message address
		DC.W	PORTOP8_3A	;'6/2' message address
		DC.W	PORTOP8_4A	;'7/1' message address
		DC.W	PORTOP8_5A	;'7/2' message address
		DC.W	PORTOP8_6A	;'8/1' message address
		DC.W	PORTOP8_7A	;'8/2' message address

		DC.W	PORTOP9_0A	;'Odd' message address
		DC.W	PORTOP9_1A	;'Even' message address
		DC.W	PORTOP9_2A	;'None' message address


* Display Options

		DC.W	DISPOP1_0A	;'Color' message address
		DC.W	DISPOP1_1A	;'Monochrome' message address

		DC.W	PORTOP2_1A	;'40' message address
		DC.W	PORTOP2_3A	;'80' message number

		DC.W	DISPOPC0A	;'Black' color message address
		DC.W	DISPOPC1A	;'Deep Red' color message address
		DC.W	DISPOPC2A	;'Dark Blue' color message address
		DC.W	DISPOPC3A	;'Purple' color message address
		DC.W	DISPOPC4A	;'Dark Green' color message address
		DC.W	DISPOPC5A	;'Dark Gray' color message address
		DC.W	DISPOPC6A	;'Medium Blue' color message address
		DC.W	DISPOPC7A	;'Light Blue' color message address
		DC.W	DISPOPC8A	;'Brown' color message address
		DC.W	DISPOPC9A	;'Orange' color message address
		DC.W	DISPOPC10A	;'Light Gray' color message address
		DC.W	DISPOPC11A	;'Pink' color message address
		DC.W	DISPOPC12A	;'Light Green' color message address
		DC.W	DISPOPC13A	;'Yellow' color message address
		DC.W	DISPOPC14A	;'Aquamarine' color message address
		DC.W	DISPOPC15A	;'White' color message address

		DC.W	DISPOP3_0A	;'60' message number
		DC.W	PORTOP7_0A	;'50' message number


* Language Options

		DC.W	LANGOP1_0A	;'U.S.A' message address
		DC.W	LANGOP1_1A	;'U.K.' message address
		DC.W	LANGOP1_2A	;'French' message address
		DC.W	LANGOP1_3A	;'Danish' message address
		DC.W	LANGOP1_4A	;'Spanish' message address
		DC.W	LANGOP1_5A	;'Italian' message address
		DC.W	LANGOP1_6A	;'German' message address
		DC.W	LANGOP1_7A	;'Swedish' message address
		DC.W	LANGOP1_8A	;'Dvorak' message address
		DC.W	LANGOP1_9A	;'French Canadian' message address
		DC.W	LANGOP1_10A	;'Flemish' message address
		DC.W	LANGOP1_11A	;'Hebrew' message address
		DC.W	LANGOP1_12A	;'Japanese' message address
		DC.W	LANGOP1_13A	;'Arabic' message address
		DC.W	LANGOP1_14A	;'Greek' message address
		DC.W	LANGOP1_15A	;'Turkish' message address
		DC.W	LANGOP1_16A	;'Finnish' message address
		DC.W	LANGOP1_17A	;'Portuguese' message address
		DC.W	LANGOP1_18A	;'Tamil' message address
		DC.W	LANGOP1_19A	;'Hindu' message address
		DC.W	LANGOP1_20A	;'T1' message address
		DC.W	LANGOP1_21A	;'T2' message address
		DC.W	LANGOP1_22A	;'T3' message address
		DC.W	LANGOP1_23A	;'T4' message address
		DC.W	LANGOP1_24A	;'T5' message address
		DC.W	LANGOP1_25A	;'T6' message address
		DC.W	LANGOP1_26A	;'L1' message address
		DC.W	LANGOP1_27A	;'L2' message address
		DC.W	LANGOP1_28A	;'L3' message address
		DC.W	LANGOP1_29A	;'L4' message address
		DC.W	LANGOP1_30A	;'L5' message address
		DC.W	LANGOP1_31A	;'L6' message address

		DC.W	BAR0A	;'|*--------------|' message address
		DC.W	BAR1A	;'|-*-------------|' message address
		DC.W	BAR2A	;'|--*------------|' message address
		DC.W	BAR3A	;'|---*-----------|' message address
		DC.W	BAR4A	;'|----*----------|' message address
		DC.W	BAR6A	;'|------*--------|' message address
		DC.W	BAR8A	;'|--------*------|' message address
		DC.W	BAR10A	;'|----------*----|' message address
		DC.W	BAR12A	;'|------------*--|' message address
		DC.W	BAR14A	;'|--------------*|' message address

		DC.W	BAR0A	;'|*--------------|' message address
		DC.W	BAR3A	;'|---*-----------|' message address
		DC.W	BAR7A	;'|-------*-------|' message address
		DC.W	BAR10A	;'|----------*----|' message address
		DC.W	BAR14A	;'|--------------*|' message address

		DC.W	LANGOP10_0A	;'Normal' message address
		DC.W	LANGOP10_1A	;'Fast' message address


* Sound Options

		DC.W	BAR0A	;'|*--------------|' message address
		DC.W	BAR1A	;'|-*-------------|' message address
		DC.W	BAR2A	;'|--*------------|' message address
		DC.W	BAR3A	;'|---*-----------|' message address
		DC.W	BAR4A	;'|----*----------|' message address
		DC.W	BAR5A	;'|-----*---------|' message address
		DC.W	BAR6A	;'|------*--------|' message address
		DC.W	BAR7A	;'|-------*-------|' message address
		DC.W	BAR8A	;'|--------*------|' message address
		DC.W	BAR9A	;'|---------*-----|' message address
		DC.W	BAR10A	;'|----------*----|' message address
		DC.W	BAR11A	;'|-----------*---|' message address
		DC.W	BAR12A	;'|------------*--|' message address
		DC.W	BAR13A	;'|-------------*-|' message address
		DC.W	BAR14A	;'|--------------*|' message address


* Clock Options

		DC.W	CLOCKOP1_0A	;'MM/DD/YY' message address
		DC.W	CLOCKOP1_1A	;'DD/MM/YY' message address
		DC.W	CLOCKOP1_2A	;'YY/MM/DD' message address

		DC.W	CLOCKOP2_0A	;'AM-PM' message address
		DC.W	CLOCKOP2_1A	;'24 Hour' message address


		DC.W	TURNA	;'Turn ' message address
		DC.W	ALTDSPMODEA	;'Alternate Display Mode' msg addr
		DC.W	ONA	;'On' message address
		DC.W	OFFA	;'Off' message address


		DC.W	ACCEPTA	;'Accept CR' message address


		DC.W	WELCOMEA	;'Welcome ...' message address


		DC.W	N1A	;Not to be translated test only
		DC.W	N2A	;Not to be translated, test2 only
		DC.W	SPLASH1	;'Apple IIgs' message address
		DC.W	SPLASH2	;'Copyright ...' message address
		DC.W	SPLASH3	;Spare splash screen message address
		DC.W	SPLASH4	;Spare splash screen message address
		DC.W	SPLASH5	;'All rights ...' message address
		DC.W	SPLASH6	;'ROM ...' message address

; if the 10 in the line below is changed a matching 5 in CP_MsgEquates must be changed also
SPCLPAD		DCB.B	10,0	;Force to align with cp.tables1     
* Slots Options

		DC.W	SLOTSOP1_0A	;'Printer Port' message address
		DC.W	SLOTSOP0_0A	;'Your Card' message address
		DC.W	SLOTSOP1_1A	;'AppleTalk' message address
		DC.W	SLOTSOP1_2A	;'Modem Port' message address

		DC.W	SLOTSOP2_0A	;'Modem Port' message address
		DC.W	SLOTSOP0_0A	;'Your Card' message address
		DC.W	SLOTSOP2_1A	;'AppleTalk' message address
		DC.W	SLOTSOP2_2A	;'Printer Port' message address

		DC.W	SLOTSOP3_0A	;'Built-in Text Display' message address
		DC.W	SLOTSOP0_0A	;'Your Card' message address

		DC.W	SLOTSOP4_0A	;'Built-in Mouse Port' message address
		DC.W	SLOTSOP0_0A	;'Your Card' message address

		DC.W	SLOTSOP5_0A	;Built-in Smart Port' message address
		DC.W	SLOTSOP0_0A	;'Your Card' message address

		DC.W	SLOTSOP6_0A	;Built-in Disk Port' message address
		DC.W	SLOTSOP0_0A	;'Your Card' message address

		DC.W	SLOTSOP7_0A	;Built-in SCSI Port' message address
		DC.W	SLOTSOP0_0A	;'Your Card' message address


		DC.W	SLOTSOP8_0A	;'Scan' message address
		DC.W	SLOTSOP8_1A	;'Slot 1' message address
		DC.W	SLOTSOP8_2A	;'Slot 2' message address
		DC.W	SLOTSOP8_3A	;'Slot 3' message address
		DC.W	SLOTSOP8_4A	;'Slot 4' message address
		DC.W	SLOTSOP8_5A	;'Slot 5' message address
		DC.W	SLOTSOP8_6A	;'Slot 6' message address
		DC.W	SLOTSOP8_7A	;'Slot 7' message address
		DC.W	CPLN9A	;'Ramdisk' message address
		DC.W	SLOTSOP8_8A	;'Romdisk' message address
		DC.W	SLOTSOP8_9A	;'AppleTalk' message address




		TITLE	'Control Panel Messages'

******************************************************
*                                                    *
*      Messages for Control Panel Desk Accessory     *
*                                                    *
*                    by                              *
*               Fern Bachman     1985-1987           *
*               Joe Bo           1987-1989           *
*                                                    *
*      Copyright Apple Computer, Inc. 1985-1989      *
*                All Rights Reserved.                *
*                                                    *
******************************************************


* Miscellaneous Messages

TIMEMSGA		EQU	*
		DCI	'Time= '


STEPMSGA		EQU	*
		DCI	'Step'


TRACEMSGA		EQU	*
		DCI	'Trace'


CBANKMSGA		EQU	*
		DCI	'Cbank (0/1)'


DECMSGA		EQU	*
		DCI	'Decimal-> '


HEXMSGA		EQU	*
ARWDASHDOLA	EQU	HEXMSGA+3
		DCI	'Hex-> $'


TLERRMSGA		EQU	*
		DCI	'Tool error-> '


* Desk Accessory Title

CPTITLEA		EQU	*
		DCI	' Control Panel'

TOSELUSEA		EQU	*
		DCI	'Select:'

BOOTMSGA		EQU	*
		DC.B	14,SPACE	;14 spaces to center msg
		DC.B	'I/O error!'
		DC.B	CRRETURN,TERMINATOR	;Carriage return 


DISKMSGA		EQU	*
		DC.B	10,SPACE	;10 spaces to center msg
		DC.B	'Not a startup disk!'
		DC.B	CRRETURN,TERMINATOR	;Cavriage return 


DEVMSGA		EQU	*
		DC.B	10,SPACE	;10 spaces to center msg
		DC.B	'No device connected!'
		DC.B	CRRETURN,TERMINATOR	;Carriage return 


CHKDEVMSGA	EQU	*
		DC.B	10,SPACE	;10 spaces to center msg
		DC.B	'Check startup device!'
		DC.B	CRRETURN,TERMINATOR	;Carriage return 


SYSDMSGA		EQU	*
		DC.B	8,SPACE	;8 spaces to center msg
		DC.B	'Fatal system error-> '
* TERMINATOR is MOUSEIND of next message


TOPBOXA		EQU	*
		DC.B	MOUSEIND,SPACE
		DC.B	13,BOTTOMLINE
		DC.B	SPACE
* TERMINATOR is MOUSEIND of next message

BOTTOMBOXA	EQU	*
		DC.B	MOUSEIND,SPACE
		DC.B	13,TOPLINE
		DC.B	SPACE	;Space hi bit set
* TERMINATOR is MOUSEIND of next message

UDSELA		EQU	*
		DC.B	MOUSEIND
		DC.B	SPACE,DOWNARROW,SPACE,UPARROW
* TERMINATOR is MOUSEIND of next message

LRSELA		EQU	*
		DC.B	MOUSEIND
		DC.B	SPACE,LEFTARROW,SPACE,RIGHTARROW
		DC.B	TERMINATOR

OPENCRA		EQU	*
		DC.B	18,SPACE
		DC.B	'Open: '
		DC.B	RETURN,TERMINATOR

SAVECRA		EQU	*
		DC.B	2,SPACE
		DC.B	'Save: '
		DC.B	RETURN,TERMINATOR

CANCELESCA	EQU	*
		DC.B	2,SPACE
		DC.B	'Cancel:Esc'
* TERMINATOR is MOUSEIND of next message

SPACEBOXA		EQU	*
		DC.B	MOUSEIND,RIGHTLINE
		DC.B	13,SPACE
		DC.B	LEFTLINE
* TERMINATOR is MOUSEIND of next message

COLORSA		EQU	*
		DC.B	MOUSEIND
		DC.B	CENTERLINE
		DC.B	'Screen Colors'
		DC.B	CENTERLINE
* TERMINATOR is MOUSEIND of next message

APS1S2L1A		EQU	*
		DC.B	MOUSEIND,CENTERLINE
;ASC 'WARNING: Printer / Modem / AppleTalk'
		DC.B	'  WARNING: Either Slot 1 or Slot 2  '
		DC.B	CENTERLINE
* TERMINATOR is MOUSEIND of next message

APS1S2L2A		EQU	*
		DC.B	MOUSEIND,CENTERLINE
;ASC 'cannot be active at the same time!!!'
		DC.B	'  needs to be set to AppleTalk!!!   '
		DC.B	CENTERLINE
* TERMINATOR is MOUSEIND of next message

TWOAPTALKA	EQU	*
		DC.B	MOUSEIND,CENTERLINE
		DC.B	'WARNING:  AppleTalk already Selected'
		DC.B	CENTERLINE
* TERMINATOR IS MOUSEIND of next message

ADVANCEDA		EQU	*
		DC.B	MOUSEIND,CENTERLINE
		DC.B	'Advanced Features'
		DC.B	CENTERLINE
* TERMINATOR is MOUSEIND of next message


STATUSA		EQU	*
		DC.B	MOUSEIND,CENTERLINE
		DC.B	'RAM Status'
		DC.B	CENTERLINE
* TERMINATOR is MOUSEIND of next message

DISPLN7A		EQU	*
		DC.B	MOUSEIND,CENTERLINE
		DC.B	'Hertz: '
* TERMINATOR is MOUSEIND of next message

RAMDSKLN3A	EQU	*
		DC.B	MOUSEIND,CENTERLINE
		DC.B	'Largest Selectable:'
		DC.B	4,SPACE,TERMINATOR


SPCHOICESA	EQU	*
		DC.B	2,SPACE
		DC.B	'1=Enter the Control Panel.'
		DCB.B	2,CRRETURN
		DC.B	'  2=Set system standards and 60 hertz.'
		DCB.B	2,CRRETURN
		DC.B	'  3=Set system standards and 50 hertz.'
		DC.B	CRRETURN,CRRETURN
		DC.B	'  4=Continue restarting the system.'
		DC.B	8,CRRETURN
		DC.B	5,SPACE
		DC.B	'Press 1,2,3 or 4 to continue.'
* TERMINATOR is MOUSEIND of next message


BAR0A		EQU	*
		DC.B	MOUSEIND,RIGHTLINE
		DC.B	'*'
		DC.B	14,CENTERLINE
		DC.B	LEFTLINE
* TERMINATOR is MOUSEIND of next message

BAR1A		EQU	*
		DC.B	MOUSEIND,RIGHTLINE
		DC.B	CENTERLINE
		DC.B	'*'
		DC.B	13,CENTERLINE
		DC.B	LEFTLINE
* TERMINATOR is MOUSEIND of next message

BAR2A		EQU	*
		DC.B	MOUSEIND,RIGHTLINE
		DCB.B	2,CENTERLINE
		DC.B	'*'
		DC.B	12,CENTERLINE
		DC.B	LEFTLINE
* TERMINATOR is MOUSEIND of next message

BAR3A		EQU	*
		DC.B	MOUSEIND,RIGHTLINE
		DC.B	3,CENTERLINE
		DC.B	'*'
		DC.B	11,CENTERLINE
		DC.B	LEFTLINE
* TERMINATOR is MOUSEIND of next message

BAR4A		EQU	*
		DC.B	MOUSEIND,RIGHTLINE
		DC.B	4,CENTERLINE
		DC.B	'*'
		DC.B	10,CENTERLINE
		DC.B	LEFTLINE
* TERMINATOR is MOUSEIND of next message

BAR5A		EQU	*
		DC.B	MOUSEIND,RIGHTLINE
		DC.B	5,CENTERLINE
		DC.B	'*'
		DC.B	9,CENTERLINE
		DC.B	LEFTLINE
* TERMINATOR is MOUSEIND of next message

BAR6A		EQU	*
		DC.B	MOUSEIND,RIGHTLINE
		DC.B	6,CENTERLINE
		DC.B	'*'
		DC.B	8,CENTERLINE
		DC.B	LEFTLINE
* TERMINATOR is MOUSEIND of next message

BAR7A		EQU	*
		DC.B	MOUSEIND,RIGHTLINE
		DC.B	7,CENTERLINE
		DC.B	'*'
		DC.B	7,CENTERLINE
		DC.B	LEFTLINE
* TERMINATOR is MOUSEIND of next message

BAR8A		EQU	*
		DC.B	MOUSEIND,RIGHTLINE
		DC.B	8,CENTERLINE
		DC.B	'*'
		DC.B	6,CENTERLINE
		DC.B	LEFTLINE
* TERMINATOR is MOUSEIND of next message

BAR9A		EQU	*
		DC.B	MOUSEIND,RIGHTLINE
		DC.B	9,CENTERLINE
		DC.B	'*'
		DC.B	5,CENTERLINE
		DC.B	LEFTLINE
* TERMINATOR is MOUSEIND of next message

BAR10A		EQU	*
		DC.B	MOUSEIND,RIGHTLINE
		DC.B	10,CENTERLINE
		DC.B	'*'
		DC.B	4,CENTERLINE
		DC.B	LEFTLINE
* TERMINATOR is MOUSEIND of next message

BAR11A		EQU	*
		DC.B	MOUSEIND,RIGHTLINE
		DC.B	11,CENTERLINE
		DC.B	'*'
		DC.B	3,CENTERLINE
		DC.B	LEFTLINE
* TERMINATOR is MOUSEIND of next message

BAR12A		EQU	*
		DC.B	MOUSEIND,RIGHTLINE
		DC.B	12,CENTERLINE
		DC.B	'*'
		DCB.B	2,CENTERLINE
		DC.B	LEFTLINE
* TERMINATOR is MOUSEIND of next message

BAR13A		EQU	*
		DC.B	MOUSEIND,RIGHTLINE
		DC.B	13,CENTERLINE
		DC.B	'*'
		DC.B	CENTERLINE
		DC.B	LEFTLINE
* TERMINATOR is MOUSEIND of next message

BAR14A		EQU	*
		DC.B	MOUSEIND,RIGHTLINE
		DC.B	14,CENTERLINE
		DC.B	'*'
		DC.B	LEFTLINE,TERMINATOR

* TERMINATOR is MOUSEIND of next message


* Main Menu

CPLN1A		EQU	*
		DCI	'Display'
CPLN2A		EQU	*
		DCI	'Sound'
CPLN3A		EQU	*
		DCI	'System Speed'
CPLN4A		EQU	*
		DCI	'Clock'
CPLN5A		EQU	*
		DCI	'Keyboard'
CPLN6A		EQU	*
		DCI	'Slots'
CPLN7A		EQU	*
		DCI	'Printer Port'
CPLN8A		EQU	*
		DCI	'Modem Port'
CPLN9A		EQU	*
		DCI	'RAM Disk'
CPLN10A		EQU	*
		DCI	'Quit'
CPLN11A		EQU	*
		DCI	'Mouse'


* Serial Port

SERIALLN1A	EQU	*
		DCI	'-Device Connected'
SERIALLN2A	EQU	*
		DCI	'Line Length'
SERIALLN3A	EQU	*
		DCI	'Delete first LF after CR'
SERIALLN4A	EQU	*
		DCI	'Add LF after CR'
SERIALLN5A	EQU	*
		DCI	'Echo'
SERIALLN6A	EQU	*
		DCI	'Buffering'
SERIALLN7A	EQU	*
		DCI	'Baud'
SERIALLN8A	EQU	*
		DCI	'Data/Stop Bits'
SERIALLN9A	EQU	*
		DCI	'Parity'
SERIALLN10A	EQU	*
		DCI	'DCD Handshake'
SERIALLN11A	EQU	*
		DCI	'DSR/DTR Handshake'
SERIALLN12A	EQU	*
		DCI	'XON/XOFF Handshake'


* Display

DISPLN1A		EQU	*
		DCI	'Type'
DISPLN2A		EQU	*
		DCI	'Columns'
DISPLN3A		EQU	*
		DCI	'Text'
DISPLN4A		EQU	*
		DCI	'Background'
DISPLN5A		EQU	*
		DCI	'Border'
DISPLN6A		EQU	*
		DCI	'Standards'
DISPOPC0A		EQU	*
		DCI	'Black'
DISPOPC1A		EQU	*
		DCI	'Deep Red'
DISPOPC2A		EQU	*
		DCI	'Dark Blue'
DISPOPC3A		EQU	*
		DCI	'Purple'
DISPOPC4A		EQU	*
		DCI	'Dark Green'
DISPOPC5A		EQU	*
		DCI	'Dark Gray'
DISPOPC6A		EQU	*
		DCI	'Medium Blue'
DISPOPC7A		EQU	*
		DCI	'Light Blue'
DISPOPC8A		EQU	*
		DCI	'Brown'
DISPOPC9A		EQU	*
		DCI	'Orange'
DISPOPC10A	EQU	*
		DCI	'Light Gray'
DISPOPC11A	EQU	*
		DCI	'Pink'
DISPOPC12A	EQU	*
		DCI	'Light Green'
DISPOPC13A	EQU	*
		DCI	'Yellow'
DISPOPC14A	EQU	*
		DCI	'Aquamarine'
DISPOPC15A	EQU	*
		DCI	'White'


* Slots

SLOTSLN1A		EQU	*
SLOTSOP8_1A	EQU	*
		DCI	'Slot 1'
		DC.B	TERMINATOR

SLOTSLN2A		EQU	*
SLOTSOP8_2A	EQU	*
		DCI	'Slot 2'
		DC.B	TERMINATOR

SLOTSLN3A		EQU	*
SLOTSOP8_3A	EQU	*
		DCI	'Slot 3'
		DC.B	TERMINATOR

SLOTSLN4A		EQU	*
SLOTSOP8_4A	EQU	*
		DCI	'Slot 4'
		DC.B	TERMINATOR

SLOTSLN5A		EQU	*
SLOTSOP8_5A	EQU	*
		DCI	'Slot 5'
		DC.B	TERMINATOR

SLOTSLN6A		EQU	*
SLOTSOP8_6A	EQU	*
		DCI	'Slot 6'
		DC.B	TERMINATOR

SLOTSLN7A		EQU	*
SLOTSOP8_7A	EQU	*
		DCI	'Slot 7'
		DC.B	TERMINATOR

SLOTSLN8A		EQU	*
		DCI	'StartUp'


* Options

LANGLN1A		EQU	*
		DCI	'Display Language'
LANGLN2A		EQU	*
		DCI	'Keyboard Layout'
LANGLN3A		EQU	*
		DCI	'Keyboard Buffering'
LANGLN4A		EQU	*
		DCI	'Repeat Speed'
LANGLN5A		EQU	*
		DCI	'Repeat Delay'
;LANGLN6A EQU *
;DCI 'Double Click'
LANGLN7A		EQU	*
		DCI	'Cursor Flash'
LANGLN8A		EQU	*
		DCI	'Shift Caps/Lowercase'
LANGLN9A		EQU	*
		DCI	'Fast Space/Delete Keys'
LANGLN10A		EQU	*
		DCI	'Dual Speed Keys'

		IF OPTION4 <> 0 THEN
LANGLN11A		EQU	*
		DCI	'Disk1 Eject'
LANGLN12A		EQU	*
		DCI	'Disk2 Eject'
SHIFTMSGA		EQU	*
		DC.B	'-Shift-'
$ELSE
		ENDIF


* Clock

CLOCKLN1A		EQU	*
		DCI	'Month'
CLOCKLN2A		EQU	*
		DCI	'Day'
CLOCKLN3A		EQU	*
		DCI	'Year'
CLOCKLN4A		EQU	*
		DCI	'Format'
CLOCKLN6A		EQU	*
		DCI	'Hour'
CLOCKLN7A		EQU	*
		DCI	'Minute'
CLOCKLN8A		EQU	*
		DCI	'Second'


* RAM Disk

RAMDSKLN1A	EQU	*
		DCI	'Select RAM  Disk  Size'
;RAMDSKLN2A EQU *
;DCI 'Maximum RAM Disk Size'
RAMDSKLN4A	EQU	*
		MSB	OFF	;Create DCI type ASCII string
		DC.B	'RAM Disk Size:'
		MSB	ON
		DC.B	9,INVSPACE,SPACE

RAMDSKLN5A	EQU	*
		MSB	OFF	;Create DCI type ASGII string
		DC.B	'Total RAM in Use:'
		MSB	ON
		DC.B	6,INVSPACE,SPACE

RAMDSKLN6A	EQU	*
		MSB	OFF	;Create DCI type ASCII string
		DC.B	'Total Free RAM:'
		MSB	ON
SPACEA		EQU	*+1	;Catch $20,$A0 from message
		DC.B	8,INVSPACE,SPACE
RAMDSKLN7A	EQU	*
		DCI	'Resize after Reset'


* Sound

SOUNDLN1A		EQU	*
		DCI	'Volume'
SOUNDLN2A		EQU	*
		DCI	' Pitch'

* Mouse

MOUSELN1A		EQU	*
		DCI	'Mouse Tracking'
MOUSELN2A		EQU	*
		DCI	'Double Click  '
MOUSELN3A		EQU	*
		DCI	'Delay-to-Start'
MOUSELN4A		EQU	*
		DCI	'Acceleration  '
MOUSELN5A		EQU	*
		DCI	'Maximum Speed '
ADVMSEMSGA	EQU	*
		DCI	'-Keyboard Mouse-'

		EJECT
* Serial Port Options

PORTOP1_0A	EQU	*
		DCI	'Printer-'
PORTOP1_1A	EQU	*
		DCI	'Modem-'
PORTOP1_2A	EQU	*
		DCI	'AppleTalk-'
PORTOP1_3A	EQU	*
		DCI	'Your Card-'

PORTOP2_0A	EQU	*
		DCI	'Unlimited'
PORTOP2_1A	EQU	*
		DCI	'40'
PORTOP2_2A	EQU	*
		DCI	'72'
PORTOP2_3A	EQU	*
		DCI	'80'
PORTOP2_4A	EQU	*
		DCI	'132'

PORTOP3_0A	EQU	*
		DCI	'No'
PORTOP3_1A	EQU	*
		DCI	'Yes'

PORTOP7_0A	EQU	*
		DCI	'50'
PORTOP7_1A	EQU	*
		DCI	'75'
PORTOP7_2A	EQU	*
		DCI	'110'
PORTOP7_3A	EQU	*
		DCI	'134.5'
PORTOP7_4A	EQU	*
		DCI	'150'
PORTOP7_5A	EQU	*
		DCI	'300'
PORTOP7_6A	EQU	*
		DCI	'600'
PORTOP7_7A	EQU	*
		DCI	'1200'
PORTOP7_8A	EQU	*
		DCI	'1800'
PORTOP7_9A	EQU	*
		DCI	'2400'
PORTOP7_10A	EQU	*
		DCI	'3600'
PORTOP7_11A	EQU	*
		DCI	'4800'
PORTOP7_12A	EQU	*
		DCI	'7200'
PORTOP7_13A	EQU	*
		DCI	'9600'
PORTOP7_14A	EQU	*
		DCI	'19200'

PORTOP8_0A	EQU	*
		DCI	'5/1'
PORTOP8_1A	EQU	*
		DCI	'5/2'
PORTOP8_2A	EQU	*
		DCI	'6/1'
PORTOP8_3A	EQU	*
		DCI	'6/2'
PORTOP8_4A	EQU	*
		DCI	'7/1'
PORTOP8_5A	EQU	*
		DCI	'7/2'
PORTOP8_6A	EQU	*
		DCI	'8/1'
PORTOP8_7A	EQU	*
		DCI	'8/2'

PORTOP9_0A	EQU	*
		DCI	'Odd'
PORTOP9_1A	EQU	*
		DCI	'Even'
PORTOP9_2A	EQU	*
		DCI	'None'


* Display Options

DISPOP1_0A	EQU	*
		DCI	'Color'
DISPOP1_1A	EQU	*
		DCI	'Monochrome'

DISPOP3_0A	EQU	*
		DCI	'60'


* Language Options

LANGOP1_0A	EQU	*
		DCI	'U.S.A.'
LANGOP1_1A	EQU	*
		DCI	'U.K.'
LANGOP1_2A	EQU	*
		DCI	'French'
LANGOP1_3A	EQU	*
		DCI	'Danish'
LANGOP1_4A	EQU	*
		DCI	'Spanish'
LANGOP1_5A	EQU	*
		DCI	'Italian'
LANGOP1_6A	EQU	*
		DCI	'German'
LANGOP1_7A	EQU	*
		DCI	'Swedish'
LANGOP1_8A	EQU	*
		DCI	'Dvorak'
LANGOP1_9A	EQU	*
		DCI	'French Canadian'
LANGOP1_10A	EQU	*
		DCI	'Flemish'
LANGOP1_11A	EQU	*
		DCI	'Hebrew'
LANGOP1_12A	EQU	*
		DCI	'Japanese'
LANGOP1_13A	EQU	*
		DCI	'Arabic'
LANGOP1_14A	EQU	*
		DCI	'Greek'
LANGOP1_15A	EQU	*
		DCI	'Turkish'
LANGOP1_16A	EQU	*
		DCI	'Finnish'
LANGOP1_17A	EQU	*
		DCI	'Portuguese'
LANGOP1_18A	EQU	*
		DCI	'Tamil'
LANGOP1_19A	EQU	*
		DCI	'Hindu'
LANGOP1_20A	EQU	*
		DCI	'T1'
LANGOP1_21A	EQU	*
		DCI	'T2'
LANGOP1_22A	EQU	*
		DCI	'T3'
LANGOP1_23A	EQU	*
		DCI	'T4'
LANGOP1_24A	EQU	*
		DCI	'T5'
LANGOP1_25A	EQU	*
		DCI	'T6'
LANGOP1_26A	EQU	*
		DCI	'L1'
LANGOP1_27A	EQU	*
		DCI	'L2'
LANGOP1_28A	EQU	*
		DCI	'L3'
LANGOP1_29A	EQU	*
		DCI	'L4'
LANGOP1_30A	EQU	*
		DCI	'L5'
LANGOP1_31A	EQU	*
		DCI	'L6'

LANGOP10_0A	EQU	*
		DCI	'Normal'
LANGOP10_1A	EQU	*
		DCI	'Fast'


* Slots Options

SLOTSOP0_0A	EQU	*
		DCI	'Your Card'

SLOTSOP1_0A	EQU	*
SLOTSOP2_2A	EQU	*
		DCI	'Printer'

SLOTSOP2_0A	EQU	*
SLOTSOP1_2A	EQU	*
		DCI	'Modem'

SLOTSOP3_0A	EQU	*
		DCI	'Built-in Text Display'

SLOTSOP4_0A	EQU	*
		DCI	'Mouse Port'

SLOTSOP5_0A	EQU	*
		DCI	'Smart Port'

SLOTSOP6_0A	EQU	*
		DCI	'Disk Port'

SLOTSOP7_0A	EQU	*
SLOTSOP8_9A	EQU	*
SLOTSOP2_1A	EQU	*
SLOTSOP1_1A	EQU	*
;DCI 'Built-in SCSI'
		DCI	'AppleTalk'

SLOTSOP8_0A	EQU	*
		DCI	'Scan'

SLOTSOP8_8A	EQU	*
		DCI	'ROM Disk'


* Clock Options

CLOCKOP1_0A	EQU	*
		DCI	'MM/DD/YY'
CLOCKOP1_1A	EQU	*
		DCI	'DD/MM/YY'
CLOCKOP1_2A	EQU	*
		DCI	'YY/MM/DD'

CLOCKOP2_0A	EQU	*
		DCI	'AM-PM'
CLOCKOP2_1A	EQU	*
		DCI	'24 Hour'


TURNA		EQU	*
		DC.B	3,SPACE
		DC.B	'Turn'
		DC.B	TERMINATOR

ALTDSPMODEA	EQU	*
		DCI	' Alternate Display Mode'

ONA		EQU	*
		DCI	' On'

OFFA		EQU	*
		DCI	' Off'

ACCEPTA		EQU	*
		DC.B	16,SPACE
		DC.B	'Accept '
		DC.B	RETURN,TERMINATOR


WELCOMEA		EQU	*
		DCI	'Welcome...Control-Y Return exits'


CPLEN		EQU	*-MSGTBL


\ No newline at end of file
diff --git a/IIGS.601.SRC/GSFirmware/Monitor/DEBUG.aii b/IIGS.601.SRC/GSFirmware/Monitor/DEBUG.aii
new file mode 100644
index 0000000..46f00aa
--- /dev/null
+++ b/IIGS.601.SRC/GSFirmware/Monitor/DEBUG.aii
@@ -0,0 +1 @@
+		TITLE	'Miscellaneous Debug0 Routines'

;	This EdAsm/Asm816 source code file was converted to AsmIIGS
;	by EdAsmCvtIIGS version 1.2d5 on 5/9/91 at 6:30:4 PM

******************************************************
*                                                    *
*             Miscellaneous Debug0 Routines          *
*                                                    *
*                    by                              *
*               Fern Bachman     1985-1987           *
*               Joe Bo           1987-1989           *
*                                                    *
*       Copyright Apple Computer, Inc. 1985-1989     *
*                All Rights Reserved.                *
*                                                    *
******************************************************

* ZMEMORY zaps memory with the contents of A4L.
*
* User entry format is   zz < bb1/addr1.bb2/addr2Z
*
* A4L contains zap data on entry to here
* A1L/A1H contains starting address to zap
* A2L/A2H contains last address to zap
* EXTENDBNKS contains bb1 if specified else is zero, see the
*  conditions in XMOVE1 !!!
* A4L/A4H is set to starting address+1 to zap

ZMEMORY		EQU	*	;Zap memory
		LDA	>BANKS	;Make source bank = destination bank
		STA	>BANKD	;
		LDY	A4L	;Get zap character
		REP	#$30	;16 bit land please
		LDA	A1L	;Make destination address
		STA	A4L	; the save as source address.
		DEC	A2L	;Fix pointer
		SEP	#$30	;Back to 8 bit land
		TYA		;Save zap char as 1 byte in destination
		LDX	#A4L	;Needed for STORBYTE
		JSR	STORBYTE	;
		REP	#$30	;Off to 16 bit land
		INC	A4L	;Create new destination address
		SEP	#$30	;Back to 16 bit land

* Fall into to XMOVE1 to do actual zap and exit.


* Move a block of memory
*
* User entry format: aa/addr0 < bb1/addr1.bb2/addr2M                   
*
*  if bb2 < bb1 then invalid and move one byte  
*  if bb2 is not specified then assume bb2 = bb1 AND
*   if addr2 < addr1 then illegal and move one byte
*  if bb2 > bb1 then valid and it is crossing bank 

XMOVE1		EQU	*
		LDA	STATEREG	;Save memory state
		CMP	LCBANK2	;Write enable language card
		CMP	LCBANK2	;Write enable language card
		PHA		;
		PHB		;
		AND	#$F2	;Set slot LCRAM/BANK1/SLOTROMCXROM to read
		PHA		;Save for later
		LDA	>LVAL	;Check which LC bank to enable
		ASL	A	;Bit 2=1 for bank1 else leave bank 0
		ASL	A	;
		ORA	1,S	;Or in status byte on stack
		STA	STATEREG	;
		PLA		;Clean up stack
*
		REP	#$20	;16/8 bit m/x
		LONGA	ON
		LONGI	OFF
		PHB		;Save data bank
		JSR	DBTOE1	;Change to $e1 bank
		LDX	#$0	;    
		PHX		;Make hgh byte of hgh word src ptr = 0
		LDY	|BANKS	;Get low byte of high word source pointer'
		PHY		;
		LDA	A1L	;Get 16 bit low word of source address
		PHA		;
		PHX		;Make hgh byte of hgh word dest ptr = 0
		LDY	|BANKD	;Get low byte of high word dest pointer
		PHY		;
		LDA	A4L	;Get 16 bit low word of dest address
		PHA		;

@1		EQU	*
		LDA	|BANKS	;Get the source address starting bank
		AND	#$00FF	;Mask off high word
		PHA		;Save on stack for later
		TAX
		CPX	|HIGHBANK	;CHK for crossing bank
		BEQ	@0	;Bra if no
		BCC	@3	;Bra if yes
;PHX 
;LDX :EXTENDBNKS ;Not cross bank, but could be user
;BNE @5.1 ; doesn't specify ending bank
;PLX  ;If not specify then make end = start bank
;STX :EXTENDBNKS 
;BRA @0 ;Continue on
;@5.1 EQU *
;PLX ;
		STX	|HIGHBANK	;
@5		EQU	*
		LDA	#$0001	;If usr do specify end bank, but end bank
		SEC		; less than start bank, illegal !!
		BRA	@6	;Just move one byte
@0		EQU	*
		LDA	A2L	;If same bank, how about start/end address
		CMP	A1L	;If start > end, fine
		BCC	@5	;Else just move one byte
@3		EQU	*
		SEC		;Set 'c'=1 for sbc
		LDA	A2L	;Get low word of ending address
		SBC	A1L	;Low word count, ending - starting
		INC	A	;Actual transfer count to MEMMOVER
@6		EQU	*
		STA	A2L	;Temp store 
		BNE	@2	;Is it already at $ffff ?  
		INC	|HIGHBANK	;If at $ffff, adjust bank byte by 1 first
@2		EQU	*
		LDA	|HIGHBANK	;Ending bank of source address
		AND	#$00FF	;Mask off unwanted
		SBC	1,S	;Calculate for high word of transfer count
		AND	#$00FF	;
		STA	1,S	;Store result on stack
		LDA	A2L	;Restore low word of count
		PHA		;Store to stack

		LDA	#$0805	;Command word for move_info, use movesincdinc
		PHA		;
		REP	#$30	;Set to 16 bit 'x' also
		JSL	>MEMMOVER	;Jmp to do the move
		PLB		;Restore data bank
		SEP	#$30	;8 bit land in the monitor
		JMP	MEMEXIT


		EJECT

MOVETABLE		EQU	*
		DC.W	MSCONDCON	;0 source constant-destination constant
		DC.W	MSINCDCON	;1 source incs - destination constant
		DC.W	MSDECDCON	;2 source decs - destination constant
		DC.W	MABORTMOVE	;3 illegal move sequence requested
		DC.W	MSCONDINC	;4 source constant - destination incs
		DC.W	MABORTMOVE	;5 src/dest incs should never gets here
		DC.W	MSDECDINC	;6 source decs - destination incs
		DC.W	MABORTMOVE	;7 illegal move sequence requested
		DC.W	MSCONDDEC	;8 source constant - destination decs
		DC.W	MSINCDDEC	;9 source incs - destination decs
		DC.W	MABORTMOVE	;a src/dest decs should never gets here
		DC.W	MABORTMOVE	;b illegal move sequence requested
		DC.W	MABORTMOVE	;c "
		DC.W	MABORTMOVE	;d "
		DC.W	MABORTMOVE	;e "
		DC.W	MABORTMOVE	;f "


;
; move_info revision history
;
; the general move routine (m_sinc_dinc) algorithm in this program is based
; on the one used by the memory manager. it has been updated for gs/os
; purposes and in hopes that new hardware will take over this functionality                
; in the future.
;
; memory manager move routine is by rich williams in original iigs rom.
; later modified for prodos16 by jim jatczynski.
;
; 1/04/88 fab 1st release as move_info routine by fern bachman jr.
; 1/18/88 fab msdecdcon / msconddec needed cpy #$ffff in loop to test for
; falling through an address into the next lower bank.
; msincddec / msdecdinc fixed counter calculation in to
; include count+1 when doing 8 bit increment.
; mscondinc changed inc <dest to inc <dest+2 for correct dest
; bank increment
; performance statistics table added
;
; installed to monitor by Joe Bo         3/88
;
;===============================================================================
;
;===============================================================================
;
; performance statistics table
;
; # subroutine time/byte time/$10000 bytes
;-------------------------------------------------------
; 0 mscondcon 7.36 usec 485.8 msec
; 1 msincdcon 9.30 usec 615.6 msec
; 2 msdecdcon 10.48 usec 691.9 msec
; 4 mscondinc 9.30 usec 615.6 msec
; 5 msincdinc  2.78 usec 180.7 msec
; 6 msdecdinc 18.20 usec 1209.0 msec
; 8 msconddec 10.48 usec 691.9 msec
; 9 msincddec 18.20 usec 1209.0 msec
; a msdecddec  2.78 usec 180.8 msec
;
;===============================================================================
;
		EJECT
;
;===============================================================================
; move_info
;
; Moves a block of data from a source location to a destination location.
;
; Calling sequence:
; 1. Place machine in full native mode (e=0, m=0, x=0)
;
; 2. Push high order word of source pointer onto stack
; 3. Push low order word of source pointer
; 4. Push high order word of destination pointer
; 5. Push low order word of destination pointer
; 6. Push high order word of transfer count
; 7. Push low order word of transfer count
;
; 8. Push command byte
; _______________________________________________
; |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |  |
; |15|14|13|12|11|10|09|08|07|06|05|04|03|02|01|00|
; |__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|
;
; bits 15/14 = reserved
; bits 13/12/11 = move mode
; = 000 =reserved
; = 001 =block move
; = 010-111 =reserved
; bits 10/9/8/7 = reserved
; bits 6/5/4 = reserved
; bits 3/2 = destination incrementer
; = 00 (+0) =constant destination
; = 01 (+1) =increment destination by 1
; = 10 (-1) =decrement destination by 1
; = 11 =reserved
; bits 1/0 = source incrementer
; = 00 (+0) =constant source
; = 01 (+1) =increment source by 1
; = 10 (-1) =decrement source by 1
; = 11 =reserved
;
; 9. jsl move_info
;
;
		EJECT
;
; Stack on entry
; _______________________________________
; |                                       |
; |- high word of source pointer          |
; |_______________________________________| s+$10
; |                                       |
; |- low word of source pointer           |
; |_______________________________________| s+$0e
; |                                       |
; |- high word of destination pointer     |
; |_______________________________________| s+$0c
; |                                       |
; |- low word of destination pointer      |
; |_______________________________________| s+$0a
; |                                       |
; |- high word of transfer count          |
; |_______________________________________| s+$08
; |                                       |
; |- low word of transfer count           |
; |_______________________________________| s+$06
; |                                       |
; |- command word                         |
; |_______________________________________| s+$04
; |                                       |
; |-                                      |
; | return address                        |
; |-                                      |
; |_______________________________________| s+$01
;
;
; Outputs: if no error then
; a= $0000
; c= 0
; if error then
; a= error code
; c= 1
; data bank and direct register are preserved
; a= error code
; x,y = scrambled
;
; Notes: The high byte of source, dest, and Count must be zero
; The source and destination blocks must not overlap
; This routine executes self modifying code on the stack
; and therefore is romable and reentrant
;===============================================================================
;
MMOVEEQU		EQU	*
;
; zero page locations used on stack
;
MSOURCE		EQU	$16	; 4-byte source address
MDEST		EQU	$12	; 4-byte destination address
MCOUNT		EQU	$0E	; 4-byte transfer count
MMOVECOMMAND	EQU	$0C	; 2-byte command word
MRETURNMOVE	EQU	$09	; 3-byte return address
MTEMPCOUNT	EQU	$07	; 2-byte temporary transfer count
MDOMOVE		EQU	$03	; 4-byte mvn 0000 / rtl instructions
MSTACKUSED	EQU	$14	; number of bytes on stack used

	; SEG $ff
MEMMOVER		EQU	*
	; SEG $00

		LONGA	ON
		LONGI	ON
		PHA		; push two bytes on stack for tempcount
		PEA	$6b00	;push an rtl instruction onto stack

; note the a place holder of $00 was left on the stack when the rtl instrucion
; was placed on the stack. that byte will become the high byte of the operand
; for the mvn instruction about to be pushed onto the stack
;
; now put an mvn xxxx instruction on the stack (operand is modified later)

		PEA	$0054	;mvn and low byte of mvn operand
		PHD		; save user's direct page pointer 'd'
		TSC		; make direct page correspond to stack
		TCD

; zero page is now on stack here
;
; zero page after pha, phd, push of 'mvn xxxx, rtl' tsc and tcd
; _______________________________________
; |                                       |
; |- high word of source pointer          |
; |_______________________________________| $18
; |                                       |
; |- low word of source pointer           |      
; |_______________________________________| $16
; |                                       |
; |- high word of destination pointer     |
; |_______________________________________| $14
; |                                       |
; |- low word of destination pointer      |
; |_______________________________________| $12
; |                                       |
; |- high word of transfer count          |
; |_______________________________________| $10
; |                                       |
; |- low word of transfer count           |
; |_______________________________________| $0e
; |                                       |
; |- command word                         |
; |_______________________________________| $0c
; |                                       |
; |-                                      |
; | return address                        |
; |-                                      |
; |_______________________________________| $09
; |                                       |
; |- temp count word                      |
; |_______________________________________| $07
; | rtl                                   |
; |_______________________________________| $06
; |                                       |
; |-                                      |
; | domove mvn 0000 ;(modified code)      |
; |-                                      |
; |_______________________________________| $03
; |                                       |
; |- user's direct page                   |
; |_______________________________________| $01
;
;
; stack moves down when phb info, rtl's info, and rts are placed on stack
; _______________________________________
; | user's data bank register             |
; |_______________________________________|
; | rts back from jsr domvxonstack        |
; |-                                      |
; |_______________________________________|
; |                                       |
; |-                                      |
; | rtl which points to continuation addr |
; |-                                      |
; |_______________________________________|
; |                                       |
; |-                                      |
; | rtl which points to domove            |
; |-                                      |
; |_______________________________________|
;

		PHB		; save dbr on stack (mvn trashes it)
		LDA	msource+2	;is high byte of dest/src/count = 0 ??
		ORA	mdest+2
		ORA	mcount+2
		AND	#$ff00
		BNE	mabortmove	;not = then a high byte <>=0 was found

; if the number of bytes to move equals zero we are done before we started

		LDA	mcount
		ORA	mcount+2
		BEQ	mmovefinished	;finished before we started (ha! ha!)

; to speed up the most common move routine we will check for it now and
; not let it go through the normal move dispatcher

		LDA	mmovecommand	;test if valid or not
		CMP	#movesincdinc	;test for most common mode first
		BEQ	msincdinc	;= then do it quickly

; to speed up the second most common move routine we will check for it now and
; not let it go through the normal move dispatcher

		CMP	#movesdecddec	;test for the 2nd most common mode first
		BNE	moveinfo4
		JMP	msdecddec	;= then do it quickly

; the next 'bit' instruction uses a mask to test for invalid commands and
; invalid options. this mask (found in equates/common.equ) must change as
; other commands become valid.
;
MOVEINFO4		EQU	*
		BIT	#movevaliditymask	;reserved bits set?
		BNE	mabortmove
		BIT	#moveblkcmd	;if moveblkcmd bit isn't set then error
		BEQ	mabortmove

; if we fall to here then figure out which move to do

		AND	#$000f	;upper 3 nibbles are not important
		ASL	a	;set up 'x' to get to rest of moves
		TAX

; most of the move routines need this function so all routines will incur the
; overhead. this is better and shorter than making it a callable subroutine.

; make count into 2's complement so we can increment to $00000000 instead of
; decrementing to $00000000 since it is faster to increment than decrement
; 32 bits worth of data (no compares needed).

		LDA	mcount	;low word of count
		EOR	#$ffff	;
		TAY		;save for later
		LDA	mcount+2	;high word of count
		EOR	#$ffff	;'a'=high word and 'y'=low word now

		INY		;make 2's complement now
		BNE	moveinfo8
		INC	a

MOVEINFO8		EQU	*
		STY	mcount	;leave on zero page
		STA	mcount+2	;leave on zero page

; warning - code that gets jumped to from here assumes count is in 'y'

		JMP	(movetable,x)	;off to routine

; common exit routine is here. all errors and move routines finish up here.

MMOVEFINISHED	EQU	*	;no bytes left to move
		CLC		;indicate no error encountered
		BCC	NOmabortmove

MABORTMOVE	EQU	*
		SEC		;indicate an error was encountered

NOMABORTMOVE	EQU	*
		REP	#$30	;must exit in full native mode

		PLB		; restore dbr
		LDA	mreturnmove	; move return address past parameters
		STA	msource+1
		LDA	mreturnmove+1	; move return address past parameters
		STA	msource+2

		PLD		; restore user's direct register

		TSC		; set s to proper value
		PHP		;save 'c' around addition
		CLC
		ADC	#mstackused	;number of bytes used on stack
		PLP		;restore correct exit 'c'
		TCS		;fix up stack

; Set 'a' correctly for exit based on 'c'

		LDA	#$0000	;assume no errors
		BCC	cleanexit	;
		LDA	#parmrangeerr	;it's an error if here

CLEANEXIT		EQU	*
		RTL



MSINCDINC		EQU	*	;5 source incs - destination incs

; move with incrementing source address and incrementing destination address
; get ready to do the standard move

		JSR	setupformvx	;set up for mvn/mvp
		BRA	mmdfirst

; main move loop

MMDMORE		EQU	*
		STA	mcount+2	; more bytes to move
		LDA	mdomove+1	; a = srcdst banks
		CPX	#$0001	; bank cross? if x=0
		BCS	mmdxnot0
		ADC	#$0100	; add 1 to source bank

MMDXNOT0		EQU	*
		CPY	#$0000	; did destination cross bank?
		BNE	mmdyis0
		INC	a

MMDYIS0		EQU	*
		STA	mdomove+1

MMDFIRST		EQU	*
		TXA		; if count > -x then bank cross
		EOR	#$ffff
		CMP	mtempcount
		BCS	mmdxok
		STA	mtempcount	; only move -x bytes

MMDXOK		EQU	*
		TYA		; will destination cross bank?
		EOR	#$ffff
		CMP	mtempcount
		BCS	mmdyok
		STA	mtempcount	; only move -y bytes

MMDYOK		EQU	*
		JSR	domvxonstack
		BPL	mmdmore

		JMP	mmovefinished

MSCONDCON		EQU	*	;0 source constant -destination constant

;move with the source = constant address and the dest = constant address
; 'y' contains count on entry

		LDX	mcount+2	;high byte of count in 'x'
;
; set the 'm' bit to 1 for 8 bit mode since we're moving one byte at a time.
; we don't have to reset to 16 bit mode for 'a' here since mmovefinished does
; it for us.

		SEP	#$20	;make 'a' register 8 bits
;
MSCONDCONLP	EQU	*
		LDA	[msource]	;indirectly get source information
		STA	[mdest]	; and write it to the dest location

; decrement counter by incrementing it to $00000000

		INY		;increment move counter here
		BNE	mscondconlp	;loop if didn't drop to zero yet
		INX		;increment high byte of move counter
		BNE	mscondconlp	;loop if done

		JMP	mmovefinished

MSINCDCON		EQU	*	;1 source incs - destination constant

;
;move with the source = incrementing address and the dest = constant address
; 'y' contains count on entry

		TYX		;low word of count is in 'y' on entry
		LDY	#$0000	;start at first source byte
;
; set the 'm' bit to 1 for 8 bit mode since we're moving one byte at a time.
; we don't have to reset to 16 bit mode for 'a' here since mmovefinished does
; it for us.

		SEP	#$20	;must use 8 bit 'a' register

MSINCDCONLP	EQU	*
		LDA	[msource],y	;get value to write
		STA	[mdest]	; and write it to constant location

; set up for new source address

		INY		;go to next source location
		BNE	msincdconlp2	;loop if not = 0 yet

; the next inc is an eight bit increment but that is ok since the high
; byte of the high word is always zero to start anyway

		INC	msource+2	;increment bank number

; decrement counter by incrementing it to $00000000

MSINCDCONLP2	EQU	*
		INX		;increment to 0
		BNE	msincdconlp	;loop if not done

		INC	mcount+2	;increment low byte of count word
		BNE	msincdconlp	;not = 0 then just continue
		INC	mcount+3	;increment upper byte of word too
		BNE	msincdconlp	;loop if not done

		JMP	mmovefinished	;all done so exit

MSDECDCON		EQU	*	;2 source decs - destination constant


;move with the source = decrementing address and the dest = constant address
; 'y' contains count on entry

		TYX		;low word of count
		LDY	msource	;start at first source address
		STZ	msource	;reset source pointer

; set the 'm' bit to 1 for 8 bit mode since we're moving one byte at a time.
; we don't have to reset to 16 bit mode for 'a' here since mmovefinished does
; it for us.

		SEP	#$20	;must use 8 bit 'a' register

MSDECDCONLP	EQU	*
		LDA	[msource],y	;get next data byte to move
		STA	[mdest]	;store at constant destination

		DEY		;decrement to next source location
		CPY	#$ffff	;dec through 0 then adjust source bank
		BNE	msdecdconlp2	;<>= then do some more

; the next dec is an eight bit decrement but that is ok since the caller
; should never be decrementing in bank $00 and expect to go into bank $ff.
;
		DEC	msource+2	;decrement source bank
;
; decrement counter by incrementing it to $00000000

MSDECDCONLP2	EQU	*
		INX		;adjust counter
		BNE	msdecdconlp	;<>= then do some more

		INC	mcount+2	;increment low byte of count word
		BNE	msdecdconlp	;not = 0 then just continue
		INC	mcount+3	;increment upper byte of word too
		BNE	msdecdconlp	;<>= then do some more

		JMP	mmovefinished	;done when we fall to here

MSCONDINC		EQU	*	;4 source constant - destination incs

;move with the source = constant address and the dest = incrementing address
; 'y' contains count on entry

		TYX		;low word of count
		LDY	#$0000	;start at first destination byte

; set the 'm' bit to 1 for 8 bit mode since we're moving one byte at a time.
; we don't have to reset to 16 bit mode for 'a' here since mmovefinished does
; it for us.

		SEP	#$20	;must use 8 bit 'a' register
;
MSCONDINCLP	EQU	*
		LDA	[msource]	;get constant value to write
		STA	[mdest],y	; and write it to incrementing location

; set up for new source address

		INY		;go to next source location
		BNE	mscondinclp2	;loop if not = 0 yet

; the next inc is an eight bit increment but that is ok since the high
; byte of the high word is always zero to start anyway

		INC	mdest+2	;increment bank number
;
; decrement counter by incrementing it to $00000000

MSCONDINCLP2	EQU	*
		INX		;increment to 0
		BNE	mscondinclp	;loop if not done

		INC	mcount+2	;increment low byte of count word
		BNE	mscondinclp	;not = 0 then just continue
		INC	mcount+3	;increment upper byte of word too
		BNE	mscondinclp	;loop if not done

		JMP	mmovefinished	;all done so exit

MSDECDINC		EQU	*	;6 source decs - destination incs

;move with the source = decrementing address and the dest = incrementing address

		LDY	msource	;decrementing address
		STZ	msource	;reset source address
		LDX	#$0000	;incrementing address

; set the 'm' bit to 1 for 8 bit mode since we're moving one byte at a time.
; we don't have to reset to 16 bit mode for 'a' here since mmovefinished does
; it for us.

		SEP	#$20	;must use 8 bit 'a' register

MSDECDINCLP	EQU	*
		LDA	[msource],y	;get a byte to transfer
		PHY		;save 'y'
		TXY		;get destination address
		STA	[mdest],y	;save the byte
		PLY		;restore source index

		DEY		;next source index
		CPY	#$ffff	;did we fall through 0 ??
		BNE	msdecdinclp2	;if not go here

; the next dec is an eight bit decrement but that is ok since the caller
; should never be decrementing in bank $00 and expect to go into bank $ff.

		DEC	msource+2	;back up a bank

MSDECDINCLP2	EQU	*
		INX		;next destination index
		BNE	msdecdinclp4	;loop if no bank cross

; the next inc is an eight bit increment but that is ok since the high
; byte of the high word is always zero to start anyway

		INC	mdest+2	;next bank please

; decrement counter by incrementing it to $00000000

MSDECDINCLP4	EQU	*
		INC	mcount	;increment low word of count
		BNE	msdecdinclp
		INC	mcount+1
		BNE	msdecdinclp
		INC	mcount+2	;increment upper word of count
		BNE	msdecdinclp
		INC	mcount+3
		BNE	msdecdinclp	;loop if not done

		JMP	mmovefinished	;exit via common routines

MSCONDDEC		EQU	*	;8 source constant - destination decs

;move with the source = constant address and the dest = decrementing address
; 'y' contains count on entry

		TYX		;low word of count
		LDY	mdest	;start at first destination address
		STZ	mdest	;reset destination pointer

; set the 'm' bit to 1 for 8 bit mode since we're moving one byte at a time.
; we don't have to reset to 16 bit mode for 'a' here since mmovefinished does
; it for us.

		SEP	#$20	;must use 8 bit 'a' register

MSCONDDECLP	EQU	*
		LDA	[msource]	;get constant source byte
		STA	[mdest],y	;store at decrementing destination

		DEY		;decrement to next source location
		CPY	#$ffff	;dec through 0 then adjust dest bank
		BNE	msconddeclp2	;<>= then do some more

; the next dec is an eight bit decrement but that is ok since the caller
; should never be decrementing in bank $00 and expect to go into bank $ff.

		DEC	mdest+2	;decrement source bank

; decrement counter by incrementing it to $00000000

MSCONDDECLP2	EQU	*
		INX		;adjust counter
		BNE	msconddeclp	;<>= then do some more

		INC	mcount+2	;increment low byte of count word
		BNE	msconddeclp	;not = 0 then just continue
		INC	mcount+3	;increment upper byte of word too
		BNE	msconddeclp	;<>= then do some more

		JMP	mmovefinished	;done when we fall to here

MSINCDDEC		EQU	*	;9 source incs - destination decs

;move with the source = incrementing address and the dest = decrementing address

		LDY	#$0000	;incrementing address
		LDX	mdest	;decrementing address
		STZ	mdest	;reset destination address

; set the 'm' bit to 1 for 8 bit mode since we're moving one byte at a time.
; we don't have to reset to 16 bit mode for 'a' here since mmovefinished does
; it for us.

		SEP	#$20	;must use 8 bit 'a' register

MSINCDDECLP	EQU	*
		LDA	[msource],y	;get a byte to transfer
		PHY		;save 'y'
		TXY		;get destination address
		STA	[mdest],y	;save the byte
		PLY		;restore source index

		INY		;next source index
		BNE	msincddeclp2	;if not go here

; the next inc is an eight bit increment but that is ok since the high
; byte of the high word is always zero to start anyway

		INC	msource+2	;next bank

MSINCDDECLP2	EQU	*
		DEX		;next destination index
		CPX	#$ffff	;fallen through $0000 yet??
		BNE	msincddeclp4	;loop if no bank cross

; the next dec is an eight bit decrement but that is ok since the caller
; should never be decrementing in bank $00 and expect to go into bank $ff.

		DEC	mdest+2	;next bank please

; decrement counter by incrementing it to $00000000

MSINCDDECLP4	EQU	*
		INC	mcount	;increment low word of count
		BNE	msincddeclp
		INC	mcount+1
		BNE	msincddeclp
		INC	mcount+2	;increment upper word of count
		BNE	msincddeclp
		INC	mcount+3
		BNE	msincddeclp	;loop if not done

		JMP	mmovefinished	;exit via common routines

MSDECDDEC		EQU	*	;a source decs - destination decs

; move with decrementing source address and decrementing destination address

; set the move instuction in zero page to mvp
;
		LDA	#$0044	;mvp instruction
		STA	mdomove	;upper byte doesn't matter it's modified

		JSR	setupformvx	;set up for mvn/mvp
		BRA	ddmmdfirst

; main move loop

DDMMDMORE		EQU	*
		STA	mcount+2	; more bytes to move
		LDA	mdomove+1	; 'a' = srcdst banks
		CPX	#$ffff	; bank cross? if x=0
		BNE	ddmmdxnot0
		SEC
		SBC	#$0100	; subtract 1 to source bank

DDMMDXNOT0	EQU	*
		CPY	#$ffff	; did destination cross bank?
		BNE	ddmmdyis0
		DEC	a

DDMMDYIS0		EQU	*
		STA	mdomove+1

DDMMDFIRST	EQU	*
		TXA		; if count > source then bank cross
		CMP	mtempcount
		BCS	ddmmdxok
		STA	mtempcount	; only move source bytes

DDMMDXOK		EQU	*
		TYA		; will destination cross bank?
		CMP	mtempcount
		BCS	ddmmdyok
		STA	mtempcount	; only move dest bytes

DDMMDYOK		EQU	*
		JSR	domvxonstack
		BPL	ddmmdmore

		JMP	mmovefinished	;exit via common routines

SETUPFORMVX	EQU	*

; set up the self modifying code to contain destination
; and source in operand of mvn/mvp instruction constructed on stack.

		LDA	msource+2	;get source bank
		XBA
		ORA	mdest+2	;or in destination bank
		STA	mdomove+1	;put bank into mvn/mvp instruction

; decrement count because it contains actual transfer count whereas
; remainder of routine assumes it contains transfer count - 1

		LDA	mcount
		BNE	mara1
		DEC	mcount+2
MARA1		EQU	*
		DEC	mcount

; a move instuction is already on zero page at this point in the code

; initialize registers and tempcount for mvn/mvp on stack

		LDX	msource	; X = low word of source
		LDY	mdest	; Y = low word of dest
		LDA	mcount
		STA	mtempcount
		RTS

DOMVXONSTACK	EQU	*

; set up the address to rtl to which does the mvn on stack
; this is the equivalent of a self modifying jmp absolute long instruction.

		PHK		;push rtl return on stack
		PEA	mcontdomove-1	;push rtl return address-1 on stack

		PEA	$0000	;we'll leave high byte $00 on stack
		PLB		; for setting correct execution bank.
		TSC		;where are we now?
		CLC
		ADC	#$0009	;where are we going?

; +2 around user's direct page on stack
; +1 around user's data bank on stack
; +3 around m_contdomove rtl info on stack
; +2 around rts from jsr domvxonstack
; +1 around execution bank just put on stk
		PHA		;full rtl info on stack

		LDA	mtempcount	; get the number of bytes to move
		RTL		;execute on stack in case we're in rom

MCONTDOMOVE	EQU	*	;return here after mvn
		LDA	mcount	; count = count - bytes moved
		CLC		; actual bytes moved 1 more than count
		SBC	mtempcount
		STA	mcount
		STA	mtempcount
		LDA	mcount+2
		SBC	#$0000
		RTS



		TITLE	'Miscellaneous Debug2 Routines'

******************************************************
*                                                    *
*             Miscellaneous Debug2 Routines          *
*                                                    *
*                    by                              *
*               Fern Bachman     1985-1987           *
*               Joe Bo           1987-1989           *
*                                                    *
*       Copyright Apple Computer, Inc. 1985-1989     *
*                All Rights Reserved.                *
*                                                    *
******************************************************

XVFY		EQU	*
		LONGA	OFF		;8 bit land
		LONGI	OFF
		LDA	>HIGHBANK	;CHK for crossing bank
		CMP	>BANKS	;
		BEQ	@0	;Bra if not
		BCC	@0	;Bra if EXTENDBNKS < BANKS    
		LDA	A2H	;Cross bank, temp store A2 
		PHA		; and temp set to $ffff of that bank
		PHA
		LDA	#$FF
		STA	A2H
		STA	A2L
@0		EQU	*
		JSR	READBYT1	;VERIFY (A1) THRU (A2)
		PHA
		LDX	#A4L
		JSR	READBYTE
		STA	A3L
		PLA
		CMP	A3L
		BEQ	@1
		PHA
		JSR	PRADDR
		PLA
		JSR	PRBYTEFF
		JSR	PR1BLNKFF
		LDA	#$A8
		JSR	COUTFF
		LDA	A3L
		JSR	PRBYTEFF
		LDA	#$A9
		JSR	COUTFF
@1		EQU	*
		JSR	NXTA4
		PHP		;Save the returned 'c'
		LDA	A4H	;CHK destination bank (A4) at bank boundary or not ?
		ORA	A4L
		BNE	@00	;Bra if not
		LDA	>BANKD	;Else need to increase source bank
		INC	A
		STA	>BANKD	;?? NO INC =BANKD
@00		EQU	*
		PLP		;Get 'c'
		BCC	@0	;Bra if source address not yet hit its high address
@3		EQU	*
		LDA	>BANKS	;CHK if source bank already passer bank $ff
		INC	A
		PHA		;Temp save
		BEQ	@4	;Bra if previous one is $ff
		CMP	>HIGHBANK	;Compare for source ending bank
		BEQ	@5	;Bra if source start bank = end bank, prepare to exit 
		BCS	@4	;If already greater than, then exit
		PLA
		STA	>BANKS	;Store as new source start bank
		STZ	A1H	;Set new bank starting address to $0000
		STZ	A1L
		LDA	#$FF	;And ending address to $ffff
		STA	A2H
		STA	A2L
		BRA	@0	;Bra to continue on
@5		EQU	*
		PLA		;Get back new bank
		STA	>BANKS
		PLA		;Get back the user's high address, A2H
		STA	A2L
		PLA
		STA	A2H
		BRA	@0	;Bra to continue for partial bank
@4		EQU	*
		PLA		;Clean stack and exit
		RTS


*
READBYT1		EQU	*
		LDX	#A1L	;read from bank 1
READBYTE		EQU	*
		CLV		;V clear for read
		BVC	MEMACC1
STORBYTE		EQU	*
		SEP	#$40	;V set for write
MEMACC1		EQU	*
		XBA		;Save 'A' in 'B'
		LDA	STATEREG	;Save memory state
		CMP	LCBANK2	;[Write enable the language card always]
		CMP	LCBANK2	;[Write enable the language card always]
		PHA		;
		PHB		;Save data bank register
		AND	#$F2	;Enable slot LCRAM/BANK1/SLOTCxROM to read
		PHA		;Save 'A'
		LDA	>LVAL	;Check which LC bank to enable
		ASL	A	;Bit 2=1 for bank1 else leave bank0
		ASL	A	;
		ORA	1,S	;Or in status byte on stack
		STA	1,S	;Save new memory configuration
		LDA	>ORGMEMORY	; and test for special mem configuration.
		BEQ	@1	;ORGMEMORY=0 then use normal mem config.
		LDA	>MVAL	;Special memory configuration is here
		STA	1,S	; else use BRK/unknown COP mem config.
@1		EQU	*
		PLA		;Recall memory configuration to use.
		STA	STATEREG	; by changing state reg.
		CPX	#A4L	;Use src bnk for A1,A2,A3, dest bnk for A4
		BCC	@11	;
		LDA	>BANKD	;What's destination bank?
		BCS	@2	;
@11		EQU	*
		LDA	>BANKS	;What's source bank?
@2		EQU	*
		PHA		;Move Bank to data bank register
		PLB		; for reading/writing of data.
		XBA		;Recall 'A' in case we're storing it
		BVC	@22	;
		STA	(0,X)	;Else store to correct bank and address
		BRA	MEMEXIT	;Exit by restoring to original state

@22		EQU	*
		LDA	(0,X)	;Read value for user/keep in 'A' for user

MEMEXIT		EQU	*
		XBA		;Preserve 'A' in 'B'
		PLB		;Restore correct data bank register
		PLA		;Restore memory state
MEMEXIT1		EQU	*
		AND	#$BF	;Fix page 2 switch in case user changed it
		BIT	RDPAGE2	;- if page 2 is on
		BPL	@1	;+ if page 1 is on
		ORA	#$40	;Page 2 on then set bit
@1		EQU	*
		STA	STATEREG	;
		XBA		;Back to caller with 'A' correct
		RTS		;
		EJECT
* Pattern search is done in 2 steps.
* 1. Set up the pattern to search for in the input buffer
*    preceeded by the # of bytes in the pattern in location $200.
* 2. Do the actual pattern search after the user types in
*    the range to search and a 'P'.
*
* Pattern search format is as follows
* \ xx yy zz "12345" 'abcd' aa bb cc \<bb1/addr.bb2/addr2P
* If high bank is not specified then EQUALS starting bank
*
* '\' starts and '\' terminates set pattern routine normally.
* $8D terminates the entire line and reenters the monitor.

SETPTRN		EQU	*
		LDA	IN	;Test if been here before
		BEQ	@1	;If been here before skip setup
		LDA	>BANKS	;Save the usr's bank
		STA	>STEPSP+1	;Safe to store here
		PHB		;Change source bank to data bank register
		PLA		;
		STA	>BANKS	;
		STZ	IN	;Reset # of bytes in pattern to search for
		LDA	#$BA	;Get into store mode
		STA	MONMODE	;
		LDA	#$02	;Set PCL/PCH to $0201
		STA	A3H	;Will become new PCH
		DEC	A	;
		STA	A3L	;Will become new PCL
		RTS		;Back to caller

@1		EQU	*
		LDA	>DIGITCNT	;If anything entered then store it
		BEQ	@2	;=0 then just continue normally
		JSR	XSTOR	;Store entered HEX value
@2		EQU	*
		LDA	PCL	;Calculate # of bytes in pattern
		DEC	A	;Ending point -1 = # of bytes in pattern
		STA	IN	;Save result for later
		LDA	>STEPSP+1	;Restore usr's bank
		STA	>BANKS	;Used in 'XSEARCH'
		RTS		;Back to caller


XSEARCH		EQU	*
		REP	#$20	;Off to 16 bit land
		LONGA	ON
		LDA	A2L	;Save high address in case
		PHA		; cross bank required
		SEP	#$20	;Back to 8 bit land
		LONGA	OFF
		LDA	>HIGHBANK	;Chk for crossing bank
		CMP	>BANKS
		BEQ	@00	;Bra if not
		BCC	@00	;Bra if not
		LDA	#$FF	;Else need to adjust high address 
		STA	A2L	; to $ffff of that bank
		STA	A2H
@00		EQU	*
		LDA	A1L	;Save low address (pointer) in case
		PHA		; pattern doesn't all match
		LDA	A1H
		PHA
		LDY	#$01	;1st byte to chk is 2nd byte in input buff
@1		EQU	*
		JSR	READBYT1	;Read byte from memory
		CMP	IN,Y	;Test against value in input buffer
		BNE	@3	;
		JSR	NXTA1	;Inc zero page pointers for next byte
		BCS	@4	;'c' = 1 when done
@7		EQU	*
		INY		;Next byte to test in input buffer
		CPY	IN	;Test against max number to test
		BCC	@1	;Loop if not all there yet
		BEQ	@1	;
		PLA		;Clean up stack
		PLA		;
		LDA	A1H	;Save pointer on stack
		PHA		;
		LDA	A1L	;Fix zero page pointer for PRADDR
		PHA		;
		SBC	IN	;Offset by # of bytes tested
		STA	A1L	;Save for PRADDR
		BCS	@2	;No borrow then continue
		DEC	A1H	;Borrow then dec high byte
@2		EQU	*
		JSR	PRADDR	;Print address
		PLA		;Restore pointer
		STA	A1L	;
		PLA		;
		STA	A1H	;
@8		BRA	@00	;Go look for another match

@3		EQU	*
		PLA		;Restore pointers into search range
		STA	A1H	;
		PLA		;
		STA	A1L	;
		JSR	NXTA1	;Try next location
		BCC	@8	;Bra if not up to high address of the bank
		LDA	A1L	;Make as same stack structure
		PHA
		LDA	A1H
		PHA

@4		EQU	*
		PHB		;Save data bank register
		JSR	DBTOE1	;Change to $e1
		INC	|BANKS	;INC start bank
		LDA	BANKS
		BEQ	@5	;BRA if previous is $ff 
		CMP	HIGHBANK	;Compare with ending bank
		BEQ	@6	;BRA if start bank = end bank
		BCS	@5	;BRA if start bank > end bank, exit
		PLB		;Restore bank
		STZ	A1L	;Reset pointer to $00 for new bank
		STZ	A1H	;
		LDA	#$FF	;Set to $ffff of that bank  
		STA	A2H
		STA	A2L
		BRA	@1	;Continue on..
@6		EQU	*
		PLB		;
		LDA	4,S	;Get back user's high address
		STA	A2H
		LDA	3,S
		STA	A2L
		BRA	@1	;Continue on...
@5		EQU	*	;Prepare to end 
		DEC	|BANKS	;Stay to its last bank
		PLB
		REP	#$20
		PLA		;Clean stack, A2H/A2L 
		PLA		;Clean stack, A1H/A1l
		SEP	#$20

		RTS


\ No newline at end of file
diff --git a/IIGS.601.SRC/GSFirmware/Monitor/DISASM.MINIASM.aii b/IIGS.601.SRC/GSFirmware/Monitor/DISASM.MINIASM.aii
new file mode 100644
index 0000000..43b4dca
--- /dev/null
+++ b/IIGS.601.SRC/GSFirmware/Monitor/DISASM.MINIASM.aii
@@ -0,0 +1 @@
+		TITLE	'65SC816 Dissassembler'

;	This EdAsm/Asm816 source code file was converted to AsmIIGS
;	by EdAsmCvtIIGS version 1.2d5 on 5/9/91 at 6:19:49 PM

******************************************************
*                                                    *
*            Dissassembler for the 65SC816           *
*                                                    *
*                    by                              *
*               Fern Bachman     1985-1987           *
*               Joe Bo           1987-1989           *
*                                                    *
*     Developed from Ed Lai's 65SC816 disassembler   *
*                                                    *
*       Copyright Apple Computer, Inc. 1985-1989     *
*                All Rights Reserved.                *
*                                                    *
******************************************************
*
* The CHKWAIT Routine was added (2/8/89 MSA) to ensure that
*  Control-S keypresses would cause a pause.  Because of the
*  implementation of the video firmware, ctrl-s is not always
*  seen when the event manager is active.  This routine checks
*  to see if the EM is active and if active gets the key from
*  there.  If inactive it tries to get one from $C000.
*
CHKWAIT		EQU	*
		PHA		;Preserve
		JSR	XRDKBD	;Get a key from EM or $C000
		BPL	@1
		AND	#$7F
		CMP	#$13
		BNE	@1
@2		EQU	*
		JSR	XRDKBD
		BPL	@2
@1		EQU	*
		PLA
		RTS
*
*
LISTFF		EQU	*
		JSR	A1PC
		LDA	>MPVAL	;Retrieve 'm' status
		LDX	#'m'	;Show user 'm'
		JSR	PRAEQX	;Print A (in ASCII) = X (in HEX)
		LDA	>XPVAL	;Retrieve 'x' status
		LDX	#'x'	;Show user 'x'
		JSR	PRAEQX	;Print A (in ASCII) = X (in HEX)
		LDA	>DDVAL	;Retrieve 'd' status            
		LDX	#'d'	;Show user 'd'
		JSR	PRAEQX	;Print A (in ASCII) = X (in HEX)
		LDA	>LVAL	;Retrieve LC bank status
		LDX	#'L'	;Add 'k' to 'LCban'
		JSR	PRAEQX	;Print A (in ASCII) = X (in HEX)
		LDA	#CBANKMSG	;Display 'Cbank (0/1)'
		JSR	PRINTMSG	;
		JSR	LIST3	;Next line please
		SEC		;Determine how many lines to display
		LDA	WNDBTM	;Bottom-top-4 = number of lines to show
		SBC	WNDTOP	;
		SEC		;
		SBC	#4	;
		BPL	@1	;+ then enough lines available
		BNE	@1	;<>0 can't quit now
		JMP	LIST3	;Prepare to quit

@1		EQU	*
		JSR	CHKWAIT	;Do a pause if ctrl-s is pressed
		PHA		;Save # counter on stack
		LDY	#0	;Prepare to look ahead
		JSR	READPCY	;Read an opcode
		PHA		;Save opcode
		LDA	>DDVAL	;CHK for special disassembly required
		BNE	@1_0	;BRA for ignoring REP/SEP stuffs
		PLA		;Get back opcode
		CMP	#$C2	;REP code ?
		BEQ	@3	;BRA if yes
		CMP	#$E2	;SEP code ?
		BNE	@1_01	;BRA if not
		JSR	READPCY1	;Read next byte and test for 8 bit m/x
		ASL	A	;Shift m/x to 'c'/'n'
		ASL	A	;
		ASL	A	;
		BPL	@4	;BRA if not setting 'x' to 8 bit mode
		LDA	#$01	;Set flags for MPVAL/XPVAL probably
		STA	>XPVAL	;
@4		BCC	@1_22	;
		LDA	#$01	;
		STA	>MPVAL	;
		BRA	@1_22	;

@1_0		PLA		;Get back opcode
@1_01		CMP	#$22	;JSL opcode
		BEQ	@2	;If JSL opcode see if PRODOS16 MLI call
		CMP	#$20	;Test for PRODOS8 MLI call
		BNE	@1_22	;<>= then no PRODOS call
		JSR	READPCY1	;Read next byte
		ORA	>BANKS	;Source bank and byte=0 if MLI call
		BNE	@1_22	;
		JSR	READPCY1	;Read next byte
		CMP	#>PRO8MLI	;Hi byte of PRODOS8 MLI call address
		BNE	@1_22	;

		LDA	1,S	;See if enough room to show MLI code
		CMP	#3	;Must have 3 or more lines to do this
		BCC	@1_5	;0,1,2 then not enough lines left
		JSR	DISASEM	;Disassemble JSR $BF00 instruction
		JSR	FIXPC	;Fix PCL/PCH
		PLA		;Decrement counter
		DEC	A	;
		PHA		;Resave on stack
		JSR	DO1MLIDATA	;Show line
		LDY	#1	;
@1_1		EQU	*
		JSR	DOMLIDATA	;Show line
		PLA		;Fix up counter
		DEC	A	;-1 for DFB line
		BRA	@1_4	;Done with MLI call so go for next line

@3		EQU	*
		JSR	READPCY1	;Read next byte and test for REP m/x
		ASL	A	;Shift m/x to 'c'/'n'
		ASL	A	;
		ASL	A	;
		BPL	@3_1	;BRA if not set 'x' to 16 bit mode
		LDA	#$00	;Else set to 16 bit mode
		STA	>XPVAL	;Set it for disassembly
@3_1		EQU	*
		BCC	@1_2	;BRA if not set 'm' to 16 bit mode
		LDA	#$00	;
		STA	>MPVAL	;Else set it for disassembly routine
@1_22		BRA	@1_2	;Continue to disassembly

@2		EQU	*
		JSR	READPCY1	;Read next byte and test for PRO16MLI addr
		CMP	#<PRO16MLI	;Test low byte for PRO16MLI first
		BNE	@1_2	;<>= then not a PRODOS 16 MLI call
		JSR	READPCY1	;Read next byte and test for PRO16MLI addr
		CMP	#>PRO16MLI	;Test high byte for PRO16MLI call
		BNE	@1_2	;<>= then not a PRODOS 16 MLI call
		JSR	READPCY1	;Read next byte and test for PRO16MLI addr
		CMP	#^PRO16MLI	;Test bank byte for PRO16MLI call
		BNE	@1_2	;<>= then not a PRODOS 16 MLI call
		LDA	1,S	;Test lines left on scrn to see if enough
		CMP	#$03	;Need 3 lines
@1_5		BCC	DOMLI2	;0,1,2 then quit out of here
		JSR	DISASEM	;Disassemble PRODOS 16 MLI JSL
		JSR	FIXPC	;Alter saved program counter
		PLA		;Alter stack count
		DEC	A	;
		PHA		;Resave count for later
		LDY	#$01	;Print DW for PRODOS 16 MLI call
		JSR	DOMLIDATA	;
		LDY	#$03	;Print DDW for PRODOS 16 MLI call
		BRA	@1_1	;

@1_2		EQU	*
		JSR	DISASEM	;Disassemble unknown instruction
		JSR	FIXPC
		PLA
@1_4		EQU	*
		DEC	A	;Dec counter
		BEQ	LIST3	;=0 then done
		BMI	LIST3	;- then done
		JMP	@1	;Continue on

LIST3		EQU	*
		JSR	CHKWAIT	;Pause if ctrl-s is pressed
		JSR	CROUTFF	;
		BRA	PR1BLNKFF	;Forces a new line with next JSR CROUTFF

DOMLI2		EQU	*
		PLA		;Quit if here
		BRA	LIST3	; after cleaning up stack.

DO1MLIDATA	EQU	*
		LDY	#$00	;# of bytes to show -1
DOMLIDATA		EQU	*
		PHY		;Save 'Y' value
		JSR	PRPCADDR	;Print program ctr bank number/addr
		PLY		;Restore 'Y' value
		STY	LENGTH	;Tell disassembler how much data to show
		JSR	DISASEM2	;Disassemble line
		LDX	#5	;Print 5 blanks
		JSR	PRBL2FF	;Print 'X' number of spaces
		LDY	LENGTH	;Recall # of bytes-1 for operand

@1		EQU	*
		JSR	READPCY	;Read byte
		PHY		;Save 'Y'
		JSR	PRBYTEFF	;Print byte
		PLY		;Recall 'Y'
		DEY		;Next byte please
		BPL	@1	;Loop til all printed

FIXPC		EQU	*
		JSR	PCADJ	;A3=PC+LENGTH
		STA	PCL
		STY	PCH
		STA	A3L	;
		STY	A3H	;
		RTS		;Back to caller

PRPCADDR		EQU	*
		JSR	PRBANKS	;Print bank number
		LDX	PCL	;print PCL,H
		LDY	PCH
		JSR	XPRADDRFF	;
PR1BLNKFF		EQU	*	;Print 1 blank routine
		LDA	#$A0	;Space ASCII
		JMP	COUTFF	;Print ASCII value


XINSDS1		EQU	*
		JSR	PRPCADDR	;Print program ctr bank number/addr
		JSR	READPCY
INSDS3		EQU	*
		LSR	A	;EVEN/ODD TEST 
		STA	A2H	;Save for immediate opcode testing
		TAY
		PHP		;save odd even status
		PHP
		BCC	@1
		AND	#$0F	;MASK BITS 
		ORA	#$80
@1		LSR	A	;LSB INTO CARRY FOR L/R TEST 
		TAX
		LDA	>FMT1,X	;GET FORMAT INDEX BYTE 
		JSR	SCRN2	;R/L H-BYTE ON CARRY 
		PLP		;get back odd even status
		BCC	@2
		ADC	#7	;extra 8 byte disp for odd
@2		STA	FORMAT	;save index of the table
		TAX
		CPX	#8	;If 8 then a 1 or 2 byte # instruction
		BNE	@5	;
		LDA	A2H	;Recall LSR'ed opcode for testing
		AND	#$04	;Test 1 bit only
		BEQ	@4_2	;=0 then 'x' type # opcode
		LDA	>MPVAL	;Test for 16 or 8 bits for 'A' access
		BRA	@4_4	;Branch always

@4_2		EQU	*
		LDA	>XPVAL	;Test for 16 or 8 bits for 'X/Y' access
@4_4		EQU	*
		BNE	@5	;Z=1 then only 8 bits in operand
		LDA	#2	; else C=0 then 16 bits in operand
		BRA	@6	;Skip normal lookup

@5		EQU	*
		LDA	>FMT3,X	;index into opcode length table

* (0=1 byte, 1=2 byte, 2=3 byte, 3=4 byte)

		STA	A2H	;Save for miniassembler
		AND	#$03
@6		EQU	*
		STA	LENGTH
		TYA		;get back opcode / 2
		PLP		;get back odd even status
		BCC	@9
		AND	#$07
		CMP	#$05
		BNE	@7
		DEY		;nnnn1011 -> 0nnnn011
		BRA	@92

@7		TYA		;nnnxxxx1 -> 0nnn1001
		CMP	#$44	;BIT imm?
		BEQ	@8
		AND	#$70
		ORA	#$09
		BRA	@10

@8		LDA	#$12	;point to BIT
		BRA	@10

@9		AND	#03
		CMP	#$03
		BNE	@91
		TYA		;nnnxx110 -> 0nnn0111
		CMP	#$4F
		BEQ	@92	;convert to STZ
		AND	#$70
		ORA	#$07
		BRA	@10

@92		DEY
@91		TYA		;nnnnnnn0 -> 0nnnnnnn
@10		EQU	*
		RTS


DISASEM2		EQU	*	;Disassemble 1 inst without operand
		LDY	#0
@2		JSR	READPCY
		INC	A3L
		BNE	@1
		INC	A3H
@1		JSR	PRBYTEFF
		LDX	#$01	;PRINT 1 BLANK 
@3		JSR	PRBL2FF
		CPY	LENGTH	;PRINT INST (1-3 BYTES) 
		INY		;IN A 12 CHR FIELD 
		BCC	@2
		LDX	#$03	;CHAR COUNT FOR MNEMONIC INDEX 
		CPY	#$04
		BCC	@3
		RTS		;Back to caller


DISASEM		EQU	*
		JSR	XINSDS1	;Get format, length bytes
		PHA		;SAVE MNEMONIC TABLE INDEX 
		JSR	DISASEM2	;Show up to+including opcode (not operand)
		PLY		;RECOVER MNEMONIC INDEX 
		PHX		;MUST preserve X
		TYX		;Need Y index in X
		LDA	>MNEML,X
		STA	LMNEM	;FETCH 3-CHAR MNEMONIC  
		LDA	>MNEMR,X	;  (PACKED INTO 2-BYTES) 
		STA	RMNEM
		JSR	PR1BLNKFF	;Output 1 space
		PLX		;MUST restore X
@1		LDA	#$00
		LDY	#$05
@2		ASL	RMNEM	;SHIFT 5 BITS OF CHARACTER INTO A 
		ROL	LMNEM
		ROL	A	;  (CLEARS CARRY) 
		DEY
		BNE	@2
		ADC	#$BF	;ADD "?" OFFSET 
		JSR	COUTFF	;OUTPUT A CHAR OF MNEM 
		DEX
		BNE	@1
		JSR	PR1BLNKFF	;Output 1 space
		LDA	FORMAT
		TAX
		LDA	>FMT3,X	;Bit6=1 = long addr mode
		ASL	A	;- if long addr mode
		PHP		;save that status
		LDA	>FMT2,X	;get actual format
		STA	FORMAT
		LDX	#$08	;CNT FOR 8 FORMAT BITS 
		LDY	LENGTH
@111		CPX	#$05
		BEQ	@115	;IF X=5 THEN ADDR. 
@112		ASL	FORMAT
		BCC	@113
		LDA	>CHAR1-1,X
		PLP
		PHP
		BPL	@116	;not long addr
		LDA	>CHAR3-1,X
@116		EQU	*
		JSR	COUTFF
		LDA	>CHAR2-1,X
		BEQ	@113
		JSR	COUTFF
@113		DEX
		BNE	@111
		PLP
		RTS

@114		DEY
		BMI	@112
		JSR	PRBYTEFF
@115		LDA	FORMAT
		CMP	#$F8	;Handle relative addr mode
		JSR	READPCY	;Special (PRINT target, and offset)
		STA	A2H	;Save hi byte of offset
		BCC	@114	;
		PLX		;get rid of [ flag
		DEY
		PHY		;MUST save as # bytes offset indicator
		BEQ	@22	;one byte offset
		PHA		;save high byte
		JSR	READPCY	;get low byte
		STA	A2L	;Save lo byte of offset
		ADC	PCL	;note that carry was set
		TAX
		PLA		;get back high byte
		ADC	PCH
		TAY
		TXA
		CLC
		ADC	#2
		TAX
		BCC	@221
		BRA	@220

@22		SEC
		JSR	PCADJ3
		TAX		;PCL,PCH+OFFSET+1 TO A,Y 
		INX
		BNE	@221	;+1 TO Y,X 
@220		INY
@221		EQU	*
		JSR	PRNTYXFF	;Print calculated address
		JSR	PR1BLNKFF	;Output 1 space
		LDA	#'{'	;Now show offset in braces
		JSR	COUTFF	;
		LDA	A2H	;Test for + or - move
		BPL	@221_2	;+ then show '+'
		LDA	#'-'	; else show - number
		JSR	COUTFF	;
		CLC		;Always clear C to add
		PLA		;Test 1 or 2 byte offset
		PHA		;Save again
		BEQ	@221_0	;Skip low byte if here
		LDA	A2L	;Make 2's complement
		EOR	#$FF	;
		ADC	#$01	;
		STA	A2L	;
		BRA	@221_1	;Skip setting carry

@221_0		EQU	*
		SEC		;Force 1 to be added
@221_1		EQU	*
		LDA	A2H	;Don't forget hi byte too
		EOR	#$FF	;
		ADC	#$00	;Adds carry
		BRA	@221_4	;Exit with hi byte in 'A'

@221_2		EQU	*
		LDA	#'+'	;
		JSR	COUTFF	;
		LDA	A2H	;Pick up hi byte to show user
@221_4		EQU	*
		JSR	PRBYTEFF	;Show to user
		PLA		;Recall Y from stack
		BEQ	RELADR2	; and if 0 then only 1 byte offset
		LDA	A2L	;Pick up lo byte of offset
		JSR	PRBYTEFF	; and show to user
RELADR2		EQU	*
		LDA	#'}'	;Now close and exit
		JMP	COUTFF	;

PRAEQX		EQU	*	;Print A in ASCII = X in HEX
		PHX		;Save X
		JSR	PRHEXFF	;Output A in HEX
		LDA	#'='	;
		JSR	COUTFF	;Output =
		PLA		;Recall X
		PHA		;Save for testing
		JSR	COUTFF	;Output X in ASCII
		PLA		;Test for L
		CMP	#'L'	;If L do NO spaces
		BNE	@1	;
		RTS		;Back to caller

@1		EQU	*
		JMP	PRBLNKFF	;Print 3 spaces now


		EJECT
*
* READ MEMORY LOCATION AT (PCL),Y
*
*
*
; FMT1 BYTES:    XXXX XXY0 INSTRS
; IF Y=0         THEN RIGHT HALF BYTE
; IF Y=1         THEN LEFT HALF BYTE
;                  (X=INDEX)
* For example PEI xx is opcode $D4 = 
*    1 1 0 1  0 1 0 0
*    X X X X  X X Y 0
* To find the PEI in FMT1 table go to FMT1,XXXXX
*    = FMT1,$35 and since Y = 0 then the right
*    nybble gives the format in FMT2.  The format
*    number at FMT1,$35 right nybble is $B so the
*    the format looks like nn
*

	; SEG $FF
FMT1		EQU	*
		DC.B	$BB,$BB,$CC,$99
		DC.B	$52,$DB,$CC,$E9
		DC.B	$A9,$BB,$CC,$99
		DC.B	$52,$DD,$CC,$EE
		DC.B	$BC,$B9,$CC,$99
		DC.B	$52,$D9,$CC,$EA
		DC.B	$3C,$BB,$CC,$94
		DC.B	$52,$DD,$CC,$E6
		DC.B	$32,$BB,$CC,$99
		DC.B	$52,$1D,$CC,$E9
		DC.B	$88,$BB,$CC,$99
		DC.B	$52,$1D,$CC,$FE
		DC.B	$08,$BB,$CC,$99
		DC.B	$52,$DB,$CC,$E4
		DC.B	$08,$BB,$CC,$99
		DC.B	$52,$D9,$CC,$E6
; ZZXXXY01 INSTR'S
		DC.B	$B9,$E3,$40,$21
		DC.B	$C8,$D5,$47,$A6

* FMT2 formats are defined as follows
*
* if format is taken from CHAR1
* bit 7  bit 6  bit 5  bit 4  bit 3  bit 2  bit 1  bit 0
*   #      (      $      ,      ,      ,      )      ,
*
* if format is taken from CHAR2
* bit 7  bit 6  bit 5  bit 4  bit 3  bit 2  bit 1  bit 0
*   ^      ^      ^      Y      X      S      ^      Y
* ^ = No register indicated for that format selection
*
* if format is taken from CHAR3
* bit 7  bit 6  bit 5  bit 4  bit 3  bit 2  bit 1  bit 0
*   #      [      $      ,      ,      ,      ]      ,
*

FMT2		EQU	*
		DC.B	$80	; 0 # always 1 byte 
		DC.B	$10	; 1 d,Y
		DC.B	$1F	; 2 r
		DC.B	$1F	; 3 rl
		DC.B	$42	; 4 (a)
		DC.B	$42	; 5 (d)
		DC.B	$4A	; 6 (a,X)
		DC.B	$42	; 7 (a)
		DC.B	$80	; 8 #d (or #a if in 16 bit mode)
		DC.B	$00	; 9 a
		DC.B	$00	; A al
		DC.B	$00	; B d
		DC.B	$00	; C i
		DC.B	$08	; D d,X
		DC.B	$08	; E a,X
		DC.B	$10	; F a,Y
		DC.B	$43	;10 (d),Y
		DC.B	$4A	;11 (d,X)
		DC.B	$08	;12 al,X
		DC.B	$04	;13 r,S
		DC.B	$47	;14 (r,S),Y
		DC.B	$43	;15 [d],Y
		DC.B	$42	;16 [d]

FMT3		EQU	*
		DC.B	$01	; 0 #d always 1 byte 
		DC.B	$01	; 1 d,Y
		DC.B	$01	; 2 r
		DC.B	$02	; 3 rl
		DC.B	$02	; 4 (a)
		DC.B	$01	; 5 (d)
		DC.B	$02	; 6 (a,X)
		DC.B	$02	; 7 (a)
		DC.B	$01	; 8 #d (or #a if 16 bit mode)
		DC.B	$02	; 9 a
		DC.B	$03	; A al
		DC.B	$01	; B d
		DC.B	$00	; C i
		DC.B	$01	; D d,X
		DC.B	$02	; E a,X
		DC.B	$02	; F a,Y
		DC.B	$01	;10 (d),Y
		DC.B	$01	;11 (d,X)
		DC.B	$03	;12 al,X
		DC.B	$01	;13 r,S
		DC.B	$01	;14 (r,S),Y
		DC.B	$41	;15 [d],Y
		DC.B	$41	;16 [d]


CHAR1		DC.B	','
		DC.B	')'
		DC.B	','
		DC.B	','
		DC.B	','
		DC.B	'$'
		DC.B	'('
		DC.B	'#'

CHAR2		DC.B	'Y'
		DC.B	$00	;
		DC.B	'S'
		DC.B	'X'
		DC.B	'Y'
		DC.B	$00
		DC.B	$00
		DC.B	$00

CHAR3		DC.B	','
		DC.B	']'
		DC.B	','
		DC.B	','
		DC.B	','
		DC.B	'$'
		DC.B	'['
		DC.B	'#'

MNEML		EQU	*
		DC.B	$1C,$24,$AD,$8A
		DC.B	$8A,$15,$AD,$15
		DC.B	$1C,$84,$AC,$A9
		DC.B	$23,$53,$AC,$00
		DC.B	$5D,$5D,$1A,$8B
		DC.B	$8B,$9C,$1A,$9C
		DC.B	$1B,$13,$1A,$AD
		DC.B	$A1,$29,$1A,$00
		DC.B	$9D,$C1,$75,$8A
		DC.B	$8A,$6D,$5B,$6D
		DC.B	$1D,$34,$75,$A9
		DC.B	$23,$8A,$5B,$00
		DC.B	$9D,$89,$A5,$9D
		DC.B	$8B,$9C,$5B,$9C
		DC.B	$1D,$11,$A5,$A9
		DC.B	$A1,$8B,$5B,$00
		DC.B	$1C,$1C,$A5,$8A
		DC.B	$29,$AE,$A5,$A5
		DC.B	$19,$A5,$A5,$AE
		DC.B	$AE,$AE,$A5,$00
		DC.B	$69,$69,$69,$8B
		DC.B	$A8,$A8,$69,$69
		DC.B	$19,$69,$69,$AE
		DC.B	$23,$AD,$69,$00
		DC.B	$24,$99,$24,$C0
		DC.B	$53,$29,$24,$29
		DC.B	$1B,$23,$89,$A5
		DC.B	$23,$8A,$5B,$00
		DC.B	$24,$A1,$24,$C8
		DC.B	$53,$7C,$24,$53
		DC.B	$19,$A0,$89,$C9
		DC.B	$A1,$8B,$5D,$00

MNEMR		EQU	*
		DC.B	$D8,$22,$06,$4A
		DC.B	$62,$1A,$06,$1A
		DC.B	$5A,$C4,$C6,$28
		DC.B	$48,$C8,$C6,$00
		DC.B	$26,$1A,$AA,$4A
		DC.B	$62,$1A,$AA,$1A
		DC.B	$94,$CA,$AA,$08
		DC.B	$88,$88,$AA,$00
		DC.B	$54,$5C,$E2,$58
		DC.B	$44,$26,$A2,$26
		DC.B	$C8,$26,$DE,$0A
		DC.B	$54,$74,$A2,$00
		DC.B	$68,$A6,$76,$5A
		DC.B	$44,$26,$A2,$26
		DC.B	$E8,$48,$76,$48
		DC.B	$94,$74,$A2,$00
		DC.B	$C4,$DA,$74,$46
		DC.B	$B4,$44,$74,$72
		DC.B	$08,$44,$74,$74
		DC.B	$84,$68,$76,$00
		DC.B	$74,$72,$74,$46
		DC.B	$B4,$B2,$74,$72
		DC.B	$28,$44,$74,$B2
		DC.B	$6E,$32,$74,$00
		DC.B	$74,$A2,$74,$94
		DC.B	$F4,$B2,$74,$88
		DC.B	$CC,$A2,$94,$62
		DC.B	$4A,$72,$9A,$00
		DC.B	$72,$A2,$72,$C4
		DC.B	$F2,$22,$72,$C8
		DC.B	$A4,$C8,$84,$0C
		DC.B	$8A,$72,$26,$00

	; SEG $00
		EJECT
		TITLE	'65SC816 Opcodes/Modes/# of bytes'
***************************************************
*                                                 *
*      65SC816 Opcodes/Modes/Number of Bytes      *
*                                                 *
***************************************************

*   Name Mode      Bytes     Opcode #
*   ---- --------- -------  ------------------------------
*        #                   immediate
*        (a)                 absolute indirect
*        (a,X)               absolute indexed indirect
*        (d)                 direct indirect
*        (d),Y               direct indirect indexed
*        (d,X)               direct indexed indirect
*        (r,S),Y             stack relative indirect indexed
*        a                   absolute
*        a,X                 absolute indexed (with X)
*        a,Y                 absolute indexed (with Y)
*        Acc                 Accumulator
*        al                  absolute long
*        al,X                absolute indexed long
*        d                   direct
*        d,X                 direct indexed (with X)
*        d,Y                 direct indexed (with Y)
*        i                   implied
*        r                   program counter relative
*        r,S                 stack relative
*        rl                  program counter relative long
*        s                   stack
*        XYA                 block move
*        [d]                 direct indirect long
*        [d],Y               direct indirect indexed long

*   ---- --------- --------- -----------------------------
*   BRK  i           2       00
*   ORA  (d,X)       2       01
*   COP  i           2       02
*   ORA  r,S         2       03
*   TSB  d           2       04
*   ORA  d           2       05
*   ASL  d           2       06
*   ORA  [d]         2       07
*   PHP  s           1       08
*   ORA  #           2 (3)   09
*   ASL  Acc         1       0A
*   PHD  s           1       0B
*   TSB  a           3       0C
*   ORA  a           3       0D
*   ASL  a           3       0E
*   ORA  al          4       0F
*   BPL  r           2       10
*   ORA  (d),Y       2       11
*   ORA  (d)         2       12
*   ORA  (r,S),Y     2       13
*   TRB  d           2       14
*   ORA  d,X         2       15
*   ASL  d,X         2       16
*   ORA  [d],Y       2       17
*   CLC  i           1       18
*   ORA  a,Y         3       19
*   INC  Acc         1       1A
*   TCS  i           1       1B
*   TRB  a           3       1C
*   ORA  a,X         3       1D
*   ASL  a,X         3       1E
*   ORA  al,X        4       1F
*   JSR  a           3       20
*   AND  (d,X)       2       21
*   JSL  al          4       22
*   AND  r,S         2       23
*   BIT  d           2       24
*   AND  d           2       25
*   ROL  d           2       26
*   AND  [d]         2       27
*   PLP  s           1       28
*   AND  #           2 (3)   29
*   ROL  Acc         1       2A
*   PLD  s           1       2B
*   BIT  a           3       2C
*   AND  a           3       2D
*   ROL  a           3       2E
*   AND  al          4       2F
*   BMI  r           2       30
*   AND  (d),Y       2       31
*   AND  (d)         2       32
*   AND  (r,S),Y     2       33
*   BIT  d,X         2       34
*   AND  d,X         2       35
*   ROL  d,X         2       36
*   AND  [d],Y       2       37
*   SEC  i           1       38
*   AND  a,Y         3       39
*   DEC  Acc         1       3A
*   TSC  i           1       3B
*   BIT  a,X         3       3C
*   AND  a,X         3       3D
*   ROL  a,X         3       3E
*   AND  al,X        4       3F
*   RTI  s           1       40
*   EOR  (d,X)       2       41
*   WDM  i           2       42
*   EOR  r,S         2       43
*   MVP  XYA         3       44
*   EOR  d           2       45
*   LSR  d           2       46
*   EOR  [d]         2       47
*   PHA  s           1       48
*   EOR  #           2 (3)   49
*   LSR  Acc         1       4A
*   PHK  s           1       4B
*   JMP  a           3       4C
*   EOR  a           3       4D
*   LSR  a           3       4E
*   EOR  al          4       4F
*   BVC  r           2       50
*   EOR  (d),Y       2       51
*   EOR  (d)         2       52
*   EOR  (r,S),Y     2       53
*   MVN  XYA         3       54
*   EOR  d,X         2       55
*   LSR  d,X         2       56
*   EOR  [d],Y       2       57
*   CLI  i           1       58
*   EOR  a,Y         3       59
*   PHY  s           1       5A
*   TCD  i           1       5B
*   JMP  al          4       5C
*   EOR  a,X         3       5D
*   LSR  a,X         3       5E
*   EOR  al,X        4       5F
*   RTS  s           1       60
*   ADC  (d,X)       2       61
*   PER  s           3       62
*   ADC  r,S         2       63
*   STZ  d           2       64
*   ADC  d           2       65
*   ROR  d           2       66
*   ADC  [d]         2       67
*   PLA  s           1       68
*   ADC  #           2 (3)   69
*   ROR  Acc         1       6A
*   RTL  s           1       6B
*   JMP  (a)         3       6C
*   ADC  a           3       6D
*   ROR  a           3       6E
*   ADC  al          4       6F
*   BVS  r           2       70
*   ADC  (d),Y       2       71
*   ADC  (d)         2       72
*   ADC  (r,S),Y     2       73
*   STZ  d,X         2       74
*   ADC  d,X         2       75
*   ROR  d,X         2       76
*   ADC  [d],Y       2       77
*   SEI  i           1       78
*   ADC  a,Y         3       79
*   PLY  s           1       7A
*   TDC  i           1       7B
*   JMP  (a,X)       3       7C
*   ADC  a,X         3       7D
*   ROR  a,X         3       7E
*   ADC  al,X        4       7F
*   BRA  r           2       80
*   STA  (d,X)       2       81
*   BRL  rl          3       82
*   STA  r,S         2       83
*   STY  d           2       84
*   STA  d           2       85
*   STX  d           2       86
*   STA  [d]         2       87
*   DEY  i           1       88
*   BIT  #           2 (3)   89
*   TXA  i           1       8A
*   PHB  s           1       8B
*   STY  a           3       8C
*   STA  a           3       8D
*   STX  a           3       8E
*   STA  al          4       8F
*   BCC  r           2       90
*   STA  (d),Y       2       91
*   STA  (d)         2       92
*   STA  (r,S),Y     2       93
*   STY  d,X         2       94
*   STA  d,X         2       95
*   STX  d,Y         2       96
*   STA  [d],Y       2       97
*   TYA  i           1       98
*   STA  a,Y         3       99
*   TXS  i           1       9A
*   TXY  i           1       9B
*   STZ  a           3       9C
*   STA  a,X         3       9D
*   STZ  a,X         3       9E
*   STA  al,X        4       9F
*   LDY  #           2 (3)   A0
*   LDA  (d,X)       2       A1
*   LDX  #           2 (3)   A2
*   LDA  r,S         2       A3
*   LDY  d           2       A4
*   LDA  d           2       A5
*   LDX  d           2       A6
*   LDA  [d]         2       A7
*   TAY  i           1       A8
*   LDA  #           2 (3)   A9
*   TAX  i           1       AA
*   PLB  s           1       AB
*   LDY  a           3       AC
*   LDA  a           3       AD
*   LDX  a           3       AE
*   LDA  al          4       AF
*   BCS  r           2       B0
*   LDA  (d),Y       2       B1
*   LDA  (d)         2       B2
*   LDA  (r,S),Y     2       B3
*   LDY  d,X         2       B4
*   LDA  d,X         2       B5
*   LDX  d,Y         2       B6
*   LDA  [d],Y       2       B7
*   CLV  i           1       B8
*   LDA  a,Y         3       B9
*   TSX  i           1       BA
*   TYX  i           1       BB
*   LDY  a,X         3       BC
*   LDA  a,X         3       BD
*   LDX  a,Y         3       BE
*   LDA  al,X        4       BF
*   CPY  #           2 (3)   C0
*   CMP  (d,X)       2       C1
*   REP  #           2       C2
*   CMP  r,S         2       C3
*   CPY  d           2       C4
*   CMP  d           2       C5
*   DEC  d           2       C6
*   CMP  [d]         2       C7
*   INY  i           1       C8
*   CMP  #           2 (3)   C9
*   DEX  i           1       CA
*   WAI  i           1       CB
*   CPY  a           3       CC
*   CMP  a           3       CD
*   DEC  a           3       CE
*   CMP  al          4       CF
*   BNE  r           2       D0
*   CMP  (d),Y       2       D1
*   CMP  (d)         2       D2
*   CMP  (r,S),Y     2       D3
*   PEI  s           2       D4
*   CMP  d,X         2       D5
*   DEC  d,X         2       D6
*   CMP  [d],Y       2       D7
*   CLD  i           1       D8
*   CMP  a,Y         3       D9
*   PHX  s           1       DA
*   STP  i           1       DB
*   JML  (a)         3       DC
*   CMP  a,X         3       DD
*   DEC  a,X         3       DE
*   CMP  al,X        4       DF
*   CPX  #           2 (3)   E0
*   SBC  (d,X)       2       E1
*   SEP  #           2       E2
*   SBC  r,S         2       E3
*   CPX  d           2       E4
*   SBC  d           2       E5
*   INC  d           2       E6
*   SBC  [d]         2       E7
*   INX  i           1       E8
*   SBC  #           2 (3)   E9
*   NOP  i           1       EA
*   XBA  i           1       EB
*   CPX  a           3       EC
*   SBC  a           3       ED
*   INC  a           3       EE
*   SBC  al          4       EF
*   BEQ  r           2       F0
*   SBC  (d),Y       2       F1
*   SBC  (d)         2       F2
*   SBC  (r,S),Y     2       F3
*   PEA  s           3       F4
*   SBC  d,X         2       F5
*   INC  d,X         2       F6
*   SBC  [d],Y       2       F7
*   SED  i           1       F8
*   SBC  a,Y         3       F9
*   PLX  s           1       FA
*   XCE  i           1       FB
*   JSR  (a,X)       3       FC
*   SBC  a,X         3       FD
*   INC  a,X         3       FE
*   SBC  al,X        4       FF


		TITLE	'65SC816 MiniAssembler'

******************************************************
*                                                    *
*            MiniAssembler for the 65SC816           *
*                    by                              *
*               Fern Bachman     1985-1987           *
*               Joe Bo           1987-1989           *
*                                                    *
*       Developed from the 65C02 MiniAssembler       *
*                         by                         *
*                       Ed Lai                       *
*                                                    *
*       Copyright Apple Computer, Inc. 1985-1989     *
*                All Rights Reserved.                *
*                                                    *
******************************************************


* Calculate offset byte for relative addresses

REL		EQU	*	;calc relative address
		LDA	>DIGITCNT	;Length must be 2 or less or error
		CMP	#3	;
		BCS	GOERR	;Error exit
		LDA	A1H	;Test for BRL/PER or regular 1 byte branch
		CMP	#$82	;Is it a BRL?
		BEQ	BRANCHLONG	;
		CMP	#$62	;Is it a PER?
		BEQ	BRANCHLONG	;A 'PER' is processed as a BRL instruction
		LDY	A3H	;
		LDX	A3L	;
		BNE	@1
		DEY		;point to offset
@1		DEX		;displacement - 1
		TXA
		CLC
		SBC	PCL	;subtract current PCL
		STA	A3L	;and save as displacement
		BPL	@2	;check page
		INY
@2		TYA		;get page
		SBC	PCH	;check page
		BEQ	MOVINST
GOERR		JMP	MINIERR	;display error

BRANCHLONG	EQU	*
		REP	#$30	;Go to 16 bit land to do some things
		LDA	A3L	;To address
		DEC	A	;Offset by 2
		DEC	A	;
		CLC		;Causes correct subtraction
		SBC	PCL	;From address
		STA	A3L	;Save offset
		SEP	#$30	;Back to 8 bit land


MOVINST		EQU	*	;Move byte(s) to memory
		JSR	MOVINST1	;

* Display instruction

		JSR	PRBLNKFF	;print blanks to make ProDOS work
		JSR	UPFF	;move up 2 lines
		JSR	UPFF
		JSR	DISASEM	;disassemble the instruction
		JSR	FIXPC	;Calculate new PC and update PCL/PCH
		BRA	GETINST	;and go get next instruction

* Compare disassembly of all known opcodes with
* the one typed in until a match is found

GETOP		LDA	A1H	;get opcode
		JSR	INSDS3	;determine mnemonic index
		PHX		;Save Offset into length table
		PHA		;
		LDX	FORMAT	;Convert offset into format
		LDA	>FMT2,X	; to a format the miniassembler 
		STA	FORMAT	;  understands.
		PLA		;
		TAX		;X = index
		LDA	>MNEMR,X	;get right half of index
		CMP	A4L	;does it match entry?
		BNE	NXTOP	;=>try next opcode
		LDA	>MNEML,X	;get left half of index
		CMP	A4H	;does it match entry?
		BNE	NXTOP	;=>no, try next opcode
		LDY	FORMAT	;get addr. mode format for that opcode
		CPY	#$1F	;Is it a relative address?
		BNE	TESTLEN	;<> a branch type inst then test others
		PLX		;Clean up stack
		JMP	REL	;

DOINST2		EQU	*
		JMP	DOLIN	;Go attempt disassembly
DOINST4		EQU	*
		JMP	GETI1	;

TESTLEN		EQU	*
		PLX		;Did user enter 8/16 bit # instruction?
		LDA	LMNEM	;found opcode, check address mode
		CMP	FORMAT	;does mode match?
		BNE	NXTOP2	;
		LDA	>DIGITCNT	;Make sure length is same too
		CMP	A2H	;
@1		EQU	*
		BEQ	MOVINST	;=>yes, move instruction to memory
		CPX	#8	;
		BNE	NXTOP2	;
		CMP	#1	;1 or 2 bytes is OK
		BEQ	@1	;
		CMP	#2	;
		BEQ	@1	;
		BNE	NXTOP2	;Try next opcode
NXTOP		EQU	*
		PLX		;Clean up stack
NXTOP2		EQU	*
		DEC	A1H	;else try next opcode
		BNE	GETOP	;=>go try it
		DEC	YSAV1
		BEQ	GETOP	;=>go try next format

* Point to the error with a caret, beep, and fall 
* into the mini-assembler.

MINIERR		LDY	YSAV	;get position
MINIERR2		TYA
		TAX
		JSR	PRBL2FF	;tab to the error
		LDA	#$DE	;to print a caret "^"
		JSR	COUTFF	;print it
		JSR	NEWBELL1	;Ring the dingy
GETINST		JSR	GETLNZFF	;and go get next instruction

* Read a line of input.  If prefaced with " ", decode
* mnemonic. If "$" do monitor command.  Otherwise parse
* hex address before decoding mnemonic.

DOINST		EQU	*
		LDA	#$00	;clear mode
		STA	MONMODE	;
		TAY		;0 out Y
		LDA	IN	;get first char in line
		CMP	#$A0	;if blank, 
		BEQ	DOINST2	;Go attempt disassembly
		CMP	#':'	;Test for data entry mode
		BEQ	HEXENTRY	;
		CMP	#'"'	;Test for literal ASCII input
		BEQ	ASCLITERAL	;ASCII string literal entry if ' entered
		CMP	#$8D	;is it return?
		BNE	DOINST4	;=>no, continue
		REP	#$30	;Off to 16 bit land to save a byte
		PLA		;Recall MPVAL/XPVAL
		STA	>MPVAL	;Restore said values
		SEP	#$30	;Back to normal bank FF monitor mode
		JMP	MONZ2RTN	;


MINIFF		EQU	*
		REP	#$30	;Off to 16 bit land to save a byte
		LDA	>MPVAL	;Restore said values
		PHA		;Save MPVAL/XPVAL
		SEP	#$30	;Back to normal bank FF monitor mode
		LDA	#$A1	;get mini-prompt "!"
		STA	PROMPT
		LDA	IN+1	;Test for CR -- If none assume address
		CMP	#$8D	;
		BEQ	GETINST	;
		LDY	#$00	;Move $20 bytes back to start of line
@1		EQU	*
		LDA	IN+1,Y	;From
		STA	IN,Y	;To
		INY		;Next
		CPY	#$20	;Test for done
		BNE	@1	;
		BRA	DOINST	;Do instruction


HEXENTRY		EQU	*	;User entering data directly
		INY		;Start with 2nd character in input buffer
		STY	YSAV	;Save 'Y' index
@1		EQU	*	;
		LDY	YSAV	;Recall index in line
		JSR	GETNUMFF	;Get some data
		STY	YSAV	;Save entry into line
		JSR	HEXENTRY3	;Move hex data to memory
		BNE	@1	;Loop for more entry
TOGETINST		EQU	*
		BRA	GETINST	;= then last entry


LITERALASC	EQU	*
		LDA	#$BA	;Stay in store mode
		STA	MONMODE	;
		LDY	YSAV	;Input buffer location
		LDA	A3L	;Move address to PCL/PCH
		STA	PCL	;
		LDA	A3H	;
		STA	PCH	;
		DEY		;Offset since YSAV is one to many
		JSR	ASCLITERAL1	;Store data
		CMP	#$8D	;Carriage return then to MONZRTN else
		BEQ	@1	; point to nxt item in buffer+continue.
		INY		;'Y' always points to next item in buffer
		STY	YSAV	; and is saved in YSAV.
		RTS		;Exit back to regular monitor routines

@1		EQU	*
		JMP	MONZ2RTN	;End rest of line and reenter monitor

ASCLITERAL	EQU	*	;User entering ASCII string data directly
		JSR	ASCLITERAL1	;
		BRA	TOGETINST	;Back to miniassembler stuff

ASCLITERAL1	EQU	*
		INY		;Test next char for $8D to terminate entry
		LDA	IN,Y	;Get next character
		CMP	#$8D	;Carriage return then no more entry
		BEQ	@1	;Go for next line
		CMP	#'"'	;'"' is line terminator
		BEQ	@1	;Exit if terminator found
		PHY		;Save input buffer index
		AND	>ASCFILTER	;Filter the ASCII entered
		PHA		;Save 'A' value
		LDY	#$00	;Required for PCYTOA3
		JSR	PCYTOA3	;Find location
		PLA		;Recall value to print
		JSR	STORBYTE	;Store byte in memory
		STZ	LENGTH	;Fake out PCADJ
		LDA	PCH	;CHK if PCH already at $ff
		EOR	#$FF
		BNE	@2	;Bra if not
		LDA	PCL	;Else need to chk for crossing bank
		PHA		;Save as old PCL before PCADJ
		JSR	FIXPC	;Update for new PC
		PLA		;Get back old PCL
		CMP	PCL	;Compare with new PCL
		BCC	@3	;Bra if not yet crossing bank
		JSR	INCBANKS	;Else need to adjust BANKS
		BRA	@3	;Continue but in new bank
@2		EQU	*
		JSR	FIXPC	;Calls PCADJ
@3		EQU	*
		PLY		;Recall 'Y' index
		BRA	ASCLITERAL1	;Loop til carriage return found

@1		EQU	*
		RTS		;Back to caller


GETI1		JSR	XGETNUMFF	;parse hexadecimal input
		CMP	#$93	;look for "ADDR:" 
GOMINIERR2	BNE	NXTCHR0	;no ":", display error 
		JSR	A1PC	;Move address to PCL/PCH
		BEQ	NXTCHR0	;no "ADDR", display error
		LDA	IN,Y	;Test for literal input modes
		CMP	#'"'	;If '"' here then literal ASCII entry
		BEQ	ASCLITERAL	;
		CMP	#':'	;If : here then literal HEX entry
		BNE	DOLIN
		JMP	HEXENTRY	;Jump for hex entry
DOLIN		EQU	*
		LDA	#$03	;get starting opcode
		STA	A1H	;and save
NXTCH		JSR	NNBL	;get next non-blank
		ASL	A	;validate entry
		SBC	#$BE
		CMP	#$C2
		BCS	NXTCH2	;Continue normally if 'c'=1
NXTCHR0		JMP	MINIERR2	;=>flag bad mnemonic

* Form mnemonic for later comparison

NXTCH2		EQU	*
		ASL	A
		ASL	A
		LDX	#$04
@111		ASL	A
		ROL	A4L
		ROL	A4H
		DEX
		BPL	@111
		DEC	A1H	;decrement mnemonic count
		BEQ	@111
		BPL	NXTCH
		LDX	#$7	;index into address mode tables
		STZ	A2L	;0= not long address
@1		EQU	*
		JSR	NNBL	;Get next non-blank character
		STY	YSAV	;Save position in input buffer
		CMP	>CHAR1,X	;
		BEQ	@1_2	;
		CMP	>CHAR3,X	;Test for long addressing mode
		BNE	@2	;
		LDA	#$40	;
		STA	A2L	;Set bit 6 if long address
@1_2		EQU	*
		CMP	#'$'	;Ignore '$' if user entered it
		BNE	@1_4	;
		INY		;
		BRA	@2	;
@1_4		EQU	*
		JSR	NNBL	;Get next non-blank character
		CMP	>CHAR2,X	;
		BEQ	@3	;
		LDA	>CHAR2,X	;=0 then done with checking
		BEQ	@4	;
		LDY	YSAV	;Recall Y
@2		EQU	*
		CLC		;
@4		EQU	*
		DEY		;
@3		EQU	*
		ROL	LMNEM	;Shift bit into format
		CPX	#5	;Assume user's addr next if here
		BNE	@6	;<>= then skip GETNUMFF
		LDA	A2L	;Save temp in A2L
		PHA		;
		JSR	GETNUMFF	;
		PHB		;Save data bank register
		JSR	DBTOE1	;Switch in bank E1
		LSR	|DIGITCNT	;# of nybbles/2 = # of bytes
		PLB		;Restore data bank register
		BCC	@3_5	;Carry clear then even # of digits entered
		JSR	INCDIGITCNT	;Compensate if odd # of digits entered
@3_5		EQU	*
		PLA		;Restore temp in A2L
		STA	A2L	;
		LDA	>DIGITCNT	;
		AND	#1	;
		BEQ	@3_6
		LDA	#$01	;Set up 8 bit disassembler display mode
		BRA	@3_8	;
@3_6		EQU	*
		LDA	#$00	;Set up 16 bit disassembler display mode
@3_8		EQU	*
		STA	>MPVAL	;
		STA	>XPVAL	;
		LDA	A2H	;Test Hi byte of number gotten
		BEQ	@5	;
		INX		;
@5		EQU	*
		STX	YSAV1	;Remember X for awhile
		LDX	#5	;Restore X to 5
		DEY		;
@6		EQU	*
		STX	A1H	;Preserve 'X' index
		DEX		;Test next format
		BPL	@1	;Continue til all done

		LDA	A2L	;Set bit 6 in length if long addressing
		ORA	>DIGITCNT	;Mask into counter
		STA	>DIGITCNT	; and save in counter.
		STY	YSAV	;update position
		LDA	IN,Y	;get next character
		CMP	#$BB	;is it a ";"?
		BEQ	@8	;=>yes, skip comment
		CMP	#$8D	;is it carriage return
		BEQ	@8	;Done if carriage return
		JMP	GOMINIERR2


@8		JMP	GETOP	;get next opcode


LOOKASCFF		EQU	*
		BVS	LOOKASCFF4	;V=1 if continuing ASCII input
		BCS	DIGFF	;it was a digit
		CMP	#$A0	;check for quote (')
		BNE	RTS6FF	;nope, return char
		SEP	#$40	;Set V as indicator been here before
LOOKASCFF4	EQU	*
		LDA	IN,Y	;Get a character
		CMP	#''''	; quote terminates miniassembler ASCII input'
		BEQ	@3	; BEQ LOOKASCFF5 ;
		CMP	#$8D	;was it CR?
		BNE	@2	;<> = then continue
		CLV		;MUST clear 'v' on exit
		BEQ	NXTCHRFF	;BEQ @3 ;BEQ GETNUMFF ;Go handle CR
@2		EQU	*
		LDX	#7	;for shifting asc into A2L and A2H
		JSR	INCDIGITCNT	;Causes DIGITCNT to be INC'ed 2 times
		AND	>ASCFILTER	;Filter the ASCII entered
		INY		;advance index
		BNE	NXTBITFF	;=>(always) into A2L and A2H
		RTS		;

@3		EQU	*
		LDA	#$99	;Make monitor think we found a space
		INY		;
RTS6FF		EQU	*
		RTS		;Back to caller with char in 'A'

DIGFF		LDX	#$03	;Shift through 24 bits
		ASL	A	; 
		ASL	A	;GOT HEX DIGIT, 
		ASL	A	; SHIFT INTO A2 
		ASL	A	; 
NXTBITFF		EQU	*
		PHB		;MUST save and restore data bank register
		JSR	DBTOE1	;Change data bank register to ROL
@1		EQU	*
		ASL	A	; 
		REP	#$30	; in bank 00 and E1 at same time.
		ROL	A2L	;Do it in 16 bit mode
		ROL	|EXTENDBNK	;
		SEP	#$30	;Back to 8 bit land
		DEX		;LEAVE X=$FF IF DIGFF 
		BPL	@1	;  
		PLB		;Back to original data bank
		LDA	MONMODE
		BNE	@12	;IF MONMODE IS ZERO, 
		LDX	#$01	;Move 2 bytes
@11		EQU	*
		LDA	A2L,X	; THEN COPY A2 TO A1 AND A3 
		STA	A1L,X
		STA	A3L,X
		LDA	>EXTENDBNK,X	;Copy for later
		STA	>EXTENDBNKS,X	;Save in case doing '+' or '-'
		DEX		;
		BEQ	@11	;Loop if =0
@12		EQU	*
		INX
		BEQ	@12	;Loop til 'X' <>= 0
		JSR	INCDIGITCNT	;Increment digit count variable
		BVS	LOOKASCFF4	;V=1 then continue ASCII input
		BRA	NXTCHRFF

GETNUMFF		EQU	*
		CLV		;Indicate no ASCII being entered
		REP	#$30	;Switch to 16 bit to save bytes
		LONGA	ON
		LDA	#$0000	;Clear variables to start
		LONGA	OFF
		STA	A2L	;
		STA	>EXTENDBNK	;Zero out extend byte/bank byte
		SEP	#$30	;Bank to 8 bit land
		STA	>DIGITCNT	;Zero # of digits entered count
		TAX		;MUST make X=0 to start
NXTCHRFF		EQU	*
		JSR	UPMON	;Read/upshift character if necessary
		EOR	#$B0
		CMP	#$0A
		BCC	DIGFF	;BR IF HEX DIGIT 
		PHP		;Preserve V status
		ADC	#$88
		PLP		;Restore V status
		CMP	#$FA
		JMP	LOOKASCFF	;check for ASCII input


* The following routines are used to set up the source bank 
* and the higher bank (extend) for the command with '.' or ':'.
* It searches through for command with syntax '/', if found 
* for the first time, then treats as source bank and also set
* the extend bank equals to the source bank.  Then it countines 
* searching for another '/', if found then set it for extended
* bank byte.  These banks byte setting are mainly used in the
* related cross bank stuff.
* Example: aa<bb1/xxxx.yyyyz, same bank filling
*          aa<bb1/xxxx.bb2/yyyyz, cross bank filling
* In any time, if higher address is less than the specified 
* source bank then handle only the first byte and quit.


XGETNUM		EQU	*	;MONZ enters here
		LDY	YSAV	;Get where MONZ is in input buffer
XGETNUMFF		EQU	*
		JSR	GETNUMFF
		CMP	#$A8	;If '/' ($A8='/' EOR #$B0+$89)(set bank)?
		BNE	RTS6FF	;
		LDA	MONMODE	;Leave bank number alone if in a mode
		BNE	@1
		LDA	A2L
		STA	>BANKS	;Make new source bank
		STA	>HIGHBANK	;Set higher bank = source bk if no high bank specified
		BRA	XGETNUMFF	;Do NOT exit yet
@1		EQU	*
		CMP	#$AE	;Check for mode '.'
		BEQ	@2	;Bra if yes               
		CMP	#$BA	;Is it ':' ?
		BNE	XGETNUMFF	;Bra if not
@2		EQU	*
		LDA	A2L	;Store as cross bank usage
		STA	>HIGHBANK	;
		BRA	XGETNUMFF


MOVINST1		EQU	*	;get instruction length
		LDA	A3L	;Move address from A3L/H to A2L/H
		STA	A2L	; since PCYTOA3 uses A3L/H.
		LDA	A3H	;
		STA	A2H	;
@2		EQU	*
		LDY	LENGTH	;How many bytes left to move-1?
		CPY	#$03	;Y=3 if bank # entered
		BEQ	@4	;
		LDA	|A1H,Y	;Get address byte
		BRA	@6	;Go deposit it into memory

@4		EQU	*
		LDA	>EXTENDBNK	;Bank number
@6		EQU	*
		PHA
		JSR	PCYTOA3	;Find location
		PLA
		JSR	STORBYTE	; store byte.
		DEC	LENGTH
		BPL	@2	;
		RTS		;Back to caller


INCDIGITCNT	EQU	*
		PHB		;Save data bank register
		JSR	DBTOE1	;Change data bank register
		INC	|DIGITCNT	;Inc digit counter
		PLB		;Restore data bank register
		RTS		;Back to caller


XSTOR		EQU	*	;Monitor immediate mode store routine
		LDX	#$BA	;Stay in store mode
		STX	MONMODE	;
		LDX	A3L	;Move address to PCL/PCH
		STX	PCL	;
		LDX	A3H	;
		STX	PCH	;
HEXENTRY3		EQU	*
		XBA		;Save 'A'
		LDA	>DIGITCNT	;# of nybbles/2 = # of bytes
		LSR	A	;
		BCC	@1	;Carry clear then even # of digits entered
		INC	A	;Compensate if odd # of digits entered
@1		EQU	*
		CMP	#$05	;<5 allowed only
		BCC	@2	;
		LDA	#$04	;Limit to last 4 characters entered
@2		EQU	*
		DEC	A	;LENGTH=number of bytes-1 for MOVINST1
		TAX		;Save length
		STA	LENGTH	;Save length for MOVEINST1.
		XBA		;Recall 'A'
		CMP	#$C6	;Test for return ($8D EOR #$B0 + $89)
		PHP		;Save 'z' status
		PHX		;Save length+1 on stack
		LDA	A2L	;Shift bytes down for MOVINST1
		STA	A1H	;Byte 0 location for MOVINST1
		LDA	A2H	;Byte 1 location for MOVINST1
		STA	A3L	;
		LDA	>EXTENDBNK	;Byte 2 location for MOVINST1
		STA	A3H	;
		LDA	>EXTENDBNK+1	;Byte 3 (extend byte) loc for MOVINST1
		STA	>EXTENDBNK	;
		REP	#$20
		LONGA	ON
		LDA	A3L	;Move A3 to A2 (16 bit)
		STA	A2L
		LDA	LENGTH
		AND	#$00FF	;Mask off unwanted high byte 
		CLC
		ADC	PCL	;16 bit add
		BCS	@8	;Bra if bank crossing   
		SEP	#$20
		LONGA	OFF
		JSR	MOVINST1	;Store data
@15		EQU	*
		PLA		;Get length for FIXPC
		STA	LENGTH	;
		LDA	PCH	;Get high part of pc
		EOR	#$FF	;Already at $ff
		BNE	@3	;BRA if not 
		LDA	PCL	;Save old PCL               
		PHA
		JSR	FIXPC	;A3=PC+LENGTH
		PLA		;Get back old PCL
		CMP	PCL	;Compare with new PCL
		BCC	@4	;Bra if old PCL < new PCL, fine
		JSR	INCBANKS
		BRA	@4
@3		EQU	*
		JSR	FIXPC	;Update PC
@4		EQU	*
		PLP		;Test if last entry or not
		RTS		;Back to caller

@8		EQU	*	;Cross bank processing
		SEP	#$20	;Back to 16 bit land
		LONGA	OFF
@9		EQU	*
		LDA	>BANKS	;Need to preserve BANKS          
		PHA
@99		EQU	*
		PLA		;Each loop use its original BANKS
		PHA
		STA	>BANKS	;Get back 
		LDY	LENGTH	;How many bytes left to move-1?
		CPY	#$03	;If Y=3 then 4 bytes entered
		BEQ	@10	;Bra to get the highest byte
		LDA	|A1H,Y	;Else use index to locate byte
		BRA	@11	;Go on
@10		EQU	*
		LDA	>EXTENDBNK	;Get the highest byte      
@11		EQU	*
		PHA		;Temp save 
		JSR	PCYTOA3	;Find location to save to
		LDA	A3L	;Chk for crossing bank
		AND	#$F0	;If cross bank, then high nibbles of A3L is zero
		BNE	@12	;BRA if not yet cross bank
		JSR	INCBANKS
@12		EQU	*
		PLA		;Get back the user's keyin byte
		JSR	STORBYTE	;Store it
		DEC	LENGTH	;
		BPL	@99	;Continue in loop
		PLA		;Else get back the preserved BANKS
		STA	>BANKS	;Store back
		BRA	@15	;Exit to adjust for new PC, FIXPC

INCBANKS		EQU	*
		LDA	>BANKS
		INC	A
		STA	>BANKS
		RTS


\ No newline at end of file
diff --git a/IIGS.601.SRC/GSFirmware/Monitor/KEYMICRO.CP.RESET.aii b/IIGS.601.SRC/GSFirmware/Monitor/KEYMICRO.CP.RESET.aii
new file mode 100644
index 0000000..5de9a3f
--- /dev/null
+++ b/IIGS.601.SRC/GSFirmware/Monitor/KEYMICRO.CP.RESET.aii
@@ -0,0 +1 @@
+
;	This EdAsm/Asm816 source code file was converted to AsmIIGS
;	by EdAsmCvtIIGS version 1.2d5 on 5/9/91 at 5:28:9 PM


***********************************************
*                                             *
*  ADB Keyuc Code for Reset and Control Panel *
*                                             *
*                  by                         *
*           Peter & Fern     1985-1987        *
*           Joe Bo           1987-1989        *
*                                             *
*  Copyright Apple Computer, Inc. 1985-1989   *
*           All Rights Reserved.              *
*                                             *
*                                             *
***********************************************


* Entry Points:
* RESETFDB ---> During RESET
* PANELFDB ---> On exit from Control Panel
*
* ASSUMES 8-BIT M,X
*
* During RESET the SYNCH command is called to initialize the uC.
* By clearing the data latch while sending the SYNCH command any
* pending command or status will be cleared. Since this occurs during
* a RESET this data doesn't have to be preserved.
* If called from the Control Panel then any pending command or status
* should be preserved. This can be accomplished by starting
* with an abort call. Any pending command is completed
* first. (Abort call is faked by jumping directly to tool set
* entry point instead of using tool locator which may not exist yet).
* After ABORT command then assumes no more pending commands.
* If called during RESET then SYNCH command is implemented following
* ABORT command. After the SYNCH command the pending and response
* flags are cleared.


		LONGA	OFF
RESETFDB		EQU	*	;ENTRY POINT FOR RESET
		REP	#$10	;8 'm' with 16 bit 'x'
		LONGI	ON
		LDX	#6000	;TIMEOUT ~30MS.

@1		DEX		;CLEAR DATA REG. UNTIL CMD REG. IS FREE
		BEQ	@2
		LDA	|DATAREG	;Read and ignore anything pending
		LDA	|KMSTATUS
		ROR	A
		BCS	@1	;DATA REG STILL FULL

@2		EQU	*
		LDA	#$07	;Synch command to keyuc
		JSR	CMDSEND	;Send it
		LDA	|DATAREG	;Clear out data reg in case previous cmd return data

@4		JSR	SETUPMODE	;SEND MODE BYTE
		JSR	SETUPCNFG	;SEND CONFIGURATION BYTES, NOT TRUE ONE !!
		JSR	SETKBDMSE	;CONTINUE TO SEND KBD MOUSE PARAM
		JSR	SETDISKEJ	;CONTINUE TO SEND DISKS EJECT OPTIONS

@3		STZ	|STATUSTMP	;Clear characters pending flags
		STZ	|FLAGS


* Allow a wait state for the key micro to set the buttons
* properly or we could drop into diagnostics unexpectedly.
*
* IMPORTANT:  DON'T CHANGE THE DELAY HERE !!!
*
* If the delay is changed, then the delay in the KEYUC needs 
* to be changed also so that it would match with each other  
* for STICKY to work right when invoking diagnostic or warm/
* cold start.

		LDA	#$FF	;Huge wait time of over .162 seconds
		JSR	WAIT	;Call twice in a row                  


		LDA	BUTN0	;GET OPEN APPLE KEY AT THIS POINT
		STA	|EXTENDBNK	;SAVE FOR LATER
		ROL	A	;SAVE IN CARRY
		LDA	BUTN1	;GET
		STA	|EXTENDBNK+1

		BPL	@6	;IF EITHER BUTTON UP THEN
		BCC	@6	;SKIP AROUND DIAGNOSTICS
@5		EQU	*
		SEP	#$30	;8 bit land a must
		JSR	RAMVCTRS2	;Setup bank $e1 vectors
		JMP	>DIAGS	;BOTH BUTTONS PRESSED DO DIAGNOSTICS

@6		EQU	*
		LDA	DIAGTYPE	;MSB SET IF BURN IN DIAGNOSTICS
		BMI	@5	;JUMP TO DIAGNOSTICS

		LDA	|EXTENDBNK	;Test if power up requested by user or not
		ORA	|EXTENDBNK+1	;
		BPL	@7	;Bra if both Apple keys are not pressed
		LDA	#$00	;Else need to reset system power bytes
		STA	>PWREDUP	;Reset system powerup bytes
		STA	>SOFTEV+1	;

		LDA	|KEYMODREG	;CHK if SHIFT pressed also
		ROR	A	;STORE TO CARRY 
		BCC	@7	;BRA IF SHIFT KEY NOT PRESSED
		STZ	|RAMDSKPWRUP	;Force true coldstart, init memory manager

@7		EQU	*

		LDA	#$73	;Disable mouse SRQ, fix bug in rev2 keyuc
		JSR	CMDSEND	;Send command

* Now test system for powerup coldstart and
* set flags/system powerup bytes/RAM disk powerup
* bytes accordingly.

		REP	#$30	;16 bit land a must
		LONGA	ON
		LDA	#>SECRTL	;Set up vectors just in case
		STA	|IRQ_FLUSH+2	;
		STA	|IRQ_MICRO+2	;
		LDA	#SECRTL*256+$5C	;Low byte and JMP abslong
		STA	|IRQ_FLUSH+0	;
		STA	|IRQ_MICRO+0	;
		LONGA	OFF
		SEP	#$20	;

		LDA	#$0D	;Read keyuc version# command
		JSR	CMDSEND	;Send it
		JSR	RCVDATA	;Receive the returned ver#
		STA	|KEYUCVER	;Store for later
		CMP	#$06	;>= $06 for Gyro or newer machine
		BCC	@8	;BRA for old gs
		BIT	CYAREG	;Check power up bit, bit6
		BVC	@10	;BRA if already power up

		STZ	|GSC	;Bit7=1, GSc
		LDA	#$09	;Read keyuc memory command
		JSR	CMDSEND	;
		LDA	#$E8	;Port3 of keyuc chip
		JSR	SENDDATA	;
		LDA	#$00	;Forming $00E8
		JSR	SENDDATA	;
		JSR	RCVDATA	;Read in keyuc port3 data
		AND	#$C0	;Only bit7/6 are needed
		STA	|GSC	;

		LDA	#$40	;Else reset power up bit for next time
		STA	|CYAVER	;Set $40 for CYA chip
		TRB	CYAREG	;Reset bit6=0 to show already power up
		BRA	@9	;Continue on

@8		EQU	*
		STZ	|CYAVER	;Set $00 for FPI chip
		STZ	|GSC	;Always set to $00 if old gs machine
		LDA	#$09	;Read keyuc memory command
		JSR	CMDSEND	;Send it
		LDA	#$51	;Low byte of memory loc      
		JSR	SENDDATA	;
		LDA	#$00	;High byte of $0051
		JSR	SENDDATA	;
		JSR	RCVDATA	;Read power up byte from keyuc at loc $51
		STA	|RDMEMDATA	;Store what was read
		CMP	#MICROPOWER	;Is it = to power up byte?
		BEQ	@10	;If = then let RAM disk alone

* If here then the system was first time power up.
* We must now set up KEYUC LOCATION ($51) in keyuc
* to indicate this fact.

		LDA	#$08	;Write to keyuc memory loaction cmd
		JSR	CMDSEND	;Send it
		LDA	#$51	;keyuc page0 location to write to
		JSR	SENDDATA	;Send it
		LDA	#$A5	;Send powerup byte to keyuc at $51
		JSR	SENDDATA	;Send it


@9		EQU	*
		STZ	|RAMDSKPWRUP	;Let RAM disk know it's power up
		STZ	|CLRHOLES	;
		LDA	#$00	;Zero out SOFTEV and PWREDUP
		STA	>SOFTEV+1
		STA	>PWREDUP

* Since the key repeat rate format for the current gs keyuc and
* the new keyuc is just opposite and also two more steps in the 
* new keyuc, therefore it is necessary to send out the configurations
* one more time here after the keyuc version has been read in.
* It is checked and adjusted in the SETUPCNFG routine !!!

@10		EQU	*
		LDA	#$06	;Set up configuration command
		JSR	CMDSEND	;Send it
		JSR	SETUPCNFG	;Send real configurations for keyuc


* The following routines (READ LAYOUTS & CHAR SETS) are modified
* to reduce the traffic between the KEYUC for the sake of $0911
* error.  It is assumed that MEGA II  chip only supports eight
* countries character sets in current gs.


@100		EQU	*
		LDY	#$0000	;Index to batteryram buffer
		LDA	#$0A	;Keyboard layout counts
@101		STA	|LAYOUTS,Y	;Store to buffer
		TYA		;Prepare for next store
		CMP	|LAYOUTS	;check for end
		INY		;Index to next
		BCC	@101	;loop till end

		LDY	#$0000	;Set index for char sets buffer
		LDA	#$08	;Character sets counts
@102		STA	|LANGS,Y	;Store to buffer (1st = count)   
		TYA		;Prepare for next store
		CMP	|LANGS	;Check for end
		INY		;Index to next
		BCC	@102	;Loop till end


* Enter here if only using control panel:
* Before sending the necessary commands and data to the keyuc
* It needs to make an abort call to the ADB tool so that any
* pending command can be handled first by the ADB tool then
* the Abort command can be send out.  It is quite often that
* an application is using ADB tool to talk to the ADB devices
* and at the mean time tries to get to the control panel, then 
* if an Abort is not made to the tool, it could occur that a 
* command is pending and blow up the communication between the 
* key micro.

	; SEG $FF
PANELFDB		EQU	*	;ENTRY POINT FOR CONTROL PANEL
	; SEG $00	;Call must be made in 8 bit m/x
		SEP	#$30	;Call must be made in 8 bit m/x
		LONGA	OFF
		LONGI	OFF
		LDA	#$0F	;Retry counts
@0		EQU	*
		PHA		;Temp save it
		JSR	PUSH6	;Push room for 3 words on stack
		LONGA	ON
		LONGI	ON
		PEA	$0001	;ABORT command
		PHK		;Dummy address
		PER	@1-1	;Return address
		JSL	>ADBSENDTL	;Direct ADB tool call for sending a cmd
		RTL		;Removes 3 bytes from stk/go to next instr
*
@1		EQU	*
		SEP	#$30	;8 bit m/x
		BCC	@3	;BRA if successful send
		PLA		;Get back retry counts
		DEC	A	;
		BPL	@0	;RETRY !!!!
		JMP	ADBERR	;Display $911 error
@3		EQU	*
		REP	#$10	;8/16 BIT m/x
		LONGA	OFF
		LONGI	ON
		PLA		;Clean stack

		LDA	#$B3	;LISTEN R3 ADRS 3 (MOUSE ID)
		JSR	CMDSEND	;SEND COMMAND
		LDA	#$03	;SEND NEW HANDLER - ADDRESS 3
		JSR	SENDDATA	; & DISABLE SRQ
		LDA	|USERHMR	;GET MOUSE TICK RESOLUTION
		CMP	#$02	;>=2 then ask mouse to change resolution
		BCS	HISPEED	;Bra for high resolution 
		LDA	#$01	;Else set mouse handler ID=1, low res
		BRA	SENDID
HISPEED		EQU	*
		LDA	#$02	;Mouse handler ID=2 for high resolution
SENDID		EQU	*
		JSR	SENDDATA	;SEND HANDLER 2 (LOW RES) OR 3 (HI RES)

		LDA	#$05	;CLEAR MODES
		JSR	CMDSEND
		LDA	#$FF	;CLEARS ALL MODES
		JSR	SENDDATA

		LDA	#$04	;SET MODES
		JSR	CMDSEND
		JSR	SETUPMODE	;GET MODE BYTE

		LDA	#$06	;CONFIGURATION COMMAND
		JSR	CMDSEND
		JSR	SETUPCNFG	;GET CONFIGURATION BYTES

		LDA	|KEYUCVER	;Get keyuc version#
		CMP	#$06	;
		BCC	@1	;BRA for //gs
		LDA	#$12	;SET KEYBOARD MOUSE PARAMETERS CMD
		JSR	SENDDATA	;AND SEND IT
		JSR	SETKBDMSE	;GET INIT STEP, MAX SPEED AND ACC RATE

		LDA	#$13	;Send disk1/2 eject option keys
		JSR	CMDSEND	;Send command byte first
		JSR	SETDISKEJ

@1		STZ	|STATUSTMP	;Clear characters pending flags
		STZ	|FLAGS

		SEP	#$30

RETSEC		EQU	*
		RTS
* <END HERE>

* Subroutine used to set up mode byte

SETUPMODE		EQU	*
		LDA	#0	;BUILD NEW MODES
		ORA	|USERCAPS	;XOR CAPS LOCK
		ASL	A
		ASL	A
		ORA	|USERKBUFF	;KEYBOARD BUFFERING
		ASL	A
		ORA	|USERDUAL	;DUAL SPEED OPTION
		ASL	A
		ORA	|USERFSPDE	;INCLUDE SPACE, DELETE ON DUAL
		ASL	A
		ASL	A
		JMP	SENDDATA	;AND SEND IT

SETUPCNFG		LDA	#$32	;BUILD CONFIGURATION DATA
		JSR	SENDDATA0	;If error, need to clean 6 bytes for stack
		LDA	|USERDISP	;CHARACTER SET
		ASL	A
		ASL	A
		ASL	A
		ASL	A
		ORA	|USERLANG	;LAYOUT
		JSR	SENDDATA0
		LDA	|USERRDLY	;DELAY TO REPEAT
		ASL	A
		ASL	A
		ASL	A
		ASL	A
		PHA		;Save 'A'
		LDA	|KEYUCVER	;Get keyuc version#
		CMP	#$06	;Set 'c', >=$06 then new keyuc
		LDA	|USERRSPD	;Pre-load auto repeat rate
		BCS	@1	;BRA if new keyuc in the system
		CMP	#$08	;Else need to check the value
		BCC	@2	;BRA if not > 8, old one accepts 0-7 only
		LDA	#$07	;If 8, 9 then force to 7
@2		EOR	#$07	;Flip low 3 bits for old keyuc
@1		EQU	*
		ORA	1,S	;Combine with delay to repeat
		STA	1,S	;Store back to stack
		PLA		;Get back and clean stack
		JMP	SENDDATA

SETKBDMSE		EQU	*
		LDA	|USERMDLY	;GET THE MOUSE DELAY-TO-START, 0-4
		ASL	A	;SHIFT TO HIGH NIBBLES
		ASL	A
		ASL	A
		ASL	A
		ORA	|USERHMR	;ADD IN MOUSE TRACKING, 0-4        
		JSR	SENDDATA0	;AND SEND IT
		LDA	|USERSPRT	;GET THE ACCELERATION, 0-4
		ASL	A
		ASL	A
		ASL	A
		ASL	A
		ORA	|USERMAXSP	;ADD IN MAX SPEED TO LOW NIBBLES
		EOR	#$70	;Make accelration from 7-3
		SEC		;Be careful w/ this 'c'
		SBC	#$30	;Adjust acceleration to 4-0
		JMP	SENDDATA
SETDISKEJ		EQU	*
		LDA	|USERD1EJ	;Get internal disk1 ejection option key
		JSR	SENDDATA0	;Send to keyuc
		LDA	|USERD2EJ	;Get internal disk2 ejection option key
		JMP	SENDDATA	;Send to keyuc

SENDDATA0		EQU	*
		SEC		;Set as an indicator for error exit
		BRA	COMMSEND	;Continue on....
CMDSEND		EQU	*	;Send commands and data share
SENDDATA		EQU	*	; same routine
		CLC		;An indicator to clean stack during exits
COMMSEND		EQU	*
		LONGA	OFF
		LONGI	ON
		PHP		;Save 'c' and interrupt status
		SEI		;Disable interrrupt
		TAX		;Save off command/data
		LDY	#10	;Set re-try count to 10
TRYMORE		EQU	*
		LDA	KMSTATUS	;Get command register full bit --> LSB
		ROR	A	;Into carry bit
		TXA		;Get data back
		BCS	NOTEMPTY0	;BRA if register not empty, RE-TRY!!!
		STA	CMDREG	;Else store away new command/data
		LDX	#7500	;TIMEOUT 7500*(2+2+4+2+3)/3 = 30 MS
GOON0		DEX
		BEQ	TIMEOUTERR	;Time out error
		LDA	KMSTATUS	;Get command register full bit --> LSB
		ROR	A	;Into carry bit
		BCS	GOON0	;BRA if full, not yet read by keyuc
		PLP		;Restore 'c' and interrupt status
		RTS

NOTEMPTY0		EQU	*
		DEY		;Try one more time
		BEQ	NOTEMPTY	;Already re-try 10 times
		BRA	TRYMORE	;BRA to try more

RCVDATA		EQU	*
		LONGA	OFF
		LONGI	ON
		CLC
		PHP		;Save interrupt status
		SEI		;Disable interrupt
		LDX	#11500	;approx 50 ms
GOON1		DEX
		BEQ	TIMEOUTERR	;Time out error for reading
		LDA	KMSTATUS	;Get data reg full bit, bit5
		AND	#DATAFULL	;Test for full
		BEQ	GOON1	;Not set (empty), try more !!
		LDA	DATAREG	;If set then read in DATA
		PLP		;Restore interrupt status
		RTS

NOTEMPTY		EQU	*	;Error for system writes to keyuc
TIMEOUTERR	EQU	*	;Error for system <---> keyuc time out
		PLP		;Restore 'c' and interrupt status
		BCC	CLEAN4	;If 'C' = 0 then clean 4 bytes from stack
		PLX		;Else clean 6 bytes
CLEAN4		PLX		;16 bit 'x', clean up 4 bytes from stack
		PLX		;2 for local jsr, 2 for call to RESETFDB OR PANELFDB
ADBERR		EQU	*
		SEP	#$30	;8 bit m/x a must
		LONGA	OFF
		LONGI	OFF
		JSR	RAMVCTRS2	;Set up bank $e1 vectors first
		PEA	ERRCODE	;Error code for tool

* Word 1/2 pointer to nowhere
* Word 3 = create dummy RTL address

		JSR	PUSH6	;Push room for 3 words on stack
		PHB
		SEC
		JMP	>SYSDEATH	;System death, error synch with keyuc


\ No newline at end of file
diff --git a/IIGS.601.SRC/GSFirmware/Monitor/MISC.MON.aii b/IIGS.601.SRC/GSFirmware/Monitor/MISC.MON.aii
new file mode 100644
index 0000000..869202c
--- /dev/null
+++ b/IIGS.601.SRC/GSFirmware/Monitor/MISC.MON.aii
@@ -0,0 +1 @@
+		TITLE	'Misc Monitor Bank FF Rtnes0'

;	This EdAsm/Asm816 source code file was converted to AsmIIGS
;	by EdAsmCvtIIGS version 1.2d5 on 5/9/91 at 6:11:57 PM


******************************************************
*                                                    *
*        Miscellaneous Monitor Bank FF Routines0     *
*                                                    *
*                    by                              *
*               Fern Bachman     1985-1987           *
*               Joe Bo           1987-1989           *
*                                                    *
*       Copyright Apple Computer, Inc. 1985-1989     *
*                All Rights Reserved.                *
*                                                    *
******************************************************

REGSETFF		EQU	*
		JSR	REGSETFF1	;Done this way cause USERSETUP calls it
		RTS		;DO NOT CHANGE THIS!!!!!!!!!!!!!


RESETFF		EQU	*	;Part of reset routine
		LDA	#$FF	;Set up checkboard cursor
		STA	>CURSOR	; for whomever.
		PHB		;Save data bank register
		LDA	#$E1	;Change data bank register
		PHA		;
		PLB		;
		LDA	#$40	;Set default screen display restore
		STA	|SCRNSTAT	; to be textpage1, used in RESUME
		LDA	#$6B	;Set with 'RTL' to tell
		STA	|MIDIINPUTPOLL	; MIDI tool that RESET occurred
		STZ	|CHGCURFLG	;Disable change cursor flag
		STZ	|IRQ_MOUSVBL	;Reset user gets VBL flag
		STZ	|IRQ_ACTIVE	;Reset irq active flag
		STZ	|SCCSTAT	;Reset SCC interrupt byte
		REP	#$20	;16 bit stores to follow
		STZ	|SCCFLAG2	;Reset SCCFLAG2/SERFLAG
		STZ	|C1FLAG	;Reset C1FLAG/C2FLAG
		STZ	|IRQ_INTFLAG	;Reset INTFLAG/DATAREG
		STZ	|IRQ_KMSTATUS	;Reset IRQ_KMSTATUS/IRQ_SECFLAG
		LONGA	ON
		LDA	#$0001	;Set counter for copy each VBL
		STA	|TP2TCNT	;Put in task header area
		LDA	#$A55A	;Signature word
		STA	|TP2TSIG	;Put in task header area
		LDA	#>TP2TASK	;Setup pointer to task to execute
		STA	|TP2TJMP+2	;
		LDA	#TP2TASK*256+$5C	;Low word of pointer and JMP abslong
		STA	|TP2TJMP	;

		LDA	#>SETDEFSLT	;Set pointer to restore default slots assignment
		STA	|DEFAULTSLT+2	;
		LDA	#SETDEFSLT*256+$5C	;Low word of pointer and JMP abslong
		STA	|DEFAULTSLT	;
		LDA	#>RSTSYSSLT	;Set pointer to restore system slots assignment
		STA	|RESTORSLT+2	;
		LDA	#RSTSYSSLT*256+$5C	;Low word of pointer and JMP abslong
		STA	|RESTORSLT	;
		LONGA	OFF
		SEP	#$30	;8 bit land now
		STZ	|TP2MODE	;0/1 text page 2 copier off/on
		LONGA	OFF
		SEP	#$30	;8 bit land now
		PLB		;Restore data bank register

REGSETFF1		EQU	*	;Setup regs for MON entry then beep
		PHB		;Save data bank register
		PHB		;Save data bank register
		JSR	DBTOE1	;Switch data bank register
		LDA	|STATEREG	;Get STATEREG val on entry to bnk FF
		AND	#$FE	;Enable external CXROM
		STA	|MVAL	;Save memory state
		LDA	11,S	;Get user CYAREG value
		AND	#$80	;Hi bit only important one
		ORA	SHADOW	;Or in shadow register
		STA	|QVAL	;
		PLA		;Recall data bank register
		STA	|BVAL	;Save data bank register
		STA	|KVAL	;Prog bnk reg same as data bank reg
		STA	|DDVAL	;Set disassembly option to zero
		STA	|BANKS	;Save also as source bank
		STA	|HIGHBANK	;Save high bank of crossing stuff also
		REP	#$30	;Go to 16 bit land
		TDC		;Save current direct register value
		STA	|DVAL	;
		TSC		;Get stack pointer
		CLC		;Fix for correct value
		LONGA	ON
		ADC	#$000B	;Stack pointer is 11 bytes off in here
		STA	|SVAL	;Save stack pointer
		LDA	#$0101	;Set 'm'/'x'/'e' values to emulation
		STA	|LVAL	;Set language card bank/'m' value to 1
		STA	|XPVAL	;Set 'x'/'e' values to 1
		LONGA	OFF
		SEP	#$30	;Back to 8 bit land
		LDY	#$05	;0 out AVAL/XVAL/YVAL
		LDA	#$00	;
@1		EQU	*
		STA	|AVAL,Y	;
		DEY		;
		BPL	@1	;Loop til all 0
		STA	|PVAL	;'P' value to 0 too
		STY	|ASCFILTER	;ASCII filer mask=$FF as default
		PLB		;Fix current data bank register
		RTS		;Back to caller


MAKEMXE0		EQU	*	;Make 'm'/'x'/'e' native mode internally
		LDA	#$00	;
		LDX	#$02	;Zero out 3 variables
@1		EQU	*
		STA	>MPVAL,X	;Sets internal 'm'/'x'/'e' = native
		DEX		;Next
		BPL	@1	;Loop til done
		RTS		;Back to caller


PREADFF		EQU	*
		LDA	CYAREG	;Save user speed bit
		PHA		;
		AND	#$7F	;Switch to slow speed
		PHP		;Preserve interrupt status
		SEI		;Now disable interrupts
		STA	CYAREG	;
		LDA	PTRIG	;Trigger paddles
		LDY	#$00	;Init count
		NOP		;Compensate for 1st count
		NOP		;
@1		EQU	*
		LDA	PADDL0,X	;Count Y-reg every 12 usec
		BPL	@2	;+ THEN DONE
		INY		;
		BNE	@1	;Exit at 255 maximum
		DEY		;
@2		EQU	*
		PLP		;Restore interrupt mode
PREADFFRTS	EQU	*
		PLA		;Recall user speed byte
		STA	CYAREG	;Restore user speed
		RTS		;Exit to caller


FFBANKRTS		EQU	*	;
		SEP	#$30	;Restore monitor mode
		XBA		;Save user's 'A' value
		LDA	#$80	;Go fast in here
		TSB	CYAREG	;
		XBA		;
		STA	SETINTCXROM	;Restore bank FF operating environment
		RTS		;Back to bank $FF caller


	; SEG $FF
RAMVCTRS2		EQU	*	;Move interrupt vectors to RAM
	; SEG $00
		PHB		;Save data bank register
		JSR	DBTOE1	;Change data bank register

		LDX	#INTVTBLLEN2-1	;Table length
@1		EQU	*
		LDA	>INTVTBL2,X	;
		STA	|TOWRITEBR,X	;
		LDA	>INTVTBL1,X	;Set up 4 mgr vctrs + 16 bytes
		STA	|INTMGRV,X	; which are re-set up shortly.

* If the new vectors is not of the same length of INTVTBLLEN
* which is $28, then there are some repetition vectors of INTVTBL2
* being generated in new vector location which is $e10200.
* Add in to avoid repetition vectors stuff.

		CPX	#32	;8 new vectors only !!! 
		BCS	@3	;BRA if not need to move yet
		LDA	>INTVTBL0,X	;New vectors in Gyro
		STA	|TOMEMMOVER,X	;
@3		EQU	*
		DEX		;
		BPL	@1	;

		LDX	#MSGPOINTER-OSVECTORS-1	;Reset operating system vectors
@1234		EQU	*
		STZ	|OSVECTORS,X	;Reset all operating system values+8 bytes
		DEX		;
		BPL	@1234	;Branch til all zeroed out

		LDA	#^MSGTBL	;Set up MSGPOINTER
		STA	|MSGPOINTER+2	;
		LDA	#$4C	;Put JMP opcode in some vectors
		STA	>OSWMSTRT	;In operating system warmstart vector
		STA	>AMPERV	;In ampersand vector
		STA	>USRADR	;Control-Y vector

		LONGA	ON
		LONGI	ON
		REP	#$30	;Use 16 bit 'm'/'x'
		LDA	#MON	;Set irq interrupt vector to monitor
		STA	>IRQLOC+0	;
		STA	>OSWMSTRT+1	;If no OS on warmstart stay in monitor
		STA	>USRADR+1	;Control-Y vector
		LDA	#$E003	;Warm start AppleSoft Basic
		STA	>AMPERV+1	;In ampersand vector
		LDA	#MSGTBL	;Move hi and low byte of MSGTBL ptr too
		STA	|MSGPOINTER	;

		LONGA	ON
		LONGI	ON
		LDX	#IRQ_LEN-4	;
@2		EQU	*
		LDY	#>SECRTL	;Bank / hi byte of SECRTL
		LDA	#SECRTL*256+$5C	;JMP abs long / lo byte of SECRTL
		STA	|IRQ_APTLK,X	;Put JMP abs long in all vctrs as default
		TYA		;Address of SEC/RTL
		STA	|IRQ_APTLK+2,X	;Addr of SEC/RTL in all vctrs as default
		DEX		;
		DEX		;
		DEX		;
		DEX		;
		BPL	@2	;Loop til done

		LDA	#MICROABORTED	;Move address of MICROABORTED to IRQ_MICRO
		STA	|IRQ_MICRO+1	;
		LDA	#ROMTOOL*256+$5C	;Jmp abslong and low byte of ROMTOOL
		STA	|ROMTOOLHOOK+0	;Save opcode and low byte
		LDA	#>ROMTOOL	;Bank number and high byte
		STA	|ROMTOOLHOOK+2	;Finish up operand

		LONGA	OFF
		LONGI	OFF
		SEP	#$30	;Bank to normal monitor mode
		LDA	#^MICROABORTED	;Move bank of MICROABORTED to IRQ_MICRO
		STA	|IRQ_MICRO+3	;

* Test for Ensoniq chip here and set ENSONIQFLG appropriately.
* It's always here so force status
*
* ENSONIQFLG = 0 if sound chip is installed
*            = <>0 if no sound chip is installed

		STZ	|ENSONIQFLG	;Indicate always present
		PLB		;Restore entry data bank
		JMP	SETUPSLOTS	;Set up internal versus external slots


RAMVCTRS		EQU	*	;Move interrupt vectors to RAM


* '2' out text page 2.

		REP	#$10	;16 bit index needed
		LONGI	ON
		LDX	#$07FF	;Space out text page 2
		LONGI	OFF
		LDA	#'2'	;'2'
@1		EQU	*
		STA	>$E00800,X	;
		DEX		;
		BPL	@1	;

		SEP	#$30	;Back to normal monitor mode


* The monitor MUST zero out the mouse mode screen hole
* so that the desk accessory manager can tell if the
* mouse has ever been turned on or not.

		LDA	STATEREG	;Save state
		PHA		;
		STA	SETSLOTCXROM	;Always look at what's there

		LDA	#$C1	;Starting slot is 1
		STA	LOC1	;
		STZ	LOC0	;
@11		EQU	*
		LDX	#$03	;Test 4 bytes for mouse card
@22		EQU	*
		LDA	>MCOFFSET,X	;Get byte to test offset from table
		TAY		;Move for proper indexing
		LDA	>MIDVALUE,X	;What's correct byte for here??
		CMP	(LOC0),Y	;Test against card value
		BNE	@33	;Not = then try next card
		DEX		;= then test next byte on same card
		BPL	@22	;Loop

* If here then zero out mouse control byte for this slot.

		LDA	LOC1	;What slot we looking at?
		AND	#$07	;Make $Cn into $0n for indexing
		TAX		;
		STZ	MOUSMODE-4,X	;Make DA manager think mouse is off

@33		EQU	*
		INC	LOC1	;Next slot please
		LDA	LOC1	;Done yet?
		CMP	#$C8	;Yes if $C8
		BCC	@11	;Test new card

		PLA		;Restore monitor state
		STA	STATEREG	;


		IF IS512 <> 0 THEN

		LDA	#$18	;Dummy up some vectors
		STA	>IRQ_DSKACC	;CLC opcode
		LDA	#$6B	;RTL opcode
		STA	>IRQ_DSKACC+1	;

		ELSE

@3		EQU	*	;Restart here if error
		JSL	>INITDISMGR	;Init Tool Locator dispatch manager
		BCC	@4	;'c'=0 then all's OK
		LDA	#$00	;Bad then zero out memory manager pwr byte
		STA	>RAMDSKPWRUP	;
		BRA	@3	;Loop til all's OK

@4		EQU	*
		ENDIF

		LDA	>USERRSTRAM	;Get the reset ramdisk bram byte
		BEQ	@5	;If no reset ramdisk selected, do nothing
		LDA	#$00	;Else set no for next round
		STA	>USERRSTRAM	;
		JSL	>WRITEBR	;Need to write to batteryram

@5		EQU	*
		LDA	#$00	;Zero out serial prt powerup bytes if here
		STA	>SERPWRUP	;
		STA	>SERPWRUP+1	;

		JSL	>INITCLOCK	;Don't let the clock in test mode
		JSR	|PROCONINIT	;Init protocol converter
		JSL	>APTALKINIT	;Init AppleTalk (Coldstart)
		RTS


TSTMONDSKACC	EQU	*
		PHP		;Save 'm'/'x' status
		SEP	#$30	;Do tests in 8 bit mode
		LDA	>ROMDAACT	;
		TAX
		LDA	>BRAMDAACT	;Test if any application set to activate ROMDA
		BEQ	@1	;BRA if NO 
		TXA		;Test if we should reactivate ROM dsk accs
*                              ;Bit7=1=install it--bit6=1=is installed
@2		EQU	*
		AND	#$BF	;Reset bit 6
		STA	>ROMDAACT	; so the ROM dsk accs will be installed.
		JSR	ENMONDSKACC1	;Reenable monitor/memory peeker dsk acc
@5		EQU	*
		PLP		;Recall 'm'/'x' status
		RTL		;Back to caller

@1		EQU	*
		TXA
		BMI	@2
		PLP
		RTL


CONV2ASC		EQU	*
		AND	#$0F	;Do low nybble only
		ORA	#$B0	;
		CMP	#$BA	;Test for number of letter
		BCC	@1	;<$BA then it's a number
		ADC	#$06	;If here it's a letter
@1		EQU	*
		RTS		;Back to caller




		TITLE	'Misc Monitor Bank FF Rtnes0'

******************************************************
*                                                    *
*        Miscellaneous Monitor Bank FF Routines00    *
*                                                    *
*                    by                              *
*               Joe Bo           1987-1989           *
*                                                    *
*       Copyright Apple Computer, Inc. 1987-1987     *
*                All Rights Reserved.                *
*                                                    *
******************************************************

*
* STEP/TRACE stack structure
*
*    ------------
*    |  <GOS    | <-- For returning back to monitor      
*    |  >GOS    |     when 'esc' key is hit
*    | TraceRate| <-- Trace rate value
*    |  'P'     | <-- Store 'c'/'v'              
*    |Monitor Bk| <-- For returning back to step/tace
*    | <STEPSP  |     after finishing each user instruction
*    | >STEPSP  |
*    |          |
*    |    |     | <-- Reserved for monitor step/trace   
*    |    |     |     to be used when they are activated
*    |    |     |     from $01bf-$01ff
*    |          |
*    |   SVAL   | <-- User stack space starts from here
*    |    |     | <-- If specified >=$0180 then force to $017F
*    |    |     |     if < $110 then error and back to
*    |    |     |     monitor
*    |          | <-- low end for user sp $110 !!
*    |    |     | <-- Too low if below here to $100 
*    |    |     |
*    |          |
*    ------------
*
TRACEFF		EQU	*
		JSL	>TRACEVECTOR	;See if anything out there
		LDA	#TRACEMSG	;Display 'Trace' message
TRACEFF2		EQU	*
		BCS	TRACE1	;'c'=1, trace not done yet !
		RTS		;Back to caller
TRACE1		EQU	*
		JSR	PRINTMSG
		SEC		;'c' = 1, trace
		BRA	STEP1


STEPFF		EQU	*
		JSL	>STEPVECTOR	;See if anything out there
		LDA	#STEPMSG	;Display 'Step' message
		BCS	STEP0	;'c'=1 then step not done yet !
		RTS		;Else return back to monitor
STEP0		EQU	*
		JSR	PRINTMSG	;Display it
		CLC		;'c'=0, step

STEP1		EQU	*
		PHB		;Save original data bank on stack
		LDA	STATEREG	;Save state register 
		PHA
		JSR	FIXE1PCLH	;Move PCL/PCH to bank E1 in case alt zp

		LONGA	ON		; Interrupt was disable from 'FIXE1PCLH'
		LONGI	ON		;From 'FIXE1PCLH', also data bank = $e1
		LDX	SHADOW	;Save SHADOW/CYAREG registers
		PHX
		TSC		;Save stk reg, for return back to monitor
		STA	|GOS	;Save for later restoring
		PHP		;Temporary save step/trace 'c'
		LDA	|SVAL	;Get usr's stack pointer
		CMP	#$0200	;Is it same as monitor stack space
		BCS	@1	;If not, leave it alone
		CMP	#$0180	;Is it within my monitor ranges
		BCC	@0	;BRA if not        
		LDA	#$017F	;Else force to this value
		STA	|SVAL	;Set to new value
		BRA	@1	;Continue on

@0		EQU	*
		CMP	#$0110	;Is it too low ?
		BCS	@1	;BRA if ok, $0110-$01a0 safe area
		PHX		;Dummy push for exit
		JMP	TOMON1	;Exit to monitor

@1		EQU	*
		PLP		;Restore step/trace 'c'
*
* The step/trace code sets emulation mode while running
*  in bank $FF!  If an interrupt comes under these circumstances
*  the machine crashes.  To remedy this problem, interrupts are
*  disabled during step and trace operation.  An interrupt window is
*  opened right around the call to get keys (in case the event mgr
*  is active ... it relies on interrupts to get keystrokes).
*  Interrupts are reenabled upon return to monitor mode.
*
		CLI		;Enable interrupt

		LONGA	OFF		;Off to 8 bit land
		LONGI	OFF
		SEP	#$30
		STZ	|JSX	;Set no real time jsx and w/regs display
		LDA	#$7F	;Default trace rate
		PHA		;Store on stack
		CLV		;'c'=1, 'v'=0, normal trace mode
		PHP		;Save on stack
		PEA	$0000	;Set back monitor data bank $00
		PLB
		PLB
STEPMORE		EQU	*
		JSR	DISASEM	;Display user instruction at its pc
*
* The code above this point has trashed the A1L value so that it
*  no longer contains the user's bank.  Restore it here so that the
*  'X' command can work on the first instruction in the step. {MSA 4/13/89}
*
		LDA	>BANKS
		STA	A1L	;Should be zero page!
*


LOOPKBD		EQU	*
		JSR	XRKBD1	;Read keyboard input
		BPL	@1	;BRA if no key hit
		JMP	FUNCTION	;Key hit, what functions ?
@1		EQU	*
		PLP		;Get the previous mode: step or trace ?
		PHP		;Store back for later use
		BCC	JUSTTRACE	;Bra if in step mode
		BVC	JUSTTRACE	;Bra for normal trace mode
		LDY	#$0	;Set y=0 for reading an opcode
		JSR	READPCY	;Read it and return in 'A'
		CMP	#$60	;RTS ?
		BEQ	EXITRTX
		CMP	#$40	;RTI ?
		BEQ	EXITRTX
		CMP	#$6B	;RTL ?
		BNE	JUSTTRACE	;Bra if not RTL 
EXITRTX		EQU	*
		PLP		;Get rid of previous c/v
		PLA		;Get rid of trace rate count
		LDA	#$7F	;Set to normal trace rate
		PHA		;Save back to stack
		CLV		;Clean off flag to stop at rtx
		CLC		;When exit from 'RTx', set to step mode
		PHP		;Store back to stack
		BRA	LOOPKBD	;Loop for key hit

JUSTTRACE		EQU	*
		LDA	>JSX	;Is real time execution of JSX active ?
		BPL	JUSTTRACE1	;Bra if not activated, BIT7
		LDY	#$0	;Else check for JSx opcode
		JSR	READPCY	;Read opcode at current PCK/PCH/PCL
		CMP	#$20	;Is it 'JSR'
		BEQ	@1	;Bra for doing real time JSR
		CMP	#$22	;Is it 'JSL'
		BNE	JUSTTRACE1	;Bra if not
@1		EQU	*
		JMP	REALJSX	;Go do JSR OR JSL routine in real

JUSTTRACE1	EQU	*
		PLP		;Get 'c'
		PHP		;Save back
		BCC	LOOPKBD	;Bra if in step and not real time JSx
		LDA	2,S	;Get trace rate
		JSR	WAIT	;Make a delay between each trace
		JMP	STEPTR	;Jump to execute user's instruction

ONOFFREGS		EQU	*
		LDA	>JSX
		EOR	#$40	;Bit 6
		STA	>JSX	;
		BRA	LOOPKBD	;

GOKEY		EQU	*
		PLP		;Clean stack
		PLA		;
		LDX	#$00	;For A1PC routine call in RESUME
		JMP	RESUMEFF	;Continue on with resume routine

WAITRTX		EQU	*
		PLP		;Clean out the stack
		SEP	#$40	;Set v=1 as indicator for waiting rtx
		PHP
		BRA	LOOPKBD5	;Save c/v and go back

CHKJSX		EQU	*
		LDA	>JSX	;Prepare to set bit7
		ORA	#$80	;
		STA	>JSX	;
		BRA	LOOPKBD5	;Go back

MYTEXT		EQU	*
		LDA	#$40	;Set bit6 to turn on text
		BRA	SETSCRN	;Do it and exit
DOUBLE		EQU	*
		LDA	#$80	;Prepare to turn off super hi
		TRB	NEWVIDEO	;Do it
		LDA	TXTCLR	;Turn on graphic
		LDA	CLRAN3	;Turn on double res
		BRA	LOOPKBD5	;Exit
MYMIXED		EQU	*
		LDA	#$20	;Set bit for mixed mode
		BRA	SETSCRN	;Do it and exit
MYHIRES		EQU	*
		LDA	#$10	;Set bit4 for hi-res
		BRA	SETSCRN	;Do it and exit
MYLORES		EQU	*
		LDA	#$00	;Set for low-res
		BRA	SETSCRN	;Do it and exit
MYSUPER		EQU	*
		LDA	#$80	;Set bit7 for super hi-res
SETSCRN		EQU	*
		STA	>SCRNSTAT	;Store here as new value
		LDA	#$80	;Any way turn off super hi-res first
		TRB	NEWVIDEO	;
		STA	SETAN3	;Double off
		JSR	BRKSCRN	;Set to new screen mode
		BRA	LOOPKBD5	;Go back and continue in my world !

CHARKEYS		EQU	*
		AND	#$DF	;Mask off lower case 
		CMP	#'O'	;ON/OFF registers display
		BEQ	ONOFFREGS	;
		CMP	#'J'	;CHK for 'J'
		BEQ	GOKEY	;
		CMP	#'R'	;Command to stop at rtx
		BEQ	WAITRTX	;
		CMP	#'X'	;Command to execute JSx subroutine in real
		BEQ	CHKJSX	;
		CMP	#'T'	;Change the display to text mode
		BEQ	MYTEXT	;
		CMP	#'D'	;Change the display to graphic mode
		BEQ	DOUBLE	;
		CMP	#'M'	;To mixed mode
		BEQ	MYMIXED	;
		CMP	#'H'	;To hi-res     
		BEQ	MYHIRES	;
		CMP	#'L'	;To low res
		BEQ	MYLORES	;
		CMP	#'S'	;To super hi res
		BEQ	MYSUPER	;
NOTCLAIM		EQU	*
		JSR	NEWBELL1	;Unrecognized keys, Beep
LOOPKBD5		EQU	*
		JMP	LOOPKBD	;Go back for more commands


FUNCTION		EQU	*
		CMP	#'A'	;Split off from here
		BCS	CHARKEYS	;BRA if within char keys range
		CMP	#$9B	;Check for 'esc'
		BEQ	TOMON	;Back to monitor
		CMP	#$A0	;Check for 'space bar'
		BEQ	SPACEKEY
		CMP	#$8D	;Check for 'CR'
		BEQ	CRKEY
		CMP	#$88	;'<--', Slow trace rate
		BEQ	SLOWRATE
		CMP	#$95	;'-->', Fast trace rate
		BEQ	FASTRATE	;
		CMP	#$8A	;Down arrow key?
		BEQ	SKIPONE	;Skip current instruction
		JMP	NOTCLAIM	;Not defined keys

TOMON		EQU	*	;'ESC' command
		CLI		;Make sure interrupt is on when exit
		JMP	GO816_EXT	;Exit step/trace and back to monitor

SPACEKEY		EQU	*	;'Space' command
		PLP		;Get previous 'c', 1 = trace ; 0 = step
		BCC	SWITCH	;If in step mode, stay it
		CLC		;Else switch from trace to step mode
		BRA	SWITCH	;Prepare to execute user instruction

CRKEY		EQU	*	;'CR' command
		PLP		;Get back previous 'c'
		BCS	SWITCH	;If in trace mode, stay it
		SEC		;Else switch from step to trace mode
		PLA		;Get rid of previous trace rate
		LDA	#$7F	;Set to default trace rate
		PHA		;Save back
SWITCH		EQU	*
		PHP		;Save back 'c'/'v'
		JMP	STEPTR	;Jmp to execute user's instruction

SLOWRATE		EQU	*
		PLP		;Temp pull back
		PLA		;Get rid of previous trace rate
		LDA	#$FF	;Set with low rate
		BRA	LOOPKBD4
FASTRATE		EQU	*
		PLP		;Temp pull back
		PLA		;Get rid of previous trace rate
		LDA	#$3F	;Set with fast rate
LOOPKBD4		EQU	*
		PHA		;Save back
		PHP		;Save c/v
		JMP	LOOPKBD	;Go back

SKIPONE		EQU	*
		LONGA	ON
		REP	#$20	;
		PHK		;Set up return address
		PEA	STEPMORE-1	;
		TSC		;
		STA	>STEPSP	;
		JMP	XEND1	;Exit in common routine

REALJSX		EQU	*
		LONGA	OFF
		LDA	>JSX
		AND	#$7F	;
		STA	>JSX	;

		LONGA	ON
		LONGI	ON
		REP	#$30	;Off to 16 bit land
		PHK		;Save monitor bank
		PEA	STEPMORE-1	;Save step/trace return address
		TSC		;Save monitor stack pointer
		STA	>STEPSP	;Save it
		CLC		;'c'=0, as indicator for calling from real time JSx
		LONGA	OFF
		LONGI	OFF
		SEP	#$30	;Back to 8 bit land
		PHP		;Save 'c' and m/x

*
* If the JSx routine is a Prodos8/Prodos16 MLI call,
* then special adjustment for user PCH/PCL is needed
* so that it would continue in my step/trace world.
* For JSR, new PC = current PC + 3 (bank $00 only),
* For JSL, new PC = current PC + 6 (any bank).                      
*
* For JSR call, it starts execution at the current JSR location,
* pre-compute and modified the user next opcode (after JSR) with
* RTL, $6B is required. Doing this, when hit user RTS, it gets to
* the modified RTL and helping to branch back to the monitor step
* trace world.
* For JSL call, it never execute the JSL itself and therefore the
* user RTL is easily dispatched by the monitor step/trace  
*
NOTREAL		EQU	*	;Entry point for normal JSx call
		LDY	LENGTH	;2=JSR, 3=JSL
		CPY	#$3	;JSR or JSL ?
		BNE	JSRSTUFF	;Bra for JSR
		JMP	JSLSTUFF

JSRSTUFF		EQU	*
		JSR	READPCY	;Tst for PRODOS8 MLIcall,$BF00;tst for $BF
		CMP	#>PRO8MLI	;Hi byte of MLI call address
		BNE	NOTMLI8	;Bra if high byte not equal $BF
		DEY		;Index to read low byte
		JSR	READPCY	;Get low byte, test for $00
		ORA	>BANKS	;Src bank and low byte both 0 if MLI call
		BNE	NOTMLI8	;Bra if not PRODOS8 MLI call
		LDA	#$05
		STA	LENGTH	;Store back, good for 'FIXPC'
		PLA		;Clean stack
		BRA	MLICALL	;Bra for real time PRODOS8 MLI call

NOTMLI8		EQU	*
		PLP		;Get back 'c'
		BCS	JSRNOTRL	;Bra if NOT doing real time of any JSR
MLICALL		EQU	*
JSRREAL		EQU	*
		LDA	PCL	;Load original pc where JSx is A1H-A2
		STA	A1H	;PCL
		LDA	PCH	;
		STA	A2L	;PCH
		LDA	>KVAL	;
		STA	A2H	;

*
* Must preserve the Emulation Stack Pointer in case we are going
*  off to a native mode stack.  {MSA 4/28/89}
*
		JSR	STACKFUTZ	;{MSA 4/28/89}
*
		LONGA	ON
		LONGI	ON
		REP	#$30	;Off to 16 bit land
		LDA	>SVAL	;Get user stack pointer
		TCS		;Change to user stack space

		LONGA	OFF
		LONGI	ON
		SEP	#$20	;8/16 M/X            
		LDA	A2H	;Get bank byte where usr reside
		CMP	#$F8	;Is it in ROM bank, $f8-$ff
		BCC	NOTROMBK	;BRA if not
		STZ	A1H	;Start from $ffff of that bank
		STZ	A2L	;  
		LDY	#$FFFF	;
GOFORRTL		EQU	*
		LDA	[A1H],Y	;Read and test for 'rtl'
		CMP	#$6B	;Search for 'RTL', $6b
		BEQ	GETRTL
		DEY
		BNE	GOFORRTL	;If there is no 'rtl', force to step mode
		LDA	[PCL],Y	;Chk for jsr or jsl calls
		CMP	#$22	;
		BEQ	JSLNOTRL	;BRA to do jsl routine not in real time
JSRNOTRL		EQU	*
		JMP	GOJSRL	;Single step if no rtl found

GETRTL		EQU	*
		PHK		;Get an rtl, save my program bank
		PEA	JSLRET-1	;Address where rtl returns
		DEY		;Adjust the pc for rtl where located
		PHY		;Push in as return address for usr's rts
		LONGA	OFF
		LONGI	OFF
		SEP	#$30	;off to 8-bit m/x
		LDY	#$00	;Chk for jsr or jsl ?
		LDA	[PCL],Y	;Read in the opcode
		CMP	#$22	;Chk for jsl ?
		BNE	@1	;Bra if NOT prodos mli
		JMP	ROMJSL	;Broke the branch {MSA 4/28/89}
@1		EQU	*
		LDA	A2H	;Else need to push in usr's program bank
		PHA
		LDY	#$02	;Set proper index for doing jsr
		JMP	ROMJSR	;Bra to do real time jsr routine

NOTROMBK		EQU	*
		LONGA	OFF
		LONGI	OFF
		SEP	#$30
		LDY	LENGTH	;'FIXPC' depends on length to get next pc
		JSR	FIXPC	;Pre-cal next pc, take care of bk crossing

		LDY	#$00	;Index to pre-read next opcode
		JSR	READPCY	;Read it
		PHA		;Save to stack for later restoring
		LDA	#$6B	;Modified user's next opcode w/ 'RTL'
		STA	[PCL],Y	;Store the modified code to user next pc
		PHK		;Save monitor program bank
		PEA	JSRRET-1	;Save return address
*
* The RESTOREFF scheme for restoring the user's interrupt state has a fundamental
*  problem.  You can't just restore the E and I bits when running code in bank <>$00.
*  If E=1 and an interrupt comes in, control is lost upon return from the interrupt.
*  So we have altered RESTOREFF so that it disables interrupts, and every 
*  call to RESTOREFF has been modified so that control is transferred with an RTI,
*  so that interrupts are not enabled until after control is transferred. {MSA/FAB 4/12/89}
*
; JSR RESTOREFF ;Restore user's environment stuff
; JML [A1H] ;Execute from usr's JSR or JSL itself
*
* Already in 8 bit mode!
*
		LDA	>EPVAL	;If user in native, RTI will pull 4 bytes
		BNE	MF1	;If emulation, RTI pulls 3 bytes
		LDA	A2H	;Get the bank part of the address
		PHA		; and push it on
MF1		EQU	*
		LDA	A2L	;Get bits 8..15 of the address
		PHA
		LDA	A1H	;Get bits 0..7 of the address
		PHA
MFRTI		EQU	*
		LDA	>PVAL	;Get the User's status reg
		PHA		; and set up for the RTI
		LDA	>EPVAL	;Emulation RTI MUST happen from bank $00
		BNE	@1
		JSR	RESTOREFF	;Restore everything except the PSReg
		RTI
@1		EQU	*
		JSR	RESTOREFF
		JMP	>RTI~Bnk00
*
*
JSLSTUFF		EQU	*
		JSR	READPCY	;Y=3, get bank byte
		CMP	#^PRO16MLI	;Test bank byte for PRODOS16 MLI call
		BNE	NOTMLI16	;Bra if not
		DEY		;
		JSR	READPCY	;Y=2, get high byte
		CMP	#>PRO16MLI	;Test high byte for PRODOS16 MLI call
		BNE	NOTMLI16
		DEY
		JSR	READPCY	;Y=1, get low byte
		CMP	#<PRO16MLI	;Test low byte for PRODOS16 MLI call
		BNE	NOTMLI16	;Bra if not
		LDA	#$09
		STA	LENGTH	;Store back, good for 'FIXPC' 
		PLA		;Clean stack
		JMP	MLICALL	;PRODOS16 MLI call

NOTMLI16		EQU	*
		PLP		;Is it force to do real time for any JSL
		BCC	JSLREAL	;BRA if it is
JSLNOTRL		EQU	*
		LONGA	OFF
		LONGI	OFF
		SEP	#$30
		LDA	>KVAL	;Normal JSL step/trace, push pck to stack
		JSR	DECSP	;Do it and adjust user's SVAL
		JMP	GOJSRL	;Go for normal JSL stuff

JSLREAL		EQU	*
*
* Must preserve the Emulation Stack Pointer in case we are going
*  off to a native mode stack.  {MSA 4/28/89}
*
		JSR	STACKFUTZ	;{MSA 4/28/89}
*
		LONGA	ON
		LONGI	ON
		REP	#$30	;Off to 16 bit land
		LDA	>SVAL	;Get user stack pointer
		TCS		;Swap to user stack space
		PHK		;Save monitor program bank
		PEA	JSLRET-1	;Save return address on stack

*
* We'll use an RTI to transfer control and to enable interrupts only upon transfer.
*  {MSA/FAB 4/12/89}
ROMJSL		EQU	*
		LONGA	OFF
		LONGI	OFF
		SEP	#$30	;Back to 8 bit land
		LDY	#$3
		LDA	>EPVAL	;{MSA 4/12} Will it be a emul or native RTI
		BNE	BACKIN	;{MSA 4/12} Emul skip pushing the high byte
		JSR	READPCY	;Read bank byte
		PHA		;Save on stack
BACKIN		EQU	*
		DEY

ROMJSR		EQU	*
		JSR	READPCY	;Read high byte
		PHA
		DEY
		JSR	READPCY	;Read low byte
		XBA		;Save pcl to high 'a'
		PLA		;Get back high byte
		XBA		;Make it pch/pcl
		LONGA	ON
		LONGI	ON
		REP	#$30	;16 bit land 
;DEC A ;Minus 1, when RTL it plus 1
		PHA		;Save forward address on stack
		LONGA	OFF
		LONGI	OFF
		SEP	#$30	;Back to 8 bit land
; JSR RESTOREFF ;Restore user's environment first
; RTL  ;Off to usr's routine
		JMP	MFRTI	;{MSA 4/12} Push user's P, restore and RTI
*
JSRRET		EQU	*	;Return after real time jsr routine
		JSR	STOREFF	;Need to store user's new stuff first
		LONGA	OFF
		LONGI	OFF
		SEP	#$30	;Set 8 bit land, in case user change it
		PLA		;Restore the pre-get opcode
		LDY	#$0	;Prepare index for saving back
		STA	[PCL],Y	;Store back to the user original area
		JMP	XEND	;Back to step/trace, no need to update PC

	; SEG $FF
JSLRET		EQU	*	;Get here after usr's real time JSL 
	; SEG $00
		JSR	STOREFF	;Store user's stuff before anything else
		LONGA	OFF
		LONGI	OFF
		SEP	#$30	;Set to 8 bit land in case user change it
		JMP	XEND2	;Back to step/trace, need to update for PC

STEPTR		EQU	*
		LONGA	ON
		LONGI	ON
		REP	#$30	;Off to 16 bit land
		PHK		;Save return info on stack for 'RTL' after a step
		PEA	STEPMORE-1	;Step more, back to monitor
		TSC		;Save sp where step/trace left off
		STA	>STEPSP	;Store for returning after each step/trace

		LONGA	OFF
		LONGI	OFF
		SEP	#$30	;Off to 8 bit land


*
* User's instruction filtering and execution
*
		SEI		;Disable interrupt
		LDY	#$0	;Set index to read opcode at PC
		JSR	READPCY	;Read an opcode                  
		PHA		;Temp store the opcode
		LDX	#$0B	;Init execution area
XQINIT		EQU	*
		LDA	>XOPC,X	;Absolute long index
		STA	>USEROPC,X	;Save to step/trace execution area
		DEX
		BPL	XQINIT	;Till done

		LDA	>BANKS	;Get usr's bank
		STA	A1L	;Store so that pcl/pch/a1l=pcl/pch/pck
		STA	>KVAL	;Also update usr's program bank

		PLX		;Restore opcode and store in 'x'
		BNE	NOTBRK	;If brk, exit to monitor    
SPERR		EQU	*
		JSR	NEWBELL1	;Beep
		LDA	>JSX
		AND	#$BF	;Set bit6=0
		STA	>JSX
		JMP	XEND	;Exit and stay to brk

NOTBRK		EQU	*
		CPX	#$60	;RTS ?
		BEQ	XRTS
		CPX	#$6B	;RTL ?
		BEQ	XRTS
		CPX	#$40	;RTI ?
		BNE	XQ1	;Bra if not RTI
		JSR	INCSP	;Check user sp and return the value pointed by sp in 'A'
		STA	>PVAL	;Simulate rti by getting 'p' from stack  
XRTS		EQU	*	;Simulate for rts
		JSR	INCSP	;Update new pch/pcl with new values from user's stack
		STA	PCL	;Store to pcl
		JSR	INCSP	;Read next value in sp+1
		STA	PCH	;Store to pch
		CPX	#$40
*BEQ XRTS1 ;For RTI, there is no plus 1 for value from stack
*
* Fix a bug where a native mode RTI was not pulling the PBR off
*  of the stack.  {MSA 4/10/89}
*
		BNE	MXRTS	;Skip if not an RTI
		LDA	>EPVAL	;RTI's behavior depends on E
		BEQ	PIARTL	;Native RTI- pretend RTL- PBR on stk
		BRA	XRTS1	;Emulation RTI doesn't have PBR on stack
MXRTS		EQU	*
*
* End of 4/10/89 patch  {MSA}
*
		LONGA	ON
		LONGI	ON
		REP	#$30	;16 bit 'm'/'x'
		INC	PCL	;For RTS/RTL, return address in stack + 1 = new PC
		LONGA	OFF
		LONGI	OFF
		SEP	#$30	;Back to 8 bit land

		CPX	#$6B	;RTL ? 
		BNE	XRTS1	;Bra if not               
PIARTL		EQU	*	;Pull the PBR off the stack {MSA 4/10/89}
		JSR	INCSP	;Else to pull one more for program bank
		STA	>KVAL	;Update user's program bank
		STA	>BANKS
		STA	A1L
XRTS1		EQU	*
		JMP	XEND	;Regs display and back to next step/trace


XQ1		EQU	*
		PHX		;Save the user's opcode
		LDY	LENGTH	;Get length of opcode
XQ2		EQU	*
		JSR	READPCY	;Read usr's opcode & oprnd, preserve x/y
		TYX		;Try to do index long w/ 'x'
		STA	>USEROPC,X	;Copy to execution area
		DEY
		BPL	XQ2	;Move until done
		PLX		;Restore usr's opcode

XQ3		EQU	*
*
* Add a check for 'CLI' to disable its execution {MSA 3/30/89}
*
		CPX	#$58	;Defeat CLI emulation...
		BNE	noprob
		JMP	XEND1
NOPROB		EQU	*
*
******** END 3/30/89 PATCH *********
*
		CPX	#$4C	;JMP....?
		BCS	@3	;Bra if could be a JMP, JMP (), JML
		JMP	XJSR1	;Else check for JSR...
@3		EQU	*
		BEQ	XJMP	;Bra for JMP a
		CPX	#$DC
		BEQ	XJMP	;JML (a)
		BCC	@2	;Bra if could be a JMP, JMP ()
@4		EQU	*
		JMP	XJSR1	;Else check for JSR..
@2		EQU	*
		CPX	#$5C
		BEQ	XJMP	;JMP al
		CPX	#$6C
		BEQ	XJMP	;JMP (a)
		CPX	#$7C
		BNE	@4	;Bra if not JMP (a,x)
		LDA	>EPVAL	;Check user's 'e'
		BNE	@1	;Bra if e=1, emulation mode
		LDA	>PVAL	;If e=0, need to check index 'x' mode
		AND	#$10
		BEQ	XJMP	;Bra if INDEX16 MODE  
@1		EQU	*
		LDA	>XVAL+1	;Get user's low byte 'x'
		PHA		;Store to stack so XVAL can be manipulated
		LDA	#0	;With index8, set high byte of 'x' to 0
		STA	>XVAL+1
		BRA	XJMPP	;                                      

XJMP		EQU	*
		LDA	>XVAL+1	;Get user's XVAL+1
		PHA		;Store it                               
XJMPP		EQU	*
		LDA	>USEROPRL	;Get user's operand low
		STA	PCL	;Store as new pcl
		LDA	>USEROPRH	;Get user's operand high
		STA	PCL+1	;Store as new pch
		CPX	#$5C	;JMP al ?
		BNE	XJMP1	;Bra if not JSL
		LDA	>USEROPRK	;Else need to update program bank
		STA	>BANKS	;Store it
		STA	>KVAL	;Store to user program bank location

XJMP1		EQU	*
		CPX	#$4C
		BEQ	GOXEND	;JMP A
		CPX	#$5C
		BEQ	GOXEND	;JMP al

		CPX	#$7C
		BNE	XJMPai	;Bra for JMP (a) or JMl (a)
		LONGA	ON
		LONGI	ON
		REP	#$30	;Off to 16 bit land
		LDA	>USEROPRL	;Get user's oprh/oprl
		CLC		;Set 'c'=0
		ADC	>XVAL	;Add in 'x' register offset, (a,x)
		STA	PCL	;Store as new pch/pcl

XJMPAI		EQU	*
		LONGA	OFF
		LONGI	OFF
		SEP	#$30	;Off to 8 bit land
		CPX	#$DC	;JML (a) ?
		BNE	XJMPai1
		LDY	#$2	;Set y=2 to read pck
		LDA	(PCL),Y	;Get the new pck        
		STA	>BANKS	;Store it
		STA	>KVAL	;Store to user's program bank location
XJMPAI1		EQU	*
*
* This code has 6C,7C,DC, and FC opcodes passing thru.  In the case
*  of 6C and DC the location where the indirect address lies is in
*  bank $00.  In the case of FC and 7C it is in the User's Current
*  program bank.  {MSA/FAB 4/26/89}
*
		CPX	#$FC	;Check for JSR (a,x)
		BEQ	@1
		CPX	#$7C	;Check for JMP (a,x)
		BNE	@2	;Bank defaults to $00
*
@1		EQU	*
		PHB
		LDA	>KVAL	;Get user's pgm bank
		PHA		;Xfer to our data bank reg for lda below
		PLB
		LONGA	ON
		LONGI	ON
		REP	#$30	;Get 16 bits of effective address
		LDY	#$0000
		LDA	(PCL),Y	;Get effective address
		STA	PCL	;Replace pointer
		PLB		;Our old program bank
		BRA	@3
@2		EQU	*
		LONGA	ON
		LONGI	ON
		REP	#$30	;Off to 16 bit land
		LDY	#$0
		LDA	(PCL),Y	;Get the new pc with the adjusting offset
		STA	PCL	;Store to pch/pcl
		LONGA	OFF
		LONGI	OFF
@3		EQU	*
		SEP	#$30	;Back to 8 bit land

GOXEND		EQU	*
		PLA		;Retrieve user's XVAL+1
		STA	>XVAL+1	;Store back 
		JMP	XEND	;End of JMP..., back to step/trace world

XJSR1		EQU	*
		SEC		;'c'=1, as an indicator
		PHP		;Save for later use                      
		CPX	#$20	;JSR a ?
		BEQ	@1	;          
		CPX	#$22	;JSL ?
		BNE	@2	;Bra to check others                     
@1		EQU	*
		JMP	NOTREAL	;Jmp to check for PRODOS MLI call

@2		EQU	*
		PLP		;Clean stack
		CPX	#$FC	;JSR (a,x) ?
		BNE	XBRA	;Bra to check for 'BRANCH' instruction
GOJSRL		EQU	*
		PHX		;Save opcode
		DEC	LENGTH	;Make return address = next pc - 1
		JSR	PCADJ	;Adjust for new pc-1   
		STA	PCL	;User return address after JSx
		STY	PCH
		PHA		;'A'= new pcl
		TYA		;'Y'= new pch
		JSR	DECSP	;Save pch/pcl-1 onto stack
		PLA		;Get back pcl
		JSR	DECSP
		LDX	#$4C	;Simulate jsr....by jmp
		PLA		;Retrieve opcode
		CMP	#$20
		BEQ	GOJMP	;$20 -> $4C
		LDX	#$5C
		CMP	#$22
		BEQ	GOJMP	;$22 -> $5C
		LDX	#$7C	;$FC -> $7C

GOJMP		EQU	*
		JMP	XJMP	;Simulate JSx w/ JMx after conversion


XBRA		EQU	*
		CPX	#$82	;Is it brl ?
		BNE	XQ4	;Bra if no
		LDA	#$00	;Make 'a'=0
		STA	>USEROPRH	;Set to zero
		LONGA	OFF
		LDA	#XBRANCH-XOPRK	;Get offset for 'BRANCH'
		BRA	SETOPRL
XQ4		EQU	*
		CPX	#$80	;Is it bra ?
		BEQ	SETOFFSET	;
		TXA		;Get back opcode
		AND	#$1F	;Make 'Branch' bra to 'JMP BRANCH'
		CMP	#$10
		BNE	XQ5	;Bra for inst except RTx, JMx, JSx, BRANCH
SETOFFSET		EQU	*
		LONGA	OFF
		LDA	#XBRANCH-XOPRH	;Calculate offset 
SETOPRL		EQU	*
		STA	>USEROPRL	;Store to useroprl

XQ5		EQU	*
		CPX	#$62	;Is it 'PER'
		BEQ	XQ6
		CPX	#$4B	;PHK ?
		BNE	USERINST	;Bra for other normal instructions
		LDA	>KVAL	;Special PHK, need to save pck to stack
		JSR	DECSP	;Do it and adjust sp also
		BRA	XEND1	;Bra to end and back to step/trace world

XQ6		EQU	*
*
* Must preserve the Emulation Stack Pointer in case we are going
*  off to a native mode stack.  {MSA 4/28/89}
*
		JSR	STACKFUTZ	;{MSA 4/28/89}
*
		LONGA	ON		;16-bit m/x
		LONGI	ON
		REP	#$30
		LDA	>SVAL	;Get user sp
		TCS		;So simulate of 'PER' is in user stk space
		LDA	PCL	;Get current address
		INC	A	;Offset by 2
		INC	A
		SEC		;Make it correct addition    
		ADC	>USEROPRL	;Add in offset
		PHA		;Save to user stack space
		BRA	XEND2	;Jmp to set new SVAL and ret to step/trace
		PHA

USERINST		EQU	*
*
* Must preserve the Emulation Stack Pointer in case we are going
*  off to a native mode stack.  {MSA 4/28/89}
*
		JSR	STACKFUTZ	;{MSA 4/28/89}
*
		LONGA	ON
		LONGI	ON
		REP	#$30	;Off to 16 bit land
		LDA	>SVAL	;Get back user stack pointer
		TCS		;Do it and use usr stk space until restore step/trace sp
		LONGA	OFF
		LONGI	OFF
		SEP	#$30	;Back to 8 bit land

;
; From restore to execute then store back, it would hope the 
; user stack pointer and processor status not be changed, but
; somehow the stack space has been touched
;
*
* Note that interrupts will be forced off by RESTOREFF.  Can't have
*  them on because we're going to Bank $E1 and the user might have
*  E=1 {MSA 4/12/89}
*
		JSR	RESTOREFF	;Restore user environment and registers 
		JMP	>USEROPC	;Jmp to execute user instruction
*
	; SEG $FF
NOBRANCH		EQU	*
	; SEG $00
		JSR	STOREFF	;Use usr stk area, return w/ native mode

XEND2		EQU	*
		LONGA	ON
		LONGI	ON
		REP	#$30	;Off to 16 bit land
		TSC		;Save user's stack pointer
		STA	>SVAL	;Store for display

XEND1		EQU	*
		LONGA	OFF
		LONGI	OFF
		SEP	#$30	;Back to 8 bit land
		JSR	FIXPC	;After each instruction, adjust pc for next
XEND		EQU	*
*
* Must restore the emulation stack pointer in case we changed it.
*  {MSA 4/28/89}
*
		LDA	>KPMNEMSP	;{MSA 4/28/89} Get saved value
		STA	>MNEMSTKPTR	;{MSA 4/28/89}
*
		LONGA	ON
		LONGI	ON
		REP	#$30	;Off to 16 bit land
		LDA	>STEPSP	;Continue w/ step/trace till 'esc' key
		TCS		;Re-enter monitor stack space
		LDA	>SVAL	;Check user stack space
		CMP	#$0200	;Not in regular stack area then leave it alone
		BCS	XEND01	;Bra if OK
		CMP	#$010F	;In regular stack, is it end of the stk?
		BCS	XEND01	;If not that close, still OK
		LONGA	OFF
		LONGI	OFF
TOMON1		SEP	#$30
		JSR	NEWBELL1	;Beep it
		JMP	TOMON	;Stack tragedy, exit to monitor

XEND01		EQU	*
		LONGA	OFF
		LONGI	OFF
		SEP	#$30	;Back to 8 bit land
		LDA	>JSX	;Chk regs display on/off options
		AND	#$40	;Mask for bit6         
		BNE	@2	;BRA if no need to display regs
		JSR	REGDSP2	;Make a regs and status display after an instruction
@2		EQU	*
		CLI		;Enable interrupt
		RTL		;Ret to STEPMORE to continue in step mode

	; SEG $FF
XOPC		EQU	*
	; SEG $00
		NOP		;XOPC, opcode
XOPRL		EQU	*
		NOP		;XOPRL, operand (L) of opcode
XOPRH		EQU	*
		NOP		;XOPRH, operand (H) of opcode
XOPRK		EQU	*
		NOP		;Bank byte, operand (K) of opcode
		JMP	>NOBRANCH	;Jump to handle nobranch instruction
XBRANCH		EQU	*
		JMP	>BRANCH	;Jump to handle branch instruction
	; SEG $FF
RETMLI		EQU	*
	; SEG $00
		JMP	>JSLRET	;Return from MLI16 call
*

	; SEG $FF
BRANCH		EQU	*
	; SEG $00
		PEA	$0000	;Set back monitor data bank in case user change it
		PLB
		PLB
		PEA	$0000	;Reset direct register also
		PLD
		CLC
		XCE		;Native mode, in case user set to emulation mode
		LONGA	OFF
		LONGI	OFF
		SEP	#$30	;Back to 8 bit land
		LDY	LENGTH	;Get 'branch' opcode length, only brl needs 2 bytes
		JSR	READPCY	;Read high byte first
		DEY		;
		BEQ	@1	;Bra if only one byte offset, e.g. bcs, bvs....
		PHA		;Save hi byte
		JSR	READPCY	;If 2 bytes offset, read in low byte now
		SEC		;'c'=1
		ADC	PCL	;Adjust PC w/ offset
		TAX		;Temp store ocl
		PLA		;Get back high byte
		ADC	PCH	;Adjust high byte, 'c'=1
		TAY		;Temp save
		TXA		;Get back low
		CLC		;'c'=0
		ADC	#2	;Add 2 more for 2 bytes offset
		TAX		;pcl to 'x'
		BCC	@3	;If 'c'=1, need to adjust high byte by 1
		BRA	@2	;Else just store

@1		EQU	*	;One byte offset handling
		SEC		;'c'=1
		JSR	PCADJ3	;One byte length pc adjust
		TAX		;PCL,PCH+OFFSET+1 TO A,Y
		INX
		BNE	@3
@2		EQU	*
		INY
@3		EQU	*
		STX	PCL	;Store it as new pcl
		STY	PCH	;Store it as new pch
		JMP	XEND	;End the 'BRANCH' world and return

*

*
* RESTOREFF and STOREFF have been moved to the SLOT.ARBITER file {MSA 4/12/89}
*


INCSP		EQU	*
		PHB		;Save current data bank
		JSR	DBTOE1	;Change data bank to $e1
		INC	|SVAL	;SP low byte boundary checking, i.e. $xxff
		BNE	LDASP	;Bra if not at boundary
		LDA	|EPVAL	;Check for emulation/native
		BEQ	LDASP	;Bra if in emulation mode
		INC	|SVAL	;Else adjust hgh byte of stk ptr by 1
LDASP		EQU	*
		LDA	|SVAL	;Copy SVAL/SVAL+1 to A1H-A2L for next addressing mode
		STA	A1H	;Form an direct indirect long
		LDA	|SVAL+1
		STA	A2L	;
		STZ	A2H	;Force to $00
		LDA	[A1H]	;Get the value pointed by usr stk pointer
		PLB		;Restore data bank
		RTS		;Back to caller, step/trace of monitor

DECSP		EQU	*
		PHB
		PHA		;Save 
		JSR	DBTOE1
		LDA	|SVAL
		STA	A1H	;Copy user stk ptr to monitor direct page
		LDA	|SVAL+1	; so that an direct indirect long can be used to store pc
		STA	A2L	;
		PLA
		STZ	A2H	;Force to $00
		STA	[A1H]	;Save return address to user stack area
		DEC	|SVAL	;Need to adjust stack pointer
		LDA	|SVAL	;Check for boundary
		CMP	#$FF
		BNE	DECSRRTS
		LDA	|EPVAL
		BNE	DECSRRTS
		DEC	|SVAL+1
DECSRRTS		EQU	*
		PLB
		RTS




		TITLE	'Misc Monitor Bank FF Rtnes00'

******************************************************
*                                                    *
*        Miscellaneous Monitor Bank FF Routines01    *
*                                                    *
*                    by                              *
*               Fern Bachman     1985-1987           *
*               Joe Bo           1987-1989           *
*                                                    *
*       Copyright Apple Computer, Inc. 1985-1989     *
*                All Rights Reserved.                *
*                                                    *
******************************************************

EQUALSFF		EQU	*
		LDY	YSAV	;Continue where command parser left off
@1		EQU	*
		LDA	IN,Y	;Ignore spaces and find command
		CMP	#$A0	;
		BNE	@2	;<> $A0 then may have something
		INY		;Keep testing
		BNE	@1	;Loop

@2		EQU	*
		INY		;Must be looking at next char in IN
		STY	YSAV	;Save pointer
		LDX	#NEWCMDLEN-1	;Maximum number of new commands to check
@3		EQU	*
		CMP	>NEWCMDSTBL,X	;Check for matches
		BEQ	GOODCMD	;
		DEX		;
		BPL	@3	;Loop to try to find one

* Fall to here if all else fails

		DEY		;Offset for INY done in NEWCMDTST earlier
@4		EQU	*
		LDA	IN,Y	;Eat any preceeding spaces
		CMP	#SPACE	;
		BNE	@5	;<>= then continue normally
		INY		;
		BRA	@4	;

@5		EQU	*
		SEP	#$40	;Anticipate unsigned conversion requested
		CMP	#'+'	;If '+' or '-' then do signed stuff
		BEQ	@6	;
		CMP	#'-'	;
		BNE	@7	;
@6		EQU	*
		CLV		;'v'=0 to indicate signed conversion
@7		EQU	*

		IF IS512 <> 0 THEN
		ELSE
		JSR	PUSH6	;Push room for result on stack
		SEP	#$30	;Undo PUSH setting it in to 16 bit mode
		LDA	#>IN	;High byte of low word of ptr to buffer
		PHA		;
		PHY		;Low byte of word of ptr to buffer
		LDX	#$00	;Count bytes
@8		EQU	*
		INX		;Increment count index
		INY		;
		LDA	IN,Y	;Test for carriage return
		CMP	#$8D	;
		BEQ	@9	;= then continue
		EOR	#$B0	;Test for valid decimal entry
		CMP	#$0A	;0-9 is OK
		BCC	@8	;Loop til end is found
@9		EQU	*
		REP	#$30	;Go to 16 bit land to make call
		PHX		;Push number of bytes to convert
		BVC	@10	;'v'=0 then signed conversion
		PEA	$0000	; else unsigned conversion
		BRA	@11	;

@10		EQU	*
		PEA	$0001	;<>0 for signed conversion
@11		EQU	*
		LONGI	ON
		LDX	#DEC2LONG*256+IMTN	;Function number*256+tool number
		LONGI	OFF
		JSL	>DISPATCH1	;Call tool locator
		SEP	#$30	;Back to monitor mode
		LDA	#HEXMSG	;Print 'Hex-> $'
		JSR	PRINTMSG	;
		LDA	3,S	;Low byte of high word
		TAX		;
		LDA	4,S	;High byte of high word
		JSR	PRNTAXFF	;Print em
		PLX		;Low byte of low word
		PLA		;High byte of low word
		JSR	PRNTAXFF	;Print em
		PLA		;Clean up stack
		PLA		;
		ENDIF


DECTOHEX6		EQU	*
		JSR	LIST3	;Next line+space please

* To return directly to the monitor in the calling
* bank we must clean up the stack.
* This routine pulls the following info from the stack.
*      # of bytes          Type of information
*         2                 RTS data from bank FF
*         1                 State register data
*         3                 RTL data for return to calling bank
*         1                 Speed data
*         1                 'A' data
*         2                 RTS data from calling bank

MONZ2RTN		EQU	*
		LDX	#$0A	;10 bytes to remove
@1		EQU	*
		PLA		;Remove 1 byte from stack
		DEX		;Decrement counter
		BNE	@1	;Loop til done
		JMP	MONZ2FF	;Restart monitor command line function


GOODCMD		EQU	*
		CPX	#$05	;0-4 for 2 byte data changes
		BCC	@3	;
		CPX	#$10	;Is it set video screen data ?
		BEQ	@0	;BRA if yes
		CPX	#$11	;5-$0f for 1 byte data changes
		BCS	@1	;
		TXA		;Create correct offset for indexing
		ADC	#$05	;Add 5 bytes used by 2 byte commands
		TAX		;Index now fixed
		BRA	@4	;Exit via 2 byte command routines
@0		EQU	*
		LDA	A2L	;Get the data to write to
		STA	>SCRNSTAT	;Store it
		RTS		;

@1		EQU	*
		BNE	@2	;
		JMP	TCMD	;=$0F then time command

@2		EQU	*

*  >$0F then assume hextodec command
		LDA	#DECMSG	;'Decimal-> ' message
		JSR	PRINTMSG	;
		IF IS512 <> 0 THEN
		ELSE

		CLV		;Clear 'v' to print unsigned
		JSR	HEXTODEC7	;Print result
		JSR	PR1BLNKFF	;Print 1 blank spaces
		LDA	#'{'	;Print bracket for signed result
		JSR	COUTFF	;

		SEP	#$40	;Set 'v' to print '+'
		JSR	HEXTODEC7	;Print result
		ENDIF
		JSR	RELADR2	;Print '}'
		BRA	DECTOHEX6	;Next line+space then back to caller


@3		EQU	*
		TXA		;X * 2 for indexing
		ASL	A	;
		TAX		;
		REP	#$20	;16 bit mode a must
@4		EQU	*
		LDA	A2L	;Data to write is here
		CPX	#$0A+5	;'L' command offset
		BCC	@5	;<$0A+5 then not 'L','m','x','e'
		CPX	#$0F+5	;
		BEQ	@5	;= to 'F' cmd then save whole byte
		AND	#$01	;
@5		EQU	*
		STA	>AVAL,X	;Data goes here
		SEP	#$30	;8 bit mode is normal monitor mode
		LDA	7,S	;Get current user speed value
		AND	#$7F	;Strip off hi bit
		PHA		;Save on stack
		LDA	>QVAL	;
		AND	#$80	;Hi bit only important one
		STA	>SYSTEMSPD	;Set system speed mask
		ORA	1,S	;Create new speed byte
		PLX		;Clean up stack
		STA	7,S	;Save new speed byte
		RTS		;Back to caller


HEXTODEC7		EQU	*
		PHP		;Preserve 'v'/'m/'x' status
		REP	#$30	;16 bit land required for call
		LDA	>EXTENDBNK	;High word to convert
		PHA		;
		LDA	A2L	;Low word to convert
		PHA		;
		PEA	$0000	;High word of pointer to buffer
		PEA	IN	;Low word of pointer to buffer
		PEA	$0010	;Size of buffer
		LONGA	ON
		LDA	#$0001	;<>0 if signed value requested
		LONGA	OFF
		BVS	@1	;'v'=1 then print signed value
		DEC	A	;=0 for unsigned result requested
@1		EQU	*
		PHA		;Req data type (signed/unsigned) to stack
		LONGI	ON
		LDX	#LONG2DEC*256+IMTN	;Function number*256+tool number
		LONGI	OFF
		JSL	>DISPATCH1	;Call tool locator
		PLP		;Recall 'v'/'m'/'x' status

		LDX	#$FF	;Start index at 0-1
@8		EQU	*
		INX		;
		CPX	#$10	;Stop at $10 always
		BCS	@9	;
		LDA	IN,X	;Ignore spaces
		CMP	#$20	;
		BEQ	@8	;Loop til no spaces
		BVC	@8_2	;'v'=0 then no signs
		CMP	#$2D	;If not '-' then output '+'
		BEQ	@8_2	;
		LDA	#'+'	;Plus indicator
		PHX		;Preserve 'X'
		JSR	COUTFF	;
		PLX		;Restore 'X'
@8_1		EQU	*
		LDA	IN,X	;Recall character to print
@8_2		EQU	*
		ORA	#$80	;Need high bit on to print
		PHX		;Preserve 'X'
		JSR	COUTFF	;
		PLX		;Recall 'X'
		INX		;
		CPX	#$10	;Stop at $10 always
		BCC	@8_1	;Loop if not done yet
@9		EQU	*
		RTS		;Back to caller




		TITLE	'Misc Monitor Bank FF Rtnes1'

******************************************************
*                                                    *
*        Miscellaneous Monitor Bank FF Routines1     *
*                                                    *
*                    by                              *
*               Fern Bachman     1985-1987           *
*               Joe Bo           1987-1989           *
*                                                    *
*       Copyright Apple Computer, Inc. 1985-1989     *
*                All Rights Reserved.                *
*                                                    *
******************************************************

DECDISASM		EQU	*	;Dec PCL/PCH-disassemble inst-inc PCL/PCH
		LDA	MODE	;'-' if PASCAL '+' if BASIC
		BPL	@2	;+ then no changing at all
		CMP	#$FF	;$FF=vanilla Apple// mode
		BEQ	@2	;Do nothing in this mode
		BIT	RD80VID	;In 80 (-) columns or 40 (+) columns?
		BPL	@1	;

		REP	#$30	;Save the Pascal screen
		LONGI	ON
		LDX	#SVESCRNFN*256+DSKTN	;'X'=function #*256+tool number
		JSL	>DISPATCH1	;Do the call
		SEP	#$30	;Back to normal monitor mode
		LONGI	OFF

		LDA	#$8D	;
		JSR	C300FF	;Enable BASIC 80 columns

		JSR	SAVESHOLES	;Save slot 0/3 screen holes
		REP	#$30	;Restore the Pascal screen
		LONGI	ON
		LDX	#RSTSCRNFN*256+DSKTN	;'X'=function #*256+tool number
		JSL	>DISPATCH1	;Do the call
		SEP	#$30	;Back to normal monitor mode
		LONGI	OFF
		JSR	RSTRSHOLES	;Restore slot 0/3 screen holes

		BRA	@2	;

@1		EQU	*	;Enable BASIC 40 columns
		JSR	X_NAK2	;Set up 40 columns screen / set I/O hooks

@2		EQU	*
		REP	#$30	;Off to 16 bit land
		LDA	>irq_PC	;Interrupt program counter
		PHA		;
		DEC	A	;Offset program cntr by 2 after saving it
		DEC	A	;
		STA	PCL	;Save for disassembly
		SEP	#$30	;Back to 8 bit land
		PHB		;Save data bank register
		JSR	DBTOE1	;Change data bank register to E1
		LDX	#IRQLEN-1	;# of bytes to move -1
@3		EQU	*
		LDA	|irq_A,X	;Interrupt data
		STA	|AVAL,X	;Register data buffer
		DEX		;
		BPL	@3	;Loop til done
		STX	|ORGMEMORY	;<>0 so BRK/COP mem conf used in monitor
		LDA	|irq_state	;Move state register
		STA	|MVAL	; to print register buffer.
		AND	#$04	;Get language card bank for LVAL
		LSR	A	;Shift bit 2 to bit 0
		LSR	A	;
		STA	|LVAL	;Save in print buffer
		LDA	|irq_shadow+1	;Get interrupt CYAREG
		AND	#$80	;Speed bit is high bit
		PHA		;
		LDA	|irq_shadow	;
		ORA	1,S	;Combine with speed bit for QVAL
		STA	|QVAL	;Save for later
		PLA		;Clean up stack
		LDA	|irq_K	;Get program bank
		STA	|KVAL	;Save in print buffer
		STA	|BANKS	; and make disassembly bank.
		LDA	|PVAL	;Fix 'm'/'x' print registers
		AND	#$30	;
		LSR	A	;Shift 'x' into 'c' and 'm' into bit 0
		JSR	SCRN4	;Shifts right 4 times
		STA	|MPVAL	;Save new 'm' value
		LDA	#$00	;
		ROL	A	;
		STA	|XPVAL	;
		LDA	|irq_e	;Move 'e' bit to print buffer
		AND	#$01	;'e' is low bit
		STA	|EPVAL	;
		ROR	A	;e to c
		REP	#$30
		LDA	|SVAL	;Get real brk irq_stack pointer
		INC	A	;Adjust back to usr stack pointer
		INC	A
		INC	A
		BCS	@0	;BRA if emulation mode
		INC	A	; else adjust one more
@0		EQU	*
		STA	|SVAL	;Store back usr's sp before brk
		SEP	#$30

* When a 'brk' is hit, the screen i/o switch is saved but not the 
* screen image itself.  Cntl_T is now re-defined as flipping the
* textpage1 and the screen display when brk occurred, it is toggled
* by the 'Flipscrn' flag.
* 'Scrnstat' is used to save the screen i/o switches states:
* bit7 = super hi res
* bit6 = text not graphic
* bit5 = mixed mode
* bit4 = hi res
* bit3 = textpage2/textpage1
* bit2 = x
* bit1 = x               
* bit0 = x               
*
* The 'brk' screen states are resumed if the 'Resume' command, 'r'
* is executed to continue the program

		STZ	|FLIPSCRN	;Set toggle bit to 0, cntl_t
		STZ	|SCRNSTAT	;Set to zero first
		LDA	#$00	;Assume zero first
		LDX	|RDPAGE2	;Get text page bit
		BPL	@6	;bra for text page 1
		ORA	#$08	;else set the bit for text page 2
@6		LDX	|RDHIRES	;Get hires/lores bit
		BPL	@7	;bra for lores
		ORA	#$10	;set hires bit   
@7		LDX	|RDMIX	;Get mixed mode bit
		BPL	@8	;bra if not mixed mode
		ORA	#$20	;else set mixed mode on
@8		LDX	|RDTEXT	;Get text/graphic bit
		BPL	@9	;bra for graphic mode
		ORA	#$40	;else set text mode
@9		LDX	|NEWVIDEO	;Get super hi-res
		BPL	@11	;bra if off
		ORA	#$80	;else set bit on
@11		EQU	*
		STA	|SCRNSTAT	;Store the results here

		JSR	SETPAG1	;Force to text page 1

		PLB		;Get back data bank
		JSR	DISASEM
		LDA	#$00	;Reset MEMORYMSK for regular disassemblies
		STA	>ORGMEMORY	;=0 so monitor use special mem config
		PLA		;Restore PCL/PCH
		STA	PCL	;
		PLA		;
		STA	PCH	;Fall to register display routine


REGDSP2		EQU	*
		JSR	CROUTFF	;Next line please
		LDX	#$00	;Start with 1st variable
@3		EQU	*
		PHX		;MUST save 'X' index
		JSR	PR1BLNKFF	;Print one space
		LDA	>NEWCMDSTBL,X	;Get variable name
		JSR	COUTFF	;Show user
		LDA	#'='	;Show required '=' sign
		JSR	COUTFF	;
		PLX		;Recall index
		PHX		;MUST save 'X' index
		CPX	#$0A	;1 nybble to show?
		BCS	@7	;'c' = 1 then yes
		CPX	#$05	;2 byte/1byte to show
		BCS	@5	;
		TXA		;Real index = actual index * 2
		ASL	A	;
		TAX		;
		LDA	>AVAL+1,X	;Hi byte to show
		JSR	PRBYTEFF	;Show to user
		LDA	>AVAL,X	;Byte to show
		BRA	@5_2	;
@5		EQU	*
		LDA	>AVAL+5,X	;Byte to show
@5_2		EQU	*
		JSR	PRBYTEFF	;Show to user
@6		EQU	*
		PLX		;Increment and test for done
		INX		;
		CPX	#$0E	;If incremented to $0E then done
		BCC	@3	;
		RTS		;Back to caller if here

@7		EQU	*
		LDA	>AVAL+5,X	;Get byte/nybble to show
		JSR	PRHEXFF	;Print 1 digit
		BRA	@6	;Exit to main loop
		EJECT
* SYSDEATH is called by the miscellaneous tool
* locator in native mode with 16 bit 'm'/'x'
* and the following information on the stack.
*
*    9,S  -  Error hi byte
*    8,S  -        lo byte
*    7,S  -  Null byte of message address
*    6,S  -  Bank byte of message address
*    5,S  -  Hi byte of message address
*    4,S  -  Lo byte of message address
*    3,2,1,S -  Unused return address
*
*    'c' = 0 = Use user defined message
*        = 1 = Use default message
*
*    User defined system death message is in
*    is defined as follows.
*
*    1st byte = length of message
*    2nd...xth byte = hi bit off ASCII message
*
*    After the messages (either one) is displayed
*    the system death error number is printed and
*    the moving apple is displayed on the screen.

	; SEG $FF
SYSDEATH		EQU	*
	; SEG $00
		SEI		;No interrupts please
		LONGA	ON
		LDA	#$0000	;Set direct register
		STA	>BUSYFLAG	;Clear out system busy flag
		LONGA	OFF
		TCD		;
		PHA		;Change DBR to 00
		PLB		;
		PLB		;
		LDA	4,S	;Move message address to zero page
		STA	$FB	;Hard code
		LDA	6,S	;
		STA	$FD	;
		LDA	8,S	;Get error code in 16 bit 'A'
		LONGI	ON
		LDX	#$17F	;Force stack
		LONGI	OFF
		TXS		;Switch stack to safe place
		PHA		;Save 16 byte error number on stack
		SEP	#$30	;Go to 8 bit land
		PHP		;Save 'c' status for correct message
		LDA	#$80	;Set system speed mask
		STA	>SYSTEMSPD	;
		STA	SETINTCXROM	;Enable internal CXROM
		LDA	#$08	;Enable ROM
		TSB	STATEREG	;
;JSR GOTXT1 ;Go to text page 1
		JSR	SETPAG1
		JSR	X_NAK2	;Set up 40 columns screen / set I/O hooks
		JSR	HOMEFF	;Clear the 40 column screen
		PLP		;Recall 'c' status
		BCS	NODISK3	;'c'=1 then use monitor's sys death msg
		LDA	[$FB]	;Set ending index
		INC	A	;Add 1 for correct testing
		STA	$FF	;
		LDY	#$01	;Start with first character to show
@1		EQU	*
		LDA	[$FB],Y	;Get a byte
		ORA	#$80	;Set hi byte before printing
		PHY		;Save pointer
		JSR	COUTFF	;Print the byte
		PLY		;Recall the pointer
		INY		;Inc to next byte
		CPY	$FF	;Test if done
		BCC	@1	;Loop til done

		CLI		;Re-enable ints so dsk acc are available

		BCS	NODISK7	;Fall into regular loop


NODISK2		EQU	*
		CLC		;'c'=0 if 'Check startup device!' error
NODISK3		EQU	*
		PHP		;Save 'c' status
		JSR	SETVIDKBDFF	;Set 40 column video and keyboard
		JSR	HOMEFF	;Clear the screen
		LDX	#$00	;
		LDY	#$05	;Vertical tab
		JSR	SETVTAB	;Move to position
		PLP		;Recall 'c' status
		PHP		; and resave it for later
		BCS	@4	;'c'=1 if system death
		LDA	#CHKDEVMSG	;'Check startup device!' message
		BRA	@6	;
@4		EQU	*
		LDA	#SYSDMSG	;'Fatal system error -> ' message
@6		EQU	*
		JSR	PRINTMSG	;
		PLP		;Recall 'c' status
		BCC	NODISK9	;'c'=0 then no more to print
NODISK7		EQU	*
		PLX		;Low byte of error number to 'X'
		PLY		;High byte of error number to 'Y'
		JSR	PRNTYXFF	;
NODISK9		EQU	*
		STA	SETALTCHAR	;Enable alternate character set
		JSR	NEWBELL1	;Ring them chimes

		LDA	#$6	;Do message on this line
		STA	WNDTOP	;

		LDY	#$00	;Starting offset
@22		EQU	*
		BEQ	@23	;
		LDA	#$DF	;Alternate character
		STA	$5A9-1,Y	;
@23		EQU	*
		LDA	#$41	;Open Apple character
		STA	$5A9,Y	;Put up new Apple
		JSR	@33	;
		INY		;
		CPY	#$26	;26 last index to use
		BCC	@22	;
		DEY		;
@24		EQU	*
		LDA	#$4C	;Alternate character
		STA	$5A9,Y	;
		LDA	#$40	;Closed Apple character
		STA	$5A9-1,Y	;Put up new Apple
		JSR	@33	;
		DEY		;
		BNE	@24	;
		BRA	@22	;


@33		EQU	*
		LDA	KBD	;If ctrl pressed do test
		STA	KBDSTRB	;
		CMP	#$8E	;Control-'N'
		BNE	@34	;
		LDA	BUTN1	;If closed apple down test open apple
		BPL	@34	;
		LDA	BUTN0	;If open apple down too
		BPL	@34	;
		JSR	@40	;Do tests
@34		EQU	*
		LDA	RDVBLBAR	;Wait if in VBL
		BPL	@34	;
@32		EQU	*
		LDA	RDVBLBAR	;Wait if not in VBL
		BMI	@32	;
		RTS		;


@40		EQU	*	;Do tests
		PHY		;MUST preserve pointer around call
		JSR	HOMEFF	;Clear the specific screen first
		LDA	#6	;Position for messages
		STA	CV	;
		STZ	CH	;
		JSR	VTABFF	;
		JSL	>$FE0018	;{MSA 4/20/89} A touch of audio makes it
		LDA	#N1	;Pointer number
		JSR	@60	;Make a delay
		LDA	#15	;Position the message
		STA	CV	;
		LDA	#2
		STA	CH	;
		JSR	VTABFF	;
		LDA	#N2	;Pointer number
		JSR	@60	;Print / delay /clear
		PLY		;Restore y
		RTS		;

@60		EQU	*
		JSL	>TOPRINTMSG8	;Print message
		LDA	#$80	;Slow wait
		TRB	CYAREG	;
		LDX	#$10	;Wait and then clear screen
@50		EQU	*
		LDA	#$FF	;Wait and then clear screen
		JSR	WAIT	;
		DEX		;Loop til done
		BNE	@50	;
		LDA	#$80	;Speed back up
		TSB	CYAREG	;
		JSR	HOMEFF	;Clear screen and continue
		RTS		;Back to caller


* ADDSUB add (if 'c'=0) or subtracts (if 'c'=1)
*        up to 32 bit numbers the user entered.

		LONGA	ON
DOADD		EQU	*
		CLC		;'c'=0 to add
ADDSUB		EQU	*
		REP	#$30	;16 bit land required
		LDA	>EXTENDBNK	;Get high word of user's second number
		BCC	@2	;'c'=0 then do not change
		EOR	#$FFFF	;Make 2's complement for subtract
@2		EQU	*
		PHA		;Save on stack for later
		LDA	A2L	;Recall low word of 1st number entered
		BCC	@4	;'c'=0 then do not change
		EOR	#$FFFF	;Make 2's complement for subtract
@4		EQU	*
		ADC	A1L	;Add low word of 2nd number entered
		STA	A2L	;Save in case someone looks here
		LDA	>EXTENDBNKS	;Recall 1st number's high word
		ADC	1,S	; and add 2nd numbers high word
		STA	1,S	;Save result on stack

		SEP	#$30	;Back to monitor mode
		LONGA	OFF
		JSR	PRINTDASHDOL	;Print '-> $'
		PLX		;Recall low byte of high word to print
		PLA		;Recall high byte of high word to print
		JSR	PRNTAXFF	;Print word
		LDA	A2H	;Recall high byte of low word to print
		LDX	A2L	;Recall low byte of low word to print
		JSR	PRNTAXFF	;Print word and exit
ADDSUB9		EQU	*
		JMP	LIST3	;Carriage return followed by space

PRINTDASHDOL	EQU	*
		LDA	#ARWDASHDOL	;Print '-> $'
		JMP	PRINTMSG	;


MATH		EQU	*
		CMP	#'-'	;Test for subtraction
		BEQ	ADDSUB	;'c'=1 to subtract
		CMP	#'+'	;Test for addition
		BEQ	DOADD	;
		CMP	#'*'	;Test for multiplication
		BEQ	@1	;'c'=1 for multiplication
		CLC		;'c'=0 for division


* @1 multiplies or divides 32 bit numbers
*         depending on the setting of 'c'
*               'c'=0 if division
*               'c'=1 if multiplication

@1		EQU	*
		PHP		;Preserve entry 'c' status
		LDX	#$04	;Push 8 bytes of room on stack
		JSR	PUSH	; and switch to 16 bit mode.
		LDA	>EXTENDBNKS	;Push hi word of 1st number on stack
		PHA		;
		LDA	A1L	;Push lo word of 1st number on stack
		PHA		;
		LDA	>EXTENDBNK	;Push hi word of 2nd number on stack
		PHA		;
		LDA	A2L	;Push lo word of 2nd number on stack
		PHA		;
		LONGI	ON
		LDX	#LONGMUL*256+IMTN	;Function number*256+tool number
		BCS	@12	;'c'=1 then doing multiplication
		LDX	#LONGDIV*256+IMTN	;Function number*256+tool number
		LONGI	OFF
@12		EQU	*
		JSL	>DISPATCH1	;Off to tool locator

		SEP	#$30	;Back to 16 bit world
		LDX	#$00	;Recall 8 bytes from stack
@13		EQU	*
		PLA		;Recall result from call
		STA	A1L,X	;And save in zero page
		INX		;
		CPX	#$08	;Stop when 'X'=8
		BNE	@13	;Loop til done

		PLP		;Recall entry 'c' status
		PHP		; and resave it.
		BCS	@14	;Skip 'R'
		LDA	#'R'	;'R' for remainder
		JSR	COUTFF	;
@14		EQU	*
		JSR	PRINTDASHDOL	;Print '-> $' ASCII

		LDX	#$07	;Print 8 bytes
@18		EQU	*
		LDA	A1L,X	;
		PHX		;Preserve 'X'
		JSR	PRBYTEFF	;Print byte
		CPX	#$04	;Print a 'Q-> $' after 4 bytes
		BNE	@16	;
		LDA	2,S	;Recall multiplication/division indicator
		ROR	A	;Shift saved carry bit into 'c'
		BCS	@16	;Multiplication then continue normally
		JSR	PRBLNKFF	;Print '   '
		LDA	#'Q'	;Print quotient indicator
		JSR	COUTFF	;
		JSR	PRINTDASHDOL	;Print '-> $' ASCII
@16		EQU	*
		PLX		;Recall 'X'
		DEX		;
		BPL	@18	;Loop til done
		PLP		;Clean up stack
		BRA	ADDSUB9	;Carriage return followed by space to end
		RTS


PUSH6		EQU	*	;Push room for 6 bytes on stack
		LDX	#$03	;Push 6 bytes on stack
PUSH		EQU	*	;Push room for 'X'*2 bytes on stack
		REP	#$30	;16 bit land a must
		PLA		;Recall return address from stack
@1		EQU	*
		PEA	$0000	;Push 2 bytes of space on stack
		DEX		;
		BNE	@1	;
		PHA		;Put RTS address back on stack
		RTS		;Back to caller in 16 bit mode
		EJECT
*
* This code is called by the tool locator via
* vector $E1007C.  It will search for an expansion
* rom in bank $F8-$FF according to the following
* protocol.
*
* The bank $F8 expansion rom must have the following
* information located at the base of the rom.
*
* $F80000-F80007 ... An ASCII string 'ROMTOOLS'
* $F80008-F80009 ... Version Number
* $F8000A-F8001F ... Pad Area
* $F80020 .......... Entry Point
*
* The entry point is called in 16 bit native mode.
* (e=0, m=0, x=0) The entry point will execute
* code to install any rom based extensions to the
* tool set and return with an 'RTL' instruction
* with the carry flag cleared.  If the rom is found,
* the version number will be returned in the 16 bit
* C register after the 'RTL' is executed.
*
* Note that the string at $F80000 must have the
* msb set to a '1'.
*
		MSB	on
		LONGI	ON
		LONGA	ON

	; SEG $ff
ROMTOOL		EQU	*
	; SEG $00

		LDX	#$0006	; point at end of string
@1		EQU	*
		LDA	>ExRomStr,x	; get expansion rom data
		CMP	>string,x	; and check against string
		BNE	@2	; no rom if miscompare
		DEX
		DEX
		BPL	@1
		JSL	>ExRomEntry	; off to the expansion rom
		LDA	>ExRomVer	; return version in 'c' register
		RTL

@2		EQU	*
		SEC		; error if no rom
		RTL

	; SEG $FF
STRING		EQU	*
	; SEG $00
		DC.B	'ROMTOOLS'


		LONGI	OFF
		LONGA	OFF




		TITLE	'Misc Monitor Bank FF Rtne2'

******************************************************
*                                                    *
*        Miscellaneous Monitor Bank FF Routine2      *
*                                                    *
*                    by                              *
*               Fern Bachman     1985-1987           *
*               Joe Bo           1987-1989           *
*                                                    *
*       Copyright Apple Computer, Inc. 1985-1989     *
*                All Rights Reserved.                *
*                                                    *
******************************************************


* RESUMEFF does and equivalent JMP absolute long
*          to the user specified routine with the
*          environment set up according to the
*          register/memory data stored in bank E1.
*
* X816FF  does an equivalent JSL to the subroutine
*         indicated by the user.  Using a JSL equivalent
*         means the subroutine can be in any bank.
*         X816FF assumes the user's routine ends in an
*         RTL which is used to return to the monitor.
*
* GO816FF does an equivalent JSR to the subroutine
*         indicated by the user.  Using a JSR equivalent
*         means that it can be used in the current
*         monitor bank only (normally bank 00). This
*         command assumes the user's routine ends in
*         an RTS which is used to return to the monitor.
*
*  Note: X816FF/GO816FF will automatically switch to native
*        mode if 'e'=0 execute the program and return
*        back to emulation mode and the monitor if
*        the native mode routine executes an RTS/RTL as
*        its last instruction.
*
* RTL/RTS information on stack for the 'X'/'G' command.
*       _____________
*      |             |
*      | Monitor Bnk |  <----- Only put on stack if 'X' command!!!!!!
*      |_____________|
*      |             |
*      |   <GORTL    |  <----- High byte of return address
*      |_____________|
*      |             |
*      |   >GORTL    |  <----- Low byte of return address
*      |_____________|
*
*
* RTI information on stack for either command ('X'/'G').
*       _____________
*      |             |
*      | Program Bnk |  <----- Only put on stack if native mode 'X'/'G'
*      |_____________|
*      |             |
*      |     PCH     |
*      |_____________|
*      |             |
*      |     PCL     |
*      |_____________|
*      |             |
*      |  'P' status |
*      |_____________|


RESUMEFF		EQU	*	;Also entry point from step/trace 'G'
		PHX		;Preserve 'x', needed in FIXE1PCLH
		JSR	BRKSCRN	;Restore the scrn when 'brk' occurred
		PLX		;Restore x
		JSR	FIXE1PCLH
		BRA	GO816_4	;Continue in 'G'o code

X816FF		EQU	*
		CLC		;'c'=0 if entered here
		LDA	>BANKS	;If <>0 and emulation beep and quit now
		BEQ	GO816FF1_0	;In bank 00 then ok
		LDA	>EPVAL	;If <> bank 00 + emulation mode then beep
		BEQ	GO816FF1_0	;
		JMP	NEWBELL1	;Beep and exit via bell routine

GO816FF		EQU	*
		SEC		;'c'=1 if entered here
		LDA	>BANKS	;If <>0 then 'G'o not allowed
		BEQ	GO816FF1_0	;In bank 00 then ok
		JMP	NEWBELL1	;Beep and exit via bell routine

GO816FF1_0	EQU	*
		PHB		;Save original data bank register on stack
		LDA	STATEREG	;Save state register
		PHA		;
		JSR	FIXE1PCLH	;Move PCL/PCH to bank E1 in case alt zp
		LDX	SHADOW	;Save SHADOW/CYAREG register
		PHX		;
		TSX		;Save stack pointer
		STX	|GOS	;Save for later restoring
		PHP		;Save 'c'/'v' status, v from FIXE1PCLH
		LONGA	ON
		CMP	#$0200	;Not in regular stk area then leave alone
		LONGA	OFF
		BCS	GO816_0_4	;'c'=1 then stack is not in regular stack
		CMP	|GOS	;User stk ptr must be less than monitor's
		BVS	GO816_0_4	;Using alternate stack then skip it
		BCC	GO816_0_4	;< monitor's then all's OK for now
		LDA	|GOS	;Make user stack pointer = monitor's
GO816_0_4		EQU	*
		PLP		;Restore 'c'/'v' status
		PHA		;Save 16 bit stack pointer
		LDA	6,S	;Get monitor data bank register
		TAX		;And save for RTL later
		PLA		;Recall 16 bit stack pointer
		SEP	#$30	;Back to 8 bit land
		BVC	GO816_1_2	;'v'= 0 if not alternate stack pointer
		STA	SETALTZP	;Now in alternate stack
GO816_1_2		EQU	*
		TCS		;Now in user stack space
		BCS	GO816_2	;'c'=1 for RTS to stack
		PHK		;Save return info on stack
		PEA	GO816_EXT-1	;
		BCC	GO816_3	;'c'=0 then RTL directly back to monitor

GO816_2		EQU	*
		PHK		;Bank to return to
		PEA	GO816_EXT	;Return address
		LDX	#$5C	;JMP absolute long opcode
		PHX		;Save on stack
		PEA	$FB18	;XCE CLC to stack space
		REP	#$20	;Do in 16 bit mode
		TSC		;Where will the stack routine be?
		PHA		;Save RTS information on stack
GO816_3		EQU	*
		JSR	COMBINEMX	;{MSA & JOA 3/31/89} Put user's MX into PVAL
		TSC		;Alter user stk ptr for our RTS/RTL stuff
GO816_4		EQU	*	;Resume continuation entry point
		SEP	#$30	;8 bit land in here
		BVC	GO816_5	;'v'=0 then main stack is one to use
		STA	SETALTZP	;Now in alternate stack
GO816_5		EQU	*
		TCS		;Set proper stack pointer

		LDA	|GOS	;Fix stack pointer in case using alt stk
		STA	>MNEMSTKPTR	;Put in main stk pointer save address
		LDY	|EPVAL	;Native or emulation mode ?
		BNE	GO816_6	;'Y' = 1 if emulation mode of execution
		LDA	|BANKS	;Native mode, push in program bank
		PHA
GO816_6		EQU	*
		REP	#$20	;16 bit m
		LDA	|E1PCLH	;Get user's program counter
		PHA		;Create user's pc for 'RTI'
		SEP	#$30	;
*
* The commented code is reworked so that the check of mode is done before RESTOREFF,
*  and to fix the interrupt window anomaly. {MSA/FAB 4/12/89}
*
		LDA	>EPVAL	;Check for emul/native return
		BNE	GO816_M	;It's emulation: must rti from bank $00
		JMP	MFRTI	;Finish up and vector
*
GO816_M		EQU	*
		LDA	>PVAL	;Set to pull the user's psreg
		PHA
		JSR	RESTOREFF	;Restore regs and set to proper mode also
;PHP  ;Push in as dummy for 'RTI'
;LDA =EPVAL ;Chk for emul/native mode
;BNE GO816.7 ;BRA if in emulation mode
;RTI  ;Go to user's routine in native mode
GO816_7		EQU	*
		JMP	>RTI~Bnk00	;Force prog bk=00 and rti to usr's routine


GO816_EXT		EQU	*	;Restore normal monitor context
		CLD		;NO NO NO decimal mode in here
		CLC		;Just in case switch to native mode
		XCE		;
		SEP	#$30	;Always enters in native mode
		STA	SETSTDZP	;Arbitrarily force main stack 
		REP	#$30	;Off to 16 bit land
		JSR	DBTOE1	;Force data bank register for softswitches
		LDA	|GOS	;Recall stack pointer
		TCS		;Change to original stack pointer
		PLA		;Recall SHADOW/CYAREG
		STA	SHADOW	;
		SEP	#$30	;Back to 8 bit land to continue

* Need to update textp2 shadowing at $c035,  since user can get into 
* monitor and call the entry point at $f962.                 
* The $f962 is a toggling routine for bit5 of $c035 and therefore
* need to update that bit for users' preference.

		JSR	SETTEXT2REG	;User can execute $f962 with 'G' or 'X'
		PEA	$0000	;Reset direct register
		PLD		;
		PLA		;Recall STATEREG
		JSR	MEMEXIT1	;Restore memory state and fix page 1/2
		PLB		;Recall data bank register
		RTS		;Back to original monitor command line


FIXE1PCLH		EQU	*	;Move PCL/PCH to bank E1 in case alt zp
		SEI		;Kill interrupts
		JSR	A1PC	;Set up monitor PCL/PCH
		JSR	DBTOE1	;Change data bank register to E1
		SEP	#$40	;Anticipate alternate stack pointer
		LDA	|MVAL	;See if alternate stack or not
		BMI	FIXE1PCLH2	;- then alternate stack in use (let 'v'=1)
		CLV		; else clear 'v' as indicator.
FIXE1PCLH2	EQU	*
		REP	#$30	;Off to 16 bit land
		LDA	PCL	;PCL/PCH is stored here
		STA	|E1PCLH	;Save in bank E1 for later
		LDA	|SVAL	;
		RTS		;Back to caller in 16 bit 'm'/'x'

TEXTPAGE1		EQU	*
		LDA	>FLIPSCRN	;Already called before ?
		EOR	#$80	;
		STA	>FLIPSCRN
		BMI	BRKSCRN	;
SETPAG1		EQU	*
		STZ	WNDTOP	;Reset top of window
		LDA	#$80
		TRB	NEWVIDEO	;No super hi res scrn
		LDA	TXTSET	;Enable text
		LDA	MIXCLR	;Clear mixed mode
		LDA	TXTPAGE1	;Enable text page1
		RTS
;JMP GOTXT1 ;


BRKSCRN		EQU	*
		PHB
		JSR	DBTOE1
		LONGA	OFF
		LONGI	OFF
		SEP	#$30
		LDA	|SCRNSTAT	;
		PHA
		AND	#$80
		ORA	|NEWVIDEO
		STA	|NEWVIDEO
		PLA
		ASL	A
		BPL	@4
		STA	|TXTSET
		BRA	@5
@4		STA	|TXTCLR
@5		ASL	A
		BPL	@6
		STA	|MIXSET
		BRA	@7
@6		STA	|MIXCLR
@7		ASL	A
		BPL	@8
		STA	|HIRES
		BRA	@9
@8		STA	|LORES
@9		ASL	A
		BPL	@10
		STA	|TXTPAGE2
		BRA	@11
@10		STA	|TXTPAGE1
@11		PLB
UT9		EQU	*
		RTS

		EJECT
* Utility calls to Tools is done in 2 steps.
* 1. Set up the information for the tool call JSL in
*    the input buffer in this order.
* 2. Do the actual utility call after the user types in
*    the tool information and a 'U'.
*
* Utility call format is as follows ('_' denotes a required space)
* \#bytes to stk_#bytes frm stk_parm1_.._parmz_function#_tool#\U
*
* NOTE: Each byte of each paramter must be separated by a space
*
* '\' starts and '\' terminates tool setup information normally.
* $8D terminates the entire line and reenters the monitor.

UTILITYFF		EQU	*

		IF IS512 <> 0 THEN

		RTS		;Call not permitted in 512 kilobit ROM's
		ELSE

		REP	#$30	;Off to 16 bit land
		LDA	IN+1	;# of bytes to push on stack for call
		STA	>GOS	; and # of bytes to print after call.
		SEP	#$30	;8 bit land now
		TAY		;# of bytes for stack-2
		INY		;Inc by 2 for function # and tool #
		INY		;
		LDX	#$00	;Read input buffer index
UT2		EQU	*
		LDA	IN+3,X	;Get byte for stack
		PHA		; and place it there.
		INX		;Next character position in input buffer
		DEY		;
		BNE	UT2	;Loop til done
		REP	#$30	;Must be 16 bit land to call tools
		PLX		;'X' has tool# in hi byte func# in lo byte
		JSL	>DISPATCH1	;Call tool
		PHA		;Save result status for later
		PHA		;Save error code on stack
		SEP	#$30	;Back to 8 bit land
		JSR	CROUTFF	;Next line please
		LDA	#TLERRMSG	;'Tool error= ' message
		JSR	PRINTMSG	;
		PLX		;Recall lo byte of error code to print
		PLY		;Recall hi byte of error code to print
		JSR	PRNTYXFF	;Print 'Y' 1st then 'X'
		JSR	CROUTFF	;Next line please
		REP	#$30	;16 bit land to do testing
		PLA		;Recall result status lo byte
		BEQ	UT4	;=0 then no error clean up
		LONGA	ON
		CMP	#$0010	;0<Error<10 then dispatcher error
		LONGA	OFF
		BCS	UT4	;= of >$10 then do not clean up
		LDA	>GOS	;Pull old data from stack and display
		BRA	UT5	;

UT4		EQU	*
		LDA	>GOS+1	;Pull resultant data from stack/display
UT5		EQU	*
		SEP	#$30	;8 bit land for regular monitor stuff
		TAY		;Lo byte is # of bytes pushed earlier
UT6		EQU	*
		BEQ	UT9	;=0 then no parameters on stack
		DEY		;Decrement counter
		PLA		;Recall byte to print
		PHY		;Save counter
		JSR	PRBYTEFF	;Show user byte
		JSR	PR1BLNKFF	;Space between data
		PLY		;Recall index
		BRA	UT6	;Loop til done

		ENDIF
		EJECT
* TCMD has two functions.
*    1.  Read and display time
*    2.  Set time
*
* Format to read and display time is
*
*     '=T'
*
*  Where 'T' must be upper case.
*
* Display format is
* 
* 'Time-> nn/dd/yy hh:mm:ss am/pm'
*
* Format to set time is
*
*    '=T=nn dd yy hh mm ss
*
*  Where 'T' must be upper case.
*  Any valid delimiter except ' and carriage return
*    may be used in place of the spaces between
*    variables as shown above.
*  Value-->>    User Enters   To Routine
*  nn = month     (1-12)        (0-11)
*  dd = day       (1-31)        (0-30)
*  yy = year      (0-99)        (0-99)
*  hh = hours     (0-23)        (0-23)
*  mm = minutes   (0-59)        (0-59)
*  ss = seconds   (0-59)        (0-59)
*
* The line must be terminated with a carriage return.
* If the line is terminated without entering all
*  the variables, the missing variables will not be
*  changed.
* The user entered values are converted then placed
* on the stack and the Miscellaneous Tools is
* called to set the clock chip time.  The calls to
* write and read the clock chip via the Miscellaneous
* Tools.
*
* ReadAsciiTime -- Function number RATFN
*      Input stack:  SP+4 = Null
*                    SP+3 = ASCII buffer bank number
*                    SP+2 = ASCII buffer hi byte of address
*                    SP+1 = ASCII buffer lo byte of address
*                          
*      PEA $0000+^ASCIITIME ;Null byte + bank number
*      PEA ASCIITIME ;Address of buffer
*      INDEX16
*      LDX #RATFN*256+MTN  ;Function number*256 + Misc Tool number
*      INDEX8
*      JSL =DISPATCH1  ;Call main Tool Locator
*
*      Return data is in buffer ASCIITIME
*
* ReadTimeHex -- Function number RTHFN
*     Input stack:   SP+8 = Push room for day of week 0=Sunday
*                    SP+7 = Push room for null byte
*                    SP+6 = Push room for month
*                    SP+5 = Push room for day
*                    SP+4 = Push room for year
*                    SP+3 = Push room for hour
*                    SP+2 = Push room for minute
*                    SP+1 = Push room for second
*
*      Push room for day of week on stack 0=Sunday
*      Push room for null byte on stack
*      Push room for month on stack
*      Push room for day on stack
*      Push room for year on stack
*      Push room for hour on stack
*      Push room for minute on stack
*      Push room for second on stack
*      INDEX16
*      LDX #RTHFN*256+MTN  ;Function number*256 + Misc Tool number
*      INDEX8
*      JSL =DISPATCH1  ;Call main Tool Locator
*
*      Pull second from stack
*      Pull minute from stack
*      Pull hour from stack
*      Pull year from stack
*      Pull day from stack
*      Pull month from stack
*      Pull null byte from stack
*      Pull day of week from stack 0=Sunday
*
* WriteTimeHex -- Function number WTHFN
*      Input stack:  SP+6 = Month
*                    SP+5 = Day
*                    SP+4 = Year
*                    SP+3 = Hour
*                    SP+2 = Minute
*                    SP+1 = Second
*
*      Push month on stack
*      Push day on stack
*      Push year on stack
*      Push hours on stack
*      Push minutes on stack
*      Push seconds on stack
*      INDEX16
*      LDX #WTHFN*256+MTN  ;Function number*256 + Misc Tool number
*      INDEX8
*      JSL =DISPATCH1  ;Call main Tool Locator
*
*             No values are returned from this call.
*

TCMD		EQU	*	;Display current time command
		JSR	PRINTTIME	;Print original time
		LDY	YSAV	;Pick up where MONZ left off
		LDA	IN,Y	;Test for '=' to see if setting time
		CMP	#'='	;'=' required for setting time
		BNE	UT9	;<>'=' then done so exit with RTS
		INC	YSAV	;Point to next item in input buffer
		STZ	IN	;Counter for number of bytes entered
TCMD2		EQU	*	;Display current time command
		LDY	YSAV	;Pick up where MONZ left off
		JSR	GETNUMFF	;Get next entry
		STY	YSAV	;Save pointer for later
		CMP	#$C6	;Was it a carriage return?
		BEQ	TCMD6	;
		JSR	CDECTOHEX	;Clock decimal to hex time conversion
		BEQ	TCMD2	;'z'=1 then it's a delimiter to be skipped
		PHA		;Save result on stack for tool call
		LDA	IN	;Test # of values entered
		CMP	#$02	;If 0/1 then decrement entered value by 1
		BCS	TCMD5	;
		PLX		;Recall value entered and subtract 1
		DEX		;
		PHX		;Restore value to stack
TCMD5		EQU	*
		CMP	#$02	;If 2 then it's year so modify if needed
		BNE	TCMD5_5	;
		PLA		;Recall saved year
		CMP	#40	;=<40 the add $64
		BCS	@2	;
@1		EQU	*
		CLC		;Add 100 to get to the year 2000+
		ADC	#$64	;
@2		EQU	*
		PHA		;Restore modified year
		LDA	IN	;'A'=# of values entered
TCMD5_5		EQU	*
		CMP	#$06	;If 6 entered then we're done
		BCS	TCMD9	;
		INC	IN	;If not done increment value entry counter
		BRA	TCMD2	; and go for another value.

TCMD6		EQU	*
		JSR	CDECTOHEX	;Clock decimal to hex time conversion
		BEQ	TCMD6_2	;'z'=1 then no values entered
		PHA		; else save last entered value on stack
		INC	IN	; and increment counter.
TCMD6_2		EQU	*
		LDX	IN	;Put entry counter into 'X'
		CPX	#$06	;=6 then all's fine so write it
		BCS	TCMD9	;
TCMD7		EQU	*
		TXA		;Test 'X' for 0 value
		BEQ	TCMD8	;Take error exit
		PLA		;Clean 1 byte off stack
		DEX		;
		BRA	TCMD7	;Loop back always

TCMD8		EQU	*	;Error exit
		JSR	NEWBELL1	;Beep bell and exit
		JMP	MONZ2RTN	;Back via new monitor entry line

TCMD9		EQU	*
		REP	#$30	;All tool calls are 16 bits
		LONGI	ON
		LDX	#WTHFN*256+MTN	;Function number/tool number
		LONGI	OFF

		IF IS512 <> 0 THEN

		PLA		;Clean up stack
		PLA		;
		PLA		;

		ELSE

		JSL	>DISPATCH1	;Go set time with 16 bit 'm'/'x'

		ENDIF

		SEP	#$30	;Back to 8 bit 'm'/'x' for monitor


		JSR	PRINTTIME	;Print changed time for user
		JMP	MONZ2RTN	;Return to monitor command line directly


PRINTTIME		EQU	*
		JSR	CROUTFF	;Next line please
		LDA	#TIMEMSG	;Number of characters in message
		JSR	PRINTMSG	;Print message
		PHP		;Disable interrupts for a while
		SEI		;
		PEA	ASCIITIME>>16	;Null/bank number of buffer
		PEA	|ASCIITIME	;Address of buffer
		REP	#$30	;All tool calls are 16 bits
		LONGI	ON
		LDX	#RATFN*256+MTN	;Function number/tool number
		LONGI	OFF

		IF IS512 <> 0 THEN

		PLA		;Clean up stack
		PLA		;

		ELSE
		JSL	>DISPATCH1	;Go set time with 16 bit 'm'/'x'

		ENDIF

		SEP	#$30	;Back to 8 bit 'm'/'x' for monitor

		LDX	#$00	;20 bytes of time to display
PRTIMELP		EQU	*
		LDA	>ASCIITIME,X	;
		PHX		;Save print index
		JSR	COUTFF	;
		PLX		;Recall index
		INX		;Next character please
		CPX	#$14	;Test for done
		BCC	PRTIMELP	;Loop til 4 bytes printed
		PLP		;Restore interrupt status
		JMP	CROUTFF	;Next line please


CDECTOHEX		EQU	*
		LDA	>DIGITCNT	;=0 if no hex digits entered
		PHP		;Sve 'z' to enable delimiter to be skipped
		LDA	A2L	;Get low byte of hex value entered
		PHA		;Save on stack
		AND	#$0F	;Work with low byte 1st
		STA	A2L	;Save for SUMEM
		PLA		;Recall original entry
		JSR	SCRN4	; and move hi nybble to low nybble.
		TAX		;Then put result in 'X' for SUMEM
		JSR	SUM0A	;Create hex number from decimal number
		LDA	A2L	;Sum is placed here in SUMEM
		PLP		;'z'=1 then skip delimiter
		RTS		;Back to caller

SUM0A		EQU	*	;Sum using $0A as summing value
		LDA	#$0A	;
		STA	A1L	;Save 'A'
SUMEM1		EQU	*
		LDA	A1L	;Recall number to add
		CLC		;Prepare to add
		DEX		;Check to see if done
		BMI	SUMEMDNE	;'-' when done
		ADC	A2L	;Add running total to accumulator
		STA	A2L	; and save in total.
		BRA	SUMEM1	;Loop to add more

SUMEMDNE		EQU	*
		RTS		;Back to caller




		TITLE	'Reverse Dispatcher'

******************************************************
*                                                    *
*  Reverse Dispatch to Routines in //e Monitor Space *
*                                                    *
*               by                                   *
*          Fern Bachman     1985-1987                *
*          Joe Bo           1987-1989                *
*                                                    *
*       Copyright Apple Computer, Inc. 1985-1989     *
*                All Rights Reserved.                *
*                                                    *
******************************************************


UPFF		EQU	*
		PEA	UP-1	;Push address of rtne to execute on stack
		BRA	TOMAINSIDE	;Go to mainside 


* print the address in the form bb/aaaa:

PRADDR		JSR	PRBANKS
		LDX	A1L
		LDY	A1H
XPRADDRFF		EQU	*
		PEA	XPRADDR-1	;Push address of rtne to execute on stack
		BRA	TOMAINSIDE	;Go to mainside 

* print the bank number bb

PRBANKS		EQU	*
		JSR	CROUTFF	;Output a carriage return
		LDA	>BANKS	;Get source bank number
		JSR	PRBYTEFF	;Show user bank number
		LDA	#$AF	;'/'
		BRA	COUTFF	;


GETLNZFF		EQU	*
		PEA	GETLNZ-1	;Push address of rtne to execute on stack
		BRA	TOMAINSIDE	;Go to mainside 


PRHEXFF		EQU	*
		PEA	PRHEX-1	;Push address of rtne to execute on stack
		BRA	TOMAINSIDE	;Go to mainside 


PRNTYXFF		EQU	*
		TYA		;Y to A to print
PRNTAXFF		EQU	*
		JSR	PRBYTEFF	;
		TXA		;X to A to print

PRBYTEFF		EQU	*
		PEA	PRBYTE-1	;Push address of rtne to execute on stack

TOMAINSIDE	EQU	*
		JMP	>MAINSIDEPATCH	;Make it patchable

	; SEG $FF
TOMAINSIDE1	EQU	*
	; SEG $00
		XBA		;Preserve 'A' in 'B'
		TXA		;Preserve 'X' in 'A'
		REP	#$30	;Off to 16 bit land
		PLX		;Recall and save routine address in 'X'
		PHK		;Return bank
		PEA	FFBANKRTS-1	;Return address in bank FF
		PEA	MAINEXIT-1	;Exit point in main monitor ROM
		PHX		;Routine to execute back to stack
		SEP	#$30	;Back to 8 bit land
		TAX		;Restore 'X' from 'A'
		XBA		;Restore 'A' from 'B'
TOMAINSIDE2	EQU	*	;Special entry point
		XBA		;Save 'A' value
		JSR	FIXSPEED	;Make non bank FF speed user speed!
		XBA		;Restore user 'A' value
		PHB		;Data bank register is new program bank
		PEA	MAINSIDE-1	;Main ROM area entry point
		STA	SETSLOTCXROM	;Disable internal CxROM
		RTL		;Go to mainside 


PRBLNKFF		EQU	*
		LDX	#$03	;3 blanks to fall into PRBL2


PRBL2FF		EQU	*
		PEA	PRBL2-1	;Push address of rtne to execute on stack
		BRA	TOMAINSIDE	;Go to mainside 


CROUTFF		EQU	*	;Output a carriage return
		LDA	#$8D	;

COUTFF		EQU	*
		PEA	COUT-1	;Push address of rtne to execute on stack
		BRA	TOMAINSIDE	;Go to mainside 


COUT1FF		EQU	*
		PEA	COUT1-1	;Push address of rtne to execute on stack
		BRA	TOMAINSIDE	;Go to mainside 


MONZ2FF		EQU	*
		PEA	MONZ2-1	;Push address of rtne to execute on stack
		BRA	TOMAINSIDE2	;Go to mainside 


SETVTAB		EQU	*
		STX	CH	;Set cursor horizontal position
		STY	CV	;Set cursor vertical position

VTABFF		EQU	*
		PEA	VTAB-1	;Push address of rtne to execute on stack
		BRA	TOMAINSIDE	;Go to main side


C300FF		EQU	*
		PEA	C300-1	;Push address of rtne to execute on stack
		BRA	TOMAINSIDE	;Go to main side


HOMEFF		EQU	*
		PEA	HOME-1	;Push address of rtne to execute on stack
		BRA	TOMAINSIDE	;Go to main side


SETVIDKBDFF	EQU	*
		PEA	SETVIDKBD-1	;Push address of rtne to execute on stack
		BRA	TOMAINSIDE	;Go to main side


ENTER80		EQU	*
		LDA	#$98	;Output control-X to cancel line
		JSR	C300FF	;Enable 80 columns
		LDA	#$00	;Reset flag
		STA	>CHGCURFLG	;Reset cursor/80 column change flag
		RTS		;Back to caller with 'A'=0



		TITLE	'Examine Memory Routines'

******************************************************
*                                                    *
*        Examine Any Memory in System Routines       *
*                                                    *
*                    by                              *
*               Fern Bachman     1985-1987           *
*               Joe Bo           1987-1989           *
*                                                    *
*       Copyright Apple Computer, Inc. 1985-1989     *
*                All Rights Reserved.                *
*                                                    *
******************************************************

XMEMORY		EQU	*
		LDA	>BANKS	;CHK FOR CROSS BANK, get start bank first
		CMP	>HIGHBANK	;
		BEQ	@00	;NO CROSS BANK
		BCC	@01	;BRA TO SET UP FOR CROSSING BANK
		STZ	A2L	;Need to fool around for NXTA1
		STZ	A2H	;

@00		EQU	*
		JSR	PRADDR
		LDA	A1H
		STA	A4H
		LDA	A1L
		STA	A4L
@0		JSR	READBYT1
		JSR	PRBYTEFF	;OUTPUT BYTE IN HEX
@02		EQU	*
		JSR	NXTA1
		BCS	@1
		JSR	DSPCOUNT
		AND	A1L
		BEQ	@1
		JSR	PR1BLNKFF
		BRA	@0	;NOT DONE YET. MORE

@01		EQU	*
		LDA	A2H	;Temp store A2 and set to $ffff of that bank
		PHA
		LDA	A2L
		PHA
		LDA	#$FF
		STA	A2H
		STA	A2L
@100		EQU	*
		BRA	@00

@1		LDA	A4H
		STA	A1H
		LDA	A4L
		STA	A1L
		LDA	#$AD	;Print '-'
		JSR	COUTFF	;
@2		EQU	*
		JSR	READBYTE
		ORA	#$80
		CMP	#$A0
		BCC	@3
		CMP	#$FF
		BNE	@4
@3		EQU	*
		LDA	#$AE	;'.'
@4		EQU	*
		TAY		;Preserve 'A'
		LDA	CH	;Test for back up 1 line
		BEQ	@5	;=0 then doing 80 column stuff
		CMP	#39	;Test for last column
		PHP		;Save result status
		TYA		;Recall user byte
		JSR	COUTFF	;
		PLP		;
		BCC	@5_2	;C=0 then not on last column
		JSR	UPFF
		BRA	@5_2	;Skip another output

@5		EQU	*
		TYA		;Recall 'A' value
		JSR	COUTFF

@5_2		EQU	*
;LDA KBD ;Test for stop list
;AND #$7F ;Ignore hi bit
;CMP #$18 ;Control-X to stop list
;BNE @6 ;<>= then continue list
;BIT KBDSTRB ; else clear strobe and quit
		JSR	XRDKBD	;Read keyboard
		BPL	@6	;BRA if no keyhit
		AND	#$7F	;Ignore hi bit
		CMP	#$18	;CHK for Control-X to stop list
		BEQ	@5_25	;BRA if so
		CMP	#$13	;Chk for Ctrl-S to pause
		BNE	@6	;Continue list if niether
@5_23		JSR	XRDKBD	;See if we can continue
		BPL	@5_23	;Keep looping if not
		BRA	@6	;Continue with listing
@5_25		EQU	*
		LDA	>BANKS	;Chk if banks = extendbank
		CMP	>HIGHBANK	;
		BEQ	@5_3	;BRA if already at the same bank
*
		STA	>HIGHBANK	;Force high bank = low bank
		PLA		;Else cross bank exists and low bank
		PLA		; not yet gets to the high bank, cln stk
@5_3		EQU	*
		RTS		;

@6		EQU	*
		JSR	NXTA1
		BCS	@7	;Bra to adjust bank crossing
		JSR	DSPCOUNT
		AND	A1L
		BNE	@2
@8		EQU	*
		BRA	@100

@7		EQU	*
		PHB
		JSR	DBTOE1
		INC	|BANKS
		LDA	|BANKS
		BEQ	@10	;CHK if already passes $ff bank
		CMP	|HIGHBANK	;
		BEQ	@9
		BCS	@10	; 
		PLB
		STZ	A1H	;And set the start address to 0
		STZ	A1L
		LDA	#$FF
		STA	A2H	;And reset end address againg to $ffff
		STA	A2L
		BRA	@8
@9		EQU	*
		PLB
		PLA
		STA	A2L
		PLA
		STA	A2H
		BRA	@8
@10		EQU	*
		DEC	|BANKS	;Stay to its last bank and exit
		LDA	>BANKS
		STA	>HIGHBANK	;Force high bank = src bank
		PLB
		RTS

PCYTOA3		EQU	*
		REP	#$20
		CLC
		TYA
		ADC	PCL
		STA	A3L
		SEP	#$20
		LDX	#A3L
		RTS






		TITLE	'6502 Opcode  Lengths'

******************************************************
*                                                    *
*           6502 Opcode Lengths Table/Routine        *
*                  for Compatibility                 *
*                                                    *
*                         by                         *
*                    Fern Bachman                    *
*                    Joe  Bo                         *
*                                                    *
*       Copyright Apple Computer, Inc. 1985-1989     *
*                All Rights Reserved.                *
*                                                    *
******************************************************


GET6502LEN	EQU	*	;Get length of 6502 opcodes
		PHA		;Save opcode
		AND	#$03	;Create shift counter
		TAY		;Save shift counter in 'Y'
		PLA		;Recall opcode
		LSR	A	;Divide by 4
		LSR	A	;
		TAX		;Index into LEN6502OP table created now
		LDA	>LEN6502OP,X	;Pick up 4 opcode lengths
@1		EQU	*
		DEY		;Decrement shift counter
		BMI	@2	;Done when shift counter is '-'
		LSR	A	;Do a shift
		LSR	A	;Shift 2 bits at a time
		BRA	@1	;Always loop

@2		EQU	*
		AND	#$03	;Only low 2 bits are valid
		STA	LENGTH	;Save for application
		RTS		;


***************************************************
*                                                 *
*         6502 Opcodes Instruction Lengths-1      *
*                                                 *
***************************************************

	; SEG $FF
LEN6502OP		EQU	*	;Length-1 of 6502 opcodes table
	; SEG $00

* illegal {03} - illegal {02} - ORA (d,X) {01} - BRK i {00}
		DC.B	%00000100

* illegal {07} - ASL d {06} - ORA d {05} - illegal {04}
		DC.B	%00010100

* illegal {0B} - ASL  {0A} - ORA # {09} - PHP s {08}
		DC.B	%00000100

* illegal {0F} - ASL a {0E} - ORA a {0D} - illegal {0C}
		DC.B	%00101000

* illegal {13} - illegal {12} - ORA (d),Y {11} - BPL r {10}
		DC.B	%00000101

* illegal {17} - ASL d,X {16} - ORA d,X {15} - illegal {14}
		DC.B	%00010100

* illegal {1B} - illegal {1A} - ORA a,Y {19} - CLC i {18}
		DC.B	%00001000

* illegal {1F} - ASL a,X {1E} - ORA a,X {1D} - illegal {1C}
		DC.B	%00101000

* illegal {23} - illegal {22} - AND (d,X) {21} - JSR a {20}
		DC.B	%00000110

* illegal {27} - ROL d {26} - AND d {25} - BIT d {24}
		DC.B	%00010101

* illegal {2B} - ROL Acc {2A} - AND # {29} - PLP s {28}
		DC.B	%00000100

* illegal {2F} - ROL a {2E} - AND a {2D} - BIT a {2C}
		DC.B	%00101010

* illegal {33} - illegal {32} - AND (d),Y {31} - BMI r {30}
		DC.B	%00000101

* illegal {37} - ROL d,X {36} - AND d,X {35} - illegal {34}
		DC.B	%00010100

* illegal {3B} - illegal {3A} - AND a,Y {39} - SEC i {38}
		DC.B	%00001000

* illegal {3F} - ROL a,X {3E} - AND a,X {3D} - illegal {3C}
		DC.B	%00101000

* illegal {43} - illegal {42} - EOR (d,X) {41} - RTI s {40}
		DC.B	%00000100

* illegal {47} - LSR d {46} - EOR d {45} - illegal {44}
		DC.B	%00010100

* illegal {4B} - LSR Acc {4A} - EOR # {49} - PHA s {48}
		DC.B	%00000100

* illegal {07} - LSR a {4E} - EOR a {4D} - JMP a {4C}
		DC.B	%00101010

* illegal {53} - illegal {52} - EOR (d),Y {51} - BVC r {50}
		DC.B	%00000101

* illegal {57} - LSR d,X {56} - EOR d,X {55} - illegal {54}
		DC.B	%00010100

* illegal {5B} - illegal {5A} - EOR a,Y {59} - CLI i {58}
		DC.B	%00001000

* illegal {5F} - LSR a,X {5E} - EOR a,X {5D} - illegal {5C}
		DC.B	%00101000

* illegal {63} - illegal {62} - ADC (d,X) {61} - RTS s {60}
		DC.B	%00000100

* illegal {67} - ROR d {66} - ADC d {65} - illegal {64}
		DC.B	%00010100

* illegal {6B} - ROR Acc {6A} - ADC # {69} - PLA s {68}
		DC.B	%00000100

* illegal {6F} - ROR a {6E} - ADC a {6D} - JMP (a) {6C}
		DC.B	%00101010

* illegal {73} - illegal {72} - ADC (d),Y {71} - BVS r {70}
		DC.B	%00000101

* illegal {77} - ROR d,X {76} - ADC d,X {75} - illegal {74}
		DC.B	%00010100

* illegal {7B} - illegal {7A} - ADC a,Y {79} - SEI i {78}
		DC.B	%00001000

* illegal {7F} - ROR a,X {7E} - ADC a,X {7D} - illegal {7C}
		DC.B	%00101000

* illegal {83} - illegal {82} - STA (d,X) {81} - illegal {80}
		DC.B	%00000100

* illegal {87} - STX d {86} - STA d {85} - STY d {84}
		DC.B	%00010101

* illegal {8B} - TXA i {8A} - illegal {89} - DEY i {88}
		DC.B	%00000000

* illegal {8F} - STX a {8E} - STA a {8D} - STY a {8C}
		DC.B	%00101010

* illegal {93} - illegal {91} - STA (d),Y {91} - BCC r {90}
		DC.B	%00000101

* illegal {97} - STX d,Y {96} - STA d,X {95} - STY d,X {94}
		DC.B	%00010101

* illegal {9B} - TXS i {9A} - STA a,Y {99} - TYA i {98}
		DC.B	%00001000

* illegal {9F} - illegal {9E} - STA a,X {9D} - illegal {9C}
		DC.B	%00001000

* illegal {A3} - LDX # {A2} - LDA (d,X) {A1} - LDY # {A0}
		DC.B	%00010101

* illegal {A7} - LDX d {A6} - LDA d {A5} - LDY d {A4}
		DC.B	%00010101

* illegal {AB} - TAX i {AA} - LDA # {A9} - TAY i {A8}
		DC.B	%00000100

* illegal {AF} - LDX a {AE} - LDA a {AD} - LDY a {AC}
		DC.B	%00101010

* illegal {B3} - illegal {B2} - LDA (d),Y {B1} - BCS r {B0}
		DC.B	%00000101

* illegal {B7} - LDX d,Y {B6} - LDA d,X {B5} - LDY d,X {B4}
		DC.B	%00010101

* illegal {BB} - TSX i {BA} - LDA a,Y {B9} - CLV i {B8}
		DC.B	%00001000

* illegal {BF} - LDX a,Y {BE} - LDA a,X {BD} - LDY a,X {BC}
		DC.B	%00101010

* illegal {C3} - illegal {C2} - CMP (d,X) {C1} - CPY # {C0}
		DC.B	%00000101

* illegal {C7} - DEC d {C6} - CMP d {C5} - CPY d {C4}
		DC.B	%00010101

* illegal {CB} - DEX i {CA} - CMP # {C9} - INY i {C8}
		DC.B	%00000100

* illegal {CF} - DEC a {CE} - CMP a {CD} - CPY a {CC}
		DC.B	%00101010

* illegal {D3} - illegal {D2} - CMP (d),Y {D1} - BNE r {D0}
		DC.B	%00000101

* illegal {D7} - DEC d,X {D6} - CMP d,X {D5} - illegal {D4}
		DC.B	%00010100

* illegal {DB} - illegal {DA} - CMP a,Y {D9} - CLD i {D8}
		DC.B	%00001000

* illegal {DF} - DEC a,X {DE} - CMP a,X {DD} - illegal {DC}
		DC.B	%00101000

* illegal {E3} - illegal {E2} - SBC (d,X) {E1} - CPX # {E0}
		DC.B	%00000101

* illegal {E7} - INC d {E6} - SBC d {E5} - CPX d {E4}
		DC.B	%00010101

* illegal {EB} - NOP i {EA} - SBC # {E9} - INX i {E8}
		DC.B	%00000100

* illegal {EF} - INC a {EE} - SBC a {ED} - CPX a {EC}
		DC.B	%00101010

* illegal {F3} - illegal {F2} - SBC (d),Y {F1} - BEQ r {F0}
		DC.B	%00000101

* illegal {F7} - INC d,X {F6} - SBC d,X {F5} - illegal {F4}
		DC.B	%00010100

* illegal {FB} - illegal {FA} - SBC a,Y {F9} - SED i {F8}
		DC.B	%00001000

* illegal {FF} - INC a,X {FE} - SBC a,X {FD} - illegal {FC}
		DC.B	%00101000


\ No newline at end of file
diff --git a/IIGS.601.SRC/GSFirmware/Monitor/MON.DISPATCHER.aii b/IIGS.601.SRC/GSFirmware/Monitor/MON.DISPATCHER.aii
new file mode 100644
index 0000000..e0823e6
--- /dev/null
+++ b/IIGS.601.SRC/GSFirmware/Monitor/MON.DISPATCHER.aii
@@ -0,0 +1 @@
+		TITLE	'Monitor Dispatcher'

;	This EdAsm/Asm816 source code file was converted to AsmIIGS
;	by EdAsmCvtIIGS version 1.2d5 on 5/9/91 at 3:27:51 PM

******************************************************
*                                                    *
*             Monitor Bank $FF Dispatcher            *
*                                                    *
*                    by                              *
*               Fern Bachman     1985-1987           *
*               Joe Bo           1987-1989           *
*                                                    *
*       Copyright Apple Computer, Inc. 1985-1989     *
*                All Rights Reserved.                *
*                                                    *
******************************************************


	; SEG $FF
SPELRESET		EQU	*	;Special call from NEWRESET, int off here
	; SEG $00
		STA	>MNEMSTKPTR	;Dummy up int stack pointers
		STA	>ALEMSTKPTR	;  in case user forgets too.
		REP	#$20	;16 bit 'm'
		LONGA	ON
		LDA	#>MONPATCH	;Set up monitor dispatcher
		STA	>MDISPATCH+2	;
		LDA	#MONPATCH*256+$5C	;Low word of dispatcher & Jmp abslong
		STA	>MDISPATCH	;

		LDA	#>TOMAINSIDE1	;Set up mainside dispatcher
		STA	>MAINSIDEPATCH+2	;
		LDA	#TOMAINSIDE1*256+$5C	;
		STA	>MAINSIDEPATCH	;
		SEP	#$20	;Back to 8 bit mode
		LONGA	OFF
		RTL		;Return to NEWRESET routine

	; SEG $FF
MONPATCH		EQU	*
	; SEG $00

		LONGA	OFF
		LONGI	OFF
		LDA	RDCXROM	;Get current CxROM state
		PHA		; and save for exiting.
		STA	SETINTCXROM	;MUST enable internal CxROM for routines
		PEA	FFEXIT-1	;Assures common exit point from bank FF
		TYA		;Make correct index
		BMI	@2	;Bit 7=1 for 2nd dispatch table

		PHP		;Save c status
		CMP	#$05	;0-4 then special entry
		BCS	@1	;
		ASL	A	;Y * 2 for correct indexing
		PLP		;Restore status
		BRA	@0	;

@1		EQU	*
		PLP		;Restore c status

* If any of 5 bits in $4FB (MODE) is on, then the mode is not
* valid for video firmware.  Use old routines.

		LDA	MODE	;no, is mode valid?
		AND	#M_PASCAL+M_6+M_4+M_2+M_1
		PHP		;Save status of 'AND'
		TYA		;80 column routines in 2nd half of table
		ASL	A	; Y*2 = correct index
		PLP		;Restore status of 'AND'
		BNE	@0	;=>no, use 40 column routines
		CLC		;
		ADC	#TABLEN
		PHA
		JSR	CSETUP	;set up 80 column cursor
		JSR	VTABC	;calc base
		PLA

@0		EQU	*
		TXY		;MUST save and restore X
		TAX		;Move index to X
		LDA	>DISPATCHTBL+1,X	;Use RTS info to go to subroutine
		PHA		;
		LDA	>DISPATCHTBL+0,X	;

@11		EQU	*
		PHA		;
		TYX		;Now restore X
		LDA	10,S	; and A too!
		RTS		;Off to routine

@2		EQU	*
		PHP		;MUST preserve C/V statuses
		ASL	A	; Y*2 = correct index
		PLP		;Restore C/V statuses
		TXY		;MUST save and restore X
		TAX		;Move index to X
		LDA	>DISPATCHTBL2+1,X	;Use RTS info to go to subroutine
		PHA		;
		LDA	>DISPATCHTBL2+0,X	;
		BRA	@11	;
	; SEG $FF

DISPATCHTBL	EQU	*
		DC.W	BOUT-1	;(0) 80 column output 
		DC.W	B_ESCFIX-1	;(1) ESCFIX
		DC.W	F_BASCALCCC-1	;(2) BASCALCCC
		DC.W	B_KEYIN-1	;(3) KEYIN
		DC.W	F_VTABCZ-1	;(4) VTABCZ 
		DC.W	F_HOME-1	;(5) 40 column HOME
		DC.W	F_SCROLL-1	;(6) 40 column scroll
		DC.W	F_CLREOL-1	;(7) 40 column clear line
		DC.W	F_CLREOLZ-1	;(8) 40 column clear with Y set
		DC.W	B_RESETX-1	;(9) 40/80 column reset
		DC.W	F_CLREOP-1	;(A) 40 column clear end of page
		DC.W	F_RDKEY-1	;(B) readkey w/flashing checkerboard
		DC.W	F_SETWND-1	;(C) Set 40 column window 
		DC.W	FIXPICK-1	;(D) fix pick for 80 columns
		DC.W	F_QUIT-1	;(E) quit before IN#0,PR#0

TABLEN		EQU	*-DISPATCHTBL
	; SEG $00
FFEXIT		EQU	*
		STA	6,S	;Save 'A' for user's calling routine
		PLA		;Recall state of CxROM
		BMI	@1	;Bit7=1 if was internal CX space
		STA	SETSLOTCXROM	; else enable external CX space
@1		EQU	*
		RTL		;Back to caller
		DC.B	$00	;Make FFEXIT 10 bytes long (A MUST!)
	; SEG $FF

		DC.W	B_HOME-1	;(5) 80 column HOME
		DC.W	SCROLLUP-1	;(6) 80 column scroll
		DC.W	X_GS-1	;(7) 80 column clear line
		DC.W	B_CLREOLZ-1	;(8) 80 column clear with Y set
		DC.W	B_RESETX-1	;(9) 40/80 column reset
		DC.W	X_VT-1	;(A) 80 column clear end of page
		DC.W	B_RDKEYX-1	;(B) readkey w/inverse cursor
		DC.W	B_SETWNDX-1	;(C) 40/80 column VTABC
		DC.W	FIXPICK-1	;(D) fix pick for 80 columns
		DC.W	B_QUIT-1	;(E) quit before IN#0,PR#0


DISPATCHTBL2	EQU	*
		DC.W	XMEMORY-1	;(80) Examine memory display
		DC.W	XSEARCH-1	;(81) Pattern search
		DC.W	XMOVE1-1	;(82) Move data
		DC.W	XVFY-1	;(83) Verify data
		DC.W	MINIFF-1	;(84) Activate miniassembler
		DC.W	XSTOR-1	;(85) Store byte routine
		DC.W	TRACEFF-1	;(86) Trace
		DC.W	STEPFF-1	;(87) Step
		DC.W	RESUMEFF-1	;(88) Resume command
		DC.W	EQUALSFF-1	;(89) '=' delimiter
		DC.W	LISTFF-1	;(8A) Disassem and show 20 instructions
		DC.W	SETPTRN-1	;(8B) Set up pattern for search
		DC.W	ZMEMORY-1	;(8C) Zap memory
		DC.W	LITERALASC-1	;(8D) Literal ASCII input mode
		DC.W	GO816FF-1	;(8E) JSR SUBR and return to monitor
		DC.W	X816FF-1	;(8F) JSL SUBR and return to monitor
		DC.W	UTILITYFF-1	;(90) Utility call to Tool Locator
		DC.W	MAKEMXE0-1	;(91) Switch internal 'm'/'x'/'e' to 0
		DC.W	ENMONDSKACC-1	;(92) Enable monitor desk accessory
		DC.W	DECDISASM-1	;(93) Disasm break/registers
		DC.W	XGETNUM-1	;(94) New GETNUM routine for monitor
		DC.W	PREADFF-1	;(95) New monitor PREAD routine
		DC.W	REGSETFF-1	;(96) Setup regs for monitor entry at MON
		DC.W	XINSDS1-1	;(97) Instruction display 
		DC.W	NODISK2-1	;(98) No disk to boot from
		DC.W	DISASEM-1	;(99) Disassemble 1 inst (for step/trace)
		DC.W	INSDS3-1	;(9A) Get length of 65816 instruction
		DC.W	DECCHFF-1	;(9B) Decrement all CH's
		DC.W	WDTCHFF-1	;(9C) Width - 1 for all CH's
		DC.W	RAMVCTRS-1	;(9D) Some additional coldstart stuff
		DC.W	NEWBELL1-1	;(9E) New BELL1 routine for 40/80 columns
		DC.W	GET6502LEN-1	;(9F) Get length of 6502 instructions only
		DC.W	NEWBELL2-1	;(A0) Use speaker for BELL1 routine
		DC.W	MATH-1	;(A1) Do 32 bit math
		DC.W	ENTER80-1	;(A2) Enter 80 columns with ctrl-x in 'A'
		DC.W	SETUPBR-1	;(A3) Read and setup BATTERYRAM parameters
		DC.W	SPLASH-1	;(A4) Display splash screen
		DC.W	REGDSP2-1	;(A5) Display registers
		DC.W	TEXT2COPYFF-1	;(A6) Text page 2 copy from bank 00 to e1
		DC.W	SETTEXT2REG-1	;(A7) Set textp2 shadow bit ($c035, bit5)
		DC.W	APPLEIIGSMSG-1	;(A8) Display Apple IIgs as title
		DC.W	SETPAG1-1	;(A9) Toggle txtpag1 & the one prior 'BRK'
		DC.W	TEXTPAGE1-1	;(AA)
	; SEG $00

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSFirmware/Monitor/MOUSE.MISC.aii b/IIGS.601.SRC/GSFirmware/Monitor/MOUSE.MISC.aii
new file mode 100644
index 0000000..05f0e38
--- /dev/null
+++ b/IIGS.601.SRC/GSFirmware/Monitor/MOUSE.MISC.aii
@@ -0,0 +1 @@
+
;	This EdAsm/Asm816 source code file was converted to AsmIIGS
;	by EdAsmCvtIIGS version 1.2d5 on 5/9/91 at 3:48:55 PM


		TITLE	'Cortland Mouse MISC'

********************************************************
*                                                      *
*                    Cortland Mouse                    *
*                                                      *
*                    MISC Routines                     *
*                                                      *
*                          by                          *
*                     Fern Bachman                     *
*                     Joe  Bo                          *
*                                                      *
*     Copyright  1984-1989 by Apple Computer, Inc.     *
*                 All Rights Reserved                  *
*                                                      *
********************************************************


	; SEG $FF
MOUSE_DISPATCHER	EQU	*
	; SEG $00

		CLD		;No decimal mode in here
		JMP	(MOUSE_RTNES,X)	;Off to routine immediately


MOUSE_RTNES	EQU	*
		DC.W	INITMOUSE		;(0) Initialize mouse routine
		DC.W	CLAMPMOUSE	;(2) Set mouse clamps
		DC.W	READMOUSE		;(4) Read mouse info and update for user
		DC.W	MOUSEBASIC	;(6) Do mouse stuff for BASIC
		DC.W	HOMEMOUSE		;(8) Do home mouse stuff
		DC.W	SETMOUSE		;(A) Do set mouse stuff


SETMOUSE		EQU	*
		REP	#$30	;16-bit m/x for tool
		LONGA	ON
		LONGI	ON
		PHA		;Low byte contain mouse mode from user
		LDX	#$1903	;Set Mouse mode call
		JSL	>DISPATCH1	;DO IT
		RTL		;Return to $c4xx


MOUSEBASIC	EQU	*
		LONGA	OFF		;8-bit m/x entry
		LONGI	OFF
		TYX		;Restore 'X' value
		BCS	@11	;C=1 if BASIC input
		LDY	#>OENTBAS	;Y must be current $Cn
		CPY	KSWH	;Are input hooks requested?
		BNE	@1	;<>= BASIC wants to do output
		LDY	KSWL	;Test lo byte of input hook
		BEQ	@11	;If so must be IN call
@1		EQU	*
		PHA		;Save A on stack
		PHX		;Save X on stack
		AND	#$7F	;No high bits
		CMP	#$02	;User must send 0 or 1 only
		BCS	@12	;Exit with no changes
		PHP		;No interrupts in here
		SEI		;
		JSR	TSETMOUSE	;Set mouse mode
		JSR	TINITMOUSE	;Initialize mouse defaults
		PLP		;Restore interrupt status
@12		EQU	*
		PLX		;Restore X
		PLA		;Restore A
		BRA	MBASICOUT4	;Back to BASIC

@11		EQU	*
		XBA		;Recall user 'Y' value from stack
		LDA	7,S	;Gets it
		TAY		;Move to 'Y'
		XBA		;Restore 'A' value now
		STA	(BASL),Y	;Replace flashing char
		LDY	#<IENTBAS	;Lo byte of input hook
		STY	KSWL	;Save in input hook
		PHP		;No interrupts in here
		SEI		;
		JSL	>READMOUSE	;Update position and status
		LDA	LO	;Pick up lo X byte
		LDX	HI	;Pick up hi X byte
		LDY	#$05	;Pstn of last byte of ASCII
		JSR	MHEXTODEC	;Make ASCII in buffer
		LDA	LO+$80	;Pick up lo Y byte
		LDX	HI+$80	;Pick up hi Y byte
		LDY	#$0C	;Pstn of last byte of ASCII
		JSR	MHEXTODEC	;Make ASCII in buffer
		LDA	KBD	;JSR XRDKBD ;Was a key pressed?
		ASL	A	;Move bit 7 to C
		PHP		;Save status on stack
		LDA	BUTTON	;Pick up button status
		ROL	A	;Move bits 6/7 to 0/1
		ROL	A	;
		ROL	A	;
		AND	#$03	;Strip off excess bits
		EOR	#$03	;Flip bits
		INC	A	;Add 1
		PLP		;Recall status
		LDX	#$00	;Hi byte is always $00
		LDY	#$10	;Pstn of last byte of ASCII
		JSR	HEXDEC2	;Go place in input buffer
		LDA	#$8D	;A must be CR to exit
		STA	IN+$11	;Save as last character
		LDX	#$11	;Set X to $11
		PLP		;Restore interrupt status
MBASICOUT4	EQU	*
		RTL		;Back to caller


HOMEMOUSE		EQU	*	;User entry point - HOMEMOUSE
		LDX	#4	;4 bytes to move
@11		EQU	*
		LDA	>LOWXCLAMP-1,X	;Get a clamp byte
		PHA		;Save on stack
		DEX		;Loop til done
		BNE	@11	;

@12		EQU	*
		PLA		;Move clamp data to user absolute position
		STA	LO,X	;X=0 for 'X' values - X=$80 for 'Y' values
		PLA		;
		STA	HI,X	;
		TXA		;Test for done
		BMI	@13	;- then done
		LDX	#$80	;+ then do Y value too
		BRA	@12	;

@13		EQU	*	;Need to update bank $e1 mouse params
		REP	#$30	;16-bit m/x for tool call
		LONGA	ON
		LONGI	ON
		LDX	#$1A03	;HomeMouse Call
		JSL	>DISPATCH1	;DO IT
		SEP	#$30
		LONGA	OFF
		LONGI	OFF
		RTL		;Return to my world with 8-bit m/x


	; SEG $FF
READMOUSE		EQU	*
	; SEG $00
		PHP		;No interrupts in here
		SEI		;
		LDA	MOUSMODE	;Update bank $e1 mouse stuff w/ screen 
		STA	>MSEMODE	; holes value before the mouse tool call
		LDA	BUTTON	;
		STA	>MSESTAT	;
		LDA	LO+$80	;Low byte of absolute Y
		STA	>LOWABSY	;
		LDA	HI+$80	;High byte of absolute Y
		STA	>HIGHABSY	;
		LDA	LO	;Low byte of absolute X
		STA	>LOWABSX	;
		LDA	HI	;High byte of absolute X
		STA	>HIGHABSX	;
		REP	#$30	;16-bit m/x for tool call
		LONGA	ON
		LONGI	ON
		PHA		;Space for result
		PHA		; "
		PHA		; "
		LDX	#$1703	;MouseRead call
		JSL	>DISPATCH1	;DO IT
		SEP	#$30	;Back to 8-bit mode
		LONGA	OFF
		LONGI	OFF
		PLA		;Get mouse mode
		STA	MOUSMODE	;Update screen hole, $7fc
		PLA		;Get button status
		STA	BUTTON	;Update screen hole, $77c
		PLA		;Get lo byte of absolute Y pos
		STA	LO+$80	;Update screen hole, $4fc        
		PLA		;Get hi byte of absolute Y pos
		STA	HI+$80	;Update screen hole, $5fc
		PLA		;Get lo byte of absolute X pos
		STA	LO	;Update screen hole, $47c
		PLA		;Get hi byte of absolute X pos
		STA	HI	;Update screen hole, $57c
		PLP		;Restore interrupt state
		CLC		;Must exit with carry clear
		RTL		;Back to $c4xx


INITMOUSE		EQU	*
		REP	#$30	;16-bit m/x for tool call
		LONGA	ON
		LONGI	ON
		LDA	#$0004	;MouseSlot for tool call
		PHA		;Push for tool
		LDX	#$1803	;InitMouse Call
		JSL	>DISPATCH1	;DO IT
		SEP	#$30	;Back to 8-bit land
		LONGA	OFF
		LONGI	OFF
		RTL		;Back to $c4xx

CLAMPMOUSE	EQU	*
		PHA		;Save user's 'A' first
		LDA	MOUSMODE	;Get screen hole mouse mode byte
		STA	>MSEMODE	;Update for $e1 mouse mode
		LDA	INFO	;Get screen hole mouse info byte
		STA	>MSEINFO	;Update for $e1 mouse info location
		PLA		;Restore user's 'A'
		AND	#$01	;Strip off excess bits
		TAX		;X=$00 for X clamps - X=$01 for Y clamps]
		BNE	@1	;BRA to do Y clamps
		LDA	LOWHI	;Doing X clamps            
		PHA		;Push user's values for tool 
		LDA	LOWLO	;
		PHA		;
		LDA	HIGHHI	;
		PHA		;
		LDA	HIGHLO	;
		PHA		;
		REP	#$30	;Off to 16-bit land
		LONGA	ON
		LONGI	ON
		LDA	>LOWYCLAMP	;When doing X, no change for Y clamps
		PHA		;
		LDA	>HIYCLAMP	;
		PHA		;
		BRA	@2	;BRA to ClampMouse call

@1		EQU	*
		REP	#$30	;Off to 16-bit land
		LONGA	ON
		LONGI	ON
		LDA	>LOWXCLAMP	;When doing Y, no change for X
		PHA		;
		LDA	>HIXCLAMP	;
		PHA		;
		SEP	#$30	;Back to 8-bit land
		LONGA	OFF
		LONGI	OFF
		LDA	LOWHI	;Push in user's values for tool
		PHA		;
		LDA	LOWLO	;
		PHA		;
		LDA	HIGHHI	;
		PHA		;
		LDA	HIGHLO	;
		PHA		;

@2		EQU	*
		REP	#$30	;16-bit for tool call
		LONGA	ON
		LONGI	ON
		LDX	#$1C03	;ClampMouse Call
		JSL	>DISPATCH1	;DO IT
		SEP	#$30	;Back to 8-bit land
		LONGA	OFF
		LONGI	OFF
		LDA	>MSEMODE	;Update screen holes mode and info
		STA	MOUSMODE	; byte with new values returned
		LDA	>MSEINFO	; by mouse tool call in bank $e1 
		STA	INFO	; mouse stuff
		RTL		;Back to $c4xx


**************************************************
*                                                *
*          MHEXTODEC routine written             *
*                    by                          *
*               Rich Williams                    *
*                                                *
* Data transferred to the input buffer has the   *
* following form.                                *
*                                                *
* s x1 x2 x3 x4 x5, s y1 y2 y3 y4 y5, sb B0 b1 cr*  
*                                                *
*    s = sign and is only placed in buffer if    *
*        number is negative.                     *
*    x1...x5 = up to 5 ascii characters          *
*              giving the decimal value of X.    *
*    y1...y5 = up to 5 ascii characters          *
*              giving the decimal value of Y.    *
*    sb  = - if key pressed // no sign means     *
*           no key was pressed.                  *
*    b5 = 1 if button still pressed              *
*       = 2 if button down but was released      *
*       = 3 if button released but was down      *
*       = 4 if button released and was released  *
*    cr = Carriage return indicated to basic     *
*         the end has been reached.              *
*                                                *
*  Registers must be as follows on entry;        *
*         A = Low byte of number                 *
*         X = High byte of number                *
*         Y = Position of one's digit            *
*                                                *
*       Copyright 1983 Apple Computer, Inc.      *
*                                                *
**************************************************

MHEXTODEC		EQU	*
		CPX	#$80	;Is number -?
		BCC	HEXDEC2	;
		EOR	#$FF	;Form 2's complement
		ADC	#$00	;
		PHA		;Save on stack for later
		TXA		;
		EOR	#$FF	;
		ADC	#$00	;
		TAX		;
		PLA		;Restore A
		SEC		;
HEXDEC2		EQU	*	;
		STA	IN+$21	;Store the number to convert 
		STX	IN+$20	;
		LDA	#$AB	;Plus char in ASCII
		BCC	@1	;
		LDA	#$AD	;Minus char in ASCII
@1		PHA		;Save the sign
		LDA	#$AC	;Store a comma after the number
		STA	IN+1,Y	;
		JSR	@2	;Convert hex to decimal ASCII
		PLA		;Get the sign
		STA	IN,Y	;
		RTS		;Return to caller

@2		EQU	*	;Divide by 10
		LDX	#16+1	;16 bits and 1st time do nothing
		LDA	#$00	;
		CLC		;C=0 so first ROL leaves A=0
@3		ROL	A	;
		CMP	#10	;A >= 10?
		BCC	@4	;Branch if <
		SBC	#10	;C=1 frm CMP and is left set
@4		ROL	IN+$21	;
		ROL	IN+$20	;
		DEX		;
		BNE	@3	;
		ORA	#$B0	;Make an ascii char
		STA	IN,Y	;
		DEY		;
		BEQ	@5	;Stop on 0,7,14
		CPY	#7	;
		BEQ	@5	;
		CPY	#14	;
		BNE	@2	;
@5		EQU	*	;
		RTS		;Return to caller

* End of MHEXTODEC routine

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSFirmware/Monitor/MOUSE.VAR.aii b/IIGS.601.SRC/GSFirmware/Monitor/MOUSE.VAR.aii
new file mode 100644
index 0000000..2c863cb
--- /dev/null
+++ b/IIGS.601.SRC/GSFirmware/Monitor/MOUSE.VAR.aii
@@ -0,0 +1 @@
+
;	This EdAsm/Asm816 source code file was converted to AsmIIGS
;	by EdAsmCvtIIGS version 1.2d4 on 5/8/91 at 8:53:2 PM

		TITLE	'Cortland Mouse Variables.'

********************************************************
*                                                      *
*                   Cortland  Mouse                    *
*                                                      *
*                    Variables Used                    *
*                                                      *
*                          by                          *
*                     Fern Bachman                     *
*                                                      *
*       Copyright Apple Computer, Inc. 1985-1987       *
*                 All Rights Reserved                  *
*                                                      *
********************************************************

*
* Registers must be set as follows when entering
* the Apple Mouse firmware.
*   Routine          X          Y          A
* ---------------------------------------------------
*  SETMOUSE         dc         dc        Mode
*  SERVEMOUSE       dc         dc         dc 
*  READMOUSE        dc         dc         dc
*  CLEARMOUSE       dc         dc         dc
*  POSMOUSE         dc         dc         dc
*  CLAMPMOUSE       dc         dc     0=X clamps
*                                     1=Y clamps
*  HOMEMOUSE        dc         dc         dc
*  INITMOUSE        dc         dc         dc
*
*                dc = don't care
*

* Slot 0 screen holes used during setup of CLAMPMOUSE. 

LOWLO		EQU	$478	;Lo byte of low clamp
HIGHLO		EQU	$4F8	;Lo byte of high clamp
LOWHI		EQU	$578	;Hi byte of low clamp
HIGHHI		EQU	$5F8	;Hi byte of hi clamp

* Slot 4 screen holes used by the Cortland mouse.

LO		EQU	$47C	;Low byte of abs X pos 
* LO+$80 = low byte of abs Y pos 
HI		EQU	$57C	;High byte of abs X pos 
* HI+$80 = high byte of abs Y pos
INFO		EQU	$67C	;Bits 6,7 for Y clamps
SPARE		EQU	$6FC	;Reserved as a temp
BUTTON		EQU	$77C	;Button status 

* _____________________________________________________
*|      |      |  X,Y  |      |     |     |     |      |
*| BTN0 | LAST |  MOV  | BTN1 | VBL | BUT | MOV | LAST | 
*| DOWN | BTN0 | SINCE | DOWN | INT | INT | INT | BTN1 |
*| NOW  | READ | LST RD| NOW  |     |     |     | READ |
*|______|______|_______|______|_____|_____|_____|______|
*           ^^^^^  BUTTON Status Byte ^^^^^

MOUSMODE		EQU	$7FC	;Mode byte stored here

* _____________________________________________________
*|      |       |      |      |     |     |     |      |
*|           RESERVED         | VBL | BUT | MOV | OFF/ |
*|      |       |      |      | INT | INT | INT |  ON  |
*|______|_______|______|______|_____|_____|_____|______|
*               ^^^^^  MOUSMODE Byte ^^^^^

		TITLE	'Mouse/KeyGlu Interface Info'

*Addresses Used
*
*Address                    Function
*
*  $C027         KeyGlu status register defined as follows
*                     bit 0 = d Must NOT be altered by mouse
*                     bit 1 = 0  'X' - position available
*                                      (read only)
*                           = 1  'Y' - position available
*                                      (read only)
*                     bit 2 = k Must NOT be altered by mouse
*                     bit 3 = k Must NOT be altered by mouse
*                     bit 4 = d Must NOT be altered by mouse
*                     bit 5 = d Must NOT be altered by mouse
*                     bit 6 = 1 Mouse interrupt enable (read/write)
*                     bit 7 = 1 Mouse register full (read only)
*
*                       k = used by keyboard handlers
*                       d = used by FDB handlers
*
*  $C024         Mouse data register
*                    1st read yields 'X' position data
*                        and button 1 data
*                    2nd read yields 'Y' position data
*                        and button 0 data
*
*
*  Program Restrictions/Requirements
*
*1. To enable mouse interrupts set bit 6 of $C027 to 1.
*2. To determine if an interrupt came from the mouse or not the user
*   reads bit 7 of $C027 and bit 6 of $C027.  If both are a 1 then an
*   interrupt is pending from the mouse.
*3. To read the mouse position the following conditions must occur or
*   the data is contaminated and corrective measures must be taken;
*   1.  Read bit 7 of $C027 -
*        If bit 7 = 0 then 'X' and 'Y' data is not available yet
*        If bit 7 = 1 then data is available but may be contaminated
*   2.  Read bit 1 of $C027 only if bit 7 was a 1
*        If bit 1 = 0 then 'X'/'Y' data is not contaminated and may be
*                   read.  The first read of $C024 returns 'X' data and
*                   button 1 data and the second read of $C024 returns
*                   'Y' data and button 0 data.  Be careful of indexed
*                   instructions.  The false reads and writes that some
*                   indexed instructions do can cause the 'X' data to be
*                   lost and the 'Y' data to appear when 'X' data was
*                   wanted.
*       If bit 1 is 1 and you have not read $C024 yet then the data in
*                  $C024 is contaminated and must be considered useless.
*                  If condition occurs do the following
*                      1.  Read $C024 one time only
*                      2.  Ignore the byte read in
*                      3.  Exit your mouse read routine without updating
*                          the 'X' and 'Y' or button data. This will not
*                          hurt any program and will guarantee that the
*                          next time you read the mouse positions
*                          everything should be accurate.
*  3.  To data read in is encoded as follows
*         'X' data byte -
*                       bit 7 = 0 then mouse button 1 is up
*                               1 then mouse button 1 is down
*                       bits 0-6 delta mouse move
*                            bit 6=0 then a positive move up to $3F (63)
*                                  ticks
*                            bit 6=1 then negative move in two's
*                                  complement up to $40 (64)
*
*         'Y' data byte -
*                       bit 7 = 0 then mouse button 0 is up
*                               1 then mouse button 0 is down
*                       bits 0-6 delta mouse move
*                            bit 6=0 then a positive move up to $3F (63)
*                                  ticks
*                            bit 6=1 then negative move in two's
*                                  complement up to $40 (64)
*

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSFirmware/Monitor/Monitor.aii b/IIGS.601.SRC/GSFirmware/Monitor/Monitor.aii
new file mode 100644
index 0000000..6683a99
--- /dev/null
+++ b/IIGS.601.SRC/GSFirmware/Monitor/Monitor.aii
@@ -0,0 +1 @@
+		MACHINE	M65816
		LONGA	OFF
		LONGI	OFF
		PRINT	NOGEN
		PRINT	push
		PRINT	ON
		INCLUDE	'::Firmware.MACROS.aii'
; CONDITIONAL COMPILE SWITCHES (by Joe. Bo probably; exact purpose not known)
IS512		EQU	0	;0:= 128K ROM's   1:= 64K ROM's
OPTION4		EQU	0	;0 := REV.D ROM / 1 := OPTION4 ROM
SETPASSWD	EQU	0	;0/1 := without/with password setting option

		INCLUDE	'::Firmware.Equates.aii'
		INCLUDE	'CP.EQUATES.aii'
		INCLUDE	'MOUSE.VAR.aii'
		PRINT	pop
		MSB	ON
Bnk~Org		EQU	$7600		
MONITOR		PROC	ORG $FF7600
		WITH	CP_MsgEquates
Rel~Org:	
		INCLUDE	'MON.DISPATCHER.aii'
		INCLUDE	'MOUSE.MISC.aii'
		INCLUDE	'SLOT.ARBITER.aii'
		FillTO	$7B70
		INCLUDE	'COPYRIGHT.VCTRS.aii'
		INCLUDE	'KEYMICRO.CP.RESET.aii'
		INCLUDE	'CP.TABLES.aii'
		INCLUDE	'CP.MAIN.aii'
		INCLUDE	'MISC.MON.aii'
		INCLUDE	'DISASM.MINIASM.aii'
		INCLUDE 'BFUNC.80COL.aii'
		INCLUDE	'DEBUG.aii'
		INCLUDE	'BRAM.INTR071.aii'
		FillTo	$C300		
		INCLUDE 'C3XXCODE.aii'
		INCLUDE	'C4XXCODE.aii'
		FillTO	$C800
		INCLUDE 'SLOT3.C8.CF.aii'
		FillTo	$CFFE	;fill up to $CFFE
		DC.W	0	;zero in cffe & cfff
		FillTo	$F800	;filler for AppleSoft's 10K
		INCLUDE	'AUTOSTART.aii'
		ENDP 

; this silly proc is necessary since AsmIIgs won't generate an output file
; if the last bytes of the address space at $FF/FFFE.FFFF are assembled 
; thus wrapping the program counter around the 24-bit address space !!!^%$#^%$#!!
LASTWORD	PROC	org 0
		DC.W	$C074	;go to the interrupt ROM's BRK/IRQ entry point
		ENDP
		END
		
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSFirmware/Monitor/Monitor.make b/IIGS.601.SRC/GSFirmware/Monitor/Monitor.make
new file mode 100644
index 0000000..f4c3f21
--- /dev/null
+++ b/IIGS.601.SRC/GSFirmware/Monitor/Monitor.make
@@ -0,0 +1 @@
+#   File:       Monitor.make
#   Created:    June 13, 1991   by JOA
# 	Copyright Apple Computer, Inc. 1991
# 	All rights reserved.

Monitor Ä	monitor.make			¶
				Monitor.aii				¶
				::Firmware.macros.aii	¶
				::Firmware.Equates.aii	¶
				autostart.aii			¶
				BFUNC.80COL.aii			¶
				BRAM.INTR071.aii		¶
				C3XXCODE.aii			¶
				C4XXCODE.aii			¶
				COPYRIGHT.VCTRS.aii		¶
				CP.EQUATES.aii			¶
				CP.MAIN.aii				¶
				CP.TABLES.aii			¶
				DEBUG.aii				¶
				DISASM.MINIASM.aii		¶
				KEYMICRO.CP.RESET.aii	¶
				MISC.MON.aii			¶
				MON.DISPATCHER.aii		¶
				MOUSE.MISC.aii			¶
				MOUSE.VAR.aii			¶
				SLOT.ARBITER.aii		¶
				SLOT3.C8.CF.aii
	AsmIIgs  -font monaco,9 -l -pagesize 74 -h Monitor.aii -wt -o monitor.obj
	LinkIIgs ¶
		-org $FF7600 monitor.obj(MONITOR) 		¶
		-org $FFFFFE monitor.obj(LASTWORD)		¶
		-o monitor.rel
	MakeBinIIgs monitor.rel -o Monitor
	dup Monitor ::bin:Monitor.bin
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSFirmware/Monitor/SLOT.ARBITER.aii b/IIGS.601.SRC/GSFirmware/Monitor/SLOT.ARBITER.aii
new file mode 100644
index 0000000..c938d09
--- /dev/null
+++ b/IIGS.601.SRC/GSFirmware/Monitor/SLOT.ARBITER.aii
@@ -0,0 +1 @@
+		TITLE	'Set System Speed & Slot Arbiter'

;	This EdAsm/Asm816 source code file was converted to AsmIIGS
;	by EdAsmCvtIIGS version 1.2d5 on 5/9/91 at 5:3:40 PM

******************************************************
*                                                    *
*         Set System Speed & Slot Arbiter            *
*                                                    *
*                       by                           *
*                    Ray Montagne                    *
*                    Joe  Bo                         *
*                                                    *
*       Copyright Apple Computer, Inc. 1987-1989     *
*                All Rights Reserved.                *
*                                                    *
******************************************************

;
; This routine sets the system speed in preparation for calling     
; a speed dependent device driver.  Speed settings are in the
; least significant two bits of the 'A' defined as follows:
; 
;    00  1.0 mhz
;    01  2.6 mhz
;    10  >2.6 mhz
;    11  not speed dependent (no change)
;
; Entry: via a 'JSL' and must be in 16 bit m/x
;    a = requested speed
;    x/y/b/d: undefined
;    p = n/v/m/x/d/i/z/c  e
;      = x/x/0/0/0/x/x/x  0
;
; Exit:
;    a = speed prior to requested change
;    x/y/b/d: undefined
;    p = n/v/m/x/d/i/z/c  e
;      = x/x/0/0/0/x/x/x  0
;
	; SEG $FF
SETSPEED		EQU	*
	; SEG $00
		LONGA	ON
		LONGI	ON
		AND	#$0003	;Mask unwanted bits
		LONGA	OFF

		SEP	#$20	;8 bit 'm'
		TAY		;Save next speed setting
		LDA	>CYAREG	;Get current speed setting
		AND	#$80	;
		CLC		;
		ROL	A	;
		ROL	A	;
		TAX		;X = previous speed
		TYA		;
		BEQ	SETSLOW	;
		CMP	#$01	;Set to fast speed ?
		BEQ	SETFAST	;
		CMP	#$03	;NO change
		BEQ	KEEPPRE	;
		DEC	A	; > 2.6 MHZ, can't do that yet !!!
SETFAST		EQU	*
		LDA	#$80	;Set fast speed
		ORA	>CYAREG	;
		STA	>CYAREG	;
		BRA	KEEPPRE	;bra to keep previous speed

SETSLOW		EQU	*
		LDA	>CYAREG	;
		AND	#$70	;Set slow speed
		STA	>CYAREG	;
KEEPPRE		EQU	*
		TXA		; Keep previous speed
		LONGA	ON
		REP	#$20	;Set back to 16 bit 'm'
SPEEDXIT		EQU	*
		AND	#$0003	;
		RTL		;


;
; The following routine checks that a requested slot selection
; is valid.  If so, the requested slot is selected and the
; appropriate screen holes are copied in prior to passing
; control back to the calling routine.
;
; NOTE: No dynamic slot selection occurs at this time
;
; Entry: via a 'JSL' through $E1 vector with 16 bit m/x
;    a = requested slot
;    x/y/b/d: undefined
;    p = n/v/m/x/d/i/z/c  e
;      = x/x/0/0/0/x/x/0  0
;
; Exit: via an 'rtl'
;    a = error code
;    x = slot configuration word
;    y = unspecified
;    b/d: unchanged
;    p = n/v/m/x/d/i/z/c  e
;        x/x/0/0/0/x/x/0  0   if slot was granted
;        x/x/0/0/0/x/x/1  0   if slot was not granted
;     
	; SEG $FF
SLOTARBITER	EQU	*
	; SEG $00
		LONGA	ON
		LONGI	ON
		PHB		;Save data bank
		CLC		;Assume no error
		TAY		;
		AND	#$0300
		BNE	EXIT
		TYA

		LONGA	OFF
		LONGI	OFF
		SEP	#$30	;8 bit m/x
		TAX		;Save user's requested slot
		AND	#$07	;Strip external bit
		BEQ	BADSEL	;
		CMP	#$03	;Slot 3 is a special case
		BEQ	SLOT3REQ	;
		TAY		;Is current slot external ?
		LDA	>SLTROMSEL	;
LOOP		EQU	*
		ROR	A
		DEY		;
		BPL	LOOP	;C=1 if external on loop exit
CHECKSLOT		EQU	*
		TXA		;Get back user's slot request
		AND	#$08	;
		BCS	CHKXIT	;YES
		BNE	BADSEL	;If is int but requested ext

GOODSEL		EQU	*
		CLC		;
		BRA	EXIT

CHKXIT		EQU	*
		BNE	GOODSEL	;
BADSEL		EQU	*
		SEC		;
EXIT		EQU	*
		SEP	#$20	;Get us back into 8 bit mode 3/23/89 MSA
		PHP		;Save 'c'
		LDA	>SLTROMSEL	;Get slot
		PHA
		XBA
		PLA
		PLP
		LONGA	ON
		LONGI	ON
		REP	#$30
		EOR	#$00FF	;Create slot configuration word
		AND	#$FEFE
		TAX
		LDA	#$0000	;Assume no error first
		BCC	REALEXIT	;
		LDA	#$0010	;Error code
REALEXIT		EQU	*
		PLB
		RTL
SLOT3REQ		EQU	*
		LONGA	OFF
		LONGI	OFF
		LDA	>RDC3ROM	;Need slot 3 selection
		ROL	A	;
		BRA	CHECKSLOT	;C=1 if slot 3 is external

*
* The set_default_slots and restore_system_slots are used in 
* interrupt codes.  
* Not yet implemented in this version.   
* 
	; SEG $FF
SETDEFSLT		EQU	*
	; SEG $00

	; SEG $FF
RSTSYSSLT		EQU	*
	; SEG $00
		RTL		;



		TITLE	'Some Stuff Called/Used by Desk Acc'

* TP2TASK is called by the heartbeat task scheduler
* to move text page 2 from bank 00 to bank E1.

	; SEG $FF
TP2TASK		EQU	*	;Task to copy text page 2 to bank E0
	; SEG $00
		LDA	#$01	;Reset task counter
		STA	>TP2TCNT	;Low byte is sufficient
		LONGA	ON
		LONGI	ON
		REP	#$30	;16 bit land required for routine
		LDX	#$0800	;Starting address of move in source bank
		TXY		;Starting addr of move in destination bank
		LDA	#$0400-1	;Number of bytes to move-1
		MVN	$000000,$E00000	;Source,destination banks
		LONGI	OFF
		LONGA	OFF
		RTL		;Back to heartbeat handler with task done



* ENMONDSKACC is called by the user pressing
* '#' as a command in the monitor.  It installs
* a desk accessory which allows the user to
* enter the monitor from the desk accessories
* menu and return to it with a control-Y.
* It also installs the memory peeker desk accessory.

ENMONDSKACC	EQU	*	;Enable the monitor desk accessory
		LDA	>ROMDAACT
		ORA	#$80	;
		STA	>ROMDAACT	;
ENMONDSKACC1	EQU	*
		LDA	>ROMDAACT	;Test if already active
		PHA
		ASL	A	;Bit7=1=install it--Bit6=1=is installed
		BMI	ENROMDA	;Already installed if bit is set
		REP	#$30	;16 bit land required for call
		PEA	PTRDAINFOTBL>>16	;Bank #
		PEA	PTRDAINFOTBL	;Address
		LONGI	ON
		LDX	#INSTALLCDA	;Tool # and function for call
		LONGI	OFF
		JSL	>DISPATCH1	;Make call to install desk accessory
		JSL	>MEMORYPEEKER	;Install memory peeker too
		SEP	#$30	;Return in 8 bit mode
ENROMDA		EQU	*
		PLA		;
		ORA	#$40	;Say that monitor/memory peeker installed
		STA	>ROMDAACT	; and active.
		RTS		;Back to caller with desk acc installed


	; SEG $FF
PTRDAINFOTBL	EQU	*
	; SEG $00
		DC.W	DAINFOTBL	;
		DC.W	DAINFOTBL>>16	;


	; SEG $FF
DAINFOTBL		EQU	*
	; SEG $00
		STR	'Visit Monitor'
		DC.W	REALCODE	;Address of code
		DC.W	REALCODE>>16	;Bank number of code
		DC.W	SHUTDOWN	;Address of shutdown routine
		DC.W	SHUTDOWN>>16	;Bank number of shutdown routine


	; SEG $FF
REALCODE		EQU	*
	; SEG $00
		SEP	#$30	;Switch to 8 bit native mode
		SEI		;Kill interrupts in here
		PEA	$0000	;Change data bank register to $00
		PLB		;
		PLB		;

		LDX	#$02	;Save 3 bytes
@0		EQU	*
		LDA	|USRADR,X	;Save CTRL-Y vector information
		PHA		;
		DEX		;
		BPL	@0	;Loop til done

		LDA	#$4C	;JMP opcode
		STA	|USRADR	;
		LDA	#<RETURNFROM	;Put in CTL-Y hook
		STA	|USRADR+1	;
		STZ	|USRADR+2	;High byte is $00


		LDX	#GOINFOLEN-1	;Number of bytes-1 to save
@1		EQU	*
		LDA	GOTOMON,X	;Save zero page
		PHA		;
		DEX		;
		BPL	@1	;Loop til done


		PHB		;
		PHK		;
		PLB		;
		LDX	#GOINFOLEN-1	;Move 9 bytes for hooks
@11		EQU	*
		LDA	GOINFO,X	;
		STA	GOTOMON,X	;
		DEX		;
		BPL	@11	;Loop til done
		PLB		;


		PHK		;Set up return bank
		PLA		;
		STA	RETURNBANK	;


		LDA	STATEREG	;Save state register while
		PHA		; clearing screen.
		JSR	HOMEFF	;Clear screen


		LDA	#WELCOME	;
		JSR	PRINTMSG	;8 bit entry to print message routine


		PLA		;Restore INTCXROM/SLOTCXROM status
		STA	STATEREG	; by restoring state register.


		SEC		;Must go to monitor in emulation mode
		XCE		;Interrupts are off so it's OK here
		JMP	>GOTOMON	;Go into monitor (Turns on interrupts)


RETURNPOINT	EQU	*	;Interrupts are disabled on entry to here
		PLA		;Remove monitor's CTRL-Y return address
		PLA		;
		PEA	$0000	;Restore data bank register to $00
		PLB		;
		PLB		;
		CLC		;Must return to native mode
		XCE		;
		CLI		; and reenable interrupts.
		LDX	#$00	;Restore zero page
@2		EQU	*
		PLA		;
		STA	GOTOMON,X	;
@4		EQU	*
		INX		;
		CPX	#GOINFOLEN	;If at GOINFOLEN then done
		BCC	@2	;Loop til done

		PLA		;Recall USRADR (CTRL-Y) information
		STA	|USRADR-9,X	; and save it.
		CPX	#GOINFOLEN+2	;Done if matches
		BCC	@4	;Loop til done


		REP	#$30	;MUST return in 16 bit mode

	; SEG $FF
SHUTDOWN		EQU	*	;No action required for the shutdown rtne
	; SEG $00
		RTL		;Return to calling program


GOINFO		EQU	*
		DC.B	$58,$4C	;Enable interrupts before entering monitor
		DC.W	MONZ	;
		DC.B	$78,$5C	;SEI and JMP abslong
		DC.W	RETURNPOINT	;
		DC.B	$00	;Return bank number patched in zero pg
GOINFOLEN		EQU	*-GOINFO	;Number of bytes to move




* A routine to set text page2 shadowing register ($c035, bit5)
* probably for original //gs and new machine
* For gs, when exit 'c'=0 else 'c'=1

	; SEG $FF
SETTEXT2REG	EQU	*
	; SEG $00
		PHB		; Save data bank
		JSR	DBTOE1	;Set to $e1 bank
		LDA	|KEYUCVER	;Get keyucver #
		CMP	#$06	;If > $06, then using new CYA chip
		BCC	@2	;Bra if not, old FPI chip
		LDA	|TP2MODE	;Chk for already on/off
		BNE	@2	;Bra if already off
		LDA	#$20	;Else it is on, need to turn off
		TSB	SHADOW	;Set off
		BRA	@3	;Bra to end 

@2		EQU	*
		LDA	#$20	;Previous on is off, set on now
		TRB	SHADOW	;Set on, no effect for gs board
@3		PLB		;Restore data bank
		RTS		;Return to caller


*
* This routine (placed here due to space constraints) assists
*  in the execution of the 'G' & 'X' commands by taking the
*  value of the user's M & X bits and folding them into the 
*  processor status byte so that they will correctly determine
*  the state of the M & X bits at the beginning of the execution
*  of the user's code.  The DBR must already point to $E1 on
*  entry and the environment must be '8 bit native'.
*
* The code was taken from the 01 ROM... {3/31/89 MSA & John A}
*
;INDEX8
;MEMORY8 both not necessary
COMBINEMX		EQU	*
		PHP
		SEP	#$30	;Force for this routine... restored at plp!
		LDA	|MPVAL	;0000000M Get user desired M state
		ASL	a	;000000M0           
		ORA	|XPVAL	;000000MX                       
		ASL	a	;00000MX0
		ASL	a	;0000MX00
		ASL	a	;000MX000
		ASL	a	;00MX0000 Right where we want it
		PHA
		LDA	|PVAL	;Get back the other status bits
		AND	#$CF	;Clear a hole for the MX bits
		ORA	1,s	;Combine
		PLY		;Clean up the stack
		STA	|PVAL
		PLP		;Pull back our execution environment
		RTS
*
*
		LONGA	OFF
		LONGI	OFF
;
; RESTOREFF: M, Q, e, P, B, D, Y, X AND A
;
RESTOREFF		EQU	*
		PEA	$E1E1
		PLB
		PLB		;Change data bank to $e1
		LDA	|RDPAGE2	;Page2, set/clr by user
		BPL	P2OFF	;Bra if p2 off
		LDA	|MVAL	;Memory status value
		ORA	#$40	;Set p2 on
		BRA	SETP2
P2OFF		EQU	*
		LDA	|MVAL
		AND	#$BF	;Set p2 off
SETP2		EQU	*
		STA	|STATEREG	;Update the STATEREG, $c068

		LDA	|QVAL	;bit7=speed, bit6-0, match shadow reg
		ASL	A	;Speed to 'c'
		PHP		;Temporary save this 'c'=speed
		LDA	|CYAREG	;$C036
		ASL	A	;Original speed to c
		PLP		;Get back new speed in c
		ROR	A	;Rotate to $C036 position with new speed 
		AND	#$9F	;Bit 6/5 must write 0
		STA	|CYAREG	;Update it

		LDA	|QVAL
		AND	#$5F	;Bit7/5 must write 0
		STA	|SHADOW	;Update shadow reg, $c035

		LDA	|EPVAL	;Get back e
		ROR	A	;'e' into carry
		LDA	|PVAL	;Get back user's processor status
		ORA	#$04	;Disable interrupts {MSA 4/6/89}
		XBA		;High byte = PVAL, low byte = data bank
		LDA	|BVAL

		REP	#$30	;Off to 16 bit land
		LONGA	ON
		LONGI	ON
		PHA		;Push PVAL and data bank value to stack
		LDA	|DVAL	;Restore user's direct register 
		TCD
		LDY	|YVAL	;Restore user's 'Y'
		LDX	|XVAL	;Restore user's 'X'
		LDA	|AVAL	;Restore user's 'A'

		PLB		;Reset to user's data bank, from BVAL
		BCC	USERE0	;Bra for user e=0       
		PLP		;Restore user's P status
		BCC	USERC0	;Bra for user e=0, c=0
		SEC		;User's 'c'=1
		BRA	USERC1	;Bra for user e=0, c=1

USERC0		EQU	*
		SEC
		BRA	USERE1

USERE0		EQU	*
		PLP
		BCC	USERC0E0
		CLC
USERC1		EQU	*
		XCE
		SEC
		BRA	USERC1E1

USERC0E0		EQU	*
		CLC
USERE1		EQU	*
		XCE
		CLC

USERC1E1		EQU	*
		RTS		;Return to caller
;
; STOREFF: e, P, B, D, S, A, X, Y, M AND Q
;
STOREFF		EQU	*
		STA	>AVAL	;Save low A (& high if e,m=0)
		PHP		;Save P
		LONGA	OFF
		SEP	#$20	;Off to 8 bit A
		PLA		;'P' in low A
*
* Since we could not let the user have interrupts on during the
*  execution of his instruction, we must force them back on here.
*  {MSA 4/12/89} 
*
		AND	#$FB	;Force off I bit which enables interrupts
*
		STA	>PVAL
		CLC
		XCE		;Native (user e into carry)
		CLD		;No decimal mode
		LONGA	OFF
		SEP	#$20	;8 bit A
		XBA
		STA	>AVAL+1	;Save high A (if e or m was = 1)

		LDA	#$00
		ROL	A	;User's e to lsb
		STA	>EPVAL	;Store it for display

		PHB		;Save user data bank
		PLA
		STA	>BVAL

		LONGA	ON
		LONGI	ON
		REP	#$30	;Off to 16 bit land
		JSR	DBTOE1	;Change data bank to $e1
		TDC		;Get user's direct register
		STA	|DVAL	;Store it
		STX	|XVAL	;       
		STY	|YVAL	;        

		LONGA	OFF
		LONGI	OFF
		SEP	#$30

		LDA	|PVAL	;Fix 'm'/'x' for print registers
		AND	#$30
		LSR	A	;Shift 'x' into 'c' and 'm' into bit0
		JSR	SCRN4	;Shift right 4 times, use user stack area
		STA	|MPVAL	;Store new 'm' value
		LDA	#$00
		ROL	A	;
		STA	|XPVAL	;Store new 'x' value

		LDA	|STATEREG	;Get machine state
		STA	|MVAL	;Store to print buffer for display
		AND	#$04	;Mask for language card bank for LVAL
		LSR	A	;Shift bit2 (LC bank) to bit0
		LSR	A	;
		STA	|LVAL	;Store for display

		LDA	|CYAREG	;Get speed
		ASL	A	;Speed to 'c'
		PHP		;Save 'c'
		LDA	|SHADOW	;
		ASL	A
		PLP		;Get back speed
		ROR	A	;Rotate to MSB
		STA	|QVAL
		AND	#$5F	;Strip off speed
		STA	|SHADOW	;

		LDA	|CYAREG
		ORA	#$80
		STA	|CYAREG	;Go fast

		PEA	$0000	;Set monitor direct reg, $0000
		PLD		;Reset direct register
		PEA	$0000	;Reset monitor data bank, $00  
		PLB		;Reset data bank
		PLB
		RTS		;Back to monitor's for display user's regs
*
*
*
STACKFUTZ		EQU	*
*
* This routine stores the value of the emulation stack pointer PLUS TWO
*  at the emulation stack pointer storage location $010100.  The
*  plus two covers the rts which is done at the end of the routine.
*  This routine is called in four places by routines in MISC.MON.aii
*  {MSA 4/28/89}
*
		LDA	>MNEMSTKPTR	;Get the old value
		STA	>KPMNEMSP	; and keep 'til later
		TSC		;Get current pointer
		INC	a
		INC	a
		STA	>MNEMSTKPTR
		RTS
*
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSFirmware/Monitor/SLOT3.C8.CF.aii b/IIGS.601.SRC/GSFirmware/Monitor/SLOT3.C8.CF.aii
new file mode 100644
index 0000000..e008fea
--- /dev/null
+++ b/IIGS.601.SRC/GSFirmware/Monitor/SLOT3.C8.CF.aii
@@ -0,0 +1 @@
+		TITLE	'$C800 Video Firmware'

;	This EdAsm/Asm816 source code file was converted to AsmIIGS
;	by EdAsmCvtIIGS version 1.2d5 on 5/9/91 at 9:34:13 PM

* This entry point is only used by Pascal 1.0

* Maintained entry point $C800
		JMP	PINIT1_0	;PASCAL 1.0 INIT

* BASIC initialization:

* This is called by the $C3 space only after a PR#3 or
* the equivalent (a JSR $C300).

* It causes a copy of the $F8 ROM to be placed in the
* language card if the language card is switched in and
* the ID byte doesn't match.  It sets up all the  
* screenhole variables to support its operation.
* Then it clears the screen and prints the character that
* was in the accumulator upon entry.

BASICINIT		EQU	*
		JSR	COPYROM	;If LC in, copy F8 to it
		JSR	C3HOOKS	;out=$C307, in=$C305 
		JSR	DO40	;set full 40-col window
		LDA	#$00	;Set 80 column cursor
		STA	>CURSOR	;
		LDA	#M_MOUSE	;init with mouse text off
		STA	MODE	;Set BASIC video mode 
		ASL	WNDWDTH	;Set 80-column window
		STA	SET80COL	; and enable 80 store
		STA	SET80VID	; and 80 video.

* HOME & CLEAR:

		STA	SETALTCHAR	;SET NORM/INV LCASE
		JSR	X_FF	;CLEAR IT
		LDY	OURCH	;set up cursor for store
		BRA	BPRINT	;always print a character

C3HOOKS		LDA	#<BASICOUT	;set output hook first
		STA	CSWL
		LDA	#>C300
		STA	CSWH

* C3IN is called by IN#0 if CSWH = #$C3

C3IN		LDA	#<BASICIN	;set input hook
		STA	KSWL
		LDA	#>C300
		STA	KSWH
		RTS		;exit with A=$C3 for IN#0 stuff

GETKEY		INC	RNDL	;BUMP RANDOM SEED
		BNE	@1
		INC	RNDH
@1		JSR	XRDKBD	;KEYPRESS?
		BPL	GETKEY	;=>NOPE
		RTS

		DC.B	$C6,$CA,$C2

****************************************
* PASCAL 1.0 INPUT HOOK:
****************************************

		FillTo	$C84D	;Pad to next entry point

* Maintained entry point $C84D
		JMP	JPREAD	;=>GO TO STANDARD READ


* BIN and BOUT are used when characters are
* input and output by the $F8 ROM while 80VID
* is on.  They cannot use the $C3 entry points
* because that switches in the $C8 space, causing
* possible conflict with other $C8 users.
* These routines are only called by the Monitor space.

* These entry points will only work if the card was
* first initialized using a PR#3.  80 columns will not
* work simply by turning on the 80VID flag.

BOUT		LDY	YSAV1	;load Y stuffed by $F8 ROM
		CLC		;signal an output 
		OPCODE	BCS	;skip SEC
BIN		SEC		;signal an input
		STA	CHAR	;save the char
		PHY		;save Y
		PHX		;save X
C8BASIC		EQU	*	;BASIC IN/OUT
		BCS	BINPUT	;=>input a character
		EJECT

* This is the place where characters printed using the
* CSW hook are actually printed (or executed if they are
* control characters).

BPRINT		JSR	CSETUP	;setup user cursor
		LDA	CHAR	;GET CHARACTER
		CMP	#$8D	;IS IT C/R?
		BNE	@2	;=>don't wait, OURCH ok 
		LDX	KBD	;IS KEY PRESSED?
		BPL	@2	;NO
		CPX	#$93	;IS IT CTL-S?
		BNE	@2	;NO, IGNORE IT
		BIT	KBDSTRB	;CLEAR STROBE
@1		EQU	*
		LDX	KBD	;WAIT FOR NEXT KEYPRESS
		BPL	@1
		CPX	#$83	;IF CTL-C, LEAVE IT
		BEQ	@2	; IN THE KBD BUFFER
		BIT	KBDSTRB	;CLEAR OTHER CHARACTER
@2		EQU	*
		XBA		;Preserve 'A' during test
		LDA	>CHGCURFLG	;'+'/'-' no change / change cursor
		BPL	@22	;
		XBA		;Recall new cursor character
		STA	>CURSOR	;New cursor
		LDA	#$01	;Reset flag
		STA	>CHGCURFLG	;
		CLC		;Save done OK
		BRA	@4	;Exit normally

@22		EQU	*
		XBA		;Restore original 'A' value
		AND	#$7F	;drop possible hi bit
		CMP	#$20	;IS IT CONTROL CHAR? 
		BCS	@3	;=>NOPE
		JSR	CTLCHAR0	;execute CTL if M_CTL ok
		BRA	@4	;=>enable ctl chrs

* NOT A CTL CHAR. PRINT IT.

@3		EQU	*
		LDA	CHAR	;get char (all 8 bits)
		JSR	STORCH	;and display it

* BUMP THE CURSOR HORIZONTAL:

		INY		;bump it 
		STY	OURCH	;are we past the 
		CPY	WNDWDTH	; end of the line?
		BCC	@4	;=>NO, NO PROBLEM
		JSR	X_CR	;YES, DO C/R 

* M_CTL is set by RDCHAR and cleared here, after each
* character is displayed.

@4		EQU	*	;enable printing of control chars
		LDA	#M_CTL
		TRB	MODE
BIORET		LDA	OURCH	;get newest cursor position
		BIT	RD80VID	;IN 80-MODE?
		BPL	@1	;=>no, set other cursors 
		LDA	#0	;pin CH to 0 for 80 columns
@1		STA	CH
		STA	OLDCH	;REMEMBER THE SETTING
		PLX		;RESTORE
		PLY		;X AND Y
		LDA	CHAR
		RTS		;RETURN TO BASIC
		EJECT

* BASIC input entry point called by entry point in the
* $C3 space.  This is the way things normally happen.

BINPUT		EQU	*
		LDY	CH
		LDA	CHAR
		STA	(BASL),Y
		JSR	CSETUP	;get newest cursor


BINPUT4		EQU	*
		JSR	SHOWCUR	;Show current cursor
@1		EQU	*
		JSR	UPDATE	;Flash and loop for key
		BPL	@1	;
		STA	CHAR	;Save character for other routines
		TAY		;preserve acc.

* On pure input, an uninterpreted character code should
* be returned.  If M_CTL is set, however, escape functions
* are enabled, and CTL-U causes the character under the
* cursor to be picked up from the screen.
* M_CTL is set whenever a character is requested using
* RDCHAR in the $F8 ROM.

		LDA	MODE	;is escape mode enabled?
		AND	#M_CTL
		BEQ	BIORET	;=>no,return 
		CPY	#$8D	;was it a CR
		BNE	@2	;=>nope, not a CR
		LDA	#M_CTL	;else end of line...  
		TRB	MODE	; disable escape 
@2		EQU	*
		CPY	#$9B	;ESCAPE KEY?
		BEQ	ESCAPING	;=>YES IT IS

* Not an escape sequence.  Check for control-u.

		CPY	#$95	;is it control-U?
		BNE	BIORET	;no, return to caller
		JSR	PICKY	;Pick up the char
		ORA	#$80	;always pick as normal
		STA	CHAR	;save keystroke
		BNE	BIORET	;=>(always) return to caller

		EJECT
* Start an escape sequence.  If the next character 
* pressed is one of the following, it is executed. 
* Otherwise it is ignored.
*
*    @ - home & clear 
*    E - clear to end of line 
*    F - clear to end of screen 
*    I - move cursor up 
*    J - move cursor left 
*    K - move cursor right 
*    M - move cursor down 
*    4 - enter 40 column mode 
*    8 - enter 80 column mode 
* CTL-D- disable the printing of control characters
* CTL-E- enable the printing of control characters
* CTL-Q- quit (PR#0/IN#0)
*   The four arrow keys (as IJKM)

ESCAPING		EQU	*
		JSR	ESCON	;ESCAPE CURSOR ON
		JSR	GETKEY	;GET ESCAPE FUNCTION
		JSR	ESCOFF	;REPLACE ORIGINAL CHARACTER
		JSR	UPSHFT	;upshift the char
		AND	#$7F	;DROP HI BIT
		LDY	#ESCNUM-1	;COUNT/INDEX
@1		CMP	ESCTAB,Y	;IS IT A VALID ESCAPE?
		BEQ	@2	;=>YES
		DEY
		BPL	@1	;TRY 'EM ALL...
		BMI	@3	;=>MAYBE IT'S A SPECIAL ONE

@2		EQU	*
		LDA	ESCCHAR,Y	;GET CHAR TO "PRINT"
		AND	#$7F	;DROP HI BIT (FLAG)
		JSR	CTLCHAR	;EXECUTE IT
		LDA	ESCCHAR,Y	;GET FLAG
		BMI	ESCAPING	;=>STAY IN ESCAPE MODE
		BPL	BINPUT4	;=>QUIT ESCAPE MODE

@3		EQU	*
		TAY		;put char here
		LDA	MODE	;so we can put this here
		CPY	#$11	;was it Quit?
		BNE	@4	;=>no 
		JSR	X_NAK	;do the quitting stuff
		LDA	#$98	;make it look like
		STA	CHAR	;CTL-X was pressed
		JMP	BIORET	;=>quit the card forever

@4		CPY	#$05	;was it CTL-E for enable
		BNE	@5	;=>no
		AND	#255-M_CTL2	;yes, enable ctl chars
@6		STA	MODE	;save new mode
@7		BRA	BINPUT4	;=> exit escape mode

@5		CPY	#$04	;was it CTL-D for disable
		BNE	@7	;=>no, exit escape mode
		ORA	#M_CTL2	;disable ctl chars
		BNE	@6	;=> exit escape mode

* This table contains the control characters which, 
* when executed, carry out the escape functions. If
* the high bit of the character is set, it means that
* escape mode should not be exited after execution of
* the character.

ESCCHAR		EQU	*
		DC.B	$0C	;@: FORMFEED 
		DC.B	$1C	;A: FS
		DC.B	$08	;B: BS
		DC.B	$0A	;C: LF
		DC.B	$1F	;D: US
		DC.B	$1D	;E: GS 
		DC.B	$0B	;F: VT 
		DC.B	$1F+$80	;I: US (STAY ESC) 
		DC.B	$08+$80	;J: BS (STAY ESC) 
		DC.B	$1C+$80	;K: FS (STAY ESC) 
		DC.B	$0A+$80	;M: LF (STAY ESC) 
		DC.B	$11	;4 :DC1 
		DC.B	$12	;8 :DC2 
		DC.B	$08+$80	;<-:BS (STAY ESC) 
		DC.B	$0A+$80	;DN:LF (STAY ESC) 
		DC.B	$1F+$80	;UP:US (STAY ESC) 
		DC.B	$1C+$80	;->:FS (STAY ESC)

		MSB	OFF	;high bit already masked
ESCTAB		EQU	*
		DC.B	'@'
		DC.B	'A'	;HANDLE OLD ESCAPES
		DC.B	'B'
		DC.B	'C'
		DC.B	'D'
		DC.B	'E'
		DC.B	'F'
		DC.B	'I'
		DC.B	'J'
		DC.B	'K'
		DC.B	'M'
		DC.B	'4'
		DC.B	'8'
		DC.B	$08	;LEFT ARROW
		DC.B	$0A	;DOWN ARROW
		DC.B	$0B	;UP   ARROW
		DC.B	$15	;RIGHT ARROW
ESCNUM		EQU	*-ESCTAB
		MSB	ON


* CSETUP compensates for everything that the user 
* can do to change the cursor status: poke CV, CH,
* OURCH, WNDWDTH.  It updates the video firmware's 
* versions of these values for its own use.
* COPY USER'S CURSOR IF IT DIFFERS FROM
*  WHAT WE LAST PUT THERE:

CSETUP		LDY	CV	;set up OURCV
		STY	OURCV

* ON CURSORS.  Whenever the horizontal cursor position is
* needed, a call to GETCUR is done. This is the equivalent
* of a LDY CH.  This returns the current cursor for II and
* //e mode, which may have been poked as either CH or OURCH.

* It also forces CH and OLDCH to 0 if 80 column mode active.
* This prevents LDY CH, STA (BASL),Y from trashing non screen
* memory. It works just like the //e. 

* All routines that update the cursor's horizontal position
* are here.  This ensures that the newest value of the cursor
* is always used, and that 80 column CH is always 0.

* GETCUR only affects the Y register

GETCUR		LDY	CH	;if CH=OLDCH, then
		CPY	OLDCH	;OURCH is valid
		BNE	@1	;=>else CH must have been changed
		LDY	OURCH	;use OURCH
@1		CPY	WNDWDTH	;is the value too big 
		BCC	GETCUR2	;=>no, fits just fine
		LDY	#0	;else force CH to 0

* GETCUR2 is commonly used to set the current cursor
* position when Y can be used.

GETCUR2		EQU	*
		STY	OURCH	;update real cursor
		BIT	RD80VID	;80 columns?
		BPL	@3	;=>no, set all cursors
		LDY	#0	;yes, peg CH to 0
@3		STY	CH
		STY	OLDCH
		LDY	OURCH	;get cursor
		RTS		;and fly...


* DECCHFF decrements the current cursor

DECCHFF		EQU	*
		JSR	GETCUR	;Get current CH
		DEY		;Decrement it
DECCHFF2		EQU	*
		JSR	GETCUR2	;Save new CH
		TYA		; and get new CH into 'A'
		RTS		;Back to caller

WDTCHFF		EQU	*
		DEC	A	;Dec window width
		TAY		;'Y' = new cursor position
		BRA	DECCHFF2	;Continue this way


		EJECT

****************************************
* PASCAL 1.0 OUTPUT HOOK:
****************************************

		FillTo	$C9AA	;Pad to next entry point

* Maintained entry point $C9AA
		LDA	CHAR	;GET OUTPUT CHARACTER
		JMP	JPWRITE	;=>USE STANDARD WRITE


****************************************
* PASCAL INITIALIZATION:
* Disable printing of mouse text
****************************************
PINIT1_0		EQU	*
		LDA	#M_PASCAL+M_PAS1_0+M_MOUSE
		BNE	PINIT2	;=>always
PINIT		EQU	*
		LDA	#M_PASCAL+M_MOUSE	;SAY WE'RE
PINIT2		EQU	*
		STA	MODE	; and save it
		STA	SET80COL	;ENABLE 80 STORE
		STA	SET80VID	; AND 80 VIDEO
		STA	SETALTCHAR	;NORM+INV LCASE
		LDA	#$00	;Set up inverse cursor
		STA	>CURSOR	;
		JSR	PSETUP	;set window and cursor 
		JSR	X_FF	;HOME & CLEAR IT
		BRA	DOBASL	;fix OLDBASL/H, display cursor, exit

****************************************
* PASCAL INPUT:
*
* Character always returned with high bit clear.
*
****************************************
PASCALREAD	EQU	*
		JSR	PSETUP	;SETUP ZP STUFF
		JSR	GETKEY	;GET A KEYSTROKE
		AND	#$7F	;DROP HI BIT
		STA	CHAR	;SAVE THE CHAR
		LDX	#0	;IORESULT='GOOD'
		LDA	MODE	;ARE WE IN 1.0-MODE?
		AND	#M_PAS1_0
		BEQ	@1	;=>NOPE
		LDX	#>C300	;YES, RETURN CN IN X 

@1		EQU	*
		LDA	CHAR	;RESTORE CHAR
		RTS

* PASCAL OUTPUT:
* Note:  to be executed, control characters must have
* their high bits cleared.  All other characters are
* displayed regardless of their high bits.

PWRITE		EQU	*
		AND	#$7F	;clear high bits
		TAX		;save character
		JSR	PSETUP	;SETUP ZP STUFF, don't set ROM 
		LDA	#M_GOXY	;ARE WE DOING GOTOXY?
		BIT	MODE
		BNE	GETX	;=>Doing X or Y?
		TXA		;now check for control char
		BIT	PRTS	;is it control?
		BEQ	PCTL	;=>yes, do control
		LDY	OURCH	;get horizontal position
		BIT	INVFLG	;check for inverse
		BPL	@1	;inverse, go store it
		ORA	#$80
@1		JSR	PSTORY	;now store it (erasing cursor)
		INY		;INC CH 
		STY	OURCH
		CPY	WNDWDTH
		BCC	DOBASL
		STZ	OURCH	;do carriage return
		JSR	X_LF	;and linefeed 
DOBASL		LDA	BASL	;save BASL for pascal
		STA	OLDBASL
		LDA	BASH
		STA	OLDBASH
PWRITERET		JSR	PASINV	;display new cursor
		LDX	#$0	;return with no error
PRTS		RTS

*  HANDLE GOTOXY STUFF:

GETX		JSR	PASINV	;turn off cursor
		TXA		;get character 
		SEC
		SBC	#32	;MAKE BINARY
		BIT	XCOORD	;doing X?
		BMI	PSETX	;=>yes, set it

* Set Y and do the GOTOXY 

		STA	OURCV	;Do GETY
		STA	CV
		JSR	BASCALCC	;calc base addr 
		LDA	XCOORD
		STA	OURCH	;set cursor horizontal
		LDA	#255-M_GOXY	;turn off gotoxy 
		AND	MODE
		STA	MODE
		BNE	DOBASL	;=>DONE (ALWAYS TAKEN) 

PCTL		JSR	PASINV	;turn off cursor
		TXA		;get char
		CMP	#$1E	;is it gotoXY?
		BEQ	STARTXY	;=>yes, start it up
		JSR	CTLCHAR	;EXECUTE IT IF POSSIBLE
		BRA	DOBASL	;=>update BASL/H, cursor, exit 

* START THE GOTOXY SEQUENCE: 

STARTXY		EQU	*
		LDA	#M_GOXY
		TSB	MODE	;turn on gotoxy
		LDA	#$FF	;set XCOORD to -1
PSETX		STA	XCOORD	;set X
		BRA	PWRITERET	;=>display cursor and exit
		EJECT
* Do the normal monitor ROM BASCALCC

BASCALCC		EQU	*
		PHA
		LSR	A
		AND	#$03
		ORA	#$04
		STA	BASH
		PLA
		AND	#$18
		BCC	@1
		ADC	#$7F
@1		STA	BASL
		ASL	A
		ASL	A
		ORA	BASL	;Done this way since some programs
		STA	BASL	; depend on BASL on exit.
		RTS

****************************************
* NAME    : CTLCHAR0 
* FUNCTION: Execute CTL char if M_CTL=0 
* INPUT   : AC=CHAR 
* OUTPUT  : 'BCS' if not executed 
*         : 'BCC' if executed
* VOLATILE: NOTHING
* CALLS   : MANY THINGS 
****************************************

CTLCHAR0		SEP	#$40	;set V (use M_CTL) 
		OPCODE	BVC	;skip CLV 

****************************************
* NAME    : CTLCHAR
* FUNCTION: Always execute CTL char 
* INPUT   : AC=CHAR
* OUTPUT  : 'BCS' if not executed 
*         : 'BCC' if ctl executed 
* VOLATILE: NOTHING
* CALLS   : MANY THINGS 
****************************************

CTLCHAR		CLV		;clear V (ignore M_CTL)
		STA	TEMP1	;TEMP SAVE OF CHAR
		PHA		;SAVE AC
		PHY		;SAVE Y

		LDY	TEMP1	;GET CHAR IN QUESTION
		CPY	#$05	;IS IT NUL..EOT?
		BCC	@3	;=>YES, NOT USED
		LDA	CTLADH-5,Y	;Get high byte of address 
		BEQ	@3	;=>ctl not implemented
		BVC	@20	;=> CLTCHAR: always execute
		BMI	@20	;=>CR,BEL,LF,BS always done
		STA	TEMP1	;save high byte of address
		LDA	MODE	;if control chars
		AND	#M_CTL+M_CTL2	;are enabled
		BEQ	@2	;=>then go do them

@3		EQU	*
		SEC		;SAY 'NOT CTL'
		BCS	@4	;=>DONE

@2		LDA	TEMP1	;get address back
@20		EQU	*
		ORA	#$80	;hi bit always set
		JSR	@5	;EXECUTE SUBROUTINE

		CLC		;SAY 'CTL CHAR EXECUTED'
@4		EQU	*
		PLY		;Restore Y
		PLA		;  and A
		RTS

@5		EQU	*
		PHA		;PUSH ONTO STACK FOR 
		LDA	CTLADL-5,Y	; TRANSFER TRICK
		PHA
		RTS		;XFER TO ROUTINE

* Turn cursor on for Pascal only

X_CUR_ON		LDA	MODE	;get mode byte
		BPL	CURON_X	;=>not pascal, don't do it
		AND	#255-M_CURSOR	;clear cursor bit
SAVCUR		STA	MODE	;save it
CURON_X		RTS		;and exit

* Turn cursor off for Pascal only.
* Cursor is not displayed during call.

X_CUR_OFF		LDA	MODE	;get mode byte
		BPL	CURON_X	;=>not pascal, don't do it
		ORA	#M_CURSOR	;turn on cursor bit
		BNE	SAVCUR	;save and exit

* EXECUTE BELLC:

X_BELLC		EQU	*
		LDA	STATEREG	;Save where we are
		PHA		; on stack for later.
		ORA	#$08	;Map in monitor ROM
		STA	STATEREG	;
		JSR	BELL1	;Call monitor regular bell routine
		PLA		;Restore memory state of machine
		STA	STATEREG	;
		RTS		;Back to caller

* EXECUTE BACKSPACE:

X_BS		EQU	*
		DEC	OURCH	;BACK UP CH
		BPL	@1	;=>DONE
		LDA	WNDWDTH	;BACK UP TO PRIOR LINE
		STA	OURCH	;SET CH
		DEC	OURCH
		JSR	X_US	;NOW DO REV LINEFEED
@1		EQU	*
		RTS

* EXECUTE CARRIAGE RETURN:

X_CR		EQU	*
		STZ	OURCH	;Back up CH to beginning of line
		LDA	MODE	;ARE WE IN BASIC?
		BPL	X_LF	;EXECUTE AUTO LF FOR BASIC
		RTS		;Fall here if Pascal, avoid auto LF

* EXECUTE HOME:

X_EM		EQU	*
		LDA	WNDTOP
		STA	CV
		STZ	OURCH	;STUFF CH
		JMP	VTABC	;set base for OURCV

* EXECUTE FORWARD SPACE:

X_FS		EQU	*
		INC	OURCH	;BUMP CH
		LDA	OURCH	;GET THE POSITION
		CMP	WNDWDTH	;OFF THE RIGHT SIDE?
		BCC	@1	;=>NO, GOOD
		JSR	X_CR	;=>YES, WRAP AROUND

@1		EQU	*
		RTS

* EXECUTE REVERSE LINEFEED:

X_US		LDA	WNDTOP	;are we at top?
		CMP	CV
		BCS	X_USRET	;=>yes, stay there
		DEC	CV	;else go up a line
		JMP	VTABC	;exit thru VTABC (update OURCV)

* EXECUTE "NORMAL VIDEO" 

X_SO		EQU	*
		LDA	MODE	;SET MODE BIT
		BPL	@1	;don't set mode for BASIC
		AND	#255-M_VMODE	;SET 'NORMAL'
@1		LDY	#255
		BNE	STUFFINV	;(ALWAYS)

* EXECUTE "INVERSE VIDEO" 

X_SI		EQU	*
		LDA	MODE	;SET MODE BIT
		BPL	@1	;don't set mode for BASIC
		ORA	#M_VMODE	;SET 'INVERSE'
@1		LDY	#127
STUFFINV		STA	MODE	;SET MODE
		STY	INVFLG	;STUFF FLAG TOO
X_USRET		RTS

* Enable change cursor mode.

X_CHCUR		EQU	*
		LDA	#$81	;Set change cursor flag '-'
		STA	>CHGCURFLG	;
		RTS		; and then exit.

CTLADL		EQU	*
		DC.B	X_CUR_ON-1	;ENQ    (Control-E)
		DC.B	X_CUR_OFF-1	;ACK   (Control-F)
		DC.B	X_BELLC-1		;BEL    (Control-G)
		DC.B	X_BS-1		;BS     (Control-H)
		DC.B	0		;HT     (Control-I)
		DC.B	X_LF-1		;LF     (Control-J)
		DC.B	X_VT-1		;VT     (Control-K)
		DC.B	X_FF-1		;FF     (Control-L)
		DC.B	X_CR-1		;CR     (Control-M)
		DC.B	X_SO-1		;SO     (Control-N)
		DC.B	X_SI-1		;SI     (Control-O)
		DC.B	0		;DLE    (Control-P)
		DC.B	X_DC1-1		;DC1    (Control-Q)
		DC.B	X_DC2-1		;DC2    (Control-R)
		DC.B	0		;DC3    (Control-S)
		DC.B	0		;DC4    (Control-T)
		DC.B	X_NAK-1		;NAK    (Control-U)
		DC.B	SCROLLDN-1	;SYN    (Control-V)
		DC.B	SCROLLUP-1	;ETB    (Control-W)
		DC.B	MOUSEOFF-1	;CAN    (Control-X)
		DC.B	X_EM-1		;EM     (Control-Y)
		DC.B	X_SUB-1		;SUB    (Control-Z)
		DC.B	MOUSEON-1		;       (Control-[)
		DC.B	X_FS-1		;FS     (Control-\)
		DC.B	X_GS-1		;GS     (Control-Shift-M or Control-])
		DC.B	X_CHCUR-1		;RS     (Control-^)
		DC.B	X_US-1		;US     (Control-_)

CTLADH		EQU	*
		DC.B	X_CUR_ON-$8001>>8	;ENQ	(Control-E)
		DC.B	X_CUR_OFF-$8001>>8	;ACK	(Control-F)
		DC.B	X_BELLC-1>>8	;BEL      (Control-G)
		DC.B	X_BS-1>>8		;BS       (Control-H)
		DC.B	0		;HT       (Control-I)
		DC.B	X_LF-1>>8		;LF       (Control-J)
		DC.B	X_VT-$8001>>8	;VT       (Control-K)
		DC.B	X_FF-$8001>>8	;FF       (Control-L)
		DC.B	X_CR-1>>8		;CR	(Control-M)
		DC.B	X_SO-$8001>>8	;SO	(Control-N)
		DC.B	X_SI-$8001>>8	;SI	(Control-O)
		DC.B	0		;DLE	(Control-P)
		DC.B	X_DC1-$8001>>8	;DC1	(Control-Q)
		DC.B	X_DC2-$8001>>8	;DC2	(Control-R)
		DC.B	0		;DC3      (Control-S)
		DC.B	0		;DC4      (Control-T)
		DC.B	X_NAK-$8001>>8	;NAK	(Control-U)
		DC.B	SCROLLDN-$8001>>8	;SYN	(Control-V)
		DC.B	SCROLLUP-$8001>>8	;ETB	(Control-W)
		DC.B	MOUSEOFF-$8001>>8	;CAN	(Control-X)
		DC.B	X_EM-$8001>>8	;EM       (Control-Y)
		DC.B	X_SUB-$8001>>8	;SUB	(Control-Z)
		DC.B	MOUSEON-$8001>>8	;	(Control-[)
		DC.B	X_FS-$8001>>8	;FS       (Control-\)
		DC.B	X_GS-$8001>>8	;GS       (Control-Shift-M or Control-])
		DC.B	X_CHCUR>>8	;RS       (Control-^)
		DC.B	X_US-$8001>>8	;US       (Control-_)


		EJECT
* SCROLLIT scrolls the screen either up or down, depending
* on the value of X.  It scrolls within windows with even 
* or odd edges for both 40 and 80 columns.  It can scroll
* windows down to 1 characters wide.

SCROLLDN		LDY	#0	;direction = down
		BEQ	SCROLLIT	;=>go do scroll

* EXECUTE LINEFEED:

X_LF		EQU	*
		INC	CV
		LDA	CV	;SEE IF OFF BOTTOM
		STA	OURCV
		CMP	WNDBTM	;OFF THE END?
		BCS	@1	;=>yes, scroll screen 
		JMP	VTABCZ	;exit thru VTABCZ

@1		EQU	*
		DEC	OURCV	;back up to bottom
		DEC	CV	;and fall into scroll 

SCROLLUP		LDY	#1	;direction = up

SCROLLIT		EQU	*
		LDA	CYAREG	;Save system speed
		PHA		;
		ORA	#$80	; then go to hi speed mode for scroll
		STA	CYAREG	;
		JSR	@1	;Do regular scroll routines
		PLA		; then restore user speed
		STA	CYAREG	;
		RTS		;Back to caller

@1		EQU	*
		PHX		;Save 'X'
		STY	TEMP1	;save direction
		LDA	WNDWDTH	;get width of screen window
		PHA		;save original width
		BIT	RD80VID	;in 40 or 80 columns?
		BPL	@4	;=>40, determine starting line
		STA	SET80COL	;make sure this is enabled
		LSR	A	;divide by 2 for 80 column index
		TAX		;and save
		LDA	WNDLFT	;test oddity of right edge
		LSR	A	;by rotating low bit into carry
		CLV		;V=0 if left edge even
		BCC	@2	;=>check right edge
		SEP	#$40	;V=1 if left edge odd
@2		ROL	A	;restore WNDLFT
		EOR	WNDWDTH	;get oddity of right edge
		LSR	A	;C=1 if right edge even 
		BVS	@3	;if odd left, don't DEY
		BCS	@3	;if even right, don't DEY
		DEX		;if right edge odd, need one less
@3		STX	WNDWDTH	;save window width
		LDA	RD80VID	;N=1 if 80 columns
@4		PHP		;save N,Z,V
		LDX	WNDTOP	;assume scroll from top
		TYA		;up or down?
		BNE	@5	;=>up
		LDX	WNDBTM	;down, start scrolling at bottom
		DEX		;really need one less

@5		TXA		;get current line
		JSR	VTABCZ	;calculate base with window width

@6		LDA	BASL	;current line is destination  
		STA	BAS2L
		LDA	BASH
		STA	BAS2H

		LDA	TEMP1	;test direction
		BEQ	@44	;=>do the downer
		INX		;do next line
		CPX	WNDBTM	;done yet?
		BCS	@55	;=>yup, all done
@7		TXA		;set new line
		JSR	VTABCZ	;get base for new current line
		LDY	WNDWDTH	;get width for scroll 
		PLP		;get status for scroll
		PHP		;N=1 if 80 columns 
		BPL	@8	;=>only do 40 columns
		LDA	TXTPAGE2	;scroll aux page first (even bytes)
		TYA		;test Y
		BEQ	@11	;if Y=0, only scroll one byte
@9		LDA	(BASL),Y
		STA	(BAS2L),Y
		DEY
		BNE	@9	;do all but last even byte
@11		BVS	@22	;odd left edge, skip this byte 
		LDA	(BASL),Y
		STA	(BAS2L),Y
@22		LDA	TXTPAGE1	;now do main page (odd bytes)
		LDY	WNDWDTH	;restore width 
		BCS	@8	;even right edge, skip this byte
@33		LDA	(BASL),Y
		STA	(BAS2L),Y
@8		DEY
		BPL	@33
		BMI	@6	;=> always scroll next line

@44		DEX		;do next line
		CPX	WNDTOP	;done yet
		BPL	@7	;=>nope, not yet

@55		PLP		;pull status off stack
		PLA		;restore window width
		STA	WNDWDTH
		JSR	X_SUB	;clear current line
		JSR	VTABC	;restore original cursor line
		PLX		;and X
		RTS		;done!!!

* EXECUTE CLR TO EOS:

X_VT		JSR	X_GS	;CLEAR TO EOL
		LDA	CV	;SAVE CV
		PHA
		BPL	@1	;DO NEXT LINE (ALWAYS TAKEN) 
@2		JSR	VTABCZ	;set base address 
		JSR	X_SUB	;CLEAR LINE
@1		INC	CV
		LDA	CV
		CMP	WNDBTM	;OFF SCREEN?
		BCC	@2	;=>NO, KEEP GOING
		PLA		;RESTORE
		STA	CV	; CV
		JMP	VTABC	;return via VTABC (blech)

* EXECUTE CLEAR:

X_FF		EQU	*
		JSR	X_EM	;HOME THE CURSOR
		BRA	X_VT	;RETURN VIA CLREOS (UGH!) 

* EXECUTE CLEAR LINE

X_SUB		LDY	#0	;start at left
		BEQ	X_GSEOLZ	;and clear to end of line

* EXECUTE CLEAR TO EOL:

X_GS		LDY	OURCH	;get CH
X_GSEOLZ		LDA	INVFLG	;mask blank
		AND	#$80	;with high bit of invflg
		ORA	#$20	;make it a blank
		BIT	RD80VID	;is it 80 columns?
		BMI	CLR80	;=>yes do quick clear
CLR40		STA	(BASL),Y
		INY
		CPY	WNDWDTH
		BCC	CLR40
		RTS

* Clear right half of screen for 40 to 80
* screen conversion

CLRHALF		PHX		;save X
		LDX	#$D8	;set horizontal counter
		LDY	#20
		LDA	INVFLG	;set (inverse) blank
		AND	#$A0
		BRA	CLR2

* Clear to end of line for 80 columns

CLR80		PHX		;save X
		PHA		;and blank
		TYA		;get count for CH
		PHA		;save for left edge check
		SEC		;count=WNDWDTH-Y-1
		SBC	WNDWDTH
		TAX		;save CH counter
		TYA		;div CH by 2 for half pages
		LSR	A
		TAY
		PLA		;restore original ch
		EOR	WNDLFT	;get starting page
		ROR	A
		BCS	@1
		BPL	@1
		INY		;if WNDLFT odd, starting byte odd
@1		PLA		;get blank
		BCS	CLR1	;starting page is 1 (default)
CLR2		BIT	TXTPAGE2	;else do page 2
		STA	(BASL),Y
		BIT	TXTPAGE1	;now do page 1
		INX
		BEQ	CLR3	;all done
CLR1		STA	(BASL),Y
		INY		;forward 2 columns
		INX		;next ch
		BNE	CLR2	;not done yet
CLR3		PLX		;restore X
		SEC		;good exit condition
		RTS		;and return

* EXECUTE '40COL MODE':

X_DC1		EQU	*
		LDA	MODE	;don't convert if Pascal
		BMI	X_DC1RTS	;=>it's Pascal
X_DC1A		JSR	SETTOP	;set top of window (0 or 20)
		BIT	RD80VID	;are we in 80 columns?
		BPL	X_DC1B	;=>no, no convert needed
		JSR	SCRN84	;else convert 80 to 40
		BCC	X_DC1B	;=>always set new window

* Set 80 column mode

X_DC2		EQU	*
		BIT	RD80VID	;are we in 40 columns?
		BMI	X_DC1B	;=>no, no convert needed
		JSR	SCRN48	;else convert 40 to 80

X_DC1B		LDA	OURCH	;get cursor
		CLC		;since new window left = 0
		ADC	WNDLFT	;NEWCH=OLDCH+OLDWNDLFT
		BIT	RD80VID	;in 80 columns?
		BMI	@2	;=>yes, CH is ok
		CMP	#40	;else if CH is too big,
		BCC	@2	;set it to 39
		LDA	#39
@2		STA	OURCH	;save new CH
		STA	CH
		LDA	CV	;base
		JSR	BASCALCC
		BIT	RD80VID	;in 80 columns?
		BPL	DO40	;=>no, set forty column window

		JSR	FULL80	;set 80 column window
		BRA	SETTOP	;=>always branch

DO40		JSR	FULL40	;set 40 column window
SETTOP		LDA	#0	;assume normal window
		BIT	RDTEXT	;text or mixed?
		BMI	@1	;=>text, all ok
		LDA	#20
@1		STA	WNDTOP	;set new top
X_DC1RTS		RTS

* EXECUTE MOUSE TEXT OFF

MOUSEOFF		LDA	#M_MOUSE	;Set mouse bit
		TSB	MODE	;
		RTS		;to disable mouse chars

* EXECUTE MOUSE TEXT ON

MOUSEON		LDA	#M_MOUSE	;Reset mouse bit
		TRB	MODE	;
		RTS		;to enable mouse chars

* EXECUTE 'QUIT':

X_NAK		EQU	*
		LDA	MODE	;ONLY VALID IN BASIC
		BMI	SKRTS	;ignore if pascal
X_NAK2		EQU	*
		JSR	DO40	;force 40 column window
		JSR	QUIT	;do stuff used by PR#0
		JSR	SETCOUT1	;set output hook

SETKEYIN		LDA	#>KEYIN	;set input hook
		STA	KSWH
		LDA	#<KEYIN
		STA	KSWL
		RTS

SETCOUT1		LDA	#>COUT1	;set output hook
		STA	CSWH
		LDA	#<COUT1
		STA	CSWL
SKRTS		RTS

****************************************
* NAME    : FULL40
* FUNCTION: SET FULL 40COL WINDOW
* INPUT   : NONE
* OUTPUT  : WINDOW PARAMETERS, A=0 
* VOLATILE: AC
****************************************

FULL40		EQU	*
		LDA	#40	;set window width to 40
		BNE	SAVWDTH	;=>(always taken)

****************************************
* NAME    : FULL80 
* FUNCTION: SET FULL 80COL WINDOW
* INPUT   : NONE
* OUTPUT  : WINDOW PARAMETERS, A=0 
* VOLATILE: AC
****************************************

FULL80		LDA	#80	;set full 80 column window
SAVWDTH		STA	WNDWDTH
		LDA	#24
		STA	WNDBTM
		STZ	WNDTOP
		STZ	WNDLFT
		LDA	#$00	;MUST exit with 'A'=0
		RTS

* QUIT is used by PR#0 to turn off everything

QUIT		EQU	*
		BIT	RD80VID	;were we in 80 columns?
		BPL	QUIT2	;=> not a chance
		JSR	X_DC1A	;switch to 40 columns
QUIT2		STA	CLRALTCHAR	;don't use lower case 
		LDA	#$FF	;DESTROY THE
		STA	MODE	; MODE BYTE
		STA	>CURSOR	;Set checkerboard cursor
		RTS

* SCRN84 and SCRN48 convert screens between 40 & 80 cols.
* WNDTOP must be set up to indicate the last line to
* be done.  All registers are trashed.

SCRN84		EQU	*
		PHX		;Save 'X'
		LDX	#23	;start at bottom of screen
		STA	SET80COL	;allow page 2 access
@1		TXA		;calc base for line
		JSR	BASCALCC
		LDY	#39	;start at right of screen
@2		STY	BAS2L	;save 40 index
		TYA		;div by 2 for 80 column index
		LSR	A
		BCS	@3
		BIT	TXTPAGE2	;even column, do page 2
@3		TAY		;get 80 index
		LDA	(BASL),Y	;get 80 char 
		BIT	TXTPAGE1	;restore page1
		LDY	BAS2L	;get 40 index
		STA	(BASL),Y
		DEY
		BPL	@2	;do next 40 byte
		DEX		;do next line
		BMI	@4	;=>done with setup
		CPX	WNDTOP	;at top yet? 
		BCS	@1
@4		STA	CLR80COL	;clear 80STORE for 40 columns
		STA	CLR80VID	;clear 80VID for 40 columns
		BRA	SCRNRET	;calc base, restore X, exit

SCRN48		EQU	*	;
		PHX		;Save X
		LDX	#23	;start at bottom of screen
@5		TXA		;set base for current line
		JSR	BASCALCC
		LDY	#0	;start at left of screen
		STA	SET80COL	;enable page2 store
@6		LDA	(BASL),Y	;get 40 column char
		STY	BAS2L	;save 40 column index
		PHA		;save char
		TYA		;div 2 for 80 column index
		LSR	A
		BCS	@7	;save on page1
		STA	TXTPAGE2
@7		TAY		;get 80 column index
		PLA		;now save character
		STA	(BASL),Y
		STA	TXTPAGE1	;flip page1
		LDY	BAS2L	;restore 40 column index
		INY		;move to the right
		CPY	#40	;at right yet?
		BCC	@6	;=>no, do next column
		JSR	CLRHALF	;clear half of screen
		DEX		;else do next line of screen
		BMI	@9	;=>done with top line
		CPX	WNDTOP	;at top yet?
		BCS	@5
@9		STA	SET80VID	;convert to 80 columns
SCRNRET		JSR	VTABC	;update base
		PLX		;restore X
		RTS

VTABC		LDA	CV	;get 80 column CV
		STA	OURCV	;copy to OURCV
VTABCZ		JSR	BASCALCC	;calc base address
		LDA	WNDLFT	;and add window left to it
		BIT	RD80VID	;is it 80 columns?
		BPL	@1	;window width ok
		LSR	A	;else divide width by 2
@1		CLC		;prepare to add
		ADC	BASL	;add in window left
		STA	BASL	;and update base
		RTS		;and exit
		EJECT
UPSHFT		CMP	#$E1	;is it lowercase?
		BCC	@2	;=>nope
		CMP	#$FB	;lowercase?
		BCS	@2	;=>nope
		AND	#$DF	;else upshift
@2		RTS

****************************************
* NAME    : PICKY
* FUNCTION: GET A CHAR FROM SCREEN
* INPUT   : Y=CH POSITION 
* OUTPUT  : AC=CHARACTER
* VOLATILE: NOTHING
* CALLS   : SCREENIT 
****************************************

PICKY		EQU	*
		PHY		;Save 'Y' register value
		JSR	GETCUR	;Get newest cursor into 'Y'
		OPCODE.zpg LDA	;Skip next PHY

PPICKY		EQU	*
		PHY		;Save 'Y' register value
PPICKY2		EQU	*
		LDA	(BASL),Y	;get 40 column character
		BIT	RD80VID	;80 columns?
		BPL	@3	;=>no, do text shift 
		STA	SET80COL	;force 80STORE for 80 columns 
		TYA		;divide CH by two
		EOR	WNDLFT	;C=1 if char in main RAM
		ROR	A	;get low bit into carry
		BCS	@1	;=>store in main memory
		LDA	TXTPAGE2	;else switch in page 2
		INY		;for odd left, aux bytes
@1		TYA		;divide position by 2
		LSR	A	;and use carry as
		TAY		;page indicator
		LDA	(BASL),Y	;get that char
		BIT	TXTPAGE1	;flip to page 1
@3		BIT	ALTCHARSET	;only allow mouse text
		BPL	@4	;if alternate character set
		CMP	#$20
		BCS	@4
		ORA	#$40
@4		EQU	*
		PLY		;Restore entry 'Y' value
		RTS

****************************************
* NAME    : STORCH
* FUNCTION: STORE A CHAR ON SCREEN
* INPUT   : AC=CHAR 
*         :  Y=CH POSITION
* OUTPUT  : CHAR ON SCREEN
* VOLATILE: NOTHING
* CALLS   : Exits into STOR2
****************************************

STORCH		EQU	*
		PHA		;Save 'A'
		JSR	@1	;Come back to here to restore 'A'
		PLA		;
		RTS		; then go back to caller.

@1		EQU	*
		BIT	INVFLG	;NORMAL OR INVERSE?
		BMI	STORY	;=>NORMAL
		AND	#$7F	;inverse it

****************************************
* NAME    : STORY 
* FUNCTION: STORE CHAR
* INPUT   : AC=char for store
*         :  Z=high bit of char
*         :  Y=CH POSITION
* OUTPUT  : AC=CHAR (PICK) 
* VOLATILE: NOTHING 
* CALLS   : NOTHING 
****************************************

STORY		EQU	*
		PHA		;Save character
		JSR	GETCUR	;Put newest cursor pstn into 'Y'
		BRA	PSTORY2	;Skip PHA

PSTORY		EQU	*
		PHA		;save char 
PSTORY2		EQU	*
		AND	#$FF	;if high bit set... 
		BMI	@1	;=>not mouse text
		LDA	MODE	;is mouse text enabled?
		ROR	A	;use carry as flag
		PLA		;and restore char
		PHA		;need to save it too
		BCC	@1
		BIT	ALTCHARSET	;only do mouse text if
		BPL	@1	;alt char set switched in
		EOR	#$40	;do mouse shift
		BIT	#$60	;is it in proper range?
		BEQ	@1	;=>yes, leave it 
		EOR	#$40	;else shift it back 

@1		BIT	RD80VID	;80 columns?
		BPL	@3	;=>no, 40 columns
		STA	SET80COL	;force 80STORE for 80 columns
		PHY		;Save 'Y' value
		PHA		;save shifted character
		TYA		;get position  
		EOR	WNDLFT	;C=1 if char in main RAM
		LSR	A
		BCS	@2	;=>yes, main RAM
		LDA	TXTPAGE2	;else flip in main RAM
		INY		;do this for odd left bytes
@2		TYA		;get position
		LSR	A	;and divide it by 2
		TAY
		PLA		;restore acc
		STA	(BASL),Y	;save to screen
		LDA	TXTPAGE1	;flip to page 1
		PLY		;Restore 'Y' value
		PLA		;restore true Acc
		RTS		;and exit

@3		STA	(BASL),Y	;quick 40 column store
		PLA		;restore real char
		RTS

****************************************
* NAME    : ESCON
* FUNCTION: TURN ON 'ESCAPE' CURSOR
* INPUT   : NONE
* OUTPUT  : 'CHAR'=ORIGINAL CHAR 
* VOLATELE: NOTHING
* CALLS   : PICK,STORCHAR
****************************************

ESCON		EQU	*
		PHY		; AND Y
		PHA		;SAVE AC
		JSR	PICKY	;GET ORIGINAL CHARACTER
		STA	CHAR	; AND REMEMBER FOR ESCOFF
		AND	#$80	;SAVE NORMAL/INVERSE BIT
		EOR	#$AB	;MAKE IT AN INVERSE '+'
ESCON2		EQU	*
		JSR	STORY	; ONTO SCREEN
ESCON4		EQU	*
		PLA		; AND A
		PLY		;RESTORE Y
ESCON6		EQU	*
		RTS

****************************************
* NAME    : ESCOFF
* FUNCTION: TURN OFF 'ESCAPE' CURSOR
* INPUT   : 'CHAR'=ORIGINAL CHAR
* OUTPUT  : NONE
* VOLATILE: NOTHING
* CALLS   : STORCHAR
****************************************

ESCOFF		EQU	*
		PHY		; AND Y
		PHA		;SAVE AC
		LDY	OURCH	;GET CH 
		LDA	CHAR	;GET ORIGINAL CHARACTER
		BRA	ESCON2	;Exit this way

****************************************
* NAME    : INVERT
* FUNCTION: INVERT CHAR AT CH/CV
*         : Unless Pascal and M_CURSOR=1
* INPUT   : NOTHING
* OUTPUT  : CHAR AT CH/CV INVERTED
* VOLATILE: NOTHING
* CALLS   : PICK, STORCHAR 
****************************************

PASINV		LDA	MODE	;check pascal cursor flag
		AND	#M_CURSOR	;before displaying cursor
		BNE	ESCON6	;=>cursor off, don't invert
		PHY		; AND Y
		PHA		;save AC
		LDY	OURCH	;Get cursor position to 'pick' from
		JSR	PPICKY	;GET CHARACTER
		EOR	#$80	;FLIP INVERSE/NORMAL
		JSR	PSTORY	; ONTO SCREEN
		BRA	ESCON4	;Exit this way to save a byte

****************************************
* NAME    : PSETUP
* FUNCTION: SETUP ZP FOR PASCAL
* INPUT   : NONE
* OUTPUT  : NONE
* VOLATILE: AC
* CALLS   : NOTHING
****************************************

PSETUP		EQU	*
		JSR	FULL80	;SET FULL 80COL WINDOW
		LDA	#255
		STA	INVFLG	;ASSUME NORMAL MODE

		LDA	MODE
		AND	#M_VMODE
		BEQ	@1	;=>IT'S NORMAL
		LSR	INVFLG	;MAKE IT INVERSE

@1		EQU	*
		LDA	OLDBASL	;SET UP BASE ADDRESS
		STA	BASL
		LDA	OLDBASH
		STA	BASH
		LDA	OURCV	;get user's cursor vertical
		STA	CV	;and set it up
		RTS

****************************************
*
* COPYROM is called when the video firmware is 
* initialized.  If the language card is switched
* in for reading, it copies the F8 ROM to the 
* language card and restores the state of the    
* language card.
*
****************************************

COPYROM		BIT	RDLCRAM	;is the LC switched in?
		BPL	@22	;=>no, do nothing
		LDA	#GOODF8	;yes, check $F8 RAM
		CMP	F8VERSION	;does it match?
		BEQ	@22	;=> assum ROM is there
		LDX	#3	;indicate bank 2, RAM write enabled
		BIT	RDLCBNK2	;is it bank 2?
		BMI	@1	;=>yes, we were right
		LDX	#$B	;no, bank 1, RAM write enabled
@1		STA	F8VERSION	;write to see if LC is
		BIT	$C080	;write protected (read RAM)
		LDA	F8VERSION	;did it change?
		CMP	#GOODF8
		BEQ	@2	;=>yes, write enabled
		INX		;else indicate write protect
@2		BIT	$C081	;read ROM, write RAM
		BIT	$C081	;twice is nice
		LDY	#$0	;now copy ROM to RAM
		LDA	#$F8
		STA	CSWH	;hooks set later 
		STY	CSWL
@11		LDA	(CSWL),Y	;get a byte
		STA	(CSWL),Y	;and move it
		INY
		BNE	@11
		INC	CSWH	;next page
		BNE	@11
		LDA	$C080,X	;restore language card
		LDA	$C080,X	;twice to cover all cases
@22		RTS		;and return


		EJECT

* SHOWCUR displays either a checkerboard cursor, a solid 
* rectangle, or the current cursor character, depending
* on the value of the CURSOR location.  0=inverse cursor,
* $FF=checkerboard cursor, anything else is displayed 
* after being anded with inverse mask.

SHOWCUR		EQU	*	;what's my type?
		PHA		;Save 'A'
		LDA	>CURSOR	;Get type
		TAY		;'Y' needs to be cursor value
		BNE	SHOWCUR4	;=>not inverse
		PLA		;Restore 'A'
SHOWCUR2		EQU	*
		PHY		;Preserve 'Y' around call
		JSR	PICKY	;Get character
		PHA		;Save character
		EOR	#$80	;Flip inverse/normal
		JMP	ESCON2	;Exit via return routine

* Exit with char in accumulator

SHOWCUR4		EQU	*
		PLA		;Recall 'A'
		JSR	PICKY	;get char on screen
		PHA		;preserve it
		STA	>NXTCUR	;save for update
		TYA		;test for checkerboard
		INY
		BEQ	@2	;=>checkerboard, display it
		PLY		;test char
		PHY
		BMI	@2	;don't need inverse 
		LDA	ALTCHARSET	;mask = $7F if alternate
		ORA	#$7F	; character set, 
		LSR	A	;$3F if normal char set
		AND	>CURSOR	;form char to display
@2		JSR	STORY	;and display it
		PLA		;restore real char
		RTS

* The UPDATE routine increments the random seed.  
* If a certain value is reached and we are in Apple II
* mode, the blinking check cursor is updated.  If a
* key has been pressed, the old char is replaced on the
* screen, and we return with BMI.  

UPDATE		EQU	*
		XBA		;Save 'A' in 'B'
		LDA	CYAREG	;Always flash at 1 megahertz
		ORA	#$80	;Shift to high speed
		PHA		;Save place for 'P' status on stack
		PHA		;Save speed on stack
		STA	CYAREG	;
		XBA		;Restore 'A' from 'B'
		PHA		;save char
		INC	RNDL	;update seed
		BNE	@1	;check for key
		INC	RNDH
		LDA	>CURSHIFTER	;Do we or don't we flash cursor
		DEC	A	;Shift til = 0 then flash
		STA	>CURSHIFTER	;
		BPL	@1	;
		JSR	FIXCURSHIFTER	;Fix cursor flash rate
		LDA	>CURSOR	;what cursor are we using?
		BEQ	@1	;=>//e cursor, leave alone
		PHY		;+ Save Y
		JSR	PICKY	;get the character into A 
		PHA		;Save 'A'
		LDA	>NXTCUR	;get next character
		TAY		;'Y' must contain NXTCUR
		PLA		;Restore 'A'
		STA	>NXTCUR	;save next character
		TYA
		JSR	STORY	;and print it 
		PLY		;+
@1		PLA		;get real char
		JSR	XBITKBD	;was a key pressed?
		PHP		;Get result status
		PHP		;Get result status
		XBA		;Save 'A' in 'B'
		PLA		;Recall status
		STA	3,S	;Put in 'P' position on stack
		XBA		;Restore 'A'
		PLP		;Restore 'n' status
		BPL	@2	;=>no key pressed

*  + restore old key look for key and exit

		JSR	STORY	;
		JSR	XRDKBD	;
@2		EQU	*
		XBA		;Save 'A' in 'B'
		PLA		;Restore system speed
		AND	#$7F	;Strip off speed bit
		ORA	>SYSTEMSPD	;Or in system speed mask
		STA	CYAREG	;
		XBA		;Restore keypress to 'A' from 'B'
		PLP		;Restore 'n' status
		RTS		;Back to caller


* This routine is used by communications firmware. 

SETHOOKS		EQU	*
		JSR	C3HOOKS	;Set up $C3xx hooks
		LDA	#$00	;set a solid inverse cursor
		STA	>CURSOR	;
		LDA	#$FF-M_CTL	;preserve M_CTL bit
		TRB	MODE	;set mode bits
		STA	SETALTCHAR	;and set alternate char set 
		RTS		;Back to caller




		TITLE	'Keyboard Input'

******************************************************
*                                                    *
*          Monitor Keyboard Pickup Routines          *
*                                                    *
*                         by                         *
*                    Fern Bachman                    *
*                                                    *
*       Copyright Apple Computer, Inc. 1985-1987     *
*                All Rights Reserved.                *
*                                                    *
******************************************************

* All input is directed through this code.
* It is done in case we change the way
* keyboard input is done in the future.

XRKBD1		EQU	*
		LDA	KBD	;test keyboard directly
		BPL	XRDKBD	;loop if buffered since test. 
		STA	KBDSTRB	;Clear keyboard strobe.
XNOKEY		RTS		;Minus flag indicates valid character

XRDKBD		EQU	*
		JSR	XBITKBD	;is keyboard input ready? 
		BPL	XNOKEY	;Branch if not.
		BCC	XRKBD1	;Branch if direct KBD input.

		IF IS512 <> 0 THEN
		RTS		;Should never be executed
		ELSE

* If here then event manager has a key for us.
* We probably should get it to humor the caller.

GETEVMEVENT	EQU	*	;Get event manager key press event
		PHA		;Preserve 'A','X','Y'
		PHX		;
		PHY		;
		CLC		;Be sure in native mode
		XCE		;
		PHP		;Save entry status
		SEC		;Indicate from here
		JSR	CALLEVM	;Call event manager
		BEQ	NOEVMKEYS	;= then no event manager keys pressed
		PLP		;Restore entry status
		XCE		;
		PLY		;Recall 'Y'
		PLX		;Recall 'X'
		PLA		;Recall entry 'A'
		LDA	>EVMKEY	;Get key pressed from buffer
		ORA	#$80	;ALWAYS set hi bit for monitor firmware
		SEC		;Indicate key in 'A'
		RTS		;Back to caller

		ENDIF

XBITKBD		EQU	*	;This rtne replaces "BIT KBD" instructions
		IF IS512 <> 0 THEN
		JMP	XBKB2	;Test hardware directly
		ELSE

		PHA		;MUST save accumulator unless key pressed
		PHX		;Preserve 'X'
		PHY		;Preserve 'Y'
		CLC		;Switch to native mode and save entry mode
		XCE		;
		PHP		;'c' has entry 'e' value in it
		REP	#$30	;16 bit land a must for tool calls
		PEA	$0000	;Result byte
		LONGI	ON
		LDX	#ACTFN*256+EMTN	;Function number*256+tool number
		LONGI	OFF
		JSL	>DISPATCH1	;Call tool locator
		PLA		;Recall active status
		BNE	TSTNXTEVENT	;<>= then event manager is active
		PLP		;Restore entry status
		XCE		;Restore entry stat (native or emulation)
		PLY		;Recall 'Y'
		PLX		;Recall 'X'
		PLA		;Recall entry 'A'
		BRA	XBKB2	;Exit this way


TSTNXTEVENT	EQU	*
		SEP	#$30	;Fix CURSHIFTER for cursor flashing
		LDA	#$00	;
		STA	>CURSHIFTER	;
		CLC		;Indicate from here
		JSR	CALLEVM	;Call event manager
		BEQ	NOEVMKEYS	;= then no event manager keys pressed
		PLP		;
		XCE		;
		LDA	>WHATEVENT	;What event now?
		CMP	#$0A	;$0A is desk accessory event
		BEQ	TSTNXTEVENT2	;= then cause desk acc event to happen
		SEC		;Indicate EVM active
		PLY		;Recall 'Y'
		PLX		;Recall 'X'
		PLA		;Recall entry 'A'
		SEP	#$80	;'-' if key pressed
		RTS		;Back to caller

NOEVMKEYS		EQU	*	;Branch here if no event mgr keys pressed
		PLP		;Restore entry status
		XCE		;
NOEVMKEYS4	EQU	*
		SEC		;Indicate EVM active
		PLY		;Recall 'Y'
		PLX		;Recall 'X'
		PLA		;Recall entry 'A'
		REP	#$80	;'+' if no key pressed
		RTS		;Back to caller

		ENDIF


XBKB2		BIT	KBD	;test KBD Directly
		CLC		;indicate direct test
		RTS


		IF IS512 <> 0 THEN
		ELSE


TSTNXTEVENT2	EQU	*
		JSR	GETEVMEVENT	;Always allow desk acc event to work
		BRA	NOEVMKEYS4	;

CALLEVM		EQU	*	;Call event manager
		REP	#$30	;16 bit land a must for tool calls
		PEA	$0000	;Result status
		PEA	$0428	;Look for dsk acc/auto repeat/key pressed
		PEA	EVMKEYBUFF>>16	;Bank number of EVM key buffer
		PEA	|EVMKEYBUFF	;Address number of EVM key buffer
		LONGI	ON
		LDX	#GNEFN*256+EMTN	;Function number*256 + tool number
		BCS	@1	;'c'=1 then skip next instruction
		LDX	#EAFN*256+EMTN	;Function number+256+tool number
		LONGI	OFF
@1		EQU	*
		JSL	>DISPATCH1	;Call tool locator
		PLA		;Was a key pressed?
		RTS		;Back to caller with call status in 'A'
		ENDIF




* WARNING Instuction at $CFFE must NOT be one
*         that does false read to $CFFF.  An RTS
*         is an instruction which does a false
*         read of $CFFF and therefore cannot be
*         located at $CFFE.


\ No newline at end of file
diff --git a/IIGS.601.SRC/GSFirmware/Monitor/autostart.aii b/IIGS.601.SRC/GSFirmware/Monitor/autostart.aii
new file mode 100644
index 0000000..93f4ec0
--- /dev/null
+++ b/IIGS.601.SRC/GSFirmware/Monitor/autostart.aii
@@ -0,0 +1 @@
+		TITLE	'Auto-Start Monitor ROM'
		
;	This EdAsm/Asm816 source code file was converted to AsmIIGS
;	by EdAsmCvtIIGS version 1.2d3 on 5/6/91 at 8:29:45 PM

*****************************************
*                                       *
*               APPLE II                *
*              MONITOR II               *
*                                       *
*    Copyright 1978, 1981, 1984-1989    *
*                   by                  *
*          Apple Computer, Inc.         *
*                                       *
*          All Rights Reserved          *
*                                       *
*       S. Wozniak             1977     *
*       A. Baum                1977     *
*       John A            Nov  1978     *
*       R. Auricchio      Sep  1981     *
*       E. Beernink            1984     *
*       E.K. Lai          Sep  1984     *
*       F. Bachman          1985-1987   *
*       Joe Bo              1988-1989   *
*                                       *
*****************************************


PLOT		EQU	*	;Maintained entry point $F800
		LSR	A	;Y-COORD/2 
		PHP		;SAVE LSB IN CARRY 
		JSR	GBASCALC	;CALC BASE ADR IN GBASL,H 
		PLP		;RESTORE LSB FROM CARRY 
		LDA	#$0F	;MASK $0F IF EVEN 
		BCC	@1
		ADC	#$E0	;MASK $F0 IF ODD 
@1		STA	MASK
PLOT1		EQU	*	;Maintained entry point $F80E
		LDA	(GBASL),Y	;DATA 
		EOR	COLOR	; XOR COLOR 
		AND	MASK	;  AND MASK 
		EOR	(GBASL),Y	;   XOR DATA 
		STA	(GBASL),Y	;    TO DATA 
		RTS

HLINE		EQU	*	;Maintained entry point $F819
		JSR	PLOT	;PLOT SQUARE 
@1		CPY	H2	;DONE? 
		BCS	RTS1	; YES, RETURN 
		INY		; NO, INCR INDEX (X-COORD) 
		JSR	PLOT1	;PLOT NEXT SQUARE 
		BCC	@1	;ALWAYS TAKEN 
VLINEZ		ADC	#$01	;NEXT Y-COORD 
VLINE		EQU	*	;Maintained entry point $F828
		PHA		; SAVE ON STACK 
		JSR	PLOT	; PLOT SQUARE 
		PLA
		CMP	V2	;DONE? 
		BCC	VLINEZ	; NO, LOOP. 
RTS1		RTS

CLRSCR		EQU	*	;Maintained entry point $F832
		LDY	#$2F	;MAX Y, FULL SCRN CLR 
		BNE	CLRSC2	;ALWAYS TAKEN 
CLRTOP		EQU	*	;Maintained entry point $F836
		LDY	#$27	;MAX Y, TOP SCRN CLR 
CLRSC2		STY	V2	;STORE AS BOTTOM COORD FOR VLINE CALLS
		LDY	#$27	;RIGHTMOST X-COORD (COLUMN) 
@1		LDA	#$00	;TOP COORD FOR VLINE CALLS 
		STA	COLOR	;CLEAR COLOR (BLACK) 
		JSR	VLINE	;DRAW VLINE 
		DEY		;NEXT LEFTMOST X-COORD 
		BPL	@1	;LOOP UNTIL DONE. 
		RTS

GBASCALC		EQU	*	;Maintained entry point $F847
		PHA		;FOR INPUT  00DEFGH 
		LSR	A
		AND	#$03
		ORA	#$04	;GENERATE GBASH=000001FG 
		STA	GBASH
		PLA		;AND GBASL=HDEDE000 
		AND	#$18
		BCC	@1
		ADC	#$7F
@1		STA	GBASL
		ASL	A
		ASL	A
		ORA	GBASL
		STA	GBASL
		RTS

NXTCOL		EQU	*	;Maintained entry point $F85F
		LDA	COLOR	;INCREMENT COLOR BY 3 
		CLC
		ADC	#$03
SETCOL		EQU	*	;Maintained entry point $F864
		AND	#$0F	;SETS COLOR=17*A MOD 16 
		STA	COLOR
		ASL	A	;BOTH HALF BYTES OF COLOR EQUAL 
		ASL	A
		ASL	A
		ASL	A
		ORA	COLOR
		STA	COLOR
		RTS

SCRN		EQU	*	;Maintained entry point $F871
		LSR	A	;READ SCREEN Y-COORD/2 
		PHP		;SAVE LSB (CARRY) 
		JSR	GBASCALC	;CALC BASE ADDRESS 
		LDA	(GBASL),Y	;GET BYTE 
		PLP		;RESTORE LSB FROM CARRY 
SCRN2		BCC	RTMSKZ	;IF EVEN, USE LO H 
SCRN4		LSR	A
		LSR	A
		LSR	A	;SHIFT HIGH HALF BYTE DOWN 
		LSR	A
RTMSKZ		AND	#$0F	;MASK 4-BITS 
		RTS

DBTOE1		EQU	*	;Change data bank register to E1
		PEA	$E1E1	;Change data bank register to E1
		PLB		;Dummy pull
		PLB		;Sets data bank register to E1
		RTS		;

GONEWGETNUM	EQU	*	;Used by monitor
		LDY	#$94	;'Y'=$94 for new GETNUM routine
		BRA	GOTOBANKFF	;Return to caller via this way

		FillTo	$F88C	;Pad

INSDS1_2		EQU	*	;Maintained entry point $F88C
		LDA	(PCL,X)	;Here for user programs only

		FillTo	$F88E	;Pad

* INSDS2 returns the length of opcodes.  All opcodes
* lengths-1 are returned in LENGTH.  On entry the opcode
* to determine the length of is in 'A'.
*
* For compatibility reasons with DOS 3.3's relocator
* and for historical reasons INSDS2 must return the
* length of 6502 instructions and a length of 1
* byte for non 6502 instructions.
*
* GET816LEN performs the same function as INSDS2 except
* it properly returns the length of all 65816 instructions.

INSDS2		EQU	*	;Maintained entry point $F88E
		SEC		;Indicate 6502 instruction lens wanted
		OPCODE	BCC	;Go do routine

GET816LEN		EQU	*	;Maintained entry point $F890
		CLC		;Indicate 65816 instructions lens wanted
		JMP	GETLENGTH	;Go do routine


DOFFCOUT		EQU	*	;Called from bank FF to do COUT
		JMP	COUTFF	;Go thru anti dispatcher to output char

DOFFCOUT1		EQU	*	;Called from bank FF to do COUT1
		JMP	COUT1FF	;Go thru anti dispatcher to output char


DONEWBELL2	EQU	*
		LDY	#$A0	;'Y'=A0 for new speaker BELL1 routine


GOTOBANKFF	EQU	*	;Go execute routine in bank $FF
		PHP		;Save user status bits first
		CLC		;Now switch to native 65816 mode
		XCE		;
		PLP		;Restore user interrupt status now
		SEP	#$30	;Set m/x to 8 bit mode
		PHA		;Save user's 'A'
		LDA	CYAREG	;Save speed status
		PHA		;
		ORA	#$80	; and switch to hi speed
		STA	CYAREG	;
		JSL	>MDISPATCH	;Off to bank $FF
		PLA		;Return here and restore user speed
		STA	CYAREG	;
		PLA		;Recall new 'A'

MAINSIDE		EQU	*	;Called from bank FE/FF ROM space
		PHP		;Now switch back to emulation mode
		SEC		;
		XCE		;
		PLP		;Now restore subroutine's status
		RTS		;Back to caller


SETMEMORY00	EQU	*	;Memory fill routine so DOS will boot
		STZ	$800	;Pattern to fill memory with
		LONGA	ON
		LONGI	ON
		CLC		;
		XCE		;
		REP	#$30	;16 bit mode a must
		LDX	#$800	;Starting address
		TXY		;Destination address equals starting
		INY		; address+1
		LDA	#$B7FE	;Number of bytes to move
		MVN	0,0	;Source bank,destination bank
		BRA	MAINSIDE	;Return to emulation mode and exit
		LONGA	OFF
		LONGI	OFF


		FillTo	$F8D0	;Pad

INSTDSP		EQU	*	;Maintained entry point $F8D0
		LDY	#$99	;'Y'=$99 for DISASEM 
		BRA	GOTOBANKFF	;Disassemble 1 instruction

MAINEXIT		EQU	*	;Called from bank FE/FF ROM space
		PHP		;Save processor status
		CLC		;Make shift back to native mode
		XCE		;
		PLP		;Restore processor status
		RTL		;Back to calling bank

* SPATFNS is called by Applesoft (with a JSR) and
* is an extension of the HLIN routine to fix
* horizontal/vertical range checking.

SPATFNS		EQU	*	;Maintained entry point $F8D9
		JSR	GETBYT	;Get first argument
		CPX	#80	;HLIN allows max value here of 79
		BCS	@2	;'c'=1 then value entered is too big
		STX	FIRST	;Save for Applesoft
		JSR	CHKCOM	;Parse check for a ','
		JSR	GETBYT	;Get second argument
		CPX	#80	;HLIN allows max value here of 79
		STX	H2	;Save for Applesoft
		STX	V2	; in Applesoft variable space.
		JMP	ATFNS2	;Continue in Applesoft

@2		EQU	*
		JMP	TOOBIG	;Continue with range error in Applesoft

NEWRESET2		EQU	*
		JSR	SETMEMORY00	;Fix up memory for DOS
		JSR	HOME	;Clear the screen
		LDY	#$A4	;Print title and copyright msg
		JSR	GOTOBANKFF	;Go to bankff 
		LDY	#$9D	;Do some more coldstart stuff
		JSR	GOTOBANKFF	;Go to bank FF
		JSR	ENBDATAREG	;Enable ints for Desk Accessory Manager

		LDA	>EXTENDBNK+1	;BUTN1 ;Get button 1 (Solid-Apple)
		BMI	SHOWCP	;=>Up, then user wants normal powerup
JUMPERON		EQU	*
		RTS		;Back to caller

SHOWCP		EQU	*	;=>Down, then user wants control panel
*
		LDA	>GSC	;Added 2/10/89 MSA to check TS Jumper
		ASL	A	;We're interested in bit 6
		BMI	JUMPERON	;If TS Jumper, don't allow special CP entry
*
		CLC		;Switch to native mode
		XCE		; with 8 bit 'm'/'x'
		JSL	>SPEC_PANEL	;
		SEC		;
		XCE		;Back to emulation mode to restart system
		JMP	RESET	;


TRYAPTALK		EQU	*	;Call from 'MAYBEAPTALK' routine
		LDA	>APTALKBOOT	;Check AppleTalk boot byte
		BEQ	@2	;Slot1/2 none selected for ApTalk
		CMP	#$02	;Is it slot2 AppleTalk ?
		BNE	@1	;Bra to boot from slot1
		JMP	BOOTAPTALK2	;Boot from AppleTalk via slot2
@1		EQU	*
		JMP	BOOTAPTALK1	;Boot from AppleTalk via slot1

@2		EQU	*
		JMP	NODISK	;Display 'Check Startup Device' msg


;NEWCNTLT EQU *
;LDA =FLIPSCRN ;
;EOR #$80
;STA =FLIPSCRN ;
;LDY #$A9
;JMP GOTOBANKFF ;

		FillTo	$F93A	;Pad

GETAN3STATUS	EQU	*	;Maintained entry point $F93A
		LDA	INTFLAG	;Get AN3 status in bit 5
		ASL	A	;Move status to bit 7 for AppleSoft
		ASL	A	;
		RTS		;Back to caller

PRNTYX		EQU	*	;Maintained entry point $F940
		TYA		;
PRNTAX		EQU	*	;Maintained entry point $F941
		JSR	PRBYTE	;OUTPUT TARGET ADR 
PRNTX		EQU	*	;Maintained entry point $F944
		TXA		;  OF BRANCH AND RETURN 
		JMP	PRBYTE

PRBLNK		EQU	*	;Maintained entry point $F948
		LDX	#$03	;BLANK COUNT 
PRBL2		EQU	*	;Maintained entry point $F94A
		LDA	#$A0	;LOAD A SPACE 
		JSR	COUT	;OUTPUT A BLANK 
		DEX
		BNE	PRBL2	;LOOP UNTIL COUNT=0   
		RTS

PCADJ		EQU	*	;Maintained entry point $F953
		SEC		;0=1 BYTE, 1=2 BYTE, 
		LDA	LENGTH	;  2=3 BYTE 
PCADJ3		LDY	PCH
		TAX		;TEST DISPLACEMENT SIGN 
		BPL	@1	;  (FOR REL BRANCH) 
		DEY		;EXTEND NEG BY DECR PCH 
@1		ADC	PCL
		BCC	@2	;PCL+LENGTH(OR DISPL)+1 TO A 
		INY		;  CARRY INTO Y (PCH) 
@2		RTS

*
* Due to limited space, differentiation between Gyro 
* and gs can't insert here, thus move TEXT2COPY to
* TEXT2COPYFF.  Entry point must be maintained.
*
* This routine installs a heartbeat task
* that copies text page 2 to bank E0 for
* the Mega // to display on every VBL.
*
* This is a toggle (enable/disable) routine.
* If auto text copy is on, on entry, it is disabled on exit.
* If auto text copy is off, on entry, it is enabled on exit.
*

		FillTo	$F962	;Pad

TEXT2COPY		EQU	*	;Maintained entry point $F962
		LDY	#$A6	;'Y' = $A6 for TEXT2COPYFF
		JMP	GOTOBANKFF	;Go and do it in bank ff

SETP2REG		EQU	*	;Set bit5 of $c035 from TP2MODE
		LDY	#$A7	;'Y' = $A7 for settext2reg
		JMP	GOTOBANKFF	;


GETLENGTH1	EQU	*
		PHY		;Preserve Y for the user
		LDY	#$9A	;'Y'=$9A for INSDS3
		BCC	GETLENGTH2	;'c'= 1 for 6502 lengths
		LDY	#$9F	;'Y'=$9F for 6502 instruction lengths
GETLENGTH2	EQU	*
		JSR	GOTOBANKFF	;Go do routine
		PLY		;Restore Y for the user
		RTS		;Back to caller

NOTCR3		EQU	*
		XBA		;Preserve output character or suffer
		LDA	>CHGCURFLG	;Test bit 0 for don't count flag
		LSR	A	;'c'=0 then continue normally
		BCC	@1	;
		BNE	@1	;If 'z'=1 then clear CHGCURFLG
		STA	>CHGCURFLG	;
@1		EQU	*
		XBA		;Restore output character or suffer
		RTS		;'c'=1 then don't count in input buffer.



		TITLE	'Auto-Start Monitor ROM'
*****************************************
*                                       *
*               APPLE II                *
*              MONITOR II               *
*                                       *
*    Copyright 1978, 1981, 1984-1989    *
*                   by                  *
*          Apple Computer, Inc.         *
*                                       *
*          All Rights Reserved          *
*                                       *
*       S. Wozniak             1977     *
*       A. Baum                1977     *
*       John A            Nov  1978     *
*       R. Auricchio      Sep  1981     *
*       E. Beernink            1984     *
*       E.K. Lai          Sep  1984     *
*       F. Bachman          1985-1987   *
*       Joe Bo              1988-1989   *
*                                       *
*****************************************


CHRTBL		DC.B	$BC	;'^C' (BASIC warm start) 
		DC.B	$B2	;'^Y' (USeR vector) 
		DC.B	$BE	;'^E' (Examine registers) 
		DC.B	$9A	;'!'  (Enter mini-assembler) 
		DC.B	$EF	;'V'  (Memory verify) 
		DC.B	$C4	;'^K' (IN#slot) 
		DC.B	$E9	;'P'  (Pattern search)
		DC.B	$A9	;'^P' (PR#slot) 
		DC.B	$BB	;'^B' (BASIC cold start) 
		DC.B	$A6	;'-'  (Subtract) 
		DC.B	$A4	;'+'  (Add) 
		DC.B	$06	;'M'  (Memory move) 
		DC.B	$95	;'<'  (Delimiter for move, verify)
		DC.B	$07	;'N'  (Set normal video) 
		DC.B	$02	;'I'  (Set inverse video) 
		DC.B	$05	;'L'  (Disassemble instructions)
		DC.B	$00	;'G'  (JSR subroutine and return to mon)
		DC.B	$F1	;'X'  (JSL subroutine and return to mon)
		DC.B	$EB	;'R'  (JMP subroutine and do not return)
		DC.B	$93	;':'  (Memory fill)
		DC.B	$A7	;'.'  (Address delimiter) 
		DC.B	$C6	;'CR' (End of input) 
		DC.B	$99	;' '  (Blank) 
		DC.B	$96	;'='  (New commands delimiter)
		DC.B	$ED	;'T'  (Trace)
		DC.B	$EC	;'S'  (Step)
		DC.B	$9B	;'"'  (Literal ASCII input mode)
		DC.B	$F5	;'\'  (Start/end of pattern to search for)
		DC.B	$F3	;'Z'  (Zap memory)
		DC.B	$EA	;'Q'  (Quit monitor via JMP $3D0)
		DC.B	$EE	;'U'  (Utility call to Tool Locator)
		DC.B	$AB	;'^R' (Restore registers)
		DC.B	$AD	;'^T' (Go to Text page 1)
		DC.B	$A3	;'*'  (Multiply)
		DC.B	$F8	;'_'  (Divide)
		DC.B	$9C	;'#'  (Enable monitor desk accessory)
		DC.B	$C7	;'^N' (Set internal 'm'/'x'/'e' = 0)

CHRTBLLEN		EQU	*-CHRTBL-1	;Length of character table

* Table of low order monitor routine dispatch 
* addresses.  High byte always $FE

SUBTBL		DC.B	BASCONT-1	;'^C' (BASIC warm start) 
		DC.B	USR-1	;'^Y' (USeR vector)
		DC.B	NEWREGZ-1	;'^E' (Examine registers) 
		DC.B	MINI-1	;'!'  (Enter mini-assembler)
		DC.B	XVERIFY-1	;'V'  (Memory verify) 
		DC.B	INPRT-1	;'^K' (IN#slot) 
		DC.B	SEARCH-1	;'P'  (Pattern search)
		DC.B	OUTPRT-1	;'^P' (PR#slot) 
		DC.B	XBASIC-1	;'^B' (BASIC cold start) 
		DC.B	SETMODE-1	;'-'  (Subtract)
		DC.B	SETMODE-1	;'+'  (Add)
		DC.B	XMOVE-1	;'M'  (Memory move) 
		DC.B	LT-1	;'<'  (Delimiter for move,verify) 
		DC.B	SETNORM-1	;'N'  (Set normal video) 
		DC.B	SETINV-1	;'I'  (Set inverse video) 
		DC.B	LIST-1	;'L'  (Disassemble instructions)
		DC.B	GO816-1	;'G'  (JSR subroutine and return to mon)
		DC.B	X816-1	;'X'  (JSL subroutine and return to mon)
		DC.B	RESUME-1	;'R'  (JMP subroutine and do not return)
		DC.B	SETMODE-1	;':'  (Memory fill) 
		DC.B	SETMODE-1	;'.'  (Address delimiter) 
		DC.B	CRMON-1	;'CR' (End of input) 
		DC.B	BLANK-1	;' '  (Blank)
		DC.B	EQUALS-1	;'='  (New commands delimiter)
		DC.B	TRACE-1	;'T'  (Trace)
		DC.B	STEP-1	;'S'  (Step)
		DC.B	LITASC-1	;'"'  (Literal ASCII input mode)
		DC.B	PTRNSET-1	;'\'  (Start/end of pattern to search for)
		DC.B	CMDZAP-1	;'Z'  (Zap memory)
		DC.B	QUITMON-1	;'Q'  (Quit monitor via JMP $3D0)
		DC.B	UTILITY-1	;'U'  (Utility call to Tool Locator)
		DC.B	REGSET-1	;'^R' (Restore registers)
		DC.B	GOTXT11-1	;'^T' (Go to Text page 1)
		DC.B	SETMODE-1	;'*'  (Multiply)
		DC.B	SETMODE-1	;'_'  (Divide)
		DC.B	MONDSKACC-1	;'#'  (Enable monitor desk accessory)
		DC.B	MAKENATIVE-1	;'^N' (Set internal 'm'/'x'/'e' = 0)


WARMUPAPTALK	EQU	*	;Warm start AppleTalk and continue
		CLC		;Switch to native mode to do this
		XCE		;
		PHP		;Be sure to save entry status
		JSL	>APTALKRESET	;Warm start AppleTalk
		PLP		;Restore entry status
		XCE		;

ENBDATAREG	EQU	*	;Enable data register ints for DA manager
		SEI		;Disable interrupts briefly
		LDA	#$10	;Enables data register interrupt
		TSB	KMSTATUS	; via key glue.
		CLI		;Enable system interrupts

D2D		EQU	*	;Disk ][ detect
		LDA	>SLOTSFLG	;Setup SLTROMSEL correctly for warm start
		STA	SLTROMSEL	;
		LDY	LOC0	;Save zero page bytes used on stack
		PHY		;
		LDY	LOC1	;Save zero page bytes used on stack
		PHY		;
		LDA	#$00	;Setup byte to map in Disk ][ detects
		PHA		;Save for later
		LDA	#$C8	;Use zero page for this test
		STZ	LOC0	;Lo byte is 0
		STA	LOC1	;Hi byte is in 'A'
@1		EQU	*
		CLC		;Clear a bit
@2		EQU	*	;'c'=1 if branch to here
		PLA		;
		ROL	A	;Shift in a bit
		PHA		;Save on stack again
		LDY	#$05	;Test starting at 6th byte
		DEC	LOC1	;Change slot pointer
		LDA	LOC1	;Test if done
		CMP	#$C4	;Done if decremented to slot 3
		BCC	@5	;
@3		EQU	*
		LDA	(LOC0),Y	;Test 1st I.D. byte
		CMP	DISKID-1,Y	; against disk ][ bytes.
		BNE	@1	;<>= then try next slot
		DEY		;Try next I.D. byte
		DEY		;
		BPL	@3	;Loop
		LDA	(LOC0),Y	;'Y'=$FF if here
		BEQ	@2	;= then it's a disk ][
		INC	A	;If value now 0 it's also a disk ][
		BNE	@1	;Try next slot
		BEQ	@2	;= then it's a disk ][

@5		EQU	*
		PLA		;Recall status byte
		PLY		;Recall zero page bytes used
		STY	LOC1	;Restore zero page bytes used
		PLY		;Recall zero page bytes used
		STY	LOC0	;Restore zero page bytes used
		JMP	FIXSPEED2	;Set up CYAREG


T480CARD		EQU	*	;Test for possible 80 column card
		LDA	>USERCOL	;0=40 columns <>0=80 columns
		BNE	T480CARD2	;<>= then test for ROM in slot 3
		INC	A	;=0 then make <>0
		RTS		;Indicate use 40 columns

T480CARD2		EQU	*
		LDX	#$00	;Preset counter to $00
@2		EQU	*
		LDA	C300+5+0	;Test for match
		CMP	#$38	;
		BNE	@3	;<>= then no card installed
		LDA	C300+7	;Test for another match
		CMP	#$18	;
		BNE	@3	;<>= then no card installed
		INX		;Try many times to be sure
		BNE	@2	;Loop for another try
@3		EQU	*	;Exit here
		RTS		;= then use 80 cols/ <>= then use 40 cols


		FillTo	$FA40	;Pad

OLDIRQ		EQU	*	;Maintained entry point $FA40
		JMP	TOEBRKIRQ	;Go to new interrupt handler

OLDBRK2		EQU	*
		JSR	BELL	;Ring the bells
		JSR	ENBDATAREG	;Turn on ints/switch system to user spd
		JMP	MONZ2	;Skip register reset

		FillTo	$FA4C	;Pad

BREAK		EQU	*	;Maintained entry point $FA4C
		PLP		;
		JSR	SAV1	;SAVE REG'S ON BREAK 
		PLA		; INCLUDING PC 
		STA	PCL
		PLA
		STA	PCH
GOBRK~Bnk00	EQU	*-Rel~Org+Bnk~Org	;Called by interrupt code
		JMP	(BRKV)	;BRKV WRITTEN OVER BY DISK BOOT

OLDBRK		EQU	*	;Maintained entry point $FA59
		LDY	#$93	;Print user instruction of break
		JSR	GOTOBANKFF	; and register display
		BRA	OLDBRK2	;Go to pseudo monitor start

		FillTo	$FA62	;Pad

RESET		EQU	*	;Maintained entry point $FA62
		LDA	#$01	;Enable read alt mem with long inst
		TSB	NEWVIDEO	;

		FillTo	$FA67,$EA	;Pad

FBBYTE		EQU	*+1	;Maintained entry point $FF68
		LDA	#$FB	;FBBYTE must be $FB for compatibility
		SEI		;In case user calls into here
		CLD		;Do this on every reset
		TCS		;Must reset the stack
		JSR	NEWRESET	;New reset routine
		LDA	#$0C	;Set up //e memory state
		STA	STATEREG	; or else die later.
		LDY	#9	;CODE=INIT
		JSR	GOTOBANKFF	;Do new machine init code
		LDA	CLRROM	; TURN OFF EXTNSN ROM
		BIT	KBDSTRB	; CLEAR KEYBOARD

		JSR	T480CARD	;Does user want 40 or 80 columns?
		BNE	@1	;
		JSR	TSTFORCUR4	;Switch user to 80 column mode
@1		EQU	*	;Don't change video output mode

		JSR	DONEWBELL2	; CAUSES DELAY IF KEY BOUNCES
		LDA	SOFTEV+1	;IS RESET HI
		EOR	#$A5	;A FUNNY COMPLEMENT OF THE
		CMP	PWREDUP	; PWR UP BYTE ?
		BNE	PWRUP	; NO SO PWRUP
		LDA	SOFTEV	; YES SEE IF COLD START
		BNE	NOFIX	; HAS BEEN DONE YET?
		LDA	#$E0	; DOES SOFT ENTRY VECTOR POINT AT BASIC? 
		CMP	SOFTEV+1
		BNE	NOFIX	; YES SO REENTER SYSTEM
		LDY	#3	; NO SO POINT AT WARM START FOR NEXT RESET
		JMP	NEWFIXSEV	; DO THE COLD START


		FillTo	$FAA6	;Pad

PWRUP		EQU	*	;Maintained entry point $FAA6
		JSR	NEWRESET2	;Clear memory+show 'Apple II' on screen

*  Set up page 3 vectors.

		LDX	#5
@1		LDA	PWRCON-1,X	; WITH CNTRL B ADRS
		STA	BRKV-1,X	; OF CURRENT BASIC
		DEX
		BNE	@1
		BRA	WHO2BOOT	;Who to boot?

SETPLP2		EQU	*
		STA	LOC1	; SET PTR H
		STZ	LOC0	;Assure low byte of pointer is 0

* Check 3 ID bytes instead of 4.  Allows devices
* other than Disk II's to be bootable.

SLOOP		EQU	*	;Maintained entry point $FABA
		LDY	#5	;Y is byte ptr
		DEC	LOC1
		LDA	#0	;MUST have 0 at $FABF to match 0 at $FAFF
		LDA	LOC1
		CMP	#$C0	; AT LAST SLOT YET?
		BEQ	NODISK	; YES AND IT CAN'T BE A DISK
		STA	MSLOT
@1		LDA	(LOC0),Y	; FETCH A SLOT BYTE
		CMP	DISKID-1,Y	; IS IT A DISK ??
		BNE	SLOOP	; NO, SO NEXT SLOT DOWN
		DEY
		DEY		; YES, SO CHECK NEXT BYTE
		BPL	@1	; UNTIL 3 BYTES CHECKED
		JMP	(LOC0)	; GO BOOT... 

REGDSP		EQU	*	;Maintained entry point $FAD7
		LDY	#$A5	;Go do new 65816 register display
		BRA	NODISK1	;

NOFIX		EQU	*
		JSR	WARMUPAPTALK	;Wrmstrt Aptalk/Enable ints for DskAcc Mgr
		JMP	(SOFTEV)	;Continue through soft entry vector

WHO2BOOT		EQU	*
		LDA	>USERSLTST	;What is user's startup slot preference?
		BEQ	SCAN2BOOT	;=0 then scan to boot
		CMP	#$8	;8=RAMdisk 9=ROMdisk A=AppleTalk   
		BCC	WHO2BOOT2	;<8 then boot from specific slot
		BRA	MAYBEAPTALK	;>8 then may be AppleTalk  
BOOTSMART		EQU	*
		LDA	#$5	;Force smart prt if RAMDISK/ROMDISK picked
WHO2BOOT2		EQU	*
		ORA	#$C0	;Make hi byte of jump instruction
		INC	A	;Offset for normal monitor search routine
		BRA	SETPLP2	;Return to normal boot routine

SCAN2BOOT		EQU	*	;Do normal scan to boot.
		LDA	#$C8	;For SCAN as choice load hi slot+1
		BRA	SETPLP2	;Return to normal boot routine

NODISK		EQU	*
		LDY	#$98	;'Y'=$98 for no disk on power up msg
NODISK1		EQU	*
		JMP	GOTOBANKFF	;Go do routine in bank FF

		FillTo	$FAFD	;Pad

PWRCON		DC.W	OLDBRK

* Warning: $00 'MUST' appear at $FAFF

		DC.B	$00,$E0,$45	;Maintained entry point $FAFF
DISKID		DC.B	$20,$FF,$00,$FF
		DC.B	$03,$FF,$3C

APPLEMSG		EQU	*	;Maintained entry point $FB09
		DC.B	'Apple ]['
XLTBL		EQU	*
		DC.B	$C4,$C2,$C1	;For 'ESC' keypress conversion
		DC.B	$FF,$C3	;
		DC.B	$FF,$FF,$CD	;

RTBL		EQU	*	;Maintained entry point $FB19
		DC.B	$C1,$D8,$D9	;'AXYPS'
		DC.B	$D0,$D3	;
PREAD		EQU	*	;Maintained entry point $FB1E
		JMP	DOPREAD	;Y=$95 for PREAD (Save 'X' through here)
PREAD4		EQU	*	;Maintained entry point $FB21
		JMP	DOPREAD4	;Timeout then do PREAD



		TITLE	'Auto-Start Monitor ROM'
*****************************************
*                                       *
*               APPLE II                *
*              MONITOR II               *
*                                       *
*    Copyright 1978, 1981, 1984-1989    *
*                   by                  *
*          Apple Computer, Inc.         *
*                                       *
*          All Rights Reserved          *
*                                       *
*       S. Wozniak             1977     *
*       A. Baum                1977     *
*       John A            Nov  1978     *
*       R. Auricchio      Sep  1981     *
*       E. Beernink            1984     *
*       E.K. Lai          Sep  1984     *
*       F. Bachman          1985-1987   *
*       Joe Bo              1988-1989   *
*                                       *
*****************************************


MAYBEAPTALK	EQU	*
		CMP	#$0A	;Check to boot from AppleTalk
		BNE	BOOTSMART	;Boot smartport if RAMDISK/ROMDISK picked
		JMP	TRYAPTALK	;Try AppleTalk

DOFFSVK		EQU	*	;Called from bank FF to set video/keyboard
		JMP	SETVIDKBDFF	;Do it via reverse dispatcher


		FillTO	$FB2F	;Pad

INIT		EQU	*	;Maintained entry point $FB2F
		LDA	#$00	;
		STA	STATUS	;CLR STATUS FOR DEBUG SOFTWARE 
		LDA	LORES
		LDA	TXTPAGE1	;INIT VIDEO MODE 
SETTXT		EQU	*	;Maintained entry point $FB39
		LDA	TXTSET	;SET FOR TEXT MODE 
		LDA	#$00	;FULL SCREEN WINDOW 
		BEQ	SETWND
SETGR		EQU	*	;Maintained entry point $FB40
		LDA	TXTCLR	;SET FOR GRAPHICS MODE 
		LDA	MIXSET	;LOWER 4 LINES AS TEXT WINDOW 
		JSR	CLRTOP
		LDA	#$14
SETWND		EQU	*	;Maintained entry point $FB4B
		STA	WNDTOP	;SET FOR 40 COL WINDOW 
		LDA	#$00	;Left side of screen starts at $00
		STA	WNDLFT	;Top in A-reg, bottom at line $24
SETWND2		EQU	*	;Maintained entry point $FB51
		LDY	#$C	;CODE=SETWND 
		BRA	NODISK1	;


* Identification bytes for CORTLAND
*
* REGIDz's are return'ed when the user JSR's to $FE1F.
*
* REGIDA = Bit 15 = reserved
*          Bit 14 = reserved
*          Bit 13 = reserved
*          Bit 12 = reserved
*          Bit 11 = reserved
*          Bit 10 = reserved
*          Bit 09 = reserved
*          Bit 08 = reserved
*          Bit 07 = reserved
*          Bit 06 = 1 if system has a memory expansion slot
*          Bit 05 = 1 if system has an IWM port
*          Bit 04 = 1 if system has a built in clock
*          Bit 03 = 1 if system has front desk bus
*          Bit 02 = 1 if system has SCC built in
*          Bit 01 = 1 if system has external slots
*          Bit 00 = 1 if system has internal slots
*
* REGIDX = Bit 15 = reserved
*          Bit 14 = reserved
*          Bit 13 = reserved
*          Bit 12 = reserved
*          Bit 11 = reserved
*          Bit 10 = reserved
*          Bit 09 = reserved
*          Bit 08 = reserved
*          Bit 07 = reserved
*          Bit 06 = reserved
*          Bit 05 = reserved
*          Bit 04 = reserved
*          Bit 03 = reserved
*          Bit 02 = reserved
*          Bit 01 = reserved
*          Bit 00 = reserved
*
* REGIDY = Bit 15-8 = machine id byte
*                  0 = Cortland
*                  01-FF = future systems
*          Bit 07 = 0
*          Bit 06 = 0
*          Bit 05 = 0
*          Bit 04 = 0         Bits 00-07 = ROM version number
*          Bit 03 = 0
*          Bit 02 = 0
*          Bit 01 = 0
*          Bit 00 = 1   

REGIDA		DC.W	$007F	;Register identification byte
REGIDX		DC.W	$0000	;Register identification byte
REGIDY		DC.W	$0003	;Register identification byte 


		FillTo	$FB5B	;Pad

TABV		EQU	*	;Maintained entry point $FB5B
		STA	CV	;VTABS TO ROW IN A-REG 
		JMP	VTAB

APPLEII		EQU	*	;Maintained entry point $FB60
		JSR	HOME	;CLEAR THE SCRN 
		LDY	#$A8	;'Y'=$A8 for Apple IIgs msg
		BRA	NODISK1	;Continue this way


	; SEG $FF
MCOFFSET		EQU	*	;Mouse card offset to id bytes
		DC.B	$05,$07,$0B,$FB

MIDVALUE		EQU	*	;Mouse card id bytes
		DC.B	$38,$18,$01,$D6
	; SEG $00


		FillTo	$FB6F	;Pad

SETPWRC		EQU	*	;Maintained entry point $FB6F
		LDA	SOFTEV+1	;ROUTINE TO CALCULATE THE 'FUNNY  
		EOR	#$A5	;COMPLEMENT' FOR THE RESET VECTOR 
		STA	PWREDUP
		RTS

* CHECK FOR A PAUSE (CONTROL-S). 

VIDWAIT		EQU	*	;Maintained entry point $FB78
		CMP	#$8D	;ONLY WHEN I HAVE A CR
		BNE	NOWAIT	;NOT SO, DO REGULAR
		LDY	KBD	;IS KEY PRESSED?
		BPL	NOWAIT	;NO. 
		CPY	#$93	;YES -- IS IT CTRL-S?
		BNE	NOWAIT	;NOPE - IGNORE
		BIT	KBDSTRB	;CLEAR STROBE
KBDWAIT		EQU	*	;Maintained entry point $FB88
		LDY	KBD	;WAIT TILL NEXT KEY TO RESUME
		BPL	KBDWAIT	;WAIT FOR KEYPRESS
		CPY	#$83	;IS IT CONTROL-C?
		BEQ	NOWAIT	;YES, SO LEAVE IT
		BIT	KBDSTRB	;CLR STROBE
NOWAIT		BRA	VIDOUT	;DO AS BEFORE

ESCNOW		TAY		;USE CHAR AS INDEX
		LDA	XLTBL-$C9,Y	;TRANSLATE IJKM TO CBAD
		JSR	ESCOLD	;DO THE CURSOR MOTION
		JSR	RDESC	;GET IJKM, ijkm, ARROWS
ESCNEW		CMP	#$CE	;IS THIS AN 'N'? 
		BCS	ESCOLD	;'N' OR GREATER - DO IT! 
		CMP	#$C9	;LESS THAN 'I'?
		BCC	ESCOLD	;YES, SO DO OLD WAY
		CMP	#$CC	;IS IT AN 'L'?
		BNE	ESCNOW	;GO DO IT
ESCOLD		EQU	*
		CMP	#'8'	;Does user want to go to 80 column mode
		SEC		;INSURE CARRY SET
		BNE	ESC1_2	;<> = then do regular 'ESC' key tests
		BRA	ESC1

		FillTo	$FBB3	;Pad

VERSION		EQU	*	;Maintained entry point $FBB3
		DC.B	$06	;FOR IDCHECK

ESC1		EQU	*
		JSR	T480CARD2	;Test for 80 column card before enabling
		BNE	ESC1_2	;<>= then do regular 'ESC' key tests
		JSR	TSTCTL3	;
		JMP	ESC1_1	;Continue this way

		FillTo	$FBBF	;Pad

ZIDBYTE2		EQU	*	;Maintained entry point $FBBF
		DC.B	$00	;ROM rev ID byte
ZIDBYTE		EQU	*	;Maintained entry point $FBC0
		DC.B	$E0	;//e ROM ID byte - Maintained

BASCALC		EQU	*	;Maintained entry point $FBC1
		PHA		;CALC BASE ADDR IN BASL,H
		LSR	A	;FOR GIVEN LINE NO.
		AND	#$03	; 0<=LINE NO.<=$17
		ORA	#$04	;ARG = 000ABCDE, GENERATE
		STA	BASH	; BASH = 000001CD
		PLA		; AND
		AND	#$18	; BASL = EABAB000
		BCC	@1
		ADC	#$7F
@1		STA	BASL
		ASL	A
		ASL	A
		ORA	BASL	;Must do this way since some programs
		STA	BASL	; depend on BASL being in 'A' on exit.
		RTS

CHKBELL		EQU	*
		CMP	#$87	;BELL CHAR? (CONTROL-G) 
		BNE	RTS3	; NO, RETURN. 

BELL1		EQU	*	;Maintained entry point $FBDD
		LDY	#$9E	;'Y'=$9E for NEWBELL1 routine
		BRA	GOTOFF	;Off to bank FF to execute

		NOP		;Required for entry point alignment

BELL1_2		EQU	*	;Maintained entry point $FBE2
		BRA	BELL1	;Skip behind

BELL2		EQU	*	;Maintained entry point $FBE4
		BRA	BELL1	;Skip behind

DOPREAD4		EQU	*	;Entry here means time out the do PREAD
		LDA	PADDL0,X	;Read paddle til value is '-'
		BPL	DOPREAD4	;

DOPREAD		EQU	*
		LDY	#$95	;'Y'=$95 for new paddle read routine
		BRA	GOTOFF	;(Save 'X' through PREAD routine)

		FillTo	$FBF0	;Pad

STORADV		EQU	*	;Maintained entry point $FBF0
		LDY	CH	;CURSOR H INDEX TO Y-REG 
		STA	(BASL),Y	;STORE CHAR IN LINE 
ADVANCE		EQU	*	;Maintained entry point $FBF4
		INC	CH	;INCREMENT CURSOR H INDEX 
		LDA	CH	; (MOVE RIGHT) 
		CMP	WNDWDTH	;BEYOND WINDOW WIDTH? 
		BCS	CR	; YES, CR TO NEXT LINE. 
RTS3		RTS		; NO, RETURN. 

VIDOUT		EQU	*	;Maintained entry point $FBFD
		BRA	TSTFORCUR	;Test for new cursor

VIDOUT2		EQU	*
		BCS	STORADV	; NO, OUTPUT IT. 
		TAY		;INVERSE VIDEO? 
		BPL	STORADV	; YES, OUTPUT IT. 
		CMP	#$8D	;CR? 
		BEQ	CR	; YES. 
		CMP	#$8A	;LINE FEED? 
		BEQ	LF	; IF SO, DO IT. 
		CMP	#$88	;BACK SPACE? (CONTROL-H) 
		BNE	TSTCTL	;No then test for control-^
BS		EQU	*	;Maintained entry point $FC10
		PHY		;Save original 'Y'
		LDY	#$9B	;Decrement all cursors
		JSR	GOTOBANKFF	;Do it in bank FF
		BMI	BS2	;Continue with BS this way
		PLY		;Restore original 'Y' value
		RTS		;Back to original caller

UP		EQU	*	;Maintained entry point $FC1A
		LDA	WNDTOP	;CURSOR V INDEX 
		CMP	CV
		BCS	RTS3	;IF TOP LINE THEN RETURN 
		DEC	CV	;DECR CURSOR V INDEX 

VTAB		EQU	*	;Maintained entry point $FC22
		LDA	CV	;GET CURSOR V INDEX 
VTABZ		EQU	*	;Maintained entry point $FC24
		STA	BASL	;temporarily save Acc
		TYA		;and Y
		LDY	#$4	;this is VTABZ call
GOTOFF		JMP	GOTOBANKFF	;=> always perform call

ESC1_2		EOR	#$C0	;ESC '@'? 
		BEQ	HOME	; IF SO DO HOME AND CLEAR
		ADC	#$FD	;ESC-A OR B CHECK
		BCC	ADVANCE	; A, ADVANCE
		BEQ	BS	; B, BACKSPACE
		ADC	#$FD	;ESC-C OR D CHECK
		BCC	LF	; C, DOWN
		BEQ	UP	; D, GO UP 
		ADC	#$FD	;ESC-E OR F CKECK
		BCC	CLREOL	; E, CLEAR TO END OF LINE
		BNE	RTS3	; ELSE NOT F,RETURN

CLREOP		EQU	*	;Maintained entry point $FC42
		LDY	#$A	;CODE=CLREOP
		BNE	GOTOFF	;DO 40/80 

NEWVW		BIT	RD80VID	;in 80 columns?
		BPL	@1	;=>not 80 columns
		LDY	#$0	;Print a character
		BRA	GOTOFF	;through video firmware

@1		TYA		;get masked character
		PHA		;and set up for vidwait
		JSR	VIDWAIT	;print the character
		PLA		;restore Acc
		LDY	YSAV1	;and Y
		RTS

HOME		EQU	*	;Maintained entry point $FC58
		LDY	#5	;CODE=HOME
		BRA	GOTOFF	;do 40/80

TSTFORCUR		EQU	*
		XBA		;Save 'A'
		JMP	TSTFORCUR2	;Continue this way

		FillTo	$FC62	;Pad

CR		EQU	*	;Maintained entry point $FC62
		LDA	#$00	;CURSOR TO LEFT OF INDEX 
		STA	CH	;(RET CURSOR H=0) 
LF		EQU	*	;Maintained entry point $FC66
		INC	CV	;INCR CURSOR V. (DOWN 1 LINE) 
		LDA	CV
		CMP	WNDBTM	;OFF SCREEN? 
		BCC	VTABZ	;  NO, SET BASE ADDR 
		DEC	CV	;DECR CURSOR V. (BACK TO BOTTOM) 

SCROLL		EQU	*	;Maintained entry point $FC70
		LDY	#6	;CODE=SCROLL
		BRA	GOTOFF	;DO 40/80 

DOCOUT1		BCC	@1	;don't mask controls
		AND	INVFLG	;apply inverse mask
@1		JMP	COUTZ1	;go back to COUT1

BS2		EQU	*	;Continuation of BS routine
		LDA	WNDWDTH	;'A' value for WDTHFF routine
		LDY	#$9C	;'Y' = $9C for WDTHFF routine
		JSR	GOTOBANKFF	;Go do it
		PLY		;Recall original 'Y' value
		BRA	UP	;Go to UP routine to continue

TSTCTL		EQU	*	;Test for control-^ input
		CMP	#$9E	;If control-^ then change cursor
		BEQ	@1	;
		JMP	CHKBELL	;If not control-^ then maybe bell?

@1		EQU	*
		LDA	#$81	;Set change cursor flag bit
		BRA	TSTCTL4	;

TSTCTL3		EQU	*
		LDA	#$40	;Set change to 80 columns flag
TSTCTL4		EQU	*
		STA	>CHGCURFLG	;
		RTS		;Back to caller with flag set

INSDS1		EQU	*
		LDY	#$97	;Y=$97 for XINSDS1 in bank FF
GOTOFF2		EQU	*
		BRA	GOTOFF	;Go do routine

		FillTo	$FC9C	;Pad

* Note: bytes CLREOL and CLREOLZ ($38 and $18)
* are used by slot test in TSTROM.

CLREOL		EQU	*	;Maintained entry point $FC9C
		SEC		;say it is EOL
		OPCODE	BCC	;
CLREOLZ		EQU	*	;Maintained entry point $FC9E
		CLC		;say it is EOLZ
		STY	BAS2L	;save Y in temp
		LDY	#7	;code=CLREOL
		BCS	GOTOFF	;do it
		INY		;code 8=CLREOLZ
		BRA	GOTOFF

WAIT		EQU	*	;Maintained entry point $FCA8
		PHA		;Save wait value
		LDA	CYAREG	;Switch to slow speed
		XBA		;Save user speed in 'B'
		LDA	#$80	;Reset bit 7 only
		TRB	CYAREG	;Force slow speed
		BRA	WAITNEW1	;Go do speed sensitive routine

		FillTo	$FCB4	;Pad

NXTA4		EQU	*	;Maintained entry point $FCB4
		INC	A4L	;INCR 2-BYTE A4 
		BNE	NXTA1	; AND A1 
		INC	A4H
NXTA1		EQU	*	;Maintained entry point $FCBA
		LDA	A1L	;INCR 2-BYTE A1. 
		CMP	A2L	; AND COMPARE TO A2 
		LDA	A1H	; (CARRY SET IF >=) 
		SBC	A2H
		INC	A1L
		BNE	RTS4B
		INC	A1H
RTS4B		RTS


		TITLE	'Auto-Start Monitor ROM'
*****************************************
*                                       *
*               APPLE II                *
*              MONITOR II               *
*                                       *
*    Copyright 1978, 1981, 1984-1989    *
*                   by                  *
*          Apple Computer, Inc.         *
*                                       *
*          All Rights Reserved          *
*                                       *
*       S. Wozniak             1977     *
*       A. Baum                1977     *
*       John A            Nov  1978     *
*       R. Auricchio      Sep  1981     *
*       E. Beernink            1984     *
*       E.K. Lai          Sep  1984     *
*       F. Bachman          1985-1987   *
*       Joe Bo              1988-1989   *
*                                       *
*****************************************


HEADR		EQU	*	;Maintained entry point $FCC9
		RTS		;Dummy routine

UPMON		LDA	IN,Y	;get character
		INY		;point to next char
		CMP	#$E1	;is it lowercase?
		BCC	@1	;=>nope
		CMP	#$FB	;lowercase?
		BCS	@1	;=>nope
		AND	#$DF	;else upshift
@1		RTS

WAITNEW1		EQU	*
		PLA		;Restore wait value
		SEC		;Enter with count in A
@1		EQU	*
		PHA		;Delay is:
@2		EQU	*
		SBC	#$01	;
		BNE	@2	;13+11*A+5*A*A
		PLA		;@ 1.023 usec/cycle
		SBC	#$01	;
		BNE	@1	;
		XBA		;Recall user speed/make 'B'=$00
		STA	CYAREG	;Restore user speed
		XBA		;WAIT always exits with 'A'=0/'c'=1
		RTS		;Exit to caller


TSTFORCUR2	EQU	*
		LDA	>CHGCURFLG	;'-' then change cursor
		ASL	A	;'c'=change cursor 'n'=go to 80 columns
		BMI	TSTFORCUR4	;<>= then it's time to go to 80 columns
		XBA		;New cursor
		BCC	TSTFORCUR6	;
		STA	>CURSOR	;
TSTFORCUR3	EQU	*
		LDA	#$01	;Reset change cursor flag
		BRA	TSTCTL4	;Go reset it

TSTFORCUR6	EQU	*
		CMP	#$A0	;Test against space for control characters
		JMP	VIDOUT2	;Back to normal routines


		FillTo	$FD02	;Pad

RDESC		EQU	*
		JSR	RDKEY	;GET A KEY
		LDY	#1	;CODE=FIXIT
TOGOTOFF2		EQU	*
		BRA	GOTOFF2	;=>always 

* Flag to the video firmware that escapes are allowed.
* This routine is called by RDCHAR which is called by 
* GETLN.  The high bit of MSLOT is set by all cards  
* that use the C800 space.       

NEWRDKEY		LSR	MSLOT	;<128 means escape allowed

RDKEY		EQU	*	;Maintained entry point $FD0C
		LDY	#$B	;Display old Apple ][ inverse cursor
		BNE	RDKEY0	;NEVER change this call
FD10		EQU	*	;Maintained entry point $FD10
		BRA	RDKEY1	;Input via input hooks

TSTFORCUR4	EQU	*
		LDY	#$A2	;'Y'=$A2 to enter 80 columns
		BRA	GOTOFF2	;Do it in bank FF

		FillTo	$FD18	;Pad

RDKEY1		EQU	*	;Maintained entry point $FD18
		JMP	(KSWL)	;Input via input hooks

KEYIN		EQU	*	;Maintained entry point $FD1B
		LDY	#3	;RDKEY 
		BRA	TOGOTOFF2	;

RDKEY0		EQU	*
		JSR	GOTOBANKFF	;Go to it
		BRA	FD10	;Continue through input hooks

NOTCR2		EQU	*
		JSR	NOTCR3	;Go test for ignore character or not
		BCS	NXTCHAR	;If 'c'=1 then ignore key pressed
		CMP	#$88	;Test for backspace
		BRA	NOTCR4	;

		FillTo	$FD2F	;Pad

ESC		JSR	RDESC	;
		JSR	ESCNEW	;HANDLE ESC FUNCTION. 
RDCHAR		EQU	*	;Maintained entry point $FD35
		JSR	NEWRDKEY	;Flag RDCHAR and read key 
		CMP	#$9B	;'ESC'? 
		BEQ	ESC	;  YES, DON'T RETURN. 
		RTS

* Go to user interrupt handler(s).

GOIRQ~Bnk00	EQU	*-Rel~Org+Bnk~Org
		JMP	(IRQLOC)	;and jump to user

PICKFIX		LDY	#$D	;code = fixpick
		JSR	GOTOBANKFF	;do 80 column pick
		LDY	CH	;restore Y
		STA	IN,X	;and save new character

NOTCR		EQU	*
		JSR	COUT	;echo typed char
		LDA	IN,X
		BRA	NOTCR2	;Check for cursor change indicator

NOTCR4		EQU	*
		BEQ	BCKSPC	;  - BACKSPACE 
		CMP	#$98
		BEQ	@2	;  - CONTROL-X 
		CPX	#$F8
		BCC	@1	;MARGIN? 
		JSR	BELL	; YES, SOUND BELL 
@1		INX		;ADVANCE INPUT INDEX 
		BNE	NXTCHAR

@2		LDA	#$DC	;BACKSLASH AFTER CANCELLED LINE 
		JSR	COUT
GETLNZ		EQU	*	;Maintained entry point $FD67
		JSR	CROUT	;Output carriage return
GETLN		EQU	*	;Maintained entry point $FD6A
		LDA	PROMPT	;Output prompt character
GETLN0		EQU	*	;Maintained entry point $FD6C
		JSR	COUT	;Output accumulator contents as prompt chr
GETLN1		EQU	*	;Maintained entry point $FD6F
		LDX	#$01	;INIT INPUT INDEX 
BCKSPC		TXA
		BEQ	GETLNZ	;WILL BACKSPACE TO 0 
		DEX
NXTCHAR		JSR	RDCHAR
		CMP	#$95	;USE SCREEN CHAR
		BNE	@1	; FOR CONTROL-U
		LDA	(BASL),Y	;do 40 column pick
		BIT	RD80VID	;80 columns?
		BMI	PICKFIX	;=>yes, fix it
		NOP		;Required filler
@1		EQU	*
		JSR	TESTDEL	;Test for delete then add to input buffer 
		CMP	#$8D
		BNE	NOTCR
CROUT1		EQU	*	;Maintained entry point $FD8B
		JSR	CLREOL	;CLR TO EOL IF CR 
CROUT		EQU	*	;Maintained entry point $FD8E
		LDA	#$8D	;Output a carriage return
		BRA	COUT	;

PRA1		EQU	*	;Maintained entry point $FD92
		LDY	A1H	;PRINT CR,A1 IN HEX 
		LDX	A1L
		JSR	CROUT
XPRADDR		JSR	PRNTYX
		LDY	#$00
		LDA	#':'	;PRINT ':' 
		BRA	COUT

XAM8		JSR	DSPCOUNT
		ORA	A1L
		STA	A2L	; MOD 8=7 
		LDA	A1H
		STA	A2H
XAM		EQU	*
		JMP	TONEWRTNS	;Off to new routine entry points

XAMPM		EQU	*	;DETERMINE IF MONITOR MODE IS 
		PHA		;Set/clear 'z'
		PLA		;
		BEQ	XAM	;= then doing carriage return
		CMP	#'.'	;Examine mode?
		BEQ	XAM	; EXAMINE, ADD OR SUBTRACT  
		PHY		;Preserve 'Y' around call
		LDY	#$A1	;'Y'=$A1 for math calls
		JMP	GETLENGTH2	;Do routine+restore 'Y' and return

TESTDEL		EQU	*	;Test for delete/backspace key pressed
		CMP	#$FF	;$FF= delete/backspace key
		BNE	@2	;<>= delete or backspace
		XBA		;Save 'A' in case we must use it
		LDA	>CHGCURFLG	;If changing cursor do NOT change del char
		ASL	A	;Set/clear 'c'
		XBA		;Restore 'A'
		BCC	@1	;
		BIT	RD80VID	;If 80 columns on then convert $FF to $00
		BPL	@2	;'+' then 40 columns
		INC	A	;Increment $FF to $00 if in 80 columns
@1		EQU	*
		AND	#$88	;Convert $FF to $88 (delete to left arrow)
@2		EQU	*
		STA	IN,X	;Save in input buffer
		RTS		;Back to caller


TONEWVW		JMP	NEWVW	;new entry to vidwait


		FillTo	$FDDA	;Pad


PRBYTE		EQU	*	;Maintained entry point $FDDA
		PHA		;PRINT BYTE AS 2 HEX DIGITS 
		LSR	A	; (DESTROYS A-REG) 
		LSR	A
		LSR	A
		LSR	A
		JSR	PRHEXZ
		PLA
PRHEX		EQU	*	;Maintained entry point $FDE3
		AND	#$0F	;PRINT HEX DIGIT IN A-REG 
PRHEXZ		ORA	#$B0	;LSBITS ONLY. 
		CMP	#$BA
		BCC	COUT
		ADC	#$06

COUT		EQU	*	;Maintained entry point $FDED
		JMP	(CSWL)	;Output via output hooks

COUT1		EQU	*	;Maintained entry point $FDF0
		PHA		;save original character
		CMP	#$A0	;is it a control?
		JMP	DOCOUT1	;=>mask if not; return to COUTZ1

COUTZ		EQU	*	;Maintained entry point $FDF6
		PHA		;save original character
COUTZ1		STY	YSAV1	;save Y
		TAY		;save masked character
		PLA		;get original char
		BRA	TONEWVW	;new entry to vidwait

BL1		DEC	YSAV
		BEQ	XAM8
BLANK		DEX		;BLANK TO MON 
		BNE	SETMDZ	;AFTER BLANK 
		CMP	#':'	;DATA STORE MODE? 
		BNE	XAMPM	; NO; XAM, ADD, OR SUBTRACT. 
		JMP	STOR	;= then user wants to do a store

SETMODE		LDY	YSAV	;SAVE CONVERTED ':','+','*','_'
		LDA	IN-1,Y	; '-', '.' AS MONMODE 
SETMDZ		STA	MONMODE
		RTS

USR		EQU	*
		CLC		;Switch to native mode for long jmp
		XCE		;
		JMP	>CTRLYVECTOR	;If no routine hooked in then return

USR2~Bnk00	EQU	*-Rel~Org+Bnk~Org	;Returns here if no routine
		SEC		;Switch to emulation mode
		XCE		;
		JMP	USRADR	;JUMP TO CONTROL-Y VECTOR IN RAM 

		FillTo	$FE1F	;Pad



		TITLE	'Auto-Start Monitor ROM'
*****************************************
*                                       *
*               APPLE II                *
*              MONITOR II               *
*                                       *
*    Copyright 1978, 1981, 1984-1989    *
*                   by                  *
*          Apple Computer, Inc.         *
*                                       *
*          All Rights Reserved          *
*                                       *
*       S. Wozniak             1977     *
*       A. Baum                1977     *
*       John A            Nov  1978     *
*       R. Auricchio      Sep  1981     *
*       E. Beernink            1984     *
*       E.K. Lai          Sep  1984     *
*       F. Bachman          1985-1987   *
*       Joe Bo              1988-1989   *
*                                       *
*****************************************


IDROUTINE		EQU	*
		LDA	REGIDA	;Register identification for 'A'
		LDX	REGIDX	;Register identification for 'X'
		LDY	REGIDY	;Register identification for 'Y'
		CLC		;'C'=0 means this in not a //e or //c
		RTS		;Back to caller

		FillTo	$FE2C	;Pad

MOVE		EQU	*	;Maintained entry point $FE2C
		LDA	(A1L),Y	;MOVE (A1) THRU (A2) TO (A4) 
		STA	(A4L),Y
		JSR	NXTA4
		BCC	MOVE
		RTS

NEWRESET		EQU	*	;Dummy up int stack pointers
		CLC		;Switch to native mode for JSL
		XCE		;
		JSL	>SPELRESET	;Special power up reset
		SEC		;Switch back to emulation mode
		XCE		;
		LDY	#$A3	;'Y'=$A3 for setting up BATTERYRAM stuff
		JSR	GOTOBANKFF	;

SETVIDKBD		EQU	*	;Set up 40 column video and keyboard
		JSR	SETNORM	;Set normal character output
		JSR	INIT	;Set up some parameters
		JSR	SETVID	;Set video as output
		BRA	SETKBD	;Set keyboard as input

GOTXT1		EQU	*	;Go to Text page 1
;LDA #$80 ;No super hi res screen
;TRB NEWVIDEO ;
;LDA TXTSET ;Enable text
;LDA MIXCLR ;Clear mixed mode
;STZ WNDTOP ;Reset top of window
;BRA GOTXT2 ;Continue this way
		LDY	#$A9
		JMP	GOTOBANKFF
GOTXT11		EQU	*
		LDY	#$AA
		JMP	GOTOBANKFF

		FillTo	$FE5E	;Pad

VFY		EQU	*	;Maintained entry point $FE5E
		LDY	#$83	;Do new verify in bank FF
		BRA	TONEWRTNS2	;Go to it

A1PC		TXA		;IF USER SPECIFIED AN ADDRESS, 
		BEQ	@2	; COPY IT FROM A1 TO PC. 
@1		LDA	A1L,X	;YEP, SO COPY IT. 
		STA	PCL,X
		DEX
		BPL	@1
@2		RTS


TONEWRTNS		EQU	*
		PHA		;Preserve 'A'
		TYA		;Convert $0Y to $8Y
		ORA	#$80	;
		TAY		;
		PLA		;Restore 'A'
TONEWRTNS2	EQU	*
		BRA	IOPRT2	;Off to routine

* Determine whether to display 8 or 16 bytes

DSPCOUNT		EQU	*
		LDA	WNDWDTH	;How many columns?
		CMP	#72	;> or = to 72 columns
		LDA	#$0F	;Anticipate 16 fields of data to display
		BCS	@1	;'c' from CMP above
		LDA	#$07	;'c'=0 then display 8 fields of data only
@1		EQU	*
		RTS		;Back to caller

		FillTo	$FE80	;Pad

SETINV		EQU	*	;Maintained entry point $FE80
		LDY	#$3F	;SET FOR INVERSE VID 
		BNE	SETIFLG	; VIA COUT1 
SETNORM		EQU	*	;Maintained entry point $FE84
		LDY	#$FF	;SET FOR NORMAL VID 
SETIFLG		STY	INVFLG
		RTS

SETKBD		EQU	*	;Maintained entry point $FE89
		LDA	#$00	;DO 'IN#0'
INPORT		EQU	*	;Maintained entry point $FE8B
		STA	A2L	;DO 'IN#AREG' 
INPRT		LDX	#KSWL
		LDY	#KEYIN
		BNE	IOPRT

SETVID		EQU	*	;Maintained entry point $FE93
		LDA	#$00	;DO 'PR#0' 
OUTPORT		EQU	*	;Maintained entry point $FE95
		STA	A2L	;DO 'PR#AREG' 
OUTPRT		LDX	#CSWL
		LDY	#COUT1
IOPRT		LDA	A2L	;SET INPUT/OUTPUT VECTORS
		AND	#$0F
		BEQ	@1
		ORA	#>IOADR
		LDY	#$00
@1		STY	LOC0,X	;save low byte of hook
		STA	LOC1,X	;save acc 
		LDY	#$E	;code=PR#/IN#
IOPRT2		BRA	GOTOFF4	; branch always

BASCONT		JMP	BASIC2	;TO BASIC, WARM START 

GOTXT2		EQU	*
		LDA	TXTPAGE1	;Enable text page 1
		RTS		;Back to caller

MONDSKACC		EQU	*	;Enable the monitor desk accessory
		BRA	MONDSKACC2	;Must have entry point in $FExx 

		FillTo	$FEB6	;Pad

GO		EQU	*	;Maintained entry point $FEB6
		JSR	A1PC	;Address to PC if specified
		JSR	RESTORE	;Restore fake registers
		JMP	(PCL)	; and execute routine.

QUITMON		EQU	*
		LDA	OSWMSTRT	;Test if JMP opcode installed
		CMP	#$4C	;JMP opcode
		BEQ	@1	;= then restart operating system
		RTS		;Back to monitor

@1		EQU	*
		JMP	OSWMSTRT	;Warmstart operating system

NEWREGZ		EQU	*
		JMP	REGDSP	;Go do new register display

		FillTo	$FECD	;Pad

WRITE		EQU	*	;Maintained entry point $FECD
		RTS		;Dummy routine


MAKENATIVE	INY		;'Y' = $91 for default 'm'/'x'/'e' = 0
UTILITY		INY		;'Y' = $90 for utility call to Tools
X816		INY		;'Y' = $8F for execute JSL subroutine
GO816		INY		;'Y' = $8E for go JSR subroutine
LITASC		INY		;'Y' = $8D for literal ASCII input mode
CMDZAP		INY		;'Y' = $8C for Zap memory command
PTRNSET		INY		;'Y' = $8B for set pattern for search
LIST		INY		;'Y' = $8A for list
EQUALS		INY		;'Y' = $89 for equals
RESUME		INY		;'Y' = $88 for new resume
STEP		INY		;'Y' = $87 for step
TRACE		INY		;'Y' = $86 for trace
STOR		INY		;'Y' = $85 for store
MINI		INY		;'Y' = $84 for miniassembler
XVERIFY		INY		;'Y' = $83 for verify
XMOVE		INY		;'Y' = $82 for move
SEARCH		INY		;'Y' = $81 for pattern search
		BRA	TONEWRTNS	;Continue this way

REGSET		EQU	*	;Sets up registers for monitor entry
		LDY	#$96	;'Y'=$96 for register setup for monitor
GOTOFF4		JMP	GOTOBANKFF	;perform call

NEWFIXSEV		EQU	*
		STY	SOFTEV
		JSR	WARMUPAPTALK	;Enable DATAREG ints for desk acc mgr
XBASIC		JMP	BASIC	;TO BASIC, COLD START 

ESC1_1		EQU	*
		PLA		;Remove 1 RTS from stack
		PLA		;
		LDA	#$98	;Cancel the line with control-X
		JMP	COUT	;Causes shift to 80 columns

CRMON		JSR	BL1	;HANDLE CR AS BLANK 
		PLA		; THEN POP STACK 
		PLA		; AND RETURN TO MON 
		BRA	MONZ2	;Exit to monitor

		FillTo	$FEFD	;Pad

READ		EQU	*	;Maintained entry point $FEFD
		RTS		;Dummy routine

LT		LDA	>BANKS
		STA	>BANKD
		LDX	#$01
@1		LDA	A2L,X	;COPY A2 (2 BYTES) TO  
		STA	A4L,X	; A4 AND A5 
		DEX
		BPL	@1
		RTS

MONDSKACC2	EQU	*	;Enable the monitor desk accessory
		INY		;'Y' = $92 for install monitor desk acc
		BRA	MAKENATIVE	;Continue in regular loop

		FillTo	$FF13	;Pad

* NNBL gets the next non-blank for the mini-assembler

NNBL		JSR	UPMON	;get char, upshift, INY
		CMP	#$A0	;is it blank?
		BEQ	NNBL	;yes, keep looking
		RTS

LOOKASC		BCS	DIG	;it was a digit
		CMP	#$A0	;check for quote (')
		BNE	RTS6	;nope, return char
		LDA	IN,Y	;else get next char
		LDX	#7	;for shifting asc into A2L and A2H
		CMP	#$8D	;was it CR?
		BEQ	GETNUM	;yes, go handle CR
		INY		;advance index
		BNE	NXTBIT	;=>(always) into A2L and A2H

		FillTo	$FF2D	;Pad

PRERR		EQU	*	;Maintained entry point $FF2D
		LDA	#$C5	;Print 'ERR', then fall into beeper.
		JSR	COUT	;
		LDA	#$D2
		JSR	COUT
		JSR	COUT

BELL		EQU	*	;Maintained entry point $FF3A
		LDA	#$87	;MAKE A JOYFUL NOISE, THEN RETURN. 
		JMP	COUT

RESTORE		EQU	*	;Maintained entry point $FF3F
		LDA	STATUS	;RESTORE 6502 REGISTER CONTENTS 
		PHA		;
		LDA	A5H
		LDX	XREG	;Was label RESTR1
		LDY	YREG
		PLP
RTS6		RTS

SAVE		EQU	*	;Maintained entry point $FF4A
		STA	A5H	;SAVE 6502 REGISTER CONTENTS 
SAV1		STX	XREG	;
		STY	YREG
		PHP
		PLA
		STA	STATUS
		TSX
		STX	SPNT
		CLD
IORTS		EQU	*	;Maintained entry point $FF58
		RTS

OLDRST		EQU	*	;Maintained entry point $FF59
		JSR	SETVIDKBD	;Init keyboard and video
		BRA	MON	;Skip fill buffer

SETPRMPT		EQU	*	;Set up monitor prompt
		LDA	#$AA	;'*' PROMPT FOR MONITOR 
		STA	PROMPT
		JMP	GETLNZ	;Exit by getting a line of input

		FillTo	$FF65	;Pad

MON		EQU	*	;Maintained entry point $FF65
		CLD		;MUST SET HEX MODE! 
		JMP	OLDBRK2	;Beep the speaker/skip REGSET


* Enter here for normal monitor mode.
* All registers/modes set up to default on entry here.

MONZ		EQU	*	;Maintained entry point $FF69
		JSR	REGSET	;Set up registers

* Enter here for last monitor mode.
* All registers/modes same as last time user exited monitor.

MONZ2		EQU	*	;Maintained entry point $FF6C
		NOP		;Required filler to make entry pnts match
		JSR	SETPRMPT	;Set up prompt char/read an input line
MONZ4		EQU	*	;Maintained entry point $FF70
		JSR	ZMODEYSAV	;Clear monitor mode, scan idx, YSAV
NXTITM		EQU	*	;Get next item, non-HEX
		JSR	GONEWGETNUM	;Use new getnum routine
		STY	YSAV
		LDY	#CHRTBLLEN+1	; X-REG=0 IF NO HEX INPUT 
@1		DEY		;Character search loop
		BMI	MON	;COMMAND NOT FOUND, BEEP & TRY AGAIN. 
		CMP	CHRTBL,Y	;FIND COMMAND CHAR IN TABLE 
		BNE	@1	;NOT THIS TIME 
		JSR	TOSUB	;GOT IT! CALL CORRESPONDING SUBROUTINE 
		LDY	YSAV	;PROCESS NEXT ENTRY ON HIS LINE 
		JMP	NXTITM	;JMP for code alignment

DIG		EQU	*	;Maintained entry point $FF8A
		LDX	#$03
		ASL	A
		ASL	A	;GOT HEX DIGIT, 
		ASL	A	; SHIFT INTO A2 
		ASL	A
NXTBIT		ASL	A	;Shift in next bit loop
		ROL	A2L
		ROL	A2H
		DEX		;LEAVE X=$FF IF DIG 
		BPL	NXTBIT
@2		LDA	MONMODE
		BNE	@3	;IF MODE IS ZERO, 
		LDA	A2H,X	; THEN COPY A2 TO A1 AND A3 
		STA	A1H,X
		STA	A3H,X
@3		INX
		BEQ	@2
		BNE	NXTCHR

GETNUM		EQU	*	;Maintained entry point $FFA7
		LDX	#$00	;CLEAR A2 
		STX	A2L
		STX	A2H
NXTCHR		EQU	*	;Maintained entry point $FFAD
		JSR	UPMON	;get char, upshift, INY
		NOP		;REQUIRED filler for compatibility
		EOR	#$B0
		CMP	#$0A
		BCC	DIG	;BR IF HEX DIGIT 
		ADC	#$88
		CMP	#$FA
		JMP	LOOKASC	;check for ASCII input


		FillTo	$FFBE	;Pad

TOSUB		EQU	*	;Maintained entry point $FFBE
		LDA	#>GO	;DISPATCH TO SUBROUTINE, BY 
		PHA		; PUSHING THE HI-ORDER SUBR ADDR, 
		LDA	SUBTBL,Y	; THEN THE LO-ORDER SUBR ADDR 
		PHA		; ONTO THE STACK, 
		LDA	MONMODE	; (CLEARING THE MONMODE, SAVE THE OLD 
ZMODE		EQU	*	;Maintained entry point $FFC7
		LDY	#$00	; MONMODE IN A-REG), 
		STY	MONMODE
PRODOSRTS		EQU	*	;Maintained entry point $FFCB
		RTS		; AND 'RTS' TO THE SUBROUTINE! 

GETLENGTH		EQU	*	;Preset 'Y' to 00
		LDY	#$00
		BRA	TOGETLENGTH

		FillTo	$FFD0	;Pad

DOSEF		EQU	*	;Maintained entry point $FFD0
		DC.B	$EF	;V   (MEMORY VERIFY) 

ZMODEYSAV		EQU	*
		STZ	YSAV	;Must zero entry point into the input
		JSR	ZMODE	; buffer and zero out monitor mode.

FIXSPEED		EQU	*
		LDA	CYAREG	;Be sure system speed is correct
		AND	#$7F	;Reset hi bit in case 'slow' (Yuk!) speed
FIXSPEED2		EQU	*
		ORA	>SYSTEMSPD	; as per user instructions.
		STA	CYAREG	;
		RTS		;Back to caller

		FillTo	$FFE4	;Pad

NCOP		EQU	*	;Maintained entry point $FFE4
		DC.W	TONCOP	;Native COP interrupt vector
NBREAK		EQU	*	;Maintained entry point $FFE6
		DC.W	TONBREAK	;Native break interrupt vector
NABORT		EQU	*	;Maintained entry point $FFE8
		DC.W	TONABORT	;Native abort interrupt vector
NNMI		EQU	*	;Maintained entry point $FFEA
		DC.W	NMI	;Native non-maskable interrupt vector
		DC.B	$E6,$E2	;Required
NIRQ		EQU	*	;Maintained entry point $FFEE
		DC.W	TONIRQ	;Native IRQ interrupt vector

TOGETLENGTH	EQU	*
		JMP	GETLENGTH1	;Continue with normal code
		DC.B	0	;Required filler

ECOP		EQU	*	;Maintained entry point $FFF4
		DC.W	TOECOP	;Emulation COP interrupt vector

CHKSUMTWEAK	EQU	*
		DC.W	$0000	;Modify to make bank FE/FF checksum=$1234

EABORT		EQU	*	;Maintained entry point $FFF8
		DC.W	TOEABORT	;Emulation abort interrupt vector
ENMI		EQU	*	;Maintained entry point $FFFA
		DC.W	NMI	;Emulation non-maskable interrupt vector
ERESET		EQU	*	;Maintained entry point $FFFC
		DC.W	RESET	;Reset vector  
EBRKIRQ		EQU	*	;Maintained entry point $FFFE
**********************************************************************
; AsmIIgs generates an ERROR if you assemble the last byte of the address space
; and thus "wrap" the address space from $FF/FFFF to $00/0000 and this error 
; prevents the generation of the output object file!!!! 
; THIS IS A BUG!!!!!!
**********************************************************************
; See the silly 1 word PROC that follows!
;		DC.W	TOEBRKIRQ	;Emulation break/IRQ interrupt vector
**********************************************************************
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSFirmware/Serial/SERIAL.aii b/IIGS.601.SRC/GSFirmware/Serial/SERIAL.aii
new file mode 100644
index 0000000..6113527
--- /dev/null
+++ b/IIGS.601.SRC/GSFirmware/Serial/SERIAL.aii
@@ -0,0 +1 @@
+		PRINT	NODATA,NOGEN	; 
		MACHINE	M65816
		TITLE	'Apple IIgs Serial Firmware'

;	This EdAsm/Asm816 source code file was converted to AsmIIGS
;	by EdAsmCvtIIGS version 1.2d7 on 5/14/91 at 10:54:39 PM


;             SSSSS  EEEEEEE RRRRRR   III    A    L    
;            S     S E       R     R   I    A A   L
;            S       E       R     R   I   A   A  L
;             SSSSS  EEEEE   RRRRRR    I  AAAAAAA L
;                  S E       R  R      I  A     A L
;            S     S E       R   R     I  A     A L
*             SSSSS  EEEEEEE R     R  III A     A LLLLL
*
*
*          Modified from the //c code by Michael Askins
*
*              Copyright Apple Computer, Inc., 1986
*                      All Rights Reserved
*





VERSION		EQU	$1020
*
*
		TITLE	'Firmware History'
*****************************************************************
*                                                               *
*  Modification History:                                        *
*                                                               *
* Rel  Date       Who  Action                                   *
* ------------------------------------------------------------- *
*                      Buffering is not implemented             *
* ***  17 Feb 86  MSA  *** Release Alpha 1.00 ***               *
*      26 Feb 86  MSA  Clean up screen hole usage               *
*                      Implement buffering                      *
*                      Fixed XON/XOFF                           *
*                      Make default wait 'til Tx underrun       *
*      28 Feb 86  MSA  Incorporate default flag for $CN00 users *
*                      Clean up BASIC tabbing and CR stuffing   *
*      06 Mar 86  MSA  Regularize the printer port              *
*                      Add command disable bit                  *
*                      Chg buffering hs thresholds to 25 %      *
*                      Make Pascal status call work w/ buffrng  *
*                      All interrupts check if it's time to Tx  *
*                      The zero count interrupt installed       *
*                      Rx interrupts record heartbeat value     *
*                      Asking for buffering forces a 'CLI'      *
*      07 Mar 86  MSA  Made buffering turn on with BE/D         *
*                      Default now clears sermode3              *
*                      Buffered handshaking made to work        *
*                      Moved SCC file forward to make room      *
* ***  10 Mar 86  MSA  *** Release Alpha 2.00 ***               *
*      10 Mar 86  MSA  Extended xface fixed to preserve DBR     *
*                      Fix XON/XOFF in inthandler and serout    *
*      12 Mar 86  MSA  Added hardware control calls             *
*                      Reclaimed extra $CN00 area from Ctl Pnl  *
*      24 Mar 86  MSA  Added input error checking and reporting *
*                      Added large buffer allocation            *
*                      Added interrupt notification             *
*                      Fix heartbeat subtraction                *
*      25 Mar 86  MSA  Serint now alters the statereg to        *
*                       assure that the screenholes are acc-    *
*                       cessible.  The statereg is preserved.   *
* ***  26 Mar 86  MSA  *** RELEASE BETA 1.00 ***                *
*      01 Apr 86  MSA  Add EE/D, fix BE/D, D cmds in BASIC xfc  *
*                      Monitor equates corrected                *
*      04 Apr 86  MSA  AppleTalk hooks installed                *
*      11 Apr 86  MSA  CN00 spaces now stack CYAREG & STATEREG  *
*      18 Apr 86  MSA  Fix Basic formatting in BASICIO          *
*                      Add Basic formatting bit                 *
*                      Awaiting XON is checked on Pascal Status *
*      23 Apr 86  MSA  Add AppleTalk BRP call, support ATDeq    *
*                      Fix DCD option induced handshake bug     *
*                      Store CX in MSlot in PascalIO            *
* ***  23 Apr 86  MSA  *** Release BETA 2.00 ***                *
*      07 May 86  MSA  Clear column counter on inits            *
*                      Change IntInfo call                      *
*                      Fix bugs in interrupt handler            *
*                      Fixed Basic tabbing (hopefully for good) *
*                                                               *
*****************************************************************
		EJECT
*****************************************************************
*                                                               *
*  Modification History (continued):                            *
*                                                               *
* Rel  Date       Who  Action                                   *
* ------------------------------------------------------------- *
*      13 May 86  MSA  Moved AppleTalk bit                      *
*                      Added the A (basic tabbing) command      *
*                      Moved version number to CNFE,CNFF        *
* ***  14 May 86  MSA  *** RELEASE BETA 3.0 ***  (V1.00)        *
*      19 May 86  MSA  Store of screen loc jst prior to setcur  *
*      20 May 86  MSA  Fix Basic BD command                     *
*                      Fix Basic 0B command                     *
*      27 May 86  MSA  Add buffer deallocation to 'R' command   *
* ***  28 May 86  MSA  *** Release 1.00 ***                     *
*      07 Oct 86  MSA  Fixed the branch in BUFALLOC which       *
*                       caused a stack screwup in the unlikely  *   
*                       event that the Disposhandle call in     * 
*                       the buffer deallocation routine fails.  *
*      01 Nov 86  FAB  Fixed Serout3 so that an explicit check  *
*                       for Zap mode is made and if Zap is on,  *
*                       LF stuffing is defeated.                *
*      08 Jan 87  MSA  Fix Status call so that a char does not  *
*                       appear ready if erroneous               *
*                      Fix GetData so that error checking is    *
*                       done before the grabbing of a char to   *
*                       allow for the lack of error latching of *
*                       the SCC... the error clear command is   *
*                       no longer issued.                       *
*                      Add bit to allow errant data through     *
* *** 09-Jan-87  MSA   *** Release Rev 01 Alpha ***             *
*     13-Jan-87  MSA   Rev the status call to correctly work    *
*                       with XON/XOFF                           *
*                      Change colon to equals in XRDSER to fix  *
*                       data loss while awaiting XON char       *
* *** 23-Jan-87  MSA   *** Release Rev 01 Alpha 2 ***           *
*     28-Jan-87  MSA   Swap pwdth and flags screenholes so old  *
*                       apps which try to jam pwdth will work.  *
*                       Revved (bastardized) ModeBits routine   * 
*                       to accommodate the swap.                *
*     29-Jan-87  MSA   Change BASICIO so that if asoft tabbing  *
*                       is on and 80 cols is active OURCH is    *
*                       updated in addition to CH.  Fixes       *
*                       erratic operation in 80 col mode.       *
*     05-Feb-87  MSA   Change InitSerial call in command so     *
*                       that it includes a call to EnableInt.   *
*                       Fixes bug with parity, baud and         *
*                       dataformat settings disabling buffering *
* *** 06-Feb-87  MSA   *** Release 01 Beta 1 ***                *
*     13-Feb-87  MSA   Undo change to Zap mode since programs   *
*                       broke.  Zap once again does not defeat  *
*                       linefeed stuffing. (See 11/1/86 entry)  *
* *** 20-Feb-87  MSA   *** Release 01 Beta 2 ***                *
*     24-Feb-87  MSA   Preserve MSlot across Recharge routine   *  
* *** 27-Feb-87  MSA   *** Release 02 Beta 3 ***                * 
*                                                               *
*****************************************************************
*
*
*
		INCLUDE '::Firmware.macros.aii'
*
*
* Pass this guy a bank number and he'll preserve the current value
*  on the stack before setting it the way you want.  A, X, and Y are un-
*  disturbed.  Thank you, Fern.
*
		MACRO
		SETDBR	&NewDBRVal
		PHB
		PEA	&NewDBRVal
		PLB
		PLB
		ENDM
*
		INCLUDE	'equates.aii'
*
		LONGA	OFF
		LONGI	OFF

		SEG	'C1SEG'
C1XX_SERIAL	PROC	ORG $FFC100
		IMPORT	NEWEXTVEC
		IMPORT	NEWBASVEC
		IMPORT	NEWPASVEC
		IMPORT	FFDEVLBL
		ENTRY	GETSTAT
		INCLUDE	'port1.aii'
		DC.W	VERSION
		ENDP
*
		LONGA	OFF
		LONGI	OFF
		SEG	'C2SEG'
C2XX_SERIAL	PROC	ORG $FFC200
		IMPORT	NEWEXTVEC
		IMPORT	NEWBASVEC
		IMPORT	NEWPASVEC
		IMPORT	ENABLEINT
		IMPORT	INITSERIAL
		ENTRY	INITSERIALPB
		INCLUDE	'port2.aii'
		DC.W	VERSION
		ENDP
*
		LONGA	OFF
		LONGI	OFF
		SEG	'SERIAL'
Bnk~Org		EQU	$0000
SERIAL_DRVR	PROC	ORG $FF0000
		ENTRY	NEWEXTVEC
		ENTRY	NEWBASVEC
		ENTRY	NEWPASVEC
		ENTRY	FFDEVLBL
		ENTRY	INITSERIAL
		ENTRY	ENABLEINT
		IMPORT	GETSTAT
		IMPORT	INITSERIALPB
Rel~Org:
*
* Jump table
*
QSETUP		JMP	Basic
QPASCAL		JMP	Pascal
QEXTDISPATCH	JMP	ExtDispatch
QATDEQ		JMP	ATDeQ
*
		INCLUDE	'serialdrvr.aii'
*
*
		FillTo	$1000
		ENDP
		
		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSFirmware/Serial/Serial.make b/IIGS.601.SRC/GSFirmware/Serial/Serial.make
new file mode 100644
index 0000000..c70a9eb
--- /dev/null
+++ b/IIGS.601.SRC/GSFirmware/Serial/Serial.make
@@ -0,0 +1 @@
+#   File:       Serial.make
#   Created:    June 13, 1991   by JOA
# 	Copyright Apple Computer, Inc. 1991
# 	All rights reserved.

Serial 		Ä	Serial.make				¶
				Serial.aii				¶
				::Firmware.macros.aii	¶
				equates.aii				¶
				port1.aii				¶
				port2.aii				¶
				serialdrvr.aii	
	AsmIIgs  {userAOptions} -h Serial.aii -wt -o Serial.obj
	LinkIIgs  Serial.obj -o Serial.rel
	MakeBinIIgs Serial.rel -o Serial
	dup Serial ::bin:C1xx.bin
	dup Serial.2 ::bin:C2xx.bin
	dup Serial.3 ::bin:Serial.bin
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSFirmware/Serial/equates.aii b/IIGS.601.SRC/GSFirmware/Serial/equates.aii
new file mode 100644
index 0000000..df42183
--- /dev/null
+++ b/IIGS.601.SRC/GSFirmware/Serial/equates.aii
@@ -0,0 +1 @@
+		TITLE	'Serial & Communications equates'

;	This EdAsm/Asm816 source code file was converted to AsmIIGS
;	by EdAsmCvtIIGS version 1.2d7 on 5/14/91 at 11:5:32 PM

*
* Command codes
*
* Default command char is ctrl-A (^A) or ctrl-I
*
*     ^AnnB: Set baud rate to nn
*     ^AnnD: Set data format bits to nn
*     ^AI:   Enable video echo
*     ^AK:   Disable CRLF
*     ^AL:   Enable CRLF
*     ^AnnN: Disable video echo & set printer width
*     ^AnnP: Set parity bits to nn
*     ^AQ    Quit terminal mode
*     ^AR    Reset the ACIA, IN#0 PR#0
*     ^AS    Send a 233 ms break character
*     ^AT    Enter terminal mode
*     ^AZ:   Zap control commands
*     ^Ax:   Set command char to ^x
*     ^AnnCR:Set printer width (CR = carriage return)
*
* Enable / Disable commands
*
*     ^AC E/D Column overflow
*     ^AL E/D Linefeed same as L & K
*     ^AM E/D Mask incoming linefeeds
*     ^AX E/D Xon Xoff handshaking
*     ^AF E/D Find keyboard
*     ^AB E/D Turn on/off buffering
*     ^AA E/D Turn on/off Applesoft tabbing mode
*     ^AE E/D Turn on/off video echo
*
*
SERSLOT		EQU	$C100
COMSLOT		EQU	$C200
		MSB	ON
CMDCUR		EQU	'?'	;Cursor while in command mode
TERMCUR		EQU	'_'	;Cursor while in terminal mode
		MSB	OFF
LFEED		EQU	$8A	;Linefeed
XON		EQU	$91	;XON character
XOFF		EQU	$93	;XOFF character
NEWXON		EQU	$11	;XON character without hi bit
NEWXOFF		EQU	$13	;XOFF character without hi bit
*
* Screenhole usage
*
*  479,47A      temp          ;Temporary for the command parser
*  4F9,4FA      eschar        ;Current escape character
*  579,57A      sermode       ;Firmware mode flags
*  5F9,5FA      sermode3      ;Firmware mode flags
*  679,67A      sermode2      ;Firmware mode flags
*  6F9,6FA      pwdth         ;Number of columns on device
*  779,77A      col           ;Output device column counter
*  7F9,7FA      flags         ;Firmware mode flags
*
TEMP		EQU	$479-$C1	;Temp for command parser
ESCHAR		EQU	$4F9-$C1	;Current escape character
SERMODE		EQU	$579-$C1	;Firmware mode flags
SERMODE3		EQU	$5F9-$C1	;
SERMODE2		EQU	$679-$C1	;Firmware mode flags
PWDTH		EQU	$6F9-$C1	;Printer width
COL		EQU	$779-$C1	;Current printer column
FLAGS		EQU	$7F9-$C1	;D7 = Video echo D6 = CRLF
*
MSLOT		EQU	$07F8	;(slot 0 temp) owner of $C8 space 
OURCH		EQU	$057B	;Column counter for 80 column firmware
*
* Sermode2 bit position masks
*
NFLAGMASK		EQU	%10000000
BFRNGMASK		EQU	%01000000
DCDHSMASK		EQU	%00100000
CHRBUFMASK	EQU	%00010000	;Bit says if one byte buf is full
CRSTUFFMASK	EQU	%00001000	;Enable/Disable col overflow cr stuffing
INFLOMASK		EQU	%00000100	;Input flow is halted
OUTFLOMASK	EQU	%00000010	;Output flow is halted
BRPMASK		EQU	%00000001
*
* Sermode3 bit position masks
*
CSDMASK		EQU	%10000000
RCVERRMASK	EQU	%01110000
BTABMASK		EQU	%00001000
BASICMASK		EQU	%00000100
EMASK		EQU	%00000010	;Little doc'd error suppression defeat
*
* Flags bit position masks
*
ECHOMASK		EQU	%10000000
GENLFMASK		EQU	%01000000
XMASK		EQU	%00100000
KEYMASK		EQU	%00010000
MASKLFMASK	EQU	%00001000
DSRHSMASK		EQU	%00000100	;Enable/Disable DSR Tx handshake
WAITXMASK		EQU	%00000010
COMMMASK		EQU	%00000001
*
*
* SCC Hardware
*
SCCCMD		EQU	$BFFD	;For Port 1 add $3C, port 2 add $3B
SCCDATA		EQU	$BFFF
*
*
*******************************
*                             *
*       Bank $E1 Storage      *
*                             *
*******************************
*
		EQUSECT	$E10FFC
*
SPEEDSTORE	EQUDS.B	2	;Used to keep speed at entry (1 ea port)
FIRSTTIME		EQUDS.B	2	;Indexed with $C1
*
		EQUORG	$E1158A
*
NUMBER		EQUDS.B	1
OLDCUR		EQUDS.B	1	;Saves cursor while in command
OLDCUR2		EQUDS.B	1	;Saves cursor while in terminal mode
*
* These are storage locations for the SCC registers and are referenced
*  with $3C, and $3B as indices.
*
		EQUORG	$E1158E-$3B
*
WR3		EQUDS.B	2
WR4		EQUDS.B	2
WR5		EQUDS.B	2
WRCD		EQUDS.B	2
*
		EQUORG	$E11596-$C1
*
APTALKFLAG	EQUDS.B	2	;MSB says if Appletalk active
ONEBYTEBUF	EQUDS.B	2	;Single char buffer used in XON/XOFF
SAVEHEARTBEAT	EQUDS.W	2	;Time last char was received
USERINT		EQUDS.B	2	;Interrupt instructions from user (app)
OLDRR0		EQUDS.B	2
DISHONESTY	EQUDS.B	2
*
		EQUORG	$E115A4
*
RCHGADR1		EQUDS.B	3	;BG printing recharge routine address
RCHGADR2		EQUDS.B	3	;Port2
*
*
* Buffering Queue Data Structure
*  The firmware maintains four of these queues in buffer mode
*
		EQUORG	$E11DD8
*
QUEUE		EQUDS	*
QBASE		EQUDS.W	1	;Queue buffer space begin
		EQUDS.W	1	;Top part of buffer space begin
QBLEN		EQUDS.W	1	;Length of buffer space
QHEAD		EQUDS.W	1	;Pointer to first queue element
QTAIL		EQUDS.W	1	;Pointer to next available buff location
*
*
* Serial Interrupt Completion Vectors
*
		EQUORG	$E115C1
*
COMPVECT1		EQUDS.W	1
		EQUDS.W	1
COMPVECT2		EQUDS.W	1
		EQUDS.W	1
*
* Place to keep the ID tags for MM buffer allocation
*
BID		EQUDS.W	1	;Indexed off of port
		EQUDS.W	1	;and for port2
		ENDSECT
*
* Size of buffer request each port
*
BUFSIZE		EQU	$1000
*
* Default I/O Buffers
*
E1BUFFER1		EQU	$E11E00
E1BUFFER2		EQU	$E11F00
*
*
* System bank $E1 usage
*
*
TOOLDISPATCH	EQU	$E10000
SERVECT		EQU	$E10024	;Serial interrupt vector
HEARTBEAT		EQU	$E100DC	;Tick counter (30 hz)
SERFLAG		EQU	$E10104	;Sys int handler serial interrupt flag
CURSOR		EQU	$E10135	;Current cursor character *** TenSpeed MOD ***
C1FLAG		EQU	$E10143-$C1	;System clobbered default flag
*
* Battery RAM Buffer equates
*
BRAMBUFFER	EQU	$E102C0
DEFPORT1		EQU	BRAMBUFFER
DEFPORT2		EQU	DEFPORT1+12
*
* System Default parameter indices
*
DEFTYPE		EQU	0	;Printer or modem port
DEFLEN		EQU	1	;# chars to forced CR
DEFDLF		EQU	2	;Absorb LFs after CRs (bool)
DEFALF		EQU	3	;Send LFs after CRs   (bool)
DEFECHO		EQU	4	;Echo chars to screen (bool)
DEFBUFF		EQU	5	;Enab in/out buffering (bool)
DEFBAUD		EQU	6	;Specify baud rate
DEFDFORM		EQU	7	;Specify # of data & stop bits
DEFPARITY		EQU	8	;Specify even/odd/no parity
DEFDCDHS		EQU	9	;Enab DCD handshake (bool)
DEFDSRHS		EQU	10	;Enab DSR output handshake (bool)
DEFXONHS		EQU	11	;Enab XON/XOFF handshake (bool)
*
*
* ZERO PAGE EQUATES
*
WNDLFT		EQU	$20	;left edge of text window 
WNDWDTH		EQU	$21	;width of text window 
WNDTOP		EQU	$22	;top of text window 
WNDBTM		EQU	$23	;bottom+1 of text window 
CH		EQU	$24	;cursor horizontal position 
CV		EQU	$25	;cursor vertical position 
BASL		EQU	$28	;
CSWL		EQU	$36	;character output hook 
CSWH		EQU	$37
KSWL		EQU	$38	;character input hook 
KSWH		EQU	$39
*
*
ZPAGE		EQU	$0
*
*
SETSLOTCXROM	EQU	$C006
SETINTCXROM	EQU	$C007
RDCXROM		EQU	$C015
RD80VID		EQU	$C01F
CYAREG		EQU	$C036	;The speed register
STATEREG		EQU	$C068
*
*
COUT		EQU	$FFF894
COUT1		EQU	$FFF897
*
DOFFSVK		EQU	$FFFB2B
STORCH		EQU	$FFCDE7
SHOWCUR		EQU	$FFCEC9
UPDATE		EQU	$FFCEFC
SETHOOKS		EQU	$FFCF59
*
*
* Extended Interface related stuff
*
LASTCALL		EQU	$18	;SendQueue is currently highest # call
*
BADPCERR		EQU	1	;Param ct does not agree w/ call type
BADCALLERR	EQU	2	;Call out of range error
*
*
* AppleTalk hook addresses
*
ATSTAT		EQU	$E11026
ATOUT		EQU	$E1102A
ATIN		EQU	$E1102E
ATBRP		EQU	$E11032
*
*

*
PASSIG		EQU	$01
DEVSIG		EQU	$31
SLOT		EQU	$C7
ID		EQU	$0
IERRORCODE	EQU	$FF
*
XQSETUP		EQU	$FF0000
XQPASCAL		EQU	$FF0003
*
SERBASPATCH	EQU	$E1020C
SERPASPATCH	EQU	$E10210
SEREXTPATCH	EQU	$E10214
*
ASEXT		EQU	$E11000
ASBAS		EQU	$E11004
ASPAS		EQU	$E11008
RAMDISPATCH	EQU	$E11014
RAMFORBID		EQU	$E11018
RAMPERMIT		EQU	$E1101C
PRODOS		EQU	$E11022
PROENTRY		EQU	$E11020
*
MBIT		EQU	$20
XBIT		EQU	$10
EXECADDR		EQU	$84
*
*
* Baud Rate Constant Table
*
BD19200		EQU	4
BD9600		EQU	10
BD7200		EQU	14
BD4800		EQU	22
BD3600		EQU	30
BD2400		EQU	46
BD1800		EQU	62
BD1200		EQU	94
BD600		EQU	190
BD300		EQU	382
BD150		EQU	766
BD134		EQU	855
BD109		EQU	1045
BD75		EQU	1534
BD50		EQU	2302
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSFirmware/Serial/port1.aii b/IIGS.601.SRC/GSFirmware/Serial/port1.aii
new file mode 100644
index 0000000..7653490
--- /dev/null
+++ b/IIGS.601.SRC/GSFirmware/Serial/port1.aii
@@ -0,0 +1 @@
+		TITLE	'C100 Space'

;	This EdAsm/Asm816 source code file was converted to AsmIIGS
;	by EdAsmCvtIIGS version 1.2d7 on 5/14/91 at 11:17:21 PM

*
*
* Basic Init (PR#n) entry point
*
Begin_C1:
		SEP	#%01000000	;Set V to indicate initial entry
		BVS	entr1	;Always taken
		NOP
*
* Basic Input Entry Point
*
		SEC		;Input entry point
		OPCODE	BCC	;BCC opcode
*
* Basic Output Entry Point
*
		CLC
		CLV		;V = 0 since not initial entry
		BVC	entr1	;Always taken
*
		DC.B	$01	;pascal signature byte
		DC.B	$31	;device signature
		DC.B	P1INIT
		DC.B	P1READ
		DC.B	P1WRITE
		DC.B	P1STATUS
		DC.B	0	;Optional offsets follow
		DC.B	EXTEND	;Extended interface offset
		DC.B	0	;Interrupt offset not used
*
EXTEND		EQU	*
		PHA		;Push space for STATEREG
		PHA		;...and space for CYAREG
		JSR	SetState1
		PHP
		SEI
		XBA
		LDA	#$C1
		STA	mslot
		XBA
		JSL	>NewExtVec
		ROL	a	;***10spd preserve carry
		PLP
		LSR	a	;***10spd preserve carry
		BRA	RstState1
*
*
ENTR1		EQU	*
		PHA		;Push space for STATEREG
		PHA		;Push space for CYAREG
		JSR	SetState1
		PHX		;Save the reg
		LDX	#$C1	;X = Cn
		JSL	>NewBasVec	;Process the Basic call
		PLX
*
RSTSTATE1		EQU	*
		XBA
		PLA		;Get back CYAREG
		STA	|CYAREG
		PLA		; and the STATEREG
		STA	|STATEREG
		XBA
		PHP		;Keep carry in a safe place
		SEC
		XCE		;Should clear C
		PLP		;Get back carry
		RTS
*
* These are the Pascal Entry Points.  We rely on the fact that the
*  user is required to set Y to $N0 before the call.
*
P1INIT		INY
P1READ		INY
P1WRITE		INY
P1STATUS		INY
*
* Jack up the speed and get into native mode before jumping to bank $FF.
*  Go off and do the stuff, and then return to go back to emulation mode
*  and whatever speed was set at entry.
*
		PHA		;Push space for STATEREG
		PHA		;...and space for CYAREG
		JSR	SetState1
		JSL	>NewPasVec
		BRA	RstState1
*
*
* Set native and fast modes
*
SETSTATE1		EQU	*
		PHP
		CLC
		XCE
*
		PHA
		LDA	|CYAREG
		STA	5,s	;Store in reserved space
		ORA	#%10000000
		STA	|CYAREG
		LDA	|STATEREG
		STA	6,s	;Store in reserved space
		AND	#%10001111
		STA	|STATEREG
		LDA	#0
		STA	>ApTalkFlag+$C1
		PLA
*
		PLP
		SEP	#%00110000	;Ensure M,X <- 1
		RTS
*
*
		DC.B	'MSA'
*
*
	; SEG	$FF
*
* (This routine belongs in IO but didn't fit there.)
*
****************************************
*
* GETSTAT - Gets the status from a acia
* inputs: X = Cn
* outputs: A = status, X = Cn, Y = devno
*
****************************************
GETSTAT:
		LDA	>ffdevlbl-$C1,x	;Get index into hardware
		TAY
*
		LDA	>ApTalkFlag,x
		BPL	gstnoat
		JSL	>ATStat
		RTS
*
GSTNOAT		EQU	*
		LDA	SCCCmd,y
		RTS
*
*
	; SEG	$00
*
*

;	This EdAsm/Asm816 source code file was converted to AsmIIGS
;	by EdAsmCvtIIGS version 1.2d7 on 5/14/91 at 11:22:10 PM

		LONGI	OFF
		LONGA	OFF
HEREC1_01		EQU	*-Begin_C1+$C100
		DCB.B	$C196-HEREC1_01,0
		
C1XXSEG		EQU	*
		JSL	>ramforbid
		RTS
		JSL	>rampermit
		RTS
*
C1XX		EQU	*
		XCE
		PEI	execaddr+1
		PLB
		PLB
C1XXGO		EQU	*
		JML	[execaddr]
C1XXRET		EQU	*
		CLC
		XCE
		RTL
*
C1ERROR		EQU	*
		LDX	#ierrorcode
		RTL
C1PRODOS		EQU	*
		CLC
		XCE
		JSL	>prodos
		PHP
		SEC
		XCE
		PLP
		BVC	noerr1
		LDA	proentry+1
		PHA
		LDA	proentry
		PHA
NOERR1		EQU	*
		RTS
*
HEREC1_02		EQU	*-Begin_C1+$C100
		DCB.B	$C1D8-HEREC1_02,0
*
QSETVECTOR1	EQU	*
		JMP	>xqsetup
QPASVECTOR1	EQU	*
		JMP	>xqpascal
*
HEREC1_03		EQU	*-Begin_C1+$C100
	IF HEREC1_03 < $C1E0 THEN
		DCB.B	$C1E0-HEREC1_03,0
	ENDIF
*
BOOTSPACE1	EQU	*
		LONGI	ON
		LONGA	ON
		CLC
		XCE
		REP	#mbit+xbit
		LDX	#$1100
		LDY	#$00E1
		LDA	#$0600
		STA	$E11100
		JMP	>ramdispatch
*
HEREC1_04		EQU	*-Begin_C1+$C100
		DCB.B	$C1F9-HEREC1_04,0
		
		DC.B	0,0,0,0	;Used to be 'ATLK'
		DC.B	ID
*
*
		LONGI	OFF
		LONGA	OFF
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSFirmware/Serial/port2.aii b/IIGS.601.SRC/GSFirmware/Serial/port2.aii
new file mode 100644
index 0000000..3ea387a
--- /dev/null
+++ b/IIGS.601.SRC/GSFirmware/Serial/port2.aii
@@ -0,0 +1 @@
+		TITLE	'C200 Space'

;	This EdAsm/Asm816 source code file was converted to AsmIIGS
;	by EdAsmCvtIIGS version 1.2d7 on 5/14/91 at 11:23:7 PM

*
*
* Basic Init (PR#n) entry point
*
Begin_C2:
		SEP	#%01000000	;Set V to indicate initial entry
		BVS	entr2	;Always taken
		NOP
*
* Basic Input Entry Point
*
		SEC		;Input entry point
		OPCODE	BCC	;BCC opcode
*
* Basic Output Entry Point
*
		CLC
		CLV		;V = 0 since not initial entry
		BVC	entr2	;Always taken
*
		DC.B	$01	;pascal signature byte
		DC.B	$31	;device signature
		DC.B	P2INIT
		DC.B	P2READ
		DC.B	P2WRITE
		DC.B	P2STATUS
		DC.B	0	;Optional offsets follow
		DC.B	EXTEND2	;Extended interface offset
		DC.B	0	;Interrupt offset not used
*
EXTEND2		EQU	*
		PHA		;Push space for STATEREG
		PHA		; and for CYAREG
		JSR	SetState2
		PHP
		SEI
		XBA
		LDA	#$C2
		STA	mslot
		XBA
		JSL	>NewExtVec
		ROL	a	;***10spd preserve carry
		PLP
		LSR	a	;***10spd preserve carry
		BRA	RstState2
*
*
ENTR2		EQU	*
		PHA		;Push space for STATEREG
		PHA		; and for CYAREG
		JSR	SetState2
		PHX		;Save the reg
		LDX	#$C2	;X = Cn
		JSL	>NewBasVec	;Process the Basic call
		PLX
*
RSTSTATE2		EQU	*
		XBA
		PLA		;Get back CYAREG
		STA	|CYAREG
		PLA		; and the STATEREG
		STA	|STATEREG
		XBA
		PHP		;Keep carry in a safe place
		SEC
		XCE		;Should clear C
		PLP		;Get back carry
		RTS		;And A is destroyed
*
* These are the Pascal Entry Points.  We rely on the fact that the
*  user is required to set Y to $N0 before the call.
*
P2INIT		INY
P2READ		INY
P2WRITE		INY
P2STATUS		INY
*
* Jack up the speed and get into native mode before jumping to bank $FF.
*  Go off and do the stuff, and then return to go back to emulation mode
*  and whatever speed was set at entry.
*
		PHA		;Push space for STATEREG
		PHA		; and for CYAREG
		JSR	SetState2
		JSL	>NewPasVec
		BRA	RstState2
*
*
* Set native and fast modes
*
SETSTATE2		EQU	*
		PHP
		CLC
		XCE
*
		PHA
		LDA	|CYAREG
		STA	5,s	;Store in reserved space
		ORA	#%10000000
		STA	|CYAREG
		LDA	|STATEREG
		STA	6,s	;Store in reserved space
		AND	#%10001111
		STA	|STATEREG
		LDA	#0
		STA	>ApTalkFlag+$C2
		PLA
*
		PLP
		SEP	#%00110000	;Ensure M,X <- 1
		RTS
*
*
		DC.B	'MSA'
*
	; SEG	$FF
*
*
INITSERIALPB:
*
* This routine is here for space reasons only.
* Put SCC into action with new settings.  Reenable interrupts if
*  buffering is enabled.
*
		PHX
		JSR	InitSerial
		PLX
*
		LDA	|sermode2,x
		BIT	#BfrngMask
		BEQ	inspb1
*
		JSR	EnableInt
*
INSPB1		EQU	*
		RTS
*
*
	; SEG	$00
*
*

;	This EdAsm/Asm816 source code file was converted to AsmIIGS
;	by EdAsmCvtIIGS version 1.2d7 on 5/14/91 at 11:23:20 PM

		LONGI	OFF
		LONGA	OFF
*
HEREC2_01		EQU	*-Begin_C2+$C200
		DCB.B	$C296-HereC2_01,0
		
C2XXSEG		EQU	*
		JSL	>ramforbid
		RTS
		JSL	>rampermit
		RTS
*
C2XX		EQU	*
		XCE
		PEI	execaddr+1
		PLB
		PLB
C2XXGO		EQU	*
		JML	[execaddr]
C2XXRET		EQU	*
		CLC
		XCE
		RTL
*
C2ERROR		EQU	*
		LDX	#ierrorcode
		RTL
C2PRODOS		EQU	*
		CLC
		XCE
		JSL	>prodos
		PHP
		SEC
		XCE
		PLP
		BVC	noerr2
		LDA	proentry+1
		PHA
		LDA	proentry
		PHA
NOERR2		EQU	*
		RTS
*
HEREC2_02		EQU	*-Begin_C2+$C200
		DCB.B	$C2D8-HEREC2_02,0
*
QSETVECTOR2	EQU	*
		JMP	>xqsetup
QPASVECTOR2	EQU	*
		JMP	>xqpascal
*
HEREC2_03		EQU	*-Begin_C2+$C200
	IF HEREC2_03 < $C2E0 THEN
		DCB.B	$C2E0-HEREC2_03,0
	ENDIF
*
BOOTSPACE2	EQU	*
		LONGI	ON
		LONGA	ON
		CLC
		XCE
		REP	#mbit+xbit
		LDX	#$1100
		LDY	#$00E1
		LDA	#$0600
		STA	$E11100
		JMP	>ramdispatch
*
HEREC2_04		EQU	*-Begin_C2+$C200
		DCB.B	$C2F9-HEREC2_04,0
		
		DC.B	0,0,0,0	;ATLK used to be here
		DC.B	ID
*
*
		LONGI	OFF
		LONGA	OFF
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSFirmware/Serial/serialdrvr.aii b/IIGS.601.SRC/GSFirmware/Serial/serialdrvr.aii
new file mode 100644
index 0000000..6e0ec07
--- /dev/null
+++ b/IIGS.601.SRC/GSFirmware/Serial/serialdrvr.aii
@@ -0,0 +1 @@
+		TITLE	'Basic Support'

;	This EdAsm/Asm816 source code file was converted to AsmIIGS
;	by EdAsmCvtIIGS version 1.2d7 on 5/14/91 at 11:36:32 PM

*
*
BASIC		EQU	*
		PHY
		PHA
		STX	|mslot
		JSR	SetBasicMode
*
* Maintain the defaults flag.  This is trashed whenever anyone resets
*  the system or when a user changes a port characteristic in the 
*  control panel.  We reset it whenever a non-C100 entry is made to us
*  to guarantee that subsequent C100s will do a default.
*
		LDA	>C1Flag,x
		PHP		;V is C100, Z is reset flag
*
		LDA	#$FF
		BVS	msup	;Take if we came through CN00
		INC	a
MSUP		EQU	*
		STA	>C1Flag,x	;If CN00, store $FF; $00 otherwise
*
* Now decide whether to initialize (default) the port.  Only do so if
*  we came through $CN00 and the CFlag was = $00.
*
		PLP		;Get back V,Z
		BVC	sudone	;Skip if CN05 or CN07 entry
		BNE	sunodef	;Skip if CFlag was non zero
*
SUDODEF		JSR	default	;Set up defaults 
*
* If either hook is partially present, make sure the low part is correct
*
SUNODEF		EQU	*
		CPX	cswh
		BNE	fromin	;Maybe it's an IN#...
		LDA	#7
		CMP	cswl	;Is low part already set?
		BEQ	fromin	;If so, no need to set it
		STA	cswl
FROMOUT		EQU	*
		CLC		;We fixed the hook so it
		BRA	sudone	;Must have been a PR#
FROMIN		EQU	*
		CPX	kswh	;Is the input hook half there?
		BNE	fromout	;Wasn't an IN#...assume PR#
		LDA	#5	;Fill in the other half of hook
		STA	kswl
*
SUDONE		EQU	*
		BCS	commport	;If input, branch
		JMP	serport
*
COMMPORT		EQU	*
		PLA		;Get the char
		BIT	|RD80VID
		BMI	omg
		LDY	ch
		STA	(basl),y	;Store what was beneath the cursor
*
OMG		EQU	*
		XBA		;On hold for a momentito
		LDA	|RDCXROM
		PHA
		STA	|SETINTCXROM
		XBA		;Get back the character
*
		BRA	term1	;Input 
NOESC		BIT	|sermode,x	;In terminal mode?
		BVC	exit1	;If not, return key
		JSR	serout2	;Out it goes
		BRA	term1
TESTKBD		EQU	*
		PLA		;Get current char
		JSR	|UPDATE	;Update cursor & check keyboard
		BPL	serin	;N=0 if no new key
		JSR	command	;Test for command
		BCS	noesc	;Branch if not
		AND	#$5f	;upshift for following tests
		CMP	#'Q'	;Quit?
		BEQ	exitX
		CMP	#'R'	;Reset?
		BNE	term1	;Go check serial 
EXITX		LDA	#$98	;return a CTRL-X
EXIT1		PLY
*
		BMI	exit2
		STA	|SETSLOTCXROM
EXIT2		EQU	*
		PLY
		RTL
*
GOREMOTE		CLC		;Into remote mode
GOTERM		JSR	setterm	;Into terminal mode 
TERM1		EQU	*
		JSR	|SHOWCUR	;Get current char on screen
SERIN		PHA
SINOKBD		JSR	xrdser	;Is it ready?
		BCS	sidata	;Branch if we got data
		LDA	|flags,x	;Is keyboard enabled?
		AND	#$10
		BEQ	testkbd	;Branch if enabled
		BRA	sinokbd	;Go test acia again
SIDATA		TAY		;Save new input in y for now 
		PLA
		PHY		;Save new char on stack
		JSR	|STORCH	;Fix the screen
		PLA		;Get the new data
		LDY	|eschar,x	;If 0, don't modify char
		BEQ	sinomod
		ORA	#$80	;Apple loves the high bit
		CMP	#xon
		BEQ	term1	;Ignore ^Q
		CMP	#$FF	;Ignore FFs
		BEQ	term1
		CMP	#$92	;^R for remote?
		BEQ	goremote
		CMP	#$94	;^T for terminal mode?
		BEQ	goterm
SINOMOD		BIT	|sermode,x	;In terminal mode?
		BVC	exit1	;Return to user if not A = char 
		JSR	|COUT	;Onto the screen with it
		BRA	term1
*
* Come back here if this is a printer port
*
* Integer and older versions of Applesoft Basic did tabbing by jamming
*  CH to the column position where they wished to be.  This works fine
*  with video but presents a problem for us.  To convince Basic not to
*  to issue a carriage return after 40 or 80 columns when printing, the
*  serial firmware jams CH to zero.  We then take the responsibility for
*  watching our own column counter, and when we detect that we are near
*  our line length, we set CH to a value which Basic will interpret as
*  being near the end of the line; then Basic will do its end of line
*  chores.
*
*  Tabbing in this environment starts by looking at CH.  If CH is zero 
*  then there's no tabbing.  If CH is 8 or 16, then we assume that it
*  is Integer or Applesoft Basic attempting to do a tab, and we update
*  CH to the next tab stop (just as Basic would have if we weren't
*  confusing it by setting CH to zero every time).  If CH is a value
*  other than 8 or 16 we assume that this is an absolute position
*  that someone wishes to tab to, and we keep outputting spaces until
*  our column counter = CH.
*
*  CAVEAT:  When Applesoft was revved to work better with 80 column
*  video, the tabbing code (both comma tabs and explicit TAB()s) was
*  altered so that CH was no longer jammed- instead Applesoft tries
*  to figure out the number of spaces to output itself to move to the
*  desired location.  Much cleaner, yes, but it bases its space
*  calculation on CH, the location that the printer firmware jams to
*  zero every character!  Ooops.  Basic never knows where it really
*  is and as a result, every comma results in exactly 16 spaces
*  regardless of tab position, and every TAB(n) just gives you n
*  spaces.  The Super Serial Card has a command 'TE' which defeats
*  the CH zero jam, and using this command makes new Applesoft tabbing
*  work okay (the //c can't be helped since it does not have this
*  command).  The Cortland has this command and it must be issued
*  to make Applesoft tabbing work correctly. (The Cortland command
*  is 'A E/D' which stands for Applesoft.)
*
*  Amen.
*
SERPORT		EQU	*
		LDA	|flags,x
		ASL	A	;A = flags 
		PLY		;Get char
		PHY
*
* If we are in Zap mode, we want to avoid tabbing, or carriage return
*  stuffing, and have exactly what goes in come out and no more.
*
		LDA	|sermode3,x
		BIT	#CSDMask
		BNE	prnow
*
* PWIDTH set to zero means 'unlimited line length'.  Therefore any
*  comparison to the current column position must special case PWDTH=0.
*  In this case, we simulate CH-PWDTH < 0.
*
		LDA	|pwdth,x
		PHP		;Save Z
		LDA	ch
		PLP		;Pull back Z and C
*
		BCS	servid	;Branch if video echo 
		BEQ	chok
		CMP	|pwdth,x	;If CH >= PWIDTH, then CH = COL
		BCC	chok
		LDA	|col,x
*
CHOK		CMP	|col,x	;Must be >  for valid tab
		BCS	fixch	;Branch if ok
*
		CMP	#8	;Is it Integer Basic trying to tab?
		BEQ	chok1	;Yup, line up to a tab stop
		CMP	#16	;Is it Applesoft trying to tab?
		BNE	prnt	;Nope, no 'CH stuff' style basic tabbing
*
* Now set CH to the next highest tab stop for Applesoft & Integer Basic
*
CHOK1		EQU	*
		ORA	#$F0	;Create $F0 or $F8 to find tab stop
		AND	|col,x	;Find previous tab stop  
		CLC
		ADC	ch	;Add the tab increment 
FIXCH		STA	ch	;Save the new position
		BRA	prnt
*
SERVID		CMP	wndwdth	;If ch>= wndwdth go back to start of line
		BLT	prnt
		STZ	ch	;Go back to left edge 
*
* Do CR stuffing if this was asked for.
* There are two conditions under which we do not generate CRs.  One
*  is the case where the line width is zero, the other is the case when
*  the CR stuff bit is clear.  Check for both cases.
*
PRNT		EQU	*
		LDA	|sermode2,x
		BIT	#crstuffmask
		BEQ	prnt2	;Skip out if bit off
*
		LDA	|pwdth,x
		BEQ	prnt2	;2nd condition
*
		LDA	|col,x
		CMP	|pwdth,x
		BLT	prnt2	;If col<pwdth forget it...
*
		LDA	#$1A	;CR*2
		CPY	#$80	;Set carry if hi bit of chartoprnt=1
		ROR	a	;Shift into out CR
		JSR	goser3	;Print without echoing
*
* See if we need to do any tabbing.  If CH is bigger than our column
*  counter, then someone changed CH, and we compensate by printing
*  blanks until their CH is equal to our COL.
*
PRNT2		EQU	*
		PLY
		PHY
		LDA	|col,x
		CMP	ch
		BGE	prnow	;If COL>=CH no tabbing required
*
		LDA	#$40	;Blank*2
		CPY	#$80	;Set C to high bit of char to print
		ROR	a
		JSR	goser3	;Output without echoing
		BRA	prnt	;See if that fixed it
*
PRNOW		TYA
		JSR	serout	;Print the actual char
*
		BIT	|flags,x	;In video all this is done for us
		BMI	done
*
		LDA	|pwdth,x	;Unlimited line length?
		BEQ	setch	;Yes- never fool Basic into endoflining
*
* In order to have BASIC tabbing to work correctly, window should
* be set to the same length as the column width used for printing.
* This must be done from the BASIC program and cannot be done in this
* rom space.
*
		SEC
		LDA	|col,x	;Check if within 8 chars of right edge
		SBC	|pwdth,x	;So BASIC can format output 
		CMP	#$F8
		BCC	setch	;If not within 8, we're done
		CLC
		ADC	wndwdth
		BRA	kl1	;Skip the load
*
* Normally, we always jam CH to zero to make printing with
*  large line lengths work.  Unfortunately it screws up Applesoft
*  tabbing, so if the tabbing bit is set, we set CH not to zero but
*  to our real column count.  Then Applesoft tabs wonderfully, and
*  output is limited to 40 or 80 columns depending on the video mode.
*
SETCH		EQU	*
		LDA	|sermode3,x
		AND	#BTabMask
		BEQ	kl1
		LDA	|col,x
KL1		EQU	*
		STA	ch
*
* If 80 cols is active, BASIC depends on OURCH ($57B) to be updated
*  to do tabbing right (instead of CH ($24) ).  Slam it if RD80VID
*  is active.
*
		BIT	|RD80VID
		BPL	done
		STA	|OURCH
*
DONE		EQU	*
		PLA		;Restore regs
		PLY
SERRTS		RTL
*
*
		TITLE	'Pascal Support'
*
*
PASCAL		EQU	*
*
* On entry, Y has nx, where x=4 (Init), 3 (Read), 2 (Write),
*  or 1 (Status), and n is the slot (1 or 2).  Make sure that
*  Y has x stripped off on return, and use x to determine which
*  routine we should vector to.
*
		JSR	SetPascalMode
		STX	|MSlot	;Save away the port index
		XBA		;Keep A
		TYA		;Get nx
		PHA		;Keep nx around
		AND	#%11110000	;Discard the x part
		TAY		;This will get returned later
		PLA		;Pull back cx
		AND	#%00000111	;Discard the c part
		PHY		;Keep to return to caller
		XBA		;Get back the original A reg
		PHA		;Push that, too
		XBA		;Get back the call type
*
		DEC	a
		BNE	notstatus
*
* This is the status routine.  When buffering is not on, a check is
*  made by calling HardCheck if it is an Tx inquiry, or GetStat
*  if it is an Rx inquiry.  If buffering is on, check the queues.
*
		PLA		;Get the inquiry type (0 or 1)
		PHA		;Return to the user
		LSR	a	;C has 0 (Tx) or 1 (Rx)
		BNE	perr	;Illegal status code
*
* Find out if we're buffering or not
*
		LDA	|sermode2,x
		BIT	#BfrngMask
		BEQ	ps0
*
* We're buffering.  If read inquiry, check length; if write, space left.
*
		PHB
		BCS	psb1	;Make rcv buffer check
		SEC		;Tx buffer check
		JSR	QSpace
		BRA	psb2
*
PSB1		EQU	*
		CLC		;Rcv inquiry
		JSR	QLength
PSB2		EQU	*
		SEP	#%00110000
		SEC
		BNE	psb3
		CLC
PSB3		EQU	*
		PLB		;Return DBR to 0
		BRA	pread2
*
* Non buffered case
*
PS0		EQU	*
		BCS	pstat1	;This is a Rx inquiry
*
* Return with the carry clear (not ready) if we're awaiting XON
*
		LDA	|flags,x
		BIT	#WaitXMask
		BNE	pread2	;If awaiting XON, we're not ready
*
		JSR	HardCheck	;Check output status
		BRA	pread2	;Carry is set if char avail
PSTAT1		EQU	*
*
* If the one byte buffer is full, there is a character available
*
		BIT	#ChrBufMask	;Sermode2 already in accumulator
		BNE	pread2	;Carry already set
		JSR	GetStat	;Check Rx buffer
*
		LSR	a	;Move Rx char ready to carry
		BCC	pread2	;If no char, don't check for error
*
* Check if the character had an error, or if we're doing XON/XOFF
*  whether the next character is XON or XOFF... etc.    
*
		JSR	Potpourri	;Carry set means a char is available
		BRA	pread2
*
NOTSTATUS		EQU	*
		DEC	a
		BNE	notwrite
*
* This is the Write routine
*
		PLA
		PHA		;Got back original char
		JSR	serout
		BRA	pread2
*
NOTWRITE		EQU	*
		DEC	a
		BNE	notread
*
* This is the Read routine. Wait until we have a character from SCC.
*
		PLA		;Make room for return of char
PWAIT		EQU	*
		JSR	xrdser
		BCC	pwait
		PHA
PREAD2		EQU	*
		PLA
		PLY
		LDX	#0
		RTL
*
NOTREAD		EQU	*
*
* It must be the Init routine.  Make sure that we turn off the
*  generation of line feeds since Pascal throws them out there.
*  Also turn off basic formatting (tabbing).
*
		JSR	default
		LDA	|flags,x
		AND	#GenLFMask--$FF
		STA	|flags,x
		BRA	pread2
*
PERR		EQU	*
		LDX	#$40
		PLA
		PLY
		CLC
		RTL
*
*
		TITLE	'Serial Output Routines'
SEROUT		EQU	*	;Serial output
*
* See if this character is part of a command string
*
		JSR	command	;Check if command
		BCC	serdone	;All done if it is
*
* See if echo is on... don't echo XON character
*
SEROUT2		EQU	*
		BIT	|flags,x	;N=1 iff video on
		BPL	goser3
		CMP	#xon	;Don't echo ^Q
		BEQ	goser3
*
		LDY	|RDCXROM
		PHY
		STA	|SETINTCXROM
		JSR	|COUT1	;Echo it 
		PLY
		BMI	goser3
		STA	|SETSLOTCXROM
*
GOSER3		EQU	*	;Go to serout3
*
* Check if buffering is enabled
*
		TAY
		LDA	|sermode2,x
		BIT	#BfrngMask
		PHP
		TYA		;Get back the char
		PLP
		BEQ	serout3
*
* Handle the buffering case...
* If the queue is empty, and we are in "flow" mode, and if the 
*  transmit buffer is empty, we want to send it out NOW.
*
		PHP
		SEI		;Don't risk reentrancy problems
		PHA		;Push the character into saveland
		PHB		;DBR is currently =$00
*
		SEC
		JSR	QLength	;Get the length of the output queue
		SEP	#%00110000
		BNE	mser3	;If Q has chars, q this'un too
*
		PLB		;Get back DBR=$00
		LDA	|sermode2,x
		BIT	#OutFloMask	;Are we flowing chars?
		BNE	mser2	;Nope, just queue the thing
*
		LDA	|flags,x	;See if awaiting XOFF
		BIT	#WaitXMask
		BNE	mser2	;If so, just queue it
*
		LDA	>FFDEVLBL-$C1,x	;Get the hardware index
		TAY
		LDA	SCCCmd,y
		BIT	#%00000100	;Is transmit buffer available?
		BEQ	mser2	;If not, just queue it
*
* Send out this character
*
		PLA		;What was it again?
		PLP		;Restore interrupt state
		BRA	nocheck	;Send char and CR check stuff
*
SERDONE		EQU	*
		RTS
*
MSER3		EQU	*
		PLB		;Get back DBR=$00
MSER2		EQU	*
		PLA		;Get back the character
*
* Keep trying to queue the character until there's room.
*  Don't open any interrupt window until after the first try,
*  since an interrupt might happen before we get the character into
*  the queue, and if the queue was empty we would never get another
*  interrupt.
*
MSER		EQU	*
		SEC		;Want to throw in out pile
		JSR	EnQueue
		BCC	mser4
		PLP		;Maybe reenable interrupts
		PHP		;Everything in its place...
		BRA	mser
MSER4		EQU	*
		PLP		;Straighten up stack (int state)
		PHA		;Keep stack access balanced
*
* Increment the column counter (this code is duplicated in serout3...)
*
		BIT	#%01100000
		BEQ	mser5
		INC	|col,x
MSER5		EQU	*
		BRA	crcheck	;Do crstuffing...
*
		EJECT
****************************************
*
* SEROUT3 - Outputs a character to the SCC
*            Use the nocheck entry point
*             to avoid the handshake check
*
* Inputs: A = char, X = Cn
*
****************************************
SEROUT3		EQU	*
		PHA		;Save the char
SORDY		EQU	*
*
* Wait until the hardware we are watching is ready (TxRDY,DSR,DCD)
*
		JSR	HardCheck
		BCC	sordy
*
		PLA
*
NOCHECK		EQU	*
		PHA		;Save away character
*
* If this is a control character we don't want to inc the column counter
* 
		BIT	#%01100000	;Control char?
		BEQ	sonxt	;Don't inc column if so
		INC	|col,x
*
* Check to see if buffering is on
*
SONXT		EQU	*
		LDA	|sermode2,x	;Is port interrupt driven?
		BIT	#BfrngMask
		BNE	sook	;If buffering, XON/XOFF dealt with
*
* If AppleTalk, don't stop for XON/XOFF
*
		LDA	>ApTalkFlag,x
		BMI	sook
*
* If we're not buffering, see if we're doing XON/XOFF
*
		LDA	|flags,x
		BIT	#XMask
		BEQ	sook	;Branch if not
*
* See if there's a receive character (it might be XON...)
*
		JSR	xrdnobuf	;Get a char from the acia
		BCC	sotst	;Branch if no char
*
* We've got to keep this character around. Save in one char buffer.
*
		JSR	FlagOBB	;A has the character
*
* Are we in the middle of XOFF?  Back to looping if so.
*
SOTST		LDA	|flags,x	;Check if in xoff
		AND	#WaitXMask
		BNE	sordy	;Loop if not ready
*
* Everything is totally wonderful. Kiss it goodbye and send it out
*  into the cold, serial (cereal?) world.
*
SOOK		EQU	*
		LDA	>FFDEVLBL-$C1,x
		TAY
*
* Gotta decide if it goes to AppleTalk or the SCC directly. Call the
*  AppleTalk OUT routine if appropriate.  
*
		LDA	>ApTalkFlag,x
		ROL	a	;AppleTalk mode in C
		PLA
		PHA		;Get char to XMIT
		BCC	regler	;If AT bit was clear, go right to SCC
		JSL	>ATOut	;Send to AppleTalk land
		BRA	crcheck
*
REGLER		EQU	*
		STA	SCCData,y	;Out it goes
*
* Now if that guy was a CR, we may want to send a LF to keep him/her
*  company.  Check whether LFs are supposed to be generated after CR.
*
CRCHECK		EQU	*
		BIT	|flags,x	;V=1 if LF after CR
		EOR	#$0D	;check for CR. 
		ASL	A	;preserve bit 7 
		BNE	sodone	;branch if not CR. 
		BVC	clrcol	;branch if no LF after CR 
*skp 2
*bit :sermode3,X ;test for ZAP mode
*bmi clrcol ;if ZAP mode then NO!!!! line feeds.
*skp 2
		LDA	#$14	;Get LF*2
		ROR	A	;no shift in high bit 
*
* Send out the LF, clear the cursor position and the column counter,
*  wrap things up and have a nice day.
*
		JSR	goser3	;Output the LF but don't echo it 
CLRCOL		STZ	ch	;0 position & column
		STZ	|col,x
SODONE		PLA		;Get the char back
		RTS
*
		EJECT
*********************************************
*
* HardCheck       Check handshake lines
*
*  This gets the current status, and
* returns carry set if all conditions
* handshaked on are asserted (DCD,DSR).
* Tx ready is always checked.
* The outflow bit is NOT changed due to the
* Tx ready line.
*
*********************************************
*
HARDCHECK		EQU	*
*
* Get the status, and flip the sense of all bits in question.
*
		JSR	getstat
		CLC		;Anticipate not ready
		EOR	#%00101100
*
* Check if we're supposed to handshake on DSR
*
		XBA		;Keep the status in a safe place
		LDA	|flags,x
		BIT	#DSRHSMask
		BEQ	hc1	;Don't check this line...
*
* This line must be asserted
*
		XBA		;Get back status byte
		BIT	#%00100000
		BNE	HCNoGo	;DSR LINE was lo... forget it
		XBA		;Stuff back the status byte
*
* Now see if we're to handshake on the DCD line
*
HC1		EQU	*
		LDA	|sermode2,x
		BIT	#DCDHSMask
		BEQ	hc2	;Don't look... it's okay
*
* Get back the status of the lines and check for DCD
*
		XBA
		BIT	#%00001000
		BNE	HCNoGo	;DCD was lo... forget it
		XBA		;Hide the status again
*
HC2		EQU	*
		XBA		;Pull out the SCC status
		BIT	#%00000100
		BNE	HCBye	;Exit if buffer unavailable
*
HCOKAY		EQU	*
		SEC		;It's all wonderful... go for it
HCNOGO		EQU	*
*
* Set the OutFloMask appropriately
*
		LDA	|sermode2,x
		AND	#OutFloMask--$FF
		BCS	hcout
		ORA	#OutFloMask
HCOUT		EQU	*
		STA	|sermode2,x
HCBYE		EQU	*
		RTS
*
*
		TITLE	'Serial Input Routines'
****************************************
*
*   This is the serial input routine.  Carry 
* flag set indicates that returned data is 
* valid.
*
****************************************
XRDSER		EQU	*
*
* If buffering is on, get the character from the buffer
*
		LDA	|sermode2,x
		BIT	#BfrngMask
		BEQ	xnosbuf	;No serial buffering
*
* Keep trying to get a character from the buffer until you get one.
*
BUFSORDY		EQU	*
		CLC
		JSR	DeQueue
		BCC	xrddone	;Exit with cc on underflow
		BVC	xrddone
*
* We have a "soft" underflow (less than 1/4 of the buffer to go).
*  Force ourselves into "in flow" mode.
*
		PHA
		LDA	>FFDEVLBL-$C1,x
		TAY		;Get SCC index
		CLC
		JSR	ChgHS	;Carry was already cleared
		PLA
XRNOCHR		EQU	*
		SEC
		BRA	xrddone
*
XNOSBUF		LDA	|sermode2,x	;Is there a char in the one byte buffer?
		BIT	#ChrBufMask
		BEQ	xrdnobuf	;Branch if not
		AND	#ChrBufMask--$FF	;Clear the bit
		STA	|sermode2,x
		LDA	>OneByteBuf,x
		SEC
		BRA	xrddone
*
XRDNOBUF		JSR	getstat	;Get ACIA status
		AND	#$01	;Is there Rx data?
		CLC		;indicate no data
		BEQ	xrddone	;Branch if no data!
		JSR	getdata	;Get data and check xon, etc
XRDDONE		EQU	*
		RTS
*
FFCHARPTR		EQU	*-$C1	;Pointer to character buffers
		DC.B	$0,$80
		EJECT
****************************************
*
* GETDATA - Gets data from serial port
* and checks for LF, XON, XOFF
* inputs: Y = index to SCC, X = Port index
* outputs: A = data, Y dest, C = 1 if data ok = 0 if eaten
*
****************************************
GETDATA		EQU	*
*
* If the AppleTalk bit is on, get the data from AppleTalk...
*
		LDA	>ApTalkFlag,x
		BPL	gd1
*
		JSL	>ATIn
		BRA	gdne1
*
GD1		EQU	*
*
* Check if this character has a framing or parity error
*
		JSR	CheckError
		BCC	gdrts	;If carry clear, the char was errant
GDNE		EQU	*
		LDA	SCCData,y	;Get the non-errant character
GDNE1		EQU	*
*
* Check for linefeeds and XON,XOFF
*
		PHA
		ORA	#$80	;Set D7 for compares
		TAY
		LDA	|flags,x	;Get options byte
		BIT	#MaskLFMask	;Eat linefeeds?
		BNE	gdnolf
		CPY	#lfeed	;Is it a LF?
		BEQ	gdeat	;Eat it if it is
GDNOLF		BIT	#XMask	;Xon/XOFF enabled?
		BEQ	gdok
		CPY	#xon	;Is it an XON?
		BNE	gdnxon
		AND	#WaitXMask--$FF	;Clear xoff bit
		BRA	gdeat	;And eat it
GDNXON		CPY	#xoff
		BNE	gdok
		ORA	#WaitXMask	;Set xoff bit
GDEAT		CLC
		OPCODE	BCS	;$90 opcode
GDOK		SEC
		STA	|flags,x
		PLA
GDRTS		EQU	*
		RTS
*
*
CHECKERROR	EQU	*
*
* See if the next char had an error.  If there was an error, and
*  the error mode bit is clear, eat the char and return carry clear.
*  Otherwise return carry set.
*
		SEC		;Default no error condition
		LDA	|sermode3,x	;Check the error flag
		AND	#EMask
		BNE	ceout	;If mode bit set, no char has errors
*
		LDA	#1
		JSR	ReadSCC
		AND	#%01010000	;Check for parity or framing error
		BEQ	ceout	;If no errors, return carry set
*
		ORA	|sermode3,x	;Save scoop on this errant data
		STA	|sermode3,x
		LDA	SCCData,y	;Throw away errant byte
		CLC		;Flag what we did
CEOUT		EQU	*
		RTS
*
*
		TITLE	'Command processor for serial & comm ports'
*
CHARCR		EQU	$0D
UCSPACE		EQU	$00	;need an "upper case" space character
*
COMMAND		EQU	*
*
* Check to see if we're in the middle of a command.  Skip out if so.
*
		PHA		;shove character on stack
		BIT	|sermode,x	;Already in command?
		BMI	incmd	;If so, go do it
*
* Get the escape character that we currently recognize and see if
*  the current char matches.  If the escape char is null, no commands
*  are allowed.  If this isn't a command char, return with carry set.
*
		LDY	|sermode3,x	;If msb = 1 ignore commands
		BMI	nocmd
		EOR	|eschar,x	;Is it the command char?
		ASL	A	;Ignore high bit
		BNE	nocmd	;char not command char
*
* Save away the current cursor character and make it ours '?'
*
		LDA	>cursor
		STA	>oldcur
		LDA	#cmdcur	;Set command char
		STA	>cursor
		JMP	cominit1	;initiate command mode
*
* The following code wraps it up with the Carry Set indicating
*  that the character was not interpreted as part of a command.
*
NOCMD		SEC		;Mark char not handled
NOCMD2		PLA		;Restore original char
		RTS
*
* We're somewhere in the middle of a command.  Upshift the char.
*
INCMD		EQU	*	;Command mode
		XBA
		LDA	>FFDEVLBL-$C1,x
		TAY
		XBA
		AND	#$5F	;High bit doesn't matter, upshift lower case 
*
* See if we're in the middle of a 2 character command.
*
		PHA		;save character
		LDA	|sermode,x	;need to see if in 2-chr command
		BIT	#$08	;bit 3 set if so
		BNE	incmd2	;branch if so
		PLA		;pull char back, not in 2-chr cmd
		BRA	incmd1	;go on with regular command mode
*
* Handle the 2nd chr of a 2 chr cmd.  Ignore spaces in 2 char commands.
*
INCMD2		EQU	*
		PLA		;pull char off stack
		PHA		; & reshove it to keep stack neat
		CMP	#ucspace	;is it a space? (uppercased)
		BNE	incmd3	;no, go on with 2-chr cmd handling
		CLC		;yes, ignore spaces between chrs of 2-chr cmds
		PLA		;pull uppercased char off stack
		BRA	nocmd2	;ie mark them "handled" & don't do anything else
*
* Get out the index for which command we're in, then clear it out
*
INCMD3		LDA	|sermode,x	;get sermode back
		PHA		;save sermode for a minit
		AND	#7	;throw out all but bits 0-2
		STA	|temp,x	;save - this is index of which cmd it is
		PLA		;get sermode back
		AND	#$F0	;now clear bits 0-3
		STA	|sermode,x	;since we're done with them now
*
* Look for an E (enable) or D (disable) and branch appropriately
*
		PLA		;get character back
		PHX		;shove x (Cn) on stack
		PHA
		LDA	|temp,x	;Get index to command's 1st char
		TAX
		PLA
		CMP	#$45	;is it an E?
		BNE	nenable	;yes
		JMP	enable	;Couldn't quite reach
NENABLE		EQU	*
		CMP	#$44	;no, is it a D?
		BEQ	disable	;yes
*
* Check if it was really a one char command followed by another command
*
		PLX		;retrieve X=Cn (old X still hanging around in temp)
		PHX		;push it back to keep stack neat
		CMP	|eschar,x	;compare to the command character
		PHP		;save result of comparison for a bit
		PHA
		LDA	|temp,x	;Get back command index
		TAX
		PLA
		PLP		;retrieve result of comparison of char to cmd char
		BEQ	flagit	;yes tis 1-chr cmd followd by nother cmd
*
* Maybe this char is a carriage return. Then it was really a 1 chr cmd
*
		CMP	#charCR	;is it a (guess what) CR?
		BEQ	oneletter	;yes - a 1-chr command
*
* This is an unimplemented but legal 2-chr command.
*  Restore the cursor and clear the 'in-the-middle-of-a-command' bit.
*
CMD2NULL		EQU	*
		PLX		;pull x (Cn) off stack
		LDA	>oldcur	;restore non-cmd-mode cursor
		STA	>cursor
		ASL	|sermode,x	;clear cmd-mode bit (bit 7 of sermode)
		LSR	|sermode,x	;by shifting out bit 7 & shifting in a 0
		BRA	nocmd	;return marking character not handled
*
* Here we have gotten an an escape char after L, X, F, M, or T.
*  This means that we should do the pending command and remain in
*  in command mode for the next yet to be received command.
*
FLAGIT		EQU	*
		PLX		;need X=Cn to set bit 0 of sermode
		PHX		;but leave Cn on stack too
		INC	|sermode,x	;bit 0 was 0, now's 1 - means new cmd mode
		LDA	|temp,x	;Reload X index to cmds 1st chr
		TAX
*
ONELETTER		EQU	*	;come here if 2-chr cmd turns out 1 chr
		LDA	>cmd2list,x	;get command chr
		BRA	backto1	;treat it as if we just got it
*
*
*
INCMD1		EQU	*	;in command mode, not 2-chrs tho
		PHX		;Save slot
		LDX	#7	;check 8 possible 2-chr cmds
CMD2LOOP		CMP	>cmd2list,x	;is it there?
		BEQ	cmd2found	;yes, need to flag it for next time
		DEX		;nope
		BPL	cmd2loop	;try next if there is one
*
* Check for one character commands
*
BACKTO1		EQU	*
		LDX	#12	;Check 13 commands
CMDLOOP		CMP	>cmdlist,x
		BNE	noreach	;Right char?
		JMP	cmdfound
NOREACH		EQU	*
		DEX
		BPL	cmdloop
*
* We haven't found it in the one char table.  If it is a control char
*  then we will make it our new escape character.
*
		PLX		;We didn't find it
		PLA
		PHA
		AND	#$7F	;if char is cntl char 
		CMP	#$20	;it can be the new comd char 
		BCS	ckdig	;branch if not cntl character 
CMDZ2		STA	|eschar,x	;Save comd char, drop thru ckdig to cdone 
*
* Maybe it's a number... if so shift the number buffer by 10 and add
*  the new digit.
*
CKDIG		EOR	#$30	;zap it down to 0n if char was a digit
		CMP	#$0A	;if not a digit, it is unexpected intruder
		BGE	cdone	;If not, branch
		LDY	#10	;A = A + 10 * current number
DIGLOOP		ADC	>number	;C=0 on first entry
		DEY
		BNE	digloop
*
* Now remember that we have seen a number this command.
*
		PHA
		LDA	#nflagmask
		ORA	|sermode2,x
		STA	|sermode2,x
		PLA
*
* The acc now has the new number value.  Branch to save it...
*
		BRA	cominit	;not starting new cmd mode, just save #
*
* This handles LE and LD... make them look like L and K respectively.
*
CMD2L		EQU	*	;come here to handle LE & LD
		LDA	#$4C	;make LE look like L
		PLP		;get P back with carry indicating E or D
		BCS	backto1	;carry set means it was an E
		LDA	#$4B	;make LD look like K
		BRA	backto1
*
* These guys turn on or off one of the mode flags per E/D.
*
ENABLE		EQU	*	;got a 2-chr command aE
		SEC		;set carry
		OPCODE	BCC	;bcc to skip next byte (the CLC)
DISABLE		EQU	*	;got a 2-chr command aD
		CLC		;clear carry
		PHP		;push P to save carry
		CPX	#0	;if X=0 then command is LE or LD
		BEQ	cmd2l	;so just make it act like L or K
		CPX	#7
		BNE	di3
		JMP	cmd_a	;Process the A command
DI3		EQU	*
		CPX	#6	;if X=6 then command is CE or CD
		BEQ	cmd_c
		CPX	#5	;if X=5 then command is BE or BD
		BEQ	cmd_b
		JMP	xr1	;Deal with the rest
*
* Look at sermode[0] to see if we should set or clear command mode.
*
CDONE		EQU	*
		LDA	|sermode,x	;so get it
		LSR	A	;shift bit 0 to carry
		BCS	cominit1	;if set, start new cmd mode
*
* Put the cursor back the way we found it
*
		LDA	>oldcur	;Restore the cursor
		STA	>cursor	;& fall through to cmset with carry clear
*
* Set the command mode per the carry
*
CMSET		PHP
		ASL	|sermode,x	;set command mode according to carry 
		PLP
*
* Clear the carry (indicating the char was handled), get the char back,
*  and return.
*
		ROR	|sermode,x	;leaves carry clear 
		PLA		;character handled 
		RTS		;because carry clear... 
*
*
CMD2FOUND		EQU	*
		CMP	#'B'	;This char can be two char cmd
		BNE	c2fcont
*
* In the case of encountering the 'B' command, if there was a
*  number preceding the 'B', then it's the one character baud rate
*  change command.  Otherwise it is likely to be the two character
*  buffering enable/disable command.
*
		TXA
		PLX
		PHX
		PHA		;Save the index
		LDA	|sermode2,x
		PLX
		BIT	#nflagmask
		BNE	cmdfound	;It's BAUD: X is 5 already
*
C2FCONT		EQU	*
		TXA		;copy index of cmd to acc
		PLX		;restore X to Cn
		ORA	|sermode,x	;copy top 2 bits of sermode
		ORA	#$08	;& set bit 3 - 2-chr-command-mode flag
		STA	|sermode,x	;sermode now holds index to 2-chr command issued
		SEC		;set carry so we stay in command mode
		BRA	cmset	;for next time
*
*
CMDFOUND		EQU	*
		LDA	#>cmdcr	;get hi byte of where to go
		PHA		;save it on stack
		LDA	>cmdtable,x	;get lo byte of where to go
		PHA		;save it on stack
		RTS		;go there by RTSing
*
* Init command mode by setting sermode, clearing number and exit
*
COMINIT1		EQU	*	;start new cmd mode here
		LDA	|sermode,x	;get sermode
		AND	#$C0	;clear bits 0-5 (starting a new cmd seq --
		STA	|sermode,x	;they are used for misc during cmd mode)
		LDA	|sermode2,x	;Clear out the 'seen a number' bit
		AND	#nflagmask--$FF
		STA	|sermode2,x
		LDA	#0	;load a 0 to stuff in NUMBER
COMINIT		STA	>number
		SEC		;Mark in command mode
		BRA	cmset
*
* This is the CE/D service
*
CMD_C		PLP		;restore status to check carry bit
		PLX
		LDA	#crstuffmask--$FF
		AND	|sermode2,x
		BCC	cmd_c1
		ORA	#crstuffmask
CMD_C1		EQU	*
		STA	|sermode2,x
CDONE3		JMP	cdone	;we're done here
*
*
***********************************************
* for other 2-chr cmds, their FLAGS masks' indexes are 2X+3      
* for an E or 2X+4 for a D    
***********************************************
*
XR1		EQU	*
		TXA		;copy x to acc for arithmetic
		CLC		;clear carry for arithmetic
		ASL	A	;multiply index by 2
		ADC	#3	;add 3 to get mask index
		TAX		;put mask index in X
		PLP		;get carry back
		BCS	xready	;carry set = Enable so X is ready
		INX		;cmd was Disable so inc X to next mask
XREADY		JMP	cmdi	;go do mask stuff to FLAGS
*
* We have gotten a BE/D command.
*
CMD_B		EQU	*
		PLP		;Get back enable/disable request
		PLX		;Get back $CN
*
		PHP		;Disable int until they're dead
		SEI
*
		LDA	>FFDEVLBL-$C1,x	;Get hardware index
		TAY
*
		LDA	|sermode2,x
		AND	#BfrngMask--$FF
*
		BCC	smc
*
		ORA	#BfrngMask	;Flip on the buffering bit
SMC		EQU	*
		STA	|sermode2,x	;Gotta set it before enabling ints
*
		JSR	IntKill	;Disable and clear pending SCC interrupts
		PLP		;Restore interrupt state
		BCC	q	;If it was BD, skip the turn on
*
		PHX
		JSR	ResetQs
		JSR	EnableInt
		PLX
*
Q		EQU	*
		JMP	cdone2
*
*
* Make sure the command service routines are in the same page
*
HEREC_1		EQU	*-Rel~Org+Bnk~Org
	IF HEREC_1 < $0518 THEN
		DCB.B	$0518-HEREC_1,0	;Keep routines in a single page
	ENDIF
*
CMDZ		PLX		;Zero escape character
		STZ	|pwdth,x	;And the width
		LDA	#CSDMask
		ORA	|sermode3,x
		STA	|sermode3,x
		BRA	cdone2
*
*
CMDCR		EQU	*
CMDN		EQU	*
		PLY
		LDA	>number	;Get number inputted
		BEQ	cmdi2	;skip if 0
		STA	|pwdth,y	;Update printer width
		DC.B	$F0	;BEQ opcode to skip next byte (the PLY)
CMDI		EQU	*
CMDK		EQU	*
CMDL		EQU	*
		PLY
CMDI2		LDA	|flags,y
		AND	>mask1,x	;Mask off bit we'll change
		ORA	>mask2,x	;Change it
		STA	|flags,y	;Back it goes
		TYX		;Put slot back in x
CDONE2		JMP	cdone	;Good bye


*
* Process the parity command.
*
CMDP		EQU	*
		LDA	>number	;0,2-no parity, 1-odd, 3-even
		TYX
		EOR	>WR4,x	;Fold A[1..0] into current value
		AND	#%00000011	;Only keep low bits of ACC
UPD4		EQU	*
		EOR	>WR4,x
		STA	>WR4,x
ISPHITCH		EQU	*
		PLX
		PHX		;Get X back for InitSerial
		JSR	InitSerialPB	;Init Port and maybe reenable bfrng
HITCH		EQU	*
		PLX		;Get back $CN
		BRA	cdone2
*
* Process a Data format change command.
*
CMDD		EQU	*
		LDA	>number
		PHA
*
* Do the Receive data bits
*
		AND	#%00000011	;Use only the low bits
		EOR	#%00000011	;Reverse the table for BASIC command
		TAX
		LDA	>DBitMap,x
		TYX
		EOR	>WR3,x
		AND	#%11000000	;Keep everything else the same
		EOR	>WR3,x
		STA	>WR3,x
*
* Do the Transmit # data bits
*
		LSR	a
		EOR	>WR5,x
		AND	#%01100000	;Everything else is the same
		EOR	>WR5,x
		STA	>WR5,x
*
		PLA		;Get Number back
		ASL	a	;Move up to where SCC wants it
		TYX		;Move the index
		EOR	>WR4,x	;Fold the new bit into the current value
		AND	#%00001000	;Only keep one bit of ACC
*
		BRA	upd4
*
* Process the Baud Rate command.
*
CMDB		EQU	*
		LDA	>number
		BNE	lmc	;Y has the hardware index
		JSR	FigBaud	;Get the default Baud rate
LMC		EQU	*
		JSR	StoreBaud
		BRA	ISPHitch
*


*
* Send a 233 ms break character taking into account how fast the
*  CPU is currently running.
*
CMDS		EQU	*
*
* Break is not supported in AppleTalk mode
*
		PLX
		PHX
		LDA	>ApTalkFlag,x
		BMI	whee
*
		TYX
		LDA	>WR5,x	;Get the current register value
		PHA		;Save it
		ORA	#$10	;Turn on the break bit
		LDX	#5	;Start the break
		JSR	WriteSCC
*
		CLC		;Start carry in known state
		LDX	#247	;Now delay about 233 milliseconds
BK2		LDA	#243
BK1		DEC	a	;Loop here 243 times
		BNE	bk1
		ROR	a	;Complement the carry...
		EOR	#$80
		ROL	a
		BCS	bk2	;Do the inner loop twice
		DEX		;This is the outer loop
		BNE	bk2
		PLA		;Get old value back
*
		LDX	#5
		JSR	WriteSCC
WHEE		EQU	*
		PLX
		JMP	cdone2
*
CMDQ		CLC		;Quit terminal mode
		DC.B	$B0	;BCS to skip next byte
CMDT		SEC		;Into terminal mode
		PLX		;Recover X
		JSR	setterm
		JMP	cdone
*
CMDR		EQU	*
		PLX
		PHX
*
* Since we'll make a call to sethooks and doffsvk, we gotta
*  make sure that the all the $CX00 rom space is banked in.
*  We also must restore it when we're done.
*
		LDA	|RDCXROM
		PHA
		STA	|SETINTCXROM
*
		LDA	|sermode3,x
		AND	#BasicMask
		BEQ	cmdrgds
*
		CLC		;Make sure terminal mode is off
		JSR	setterm
*
		LDA	|RD80VID	;Check if video firmware active
		ASL	A	;Save it in C
		JSR	|SETHOOKS	;assume video firmware active 
		BCS	cmdrgds	;branch if good guesser... 
		JSR	|DOFFSVK	;Reset the hooks
		LDA	#$FF	;Slam old cursor with checkerboard
		STA	>oldcur	;So that code at CDONE works okay
*
* Now if buffering's on, turn it off and deallocate the buffer
*  First set back the slot rom the way it was
*
CMDRGDS		EQU	*
		PLA
		BMI	cmg2
		STA	|SETSLOTCXROM
CMG2		EQU	*
		PLX
		PHX
		LDA	|sermode2,x
		AND	#bfrngmask
		BEQ	whee
		JSR	IntKill
		PLX
		PHX
		JSR	ReleaseBuf
		BRA	whee	;Pull X and back to the grind
*
		EJECT
SETTERM		EQU	*	;set/clear terminal mode
*
* Here the carry is set if we're initiating terminal mode.
*
		LDA	|sermode,x	;Get terminal mode status
		BIT	#$40	;Z=1 if not in terminal mode
		BCC	stclr	;Branch if clearing terminal mode
		BNE	stwasok	;Was already set
*
* If we're not in the input hooks, don't go to terminal mode
*
		CPX	kswh	;Are we in the input hooks
		BNE	strts	;Leaves C=1 if = 
*
* Flip on the terminal mode bit
*
		ORA	#$40	;Set term mode bit
*
* Preserve the normal cursor and shove terminal mode cursor
*
		PHA
		LDA	>oldcur	;Save what was in oldcur
		STA	>oldcur2
		PLA
		LDY	#termcur	;Get new cursor value
		BRA	stset
*
* Clear terminal mode and restore the old cursor
*
STCLR		BEQ	stwasok	;Branch if already clear
		AND	#$BF	;Clear the bit
		PHA
		LDA	>oldcur2	;Restore the cursor
		TAY
		PLA
STSET		STA	|sermode,x
		TYA		;Gotta do long addressing...
		STA	>oldcur	;Save cursor to be restored after command
		STA	>cursor
STWASOK		EQU	*
*
* The //c firmware turned on receiver interrupts here.
*
STRTS		RTS
*
*
CMD_A		EQU	*
		PLP
		PLX
		LDA	#BTabMask--$FF
		AND	|sermode3,x
		BCC	cmd_a1
		ORA	#BTabMask
CMD_A1		EQU	*
		STA	|sermode3,x
		JMP	cdone
*
*
		MSB	OFF
CMDTABLE		EQU	*	;command routines' lo bytes
		DC.B	CMDI-1
		DC.B	CMDK-1
		DC.B	CMDL-1
		DC.B	CMDN-1
		DC.B	CMDCR-1
		DC.B	CMDB-1
		DC.B	CMDD-1
		DC.B	CMDP-1
		DC.B	CMDQ-1
		DC.B	CMDR-1
		DC.B	CMDS-1
		DC.B	CMDT-1
		DC.B	CMDZ-1
*
* Flag byte
* masks for:     I   K   L   N   CR  XE  XD  FE  FD  ME  MD  EE  ED
MASK1		DC.B	$7F,$BF,$BF,$7F,$FF,$DF,$DF,$EF,$EF,$F7,$F7,$7F,$7F
MASK2		DC.B	$80,$00,$40,$00,$00,$20,$00,$00,$10,$00,$08,$80,$00
*
CMDLIST		EQU	*
		DC.B	'IKLN'
		DC.B	$0D	;cr (part of cmdlist)
		DC.B	'BDPQRSTZ'
CMD2LIST		EQU	*
		DC.B	'LXFMEBCA'	;2-chr commands' first chrs
*
*
FFDEVLBL:		DC.B	$3C,$3B
*
*
*
* Buffer allocation routine
*  If no error, carry is clear and buffer address is in A (lo), X (hi)
*   Otherwise, carry is set.
*
		LONGA	ON
		LONGI	ON
*
* Must have X set to $CN on entry!
*
GETBIGBUF		EQU	*
		PHX		;Keep port index
		PEA	|0	;Push the space for result
		PEA	|$8000	;Tag field
*
		LDX	#$20*256+3	;Get ID tag
		JSL	>ToolDispatch	; from misc tools
		PLA		;Get the ID
		PLX		;And get back the index
		PHP		;save the carry
		CPX	#$C1	;Tags are two bytes
		BEQ	gbb1
		INX
GBB1		EQU	*
		STA	>BID-$C1,x	;Store it away
		PLP		;Get back GetID results
		BCS	nevermind
*
		LDX	#0
		PHX		;Push space for long result
		PHX
		PHX		;Hi part of size request
		PEA	|bufsize	;Push size request low
		PHA		;Push Owner ID we just got
		PEA	|$4008	;Attributes: fixed, no spcl mem
		PHX		;Location info
		PHX		; top part
		LDX	#9*256+2	;NewHandle
		JSL	>ToolDispatch	;Call the memory manager
		PLX		;Pull low part
		PLA		;Pull hi part
		BCS	nevermind
*
* Dereference the handle and get the buffer address
*
		PHB		;Save current DBR
		XBA		;Swap so bank is pulled last
		PHA		;Push bank then $00
		PLB		;Pull the $00
		PLB		;DBR now set for handle
*
		LDA	|0,x	;Get low part
		PHA
		LDA	|2,x	;Get hi part
		TAX
		PLA
		PLB
*
NEVERMIND		EQU	*
		RTS
*
*
*  This routine releases the buffer secured with the above call.
*   It is called when the Reset command is set through the output flow.
*
*
RELEASEBUF	EQU	*
		SETDBR	$E1E1
*
* Point at the input part of this channel's buffer
*
		CLC
		JSR	SetQueue
*
		REP	#%00110000	;
		PHX		;Keep around a 16 bit X
*
* Do the call to FindHandle since we did not keep around the original
*
		LDA	#0
		PHA
		PHA		;Space for result
		LDA	QBase+2,y	;Push hi
		PHA
		LDA	QBase,y	;Push low
		PHA
		LDX	#$1A*256+2	;FindHandle
		JSL	>ToolDispatch
		LDA	1,s	;If result = 0, then it's NON MM memory
		ORA	3,s	;
		SEC
		BEQ	rb3	;Can't release what we don't got
*
* Now attempt the disposal. The handle is already on the stack.
*
		LDX	#$10*256+2
		JSL	>ToolDispatch	;DisposHandle
*bcs rb1 ;If this failed, skip out
		BCS	rb3	;*** Bug Fix 10/7/86 ***
*
* Get back the port index and get back the buffer ID to release it.
*
		PLX
		PHX
		CPX	#$C1
		BEQ	rb2
		INX		;Widen the index for the 2nd port
RB2		EQU	*
		LDA	>BID-$C1,x
		PHA
		LDX	#$21*256+3
		JSL	>ToolDispatch	;DeleteID
		BRA	rb1
*
RB3		EQU	*
		PLX		;Pull off garbage (zeros)
		PLA
*
RB1		EQU	*
		PLX		;Pull off the index
		SEP	#%00110000	;Back to 8 bit land
		BCS	rberror1	;If error, don't clear buffer flag
		STZ	|firsttime-$C1,x
RBERROR1		EQU	*
		PLB		;Back to original bank
		RTS
*
*
		LONGA	OFF
		LONGI	OFF
*
*
* Auxilliary routine that wouldn't fit anywhere else...
*  Sets a bit which keeps track if you are calling the BASIC or PASCAL
*  entry point.
*
SETBASICMODE	EQU	*
		PHP
		SEC
		BRA	sm2
SETPASCALMODE	EQU	*
		PHP
		CLC
SM2		EQU	*
		PHA		;Preserve A
		LDA	|sermode3,x
		AND	#BasicMask--$FF
		BCC	sm1
		ORA	#BasicMask
SM1		EQU	*
		STA	|sermode3,x
		PLA
		PLP
		RTS
*
*
		TITLE	'Extended Serial Interface'
*
EXTDISPATCH	EQU	*
*
* Preserve three locations in zero page and use these to get to the
*  call command code and parameter count.
*
		PHB
		XBA
		LDA	zpage
		PHA
		LDA	zpage+1
		PHA
		LDA	zpage+2
		PHA
		XBA
*
		STA	zpage
		STX	zpage+1
		STY	zpage+2
*
* Check for a legal command code
*
		LDY	#1
		LDA	[zpage],y
		CMP	#lastcall+1
		BGE	badcall
*
* Check for a valid parameter count... the calls are paired.
*
		LSR	a
		TAX
		LDA	>paramct,x
		LDY	#0
		EOR	[zpage],y
		BNE	badpcount
*
* Load up the address-1 to vector to.
*
		LDA	>callpage,x
		PHA
		LDA	>calltable,x
		PHA
*
* Load up the index registers: X has $C1 or $C2, Y has $3C or $3B.
*
		LDX	|mslot
		LDA	>FFDEVLBL-$C1,x
		TAY
		RTS
*
*
BADPCOUNT		EQU	*
		LDA	#BadPCErr
		BRA	ErrExit
*
*
MODEBITS		EQU	*
*
* I used to have a beautiful, elegant little routine here that
*  was thirteen bytes smaller than this 'shotgun' routine, which
*  I had to rip out because of the juggling of the screenholes
*  which happened because some old applications broke the rules.
*  (Management said we had to support them anyway.)  You will
*  never be able to experience the simplicity, the ambiance, and
*  general hootspa of the original routine, and Mr. L will never
*  appreciate the sacrifice.
*
		LDY	#4
*
		LDA	|flags,x
		BCC	mb1
		LDA	[zpage],y
MB1		EQU	*
		STA	|flags,x
		STA	[zpage],y
		INY
*
		LDA	|sermode2,x
		BCC	mb2
		LDA	[zpage],y
MB2		EQU	*
		STA	|sermode2,x
		STA	[zpage],y
		INY
*
		LDA	|sermode3,x
		BCC	mb3
		LDA	[zpage],y
MB3		EQU	*
		STA	|sermode3,x
		STA	[zpage],y
		INY
*
		LDA	|sermode,x
		BCC	mb4
		LDA	[zpage],y
MB4		EQU	*
		STA	|sermode,x
		STA	[zpage],y
*
OKEXIT		EQU	*
		CLC
		LDA	#0
		BRA	ee1
*
BADCALL		EQU	*
		LDA	#BadCallErr
*
ERREXIT		EQU	*
		SEC
*
EE1		EQU	*
		LDY	#2
		STA	[zpage],y
		XBA		;10spd acc preserve
		INY
		LDA	#0
		STA	[zpage],y
*
		PLA
		STA	zpage+2
		PLA
		STA	zpage+1
		PLA
		STA	zpage
		PLB
		XBA		;10spd acc preserve
		RTL
*
*
PARAMCT		EQU	*
		DC.B	3,0,0,3,4,3,3,0
		DC.B	4,4,2,4,4,0,0,0
		DC.B	3,3,3,3,4,0
*
CALLTABLE		EQU	*
		DC.B	MODEBITS-1,BADCALL-1,BADCALL-1,PORT-1
		DC.B	SCC-1,DTR-1,INTERRUPT-1,BADCALL-1
		DC.B	GETBUFFER-1,SETBUFFER-1,FLUSHQUEUE-1,QUEUESTATUS-1
		DC.B	BGPRINT-1
*
CALLPAGE		EQU	*
		DC.B	(MODEBITS-1)>>8,(BADCALL-1)>>8
		DC.B	(BADCALL-1)>>8,(PORT-1)>>8
		DC.B	(SCC-1)>>8,(DTR-1)>>8
		DC.B	(INTERRUPT-1)>>8,(BADCALL-1)>>8
		DC.B	(GETBUFFER-1)>>8,(SETBUFFER-1)>>8
		DC.B	(FLUSHQUEUE-1)>>8,(QUEUESTATUS-1)>>8
		DC.B	(BGPRINT-1)>>8
*
		EJECT
*
*
SETBUFFER		EQU	*
*
* A flush must occur here to reset the head and tail pointers
*
		JSR	Flush	;Does a SetQueue
		SEP	#%01000000	;V set means 'set'
		BRA	gb1
GETBUFFER		EQU	*
		CLV		;V clear means 'get'
		JSR	SetQueue
*
* Want to copy over 4+2 bytes of buffer info.
*
GB1		EQU	*
		TYX
		LDY	#4
GB2		EQU	*
		LDA	>queue,x
		BVC	gb3
		LDA	[zpage],y
GB3		EQU	*
		STA	>queue,x
		STA	[zpage],y
		INX
		INY
		CPY	#10
		BLT	gb2
		JMP	OKExit
*
*
FLUSH		EQU	*
*
* Use X and C to point Y to the queue in question
*
		JSR	SetQueue
*
* Zero out the head and tail pointers of the queue
*
		PHX
		TYX
		REP	#%00100000	;Into 16 bit M
		LONGA	ON
		LDA	#0
		STA	>QHead,x
		STA	>QTail,x
		SEP	#%00100000	;Into 8 bit M
		LONGA	OFF
		PLX
		RTS
*
*
FLUSHQUEUE	EQU	*
		JSR	Flush
		JMP	OKExit
*
*
		LONGA	ON
		LONGI	ON
*
QUEUESTATUS	EQU	*
		BCS	outq	;C set means OutQueueStatus
		JSR	QLength
		BRA	qs1
OUTQ		EQU	*
		JSR	QSpace
QS1		EQU	*
		LDY	#4
		STA	[zpage],y
*
* Now give 'em the # of heartbeats since the last char was queued.
*  We just assume that the heartbeat counter has been turned on.
*
		INY
		INY
		LDA	>HeartBeat
		CPX	#$C2
		BLT	qs2
		INX		;If port 2, stretch a bit
QS2		EQU	*
		SEC
		SBC	>SaveHeartBeat,x
		STA	[zpage],y
		SEP	#%00110000
		JMP	OKExit
*
		LONGA	OFF
		LONGI	OFF
*
*
INTERRUPT		EQU	*
		PHY
		PHX
		PHP
*
		LDY	#8
		LDA	#3
		CPX	#$C1
		BEQ	inta
		LDA	#7
*
INTA		EQU	*
		TAX
INTB		EQU	*
		PLP
		PHP
		LDA	[zpage],y
		BCS	intc
		LDA	>CompVect1,x
INTC		EQU	*
		STA	[zpage],y
		STA	>CompVect1,x
		DEX
		DEY
*
		CPY	#6
		BPL	intb
*
* Put in a JML opcode in case it's not there
*
		LDA	#$5C
		STA	>CompVect1,x
*
		PLP
		PLX
		BCS	setint	;Set up the interrupt byte
*
		PLY
		LDA	>Dishonesty,x
		JMP	Spit8bits
*
SETINT		EQU	*
		LDY	#4
		LDA	[zpage],y
		STA	>UserInt,x
		AND	#%11101010
		PLY
		PHA
		LDA	#15
		TAX		;For the future write
		JSR	ReadSCC
		ORA	1,s
		PLB
		JMP	dtr2
*
*
*
		TITLE	'Serial Interrupt Handler'
*
********************************************************************
*                                                                  *
* Serpint                       SCC Serial Interrupt Handler       *
*                                                                  *
*   This routine gains control when the system interrupt dispatch  *
*  decides that an interrupt which was refused by Appletalk came   *
*  from the SCC. We first decide which port it's from and return   *
*  with the carry set if the interrupt status byte is 0, or if our *
*  buffering mode is not enabled.  Then we look to see if it's an  *
*  EXSTAT, Tx, or Rx interrupt.  The latter two types are pro-     *
*  cessed and a character is queued (or dequeued), the interrupt   *
*  is cleared, the routine is restarted (almost) to guarantee that *
*  interrupts from multiple sources are appropriately handled. If  *
*  Each time an interrupt is serviced, the RR0 byte is XORed with  *
*  the previous value to detect any changes.  When all interrupts  *
*  have been cleared, the changes are ANDed with a mask from the   *
*  user, and if any bits are still set, the completion vector is   *
*  called so that the application is informed of the interrupt.    *
*                                                                  *
*    Output:    C <- Cleared if the interrupt was not handled,     *
*                        set otherwise.                            *
*                                                                  *
********************************************************************
*
SERPINT		EQU	*
*
* Preserve the state register... system don't do it for me
*  The DBR is set to $E1 but hardware appears there, too.
*
		LDA	|StateReg
		PHA
		AND	#%10001111	;Main memory to access screenholes
		STA	|StateReg
*
* DBR is set to $E1 when it gets to me...
*
		STZ	|Dishonesty+$C1
		STZ	|Dishonesty+$C2
*
		SETDBR	$0000
*
* Determine the channel which has the interrupt
*
NEXTINT		EQU	*
		LDX	#$C1
		LDA	>FFDEVLBL-$C1,x
		TAY
		LDA	#3
		JSR	ReadSCC
		AND	>serflag	;Only ints were supposed to support
		CMP	#%00001000	;Are any of 3..5 set?
		BGE	allset1	;If so, it's port 1
		INX
		DEY
		CMP	#0
		BNE	allset	;Looks like it's port 2
*
* Get our story straight.  If any of the bits in the dishonesty bytes
*  are set, he asked us to pass control to him.  Call the completion
*  routine in this case.
*
LASTWORD		EQU	*
		LDA	>Dishonesty+$C1	;Reason to call completion routine
		BEQ	si2
		JSL	>CompVect1
SI2		EQU	*
		LDA	>Dishonesty+$C2	;Reason to call other comp routine
		BEQ	si3
		JSL	>CompVect2
SI3		EQU	*
		CLC
LW1		EQU	*
		PLB		;Put $E1 back into DBR
		PLA
		STA	|StateReg	;Bank reg=$E1- that's okay
		RTL
*
* It's a channel B interrupt.  Move the channel B interrupt
*  status bits down to where channel A's would be
*
ALLSET1		EQU	*
		LSR	a
		LSR	a
		LSR	a
*
* If buffering isn't on, we don't handle anything
*
ALLSET		EQU	*
		XBA
		LDA	|sermode2,x
		BIT	#BfrngMask
		SEC		;Anticipate no buffering case
		BEQ	lw1
*
* Maintain the 'dishonesty' flag. Use XOR to isolate differences
*  in RR0 between now and last time.  Mask and store away.
*
		LDA	SCCCmd,y	;Get RR0
		PHA		;Keep for later
		EOR	>OldRR0,x	;Resulting bitset means it changed
		AND	>UserInt,x	;Remember only those they asked for
		ORA	>Dishonesty,x	;Add to others
		STA	>Dishonesty,x	;Keep
		PLA		;Back current RR0
		AND	#%11111010	;Force off rcv and xmit ready...
		STA	>OldRR0,x
*
* Check to see if it is an External/Status interrupt
*
		XBA		;Get back the interrupt status
		LSR	a	;Is it an Ext/Stat?
		BCC	mabtx
*
* It is an Ext/Stat interrupt...
*  Don't need zero count interrupts at this point
*
		LDA	#15
		JSR	ReadSCC
		AND	#%11111101
		PHX
		LDX	#15
		JSR	WriteSCC
		PLX
*
* Change the "no flow" bit if necessary.
*
		JSR	HardCheck	;Set the noflow bit appropriately
*
* Now clear out the interrupt... currently ignore the fact that
*  a user may have asked to deal with an interrupt from an external/
*  status line that is not handshaked (with buffering on).
*
		LDA	#%00010000
		STA	SCCCmd,y	;Just to speed things up a bit
*
* See if we should start characters flowing out.
*
TXCHECK		EQU	*
		LDA	|flags,x
		BIT	#WaitXMask
		BNE	nextint	;If still awaiting XON, never mind
*
		LDA	SCCCmd,y
		BIT	#%00000100
		BEQ	nihitch
		BRA	cleartxint
*
* Check to see whether it is a transmit interrupt
*
MABTX		EQU	*
		LSR	a	;Move Tx bit to carry
		BCC	itsrcv	;Gotta be a receive interrupt
* 
* It's a transmit interrupt.  Clear it.
*
CLEARTXINT	EQU	*
		LDA	#%00101000
		STA	SCCCmd,y
*
* If we're in "no flow", there's nothing we can do.  Continue
*  what we can do... just swallow it (and our pride) and continue.
*
		LDA	|sermode2,x
		BIT	#outflomask
		BNE	nihitch
*
* If we're doing XON/XOFF handshake and awaiting XOFF, bail out
*
		LDA	|flags,x
		BIT	#WaitXMask
		BNE	nihitch
*
* We're flowing now... pull a char from the queue and shove it
*
		SEC		;Want to use this channel's outqueue
		JSR	DeQueue	;Pull out the next character  
		BCS	sendit	;If we got a character send it
*
* If we underflow and we're backgroung printing, we are obliged to
*  call the recharge routine.
*
		LDA	|sermode2,x
		BIT	#BRPMask
		BEQ	nihitch
*
* Flush the queues, call the recharge routine, and store away the 
*  newly specified length.
*
		JSR	FPlusR
		BNE	txcheck	;A virtual transmit interrupt
NIHITCH		EQU	*
		JMP	nextint
SENDIT		EQU	*
		STA	SCCData,y
		BRA	nihitch	;Back in case there is more
*
* It's a receive interrupt
*
ITSRCV		EQU	*
		PHY
		JSR	GetData	;Get the data
		PLY
		BCC	readmore	;It was eaten... don't queue it
*
* Put the byte into the receiver queue
*
		CLC
		JSR	Enqueue	;Do it
*
* If the buffer overflowed, there's nothing I can do.  Just clear
*  the receiver interrupt and have a nice day.
*
		BCS	readmore	;Hard buffer overflow
*
* Record the time of the enqueing of the character.
*
		PHX
		CPX	#$C2
		BLT	ir1
		INX
IR1		EQU	*
		LDA	>heartbeat
		STA	>SaveHeartBeat,x
		LDA	>heartbeat+1
		STA	>SaveHeartBeat+1,x
		PLX
*
* If the buffer is within 1/4 bufsize of overflowing, disassert
*  the handshake, however he said.
*
		BVC	readmore	;There was no overflow
		SEC
		JSR	chghs	;Flip hs and inflow bit if nec
*
* Is there another character to grab?  Grab if so
*
READMORE		EQU	*
		LDA	SCCCmd,y
		LSR	a
		BCS	itsrcv
		JMP	txcheck
*
*
		TITLE	'Interrupt Support'
*
*
*********************************************
*                                           *
* EnableInt     Enable Buffering Interrupts *
*                                           *
*   This sets up Rx, Tx and possibly Exstat *
*  interrupts in the SCC for the port       *
*  specified in X so that buffering may     *
*  occur.                                   *
*                                           *
*   Input:    X <- $C1, $C2                 *
*   Output:   Y <- SCC index ($3C,$3B)      *
*   Destroys: A,X                           *
*   Assumes:  DBR <- $00                    *
*                                           *
*********************************************
*
ENABLEINT:
*
* Do not do anything to the SCC if we're in AppleTalk mode
*
		LDA	>ApTalkFlag,x
		BPL	ei11
		RTS		;Nevermind
EI11		EQU	*
*
* Get the SCC index
*
		LDA	>FFDEVLBL-$C1,x
		TAY
*
* Disable interrupts generally while fiddling (I hope Rome isn't burning)
*
		PHX
		LDA	#%00000010
		LDX	#9
		JSR	WriteSCC
		PLX
*
* Now set the serial interrupt byte for the system interrupt handler
*
		LDA	>SERFLAG
		CPX	#$C2
		BLT	eia
		ORA	#$07
		BRA	eia1
EIA		EQU	*
		ORA	#$38
EIA1		EQU	*
		STA	>SERFLAG
*
* Decide which Ex/Stat interrupts should be enabled
*
		LDA	|sermode2,x
		BIT	#DCDHSMask
		PHP		;Keep Z for a minute
		LDA	|flags,x
		AND	#DSRHSMask	;0 if no DSR handshake
		BEQ	ei1
		LDA	#%00100000	;DSR (CTS) interrupt enabled
EI1		EQU	*
		PLP		;Get back /DCDHS in Z
		BEQ	ei2	;Z=1 => no DCD handshake
		ORA	#%00001000
*
* Now write out the Ex/Stat interrupt enables byte
*
EI2		EQU	*
		ORA	#%00000010	;ZeroCount ints enforces an interrupt
		LDX	#15
		JSR	WriteSCC
*
* Now set up for Rx, Tx, and Ex/Stat interrupts
*
		LDA	#%00010011
		LDX	#1
		JSR	WriteSCC
*
* Disable interrupts while we set up the interrupt vector
*
		PHP
		SEI
		LDA	#$FF
		STA	>SerVect+3
		LDA	#>Serpint
		STA	>SerVect+2
		LDA	#<Serpint
		STA	>SerVect+1
		PLP
*
* Now enable interrupts and enjoy your stay here in Serialand.
*
		CLI
		LDA	#%00001010
		LDX	#9
		JMP	WriteSCC
*
		EJECT
*********************************************
*                                           *
* ChgHS       Assert/Disassert Rx Handshake *
*                                           *
*   Changes the DTR and/or sends XON/XOFF   *
*  characters to assert or disassert the    *
*  handshake.  Also sets the "in flow" flag *
*  to reflect the current handshake state.  *
*                                           *
*   Input:    X <- $C1, $C2                 *
*             C <- 1 means input flow halt  *
*             Y <- SCC index ($3C,$3B)      *
*   Destroys: A                             *
*   Presrvs:  X,Y                           *
*   Assumes:  DBR <- $00                    *
*                                           *
*********************************************
*
CHGHS		EQU	*
*
* If we are flowing (inflow=0) and carry set: inflow=1,(DTR=1),(XOFF)
*  If we aren't flowing and carry clear: inflow=0,(DTR=0),(XON)
*  Otherwise don't do anything.
*
		LDA	#0
		BCC	ch2
		LDA	#InFloMask
CH2		EQU	*
		EOR	|sermode2,x
		AND	#InFloMask
		BEQ	donothin
*
* InFloMask is still in the acc.  Flip it and store
*
		EOR	|sermode2,x
		STA	|sermode2,x
*
* If we're doing hardware handshake, flip it.
*
		PHX
		LDA	|flags,x
		PHA
		BIT	#DSRHSMask
		BEQ	ch1
*
		TYX
		LDA	>WR5,x
		EOR	#%10000000
		STA	>WR5,x
		LDX	#5
		JSR	WriteSCC
*
* Now if we're doing XON/XOFF handshake, send either XON or XOFF.
*
CH1		EQU	*
		PLA
		BIT	#XMask
		BEQ	ch5	;No XON/XOFF
*
		PHP
		SEI		;Don't go to int handler...
CH3		EQU	*
		LDA	SCCCmd,y
		BIT	#%00000100
		BEQ	ch3	;Wait around til buffer empty
*
		LDA	#%00101000
		STA	SCCCmd,y	;Clear the newly formed Tx int
*
		LDA	#NewXOff	;High bit cleared for TenSpeed
		BCS	ch4
		LDA	#NewXOn	;High bit cleared for TenSpeed
CH4		EQU	*
		STA	SCCData,y	;Shove it out
		PLP		;Reenable interrupts
*
CH5		EQU	*
		PLX		;Need $CN for later
DONOTHIN		EQU	*
		RTS
*
*
*
RECHARGE		EQU	*
*
* Calls the callers recharge routine to get more chars in the buffer
*  Stored address is one bigger than the one that we want on the stack
*  (from which we'll do an RTL to vector control).
*
		LDY	#2
		CPX	#$C2
		TYX
		BLT	rch1
		LDX	#5
RCH1		EQU	*
		CLC
RCH2		EQU	*
		LDA	>rchgadr1,x
		SBC	#0
		PHA
		DEX
		DEY
		BPL	rch2
*
* Unfortunately, they're now on the stack in the wrong order...
*
		PLX
		PLY
		PLA
		PHX
		PHY
		PHA
		RTL
*
*
* Flush the queues, call the recharge routine, and store away the 
*  newly specified length.
*
FPLUSR		EQU	*
		PHY
		PHX
*
		SEC		;Output queue
		JSR	Flush
		PLX
		PHX		;Resave X
*
* Call the recharge routine and save away the new data length
*
		PHY
*
* Preserve MSlot across the recharge routine since the app may
*  want to make a call to the regular serial code which slams mslot
*  to $C1.
*
		LDA	>mslot
		PHA
		JSL	>Recharge
		PLA
		STA	>mslot
*
		TXA
		PLX
		STA	>QTail,x
		TYA
		STA	>QTail+1,x
		ORA	>QTail,x
*
		XBA
		PLX
		PLY
		XBA		;Set zero flag again
		BNE	fpr1
*
		PHP
		LDA	|sermode2,x
		AND	#BRPMask--$FF
		STA	|sermode2,x
		PLP
*
FPR1		EQU	*
		RTS
*
*
* This routine is called by AppleTalk to get a background character
*  to print.
*
ATDEQ		EQU	*
*
* Figure out what port he wants by looking at Appletalk bit port 1
*
		LDX	#$C1
		LDA	>ApTalkFlag,x
		BMI	iwsrite
		INX		;I guess it's port 2... no prob
*
IWSRITE		EQU	*
		SEC		;It is the output queue we want
		JSR	DeQueue	;Try to get a character
		BCS	atbrp1	;Got one...give it to 'em
*
		JSR	FPlusR	;Flush, Recharge and endcheck
		BNE	ATDeQ	;Get the first of the next group
*
		CLC		;No more background printing
ATBRP1		EQU	*
		RTL		;He JSL'd to us
*
*
INTKILL		EQU	*
		LDA	>FFDEVLBL-$C1,x
		TAY		;We got the port hardware index
		PHX
		JSR	ClearInt	;Disable ints globally (this chnl)
		PLX
		LDA	|SCCData,y	;Pull any Rx chars pending
		LDA	#%11010000	;Clear any Tx ovrn & Exstat ints
		STA	|SCCCmd,y
		LDA	#%00101000	;Clear any pending Tx interrupt
		STA	|SCCCmd,y
		RTS
*
*
		TITLE	'Buffering Support'
		LONGA	ON
		LONGI	ON
*********************************************************************
*                                                                   *
* Enqueue                  Place a character in the specified queue *
*                                                                   *
*   This routine takes the character passed and places it in the    *
*  specified queue.  There are two overflow conditions, hard and    *
*  soft.  Soft overflow indicates that the queue is > 3/4 full,     *
*  and a hard overflow indicates that the queue is full and that    *
*  the character was not queued.                                    *
*                                                                   *
*   Input:    A <- character to enqueue                             *
*             X <- Port ($C1, $C2)                                  *
*             C <- 1=Output Queue, 0=Input Queue                    *
*   Output:   A,X,Y  <- preserved                                   *
*             V <- 1 char queued but queue is close to overflow     *
*             C <- 1 char was not queued due to hard overflow       *
*   Assumes:  E <- 0 : Native mode                                  *
*                                                                   *
*********************************************************************
*
ENQUEUE		EQU	*
		PHX
		PHY
		PHB		;Keep around the current DBR
*
* Check to see if the queue has space to grow
*
		PHA		;Twice since we'll be 16 bit on return
		PHA
		JSR	QSpace
		BNE	enq2
		PLA		;Get the character back
		SEC
		BRA	enq4	;Return on overflow
*
ENQ2		EQU	*
		PLX		;Keep the character in X
*
* Set up the soft overflow flag
*
		SEP	#%01000000	;Set the overflow flag
		PHA
		LDA	|QBLen,y
		LSR	a
		LSR	a
		CMP	1,s
		PLA
		BGE	enq3
		CLV		;No overlfow- lots of space left
ENQ3		EQU	*
*
* Disable interrupts to prevent race conditions
*
		PHP
		SEI		;No interrupts to prevent race conds
*
		PHY		;Save queue index for later
*
* Now swap the queue base pointer into zero page to do an indirect store
*
		JSR	SwapQBZP
*
* Insert the character into the tail of the queue.
*
		LDA	QTail,y
		TAY
		TXA		;Get the char to enqueue
		SEP	#%00100000	;Set 8 bit accumulator
		STA	[zpage],y
		REP	#%00100000	;Back to the future
*
* Increment tail pointer and swap back zero page
*
		INY		;QTail:=QTail+1
		TYA
		PLY		;Get back the Queue index
		PHA		;Save QTail
		JSR	SwapQBZP
		PLA
*
* Now, might need to adjust QTail if it passed out of the buffer
*
		CMP	QBLen,y
		BLT	enq1	;If QTail<QBLen, no need to wrap
		LDA	#0
ENQ1		EQU	*
		STA	qtail,y
*
		PLP		;Restore interrupt mask
		CLC
		TXA		;Replace the char in A
ENQ4		EQU	*
		SEP	#%00110000	;Back to 8 bit land
		PLB
		PLY
		PLX
		RTS
*
		EJECT
*********************************************************************
*                                                                   *
* Dequeue             Retrieve a character from the specified queue *
*                                                                   *
*   This routine gets a character from a queue and returns it in    *
*  the low 8 bits of the accumulator.  The carry is returned set on *
*  underflow.  "Soft" underflow is signaled if the queue is filling *
*  less than 1/4 of the buffer size.                                *
*                                                                   *
*   Input:    X <- Port index ($C1, $C2)                            *
*             C <- 1=Output Queue, 2=Input Queue                    *
*   Output:   A <- character                                        *
*             X,Y  Preserved                                        *
*             V <- 1 "soft" queue underflow                         *
*             C <- 0 "hard" queue underflow                         *
*   Assumes:  E <- 0 : Native mode                                  *
*                                                                   *
*********************************************************************
*
DEQUEUE		EQU	*
		PHX
		PHY
		PHB		;Keep around the current DBR
*
* Check if there are any characters to retrieve
*
		JSR	QLength
		BEQ	nochars	;Branch is queue length = 0
*
* Set the "soft" underflow appropriately
*
		SEP	#%01000000	;Set V
		PHA
		LDA	|QBLen,y
		LSR	a
		LSR	a
		CMP	1,s
		PLA
		BGE	deq2
		CLV		;Carry will be set at exit
DEQ2		EQU	*
		SEC		;We're giving back a char
		PHP
		SEI		;Disable interrupts to avoid race conds
*
* Now swap QBase into zero page
*
		JSR	SwapQBZP
*
* Remove a character from the head of the queue
*
		PHY		;Save off the queue index
		LDA	QHead,y	;Get the queue head index
		TAY		;Move for indirect load
		LDA	[zpage],y	;Get the byte
		TAX		;And save it in X
*
* Move the head pointer
*
		TYA
		INC	a
*
* Put back zero page and QBase
*
		PLY		;Get queue index back
		PHA		;Save QHead for a sec
		JSR	SwapQBZP
		PLA
*
* Maybe have to adjust QHead
*
		CMP	QBLen,y
		BLT	deq1
		LDA	#0
DEQ1		EQU	*
		STA	QHead,y
*
		PLP		;The carry is set here
		TXA		;Move the char back to A
		BRA	deq3
*
NOCHARS		EQU	*
		CLC		;Return an underflow
DEQ3		EQU	*
		SEP	#%00110000	;Back to 8 bit M,X
		PLB
		PLY
		PLX
		RTS
*
		EJECT
**************************************
*                                    *
* SwapQBZP       Exchange QBase & ZP *
*                                    *
*  Moves the QBase pointer to zero   *
* page and preserves zero page in    *
* QBase.  A is destroyed, assumes    *
* 16 bit modes; 4 bytes are swapped. *
*                                    *
**************************************
*
SWAPQBZP		EQU	*
		LDA	QBase,y
		PHA
		LDA	zpage
		STA	QBase,y
		PLA
		STA	zpage
*
		LDA	QBase+2,y
		PHA
		LDA	zpage+2
		STA	QBase+2,y
		PLA
		STA	zpage+2
*
		RTS
*
*
**************************************
*                                    *
* QSpace, QLength   Queue count rtns *
*                                    *
*  These return a 16 bit value       *
* reflecting the amount of space     *
* remaining or the amount of chars   *
* currently in a queue.  It is       *
* passed the queue index in Y.       *
*                                    *
**************************************
*
QLENGTH		EQU	*
		LONGA	OFF
		LDA	#$E1
		LONGA	ON
		PHA
		PLB
		JSR	SetQueue
		REP	#%00110000
		LDA	QTail,y
		SEC
		SBC	QHead,y
		BGE	ql3
		ADC	QBLen,y
QL3		EQU	*
		RTS
*
*
QSPACE		EQU	*
		JSR	QLength	;Acc <- chars in queue 
		SEC
		SBC	QBLen,y	;Acc <- currentlen-maxlen
		EOR	#$FFFF
		RTS		;Acc <- maxlen-currentlen-1
*
		LONGA	OFF
		LONGI	OFF
*
**************************************
*                                    *
* ResetQs   Set buffers to defaults  *
*                                    *
*  This flushes the queues and       *
* sets the buffer base and length    *
* addresses.  It asks the memory     *
* manager for 4K (both buffers) and  *
* if this request is refused it uses *
* buffer space reserved in bank $E1. *
*                                    *
*   Input:    X <- $C1, $C2          *
*                                    *
**************************************
*
		LONGA	ON
		LONGI	ON
RESETQS		EQU	*
		PHX
		SETDBR	$E1E1
		CLC
		JSR	SetQueue
*
* Only do this once after open-apple resets (or powerup).  The firsttime
*  byte is smashed to zero on open-apple reset (and powerup).
*
		LDA	|firsttime-$C1,x
		BNE	rq1
		INC	|firsttime-$C1,x
*
* Try to get a big buffer from the memory manager.
*
		REP	#%00110000
		PHY
		JSR	GetBigBuf
		PLY
		PHP		;C=0 means we got a big buffer
		BCC	rq2	;Skip around the default stuff
*
* We couldn't get a big buffer for some reason.  Luckily we have
*  default buffers (they're kinda small) that he can use.
*
		LDX	#^E1Buffer1	;Top part
		LDA	#E1Buffer1	;Low part
		CPY	#0	;Check port number ($0 or $20)
		BEQ	rq2	;It was port one... use buffer 1
		LDA	#E1Buffer2	;It was port two...
*
RQ2		EQU	*
		STA	QBase,y
		TXA
		STA	QBase+2,y
*
* Now get the correct buffer size.  Pull back the result (in carry)
*  that we were returned by GetBigBuf.  If clear, buffer size is
*  bufsize/2, otherwise it is 128 bytes.
*
		PLP
		LDA	#128
		BCS	rq3
		LDA	#bufsize/2
RQ3		EQU	*
		STA	QBLen,y
		STA	QBLen+10,y
*
* Now make the output buffer base pointer...
*
		CLC
		ADC	QBase,y
		STA	QBase+10,y
		BCC	rq4	;No bank cross
		INX
RQ4		EQU	*
		TXA
		STA	QBase+12,y
*
* Now we've got to clean up and flush the buffers.
*
RQ1		EQU	*
		SEP	#%00110000
		PLB
		PLX
*
		CLC
		JSR	Flush	;Flush input buffer
		SEC
		JSR	Flush	;Flush output buffer
*
		RTS		;Flush leaves us in 8 bit M,X
*
		LONGA	OFF
		LONGI	OFF
*
*
SETQUEUE		EQU	*
		XBA
		LDA	#0
		BCC	sq1
		LDA	#10
SQ1		EQU	*
		CPX	#$C2
		BLT	sqout
		ADC	#19	;Carry was set
SQOUT		EQU	*
		TAY
		XBA
		RTS
*
*
		TITLE	'Set Initial Register Values'
*
*******************************************************************
*                                                                 *
*  Default                    Set up the serial port defaults     *
*                                                                 *
*   This routine sets up the local storage of the SCC registers   *
*  and other information needed by the driver.                    *
*                                                                 *
*   Input:   X <- $C1-port 1, $C2-port 2                          *
*   Preserves:   X                                                *
*                                                                 *
*******************************************************************
*
DEFAULT		EQU	*	;X enters as $CN
*
* Get devno in Y, Init this port like a serial/comm port (preserve X)
*
		PHX
		LDA	>FFDEVLBL-$C1,x
		TAY
*
		JSR	ResetSCC	;Set up reg 9
*
* If in AppleTalk mode, SCC no touch.
*
		LDA	>ApTalkFlag,x
		BMI	peter
*
* First wait until the Tx is underrun to prevent the inadvertent
*  "chopping" of a byte that we are currently sending out.
*
WAITORCA		EQU	*
		LDA	#0
		JSR	ReadSCC
		CMP	#%01000000
		BEQ	waitorca
*
* Arrange for stop bits default
*
PETER		EQU	*
		LDX	#DefDForm	;Load index for stop bit deflt
		JSR	GetSysDflt	;0-1 stop, 1-2 stop
		AND	#%00000001	;0000000S
		SEC
		ROL	a	;000000S1
*
* Now fold in the parity bits default. (Do you like merry-go-rounds?)
*
		XBA		;A=XXXXXXXX B=000000S1
		LDX	#DefParity	;Get the index for the parity default
		JSR	GetSysDflt	;00-Odd, 01-Even, 10-None
		EOR	#%00000010	;A=000000PQ where P=Parity,Q=Even
		LSR	a	;A=0000000P B=000000S1 C=Q
		XBA		;A=000000S1 B=0000000P C=Q
		ROL	a	;A=00000S1Q B=0000000P C=0
		XBA		;A=0000000P B=00000S1Q C=0
		LSR	a	;A=00000000 B=00000S1Q C=P
		XBA		;A=00000S1Q B=00000000 C=P
		ROL	a	;A=0000S1QP B=00000000 C=0
		TYX		;...I'm kinda dizzy...
		ORA	#%01000000	;X16 clock mode
		STA	>WR4,x	;Need to preserve register setting
*
* And now with the receive word length...
*
		LDX	#DefDForm	;Get index for # of data bits
		JSR	GetSysDflt	;00X-5,01X-6,10X-7,11X-8 bits
		LSR	a	;00-5,01-6,02-7,03-8
		AND	#%00000011
		TAX
		LDA	>DBitMap,x
		TYX
		STA	>WR3,x
*
* Finally set the transmit word length
*
		LSR	a	;0nn00000
		ORA	#%00001010	;Make sure DTR is hi and RTS is low
		STA	>WR5,x
*
* Deal with the baud rate
*
		JSR	FigBaud
*
* Now set all the registers with these stored values
*
		PLX
		PHX
		JSR	InitSerial
*
* Now set other non-SCC stuff- start with the default flags byte
*
		LDA	#0
		LDX	#DefXONHS
TL1		EQU	*
		XBA		;B has accumulated SCC bits
		JSR	GetSysDflt	;Get the next default flag
		LSR	a	;Get the boolean out
		XBA		;A has accumulated SCC bits
		BCC	tl2	;Branch if default was false
		ORA	>BitTab,x	;If bit=1 BitTab positions it for SCC
TL2		EQU	*
		DEX
		BPL	tl1	;Back for the next default (5 of 'em)
*
		PLY
		EOR	#%00001000	;Reverse the sense of the LF filter
		STA	|flags,y
*
* Set the escape character up
*
		AND	#%00000001
		BNE	defcom
		LDA	#9
DEFCOM		EQU	*
		STA	|eschar,y
*
* Set the 2nd mode byte (contains buffering, and DCD handshake)
*
		LDX	#DefBuff
		JSR	GetSysDflt	;Get boolean buffering default
		BEQ	tl3	;=> It's off, so skip turn on
		LDA	#BfrngMask
TL3		EQU	*
		XBA
		LDX	#DefDCDHS
		JSR	GetSysDflt	;Get the DCD handshake default
		LSR	a
		XBA		;Get back A
		BCC	tl4	;=> skip turn on if off
		ORA	#DCDHSMask
TL4		EQU	*
		TYX
		STA	|sermode2,x
*
* Set up the printer width
*
		LDX	#DefLen	;Get index for Printer Width
		JSR	GetSysDflt	;0-unlim,1-40,2-72,3-80,4-132
		TAX
		LDA	>LenTab,x
		STA	|pwdth,y
*
* And clear out the port mode byte
*
		TYX
		STZ	|sermode,x
		STZ	|col,x	;Just like SSC
		LDA	|sermode3,x
		AND	#BasicMask
		STA	|sermode3,x	;Clear all but the Basic/Pascal bit
		LDA	#0
		STA	>UserInt,x
*
* If buffering is enabled, set up the queues and enable interrupts
*
		LDA	|sermode2,x
		BIT	#BfrngMask
		BEQ	tl5
*
		PHX
		JSR	ResetQs
		JSR	EnableInt
		PLX
*
* And now, we're defaulted.
*
TL5		EQU	*
		RTS
*
*
* Get a default.  Y has which port (table) (lsb=0 means port 1),
*  and X is the value within the table.  On output X,Y are preserved
*  and A has the value retrieved.
*
GETSYSDFLT	EQU	*
		LDA	|mslot	;Move port index to A
		LSR	a	;C <- 0 if this is port 1
		BCC	gsd1	;=> branch for port 2
		LDA	>DefPort1,x	;Get value for port 1
		RTS
GSD1		EQU	*
		LDA	>DefPort2,x	;Get value for port 2
ISOUT		EQU	*
		RTS
*
*
FIGBAUD		EQU	*
		LDX	#DefBaud	;Get index
		JSR	GetSysDflt	;0000-50,1110-19200
		INC	a	;0001-50,1111-19200
STOREBAUD		EQU	*
		TYX
		STA	>WRCD,x
		RTS
*
*
* This maps the number of data bits passed in the default table to
*  a value directly storable in register 3 (eventually 5).
*
DBITMAP		DC.B	%00000001,%10000001,%01000001,%11000001
*
* BitTab contains info to remap bits from Control Panel -> flags byte
*  The order is Port Mode, Line Length, Delete LF, Add LF, Echo,
*  Buffering, Baud, Format, Parity, DCD, DSR, and XON/XOFF.
*
BITTAB		EQU	*
		DC.B	%00000001,%00000000,%00001000,%01000000
		DC.B	%10000000,%00000000,%00000000,%00000000
		DC.B	%00000000,%00000000,DSRHSMASK,%00100000
*
* LenTab has the different line lengths specified by the defaults
*
LENTAB		DC.B	0,40,72,80,132
*
*
		EJECT
*
*******************************************************************
*                                                                 *
*  InitSerial, ResetSCC       Serial Port Initialization Routines *
*                                                                 *
*   These routines do the SCC register storage whenever initially *
*  and whenever a recieve or transmit option is altered.  It sets *
*  up the registers in the order recommended by Zilog.  ISerCold  *
*  does a port reset before drifting down into ISerWarm.          *
*                                                                 *
*   Input:   Y <- $3C-port 1, $3B-port 2                          *
*            X <- $C1-port 1, $C2-port 2                          *
*                                                                 *
*******************************************************************
*
RESETSCC		EQU	*
*
* No touch if in AppleTalk mode
*
		LDA	>ApTalkFlag,x
		BMI	isout
*
		TYX
		LDA	>ResetTabl,x
		LDX	#9
		JMP	WriteSCC	;Reset this port
*
INITSERIAL:
*
* Don't touch that SCC if in AppleTalk mode
*
		LDA	>ApTalkFlag,x
		BMI	isout	;Sneak use of default routine's rts
*
* Do the stop bits and parity setting
*
		LDA	SCCCmd,y	;Try to force register sync
*
		TYX
		LDA	>WR4,x
		LDX	#4
		JSR	WriteSCC
*
* Set up the interrupts
*
		TYX
		LDA	#0
		LDX	#1
		JSR	WriteSCC
*
* Do the Receive and Transmit word lengths
*
		TYX
		LDA	>WR3,x
		PHA		;Keep for later
		AND	#%11111110	;Don't enable yet
		LDX	#3
		JSR	WriteSCC
*
		TYX
		LDA	>WR5,x
		PHA		;Keep this too
		AND	#%11110111	;No enable yet
		LDX	#5
		JSR	WriteSCC
*
* Set up the clock register
*
		LDA	#%11010010	;ChB: XTAL,RxCBR,TxCBR,RTxCBR
		CPY	#$3C
		BEQ	df1
		LDA	#%01010010	;ChB: NOXTAL,RxCBR,TxCBR,RTxCBR
DF1		EQU	*
		LDX	#11
		JSR	WriteSCC
*
* Set the baud rate
*
		TYX
		LDA	>WRCD,x
		AND	#%00001111
		TAX
		PHX		;Just a second
		LDA	>BaudTabL,x
		LDX	#12
		JSR	WriteSCC
		PLX		;Got it back
		LDA	>BaudTabH,x
		LDX	#13
		JSR	WriteSCC
*
* Try setting baud options before enabling BRG
*
		LDX	#14
		LDA	#0
		JSR	WriteSCC
*
* Enable the baud rate generator
*
		LDX	#14
		LDA	#%00000001
		JSR	WriteSCC
*
* Turn on the reciever and transmitter
*
		PLA		;Get back the WR5 value
		ORA	#%00001000	;Flip that bit
		LDX	#5
		JSR	WriteSCC
		PLA		; and now the WR3
		ORA	#%00000001	;Flip dat bit
		LDX	#3
		JSR	WriteSCC
*
		LDA	#0
		LDX	#15
		JMP	WriteSCC
*
*
RESETTABL		EQU	*-$3B
		DC.B	%00001010	;ChB NV- reset removed
		DC.B	%00001010	;ChA NV- reset removed
*
*
CLEARINT		EQU	*
*
* No touch if in AppleTalk mode
*
		LDA	>ApTalkFlag,x
		BMI	ciout
*
		LDA	#0
		LDX	#1
		JSR	WriteSCC	;Disable interrupts this port
*
CIOUT		EQU	*
		RTS
*
*
		TITLE	'SCC Support Routines'
		; SEG	$FF
*
*****************************************************************
*                                                               *
*  ReadSCC, WriteSCC                                            *
*                                                               *
*   These routines allow read and the write the SCC command     *
*  register channel A or B.                                     *
*                                                               *
*   Input:    A <- $0..$F register number (read)                *
*             A <- value to store (write)                       *
*             X <- register to store (write)                    *
*             Y <- $3C    channel A                             *
*                  $3B    channel B                             *
*   Output:   A <- register value (read)                        *
*             C <- preserved                                    *
*                                                               *
*****************************************************************
*
WRITESCC		EQU	*
		PHP		;Preserve interrupt status
		SEI		;Disable interrupts to maintain synch
		PHA		;Save value to write
		TXA		;Get the register number
		STA	SCCCmd,y	;Set up
		PLA		;Get back the value
		STA	SCCCmd,y	;Make it real
		PLP		;Okay if interrupts happen now.
		RTS
*
*
READSCC		EQU	*
		PHP
		SEI		;No interrupts to maintain SCC synch
		STA	SCCCmd,y
		LDA	SCCCmd,y
		XBA		;NZ should be set per A on exit
		PLP		;Interrupt all you want now
		XBA
		RTS
*
*
		; SEG	$00
*
* Potpourii
*
* This routine is only here because of space constraints...
*
* Check to see if the receive char has an error.  If so, we want
*  to eat it and say there's no char available.  If we're doing
*  XON/XOFF and the character IS an XON or XOFF, say no char avail;
*  otherwise save the char in the one byte buffer and flag.
*
* The carry is clear if there is no character available, set ow.
*
POTPOURRI		EQU	*
*
* If this char has an error, and we're filtering errors, eat the
*  character and report no char avail.
*
		JSR	CheckError
		BCC	pperr	;This char had an error and was eaten
*
* If we're not doing XON/XOFF protocol, no need to check the char
*
		LDA	|flags,x
		BIT	#XMask
		BEQ	pperr	;Carry is still set here
*
		JSR	GetData	;Pull the char...
		BCC	pperr	;If it was XON/XOFF, no char avail
*
FLAGOBB		EQU	*
*
* Store char (in Acc) in the one byte buffer and flag buffer full.
*
		STA	>OneByteBuf,x
*
		LDA	|sermode2,x
		ORA	#ChrBufMask
		STA	|sermode2,x
*
PPERR		EQU	*
		RTS
*
*
		; SEG	$FF
*
*
BGPRINT		EQU	*
		BCC	bgpokay
		JMP	BadCall
*
* Disable SCC interrupts
*
BGPOKAY		EQU	*
		PHX
		JSR	ClearInt	;AppleTalk protected
		PLX
*
* Force on buffering and background printing bits
*
		LDA	|sermode2,x
		ORA	#BfrngMask+BRPMask
		STA	|sermode2,x
*
* Load up the length of data to be sent
*
		PHY
		LDY	#4
		REP	#%00110000
		LDA	[zpage],y
		BNE	bp1
*
* Gave us a data length of zero.  Force off buffering and BP bits.
*
		SEP	#%00110000
		PLY
*
		LDA	|sermode2,x
		AND	#BfrngMask+BRPMask--$FF
		STA	|sermode2,x
		JMP	OKExit
*
BP1		EQU	*
*
* Store the length of data as the queue tail value
*
		PHA
		SEC
		SEP	#%00110000
		JSR	SetQueue
		REP	#%00110000
		PLA
*
		PHX
		TYX
		STA	>QTail,x
		LONGA	ON
		LDA	#0
		LONGA	OFF
		STA	>QHead,x
		PLX
		SEP	#%00110000
		PHX
*
* Store the recharge address
*
		LDY	#8
		CPX	#$C2
		LDX	#2
BP5		EQU	*
		LDA	[zpage],y
		BCS	bp2
		STA	>RchgAdr1,x
		BRA	bp3
BP2		EQU	*
		STA	>RchgAdr2,x
BP3		EQU	*
		DEY
		DEX
		BPL	bp5
*
* Start interrupts and exit
*
BP4		EQU	*
		PLX
		PLY
		JSR	EnableInt	;AppleTalk protected
*
* If the AppleTalk bit is set, call the AppleTalk BRP start routine
*
		LDA	>ApTalkFlag,x
		BPL	bp6
		JSL	>ATBRP
*
BP6		EQU	*
		JMP	OKExit
*
		; SEG	$00
		TITLE	'Extended Xface Hardware Calls'
*
*
		; SEG	$FF
*
PORT		EQU	*
		BCS	SetPort
*
		LDA	#3
		JSR	ReadSCC
		TAX
		LDA	SCCCmd,y
		BRA	spit16bits
*
SETPORT		EQU	*
		JMP	BadCall
*
*
SCC		EQU	*
		PHY
		LDY	#4
		LDA	[zpage],y
		TAX
		INY
		LDA	[zpage],y
		PLY
		BCS	dtr2
		TXA
		JSR	ReadSCC
		LDY	#5
		STA	[zpage],y
		BRA	okeh
*
*
DTR		EQU	*
		TYX
		LDA	>WR5,x
		BCC	spit8bits
		AND	#%01101111
		PHY
		LDY	#4
		ORA	[zpage],y
		PLY
		STA	>WR5,x
		LDX	#5
DTR2		EQU	*
		JSR	WriteSCC
		BRA	okeh
*
*
SPIT8BITS		EQU	*
		LDX	#0
SPIT16BITS	EQU	*
		LDY	#4
		STA	[zpage],y
		INY
		TXA
		STA	[zpage],y
OKEH		EQU	*
		JMP	OKExit
*
*
*
		; SEG	$00
*
*
		; SEG	$FF
*
*
BAUDTABL		EQU	*
		DC.B	0,BD50,BD75,BD109,BD134,BD150,BD300
		DC.B	BD600,BD1200,BD1800,BD2400,BD3600
		DC.B	BD4800,BD7200,BD9600,BD19200
*
BAUDTABH		EQU	*
		DC.B	0,BD50>>8,BD75>>8,BD109>>8,BD134>>8,BD150>>8,BD300>>8
		DC.B	BD600>>8,BD1200>>8,BD1800>>8,BD2400>>8,BD3600>>8
		DC.B	BD4800>>8,BD7200>>8,BD9600>>8,BD19200>>8
*
		; SEG	$00
*
		; SEG	$FF
*
NEWBASVEC:
		PHP
		JSR	which
		BCS	bpat
		PLP
		JMP	>SerBasPatch
BPAT		PLP
		JMP	>ASBas
*
*
NEWPASVEC:
		PHP
		JSR	which
		BCS	ppat
		PLP
		JMP	>SerPasPatch
PPAT		PLP
		JMP	>ASPas
*
*
NEWEXTVEC:
; The code that called ASEXT has been removed
;  since it's never been used, and would be
;  slightly less than trivial to support.  No one
;  should be making calls to the extended interface
;  when the port is in AppleTalk mode.
;
;php
;jsr which
;bcs epat
;plp
		JMP	>SerExtPatch
;epat plp
;jmp =ASExt
*
*
WHICH		EQU	*
		PHA
		PHX
		TXA
		ROR	a
		LDX	#$00
		BCS	npovr
		LDX	#$0C
NPOVR		EQU	*
		LDA	>DefPort1,x
		CMP	#$02
		PLX		;Got back CN
		BCC	npnas	;If serial, skip AppleShare flagging
		LDA	#$80	;This is the AS flag value
		STA	>ApTalkFlag,x
NPNAS		EQU	*
		PLA
		RTS
*
*
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSFirmware/SmartPort/C5XXcode.aii b/IIGS.601.SRC/GSFirmware/SmartPort/C5XXcode.aii
new file mode 100644
index 0000000..002617c
--- /dev/null
+++ b/IIGS.601.SRC/GSFirmware/SmartPort/C5XXcode.aii
@@ -0,0 +1 @@
+		TITLE	'Slot 5 Boot Code Space'

;	This EdAsm/Asm816 source code file was converted to AsmIIGS
;	by EdAsmCvtIIGS version 1.2d7 on 5/16/91 at 1:21:49 PM

***************************************************
*
* Auto Boot signature bytes
* This is also the boot (auto & PR#5) entry point.
*
* The 65816 processor environment must be in full
* emulation mode when using this entry point.
*
*         Data Bank Register   = $00
*         Direct Page Register = $0000
*         Emulation Flag (e)   = 1
*
***************************************************
		LDX	#$20
		LDX	#$00
		LDX	#$03
		CMP	#0	; Flag that this is a boot
		BCS	bootcase5	; Skip to prep for $C800 trip

***************************************************
*
* ProDOS Block Device Driver entry point
*
* The 65816 processor environment must be in full
* emulation mode when using this entry point.
*
*         Data Bank Register   = $00
*         Direct Page Register = $0000
*         Emulation Flag (e)   = 1
*
* Input parameters are as follows:
*
*         $000042 = ProDOS Block Device command
*         $000043 = Unit Number
*         $000044 = Buffer Address (low byte)
*         $000045 = Buffer Address (high byte)
*         $000046 = Block Address (low byte)
*         $000047 = Block Address (high byte)
*
***************************************************
PRODOSENTRY	EQU	*
		SEC
		BCS	MakeFlag	; Skip the clear
		EJECT
***************************************************
*
* This is the SmartPort entry point
*
* The 65816 processor environment must be in full
* emulation mode when using this entry point.
*
*         Data Bank Register   = $00
*         Direct Page Register = $0000
*         Emulation Flag (e)   = 1
*
* Standard SmartPort calls are executed from bank $00
* as follows:
*
*         jsr   SPentry       ; Call to SmartPort
*         dfb   Command       ; Define SmartPort command
*         dw    ParmList      ; Pointer in bank 0 to parameter list
*         bcs   error         ; SmartPort returns here
*
* Extended SmartPort calls are executed from bank $00
* as follows:
*
*         jsr   SPentry       ; Call to SmartPort
*         dfb   Command+$40   ; Define SmartPort command
*         dw    ParmList      ; Pointer to parameter list
*         dw    ^ParmList     ; 
*         bcs   error         ; SmartPort returns here
*
***************************************************
SPENTRY		EQU	*	; Only in //GS version
		CLC
MAKEFLAG		EQU	*
		ROR	a
		AND	#%10000000	; make sure boot flag cleared
		STA	>ProFLAG	; Bit [7] = 1 if ProDOS, = 0 if SP
		CLC		; This is not a boot entry
BOOTCASE5		EQU	*
		BCC	bc5	; if not a boot
		LDA	#%11000000	; Bit [6] = 1 if boot
		STA	>ProFLAG
BC5		EQU	*
		XCE		; save carry for mode switch
		CLC		; going to native mode
		XCE		; switch mode & restore carry
		SEP	#$30	; 8 bit 'm' & 'x'
		LDA	#$C5	; Load value for MSLOT
		STA	|MSlot
		LDA	#4	; set command retry counter
		STA	>CmdRetry
		PHP		; save entry flag
		PHB		; save last data bank
		LDA	#00	;force caller to call from bank 00
		PHA
		PLB
		LDA	|cyareg	; get callers mode
		PHA		; and save it
		STA	>CyaSave	; save it here !!!
		AND	#%11111011	; Fast Mode & disable slot 6 motor detect 
		ORA	#%10000000
		STA	|cyareg
		LDA	3,s	; get entry flag
		LSR	a	; restore entry flag
		JSL	>SPdriver+6	; off to bank $FF thru jmp table
		EJECT
*
* Returns here from bank $FF when done.
*
		XBA		; save error code
		PLA		; restore system speed
		LDA	>CyaSave
		STA	|cyareg
		PHP		; save error flag
		SEC		; set emulation mode
		XCE
		PLP		; restore error flag
		PLB		; restore last data bank
		PLA		; clean up stack (EntryFlag)
		XBA		; restore error code
		PHA		; save error code
		LDA	>ProFLAG	; return from boot?
		AND	#%01000000
		BNE	bootcheck	; yes
		PLA		; restore error info
		RTS
*
*
* Do this code if the boot can't be done.
*  If this was an autoboot (loc=$CN00), continue the slot scan.
*  If not, drop into basic after issuing appropriate message
*
*
BOOTCHECK		EQU	*
		LDA	#00
		PHA
		PLB		;force bank 00 just in case
		LDA	#%00001000
		STA	|shadow	; video shadowing in except SuperHires
		PLA		; restore error info
		BCS	bootfail
		JMP	|$0801	; and away we go!
BOOTFAIL		EQU	*
		LDX	loc0
		BNE	noauto	; if from PR#s
		LDA	loc1
		CMP	|MSlot
		BNE	noauto	; if from PR#s
		JMP	autoscan	; continue slot scan
NOAUTO		EQU	*
		JMP	Basic
*
C5BOOTM:		JSR	setvid	; set back the hooks
		JSR	setkbd
		JSR	text
		JSR	home
		LDA	#$0A
		STA	cv
		STZ	ch
		JSR	vtab
		RTL
*
PARMCTAB:
		DC.B	%00000011	;status:  3 parms/no data send
		DC.B	%00000011	;read:    3 parms/no data send
		DC.B	%10000011	;write:   3 parms/data send
		DC.B	%00000001	;format:  1 parm/no data send
		DC.B	%10000011	;control: 3 parms/data send
		DC.B	%00000001	;init:    1 parm/no data send
		DC.B	%00000001	;open:    1 parm/no data send
		DC.B	%00000001	;close:   1 parm/no data send
		DC.B	%00000100	;charRead:4 params/no data send
		DC.B	%10000100	;CharWr:  4 parms/data send
		DC.B	%10000011	;SetFmtOpts 3 p/data send 
		DC.B	%00000011	;GetFmtOpts 3 p/no data send
		DC.B	%10000100	;RawRead    4 p/   data send
*
*
* Shift tables for use when reading.  Each table should not
* straddle pages.
*
SHIFT1		DC.B	$80,$80,$80,$80,$80,$80,$80,$80
		DC.B	$00,$00,$00,$00,$00,$00,$00,$00
SHIFT2		DC.B	$80,$80,$80,$80,$00,$00,$00,$00
		DC.B	$80,$80,$80,$80,$00,$00,$00,$00
SHIFT3		DC.B	$80,$80,$00,$00,$80,$80,$00,$00
		DC.B	$80,$80,$00,$00,$80,$80,$00,$00
SHIFT4		DC.B	$80,$00,$80,$00,$80,$00,$80,$00
		DC.B	$80,$00,$80,$00,$80,$00,$80,$00
*
*
*
* This table, when sent in reverse order, profides a
*  sync pattern used to synchronize the drive IWM with
*  the data stream.  The first byte (last sent) is the
*  packet begin mark.
*
*
PREAMBLE		DC.B	PACKETBEG
SYNCTAB		DC.B	$FF,$FC,$F3,$CF,$3F
*
		DCB.B	13,0
*
		DC.B	PCID2
		DC.W	0	; Total Blocks (force stat call)
		DC.B	PDIDBYTE	; ProDOS ID byte
		DC.B	PRODOSENTRY	; Low byte of ProDOS entry pt
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSFirmware/SmartPort/C6XXcode.aii b/IIGS.601.SRC/GSFirmware/SmartPort/C6XXcode.aii
new file mode 100644
index 0000000..cee4aa6
--- /dev/null
+++ b/IIGS.601.SRC/GSFirmware/SmartPort/C6XXcode.aii
@@ -0,0 +1 @@
+		TITLE	'Disk ][ boot code'

;	This EdAsm/Asm816 source code file was converted to AsmIIGS
;	by EdAsmCvtIIGS version 1.2d7 on 5/16/91 at 1:22:32 PM

		LDX	#$20
		LDY	#$00
		STZ	$03
		STZ	$3C
		PHY		;direct register =$0000
		PHY
		PLD
		PHK
		PLB		;data bank register = $00
		LDA	#$C6	;in case of boot err
		STA	|mslot
		SEP	#$30
		PHP		; save interrupt environment
		PLA
		STA	|S6IntFlag
		SEI		; and disable irq for now
		JSL	>D2recal	;head to track 0
		LDX	#$60
		BCS	Fugit	;if can't detect media
EXTENT1		STZ	$03
		SEI		; in case they jump back in
RDADR		CLC
		PHP
RETRY1		PLP
RDDHDR		LDX	slotz	;restore x to $60
		DEC	$03	;update retry count
		BNE	rdhd0	;Branch if not out of retries 
FUGIT		LDA	|$C088,x	;shut off disk and quit!
		JSL	>D2BootErr
		JSR	RestoreIRQ	; restore irq state
		LDA	loc1	;boot from pr#?
		CMP	|mslot
		BNE	No6Auto	;yes
		JMP	AutoScan
NO6AUTO		JMP	Basic
GETREADY		EQU	*
		STZ	|Shadow
RESTOREIRQ	EQU	*
		LDA	|S6IntFlag	; get back IRQ state
		AND	#%00000100	; restore interrupt environment
		BNE	nod2irq0
		CLI
NOD2IRQ0		EQU	*
		LDA	$3D
		RTS
		DCB.B	$3,0	;Keep alignment if RDHD0 at $C656
RDHD0		PHP
RETRY0		DEY
		BNE	rdhd1
		BEQ	retry1
EXTENT		BRA	extent1
* * * * * * * * * * * * * * * * * * * * *
* The following code is sacred in it's  *
* present form.  To change it would     *
* cause volcanos to errupt, the ground  *
* to shake, and ProDOS not to boot!     *
* This code must reside at $C65E !!!    *
* * * * * * * * * * * * * * * * * * * * *
RDHD1		LDA	|$C08C,X
		BPL	RDHD1
ISMRK1		EOR	#$D5
		BNE	RETRY0
RDHD2		LDA	|$C08C,X
		BPL	RDHD2
		CMP	#$AA
		BNE	ISMRK1
		NOP		;
RDHD3		LDA	|$C08C,X
		BPL	RDHD3
		CMP	#$96
		BEQ	RDSECT
		PLP		;
		BCC	RDADR
		EOR	#$AD
		BEQ	RDATA
		BNE	RDADR
RDSECT		LDY	#$03
RDSEC1		STA	$40
RDSEC2		LDA	|$C08C,X
		BPL	RDSEC2
		ROL	A
		STA	BOOTTMP
RDSEC3		LDA	|$C08C,X
		BPL	RDSEC3
		AND	BOOTTMP
		DEY		;
		BNE	RDSEC1
		PLP		;
		CMP	$3D
		BNE	RDADR
		LDA	$40
		CMP	$41
BADRD1		BNE	RDADR
		BCS	RDDHDR
RDATA		LDY	#$56
RDAT0		STY	BOOTTMP
RDAT1		LDY	|$C08C,X
		BPL	RDAT1
		EOR	DNIBL-$80,Y
		LDY	BOOTTMP
		DEY		;
		STA	NBUF1,Y
		BNE	RDAT0
RDAT2		STY	BOOTTMP
RDAT3		LDY	|$C08C,X
		BPL	RDAT3
		EOR	DNIBL-$80,Y
		LDY	BOOTTMP
		STA	($26),Y
		INY		;
		BNE	RDAT2
RDAT4		LDY	|$C08C,X
		BPL	RDAT4
		EOR	DNIBL-$80,Y
BADREAD		BNE	BADRD1
		LDY	#$00
DENIBL		LDX	#$56
DENIB1		DEX		;
		BMI	DENIBL
		LDA	($26),Y
		LSR	NBUF1,X
		ROL	A
		LSR	NBUF1,X
		ROL	A
		STA	($26),Y
		INY		;
		BNE	DENIB1
* * * * * * * * * * * * * * * * *
* Code beyond this point is not *
* sacred... It may be perverted * 
* in any manner by any pervert. *
* * * * * * * * * * * * * * * * *
		INC	$27
		INC	$3D
		LDA	$3D
		CMP	$0800
		LDX	BootDev
		BCC	badread
		JSR	GetReady	; all video shadowing in
		JMP	$0801
		DCB.B	2,0	; fill all 256 bytes of the c6 page
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSFirmware/SmartPort/C6extnsn.aii b/IIGS.601.SRC/GSFirmware/SmartPort/C6extnsn.aii
new file mode 100644
index 0000000..6d18f2f
--- /dev/null
+++ b/IIGS.601.SRC/GSFirmware/SmartPort/C6extnsn.aii
@@ -0,0 +1 @@
+
;	This EdAsm/Asm816 source code file was converted to AsmIIGS
;	by EdAsmCvtIIGS version 1.2d7 on 5/16/91 at 1:23:13 PM

		TITLE	'Disk ][ boot code'
D2RECAL:		LDA	#$60
		TAX
		STX	slotz
		STA	bootdev
		LDA	|$C08E,x	; prepare IWM for read mode
		LDA	|$C08C,x
		LDA	|$C0EA,y	; select drive
		LDA	|$C089,x
		LDY	#$50
SEEKZERO		LDA	|$C080,x
		TYA
		AND	#$03
		ASL	a
		ORA	slotz
		TAX
		LDA	|$C081,x
		LDA	#$56
		PHP		; save interrupt state and disable
		SEI
		JSR	|wait
		PLP
		DEY
		BPL	seekzero
		STA	$26
		STA	$3D
		STA	$41
		CLC		;assume no error
		LDY	#50
DSKCHK0		LDA	|$C08C,x	;read data
		BMI	dskchk1	;if got data
		DEY		;else maybe timeout
		BPL	dskchk0	;maybe not
		SEC		;maybe so, oops, error
DSKCHK1		PHP
MAKTBL		LDX	#$03
		LDY	#0
TBLLOOP		STX	boottmp
		TXA
		ASL	a
		BIT	boottmp
		BEQ	nopatrn
		ORA	boottmp
		EOR	#$FF
		AND	#$7E
TBLLOOP2		BCS	nopatrn
		LSR	a
		BNE	tblloop2
		TYA
		STA	dnibl,x
		INY
NOPATRN		INX
		BPL	tblloop
		LDA	#$08
		STA	$27
		LDY	#$7F
		PLP
		RTL
		
D2BOOTERR:	LDA	#0
		STA	>retry
		JMP	|booterr

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSFirmware/SmartPort/SP.REV.HIST.aii b/IIGS.601.SRC/GSFirmware/SmartPort/SP.REV.HIST.aii
new file mode 100644
index 0000000..02674c8
--- /dev/null
+++ b/IIGS.601.SRC/GSFirmware/SmartPort/SP.REV.HIST.aii
@@ -0,0 +1 @@
+
;	This EdAsm/Asm816 source code file was converted to AsmIIGS
;	by EdAsmCvtIIGS version 1.2d7 on 5/16/91 at 1:20:3 PM

		TITLE	'Apple//GS - SmartPort'
*
*
*  SSS  M   M   A   RRRR  TTTTT PPPP   OOO  RRRR  TTTTT
* S   S M   M  A A  R   R   T   P   P O   O R   R   T
* S     MM MM A   A R   R   T   P   P O   O R   R   T
*  SSS  M M M AAAAA RRRR    T   PPPP  O   O RRRR    T
*     S M   M A   A R R     T   P     O   O R R     T
* S   S M   M A   A R  R    T   P     O   O R  R    T
*  SSS  M   M A   A R   R   T   P      OOO  R   R   T 
*
*





*
*        UniDisk 3.5 Driver Firmware    Version 1.0
*        AppleDisk3.5 Driver Firmware   Version 1.1
*        Ram Disk Driver Firmware       Version 1.0
*        Rom Disk Driver Firmware       Version 1.0
*
*     Written by Michael Askins   x6243   May 15, 1985
* Apple//GS Mods by Ray Montagne  x6255   Sep 16, 1985
* RevD Changes   by John O. Arkley X6893  August, 1988
*           Copyright Apple Computer, Inc. 1985-88
*                   All Rights Reserved
*
*
*
		EJECT
*****************************************************************
*                                                               *
*  Modification History:                                        *
*                                                               *
* Rel  Date       Who  Action                                   *
* ------------------------------------------------------------- *
* ***  18 Dec 84  MSA  RELEASE VERSION 0.02 (Sony)              *
*      10 Jan 85  MSA  Added //c support:                       *
*                        General conditional assembly overhead  *
*      16 Jan 85  MSA  Added retries and timeouts               *
*                      MSlot handled correctly                  *
*                      Finished Boot code                       *
*                      Altered ProDOS errors - add $27 catchall *
*      18 Jan 85  MSA  Remove call to WAIT in monitor           *
*                      Add Boot failure messages                *
*      22 Jan 85  MSA  Add IWM reconfigure for //c version      *
*      23 Jan 85  MSA  Move Comm routines to $C800 ($C900)      *
*                      Fixed zero page preservation             *
* ***  23 Jan 85  MSA  RELEASE VERSION 0.03 (Apple)             *
*      25 Jan 85  MSA  Swap slot dep read and boot code (//c)   *
*                      Add other //c differences...             *
*      30 Jan 85  MSA  Add auxtype byte                         *
*                      Fix comm error on receive packet         *
*                      Fix checksum to include MSBs of overhead *
*      07 Feb 85  MSA  Add COUT support on boot fail            *
* ***  08 Feb 85  MSA  RELEASE VERSION 1.00A (alpha)            *
*      22 Feb 85  MSA  Add bytecount in X,Y on PC calls         *
*                      Change hard reset time to 1 ms (was 83)  *
*                      Crunched code by adding ClrPhases        *
*                      Add zeroing of third block byte (ProDOS) *
*      06 Mar 85  MSA  Fixed slot 7 goof (stack screw up)       *
*                      No clear phases on retries               *
*                      Hard reset time to 40 ms                 *
*                      Pass #parms instead of unit# and no chk  *
*                      Init code (all reset vs. comm reset)     *
*                      Add 2 bytes to pass a full 9 byte cmd    *
*      16 Mar 85  MSA  Fix bytecount on retries                 *
*                      Boot block must be $800=$01, $801<>$00   *
*      17 Mar 85  MSA  Remove WRREQ while waiting for motor TO  *
*                      Remove glitch on /ENBL2 in AssignID      *
*      20 Mar 85  MSA  Add interrupt on/off/poll support        *
*                      Reset pulse to 80 ms                     *
*                      //c delay of 100 ms on initial AssignID  *
*                      ID bytes changed                         *
*                      Retransmit implemented (RecPack)         *
*                      Add send data packet retries (5)         *
*                      Rearrange PC stack adjust                *
*                      Add //c Appletalk vector                 *
*      24 Mar 85  MSA  Add //c millisecond wait each call       *
* ***  25 Mar 85  MSA  RELEASE VERSION 1.00B (beta) (//e)       *
*      18 Apr 85  MSA  Clear decimal mode                       *
*                      Eight bytes are returned on stat unit#0  *
*                      Stat Unit#0 scode<>0 is rejected         *
*                      X and Y set to 0008 on status unit#0     *
*                      Enable interrupts done correctly         *
*                      Add unit#0 parameter count checking      *
* ***  22 Apr 85  MSA  RELEASE VERSION 1.01B                    *
* ***  15 May 85  MSA  RELEASE VERSION 1.0                      *
*      22 Jul 85  MSA  Add Phoenix Motor off patch to //e ver   *
*                                                               *
* ***  16 Sep 85  RBM  Initial Cortland Modifications           *
*                                                               *
* ***  15 Dec 85  RBM  Re-ORG for new rom, and ram              *
*                                                               *
* ***  26 Dec 85  RBM  Delete C500 messages, move tables to     *
*                      C500 space, DSony.Entry at $4600         *
*                                                               * 
* ***  23 Jan 86  RBM  Implemented final PC extension.          *
*                                                               *
* ***  18 Mar 86  RBM  QC-10 fix, Ram/RomDisk parameters.       *
*                                                               *
* ***  26 MAR 86  RBM  BETA 1.0                                 *
*                                                               *
* ***   1 APR 86  RBM  Fixed RAMDISK boot problem.              *
*                                                               *
* ***   2 APR 86  RBM  Fixed PR#5 boot problem when no disk     *
*                      in device.                               *
*                                                               *
* ---   8 Oct 86  RBM  Reduction of code space in $C5XX.        *
*                      Fixed PR#5 boot problem with regart to   *
*                      INTCXROM.  Fixed RESET so that only slot *
*                      6 motor-on speed detect is disabled.     *
*                                                               *
*  01  18 Dec 86  RBM  Fixed parameter organization so that the *
*                      Read & Write (MAC BLOCK) calls work for  *
*                      more than just block $000000.            *
*                                                               *
*  01  18 Dec 86  RBM  Fixed boot code for PR#5 or PR#6 to save *
*                      and restore the STATEREG (CXROM).        *
*                                                               *
*  01  18 Dec 86  RBM  IWM mode changes now only affect slot 6  *
*                      motor on detect.  Slot 4 or 7 motor on   *
*                      will no longer cause packet comm. errors *
*                                                               *
*  01  24 Jan 87  RBM  C500 space to set D=$00 to fix disk      *
*                      copy protection schemes. (they broke     *
*                      the rules, not us)                       *
*****************************************************************
*  03     Aug 88  JOA  Moved zeropage save and interrup off     *
*                      code before zero page used to extract    *
*                      SmartPort command byte and parmlist ptr  *
*                                                               *
*  03     Sep 88  JOA  Fixed the increment of bank byte bug for *
*                      Control list pointer after extracting    *
*                      control list length word.                *
*                                                               *
*  03     Sep 88  JOA  Changed C5xx reference to ENTRY so it    *
*                      enters via a jmp in vector table at the  *
*                      beginning of SmartPort code so code body *
*                      can be re-assembled without $C5xx chan'g *
*                                                               *
*  03     Sep 88  JOA  Removed AppleDisk3.5 drivers use of the  *
*                      SmartPort SetMode routine and its vector *
*                      A3.5 driver has its own mode set routine *
*                      which is expected to expand for SWIMchip *
*                                                               *
*  03     Oct 88  JOA  Added Test&ResetFlag call to SmartPort   *
*                      to support GS/OS's need to disallow back *
*                      door access thru Slot 5 firmware. A word *
*                      is maintained for devs 0,1..14,&up       *
*                                                               *
*  03     Nov 88  JOA  Fixed ProDOS Status call error translate *
*                      so Offline error ($2F) is higher priority*
*                      than NoWrite error ($2B); This 'bug' was *
*                      inherited from Rev 01 code.              *
*                                                               *
*  03     Nov 88  JOA  Removed code from RamDisk interface that *
*                      replaced all RamDisk error codes with    *
*                      I/O ERROR ($27)                          *
*                                                               *
*  03     Nov 88  JOA  Added code to call the new Slot Arbiter  *
*                      to switch slot 6 in/out.                 *
*                      Also changed OpenWndw to use slot Arbiter*
*                                                               *
*  03    July 89  JOA  Added BRA in rom disk dispatcher so that *
*                      init call will dispatch to the ROM_DISK. *
*                                                               *
*  04    May 1991 JOA  Converted to MPW 3.2 and AsmIIGS         *
*****************************************************************
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSFirmware/SmartPort/SmartPort.aii b/IIGS.601.SRC/GSFirmware/SmartPort/SmartPort.aii
new file mode 100644
index 0000000..e9804ad
--- /dev/null
+++ b/IIGS.601.SRC/GSFirmware/SmartPort/SmartPort.aii
@@ -0,0 +1 @@
+		PRINT	NOGEN	

;	This EdAsm/Asm816 source code file was converted to AsmIIGS
;	by EdAsmCvtIIGS version 1.2d7 on 5/15/91 at 8:36:44 PM

		MACHINE	M65816
		LONGI	OFF
		LONGA	OFF
VERSION		EQU	$0002		;this is version # is not used anywhere
*
ROMDRIVER		EQU	$F00007		;linkage to expansion ROM driver
*
Bnk~Org		EQU	$5600
SPDRIVER		EQU	$FF0000+Bnk~Org	;will be $5600 for real Rom 03 
APPLEDISK		EQU	$FF3400		;will be $3C00 for real Rom 03 
SPENDING		EQU	Bnk~Org+$0E00	;will be $5600+$E00 for real Rom 03
*
		INCLUDE	'SP.REV.HIST.aii'
*
		INCLUDE	'::Firmware.macros.aii'
		INCLUDE	'equates.aii'
*
		SEG	'C5C6SEG'
C5XXCODE		PROC	ORG $C500
		WITH	SMART_ZPAGE
		ENTRY	C5BOOTM
		ENTRY	PARMCTAB
		ENTRY	PREAMBLE
		ENTRY	SHIFT1
		ENTRY	SHIFT2
		ENTRY	SHIFT3
		ENTRY	SHIFT4		
		INCLUDE	'C5XXcode.aii'
		ENDP
		
		SEG	'C5C6SEG'
C6XXCODE		PROC	ORG $C600
		WITH	SMART_ZPAGE
		IMPORT	D2RECAL
		IMPORT	D2BOOTERR
		INCLUDE	'C6XXcode.aii'
		ENDP
*
		SEG	'SPSEG'
SMARTPORT		PROC	ORG SPDRIVER	; Rev 01 ROM was ORGed at $6540
		WITH	SMART_ZPAGE
		ENTRY	D2RECAL
		ENTRY	D2BOOTERR
Rel~Org:	
		JMP	Reset		; PROCINIT called by coldstart monitor
		JMP	OpenWndw		;open the interrupt window for AppleDisk
		JMP	entry		;called from c5xxcode
		INCLUDE	'smartdrvr.aii'
*
		FillTo	SPENDING	;fill my alloted space
*
		ENDP
		
		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSFirmware/SmartPort/SmartPort.make b/IIGS.601.SRC/GSFirmware/SmartPort/SmartPort.make
new file mode 100644
index 0000000..611a73b
--- /dev/null
+++ b/IIGS.601.SRC/GSFirmware/SmartPort/SmartPort.make
@@ -0,0 +1 @@
+#   File:       SmartPort.make
#   Created:    June 13, 1991   by JOA
# 	Copyright Apple Computer, Inc. 1991
# 	All rights reserved.

SmartPort 	Ä	SmartPort.make			¶
				SmartPort.aii			¶
				::Firmware.macros.aii	¶
				SP.REV.HIST.aii			¶
				equates.aii				¶
				C5XXcode.aii			¶
				C6XXcode.aii			¶
				Smartdrvr.aii	
	AsmIIgs  {userAOptions} -h SmartPort.aii -wt -o SmartPort.obj
	LinkIIgs  SmartPort.obj -o SmartPort.rel
	MakeBinIIgs SmartPort.rel -o SmartPort
	dup SmartPort ::bin:C5xx.bin
	dup SmartPort.2 ::bin:SmartPort.bin
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSFirmware/SmartPort/equates.aii b/IIGS.601.SRC/GSFirmware/SmartPort/equates.aii
new file mode 100644
index 0000000..5ef4dbc
--- /dev/null
+++ b/IIGS.601.SRC/GSFirmware/SmartPort/equates.aii
@@ -0,0 +1 @@
+		TITLE	'Equates'

;	This EdAsm/Asm816 source code file was converted to AsmIIGS
;	by EdAsmCvtIIGS version 1.2d7 on 5/16/91 at 1:20:38 PM

PDIDBYTE		EQU	$BF	; ProDOS attributes byte
PCID2		EQU	$C0	; Extended & additional SmartPort cmds
THEOFF		EQU	$60	; slot * 16
***************************************************
*
*           Direct Page  (temps)
*
***************************************************

SMART_ZPAGE	RECORD	$40
*
CHECKSUM		DS.B	1
TOPBITS		DS.B	1
EXTBUFF		EQU	*	;extended buffer
		DS.B	3
CMDCODE		DS.B	1	;ProDOS parameter passing area
CMDPCOUNT		EQU	*
CMDUNIT		DS.B	1
CMDBUFFER		EQU	*
CMDBUFFERL	DS.B	1
EXTBLOCK		EQU	*	;extended block
CMDSCODE		EQU	*
CMDBUFFERH	DS.B	1
CMDBLOCK		EQU	*
CMDBLOCKL		DS.B	1
CMDBLOCKH		DS.B	1
CMDBLOCKS		DS.B	1
CMDSPARE1		DS.B	1
CMDSPARE2		DS.B	1
RCVBUF		EQU	*
GRP7CTR		DS.B	1
ODDBYTES		DS.B	1
STATBYTE		EQU	*
BYTECOUNT		EQU	*
BYTECOUNTL	EQU	*
NEXT		EQU	*
NEXT1		DS.B	1
AUXTYPE		EQU	*
BYTECOUNTH	EQU	*
NEXT2		DS.B	1
RPACKETTYPE	EQU	*
NEXT3		DS.B	1
DEVICEID		EQU	*
NEXT4		DS.B	1
HOSTID		EQU	*
NEXT5		DS.B	1
POINTER		EQU	*
NEXT6		DS.B	1
NEXT7		DS.B	1
BUFFER		DS.W	1
		DS.W	1
AUXPTR		EQU	*
BUFFER2		DS.W	1
		DS.W	1
TEMP		EQU	*
TBODD		DS.B	1
UNIT		DS.B	1	;Current target unit
WPACKETTYPE	DS.B	1	;Packet type

PLENGTH		EQU	RCVBUF-CMDCODE	;Max Parameter list length
EPLENGTH		EQU	PLENGTH+3		;max extended parm list length

*
*  NOTE: //gs Firmware Ref documents $40 thru $62 as saved for
*        ROM disk  and RAM disk drivers to use so the DS below
*        MUST be retained for all future versions of //gs SmartPort
		DS.B	$63-*	;saved zpg for drivers to use
ZPSIZE		EQU	*-SMART_ZPAGE
		ENDR
*
MSLOT		EQU	$07F8
*
CLEARIOROMS	EQU	$CFFF
STACK		EQU	$0100
		EJECT
********************************************************
*                                                      *
*                  Screenhole Storage                  *
*                                                      *
********************************************************
*
* The screenhole layout is as follows:
*
*            //e       //c      //gs       Rev D
*  -----------------------------------------------------
*  ProFlag  $478+n    $478     $E10FB0
*  Retry    $4F8+n    $4F8     $E10FB1
*  SHTemp1  $578+n    $578     $E10FB2
*  Retry2   $578+n    $578     $E10FB3
*  SHTempX  $5F8+n    $5F8     $E10FB4
*  SHTempY  $678+n    $678     $E10FB5
*  Power1   $6F8+n    ----     $E10FB6
*  Power2   $778+n    ----     $E10FB7
*  NumDevices $7F8+n  $6FE     $E10FB8
*  SvBcL    $6F8      $6F8     $E10FB9
*  SvBcH    $778      $778     $E10FBA
*  MSlot    $7F8      $7F8     $0007F8
*  RamUnit  ----      ----     $E10FBC
*  RomUnit  ----      ----     $E10FBD
*  DumbUnit ----      ----     $E10FBE
*  SmartUnit ---      ----     $E10FBF
*  ReMap    ----      ----     $E10FC0
*                     thru     $E10FC3
*                                          $E10FC4
*  remap expansion space                   $E10FC5 
*  SavRomSel   ----    ----    $E10FC4     $E10FC6
*  IntEnbl     ----    ----    $E10FC5     $E10FC7
*  BramFlag    ----    ----    $E10FC6     $E10FC8
*  CmdRetry    ----    ----    $E10FC7     $E10FC9
*  CyaSave     ----    ----    $E10FC8     $E10FCA
*  AccessFlg   ----    ----     ------     $E10FCB.CC
*  spares      ----    ----    $E10FC9..F  $E10FCD..F


		EQUSECT	$E10FB0	;smart port scratch area
PROFLAG		EQUDS.B	1
;  ___ ___ ___ ___ ___ ___ ___ ___
; |   |   |   |   |   |   |   |   |
; | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 |  ProFLAG
; |___|___|___|___|___|___|___|___|
;   |   |___________________________ 1 = Boot
;   |_______________________________ 1 = ProDOS, 0 = MLI
;
RETRY		EQUDS.B	1
SHTEMP1		EQUDS.B	1
RETRY2		EQUDS.B	1
SHTEMPX		EQUDS.B	1
SHTEMPY		EQUDS.B	1
POWER1		EQUDS.B	1
POWER2		EQUDS.B	1
NUMDEVICES	EQUDS.B	1
*
SVBCL		EQUDS.B	1
SVBCH		EQUDS.B	1
ASSIGNFLG		EQUDS.B	1	;mode flag for AssigID
RAMUNIT		EQUDS.B	1
ROMUNIT		EQUDS.B	1
DUMBUNIT		EQUDS.B	1
SMARTUNIT		EQUDS.B	1
REMAP		EQUDS.L	1
		EQUDS.W	1	;for possible ReMap expansion
SAVROMSEL		EQUDS.B	1
SAVSLTARB		EQUDS.W	1	;save word for Slot Arb config word
INTENBL		EQUDS.B	1	;application interrupt enbl stat
BRAMFLAG		EQUDS.B	1	;last battery ram value
CMDRETRY		EQUDS.B	1	; Command retry counter
CYASAVE		EQUDS.B	1	; save cya reg state
ACCESSFLG		EQUDS.W	1
		EQUDS.B	1	;spare 

		EQUORG	$E114E2
SYSSAVRAM		EQUDS.B	$30
FWSAVRAM		EQUDS.B	$30
ENVSAV		EQUDS.B	8

		EQUORG	$E102C0
BRAMBUFFER	EQUDS.B	256
		ENDSECT
		
IWML6CLR		EQU	$E1C0EC
*
CV		EQU	$25
CH		EQU	$24
BOOTSCRN		EQU	$7DB

PRINTMSG		EQU	$C080	;for message display from bank$FF
VTAB		EQU	$FC22
VTABZ		EQU	$FC24	;A=Vtab
COUT		EQU	$FDED
SETVID		EQU	$FE93
SETKBD		EQU	$FE89
AUTOSCAN		EQU	$FABA
HOME		EQU	$FC58	;Home cursor & Clear screen
TEXT		EQU	$FB39	;Set Text mode
BASIC		EQU	$E000
LOC0		EQU	$0	;Boot parms
LOC1		EQU	$1	;
BANK00		EQU	$000000
BANK1		EQU	$010000
BANKE1		EQU	$E10000
BANKFF		EQU	$FF0000
*
		EJECT
*************************
*                       *
*    General Equates    *
*                       *
*************************
*
PBBVALUE		EQU	$A5	;Powerup Byte Base Value
*
PWRUPRESET	EQU	$00	;real power on (1st time) Reset
COLDRESET		EQU	$40	;CTRL-Oapple-Reset or INIT cmd
COMMRESET		EQU	$80	;CBuss device only Reset
*
BSYTO1		EQU	50	;(.55 ms) T/O on /BSY before send
BSYTO2		EQU	10	;(.12 ms) T/O on /BSY after send
STATMTO		EQU	30	;30 bytes stat mark timeout
CMDLENGTH		EQU	9	;Command packet length
PACKETBEG		EQU	$C3	;Mark at beginning of packet
PACKETEND		EQU	$C8	;End of packet mark
CMDMARK		EQU	$80	;Command packet identifier
STATMARK		EQU	$81	;Status Packet identifier
DATAMARK		EQU	$82	;Data Packet identifier
*
IWMMODE		EQU	$07	;No timer, asynch, latch
*
SCDEVICESTAT	EQU	0	;Get Device Specific Status
SCGETDCB		EQU	1	;Get Dev Ctrl Block (modebits)
SCRETNLSTAT	EQU	2	;Return Newline Status 
SCGETDEVINFO	EQU	3	;Get Device Info Block
DISKREG		EQU	$C031
CYAREG		EQU	$C036	

E1CYAREG		EQU	CYAREG	; this re-equate WAS BOGUS AS HELL JOHN!!
;  ___ ___ ___ ___ ___ ___ ___ ___
; |   |   |   |   |   |   |   |   |
; | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 |   CYAREG
; |___|___|___|___|___|___|___|___|
;   |   |   |   |   |   |   |   |___ Slot 4 motor detect
;   |   |   |   |   |   |   |_______ Slot 5 motor detect
;   |   |   |   |   |   |___________ Slot 6 motor detect
;   |   |   |   |   |_______________ Slot 7 motor detect
;   |   |   |   |___________________ Shadow in all ram
;   |   |___|_______________________ 0
;   |_______________________________ System Speed (1=fast)
*
SLTROMSEL		EQU	$C02D
;  ___ ___ ___ ___ ___ ___ ___ ___
; |   |   |   |   |   |   |   |   |
; | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 |   SLTROMSEL
; |___|___|___|___|___|___|___|___|
;   |   |   |   |   |   |   |   |___ 0
;   |   |   |   |   |   |   |_______ 0 = Slot 1 internal
;   |   |   |   |   |   |___________ 0 = Slot 2 internal
;   |   |   |   |   |_______________ 0 = Slot 3 internal
;   |   |   |   |___________________ 0 = Slot 4 internal
;   |   |   |_______________________ 0 = Slot 5 internal
;   |   |___________________________ 0 = Slot 6 internal
;   |_______________________________ 0 = Slot 7 internal
;
		EJECT
STATEREG		EQU	$C068
;  ___ ___ ___ ___ ___ ___ ___ ___
; |   |   |   |   |   |   |   |   |
; | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 |   STATEREG
; |___|___|___|___|___|___|___|___|
;   |   |   |   |   |   |   |   |___ INTCXROM
;   |   |   |   |   |   |   |_______ ROMBANK
;   |   |   |   |   |   |___________ BANK2
;   |   |   |   |   |_______________ RDROM
;   |   |   |   |___________________ RAMWRT
;   |   |   |_______________________ RAMRD
;   |   |___________________________ PAGE2
;   |_______________________________ ALTZP
;
SHADOW		EQU	$C035
IWM		EQU	$C080
*
REQCLR		EQU	IWM+0
REQSET		EQU	IWM+1
CA1CLR		EQU	IWM+2
CA1SET		EQU	IWM+3
CA2CLR		EQU	IWM+4
CA2SET		EQU	IWM+5
LSTRBCLR		EQU	IWM+6
LSTRBSET		EQU	IWM+7
MONCLR		EQU	IWM+8
MONSET		EQU	IWM+9
ENABLE1		EQU	IWM+10
ENABLE2		EQU	IWM+11
L6CLR		EQU	IWM+12
L6SET		EQU	IWM+13
L7CLR		EQU	IWM+14
L7SET		EQU	IWM+15
*
*
* Error0 codes
*
NOANSWER		EQU	1
NOMARK		EQU	2
WASRESET		EQU	4
BYTECMP		EQU	8
CSUMERR		EQU	$10
NOPACKEND		EQU	$20
BUSHOG		EQU	$40
*
* Command Codes
*
STATUSCMD		EQU	$00
READCMD		EQU	$01
WRITECMD		EQU	$02
FORMATCMD		EQU	$03
CONTROLCMD	EQU	$04
INITCMD		EQU	$05
ADDNLCMDS		EQU	$0A
SETFMTCMD		EQU	$0A
GETFMTCMD		EQU	$0B
RAWRDCMD		EQU	$0C
TNRFLAGCMD	EQU	$0D
*
*
SOFT		EQU	%01000000	;The soft error bit in statbyte
*
BADCMD		EQU	$01
BADPCNT		EQU	$04
BUSERR		EQU	$06
BADUNIT		EQU	$11
NOINT		EQU	$1F
BADCTL		EQU	$21
BADCTLPARM	EQU	$22
IOERROR		EQU	$27
NODRIVE		EQU	$28
WRITEPROT		EQU	$2B
BADBLOCK		EQU	$2D
OFFLINE		EQU	$2F
LASTONE		EQU	SOFT+NODRIVE
SOFTERROR		EQU	SOFT+IOERROR
*
SVMASK1		EQU	$10
*
RC1		EQU	1000	;Send a command pack 1000 times (1 sec)
RC2		EQU	5	;Data Packs (sent/rcd) get tried only 5 times
*
*
CR		EQU	$8D
BOOTDISK		EQU	$04	;if boot from Disk
BOOTRAM		EQU	$01	;if boot from RamDisk
BOOTROM		EQU	$00	;if boot from RomDisk
CMDXFRDIR		EQU	$1EFC	; Command tranfer direction
INCRBUSY		EQU	$E10064	; Increment the Busy Flag
DECRBUSY		EQU	$E10068	; Decrement busy flag and dispatch
SLOT_ARBITER	EQU	$E10208	;slot arbiter call vector
RDFMTFLAG		EQU	$E1164A	;word flag =$0000/$FFFF
FORMSELECT	EQU	$00BF00	;RD format select flag

DNIBL		EQU	$356
NBUF1		EQU	$300
SLOTZ		EQU	$2B
BOOTTMP		EQU	$3C
BOOTDEV		EQU	$4F
S6INTFLAG		EQU	$07FE	; slot 6 interrupt flag
WAIT		EQU	$FCA8
*
SPCMDCNT		EQU	13	
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSFirmware/SmartPort/smartdrvr.aii b/IIGS.601.SRC/GSFirmware/SmartPort/smartdrvr.aii
new file mode 100644
index 0000000..9b76bb9
--- /dev/null
+++ b/IIGS.601.SRC/GSFirmware/SmartPort/smartdrvr.aii
@@ -0,0 +1 @@
+
;	This EdAsm/Asm816 source code file was converted to AsmIIGS
;	by EdAsmCvtIIGS version 1.2d7 on 5/16/91 at 1:23:13 PM

		TITLE	'Disk ][ boot code'
D2RECAL:		LDA	#$60
		TAX
		STX	slotz
		STA	bootdev
		LDA	|$C08E,x	; prepare IWM for read mode
		LDA	|$C08C,x
		LDA	|$C0EA,y	; select drive
		LDA	|$C089,x
		LDY	#$50
SEEKZERO		LDA	|$C080,x
		TYA
		AND	#$03
		ASL	a
		ORA	slotz
		TAX
		LDA	|$C081,x
		LDA	#$56
		PHP		; save interrupt state and disable
		SEI
		JSR	|wait
		PLP
		DEY
		BPL	seekzero
		STA	$26
		STA	$3D
		STA	$41
		CLC		;assume no error
		LDY	#50
DSKCHK0		LDA	|$C08C,x	;read data
		BMI	dskchk1	;if got data
		DEY		;else maybe timeout
		BPL	dskchk0	;maybe not
		SEC		;maybe so, oops, error
DSKCHK1		PHP
MAKTBL		LDX	#$03
		LDY	#0
TBLLOOP		STX	boottmp
		TXA
		ASL	a
		BIT	boottmp
		BEQ	nopatrn
		ORA	boottmp
		EOR	#$FF
		AND	#$7E
TBLLOOP2		BCS	nopatrn
		LSR	a
		BNE	tblloop2
		TYA
		STA	>dnibl,x
		INY
NOPATRN		INX
		BPL	tblloop
		LDA	#$08
		STA	$27
		LDY	#$7F
		PLP
		RTL
		
D2BOOTERR:	LDA	#0
		STA	>retry
		JMP	|booterr

		TITLE	'Send a CBus Packet'

;	This EdAsm/Asm816 source code file was converted to AsmIIGS
;	by EdAsmCvtIIGS version 1.2d7 on 5/16/91 at 1:23:51 PM

********************************************************
*                                                      *
*  SendOnePack                   Send a CBus Packet    *
*                                                      *
*    This routine sends a packet of data across the    *
*  bus.  The protocol is as follows:                   *
*              ____________________________            *
*  REQ _______|2                          5|_________  *
*          _______________________________             *
* /BSY ___|1               3             4|__________  *
*                                                      *
*    1)  Device signals ready for data                 *
*    2)  Host signals data iminent                     *
*    3)  Packet is transmitted (sync, command mark,    *
*         ids, contents, checksum [msb=1])             *
*    4)  Device signals packet recieved                *
*    5)  Host finishes send data cycle                 *
*                                                      *
*    The bytes are sent in slow mode (32 cycles/byte)  *
*  and the timing is critical.  Branches which should  *
*  not cross page boundaries are marked.               *
*                                                      *
*   Input:  buffer (2 bytes) <- ptr to data to send    *
*           bytecount (2)    <- length (bytes) of data *
*           packettype (1)   <- command or data packet *
*           CMDUnit (1)      <- # of device to receive *
*                                                      *
*   Output: carry set- handshake error                 * 
*                 clr- bytes sent                      *
*                                                      *
********************************************************
SENDONEPACK	EQU	*
*
* Prep for the transmission
		JSR	WritePrep	;Does a bunch of stuff
*
* Enable PC chain.
		LDX	#$60	;set X = slot * 16           
		LDY	#$07	;now set IWM mode before toggle
		JSR	SetIWMode	;                   
		JSR	SetBankE1	;set bank for I/O access
		LDA	|enable1,x	;disable Unified drive
		LDA	|monset,x
		LDA	|monclr,x
		JSR	enablechain	;This sets X reg
		JSR	SetBankE1	;set bank for I/O access
		LDA	|enable1,x	;smart port is drive 1 on Cortland
		LDA	|monset,x
*
* Loop until the chain becomes unbusy
		LDA	cyareg
		XBA
		LDA	cyareg
		AND	#$7F
		STA	cyareg	;slow down to 1Mhz for busy polling
		LDY	#bsyto1	;Timeout = .55 mSec
UBSY1		LDA	|l7clr,x	;Test if /BSY is hi or lo
		BMI	chainunbsy	;If hi, bus is not busy
		DEY
		BNE	ubsy1	;Keep trying
*
		XBA
		STA	cyareg	;restore speed
		XBA		;get a back
		SEC
		JMP	sd10
*
* Tell the bus that data is coming and send the sync bytes
*  Sync is groups of eight 2's separated by a 6 (micS cell)
*  (111111110011111111001111111100 ...)
*
CHAINUNBSY	EQU	*
		XBA
		STA	cyareg
*
		LDA	|reqset,x	;Raise REQ
		LDY	#5	;Sync plus packet begin
*
		LDA	#$FF	;Send out the 1st byte sync
		STA	|l7set,x
*
SSB		EQU	*
		LDA	preamble,y
SSD		EQU	*
		ASL	|l6clr,x	;Wait 'til buffer empty
		BCC	ssd
*
		STA	|l6set,x
		DEY
		BPL	ssb	;Back for more bytes
*
* Send over the desination ID
		LDA	Unit
		ORA	#$80	;Make the device ID
		JSR	sendbyte
*
* Send the source ID (that's us... we're an $80)
		JSR	send80
*
* Send over the packet type (command or data)
		LDA	Wpackettype
		JSR	sendbyte
*
* Send the Auxilliary Type byte (an $80 from this rev PC)
		JSR	Send80
*
* Send the status byte (null for us), and length bytes
		JSR	send80
		LDA	oddbytes
		ORA	#$80
		JSR	sendbyte
		LDA	grp7ctr
		ORA	#$80
		JSR	sendbyte
*
* Now send the "oddbytes" part of the packet contents
		LDA	oddbytes	;Get # of "odd" bytes
		BEQ	sob2	;Skip if no odd bytes
*
		LDY	#$FF
		LDA	tbodd	;Get the odd bytes msb's (A[7]=1)
*
SOB1		EQU	*
		JSR	WritIWM	;When it's time, write it
		INY
		LDA	[buffer],y	;Get the data byte
		ORA	#$80	;Flip on the hi bit
		CPY	oddbytes	;Are we done?
		BLT	sob1
*
* Now send over the groups of seven contents
* Currently assume there must be at least one group of 'em
SOB2		EQU	*
		LDA	grp7ctr	;Check if there are groups to send
		BNE	sob3	;=> At least one group
		JMP	datdone	;Skip to send checksum
*
SOB3		EQU	*
		LDY	#0
START		LDA	topbits
		JSR	WritIWM	;When it's time, write it
*
* Send first byte
		LDA	next1
		ORA	#$80
		JSR	WritIWM	;When it's time, write it
*
* Prep the next "1st" byte for next time
		LDA	[buffer2],y
		STA	next1
		ASL	a
		ROL	topbits	;Store the top bit
		INY		;Next byte
*
* It's possible that we're at a page boundary now. If so, bump the
*  hi order part of the pointer.
		BNE	skip1
		INC	buffer2+1
		BRA	skip2
SKIP1		PHA		;Equalize the cases
		PLA
*
* Push us ahead by an additional 8 cycles for margin reasons
*  Plus I gotta get the topbits MSB set somehow...
SKIP2		EQU	*
		LDA	#%00000010	;Flip what will be MSB
		ORA	topbits
		STA	topbits
*
* Send the second byte
		LDA	next2
		ORA	#$80
		JSR	WritIWM	;When it's time, write it
		LDA	[buffer2],y
		STA	next2
		ASL	a
		ROL	topbits	;Store the top bit
		INY		;Next byte
*
* Send the third byte
		LDA	next3
		ORA	#$80
		JSR	WritIWM	;When it's time, write it
		LDA	[buffer2],y
		STA	next3
		ASL	a
		ROL	topbits	;Store the top bit
		INY		;Next byte
*
* Send the fourth byte
*
		LDA	next4
		ORA	#$80
		JSR	WritIWM	;When it's time, write it
		LDA	[buffer2],y
		STA	next4
		ASL	a
		ROL	topbits	;Store the top bit
		INY		;Next byte
*
* After the first 256 bytes, we will cross pages here.  If we did
*  cross, bump the buffer pointer. If not, equalize the cases with 
*  seven cycles of time wasting.
		BNE	skip3
		INC	buffer2+1
		BRA	skip4
SKIP3		PHA
		PLA
SKIP4		EQU	*
*
* Send the fifth byte
		LDA	next5
		ORA	#$80
		JSR	WritIWM	;When it's time, write it
		LDA	[buffer2],y
		STA	next5
		ASL	a
		ROL	topbits	;Store the top bit
		INY		;Next byte
*
* Send the sixth byte
		LDA	next6
		ORA	#$80
		JSR	WritIWM	;When it's time, write it
		LDA	[buffer2],y
		STA	next6
		ASL	a
		ROL	topbits	;Store the top bit
		INY		;Next byte
*
* Send the last byte of the group
		LDA	next7
		ORA	#$80
		JSR	WritIWM	;When it's time, write it
		LDA	[buffer2],y
		STA	next7
		ASL	a
		ROL	topbits	;Store the top bit
		INY		;Next byte
*
* Now see if we have sent enough groups of seven
		DEC	grp7ctr
		BEQ	datdone
*
* Otherwise, back to do more.  Note it's too far for a branch.
		JMP	start
*
* Whew! Now send the damn checksum as two FM bytes
DATDONE		EQU	*
		LDA	checksum	;c7 c6 c5 c4 c3 c2 c1 c0
		ORA	#$AA	; 1 c6  1 c4  1 c2  1 c0
		JSR	WritIWM	;When it's time, write it
*
		LDA	checksum	;c7 c6 c5 c4 c3 c2 c1 c0
		LSR	a	; 0 c7 c6 c5 c4 c3 c2 c1
		ORA	#$AA	; 1 c7  1 c5  1 c3  1 c1
		JSR	sendbyte
*
* Send the end of packet mark
		LDA	#packetend
		JSR	sendbyte
*
* Wait until write underflow
SD7		EQU	*
		LDA	|l6clr,x
		AND	#$40
		BNE	sd7	;Still writing data
*
		STA	|l6set,x	;Back to sense mode (dummy write)
*
* Now wait until the drive acknowledges reciept of the
*  string or until timeout
		LDY	#bsyto2	;Load timeout for bsy low (100uS)
		LDA	cyareg
		XBA
		LDA	cyareg
		AND	#$7F
		STA	cyareg	;shift down to 1mhz for polling
@10		DEY		;A little closer to an error 
		BEQ	sd9	;Oops it didn't happen
*
* See if drive has acknowledged the bytes yet
		LDA	|l7clr,x	;Wait 'til /BSY lo 
		BMI	@10
		XBA
		STA	cyareg	;restore original speed
		BRA	sd10
*
* Too much time has elapsed.  Drive didn't get string.
SD9		XBA
		STA	cyareg
		LDA	#noanswer	;Report error in comm error byte 
DBERROR		EQU	*
		LDX	#$60	;For dberror entry
		SEC		;Signal a problem 
		BRA	sd11
*
* Finish the sequence
SD10		CLC		;This is a normal exit 
SD11		LDA	|reqclr,x	;Set REQ lo
		LDA	|l6clr,x	;Back into read mode
*
* Pull back the bytecount in all cases
		PHK		;data bank to $FF
		PLB
		RTS
		EJECT
*
* These routines are for wasting specific amounts of time
*  This code segment should not cross page boundaries.
*
WASTE32		JSR	waste14
WASTE18		NOP
WASTE16		NOP
WASTE14		NOP
WASTE12		RTS
*
MARKERR		EQU	*
		JMP	dberror
*
WritIWM		EQU	*
		BIT	|l6clr,x	;do write handshake
		BPL	WritIWM	;if not ready
		STA	|l6set,x	;else time to write
		RTS
		TITLE	'Receive a CBus Packet'

;	This EdAsm/Asm816 source code file was converted to AsmIIGS
;	by EdAsmCvtIIGS version 1.2d7 on 5/16/91 at 1:24:23 PM

********************************************************
*                                                      *
*  ReceivePack       Get a packet from bus resident    *
*                                                      *
*              ____________________________            *
*  REQ _______|2                          5|_________  *
*          _______________________________             *
* /BSY ___|1               3             4|__________  *
*                                                      *
*    1)  Drive signals ready to send packet            *
*    2)  Host signals ready to recieve data            *
*    3)  Packet is transmitted (sync, mark, IDs, data, *
*         checksum [msb=1])                            *
*    4)  Drive signals packet dispatched               *
*    5)  Host acknowledges reciept of packet           *
*                                                      *
*    The bytes are sent in slow mode (32 cycles/byte)  *
*  and the timing is critical.  Branches which should  *
*  not cross page boundaries are marked.               *
*                                                      *
*   Input:  buffer <- address where packet guts left   *
*                                                      *
*   Output: carry set- handshake error                 * 
*                 clr- bytes recieved                  *
*           A <- error0 if carry set                   *
*                                                      *
********************************************************
*
GRABSTATUS	EQU	*
RECEIVEPACK	EQU	*
*
* Init the checksum
*
		LDA	#$00
		STA	checksum
*
* Copy over buffer -> buffer2
*
		LDA	buffer
		STA	buffer2
		LDA	buffer+1
		STA	buffer2+1
		LDA	buffer+2
		STA	buffer2+2
*
*
		JSR	enablechain	;Set X register to $N0
*
		JSR	SetBankE1	;data bank to $E1
		LDA	|l6set,x	;Prep for sense mode 
*
* Now wait for BSY to go hi, signalling 'ready w/ status' 
*
RDH0		LDA	|l7clr,x	;Read sense
		BMI	rdh1	;No window if packet coming
		JSR	OpenWndw	;open the interrupt window
		LDX	#$60
		BRA	rdh0	;then see if packet is coming
*
* Signal Liron we're ready to recieve
*
RDH1		EQU	*
		LDA	|reqset,x	;Raise /REQ 
		LDY	#$00	;max left til stat mark
*
* Wait for a byte from Liron or timeout 
*
RDH2		EQU	*
		LDA	>IWMl6clr	;wait for valid IWM data, and read it
		DEY
		BEQ	markerr	;Didn't find a packet in time
*
* Is it the beginning of the packet?
*
RDH21		EQU	*
		CMP	#packetbeg	;Find the packet begin mark
		BNE	rdh2	;Back again - no timeout for now
*
* Okay load up the table with this stuff
*
RDH5		EQU	*
*
		LDY	#6	;Seven bytes of overhead
RDH3		EQU	*
		JSR	RdIWM	;wait for valid IWM data, and read it
		AND	#%01111111	;Strip start bit
		PEA	|$0000	;data bank to $00
		PLB
		PLB
		STA	|rcvbuf,y
		EOR	#$80	;Pop MSB back on for checksum
		EOR	checksum
		STA	checksum
		DEY
		BPL	rdh3
*
* Set groups of seven buffer pointer buffer2
*
		LDA	oddbytes
		BEQ	start25	;Skip alteration if no oddbytes
		CLC
		ADC	buffer
		STA	buffer2
		LDA	buffer+1
		ADC	#0
		STA	buffer2+1
*
		LDY	#0
*
* Now receive the odd bytes
*
		JSR	RdIWM	;wait for valid IWM data, and read it
		ASL	a	;Pop off the start bit
		STA	topbits
START1		EQU	*
		JSR	RdIWM	;wait for valid IWM data, and read it
		ASL	topbits	;Get an MSB
		BCS	gob1	;If MSB set, leave start bit
		EOR	#$80	;MSB clear- flip start bit
GOB1		STA	[buffer],y	;Squirrel it away
		EOR	checksum	;add it to the checksum
		STA	checksum
		INY		;Next spot
		CPY	oddbytes	;Are we done?
		BLT	start1	;If more, branch
*
*
SLOTDEPRD		EQU	*
START25		EQU	*
		LDY	#0
		LDA	grp7ctr
		PHA		;Save group counter for later
		BNE	start35
		JMP	done5	;Go get the checksum
*
* Okay, get the groups of seven
*  Start by getting the topbits for this group of seven
*
START35		EQU	*
		JSR	RdIWM	;wait for valid IWM data, and read it
		STA	temp	;Just a second
*
* Split up the seven bits into two indices for topbit tables
*
		LSR	a	;0   1  d1  d2  d3  d4  d5  d6
		LSR	a	;0   0   1  d1  d2  d3  d4  d5
		LSR	a	;0   0   0   1  d1  d2  d3  d4
		AND	#%00001111	;0   0   0   0  d1  d2  d3  d4
		TAX		;First index into the tables
		LDA	temp	;1  d1  d2  d3  d4  d5  d6  d7
		AND	#%00000111	;0   0   0   0   0  d5  d6  d7
		STA	temp	;Keep for last three bytes
*
* Now read the first byte, reunite its msb, store it, and checksum it.
*
		JSR	RdIWM	;wait for valid IWM data, and read it
		EOR	>shift1,x	;Recombine the MSB with data
		STA	[buffer2],y	;Store it away
		EOR	checksum	;Add it to the checksum
		STA	checksum
		INY
*
* Now, the second Y turn over occurs at this point in the loop.  Update
*  the buffer pointer if it occurred.
*
		BNE	*+4
		INC	buffer2+1
*
* Now the second byte
*
		JSR	RdIWM	;wait for valid IWM data, and read it
		EOR	>shift2,x	;Recombine the MSB with data
		STA	[buffer2],y	;Store it away
		EOR	checksum	;Add it to the checksum
		STA	checksum
		INY
*
* Now the third byte
*
		JSR	RdIWM	;wait for valid IWM data, and read it
		EOR	>shift3,x	;Recombine the MSB with data
		STA	[buffer2],y	;Store it away
		EOR	checksum	;Add it to the checksum
		STA	checksum
		INY
*
* Now the fourth byte
*
		JSR	RdIWM	;wait for valid IWM data, and read it
		EOR	>shift4,x	;Recombine the MSB with data
		STA	[buffer2],y	;Store it away
		EOR	checksum	;Add it to the checksum
		STA	checksum
		INY
*
* The first Y turn over occurs at this point in the loop.  Update
*  the buffer pointer if it occurred.
*
		BNE	*+4
		INC	buffer2+1
*
		LDX	temp	;Now we need the other index
*
* Now the fifth byte
*
		JSR	RdIWM	;wait for valid IWM data, and read it
		EOR	>shift2,x	;Recombine the MSB with data
		STA	[buffer2],y	;Store it away
		EOR	checksum	;Add it to the checksum
		STA	checksum
		INY
*
* Now the sixth byte
*
		JSR	RdIWM	;wait for valid IWM data, and read it
		EOR	>shift3,x	;Recombine the MSB with data
		STA	[buffer2],y	;Store it away
		EOR	checksum	;Add it to the checksum
		STA	checksum
		INY
*
* And, finally, the seventh byte
*
		JSR	RdIWM	;wait for valid IWM data, and read it
		EOR	>shift4,x	;Recombine the MSB with data
		STA	[buffer2],y	;Store it away
		EOR	checksum	;Add it to the checksum
		STA	checksum
		INY
*
* Now see if this is the last group of seven to receive
*
		DEC	grp7ctr
		BEQ	done5	;Go to get the checksum etc
		JMP	start35	;Another topbits ...
*
* Get and reconstruct the checksum
*
DONE5		EQU	*
		JSR	RdIWM	;wait for valid IWM data, and read it
		STA	temp	;1 c6 1 c4 1 c2 1 c0
*
		PLA		;Get back the groups of 7 ctr
		STA	grp7ctr
		JSR	RdIWM	;wait for valid IWM data, and read it
		SEC
		ROL	a	;c7 1 c5 1 c3 1 c1 1
		AND	temp	;c7 c6 c5 c4 c3 c2 c1 c0
		EOR	checksum	;When we're done, should be zero
		TAX		;save checksum
*
* Get the packet end mark. Is it correct?
*
		JSR	RdIWM	;wait for valid IWM data, and read it
*
		CMP	#packetend
		BNE	npenderr5
*
* Didn't have time before to checksum oddbytes.  Do it now
*  A still has the partial checksum
*
		TXA		;get back checksum
*
* Okay, checksum oughta be zero.  If not, checksum error.
*
ICBT15		EQU	*
		TAX
		BNE	cserror5
*
* Wait for /BSY to go low
*
LSTBSYWAIT5	EQU	*
		JSR	SetBankE1
		LDA	|l6set+TheOff
RDH45		LDA	|l7clr+TheOff
		BMI	rdh45
*
* Got the bytes, now acknowledge their reciept
*
		LDA	|reqclr+TheOff	;Lower REQ 
*
		CLC
RDHBYE		PHK		;data bank to $FF
		PLB
		RTS
*
NPENDERR5		LDA	#nopackend
		BNE	gserror5
CSERROR5		LDA	#csumerr
GSERROR5		EQU	*
		SEC
		BRA	rdhbye
*
* This routine reads the data from the
* IWM, and returns the data in the A-Reg
* with the data bank set to $FF.
* Execution time = 25 cycles minimum or
* 8.75uS (assuming 350nS/Cycle).
*
RDIWM		EQU	*
		PEA	|$FFE1
		PLB		;set bank $E1
		LDA	|l6clr+TheOff
		BPL	*-3
		PLB		;set bank $FF
		RTS
*
*
* Open Interrupt Window
* NOTE: this takes about 800uS
*
OPENWNDW		EQU	*
		LDA	|IntEnbl	;get entry interrupt enbl stat
		AND	#%00000100	;check flag
		BNE	CloseWndw	;don't do if not needed
		JSR	SavFWzp	;Save ours and restore his to
		JSR	ResSysZp	;get ready to open IRQ window
		LDA	|CyaSave	; restore CYA for IRQ
		STA	|CyaReg
		CLI		;enable interrupts
		NOP		;WARNING-Liron gets sleepy if away to long
		SEI		;Close IRQ window
		LDA	|CyaReg	; save new CYA state
		STA	|CyaSave	; in case control panel changes speed
		AND	#%11111011	; fast mode & disable slot 6 motor detect
		ORA	#%10000000
		STA	|CyaReg
		SEP	#$30	;make sure in 8 bit mode
		JSR	SavSyszp	;save system before getting FW
		JSR	ResFwZp	;and restore firmware environment
CLOSEWNDW		EQU	*
		RTS
		TITLE	'More Packet Stuff'

;	This EdAsm/Asm816 source code file was converted to AsmIIGS
;	by EdAsmCvtIIGS version 1.2d7 on 5/16/91 at 1:24:55 PM

*
* Data bank must be $E1 before
* you get to here !!!
*
SEND80		EQU	*
		LDA	#$80
SENDBYTE		EQU	*
		LDY	|l6clr,x
		BPL	SendByte
		STA	|l6set,x
		EOR	checksum
		STA	checksum
		RTS
*
*
*
*
RESETCHAIN	EQU	*
		JSR	ClrPhases
		JSR	SetBankE1	;data bank to $E1
		LDA	|reqset,x
		LDA	|ca2set,x
		LDY	#80	;Hard reset for 80 ms
		JSR	YMSWait
*
		JSR	ClrPhases
		PHK		;data bank to $FF
		PLB
*
		LDY	#10	;About 10 mS reset time!
*
YMSWAIT		EQU	*
		JSR	OneMS
		DEY
		BNE	YMSWait
		RTS
*
ONEMS		EQU	*
		PHA
		LDA	>e1cyareg
		PHA
		AND	#$7F
		STA	>e1cyareg	;shift down to 1Mhz mode
*
		LDX	#100	;100*10cyc =977 us
@10		DEX		;(+2)
		NOP		;(+4)
		BNE	@15	;(+7)
@15		BNE	@10	;(+10)
*
		PLA
		STA	>e1cyareg	;shift back to original speed
		PLA
		RTS
*
* Drop ENBL1 first to deselect Unified
* and then enable UniDisk.
*
ENABLECHAIN	EQU	*
		LDX	#$60
		JSR	SetBankE1	;data bank to $E1
		LDA	|ca1set,x	;now enable UniDisk
		LDA	|lstrbset,x
		PHK		;data bank to $FF
		PLB
		RTS
*
*
CLRPHASES		EQU	*
		LDX	#$60
		JSR	SetBankE1	;data bank to $E1
		LDA	|reqclr,x
		LDA	|ca1clr,x
		LDA	|ca2clr,x
		LDA	|lstrbclr,x
		PHK		;data bank to $FF
		PLB
		RTS
*
*
		EJECT
*
SENDDATA		EQU	*
		LDA	#<RC2
		LDY	#>RC2
		JSR	SendPile
		BCC	sdoubt
COMRST		EQU	*
		LDA	#CommReset
		JSR	AssignID	;this restores Cbuss Unit #'s
SDOUBT		EQU	*
		RTS
*
*
SENDPACK		EQU	*
		JSR	SendPile	;Try to send a pack
		BCC	sdoubt
		JSR	ComRst	;Reset to try again
		PHK		; bank to FF or WRITEPREP fails
		PLB
*
		LDA	>SvBcL	;Get back the packetlength
		STA	bytecountl
		LDA	>SvBcH
		STA	bytecounth
*
SENDPILE		EQU	*
		LDA	#<RC1	;Retry count (big!) 3000
		LDY	#>RC1
*
ALTSENDPILE	EQU	*
		STA	>Retry
		TYA
		STA	>Retry2
*
* SendPack destroys the bytecount
*
SPILE1		EQU	*
		LDA	bytecountl
		STA	>SvBcL
		LDA	bytecounth
		STA	>SvBcH
*
		JSR	SendOnePack	;Send the packet
*
		LDA	>SvBcL
		STA	bytecountl
		LDA	>SvBcH
		STA	bytecounth
*
		BCC	spilout
		PHB		;save data bank
		JSR	SetBankE1	;data bank to $E1
		DEC	|retry
		BNE	spile2
		DEC	|retry2
		BPL	spile2
		PLB		;restore data bank
SPILOUT		RTS
SPILE2		PLB		;restore data bank
		BRA	spile1	;and retry
*
RECPACK		EQU	*
		LDA	#<RC2
		STA	>Retry
RPK1		EQU	*
		JSR	ReceivePack
		BCC	rpout
		LDY	#1
		JSR	YMSWait
		JSR	dberror	;Recycle handshake and set carry
		LDA	>retry
		DEC	a
		STA	>retry
		BNE	rpk1	;Carry set still
RPOUT		EQU	*
		RTS
*
*
		TITLE	'Divide by 7 routine'
************************************************************
*                                                          *
*  Divide7                Do DIV and MOD 7 and set auxptr  *
*                                                          *
*   This routine divides the bytecount by seven.  The      *
*  quotient gives the number of groups of seven bytes to   *
*  be sent, and the remainder gives the number of "odd"    *
*  bytes.                                                  *
*                                                          *
*  Input:   bytecountl,h <- # of bytes to write            *
*           buffer       <- pointer to data                *
*  Output:  auxptr       <- pointer to speed up csumming   *
*           oddbytes     <- bytecount MOD 7                *
*           grp7ctr      <- bytecount DIV 7                *
*                                                          *
************************************************************
*
*
PDIV7TAB		DC.B	0,36,73
PMOD7TAB		DC.B	0,4,1
DIV7TAB		DC.B	0,1,2,4,9,18
MOD7TAB		DC.B	0,1,2,4,1,2
*
AUXPTRINC		DC.B	0,$7F,$FF
*
WRITEPREP		EQU	*
DIVIDE7		EQU	*
*
* Set up auxptr <- buffer+$80   if $0FF < bytecount < $200
*     or auxptr <- buffer+$100  if $1FF < bytecount
*
		LDX	bytecounth	;0, 1 or 2
		BEQ	noauxptr	;Auxptr used only for full pages
*
		LDA	buffer+1
		STA	auxptr+1	;Copy over hi order part
*
		LDA	#$80	;Anticipate smaller bytecount
		CPX	#1	;Check bytecount
		BEQ	sap1	;=> $0FF < bytecount < $200
*
		INC	auxptr+1	;Add $100 to bytecount instead
		LDA	#0	;Make sure lo order unaltered
SAP1		CLC
		ADC	buffer
		STA	auxptr
		BCC	noauxptr
		INC	auxptr+1
*
* Now look up the first order guess for DIV and MOD.  X still has
*  bytecount DIV 256.
*
NOAUXPTR		EQU	*
		LDA	pdiv7tab,x
		STA	grp7ctr
		LDA	pmod7tab,x
		STA	oddbytes
*
* Now add in the mods and divs for each of the five hi order
*  bits in the lo order bytecount, correcting each time MOD becomes
*  bigger than 6.
*
		LDX	#5	;Do for five bits
		LDA	bytecountl
		STA	temp	;Store lo order for shifting
		AND	#%00000111	;Save lo three for later
		TAY
*
DIVIDE3		EQU	*
		ASL	temp	;C <- next from bytecountl
		BCC	divide2	;If clear, no effect on DIV,MOD
		LDA	mod7tab,x	;Get MOD7 for 2^n
DIVIDE4		EQU	*
		CLC
		ADC	oddbytes	;Got new MOD value
		CMP	#7	;Is it too big?
		BLT	divide1	;=> NO leave MOD - 0->C
		SBC	#7	;Bring MOD under 7 - C still set
DIVIDE1		EQU	*
		STA	oddbytes
		LDA	div7tab,x	;Get DIV for this 2^n
		ADC	grp7ctr	;Add to DIV along with correction (C)
		STA	grp7ctr	;Update the DIV
DIVIDE2		EQU	*
		DEX		;One less bit to deal with
		BMI	divide5	;Escape after 6 times through loop
		BNE	divide3	;Take brnch 1st 5 loops
*
		TYA		;Get back the last three bits
		JMP	divide4	;Sixth pass add in remains
*
DIVIDE5		EQU	*
*
*
		TITLE	'Checksum Prepass'
**************************************************************
*                                                            *
*  PreCheck                    Does the checksumming prepass *
*                                                            *
*   Input:   bytecount   <- bytes in buffer                  *
*            buffer      <- pointer to data to send          *
*            auxptr      <- extra pointer to speed process   *
*   Output:  checksum    <- 8 bit XOR of data to be sent     *
*                                                            *
**************************************************************
*
PRECHECK		EQU	*
*
* Checksum any full pages
*
		LDA	buffer+1
		PHA		;Preserve buffer pointer
		LDA	#0
		LDX	bytecounth
		BEQ	lastpass	;If no complete pages, skip this
XOR2		EQU	*
		LDY	|auxptrinc,x	;Get number of bytes each ptr
XOR1		EQU	*
		EOR	[buffer],y
		EOR	[auxptr],y
		DEY		;One less
		BNE	xor1
		EOR	[buffer],y
		EOR	[auxptr],y	;Have to deal with 0 case
*
* Now move the buffer up for next section
*
		CPX	#1
		BEQ	xor5	;If 256 and up bytes, bump x1
		INC	buffer+1	; otherwise x2
XOR5		INC	buffer+1
*
LASTPASS		EQU	*
*
* Do the remaining less than a page with a single pointer
*
		LDY	bytecount
		BEQ	xor4
		EOR	[buffer],y	;Compensate for nth byte
XOR3		EOR	[buffer],y
		DEY
		BNE	xor3
		EOR	[buffer],y	;Last damn (0th) byte
*
* Store result away.  Retrieve old buffer value.
*
XOR4		EQU	*
		STA	checksum
		PLA
		STA	buffer+1
*
*
		TITLE	'Get topbits byte for odds'
*******************************************************
*                                                     *
* DetTopBits               Get topbits for odd bytes  *
*                                                     *
*   Also sets buffer2 pointer to pointer at groups of *
*  seven bytes.                                       *
*                                                     *
*  Input:   oddbytes <- # of "odd" bytes              *
*           buffer   <- pointer to data               *
*  Output:  tbodd    <- topbits for odd bytes         *
*           buffer2  <- buffer+oddbytes               *
*                                                     *
*******************************************************
*
DETTOPBITS	EQU	*
*
		LDY	oddbytes
		DEY
		LDA	#0
		STA	tbodd
*
GTBOB		LDA	[buffer],y
		ASL	a
		ROR	tbodd
		DEY
		BPL	gtbob
		SEC
		ROR	tbodd
*
		LDA	oddbytes
		CLC
		ADC	buffer
		STA	buffer2
		LDA	buffer+1
		ADC	#0
		STA	buffer2+1
		LDA	buffer+2
		ADC	#0
		STA	buffer2+2
		LDA	buffer+3
		ADC	#0
		STA	buffer2+3
*
*
		TITLE	'Prime write pump'
**********************************************************
*                                                        *
*  Sun                   Set up next buffer and topbits  *
*                                                        *
*   Primes the pipe for the group of seven bytes routine *
*  setting the topbits byte and the "next" buffer.       *
*  The routine also advances the buffer pointer by 7 to  *
*  prepare for the groups of seven transfer.             *
*                                                        *
*    Input:   buffer2   <- points to groups of 7 data    *
*    Output:  next1,7   <- first 7 bytes in buffer       *
*             topbits   <- MSBs of first 7 bytes         *
*                                                        *
**********************************************************
*
SUN		EQU	*
*
* Copy first seven bytes into the pipeline
*
		JSR	setbank0	;data bank to $00
		LDY	#6
SUN2		SEC
		LDA	[buffer2],y
		STA	|next,y
		BMI	sun1
		CLC
SUN1		ROR	topbits
		DEY
		BPL	sun2
		PHK		;data bank to $FF
		PLB
		SEC
		ROR	topbits
*
* Advance the pointer
*
		LDA	buffer2
		CLC
		ADC	#7
		STA	buffer2
		BCC	sun3
		INC	buffer2+1
SUN3		EQU	*
		RTS
*
*
		TITLE	'Set the IWM mode reg'
*
* X is slot*16, Y is the desired mode
*
* Set up the IWM mode register.  Extreme care should be taken
*  here. Setting the mode byte with indexed stores causes a false
*  byte to be written a cycle before the real value is written.
*  This false value, if it enables the timer, causes the IWM Rev A to
*  pop the motor on, inhibiting the setting of the mode until the
*  motor times out! We avoid this by setting the mode byte only when
*  it is not what we want, and if it's not we stay here until we
*  see that it is what we want.
*
SETIWMODE		EQU	*
		JSR	SetBankE1	;data bank to $E1
		LDA	|monclr+$60	;Motor must be off
		LDA	|l6set+$60	;Set up to access mode register
		BRA	careful	;Don't mess unless we gotta
BIZ		TYA
		STA	|l7set+$60	;Try storing the mode value
CAREFUL		EQU	*
		TYA		;Get back the target value
		EOR	|l7clr+$60	;Compare with observed value
		AND	#$1F	;Can only read low 5 bits
		BNE	biz	;If not right, back to try again
		PHK		;data bank to $FF
		PLB
		RTS
*
*
WAITIWMOFF	EQU	*
*
* Make sure you're in read mode and wait 'til Disk // motor is off
*
		LDX	#$60	;Set X
		JSR	SetBankE1	;data bank to $E1
		LDA	|l7clr,x
		LDA	|l6set,x
WIWM1		EQU	*
		LDA	|l7clr,x
		AND	#%00100000
		BNE	wiwm1
		LDA	|l6clr,x
*
* Wait an additional 700 microseconds to allow 12V on Disk // to decay
*
		PHY
		LDY	#217
WIWM2		DEY
		BRA	*+2
		BRA	*+2
		BRA	*+2
		BNE	wiwm2
		PLY
*
		PHK		;data bank to $FF
		PLB
		RTS
*
*
* This takes grp7ctr and oddbytes and calculates 7*grp7ctr+oddbytes.
*  The results are in Y(hi) and A(lo).  This is the number of bytes
*  that were received in the last ReceivePack.
*
RCVCOUNT		EQU	*
		LDA	grp7ctr
		TAY
		LDX	#0
		STX	grp7ctr
		LDX	#3
TIMES7		ASL	a
		ROL	grp7ctr
		DEX
		BNE	times7
		CLC
		ADC	oddbytes
		BCC	t71
		INC	grp7ctr
T71		STY	oddbytes
		SEC
		SBC	oddbytes
		BCS	t72
		DEC	grp7ctr
T72		LDY	grp7ctr
		RTS
*
*
		TITLE	'SmartPort / SmartPort Bus Driver'

;	This EdAsm/Asm816 source code file was converted to AsmIIGS
;	by EdAsmCvtIIGS version 1.2d7 on 5/16/91 at 1:25:19 PM

***********************************
* SMART PORT ENTRY POINT
ENTRY		EQU	*
		PHK		;set data bank $FF
		PLB
		BCC	bentry	;If non-boot, skip jump to boot
		JMP	bootcode
*
* X is still set to slot number.
*
BENTRY		EQU	*
		CLD		;Don't want decimal mode!!
*
* We can't really tolerate interrupts in most of the code, so disable
		PHP		;Save interrupt status
		LDA	1,s
		STA	>IntEnbl
		SEI		;No interrupts please
*
* Preserve the zero page work area
*
		JSR	SavSysZP	;save zpg & set slot 5/6 internal
		PHK
		PLB		;restore to code bank
*
* If this is a SP call, then get the address of the parm table
* Stack looks like:
*      _____________________
*  + 9|___PCH-1_____________|--User Call
*  + 8|___PCL-1_____________|   ___ ___ ___ ___ ___ ___ ___ ___
*  + 7|___ENTRY___FLAG______|--|_7_|_6_|_5_|_4_|_3_|_2_|_1_|_0_|
*  + 6|___USER_DATA_BANK____|    |   |    
*  + 5|___USER_CYA_REG______|    |   |___ 1 = Boot
*  + 4|___PROGRAM_BANK______|    |_______ 1 = ProDOS, 0 = SmartPort
*  + 3|___PCH-1_____________|
*  + 2|___PCL-1_____________|
*  + 1|___Psw_______________|
* SP->|_____________________|
*
*
		STZ	buffer+2
		LDA	>ProFlag	;ProFLAG[7] 1=ProDOS, 0=SmartPort
		BMI	noplay	;if ProDOS call
*
		REP	#$30	;16 bit 'm' and 'x'
		LONGI	ON
		LONGA	ON
		LDA	8,s	;get command addr
		STA	>SHTempX	;save it
		STA	buffer	;get a pointer to retrieve cmd byte
		LDA	[buffer]	;get two bytes (cmd = upper)
		LDY	#0003
		AND	#$4000	;test for extended SmartPort cmd
		BEQ	@10	;its standard SP
		LDY	#0005	;its extended (I am so privileged)
@10		TYA
		CLC		;if nonextended, adjust by 3
		ADC	8,s	;adjust return address
		STA	8,s	;boy, was that ever wierd!!!
		SEP	#$30	;8 bit 'm' and 'x'
		LONGI	OFF
		LONGA	OFF
*
NOPLAY		EQU	*
*
* On the //GS, it is important to have the Disk // enable lines
* off for as long as possible before using the IWM (phases, /WRREQ
* lines).  Wait here 'til the Disk // motors are off.
*
		JSR	WaitIWMOff	;Must preserve Y!!
*
* Now test for a forced INIT from boot code
		LDA	>Power1
		EOR	#$FF
		CMP	>Power2
		BEQ	@05
		LDA	#ColdReset
		JSR	AssignID	;Reset Device assign before boot
*
* Now map any ProDOS unit references to our sequential ones.
* The method is bizzare and magicians never reveal their secrets.
*
@05		LDA	>ProFlag	;[7]=1 if ProDOS, 0 if SmartPort
		BPL	SP1	; If it is a SmartPort call.
		LDX	#5
@10		EQU	*
		LDA	ExtBuff,x	;move ProDOS parameters
		STA	CMDCode,x
		DEX
		BPL	@10
		STZ	CMDBlocks
		STZ	CMDSpare1
		STZ	CMDSpare2
		LDA	CMDUnit	;76543210 7&6 specify unit
		ROL	a	;6543210X C<-7
		PHP		;Save drive num
		ROL	a	;543210X7 C<-6
		ROL	a	;43210X76 (6 is grp of 2)
		PLP		;C<-7
		ROL	a	;3210X767
		AND	#%00000011	;ProDOS only installs up to 4
		EOR	#%00000010	;000000/67; 6 was /grpoftwo
		TAX
		INX
		STX	CMDUnit	;ProDOS unit now a SP unit
SKIPC1		BRL	skipcopy
*
* For SmartPort calls
* pull out the command code, and the address of the parameters.
SP1		EQU	*
		LDY	#1	; Stacked address is EA-1
		LDA	[buffer],y
		STA	cmdcode	; COMMAND after JSR to SP
		INY
		REP	#$30	; 16 bit 'm' and 'x'
		LDA	[buffer],y	; Get parmlist address
		TAX		; Save it
		SEP	#$20	; 8 bit 'm'
		BIT	CMDCode	; is it an extended call?
		BVC	NonExtPL	; no
		REP	#$20	; 16 bit 'm'
		INY
		INY
		LDA	[buffer],y	; Get hi part
		STA	buffer+2
NONEXTPL		STX	buffer
		SEP	#$30	; 8 bit 'm' and 'x'
*
* Now buffer points to parmlist
*  Check command type, and pidgeonhole the parmlist length
*
		LDA	CMDCode	;check if short list
		AND	#%10111111	;but mask extension
		TAX
ERRBADC		LDA	#BadCmd
		CPX	#SPcmdcnt	;Only valid codes are 0-D
		BLT	noeh	;=> at least he got that right
ERRORHITCH	JMP	Error	;Gee, maybe we should promote this guy...
NOEH		EQU	*
		LDY	#0	;Set for indct compare
		LDA	[buffer],y	;Get # of parms?
		STA	Unit
		INY
		LDA	[buffer],y	;get the unit #
		STA	CMDUnit
*
* Now copy the bytes
*
OKAYCNT		EQU	*
		REP	#$20	;16 bit 'm'
		LDA	CMDCode	;move command/unit until have parms
		STA	ExtBuff
		SEP	#$20	;8 bit 'm'
		LDX	#<EPlength-1	;stuff like an extended
		LDY	#<EPlength-1	;assume an extended
		BVS	copyloop	;hey, we assumed right!
		LDY	#<Plength-1	;Always copy the maximum
COPYLOOP		EQU	*
		LDA	[buffer],y	;Pull it out of their hat
		STA	ExtBuff,x	;Stuff it into mine
		DEX
		DEY
		CPY	#1	;but the unit # is already done
		BNE	copyloop	;Copy 'em all
		BVC	NoMash	;don't mash parm if nonext
		REP	#$30	;now restore list order
		LDX	ExtBuff	;get command/unit
		LDA	CMDCode-1	;get ext bufflow
		STA	ExtBuff	;set'em up right
		LDA	CMDCode
		STA	ExtBuff+1
		STX	CMDCode	;restore command/unit
		SEP	#$30	;8 bit 'm' and 'x'
NOMASH		EQU	*
		PHK		;data bank to $FF
		PLB
*
* Okay.  The caller of the SP could be making one of three calls
* with a unit number of $00, Control, Init or Status.  Check for these
* and do what is appropriate.
*
		LDA	CMDCode	;remove ext bit from cmdCode
		AND	#%10111111
		TAX		;and put it in x reg
		LDA	CMDUnit
		BEQ	@10	;it is unit zero
		CMP	#$7F	;max unit is $7E as per spec's
		BCS	@08
		CPX	#InitCmd	;INITcmd for non zero unit???
		BNE	skipc1
@08		BRL	BUnit
@10		BIT	CMDCode	; is it an extended command ?
		BVS	@20	; yes, then dont restructure
		JSR	NONtoEXT	; no, then restructure
*
* Check the parameter count for this call to unit#0
*
@20		EQU	*
		LDA	>parmctab,x	;Get the length this command
		AND	#$7F	;Force 0 -> MSB
		TAY		;Hang on
		LDA	#BadPCnt	;Antic bad count
		CPY	Unit	;User's pcount is currently here
		BNE	ErrorHitch	;What a baby!
*
* Now service one of the three commands
		CPX	#InitCMD
		BNE	notinit	;Not an Init call
		LDA	#ColdReset	;almost like pwrup
		JSR	AssignID	;Do a reset cycle
AOKAY		LDA	#0	;No error allowed
		JSR	SetBankE1	; data bank to E1 before exit
		BRL	sa2
*
ERRHITCH		EQU	*
		BRL	ErrorHitch
*
NOTINIT		TXA		;Equiv to 'cmp #StatusCMD'
		BNE	maybectrl
*
		LDA	#BadCtl	;Antic a non zero stat code
		LDX	CMDSCode	;Stat unit#0 can only be code=0
		BNE	ErrHitch
*
		TXA		;Equiv to 'lda #0'
		LDY	#7
NIN1		STA	[ExtBuff],y	;Clear some space
		DEY
		BNE	nin1
*
		LDA	>NumDevices
		STA	[ExtBuff],y	;Stick it where they want it
		INY
*
		LDA	#0	;No interrupts on //GS SmartPort
		STA	[ExtBuff],y	;Store SP interrupt status
*
		LDA	#8
		DEY		;A,Y has 0008; # bytes status
		JSR	squirrel
*
		BRA	Aokay	;Skip down (up) with no error
MAYBECTRL		EQU	*
		CMP	#ControlCMD
		BNE	BUnit	;Unit #0 was a bad one
*
		LDX	CMDSCode	;We allow two control calls for Unit#0
		BEQ	enabint	;0 means enable interrupts
		DEX
		BEQ	disabint	;1 means disable interrupts
		LDA	#badctl
ERRORHITCH2	EQU	*
		BNE	ErrHitch	;No other codes allowed
*
BUNIT		EQU	*
		LDA	#badUnit	;Only certain calls can have Unit#0
		BNE	ErrHitch	;Branch always
*
ENABINT		EQU	*
DISABINT		EQU	*
		LDA	#NoInt	;No interrupt support
		BNE	ErrHitch
*
* Okay, everything's all groovy.  ProDOS re-enters here.
*  Check Unit number to be sure there is a corresponding device
SKIPCOPY		EQU	*
		LDA	>NumDevices
		TAX
		LDA	#NoDrive	;Anticpate bad unit number
		CPX	CMDUnit
		BLT	ErrorHitch2	;Safe- If C clr then Z is clr
*
* Set buffer and bytecount in anticpation of the inevitable SendPack.
RESENDCMD		EQU	*
		LDA	#<cmdlength	;Command packets are 9 bytes long
		STA	bytecountl
		STZ	bytecounth
		LDA	#<cmdcode
		STA	buffer
		STZ	buffer+1
		STZ	buffer+2
		STZ	buffer+3
*
* If it's a SP call, omit the next two steps
		LDA	>ProFlag	;Is it a call from ProDOS?
		BPL	notstat	;=> Statcode already set...
*
* Need to generate a parameter count for a ProDOS call
		LDX	CMDCode
		LDA	>ParmCTab,x
		AND	#$7F
		STA	Unit
*
* If this is a ProDOS status call, set stat code to zero
		LDA	CMDCode	;get command
		BNE	notstat	;=> Not status so forget it
		STA	CMDSCode	;Store in command table
		STA	CMDSCode+1	;Store for RAM DISK/AppleDisk3.5
*
* Okay, finally direct command to proper driver
NOTSTAT		EQU	*
		LDA	Unit
		LDX	CmdPCount	;Swap the Parmcount & unit#
		STX	Unit
		STA	CMDPCount	;Now they're correct
		TXA
		CMP	#5	;remap if unit <= 4
		BGE	SmartBuss	;if not remap must be smartBuss
		DEX
		JSR	SetBankE1
		LDA	|ReMap,x	;remap unit #
		STA	Unit
		CMP	|SmartUnit	;dispatch to smartbuss driver?
		BGE	SmartBuss	;yes
		BIT	CMDCode	;extended command?
		BVS	NoRemap	;if it is, leave it alone
		JSR	NONtoEXT	; convert nonextended to extended
NOREMAP		EQU	*
		LDA	Unit
		CMP	|RamUnit	;dispatch to Ram Disk?
		BEQ	RamDsptch	;yes
		CMP	|RomUnit	;dispatch to Rom Disk?
		BEQ	RomDsptch	;yes
		JSR	StatSet	; special case prodos status
		JSR	|AppleDisk	; must be AppleDisk3.5
		STA	StatByte	;save away any error
		STX	|SHTempX	;save away xfer count
		STY	|SHTempY
DEXIT		JMP	SonyRet
RAMDSPTCH		EQU	*
		JSR	StatSet	; special case prodos status
		JSR	RamDisk	;off to the Ram Disk driver
RRET		LDA	statbyte+1
		STA	>SHTempX	; save away xfer count
		LDA	statbyte+2
		STA	>SHTempY
		BRA	DExit
ROMDSPTCH		EQU	*
		JSR	StatSet	; special case prodos status
		JSR	RomDisk	;off to the RomDisk driver
		BRA	RRet
SMARTBUSS		EQU	*
		LDA	CMDCode	;get extended
		AND	#%01000000
		ORA	#%10000000
		STA	WPacketType	;Packet type bit 6 is extended
*
		JSR	ClrPhases	;Bring all phases off for Quark
*
		JSR	SendPack
		BCS	behitch	;If not okay, skip to bus error
*
* Now copy over the buffer address for any data xfer.
		REP	#$20	;16 bit 'm'
		LDA	CMDBuffer	;assume non extended
		STA	buffer
		STZ	Buffer+2
		SEP	#$20	;8 bit 'm'
		BIT	CMDCode	;extended?
		BVC	BuffOK	;no
		REP	#$20	;16 bit 'm'
		LDA	ExtBuff	;set up extended buffer
		STA	Buffer
		SEP	#$20	;8 bit 'm'
		LDA	CMDBuffer
		XBA
		LDA	ExtBuff+2
		REP	#$20	;16 bit 'm'
		STA	Buffer+2
		SEP	#$20	;8 bit 'm'
BUFFOK		EQU	*
*
* Now for some commands, we have to send over a packet of data, too.
*  See if this command is one of THOSE.
		LDA	cmdcode
		AND	#%10111111	;truncate to non extended
		TAX
		LDA	|parmctab,x
		BPL	noxtrasend	;Encoded in top bit
*
* The buffer address and bytecount depend on the call type.
		CPX	#ControlCmd
		BNE	NOControl
*
* In the case of control, bytecount:=(buffer) then buffer:=buffer+2
		LDY	#1
		LDA	[buffer],y	;Get Hi order bytecount
		TAX
		DEY
		LDA	[buffer],y
		PHA		;Keep for later
		CLC
		LDA	#2
		ADC	buffer
		STA	buffer
		PLA		;Get back Lo order bytecount
		BCC	secondsend	;Skip hi ord increment
		REP	#$20	;'m' = 16 bits 
		INC	buffer+1	;adjust both bytes of pointer
		SEP	#$20	;'m' = 8 bits
		BRA	secondsend	;Skip to store bytecount
*
NOCONTROL		EQU	*
		CPX	#WriteCMD	;Check for a writeblock
		BNE	NOWBlock	;Must be control or write
*
* In the case of WriteBlock, the length is 512 and the buffer
*  address is at buffer in the command table
		LDA	#0
		LDX	#2
		BNE	secondsend
*
* For FileWrite, the buffer address is at CMDbuffer
*  and the length is at CMDblock.
NOWBLOCK		EQU	*
		LDX	CMDBlockh
		LDA	CMDBlockl
*
SECONDSEND	EQU	*
		STX	bytecounth
		STA	bytecountl
*
		LDA	#datamark
		STA	WPacketType	;Identify this as a data packet
*
		JSR	SendData
		BCC	noxtrasend
BEHITCH		EQU	*
		JSR	SetBankE1	;data bank to $E1
		LDA	#BusErr	;This is the bus error hitch
		BNE	Error
*
* On ProDOS status call, we've got to point the buffer pointer
*  correctly to zero page... it's the only case special case
*  (on Write, Format and Control no data comes back).
*
NOXTRASEND	EQU	*
		LDA	>ProFlag
		BPL	getresults
		LDA	cmdcode
		BNE	getresults
*
		LDA	#<CMDBufferh	;Want status in these four
		LDX	#>CMDBufferh
		STA	buffer
		STX	buffer+1
*
* Please to be calling ReceivePack
*
GETRESULTS	EQU	*
		JSR	RecPack	;Get status byte (maybe read data too)
		BCC	RxPack1	; if no error
		LDA	>CmdRetry	; retry command ?
		DEC	a
		STA	>CmdRetry
		BEQ	behitch	; no
		LDA	Unit	; have to swap back the
		LDX	CmdPCount	; Unit # and ParmCnt
		STX	Unit	; before resending the
		STA	CmdPCount	; command packet.
		BRL	ReSendCMD	; now go resend entire command
*
* Figure how many bytes were sent and put that in X,Y temps
*
RXPACK1		EQU	*
		JSR	Rcvcount	;Do the times 7...
		JSR	squirrel	;Store away count in SHTEMPs
*
* For the ProDOS status call, we've got to look at the status byte
*  returned and return a DIP error if appropriate.
*  Also overwrite the X,Y temps with # blocks if this is a ProDOS Stat call.
*
		JSR	SetBankE1	;data bank to $E1
SONYRET		EQU	*
		LDA	CMDCode	;Is it a ProDOS status call
		BNE	noerror
		LDA	|ProFlag
		BPL	noerror
*
		LDA	CMDBlockl	;This'll get loaded into the XY regs later
		STA	|SHTempX
		LDA	CMDBlockh
		STA	|SHTempY
*
		LDA	CMDBufferh	;Check status byte
		BIT	#%00010000	;is volume online?
		BNE	@10	;yes. go test write protect
		LDA	#Offline
		BRA	error
@10		EQU	*
		LSR	a
		LSR	a
		LSR	a
		LDA	#WriteProt
		BCS	error
*
*  Now it's time to think about returning to the caller
*  Remember that ProDOS doesn't want to know about soft errors,
*  only fatal ones.  If this is a ProDOS call, and the soft error
*  bit in the statbyte is set, there IS NO error (statbyte is cleared).
*  Also, ProDOS wants only I/O, Write Protect, No Device, Offline.
*  If any other hard error comes from the device on a ProDOS call,
*  map it to an I/O Error.  (Gross me out.)
*
NOERROR		EQU	*
		LDA	statbyte
ERROR		EQU	*
		JSR	SetBankE1	; data bank to $E1
		STA	|Retry	;Keep unadulterated error in shole
		TAX		;Set the Z flag
		BEQ	sa2	;Special case the zero
*
		PHA		;save error code
		LDA	|ProFlag	;ProFLAG[7]=Prodos Call
		ROL	a	;C<6 5 4 3 2 1 0 X
		PLA		;restore error code
		BCC	sa2	;If SP call, no mapping occurs
*
		LDX	#0	;Assume a soft error
		CMP	#%01000000	;Soft error check
		BGE	@80	;If $40 or bigger, map to zero
*
		LDX	#IOError	;Now anticipate ProDOS I/O error
		CMP	#WriteProt
		BEQ	sa2	;OK to return Write Protect
		CMP	#NoDrive
		BEQ	sa2	;OK to return Drive disconnected
		CMP	#OffLine
		BEQ	SA2
*
@80		EQU	*
		TXA		;Use the default value
SA2		EQU	*
		STA	|SHTemp1	;Keep in screenhole
		PHB
		JSR	RestoreIWM	;set for Disk][
*
* Now, restore our zero page area.
		JSR	ResSysZP	;restore zero page
*
* We're into the stretch!  Restore interrupt mask, load X, Y, and A
*  and set the carry if the error byte is non-zero.
		PLB
		PLP		;Restore interrupt flag
		LDA	|SHTempx	;Get X value
		TAX
		LDA	|SHTemp1	;Grab the error result code
		PHA
		LDA	|SHTempy	;Pull out the Y value
		TAY		;No more access to screenholes
		CLC		;Anticipate zero result code
		PLA		;Pull back result code
		BEQ	@99	;Return with carry clear
		SEC		;Some type of error
@99		EQU	*
		RTL		;return to $Cn space
		EJECT

;	This EdAsm/Asm816 source code file was converted to AsmIIGS
;	by EdAsmCvtIIGS version 1.2d7 on 5/16/91 at 1:26:51 PM

*
* This routine converts the parameter format in zero
* page from a non-extended format to an extended format.
*
* The remapping of parameters is command dependent. Commands
* 0 through 7 require different mapping than commands 8 & 9.
* Commands 0 through 7 are remapped as follows.....
*
*         $45 = CmdCode -----> $45 = CmdCode
*         $46 = ParmCnt -----> $46 = ParmCnt
*         $47 = >Buffer -----> $42 = >Buffer
*         $48 = <Buffer -----> $43 = <Buffer
*         $49 = >Block  -----> $48 = >Block
*         $4A = <Block  -----> $49 = <Block
*         $4B = ^Block  -----> $4A = ^Block
*                              $44 = 00
*                              $47 = 00
*                              $4B = 00
*                              $4C = 00
*                              $4D = 00
*
* Commands 8 through 9 are remapped as follows.....
*
*         $45 = CmdCode -----> $45 = CmdCode
*         $46 = ParmCnt -----> $46 = ParmCnt
*         $47 = >Buffer -----> $42 = >Buffer
*         $48 = <Buffer -----> $43 = <Buffer
*         $49 = >Count  -----> $48 = >Count
*         $4A = <Count  -----> $49 = <Count
*         $4B = >Addr   -----> $4A = >Addr 
*         $4C = <Addr   -----> $4B = <Addr
*         $4D = ^Addr   -----> $4C = ^Addr
*                              $44 = 00
*                              $47 = 00
*                              $4D = 00
*
NONTOEXT		EQU	*
		LDA	CmdCode	; is this a read or write call?
		CMP	#8
		BGE	MapExt	; yes, do 2nd remapping type.
		STZ	CmdSpare1	; zero out bytes 10 & 11 if not read or
		STZ	CmdSpare2	; write call
MAPEXT		EQU	*
		REP	#$20	;16 bit 'm'
		LONGA	ON
		LDA	CMDBuffer	; map non extended call to extended
		STA	ExtBuff
		LDA	CMDBlock
		STA	ExtBlock
		LDA	CMDBlocks
		STA	CMDBlockh
		LDA	CMDSpare1
		STA	CMDBlocks
		SEP	#$30
		LONGA	OFF
		STZ	CMDBuffer
		STZ	ExtBuff+2
		STZ	CMDSpare2
		RTS
		EJECT
*********************************************************************
*  For the Apple//GS, we need to reset the IWM to its
*  former disk // state.  This is done by setting the mode register
*  to a little known (and less documented) mode which speeds up the
*  internal motor timeout.  When the motor enable has timed out, the
*  mode can be set back to zero.  This method is necessary because
*  if the timer is enabled within the timeout period, the motor on a
*  Rev A IWM pops on for the full timeout period (since mode changes
*  are disabled when the motor is on.
**********************************************************************
RESTOREIWM	EQU	*
		JSR	SetBankE1	;data bank to $E1
		LDA	|monclr+$60	;Motor off
		BIT	|l6set+$60	;Into mode reg access mode
		LDA	#$2B	;This is the magic "speed up" value
		STA	|l7set+$60	;Throw into mode register
		LDY	#5	;wait 8 uSec minimum
		DEY
		BNE	*-1
WAITOFF		EQU	*
		LDA	|l7clr+$60	;Wait 'til motor off
		AND	#$20
		BNE	waitoff
		LDY	#0	;Now set the reg back to $00
		LDX	#$60	;IWM's in slot 6
		JSR	SetIWMode
		JSR	SetBankE1	;data bank to $E1
		LDA	|l6clr+$60
		LDA	|ca1clr+$60
		LDA	|lstrbclr+$60
		LDA	|MonClr+$60	;MSA Phoenix Mod 7/22/85
		PHK		;data bank to $FF
		PLB
		RTS

		TITLE	'ID Assignment Cycle'
****************************************************************
*
* Devices are assigned starting with unit #1
* in ascending order as follows:
*
*   INPUTS:   A = init code 
*                 $00 = pwron reset
*                 $40 = INIT cmd or Ctrl-Oapple-Reset
*                 $80 = Comm Reset (from Cbuss Driver)
*
*          RAM DISK
*          ROM DISK
*          AppleDisk 3.5
*          UniDisk 3.5
*
****************************************************************
ASSIGNID		EQU	*
		STA	>assignflg	;save assignID mode
*
* Save the command code, unit, and init code 'cause we'll trample 'em.
*
		LDA	CMDCode
		PHA
		LDA	CMDPCount
		PHA
		LDA	CMDSCode
		PHA
		LDA	Unit
		PHA
		LDA	>assignflg
		STA	CMDScode	;store away the type of INIT
*
* Set up to send DefID command packets
*
		LDX	#InitCmd
		STX	CMDCode
		STZ	Unit
		LDX	#2	;# parms in Init call
		STX	CMDPCount
		CMP	#$80	; is this a logical device init
		BLT	NotLDinit	;Logical Device init = $80
		LDA	>SmartUnit	; if it is, only init UniDisk3.5
		STA	Unit
		BRA	SmartTime
NOTLDINIT		EQU	*
		LDA	#0
		TAX
INITMAP		EQU	*
		STA	>RamUnit,x
		INX
		CPX	#4
		BNE	InitMap
INITMAP0		EQU	*	;init ReMap = 01 02 03 04
		TXA
		STA	>ReMap-1,x
		DEX
		BNE	InitMap0

*
* Install any RAM DISKs
*
		INC	Unit	; start with unit #1
		JSR	RamDisk	;init Ram Disk
		BCS	RomTime
		LDA	Unit
		STA	>RamUnit	;Set Ram Disk unit #
		INC	Unit

*
* Install any ROM DISKs
*
ROMTIME		EQU	*
		LDX	Unit	;x=unit, a=parm count
		LDA	#1
		JSR	RomDisk	;initialize Rom Disk
		BCS	DoDSony
		LDA	Unit
		STA	>RomUnit	;set Rom Disk unit #
		INC	Unit
*
* Install any Apple3.5 Disks
*
DODSONY		EQU	*
		LDA	#$FF
		STA	>power1	;force AppleDisk Configure 
		LDA	Unit	; get unit #
		STA	>DumbUnit
		BRA	@20
@10		EQU	*
		INC	Unit
@20		EQU	*
		LDX	unit	;save away unit #
		PHX
		JSR	|AppleDisk ;Try to init AppleDisk 3.5
		PLX		;restore unit #
		STX	unit
		BCC	@10	;and check for next AppleDisk 3.5
@30		EQU	*

*
* Assign ID's to any UniDisk 3.5 - SmartPort devices
*
SMARTTIME		EQU	*
 		LDA	#00
 		STA	>diskreg
 		JSR	resetchain	;Reset all of those things

		LDA	#<CMDCode
		STA	buffer
		STZ	buffer+1
		STZ	buffer+2
		LDA	CMDCode	;now build type
		AND	#%01000000
		ORA	#%10000000
		STA	WPacketType	;encode type with extended bit
*
		JSR	ClrPhases	;Make sure phases are off for Quark
*
* Send an ID for the next device in the chain
*
		LDA	Unit
		STA	SmartUnit
		BRA	MorDevices
MDEV0		EQU	*
		INC	Unit
MORDEVICES	EQU	*
		LDA	#<cmdlength
		STA	bytecountl	;ReceivePack scrambles count
		STZ	bytecounth
*
		JSR	SendOnePack	;Send the command
		BCC	mdev2	;If okay, skip to get response
*
		DEC	Unit
		JMP	mdev1
*
MDEV2		JSR	ReceivePack	;Get the response
		LDA	statbyte
		BEQ	mdev0
*
* Okay, we done last device.  Squirrel away the number of devices.
*
MDEV1		EQU	*
		JSR	SetBankE1	;data bank to $E1
		LDA	Unit
		STA	|NumDevices	;Devices out there
*
* Recover the scrambled ProDOS parms
*
		PLA
		STA	unit
		PLA
		STA	CMDSCode
		PLA
		STA	CMDPCount
		PLA
		STA	CMDCode
*
* Now set the powerup bytes so we'll never have to do this again.
*
		LDA	#PBBValue
		STA	|Power1
		EOR	#$FF
		STA	|Power2	;set the power up flags
		LDA	>assignflg
		BMI	DoneIt	;don't remap if it was a CommReset
		EJECT
***************************************************
*
* Now it's time to do any remapping based on the
* control panel selected boot device.
*
* 5 = disk
* 8 = Ram Disk
* 9 = Rom Disk
*
***************************************************
		LDX	#1	; prepare for no disk units
		LDA	|NumDevices	; is there really a disk drive?
		CMP	|DumbUnit
		BGE	GoMap	; yes
		STX	|DumbUnit	; fake it out
GOMAP		EQU	*
		LDA	|BramBuffer+$28	;get startup device
		STA	BramFlag	;and save in flag
		CMP	#8	;is it the Ram Disk ?
		BEQ	RRMap	;yes
		CMP	#9	;is it the Rom Disk ?
		BEQ	RRMap	;yes
		LDA	#1
		CMP	|RamUnit	;is ram disk current boot?
		BEQ	DiskMap	;yes
		CMP	|RomUnit	;is rom disk current boot
		BEQ	DiskMap	;yes
		RTS
RRMAP		TAX		;get 8 for RAM and 9 for ROM into X
		LDA	|RamUnit-8,x	;get RAMUnit or ROMUnit
		BRA	MapTime	;modify map (put zero if no device!)
DISKMAP		LDA	|DumbUnit	;get UniDisk 3.5 unit
*
* A Reg = Boot device unit #
*
MAPTIME		EQU	*
		STA	|ReMap	;Move new Boot unit to boot position
		TAX
		BEQ	DoneIt	; in case no RAM DISK/ROM DISK
		DEX		;now shift the map
		BEQ	DoneIt
DOMAP		TXA
		STA	|ReMap,x
		DEX
		BNE	DoMap
DONEIT		EQU	*
		RTS
*
*
SQUIRREL		EQU	*
		STA	>SHTempX
		TYA
		STA	>SHTempY
		RTS
******************************************
* Routines to set the Data Bank
******************************************
SETBANK0		PEA	|$0000
		BRA	SetBank
SETBANKE1		PEA	|$E1E1
SETBANK		PLB
		PLB
		RTS
		EJECT
*********************************************************
* Save System Zero Page
* 
* and Select Slot 6 internal
*
*********************************************************
SAVSYSZP		EQU	*
		PHB		;preserve data bank
		REP	#$30	;16 bit m/x
		LONGI	ON
		LONGA	ON
		LDA	#ZPsize-1	;bytes to move
		LDY	#SysSavRam
		LDX	#SMART_ZPAGE
		MVN	Bank00,BankE1
		LONGI	OFF
		LONGA	OFF
		SEP	#$30	;8 bit m/x
		JSR	SetBankE1
		LDA	|SltRomSel	;get slot configuration
		STA	|SavRomSel	;save it
		REP	#$30
		LONGI	ON
		LONGA	ON
		LDA	#0006
		JSL	Slot_Arbiter	;ask for slot 6
		STX	|SavSltArb	;save slot config 
		SEP	#$30
		LONGI	OFF
		LONGA	OFF
		LDA	|SavRomSel
		AND	#%10111111	;set slots 6 internal
		STA	|SltRomSel
@10		PLB
		RTS
*********************************************
* Restore Zero Page & Environment
*********************************************
RESSYSZP		EQU	*
		PHB		;preserve data bank
		REP	#$30	;16 bit m/x
		LONGI	ON
		LONGA	ON
		LDA	#ZPsize-1	;bytes to move
		LDX	#SysSavRam
		LDY	#SMART_ZPAGE
		MVN	BankE1,Bank00
;
		JSR	SetBankE1
		LDX	|SavSltArb	;get original slot config back
		LDA	#$0300
		JSL	Slot_Arbiter
		LONGI	OFF
		LONGA	OFF
		SEP	#$30	;8 bit m/x
		LDA	|SavRomSel	;restore Slot Rom Select
		STA	|SltRomSel
@10		PLB
		RTS
*******************************************************
* Save FW Zero Page
*******************************************************
SAVFWZP		EQU	*
		PHB		;preserve data bank
		REP	#$30	;16 bit m/x
		LONGI	ON
		LONGA	ON
		LDA	#ZPsize-1	;bytes to move
		LDY	#FWSavRam
		LDX	#SMART_ZPAGE
		MVN	Bank00,BankE1
		LONGI	OFF
		LONGA	OFF
		SEP	#$30	;8 bit m/x
		PLB		;restore data bank
		RTS

*******************************
* Restore FW Zero Page
*******************************
RESFWZP		EQU	*
		PHB		;preserve data bank
		REP	#$30	;16 bit m/x
		LONGI	ON
		LONGA	ON
		LDA	#ZPsize-1	;bytes to move
		LDX	#FWSavRam
		LDY	#SMART_ZPAGE
		MVN	BankE1,Bank00
		SEP	#$30	; 8 bit 'm' and 'x'
		LONGI	OFF
		LONGA	OFF
		PLB
		RTS


STATSET		EQU	*
		LDA	|ProFlag	;[7] 1=Prodos, 0=MLI
		BPL	RDGO	;don't redirect if SmartPort call
		LDA	cmdcode	;is this a status call
		BNE	RDGO	;don't redirect if not status
		LDA	#<ExtBlock	;else redirect buffer output
		LDX	#>ExtBlock
		STA	ExtBuff
		STX	ExtBuff+1
RDGO		LDX	Unit	;x=unit, a=ParmCnt
		LDA	CmdPCount
		RTS
		TITLE	'Service Boot Request'
*******************************************
BOOTCODE		EQU	*
********************************************
		LDA	>BramBuffer+$28	;check boot device
		CMP	>BramFlag
		BEQ	@10
		LDA	#$EE	;force AssignID in mainline
		STA	>Power1	;before the ReadBlock executes
*
@10		LDX	#5	;Copy a command table
@20		LDA	>boottab,x
		STA	>ExtBuff,x
		DEX
		BPL	@20
		LDA	>RAMunit	;RamDisk allocated?
		BEQ	@30	;no.
		CMP	>ReMap	;is it boot device?
		BNE	@30	;no.
		LDA	>RDFmtFlag	;is RamDisk formatted Yet?
		BMI	@30	;yes. leave it alone
		LDA	#02	;place a COP opcode at BF00
		STA	>FormSelect	;cause a ProDOS format of null RD
*
* Now do the read block $0000 from unit zero to $800
@30		JSL	>bentry
		BCS	booterr	;If fail, check loc
*
		LDA	>$800	;If ($800)<>1 this is no A// boot disk
		TAX
		DEX
		BNE	booterr
*
		LDA	>$801	;If $801 is zero, no boot
		BEQ	booterr
*
* It all looks okay.  Jump to the code with N0 in X.
*
		LDX	#$50	;always slot 5 unit
		CLC		;no boot error
		RTL		;back to bank 0
*
*
BOOTERR		EQU	*
		CLC		;set native
		XCE
		PHP		;save his
		SEP	#$30
		LDA	loc1	;was this an auto boot ?
		CMP	>mslot
		BEQ	auto0
*
* The boot failed and the user specifically requested the boot.
* Give him a message pinpointing the problem (if possible).
*
		JSR	SetBank0	;data bank to $00
		LDA	|SltRomSel	;enable slots 5 & 6
		PHA		;but save it first
		AND	#%10011111
		STA	|SltRomSel
		LDA	|StateReg	;save away the state register
		PHA
		LDA	#%00001000
		STA	|StateReg
		SEC		;have to go to emulation mode
		XCE
		PHP		;but save our mode
		JSL	C5Bootm
		PLP		;and back to native mode
		XCE
		LDX	#0	;Antic an I/O error
*
		LDA	>retry	;get back the unadulterated error
		BNE	bend1
		LDX	#1	;non bootable disk
*
BEND1		CMP	#NoDrive
		BNE	bend2
		LDX	#2	;No drive connected
*
BEND2		CMP	#Offline
		BNE	bend3
		LDX	#3
BEND3		TXA
		JSR	|PrintMsg
		PLA
		STA	|STateReg
		PLA		;restore slot rom selection
		STA	|SltRomSel
AUTO0		EQU	*
		LDA	#$27	;I/O error
		PLP		;restore his
		XCE
		SEC		;set error flag
		RTL
*
*
BOOTTAB		DC.B	READCMD,$50,0,8,0,0	;Read from 1st; blk0->$801
*
		TITLE	'Cold RESET Initialization'
********************************************************************
*
* Called from monitor via PROCINIT equate
*
* This routine is used to setup the SmartBus driver and reset
* the SmartBuss devices, assign their ID's and assign ID's by
* making INIT calls to the AppleDisk 3.5 driver routine.
********************************************************************
RESET		EQU	*
		PHP		;save interrupt environment
		SEI		;and disable 'til done reset
		LDA	1,s
		STA	>IntEnbl	; don't forget the flag
		PHB
		JSR	SetBankE1	;Data Bank = $E1
		JSR	SavSysZP
		LDA	>cyareg	;save CYA
		PHA
		AND	#%11111011	;fast mode & disable slot 6 motor detect
		ORA	#%10000000
		STA	|cyareg
		PHB
		LDA	#%00000000	;clear the entire access flag
		STA	>AccessFlg
		STA	>AccessFlg+1
*
* Now determine which type of AssignID to do
		LDA	>Power1	;is this a PwrUp or Cold Reset
		EOR	#$FF
		CMP	>Power2
		BNE	@10	;it a PwrUp
		LDA	#ColdReset	;this is almost a 'major' reset
		BRA	@20
@10		LDA	#PwrUpReset	;This is a 'MAJOR' reset
@20		JSR	AssignID	;assign SmartBuss and AppleDIsk ID's
		JSR	RestoreIWM	;set IWM for Disk][
		PLB
		PLA		;restore CYA
		STA	|cyareg
		JSR	ResSysZP
		PLB
		PLP		;restore interrupt environment
		RTS		;
*
		TITLE	'Calling the RamDisk'
***************************************************************
*
* This routine makes a tool call to the ramdisk.
* If auxmem is switched in, main memory is selected,
* and the buffer address is adjusted as neccessary.
*
***************************************************************
RAMDISK		EQU	*
		PHB		; save and set to $E1
		JSR	SetBankE1
		LDA	|StateReg	; save the system state
		PHA
		LDA	CMDCode	; get the command #
		AND	#$3F
		TAX
*
* Now check parmcnt for RamDisk toolset
		LDA	>parmctab,x
		AND	#$7f	;get parm count
		CPX	#Initcmd
		BNE	@10
		INC	a	;add 1 if its an INIT cmd
@10		CMP	CMDPcount
		BEQ	@20
		LDA	#BadPcnt	;($04)
		STA	statbyte
		BRA	@80
@20		REP	#$30	; 16 bit 'm' and 'x'
		LONGA	ON
		LONGI	ON
		LDA	#CmdXfrDir	; determine xfer direction
@30		EQU	*
		ROR	a
		DEX
		BPL	@30	; if C = 0, then destination = host
		SEP	#$30	; 8 bit 'm' & 'x'
		LONGA	OFF
		LONGI	OFF
		LDA	|StateReg
		AND	#%00110000	; RAMRD, RAMWRT ?
		BEQ	@60	; no
		BCS	@50	; if destination = device
@40		EQU	*	; else destination = host
		AND	#%00010000	; if RAMWRT is off, no futz
		BEQ	@60
		JSR	FutzAddr	; well go do it
		BRA	@60
@50		EQU	*
		AND	#%00100000	; if RAMRD is off, no futz
		BEQ	@60
		JSR	FutzAddr	; well go do it
@60		EQU	*

*
* Now call the RAMDISK
*
		REP	#$30	; 16 bit 'm' and 'x'
		LONGA	ON
		LONGI	ON
		LDX	#$0A0D	; RAMDISK tool call
		JSL	>$E10000
		SEP	#$30	; 8 bit 'm' and 'x'
		LONGA	OFF
		LONGI	OFF
@80		PLA		; restore state
		STA	|StateReg
		PLB
		CLC
		LDA	statbyte	; did ramdisk fail
		BEQ	@90	; if no fail
		SEC		; else flag error
@90		EQU	*
		RTS

*
* This routine adjusts the address and
* system state if neccessary.
*
FUTZADDR		EQU	*
		LDA	ExtBuff+2	; get the bank address
		BEQ	FutzIt	; adjust address if bank 0
		CMP	#$E0	; or bank E0
		BNE	NoAddFutz	; dont futz if not 0 or E0
FUTZIT		EQU	*
		LDA	#%00110000	; switch to main
		TRB	|StateReg
		LDA	ExtBuff+1	; get A8-15
		CMP	#$D0	; is it in the LC
		BGE	NoAddFutz	; yes
		CMP	#$02	; page 0 or 1
		BLT	NoAddFutz	; no
		INC	ExtBuff+2	; if even, make it odd
NOADDFUTZ		EQU	*
		RTS
		TITLE	'Calling the ROMDISK'
********************************************************
*
* This routine will search for the RomDisk
* driver on an INIT call only.  All other
* calls will dispatch to the RomDisk driver.
*
********************************************************
ROMDISK		EQU	*
		LDA	CMDCode	; is it an init call?
		AND	#$3F
		CMP	#InitCMD
		BNE	@20	; no, then dont search
		LDX	#5
@10		EQU	*
		LDA	>$F00000,x	; get romdisk string
		CMP	>rdid,x	; and check it
		BNE	@40	; if not same, bomb out
		DEX
		BPL	@10
; The following line of code was the last change made to the Tenspeed FF ROM before Final
		BRA	@25	; THE VERY COSTLY MISSING BRA INSTRUCTION JOA MAY 89
@20		LDA	>ROMUnit	;does a ROMDisk exist?
		BEQ	@40	;nope. so return NoDevice Connected!
@25		JSL	>RomDriver	; dispatch to romdisk
		CLC
		LDA	statbyte
		BEQ	@30
		SEC
@30		EQU	*
		RTS
@40		EQU	*
		SEC		; flag error
		LDA	#$28
		STA	StatByte
		RTS
		MSB	on
RDID		DC.B	'ROMDIS'
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSInfo/GS Analyzer Triggers b/IIGS.601.SRC/GSInfo/GS Analyzer Triggers
new file mode 100644
index 0000000..2afd9cd
--- /dev/null
+++ b/IIGS.601.SRC/GSInfo/GS Analyzer Triggers	
@@ -0,0 +1 @@
+
=====================================================
GS Stores into ROM for debugging with logic analyzers
=====================================================

=============================================================================
Modification History:

 6-Mar-93 Dave Lyons	Created file (from my 1990 notes)
=============================================================================

where	stores to	what
------	---------	----
fd/9152	fd/9094		CtlStartUp has found the DragRectPtr
fd/9157	fd/9096		CtlStartUp has found the DragRectPtr
fc/0635	fe/fff8		Memory Mgr DisposeDebugLoc
fc/063b	fe/fffa		Memory Mgr DisposeDebugLoc+2
fc/056d	fe/fffc		Memory Mgr NewDebugLoc
fc/0573	fe/fffe		Memory Mgr NewDebugLoc+2
fe/c538	ff/0010		Text Tools (ROM 3) are exiting
fe/8906	ff/3000		QuickDraw has decided to draw non-rectangularly


(The following RAM addresses are, of course, useless.)

0b/0080 fc/000e		Video Keyboard
0b/07c9 fc/0080		Video Keyboard called ReadMouse
0b/084e fc/0000		Video Keyboard
0b/088d fc/0002		Video Keyboard
1b/f181 fc/0002		Finder called GetCtlValue

		fc/4242		Exiting GS/OS call with nonzero error (6.0.1d14 and later)

0d/173a fe/1202		Text Edit
0d/179a fe/1202		Text Edit
0d/171f fe/1212		Text Edit
0d/1727 fe/1212		Text Edit
05/5d60 fe/1234		TS3:iDrawCursor
06/2259 fe/1234		GSBug
06/6a20 fe/dcba		GSBug

02/9e40 ff/0400		SCSI Manager entry
02/9f45 ff/0402		SCSI Manager exit
03/b63b ff/0500		SCSIHD.Driver entry
04/2dff ff/0500		DOS 3.3 FST entry
03/b6de ff/0502		SCSIHD.Driver exit
03/b6ef ff/0502		SCSIHD.Driver exit
04/2e9c ff/0510		2nd DOS 3.3 FST entry
06/4b09 ff/1234		GSBug
00/af9c ff/3000		GS/OS
00/aff0 ff/3000		GS/OS
06/2d4f ff/6789		GSBug called UserShutDown

[end]
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSInfo/GS Battery RAM b/IIGS.601.SRC/GSInfo/GS Battery RAM
new file mode 100644
index 0000000..61c2cb4
--- /dev/null
+++ b/IIGS.601.SRC/GSInfo/GS Battery RAM	
@@ -0,0 +1 @@
+
====================
GS Battery RAM usage
====================

Modification History:

 7-Feb-91 Dave Lyons	Initial Release
22-Feb-92 Dave Lyons	Documented $5F bits 1 and 2.
 6-Apr-92 Dave Lyons	Allocated $63..64 for EtherTalk
 4-Jun-92 Dave Lyons	Allocated $65 for Hierarchical Menu delay time
 8-Jun-92 Dave Lyons	Allocated $66 for delay-until-hierarchical pop-up
17-Sep-92 Dave Lyons	Added note on location $84 (mysterious).
21-Oct-92 Dave Lyons	Fixed up $61, reserved bit 3 in $5F.
12-Feb-93 Dave Lyons

=============================================================================
Here is a list of Battery-RAM locations beyond what's listed on page 14-12
of Toolbox Reference Volume 1.  These reference numbers should be used with
ReadBParam and WriteBParam.

A copy of the battery RAM can be found at $E1/02C0, and the Firmware looks
there directly.  System software should generally go through ReadBParam and
WriteBParam rather than examining or changing the buffer directly.
=============================================================================

$59  Bit 7 on ROM3 auto-installs Visit Monitor and Memory Peeker CDAs at boot
$5A  Key Translation (Event Manager)
$5B  CloseView:
	cvPowerMask equ %00001111 ; bits 0-3 (power)
	cvUseKeys   equ %00010000 ; bit 4
	cvMagnify   equ %00100000 ; bit 5
	cvInvert    equ %01000000 ; bit 6
	cvEnabled   equ %10000000 ; bit 7
$5C  Not used???
$5D  Not used???
$5E  AUG_Param
	bit 0 set means no closed captioning
	bit 1 set means standard time clear if daylight savings time
	bit 2 set means not to have auto daylight savings clear means to
		 have auto daylight savings
	bit 4-3 = amount of menu item blink (0..3)
$5F  Toolbox miscellaneous use (6.0)
         bits 7-6 = 10 if the byte has been initialized (default = $81)
         bit    5 = 
         bit    4 = 
         bit    3 = (will be "don't put up AppleTalk config warnings" in 6.0.1)
         bit    2 = 1 to make QDStartUp call SetIntUse(0)
         bit    1 = 1 to suppress ShowBootInfo icons
         bit    0 = 1 to alphabetize desk accessory lists
$60  Toolbox: WaitUntil scaling
$61  What network medium to use (1=LocalTalk, 2=EtherNet)
$62  What OS to boot into (1=GS/OS, 2=ProDOS 8)  (Mark Day)
$63..64  ¥not used¥ (Mark requested for network hints, but never used)
$65  Drag delay for hierarchical menus (number of ticks you can be out of the
         menu while moving diagonally before it "gives up" on you)
$66  Delay in ticks until a hierarchical menu pops up.
$67..68	Network number hint for Ethernet card (Wes Johnson)
$69	Network node hint for Ethernet card (Wes)

$80  AppleTalk Node Number
$81  GS/OS Cache size

$84  config_ram in device.dispatcher.src -- 2 units on generated devices?
     This is very mysterious and undocumented.

$A1-B6  At least one strange application messes with these locations.

$FC-FF: Check Sum

=============================================================================
There is some remapping from logical to physical BRAM locations going on for
ROM 3.  Here is the interesting part of the table.  (Need to document this
better.)

	dc.b $32	; $52 Disk Eject 1
	dc.b $33	; $53 Disk Eject 2

	dc.b $38	; $54 Reset RAM at next Reset
	dc.b $3B	; $55 Delay To Start
	dc.b $3C	; $56 Acceleration
	dc.b $3D	; $57 Maximum Speed
	dc.b $58	; $58 new Slot 1
=============================================================================

[end of document]

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSInfo/GS Memory Map b/IIGS.601.SRC/GSInfo/GS Memory Map
new file mode 100644
index 0000000..8d11bb9
--- /dev/null
+++ b/IIGS.601.SRC/GSInfo/GS Memory Map	
@@ -0,0 +1 @@
+
=============
GS Memory Map
=============
Copyright 1993-1994 Apple Computer, Inc.
All Rights Reserved

*******************************************************************************
APPLE CONFIDENTIAL
*******************************************************************************
This file is intended for the Apple II engineering team.  Much of the stuff
in here is not publicly documented.
*******************************************************************************

Modification History:

25-Jan-93 Dave Lyons    Created file
11-Nov-94 Dave Lyons    Added ROM function pointer table info, and cleaned
	      up in general.

=============================================================================
This is the master memory map for the ROM 1 and ROM 3 GS.
=============================================================================

00/0000..00/07FF	NOT managed by the Memory Manager.
00/0000..00/00FF	Zero page
00/0000  byte	LOC0	EQU $00	;vector for autostart from disk
00/0001  byte	LOC1	EQU $01
00/0006	PRINTTMP	EQU $06	;$06-$08 saved and restore by print rtne
00/0020  byte	WNDLFT	EQU $20	;left edge of text window
00/0021  byte	WNDWDTH	EQU $21	;width of text window
00/0022  byte	WNDTOP	EQU $22	;top of text window
00/0023  byte	WNDBTM	EQU $23	;bottom+1 of text window
00/0024  byte	CH	EQU $24	;cursor horizontal position
00/0025  byte	CV	EQU $25	;cursor vertical position
00/0026  byte	GBASL	EQU $26	;lo-res graphics base addr.
00/0027  byte	GBASH	EQU $27
00/0028  byte	BASL	EQU $28	;text base address
00/0029  byte	BASH	EQU $29
00/002A  byte	BAS2L	EQU $2A	;temp base for scrolling
00/002B  byte	BAS2H	EQU $2B
00/002C  byte	H2	EQU $2C	;temp for lo-res graphics
00/002C  byte	LMNEM	EQU $2C	;temp for mnemonic decoding
00/002D  byte	V2	EQU $2D	;temp for lo-res graphics
00/002D  byte	RMNEM	EQU $2D	;temp for mnemonic decoding
00/002E  byte	MASK	EQU $2E	;color mask for lo-res gr.
00/002E  byte	FORMAT	EQU $2E	;temp for opcode decode
00/002F  byte	LENGTH	EQU $2F	;temp for opcode decode
00/0030  byte	COLOR	EQU $30	;color for lo-res graphics
00/0031  byte	MONMODE	EQU $31	;Monitor mode
00/0032  byte	INVFLG	EQU $32	;normal/inverse(/flash)
00/0033  byte	PROMPT	EQU $33	;prompt character
00/0034  byte	YSAV	EQU $34	;position in Monitor command
00/0035  byte	YSAV1	EQU $35	;temp for Y register
00/0036..00/0037	CSWL..CSWH  character output hook
00/0038..00/0039	KSWL..KSWH  character input hook
00/003A  byte	PCL	EQU $3A	;temp for program counter
00/003B  byte	PCH	EQU $3B
00/003C  byte	A1L	EQU $3C	;Monitor temp
00/003D  byte	A1H	EQU $3D	;Monitor temp
00/003E  byte	A2L	EQU $3E	;Monitor temp
00/003F  byte	A2H	EQU $3F	;Monitor temp
00/0040  byte	A3L	EQU $40	;Monitor temp
00/0041  byte	A3H	EQU $41	;Monitor temp
00/0042  byte	A4L	EQU $42	;Monitor temp
00/0043  byte	A4H	EQU $43	;Monitor temp
00/0044  byte	*A5L            EQU	$44 ;Monitor temp ?????
00/0045  byte	A5H	EQU $45	;Monitor temp
00/0045  byte	*ACC            EQU	$45 ;Acc after break (destroys A5H)
00/0046  byte	XREG	EQU $46	;X reg after break
00/0047  byte	YREG	EQU $47	;Y reg after break
00/0048  byte	STATUS	EQU $48	;P reg after break
00/0049  byte	SPNT	EQU $49	;SP after break
00/004E..004F	RNDL..RNDH	EQU $4E	;random counter

00/0080..???	AppleTalk uses at interrupt time (and then restores)

00/00B1  entry	Applesoft:CHRGET (get next token from running program)
00/00B7  entry	Applesoft:CHRGOT (get same token again)

00/00F8..00FF	Available for temporary use (not used by Monitor or Applesoft)
00/0100..00/01FF	Page-one stack.  See also 01/0100.
00/0100..???	Applesoft builds floating-point numbers here, at the bottom of the stack.
00/0200..00/02FF	Keyboard buffer (used by GETLN).
	The GS/OS Console Driver uses this area, but does not expect
	it to stay valid between console driver calls.
00/0300..00/03CF	Free "page three" space for hacking around; not available
	for apps or the system.
00/03D0..00/03D2	Warmstart vector.  "Q" in the monitor jumps here if there
	is a $4C (JMP) at $3D0.
00/03F0..00/03F1	BRK vector.
00/03F2..00/03F3	Reset vector.
00/03F4  byte	Power-up byte for Reset vector ($3F3 xor $A5).
00/03F5..00/03F7	"&" jump vector for AppleSoft (the following tokens jump to
	here:  &, LOAD, SAVE, STORE, RECALL, SHLOAD).
00/03F8..00/03FA	Ctrl-Y jump vector for Monitor.
00/03FB..00/03FD	NMI jump vector.
00/03FE..00/03FF	IRQ vector for 8-bit land.
00/0400..00/07FF	Main 40-column text screen.
00/0478..00/047F	Screen holes (one for the system, one for each slot).
00/047B  byte	80-column firmware: OLDCH (last CH used by video firmware)
00/04F8..00/04FF	Screen holes.
00/04FB  byte	80-column firmware: MODE (video firmware operating mode)
	* BASIC VMODE BITS
	*
	* 0....... - BASIC active
	* 1....... - Pascal active
	* .0...... - Print mouse chars
	* .1...... - Don't print mouse characters
	* ..0..... - Print control characters
	* ..1..... - Don't print ctrl chars
	* ...0.... -
	* ...1.... -
	* ....0... - Print control characters
	* ....1... - Don't print ctrl chars.
	* .....0.. -
	* .....1.. -
	* ......0. - Scroll normally
00/0578..00/057F	Screen holes.
00/057B  byte	80-column firmware: OURCH (80-column Cursor Horizontal)
00/05F8..00/05FF	Screen holes.
00/05FB  byte	80-column firmware: OURCV (80-column Cursor Vertical)
00/0678..00/067F	Screen holes.
00/067B  byte	80-column firmware: CHAR (character to be printed/read)
00/06F8..00/06FF	Screen holes.
00/06FB  byte	80-column firmware: XCOORD (GOTOXY X-coord, Pascal mode only)
00/0778..00/077F	Screen holes.
00/077B  byte	80-column firmware: OLDBASL (last BASL, Pascal mode only)
00/07F8..00/07FF	Screen holes.
00/07F8  byte	MSLOT.  $Cn means that slot N owns the $C800..CFFE space.
	Important for interrupt handling, so we can put the old
	owner back in charge when returning from the interrupt.
	The 80-column firmware uses this as a weird flag, so if
	you try to look at it in the monitor, the value will go
	away (it gets shifted right one bit on each character
	displayed).
00/07FB  byte	80-column firmware: OLDBASH (last BASH, Pascal mode only)

00/0800..00/BFFF	Managed by the Memory Manager.
00/0800..00/0CFF	Page 2 40-column text screen.
00/0800..00/09FF	Booting a disk loads block 0 here and jumps to $801.
00/1000..00/12FF	ProDOS 8 copies the Quit code here and jumps to it.
00/2000..00/BEFF	SYS programs get loaded here.  Including the ProDOS
	file, whether it be ProDOS 8 or the GS/OS ProBoot file.
00/2000..00/3FFF	Hi-Res page 1.
00/4000..00/5FFF	Hi-Res page 2.
00/6800..	Start.GS.OS gets loaded here by the "ProBoot" ProDOS file.
00/B9F0..00/B9FD	GS/OS globals (private)
00/B9F0  word	dev_start_flag (set to nonzero during device dispatcher startup)
00/B9F2  long	fst_tbl_ptr (set by SCM to point to FST table)
00/B9F6  word	sys_prefs (as in GetSysPrefsGS/SetSysPrefsGS).  DoSysPrefs in the
	Miscellaneous Tools (6.0.1) hard-codes this address for fast access!
00/B9F8  word	non-zero if get_dnum finds a character device
00/B9FA  word	post_index (number of drivers remaining to install)
00/B9FC  word	current_speed
00/B9FE  word	session_stat ($0000 = no session, $0001 = session in progress)
00/BB00..00/BCFF	GQuit stack (used by GQuit when booting, or when launching a new app)
00/BD00..00/BDFF	GS/OS direct page (has always been here, but this isn't guaranteed
	to the public).
00/BD48  word	Caller's stack pointer during a GS/OS call.
00/BE00..00/BFFF	GS/OS stack used during a GS/OS call (builds down from BFFF).
00/BE00..00/BEFF	BASIC.System global page.
00/BF00..00/BFFF	ProDOS 8 global page.  GS/OS puts a JMP at $BF00 so that
	certain devices think P8 is available rather than DOS 3.3.
	Global page is detailed in the ProDOS 8 Technical Reference.
00/BF00  jmp	ProDOS 8 call entry
00/C000..01/07FF	NOT managed by the Memory Manager.
00/C000..00/CFFE	Softswitches, peripheral ROM, shared ROM.
00/C000  byte	r:KBD  w:CLR80COL
00/C001  byte	w:SET80COL
00/C002  byte	w:RDMAINRAM
00/C003  byte	w:RDCARDRAM
00/C004  byte	w:WRMAINRAM
00/C005  byte	w:WRCARDRAM
00/C006  byte	w:SETSLOTCXROM
00/C007  byte	w:SETINTCXROM
00/C008  byte	w:SETSTDZP
00/C009  byte	w:SETALTZP
00/C00A  byte	w:SETINTC3ROM
00/C00B  byte	w:SETSLOTC3ROM
00/C00C  byte	w:CLR80VID
00/C00D  byte	w:SET80VID
00/C00E  byte	w:CLRALTCHAR
00/C00F  byte	w:SETALTCHAR
00/C010  byte	r:KBDSTRB
00/C011  byte	r:RDLCBNK2
00/C012  byte	r:RDLCRAM
00/C013  byte	r:RDRAMRD
00/C014  byte	r:RDRAMWRT
00/C015  byte	r:RDCXROM
00/C016  byte	r:RDALTZP
00/C017  byte	r:RDC3ROM
00/C018  byte	r:RD80COL
00/C019  byte	r:RDVBLBAR
00/C01A  byte	r:RDTEXT
00/C01B  byte	r:RDMIX
00/C01C  byte	r:RDPAGE2
00/C01D  byte	r:RDHIRES
00/C01E  byte	r:ALTCHARSET
00/C01F  byte	r:RD80VID
00/C020  byte	reserved [cassette]
00/C021  byte	rw:MONOCOLOR
00/C022  byte	rw:TBCOLOR
00/C023  byte	rw:VGCINT
00/C024  byte	r:MOUSEDATA
00/C025  byte	r:KEYMODREG
00/C026  byte	rw:DATAREG [key micro]
00/C027  byte	rw:KMSTATUS
00/C028  byte	rw:ROMBANK [IIc Plus]
00/C029  byte	rw:NEWVIDEO
00/C02B  byte	rw:LANGSEL
00/C02C  byte	r:CHARROM
00/C02D  byte	rw:SLTROMSEL
00/C02E  byte	r:VERTCNT
00/C02F  byte	r:HORIZCNT
00/C030  byte	rw:SPKR
00/C031  byte	rw:DISKREG
00/C032  byte	w:SCANINT
00/C033  byte	rw:CLOCKDATA
00/C034  byte	rw:CLOCKCTL [+border color]
00/C035  byte	rw:SHADOW
00/C036  byte	rw:CYAREG
00/C037  byte	rw:DMAREG
00/C038  byte	rw:SCCBREG
00/C039  byte	rw:SCCAREG
00/C03A  byte	rw:SCCBDATA
00/C03B  byte	rw:SCCADATA
00/C03C  byte	rw:SOUNDCTL
00/C03D  byte	rw:SOUNDDATA
00/C03E  byte	rw:SOUNDADRL
00/C03F  byte	rw:SOUNDADRH
00/C040  byte	reserved [C040 Strobe]
00/C041  byte	*rw:INTEN
00/C044  byte	*r:MMDELTAX
00/C045  byte	*r:MMDELTAY
00/C046  byte	w:DIAGTYPE r:INTFLAG
00/C047  byte	w:CLRVBLINT
00/C048  byte	w:CLRXYINT
00/C050  byte	rw:TXTCLR
00/C051  byte	rw:TXTSET
00/C052  byte	rw:MIXCLR
00/C053  byte	rw:MIXSET
00/C054  byte	rw:TXTPAGE1
00/C055  byte	rw:TXTPAGE2
00/C056  byte	rw:LORES
00/C057  byte	rw:HIRES
00/C058  byte	rw:SETAN0
00/C059  byte	rw:CLRAN0
00/C05A  byte	rw:SETAN1
00/C05B  byte	rw:CLRAN1
00/C05C  byte	rw:SETAN2
00/C05D  byte	rw:CLRAN2
00/C05E  byte	rw:SETAN3
00/C05F  byte	rw:CLRAN3
00/C060  byte	r:BUTN3
00/C061  byte	r:BUTN0
00/C062  byte	r:BUTN1
00/C063  byte	r:BUTN2
00/C064  byte	r:PADDL0
00/C065  byte	r:PADDL1
00/C066  byte	r:PADDL2
00/C067  byte	r:PADDL3
00/C068  byte	rw:STATEREG
00/C06D  byte	*TESTREG
00/C06E  byte	*CLTRM
00/C06F  byte	*ENTM
00/C070  byte	rw:PTRIG
00/C071..00/C07F	Entry points for interrupt/brk handling (yes, 15 bytes of code live here!)
00/C073  byte	3rd-party memory expansion cards for the Apple IIe use this to choose different
	auxiliary memory banks.
00/C081  byte	rw:ROMIN
00/C083  byte	rw:LCBANK2
00/C08B  byte	rw:LCBANK1
00/C090..00/C0FF	I/O locations for slots 1..7.
	Certain groups apply to the slot even when Your Card is not
	chosen for that slot, since the corresponding GS port uses
	separate locations (for serial chip, mouse).
00/C090..00/C09F	I/O locations for slot 1.
00/C0A0..00/C0AF	I/O locations for slot 2.
00/C0B0..00/C0BF	I/O locations for slot 3.
00/C0C0..00/C0CF	I/O locations for slot 4.
00/C0D0..00/C0DF	I/O locations for slot 5.
00/C0E0..00/C0EF	I/O locations for slot 6.
	All IWM access comes through these, even for SmartPort in slot 5.
00/C0E0  byte	IWM:PH0 off
00/C0E1  byte	IWM:PH0 on
00/C0E2  byte	IWM:PH1 off
00/C0E3  byte	IWM:PH1 on
00/C0E4  byte	IWM:PH2 off
00/C0E5  byte	IWM:PH2 on
00/C0E6  byte	IWM:PH3 off
00/C0E7  byte	IWM:PH3 on
00/C0E8  byte	IWM:motor off
00/C0E9  byte	IWM:motor on
00/C0EA  byte	IWM:drive 1
00/C0EB  byte	IWM:drive 2
00/C0EC  byte	IWM:Q6 OFF (Read)
00/C0ED  byte	IWM:Q6 ON  (WP-sense)
00/C0EE  byte	IWM:Q7 OFF (WP-sense/Read)
00/C0EF  byte	IWM:Q7 ON  (Write)
00/C0F0..00/C0FF	I/O locations for slot 7.
00/C100..00/C1FF	Used for port 1 or slot 1.
00/C1E0  entry	Boot AppleTalk from slot 1
00/C200..00/C2FF	Used for port 2 or slot 2.
00/C2E0  entry	Boot AppleTalk from slot 2
00/C300..00/C3FF	Used for port 3 or slot 3.  When the 80-column firmware in port 3
	is mapped in, the contents are the same as $FF/C300..C3FF.
00/C311  entry	ROM:AUXMOVE
00/C314  entry	ROM:XFER
00/C400..00/C4FF	Used for port 4 or slot 4.
00/C500..00/C5FF	Used for port 5 or slot 5.
00/C600..00/C6FF	Used for port 6 or slot 6.
00/C700..00/C7FF	Used for port 7 or slot 7.
00/C800..00/CFFE	Shared peripheral ROM space.  See 00/07F8, 00/CFFF.
	Each slot can use this, but only one at a time.
	$CFFF tells slots to relinquish this area, and any
	access to $Cnxx tells slot N that it owns this area.
	When the 80-column firmware owns $C800..CFFE, the
	contents are the same as $FF/C800..CFFE.
00/CFFF  byte	rw:CLRROM  Clear all active peripheral C8xx ROMs.
00/D000..00/FFFF	Bank zero language card.  Used by GS/OS.
00/D000..00/DFFF	Two banks exist in this range (plus ROM).
00/D000..00/F7FF	Applesoft BASIC.
00/E000  jmp	Applesoft cold entry
00/E003  jmp	Applesoft warm entry
00/F800..00/FFFF	"F8 ROM" firmware
00/F800  entry	F8ROM:PLOT
00/F80E  entry	F8ROM:PLOT1
00/F819  entry	F8ROM:HLINE
00/F828  entry	F8ROM:VLINE
00/F832  entry	F8ROM:CLRSCR
00/F836  entry	F8ROM:CLRTOP
00/F847  entry	F8ROM:GBASCALC
00/F85F  entry	F8ROM:NXTCOL
00/F864  entry	F8ROM:SETCOL
00/F871  entry	F8ROM:SCRN
00/F88C  entry	F8ROM:INSDS1.2
00/F88E  entry	F8ROM:INSDS2
00/F890  entry	F8ROM:GET816LEN
00/F8D0  entry	F8ROM:INSTDSP
00/F940  entry	F8ROM:PRNTYX
00/F941  entry	F8ROM:PRNTAX
00/F944  entry	F8ROM:PRNTX
00/F948  entry	F8ROM:PRBLNK
00/F94A  entry	F8ROM:PRBL2
00/F953  entry	F8ROM:PCADJ
00/F962  entry	F8ROM:TEXT2COPY
00/FA40  entry	F8ROM:OLDIRQ
00/FA4C  entry	F8ROM:BREAK
00/FA59  entry	F8ROM:OLDBRK
00/FA62  entry	F8ROM:RESET
00/FAA6  entry	F8ROM:PWRUP
00/FABA  entry	F8ROM:SLOOP
00/FAD7  entry	F8ROM:REGDSP
00/FB19  entry	F8ROM:RTBL
00/FB1E  entry	F8ROM:PREAD
00/FB21  entry	F8ROM:PREAD4
00/FB2F  entry	F8ROM:INIT
00/FB39  entry	F8ROM:SETTXT
00/FB40  entry	F8ROM:SETGR
00/FB4B  entry	F8ROM:SETWND
00/FB51  entry	F8ROM:SETWND2
00/FB5B  entry	F8ROM:TABV
00/FB60  entry	F8ROM:APPLEII
00/FB6F  entry	F8ROM:SETPWRC
00/FB78  entry	F8ROM:VIDWAIT
00/FB88  entry	F8ROM:KBDWAIT
00/FBB3  entry	F8ROM:VERSION
00/FBBF  entry	F8ROM:ZIDBYTE2
00/FBC0  entry	F8ROM:ZIDBYTE
00/FBC1  entry	F8ROM:BASCALC
00/FBDD  entry	F8ROM:BELL1
00/FBE2  entry	F8ROM:BELL1.2
00/FBE4  entry	F8ROM:BELL2
00/FBF0  entry	F8ROM:STORADV
00/FBF4  entry	F8ROM:ADVANCE
00/FBFD  entry	F8ROM:VIDOUT
00/FC10  entry	F8ROM:BS
00/FC1A  entry	F8ROM:UP
00/FC22  entry	F8ROM:VTAB
00/FC24  entry	F8ROM:VTABZ
00/FC42  entry	F8ROM:CLREOP
00/FC58  entry	F8ROM:HOME
00/FC62  entry	F8ROM:CR
00/FC66  entry	F8ROM:LF
00/FC70  entry	F8ROM:SCROLL
00/FC9C  entry	F8ROM:CLREOL
00/FC9E  entry	F8ROM:CLREOLZ
00/FCA8  entry	F8ROM:WAIT
00/FCB4  entry	F8ROM:NXTA4
00/FCBA  entry	F8ROM:NXTA1
00/FCC9  entry	F8ROM:HEADR
00/FD0C  entry	F8ROM:RDKEY
00/FD10  entry	F8ROM:FD10
00/FD18  entry	F8ROM:RDKEY1
00/FD1B  entry	F8ROM:KEYIN
00/FD35  entry	F8ROM:RDCHAR
00/FD67  entry	F8ROM:GETLNZ
00/FD6A  entry	F8ROM:GETLN
00/FD6C  entry	F8ROM:GETLN0
00/FD6F  entry	F8ROM:GETLN1
00/FD8B  entry	F8ROM:CROUT1
00/FD8E  entry	F8ROM:CROUT
00/FD92  entry	F8ROM:PRA1
00/FDDA  entry	F8ROM:PRBYTE
00/FDE3  entry	F8ROM:PRHEX
00/FDED  entry	F8ROM:COUT
00/FDF0  entry	F8ROM:COUT1
00/FDF6  entry	F8ROM:COUTZ
00/FE1F  entry	F8ROM:IDROUTINE
00/FE2C  entry	F8ROM:MOVE
00/FE5E  entry	F8ROM:LIST (not on GS)
00/FE80  entry	F8ROM:SETINV
00/FE84  entry	F8ROM:SETNORM
00/FE89  entry	F8ROM:SETKBD
00/FE8B  entry	F8ROM:INPORT
00/FE93  entry	F8ROM:SETVID
00/FE95  entry	F8ROM:OUTPORT
00/FEB6  entry	F8ROM:GO
00/FECD  entry	F8ROM:WRITE
00/FEFD  entry	F8ROM:READ
00/FF2D  entry	F8ROM:PRERR
00/FF3A  entry	F8ROM:BELL
00/FF3F  entry	F8ROM:RESTORE
00/FF4A  entry	F8ROM:SAVE
00/FF58  entry	F8ROM:IORTS
00/FF59  entry	F8ROM:OLDRST
00/FF65  entry	F8ROM:MON
00/FF69  entry	F8ROM:MONZ
00/FF6C  entry	F8ROM:MONZ2
00/FF70  entry	F8ROM:MONZ4
00/FF8A  entry	F8ROM:DIG
00/FFA7  entry	F8ROM:GETNUM
00/FFAD  entry	F8ROM:NXTCHR
00/FFBE  entry	F8ROM:TOSUB
00/FFC7  entry	F8ROM:ZMODE
00/FFFA  word	NMI vector.
00/FFFC  word	Reset vector.
00/FFFE  word	IRQ/BRK vector.
01/0000..01/00FF	Auxiliary zero page.  Certain areas can be used by P8 apps?
01/0100..01/01FF	Auxiliary page-one stack.
01/0100  byte	MNEMSTKPTR (MaiN EMulation stack pointer).  Value for page-one
	stack pointer when we are not actually using the main page-one stack.
01/0101  byte	ALEMSTKPTR (Alternate EMulation stack pointer).  Value for auxiliary
	(bank 1) page-one stack pointer when we are not actually using that
	stack.
01/0200..01/03FF	No known use under GS/OS.
01/0400..01/07FF	Part of 80-column text screen (every other column, starting
	with the first).
01/0478..01/047F	Auxiliary memory screen holes.
01/04F8..01/04FF	Auxiliary memory screen holes.
01/0578..01/057F	Auxiliary memory screen holes.
01/05F8..01/05FF	Auxiliary memory screen holes.
01/0678..01/067F	Auxiliary memory screen holes.
01/06F8..01/06FF	Auxiliary memory screen holes.
01/0778..01/077F	Auxiliary memory screen holes.
01/07F8..01/07FF	Auxiliary memory screen holes.
01/0800..01/0BFF	@@@ 80-column text page two?
01/2000..01/9FFF	Fast-RAM copy of Super Hi-Res screen (can shadow to $E1).
01/2000..01/3FFF	Part of Double Hi-Res page 1.
01/4000..01/5FFF	Part of Double Hi-Res page 2.
01/9D00..01/9DFF	Fast-RAM SCBs for Super Hi-Res.  The hardware supports these,
	but the software convention is that they are NOT USED.
01/9E00..01/9FFF	Fast-RAM color tables.  Harware can shadow these, but the
	software convention is that they are NOT USED.
01/A600..01/BBFF	Used by GS/OS in 6.0 and later for the Loader.
01/BC00..01/BFFF	Reserved under GS/OS for the AppleDisk3.5 driver to use.
01/C000..01/FFFF	NOT managed by the Memory Manager.
01/C000..01/CFFF	Softswitches/etc just like in bank zero.
01/D000..01/FFFF	Bank one language card.  Used by GS/OS.
01/D000..01/DFFF	Two banks exist in this range.
01/FC00..01/FCFF	GS/OS System Service vectors.
01/FC00  jump	SysSrv: DEV_DISPATCHER
01/FC04  jump	SysSrv: CACHE_FIND_BLK
01/FC08  jump	SysSrv: CACHE_ADD_BLK
01/FC0C  jump	SysSrv: %CACHE_INIT
01/FC10  jump	SysSrv: %CACHE_SHUTDN
01/FC14  jump	SysSrv: CACHE_DEL_BLK
01/FC18  jump	SysSrv: %CACHE_DEL_VOL
01/FC1C  jump	SysSrv: ALLOC_SEG
01/FC20  jump	SysSrv: RELEASE_SEG
01/FC24  jump	SysSrv: %ALLOC_VCR
01/FC28  jump	SysSrv: %RELEASE_VCR
01/FC2C  jump	SysSrv: %ALLOC_FCR
01/FC30  jump	SysSrv: %RELEASE_FCR
01/FC34  jump	SysSrv: SWAP_OUT
01/FC38  jump	SysSrv: DEREF
01/FC3C  jump	SysSrv: %GET_SYS_GBUF
01/FC40  jump	SysSrv: %SYS_EXIT
01/FC44  jump	SysSrv: %SYS_DEATH
01/FC48  jump	SysSrv: %FIND_VCR
01/FC4C  jump	SysSrv: %FIND_FCR
01/FC50  jump	SysSrv: SET_SYS_SPEED
01/FC54  jump	SysSrv: %CACHE_FLSH_DEF
01/FC58  jump	SysSrv: %RENAME_VCR
01/FC5C  jump	SysSrv: %RENAME_FCR
01/FC60  jump	SysSrv: %GET_VCR
01/FC64  jump	SysSrv: %GET_FCR
01/FC68  jump	SysSrv: LOCK_MEM
01/FC6C  jump	SysSrv: UNLOCK_MEM
01/FC70  jump	SysSrv: MOVE_INFO
01/FC74  jump	SysSrv: %CVT_0TO1
01/FC78  jump	SysSrv: %CVT_1TO0
01/FC7C  jump	SysSrv: %REPLACE80
01/FC80  jump	SysSrv: %%TO_B0_CORE
01/FC84  jump	SysSrv: %%G_DISPATCH
01/FC88  jump	SysSrv: SIGNAL
01/FC8C  jump	SysSrv: %%GET_SYS_BUFF
01/FC90  jump	SysSrv: SET_DISK_SW
01/FC94  jump	SysSrv: %%REPORT_ERROR
01/FC98  jump	SysSrv: %%MOUNT_MESSAGE
01/FC9C  jump	SysSrv: %%FULL_ERROR
01/FCA0  jump	SysSrv: %RESERVED_07
01/FCA4  jump	SysSrv: SUP_DRVR_DISP
01/FCA8  jump	SysSrv: INSTALL_DRIVER
01/FCAC  jump	SysSrv: %%S_GET_BOOT_PFX
01/FCB0  jump	SysSrv: %%S_SET_BOOT_PFX
01/FCB4  jump	SysSrv: %%LOW_ALLOCATE
01/FCB8  jump	SysSrv: %%GET_STACKED_ID
01/FCBC  jump	SysSrv: DYN_SLOT_ARBITER
01/FCC0  jump	SysSrv: %%PARSE_PATH
01/FCC4  jump	SysSrv: %%OS_EVENT
01/FCC8  jump	SysSrv: %%INSERT_DRIVER
01/FCCC  jump	SysSrv: %%(device manager?)
01/FCD0  jump	SysSrv: %Old Device Dispatcher(?)
01/FCD4  jump	SysSrv: %%INIT_PARSE_PATH
01/FCD8  jump	SysSrv: UNBIND_INT_VEC
01/FCDC  jump	SysSrv: %%DO_INSERT_SCAN
01/FCE0  jump	SysSrv: %%TOOLBOX_MSG
01/FCE4..01/FFFF	Apparently available for GS/OS to grow into!
01/FFFF	Highest fast-RAM address on a 256K machine.
02/0000..7F/FFFF	Managed by the Memory Manager.  Fast RAM.
@@@ net booting uses bank 2 or 3 hard-coded?
@@@ P8 version of Ethernet CDA uses some hard-coded memory?
0F/FFFF	Highest fast-RAM address on a 1.125M machine (stock ROM 3)
11/FFFF	Highest fast-RAM address on a 1.25M machine (ROM 1 + 1 Meg)
1F/FFFF	Highest fast-RAM address on a 2.125M machine (ROM 3 + 1 Meg)
80/0000..DF/FFFF	Not decoded by the GS hardware.
BC/0000..BC/FFFF	Used by TransWarpGS (as ROM).  There's a fake CDA handle into here.
E0/0000..E1/FFFF	Slow RAM (video buffers + misc)

¥ E0 storage locations for the desk manager
E0/0000..E0/00FF	E0 zero page.  Who knows??
E0/0100..E0/02FF	Beats me!
E0/0300..E0/03FF	CDA menu saves the bank-zero page-one stack here
E0/0400..E0/07FF	40-column text page 1 (the hardware displays this copy, not the bank 0 copy)
E0/0800..E0/0BFF	Text page 2?
E0/0C00..E0/0FFF	CDA menu saves bank $00 40-col screen here (SaveAll/RestAll)
E0/1000..E0/13FF	CDA menu saves bank $01 40-col screen here (SaveAll/RestAll)
E0/1400..E0/17FF	CDA menu saves bank $E0 40-col screen here (SaveAll/RestAll)
E0/1800..E0/1BFF	CDA menu saves bank $E1 40-column screen here
E0/1C00..E0/1CFF	CDA menu stores bank 0 zero page here (SaveAll/RestAll)

E0/1D00	bregsave	equ $E01D00
E0/1D02	intstatus	equ $e01D02	;2
E0/1D03	svstatereg	equ $e01D03	;1
E0/1D04	col80sv	equ $e01D04	;1
E0/1D05	loxclampsv	equ $e01D05	;1
E0/1D07	loyclampsv	equ $e01D07	;2
E0/1D09	hixclampsv	equ $e01D09	;2
E0/1D0B	hiyclampsv	equ $e01D0B	;2
E0/1D0D	outglobals	equ $e01D0D	;2
E0/1D14	want40	equ $e01D14	;6
E0/1D16	cursorsave	equ $e01D16	;2
E0/1D18	newvidsv	equ $e01D18	;2
E0/1D1A	txtsv	equ $e01D1A	;1
E0/1D1B	mixsv	equ $e01D1B	;1
E0/1D1C	page2sv	equ $e01D1C	;1
E0/1D1D	hiressv	equ $e01D1D	;1
E0/1D1E	altcharsv	equ $e01D1E	;1
E0/1D1F	vid80sv	equ $e01D1F	;1
E0/1D20	int1ay	equ $e01D20	;D
E0/1D2D	int1by	equ $e01D2D	;D
E0/1D39	int2ay	equ $e01D39	;13
E0/1D4C	int2by	equ $e01D4C	;13
E0/1D61	mousvblsv	equ $e01D61	;1
E0/1D63	dirpgsv	equ $e01D63	;2
E0/1D65	c3romsv	equ $e01D65	;1
E0/1D66	sv4080	equ $e01D66	;1 
E0/1D67	numints	equ $E01D67	;1
E0/1D68	mmode	equ $e01D68	;2
E0/1D6A	mymslot	equ $e01D6A	;2
E0/1D6C	slot	equ $e01D6C	;2
E0/1D6E	EntryCount	equ $E01D6E	;2
E0/1D70	bottomline	equ $E01D70	;2
E0/1D72	hpos	equ $E01D72	;2
E0/1D74	vpos	equ $E01D74	;2
E0/1D76	CurScreenLoc	equ $E01D76	;4 - current cursor position
E0/1D7A	xxxx2	equ $E01D7A	;2
E0/1D7C	numdas	equ $E01D7C	;2
E0/1D7E	leftborder	equ $E01D7E	;2
E0/1D80	firstmenuitem	equ $E01D80	;2
E0/1D82	idnum	equ $E01D82	;2
E0/1D84	cdatabhndl	equ $E01D84	;4
E0/1D88	roomleft	equ $E01D88	;2
E0/1D8A	keyinput	equ $E01D8A	;2
E0/1D8C	evntrec	equ $E01D8C	;2
E0/1D8E	message	equ $E01D8E	;4
E0/1D92	when	equ $E01D92	;4
E0/1D96	where	equ $E01D96	;4
E0/1D9A	mods	equ $E01D9A	;2
E0/1D9C	stacksv	equ $E01D9C	;2
E0/1D9E	oldoutglob	equ $E01D9E	;4
E0/1DA2	oldoutdev	equ $E01DA2	;6
E0/1DA8	cdatabptr	equ $E01DA8	;4
E0/1DAC	dastrptr	equ $E01DAC	;4
E0/1DB0	curcda	equ $E01DB0	;2
E0/1DB2	oldouthook	equ $E01DB2	;2
E0/1DB4	oldindev	equ $E01DB4	;6
E0/1DBA	oldinglob	equ $E01DBA	;4
E0/1DBE	RealDeskStatus	equ $E01DBE	;2   17-Sep-91 DAL (6.0 and later)
E0/1DC0	next	equ $E01DC0	;(the next free location to assign)

¥Scheduler
E0/1DDE	SchActive	equ $E01DDE	; new flag for whether we are active
E0/1DDF	taskque	equ $E01DDF	; 16 byte queue -- 4 items
E0/1DDF	firstTask	equ $E01DDF
E0/1DE3	secondTask	equ $E01DE3	; second item in queue
E0/1DED	scheduler	equ $E01DED	; memory used by the scheduler
E0/1DEF	offset	equ $E01DEF
E0/1DFF	lastbyte	equ $E01DFF	; last byte used by the scheduler?

¥ QuickDraw vectors
E0/1E00..E0/1FFF	QuickDraw II vectors
	(StdXXX and ShieldCursor/UnshieldCursor are public; the rest are
	private and largely mysterious)
E0/1E00  jump	%QD:ToStuff
E0/1E04  jump	QD:StdText
E0/1E08  jump	QD:StdLine
E0/1E0C  jump	QD:StdRect
E0/1E10  jump	QD:StdRRect
E0/1E14  jump	QD:StdOval
E0/1E18  jump	QD:StdArc
E0/1E1C  jump	QD:StdPoly
E0/1E20  jump	QD:StdRgn
E0/1E24  jump	QD:StdPixels
E0/1E28  jump	QD:StdComment
E0/1E2C  jump	QD:StdTxMeas
E0/1E30  jump	QD:StdTxBnds
E0/1E34  jump	QD:StdGetPic
E0/1E38  jump	QD:StdPutPic
E0/1E3C  jump	%QD:PortLoc2ZP
E0/1E40  jump	%QD:UserPat2ZP
E0/1E44  jump	%QD:GetPenPReady
E0/1E48  jump	%QD:GetBackPReady
E0/1E4C  jump	%QD:Pen2ZP
E0/1E50  jump	%QD:Back2ZP
E0/1E54  jump	%QD:RotatePat
E0/1E58  jump	%QD:GetMaskReady
E0/1E5C  jump	%QD:Mask2ZP
E0/1E60  jump	%QD:ExpandMask
E0/1E64  jump	%QD:RotateMask
E0/1E68  jump	%QD:RotateLong
E0/1E6C  jump	%QD:PreDraw
E0/1E70  jump	%QD:XSetup
E0/1E74  jump	%QD:DrawRectB
E0/1E78  jump	%QD:DrawRect
E0/1E7C  jump	%QD:SliceSetup
E0/1E80  jump	%QD:vShiftStay*
E0/1E84  jump	%QD:vXShiftStay*
E0/1E88  jump	%QD:vShiftOut
E0/1E8C  jump	%QD:vXShiftOut
E0/1E90  jump	%QD:BMakeMinRect
E0/1E94  jump	%QD:MakeMinRect
E0/1E98  jump	QD:ShieldCursor
E0/1E9C  jump	QD:UnShieldCursor
E0/1EA0  jump	%QD:SetUpPortRegions
E0/1EA4  jump	%QD:SetUpScanPtrs
E0/1EA8  jump	%QD:FreePortRegions
E0/1EAC  jump	%QD:Free1Region
E0/1EB0  jump	%QD:Free2Regions
E0/1EB4  jump	%QD:Free3Regions
E0/1EB8  jump	%QD:GetFGS		
E0/1EBC  jump	%QD:Init1Region
E0/1EC0  jump	%QD:Init2Regions
E0/1EC4  jump	%QD:Init3Regions
E0/1EC8  jump	%QD:Seek1Region
E0/1ECC  jump	%QD:Seek2Regions
E0/1ED0  jump	%QD:Seek3Regions
E0/1ED4  jump	%QD:InitRgn
E0/1ED8  jump	%QD:SeekRgn
E0/1EDC  jump	%QD:Join1Buffer
E0/1EE0  jump	%QD:Join2Buffers
E0/1EE4  jump	%QD:Join3Buffers
E0/1EE8  jump	%QD:SetSlabAdr
E0/1EEC  jump	%QD:SetSliceAdr
E0/1EF0  jump	%QD:SetStuffAdr
E0/1EF4  jump	%QD:BlowItUpLO
E0/1EF8  jump	%QD:PutPictStuff
E0/1EFC  jump	%QD:AddToPoly
E0/1F00  jump	%QD:OpenPicture
E0/1F04  jump	%QD:PicComment
E0/1F08  jump	%QD:ClosePicture
E0/1F0C  jump	%QD:DrawPicture
E0/1F10  jump	%QD:KillPicture
E0/1F14  jump	%QD:GimmeVersion
E0/1F18  jump	%QD:v_FrRgn
E0/1F1C  jump	%QD:v_PRgn
E0/1F20  jump	%QD:v_ERgn
E0/1F24  jump	%QD:v_IRgn
E0/1F28  jump	%QD:v_FRgn
E0/1F2C  jump	%QD:v_FrRect
E0/1F30  jump	%QD:v_PRect
E0/1F34  jump	%QD:v_ERect
E0/1F38  jump	%QD:v_IRect
E0/1F3C  jump	%QD:v_FRect
E0/1F40  jump	%QD:DChar
E0/1F44  jump	%QD:DText/DCString
E0/1F48  jump	%QD:BChar
E0/1F4C  jump	%QD:BText/BCString
E0/1F50  jump	%QD:ValidChar
E0/1F54  jump	%QD:GetNextChar
E0/1F58  jump	%QD:CalcDrawStatus
E0/1F5C  jump	%QD:TextAndMinRect
E0/1F60  jump	%QD:CalcTextBounds
E0/1F64  jump	%QD:SetUpFontInfo
E0/1F68  jump	%QD:SetUpBufInfo
E0/1F6C  jump	%QD:GetTextHandle
E0/1F70  jump	%QD:ClearBufPart
E0/1F74  jump	%QD:PutChar
E0/1F78  jump	%QD:BumpPen
E0/1F7C  jump	%QD:CleanUpBuffer
E0/1F80  jump	%QD:PutLine
E0/1F84  jump	%QD:PutRgn
E0/1F88  jump	%QD:PutRect
E0/1F8C  jump	%QD:CullPoints
E0/1F90  jump	%QD:SortPoints
E0/1F94  jump	%QD:PackRgn
E0/1F98  jump	%QD:RgnOp
E0/1F9C  jump	%QD:PutOval
E0/1FA0  jump	%QD:BumpOval
E0/1FA4  jump	%QD:InitOval
E0/1FA8  jump	%QD:SetTB
E0/1FAC  jump	%QD:ResetTB
E0/1FB0  jump	%QD:StyleText
E0/1FB4  jump	%QD:StyleExtents
E0/1FB8  jump	%QD:DoBold
E0/1FBC  jump	%QD:DoUnderLine
E0/1FC0  jump	%QD:StdConic
E0/1FC4  jump	%QD:DrawConic
E0/1FC8  jump	%QD:SetScaleAndMap
E0/1FCC  jump	%QD:DrawCursor
E0/1FD0  jump	%QD:UndrawCursor
E0/1FD4  jump	%QD:vAngleFromSlope
E0/1FD8  jump	%QD:vSlopeFromAngle
E0/1FDC  jump	%QD:RgnBlt
E0/1FE0  jump	%QD:SharedMRSetup
E0/1FE4  jump	%QD:ShareShieldStuff
E0/1FE8  jump	%QD:GetCharVals
E0/1FEC  jump	%QD:DoFntFlgMods
E0/1FF0  jump	%QD:AddExtras
E0/1FF4  jump	%QD:CalcSlop
E0/1FF8  jump	%QD:GetFntInf
E0/1FFC  long	OldScanInt (QD:Cursor.asm).  QD keeps the old scanline interrupt value here
	while QD is active.  QDShutDown restores it.
E0/2000..E0/3FFF	Hi-Res page 1 display buffer.
E0/4000..E0/5FFF	Hi-Res page 2 display buffer.
E0/C000..E0/CFFF	Softswitches, etc (like bank zero).
E0/D000..E0/FFFF	Like bank zero (language card RAM is separate).

¥¥¥ Bank E1
E1/0000..E1/2000	Vectors and various other stuff, owned by system.
E1/0000..	Vectors accessible through GetVector/SetVector
	(The vector reference number times 4 is an offset into bank $E1)
E1/0000  jump	System Tool dispatcher
E1/0004  jump	System Tool dispatcher, glue entry
E1/0008  jump	User Tool dispatcher
E1/000C  jump	User Tool dispatcher, glue entry
E1/0010  jump	Interrupt mgr
E1/0014  jump	COP mgr
E1/0018  jump	Abort mgr
E1/001C  jump	System Death mgr
E1/0020  jump	AppleTalk interrupt
E1/0024  jump	Serial interrupt
E1/0028  jump	Scanline interrupt
E1/002C  jump	Sound interrupt
E1/0030  jump	VertBlank interrupt
E1/0034  jump	Mouse interrupt
E1/0038  jump	1/4 sec interrupt
E1/003C  jump	Keyboard interrupt
E1/0040  jump	ADB Response byte int
E1/0044  jump	ADB SRQ int
E1/0048  jump	Desk Acc mgr
E1/004C  jump	FlushBuffer handler
E1/0050  jump	KbdMicro interrupt
E1/0054  jump	1 sec interrupt
E1/0058  jump	External VGC int
E1/005C  jump	other interrupt
E1/0060  jump	Cursor update
E1/0064  jump	IncBusy
E1/0068  jump	DecBusy
E1/006C  jump	Bell vector
E1/0070  jump	Break vector
E1/0074  jump	Trace vector
E1/0078  jump	Step vector
E1/007C  jump	[install ROMdisk]
E1/0080  jump	ToWriteBram
E1/0084  jump	ToReadBram
E1/0088  jump	ToWriteTime
E1/008C  jump	ToReadTime
E1/0090  jump	ToCtrlPanel
E1/0094  jump	ToBramSetup
E1/0098  jump	ToPrintMsg8
E1/009C  jump	ToPrintMsg16
E1/00A0  jump	Native Ctrl-Y
E1/00A4  jump	ToAltDispCDA (ToPg2Kludge)
E1/00A8  jump	GS/OS call [inline parms = word, long]
E1/00AC  jump	OS vector (os_switch, called before application launch)
E1/00B0  jump	GS/OS(@parms,call) [stack parms]
E1/00B4  jump	OS_P8_Switch (A = @@@)
E1/00B8  word	OS_Public_Flags
	  bit 15 = No Inits/DAs (user Shift-booted)
	  bits 14..2 = reserved
	  bit  1 = GSBug is Installed (GSBug 1.7 and later)
	  bit  0 = GSBug is Active (GSBug 1.7 and later)
E1/00BC  byte	OS_KIND (byte: 0=P8, 1=GS/OS) currently-running OS, $FF=in transition
E1/00BD  byte	OS_BOOT (byte: 0=P8, 1=GS/OS)
E1/00BE  word	OS_BUSY (bit 15=busy, other bits have some strange uses; see
	the "Kidding" subproject of GSToolbox)
E1/00C0  ptr	MsgPtr (for internationalizing the text CDA menu, control panel,
	and monitor)

E1/00C3	IRQ_INTFLAG	EQU MSGPOINTER+3	; DS 1,0 ;Status of	INTFLAG at interrupt time
E1/00C4	IRQ_DATAREG	EQU IRQ_INTFLAG+1	; DS 1,0 ;Status of	DATAREG at interrupt time
E1/00C5	IRQ_KMSTATUS	EQU IRQ_DATAREG+1	; DS 1,0 ;Status of	KMSTATUS at interrupt time
E1/00C6	IRQ_SECFLAG	EQU IRQ_KMSTATUS+1	; DS 1,0 ;0/<>0 = int not processed/processed
E1/00C7	IRQ_SER1	EQU IRQ_SECFLAG+1	; DS 1,0 ;Interrupt	info for users
E1/00C8	IRQ_SER2	EQU IRQ_SER1+1	; DS 1,0 ;Interrupt	info for users
E1/00C9	IRQ_APTLKHI	EQU IRQ_SER2+1	; DS 1,0 ;Interrupt	info for users
E1/00CA	IRQ_VOLUME	EQU IRQ_APTLKHI+1	; DS 1,0 ;Volume used during interrupt time
E1/00CB  byte	IRQ_ACTIVE nonzero if called during IRQ
	  The firmware interrupt handler increments this on the way into an interrupt
	  and decrements it on the way out.  The Memory Manager never compacts memory
	  (either in the CompactMem call or in doing a NewHandle or SetHandleSize or
	  whatever) if this byte is nonzero. -- So generally interrupt routines can
	  call the Memory Manager safely, provided that the BUSY flag is zero, without
	  confusing foreground tasks that are using their handles without locking them.
E1/00CC	IRQ_SOUNDD	EQU IRQ_ACTIVE+1	; ds 1,0 ; sound register during IRQ
E1/00CC  ???	osc_no_irq	Sound oscillator generating irq

E1/00CF	SIOFLAG	EQU $E100CF	; DS 1,0 ;Slts enabled via init call to	Misc Tl Loc
E1/00D0	INMASK	EQU SIOFLAG+1	; DS 3,0 ;AND mask / OR mask / slot #
E1/00D0	InSlot	equ InMask
E1/00D1	InOr	equ InSlot+1
E1/00D2	InAnd	equ InOr+1
E1/00D3	OUTMASK	EQU INand+1	; DS 3,0 ;AND mask / OR mask / slot #
E1/00D3	OutSlot	equ OutMask
E1/00D4	OutOr	equ OutSlot+1
E1/00D5	OutAnd	equ OutOr+1
E1/00D6	ENSONIQFLG	EQU OUTMASK+3	; DS 1,0 ;0=chip installed / 1=no chip installed
E1/00D7	IRQ_MOUSVBL	EQU ENSONIQFLG+1	; DS 1,0 ;0 if mouse not using VBL

E1/00D8  long	HBPTR	EQU IRQ_MOUSVBL+1	; DS 4,0 ;Heart beat pointer to 1st item in list
E1/00DC  long	TICKCNT	EQU HBPTR+4	; DS 4,0 ;Tick count updated by heart beat
E1/00E0  byte	MOUSESLOT	EQU TICKCNT+4	; DS 1,0 ;Mouse slot in use
E1/00E1	EVMGRDATA	EQU MOUSESLOT+1	; DS 30,$00 ;Event manager permanent information
E1/00E1  word	JournalFlag	equ EVMGRDATA	; <0-play back, 0-no journal, >0-record
E1/00E3  long	JournalPtr	equ JournalFlag+2	; address of journaling driver
E1/00E7	EMBStat	equ JournalPtr+4	; mouse button status
E1/00E9	EMXPos	equ EMBStat+2	; X position
E1/00EB	EMYPos	equ EMXPos+2	; Y position
E1/00ED..00F8	TaskHead (RAM part of mouse card heartbeat task--12 bytes)
E1/00F9..00FE	Unused???
E1/00FF  byte+	BusyFlag
E1/0100  byte	This isn't really part of the BUSY flag, but people overflow their 16-bit STZ BUSYFLAGs into this location.
E1/0101  byte	SCCSTAT	EQU BusyFlag+2	; DS 1,0 ;=0 then not SCC int- <>0 then	SCC int
E1/0102  byte	SCCFLAG	EQU SCCSTAT+1	; DS 1,0 ;0=no ApTalk-$3C=chanA-$3B=chanB=ApTalk
E1/0103  byte	SCCFLAG2	EQU SCCFLAG+1	; DS 1,0 ;Aptalk int mask -$07=chanB-$38=chanA
E1/0104  byte	SERFLAG	EQU SCCFLAG2+1	; DS 1,0 ;Ser int msk-$07=chanB-$38=chanA-$3F=both
E1/0105  byte	SCC1	EQU SERFLAG+1	; DS 1,0 ;1st data byte read in by int handler
E1/0106  byte	SCC2	EQU SCC1+1	; DS 1,0 ;2nd data byte read in by int handler
E1/0107  byte	SCC3	EQU SCC2+1	; DS 1,0 ;3rd data byte read in by int handler
¥ Interrupt uses all variables with 'irq_'
E1/0108	irq_A	EQU SCC3+1	; DS 2
E1/010A	irq_X	EQU IRQ_A+2	; DS 2
E1/010C	irq_Y	equ irq_X+2	; DS 2
E1/010E	irq_S	equ irq_Y+2	; DS 2
E1/0110	irq_D	equ irq_S+2	; DS 2
E1/0112	irq_P	equ irq_D+2	; DS 1
E1/0113	irq_DB	equ irq_p+1	; DS 1 ;irq_DB and irq_e canNOT be separated
E1/0114	irq_e	equ irq_DB+1	; DS 1
E1/0115	irq_K	equ irq_e+1	; DS 1
E1/0116	irq_PC	equ irq_K+1	; DS 2
E1/0118	irq_state	equ irq_PC+2	; DS 1
E1/0119	irq_shadow	equ irq_state+1	; DS 2
E1/011B	irq_mslot	equ irq_shadow+2	; DS 1

E1/0120	AVAL equ $E10120	; DW 0 ;A register value
	*        ; DW 0 ;X register value
	*        ; DW 0 ;Y register value
E1/0126	SVAL	equ AVAL+6	; DW 0 ;S (stack pointer) value
E1/0128	DVAL	equ SVAL+2	; DW 0 ;D (direct (zero page) register)	value
E1/012A	PVAL	equ DVal+2	; DFB 0 ;P (processor status) value
E1/012B	BVAL	equ PVal+1	; DFB 0 ;B (data bank register) value
E1/012C	KVAL	equ BVal+1	; DFB 0 ;K (program	bank register) value
E1/012D	MVAL	equ KVal+1	; DFB 0 ;M (memory status) value
E1/012E	QVAL	equ MVal+1	; DFB 0 ;Q (bit7=speed - bits6-0 match shadow reg)
E1/012F	LVAL	equ QVal+1	; DFB 0 ;L (language card bank 0/1 selected) value
E1/0130	MPVAL	equ LVal+1	; DFB 0 ;m memory access mode bit value
E1/0131	XPVAL	equ MPVal+1	; DFB 0 ;x index mode bit value
E1/0132	EPVAL	equ XPVal+1	; DFB 0 ;e (emulation mode status) value
E1/0133	DDVAL	equ EPval+1	; DFB 0 ;d (disassembly option) value
E1/0134	ASCFILTER	equ DDVAL+1	; DFB 0 ;F (filter mask for ASCII input in mon)
E1/0135	CURSOR	equ ASCFilter+1	; DFB 0 ;Cursor (Current cursor character, ROM 3 only)
E1/0136	NXTCUR	equ Cursor+1	; DFB 0 ;Cursor
E1/0137	CHGCURFLG	equ NxtCur+1	; DFB 0 ;<>0=change	cursor/ 0=no change	cursor

E1/0138	SYSTEMSPD	equ ChgCurFlg+1	; DFB 0 ;$00=slow speed -- $80=high speed mask
E1/0139	SLOTSFG	equ SYSTEMSPD+1	; DFB 0 ;SLTROMSEL value for reset
E1/0139	E1PCLH	equ SYSTEMSPD+1	; DW 0 ;Program counter for 'G'o routine
E1/013B	GOS	equ E1PCLH+2	; DW 0 ;'S' value to return to after a 'G'o cmd
E1/013D	BANKS	equ GOS+2	; DFB 0 ;Source bank
E1/013E	BANKD	equ BANKS+1	; DFB 0 ;Destination bank
E1/013F	EXTENDBNK	equ BANKD+1	; DW 0 ;Extend+bank bytes that user entered
E1/0141	DIGITCNT	equ EXTENDBNK+2	; DFB 0 ;Used by GETNUM - how many digits entered
E1/0142	C1FLAG	equ DIGITCNT+1	; Serial code uses as indicator
E1/0143	C2FLAG	equ C1FLAG+1	; serial code uses as indicator
		(Indexed from $E10143-$C1, "system-clobbered default flag")
E1/0144	CURSHIFTER 	equ C2FLAG+1	; Shifts to 0 which causes cursor to flash
E1/0145	EXTENDBNKS	equ CURSHIFTER+1	; Saved extend+bank bytes entered
E1/0147	IRQ_3031SOUND	equ EXTENDBNKS+2	; Jmp vector to Apple sound irqs
E1/0148	asnd_vect	Apple-reserved oscillators irq vectors (Sound:Snd.Equ.aii)
E1/014C	KEYTASKHDR0	equ $E1014C	; Key press task handler buffer, 12 BYTES
E1/0158	EVMKEYBUFF	equ KEYTASKHDR0+12	; 16 bytes required
E1/0158	WHATEVENT 	equ EVMKEYBUFF	; 1st byte is event number
E1/015A	EVMKEY	equ EVMKEYBUFF+2	; ASCII key pressed is here

E1/0168	RDMEMDATA	equ EVMKEYBUFF+16	; Powerup byte read from keyboard micro
E1/0169	TOGGLEPAT 	equ RDMEMDATA+1 	; Speaker ptggle ptrn for NEWBELL1 sounds
E1/016B	DURATION 	equ TOGGLEPAT+2	; Hold time counter for NEWBELL1
E1/016D	PITCH	equ DURATION+2 	; User chosen pitch value for NEWBELL1
E1/016F	VOLUME	equ PITCH+2	; Volume counter for NEWBELL1
E1/0170	TP2THDR	equ VOLUME+1 	; Task header for text page 2 copier
E1/0174	TP2TCNT	equ TP2THDR+4	; VBL count
E1/0176	TP2TSIG	equ TP2TCNT+2	; Signature byte
E1/0178	TP2TJMP	equ TP2TSIG+2	; Jmp vector
E1/017C	TP2MODE	equ TP2TJMP+4	; 0/1 text page 2 copier off/on
E1/017D  byte	ROMDAACT	 0 = Do not activate, <> = activate
	Bits 7 and 6 are used as flags.  ROM 3 accidentally assumes that bit 7
	powers up as 0!  If it comes up as 1, the user gets Visit Monitor and
	Memory Peeker whether they want them or not (regardless of BRAM location
	$59, that is).
E1/017E  word	NOTESEQ	equ ROMDAACT+1	; 2 bytes for note sequencer usage
E1/0180  jump	ToBusyStrip
E1/0184  jump	ToStrip
E1/0188  long	DefaultTPTPtr	equ $E10188	; for SetDefaultTPT (moved equate 25-Sep-90 DAL)
E1/018C	STEPSP	equ $E1018C	;Step/Trace return address after each instruction
E1/018D	JSX	equ STEPSP+1	;Flag for real time execution
E1/018E	KEYUCVER	equ JSX+1 	;KeyUc version#
E1/018F	ORGMEMORY	equ KEYUCVER+1 	;Used in executed BRK/COP disassembly

¥ New (ROM 3?) locations for mouse to be used
E1/0190	lowabsx	equ ORGMEMORY+1     ;Mouse x/y absolute position
E1/0191	lowabsy	equ lowabsx+1	;
E1/0192	highabsx	equ lowabsy+1	;
E1/0193	highabsy	equ highabsx+1	;
E1/0194	MseInfo	equ highabsy+1	;Bits 6, 7 for Y clamps
E1/0195	MseSpare	equ MseInfo+1	;For mouse routine usage
E1/0196	msestat	equ MseSpare+1	;Button 0/1 interrupt status byte
E1/0197	msemode	equ msestat+1	;Mode byte
E1/0198  jump	%%FirmwarePatcher
E1/0198	MDISPATCH	equ msemode+1 	;DS 4,0 for Jmp vector to monitor dispatch
E1/019C	MAINSIDEPATCH	equ MDISPATCH+4	;DS 4,0 for Jmp vector to main side dispatch
E1/01A0	GUS	equ MAINSIDEPATCH+4 ;DS 4,0 for gs/os scsi manager usage
E1/01A4	ROMDEBUGGER	equ GUS+4 	;ROM debugger uses for storing data bank
E1/01A5  byte	IsPanelActive/GSC	Bit7=1, GSc; Bit6=1, don't install text Control Panel
E1/01A6 	CLRHOLES		EQUDS.B	1	;0=CLEAR, <>0 NOT CLEAR
E1/01A7 	HIGHBANK		EQUDS.B	1	;Used to handle bank crossing
E1/01A8 	FLIPSCRN		EQUDS.B	1	;Bit7, flip between txtpage1 and 'brk scrn
E1/01A9 	DEFAULTSLT	EQUDS.L	1	;Jmp vctr to restor default slt assignment
E1/01AD 	RESTORSLT		EQUDS.L	1	;Jmp vctr to restor system slot assignment
E1/01B1 	CYAVER		EQUDS.B	1	;$00 = FPI, $40 = CYA
E1/01B2  jump	MidiInputPoll
E1/01BA	JSX		EQUDS.B	1	;Bit7:real time of jsx, bit6: regs display
E1/01BB	SCRNSTAT		EQUDS.B	1	;Store the display before brk, used in 'r'
E1/01B6..E1/01BF	Not used???
E1/01BC  jump	%%LLToolboxVector for ROM 3 (Low Level toolbox vector)
	See GSToolbox:Patch:Patch3:ControlMgr.pch.
	This vector is the one and only place to cleanly patch dispatches
	to many of the ROM-based control defprocs (the ones that don't have
	a tool call to get the address).
	The Window Manager also calls this when windows get activated and
	deactivated (but I don't know what that's especially useful for).
E1/01C0  byte	atport	equ $E101C0 (0=net not using serial chip, 1=printer port, 2=modem port)
E1/01C1  byte	atslot	equ $E101C1
E1/01C2  byte	pmslot	equ $E101C2
E1/01C3 	USEROPC		EQUDS.B	1	;User opcode
E1/01C4 	USEROPRL		EQUDS.B	1	;User low operand
E1/01C5 	USEROPRH		EQUDS.B	1	;User high operand
E1/01C6 	USEROPRK		EQUDS.B	1	;User program bank
E1/01C7 	JMPNOBRA		EQUDS.B	1	;JML, $5c, to jmp to handle user nobranch opcode
E1/01C8 	NOBRAPCL		EQUDS.B	1	;Nobranch address, pcl
E1/01C9 	NOBRAPCH		EQUDS.B	1	;Nobranch address, pch
E1/01CA 	NOBRAPCK		EQUDS.B	1	;Nobranch address, pck
E1/01CB 	JMPBRACH		EQUDS.B	1	;JML, $5c, to jmp to handle user branch opcode
E1/01CC 	BRACHPCL		EQUDS.B	1	;Branch address, pcl
E1/01CD 	BRACHPCH		EQUDS.B	1	;Branch address, pch
E1/01CE 	BRACHPCK		EQUDS.B	1	;Branch address, pck
E1/01CF 	KPMNEMSP		EQUDS.B	1	;{MSA 4/28/89} Stores Emul SP in Step/Trace Code
E1/01D0  word	warm_cold_flag (0 = cold GS/OS startup/shutdown, 1=warm)

E1/0200  jump	Memory Mover
E1/0204  jump	Set System Speed
E1/0208  jump	Slot Arbiter
E1/020C  jump	SERBASIC		EQUDS.L 1	;Jump vector for serial BASIC (Address of serial code BASIC patch)
E1/0210  jump	SERPASCAL		EQUDS.L 1	;Jump vector for serial PASCAL (Address of serial code Pascal patch)
E1/0214  jump	SEREXTERL		EQUDS.L 1	;Jump vector for serial external patch (Address of serial code EXTERNAL patch)
E1/0218  jump	INDINTVCTR		EQUDS.L 1	;Hardware independent interrupt vctr ("not done"?)
E1/021C  jump	IRQ_MIDI  Special vector for Midi Interrupt polling
E1/0220  jump	HyperCard IIgs callback
E1/0224  word	Reserved for cramming an RTL here, in case somebody like Greg Templeman needs to.

E1/02B8	FILL2CLAMPS	equ $E102B8
E1/02B8  word	LOWXCLAMP	equ FILL2CLAMPS	; Low X clamp
E1/02BA  word	LOWYCLAMP	equ LOWXCLAMP+2	; Low Y clamp
E1/02BC  word	HIXCLAMP 	equ LOWYCLAMP+2	; High X clamp
E1/02BE  word	HIYCLAMP	equ HIXCLAMP+2	; High Y clamp

E1/02C0..E1/03BF	Image of Battery RAM.
	On ROM 1, the mapping is address = $E1/02C0 + parm_number.
	On ROM 3, it is much weirder (see GSToolbox:Misc.Tools).
E1/02F6  byte	MinDiskParm	equ $E102F6	;Minimum disk parm in battery ram
E1/02F7  byte	MaxDiskParm	equ $E102F7	;Maximum disk parm $0-$10
E1/03C0  long	TPTPtr	equ $E103C0	; Ram based TPT Pointer
E1/03C4  long	U_TPTPtr	equ TPTPtr+4	; Ram based User TPT Pointer
E1/03C8  long	WAPTPtr	equ U_TPTPtr+4	; Pointer to Work Area Pointer Table
E1/03CC  long	U_WAPTPtr	equ WAPTPtr+4	; Pointer to users ...

E1/03D0	SCALEDATA	EQU $E103D0 (ADB)
E1/03D0  word	YMULTIPLY	EQU SCALEDATA	;AREA IN BANK $E1 (ADB)
E1/03D2  word	XMULTIPLY	EQU YMULTIPLY+2 (ADB)
E1/03D4  word	YOFFSET	EQU XMULTIPLY+2 (ADB)
E1/03D6  word	XOFFSET	EQU YOFFSET+2 (ADB)
E1/03D8  word	YDIVIDE	EQU XOFFSET+2 (ADB)
E1/03DA  word	XDIVIDE	EQU YDIVIDE+2 (ADB)
E1/03DC  long	VCTRCPLT	EQU $E103DC	;COMPLETION VECTOR ADDRESS, 4 BYTES (ADB)

E1/03D0..E1/03DF	ADBSCALE 	equ $E103D0	; 16 bytes absolute device scale data area

E1/03E0  byte	TIMEOUT	equ $E103E0	; DFB 0 ;Timeout counter
E1/03E1  long	CLKRDATA	equ TimeOut+1	; DS 4,0 ;Time read	from clock in seconds
E1/03E5  long	CLKWDATA	equ ClkRData+4	; DS 4,0 ;Time to write to clock in seconds
E1/03E9..E1/03FF	ASCIITIME	equ ClkWData+4	; DS 23,0 ;Time in ASCII 'mm/dd/yy hh:mm:ss am/pm'

E1/0400..E1/07FF	text page 1 (hardware displays from here)
E1/0800..E1/0BFF	text page 2 (hardware displays from here)

E1/0F6D	SmartPort vector table (HOOKS)
E1/0F6D  word	Length (of hook table?)
E1/0F6F  8 bytes	RDADDRHOOK
E1/0F77  8 bytes	READDATAHOOK
E1/0F7F  8 bytes	WRITEDATAHOOK
E1/0F87  8 bytes	SEEKHOOK
E1/0F8F  8 bytes	FORMATHOOK
E1/0F97  8 bytes	WRITETRKHOOK
E1/0F9F  8 bytes	VERIFYHOOK
E1/0FA7  8 bytes	VECTORHOOK
E1/0FAF	HOOKS_END
E1/0FB0..E1/0FC8	SMARTPORTTEMP ; 25 bytes, SmartPort uses to replace screenholes
	*GSFirmware:SmartPort:equates.aii:
	*            //e       //c      //gs       Rev D
	*  -----------------------------------------------------
	*  ProFlag  $478+n    $478     $E10FB0
	*  Retry    $4F8+n    $4F8     $E10FB1
	*  SHTemp1  $578+n    $578     $E10FB2
	*  Retry2   $578+n    $578     $E10FB3
	*  SHTempX  $5F8+n    $5F8     $E10FB4
	*  SHTempY  $678+n    $678     $E10FB5
	*  Power1   $6F8+n    ----     $E10FB6
	*  Power2   $778+n    ----     $E10FB7
	*  NumDevices $7F8+n  $6FE     $E10FB8
	*  SvBcL    $6F8      $6F8     $E10FB9
	*  SvBcH    $778      $778     $E10FBA
	*  MSlot    $7F8      $7F8     $0007F8
	*  RamUnit  ----      ----     $E10FBC
	*  RomUnit  ----      ----     $E10FBD
	*  DumbUnit ----      ----     $E10FBE
	*  SmartUnit ---      ----     $E10FBF
	*  ReMap    ----      ----     $E10FC0
	*                     thru     $E10FC3
	*                                          $E10FC4
	*  remap expansion space                   $E10FC5 
	*  SavRomSel   ----    ----    $E10FC4     $E10FC6
	*  IntEnbl     ----    ----    $E10FC5     $E10FC7
	*  BramFlag    ----    ----    $E10FC6     $E10FC8
	*  CmdRetry    ----    ----    $E10FC7     $E10FC9
	*  CyaSave     ----    ----    $E10FC8     $E10FCA
	*  AccessFlg   ----    ----     ------     $E10FCB.CC
	*  spares      ----    ----    $E10FC9..F  $E10FCD..F

E1/0FD0  long	MTHANDLE - STORAGE FOR ID TAG HANDLE (Misc Tools)
E1/0FD4  word??	KBDIRQFLAG ; KEYBOARD INTERRUPT FLAG

¥ ADB buffer and variables
E1/0FD6	PENDFLAG ;3rd DATA BUFFER, BANK $E1 (ADB) also called RSPNSFLAG, FLAGS
E1/0FD6	FILL2ADBVAR
E1/0FD6  byte	ADBFLAGS ;ADB variables
E1/0FD7  byte	STATUSTMP ;Holds any pending Uc status
E1/0FD8  byte	SRQNUM ;# of devices installed in SRQ chain
E1/0FD9  byte	SRQCNT ;Count of devices polled since last data
E1/0FDA  byte	SRQPTR ;Pointer of next device in SRQ list
E1/0FDB  byte	SRQMRU ;Most recently used device (top of list)

E1/0FFC  word	Serial:SPEEDSTORE ;Used to keep speed at entry (1 ea port)
E1/0FFE  word	Serial:FIRSTTIME  ;Indexed with $C1

E1/0FFE  byte	SERPWRUP  ;serial port power up byte (low)
E1/0FFF  byte	SERPWRUP2 ;serial port power up byte (high)

¥AppleTalk: lap_equates stuff
E1/1000	Extended/ASEXT (GSFirmware:Serial:equates.aii)
E1/1004  jump	ATLK: BASIC entry (ASBAS)
E1/1008  jump	ATLK: Pascal entry (ASPAS)
E1/100C  jump	ATLK: RamGoComp (completion vector)
E1/1010  jump	ATLK: SoftReset chain
E1/1014  jump	ATLK: RamDispatch (RAMDISPATCH) command dispatcher
E1/1018  jump	ATLK: RamForbid (RAMFORBID)
E1/101C  jump	ATLK: RamPermit (RAMPERMIT)
E1/1020  jump	ATLK: ProEntry (PROENTRY)
E1/1022  jump	ATLK: ProDOS (PRODOS) entry
E1/1026  jump	ATLK: SerStatus (ATSTAT) serial interface status hook
E1/102A  jump	ATLK: SerWrite (ATOUT) serial interface write hook
E1/102E  jump	ATLK: SerRead (ATIN) serial interface read hook
E1/1032  jump	SerBackgnd, for background printing  ;ATBRP (GSFirmware:Serial:equates.aii)
E1/1036  jump	PDispatch, for dispatching packets
E1/103A  jump	init file hook
E1/103E  jump	ATLK: PFI Vector
E1/1042  jump	Cnxx  ;emulation mode entry
E1/1046  jump	CnxxGo ;native mode entry
E1/104A  jump	OnExitVector ;Exit vector for QTRIRQ
E1/104E	colHist	;These first  variables need to be set
E1/104F	defHist	;to zero at initialization, so put them
E1/1050	gBackOff	;together.
E1/1051	needData
E1/1052	addrValid
E1/1053	busyFlag
E1/1054	pktError
E1/1055	deltaT
E1/1056	trailing
E1/1057	curPos
E1/1059	catchProt
E1/105D	protTable ;This table must be filled with $ff's.
E1/108D	whichMouse
E1/108F	seed
E1/1091 	addrUsed
E1/1092	gotCTS
E1/1093	gotData
E1/1094	dest
E1/1095	source
E1/1096	lapType
E1/1097	lBackOff
E1/1098	colTries
E1/1099	defTries
E1/109A	errRec
E1/109C	txBDS
E1/10A0	whichSCC
E1/10A2	ckSum
E1/10A4	freeProt
E1/10A6	scc1A
E1/10A7	scc2A
E1/10A8	scc3
E1/10A9	curRBuf
E1/10AB 	curLen
E1/10AD	curWBuf
E1/10AF	curOffset
E1/10B1	curEnd
E1/10B4	ourstacksave
E1/1155	stksaveflag ;only reserve space to save from $100 up to top
E1/1157	stretaddr
E1/1159	lentosave
E1/115B	oldstack
E1/115D	stacksavea
E1/115F	stacksavex
E1/1161	stacksavey
E1/1163	stacksaveb
E1/1165	stacksavep
E1/1167	nestedflag
E1/1169	dstack
E1/116B	dstate
E1/116C	E1End	;Note the last byte used should not be beyond $e11200
E1/1200	e1lapend

E1/154A..1589	SRQTBL (ADB: $40 byte table, complection vector for each device)

¥Start of GSFirmware:Serial:Serial.equates stuff
E1/158A  byte	Serial:NUMBER		EQUDS.B	1
E1/158B  byte	Serial:OLDCUR		EQUDS.B	1	;Saves cursor while in command
E1/158C  byte?	Serial OLDCUR2		EQUDS.B	1	;Saves cursor while in terminal mode
E1/158E  word	WR3 (indexed as $E1158E-$3B or -$3C,X or ,Y)
E1/1590  word	WR4 (indexed as $E1158E-$3B or -$3C,X or ,Y)
E1/1592  word	WR5 (indexed as $E1158E-$3B or -$3C,X or ,Y)
E1/1594  word	WRCD (indexed as $E1158E-$3B or -$3C,X or ,Y)
E1/1596  word	APTALKFLAG	;MSB says if Appletalk active (indexed from A-$C1)
E1/1598  word	ONEBYTEBUF	;Single char buffer used in XON/XOFF (indexed from A-$C1)
E1/159A  long	SAVEHEARTBEAT	;Time last char was received (indexed from A-$C1)
E1/159E  word	USERINT	;Interrupt instructions from user (app) (indexed from A-$C1)
E1/15A0  word	OLDRR0 (indexed from A-$C1)
E1/15A2  word	DISHONESTY (indexed from A-$C1)
E1/15A4  3 bytes	RCHGADR1 background printing recharge routine address
E1/15A7  3 bytes	RCHGADR2 background printing recharge routine address
¥Text Tools
E1/15AA  byte	ANDin
E1/15AB  byte	ORin
E1/15AC  byte	ANDout
E1/15AD  byte	ORout
E1/15AE  byte	ANDerr
E1/15AF  byte	ORerr
E1/15B0  3 bytes	DevType
E1/15B3  word	InDevPtr or DevPtr
E1/15B7  word	OutDevPt (only uses a word)
E1/15BB  word	ErrDevPt (only uses a word)
E1/15BF  word	ErrHook  (only a word)
¥GSFirmware:Serial:Serial.equates
E1/15C1  long	COMPVECT1 Serial interrupt completion vector
E1/15C5  long	COMPVECT2 Serial interrupt completion vector
E1/15C9  word	BID -- Memory Manager ID for serial buffer (port 1?)
E1/15CB  word	BID -- Memory Manager ID for serial buffer (port 2?)

¥Memory Manager
E1/15FE..E1/1AFF	Memory Manager Stuff
E1/15FE  word	Power up flag--set by monitor (high byte set to zero by monitor)
E1/15FF  byte	RAMDSKPWRUP  nonzero if powered up before
E1/1600  long	MemList	List of used segments
E1/1604  long	PurgeList	List of used but empty handles
E1/1608  long	FreeList	List of free handles
E1/160C  long	Mem01	Beginning of bank 1
E1/1610  long	Mem02	Beginning of bank 2
E1/1614  long	MemE0	Beginning of bank E0
E1/1618  long	MemE1	Beginning of bank E1
E1/161C  long	MemFF	Last segment
E1/1620  ????	GHSize	Handle Size global (word or long??)
E1/1624  word?	NumBanks	Number of 64K banks in machine

E1/1628..E1/163B	Stuff added for 5.0/ROM 3 by Steve Glass in Aug-88 (hinting + OOM queue)
E1/1628  long	LastLowHandle
E1/162C  long	LastHighHandle
E1/1630  long	NewHandleCount
E1/1634  long	ShortCutCount
E1/1638  long	FirstOOMPtr
¥RamDisk equates
E1/1640  word	BlockSize	Maximim size in blocks (word)
E1/1642  long	CurDiskSize	Current disk size in bytes
E1/1646  long	DiskHandles	Pointer to disk handles (single handle for ROM 3)
E1/164A  word	FormatFlag	Flag if RAM disk formatted (what does this mean, exactly?)
¥ DaveL's weirdly-placed global for 6.0
E1/167E	PendingSysBeep2  ;one word for SysBeep2/GetNextEvent (17-Sep-91 DAL for 6.0)
¥ Memory Manager vectorizing stuff
E1/1680..E1/16BB	Memory Manager private vectors
	(Be Very Careful--some of these survive a Command-Ctrl-Reset!)
E1/1680  jump	%MM:MMPatcher
E1/1684  jump	%MM:WarmStart
E1/1688  jump	%MM:Link
E1/168C  jump	%MM:CleanUp
E1/1690  jump	%MM:Search
E1/1694  jump	%MM:CheckFit
E1/1698  jump	%MM:Realloc
E1/169C  jump	%MM:GetFree
E1/16A0  jump	%MM:CreateHandles
E1/16A4  jump	%MM:MoveData
E1/16A8  jump	%MM:SearchFail
E1/16AC  jump	%MM:Compact
E1/16B0  jump	%MM:Purge
E1/16B4  jump	%MM:UserPurge
E1/16B8  jump	%MM:Restart

E1/1700..1AFF	HandleBuf   $E11700 - $E1AFF is used for handles (the initial group)

E1/1B00...???

¥Sound tools
E1/1DB0..	Sound Tools work area (GSToolbox:Sound:Snd.Equ.aii)
E1/1DB0	SYSVOLLOC	;Volume for sound tools is in hi byte

¥MIDISynth:NS.EQU: (and NoteSynth:NS.EQU)
*   12 bytes of reserved ram in bank E1.
*
* It will be set up like this:
E1/1DC4	cubbyhole 	equ $E11DC4		; 12 bytes of my own, forever
E1/1DC4	awake	equ cubbyhole	; set when Note syn has been initialized.
E1/1DC6	myDP	equ cubbyhole+2	; NoteSynth Direct Page
E1/1DC8	busy_Flag 	equ cubbyhole+4	; set when update is running.
E1/1DC9	old_vector	equ cubbyhole+5	; previous IRQ vector stored as 3 bytes
E1/1DCC	userjump	equ cubbyhole+8	; put jml here
E1/1DCD..1DCF	userUpdate	equ cubbyhole+9	; address of user's routine

E1/1DD0..1DD7	AbsClamps  8 bytes for absolute clamps value

E1/1DD8	In 5.0.3 and later, GetAddr($00FF) (in misc tools) returns this address
E1/1DD8	Buffering Queue Data Structure -- The firmware maintains four of these queues in buffer mode
E1/1DD8	QUEUE
E1/1DD8  word	QBASE  Queue buffer space begin
E1/1DDA  word	       Top part of buffer space begin
E1/1DDC  word	QBLEN  Length of buffer space
E1/1DDE  word	QHEAD  Pointer to first queue element
E1/1DE0  word	QTAIL  Pointer to next available buff location

E1/1DE2..@@@	three more buffers, as above?

E1/1E00 	E1BUFFER1 "GSFirmware:Serial:equates.aii"
E1/1F00	E1BUFFER2 "GSFirmware:Serial:equates.aii"

E1/2000..E1/9FFF	Super Hi-Res video buffer.
E1/2000..E1/3FFF	Part of Double Hi-Res page 1.
E1/4000..E1/5FFF	Part of Double Hi-Res page 2.
E1/9D00..E1/9DFF	SCBs for Super Hi-Res.  9D00..9DC7 for lines 0..199.
E1/9E00..E1/9FFF	Color tables for Super Hi-Res.
E1/A000..E1/BFFF	Available through Memory Manager.
E1/C000..E1/CFFF	Softswitches, etc (like bank zero).
E1/D000	ramdata (AppleTalk)
E1/D000..E1/FFFF	Language card (used by GS/OS).
E1/D600..E1/D9FF	ATLK: CmdTable
E1/DA00  long	ATLK: TickCount
E2/0000..EF/FFFF	Not decoded by the GS hardware.  No known use.
F0/0000..F7/FFFF	Used for ROM disks (3rd party).
F8/0000..FB/FFFF	"ROMTOOLS"  If "ROMTOOLS" appears here in high-ASCII, the
	system JSLs to $F8/0020 to install us.  There are old crusty
	versions of GSBug (early 1.5dX) on ROM chips that work like this,
	if you put them on a red "toy card."
F8/0000  8 bytes	ASCII string 'ROMTOOLS' (high bits ON) (EXROMSTR)
F8/0008  word	version number of ROMTOOLS (EXROMVER)
F8/000A..F8/001F	pad area (EXROMPAD)
F8/0020  entry	entry point to install ROMTOOLS (EXROMENTRY)
	* The entry point is called in 16 bit native mode.
	* (e=0, m=0, x=0) The entry point will execute
	* code to install any rom based extensions to the
	* tool set and return with an 'RTL' instruction
	* with the carry flag cleared.  If the rom is found,
	* the version number will be returned in the 16 bit
	* C register after the 'RTL' is executed.

FC/0000..FF/FFFF	ROM 3 image (256K)
FE/0000..FF/FFFF	ROM 1 image (128K)
FE/0000  entry	INITDISMGR, Initialize DISPATCH handler.  Initializes lots of
	vectors, calls TLBootInit, calls the ROMTOOLS vector.  The ROM
	calls this entry once on power up, and GS/OS calls it again early
	in the boot.
FE/0004	MEMORYPEEKER	;Install memory peeker desk acc
FE/0008	TODESKMGR	;Private CDA entry point
FE/000C	APTALKINIT	;Coldstart vector for AppleTalk
FE/0010	APTALKRESET	;Warmstart vector for AppleTalk
FE/0014	ADBSENDTL	;Vctr to send COMMAND to Keyuc
FE/0018	"Apple II" shout sound easter egg vector

¥Memory Manager analyzer triggers
FE/FFFC	NewDebugLoc	;Memory Manager logic analyzer trigger
FE/FFF8	DisposeDebugLoc	;Memory Manager logic analyzer trigger

FF/0000  entry	SERBASPATCH	;Serial code BASIC patch (XQSETUP)
FF/0003  entry	SERPASPATCH	;Serial code PASCAL patch (XQPASCAL)
FF/0006  entry	SEREXTPATCH	;Serial code EXTERNAL patch
FF/0009  entry	??? some sort of serial vector
FF/5600  entry	PROCONINIT	;Initialize protocol converter
FF/5A00  entry	PROCONINIT	;Initialize protocol converter
FF/6400  entry	DIAGS	;Diagnostics start here
FF/7400  entry	DIAGS	;Diagnostics start here
FF/8500  	MSGTBL	;Message 'DW' table starts here
FF/8EA0  entry	CPDEFTBL	;Control Panel BRAM default table
FF/8F00  entry	CTRL_PANEL	;Control Panel desk accessory
FF/F894  entry	COUT
FF/F897  entry	COUT1
FF/FB2B  entry	DOFFSVK
FF/CDE7  entry	STORCH
FF/CEC9  entry	SHOWCUR
FF/CEFC  entry	UPDATE
FF/CF59  entry	SETHOOKS

======================================================================================
======================================================================================

Default TPTs (Toolset order)		Default TPTs (ROM order)

TS  ROM 01  ROM 03  Name		TS  ROM 01  Name
--  ------  ------  ----		--  ------  ----
01  fe01b3  fe01fd  Tool Locator		01  fe01b3  Tool Locator
02  ff0000  fc0000  Memory Manager		04  fe06fd  QuickDraw II
03  fe900a  fea5bd  Misc Tools		03  fe900a  Misc Tools
04  fe06fd  fcfaeb  QuickDraw II		0C  fea747  Text Tools
05  feae6d  fec57b  Desk Manager		05  feae6d  Desk Manager
06  febb03  fee1cf  Event Manager		06  febb03  Event Manager
07  ffbf45  fcdbdf  Scheduler		0B  fec727  Integer Math
08  ff3e00  fccb53  Sound Tools		0A  fed2bb  SANE
09  ff8000  fcd6b2  ADB		02  ff0000  Memory Manager
0A  fed2bb  fc1ae7  SANE		0D  ff00c0  (RAMdisk tools)
0B  fec727  fef043  Integer Math		08  ff3e00  Sound Tools
0C  fea747  febf19  Text Tools		09  ff8000  ADB
0D  ff00c0  fc00c0  (RAMdisk tools)		07  ffbf45  Scheduler
0E  ------  fd0000  Window Manager
0F  ------  fd554a  Menu Manager		TS  ROM 03  Name
10  ------  fd9020  Control Manager		--  ------  ----
11  ------  ------  Loader		02  fc0000  Memory Manager
12  ------  ------  QD Aux		0D  fc00c0  (RAMdisk tools)
13  ------  ------  Print Manager		0A  fc1ae7  SANE
14  ------  fc4765  Line Edit		14  fc4765  Line Edit
15  ------  fc6656  Dialog Manager		15  fc6656  Dialog Manager
16  ------  fc9382  Scrap Manager		16  fc9382  Scrap Manager
17  ------  ------  Standard File		1B  fc9e1e  Font Manager
18  ------  ------  (reserved)		08  fccb53  Sound Tools
19  ------  ------  Note Synth		09  fcd6b2  ADB
1A  ------  ------  Note Seq		07  fcdbdf  Scheduler
1B  ------  fc9e1e  Font Manager		1C  fce701  List Manager
1C  ------  fce701  List Manager		04  fcfaeb  QuickDraw II
			0E  fd0000  Window Manager
			0F  fd554a  Menu Manager
			10  fd9020  Control Manager
			01  fe01fd  Tool Locator
			03  fea5bd  Misc Tools
			0C  febf19  Text Tools
			05  fec57b  Desk Manager
			06  fee1cf  Event Manager
			0B  fef043  Integer Math
[end of document]
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSInfo/GS Message Type List b/IIGS.601.SRC/GSInfo/GS Message Type List
new file mode 100644
index 0000000..d497fe6
--- /dev/null
+++ b/IIGS.601.SRC/GSInfo/GS Message Type List	
@@ -0,0 +1 @@
+===============================
GS Message Center message types
===============================

Modification History:

 7-Feb-91 Dave Lyons	Initial Release
24-Feb-91 Dave Lyons	Added message #6 for Event Manager.
21-Oct-92 Dave Lyons	Noted long-standing use of type $88 by Network Start.
			Added $11, $B002.

=============================================================================
Here is a list of statically-assigned Mesage Center message types.

When convenient, use MessageByName instead--but if you want a static number,
update this file so everybody knows what you're using.

Third parties should use MessageByName; we don't generally assign these
numbers.  (MessageByName dynamically finds a message type $8000 to $FFFF.)
=============================================================================

0001  = Finder: Pascal-string pathnames to open or print
0002  = Window Manager: desktop pattern/picture (5.0)
0003  = Finder front-window message
0004  = reserved for Menu Manager (fall-down checking broken--don't use)
0005  = used by Scrambler & maybe other CDAs, for toolbox vector chaining
0006  = used by Event Manager for default mouse position (6.0)
0007  = used by SetStart (Greg Branche)
0011  = Finder: GS/OS string pathnames to Open or Print (6.0)
0023  = QuickDraw: FastFont handle (the first 2 bytes are a signature)
0024  = used by Video Overlay toolset (decimal 36)
0044  = AppleShare control panel: MySrvrMessID
0046  = AppleShare control panel: MyVolMessID
0088  = used by GS.OS:NetBoot:Start:Start.aii
8000+ = Used by MessageByName (msg begins with Pascal-string name)
        NEVER USE A STATIC MESSAGE TYPE IN THE RANGE 8000..FFFF
B002  = Used in MM:mm.loader.asm for RAM-based Memory Manager (obsolete, internal)
B0B0  = Stolen by Claris for AWGS

[end of document]
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSInfo/GS Request Codes b/IIGS.601.SRC/GSInfo/GS Request Codes
new file mode 100644
index 0000000..79f24b7
--- /dev/null
+++ b/IIGS.601.SRC/GSInfo/GS Request Codes	
@@ -0,0 +1 @@
+============================
GS SendRequest Request Codes
============================

Modification History:

30-Mar-95 Dave Lyons	Allocated 7F00..7FFF for A2PRO (Tim Tobin / Lunatic Bruce
			E'Sex, a2pro@genie.geis.com).
 3-Sep-92 Dave Lyons	Created file from 6.0 Interface files + 6.0.1 stuff
 8-Sep-92 Dave Lyons	Added systemSaysDoClipboard.
21-Oct-92 Dave Lyons	Added srqQuit and srqOpenOrPrint.

==================================================================================
Here is the list of globally-defined SendRequest request codes, which are in
the range $0000..7FFF.

Do no assign a global code from $8000..FFFF; these are reserved for definition
within various name domains (anybody who invents a unique prefix string gets to
define the non-global codes any way the want to).

SUGGESTED CONVENTIONS

For requests that are mainly sent by a particular tool set, put the tool set
number as the high byte of the request code.  If a particular toolbox call will
be sending the code, you can even put the function number in the other byte.
This gives things like $0502 being sent by DeskStartUp (toolbox function $0205).
So they don't match, but there's some order to it.

The $00xx codes are for random miscellaneous things.  If the Tool Locator sends
any codes, they probably go here, since the $01xx codes are already taken for the
Finder.

If there is some reason to start in on a completely new range of codes, we can
work down from $7FFF quite a ways before we collide with system tool set numbers
(the highest tool set these days is Media Controller, $26).

A few of the codes are mnemonic in stupid ways, like $000E for Ejecting and
$000D for Force Undim.  I'll try not to get too cute.
==================================================================================

0001 = systemSaysBeep, sent by SysBeep2
0002 = systemSaysUnknownDisk, sent by HandleDiskInsert
0003 = srqGoAway
0004 = srqGetrSoundSample
0005 = srqSynchronize
0006 = srqPlayrSoundSample
0008 = systemSaysNewDeskMsg, sent by Desktop in Window Manager
000C = systemSaysDoClipboard (sent by Scrap Manager in 6.0.1)
000D = systemSaysForceUndim (in 6.0.1, GS/OS sends before alerts; SysBeep2 sends)
000E = systemSaysEjectingDev (sent by HandleDiskInsert & used by EasyMount 1.0)
0010 = srqOpenOrPrint (check MessageCenter for msg $0011)
0011 = srqQuit
01xx = reserved for Finder
0100 = finderSaysHello
0101 = finderSaysGoodbye
0102 = finderSaysSelectionChanged
0103 = finderSaysMItemSelected
0104 = finderSaysBeforeOpen
0105 = finderSaysOpenFailed
0106 = finderSaysBeforeCopy
0107 = finderSaysIdle
0108 = finderSaysExtrasChosen
0109 = finderSaysBeforeRename
010A = finderSaysKeyHit
0502 = systemSaysDeskStartUp
0503 = systemSaysDeskShutDown
051E = systemSaysFixedAppleMenu
0F01 = systemSaysMenuKey
1201 = systemSaysGetSysIcon (new for 6.0.1; sent by GetSysIcon in QDAux)
7F00..7FFF = *** Allocated by A2PRO *** (see above)
8000+ = defined within unique request-procedure name domains

[end of document]
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSInfo/GS Resource Types b/IIGS.601.SRC/GSInfo/GS Resource Types
new file mode 100644
index 0000000..b64981b
--- /dev/null
+++ b/IIGS.601.SRC/GSInfo/GS Resource Types	
@@ -0,0 +1 @@
+========================
GS Resource Type Numbers
========================

Modification History:

30-Mar-95 Dave Lyons	Allocated D800..DFFF for A2PRO (Tim Tobin / Lunatic Bruce
						E'Sex, a2pro@genie.geis.com).
21-Oct-92 Dave Lyons	Created file from 6.0 Interface files
 6-Mar-93 DAL			Added $8102.

==================================================================================
Here is the list of globally-defined GS resource types.

	      0000 = illegal
	0001..7FFF = defined by individual applications
	8000..FFFF = defined globally

The globally-defined range breaks down like this:

	8000..BFFF = defined by Apple engineering (see below)
	C000..CFFF = defined by Apple DTS
	D000..D7FF = defined by the Foundation developers (Marc Wolfgram et al)
	D800..DFFF = defined by A2PRO (see above)
    E000..FFFF = reserved for future allocation
==================================================================================

8001 = rIcon
8002 = rPicture
8003 = rControlList
8004 = rControlTemplate
8005 = rC1InputString
8006 = rPString
8007 = rStringList
8008 = rMenuBar
8009 = rMenu
800A = rMenuItem
800B = rTextForLETextBox2
800C = rCtlDefProc
800D = rCtlColorTbl
800E = rWindParam1
800F = rWindParam2
8010 = rWindColor
8011 = rTextBlock
8012 = rStyleBlock
8013 = rToolStartup
8014 = rResName
8015 = rAlertString
8016 = rText
8017 = rCodeResource
8018 = rCDEVCode
8019 = rCDEVFlags
801A = rTwoRects
801B = rFileType
801C = rListRef
801D = rCString
801E = rXCMD
801F = rXFCN
8020 = rErrorString
8021 = rKTransTable
8022 = rWString
8023 = rC1OutputString
8024 = rSoundSample
8025 = rTERuler
8026 = rFSequence
8027 = rCursor
8028 = rItemStruct
8029 = rVersion
802A = rComment
802B = rBundle
802C = rFinderPath
802D = rPaletteWindow
802E = rTaggedStrings
802F = rPatternList
8102 = used by HyperCard IIgs
C001 = rRectList
C002 = rPrintRecord
C003 = rFont

Within a Teach file, type $7001 records the window position & size, and types
$7100..7FFF can be used freely by 3rd parties, provided they use resource names
to make sure the resource is really theirs before interpreting it.

[end of document]
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSInfo/GS Scrap Types b/IIGS.601.SRC/GSInfo/GS Scrap Types
new file mode 100644
index 0000000..5a5d794
--- /dev/null
+++ b/IIGS.601.SRC/GSInfo/GS Scrap Types	
@@ -0,0 +1 @@
+=====================
GS Scrap Type Numbers
=====================

Modification History:

30-Mar-95 Dave Lyons	Allocated 7000..7FFF for A2PRO (Tim Tobin / Lunatic Bruce
						E'Sex, a2pro@genie.geis.com).
14-Dec-92 Dave Lyons	Created file from 6.0 Interface files
 6-Mar-93 DAL			Added more HyperCard IIgs 1.1 stuff

==================================================================================
References:
  Apple IIgs Toolbox Reference Volume 2
  Scrap.h
  GS Technical Note #99, Supplemental Scrap Types
  HyperCard IIgs 1.1 source code
==================================================================================
Here is the list of globally-defined GS scrap types.

0000 = textScrap (raw text)
0001 = picScrap (QuickDraw II Picture)
0002 = sampledSoundScrap (rSoundSample format)
0064 = teStyleScrap (created by Text Edit)
1601 = otherScrap (HyperCard IIgs)
1602 = buttonScrap (HyperCard IIgs)
1603 = fieldScrap (HyperCard IIgs)
1604 = cardScrap (HyperCard IIgs)
1605 = cardPicScrap (HyperCard IIgs)
1606 = bkgndScrap (HyperCard IIgs)
1607 = bkgndPicScrap (HyperCard IIgs)
4945 = iconScrap
7000..7FFF = *** Assigned by A2PRO ***
8001 = maskScrap ("rIcon" in HyperCard IIgs)
8002 = colorTableScrap ("colorSetScrap" in HyperCard IIgs)
8003 = resourceRefScrap
8006 = rPString (used by HyperCard IIgs)

[end of document]
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSInfo/GS Supervisory Driver IDs b/IIGS.601.SRC/GSInfo/GS Supervisory Driver IDs
new file mode 100644
index 0000000..f00a591
--- /dev/null
+++ b/IIGS.601.SRC/GSInfo/GS Supervisory Driver IDs	
@@ -0,0 +1 @@
+=========================
GS Supervisory Driver IDs
=========================

Modification History:

30-Mar-95 Dave Lyons	Allocated $0010..001F for A2PRO (Tim Tobin / Lunatic Bruce
						E'Sex, a2pro@genie.geis.com).
22-Sep-93 Dave Lyons	Created file.

==================================================================================
These are the Apple IIgs Supervisory Driver IDs.

GS/OS has a table of 8-byte entries indexed by the driver number, so there is
motivation to keep the absolute ID numbers fairly low.  I don't know what the
absolute limit (could be as small as 1024, if the table is allocated through
the ALLOC_SEG).
==================================================================================
Apple drivers:

	$0001 = SCC Manager (AppleTalk supervisory driver)
	$0002 = SCSI Manager

3rd-party drivers assigned by A2PRO:

	$0010..001F		*** Assigned by A2PRO ***

3rd party drivers:

	$0020 = RAMFast SCSI Interface (Jawaid Bazyar, 23-Sep-93)
	$0021 = Serial Communications Mgr (Jawaid Bazyar, 23-Sep-93)

[end of document]
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSInfo/GS SysBeep2 Codes b/IIGS.601.SRC/GSInfo/GS SysBeep2 Codes
new file mode 100644
index 0000000..6a6c9b2
--- /dev/null
+++ b/IIGS.601.SRC/GSInfo/GS SysBeep2 Codes	
@@ -0,0 +1 @@
+=======================
GS SysBeep2 sound codes
=======================

Modification History:

30-Mar-95 Dave Lyons	Allocated F90..FFF for A2PRO (Tim Tobin / Lunatic Bruce
			E'Sex, a2pro@genie.geis.com).
 3-Sep-93 Dave Lyons	Created file from 6.0.1 MiscTool.h and the Programmer's
 			Reference for System 6.0.

==================================================================================
Here is the list of all SysBeep2 codes.  Because bits 15 and 14 of the parameter
to SysBeep2 are flags, these codes are in the range $0000..3FFF.

These codes are assigned by Apple, sometimes at the request of third parties.

The Sound control panel has an rTaggedStrings resource that lists the numbers
and names of the sound events that the user sees in the Sound cp's pop-up menu.
==================================================================================

   8000	sbSilence		additive flag: setting bit inhibits playing the standard
				beep in the event that there is no assignment for the sound
   4000	sbDefer			additive flag: setting bit defers the sound until the next
  				GetNextEvent call that allows keyboard or mouse events

v = border flashes if "give visual indication of sound" checkbox is checked
+ = name shows up in the 6.0/6.0.1 Sound control panel pop-up, as shipped from Apple

v  0000	sbAlertStage0
v  0001	sbAlertStage1
v  0002	sbAlertStage2
v  0003	sbAlertStage3
v+ 0004	sbOutsideWindow
v+ 0005	sbOperationComplete
v  0006..0007			reserved for future use
v+ 0008	sbBadKeypress
v+ 0009	sbBadInputValue
v+ 000A	sbInputFieldFull
v+ 000B	sbOperationImpossible
v+ 000C	sbOperationFailed
   000D..0010			reserved for future use
   0011	sbGSOStoP8
   0012	sbP8toGSOS
 + 0013	sbDiskInserted
 + 0014	sbDiskEjected
 + 0015	sbSystemShutdown
   0016				reserved for "volume contents changed"
   0017..002F			reserved for other NotifyProc events
v+ 0030	sbDiskRequest
 + 0031	sbSystemStartup
   0032	sbSystemRestart
v+ 0033	sbBadDisk
   0034	sbKeyClick
   0035	sbReturnKey
   0036	sbSpaceKey
   0037..003F			reserved for future use
 + 0040	sbWhooshOpen
 + 0041	sbWhooshClosed
 + 0042	sbFillTrash
 + 0043	sbEmptyTrash
   0044..004F			reserved for future use
v+ 0050	sbAlertWindow
v+ 0052	sbAlertStop
v+ 0053	sbAlertNote
v+ 0054	sbAlertCaution
v  0055..0059			reserved for AlertWindow use
   005A..005F			reserved for future use
   0060	sbScreenBlanking
   0061	sbScreenUnblanking
   0062..006F			reserved for future use
   0070	sbBeginningLongOperation	(assigned 3-Sep-93, not in 6.0.1 interfaces)
   0071..00FF			reserved for future use
 + 0100	sbYouHaveMail
   0101..0DFF			reserved for future use
v  0Exx	sbErrorWindowBase		ErrorWindow uses $0Exx for errors 0000..00FF)
v  0EFF	sbErrorWindowOther	ErrorWindow uses $0EFF for errors $0100..$FFFF)

v  0Fxx				Sound control panel blinks the screen border for all sounds
   				in this range, if the "Give visual indication of sounds"
				checkbox is checked (regardless of volume).
v  0F00..0F7F			codes that Apple wanted, that get visual indication
v  0F80..0FFF			codes that 3rd parties wanted, that get visual indication
v  0F90..0FFF			*** ALLOCATED BY A2PRO: Tim Tobin / Lunatic Bruce E'Sex, a2pro@genie.geis.com ***
v  0F80  sbFileTransferred		upload/download finished
v  0F81  sbRealtimeMessage		a real-time message needs the user's attention

   1xxx				Codes assigned at request of third parties, if they don't
   				fit better somewhere else.
   1000 sbConnectedToService	Connected to an interactive online service
   1001 sbDisconnectedFromService	Disconnected from an interactive online service
   1002 sbEnteredRealtimeChat	Entered a live chat area on an online service
   1003 sbLeftRealtimeChat		Left a live chat area on an online service
   1004..100F			reserved for future use
   1010 sbFeatureEnabled
   1011 sbFeatureDisabled
   1012..1DFF			reserved for future use
   1E00..1FFF			*** ALLOCATED BY A2PRO: Tim Tobin / Lunatic Bruce E'Sex, a2pro@genie.geis.com ***

   2000..3FFF			Range is clean so far.  If necessary, we could snarf
   				one more bit to use for a flag (bit 13).

   4000..FFFF			Used for duplicates of 0000..3FFF by additive flags

[end of document]
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/ACE/ACE Rel Notes v 1.1 b/IIGS.601.SRC/GSToolbox/ACE/ACE Rel Notes v 1.1
new file mode 100644
index 0000000..b468c04
Binary files /dev/null and b/IIGS.601.SRC/GSToolbox/ACE/ACE Rel Notes v 1.1 differ
diff --git a/IIGS.601.SRC/GSToolbox/ACE/ACE v1.1 b/IIGS.601.SRC/GSToolbox/ACE/ACE v1.1
new file mode 100644
index 0000000..134b4c1
Binary files /dev/null and b/IIGS.601.SRC/GSToolbox/ACE/ACE v1.1 differ
diff --git a/IIGS.601.SRC/GSToolbox/ACE/E16.ACE b/IIGS.601.SRC/GSToolbox/ACE/E16.ACE
new file mode 100644
index 0000000..2a30098
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/ACE/E16.ACE
@@ -0,0 +1 @@
+*********************************************************
*
*  ACE Audio Compression & Expansion Equates
*
*  Copyright (C) 1988
*  Apple Computer, Inc.
*  All Rights Reserved
*
*********************************************************

ACENoError      GEQU    $0000
ACEIsActive     GEQU    $1D01
ACEBadDP        GEQU    $1D02
ACENotActive    GEQU    $1D03
ACENoSuchParam  GEQU    $1D04
ACEBadMethod    GEQU    $1D05
ACEBadSrc       GEQU    $1D06
ACEBadDest      GEQU    $1D07
ACEDataOverlap  GEQU    $1D08
ACENotImplemented GEQU  $1DFF
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/ACE/M16.ACE b/IIGS.601.SRC/GSToolbox/ACE/M16.ACE
new file mode 100644
index 0000000..c121941
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/ACE/M16.ACE
@@ -0,0 +1 @@
+; File: M16.ACE
;
;
; Copyright Apple Computer, Inc. 1988
; All Rights Reserved
;
;

 MACRO
&lab _ACEBootInit
&lab ldx #$011D
     jsl $E10000
 MEND

 MACRO
&lab _ACEStartUp
&lab ldx #$021D
     jsl $E10000
 MEND

 MACRO
&lab _ACEShutDown
&lab ldx #$031D
     jsl $E10000
 MEND

 MACRO
&lab _ACEVersion
&lab ldx #$041D
     jsl $E10000
 MEND

 MACRO
&lab _ACEReset
&lab ldx #$051D
     jsl $E10000
 MEND

 MACRO
&lab _ACEStatus
&lab ldx #$061D
     jsl $E10000
 MEND

 MACRO
&lab _ACEInfo
&lab ldx #$071D
     jsl $E10000
 MEND

 MACRO
&lab _ACECompress
&lab ldx #$091D
     jsl $E10000
 MEND

 MACRO
&lab _ACEExpand
&lab ldx #$0A1D
     jsl $E10000
 MEND

 MACRO
&lab _ACECompBegin
&lab ldx #$0B1D
     jsl $E10000
 MEND

 MACRO
&lab _ACEExpBegin
&lab ldx #$0C1D
     jsl $E10000
 MEND

 MACRO
&lab _ACEActive
&lab ldx #$061D
     jsl $E10000
 MEND
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/ACE/Release Notes.ACE b/IIGS.601.SRC/GSToolbox/ACE/Release Notes.ACE
new file mode 100644
index 0000000..84f3648
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/ACE/Release Notes.ACE	
@@ -0,0 +1 @@
+ACE Toolkit
Release Notes
May 23, 1990

Current Version is 1.2P(d2).  ACEVersion returns $8102.

Change History

d2	JAM:  Rearranged direct page to provide for 16-byte "saxel info" chunk
	beginning at DP address $00.  Moved between-call state information
	for expansion into the saxel chunk, shiften all ACE dp variables below $80
	up by $10 locations.  Arrangement of dp variables at $80 and above is
	unchanged.  This change to ACE should make absolutely NO DIFFERENCE
	whatsoever in its function.  However, if there are third party apps
	out there that rely on knowledge about the ACE dp gained by reverse-
	engineering the code, they may break, since none of the variables below
	$80 are in the same places anymore.  Dem's de breaks, methinks.

Latest Documentation

	ACE ERS version 01:11, dated 7 April 1988.  Please refer to it for specific
	information concerning the changes mentioned above.  The version 01:10 ERS also
	correctly describes the tool, except that the ACEStatus call was incorrectly
	named ACEActive.  The name change does not affect code that was compiled or
	assembled to the 01:10 spec, as the call number and interface have not changed,
	but the new call name should be used by future software.

Known Bugs

	None.

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/ACE/ace.asm b/IIGS.601.SRC/GSToolbox/ACE/ace.asm
new file mode 100644
index 0000000..da2fa4b
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/ACE/ace.asm
@@ -0,0 +1 @@
+
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
*
*  ACE Audio Compression & Expansion
*
*  Copyright (C) 1988, 1990, Apple Computer, Inc., All Rights Reserved
*
*  Authors:
*
*  NAME				PERPETRATOR CODE	WHEREABOUTS
*  ===============  =================== =============================================================
*  Jim Merritt		JAM					Apple II Strategic Technologies Engineering, M/S 70AL, x47737
*  Dave Lyons		DAL					Apple II SW Engineering, M/S 70AL, x49502
*
*  Change History (we join the toolkit already in progress!):
*
*  DATE				PERPETRATOR			CHANGE
*  ===============  =================== =============================================================
*  April 7, 1988	JAM					1.1P, corresponds to ERS Rev. 1:1
*  April 14,1988	JAM					1.1P+, fixes error return in ACEExp/CompBegin
*  May 20,1988		JAM					1.1P++, fixes DataOverlap error return in
*										ACECompress (Bug Report # BCOETF514)
*										(compressed dataset sizes were not being figured
*										correctly, either, so that was fixed, too)
*  90.02.17			JAM					Begin 1.2P, speed enhancements to Expand
*										Expand is now much closer to a classical state machine, utilizing
*										tables that precompute data that the old ACE used to generate for
*										every sample;  the innermost loop has been unwound as well.
*										Code and new macros all work fine, but much work needs to be done
*										to clean up the code and document it more thoroughly.
*										In particular, the "magic" behind the data table generation
*										needs to be explained.  Compress is as yet untouched, and will
*										probably require separate tables of its own.
*										No new ACE calls have been introduced this time around, and all
*										existing calls work exactly as before.	The only difference between
*										this tool and the 1.1 version is its size (1.2 is about 5x larger)
*										and its speed (1.2 is about 3x faster in expansion).
*  90.05.23			JAM					Version 1.2d2.  Rearranged ACE direct page to move
*										expansion state information to the bottom of DP.
*										First 16 bytes of DP are now reserved for "saxel info."
*  25-Sep-90		Dave Lyons (DAL)	version $8103
*       								Adding two calls:  $0D1D GetACEExpState and $0E1D SetACEExpState.
*       								Removed some unnecessary code (several places) that was constructing
*       								error numbers from the on-the-fly X register call number, when the
*       								equates for those errors were already hard-coded to include toolset
*       								number anyway.
*       								Saved a few bytes by changing some CMP #ErrorCondition's into CLC or
*      									SEC as appropriate.
*  91.07.21			JAM					Dave missed a bcc in the part of GetACEExpState where he zeroes
*										the unused portion of the saxel to zeroes.  This fixes
*										BRC #1008113.
* 5-Feb-92			DAL					Changed version number to 1.3 final ($0103).
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

	MACRO
&lab	ExpandingMan	&samplewidth,&bytenow
	LCLA	&phase
	LCLC	&IDelt
	LCLC	&IDeltX
	LCLC	&NewExpIPoint
	
	IF (&samplewidth=3) THEN
&phase	SETA	(&bytenow AND %0000000000001111)
&IDelt	SETC	'IDelt3B'
&IDeltX	SETC	'IDeltX3B'
&NewExpIPoint	SETC	'New3BExpIPoint'
	ELSEIF (&samplewidth=4) THEN
&phase	SETA	(&bytenow AND %0000000000001111)
&IDelt	SETC	'IDelt4B'
&IDeltX	SETC	'IDeltX4B'
&NewExpIPoint	SETC	'New4BExpIPoint'
	ENDIF
&lab
;	Get IDecM
	
	IF		(&samplewidth=3) THEN
		IF (&phase=0) THEN
; 3-bit, phase 0
			sty tempvalue		; save dest index temporarily
			ldy #4				; load from the most distant down,
			lda [srcptr],y		;   so we end up with data we want now
			sta buff+4			;   (buff+0) already in the accumulator.
			ldy #2
			lda [srcptr],y
			sta buff+2
			lda [srcptr]
			sta	buff
			ldy tempvalue		; y once again contains the destptr index
			asl a
		ELSEIF (&phase=1) THEN
; 3-bit, phase 1
			lda	buff
			ror a
			ror a
		ELSEIF (&phase=2) THEN
; 3-bit, phase 2
			lda buff
			rol a
			rol a
			rol a
			xba
		ELSEIF (&phase=3) THEN
; 3-bit, phase 3
			lda buff+1
		ELSEIF (&phase=4) THEN
; 3-bit, phase 4
			lda buff+1
			ror a
			ror a
			ror a
		ELSEIF (&phase=5) THEN
; 3-bit, phase 5
			lda	buff+1
			rol a
			rol a
			xba
		ELSEIF (&phase=6) THEN
; 3-bit, phase 6
			lda buff+2
			ror a
		ELSEIF (&phase=7) THEN
; 3-bit, phase 7
			lda buff+2
			ror a
			ror a
			ror a
			ror a
		ELSEIF (&phase=8) THEN
; 3-bit, phase 8
			lda buff+3
			asl a
		ELSEIF (&phase=9) THEN
; 3-bit, phase 9
			lda buff+3
			ror a
			ror a
		ELSEIF (&phase=10) THEN
; 3-bit, phase 10
			lda buff+3
			rol a
			rol a
			rol a
			xba
		ELSEIF (&phase=11) THEN
; 3-bit, phase 11
			lda buff+4
		ELSEIF (&phase=12) THEN
; 3-bit, phase 12
			lda buff+4
			ror a
			ror a
			ror a
		ELSEIF (&phase=13) THEN
; 3-bit, phase 13
			lda buff+4
			rol a
			rol a
			xba
		ELSEIF (&phase=14) THEN
; 3-bit, phase 14
			lda buff+5
			ror a
		ELSEIF (&phase=15) THEN
; 3-bit, phase 15
			lda buff+5
			ror a
			ror a
			ror a
			ror a
		ENDIF
		and #%0000000000001110
	ELSEIF	(&samplewidth=4) THEN
		IF		(&phase=0) THEN
; 4-bit, phase 0
			sty tempvalue
			ldy #6
			lda [srcptr],y
			sta buff+6
			ldy #4
			lda [srcptr],y
			sta buff+4
			ldy #2
			lda [srcptr],y
			sta buff+2
			lda [srcptr]
			sta	buff
			ldy tempvalue
			asl a
		ELSEIF	(&phase=1) THEN
; 4-bit, phase 1
			lda buff
			ror a
			ror a
			ror a
		ELSEIF	(&phase=2) THEN
; 4-bit, phase 2
			lda buff+1
			asl a
		ELSEIF	(&phase=3) THEN
; 4-bit, phase 3
			lda buff+1
			ror a
			ror a
			ror a
		ELSEIF	(&phase=4) THEN
; 4-bit, phase 4
			lda buff+2
			asl a
		ELSEIF	(&phase=5) THEN
; 4-bit, phase 5
			lda buff+2
			ror a
			ror a
			ror a
		ELSEIF	(&phase=6) THEN
; 4-bit, phase 6
			lda buff+3
			asl a
		ELSEIF	(&phase=7) THEN
; 4-bit, phase 7
			lda buff+3
			ror a
			ror a
			ror a
		ELSEIF	(&phase=8) THEN
; 4-bit, phase 8
			lda	buff+4
			asl a
		ELSEIF	(&phase=9) THEN
; 4-bit, phase 9
			lda buff+4
			ror a
			ror a
			ror a
		ELSEIF	(&phase=10) THEN
; 4-bit, phase 10
			lda buff+1+4
			asl a
		ELSEIF	(&phase=11) THEN
; 4-bit, phase 11
			lda buff+1+4
			ror a
			ror a
			ror a
		ELSEIF	(&phase=12) THEN
; 4-bit, phase 12
			lda buff+2+4
			asl a
		ELSEIF	(&phase=13) THEN
; 4-bit, phase 13
			lda buff+2+4
			ror a
			ror a
			ror a
		ELSEIF	(&phase=14) THEN
; 4-bit, phase 14
			lda buff+3+4
			asl a
		ELSEIF	(&phase=15) THEN
; 4-bit, phase 15
			lda buff+3+4
			ror a
			ror a
			ror a
		ENDIF
		and #%0000000000011110
	ENDIF	
;	at this point, IDecM<<2 is in acc
;	x contains index for [ExIPoint, IDecM] from previous iteration
	ora &NewExpIPoint,x	; preshifted left NumBits+1 places
	tax					; x now has current index value = [ExpIPoint, IDecM]
	lda	&IDelt,x
	clc
	adc ExpMAEDA
	sta ExpMAEDA
	
; at this point, expanded byte value is in A
	beq	@1
	bpl	@2
@1	lda #1
	bra	@3
@2	cmp #$100
	blt	@3
	lda #$FF
@3
	IF		((&bytenow AND %0000000000000001)=0) THEN
			sta	TempValue
	ELSEIF ((&bytenow AND %0000000000000001)=1) THEN
			xba
			ora	TempValue
			sta	[DestPtr],y
			iny
			iny
	ENDIF

	lda &IDeltX,x
	clc
	adc	ExpMAEDA
	sta ExpMAEDA
	
;	Now, bump SrcPtr if necessary
	IF		(&samplewidth=3) THEN
		IF (&phase=15) THEN
; we're in 3-bit expansion, phase 15
			clc
			lda #6
			adc	SrcPtr
			sta	SrcPtr
			bcc	@5
			inc	SrcPtr+2
@5
		ENDIF
	ELSEIF	(&samplewidth=4) THEN
		IF	(&phase=15) THEN
; we're in 4-bit expansion, phase 15
			clc
			lda #8
			adc	SrcPtr
			sta	SrcPtr
			bcc	@6
			inc	SrcPtr+2
@6
		ENDIF
	ENDIF
	
	MEND

	MACRO
&lab	DoItToIt3B
		LCLA	&bytenumber
&bytenumber	SETA	0
&lab
		WHILE &bytenumber<=15 DO
		ExpandingMan	3,&bytenumber
&bytenumber	SETA &bytenumber+1
		ENDW
	MEND

	MACRO
&lab	DoItToIt4B
		LCLA	&bytenumber
&bytenumber	SETA	0
&lab
		WHILE &bytenumber<=15 DO
		ExpandingMan	4,&bytenumber
&bytenumber	SETA &bytenumber+1
		ENDW
	MEND


	MACRO
&lab	IDelt3BTable
		LCLA	&IPt
		LCLA	&bb
		LCLA	&cc
		LCLA	&dd
&lab
&IPt	SETA	0
		WHILE &IPt<=42 DO
		IF		(&IPt=0) THEN
&cc		SETA	0
		ELSEIF	(&IPt=1) THEN
&cc		SETA	3
		ELSEIF	(&IPt=2) THEN
&cc		SETA	4
		ELSEIF	(&IPt=3) THEN
&cc		SETA	5
		ELSEIF	(&IPt=4) THEN
&cc		SETA	6
		ELSEIF	(&IPt=5) THEN
&cc		SETA	7
		ELSEIF	(&IPt=6) THEN
&cc		SETA	8
		ELSEIF	(&IPt=7) THEN
&cc		SETA	9
		ELSEIF	(&IPt=8) THEN
&cc		SETA	10
		ELSEIF	(&IPt=9) THEN
&cc		SETA	11
		ELSEIF	(&IPt=10) THEN
&cc		SETA	12
		ELSEIF	(&IPt=11) THEN
&cc		SETA	13
		ELSEIF	(&IPt=12) THEN
&cc		SETA	15
		ELSEIF	(&IPt=13) THEN
&cc		SETA	16
		ELSEIF	(&IPt=14) THEN
&cc		SETA	18
		ELSEIF	(&IPt=15) THEN
&cc		SETA	20
		ELSEIF	(&IPt=16) THEN
&cc		SETA	22
		ELSEIF	(&IPt=17) THEN
&cc		SETA	24
		ELSEIF	(&IPt=18) THEN
&cc		SETA	26
		ELSEIF	(&IPt=19) THEN
&cc		SETA	29
		ELSEIF	(&IPt=20) THEN
&cc		SETA	32
		ELSEIF	(&IPt=21) THEN
&cc		SETA	35
		ELSEIF	(&IPt=22) THEN
&cc		SETA	39
		ELSEIF	(&IPt=23) THEN
&cc		SETA	43
		ELSEIF	(&IPt=24) THEN
&cc		SETA	47
		ELSEIF	(&IPt=25) THEN
&cc		SETA	52
		ELSEIF	(&IPt=26) THEN
&cc		SETA	57
		ELSEIF	(&IPt=27) THEN
&cc		SETA	63
		ELSEIF	(&IPt=28) THEN
&cc		SETA	69
		ELSEIF	(&IPt=29) THEN
&cc		SETA	76
		ELSEIF	(&IPt=30) THEN
&cc		SETA	84
		ELSEIF	(&IPt=31) THEN
&cc		SETA	92
		ELSEIF	(&IPt=32) THEN
&cc		SETA	102
		ELSEIF	(&IPt=33) THEN
&cc		SETA	112
		ELSEIF	(&IPt=34) THEN
&cc		SETA	123
		ELSEIF	(&IPt=35) THEN
&cc		SETA	135
		ELSEIF	(&IPt=36) THEN
&cc		SETA	149
		ELSEIF	(&IPt=37) THEN
&cc		SETA	164
		ELSEIF	(&IPt=38) THEN
&cc		SETA	180
		ELSEIF	(&IPt=39) THEN
&cc		SETA	198
		ELSEIF	(&IPt=40) THEN
&cc		SETA	218
		ELSEIF	(&IPt=41) THEN
&cc		SETA	240
		ELSEIF	(&IPt=42) THEN
&cc		SETA	264
		ENDIF
&bb		SETA	&cc>>1
&dd		SETA	&cc+&bb
		DC.W	0, &bb, &cc, &dd, 0, -&bb, -&cc, -&dd
&IPt	SETA &IPt+1
		ENDW
	MEND

	MACRO
&lab	IDeltX3BTable
		LCLA	&IPt
		LCLA	&cc
		LCLA	&ee
&lab
&IPt	SETA	0
		WHILE &IPt<=42 DO
		IF		(&IPt=0) THEN
&cc		SETA	0
		ELSEIF	(&IPt=1) THEN
&cc		SETA	3
		ELSEIF	(&IPt=2) THEN
&cc		SETA	4
		ELSEIF	(&IPt=3) THEN
&cc		SETA	5
		ELSEIF	(&IPt=4) THEN
&cc		SETA	6
		ELSEIF	(&IPt=5) THEN
&cc		SETA	7
		ELSEIF	(&IPt=6) THEN
&cc		SETA	8
		ELSEIF	(&IPt=7) THEN
&cc		SETA	9
		ELSEIF	(&IPt=8) THEN
&cc		SETA	10
		ELSEIF	(&IPt=9) THEN
&cc		SETA	11
		ELSEIF	(&IPt=10) THEN
&cc		SETA	12
		ELSEIF	(&IPt=11) THEN
&cc		SETA	13
		ELSEIF	(&IPt=12) THEN
&cc		SETA	15
		ELSEIF	(&IPt=13) THEN
&cc		SETA	16
		ELSEIF	(&IPt=14) THEN
&cc		SETA	18
		ELSEIF	(&IPt=15) THEN
&cc		SETA	20
		ELSEIF	(&IPt=16) THEN
&cc		SETA	22
		ELSEIF	(&IPt=17) THEN
&cc		SETA	24
		ELSEIF	(&IPt=18) THEN
&cc		SETA	26
		ELSEIF	(&IPt=19) THEN
&cc		SETA	29
		ELSEIF	(&IPt=20) THEN
&cc		SETA	32
		ELSEIF	(&IPt=21) THEN
&cc		SETA	35
		ELSEIF	(&IPt=22) THEN
&cc		SETA	39
		ELSEIF	(&IPt=23) THEN
&cc		SETA	43
		ELSEIF	(&IPt=24) THEN
&cc		SETA	47
		ELSEIF	(&IPt=25) THEN
&cc		SETA	52
		ELSEIF	(&IPt=26) THEN
&cc		SETA	57
		ELSEIF	(&IPt=27) THEN
&cc		SETA	63
		ELSEIF	(&IPt=28) THEN
&cc		SETA	69
		ELSEIF	(&IPt=29) THEN
&cc		SETA	76
		ELSEIF	(&IPt=30) THEN
&cc		SETA	84
		ELSEIF	(&IPt=31) THEN
&cc		SETA	92
		ELSEIF	(&IPt=32) THEN
&cc		SETA	102
		ELSEIF	(&IPt=33) THEN
&cc		SETA	112
		ELSEIF	(&IPt=34) THEN
&cc		SETA	123
		ELSEIF	(&IPt=35) THEN
&cc		SETA	135
		ELSEIF	(&IPt=36) THEN
&cc		SETA	149
		ELSEIF	(&IPt=37) THEN
&cc		SETA	164
		ELSEIF	(&IPt=38) THEN
&cc		SETA	180
		ELSEIF	(&IPt=39) THEN
&cc		SETA	198
		ELSEIF	(&IPt=40) THEN
&cc		SETA	218
		ELSEIF	(&IPt=41) THEN
&cc		SETA	240
		ELSEIF	(&IPt=42) THEN
&cc		SETA	264
		ENDIF
&ee		SETA	&cc>>2
		DC.W	&ee, &ee, &ee, &ee, -&ee, -&ee, -&ee, -&ee
&IPt	SETA &IPt+1
		ENDW
	MEND
	
	MACRO
&lab	NewIPoint3BTable
		LCLA	&IPt
		LCLA	&bb
		LCLA	&cc
		LCLA	&dd
&lab
&IPt	SETA	0
		WHILE &IPt<=42 DO
&bb		SETA	(&max(&IPt-1,1))<<4
&cc		SETA	(&min(&IPt+2,42))<<4
&dd		SETA	(&min(&IPt+5,42))<<4
		DC.W	&bb, &bb, &cc, &dd, &bb, &bb, &cc, &dd
&IPt	SETA &IPt+1
		ENDW
	MEND

	MACRO
&lab	IDelt4BTable
		LCLA	&IPt
		LCLA	&bb
		LCLA	&cc
		LCLA	&dd
&lab
&IPt	SETA	0
		WHILE &IPt<=42 DO
		IF		(&IPt=0) THEN
&cc		SETA	0
		ELSEIF	(&IPt=1) THEN
&cc		SETA	3
		ELSEIF	(&IPt=2) THEN
&cc		SETA	4
		ELSEIF	(&IPt=3) THEN
&cc		SETA	5
		ELSEIF	(&IPt=4) THEN
&cc		SETA	6
		ELSEIF	(&IPt=5) THEN
&cc		SETA	7
		ELSEIF	(&IPt=6) THEN
&cc		SETA	8
		ELSEIF	(&IPt=7) THEN
&cc		SETA	9
		ELSEIF	(&IPt=8) THEN
&cc		SETA	10
		ELSEIF	(&IPt=9) THEN
&cc		SETA	11
		ELSEIF	(&IPt=10) THEN
&cc		SETA	12
		ELSEIF	(&IPt=11) THEN
&cc		SETA	13
		ELSEIF	(&IPt=12) THEN
&cc		SETA	15
		ELSEIF	(&IPt=13) THEN
&cc		SETA	16
		ELSEIF	(&IPt=14) THEN
&cc		SETA	18
		ELSEIF	(&IPt=15) THEN
&cc		SETA	20
		ELSEIF	(&IPt=16) THEN
&cc		SETA	22
		ELSEIF	(&IPt=17) THEN
&cc		SETA	24
		ELSEIF	(&IPt=18) THEN
&cc		SETA	26
		ELSEIF	(&IPt=19) THEN
&cc		SETA	29
		ELSEIF	(&IPt=20) THEN
&cc		SETA	32
		ELSEIF	(&IPt=21) THEN
&cc		SETA	35
		ELSEIF	(&IPt=22) THEN
&cc		SETA	39
		ELSEIF	(&IPt=23) THEN
&cc		SETA	43
		ELSEIF	(&IPt=24) THEN
&cc		SETA	47
		ELSEIF	(&IPt=25) THEN
&cc		SETA	52
		ELSEIF	(&IPt=26) THEN
&cc		SETA	57
		ELSEIF	(&IPt=27) THEN
&cc		SETA	63
		ELSEIF	(&IPt=28) THEN
&cc		SETA	69
		ELSEIF	(&IPt=29) THEN
&cc		SETA	76
		ELSEIF	(&IPt=30) THEN
&cc		SETA	84
		ELSEIF	(&IPt=31) THEN
&cc		SETA	92
		ELSEIF	(&IPt=32) THEN
&cc		SETA	102
		ELSEIF	(&IPt=33) THEN
&cc		SETA	112
		ELSEIF	(&IPt=34) THEN
&cc		SETA	123
		ELSEIF	(&IPt=35) THEN
&cc		SETA	135
		ELSEIF	(&IPt=36) THEN
&cc		SETA	149
		ELSEIF	(&IPt=37) THEN
&cc		SETA	164
		ELSEIF	(&IPt=38) THEN
&cc		SETA	180
		ELSEIF	(&IPt=39) THEN
&cc		SETA	198
		ELSEIF	(&IPt=40) THEN
&cc		SETA	218
		ELSEIF	(&IPt=41) THEN
&cc		SETA	240
		ELSEIF	(&IPt=42) THEN
&cc		SETA	264
		ENDIF
&dd		SETA	&cc>>2
&bb		SETA	&cc>>1
		DC.W	0, &dd, &bb, (&bb+&dd), &cc, (&cc+&dd), (&cc+&bb), (&cc+&bb+&dd)
		DC.W	0, -&dd, -&bb, -(&bb+&dd), -&cc, -(&cc+&dd), -(&cc+&bb), -(&cc+&bb+&dd)
&IPt	SETA &IPt+1
		ENDW
	MEND

	MACRO
&lab	IDeltX4BTable
		LCLA	&IPt
		LCLA	&cc
		LCLA	&ee
&lab
&IPt	SETA	0
		WHILE &IPt<=42 DO
		IF		(&IPt=0) THEN
&cc		SETA	0
		ELSEIF	(&IPt=1) THEN
&cc		SETA	3
		ELSEIF	(&IPt=2) THEN
&cc		SETA	4
		ELSEIF	(&IPt=3) THEN
&cc		SETA	5
		ELSEIF	(&IPt=4) THEN
&cc		SETA	6
		ELSEIF	(&IPt=5) THEN
&cc		SETA	7
		ELSEIF	(&IPt=6) THEN
&cc		SETA	8
		ELSEIF	(&IPt=7) THEN
&cc		SETA	9
		ELSEIF	(&IPt=8) THEN
&cc		SETA	10
		ELSEIF	(&IPt=9) THEN
&cc		SETA	11
		ELSEIF	(&IPt=10) THEN
&cc		SETA	12
		ELSEIF	(&IPt=11) THEN
&cc		SETA	13
		ELSEIF	(&IPt=12) THEN
&cc		SETA	15
		ELSEIF	(&IPt=13) THEN
&cc		SETA	16
		ELSEIF	(&IPt=14) THEN
&cc		SETA	18
		ELSEIF	(&IPt=15) THEN
&cc		SETA	20
		ELSEIF	(&IPt=16) THEN
&cc		SETA	22
		ELSEIF	(&IPt=17) THEN
&cc		SETA	24
		ELSEIF	(&IPt=18) THEN
&cc		SETA	26
		ELSEIF	(&IPt=19) THEN
&cc		SETA	29
		ELSEIF	(&IPt=20) THEN
&cc		SETA	32
		ELSEIF	(&IPt=21) THEN
&cc		SETA	35
		ELSEIF	(&IPt=22) THEN
&cc		SETA	39
		ELSEIF	(&IPt=23) THEN
&cc		SETA	43
		ELSEIF	(&IPt=24) THEN
&cc		SETA	47
		ELSEIF	(&IPt=25) THEN
&cc		SETA	52
		ELSEIF	(&IPt=26) THEN
&cc		SETA	57
		ELSEIF	(&IPt=27) THEN
&cc		SETA	63
		ELSEIF	(&IPt=28) THEN
&cc		SETA	69
		ELSEIF	(&IPt=29) THEN
&cc		SETA	76
		ELSEIF	(&IPt=30) THEN
&cc		SETA	84
		ELSEIF	(&IPt=31) THEN
&cc		SETA	92
		ELSEIF	(&IPt=32) THEN
&cc		SETA	102
		ELSEIF	(&IPt=33) THEN
&cc		SETA	112
		ELSEIF	(&IPt=34) THEN
&cc		SETA	123
		ELSEIF	(&IPt=35) THEN
&cc		SETA	135
		ELSEIF	(&IPt=36) THEN
&cc		SETA	149
		ELSEIF	(&IPt=37) THEN
&cc		SETA	164
		ELSEIF	(&IPt=38) THEN
&cc		SETA	180
		ELSEIF	(&IPt=39) THEN
&cc		SETA	198
		ELSEIF	(&IPt=40) THEN
&cc		SETA	218
		ELSEIF	(&IPt=41) THEN
&cc		SETA	240
		ELSEIF	(&IPt=42) THEN
&cc		SETA	264
		ENDIF
&ee		SETA	&cc>>3
		DC.W	&ee, &ee, &ee, &ee, &ee, &ee, &ee, &ee
		DC.W	-&ee, -&ee, -&ee, -&ee, -&ee, -&ee, -&ee, -&ee
&IPt	SETA &IPt+1
		ENDW
	MEND
	
	MACRO
&lab	NewIPoint4BTable
		LCLA	&IPt
		LCLA	&aa
		LCLA	&bb
		LCLA	&cc
		LCLA	&dd
		LCLA	&ee
&lab
&IPt	SETA	0
; -1 -1 -1 -1 2 4 6 8
		WHILE &IPt<=42 DO
&aa		SETA	(&max(&IPt-1,1))<<5
&bb		SETA	(&min(&IPt+2,42))<<5
&cc		SETA	(&min(&IPt+4,42))<<5
&dd		SETA	(&min(&IPt+6,42))<<5
&ee		SETA	(&min(&IPt+8,42))<<5
		DC.W	&aa, &aa, &aa, &aa, &bb, &cc, &dd, &ee
		DC.W	&aa, &aa, &aa, &aa, &bb, &cc, &dd, &ee
&IPt	SETA &IPt+1
		ENDW
	MEND

;------------------------------------------
;
; Equates from procedure ACEDataSeg
;
;------------------------------------------
SystemCall	equ $0000
UserCall	equ $8000
HighByte	equ $FF00
LowByte		equ $00FF
AllBits		equ %1111111111111111
Bit0		equ %0000000000000001
Bit1		equ %0000000000000010
Bit2		equ %0000000000000100
Bit3		equ %0000000000001000
Bit4		equ %0000000000010000
ZeroCrossing equ $80
CompCallNum	equ $9

; To be compatible with Apple standards, FALSE must be zero,
;   TRUE must be non-zero.  To be compatible with Pascal & Modula-2,
;   TRUE must be specifically 1.

TRUE	equ $1
FALSE	equ $0


; ACE Condition Codes (codes at or above ErrorCondition imply carry set...
;   codes below ErrorCondition imply carry clear on function return).

ErrorCondition	equ $0001
*********************************************************
*
*  ACE Audio Compression & Expansion Equates
*
*  Copyright (C) 1988
*  Apple Computer, Inc.
*  All Rights Reserved
*
*********************************************************

ACENoError			equ $0000
ACEIsActive			equ $1D01
ACEBadDP			equ $1D02
ACENotActive		equ $1D03
ACENoSuchParam		equ $1D04
ACEBadMethod		equ $1D05
ACEBadSrc			equ $1D06
ACEBadDest			equ $1D07
ACEDataOverlap		equ $1D08
ACENotImplemented	equ $1DFF


; Miscellaneous constants

VersionNumber	equ $0103			;5-Feb-92 DAL
BlockSize		equ 512
DPASize	equ 	256					; Size of DP area needed by ACE


; Predefined locations in ACE Direct Page.
; This layout defines fixed workspace for all calls.
; Individual calls may use locations LocalArea..$FF for local workspace.

; 90.05.23 JAM:  The direct-page locations from 00..saxelsize-1 are
;	reserved for saxel information.  In version 1.2,
;	only the first 4 bytes are actually used.
;	Now, after every call to ACEExpand, the ACE state
;	information to be inherited by the SUBSEQUENT call
;	to ACEExpand is left in DP locations 00..saxelsize-1.
;
ExpIPoint	equ $00
ExpMAEDA	equ $02
** Since only the first four bytes are currently used, GetACEExpState will return
** $00s for the last 12 bytes.  25-Sep-90 DAL

saxelsize	equ $10	; JAM 90.05.23

OldDP		equ 0+saxelsize		; Caller's DP saved in tool DP 0..1.
DPToolNum	equ 2+saxelsize		; Tool number saved	in tool DP 2..3.
OldBank		equ $4+saxelsize	; DBR value on entry (8bits LSB=MSB)
ErrSP		equ $6+saxelsize	; Cutback SP in case of error.
ErrCode		equ $8+saxelsize
IQUNWPtr	equ $A+saxelsize	; Cur. IQUNW ptr in	tool DP $A..D.
IPShiftPtr	equ $E+saxelsize	; Cur. IPShift Ptr in tool DP $E..11.
SrcPtr		equ $12+saxelsize
DestPtr		equ $16+saxelsize
NumBits		equ $1A+saxelsize
NumBlks		equ $1C+saxelsize
CompIPoint	equ $1E+saxelsize
CompMAEDA	equ $20+saxelsize
LocalArea	equ $80				; Start of call-local workspace in DP.

	INCLUDE 'm16.util2'
	INCLUDE 'm16.memory'
	INCLUDE 'm16.locator'

;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

	ENTRY ACEStatus
	ENTRY ACEBootInit
	ENTRY ACECompBegin
	ENTRY ACECompress
	ENTRY ACEExpBegin
	ENTRY ACEExpand
	ENTRY ACEInfo
	ENTRY ACEReset
	ENTRY ACEShutDown
	ENTRY ACEStartUp
	ENTRY ACEVersion
	ENTRY DeRefHandle
	ENTRY EndDefIQU
	ENTRY NotImp
	Entry GetACEExpState		;added 25-Sep-90 DAL
	Entry SetACEExpState		;added 25-Sep-90 DAL
*         absaddr on
*         instime on
	PRINT GEN, NOMDIR, SYM, DATA
*         KEEP td
	MACHINE M65816
	longa on
	longi on
	
	ACTR	16384

	EXPORT CallTable
CallTable	PROC
	DC.L (TheEnd-CallTable)/4
	DC.L ACEBootInit-1
	DC.L ACEStartUp-1
	DC.L ACEShutDown-1
	DC.L ACEVersion-1
	DC.L ACEReset-1
	DC.L ACEStatus-1
	DC.L ACEInfo-1
	DC.L NotImp-1
	DC.L ACECompress-1
	DC.L ACEExpand-1
	DC.L ACECompBegin-1
	DC.L ACEExpBegin-1
	DC.L GetACEExpState-1		;added 25-Sep-90 DAL
	DC.L SetACEExpState-1		;added 25-Sep-90 DAL
TheEnd	
	ENDP

	EXPORT ACEDataSeg
ACEDataSeg	PROC


; DEFAULT WAVEMODELS
	EXPORT DefWMArea
DefWMArea
	EXPORT DefIQUNW
DefIQUNW
	DC.W (EndDefIQU-StDefIQU)/2

	EXPORT StDefIQU
StDefIQU
	DC.W	3,		4,		5,		6,		7,		8,		9
	DC.W	10,		11,		12,		13,		15,		16,		18
	DC.W	20,		22,		24,		26,		29,		32,		35
	DC.W	39,		43,		47,		52,		57,		63,		69
	DC.W	76,		84,		92,		102,	112,	123,	135
	DC.W	149,	164,	180,	198,	218,	240,	264

	EXPORT EndDefIQU
EndDefIQU
	EXPORT DefIPShift
DefIPShift
	DC.W 4										; packing is to 3..4 bits
	DC.W 5										; starting item: 3-bit shifts
	DC.W 4										; number of 3-bit shifts
	DC.W 9										; starting item: 4-bit shifts
	DC.W 8										; number of 4-bit shifts
	DC.W -1,-1,2,5								; 3-bit shift values
	DC.W -1,-1,-1,-1,2,4,6,8 					; 4-bit shift values
	EXPORT DefWMEnd
DefWMEnd
	ENDP

	EXPORT ACEBootInit
ACEBootInit	PROC
	lda #ACENoError
	clc
	rtl
	ENDP


	EXPORT ACEStartUp
ACEStartUp	PROC
RTL1	equ 1
RTL2	equ RTL1+3
DPToUse	equ RTL2+3
ToolNum	equ 5
TempTN	equ 1

; If non-zero acc on entry, we have direct page, so this call is redundant.
	ldy #ACENoError								; Y is working cond. code (init = 0)
	cmp #0										; Acc should have low word of WAP.
	beq DoTheJob								; If zero, no DP installed.
	ldy #ACEIsActive							; Condition code must be in y
	brl DPUnchanged

; Here, we know that we have a zero acc, so we are really starting up
DoTheJob
	lda DPToUse,s
	bne GetGoing
	ldy #ACEBadDP								; If param is zero,	it's NO GOOD!
	brl DPUnchanged
GetGoing
	pha											; temp storage for DP
	phx											; temporary storage	for tool/fn number
	phy											;   and current error code
	pushword #SystemCall
	phx											; still contains this tool/fn number
	pushword #0
	pha
	lda ToolNum,s
	and #LowByte
	sta ToolNum,s
	_SetWAP

	ply											; get back the error code in y
	plx											;   and the tool/fn	number.
	pla											; got the DP back, too
	phd											; temp store current DP
	tcd
	lda #1
	sta CompIPoint								; CompIPoint initially 1
	stz ExpIPoint								;  ExpIPoint initially 0
	lda #ZeroCrossing
	sta CompMAEDA
	sta ExpMAEDA
	pld											; restore direct page of entry

DPUnchanged	lda RTL2+1,s
	sta DPToUse,s
	lda RTL2-1,s
	sta DPToUse-2,s
	lda RTL1,s
	sta DPToUse-4,s
	pla

;  here, we expect byte-size condition code in y and tool, fn number in x
	cpy #ErrorCondition
	bcc Penultimate
	txa
	xba
	and #HighByte
	pha
	tya
	ora TempTN,s
	ply
	bra FinalOut
Penultimate
	tya
FinalOut	rtl
	ENDP


	EXPORT ACEShutDown
ACEShutDown	PROC
***	cmp #0					; WAP in acc, zero if ACE inactive
	tay						;25-Sep-90 DAL
	beq NotActive			; should be ACENotActive Error

	pushword #SystemCall 	; system tool call
; tool number in X(LSB)...call number in X(MSB)
	txa						; put it where we can mess with it
	and #LowByte			; strip off call number
; reset WAP to zero
	pha						; Tool # whose WAP we want to change
	pushword #0				; Put a long-
	pushword #0				;   word zero into that baby!
	_SetWAP					; And do the job!
	lda #ACENoError			; The condition code.
	bra GoHome

NotActive
**	txa						; call number/tool number now in acc
**	and #LowByte			; save tool number only
**	xba						; put it in msb
**	ora #ACENotActive		; condition code in	lsb
	lda #ACENotActive		;25-Sep-90 DAL
GoHome
	cmp #ErrorCondition		; Sets carry if error.
	rtl
	ENDP

	EXPORT ACEVersion
ACEVersion	PROC
RTL1	equ 1
RTL2	equ RTL1+3
VerNum	equ RTL2+3

	lda #VersionNumber
	sta VerNum,s
	lda #ACENoError
	clc						;25-Sep-90 DAL (was cmp #ErrorCondition)
	rtl
	ENDP

	EXPORT ACEReset
ACEReset	PROC
	lda #ACENoError
	clc						;25-Sep-90 DAL (was cmp #ErrorCondition)
	rtl
	ENDP

	EXPORT ACEStatus
ACEStatus	PROC
RTL1	equ 1
RTL2	equ RTL1+3
RetnVal	equ RTL2+3

	cmp #FALSE				; acc = WAP(lsb) = zero if ACE inactive
	beq GoHome

ImActive
	lda #TRUE

GoHome
	sta RetnVal,s

	lda #ACENoError
	clc						;25-Sep-90 DAL
	rtl
	ENDP

	EXPORT ACEInfo
ACEInfo	PROC
TempTN	equ 1
RTL1	equ 1
RTL2	equ RTL1+3
InfoNum	equ RTL2+3
RetnVal	equ InfoNum+2

	ldy #ACENoError	; init. value for condition code

	lda InfoNum,s
	beq DoTheJob	; actually, should be bad param error

	ldy #ACENoSuchParam
	bra GoHome

DoTheJob		; 
	lda #DPASize	; size of required DP area in bytes
	sta RetnVal,s
	lda #0	; high word is always zero
	sta RetnVal+2,s
; Now ...
GoHome		; 
	lda RTL2+1,s
	sta InfoNum,s
	lda RTL2-1,s
	sta InfoNum-2,s
	lda RTL1,s
	sta InfoNum-4,s
	pla	; get rid of wordsize garbage on stack

;  here, we expect byte-size condition code in y and tool, fn number in x
	cpy #ErrorCondition
	bcc Penultimate
	txa
	xba
	and #HighByte
	pha
	tya
	ora TempTN,s
	ply
	bra FinalOut
Penultimate		; 
	tya
FinalOut	rtl
	ENDP

	EXPORT NotImp
NotImp	PROC
**	txa
**	xba
**	ora #ACENotImplemented
**	cmp #ErrorCondition
	lda #ACENotImplemented
	sec
	rtl
	ENDP

	EXPORT ACECompress
ACECompress	PROC
	EXPORT ACEExpand
ACEExpand
TempTN		EQU 1
RTL1		EQU 1
RTL2		EQU RTL1+3
Method		EQU RTL2+3
NBlks		EQU Method+2
DestOffset	EQU NBlks+2
Dest		EQU DestOffset+4
SrcOffset	EQU Dest+4
Src			EQU SrcOffset+4

ISABUN		EQU LocalArea
IDelt		EQU ISABUN+2
IDeltH		EQU IDelt+2
IDeltQ		EQU IDeltH+2
IDeltX		EQU IDeltQ+2
IDecM		EQU IDeltX+2
IBit0		EQU IDecM+2
IBit1		EQU IBit0+2
IBit2		EQU IBit1+2
IBit3		EQU IBit2+2
BitNow		EQU IBit3+2
ByteNow		EQU BitNow+2
TempValue	EQU ByteNow+2
SrcSize		EQU TempValue+4
SrcEND		EQU SrcSize+4
DestSize	EQU SrcEND+4
DestEND		EQU DestSize+4
ExpMask		EQU DestEND+4
Negative	EQU ExpMask+2
buff		EQU	Negative+2		; this is a four-word (8 byte) buffer

	ldy #0	; I HOPE zeroing y is overkill!
; If zero acc on entry, we have no direct page, so this call cannot work.
	cmp #0
	bne DoTheJob
	ldy #ACENotActive			; Condition code must be in y
	brl DPUnchanged

DoTheJob
	pha							; Save tool's DP space pointer for now
	tdc							; Get ready to save	caller's DP ptr
	pld							; Tool's DP space is active
	sta OldDP					; Caller's DP Pointer is safe & snug
	stx DPToolNum				; In case of error ... tool number here
	sty ErrCode					; In case of error ... error code here
	tsc							; In case of error ...
	sta ErrSP					;    ... cutback stack pointer here
	phb							; In case tool changes
	phb							;    it, put caller's
	pla							;    data bank register
	sta OldBank					;    away for safekeeping.

	lda #4
	sta NumBits
	lda Method,s
	cmp #1
	beq KeepGoing
	lda #3
	sta NumBits
	lda Method,s
	cmp #2
	beq KeepGoing
MethodError	lda #ACEBadMethod	; ERROR: Method other than 1,2 NOT OK
	sta ErrCode
	brl NormalGH
KeepGoing
; NOTE:  Ignore SampleRate parameter for now -- one wave model size fits all
	lda NBlks,s
	sta NumBlks
; set up default table values
SetUpIQU	lda #DefIQUNW>>16
	sta IQUNWPtr+2
	lda #DefIQUNW
	sta IQUNWPtr

SetUpIPS
	lda IQUNWPtr+2
	xba
	pha
	plb
	plb

	lda (IQUNWPtr)
	asl a					; mult by 2
	clc
	adc #2					; offset for count
	adc IQUNWPtr
	sta IPShiftPtr
	lda IQUNWPtr+2
	bcc AdjIPShift
	inc a

AdjIPShift
	sta IPShiftPtr+2
	lda NumBits
	sec
	sbc #3
	asl a
	inc a
	asl a
	tay
	lda (IPShiftPtr),Y
	dec a					; compensation for zero-based access
	asl a
	clc
	adc IPShiftPtr
	sta IPShiftPtr
	bcc LockData
	inc IPShiftPtr+2
LockData
	lda Src+2,s
	tay
	lda Src,s
	phy
	pha
	phy
	pha
	_CheckHandle
	bcc LockSrc
	pla
	pla
	lda #ACEBadSrc
	sta ErrCode
	brl UnlockEnd
LockSrc
	jsl DeRefHandle
	pla
	sta SrcPtr
	pla
	sta SrcPtr+2
	lda Dest+2,s
	tay
	lda Dest,s
	phy
	pha
	phy
	pha
	_CheckHandle
	bcc LockDest
	pla
	pla
	lda #ACEBadDest
	sta ErrCode
	brl UnlockSrc

LockDest
	jsl DeRefHandle
	pla
	sta DestPtr
	pla
	sta DestPtr+2

	lda SrcPtr
	clc
	adc SrcOffset,s
	sta SrcPtr
	lda SrcPtr+2
	adc SrcOffset+2,s
	sta SrcPtr+2

	lda DestPtr
	clc
	adc DestOffset,s
	sta DestPtr
	lda DestPtr+2
	adc DestOffset+2,s
	sta DestPtr+2

	stz SrcSize
	stz SrcSize+2
; generate number of bytes given number	of 512-byte blocks
	lda NumBlks
	sta SrcSize+1
	asl SrcSize
	rol SrcSize+2
	lda SrcSize
	sta DestSize
	lda SrcSize+2
	sta DestSize+2
; Compute SrcSize /	8
; Put SrcSize, shifted right three bits	(JAM 5/20/88 - before, was mistakenly shifting by 8)
;    Mea culpa, mea maxima culpa!!!  This fixes Bug # BCOETF514, Test 2
	lda SrcSize
	sta TempValue
	lda SrcSize+2
	sta TempValue+2
	lsr TempValue+2
	ror TempValue
	lsr TempValue+2
	ror TempValue
	lsr TempValue+2
	ror TempValue
; set the stage for	multiplying TempValue by 3 or 4 to get 3/8 or 1/2 SrcSize
	pei NumBits
	pei TempValue+2
	pei TempValue					; s,1 now holds SrcSize/8
	asl TempValue
	rol Tempvalue+2					; TempValue now holds SrcSize*2/8
AddEighth
	lda TempValue
	clc
	adc 1,s
	sta TempValue
	lda TempValue+2
	adc 3,s
	sta TempValue+2					; TempValue now holds SrcSize*3/8
;		   (first time around, that is --
;		    second time around it's SrcSize/2)
	lda 5,s							; Is that all we need?
	cmp #3
	beq HaveTV						; Yup, now run with	it.
	lda #3							; Set to go around just ONCE more
	sta 5,s
	bra AddEighth					; Go back, jack, and do it again...

HaveTV
	pla								; clean up stack
	pla
	pla
	pei TempValue+2
	pei TempValue
	lda DPToolNum
	xba
	and #LowByte
	cmp #CompCallNum
	beq SaveDSize
	pla
	sta SrcSize
	pla
	sta SrcSize+2
	bra EndCSize
SaveDSize
	pla
	sta DestSize
	pla
	sta DestSize+2
EndCSize

	lda SrcPtr
	clc
	adc SrcSize
	sta SrcEnd
	lda SrcPtr+2
	adc SrcSize+2
	sta SrcEnd+2

	lda DestPtr
	clc
	adc DestSize
	sta DestEnd
	lda DestPtr+2
	adc DestSize+2
	sta DestEnd+2

; Be sure that src/dest overlap, if any, is permissible
CK1
;  IF (SrcPtr > DestPtr)
;   THEN BEGIN IF (SrcPtr < DestEnd) THEN DataOverlapError END
;   ELSE IF (SrcPtr	= DestPtr) THEN CheckIfCompress
	lda SrcPtr+2
	cmp DestPtr+2
	bne CK1A
	lda SrcPtr
	cmp DestPtr
	beq ChkComp
CK1A
	blt CK2
	lda SrcPtr+2
	cmp DestEnd+2
	bne Ck1B
	lda SrcPtr
	cmp DestEnd
CK1B
	blt DataOverlap

CK2
; IF (DestPtr > SrcPtr) AND (DestPtr < SrcEnd)  THEN DataOverlap (JAM 5/20/88)
;   ELSE DataIsOK
	lda DestPtr+2
	cmp SrcPtr+2
	bne ck2a
	lda DestPtr
	cmp SrcPtr
ck2a		; 
	blt DataOK
	lda DestPtr+2
	cmp SrcEnd+2
	bne ck2b
	lda DestPtr
	cmp SrcEnd
Ck2B	bge DataOK
	bra DataOverlap	; fixes BCOETF514, Test 1 (JAM 5/20/88)
ChkComp
; IF ItsCompressCall THEN DataIsOK ELSE	DataOverlapError
	lda DPToolNum
	xba
	and #LowByte
	cmp #CompCallNum
	beq DataOK
DataOverlap
	lda #ACEDataOverlap
	sta ErrCode
	brl UnlockData

DataOK
; Here, the stage has been set for the REAL work.
	stz BitNow
	stz ByteNow
	stz TempValue

Dispatch	lda DPToolNum
	xba
	and #LowByte
	cmp #CompCallNum
	beq DoCompress
	jmp DoExpand

GotoEndFORB	jmp EndForB
GotoEndFORI	jmp EndFORILoop

DoCompress
;   FOR Block := 0 to NBlks-1 DO
FORB		; 
	lda NumBlks
BLoop
	beq GotoEndFORB
ForBBody		; 
;   FOR I := 0 TO (BlockSize - 1) DO BEGIN
FORI
	ldy #0	; I := 0
ILOOP
	cpy #BlockSize	; here, y holds index into cur. block
	bge GotoEndFORI
FORIBody
	stz IDeltQ
	stz IBit0
	stz IBit1
	stz IBit2
	stz IBit3
	lda [SrcPtr],y	; ISABUN := ORD(Data[I])
	and #LowByte	; It's a bytesize quantity
	sta ISABUN
;       IF (ISABUN < CompMAEDA)
	ldx CompMAEDA

;  NOTE:  If CompMAEDA < 0 THEN ISABUN > CompMAEDA!!!
	bmi SetISABUN
	cmp CompMAEDA
	bge SetISABUN
;       THEN IBit[3] := TRUE
	inc IBit3

;       ISABUN := ABS(ISABUN - CompMAEDA);
SetISABUN		; 
	lda ISABUN
	sec
	sbc CompMAEDA
	bpl SetIDelt	; because it's already positive
	eor #allbits	; Turn positive (ABS).  Flip bits...
	inc a	; ... and add one.	Easy as Apple pie.
SetIDelt		; 
	sta ISABUN	; finish up last operation
;              IDelt := IQUNW[CompIPoint];
	tyx	; I is now safe in X
	lda CompIPoint
	asl a	; word-size index
	tay
	lda (IQUNWPtr),y
	sta IDelt
; preload IDelt params
	lsr a
	sta IDeltH	; IDeltH := IDelt DIV 2
	lsr a
	sta IDeltQ
	lsr a
	sta IDeltX
;       IF (ISABUN >= IDelt)
	lda ISABUN
	cmp IDelt
	blt UseIDeltH
;         THEN BEGIN
;           ISABUN := ISABUN - IDelt
	sec
	sbc IDelt
	sta ISABUN
;           IBit[2]	:= TRUE
	inc IBit2
;         END (* IF	*);
UseIDeltH		; 
;       IF (ISABUN >= IDeltH)
	lda ISABUN
	cmp IDeltH
	blt UseIDeltQ
;         THEN BEGIN
;           ISABUN := ISABUN - IDeltH  (ISABUN in acc)
	sec
	sbc IDeltH
	sta ISABUN
;           IBit[1]	:= TRUE
	inc IBit1
;         END (* IF	*);
UseIDeltQ		; 
;  By this point, (NBits IN {3,4})
;      IF (NBits # 3) THEN BEGIN
	lda NumBits
	cmp #3
	beq ThreeBitQ
;       IF (ISABUN >= IDeltQ)
	lda ISABUN
	cmp IDeltQ
	blt Encode
;         THEN BEGIN
;           IBit[0]	:= TRUE
	inc IBit0
;         END (* IF	*);
	bra Encode
;       END
;       ELSE IDeltX	:= IDeltH DIV 2
ThreeBitQ		; 
	lda IDeltQ	; already contains IDeltH DIV 2
	sta IDeltX
	stz IDeltQ	; just for good measure!
Encode		; 
	lda IDeltX
	clc
TryB2	ldy IBit2
	beq TryB1
	adc IDelt
TryB1	ldy IBit1
	beq TryB0
	adc IDeltH
TryB0	ldy IBit0
	beq PlOrMi
	adc IDeltQ
;       IF (IBit[3]	= FALSE)
;         THEN
;           CompMAEDA := CompMAEDA+((IDelt*IBit[2])+(IDeltH*IBit[1])
;	        +(IDeltQ*IBit[0])+IDeltX)
;         ELSE
;           CompMAEDA := CompMAEDA-((IDelt*IBit[2])+(IDeltH*IBit[1])
;	        +(IDeltQ*IBit[0])+IDeltX);
PlOrMi		; 
	ldy IBit3
	beq AddIt
	eor #Allbits
	inc a
AddIt		; 
	clc
	adc CompMAEDA
	sta CompMAEDA

;       IDecM := IBit[3];  IDecM := IDecM + IDecM + IBit[2]
;       IDecM := IDecM + IDecM + IBit[1]
;       IF (NBits #	3)
;         THEN IDecM := IDecM + IDecM +	IBit[0]
	lda IBit3
	asl a
	ora IBit2
	asl a
	ora IBit1
	ldy NumBits
	cpy #3
	beq PutItOut
	asl a
	ora IBit0
PutItOut
	sta IDecM
;       PutValue(ADP, IDecM);
	ldy BitNow
	beq EndShift
ShiftLoop
	asl a
	dey
	beq EndShift
	asl a
	dey
	beq EndShift
	asl a
	dey
	beq EndShift
	asl a
	dey
	beq EndShift
	asl a
	dey
	beq EndShift
	asl a
	dey
	beq EndShift
	asl a
	dey
	beq EndShift
	asl a
	dey
	beq EndShift
	asl a
	dey
	beq EndShift
	asl a
	dey
	beq EndShift
	asl a
	dey
	beq EndShift
	asl a
	dey
	beq EndShift
	asl a
	dey
	beq EndShift
	asl a
	dey
	beq EndShift
	asl a
	dey
EndShift
	tsb TempValue
	lda NumBits
	clc
	adc BitNow
	sta BitNow
	cmp #8
	blt DonePutOut
	and #7
	sta BitNow
	ldy ByteNow
	lda TempValue
	sep #$20	; 8-bit memory
	longa OFF
	sta [destptr],y
	lda #0
	rep #$20	; 16-bit memory
	longa ON
	xba
	sta TempValue
	inc bytenow
	bne DonePutOut
	inc DestPtr+2
DonePutOut		; 
;       IDecM := IBit[2] + IBit[2] + IBit[1]
	lda IDecM
	ldy NumBits
	cpy #3
	bne FourBitC
ThreeBitC		; 
	and #%0000000000000011
	bra GotIDecM
FourBitC		; 
	and #%0000000000000111
;       IF (NBits >	3)
;         THEN IDecM := IDecM + IDecM +	IBit[0]
;       IDecM := IDecM + 1
GotIDecM		; 
	inc a
	sta IDecM

;       CompIPoint := CompIPoint + IPShift[NBits][IDecM];
	asl a
	tay
	lda (IPShiftPtr),y
	clc
	adc CompIPoint
	sta CompIPoint
CkIPLLim		; 
;       IF (CompIPoint < 1)
;         THEN BEGIN
;           CompIPoint := 1
;         END
; CompIPoint is already in acc
	tay
	dey
	bpl CkIPULim
	lda #1
	sta CompIPoint
	bra EndFORIBody
CkIPULim		; 
;       ELSE IF (CompIPoint > IQUNQMax)
;         THEN BEGIN
;           CompIPoint := IQUNWMax
;         END
; IPoint is already	in Acc
	cmp (IQUNWPtr)
	blt EndFORIBody
	beq EndFORIBody
	lda (IQUNWPtr)
	sta CompIPoint
EndFORIBody		; ;      END (* FOR	I *);
	txy	; I is now back in Y
	iny
	jmp ILoop

EndForILoop		; 
	inc SrcPtr+1	; so bump our pointer
	inc SrcPtr+1	;   in DP by that amount
	dec NumBlks	; we took care of 1	512-byte block
	jmp BLoop
EndForB		; 
	brl CleanUp

DoExpand

	PHK
	PLB

	lda NumBits
	cmp #4
	beq FourBitStuff

;   3-bit encoding -- FOR Block := 0 to NBlks-1 DO

	ldx ExpIPoint
FORExB3B
	lda NumBlks
ExB3BLoop
	beq	ExpandCleanUp	
	ldy #0
	jsr ExpandBlock3Bit
	
	inc DestPtr+1	; so bump our pointer
	inc DestPtr+1	;   in DP by that amount
	dec NumBlks		; we took care of 1	512-byte block
	bra ExB3BLoop


;   4-bit encoding -- FOR Block := 0 to NBlks-1 DO
FourBitStuff
	ldx ExpIPoint
	
FORExB4B
	lda NumBlks
	
ExB4BLoop
	beq ExpandCleanUp
	
	ldy #0
	jsr ExpandBlock4Bit
		
	inc DestPtr+1	; so bump our pointer
	inc DestPtr+1	;   in DP by that amount
	dec NumBlks		; we took care of 1	512-byte block
	bra ExB4BLoop

; Special readjustment for expansion -- normalize ExpIPoint
ExpandCleanup
	stx ExpIPoint
	
; Here, unlock everything we previously	locked and update any VAR params.
CleanUp

UnlockData
	lda Dest+2,s
	tay
	lda Dest,s
	phy
	pha
	_HUnlock
UnlockSrc
	lda Src+2,s
	tay
	lda Src,s
	phy
	pha
	_HUnlock

UnLockEnd


; Normal Go-Home code.  Any error code is byte-range value in DP.ErrCode.
NormalGH
RestoreSP
	lda ErrSP
	tcs
RestoreBank	pei OldBank
	plb
	plb
	ldy ErrCode
	ldx DPToolNum
RestoreDP
	lda OldDP
	tcd
; Minimum Go-Home code.  Any error code	is byte-range value	in y.
DPUnchanged	lda RTL2+1,s	; Remove input params from stack.
	sta Src+2,s
	lda RTL2-1,s
	sta Src,s
	lda RTL1,s
	sta Src-2,s
	tsc
	clc
	adc #20	; count of param bytes to flush
	tcs
;  here, we expect byte-size condition code in y and tool, fn number in x
	cpy #ErrorCondition
	bcc Penultimate
	txa
	xba
	and #HighByte
	pha
	tya
	ora TempTN,s
	ply
	bra FinalOut
Penultimate
	tya
FinalOut	rtl

IDelt4B			IDelt4BTable
IDeltX4B		IDeltX4BTable
New4BExpIPoint	NewIPoint4BTable

IDelt3B			IDelt3BTable
IDeltX3B		IDeltX3BTable
New3BExpIPoint	NewIPoint3BTable

ExpandBlock3Bit
		jsr	Expand3Bit
		jsr	Expand3Bit
		jsr	Expand3Bit
		jsr	Expand3Bit
		jsr	Expand3Bit
		jsr	Expand3Bit
		jsr	Expand3Bit
		jsr	Expand3Bit
		jsr	Expand3Bit
		jsr	Expand3Bit
		jsr	Expand3Bit
		jsr	Expand3Bit
		jsr	Expand3Bit
		jsr	Expand3Bit
		jsr	Expand3Bit
		jsr	Expand3Bit
		jsr	Expand3Bit
		jsr	Expand3Bit
		jsr	Expand3Bit
		jsr	Expand3Bit
		jsr	Expand3Bit
		jsr	Expand3Bit
		jsr	Expand3Bit
		jsr	Expand3Bit
		jsr	Expand3Bit
		jsr	Expand3Bit
		jsr	Expand3Bit
		jsr	Expand3Bit
		jsr	Expand3Bit
		jsr	Expand3Bit
		jsr	Expand3Bit
		jsr	Expand3Bit
		rts
		
ExpandBlock4Bit
		jsr	Expand4Bit
		jsr	Expand4Bit
		jsr	Expand4Bit
		jsr	Expand4Bit
		jsr	Expand4Bit
		jsr	Expand4Bit
		jsr	Expand4Bit
		jsr	Expand4Bit
		jsr	Expand4Bit
		jsr	Expand4Bit
		jsr	Expand4Bit
		jsr	Expand4Bit
		jsr	Expand4Bit
		jsr	Expand4Bit
		jsr	Expand4Bit
		jsr	Expand4Bit
		jsr	Expand4Bit
		jsr	Expand4Bit
		jsr	Expand4Bit
		jsr	Expand4Bit
		jsr	Expand4Bit
		jsr	Expand4Bit
		jsr	Expand4Bit
		jsr	Expand4Bit
		jsr	Expand4Bit
		jsr	Expand4Bit
		jsr	Expand4Bit
		jsr	Expand4Bit
		jsr	Expand4Bit
		jsr	Expand4Bit
		jsr	Expand4Bit
		jsr	Expand4Bit
		rts

Expand3Bit
		DoItToIt3B
		rts
		
Expand4Bit
		DoItToIt4B
		rts
		ENDP


	EXPORT DeRefHandle
DeRefHandle	PROC
; Expects longword handle on stack.
; Returns longword pointer in place of input parameter on stack.
; All registers and	status are preserved.  Direct page not used.
; Handle is LOCKED upon exit.
	php
	phx
	pha
	lda 9,S
	tax									; x has address of handle
	lda 11,S							; a has bank of handle
	phb
	xba
	pha
	xba
	phx
	pha
	phx
	_HLock
	plx
	plb
	plb									; now in the right bank
	lda |0,x
	sta 10,s							; lsw of pointer
	lda |2,x
	sta 12,S							; msw of pointer
	plb									; back in the old bank
	pla									; restore the world
	plx									; aren't we nice??!!??
	plp
	rtl									; gehen wir nach hause...
	ENDP

	EXPORT ACECompBegin
ACECompBegin	PROC
	cmp #0								; WAP in acc, zero if ACE inactive
	beq NotActive						; should be ACENotActive Error

	phd
	tcd
	lda #1
	sta CompIPoint
	lda #ZeroCrossing
	sta CompMAEDA
	pld
	lda #ACENoError						; JAM 14-Apr-88
	bra GoHome

NotActive
**	txa									; call number/tool number now in acc
**	and #LowByte						; save tool number only
**	xba									; put it in msb
**	ora #ACENotActive					; condition code in	lsb
	lda #ACENotActive					; 25-Sep-90 DAL
GoHome
	cmp #ErrorCondition					; Sets carry if error.
	rtl
	ENDP

	EXPORT ACEExpBegin
ACEExpBegin	PROC
	cmp #0								; WAP in acc, zero if ACE inactive
	beq NotActive						; should be ACENotActive Error

	phd
	tcd
	stz ExpIPoint
	lda #ZeroCrossing
	sta ExpMAEDA
	pld
	lda #ACENoError						; JAM 14-Apr-88
	bra GoHome

NotActive
**	txa									; call number/tool number now in acc
**	and #LowByte						; save tool number only
**	xba									; put it in msb
**	ora #ACENotActive					; condition code in	lsb
	lda #ACENotActive					; 25-Sep-90 DAL
GoHome
	cmp #ErrorCondition					; Sets carry if error.
	rtl
	ENDP


**************************************************************
*
* $0D1D GetACEExpState(BufferPointer)
*
* New call 25-Sep-90 DAL
*
* All we have to do in this call is copy 16 bytes from the
* beginning of our direct page into the buffer.
*
* Actually, only the first 4 bytes are used, so we copy those
* and then fill the rest of the buffer with $0000.
*
**************************************************************
GetACEExpState	proc export
	tax
	beq NotActive

	phd
	tsc
	tcd
	ldy #0
@copy
	lda >0,x
	sta [9],y
	inx
	inx
	iny
	iny
	cpy #4			; currently only the first 4 saxel
	bcc @copy		;	bytes are "live"

	lda #0
@zero
	sta [9],y
	iny
	iny
	cpy #SaxelSize	; JAM 91.07.21 - Use named equates, Dave!  :-)
	bcc @zero		; JAM 91.07.21 - This fixes BRC #1008113
	
	pld

	entry NoError4
NoError4
	ldx #0
	bra Strip4

	entry NotActive
NotActive
	ldx #ACENotActive

Strip4
	ldy #4
	jml $e10184		;ToStrip
	EndP
	
**************************************************************
*
* $0E1D SetACEExpState(BufferPointer)
*
* New call 25-Sep-90 DAL
*
* The buffer pointer is 16 bytes.  All we have to do in this
* call is copy those bytes onto our direct page.
*
**************************************************************
SetACEExpState	proc export
	import NotActive
	import NoError4

	tax
	beq NotActive

	phd
	tsc
	tcd
	ldy #0
@copy
	lda [9],y
	sta >0,x
	inx
	inx
	iny
	iny
	cpy #SaxelSize
	bcc @copy
	pld

	bra NoError4

	EndP
	
	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/ACE/makefile b/IIGS.601.SRC/GSToolbox/ACE/makefile
new file mode 100644
index 0000000..a7dbb9f
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/ACE/makefile
@@ -0,0 +1 @@
+### Dependancies for IW
tool029			Ä		ace.asm.obj
	LINKIIGS ace.asm.obj  -o tool029 -t TOL
### Dependancies for ace.asm.OBJ
ace.ASM.obj 			Ä 		ace.asm e16.ace
	ASMIIGS ace.asm
	
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/ADB/adb.asm b/IIGS.601.SRC/GSToolbox/ADB/adb.asm
new file mode 100644
index 0000000..3bf6d8b
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/ADB/adb.asm
@@ -0,0 +1 @@
+*****************************************************************
*
* ADB main
*
* Copyright (c) Apple Computer, Inc. 1986-1988
* All Rights Reseverd
*
* Change History
*
* 03 Nov 88	Steven Glass & Joe Bo
*
* Made STool public so could call from another bank.
*
*****************************************************************

	STRING ASIS
	BLANKS OFF

	TITLE 'ADB Tool Sets'


*
* The following is the SKI tool code.
* It implements calls to the Single-Chip-Microcontroller (uC) using
* the SKI protocol.
* For more information see the Single-Chip-Microcontroller (uC) ERS &
* the SKI TOOL ERS
*
* The following Flags/Variables are used:
*
* STATUSTMP: Used to save pending status data from uC. When	a
* command is being sent interrupts are locked out, but
* the uC status has	to be read. It is acted on at the
* end of the routine.(Status = Abort,Flush,Desktop,etc.)
*
* PENDFLG: Indicates if a command is pending. If a command is
* clr=nope Pending then it should be finished before any other
* set=pend command can be initiated. If	a pending command is
* requested while this flag is set then	the code
* returns w/ an error code indicating busy - try again
* later. If an immediate command is requested then
* the pending command is completed and a flag is set:
*
* RSPNSFLG: Indicates if a pending command was completed during
* clr=none a request for an immediate command. The response	from
* set=pend the pending command is processed after the immediate
* command is done.
*
* RSPNSBUF: Buffer to hold response: 8 bytes for data, 1 for count
*
* The code makes extensive use of the stack and direct page. At
* the beginning of most tool functions room is made on the
* stack and then the direct page is placed on top of the stack to
* allow easy access	to these variables.	In most tool functions the
* stack looks like this:
*
* 26-27 Word - Input Parameter
* 22-25 Long - Input Parameter
* 20-21 Word - Input Parameter
* 1D-1F Adrs - Tool	Dispatcher Return address
* 1A-1C Adrs - Calling Code Return Address
* 18-19 Word - Original Direct Page
* 17 Byte - Original Processor Status
* 16 Byte - Original Data Bank
* 14-15 Word - Variable
* A-13 10 - Response Buffer 2
* 0-09 10 - Response Buffer 1
*
*


	include '::sys.equs.asm'

;-------------------------------------------
;
; Equates form procedure ADBEQUS
;
;-------------------------------------------
FDBVERSION	EQU $0300	;VERSION #
MYTOOLNUM	EQU $09
TRUE	EQU $FFFF

CMDFULL	EQU $01	;COMMAND REG FULL BIT (IN KEYGLOO STATUS)
DATAFULL	EQU $20	;DATA REG FULL BIT (IN KEYGLOO STATUS)
STATUSBIT	EQU $80	;UC STATUS - RESPONSE BIT
ABORTBIT	EQU $40	;UC STATUS - ABORT BIT
DESKBIT	EQU $20	;UC STATUS - DESKTOP MANAGER BIT
FLUSHBIT	EQU $10	;UC STATUS - FLUSH BIT
IDREG	EQU $F0	;FDB COMMAND MASK TO READ ID REG.(3)
DISSRQ	EQU $70	;FDB COMMAND MASK TO DISABLE SRQ
ENSRQ	EQU $50	;FDB COMMAND MASK TO ENABLE SRQ
TALKCMD	EQU $C0	;FDB COMMAND MASK FOR TALK POLL
JMLOPCODE	EQU $5C	;OPCODE FOR JML al INSTRUCTION
HARDERR	EQU $0010	;CODE FOR HARD ERROR
MAXERR	EQU $0081	;CODE FOR SOFT ERROR
BUSYERR	EQU $0082	;CODE FOR BUSY ERROR
NODEVERR	EQU $0083	;CODE FOR NO DEVICE	PRESENT ERROR
FULLERR	EQU $0084	;CODE FOR SRQ LIST FULL
DATABNK	EQU $00E1	;
*
;-------------------------------------------
;
; Direct Page Addressing Modes
;
RSPNSBUF	EQU $0	;START AT BOTTOM OF	DIRECT PAGE
RSPNSLNG	EQU 10	;BUFFER FOR PENDING	COMMAND RESPONSE
PARMS	EQU RSPNSLNG*2	;USED DURING ENDCALL
PHBOFFSET	EQU PARMS+2
PHPOFFSET	EQU PHBOFFSET+1
PHDOFFSET	EQU PHPOFFSET+1
RTLGLU	EQU PHDOFFSET+2	;GLU ROUTINE RETURN	ADDRESS
RTLCALL	EQU RTLGLU+3	;CALLING ROUTINE RETURN ADDRESS
ZPTOS	EQU RTLCALL+3	;OFFSET INTO STACK FOR 1ST DATA BYTE
UCCMD	EQU ZPTOS	;COMMAND TO uC
FDBADRS	EQU ZPTOS	;FDB ADDRESS
DATAPTR	EQU UCCMD+2	;POINTER TO DATA
CPLTVCTR	EQU UCCMD+2	;COMPLETION VECTOR ADDRESS
HOWMANY	EQU DATAPTR+4	;DATA BYTE COUNT
RDMEMPTR	EQU DATAPTR+4	;USED TO GET DATAINPTR FOR RDMEM COMMAND
MAXCOUNT	EQU DATAPTR+4	;MAXIMUM BUFFER COUNT-USED IN READBYTES
FDBCMD	EQU CPLTVCTR+4	;FDB COMMAND BYTE-2ND SENT DURING FDBRCV
*
;--------------------------------------------
;
SCALELNG	EQU $000B	;LENGTH OF ALL SCALING VALUES
PENDBIT	EQU $0080	;COMMAND PENDING FLAG BIT
ABSBIT	EQU $0040	;ABSOLUTE DEVICE AUTO-POLLED (16-BIT)
RSPNSBIT	EQU $0020	;PENDING COMMAND WAS PROCESSED
SRQMAX	EQU $10	;MAX OF 16 DEVICES (1-16)
ERRCODE	EQU $0911	;CODE OF SYSTEM DEATH MESSAGE
;--------------------------------------------
;
CMDREG	EQU $C026
*
;--------------------------------------------
;
SCALEDATA	EQU $E103D0
YMULTIPLY	EQU SCALEDATA	;AREA IN BANK $E1
XMULTIPLY	EQU YMULTIPLY+2
YOFFSET	EQU XMULTIPLY+2
XOFFSET	EQU YOFFSET+2
YDIVIDE	EQU XOFFSET+2
XDIVIDE	EQU YDIVIDE+2
VCTRCPLT	EQU $E103DC	;COMPLETION VECTOR ADDRESS, 4 BYTES
SRQTBL	EQU $E1154A	;A COMPLETION VECTOR FOR EACH DEVICE
PENDFLAG	EQU $E10FD6	;3rd DATA BUFFER, BANK $E1
RSPNSFLAG	EQU PENDFLAG	;SAME LOCATION, BUT	CLEAR TO UNDERSTAND
FLAGS	EQU PENDFLAG	; "




;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

	ENTRY ABSOFF
	ENTRY ABSON
	ENTRY ACTIVE
	ENTRY ALL
	ENTRY APDOWN
	ENTRY APUP
	ENTRY BUSY
	ENTRY BYTES
	ENTRY CALL
	ENTRY CHKDOP
	ENTRY CLEAN
	ENTRY CLRSRQTBL
	ENTRY CMDNP
	ENTRY CMDP
	ENTRY CMDS
	ENTRY DBTOE1
	ENTRY DONESRQ
	ENTRY DUMMY
	ENTRY ERRHARD
	ENTRY ERRNODEV
	ENTRY ERROR3
	ENTRY ERRORCALL
	ENTRY ERRORDMEM
	ENTRY ERRORSND
	ENTRY ERROUT
	ENTRY ERRRSPNS
	ENTRY ERRSRQ
	ENTRY ERRSRQFLL
	ENTRY EXECMD
	ENTRY FDBRCV
	ENTRY FDBTALK
	ENTRY FDBTIMEOUT
	ENTRY GETPATA
	ENTRY GETVERSION
	ENTRY GOODRSP
	ENTRY GOTRSPNS
	ENTRY HARDCALL
	ENTRY IMD
	ENTRY INITOOL
	ENTRY INITSKI
	ENTRY INTRSPNS
	ENTRY INTSRQ
	ENTRY ITPLB
	ENTRY NOERR
	ENTRY NOMORE
	ENTRY NORSPNSE
	ENTRY NOSTSP
	ENTRY NOTABORT
	ENTRY NOTSET
	ENTRY NXTDEV
	ENTRY OFLIST
	ENTRY RCVDATA
	ENTRY RCVTOOL
	ENTRY RDABS
	ENTRY RDMEMTOOL
	ENTRY RDSCALE
	ENTRY READRSPNS
	ENTRY RESETSKI
	ENTRY RET1
	ENTRY RSTSRQ
	ENTRY SAVEWD
	ENTRY SCALE
	ENTRY SCL
	ENTRY SCMD
	ENTRY SCMD2
	ENTRY SDATA
	ENTRY SKIPRMV
	ENTRY SNDCMDSTR
	ENTRY SRQCPL
	ENTRY SRQCPLT
	ENTRY SRQNOTFND
	ENTRY SRQPL
	ENTRY SRQRMV
	ENTRY STOOL
	ENTRY STRVCTR
	ENTRY TBL
	ENTRY TONOERR




*********************************************************************
*
* FUNCTION TABLE
*
* This code should be at the beginning of the tool set
*
*********************************************************************

SKIFNCTBL	PROC EXPORT

	ENTRY Here
Here		; 

	DC.L (The-Here)/4	;num calls +1

	ENTRY FUNC1
FUNC1	DC.L INITSKI-1	;POWER ON - INIT TOOL SET
	ENTRY FUNC2
FUNC2	DC.L APUP-1	;APPLICATION START UP INIT
	ENTRY FUNC3
FUNC3	DC.L APDOWN-1	;APPLICATION SHUT DOWN INIT
	ENTRY FUNC4
FUNC4	DC.L GETVERSION-1	;VERSION #
	ENTRY FUNC5
FUNC5	DC.L RESETSKI-1	;RESET
	ENTRY FUNC6
FUNC6	DC.L ACTIVE-1	;RESERVED
	ENTRY FUNC7
FUNC7	DC.L DUMMY-1	;RESERVED
	ENTRY FUNC8
FUNC8	DC.L DUMMY-1	;RESERVED
*
	ENTRY MYFUNC9
MYFUNC9	DC.L STOOL-1	;S
	ENTRY MYFUNCA
MYFUNCA	DC.L RCVTOOL-1	;RCV
	ENTRY MYFUNCB
MYFUNCB	DC.L RDMEMTOOL-1	;RDMEM
;MYFUNCC DC I4'RESETFDB-1' ;RESET ENTRY	POINT (NOT OFFICIAL	CALL)
	ENTRY MYFUNCC
MYFUNCC	DC.L DUMMY-1	;RESETFDB NO LONGER	THERE
	ENTRY MYFUNCD
MYFUNCD	DC.L FDBTALK-1	;FDBTALK
	ENTRY MYFUNCE
MYFUNCE	DC.L FDBRCV-1	;FDBRCV
	ENTRY MYFUNCF
MYFUNCF	DC.L ABSON-1	;ABSOLUTE ON
	ENTRY MYFUNC10
MYFUNC10	DC.L ABSOFF-1	;ABSOLUTE OFF
	ENTRY MYFUNC11
MYFUNC11	DC.L RDABS-1	;READ ABSOLUTE ON/OFF
	ENTRY MYFUNC12
MYFUNC12	DC.L SCALE-1	;SET ABSOLUTE SCALE	VALUES
	ENTRY MYFUNC13
MYFUNC13	DC.L RDSCALE-1	;READ ABSOLUTE SCALE VALUES
	ENTRY MYFUNC14
MYFUNC14	DC.L SRQPL-1	;ADD DEVICE TO SRQ POLL LIST
	ENTRY MYFUNC15
MYFUNC15	DC.L SRQRMV-1	;REMOVE DEVICE FROM	SRQ POLL LIST
	ENTRY MYFUNC16
MYFUNC16	DC.L CLRSRQTBL-1	;CLEAR OUT SRQ TABLE OF ALL ENTRIES

	ENTRY The
The		; 



	ENDP


;         copy  ADBInit

***********************************************************************
*
* Init call for tool kit
* FLAGS -> clear except for ABSBIT (auto-poll on)
* Put JML op code ($5C) into CPLTVCTR
* Clear SRQNUM, SRQPTR, SRQMRU, SRQCNT
* Load in interrupt	vectors: SRQ, RESPONSE
*
INITSKI	PROC

	LONGA ON
	LONGI ON


	LONGA ON
	LONGI OFF

	SEP #$10
	PHB	;SAVE DATA BANK
	JSR DBTOE1	;Changes data bank register to $E1

	LDA #ABSBIT	;SAVE FLAGS (ABSOLUTE ON, OTHERS OFF)
	STA |FLAGS	;& ZEROS STATUSTMP IN HI BYTE
	STZ |SRQNUM	;ZERO OUT SRQNUM & SRQCNT
	STZ |SRQPTR	;ZERO OUT SRQPTR & SRQMRU

	LDX #$0A	;CLR OUT 12 SCALING	BYTES
	ENTRY CLRABSDATA
CLRABSDATA	STZ |SCALEDATA,X	;ZERO OUT ABSOLUTE SCALE DATA
	DEX
	BPL CLRABSDATA

* ;USE A,X APPROPRIATELY FOR 8/16 BIT
	LDX #JMLOPCODE	;PATCH OPCODE FOR JMP LONG INTO
	STX |VCTRCPLT	;HI BYTE OF COMPLETION VECTOR

	LDX #^INTSRQ	;PATCH IN SRQ INTERRUPT VECTOR
	STX |IRQ_SRQ+3

	LDA #INTSRQ
	STA |IRQ_SRQ+1

	LDX #^INTRSPNS	;PATCH IN RESPONSE INTERRUPT VECTOR
	STX |IRQ_RESPONSE+3

	LDA #INTRSPNS
	STA |IRQ_RESPONSE+1

	REP #$10
	LONGI ON
	BRA ITPLB


* Version #
*

	ENTRY GETVERSION
GETVERSION		;       

	LONGA ON
	LONGI ON

	PHB	;SAVE DATA BANK FOR	SAVEWD
	LDA #FDBVERSION
	BRA SAVEWD	;PUSH ONTO STACK AND RETURNS

*
	ENTRY ACTIVE
ACTIVE		;       

	LONGA ON
	LONGI ON

	PHB
	LDA #TRUE	;ALWAYS ACTIVE
	BRA SAVEWD





;         copy  ADBAbs
	ENTRY ABSTOOL
ABSTOOL	PROC

	LONGA ON
	LONGI ON

*USING ADBEQUS


*
* ABSON/ABSOFF/RDABS
* Command to enable/disable automatic polling of an absolute device
*

	ENTRY ABSON
ABSON		;       ;USE 16-BIT	MODE ON 8-BIT DATA

	LONGA ON
	LONGI ON

	PHB
	JSR DBTOE1	;Changes data bank register to $E1

	LDA #ABSBIT	;GET 16-BIT VALUE (HIGH BYTE CLEAR)
	TSB |FLAGS	;SET FLAG BIT (FLAG+1 UNDAMAGED)

	BRA ITPLB



	ENTRY ABSOFF
ABSOFF		;       ;USE 16-BIT	MODE ON 8-BIT DATA

	LONGA ON
	LONGI ON

	PHB
	JSR DBTOE1	;Changes data bank register to $E1

	LDA #ABSBIT	;GET 16-BIT VALUE (HIGH BYTE CLEAR)
	TRB |FLAGS	;CLEAR FLAG BIT (FLAG+1 UNDAMAGED)
	BRA ITPLB


	ENTRY RDABS
RDABS		;       ;16-BIT MODE INSTRUCTION

	LONGA ON
	LONGI ON

	PHB
	JSR DBTOE1	;Changes data bank register to $E1

	LDA #$0000	;ABSBIT STORED AS BOOLEAN 1=TRUE,0=FALSE
	BIT |FLAGS-1	;FAKE 16-BIT MODE INTO SETTING V FLAG
	BVC SAVEWD	; PUTS BOOLEAN 0=FALSE 1=TRUE
	INC A	;INVERT TO TRUE


	ENTRY SAVEWD
SAVEWD		;       

	STA $8,S	;PUT BOOLEAN DIRECTLY INTO STACK


	ENTRY ITPLB
ITPLB		;       
	PLB

* Application Start-up
* Application Shut-down
*
	ENTRY APUP
APUP		;       
	ENTRY APDOWN
APDOWN		;       
	ENTRY DUMMY
DUMMY		;       
	ENTRY RESETSKI
RESETSKI		;       
	ENTRY IT
IT		;       

	LONGA ON
	LONGI ON
*
	LDA #$0000
	CLC
	RTL

*
* SCALE/RDSCALE
* Routine to set/read the scaling values for absolute devices
*

	ENTRY RDSCALE
RDSCALE		;       ;ENTRY POINT FOR READING SCALE VALUES

	LONGA ON
	LONGI ON

	PHD
	PHP
	PHB
	JSR INITOOL
	LONGA OFF
	LONGI ON
	TCS
*
	LDY #SCALELNG	;LENGTH OF SCALING VALUES
	ENTRY GETSCALE
GETSCALE	LDA |SCALEDATA,Y	;GET SCALE VALUE
	STA [<ZPTOS],Y
	DEY
	BPL GETSCALE
*
	BRA SCL



	ENTRY SCALE
SCALE		;       ;ENTRY POINT FOR SETTING SCALE VALUES

	LONGA ON
	LONGI ON

	PHD
	PHP
	PHB
	JSR INITOOL
	LONGA OFF
	LONGI ON
	TCS
*
	LDY #SCALELNG	;LENGTH OF SCALING VALUES
	ENTRY STRSCALE
STRSCALE	LDA [<ZPTOS],Y	;GET SCALE VALUE
	STA |SCALEDATA,Y	;AND SAVE IT
	DEY
	BPL STRSCALE
*
	ENTRY SCL
SCL	LDX #4	;CLEAN UP 4 BYTES
	JMP NOERR	;




;         copy  ADBSrq
* uC TOOL SET - SRQ	COMMANDS.
*
* SRQPL
* Installs new device into SRQ TABLE to	be polled when an SRQ occurs
* on FDB. If data is received from that	device then it is passed to
* completion vector	and the device is put in SRQMRU.
* Routine starts by	verifying that a device exists at
* address designated. It does this by sing the FDB talk command
* to the ID register (3) and getting a response. If a command
* is already pending then it reads it before starting ID. Since
* the ID command also reads a response it must not clobber the
* data stored in response buffer (ignores ID data instead).
* After routine has	determined that device exists at specified
* address adds one more device to SRQNUM and SRQ TABLE if there
* is room for one more.
* Finally the devices completion vector	is stored at the  of
* the SRQTBL, along	with the FDB address/register.
*
* Variables:
* SRQTBL = Table of	SRQ devices - each device requires 4 bytes
* Byte 0 -> FDB Address & Register
* Bytes 1-3 -> Completion Vector Address (1=low, 3=bank)
* SRQMAX = Maximum number of entries allowed in SRQ table
* SRQNUM = Number of devices currently installed in SRQ table
* SRQPTR = Pointer to next device in SRQ table to be polled(1..SRQNUM)
* SRQMRU = Most recent device in table to return data
* SRQCNT = Count of	number of devices polled since data was	received
* from most recently used device - SRQMRU (SRQNUM..1).
*
*
	ENTRY ADBSRQST
ADBSRQST	PROC

	LONGA ON
	LONGI ON

*USING ADBEQUS

*
	ENTRY SRQPL
SRQPL		;       

	LONGA ON
	LONGI ON

	PHD	;SAVE DIRECT PAGE
	PHP	;SAVE INTERRUPT STATUS
	PHB	;SAVE DATA BANK
	JSR INITOOL	;DO INIT STUFF
	LONGA OFF
	LONGI ON
	TCS	;OPENS UP BUFFER INSIDE STACK
*
	LDA <CPLTVCTR+3	;MAKE SURE HI BYTE OF VECTOR=0
	BNE ERRSRQ	;NOT =0 THEN FLAG ERROR
*
	JSR CHKDOP	;IF PING FLAG SET THEN READ RESPONSE
	BCS ERRSRQ	;ERROR ENCOUNTERED
*
	LDA <FDBADRS	;GET FDB ADDRESS
	AND #$0F	;MASK OFF EVERYTHING ELSE
	ORA #IDREG	;APP FDB ID REG.
	JSR SDATA	;S COMMAND
	BCS ERRSRQ
*
	LONGA ON
	REP #$20	;16-BIT
	TDC	;MAKE ROOM FOR RESPONSE BY MOVING
	ADC #$000A	;DIRECT PAGE - CARRY CLEAR FROM ABOVE
	TCD	;RESPONSE PUT IN BOTTOM (0-9) DIRECT PG
	LONGA OFF
	SEP #$20
*
	JSR READRSPNS	;GET ID RESPONSE
	PHP	;SAVE CARRY
*
	LONGA ON
	REP #$20	;16-BIT M
	TDC	;MAKE ROOM FOR RESPONSE BY MOVING
	SBC #$0009	;DIRECT PAGE - CARRY CLEAR FROM ABOVE
	TCD	;RESPONSE PUT IN BOTTOM (0-9) DIRECT PG
	LONGA OFF
	SEP #$20	;8-BIT M
*
	PLP	;GET CARRY
	BCS ERRSRQ	;CHK IF ERROR ENCOUNTERED ON RESPONSE
	LDA <RSPNSBUF+RSPNSLNG ;CHECK IF ID EXISTS
	BEQ ERRNODEV	;NO DEVICE AT SPECIFIED ADDRESS
*
	LDA |SRQNUM	;GET SRQ NUMBER
	CMP #SRQMAX	;AND CHECK IF MAX
	BCS ERRSRQFLL	;SRQ LIST FULL
	TAY	;SAVE OFF SRQ INDEX
	ASL A	;GET INDEX INTO SRQTBL BY MULTPLYING
	ASL A	;BY 4
	XBA
	LDA #0	;CLEAR OUT HI BYTE
	XBA
	TAX
	INY	;MOVE INDEX
	TYA	;AND SAVE IN INDEX POINTER
	STA |SRQCNT	;RESTORE COUNT
	STA |SRQNUM	;STILL ROOM SO ADD 1 MORE

	LDA <FDBADRS	;MOVE FDB ADDRESS/REGISTER
	STA |SRQTBL,X	; INTO SRQTBL (8-BIT)

	LDA <CPLTVCTR	;MOVE HI ADRS OF COMPLETION VECTOR
	STA |SRQTBL+1,X	;INTO TABLE

	LDA <CPLTVCTR+1	;
	STA |SRQTBL+2,X

	LDA <CPLTVCTR+2	;MOVE BANK OF COMPLETION VECTOR
	STA |SRQTBL+3,X

	STZ |SRQPTR	;RESET POINTER TO BEGIN
	STZ |SRQMRU	;RESET MRU TO ZERO
*
	JSR IMD	;PROCESS ANY PING STATUS
	LDX #$0006	;CLEAN 6 BYTES OFF STACK
	JMP NOERR	;AND NO ERROR

	ENTRY ERRNODEV
ERRNODEV	JSR IMD	;PROCESS ANY PING STATUS
	LDY #NODEVERR	;FLAG NO DEVICE ERROR
	BRA ERRHARD

	ENTRY ERRSRQFLL
ERRSRQFLL	JSR IMD	;FLAG FULL ERROR
	LDY #FULLERR
	BRA ERRHARD

	ENTRY ERRSRQ
ERRSRQ	JSR IMD	;PROCESS ANY PING STATUS
	LDY #HARDERR	;FLAG ERROR

	ENTRY ERRHARD
ERRHARD	LDX #$0006	;CLEAN 6 BYTES OFF STACK
	JMP CALL	;FLAG ERROR ON RETURN

*
* SRQ INTERRUPT HANDLER
* This code is entry point for SRQ interrupt handler
* If a command is already ping then the	SRQ is ignored
* Gets next device in SRQ TABLE and initiates
* FDB poll.
* Address of next device is stored in SRQTBL.
* Get index into SRQTBL by incrementing	SRQPTR. If 
* of table (SRQNUM)	then set to 0. SRQMRU is used to keep track of
* the last device that was active. If all devices in SRQTBL	are polled
* and none responded then routine turns	off SRQ on all devices, except
* keyboard (2), then reenables SRQ for all devices installed in
* SRQ TABLE.
*
* Enter in 8-bit m,x
*

	ENTRY INTSRQ
INTSRQ		;       

	LONGA OFF
	LONGI OFF

	PHD	;SAVE DIRECT PAGE
	PHP	;SAVE INTERRUPT STATUS
	PHB	;SAVE DATA BANK
	LONGA ON
	LONGI ON
	REP #$30	;NEED TO BE IN 16-BIT FOR INIT
	JSR INITOOL	;DO INIT STUFF/Returns 'm'=1/'x'=0
	LONGA OFF
	TCS	;OPENS UP BUFFER INSIDE STACK
	LDA |PENDFLAG	;CHECK PING FLAG (DON'T SET)
	BMI DONESRQ	;IF SET THEN RETURN
*
	DEC |SRQCNT	;CHECK IF ALL DEVICES POLLED
	BMI OFLIST	;YES
	LDA |SRQPTR	;GET POINTER
	CMP |SRQNUM	;CHECK IF  OF TABLE
	BCC TBL	;NOT YET
	LDA #$00	;GOT  - RESET BACK TO BEGINNING
	STA |SRQPTR	; (PUT DATA IN A-REG.)
*
	ENTRY TBL
TBL		; 
	INC |SRQPTR	;SETUP FOR NEXT DEVICE
	ASL A	;A HOLDS CURRENT DEVICE
	ASL A	;CALCULATES LOCATION OF FDB ADDRESS IN
	XBA
	LDA #$00
	XBA
	TAX	;SRQTBL
*
	LDY #SRQCPLT	;MOVE LOW WORD OF SRQ COMPLETION
	STY |VCTRCPLT+1	;ROUTINE ADDRESS INTO COMPLETION VECTOR
	LDA #^SRQCPLT	;GET BANK INTO HI BYTE OF VECTOR
	STA |VCTRCPLT+3
*
	LDA |SRQTBL,X	;GET FDB ADDRESS/REGISTER
	ORA #TALKCMD	;MAKE INTO FDB TALK	POLL COMMAND
	STA |CMDREG	;S COMMAND
	LDA #PENDBIT	;SET COMMAND PING FLAG
	TSB |FLAGS
	ENTRY DONESRQ
DONESRQ		; 
	REP #$30	;16-BIT M,X
	LONGA ON
	LONGI ON
	JMP CLEAN	;(RETURN FROM INTERRUPT)

*
* This Routine is used if no device in the SRQ list has returned data.
* This probably means that some device is generating an SRQ	when it
* it shouldn't be. To alleviate this problem, the SRQ of all devices,
* except for the keyboard (2), is disabled and then those in the SRQ
* list are enabled.
*

	ENTRY OFLIST
OFLIST		; 

	LONGA OFF

	LDA #$0F
	STA |SRQPTR	;USE AS TEMPORARY
*
	ENTRY ANYMORE
ANYMORE	LDA |SRQPTR	;GET NEXT DEVICE ADDRESS
	CMP #2	;LOOK FOR KEYBOARD ADDRESS
	BNE NXTDEV
	DEC A	;SKIP KEYBOARD

	ENTRY NXTDEV
NXTDEV	ORA #DISSRQ	;APP FDB COMMAND TO	FDB ADDRESS
	JSR CMDS	;SS COMMAND AND WAIT UNTIL READ
	DEC |SRQPTR	;GET NEXT ADDRESS
	BPL ANYMORE	;UNTIL NO MORE
*
	LDA |SRQNUM	;GET NUMBER OF DEVICES IN SRQ TABLE
	STA |SRQPTR

	ENTRY GETIND
GETIND	DEC |SRQPTR	;GET INDEX TO NEXT DEVICE ADDRESS

	LDA |SRQPTR
	BMI RSTSRQ	;0 = LAST DEVICE
	ASL A	;MAKE INDEX INTO SRQ TABLE
	ASL A
	XBA
	LDA #0
	XBA
	TAY
	LDA |SRQTBL,Y	;GET FDB ADDRESS FROM TABLE
	AND #$0F	;CLEAR OUT REGISTER
	ORA #ENSRQ	;APP FDB COMMAND TO	FDB ADDRESS
	JSR CMDS	;SS COMMAND AND WAITS TIL READ
	BRA GETIND
*
	ENTRY RSTSRQ
RSTSRQ	LDA |SRQMRU	;GET MOST RECENTLY USED DEVICE
	STA |SRQPTR	;AND SET POINTER TO	IT
	LDA |SRQNUM	;CHECK ALL TABLE ENTRIES AGAIN
	STA |SRQCNT
	BRA DONESRQ


*
* SRQ COMPLETION ROUTINE
* This routine is used to process a response from a FDB poll command
* initiated by the SRQ interrupt handler. The SRQ handler is trying
* to get data from a device which sent an SRQ to the system.
* The response to the poll command was read by the response
* interrupt handler	or during another FDB command.
* If the response from the command shows no data then
* the routine just returns. Later, an SRQ interrupt will enable the
* SRQ interrupt handler to initiate a poll of the next device in the
* SRQ TABLE.
* If the response shows data was returned then this routine	will
* update the SRQMRU	(Most Recently Used) with the number of	the
* active device. The routine will then
* Call the completion vector address for the active device.
* A typical completion routine should muck w/ the stack to find
* the data. This doesn't because it knows where it is.
*
* Assumes 8-bit m,x	& data stored in direct page locations
* Don't clean up before return
*

	ENTRY SRQCPLT
SRQCPLT		; 

	LDA <RSPNSBUF	;GET # OF BYTES RECEIVED
	BEQ SRQCPL	;IF NO BYTES THEN RETURN
*
	PHK	;PUSH RETURN ADRS (PROGRAM BANK 1ST)
	PER SRQCPL-1	;AFTER COMPLETION VECTOR RETURN->
	LDA |SRQNUM	;RESTORE COUNTER - INDICATES # OF
	STA |SRQCNT	; DEVICES IN TABLE
	LDA |SRQPTR	;SRQPTR POINTS TO NEXT DEVICE
	DEC A	;SET TO ACTIVE DEVICE
	STA |SRQMRU	;AND SAVE AS MOST RECENTLY USED
	ASL A	;GET COMPLETION VECTOR ONTO STACK
	ASL A	;ADDRESS STORED IN SRQTBL
	TAX	;INDEX INTO SRQTBL
	LDA |SRQTBL+3,X	;PUSH PROGRAM BANK # OF ADDRESS ON 1ST
	PHA	;PUSH ADDRESS ON STACK THEN RTL
	LONGA ON
	LONGI ON
	REP #$30	;16-BIT MODE
	LDA |SRQTBL+1,X	;GET ADDRESS WORD
	DEC A	;-1 (USES RTL)
	PHA	;PUSH HI BYTE, THEN	LOW BYTE

	ENTRY SRQCPL
SRQCPL		;Returns here from completion vector
	SEP #$30	;Call completion vector routine (8-bit)
	LONGA OFF
	LONGI OFF
	CLC	;2ND THRU RTNS (CLC)->INTRPT DISPATCHER
	RTL	;BACK TO SYSTEM INTERRUPT HANDLER

*
* Removes a device from SRQ list
* Looks in SRQ table for FDB address passed on stack by calling
* routine. If FDB address is in table then removes entry from table,
* moves rest of entries up in table.
*

	ENTRY SRQRMV
SRQRMV		;       

	LONGA ON
	LONGI ON

	PHD
	PHP
	PHB
	JSR INITOOL	;Returns 'm'=1/'x'=0
	LONGA OFF
	TCS

	LDA |PENDFLAG	;COMMAND PING SO DON'T ATTEMPT
	SEP #$30
	LONGI OFF
	BMI SKIPRMV	;TO REMOVE DEVICE

	LDX |SRQNUM	;START W/ LAST DEVICE IN SRQ TABLE
	ENTRY SAMEDEV
SAMEDEV	DEX	;GET INDEX FOR DEVICE N =>(N-1)*4
	BMI SRQNOTFND	;CAN'T FIND DEVICE IN TABLE
	TXA	;BUILD INDEX IN TO TABLE
	ASL A	;
	ASL A
	TAY
	LDA |SRQTBL,Y	;GET ADDRESS OF DEVICE IN TABLE
	CMP <ZPTOS	;AND SEE IF DEVICE TO BE REMOVED
	BNE SAMEDEV	;NOT SAME - GET NEXT DEVICE IN TABLE

	REP #$20
	LONGA ON

	ENTRY FINDDEV
FINDDEV	LDA |SRQTBL+6,Y	;FOUND DEVICE
	STA |SRQTBL+2,Y	;MOVE NEXT ENTRY IN	TABLE UP ONE
	LDA |SRQTBL+4,Y
	STA |SRQTBL+0,Y
	INY
	INY
	INY
	INY
	INX	;SEE IF LAST ENTRY IN TABLE
	CPX |SRQNUM
	BCC FINDDEV	;NOT LAST ENTRY, MOVE ANOTHER ONE
*
	DEC |SRQNUM	;LAST ENTRY MOVED -	1 LESS TABLE ENTRY
	LDX |SRQNUM	;USE X - 8-BIT
	STX |SRQCNT	;RESTORE
	STZ |SRQPTR	;ZEROS OUT BOTH SRQPTR AND SRQMRU
	LDX #2
	JMP NOERR
*
	ENTRY SKIPRMV
SKIPRMV		; 
	LDY #BUSYERR
	ENTRY SRQ
SRQ	LDX #2
	JMP CALL
*
	ENTRY SRQNOTFND
SRQNOTFND		; 
	LDY #HARDERR
	BRA SRQ

*
* Clear out the SRQ	Table of all entries
*

	ENTRY CLRSRQTBL
CLRSRQTBL		;       

	LONGA ON
	LONGI ON

	LDA #$0000
	STA >SRQNUM	;ZEROS SRQNUM AND SRQCNT
	STA >SRQPTR	;ZEROS SRQPTR AND SRQMRU
	CLC
	RTL




;         copy  ADBTools
* uC TOOL SET - SKI	COMMANDS.

* ADBTOOLS

*
* S TOOL
* This routine is used to implement the	S tool
* Since this command is an immediate command it checks if ping
* command flag is set. If no ping command it executes immediately.
* If command ping then the ping command	must be finished 1st.
* READRSPNS gets data from the ping command. The immediate
* command is then executed and afterwards the data from the	ping
* command is processed by vectoring to the completion routine.
*
	ENTRY TOOLADB
TOOLADB	PROC

*USING ADBEQUS
*USING E1VECTORS


	EXPORT STOOL
STOOL		;       

	LONGA ON
	LONGI ON

	PHD	;SAVE DIRECT PAGE
	PHP	;SAVE INTERRUPT STATUS
	PHB	;SAVE DATA BANK
	JSR INITOOL	;DO INIT STUFF
	LONGA OFF
	TCS	;OPENS UP BUFFER INSIDE STACK
*
	JSR SCMD
	BCS ERRORCALL
	JSR SNDCMDSTR
	BCS ERRORCALL
*
	ENTRY TOOL
TOOL	JSR IMD	;CLEAN UP ANY PING STATUS
*
* Clean up stack and finish call
*
*
	LDX #$0008	;CLEAN OFF 8 INPUT PARAMETERS
	BRA TONOERR	;
*
	ENTRY ERRORCALL
ERRORCALL		; 
	JSR IMD	;CLEAN UP ANY PING STATUS
	LDX #$0008	;CLEAN OFF 8 INPUT PARAMETERS
	BRA HARDCALL


* RCV TOOL
* This routine is used to implement the	RCV tool
* Since this command is an immediate command it checks if ping
* command flag is set. If no ping command it executes immediately.
* If command ping then the ping command	must be finished 1st.
* READRSPNS gets data from the ping command. The immediate
* command is then executed and afterwards the data from the	ping
* command is processed by vectoring to the completion routine.

	ENTRY RCVTOOL
RCVTOOL		;       

	LONGA ON
	LONGI ON

	PHD	;SAVE DIRECT PAGE
	PHP	;SAVE INTERRUPT STATUS
	PHB	;SAVE DATA BANK
	JSR INITOOL	;DO INIT STUFF
	LONGA OFF
	TCS	;OPENS UP BUFFER INSIDE STACK
*
	JSR SCMD	;S IT COMMAND
*  ;LEAVES W/DATA REG. CLEAR
	BCS ERRORCALL	;ERROR-ABORT THE REST
*
	LDY #$0000	;SET UP DATA COUNTER

	ENTRY ANYDATA
ANYDATA	CPY <HOWMANY	;SEE IF ANY MORE DATA TO RECEIVE

	BCS TOOL	;NO MORE SO GOTO  OF IMMEDIATE TOOL
	JSR RCVDATA	;GET DATA
	BCS ERRORCALL	;ERROR-ABORT THE REST
	STA [<DATAPTR],Y	;SAVE DATA
	INY	;GET NEXT BYTE
	BRA ANYDATA


* RDMEM
* Command to read memory location from the uC
* Needs both input and output
* Command starts by	calling the Command	string

	ENTRY RDMEMTOOL
RDMEMTOOL		;       

	LONGA ON
	LONGI ON

	PHD	;SAVE DIRECT PAGE
	PHP	;SAVE INTERRUPT STATUS
	PHB	;SAVE DATA BANK
	JSR INITOOL	;DO INIT STUFF
	LONGA OFF
	TCS	;OPENS UP BUFFER INSIDE STACK
*
	JSR SCMD	;S COMMAND BYTE
	BCS ERRORDMEM	;ERROR-ABORT REST OF COMMAND
	LDA [<DATAPTR]	;GET 1ST DATA BYTE (LOW ADDRESS)
	JSR SDATA	; AND S IT
	BCS ERRORDMEM	;ERROR-ABORT REST OF COMMAND
	LDY #$0001
	LDA [<DATAPTR],Y	;GET 2ND DATA BYTE (HI ADDRESS)
	JSR SDATA	; AND S IT
	BCS ERRORDMEM	;ERROR-ABORT REST OF COMMAND

	JSR RCVDATA	;READ DATA FROM UC
	BCS ERRORDMEM	;ERROR-ABORT REST OF COMMAND
	STA [<RDMEMPTR]	;AND STORE IN BUFFER
	JSR IMD


* Clean up stack and finish call

	LDX #$000A	;CLEAN OFF 10 INPUT	PARAMETERS
	ENTRY TONOERR
TONOERR		; 
	JMP NOERR	;
*
	ENTRY ERRORDMEM
ERRORDMEM		; 
	JSR IMD	;CLEAN UP ANY PING STATUS
	LDX #$000A	;CLEAN OFF 10 INPUT	PARAMETERS

	ENTRY HARDCALL
HARDCALL		; 
	LDY #HARDERR	;ERROR CODE
	JMP CALL


* FDBTALK
* Initiates FDB talk command - which is	a ping command
* If a command is already ping then flags an error - Busy
* Otherwise saves completion vector, sets busy flag and starts command
* When sing a ping command, it doesn't wait for the command byte
* to be read. The ping flag ensures no overun will occur.
* This routine doesn't move the direct page onto the stack, but
* instead uses stack relative to get at	the data.

	ENTRY FDBTALK
FDBTALK		;       

	LONGA ON
	LONGI ON

	PHP	;SAVE INTERRUPT STATUS
	LONGA OFF
	SEP #$20	;8-BIT M
	PHB	;SAVE DATA BANK
	LDA #DATABNK	;CHANGE DATA BANKS
	PHA
	PLB
*
	LDA $E,S	;GET HI BYTE OF COMPLETION VECTOR
	BEQ STRVCTR	;IF=0 THEN STORE COMPLETION VECTOR
*
	LDY #mytoolnum*256+HARDERR ;OTHERWISE FLAG ERROR
	BRA CMDP
*
	ENTRY STRVCTR
STRVCTR	LDA #PENDBIT	;CHECK COMMAND PING	FLAG ALREADY SET
	TSB |FLAGS	;THEN SETS FLAGS
	BEQ CMDNP	;COMMAND WASN'T PING
*
	LDY #mytoolnum*256+BUSYERR ;FLAG CMD ALREADY PING - BUSY
	BRA CMDP
*
	ENTRY CMDNP
CMDNP	LDA $B,S	;MOVE VECTOR FROM STACK TO MEMORY
	STA |VCTRCPLT+1
	LDA $C,S
	STA |VCTRCPLT+2
	LDA $D,S
	STA |VCTRCPLT+3	;PROGRAM BANK
	LDA $9,S	;GET COMMAND
	STA |CMDREG	;S IT, BUT DON'T WAIT AROUND
	LDY #$0000	;NO ERROR
;
	ENTRY CMDP
CMDP		; 
	PLB
	PLP	;RESTORE STACK
	LONGA ON
	LDA 5,S	;MOVE RETURN ADDRESS
	STA 11,S	; AND GET RID OF INPUT STUFF
	LDA 3,S
	STA 9,S
	LDA 1,S
	STA 7,S
	PLA
	PLA
	PLA
	TYA	;CHECK ERROR CODE
	CMP #$0001	;SET CARRY IF NOT 0
	RTL	;RETURN TO GLU

* FDB Receive
* This command is very similar to the FDB TALK command except
* it uses 2 bytes of command instead of	a single

	ENTRY FDBRCV
FDBRCV		;       

	LONGA ON
	LONGI ON

	PHD	;SAVE DIRECT PAGE
	PHP	;SAVE INTERRUPT STATUS
	PHB	;SAVE DATA BANK
	JSR INITOOL	;DO INIT STUFF
	LONGA OFF
	TCS	;OPENS UP BUFFER INSIDE STACK
*
* Set up Completion	Vector
* Assumes 4-byte address in stack
* High byte should be zero - lower 3-bytes hold address
* If ping command flag already set then	flag error busy
*
*
	LDA <CPLTVCTR+3	;GET HI BYTE OF COMPLETION VECTOR
	BNE RET1	;ERROR IF NOT 0
*
	LDA #PENDBIT	;CHECK PING BIT
	TSB |FLAGS
	BNE BUSY	;COMMAND ALREADY PING - FLAG BUSY
*
	LDY <CPLTVCTR	;SAVE OFF LOW WORD OF ADDRESS
	STY |VCTRCPLT+1
	LDA <CPLTVCTR+2	;SAVE OFF HI BYTE OF ADDRESS
	STA |VCTRCPLT+3
*
	JSR SCMD2	;S COMMAND BYTE
	BCS ERROR3
	LDA <FDBCMD	;
	JSR SDATA	;FOLLOW W/ FDB COMMAND BYTE
	BCS ERROR3
	JMP TOOL	;CLEAN UP ANY STATUS/RESPONSE LEFTOVERS
*  ;RESTORE STACK, ETC.
*
	ENTRY BUSY
BUSY		; 
	LDX #$0008	;CLEAN 8 BYTES OF STACK
	LDY #BUSYERR	;FLAG BUSY ERROR
	JMP CALL
*
	ENTRY ERROR3
ERROR3		; 
	LDA #PENDBIT	;SINCE ERROR OCCURRED CLEAR PING FLAG
	TRB |FLAGS
	JMP ERRORCALL

* S command
* This routine ss a	command to uC & cleans data reg. for response
* If a command is ping then it sets a flag and reads the response
* into a buffer, before executing the immediate command. After
* performing the immediate command the response is processed.
* After sing the immediate command the Status Reg. is read
* till either the command is read by the uC (reg. empty) OR	Timeout
* The data reg. is then read Immediately to clear out any
* ping uC status. This guarantees that the next byte written to the
* data reg. will not be status, but data in response to a RCV command.
* Valid uC status is stored in Statustmp & processed at  of	command
* Should always be followed with an IMD	call to process any	ping
* read responses or	status.
*
* 8-bit m, 16-bit x
* Error = Carry set

	ENTRY SCMD
SCMD		;       

	LONGA OFF
	LONGI ON

	JSR CHKDOP	;IF PING FLAG SET THEN READ RESPONSE
	BCS RET1

	ENTRY SCMD2
SCMD2		; ;FOR THE CALL FROM FDBRCV
	LDA <UCCMD	;GET COMMAND

	ENTRY CMDS
CMDS		;       ;COMMON CMDS ENTRY POINT
	JSR SDATA	;AND S IT AND WAIT TIL READ
	BCS RET1
	AND #DATAFULL/2	;CHECK IF DATA REG FULL
	BEQ RET1	;NOT FULL
	LDA |DATAREG	;FULL - GET uC STATUS
	TSB |STATUSTMP	;AND SAVE
*
	ENTRY RET1
RET1	RTS	;CARRY SET = ERR
*
* Routine to read response to if ping flag is set.
* Used by immediate	commands to clear out any ping commands
*

	ENTRY CHKDOP
CHKDOP		;       

	LONGA OFF
	LONGI ON

	LDA |PENDFLAG	;CHECK IF COMMAND PING
	BPL EXECMD	;NONE - SO EXECUTE IMMEDIATE COMMAND
	JSR READRSPNS	;GET PING COMMAND RESPONSE DATA
	BCS GETPATA
	LDA #RSPNSBIT
	TSB |RSPNSFLAG
	ENTRY EXECMD
EXECMD	CLC
	ENTRY GETPATA
GETPATA	RTS

* S COMMAND STRING
* This command ss any bytes after the initial command byte.
*
* Errors = Carry set

	ENTRY SNDCMDSTR
SNDCMDSTR		; 

	LONGA OFF
	longi off
	
	SEP #$30
	LDA <UCCMD	;GET THE COMMAND FOR ADB
	CMP #$06	;IS IT SET CONFIGURATIONS COMMAND?
	BNE @1	;BRA IF NOT
	LDA |KEYUCVER	;ELSE CHK FOR NEW OR OLD KEYUC
	CMP #$06	;>=$06 THEN NEW KEYUC
	BCC @1	;BRA FOR OLD ONE
	LDY #$02	;INDEX TO DELAY/REPEAT BYTE
	LDA [<DATAPTR],Y	;GET IT
	PHA	;TEMPORARY SAVE IT
	AND #$0F	;MASK OFF FOR REPEAT RATE ONLY
	TAX	;AS A NEW INDEX TO NEW TABLE
	PLA
	AND #$F0	;MAKE REPEAT RATE TO ZERO FIRST
	PHA	;SAVE BACK
	LDA >NEWTAB,X	;GET THE NEW MAPPING VALUE
	ORA 1,S 	;GET BACK THE DELAY VALUE IN HIGH NIBBLES
	STA [<DATAPTR],Y	;STORE BACK TO BE READY TO SEND TO KEYUC
	PLA	;CLEAN STACK

@1
	LONGI ON
	REP #$10	;8/16 M/X

	LDY #$0000	;SET UP DATA COUNTER
	ENTRY DATA
DATA	CPY <HOWMANY	;SEE IF ANY MORE DATA
	BCS NOMORE	;NO MORE SO GOTO  OF S TOOL
	LDA [<DATAPTR],Y	;OTHERWISE GET DATA
	JSR SDATA
	BCS ERRORSND
	INY
	BRA DATA
*
	ENTRY NOMORE
NOMORE		; 
	CLC
	ENTRY ERRORSND
ERRORSND	RTS

NEWTAB	DC.B $09	;FASTEST REPEAT RATE FOR NEW KEYUC
	DC.B $08
	DC.B $07
	DC.B $06
	DC.B $05
	DC.B $04
	DC.B $03
	DC.B $02
	DC.B $01
	DC.B $00	;LOWEST "

* S DATA
* S data or command, to the uC using the command reg.
* If command reg. is empty ss a data byte, otherwise flags error
* If data not read w/ 30 ms. then timeout error
* Uses: A (8-BIT)
* X (16-BIT)
* Input: A=Command
* Output: A=KMSTATUS
* Errors: CARRY SET

	ENTRY SDATA
SDATA		;       

	LONGA OFF
	LONGI ON

	TAX	;SAVE OFF DATA
	LDA |KMSTATUS	;GET CMD REG FULL BIT -> LSB
	ROR A	; INTO CARRY
	TXA	;GET DATA BACK
	BCS ERROUT	;REG. NOT EMPTY SO FLAG ERROR
*
	STA |CMDREG	;STORE AWAY NEW COMMAND
	LDX #7500	;TIMEOUT 7500*(2+2+4+2+3)/3 = 30 MS.
	ENTRY REGFULL
REGFULL	DEX	;
	BEQ FDBTIMEOUT
	LDA |KMSTATUS	;GET CMD REG FULL BIT -> LSB
	ROR A	; INTO CARRY
	BCS REGFULL	;SET IF FULL (NOT READ)
*  ;CLR IF EMPTY (READ)
*
	ENTRY ERROUT
ERROUT	RTS	;LEAVE W/ A=KMSTATUS CONTENTS
*
* Routine to process the  of a command
* Handles any saved	status conditions such as FLUSH, ABORT,	DESKTOP
* Handles the response read from a pending	command if it exists
* Ignores the Desktop Manager Bit ! This occurs because this code
* would have to emulate all the code the interrupt dispatcher
* supports before calling the desk manager entry point.
*
* 8-Bit m, 16-bit x

	ENTRY IMD
IMD		;       

	SEP #$30	;8-BIT m,x
	LONGA OFF
	LONGI OFF

	LDA #ABORTBIT+FLUSHBIT ;CLEAR OUT LOW 3	BITS, RESPONSE, SRQ
	AND |STATUSTMP	; OF STATUS FLAGS
	STA |STATUSTMP	;AND UPDATE STATUS FLAGS
	BEQ NOSTSP	;NO pending STATUS CONDITIONS
*
	CMP #ABORTBIT	;IF ONLY ABORT BIT SET->ABORT CONDITION
	BNE NOTSET
*
*  PROCESS ABORT
	PHB	;SAVE DATA BANK
	LDA #0	;SET DATA BANK =0
	PHA
	PLB
	JSL IRQ_MICRO	;PROCESS ABORT - IF	RETURNS THEN OK
	PLB	;RESTORE DATA BANK
*
	ENTRY NOTSET
NOTSET	LDA |STATUSTMP	;LOOK FOR FLUSH BUFFER BIT
	ASL A
	ASL A
	BEQ NOSTSP	;NOT SET
	BCC NOTABORT	;IF ABORT BIT SET THEN CLEAR KEYBOARD
	STA |KBDSTRB
	ENTRY NOTABORT
NOTABORT		; 
	LDA #0
	STA |STATUSTMP	;CLEAR OUT THE REST	OF STATUS BITS
	PHB
	PHA	;SET DATA BANK TO 0
	PLB
	JSL IRQ_FLUSH	;PROCESS FLUSH
	PLB	;RESTORE DATA BANK
*
	ENTRY NOSTSP
NOSTSP	LDA #RSPNSBIT
	TRB |RSPNSFLAG	;TEST & CLEAR OUT RESPONSE FLAG
	BEQ NORSPNSE	;IF NO RESPONSE THEN DONE
*
* Response was read, from pending command,	during immediate command
* Process data by calling completion vector
*
	LDA #PENDBIT
	TRB |PENDFLAG	;CLEAR COMMAND pending	FLAG
	BEQ NORSPNSE
*
	PEA $0000	;SET UP BUFFER ADDRESS ON STACK
	PHD	;BOTTOM OF STACK

	LONGA OFF
	LONGI OFF
	SEP #$30	;8-BIT m,x

	JSL VCTRCPLT	;IF RESPONSE READ PREVIOUSLY-PROCESS NOW
	LONGA ON
	LONGI ON
	REP #$30	;16-BIT m,x
	PLA	;CLEAN OFF BUFFER ADDRESS
	PLA	; IN 16-BIT
*
	ENTRY NORSPNSE
NORSPNSE		; 
	LONGA OFF	;RESET TO 8-BIT M FROM COMPLETION
	LONGI ON	;RESET TO 16-BIT X IF SKIPPED COMPLETION
	SEP #$20	;8-BIT M, 16-BIT X
	REP #$10
	RTS

* RECEIVE DATA
* Gets data from the data reg.
* Assumes the data reg. doesn't contain status (SCMD clears
* status from data reg. after command is read)
* Uses A,X
* 8-bit m, 16-bit x

	ENTRY RCVDATA
RCVDATA		;       

	LONGA OFF
	LONGI ON

	CLC
	LDX #7500	;TIMEOUT 7500*(2+2+4+2+3)/3 = 30 MS.
	ENTRY REGOK
REGOK	DEX
	BEQ FDBTIMEOUT
	LDA |KMSTATUS	;GET DATA REG FULL BIT -> BIT 5
	AND #DATAFULL	;AND TEST
	BEQ REGOK	;CLR IF EMPTY (READ)
*  ;SET IF FULL (DON'T READ)
*
	LDA |DATAREG
	RTS
*
	ENTRY FDBTIMEOUT
FDBTIMEOUT	SEC
	RTS


* Reads a response from a FDB pending command
* The first response byte has the MSB set (otherwise status) and
* indicates in the low 3 bits how many bytes will follow.
* This event must be atomic: Can't be interrupted & must be completed
* Saves other status bits from response	byte -> STATUSTMP (w/MSB clr)
* Saves the response bytes in RSPNSBUF with the first byte indicating
* how many bytes are to follow (length). The response bytes	are stored
* backwards in the buffer - the first data byte is at the nth
* position after the length byte, while	the nth byte received is the
* is the first after the length byte (2nd in the buffer). Actually
* works out just great since the bytes are transferred from	the uC to
* the system in reverse order: last byte received on FDB is	first byte
* passed from uC to	the system. This means that the data is	stored
* in the buffer in the same order as they are received on FDB from
* the device.
*
* ERROR: Carry set

	ENTRY READRSPNS
READRSPNS		;       

	LONGA OFF
	LONGI ON

	JSR RCVDATA	;GET DATA BYTE FROM	UC
	BCS ERRRSPNS	;TIMEOUT ERROR
	BMI GOTRSPNS	;GOT RESPONSE BYTE
	TSB |STATUSTMP	;SAVE UC STATUS BYTE
	BRA READRSPNS	;GET ANOTHER BYTE
*
	ENTRY GOTRSPNS
GOTRSPNS		; ;GOT RESPONSE BYTE
	AND #$7F	;CLEAR OUT RESPONSE	BIT
	TSB |STATUSTMP	;SAVE OTHER UC STATUS BITS
	ENTRY RSPNSINT
RSPNSINT	AND #$07	;GET COUNT FROM LOW	3 BITS
	STA <RSPNSBUF	;AND SAVE IN RESPONSE BUFFER
	XBA
	LDA #0	;CLEAR OUT HI BYTE
	XBA
	TAY	;COUNT=0 OR N-1 BYTES
	BEQ BYTES	;IF 0 THEN NO MORE BYTES TO FOLLOW
	INY	;GET COUNT+1 MORE BYTES
	ENTRY SOMEMORE
SOMEMORE	JSR RCVDATA	;GET NEXT BYTE
	BCS ERRRSPNS	;TIMEOUT ERROR
	TYX	;SETUP X FOR DIRECT	INDEXED
	STA <RSPNSBUF,X	;STORE IN BUFFER - START @  &
	DEY	; WORK TOWARD BEGINNING OF BUFFER
	BNE SOMEMORE	;STORE MORE
	ENTRY BYTES
BYTES		; ;CARRY CLEAR IF OK
	RTS
	ENTRY ERRRSPNS
ERRRSPNS		; ;CARRY SET ON ERROR EXIT
	LDA #PENDBIT	;CLEAR OUT pending FLAG ON ERROR
	TRB |FLAGS	;IF ERROR ENCOUNTERED
	RTS


* RESPONSE INTERRUPT HANDLER
* This code is the entry point for the response interrupt handler
* It reads the response, clears the pending flag, then jumps to
* the completion vector.
*
* 8-Bit m, 8-bit x

	ENTRY INTRSPNS
INTRSPNS		;       

	LONGA OFF
	LONGI OFF

	TAY	;SAVE RESPONSE BYTE-FROM INTRPT DISPATCH
	PHD	;SAVE DIRECT PAGE
	PHP	;SAVE INTERRUPT STATUS
	PHB	;SAVE DATA BANK
	LONGA ON
	LONGI ON
	REP #$30	;NEED TO BE IN 16-BIT FOR INIT
	JSR INITOOL	;DO INIT STUFF
	LONGA OFF
	TCS	;OPENS UP BUFFER INSIDE STACK
	LDA #PENDBIT	;CHECK AND
	TRB |FLAGS	;CLEAR OUT pending INTERRUPT
*  ;IF NOT SET - ERROR DETECTED ON READ
	TYA	;GET BACK RESPONSE BYTE
	JSR RSPNSINT	;SAVE RESPONSE BYTE, GET REST -> BUFFER
	BCC GOODRSP	;RESPONSE OK
*
	LDA #0	;FAKE A RESPONSE INSTEAD OF SYSDEATH
	STA <RSPNSBUF	;SET # OF BYTES RECEIVED = 0
*
* Routine to call completion vector to process data
* Data stored in RSPNSBUF
*
* Completion routine should expect:
* 8-bit m,x
* Pointer to data stored above return address on stack (4-6,S)
* RTLs with stack,m,x intact (don't clean up).
*
	ENTRY GOODRSP
GOODRSP		; ;PUSH ADDRESS OF RESPONSE ONTO STACK
	PEA $0000	;HAPPENS TO BE IN BANK 0
	PHD	;BOTTOM OF DIRECT PAGE
	LONGA ON
	LONGI ON
	SEP #$30	;GO IN 8-BIT m,x
	JSL VCTRCPLT	;COMPLETION VECTOR RETURNS FROM INTERUPT
	REP #$30	;GO IN 16-BIT m,x
	PLA	;CLEAN OFF STACK FOR COMPLETION ROUTINE
	PLA
	JMP CLEAN	;USED TO RETURN FROM INTERRUPT
*  ;(GOES BACK TO 8-BIT W/ PLP)
*
* INIT sequence for	a typical tool call.
* It assumes the following stack structure on entry:
*
* 11-12 Word: Count	of Data bytes (HOWMANY)
* D-10 Long: Pointer to Data
* B-C Word: Command	to uC
* 8-A Adrs: Tool Dispatcher Return
* 5-7 Adrs: Calling	Code Return
* 3-4 : Original Direct Page
* 2 : Processor Status
* 1 : Data Bank
* TOS->
*
* and adds following:
*
* 2 bytes : Return address from this subroutine
* 20 bytes : Buffer	for Response
*
* The direct page is then placed on top	of the stack. The stack is
* then pushed down one more byte. This allows the beginning	of the
* direct page to be	used as a pointer to data (PHD).
* The stack pointer	is not actually moved until the routine	returns
* to the tool call.
*

	ENTRY INITOOL
INITOOL		;       

	LONGA ON	;START IN 16-BIT MODE
	LONGI ON

	SEI	;DISABLE INTERRUPTS
	TSC	;MAKE ROOM IN STACK	FOR BUFFERS
	SEC	; (JSR ALREADY TOOK	2 BYTES)
	SBC #RSPNSLNG*2-1	;LEAVE ROOM FOR 2 RESPONSE BUFFERS
	TCD	;PUT DIRECT PAGE ONTO FUTURE STACK
	DEC A	;ADJUST STACK PTR OUTSIDE ZERO PAGE
	JSR DBTOE1	;Changes data bank register to $E1
	SEP #$20	;8-BIT ACCUMULATOR
	LONGA OFF
	RTS	;MOVE TCS AFTER RETURN TO FIX STACK

*
*  Routine
* Used to clean up input parameters off	stack,
* restore stack pointer, direct page, &	data bank.
* Sets up carry for	error.
*
* Input: Y -> Error	code
* X=PARMS -> Parameter Bytes on stack to be cleaned off
*

	ENTRY NOERR
NOERR		;       

	REP #$30
	LONGA ON
	LONGI ON

	LDY #$0000	;INDICATES NO ERROR
	BRA ALL

	ENTRY CALL
CALL		;       
	REP #$30	;RETURN IN 16-BIT m,x
	TYA
	ORA #MYTOOLNUM*256	;MYTOOL # IN HI BYTE
	TAY

	ENTRY ALL
ALL	LDA <RTLGLU+4	;MOVE GLU ROUTINE RETURN ADDRESS
	STA <RTLGLU+4,X
	LDA <RTLGLU+2
	STA <RTLGLU+2,X	; AND CALLING RETURN ADDRESS
	LDA <RTLGLU+0
	STA <RTLGLU+0,X

	STX <PARMS	;SAVE # OF PARAMETERS
	TSC	;MOVE STACK POINTER	TO RESTORE STATUS
	CLC
	ADC #RSPNSLNG*2+2	;POINT TO SAVED STATUS (PLB,P,D)
	TCS
	ADC <PARMS	;CALCULATE NEW LOCATION OF STACK POINTER
	ADC #$0004	;BY ADDING OFFSET +	4 (SAVED STATUS)
	TAX	;SAVE FOR NOW
	PLB	;RESTORE DATA BANK
	PLP	; INTERRUPT STATUS
	PLD	; DIRECT PAGE
*
	TYA	;SET ERROR CODE
	CMP #$0001	;SET CARRY FOR ERROR CODE (CLR ON 0)
	TXS	;MOVE NEW STACK POINTER
	RTL	;RETURN TO GLU

* Used to return from an interrupt handler
* Enter in 16-bit m,x

	ENTRY CLEAN
CLEAN		;       

	LONGA ON	;NEEDED FOR STACK CALCULATION
	LONGI ON

	TSC	;GET STACK PTR
	CLC
	ADC #RSPNSLNG*2+2	;POINT TO SAVED STATUS (PLB,P,D)
	TCS	;RESTORE STACK POINTER
	PLB	;RESTORE DATA BANK
	PLP	; STATUS (8-BIT m,x)
	PLD	; DIRECT PAGE
	CLC	;HANDLED INTERRUPT - NOTIFY DISPATCHER
	RTL	;RETURN TO INTERRUPT DISPATCHER

*
* Set data bank to $e1
*
	ENTRY DBTOE1
DBTOE1		;       
	PEA $E1E1
	PLB
	PLB
	RTS




	ENDP




	end



\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Animation/Glib.aii b/IIGS.601.SRC/GSToolbox/Animation/Glib.aii
new file mode 100644
index 0000000..254cd79
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Animation/Glib.aii
@@ -0,0 +1 @@
+*******************************************************************************
* GLIB.Aii
*
* (C)  Copyright Two guys and a cabbage software 1988
* All rights reserved.
*
* by Jim Mensch and Steve Williamson
* 12/20/88
*
* Animation library
*
* Files:
*
*
*
* Modification History:
*
* Version 1.0d9	Added clipping co to doBlitCHarSq code so that we clip to the 
*	stage properly
*
*******************************************************************************
;	Seg 'AnimSeg1'
	PRINT NOGEN,NOHDR
	PRINT PUSH,OFF
	INCLUDE 'ALL.Game.Macros'
	INCLUDE 'E16.memory'
	PRINT POP
	INCLUDE 'Anim.macros'
	INclude 'Anim.Equates'
	Include 'Anim.globals'
	
; Data required by this routine that exists in other routines
	Import Globals:GlobalsTemplate
	Import Constants:ConstTemplate
	Import SetMyDataBank
	Import MyBackSaveArea
	Import LoadFile
	Import Yank10
	Import Yank10Err
	Import Yank8
	Import Yank8Err
	Entry LoadSpecActor
	
	GBLA &procDebugFlag
&procDebugFlag	SETA 0

	GBLA &TestVerFlag
&TestVerFlag	SETA 0

DrawBank	equ $01
DrawDblBank	equ $0101
AbsBank	equ $E1
AbsDblBank	equ $E1E1
BackBank	equ $0009


	macro
	_ShadowOn
	sep #$20
	longa off
	lda >ShadowReg	; load the shadowing register now
	and #$F7	; enable super hires shadowing
	sta >ShadowReg	; and save the shadowing register
	rep #$20
	longa on
	EndM

	macro
	_ShadowOff
	sep #$20
	longa off
	lda >ShadowReg	; load the shadowing register now
	ora #$08	; disable super hires shadowing
	sta >ShadowReg	; and save the shadowing register
	rep #$20
	longa on
	EndM

****************************************************************
*
*  AnimRecord   -	  Global data segment for the GLib routines
*
*
****************************************************************
*
AnimRecord	Record
	Export Mons0Sped
	Export SpudData
	Export Mons1
	Export Mons2
	Export Mons3
	Export Mons4
	Export Mons5
	Export Mons6
	Export Mons7
	Export AnimActive
	
PassStack	ds.B 2
AnimActive	dc.W 0

SpeedOffTable
	dc.W 0,0	; speed 0 north
	dc.W 0,0	; speed 0 north east
	dc.W 0,0	; east
	dc.W 0,0	; south east
	dc.W 0,0	; south
	dc.W 0,0	; south west
	dc.W 0,0	; west
	dc.W 0,0	; north west
	
	dc.W 0,-1	; speed 1 north
	dc.W 2,-1	; speed 1 north east
	dc.W 2,0	; east
	dc.W 2,1	; south east
	dc.W 0,1	; south
	dc.W -2,1	; south west
	dc.W -2,0	; west
	dc.W -2,-1	; north west

	dc.W 0,-2	; speed 2 north
	dc.W 4,-2	; speed 1 north east
	dc.W 4,0	; east
	dc.W 4,2	; south east
	dc.W 0,2	; south
	dc.W -4,2	; south west
	dc.W -4,0	; west
	dc.W -4,-2	; north west

	dc.W 0,-3	; speed 3 north
	dc.W 6,-3	; speed 3 north east
	dc.W 6,0	; east
	dc.W 6,3	; south east
	dc.W 0,3	; south
	dc.W -6,3	; south west
	dc.W -6,0	; west
	dc.W -6,-3	; north west

	dc.W 0,-4	; speed 4 north
	dc.W 8,-4	; speed 4 north east
	dc.W 8,0	; east
	dc.W 8,4	; south east
	dc.W 0,4	; south
	dc.W -8,4	; south west
	dc.W -8,0	; west
	dc.W -8,-4	; north west

	dc.W 0,-5	; speed 5 north
	dc.W 10,-5	; speed 5 north east
	dc.W 10,0	; east
	dc.W 10,5	; south east
	dc.W 0,5	; south
	dc.W -10,5	; south west
	dc.W -10,0	; west
	dc.W -10,-5	; north west

	dc.W 0,-6	; speed 6 north
	dc.W 12,-6	; speed 6 north east
	dc.W 12,0	; east
	dc.W 12,6	; south east
	dc.W 0,6	; south
	dc.W -10,6	; south west
	dc.W -10,0	; west
	dc.W -10,-6	; north west

	Export CharTable	;!!!!!
CharTable	DC.L Mons0Sped,mons1,mons2,mons3,mons4,mons5,mons6,mons7
	dc.L SS0Wand,ss1,ss2,ss3,ss4,ss5,ss6,ss7

	Export WandShot
WandShot
	ds.B CEndOfVars
	dc.W $05	; Wand shot height	                    
	dc.W $04
	dc.L WandTable
	dc.L WandMTable
	DC.W 0,9	; Phases for East
	DC.W 0,9	; Phases for West
	DC.W 0,9	; Phases for North
	DC.W 0,9	; Phases for South
	dc.W 0,9,0,0	; for shots this is	the explosion info
	dc.W 0	; Direction
	dc.W 0	; Speed 
	dc.L 0	; storage for collision rect info
	
	Export SpudData
SpudData
	ds.B CEndOfVars
	DC.W $0F	; 15 bytes tall
	DC.W $08	; 8 bytes wide
	dc.L SpedTable
	dc.L SpedMTable
	DC.W 20,29	; Phases for North 20,29
	DC.W 0,9	; Phases for East 0,9
	DC.W 30,39	; Phases for South 30,39
	DC.W 10,19	; Phases for West 10,19
	dc.W 40,41,42,43	; Phases for shooting
	dc.W 0	; Direction
	dc.W 0	; Speed
	dc.L 0	; storage for collision Rect Info

SS0Wand	ds.B SizeOfAnimRec
SS1	ds.B SizeofAnimRec
SS2	ds.B SizeofAnimRec
SS3	ds.B SizeofAnimRec
SS4	ds.B SizeofAnimRec
SS5	ds.B SizeofAnimRec
SS6	ds.B SizeofAnimRec
SS7	ds.B SizeofAnimRec

Mons0Sped	ds.B SizeOfAnimRec
Mons1	ds.B SizeofAnimRec
Mons2	ds.B SizeofAnimRec
Mons3	ds.B SizeofAnimRec
Mons4	ds.B SizeofAnimRec
Mons5	ds.B SizeofAnimRec
Mons6	ds.B SizeofAnimRec
Mons7	ds.B SizeofAnimRec

;
; Speds wand shot
;
WandTable	dc.L wand01,wand01,wand01,wand01,wand01,wand02
	dc.L wand02,wand02,wand02,wand02
WandMTable	dc.L wand81,wand81,wand81,wand81,wand81,wand82
	dc.L wand82,wand82,wand82,wand82

wand01
	dc.W $FFFF,$FFFF
	dc.W $F6FF,$FFFF
	dc.W $67FF,$FF6F
	dc.W $F6FF,$FFFF
	dc.W $FFFF,$FFFF
wand81
	dc.W $0000,$0000
	dc.W $0F00,$0000
	dc.W $FF00,$00F0
	dc.W $0F00,$0000
	dc.W $0000,$0000
	dc.B 3,2,1,1		; saved left top width height in pixels
wand02
	dc.W $F6FF,$FFFF
	dc.W $67FF,$FF6F
	dc.W $77F6,$FF76
	dc.W $67FF,$FF6F
	dc.W $F6FF,$FFFF
wand82
	dc.W $0F00,$0000
	dc.W $FF00,$00F0
	dc.W $FF0F,$00FF
	dc.W $FF00,$00F0
	dc.W $0F00,$0000
	dc.B 2,1,3,2

;
; Character Sped #1
;
SpedTable	DC.L SpedE01,SpedE01,SpedE01,SpedE01,SpedE02
	DC.L SpedE02,SpedE02,SpedE02,SpedE02,SpedE01
	DC.L SpedW01,SpedW01,SpedW01,SpedW01,SpedW02
	DC.L SpedW02,SpedW02,SpedW02,SpedW02,SpedW01
	DC.L SpedN01,SpedN01,SpedN01,SpedN01,SpedN02
	DC.L SpedN02,SpedN02,SpedN02,SpedN02,SpedN01
	DC.L SpedS01,SpedS01,SpedS01,SpedS01,SpedS02
	DC.L SpedS02,SpedS02,SpedS02,SpedS02,SpedS01
	DC.L SpedShotN01,SpedShotE01,SpedShotS01,SpedShotW01
SpedMTable	DC.L SpedE81,SpedE81,SpedE81,SpedE81,SpedE82
	DC.L SpedE82,SpedE82,SpedE82,SpedE82,SpedE81
	DC.L SpedW81,SpedW81,SpedW81,SpedW81,SpedW82
	DC.L SpedW82,SpedW82,SpedW82,SpedW82,SpedW81
	DC.L SpedN81,SpedN81,SpedN81,SpedN81,SpedN82
	DC.L SpedN82,SpedN82,SpedN82,SpedN82,SpedN81
	DC.L Speds81,Speds81,Speds81,Speds81,Speds82
	DC.L Speds82,Speds82,Speds82,Speds82,Speds81
	DC.L SpedShotN81,SpedShotE81,SpedShotS81,SpedShotW81

SpedE01
	dc.W $FFFF,$FFFF,$FFFF,$FFFF
	dc.W $FFFF,$F0FF,$FF0F,$FFFF
	dc.W $FFFF,$01F0,$0F10,$FF0F
	dc.W $FFFF,$1101,$0012,$FF90
	dc.W $F0FF,$1211,$0988,$0F99
	dc.W $01FF,$2811,$0008,$FF10
	dc.W $01FF,$2812,$8088,$FF10
	dc.W $07FF,$8800,$0088,$FF10
	dc.W $F0FF,$EEF0,$08EE,$FF80
	dc.W $FFFF,$EE0E,$EEEE,$FF80
	dc.W $FFFF,$EE01,$EEEE,$FF0F
	dc.W $F0FF,$11EE,$1011,$FFFF
	dc.W $F0FF,$EEEE,$EEE1,$FF0F
	dc.W $02FF,$E0EE,$EE0E,$FF20
	dc.W $02FF,$2F22,$22F2,$FF20
SpedE81
	dc.W $0000,$0000,$0000,$0000
	dc.W $0000,$0F00,$00F0,$0000
	dc.W $0000,$FF0F,$F0FF,$00F0
	dc.W $0000,$FFFF,$FFFF,$00FF
	dc.W $0F00,$FFFF,$FFFF,$F0FF
	dc.W $FF00,$FFFF,$FFFF,$00FF
	dc.W $FF00,$FFFF,$FFFF,$00FF
	dc.W $FF00,$FFFF,$FFFF,$00FF
	dc.W $0F00,$FF0F,$FFFF,$00FF
	dc.W $0000,$FFFF,$FFFF,$00FF
	dc.W $0000,$FFFF,$FFFF,$00F0
	dc.W $0F00,$FFFF,$FFFF,$0000
	dc.W $0F00,$FFFF,$FFFF,$00F0
	dc.W $FF00,$FFFF,$FFFF,$00FF
	dc.W $FF00,$F0FF,$FF0F,$00FF
	dc.B 3,2,11,13		; saved left top width height in pixels
	
spedE02
	dc.W $FFFF,$F0FF,$FF0F,$FFFF
	dc.W $FFFF,$01F0,$FF10,$FFFF
	dc.W $FFFF,$1101,$0F12,$FFF0
	dc.W $F0FF,$1211,$0F88,$0F09
	dc.W $01FF,$2811,$0008,$9099
	dc.W $01FF,$2812,$8088,$0F01
	dc.W $01FF,$8810,$0F88,$0F01
	dc.W $07FF,$EE00,$0FEE,$0F01
	dc.W $F0FF,$EEF0,$00EE,$0F88
	dc.W $FFFF,$EE01,$EEEE,$0FE8
	dc.W $FFFF,$110E,$EE11,$FFE0
	dc.W $FFFF,$EE0E,$11E1,$FF0F
	dc.W $FFFF,$EE0E,$EEEE,$FF0F
	dc.W $FFFF,$EE0E,$E2EE,$FF0F
	dc.W $FFFF,$2202,$2222,$FF0F
SpedE82
	dc.W $0000,$0F00,$00F0,$0000
	dc.W $0000,$FF0F,$00FF,$0000
	dc.W $0000,$FFFF,$F0FF,$000F
	dc.W $0F00,$FFFF,$F0FF,$F0FF
	dc.W $FF00,$FFFF,$FFFF,$FFFF
	dc.W $FF00,$FFFF,$FFFF,$F0FF
	dc.W $FF00,$FFFF,$F0FF,$F0FF
	dc.W $FF00,$FFFF,$F0FF,$F0FF
	dc.W $0F00,$FF0F,$FFFF,$F0FF
	dc.W $0000,$FFFF,$FFFF,$F0FF
	dc.W $0000,$FFFF,$FFFF,$00FF
	dc.W $0000,$FFFF,$FFFF,$00F0
	dc.W $0000,$FFFF,$FFFF,$00F0
	dc.W $0000,$FFFF,$FFFF,$00F0
	dc.W $0000,$FFFF,$FFFF,$00F0
	dc.B 3,1,12,14

SpedN01
	dc.W $FFFF,$FFFF,$FFFF,$FFFF
	dc.W $FFFF,$FFFF,$FFFF,$FFFF
	dc.W $FFFF,$00F0,$FF00,$FFFF
	dc.W $FFFF,$1101,$0F11,$FFFF
	dc.W $F0FF,$1111,$1011,$FFFF
	dc.W $F0FF,$1111,$1011,$FFFF
	dc.W $F0FF,$1101,$0011,$FFFF
	dc.W $F0FF,$1121,$291E,$FF0F
	dc.W $F0FF,$11EE,$E91E,$FF90
	dc.W $01FF,$E7EE,$EE7E,$FF0F
	dc.W $0EFF,$1E11,$EE7E,$FF0F
	dc.W $0EFF,$E1EE,$1111,$FF0F
	dc.W $0EFF,$EEEE,$EEEE,$FF0F
	dc.W $02FF,$2022,$EEEE,$FF0F
	dc.W $F0FF,$0F00,$2222,$FF0F
SpedN81
	dc.W $0000,$0000,$0000,$0000
	dc.W $0000,$0000,$0000,$0000
	dc.W $0000,$FF0F,$00FF,$0000
	dc.W $0000,$FFFF,$F0FF,$0000
	dc.W $0F00,$FFFF,$FFFF,$0000
	dc.W $0F00,$FFFF,$FFFF,$0000
	dc.W $0F00,$FFFF,$FFFF,$0000
	dc.W $0F00,$FFFF,$FFFF,$00F0
	dc.W $0F00,$FFFF,$FFFF,$00FF
	dc.W $FF00,$FFFF,$FFFF,$00F0
	dc.W $FF00,$FFFF,$FFFF,$00F0
	dc.W $FF00,$FFFF,$FFFF,$00F0
	dc.W $FF00,$FFFF,$FFFF,$00F0
	dc.W $FF00,$FFFF,$FFFF,$00F0
	dc.W $0F00,$F0FF,$FFFF,$00F0
	dc.B 3,2,10,13
SpedN02
	dc.W $FFFF,$FFFF,$FFFF,$FFFF
	dc.W $FFFF,$FFFF,$FFFF,$FFFF
	dc.W $FFFF,$00FF,$0F00,$FFFF
	dc.W $FFFF,$11F0,$1011,$FFFF
	dc.W $FFFF,$1101,$1111,$FF0F
	dc.W $FFFF,$1101,$1111,$FF0F
	dc.W $FFFF,$1100,$1011,$FF0F
	dc.W $FFFF,$E102,$1211,$FF90
	dc.W $FFFF,$E10E,$EE11,$0F99
	dc.W $F0FF,$E7EE,$EE7E,$FF10
	dc.W $F0FF,$E7EE,$11E1,$FFE0
	dc.W $F0FF,$1111,$EE1E,$FFE0
	dc.W $F0FF,$EEEE,$EEEE,$FFE0
	dc.W $F0FF,$EEEE,$2202,$FF20
	dc.W $F0FF,$2222,$00F0,$FF0F
SpedN82
	dc.W $0000,$0000,$0000,$0000
	dc.W $0000,$0000,$0000,$0000
	dc.W $0000,$FF00,$F0FF,$0000
	dc.W $0000,$FF0F,$FFFF,$0000
	dc.W $0000,$FFFF,$FFFF,$00F0
	dc.W $0000,$FFFF,$FFFF,$00F0
	dc.W $0000,$FFFF,$FFFF,$00F0
	dc.W $0000,$FFFF,$FFFF,$00FF
	dc.W $0000,$FFFF,$FFFF,$F0FF
	dc.W $0F00,$FFFF,$FFFF,$00FF
	dc.W $0F00,$FFFF,$FFFF,$00FF
	dc.W $0F00,$FFFF,$FFFF,$00FF
	dc.W $0F00,$FFFF,$FFFF,$00FF
	dc.W $0F00,$FFFF,$FFFF,$00FF
	dc.W $0F00,$FFFF,$FF0F,$00F0
	dc.B 3,3,10,12
SpedS01
	dc.W $FFFF,$FFFF,$FFFF,$FFFF
	dc.W $FFFF,$00F0,$FF00,$FFFF
	dc.W $FFFF,$1101,$0F11,$FFFF
	dc.W $F0FF,$2212,$1022,$FFFF
	dc.W $F0FF,$8812,$1082,$FFFF
	dc.W $F0FF,$0818,$1008,$FFFF
	dc.W $F0FF,$8802,$0082,$FFFF
	dc.W $09FF,$882E,$208E,$FFFF
	dc.W $99F0,$EE9E,$EEEE,$FF0F
	dc.W $01FF,$EEEE,$EEEE,$FF0F
	dc.W $01FF,$1281,$EE2E,$FF0F
	dc.W $08FF,$E28E,$1121,$FF0F
	dc.W $0EFF,$EEEE,$EEEE,$FF0F
	dc.W $02FF,$2022,$EEEE,$FF0F
	dc.W $F0FF,$0F00,$2222,$FF0F
SpedS81
	dc.W $0000,$0000,$0000,$0000
	dc.W $0000,$FF0F,$00FF,$0000
	dc.W $0000,$FFFF,$F0FF,$0000
	dc.W $0F00,$FFFF,$FFFF,$0000
	dc.W $0F00,$FFFF,$FFFF,$0000
	dc.W $0F00,$FFFF,$FFFF,$0000
	dc.W $0F00,$FFFF,$FFFF,$0000
	dc.W $FF00,$FFFF,$FFFF,$0000
	dc.W $FF0F,$FFFF,$FFFF,$00F0
	dc.W $FF00,$FFFF,$FFFF,$00F0
	dc.W $FF00,$FFFF,$FFFF,$00F0
	dc.W $FF00,$FFFF,$FFFF,$00F0
	dc.W $FF00,$FFFF,$FFFF,$00F0
	dc.W $FF00,$FFFF,$FFFF,$00F0
	dc.W $0F00,$F0FF,$FFFF,$00F0
	dc.B 2,1,10,14
SpedS02
	dc.W $FFFF,$FFFF,$FFFF,$FFFF
	dc.W $FFFF,$00FF,$0F00,$FFFF
	dc.W $FFFF,$11F0,$1011,$FFFF
	dc.W $FFFF,$2201,$2122,$FF0F
	dc.W $FFFF,$2801,$2188,$FF0F
	dc.W $FFFF,$8001,$8180,$FF0F
	dc.W $FFFF,$2800,$2088,$FF0F
	dc.W $F0FF,$E892,$E288,$FF0F
	dc.W $09FF,$EE99,$EEEE,$FFE0
	dc.W $F0FF,$EE1E,$EEEE,$FF10
	dc.W $F0FF,$E218,$1121,$FF10
	dc.W $F0FF,$1288,$EE2E,$FFE0
	dc.W $F0FF,$EEEE,$EEEE,$FFE0
	dc.W $F0FF,$EEEE,$2202,$FF20
	dc.W $F0FF,$2222,$00F0,$FF0F
SpedS82
	dc.W $0000,$0000,$0000,$0000
	dc.W $0000,$FF00,$F0FF,$0000
	dc.W $0000,$FF0F,$FFFF,$0000
	dc.W $0000,$FFFF,$FFFF,$00F0
	dc.W $0000,$FFFF,$FFFF,$00F0
	dc.W $0000,$FFFF,$FFFF,$00F0
	dc.W $0000,$FFFF,$FFFF,$00F0
	dc.W $0F00,$FFFF,$FFFF,$00F0
	dc.W $FF00,$FFFF,$FFFF,$00FF
	dc.W $0F00,$FFFF,$FFFF,$00FF
	dc.W $0F00,$FFFF,$FFFF,$00FF
	dc.W $0F00,$FFFF,$FFFF,$00FF
	dc.W $0F00,$FFFF,$FFFF,$00FF
	dc.W $0F00,$FFFF,$FFFF,$00FF
	dc.W $0F00,$FFFF,$FF0F,$00F0
	dc.B 3,1,10,14
SpedW01
	dc.W $FFFF,$FFFF,$FFFF,$FFFF
	dc.W $FFFF,$F0FF,$FF0F,$FFFF
	dc.W $F0FF,$01F0,$0F10,$FFFF
	dc.W $09FF,$2100,$1011,$FFFF
	dc.W $99F0,$8890,$1121,$FF0F
	dc.W $01FF,$8000,$1182,$FF10
	dc.W $01FF,$8808,$2182,$FF10
	dc.W $01FF,$8800,$0088,$FF70
	dc.W $08FF,$EE80,$0FEE,$FF0F
	dc.W $08FF,$EEEE,$E0EE,$FFFF
	dc.W $F0FF,$EEEE,$10EE,$FFFF
	dc.W $FFFF,$1101,$EE11,$FF0F
	dc.W $F0FF,$1EEE,$EEEE,$FF0F
	dc.W $02FF,$E0EE,$EE0E,$FF20
	dc.W $02FF,$2F22,$22F2,$FF20
SpedW81
	dc.W $0000,$0000,$0000,$0000
	dc.W $0000,$0F00,$00F0,$0000
	dc.W $0F00,$FF0F,$F0FF,$0000
	dc.W $FF00,$FFFF,$FFFF,$0000
	dc.W $FF0F,$FFFF,$FFFF,$00F0
	dc.W $FF00,$FFFF,$FFFF,$00FF
	dc.W $FF00,$FFFF,$FFFF,$00FF
	dc.W $FF00,$FFFF,$FFFF,$00FF
	dc.W $FF00,$FFFF,$F0FF,$00F0
	dc.W $FF00,$FFFF,$FFFF,$0000
	dc.W $0F00,$FFFF,$FFFF,$0000
	dc.W $0000,$FFFF,$FFFF,$00F0
	dc.W $0F00,$FFFF,$FFFF,$00F0
	dc.W $FF00,$FFFF,$FFFF,$00FF
	dc.W $FF00,$F0FF,$FF0F,$00FF
	dc.B 2,2,12,13
SpedW02
	dc.W $FFFF,$F0FF,$FF0F,$FFFF
	dc.W $FFFF,$01FF,$0F10,$FFFF
	dc.W $0FFF,$21F0,$1011,$FFFF
	dc.W $90F0,$88F0,$1121,$FF0F
	dc.W $9909,$8000,$1182,$FF10
	dc.W $10F0,$8808,$2182,$FF10
	dc.W $10F0,$88F0,$0188,$FF10
	dc.W $10F0,$EEF0,$00EE,$FF70
	dc.W $88F0,$EE00,$0FEE,$FF0F
	dc.W $8EF0,$EEEE,$10EE,$FFFF
	dc.W $0EFF,$11EE,$E011,$FFFF
	dc.W $F0FF,$1E11,$E0EE,$FFFF
	dc.W $F0FF,$EEEE,$E0EE,$FFFF
	dc.W $F0FF,$EE2E,$E0EE,$FFFF
	dc.W $F0FF,$2222,$2022,$FFFF
SpedW82
	dc.W $0000,$0F00,$00F0,$0000
	dc.W $0000,$FF00,$F0FF,$0000
	dc.W $F000,$FF0F,$FFFF,$0000
	dc.W $FF0F,$FF0F,$FFFF,$00F0
	dc.W $FFFF,$FFFF,$FFFF,$00FF
	dc.W $FF0F,$FFFF,$FFFF,$00FF
	dc.W $FF0F,$FF0F,$FFFF,$00FF
	dc.W $FF0F,$FF0F,$FFFF,$00FF
	dc.W $FF0F,$FFFF,$F0FF,$00F0
	dc.W $FF0F,$FFFF,$FFFF,$0000
	dc.W $FF00,$FFFF,$FFFF,$0000
	dc.W $0F00,$FFFF,$FFFF,$0000
	dc.W $0F00,$FFFF,$FFFF,$0000
	dc.W $0F00,$FFFF,$FFFF,$0000
	dc.W $0F00,$FFFF,$FFFF,$0000
	dc.B 2,1,11,14

SpedShotW01
        dc.W $FFFF,$FFFF,$FFFF,$FFFF
        dc.W $FFFF,$F0FF,$FF0F,$FFFF
        dc.W $FFFF,$01F0,$0F10,$FFFF
        dc.W $FFFF,$21F0,$1011,$FFFF
        dc.W $FFFF,$88F0,$1121,$FF0F
        dc.W $FFFF,$80F0,$1182,$FF10
        dc.W $0FF0,$8808,$2182,$FF10
        dc.W $9009,$8800,$0088,$FF70
        dc.W $1109,$EE00,$0FEE,$FF0F
        dc.W $0809,$EE1E,$E0EE,$FFFF
        dc.W $F0FF,$EEEE,$10EE,$FFFF
        dc.W $FFFF,$1101,$EE11,$FF0F
        dc.W $F0FF,$1EEE,$EEEE,$FF0F
        dc.W $02FF,$E0EE,$EE0E,$FF20
        dc.W $02FF,$2F22,$22F2,$FF20
SpedShotW81
        dc.W $0000,$0000,$0000,$0000
        dc.W $0000,$0F00,$00F0,$0000
        dc.W $0000,$FF0F,$F0FF,$0000
        dc.W $0000,$FF0F,$FFFF,$0000
        dc.W $0000,$FF0F,$FFFF,$00F0
        dc.W $0000,$FF0F,$FFFF,$00FF
        dc.W $F00F,$FFFF,$FFFF,$00FF
        dc.W $FFFF,$FFFF,$FFFF,$00FF
        dc.W $FFFF,$FFFF,$F0FF,$00F0
        dc.W $FFFF,$FFFF,$FFFF,$0000
        dc.W $0F00,$FFFF,$FFFF,$0000
        dc.W $0000,$FFFF,$FFFF,$00F0
        dc.W $0F00,$FFFF,$FFFF,$00F0
        dc.W $FF00,$FFFF,$FFFF,$00FF
        dc.W $FF00,$F0FF,$FF0F,$00FF
        dc.B 6,2,8,13
SpedShotS01
        dc.W $FFFF,$FFFF,$FFFF,$FFFF
        dc.W $FFFF,$FFFF,$FFFF,$FFFF
        dc.W $FFFF,$00F0,$FF00,$FFFF
        dc.W $FFFF,$1101,$0F11,$FFFF
        dc.W $F0FF,$2212,$1022,$FFFF
        dc.W $F0FF,$8812,$1082,$FFFF
        dc.W $F0FF,$0818,$1008,$FFFF
        dc.W $F0FF,$8892,$9082,$FFFF
        dc.W $F0FF,$8829,$2089,$FFFF
        dc.W $0EFF,$99EE,$EE9E,$FF0F
        dc.W $0EFF,$99EE,$EE9E,$FF0F
        dc.W $01FF,$9911,$EE9E,$FF0F
        dc.W $0EFF,$E2E9,$1129,$FF0F
        dc.W $0EFF,$EE9E,$9EEE,$FF0F
        dc.W $02FF,$2022,$2222,$FF0F
SpedShotS81
        dc.W $0000,$0000,$0000,$0000
        dc.W $0000,$0000,$0000,$0000
        dc.W $0000,$FF0F,$00FF,$0000
        dc.W $0000,$FFFF,$F0FF,$0000
        dc.W $0F00,$FFFF,$FFFF,$0000
        dc.W $0F00,$FFFF,$FFFF,$0000
        dc.W $0F00,$FFFF,$FFFF,$0000
        dc.W $0F00,$FFFF,$FFFF,$0000
        dc.W $0F00,$FFFF,$FFFF,$0000
        dc.W $FF00,$FFFF,$FFFF,$00F0
        dc.W $FF00,$FFFF,$FFFF,$00F0
        dc.W $FF00,$FFFF,$FFFF,$00F0
        dc.W $FF00,$FFFF,$FFFF,$00F0
        dc.W $FF00,$FFFF,$FFFF,$00F0
        dc.W $FF00,$FFFF,$FFFF,$00F0
        dc.b 2,2,11,7
SpedShotN01
        dc.W $FFFF,$FFFF,$FFFF,$FFFF
        dc.W $FFFF,$FFFF,$FFFF,$FFFF
        dc.W $FFFF,$FFFF,$FFFF,$FFFF
        dc.W $FFFF,$00F0,$FF00,$FFFF
        dc.W $FFFF,$1101,$0F11,$FFFF
        dc.W $F0FF,$1111,$1011,$FFFF
        dc.W $F0FF,$1111,$1011,$FFFF
        dc.W $F0FF,$1109,$0019,$FFFF
        dc.W $F0FF,$9921,$209E,$FFFF
        dc.W $F0FF,$97EE,$E09E,$FFFF
        dc.W $0EFF,$99EE,$EE9E,$FF0F
        dc.W $0EFF,$EEE9,$EE79,$FF0F
        dc.W $01FF,$1111,$1111,$FF0F
        dc.W $0EFF,$EEEE,$EEEE,$FF0F
        dc.W $02FF,$2022,$2222,$FF0F
SpedShotN81
        dc.W $0000,$0000,$0000,$0000
        dc.W $0000,$0000,$0000,$0000
        dc.W $0000,$0000,$0000,$0000
        dc.W $0000,$FF0F,$00FF,$0000
        dc.W $0000,$FFFF,$F0FF,$0000
        dc.W $0F00,$FFFF,$FFFF,$0000
        dc.W $0F00,$FFFF,$FFFF,$0000
        dc.W $0F00,$FFFF,$FFFF,$0000
        dc.W $0F00,$FFFF,$FFFF,$0000
        dc.W $0F00,$FFFF,$FFFF,$0000
        dc.W $FF00,$FFFF,$FFFF,$00F0
        dc.W $FF00,$FFFF,$FFFF,$00F0
        dc.W $FF00,$FFFF,$FFFF,$00F0
        dc.W $FF00,$FFFF,$FFFF,$00F0
        dc.W $FF00,$FFFF,$FFFF,$00F0
        dc.B 2,6,11,9
SpedShotE01
        dc.W $FFFF,$FFFF,$FFFF,$FFFF
        dc.W $FFFF,$F0FF,$FF0F,$FFFF
        dc.W $FFFF,$01F0,$0F10,$FFFF
        dc.W $FFFF,$1101,$0F12,$FFFF
        dc.W $F0FF,$1211,$0F88,$FFFF
        dc.W $01FF,$2811,$0F08,$FFFF
        dc.W $01FF,$2812,$8088,$0FF0
        dc.W $07FF,$8800,$0088,$9009
        dc.W $F0FF,$EEF0,$00EE,$9011
        dc.W $FFFF,$EE0E,$E1EE,$9080
        dc.W $FFFF,$EE01,$EEEE,$FF0F
        dc.W $F0FF,$11EE,$1011,$FFFF
        dc.W $F0FF,$EEEE,$EEE1,$FF0F
        dc.W $02FF,$E0EE,$EE0E,$FF20
        dc.W $02FF,$2F22,$22F2,$FF20
SpedShotE81
        dc.W $0000,$0000,$0000,$0000
        dc.W $0000,$0F00,$00F0,$0000
        dc.W $0000,$FF0F,$F0FF,$0000
        dc.W $0000,$FFFF,$F0FF,$0000
        dc.W $0F00,$FFFF,$F0FF,$0000
        dc.W $FF00,$FFFF,$F0FF,$0000
        dc.W $FF00,$FFFF,$FFFF,$F00F
        dc.W $FF00,$FFFF,$FFFF,$FFFF
        dc.W $0F00,$FF0F,$FFFF,$FFFF
        dc.W $0000,$FFFF,$FFFF,$FFFF
        dc.W $0000,$FFFF,$FFFF,$00F0
        dc.W $0F00,$FFFF,$FFFF,$0000
        dc.W $0F00,$FFFF,$FFFF,$00F0
        dc.W $FF00,$FFFF,$FFFF,$00FF
        dc.W $FF00,$F0FF,$FF0F,$00FF
        dc.B 2,2,8,14

ErrHeader	dc.B 'Character data:',0
AddressLine	dc.B '    Address:'
ALNumber	dc.B 'xxxxxxxx',0
	ENDR

	Export GameDebug
GameDebug	Proc
	With Globals
	With Constants
retAddr	equ 1
procNum	equ retAddr+3
parm1	equ procNum+2
parm2	equ parm1+2
parmFlags	equ parm2+2
aStack	equ parmFlags+2

	txa
	sta >xSave
	tya
	sta >ySave
	lda aStack,s	; and save a
	sta >aSave
	
	lda parm1,s
	lda parm2,s
	
	lda RetAddr,s
	lda RetAddr+2,s
	
	lda ProcNum,s
	
; 	jsr CheckSumRange	; Checksum a range of memory
; 	bcs GD0010
	
	lda ProcNum,s	; now see if its an imediate break
	bmi GD0010	; if the high bit is set, then do the break
	
	phb	; save the current data bank...
	jsl SetMyDataBank	; set the data bank to the current bank..
	phb	; and push that data bank..
	lda 1,s	; now test to see that this is the proper data bank..
	xba
	cmp 1,s
	bne GD0009	; if they aren't equal then always break here!
	pla
	lda >$E0C025
	and #$0004
	bne GD0010
	brl DoneDebug
GD0009	pla
GD0010
	_GrafOff
	lda ProcNum,s	; get the proc number
	cmp #$7FFF	; is it the DebugStrflag?????
	bne DebugWord
	brl DebugProc

DebugWord
	PushLong #DebugStr1
	_WriteCString

	lda ProcNum,s	; process number
	jsr ErrorBytes

	PushLong #DebugStr2
	_WriteCString

	lda parm1,s
	jsr ErrorBytes

	PushWord #$A0
	_WriteChar

	lda parm2,s
	jsr ErrorBytes

	PushLong #RegStr
	_WriteCString

	lda >aSave
	jsr ErrorBytes
	PushWord #$A0
	_WriteChar
	lda >xSave
	jsr ErrorBytes
	PushWord #$A0
	_WriteChar
	lda >ySave
	jsr ErrorBytes
	
	PushWord #$A0
	_WriteChar

	phb
	phk
	pla
	jsr ErrorBytes
		
	PushLong #retStr
	_WriteLine
	brl kbdWait

DebugProc
	PushLong #DebugStr1
	_WriteCString
	
	lda parm1,s	; get the string pointer
	tax	; from the paramlist
	lda parm2,s
	pha
	phx
	_WriteCString	; and write it to the screen

	PushLong #RegStr
	_WriteCString

	lda >aSave
	jsr ErrorBytes
	PushWord #$A0
	_WriteChar
	lda >xSave
	jsr ErrorBytes
	PushWord #$A0
	_WriteChar
	lda >ySave
	jsr ErrorBytes
	
	PushWord #$A0
	_WriteChar

	phb
	phk
	pla
	jsr ErrorBytes
		
	PushLong #retStr
	_WriteLine
	brl kbdWait

kbdwait	lda >$E0C025
	and #$00C3	; test for the 4 magic keys
	cmp #$00C3
	beq DoneDebug

	lda >$E0C000
	bpl kbdWait
	sta >$E0C010

	and #$007F
	cmp #$001B	; is it eascape?
	beq doToggleScreen
	cmp #$007F	; is it delete???
	beq doSmash	; smash into the monitor
	_GrafOn
; 	jsr CheckSumRange	; Checksum a range of memory
DoneDebug

	sep #$20
	Longa Off
	pla
	ply
	plx	; pop off the 4 parms
	plx
	plx
	plx
	plx	; pop off asave also
	phy
	pha
	LongA On
	Rep #$20

	lda >xSave
	tax
	lda >ySave
	tay
	lda >aSave
	rtl
	
doSmash
	brk 1
	bra DoneDebug	; smash into the debugger and exit 

doToggleScreen
	_GrafOn
kbdwdts	lda >$E0C000
	bpl kbdWdts
	sta >$E0C010

	_GrafOff
	brl kbdWait

xsave	ds.B 2
ysave	ds.B 2
asave	ds.B 2
RetStr	str ' '
ErrorBytes
; routine to word in hex to error output

	phx
	phx
	pha
	_HexIt
	PullLong >EBStuff

	lda #0
	sta >EBStuff+4

	PushLong #EBStuff
	_WriteCString

	rts
EBStuff	ds.B 6
DebugStr1	dc.B 'DB:',0
DebugStr2	dc.B ' Parms:',0
RegStr	dc.B ' Reg values:(a,x,y,DB/K Reg)',0,0
AtString	dc.B ' at:',0
CheckSum	ds.B 4
	EndP


	EJECT
*******************************************************************************
*
	Export StartLib
StartLib	PROC
*
* Description:	Initializes the animation library. Allocate memory for the
*	background
*
*
* Inputs:	None
*
* Outputs:	None
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
	With AnimRecord
	With Globals
	With Constants

	stz4 MyBackHandle	; zero out the background handle
	stz4 CharTblHandle
	
	stz AnimState	; turn off all animations
	Stz AnimActive
	
;
; Now copy spuds data into his data record for the first time...

	PushLong #SpudData
	pea 0
	jsl LoadSpecActor
	
	PushLong #WandShot
	pea 8
	jsl LoadSpecActor
	
	stz KillState
	stz BugFlag
	stz AnimState
	rtl
	EndP
	
	EJECT
*******************************************************************************
*
SetupEraseZP	PROC Export
*
* Description:	Internal routine that sets us up in preparation for an erase
*
*
* Inputs:	None
*
* Outputs:	None
*
* External Refs:	uses NextRects
*
* Entry Points:
*
*******************************************************************************
	With AnimRecord
	With Globals
	With Constants
PassData	equ $80	; the number of the	char to copy in...

	lda passData	; get the offset to	the char record
	asl a	; multiply it by 4
	asl a
	tax

	lda >CharTable,x	; get the low byte of the char pointer
	sta theChar	; store it in the zp pointer
	lda >CharTable+2,x	; now the high byte
	sta theChar+2
	txa
	asl a
	tax
	
	lda [TheChar]
	sta CXPosOff
	sta >NextRects,x
	
	ldy #CYPosOff
	lda [TheChar],y
	sta CYPosOff
	sta >NextRects+2,x
	
	ldy #CHeightOff
	lda [TheChar],y
	sta >NextRects+4,x
	sta CHeightOff
	
	ldy #CWidthOff
	lda [TheChar],y
	lsr a	; divide it by 2 for ease of use...(#words..)
	sta >NextRects+6,x
	sta CWidthOff
	
	rts
	EndP
		
	EJECT
*******************************************************************************
*
SetupBlitZP	PROC Export
*
* Description:	sets up direct page for reblitting...
*
*
* Inputs:	None
*
* Outputs:	None
*
* External Refs: 
*
* Entry Points:
*
*******************************************************************************
	With AnimRecord
	With Globals
	With Constants
PassData	equ $80	; the number of the	char to copy in...

	lda passData	; get the offset to	the char record
	asl a	; multiply it by 4
	asl a
	tax

	lda >CharTable,x	; get the low byte of the char pointer
	sta theChar	; store it in the zp pointer
	lda >CharTable+2,x	; now the high byte
	sta theChar+2

	lda [TheChar]
	sta CXPosOff
	ldy #2
	lda [TheChar],y
	sta CYPosOff
	ldy #CHeightOff
	lda [TheChar],y
	sta CHeightOff
	
	ldy #CWidthOff
	lda [TheChar],y
	lsr a	; divide it by 2 for ease of use...(#words..)
	sta CWidthOff
		
	rts
	EndP

	EJECT
*******************************************************************************
*
	Export SetupZP
SetUpZP	Proc
*
* Description:	copy data from specified animation record to ZPage
*
*
* Inputs:	passdata contains anim rec number
*
* Outputs:	ZPSet properly
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
	With AnimRecord
	With Globals
	With Constants
PassData	equ $80	; the number of the	char to copy in...

	lda passData	; get the offset to	the char record
	sta PassChar	; ?????????????????????????????????????????
	and #$000F	; only 16 chars boys
	asl a	; multiply it by 4
	asl a
	tax

	lda >CharTable,x	; get the low byte of the char pointer
	sta theChar	; store it in the zp pointer
	lda >CharTable+2,x	; now the high byte
	sta theChar+2

	stx CharNum	; store the char num *4...
	ldy #0
SUZLoop		; now copy current char data to the ZP
	lda [theChar],y
	tyx
	sta 0,x
	iny
	iny
	cpy #CharTSize	; are we done yet?
	blt SUZLoop

	rtl
	EJECT
*******************************************************************************
*
MakeMainChar	PROC
*
* Description:	This routine should be called when you want to designate a
*	character as a main character. what will happen is that it
*	will read the new character tables structure that will be 
*	stored at the end of actor data and create a separate routine
*	that can be called to strike the character onto the screen.
*
*
* Inputs:	TheCharPtr:Long	Pointer to the animation record...
*
* Outputs:	None
*
* External Refs:
	import BuildStampCode
*
* Entry Points:
*
*******************************************************************************
	with animRecord
;
; The first thing that needs to happen is the creation of the new handle

	EndP
	
	EJECT
*******************************************************************************
*
BuildStampCode	PROC Export
*
* Description:	Build code in a handle that strikes a character onto the screen
*	
*
*
* Inputs:	CodePtr:Long;    	Pointer to where to deposit the code
*	ImagePtr:Long;	Pointer to the image data to strike
*	MaskPtr:Long;	Pointer to the mask data to strike
*	charHeight:Integer;	Height of the characters bitmap
*	charWidth:Integer;	width of the characters bitmap
*
* Outputs:	CodePtr:Long;	updated code pointer
*
* External Refs:	none
*
* Entry Points:	none
*
*******************************************************************************
; local direct page usage...
; partially built from a stack frame ...
oldDPage	equ 1
oldDBank	equ oldDPage+2
ScreenOffset	equ oldDBank+1
theRTL	equ ScreenOffset+2	; offset to the screen address
theCharWidth	equ theRTL+3
theCharHeight	equ theCharWidth+2
MaskPtr	equ theCharHeight+2
ImagePtr	equ MaskPtr+4
codePtr	equ ImagePtr+4
;
; First create the direct page frame...
	pha	; space for screen offset
	pha
	phb
	phd	; save the data bank and such..
	tsc	; get the stack pointer
	tcd	; and make it the direct page...
; initialize any variables...	
	stz <ScreenOffset	; this is a 2 byte field..
	ldx #$00	; use X as our row counter..
;
; Now we start our main loop...
oLoop
	ldy #0
iLoop01		; get our loop starting points (column counter..)
	lda [MaskPtr],y	; get the next word of the mask...
	beq @NoDraw	; if its zero, we do not draw and we fall thru
	inc a	; see if its $FFFF
	bne @fullmask
	jsr StrikeOne	; simply add the code to strike the byte
	bra @NoDraw
@FullMask	jsr FlowOne	; can't just strike, must flow thru the mask
@NoDraw	iny	; bump the column counter..
	iny
	tya
	cmp <theCharWidth	; are we yet wider to the characters width?
	blt iLoop01	; if not, then get the next column from the char...
; If at the end of a line, we now bump all our counters and test for the end...
	lda <ScreenOffset
	clc
	adc #$00A0	; bump by scan line size...
	sta <ScreenOffset
	lda <ImagePtr	; bump the image pointer and mask pointer
	adc <theCharWidth
	sta <imagePtr
	bcc @nd0010
	inc <ImagePtr+2
	clc
@nd0010	lda <MaskPtr
	adc <theCharWidth
	sta <maskPtr
	bcc @nd0020
	inc <MaskPtr+2
@nd0020
; now see if we are done...
	inx
	cpx <theCharHeight
	blt oLoop

; we are done now robbie!
	lda #$0060	; put an RTS in our tank
	sta [codeptr]
	pld	; restore the old dpage
	plb
	pla
	pla	; recover the crap from the stack...
; now move the RTL...
	sep #$20
	longa off
	pla
	ply
	
; discard the stack crap...
	plx
	plx
	plx
	plx
	plx
	plx
;
; put the return address back on...
	phy
	pha
	rep #$20
	longa On
; and return to the caller...
	rtl
	
;
; StrikeOne
; This code creates the commands to strike a word onto the screen
; codeptr, screenptr, imageptr, and <Y> must already be set up...
;	lda #$data
;	sta |$Scrn,x
;
StrikeOne	lda #$00A9	; lda # opcode...
	sta [codePtr]	; save it in the code buffer
	inc <codePtr	; bump our counter...
	lda [imageptr],y	; now get the byte of the image
	sta [codeptr]	; and save it as an operand...
	inc <codePtr	; bump our counter...
	inc <codePtr	; bump our counter...	
slamSTA	lda #$009D	; thats STA |$nnnn,X
	sta [codeptr]
	inc <codePtr	; bump our counter...
;
; Now to generate and save the screen address...
SlamAddress	tya	; get the column number
	clc
	adc <ScreenOffset	; add it to the screen pointer
	sta [codePtr]	; save it
	inc <codePtr	; bump our counter...
	inc <codePtr	; bump our counter...
	rts	; and return	
	
;
; FlowOne
; This will generate the code to do everything with masking...
; it needs the same stuff set up as strike one	
; Now to generate the following code sequence...
;
;	lda Scrn,X
;	and #$not(mask)
;	ora #$data&mask
;	sta scrn,X
;*--
FlowOne
	lda #$00BD	; this is LDA |$nnnn,X
	sta [codeptr]	; save it in the proper place..
	inc <codeptr	; bump the code pointer
	jsr slamAddress	; create the screen address
	
	lda #$0029	; thats AND #$nnnn
	sta [codeptr]
	inc <codePtr
	lda [maskptr],y	; get the proper mask data
	eor #$FFFF	; not mask...
	sta [codeptr]
	inc <codePtr	; bump our counter...
	inc <codePtr	; bump our counter...

	lda #$0009	; thats ORA #$nnnn
	sta [codeptr]
	inc <codePtr	; bump our counter...
	lda [imageptr],y	; first create the data image
	and [maskptr],y	; masking off the bad area's
	sta [codeptr]	; and save it...
	inc <codePtr	; bump our counter...
	inc <codePtr	; bump our counter...

	brl slamSTA	; now do the final storeA
	EndP
	
	EJECT
*******************************************************************************
*
SetUpDrawZP	PROC
*
* Description:	Sets up our drawing ZP...
*
*
* Inputs:	None
*
* Outputs:	None
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
	With AnimRecord
	With Globals
	With Constants
PassData	equ $80	; the number of the	char to copy in...

	lda passData	; get the offset to	the char record
	sta PassChar
	asl a	; multiply it by 4
	asl a
	tax

	lda >CharTable,x	; get the low byte of the char pointer
	sta theChar	; store it in the zp pointer
	lda >CharTable+2,x	; now the high byte
	sta theChar+2

	lda [TheChar]
	sta <CXPosOff
	
	ldy #CYPosOff
	lda [theChar],y
	sta <CYPosOff
	
	ldy #CCurPOff
	lda [theChar],y
	sta <CCurPOff
	
	ldy #CMinPOff
	lda [theChar],y
	sta <CMinPOff
	
	ldy #CMaxPOff
	lda [theChar],y
	sta <CMaxPOff
	
	ldy #CDXOff
	lda [theChar],y
	sta <CDXOff
	
	ldy #CDYOff
	lda [theChar],y
	sta <CDYOff
	
	ldy #CIterOff
	lda [theChar],y
	sta <CIterOff
	
	ldy #CHeightOff
	lda [theChar],y
	sta <CHeightOff
	
	ldy #CWidthOff
	lda [theChar],y
	sta <CWidthOff
	
	ldy #CFTabOff
	lda [theChar],y
	sta <CFTabOff
	ldy #CFTabOff+2
	lda [theChar],y
	sta <CFTabOff+2
	
	ldy #CMTabOff
	lda [theChar],y
	sta <CMTabOff
	ldy #CMTabOff+2
	lda [theChar],y
	sta <CMTabOff+2
	rts	; and return
	EndP

	EJECT
*******************************************************************************
*
	Export RestoreZP
RestoreZP	proc
*
* Description:	Restore important zero page data!
*
*
* Inputs:	theChar must point to animation record to restore
*
* Outputs:	None
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************

	ldy #0
RZLoop
	tyx
	lda 0,x
	sta [theChar],y
	iny
	iny
	cpy #CEndOfVars	; are we done yet?
	blt RZLoop
	rtl
	EndP

****************************************************************
*
*  StopAnim -  Used	to deallocate the current animation frame
*              it also de-allocates the	current background buffer
*
*  Inputs:     None
*
*  Outputs:
*
****************************************************************
*
	EXPORT StopAnim
StopAnim	PROC
	With AnimRecord
	With Globals
	With Constants

	stz AnimActive	; animation activity flag

	RTL
	ENDP

****************************************************************
*
*  StartAnim - Initializes memory for an animated sequence.	Call
*              must	be ballanced to a call to stop anim. Start anim
*              saves an image of the current background.
*
*  Inputs:     None
*
*  Outputs:    None
*
****************************************************************
*

	EXPORT StartAnim
StartAnim	PROC
	With AnimRecord
	With Globals
	With Constants
;
Height	equ 14


	PushLong #0
	PushWord #1
	_GetAddress

	pla
	sta ScreenTab
	sta SavedScrnTab
	pla
	sta ScreenTab+2
	sta SavedScrnTab+2
	lda [ScreenTab]
	sta MyPointer
	lda #AbsBank
	sta MyPointer+2

	lda #MyBackSaveArea	; set up the back pointer
	sta BackPtr
	sta MyBackPtr
	lda #MyBackSaveArea>>16
	sta BackPtr+2
	sta MyBackPtr+2
	
	pushLong MyPointer
	PushLong BackPtr	; Now push the ptr to save bkgd
	PushLong #$7D00	; length of the block
	_BlockMove	; Now move the block

	_shadowOff
	lda #$2000	; now copy the Background into bank 1 screen memory
	sta MyPointer
	lda #DrawBank	; 
	sta MyPointer+2
	
	PushLong BackPtr
	PushLong MyPointer
	PushLong #$7D00
	_BlockMove
	
	_shadowOn
	
	lda #$FFFF	; turn on animation	again!
	sta AnimActive
	RTL
	ENDP


****************************************************************
*
*  RefreshBack -	 Redraw the current	screen including background
*	 must occur after a	StartAnim call
*
*  Inputs:	 None
*
*  Outputs:	 None
*
****************************************************************
*
	EXPORT RefreshBack
RefreshBack	PROC
	With Globals
	With Constants
MScreenTab	equ $B4
	PROCDB $200,#0,#0
	
	pushLong #MyBackSaveArea
	PushLong #$012000	; Now push the ptr to save bkgd
	PushLong #$7D00	; length of the block
	_BlockMove	; Now move the block

	RTL
	ENDP

	EJECT
*******************************************************************************
*
FadeInBack	PROC Export
*
* Description:	Like refresh back, only with some special effects thrown in for 
*	good measure...
*
*
* Inputs:	None
*
* Outputs:	None
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
	With Globals
	With Constants
MScreenTab	equ $B4
	PROCDB $200,#1,#1

FadeFactor	equ 73

	ldx #0
	ldy #FadeFactor+1

FadePatch
iLoop	lda >MyBackSaveArea,x
	sta >$012000,x
	txa
	clc
	adc #FadeFactor
	cmp #$7D00
	bge @cont
	tax
	bra iLoop
@cont
	sec
	sbc #$7D00
	tax
	dey
	bpl iLoop
	
	RTL
	ENDP


	EJECT
*******************************************************************************
*
	Export GetCharRects
GetCharRects	PROC
*
* Description:	This routine will calculate the contents of the CurRects to
*	collision rects. This routine will also test the animflag
*	to see if a character is active, if it is not, it will
*	simply store 0's into the chars rectangle.
*
*
* Inputs:	None
*
* Outputs:	collision rectangle of chars in apropriate array
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
	With AnimRecord
	With Globals
	With Constants

CharPt	equ $80
TestPt	equ $84
theMons	equ $72	; 
;
	stz theMons
	bra MkBox020
MkBox010	lda theMons	; get the monster number
	asl a	; multiply by two
	tax
	lda Cascade,x
	and AnimState	; check the monster	for movement
	bne MkBox020
	brl MkBox030
MkBox020
	lda theMons	; get the current monsters information
	asl a	; 
	asl a
	tax
	phx	; save this for later...
	lda >CharTable,x	; 
	sta CharPt
	inx
	inx
	lda >CharTable,x
	sta CharPt+2

	ldy #CXPosOff	; get the characters animation top left corner
	lda [CharPt],y
	sta BH1
	ldy #CYPosOff
	lda [CharPt],y
	sta BV1
	ldy #CCoLInfo	; now get the current phase's offset bytes
	lda [CharPt],y
	tax	; save em for a sec...
	and #$00FF	; get the H offset in pixels
	clc	; clear the carry
	adc BH1	; add it to the left edge
	sta BH1
	txa	; get the offset again
	xba	; this time we want the veritcal component
	and #$00FF
	clc	; and add it to the top coordinant
	adc BV1
	sta BV1
	iny
	iny	; bump Y to get the width characteristic
	lda [CharPt],y	; and get the next bytes...

	tax	; save em for a sec...
	and #$00FF	; get the H width in pixels
	clc	; clear the carry
	adc BH1	; add it to the left edge
	sta BH2
	txa	; get the offset again
	xba	; this time we want the height
	and #$00FF
	clc	; and add it to the top coordinant
	adc BV1
	sta BV2

	pla	; now get the monster num * 4
	asl a	; multiply it by 8
	tax	; use it as an index
	lda Bh1
	sta CurRects.h1,x
	lda Bv1
	sta CurRects.v1,x
	lda Bh2
	dec a
	sta CurRects.h2,x
	lda Bv2
	sta CurRects.v2,x

	bra MkBox040	; now go to the save routine
;
; This routine is called when we want to store all zeros into an element in the
; rect arrays for this character.

MkBox030		; X contains the char number times 2
	txa	; so make it char * 8
	asl a
	asl a	; so its the offset into an array of rectangles
	tax
	stz CurRects,x
	stz CurRects+2,x
	stz CurRects+4,x
	stz CurRects+6,x
MkBox040	
	lda theMons
	inc a
	sta theMons
	cmp #16
	bge MkBox050
	brl MkBox010
MkBox050
	
	RTL
	EndP
	
	EJECT
*******************************************************************************
*
DoErase2	Proc
*
* Description:	Erase the current char with masking...
*
*
* Inputs:	None
*
* Outputs:	None
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
	With AnimRecord
	With Globals
	With Constants
ScrnPT	equ $90
temp1	equ $94
MaskPt	equ $98
DETempData	equ $9C
BackPt	equ $A0
ScrnBase	equ $A4
Height	equ 14

	lda #MyBackSaveArea	; set up the back pointer
	sta >Patch1+1
	lda #MyBackSaveArea>>16
	sep #$20
	Longa off
	sta >Patch1+3
	rep #$20
	longa on

	lda CCurPOff
	asl A	; Multiply it by 4
	asl A
	tay
	lda [CMTabOff],y
	sta MaskPt
	iny
	iny
	lda [CMTabOff],y
	sta MaskPt+2

	lda [ScreenTab]
	sta DETempData
	sta ScrnBase	; save it as the base address of the screen
	sta >Patch2+1
	sta >Patch3+1
	lda CYPosOff	; get the screen line
	asl a	; multiply by 2
	sta temp1	; save it for a sec
	asl a
	asl a
	clc
	adc temp1	; scrnline * $A
	asl a
	asl a
	asl a
	asl a	; and create scrnline*$A0
	sta ScrnPt	; and save it

	lda CXPosOff	; Now get the X Offset
	lsr A
	clc
	adc ScrnPT	; and Add it to the	base addr
	sta ScrnPT	; and now we have the offset
	tax	; and place this in	x

	lda CHeightOff	; now reset our line count
	sta DETempData	;

	phb	; save the current bank register
	pea DrawDblBank	; and switch to a new data bank reg
	plb	; that happens to contain the screen
	plb	; this is only one byte.. so do it twice

OL001	ldy #0	; now cycle thru the loop
IL001
	lda [Maskpt],y	; load mask data
	beq IL003	; if non-zero then draw it
	sta temp1	; save mask byte for a sec...
	eor #$FFFF	; NOT(Mask)
patch2	and $1234,x	; load the screen byte
	sta temp1+2	; save it also
Patch1	lda >$111111,x	; Now get the back data
	and temp1	; and it with the mask
	ora temp1+2	; now add in the screen data
IL002
Patch3	sta $1234,x	; and save it to the screen
IL003
	inx
	inx
	iny	; add 2 ( we save a	word at a time)
	iny
	cpy CWidthOff	; see if we are done
	bne IL001

	lda scrnPt	; adjust the pointer
	clc
	adc #$00A0	; skip to the next line
	sta ScrnPt	; and save it back
	tax	; and use it as an offset

	lda MaskPT	; advance thru the figure
	clc	; to the next line
	adc CWidthOff
	sta MaskPt

	dec DETempData
	bne OL001

	plb	; now restore the bank register

	rts
	ENDP

	EJECT
*******************************************************************************
*
DoEraseCharSq	PROC
*
* Description:	erase the current character from the screen now buddy!
*
*
* Inputs:	None
*
* Outputs:	None
*
* External Refs:
*
* Entry Points:
*
	MACRO
	DoEraseRazor
	LCLA &cntr	; define a var
&cntr	SETA 100	; init to zero
	WHILE &cntr>=0 DO
	  lda >(MyBackSaveArea-$2000)+&cntr,x
	  sta |&Cntr,x
	  &cntr: SETA &cntr-2
	ENDWHILE
	MEND
*
*******************************************************************************
	With AnimRecord
	With Globals
ScrnPt	equ $90
MaskPt	equ $98
DETempData	equ $9C
Height	equ 14
  
	lda CYPosOff	; Get the screen line
	asl A	; Multiply by 2
	tay	; and use it as offset into
	lda CXPosOff	; Now get the X Offset
	lsr A
	clc
	adc [ScreenTab],y	; and Add it to the	base addr
	tax	; save the scan line offset into x

	lda CHeightOff	; now reset our line count
	sta DETempData	;

	lda CWidthOff
	asl a
	pha
	asl a
	adc CWidthOff	; we now have width *5
	adc 1,s	; we now have width *7
	ply
	eor #$FFFF	; negate it...
	adc #RazorsEnd	; get the offset from the back of the razor
	tay
oL001
	pea returnAddr-1
	phy
	rts
returnAddr
	txa	; adjust the pointer
	clc
	adc #$00A0	; skip to the next line
	tax	; and save it into x
	dec DETempData
	bne oL001
	rts
	
	DoEraseRazor
RazorsEnd
	rts
	ENDP

	EJECT
*******************************************************************************
*
DoBlitCharSq	PROC
*
* Description:	redraw the current character to the screen now buddy!
* 11/30/90	Added clipping code for stage clipping of characters.
*
* 12/3/90	Added Stage collision detection here since the data is already available...
*
* Inputs:	AnimationZP must be preset by the caller
*
* Outputs:	<A> contains zero if no stage edge hit, or:
*	bit 0 - Top hit
*	    1 - Left hit
*	    2 - bottom hit
*	    3 - right hit
*	    15- off stage completely
*
* External Refs:
*
* Entry Points:
*
	MACRO
	DoBlitRazor
	LCLA &cntr	; define a var
&cntr	SETA 100	; init to zero
	WHILE &cntr>=0 DO
	  lda |&cntr,x
	  sta |&Cntr,x
	  &cntr: SETA &cntr-2
	ENDWHILE
	MEND
*
*******************************************************************************
	With AnimRecord
	With Globals
DETempData	equ $9C

	pea $0000	; set up some temp storage on the stack...
	lda CYPosOff	; Get the screen line
	cmp StageRectBottom	; see if we are on the stage yet...
	bge @Offstage	; if greater than or equal we aren't even on the stage...
	cmp StageRectTop	; now see if we are past the top..
	bge @cYPosOffOK
	lda #$0001	; 12/3/90 signal top hit
	sta 1,s	; 12/3/90
	lda StageRectTop	; else use the top of the stage..
	tay	; since it is invalid to have a char taller than the stage
	bra @cHeightOK	; the height must be ok now!
@cYPosOffOK
	tay	; save it for a second..
*** 11/30/90 Added this arithmetic here to adjust for the height monster adj..
	sec	; add 1 extra just for snicks here!
	adc cHeightOff
	cmp StageRectBottom ; see if we are too tall for the stage..
	blt @cHeightOK
	sty DETempData	; save this for a second in a temp var..
	lda 1,s	; 12/3/90 flag that we are off the bottom of the stage..
	ora #$0004
	sta 1,s	
	lda StageRectBottom
	sec
	sbc DETempData	; now adjust the height for the stage
	bmi @offStage
	bne @stowHeight
; this seems like a fine place to put this routine...
@offStage		; ooops the rect ain't on the stage so no reblit needed
	pla	; discard the flag data
	lda #$F000	; signal character is offstage
	rts	; so simply return
;
@cHeightOK
	lda CHeightOff	; now reset our line count
@stowHeight	sta DETempData	; so we can

	tya	; get back the top of the rectangle..
	asl A	; Multiply by 2
	tay	; and use it as offset into screen tab..
; now validate the X data
	
	lda CXPosOff	; Now get the X Offset (in pixels thank god..)
	cmp StageRectRight
	bge @offstage	; ooops not on stage..
	cmp StageRectLeft	; now see if there is a problem with the other side
	bge @cXPosOffOK	; ok the left side is just fine..
	lda 1,s	; update the stage wall collision flag
	ora #$0002
	sta 1,s
	lda StageRectLeft	; else we just use the stage left..
	bra @stowNewxPos	; and the width must also be good..
@cXPosOffOK
; now we must adjust the width if need be..
	lda CWidthOff	; its in bytes right now...
	asl a	; make it pixels..
	adc cXPosOff	; now test the right side..
	cmp StageRectRight
	blt @cWidthOffOK	; the width is fine lets do it..
	beq @cWidthOffOK
; ok.. the width is bad now what do we do? we must adjust it so that its good..
; keeping in mind that if we adjust it to an odd number of bytes we then have to
; readjust it so its even and push the xpos back..
	lda 1,s	; update the stage wall collision flag..
	ora #$0008
	sta 1,s
	lda StageRectRight
	sec
	sbc cXPosOff	; get the real number of pixels available..
	lsr a	; turn it into a number of bytes..
	adc #0	; add the carry back in (carry means odd pixels)
	dec cXPosOff	; "add" another byte to the left
	dec cXPosOff	; a byte is two pixels
	lsr a	; shift out the low bit
	php	; save its state..
	rol a	; shift it back into its proper place..
	sta cWidthOff	; save the new width
	plp	; and recover the proper carry state of the thing..
	bcc @stowNewXPos	; if the carry is clear then we have even bytes
		; we can continue on with what we have...
; If we make it this far then we have a problem... you see, since the loop stores words
; the number of bytes in cWidthoff must be even. At this stage it is odd, so we need
; to add another byte to the "left" of cxPosOff and increase the rectangle by a byte
	dec cXPosOff	; "add" another byte to the left
	dec cXPosOff	; a byte is two pixels
	inc CWidthOff	; bump the width in bytes

@cWidthOffOK	lda cXPosOff
; must have cXPosOff or equivalent in <A> now..
@stowNewxPos
	lsr A
	clc
	adc [ScreenTab],y	; and Add it to the	base addr
	tax	; save the scan line offset into x


	lda CWidthOff	; 
	asl a	; we divided ity by 2 when it was copied..
	pha
	asl a
	adc 1,s	; we now have width *6
	ply
	eor #$FFFF	; negate it...
	adc #RazorsEnd	; get the offset from the back of the razor
	tay
oL001
	pea returnAddr-1
	phy
	rts
returnAddr
	txa	; adjust the pointer
	clc
	adc #$00A0	; skip to the next line
	tax	; and save it into x
	dec DETempData
	bne oL001
	pla	; recover stage collision info
	rts	; and return
	
	DoBlitRazor
RazorsEnd
	rts
	ENDP

	EJECT
*******************************************************************************
*
DoDraw1	PROC
*
* Description:	Draw the "current" character indicated by ZPage. NOTE:
*	CCurPhase should already be in <A>
*
* This routine trashes:
*	CHeightOff
* Inputs:	None
*
* Outputs:	<A><X> contain collision rect info...
*
* External Refs:
*
* Entry Points:
;	Export MaskPatch1
*
*******************************************************************************
	With Globals
	With Constants
ScrnPT	equ $90
temp1	equ $94
MaskPt	equ $98
DDTempData	equ $9C
CharPt	equ $A0

Height	equ 14

;	lda CCurPOff	; its already here!
	asl A	; Multiply it by 4
	asl A
	tay
	lda [CMTabOff],y
	sta MaskPt
	lda [CFTabOff],y
	sta CharPt
	iny
	iny
	lda [CMTabOff],y
	sta MaskPt+2
	lda [CFTabOff],y
	sta CharPt+2

	lda CYPosOff	; load the y offset
	asl A	; Multiply by 2
	tay	; and use it as offset into
	lda CXPosOff	; Now get the X Offset
	LSR A	; convert bytes to pixels...
	clc
	adc [ScreenTab],y	; screen pointer table!
	sec
	sbc #$2000	; offset this from the real screen...
	sta ScrnPt
	tax 
	
	phb	; save the current bank register
	pea DrawDblBank	; and switch to a new data bank reg
	plb	; that happens to contain the screen
	plb	; this is only one byte.. so do it twice

OL001	ldy #0	; now cycle thru the loop
	lda cWidthOff
	sta temp1
	
IL001	lda [<Maskpt],y	; load from the Mask
;MaskPatch1	and >$0A0000,x	; add in the proper mask table offset...
	beq IL003	; if non-zero then draw it
	sta >maskTemp	; save this as the character mask...
	inc a	; if all set then just blit the data
	beq IL004
	
	lda [<CharPt],y	;
	eor |$2000,x	; 
	and >MaskTemp	; add in the character masks...
	eor |$2000,x	; 
	bra IL002
	
IL004	lda [<CharPt],y
IL002	sta |$2000,x	; 6
IL003	
;
; *** WAS ***
;IL001	lda [<Maskpt],y	; load from the Mask
;	beq IL003	; if non-zero then draw it
;	inc a	; if all set then just blit the data
;	beq IL004
;	
;	lda [<CharPt],y	;
;	eor |0,x	; 
;	and [<MaskPt],y	; add in the character masks...
;	eor |0,x	; 
;	bra IL002
;	
;IL004	lda [<CharPt],y
;IL002	sta |0,x	; 6
;IL003	
; ******

	IF &TestVerFlag THEN
	  tya	; calculate the actual address offset
	  clc
	  adc ScrnPt	; by adding the screen pt and y
	  bpl IL0FF	; if positive then this address is ok!
	  Debug $F0DD,ScrnPt,PassChar
	  Debug $F1DD,CXPosOff,CYPosOff
	ENDIF
IL0FF
	inx
	inx
	iny	; add 2 ( we save a	word at a time)
	iny
	cpy temp1	; see if we are done
	bne IL001

	lda temp1
	clc
	adc CWidthOff
	sta temp1

	lda scrnPt	; adjust the pointer
	clc
	adc #$00A0	; skip to the next line
	sta ScrnPt	; and save it back
	tax 
	
	dec CHeightOff
	bne IL001

	lda [MaskPt],y	; now get the chars collbox info for later use...
	tax	; save it in X
	iny
	iny
	lda [MaskPt],y	; and save it in A
	plb

	rts
MaskTemp	ds.W 1
	ENDP




	EJECT
*******************************************************************************
*
DoAnim1	PROC
*
* Description:	Animate the current character...
*
*
* Inputs:	None
*
* Outputs:	None
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
	With AnimRecord
	With Globals
	With Constants

	jsr SetUpDrawZP	; set up the animation Zero Page!

	lda CXPosOff	; test the x coordinant
	and #$7FFF	; strip the high bit...
	cmp #320	; see if we are outside the normal range of drawing
	bge DoBombChar	; whoops off the screen
	adc CDXOff	; offset our character to its new bat time...
	sta CXPosOff	; and save it...
	
	lda CYPosOff	; test the Y coordinant
	sec
	sbc MenuHeight
	cmp #200	; past the bottom of the screen?
	blt DA1003
DoBombChar
	stz CDXOff
	stz CDYOff
	stz CIterOff
	bra DA1007
DA1003

	lda CDYOff
	adc CYPosOff	; carry clear here if it matters...
	sta CYPosOff

	dec CIterOff
	bne DA1010	; if non-zero then continue
DA1007
	lda passChar	; if zero turn off animation flag for	        
	asl a
	tax
	lda cascade,x	; the pass char.
	eor TempAnimState
	sta TempAnimState	; and resave anim state
	cpx #16	; now test to see if its a bullet
; Was BGE
	bra DA1030	; if it is don't bother redrawing it
DA1010
	lda CCurPOff	; increment the phase
	inc a
	cmp CMaxPOff
	blt @PhaseOK
	lda CMinPOff
	bra @PhaseOK1
@PhaseOK	
	cmp CMinPOff	; see if we are less than the min Phase
	bge @PhaseOK1	; if so then skip the next segment
	lda CMinPOff
@PhaseOK1	sta CCurPOff
@PhaseOK2
; call the drawing routine here. NOTE:Phase is in <A>!!!!
;
	jsr DoDraw1	; draw the character 
; since it was handy, do draw now returns the collision rect info for the current
; character in <X> and <A> Now we will copy that save info into the characters animation record
; for them!
	ldy #CCoLInfo+2	; get the location to store it in
	sta [theChar],y	; since theChar just happens to already be set up!
	dey
	dey
	txa
	sta [theChar],y

DA1030
	ldy #CXPosOff
	lda CXPosOff
	sta [theChar],y
	
	ldy #CYPosOff
	lda CYPosOff
	sta [theChar],y
	
	ldy #CCurPOff
	lda CCurPOff
	sta [theChar],y
	
	ldy #CIterOff
	lda CIterOff
	sta [theChar],y
	
	rts
	EndP

	EJECT
*******************************************************************************
*
DoEraseAll	PROC
*
* Description:	This proc will erase all of the characters rectangles...
*	it calls a small version of SetupZP that only does certain fields
*
*
*
* Inputs:	None
*
* Outputs:	None
*
* External Refs:
*
	With Globals
* Entry Points:
*
*******************************************************************************
* NOTE: since this routine is called before a routine that calls setupZP, it can trash 
* a few of our variables...
LPassChar	equ $80
LAnimState	equ CXCenter
DATemp	equ CYCenter
	phb	
	pea DrawDblBank	; and switch to a new data bank reg
	plb	; that happens to contain the screen
	plb	; this is only one byte.. so do it twice

	lda AnimState	; get the current animation state 
	sta LAnimState	; and store it on our temp...
	stz LPassChar	; init our counter properly...
DA0010
	lsr LAnimState	; see if this char is animating...
	bcc DA0020
	jsr SetupEraseZP
	jsr DoEraseCharSq
	inc LPassChar
	bra DA0010
	
DA0020	beq Done
	inc LPassChar
	bra DA0010
	
Done	plb
	rts
	EndP
	
	EJECT
*******************************************************************************
*
DoEraseKilled	PROC
*
* Description:	This proc will erase all of the characters rectangles
*	that have been killed since last time
*
*
*
* Inputs:	None
*
* Outputs:	None
*
* External Refs:
*
	With Globals
* Entry Points:
*
*******************************************************************************
* NOTE: since this routine is called before a routine that calls setupZP, it can trash 
* a few of our variables...
LPassChar	equ $80
LAnimState	equ CXCenter
DATemp	equ CYCenter
	phb	
	pea DrawDblBank	; and switch to a new data bank reg
	plb	; that happens to contain the screen
	plb	; this is only one byte.. so do it twice
	lda >KillState
	sta LAnimState
	stz LPassChar	; init our counter properly...
DA0010
	lsr LAnimState	; see if this char is animating...
	bcc DA0020
	jsr SetupKillZP
	jsr DoEraseCharSq
	inc LPassChar
	bra DA0010
	
DA0020	beq Done
	inc LPassChar
	bra DA0010
	
Done	plb
	rts

SetUpKillZP
; This routine will copy the proper data from the kill rects to our direct page vars for
; eraseCharSq.
	lda LPassChar	; get the character number
	asl a	; multiply it by 8..
	asl a
	asl a
	tax	; use it as an index
	lda >KillRects.xPosition,x
	sta <CXPosOff
	lda >KillRects.yPosition,x
	sta <CYPosOff
	lda >KillRects.Height,x
	sta <CHeightOff
	lda >KillRects.Width,x
	sta <CWidthOff
	rts
	
	EndP

	EJECT
*******************************************************************************
*
DoBlitKilled	PROC
*
* Description:	This proc will erase all of the characters rectangles
*	that have been killed since last time
*
*
*
* Inputs:	None
*
* Outputs:	None
*
* External Refs:
*
	With Globals
* Entry Points:
*
*******************************************************************************
* NOTE: since this routine is called before a routine that calls setupZP, it can trash 
* a few of our variables...
LPassChar	equ $80
LAnimState	equ CXCenter
DATemp	equ CYCenter
	phb	
	pea DrawDblBank	; and switch to a new data bank reg
	plb	; that happens to contain the screen
	plb	; this is only one byte.. so do it twice
	lda >KillState
	sta LAnimState
	lda #0
	sta >KillState
	stz LPassChar	; init our counter properly...
DA0010
	lsr LAnimState	; see if this char is animating...
	bcc DA0020
	jsr SetupKillZP
	jsr DoBlitCharSq
	inc LPassChar
	bra DA0010
	
DA0020	beq Done
	inc LPassChar
	bra DA0010
	
Done	plb
	rts

SetUpKillZP
; This routine will copy the proper data from the kill rects to our direct page vars for
; eraseCharSq.
	lda LPassChar	; get the character number
	asl a	; multiply it by 8..
	asl a
	asl a
	tax	; use it as an index
	lda >KillRects.xPosition,x
	sta <CXPosOff
	lda >KillRects.yPosition,x
	sta <CYPosOff
	lda >KillRects.Height,x
	sta <CHeightOff
	lda >KillRects.Width,x
	sta <CWidthOff
	rts
	
	EndP

	EJECT
*******************************************************************************
*
DoBlitAll	PROC
*
* Description:	This proc will erase all of the characters rectangles...
*	it calls a small version of SetupZP that only does certain fields
*
*
*
* Inputs:	None
*
* Outputs:	None
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
* NOTE: sice this routine is called before a routine that calls setupZP, it can trash 
* a few of our variables...
LPassChar	equ $80
LAnimState	equ CXCenter
DATemp	equ CYCenter
	With Globals
	
	phb
	pea DrawDblBank	; and switch to a new data bank reg
	plb	; that happens to contain the screen
	plb	; this is only one byte.. so do it twice

	lda AnimState	; get the current animation state 
	sta LAnimState	; and store it on our temp...
	lda #$000F	; init our counter properly...
	sta DATemp
DA0010
	sta LPassChar
	asl LAnimState	; see if this char is animating...
	bcc DA0030
	jsr SetupBlitZP
	jsr DoBlitCharSq
	bra DA0020
DA0030
	asl a
	asl a
	asl a
	tax
	lda #0
	sta >NextRects,x
	sta >NextRects+2,x
	sta >NextRects+4,x
	sta >NextRects+6,x
DA0020	lda DATemp
	dec a
	sta DATemp
	bpl DA0010
	plb
	rts
	EndP

	EJECT
*******************************************************************************
*
TestBlitter	PROC
*
* Description:	This is the screen re-blit test routine, use it well!
*
*
* Inputs:	None
*
* Outputs:	None
*
* External Refs:
*
	MACRO
	DoPEIRazor
	LCLA &cntr	; define a var
&cntr	SETA 158	; init to zero
	WHILE &cntr>=0 DO
	  pei <&Cntr
	  &cntr: SETA &cntr-2
	ENDWHILE
	MEND
* Entry Points:
*
*******************************************************************************
	sei
	phd	; save the current direct page...
	tsc
	sta >dummyStack
	longa off	; to hit switches with..
	sep #$20
	
	sta >$E0C003	; write/read Aux RAM
	sta >$E0C005
	rep #$20
	longa On
	
; TestBlitLoop here
	lda #$2000	
	ldy #199
	clc
; Now begin the loop
iLoop	
	tcd
	adc #$00A0-1
	tcs	; NOTE: <A> now contains the address of the next line..
	bra doScanLine
rtnScanLine	dey	
	bpl  iLoop
	cli
	longa off	; to hit switches with..
	sep #$20
	
	sta >$E0C002	; write/read Aux RAM
	sta >$E0C004
	rep #$20
	longa On
	
	lda >DummyStack
	tcs
	pld
	cli
	rtl
dummyStack	ds.W 1
	
doScanLine
	DoPEIRazor
	jmp rtnscanLine
	EndP

	
	
	
	EJECT
*******************************************************************************
*
DoBlitGroovy	PROC
*
* Description:	This proc is a special blitter that will do both areas of
*	the character at once, the derase and reblitt squares. Note that
* 	the nextrects array has already been setup at this point..
*
* 12/3/90	Added support for the stage collision information to go in here
*
* Inputs:	None
*
* Outputs:	None
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
* NOTE: sice this routine is called before a routine that calls setupZP, it can trash 
* a few of our variables...
LPassChar	equ $80
DETempData	equ $9C	; used in doBlitCharSq as a temp so can we
LAnimState	equ CXCenter
DATemp	equ CYCenter
	With Globals
	
	phb
	pea DrawDblBank	; and switch to a new data bank reg
	plb	; that happens to contain the screen
	plb	; this is only one byte.. so do it twice

	lda AnimState	; get the current animation state 
	sta LAnimState	; and store it on our temp...
	lda #$000F	; init our counter properly...
	sta DATemp
DA0010
	sta LPassChar	; 
	asl LAnimState	; see if this char is animating...
	bcc DA0030
	jsr SetupBlitZP
	
;
; First test to see if we can do the groovy reblit without taking too much time...
;
	lda LPassChar	; create the character table offset
	asl a	; multiply it by 8
	asl a
	asl a
	tax
;
; Now get the difference in the Y offsets, if they are too much then forget it...
; get smaller of the old Y and new Y in <Y> and the larger in <A>
;
	ldy <CYPosOff	; get the current Y in Y
	lda >NextRects+2,x	; get the old ypos offset...
	cmp <CYPosOff	; and test against the new location
	beq @YPosOK	; if its equal, no y change needed...
	bge @FixY010	; else Fix the Y coord.
; If here then coords are in reverse order...
	tay	; put small Y in Y
	lda <CYPosOff	; and get Big Y in <A>
	sec	; set the carry for the ensuing subtract...
@FixY010	sty <CYPosOff	; save <Y>
	sbc <CYPosOff	; subtract the small<Y> and we have the difference
; carry clear from the above compare...
	clc
	adc <cHeightOff
	sta <cHeightOff
@YPosOK
; Now do it up for the X coordinant as well...
	ldy <CXPosOff
	lda >NextRects,x
	cmp <CXPosOff
	beq @XPosOK	; if equal no further math needed
	bge @FixX010
	tay
	lda <CXPosOff
	sec
@FixX010	sty <CXPosOff
	sbc <CXPosOff
	clc
	adc <cWidthOff
	sta <cWidthOff
@XPosOK
; If we get here then dirty the old rectangle...
	lda #0
	sta >NextRects+4,x	; thats our flag...

	jsr DoBlitCharSq
	ldy #cColFlags	; now save the collision flag comming out into the record..
	sta [theChar],y	; lucky for us this is setup for us at the setupblitZP call
	
	bra DA0020
DA0030
	asl a
	asl a
	asl a
	tax
	lda #0
	sta >NextRects+4,x
DA0020	lda DATemp
	dec a
	sta DATemp
	bpl DA0010
	plb
	rts
	EndP

	EJECT
*******************************************************************************
*
DoDeraseBlit	PROC
*
* Description:	This proc will erase all of the characters rectangles...
*	it calls a small version of SetupZP that only does certain fields
*
*
*
* Inputs:	None
*
* Outputs:	None
*
* External Refs:
	with globals
*
* Entry Points:
*
*******************************************************************************
* NOTE: sice this routine is called before a routine that calls setupZP, it can trash 
* a few of our variables...
LPassChar	equ $80
DATemp	equ CYCenter
	phb
	pea DrawDblBank	; and switch to a new data bank reg
	plb	; that happens to contain the screen
	plb	; this is only one byte.. so do it twice

	lda #$000F	; init our counter properly...
	sta DATemp
DA0010
	sta LPassChar
;-----------------------------------------------------
; was jsr setup derase ZP...
	asl a	; multiply it by 4
	asl a
	asl a
	tax
	lda >NextRects+4,x
	beq @Bad
	sta CHeightOff
	lda >NextRects,x
	sta CXPosOff
	lda >NextRects+2,x
	sta CYPosOff
	lda >NextRects+6,x
	sta CWidthOff
;----------------------------------------------------
	jsr DoBlitCharSq
@Bad
DA0020	lda DATemp
	dec a
	sta DATemp
	bpl DA0010
	plb
	rts
	EndP


******************************************************************************
*
* DoAnimate - draws	all the characters
*
	Export DoAnimate
DoAnimate	proc
LpassChar	equ $80
DETempData	equ $9C	; NOTE trashed in blitters/erasers
DATemp	equ $9A	; NOTE TRASHED IN BLITTERS
	with AnimRecord
	With Globals
	With Constants
	
	_ShadowOff
;
; Debug only!
	lda >$E12000
	inc a
	sta >$E12000
;
; REMOVE ME NOW!

	lda KillState	; see if anyone has been killed..
	beq @NoDead	; if not, skil the next call..
	jsr DoEraseKilled
@NoDead
	jsr DoEraseAll	; erase everybody here first!

	lda AnimState
	beq DADone
	Sta TempAnimState	; save it in our temp for refreshing later...
	sta <DETempData	; save the animation state for a sec...
	lda AnimActive	; test if animation	frame already set up
	beq DANoAnim	; if not, just end
	
	stz LPassChar
DA0010	
	lsr <DETempData	; see if this char is animating...
	bcc @NotActive
	jsr DoAnim1
	lda #1	; make sure zero is not set here!
@NotActive	beq DADone
	inc LPassChar	; bump the character number and try again
	bra DA0010
DADone
	_ShadowOn
	
;
; Got the flag here!
@SpecialTest1
;	jsl TestBlitter
;	bra @Done
	jsr DoBlitGroovy	; try another feeble attempt to reduce flicker..
	lda >KillState	; see if anyone has been killed..
	beq @NoDead2	; if not, skil the next call..
	jsr DoBlitKilled
@NoDead2
@Done
; ***WAS	jsr DoBlitAll	; reblit the chars to the screen
;	jsr DoDeraseBlit

	jsl SetMyDataBank
	lda TempAnimState
	sta AnimState
DANoAnim

	rtl
	EndP

	EJECT
*******************************************************************************
*
DoKill	Proc Export
	procHdr 'DoKill'
*
* Description:	this procedure erases the specified character and then turns
*	its animation state off.
*
*
* Inputs:	charToKill:Word
*
* Outputs:	None
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
	With AnimRecord
	With Globals
	With Constants
;
; Stack information
;
SaveDPage	equ 1
RTL1	equ SaveDPage+2
fredChar	equ RTL1+3
;
; equate used for setup ZP
LPassChar	equ $80
	phd	; save the current directpage
	lda >MyZP	; get the games global ZP
	tcd	; use it as our direct page!
	
	sei

	lda fredChar,s
	sta LPassChar
	cmp #16	; see if its larger	than it shound be
	blt @CharNumOK
	Debug $FFBB,#$DEAD,#$5678 ; show that it was a bad char
	bra LPC0020
@CharNumOK
	jsl SetUpZP
; Replace call to DoErase2 with a setup of the proper kill rect for this here victim!
;	jsr DoErase2
	lda LPassChar
	asl a
	tax
	lda cascade,x
	and KillState	; see if we already killed this guy once...
	bne @AlreadyDead	; wouldn't do to kill the same guy twice in a turn!

	lda cascade,x	; get the cascade value back again!
	ora KillState
	sta KillState	; set the proper flag in the kill state record
	txa
	asl a	; now multiply it by 8.. (its already x2)
	asl a
	tax
	lda <CXPosOff	; update the kill rectangle
	sta KillRects.xPosition,x
	lda <CYPosOff
	sta KillRects.yPosition,x
	lda <CHeightOff
	sta KillRects.Height,x
	lda <CWidthOff
	sta KillRects.Width,x
@AlreadyDead	
; Now turn off the animation record dude..
LPC0010
	lda LPassChar
	asl a
	tax
	lda cascade,x	; the pass char.
	eor #$FFFF	; Not cascade
	and animState
	sta animState	; and resave anim state
	stz CIterOff
	jsl RestoreZP
LPC0020
	cli
	
	pld	; restore the direct page
	
	sep #$20	; unlink our frame
	Longa Off
	pla
	ply
	
	plx
	phy
	pha
	rep #$20
	Longa On
	
	rtl
	EndP

	EJECT
*******************************************************************************
*
StartCharCall	PROC Export
	EXPORT StartStackChar
	ProcHdr 'StartStackChar'
*
* Description:  	This routine starts the specified character off in the proper
*	direction with the proper phases.. IT DOES NOT START animation
*
*
* Inputs:   	On Stack (Pass by phase)
*	| PassY    | - WORD
*	| PassX    | - WORD
*	| PassMaxP | - WORD
*	| PassMinP | - WORD
*	| LPassChar| - WORD
*	| return Address | - 3Byte
*    (PassByDirection)
*	| PassY    | - WORD
*	| PassX    | - WORD
*	| PassFlag | - WORD (High bit always set...)
*	| PassDir  | - WORD
*	| LPassChar| - WORD
*	| return Address | - 3Byte
*
* Outputs:  	None
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
	With AnimRecord
	With Globals
	With Constants

LocalFrame	equ $10	; number of bytes of local storage

; Local Data storage areas and standard	frame data
TempDeRef	equ $01	; area for dereferencing
TempCharPt	equ TempDeRef+4
SavedDPage	equ LocalFrame+1	;
RetAddr1	equ SavedDPage+2	; return address
RetAddr2	equ RetAddr1+3
; Passed parameters	Note Locaframe+1 ref...
;
LpassChar	equ RetAddr2+3	; Number of Pallet to load
PassDir	equ LPassChar+2	; starting direction
PassFlag	equ PassDir+2	; high bit set for pass by direction
passMinP	equ PassDir	; phase specifiers if PassFlag
passMaxP	equ PassFlag	; high bit clear
PassX	equ PassFlag+2	; speds starting X and Y
PassY	equ PassX+2	; Speds Starting X and Y

;
; Set up the stack frame for our routine to use
;
	phd	; save the direct page
	tsc	; get the stack pointer
	sec
	sbc #LocalFrame	; subtract the local frame size
	tcd	; make it the Direct page register
	tcs	; also use it as a stack pointer


; code here
	lda <LpassChar	; get the offset to	the char record
	and #$000F	; only 16 chars boys
	asl a	; multiply it by 4
	asl a
	tax
	lda >CharTable,x	; get the low byte of the char pointer
	sta <TempCharPt	; store it in the zp pointer
	lda >CharTable+2,x	; noe the high byte
	sta <TempCharPt+2

	ldy #CCoLInfo	; preserve last collision info just in case
	lda [<TempCharPt],y
	pha
	iny
	iny
	lda [<TempCharPt],y
	pha
	
	ldy #0	; Remove if we need speed
	tya
sc0010	sta [<TempCharPt],y
	iny
	iny
	cpy #CEndOfVars
	blt SC0010

	ldy #CCoLInfo	; preserve last collision info just in case
	pla
	sta [<TempCharPt],y
	iny
	iny
	pla
	sta [<TempCharPt],y

	lda <PassFlag	; test to see if this is the new or old	way...
	cmp #$8000
	beq ByDirection	; he is passing by direction
	ldy #CCurPOff
	lda <passMinP
	sta [<TempCharPt],y
	ldy #CMinPOff
	sta [<TempCharPt],y
	lda <passMaxP
	ldy #CMaxPOff
	sta [<TempCharPt],y
	bra SC0020

ByDirection
	lda <PassDir	; load the direction
	ldy #CDirOff
	sta [<TempCharPt],y
	and #$0006	; strip off bad data ( and low bit )
	asl a	; and multiply by 2
	clc	; now create the offset into the record
	adc #CNorthPhase	; by adding the north offset            
	tay	; use it as an index
	lda [<TempCharPt],y	; now load the min phase
	tax	; save this for a second
	iny
	iny	; now bump to get the max phase
	lda [<TempCharPt],y
	ldy #CMaxPOff
	sta [<TempCharPt],y	; and save it in our record
	txa
	ldy #CCurPOff
	sta [<TempCharPt],y
	ldy #CMinPOff
	sta [<TempCharPt],y

SC0020
	lda <passX	; save the starting x coord
	ldy #CXPosOff
	sta [<TempCharPt],y
	
	lda <PassY	; save the starting Y coord	
	ldy #CYPosOff
	sta [<TempCharPt],y
		
	phb
	jsl SetMyDataBank	; warning data bank error here!
	ldx |MyZP	; get the direct page value apps
	lda >AnimState,x	; get Anim state.
	bne UpDateIt	; if its not equal,	update it!

UpDateIt	lda <LpassChar	; get the character	number
	asl a
	tay	; use as offset
	lda |cascade,y	; a cascade of single bits in a table
	ora >AnimState,x	; add it to animation state
	sta >AnimState,x	; and save it.
	plb
;
;   UnLink the stack frame
;
Done
	tsc	; get the stack pointer
	clc
	adc #LocalFrame	; subtract our local frame
	tcs	; restore the stack	pointer
	pld	; get the old direct page

	phb
	phd
	brl Yank10
StartStackChar	jsl StartCharCall
	rtl
	EndP
	
	
	EJECT
*******************************************************************************
*
MoveCharCall	Proc Export
	Export MoveStackChar
	procHdr 'MoveStackChar'
*
* Description:  	this routine starts a character off moving in the current
*	direction at the specified speed
*
*
* Inputs:	On stack
*	| LPassChar   | - WORD
*	| PassSpeed   | - WORD (PassDx)
*	| PassFlag    | - WORD (PassDY)
*	| PassIter    | - WORD
*
* Outputs:  On Stack as needed
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
	With Globals
	With Constants
	With animrecord

LocalFrame	equ $10	; number of bytes of local storage

; Local Data storage areas and standard	frame data
TempDeRef	equ $01	; area for dereferencing
TempCharPt	equ TempDeRef+4
SavedDPage	equ LocalFrame+1	; First parm passed
RetAddr1	equ SavedDPage+2	; return address
RetAddr	equ RetAddr1+3
; Passed parameters	Note Locaframe+1 ref...

LPassChar	equ RetAddr+3	; Number of Pallet to load
PassSpeed	equ LPassChar+2
PassFlag	equ PassSpeed+2
PassDX	equ PassSpeed
PassDY	equ PassFlag
PassIter	equ PassFlag+2

;
; Set up the stack frame for our routine to use
;
	phd	; save the direct page
	tsc	; get the stack pointer
	sec
	sbc #LocalFrame	; subtract the local frame size
	tcd	; make it the Direct page register
	tcs	; also use it as a stack pointer


; code here

	lda <LpassChar	; get the offset to	the char record
	and #$000F	; only 16 chars boys
	asl a	; multiply it by 4
	asl a
	tax
	lda >CharTable,x	; get the low byte of the char pointer
	sta <TempCharPt	; store it in the zp pointer
	lda >CharTable+2,x	; noe the high byte
	sta <TempCharPt+2

	lda <PassFlag	; test for the data	passing method
	cmp #$8000
	bne NotBySpeed	; passed dx and dy so load it that way and calculate
		;   CDir so MoveAccounting knows what to do.
	bra BySpeed
	
NotBySpeed
	ldy <PassDX
	beq YTest1
	bpl YTest2
YTest3		; negative dx so directions will be 5,6,7
	ldy <PassDY
	beq YT3010
	bpl YT3020
	lda #7
	bra NBScont
YT3010
	lda #6
	bra NBScont
YT3020
	lda #5
	bra NBScont
YTest1		; no dx so directions will be 0 or 4
	ldy <PassDY
	bne YT101
	lda #8	; not moving at all! so get outta here
	bra NBScont
YT101
	bpl YT110
	lda #0
	bra NBScont
YT110
	lda #4
	bra NBScont
YTest2		; positive dx so directions will be 1,2,3
	ldy <PassDY
	beq YT210
	bpl YT220
	lda #1
	bra NBScont
YT210
	lda #2
	bra NBScont
YT220
	lda #3
NBScont
	inc a
	ldy #CDirOff
	sta [<TempCharPt],y	; store the calculated direction

	ldy #CDXOff	; now to stow this data into our data structure
	lda <PassDX
	sta [<TempCharPt],y
	ldy #CDYOff
	lda <PassDY
	sta [<TempCharPt],y
	bra MC0020
BySpeed
	lda PassSpeed	; load in the speed
	bne BYSpd01	; are we standing still???
	tax	; use a zero offset
	ldy #CCurPOff
	lda [<TempCharPt],y
	ldy #CMaxPOff
	sta [<TempCharPt],y
	ldy #CMinPOff
	sta [<TempCharPt],y
	txa
	bra BySpd02
BySpd01	and #$00FF
	xba	; multiply by 256
	lsr a	; then divide by 8 to get
	lsr a	; multiply by 32!
	lsr a
	sta MCTemp	; save this for a second
	ldy #CDirOff
	lda [<TempCharPt],y	; add load the direction
	dec a	; subtract 1
	asl a	; multiply it by 4
	asl a
	adc MCTemp
	tax	; and put it in x!
	lda >SpeedOffTable+2,x
BySpd02	ldy #CDYOff
	sta [<TempCharPt],y
	lda >SpeedOffTable,x
	ldy #CDXOff
	sta [<TempCharPt],y
	ldy #cSpeedOff
	lda passSpeed
	sta [<TempCharPt],y
MC0020
	ldy #CIterOff
	lda passIter
	sta [<TempCharPt],y
	
	
	phb
	jsl SetMyDataBank
	ldx |MyZP	; get the direct page value apps
	lda <LpassChar	; get the character	number
	asl a
	tay	; use as offset
	lda |cascade,y	; a cascade of single bits in a table
	ora >AnimState,x	; add it to animation state
	sta >AnimState,x	; and save it.
	plb
;
;   UnLink the stack frame
;
Done
	tsc	; get the stack pointer
	clc
	adc #LocalFrame	; subtract our local frame
	tcs	; restore the stack	pointer
	pld	; get the old direct page

	phb	; set up for the yank!
	phd
	brl Yank8
MoveStackChar	jsl MoveCharCall
	rtl
	EndP
	
	EJECT
*******************************************************************************
*
	Export DoBopper
DoBopper	PROC
*
* Description:	Called to actually change the sped bit maps so that they
*	do the bop stuff. If the passFlag is set, this will unbop
*	the character.
*
*
* Inputs:	PassFlag on stack
*
* Outputs:	None
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************

	With AnimRecord
	With Globals
	With Constants
RetAddr	equ 1	; return address on the stack
PassFlag	equ RetAddr+3	; address of the passed param
LPassChar	equ $80
	PROCDB $215,#0,#0

	lda >CharTable	; get the low byte of the char pointer
	sta theChar	; store it in the zp pointer
	lda >CharTable+2	; noe the high byte
	sta theChar+2

	lda PassFlag,s	; test to see if start or stop bop...
	bpl DB0010
	brl StopBop
DB0010
	ldy #CCurPOff	; save all the old data first
	lda [theChar],y
	sta >SavedData
	ldy #CMinPOff
	lda [theChar],y
	sta >SavedData+2
	ldy #CMaxPOff
	lda [theChar],y
	sta >SavedData+4
	ldy #CDXOff
	lda [theChar],y
	sta >SavedData+6
	lda #0	; and take this oportunity to zero the speed
	sta [theChar],y
	ldy #CDYOff
	lda [theChar],y
	sta >SavedData+8
	lda #0
	sta [theChar],y
	ldy #CDirOff	; now get the movement direction
	lda [theChar],y
	and #$0006	; strip off the odd bits
	clc
	adc #CShootPhase	; add it to the start of the shoot phase
	tay	; use as an offset
	lda [theChar],y	; and get the current bopping phase
	ldy #CMinPOff	; and make it the next phase to use
	sta [theChar],y
	ldy #CMaxPOff
	sta [theChar],y	
	rtl	; and return for now
;
; Called to undo all the bad things that bopping did for us!
StopBop
	lda >SavedData+2
	ldy #CMinPOff
	sta [theChar],y

	lda >SavedData+4
	ldy #CMaxPOff
	sta [theChar],y
	
	lda >SavedData+6
	ldy #CDXOff
	sta [theChar],y	

	lda >SavedData+8
	ldy #CDYOff
	sta [theChar],y

	rtl
SavedData	ds.W 8
	EndP
	
	EJECT
*********************************************************
* LoadAChar		                *
*               Loads an AnimRecord with an Actor       *
*		                *
*   Stack before Call:	                *
*		                *
*       | Actor #	    |	                *
*       | AnimRec	    |	                *
*       | Ret Addr	    |	                *
*       | Ret   | <---SP	                *
*		                *
*   Stack After Call:	                *
*		                *
*		                *
*       | prev Cont	    |  <---SP	                *
*		                *
*		                *
*		                *
*********************************************************

	Export LoadAChar
LoadAChar	Proc
	With Globals
	With Constants
LocalFrame	equ $10	; number of bytes of local storage
TempDeRef	equ $01	; area for dereferencing
ActorPtr	equ TempDeRef+4
AnimPtr	equ ActorPtr+4
TempInt	equ AnimPtr+2
SavedDPage	equ LocalFrame+1	; address of our direct page
RetAddr	equ SavedDPage+2	; return address
AnimRec	equ RetAddr+3	; Number of Pallet to load
ActorNum	equ AnimRec+2

;
; Set up the stack frame for our routine to use
;
	PROCDB $206,#0,#0

	phd	; save the direct page
	tsc	; get the stack pointer
	sec
	sbc #LocalFrame	; subtract the local frame size
	tcd	; make it the Direct page register
	tcs	; also use it as a stack pointer

    	lda AnimRec	; set up the pointer to our anim record
	asl a	; first multiply by	4
	asl a
	tax
	lda >CharTable,x
	sta AnimPtr
	lda >CharTable+2,x
	sta AnimPtr+2

	lda ActorNum	; Now build the actor pointer
	bpl LoadReg	; load a regular actor
	brl LoadObject	; if high bit set, load an object
LoadReg
	dec a	; Decrement cause table offsets are different
	asl a
	asl a	; multiply it by 4
	clc	; Now add in the offset to the table
	adc #MBMCharIndex	; in the actor file
	jsr SetUpActorPtr

	jsr CopyActorToAnim
	
; Now we load the actors shot!

	lda AnimRec	; set up the pointer to our anim record
	cmp #8	; is it greater than 8???
	blt LoadShot	; if not, then load a shot
	brl LoadADone	; if so, then ignore
LoadShot
	ora #$08	; set the high bit to indicate the shot!
	asl a	; first multiply by	4
	asl a
	tax
	lda >CharTable,x
	sta AnimPtr
	lda >CharTable+2,x
	sta AnimPtr+2

	lda ActorNum	; Now build the actor pointer
	dec a	; Decrement cause table offsets are different
	asl a
	asl a	; multiply it by 4
	clc	; Now add in the offset to the table
	adc #MBMShotIndex	; in the actor file
	jsr SetUpActorPtr

	jsr CopyActorToAnim
	
;
;   UnLink the stack frame
;

LoadADone
	tsc	; get the stack pointer
	clc
	adc #LocalFrame	; subtract our local frame
	tcs	; restore the stack	pointer
	pld	; get the old direct page

	UnLinkRTL 4

	rtl
	
LoadObject
	and #$007F	; 
	dec a	; Decrement cause table offsets are different
	asl a
	asl a	; multiply it by 4
	clc	; Now add in the offset to the table
	adc #MBMObjIndex	; in the actor file
	jsr SetUpActorPtr	; new code for new glib...
	
	jsr CopyActorToAnim
	
	brl LoadADone

;
; Fix tempderef so that it points to the beginning of our monster file.
; this way we can load the monster file anywhere we want to
;
FixTempDeref
	lda >CharTblHandle
	sta <tempDeRef
	lda >CharTblHandle+2
	sta <tempDeRef+2
; NOTE: Since I am calling load segment this is no longer a handle!
;	lda [tempDeref]
;	tax
;	ldy #2
;	lda [tempDeref],y
;	sta <tempDeRef+2
;	stx <tempDeref

	rts
	
; Added this routine to make the code a little smaller for us!
; since it is called 3 times above
CopyActorToAnim
	ldy #CEndOfVars-1	; Now to copy over the whole damn table!
@CopyLoop	lda [ActorPtr],y	; load the data from the actor record
	sta [AnimPtr],y	; save it locally
	iny
	iny
	cpy #CColInfo-1 ; are we done yet????
	blt @CopyLoop
	rts
;
SetUpActorPtr
; Enter this routine with an offset into the monster tables at the head of the monster segment
; and it will set ActorPtr to point to the apropriate data for the thing!
	pha	; save the actor number
	jsr FixTempDeref	; set tempDeref to the head of the monster segment
	pla	; recover the offset into <A>
	clc
	adc <tempDeref
	sta TempDeRef
	bcc @1
	inc TempDeref+2
@1
	ldy #2
	lda [TempDeRef],y	; we hard code the address of this thing!
	sta ActorPtr+2
	lda [TempDeref]
	sta ActorPtr
	rts	; and return

	EndP

	EJECT
*******************************************************************************
*
LoadSpecActor	Proc Export
	ProcHdr 'LoadSpecActor'
*
* Description:	This routine is similar to loadAChar except that instead 
*	of loading a standard monster record it will load monster
*	data directly from a pointer that is passed.
*
*
* Inputs:	Passed on Stack
*      	| Actor #	|
*       	| Actor # >>16	|
*       	| AnimRec	|
*      	| Ret Addr	|
*       	| Ret   | <---SP
*
* Outputs:	None
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
	With Globals
	With Constants
LocalFrame	equ $10	; number of bytes of local storage
TempDeRef	equ $01	; area for dereferencing
@unused1	equ TempDeRef+4
AnimPtr	equ @unused1+4
TempInt	equ AnimPtr+2
SavedDPage	equ LocalFrame+1	; address of our direct page
RetAddr	equ SavedDPage+2	; return address
AnimRec	equ RetAddr+3	; Number of Pallet to load
ActorPtr	equ AnimRec+2	; changed to accomodate long sized parm
;
; Set up the stack frame for our routine to use
;
	
	phd	; save the direct page
	tsc	; get the stack pointer
	sec
	sbc #LocalFrame	; subtract the local frame size
	tcd	; make it the Direct page register
	tcs	; also use it as a stack pointer

	lda AnimRec	; set up the pointer to our anim record
	asl a	; first multiply by	4
	asl a
	tax
	lda >CharTable,x
	sta AnimPtr
	lda >CharTable+2,x
	sta AnimPtr+2
;
; 5/5/90	Mensch
; Modified to not destroy the final collision rect info in the record!
	ldy #CEndOfVars-1	; Now to copy over the whole damn table!
LAA0010	lda [ActorPtr],y	; load the data from the actor record
	sta [AnimPtr],y	; save it locally
	iny
	iny
	cpy #CCoLInfo-1 	; are we done yet????
	blt LAA0010
;
;   UnLink the stack frame
;

LoadADone
	tsc	; get the stack pointer
	clc
	adc #LocalFrame	; subtract our local frame
	tcs	; restore the stack	pointer
	pld	; get the old direct page

	UnLinkRTL 6	; yank 6 bytes of passed parameters
	
	rtl
	EndP

	End

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Animation/IOLib.Aii b/IIGS.601.SRC/GSToolbox/Animation/IOLib.Aii
new file mode 100644
index 0000000..a29c1c4
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Animation/IOLib.Aii
@@ -0,0 +1 @@
+*******************************************************************************
* IOLib.aii
*
* (C)  Copyright Two Guys and a Cabbage Software 1988
* All rights reserved.
*
* by Jim Mensch
* 1/30/89
*
* IORoutines for game.aii
*
* Files:	system equates
*
*
*
* Modification History:
*
* Version 1.3	Mensch
*
*      1/30/89	First time file header added
*
*	Added subdirectory names to all file names.
*
*      4/15/89	Mensch
*	Added prefix 4/ for map folder and 5/ for sounds
*
*	Added Load/Save Game setup routines.
*
*	Added Set prefix routines
* -------------------------------------------------------------------------
* 4/16/90	Mensch
* Started 5.0.3 conversion work today in this file
*
*******************************************************************************
	Seg 'FileIOSeg'

	Import GameDebug

	PRINT NOHDR,NOGEN
	PRINT PUSH,OFF
	Include 'All.game.macros'
	INCLUDE 'game.macros'
	INclude 'Game.Equates'
	Include 'Game.Globals'
	PRINT POP

; Data required by this routine that exists in other routines
	Import Globals:GlobalsTemplate
	Import Constants:ConstTemplate
	Import SetMyDataBank

*********************************************************
* LoadFile		                *
*               Loads in a Specified File               *
*		                *
*   Stack before Call:	                *
*		                *
*       | Result Space  |	                *
*       | Result Space  |	                *
*       | FileSet #	    |	                *
*       | File Type	    |	                *
*       | Ret Addr	    |	                *
*       | Ret   | <---SP	                *
*		                *
*   Stack After Call:	                *
*		                *
*       | PalletHandle  |	                *
*       | PalletHandle  |  <---SP	                *
*		                *
*		                *
*		                *
*   Valid File Types are:	                *
*		                *
*           $00 - Map File	                *
*           $01 - Pallet File	                *
*           $02 - Color File	                *
*           $03 - Monster File	                *
*           $04 - BitMap file	                *
*           $05 - Sound File	                *
*           $06 - SpedData File	                *
*		                *
*		                *
*********************************************************

	Export LoadFile
LoadFile	proc
	With Globals
LocalFrame	equ $06	; number of bytes of local storage
TempDeRef	equ $01	; area for dereferencing
SavedDPage	equ LocalFrame+1	; address of our direct page
RetAddr	equ SavedDPage+2	; return address
FileType	equ RetAddr+3	; Number of Pallet to load
PalletNum	equ FileType+2
Result	equ PalletNum+2	; space for the return handle

;
; Set up the stack frame for our routine to use
;

	phd	; save the direct page
	tsc	; get the stack pointer
	sec
	sbc #LocalFrame	; subtract the local frame size
	tcd	; make it the Direct page register
	tcs	; also use it as a stack pointer
 
	lda FileType	; Load in the selected File type
	asl a	; Multiply it by 4
	asl a
	tax	; use it as an Index
	lda >NameTab,x
	sta >FileName
	clc
	adc #11	; WE BUMPED THE FILENAMES BY A PREFIX...
	sta TempDeRef
	lda >NameTab+2,x
	sta >FileName+2
	adc #0
	sta TempDeRef+2

	PushWord PalletNum	; get the pallet we	are working with
	PushLong TempDeRef	; address of the number inside the string
	PushWord #4
	_Int2Hex

	lda FileType
	cmp #FTBitMap
	bne LFEOpen
	brl LoadBitMaps	; load a bitmap segment from disk
LFEOpen
	_Open OPPParms
	bcc LFE010
LFE010
	lda >OPPRefNum
	sta >RDPRefNum
	sta >GEPRefNum
	sta >CLPRefNum
	bcc LFE020
LFE020
	_Get_EOF GEPParms

	lda >GEPSize
	sta >RDPReqCnt
	lda >GEPSize+2
	sta >RDPReqCnt+2

;**BitMap	lda FileType
;**BitMap	cmp #FTBitMap
;**BitMap	beq LF0010

	PushLong #0
	PushLong >GEPSize
	
	lda >MyID
	sta TempDeRef
	lda FileType
	xba		; use it as the aux ID of
	and #$0F00		; strip off excess
	ora TempDeRef		; the handle we create
	pha
; PushWord >MyID			; this replaced by above
	PushWord #%1000000000011100
	PushLong #0
	_NewHandle

	pla
	sta TempDeRef
	sta Result
	pla
	sta TempDeRef+2
	sta Result+2
;**BitMap	bra LF0020
LF0010
;**BitMap	lda >CharTblHandle
;**BitMap	sta TempDeRef
;**BitMap	sta Result
;**BitMap	lda >CharTblHandle+2
;**BitMap	sta TempDeRef+2
;**BitMap	sta Result+2
LF0020
	lda [TempDeRef]
	sta >RDPDataBuf

	ldy #2
	lda [TempDeRef],y
	sta >RDPDataBuf+2

	_Read RDPParms
	bcc LFE040
LFE040

	_Close CLPParms
	bcc LFE050
LFE050

;
;   UnLink the stack frame
;
	tsc	; get the stack pointer
	clc
	adc #LocalFrame	; subtract our local frame
	tcs	; restore the stack	pointer
	pld	; get the old direct page

	sep #$20	; now get the return address
	Longa Off
	pla
	ply	; pull 3 byte return address
	plx	; pull off the 2 byte passed param
	plx
	phy
	pha
	rep #$20
	LongA On	; stack frame is now adjusted

	rtl

; LoadBitMaps uses load seg by name to load a relocatable bitmap segment 
; into memory somewhere.
LoadBitMaps
	Import LoadMonsBMap
	jsl LoadMonsBMap	; force the segment to load
	sta >CharTblHandle
	sta Result
	txa
	sta >CharTblHandle+2
	sta Result+2
	brl LFE050

	pha	; room for result
	pha
	pha
	pha
	pha
	PushWord >MyID
	PushLong >FileName
	PushLong #SegName
	_LoadSegName	; load the segment
	bcc LBM0010
	DEBUG $FFBB,#$DEAD,#0
LBM0010
	PullLong Result
	lda Result
	sta >CharTblHandle
	lda Result+2
	sta >CharTblHandle+2

	pla
	pla
	pla
	
	brl LFE050
	
SegName	str 'MONSTERS'
MapName	str '4/MAPS/Map0000'
PalletName	str '4/MAPS/Map0000.Pallet'
ColorName	str '4/MAPS/Map0000.Color'
MonName	str '4/MAPS/Map0000.Mon'
BitMapName	str '4/MAPS/Map0000.MonBMap'
SoundName	str '5/SNDS/Snd0000'
NameTab	dc.L MapName,PalletName,ColorName,MonName,BitMapName,SoundName

OPPParms
OPPRefNum	dc.W 0
FileName	dc.L 0
	dc.L 0
GEPParms
GEPRefNum	dc.W 0
GEPSize	dc.L 0

RDPParms
RDPRefNum	dc.W 0
RDPDataBuf	dc.L 0
RDPReqCnt	dc.L 0
	dc.L 0
CLPParms
CLPRefNum	dc.W 0
	EndP
	
	EJECT
*******************************************************************************
*
	Export DoFlip
DoFlip	PROC
*
* Description:	Horizontally flips a bitmap image in place
*
*
* Inputs:	theMap:Ptr; Pointer to Bitmap data
*
* Outputs:	flipped image
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
	
theData	equ $A0
temp1	equ $A4
counter	equ $A6
tempPt	equ $A8
temp2	equ $AC
SrcPtr	equ $80
	PROCDB 12,#0,#0

	lda SrcPtr
	sta theData
	lda SrcPtr+2
	sta theData+2

	stz Counter	; current line
CpLine	ldy #$00	; absolute data offset
	lda [theData],y
	tax
	ldy #$0A
	lda [theData],y
	ldy #$00
	sta [theData],y
	txa
	ldy #$0a
	sta [theData],y
	ldy #$02
	lda [theData],y
	tax
	ldy #$08
	lda [theData],y
	ldy #$02
	sta [theData],y
	txa
	ldy #$08
	sta [theData],y
	ldy #$04
	lda [theData],y
	tax
	ldy #$06
	lda [theData],y
	ldy #$04
	sta [theData],y
	txa
	ldy #$06
	sta [theData],y
	inc Counter
	lda theData
	clc
	adc #12
	sta theData
	lda Counter
	cmp #16
	bne CpLine

	lda SrcPtr
	sta theData
	lda SrcPtr+2
	sta theData+2

	ldy #$00
SwapEm	lda [theData],y

	tax
	and #$000F
	xba
	sta temp1
	txa
	and #$00F0
	ora temp1
	asl a
	asl a
	asl a
	asl a
	sta temp1
	txa
	and #$F000
	xba
	sta temp2
	txa
	and #$0F00
	ora temp2
	lsr a
	lsr a
	lsr a
	lsr a
	ora temp1

	sta [theData],y
	iny
	iny
	cpy #192
	blt SwapEm

	rtl

	ENDP

	EJECT
*******************************************************************************
*
SetPrefixes	PROC Export
*
* Description:	This routine will cause the prefixes stored in globals
*	to be set for snd and map file loading.
*
*
* Inputs:	None
*
* Outputs:	None
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
	With Globals
	
	_Set_Prefix MapPrefixParm
	_Set_Prefix SndPrefixParm
	rtl
MapPrefixParm	dc.W 4
	dc.L MapPrefix
SndPrefixParm	dc.W 5
	dc.L SndPrefix
	EndP
	
	EJECT
*******************************************************************************
*
LoadGameSetup	PROC Export
	procHdr 'LoadGameSetup'
*
* Description:	This procedure will load the Game setup block from the disk file
*	game.setup.
*
*
* Inputs:	None
*
* Outputs:	Error in <A> with carry set if anything is wrong!
*
* External Refs:
	Import KeyTable
	Import SaveGameSetup
*
* Entry Points:
*
*******************************************************************************
	With Globals

	_Open OPPParms
	bcc LFE010
	brl BadLoad
LFE010
	lda >OPPRefNum
	sta >RDPRefNum
	sta >CLPRefNum
	
	lda #GameSetupBlock	; load the low byte of SpedInfo
	sta >RDPDataBuf
	lda #GameSetUpBlock>>16
	sta >RDPDataBuf+2
	_Read RDPParms
	bcc LFE040
	brl BadLoad
LFE040

	_Close CLPParms
	bcc LFE050
	brl BadLoad
LFE050
	jsr UseData	; if we get here then copy the data up!
	rtl
BadLoad	
; If we get a bad load of this file we must create valid data in our block and then 
; create the file with a saveGameSetup call. NOTE: This is a VERY bad thing, and should only
; occur once when I create the file to start with!

; First, fill the whole block with zero's
	ldx #SetupLength-2	; get the length of the datablock to clear
@clearLoop	stz GameSetupBlock,x ; clear a word
	dex
	dex
	bpl @ClearLoop	; if not done then do more...
	
; Now copy the key table from the main line program...
	ldx #28	; copy 16 bytes of the key table...
@MoveKeyIn	lda >KeyTable,x	; get the word from the key table...
	sta HisKeyTable,x
	dex
	dex
	bpl @MoveKeyIn

; Now set up the 2 prefixes to the game disk....
	_Get_Prefix Block1GPre ; fill sndprefix
	_Get_Prefix Block2GPre ; fill sndprefix
	
; Now that I have the setup data properly created, I will now just fall into the save routine 
; to create the file, making sure I closed the existing file if it was opened
	
	lda >OPPRefNum
	beq BL0010
	sta >CLPRefNum	; save in the close parms ref num
	_Close CLPParms	; close whatever may have been opened
BL0010	
	brl SaveGameSetup
	
; UseData
; This routine will copy the data that I just read from the setup file into the 
; proper locations  here in the game. That will include setting the prefixes for
; maps and sound...
UseData
	jsl SetPrefixes	; set the prefixes stored in our data area
	
; Now copy the key table to the main line program...
	ldx #28	; copy 16 bytes of the key table...
@MoveKeyout	lda HisKeyTable,x	; get the word from the data block...
	sta >KeyTable,x	; save into the key table
	dex
	dex
	bpl @MoveKeyout
	rts	; and return

theFileName	str '1/Game.setup'

Block1GPre	dc.W 1
	dc.L SndPrefix
Block2GPre	dc.W 1
	dc.L MapPrefix

OPPParms
OPPRefNum	dc.W 0
FileName	dc.L theFileName
	dc.L 0

RDPParms
RDPRefNum	dc.W 0
RDPDataBuf	dc.L GameSetupBlock
RDPReqCnt	dc.L SetupLength
	dc.L 0
CLPParms
CLPRefNum	dc.W 0
	EndP
	
	EJECT
*******************************************************************************
*
SaveGameSetup	PROC Export
	procHdr 'SaveGameSetup'
*
* Description:	This procedure will save the game setup block to the disk file
*	game.setup.
*
*
* Inputs:	None
*
* Outputs:	Error in <A> with carry set if anything is wrong!
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
	With Globals
tempChar	equ $80
	Import CharTable

	_Open OPPParms	; open the file
	bcc LFE010	; no error continue
	cmp #$46	; is it file not found error???
	beq LFE005
	brl BadLoad
LFE005
	_Create CRParms	; create the file
	bcc SavegameSetup	; if create was ok, try openning again
	brl BadLoad
	
LFE010
	lda >OPPRefNum
	sta >RDPRefNum
	sta >CLPRefNum

	lda #GameSetupBlock	; load the low byte of SpedInfo
	sta >RDPDataBuf
	lda #GameSetupBlock>>16
	sta >RDPDataBuf+2
	
	_Write RDPParms	; Write the data to the file!
	bcc LFE040
	brl BadLoad
LFE040

	_Close CLPParms
	bcc LFE050
	brl BadLoad
LFE050
	jsl SetPrefixes
	rtl
	
BadLoad	pha	; save the error!
	lda >OPPRefNum
	beq BL0010
	sta >CLPRefNum	; save in the close parms ref num
	_Close CLPParms	; close whatever may have been opened

BL0010	lda 1,s	; error code back into <A>
	Debug $FF13,#0,#0	; show the error
	pla	; get the error code
	cmp #0	; set carry if need be
	RTL	; and return
theFileName	str '1/Game.Setup'

CRParms	dc.L theFileName	; parm block for creating shit
	dc.W $C3	; standard access privaledges
	dc.W $6F	; stupid file type
	dc.L $CABB	; our aux type
	dc.W $01	; storage type
	dc.W 0	; date
	dc.W 0	; and time
OPPParms
OPPRefNum	dc.W 0
FileName	dc.L theFileName
	dc.L 0

RDPParms
RDPRefNum	dc.W 0
RDPDataBuf	dc.L GameSetupBlock
RDPReqCnt	dc.L SetupLength
	dc.L 0
CLPParms
CLPRefNum	dc.W 0
	EndP
	
	
	EJECT
*******************************************************************************
*
	Export LoadSpedInfo
LoadSpedInfo	PROC
*
* Description:	This procedure will load the SpedInfoBlock from the disk file
*	SpedInfo.
*
*
* Inputs:	None
*
* Outputs:	Error in <A> with carry set if anything is wrong!
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
	With Globals

	_Open OPPParms
	bcc LFE010
	brl BadLoad
LFE010
	lda >OPPRefNum
	sta >RDPRefNum
	sta >CLPRefNum
	
	lda #SpedInfo	; load the low byte of SpedInfo
	sta >RDPDataBuf
	lda #SpedInfo>>16
	sta >RDPDataBuf+2
	_Read RDPParms
	bcc LFE040
	brl BadLoad
LFE040

	_Close CLPParms
	bcc LFE050
	brl BadLoad
LFE050
	rtl
BadLoad	pha	; save the error!
	lda >OPPRefNum
	beq BL0010
	sta >CLPRefNum	; save in the close parms ref num
	_Close CLPParms	; close whatever may have been opened
BL0010	lda 1,s	; error code back into <A>
	Debug $FF12,#0,#0	; show the error
	pla	; get the error code
	cmp #0	; set carry if need be
	RTL	; and return
theFileName	str '1/SpedInfo'

OPPParms
OPPRefNum	dc.W 0
FileName	dc.L theFileName
	dc.L 0

RDPParms
RDPRefNum	dc.W 0
RDPDataBuf	dc.L SpedInfo
RDPReqCnt	dc.L SpedInfoSize
	dc.L 0
CLPParms
CLPRefNum	dc.W 0
	EndP
	
	EJECT
*******************************************************************************
*
	Export SaveSpedInfo
SaveSpedInfo	PROC
*
* Description:	This procedure will save the SpedInfoBlock to the disk file
*	SpedInfo.
*
*
* Inputs:	None
*
* Outputs:	Error in <A> with carry set if anything is wrong!
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
	With Globals
tempChar	equ $80
	Import CharTable
; first transfer the data needed to the Sped data areas
	ldx #0
	lda >CharTable,x	; get the low byte of the char pointer
	sta tempChar	; store it in the zp pointer
	lda >CharTable+2,x	; noe the high byte
	sta tempChar+2

	ldy #CDirOff	; check the direction
	lda [tempChar],y
	sta LastSpedDir
		
	ldy #CYPosOff	; get offset to chars Y posistion
	lda [tempChar],y	; get chars y location
	sta LastSpedY

	ldy #CXPosOff
	lda [tempChar],y	; load in char x location
	sta LastSpedX

	_Open OPPParms	; open the file
	bcc LFE010	; no error continue
	cmp #$46	; is it file not found error???
	beq LFE005
	brl BadLoad
LFE005
	_Create CRParms	; create the file
	bcc SaveSpedInfo	; if create was ok, try openning again
	brl BadLoad
	
LFE010
	lda >OPPRefNum
	sta >RDPRefNum
	sta >CLPRefNum

	lda #SpedInfo	; load the low byte of SpedInfo
	sta >RDPDataBuf
	lda #SpedInfo>>16
	sta >RDPDataBuf+2
	
	_Write RDPParms	; Write the data to the file!
	bcc LFE040
	brl BadLoad
LFE040

	_Close CLPParms
	bcc LFE050
	brl BadLoad
LFE050
	rtl
BadLoad	pha	; save the error!
	lda >OPPRefNum
	beq BL0010
	sta >CLPRefNum	; save in the close parms ref num
	_Close CLPParms	; close whatever may have been opened

BL0010	lda 1,s	; error code back into <A>
	Debug $FF13,#0,#0	; show the error
	pla	; get the error code
	cmp #0	; set carry if need be
	RTL	; and return
theFileName	str '1/SpedInfo'

CRParms	dc.L theFileName	; parm block for creating shit
	dc.W $C3	; standard access privaledges
	dc.W $6F	; stupid file type
	dc.L $CABB	; our aux type
	dc.W $01	; storage type
	dc.W 0	; date
	dc.W 0	; and time
OPPParms
OPPRefNum	dc.W 0
FileName	dc.L theFileName
	dc.L 0

RDPParms
RDPRefNum	dc.W 0
RDPDataBuf	dc.L SpedInfo
RDPReqCnt	dc.L SpedInfoSize
	dc.L 0
CLPParms
CLPRefNum	dc.W 0
	EndP
	
	
	EJECT
*******************************************************************************
*
	Export LoadMapInfo
LoadMapInfo	PROC
*
* Description:	This routine should be called with a sector number and it
*	should load all the related files for that sector and make
*	sure that they are set to be the current files. This should
*	Include Checking the validity table at some point, and it
*	Should Also update the SpedCurMap variable.
*
*	| FileSet #	|
*	| Ret Addr	|
*	| Ret     | <---SP	      
*
* Inputs:	None
*
* Outputs:	None
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
	With Globals
RetAddr	equ 1	; return address
SetNumber	equ RetAddr+3	; Number of Pallet to load
PassSrc	equ $80
LSMFtemp	equ $82	; temp storage used here!
;
; First, get the old map handles and make em all purgeable
;	brk 00
	lda SpedCurMap	; get the current map number
	asl a	; multiply it by 16 to get our table offset
	asl a
	asl a
	asl a
	tax	; place the offset to our data in <X>
	ldy #$0001	; get our purge level in <Y>
	
; push all the data for all 4 handles on the stack first! for set level and hunlock calls
; first the map data
	phy	; purge level
	lda MaphandleTable.thisMapData+2,x
	pha	; and push the handle
	lda MaphandleTable.thisMapData,x
	pha	; 
	lda MaphandleTable.thisMapData+2,x
	pha	; and push the handle
	lda MaphandleTable.thisMapData,x
	pha	; 
; now the color table
	phy	; purge level
	lda MaphandleTable.thisMapColor+2,x
	pha	; and push the handle
	lda MaphandleTable.thisMapColor,x
	pha	; 
	lda MaphandleTable.thisMapColor+2,x
	pha	; and push the handle
	lda MaphandleTable.thisMapColor,x
	pha	; 
; now the Pallet	
	phy	; purge level
	lda MaphandleTable.thisMapPallet+2,x
	pha	; and push the handle
	lda MaphandleTable.thisMapPallet,x
	pha	; 
	lda MaphandleTable.thisMapPallet+2,x
	pha	; and push the handle
	lda MaphandleTable.thisMapPallet,x
	pha	; 
; and finally the monsters
	phy	; purge level
	lda MaphandleTable.thisMapMons+2,x
	pha	; and push the handle
	lda MaphandleTable.thisMapMons,x
	pha	; 
	lda MaphandleTable.thisMapMons+2,x
	pha	; and push the handle
	lda MaphandleTable.thisMapMons,x
	pha	; 
; now set em all for purging
	_hUnLock	; first unlock the handle
	_SetPurge	; then set its purge level...
	_hUnLock	; first unlock the handle
	_SetPurge	; then set its purge level...
	_hUnLock	; first unlock the handle
	_SetPurge	; then set its purge level...
	_hUnLock	; first unlock the handle
	_SetPurge	; then set its purge level...
	
; Now that all the old map is set for purging, lets try and load the new maps!	
	lda SetNumber,s	; First update the global map set number
	sta SpedCurMap
	asl a	; multiply it by 4 to get our table offset
	asl a
	asl a
	asl a
	sta LSMFTemp	; and save it...
	
; first, lets try and load the map file!
; of course we test first to see if it is already loaded
	ldx LSMFTemp	; get the offset to our handles from the data area
	lda MaphandleTable.thisMapData+2,x
	tay
	lda MaphandleTable.thisMapData,x
	
	jsr testHandle	; and test this handle to see if it is valid
	bcc LSMFT0010	; carry clear means it is a groovy and on the stack!
	
	PushLong #0	; room for result
	PushWord SpedCurMap	; File Number of the set
	PushWord #0	; File Type 0:Load a map file
	jsl LoadFile
LSMFT0010
; come here after load or good handle test
	ldx LSMFTemp
	pla
	sta MapHandle	; now update the current map handle and its 
	sta DeRef	; pointers
	sta MaphandleTable.thisMapData,x
	pla
	sta MapHandle+2
	sta Deref+2
	sta MaphandleTable.thisMapData+2,x

	lda [DeRef]
	sta TheMap

	ldy #2
	lda [DeRef],y
	sta TheMap+2

;
;   Now Load the Color table
; first testing to see if it is already loaded...
	ldx LSMFTemp	; get the offset to our handles from the data area
	lda MaphandleTable.thisMapColor+2,x
	tay
	lda MaphandleTable.thisMapColor,x
	
	jsr testHandle	; and test this handle to see if it is valid
	bcc LSMFT0020	; carry clear means it is a groovy and on the stack!
	
	PushLong #0
	PushWord SpedCurMap	; file number
	PushWord #2	; Load the Color table
	jsl LoadFile
LSMFT0020
	ldx LSMFTemp
	pla
	sta >ColorHandle
	sta >MaphandleTable.thisMapColor,x
	
	pla
	sta >ColorHandle+2
	sta >MaphandleTable.thisMapColor+2,x
	

	PushLong >ColorHandle ; handle of color data
	pea $00E1	; move the data to the color table area
	pea $9E00
	PushLong #512	; move 512 bytes
	_HandtoPtr

; 
; Next load the new Monster data
; first be sure to dispose of the current monster data
;
	ldx LSMFTemp	; get the offset to our handles from the data area
	lda MaphandleTable.thisMapMons+2,x
	tay
	lda MaphandleTable.thisMapMons,x
	
	jsr testHandle	; and test this handle to see if it is valid
	bcc LSMFT0030	; carry clear means it is a groovy and on the stack!
	
	PushLong #0
	PushWord SpedCurMap	; File Number 1
	PushWord #3	; File Type 3
	jsl LoadFile

LSMFT0030
	ldx LSMFTemp
	pla
	sta MonsHandle
	sta DeRef
	sta MaphandleTable.thisMapMons,x
	pla
	sta MonsHandle+2
	sta DeRef+2
	sta MaphandleTable.thisMapMons+2,x

	lda [DeRef]
	sta MonsPtr

	ldy #2
	lda [DeRef],y
	sta MonsPtr+2

;
; Now load the Map Pallet information, and create the flipped bitmap image of the 
; map.

	PushLong InvPalHandle
	_DisposeHandle
	
	ldx LSMFTemp	; get the offset to our handles from the data area
	lda MaphandleTable.thisMapPallet+2,x
	tay
	lda MaphandleTable.thisMapPallet,x
	
	jsr testHandle	; and test this handle to see if it is valid
	bcc LSMFT0040	; carry clear means it is a groovy and on the stack!
	
	PushLong #0	; Room for result
	PushWord SpedCurMap	; current pallet to	load
	PushWord #1	; file type to load
	jsl LoadFile
LSMFT0040
	ldx LSMFTemp
	pla
	sta PalletHandle 	; This is a handle to the data
	sta MapHandleTable.thisMapPallet,x
	
	pla
	sta PalletHandle+2	; This is a handle to the data
	sta MapHandleTable.thisMapPallet+2,x
	
	
	lda PalletHandle	; Now save it for dereference save
	sta DeRef
	lda PalletHandle+2
	sta DeRef+2

	lda [DeRef]
	sta PalletArry

	ldy #2
	lda [DeRef],y
	sta PalletArry+2

	PushLong #0
	PushLong PalletHandle
	_GetHandleSize
	PullLong hSize

	PushLong #0
	PushLong hSize
	PushWord MyID
	PushWord #%1000000000011100
	PushLong #0
	_NewHandle
	pla
	sta DeRef
	sta InvPalHandle
	pla
	sta DeRef+2
	sta InvPalHandle+2

	lda [DeRef]
	sta InvPalArry

	ldy #2
	lda [DeRef],y
	sta InvPalArry+2

	PushLong PalletHandle
	PushLong InvPalHandle
	PushLong hSize
	_HandToHand

	stz LPCount
LP0020	lda LPCount
;	jsr MakePalOffset

	asl a	; *2
	sta TempMPO+4
	asl a	; *4
	sta TempMPO+2
	asl a	; *8
	asl a	; *6
	asl a	; *32
	asl a	; *64
	sta TempMPO	; save it for a second
	asl a	; *128
	clc
	adc TempMPO
	adc TempMPO+2
	adc TempMPO+4	; (a*128)+(a*64)+(a*4)=a*196

	clc
	adc InvPalArry
	sta PassSrc
	lda #0
	adc InvPalArry+2
	sta PassSrc+2
	jsl DoFlip
	inc LPCount
	lda LPCount
	cmp #128
	blt LP0020

;
;   UnLink the stack frame
;
	Longa Off
	SEP #$20
	pla	; save the return address
	ply
	
	plx	; discard the data
	
	phy
	pha
	
	REP #$20
	Longa On
		
	RTL
;
testHandle
; this routine will check to see if the passed handle is valid, if it is it will 
; unprge it and lock it, if not it will set the carry and return
	cpy #0	; check to see if the high word is zero,
	beq BadHandle	; if so, this isn't a good handle!
	sty <deref+2	; save <y> and <A> now
	sta <deref
	
	ldy #2	; now test to see if the handle is empty...
	lda [<deref],y	; by getting its high byte
	ora [<deref]	; and oring it with its low byte
	beq BadHandle	; get out if this is a bad handle...
	
	Pea $0000	; lets set the purge level to no-purge again...
	PushLong <deref
	_SetPurge	; set the purge bits
	bcs BadHandle	; if error, then forget it!
	
	PushLong <deref	; now lock the handle down
	_hLock
	bcs BadHandle	; and branch if no good
	
	ply	; get the return address
	PushLong <deref	; now place it on the stack
	phy	; replace the return address on the stack
	clc	; clear the carry to denote this worked
	rts	; and return
	
BadHandle	
; something bad happened and the handle is not valid any longer...
; or wasn't loaded...
	sec
	rts
	EndP
	
	End

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Animation/InitSeg.aii b/IIGS.601.SRC/GSToolbox/Animation/InitSeg.aii
new file mode 100644
index 0000000..db8cb37
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Animation/InitSeg.aii
@@ -0,0 +1 @@
+*******************************************************************************
* InitSeg.aii
*
* (C)  Copyright two guys and a cabbage software 1988
* All rights reserved.
*
* by Jim Mensch
* 7/14/88
*
* This init segment will be loaded before the rest of the application and will
* place a startup message on the screen after initializing quickdraw. It will
* then exit with an RTL and the loader will continue on with the app load.
*
* Files:	System Macros and Equates
*
*
*
* Modification History:
*
* Version Alpha  Mensch
*
*     7/14/88 	First pass at an init segment  
*
*      
*----------------------------------------------------------------------------------
* 4/16/90	Mensch
* Started 5.0.3 conversion today...
*
*
*******************************************************************************
	PRINT NOGEN,NOHDR

	SEG 'initseg'
	STRING ASIS

	PRINT PUSH,OFF
	Include '::zzMain Source:All.game.macros'
	INCLUDE 'E16.Quickdraw'
	INCLUDE 'E16.Memory'
	INCLUDE '::zzMain Source:game.macros'
	INCLUDE '::zzMain Source:game.equates'
	PRINT POP

*******************************************************************************
*
*    Equates used in this program.
*
*******************************************************************************

ScreenMode	equ Mode320
ScreenWidth	equ 320


	EJECT
*******************************************************************************
*
InitialSeg	PROC
*
* Description:	This seg will start up the memory mgr, tool locator and
*	quickdraw. It will then Draw a startup screen and end.
*
*
* Inputs:	None
*
* Outputs:	None
*
* External Refs:	
	Import FatalError
	Entry InitTask
*
* Entry Points:	None
*
*******************************************************************************
	
	phk	; set the data bank register to our
	plb	; current program bank reg.
	
	_TLStartup	; Start Tool Locator

	pha	; Space for result
	_MMStartup	; Start memory manager
	pla
	sta >MyID
	
	_MTStartup	; Start up Misc Tools

	_IMStartup	; Start integer math toolset

; First allocate the shadowed screen space that we need
	pha	; Room for result
	pha
	PushLong #$B000	; Number of bytes needed for screen
	PushWord >MyID	; ID of this application
	PushWord #AttrLocked+attrFixed+attrBank+attrAddr
;	pea $0010	; high word of address
;	pea $2000	; lowword of address
	PushLong #$010800	; Allocate Shadowed screen
	_NewHandle
	bcc IT0005	; Test carry for error
ITNoShadow
	lda #$DEAD	; bad shadow handle error
	brl FatalError	; If no memory we got a fatal error!

IT0005	
	PullLong Deref	; Retrieve handle to our DPage area
	lda [deref]	; now test too see if we have the right
	cmp #$0800	; address for this handle
	bne ITNoShadow
	ldy #2
	lda [deref],y
	cmp #$01	; see if we in bank 1!
	bne ITNoShadow	; if not report it as an error!

; Now free up the rest of memory that we can!
; First call compact mem to compact what remains of memory

	_CompactMem	; this should compact all memory

	pha	; Room for result
	pha
	PushLong #$FFFF	; Number of bytes needed for screen
	PushWord >MyID	; ID of this application
	PushWord #AttrLocked+attrFixed+attrBank
	PushLong #$030000	; Allocate this bank screen
	_NewHandle
	_DisposeHandle
	pha	; Room for result
	pha
	PushLong #$FFFF	; Number of bytes needed for screen
	PushWord >MyID	; ID of this application
	PushWord #AttrLocked+attrFixed+attrBank
	PushLong #$040000	; Allocate this bank screen
	_NewHandle
	_DisposeHandle
	pha	; Room for result
	pha
	PushLong #$FFFF	; Number of bytes needed for screen
	PushWord >MyID	; ID of this application
	PushWord #AttrLocked+attrFixed+attrBank
	PushLong #$050000	; Allocate this bank screen
	_NewHandle
	_DisposeHandle
	pha	; Room for result
	pha
	PushLong #$FFFF	; Number of bytes needed for screen
	PushWord >MyID	; ID of this application
	PushWord #AttrLocked+attrFixed+attrBank
	PushLong #$060000	; Allocate this bank screen
	_NewHandle
	_DisposeHandle
	pha	; Room for result
	pha
	PushLong #$FFFF	; Number of bytes needed for screen
	PushWord >MyID	; ID of this application
	PushWord #AttrLocked+attrFixed+attrBank
	PushLong #$070000	; Allocate this bank screen
	_NewHandle
	_DisposeHandle
	pha	; Room for result
	pha
	PushLong #$FFFF	; Number of bytes needed for screen
	PushWord >MyID	; ID of this application
	PushWord #AttrLocked+attrFixed+attrBank
	PushLong #$080000	; Allocate this bank screen
	_NewHandle
	_DisposeHandle

	_CompactMem	; re-compact memory again...
	
; Get memory for Tool Direct pages

	pha	; Room for result
	pha
	PushLong #$0300	; Number of bytes needed for QD
	PushWord >MyID	; ID of this application
	PushWord #AttrLocked+attrFixed+attrPage+attrBank
	PushLong #0	; Allocate them in bank 0
	_NewHandle
	bcc IT0010	; Test carry for error
	brl FatalError	; If no memory we got a fatal error!

IT0010	PullLong ZPHandle	; Retrieve handle to our DPage area

	lda [ZPHandle]	; Dereference the handle to get a ptr
	sta ZPPointer	; to our direct page area and save it.

	PushWord ZPPointer	; QuickDraw uses 3 pages of Dpage
	PushWord #ScreenMode; Used to set all master SCB's
	PushWord #0	; Zero means use default buf size
	PushWord >MyID	; Application ID for allocating data
	_QDStartup	; Start QuickDraw, turn on SHR Screen
	bcc IT0015
	brl FatalError	; If it can't be started then bomb
IT0015
	PushWord #10	; draw our little message
	PushWord #30
	_MoveTo
	
	PushLong #PleaseWait
	_DrawString
	
	PushWord #10
	PushWord #40
	_MoveTo
	
	PushLong #AutString
	_DrawString
	
; Enable super hi-res shadowing so that I can use bank 1 memory to do my copies!
	longa Off
	sep #$20
	lda >$E0C035	; load the shadowing register now
	and #$F7	; enable super hires shadowing
	sta >$E0C035	; and save the shadowing register
	rep #$20
	Longa On
	
; Now load the startup screen onto the super high res screen

; Now that the startup screen is loaded, I will now copy it up to the super hi-res screen
;Was:
;	ldx #$0000	; copy all the bytes
;CpyScrn	
;	lda StartupScreen,x	; get the first word
;	sta >$012000,x	; and save it to the screen
;	inx
;	inx
;	cpx #32000	; and copy till I am done
;	blt CpyScrn
; but now its:
	lda #$7D00
	sta >DestinationSize	
	lda #$2000
	sta >DestinationPtr
	lda #$00E1
	sta >DestinationPtr+2
		
	pha	; room for result
	PushLong #theScreen	; pointer to the screen
	lda >theScreenSize
	pha
	
	PushLong #DestinationPtr
	PushLong #DestinationSize
	_UnPackBytes
	pla

; The following section of code should stay commented as long as shadowing is to
; be used. If you want to dispoe of shadowing, simply uncomment lines until the end
; of this section...
;*******************************************************************
;	longa Off
;	sep #$20
;	lda >$E0C035	; load the shadowing register now
;	ora #$08	; enable super hires shadowing
;	sta >$E0C035	; and save the shadowing register
;	rep #$20
;	Longa On
;	;
;
;	PushLong Deref	; deallocate the handle
;	_DisposeHandle
;*******************************************************************
; That section is now over butthead.
	
; finally install the animation stuff
	PushLong #InitTask
	_SetHeartBeat

	lda >$E0C041	; enable VBL Interupts GGRRRRRRRRRR
	ora #$08
	sta >$E0C041
	
	RTL	; and return to our caller
PleaseWait	str 'Loading the game Please wait'
AutString	str 'Game by Mensch and Williamson'
MyID	ds.W 1
DestinationPtr	ds.L 1
DestinationSize	ds.W 1

TheScreenSize	dc.W $0B55 
TheScreen	dc.L $00FF00FF,$00FF00FF,$00FF00FF,$00FF00FF,$00FF00FF,$00FF00FF,$00FF00FF,$00FF00FF
	dc.L $00FF00FF,$00FF00FF,$000300F3,$C2707707,$77070200,$0100C070,$00DF7777,$07000042
	dc.L $70007744,$000300C2,$42770777,$77070100,$770600E0,$00707700,$00C27077,$07000003
	dc.L $01004277,$00C37707,$DB770001,$00000800,$70770077,$C2707700,$00000300,$00427777
	dc.L $C3770701,$77070100,$770B00DC,$70770070,$07007777,$44707777,$07008100,$77077777
	dc.L $00770000,$42007007,$77000277,$77778170,$70037700,$81007707,$70777707,$77770702
	dc.L $000400D7,$00707700,$000477C0,$70077077,$77420045,$7077000F,$07007707,$77777077
	dc.L $77007707,$0D77C007,$00770700,$07707707,$77770077,$77810070,$D7700770,$77000B00
	dc.L $77770070,$77007707,$00457770,$0777072B,$70770077,$00007707,$77077077,$70077707
	dc.L $07777700,$77070077,$70770000,$07007707,$77000077,$77007770,$4200D770,$70770A00
	dc.L $07707700,$77770077,$0000C070,$28774407,$07707700,$77000077,$07700770,$00007777
	dc.L $77077077,$00770700,$07707700,$77070077,$77770000,$77070070,$0700D777,$70770000
	dc.L $07707700,$000177C0,$20004277,$00770777,$77007707,$07777770,$77707770,$70770700
	dc.L $70777007,$07777707,$77700777,$0B774270,$00007707,$77007777,$70770000,$000C00D7
	dc.L $77007077,$70770770,$70077077,$770500C0,$77070070,$12774400,$70777700,$00770700
	dc.L $70770077,$07707707,$C0007777,$07700C77,$77007077,$77700770,$D7707700,$77770B00
	dc.L $70770000,$07007707,$00C07777,$42777701,$77770900,$77077707,$77770070,$77140042
	dc.L $77007077,$00770770,$00707707,$77077707,$00770700,$77070081,$FF00FF77,$FF00FF00
	dc.L $DF00FF00,$00000400,$E5707707,$81770000,$00007077,$000900E4,$07700700,$77000077
	dc.L $0700E570,$77007077,$70770070,$770700E5,$70770070,$E5777707,$70770700,$00707700
	dc.L $00E57077,$00707707,$77007077,$0700E570,$77007077,$70770070,$770700E5,$00770070
	dc.L $E5707700,$70070700,$00007007,$00E57077,$77770002,$77010042,$0300E670,$70770000
	dc.L $000300E6,$E6707700,$00000200,$0300E677,$70770000,$00FF00FF,$00FF00FF,$00E400FF
	dc.L $00E6C000,$C00BC002,$004200C4,$C0C0B007,$000C0C0B,$0700DB0B,$0C0BCB00,$C0B000B0
	dc.L $0B0800C0,$00000CC0,$BB00CBCB,$0B090044,$C090CC0B,$0B0BCBBC,$090042C0,$0CB0C0B0
	dc.L $0B0C0B0C,$00DAC0C0,$0B080042,$C0B00C0C,$B0B000B0,$C0070042,$0BB0BB0C,$46CC0C00
	dc.L $99B00700,$C00B0C0B,$0046CCC0,$00DCBB00,$CB0C0008,$B0CCCCBC,$0042CC99,$BCBC0C09
	dc.L $99CC6060,$C009B0BB,$960B1700,$6B9976BB,$0BCB9009,$090000B0,$6C6CC9B9,$BC0B990C
	dc.L $00DA90C9,$0B030042,$42B00BB6,$0BB00100,$60110042,$BCB0BC0B,$9C7B0000,$0000C0C0
	dc.L $BCCC0006,$0800C0C0,$0000C069,$BC00900C,$020042C9,$DAC0000C,$02004200,$C0C6CBCC
	dc.L $C0091600,$00C00B00,$C0CC7B00,$CB0B0000,$B000B09B,$69BC0060,$0100C0B0,$00C0C90B
	dc.L $BB970602,$7B0200C0,$00DAB0C6,$C6000004,$00420979,$006B6C09,$00CC0900,$C09CCC06
	dc.L $B9990900,$C0090090,$70BB0600,$CC0400C1,$C7B60C00,$0B0200C0,$00DAB000,$97000004
	dc.L $00426C9C,$4290CB01,$00CC0400,$C0907B06,$677C0900,$C0B00060,$60B96C00,$0C050046
	dc.L $B90900CB,$020044BB,$DAC06B6C,$CC001000,$00900BC0,$0070B900,$00990600,$C0BBC70C
	dc.L $79960900,$909C0090,$9097C900,$07050046,$BB0700C9,$02004499,$DA60BC9B,$09000400
	dc.L $C1C9BBBB,$07000300,$00C09CB9,$70767602,$970200C0,$00C1609C,$06000004,$004479C6
	dc.L $C0BB9902,$000500DA,$97C97900,$0200C167,$C096BB0C,$77770200,$0200C060,$C1B0B99B
	dc.L $00000400,$44BC7706,$0B960200,$0600DA60,$990B0000,$46609BB6,$96090200,$0200C067
	dc.L $C0706777,$69960200,$0400C1C0,$99090000,$02004469,$DA90C69B,$03004200,$BCB97967
	dc.L $0B090046,$00609676,$77670700,$0600C010,$7767C9B7,$45709776,$97090200,$02004466
	dc.L $DA9099B9,$04004200,$9B979607,$090045B0,$67677906,$67760000,$00C01011,$99699906
	dc.L $9079BB69,$07020045,$00446769,$60976702,$670300DB,$456766BB,$97070200,$44114569
	dc.L $66760200,$0400C170,$690B0000,$02004466,$DB709766,$76090400,$44709699,$6C090200
	dc.L $00114479,$02004410,$C1609799,$00000400,$44967609,$79790200,$0400DB70,$C7777600
	dc.L $02004476,$44777609,$02004511,$C1707766,$00000400,$44977707,$97990200,$0900DA60
	dc.L $70960000,$69670700,$00C07097,$76690602,$004200C1,$90777702,$000400C1,$76610600
	dc.L $79020044,$00DA6097,$79090009,$79000070,$C0706796,$67060200,$4200C176,$67760200
	dc.L $0400C170,$77070000,$02004499,$DA706771,$66000900,$00009097,$70979706,$090200C0
	dc.L $00C16776,$79020042,$00C17067,$09000004,$00449777,$70697702,$060200DA,$00C07069
	dc.L $60777702,$060200C0,$00C17179,$67020042,$00C19097,$07000004,$00446969,$10676702
	dc.L $070100DA,$02004476,$C0707676,$71060200,$4200C161,$76770200,$0400C170,$76070000
	dc.L $02004476,$DA107167,$77010200,$0200C070,$C0107677,$67070200,$4200C117,$96660200
	dc.L $0100C070,$00C01007,$77770702,$77020044,$00DA1011,$67110102,$660200C0,$00C01061
	dc.L $61110702,$004200C1,$70167102,$010100C0,$0200C011,$C0677707,$11070200,$0A00DA11
	dc.L $11170100,$07000070,$C0101177,$71710200,$4200C111,$11770200,$0100C010,$00C01117
	dc.L $11170602,$110200C0,$00DA1011,$11000005,$C0771717,$04004211,$11161701,$0000C110
	dc.L $14114200,$77161177,$10711167,$77010000,$17711171,$71117111,$4200DA11,$46010000
	dc.L $C0004211,$0100C111,$11C10100,$42111101,$0211C100,$DB101111,$03114500,$01000010
	dc.L $00C11142,$C1000001,$11110511,$01000010,$110111C1,$FF00FF11,$FF00FF00,$FF00FF00
	dc.L $FF00FF00,$FF00FF00,$FF00FF00,$FF00FF00,$FF00FF00,$FF00FF00,$FF00FF00,$FF00FF00
	dc.L $FF00FF00,$FF00FF00,$FF00FF00,$FF00FF00,$FF00FF00,$FF00FF00,$FF00FF00,$FF00FF00
	dc.L $FF00FF00,$FF00FF00,$FF00FF00,$D000FF00,$01004200,$00C1FF0F,$F0000042,$0F070042
	dc.L $00F00000,$C1FFFF0F,$FF000200,$0100C3F0,$0044F000,$C0FF0F01,$00F00300,$00C2F000
	dc.L $C0F0FF01,$F0F00100,$000A00C2,$FF00000F,$00FF0000,$00CBFF00,$F000F002,$000800C2
	dc.L $00000F00,$0F0000F0,$000300C1,$C30F000F,$F0000100,$F0000044,$00F00081,$C1F00000
	dc.L $02004200,$420F000F,$000F0200,$0B00C2F0,$0F00FF00,$000FF000,$F0000FF0,$000200CA
	dc.L $00C00F00,$0F00FF1D,$00F000FF,$00F00FFF,$0F0FF0FF,$0000FF00,$000F000F,$FF000F00
	dc.L $42F00000,$0FF01500,$0F0F000F,$FF0000F0,$00FFF000,$00F0FF00,$0F00F00F,$0F120042
	dc.L $F0FF00F0,$00F0FF00,$FF0000FF,$00FF00F0,$00420F00,$0FF00F0E,$000FFFF0,$F00F0F00
	dc.L $FF000F0F,$0F0A0042,$F0000F00,$0FF0000F,$00CAF000,$0F000081,$0FF00C00,$00F0F000
	dc.L $0FF0F0FF,$420FF000,$00000CF0,$000F000F,$000F0F00,$42F000F0,$0FF01500,$F00F000F
	dc.L $000F000F,$F000FFF0,$00F0000F,$0F000FF0,$F0030042,$81F0000F,$0FF0000F,$0FF00026
	dc.L $0000F000,$F000F0FF,$F0000F0F,$0F00000F,$F00F0FF0,$00F0000F,$0F000F00,$FF00F000
	dc.L $F0000F00,$008100CA,$03000F00,$F0000FF0,$000D0F42,$F0000FF0,$F0F0000F,$000F0000
	dc.L $1DF04200,$00F0000F,$00FF0FF0,$F0000FF0,$00F00FF0,$F0F0FF00,$000FF000,$FF0F00F0
	dc.L $00420F00,$00FF0F10,$F0000FF0,$F0FF000F,$0FF0000F,$0042F0FF,$F0000F07,$F0000F0F
	dc.L $13F04200,$000FFF0F,$00F0FF0F,$00000F00,$000FF0FF,$F0FF00F0,$008100CA,$03000F00
	dc.L $F0000FF0,$000D0F42,$F0000FF0,$F0F0000F,$000F0000,$1DF04200,$00F0000F,$000F00F0
	dc.L $F0000FF0,$000F00F0,$F0F0000F,$000FF000,$0FF000F0,$00420F00,$000FF003,$000F81F0
	dc.L $00020FF0,$00440FF0,$F0000F07,$F0000F0F,$03F0C000,$0F000F0F,$0F0000C0,$F0060042
	dc.L $00F0000F,$00CAF000,$F03F0042,$000FF000,$F0000FF0,$000FF000,$F0000FF0,$F0F0000F
	dc.L $000F0000,$000F0F00,$00F0000F,$00FF000F,$0F00FFF0,$000FF000,$F0F0000F,$000FF000
	dc.L $0FF000F0,$00F00000,$010FF0F0,$0F81F000,$260FF000,$000FF000,$000F00F0,$0FF0000F
	dc.L $00F0000F,$F0000F0F,$0F000F0F,$0000F000,$000F000F,$F0000FF0,$CAF0000F,$1E004200
	dc.L $0000FF0F,$FF0F00FF,$0FF00000,$FF00F000,$F0000FF0,$0F00000F,$0F0F0000,$42FF0000
	dc.L $0FFF2B00,$000F0F00,$F00F000F,$0FFF0000,$00F000F0,$0F00F0FF,$0F00F0F0,$F00F00FF
	dc.L $00F0FFF0,$FF00F0FF,$F0FF000F,$0042FF00,$00F0FF11,$000FF00F,$0F0F000F,$FFF00F00
	dc.L $42FF0000,$000F0900,$0000FF00,$FF0000FF,$000500CC,$00000F00,$0200C00F,$C4F0000F
	dc.L $00004200,$0200C7F0,$D5F0000F,$00000500,$0F00000F,$FF000044,$F00000C5,$000100C7
	dc.L $FF00FFFF,$FF00FF00,$FF00FF00,$FF00FF00,$C200FF00,$FFFF0400,$FFFFFFFF,$FFFFFFFF

;	Include '::game files:Startscreen.aii'
	EndP
	
	EJECT
*******************************************************************************
*
FatalError	PROC
*
* Description:	Routine that is called whenever a tool sends back an error
*	that can not be recovered from. This routine prints the
*	error on the screen, waits for a keypress then quits back
*	to whoever started this application up!
*
*
* Inputs:	A = Error number
*
* Outputs:	NONE (program exits)
*
* External Refs:
*
* Entry Points:	NONE
*
*******************************************************************************
	pha	; Push the error code
	PushLong #errNumStr	; Address of storage area
	PushWord #4	; Length of string
	_Int2Hex

	_GrafOff	; If QD Started, shut off graphics

	PushLong #ErrStr	; Write error message to the screen
	_WriteCString

	pha	; Space for result
	PushWord #0	; No echo
	_ReadChar	; Wait for a key to be pressed
	pla	; Discard the key

	_Quit QuitParms	; Quit back to where we came from.

	brk $FF	; If the quit fails then just break
	
ErrStr	dc.B 'A fatal error has occured $'
ErrNumStr	dc.B 'xxxx   press any key to exit',0
QuitParms	dc.L 0,0,0

	ENDP

	Export InitTask
InitTask	Proc
	DC.L 0
InitTaskCnt	DC.W 1
	Dc.W $A55A

	php
	REP #$30

	lda >TaskFlag
	inc a
	cmp #6	; past our limit?
	blt @1
	lda #0
@1
	sta >taskFlag
	asl a
	tax
	jsr (Colors,x)
		
	lda #5
	sta >InitTaskCnt
	plp
	RTL
; These are the color rotation phases we use.
Color1	equ $0B
Color2	equ $0C
Color3	equ $06
Color4	equ $09
Red1	equ $D00
Red2	equ $600
Yellow1	equ $FF0
Yellow2	equ $880
Orange1	equ $F70
Orange2	equ $840
	MACRO
	Setcolor &Colornum,&Color
	pea 0
	pea &ColorNum
	pea &Color
	_SetColorEntry
	EndM
	
Phase0
	SetColor Color1,Red1
	SetColor Color2,Yellow2
	SetColor Color3,Orange2
	SetColor Color4,Yellow1
	rts
	
Phase1
	SetColor Color1,Red2
	SetColor Color2,Orange1
	SetColor Color3,Orange2
	SetColor Color4,Yellow2
	rts
	
Phase2
	SetColor Color1,Yellow1
	SetColor Color2,Orange2
	SetColor Color3,Orange1
	SetColor Color4,Yellow2
	rts
	
Phase3
	SetColor Color1,Yellow2
	SetColor Color2,Red1
	SetColor Color3,Orange1
	SetColor Color4,Yellow1
	rts
	
Phase4
	SetColor Color1,Orange1
	SetColor Color2,Red2
	SetColor Color3,Orange2
	SetColor Color4,Yellow1
	rts

Phase5
	SetColor Color1,Orange2
	SetColor Color2,Yellow1
	SetColor Color3,Orange1
	SetColor Color4,Yellow2
	rts
	

;
Colors	dc.W phase0
	dc.W Phase1
	dc.W Phase2
	dc.W Phase3
	dc.W Phase4
	dc.W Phase5
	
TaskFlag	dc.W 0
	endP
	
	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Animation/Makefile b/IIGS.601.SRC/GSToolbox/Animation/Makefile
new file mode 100644
index 0000000..238462c
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Animation/Makefile
@@ -0,0 +1 @@
+#	MakeFile	-  Make instructions for anim
#
#	Copyright 2 guys and a cabbage software, Inc. 1988,1989
#	All rights reserved.
#
#	This makefile builds:
#		anim
#
# 4/14/90	Mensch
#
# Modified to run from anywhere...
#
# (Evaluate `Directory` =~ /(([Â:]*:)+)¨1[Â:]*/) >Dev:Null
# echo "{¨1}"
zzMain = 									
obj = :obj:
tool037			ÄÄ		"{obj}"glib.aii.obj¶
						"{obj}"ToolHead.aii.obj¶
						"{obj}"Anim.data.aii.obj¶
						"{obj}"ToolYank.aii.obj
		LinkIIGS 		"{obj}"ToolHead.aii.obj¶
						"{obj}"ToolYank.aii.obj¶
						"{obj}"Anim.data.aii.obj¶
						"{obj}"glib.aii.obj¶
						-o tool037
		Echo "# Command to copy this to a boot disk"
		Echo "	Dup Tool037 'system/tools/Tool037'"


"{obj}ScrollStuff.aii.obj"	Ä	"{zzMain}scrollStuff.aii"¶
									"{zzMain}"anim.macros ¶
									"{zzMain}"anim.equates ¶
									"{zzMain}"anim.data.aii ¶
									"{zzMain}"anim.globals
		ASMIIgs "{zzMain}ScrollStuff.aii" -o "{obj}ScrollStuff.aii.obj"
				
"{obj}"glib.aii.obj		Ä	"{zzMain}"glib.aii ¶
								"{zzMain}"anim.macros ¶
								"{zzMain}"anim.equates ¶
								"{zzMain}"anim.data.aii ¶
								"{zzMain}"anim.globals
		echo "# Building glib..."
		AsmIIGS "{zzMain}"glib.aii -o "{obj}"glib.aii.obj

		
"{obj}"Anim.data.aii.obj		Ä	"{zzMain}"anim.macros ¶
								"{zzMain}"anim.equates ¶
								"{zzMain}"anim.data.aii ¶
								"{zzMain}"anim.globals
		echo "# Building Anim.data..."
		AsmIIGS "{zzMain}"Anim.data.aii -o "{obj}"Anim.data.aii.obj

		
"{obj}"ToolHead.aii.obj		Ä	"{zzMain}"ToolHead.aii¶
								"{zzMain}"anim.macros ¶
								"{zzMain}"anim.equates ¶
								"{zzMain}"anim.data.aii ¶
								"{zzMain}"anim.globals
		AsmIIGS "{zzMain}"ToolHead.aii -o "{obj}"ToolHead.aii.obj
		
"{obj}"ToolYank.aii.obj		Ä	"{zzMain}"ToolYank.aii¶
								"{zzMain}"anim.macros ¶
								"{zzMain}"anim.equates ¶
								"{zzMain}"anim.data.aii ¶
								"{zzMain}"anim.globals
		AsmIIGS "{zzMain}"ToolYank.aii -o "{obj}"ToolYank.aii.obj
		
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Animation/ScrollStuff.aii b/IIGS.601.SRC/GSToolbox/Animation/ScrollStuff.aii
new file mode 100644
index 0000000..3b9e4fd
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Animation/ScrollStuff.aii
@@ -0,0 +1 @@
+*******************************************************************************
* ScrollStuff.aii
*
* (C)  Copyright Two guys and a cabbage software 1988
* All rights reserved.
*
* by Mensch and Williamson
* 12/3/88
*
* This file contains all of the scroll routines that will enable Sped
* to move from sector to sector.
*
* Files:
*
*
*
* Modification History:
*
* Version 1.0	Jim & Steve
*
*      12/15/88    Steve & Jim
*             Changed scroll West to be the faster version of the scroll.
*             More efficient scroll east modification made
*
*      12/19/88	Jim
*	Fixed Scroll North bug that went one line to far.
* 
*
* -------------------------------------------------------------------------
* 4/16/90	Mensch
* Started 5.0.3 conversion work today in this file
*
*******************************************************************************


	
	STRING AsIS
	PRINT NOGEN,nohdr
	SEG 'ScrollSeg'
	
	PRINT PUSH,OFF
	Include 'All.game.macros'
	INCLUDE 'anim.macros'
	INCLUDE 'anim.equates'
	INCLUDE 'anim.globals'
	PRINT POP
; Data required by this routine that exists in other routines
	Import Globals:GlobalsTemplate
	Import Constants:ConstTemplate
	Import SetMyDataBank
	Import LoadFile
	Import GameDebug
	Import MyBackSaveArea
	GBLA &procDebugFlag
&procDebugFlag	SETA 0
	
theScreen	equ $012000	; address of the first scan line
ScanLineSize	equ $A0	; size in bytes of a scan line 
	
	
	MACRO
	DOHORZLINES
; this macro creates a buncha source lines!!!
	LCLA &loopCnt,&nxtAddr
&loopCnt	SETA 0
&nxtAddr	SETA 0
	WHILE &loopCnt <160 DO
	  lda >$(MyBackSaveArea-$2000)+(&nxtAddr),x
	  sta !&nxtAddr,y
	  &nxtAddr: SETA &nxtAddr+$A0
	  &loopCnt: SETA &loopCnt+1
	ENDWHILE
	MEND
	
	MACRO
	DOtestLINES
; this macro creates a buncha source lines!!!
	LCLA &loopCnt,&nxtAddr
&loopCnt	SETA 0
&nxtAddr	SETA 0
	WHILE &loopCnt <160 DO
	  lda >(MyBackSaveArea-$2000)+(&nxtAddr),x
	  sta !&nxtAddr,y
	  lda >(MyBackSaveArea-$2000)+(&nxtAddr)+2,x
	  sta !&nxtAddr+2,y
	  &nxtAddr: SETA &nxtAddr+$A0
	  &loopCnt: SETA &loopCnt+1
	ENDWHILE
	MEND
	
	MACRO
	DoEastRazor
; this macro creates a buncha source lines!!!
	LCLA &nxtAddr
&nxtAddr	SETA $74
	WHILE &nxtAddr >0 DO
	  &nxtAddr: SETA &nxtAddr-4
	  lda !&nxtAddr,x
	  sta !&nxtAddr+4,x
	  lda !&nxtAddr+2,x
	  sta !&nxtAddr+6,x
	ENDWHILE
	MEND
	
	MACRO
	DoWestRazor
; this macro creates a buncha source lines!!!
	LCLA &nxtAddr
&nxtAddr	SETA $00
	WHILE &nxtAddr <$74 DO
	  lda !&nxtAddr+4,x
	  sta !&nxtAddr,x
	  lda !&nxtAddr+6,x
	  sta !&nxtAddr+2,x
	  &nxtAddr: SETA &nxtAddr+4
	ENDWHILE
	MEND

;	MACRO
;	DoWestRazor
; this macro creates a buncha source lines!!!
;	LCLA &nxtAddr
;&nxtAddr	SETA $00
;	WHILE &nxtAddr <$76 DO
;	  lda !&nxtAddr+2,x
;	  sta !&nxtAddr,x
;	  &nxtAddr: SETA &nxtAddr+2
;	ENDWHILE
;	MEND
	
	EJECT
*******************************************************************************
*
DoVertRazor	PROC
*
* Description:	This proc will copy the scan line pointed to by <X> to the 
*	scan line pointed to by <Y>. It uses the enclosed macro.
*
*
* Inputs:	Source in <X> and dest in <Y>
*
* Outputs:	scan lines are copied
*
* External Refs:
*
* Entry Points:	
*
* Macros:
	MACRO
	VertRazor
	LCLA &nxtAddr	          ; define a counter to use
&nxtAddr	SETA $00	          ; init the counter to zero
	WHILE &nxtAddr <$78 DO        ; create lines from $78 to $00
	  lda !&nxtAddr,x	          ; load from the source word
	  sta !&nxtAddr,y	          ; save into the dest word
	  &nxtAddr: SETA &nxtAddr+2   ; bump the address by two
	ENDWHILE	          ; continue creating lines till done
	MEND
*
*******************************************************************************
	VertRazor
	rts
	EndP
	
	EJECT
*******************************************************************************
*
DoVertLine	PROC
*
* Description:	This routine will copy the scan line pointed to by <X> from
*	the background into the forground line at <Y>.
*
*
* Inputs:	None
*
* Outputs:	None
*
* External Refs:
*
* Entry Points:
*
* Macros:
	MACRO
	VertLines
	LCLA &nxtAddr		; define a var
&nxtAddr	SETA 00		; init to zero
	WHILE &nxtAddr<$78 DO	; start the loop
	  lda >(MyBackSaveArea-$2000)+&nxtAddr,X	; load src data
	  sta !&nxtAddr,Y		; save in dest
	  &nxtAddr: SETA &nxtAddr+2	; bump counter by 2
	ENDWHILE
	MEND
*
*******************************************************************************
	VertLines
	rts
	EndP
	
	EJECT
*******************************************************************************
*
	Export SmoothScrollNorth
SmoothScrollNorth	PROC
*
* Description:	This routine will scroll the screen south because you are
*	going north
*
*
* Inputs:	None
*
* Outputs:	None
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
	With Globals
CurSLine	equ $80	; number of the current line
CurLinePt	equ $82	; pointer to the current line
CurCount	equ $84	; number of the scroll phase
BackPtr	equ $B0	; background pointer
LineEnd	equ 160	; number of lines to scroll
lastLine	equ 169	
	phb	; save the current data bank register
	php
	sei
	pea $0101	; now set the current data bank to $01
	plb
	plb	; now that we are in bank 1, lets do it
	lda #LineEnd
	sta CurCount	; offset counter
;	stz CurSLine	; start on the first line
DoOneScreen	
DoALine	lda #lastLine	; actual scan line to be scrollin'
	sta CurLinePt	; save it
DAL0005
	asl a	; multiply line by 2
	tay	; use as a table offset
	lda [ScreenTab],y	; get its address in bank 1
	tax	; this is the source line
	clc	; and add 4 scan lines to it...
	adc #$A0*4	; size of 4 scan lines
	tay	; store it in Y

	jsr DoVertRazor	; scroll the can lines!	
; that scan line is now done, time to go to the next one...
	
	dec CurLinePt	; decrement line count by 1
	lda CurLinePt	; get the line count
	cmp #14	; is it the 14th line?
	bge DAL0005	; if not, do another line...
	
; now copy the line of background data into the screen with the next razor
;
	
	jsr CpyBack	; copy the background data...
		
	lda CurCount	; reduce curcount
	sec
	sbc #4
	sta CurCount
	cmp #4
	bge DoOneScreen

Done
	plp
	plb	; restore the old data bank
	rtl

CpyBack
	lda CurCount	; get the number of the line we are on...
	clc 
	adc #13	; offset it properly
	asl a	; multiply it by 2
	tay	; use it as an offset to create the src ptr
	lda [ScreenTab],y	; get the pointer from screen tab
	tax	; save it in X
	ldy #34	; now get the dest line (17...)
	lda [ScreenTab],y
	tay
	jsr DoVertLine	; and move the data
	
	txa	; now bump the line down...
	sec
	sbc #$A0	; by one scan line...
	tax
	ldy #32
	lda [ScreenTab],y
	tay
	jsr DoVertLine
	
	txa	; now bump the line down...
	sec
	sbc #$A0	; by one scan line...
	tax
	ldy #30
	lda [ScreenTab],y
	tay
	jsr DoVertLine
	
	txa	; now bump the line down...
	sec
	sbc #$A0	; by one scan line...
	tax
	ldy #28
	lda [ScreenTab],y
	tay
	jmp DoVertLine
	
	rts
	EndP
	EJECT
*******************************************************************************
*
	Export SmoothScrollSouth
SmoothScrollSouth	PROC
*
* Description:	This routine will scroll the screen south because you are
*	going north
*
*
* Inputs:	None
*
* Outputs:	None
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
	With Globals
CurSLine	equ $80	; number of the current line
CurLinePt	equ $82	; pointer to the current line
CurCount	equ $84	; number of the scroll phase
BackPtr	equ $B0	; background pointer
LineEnd	equ 160	; number of lines to scroll
lastLine	equ 169	
	phb	; save the current data bank register
	php
	sei
	pea $0101	; now set the current data bank to $01
	plb
	plb	; now that we are in bank 1, lets do it
	lda #LineEnd
	stz CurCount	; offset counter
;	stz CurSLine	; start on the first line
DoOneScreen	
DoALine	lda #18	; actual scan line to be scrollin'
	sta CurLinePt	; save it
DAL0005
	asl a	; multiply line by 2
	tay	; use as a table offset
	lda [ScreenTab],y	; get its address in bank 1
	tax	; this is the source line
	sec	; and add 4 scan lines to it...
	sbc #$A0*4	; size of 4 scan lines
	tay	; store it in Y

	jsr DoVertRazor	; scroll the can lines!	
; that scan line is now done, time to go to the next one...
	
	inc CurLinePt	; decrement line count by 1
	lda CurLinePt	; get the line count
	cmp #174	; is it the 14th line?
	blt DAL0005	; if not, do another line...
	
; now copy the line of background data into the screen with the next razor
;
	
	jsr CpyBack	; copy the background data...
		
	lda CurCount	; reduce curcount
	clc
	adc #4
	sta CurCount
	cmp #160
	blt DoOneScreen

Done
	plp
	plb	; restore the old data bank
	rtl

CpyBack
	lda CurCount	; get the number of the line we are on...
	clc 
	adc #17	; offset it properly
	asl a	; multiply it by 2
	tay	; use it as an offset to create the src ptr
	lda [ScreenTab],y	; get the pointer from screen tab
	tax	; save it in X
	ldy #173*2	; now get the dest line (17...)
	lda [ScreenTab],y
	tay
	jsr DoVertLine	; and move the data
	
	txa	; now bump the line down...;
	sec
	sbc #$A0	; by one scan line...
	tax
	ldy #172*2
	lda [ScreenTab],y
	tay
	jsr DoVertLine
	
	txa	; now bump the line down...
	sec
	sbc #$A0	; by one scan line...
	tax
	ldy #171*2
	lda [ScreenTab],y
	tay
	jsr DoVertLine
	
	txa	; now bump the line down...
	sec
	sbc #$A0	; by one scan line...
	tax
	ldy #170*2
	lda [ScreenTab],y
	tay
	jmp DoVertLine
	
	rts
	EndP

	EJECT
*******************************************************************************
*
	Export SmoothScrollWest
SmoothScrollWest	PROC
*
* Description:	This procedure will scroll the screen east smoothly
*
*
* Inputs:   None
*
* Outputs:  None
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
	With Globals
CurSLine	equ $80	; number of the current line
CurLinePt	equ $82	; pointer to the current line
CurCount	equ $84	; number of the scroll phase
BackPtr	equ $B0	; background pointer
LineEnd	equ 119	; number of bytes to scroll per line
	
	phb	; save the current data bank register
	php
	sei
	pea $0101	; now set the current data bank to $01
	plb
	plb	; now that we are in bank 1, lets do it
	lda #LineEnd
	sta CurCount	; offset counter
	stz CurSLine
	lda MyBackPtr
	sta BackPtr
	lda MyBackPtr+2
	sta BackPtr+2
DoOneScreen	
DoALine	ldy #$1C	; get the current scan line
DAL0005	lda [ScreenTab],y	; get its address in bank 1
	tax

	jsr theRazor	; scroll the can line!	
; that scan line is now done, time to go to the next one...
	
	iny
	iny	; bump the line count
	cpy #174*2	; are we done???
	blt DAL0005	; if not go do the next line!
	
; now copy the line of background data into the screen with the next razor
;
	jsr cpyBack
	
	lda CurCount
	sec
	sbc #4
	sta CurCount
	bpl DoOneScreen
Done
	plp
	plb	; restore the old data bank
	rtl

; cpyBack is designed to copy one word width portion of the background into the screen
; at the proper location. Note that the Y CurSLine contains the current bkgnd portion to
; scroll in.
; cpyBack is designed to copy one word width portion of the background into the screen
; at the proper location. Note that the Y CurSLine contains the current bkgnd portion to
; scroll in.
cpyBack
	ldy #$1C	; get the current scan line
	lda [ScreenTab],y	; get its address in bank 
	tay	; save it in <Y>
	clc
	adc CurSLine	; offset this for the background
	tax	; and save it in <X>
	
	tya	; get screen pointer back
	clc
	adc #$74	; add the proper byte offset
	tay	; AND PUT IT BACK INTO Y

; now load the data from the background into the screen column!
	DOtestLINES	; create all the lines we need

	lda CurSLine	; decrement the number of lines
	clc
	adc #4
	sta CurSLine
	
	rts
;
; The following routine is designed to unwrap a single scroll of a scan line It will consist
; of about 60 pairs of load and store instructions to perform the proper scrolling in this dir
;
theRazor
	DoWestRazor
	rts	; and go back to where we came from
	
	EndP
	
	EJECT
*******************************************************************************
*
	Export SmoothScrollEast
SmoothScrollEast	PROC
*
* Description:	This procedure will scroll the screen east smoothly
*
*
* Inputs:   None
*
* Outputs:  None
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
	With Globals
CurSLine	equ $80	; number of the current line
CurLinePt	equ $82	; pointer to the current line
CurCount	equ $84	; number of the scroll phase
BackPtr	equ $B0	; background pointer
LineEnd	equ 119	; number of bytes to scroll per line
	
	phb	; save the current data bank register
	php
	sei
	pea $0101	; now set the current data bank to $01
	plb
	plb	; now that we are in bank 1, lets do it
	lda #LineEnd
	sta CurCount	; offset counter
	lda #$76-2	; set up CurSLine
	sta CurSLine
	lda MyBackPtr
	sta BackPtr
	lda MyBackPtr+2
	sta BackPtr+2
DoOneScreen	
DoALine	ldy #$1C	; get the current scan line
DAL0005	lda [ScreenTab],y	; get its address in bank 1
	tax
	phy
	jsr theRazor	; scroll the can line!	
; that scan line is now done, time to go to the next one...
	ply
	iny
	iny	; bump the line count
	cpy #174*2	; are we done???
	blt DAL0005	; if not go do the next line!
	
; now copy the line of background data into the screen with the next razor
;
	jsr cpyBack
	
	lda CurCount
	sec
	sbc #4
	sta CurCount
	bpl DoOneScreen
Done
	plp
	plb	; restore the old data bank
	rtl

; cpyBack is designed to copy one word width portion of the background into the screen
; at the proper location. Note that the Y CurSLine contains the current bkgnd portion to
; scroll in.
cpyBack
	ldy #$1C	; get the current scan line
	lda [ScreenTab],y	; get its address in bank 
	tay	; save it in <Y>
	clc
	adc CurSLine	; offset this for the background
	tax	; and save it in <X>

; now load the data from the background into the screen column!
	DOtestLINES	; create all the lines we need

	lda CurSLine	; decrement the number of lines
	sec
	sbc #4
	sta CurSLine
	
	rts
;
; The following routine is designed to unwrap a single scroll of a scan line It will consist
; of about 60 pairs of load and store instructions to perform the proper scrolling in this dir
;
theRazor
	DoEastRazor	; create the east razor!
	rts	; and go back to where we came from
	
	EndP
	
	END
	
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Animation/ToolHead.aii b/IIGS.601.SRC/GSToolbox/Animation/ToolHead.aii
new file mode 100644
index 0000000..328d67b
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Animation/ToolHead.aii
@@ -0,0 +1 @@
+*******************************************************************************
* Animation toolkit:ToolHead
*
* (C)  Copyright Apple Computer, Inc. 1990
* All rights reserved.
*
* by Jim Mensch
*
* This file contains the source code to	the higher level toolbox interface for
* the animation toolkit
*
* Files:
	Include 'All.Macros'
	INCLUDE 'Anim.macros'
	INclude 'Anim.Equates'
	Include 'Anim.globals'
*
*
* External Refs:
	Import Yank12
	Import Yank12Err
	Import Yank10
	Import Yank10Err
	Import Yank8
	Import Yank8Err
	Import Yank6
	Import Yank6Err
	Import Yank4
	Import Yank4Err
	Import Yank2
	Import Yank2Err
	Import Yank0
	Import Yank0Err
	Import Globals:GlobalsTemplate
	Import ExtraData:ExtraDataTemplate
	Import Constants:ConstTemplate
	Import SetMyDataBank
	Import AnimActive
*
*
*******************************************************************************
DrawBank	equ $01
DrawDblBank	equ $0101
AbsBank	equ $E1
AbsDblBank	equ $E1E1
BackBank	equ $0009
	GBLA &AnimDebug
&AnimDebug	SETA 0


	macro
	_ShadowOn
	sep #$20
	longa off
	lda >ShadowReg	; load the shadowing register now
	and #$F7	; enable super hires shadowing
	sta >ShadowReg	; and save the shadowing register
	rep #$20
	longa on
	EndM

	macro
	_ShadowOff
	sep #$20
	longa off
	lda >ShadowReg	; load the shadowing register now
	ora #$08	; disable super hires shadowing
	sta >ShadowReg	; and save the shadowing register
	rep #$20
	longa on
	EndM

TSNumber	equ 37
theVersion	equ $8100
TestVersion	equ $22
CallTable	Proc Export
	Import AnimBootInit
	Import AnimAppInit
	Import AnimTerminate
	Import AnimVersion
	Import AnimStatus
	Import StartChar
	Import StartScene
	Import StopScene
	Import StartFrameTimer
	Import StopFrameTimer
	Import SetBackGndPort
	Import RefreshBackCall
	Import StartCharCall
	Import MoveCharCall
	Import AnimIdleDebug
	Import GetCharRecPtr
	Import KillCharCall
	Import LoadActor
	Import RunAnimScripts
	Import SetCharScript
	Import FillAddressTbl
	Import CreateReblitCode
	Import StartTockTask
	Import FireTockTask
	
	DC.L (TheEnd-CallTable)/4 ; num calls +	1
	DC.L AnimBootInit-1	; 1
	DC.L AnimAppInit-1	; 2
	DC.L AnimTerminate-1 ; 3
	DC.L AnimVersion-1	; 4
	DC.L NotSupported-1	; 5  reset function
	DC.L AnimStatus-1	; 6  QDstatus
	DC.L CleanExit-1	; 7  spare
	DC.L AnimIdleDebug-1 ; 8  spare


	DC.L StartScene-1	; 9 StartScene
	dc.L StopScene-1
	dc.L StartFrameTimer-1
	dc.L StopFrameTimer-1
	dc.L SetBackGndPort-1
	dc.L RefreshBackCall-1
	dc.L StartCharCall-1
	dc.L MoveCharCall-1
	dc.L GetCharRecPtr-1
	dc.L KillCharCall-1
	dc.L LoadActor-1
	dc.L SetCharScript-1
	dc.L RunAnimScripts-1
	dc.L FillAddressTbl-1
	dc.L CreateReblitCode-1
	dc.L StartTockTask-1
	dc.L FireTockTask-1
	
TheEnd		;
CleanExit	rtl
NotSupported	sec
	ldx #NotSupportedCall
	rtl
	
	Export KillCharGlue
	Export StartCharGlue
	Export MoveCHarGlue
	Export LoadCharGlue
KillCharGlue	tdc
	jsl KillCharCall
	rtl
StartCharGlue	tdc
	jsl StartCharCall
	rtl
MoveCharGlue	tdc
	jsl MoveCharCall
	rtl
LoadCharGlue	tdc
	jsl LoadActor
	rtl
	EndP
	
	EJECT
*******************************************************************************
*
AnimBootInit	PROC Export
*
* Description:	This routine is called at tool load time. called once only
*
*
* Inputs:	None
*
* Outputs:	None
*
* External Refs:
	Export CleanExit
*
* Entry Points:
*
*******************************************************************************
CleanExit
	lda #0
	clc
	rtl
	EndP

	EJECT
*******************************************************************************
*
AnimAppInit	PROC Export
*
* Description:	This routine will be called each time the application wants to
*	start up the animation tool. It takes several parameters
*	and starts up this fine tool
*
*
* Inputs:	MemID:Word
*	DirectPage:Word
*	ModeFlag:LongInt
*	PatchTable:Longint
*
* Outputs:	None
*
* External Refs:
	Import StartLib
*
* Entry Points:
*
*******************************************************************************
	With Globals
	With ExtraData
; The stack looks like this for this call:
;
theDPage	equ 1
theDBank	equ theDPage+2
RTL2	equ theDBank+1
RTL1	equ RTL2+3
PatchTable	equ RTL1+3
ModeFlag	equ PatchTable+4
DPage	equ ModeFlag+4
MemID	equ DPage+2

	cmp  #0	; see if WAP already set up
	beq  @StartTheTool	
	phb
	phd
	ldx  #AlreadyStarted
	brl  Yank12Err
@StartTheTool
	phb	; save the data bank
	jsl  SetMyDataBank	; set the proper animation data bank!
	phd	; save the current DPage
	lda  DPage,s
	beq  @BadParm
	tcd	; switch in our good direct page
	sta  AnimDPage
	sta  MYZP
	lda  MemID,s
	beq  @BadParm
	sta  ZPMemID
	sta  AppMemID
	lda  ModeFlag,s
	sta  StartMode
	lda  ModeFlag+2,s
	sta  StartMode+2
	lda  PatchTable,s
	sta  AppPatchArea
	lda  PatchTable+2,s
	sta  AppPatchArea+2
	bra  @Continue
@BadParm	ldx  #BadParm
	brl  Yank12Err
@Continue
	lda  AnimDPage
	pea  $0	; Not a user call
	pea  TSNumber	; Put TSNum on stack
	pea  $0	; High word is zero
	pha	; low word is in a
	_SetWAP
	
	pea  0	; see if quickdraw is already started..
	_QDStatus
	pla
	bne  @QDStarted	; if so, then continue..
@NeedQD	ldx  #ToolNeeded	; cause we NEED qd to be started..
@OOps	brl  Yank12Err
@QDStarted	pha
	_GetMasterSCB	; get the master SCB to see if shadow on
	pla
	bpl  @NeedQD	; didn't start it up right!
	sta  MasterSCB
; also, just in case, lets test the shadowing bit to see that its on as well
	lda  >ShadowReg
	and  #$0008	; mask off bit 3
	bne  @NeedQD
; OK, QD and shadowing are on, lets init whatever data needs it and get out!
	jsl  StartLib
	bcs  @OOps
; Library started, finish the high level inits now!
	phb
	phb
	pla
	and #$00FF
	pha
	Pushword #MyBackGrafPort
	_OpenPort	; make it a real grafport
	lda #MyBackSaveArea
	sta MyBackGrafPort+2
	phb
	phb
	pla
	and #$00FF
	sta MyBackGrafPort+4 ; dummy up the port pointer so it looks right
	brl  Yank12
	EndP
		
	EJECT
*******************************************************************************
*
AnimTerminate	PROC
*
* Description:	ShutDown the animation toolkit for this application
*
*
* Inputs:	None
*
* Outputs:	None
*
* External Refs:
*
	Import AnimStartCall
* Entry Points:
*
*******************************************************************************
	With Globals
	jsr  AnimStartCall	; set up an animation call here
	bcc  @DoTheShutDown
	brl  Yank0Err
@DoTheShutDown
; Reset the WAP to indicate the animation tool shut down..
	pea  $0	; Not a user call
	pea  TSNumber	; Put TSNum on stack
	pea  $0	; High word is zero
	pea  $0	; low word is in a
	_SetWAP
	
	brl  Yank0
	EndP
	
	EJECT
*******************************************************************************
*
AnimVersion	PROC
*
* Description:	Returns the version number of the animation tool
*	Returns real version info or test version info depending on
*	whether the test flag is set..
*
* Inputs:	None
*
* Outputs:	our version number
*
* External Refs:
	Import LeaveMe
*
* Entry Points:
*
*******************************************************************************
rtl1	equ 1
rtl2	equ rtl1+3
result	equ rtl2+3
	lda #theVersion
	sta result,s
	brl LeaveMe
	EndP
	
	EJECT
*******************************************************************************
*
AnimStatus	PROC
*
* Description:	says whether the animation system thinks its on..
*
*
* Inputs:	None
*
* Outputs:	None
*
* External Refs:
*
* Entry Points:
	export LeaveMe
*
*******************************************************************************
rtl1	equ 1
rtl2	equ rtl1+3
result	equ rtl2+3
	cmp #0	; see if the wap is zero..
	beq @NotStarted
	lda #$FFFF
@NotStarted	sta result,s
LeaveMe	lda #0
	clc
	rtl
	EndP
	
	
	EJECT
*******************************************************************************
*
AnimStartCall	PROC Export
*
* Description:	Set up the stack from for proper animation toolkit use
*
*
* Inputs:	just the start of a call thats all..
*
*
* Outputs:	carry clear all ok, carry set error in <X>
*
* External Refs:	none..
*
* Entry Points:
*
*******************************************************************************
	With Globals
	ply	; save the return address here..
	phb	; save data bank and dpage
	phd
	jsl  SetMyDataBank	; setup to use proper dpage
	cmp  AnimDPage	; see that WAP is proper
	bne  @BadDPage
	cmp  #0	; see if tool even started
	beq  @ToolNotStarted
	tcd	; use this as the direct page then
	phy	; restore the return address..
	clc
	rts
@BadDPage	ldx  #ToolExplosion
	sec
	rts
@ToolNotStarted	ldx  #ToolNotStarted
	sec
	rts
	EndP
	
	EJECT
*******************************************************************************
*
GetCharRecPtr	PROC Export
*
* Description:	This call will return a pointer to the desired character
*	record that you passed it. 
*
*
* Inputs:	CharNum:Integer
*
* Outputs:	Longword - pointer to the given character
*
* External Refs:
	Import CharTable
*
* Entry Points:
*
*******************************************************************************
theDPage	equ 1
theDBank	equ theDPage+2
RTL2	equ theDBank+1
RTL1	equ RTL2+3
tCharNum	equ RTL1+3
theResult	equ tCharNum+2
	jsr  AnimStartCall	; set up an animation call here
	bcc  @StartOK
	brl  Yank2Err
@StartOK	
	lda  tCharNum,s
	and #$000F	; only 16 chars boys
	asl a	; multiply it by 4
	asl a
	tax
	lda >CharTable,x	; get the low byte of the char pointer
	sta <theResult,s	; store it in the zp pointer
	lda >CharTable+2,x	; noe the high byte
	sta <theResult+2,s
	brl  Yank2
	EndP
	
	EJECT
*******************************************************************************
*
KillCharCall	PROC Export
*
* Description:	This call will kill the desired character so you can do
*	do something else..
*
*
* Inputs:	CharNum:Integer
*
* Outputs:	None
*
* External Refs:
	Import DoKill
*
* Entry Points:
*
*******************************************************************************
theDPage	equ 1
theDBank	equ theDPage+2
RTL2	equ theDBank+1
RTL1	equ RTL2+3
tCharNum	equ RTL1+3
theResult	equ CharNum+2
	jsr  AnimStartCall	; set up an animation call here
	bcc  @StartOK
	brl  Yank2Err
@StartOK	
	lda  tCharNum,s
	and  #$000F	; only 16 chars boys
	pha	; save on the stack for a recall!
	jsl  DoKill
	brl  Yank2
	EndP

	EJECT
*******************************************************************************
*
AnimIdleDebug	PROC
*
* Description:	This routine will be called only to debug this stupid toolkit
*	Set &AnimDebug flag to 1 to use it!
*
*
* Inputs:	None
*
* Outputs:	None
*
* External Refs:
	With Globals
	import DoAnimate
	import FireTockTask
*
* Entry Points:
*
*******************************************************************************
	jsr  AnimStartCall	; set up an animation call here
	bcs @oops
	IF &AnimDebug=1 then
	  lda >$E0C025	; get the keyboard mods register
	  and #$0001	; test for the shift key....
	  beq @1
	  brk 00
@1
	  lda >BugFlag
	  beq @2
	  lda >Trigger
	  beq @2
	  jsl DoAnimate	; call to see if we	need animation
@2
	  jsl xFireTockTask
	EndIF
@oops
	ldx #$2601
	brl Yank0Err
	
xFireTickTask	jsl FireTockTask
	EndP
	

	EJECT
*******************************************************************************
*
TrigrTask	Record
*
* Description:	This is the heartbeat task that sets the trigger flag that
*	is used by the main event loop to gauge when drawing
*	should occur.
*
*
* Inputs:	None
*
* Outputs:	None
*
* External Refs:
*
	Import DoAnimate
* Entry Points:
	Longa on
	LongI on
*
*******************************************************************************
TrgTask	DC.L 0
TrgTaskCnt	DC.W 120
	Dc.W $A55A
	Endr
TriggerP	Proc
	With TrigrTask
	With Globals
	Import DoAnimate
	Export theInterval
	php
	phd
	phb
	REP #$30	; longa/I on
; Now that the trigger task is set, lets turn on the drawing environment
	jsl SetMyDataBank	
	lda MYZP
	tcd	; and use the apps dpage...

;	lda >$E0C030	; click it!

	lda BugFlag
	beq EL0020
	lda AnimState	; get the current animation state
	beq EL0020	; no animation if zero...	
	lda trigger
	bne EL_oops	; called it and the trigger ain't reset yet
EL0015
	IF &AnimDebug=0 then
	  jsl DoAnimate	; call to see if we	need animation
	ENDIF
EL0020
	plb
	pld
	
	lda #1
	sta >Trigger
	lda >theInterval
	sta >TrgTaskCnt
	lda >GameTime
	inc a
	sta >GameTime
	bne @1
	lda >GameTime+2
	inc a
	sta >GameTime+2
@1
	plp
	RTL
EL_oops
	plb
	pld
	
	lda #1
	sta >TrgTaskCnt
	plp
	RTL
theInterval	ds.W 1
	endP
	
	EJECT
*******************************************************************************
*
StartFrameTimer	PROC
*
* Description:	This routine starts the interupt based frame timer going.
*	the parameter it takes is the frame interval between interupts
*
*
* Inputs:	FrameInterval:Word
*
* Outputs:	None
*
* External Refs:
	Import theInterval
	With  TrigrTask
*
* Entry Points:
*
*******************************************************************************
theDPage	equ 1
theDBank	equ theDPage+2
RTL2	equ theDBank+1
RTL1	equ RTL2+3
FrInterval	equ RTL1+3
	jsr  AnimStartCall	; set up an animation call here
	bcc  @StartOK
	brl  Yank2Err
@StartOK	lda  FrInterval,s
	sta  >theInterval
	
; now that all the data has been inited that needs it
; start the trigger heartbeat task running 
	PushLong #TrgTask
	_SetHeartBeat
		

	brl  Yank2
	EndP

	EJECT
*******************************************************************************
*
StopFrameTimer	PROC
*
* Description:	This routine cancels the frame timer
*
*
* Inputs:	None
*
* Outputs:	None
*
* External Refs:
	With TrigrTask
*
* Entry Points:
*
*******************************************************************************
	jsr  AnimStartCall	; set up an animation call here
	bcc  @StartOK
	brl  Yank0Err
@StartOK	
; now that all the data has been inited that needs it
; start the trigger heartbeat task running 
	PushLong #TrgTask
	_DelHeartBeat
		
	brl  Yank0
	EndP

	EJECT
*******************************************************************************
*
SetBackGndPort	PROC
*
* Description:	Sets the grafport to the background grafport so we can draw
*	into the background easier.
*
*
* Inputs:	None
*
* Outputs:	None
*
* External Refs:
	With Globals
	With ExtraData
*
* Entry Points:
*
*******************************************************************************
theDPage	equ 1
theDBank	equ theDPage+2
RTL2	equ theDBank+1
RTL1	equ RTL2+3
theResult	equ RTL1+3
	jsr  AnimStartCall	; set up an animation call here
	bcc  @StartOK
	brl  Yank0Err
@StartOK	PushLong #MyBackGrafPort
	_SetPort	; and do what is expected
	brl Yank0
	EndP

	EJECT
*******************************************************************************
*
StartScene	PROC
*
* Description:	Called to begin an animation scene. This sets up the stage and
*	and background for the scene
*
*
* Inputs:	RectPtr:Long Points to the stage we are going to use
*	Mode:Integer;
*
* Outputs:	None
*
* External Refs:
	With Globals
	With ExtraData
*
* Entry Points:
*
*******************************************************************************
theDPage	equ 1
theDBank	equ theDPage+2
RTL2	equ theDBank+1
RTL1	equ RTL2+3
passMode	equ RTL1+3
passRect	equ passMode+2
	jsr  AnimStartCall	; set up an animation call here
	bcc  @StartOK
	brl  Yank6Err
@StartOK
	lda  PassMode,s
	sta  SceneMode
	lda  passRect,s
	sta  deref
	lda  passRect+2,s
	sta  deref+2
	
	lda  [deref]
	sta  StageRectTop
	ldy  #2
	lda  [deref],y
	sta  StageRectLeft
	iny
	iny
	lda  [deref],y
	sta  StageRectBottom
	iny
	iny
	lda  [deref],y
	sta  StageRectRight
	
	PushLong #0
	PushWord #1
	_GetAddress

	pla
	sta ScreenTab
	sta SavedScrnTab
	pla
	sta ScreenTab+2
	sta SavedScrnTab+2
	lda [ScreenTab]
	sta MyPointer
	lda #AbsBank
	sta MyPointer+2

	lda #MyBackSaveArea	; set up the back pointer
	sta MyBackPtr
	lda #MyBackSaveArea>>16
	sta MyBackPtr+2
	
	lda #$FFFF
	sta BugFlag	; allow animation to occur
	
	stz AnimState	; no one is moving!
	pushLong MyPointer
	PushLong MyBackPtr	; Now push the ptr to save bkgd
	PushLong #$7D00	; length of the block
	_BlockMove	; Now move the block

	_shadowOff
	lda #$2000	; now copy the Background into bank 1 screen memory
	sta MyPointer
	lda #DrawBank	; 
	sta MyPointer+2
	
	PushLong MyBackPtr
	PushLong MyPointer
	PushLong #$7D00
	_BlockMove
	
	_shadowOn
	
	lda #$FFFF	; turn on animation	again!
	sta AnimActive
	brl Yank6
	ENDP

	EJECT
*******************************************************************************
*
StopScene	PROC
*
* Description:	This routine is called prior to a scene ending. It cleans up all
*	the animation stuff.
*
*
* Inputs:	None
*
* Outputs:	None
*
* External Refs:
	With Globals
*
* Entry Points:
*
*******************************************************************************
theDPage	equ 1
theDBank	equ theDPage+2
RTL2	equ theDBank+1
RTL1	equ RTL2+3
passMode	equ RTL1+3
passRect	equ passMode+2
	jsr  AnimStartCall	; set up an animation call here
	bcc  @StartOK
	brl  Yank0Err
@StartOK
	stz AnimActive
	brl Yank0
	EndP
	
	EJECT
*******************************************************************************
*
RefreshBackCall	PROC
*
* Description:	This routine simply calls refresh back routine..
*
*
* Inputs:	None
*
* Outputs:	None
*
* External Refs:
	With Globals
	Import RefreshBack
*
* Entry Points:
*
*******************************************************************************
theDPage	equ 1
theDBank	equ theDPage+2
RTL2	equ theDBank+1
RTL1	equ RTL2+3
passMode	equ RTL1+3
passRect	equ passMode+2
	jsr  AnimStartCall	; set up an animation call here
	bcc  @StartOK
	brl  Yank0Err
@StartOK
	jsl  RefreshBack
	brl Yank0
	EndP
	
	EJECT
*******************************************************************************
*
SetCharScript	PROC
*
* Description:	This routine simply calls refresh back routine..
*
*
* Inputs:	theScript:Pointer
*	CharNum:Word
*
* Outputs:	None
*
* External Refs:
	With Globals
*
* Entry Points:
*
*******************************************************************************
theDPage	equ 1
theDBank	equ theDPage+2
RTL2	equ theDBank+1
RTL1	equ RTL2+3
tCharNum	equ RTL1+3
theScriptPtr	equ tCharNum+2
	jsr  AnimStartCall	; set up an animation call here
	bcc  @StartOK
	brl  Yank6Err
@StartOK
	lda tCharNum,s	;
	and #$000F	; clip it to the proper range
	asl a
	asl a	; multiply it by 4
	tax	; offset into our table
	lda theScriptPtr,s
	sta ScriptPtrs,x
	sta Deref
	lda theScriptPtr+2,s
	sta ScriptPtrs+2,x	; and copy the pointer over.
	sta deref+2
;
; Now reset our global script area
	ldy #14	; we get the first 16 bytes..
	lda #1
	sta [deref]
	lda #0
@Loop	sta [deref],y
	dey
	dey
	bne @Loop
	brl Yank6
	EndP
	
	EJECT
*******************************************************************************
*
RunAnimScripts	PROC
*
* Description:	This routine will run the list of scripts to see if any 
*	script needs to be run, and if so, it will handle the next item
*	in that script
*
*
* Inputs:	none
*
* Outputs:	None
*
* External Refs:
	With Globals
	Import CharTable
*
* Entry Points:
*
*******************************************************************************
theDPage	equ 1
theDBank	equ theDPage+2
RTL2	equ theDBank+1
RTL1	equ RTL2+3
tCharNum	equ RTL1+3
theScriptPtr	equ tCharNum+2
LpassChar	equ $80
CurAnimRec	equ CallTemps	; pointer to the currently used animation record
DETempData	equ $9C	; NOTE trashed in blitters/erasers
DETemp	equ $9A	; NOTE TRASHED IN BLITTERS
	jsr  AnimStartCall	; set up an animation call here
	bcc  @StartOK
	brl  Yank0Err
@StartOK
	lda AnimState	; see if anything is moving..
	sta <DETempData
	beq @AllDone	; guess not..
	ldx #0	; preload <X>
@Loop	
	lsr <DETempData
	bcc @NotActive
; test some more!
	lda >CharTable,x	; copy the character record pointer
	sta CurAnimRec
	lda >CharTable+2,x
	sta CurAnimRec+2
	
	lda |ScriptPtrs,x	; copy the script pointer..
	sta deref
	lda |ScriptPtrs+2,x
	sta deref+2
	ora deref
	beq @NotActive1	; script pointer=NIL no more worry
	
	ldy #cColFlags	; see if we collided with anything...
	lda [<CurAnimRec],y
	beq @noException
	jmp @Exception	;
@noException
	ldy #CIterOff
	lda [<CurAnimRec],y	; see if we need to do the next thing..
	cmp #1	; at fire time?
	bne @NotActive1	; no need to get and try something..
@RunNextItem	phx
	jsr @FireScriptItem
	plx
@NotActive1	lda #-1	; be sure we are non-zero
@NotActive	beq @AllDone
	inx
	inx
	inx
	inx	; bump <X> next ptr
	bra @Loop
@AllDone
	brl Yank0
; If we get here then some sort of collision occured that is a standard exception
; The exception type is in <A>
@Exception
	ldy #ScriptcFlags
	and [deref],y
	beq @noException	; no exception set for this script...
	ldy #ScriptVar1
	sta [deref],y
; currently the only exception supported if the Offscreen and stage exceptions
	bmi @Offscreen	; high bit set = offscreen
	and #$000F	; low 4 bits means stage exception..
	beq @NoException	; not an exception that I recognize..
; here we fire the Stage exception command..
	ldy #StageException
@ExceptCont	lda [deref],y
@BackToOurShoe	beq @noException	; ooops, bad value better forget this..
	sta [deref]	; else its a good exception
	bra @RunNextItem
@Offscreen	ldy #OffStageExcept
	bra @ExceptCont
;
; Its time for a word about the scripts themselves. The first word in the script is used
; to store the item number of the next script item to be fired.
; the other words are script exception labels. If a script exception occurs then the
; script exception label is run instead of the next script item..
; here are the equates for the first script item...
; CurrentScriptLine	equ 0
; ScriptCFlags	equ CurrentScriptLine+2
; StageException	equ ScriptCFlags+2	; 4
; CharException	equ StageException+2 ;6
; ForeException	equ CharException+2	; 8
; OffStageExcept	equ ForException+2	; 10
; Var1	equ OffstageExcept+2 ;12
; Var2	equ Var1+2	; 14
;
@FireScriptItem
;
; At this point it has been determined that it is an apropriate time to do the next
; instruction in the script (if a script exists. So with the <X> register containing
; the char number *4 we set about to fire the very next script item..
	txa
	lsr a
	lsr a	; divide by 4
	sta <LPassChar	; save this as the character to use
; the following alternate entry is taken on jumps
FireAgain	lda [deref]	; get the next script item
	tay	; save it for a second
	inc a	; bump to the next item for now
	sta [deref]	; and stow it..
	tya	; get the current number back
	asl a	; multiply it by 16
	asl a
	asl a
	asl a
	tay	; its now the proper offset to get us to our script
	lda [deref],y	; item.
	sta scItemData
	iny
	iny
	lda [deref],y
	sta scItemData+2
	iny
	iny
	lda [deref],y
	sta scItemData+4
	iny
	iny
	lda [deref],y
	sta scItemData+6
	iny
	iny
	lda [deref],y
	sta scItemData+8
	iny
	iny
	lda [deref],y
	sta scItemData+10
	iny
	iny
	lda [deref],y
	sta scItemData+12
	iny
	iny
	lda [deref],y
	sta scItemData+14
	lda scItemData	
	asl a
	tax
	jsr (cmdTbl,x)	; dispatch this little sucker
	rts	; and return we are done..
cmdTbl	dc.W DoScriptEnd
	dc.W DoGotoItem	; 1
	dc.W DoMoveRel	; 2
	dc.W DoMoveAbs	; 3
	dc.W DoSetException	; 4
	dc.W DoCallBack	; 5
	
;	dc.W DoSetVariable
;	dc.W DoAddVariable
;	dc.W DoSubVariable
;	dc.W DoIfVariable
;	dc.W DoKillChar
;
DoCallBack
; This command calls the indicated routine with a JSL. On return if the carry flag
; is set the next instruction is executed, if it is clear then the call simply ends
	pei DETempData	; we must save this value..
	lda sciParameter2+2	; pass the optional parameter data
	pha
	lda sciParameter2
	pha
	pei CurAnimRec+2	; pass the actor record pointer to the caller
	pei CurAnimRec	; for use with the 
	pei LPassChar	; and pass the character number
	
	phk	; first push our return address on the stack..
	pea @CalledBack-1	; so the called routine can get hone..
	lda sciRtnAddress+1
	pha	; now push the address of the calling routine
	php	; an extra byte for good measure
	lda sciRtnAddress
	dec a	; remember that RTL adds one
	sta 1,s	; and save the low word on the stack
	rtl	; call the indicated routine
@CalledBack
	pla	; yank off the passed data that we put on the stack
	sta LPassChar	; restore the routine data
	pla
	sta CurAnimRec
	pla
	sta CurAnimRec+2
	pla	; discard this crap...
	pla
	pla
	sta DETempData	; and yes, even this crap..
	bcs NextInstruction	; carry set means we want to execute another instruction
	rts	; else simply end..
;
DoSetException
; This command sets up the script for exception processing by setting the proper
; exception flags at the head and the exception vectors.
	ldy sciExceptionNum
	lda sciExceptionLine
	sta [deref],y
	tyx
	ldy #ScriptCFlags
	lda [deref],y
	ora >ExceptionMasks,x
	sta [deref],y
NextInstruction	plx
	brl FireAgain
ExceptionMasks	dc.W 0	; 0 invalid exception number
	dc.W 0	; 2 invalid exception number
	dc.W $000F	; 4 Stage exception masks
	dc.W $00F0	; 6 Character exception masks
	dc.W $0F00	; 8 Forground exception masks
	dc.W $F000	; 10 Offstage exception masks	
;
DoScriptEnd
; we get here the script is over, zero out its entry..
	lda <LPassChar
	asl a
	asl a
	tax
	stz |ScriptPtrs,x
	stz |ScriptPtrs+2,x
	lda <LPassChar	; now kill this character
	pha
	Jsl KillCharGlue	; kill the damned thing
	rts
DoGotoItem
; Go to a script item numbered blah..
	lda scItemData+2
	sta [deref]
	tay
	plx	; destroy <X> and zap return address1
	brl FireAgain
DoMoveRel
; execute the next item in the movement script here
	lda LPassChar	; get the offset to	the char record
	asl a	; multiply it by 4
	asl a
	tax

	lda >CharTable,x	; get the low byte of the char pointer
	sta theChar	; store it in the zp pointer
	lda >CharTable+2,x	; now the high byte
	sta theChar+2
;
	ldy #CXPosOff
	lda [theChar],y
	sta scItemData+10
	ldy #CYPosOff
	lda [theChar],y
	sta scItemData+8
; we now know where we are going..
; execute the proper commands..
DoMoveAbs
	PushWord LPassChar
	jsl KillCharGlue
	
	PushWord scItemData+8
	PushWord scItemData+10
	pea $8000
	PushWord scItemData+2
	PushWord LPassChar
	jsl StartCharGlue
	
	PushWord scItemData+4
	pea $8000
	pushword scItemData+6
	PushWord LPassChar
	jsl MoveCharGlue
	rts
	EndP
	
	EJECT
*******************************************************************************
*
LoadActor	PROC Export
*
* Description:	This routine is called when you want to specify an actor to be
*	used for a particular bitmapped character. It allows you to
*	add any actor you want into the animation system
*
*
* Inputs:	ActorPtr:Pointer
*	CharNum:Word
*
* Outputs:	None
*
* External Refs:
	With Globals
	Import LoadSpecActor
*
* Entry Points:
*
*******************************************************************************
theDPage	equ 1
theDBank	equ theDPage+2
RTL2	equ theDBank+1
RTL1	equ RTL2+3
tCharNum	equ RTL1+3
ActorPtr	equ tCharNum+2
	jsr  AnimStartCall	; set up an animation call here
	bcc  @StartOK
	brl  Yank6Err
@StartOK
	lda ActorPtr+2,s
	pha
	lda ActorPtr+2,s
	pha
	lda tCharNum+4,s
	and #$000F
	pha
	jsl LoadSpecActor
	brl Yank6
	EndP
	
	EJECT
*******************************************************************************
*
FillAddressTbl	PROC Export
*
* Description:	This routine will copy the local address table to the applications
*	address table.
*
*
* Inputs:	TablePtr:Pointer
*
* Outputs:	None
*
* External Refs:
	With Globals
*
* Entry Points:
*
*******************************************************************************
theDPage	equ 1
theDBank	equ theDPage+2
RTL2	equ theDBank+1
RTL1	equ RTL2+3
TablePtr	equ RTL1+3
	jsr  AnimStartCall	; set up an animation call here
	bcc  @StartOK
	brl  Yank4Err
@StartOK
	lda TablePtr+2,s
	sta deref+2
	lda TablePtr,s
	sta deref
	ldy #LATableSize-2
@Loop	tyx
	lda >LocalAddrTbl,x
	sta [deref],y
	dey
	dey
	bpl @Loop
; the table is transfered
	brl Yank4
LocalAddrTbl	dc.L Trigger	; address of the trigger for animation
	dc.L GameTime
	dc.L TockTasks
LATableSize	equ *-LocalAddrTbl	
	EndP

	EJECT
*******************************************************************************
*
CreateReBlitCode	PROC Export
*
* Description:	This routine will create the object code required to reblit the
*	given rectangle. If a handle 
*
* Inputs:	RectPtr:Pointer;
*	GenerationFlags:Word;
*
* Outputs:	TheCode:Handle;
*
* External Refs:
	With Globals
*
* Entry Points:
*
*******************************************************************************
* Flag Values:
SourceCode	equ $8000	; generate source code instead of object
FourceAbsolute	equ $0001	; force the generation of absolute rect reblit
FourceAbsIndex	equ $0002	; force generation of |$2000,x reblit
FourcePEI	equ $0003	; fource use of pei code
useBestFit	equ $0000	; create code using best fit reblit
ReblitWithMask	equ $0100	; use masking to perform the reblit
*
*******************************************************************************
* CTempArray offsets
Height	equ 0
RowWords	equ Height+2
LineOffset	equ RowWords+2
RowBytes	equ LineOffset+2
CurAddr	equ RowBytes+2
*
*******************************************************************************
theDPage	equ 1
theDBank	equ theDPage+2
RTL2	equ theDBank+1
RTL1	equ RTL2+3
GenFlags	equ RTL1+3
RectPtr	equ GenFlags+2
theCode	equ RectPtr+4
	jsr  AnimStartCall	; set up an animation call here
	bcc  @StartOK
@ErrEnd	brl  Yank6Err
@StartOK
	tsc
	tcd
; Calc best fit here if need  be...

; Best fit or force fit calculated already, time to create the code asked for...
	lda  GenFlags
	and  #$0003
	asl  a
	tax
	jsr  (GenTbl,x)
	bcs  @ErrEnd
	lda  cTempLong
	sta  theCode
	lda  cTempLong+2
	sta  theCode+2
	brl  Yank6
GenTbl	dc.W MakeAbs
	dc.W MakeAbs
	dc.W MakeAbs
	dc.W MakeAbs
;
; Absolute Rect reblitting code created here
MakeAbs
; The code created should look something like this:
; 	phb
;	pea  $0101
;	plb
;	plb
;	lda  |$2000
;	sta  |$2000
;	plb
;	RTL
;
; First create the handle that we will need to complete this operation
	lda  #8	; assume object code (source code stuff resizes)
	jsr  MyNewHandle
	bcc  @1
	rts	; error alredy in <X>
@1
	sta  cTempLong	; save the handle for later
	sta  theCode
	sty  cTempLong+2
	sty  theCode+2
	ldy  #2	; now deref the handle so we can use it..
	lda  [theCode],y
	tax
	lda  [theCode]
	sta  theCode
	stx  theCode+2
	ldy  #0	; <Y> is now the code offset..
; Now move the header into the the handle the header is 6 bytes long for this stuff
	lda  >AbsHeader
	sta  [theCode]
	lda  >AbsHeader+2
	ldy  #2
	sta  [theCode],y
	lda  >AbsHeader+4
	iny
	iny
	sta  [theCode],y
	iny
	iny
; Now the header is complete create all the instruction data for each screen word reblit
	sty  cTempWord	; save the handle offset
;
; Calculate the height, width and starting word of the rectangle...
	jsr  GetRectDimensions
	bcsL ExitBadRect
; Calculate the size that the handle needs to grow by multiplying the height by the
; width in words  and then by 3 (number of bytes of instruction per
; screen word...)
	pha
	pha
	lda  cTempArray+Height
	pha
	lda  cTempArray+RowWords
	pha
	_Multiply
	pla
	plx
	cpx  #0
	bneL ExitBadRect	; if <X> is <>0 then the multiply turned up a rect too big
; now to multiply the number of byte by 3..
	pha
	asl  a
	adc  1,s
	plx	; we now know how much bigger this thing needs to be
	bcsl ExitBadRect	; ooops
	adc  #8	; size of the header
	bcsl ExitBadRect	; again, can't get too big!
	
	pea  0000
	pha	; new size for the handle...
	lda  cTempLong+2
	sta  theCode+2	; save for dereffing later
	pha
	lda  CTempLong
	sta  theCode
	pha
	_SetHandleSize
	bcsl ExitBadRect
	
	ldy  #2	; now deref the handle so we can use it..
	lda  [theCode],y
	tax
	lda  [theCode]
	sta  theCode
	stx  theCode+2
;
; The handle is now big enough, fill it with code and get out...

	ldy  cTempWord	; reload the current offset
@StartLine	lda  cTempArray+LineOffset
	sta  cTempArray+CurAddr
	ldx  #0	; number of words done..
@NextInst	lda  #$AD	; opcode for LDA |$xxxx
	sta  [theCode],y
	iny
	lda  cTempArray+LineOffset
	sta  [theCode],y
	iny
	iny
	lda  #$8D	; opcode for STA |$xxxx
	sta  [theCode],y
	iny
	lda  cTempArray+LineOffset
	sta  [theCode],y
	iny
	iny
	inc  cTempArray+LineOffset
	inc  cTempArray+LineOffset
	inx
	cpx  cTempArray+RowWords
	blt  @NextInst
	lda  cTempArray+LineOffset
	clc
	adc  #$00A0
	sta  cTempArray+LineOffset
	dec  cTempArray+Height
	bne  @StartLine
;
; OK, now the handle is full we can simply return the handle and exit!
	lda  >ABSFooter
	sta  [theCode],y
	clc	; report no error
	rts	; and leave!
ExitBadRect	sec
	rts
	
;
; MyNewHandle will return a valid handle in <Y><A> any error returned in <X>
MyNewHandle	ldx  #0
	phx
	phx	; result space
	phx	; high word of size..
	pha	; low word of block size to create
	lda  AppMemID
	pha
	pea  $0010	; attrNoCross
	phx
	phx	; location (of no consequence)
	_NewHandle
	tax
	pla
	ply
	rts
;
GetRectDimensions
; This routine will measure the rectangle and return its proper dimensions in the
; cTempArray variables for this routine..
	ldy  #4
	lda  [RectPtr],y	; start by getting the bottom
	sec
	sbc  [RectPtr]
	sta  cTempArray+Height
	bmi  badRect	; negative or zero means the rectangle is poo
	beq  badRect
;
	ldy  #6
	lda  [RectPtr],y
	sec
	ldy  #2
	sbc  [RectPtr],y
	bmi  badRect	; negative or zero means the rectangle is poo
	beq  badRect
; adjust the width to measure words instead of pixels..
; 320 mode, divide by 4
; 640 mode, divide by 8
	lsr  a
	lsr  a
	bit  MasterSCB+1
	bpl  @GotWords
	lsr  a
@GotWords	sta  cTempArray+RowWords
	asl  a
	sta  cTempArray+RowBytes
;
; Now to calculate the current line offset into the screen (first scan line of the rect..)
; Start by calculating the horizontal component..
; ASSUMES <Y> is already set to #2
; divide by 2 for 320 mode and 4 for 640 mode (need byte address, not word address)
	lda  [RectPtr],y	; load in left side...
	lsr  a
	bit  MasterSCB+1
	bpl  @GotWords2
	lsr  a
@GotWords2	clc
	adc  #$2000	; add offset to screen base..
	sta  cTempArray+LineOffset
;
; Now calculate the vertical offset
	lda  [RectPtr]	; get the "top"
	asl  a	; multiply by $A0 (%1010 0000)
	asl  a
	asl  a
	asl  a
	asl  a
	pha
	asl  a
	asl  a
	clc
	adc  1,s
	adc  cTempArray+LineOffset
	sta  cTempArray+LineOffset
	plx	; recover math poop...
; note carry should be clear here for good values, so...
	rts	; everything is now calculated..
BadRect
	sec	; set carry to indicate error
	rts
	
ABSHEADER
 	phb
	pea  $0101
	plb
	plb
ABSFOOTER	
	plb
	RTL

	EndP

	EJECT
*******************************************************************************
*
StartTockTask	PROC
*
* Description:	This routine installs the passed tock task into the tock
*	table. Funny as it may seem this is right from the "Speds"
*	mouth!
*
*	It installs the tock task into any free tock task slot
*	that it can find...
*
* Inputs:	theCount - what to set for count
*	theID - the task ID to set
*	theData - what to put in the data field 
*	thePtr - what to put in the pointer field
*
*
* Outputs:	Carry clear if task installed..
*
* Errors:	$2503 - BadParm
*	$2510 - TockListOverflow	
* External Refs:
*
* Entry Points:
*
*******************************************************************************
	With Globals
; stack data equates
theRTL	equ 1
theNextRTL	equ theRTL+3
theCount	equ theNextRTL+3
theID	equ theCount+2
theData	equ theID+2
thePtr	equ theData+4

;	PushLong thePtr
;	PushLong theData
;	PushWord theTaskNum
;	PushWord theCount
;	jsl SetTockTask
; get the task number and set x=num*16
	jsr  AnimStartCall	; set up an animation call here
	bcc  @StartOK
@ErrEnd	brl  Yank12Err
@StartOK

	ldx #0	; zero out a counter
	
@TockLoop		; get the counter and see if we are done
	cpx #16*16	; last task in the list?
	bge @NoTocksLeft	; if so then just end...
	lda TockTasks,x	; get the counter
	beq @FoundAnEmpty	; got an empty task...
@NextTock	txa
	clc
	adc #16
	tax
	bra @TockLoop
@NoTocksLeft	sec	; flag the error
	ldx #TockListOverflow
	bra @ErrEnd	; we be done with all this!
;
@FoundAnEmpty
; If we get here <X> is the offset to an empty tock task to use...
@TockCopyData
; now copy the data...
	lda theCount,s
	sta TockTasks.Count,x
	lda theID,s
	sta TockTasks.ID,x
	lda theData,s
	sta TockTasks.Data,x
	lda theData+2,s
	sta TockTasks.Data+2,x
	lda theptr,s
	sta TockTasks.ptr,x
	lda thePtr+2,s
	sta TockTasks.ptr+2,x
; Now unlink the stack frame here...
@DoTheUnlink
	brl Yank12
	EndP

	EJECT
*******************************************************************************
*
FireTockTask	PROC
*
* Description:	This routine can be called to fire any tock task that needs
*	to run, the basic idea is simple, it runs the list and adjusts
*	the counters, and if it needs running, it does it!
*
*	currently the only task ID that is defined is:
*	1: call back routine
*
* Inputs:	None
*
* Outputs:	None
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
	with globals
counter	equ CallTemps

	jsr  AnimStartCall	; set up an animation call here
	bcc  @StartOK
@ErrEnd	brl  Yank0Err
@StartOK
	stz counter	; zero out a counter
	
@TockLoop	lda counter	; get the counter and see if we are done
	cmp #16
	bge @TockDone	; if so then just end...
	asl a	; we must multiply this by 16...
	asl a
	asl a
	asl a	; to get the proper offset
	tax
	lda TockTasks,x	; get the counter
	beq @NextTock
	dec a
	sta TockTasks,x
	bne @NextTock	; if non-zero then next one...
	jsr FireTock	; we got one to fire!!!
@NextTock	inc counter
	bra @TockLoop
@TockDone	brl Yank0	; we be done with all this!
;
; This next routine handles a tock task by finding out what it is and running it...
; it passes control to the proper routine by first pushing the task*16 on the stack
; then jsring the proper routine...
FireTock
	phx	; save tock*16 on the stack...
	lda TockTasks.ID,x	; get the task ID
	cmp #1	; is it larger than the biggest task??
	blt @IDOk
	lda #0	; if not, call routine 0!
@IDOk	asl a	; multiply it by 2...
	tax	; use as an index into the table
	jsr (tockTable,x)	; and dispatch the routine
	rts	; and return (Note X pulled off stack...)
;
; Called when a bad task ID is found!
BadTask	
	pla	; remove the <X> while preserving rts value
	plx
	pha
	rts

;
; This next routine is called when a callback is requested at a proper point in game time.
; This can be used to callback special sectors and bspells (or anything else I guess)
; As a courtesy to the TockTask the offset into the tocktask array will be in <X>
; in case said routine wants to be called back again..
CallBackTask
	pla	; recover <X> without disurbing rts info
	plx
	pha
	jsl @CallIt	; put a fake RTL on the stack
	rts
@CallIt
	pha	; put 3 bytes of poop on the stack to overwrite
	phb
	lda TockTasks.Ptr+1,x ; get the high word first
	sta 2,s
	lda TockTasks.Ptr,x	; be sure to decrement by 1 to account for RTL inc
	dec a	; good thing we can't cross banks with this!
	sta 1,s
; at this point the stack has the address-1 of the routine to jump to...
	rtl	; now call the routine...
	
TockTable	dc.W BadTask
	dc.W CallBackTask
	dc.W BadTask
	EndP
	

	End
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Animation/ToolYank.aii b/IIGS.601.SRC/GSToolbox/Animation/ToolYank.aii
new file mode 100644
index 0000000..94947e1
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Animation/ToolYank.aii
@@ -0,0 +1 @@
+*******************************************************************************
* ToolYank.aii
*
* (C)  Copyright Apple Computer, Inc. 1990
* All rights reserved.
*
* by Jim Mensch
*
* This file contains all the tool end yanks for the animation tool set
*
* Files:
*
*
*
* Modification History:
*
*
*******************************************************************************
RTLW1	equ 1
RTLW2	equ RTLW1+2
RTLW3	equ RTLW2+2

	MACRO
	YankeeMover
	pld
	plb	; always yank off the proper data stuff
	
	lda RTLW3,s	; now move the return addresses down
	sta RTLW3+YankSize,s
	lda RTLW2,s	; now move the return addresses down
	sta RTLW2+YankSize,s
	lda RTLW1,s	; now move the return addresses down
	sta RTLW1+YankSize,s
	ENDM
	
	MACRO
	YankeeAdjuster
	tsc	; now adjust the stack pointer..
	clc	; its 9 cycles Not effective for less than 6 bytes
	adc #YankSize
	tcs
	ENDM
	
	Macro
	YankeeEndr
	txa	; move the error code
	cmp #1
	rtl
	ENDM
	
Yank12	proc Export
	Export Yank12Err
YankSize	equ 12
	ldx #0	; signal no error
Yank12Err
	YankeeMover
	YankeeAdjuster
	YankeeEndr
	EndP
	
Yank10	proc Export
	Export Yank10Err
YankSize	equ 10
	ldx #0	; signal no error
Yank10Err
	YankeeMover
	YankeeAdjuster
	YankeeEndr
	EndP
	
Yank8	proc Export
	Export Yank8Err
YankSize	equ $8
	ldx #0	; signal no error
Yank8Err
	YankeeMover
	YankeeAdjuster
	YankeeEndr
	EndP
	
Yank6	proc Export
	Export Yank6Err
YankSize	equ 6
	ldx #0	; signal no error
Yank6Err
	YankeeMover
	YankeeAdjuster
	YankeeEndr
	EndP
	
Yank4	proc Export
	Export Yank4Err
YankSize	equ 4
	ldx #0	; signal no error
Yank4Err
	YankeeMover
	pla
	pla
	YankeeEndr
	EndP
	
Yank2	proc Export
	Export Yank2Err
YankSize	equ 2
	ldx #0	; signal no error
Yank2Err
	YankeeMover
	pla
	YankeeEndr
	EndP
	
Yank0	proc Export
	Export Yank0Err
YankSize	equ 0
	pld
	plb	; always yank off the proper data stuff
	lda #0
	clc
	rtl
Yank0Err
	pld
	plb	; always yank off the proper data stuff
	YankeeEndr
	EndP
	
	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Animation/all.game.macros b/IIGS.601.SRC/GSToolbox/Animation/all.game.macros
new file mode 100644
index 0000000..d37290c
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Animation/all.game.macros
@@ -0,0 +1 @@
+	PRINT PUSH
	PRINT OFF
*************************************************************************
*			            		*
*	    Apple //GS Utility Macros	            		*
*	            by		            		*
*	        Lou Infeld		            	*
*			           	 	*
*	Copyright Apple Computer, Inc. 1986-1988            	*
*	        All Rights Reserved	            		*
*			            		*
*   Revision History		            		*
*   ----------------		            		*
*   v1.0R1 (04/29/87) --    First Release	            		*
*	        This file is a subset of the old            	*
*	            'M16.Utility'	            		*
*   v2.0R1 (01/22/88) --    First AsmIIGS release	            	*
*   v2.0R2 (02/11/88) --    "writelin" renamed "writeline"	            	*
*   v2.0R3 (03/29/88) --    "|" added to pea instrs to avoid Assembler  	*
*	            warning		            	*
*	        "pushlong" was incorrect if &offset was "s" 	*
*	            or not specified	            		*
*   v2.0R4 (04/14/88) --    "writestr" and "writeline" didn't restore   	*
*	        STRING setting	            		*
*   v2.0R5 (06/15/88) --    "pushlong" was incorrect for stack relative 	*
*
* (Long and Short Removed by SEG)
*************************************************************************

;............................................................
;
;        Pull long (4 bytes) from stack
;
;    pulllong address             - pull off stack to address
;    pulllong addr1,addr2         - pull off stack into 2 places
;    pulllong [zeropage],offset   - pull off stack and store indirectly	    
;    pulllong	              - pull off stack and leave in A
;...............................................................
	MACRO
	pulllong &addr1,&addr2
	IF  &addr1=''	THEN
	pullword
	pullword
	ELSEIF &addr2=''	THEN
	pullword &addr1
	pullword &addr1+2
	ELSEIF &addr1[1:1]='[' THEN
	ldy #&addr2
	pullword &addr1,y
	ldy #&addr2+2
	pullword &addr1,y
	ELSE
	pullword &addr1
	sta &addr2
	pullword &addr1+2
	sta &addr2+2
	ENDIF
	MEND
;...............................................................
;
;        Pull 3 bytes from stack
;
;    pull3 addr    -- pulls bytes off stack and stores in 'loc'
;...............................................................
	MACRO
	pull3 &addr
	pull1 &addr
	pullword &addr+1
	MEND
;...............................................................
;
;        Pull 2 bytes from stack
;
;    pullword loc	  -- pulls bytes off stack and stores in 'loc'
;    pullword loc,x	  -- pulls bytes off stack and stores in 'loc,x'
;    pullword	  -- pulls bytes off stack and leaves in A
;...............................................................
	MACRO
	pullword &addr,&reg
	pla
	IF  &addr­''	THEN
	IF  &reg­''	THEN
	sta &addr,&reg
	ELSE
	sta &addr
	ENDIF
	ENDIF
	MEND
;...............................................................
;
;        Pull 1 byte from stack
;
;    pull1 loc     -- pulls byte off stack and stores in 'loc'
;    pull1 loc,x   -- pulls byte off stack and stores in 'loc,x'
;    pull1         -- pulls byte off stack and leaves in A
;...............................................................
	MACRO
	pull1 &addr,&reg
	shortm
	pullword &addr,&reg
	longm
	MEND
;...............................................................
;
;        Push 1 byte onto stack
;
;    push1 loc     -- pushes byte onto stack from 'loc'
;    push1 loc,x   -- pushes byte onto stack from 'loc,x'
;    push1 #n      -- pushes constant #n onto stack
;    push1         -- pushes byte onto stack (from A)
;...............................................................
	MACRO
	push1 &addr,&reg
	shortm
	pushword &addr,&reg
	longm
	MEND
;............................................................
;
;        Push long (4 bytes) onto stack
;
;    pushlong address             - push contents of address
;    pushlong address,x           - push contents of address,x
;    pushlong const,s             - push contents of stack+const    
;    pushlong #address/const      - push address or constant
;    pushlong [zeropage],offset   - push using indirect address
;...............................................................
	MACRO
	pushlong &addr,&offset
	IF  &addr[1:1]='#'	THEN
	pea &addr[2:255]>>16
	pea |&addr[2:255]
	ELSEIF &addr[1:1]='[' THEN
	ldy #&offset+2
	pushword &addr,y
	ldy #&offset
	pushword &addr,y
	ELSEIF &offset='s'	THEN
	pushword &addr+2,s
	pushword &addr,s
	ELSEIF &offset=''	THEN
	pushword &addr+2
	pushword &addr
	ELSE
	pushword &addr+2,&offset
	pushword &addr,&offset
	ENDIF
	MEND
;...............................................................
;
;        Push 3 bytes onto stack
;
;    push3 addr    -- pushes bytes onto	stack from 'loc'
;    push3 addr,x  -- pushes bytes onto	stack from 'loc,x'
;    push3 #n      -- pushes constant #n onto stack
;...............................................................
	MACRO
	push3 &addr,&reg
	IF  &reg­''	THEN
	lda &addr+1,&reg
	pha
	phb
	lda &addr,&reg
	sta 1,s
	ELSEIF &addr[1:1]='#' THEN
	lda #&addr[2:255]>>8
	pha
	GOTO .a
	ELSE
	lda &addr+1
	pha
.a	phb
	lda &addr
	sta 1,s
	ENDIF
	MEND
;...............................................................
;
;        Push 2 bytes onto stack
;
;    pushword loc	  -- pushes bytes onto stack from 'loc'
;    pushword loc,x	  -- pushes bytes onto stack from 'loc,x'
;    pushword #n	  -- pushes constant #n onto stack
;    pushword	  -- pushes bytes onto stack (from A)
;...............................................................
	MACRO
	pushword &addr,&reg
	IF  &addr[1:1]='#'	AND &SETTING('LONGA')='ON' THEN
	pea |&addr[2:255]
	ELSE
	IF  &addr­''	THEN
	IF  &reg­''	THEN 
	lda &addr,&reg
	ELSE
	lda &addr
	ENDIF
	ENDIF
	pha
	ENDIF
	MEND
;...............................................................
;
;        Define string
;
;        Generates a Pascal type of string
;...............................................................
	MACRO
	str &string
	lclc &sset
&sset	SETC &SETTING('STRING')
	STRING PASCAL
	dc.B &string
	STRING &sset
	MEND
;...............................................................
;
;        Turn on native mode
;
;    The processor is put into 'native'	mode.  8 bit or 16 bit
;    mode can be specified by using 'short' or 'long' as the
;    parameter.  If	no parameter is specified, 'long' is assumed
;...............................................................
	MACRO
	native &mode
	clc
	xce
	IF  &mode­''	THEN
	&mode
	ELSE
	long
	ENDIF
	MEND
;...............................................................
;
;        Turn on emulation mode
;
;    The processor is put into 'emulation' mode.
;...............................................................
	MACRO
	emulation
	sec
	xce
	longa off
	longi off
	MEND
;...............................................................
;
;        Set Memory	& A register to 16 bits
;...............................................................
	MACRO
	longm
	rep #%00100000
	longa on
	MEND
;...............................................................
;
;        Set X & Y registers to 16 bits
;...............................................................
	MACRO
	longx
	rep #%00010000
	longi on
	MEND
;...............................................................
;
;        Set Memory	& A register to 8 bits
;...............................................................
	MACRO
	shortm
	sep #%00100000
	longa off
	MEND
;...............................................................
;
;        Set X & Y registers to 8 bits
;...............................................................
	MACRO
	shortx
	sep #%00010000
	longi off
	MEND
;...............................................................
;
;        Write string
;
;        writestr loc     - string at loc 'loc'
;        writestr #'ABC'  - string='ABC'
;        writestr	      - A,Y has loc	of string         
;...............................................................
	MACRO
	writestr &addr
	IF  &addr­''	THEN
	IF  &addr[1:1]='#'	THEN
	bra @b
	LCLC &sset
&sset	SETC &SETTING('STRING')
	STRING PASCAL
@a	DC.B &addr[2:255]
	STRING &sset
@b	pea @a>>16
	pea |@a
	ELSE
	pea &addr>>16
	pea |&addr
	ENDIF
	ELSE
	phy
	pha
	ENDIF
	ldx #$1C0C
	jsl $E10000
	MEND
;...............................................................
;
;        Write line	(string+CR)
;
;        writeline loc     - string at loc 'loc'
;        writeline #'ABC'  - string='ABC'
;        writeline 'ABC'   - string='ABC'
;        writeline	       - CR only
;
;...............................................................
	MACRO
	writeline &addr
	IF  &addr­''	THEN
	IF  &addr[1:1]='#'	OR &addr[1:1]='''' THEN
	bra @b
	LCLC &sset
&sset	SETC &SETTING('STRING')
	STRING PASCAL
	IF  &addr[1:1]='#'	THEN
@a	DC.B &addr[2:255]
	ELSE
@a	DC.B &addr[1:255]
	ENDIF
	STRING &sset
@b	pea @a>>16
	pea |@a
	ELSE
	pea &addr>>16
	pea |&addr
	ENDIF
	ELSE
	pea @c+1>>16
	pea |@c+1
	ENDIF
	ldx #$1A0C
@c	jsl $E10000
	MEND
;...............................................................
;
;        Write character
;
;        writech	      - char in A register
;        writech #'A'     - char='A'
;        writech ch,x     - char in loc	'ch,x'
;...............................................................
	MACRO
	writech &addr,&reg
	IF  &addr­''	THEN
	IF  &reg­''	THEN
	lda &addr,&reg
	ELSE
	lda &addr
	ENDIF
	ENDIF
	pha
	ldx #$180C
	jsl $E10000
	MEND
;...............................................................
;
;              Read	a char from keyboard
;
;        readch addr     - char stored in 'addr'
;        readch	     - char left in	A register
;
;...............................................................
	MACRO
	readch &addr
	pea 0
	pea 1
	ldx #$220C
	jsl $E10000
	pla
	IF  &addr­''	THEN
	sta &addr
	ENDIF
	MEND


;
; DSect Macros
;
; By Don Marsh  and	Steven Glass
; 11 Sep 87
;
; A series of macros to help in making equates.  This is
; useful when you want to define a series of    equates that
; relate to each other.  For example, offsets on the stack,
; locations on  direct page, offsets in	a record.
;
; Normally you  would do something like
;
;     lab1 equ  0
;     lab2 equ  lab1+4
;     lab3 equ  lab2+2
;     etc.
;
; These macros  let	you do the  following
;
;          DSECT 0
;     lab1 long
;     lab2 word
;     lab3 long
;
; The macros do the	equating and addition for you.  They also make the
; code more readable.
;
; The macro GlobalDSECT makes   the equates global rather than
; local.
;
; The macro DSectSize returns   the current value of the
; dummy program counter that is being maintained.
;
; The macro DefineStack is like using DSECT 1.
;




;
;  DSect &Value
;
;  Begin local  data section.   This defines a  dummy PC
;  register which can be used   in equates to avoid error-
;  prone linked equates for setting up direct page or
;  stack offsets.  The dummy PC begins at &Value and
;  is updated by the appropriate amount	by the BYTE,
;  WORD, LONG,  and	BLOCK macros.
;
	MACRO
	DSect &Value
DummyPC	SET &Value
	MEND


;
;  DefineStack
;
;  This is a specialized data   section	which defines
;  a dummy PC starting at 1 in order to	define a
;  series of stack offsets using the BYTE, WORD,
;  LONG, and BLOCK macros.
;
	MACRO
	DefineStack
DummyPC	SET 1
	MEND

;
;  &lab byte
;
;  Equate the given	label with the current dummy
;  PC (defined  by DSect, GlobalDSect, or
;  DefineStack), and update the dummy PC by the
;  appropriate  amount.
;
	MACRO
&lab	BYTE
&lab	equ DummyPC
DummyPC	SET DummyPC+1
	MEND

;
;  &lab word
;
;  Equate the given	label with the current dummy
;  PC (defined  by DSect, GlobalDSect, or
;  DefineStack), and update the dummy PC by the
;  appropriate  amount.
;
	MACRO
&lab	WORD
&lab	equ DummyPC
DummyPC	SET DummyPC+2
	MEXIT
	MEND

;
;  &lab long
;
;  Equate the given	label with the current dummy
;  PC (defined  by DSect, GlobalDSect, or
;  DefineStack), and update the dummy PC by the
;  appropriate  amount.
;
	MACRO
&lab	LONG
&lab	equ DummyPC
DummyPC	SET DummyPC+4
	MEND

;
;  &lab block &size
;
;  Equate the given	label with the current dummy
;  PC (defined  by DSect, GlobalDSect, or
;  DefineStack), and update the dummy PC by the
;  appropriate  amount (&size bytes).
;
	MACRO
&lab	BLOCK &Value
	if  &lab	= '' goto .skiplab
&lab	equ DummyPC
.skiplab
DummyPC	SET DummyPC+&Value
	MEND

;
;  &lab DSectSize
;
;  This macro equates the given label with the
;  current dummy PC	defined by the DSect,
;  GlobalDSect, or DefineStack macros.	This    is
;  useful for determing the size of data sections
;  or parts of  data sections.
;
	MACRO
&lab	DSectSize
&lab	equ DummyPC
	MEND

;
;  CheckSize &size,&limit
;
;  This macro causes an assembler error	if
;  &size > &limit.	Useful in   checking the size
;  of direct page assignments.
;
	MACRO
	CheckSize &size,&limit
	IF  &Eval(&size)<=&Eval(&limit) goto .DONE
	AError 'Programmer-specified size limit exceeded: ABORT ASSEMBLY!'
.DONE
	MEND



	MACRO
&lab	SYSTEMDATE
&lab
	LCLC &Temp
&Temp	setc &getenv('SystemDate')
	LCLC &EIB	; declare a temporary var to hold current string setting
&EIB	SETC &SETTING('STRING') ; put   current	string  setting into temp
	STRING ASIS	; Set string type to ASIS.
	if &TEMP='' then
	DC.B '&SysDate'	; make the string
	else
	DC.B '&TEMP'
	endif
	STRING &EIB	; restore orig  string settings
	MEND

	MACRO
&lab	SYSTEMTIME
&lab
	LCLC &Temp
&Temp	setc &getenv('SystemTime')
	LCLC &EIB	; declare a temporary var to hold current string setting
&EIB	SETC &SETTING('STRING') ; put   current	string  setting into temp
	STRING ASIS	; Set string type to ASIS.
	if &TEMP='' then
	DC.B '&SysTime'	; make the string
	else
	DC.B '&TEMP'
	endif
	STRING &EIB	; restore orig  string settings
	MEND


;-----------------------------------------------------------
;
; A few last macros
;
	MACRO
&lab	PushPtr &addr
&lab
	dc.B $F4
	dc.W (&addr)>>16
	dc.B $F4
	dc.W &addr
	MEND


	macro
&lab	SetMode16
&lab
	rep #$30
	longa on
	longi on
	ENDM

	macro
&lab	SetMode8
&lab
	sep #$30
	longa off
	longi off
	ENDM

; File:  M16.ACE 
; 
; 
; Copyright Apple computer, Inc.  1988 
; All Rights Reserved 
; 
; 

 MACRO 
&lab _ACEStartUp 
&lab ldx #$021D 
     jsl $E10000 
 MEND 

 MACRO 
&lab _ACEShutDown 
&lab ldx #$031D 
     jsl $E10000 
 MEND 

 MACRO 
&lab _ACEInfo 
&lab ldx #$071D 
     jsl $E10000 
 MEND 

 MACRO 
&lab _ACECompBegin 
&lab ldx #$0B1D 
     jsl $E10000 
 MEND 

 MACRO 
&lab _ACECompress 
&lab ldx #$091D 
     jsl $E10000 
 MEND 

 MACRO 
&lab _ACEExpand 
&lab ldx #$0A1D 
     jsl $E10000 
 MEND 

 MACRO 
&lab _ACEExpBegin 
&lab ldx #$0C1D 
     jsl $E10000 
 MEND 

; File: M16.Event
;
;
; Copyright Apple Computer, Inc. 1986, 1987
; All Rights Reserved
;
;

 MACRO
&lab _EMStartUp
&lab ldx #$0206
     jsl $E10000
 MEND

 MACRO
&lab _EMShutDown
&lab ldx #$0306
     jsl $E10000
 MEND

 MACRO
&lab _Button
&lab ldx #$0D06
     jsl $E10000
 MEND

 MACRO
&lab _DoWindows
&lab ldx #$0906
     jsl $E10000
 MEND

 MACRO
&lab _EventAvail
&lab ldx #$0B06
     jsl $E10000
 MEND

 MACRO
&lab _FakeMouse
&lab ldx #$1906
     jsl $E10000
 MEND

 MACRO
&lab _FlushEvents
&lab ldx #$1506
     jsl $E10000
 MEND

 MACRO
&lab _GetCaretTime
&lab ldx #$1206
     jsl $E10000
 MEND

 MACRO
&lab _GetDblTime
&lab ldx #$1106
     jsl $E10000
 MEND

 MACRO
&lab _GetMouse
&lab ldx #$0C06
     jsl $E10000
 MEND

 MACRO
&lab _GetNextEvent
&lab ldx #$0A06
     jsl $E10000
 MEND

 MACRO
&lab _GetOSEvent
&lab ldx #$1606
     jsl $E10000
 MEND

 MACRO
&lab _OSEventAvail
&lab ldx #$1706
     jsl $E10000
 MEND

 MACRO
&lab _PostEvent
&lab ldx #$1406
     jsl $E10000
 MEND

 MACRO
&lab _SetEventMask
&lab ldx #$1806
     jsl $E10000
 MEND

 MACRO
&lab _SetSwitch
&lab ldx #$1306
     jsl $E10000
 MEND

 MACRO
&lab _StillDown
&lab ldx #$0E06
     jsl $E10000
 MEND

 MACRO
&lab _TickCount
&lab ldx #$1006
     jsl $E10000
 MEND

 MACRO
&lab _WaitMouseUp
&lab ldx #$0F06
     jsl $E10000
 MEND

; File:  M16.SysCalls 
; 
; 
; Copyright Apple computer, Inc.  1988 
; All Rights Reserved 
; 
; 
 

  MACRO 
&lab _GetSysPrefsGS &params 
&lab jsl $E100A8 
 DC.W $200F 
 DC.L &params 
  MEND 

  MACRO 
&lab _BeginSessionGS &params 
&lab jsl $E100A8 
 DC.W $201D 
 DC.L &params 
  MEND 

  MACRO 
&lab _EndSessionGS &params 
&lab jsl $E100A8 
 DC.W $201E 
 DC.L &params 
  MEND 

  MACRO 
&lab _SessionStatusGS &params 
&lab jsl $E100A8 
 DC.W $201F 
 DC.L &params 
  MEND 

  MACRO 
&lab _ResetCacheGS &params 
&lab jsl $E100A8 
 DC.W $2026 
 DC.L &params 
  MEND 

  MACRO 
&lab _BindIntGS &params 
&lab jsl $E100A8 
 DC.W $2031 
 DC.L &params 
  MEND 

  MACRO 
&lab _ChangePathGS &params 
&lab jsl $E100A8 
 DC.W $2004 
 DC.L &params 
  MEND 

  MACRO 
&lab _ClearBackupBitGS &params 
&lab jsl $E100A8 
 DC.W $200B 
 DC.L &params 
  MEND 

  MACRO 
&lab _CloseGS &params 
&lab jsl $E100A8 
 DC.W $2014 
 DC.L &params 
  MEND 

  MACRO 
&lab _CreateGS &params 
&lab jsl $E100A8 
 DC.W $2001 
 DC.L &params 
  MEND 

  MACRO 
&lab _DControlGS &params 
&lab jsl $E100A8 
 DC.W $202E 
 DC.L &params 
  MEND 

  MACRO 
&lab _DestroyGS &params 
&lab jsl $E100A8 
 DC.W $2002 
 DC.L &params 
  MEND 

  MACRO 
&lab _DInfoGS &params 
&lab jsl $E100A8 
 DC.W $202C 
 DC.L &params 
  MEND 

  MACRO 
&lab _DReadGS &params 
&lab jsl $E100A8 
 DC.W $202F 
 DC.L &params 
  MEND 

  MACRO 
&lab _DStatusGS &params 
&lab jsl $E100A8 
 DC.W $202D 
 DC.L &params 
  MEND 

  MACRO 
&lab _DWriteGS &params 
&lab jsl $E100A8 
 DC.W $2030 
 DC.L &params 
  MEND 

  MACRO 
&lab _EraseDiskGS &params 
&lab jsl $E100A8 
 DC.W $2025 
 DC.L &params 
  MEND 

  MACRO 
&lab _ExpandPathGS &params 
&lab jsl $E100A8 
 DC.W $200E 
 DC.L &params 
  MEND 

  MACRO 
&lab _FlushGS &params 
&lab jsl $E100A8 
 DC.W $2015 
 DC.L &params 
  MEND 

  MACRO 
&lab _FormatGS &params 
&lab jsl $E100A8 
 DC.W $2024 
 DC.L &params 
  MEND 

  MACRO 
&lab _GetBootVolGS &params 
&lab jsl $E100A8 
 DC.W $2028 
 DC.L &params 
  MEND 

  MACRO 
&lab _GetDevNumberGS &params 
&lab jsl $E100A8 
 DC.W $2020 
 DC.L &params 
  MEND 

  MACRO 
&lab _GetDirEntryGS &params 
&lab jsl $E100A8 
 DC.W $201C 
 DC.L &params 
  MEND 

  MACRO 
&lab _GetEOFGS &params 
&lab jsl $E100A8 
 DC.W $2019 
 DC.L &params 
  MEND 

  MACRO 
&lab _GetFileInfoGS &params 
&lab jsl $E100A8 
 DC.W $2006 
 DC.L &params 
  MEND 

  MACRO 
&lab _GetFSTInfoGS &params 
&lab jsl $E100A8 
 DC.W $202B 
 DC.L &params 
  MEND 

  MACRO 
&lab _GetLevelGS &params 
&lab jsl $E100A8 
 DC.W $201B 
 DC.L &params 
  MEND 

  MACRO 
&lab _GetMarkGS &params 
&lab jsl $E100A8 
 DC.W $2017 
 DC.L &params 
  MEND 

  MACRO 
&lab _GetNameGS &params 
&lab jsl $E100A8 
 DC.W $2027 
 DC.L &params 
  MEND 

  MACRO 
&lab _GetPrefixGS &params 
&lab jsl $E100A8 
 DC.W $200A 
 DC.L &params 
  MEND 

  MACRO 
&lab _GetVersionGS &params 
&lab jsl $E100A8 
 DC.W $202A 
 DC.L &params 
  MEND 

  MACRO 
&lab _NewlineGS &params 
&lab jsl $E100A8 
 DC.W $2011 
 DC.L &params 
  MEND 

  MACRO 
&lab _NullGS &params 
&lab jsl $E100A8 
 DC.W $200D 
 DC.L &params 
  MEND 

  MACRO 
&lab _OpenGS &params 
&lab jsl $E100A8 
 DC.W $2010 
 DC.L &params 
  MEND 

  MACRO 
&lab _QuitGS &params 
&lab jsl $E100A8 
 DC.W $2029 
 DC.L &params 
  MEND 

  MACRO 
&lab _ReadGS &params 
&lab jsl $E100A8 
 DC.W $2012 
 DC.L &params 
  MEND 

  MACRO 
&lab _SetEOFGS &params 
&lab jsl $E100A8 
 DC.W $2018 
 DC.L &params 
  MEND 

  MACRO 
&lab _SetFileInfoGS &params 
&lab jsl $E100A8 
 DC.W $2005 
 DC.L &params 
  MEND 

  MACRO 
&lab _SetLevelGS &params 
&lab jsl $E100A8 
 DC.W $201A 
 DC.L &params 
  MEND 

  MACRO 
&lab _SetMarkGS &params 
&lab jsl $E100A8 
 DC.W $2016 
 DC.L &params 
  MEND 

  MACRO 
&lab _SetPrefixGS &params 
&lab jsl $E100A8 
 DC.W $2009 
 DC.L &params 
  MEND 

  MACRO 
&lab _UnbindIntGS &params 
&lab jsl $E100A8 
 DC.W $2032 
 DC.L &params 
  MEND 

  MACRO 
&lab _VolumeGS &params 
&lab jsl $E100A8 
 DC.W $2008 
 DC.L &params 
  MEND 

  MACRO 
&lab _WriteGS &params 
&lab jsl $E100A8 
 DC.W $2013 
 DC.L &params 
  MEND 

; File: M16.IntMath
;
;
; Copyright Apple Computer, Inc. 1986, 1987
; All Rights Reserved
;
;

 MACRO
&lab _IMBootInit
&lab ldx #$010B
     jsl $E10000
 MEND

 MACRO
&lab _IMStartUp
&lab ldx #$020B
     jsl $E10000
 MEND

 MACRO
&lab _IMShutDown
&lab ldx #$030B
     jsl $E10000
 MEND

 MACRO
&lab _IMVersion
&lab ldx #$040B
     jsl $E10000
 MEND

 MACRO
&lab _IMReset
&lab ldx #$050B
     jsl $E10000
 MEND

 MACRO
&lab _IMStatus
&lab ldx #$060B
     jsl $E10000
 MEND

 MACRO
&lab _Dec2Int
&lab ldx #$280B
     jsl $E10000
 MEND

 MACRO
&lab _Dec2Long
&lab ldx #$290B
     jsl $E10000
 MEND

 MACRO
&lab _Fix2Frac
&lab ldx #$1C0B
     jsl $E10000
 MEND

 MACRO
&lab _Fix2Long
&lab ldx #$1B0B
     jsl $E10000
 MEND

 MACRO
&lab _Fix2X
&lab ldx #$1E0B
     jsl $E10000
 MEND

 MACRO
&lab _FixATan2
&lab ldx #$170B
     jsl $E10000
 MEND

 MACRO
&lab _FixDiv
&lab ldx #$110B
     jsl $E10000
 MEND

 MACRO
&lab _FixMul
&lab ldx #$0F0B
     jsl $E10000
 MEND

 MACRO
&lab _FixRatio
&lab ldx #$0E0B
     jsl $E10000
 MEND

 MACRO
&lab _FixRound
&lab ldx #$130B
     jsl $E10000
 MEND

 MACRO
&lab _Frac2Fix
&lab ldx #$1D0B
     jsl $E10000
 MEND

 MACRO
&lab _Frac2X
&lab ldx #$1F0B
     jsl $E10000
 MEND

 MACRO
&lab _FracCos
&lab ldx #$150B
     jsl $E10000
 MEND

 MACRO
&lab _FracDiv
&lab ldx #$120B
     jsl $E10000
 MEND

 MACRO
&lab _FracMul
&lab ldx #$100B
     jsl $E10000
 MEND

 MACRO
&lab _FracSin
&lab ldx #$160B
     jsl $E10000
 MEND

 MACRO
&lab _FracSqrt
&lab ldx #$140B
     jsl $E10000
 MEND

 MACRO
&lab _Hex2Int
&lab ldx #$240B
     jsl $E10000
 MEND

 MACRO
&lab _Hex2Long
&lab ldx #$250B
     jsl $E10000
 MEND

 MACRO
&lab _HexIt
&lab ldx #$2A0B
     jsl $E10000
 MEND

 MACRO
&lab _HiWord
&lab ldx #$180B
     jsl $E10000
 MEND

 MACRO
&lab _Int2Dec
&lab ldx #$260B
     jsl $E10000
 MEND

 MACRO
&lab _Int2Hex
&lab ldx #$220B
     jsl $E10000
 MEND

 MACRO
&lab _Long2Dec
&lab ldx #$270B
     jsl $E10000
 MEND

 MACRO
&lab _Long2Fix
&lab ldx #$1A0B
     jsl $E10000
 MEND

 MACRO
&lab _Long2Hex
&lab ldx #$230B
     jsl $E10000
 MEND

 MACRO
&lab _LongDivide
&lab ldx #$0D0B
     jsl $E10000
 MEND

 MACRO
&lab _LongMul
&lab ldx #$0C0B
     jsl $E10000
 MEND

 MACRO
&lab _LoWord
&lab ldx #$190B
     jsl $E10000
 MEND

 MACRO
&lab _Multiply
&lab ldx #$090B
     jsl $E10000
 MEND

 MACRO
&lab _SDivide
&lab ldx #$0A0B
     jsl $E10000
 MEND

 MACRO
&lab _UDivide
&lab ldx #$0B0B
     jsl $E10000
 MEND

 MACRO
&lab _X2Fix
&lab ldx #$200B
     jsl $E10000
 MEND

 MACRO
&lab _X2Frac
&lab ldx #$210B
     jsl $E10000
 MEND

; File:  M16.Loader
;
;
; Copyright Apple Computer, Inc. 1986, 1987, 1988
; All Rights Reserved
;

 MACRO
&lab _LoaderInitialization
&lab ldx #$0111
     jsl $E10000
 MEND

 MACRO
&lab _LoaderInit
&lab ldx #$0111
     jsl $E10000
 MEND

 MACRO
&lab _LoaderStartUp
&lab ldx #$0211
     jsl $E10000
 MEND

 MACRO
&lab _LoaderShutDown
&lab ldx #$0311
     jsl $E10000
 MEND

 MACRO
&lab _LoaderVersion
&lab ldx #$0411
     jsl $E10000
 MEND

 MACRO
&lab _LoaderReset
&lab ldx #$0511
     jsl $E10000
 MEND

 MACRO
&lab _LoaderStatus
&lab ldx #$0611
     jsl $E10000
 MEND

 MACRO
&lab _GetLoadSegInfo
&lab ldx #$0F11
     jsl $E10000
 MEND

 MACRO
&lab _GetPathname
&lab ldx #$1111
     jsl $E10000
 MEND

 MACRO
&lab _GetUserID
&lab ldx #$1011
     jsl $E10000
 MEND

 MACRO
&lab _InitialLoad
&lab ldx #$0911
     jsl $E10000
 MEND

 MACRO
&lab _LGetPathname
&lab ldx #$1111
     jsl $E10000
 MEND

 MACRO
&lab _LoadSegName
&lab ldx #$0D11
     jsl $E10000
 MEND

 MACRO
&lab _LoadSegNum
&lab ldx #$0B11
     jsl $E10000
 MEND

 MACRO
&lab _Restart
&lab ldx #$0A11
     jsl $E10000
 MEND

 MACRO
&lab _UnloadSeg
&lab ldx #$0E11
     jsl $E10000
 MEND

 MACRO
&lab _UnloadSegNum
&lab ldx #$0C11
     jsl $E10000
 MEND

 MACRO
&lab _UserShutDown
&lab ldx #$1211
     jsl $E10000
 MEND

; File:  M16.Locator 
; 
; 
; Copyright Apple Computer, Inc. 1986, 1987, 1988 
; All Rights Reserved 
; 

 MACRO 
&lab _TLBootInit 
&lab ldx #$0101 
     jsl $E10000 
 MEND 

 MACRO 
&lab _TLStartUp 
&lab ldx #$0201 
     jsl $E10000 
 MEND 

 MACRO 
&lab _TLShutDown 
&lab ldx #$0301 
     jsl $E10000 
 MEND 

 MACRO 
&lab _TLVersion 
&lab ldx #$0401 
     jsl $E10000 
 MEND 

 MACRO 
&lab _TLReset 
&lab ldx #$0501 
     jsl $E10000 
 MEND 

 MACRO 
&lab _TLStatus 
&lab ldx #$0601 
     jsl $E10000 
 MEND 

 MACRO 
&lab _GetFuncPtr 
&lab ldx #$0B01 
     jsl $E10000 
 MEND 

 MACRO 
&lab _GetTSPtr 
&lab ldx #$0901 
     jsl $E10000 
 MEND 

 MACRO 
&lab _GetWAP 
&lab ldx #$0C01 
     jsl $E10000 
 MEND 

 MACRO 
&lab _LoadOneTool 
&lab ldx #$0F01 
     jsl $E10000 
 MEND 

 MACRO 
&lab _LoadTools 
&lab ldx #$0E01 
     jsl $E10000 
 MEND 

 MACRO 
&lab _MessageCenter 
&lab ldx #$1501 
     jsl $E10000 
 MEND 

 MACRO 
&lab _RestoreTextState 
&lab ldx #$1401 
     jsl $E10000 
 MEND 

 MACRO 
&lab _SaveTextState 
&lab ldx #$1301 
     jsl $E10000 
 MEND 

 MACRO 
&lab _SetDefaultTPT 
&lab ldx #$1601 
     jsl $E10000 
 MEND 

 MACRO 
&lab _SetTSPtr 
&lab ldx #$0A01 
     jsl $E10000 
 MEND 

 MACRO 
&lab _SetWAP 
&lab ldx #$0D01 
     jsl $E10000 
 MEND 

 MACRO 
&lab _TLMountVolume 
&lab ldx #$1101 
     jsl $E10000 
 MEND 

 MACRO 
&lab _TLTextMountVolume 
&lab ldx #$1201 
     jsl $E10000 
 MEND 

 MACRO 
&lab _UnloadOneTool 
&lab ldx #$1001 
     jsl $E10000 
 MEND 

; File: M16.Memory 
; 
; 
; Copyright Apple Computer, Inc. 1986, 1987, 1988 
; All Rights Reserved 
; 
; 

 MACRO 
&lab _MMBootInit 
&lab ldx #$0102 
     jsl $E10000 
 MEND 

 MACRO 
&lab _MMStartUp 
&lab ldx #$0202 
     jsl $E10000 
 MEND 

 MACRO 
&lab _MMShutDown 
&lab ldx #$0302 
     jsl $E10000 
 MEND 

 MACRO 
&lab _MMVersion 
&lab ldx #$0402 
     jsl $E10000 
 MEND 

 MACRO 
&lab _MMReset 
&lab ldx #$0502 
     jsl $E10000 
 MEND 

 MACRO 
&lab _MMStatus 
&lab ldx #$0602 
     jsl $E10000 
 MEND 

 MACRO 
&lab _BlockMove 
&lab ldx #$2B02 
     jsl $E10000 
 MEND 

 MACRO 
&lab _CheckHandle 
&lab ldx #$1E02 
     jsl $E10000 
 MEND 

 MACRO 
&lab _CompactMem 
&lab ldx #$1F02 
     jsl $E10000 
 MEND 

 MACRO 
&lab _DisposeAll 
&lab ldx #$1102 
     jsl $E10000 
 MEND 

 MACRO 
&lab _DisposeHandle 
&lab ldx #$1002 
     jsl $E10000 
 MEND 

 MACRO 
&lab _FindHandle 
&lab ldx #$1A02 
     jsl $E10000 
 MEND 

 MACRO 
&lab _FreeMem 
&lab ldx #$1B02 
     jsl $E10000 
 MEND 

 MACRO 
&lab _GetHandleSize 
&lab ldx #$1802 
     jsl $E10000 
 MEND 

 MACRO 
&lab _HandToHand 
&lab ldx #$2A02 
     jsl $E10000 
 MEND 

 MACRO 
&lab _HandToPtr 
&lab ldx #$2902 
     jsl $E10000 
 MEND 

 MACRO 
&lab _HLock 
&lab ldx #$2002 
     jsl $E10000 
 MEND 

 MACRO 
&lab _HLockAll 
&lab ldx #$2102 
     jsl $E10000 
 MEND 

 MACRO 
&lab _HUnlock 
&lab ldx #$2202 
     jsl $E10000 
 MEND 

 MACRO 
&lab _HUnlockAll 
&lab ldx #$2302 
     jsl $E10000 
 MEND 

 MACRO 
&lab _MaxBlock 
&lab ldx #$1C02 
     jsl $E10000 
 MEND 

 MACRO 
&lab _NewHandle 
&lab ldx #$0902 
     jsl $E10000 
 MEND 

 MACRO 
&lab _PtrToHand 
&lab ldx #$2802 
     jsl $E10000 
 MEND 

 MACRO 
&lab _PurgeAll 
&lab ldx #$1302 
     jsl $E10000 
 MEND 

 MACRO 
&lab _PurgeHandle 
&lab ldx #$1202 
     jsl $E10000 
 MEND 

 MACRO 
&lab _RealFreeMem 
&lab ldx #$2F02 
     jsl $E10000 
 MEND 

 MACRO 
&lab _ReallocHandle 
&lab ldx #$0A02 
     jsl $E10000 
 MEND 

 MACRO 
&lab _RestoreHandle 
&lab ldx #$0B02 
     jsl $E10000 
 MEND 

 MACRO 
&lab _SetHandleSize 
&lab ldx #$1902 
     jsl $E10000 
 MEND 

 MACRO 
&lab _SetPurge 
&lab ldx #$2402 
     jsl $E10000 
 MEND 

 MACRO 
&lab _SetPurgeAll 
&lab ldx #$2502 
     jsl $E10000 
 MEND 

 MACRO 
&lab _TotalMem 
&lab ldx #$1D02 
     jsl $E10000 
 MEND 

; File: M16.MiscTool
;
;
; Copyright Apple Computer, Inc. 1986, 1987
; All Rights Reserved
;
;

 MACRO
&lab _MTBootInit
&lab ldx #$0103
     jsl $E10000
 MEND

 MACRO
&lab _MTStartUp
&lab ldx #$0203
     jsl $E10000
 MEND

 MACRO
&lab _MTShutDown
&lab ldx #$0303
     jsl $E10000
 MEND

 MACRO
&lab _MTVersion
&lab ldx #$0403
     jsl $E10000
 MEND

 MACRO
&lab _MTReset
&lab ldx #$0503
     jsl $E10000
 MEND

 MACRO
&lab _MTStatus
&lab ldx #$0603
     jsl $E10000
 MEND

 MACRO
&lab _ClampMouse
&lab ldx #$1C03
     jsl $E10000
 MEND

 MACRO
&lab _ClearMouse
&lab ldx #$1B03
     jsl $E10000
 MEND

 MACRO
&lab _ClrHeartBeat
&lab ldx #$1403
     jsl $E10000
 MEND

 MACRO
&lab _DeleteID
&lab ldx #$2103
     jsl $E10000
 MEND

 MACRO
&lab _DelHeartBeat
&lab ldx #$1303
     jsl $E10000
 MEND

 MACRO
&lab _FWEntry
&lab ldx #$2403
     jsl $E10000
 MEND

 MACRO
&lab _GetAbsClamp
&lab ldx #$2B03
     jsl $E10000
 MEND

 MACRO
&lab _GetAddr
&lab ldx #$1603
     jsl $E10000
 MEND

 MACRO
&lab _GetIRQEnable
&lab ldx #$2903
     jsl $E10000
 MEND

 MACRO
&lab _GetMouseClamp
&lab ldx #$1D03
     jsl $E10000
 MEND

 MACRO
&lab _GetNewID
&lab ldx #$2003
     jsl $E10000
 MEND

 MACRO
&lab _GetTick
&lab ldx #$2503
     jsl $E10000
 MEND

 MACRO
&lab _GetVector
&lab ldx #$1103
     jsl $E10000
 MEND

 MACRO
&lab _HomeMouse
&lab ldx #$1A03
     jsl $E10000
 MEND

 MACRO
&lab _InitMouse
&lab ldx #$1803
     jsl $E10000
 MEND

 MACRO
&lab _IntSource
&lab ldx #$2303
     jsl $E10000
 MEND

 MACRO
&lab _Munger
&lab ldx #$2803
     jsl $E10000
 MEND

 MACRO
&lab _PackBytes
&lab ldx #$2603
     jsl $E10000
 MEND

 MACRO
&lab _PosMouse
&lab ldx #$1E03
     jsl $E10000
 MEND

 MACRO
&lab _ReadAsciiTime
&lab ldx #$0F03
     jsl $E10000
 MEND

 MACRO
&lab _ReadBParam
&lab ldx #$0C03
     jsl $E10000
 MEND

 MACRO
&lab _ReadBRam
&lab ldx #$0A03
     jsl $E10000
 MEND

 MACRO
&lab _ReadMouse
&lab ldx #$1703
     jsl $E10000
 MEND

 MACRO
&lab _ReadTimeHex
&lab ldx #$0D03
     jsl $E10000
 MEND

 MACRO
&lab _ServeMouse
&lab ldx #$1F03
     jsl $E10000
 MEND

 MACRO
&lab _SetAbsClamp
&lab ldx #$2A03
     jsl $E10000
 MEND

 MACRO
&lab _SetHeartBeat
&lab ldx #$1203
     jsl $E10000
 MEND

 MACRO
&lab _SetMouse
&lab ldx #$1903
     jsl $E10000
 MEND

 MACRO
&lab _SetVector
&lab ldx #$1003
     jsl $E10000
 MEND

 MACRO
&lab _StatusID
&lab ldx #$2203
     jsl $E10000
 MEND

 MACRO
&lab _SysBeep
&lab ldx #$2C03
     jsl $E10000
 MEND

 MACRO
&lab _SysFailMgr
&lab ldx #$1503
     jsl $E10000
 MEND

 MACRO
&lab _UnPackBytes
&lab ldx #$2703
     jsl $E10000
 MEND

 MACRO
&lab _WriteBParam
&lab ldx #$0B03
     jsl $E10000
 MEND

 MACRO
&lab _WriteBRam
&lab ldx #$0903
     jsl $E10000
 MEND

 MACRO
&lab _WriteTimeHex
&lab ldx #$0E03
     jsl $E10000
 MEND


; File: M16.ProDos 
; 
; 
; Copyright Apple Computer, Inc. 1986, 1987 
; All Rights Reserved 
; 
; 

  MACRO 
&lab _CREATE &params 
&lab jsl $E100A8 
 DC.W 1 
 DC.L &params 
  MEND 

  MACRO 
&lab _DESTROY &params 
&lab jsl $E100A8 
 DC.W 2 
 DC.L &params 
  MEND 

  MACRO 
&lab _CHANGE_PATH &params 
&lab jsl $E100A8 
 DC.W 4 
 DC.L &params 
  MEND 

  MACRO 
&lab _SET_FILE_INFO &params 
&lab jsl $E100A8 
 DC.W 5 
 DC.L &params 
  MEND 

  MACRO 
&lab _GET_FILE_INFO &params 
&lab jsl $E100A8 
 DC.W 6 
 DC.L &params 
  MEND 

  MACRO 
&lab _VOLUME &params 
&lab jsl $E100A8 
 DC.W 8 
 DC.L &params 
  MEND 

  MACRO 
&lab _SET_PREFIX &params 
&lab jsl $E100A8 
 DC.W 9 
 DC.L &params 
  MEND 

  MACRO 
&lab _GET_PREFIX &params 
&lab jsl $E100A8 
 DC.W $0A 
 DC.L &params 
  MEND 

  MACRO 
&lab _CLEAR_BACKUP_BIT &params 
&lab jsl $E100A8 
 DC.W $0B 
 DC.L &params 
  MEND 

  MACRO 
&lab _OPEN &params 
&lab jsl $E100A8 
 DC.W $10 
 DC.L &params 
  MEND 

  MACRO 
&lab _NEWLINE &params 
&lab jsl $E100A8 
 DC.W $11 
 DC.L &params 
  MEND 

  MACRO 
&lab _READ &params 
&lab jsl $E100A8 
 DC.W $12 
 DC.L &params 
  MEND 

  MACRO 
&lab _WRITE &params 
&lab jsl $E100A8 
 DC.W $13 
 DC.L &params 
  MEND 

  MACRO 
&lab _CLOSE &params 
&lab jsl $E100A8 
 DC.W $14 
 DC.L &params 
  MEND 

  MACRO 
&lab _FLUSH &params 
&lab jsl $E100A8 
 DC.W $15 
 DC.L &params 
  MEND 

  MACRO 
&lab _SET_MARK &params 
&lab jsl $E100A8 
 DC.W $16 
 DC.L &params 
  MEND 

  MACRO 
&lab _GET_MARK &params 
&lab jsl $E100A8 
 DC.W $17 
 DC.L &params 
  MEND 

  MACRO 
&lab _SET_EOF &params 
&lab jsl $E100A8 
 DC.W $18 
 DC.L &params 
  MEND 

  MACRO 
&lab _GET_EOF &params 
&lab jsl $E100A8 
 DC.W $19 
 DC.L &params 
  MEND 

  MACRO 
&lab _SET_LEVEL &params 
&lab jsl $E100A8 
 DC.W $1A 
 DC.L &params 
  MEND 

  MACRO 
&lab _GET_LEVEL &params 
&lab jsl $E100A8 
 DC.W $1B 
 DC.L &params 
  MEND 

  MACRO 
&lab _GET_DIR_ENTRY &params 
&lab jsl $E100A8 
 DC.W $1C 
 DC.L &params 
  MEND 

  MACRO 
&lab _GET_DEV_NUM &params 
&lab jsl $E100A8 
 DC.W $20 
 DC.L &params 
  MEND 

  MACRO 
&lab _GET_LAST_DEV &params 
&lab jsl $E100A8 
 DC.W $21 
 DC.L &params 
  MEND 

  MACRO 
&lab _READ_BLOCK &params 
&lab jsl $E100A8 
 DC.W $22 
 DC.L &params 
  MEND 

  MACRO 
&lab _WRITE_BLOCK &params 
&lab jsl $E100A8 
 DC.W $23 
 DC.L &params 
  MEND 

  MACRO 
&lab _FORMAT &params 
&lab jsl $E100A8 
 DC.W $24 
 DC.L &params 
  MEND 

  MACRO 
&lab _ERASE_DISK &params 
&lab jsl $E100A8 
 DC.W $25 
 DC.L &params 
  MEND 

  MACRO 
&lab _GET_NAME &params 
&lab jsl $E100A8 
 DC.W $27 
 DC.L &params 
  MEND 

  MACRO 
&lab _GET_PATH_NAME &params 
&lab jsl $E100A8 
 DC.W $27 
 DC.L &params 
  MEND 

  MACRO 
&lab _GET_BOOT_VOL &params 
&lab jsl $E100A8 
 DC.W $28 
 DC.L &params 
  MEND 

  MACRO 
&lab _QUIT &params 
&lab jsl $E100A8 
 DC.W $29 
 DC.L &params 
  MEND 

  MACRO 
&lab _GET_VERSION &params 
&lab jsl $E100A8 
 DC.W $2A 
 DC.L &params 
  MEND 

  MACRO 
&lab _D_INFO &params 
&lab jsl $E100A8 
 DC.W $2C 
 DC.L &params 
  MEND 

  MACRO 
&lab _ALLOC_INTERRUPT &params 
&lab jsl $E100A8 
 DC.W $31 
 DC.L &params 
  MEND 

  MACRO 
&lab _DEALLOC_INTERRUPT &params 
&lab jsl $E100A8 
 DC.W $32 
 DC.L &params 
  MEND 

; File: M16.QDAux 
; 
; 
; Copyright Apple Computer, Inc. 1986, 1987, 1988 
; All Rights Reserved 
; 
; 

 MACRO 
&lab _QDAuxBootInit 
&lab ldx #$0112 
     jsl $E10000 
 MEND 

 MACRO 
&lab _QDAuxStartUp 
&lab ldx #$0212 
     jsl $E10000 
 MEND 

 MACRO 
&lab _QDAuxShutDown 
&lab ldx #$0312 
     jsl $E10000 
 MEND 

 MACRO 
&lab _QDAuxVersion 
&lab ldx #$0412 
     jsl $E10000 
 MEND 

 MACRO 
&lab _QDAuxReset 
&lab ldx #$0512 
     jsl $E10000 
 MEND 

 MACRO 
&lab _QDAuxStatus 
&lab ldx #$0612 
     jsl $E10000 
 MEND 

 MACRO 
&lab _CopyPixels 
&lab ldx #$0912 
     jsl $E10000 
 MEND 

 MACRO 
&lab _DrawIcon 
&lab ldx #$0B12 
     jsl $E10000 
 MEND 

 MACRO 
&lab _SpecialRect 
&lab ldx #$0C12 
     jsl $E10000 
 MEND 

 MACRO 
&lab _WaitCursor 
&lab ldx #$0A12 
     jsl $E10000 
 MEND 

; File: M16.QuickDraw
;
;
; Copyright Apple Computer, Inc. 1986, 1987
; All Rights Reserved
;
;

 MACRO
&lab _QDBootInit
&lab ldx #$0104
     jsl $E10000
 MEND

 MACRO
&lab _QDStartUp
&lab ldx #$0204
     jsl $E10000
 MEND

 MACRO
&lab _QDShutDown
&lab ldx #$0304
     jsl $E10000
 MEND

 MACRO
&lab _QDVersion
&lab ldx #$0404
     jsl $E10000
 MEND

 MACRO
&lab _QDReset
&lab ldx #$0504
     jsl $E10000
 MEND

 MACRO
&lab _QDStatus
&lab ldx #$0604
     jsl $E10000
 MEND

 MACRO
&lab _AddPt
&lab ldx #$8004
     jsl $E10000
 MEND

 MACRO
&lab _CharBounds
&lab ldx #$AC04
     jsl $E10000
 MEND

 MACRO
&lab _CharWidth
&lab ldx #$A804
     jsl $E10000
 MEND

 MACRO
&lab _ClearScreen
&lab ldx #$1504
     jsl $E10000
 MEND

 MACRO
&lab _ClipRect
&lab ldx #$2604
     jsl $E10000
 MEND

 MACRO
&lab _ClosePicture
&lab ldx #$B904
     jsl $E10000
 MEND

 MACRO
&lab _ClosePoly
&lab ldx #$C204
     jsl $E10000
 MEND

 MACRO
&lab _ClosePort
&lab ldx #$1A04
     jsl $E10000
 MEND

 MACRO
&lab _CloseRgn
&lab ldx #$6E04
     jsl $E10000
 MEND

 MACRO
&lab _CopyRgn
&lab ldx #$6904
     jsl $E10000
 MEND

 MACRO
&lab _CStringBounds
&lab ldx #$AE04
     jsl $E10000
 MEND

 MACRO
&lab _CStringWidth
&lab ldx #$AA04
     jsl $E10000
 MEND

 MACRO
&lab _DiffRgn
&lab ldx #$7304
     jsl $E10000
 MEND

 MACRO
&lab _DisposeRgn
&lab ldx #$6804
     jsl $E10000
 MEND

 MACRO
&lab _DrawChar
&lab ldx #$A404
     jsl $E10000
 MEND

 MACRO
&lab _DrawCString
&lab ldx #$A604
     jsl $E10000
 MEND

 MACRO
&lab _DrawPicture
&lab ldx #$BA04
     jsl $E10000
 MEND

 MACRO
&lab _DrawString
&lab ldx #$A504
     jsl $E10000
 MEND

 MACRO
&lab _DrawText
&lab ldx #$A704
     jsl $E10000
 MEND

 MACRO
&lab _EmptyRect
&lab ldx #$5204
     jsl $E10000
 MEND

 MACRO
&lab _EmptyRgn
&lab ldx #$7804
     jsl $E10000
 MEND

 MACRO
&lab _EqualPt
&lab ldx #$8304
     jsl $E10000
 MEND

 MACRO
&lab _EqualRect
&lab ldx #$5104
     jsl $E10000
 MEND

 MACRO
&lab _EqualRgn
&lab ldx #$7704
     jsl $E10000
 MEND

 MACRO
&lab _EraseArc
&lab ldx #$6404
     jsl $E10000
 MEND

 MACRO
&lab _EraseOval
&lab ldx #$5A04
     jsl $E10000
 MEND

 MACRO
&lab _ErasePoly
&lab ldx #$BE04
     jsl $E10000
 MEND

 MACRO
&lab _EraseRect
&lab ldx #$5504
     jsl $E10000
 MEND

 MACRO
&lab _EraseRgn
&lab ldx #$7B04
     jsl $E10000
 MEND

 MACRO
&lab _EraseRRect
&lab ldx #$5F04
     jsl $E10000
 MEND

 MACRO
&lab _FillArc
&lab ldx #$6604
     jsl $E10000
 MEND

 MACRO
&lab _FillOval
&lab ldx #$5C04
     jsl $E10000
 MEND

 MACRO
&lab _FillPoly
&lab ldx #$C004
     jsl $E10000
 MEND

 MACRO
&lab _FillRect
&lab ldx #$5704
     jsl $E10000
 MEND

 MACRO
&lab _FillRgn
&lab ldx #$7D04
     jsl $E10000
 MEND

 MACRO
&lab _FillRRect
&lab ldx #$6104
     jsl $E10000
 MEND

 MACRO
&lab _ForceBufDims
&lab ldx #$CC04
     jsl $E10000
 MEND

 MACRO
&lab _FrameArc
&lab ldx #$6204
     jsl $E10000
 MEND

 MACRO
&lab _FrameOval
&lab ldx #$5804
     jsl $E10000
 MEND

 MACRO
&lab _FramePoly
&lab ldx #$BC04
     jsl $E10000
 MEND

 MACRO
&lab _FrameRect
&lab ldx #$5304
     jsl $E10000
 MEND

 MACRO
&lab _FrameRgn
&lab ldx #$7904
     jsl $E10000
 MEND

 MACRO
&lab _FrameRRect
&lab ldx #$5D04
     jsl $E10000
 MEND

 MACRO
&lab _GetAddress
&lab ldx #$0904
     jsl $E10000
 MEND

 MACRO
&lab _GetArcRot
&lab ldx #$B104
     jsl $E10000
 MEND

 MACRO
&lab _GetBackColor
&lab ldx #$A304
     jsl $E10000
 MEND

 MACRO
&lab _GetBackPat
&lab ldx #$3504
     jsl $E10000
 MEND

 MACRO
&lab _GetCharExtra
&lab ldx #$D504
     jsl $E10000
 MEND

 MACRO
&lab _GetClip
&lab ldx #$2504
     jsl $E10000
 MEND

 MACRO
&lab _GetClipHandle
&lab ldx #$C704
     jsl $E10000
 MEND

 MACRO
&lab _GetColorEntry
&lab ldx #$1104
     jsl $E10000
 MEND

 MACRO
&lab _GetColorTable
&lab ldx #$0F04
     jsl $E10000
 MEND

 MACRO
&lab _GetCursorAdr
&lab ldx #$8F04
     jsl $E10000
 MEND

 MACRO
&lab _GetFGSize
&lab ldx #$CF04
     jsl $E10000
 MEND

 MACRO
&lab _GetFont
&lab ldx #$9504
     jsl $E10000
 MEND

 MACRO
&lab _GetFontFlags
&lab ldx #$9904
     jsl $E10000
 MEND

 MACRO
&lab _GetFontGlobals
&lab ldx #$9704
     jsl $E10000
 MEND

 MACRO
&lab _GetFontID
&lab ldx #$D104
     jsl $E10000
 MEND

 MACRO
&lab _GetFontInfo
&lab ldx #$9604
     jsl $E10000
 MEND

 MACRO
&lab _GetFontLore
&lab ldx #$D904
     jsl $E10000
 MEND

 MACRO
&lab _GetForeColor
&lab ldx #$A104
     jsl $E10000
 MEND

 MACRO
&lab _GetGrafProcs
&lab ldx #$4504
     jsl $E10000
 MEND

 MACRO
&lab _GetMasterSCB
&lab ldx #$1704
     jsl $E10000
 MEND

 MACRO
&lab _GetPen
&lab ldx #$2904
     jsl $E10000
 MEND

 MACRO
&lab _GetPenMask
&lab ldx #$3304
     jsl $E10000
 MEND

 MACRO
&lab _GetPenMode
&lab ldx #$2F04
     jsl $E10000
 MEND

 MACRO
&lab _GetPenPat
&lab ldx #$3104
     jsl $E10000
 MEND

 MACRO
&lab _GetPenSize
&lab ldx #$2D04
     jsl $E10000
 MEND

 MACRO
&lab _GetPenState
&lab ldx #$2B04
     jsl $E10000
 MEND

 MACRO
&lab _GetPicSave
&lab ldx #$3F04
     jsl $E10000
 MEND

 MACRO
&lab _GetPixel
&lab ldx #$8804
     jsl $E10000
 MEND

 MACRO
&lab _GetPolySave
&lab ldx #$4304
     jsl $E10000
 MEND

 MACRO
&lab _GetPort
&lab ldx #$1C04
     jsl $E10000
 MEND

 MACRO
&lab _GetPortLoc
&lab ldx #$1E04
     jsl $E10000
 MEND

 MACRO
&lab _GetPortRect
&lab ldx #$2004
     jsl $E10000
 MEND

 MACRO
&lab _GetRgnSave
&lab ldx #$4104
     jsl $E10000
 MEND

 MACRO
&lab _GetROMFont
&lab ldx #$D804
     jsl $E10000
 MEND

 MACRO
&lab _GetSCB
&lab ldx #$1304
     jsl $E10000
 MEND

 MACRO
&lab _GetSpaceExtra
&lab ldx #$9F04
     jsl $E10000
 MEND

 MACRO
&lab _GetStandardSCB
&lab ldx #$0C04
     jsl $E10000
 MEND

 MACRO
&lab _GetSysField
&lab ldx #$4904
     jsl $E10000
 MEND

 MACRO
&lab _GetSysFont
&lab ldx #$B304
     jsl $E10000
 MEND

 MACRO
&lab _GetTextFace
&lab ldx #$9B04
     jsl $E10000
 MEND

 MACRO
&lab _GetTextMode
&lab ldx #$9D04
     jsl $E10000
 MEND

 MACRO
&lab _GetTextSize
&lab ldx #$D304
     jsl $E10000
 MEND

 MACRO
&lab _GetUserField
&lab ldx #$4704
     jsl $E10000
 MEND

 MACRO
&lab _GetVisHandle
&lab ldx #$C904
     jsl $E10000
 MEND

 MACRO
&lab _GetVisRgn
&lab ldx #$B504
     jsl $E10000
 MEND

 MACRO
&lab _GlobalToLocal
&lab ldx #$8504
     jsl $E10000
 MEND

 MACRO
&lab _GrafOff
&lab ldx #$0B04
     jsl $E10000
 MEND

 MACRO
&lab _GrafOn
&lab ldx #$0A04
     jsl $E10000
 MEND

 MACRO
&lab _HideCursor
&lab ldx #$9004
     jsl $E10000
 MEND

 MACRO
&lab _HidePen
&lab ldx #$2704
     jsl $E10000
 MEND

 MACRO
&lab _InflateTextBuffer
&lab ldx #$D704
     jsl $E10000
 MEND

 MACRO
&lab _InitColorTable
&lab ldx #$0D04
     jsl $E10000
 MEND

 MACRO
&lab _InitCursor
&lab ldx #$CA04
     jsl $E10000
 MEND

 MACRO
&lab _InitPort
&lab ldx #$1904
     jsl $E10000
 MEND

 MACRO
&lab _InsetRect
&lab ldx #$4C04
     jsl $E10000
 MEND

 MACRO
&lab _InsetRgn
&lab ldx #$7004
     jsl $E10000
 MEND

 MACRO
&lab _InvertArc
&lab ldx #$6504
     jsl $E10000
 MEND

 MACRO
&lab _InvertOval
&lab ldx #$5B04
     jsl $E10000
 MEND

 MACRO
&lab _InvertPoly
&lab ldx #$BF04
     jsl $E10000
 MEND

 MACRO
&lab _InvertRect
&lab ldx #$5604
     jsl $E10000
 MEND

 MACRO
&lab _InvertRgn
&lab ldx #$7C04
     jsl $E10000
 MEND

 MACRO
&lab _InvertRRect
&lab ldx #$6004
     jsl $E10000
 MEND

 MACRO
&lab _KillPicture
&lab ldx #$BB04
     jsl $E10000
 MEND

 MACRO
&lab _KillPoly
&lab ldx #$C304
     jsl $E10000
 MEND

 MACRO
&lab _Line
&lab ldx #$3D04
     jsl $E10000
 MEND

 MACRO
&lab _LineTo
&lab ldx #$3C04
     jsl $E10000
 MEND

 MACRO
&lab _LocalToGlobal
&lab ldx #$8404
     jsl $E10000
 MEND

 MACRO
&lab _MapPoly
&lab ldx #$C504
     jsl $E10000
 MEND

 MACRO
&lab _MapPt
&lab ldx #$8A04
     jsl $E10000
 MEND

 MACRO
&lab _MapRect
&lab ldx #$8B04
     jsl $E10000
 MEND

 MACRO
&lab _MapRgn
&lab ldx #$8C04
     jsl $E10000
 MEND

 MACRO
&lab _Move
&lab ldx #$3B04
     jsl $E10000
 MEND

 MACRO
&lab _MovePortTo
&lab ldx #$2204
     jsl $E10000
 MEND

 MACRO
&lab _MoveTo
&lab ldx #$3A04
     jsl $E10000
 MEND

 MACRO
&lab _NewRgn
&lab ldx #$6704
     jsl $E10000
 MEND

 MACRO
&lab _NotEmptyRect
&lab ldx #$5204
     jsl $E10000
 MEND

 MACRO
&lab _ObscureCursor
&lab ldx #$9204
     jsl $E10000
 MEND

 MACRO
&lab _OffsetPoly
&lab ldx #$C404
     jsl $E10000
 MEND

 MACRO
&lab _OffsetRect
&lab ldx #$4B04
     jsl $E10000
 MEND

 MACRO
&lab _OffsetRgn
&lab ldx #$6F04
     jsl $E10000
 MEND

 MACRO
&lab _OpenPicture
&lab ldx #$B704
     jsl $E10000
 MEND

 MACRO
&lab _OpenPoly
&lab ldx #$C104
     jsl $E10000
 MEND

 MACRO
&lab _OpenPort
&lab ldx #$1804
     jsl $E10000
 MEND

 MACRO
&lab _OpenRgn
&lab ldx #$6D04
     jsl $E10000
 MEND

 MACRO
&lab _PaintArc
&lab ldx #$6304
     jsl $E10000
 MEND

 MACRO
&lab _PaintOval
&lab ldx #$5904
     jsl $E10000
 MEND

 MACRO
&lab _PaintPixels
&lab ldx #$7F04
     jsl $E10000
 MEND

 MACRO
&lab _PaintPoly
&lab ldx #$BD04
     jsl $E10000
 MEND

 MACRO
&lab _PaintRect
&lab ldx #$5404
     jsl $E10000
 MEND

 MACRO
&lab _PaintRgn
&lab ldx #$7A04
     jsl $E10000
 MEND

 MACRO
&lab _PaintRRect
&lab ldx #$5E04
     jsl $E10000
 MEND

 MACRO
&lab _PenNormal
&lab ldx #$3604
     jsl $E10000
 MEND

 MACRO
&lab _PicComment
&lab ldx #$B804
     jsl $E10000
 MEND

 MACRO
&lab _PPToPort
&lab ldx #$D604
     jsl $E10000
 MEND

 MACRO
&lab _Pt2Rect
&lab ldx #$5004
     jsl $E10000
 MEND

 MACRO
&lab _PtInRect
&lab ldx #$4F04
     jsl $E10000
 MEND

 MACRO
&lab _PtInRgn
&lab ldx #$7504
     jsl $E10000
 MEND

 MACRO
&lab _Random
&lab ldx #$8604
     jsl $E10000
 MEND

 MACRO
&lab _RectInRgn
&lab ldx #$7604
     jsl $E10000
 MEND

 MACRO
&lab _RectRgn
&lab ldx #$6C04
     jsl $E10000
 MEND

 MACRO
&lab _RestoreBufDims
&lab ldx #$CE04
     jsl $E10000
 MEND

 MACRO
&lab _SaveBufDims
&lab ldx #$CD04
     jsl $E10000
 MEND

 MACRO
&lab _ScalePt
&lab ldx #$8904
     jsl $E10000
 MEND

 MACRO
&lab _ScrollRect
&lab ldx #$7E04
     jsl $E10000
 MEND

 MACRO
&lab _SectRect
&lab ldx #$4D04
     jsl $E10000
 MEND

 MACRO
&lab _SectRgn
&lab ldx #$7104
     jsl $E10000
 MEND

 MACRO
&lab _SetAllSCBs
&lab ldx #$1404
     jsl $E10000
 MEND

 MACRO
&lab _SetArcRot
&lab ldx #$B004
     jsl $E10000
 MEND

 MACRO
&lab _SetBackColor
&lab ldx #$A204
     jsl $E10000
 MEND

 MACRO
&lab _SetBackPat
&lab ldx #$3404
     jsl $E10000
 MEND

 MACRO
&lab _SetBufDims
&lab ldx #$CB04
     jsl $E10000
 MEND

 MACRO
&lab _SetCharExtra
&lab ldx #$D404
     jsl $E10000
 MEND

 MACRO
&lab _SetClip
&lab ldx #$2404
     jsl $E10000
 MEND

 MACRO
&lab _SetClipHandle
&lab ldx #$C604
     jsl $E10000
 MEND

 MACRO
&lab _SetColorEntry
&lab ldx #$1004
     jsl $E10000
 MEND

 MACRO
&lab _SetColorTable
&lab ldx #$0E04
     jsl $E10000
 MEND

 MACRO
&lab _SetCursor
&lab ldx #$8E04
     jsl $E10000
 MEND

 MACRO
&lab _SetEmptyRgn
&lab ldx #$6A04
     jsl $E10000
 MEND

 MACRO
&lab _SetFont
&lab ldx #$9404
     jsl $E10000
 MEND

 MACRO
&lab _SetFontFlags
&lab ldx #$9804
     jsl $E10000
 MEND

 MACRO
&lab _SetFontID
&lab ldx #$D004
     jsl $E10000
 MEND

 MACRO
&lab _SetForeColor
&lab ldx #$A004
     jsl $E10000
 MEND

 MACRO
&lab _SetGrafProcs
&lab ldx #$4404
     jsl $E10000
 MEND

 MACRO
&lab _SetIntUse
&lab ldx #$B604
     jsl $E10000
 MEND

 MACRO
&lab _SetMasterSCB
&lab ldx #$1604
     jsl $E10000
 MEND

 MACRO
&lab _SetOrigin
&lab ldx #$2304
     jsl $E10000
 MEND

 MACRO
&lab _SetPenMask
&lab ldx #$3204
     jsl $E10000
 MEND

 MACRO
&lab _SetPenMode
&lab ldx #$2E04
     jsl $E10000
 MEND

 MACRO
&lab _SetPenPat
&lab ldx #$3004
     jsl $E10000
 MEND

 MACRO
&lab _SetPenSize
&lab ldx #$2C04
     jsl $E10000
 MEND

 MACRO
&lab _SetPenState
&lab ldx #$2A04
     jsl $E10000
 MEND

 MACRO
&lab _SetPicSave
&lab ldx #$3E04
     jsl $E10000
 MEND

 MACRO
&lab _SetPolySave
&lab ldx #$4204
     jsl $E10000
 MEND

 MACRO
&lab _SetPort
&lab ldx #$1B04
     jsl $E10000
 MEND

 MACRO
&lab _SetPortLoc
&lab ldx #$1D04
     jsl $E10000
 MEND

 MACRO
&lab _SetPortRect
&lab ldx #$1F04
     jsl $E10000
 MEND

 MACRO
&lab _SetPortSize
&lab ldx #$2104
     jsl $E10000
 MEND

 MACRO
&lab _SetPt
&lab ldx #$8204
     jsl $E10000
 MEND

 MACRO
&lab _SetRandSeed
&lab ldx #$8704
     jsl $E10000
 MEND

 MACRO
&lab _SetRect
&lab ldx #$4A04
     jsl $E10000
 MEND

 MACRO
&lab _SetRectRgn
&lab ldx #$6B04
     jsl $E10000
 MEND

 MACRO
&lab _SetRgnSave
&lab ldx #$4004
     jsl $E10000
 MEND

 MACRO
&lab _SetSCB
&lab ldx #$1204
     jsl $E10000
 MEND

 MACRO
&lab _SetSolidBackPat
&lab ldx #$3804
     jsl $E10000
 MEND

 MACRO
&lab _SetSolidPenPat
&lab ldx #$3704
     jsl $E10000
 MEND

 MACRO
&lab _SetSpaceExtra
&lab ldx #$9E04
     jsl $E10000
 MEND

 MACRO
&lab _SetStdProcs
&lab ldx #$8D04
     jsl $E10000
 MEND

 MACRO
&lab _SetSysField
&lab ldx #$4804
     jsl $E10000
 MEND

 MACRO
&lab _SetSysFont
&lab ldx #$B204
     jsl $E10000
 MEND

 MACRO
&lab _SetTextFace
&lab ldx #$9A04
     jsl $E10000
 MEND

 MACRO
&lab _SetTextMode
&lab ldx #$9C04
     jsl $E10000
 MEND

 MACRO
&lab _SetTextSize
&lab ldx #$D204
     jsl $E10000
 MEND

 MACRO
&lab _SetUserField
&lab ldx #$4604
     jsl $E10000
 MEND

 MACRO
&lab _SetVisHandle
&lab ldx #$C804
     jsl $E10000
 MEND

 MACRO
&lab _SetVisRgn
&lab ldx #$B404
     jsl $E10000
 MEND

 MACRO
&lab _ShowCursor
&lab ldx #$9104
     jsl $E10000
 MEND

 MACRO
&lab _ShowPen
&lab ldx #$2804
     jsl $E10000
 MEND

 MACRO
&lab _SolidPattern
&lab ldx #$3904
     jsl $E10000
 MEND

 MACRO
&lab _StringBounds
&lab ldx #$AD04
     jsl $E10000
 MEND

 MACRO
&lab _StringWidth
&lab ldx #$A904
     jsl $E10000
 MEND

 MACRO
&lab _SubPt
&lab ldx #$8104
     jsl $E10000
 MEND

 MACRO
&lab _TextBounds
&lab ldx #$AF04
     jsl $E10000
 MEND

 MACRO
&lab _TextWidth
&lab ldx #$AB04
     jsl $E10000
 MEND

 MACRO
&lab _UnionRect
&lab ldx #$4E04
     jsl $E10000
 MEND

 MACRO
&lab _UnionRgn
&lab ldx #$7204
     jsl $E10000
 MEND

 MACRO
&lab _XorRgn
&lab ldx #$7404
     jsl $E10000
 MEND



; File: M16.Scheduler
;
;
; Copyright Apple Computer, Inc. 1986, 1987
; All Rights Reserved
;
;

 MACRO
&lab _SchBootInit
&lab ldx #$0107
     jsl $E10000
 MEND

 MACRO
&lab _SchStartUp
&lab ldx #$0207
     jsl $E10000
 MEND

 MACRO
&lab _SchShutDown
&lab ldx #$0307
     jsl $E10000
 MEND

 MACRO
&lab _SchVersion
&lab ldx #$0407
     jsl $E10000
 MEND

 MACRO
&lab _SchReset
&lab ldx #$0507
     jsl $E10000
 MEND

 MACRO
&lab _SchStatus
&lab ldx #$0607
     jsl $E10000
 MEND

 MACRO
&lab _SchAddTask
&lab ldx #$0907
     jsl $E10000
 MEND

 MACRO
&lab _SchFlush
&lab ldx #$0A07
     jsl $E10000
 MEND

; File: M16.Sound
;
;
; Copyright Apple Computer, Inc. 1986, 1987
; All Rights Reserved
;
;

 MACRO
&lab _SoundBootInit
&lab ldx #$0108
     jsl $E10000
 MEND

 MACRO
&lab _SoundStartUp
&lab ldx #$0208
     jsl $E10000
 MEND

 MACRO
&lab _SoundShutDown
&lab ldx #$0308
     jsl $E10000
 MEND

 MACRO
&lab _SoundVersion
&lab ldx #$0408
     jsl $E10000
 MEND

 MACRO
&lab _SoundReset
&lab ldx #$0508
     jsl $E10000
 MEND

 MACRO
&lab _SoundToolStatus
&lab ldx #$0608
     jsl $E10000
 MEND

 MACRO
&lab _FFGeneratorStatus
&lab ldx #$1108
     jsl $E10000
 MEND

 MACRO
&lab _FFSoundDoneStatus
&lab ldx #$1408
     jsl $E10000
 MEND

 MACRO
&lab _FFSoundStatus
&lab ldx #$1008
     jsl $E10000
 MEND

 MACRO
&lab _FFStartSound
&lab ldx #$0E08
     jsl $E10000
 MEND

 MACRO
&lab _FFStopSound
&lab ldx #$0F08
     jsl $E10000
 MEND

 MACRO
&lab _GetSoundVolume
&lab ldx #$0C08
     jsl $E10000
 MEND

 MACRO
&lab _GetTableAddress
&lab ldx #$0B08
     jsl $E10000
 MEND

 MACRO
&lab _ReadRamBlock
&lab ldx #$0A08
     jsl $E10000
 MEND

 MACRO
&lab _SetSoundMIRQV
&lab ldx #$1208
     jsl $E10000
 MEND

 MACRO
&lab _SetSoundVolume
&lab ldx #$0D08
     jsl $E10000
 MEND

 MACRO
&lab _SetUserSoundIRQV
&lab ldx #$1308
     jsl $E10000
 MEND

 MACRO
&lab _WriteRamBlock
&lab ldx #$0908
     jsl $E10000
 MEND

; File: M16.Textool
;
;
; Copyright Apple Computer, Inc. 1986, 1987
; All Rights Reserved
;
;

 MACRO
&lab _TextBootInit
&lab ldx #$010C
     jsl $E10000
 MEND

 MACRO
&lab _TextStartUp
&lab ldx #$020C
     jsl $E10000
 MEND

 MACRO
&lab _TextShutDown
&lab ldx #$030C
     jsl $E10000
 MEND

 MACRO
&lab _TextVersion
&lab ldx #$040C
     jsl $E10000
 MEND

 MACRO
&lab _TextReset
&lab ldx #$050C
     jsl $E10000
 MEND

 MACRO
&lab _TextStatus
&lab ldx #$060C
     jsl $E10000
 MEND

 MACRO
&lab _CtlTextDev
&lab ldx #$160C
     jsl $E10000
 MEND

 MACRO
&lab _ErrWriteBlock
&lab ldx #$1F0C
     jsl $E10000
 MEND

 MACRO
&lab _ErrWriteChar
&lab ldx #$190C
     jsl $E10000
 MEND

 MACRO
&lab _ErrWriteCString
&lab ldx #$210C
     jsl $E10000
 MEND

 MACRO
&lab _ErrWriteLine
&lab ldx #$1B0C
     jsl $E10000
 MEND

 MACRO
&lab _ErrWriteString
&lab ldx #$1D0C
     jsl $E10000
 MEND

 MACRO
&lab _GetErrGlobals
&lab ldx #$0E0C
     jsl $E10000
 MEND

 MACRO
&lab _GetErrorDevice
&lab ldx #$140C
     jsl $E10000
 MEND

 MACRO
&lab _GetInGlobals
&lab ldx #$0C0C
     jsl $E10000
 MEND

 MACRO
&lab _GetInputDevice
&lab ldx #$120C
     jsl $E10000
 MEND

 MACRO
&lab _GetOutGlobals
&lab ldx #$0D0C
     jsl $E10000
 MEND

 MACRO
&lab _GetOutputDevice
&lab ldx #$130C
     jsl $E10000
 MEND

 MACRO
&lab _InitTextDev
&lab ldx #$150C
     jsl $E10000
 MEND

 MACRO
&lab _ReadChar
&lab ldx #$220C
     jsl $E10000
 MEND

 MACRO
&lab _ReadLine
&lab ldx #$240C
     jsl $E10000
 MEND

 MACRO
&lab _SetErrGlobals
&lab ldx #$0B0C
     jsl $E10000
 MEND

 MACRO
&lab _SetErrorDevice
&lab ldx #$110C
     jsl $E10000
 MEND

 MACRO
&lab _SetInGlobals
&lab ldx #$090C
     jsl $E10000
 MEND

 MACRO
&lab _SetInputDevice
&lab ldx #$0F0C
     jsl $E10000
 MEND

 MACRO
&lab _SetOutGlobals
&lab ldx #$0A0C
     jsl $E10000
 MEND

 MACRO
&lab _SetOutputDevice
&lab ldx #$100C
     jsl $E10000
 MEND

 MACRO
&lab _StatusTextDev
&lab ldx #$170C
     jsl $E10000
 MEND

 MACRO
&lab _TextReadBlock
&lab ldx #$230C
     jsl $E10000
 MEND

 MACRO
&lab _TextWriteBlock
&lab ldx #$1E0C
     jsl $E10000
 MEND

 MACRO
&lab _WriteChar
&lab ldx #$180C
     jsl $E10000
 MEND

 MACRO
&lab _WriteCString
&lab ldx #$200C
     jsl $E10000
 MEND

 MACRO
&lab _WriteLine
&lab ldx #$1A0C
     jsl $E10000
 MEND

 MACRO
&lab _WriteString
&lab ldx #$1C0C
     jsl $E10000
 MEND

; File: M16.ALIAS
;
;
; Copyright Apple Computer, Inc. 1986
; All Rights Reserved
;


; Memory Manager Aliases

 MACRO
&lab _DisposHandle
&lab ldx #2+256*16
 jsl $E10000
 MEND


; QuickDraw Aliases

 MACRO
&lab _PenSize
&lab ldx #4+256*44
 jsl $E10000
 MEND
 
 MACRO
&lab _PenMode
&lab ldx #4+256*46
 jsl $E10000
 MEND
 
 MACRO
&lab _PenPat
&lab ldx #4+256*48
 jsl $E10000
 MEND
 
 MACRO
&lab _BackPat
&lab ldx #4+256*52
 jsl $E10000
 MEND
 
 MACRO
&lab _TextFace
&lab ldx #4+256*154
 jsl $E10000
 MEND
 
 MACRO
&lab _TextMode
&lab ldx #4+256*156
 jsl $E10000
 MEND
 
 MACRO
&lab _SpaceExtra
&lab ldx #4+256*158
 jsl $E10000
 MEND

 MACRO
&lab _TextSize
&lab ldx #4+256*210
 jsl $E10000
 MEND



	MACRO
&lab	_SysDeath
&lab	ldx #$1503
	jsl $E10000
	MEND

	MACRO
&lab	_SysDeathMgr
&lab	ldx #$1503
	jsl $E10000
	MEND

	MACRO
&lab	_SystemDeath
&lab	ldx #$1503
	jsl $E10000
	MEND

; File: M16.NoteSyn 
; 
; 
; Copyright Apple Computer, Inc. 1986, 1987, 1988 
; All Rights Reserved 
; 
; 

 MACRO 
&lab _NSBootInit 
&lab ldx #$0119 
     jsl $E10000 
 MEND 

 MACRO 
&lab _NSStartUp 
&lab ldx #$0219 
     jsl $E10000 
 MEND 

 MACRO 
&lab _NSShutDown 
&lab ldx #$0319 
     jsl $E10000 
 MEND 

 MACRO 
&lab _NSVersion 
&lab ldx #$0419 
     jsl $E10000 
 MEND 

 MACRO 
&lab _NSReset 
&lab ldx #$0519 
     jsl $E10000 
 MEND 

 MACRO 
&lab _NSStatus 
&lab ldx #$0619 
     jsl $E10000 
 MEND 

 MACRO 
&lab _AllocGen 
&lab ldx #$0919 
     jsl $E10000 
 MEND 

 MACRO 
&lab _DeallocGen 
&lab ldx #$0A19 
     jsl $E10000 
 MEND 

 MACRO 
&lab _NoteOn 
&lab ldx #$0B19 
     jsl $E10000 
 MEND 

 MACRO 
&lab _NoteOff 
&lab ldx #$0C19 
     jsl $E10000 
 MEND 

 MACRO 
&lab _AllNotesOff 
&lab ldx #$0D19 
     jsl $E10000 
 MEND 

 MACRO 
&lab _NSSetUpdateRate 
&lab ldx #$0E19 
     jsl $E10000 
 MEND 

 MACRO 
&lab _NSSetUserUpdateRtn 
&lab ldx #$0F19 
     jsl $E10000 
 MEND 

	PRINT POP
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Animation/anim.data.aii b/IIGS.601.SRC/GSToolbox/Animation/anim.data.aii
new file mode 100644
index 0000000..c2b08e3
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Animation/anim.data.aii
@@ -0,0 +1 @@
+*******************************************************************************
* Game.Data.aii
*
* (C)  Copyright Two guys and a cabbage	software 1988
* All rights reserved.
*
* by Mensch and Williamson
* 7/18/88
*
* This is a data segment definition for	GAME! It will start	with 4K of variables
* These variables will not have initial	vaues  (other than 0 that is). The
* remaining 28K will be devoted to variables that can be initialized to a value
* as desired.
*
* Files:    None
*
*
*
* Modification History:
*
* Version 1.0   Mensch and Williamson
*
*      7/18/88  Initial release
*
* -------------------------------------------------------------------------
* 4/16/90	Mensch
* Started 5.0.3 conversion work today in this file
*
* 
*******************************************************************************
	Include 'Anim.Globals'
	seg 'GLOBALDATA'
Dummy	proc
	dc.L Dummy
	EndP
SetMyDataBank	proc Export
;
; This proc makes the globals data bank the current data bank for this application
; This way any time you want to use our data bank you simply call SetMyDataBank
	phk
	plb
	rtl
	nop
	EndP
;
; This next record is the standard global data used by this application
Globals	Record Export
	ds GlobalsTemplate
EndOfStdData
	ds.B $4000-(EndOfStdData-Globals)
	EndR
	
Constants	Record Export
theMessage	dc.B 'You found me!',0
TitleString	dc.B 'Apple IIgs Game ',0
AutString	dc.B 'By Jim Mensch and Steve Williamson',0

MethMasks	dc.b %01010101, %11111111, %01010101

DirMasks	dc.b %01111100, %11111000, %11110001, %11100011
	dc.b %11000111, %10001111, %00011111, %00111110
	dc.b %11111111
Cascade	dc.W $0001,$0002,$0004,$0008,$0010,$0020,$0040,$0080
	dc.W $0100,$0200,$0400,$0800,$1000,$2000,$4000,$8000

WandShotCost	dc.W 1,2,3,4,1,2,3,4,1,2,3,4,1,2,3,4	; price of each wand shot
WandShotDam	dc.W 1,2,3,4,2,3,4,5,3,4,5,6,4,5,6,7	; amount of damage each wand inflicts
EndOfConst	
Padding 	ds.B $2000-(EndOfConst-Constants)	; padd us out to the end of the bank
	Endr
;
; NOTE At this point in the file I have used $6000 bytes of my global storage
ExtraData	Record Export
	Export MyBackSaveArea
MyBackSaveArea	ds.B $8000
MyBackGrafPort	ds.B $0100	; area for grafport storage ...
StrikeArea	ds.B $1EF0
	EndR
	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Animation/anim.equates b/IIGS.601.SRC/GSToolbox/Animation/anim.equates
new file mode 100644
index 0000000..e77b52f
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Animation/anim.equates
@@ -0,0 +1 @@
+*******************************************************************************
* Game.Equates
*
* (C)  Copyright Two guys and a cabbage software 1988
* All rights reserved.
*
* by Mensch and Williamson 
* 7/16/88
*
* This file contains equates used in all the GAME files.
*
* Files:	System equates and macros
*
*
*
* Modification History:
*
* Version 1.0	Mensch
*
*      7/16/88	Initial release
*
*      3/13/89	Mensch and Williamson
*	Merged and added milestone equates
*
*******************************************************************************

;
;   Equates for milestone tracking
;

Clue1Visited1	equ 0	    ;0 the first 3 flags are used
Clue1Shotem	equ Clue1Visited1+1     ;1   to track Sped's interaction
Clue1Done	equ Clue1Shotem+1       ;2   with the old man sector in Map 1.

Map1ShotDoor1	equ Clue1Done+1	    ;3 Shot door has been shot

MiniQuest	equ Map1ShotDoor1+1	    ;4 Sped has completed the miniQuest
WizTouchedCrystal	equ MiniQuest+1	    ;5
WizShotSchnoz	equ WizTouchedCrystal+1 ;6
WizIgnoreAlive	equ WizShotSchnoz+1	    ;7
WizZimbucktoo	equ WizIgnoreAlive+1    ;8

DragonVisited	equ WizZimbucktoo+1	    ;9

TouchedSignPost	equ DragonVisited+1     ;10
TouchedPlantSign	equ TouchedSignPost+1     ;11
TouchedPlantBefore	equ TouchedPlantSign+1    ;12
StoleSpeedPotion	equ TouchedPlantBefore+1  ;13

JailDoorOpened	equ StoleSpeedPotion+1  ;14
ReleasedPrisoner	equ JailDoorOpened+1    ; 15

SnozSpiritTalked	equ ReleasedPrisoner+1  ;16

PhosphateDead	equ SnozSpiritTalked+1  ; 17
SpedHasWeb	equ PhosphateDead+1     ; 18

VisitedRightOasis 	equ SpedHasWeb+1	    ; 19
SpedHasWrongSand	equ VisitedRightOasis+1 ; 20
SpedHasRightSand	equ SpedHasWrongSand+1  ; 21
LandSharkDead	equ SpedHasRightSand+1  ; 22

; More to be added above


;
;   Equates to reference into the Sector data structure
;

SectTerrain	equ 0
SectMonLevel	equ 100
SectMonType	equ 102
SectNumMons	equ 104
SectLastExit	equ 106
SectDelay	equ 110
SectDestN	equ 114
SectDestS	equ 116
SectDestW	equ 118
SectDestE	equ 120
SectDestX	equ 122
SectType	equ 124
SectAltData	equ 126
SectColor	equ 254
SectFudgeColor	equ 254
SectSize	equ 256

;
;   Equates into Monster definition
;
MonsBBank	equ $8	; bank monster bmaps loaded into

MonsName	equ 0	; Pascal string [79]
MonsType	equ $50
MonsTreasChance	equ $52
MonsTreasType	equ $54
MonsLevel	equ $5C
MonsMoveMeth	equ $5E
MonsHoming	equ $60
MonsProjectile	equ $62
MonsHitPoint	equ $64
MonsContactDam	equ $66
MonsShotDamage	equ $68
MonsSpeed	equ $6A
MonsFlags	equ $6C
MonsMiscData	equ $6E
MonsSize	equ $80

;
;   File types for the Load file routines
;

FTMap	equ $00
FTPallet	equ $01
FTColor	equ $02
FTMonster	equ $03
FTBitMap	equ $04
FTSound	equ $05
;
;   Monster file offsets
;
MBMNumChars	equ $0000
MBMCharIndex	equ $0002
MBMShotIndex	equ $007A
MBMObjIndex	equ $00F2

; Into each character record offsets are
MBMCHeight	equ $00
MBMCWidth	equ $02
MBMTable	equ $04
MBMMaskTable	equ $08
MBMCEastst	equ $0C
MBMCEastend	equ $0E
MBMCWestst	equ $10
MBMCWestend	equ $12
MBMCNorthst	equ $14
MBMCNorthend	equ $16
MBMCSouthst	equ $18
MBMCSouthend	equ $1A
MBMCShootE	equ $1C
MBMCShootW	equ $1E
MBMCShootN	equ $20
MBMCShootS	equ $22
MBMMonsSize	equ $24

;
;   Directional Equates
;
DIRNorth	equ $1
DIRNorthEast	equ $2
DIREast	equ $3
DIRSouthEast	equ $4
DIRSouth	equ $5
DIRSouthWest	equ $6
DIRWest	equ $7
DIRNorthWest	equ $8
DIRFade	equ $9

;
;   Movement equates
Walking	equ $0
Flying	equ $1
Swimming	equ $2

;
;   Special Sector command dispatch types
;
NoAction	equ 0	; no action should be taken
NewSector	equ 1	; sped should enter	sector in <X>
AddHP	equ 2	; sped gains <X> hit points
AddHPMax	equ 3	; sped HPMax increases by <X>
AddWandPt	equ 4	; Sped gets <X> more wand pts
AddTreasure	equ 5	; sped adds <X> treasure
GetMore	equ $8000	; special sector routine needs to be called again!
;
; Special sector command codes
SSectInit	equ 0
SSpecShutDown	equ 1
SSectCheckForMons	equ 2
SSectSpedHit	equ 3
SSectShotHit	equ 4
SSectMonsDead	equ 5
SSectIdle	equ 6
SSectMonShotHit	equ 7    
SSectMonHit	equ 8
;

; Parameter offsets into AltData to pass info into special sectors.
Param0	equ 0
Param1	equ 2
Param2	equ 4
Param3	equ 6
Param4	equ 8
;
; CColFlags values..
StageCollide	equ $8000
ActorCollide	equ $4000

MyIntVector	equ $000A	; interupt vector to steal...
;
;   Direct Page equates for the whole program
;
CXPosOff	equ $0	; Direct page offsets
CYPosOff	equ CXPosOff+2	; 2
CCurPOff	equ CYPosOff+2	; 4
CMinPOff	equ CCurPOff+2	; 6
CMaxPOff	equ CMinPOff+2	; 8
CDXOff	equ CMaxPOff+2	; A
CDYOff	equ CDXOff+2	; C
CIterOff	equ CDYOff+2	; E
CCursOff	equ CIterOff+2	; 10 ; doesn't seem to be used in the toolkit yet..
; Alternate useage for the  collision info area..
cColFlags	equ CCursOff	; 10
CXCenter	equ CCursOff+2	; 12
CYCenter	equ CXCenter+2	; 14
CEndOfVars	equ CYCenter+2	; 16
CHeightOff	equ CEndOfVars	; 16
CWidthOff	equ CHeightOff+2	; 18
CFTabOff	equ CWidthOff+2	; 1A
CMTabOff	equ CFTabOff+4	; 1E
CharTSize	equ CMTabOff+4	; 22
CNorthPhase	equ CharTSize	; 22
CEastPhase	equ CNorthPhase+4	; 26
CSouthPhase	equ CEastPhase+4	; 2a
CWestPhase	equ CSouthPhase+4	; 2c
CShootPhase	equ CWestPhase+4	; 30
CDirOff	equ CShootPhase+8	; 38
CSpeedOff	equ CDirOff+2	; 3a
CCoLInfo	equ CSpeedOff+2	; 3C
SizeOfAnimRec	equ CCoLInfo+4	; 40
;
;
LinePt	equ $30
InvPalArry	equ $34
MyBitMap	equ $38
CSectPt	equ $3C
DeRef	equ $40
TheMap	equ $44
PalletArry	equ $48
ScreenTab	equ $4C
PassChar	equ $50	; current character	we workin with
theChar	equ $54
CharNum	equ $58
AnimState	equ $5A
ZPHandle	equ $60
ZPPointer	equ $64
MonsPtr	equ $68
theMonNum	equ $70
;theMons	equ $72
;
BackGnd	equ $B0
BackPtr	equ $B4
MyPointer	equ $BC
; General Animation Tool Equates start here:
ZPMemID	equ  $E0	; application callers ID
AppPatchArea	equ  $E2	; pointer to patch zone inside of the app
StageRect	equ  $E4
StageRectTop	equ  $E4
StageRectLeft	equ  $E6
StageRectbottom	equ  $E8
StageRectRight	equ  $EA
CallTemps	equ  $F0	; 16 bytes for any toolkit call to utilize..
;
; Collision flags area..

; Animation toolset script language commands and equates
ScriptEnd	equ 0
GotoItem	equ 1
MoveRel	equ 2
MoveAbs	equ 3
SetVariable	equ 4
IncVariable	equ 5
DecVariable	equ 6
IfVariable	equ 7
KillChar	equ 8
; More to come later..
;
; Animation Toolset Errors
ToolCallHighNum	equ $2500
NotSupportedCall	equ $2501	; used when a not yet implemented feature is used
AlreadyStarted	equ $2502	; if starting already started tool
BadParm	equ $2503	; if passing a bad parm to the tool
ToolNotStarted	equ $2504	; if using before starting
ToolExplosion	equ $2505	; Direct page link error. FATAL!
ToolNeeded	equ $2506	; qdnot started (or other tool)
TockListOverflow	equ $2510	; exceeded the maximum number of tock tasks.
ShadowReg	equ $E0C035	; register that turns on shadowing

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Animation/anim.globals b/IIGS.601.SRC/GSToolbox/Animation/anim.globals
new file mode 100644
index 0000000..13de986
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Animation/anim.globals
@@ -0,0 +1 @@
+*******************************************************************************
* Game.Globals
*
* (C)  Copyright Two guys and a cabbage	software 1988
* All rights reserved.
*
* by Mensch and Williamson
* 7/18/88
*
* This is the record template to be used when dealing with the globals segment
*
*
* Files:	
	print push,off
	Include 'AIIGSRecords.AII'
	print pop
*
*
*
* Modification History:
*
* Version 1.0   	Mensch
*
* Add Exception flags here...
*******************************************************************************

MonsRecord	Record 0
; This is a template for monster data it reflects the storage format of each
; monster record in the gamexxxx.MON file.
Type	ds.B 2	; monster type defeined by steve
		; Bit 15 = a treasure
		; Bit 14 = Special Monster
TreasChance	ds.B 2	; chance this guy will leave one of the treasures
TreasType	ds.B 8	; 4 integers showing which treasures can be left
Level	ds.B 2	; monsters level, used by random monster generator
MoveMeth	ds.B 2	; 0=Walking 1=flying 2=swimming
Homing	ds.B 2	; Monsters intelligence class, tells how monster moves
Projectile	ds.B 2	; 0= no shots 0<> means shoots
HP	ds.B 2	; number of HP monsters of this type start with
Damage	ds.B 2	; amount of damage done when monster touches sped
ShotDamage	ds.B 2	; amount of damage done when monster shoots sped
Speed	ds.B 2	; speed to move this monster (!!!!! Not implemented yet !!!!!!)
Flags	ds.B 2	; bit 15 = collision flag

DontUse	ds.B 2	; room to grow this record
	EndR

MapMgrRecord	Record 0
; used to allocate our table of map handles. Each entry in this table
; will corospond to a map number. Currently, we will allow up to 32 maps,
; but we may need more in the future.
thisMapData	ds.L 1
thisMapColor	ds.L 1
thisMapPallet	ds.L 1
thisMapMons	ds.L 1
	EndR
	
TockTask	Record 0
; Used with time manager to pace things that occur in this game. 
Count	ds.W 1	; countdown to firing this task...
ID	ds.W 1	; ID of the task to perform
Data	ds.L 1	; Reference constant for the task
Ptr	ds.L 1	; If the task needs to jump somewhere
Spare	ds.L 1	; used by Jim in time manager...
	ENDR
	
KillRectRecord	Record 0
xPosition	ds.W 1
yPosition	ds.W 1
width	ds.W 1
height	ds.W 1
	EndR
	
AnimRecordTemplate	Record 0
; Template for use when importing any of the monster anim record data
; Why didn't I think of this sooner????
ARTXPosOff	ds.W 1	; Direct page offsets
ARTYPosOff	ds.W 1	; 2
ARTCurPOff	ds.W 1	; 4
ARTMinPOff	ds.W 1	; 6
ARTMaxPOff	ds.W 1	; 8
ARTDXOff	ds.W 1	; A
ARTDYOff	ds.W 1	; C
ARTIterOff	ds.W 1	; E
ARTCursOff	ds.W 1	; 10
ARTXCenter	ds.W 1	; 12
ARTYCenter	ds.W 1	; 14
ARTHeightOff	ds.W 1	; 16
ARTWidthOff	ds.W 1	; 18
ARTFTabOff	ds.L 1	; 1A
ARTMTabOff	ds.L 1	; 1E
ARTNorthPhase	ds.L 1	; 22
ARTEastPhase	ds.L 1	; 26
ARTSouthPhase	ds.L 1	; 2a
ARTWestPhase	ds.L 1	; 2c
ARTShootPhase	ds.L 2	; 30
ARTDirOff	ds.W 1	; 38
ARTSpeedOff	ds.W 1	; 3a
ARTCoLInfo	ds.L 1	; 3C
	EndR
	
; This record is how sectors are stored in the MAPxxxx file
SectRecord	Record 0
Terrain	ds.B 100	; array 10x10 of bytes. each byte represents a pallet number
MonLevel	ds.B 2	; level of most common monster in this sector
MonType	ds.B 2	; monster type for this sector 0=random
NumMons	ds.B 2	; number of monster for this sector 0=no monsters
LastExit	ds.B 4	; game time when sped last left this sector
Delay	ds.B 4	; tocks before sector regenerates
DestN	ds.B 2	; dest sector when exiting 0= noexit, high byte new map #
DestS	ds.B 2	; same as DestN only south
DestW	ds.B 2	;   "   "   "     "  west
DestE	ds.B 2	;   "   "   "     "  east
DestX	ds.B 2	;   "   "   "     "  going thru the special exit (if exists)
Type	ds.B 2	; special sector type.
AltData	ds.B 128	; special sector data do not use
Color	ds.B 2	; color table to use with this sector
	EndR
	
GlobalsTemplate	Record 0
MenuHeight	ds.W 1	; number of pixels above the sector display
WHeight	ds.W 1	; height of the sector display
MHeight	ds.W 1	; Menuheight+wHeight
GlobalAZP	DS.W 2	; address of the real direct page (in case we forget)
oldIntVector	ds.L 1	; saved by start game stuff and restored at the finish

MainSwitch	ds.W 2	; data used by startup selector high bit set means no selection screen

MyBackPtr	DS.L 1	; pointer to Background storage area
MyBackHandle	DS.L 1	; handle of background storage area
SavedScrnTab	DS.L 1	; pointer to scan line table from _GetAddr quickdraw function
PalletHandle	ds.B 4	; handle to the current maps pallet array 
InvPalHandle	ds.B 4	; handle to flipped pallet array
MapHandle	ds.B 4	; handle to MAPxxxx file data
MonsHandle	ds.B 4	; handle to MAPxxxx.MON file data
DebugPtr	ds.B 4	; used by debugger????
DebugFlg	ds.B 2	; used by debugger????
CHARTBLHANDLE	ds.B 4	; handle to the characeter table from monsBMap file
TempData	ds.B 2	; temp used ??????????
BugFlag	ds.B 2	; used allow/disallow animation
MonsDataBegin	ds.B 2	; !!!!!!!
WhichShot	ds.B 2	; !!!!!!!
;
;   Special Sector data used by mainline game code for calling special sectors
;
SpecX	ds.B 2	; special square x/y location
SpecY	ds.B 2
SpecRoutine	ds.B 4	; address of the routine to call
SpecFlag	ds.B 2	; flag to indicate that a special sector was entered
;
cursorFlag	DS.W 1	; NOT USED REMOVE ME????????????
ScrollDir	DS.W 1	; direction for special scrolling effect
;
; Sped global info
; Any data that appears between SpedInfoLoc and SpedInfoSize will be saved in the sped
; innfo file when the game wants to save that file.
SpedInfoLoc	equ *
SpedInfo	ds.W 1	; start of SpedInfoData
theSector	DS.W 1	; current sector sped is in
SpedCurMap	ds.B 2	; the current map sped is in
SpedDir	ds.B 2	; the direction sped is moving
SpedSpd	ds.B 2	; speed table index for sped

SpedSpeedMod	ds.W 1	; speed adjustment for Sped
SpedMoveMeth	ds.W 1	; Sped's current movement method.
SpedLastMoveMeth	ds.W 1	;  Sped's previous movement method (used to see if we
		;   we need to change Sped's bitmap)

SpedX	ds.B 2	; speds current x square???????
SpedY	ds.B 2	; speds current y square ?????
SpedLevel	ds.B 4	; experience level of sped
SpedHitPt	ds.B 2	; number of hit points sped currently has
AvailWeapons	ds.W 1	; bit flags for speds weapons
SpedCurWeapon	ds.W 1	; current Weapon Sped is using
SpedProtect	ds.W 1	; sped invulnerable counter (TestCollide)
SpedHPMax	ds.B 2	; maximum hit points for sped
WandPts	ds.W 1	; number of wand pts sped has
TempAnimState	ds.W 1	; used by the animation routines
SpedFlags	ds.W 1	; Flags that we can use as needed, here is the list:
		;    Bit 0 = Sped's Speed Mod under external control
		;              (Not just hit points)
;
; The following data area is for the use of the BSpell routines
;
CurBSpell	ds.W 1	; number of the current BSpell
BSpellFlags	ds.L 1	; flags showing which bspells sped has.
;
;
;

; Info used to start sped off in the right place ...
LastSpedDir	ds.W 1	; direction sped was going when the game stopped
LastSpedX	ds.W 1	; pixel x when game stopped
LastSpedY	ds.W 1	; pixel Y when game stopped

MileStones	ds.B 128	; Used to track what Sped has accomplished

SpedInfoSize	equ *-SpedInfoLoc	; SizeOf SpedInfo Data block
;
;
; Sector Monster's information
;
CurMonType	ds.B 2	; monster type for this sector
CurMoveMeth	ds.B 2	; monsters movement method
CurMonsShot	ds.B 2	; monster shot type
NumMons	ds.B 2	; used in moveaccounting
MLvl	ds.B 2	; used in moveaccounting
MType	ds.B 2	; used in moveaccounting
MoveMeth	ds.B 2	; used in moveaccounting
TempValue	ds.B 2	; used in moveaccounting for temp storage
		; also used in testcollide for temp work
CurMonRec	ds.W 1	; used by routines to store an offset to one
		;  of the monsters MonsExtra record
		

;

QuitFlag	ds.W 1	; set $FFFF when you want to quit game
QuitParms	DS.L 1	; used by _quit so go back to finder
	DS.W 1
	DS.W 1

WindPointer	ds.L 1	; my window pointer. NOT USED ?????????

Trigger	ds.W 1	; animation trigger used by main loop to know when to draw
GameTime	ds.L 1	; MasterGameclock, updated by triggertask right now...
TockTasks	ds TockTask	; array of tock task pointers used by the game...
	ds TockTask
	ds TockTask
	ds TockTask
	ds TockTask
	ds TockTask
	ds TockTask
	ds TockTask
	ds TockTask
	ds TockTask
	ds TockTask
	ds TockTask
	ds TockTask
	ds TockTask
	ds TockTask
	ds TockTask
	
EventRecord		; used by main loop to communicate with spedcmnd
EventWhat	ds.B 2
EventMessage	ds.B 4
EventWhen	ds.B 4
EventWhere	ds.B 4
EventModifiers	ds.B 2
TaskData	ds.B 4
TaskMask	DS.L 1

tRect	ds.B 8	; ????????????????????????????????
MyRect	ds.B 8	; ????????????????????????????????

SoundFlag	ds.W 1	; Global sound flag, low word- foreground
BKSoundFlag	ds.W 1	; high word, background volume
MyID	ds.W 1	; memory manager ID of this app
MyZP	ds.W 1	; My zero page storage
tempZP	ds.W 1	; used to store direct page temporarily ???????????????????

LPCount	ds.B 2	; temp variable used by jim somehow ???????????
hSize	ds.B 4	; ?????????????????????????????????
TempMPO	ds.B 6	; Used by MakePalOffset as temp storage
TempRect	ds.B 8	; ?????????????????????????????????
tempInt	ds.B 2	; ?????????????????????????????????
ColorHandle	ds.B 4	; handle of our color table??????????
tempCount	ds.B 2	; ?????????????????????????????????
tempVert	ds.B 2	; ?????????????????????????????????
AvailDirs	ds.b 2	; directions sped/mons can move ?????????????????

DestSqType	ds.b 2	; used as destination square type in move accounting
DestSqType2	ds.b 2	;  used for X2's destination square type in move accounting
TempCnt	ds.B 2	; ?????????????????????????????????
StartX	ds.B 2	; where sped will start on new sector ?????????
StartY	ds.B 2	; ??????????????????????????????????
SqX	ds.B 2	; used by move accounting ?????????????	
SqY	ds.B 2	; used by move accounting ?????????????
MoveType	ds.B 2	; ?>????????????????????????????????
StartDir	ds.B 2	; Starting direction for sped???????
PossDirs	ds.B 2	; possible dirs for sped to move ?????????
BopFlag	ds.B 2	; are we currently bopping???????????
BoxArray	ds.B 130	; array to stuff the boxes in for test collide
AltBoxArray	
SpecBox	ds.B 16	; alternate objects or special sector door
BopBox	ds.B 16	; collision box for the bopper
AltBoxPtr	ds.B 16	; routine ptrs for alt objects ??????????????
CurRects	ds Rect	; Containers for current collision rectangles for each char
	ds.b 128	; room for 17 rectangles
NextRects	ds Rect
	ds.B 128	; container for future collision rectangles.
; these next vars are used by test collide when testing collision rectangles
; no one else should touch them
Bv1	ds.B 2	
Bh1	ds.B 2
Bv2	ds.B 2
Bh2	ds.B 2
Cv1	ds.B 2
Ch1	ds.B 2
Cv2	ds.B 2
Ch2	ds.B 2

;

HpDispValue	ds.B 2	; to be used by ShowExpHP ????????
MonsHPArray	ds.B 16	; hit points for all the monsters
MonsMaxHP	ds.B 2	; maximum hits for curmons
MCTemp	ds.W 1	; ????????????????????????????
tempLocInfo	ds LocInfo 	; locinfo record used when calling pptoport everywhere
MonsExtra	ds MonsRecord	; storage for extra mons data
MonsExtra1	ds MonsRecord	; see monster record template above
MonsExtra2	ds MonsRecord
MonsExtra3	ds MonsRecord
MonsExtra4	ds MonsRecord
MonsExtra5	ds MonsRecord
MonsExtra6	ds MonsRecord
MonsExtra7	ds MonsRecord

CurMonsOff	ds.B 2	; Offset to current MonsRec

MaphandleTable	ds MapMgrRecord
	ds.B 31*16	; the rest of the table!
	
;
; Area for temp storage for BSpells
;
; Kill rects indicator boxes.
; NOTE: these rects do not correspond to any real monster numbers, they are just some dirty
;       rectangles.
KillState	ds.W 1	; indicates which rects are in use..
KillRects	ds KillRectRecord	; rectangles that indicate which area's to erase
	ds.W 4*16	; remaining kill rects..
; NOTE: This data MUST be at the end of the globals record at all times!
; Game.Setup data here. All this data will be contained in the file game.setup
GameSetupBlock
HisKeyTable	ds.B 64	; area for storage of custom key table...
SndPrefix	ds.B 128	; area to hold prefix for sound files
MapPrefix	ds.B 128	; area to hold prefix for map files
OtherData	ds.B 64	; spare file space
SetupLength	equ *-HisKeyTable	; Size of Game.setup file
;
;
; ANIM Toolset Data area follows:
StartMode	ds.L 1
AppMemID	ds.W 1
AnimDPage	ds.W 1
SceneMode	ds.W 1
MasterSCB	ds.W 1
;
; Script StorageArea
ScriptPtrs	ds.L 16	; room for all the scripts that are possible
scItemData	equ *
	ds.B 16
sciNextItem	equ scItemData+2	; For GOTOCMD
sciDirection	equ scItemData+2	; For MOVEREL & MOVEABS
sciItterations	equ sciDirection+2
sciSpeed	equ sciItterations+2
sciNextY	equ sciSpeed+2
sciNextX	equ sciNextY+2
sciExceptionNum	equ scItemData+2	; For SETEXCEPTION
sciExceptionLine	equ sciExceptionNum+2
sciRtnAddress	equ scItemData+2	; for CALLBACK
sciParameter2	equ sciRtnAddress+4	
; Script header data
CurrentScriptLine	equ 0
ScriptCFlags	equ CurrentScriptLine+2
StageException	equ ScriptCFlags+2	; 4
CharException	equ StageException+2 ;6
ForeException	equ CharException+2	; 8
OffStageExcept	equ ForeException+2	; 10
ScriptVar1	equ OffstageExcept+2 ;12
ScriptVar2	equ ScriptVar1+2	; 14
;
; Script Vareable area is here!
; Address Table to be copied to the application data area..
;
; Toolset call temporary area
CTempLong	ds.L 1
cTempWord	ds.W 1
CTemparray	ds.L 16
;
	EndR

ConstTemplate	Record $0
theMessage	ds.B 14	; our startup message and also special debug area "you found me"
TitleString	DS.B 17	; title of our game
AutString	DS.B 35	; jim and steve's name
MethMasks	ds.b 3	; movement method masks
DirMasks	ds.b 9	; directional masks for move accounting
Cascade	ds.W 16	; the 16 single bit positions waiting to be indexed
WandShotCost	ds.W 16	; price of each wand shot
WandShotDam	ds.W 16	; amount of damage each wand inflicts
	EndR

ExtraDataTemplate	Record $0
MyBackSaveArea	ds.B $8000
MyBackGrafPort	ds.B $0100	; area for grafport storage ...
StrikeArea	ds.B $1EF0
	EndR
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Animation/anim.macros b/IIGS.601.SRC/GSToolbox/Animation/anim.macros
new file mode 100644
index 0000000..c872b39
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Animation/anim.macros
@@ -0,0 +1 @@
+*************************************************************************
* Macros used in Game
* ©1989 Two guys and a cabbage software
*
* 2/4/89	Mensch
*	Made kill macro stack based...
*
* 3/13/89	Mensch & Williamson
*	Merged. Added NewStartChar Macro
*
*************************************************************************
	MACRO
&Lab	OldStChar &CNum,&MinP,&MaxP,&x,&y
&Lab	lda &CNum
	sta $80
	lda &MinP
	sta $82
	lda &MaxP
	sta $84
	lda &x
	sta $86
	lda &y
	sta $88
	jsl StartChar
	MEND

	MACRO
&Lab	OldStartCH &CNum,&Dir,&x,&y
&Lab	lda &CNum
	sta $80
	lda &Dir
	sta $82
	lda #$8000
	sta $84
	lda &x
	sta $86
	lda &y
	sta $88
	jsl StartChar
	MEND

	MACRO
&Lab	NewStartCH &CNum,&MinP,&MaxP,&x,&y
&Lab	PushWord &y
	PushWord &x
	PushWord &MaxP
	PushWord &MinP
	PushWord &CNum
	jsl StartStackChar
	MEND

	MACRO
&Lab	StChar &CNum,&MinP,&MaxP,&x,&y
&Lab	PushWord &y
	PushWord &x
	PushWord &MaxP
	PushWord &MinP
	PushWord &CNum
	jsl StartStackChar
	MEND

	MACRO
&Lab	StartCH &CNum,&Dir,&x,&y
&Lab	PushWord &y
	PushWord &x
	PEA $8000
	PushWord &Dir
	PushWord &CNum
	jsl StartStackChar
	MEND

	MACRO
&Lab	MvChar &CNum,&dx,&dy,&I
&Lab	lda &CNum
	sta $80
	lda &dx
	sta $82
	lda &dy
	sta $84
	lda &i
	sta $86
	jsl MoveChar
	MEND

	Macro
&Lab	OldMoveCH &CNum,&Speed,&I
&Lab	lda &CNum
	sta $80
	lda &Speed
	sta $82
	lda #$8000
	sta $84
	lda &i
	sta $86
	jsl MoveChar
	MEnd

	MACRO
&Lab	MoveCH &CNum,&Speed,&I
&Lab	PushWord &I
	PEA $8000
	PushWord &Speed
	PushWord &CNum
	jsl MoveStackChar
	MEnd
	
	MACRO
&Lab	Kill &CNum
&Lab	PushWord &CNum
	jsl DoKill
	MEND

	MACRO
&Lab	InitChar &CNum,&theChar
&Lab	lda &CNum
	sta $80
	lda &theChar
	sta $82
	MEND

	MACRO
&Lab	Stz4 &x
&Lab	stz &x
	stz &x+2
	MEND

	MACRO
&Lab	LoadActor
&Lab	jsl LoadAChar
	MEND


	MACRO
&Lab	Debug &Marker,&x,&y
&Lab	pha
	pea 0
	PushWord &y
	PushWord &x
	pea &Marker
	jsl GameDebug
	MEND

	MACRO
	ProcHdr &ProcName
	GBLA &procDebugFlag
	IF &ProcDebugFlag THEN
	  pha
	  pea 0
	  pea @2>>16
	  pea @2
	  pea $7FFF
	  jsl GameDebug
	  bra @1
@2	  dc.B &procName,0
@1
	ENDIF
	MEND

	MACRO
&Lab	ProcDB &ProcNum,&x,&y
	GBLA &procDebugFlag
	IF &ProcDebugFlag THEN
&Lab	  pha
	  pea 0
	  PushWord &y
	  PushWord &x
	  pea &ProcNum
	  jsl GameDebug
	ENDIF
	MEND

	MACRO
&Lab	DebugL &Marker,&x
&Lab	pha
	pea 1
	PushLong &x
	pea &Marker
	jsl GameDebug
	MEND

	MACRO
&Lab	DebugStr &Marker,&String
&Lab	pha
	pea $8000
	PushLong #&String
	pea &Marker
	jsl GameDebug
	MEND

	MACRO
&Lab	BneL &destination
&Lab	beq  *+5
	brl  &Destination
	MEND

;	MACRO
;&Lab	BeqL &destination
;&Lab	bne  *+5
;	brl  &Destination
;	MEND

;	MACRO
;&Lab	BplL &destination
;&Lab	bmi  *+5
;	brl  &Destination
;	MEND

;	MACRO
;&Lab	BmiL &destination
;&Lab	bpl  *+5
;	brl  &Destination
;	MEND
;
;	MACRO
;&Lab	BccL &destination
;&Lab	bcs  *+5
;	brl  &Destination
;	MEND

	MACRO
&Lab	BcsL &destination
&Lab	bcc  *+5
	brl  &Destination
	MEND

	MACRO
&Lab	ATimes2
&Lab	asl a
	MEND

	MACRO
&Lab	ATimes4
&Lab	asl a
	asl a
	MEND

	MACRO
&Lab	ATimes8
&Lab	asl a
	asl a
	asl a
	MEND

	MACRO
&Lab	ATimes16
&Lab	asl a
	asl a
	asl a
	asl a
	MEND

	MACRO
&Lab	ATimes6
&Lab	asl a
	pha
	asl a
	clc
	adc 1,s
	sta 1,s
	pla
	MEND

	MACRO
&Lab	ATimes10
&Lab	ATimes2
	pha
	ATimes4
	clc
	adc 1,s
	sta 1,s
	pla
	MEND
	
	MACRO
&Lab	UnlinkRTL &NumBytes
	sep #$20	; now get the return address
	Longa Off
	pla	; and save it
	ply	; pull 3 byte return address

	LCLA &cntr	; define a var
&cntr	SETA 00	; init to zero
	WHILE &cntr<(&NumBytes/2) DO
	  plx
	  &cntr: SETA &cntr+1
	ENDWHILE

	phy
	pha
	rep #$20
	LongA On	; stack frame is now adjusted
	MEND
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/AppleTalk/aptalk.aii b/IIGS.601.SRC/GSToolbox/AppleTalk/aptalk.aii
new file mode 100644
index 0000000..5efda2b
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/AppleTalk/aptalk.aii
@@ -0,0 +1 @@
+*******************************************************************************
*
* File: APTALK
*
* This file contains the 65816 implementation of DDP for the Apple IIGS.
*
* Copyright Apple Computer, 1986
* Original Author: Ed Lai, Greg Seitz
*
*******************************************************************************
*
* Modification History
*
* 8/8/88    TGH   - Started working on RevD ROM
*
*
*
*******************************************************************************

	MACHINE M65816
	PRINT GEN

*	org CodeBank+$343A	          ;Old ROM location
*	keep /ram4/lib/aptalk         ;Old assembler directive

	IMPORT ADispatch
	IMPORT GoComp
	IMPORT LAPRead
	IMPORT lattachprot
	IMPORT lforbid
	IMPORT lpermit
	IMPORT restoreZP
	IMPORT saveZP

	ENTRY AddName
	ENTRY DoWrtDDP
	ENTRY GetName
;	ENTRY NBPlisten
;	ENTRY RTMPTimer
;	ENTRY RTMPlisten
	ENTRY calcleng
	ENTRY calclng1
	ENTRY calcnmln
;	ENTRY checkvalidentity
	ENTRY discard
	ENTRY getlisten
;	ENTRY nbperror
	entry checkvalidtype

;-------------------------------------------------------------------------------
;	Global Equates 
;-------------------------------------------------------------------------------

CodeBank	equ $ff0000
ramdata	equ $E1D000

;-------------------------------------------------------------------------------
;	General ZP usage
;-------------------------------------------------------------------------------

cmndlist	equ $80
execaddr	equ cmndlist+4
zpCurBuf	equ execaddr+4

;-------------------------------------------------------------------------------
;	DDP parameters
;-------------------------------------------------------------------------------

ldlength	equ 0
ldchksum	equ 2
lddnet	equ 4
ldsnet	equ 6
lddnode	equ 8
ldsnode	equ 9
lddsckt	equ 10
ldssckt	equ 11
ldprotocol	equ 12
buf_len	equ 2
buf_cksum	equ 4
buf_dest	equ 6
buf_data	equ 9

;-------------------------------------------------------------------------------
;	Common RAM usage
;-------------------------------------------------------------------------------

lapdest	equ CodeBank+$D000	; packet header info
lapsrce	equ lapdest+1
lapprot	equ lapsrce+1
ddphead	equ lapprot+1
thisnet	equ ddphead+13	; this network number
ourNode	equ thisnet+2	; this node number
abridge	equ OurNode+1	; bridge node number
tmpNBPPtr	equ abridge+1	; pointer to buffer, pass from DDP to NBP
DDPRAM	equ tmpNBPPtr+2

;-------------------------------------------------------------------------------
;	Commands for other modules
;-------------------------------------------------------------------------------

LapWrtCmd	equ $0700
InstTimCmd	equ $0480
RmvTimCmd	equ $0500
OpnSktCmd	equ $0B00
CnclTmCmd	equ $4500

;-------------------------------------------------------------------------------
;
; Equates from procedure WriteDDP
;
;-------------------------------------------------------------------------------

;
; RAM usage
;
wddphead	equ DDPRAM
;
wdlapcmnd	equ wddphead+13	; write lap command
wdlaprslt	equ wdlapcmnd+2
wdlapdest	equ wdlaprslt+2
wdlaptype	equ wdlapdest+1
wdlapwds	equ wdlaptype+1
wdddpmax	equ wdlapwds+4
;
tempnet	equ wdddpmax+2	; temp area for RTMP
bridgebit	equ tempnet+2
tempbridge	equ bridgebit+1
;
lastIndex	equ tempbridge+1	; socket listener table
listentable	equ lastIndex+2
dynamtable	equ listentable+512
;
RTMPTmCmd	equ dynamtable+512	; RTMP timer
RTMPTmTsk	equ RTMPTmCmd+4
RTMPTmTimer	equ RTMPTmTsk+6
RTMPEnd	equ RTMPTmTimer+6

;-------------------------------------------------------------------------------
;
; Equates for NBP
;
;-------------------------------------------------------------------------------

; RAM usage for NBP

nbpwrarea	equ RTMPEnd	; DDP parameter for	NBP lookup
nbpchksmf	equ nbpwrarea
nbpdnet	equ nbpchksmf+1
nbpdnode	equ nbpdnet+2
nbpdsckt	equ nbpdnode+1
nbpssckt	equ nbpdsckt+1
nbpprot	equ nbpssckt+1
nbpwrtab	equ nbpprot+1
outnbp	equ nbpwrtab+4	; lkup with 1 tuple
outnbpid	equ outnbp+1	; NBP ID to identify transaction
nbpentity	equ outnbpid+1	; entity during lookup
nbpptrsave	equ nbpentity+5	; current active NBP command
nbpwds	equ nbpptrsave+4	; wds for reply
entitylen	equ nbpwds+12	; part of wds that points to entity name
entityadr	equ entitylen+2
nbpwdsend	equ entityadr+4	; wds end flag (should be FFFF)
tuplect	equ nbpwdsend+2	; number of tuples in packet
NBPTmCmd	equ tuplect+1	; NBP timer
NBPTmTsk	equ NBPTmCmd+4
NBPTmTime	equ NBPTmTsk+6
namelist	equ NBPTmTime+6	; list head for registered name
rptupcount	equ namelist+4	; NBP header during	reply
replyNID	equ rptupcount+1
nbprptable	equ replyNID+1	; 4 tuples, 1 empty	1 NID + FFFF marker
NBPEnd	equ nbprptable+38

; command number

NBPREGN	equ $0E	; name register
NBPLKUP	equ $10	; name look up
NBPCFRM	equ $11	; name reply

; parameters

CmEntAdr	equ 8
CmTimOut	equ 12
CmRetry	equ 13
CmTimLft	equ 14
CMTryLft	equ 15
CmRsbSiz	equ 16	; for look up, buffer size
CmRsbAdr	equ 18
CmMaxrsp	equ 22
CmRspCnt	equ 23
CmCfmNet	equ 16	; for confirm, network number
CmCfmNode	equ 18
CmCfmSckt	equ 19
CmCfmActSkt	equ 20
CmRegSkt	equ 16	; for register, socket number
CmSetIt	equ 17	; if nonzero, don't check name
CmRmvEntity	equ 4

; ZP usage

tblptr	equ cmndlist+4
nbpbfptr	equ cmndlist+8
nbprcvct	equ cmndlist+12
nameleng	equ cmndlist+12
regsckt	equ cmndlist+12
regenum	equ cmndlist+13
nbptbdisp	equ cmndlist+11
tempy1	equ cmndlist+12
tempy2	equ cmndlist+13
tempChar	equ cmndlist+3

; errors

toomanynames	equ $401
duplname	equ $402
wrongName	equ $403
buffull	equ $404
badName	equ $406
diffsckt	equ $407
manyNBP	equ $408
NBPaborted	equ $409
BadParamBlock	equ $40A

	MACRO
	USE16BIT
	LONGA ON
	LONGI ON
	rep #$30
	MEND

	MACRO
	USE8BIT
	LONGA OFF
	LONGI OFF
	sep #$30
	MEND

	MACRO
	USE16M
	LONGA ON
	LONGI OFF
	rep #$20
	MEND

	MACRO
	use16X
	LONGA OFF
	LONGI ON
	rep #$10
	MEND

	MACRO
	_16BIT16M
	LONGA ON
	LONGI OFF
	sep #$10
	MEND

	MACRO
	IS16BIT
	LONGA ON
	LONGI ON
	MEND

	MACRO
	IS8BIT
	LONGA OFF
	LONGI OFF
	MEND

	MACRO
	IS16M
	LONGA ON
	LONGI OFF
	MEND

	MACRO
	UpChar
	cmp #'a'
	bcc *+8
	cmp #'z'+1
	bcs *+4
	and #$DF
	MEND

	MACRO
	BANK0ENTRY
	pea $E1E1
	plb
	plb
	MEND

;_______________________________________________________________________________

DDPWrite	PROC EXPORT

; ZP equs

wdsadr	equ cmndlist+4
databuf	equ cmndlist+8
wdchksmf	equ cmndlist+11
tmpcksum	equ cmndlist+12

; paramters in write DDP

CmChkSum	equ 4
CmDstNet	equ 5
CmDstNode	equ 7
CmDstSckt	equ 8
CmSrcSckt	equ 9
CmProtTyp	equ 10
CmWDS	equ 11


; the following constant is incorrect in the rom, it has a bad value of 587 so we need
; to patch the write routine to get the	correct value.
; This has been fixed in ROM 2.

maxDDPp1	equ 600	; max number of bytes in long DDP packet + 1
maxDDPps	equ 592	; max number of bytes in short DDP packet + 1

; error equs   

tablefull	equ $301
scktnotopen	equ $302
socketopen	equ $303
badsocket	equ $304
largeDDP	equ $305
nobridge	equ $306

sdlength	equ 0
sddsckt	equ 2
sdssckt	equ 3
sdprotocol	equ 4

;...............................................................
;
; Write DDP packet,	use command list
;
;...............................................................

	IS16BIT
	ldy #CmProtTyp
	lda [cmndlist],y
	and #$00ff	; only want 1 byte
	bne ddpwrite1	; not zero, so valid
	lda #badsocket	; report the error
	bra wderr_1
ddpwrite1		; 
	ldy #CmDstSckt
	lda [cmndlist],y	; get destination socket
	jsr checkvalidtype	; see if it is ok
	bcs wderr_1	; no it isn't
	ldy #CmSrcSckt
	lda [cmndlist],y
	jsr checkvalidtype	; see if it is ok
	bcs wderr_1	; no it isn't
	jsr getlisten	; is socket open ?
	beq wderr	; socket not found
	ldx cmndlist
	ldy cmndlist+2
	jsr DoWrtDDP
	bra wderr_1
wderr	lda #scktnotopen	; else error
wderr_1	ldy #2
	sta [cmndlist],y
	rtl
	
;...............................................................
;
; checkvalidtype
; checks the socket passed in the low
; byte of the accumulator to see if it
; is in the valid range
; 
; returns carry clear if it is ok
; returns with carry set and error in accum if not ok
;
;...............................................................

	entry checkvalidtype  ;EXPORT -> ENTRY **TGH
checkvalidtype
	and #$00ff
	beq @checkfail	; the check failed
	cmp #$00ff	; see if $ff
	beq @checkfail	; yes, so set error code an leave
	clc	; no error
	rts
@checkfail	sec	; an error occurred
	lda #badsocket	; so return invalid socket type
	rts
	
;
;...............................................................
;
;  Internal write DDP routine, (Y,X) points to command list
;    result returns	in Acc
;
;...............................................................

	IS16BIT
	entry DoWrtDDP	;EXPORT -> ENTRY **TGH
DoWrtDDP		;       ; make a ddp packet and write it out
	stx databuf
	sty databuf+2
	jsr lforbid
	_16BIT16M
	ldy #CmWds
	lda [databuf],y
	sta wdsadr
	sta |wdlapwds
	ldy #CmWds+2
	lda [databuf],y
	sta wdsadr+2
	sta |wdlapwds+2
	ldy #CmDstNet
	lda [databuf],y	; get newtwork #
	beq wrtshort	; 0 is local
	cmp |thisnet
	bne wrtlong	; another net
wrtshort	lda #5	; short DDP header is 5 byte
	sta [wdsadr]
	xba	; reverse of 6502 convention 
	sta |wddphead+sdlength
	lda #maxDDPps	; get max short packet size
	sta |wdddpmax	; and save for later compare
	USE8BIT
	ldy #CmDstNode
	lda [databuf],y
	sta |wdlapdest
	iny
	lda [databuf],y
	sta |wddphead+sddsckt
	ldy #CmSrcSckt
	lda [databuf],y
	sta |wddphead+sdssckt
	iny
	lda [databuf],y
	sta |wddphead+sdprotocol
	ldx #1
	stx |wdlaptype	; short ddp is type	1
	stz wdchksmf	; never do checksum	on short ddp
	USE16M
	bra wddp_2
wrtlong	lda #13	; long atp header is 13 bytes
	sta [wdsadr]
	xba	; reverse of 6502 convention
	sta |wddphead+ldlength
	lda #maxDDPp1	; get max long packet size
	sta |wdddpmax	; and save for later compare
	ldy #CmDstNet
	lda [databuf],y
	sta |wddphead+lddnet
	lda |thisnet
	sta |wddphead+ldsnet
	USE8BIT
	ldy #CmDstNode
	lda [databuf],y
	sta |wddphead+lddnode
	iny
	lda [databuf],y
	sta |wddphead+lddsckt
	lda |ournode
	sta |wddphead+ldsnode
	ldy #CmSrcSckt
	lda [databuf],y
	sta |wddphead+ldssckt
	iny
	lda [databuf],y
	sta |wddphead+ldprotocol
	USE16M
	ldx #2
	stx |wdlaptype	; long ddp is protocol 2
	stz |wddphead+ldchksum ; assume no checksum
	ldy #CmChkSum
	lda [databuf],y
	tax	; make into 8 bits
	stx wdchksmf
	beq wddp_0
	lda #wddphead+4
	sta databuf	; calculate checksum of ddp header
	ldx #^ramdata
	stx databuf+2
	stz tmpcksum
	lda #9
	jsr calcchksum
wddp_0	lda |thisnet	; do we have a netwokr # ?
	beq wddp_1a	; no, send to node  
	ldx |abridge	; do we have a bridge
	bne wddp_1b	; then send it to bridge
	USE16BIT
	lda #nobridge
	jmp wddp_8
	IS16M
wddp_1a	ldx |wddphead+lddnode ; else send it to	node in same net
wddp_1b	stx |wdlapdest	; send to bridge or	node
wddp_2	ldy #2	; copy our header addr to first 4 byte of wds
	lda #wddphead
	sta [wdsadr],y
	ldy #4
	lda #^ramdata
	sta [wdsadr],y
wddp_4	clc	; first adjust for size of datagram header
	lda #6
	adc wdsadr
	sta wdsadr
	lda [wdsadr]
	bmi wddp_6	; end of list reached
	clc
	lda |wddphead+sdlength
	xba	; convention is opposite of 6502
	adc [wdsadr]
	cmp |wdddpmax	; too many bytes?
	blt wddp_4A	; size still OK
	USE16BIT
	lda #largeDDP	; else error
	bra wddp_8
	IS16M
wddp_4A	xba
	sta |wddphead+sdlength
	ldx wdchksmf
	beq wddp_4	; no need to calculate checksum
	ldy #2
	lda [wdsadr],y
	sta databuf
	ldy #4
	lda [wdsadr],y
	tax	; 8 bits
	stx databuf+2	; 24 bit address
	lda [wdsadr]	; get size
	jsr calcchksum
	bra wddp_4
wddp_6	ldx wdchksmf	; done with list
	beq wddp_7	; no need to adjust	checksum
	lda tmpcksum
	bne wddp_6a
	dec A	; if zero use $FFFF
wddp_6a	xba	; appletalk conventin opps of 6502
	sta |wddphead+ldchksum
wddp_7		; 
	USE16BIT
	lda #LapWrtCmd
	sta |wdlapcmnd
	ldx #wdlapcmnd
	ldy #^ramdata
	jsr ADispatch
	lda |wdlaprslt	; get back error
wddp_8	jsr lpermit
	rts
;...............................................................
;
;  calculate checksum for a number of bytes
;  running checksum	in tmpcksum
;  buffer point to by databuf
;  byte count in Acc
;...............................................................
;
	IS16M
calcchksum		; 
	USE16BIT
	ldy #0
	tax	; number of bytes
	inx
chksum_0	dex
	beq chksum_9
	lda [databuf],y
	and #$00FF
	clc
	adc tmpcksum
	clc
	bpl chksum_1
	sec
chksum_1	rol A
	sta tmpcksum
	iny
	bra chksum_0
chksum_9		; 
	_16BIT16M
	rts

;...............................................................
;
;  open a DDP socket using parameter list  
;...............................................................

	IS16BIT

CmOSKSkt	equ 4
CmOSKLst	equ 5

	EXPORT openskt
openskt		;       
	USE8BIT
	ldy #CmOSKSkt
	lda [cmndlist],y
	USE16BIT
	bmi opnskt_6	; dynamic may not be fixed
	bne opnskt_3	; well known, then try it
	ldx |lastIndex	; dynamic, generate	one
opnskt_1	inx
	inx
	inx
	inx
	cpx #127*4
	bcc opnskt_2	; OK if less than max
	ldx #0
opnskt_2	cpx |lastIndex	; did we use it all
	beq opnskt_8	; yes
	bit |dynamtable+2,x	; is it occupied ?
	bmi opnskt_1	; yes, check more
	stx |lastIndex
	txa
	lsr a
	lsr a
	USE8BIT
	adc #$80	; find dynamic socket #
	ldy #CmOSKSkt
	sta [cmndlist],y
	USE16BIT
opnskt_3	and #$00FF
	asl a
	asl a
	tax
	lda #socketopen	; assume error
	bit |listenTable+2,X ; check if occupied for well known
	bmi opnskt_9	; yes, then error
	ldy #CmOSKLst
	lda [cmndlist],y
	sta |listentable,x
	iny
	iny
	lda [cmndlist],y
	ora #$8000
	sta |listentable+2,x
	lda #0
	bra opnskt_9
opnskt_6	lda #badsocket
	bra opnskt_9
opnskt_8	lda #tablefull
opnskt_9	ldy #2
	sta [cmndlist],y
	rtl

;...............................................................
;
;  close a DDP socket using parameter list  
;...............................................................
;

	IS16BIT

CmClsSkt	equ 4

	EXPORT closeskt
closeskt		;       
	ldy #CmClsSkt
	lda [cmndlist],y
	jsr checkvalidtype	; see if socket type is valid
	bcs clseddp_9	; return the error
	asl a
	asl a
	tax
	lda #scktnotopen	; assume error
	bit |listenTable+2,x ; check into table
	bpl clseddp_9	; no entry there, error
	stz |listenTable+2,x
clseddp_8	lda #0
clseddp_9	ldy #2
	sta [cmndlist],y
	rtl
;...............................................................
;
;  get listener address for a socket	    
;      socket in Acc
;      listener address return in Y,X (3 bytes only)
;      if no listener, zero flag is set
;...............................................................
;
	IS16BIT
	
	entry getlisten	;EXPORT -> ENTRY  **TGH
getlisten		;   

	EXPORT ddpcheckskt
ddpcheckskt		;       
	and #$00FF	; zero is illegal
	asl a
	asl a
	tax
	bit |listentable+2,x
	bpl nocontent
	ldy |listentable+2,x
	lda |listentable,x
	tax
	rep #02	; set nonzero flag
	rts
nocontent	ldx #0	; empty, return NIL
	txy
	rts
;...............................................................
;
;  read header part	of protocol into reserved memory        
;      size in Acc
;      buffer in in	X	  
;      carry set if	error
;...............................................................
	IS16BIT
readheader	ldy #^ramdata
	sec
	jsr LAPRead
	clc
	tay
	beq RdRts
	jsr discard
	sec
RdRts	rts
;...............................................................
;
;  discard the packet
;...............................................................
	IS16BIT
	entry discard	;EXPORT -> ENTRY  **TGH
discard		;       
	sec
	lda #$8000
	jmp lapread
;...............................................................
;
;  protocol handler	for short DDP
;...............................................................
	IS16BIT

	entry ShortDDP	;EXPORT -> ENTRY  **TGH
ShortDDP		;       
	jsr checkLength
	beq sddp_0
	jmp reject_2
sddp_0	clc
	lda #5+buf_data
	adc cmndlist
	sta |tmpNBPPtr
	lda #5
	ldx #ddphead
	jsr readheader	; read the DDP header
	bcc sddp_1
	rtl
sddp_1		; 
	_16BIT16M
	ldx #1	; short DDP is protocol 1
	stx |lapprot
	lda |ddphead+sddsckt ; since 16 bit inculde ssckt
	sta |ddphead+lddsckt ; since 16 bit inculde ssckt
	ldx |ddphead+sdprotocol
	stx |ddphead+ldprotocol
	ldx |lapdest
	stx |ddphead+lddnode
	ldx |lapsrce
	stx |ddphead+ldsnode
	stz |ddphead+ldsnet	; short ddp has zero net number
	stz |ddphead+lddnet	; ' '
	stz |ddphead+ldchksum ; zero out the checksum on short packet	
	bra readddp
;...............................................................
;
;  protocol handler	for long DDP
;...............................................................
	IS16BIT
	entry LongDDP	;EXPORT -> ENTRY  **TGH
LongDDP		;       
	jsr checkLength
	bne reject_2
	ldy #buf_data+ldchksum
	lda (cmndlist),y
	beq long_0
	xba
	ldy #buf_CkSum
	cmp (cmndlist),y
	bne reject_2
long_0	clc
	lda #13+buf_data
	adc cmndlist
	sta |tmpNBPPtr
	lda #13
	ldx #ddphead
	jsr readheader
	bcs rddpdone	; if error try next	packet
	_16BIT16M
	ldx #2	; long DDP is prot 2
	stx |lapprot
	lda |ddphead+lddnet
	beq long_1	; zero match anything
	cmp |thisnet	; filter out wrong net
	bne reject_1
long_1	ldx |ddphead+lddnode ; is it address to	us ?
	cpx |ournode
	beq readddp
	cpx #$FF	; is it broadcast
	bne reject_1
readddp	ldx |ddphead+lddsckt ; packet for which	socket
	beq reject_1	; type 0 not allowed
	txa
	USE16BIT
	jsr getlisten	; search the socket	table
	beq reject_2	; no listener
	stx execaddr
	tya
	and #$00FF	; mask off high byte
	sta execaddr+2
	ora execaddr	; any routine ?
	beq reject_2	; none, throw away packet
	lda #lapdest
	sta cmndlist
	jmp GoComp
rddpdone	rtl
;
	IS16M
reject_1		; 
	USE16BIT
reject_2	jsr discard
	rtl
;
; make sure packet is of right length
;
checkLength		; 
	BANK0ENTRY
	ldy #buf_dest
	lda (cmndlist),y
	sta |lapdest
	ldy #buf_data	; get header claim length
	lda (cmndlist),y
	xba
	and #$03FF
	ldy #buf_len
	cmp (cmndlist),y
	rts
;
;...............................................................
;
;  socket listener for RTMP     
;...............................................................
;
	entry RTMPlisten	;EXPORT -> ENTRY  **TGH
RTMPlisten		;       
	BANK0ENTRY
	lda |ddphead+ldprotocol ; RTMP is type 1
	and #$00FF
	cmp #1
	bne rtmp_8	; not RTMP, discard
	lda #4
	ldx #tempnet
	jsr readheader
	bcs rtmp_9	; if error, already	discarded
	USE8BIT
	lda |bridgebit
	cmp #8
	bne rtmp_7
	lda |tempbridge	; we can update bridge information
	sta |abridge
	USE16BIT
	lda |tempnet
	sta |thisnet
	lda #4*180	; we need 180 seconds since interrupts
	sta |RTMPTmTimer	; get turned off so	much...
	lda |RTMPTmCmd	; do we have a timer yet
	bne rtmp_8	; then no need to install one
	lda #InstTimCmd
	sta |RTMPTmCmd	; command for install
	lda #RTMPTimer
	sta |RTMPTmTsk
	lda #^RTMPTimer
	sta |RTMPTmTsk+2
	ldx #RTMPTmCmd
	ldy #^ramdata
	jsr ADispatch
rtmp_7		; 
	USE16BIT
rtmp_8	jsr discard	; disregard everything else
rtmp_9	rtl
;...............................................................
;
;  RTMP timer has expired, bridge information no longer valid     
;...............................................................
;

RTMPTimer		;       
	BANK0ENTRY
	USE8BIT
	stz |abridge
	USE16BIT
	stz |RTMPTmCmd	; no more RTMP timer
	rtl
	ENDP

;_______________________________________________________________________________

;...............................................................
;
;  NBP Name register		      
;...............................................................
;
nbpregname	PROC EXPORT    

	IS16BIT
	ldy #$10	; offset to socket number
	lda [cmndlist],y
	jsr checkvalidtype	; see if it is ok
	bcc @regoksofar	; no it isn't
@regbadskt	lda #diffsckt	; bad socket number
	brl NBPImdErr	; exit with error
@regoksofar
	jsr getlisten	; is socket open ?
	beq @regbadskt	; socket is not open, so error
	ldy #CmEntAdr
	lda [cmndlist],y
	clc
	adc #9
	sta nbpbfptr
	ldy #CmEntAdr+2
	lda [cmndlist],y
	adc #0	; add in any carry that might have happened
	sta nbpbfptr+2
	jsr checkvalidzentity ; check for all three fields as valid
	USE16BIT	; put back into 16 bit mode
	bcc checkSetIt	; name was valid 
rgnameisbad		; 
	lda #badName
	bra NBPImdErr
checkSetIt		; 
	USE8BIT
	ldy #CmSetIt
	lda [cmndlist],y
	USE16BIT
	beq checkfirst
	jsr GetName	; see if name already in table
	bne RegFail	; yes, so return error
	jsr AddName	; don't bother to check
	bra NBPImdErr	; store error that came back from add
checkfirst	jsr GetName	; is name alreay in	table
	beq NBPst1	; no then look in net
RegFail	lda #duplname
	bra NBPImdErr
NBPFail		; 
	USE16BIT
	lda #manyNBP
NBPImdErr	ldy #2
	sta [cmndlist],y
	jmp chkiocmp


checkvalidname		; ;checks to see if	the name passed with offset of y
	IS8BIT
	lda [nbpbfptr],y	;get length field
	beq nameisbad	;zero len names not	allowed
	cmp #33	;see if too large
	bcs nameisbad
	clc	;return no error
	rts
nameisbad	sec
	rts	;return with error

;	entry checkvalidentity  ; COMMENTED OUT  **TGH
checkvalidentity		;       
	USE8BIT
	ldy #0	;offset to name field
	jsr checkvalidname	;see if name is valid
	bcs checkvaliddone	;no, so return the error
	ldx #1	;find offset to type field
	ldy #0
	jsr calclng1	;find position of type field
	jsr checkvalidname
	bcs checkvaliddone	;type is bad
	ldx #1	;find offset to zone field
	jsr calclng1	;find position of zone field
	lda [nbpbfptr],y	;get length of zone field
	cmp #33	;see if too large (sets carry if it is)
checkvaliddone		; 
	rts	;will return with carry set if error
	
	entry checkvalidzentity  ; EXPORT -> ENTRY  **TGH
checkvalidzentity
	USE8BIT
	ldy #0	; points to entity name
	ldx #2	; skip two fileds	         
	jsr calclng1	; calulate length of first two fields
	tay
	USE16BIT
	lda [nbpbfptr],y
	cmp #$2A01	; zone must be '*'
	bne chkvzeisbad	; it was not '*' so	it is bad
	jsr checkvalidentity ;see if entity name is valid
	bcc chkvzereturn	; name is ok, so no	error yet
chkvzeisbad	sec	; indicate an error
chkvzereturn
	rts

BadNameErr		; 
	USE16BIT
	lda #badName
	bra NBPImdErr
;
;...............................................................
;
;  NBP Name Look Up			      
;...............................................................
;
;
	IS16BIT

	EXPORT nbplookup
nbplookup		;       
	ldy #CmRspCnt	; no reply received	yet
	bra preNBPsetup	; call NBP set up and return
;
;...............................................................
;
;  NBP Name Confirm			      
;...............................................................
;
;
	IS16BIT
	
	EXPORT nbpconfirm
nbpconfirm		;       
	ldy #CmCfmActSkt	; no socket received

preNBPsetup		; ;come here to set	nbpbfptr
	phy	;save previous offset
	ldy #CmEntAdr	;offset to entity name
	lda [cmndlist],y	;get low word
	sta nbpbfptr
	iny
	iny
	lda [cmndlist],y	;get high word
	sta nbpbfptr+2
	ply	;recover offset and	fall through
;
;...............................................................
;
; common routine between LookUp, Confirm and Register
;     they all send	out LKUP packets and wait for reply
;...............................................................
;
NBPsetup		; 
	USE8BIT
	lda #0
	sta [cmndlist],y
	USE16BIT
NBPst1		; 
	USE8BIT
	jsr checkvalidentity ;see if the entity	name is valid
	bcs BadNameErr	;no, so leave
	USE16BIT
	lda |nbpptrsave+1	; are we still doing another NBP operation ?
	beq @nbpnottoomuch	; we are ok
	jmp NBPFail	; NBP is already in use
@nbpnottoomuch
	jsr lforbid	; play it safe
	lda #$04FF	; make it busy
	ldy #2
	sta [cmndlist],y
	USE8BIT
	inc |outnbpid
	ldy #CmRetry
	lda [cmndlist],y	; retry count
	ldy #CMTryLft
	sta [cmndlist],y
	jsr NBPquery	; make the first query to the network
	USE16BIT
	lda cmndlist
	sta |nbpptrsave
	lda cmndlist+2
	sta |nbpptrsave+2
	jsr lpermit	; done, just wait for result
	rtl
;...............................................................
;
; NBP timeout, maybe time to resend packet or terminate command
; ZP used are those	used by dowrtddp
;...............................................................
;
	IS16BIT

NBPtimeout		;       
	BANK0ENTRY
	USE16M
	lda |nbpptrsave+1
	sta cmndlist+1
	beq Ntrts	; pointer nil, just	return
	USE8BIT
	lda |nbpptrsave
	sta cmndlist

	USE16BIT
	lda |NBPTmCmd+2
	cmp #$0106	;timer canceled?
	bne conttout	;branch if not.
	stz |NBPTmCmd	;our timer is out.
	lda #NBPaborted
	bra nbperror

conttout	USE8BIT
	ldy #CMTryLft
	lda [cmndlist],y
	beq querycmp	; all retry has been used, terminate command
	sec
	sbc #1
	sta [cmndlist],y
	jsr NBPquery	; send another LKUP
NtRts		; 
	USE16BIT
	rtl
; operation completed, request failed if CONFIRM, but succeed if REGISTER
;
	IS8BIT
querycmp	stz |NBPTmCmd	; since timer expired, no need to remove it
	stz |NBPTmCmd+1
	ldy #1
	lda [cmndlist],y
	cmp #NBPLKUP	; what operation ?
	USE16BIT
	beq nbpallOK	; look up, it is done
	bcs cfrmcmp	; confirm, then it has failed
	jsr AddName	; register and not duplicate, now we can put it up
	bra nbperror	; return error from	Add
nbpallOK	lda #0
	bra nbperror
cfrmcmp	lda #wrongName	; if to confirm, then it was not confirmed

	entry nbperror	; EXPORT -> ENTRY  **TGH
nbperror		;       
	ldy #2	; return asyn result byte and also set carry
	sta [cmndlist],y
	stz |nbpptrsave+1	; no more ongoing NBP operation
	lda |NBPTmCmd	; do we still have a timer
	beq chkiocmp	; if no, then do not remove
	lda #RmvTimCmd
	sta |NBPTmCmd	; command for remove 
	ldx #NBPTmCmd
	ldy #^ramdata
	jsr ADispatch
chkiocmp		; 
	lda [cmndlist]	;see if async mode
	xba	;we are concerned with the first byte
	xba	;so swap twice to get condition for low	byte set
	bpl nocomp	;get out, don't do completion
	ldy #4
	lda [cmndlist],y
	sta execaddr
	iny
	iny
	lda [cmndlist],y
	sta execaddr+2
	ora execaddr
	beq nocomp
	jmp GoComp	; go and execute I/O completion routine
nocomp		; 
	rtl
;...............................................................
;
; send out a LKUP packet
;...............................................................
	IS8BIT
NBPquery	ldy #CmTimOut
	lda [cmndlist],y
	ldy #CmTimLft
	sta [cmndlist],y
	lda #$21	; assume it is LKUP
	sta |outnbp
	ldy #1
	lda [cmndlist],y
	cmp #NBPCFRM
	USE16M
	beq nbptim_3	; confirm
	stz |nbpdnet	; it is just local,	zero dest net
	ldx |abridge	; do we have a bridge ?
	bne nbptim2A	; yes
	dex	; else broadcast
	bra nbptim2B
nbptim2A	ldy #$11	; go to bridge, command is BRRQ
	sty |outnbp
nbptim2B	stx |nbpdnode	; destination is bridge or broadcast
	bra nbptim_4
nbptim_3	ldy #CmCfmNet
	lda [cmndlist],y
	sta |nbpdnet	; copy dest net
	ldy #CmCfmNode
	lda [cmndlist],y
	tay
	sty |nbpdnode	; destination node
nbptim_4	ldy #2
	sty |nbpprot	; NBP is type 2
	sty |nbpssckt	; from socket 2
	sty |nbpdsckt	; to socket 2
	sty |nbpentity+3	; entity socket ; may not be needed
	lda |thisnet
	sta |nbpentity
	lda [cmndlist]
	xba
	tax
	ldy #CmEntAdr
	lda [cmndlist],y
	cpx #NBPREGN
	bne nbptim_5
	adc #8	; include carry is plus 9
	bra nbptim_6	; add in any carry
nbptim_5	clc	; if we came here we don't want to add any offset
nbptim_6	sta nbpbfptr
	sta |entityadr
	ldy #CmEntAdr+2
	lda [cmndlist],y
	adc #0	; add in any carry for bank crossing
	sta nbpbfptr+2
	sta |entityadr+2
	USE8BIT
	ldy #0
	jsr calcnmln
	sta |entitylen
	stz |entitylen+1
	lda |OurNode
	sta |nbpentity+2
	stz |nbpentity+4
	stz |nbpchksmf	; do not do checksum
	USE16BIT
	lda #nbpwds
	sta |nbpwrtab
	lda #^ramdata
	sta |nbpwrtab+2
	ldx #nbpwrarea-4
	ldy #^ramdata
	jsr DoWrtDDP
	ldy #CmTimOut
	lda [cmndlist],y
	and #$00FF
	sta |NBPTmTime
	lda #InstTimCmd	; install timer for	repeat query and timeout
	sta |NBPTmCmd
	lda #NBPTimeout
	sta |NBPTmTsk
	lda #^NBPTimeout
	sta |NBPTmTsk+2
	ldx #NBPTmCmd
	ldy #^ramdata
	jsr ADispatch
	USE8BIT
	rts	; OK, done
	ENDP

;_______________________________________________________________________________

;...............................................................
;
; socket listener for NBP
;...............................................................
;
	IS16BIT

NBPlisten	PROC

	BANK0ENTRY
	ldx #nbpbfptr
	lda #6
	jsr saveZP
	USE8BIT
	lda #2	; NBP has protocol 2
	cmp |ddphead+ldprotocol
	bne nbplsdone	; if not, discard it
	USE16BIT
	lda |tmpNBPPtr
	sta nbpbfptr
	USE8BIT
	lda #^ramdata
	sta nbpbfptr+2
	ldy #0
	lda (nbpbfptr),y
	tax
	and #$0F
	beq nbplsdone	; no tuple, discard	it
	sta |tuplect
	txa
	and #$F0
	cmp #$30	; LKUP-REPLY ?
	beq ChkReply	; then put it into table
nbpls_00	cmp #$20	; LKUP ?
	bne nbplsdone	; no, discard it
	jsr NbpReply	; lookup our table and reply to it
nbplsdone		; 
	USE16BIT
	jsr discard
	ldy #nbpbfptr
	lda #6
	jsr restoreZP
	rtl
;
	IS8BIT
ChkReply		; 
	USE16BIT
	lda |nbpptrsave+1	; are we processing	any NBP
	sta cmndlist+1
	USE8BIT
	beq nbplsdone	; no, then discard it
	lda |outnbpid
	ldy #1
	cmp (nbpbfptr),y	; is this the one we asked
	bne nbplsdone	; no, then discard it
	lda |nbpptrsave
	sta cmndlist
	ldy #1
	lda [cmndlist],y
	cmp #NBPLKUP
	beq nbpls_04	; try to add it to user buffer
	bcs nbpls3A	; confirm, then check socket
	USE16BIT
	lda #duplname	; register name allow no duplicate
	bra cancellist
	IS8BIT
nbpls3A	ldy #5	; confirm, we get a	reply, done
	lda (nbpbfptr),y	; get actual socket
	ldy #CmCfmActSkt
	sta [cmndlist],y
	dey
	cmp [cmndlist],y	; did it agree with	what we ask for?
	USE16BIT
	bne nbpls3B	; different socket
	lda #0
	bra cancellist	; everything is OK
nbpls3B	lda #diffsckt	; confirmed with wrong socket
	IS16BIT
cancellist	pha
	jsl nbplsdone
	pla
	jmp nbperror
;
	IS8BIT
nbpls_04		; ; name lookup
	USE16BIT
	clc
	lda nbpbfptr
	adc #2
	sta nbpbfptr	; skip to first tuple
	USE8BIT
nbpls4A	dec |tuplect
	bmi nbplsdone	; all taken care of
	USE16BIT
	ldy #CmRsbAdr
	lda [cmndlist],y	; get response buffer and its boundary
	sta tblptr
	USE8bit
	ldy #CmRsbAdr+2
	lda [cmndlist],y
	sta tblptr+2
	ldy #CmRspCnt	; get response received, this is current size
	lda [cmndlist],y
	tax
	inx
	stx nbprcvct
nbpls_05	dec nbprcvct
	beq nbpls_10	; not in table
	ldy #4	; check if item is already in table
; here we want to avoid the case when a	bridge is turn on and we have a name
; record twice, once with network # 0 and once with network	number X, so all
; local net is made	to be 0, since this	occur very rarely, we may accept
; the error and remove that part
;         USE16M
;         lda (nbpbfptr),y    ; get network number
;         cmp |thisnet
;         bne nbpls_06
;         lda #0
;         sta (nbpbfptr),y    ; local net is same as 0
;         USE8BIT
;
nbpls_06	lda [tblptr],y
	cmp (nbpbfptr),y
	bne nbpls_07	; not the same entry
	dey
	bpl nbpls_06
	jsr calcleng	; duplicate, ignore	it
nbpls_6A	clc
	adc nbpbfptr
	sta nbpbfptr
	bcc nbpls4A
	inc nbpbfptr+1
	bra nbpls4A
nbpls_07	ldy #5	; points to entity name
	ldx #3	; repeat for all three fields
nbpls_08	sec	; add 1 extra
	tya
	adc [tblptr],y	; add length count
	tay
	dex
	bne nbpls_08
	clc
	adc tblptr
	sta tblptr
	bcc nbpls_05
	inc tblptr+1
	bne nbpls_05	; second byte not wrapping
	inc tblptr+2	; need to bump third byte
	bra nbpls_05	; check more from table
nbpls_10	jsr calcleng	; calculate length of name
	tax	; save it
	use16M
	and #$00FF
	clc
	adc tblptr
	sec
	ldy #CmRsbAdr
	sbc [cmndlist],y
	ldy #CmRsbSiz
	cmp [cmndlist],y
	use8bit
	beq nbpls10A	; just made it
	bcs noroom	; it is buffer full
nbpls10A	txy	; size of item
nbpls_11	dey	; else copy into table
	bmi nbpls_12
	lda (nbpbfptr),y
	sta [tblptr],y
	bra nbpls_11
nbpls_12	ldy #CmRspCnt
	clc
	lda [cmndlist],y	; increase item count
	adc #1
	sta [cmndlist],y
	dey	; point to CmMaxRsp
	cmp [cmndlist],y	; compare number of	response
	beq nbpls_13	; reach required number
	txa	; size of item
	bra nbpls_6A	; check more
nbpls_13		; 
	USE16BIT
	lda #0
	jmp cancellist
noroom		; 
	USE16BIT
	lda #buffull	; assume buffer full
	jmp cancellist

;...............................................................
;
; calculate length of entity name, has three entry points
;      calcleng calculate length of name plus address
;      calcnmln calculate name only, y points to start location	 
;      calclng1 then calcalute 1 or 2 fields by setting X and Y
;      use nbpbfptr	to point to buffer
;      length returns in Acc
;
;...............................................................

	IS8BIT

	entry calcleng	; EXPORT -> ENTRY  **TGH
calcleng	ldy #5	; points to entity name

	entry calcnmln	; EXPORT -> ENTRY  **TGH
calcnmln	ldx #3	; repeat for all three fields

	entry calclng1	; EXPORT -> ENTRY  **TGH
calclng1	sec	; add 1 extra
	tya
	adc [nbpbfptr],y	; add length count
	tay
	dex
	bne calclng1
	rts

;...............................................................
;
; Add a name to register name link list
;...............................................................
;
;
	IS16BIT
	entry AddName	; EXPORT -> ENTRY  **TGH
AddName		;       
	jsr lforbid
	USE8BIT
	ldy #CmRegSkt
	lda [cmndlist],y
	sta regsckt
	stz regenum
	USE16M
AdNam1	ldx regenum
	inx
	stx regenum	; pick an enumerator
	lda |namelist	; and check the list
	sta tblptr
	lda |namelist+2
	sta tblptr+2
AdNam2	lda tblptr+1	; see if conflict with this one
	beq AdNam5
	ldy #7
	lda [tblptr],y	; queue element socket+enum
	tax
	cpx regsckt	; same socket ?
	bne AdNam4	; then no need to worry
	ldx regenum	; have we use it all ?
	bne AdNam3	; no, we still have	some available
	lda #toomanynames	;there are too many	names on this socket
	brl ExitAddName	;exit with error
AdNam3		; 
	cmp regsckt	; same enumerator ?
	beq AdNam1	; then try another one
AdNam4	ldy #2	; get next queue element
	lda [tblptr],y
	pha
	lda [tblptr]
	sta tblptr
	pla
	sta tblptr+2
	bra AdNam2	; and keep looking
AdNam5	ldy #CmEntAdr+2	; now we can fill the entity address
	lda [cmndlist],y
	sta tblptr+2
	ldy #CmEntAdr
	lda [cmndlist],y
	sta tblptr
	lda |namelist
	sta [tblptr]
	lda |namelist+2
	ldy #2
	sta [tblptr],y
	lda tblptr
	sta |namelist
	lda tblptr+2
	sta |namelist+2
	lda |thisnet
	ldy #4
	sta [tblptr],y
	lda regsckt	; put socket and enumerator in
	ldy #7
	sta [tblptr],y
	USE8BIT
	lda |OurNode
	ldy #6
	sta [tblptr],y
	USE16BIT
	lda #0	; return with no error
ExitAddName		; 
	USE16BIT
	jsr lpermit
	rts
;...............................................................
;
; Check name list for name, exact match	only, wild card not	used
;     name is point	to by nbpbfptr
;     if found in list, point to it by tblptr, else return 0 in tblptr
;...............................................................
;
;
	IS16BIT
	entry GetName	; EXPORT -> ENTRY  **TGH
GetName		;       
	USE8BIT
	ldy #0
	jsr calcnmln
	sta nameleng
	USE16BIT
	lda |namelist
	sta tblptr
	lda |namelist+2
	sta tblptr+2
GetNam_1	lda tblptr+1
	beq GetNam_9
	clc
	lda tblptr
	adc #9
	sta tblptr	; point to entity name
	lda tblptr+2	; add in high word for bank wrap
	adc #0
	sta tblptr+2
	USE8BIT
GetNam_2	ldy nameleng
	dey
GetNm2A	lda [tblptr],y
	UpChar
	sta tempChar
	lda [nbpbfptr],y
	UpChar
	cmp tempChar
	bne GetNam_4	; name does not agree
	dey
	bpl GetNm2A
	USE16BIT
	sec	; name found, point	back to entry element
	lda tblptr
	sbc #9
	sta tblptr
	lda tblptr+2	; subtract any bank wrap
	sbc #0
	sta tblptr+2
	lda #1	; set non-zero flag
	rts
GetNam_4		; 
	USE16BIT
	sec
	lda tblptr
	sbc #9
	sta tblptr
	lda tblptr+2	; subtract any bank wrap
	sbc #0
	sta tblptr+2
	ldy #2
	lda [tblptr],y
	tax
	lda [tblptr]
	sta tblptr
	stx tblptr+2
	bra GetNam_1
GetNam_9	rts
;...............................................................
;
; Remove name from registration
;...............................................................
;
	IS16BIT

	EXPORT nbpremove
nbpremove		;       
	jsr lforbid
	ldy #CmRmvEntity
	lda [cmndlist],y
	sta nbpbfptr
	ldy #CmRmvEntity+2
	lda [cmndlist],y
	sta nbpbfptr+2
	jsr checkvalidzentity ; check for all three fields as valid
	USE16BIT	; put back into 16 bit mode
	bcc nbpremovenmvld	; name is ok, so no	error yet
	lda #badName	; the name is bad so return with error
	jmp RmvNam_9	; show the error
nbpremovenmvld		; 
	jsr GetName
	beq RmvNam_8
	lda |namelist
	sta nbpbfptr
	cmp tblptr
	php
	lda |namelist+2
	sta nbpbfptr+2
	plp
	bne RmvNam_1	; is it the first entry ?
	cmp tblptr+2
	beq RmvNam_4	; it is the first entry
RmvNam_1	lda [nbpbfptr]	; is it the next entry?
	tax
	ldy #2
	lda [nbpbfptr],y
	cmp tblptr+2
	bne RmvNam_2
	cpx tblptr
	beq RmvNam_3	; yes, it is the next entry
RmvNam_2	stx nbpbfptr	; not the next, look more in queue
	sta nbpbfptr+2
	bra RmvNam_1
RmvNam_3	lda [tblptr]	; remove next item from queue
	sta [nbpbfptr]
	lda [tblptr],y
	sta [nbpbfptr],y
	bra RmvNam_5
RmvNam_4	ldy #2	; first name on list, update namelist
	lda [tblptr],y
	sta |namelist+2
	lda [tblptr]
	sta |namelist
RmvNam_5	lda #0
	bra RmvNam_9
RmvNam_8	lda #wrongname
RmvNam_9	ldy #2
	sta [cmndlist],y
	jsr lpermit
	rtl
;...............................................................
;
; Check register list to see if name matches, if it agree, reply to it
;...............................................................
;
;
	IS8BIT
NbpReply	ldy #1
	lda (nbpbfptr),y
	sta |replyNID
	ldy #4
	lda (nbpbfptr),y	; request node
	cmp |OurNode	; check if same as ours
	USE16M
	bne NbpRp_0	; nothing to worry
	ldy #2
	lda (nbpbfptr),y	; net work number
	beq ItIsMe	; I am the requestor, ignore it
	cmp |thisNet	; same net work ?
	bne NbpRp_0
ItIsMe		; 
	USE8BIT
	rts
	IS16M
NbpRp_0	jsr InitReply
	lda |namelist
	sta tblptr
	lda |namelist+2
	sta tblptr+2
NbpRp_1	lda tblptr+1
	beq NbpRp_8
	ldy #7
	sty tempy1
	ldy #9
	sty tempy2
	jsr CmpItem	; does object name agree ?
	bne NbpRp_2	; no, 
	jsr CmpItem	; does type agree
	beq NbpRp_3	; yes, then we can reply 
NbpRp_2	ldy #2	; no, then check next element
	lda [tblptr],y
	pha
	lda [tblptr]
	sta tblptr
	pla
	sta tblptr+2
	bra NbpRp_1
NbpRp_3	lda |thisnet	; get latest net number
	ldy #4	; in case net number not available earlier
	sta [tblptr],y
		; 
	USE8BIT
	sec	; add in field length
	ldy tempy2
	tya
	adc [tblptr],y
	sec	; find name length
	sbc #4
	USE16M
	and #$00FF
	ldx nbptbdisp
	sta |nbprptable,x
	inx
	inx
	clc
	lda tblptr
	adc #4
	sta |nbprptable,x
	inx
	inx
	lda tblptr+2
	adc #0	; add in for bank wrap
	sta |nbprptable,x
	inx
	inx
	stx nbptbdisp
	ldy |rptupcount
	iny
	sty |rptupcount
	cpy #4
	bne NbpRp_2	; go and check more
	USE16BIT
	ldx #tblptr	; clobbered so save	it first
	lda #7
	jsr saveZP
	_16BIT16M
	jsr DoNbpReply	; table filled, write it out
	USE16BIT
	ldy #tblptr
	lda #7
	jsr restoreZP
	_16BIT16M
	bra NbpRp_2
NbpRp_8	ldx |rptupcount	; do we have any matches
	beq NbpRp_9	; no
	jsr DoNbpReply	; else write it out
NbpRp_9		; 
	USE8BIT
	rts
;...............................................................
;
; do the actual reply		          
;...............................................................
;
;
	IS16M
DoNbpReply	lda #$FFFF
	ldx nbptbdisp
	sta |nbprptable,x	; end of table marker
	ldy #2
	lda (nbpbfptr),y	; dest network
	sta |nbpdnet
	ldy #4
	lda (nbpbfptr),y	; dest node and socket
	sta |nbpdnode
	USE8BIT
	stz |nbpchksmf
	lda |rptupcount
	ora #$30	; a LkUp-reply tuple
	sta |rptupcount
	USE16BIT
	lda #nbprptable
	sta |nbpwrtab
	lda #^ramdata
	sta |nbpwrtab+2
	ldx #nbpwrarea-4
	ldy #^ramdata
	jsr DoWrtDDP	; reply to it, ignore any error
	_16BIT16M
	jsr InitReply
	rts
;
	IS16M
InitReply		; 
	ldx #12
	stx nbptbdisp
	ldx #0
	stx |rptupcount
	rts
;...............................................................
;
; compare item to see if it matches, wildcard is used	          
;...............................................................
;
; 
	IS16M
CmpItem		; 
	ldy tempy1
	lda (nbpbfptr),y
	cmp #$3D01	; '='
	beq CmpItm_3
	USE8BIT
	tax
CmpItm_1	ldy tempy1
	inc tempy1
	lda (nbpbfptr),y
	UpChar
	sta tempChar
	ldy tempy2
	inc tempy2
	lda [tblptr],y
	UpChar
	cmp tempChar
	bne CmpItm_2
	dex
	bpl CmpItm_1
	sep #2	; set z flag
CmpItm_2		; 
	USE16M
	rts
CmpItm_3	iny	; skip over '='
	iny
	sty tempy1
	ldy tempy2
	USE8BIT
	lda [tblptr],y
	sec
	adc tempy2
	sta tempy2
	sep #2	; set z flag
	USE16M
	rts
;
	ENDP

nbpkill	PROC	EXPORT

	IS16BIT

	ldy #4
	lda [cmndlist],y
	cmp |nbpptrsave
	bne badexit
	iny
	iny
	lda [cmndlist],y
	cmp |nbpptrsave+2
	beq goodpb

badexit	lda #BadParamBlock
	bra exit

goodpb	lda |nbptmcmd
	beq justleave

	pei cmndlist
	pei cmndlist+2

	lda #CnclTmCmd
	sta |nbptmcmd
	ldx #nbptmcmd
	ldy #^ramdata
	jsr ADispatch

	pla
	sta cmndlist+2
	pla
	sta cmndlist

justleave	lda #0
exit	ldy #2
	sta [cmndlist],y
	rtl

	ENDP

;_______________________________________________________________________________

DDPInit	PROC EXPORT

	IS16BIT
	stz |lapdest	; clear to zero
	ldx #lapdest
	ldy #lapdest+1
	lda #NBPEnd-lapdest-2
	mvn ramdata,ramdata
	USE8BIT
	ldy #9	; findout node number
	lda [cmndlist],y
	sta |ourNode
	USE16BIT
	lda #7	; initialize nbpwds
	sta |nbpwds+6
	lda #outnbp
	sta |nbpwds+8
	lda #^ramdata
	sta |nbpwds+10
	lda #$FFFF
	sta |nbpwdsend
	lda #2
	sta |nbprptable+6
	lda #rptupcount
	sta |nbprptable+8
	lda #^ramdata
	sta |nbprptable+10
	lda #1	; install short DDP	handler
	ldx #ShortDDP
	ldy #^ShortDDP
	sec
	jsr lattachprot
	lda #2	; install long DDP handler
	ldx #LongDDP
	ldy #^LongDDP
	sec
	jsr lattachprot
	ldx #OpenRTMP	; install RTMP listener
	ldy #^OpenRTMP
	jsr ADispatch
	ldx #OPENNBP	; install NBP listener
	ldy #^OPENNBP
	jsr ADispatch
	ldx #RTMPreq	; do RTMP request	  
	ldy #^RTMPreq
	jsr ADispatch
	rts
;
;
OpenRTMP	DC.W OpnSktCmd
	DC.W 0
	DC.B 1
	DC.L RTMPListen
OpenNBP	DC.W OpnSktCmd
	DC.W 0
	DC.B 2
	DC.L NBPListen
RTMPReq	DC.W LapWrtCmd
	DC.W 0
	DC.B $FF	; broadcast
	DC.B 1	; short DDP
	DC.L RTMPBDS
RTMPBDS	DC.W 6	; 6 byte header
	DC.L RTMPhead
	DC.W $FFFF	; end of table
RTMPhead	DC.B 0,6	; header length
	DC.B 1	; to socket 1
	DC.B 1	; from socket 1
	DC.B 5	; prototype 5
	DC.B 1	; command 1
	ENDP

;_______________________________________________________________________________

	END
	
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/AppleTalk/atp_includes.aii b/IIGS.601.SRC/GSToolbox/AppleTalk/atp_includes.aii
new file mode 100644
index 0000000..9101962
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/AppleTalk/atp_includes.aii
@@ -0,0 +1 @@
+*******************************************************************************
*
* File: ATP.INCLUDES
*
* This file contains the 65816 implementation of ATP for the Apple IIGS.
* This file also contains the main AppleTalk dispatcher and core routines.
*
* Copyright Apple Computer, 1986
* Original Author: Greg Seitz
*
* NOTE: the following lines were changed to get around a problem
* in the Mac2Gs assembler:
*
*  atp.ddpstuff (label opendriver) changed resetcode
*
*  atp.core (before	label vectortab) changed Dispatch
*
*******************************************************************************
*
* Modification History
*
* 8/8/88    TGH	- Started working on RevD ROM
*	- Added 3 vectors Cnxx, CnxxGo, and CnProdos to bank $E1.
*	  These will be patched to jump to either 00C1xx or 00C2xx.
*
* 8/18/88   TGH	- Changed boot code. This will make booting many machines
*	  more effecient.
*	- Clear the boot dots position on retry
*	- Changed lookup from 1/4 sec. 30 times to 1 sec. 32 times.
*	- Changed ATP request from 1/2 sec. 20 times to 1 sec.
*	  64 times.
*
* 8/23/88   TGH  	- Took out CnProdos vector.  Didn't need it.
*
* 10/12/88  TGH  	- Changed AppleTalk slot search method.
*
* 11/23/88  TGH  	- AppleTalk slot settings are now determined by looking
*	  at locations 1C0, 1C1, and 1C2 in bank E1.
*
* 1/19/88   TGH	- Added NBPKill to command table.
*	- Added CancelTimer call.
*
* 1/31/88   TGH	- Changed the ReadTimeHex call to a ReadTime call.
*
* 3/27/88    TGH   - Added OnExitVector
*
*******************************************************************************

	MACHINE M65816

	IMPORT Dispatch
	IMPORT attachprot
	IMPORT ddpcheckskt
	IMPORT ddpinit
	IMPORT ddpwrite
	IMPORT forbid
	IMPORT getglobal
	IMPORT getinfo
;	IMPORT invalidseq		;We don't need this
	IMPORT lapresetinit
	IMPORT lapinit
	IMPORT lapread
	IMPORT lapwrite
	IMPORT nbpconfirm
	IMPORT nbplookup
	IMPORT nbpregname
	IMPORT nbpremove
	IMPORT nbpkill
	IMPORT openskt
	IMPORT permit
	IMPORT removeprot
	IMPORT stackrestore
	IMPORT stacksave
	import longforbid,longpermit,closeskt

	ENTRY opendriver,\		;Command vectors
	      installqtr,\
	      removeqtr,\
	      bootcode,\
	      atpsendrequest,\
	      cancelreq,\
	      openatpsocket,\
	      closeatpsocket,\
	      getrequest,\
	      sendresponse,\
	      relrspcb
	      
;	entry opendriver,installqtr,removeqtr,bootcode
;	entry atpsendrequest,cancelreq,openatpsocket,closeatpsocket
;	entry getrequest,sendresponse,relrspcb
	
	entry gocomp,bootstart,bootend,iend
	entry atplisten,ddpopenskt,sndrqpkt,waitdone,retasynflag
	entry readatpheader,rsptable,onebitmask,readrbds,lowbitmask
	entry killrequest,watppkt
	entry canceltable,closeddpskt,attachtable
	entry lowbitmask,reltable,grqtable
	entry rspcbtable,iparmstart,entityblk
	entry openparms,initparms

	ENTRY hardreset	;cold boot entry point
	ENTRY softhandler	;soft reset entry

;------------------------------------------------------------------------------
;
; Equates from procedure constants
;
;------------------------------------------------------------------------------

small	equ 1	;remove addresponse
code	equ $000800	;boot code comes in	here
sline	equ $000480	;print on this line
romread	equ $c081
lcbank2	equ $c083
statereg	equ $c068
cyareg	equ $c036
fixstatereg	equ $6024	;Now in LAP......
emulstack	equ $010100
databank	equ $e1e1e1
incbusyflag	equ $e10064	;scheduler routines
decbusyflag	equ $e10068

atport	equ $E101C0
atslot	equ $E101C1
pmslot	equ $E101C2

nbit	equ $80
vbit	equ $40
mbit	equ $20
xbit	equ $10
ibit	equ $04
zbit	equ $02
cbit	equ $01

rspval	equ 120	;30 seconds for rspcb timer

atpxobit	equ $20
atpeombit	equ $10
atpstsbit	equ $08

;------------------------------------------------------------------------------
;
; Equates from procedure intface
;
;------------------------------------------------------------------------------

Extended	equ $e11000	;RAM vectors.  Extended interface entry.
Basic	equ Extended+4	;Basic entry.
Pascal	equ Basic+4	;Pascal entry.
RamGoComp	equ Pascal+4	;users gocomp entry	for completions
SoftReset	equ RamGoComp+4	;Soft reset chain.
RamDispatch	equ SoftReset+4	;Command dispatcher.
RamForbid	equ RamDispatch+4	;RAM vector to long	entry of forbid.
RamPermit	equ RamForbid+4	;For Permit.
ProEntry	equ RamPermit+4	;Original ProDOS entry point.
Prodos	equ ProEntry+2	;Prodos entry.
SerStatus	equ Prodos+4	;Serial interface status hook
SerWrite	equ SerStatus+4	;" " write hook.
SerRead	equ SerWrite+4	;For Read.
SerBackgnd	equ SerRead+4	;For background printing.
PDispatch	equ SerBackgnd+4	;For dispatching packets.
lapzplen	equ $10
e1ddpend	equ $d600	;really $e1d600 (gets around dumb link)
ddpzplen	equ 14

;------------------------------------------------------------------------------
;
; Equates from procedure C7Defs
;
;------------------------------------------------------------------------------

;C7xx	equ $C7A0	;emulation mode entry
;C7xxGo	equ $C7A1	;native mode entry
;C7xxRet	equ $C7A8	;return point for routines
;C7Error	equ $C7AB	;error point for pascal not installed
;C7Prodos	equ $C7AE	;bank 0 entry for prodos

OfstCnxx	equ $A0	;emulation mode entry
OfstCnxxGo	equ $A1	;native mode entry
OfstCnxxRet	equ $A8	;return point for routines
OfstCnError	equ $AB	;error point for pascal not installed
OfstCnProdos	equ $AE	;bank 0 entry for prodos

Cnxx	equ $E11042	;emulation mode entry
CnxxGo	equ $E11046	;native mode entry
OnExitVector	equ $E1104A	;Exit vector for QTRIRQ

;------------------------------------------------------------------------------
;
; Equates from procedure errors
;
;------------------------------------------------------------------------------

maxatpsize	equ $578
lapendbuf	equ $0202
lapextra	equ $0209
largeddp	equ $0305	;only ddp err we care about
noatperr	equ $0000
largeatp	equ $0501
atpbadskt	equ $0502
noatpcb	equ $0503
noatprel	equ $0505
addnosnd	equ $0506
reqabort	equ $0507
requestfail	equ $0508
sktclsd	equ $0509
toomuchrsp	equ $050b
noddpskt	equ $050c
rsprel	equ $050d
atpbusy	equ $05ff
noqtrerr	equ $0000
noentry	equ $0101	;dispatcher item not found
norspcbmem	equ $0102	;can't allocate rspcb
qtrnotfound	equ $0103
noatalkerr	equ $0105
qtrcanceled	equ $0106
qtrbusy	equ $01ff

;------------------------------------------------------------------------------
;
; Equates from procedure qsecint
;
;------------------------------------------------------------------------------

insqtr_parmcnt	equ $00
insqtr_command	equ insqtr_parmcnt+1
insqtr_result	equ insqtr_command+1
insqtr_iocomp	equ insqtr_result+2
insqtr_ticks	equ insqtr_iocomp+4
insqtr_count	equ insqtr_ticks+2
insqtr_link	equ insqtr_count+2
rmvqtr_parmcnt	equ $00
rmvqtr_command	equ rmvqtr_parmcnt+1
rmvqtr_result	equ rmvqtr_command+1
rmvqtr_rsvd	equ rmvqtr_result+13 ;13 reserved bytes

;------------------------------------------------------------------------------
;
; Equates from procedure sendrqint
;
;
; SendATPReq
;
; 	   !!! NOTE !!!
;
; The order of the following 8 paramaters must not change
; since some internal assumptions are made about the order
; of the data in order to save execution time and code space.
;
;------------------------------------------------------------------------------


atprq_parmcnt	equ $00
atprq_command	equ atprq_parmcnt+1
atprq_result	equ atprq_command+1
atprq_iocomp	equ atprq_result+2
atprq_dymskt	equ atprq_iocomp+4
atprq_dnet	equ atprq_dymskt+1
atprq_dnode	equ atprq_dnet+2
atprq_dskt	equ atprq_dnode+1
atprq_tid	equ atprq_dskt+1
atprq_bufsize	equ atprq_tid+2
atprq_bufptr	equ atprq_bufsize+2
atprq_user	equ atprq_bufptr+4
atprq_rbnum	equ atprq_user+4
atprq_rbdsad	equ atprq_rbnum+1
atprq_flag	equ atprq_rbdsad+4
atprq_interval	equ atprq_flag+1
atprq_rtrycnt	equ atprq_interval+1
atprq_bitmap	equ atprq_rtrycnt+1
atprq_response	equ atprq_bitmap+1
atprq_link	equ atprq_response+1
atprq_timeleft	equ atprq_link+4
atprq_trysleft	equ atprq_timeleft+1

;------------------------------------------------------------------------------
;
; Equates from procedure canrqint
;
;------------------------------------------------------------------------------

creq_parmcnt	equ $00
creq_command	equ creq_parmcnt+1
creq_result	equ creq_command+1
creq_tid	equ creq_result+2

;------------------------------------------------------------------------------
;
; Equates from procedure sendrspint
;
;------------------------------------------------------------------------------

sdrsp_parmcnt	equ $00
sdrsp_command	equ sdrsp_parmcnt+1
sdrsp_result	equ sdrsp_command+1
sdrsp_iocomp	equ sdrsp_result+2
sdrsp_sskt	equ sdrsp_iocomp+4
sdrsp_dnet	equ sdrsp_sskt+1
sdrsp_dnode	equ sdrsp_dnet+2
sdrsp_dskt	equ sdrsp_dnode+1
sdrsp_tid	equ sdrsp_dskt+1
sdrsp_rbnum	equ sdrsp_tid+2	;number of buffers send on this call
sdrsp_tpkts	equ sdrsp_rbnum+1	;maximum number of packets being sent
sdrsp_rbdsad	equ sdrsp_tpkts+1
sdrsp_flag	equ sdrsp_rbdsad+4
sdrsp_bitmap	equ sdrsp_flag+1
sdrsp_addrtn	equ sdrsp_bitmap+1
sdrsp_aflag	equ sdrsp_addrtn+4	;pass free packets back here
addrsp_parmcnt	equ $00
addrsp_command	equ addrsp_parmcnt+1
addrsp_result	equ addrsp_command+1
addrsp_sskt	equ addrsp_result+2
addrsp_dnet	equ addrsp_sskt+1
addrsp_dnode	equ addrsp_dnet+2
addrsp_dskt	equ addrsp_dnode+1
addrsp_tid	equ addrsp_dskt+1
addrsp_bsize	equ addrsp_tid+2
addrsp_bptr	equ addrsp_bsize+2
addrsp_user	equ addrsp_bptr+4
addrsp_flag	equ addrsp_user+4	;only used for eom bit
addrsp_seqnum	equ addrsp_flag+1	;packet number we are adding

;------------------------------------------------------------------------------
;
; Equates from procedure getrqint
;
;------------------------------------------------------------------------------

getrq_parmcnt	equ $00
getrq_command	equ getrq_parmcnt+1
getrq_result	equ getrq_command+1
getrq_iocomp	equ getrq_result+2
getrq_ourskt	equ getrq_iocomp+4
getrq_snet	equ getrq_ourskt+1
getrq_snode	equ getrq_snet+2
getrq_sskt	equ getrq_snode+1
getrq_tid	equ getrq_sskt+1
getrq_bufsize	equ getrq_tid+2	;size of memory buffer points to    
getrq_bufptr	equ getrq_bufsize+2	;address of buffer to put requests into
getrq_user	equ getrq_bufptr+4
getrq_actlen	equ getrq_user+4	;actual length of data read in
getrq_flag	equ getrq_actlen+2
getrq_bitmap	equ getrq_flag+1
getrq_link	equ getrq_bitmap+1

;------------------------------------------------------------------------------
;
; Equates from procedure opensktint
;
;------------------------------------------------------------------------------

opskt_parmcnt	equ $00
opskt_command	equ opskt_parmcnt+1
opskt_result	equ opskt_command+1
opskt_skt	equ opskt_result+2
clsskt_parmcnt	equ $00
clsskt_command	equ clsskt_parmcnt+1
clsskt_result	equ clsskt_command+1
clsskt_skt	equ clsskt_result+2

;------------------------------------------------------------------------------
;
; Equates from procedure cbint
;
;------------------------------------------------------------------------------

relcb_parmcnt	equ $00
relcb_command	equ relcb_parmcnt+1
relcb_result	equ relcb_command+1
relcb_ourskt	equ relcb_result+2
relcb_snet	equ relcb_ourskt+1
relcb_snode	equ relcb_snet+2
relcb_sskt	equ relcb_snode+1
relcb_tid	equ relcb_sskt+1
rspcb_link	equ $00	;first item is link	to next rspcb
rspcb_sndptr	equ rspcb_link+4	;points to associated sndatprsp
rspcb_sskt	equ rspcb_sndptr+4	;source socket
rspcb_dnet	equ rspcb_sskt+1	;destination net
rspcb_dnode	equ rspcb_dnet+2	;destination node
rspcb_dskt	equ rspcb_dnode+1	;destination socket
rspcb_tid	equ rspcb_dskt+1	;transaction id
rspcb_timeout	equ rspcb_tid+2	;internal release timer
rspcbsize	equ rspcb_timeout+1	;size of rspcb
bds_bufsize	equ $00
bds_bufptr	equ bds_bufsize+2
bds_user	equ bds_bufptr+4
bds_actlen	equ bds_user+4	;actual len returned by atp

;------------------------------------------------------------------------------
;
; Equates from procedure zeropage
;
;------------------------------------------------------------------------------

cmdlist	equ $80	;global ptr to paramaters
execaddr	equ cmdlist+4
stackzp	equ execaddr+4	;for use in gocomp
prev	equ execaddr+4	;previous node pointer
curr	equ prev+4	;current node pointer
next	equ curr+4	;pointer to next node
R0	equ next+4	;4 byte register
R1	equ R0+4	;and another
R2	equ R1+4
laphead	equ R2+4	;4 byte pointer to lap header
bdsptr	equ laphead+4	;holds pointer to bds
zplen	equ bdsptr+4-cmdlist ;length of zero page
atpzplen	equ zplen-8	;length minus first	two vars

*           using  intface
*           using  initblock
* the following will be fixed vectors that may be used by
* others, the order	of these items is fixed and should not
* change after we go to rom.

* now we have the vars that are internal only, therefore they may
* be moved and changed as needed

* ram locations for	relocated rom stuff


* this section needs to be initialized to 0 on reset, or normal init

;------------------------------------------------------------------------------
;
; Equates from procedure datablock
;
;------------------------------------------------------------------------------

initoff	equ $0c
openoff	equ $05
closeoff	equ $05
lookoff	equ $18
srqoff	equ $29
dataorg	equ e1ddpend	;start data after ddp's data
rcmdaddrs	equ dataorg	;ram version of dispatch table
rcmdaddrs2	equ dataorg+$114	;ram version of dispatch table
tickcount	equ rcmdaddrs+1024	;global tick count
lsp	equ tickcount+4	;current stack pointer
apnode	equ lsp+2	;for append routine
atpheader	equ apnode+4	;atp header goes here
lookflag	equ atpheader+10	;flag for looklist
moveflag	equ lookflag+2	;flag to tell looklist to move
parmlist	equ moveflag+2	;general parm list
wdsbase	equ parmlist+20	;use part of parm list area
decval	equ wdsbase+20
status	equ decval+2	;status returned here
ysave	equ status+2
cursor	equ ysave+2
currpart	equ cursor+2
tempstate	equ currpart+2
tempspeed	equ tempstate+1
currstack	equ tempspeed+1	;special stack for listmngr
freechunk	equ currstack+40	;big block of memory
ourstack	equ freechunk+512	;our psuedo stack
lookbuf	equ ourstack+256	;used only during booting (xtra for stk)
rbootstart	equ lookbuf+100
rinitparms	equ rbootstart	;boot stuff gets put here
ropenparms	equ rinitparms+initoff
rcloseparms	equ ropenparms+openoff
rlookparms	equ rcloseparms+closeoff
rsrqparms	equ rlookparms+lookoff
rsrqbds	equ rsrqparms+srqoff
rparmstart	equ rsrqbds+14	;normal init data moves here
ratpreadp	equ rparmstart	;past lookbuf
initsec	equ ratpreadp+13	;init this section to 0
rqhead	equ initsec	;head of atp request list
availhead	equ rqhead+4	;points to list of free memory
rspcbhead	equ availhead+4	;points to rspcb list
grqhead	equ rspcbhead+4	;holds all getrequests issued
qtrhead	equ grqhead+4	;head of 1/4 sec tasks
gnext	equ qtrhead+4	;needed for re-entrant remove
atptid	equ gnext+4
currsp	equ atptid+2	;special listmngr sp
intrlevel	equ currsp+2	;interrupt disable flag
atalkon	equ intrlevel+2	;tells us if appletalk has been inited
startcount	equ atalkon+2	;real time counter initial value
intervalticks	equ startcount+2	;number of ticks in	a real time interval
savecnt	equ intervalticks-initsec+2 ;number of bytes to zero out
e1atpend	equ intrlevel+2	;allow 10 bytes for	ram readprot


main	PROC

;------------------------------------------------------------------------------
;
; We don't have to execute this code because we're moving into ROM.
;
;	import hardreset,softhandler
;
;	longa on	;16 bit accum
;	longi on	;and index registers
;	jsr hardreset	;long entry point for hardreset
;	rtl
;
;
; The following vectors are called from the main vector table for ROM startup
; and ROM reset.
;
;------------------------------------------------------------------------------

	EXPORT ATHReset
	EXPORT ATSReset

ATHReset	jmp hardreset	;cold boot entry point (in rom this goes first)
ATSReset	jmp softhandler	;soft reset entry

	ENDP


cmdaddrs	PROC	;data area for jump	table

	DC.L 0	;no command 0
	DC.A opendriver	;call this to init everything
	DC.B atpzplen	;save zero page used, sp is set
	DC.A getinfo	;$02
	DC.B lapzplen	;save zp for lap
	DC.A getglobal	;$03
	DC.B lapzplen	;save zp for lap
	DC.A installqtr	;$04
	DC.B atpzplen	;save this much
	DC.A removeqtr	;$05
	DC.B atpzplen	;save this much
	DC.A bootcode	;$06
	DC.B 0	;no need to save zp	  
	DC.A lapwrite	;$07
	DC.B lapzplen	;save zp for lap
	DC.A lapread	;$08
	DC.B lapzplen	;save zp for lap
	DC.A attachprot	;$09
	DC.B lapzplen	;save zp for lap
	DC.A removeprot	;$0a
	DC.B lapzplen	;save zp for lap
	DC.A openskt	;$0b
	DC.B ddpzplen	;length of zero page wanted saved
	DC.A closeskt	;$0c
	DC.B ddpzplen	;length of zero page wanted saved
	DC.A ddpwrite	;$0d
	DC.B ddpzplen	;length of zero page wanted saved
	DC.A nbpregname	;$0e
	DC.B ddpzplen	;length of zero page wanted saved
	DC.A nbpremove	;$0f
	DC.B ddpzplen	;length of zero page wanted saved
	DC.A nbplookup	;$10
	DC.B ddpzplen	;length of zero page wanted saved
	DC.A nbpconfirm	;$11
	DC.B ddpzplen	;length of zero page wanted saved
	DC.A atpsendrequest	;$12
	DC.B atpzplen	;length of zero page wanted saved
	DC.A cancelreq	;$13
	DC.B atpzplen	;length of zero page wanted saved
	DC.A openatpsocket	;$14
	DC.B atpzplen	;length of zero page wanted saved
	DC.A closeatpsocket	;$15
	DC.B atpzplen	;length of zero page wanted saved
	DC.A getrequest	;$16
	DC.B atpzplen	;length of zero page wanted saved
	DC.A sendresponse	;$17
	DC.B atpzplen	;length of zero page wanted saved

	IF  small	GOTO .noadd
	DC.A addresponse	;$18
	DC.B atpzplen
	GOTO .tl1

.noadd
	DC.L 0	;pad out addresponse ($18)
.tl1
	DC.A relrspcb	;$19
	DC.B atpzplen	;length of zero page wanted saved

	entry cmdtabend
cmdtabend		;used in calculation later
	ENDP

cmdaddrs2	PROC

	DC.A removeqtr
	DC.B atpzplen
	DC.A nbpkill
	DC.B ddpzplen

	entry cmdtabend2
cmdtabend2
	ENDP

*******************************************************************************
*			                  *
* ATPENTRY - Main entry point to the AppleTalk command dispatcher             *
*			                  *
*			                  *
* Entry:			                  *
*			                  *
*	X = Pointer to command call block (Low Word)              *
*	Y = Pointer to command call block (High Word)             *
*			                  *
*  Necessary items in the command call block:	                  *
*			                  *
*      	 ______________________________	                  *
*	|                              |	                  *
*	|         Async Flag           |	                  *
*	|______________________________|	                  *
*	|                              |	                  *
*	|         Command              |	                  *
*	|______________________________|	                  *
*	|                              |	                  *
*	|         Result Code          |	                  *
*	|______________________________|	                  *
*	|                              |	                  *
*	.                              .	                  *
*	|      <Command Specific>      |	                  *
*	.                              .	                  *
*	|                              |	                  *
*			                  *
*******************************************************************************

atpentry	PROC	;ATP entry point

	EXPORT adispatch
adispatch		;       
	longa on	;16 bit accum
	longi on	;and index registers

	phd	;save direct page
	lda #0000	;and make sure direct page
	tcd	;is zero
	phb	;save old data bank
	pea databank/256	;databank in both bytes        
	plb
	plb	;get new data bank

	longa off
	sep #mbit	;keep 16 bit x, but	use 8 bit a

	lda statereg	;save previous state
	pha
	and #$cf	;bits 4&5 zero force read and write main bank
	sta statereg
	lda lcbank2
	lda lcbank2	;make sure correct bank is in for $e1
	lda cyareg	;get speed register
	pha	;and save for later
	ora #$80	;make it fast
	sta cyareg

	longa on
	longi on
	rep #mbit+xbit	;back to full x,a
	phy
	phx
	ldx #cmdlist
	lda #8	;save zp used by dispatcher
	jsr savezp
	plx
	ply	;recover parms
	sty cmdlist+2	;and save x & y as cmdlist
	stx cmdlist

	ldy #atprq_command	;offset to command field
	lda [cmdlist],y	;get command byte in lower 8 bits
	and #$00ff	;strip off unnecessary bits
	asl a	;*2
	asl a	;*4 for offset into	table
	tax	;set up for jsr
	lda rcmdaddrs,x	;get low word of address
	sta execaddr	;save it in memory
	lda rcmdaddrs+2,x	;get high bytes
	tax	;hold in x
	and #$00ff	;strip high byte (24 bit addresses)
	sta execaddr+2	;and save them
	ora execaddr	;see if routine exists
	beq dispatcherr	;we can't dispatch this
	txa	;get back high word
	xba	;swap in # of zp bytes to save
	and #$00ff	;only use low byte
	pha	;and save on stack for restore
	ldx #cmdlist+8	;save from this point
	jsr savezp	;save what routine wants
	clc	;call long form of routine
	pei cmdlist+2	;high word of cmdlist
	pei cmdlist	;and low word
	phb	;save data bank

	jsl incbusyflag	;tell scheduler we are busy
	jsr stacksave	;save stack space if needed
	jsl goexec	;go to routine
	rep #mbit+xbit	;make sure full native
	jsr stackrestore	;restore stack space
	jsl decbusyflag	;let scheduler call	code if needed

goback		; 
	plb	;and restore bank
	rep #mbit+xbit+cbit	;force back to 16 bit x,a
	pla	;get low word of cmdlist
	sta cmdlist
	pla	;and high word
	sta cmdlist+2
	pla	;recover # of bytes	to restore
goback1		; ;entry point for bad cmd
	adc #8	;add in original amount saved
	tax	;and hold on for later
	sep #mbit+xbit+cbit	;back to 8 bit mode, assume err
	longa off
	longi off
	ldy #2
	lda [cmdlist]	;get async flag
	bmi seterr	;so set flags
synchold		; 
	lda [cmdlist],y	;get result field
	bmi synchold	;and loop while busy
seterr		; ;now set the error flags
	lda [cmdlist],y	;get low byte
	beq noerr
	bpl cok	;it's an error c=1
noerr		; 
	clc	;no error <=0
	pea $0000	;no error
	bra cok1
cok		; 
	pea $8888	;dummy network error
cok1		; 

	rep #mbit+xbit	;back to full native
	longa on
	longi on
	php	;save c,x,a

	txa	;get length
	ldy #cmdlist	;and base to restore
	jsr restorezp	;and restore it

	plp	;recover c, (x,a=16	bit mode)

	pla	;recover error

	sep #mbit+xbit	;back to 8 bit mode, assume err
	longa off
	longi off
	plx	;get cyareg (speed register)
	stx cyareg	;and restore it
	plx	;get back statereg
	stx statereg	;restore state

	rep #mbit+xbit
	longa on
	longi on

	plb	;restore old data bank
	pld	;restore their direct page
	rts

dispatcherr		; 
	ldy #2
	lda #noentry	;dispatch entry was	empty
	sta [cmdlist],y
	clc
	lda #0000
	bra goback1	;and return

goexec		;so others can see this
	jml [|execaddr]

	entry ldispatch	; EXPORT -> ENTRY  **TGH
ldispatch		;       
	jsr atpentry	;provide a long entry
	rtl	;to the dispatcher


* saves a range of memory
* must be called in	16 bit mode
* x=source address
* a=number of bytes
*
* NOTE: This routine also accounts for zero page being
* moved, and thus must treat zp as relative to the D register
*
	EXPORT savee1
savee1		;       
	sep #vbit+cbit	;e1 mode
	bra saveit
	EXPORT savezp
savezp		;       ;saves zero	page usage
	clv
saveit		; 
	longa on
	longi on
	rep #mbit+xbit+cbit	;make sure 16 bit
	ora #0000	;see if no bytes to	move
	beq rtnzp	;none, so return
	phb	;save data bank
	pha	;save move count
	php	;save v & c=0 bits
	ldy lsp	;destination address (current sp)
	adc lsp	;compute new lsp value
	sta lsp	;and save it
	plp	;recover v & c=0
dskip1		; 
	pla	;get count
	dec a	;adjust for mvn
	bvs dskip2	;skip if E1 mode
	mvn $00,databank	;save in databank
	plb	;and restore bank
	rts
dskip2		; 
	mvn databank,databank ;save in databank
	plb	;and restore data bank
rtnzp		; 
	rts

* restores a range of memory
* y=first address to restore
* a=number of bytes
	EXPORT restoree1
restoree1		;       
	sep #vbit	;E1 mode
	bra restoreit
	EXPORT restorezp
restorezp		;       
	clv	;direct page mode
restoreit		; 
	rep #mbit+xbit+cbit	;16 bits, c = 0
	dec a	;get number to move	- 1
	bmi rtnzp	;if negative, was 0
	phb	;save data bank
	pha	;save for mvn
	php	;save v bit and c =	0
	lda lsp	;get stack pointer
	sbc $2,s	;subtract count c=0	but a=a-1
	plp	;get back v and c =	0
	tax	;use for source
dskip3		; 
	pla	;recover count
	phx	;and save new sp (but don't update yet)
	bvs dskip4	;do e1 mode
	mvn databank,$00	;restore from databank
	bra finish
dskip4		; 
	mvn databank,databank
finish		; 
	pla	;get lsp
	plb	;restore databank before store
	sta lsp
	rts

	ENDP

*
* hardreset
* this routine is called only after hard reset
* it should set everything up that needs to be
* initialized
*
hardreset	PROC

	php	;save status
	phb
	jsr setup	;set speed and databank

	rep #mbit+xbit
	longa on
	longi on

;	lda atport	;This didn't work because SOFT_RESET
;	and #$00FF	;was still being called without the
;	bne @L1	;AppleTalk variables being set.
;	jmp ATalk_Off

@L1	lda #ourstack	;set up the stack
	sta lsp
	stz atalkon	;appletalk is not yet active

	lda #0000
	sta rcmdaddrs	;clear some memory
	ldx #rcmdaddrs	;first address
	ldy #rcmdaddrs+1	;destination
	lda #1024-2	;number of bytes to	zero
	mvn databank,databank ;and move it

* now we might want	to call ddp & lap to let them do what they want

	ldx #cmdaddrs	;get rom dispatch table
	ldy #rcmdaddrs	;and ram address as	destination
	lda #(cmdtabend-cmdaddrs)-1 ;length of command table
	mvn main,databank	;move from rom to ram

	ldx #cmdaddrs2	;get rom dispatch table
	ldy #rcmdaddrs2	;and ram address as	destination
	lda #(cmdtabend2-cmdaddrs2)-1 ;length of command table
	mvn main,databank	;move from rom to ram


;	!FIX OUR CNXX VECTORS HERE!

	lda atslot
	and #$00FF
	ora #$00C0

	sta Cnxx+2
	sta CnxxGo+2
	sta Pascal+2

	lda #$005C
	ora #OfstCnxx*256
	sta Cnxx
	lda #$005C
	ora #OfstCnxxGo*256
	sta CnxxGo
	lda #$005C
	ora #OfstCNError*256
	sta Pascal

	lda #$006B	;Put an rtl into the ONEXITVECTOR
	sta OnExitVector
	lda #$0000
	sta OnExitVector+2

	ldx #bootstart	;relocate boot parms
	ldy #rbootstart	;into ram
	lda #(bootend-bootstart)-1 ;length of boot parms
	mvn main,databank	;from rom to ram

	ldx #vectortab	;jump vectors
	ldy #Extended	;address of first ram vector
	lda #vectlen-1	;number of bytes to	move
	mvn main,databank	;from rom to ram
	
* after we check the code out we must put a jml to dispatch	at PDispatch

	lda >jdispatch
	sta PDispatch
	lda >jdispatch+2
	sta PDispatch+2

	jsr lapresetinit	;let lap set up variables before any calls are made

ATalk_Off	jsr cleanup
	plb	;restore old bank
	plp	;and mode bits
	rtl	;and return to boot
;	rts	;We used to RTS ;and return to boot

jdispatch	jml Dispatch	;code to call built	in dispatch

vectortab		;this is the vector table
	DC.L $6b	;rtl for extended
	DC.L $6b	;rtl for basic
	DC.B $6b	;jml CnError for pascal
	DC.A 0
	DC.B $5c	;jml gocomp
	DC.A gocomp
	DC.B $5c	;jml anrtl for soft	reset chain
	DC.A anrtl
	DC.B $5c	;jml ldispatch for dispatcher entry
	DC.A ldispatch
	DC.B $5c	;jml longforbid
	DC.A longForbid
	DC.B $5c	;jml longPermit
	DC.A longPermit
vectlen	equ *-vectortab

setup		;       
	sep #mbit+xbit	;short mode
	longa off
	longi off

	lda #databank
	pha
	plb
	lda statereg	;get previous state.
	bit lcbank2
	bit lcbank2	;make sure correct bank is in for $e1
	sta tempstate	;save previous state.
	lda cyareg	;get speed register
	sta tempspeed	;and save for later
	ora #$80	;make it fast
	sta cyareg
	rts

cleanup		;       
	sep #mbit+xbit
	longa off
	longi off

	lda tempspeed
	sta cyareg
	lda tempstate	;get state reg
	sta statereg
	rts

	entry softhandler	; EXPORT -> ENTRY
softhandler		;call here to dispatch reset chain
	php	;save mode bits
	phb	;save databank
	jsr setup
	rep #mbit+xbit
	longa on
	longi on
	jsl softreset	;call code in reset	chain
	jsr cleanup
	plb	;restore old databank
	plp	;and mode bits

anrtl	rtl


	ENDP
*
* atp.listmngr
*

****************************************************************
*
*  listmanager-
*
*  This is the main	linked list handler
*  It loops through	a given linked list	and calls a special
*  routine for each	node that is found.	 That routine can then
*  return a control	code to listmanager, telling it what to	do
*  with the node.  The currently available options are:
*
*  when returning to the list manager if the carry is set then
*  we will stop scanning the list, otherwise we will continue
*
*
*  Inputs:  the following are passed on	the stack:
*
*           head address -      16 bits
*	            address	of pointer to head of linked
*	            list.  This points to head-link offset.
*           special	routine -   16 bits
*	            special	routine to be called for each
*	            node encountered
*           return address -    16 bits
*	            return address put here by jsr
*  Register Inputs:
*
*           offset to link -    y-reg (16 bits)
*	            offset from node address to	next link
*	            field
*
*  Outputs: none currently
*
****************************************************************

listmanager	PROC	;main list loop

*
* set up pointers before loop
*
	longa on
	longi on
	rep #mbit+xbit

	lda $5,s	;get low word of head address
	sta prev	;save low word of previous ptr (head)
	lda #^databank	;get high word
	sta prev+2
	tyx	;hold link offset temporarily
	lda [prev],y	;get low word of first node
	sta curr	;and save it
	iny
	iny
	lda [prev],y	;and get high word
	sta curr+2
	txy	;recover link offset
	sty ysave	;and save globally
testcurr		; ;top of while loop
	lda curr	;get low word
	ora curr+2	;check against high	word
	beq listdone	;we are done if both are zero
	lda [curr],y	;get low word of next link
	sta next	;and save it
	tyx	;save index
	iny	;and bump up to
	iny	;high word
	lda [curr],y	;get it
	sta next+2	;and save
	phx	;save link offset on stack
	txy	;set up link offset	for call
	pea comeback	;address to return to
	lda $7,s	;get routine off stack
	dec a	;make it so we can rts to
	pha	;fake an indirect jsr
comeback	rts	;we actually will return to the
		;next instruction after the RTS
		;this will call routine pushed on stk
	
* this is where we return to from that pea comeback done a few lines earlier

	rep #mbit+xbit	;make sure 16 bit x,a

	ply	;finally, restore link offset
	bcs listdone	;we are done since the want to stop
	lda curr	;otherwise continue	to scan list
	sta prev	;prev=curr
	lda curr+2
	sta prev+2
	lda next	;curr=next (move to	next node)
	sta curr
	lda next+2
	sta curr+2
	brl testcurr	;loop for more
listdone		; ;clean up and leave
	lda $1,s	;get return address
	sta $5,s	;move it up to where it belongs
	tsc	;get stack pointer in accum
	clc	;set up for add
	adc #4	;scrape garbage of stack
	tcs	;fix stack pointer
	rts	;and return


	entry dodelete	; EXPORT -> ENTRY  **TGH
dodelete		;delete the	current node
	tyx	;save link offset
	lda next
	sta [prev],y	;cut out current node
	iny	;bump to high word
	iny
	lda next+2
	sta [prev],y

exitdelete		; ;leave through here
*
* now, since we are	allowing the list manager to be recursively
* re-entrant, if we	happen to be deleting someone elses curr node
* we must update their curr value on the stack to the real curr item
* we must do this for each item on the stack that matches the node
* being deleted.
*
	ldy currsp	;get special stack pointer
	beq stackok	;stack is ok now since nothing there
* now check to see if the node we just deleted was somebodies current 
* node, and if so, adjust the special stack to let give them our prev
* node to compensate for the just deleted node
chkprev		; ;check special stack
	lda curr+2	;check node deleted	against
	cmp currstack-2,y	;their prev node
	bne backup	;check next item on	stack
	lda curr
	cmp currstack-4,y	;check low word
	bne backup	;not a match
	lda prev	;give them a new curr value
	sta currstack-4,y	;since we are deleting theirs
	lda prev+2
	sta currstack-2,y
backup		; ;move down stack
	dey
	dey
	dey
	dey
	bne chkprev	;still something on	stack
stackok		; 
	lda prev	;curr=prev to adjust for
	sta curr	;deleted node
	lda prev+2
	sta curr+2
	txy	;restore link offset
	rts	;and return

ldodelete	jsr dodelete	;use for long entry to delete
	rtl


	entry pushcurr	; EXPORT -> ENTRY  **TGH
pushcurr		;       ;push current node
	ldx currsp	;get current stack value
	inx
	inx
	inx
	inx
	stx currsp	;update stack before pushing
	lda curr
	sta currstack-4,x
	lda curr+2
	sta currstack-2,x
	rts

	entry pullcurr	; EXPORT -> ENTRY  **TGH
pullcurr		;       ;recover current and next values
	ldx currsp
	lda currstack-2,x	;get high word of next
	sta curr+2	;and save it
	lda currstack-4,x	;and get low word
	sta curr	;and save low word
	dex
	dex
	dex
	dex
* now that we have recovered curr, lets	get the next value from it
	lda [curr],y	;get low word of next node
	sta next	;and save it
	iny
	iny
	lda [curr],y	;and get high word
	sta next+2
	dey
	dey	;re-adjust y to original value
	stx currsp	;and save the new stack
	rts


	ENDP
*
* atp.listrtns
*
* this is a group of routines that make	use
* of the list manager to provide extended list
* functions
*

****************************************************************
*
*  addlist-    
*
*  This routine adds a node    that is passed on the stack
*  to the front of a list whose head address is also passed
*  on the stack.
*
*  Stack Inputs:
*
*           head address -	16 bits
*		address of pointer to head
*		of linked list
*           item address -	32 bits
*		address of item to be appended
*           return address -	16 bits
*		return address
*
*  Register Inputs:
*
*           offset to link -	y-reg (16 bits)
*		offset from node address to
*		next link field
*
*  Outputs:
*
*           none currently
*
*  Destroys:
*           nothing
*
****************************************************************

addlist	PROC

	plx	;get return address
	pla	;get low word of node to insert
	sta curr	;save locally
	pla	;get high word
	sta curr+2
	pla	;get low word of head address
	sta prev	;save in zp
	phx	;put return address	back on stack
	tyx	;save link offset
	lda (prev),y
	sta [curr],y	;save low word
	iny
	iny
	lda (prev),y
	sta [curr],y
	lda curr+2
	sta (prev),y	;save new head high	word
	txy	;get original offset
	lda curr
	sta (prev),y
	ldy currsp	;check special stack
	beq stackok	;nothing on it
chkprev		; 
	lda prev	;see if we have a match
	cmp currstack-4,y	;check head against	their curr
	bne backup
	lda #^databank	;high word of head
	cmp currstack-2,y
	bne backup	;keep checking
	lda curr+2	;change curr val on	stack
	sta currstack-2,y
	lda curr
	sta currstack-4,y
backup		; 
	dey
	dey
	dey
	dey
	bne chkprev
stackok	rts	;and return


	ENDP


****************************************************************
*
*  looklist -
*
*  This routine looks in a list for a node that
*  belongs to the packet that was just received.
*  It does this by using a comparison table that
*  tells it what items are expected to match.
*  The packet that was read must be at a fixed
*  location, and must use the long ddp form.
*  This is acceptable since our implementation of
*  ddp puts all packets into long form before
*  passing control to its socket listener.
*
*  Stack Inputs:
*                  head address -	16 bits
*		address of pointer to
*		head of list to search
*                  compare table -	16 bits
*		this is the table that
*		tells what items relative
*		to the beginning of	the
*		protocol layers need to
*		be examined.
*		NOTE: it is assumed	that this
*		table is in the same bank as the
*		code.
*                  return address -	16 bits
*
*  Register Inputs:
*                  y-reg	link offset
*
*  Status Flags:
*                  z=1	no match found
*                  z=0	match found
*
*  Memory Outputs:
*                  cmdlist	holds value of node	found
*
*  Destroys:
*                  R0,R1,R2
*
****************************************************************
*
looklist	PROC

	longa on
	longi on
	rep #mbit+xbit

	tyx	;save offset
	stz lookflag	;not found yet
	stz moveflag	;no move wanted
	pla	;get return address
	sta R2	;only uses 16 bits for return
	pla	;get compare table address
	sec	;for subtract
	sbc #sdrsp_sskt	;back up pointer to	table
	sta R0	;and save for spcl routine
	phk	;push program bank
	phk	;and again (since 16 bit mode)
	pla	;now recover it and	use it for
	sta R0+2	;high word of our code bank
	pea lookspcl	;set up stack for listmanager
	jsr listmanager	;and loop through list
	pei R2	;push return address
	lda lookflag	;set status bit
	rts	;and return

	entry listmove	; EXPORT -> ENTRY  **TGH
listmove		;alternate entry for moving
	longa off
	longi off
	sep #mbit+xbit	;go to 8 bit
	lda #01	;set move flag
	sta moveflag

lookspcl		; ;special node routine
*
* R0 contains a pointer to the compare table - sdrsp_sskt
* the reason it points to this is that the comparing does
* not start until sdrsp_sskt, and therefore the previous
* bytes in the command list do not matter
*
	sep #xbit+mbit+vbit	;8 bit x,a, force v	for ddp mode

	ldy #sdrsp_sskt-1	;this is where we will compare
looksp1		; 
	iny	;move to next item in lists
	lda [R0],y	;get the compare table item
	beq looksp1	;keep going with next item
	bpl checkvbit	;it's a real index
	inc a	;see if was 255
	beq found	;we passed all tests
	dec a	;back up a
	and #$7f	;strip high bit
	rep #vbit	;clear vbit for atp	mode switch
checkvbit		; 
	phy	;save loop index
	tay	;set up index to packet data
	lda [laphead],y	;assume from lap and ddp
	bvs goodguess	;we were right
	lda atpheader,y	;we were wrong (no big deal)
goodguess		; 
	ply	;get back loop index
	ldx moveflag	;see if move or compare should be done
	beq compare	;do a compare
	sta [curr],y	;do a move
	bra looksp1	;do next byte
compare		; 
	cmp [curr],y	;see if matches data in list
	beq looksp1	;yes so keep checking
nomatch	clc	;skip code (this is	why we use 8 bits)
goback	rep #mbit+xbit	;back to 16 x,a
	rts	;and return

found	ldx moveflag	;see if move or compare
	bne goback	;just return if move
	rep #mbit+xbit	;back to 16 x,a
	longa on
	longi on
	lda curr
	sta cmdlist	;this is where we return the pointer
	lda curr+2
	sta cmdlist+2
	inc lookflag	;tell main routine that we found it
	sec	;set stop bit
	rts	;and return

	ENDP
*
* atp.sndrequest
*
*

atpsendrequest	PROC

	jsr forbid	;hold off ints

	ldy #atprq_bufsize
	lda [cmdlist],y	;get size of buffer	to send
	cmp #maxatpsize+1	;see if too big
	bcc bufsizeok	;its ok
	lda #largeatp	;atp data too large
	bra badskt	;and report the error
bufsizeok		; 
	sep #mbit+xbit
	longa off
	longi off

	ldy #atprq_rbnum
	lda [cmdlist],y	;see how many response buffers
	cmp #9	;see if too many
	bcc bufsok	;number of bufs is ok

	rep #mbit+xbit	;back to 16 bit a,x
	longa on
	longi on
	lda #toomuchrsp	;too many rsp buffers
	bra badskt	;and report the error

bufsok		; 
	rep #mbit+xbit
	longa on
	longi on

	ldx #<atplisten	;get low word
	ldy #^atplisten	;and high word
	lda #0	;ask for dynamic socket
	jsr ddpopenskt	;open socket listener
	bne badskt	;some kind of ddp error 

	sep #mbit+xbit	;8 bit x,a
	longa off
	longi off

	txa	;get socket from x
	ldy #atprq_dymskt	;get offset to socket
	sta [cmdlist],y	;put socket in list
	ldy #atprq_rtrycnt	;get offset to retry count
	lda [cmdlist],y	;get it
	ldy #atprq_trysleft	;set up trysleft first time
	sta [cmdlist],y
	lda #00	;zero out number of	responses
	ldy #atprq_response	;received
	sta [cmdlist],y

	rep #mbit+xbit	;back to 16 bit a,x
	longa on
	longi on

	pea rqhead-atprq_link ;low word of head-offset
	pei cmdlist+2	;high word of cmdlist
	pei cmdlist
	ldy #atprq_link	;offset to link
	jsr addlist	;add to this list
	inc atptid	;bump tid
	lda atptid	;get the trans id
	xba	;switch high & low bytes
	ldy #atprq_tid	;offset to tid field
	sta [cmdlist],y	;save it
	jsr sndrqpkt	;send out the request packet
rqok		; ;the request was ok, so exit busy
	jmp waitdone	;general exit routine

badskt		; 
	jmp retasynflag	;and return from there

	ENDP

*
* atplisten
*
* this is the socket listener for send requests.
* it reads the atp header out of the packet.   
*

atplisten	PROC

atpls1		; 
	rep #mbit+xbit
	longa on
	longi on
	pea databank	;set up databank properly
	plb
	plb

	ldx #cmdlist	;save zero page from here
	lda #zplen
	jsr savezp
	ldx cmdlist
	ldy #$00e1	;lap header in bank	$e1
	stx laphead
	sty laphead+2
	pei laphead+1	;push bytes 2 & 3 (3=$e1)
	plb	;discard byte 2
	plb	;and get bank e1
	stz status	;assume no error for return   
	jsr readatpheader	;read in the header	to known location
	sep #mbit+xbit	;make sure 8 bit x,a
	longa off
	longi off

	bne dumprest	;error so ignore this packet
	lda atpheader	;get the function code
	and #$C0	;strip unwanted bits
	cmp #$80	;check for reply
	bne dumprest	;nope
	pea rqhead-atprq_link ;address of head for list routines
	pea rsptable	;push response table address
	ldy #atprq_link	;link offset
	jsr looklist	;look for a match
	sep #mbit+xbit	;make sure 8 bit x,a
	beq dumprest	;no match found so throw out packet
*
* cmdlist now contains address of node that matched
*

	lda atpheader+1	;get sequence number
	ldy #atprq_rbnum	;for compare against num of
	cmp [cmdlist],y	;buffers
	bcc goodsofar1	;so far its ok
dumprest		; ;throw out packet
	rep #mbit	;16 bit A.
	sec	;use internal mode of call
	longa on
	lda #$8000	;Set purge bit, read 0 bytes
	longa off
	jsr LAPRead	;and purge packet
	
	entry doneatp	; EXPORT -> ENTRY  **TGH
doneatp		;

	rep #mbit+xbit	;make sure 16 bit mode
	longa on
	longi on

	ldy #cmdlist	;restore from here
	lda #zplen
	jsr restorezp
	rtl	;and return

goodsofar1		; 

	longa off
	longi off
	tax	;transfer sequence num
	lda >onebitmask,x	;get mask from table
	ldy #atprq_bitmap	;go to bitmap field
	and [cmdlist],y	;see if wanted
	beq dumprest	;nope so leave

	rep #mbit+xbit	;16 bit x,a
	longa on
	longi on

	txa	;get back sequence number
	asl a	;*2
	asl a	;*4
	pha	;hold temporarily
	asl a	;now a=a*8, carry is clear
	adc $1,s	;add a*4 to get a=a*12
	plx	;discard stack temp
	ldy #atprq_rbdsad	;offset to rddsad pointer
	jsr readrbds	;read data into rbds
	bne doneatp	;bad read so ignore
	sep #mbit+xbit	;back to 8 bit mode
	longa off
	longi off

	ldy #atprq_response	;move to responses received fld
	lda [cmdlist],y	;get previous value
	inc a	;add 1
	sta [cmdlist],y	;and put back new value
	ldy #atprq_bitmap	;update bitmap
	ldx atpheader+1	;get sequence number
	lda atpheader	;get flags
	and #atpeombit	;see if eom
	beq clearbit	;nope so just set bitmap
	lda >lowbitmask,x	;get mask for this sequence number
	and [cmdlist],y	;see if all bits below are zero
	bra newbitmap	;store new bitmap
clearbit	lda >onebitmask,x	;get bit to set
	eor [cmdlist],y	;flip what was there
newbitmap	sta [cmdlist],y	;and store the new one
	php	;save result of bitmap stuff
	lda atpheader	;get flag byte again
	and #atpstsbit	;see if status wanted
	beq checkdone	;no, so see if done	with packet
	jsr sndrqpkt	;re-send request packet
checkdone	plp	;get status from bitmap back
	bne listendone	;still bits set so leave
	rep #mbit+xbit	;make sure full 16 bit mode
	lda status	;call is done so complete
	jsl killrequest	;by killing the request
listendone	bra doneatp	;back to caller


	ENDP


*
* waitdone
*
* indicate a call is busy
*

waitdone	PROC

	rep #mbit+xbit	;16 bit x,a
	longa on
	longi on

	lda #atpbusy	;show busy first

	entry retasynflag	; EXPORT -> ENTRY  **TGH
retasynflag		;       ;alternate entry point

	rep #mbit+xbit	;make sure 16 bit x,a

	ldy #atprq_result	;offset to result byte
	sta [cmdlist],y	;save it
	jsr permit	;back down interrupt hold off

	sep #mbit+xbit	;go to 8 bit x,a
	longa off
	longi off

	ora #00	;test low byte to set status bits
	bpl procdone	;if positive we are	done

goback		; 
	rtl	;return long to dispatcher

procdone		; 
*		;fall through to io	completion stuff

	entry chkiocmp	; EXPORT -> ENTRY  **TGH
chkiocmp		;another alternate entry point

	sep #mbit+xbit	;again force 8 bit x,a

	lda [cmdlist]	;get async flag
	bpl goback	;not async so no completion routine
	ldy #atprq_result
	lda [cmdlist],y	;get result
	bmi goback	;not completed yet
	ldy #atprq_iocomp	;offset to completion routine

	entry callcomp	; EXPORT -> ENTRY  **TGH
callcomp		;       ;come here if y already set

	rep #mbit+xbit	;back to full 16 bit mode
	longa on
	longi on

	tax	;hold onto a
	lda [cmdlist],y	;get low word
	sta execaddr
	iny
	iny	;bump to high word
	lda [cmdlist],y
	sta execaddr+2	;save high word
	ora execaddr	;check against low word
	beq goback	;no completion routine wanted
* now, since we are	temporarily giving up control, we must make
* sure we preserve the next field, since it was possible that
* we were in the middle of scanning a list when we called this
* routine.  This way, if the next node happens to be deleted
* the delete routine will have a value on the special nextstack
* that it can update to reflect the 'real' next node
	jsr pushcurr	;save next value
	lda ysave	;get y offset to link
	pha
	jsl gocomp	;call completion routine
	ply	;recover y offset to link
	sty ysave	;restore ysave since it could have gotten changed
	jsr pullcurr	;recover value (possibly changed)
	rtl	;and return


	EXPORT gocomp
gocomp		;       ;general completion routine
*
* passes value in x
*
	rep #mbit+xbit	;force full native
	longa on
	longi on

	tsc
	tax	;save stack for return
	lda execaddr+2	;get high word
	beq callemul	;calling bank 0, do	so in emulation
	phx	;save current stack	for return
	phb
	jsl Cnxxgo	;call exec address,	full native
xxx		; 
	rep #mbit+xbit	;full native
	plb
	pla	;recover full stack	pointer
	tcs	;and use it
	rtl	;and return

callemul		; ;call completion in emulation mode
	cpx #$0200	;see if out of emulation range
	bcc stackok	;no, stack is ok
	lda >emulstack	;get emulation stack
	and #$00ff	;strip out high word
	ora #$0100	;and put stack in page 1
	tcs	;set new stack
stackok	sec	;call Cnxx with carry set for emulation
	phx
	phb
	jsl Cnxx
	bra xxx

* the following c7 code belongs in the c700 space of the appletalk card
*c7xx	anop	;switch into emulation mode
*	xce
* use following code when code is in rom (leave out for testing)
*	pei execaddr+1	;push 2 & 3 rd bytes
*	plb
*	plb	;set db to same as pb in execaddr
*c7xxgo	anop
*	jml (execaddr)	;call the stinking	routine
*
*
* completion routine must jump directly	here (no rts or rtl)
*
*c7xxret	anop
*	clc
*	xce
*	rtl	;and return


	ENDP

*
* sndrqpkt
* sends out an atp request packet
*

sndrqpkt	PROC


	sep #mbit+xbit	;force 8 bit x,a
	longa off
	longi off

	ldy #atprq_interval	;time interval for retran
	lda [cmdlist],y
	ldy #atprq_timeleft
	sta [cmdlist],y	;reset timeout counter
	ldy #atprq_flag
	lda [cmdlist],y	;get flag value
	and #atpxobit	;strip all but xo bit
	ora #$40	;and make it a request
*
* now fall through to the generic
* send atp packet routine
*
	entry sndatppkt	; EXPORT -> ENTRY  **TGH
sndatppkt		;       ;alternate entry point

	sep #mbit+xbit	;force 8 bit x,a

	sta atpheader	;store command byte
	ldy #atprq_bitmap
	lda [cmdlist],y	;get the bitmap
	sta atpheader+1	;and put in parm list
	rep #mbit+xbit+cbit	;back to 16 bit x,a, clear carry
	longa on
	longi on

	lda cmdlist	;get low word
	adc #atprq_bufsize	;add in offset to user data  
	sta bdsptr	;to get fake bds pointer
	lda cmdlist+2	;get high word
	adc #00	;add in carry bit
	sta bdsptr+2	;now bds points to parm list
	lda #$00ff	;tell write that we	did bds already
	jsr watppkt	;write atp packet
goodsend	rts	;and return to our caller (internal)
	ENDP


*
* atp.killrequest
*

*
* cancelreq
*
* this call removes	a request from the request pending
* list, and calls a	completion routine if necessary.
* It only expects to be passed a tid, that it will match
* to an item in the	list.  It then deletes that item.
*

cancelreq	PROC

	longa on
	longi on
	rep #mbit+xbit	;full native

	jsr forbid	;don't bother us in here
	ldy #creq_result	;assume good call
	lda #noatperr	;so store no error
	sta [cmdlist],y
	lda cmdlist
	sta laphead	;set up for looklist routine
	lda cmdlist+2
	sta laphead+2
	pea rqhead-atprq_link ;this is the list	to search
	pea canceltable	;this is the match table
	ldy #atprq_link	;offset to link field
	jsr looklist	;look it up
	beq nomatch	;not in list
	lda #reqabort	;show request aborted
	jsl killrequest	;kill the request officially
	jsr permit	;allow ints again
	rtl	;and return
nomatch		; 
	lda #noatpcb	;control block not found
	jmp retasynflag	;does permit for us


*
* killrequest
*
* this call cancels	a pending sendrequest by removing
* it from the rqhead list if it exists.	 It then calls
* a completion routine if there is one to be executed.
* Also, on exactly once packets it sends a release before
* exiting.
*
	entry killrequest	; EXPORT -> ENTRY  **TGH
killrequest		;

	longa on
	longi on
	rep #mbit+xbit
	pha	;save result
	pea rqhead-atprq_link ;search through this list
	ldy #atprq_link	;offset to link field
	jsr delitem	;and remove cmdlist
	beq killexit	;nothing deleted
	pla	;adjust stack
killonly		;kill without delete
	pha	;save error code
	cmp #largeatp	;see if atp too large err
	beq closeskt	;yes so don't send release
	ldy #atprq_flag
	lda [cmdlist],y	;get flag
	and #atpxobit	;see if xo mode
	beq closeskt	;nope so close and leave
	lda #$c0	;send release
	jsr sndatppkt	;packet
	bra closeskt

kill	pha

closeskt	sep #mbit+xbit
	longa off
	longi off

	ldy #atprq_dymskt
	lda [cmdlist],y	;get socket of this	list
	jsr closeddpskt	;close the socket
killexit		; 
	rep #mbit+xbit
	longa on
	longi on

	pla	;recover error code
	ldy #atprq_result
	sta [cmdlist],y	;save result
	jmp chkiocmp	;do i/o completion,	and return


*
* delitem
* 
* this routine deletes the item in the list that is passed us that
* cmdlist contains.
* the address of the list head is passed on the stack
*
	entry delitem	; EXPORT -> ENTRY  **TGH
delitem		;

	longa on
	longi on
	rep #mbit+xbit	;force 16 bit x,a

	stz lookflag	;nothing found yet
	pla	;get return address
	sta R0	;hold in temp
	pea delspec	;special delete routine
	jsr listmanager	;loop through this list
	pei R0	;restore return
	lda lookflag	;and set condition codes
	rts	;and return

delspec		; ;comes here for each node
	lda cmdlist
	cmp curr	;see if match found
	bne donext	;keep looking
	lda cmdlist+2	;check high word
	cmp curr+2
	bne donext	;no match
	jsr dodelete	;delete a node
	sec	;and stop
	inc lookflag	;show that it was found
	rts
donext	clc	;skip this one
	rts



*
* atptimer
*
* this routine is called directly by the 1/4 sec scheduler
* and is responsible for updating and maintaining
* the linked lists (decrementing timers, retrans, etc).
*
*

	entry atptimer	; EXPORT -> ENTRY  **TGH
atptimer		;assume comes here in full native

	longa on
	longi on

	pea rqhead-atprq_link ;scan this list
	pea rqscan	;request list scanner
	ldy #atprq_link	;offset to link field
	jsr listmanager	;scan the list
	pea rspcbhead-rspcb_link ;check for expire of xo
	pea rspscan	;timer
	ldy #rspcb_link
	jsr listmanager

	rts	;and return to our caller


rspscan		; 
	longa off
	longi off
	sep #mbit+xbit+cbit	;

	ldy #rspcb_timeout
	lda [curr],y	;get timeout for this rspcb
	sbc decval	;number of ticks that have occured
	beq gone	;it went to zero
	bcc gone	;it went minus
	sta [curr],y	;otherwise, just store new value
gonext		; ;on to next item
	clc	;skip to next item
	rts

gone		; ;remove the node

	rep #mbit+xbit
	longa on
	longi on

	lda curr
	sta cmdlist
	lda curr+2
	sta cmdlist+2
	jsr relcb1	;free up memory and	get sndresponse
	php	;save result from release
	ldy #rspcb_link
	jsr dodelete	;delete the node
	plp	;get result back from release
	beq gonext	;no sndresponse was	attached
	jsr forbid	;balance with permit in retasynflag
	lda #noatprel	;no release ever received
	jsl retasynflag
	bra gonext	;and go to next item



rqscan		; ;this is where we	check the rq list
	lda curr
	sta cmdlist	;move it since others expect it here
	lda curr+2
	sta cmdlist+2

	longa off
	longi off
	sep #mbit+xbit+cbit	;go to 8 bit mode

	ldy #atprq_timeleft	;check retran timer
	lda [cmdlist],y
	sbc decval	;subtract number of	ticks
	sta [cmdlist],y	;save result
	beq sendagain	;send it again and dec trysleft
	bcs rqnext	;not down to zero yet
sendagain		; 
	ldy #atprq_trysleft	;now dec number of tries
	lda [cmdlist],y	;if it is not $ff or $00
	beq kickout	;get rid of this one
	dec a	;back it up
	cmp #$fe	;see if was $ff
	beq sendit	;yep, so don't dec & do send
	sta [cmdlist],y	;save new value
sendit	jsr sndrqpkt	;send the packet
rqnext		; 
	clc	;skip to next one
	rts
kickout		; 
	longa on
	longi on
	rep #mbit+xbit
	ldy #atprq_link	;offset to link field
	jsr dodelete	;delete it
	lda #requestfail	;timeout without response
	jsl kill	;pkt already deleted, kill only
	bra rqnext	;go on to next packet


*
* atp.sndresponse
*
	entry sendresponse	; EXPORT -> ENTRY  **TGH
sendresponse		;

	longa off
	longi off
	sep #mbit+xbit

	jsr forbid	;don't allow interrupts
	ldy #sdrsp_sskt
	lda [cmdlist],y
	jsr checkskt	;see if ok socket
	bne doerr1	;we got an error so	leave
goodsocket		; 
* NOTE: it is up to	the user to properly set the bitmap.
*
	sep #mbit+xbit
	longa off
	longi off
	ldy #sdrsp_flag	;get xo flag
	lda [cmdlist],y
	and #atpxobit	;and isolate xo bit
	beq csendrsp	;just send it
	jsr attachrspcb	;see if we can attach to a rspcb
	rep #mbit+xbit	;make sure full native
	longa on
	longi on
	bne doxosend	;do exactly once send
	lda #noatpcb	;couldn't find rspcb
	bra doerr1	;and report the error
doxosend		; 
	jsr sendrsp	;send response packets
	jmp waitdone	;and leave
csendrsp		; ;do at least
	jsr sendrsp	;send it
doerr1		; 
	jmp retasynflag	;and post it

sendrsp		; 
	sep #mbit+xbit
	longa off
	longi off
	ldy #sdrsp_bitmap	;get user supplied bitmap
	lda [cmdlist],y
	jsr sendnrsp	;and send the corresponding packets
	rts
*
* attachrspcb
*
* looks for a match	in the rspcb list, and if found
* attaches cmdlist to it, also sets up expire timer
*

attachrspcb		;       
	rep #mbit+xbit	;make sure full native
	longa on
	longi on
	lda cmdlist	;set up for looklist call
	sta laphead
	lda cmdlist+2
	sta laphead+2
	pea rspcbhead-rspcb_link ;push head of list
	pea attachtable	;address of match table
	ldy #rspcb_link	;offset to link field
	jsr looklist	;check for a match
	php	;save status
	beq notattached	;nope so wasn't xo
	ldy #rspcb_sndptr	;offset to attach field
	lda laphead	;now points to sndresponse
	pha	;save for later
	sta [cmdlist],y	;cmdlist now points	to rspcb
	iny
	iny
	lda laphead+2
	pha	;save for later
	sta [cmdlist],y

	longa off	;switch to 8 bit x,a
	longi off
	sep #mbit+xbit

	ldy #rspcb_timeout	;offset to expire counter
	lda #rspval	;30 seconds
	sta [cmdlist],y

	longa on
	longi on
	rep #mbit+xbit	;back to native full

	pla	;recover high word of sndresponse
	sta cmdlist+2	;back into cmdlist
	pla
	sta cmdlist	;and low word
notattached		; ;exit point
	plp	;recover processor state
	rts	;and return

	entry sendnrsp	; EXPORT -> ENTRY  **TGH
sendnrsp		;       
	longa off
	longi off
	sep #mbit+xbit	;8 bit x,a

	pha	;save bitmap
	ldy #sdrsp_rbnum	;get number of active responses
	lda [cmdlist],y
	tax
	pla	;recover bitmap
	and >lowbitmask,x	;and strip unnecessary bits
	pha	;and save bitmap again
	lda #$80	;this is a response	packet
	sta atpheader
	lda #$ff	;no response to start
	sta atpheader+1
sdrsp1	pla	;get current bitmap
	beq sdrsp9	;done
	inc atpheader+1	;bump sequence number
	lsr a	;move bit to carry
	pha	;save new bitmap
	bcc sdrsp1	;no packet for this	bit
	bne sdrsp2	;not last buffer in	sequence
	ldy #sdrsp_flag	;offset to flags
	lda [cmdlist],y	;get the flag
	and #atpstsbit	;see if sts wanted
	ora atpheader	;set bit if on since last buffer
	sta atpheader	;in this sequence
sdrsp2	lda atpheader+1	;get sequence number
	tax	;hold for a while
	inc a	;bump by 1 for test
	ldy #sdrsp_tpkts	;total number of bds's 
	cmp [cmdlist],y	;check against # of	packets
	bcc sdrsp3	;not last so send normally
	bne sdrsp1	;too big if > # packets (need add)
	lda #atpeombit	;last packet so get	eom bit
	ora atpheader	;and set it
	sta atpheader
sdrsp3		; 
	ldy #sdrsp_flag
	lda [cmdlist],y	;get xo bit
	and #atpxobit	;and isolate it
	ora atpheader
	sta atpheader	;and save it
	txa	;get back sequence #
	asl a	;*2
	asl a	;*4
	pha	;save * 4 value
	asl a	;*8
	adc $1,s	;add to * 4 to get * 12
	plx	;throw away junk
	jsr watppkt	;write this packet
	beq sdrsp1	;no error so keep sending
	ply	;discard stack junk
sdrsp9	rep #mbit+xbit	;go to full native
	rts	;and return


*
* openatpsocket
*
* opens a ddp socket and sets up a socket listener
* to handle incoming requests and releases
*
	entry openatpsocket	; EXPORT -> ENTRY  **TGH
openatpsocket		;

	longa on
	longi on

	jsr forbid
	ldy #opskt_skt	;get their socket
	lda [cmdlist],y
	ldx #rsplstn	;our socket listener
	ldy #^rsplstn	;high word
	jsr ddpopenskt	;open the socket
	bne goback	;error, so return

	longa off
	longi off
	sep #mbit+xbit

	txa	;get socket from open
	ldy #opskt_skt
	sta [cmdlist],y	;save new socket

	longa on
	longi on
	rep #mbit+xbit	;back to full native

	lda #noatperr	;no error
goback	jmp retasynflag	;return through here (calls permit)


*
* closeatpsocket
*
* closes up an atp socket opened through openatpsocket.
* This includes removing all references	to this socket
* from any of our lists, and freeing any associated memory. 
*
	entry closeatpsocket ; EXPORT -> ENTRY  **TGH
closeatpsocket		;       

	jsr forbid

	longa on
	longi on
	rep #mbit+xbit
	ldy #clsskt_result
	lda #noatperr
	sta [cmdlist],y	;no error

	longa off
	longi off
	sep #mbit+xbit

	ldy #clsskt_skt
	lda [cmdlist],y
	sta r1	;hold onto skt
	jsr closeddpskt	;close socket

	longa on	;comes back in full	16 bit
	longi on

	beq closeok	;socket closed ok
	jmp retasynflag	;return the error

closeok		; 
	pea grqhead-getrq_link ;scan this list
	pea clsgrq	;close out grq's
	ldy #getrq_link
	jsr listmanager
	pea rspcbhead-rspcb_link ;now remove rspcb's
	pea clsrspcb	;remove rspcb's that match
	ldy #rspcb_link
	jsr listmanager
	jsr permit
	rtl	;and return

clsgrq		; 

	longa off
	longi off
	sep #mbit+xbit

	ldy #getrq_ourskt
	lda [curr],y	;get socket from list
	cmp r1	;see if need to delete
	beq delit	;delete it if matches
	clc	;skip only
	rts
delit		; 
	rep #mbit+xbit	;use full native
	longa on
	longi on

	lda curr	;put pntr into cmdlist
	sta cmdlist	;since that's where retasynflag
	lda curr+2	;wants it
	sta cmdlist+2
	ldy #getrq_link
	jsr dodelete	;delete the node
sktclose		; ;calls completion	routine
	jsr forbid	;balance permit in retasyn
	lda #sktclsd	;socket was closed
	jsl retasynflag	;set result and do completion
skipon		; 
	clc	;keep going
	rts

clsrspcb		; 
	sep #mbit+xbit
	longa off
	longi off

	ldy #rspcb_sskt
	lda [curr],y
	cmp r1
	beq delcb	;remove the rspcb
	clc
	rts
delcb		; 

	longa on
	longi on
	rep #mbit+xbit

	lda curr
	sta r0
	sta cmdlist
	lda curr+2
	sta r0+2
	sta cmdlist+2
	ldy #rspcb_link
	jsr dodelete	;remove from linked	list
	jsr freemem	;free up the space
	jsr getsndrsp	;get sndrsp that was attached
	beq skipon	;the snd was never attached
	bra sktclose	;do completion stuff


*
* relrspcb
*
* call this to manually free a rspcb if	you need to.
*
	entry relrspcb	; EXPORT -> ENTRY  **TGH
relrspcb		;       
	longa on
	longi on
	rep #mbit+xbit

	jsr forbid	;don't bother us here
	ldy #relcb_result
	lda #noatperr
	sta [cmdlist],y	;assume no error
	lda cmdlist
	sta laphead	;compare against this
	lda cmdlist+2
	sta laphead+2
	pea rspcbhead-rspcb_link ;search through this list
	pea reltable
	ldy #rspcb_link	;offset to link field
	jsr looklist
	beq notfound	;no match found
	jsr relcb	;free the rspcb
	beq nosndatt	;no send response was attached
*
* if we need to here, we can put code to call the completion routine
* for the sndresponse which is now held	in cmdlist
*
	lda #rsprel	;close up and complete
	jmp retasynflag	;and exit from there


nosndatt	jsr permit	;permit ints again
	rtl	;and return

notfound	lda #noatpcb	;no control block
	jmp retasynflag	;and exit with error

* don't use add since small wanted
	IF  small	GOTO .tl2           
*
* addresponse
*
	entry addresponse	; EXPORT -> ENTRY  **TGH
addresponse		;       ;add a response to sendrsp
	longa on
	longi on

	jsr forbid
	lda cmdlist	;adjust this to account for
	sta laphead
	lda cmdlist+2
	sta laphead+2
	pea rspcbhead-rspcb_link ;look through rspcb's
	pea addtable	;match table for add
	ldy #rspcb_link	;link field of list	to scan
	jsr looklist	;and see if we get a match
	bne getsnd	;find attached sndrsp         
	brl nosndrsp	;there was none
getsnd		; 
	jsr getsndrsp	;sets cmdlist=attached sndresponse

	longa off
	longi off
	sep #mbit+xbit

	ldy #addrsp_seqnum	;sequence number of	this packet
	lda [laphead],y	;laphead is pointing to addrsp
	ldy #sdrsp_tpkts	;see if too many packets
	cmp [cmdlist],y
	bcs badsqnum	;bad sequence number
	ldy #sdrsp_rbnum	;currently active
	cmp [cmdlist],y	;see if too low
	bne badsqnum	;bad sequence number
	tax	;save for later
	inc a	;adjust highest active packet
	sta [cmdlist],y	;and save as new rbnum
	txa	;get back real sequence num
	asl a	;*2
	asl a	;*4
	pha	;save *4 value
	asl a	;*8
	adc $1,s	;carry should be clear get *4+*8
	ply	;discard stack junk
	ldy #sdrsp_rbdsad	;get offset to rbds

	rep #mbit+xbit+cbit	;go to full native
	longa on
	longi on

	and #$00ff	;strip high byte
	adc [cmdlist],y	;add to low word of	rbds
	sta bdsptr
	lda #0000	;add high word of 0	to add carry
	iny
	iny
	adc [cmdlist],y
	sta bdsptr+2
	clc
	lda laphead	;now get address of	packet to add
	adc #addrsp_bsize
	sta r0
	lda laphead+2
	adc #0000
	sta r0+2
movebuf	ldy #bds_bufsize
movelp		; 
	lda [r0],y	;get source WORD
	sta [bdsptr],y	;and move WORD
	iny	;move to next word
	iny
	cpy #bds_actlen	;stop when >= to this
	bcc movelp	;not done yet

	sep #mbit+xbit
	longi off
	longa off

	inx	;now make sequence num 1-8
	lda >onebitmask-1,x	;set bit in bitmap
	ldy #sdrsp_bitmap
	ora [cmdlist],y
	sta [cmdlist],y
	ldy #addrsp_flag	;get eom flag
	lda [laphead],y
	and #atpeombit	;see if eom wanted
	beq adddone	;our work is almost	done
	ldy #sdrsp_tpkts	;and update total number of packets
	txa	;recover sequence number+1
	sta [cmdlist],y	;and change tpkts
adddone		; ;now clean up and	leave
	ldy #sdrsp_bitmap	;get the bitmap
	lda [cmdlist],y
	jsr sendnrsp	;and send out the packets

	longa on
	longi on
	rep #mbit+xbit

	lda #noatperr
exit		; 
	ldy #addrsp_result
	sta [laphead],y	;set result
	jsr permit	;allow ints again 
	rtl	;and leave

badsqnum		; 
	rep #mbit+xbit
	lda #invalidseq	;bad sequence number
	bra exit	;and return
nosndrsp		; 
	rep #mbit+xbit
	lda #addnosnd	;trying to add without a send
	bra exit
.tl2



*
* atp.getrequest
*
* implements getrequest call
* and the associated socket listener
*
	entry getrequest	; EXPORT -> ENTRY  **TGH
getrequest		;

	longa off
	longi off
	sep #mbit+xbit

	jsr forbid
	ldy #getrq_ourskt	;get the socket they got from atp
	lda [cmdlist],y
	jsr checkskt	;see if valid
	beq @goodsocket	;yes, ok
	jmp retasynflag	;bad, so return with error
@goodsocket		; 

	longa on
	longi on
	rep #mbit+xbit	;full native mode

	pea grqhead-getrq_link ;head of getrequest list
	pei cmdlist+2	;high word of this node
	pei cmdlist	;low word of this node
	ldy #getrq_link	;offset to link field
	jsr addlist	;add to get request	list
	jmp waitdone	;return with busy flag set


*
* rsplstn
* this is the socket listener that is called when requests and
* releases come to us.  It is responsible for searching rspcb's,
* & grq's, and takes the appropriate action
*
	entry rsplstn	; EXPORT -> ENTRY  **TGH
rsplstn		;       
	longa on
	longi on

	rep #mbit+xbit	;force full native
	pea databank	;make sure we are in right bank
	plb
	plb
	lda #zplen	;save zero page
	ldx #cmdlist	;from here
	jsr savezp
	ldx cmdlist
	ldy #$00e1	;always in e1
	stx laphead	;save address of lapheader
	sty laphead+2
	pei laphead+1	;push bytes 2 & 3 (3=$e1)
	plb	;discard byte 2
	plb	;and get bank e1
	stz status	;assume no error to	return   
	jsr readatpheader	;read in the header
	sep #mbit+xbit	;make sure 8 bit x,a
	longa off
	longi off

	bne dumprest	;error so ignore
	lda atpheader	;get function code
	tax	;make a copy
	asl a	;check function
	bpl dumprest	;ignore it since it's a response
	bcs release	;it's a release
	txa	;get back original function code
	and #atpxobit	;see if xo
	beq atprpls4	;nope
* this is an exactly once request, so now it is time to check
* and see if there is a response matching this packet already
* waiting in a rspcb.  If so, then we re-tranmit the original
* response.  Otherwise, if the rspcb exists but does not have
* a response attached to it, we simply ignore this packet.
* If no rspcb is found at all, then see	if there is a getrequest
* pending for this packet, and handle it for the getrequest.
*
	jsr lookrspcb	;look for a match in rspcb list
	beq atprpls4	;no rspcb so do getrequest check
* a rspcb was found, so check to see if	a response already exists
* cmdlist now points to the rspcb that matched
	ldy #rspcb_timeout	;re-set timeout 
	lda #rspval	;get initial value
	sta [cmdlist],y	;save it
	jsr getsndrsp	;get sndrsp in cmdlist

	sep #mbit+xbit	;back to 8 bit x,a

	beq dumprest	;nothing attached yet so leave
	lda atpheader+1	;get bitmap from request
	ldy #sdrsp_bitmap
	and [cmdlist],y	;and with internal bitmap
	pha	;packets to send (save for free pkts)
	jsr sendnrsp	;snd pkts they want	and we have
	sep #mbit+xbit	;make sure 8 bit x,a
	pla	;get packets to send
	tax	;hold for awhile
	ldy #sdrsp_bitmap	;get internal bitmap again
	eor [cmdlist],y	;operation gives us	packets to free
	pha	;hold on stack
	txa	;get packets to send (new bitmap)
	sta [cmdlist],y	;save it
	pla	;now get packets to	free
	beq dumprest	;there are none
	jsr freepkts	;call free packets routine
dumprest		; ;throw out remaining data
	rep #mbit	;16 bit A
	sec	;do internal call
	longa on
	lda #$8000	;do purge, read 0 bytes
	jsr lapread
	longa off
rsplstngoback		; 
	jmp doneatp	;return through common exit

release		; ;comes here with release pkt
	longa on
	longi on
	jsr lookrspcb	;search for a match
	beq dumprest	;no match so leave
	jsr relcb	;free this cb
	beq dumprest	;there was no sndresponse attached
	bra goodexit	;there was a sndresponse to release it

	entry relcb	; EXPORT -> ENTRY  **TGH
relcb		;       
	rep #mbit+xbit
	pea rspcbhead-rspcb_link ;delete from this list
	ldy #rspcb_link	;offset to link
	jsr delitem	;remove from list

	longa on
	longi on	;comes back in 16 bit mode

	entry relcb1	; EXPORT -> ENTRY  **TGH
relcb1		;       
	lda cmdlist	;get node to put back on free
	sta r0	;list
	lda cmdlist+2
	sta r0+2	;node to free is in	r0
	jsr freemem	;puts back on list of avail nodes
	jsr getsndrsp	;gets sendrsp attached to rspcb
	rts	;return all set up

goodexit	jsr forbid	;balance permit in retasynflag
	rep #mbit+xbit	;16 bit x,a
	lda status	;get error code if any    
	jsl retasynflag	;call completion stuff (does permit)
	bra dumprest	;and return
atprpls4		; ;check for a matching getrequest

	rep #mbit+xbit	;make sure full native

	pea grqhead-getrq_link ;search the getrequest list
	pea grqtable	;make sure a getrequest is pending
	ldy #getrq_link	;offset to link
	jsr looklist	;call search routine
	beq dumprest	;no match found
* a match was found, and cmdlist now contains the matching getrequest
	clc
	lda cmdlist
	adc #getrq_bufsize
	sta bdsptr
	lda cmdlist+2
	adc #^getrq_bufsize
	sta bdsptr+2
	jsr readrbd2	;alternate entry if	bds already set
	bne rsplstngoback	;and return, packet	already purged
	pei cmdlist+2	;high word
	pei cmdlist	;low word of destination
	jsr moveinfo	;move the data

	longa off
	longi off
	sep #mbit+xbit

	pea grqhead-getrq_link ;remove from grq	list
	ldy #getrq_link
	jsr delitem	;and delete it
	sep #mbit+xbit	;put back in 8 bit x,a

	ldy #getrq_bitmap	;update bitmap
	lda atpheader+1
	sta [cmdlist],y
	ldy #getrq_flag	;update flag field
	lda atpheader	;get command byte
	sta [cmdlist],y
	and #atpxobit	;isolate this bit
	beq goodexit	;all done, not xo
	jsr getmem	;get a free node
	beq nomem	;no memory left

	longa on	;comes back in full	native
	longi on

	lda #0000
	ldy #rspcb_sndptr
	sta [r0],y
	iny
	iny
	sta [r0],y	;clear sndptr field	(not attached yet)
	ldy #rspcb_timeout	;set initial timeout 
	lda #rspval	;get initial value
	php
	sep #mbit	;only a one byte value
	sta [r0],y	;and save in parm block
	plp	;restore state

	pea rspcbhead-rspcb_link ;push parms on	stack for second call
	pei r0+2	;now, since r0 will	be destroyed by
	pei r0	;moveinfo

	pei r0+2
	pei r0
	jsr moveinfo	;now set up data for this rspcb
	ldy #rspcb_link	;parms are already on stack (above)
	jsr addlist	;and do it
	brl goodexit	;do iocomp and leave

nomem		; ;no memory for rspcb
	rep #mbit+xbit	;make sure full native
	lda #norspcbmem
	sta status
	brl goodexit	;call completion routine

moveinfo		; 
	plx	;get return
	pla	;get low word
	sta curr	;set up
	pla	;get high word
	sta curr+2
	pea rspcbtable-sdrsp_sskt ;calculate base of movetable
	pla	;get it back
	sta r0
	phk
	phk	;push program bank
	pla	;get it back
	sta r0+2	;and use for high word
	phx	;restore return addr
	jsr listmove	;do the move
	rts

	entry lookrspcb	; EXPORT -> ENTRY  **TGH
lookrspcb		;       
	rep #mbit+xbit
	pea rspcbhead-rspcb_link ;search the rspcb list
	pea rspcbtable	;match table  
	ldy #rspcb_link	;offset to link
	jsr looklist	;call search routine
	sep #mbit+xbit	;make sure 8 x,a
	rts

	entry getsndrsp	; EXPORT -> ENTRY  **TGH
getsndrsp		;       ;puts sndrsp field of rspcb in cmdlist
	longa on
	longi on
	rep #mbit+xbit
	ldy #rspcb_sndptr	;check attach field
	lda [cmdlist],y	;get low word
	pha	;save
	iny
	iny
	lda [cmdlist],y	;get high word
	sta cmdlist+2	;new cmdlist is sndrsp
	pla	;get low word
	sta cmdlist
	ora cmdlist+2	;see if 0
	rts

*
* freepkts
* this routine will	call the special routine attached to the sndresponse
* call for every packet that is no longer needed in the response
* The ones that are	no longer needed are the ones which have been sent
* and a new bitmap has been returned saying those packets were received
* if a bit is set in aflag, it means that that packet is now free.
*
freepkts		; 
	longa off
	longi off	;comes here in 8 bit mode

	sep #mbit+xbit	;just to be safe
	ldy #sdrsp_aflag	;store the packets to add flag
	sta [cmdlist],y
	ldy #sdrsp_addrtn	;offset to routine wanted
	jsl callcomp	;and call it
	rts	;and return


*
* atp.memory
*
* this is the memory management stuff
* that is neccessary to support xo sendresponses
*
	entry freemem	; EXPORT -> ENTRY  **TGH
freemem		;free node that is in R0

	longa on
	longi on
	rep #mbit+xbit

	lda availhead	;get low word of head
	sta [r0]	;save in low link field
	ldy #0002	;offset to high link
	lda availhead+2
	sta [r0],y	;save that (r0->link=availhead)
	lda r0	;now get this node
	sta availhead	;and let availhead = r0
	lda r0+2
	sta availhead+2	;node was just released
	rts	;by adding to front	of availhead

	entry makefreelist	; EXPORT -> ENTRY  **TGH
makefreelist		;       ;create a list of free memory

	rep #mbit+xbit	;force full native mode

	lda #freechunk	;use fixed memory for now
	sta r0	;but later call memory manager
	lda #^databank	;for this memory
	sta r0+2	;
	ldx #512/rspcbsize	;512 bytes so get as many as we can
makeloop		; 
	jsr freemem	;free first node
	clc
	lda r0	;get low word
	adc #rspcbsize	;move to next entry
	sta r0
	lda r0+2	;get high byte
	adc #^rspcbsize	;add high word (always 0)
	sta r0+2	;and save result
	dex	;
	bne makeloop	;add next node to free list
	rts	;and return

	entry getmem	; EXPORT -> ENTRY
getmem		;       ;this gets a node from availhead

	rep #mbit+xbit	;force full native

	pea availhead-0	;push address of head
	pea getspc	;getmem special routine
	stz r0	;clear return field
	stz r0+2	;and high byte
	ldy #0000	;offset to avail link
	jsr listmanager	;call list handler
	lda r0
	ora r0+2	;set flags for caller (z=1 if no mem)
	rts	;return to caller
getspc		; ;special handler
	lda curr	;get this node
	sta r0	;and take from list
	lda curr+2
	sta r0+2
	jsr dodelete	;delete node and stop
	sec	;stop
	rts	;that's it

*
* atp.qtr
*
* this is the general quarter second task scheduler
* it allows addition and removal of 1/4	second routines
* that will be called at user specifiable times.
*
* NOTE: RemoveQtr is completely re-entrant, and can   
* be called whenever a routine is no-longer needed.      
* InstallQtr is safe to call when servicing a 1/4 sec
* interrupt or AppleTalk packets.  In other words, if
* you are in a 1/4 second handler, it is allowable to
* call InstallQtr without ill effect.
*
	entry InstallQtr	; EXPORT -> ENTRY  **TGH
InstallQtr		;

	longa on
	longi on
	rep #mbit+xbit
	jsr forbid	;don't bother us in here

	ldy #insqtr_ticks	;update tick counter
	lda tickcount	;get global tick count
	sta [cmdlist],y
	ldy #insqtr_count	;get number of ticks wanted
	lda [cmdlist],y
	beq rqgoback	;return only global	tick count

* always add to the	head of the queue, since it is possible	that
* the 1/4 scheduler	could be scanning the list when we were	called.
* If the node where	appended to the end, it could be called	before
* time had really elapsed!

	pea qtrhead-insqtr_link ;add to this list
	pei cmdlist+2	;add this item
	pei cmdlist
	ldy #insqtr_link	;get offset to link	field
	jsr addlist
	lda #qtrbusy	;show that we are in progress
	jmp retasynflag

	entry RemoveQtr	; EXPORT -> ENTRY  **TGH
RemoveQtr		;       ;delete from list
	rep #mbit+xbit	;force 16 bits
	jsr forbid	;no ints in here

	pea qtrhead-insqtr_link
	ldy #insqtr_link
	jsr delitem
	beq rqnotfound	;error
	ldy #rmvqtr_command	;Load the command number.
	lda [cmdlist]
	and #$FF00	;Only the command number!
	cmp #$4500	;Is it a cancel or remove?
	bne @L1	;Branch if remove

	lda [cmdlist]
	ora #$0080
	sta [cmdlist]
	lda #qtrcanceled
	bra rqgoback

@L1	lda #noqtrerr	;no error
rqgoback		; 
	jmp retasynflag	;and return
rqnotfound	lda #qtrnotfound
	bra rqgoback	;return with error

* this is the quarter second dispatcher
* it is called by lap directly, and comes
* here with int's disabled
*
	EXPORT qtrsched
qtrsched		;       ;the 1/4 sec scheduler
	ldx atalkon	;see if appletalk really active
	beq qtrscheddone	;no, so don't try to dispatch

	and #$00ff	;lap only counts low byte as valid
	sta decval	;decrement value
	clc
	adc intervalticks	;running ticks in real time interval
	sta intervalticks	;save them

;	pea $0000	;push space for result of readtime
;	pea $0000	;push space for result of readtime
;	pea $0000	;push space for result of readtime
;	pea $0000	;push space for result of readtime
;	ldx #$0d03	;call readtimehex
;	jsl >$e10000
;	pla	;get seconds and minutes
;	plx
;	plx
;	plx	;discard other stuff
;	and #$00ff	;just want number of seconds
;	tax	;save in case we need it again

	php
	sep #$30
	jsl >$E1008C
	plp
	lda >$E103E1
	and #$00FF
	tax

checktimedif		; 
	sec
	sbc startcount	;subtract the previous counter
	bcs numsok	;no need to do 60 second adjust
	txa	;recover time again
	adc #256	;add 60 seconds to real time and check for difference
	bra checktimedif	;go check the difference now
numsok		; 
	cmp #10	;see if above threshold
	bcc dontadjustyet	;no, so lets not adjust right now
	stx startcount	;new counter
	asl a	;multiply by 4
	asl a	;to find number of 1/4 seconds
	sec
	sbc intervalticks	;see if more ticks need to be dispatched
	stz intervalticks	;zero out the interval timer
	bcc dontadjustyet	;intervalticks were	valid
	clc
	adc decval	;add to value we just got
	sta decval	;dispatch with adjusted tick count
dontadjustyet		; 
	lda decval	;get decrement value
	clc
	adc tickcount	;add to old tickcount
	sta tickcount	;and save new value

	lda #zplen	;entire length of zp used
	ldx #cmdlist	;base of zp to save
	jsr savezp	;and save it

	jsr atptimer	;our internal routine
	pea qtrhead-insqtr_link ;scan this list
	pea qtrroutine	;special routine for each node
	ldy #insqtr_link	;offset to link
	jsr listmanager	;do it

	lda #zplen	;length of zero page to restore
	ldy #cmdlist	;restore starting here
	jsr restorezp	;and restore it
qtrscheddone		; 
	rts	;and return

qtrroutine		; ;gets each node
	sec	;for subtract
	ldy #insqtr_count
	lda [curr],y	;get value
	sbc decval	;subtract number of	ticks that expired
	sta [curr],y	;update value
	beq callit	;call the handler
	bcc callit	;if <=0
scanmore		; 
	clc	;skip to next node
	rts
callit		; 
	ldy #insqtr_ticks
	lda tickcount
	sta [curr],y	;update users tick count field
	lda curr	;copy to cmdlist for calling
	sta cmdlist	;routine
	lda curr+2
	sta cmdlist+2
	ldy #insqtr_link
	jsr dodelete	;delete before completion
	jsr forbid	;balance permit in retasynflag
	lda #noqtrerr	;call is completing
	jsl retasynflag	;and call completion if there
	bra scanmore	;keep scanning

*
* atp.ddpstuff
*
* these are the interface routines from	atp to
* dpp.  They will change when the 'real' version
* of ddp goes into use.
*
	EXPORT ddpopenskt
ddpopenskt		;

	stx parmlist+5	;store address of skt listener
	sty parmlist+7
	sep #mbit+xbit	;go to 8 bit x,a
	longa off
	longi off

	sta parmlist+4	;socket id
	lda #$0b	;command for open ddp socket
	sta parmlist+1
	jsr makecall	;call routine
	longa on
	longi on

	beq ok	;leave it alone
	lda #noddpskt	;no ddp socket error
ok		; 
	rts

	entry makecall	; EXPORT -> ENTRY  **TGH
makecall		;       ;call with parm list
	rep #mbit+xbit
	longa on
	longi on

	ldx #<parmlist
	ldy #^databank
	jsr atpentry	;do the open

	sep #mbit+xbit	;make sure in 8 bit	x,a
	ldx parmlist+4	;get socket number assigned
	rep #mbit+xbit	;back to full native mode
	lda parmlist+2	;z=1 if no error
	rts	;and return

	EXPORT closeddpskt
closeddpskt		;       
	sep #mbit+xbit	;8 bit mode
	longa off
	longi off

	sta parmlist+4	;close this socket
	lda #$0c	;command for close
	sta parmlist+1
	jsr makecall	;call routine
	longa on
	longi on
	beq okfine	;leave it alone
	lda #atpbadskt	;no ddp socket error
okfine		; 
	rts


*
* opendriver
* opens the atalk driver for testing
*
	entry opendriver	; EXPORT -> ENTRY  **TGH
opendriver		;

	longa on
	longi on
* assume our reset is always first installed, so it can be
* in rom, since it need not know who it	should call
	lda >jresetcode	;$5c+(resetcode<<8)	  ;put jml to resetcode
	sta softreset	;routine into the vector
	lda >jresetcode+2
	sta softreset+2


initdriver		;       ;only init the driver
	longa on	;comes here in full	16
	longi on
	rep #mbit+xbit


	php
	sei	;don't want to be interrupted in here
	pea $0000	;push space for result of readtime
	pea $0000	;push space for result of readtime
	pea $0000	;push space for result of readtime
	pea $0000	;push space for result of readtime
	ldx #$0d03	;call readtimehex
	jsl >$e10000
	pla	;get seconds and minutes
	plx
	plx
	plx	;discard other stuff
	and #$00ff	;just want number of seconds
	sta startcount	;initialize for 1/4	sec irq routine
	plp	;restore state

	ldx #iparmstart	;init parms start
	ldy #rparmstart	;ram parm start
	lda #(iend-iparmstart)-1 ;length of initialized data
	mvn main,databank	;from rom to ram


	sep #mbit+xbit
	longa off
	longi off	;8 bit x,a

	lda #00	;clear them bytes
	ldy #savecnt	;number of bytes to	clear
clre1lp		; 
	sta initsec-1,y	;clear bytes in $e1
	dey
	bne clre1lp


	longa on
	longi on
	rep #mbit+xbit+cbit
	jsl lapinit	;through dipatcher.	When LAP returns,
*		;A MUST be the result.
	tax	;set codes
	bne GetOuttaHere	;error so exit
	inc atalkon	;appletalk is on
	jsr ddpinit

	jsr makefreelist	;create free list of mem


GetOuttaHere		; 
	rtl	;and return

jresetcode	jml resetcode	;code to call built	in dispatch

*
* this is where soft resets come
*

resetcode		;       ;this code will be moved to ram
	lda #ourstack	;get base of stack
	sta lsp	;and set up stack pointer
	jsr lapresetinit	;let lap zero info before calling it for node init
	ldx #cmdlist	;save zp
	lda #zplen	;length of stuff not saved yet
	jsr savezp
	stz rinitparms+9	;change to stz later
	lda #rinitparms	;do the init with boots list
	sta cmdlist
	lda #^databank
	sta cmdlist+2
	jsl initdriver	;init driver stuff and rtl
	ldy #cmdlist	;restore from here
	lda #zplen	;and this much
	jsr restorezp
	rtl
rscodelen	equ *-resetcode	;length of code to relocate



	entry readatpheader	; EXPORT -> ENTRY  **TGH
readatpheader		;	;call ddp to read header
	longa off
	longi off

	rep #mbit+xbit
	longa on
	longi on

	ldx #<ratpreadp	;low byte of header
	ldy #^databank	;high byte of header
	jsr atpentry	;call dispatcher for read
	lda ratpreadp+2	;get result
	rts	;and return


*
* readrbds
* reads in the data	in the packet into our bds structure
* y=offset to bds pointer field
* a=offset from bds	pointer to actual bds entry
*
	entry readrbds	; EXPORT -> ENTRY  **TGH
readrbds		;

	longa on
	longi on
	rep #mbit+xbit+cbit	;force 16 bit x,a and clear carry

	adc [cmdlist],y	;add a to low byte of pointer
	sta bdsptr
	iny
	iny	;go to high word
	lda #00
	adc [cmdlist],y	;add carry to high word
	sta bdsptr+2
	entry readrbd2	; EXPORT -> ENTRY  **TGH
readrbd2		;       ;entry point if bdsptr already set
	rep #mbit+xbit
	stz status	;assume no error
	lda #$0800	;make a readprot call
	sta parmlist
	sta parmlist+9	;use 6 to mean purge in parm list
	ldy #bds_user	;prepare to move user bytes
	lda atpheader+4	;get first 2
	sta [bdsptr],y
	lda atpheader+6	;pick up last 2
	iny	;move to upper 2 bytes
	iny
	sta [bdsptr],y	;done with user bytes
	ldy #bds_bufptr	;offset to buffer pointer
	lda [bdsptr],y	;get low word
	sta parmlist+6	;save low word
	iny	;move to high word
	iny
	lda [bdsptr],y
	sta parmlist+8	;and save it
	ldy #bds_bufsize	;offset to size of buf
	lda [bdsptr],y	;get maximum amount	of data to read
	sta parmlist+4	;and save it
	jsr makecall	;make call using parmlist
	beq noerr
	cmp #lapendbuf
	beq noerr	;not an error
	cmp #lapextra	;special ok type error
	bne leave	;leave
	lda parmlist+11
	ora #$8000	;set error bit
	sta parmlist+11
noerr		; 
	lda parmlist+11
	ldy #bds_actlen	;offset to actual bds len
	sta [bdsptr],y
	lda status	;return error code
	rts
leave		; 
	sta status
	bra noerr	;and leave through there

*
* watppkt
* write atp packet - this routine puts together an atp packet and
* sends it out through ddp.  If it is called with a=$ff then it is
* assumed that the bdsptr has already been calculated, otherwise
* it will calculate	it for you based on	an offset passed in	a
*
* exits in 8 bit mode
*
	entry watppkt	; EXPORT -> ENTRY  **TGH
watppkt		;

	rep #mbit+xbit
	longa on
	longi on

	tax	;save for compare later
	lda #$0d00	;do ddp write command
	sta parmlist

	sep #mbit+xbit	;8 bit x,a
	longa off
	longi off

	lda #$03	;atp is ddp protocol type 3
	sta parmlist+10
	ldy #atprq_dymskt
	lda [cmdlist],y	;get socket from atp list
	sta parmlist+9	;save in ddp list
	ldy #atprq_flag
	lda [cmdlist],y	;get flag
	and #$01	;strip all but checksum bit
	sta parmlist+4

	rep #mbit	;16 bit a
	longa on

	ldy #atprq_dnet
	lda [cmdlist],y
	sta parmlist+5	;16 bit store
	ldy #atprq_dnode	;destination node &	skt
	lda [cmdlist],y
	sta parmlist+7
	lda #wdsbase	;get base of wds
	sta parmlist+11	;and store it
	lda #^databank	;get high word
	sta parmlist+13



*
* now the parm list	is all set up, so we now set up the wds	stuff
* we should be in 16 bit a mode here
*
	txa	;save in case we need to use it
	inx	;see if they set bds
	beq bdsset	;yep so no need
	clc	;we need to set it up
	ldy #sdrsp_rbdsad	;offset to bds pointer
	adc [cmdlist],y
	sta bdsptr	;save low word
	ldy #sdrsp_rbdsad+2
	lda #00	;prepare to add carry
	adc [cmdlist],y
	sta bdsptr+2
bdsset		; ;bdsptr is now pointing to the bds
	ldy #atprq_tid
	lda [cmdlist],y	;get tid
	sta atpheader+2
	ldy #bds_user	;offset to user low	word
	lda [bdsptr],y	;get it
	sta atpheader+4	;put in header
	iny
	iny
	lda [bdsptr],y	;get high user bytes
	sta atpheader+6
	lda #atpheader	;only do low word for now
	sta wdsbase+8	;first 4 bytes are reserved
	lda #^databank	;high word
	sta wdsbase+10
	lda #08
	sta wdsbase+6	;length of above
	ldy #bds_bufptr	;offset to buffer address
	lda [bdsptr],y	;get low word
	sta wdsbase+14	;and save it (ignore high for now)
	iny
	iny
	lda [bdsptr],y
	sta wdsbase+16
	ldy #bds_bufsize	;move to length field
	lda [bdsptr],y	;get it
	ldx atpheader	;get atp type
	cpx #$c0	;see if release
	bne uselen	;use len as is
	lda #0000	;otherwise use len of 0
uselen		; 
	sta wdsbase+12
	lda #$ffff	;end of list
	sta wdsbase+18
* now the parm list	for ddpwrite is completely set up, so off we go
* to write the packet

	jsr makecall	;make call using parmlist
	sep #mbit+xbit	;always exit in 8 bit mode from

	rts	;and return to our caller

	entry checkskt	; EXPORT -> ENTRY  **TGH
checkskt		;       
	rep #mbit+xbit
	longa on
	longi on
	jsr ddpcheckskt	;check socket through ddp
	cpx #<rsplstn	;see if matches our	listener skt
	bne skterr	;bad socket
	tya	;get high word
	and #$00ff	;use only low byte
	cmp #^rsplstn
	bne skterr	;got an error
	rts	;all is ok
skterr		; 
	lda #atpbadskt	;return socket error
	rts


*
* rom based booting
*   atp.boot
*


	entry bootcode	; EXPORT -> ENTRY  **TGH
bootcode		;


	longa on
	longi on

	ldy #^databank	;Init appletalk
	ldx #rinitparms
	jsr atpentry
	ldx #$01ff	;set stack below where code loads
	txs
*
* see if we can find somebody to boot from
*
tryboot		; ;try booting
	stz cursor	;clear cursor position

	ldy #^databank
	ldx #rlookparms
	jsr atpentry
	lda rlookparms+23	;see if got any
	and #$00ff
	beq nocanboot	;nothing received

	sep #mbit+xbit	;go to 8 bit
	longa off
	longi off

	ldx #39	;clear line
	lda #' '+$80
clrlp		; 
	sta >sline,x	;put on screen
	dex
	bpl clrlp
	lda #'.'+$80	;reading char
	sta currpart
	ldy #03
mvlp		; 
	lda lookbuf,y
	sta rsrqparms+atprq_dnet,y ;and put in sendrequest list
	dey
	bpl mvlp	;and loop till negative

	rep #mbit+xbit
	longa on
	longi on

	lda #$0001	;tell them cortland, and packet 0
	sta rsrqparms+atprq_user
	lda #code	;start code here
	sta rsrqbds+bds_bufptr ;init bds
	lda #^code
	sta rsrqbds+bds_bufptr+2
getnext		; ;get next buffer
	sep #mbit+xbit
	longa off
	longi off

	lda #01	;reset bitmap for next request
	sta rsrqparms+atprq_bitmap

	rep #mbit+xbit
	longa on
	longi on

	ldy #^databank
	ldx #rsrqparms
	jsr atpentry	;and do it sync
	bcs tryboot	;try again, got an error


	sep #mbit+xbit	;go to 8 bit x,a
	longa off
	longi off
	lda currpart	;get char
	ldx cursor
	inx	;bump cursor
	cpx #41	;see if past end of	line
	bcc charok	;char is in bounds
	ldx #01	;back to beginning of line
	eor #$80	;flip high bit of char
	sta currpart
charok		; 
	stx cursor
	sta >sline-1,x	;put char on screen

	inc rsrqparms+atprq_user+1 ;ask for next packet
	lda rsrqbds+bds_user ;get eof flag
	bne done	;we are done
	clc
	inc rsrqbds+bds_bufptr+1 ;increment high byte by 2
	inc rsrqbds+bds_bufptr+1 ;and again to give effect of +512
	bra getnext	;get next packet

done		;       
	rep #mbit+xbit
	longa on
	longi on
	jml code	;really jump to code in real version
nocanboot		; 
	pea $0000	;switch in bank 0 data
	plb
	plb
	sec	;go to emulation mode
	xce
	longa off
	longi off
	lda romread	;switch in the rom

;The following load has been changed from a lda #$c7.  We can't assume
;slot 7 anymore.

	lda >Cnxx+3	;We add 3 to get to the bank byte.
	sta $1
	jml $faba

	ENDP
*
* atp.vars
*

initblock	PROC	;initialized data

	entry bootstart	; EXPORT -> ENTRY  **TGH
bootstart		; 
	entry initparms	; EXPORT -> ENTRY  **TGH
initparms	DC.B $00,$01,$00,$00 ;open the drivers
	DC.B $80,$00,$00,$00,$00 ;past junk
	DC.B $00	;pick a node, any node
	DC.B $00,$00

	entry openparms	; EXPORT -> ENTRY  **TGH
openparms	DC.B $00,$14,$00,$00,$00 ;open a dynamic socket

	entry closeparms	; EXPORT -> ENTRY  **TGH
closeparms	DC.B $00,$15,$00,$00,$00 ;for closing up

	entry lookparms	; EXPORT -> ENTRY  **TGH
lookparms	DC.B $00,$10,$00,$00 ;cnt, cmd, result
	DC.B $00,$00,$00,$00 ;completion routine
	DC.L entityblk	;entity name stuff
	DC.B 4	;look every 1 sec
	DC.B 32	;look up to 32 times
	DC.B $00,$00	;reserved bytes
	DC.W 100	;100 byte buffer
	DC.W lookbuf
	DC.W $e1
	DC.B $01	;only want 1 match total
	DC.B $00	;number gotten

	entry srqparms	; EXPORT -> ENTRY  **TGH
srqparms	DC.B $00,$12,$00,$00 ;cnt, cmd, result
	DC.B $00,$00,$00,$00 ;io completion
	DC.B $00	;our socket (listener socket)
	DC.B $00,$00	;their network
	DC.B $00	;their node
	DC.B $00	;their skt
	DC.B $00,$00	;their tid
	DC.W 0	;buffer to send size
	DC.L 0	;no buffer used
	DC.B $00,$00,$00,$00 ;user bytes
	DC.B $01	;1 response buffer
	DC.W rsrqbds	;bds for input
	DC.W $e1
	DC.B $00	;flag
	DC.B $04	;every 1 second
	DC.B 64	;try 64 times
	DC.B $01	;bitmap for request
	DC.B $00
	DC.B $00,$00,$00,$00,$00,$00 ;reserved fields

	entry srqbds	; EXPORT -> ENTRY  **TGH
srqbds	DC.W 512	;max buf size
	DC.L code	;start code here   
	DC.B $00,$00,$00,$00 ;user bytes filled	in 
	DC.B $00,$00	;and actual length received

	entry bootend	; EXPORT -> ENTRY  **TGH
bootend		;           ;end of	boot code to be moved

	entry iparmstart	; EXPORT -> ENTRY  **TGH
iparmstart		; 
atpreadp		; 
	DC.B 00
	DC.B 8
	DC.B $00,$00
	DC.W 8
	DC.W atpheader
	DC.W $e1
	DC.B $00	;don't purge
	DC.B $00,$00	;number of bytes read returned here

	entry iend	; EXPORT -> ENTRY  **TGH
iend		; ;end of inited data



	ENDP





romblock	PROC	;this data is romable


	entry rsptable	; EXPORT -> ENTRY  **TGH
rsptable	DC.B 13	;ld.dskt
	DC.B 00	;ld.snet
	DC.B 00	;ld.snet+1
	DC.B 12	;ld.snode
	DC.B 14	;ld.sskt
	DC.B $82	;tidh (atp) switch to atp header
	DC.B 03	;tidl (atp)
	DC.B $ff	;end of compare table

	entry rspcbtable	; EXPORT -> ENTRY  **TGH
rspcbtable	DC.B 13	;ld.dskt
	DC.B 09	;ld.snet
	DC.B 10	;ld.snet+1
	DC.B 12	;ld.snode
	DC.B 14	;ld.sskt
	DC.B $82	;tidh (atp) switch to atp header
	DC.B 03	;tidl (atp)
	DC.B $ff	;end of compare table

	entry grqtable	; EXPORT -> ENTRY  **TGH
grqtable	DC.B 13	;only verify against ourskt
	DC.B $ff	;end of table

	entry canceltable	; EXPORT -> ENTRY  **TGH
canceltable	DC.B $00,$00,$00,$00,$00 ;skip first 5 items
	DC.B creq_tid	;low byte of tid in	list
	DC.B creq_tid+1	;high byte of tid in list
	DC.B $ff	;end of list

	entry attachtable	; EXPORT -> ENTRY  **TGH
attachtable	DC.B rspcb_sskt	;table corresponds directly
	DC.B rspcb_dnet	;to the sendresponse packet
	DC.B rspcb_dnet+1	;so the order of these should
	DC.B rspcb_dnode	;match the order of	sendresponse
	DC.B rspcb_dskt	;stuff
	DC.B rspcb_tid
	DC.B rspcb_tid+1
	DC.B $ff

	entry addtable	; EXPORT -> ENTRY  **TGH
addtable	DC.B addrsp_sskt
	DC.B addrsp_dnet
	DC.B addrsp_dnet+1
	DC.B addrsp_dnode
	DC.B addrsp_dskt
	DC.B addrsp_tid
	DC.B addrsp_tid+1
	DC.B $ff

	entry reltable	; EXPORT -> ENTRY  **TGH
reltable	DC.B relcb_ourskt
	DC.B relcb_snet
	DC.B relcb_snet+1
	DC.B relcb_snode
	DC.B relcb_sskt
	DC.B relcb_tid
	DC.B relcb_tid+1
	DC.B $ff

	entry onebitmask	; EXPORT -> ENTRY  **TGH
onebitmask	DC.B $01,$02,$04,$08,$10,$20,$40,$80
	entry lowbitmask	; EXPORT -> ENTRY  **TGH
lowbitmask	DC.B $00,$01,$03,$07,$0f,$1f,$3f,$7f,$ff

	entry entityblk	; EXPORT -> ENTRY  **TGH
entityblk		; 
	DC.B 1
	DC.B '='
	DC.B tylen	;length of type
	entry tystart	; EXPORT -> ENTRY  **TGH
tystart		; 
	DC.B 'Apple //gs'
tylen	equ *-tystart

	DC.B 1
	DC.B '*'



	ENDP

;xxxxxx	equ (openparms-initparms)
	END


\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/AppleTalk/lap_includes.aii b/IIGS.601.SRC/GSToolbox/AppleTalk/lap_includes.aii
new file mode 100644
index 0000000..629524b
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/AppleTalk/lap_includes.aii
@@ -0,0 +1 @@
+*******************************************************************************
*
* File: LAP.INCLUDES
*
* This file contains the 65816 implementation of LAP for the Apple IIGS.
* Inspiration and guidance derived from Fern Bachman's 65C02 implementation.
*
* Copyright Apple Computer, 1986
* Original Author: Peter Richert, Greg Seitz
*
* NOTE:
*   If calling internal form you must set the carry otherwise the carry is
*   cleared from the dispatcher (long form)
*
*******************************************************************************
*
* Notes:
*
* If the ROM version ever changes you must change the following line!

RomVer	equ $1020	;Rom version 2.0.

*
*
*******************************************************************************
*
* Modification History
*
* 8/8/88    TGH	- Started working on RevD ROM 02
*	- Added 3 vectors Cnxx, CnxxGo, and CnProdos to bank $E1.
*	  These will be patched to jump to either 00C1xx or 00C2xx.
*
* 8/23/88   TGH	- Took out CnProdos vector.  Didn't need it.
*
* 8/24/88   TGH	- Changed MID to load only the low order byte as the
*	  high order byte was always being written over.
*	- Hard coded ROM version to 1020.  It's too hard to
*	  figure out whether I should load C1FE or C2FE.
*
* 10/12/88  TGH  	- Changed AppleTalk slot search method.
*
* 11/9/88   TGH     - Fixed bug where BDS length = 0.
*
* 11/14/88  TGH	- Now verifing LAP type on a LAPWrite call.
*	  (didn't work - taken out)
*
* 11/23/88  TGH  	- AppleTalk slot settings are now determined by looking
*	  at locations 1C0, 1C1, and 1C2 in bank E1.
*	- Now verifing first BDS length on LAPWrite call.
*
* 3/27/89   TGH     - Added OnExitVector vector for QTRIRQ.
*
*******************************************************************************

	longa off
	longi on
	msb   on
*	org   $ff2A27


	IMPORT GoComp
	IMPORT QtrSched
	IMPORT RestoreE1
	IMPORT RestoreZP
	IMPORT SaveE1
	IMPORT SaveZP


	ENTRY BitCount
	ENTRY EnterCrit
	ENTRY ExitCrit
	ENTRY FindProt
	ENTRY Forbid
	ENTRY FreeBuf
	ENTRY NewPacket
	ENTRY PacketIRQ
	ENTRY Permit
	ENTRY QtrSecIRQ
	ENTRY RTSAddr
	ENTRY Random
	ENTRY RecvBytes
	ENTRY RecvInit
	ENTRY RecvPacket
	ENTRY RestorState
	ENTRY SaveState
	ENTRY TryNode
	ENTRY WLineBusy
	ENTRY XmitBDS
	ENTRY XmitBegin
	ENTRY XmitEnd
	ENTRY XmitLAP,fXmitLAP
	ENTRY XmitOne
	ENTRY XmitPacket
	ENTRY stackrestore
	ENTRY stacksave


;-------------------------------------------------------------------------------
;	General equates
;-------------------------------------------------------------------------------

XBit	equ $10
MBit	equ $20
VBit	equ $40
CBit	equ $01
IBit	equ $04

ZPStart	equ $80
E1Start	equ $1000
Base	equ $E000	;Base of packet buffer area.

MID	equ $0	;ID for Cortland.

lapzplen	equ $10
e1lapend	equ $001200	;really $e11200

atport	equ $E101C0
atslot	equ $E101C1
pmslot	equ $E101C2

incbusyflag	equ $E10064	;scheduler inc routine
decbusyflag	equ $E10068	;Scheduler dec routine

rd80col	equ $E1c018	;read 80 column switch
altsp	equ $010101	;alt stack pointer
mainsp	equ $010100	;main stack pointer
rdaltzp	equ $C016	;read alt zero page switch

;-------------------------------------------------------------------------------
;	SCC register definitions
;-------------------------------------------------------------------------------

RecvIntsA	equ $20	;Mask to detect channel A recv ints.
RecvIntsB	equ $04	;Mask to detect channel B recv ints.
AddrReg	equ $06
TxEmpty	equ $04
RxAvail	equ $01
Hunt	equ $10
Underrun	equ $40
DisRx	equ $D0
EnbRTS	equ $E3
DisTxRTS	equ $E1
EnbTxRTS	equ $EB
ResTxCRC	equ $80
ResetUnd	equ $C0
ResetErr	equ $30
ReEnbInt	equ $20
EnbRxSlv	equ $CD
EnterHunt	equ $10
EnbRxInt	equ $08
SrchMode	equ $21
FMMode	equ $C1
BaudRate	equ $06
ClocksA	equ $F2
SetFM0	equ $E0
SDLC	equ $7E
EnbTx	equ $E9
SDLCMode	equ $20
DisRxInt	equ $00
ResetA	equ $8A
ResetB	equ $4A

;-------------------------------------------------------------------------------
;	Time definitions and equates
;-------------------------------------------------------------------------------

TWLFree	equ 4000
T100usec	equ 7
T2Flags	equ 28
TLastFlag	equ 16
TAbort	equ 42
TIFGap	equ 100
TByte	equ 7

;-------------------------------------------------------------------------------
;	LAP equates
;-------------------------------------------------------------------------------

Broadcast	equ $FF
LAPEnq	equ $81
LAPAck	equ $82
LAPRTS	equ $84
LAPCTS	equ $85
DDPShort	equ 1
DDPLong	equ 2
MaxData	equ 600	;Maximum amount of data in a LAP pkt.
MaxSize	equ MaxData+11	;Data + LAP + len +	cksum + link + CRC.
GlobalSize	equ 16
MaxColsns	equ 32
MaxDefers	equ 32

;-------------------------------------------------------------------------------
; 	Error equates
;;-------------------------------------------------------------------------------

ColErr	equ 1
DefErr	equ 2
Err	equ $80
CRCErr	equ $40
ORunErr	equ $20
TBigErr	equ $10
TOutErr	equ $8
Lock	equ $1
NoErr	equ 0	;Success.
BufErr	equ 1	;No packet in buffer.
EndErr	equ 2	;End of buffer.
SizeErr	equ 3	;LAP data too large.
RetryErr	equ 4	;Retry count exhausted.
IllProtErr	equ 5	;Illegal protocol number (LAP type).
DupProtErr	equ 6	;Duplicate protocol	number.
FulProtErr	equ 7	;Protocol list full.
MisProtErr	equ 8	;Missing protocol (can't be removed).
ShortErr	equ 9	;User's buffer is too short when purging
EnableErr	equ 10	;AppleTalk is not enabled.
VBLSize	equ 12	;Size of ROM image of VBL entry.
MaxProts	equ 8	;Maximum # of protocols in table.

;-------------------------------------------------------------------------------
; 	Misc. constants
;-------------------------------------------------------------------------------


MVNOp	equ $54
RTLOp	equ $6B
NOPOp	equ $EA
topstack	equ $1a0	;we want the stack this high

;-------------------------------------------------------------------------------
; 	Character constants
;-------------------------------------------------------------------------------

CR	equ $8D
LF	equ $8A

irq_intflag	equ $C3
irq_secflag	equ $C6
irq_active	equ $CB
SCCStat	equ $101
SCCFlag	equ $102
SCCFlag2	equ $103
SerFlag	equ $104
scc1	equ $105
scc2	equ $106
irq_A	equ $108
irq_X	equ $10A
irq_Y	equ $10C
irq_S	equ $10E
irq_D	equ $110
irq_DB	equ $113
irq_State	equ $118
irq_shadow	equ $119
;PORT1	equ $2C0
;PORT2	equ $2CC
;USERSLT1	equ $2E1	;We don't use these two anymore.
;USERSLT7	equ $2E7

;-------------------------------------------------------------------------------
; 	Hardwired locations
;-------------------------------------------------------------------------------

LapDest	equ $D000
ThisNet	equ $D010
ABridge	equ $D013
LCBank2	equ $C083
RDROM	equ $C082
CYAReg	equ $C036
StateReg	equ $C068
SCCBReg	equ $C038
SCCAReg	equ $C039
MouseA	equ $C044
MouseB	equ $C045
mouseMode	equ $C041
CLRVBLINT	equ $C047

;-------------------------------------------------------------------------------
; 	Call block definition equates
;-------------------------------------------------------------------------------

lp_async	equ 0	;General
lp_command	equ lp_async+1
lp_result	equ lp_command+1
li_flag	equ lp_result+2	;LAPInit
li_entry	equ li_flag+1
li_node	equ li_entry+4	;2 for entry, 2 reserved.
li_size	equ li_node+1
gi_return	equ lp_result+2	;GetInfo
gi_net	equ gi_return+4
gi_bridge	equ gi_net+2
gi_mid	equ gi_bridge+1
gi_version	equ gi_mid+1
gi_size	equ gi_version+1
gg_buffer	equ lp_result+2	;GetGlobal
ggb_length	equ $10
lw_dest	equ lp_result+2	;LAPWrite
lw_lapType	equ lw_dest+1
lw_BDS	equ lw_lapType+1
lw_size	equ lw_BDS+4
lr_count	equ lp_result+2	;LAPRead
lr_buffer	equ lr_count+2
lr_purge	equ lr_buffer+4
lr_actual	equ lr_purge+1
lr_size	equ lr_actual+2
ap_prot	equ lp_result+2	;AttachProtocol
ap_handler	equ ap_prot+1
ap_size	equ ap_handler+4
rm_prot	equ lp_result+2	;RemoveProtocol
rm_size	equ rm_prot+1

;-------------------------------------------------------------------------------
;	Receive buffer data structure offsets:
;-------------------------------------------------------------------------------

buf_next	equ 0
buf_len	equ buf_next+2
buf_cksum	equ buf_len+2
buf_lap	equ buf_cksum+2
buf_dest	equ buf_lap
buf_src	equ buf_dest+1
buf_type	equ buf_src+1
buf_data	equ buf_type+1

;-------------------------------------------------------------------------------
;	Zero page usage.
;-------------------------------------------------------------------------------

cmndList	equ ZPStart	;General
zpCurBuf	equ cmndList
execAddr	equ cmndList+4

sccReg	equ execAddr+4	;SCC pointers
sccDat	equ sccReg+2
ptr0	equ sccDat+2
ptr1	equ ptr0+3
r0	equ ptr1+3
r1	equ r0+1
r2	equ r1+1
r3	equ r2+1
ZPEnd	equ r3+1
ZPSize	equ ZPEnd-ZPStart

;-------------------------------------------------------------------------------
;	Bank E1 variables.
;-------------------------------------------------------------------------------

Extended	equ E1Start	;RAM vectors.  Extended interface entry.
Basic	equ Extended+4	;Basic entry.
Pascal	equ Basic+4	;Pascal entry.
RamGoComp	equ Pascal+4	;users gocomp entry	for completions
SoftReset	equ RamGoComp+4	;Soft reset chain.
RamDispatch	equ SoftReset+4	;Command dispatcher.
RamForbid	equ RamDispatch+4	;RAM vector to long	entry of forbid.
RamPermit	equ RamForbid+4	;For Permit.
ProEntry	equ RamPermit+4	;Original ProDOS entry point.
Prodos	equ ProEntry+2	;Prodos entry.
SerStatus	equ Prodos+4	;Serial interface status hook
SerWrite	equ SerStatus+4	;" " write hook.
SerRead	equ SerWrite+4	;For Read.
SerBackgnd	equ SerRead+4	;For background printing.
PDispatch	equ SerBackgnd+4	;For dispatching packets.
ExtraVec	equ PDispatch+4	;For more vectors.

colHist	equ ExtraVec+20	;These first  variables need to be set
defHist	equ colHist+1	;to zero at initialization, so put them
gBackOff	equ defHist+1	;together.
needData	equ gBackOff+1
addrValid	equ needData+1
busyFlag	equ addrValid+1
pktError	equ busyFlag+1
deltaT	equ pktError+1
trailing	equ deltaT+1
curPos	equ trailing+1
catchProt	equ curPos+2
protTable	equ catchProt+4	;This table must be	filled with $ff's.
whichMouse	equ protTable+MaxProts*6
seed	equ whichMouse+2
addrUsed	equ seed+2
gotCTS	equ addrUsed+1
gotData	equ gotCTS+1
dest	equ gotData+1
source	equ dest+1
lapType	equ source+1
lBackOff	equ lapType+1
colTries	equ lBackOff+1
defTries	equ colTries+1
errRec	equ defTries+1
txBDS	equ errRec+2
whichSCC	equ txBDS+4
ckSum	equ whichSCC+2
freeProt	equ ckSum+2
scc1A	equ freeProt+2
scc2A	equ scc1A+1
scc3	equ scc2A+1
curRBuf	equ scc3+1
curLen	equ curRBuf+2
curWBuf	equ curLen+2
curOffset	equ curWBuf+2
curEnd	equ curOffset+2
ourstacksave	equ curEnd+3
stksaveflag	equ ourstacksave+(topstack-$ff)	;only reserve space to save from $100 up to topstack
stretaddr	equ stksaveflag+2
lentosave	equ stretaddr+2
oldstack	equ lentosave+2
stacksavea	equ oldstack+2
stacksavex	equ stacksavea+2
stacksavey	equ stacksavex+2
stacksaveb	equ stacksavey+2
stacksavep	equ stacksaveb+2
nestedflag	equ stacksavep+2
dstack	equ nestedflag+2
dstate	equ dstack+2
E1End	equ dstate+1
zzz	equ E1End	;Note the last byte used should
		;not be beyond $e11200
	
;-------------------------------------------------------------------------------
;	Slot 7 equates
;-------------------------------------------------------------------------------

;C7xx	equ $C7A0	;emulation mode entry
;C7xxGo	equ $C7A1	;native mode entry
;C7xxRet	equ $C7A8	;return point for routines
;C7Error	equ $C7AB	;error point for pascal not installed
;C7Prodos	equ $C7AE	;bank 0 entry for prodos

OfstCnxx	equ $A0	;emulation mode entry
OfstCnxxGo	equ $A1	;native mode entry
OfstCnxxRet	equ $A8	;return point for routines
OfstCnError	equ $AB	;error point for pascal not installed
OfstCnProdos	equ $AE	;bank 0 entry for prodos

Cnxx	equ $E11042	;emulation mode entry
CnxxGo	equ $E11046	;native mode entry
OnExitVector	equ $E1104A	;Exit vector for QTRIRQ

;_______________________________________________________________________________

LapExit	PROC

	plp	;Get back mode (must be full native).
	longa on
	and #$ff	;Mask off high byte.
	beq NolErr	;If successful, leave high byte alone.
	ora #$200	;Otherwise, make it	a LAP error.
	bra NolErr

	entry LAPExit2	; EXPORT -> ENTRY  **TGH
LAPExit2		;       
	plp
NolErr		; 
	ldy #lp_result	;Point to the LAP result field.
	sta [cmndList],y	;Store result. A MUST contain the
	longa off	;result when we exit!!!! Don't change
	rtl	;or you will die.
	
	ENDP

****************************************************************
*
*  'LAPWrite' can be called only with a	parameter list.
*
****************************************************************
*
LAPWrite	PROC EXPORT

	jsr EnterCrit
	php
	ldy #lw_bds	;Get low word of BDS pointer.
	lda [cmndList],y
	sta txBDS	;Store it for XmitPacket.
	iny	;Point to high word.
	iny
	lda [cmndList],y	;Get high word.
	sta txBDS+2	;Store for XmitPacket.
	sep #MBit	;8 bit A.
	ldy #lw_dest	;Now get the destination for the write.
	lda [cmndList],y
	sta dest	;Store it.
	ldy #lw_lapType	;Get the LAP type.
	lda [cmndList],y
	beq @L1	;LAPTypes of 0 or
	bmi @L1	; > 127 are illegal!
	sta lapType	;Store it.
	jsr XmitPacket
	jsr ExitCrit
@L2	jmp LAPExit	;Return, storing A in the result code.

@L1	lda #IllProtErr	;Illegal LAP type.
	bra @L2

	ENDP

****************************************************************
*
*  'GetInfo' must be called with a parameter list.
*
*  Inputs:
*
*  Outputs:
*
****************************************************************
*
* GWS 2/10/88 - the	paramater list has been expanded to support
* the return of the	node number and an extra byte for the romversion
*
****************************************************************

GetInfo	PROC EXPORT

	php
	longa on

	ldy #gi_return
	lda Cnxx+1	;Plus 1 to get to bank byte of vector
	and #$FF00
	ora #OfstCnxxRet	;ORA in the Cnxx offset for addr of
	sta [cmndList],y	;socket listeners, protocol handlers,
	lda #0	;and completion routines.
	iny	;Move to high word of return address.
	iny
	sta [cmndList],y	;Set to bank zero.

	iny
	iny	;Move on to network	field.
	lda ThisNet	;Get our network #.
	sta [cmndList],y	;Store in list (byte reversed...)

	iny
	iny	;Move to bridge field.
	lda ABridge	;Get node # of a bridge, any bridge.
	sta [cmndList],y

	iny	;Move to machine ID	and ROM version #.
	lda #MID	;Get ONE bytes of info!  **TGH
*	lda #MID+256*RomVer	;Get two bytes of info.  **TGH
	sta [cmndList],y

	iny	;now store rom id as a word (GWS 5/20/88)
	lda #RomVer	;This used to look at C7FE like it
		;should, but I can't tell if it's in
		;C1FE or C2FE so I just hard coded what's
		;there, figuring CnFE won't change without
		;changing RomVer in this code.
	sta [cmndlist],y

	lda source	;get our node number (GWS 2/10/88)
	and #$00ff	;set high byte to zero
	iny
	iny	;move to high byte of romver field
	sep #mbit	;store a byte for node
	sta [cmndlist],y	;save it

	rep #mbit
	lda #0	;No error.
	jmp LAPExit

	longa off
	ENDP
****************************************************************
*
*  'LAPInit' can be	called with either a parameter list or parameters in
*  registers.  If C	is set, registers are used.
*  When registers are used, there are no parameters.
*
*  Inputs:  A = starting node number.
*
*  Outputs: A = node number chosen.
*
****************************************************************

LAPInit	PROC EXPORT

	php
	sep #MBit	;8 bit A.
	rep #XBit	;16 bit index.
	bcs Direct	;This way if direct	mode.
	ldy #li_flag	;See which kind of init to do.
	lda [cmndList],y
	bpl NotFull	;If bit 7 reset, not a full init.
	ldy #li_node	;Get the node number to start with.
	phy	;Save pointer to li_node.
	lda [cmndList],y
	sec	;Now use direct mode.
	jsr LAPInit
	ora #0
	bne OK
	lda #EnableErr	;AppleTalk not enabled.
	ply
	bra Exit
OK		; 
	ply
	sta [cmndList],y	;Store the node actually picked.
NotFull		; 
	lda #0
Exit		; 
	jmp LapExit	;Stores result in param list.
Direct		;

; We no longer check to see if appletalk is in slot 7.  We only check if appletalk
; is in slot 1 or slot 2.
;
;	pha	;Save node number.
;	lda USERSLT7	;Check to see if AppleTalk is enabled.
;	beq GoAhead	;Yes, it's enabled.
;	pla	;Get back node #.
;	lda #0	;Error: AppleTalk not enabled.
;	plp
;	rts

	pha	;Save node number.

	ldx #SCCBReg	;Assume AppleTalk is port B.
	ldy #MouseB	;Get pointer to line activity counter.
	lda #RecvIntsB	;Interrupt mask for	port B ATalk.
	pha	;Save on stack for later.
	lda #ResetB	;Channel B reset code.
	pha	;Save on stack.

	lda atport
	cmp #$02
	beq UsePortB
	cmp #$01
	beq UsePortA

	pla	;Oops, AppleTalk not enabled!
	pla	;Strip interupt mask, reset code,
	pla	;and node number of the stack.
	lda #0
	plp
	rts

;GoAhead		; 
;	ldx #SCCBReg	;Assume AppleTalk is port B.
;	ldy #MouseB	;Get pointer to line activity counter.
;	lda #RecvIntsB	;Interrupt mask for	port B ATalk.
;	pha	;Save on stack for later.
;	lda #ResetB	;Channel B reset code.
;	pha	;Save on stack.
;	lda USERSLT1	;Which port is AppleTalk in?
;	beq UsePortB	;0: A is serial, so	ATalk is B.
;	inx	;1: move ahead to serial port A.
;	dey	;Move back to channel A activity port.
;	lda #RecvIntsA	;Interrupt mask for	port A ATalk.
;	sta 2,s	;Replace interrupt mask on stack.
;	lda #ResetA	;Channel A reset code.
;	sta 1,s

UsePortA	inx	;1: move ahead to serial port A.
	dey	;Move back to channel A activity port.
	lda #RecvIntsA	;Interrupt mask for	port A ATalk.
	sta 2,s	;Replace interrupt mask on stack.
	lda #ResetA	;Channel A reset code.
	sta 1,s

UsePortB	stx whichSCC
	sty whichMouse
	stx sccReg	;Control register pointer.
	inx
	inx
	stx sccDat	;Data register pointer.
	php	;Push mode and disable ints.
	sei
	lda #0	;Send synch byte to	SCC.
	sta (sccReg)
	lda #9	;Point to reset register.
	sta (sccReg)
	lda 2,s	;Get back SCC reset	code for our port.
	sta (sccReg)	;Reset the port.
	plp	;Restore mode and fix stack.
	pla

* Initialize variables with 0, fill protTable with $ff.
	php	;Save mode.
	rep #MBit	;16 bit A for MVN.
	longa on
	stz colHist	;Clear the first byte of vars that
	ldx #colHist	;must be zero.  Point to that byte
	txy	;and use as source for MVN.
	iny	;Use next address as dest for MVN.
	lda #14	;Number of bytes to	clear - 1.
	mvn $e1e1e1,$e1e1e1	;Clear the bytes.
	dec protTable	;Change the first byte of protTable to
	lda #MaxProts*6-2	;$ff, and fill the table with that
	mvn $e1e1e1,$e1e1e1	;value.
* GWS 6/8/88
* moved initialzation of variables related
* to stack save routines
* into the lapresetinit routine, so they
* would be set up properly before ever
* going through the dispatcher.
*
* Now initialize the SCC for AppleTalk mode.
	longa off
	longi off
	sep #MBit+XBit+IBit	;8 bits and disable	interrupts.
	ldx #0	;Point to first byte.
	ldy #SCCTabSize	;Get size of table.
InitLoop		; 
	lda >SCCTable,x	;Get a byte at a time to initialize the
	sta (sccReg)	;SCC for AppleTalk mode.
	inx	;On to next byte.
	dey
	bne InitLoop
	plp	;Restore mode.
	longi on
	jsr RecvInit

* Now init packet buffer maintenance variables.
	ldx #Base+MaxSize	;Set up initial 'curEnd' value to
	stx curEnd	;point to the end of the first
	lda #$E0	;packet buffer in the bank E1 language
	sta curEnd+2	;card space (E0 + offset ---> E1).
	ldx #Base	;Set up the pointer	to the beginning of
	stx curWBuf	;the first write buffer.
	stx curRBuf	;Also the read buffer.
	rep #MBit
	longa on
	stz |buf_next,x	;Clear curRBuf->next.
	ldx #-(MaxData+2)	;Set up offset to point to the start of
	stx curOffset	;the LAP data field.

* Now set up interrupt vectors.
	phk
	phk
	pla	;Get high byte of vector address in A.
	and #$ff	;Mask off high byte.

	pea 0	;This signals the end of the calls.

	pea 4	;Now enable the quarter sec interrupt.
	pea $2303	;IntSource tool number.

	pea 8	;Install AppleTalk interrupt vector.
	pha	;Push bank of vector.
	pea PacketIRQ	;Low Word of address.
	ldx #$1003	;SetVector tool number.
	phx	;Put on stack for below.

	pea 14	;Install quarter sec interrupt handler.
	pha	;Push bank word of vector.
	pea QtrSecIRQ	;Low word of address.

ToolLoop		; 
	jsl $E10000	;Make a call.
	plx	;Get the next tool call number.
	bne ToolLoop	;If not zero, do another call.

	sep #MBit	;8 bit A.
	longa off
	pla	;Get back AppleTalk	interrupt mask.
	sta SCCFlag2	;Store it in the right spot.
	pla	;Get back node number.
	beq specialnd	;get workstation random node using battery
	cmp #$ff	;see if server random wanted
	bne NotZ	;they want to specify start node
specialnd		; 
	pha	;save node mask
	rep #MBit+XBit	;from battery RAM. Full native for
	pea 0	;tool call.  Space for result.
	pea $80	;Parameter value for node #.
	ldx #$0C03	;ReadBParam tool call number.
	jsl $E10000	;Do the call.
	pla	;Get the result.
	sep #MBit+xbit	;8 bit A. and X
	plx	;get node flag
	bmi specialsrv
	and #$7f	;put in workstation	range
	bra NotZ
specialsrv		; 
	ora #$80	;must have high bit	on
NotZ		; 
	rep #xbit	;back to 16 bit x

***************************************************************
*
*  'NewNode' tries to find an unclaimed	node number on the network.  If the
*  value passed in A is 0, it picks a random non-server node number and
*  increments it until it has found an address.  If A holds	$ff, a random
*  server node number is picked and incremented until an address has been found.
*  Any other number	in A is used as the	first attempt and similarly incremented
*  until an address	is found.
*
*  Inputs:  A = 0 for randomly assigned	non-server node (1..127).
*           A = 255	for randomly assigned server node (128..254).
*           A = n for randomly assigned	node, using 'n' to start the search.
*
*  Outputs: A,X trashed.
*           'source' holds the node we picked.
*
****************************************************************
*
NewNode		; 
	stz addrValid
	ldx #127	;X is the number of	nodes to try.
	inc A	;Check for 255.
	bne NNNotServer	;If not 255, check for 0.
	jsr Random	;Get a random number.
	lda seed+1
	ora #128	;Make it a server node.
	cmp #255	;Illegal?
	bne NNTryNode	;No. Try it.
	dec A	;Back up to a legal	value.
	bra NNTryNode	;Try it.
NNNotServer		; 
	dec A	;Now check for 0.
	bne NNTryNode	;If not 0, use as a	starting node num.
	jsr Random	;If 0, get a random	byte
	lda seed+1
	and #127	;and turn it into a	non-server node.
	bne NNTryNode	;If not zero, try it.
	inc A	;Otherwise, inc to 1.
NNTryNode		; 
	phx
	pha
	jsr TryNode	;See if anyone else	has this node.
	pla
	plx
	bcs NNNextNode	;Carry set -> node taken, try next one.
	sta addrValid	;Node unclaimed: set the 'addrValid'
	rep #MBit+XBit	;flag, store node #	in battery RAM. Full
	pha	;native for tool call. Put node # on
	pha	;stack, and again for later.
	pea $80	;Parameter value for node #.
	ldx #$0B03	;WriteBParam tool call number.
	jsl $E10000	;Do the call.
	pla	;Get back the node #.
	plp	;Restore mode and return with
	rts	;the node in A.

NNNextNode		; 
	inc A	;Try next node number.
	cmp #255	;Check for invalid server node number.
	bne NNNot255	;Nope.
	lda #128	;Restart with the next valid server.
	bra NNCheckDone	;See if done yet.
NNNot255		; 
	cmp #128	;Check for invalid non-server node.
	bne NNCheckDone	;Nope.
	lda #1	;Restart with the next valid node.
NNCheckDone		; 
	dex	;See if we've tried all 127 nodes.
	bne NNTryNode	;X <> 0 --> not done, try this node.
	lda #$FF	;Tried 128 times, but didn't get a
	plp	;node.  Return $FF.
	rts

SCCTable		; 
	DC.B 1,DisRxInt	;Disable receiver interrupts.
	DC.B 15,0	;No external interrupts.
	DC.B 4,SDLCMode	;Set SDLC mode.
	DC.B 3,DisRx	;Disable receiver.
	DC.B 5,EnbTx	;Enable transmitter.
	DC.B ResetUnd	;Reset underrun latch.
	DC.B ResTxCRC	;Reset transmit CRC.
	DC.B 5,DisTxRTS	;Disable transmitter.
	DC.B 7,SDLC	;Set SDLC flag pattern.
	DC.B 10,SetFM0	;Set FM0 transmission.
	DC.B 11,ClocksA	;Set clock usage.
	DC.B 12,BaudRate	;Low byte of baud rate.
	DC.B 13,0	;High byte of baud rate.
	DC.B 14,FMMode	;Set FM mode on phase locked loop.
	DC.B 14,SrchMode	;Set search mode on	phase locked loop.
	DC.B 1,EnbRxInt	;Enable first character interrupts.
SCCTabEnd		; 
SCCTabSize	equ SCCTabEnd-SCCTable


* lapresetinit
*
* code to be called	to make sure that we start
* off pointing to no packets, so we won't have
* to worry about anyone calling the dispatch
* routines indirectly before appletalk gets
* initialized
* this routine is called during either a hard
* or soft reset.
* we also initialize some variables that are
* used by stack saving routines, since these
* routines get called by the dispatcher, we
* had better make sure they are set up properly
*
	EXPORT lapresetinit
lapresetinit		;

* Now init packet buffer maintenance variables.

	php
	rep #xbit
	longi on
	sep #mbit
	longa off
	ldx #Base+MaxSize	;Set up initial 'curEnd' value to
	stx curEnd	;point to the end of the first
	lda #$E0	;packet buffer in the bank E1 language
	sta curEnd+2	;card space (E0 + offset ---> E1).
	ldx #Base	;Set up the pointer	to the beginning of
	stx curWBuf	;the first write buffer.
	stx curRBuf	;Also the read buffer.
	rep #MBit
	longa on
	stz |buf_next,x	;Clear curRBuf->next.
	ldx #-(MaxData+2)	;Set up offset to point to the start of
	stx curOffset	;the LAP data field.
	stz stksaveflag	;Clear the first byte of vars that
	ldx #stksaveflag	;must be zero.  Point to that byte
	txy	;and use as source for MVN.
	iny	;Use next address as dest for MVN.
	lda #(E1End-stksaveflag)-1 ;Number of bytes to clear - 1.
	mvn $e1e1e1,$e1e1e1	;Clear the bytes.
	plp
	rts	;and return

	ENDP

****************************************************************
*
*  'TryNode' checks	to see if the node number passed in A is occupied by
*  another node on the network.
*
*  Inputs:
*
*  Outputs: A,X trashed.
*           C flag cleared for node free, set for node in use.
*
****************************************************************

TryNode	PROC

	longa off
	longi on
	ldx #120	;Assume it's a server: use large
	ora #0	;maxtries.  Check it out...
	bmi Server	;Yes, it is.
	ldx #20	;No, it's not.  Use small maxtries.
Server		; 
	sta dest	;Use A as our dest address as well as
	sta source	;our node address.
	php	;Save mode.
	pha	;Save node # on stack.
	sei	;Turn off ints while accessing SCC.
	lda #AddrReg	;Point to the address register.
	sta (sccReg)
	pla	;Get back node number.
	sta (sccReg)	;Use for SCC's address.
	plp	;Restore mode.
	lda #LAPEnq	;Set LAP type to Enq.
	sta lapType
	stz addrUsed	;Assume not used.
TNLoop		; 
	phx	;Save X.
	jsr XmitPacket	;Transmit the Enq, detect response.
	plx	;Restore X.
	lda addrUsed	;See if any packets	came to this
	beq NotClaimed	;address.  If so, the address is used.
	sec	;Set carry and return, indicating
	rts	;that the address is used.
NotClaimed		; 
	dex	;If not claimed after maxtries,
	bne TNLoop	;we believe that this address is truly
	clc	;free.  Clear carry	and return.
	rts
	ENDP

****************************************************************
*
*  'Random' uses the number in 'seed' as a base for a new random number,
*  which replaces 'seed'.
*
*  Inputs:
*
*  Outputs:
*
****************************************************************

Random	PROC

	php	;Save mode.
	rep #MBit	;16 bit A.
	longa on
	lda seed-1	;Get seed * 256 + garbage.
	and #$ff00	;mask off the garbage.
	pha	;Save seed * 256.
	asl A	;A = seed * 512.
	clc
	adc 1,S	;A = seed * 768.
	clc
	adc seed	;A = seed * 769.
	sta 1,S	;Save seed * 769.
	lda seed	;A = seed.
	asl A	;A = seed * 2.
	asl A	;A = seed * 4.
	clc
	adc 1,S	;A = seed * 773.
	inc A	;A = seed * 773 + 1.
	sta seed	;Update seed.
	pla	;Fix stack.
	plp	;Restore mode.
	rts

	longa off
	ENDP
****************************************************************
*
*  'LAPRead'
*  'LAPRead' can be	called with either a parameter list or parameters in
*  registers.  If C	is set, registers are used.
*
*  Inputs:  X,Y = pointer to data buffer (Y = high word).
*           A = # of bytes to read (16 bit A).  Bit 15 is the purge bit: if set,
*           the buffer will be removed from the buffer list.
*
*  Outputs: A = result code, X = number	of bytes actually read.
*
****************************************************************

LAPRead	PROC EXPORT

	php
	bcs ILAPRead	;Go do direct call.
	ldy #lr_buffer	;Get the buffer address.
	lda [cmndList],y
	tax	;Put low word of address in X.
	iny	;Move to high word.
	iny
	lda [cmndList],y	;Get high word.
	pha	;Save on stack.
	ldy #lr_count	;Get the requested byte count.
	lda [cmndList],y
	pha	;Save byte count on	stack.
	ldy #lr_purge	;Get purge flag.
	lda [cmndList],y
	longa on
	and #$ff	;Ignore high byte.
	beq NotSet	;Flag is not set, A	is 0.
	lda #$8000	;Set purge flag.
NotSet		; 
	ora 1,s	;OR byte count with	purge flag (bit 15).
	ply	;Remove byte count from stack.
	ply	;Get high word of address in Y.
	sec	;Now do direct call.
	jsr LAPRead	;Do the call.
	pha	;Save the result.
	txa	;Get back # of bytes read in A.
	ldy #lr_actual	;Get offset to field for number read.
	sta [cmndList],y
	pla	;Get back result.
	jmp LAPExit	;Save the result, return.
****************************************************************
*
*  'ILAPRead' reads	the number of bytes	specified by A into	the buffer
*  pointed to by X and Y (Y = high word).  The result code is returned in A.
*
*  Possible results:
*           NoErr: Read successful.
*           EndErr:	Reached the end of the buffer before reading the number of
*	bytes specified.
*           BufErr:	No packet buffer.
*
*  Inputs:  X,Y points to buffer (Y high word), A specifies	# of bytes to read.
*           16 bit A, 16 bit X.  Data bank = $E1.
*
*  Outputs: A = result code, X = number	of bytes actually read.
*
****************************************************************
*
ILAPRead		; 
	jsr EnterCrit
	rep #MBit+XBit
	longa on
MVNAddr	equ $84
	pha	;Store purge bit and count.
	lda curPos	;Is there a buffer open?
	bne IsBuf	;Yes.
	lda #BufErr	;No: report error.
	plx	;Remove stuff from stack.
	plp	;Get back mode.
	jmp ExitCrit	;Return through ExitCrit.
IsBuf		; 
	pla	;Get back the count.
	pea 0	;Assume no error, push error code.
	pha	;Save count.
	and #$7fff	;Mask off the purge	bit.
	pha	;Store the count.
	lda curLen	;See if there are enough bytes in the
	cmp 1,s	;buffer to satisfy the requested count.
	bcs Enough	;Yes.
	sta 1,s	;No: use the number	available instead
	lda #EndErr	;of that specified and indicate error.
	sta 5,s	;Store in error loc.
	bra Exact
Enough		; 
	beq Exact	;Exactly the right length!
	lda 3,s	;See if purging.
	bpl Exact	;No: ignore if buffer is 'too small.'
	lda #ShortErr	;Otherwise, the buffer is too short.
	sta 5,s
Exact		; 
	txa	;Move low dest address to a for boundry	check
	clc
	adc 1,s	;add to count to see if bank wrap would	happen
	bcc domvn	;no, so lets use MVN code for speed
	lda 1,s	;get count
	beq Zero	;nothing to move
	stx MVNAddr	;Store low word of destination address
	sty MVNAddr+2	;Store high word of	destination address
	tay	;use as index and counter
	clc
	phy	;use to calculate offset
	lda curPos	;get start of buffer
	adc 1,s	;move to end position
	plx	;discard stack stuff
	tax	;move index to x register (points to last char)
	tya	;get index for odd test
	lsr a	;see if number of bytes to move is odd
	bcc lapmovelp	;go ahead and move 2 bytes at a pop
	dey	;only do one byte to get us on an even keel
	dex
	sep #mbit
	lda |0,x	;get the source byte
	sta [mvnaddr],y	;and store the odd byte
	rep #mbit	;back to 16 bit accum
lapmovelp		; ;should always be	working with even number of bytes
	dey	;when we get this far.
	dey	;back up counter
	bmi Zero	;we are done when this is less than zero
	dex
	dex	;and source position
	lda |0,x	;get 2 source bytes
	sta [mvnaddr],y	;and move them
	bra lapmovelp	;go do more
domvn		; 
	lda #MVNOp	;Set up a move instruction in ZP.
	sta MVNAddr
	sty MVNAddr+1	;Put dest bank from	Y in ZP, then source
	lda #$E1+256*RTLOp	;bank ($e1), then RTL instruction.
	sta MVNAddr+2
	txy	;Move low dest address to Y for MVN.
	ldx curPos	;Move low src address to X for MVN.
	lda 1,s	;Get the count.
	beq Zero
	dec A	;Adjust the count.
	phb	;Save bank on stack.
	jsl >MVNAddr	;Do the move.
	plb	;Get it back.
Zero		; 
	lda curLen	;Modify the length of the rest of the
	sec	;packet.
	sbc 1,s	;Subtract the number of bytes read.
	sta curLen	;Store it.
	lda curPos	;Also modify the current read position.
	clc
	adc 1,s	;Add the number of bytes read.
	sta curPos
	plx	;Get back count.
	pla	;Get back purge bit.
	bpl NoPurge	;Don't purge.
	stz curPos	;Purge: no buffer anymore.
	phx	;Save count during freebuf.
	sep #MBit	;8 bit A for freebuf.
	jsr FreeBuf	;Purge the buffer.
	rep #MBit	;Back to 16 bits.
	plx	;Get back count.
NoPurge		; 
	pla	;Get back result.
	plp	;Restore mode.
	jmp ExitCrit	;Return through ExitCrit.
	longa off
	ENDP

****************************************************************
*
*  'GetGlobal' must	be called with a parameter list.
*
****************************************************************
*
* GWS 2/10/88 - fixed bug where we would hang if you called	this
* before actually receiving any data.
*
****************************************************************

GetGlobal	PROC EXPORT

	php
	longa on
	longi on
	lda curpos	;see if anything valid has been received
	bne getglobok	;there is something	to read (GWS 2/10/88)
	lda #$200+buferr	;we got a buffer error
	jmp LapExit2	;get out of here
getglobok		; 
	ldy #gg_buffer	;Get the buffer address.
	lda [cmndList],y
	tax	;Put low word of address in X.
	iny	;Move to high word.
	iny
	lda [cmndList],y	;Get high word.
	tay	;Put high word of address in Y.
****************************************************************
*
*  'IGetGlobal' reads the first 16 bytes of the packet, including the LAP
*  header, into the	buffer pointed to by X,Y (Y = high word).  The result code
*  is returned in A, and the number of bytes actually read is returned in X.
*
*  Possible results:
*           NoErr: Read successful.
*           BufErr:	No packet buffer.
*           EndErr:	Reached the end of the buffer before reading 16 bytes.
*
*  Inputs:  X,Y points to buffer (Y high word).
*           16 bit A, 16 bit X.  Data bank = $E1.
*
*  Outputs: A = result code, X = number	of bytes actually read.
*
****************************************************************
*
IGetGlobal		; 
	jsr EnterCrit
	longa on
	stx execaddr
	sty execaddr+2	;set up pointer to users buffer
	ldx curRBuf	;Get pointer to the	actual buffer.
	lda |buf_len,x	;Get the length of the packet.
	adc #3	;Add 3 for the LAP header.
	ldy #ggb_length	;offset to length part of users buffer
	sta [execaddr],y
ggmove		; ;needs y to be set to length field offset
	dey
	dey
	bmi ggmovedone	;we are done moving	data
	lda |lapdest,y	;get data to move
	sta [execaddr],y	;move the data to the users buffer
	bra ggmove	;and move some more
ggmovedone		; 
	lda #0	;no error
NotErr		; 
	jsr ExitCrit
	jmp LAPExit2
	longa off
	
	ENDP
	
****************************************************************
*
*  'AttachProt' can	be called with either a parameter list or parameters in
*  registers.  If C	is set, registers are used.
*
*  Inputs:  A = the	protocol number, X,Y = handler address (Y = high word).
*
*  Outputs: A = result.
*
****************************************************************

AttachProt	PROC EXPORT

	EXPORT lattachprot
lattachprot		;       

	php
	bcs IAttachProt	;Go do direct call.
	ldy #ap_handler	;Get the handler address.
	lda [cmndList],y
	tax	;X gets low address	word.
	iny	;Move to the high word.
	iny
	lda [cmndList],y	;Get high address word.
	pha	;Save on stack.
	ldy #ap_prot	;Get the protocol type.
	lda [cmndList],y
	ply	;Y gets high address word.
	sec	;Direct call.
	jsr AttachProt	;Do the call.
	jmp LAPExit	;Exit, setting result.
IAttachProt		; 
	sep #MBit
	phx
	phy
	jsr EnterCrit	;Critical code portion.
	cmp #$FF	;Is it the catch all protocol handler?
	bne NotCatch
	ldx catchProt
	bne IsDup	;If a catch-all is installed, duplicate
	ldx catchProt+2
	bne IsDup	;Ditto.
	ply	;Otherwise, we can install as catch-all
	sty catchProt+2	;handler.
	plx
	stx catchProt
	bra ExitOK
NotCatch		;
	jsr FindProt	;See if the protocol is already there.
	bcs IsDup	;If so, error.
	ldx freeProt	;Did FindProt find a free protocol
	bpl NotFull	;slot?  If positive, yes.
	lda #FulProtErr	;Negative: protocol	list full.
	bra Error
NotFull		; 
	ora #0
	beq Illegal	;If 0, illegal.
	bpl Legal	;If < $80, legal.
Illegal		; 
	lda #IllProtErr	;Otherwise, illegal	protocol type.
	bra Error
Legal		; 
	sta |protTable,X	;Store the prot #.
	rep #MBit	;16 bit A.
	pla	;Get high word of handler address.
	sta |protTable+4*MaxProts,X ;Store in the entry.
	pla	;Get low word of address.
	sta |protTable+2*MaxProts,X ;Store it.
ExitOK		; 
	longa on	;Not always true, but we use a NOP to
	lda #NOPOp*256	;make things OK.  Clears low byte for
	longa off	;successful result code.
Exit		; 
	plp
	jmp ExitCrit	;No longer critical, and return.
IsDup		; 
	lda #DupProtErr	;Else, return duplicate error.
Error		; 
	ply
	plx
	bra Exit
	ENDP

****************************************************************
*
*  'FindProt' sees if the protocol # passed in A has a handler in the table.
*  If so, a pointer	to the table entry is in X and C = 1.  If not, 'freeProt'
*  is set to point to a free entry in the table (or $ffff if none) and C = 0.
*
*  Inputs:
*
*  Outputs:
*
****************************************************************

FindProt	PROC

	ldy #$ffff	;Assume that no free slot can be   
	ldx #MaxProts*2	;found.  Point to past end of table.
FPLoop2		; 
	sty freeProt
FPLoop		; 
	dex
	dex
	bpl NotEnd	;If +, not at end of table.
	clc	;Otherwise, clear C	to indicate
	rts	;entry not found and return.
NotEnd		; 
	cmp |protTable,x	;See if this is the	protocol.
	bne NotThis
	sec	;This is the one.  Set C to indicate
	rts	;we found it and return.
NotThis		; 
	ldy |protTable-1,x	;Get entry's prot type in high byte.
	bpl FPLoop	;If not minus, it's not free, so loop.
	txy	;Else record a free	slot's position.
	bra FPLoop2
	ENDP

****************************************************************
*
*  'RemoveProt' can	be called only with	parameter list.
*
****************************************************************

RemoveProt	PROC EXPORT

	php
	sep #MBit	;8 bit A.
	ldy #rm_prot	;Get the protocol to remove.
	lda [cmndList],y
	jsr EnterCrit	;Enter critical section.
	cmp #$FF	;See if it's the catch-all protocol.
	bne NotCatch
	ldx catchProt	;Is there a catch-all protocol handler
	bne OK	;installed? Yes, can remove it.
	ldx catchProt+2
	beq Missing	;Not installed: can't remove it.
OK		; 
	ldx #0	;Clear the catch all handler.
	stx catchProt
	stx catchProt+2
	txa	;0 result code for success.
	bra Exit
NotCatch		; 
	cmp #00	;see if illegal type
	beq Rillegal	;yes, so report error
	bmi Rillegal	;also bad if negative
	jsr FindProt	;See if we can find	this protocol.
	bcs Found	;Yes: maybe remove it.
Missing		; 
	lda #MisProtErr	;Protocol is missing, so can't remove
	bra Exit	;it. Return.
Rillegal	lda #IllProtErr	;illegal protocol type
	bra Exit
Found		; 
	lda #$ff	;If not, it can be removed from the
	sta |protTable,x	;table by making its slot empty.
	inc A	;Inc to successful result code (0).
Exit		; 
	jsr ExitCrit	;No more critical code: return.
	jmp LAPExit	;Go back.	             
	ENDP
	
	
Save16	PROC
	php
	rep #MBit+XBit
	longa on
	phx	;We save X only.
	ldx #cmndList	;Save ZP space.
	lda #16	;Save 16 bytes.
	jsr SaveZP
	plx	;Get back X.
	plp
	rts
	longa off
	ENDP

Restore16	PROC
	php
	rep #MBit+XBit
	longa on
	phx	;We save X only.
	ldy #cmndList	;Restore ZP space.
	lda #16	;Restore 16 bytes.
	jsr RestoreZP
	plx	;Get back X.
	plp
	rts
	longa off
	ENDP

GetBank	PROC
	lda StateReg
	ply	;Get return address.
	pha	;Save memory state.
	phy	;Put return address	back.
	lda LCBank2	;Read language card	RAM.
	lda LCBank2	;Also write it.
	rts
	ENDP

UnGetBank	PROC
	ply	;Get return address.
	pla	;Get previous memory state.
	sta StateReg
	phy
	rts
	ENDP

****************************************************************
*
*  'PacketIRQ' handles packet interrupts.
*
*  Inputs:
*
*  Outputs:
*
****************************************************************
*
* GWS - 2/10/88 - we no longer accept packets when our buffer
* space is full, before we accepted the	packet and threw it	away
* this also fixes, by default, the problem we had where we didn't 
* set the needData flag back to zero in	all cases.
*
****************************************************************

PacketIRQ	PROC

	rep #XBit	;16 bit indexes.
	ldx whichSCC	;Get pointer to current SCC port.
	lda |2,X	;Get the 3rd data byte, which has been
	sta scc3	;waiting for us, and save it.
	jsr GetBank	;Save StateReg, change to LC bank 2.
	jsr Save16	;Save 16 bytes of ZP on private stack.
	stx sccReg	;Store address of control register.
	inx
	inx
	stx sccDat	;Store address of data register.
	stz pktError	;No receive errors (yet).
	lda scc3	;Look at LAP type: if it's not a LAP
	bmi LAPPkt	;control packet, ignore it and exit.
ExitBranch		; 
	jmp ExitPktIRQ
LAPPkt		; 
	sec	;Indicate single byte mode to RecvBytes.
	jsr RecvBytes	;Get first byte of CRC.
	bcc ExitBranch	;C = 0 means last byte. Error, so exit.
	jsr RecvBytes	;Get second byte of	CRC.
	bcs ExitBranch	;Not last byte. Error, so exit.
	lda pktError	;See if any errors occured during
	bmi ExitBranch	;reception.  Yes, exit.
	inc scc1	;Look at dest address.
	beq BCast	;If it's not broadcast,
	sta addrUsed	;show activity on our address.
BCast		; 
	lda addrValid	;If our address isn't valid,
	beq ExitBranch	;exit.
	lda scc3	;No errors. Look at	the LAP type.
	cmp #LAPRTS	;Is it a request to	send?
	bne NotRTS	;No.
	ldy curOffset	;Get offset to current buffer (GWS 2/10/88)
	beq ExitBranch	;buffer is empty so	don't send CTS
	ldx curEnd	;Set ptr0 = curEnd.
	stx ptr0
	ldx curEnd+2
	stx ptr0+2
	inc needData	;Indicate that we need a data packet.
	stz gotData	;No data yet.
	lda scc1	;See if broadcast.
	bne DoCTS	;If not, do a CTS.
	jsr RecvInit	;Otherwise, init the receiver for the
	bra GetData	;data packet and try to receive.
DoCTS		; 
	ldx scc2	;Get source of the RTS and use it as
	lda #LAPCTS	;the dest for a CTS	packet.
	jsr fXmitLAP	;Send the CTS (without sync) and init the receiver.
GetData		; 
	ldy curOffset	;Get offset of current buffer.
	jsr RecvPacket	;Try to receive the	data packet.
	stz needData	;Back to normal mode. (should always get here after inc above)
	lda gotData	;See if we got the data.
	beq ExitNoInit	;Nope.
	jsr NewPacket	;Yep.  Add the packet to the list.
TryDispatch		; 
	lda busyFlag	;See if higher level protocols are busy.
	bne ExitNoInit	;Busy, so don't try to dispatch a pkt.

	jsr dothedispatch

NotRTS		; 
	cmp #LAPEnq	;Is it an enquiry?
	bne ExitPktIRQ	;No.  We don't handle it.
	ldx scc2	;Get source of the Enq and use it as
	lda #LAPAck	;the dest for an Ack packet.
	jsr fXmitLAP	;Send the Ack (without sync) and init the receiver
	bra ExitNoInit	;and exit.

ExitPktIRQ		; 
	jsr RecvInit	;Initialize receiver for other packets.
ExitNoInit		; 
	jsr Restore16	;Restore 16 bytes of ZP from our stack.
	jsr UnGetBank	;Restore memory state.
	sep #XBit+MBit	;For returning to interrupt handler.
	lda #3	;Point to RR3 (interrupt status reg).
	sta sccAReg
	lda sccAReg	;Get the latest value of RR3 to replace
	ora SCCFlag2	;Fern's byte saved on the stack, and set
	sta 4,s	;our bit so he'll know we did something.
	clc	;Clear C to indicate we serviced the
	rtl	;int.

dothedispatch		; 
* WARNING!!!
* we use the overflow flag to indicate whether or not
* we need to save the 16 bytes of zero page since the
* other zero page was saved on the aux side before we
* did a switch...therefore, MAKE SURE ANY CODE ADDED
* DOES NOT AFFECT THE OVERFLOW BIT BETWEEN WHERE WE
* SET IT AND WHERE WE PUSH A COPY OF IT ONTO THE STACK
*
	inc busyFlag	;Make it busy for Dispatch.
	jsr SaveState	;Save interrupt vars. so interrupts can	occur again
	tsx	;get current stack pointer
	stx dstack	;save for later
	sep #xbit+vbit	;8 bit x, set overflow bit to indicate normal stack
	tsc	;get stack in a for	tests
	xba	;see what page of memory stack is in
	eor #1	;is it page 1
	bne notinauxarea	;no, so don't need to worry about stack being in aux
	ldx rdaltzp	;see if alt stack is in
	bpl notinauxarea	;not in, so use stack as is
	xba	;get low word of stack pointer back
	sta >altsp	;and save, so we can get it later
	lda #1
	xba
	lda >mainsp	;get main stack pointer
	tcs	;and use it
	clv	;we had the aux stack in, so must save main zp
notinauxarea		; 
	lda statereg	;get state
	sta dstate	;save it
	ldx |rd80col	;see if 80store set
	bpl irno80	;no
	and #$bf	;force page 1
irno80		; 
	and #$40	;put in standard state
	ora #$08
	sta statereg	;now we are in a known state
	lda lcbank2
	lda lcbank2	;appletalk needs lcbank2 read/write enabled
	rep #xbit	;back to 16 bit x
	php	;save a copy of v bit (flag for which zp was in)
	bvs @noextrasave	;no need to save zero page, already done
	jsr Save16	;save the 16 bytes of zero page on the main side
@noextrasave
	php
	rep #mbit+xbit
	jsl incbusyflag	;don't let scheduler come in here (critical code)
	plp
	cli	;occur again, and turn on ints.
	jsl PDispatch+$E10000 ;while (busy == 0) dispatch packets.
	sei	;Interrupts off.
	lda #$e1	;make sure bank e1 restored
	pha
	plb
	dec busyFlag	;Remove the busy set for Dispatch.
	rep #mbit+xbit
	lda dstate
	pha	;need to use stack,	since
	lda dstack	;decbusyflag may re-enable ints
	pha	;causing these vars	to get changed
	jsl decbusyflag	;let scheduler dispatch now (atalk active again)
	plx	;recover the dstack	variable
	pla	;get the state variable
	plp	;should be 8 bit a,	16 bit x
	bvs @noextrarestore	;no need to do the restore
	pha
	jsr Restore16	;restore the main zero page that was saved above
	pla	;recover the state variable
@noextrarestore
	sta statereg	;and restore it
	txs	;restore stack
	jsr RestorState	;Get back interrupt	vars.
	rts	;and return
	ENDP

****************************************************************
*
*  'QtrSecIRQ' handles quarter second interrupts.
*
*  Inputs:
*
*  Outputs:
*
****************************************************************

QtrSecIRQ	PROC

	php
	phb
	sep #MBit
	rep #XBit	;16 bit index.
	lda #$E1	;Point to bank E1.
	pha
	plb
	sta CLRVBLINT	;Clear the 1/4 sec interrupt.
	inc deltaT	;Time since the dispatcher got called.
	lda busyFlag	;Can we call the dispatcher now?
	bne NoDispatch	;No.
	jsr GetBank	;R/W LC bank 2, save StateReg on stack.
	jsr SaveState	;Save state so ints	can occur again.
	jsr Save16	;Save some ZP.
	lda deltaT	;Tell the dispatcher how long it's been.
	stz deltaT	;Clear timer.
	inc busyFlag	;We're busy.
	rep #MBit	;16 bit A for dispatch.
	jsl incbusyflag	;tell scheduler we are critical
	cli	;Enable those ints!
	jsr stacksave	;save off stack if needed
	jsr QtrSched	;Go to the scheduler.
	sep #MBit	;8 bit A for PDispatch.
	jsl PDispatch+$E10000 ;Dispatch packets.
	jsr stackrestore	;restore the stack space
	dec busyFlag	;Not busy anymore.
	php
	rep #mbit+xbit
	jsl decbusyflag	;let the scheduler call it's task
	jsl OnExitVector	;Call our new vector!
	plp
	sei	;Disable ints.
	jsr Restore16	;Get back ZP.
	jsr RestorState	;Get back info.
	jsr UnGetBank	;Restore memory state.
NoDispatch		; 
	plb
	plp
	clc
	rtl
	ENDP

****************************************************************
*
*  'SaveState' puts	interrupt vars on our private stack.
*
*  Inputs:
*
*  Outputs:
*
****************************************************************

SaveState	PROC

	php
	rep #MBit+XBit
	longa on
	ldx #irq_intflag
	lda #9	;Save 9 bytes.
	jsr SaveE1	;Save other interrupt vars on stack.
	ldx #irq_A
	lda #19	;Save 19 bytes.
	jsr SaveE1	;Save interrupt vars on private stack.
	sep #MBit	;8 bit A.
	stz |irq_active	;Pretend ints are not active.
	plp
	longa off
	rts
	ENDP

****************************************************************
*
*  'RestorState' gets interrupt vars off of our private stack.
*
*  Inputs:
*
*  Outputs:
*
****************************************************************

RestorState	PROC

	php
	rep #MBit+XBit
	longa on
	ldy #irq_A
	lda #19	;Restore 19 bytes.
	jsr RestoreE1	;Restore interrupt vars fromon stack.
	ldy #irq_intflag
	lda #9	;Restore 9 bytes.
	jsr RestoreE1	;Restore other vars	from stack.
	plp
	longa off
	rts
	ENDP

LongForbid	PROC EXPORT
	jsr Forbid
	rtl
	ENDP

LongPermit	PROC EXPORT
	jsr Permit
	rtl
	ENDP

****************************************************************
*
*  'EnterCrit'
*
*  Inputs:
*
*  Outputs:
*
****************************************************************

EnterCrit	PROC

	EXPORT lforbid
lforbid		;       
	EXPORT Forbid
Forbid		; 

	pha
	php
	phb
	sep #mbit
	longa off
	lda >statereg	;get state of machine
	pha
	and #$cf	;bits 4&5 zero force read and write main bank
	sta >statereg
	rep #mbit+xbit
	jsl incbusyflag	;tell scheduler we are busy
	sep #MBit	;8 bit A.
	lda #$E1
	pha
	plb
	inc busyFlag
	pla	;recover state of machine
	sta >statereg	;and restore it
	plb
	plp	;Restore state.
	pla
	rts
	ENDP

****************************************************************
*
*  'ExitCrit'
*
*  Inputs:
*
*  Outputs:
*
****************************************************************

ExitCrit	PROC

	longa off
	EXPORT Permit
Permit		;       
	EXPORT lpermit
lpermit		;   

	pha
	phx
	phy
	phd	;save off direct page
	pea $0000	;prepare to set direct page to zero
	pld	;get direct page of	zero
	php
	sep #MBit	;8 bit A.
	longa off
	lda >statereg	;get state of machine
	pha
	and #$cf	;bits 4&5 zero force read and write main bank
	sta >statereg
	rep #XBit	;16 bit X.
	phb
	lda #$E1	;Change to bank E1.
	pha
	plb
	jsr GetBank	;Get LC bank 2.
	php	;Save mode for later.
	sei	;No ints while changing busyFlag.
	dec busyFlag
	bne Done	;If zero, we can try to dispatch
	ldx curRBuf	;packets.  Are packets available?
	lda |buf_next+1,x	;Look at high byte of next field:
	beq NoPkts	;If zero, no packets.
	inc busyFlag	;packets.  Increment busy for Dispatch.
	plp	;Get back state of interrupt
	php	;enable flag and save again.
	jsr Save16	;Save 16 bytes of ZP.
	jsl PDispatch+$E10000 ;try to dispatch a packet.
	jsr Restore16	;Get back ZP.
	sei	;No ints while looking at busy flag.
	dec busyFlag	;Undo the busy. If still zero,
	bne Done	;check for a pending 1/4 sec interrupt.
NoPkts		; 
	lda deltaT	;If time > 0, one is waiting.
	beq Done	;Zero, none waiting.
	stz deltaT	;Clear timer.
	inc busyFlag	;Now we're busy.
	plp	;Get back int enable state.
	php
	rep #MBit+XBit
	jsr QtrSched	;Dispatch 1/4 sec interrupts.
	sei
	dec busyFlag	;Undo the busy.
Done		; 
	plp
	jsr UnGetBank	;Restore memory state.
	rep #mbit+xbit
	jsl decbusyflag	;let scheduler run now if down to zero
	plb
	sep #mbit	;state is 1 byte
	pla	;recover state of machine
	sta >statereg	;and restore it
	plp
	pld	;recover original direct page
	ply
	plx
	pla
	rts
	ENDP
	
***************************************************************
*
*  'RecvPacket' should be called to receive a packet from a	non-interrupt
*  environment.  The routine will wait a maximum of IFGTime	(200 usec.)
*  for a packet before returning with a	time out error.  Only 3 packet classes
*  are accepted: LAPAck, LAPCTS, and non LAP-control packets (i.e., data
*  packets).  Any directed packet (non broadcast), however,	will set the flag
*  'addrUsed'.  LAPCTS packets will set	the flag 'gotCTS', and data packets
*  will set the flag 'gotData'.  Data packets will only be accepted if the flag
*  'needData' is set.
*
*  Inputs:
*
*  Outputs:
*
****************************************************************

RecvPacket	PROC

	stz pktError	;No receive errors (yet).
	ldy #0	;Point to scc1 (, 2, 3).
	ldx #TIFGap	;Wait max of IFG (200 us) for packet.
	clc	;Set up loop info on stack for later.
	php	;Push a flag with C=0 to stop the loop.
	sec
	php	;Push 3 flags with C=1 to get 4 bytes.
	php
	php
WaitIFG		; 
	lda (sccReg)	;Check for data ready.
	and #RxAvail
	bne DataAvail
	dex	;Check for time out.
	bne WaitIFG
	jmp ErrExit	;Time out, so exit.
DataAvail		; 
	lda (sccDat)	;Get data.
	sta scc1A,y	;Store it.
	iny	;Point to the next byte.
	ldx #TByte	;Reset time out timer for single byte.
	cpy #3	;See if we've gotten all 3 bytes yet.
	bne WaitIFG	;Keep looping.
	lda scc3	;Look at LAP type.
	bmi LAPPkt	;Go handle LAP packet.
	lda needData	;Do we need a data packet?
	beq Exit	;No: exit.
	ldy curOffset
	lda scc3	;See if this packet	needs to be check-
	cmp #DDPLong	;summed.
	bne AfterHeader	;If not, just get data.
	sec	;Single byte mode.
RLoop		; 
	jsr RecvBytes	;Get a byte of DDP header.
	sta [ptr0],y	;Store it.
	iny
	plp	;Get loop control off stack.
	bcs RLoop	;If C set, loop.
	phx	;Push 4 dummy bytes	on stack.
	phx
AfterHeader		; 
	stz cmndList	;Zero the checksum.
	stz cmndList+1
	clc	;Indicate multi byte mode.
	jsr RecvBytes	;Receive the whole packet.
	lda pktError	;See if any errors occured.
	bmi Exit	;Yes. Exit.
	lda addrValid	;Is our address valid?
	beq Exit	;No: exit.
	inc gotData	;Indicate that we got a data packet.
	ldx cmndList	;Put the checksum in page E1.
	stx ckSum
	bra Exit	;Return.

LAPPkt		; 
	sec	;Single byte mode.
	jsr RecvBytes	;Get first CRC byte.
	bcc ErrExit	;Last byte: error, so exit.
	jsr RecvBytes	;Get second CRC byte.
	bcs ErrExit	;Not last byte: error, so exit.
	lda pktError	;See if any errors.
	bmi Exit	;Yep. Exit.
	lda scc3	;Look at LAP type.
	cmp #LAPCTS	;Is it a CTS?
	bne Exit	;No, so don't do anything.
	sta gotCTS	;Yes, register it.
	bra Exit
ErrExit		; 
	dec pktError	;If get here, pktError was 0. Now $ff.
Exit		; 
	plx	;Remove loop control bytes from stack.
	plx
	lda pktError	;Was there an error?
	bmi BCST	;Yes, ignore the packet.
	lda scc1A
	cmp source	;Is it to our address?
	bne BCST	;No, must be broadcast.
	sta addrUsed	;someone is using this address.
BCST		; 
	jmp RecvInit	;Init receiver for other packets
	ENDP

****************************************************************
*
*  'RecvBytes' reads bytes into the current receive buffer.	 It has two
*  modes of operation, depending on the	setting of the C bit when called.
*  If C is cleared when called, bytes will be continuously read until the
*  end of the packet or an error occurs, and each byte will	be added to the
*  'ckSum'.  If C is set, however, only	one byte will be read and returned
*  in A without being buffered or added	to the checksum.  Control will
*  be passed immediately back to the caller.
*
*  Inputs:
*
*  Outputs:
*
****************************************************************

Set	PROC

	sec	;Shift in 1.
	rol A	;Left.
	sta cmndList
	sep #MBit	;Back to 8 bits.
	clc	;Ensure multi-byte mode.
	
	entry RecvBytes	; EXPORT -> ENTRY  **TGH
RecvBytes		;       

	lda (sccReg)	;Look at the byte available bit.
	and #RxAvail
	bne Loop2	;Got a byte: continue.
	ldx #TByte	;Byte time out.
Loop1		; 
	lda (sccReg)	;Look at the byte avail bit.
	and #RxAvail
	bne Loop2
	dex	;Check for time out.
	bne loop1
	lda #TOutErr	;Time out error.
	bra DoError
Loop2		; 
	sta (sccReg)	;If we get here, A = 1 (point to
	lda (sccReg)	;read register 1). Get error status.
	and #$A0	;Check for end of frame or overrun.
	bne Special	;Handle special case.
	lda (sccDat)	;Get the data byte.
	bcc MultiMode	;If C = 0, get multiple bytes.
	sec	;Indicate not end of packet.
	rts	;Return with the byte in A.
MultiMode		; 
	sta [ptr0],y	;Store the byte.
	iny	;Move to next byte.
	beq TooBigErr	;If zero, buffer is	full.
	rep #MBit	;16 bit A.
	longa on
	and #$ff	;Mask off high byte.
	adc cmndList	;Add new byte to the checksum.
	bmi Set	;Bit 15 = 1: go shift in 1.
	clc	;Bit 15 = 0: shift in 0.
	rol A	;Shift it left, now	C = 0.
	sta cmndList	;Store it.
	sep #MBit	;Back to 8 bits.
	longa off
	bra RecvBytes	;Loop. C = 0 still for multi-byte mode.

TooBigErr		; 
	lda #tBigErr	;Set the appropriate error bit.
	bra DoError

Special		; 
	bmi LastByte	;If -, last byte in	packet.  Else
;		 overrun bit is set	in A. Record it.
DoError		; ;Decide whether or not to record the
	ora #$80	;error.  Set the error bit.
	tax	;Get pktError and look at the lock bit
	lda pktError	;to see whether we should report this
	and #1	;new error.  If set, don't record.
	clc	;Indicate end of packet (whether or not
	bne NoRecord	;it's the end).
	txa	;Get back the new error.
	tsb pktError	;Record it.
NoRecord		; 
	rts

LastByte		; 
	lda #1	;Get status register again.
	sta (sccReg)
	lda (sccReg)
	and #$60	;Mask all but CRC and overrun errors.
	bne DoError	;Use bits in A as error bits.
	lda #1	;If not an error, a	packet has been
	sta pktError	;successfully received, so set the lock
	clc	;bit and clear C to	indicate the end of
	rts	;the packet.
	ENDP
**************************************************************
*
*  'XmitPacket' performs CSMA.CA transmission of the packet	in the buffer
*  data structure pointed to by 'xmitBDS'.
*
*  Inputs:  'dest',	'lapType', and 'xmitBDS'
*
*  Outputs:
*
****************************************************************

XmitPacket	PROC

	php	;Save mode.
	sep #MBit	;8 bits.
	lda lapType	;Is it an Enq?
	cmp #LAPEnq
	beq NoCount	;If so, don't count size of BDS.
	rep #MBit
	longa on
CountBDS		; ;First count bytes, see if it's too long
	ldx txBDS	;Make temporary copy of the pointer to
	stx ptr0	;the BDS.
	ldx txBDS+2
	stx ptr0+2
	lda #MaxData	;Set up to max size	of LAP data.
	ldy #0	;Point to first BDS	entry.
CountLoop		; 
	pha	;Save amount left before too big.
	lda [ptr0],y	;Get this count.
	inc A	;See if it's $FFFF.
	beq Done	;If so, done.
	pla	;Get back amount remaining.
	sec
	sbc [ptr0],y	;Subtract the size of this entry.
	bpl OKLength	;If we go -, it's too long.

	lda #SizeErr	;Report error.
	plp	;Get back mode
	rts	;return.
OKLength		; 
	iny	;Move ahead 6 to the next BDS entry.
	iny
	iny
	iny
	iny
	iny
	bra CountLoop	;Loop.
Done		; 
	pla	;Get stuff off stack.
	sep #MBit
	longa off
NoCount		; 
	ldx whichSCC	;Set up pointers to	SCC.
	stx sccReg
	inx
	inx
	stx sccDat
	lda #1	;Set this bit to use the Mega II mouse
	tsb mouseMode	;counter for line activity detection.
	lda colHist	;Look at recent collision history.
	jsr BitCount	;Count # of cols. in the last 8.
	bcc AdjBk2	;<2 then check defers.
	beq AdjBk2	;=2 then check defers.
	rol gBackOff	;gBackOff = gBackOff * 2 + 1 (mask bit).
	stz colHist	;Clear collision history.
	bra AdjBk3
AdjBk2		; 
	lda defHist	;Look at defer history.
	jsr BitCount	;Count defers in past 8.
	bcs AdjBk3	;If >= 2, continue.
	lsr gBackOff	;gBackOff = gBackOff / 2.
	lda #$ff	;Set all def history bits.
	sta defHist
AdjBk3		; 
	lda gBackOff	;Copy gBackOff to
	sta lBackOff	;our local copy.
	asl defHist	;Throw away the oldest history bit.
	asl colHist	;Throw away the oldest history bit.
	ldx #$2020	;Max defers, Max collisions.
	stx colTries	;Set them up.

CDSPktWait		; 
	plp	;Get back original setting of interrupt
	php	;enable bit.
	jsr Random	;Generate random number now for backoff.
	ldy #TWLFree	;30 msec. time out for free line.
	ldx whichMouse	;Pick which mouse counter to watch.
WLFLoop		; 
	lda |0,X	;Clear the mouse counter.
	jsr RTSAddr	;Wait about a bit time.
	lda |0,X	;Get current count:	is anyone on the
	beq CDSBkOff	;line?  If not, we got it.
	dey	;Check for time out.
	bne WLFLoop	;No time out, continue.
	jsr RecvInit	;Otherwise, time out: receiver stuck,
	bra CDSPktWait	;so reset it.

CDSBkOff		; 
	ldy #4	;Wait 400 usec. inter dialog gap,
	jsr WLineBusy	;checking for line busy.
	bcs CDSPktWait	;Line busy: keep waiting.
	lda seed+1	;Get a random number.
	and lBackOff	;And (effectively multiply) by lBackOff.
	rep #MBit	;16 bit A.
	longa on
	and #$f	;Enforce max wait of 15.
	tay	;Set for WLineBusy,	100 usec intervals.
	sep #MBit	;Back to 8.
	longa off
	beq GotLine	;If random backoff time is 0, continue.
	jsr WLineBusy	;checking for line busy.
	bcs Defer	;Someone on line: defer.

GotLine		; 
	sei	;No ints from now on.
	stz gotCTS	;Clear CTS received	flag.
	ldx dest	;Get dest address.
	lda #LAPEnq	;See if sending a LAPEnq.
	cmp lapType
	beq DoEnq	;If so, A already has #LAPEnq.
	lda #LAPRTS	;If not, do an RTS instead.
DoEnq		; 
	jsr XmitLAP	;Send a LAP packet.
	lda dest	;Check for broadcast.
	inc A
	beq JustWait	;If broadcast, don't expect a CTS.
	jsr RecvPacket	;Try to receive CTS.
	lda lapType	;Was it an enquiry?
	cmp #LAPEnq
	bne ChkCTS	;If not, see if we got a CTS.
	lda addrUsed	;If so, see if anyone used our address.
	beq Collision	;No: pretend a collision, keep trying
	plp	;enquiries. Yes: return.
	rts
ChkCTS		; 
	lda gotCTS	;See if we got it.
	bne TransPkt	;If so, transmit the packet.

Collision		; ;Otherwise, probably a collision.
	lda #1	;Set the current collision history bit.
	tsb colHist
	sec	;Multiply lBackOff by 2.
	rol lBackOff
	lda #RetryErr
	dec colTries	;See if too many collisions.
	beq Exit	;If so, exit with excess collision err.
CDSBranch		; 
	brl CDSPktWait

Defer		; 
	lda #1	;Set current defer history bit.
	tsb defHist
	dec defTries	;See if too many defers.
	bne CDSBranch	;If not, try again.
	lda #RetryErr	;Report excess defers error.
	bra Exit

JustWait		; 
	ldy #1	;Wait 100 usec, checking for line busy.
*		;(Hardware SCC delay makes this 200 us.)
	jsr WLineBusy
	bcs Collision	;If someone on line, record collision.

TransPkt		; ;Otherwise, transmit the packet.
	jsr XmitBDS
	lda #0	;Report successful transmission.

Exit		; 
	plp	;Restore mode.
	
	entry RTSAddr	; EXPORT -> ENTRY  **TGH
RTSAddr		;     

	rts	;Return.
	ENDP

***************************************************************
*
*  'XmitLAP'  sends	a 3 byte lap packet.  A contains the LAP type, X
*  contains the destination address.
*
*  Inputs:
*
*  Outputs:
*
****************************************************************

XmitLAP	PROC

	pha	;Save the LAP type on the stack.
	jsr XmitBegin	;Start the transmission.
	lda source	;Get our node number.
	tax
	jsr XmitOne	;Send it.
	pla	;Get LAP type back.
	tax
	jmp XmitEnd	;Send it and exit through XmitEnd.
	ENDP

***************************************************************
*
*  'fXmitLAP'  sends a 3 byte lap packet.  A contains the LAP type, X
*  contains the destination address. (NOTE: this does not send the
*  sync pulse at the beginning, and should only be called when we
*  are sending back immediately to someone who sent us an RTS or ENQ
*
*  Inputs:
*
*  Outputs:
*
****************************************************************

fXmitLAP	PROC

	pha	;Save the LAP type on the stack.
	lda #3	;Start by disabling	the receiver.
	sta (sccReg)	;Point to reg 3.
	lda #DisRx
	sta (sccReg)
	lda #5	;Now enable drivers
	tay	;Y = 5.
	sta (sccReg)	;pulse.
	lda #EnbRTS
	sta (sccReg)
	tya	;Now enable drivers	and transmitter.
	sta (sccReg)
	lda #EnbTxRTS
	sta (sccReg)
	lda #ResTxCRC	;Initialize the transmitter's CRC
	sta (sccReg)	;generator.
	txa	;Get the first character of the packet.
	sta (sccDat)	;Send it.
	lda #ResetUnd	;Reset transmit underrun error.
	sta (sccReg)
	lda source	;Get our node number.
	tax
	jsr XmitOne	;Send it.
	pla	;Get LAP type back.
	tax
	jmp XmitEnd	;Send it and exit through XmitEnd.
	ENDP

****************************************************************
*
*  'XmitBegin' begins a packet transmission by sending the synchronization
*  pulse, two flags, and the data byte passed in X.
*
*  Inputs:
*
*  Outputs:
*
****************************************************************

XmitBegin	PROC

	lda #3	;Start by disabling	the receiver.
	sta (sccReg)	;Point to reg 3.
	lda #DisRx
	sta (sccReg)
	lda #5	;Now enable drivers	for start of sync
	tay	;Y = 5.
	sta (sccReg)	;pulse.
	lda #EnbRTS
	sta (sccReg)
	tya	;Now disable drivers for end of sync
	sta (sccReg)	;pulse
	lda #DisTxRTS
	sta (sccReg)
	tya	;Now enable drivers	and transmitter.
	sta (sccReg)
	lda #EnbTxRTS
	sta (sccReg)
	ldy #T2Flags	;Delay long enough for two flags
FlagLoop		; ;to be transmitted. (50 usec)
	dey
	bne FlagLoop
	lda #ResTxCRC	;Initialize the transmitter's CRC
	sta (sccReg)	;generator.
	txa	;Get the first character of the packet.
	sta (sccDat)	;Send it.
	lda #ResetUnd	;Reset transmit underrun error.
	sta (sccReg)
	rts
	ENDP

****************************************************************
*
*  'XmitOne' sends the byte in X to the	SCC as soon as its transmit buffer
*  is empty.
*
*  Inputs:
*
*  Outputs:
*
****************************************************************

XmitOne	PROC

	lda (sccReg)	;Wait until the transmit buffer is
	and #TxEmpty	;empty.
	beq XmitOne
	txa	;Get char to transmit.
	sta (sccDat)
	rts
	ENDP

****************************************************************
*
*  'BitCount' counts the set bits in A.
*
*  Inputs:  A: bits	to count.
*
*  Outputs: Y: number of set bits.
*           flags: set from comparison of Y with 2.
*
****************************************************************

BitCount	PROC
	ldx #7	;Count 8 bits.
	ldy #0	;# of set bits found.
BCLp		; 
	asl A
	bcc NotSet
	iny
NotSet		; 
	dex
	bpl bclp
	cpy #2
	rts
	ENDP

****************************************************************
*
*  'WLineBusy' waits either until the line is busy or until	the number of
*  100 usec. intervals specified by the	Y register has passed.  If the line
*  is busy, C is set on return.  Otherwise, C is reset.
*
*  Inputs:
*
*  Outputs:
*
****************************************************************

WLineBusy	PROC

	sty r0	;Save counter in ZP.
WLBLp2		; 
	ldy #T100usec	;100 usec. timer.
	ldx whichMouse	;Get pointer to our	mouse counter.
WLBLoop		; 
	lda |0,x	;Clear mouse count.
	jsr RTSAddr	;Wait about a bit time.
	lda |0,x	;See if any activity.
	bne Busy	;Yes: exit.
	dey	;Check for end of this 100usec period.
	bne WLBLoop	;Not the end.
	dec r0	;Check for the end of the Y time.
	bne WLBLp2	;Not the end.
	clc	;Clear C to indicate time out
	rts	;and return.
Busy		; 
	sec	;Set carry to indicate line busy
	rts	;and return.
	ENDP
****************************************************************
*
*  'XmitBDS' transmits a data packet using the data from the buffer data
*  structure pointed to by 'xmitBDS'.
*
*  Inputs:
*
*  Outputs:
*
****************************************************************

XmitBDS	PROC

****************************************************************
*
*  This code sets up zero page pointers	and registers X and	Y for efficient
*  access of the buffer data structure 'txBDS'.  X contains	the number of
*  bytes left in the current buffer, Y contains an offset from [ptr1] to the
*  current byte in the buffer,  r0 is an offset from [ptr0]	to the next entry
*  in the BDS.
*
****************************************************************

	rep #MBit	;16 bit A.
	lda txBDS	;Get low word of BDS pointer.
	sta ptr0	;Store in ZP.
	lda txBDS+2	;Get high word.
	sta ptr0+2
	lda [ptr0]	;Get length of the first entry.
	pha	;Store length on stack.
	ldy #2	;Point to the first	buffer address.
	lda [ptr0],y	;Get low word of address.
	sta ptr1	;Store in ptr1
	iny	;Move on to high word.
	iny
	lda [ptr0],y	;Get high word of address.
	sta ptr1+2	;Store.
	iny	;Point to the next entry.
	iny
	sty r0	;Store pointer.
	sep #MBit	;8 bit a.
	lda dest
	tax
	jsr XmitBegin
	lda source
	tax
	jsr XmitOne
	lda lapType
	sta r2	;r2 is the first byte sent by XmitBDS.
	ldy #0	;Point to first byte of BDS data.
	plx	;Get back length of	this BDS entry.
	beq NextBDS	;Fixes 0 length bug 11/23/88  **TGH

XmitBytes		; 
	lda (sccReg)	;Wait for the transmit buffer to be
	and #TxEmpty	;empty.
	beq XmitBytes
	lda r2	;Then get the first	byte to send,
	sta (sccDat)	;and send it.
	lda [ptr1],y	;Get a byte from the BDS.
	sta r2	;Store it.
	iny	;Point to next byte.
	dex	;See if this entry is empty.
	bne XmitBytes	;No, keep looping.

NextBDS	rep #MBit+CBit	;16 bit A, clear C.
	longa on
	ldy r0	;Get pointer to next BDS entry.
	lda [ptr0],y	;Get length of next	entry.
	bne NotZ	;See if length is zero.
Again		; 
	tya	;It is: move on the	next BDS entry.
	adc #6
	tay
	lda [ptr0],y	;Is it still zero?
	beq Again
NotZ		; ;Not zero: send the BDS entry.
	tax	;Put the count in X.
	inc A	;If $ffff, it's the end.
	beq Empty
	iny	;Move ahead to the buffer pointer.
	iny
	lda [ptr0],y	;Get low word of pointer.
	sta ptr1	;Store it.
	iny	;Move on to high byte.
	iny
	sep #MBit	;Back to 8 bits.
	longa off
	lda [ptr0],y	;Get high byte.
	sta ptr1+2	;Store it.
	iny	;Move on to the next entry.
	iny
	sty r0	;Save pointer to the next entry.
	ldy #0	;Point to the first	byte of the entry.
	bra XmitBytes	;Keep sending bytes.
Empty		; 
	sep #MBit	;Back to 8 bits.
	lda r2	;Get the last byte.
	tax	;Put in X for XmitEnd.

****************************************************************
*
*  'XmitEnd' terminates a packet transmission by sending the byte passed in X,
*  the trailing flag, and the abort sequence.  It then inits the receiver.
*
*  Inputs:
*
*  Outputs:
*
****************************************************************

	entry XmitEnd	; EXPORT -> ENTRY  **TGH
XmitEnd		;       
	jsr XmitOne	;Send the byte in X.
UndWait		; 
	lda (sccReg)	;Then, wait for underrun.
	and #Underrun
	beq UndWait
CRCWait		; ;Then, wait for CRC to be transmitted.
	lda (sccReg)
	and #TxEmpty	;(Full while sending CRC bytes).
	beq CRCWait
	ldx #TLastFlag	;Wait long enough for the terminating
FlagWait		; ;flag to be sent (29 usec).
	dex
	bne FlagWait
	lda #5	;Now disable transmitter but keep
	sta (sccReg)	;drivers on for abort sequence.
	lda #EnbRTS
	sta (sccReg)
	ldx #TAbort	;Wait long enough for the abort
AbortWait		; ;sequence to happen (75 usec).
	dex
	bne AbortWait
	lda #5	;Now turn off drivers.
	sta (sccReg)
	lda #DisTxRTS
	sta (sccReg)	;Fall into 'RecvInit'.

****************************************************************
*
*  'RecvInit' initializes the current appletalk SCC channel	for packet
*  reception.
*
****************************************************************

	entry RecvInit	; EXPORT -> ENTRY  **TGH
RecvInit		;       
	php	;Save int mode.
	sei	;No interrupts.
	pea $00DD	;(EnbRxSlv+EnterHunt) + End flag
	pea $2330	;(ResetErr+256*(ReEnbInt+3))
	pea $D003	;(3+256*DisRx)
RILp		; 
	pla
	sta (sccReg)
	bne RILp
	plp	;Get back int mode.
	rts
* The above code sends out the following sequence of bytes to the control reg.:
*           #3		Point to write register 3.
*           #DisRx		Disable the receiver.
*           #ResetErr	Reset Errors.
*           #ReEnbInt+3	Enable 1st char ints, point to reg 3.
*           #EnbRxSlv+EnterHunt	Set slave receive mode.
	ENDP
	
****************************************************************
*
*  'NewPacket' checks the latest packet	to see if it belongs to an installed
*  protocol handler.  If so, it is added to the packet dispatch list.  If not,
*  it is discarded.	 LCBank RAM must be	selected before calling.
*
*  Inputs:  ptr0 = curEnd.  16 bit index, 8 bit A.
*
*  Outputs:
*
****************************************************************

NewPacket	PROC

	rep #MBit	;16 bit A.
	longa on
	ldx curWBuf	;X points to the base of the buffer.
	dey	;Adjust end of buffer (skip CRC byte).
	tya	;(Y points to CRC, 1st byte past data).
	sec
	sbc curOffset	;Subtract the base of the data to
	sta |buf_len,x	;find the length.  Store in buffer.
	lda [ptr0],y	;Get that pesky CRC	byte.
	and #$ff	;Mask high byte.
	pha	;Save on stack.
	lda ckSum	;Get the checksum.
	ror A	;Look at the low bit.
	php	;Save carry bit.
	rol A	;Back to the checksum.
	plp	;Get the low bit back in C.
	ror A	;NOW rotate right.
	sec	;Prepare to subtract.
	sbc 1,s	;Subtract the CRC: now we have the real
	sta |buf_cksum,x	;checksum.  Put it in the buffer.
	pla	;Clean up the stack.
	lda scc1A	;Get scc bytes and install in buffer.
	sta |buf_dest,x	;Store first and second bytes.
	sep #MBit	;Back to 8 bit A.
	longa off
	lda scc3	;Now get third byte.
	sta |buf_type,x
	rep #MBit	;16 bit A.
	longa on
	tya	;A = curOffset.
	clc
	adc curEnd	;Advance the end packet pointer past
	clc	;the packet we just	got.
	adc #MaxSize
	sta curEnd
	bmi OK	;If curEnd is still	> $8000, it's OK.
	lda #Base+MaxSize	;Otherwise, wrap back to the beginning
	sta curEnd	;of the packet buffer area.
	sep #MBit
	longa off	;Also,
	inc trailing	;set the trailing flag to indicate that
OK		; ;write pointers precede read pointers.
;		;End by setting up the next write buf.

****************************************************************
*
*  'SetWNext' sets up 'curOffset', curWBuf->next, and 'curWBuf' to add the most
*  recent write buffer to the list.  If	there isn't enough room to allocate the
*  next write buffer, 'curOffset' is set to zero to prevent	'RecvPacket' from
*  storing packets.
*
****************************************************************

	entry SetWNext	; EXPORT -> ENTRY  **TGH
SetWNext		;       
	sep #MBit	;8 bit A.
	ldx curWBuf	;X points to the current write buffer.
	lda trailing	;See if trailing.
	rep #MBit+CBit	;16 bit A.
	longa on
	beq NotTrail	;If trailing, check	for full buffer.
	ldy curRBuf	;See if curEnd > curRBuf.
	cpy curEnd
	bcs NotTrail	;If not, the buffer	isn't full.
	lda #0	;If so, the buffer is full.  Indicate
	sta |buf_next,x	;full buffer: set curWBuf->next = 0.
	sta curOffset	;Also, curOffset = 0.
	bra Exit
NotTrail		; 
	sec
	lda curEnd	;set curWBuf->next = curEnd - MaxSize
	sbc #MaxSize	;to point to the beginning of the next
	sta |buf_next,x	;write buffer.
	sta curWBuf	;Now use that buffer as curWBuf.
	tax	;Now clear curWBuf->next to indicate
	stz |buf_next,x	;empty buffer.
	lda #-(MaxData+2)	;Set up curOffset to point to the
	sta curOffset	;start of the LAP data field.
Exit		; 
	sep #MBit	;Back to 8 bit A.
	longa off
	rts

****************************************************************
*
*  'FreeBuf' releases the current read buffer for future use.
*  LCBank RAM must be selected before calling.
*
****************************************************************
*
	entry FreeBuf	; EXPORT -> ENTRY  **TGH
FreeBuf		;       
	ldx curRBuf	;Point to the buffer.
	ldy |buf_next,x	;Get curRBuf->next.
	cpy curRBuf	;If next < curRBuf,	we're wrapping to
	bcs NotWrap	;the beginning of the buffer, so we
	stz trailing	;reset the trailing	flag.
NotWrap		; 
	sty curRBuf	;Point curRBuf to the next buffer.
	ldy curOffset	;See if curOffset is 0.
	beq SetWNext	;If so, try to get a new write buffer.
	rts	;Otherwise, return.
	ENDP

****************************************************************
*
*  'Dispatch' dispatches packets from the list until there are none left or
*  'busyFlag' is greater than zero.  Control is passed to each packet's
*  protocol handler.
*
*  Inputs:  8 bit A, 16 bit index.
*
*  Outputs:
*
****************************************************************

Dispatch	PROC EXPORT

	php
	lda >$0007f8	;get mslot
	pha	;hold till we are ready to exit
	jsr predispatch
	pla	;recover mslot
	sta >$0007f8	;restore it
	cmp #$c1	;see if in valid range
	bcc notgoodmslot	;no it is not
	rep #xbit
	xba	;a=$cnXX
	lda #00	;a=$cn00
	tax
	lda >$00cfff	;deselect all $c800's
	lda >$000000,x	;access $cn00 to re-enable original $c800
notgoodmslot		; 
	plp
	rtl


predispatch		; 
	jsr stacksave	;save stack and move pointer
	jsl coredispatch	;dispatch packet
	jsr stackrestore	;restore stack pointer
	rts


* stack saving routines...
* these routines will save a portion of	the stack to
* allow deeper than	normal nesting of calls on the 256 byte	stack
*

	EXPORT stacksave
stacksave		;       
	phb	;save bank
	phb
	jsl LongForbid	;don't let other ints come in here
	pea $e1e1
	plb
	plb	;must be in bank e1	for vars
	sta stacksavea	;save accum
	php	;save register modes
	php
	rep #mbit+xbit	;force full native
	longa on
	longi on
	pla	;recover old mode in accum
	sta stacksavep
	pla	;get data bank (pushed at entry)
	sta stacksaveb	;save the data bank
	stx stacksavex
	sty stacksavey	;save registers
	pla	;get return address
	sta stretaddr	;hold onto return address since we change stacks
	inc stksaveflag	;bump the flag so nested calls don't save stack
	lda stksaveflag	;see if stack already saved
	dec a	;see if is now 1
	bne stackok	;the stack is already saved or ok since	above 1
	tsc	;get real stack pointer
	cmp #topstack	;check against our prefferred top of stack
	bcc stackswap	;it's lower, do stack stuff
	stz oldstack	;zero out pointer so restore knows we did nothing
	bra stackok
stackswap		; 
	sta oldstack	;preserve stack pointer for restore later
	sec
	lda #topstack	;get value of where	we want stack
	sbc oldstack	;see how many bytes	we need to save
	cmp #topstack-$100	;see if stack below $100
	bcs @dothesave	;no, so save it
	lda #topstack-$100	;it was, so only save from $100, not below
@dothesave
	sta lentosave	;save for later restore
	ldx oldstack	;recover stack pointer
	ldy #ourstacksave	;destination is ourstacksave memory
	mvn $00,$e1e1e1	;move from stack to	our bank
	lda #topstack	;get our stack pointer
	tcs	;and set it
stackok		; 
	lda stretaddr	;recover return address
	pha
	ldx stacksavex	;recover x and y
	ldy stacksavey
	lda stacksaveb	;get old data bank
	pha	;stay in bank $e1 till end
	lda stacksavep	;now restore processor state
	pha	;push two identical	bytes
	plp
	plp	;restore original state of processor
	lda stacksavea	;and finally restore a
	plb	;restore data bank that was pushed above
	plb	;now since we don't need to be in bank $e1 now
	jsl LongPermit	;allow atalk to dispatch again
	rts	;and return

	EXPORT stackrestore
stackrestore		;       
	phb	;save bank
	phb
	jsl LongForbid	;don't let other ints come in here
	pea $e1e1
	plb
	plb	;must be in bank e1	for vars
	sta stacksavea	;save accum
	php	;save register modes
	php
	rep #mbit+xbit	;force full native
	longa on
	longi on
	pla	;recover old mode in accum
	sta stacksavep
	pla	;get data bank pushed earlier
	sta stacksaveb	;save the data bank
	stx stacksavex
	sty stacksavey	;save registers
	pla
	sta stretaddr	;save return
	dec stksaveflag	;lower level
	bne stackok	;we are still nested
	lda oldstack	;recover old stack pointer
	beq stackok	;nothing ever saved
	tcs	;put it back where it was originally
	tay	;data will start storing here in mvn
	ldx #ourstacksave	;area to restore stack from
	lda lentosave	;amount to restore onto stack
	mvn $e1e1e1,$00	;move from ourbank to stack bank
	pea $e1e1
	plb
	plb	;set data bank back	to our code bank
	bra stackok	;exit this routine
*
* end of stacksave routines and equates
*


coreDispatch		; 
	longa off
	longi on
	php
Loop		; 
	lda busyFlag	;Our ordinary 'non-busy' value is
	cmp #1	;actually 1, not zero.  Exit loop if
	bne Exit	;not 1 (someone else did 'EnterCrit').
	php 	;lets see if any ticks have occurred
	sei	;lock out ints, since qtr ints can change deltaT on us
	lda deltaT	;get qtr second ticks
	stz deltaT	;always zero it out, since we will make use of whats in A
	plp
	ora #00	;check value of deltaT
	rep #MBit	;16 bit A.
	longa on
	beq @checkpkt	;no ticks to dispatch
	jsr QtrSched	;we have ticks, give them a call!
@checkpkt		;check to see if we have packets to dispatch
	ldx curRBuf	;Get pointer to the	packet.
	lda |buf_next,x	;See if next field is 0.
	bne IsData	;If not, there is some data.
Exit		; ;Otherwise, return.
	plp
	rtl
IsData		; 
	stx zpCurBuf	;Store pointer to the buffer in ZP.
	lda |buf_dest,x	;get dest node, and	source node
	sta |LapDest	;save it
	lda |buf_len,x	;Get the length of the packet.
	sta curLen	;Store as current length.
	txa	;Get pointer to the	buffer.
	clc
	adc #buf_data	;Point to the LAP data field.
	sta curPos	;Set the read position pointer for
	sep #MBit	;ReadProt and ReadRest.  8 bit A.
	longa off
	lda |buf_type,x	;Get the LAP type.
	sta |LapDest+2	;and save it for getglobal
	jsr FindProt	;Try to find a protocol handler for
	bcc NoProt	;the packet.
	rep #MBit	;Back to 16 bit A.
	ldy |protTable+4*MaxProts,X ;Y = high worrd of handler address.
	lda |protTable+2*MaxProts,X ;A = low word of handler address.
Callhandler		; 
	sta execAddr
	sty execAddr+2	;Call the routine, using emulation mode
	jsl GoComp	;for bank 0, fixing	stack if needed.
	sep #MBit
	rep #XBit
	bra Loop	;Loop until busy.
NoProt		; 
	ldy catchProt	;Is there a catch all prot. handler?
	bne IsCatch
	ldy catchProt+2
	bne IsCatch
	jsr FreeBuf	;No handler: release the buffer.
	bra Loop
IsCatch		; 
	rep #MBit	;16 bit A.
	lda catchProt	;Get low word of handler address.
	ldy catchProt+2	;Get high word of handler address.
	bra CallHandler
	ENDP

	END



\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/ControlMgr/ControlMgr.asm b/IIGS.601.SRC/GSToolbox/ControlMgr/ControlMgr.asm
new file mode 100644
index 0000000..e2e7a66
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/ControlMgr/ControlMgr.asm
@@ -0,0 +1 @@
+	title 'Control Manager Version 3.2'
**********************************************************************
*
*	Control Manager version 3.2
*
*           Copyright Apple Computer, Inc. 1986-90
*                    All rights reserved
*                   Written by Dan Oliver
*
* 08/27/87 Dan - start ROMing.
*
*
*	Change History:
*
* 22 June 88	Harry Yee
*
* The following APW files were combined into this one file.
*
*          CMAIN.ASM
*          CTRACK.ASM
*          CDEFPROC.ASM
*          CSCROLL.ASM
*          CUTIL.ASM
*          CSTATIC.ASM
*          CDATA.ASM
*
* Converted over to MAX development system.
* (Version 2.5 of control mgr (System Disk 3.2))
*
* 29 June 88	Steven Glass
*
* Changed call table so that DragRect call would link to the window manager
* when in ROM and link to a dummy file when in RAM.  Changed version
* number from 0205 to 8206.
*
* 24 Jul 88	Steven Glass
*
* Changes made to the scroll bar def proc so that the control value
* is validated before it is used.  We could make this an application
* problem (as it was in the past) or fix it once and for all here.
*
* I want to fix it once and for all.  Changes were made to scroll_init
* newview and move_thumb.  In each case the control value is validated
* against the values for maxsize and viewsize.  In scroll_init and move_thumb,
* the value was considered correct and the MaxSize adjusted if necessary.
* In newview, we assume the view and maxsize are correct and adjust the
* value.
*
* If the scrollvalue is greater than MaxSize-ViewSize something is wrong.
* When we assume that the Value is correct, we reset MaxSize to be 
* ScrollValue+ViewSize.  When we assume the view and make an adjustment,
* we set the value to MaxSize-ViewSize or 0, whichever is greater.
*
* 16 Aug 88	Steven Glass
*
* The routine that installs the icon font, does not save, clear and
* restore the text face.  This allowed an application to have itallic
* bold, outlined and shadowed scroll bars.
*
* 14 Sep 88	Steven Glass
*
* Started changes for Super Controls...
*
* 28 Sep 88	Steven Glass
*
* Change in the way that the recsize routines can use the param
* field.  If the routines are called by NewControl, param is zero.
* If the routines are called by NewControl2, param is pointer to
* template.
*
* Added in utilities section:
*
*   PushStringPtr
*   ReadMoreFlags
*   GetColorTableRefFromTemplate
*   CalcColorTableRefForCtl
*
*
* 02 Oct 88	Steven Glass
*
* Changed a bunch of names to avoid conflicts with the window and menu
* managers.  This was necessary because in the past nothing was exported
* Now that the CtlMgr is in several files a number of routine names are
* public.
*
* The names that changed are
*
*    Startup --> CMStartup
*    popXbytes --> CMpopXbytes
*    allocate2 --> CMallocate2
*    allocate3 --> CMallocate3
*    setrect --> CMsetrect
*    setrect2 --> CMsetrect2
*
* 02 Oct 88	Steven Glass
*
* Changed kill controls to see if the control manager is active before
* calling startup.  This way applications that used the
* window mangager without the control manager will still work.
*
* The problem occured when the window manager closes a window, it calls
* KillControls.  When running from a system disk, this was not a problem
* The control manager was not loaded if the app did not want to use it.
* So a dispatch error occured and the window manager knows how to recover
* from this.
*
* KillControls now mimicks the dispatcher error.
*
* 05 Oct 88	Steven Glass
*
* Major changes to the dispatcher code to handle defProcs in resources
* as well as new control 2.
*
*
* 06 Oct 88	Steven Glass
*
* The active flag used by built in defProcs is in the global data
* area rather passed to the defproc.  This made it hard for
* custom defProcs to do the right thing when they draw.  So we also put
* the flag in the hi-word of the param sent with the draw message.
* This is done in Set2DrawCtl
*
* 07 Oct 88	Steven Glass
*
* ReleaseResource grew another paramter.
*
* 12 Oct 88	Steven Glass
*
* Add support for the list manager to the dispatch routine.
*
* 23 Oct 88	Steven Glass
*
* Zeroed ParamPtr in startup.
*
* 24 Oct 88	Steven Glass
*
* Modified some of the dispatcher code.  Added calls to TextEdit and
* MenuMgr to find addr of defPRocs.  Simplified and shortened other 
* dispatching code.
*
* 09 Nov 88	Steven Glass
*
* Added a converter routine for code resources.  This routine is
* installed at control startup time for rCtlDefProc types.  The
* routine can also be used by other code to convert code resources.
* A new control manager call GetCodeResConverter returns the 
* address of this routine.
*
* Removed all references ReleaseCodeResource in the code.  Code
* resources are just regular resources.
*
* Changed LoadCodeResource to call LoadResource and deref the
* resulting handle.
*
* 21 Nov 88	Steven Glass
*
* Change to TrackControl.  The ctlDrag message is different when control has
* part code > $80.  If the control is a super control, the high
* word of the result from defProc call is the part code to return
* to caller.  This allows us to return no part code if the 
* user pulls his mouse out of the control before releasing
* the button.
*
* 01 Dec 88	 Steven Glass
*
* Added call to InvalCtls.
*
* 10 Feb 89	Steven Glass
*
* Minor change to routines that dispatch to defProcs in resources.
* These resources now need not have the high bit of their ID's set
* (invalid for current resource manager).
*
* 10 Feb 89	Harry Yee
*
* New control message ctlHideCntl, message #18. HideControl now checks if the
* control being hidden is a supercontrol, if it is then we check to see 
* if the FctlIsMultiPart bit is set in the moreflags field. If it is we let the 
* control's ctlHideCntl defproc take care of hiding the control. This is necesary 
* for controls that have more than one control associated with them (i.e. List Controls)
*
* 13 Feb 89	Steven Glass
*
* Preserved the y-reg in the new code written on 10 Feb to send
* hide/erase message to multipart controls.
*
*
* 28 Mar 89	Dave Good
*
* made the ctlHideCntl into a generic message: ctlNotifyMultiPart. Now the defproc
* gets passed this message by HideControl, EraseControl, ShowControl, and DrawOneCtl
* the low word of the parameter indicates which call sent the message
*
* 28 Mar 89	Steven Glass
*
* Added FutzCtls call.  It uses the new ctlWinStateChange message
* which is now supported by all the built in defProcs.
*
* 09 Apr 89	Steven Glass
*
* Changed CkButton2 (used by TrackControl) so that it does not leave
* mouse up events in the queue.  This could happen when button
* was up before trackControl was called or if button came up after
* get next event and before call to button.  Now we look at the mod
* word in event instead of calling button.
*
* 20-Nov-90	Dave Lyons
*
* Experimenting with making the background pattern for Scroll Bar
* controls a solid gray, at least in 640 mode.
* Version changed to $8303.
* Fixed off-by-one bug in CMDieHorribly.  Wouldn't get the "="
* character in "Error=xxxx".  Won't bother fixing for ROM 3.
*
* 20-Nov-90 (pm)	Dave Lyons
*
* Fixed the scroll bar color stuff (was failing to set B in one path).
*
* 9-Jan-91	Dave Lyons
*
* Changed HiliteControl(0,prevCtl) to use WaitUntil to wait 4 ticks
* before unhiliting the control.
*
* 19-Jan-91	Dave Lyons
*
* Added 3 new calls:  FindRadioButton (returns info about which radio
* button in a given family is selected); SetLETextByID and GetLETextByID,
* setting and getting text in extended Edit Line controls (parameters
* are window pointer, control ID and pString pointer).
*
* 22-Mar-91	Dave Lyons
*
* Added Compute320ScrollColor to search for a good Gray color to use
* (called from NewResGuts).
*
* 8-Aug-91	Dave Lyons
*
* Get/SetLETextByID and FindRadioButton now accept window=NIL, to use
* the front window.
*
* 15-Sep-91	Dave Lyons
*
* Changed CMLoadResource to force SysPrefs to always prompt for a
* disk and never use a cancel button (because if we can't find
* the resource, we're going to do a system death!).
*
* 4-Dec-91	Dave Lyons
*
* CMLoadResource now clears the supress-one-button-dialogs SysPrefs
* bit, so the OS doesn't infinite-loop looking for the disk.
*
* 8-Dec-91	Dave Lyons
*
* Scroll bar--Compute320ScrollColor uses GetSCB instead of peeking
* at SCB #100 directly.
*
* Split some large segments into some smaller PROCs for linking into
* TS3.
*
* Changed LoadCodeResource to force OS preferences to prompt for a
* disk, with no Cancel button.
*
* 9-Dec-91	Dave Lyons
*
* Changed Compute320ScrollColor to just ComputeScrollColor (it now
* checks the MasterSCB itself).  CtlNewRes calls ComputeScrollColor.
*
* 15-Jan-92	Dave Lyons
*
* Having CtlNewRes call RefreshDesktop was a truly boneheaded move,
* because really strange and not-goot reentrant things happen.
* Instead when ComputeScrollColor changes the scroll-bar page-area
* pattern/color, it uses AddToRunQ to add refreshDeskTask, which
* calls RefreshDesktop(0) and removes itself from the queue.
* This way we refresh the desktop on the next SystemTask call.
*
* 15-Jan-92pm	Dave Lyons
*
* Made CtlShutDown remove the Run Queue task, in case it got left
* hanging.
*
* 5-Feb-92	Dave Lyons
*
* Changed version to $0303 for 6.0.
*
**********************************************************************
*
* 3-Jun-92	Dave Lyons
*
* Changed version to $8304 for 6.0.1d5.
*
* Made CtlStartUp remove the RefreshDesktop run queue routine, to
* avoid redrawing everything once when starting an application in
* a different resolution.
*
* 15-Jul-92	Dave Lyons (6.0.1d7)
*
* Added new calls:
*   $3C10 SetCtlValueByID(Value,@Wind,CtlID/4)
*   $3D10 GetCtlValueByID(@Wind,CtlID/4):Value
*   $3E10 InvalOneCtlByID(@Wind,CtlID/4)
*   $3F10 HiliteCtlByID(Hilite,@Wind,CtlID/4)
*
* 22-Mar-93	Dave Lyons (6.0.1d15)
*
* Changed GetAndSetPrefs and SetPrefsToA to use DoSysPrefs instead
* of making GS/OS calls.  This speeds up every call to CMLoadResource.
*
* 1-Apr-93	Steve Stephenson
*
* Changed version to $0304 for 6.0.1 (final)
*
**********************************************************************
	Blanks off
	String asis
	
	print push
	print off

	INCLUDE 'all.macros'

	include 'equates.asm'
	include 'SuperEquates.asm'

myScrollPatt640	equ $00c0		;added 20-Nov-90 DAL
myScrollPatt320	equ $0010		;added 20-Nov-90 DAL

	include '::sys.equs.asm'

	include 'e16.event'

	print pop
	title 'ControlCallTable'
;====================================================================
;
;          Control Manager Function Table.
;
;====================================================================
ControlCallTable	PROC EXPORT
	import WindDragRect

	import FindActiveControl
	import MakeNextControlActive
	import MakeThisCtlActive
	import SendEventToControl
	import GetCtlID
	import SetCtlID
	import GetCtlMoreFlags
	import SetCtlMoreFlags
	import GetHandleFromID
	import NewControl2
	import CMReleaseResource
	import CMLoadResource
	import InvalCtls
	import FindRadioButton	;19-Jan-91 DAL
	import SetLETextByID	;19-Jan-91 DAL
	import GetLETextByID	;19-Jan-91 DAL
	import SetCtlValueByID	;15-Jul-92 DAL
	import GetCtlValueByID	;15-Jul-92 DAL
	import InvalOneCtlByID	;15-Jul-92 DAL
	import HiliteCtlByID	;15-Jul-92 DAL
	

	ENTRY FPT
FPT	DC.L (ENDFPT-FPT)/4
	DC.L CtlBootInit-1		1
	DC.L CtlStartup-1		2
	DC.L CtlShutDown-1	No longer shuts down (see CtlReset).
	DC.L CtlVersion-1		4
	DC.L CtlReset-1	Shutdown, called from WindShutDown.
	DC.L CtlStatus-1		6
	DC.L Reserved-1		7
	DC.L Reserved-1		8
	DC.L NewControl-1		9
	DC.L DisposeControl-1	A
	DC.L KillControls-1		B
	DC.L SetCtlTitle-1		C
	DC.L GetCtlTitle-1		D
	DC.L HideControl-1		E
	DC.L ShowControl-1		F
	DC.L DrawControls-1		10
	DC.L HiliteControl-1	11
	DC.L CtlNewRes-1		12
	DC.L FindControl-1		13
	DC.L TestControl-1		14
	DC.L TrackControl-1		15
	DC.L MoveControl-1		16
	DC.L DragControl-1		17
	DC.L SetCtlIcons-1		18
	DC.L SetCtlValue-1		19
	DC.L GetCtlValue-1		1A
	DC.L SetCtlParam-1		1B
	DC.L GetCtlParam-1		1C

	ENTRY dragPatch		1D
dragPatch	DC.L WindDragRect-1		;Address may be patched by CtlStartup.

	DC.L GrowSize-1		1E
	DC.L GetCtlzpage-1		1F
	DC.L SetCtlAction-1		20
	DC.L GetCtlAction-1		21
	DC.L SetCtlRefCon-1		22
	DC.L GetCtlRefCon-1		23
	DC.L EraseControl-1		24
	DC.L DrawOneCtl-1		25

; new calls added 20 Sep 88
	DC.L FindActiveControl-1	$26
	DC.L MakeNextControlActive-1	$27
	DC.L MakeThisCtlActive-1	$28
	DC.L SendEventToControl-1	$29
	DC.L GetCtlID-1		$2A
	DC.L SetCtlID-1		$2B
	DC.L CallDefProc-1		$2C  (added oct 3 88)
	DC.L NotifyControls-1	$2D  (added oct 3 88)
	DC.L GetCtlMoreFlags-1	$2E
	DC.L SetCtlMoreFlags-1	$2F
	DC.L GetHandleFromID-1	$30
	DC.L NewControl2-1		$31
	dc.L CMLoadResource-1	$32  (added Oct 12 88)
	dc.L CMReleaseResource-1	$33  (added Oct 12 88)
	dc.L SetCtlParamPtr-1	$34  (added Oct 21 88)
	dc.L GetCtlParamPtr-1	$35  (added Oct 21 88)
	dc.L FutzCtls-1		$36  (added Mar 28 89)
	dc.L InvalCtls-1		$37  (added Nov 9 88)
	dc.L CMUnloadSegments-1	$38  (added May 15, 1989)
*** 6.0
	dc.l FindRadioButton-1	$39 added 19-Jan-91 DAL
	dc.l SetLETextByID-1	$3A added 19-Jan-91 DAL
	dc.l GetLETextByID-1	$3B added 19-Jan-91 DAL
*** 6.0.1
	dc.l SetCtlValueByID-1	;$3C added 15-Jul-92 DAL
	dc.l GetCtlValueByID-1	;$3D added 15-Jul-92 DAL
	dc.l InvalOneCtlByID-1	;$3E added 15-Jul-92 DAL
	dc.l HiliteCtlByID-1	;$3F added 15-Jul-92 DAL

ENDFPT

	ENDP

	title 'Standard Calls'
;
;
;====================================================================
;	
;	CtlStartup
;
;        	Initialize Control Manager
;
;  IN:     PUSH:WORD - ID to use.
;          PUSH:WORD - direct page to use.
;
; OUT:     Nothing.
;
;====================================================================
CtlStartup	PROC

rtl2	equ 1	Stack inputs offsets.
rtl1	equ rtl2+3
newZP	equ rtl1+3
id	equ newZP+2

directPage	equ inputs	Offset to direct page (when setup).
memoryID	equ directPage+2

	tax	Have I already been	initialized?
	bne @1
	tyx
	beq @2
@1	brl exit1
@2
;
	lda id,s	ID number to use.
	tay
	lda #RAMSIZE	Number of bytes to allocate.
	jsr CMAllocate2	Allocate fixed RAM area.
	txy	Pass data area handle just like Tool Loc.
	jsr CMStartup
;
	ldy #2	Deference data area	handle.
	lda [<data],y
	tay
	lda [<data]
	sta <data	Replace handle with	pointer.
	sty <data+2
	jsr setWAP	Store data area pointer in Tool Locator.
;
;
; --- Remember memory ID number to use ---------------------
;
	lda <memoryID
	ldy #MyID
	sta [<data],y
;
;
; --- Remember direct page passed by caller -----------------
;
	lda <directPage
	ldy #MyDPage
	sta [<data],y
;
;
; --- Clear given direct page for Dialog Manager ------------
;
	phd
	tcd
	ldx #$00FE
clearDpage	stz <0,x
	dex
	dex
	bpl clearDpage
	pld
;
;
; --- Do resolution	dependent initialization ----------------------------
;
	jsr newResGuts

	jsl RemoveRefreshTask	;3-Jun-92 DAL

;
;
; !!!!!!!!!!!! The following code is not ROMable !!!!!!!!!!!!!!!!!!!!!!!
; !!!!!!!!!!! The patch will be done by	linker when ready to ROM !!!!!!!!!
;
;
; --- Patch out DragRect with routine in Window Manager -----------------
;
	pha
	pha
	ldx #14+256*84	; _GetDragRect
	jsl $E10000
	pla
	plx
	ldy #NOWIND_ERR
	bcs exit2
;
	sta >DragPatch
	txa
	sta >DragPatch+2
;
;
; !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
;
;


;-----------------------------------------------------------
;
; Init the ParamPtr. (Added 23 Oct 88 SEG)
;
	lda #0
	pha
	pha
	_SetCtlParamPtr

	pha
	pha
	_GetCodeResConverter
	PushWord #rCtlDefProc
	PushWord #%00000011		; loggin in.  system list.
	_ResourceConverter
	bcc exit1


	cmp #$0003
	bcs @NotDispatchError

	pla		; clear the stack
	pla
	pla
	pla
	bra exit1

@NotDispatchError
	

exit1	ldy #0	No error.
exit2	brl CMpop4bytes

	ENDP


;====================================================================
;
;	CtlStatus
;
;          	Return status of Control Manager.
;
;   IN:    None.
;
;  OUT:    WORD - 1	if active, 0 if not	active.
;====================================================================
CtlStatus	PROC

rtl2	equ 1	Stack inputs offsets.
rtl1	equ rtl2+3
result	equ rtl1+3

	tax	Has a data area been allocated?
	bne ok1
	tyx
	beq store1
ok1	lda #6	Dan O. version number.
store1	sta result,s
;
;
	ENTRY CtlBootInit
CtlBootInit		;       
	ENTRY Reserved
Reserved		;       
	ENTRY exit_tool
exit_tool		;       
;
	lda #0	No error.
	clc	No error.
	rtl
	
	ENDP


;====================================================================
;
;	CtlShutDown
;
;          	Application's call for shutting down the Control Manager.
;
;   IN:    None.
;
;  OUT:    None.
;====================================================================
CtlShutDown	PROC export
*** added 15-Jan-92 DAL -- remove my RunQueue task
	import refreshDeskTask
	pushlong #refreshDeskTask
	_RemoveFromRunQ
*** end 15-Jan-92
;
; Real shut down in	CtlReset call.
;
	lda #0	No error code.
	clc	No error flag.
	rtl	Do nothing, Window Manager will shutdown.
	
	ENDP


;====================================================================
;
;	CtlReset
;
;          	Shut down Control Manager.
;
;  This call is what really shuts down the Control Manager.	 This call is
;  performed by the	Window Manager when	it is shut down.  The reason for this
;  is because many applications were shuting down the Control Manager before
;  shutting down the Window Manager.  An error occurred when the Window Manager
;  called the Control Manager, but found it already shutdown.
;
;   IN:  y/a = pointer to data area, null if Control Manager not initialized.
;
;  OUT:  None.
;
;====================================================================
CtlReset	PROC

	tax	Is Control Manager already shutdown?
	bne ok1
	tyx
	beq CtlShutDown	If already off, just return.

ok1	jsr CMStartup

;
; --- Freed data area ---------------------------------------------------
;
	pha	Space for result.
	pha
	pei <data+2	Pass address of data area.
	pei <data
	_FindHandle	Find handle of data	area.
	_DisposeHandle	Free handle of data	area.
;
;
; --- Set my work area pointer in Tool Locator to zero ------------------
;
	lda #0	Clear my saved value in Tool Locator
	tay	to show I am not active.
	jsr setWAP
;	                  Error code returned from setWAP.
	brl CMpop0bytes
	
	ENDP


;====================================================================
;
;	CtlVersion
;
;        	Return Control Manager's Version number.
;
;   IN:  Nothing.
;  OUT:  WORD - version number.
;
;====================================================================
CtlVersion	PROC

rtl2	equ 1	Stack inputs offsets.
rtl1	equ rtl2+3
result	equ rtl1+3

	lda #$0304	Version number 1-Apr-93 SS
	sta result,s

	lda #0	No error.
	clc	No error.
	rtl
	
	ENDP

****************************************************************
*
CMUnloadSegments	PROC
*
* Unloads any dynamic segments that have been loaded
* in the course of using the tool
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
	import Exit_Tool
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


	PushWord #$4010	; unload all dynamics with this user id
	lda #0	; file num and seg num are zero
	pha
	pha
	_UnloadSegNum
	bra Exit_Tool



	ENDP



	title 'OtherCalls'
;====================================================================
;
;	CtlNewRes
;
;          	To resolution dependent initialization.
;
;   IN:    Nothing.
;
;  OUT:    Nothing.
;====================================================================
CtlNewRes	PROC

	jsr CMStartup	Do setup for tool call.
;
	jsr newResGuts	Reinitialize resolution dependents.
;
	ldy #0	No error.
	brl CMpop0bytes
	
	ENDP





;====================================================================
;
;	NewControl
;
;        	Add a control to the control list.
;
;   IN:    PUSH:LONG - window pointer.
;          PUSH:LONG - pointer to enclosing RECT.
;          PUSH:LONG - pointer to string for title.
;          PUSH:WORD - control flag.
;          PUSH:WORD - current value.
;          PUSH:WORD - minimum value.
;          PUSH:WORD - maximum value.
;          PUSH:LONG - address of control definition procedure,
;	   with variation code in highest byte.
;	   For standard controls the variation codes are:
;	                  0	= simple button.
;	                  2	= check box.
;	                  4	= radio button.
;	                  6	= scroll bar.
;          PUSH:LONG - control's reference value, reserved for application.
;          PUSH:LONG - pointer to control's color table, zero for default.
;
;  OUT:    LONG - handle of control.
;
;====================================================================
NewControl	PROC

colortable	equ inputs
refCon	equ colortable+4
defProc	equ refCon+4
max	equ defProc+4
min	equ max+2
value	equ min+2
cflag	equ value+2
title	equ cflag+2
boundsRect	equ title+4
theWindow	equ boundsRect+4
CtlHandle	equ theWindow+4
;
;
	jsr CMStartup	Do setup for tool function.
;
	ldx <theWindow+2	Get pointer to control's window.
	lda <theWindow
	jsr makeWptr	windptr = pointer to window.
;
;
; --- Ask control's defProc for the size of the control's record ---------
;
	stz <param	Zero the Param field to indicate
	stz <param+2	that this is a call from NewControl

	ldx <defProc+1	Get address of defProc.
	lda <defProc
	bne custom	Is it a custom control?
	txy
	bne custom
;
	lda <defProc+2	Pass standard control number.
	ldx #recSize	Ask defProc for its	required record size.
	jsr standardDispatch Call standard control defProc.
	bra done1
;
custom	ldy #recSize	Ask defProc for its	required record size.
	jsr customDispatch	Call custom control	defProc.
;
done1	pha	Save size.
;
;
; --- Allocate the control --------------------------------------------------
;
	pha	Space for returned handle.
	pha
	phx	Size of record returned by defProc.
	pha
	ldy #MyID
	lda [<data],y
	pha	Pass ID for control	manager.
	lda #0	Attributes, anywhere, anyway, baby.
	pha
	pha	Pass required address, none.
	pha
	_NewHandle	Allocate record.
	tay	Put possible error code in Y.
	pla
	sta <Ctlhand
	sta <CtlHandle	Return handle of control.
	pla
	sta <Ctlhand+2
	sta <CtlHandle+2
;
	plx	Get size of block.
	bcc ok1	Was a block allocated?
	brl exit	If not, return error.
;
;
; --- Dereference control's handle ----------------------------
;
ok1	phx	Save block size.
	jsr dereference	Ctlptr = (Ctlhand).
	ply	Get memory block size.
;
	sep #$20
	LONGA OFF
	dey
	lda #0	Zero out the block.
lop3	dey
	sta [<ctlptr],y
	bne lop3
	rep #$20
	LONGA ON
;
;
; --- Hook control into head of window's control list ------------
;
	ldy #owControls
	lda [<windptr],y
	sta [<Ctlptr]
	lda <Ctlhand
	sta [<windptr],y	New head of list.
	iny
	iny
	lda [<windptr],y
	tax	Save.
	lda <Ctlhand+2
	sta [<windptr],y
	ldy #2
	txa
	sta [<Ctlptr],y
;
;
; --- Remember mommy window ---------------------------
;
	iny
	iny
	lda <theWindow
	sta [<Ctlptr],y
	iny
	iny
	lda <theWindow+2
	sta [<Ctlptr],y
;
;
; --- Set enclosing	RECT ------------------------------
;
	ldy #x2
	ldx #CtlRect+x2
lop1	lda [<boundsRect],y
	phy
	txy
	sta [<Ctlptr],y
	ply
	dex
	dex
	dey
	dey
	bpl lop1
;
;
; --- Set control's flag ---------------------------------
;
	lda <cflag
	ldy #CtlFlag
	sta [<Ctlptr],y	Store flags and hilited part.
;
;
; --- Set control's value --------------------------------
;
	lda <value
	ldy #CtlValue
	sta [<Ctlptr],y
;
;
; --- Set control's defProc address ----------------------
;
	lda <defProc
	ldy #CtlProc
	sta [<Ctlptr],y
	iny
	iny
	lda <defProc+2
	sta [<Ctlptr],y
;
;
; --- Set control's title -----------------------------
;
	lda <title
	ldy #CtlData
	sta [<Ctlptr],y
	iny
	iny
	lda <title+2
	sta [<Ctlptr],y
;
;
; --- Set control's reference value -------------------
;
	lda <refCon
	ldy #CtlRefCon
	sta [<Ctlptr],y
	iny
	iny
	lda <refCon+2
	sta [<Ctlptr],y
;
;
; --- Set control's color table -------------------------
;
	lda <colortable
	ldy #CtlColor
	sta [<Ctlptr],y
	iny
	iny
	lda <colortable+2
	sta [<Ctlptr],y
;
;
; --- Ask defProc to do any further initialization ----
;
	lda <min	Pass min and max as	Params.
	ldy <max
	ldx #initCntl
	jsr CMDispatch
;
	ldy #0	No error.
exit	brl CMpop32bytes

	ENDP


;====================================================================
;
;	DisposeControl
;
;        	Remove control from control list.
;
;   IN:    PUSH:LONG - handle of control.
;
;  OUT:  Nothing.
;
;====================================================================
DisposeControl	PROC

theControl	equ inputs

	jsr CMStartup	Do set up for function.
;
	jsr getCtlHand	ctlHand = passed control handle.
;	                  	ctlPtr = (ctlHand).
	bcs exit200	Null handle passed?
;
	jsr dispose_guts	Dispose of control.
;	                  	Return error state from dispose_guts.
exit200	brl CMpop4bytes


;====================================================================
;	KillControls
;        	Remove all controls from window.
;
;   IN:    PUSH:LONG - pointer to window port.
;
;  OUT:    Nothing.
;====================================================================
	ENTRY KillControls
KillControls		;		      
;
deadWindow	equ inputs

;-----------------------------------------------------------
;
; The window manager can call this routine when closing
; a window even when we are not active.  In the past this
; happened only when the control manager was not loaded
;
; When it is loaded, we go to system death unless this
; check is made.
;
; We return the old ToolNotfound error because the window
; manager knows how to handle that.
;
	cmp #0	; see if we are active.
	bne Yup	; non-zero means yes
	cpy #0	; try y-reg
	bne Yup
	lda #1	; not active, so return tool not found error
	sec	; with carry set
	rtl	; and stack untouched!!!!



Yup


	jsr CMStartup	Do set up for function.
;
;
; --- Dispose of every control in list ---------------------
;
lop300	jsr getWindptr	Get window pointer and first control.
	bcs exit200	Any errors?  (y = 0	if end of list)
;
	ldy #CtlOwner	Force control's owner to be passed window.
	lda <deadWindow
	sta [<Ctlptr],y
	iny
	iny
	lda <deadWindow+2
	sta [<Ctlptr],y
;
	jsr dispose_guts	Kill it.
	bcc lop300	If no error, continue to kill list.
	bra exit200	Return error.
;
;
; = = = = = = = = =	= = = = = = = = = =	=
;          Dispose control guts.
; = = = = = = = = =	= = = = = = = = = =	=
;
;   IN:    <ctlhand	= control's handle.
;          <ctlptr = pointer to control.
;
;  OUT:    Carry set if error, y = error code.
;          Carry clear if no error, control freed and deleted from list.
;
dispose_guts
;
;
; --- Let defProc perform any disposal actions first -------------------
;
	ldx #dispCntl
	jsr CMDispatch
	clc	OK flag, just in case.
	tax	Abort disposal?
	bne exit100	Did defProc abort disposal?
;
;
; --- Take control out of control list ---------------------------------
;
	pei <Ctlhand+2	Save control's handle.
	pei <Ctlhand	It is also passed to _DisposeHandle.
;
	jsr dereference
	sta <work	Save control's pointer.
	stx <work+2
;
	jsr get_wptr	Get window pointer from control.
	clc
	adc #owControls
	bcc ok100
	inx
ok100	sta <Ctlptr	Pointer to first handle in control list.
	stx <Ctlptr+2
;
lop100	ldy #2	Get the handle of the next control.
	lda [<Ctlptr],y
	tax
	lda [<Ctlptr]
	tay
;
	cmp 1,s	Is the next control	THEE control?
	bne next100
	txa
	cmp 3,s
	beq done100
;
next100	sty <Ctlhand	Store handle of next control.
	stx <Ctlhand+2
	ora <Ctlhand
	bne ok101
;
	pla	Remove handle from stack.
	pla
	sec	Return error flag, control not in list.
	ldy #NOT_IN_LIST
	rts
;
ok101	jsr dereference	Ctlptr = (Ctlhand).
	bra lop100
;
;
; work = pointer to	control to dispose.
; Ctlptr = address of control previous to control in 'workptr'.
;
done100	lda [<work]	Take THEE control out of list.
	sta [<Ctlptr]
	ldy #2
	lda [<work],y
	sta [<Ctlptr],y
;
;
; --- Free allocated memory block used for control's record ------------
;
	_DisposeHandle	Handle already on stack.
;
exit100	ldy #0	No error.
	rts
;
	ENDP
;
;
;====================================================================
;
;	SetCtlIcons
;
;        	Swap Control Manager Icon Font.
;
;   IN:    PUSH:LONG - handle of new icon font, negative for none.
;
;  OUT:    LONG - current (before swap)	icon font.
;
;====================================================================
SetCtlIcons	PROC

newFont	equ inputs
oldFont	equ newFont+4
;
;
	jsr CMStartup	Do tool function setup.
;
;
; --- Return font before change --------------------------------------
;
	jsr pushVctl_font	Push current font on stack.
	pla	Return current font.
	sta <oldFont
	pla
	sta <oldFont+2
;
;
; --- Change current font --------------------------------------------
;
	ldx <newFont+2	Use new font?
	bmi exit2
;
	lda <newFont
	jsr SetIconFont
;
exit2	ldy #0	No error flag.
	brl CMpop4bytes
	
	ENDP


;====================================================================
;
;	SetCtlTitle
;
;        	Set new title in control.
;
;   IN:    PUSH:LONG - pointer to title	string.
;          PUSH:LONG - handle of control.
;
;  OUT:    Nothing.
;
;====================================================================
SetCtlTitle	PROC

CtlHandle	equ inputs
title	equ CtlHandle+4
;
;
	jsr CMStartup	Do tool function setup.
;
	jsr getCtlHand	ctlHand = passed control handle.
;	                  ctlPtr = (ctlHand).
	bcs exit	Null handle passed?
;
	ldy #CtlData	Replace the control's CtlData field.
	lda <title
	sta [<Ctlptr],y
	iny
	iny
	lda <title+2
	sta [<Ctlptr],y
;
	jsr set2draw	Setup to draw.
;
	jsr pushPort	Save the current port.
	jsr drawWholeCtl	Draw the control.
	jsr popPort	Restore the current	port.
;
exit	ldy #0	No error flag.
	brl CMpop8bytes
	
	ENDP


;====================================================================
;
;	GetCtlTitle
;
;        	Read title from control.
;
;   IN:    PUSH:LONG - handle of control.
;
;  OUT:    LONG - value in CtlData field of control record.
;
;====================================================================
GetCtlTitle	PROC

CtlHandle	equ inputs
title_des	equ CtlHandle+4
;
;
	jsr CMStartup	Do tool function setup.
;
	jsr getCtlHand	ctlHand = passed control handle.
;	                  ctlPtr = (ctlHand).
	bcs exit	Null handle passed?
;
	ldy #CtlData	Get pointer to control's title.
	lda [<Ctlptr],y
	sta <title_des
	iny
	iny
	lda [<Ctlptr],y
	sta <title_des+2
;
exit	ldy #0	No error.
	brl CMpop4bytes
	
	ENDP


;====================================================================
;
;	SetCtlValue
;
;        	Set control's value.
;
;   IN:  PUSH:WORD - control's new value, 1 to select buttons and check boxes.
;        PUSH:LONG - handle of control.
;
;  OUT:  Nothing.
;
;====================================================================
SetCtlValue	PROC

CtlHandle	equ inputs
NewVal	equ CtlHandle+4
;
;
	jsr CMStartup	Do tool function setup.
;
	jsr getCtlHand	ctlHand = passed control handle.
;	                  ctlPtr = (ctlHand).
	bcs exit	Null handle passed?
;
;
; --- Set the value	----------------------------------
;
	ldy #CtlValue
	lda [<ctlptr],y
	cmp <NewVal
	beq exit	Nothing to do if already set.
	sta <work	Remember old value.
;
	lda <NewVal
	sta [<Ctlptr],y	Set new value.
;
;
; --- Tell defProc there's a new value (draws control) ------------
;
	jsr set2draw	Setup to draw standard controls.
	jsr pushPort	Save the current port.
	jsr set2drawCtl	Setup to draw the control.
;
	ldy <work	Pass old value in param+2.
	lda <NewVal	Pass new value in param.
	ldx #newValue	Call defProc about new value.
	jsr CMDispatch
	jsr popPort	Restore the current	port.
;
exit	ldy #0	No error flag.
	brl CMpop6bytes
	
	ENDP


;====================================================================
;
;	GetCtlValue
;
;        	Get control's value.
;
;   IN:  PUSH:LONG - pointer to control.
;
;  OUT:  WORD - control's current value.
;
;====================================================================
GetCtlValue	PROC

CtlHandle	equ inputs
RetValue	equ CtlHandle+4
;

	jsr CMStartup	Do tool function setup.
;
	jsr getCtlHand	ctlHand = passed control handle.
;	                  	ctlPtr = (ctlHand).
	bcs exit	Null handle passed?
;
	ldy #CtlValue
	lda [<Ctlptr],y
	sta <RetValue
;
exit	ldy #0	No error flag.
	brl CMpop4bytes
	
	ENDP


;====================================================================
;
;	SetCtlParam
;
;        	Set control's minimum and maximum values.
;
;   IN:  PUSH:WORD - maximum value, $FFFF don't set.
;        PUSH:WORD - minimum value, $FFFF don't set.
;        PUSH:LONG - handle of control.
;
;              For scroll bars:	CtlData = minimum.
;		CtlData+2 = maximum.
;  OUT:  Nothing.
;
;====================================================================
SetCtlParam	PROC

CtlHandle	equ inputs
view	equ CtlHandle+4
dataSize	equ view+2
;
;
	jsr CMStartup	Do tool function setup.
;
	jsr getCtlHand	ctlHand = passed control handle.
;	                  ctlPtr = (ctlHand).
	bcs exit	Null handle passed?
;
;
; --- Tell defProc there's a new params (may draw control) ------------
;
	jsr set2draw	Setup to draw standard controls.
	jsr pushPort	Save the current port.
	jsr set2drawCtl	Setup to draw the control.
;
	lda <view	Pass new view and data sizes.
	ldy <dataSize
	ldx #setParams	Task number.
	jsr CMDispatch
	jsr popPort	Restore the current	port.
;
exit	ldy #0	No error flag.
	brl CMpop8bytes
	
	ENDP


;====================================================================
;
;	GetCtlParam
;
;        	Get control's minimum and maximum values.
;
;   IN:  PUSH:LONG - pointer to control.
;
;  OUT:  LONG - minimum value in high word, maximum value in low word.
;
;              For scroll bars:	minimum = ScrollView.
;		maximum = ScrollMax.
;
;====================================================================
GetCtlParam	PROC

CtlHandle	equ inputs
RetMax	equ CtlHandle+4
RetMin	equ RetMax+2
;
;
	jsr CMStartup	Do tool function setup.
;
	jsr getCtlHand	ctlHand = passed control handle.
;	                  ctlPtr = (ctlHand).
	bcs exit	Null handle passed?
;
	ldy #CtlData+2
	lda [<Ctlptr],y
	sta <RetMax
	dey
	dey
	lda [<Ctlptr],y
	sta <RetMin
;
exit	ldy #0	No error flag.
	brl CMpop4bytes
	
	ENDP


;====================================================================
;
;	GetCtlZPage
;
;          	Return Control Manager's zero page.
;
;   IN:  None.
;
;  OUT:  WORD - Control Manager's direct page.
;
;====================================================================
GetCtlzpage	PROC

result	equ inputs
;
;
	jsr CMStartup
;
	ldy #MyDPage	Return Control Manager's zero page.
	lda [<data],y
	sta <result
;
	ldy #0	No error flag.
	brl CMpop0bytes
	
	ENDP


;====================================================================
;
;	SetCtlAction
;
;          	Set CtlAction field in control.
;
;   IN:    PUSH:LONG - value to place in CtlAction field.
;          PUSH:LONG - handle of control.
;
;  OUT:    Nothing.
;
;====================================================================
SetCtlAction	PROC

	jsr CMStartup	Do tool function setup.
;
	jsr getCtlHand	ctlHand = passed control handle.
;	                  	ctlPtr = (ctlHand).
	bcs errorOut8	Null handle passed?
;
	ldy #CtlAction
	bra set_long
	
	ENDP


;====================================================================
;
;	GetCtlAction
;
;          	Return CtlAction field in control.
;
;   IN:    PUSH:LONG - handle of control.
;
;  OUT:    PUSH:LONG - value of CtlAction field.
;
;550=================================================================
GetCtlAction	PROC

	jsr CMStartup	Do tool function setup.
;
	jsr getCtlHand	ctlHand = passed control handle.
;	                  ctlPtr = (ctlHand).
	bcs errorOut4	Null handle passed?
;
	ldy #CtlAction
	bra get_long
	
	ENDP


;====================================================================
;
;	SetCtlRefCon
;
;          	Set CtlRefCon field in control.
;
;   IN:    PUSH:LONG - value to place in CtlRefCon field.
;          PUSH:LONG - handle of control.
;
;  OUT:    Nothing.
;
;600=================================================================
SetCtlRefCon	PROC

	jsr CMStartup	Do tool function setup.
;
	jsr getCtlHand	ctlHand = passed control handle.
;	                  ctlPtr = (ctlHand).
	bcs exit	Null handle passed?
;
	ldy #CtlRefCon

;
; = = = = = = = = =	= = = = = = = = = =	= = = =
;          Set a LONG field in
;          a control record.
; = = = = = = = = =	= = = = = = = = = =	= = = =
;
secondParam	equ inputs+4
;
	EXPORT set_long
set_long		;       
;
	lda <secondParam
	sta [<Ctlptr],y
	iny
	iny
	lda <secondParam+2
	sta [<Ctlptr],y
;
exit	ldy #0	No error flag.
	ENTRY errorOut8
errorOut8		;       
	brl CMpop8bytes
	
	ENDP


;====================================================================
;
;	GetCtlRefCon
;
;          	Return CtlRefCon field in control.
;
;   IN:    PUSH:LONG - handle of control.
;
;  OUT:    PUSH:LONG - value of CtlRefCon field.
;
;650=================================================================
GetCtlRefCon	PROC

	jsr CMStartup	Do tool function setup.
;
	jsr getCtlHand	ctlHand = passed control handle.
;	                  ctlPtr = (ctlHand).
	bcs exit	Null handle passed?
;
	ldy #CtlRefCon
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = =
;          Return a	LONG field
;          from a control record.
; = = = = = = = = =	= = = = = = = = = =	= = = =
;
returnParam	equ inputs+4
;
	EXPORT get_long
get_long		;       
;
	lda [<Ctlptr],y
	sta <returnParam
	iny
	iny
	lda [<Ctlptr],y
	sta <returnParam+2
;
exit	ldy #0	No error flag.
	ENTRY errorOut4
errorOut4		;       
	brl CMpop4bytes
	
	ENDP


;====================================================================
;
;	HiliteControl
;
;        	Highlight/Unhighlight a control.
;
;   IN:    PUSH:WORD -     0 = unhighlight last highlighted	part, or draw control.
;	   1-253 = part to be highlighted.
;	     255 = make control inactive.
;          PUSH:LONG - pointer to control.
;          Current port must be control's window port.
;
;  OUT:  Nothing.
;
;====================================================================
HiliteControl	PROC

control	equ inputs
newstate	equ control+4
;
;
	jsr CMStartup	Do tool function setup.
;
	jsr getCtlHand	ctlHand = passed control handle.
;	                  ctlPtr = (ctlHand).
	bcs exit	Null handle passed?
;
*** 9-Jan-91 DAL -- use WaitUntil to max out the blinking speed

	ldx #0	;anticipate using 0 for DelayAmount
	lda <control+2
	cmp >prevControl+2
	bne @different
	lda <control
	cmp >prevControl
	bne @different

	lda <newstate
	bne @notZero

	ldx #$0040	;delay amount

@notZero
@different	lda <control+2
	sta >prevControl+2
	lda <control
	sta >prevControl

	pha	;result space
	lda >anchorTime
	pha
	phx	;delay amount
	_WaitUntil
	pla
	sta >anchorTime

*** end of 9-Jan-91 DAL
;
; --- Set new highlight flag ---------------------
;
	ldy #CtlHilite
	lda [<Ctlptr],y
	and #$00FF	Get last highlighted part,
	sta <param	and store as possible part to draw.
	cmp <newstate	Is old hilite same as new?
	beq exit	If the same, no need to draw.
;
	cmp #C_HILITE	Was the control inactive?
	bne ok1
	stz <param	If yes, draw whole control.
;
ok1	lda [<Ctlptr],y
	and #$FF00	Mask off present flags.
	ora <newstate	Set new highlight flag.
	sta [<Ctlptr],y	Put into control's record.
;
;
; --- Draw new state -----------------------------
;
	jsr set2draw	Setup to draw control.
	jsr pushPort	Save the current port.
	jsr drawCtl	Draw the control.
	jsr popPort	Restore the current	port.
;
exit	ldy #0	No error flag.
	brl CMpop6bytes

*** added 9-Jan-91 DAL
prevControl	dc.l 0
anchorTime	dc.w 1
*** end of 9-Jan-91 DAL

	ENDP


;====================================================================
;
;	HideControl
;
;        	Make a control invisible.
;
;   IN:    PUSH:LONG - handle of control to hide.
;          Current port must be control's window port.
;
;  OUT:    Nothing.
;
;
; Change History
;
; 10 Feb 89	Yee
;
; Added code to send erase message to multipart controls
;
; 13 Feb 89	Steven Glass
;
; Fixed y-reg for old style controls
;
;
; 28 Mar 89	Dave Good
;
; cleanedup the code a little and saved a few bytes
;
;====================================================================
Ctrl12Proc	PROC

;---------------------------------------------------------------
	ENTRY  HideControl
	ENTRY  EraseControl
;---------------------------------------------------------------

;---------------------------------------------------------------
tempEraseFlag	equ  1
;---------------------------------------------------------------

;---------------------------------------------------------------
HideControl	jsr  CMStartup		;call the common startup routine

	lda  #0		;add to the update region
	bra  common
;---------------------------------------------------------------
EraseControl	jsr  CMStartup		;call the common startup routine

	lda  #1		;don't add to the update region
;---------------------------------------------------------------
common	pha		;save the eraseFlag on the stack

	jsr  getCtlHand		;get and deref the passed control handle
	bcs  exit		;if a NULL handle was passed, then exit

	ldy  #CtlFlag		;if the control is already invisible, then
	lda  [<Ctlptr],y		;..exit
	and  #Ctl_INVIS
	bne  exit

	lda  [<Ctlptr],y		;mark the control as invisible
	ora  #Ctl_INVIS
	sta  [<Ctlptr],y
;---------------------------------------------------------------
	ldy  #NewCtlRecord.CtlProc+2	;is this a super control ? If not, then
	lda  [<Ctlptr],y		;..we never need to notify this ctrl
	bpl  skipNotify

	ldy  #NewCtlRecord.ctlMoreFlags	;does this defProc want this message ?
	lda  [<Ctlptr],y
	and  #fCtlIsMultiPart
	beq  skipNotify	

	lda  tempEraseFlag,s
	ldy  #0
	ldx  #ctlNotifyMultiPart
	jsr  CMDispatch
skipNotify
;---------------------------------------------------------------
	jsr  to_wport		;switch to control's window port.
	jsr  CMsetrect		;'rect' = control's enclosing RECT.

	ldy  #ctlProc		;is the control a simple button ? If not
	lda  [<ctlptr],y		;..then don't expand the rect
	iny
	ora  [<ctlptr],y
	bne  @skipButton
	ldy  #CtlFlag		;does the button need it's rect expanded ?
	lda  [<ctlptr],y		;..nope = skip expand
	and  #1
	beq  @skipButton

	jsr  expandButt		;expand 'rect' to include bold.
@skipButton
	jsr  pushrect		;erase the control
	_EraseRect

	lda  tempEraseFlag,s	;do we need to invalidate the control ?
	bne  @skipInval
	jsr  pushrect		;invalidate the control
	_InvalRect
@skipInval
;---------------------------------------------------------------
exit	pla		;pull off the erase flag
	ldy  #0		;return no error
	brl  CMpop4bytes
;---------------------------------------------------------------

	ENDP


;====================================================================
;
;	ShowControl & DrawOneCtl
;
;        	Make a control visible.
;
;   IN:    PUSH:LONG - handle of control to make visible (or draw).
;          Current port must be control's window port.
;
;  OUT:    Nothing.
;
;
; Change History
;
; 28 Mar 89	Dave Good
;
; Combined show and draw one control to save space. Also made both of them
; call the defProc for multi part controls.
;
;====================================================================
Ctrl2Proc	PROC

;---------------------------------------------------------------
	ENTRY  DrawOneCtl
	ENTRY  ShowControl
;---------------------------------------------------------------

;---------------------------------------------------------------
DrawOneCtl	jsr  CMStartup		;call the common startup routine

	jsr  getCtlHand		;get and deref the passed control handle
	bcs  exit		;if a NULL handle was passed, then exit

	ldx  #3
	bra  drawIt
;---------------------------------------------------------------
ShowControl	jsr  CMStartup		;call the common startup routine

	jsr  getCtlHand		;get and deref the passed control handle
	bcs  exit		;if a NULL handle was passed, then exit

	ldy  #CtlFlag		;if the control is already visible then
	lda  [<Ctlptr],y		;..exit
	and  #Ctl_INVIS
	beq  exit

	lda  [<Ctlptr],y		;it was not visible before, so make it
	and  #$FF7F		;..visible
	sta  [<Ctlptr],y

	ldx  #2		;this is what param to send
;---------------------------------------------------------------
drawIt	ldy  #NewCtlRecord.CtlProc+2	;is this a super control ? If not, then
	lda  [<Ctlptr],y		;..we never need to notify this ctrl
	bpl  skipNotify

	ldy  #NewCtlRecord.ctlMoreFlags	;does this defProc want this message ?
	lda  [<Ctlptr],y
	and  #fCtlIsMultiPart
	beq  skipNotify	

	txa		;this tells the defproc to show the
	ldy  #0		;..control
	ldx  #ctlNotifyMultiPart
	jsr  CMDispatch
skipNotify
;---------------------------------------------------------------
	jsr  set2draw		;setup to draw control.
	jsr  pushPort		;save the current port.
	jsr  drawWholeCtl		;draw the control.
	jsr  popPort		;restore the current port.

exit	ldy  #0		;no error flag.
	brl  CMpop4bytes
;---------------------------------------------------------------
	
	ENDP


;====================================================================
;
;	DrawControls
;
;        	Draw control list.
;
;   IN:    PUSH:LONG - pointer to window.
;
;  OUT:    Nothing.
;
;          Will just exit if a null window pointer passed or no controls
;          in window's control list.
;
;====================================================================
DrawControls	PROC

window	equ inputs
count	equ window+4
;
yoffset	equ work
xoffset	equ yoffset+2
;
;
	jsr CMStartup	Do tool function setup.
;
	jsr getWindPtr	Get given window pointer.
	bcs exit	Any errors?
;
	ldy #owFrame	Is window visible?
	lda [<windptr],y
	and #F_VIS
	beq exit	Nothing to draw if invisible.
;
	jsr set2draw	Switch to CtlOwner port, get visBounds.
	jsr pushPort	Save the current port.
;
;
; --- Draw all the controls in the list	--------------
;
lop1	jsr drawWholeCtl	Do standard setups,	and draw control.
;
	jsr dereference	Ctlptr = (Ctlhand).
;
	jsr next_Ctl	Get pointer to next	control.
	bne lop1	Any more controls?
;
	jsr popPort	Restore the current	port.
;
exit	ldy #0	No error flag.
	brl CMpop4bytes
	
	ENDP


;====================================================================
;
;	InvalCtls
;
;        	Invalidates bound rects of the controls in the window
;
;   IN:    PUSH:LONG - pointer to window.
;
;  OUT:    Nothing.
;
;          Will just exit if a null window pointer passed or no controls
;          in window's control list.
;
;====================================================================
InvalCtls 	PROC

window	equ inputs
;
;
	jsr CMStartup	Do tool function setup.
;
	jsr getWindPtr	Get given window pointer.
	bcs exit	Any errors?
;
	ldy #owFrame	Is window visible?
	lda [<windptr],y
	and #F_VIS
	beq exit	Nothing to do if invisible.

	pha
	pha
	_GetPort

	pei Window+2
	pei Window
	_SetPort

	pha
	pha
	pha
	pha
	tsc
	inc a
	pea 0
	pha
	_GetPortRect

	pei Window+2
	pei Window
	_StartDrawing


;
;
; --- Invalidate all the controls in the list --------------
;
lop1	lda ctlPtr
	clc
	adc #NewCtlRecord.ctlRect
	tax
	lda ctlPtr+2
	adc #0
	pha
	phx
	_InvalRect
;
	jsr dereference	Ctlptr = (Ctlhand).
;
	jsr next_Ctl	Get pointer to next	control.
	bne lop1	Any more controls?

	_SetOrigin
	pla
	pla
;
	_SetPort	Restore orig port.
;
exit	ldy #0	No error flag.
	brl CMpop4bytes
	
	ENDP


;====================================================================
;
;	FutzCtls
;
; Invalidates bound rects of normal controls in the window and
; sends message to other controls telling that window state has
; changed.
;
; This call is supposed to be made in reponse to a activate event
; so the state of the controls can be tied to the window state.
;
;   IN:    PUSH:LONG - pointer to window.
;          PUSH:WORD - Window State
;
;  OUT:    Nothing.
;
;          Will just exit if a null window pointer passed or no controls
;          in window's control list.
;
;====================================================================
FutzCtls	PROC

window	equ inputs
windowState	equ window+4
;
;
	jsr CMStartup	Do tool function setup.
;
	jsr getWindPtr	Get given window pointer.
	bcs exit	Any errors?
;
	ldy #owFrame	Is window visible?
	lda [<windptr],y
	and #F_VIS
	beq exit	Nothing to do if invisible.

	pha
	pha
	_GetPort

	pei Window+2
	pei Window
	_SetPort

	pha
	pha
	pha
	pha
	tsc
	inc a
	pea 0
	pha
	_GetPortRect

	pei Window+2
	pei Window
	_StartDrawing


;
;
; --- Invalidate all the controls in the list --------------
;
lop1
	ldy #NewCtlRecord.ctlProc+2
	lda [<ctlPtr],y
	bmi ItsSuper

	lda ctlPtr
	clc
	adc #NewCtlRecord.ctlRect
	tax
	lda ctlPtr+2
	adc #0
	pha
	phx
	_InvalRect

	bra JoinUp
;
ItsSuper
	lda WindowState		; notify this def proc.
	ldy #0
	ldx #ctlWinStateChange
	jsr CMDispatch

JoinUp
	jsr dereference	Ctlptr = (Ctlhand).
;
	jsr next_Ctl	Get pointer to next	control.
	bne lop1	Any more controls?

	_SetOrigin
	pla
	pla
;
	_SetPort	Restore orig port.
;
exit	ldy #0	No error flag.
	brl CMpop6bytes
	
	ENDP


**********************************************************************
*
* $3910 FindRadioButton -- added 19-Jan-91 DAL
*
* This routine is compatible with the fmdWhichRadio call in the
* DTS FakeModalDialog user toolset (original code by Eric Soldan).
*
* Inputs:
*   Space for result (WORD)
*   Window Pointer   (LONG)
*   Family Number    (WORD)
*
* Given the family number of a family of extended radio button controls
* in the specified window, we determine which radio button in the family
* is selected, and the return value is the selected button's control ID
* MINUS the control ID of the lowest-ID'ed control in the family.
*
**********************************************************************
FindRadioButton	proc export

; offset constants for CtlRec
octlNext	equ 0
octlOwner	equ 4
octlRect	equ 8
octlFlag	equ 16
octlHilite	equ 17
octlValue	equ 18
octlProc	equ 20
octlAction	equ 24
octlData	equ 28
octlRefCon	equ 32
octlColor	equ 36
octlReserved	equ 40
octlID	equ 56
octlMoreFlags	equ 60
octlVersion	equ 62

	DefineStack

ctlHndl	long	;Must be at 1,s
rbCtlPtr	long
ctlID	long	;ID of some radio button control.
theRadBut	word
notHere	word	;Flag for active button not found.

sizeLocals	EndLocals

saveDPage	word
returnAddr	block 6	;was block 3 (DAL)

	BegParms
famNum	word
wptr	long	;Window that owns the control.
sizeParms	EndParms

radioNum	word

	phd	;Save directPage register.
	tsc	;Make space for locals.
	sec
	sbc #sizeLocals
	tcs
	tcd	;Set directPage register.

	lda #$FFFF	;This is supposed to be a bogus value
	sta radioNum	;(0 is legit).
	sta notHere	;Assume we won't find active radio
	sta ctlID+2	;button of correct family number.

*** added 8-Aug-91 DAL, to handle window-pointer = NIL --> front window
	lda <wptr+1
	bne @notNIL
	pha
	pha
	_FrontWindow
	pla
	sta <wptr
	pla
	sta <wptr+2
@notNIL
*** end 8-Aug-91 DAL

	pei wptr+2
	pei wptr
	_GetWControls	;Result space already there (ctlHndl).
	bcs @exit

@loop	lda ctlHndl+1	;See if we have a NULL handle yet.
	beq @endLoop

	jsr @derefCtl	;Deref ctlHndl into rbCtlPtr.

	ldy #octlProc+2	;Get hi-word of proc address.
	lda [rbCtlPtr],y
	cmp #radioControl>>16
	bne @nextCtl	;Not a radio button.  Skip it.

	ldy #octlFlag
	lda [rbCtlPtr],y
	and #$7F
	cmp famNum	;See if it is "our" family.
	bne @nextCtl	;Not related.

	ldy #octlID+2	;See if this is the smallest ctlID for
	lda [rbCtlPtr],y	;our family yet.
	tax
	dey
	dey
	lda [rbCtlPtr],y
	cpx ctlID+2
	bcc @smaller
	bne @a	;It isn't.
	cmp ctlID
	bcs @a	;It isn't.
@smaller	sta ctlID	;It is, so remember it.
	stx ctlID+2

@a	tax
	ldy #octlValue
	lda [rbCtlPtr],y
	beq @nextCtl	;This isn't the active radio button.
	stx theRadBut	;This is the one, so remember enough
	stz notHere	;of it.  Also, flag we found it.

@nextCtl	ldy #2
	lda [rbCtlPtr]
	sta ctlHndl
	lda [rbCtlPtr],y
	sta ctlHndl+2
	bra @loop

@endLoop	lda notHere	;See if we found it.  If we didn't,
	bmi @b	;return $FFFF to indicate this.
	lda theRadBut
	sec
	sbc ctlID
@b	sta radioNum	;This is what the programmer was
		;yearning for.

	lda #0	;Return no error.
@exit	tax	;save error code in X

	tdc	;Get rid of local variables.
	clc
	adc #sizeLocals
	tcs
	pld	;Restore directPage register.
	ldy #sizeParms	;error already in X
	jml $e10184	;ToStrip

@derefCtl	ldy #2
	lda [ctlHndl]
	sta rbCtlPtr
	lda [ctlHndl],y
	sta rbCtlPtr+2
	rts

	ENDP


**********************************************************************
*
* $3A10 SetLETextByID -- added 19-Jan-91 DAL
*
* This routine is compatible with the fmdLESetText call in the
* DTS FakeModalDialog user toolset (original code by Eric Soldan).
*
* Inputs:
*   Window Pointer        (LONG)
*   Edit Line Control ID  (LONG)
*   Pascal String Pointer (LONG)
*
* Given the control ID of an extended edit line control in the
* specified window, we set its text from the Pascal string, thus
* saving the application programmer having to call GetCtlHandleFromID,
* GetCtlTitle, and LESetText, plus some miscellaneous string
* manipulation and handle dereferencing.
*
* This routine *selects* the text it puts into the Edit Line control.
*
**********************************************************************
SetLETextByID	proc export
	export GetLETextByID

; offset constants for LERec
oleLineHandle	equ 0
oleLength	equ 4
oleMaxLength	equ 6
oleDestRect	equ 8
oleViewRect	equ 16
olePort	equ 24
oleLineHite	equ 28
oleBaseHite	equ 30
oleSelStart	equ 32
oleSelEnd	equ 34
oleActFlg	equ 36
oleCarAct	equ 38
oleCarOn	equ 40
oleCarTime	equ 42
oleHiliteHook	equ 46
oleCaretHook	equ 50
oleJust	equ 54
olePWChar	equ 56
; from E16.Control
octlData	equ 28

	DefineStack

ctlHndl	long
leCtlPtr	long
leHndl	long
lePtr	long
lineHndl	long
linePtr	long
cstr	long
lineLength	word
leRect	block 8	;Must be > oleViewRect ($10)

sizeLocals	EndLocals

saveDPage	word
returnAddr	block 6	;was block 3 (DAL)

	BegParms
pstr	long	;Pointer to string space.
lineEditID	long	;ID of lineEdit control.
wptr	long	;Window that owns the control.
sizeParms	EndParms

*
* SetLETextByID
*
	jsr lineEditSetup	;Set up everything we need.
	bcs exit	;Couldn't dereference for some reason.

	pei cstr+2	;Set text to c-string.
	pei cstr
	lda [pstr]	;Get length of pascal string.
	and #$00FF
	pha
	pei leHndl+2
	pei leHndl
	_LESetText
	bcs exit

	pha	;Invalidate view rect of lineEdit.
	pha
	_GetPort	;Save the current port.
	pei wptr+2
	pei wptr
	_SetPort	;Make the window the current port
		;(for _InvalRect).

	jsr lineEditDeref	;Redereference -- slow but small.
	ldy #oleSelStart
	lda #0
	pha	;Hi-word for _InvalRect.
	sta [lePtr],y
	iny
	iny	;Point at leSelEnd.
	lda [pstr]	;Get length of pascal string.
	and #$00FF
	sta [lePtr],y

	ldy #oleViewRect+6	;Copy lineEdit viewRect into rect.
@a	lda [lePtr],y
	tyx
	sta <leRect-oleViewRect,x
	dey
	dey
	cpy #oleViewRect
	bcs @a

	tdc	;Hi-word alreay on stack.  (It's a 0).
	adc #leRect	;Carry still clear.
	pha
	_InvalRect	;Inval that rect.

	_SetPort	;Put the port back.

exitNoErr	lda #0	;Return no error.
exit	tax	;Save error code.

	tdc	;Get rid of local variables.
	clc
	adc #sizeLocals
	tcs
	pld	;Restore directPage register.

	ldy #sizeParms
	jml $e10184	;ToStrip

**********************************************************************
*
* $3B10 GetLETextByID -- added 19-Jan-91 DAL
*
* This routine is compatible with the fmdLESetText call in the
* DTS FakeModalDialog user toolset (original code by Eric Soldan).
*
* Inputs:
*   Window Pointer        (LONG)
*   Edit Line Control ID  (LONG)
*   Pascal String Pointer (LONG)
*
* Given the control ID of an extended edit line control in the
* specified window, we fetch its text into the Pascal string, thus
* saving the application programmer having to call GetCtlHandleFromID,
* GetCtlTitle, LEGetTextHand, LEGetTextLen, and doing miscellaneous
* string manipulation and handle dereferencing.
*
**********************************************************************
GetLETextByID
	jsr lineEditSetup	;Set up everything we need.
	bcs exit	;Couldn't dereference for some reason.

	pei linePtr+2	;Copy the text into the string.
	pei linePtr
	pei cstr+2
	pei cstr
	pea 0
	pei lineLength
	_BlockMove

	ldy lineLength	;Store the p-string length and also
	tya	;terminate the string for the c dudes.
	shortm	;Use 8-bit accumulator.
	sta [pstr]	;Save the p-string length byte.
	lda #0
	sta [cstr],y	;Terminate the c-string.
	longm	;Set accumulator back to 16-bit.

	bra exitNoErr	;Return no error.

*** Subroutines common to SetLETextByID and GetLETextByID

*
* lineEditSetup -- set up the stack frame, get the control handle from
* its ID, deref control handle into leCtlPtr, get the line edit handle
* from the ctlData field, and set lineHndl and linePtr to the text.
*
lineEditSetup	plx	;Save return address so stack frame
		;setup works.

	phd	;Save directPage register.
	tsc	;Make space for locals.
	sec
	sbc #sizeLocals
	tcs
	tcd	;Set directPage register.

	phx	;Put return address back.

	lda pstr	;Also point past p-string length
	ldx pstr+2	;for c-strings.
	inc a
	bne @a
	inx
@a	sta cstr
	stx cstr+2

*** added 8-Aug-91 DAL, to handle window-pointer = NIL --> front window
	lda <wptr+1
	bne @notNIL
	pha
	pha
	_FrontWindow
	pla
	sta <wptr
	pla
	sta <wptr+2
@notNIL
*** end 8-Aug-91 DAL

	pha	;Get the control handle via wptr,id.
	pha
	pei wptr+2
	pei wptr
	pei lineEditID+2
	pei lineEditID
	_GetCtlHandleFromID
	plx
	stx ctlHndl
	plx
	stx ctlHndl+2
	bcs rts1

	ldy #2	;Dereference ctlHndl.
	lda [ctlHndl]
	sta leCtlPtr
	lda [ctlHndl],y
	sta leCtlPtr+2

	ldy #octlData	;Get the lineEdit handle from
	lda [leCtlPtr],y	;the control's data field.
	sta leHndl
	iny
	iny
	lda [leCtlPtr],y
	sta leHndl+2
* fall into lineEditDeref

lineEditDeref	ldy #2	;Dereference leHndl.
	lda [leHndl]
	sta lePtr
	lda [leHndl],y
	sta lePtr+2

	ldy #oleLength
	lda [lePtr],y
	sta lineLength

	ldy #oleLineHandle
	lda [lePtr],y
	sta lineHndl
	iny
	iny
	lda [lePtr],y
	sta lineHndl+2

	ldy #2	;Dereference lineHndl.
	lda [lineHndl]
	sta linePtr
	lda [lineHndl],y
	sta linePtr+2
	clc	;Everything worked.

rts1	rts

	EndP

**********************************************************************
*
* $3C10 SetCtlValueByID -- added 15-Jul-92 DAL
*
* Inputs:
*   Value                 (WORD)
*   Window Pointer        (LONG)
*   Control ID            (LONG)
*
**********************************************************************
SetCtlValueByID	PROC EXPORT
	phd
	tsc
	tcd

@ctlID	equ 9
@windPtr	equ @ctlID+4
@value	equ @windPtr+4

	jsr CtlGetHandle	;into XY
	bcs @error

	pei <@value
	phx
	phy
	_SetCtlValue

@error	tax
	pld

	export CtlStrip10Bytes
CtlStrip10Bytes	ldy #10
	jml $e10184	;ToStrip



	export CtlGetHandle
CtlGetHandle

@ctlID	equ 9
@windPtr	equ @ctlID+4

	pha
	pha
	pei <@windPtr+2
	pei <@windPtr
	pei <@ctlID+2
	pei <@ctlID
	_GetCtlHandleFromID
	ply
	plx
	rts

	ENDP


**********************************************************************
*
* $3D10 GetCtlValueByID -- added 15-Jul-92 DAL
*
* Inputs:
*   Space for result      (WORD)
*   Window Pointer        (LONG)
*   Control ID            (LONG)
*
**********************************************************************
GetCtlValueByID	PROC EXPORT
	import CtlGetHandle

	phd
	tsc
	tcd

@ctlID	equ 9
@windPtr	equ @ctlID+4
@result	equ @windPtr+4

	stz <@result

	jsr CtlGetHandle	;into XY
	bcs @error

	pha
	phx
	phy
	_GetCtlValue
	plx
	stx <@result

@error	tax
	pld

	export CtlStrip8Bytes
CtlStrip8Bytes	ldy #8
	jml $e10184	;ToStrip

	ENDP


**********************************************************************
*
* $3E10 InvalOneCtlByID -- added 15-Jul-92 DAL
*
* Inputs:
*   Window Pointer        (LONG)
*   Control ID            (LONG)
*
**********************************************************************
InvalOneCtlByID	PROC EXPORT
	import CtlStrip8Bytes,CtlGetHandle

	phd
	tsc
	tcd

@ctlID	equ 9
@windPtr	equ @ctlID+4

	jsr CtlGetHandle
	bcs @error

@handle	equ @ctlID	;re-use our direct page space
@ptr	equ @windPtr

	stx <@handle+2
	sty <@handle
	ldy #4
	lda [<@handle],y
	pha
	ora #$8000
	sta [<@handle],y
	dey
	dey
	lda [<@handle],y
	sta <@ptr+2
	lda [<@handle]
	sta <@ptr

	pha
	pha
	_GetPort
	ldy #6	;offset to ctlOwner+2
	lda [<@ptr],y
	pha
	dey
	dey
	lda [<@ptr],y
	pha
	_SetPort
	ldx <@ptr+2
	lda <@ptr
	adc #8
	bcc @1
	inx
@1	phx
	pha
	_InvalRect
	_SetPort

	ldy #4
	pla
	sta [<@handle],y	;unlock handle
	lda #0	;no error

@error	tax
	pld
	bra CtlStrip8Bytes

	ENDP


**********************************************************************
*
* $3F10 HiliteCtlByID -- added 15-Jul-92 DAL
*
* Inputs:
*   Hilite                (WORD)
*   Window Pointer        (LONG)
*   Control ID            (LONG)
*
**********************************************************************
HiliteCtlByID	PROC EXPORT
	import CtlStrip10Bytes,CtlGetHandle

	phd
	tsc
	tcd

@ctlID	equ 9
@windPtr	equ @ctlID+4
@Hilite	equ @windPtr+4

	jsr CtlGetHandle	;into XY
	bcs @error

	pei <@Hilite
	phx
	phy
	_HiliteControl

@error	tax
	pld
	brl CtlStrip10Bytes

	ENDP


;====================================================================
;
;	Set2Draw
;
;          	Set to draw control.
;
;   IN:    Ctlhand = handle of control.
;          Ctlptr =	pointer to control.
;
;====================================================================
set2draw	PROC EXPORT

	pei <work+2	Save.
	pei <work
;
	jsr to_wport	Switch to window's port.
;
;
; --- Get window's vis RECT to not draw controls that aren't visible -------
;
	pha	Space for result.
	pha
	_GetVisHandle	Get handle of window's visRgn.
	pla
	sta <work
	pla
	sta <work+2
;
	ldy #2	Dereference handle,
	lda [<work],y
	tay
	lda [<work]
	clc
	adc #2	and add offset to bounds RECT.
	bcc store1
	iny
store1	sta <work
	sty <work+2
;
	ldy #x2	Clone visRgn's bounds RECT.
	ldx #visRect+x2
lop1	lda [<work],y
	phy
	txy
	sta [<data],y
	ply
	dex
	dex
	dey
	dey
	bpl lop1
;
	pla	Restore.
	sta <work
	pla
	sta <work+2
	
	rts
	
	ENDP


;====================================================================
;
;          DrawWholeCtl
;
;====================================================================
drawWholeCtl	PROC

	stz <param	Draw entire control.
	
;---------------------------------------------------------------
;
;   IN:    param = 0 to draw entire control, or part code to draw.
;
;---------------------------------------------------------------
	ENTRY drawCtl
drawCtl		;       

	stz <param+2
;
	jsr dereference	Ctlptr = (Ctlhand).
;
	ldy #CtlFlag	Is control visible?
	lda [<Ctlptr],y
	and #Ctl_INVIS
	bne exit
;
	jsr CMsetrect	Put enclosing RECT into 'rect'.
;
	ldy #CtlProc+2	Special case simple	buttons.
	lda [<ctlptr],y
	and #$7FFF	Mask off high bit just in case this is a super control
	dey
	dey
	ora [<ctlptr],y
	bne ok1
;
	ldy #CtlFlag
	lda [<ctlptr],y
	and #SB_BOLD
	beq ok1
;
	jsr expandButt	Expand the enclosing RECT.
;
ok1	lda <rect+y1
	bmi skip1
	ldy #visRect+y2
	cmp [<data],y
	bcs exit
;
skip1	lda <rect+x1
	bmi skip2
	ldy #visRect+x2
	cmp [<data],y
	bcs exit
;
skip2	ldy #visRect+y1
	lda [<data],y
	bmi ok2
	lda <rect+y2
	bmi exit
	ldy #visRect+y1
	cmp [<data],y
	bcc exit
;
	ldy #visRect+x1
	lda [<data],y
	bmi ok2
	lda <rect+x2
	bmi exit
	ldy #visRect+x1
	cmp [<data],y
	bcs ok2
exit	rts
;
ok2	jsr set2drawCtl	Setup to draw the control.
;
	ldx #drawCntl	Draw task number.
	brl CMDispatch2	Call definition procedure.
	
	ENDP


;====================================================================
;
;	Set2DrawCtl
;
;          	Setup to draw a control.
;
;   IN:    <ctlHand	= handle of control.
;
;  OUT:    <param =	0 to draw entire control, state = 0.
;	part code to draw just that part of the	control.
;
;           state =	0 to draw part in 'param' as unhighlighted.
;	2 to draw part in 'param' as highlighted.
;
;           active = $0000 if control is active.
;	 $FFFF if control is inactive, param = 0.
;
;
; Change History
;
; 06 Oct 88	Steven Glass
;
; The active flag used by built in defProcs is in the global data
; area rather passed to the defproc.  This made it hard for
; custom defProcs to do the right thing.  So we also put
; the flag in the hi-word of the param sent with the draw message
;
;====================================================================
set2drawCtl	PROC EXPORT

	jsr dereference	Ctlptr = (Ctlhand).
;
	lda #0
	ldy #active	Set active flag.
	sta [<data],y
	ldy #state	Set unhighlighted flag.
	sta [<data],y

	stz <param+2	Zero this to indicate that control not inactive
;
	jsr get_wptr	Get control's window pointer.
	ldy #owFrame
	lda [<windptr],y
	and #F_HIGHLT+F_Ctl_TIE Is owner window	active?
	beq inactive	If not, control can't be either.
;
	ldy #CtlHilite
	lda [<Ctlptr],y
	and #$00FF
	cmp #255	Active?
	bne skip
;
inactive	ldy #active	Set inactive flag.
	lda #$FFFF
	sta [<data],y
	sta <param+2
	stz <param	Draw entire control	as inactive.
	bra ready
;
Skip	tax	Hilite a part?
	beq ready
;
	sta <param	Store part to hilite in 'param'.
;
	ldy #state	Set highlight flag.
	lda #2
	sta [<data],y
;
;
; --- Do some more,	common setups ----------------------
;
Ready	jsr CMsetrect	Put enclosing RECT into 'rect'.
;

;
; No longer do we setup the ref to color table!    SEG  19 Feb 89
;	jsr setupColor
;
	_PenNormal	; so call pen normal directly
;
; End 19 Feb change.
;

	bra setvertpen	Set pen size to vert_pen,1.


; = = = = = = = = =	= = = = = = = = = =	= = = = = = = =
;          Set pen size to:
;                width = vert_pen.
;                height = 1.
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = =
;	ENTRY SetVertPen
setvertpen	proc export
;
	jsr pushVvert_pen
	pea 1
	_SetPenSize
	
	rts


; = = = = = = = = =	= = = = = = = = = =	= = = = = = = =
;          Draw a line from the current
;          pen position, to the given point.
;
;   IN:  y = y coordinate.
;        x = x coordinate.
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = =
;	ENTRY drawto
drawto	proc export
;
	phx
	phy
	_LineTo
	
	rts


; = = = = = = = = =	= = = = = = = = = =	= = = = = = = =
;        Indent 'rect'.
;
;   IN:  a = number	of lines to indent.
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = =
	ENTRY indent
indent		;       
;
	pha
;
	clc
	adc <rect+y1
	sta <rect+y1
;
	lda 1,s
	clc
	adc <rect+x1
	sta <rect+x1
;
	lda <rect+y2
	sec
	sbc 1,s
	sta <rect+y2
;
	lda <rect+x2
	sec
	sbc 1,s
	sta <rect+x2
;
	pla
	
	rts
;
	ENDP


;====================================================================
;
;	GrowSize
;
;          	Return the size of a standard grow box.
;
;   IN:    None.
;
;  OUT:    LONG - low order = height.
;                 high-order = width.
;
;====================================================================
GrowSize	PROC

grow_h	equ inputs
grow_w	equ grow_h+2
;
;
	cmp #0	Special Kludge for people who
	bne GoOn	open windows before	initing ctlmgr.
	cpy #0	Instead of dying, we just return.
	bne GoOn	(Window mgr calls this even when
	lda #$1002	window has no controls.)
	sec
	
	rtl
GoOn		; 
;
	jsr CMStartup	Do tool function setups.
;
	ldx #GROW_ICON
	jsr get_csize	Get height and width of grow icon.
;
	ldy #rect2+y2	Icon height,
	lda [<data],y
	clc
	adc #4	plus leading.
	sta <grow_h	equals box's height.
;
	ldy #rect2+x2	Icon width,
	lda [<data],y
	clc
	adc #8	plus leading,
	sta <grow_w	equals box's width.
;
exit	ldy #0	No error flag.
	brl CMpop0bytes
	
	ENDP

;
;            APPEND	CTRACK.ASM
;
;====================================================================
;
;	TrackControl
;
;        	Track mouse in a control.
;
;   IN:    PUSH:WORD - x starting position, in global.
;          PUSH:WORD - y starting position, in global.
;          PUSH:LONG - address of action routine.
;          PUSH:LONG - handle of control.
;          Current port is control's window port.
;
;  OUT:    WORD - part code selected, or zero if none.
;
;
; Change History
;
; 21 Nov 88	Steven Glass
;
; Changed the way the ctlDrag message is used when control has
; part code > $80.  If the control is a super control, the high
; word of the result from defProc call is the part code to return
; to caller.  This allows us to return no part code if the 
; user pulls his mouse out of the control before releasing
; the button.
;
;====================================================================
TrackControl	PROC

match	equ work	Place to store part	I'll be watching.

control	equ inputs
action	equ control+4
starty	equ action+4
startx	equ starty+2
RetCode	equ startx+2	Place to store current part
;	                  (either what's in 'match' or zero).
;
;
	jsr CMStartup	Do setup for tool call.
;
	jsr getCtlHand	Get passed control handle.
	bcc ok1	Null handle passed?
	brl CMpop12bytes
;
ok1	stz <RetCode	Start with no part found.
	stz <match
;
	jsr to_wport	Save port and switch to window's.
	jsr pushPort	Save the current port.
;
;
; --- Convert starting point to local -----------------------
;
	ldx <startx
	lda <starty
	jsr to_local
;
	jsr testpart	We have to start on	a part.
	sta <match	Save starting part.
	bne ck_indic	Did we start on a part?
	brl exit	If not, I'm done.
;
ck_indic	tax	Save part code in x.
	and #$0080	Is the part an indicator?
	bne indicator	If yes, different tracking method.
;
;
; --- Track LOOP -----------------------------------------------------
;
; ------ Find out what part the cursor is currently over -------------
;
track_loop	jsr ckhit	Check hit on part, save state, draw.
;
	lda <RetCode	Is the part currently selected?
	beq skip1
;
	sta <param	Pass part code.
	stz <param+2
	jsr do_action	Call action procedure.
;
skip1	jsr getratpos	Get current mouse position.
;
	jsr ckbutton2	Check if button has	been released.
	bcs track_loop	Continue to track if still down.
;
	sta <yrat
	stx <xrat
	jsr ckhit	Perform check at position of up event.
;
;
; --- Selection made, unhighlight part if needed -----------
;
	lda <RetCode	Not needed if zero.
	beq exit1	Tell action proc it's out of part.
;
	lda #0	Unhilite flag.
	jsr setstate	Unhilite the control part.
	bra exit	All done, exit TrackControl.
;
;
;
;
;
;
;     One-Way Code,	we pass through here only once per event.
;
; --- Track indicator ----------------------------------------------
;
; ------ Ask control to drag its indicator -------------------------
;
indicator	stx <RetCode	Return part code.
;
	ldy #0	(High word of LONG parameter.)
	txa	Pass part code to drag routine.
	ldx #dragCntl
	jsr CMDispatch
	pha	Save low word of return
	cmp #0	If not handled, treat as not super
	beq @NotSuper
	ldy #ctlProc+2	See if this is a super control
	lda [<ctlPtr],y
	bpl @NotSuper	No, not a super control
	stx <RetCode	Yes, make this the part code
@NotSuper	pla	Now, check to see if we do default dragging?
	bne exit
;
;
; --------- Perform	default indicator drag -------------------------
;
	jsr pushlimit_blk
	pla	Pass pointer to parameter block
	ply
	ldx #thumbCntl	Ask defProc to compute parameters.
	jsr CMDispatch	Call control.
	tax	Execute default setup?
	bne call_drag
;
	jsr setup_drag	Perform default setup for dragging.
;
;
; --- Call DragRect	------------------------------------------------
;
call_drag	jsr get_dragrect	Compute drag RECT.
;
	pha	Space for return deltas.
	pha
	lda #0	Address of action procedure, none.
	pha
	pha
	jsr pushVdrag_patt	Pass to drag outline pattern.
	pei <xrat	Pass starting point.
	pei <yrat
	jsr pushdrag_rect	Pass pointer to RECT to drag.
	jsr pushbound_rect	Pass pointer to bounds RECT.
	jsr pushslop_rect	Pass pointer to slop RECT.
	jsr pushVaxis_param	Pass movement axis parameter.
	_DragRect
	pla	Get Y delta.
	sta <param
	pla	Get X delta.
	sta <param+2
	ora <param	Was there any change?
	beq exit	If not, I'm done.
;
;
; --- Reposition indicator -----------------------------------------
;
	ldx #posCntl	Ask defProc to compute new value,
	jsr CMDispatch2	and redraw control.
	tax	Perform default reposition?
	bne exit1
;
	jsr reposition	Perform default reposition.
;
exit1	jsr do_action	Call action routine	about change.
;
exit	jsr popPort	Restore the current	port.
;
exit2	ldy #0	No error flag.
	brl CMpop12bytes
;
;
; = = = = = = = = =	= = = = = = = = = =	= = =
;          Check hit on part.
;100= = = = = = = =	= = = = = = = = = =	= = =
;
ckhit		; 
;
	lda <yrat	Find part under cursor.
	ldx <xrat
	jsr testpart
	beq ck_hilite	Over a part?
;
	cmp <match	Has to be the same as the starting part.
	beq ck_hilite
	lda #0	Force it to 'out of part'.
;
;
; ------ Highlight/Unhighlight the part	as needed --------------------
;
ck_hilite	cmp <RetCode	As state of part changed?
	beq exit100
;
	sta <RetCode	Save new state.
	brl setstate	Draw the part in its new state.
;
exit100	rts
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = =
;          Push a pointer to inside a record.
;110= = = = = = = =	= = = = = = = = = =	= = = = = = = = =
;
;   IN:    Ctlptr =	pointer to record.
;          a = offset into the record.
;
;  OUT:    pointer on stack.
;
;	export pushrecord
pushrecord	proc export
;
	ply	Get return address.
;
	ldx <Ctlptr+2
	clc
	adc <Ctlptr
	bcc ok110
	inx
ok110	phx
	pha
;
	phy	Return address back.
	rts
;
;
;====================================================================
;          Call action procedure.
;
;          action =	value passed to TrackControl.
;          CtlAction = value in control's record.
;          autoTrack = control's definition procedure's action command.
;
;          If action = 0 then quit, perform no action.
;          If action = -1 then
;          {
;                If	CtlAction = 0 then quit, perform no action.
;                If	CtlAction = -1 then
;	  Call autoTrack in	the control's definition procedure.
;                Else
;	  Call CtlAction.
;          }
;          Else
;                Call action.
;
;120=================================================================
do_action	proc export	;made into proc, 8-Dec-91 for TS3

*** duplicate equates, 8-Dec-91 DAL
control	equ inputs
action	equ control+4
starty	equ action+4
startx	equ starty+2
RetCode	equ startx+2	Place to store current part
;	                  (either what's in 'match' or zero).
*** end 8-Dec-91

	lda <action	Perform no action?
	ora <action+2
	beq exit120
;
	lda <action+2
	bpl use_action	If negative, call defProc for autoTrack.

;
; ------------ Check CtlAction for path	to take ---------------------
;
	jsr dereference	Ctlptr = (Ctlhand).
	ldy #CtlAction
	lda [<Ctlptr],y
	iny
	iny
	ora [<Ctlptr],y	Is CtlAction zero?
	beq exit120	If yes, perform no action.
;
	lda [<Ctlptr],y
	bpl use_Ctl
;
; -----------------	Call defProc's action routine -------------------
;
	ldx #autoTrack	Part code already in param.
	brl CMDispatch2
;
;
; -----------------	Call CtlAction ---------------------------------
;
use_Ctl	dey
	lda [<Ctlptr],y
	tax
	ldy #CtlAction
	lda [<Ctlptr],y
	bra makecall
;
;
; -----------------	Use action routine passed to TrackControl --------
;
use_action	ldx <action+1
	lda <action
;
;
; --------- Call action routine that was passed to _TrackControl -----
;
makecall	tay	Pass address in X and Y.
;
;
	pei <ctlhand+2	Save control's handle.
	pei <ctlhand
	phd	Save my zero page.
;
;
	pha	Space for dummy return value,
;	                  to make some apps run.
	pei <RetCode	Pass part code.
	pei <Ctlhand+2	Pass handle of control.
	pei <Ctlhand
;
	lda <saveDirect	Restore caller's direct page.
	tcd
;
	tya	Pass low byte in A.
	jsl long_call
;
	pla	Get dummy return value (not used).
;
	pld	Restore my zero page.
	pla	Restore control's handle.
	sta <ctlhand
	pla
	sta <ctlhand+2
	brl dereference	Ctlptr = (Ctlhand).
;
exit120	rts


; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = = = =
;        Find part at given point
;
;   IN:  a = y coordinate.
;        x = x coordinate.
;        <ctlHand =	handle of control.
;
;  OUT:    Equal flag TRUE if no part found.
;          Else
;                a = part code found at	given point, or zero if none found.
;
;130= = = = = = = =	= = = = = = = = = =	= = = = = = = = = = = =
	ENTRY testpart
testpart		;       
	sta <param	Pass y point.
	stx <param+2	Pass x point.

	jsr dereference	Ctlptr = (Ctlhand).
	ldy #CtlFlag	Control has to be active and visible.
	lda [<Ctlptr],y
	and #Ctl_INVIS
	bne noPart130	Visible?
;
	iny
	lda [<Ctlptr],y
	and #$00FF
	cmp #C_HILITE	Active?
	bne ok130
noPart130	lda #0	No part
	rts
;
ok130	ldy #CtlRect	Is point in enclosing RECT?
	jsr check_pt
	beq exit130	Don't check part if not in control.
;
	ldx #testCntl	Call defProc to test for part.
	jsr CMDispatch2
;
	tay	Set return flag.
	
exit130	rts


; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = = = =
;
;        Set state of control.
;
;   IN:    a = part	code to highlight, or zero to unhighlight last highlighted.
;
;150= = = = = = = =	= = = = = = = = = =	= = = = = = = = = = = =
	ENTRY setstate
setstate		;       
	pha	Pass part code to highlight.
	pei <Ctlhand+2	Pass handle of control.
	pei <Ctlhand
	_HiliteControl	Change control highlight and draw.
;
	brl dereference
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = = = =

;;        Check if button is stil down.
;
;  OUT:  Carry set if button still down.
;        Carry clear if button has been	released, a=y pos, x=x pos.
;
;
; Change History
;
; 09 Apr 89	Steven Glass & James P. Mensch
;
; Simplified check for mouse coming up when we think it 
; should be down.  Prevents leaving a mouse up in queue.
;
;160= = = = = = = =	= = = = = = = = = =	= = = = = = = = = = = =
	ENTRY ckbutton2
ckbutton2		;       
	pha
	pea 4	Looking only for button up.
	jsr pushmyevent	Pass pointer to event record.
	_GetNextEvent
	pla
	bne getevent
;
;
; --- Button has not come up yet, but double check ----------------------
;
	ldy #MyEvent+modif	Read modifiers from event
	lda [<Data],y
	and #Btn0State	Look only at button 0 state (Sense is weird)
	bne GetEvent	Button is up, treat like got event.

	sec	Return 'still down flag'.
	rts

;
;
; --- Button up event, use position of event -------------------------------
;
getevent	jsr pushmyeventpos
	_GlobalToLocal
;
exit160	ldy #myevent+where+x1 Return position of button up.
	lda [<data],y
	tax
	dey
	dey
	lda [<data],y

	clc	Button up flag.	
	rts


; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = = = =
;
;        Get current mouse position.
;
;  OUT:  yrat = mouse y position.
;        xrat = mouse x position.
;
;170= = = = = = = =	= = = = = = = = = =	= = = = = = = = = = = =
	ENTRY getratpos
getratpos		;       
	lda #yrat
;
	ENTRY getratpos2
getratpos2		;       
	jsr pushzpage
	_GetMouse
	
	rts
;
	ENDP


;====================================================================
;          Long call.
;
;   IN:    x = middle WORD (bits 8-23) of address of destination routine.
;          a = low WORD of address of destination routine.
;
;  OUT:    Calling this routine is the same as:
;
;                jsl   (ax)
;
;          where the low byte in 'a' is	the low byte of the	destination
;          address,	and x = the next 2 bytes of the destination address.
;
;====================================================================
long_call	PROC EXPORT

	phx	High and middle byte on stack
	phb	extra byte on stack
	dec a	low and middle := xxx -1
	sta 1,s	overstore on stack
	rtl	hello
;
;  When the routine	called returns, it
;  will return to the routine that called 'longCall', not here.
;
	ENDP


;====================================================================
;
;          Move a control to a new position.
;
;   IN:    PUSH:WORD - new x origin of control.
;          PUSH:WORD - new y origin of control.
;          PUSH:LONG - handle of control to move.
;
;  OUT:    Nothing.
;
;====================================================================
MoveControl	PROC

CtlHandle	equ inputs
new_y	equ CtlHandle+4
new_x	equ new_y+2
;
;
	jsr CMStartup	Do setup for tool call.
;
	jsr getCtlHand	Get passed control handle.
	bcs exit	Null handle passed?
;
	ldy #4	Lock the control.
	lda [<ctlHand],y
	ora #$8000
	sta [<ctlHand],y
;
;
; --- Erase the control if visible ---------------------------
;
	ldy #CtlFlag	Is control visible?
	lda [<Ctlptr],y
	and #Ctl_INVIS
	pha	Save starting state.
	bne skip1
;
	pei <Ctlhand+2
	pei <Ctlhand
	_HideControl	Erase the control.
;
;
; --- Move the control --------------------------------------
;
skip1	lda #CtlRect	Pass pointer to enclosing RECT.
	jsr pushrecord
	lda <new_x
	ldy #CtlRect+x1
	sec
	sbc [<Ctlptr],y
	sta <new_x	Save delta x.
	pha
	lda <new_y
	dey
	dey
	sec
	sbc [<Ctlptr],y
	sta <new_y	Save delta y.
	pha
	_OffsetRect	Move the enclosing RECT.
;
	ldy <new_x	Pass X delta.
	lda <new_y	Pass Y delta.
	ldx #moveCntl	Tell defProc that the control has moved.
	jsr CMDispatch	and redraw control.
;
;
; --- Draw the control at its new position if it was visible -----------
;
	pla	Was the control visible?
	bne exit
;
	pei <Ctlhand+2
	pei <Ctlhand
	_ShowControl
;
exit	ldy #4	Unlock control.
	lda [<ctlHand],y
	and #$7FFF
	sta [<ctlHand],y
;
	ldy #0	No error flag.
	brl CMpop8bytes
	
	ENDP


;====================================================================
;
;          Find a control at a given point.
;
;   IN:    PUSH:LONG - address of where	to store handle of found control.
;          PUSH:WORD - x point to check.
;          PUSH:WORD - y point to check.
;          PUSH:LONG - pointer to window.
;          Current port is window's port.
;
;  OUT:    WORD - part code found at given point, zero if none found.
;
;====================================================================
FindControl	PROC

window	equ inputs
ypoint	equ window+4
xpoint	equ ypoint+2
storehand	equ xpoint+2
RetPart	equ storehand+4
;
;
	jsr CMStartup	Do setup for tool call.
;
	stz <RetPart	Start with no part found.
;
	jsr getWindPtr	Get given window pointer.
	bcs exit2	Any errors?
;
;
; --- Switch to control's window port --------------------------
;
	jsr to_wport
;
;
; --- Convert given	point to local ------------------------------
;
	ldx <xpoint
	lda <ypoint
	jsr to_local
	sta <ypoint
	stx <xpoint
;
;
; --- Check all controls in list -----------------------------
;
	stz <ctlhand	Start with last control in list.
	stz <ctlhand+2
	jsr findPrivCtl	ctlhand = last control in list.
;	                  ctlptr = (ctlhand)
;
lop1	ldx <xpoint
	lda <ypoint
	jsr testpart	Ask control's DefProc to find part.
	sta <RetPart
	tax
	bne exit	Found a part?
	jsr dereference	Ctlptr = (Ctlhand).
;
next1	jsr findPrivCtl	ctlhand, ctlptr = previous control.
	bcc lop1	At top of list?
;
;
;
; --- Return to caller ----------------------------------
;
exit	lda <Ctlhand	Return pointer to control.
	sta [<storehand]
	ldy #2
	lda <Ctlhand+2
	sta [<storehand],y
;
exit2	ldy #0	No error flag.
	brl CMpop12bytes
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = =
;          Find previsous control in list.
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = =
;
;   IN:    windPtr = pointer to window that has control list.
;          ctlhand = current control, zero for last in list.
;
;  OUT:    Carry clear if good control found.
;          ctlhand = control previous to given control in control list.
;          ctlptr =	(ctlhand)
;
findPrivCtl		; 
;
	lda <ctlhand	Save control to match.
	sta <work
	lda <ctlhand+2
	sta <work+2
;
	jsr getFirstCtl	ctlhand = first control in window's list.
;	                  ctlptr = (ctlhand).
;
	lda <ctlhand	Check if at top of list.
	cmp <work
	bne lop100
	lda <ctlHand+2
	cmp <work+2
	beq exit100	Carry set, at top of list.
;
lop100	lda [<ctlptr]	Handle of next control.
	cmp <work	Is the next control	the given handle?
	bne next100
	ldy #CtlNext+2
	lda [<ctlptr],y
	cmp <work+2
	clc
	beq exit100	If yes, then previous control found.
;
next100	jsr next_ctl	Check next control in list.
	bne lop100	Any more controls in list?
	sec	!!!Should never happen!!!!
;
exit100	rts
;
	ENDP
;
;
;====================================================================
;
;          Convert a point to
;          local coordinates.
;
;   IN:    a = y point.
;          x = x point.
;
;  OUT:    a = y point in local.
;          x = x point in local.
;
;====================================================================
to_local	PROC

	sta <yrat	Save point.
	stx <xrat
;
	jsr pushyrat	Pass pointer to point.
	_GlobalToLocal
;
	lda <yrat	Return converted point.
	ldx <xrat
	
	rts

	ENDP


;====================================================================
;
;        Find a control part at a given	point.
;
;   IN:  PUSH:WORD - x point, in local coordinates, to check.
;        PUSH:WORD - y point, in local coordinates, to check.
;        PUSH:LONG - pointer to control	(control list).
;
;  OUT:  WORD - part code found at given point, zero if none found.
;
; Parts are searched from bottom of list to top, as they appear on screen.
;
;====================================================================
TestControl	PROC

control	equ inputs
ypoint	equ control+4
xpoint	equ ypoint+2
RetPart	equ xpoint+2
;
;
	jsr CMStartup	Do setup for tool call.
;
	jsr getCtlHand	Get passed control handle.
	bcs exit	Null handle passed?
;
	ldx <xpoint	Pass point to check.
	lda <ypoint
	jsr testpart
	sta <RetPart
;
exit	ldy #0	No error flag.
	brl CMpop8bytes
	
	ENDP


;====================================================================
;
;          Drag a control.
;
;   IN:    PUSH:WORD - starting x coordinate, in local.
;          PUSH:WORD - starting y coordinate, in local.
;          PUSH:LONG - pointer to RECT that is bounds of movement, in local.
;          PUSH:LONG - pointer to RECT that is cusor limit,	in local.
;          PUSH:WORD - movement constraint.
;          PUSH:LONG - handle of control.
;
;  OUT:    None.
;
;====================================================================
DragControl	PROC

theControl	equ inputs
axis	equ theControl+4
slop	equ axis+2
limit	equ slop+4
starty	equ limit+4
startx	equ starty+2
;
;
	jsr CMStartup	Do setup for tool call.
;
	jsr getCtlHand	Get passed control handle.
	bcs exit	Null handle passed?
;
;
; --- Ask control to drag control ---------------------------
;
	ldy #0	Drag whole control flag.
	tya
	ldx #dragCntl
	jsr CMDispatch
	tax	Do default dragging?
	bne exit
;
;
; ------ Perform default drag --------------------------------
;
	stz <param	Drag whole control flag.
	jsr get_dragrect	Ask control to compute drag RECT.
;
;
; --------- Call drag RECT -----------------------------------------
;
	pha	Space for result.
	pha
	lda #0	No action routine.
	pha
	pha
	ldy #$00F0	Solid drag pattern.
	jsr set_patt
	phx
	phy
	pei <startx	Pass starting point.
	pei <starty
	jsr pushdrag_rect	Pass address of RECT to drag.
	pei <limit+2
	pei <limit
	pei <slop+2
	pei <slop
	pei <axis
	_DragRect
	pla	Get delta y.
	sta <work
	pla	Get delta x.
	sta <work+2
	ora <work	Was there any movement?
	beq exit
;
;
; --- Now move control to it's new spot ---------------------
;
	jsr dereference	Ctlptr = (Ctlhand).
;
	ldy #CtlRect+x1	Compute new origin and pass it.
	lda [<Ctlptr],y
	clc
	adc <work+2
	pha
	dey
	dey
	lda [<Ctlptr],y
	clc
	adc <work
	pha
	pei <Ctlhand+2	Pass handle of control.
	pei <Ctlhand
	_MoveControl
;
;
exit	ldy #0	No error flag.
	brl CMpop18bytes
	
	ENDP


;====================================================================
;
;          Ask control to compute drag RECT.
;
;   IN:    param = zero for whole control, nonzero for part.
;
;  OUT:    drag_rect = RECT to drag, in	local coordinates.
;
;====================================================================
get_dragrect	PROC

	jsr pushdrag_rect
;
	lda <param	Whole control?
	beq ok1
;
	lda 3,s	Get high word of address,
	ora #$8000	Set 'just the part'	flag.
	sta 3,s
;
ok1	pla	Get pointer to drag_rect with high bit
	ply	set correctly.
;
;
;  a = low word of where to store RECT.
;  y = high word of	where to store RECT,
;	              high bit clear for whole control,
;	              high bit set for control part.
;
	ldx #calcCRect
	jsr CMDispatch	Call control.
	tax
	bne exit	Default?
;
;
; ------ Use default drag RECT -------------------------------------
;
	jsr dereference	Ctlptr = (Ctlhand).
	ldy #CtlRect	Whole control.
	lda <param+2	Indicator or whole control?
	bpl ok2
	ldy #Thumb	Just the indicator.
ok2	ldx #drag_rect
lop1	lda [<Ctlptr],y
	phy
	txy
	sta [<data],y
	ply
	iny
	iny
	inx
	inx
	cpx #drag_rect+8
	bne lop1
;
exit	rts

	ENDP




;====================================================================
;
;	CallDefProc
;
;        	Calls a controls defproc with the specified inputs.
;
;   IN:  PUSH:LONG - Space for result
;        PUSH:LONG - Control Handle
;        PUSH:WORD - Message to Send
;        PUSH:LONG - Value for Param
;
;  OUT:  PULL:LONG-  Result from DefProc.
;
; Change History
;
; 03 Oct 88	Steven Glass
;
; New today
;
; 06 Oct 88	Steven Glass
;
; Cannot use GetCtlHandle because it expects the handle 
; at Inputs on zero page.
;
;====================================================================
CallDefProc	PROC

TheParam	equ inputs
TheMessage	equ TheParam+4
TheControl	equ TheMessage+2
TheResult	equ TheControl+4
;
;
	jsr CMStartup	Do tool function setup.
;
	lda TheControl,s
	sta ctlHand
	lda TheControl+2,s
	sta ctlHand+2
	jsr Dereference
;
	jsr set2draw	Setup to draw standard controls.
	jsr pushPort	Save the current port.
	jsr set2drawCtl	Setup to draw the control.
;
	lda <TheParam	Pass new view and data sizes.
	ldy <TheParam+2
	ldx <TheMessage	Task number.
	jsr CMDispatch

	sta TheResult
	stx TheResult+2

	jsr popPort	Restore the current	port.
;
exit	ldy #0	No error flag.
	brl CMpop10bytes
	
	ENDP


	title 'Param Text Routines'
;====================================================================
;
;	SetCtlParamPtr
;
;   Puts the indicated pointer into the global data area.
;
;   IN:  PUSH:LONG - Pointer to sub array
;
;  OUT:  none.
;
; Change History
;
; 21 Oct 88	Steven Glass
;
; New today
;
;====================================================================
SetCtlParamPtr	PROC

ThePtr	equ inputs

	jsr CMStartup	Do tool function setup.

	lda ThePtr
	ldy #ParamTextPtr
	sta [<data],y
	iny
	iny
	lda ThePtr+2
	sta [<data],y

	ldy #0	No error flag.
	brl CMpop4bytes
	
	ENDP

;====================================================================
;
;	GetCtlParamPtr
;
;   Returns the paramtext pointer from the global data area.
;
;   IN:  PUSH:LONG - space for pointer
;
;  OUT:  PULL:LONG - pointer to current substitution array.
;
; Change History
;
; 21 Oct 88	Steven Glass
;
; New today
;
;====================================================================
GetCtlParamPtr	PROC

ThePtr	equ inputs

	jsr CMStartup	Do tool function setup.

	ldy #ParamTextPtr
	lda [<data],y
	sta ThePtr
	iny
	iny
	lda [<data],y
	sta ThePtr+2

	ldy #0	No error flag.
	brl CMpop0bytes
	
	ENDP







	title 'Dispatching Code'
;====================================================================
;
;          CMDispatch	task.
;
;   IN:    x = task.
;          Ctlptr =	pointer to control.
;          a = param.
;          y = param+2.
;
;  OUT:    a = low word of returned value.
;          x = high	word of returned value.
;
;
; Change History
;
; 05 Oct 88	Steven Glass
;
; Major changes to support super controls.
;
; 11 Oct 88	Steven Glass
;
; Make this routine patchable.
;
; 24 Oct 88	Steven Glass
;
; Added calls to TextEdit and Menu Manager.  Simplified code for
; new builtin procs.
;
; 10 Feb 89	Steven Glass
;
; Changed code that calls load resource so that it will load 
; not use an id with the high bit set (not valid for the resource
; manager.)
;
;====================================================================
CMDispatch	PROC EXPORT

	sta <param
	sty <param+2
;
;
	ENTRY CMDispatch2
CMDispatch2		;       
;
;   IN:    param = additional parameter.
;
	phx	Save.


	ldx #oCMDispatcher
	jml ToolboxPatcher


	EXPORT RealCMDispatcher
RealCMDispatcher
	jsr dereference	Ctlptr = (Ctlhand).


;-----------------------------------------------------------
;
; See if this is a super control.  If it is, there can 
; be more work to do.  Otherwise, go the old way.
;
	ldy #NewCtlRecord.CtlProc+2
	lda [ctlPtr],y
	bpl DoOldWay

;-----------------------------------------------------------
;
; It is a super control.  Must see if we have pointer to
; defproc or an ID.
;
	clc		Assume that it is a pointer
	ldy #NewCtlRecord.ctlMoreFlags	Now, look and see what it really is
	lda [ctlPtr],y
	and #FctlProcRefNotPtr
	beq ItsAPtr
	sec		its a resource
ItsAPtr	ldy #NewCtlRecord.CtlProc+2	Get reference into a & y
	lda [ctlPtr],y		with message in x.
	tax
	dey
	dey
	lda [ctlPtr],y
	txy
	plx
	bcs CallByThisID
	bra CallByThisPtr

DoOldWay
	plx	Restore.
	ldy #CtlProc	Is this a custom control?
	lda [<Ctlptr],y
	bne do_custom
	iny
	lda [<Ctlptr],y
	bne do_custom
;
;
; --- Call a standard control definition procedure --------------
;
	iny
	lda [<Ctlptr],y	Get control number.
;
	EXPORT standardDispatch
standardDispatch		;       
;
	phx	Save task number.
	and #$7FFF	; Clear off super control bit.
	xba	Get standard defProc number into low byte.
	tax	Put index into X.
	pla	Put task number into A.
	jmp (my_procs,x)	Get address of standard procedure.
;
my_procs	DC.W simp_proc	Simple button procedure.
	DC.W check_proc	Check box procedure.
	DC.W radio_proc	Radio button procedure.
	DC.W scroll_proc	Scroll bar procedure.
	DC.W grow_proc	Grow box procedure.
;
;
; --- Call a custom	control definition procedure ----------------
;
do_custom	phx	Save task number.
	ldy #CtlProc+1	Get address of defProc.
	lda [<Ctlptr],y
	tax
	dey
	lda [<Ctlptr],y
	ply	Get task number.
;
;
;   IN:    y = task	number.
;          a = bytes 0 and 1 of defProc	address.
;          x = bytes 1 and 2 of defProc	address.
;          param = additional parameters.
;
	ENTRY customDispatch
customDispatch		;       
;
	pei <Ctlhand+2	Save current handle	of control.
	pei <Ctlhand
;
	pha	Space for return value.
	pha
;
	phy	Pass task number.
;
	pei <param+2	Pass additional parameters.
	pei <param
;
	pei <Ctlhand+2	Pass control's handle.
	pei <Ctlhand
;
	jsl long_call	Call custom defProc.
	pla	Get return values.
	plx
;
	ply	Restore Ctlhand.
	sty <Ctlhand
	ply
	sty <Ctlhand+2
;
	rts



;-----------------------------------------------------------
;
; CallByThisPtr
;
;   Inputs:
;      a-reg  low word of procPtr
;      y-reg  high word of procPtr
;      x-reg  message to send
;
	Export CallByThisPtr
CallByThisPtr
	phx	Put message on stack
	phy	put high word on stack
	pha	put low word on stack
	lda 2,s	get middle and high bytes into x
	tax
	pla	get low back into a
	ply	ignore high word
	ply	message into y
	bra CustomDispatch

;-----------------------------------------------------------
;
; CallByThisID
;
;   Inputs:
;      a-reg  low word of ID
;      y-reg  high word of ID
;      x-reg  message to send
;
; this routine has to see if the ID is one of our special
; ID's or if it is a normal resource ID.
;
; The special IDs have the low three bytes set to zero.
; These include the original defprocs as well as 
; new built in defprocs and some new standard non 
; build in defprocs.
;
	Export CallByThisID
CallByThisID
	phx	Save message
	phy	save ID
	pha
	lda 1,s	Is low word 0
	bne NotSpecial	no
	lda 2,s	Is middle word 0
	bne NotSpecial	no
	lda 4,s	Yes
	and #$007F	Clear super ctl bit
	cmp #LastSpecial+1	Is it in range?
	bcs NotSpecial	no
	asl a	Use as index into table
	tax
	jmp (WhereTable,x)
	
WhereTable	dc.w OldBuiltIn	simpleButtonControl	equ $80000000
	dc.w DoStatText	statTextControl	equ $81000000
	dc.w OldBuiltIn	checkControl	equ $82000000
	dc.w ItsALineEdit	LineEditControl	equ $83000000
	dc.w OldBuiltIn	radioControl	equ $84000000
	dc.w ItsATextEdit	TextEditControl	equ $85000000
	dc.w OldBuiltIn	scrollBarControl	equ $86000000
	dc.w ItsAPopUp	popUpControl	equ $87000000
	dc.w OldBuiltIn	growControl	equ $88000000
	dc.w ItsAList	listControl	equ $89000000
	dc.w NotSpecial	not used???
	dc.w NotSpecial	iconButtonControl	equ $8B000000
	dc.w NotSpecial     not used 
	dc.w DoPicture	pictureControl	equ $8D000000

LastSpecial	equ (*-WhereTable)>>1


;-----------------------------------------------------------
;
; NotSpecial
;
; Inputs: (on stack)
;    Msg : WORD
;    ID : LONG
;
; We get here if we have to load the defProc's code resource
;
NotSpecial
	plx		Get ID into a & X
	pla
	and #$7FFF		Ignore super control bit
	ply		Get message into y

	pha		Put four bytes on stack for use below
	pha

	PushWord #rCtlDefProc	Push rType and ID for
	pha		later
	phx

	phy		Save Message

	pha		Space for result
	pha
	PushWord #rCtlDefProc
	pha
	phx
	jsr LoadCodeResource

	lda 2,s		put middle word into x
	tax
	pla		low word into a
	ply		ignore high word
	ply		message
	jsr CustomDispatch

	sta 7,s		put result back into
	txa		space on stack reserved above
	sta 9,s

	jsr ReleaseResource		(inputs on stack above)
	pla		return result in a & x
	plx

	rts

;-----------------------------------------------------------
;
; We get here if the Proc is an old style build in
; defproc.  We set up the reg and xfer to Standard Dispatch
;
OldBuiltIn
	pla		low word of ProcRef
	pla		high word of ProcRef
	plx		Message
	brl StandardDispatch

;-----------------------------------------------------------
;
; We get here if the control is a static text control.
;
;   Stack is     Msg
;                id high
;                id low
;
; So we setup the regs and branch to CustomDispatch.
;
DoStatText
	ldx #>StatTextProc
	lda #<StatTextProc

	bra FinishUp


;-----------------------------------------------------------
;
; We get here if the control is a picture control
;
;   Stack is     Msg
;                id high
;                id low
;
; So we setup the regs and branch to CustomDispatch.
;
DoPicture	ldx #>PicProc
	lda #<PicProc

FinishUp	ply
	ply
	ply
	brl CustomDispatch



;-----------------------------------------------------------
;
; ItsAList
;
; We get here if the Proc supposed to be in the list manager.
;
; Inputs: (on stack)
;    Msg : WORD
;    ID : LONG
;
;
ItsAList

	pha
	pha
	_GetListDefProc
	bra JoinExternal

;-----------------------------------------------------------
;
; ItsAPopUp
;
; We get here if the Proc supposed to be in the menu manager.
;
; Inputs: (on stack)
;    Msg : WORD
;    ID : LONG
;
;
ItsAPopUp

	pha
	pha
	_GetPopUpDefProc
	bra JoinExternal

;-----------------------------------------------------------
;
; ItsATextEdit
;
; We get here if the Proc supposed to be in text edit.
;
; Inputs: (on stack)
;    Msg : WORD
;    ID : LONG
;
;
ItsATextEdit

	pha
	pha
	_TEGetDefProc
	bra JoinExternal

;-----------------------------------------------------------
;
; ItsALineEdit
;
; We get here if the Proc supposed to be the line edit
;
; Inputs: (on stack)
;    Msg : WORD
;    ID : LONG
;
;
ItsALineEdit

	pha
	pha
	_GetLEDefProc
JoinExternal	lda 2,s
	tax
	lda 1,s
	ply
	ply
	
	ply		low word of ProcRef
	ply		high word of ProcRef
	ply		Message
	brl CustomDispatch



	ENDP


**********************************************************************
*
CMLoadResource	PROC EXPORT
*
* This is an external entry to the LoadResource call below.
*
* Inputs:
*	HandleSpace : LONG
*	Type        : WORD
*	ID          : ID
*
* Outputs:
*	ResourceHandle
*
*
**********************************************************************
	DefineStack
OrigD	word
RTL1	block 3
RTL2	block 3
TheID	long
TheType	word
TheHandle	word

	import GetAndSetPrefs

	phd
	tsc
	tcd

*** added 15-Sep-91 DAL
	jsr GetAndSetPrefs
	pha
*** end 15-Sep-91

	pha
	pha
	pei TheType
	pei TheID+2
	pei TheID
	jsr LoadResource

	pla
	sta TheHandle
	pla
	sta TheHandle+2

*** added 15-Sep-91 DAL
	pla
	jsr SetPrefsToA
*** end 15-Sep-91

	pld
	ldx #0
	ldy #6
	jml ToStrip

	EndP

;GetAndSetPrefs	proc export
;	pea $0000	;space for old prefs
;	pea $0001	;pcount
;	tsc
;	inc a
;	pea 0
;	pha
;	pea $200F	;GetSysPrefs
;	jsl $e100b0
;
;	lda 3,s	;old prefs
;	ora #$C000	;force vol-mount w/ no cancel
;	and #$DFFF	;don't supress the dialog! (4-Dec-91 DAL)
;	jsr SetPrefsToA
;
;	pla
;	pla	;A=old prefs value
;	rts
;
;	export SetPrefsToA
;SetPrefsToA	pha	;new prefs value
;	pea $0001	;pcount
;	tsc
;	inc a
;	pea 0
;	pha
;	pea $200C	;SetSysPrefs
;	jsl $e100b0
;	pla
;	pla
;	rts

*** changed 22-Mar-93 DAL
GetAndSetPrefs	proc export
	pha	;space for result
	pea $2000	;bits to clear (don't suppress dialog)
	pea $C000	;bits to set (force vol-mount, no cancel)
;	_DoSysPrefs
	ldx #$3f03
	jsl $e10000
	pla	;old preferences
	rts

	export SetPrefsToA
SetPrefsToA	pha	;space for result
	pea $FFFF	;bits to clear (all)
	pha	;bits to set (input)
;	_DoSysPrefs
	ldx #$3f03
	jsl $e10000
	pla	;discard result
	rts
*** end 22-Mar-93

	ENDP


**********************************************************************
*
CMReleaseResource	PROC
*
* This is an external entry to the ReleaseResource call below.
*
* Inputs:
*	Type        : WORD
*	ID          : ID
*
* Outputs:
*	none
*
*
**********************************************************************
	DefineStack
OrigD	word
RTL1	block 3
RTL2	block 3
TheID	long
TheType	word

	phd
	tsc
	tcd

	pei TheType
	pei TheID+2
	pei TheID
	jsr ReleaseResource

	pld
	ldx #0
	ldy #6
	jml ToStrip

	ENDP


****************************************************************
*
LoadResource	PROC EXPORT
*
* This is the single place we call LoadResource in the control
* manager.  We use a single entry point to simplify error 
* handling.
*
* The routine that needs LoadResource, pushes space for the result
* the type and id on the stack (just like making the tool call) 
* and JSR's here.
*
* Any error results in a system death.
*
* Inputs:
*	HandleSpace : LONG
*	Type        : WORD
*	ID          : ID
*
* Outputs:
*	ResourceHandle
*
* External Refs:
*	none
*
* Entry Points:
	EXPORT LoadCodeResource
	ENTRY CMDieHorribly
*
	longa on	; mode
	longi on
*
****************************************************************

	DefineStack
TheOrigD	WORD
TheRTS	WORD
TheID	LONG
TheType	WORD
TheHandle	LONG

	phd
	tsc
	tcd

	pha
	pha
	pei TheType
	pei TheID+2
	pei TheID
	_LoadResource

	bcs CMDieHorribly


	pla
	sta TheHandle
	pla
	sta TheHandle+2

GoodJob
	pld
	plx
	pla
	pla
	pla
	phx
	rts


LoadCodeResource	phd
	tsc
	tcd

*** added 8-Dec-91 DAL -- force prompt, no Cancel button
	jsr GetAndSetPrefs
	pha
*** end 8-Dec-91

	pha
	pha
	pei TheType
	pei TheID+2
	pei TheID
	_LoadResource
	bcs CMDieHorribly

	pla	; deref the handle and return the pointer
	sta TheHandle
	pla
	sta TheHandle+2

*** added 8-Dec-91 DAL -- restore system preferences
	pla
	jsr SetPrefsToA
*** end 8-Dec-91 DAL

	ldy #2
	lda [TheHandle],y
	tax
	lda [TheHandle]
	sta TheHandle
	stx TheHandle+2
	bra GoodJob


;-----------------------------------------------------------
;
; The load failed, so bring us all down!
;

RamToTrash	equ $0002A0


CMDieHorribly	
	sta TheHandle

	PushLong #DeathMsg
	PushLong #RamToTrash
	lda >DeathMsg
	and #$00FF
	inc a	;added 20-Nov-90 DAL
	pea $0000
	pha
	_BlockMove

	lda TheID
	jsr HexIt
	sta >RamToTrash+IDStart-DeathMsg+4
	txa
	sta >RamToTrash+IDStart-DeathMsg+6

	lda TheID+2
	jsr HexIt
	sta >RamToTrash+IDStart-DeathMsg
	txa
	sta >RamToTrash+IDStart-DeathMsg+2

	lda TheType
	jsr HexIt
	sta >RamToTrash+TypeStart-DeathMsg
	txa
	sta >RamToTrash+TypeStart-DeathMsg+2


	pei TheHandle
	PushLong #RamToTrash
	_SysFailMgr

DeathMsg	dc.b EndMsg-StartMsg
StartMsg	dc.b 'Could not load/unload resource.',13
	dc.b '  Type='
TypeStart	dc.b '    .',13
	dc.b '  ID='
IDStart	dc.b '        .',13
	dc.b '  Error='
EndMsg

HexIt	pha
	pha
	pha
	_HexIt
	pla
	plx
	rts

	ENDP




****************************************************************
*
ReleaseResource	PROC EXPORT
*
* This is the single place we call LoadResource in the control
* manager.  We use a single entry point to simplify error 
* handling.
*
* The routine that needs LoadResource, pushes space for the result
* the type and id on the stack (just like making the tool call) 
* and JSR's here.
*
* Any error results in a system death.
*
* Inputs:
*	Type        : WORD
*	ID          : ID
*
* Outputs:
*	none
*
* External Refs:
	import CMDieHorribly
*
* Entry Points:
*
	longa on	; mode
	longi on
*
****************************************************************

	DefineStack
TheOrigD	WORD
TheRTS	WORD
TheID	LONG
TheType	WORD


	phd
	tsc
	tcd

	PushWord #$0003	; purge level
	pei TheType
	pei TheID+2
	pei TheID
	_ReleaseResource
	bcc GoodJob
	jmp CMDieHorribly

GoodJob
	pld
	plx
	pla
	pla
	pla
	phx
	rts


	ENDP



	TITLE 'Control Manager Utilities'

;====================================================================
;
;          Push the	contents of the current port.
;
;====================================================================
pushPort	proc EXPORT

	plx	Get return address.
	tsc	Allocate space for port info.
	sec
	sbc #112
	tcs
	phx	Put return address back.
;
	jsr getSavePtr
;
	ldy #110
lop1	lda [<work],y
	sta [<work+4],y
	dey
	dey
	bpl lop1
;
	jsr popSave
	
	rts


; = = = = = = = = =	= = = = = = = = = =	= = = = = =
;          Put content of port off stack.
;100= = = = = = = =	= = = = = = = = = =	= = = = = =
;
	EXPORT popPort
popPort		;       
;
	jsr getSavePtr
;
	ldy #110
lop100	lda [<work+4],y
	sta [<work],y
	dey
	dey
	bpl lop100
;
	jsr popSave
;
	plx	Get return address.
	tsc
	clc
	adc #112
	tcs
	phx	Put return address back.
;
	rts


; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = =	=
;          Compute pointer to part of port to save.
;110= = = = = = = =	= = = = = = = = = =	= = = = = = = = = =	=
;
getSavePtr	plx
	pei <work+6	Save.
	pei <work+4
	pei <work+2
	pei <work
	phx
;
	pha	Get pointer to current port.
	pha
	_GetPort
	pla
	plx
	clc
	adc #$0020
	bcc store110
	inx
store110	sta <work
	stx <work+2
;
	tsc	Compute pointer into stack.
	clc
	adc #13
	sta <work+4
	stz <work+6
	rts
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = =	=
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = =	=
;
popSave	plx
	pla	Restore.
	sta <work
	pla
	sta <work+2
	pla
	sta <work+4
	pla
	sta <work+6
	phx
	
	rts
;
	ENDP


;====================================================================
;
;          Set text	color and writing mode.
;
;   IN:    a = normal color index into color table.
;          colorptr	= pointer to color table.
;          state = 0 for normal, 2 for hilited.
;
;====================================================================
set_textmode	proc EXPORT

	ldy #state
	clc
	adc [<data],y
	tay
	lda [<colorptr],y
	pha	Save color.
	and #$000F	Just text color.
	jsr smear	Duplicate color in all 4 nibbles.
	pha	Pass color of title.
	_SetForeColor	Set text color.
;
	pla	Restore saved color.
	and #$00F0
	pha
	lsr a	Get background color.
	lsr a
	lsr a
	lsr a
	ora 1,s
	sta 1,s
	xba
	ora 1,s
	sta 1,s
	_SetBackColor
;
	pea 0	Copy mode.
	_SetTextMode
;
	rts
	
	ENDP


;====================================================================
;
;          Smear color into all 4 nibbles.
;
;   IN:    a = low nibble is color.
;
;  OUT:    a = low nibble duplicated into all 4 nibbles.
;          x = trash.
;
;====================================================================
smear	proc EXPORT
;
	and #$000F
	pha
	asl a
	asl a
	asl a
	asl a
	ora 1,s
	sta 1,s
	xba
	ora 1,s
	plx
	
	rts
	
	ENDP


;====================================================================
;
;          New icon	font.
;
;   IN:    a,x = handle of new icon font.
;
;====================================================================
SetIconFont	proc EXPORT

	ldy #ctl_font	Store new handle in	global variable.
	sta [<data],y
	iny
	iny
	txa
	sta [<data],y
;
; --- Get parameters of new icon font -----------------------------------
;
	ldx #UP_ARROW	Get size of up arrow icon.
lop110	phx
	jsr get_csize
	plx
;
	ldy #rect2+y2	Save height.
	lda [<data],y
	pha
	lda >arrowMap-UP_ARROW,x
	tay
	pla
	sta [<data],y
	iny
	iny
	phy
	ldy #rect2+x2	Save width.
	lda [<data],y
	ply
	sta [<data],y
;
	inx
	inx
	cpx #RITE_ARROW+2
	bne lop110
;
	rts
	
	ENDP


;====================================================================
;
;          Perform initialization for
;          resolution specific values.
;
;====================================================================
newResGuts	proc EXPORT
	import ComputeScrollColor
	
	pha	Space for result.
	_GetMasterSCB
	pla
	ldy #GraphicsMode
	and #$0080	Mask off mode bit.
	sta [<data],y	Remember mode.
	beq mode320
;
;
; --- Initialize for 640 mode ------------------------------
;
	jsr ComputeScrollColor
;;;	lda #myScrollPatt640	;added 20-Nov-90 DAL
;;;	sta >scroll_color+12	;added 20-Nov-90 DAL


	ldy #2	640 mode vertical line width = 2.
	lda #Ctl640	640 icon font.
	ldx #16	Minimum horizontal thumb size in 640.
	bra enter1
;
;
; --- Initialize for 320 mode ------------------------------
;
mode320	jsr ComputeScrollColor

	ldy #1	320 mode vertical line width = 1.
	ldx #8	Minimum horizontal thumb size in 320.
	lda #Ctl320	320 icon font.
;
enter1	pha
	tya
	ldy #vert_pen	Store vertical line width to use.
	sta [<data],y
	pla
;
	ldy #fontHandle	Store font pointer in fake handle.
	sta [<data],y
	iny
	iny
	lda #Ctl320>>16
	sta [<data],y
;
	ldy #min_thumb	Store minimum thumb	size.
	txa
	sta [<data],y
;
	jsr pushfontHandle
	pla
	plx
	jsr SetIconFont	Save icon font handle, set parameters.
;
	rts

	EndP

**********************************************************************
*
* ComputeScrollColor
*
* Look for a good gray in a likely-looking color palette.  If we can't
* find one, then use $010F (the old checkerboard pattern).  If we find one,
* use $00x0.
*
* We store the new pattern into scroll_color+12, the page color for
* the default scroll bar color table.  If we change the value, we
* call RefreshDesktop(0) to redraw any scroll bars that happen to be
* using the default color table.
*
**********************************************************************

*** 9-Dec-91 DAL -- made this into a proc.  Made it store the new value itself,
*** and also refresh the screen if needed.

ComputeScrollColor proc export

	pha
	_GetMasterSCB
	pla
	and #$0080
	beq @320

	lda #myScrollPatt640
	bra @storeNewValue

@320
	pha
	pea 100
	_GetSCB
	pla
	and #$000f
	asl a
	asl a
	asl a
	asl a
	asl a	;*32 = index into color stuff
	tax
	ldy #16
@search	lda $e19e00,x
	pha

	cmp #$0555	;compare against 4 acceptable gray levels
	beq @found
	cmp #$0666
	beq @found
	cmp #$0777
	beq @found
	cmp #$0888
	beq @found

@noGood	pla
	inx
	inx
	dey
	bne @search

	lda #$010f
	bra @storeNewValue

@found	pla
	txa
	asl a
	asl a
	asl a
	and #$00f0
@storeNewValue	cmp >scroll_color+12
	sta >scroll_color+12
	beq @noChange

*** added 14-Jan-92 DAL -- cause a RefreshDesktop to happen later
	pushlong #refreshDeskTask
	_AddToRunQ
*** end 14-Jan-92

@noChange	rts
*** end 9-Dec-91 DAL


*** added 14-Jan-92 DAL
*
* refreshDeskTask -- redraws the desktop once, when it's safe
* (this task removes itself from the queue)
*
	export refreshDeskTask
refreshDeskTask	dc.l 0	;reserved
	dc.w 0	;call as often as possible
	dc.w $a55a	;signature
	dc.l 0	;reserved for system
entry	lda #0
	pha
	pha
	_RefreshDesktop
	bcc @fine
	cmp #$10
	bcs @fine
	pla
	pla	;clean up after dispatcher error (paranoia)
@fine
	export RemoveRefreshTask
RemoveRefreshTask	pushlong #refreshDeskTask
	_RemoveFromRunQ
	rtl
*** end 14-Jan-92

	ENDP



;====================================================================
;
;          Call SetWAP.
;
;   IN:    a,y = value to set.
;
;====================================================================
setWAP	proc EXPORT

	pea 0	Pass system flag.
	pea CtlToolNum	Pass Window Manager	tool number.
	phy	Pass value.
	pha
	_SetWAP
	
	rts	Return error code from SetWAP.
	
	ENDP


;====================================================================
;
;          Allocate	a block of memory.
;
;   IN:    a = number of bytes to allocate.
;          MyID = ID to use.
;
;  OUT:    Carry clear if handle allocated, a+x = handle.
;          Carry set if error, y = error returned by Memory	Manager.
;
;====================================================================
allocate	proc EXPORT

	pha	Save number of bytes.
	ldy #MyID	Get ID number.
	lda [<data],y
	tay	y = ID number to use to allocate.
	pla	a = number of bytes	to allocate.


; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = = = = =
;
;          Allocate	a block of memory.
;
;   IN:    y = ID number.
;          a = number of bytes.
;
;  OUT:    Carry clear if handle allocated, a+x = handle.
;          Carry set if error, y = error returned by Memory	Manager.
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = = = = =
	EXPORT CMAllocate2
CMAllocate2		;       

	ldx #%0100000000010000 Fixed, May not cross bank boundary.


; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = = = = =
;
;          Allocate	a block of memory.
;
;   IN:    y = ID number.
;          x = attributes.
;          a = number of bytes.
;
;  OUT:    Carry clear if handle allocated, a+x = handle.
;          Carry set if error, y = error returned by Memory	Manager.
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = = = = =
	EXPORT CMAllocate3
CMAllocate3		;       
;
	pha	Space for returned handle.
	pha
	pea 0	High word of size.
	pha	Pass low word of size.
	phy	Pass ID number.
	phx	Pass attributes.
	pha	Address doesn't matter.
	pha
	_NewHandle
	pla	Return handle.
	plx
	
	rts
	
	ENDP


;====================================================================
;          Do setup	for tool call.
;
;   IN:    a+y = handle to data area.
;
;  OUT:    Carry clear if no error.
;          Carry set if null data pointer, y = error code.
;
;150=================================================================
CMstartup	proc EXPORT

	plx	Get return address.
;
	phd	Save caller's direct page.
	phb	Save caller's data page.
;
	phy	Save pointer to data area.
	pha
;
	phx
;
	pha	Space for result.
	pha
	_GetPort
	pla
	ply
	plx	Get return addess.
	phy	Save caller's port on stack.
	pha
;
	tsc	Allocate direct page on stack.
	sec
	sbc #DIRECTSIZE
	tcs
	tcd

;
	phx	Put return address back on stack.
;
	lda <data	Valid data area pointer passed.
	ora <data+2
	clc	Clear error flag.
	bne exit
;
	pea $1002	Control Manager not	started.
	pea notInit>>16	Pass message.
	pea notInit
	_SysFailMgr
;
notInit	DC.B 40
	DC.B 'Control Manager not initialized, error $'
;
exit	rts
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = =
;          Entry points for function exits.
;200= = = = = = = =	= = = = = = = = = =	= = = = = = = =
;
	EXPORT CMpop0bytes
CMpop0bytes		;       
	ldx #0
	bra shutdown
;
	EXPORT CMpop4bytes
CMpop4bytes		;       
	ldx #4
	bra shutdown
;
	EXPORT CMpop6bytes
CMpop6bytes		;       
	ldx #6
	bra shutdown
;
	EXPORT CMpop8bytes
CMpop8bytes		;       
	ldx #8
	bra shutdown
;
	EXPORT CMpop10bytes
CMpop10bytes		;       
	ldx #10
	bra shutdown
;
	EXPORT CMpop12bytes
CMpop12bytes		;       
	ldx #12
	bra shutdown
;
	EXPORT CMpop18bytes
CMpop18bytes		;       
	ldx #18
	bra shutdown
;
	EXPORT CMpop26bytes
CMpop26bytes		;       
	ldx #26
	bra shutdown
;
	EXPORT CMpop32bytes
CMpop32bytes		;       
	ldx #32
	bra shutdown

;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = =
;
;          Undo setup for tool call.
;
;  IN:     y = error code, zero if no error.
;          x = number of bytes to pop.
;          Startup must have been called.
;
;250= = = = = = = =	= = = = = = = = = =	= = = = = = = = =
shutdown		; 
;
	phy	Save error code.
	phx	Save number of byte	to pop.
	pei <savePort+2	Restore caller's port.
	pei <savePort
	_SetPort
	plx	Restore number of bytes to pop.
	ply	Restore error code.
;
;
; --- Restore saved	parameters from startupCall --------------------------
;
	tsc	Free direct page allocated on stack.
	clc
	adc #DIRECTSIZE+8	(Get rid of data area pointer and port).
	tcs
;
	plb	Restore original data bank.
;
;
; --- Move return addresses over top of	input parameters -----------------
;
	tsc
	tcd
	lda 7,s
	sta 7,x
	lda 5,s
	sta 5,x
	lda 3,s
	sta 3,x
;
;
; --- Adjust stact for popped parameters ---
;
	pld	Get original direct	page pointer.
;
	tsc	Current stack,
	phx
	clc
	adc 1,s	plus number of bytes popped,
	tcs	equals new stack.
;
	tya	Return error code in Y.
	cmp #1	Set carry if error.
	
	rtl
;
;
;====================================================================
;        ( op1 * op2 ) / op3
;
;   IN:  x = op1.
;        y = op2.
;        a = op3.
;
;  OUT:  x = result.
;300=================================================================
;	EXPORT fraction
fraction	proc export
;
	pha	Save op3.
;
	pha	Space for LongDivide remainder high.
	pha	Space for LongDivide remainder low.
;
	pha	Space for LongDivide quotient high.
	pha	Space for LongDivide quotient low.
;
;
; --- ( op1 * op2 )	------------------------------
;
	pha	Space for Multiply result.
	pha	Space for Multiply result.
;
	phx	Pass op1.
	phy	Pass op2.
	_Multiply
;
;
; --- ( Result ) / op3 ---------------------------
;
;		Space for result already on stack.
;		Numerator is multiply result on stack.
	pea 0	Pass high word of op3 as denominator.
	lda 11,s
	pha	Pass low word of op3 as denominator.
	_LongDivide
;
;
; --- Round off quotient --------------------------
;
	plx	Quotient.
	lda 7,s	Get op3.
	lsr a	Halve of that.
	cmp 3,s	Is it greater that the remainder?
	bcs skip300
	inx	Round up.
;
;
; --- Fix up stack and exit ------------------------
;
skip300	pla	Pull quotient high word.
	pla	Pull remainder low word.
	pla	Pull remainder high	word.
;
	pla	Pull op3.
	
	rts	x = result.
;
;
;====================================================================
;
;          Set pen color.
;
;   IN:    <colorptr = pointer to a color table.
;          y = offset into the color table.
;
;350=================================================================
;	EXPORT pen_color
pen_color	proc export
;
	jsr pushcolor
	_SetPenPat
	
	rts


;====================================================================
;
;          Push a pointer to a color patteren.
;
;   IN:    colorptr	= pointer to a color table.
;          y = offset into the color table.
;
;400=================================================================
	EXPORT pushcolor
pushcolor

	lda [<colorptr],y
	and #$00F0
	tay
	jsr set_patt
;
	pla	Get return address.
;
	phx	Push pointer to pattern on stack.
	phy
;
	pha	Restore return address.
	
	rts


;====================================================================
;
;          Push long value in data area.
;
;460=================================================================
	EXPORT pushVdrag_patt
pushVdrag_patt		;       
	ldy #drag_patt+2
	bra enter460
;
;	EXPORT pushVctl_font
pushVctl_font	proc export
	ldy #ctl_font+2
;
	export enter460
enter460	plx
	lda [<data],y
	pha
	dey
	dey
	lda [<data],y
	pha
	phx
	
	rts


;====================================================================
;
;          Push address of variable in data area.
;
;470=================================================================
;	EXPORT pushrect2
pushrect2	proc export
	lda #rect2
	bra enter470
;
;	EXPORT pushfontHandle
pushfontHandle	proc export
	lda #fontHandle
	bra enter470
;
	EXPORT pushfontInfo
pushfontInfo		;       
	lda #fontInfo
	bra enter470
;
	EXPORT pushmyevent
pushmyevent		;       
	lda #myevent
	bra enter470
	EXPORT pushmyeventpos
pushmyeventpos		;       
	lda #myevent+where
	bra enter470
;
	EXPORT pushdrag_rect
pushdrag_rect		;       
	lda #drag_rect
	bra enter470
;
	EXPORT pushbound_rect
pushbound_rect		;       
	lda #bound_rect
	bra enter470
;
	EXPORT pushslop_rect
pushslop_rect		;       
	lda #slop_rect
	bra enter470
;
	EXPORT pushlimit_blk
pushlimit_blk		;       
	lda #limit_blk
;
enter470	proc export
	plx
;
	clc
	adc <data
	tay
	lda #0
	adc <data+2
	pha
	phy
;
	phx
	
	rts


;====================================================================
;
;          Push word value from data area.
;
;480=================================================================
;	EXPORT pushVaxis_param
pushVaxis_param	proc export
	ldy #axis_param
	bra enter480
;
;	EXPORT pushVvert_pen
pushVvert_pen	proc export	;added PROC 8-Dec-91 DAL
	ldy #vert_pen
;
	export enter480
enter480	plx
	lda [<data],y
	pha
	phx
	
	rts


;====================================================================
;
;          Push zero page addresses.
;
;  OUT:    Y = same	as in.
;
;500=================================================================
	EXPORT pushyrat
pushyrat
;
	lda #yrat
	bra pushzpage
;
	EXPORT pushrect
pushrect		;       
;
	lda #rect
;
	EXPORT pushzpage
pushzpage		;       
;
	plx	Get return address.
;
	pea 0
	pha
	tdc
	clc
	adc 1,s
	sta 1,s
;
	phx	Put return address back.
	
	rts


;====================================================================
;
;          Get given window pointer.
;
;   IN:    Window pointer must be last parameter passed to tool function.
;
;  OUT:    windptr = pointer to given window.
;          ctlhand = handle of first control in window.
;          ctlptr =	(ctlptr)
;          Carry set if error, y = 0.
;
;550=================================================================
;	EXPORT getWindPtr
getWindPtr	proc export	;added PROC 8-Dec-91 DAL
;
	ldx <inputs+2	Get last input parameter.
	lda <inputs
	bne ok550
	txy
	bne ok550
;
	ldy #0	Don't return an error.
	sec
	
	rts
;
ok550	jsr makeWptr	windptr = window pointer.

;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = = = = 
;
;          Get first control in window.
;
;   IN:    windptr = pointer to window record.
;
;  OUT:    ctlhand = handle of first control in window.
;          ctlptr =	(ctlptr)
;          Carry set if no first control found, y = 0.
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = = = = 
	EXPORT getFirstCtl
getFirstCtl		;       
;
	ldy #owControls+2	Get pointer to first control.
	lda [<windptr],y
	tax
	dey
	dey
	lda [<windptr],y
	bra store550
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = = = = 
;
;          Get given control handle.
;
;   IN:    Control handle must be last parameter passed to tool function.
;
;  OUT:    ctlhand = handle of first control in window.
;          ctlptr =	(ctlptr)
;          Carry set if null handle passed, y = 0.
;
;550= = = = = = = =	= = = = = = = = = =	= = = = = = = = = = = = 
	EXPORT getCtlHand
getCtlHand		;       
;
	lda <inputs
	ldx <inputs+2
;
store550	sta <Ctlhand
	stx <Ctlhand+2
;
	ldy #0	No first control found flag, just in case.
	sec
	ora <Ctlhand+2	Is there a first control?
	beq exit550
;
	jsr dereference	Ctlptr = (Ctlhand).
	clc	OK flag.
;
exit550	rts


;====================================================================
;
;          Get window pointer from control.
;
;   IN:    Ctlptr =	pointer to control.
;
;  OUT:    windptr = pointer to control's window.
;          a = low word of window pointer.
;          x = high	word of window pointer.
;
;600=================================================================
	ENTRY get_wptr
get_wptr		;       
;
	jsr dereference	Ctlptr = (Ctlhand).
	ldy #CtlOwner+2
	lda [<Ctlptr],y
	tax
	dey
	dey
	lda [<Ctlptr],y

;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = =
;
;          Compute window pointer
;          from grafPort pointer.
;
;   IN:    a,x = pointer to grafPort.
;
;  OUT:    a,x = pointer to window record.
;          windptr = pointer to window record.
;
;650= = = = = = = =	= = = = = = = = = =	= = = = = = = = =
	EXPORT makeWptr
makeWptr		;       

	sec
	sbc #oport
	bcs store650
	dex
store650	sta <windptr
	stx <windptr+2
	
	rts


;====================================================================
;
;          Switch to window's port.
;
;   IN:    Ctlptr =	pointer to control.
;
;  OUT:    current port = Ctlptr's owner (window).
;          global_y	= window's Y offset.
;          global_x	= window's X offset.
;
;700=================================================================
	EXPORT to_wport
to_wport		;       

;
; --- Move relevant	data from window port to Control Mgr's port -------------
;
	jsr dereference	Ctlptr = (Ctlhand).
	ldy #CtlOwner+2	Get pointer to window's port.
	lda [<Ctlptr],y
	pha
	dey
	dey
	lda [<Ctlptr],y
	pha
	_SetPort
;
;	                  Fall through to dereference.
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = =
;
;          Dereference Ctlhand.
;
;   IN:    Ctlhand = handle.
;
;  OUT:    a,x = (Ctlhand)
;          Ctlptr =	(Ctlhand)
;
;750= = = = = = = =	= = = = = = = = = =	= = = = = = = =
;;;	EXPORT dereference
dereference	proc export
;
	ldy #2
	lda [<Ctlhand],y
	sta <Ctlptr+2
	tax
	lda [<Ctlhand]
	sta <Ctlptr
	
	rts


; = = = = = = = = =	= = = = = = = = = =	= = = = = = = =
;
;          Push pointer to string.
;
;   IN:    Ctlhand = handle
;          CtlPtr  = ptr
;
;  OUT:    pointer on stack
;
;750= = = = = = = =	= = = = = = = = = =	= = = = = = = =
;;;	EXPORT PushStringPtr
PushStringPtr	proc export
	jsr CtlDataToAX	; start by putting value in Ctldata on stack
	ply
	phx
	pha
	phy

;
; If the control is not a super control, we are done.
;
	ldy #NewCtlRecord.ctlProc+2
	lda [ctlPtr],y
	bpl @Done

;
; It is a super control.  See what the verb is.
;
	jsr ReadMoreFlags
	and #TitleVerbMask
	beq @Done		0 is pointer so all done

	cmp #TitleIsHandle
	beq @IsHandle

@IsResource
	pha
	pha
	PushWord #rString
	jsr CtlDataToAX
	phx
	pha
	jsr LoadResource
	pla
	plx
	sta 3,s
	txa
	sta 5,s

; memory may have moved, so reset ctlPtr
;
	jsr Dereference

@IsHandle
	phd
	tsc
	tcd
	
	ldy #2
	lda [5],y
	tax
	lda [5]
	sta 5
	stx 7

	pld


@Done

	rts



; = = = = = = = = =	= = = = = = = = = =	= = = = = = = =
;
;          ReadMoreFlags
;
;   IN:    Ctlhand = handle
;          CtlPtr  = ptr
;
;  OUT:    a-reg = MoreFlags
;
;750= = = = = = = =	= = = = = = = = = =	= = = = = = = =
;	EXPORT ReadMoreFlags
ReadMoreFlags	proc export
	ldy #NewCtlRecord.ctlMoreFlags
	lda [<Ctlptr],y
	rts


; = = = = = = = = =	= = = = = = = = = =	= = = = = = = =
;
;          GetColorTableRefFromTemplate
;
;   IN:    param = ptrToTemplate
;
;  OUT:    a-reg = offset in template of color table
;
;750= = = = = = = =	= = = = = = = = = =	= = = = = = = =
;	EXPORT GetColorTableRefFromTemplate
GetColorTableRefFromTemplate proc export
	ldy #simpleButtonTemplate.ProcRef+3
	lda [param],y
	and #$007F
	beq @IsButton

; is check or radio
	ldy #checkTemplate.ColorTableRef+2
	bra @join


@IsButton	ldy #simpleButtonTemplate.ColorTableRef+2
@join	lda [param],y
	tax
	dey
	dey
	lda [param],y
	rts



; = = = = = = = = =	= = = = = = = = = =	= = = = = = = =
;
;          CtlDataToAX
;
;   IN:    Ctlhand = handle
;          CtlPtr  = ptr
;
;  OUT:    a-reg & x-reg get value in ctlData 
;
;750= = = = = = = =	= = = = = = = = = =	= = = = = = = =
	EXPORT CtlDataToAX
CtlDataToAX	
	ldy #NewCtlRecord.ctlData+2
	lda [ctlPtr],y
	tax
	dey
	dey
	lda [ctlPtr],y
	rts




;====================================================================
;
;        Smear a mono bit image into color.
;
;  IN:   y = pattern type in high byte,
;            pattern color number in high nybble of low byte,
;            background color in low nibble of low byte.
;
; OUT:   x = high word address of pattern.
;        y = low word address of pattern.
;
;800=================================================================
set_patt	proc EXPORT

	tya	Special case, solid	pattern.
	and #$FF00
	bne begin800

;
; --- Special case black and white --------------------------------
;
	tya
	and #$00F0
	beq @black
	cmp #$00F0
	bne begin800
;
	ldy #clrWhite
	bra exit801
;
@black	ldy #clrBlack
exit801	ldx #clrBlack>>16

	rts

;
; --- Fill pattern buffer with pattern color ----------
;
;  y = color/pattern
;
begin800	pei <work+2	Save work.
	pei <work
;
	ldx <data+2
	lda <data
	clc
	adc #pattern
	bcc store800
	inx
store800	sta <work
	stx <work+2
;
;
	tya	Get pattern color.
	lsr a
	lsr a
	lsr a
	lsr a
	jsr getcolor	Smear color into all four nibbles.
;
	sta [<work]
	cpy #$0100
	bcs dither800
;
	ldy #30
lop800	sta [<work],y
	dey
	dey
	bne lop800
	bra exit800
;
;
; --- Special dither pattern -------------------------------------------
;
dither800	tya
	jsr getcolor
	tay
	and #$F0F0
	pha
	lda [<work]
	and #$0F0F
	ora 1,s
	sta 1,s
;
	tya
	and #$0F0F
	pha
	lda [<work]
	and #$F0F0
	ora 1,s
	sta 1,s
;
	ldy #GraphicsMode-1
	lda [<data],y
	tax	Keep mode in X.
	bpl mode320	What's the mode, 320 or 640?
;
*** 8-Dec-91 DAL -- use 32-byte patt in 640 mode if ArcRot bit 15 is set!
	pha
	_GetArcRot
	ldx #0	;anticipate arcrot640, handle like 320
	pla
	bmi mode320
	ldx #$8000	;plain 640 mode
*** end 8-Dec-91
	ldy #14	640 mode index.
	bra lop801
;
mode320	ldy #30	320 mode index.
;
lop801	jsr set1
	txa
	bmi skip800
	jsr set1
;
skip800	jsr set2
	bmi done800
	txa
	bmi lop801
	jsr set2
	bpl lop801
;
;
done800	pla
	pla
;
;
exit800	ldy <work	Return pointer to pattern.
	ldx <work+2
;
	pla	Restore work.
	sta <work
	pla
	sta <work+2
	
	rts
;
;
set1	lda 5,s
	bra enter2
;
;
set2	lda 3,s
enter2	sta [<work],y
	dey
	dey
	
	rts

;====================================================================
;
;   IN:    a = color in low nibble.
;
;  OUT:    a = color in all four nibbles.
;
;====================================================================
getcolor	and #$000F
	pha
	asl a
	asl a
	asl a
	asl a
	ora 1,s
	sta 1,s
	xba
	ora 1,s
	plx
	
	rts
;
	ENDP


;====================================================================
;
;        Draw a solid rectangle with border.
;
;  IN:     <rect = RECT to draw.
;          <colorptr = pointer to color	table.
;          y = color of fill in bits 4-7.
;          a = color of outline in bits	4-7.
;
;====================================================================
drawrect	proc EXPORT

fillColor	equ 1
frameColor	equ fillColor+2

;
; --- Use special fill & frame RECT call ---------------------
;
	pha	Save outline color.
	phy	Save fill color.
;
	jsr pushrect	Pass pointer to RECT to draw.
	lda frameColor+4,s	Get color of frame,
	jsr pushSmear	smear into 4 nibbles and push.
	lda fillColor+6,s	Get fill color,
	jsr pushSmear	smear into 4 nibbles and push.
	_SpecialRect
	bcc exit	No error?
;
	tsc	Fix stack from SpecialRect call.
	clc
	adc #8
	tcs
;
;
; --- Use slower separate fill & frame calls -----------------
;
	_PenNormal
;
	jsr setvertpen	Set line size.
;
	lda frameColor,s	Set pen color.
	beq skip1	Color already set?
	jsr pushSmear
	_SetSolidPenPat
;
skip1	jsr pushrect	Pass RECT to fill.
	lda fillColor+4,s
	tay
	jsr set_patt
	phx	Push pointer to pattern.
	phy
	_FillRect
;
	jsr pushrect	Pass RECT to frame.
	_FrameRect
;
exit	ply	Get rid of fill color.
	pla	Get rid of outline color.
	
	rts


; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = =
;
;          Smear color and push.
;
;   IN:    a = color to smear in bits 4-7.
;
;  OUT:    Color smeared into all 4 nibbles and left on stack.
;
;100= = = = = = = =	= = = = = = = = = =	= = = = = = = = =
pushSmear	plx	Get return address.
;
	pha
	lsr a
	lsr a
	lsr a
	lsr a
	ora 1,s
	sta 1,s
	xba
	ora 1,s
	sta 1,s
;
	phx
	
	rts


; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = =
;
;        Get pointer to next control.
;
;   IN:  Ctlptr = pointer to a control.
;
;  OUT:  Equal flag	= FALSE if ok, else	no more controls.
;
;860= = = = = = = =	= = = = = = = = = =	= = = = = = = = =
	EXPORT next_Ctl
next_Ctl		;       
;
	lda [<Ctlptr]
	tax
	ldy #2
	lda [<Ctlptr],y
	bne store860
	txy
	beq exit860
;
store860	sta <Ctlhand+2
	stx <Ctlhand
	jsr dereference	Ctlptr = (Ctlhand).
	lda <ctlptr+1	Set not equal flag.
exit860	rts


; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = =
;
;          Get bounds RECT of icon.
;
;   IN:    x = icon	number.
;
;  OUT:    rect2+y2	= height of character.
;          rect2+x2	= width of character.
;
;870= = = = = = = =	= = = = = = = = = =	= = = = = = = = =
	EXPORT get_csize
get_csize		;       
;
	stx <work	Pass character to test.

; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = =
;
;   IN:    work = character to get bounds of.
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = =
	EXPORT get_csize2
get_csize2		       
	lda #getCharBounds
;	                  	Fall through to doIconFunc.
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = =
;
;          Perform a task that needs the
;          icon font as the current font.
;
;   IN:    a = address of function to perform.
;
;880= = = = = = = =	= = = = = = = = = =	= = = = = = = = =
	EXPORT doIconFunc
doIconFunc		;       

	pha	Save function to call.
;
;
; --- Save state of	grafPort ---------------------------------
;
	pha	Save original text face.
	_GetTextFace
;
	pha	Save original font flags.
	_GetFontFlags
;
	pha	Save original font ID.
	pha
	_GetFontID
;
	pha	Save original font
	pha
	_GetFont
;
;
; --- Clear text face, switch to icon font and call function ------------------
;
	pea 0000
	_SetTextFace
;
	jsr pushVctl_font	Swicth to icon font.
	_SetFont
;
	pea 4	Use word of color.
	_SetFontFlags

	pea returnAddr-1	Put return address on stack.

;
; The stack at this point is
;
	DefineStack
TheRetAddr	word	; 1
OrigFont	long	; 3
OrigFontID	long	; 7
OrigFontFlags	word	; 11
OrigTextFace	word	; 13
FuncToCall	word	; 15

	lda FuncToCall,s	Put address of function on stack,
	dec a
	pha
	
	rts	and dispatch to it.
returnAddr		; 

;
; --- Restore state	of grafPort ------------------------------
;
	_SetFont	Restore original font.
	_SetFontID	Restore original font ID.
	_SetFontFlags	Restore original font flags.
	_SetTextFace	Restore original text face.
;
	pla	Address of function.
	
	rts
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = =
;
;          Get size	of character.
;
;   IN:    work = character to get size	of.
;
;  OUT:    rect2+y2	= height of character.
;          rect2+x2	= width of character.
;
;890= = = = = = = =	= = = = = = = = = =	= = = = = = = = =
getCharBounds		; 
;
	pei <work	Pass character to get bounds of.
	jsr pushrect2	Store the bounds in	'rect2'.
	_CharBounds
;
	ldy #rect2+y2	Compute icon's heigth.
	lda [<data],y
	sec
	ldy #rect2+y1
	sbc [<data],y
	ldy #rect2+y2
	sta [<data],y
;
	ldy #rect2+x2	Compute icon's width.
	lda [<data],y
	sec
	ldy #rect2+x1
	sbc [<data],y
	ldy #rect2+x2
	sta [<data],y
	
	rts


; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = =
;
;        Move control's CtlRect into 'rect'.
;
;   IN:  Ctlptr = control pointer.
;
;  OUT:  rect = CtlRect of part.
;
;900= = = = = = = =	= = = = = = = = = =	= = = = = = = = =
	EXPORT CMsetrect
CMsetrect		;       
	ldy #CtlRect+x2	Put CtlRect into rect.


	EXPORT CMsetrect2
CMsetrect2		;       
	ldx #x2
lop900	lda [<Ctlptr],y
	sta <rect,x
	dey
	dey
	dex
	dex
	bpl lop900
	
	rts
;
	ENDP


;            APPEND	CSTATIC.ASM
;
;====================================================================
;
;          Static data area.
;
;====================================================================
staticRAM	PROC
;
;
	EXPORT arrowMap
arrowMap	DC.W uArrowH,dArrowH,lArrowH,rArrowH
;
	EXPORT Dimmed
dimmed	DC.B $55,$AA,$55,$AA,$55,$AA,$55,$AA Dithered mask for pen.
	EXPORT Nor_Mask
nor_mask	DC.B $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF Normal mask for pen.
;
	EXPORT clrBlack
clrBlack	DC.W $0000	Solid black pattern.
	DC.W $0000
	DC.W $0000
	DC.W $0000
	DC.W $0000
	DC.W $0000
	DC.W $0000
	DC.W $0000
	DC.W $0000
	DC.W $0000
	DC.W $0000
	DC.W $0000
	DC.W $0000
	DC.W $0000
	DC.W $0000
	DC.W $0000
	
	EXPORT clrWhite
clrWhite	DC.W $FFFF	Solid white pattern.
	DC.W $FFFF
	DC.W $FFFF
	DC.W $FFFF
	DC.W $FFFF
	DC.W $FFFF
	DC.W $FFFF
	DC.W $FFFF
	DC.W $FFFF
	DC.W $FFFF
	DC.W $FFFF
	DC.W $FFFF
	DC.W $FFFF
	DC.W $FFFF
	DC.W $FFFF
	DC.W $FFFF
;
;
; --- Default color	table for simple buttons -----------------
;
	EXPORT butt_color
butt_color	DC.W $0000	Outline.
	DC.W $00F0	Interior when normal.
	DC.W $0000	Interior when selected.
	DC.W $00F0	Text when normal.
	DC.W $000F	Text when selected.
;
;
; --- Default color	table for check boxes and radio buttons	--
;
	EXPORT check_color
check_color	DC.W $0000	Outline.
	DC.W $00F0	Icon when unhilited.
	DC.W $00F0	Icon when hilited.
	DC.W $00F0	Title color.
;
;
; --- Default color	table for scroll bars --------------------
;
	EXPORT scroll_color
scroll_color	DC.W $0000	Outline.
	DC.W $00F0	Arrow when normal.
	DC.W $00F0	Arrow when selected.
	DC.W $00F0	Arrow's box interior.
	DC.W $00F0	Thumber when normal.
	DC.W $0000	Not used and should	never be used.
*****	DC.W $010F	Page region interior.
	dc.w $00C0	Page region interior.  Experimental 20-Nov-90 DAL (This gets stored over by newresguts)
	DC.W $00F0	Interior color of inactive bar.
;
;
; --- Default color	table for grow box -----------------------
;
	EXPORT grow_color
grow_color	DC.W $0000	Outline.
	DC.W $00F0	Interior when normal.
	DC.W $000F	Interior when selected.
;
;
; --- Control Manager icon font -------------------------------
;
	EXPORT ctl320
ctl320		; 
;
	DC.W $0006	{offset word}
	DC.W $00D1	{FontID}
	DC.W $0000	{style}
	DC.W $000A	{size}
	DC.W $0100	{version}
	DC.W $000D	{FBRext}
;
	DC.W $9001	{FontType}
	DC.W $0000	{FirstChar}
	DC.W $0010	{LastChar}
	DC.W $000D	{WidMax}
	DC.W $0000	{KernMax}
	DC.W $FFF7	{nDescent}
	DC.W $000D	{fRectWidth}
	DC.W $0009	{FrectHeight}
	DC.W 132	{owTLoc}
	DC.W $0000	{ascent}
	DC.W $0009	{descent}
	DC.W $0000	{leading}
	DC.W 12	{RowWords}
;
; BitImage:
	DC.B $FF,$FF,$FF,$FF,$FF,$FF,$F0,$F0,$0F,$00,$F0,$0F,$00,$80,$40,$F8,$7C,$08,$04,$02,$01,$0F,$80,$00
	DC.B $80,$0F,$FF,$F0,$07,$FF,$F3,$0C,$39,$C3,$0C,$39,$C1,$40,$E0,$88,$7C,$18,$0C,$03,$01,$88,$80,$00
	DC.B $80,$0F,$01,$EC,$1B,$E0,$F4,$02,$60,$64,$F2,$6F,$62,$21,$F0,$88,$7C,$2F,$9F,$FE,$9F,$C8,$F8,$00
	DC.B $80,$0F,$01,$E3,$63,$DB,$78,$01,$C0,$39,$F9,$DF,$B4,$13,$F8,$88,$7C,$40,$BF,$E0,$5F,$E8,$88,$00
	DC.B $80,$0F,$01,$E0,$83,$C4,$78,$01,$C0,$3B,$FD,$DF,$BE,$3F,$FF,$8F,$FF,$80,$FF,$E0,$3F,$FF,$88,$00
	DC.B $80,$0F,$01,$E3,$63,$DB,$78,$01,$C0,$39,$F9,$DF,$B2,$21,$F1,$04,$FE,$40,$BF,$E0,$5F,$E2,$08,$00
	DC.B $80,$0F,$01,$EC,$1B,$E0,$F4,$02,$60,$64,$F2,$6F,$62,$21,$F0,$88,$7C,$2F,$9F,$FE,$9F,$C2,$08,$00
	DC.B $80,$0F,$FF,$F0,$07,$FF,$F3,$0C,$39,$C3,$0C,$39,$C2,$21,$F0,$50,$38,$18,$0C,$03,$01,$82,$08,$00
	DC.B $FF,$FF,$FF,$FF,$FF,$FF,$F0,$F0,$0F,$00,$F0,$0F,$03,$E1,$F0,$20,$10,$08,$04,$02,$01,$03,$F8,$00
;
; LocTable:
	DC.W 0	0   Unchecked box normal.
	DC.W 13	1   Unchecked box hilited.
	DC.W 26	2   Checked box normal.
	DC.W 39	3   Checked box hilited.
	DC.W 52	4   Off radio button normal.
	DC.W 64	5   Off radio button hilited.
	DC.W 76	6   On radio button normal.
	DC.W 88	7   On radio button	hilited.
	DC.W 100	8   Up arrow normal.
	DC.W 109	9   Up arrow hilited.
	DC.W 118	10  Down arrow normal.
	DC.W 127	11  Down arrow hilited.
	DC.W 136	12  Left arrow normal.
	DC.W 145	13  Left arrow hilited.
	DC.W 154	14  Right arrow normal.
	DC.W 163	15  Right arrow hilited.
	DC.W 172	16  Grow icon.
	DC.W 181	17  End of table.
	DC.W 181	18
;
; OWTable:
	DC.W 13	0   Unchecked box normal.
	DC.W 13	1   Unchecked box hilited.
	DC.W 13	2   Checked box normal.
	DC.W 13	3   Checked box hilited.
	DC.W 11	4   Off radio button normal.
	DC.W 11	5   Off radio button hilited.
	DC.W 11	6   On radio button normal.
	DC.W 11	7   On radio button	hilited.
	DC.W 9	8   Up arrow normal.
	DC.W 9	9   Up arrow hilited.
	DC.W 9	10  Down arrow normal.
	DC.W 9	11  Down arrow hilited.
	DC.W 9	12  Left arrow normal.
	DC.W 9	13  Left arrow hilited.
	DC.W 9	14  Right arrow normal.
	DC.W 9	15  Right arrow hilited.
	DC.W 9	16  Grow icon.
	DC.W $0404	17  End of table.
	DC.W 0	18
;
;
;
;
	EXPORT ctl640
ctl640		; 
;
	DC.W $0006	; {offset word}
	DC.W $00D2	; {FontID}
	DC.W $0000	; {style}
	DC.W $000A	; {size}
	DC.W $0100	; {version}
	DC.W $0017	; {FBRext}

	DC.W $9001	; {FontType}
	DC.W $0000	; {FirstChar}
	DC.W $0010	; {LastChar}
	DC.W $0017	; {WidMax}
	DC.W $0000	; {KernMax}
	DC.W $FFF7	; {nDescent}
	DC.W $0017	; {fRectWidth}
	DC.W $0009	; {FrectHeight}
	DC.W $00DE	; {owTLoc}
	DC.W $0000	; {ascent}
	DC.W $0009	; {descent}
	DC.W $0000	; {leading}
	DC.W $0016	; {RowWords}
;
; BitImage:
	DC.B $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$3F,$E0,$01,$FF
	DC.B $00,$0F,$F8,$00,$7F,$C0,$00,$C0,$00,$30,$00,$FF,$C0,$3F,$F0,$00
	DC.B $E0,$00,$38,$00,$1C,$00,$07,$00,$FF,$C0,$00,$00,$C0,$00,$07,$FF
	DC.B $FF,$FF,$C0,$00,$7F,$FF,$FF,$F1,$C0,$1C,$0F,$FF,$E0,$70,$07,$03
	DC.B $FF,$F8,$03,$30,$00,$FC,$00,$C0,$C0,$3F,$F0,$03,$60,$00,$F8,$00
	DC.B $1B,$00,$07,$C0,$C0,$C0,$07,$F0,$C0,$00,$07,$F0,$00,$7F,$38,$03
	DC.B $9F,$F0,$07,$F6,$00,$03,$3F,$01,$F9,$87,$F0,$CF,$C0,$7E,$0C,$0C
	DC.B $03,$FF,$00,$C0,$C0,$3F,$F0,$0C,$7F,$C3,$FF,$FF,$F8,$C3,$FF,$F0
	DC.B $C0,$FF,$C0,$7F,$C0,$00,$07,$F0,$00,$7F,$07,$1C,$1F,$CE,$39,$FC
	DC.B $00,$01,$FC,$00,$7F,$1F,$FC,$7F,$1F,$1F,$30,$03,$0F,$FF,$C0,$C0
	DC.B $C0,$3F,$F0,$30,$00,$CF,$FF,$FC,$00,$33,$FF,$FC,$C0,$C0,$C3,$03
	DC.B $C0,$00,$07,$F0,$00,$7F,$00,$E0,$1F,$C1,$C1,$FC,$00,$01,$F8,$00
	DC.B $3F,$3F,$FE,$7E,$3F,$8F,$FC,$0F,$FF,$FF,$FF,$C0,$FF,$FF,$FF,$C0
	DC.B $00,$FF,$FF,$FC,$00,$0F,$FF,$FF,$FF,$C0,$C7,$0C,$C0,$00,$07,$F0
	DC.B $00,$7F,$07,$1C,$1F,$CE,$39,$FC,$00,$01,$FC,$00,$7F,$1F,$FC,$7F
	DC.B $1F,$1F,$0C,$0C,$03,$FF,$03,$00,$30,$FF,$FC,$30,$00,$CF,$FF,$FC
	DC.B $00,$33,$FF,$FC,$18,$00,$C3,$D8,$C0,$00,$07,$F0,$00,$7F,$38,$03
	DC.B $9F,$F0,$07,$F6,$00,$03,$3F,$01,$F9,$87,$F0,$CF,$C0,$7E,$0C,$0C
	DC.B $03,$FF,$00,$C0,$C0,$3F,$F0,$0C,$7F,$C3,$FF,$FF,$F8,$C3,$FF,$F0
	DC.B $18,$00,$C0,$C0,$C0,$00,$07,$FF,$FF,$FF,$C0,$00,$7F,$FF,$FF,$F1
	DC.B $C0,$1C,$0F,$FF,$E0,$70,$07,$03,$FF,$F8,$0C,$0C,$03,$FF,$00,$33
	DC.B $00,$0F,$C0,$03,$60,$00,$F8,$00,$1B,$00,$07,$C0,$18,$00,$C7,$FE
	DC.B $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$3F,$E0,$01,$FF
	DC.B $00,$0F,$F8,$00,$7F,$C0,$0F,$FC,$03,$FF,$00,$0C,$00,$03,$00,$00
	DC.B $E0,$00,$38,$00,$1C,$00,$07,$00,$1F,$FF,$C0,$AF
;
; LocTable:
	DC.W $0000	; Char (00)
	DC.W $0017	; Char (01)
	DC.W $002E	; Char (02)
	DC.W $0045	; Char (03)
	DC.W $005C	; Char (04)
	DC.W $0071	; Char (05)
	DC.W $0086	; Char (06)
	DC.W $009B	; Char (07)
	DC.W $00B0	; Char (08)
	DC.W $00C2	; Char (09)
	DC.W $00D4	; Char (0A)
	DC.W $00E6	; Char (0B)
	DC.W $00F8	; Char (0C)
	DC.W $010A	; Char (0D)
	DC.W $011C	; Char (0E)
	DC.W $012E	; Char (0F)
	DC.W $0140	; Char (10)
	DC.W $0152	; Char (11)
	DC.W $0152	; Char (12)
;
; OWTable:
	DC.W $0017	; Char (00)
	DC.W $0017	; Char (01)
	DC.W $0017	; Char (02)
	DC.W $0017	; Char (03)
	DC.W $0015	; Char (04)
	DC.W $0015	; Char (05)
	DC.W $0015	; Char (06)
	DC.W $0015	; Char (07)
	DC.W $0012	; Char (08)
	DC.W $0012	; Char (09)
	DC.W $0012	; Char (0A)
	DC.W $0012	; Char (0B)
	DC.W $0012	; Char (0C)
	DC.W $0012	; Char (0D)
	DC.W $0012	; Char (0E)
	DC.W $0012	; Char (0F)
	DC.W $0012	; Char (10)
	DC.W $0404	; Char 'H'
	DC.W $0000	; Char 'I'
;
	ENDP




	END

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/ControlMgr/CtlCustomEqus.asm b/IIGS.601.SRC/GSToolbox/ControlMgr/CtlCustomEqus.asm
new file mode 100644
index 0000000..0339743
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/ControlMgr/CtlCustomEqus.asm
@@ -0,0 +1 @@
+; File: E16.Control
;
; Copyright Apple Computer, Inc. 1986-87, 1991-92
; All Rights Reserved
;
; 11-Mar-91 DAL
;   Added optional 9th field to Line Edit control template (password character)
;
; 23-Mar-92 DAL
;   Added optional keyMask field to Line Edit control template.
;

obarOutline	EQU $00	; Word - BarColors - color for outlining bar, arrows, and thumb
obarNorArrow	EQU $02	; Word - BarColors - color of arrows when not highlighted
obarSelArrow	EQU $04	; Word - BarColors - color of arrows when highlighted
obarArrowBack	EQU $06	; Word - BarColors - color of arrow box's background
obarNorThumb	EQU $08	; Word - BarColors - color of thumb's background when not highlighted
obarSelThumb	EQU $0A	; Word - BarColors - color of thumb's background when highlighted
obarPageRgn	EQU $0C	; Word - BarColors - color and pattern page region: high byte - 1= dither, 0 = solid
obarInactive	EQU $0E	; Word - BarColors - color of scroll bar's interior when inactive

oboxReserved	EQU $00	; Word - BoxColors - reserved
oboxNor	EQU $02	; Word - BoxColors - color of box when not checked
oboxSel	EQU $04	; Word - BoxColors - color of box when checked
oboxTitle	EQU $06	; Word - BoxColors - color of check box's title

obttnOutline	EQU $00	; Word - BttnColors	- color of outline
obttnNorBack	EQU $02	; Word - BttnColors	- color of background when not selected
obttnSelBack	EQU $04	; Word - BttnColors	- color of background when selected
obttnNorText	EQU $06	; Word - BttnColors	- color of title's text when not selected
obttnSelText	EQU $08	; Word - BttnColors	- color of title's text when selected

oradReserved	EQU $00	; Word - RadioColors - reserved
oradNor	EQU $02	; Word - RadioColors - color of radio button when off
oradSel	EQU $04	; Word - RadioColors - color of radio button when on
oradTitle	EQU $06	; Word - RadioColors - color of radio button's title text

octlNext	EQU $00	; CtlRecHndl - CtlRec - Handle of next control.
octlOwner	EQU $04	; GrafPortPtr - CtlRec - Pointer to control's window.
octlRect	EQU $08	; Rect - CtlRec - Enclosing rectangle.
octlFlag	EQU $10	; Byte - CtlRec - Bit flags.
octlHilite	EQU $11	; Byte - CtlRec - Highlighted part.
octlValue	EQU $12	; Integer - CtlRec - Control's value.
octlProc	EQU $14	; Pointer - CtlRec - Control's definition procedure.
octlAction	EQU $18	; Pointer - CtlRec - Control's action procedure.
octlData	EQU $1C	; Longint - CtlRec - Reserved for CtrlProc's use.
octlRefCon	EQU $20	; Longint - CtlRec - Reserved for application's use.
octlColor	EQU $24	; Pointer - CtlRec - Pointer to appropriate color table.

oboundRect	EQU $00	; Rect - LimitBlk -	Drag bounds.
oslopRect	EQU $08	; Rect - LimitBlk -	Cursor bounds.
oaxisParam	EQU $10	; Word - LimitBlk -	Movement constrains.
odragPatt	EQU $12	; Pointer - LimitBlk - Pointer to 32 byte Pattern for drag outline.

noConstraint	EQU $0000	; Axis Parameter - No constraint on movement.
hAxisOnly	EQU $0001	; Axis Parameter - Horizontal axis only.
vAxisOnly	EQU $0002	; Axis Parameter - Vertical axis only.

simpRound	EQU $0000	; CtlFlag - Simple button flag
upFlag	EQU $0001	; CtlFlag - Scroll bar flag. 
boldButton	EQU $0001	; CtlFlag - Bold round cornered outlined button.
simpBRound	EQU $0001	; CtlFlag - Simple button flag
downFlag	EQU $0002	; CtlFlag - Scroll bar flag.
simpSquare	EQU $0002	; CtlFlag - Simple button flag
simpDropSquare	EQU $0003	; CtlFlag - Simple button flag
leftFlag	EQU $0004	; CtlFlag - Scroll bar flag.
rightFlag	EQU $0008	; CtlFlag - Scroll bar flag.
dirScroll	EQU $0010	; CtlFlag - Scroll bar flag.
horScroll	EQU $0010	; CtlFlag - Scroll bar flag.
family	EQU $007F	; CtlFlag - Mask for radio button family number
partOfExtendedList	equ $0040	; CtlFlag - Scroll bar flag (added 9-Dec-91 DAL)
ctlInVis	EQU $0080	; CtlFlag - invisible mask for any type	of control 

simpleProc	EQU $00000000	; CtlProc -  
checkProc	EQU $02000000	; CtlProc -  
radioProc	EQU $04000000	; CtlProc -  
scrollProc	EQU $06000000	; CtlProc -  
growProc	EQU $08000000	; CtlProc -  

drawCtl	EQU $0000	; DefProc - Draw control command.
calcCRect	EQU $0001	; DefProc - Compute	drag RECT command.
testCtl	EQU $0002	; DefProc - Hit test command.
initCtl	EQU $0003	; DefProc - Initialize command.
dispCtl	EQU $0004	; DefProc - Dispose	command.
posCtl	EQU $0005	; DefProc - Move indicator command.
thumbCtl	EQU $0006	; DefProc - Compute	drag parameters command.
dragCtl	EQU $0007	; DefProc - Drag command.
autoTrack	EQU $0008	; DefProc - Action command.
newValue	EQU $0009	; DefProc - Set new	value command.
setParams	EQU $000A	; DefProc - Set new	parameters command.
moveCtl	EQU $000B	; DefProc - Move command.
recSize	EQU $000C	; DefProc - Return record size command.

noHilite	EQU $0000	; hiliteState - Param to HiliteControl
inactiveHilite	EQU $00FF	; hiliteState - Param to HiliteControl

noPart	EQU $0000	; PartCode -  
simpleButton	EQU $0002	; PartCode -  
checkBox	EQU $0003	; PartCode -  
radioButton	EQU $0004	; PartCode -  
upArrow	EQU $0005	; PartCode -  
downArrow	EQU $0006	; PartCode -  
pageUp	EQU $0007	; PartCode -  
pageDown	EQU $0008	; PartCode -  
growBox	EQU $000A	; PartCode -  
thumb	EQU $0081	; PartCode -  
; PartCode -  





;-----------------------------------------------------------
;
; New stuff for super controls


;-----------------------------------------------------------
;
; Equates for Control Types

simpleButtonControl	equ  $80000000
checkControl	equ  $82000000
radioControl	equ  $84000000
scrollBarControl	equ  $86000000
growControl	equ  $88000000
statTextControl	equ  $81000000
LineEditControl	equ  $83000000
TextEditControl	equ  $85000000
popUpControl	equ  $87000000
listControl	equ  $89000000
iconButtonControl	equ  $07FF0001
pictureControl	equ  $8D000000


;-----------------------------------------------------------
;
; New action messages supported by some controls
;
ctlHandleEvent	equ  13	;Send the event record to control
ctlChangeActivity	equ  14	;The activity bit in MoreFlags just changed.
ctlChangeBounds	equ  15
ctlWindChangeSize   equ  16
ctlHandleTab	equ  17
ctlNotifyMultiPart	equ  18	;Called if set and when HideControl is called
ctlWinStateChange	equ  19	;Called if window state changes.


;-----------------------------------------------------------
;
; Old Error codes for control manager.
;
wmNotStartedUp	equ  $1001	; window mgr. not started first error



;-----------------------------------------------------------
;
; New Error codes for control manager.
;
NoCtlError	equ $1004	;no controls in window
NoSuperCtlError 	equ $1005	;no super controls in window
NoCtlTargetError	equ $1006	;no Target super control
NotSuperCtlError	equ $1007	;action can only be done on super control
CanNotBeTargetError	equ $1008	;This control cannot be made Target
NoSuchIDError	equ $1009	;The specified ID cannot be found
TooFewParmsError	equ $100A	;there were not enough parameters specified.
NoCtlToBeTargetError equ $100B	;Tried to make next ctl Target, but no ctls could be Target.




;-----------------------------------------------------------
;
; MoreFlags Bit Definitions
;

FCtlTarget	equ  $8000
FCtlCanBeTarget	equ  $4000
FCtlWantEvents	equ  $2000
FCtlProcRefNotPtr	equ  $1000
FctlTellAboutSize	equ  $0800


TitleVerbMask	equ  %00000011
ColorTableVerbMask	equ  %00001100
IVVerbMask	equ  %00000011

TitleIsPtr	equ  0
TitleIsHandle	equ  1
TitleIsResource	equ  2
TitleIsOffset	equ  3

ColorTableIsPtr	 equ  %00000000
ColorTableIsHandle	 equ  %00000100
ColorTableIsResource equ  %00001000
ColorTableIsOffset	 equ  %00001100

IVIsPtr	equ  0
IVIsHandle	equ  1
IVIsResource	equ  2
IVIsOffset	equ  3

;-----------------------------------------------------------
;
; Flag bit definitions for StatText Controls
;
fJustDrawFast	equ  $0004	; Bit set to just call DrawString instead of LETextBox2 (DAL)
FSubstituteText	equ  $0002	; Bit is set to indicate that text must be substituted
FSubTextType	equ  $0001	; Bit is set to indicate PStrings, clear for Cstrings
		;  (bit is sent to compile text as is.)



;---------------------------------------------------------------
; these are the verbs that NewControl2 supports:
;---------------------------------------------------------------
singlePtr	equ  0
singleHandle	equ  1
singleResource	equ  2
ptrToPtr	equ  3
ptrToHandle	equ  4
ptrToResource	equ  5
handleToPtr	equ  6
handleToHandle	equ  7
handleToResource	equ  8
resourceToResource	equ  9


NewCtlRecord	RECORD  0
;---------------------------------------------------------------
ctlNext	ds.l  1
ctlOwner	ds.l  1
ctlRect	ds.w  4
ctlFlag	ds.b  1
ctlHilite	ds.b  1
ctlValue	ds.w  1
ctlProc	ds.l  1
ctlAction	ds.l  1
ctlData	ds.l  1
ctlRefCon	ds.l  1
ctlColor	ds.l  1
ctlReserved	ds.b  16
ctlID	ds.l  1
ctlMoreFlags	ds.w  1
ctlVersion	ds.w  1
ctlOptionalData
RecordSize
;---------------------------------------------------------------
; Values kept in ctlReserved by various controls
;---------------------------------------------------------------
;
; Button Controls
;
ctlKey1	equ ctlReserved
ctlKey2	equ ctlKey1+1
ctlKeyMods	equ ctlKey2+1
ctlKeyModsCareBits	equ ctlKeyMods+2
;
; StatText Controls
;
ctlJust	equ ctlReserved

	ENDR






MINTEMPLATEPCOUNT	equ 6

;-----------------------------------------------------------
;
; This is the generic template record.  All templates have
; these fields in them.
;
TemplateRecord	RECORD  0

pCount	ds.w  1	;parameter count (must be at least 6)
ID	ds.l  1	;ID for the control 
Rect	ds.w  4	;bounding rectangle
ProcRef	ds.l  1	;Ref to DefProc, determines control type
Flags	ds.w  1	;old style flag word
MoreFlags	ds.w  1	;new flag word
RefCon	ds.l  1	;application defined
RecordSize
	ENDR

;-----------------------------------------------------------
;
; This is the generic template record.  All templates have
; these fields in them.
;
CustomTemplate	RECORD  0

pCount	ds.w  1	;parameter count (must be at least 8)
ID	ds.l  1	;ID for the control 
Rect	ds.w  4	;bounding rectangle
ProcRef	ds.l  1	;Ref to DefProc, determines control type
Flags	ds.w  1	;old style flag word
MoreFlags	ds.w  1	;new flag word
RefCon	ds.l  1	;application defined
defProcDATA	ds.b  1
RecordSize
	ENDR


;-----------------------------------------------------------
;
; This is the template for simpleButtonControl.
;
simpleButtonTemplate RECORD  0

pCount	ds.w  1	;parameter count (7 or 8)
ID	ds.l  1	;ID for the control 
Rect	ds.w  4	;bounding rectangle
ProcRef	ds.l  1	;simpleButtonControl = $80000000
Flag	ds.w  1	;low 2 bits refer to button type
MoreFlags	ds.w  1	;bits 0-3 refer to titleref and colortable ref
RefCon	ds.l  1	;application defined
TitleRef	ds.l  1	;Pointer, Handle, resourceID, or Offset
ColorTableRef	ds.l  1	;Optional Pointer, Handle, resourceID, or Offset
Key1	ds.b  1	;Optional key equivalent
Key2	ds.b  1	;Optional key equivalent
KeyMods	ds.w  1	;Required modifiers
KeyModsCareBits	ds.w  1	;Mask indicating which mods matter.
RecordSize
	ENDR

;-----------------------------------------------------------
;
; This is the template for checkControl.
;
checkTemplate 	RECORD  0

pCount	ds.w  1	;parameter count (8 9)
ID	ds.l  1	;ID for the control 
Rect	ds.w  4	;bounding rectangle
ProcRef	ds.l  1	;checkControl = $82000000
Flag	ds.w  1	;nothing special
MoreFlags	ds.w  1	;bits 0-3 refer to titleref and colortable ref
RefCon	ds.l  1	;application defined
TitleRef	ds.l  1	;Pointer, Handle, resourceID, or Offset
Value	ds.w  1	;Initial state of check box
ColorTableRef	ds.l  1	;Optional Pointer, Handle, resourceID, or Offset
Key1	ds.b  1	;Optional key equivalent
Key2	ds.b  1	;Optional key equivalent
KeyMods	ds.w  1	;Required modifiers
KeyModsCareBits	ds.w  1	;Mask indicating which mods matter.
RecordSize
	ENDR

;-----------------------------------------------------------
;
; This is the template for radioControl.
;
radioTemplate	RECORD  0

pCount	ds.w  1	;parameter count (8 9)
ID	ds.l  1	;ID for the control 
Rect	ds.w  4	;bounding rectangle
ProcRef	ds.l  1	;radioControl = $84000000
Flag	ds.w  1	;bits 0-6 are family number
MoreFlags	ds.w  1	;bits 0-3 refer to titleref and colortable ref
RefCon	ds.l  1	;application defined
TitleRef	ds.l  1	;Pointer, Handle, resourceID, or Offset
Value	ds.w  1	;Initial state of radio button
ColorTableRef	ds.l  1	;Pointer, Handle, resourceID, or Offset
Key1	ds.b  1	;Optional key equivalent
Key2	ds.b  1	;Optional key equivalent
KeyMods	ds.w  1	;Required modifiers
KeyModsCareBits	ds.w  1	;Mask indicating which mods matter.
RecordSize
	ENDR

;-----------------------------------------------------------
;
; This is the template for statTextControl.
;
StatTextTemplate	RECORD  0

pCount	ds.w  1	;parameter count (7 or 8)
ID	ds.l  1	;ID for the control 
Rect	ds.w  4	;bounding rectangle
ProcRef	ds.l  1	;StatTextControl = $81000000
Flag	ds.w  1	;low 2 bits refer to TextRef
MoreFlags	ds.w  1	;must be 0
RefCon	ds.l  1	;application defined
TextRef	ds.l  1	;Pointer, Handle, resourceID, or Offset
TextSize	ds.w  1	;If text is ref'ed by ptr or offset, this is valid
Just	ds.w  1	;Initial justification word to be passed to LETextBox2
RecordSize
	ENDR


;-----------------------------------------------------------
;
; This is the template for LineEdit controls
;
LineEditTemplate	RECORD  0

pCount	ds.w  1	;parameter count (8 or 9 or 10)
ID	ds.l  1	;ID for the control 
Rect	ds.w  4	;bounding rectangle
ProcRef	ds.l  1	;LineEditControl = $83000000
Flag	ds.w  1	;old style flag word
MoreFlags	ds.w  1	;new flag word
RefCon	ds.l  1	;application defined
MaxLen	ds.w  1	;maximum length of input line
IVRef	ds.l  1	;Reference to initial value
PasswordChar	ds.w  1	;Password Character (added 11-Mar-91 DAL)
keyMask	ds.w  1	;Mask (added 23-Mar-92 DAL)
RecordSize
	ENDR


;-----------------------------------------------------------
;
; This is the template for Picture controls.
;
PictureTemplate	RECORD  0

pCount	ds.w  1	;parameter count (7)
ID	ds.l  1	;ID for the control 
Rect	ds.w  4	;bounding rectangle
ProcRef	ds.l  1	;PictureControl = $8D000000
Flag	ds.w  1	;old style flag word
MoreFlags	ds.w  1	;bit 0 refers to PicRef (0 handle, 1 resource)
RefCon	ds.l  1	;application defined
PicRef	ds.l  1	;handle or resource
RecordSize
	ENDR


;-----------------------------------------------------------
;
; This is the template for Scroll Controls
;
ScrollTemplate	RECORD  0

pCount	ds.w  1	;parameter count (8 or 9)
ID	ds.l  1	;ID for the control 
Rect	ds.w  4	;bounding rectangle
ProcRef	ds.l  1	;ScrollControl = $86000000
Flag	ds.w  1	;old style flag word
MoreFlags	ds.w  1	;bit 0 refers to PicRef (0 handle, 1 resource)
RefCon	ds.l  1	;application defined
DataSize	ds.w  1	;amount of data represented by the scroll bar
ViewSize	ds.w  1	;amount of data seen at one time
InitialThumb	ds.w  1	;initial setting of the thumb.
ColorRef	ds.l  1	;Reference to color table
RecordSize
	ENDR


;-----------------------------------------------------------
;
; This is the template for Grow Controls
;
GrowTemplate	RECORD  0

pCount	ds.w  1	;parameter count (6 or 7)
ID	ds.l  1	;ID for the control 
Rect	ds.w  4	;bounding rectangle
ProcRef	ds.l  1	;GrowControl = $88000000
Flag	ds.w  1	;old style flag word
MoreFlags	ds.w  1	;bit 0 refers to PicRef (0 handle, 1 resource)
RefCon	ds.l  1	;application defined
ColorRef	ds.l  1	;Reference to color table
RecordSize
	ENDR

;-----------------------------------------------------------
;
; This is the template for List Controls
;
ListTemplate	RECORD  0

pCount	ds.w  1	;parameter count (14 or 15)
ID	ds.l  1	;ID for the control 
Rect	ds.w  4	;bounding rectangle
ProcRef	ds.l  1	;ListControl = $89000000
Flag	ds.w  1	;old style flag word
MoreFlags	ds.w  1	;
RefCon	ds.l  1	;application defined
ListSize	ds.w  1	;num members in list
ListView	ds.w  1	;num members seen at one time
ListType	ds.w  1	;multi-selections, pascal strings etc
ListStart	ds.w  1	;First member to be seen
ListDraw	ds.l  1	;member drawing routine
ListMemHeight	ds.w  1	;height of each item
ListMemSize	ds.w  1	;num bytes in list record
ListRef	ds.l  1	;ref to list of member records
ColorRef	ds.l  1	;Reference to color table
RecordSize
	ENDR

SuperCtlSize	equ  NewCtlRecord.RecordSize
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/ControlMgr/CtlPatch.asm b/IIGS.601.SRC/GSToolbox/ControlMgr/CtlPatch.asm
new file mode 100644
index 0000000..006c70b
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/ControlMgr/CtlPatch.asm
@@ -0,0 +1 @@
+**********************************************************************
*
* CtlPatch.ASM
*
* 
* Copyright 1988
* Apple Computer, Inc.
* All rights Reserved.
*
* This file contains a jump table and jumps back into the regular code.
* It is designed so that it can be linked to the version of the control
* manager that is a single file in RAM and not to be used when it is
* in ROM.
*
* A different version of this table is used in ROM so that more than
* one tool can use it.
*
*
* Change History
*
* 11 Oct 88	Steven Glass
*
* Coding begins.
*
**********************************************************************


****************************************************************
*
ToolboxPatcher	PROC EXPORT
*
* This is the only entry point to this code.  The control
* manager calls to this routine with the x-register set
* to indicate what real call it wants to make.
*
* In this way, the call can be patched.
*
*
* Inputs:
*	x-reg    Call To Make
*
* Outputs:
*	no registers are altered.
*
* External Refs:
*	The real routines.
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


	jmp (Table,x)


Table	dc.w ToCMDispatcher
	dc.w oops


ToCMDispatcher	
	import RealCMDispatcher
	jml RealCMDispatcher



Oops	brk 17

	ENDP


	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/ControlMgr/DummyDrag.asm b/IIGS.601.SRC/GSToolbox/ControlMgr/DummyDrag.asm
new file mode 100644
index 0000000..c8429c1
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/ControlMgr/DummyDrag.asm
@@ -0,0 +1 @@
+**********************************************************************
* DummyDrag.asm
*
* This file contains one proc with no code.
*
* This provides one label that the linker needs to build the
* control manager.  When the tool is linked as tool016, this
* file is linked in too.  When the tool is linked into ROM, this
* file is not used and the tool links to the window manager.
*
**********************************************************************
WindDragRect	PROC EXPORT
				ENDP
				
				END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/ControlMgr/NewControl2.asm b/IIGS.601.SRC/GSToolbox/ControlMgr/NewControl2.asm
new file mode 100644
index 0000000..a7c2493
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/ControlMgr/NewControl2.asm
@@ -0,0 +1 @@
+	title 'NewControl2'
**********************************************************************
*           Copyright Apple Computer, Inc. 1986-88
*                    All rights reserved
*
* NewControl2
*
*
* 23 Sep 88	David Good
*
* First Pass
*
* 24 Sep 88	Steven Glass
*
* Integration and first debugging.
*
* 28 Sep 88	Steven Glass
*
* Change in the way that the recsize routines can use the param
* field.  If the routines are called by NewControl, param is zero.
* If the routines are called by NewControl2, param is pointer to
* template.
*
* 7 Oct 88	Steven Glass
*
* Used common load and release resource routines and don't worry
* about errors.
*
* 10 Oct 88	Steven Glass
*
* Changed the way the temporary work area was used.  Using it for
* local variables was ok until I created a scroll control.  So I
* now have some more data in the global data area, and all references
* to it are indirect.  TemplatePtr is now at yRat since the mouse 
* position is not used during new control.
*
**********************************************************************
	Blanks off
	String asis
	

	print push
	print off

	INCLUDE 'all.macros'
	Include 'Special.macros'
	INCLUDE 'equates.asm'
	include 'SuperEquates.asm'

	IMPORT  CMpop10bytes
	print pop


**********************************************************************
*
* Variables used by NewControl2 and subroutines.
*
**********************************************************************
	DSECT Inputs
InputRef	long		;these are passed to us on the stack
InputVerb	word
TheWindow	long
ResultH	long


TemplatePtr	equ yRat	; this is not used at init time.



	title 'NewControl2'
****************************************************************
*
NewControl2	PROC  EXPORT
*
* This is a new way to create one or more controls. Instead of
* passing all the information on the stack we pass a reference
* to an input record and a "verb" that describes what kind of
* reference we passed
*
* 
* 12/8/89	Mensch
* Fixed bug where the port was not set to the owner port before the defproc
* is being called. This causes a problem is size calculation. This will now
* Always set the port to the owners grafport since the stack frame link/unlink
* always preserves the current grafport!
*
* Inputs:
*	Space For Result	LONG
*	OwnerPtr	LONG
*	InputVerb	WORD
*	InputRef	LONG
*
* Outputs:
*	Control Handle 	LONG
*
* External Refs:
	import LoadResource
	import ReleaseResource
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************



	jsr  CMStartup		;link things in and start things up.
;
; Always set port to owner port! Mensch
	lda TheWindow+2
	pha
	lda TheWindow
	pha
	_SetPort

	ldx  TheWindow+2		;use the window pointer
	lda  TheWindow
	jsr  makeWptr		;windptr = pointer to window.

;-----------------------------------------------------------
;
; zero out the saved resourceid, savedhandle and 
; the errorcode in global data.
;
	lda #0
	ldy #SavedRescID
@ZeroLoop	sta [Data],y
	iny
	iny
	cpy #ErrorCode+2
	bcc @ZeroLoop

	stzl ResultH		;zero out the returned value

	lda  InputVerb		;use the verb as an index into the startup
	asl  a		;..table. These routines convert the
	tax		;..InputRef to a pointer
	jmp  (startupTable,x)


;-----------------------------------------------------------
;
; This is the code that is run when the input is some
; kind of resource.
;
rescStartup	
	ldy #SavedRescID		; save the resource id
	lda InputRef
	sta [data],y
	iny
	iny
	lda InputRef+2
	sta [data],y

	PushLongSpace		;space for the returned handle
	lda  InputVerb		;check to see if we are loading a list
	cmp  #resourceToResource	;..resource or a template resource...
	beq  @multiple
	PushWord #rControlTemplate
	bra  @single
@multiple	PushWord #rControlList
@single	PushZLong InputRef
	jsr LoadResource		;load the resource and clobber the
	PullLong InputRef		;..InputRef. (now it's a handle)




;-----------------------------------------------------------
;
; This is the code that is run when the input is some kind
; of handle.  Note that the resource code falls in here.
;
handStartup
	ldy #SavedHandle		; save the resource handle
	lda InputRef
	sta [data],y
	iny
	iny
	lda InputRef+2
	sta [data],y

	ldy  #4		;lock and dereference the input handle
	lda  [InputRef],y		;(note: bit manipulation is legal now !)
	ora  #$8000
	sta  [InputRef],y
	dey
	dey
	lda  [InputRef],y
	tax
	lda  [InputRef]		;store the new pointer back over the
	stax InputRef		;..InputRef and fall thru to pointer


;-----------------------------------------------------------
;
; This is the code that is run when the input is some kind
; of pointer.  Note that the handle and resource code fall
; in here.
;
ptrStartup	
	ldy  #0		;all the action routines use Y as a index
	lda  InputVerb		;..into the list.
	asl  a
	tax
	jmp  (actionTable,x)





;-----------------------------------------------------------
;
; Make a control for each pointer in the list.
;
ptrLoop	jsr  FillTemplatePtr	;get the next template pointer (use Y as
	bcc  @Cont
	brl  cleanup		; if there are no more we are done.
@cont		
	phy		;..the index) - save the index
	jsr  MakeControl		;create the control using TemplatePtr
	ldy #ErrorCode
	lda [data],y
	ply		;restore the index
	cmp #0		;check for errors
	beq  ptrLoop
	bra  cleanup


;-----------------------------------------------------------
;
; Make a control for each handle in the list.
;
handleLoop	jsr  FillTemplatePtr
	bcs cleanup
	phy
	PushZLong TemplatePtr	;template pointer is a handle so save it,
	jsr  LockTemplatePtr	;..lock and dereference it
	jsr  MakeControl		;..and make the control
	_HUnlock		;now unlock the handle using the stack
	ldy #ErrorCode
	lda [Data],y
	ply	
	cmp #0		;check for errors
	bne  cleanup
	bra  handleLoop		;when we are done, then goto cleanup


;-----------------------------------------------------------
;
; Make a control for each resource in the list
;
resourceLoop	jsr  FillTemplatePtr	;get the next resource ref.
	bcs  cleanup
	phy		;save our index

	PushWord #rControlTemplate	;Push these now for 
	PushZLong TemplatePtr	;   ReleaseResource (below)

	PushLongSpace		;space for result
	PushWord #rControlTemplate	;the type of resource is "CtlTemplate"
	PushZLong TemplatePtr	;this is the resource ref
	jsr LoadResource

	lda  1,s		;clone the handle into TemplatePtr
	sta  TemplatePtr
	lda  3,s
	sta  TemplatePtr+2
	jsr  LockTemplatePtr	;deref and lock it
	jsr  MakeControl		;create the control
	_HUnlock		;unlock the handle using the stack


;-----------------------------------------------------------
;
; Release the template resource
;
	jsr ReleaseResource		;release the resource using the stack

	ldy #ErrorCode
	lda [Data],y

	ply		;restore our index
	cmp #0		;check for errors
	bne  cleanup
	bra  resourceloop


;-----------------------------------------------------------
;
; Make the single control from the pointer now in InputRef
;
single	movl InputRef,TemplatePtr	;copy the template pointer
	jsr  MakeControl		;create the control
	movl ctlHand,ResultH	;..and save the handle to return.


;-----------------------------------------------------------
;
; Clean every thing up.
;
cleanup	
	ldy #SavedHandle+1		;check to see if we need to unlock
	lda [data],y
	beq  allDone		;..handle.

	ldy #SavedHandle+2		; yup, unlock it.
	lda [data],y
	pha
	dey
	dey
	lda [data],y
	pha
	_HUnlock

	ldy #SavedRescID
	lda [data],y
	bne @ReleaseIt
	iny
	iny
	lda [data],y
	beq allDone
@ReleaseIt
	lda  InputVerb		;Yep, so check the type of resource
	cmp  #resourceToResource	;..(template, list) and release it.
	beq  @multiple
	PushWord #rControlTemplate
	bra  @single
@multiple	PushWord #rControlList
@single	ldy #SavedRescID+2
	lda [data],y
	pha
	dey
	dey
	lda [data],y
	pha
	jsr ReleaseResource		; release the single or list



allDone	
	ldy #ErrorCode
	lda [data],y
	tay
	brl  CMPop10Bytes


;-----------------------------------------------------------
;
; Table of address of startup routines called depending on
; the input ref.
;
startupTable	dc.w  ptrStartup		;pointer to single
	dc.w  handStartup		;handle to single
	dc.w  rescStartup		;resource of single
	dc.w  ptrStartup		;pointer to list of pointers
	dc.w  ptrStartup		;pointer to list of handles
	dc.w  ptrStartup		;pointer to list of resources
	dc.w  handStartup		;handle to list of pointers
	dc.w  handStartup		;handle to list of handles
	dc.w  handStartup		;handle to list of resources
	dc.w  rescStartup		;resource to list of resources

;-----------------------------------------------------------
;
; Table of address of action routines, called depending on
; the input ref.
;
actionTable	dc.w  single		;pointer to single
	dc.w  single		;handle to single
	dc.w  single		;resource of single
	dc.w  ptrLoop		;pointer to list of pointers
	dc.w  handleLoop		;pointer to list of handles
	dc.w  resourceLoop		;pointer to list of resources
	dc.w  ptrLoop		;handle to list of pointers
	dc.w  handleLoop		;handle to list of handles
	dc.w  resourceLoop		;handle to list of resources
	dc.w  resourceLoop		;resource to list of resources





;---------------------------------------------------------------
; local routine to copy the current item from the list into
; TemplatePtr
;---------------------------------------------------------------
FillTemplatePtr	lda  [InputRef],y
	sta  TemplatePtr
	iny
	iny
	lda  [InputRef],y
	sta  TemplatePtr+2
	iny
	iny

	ora  TemplatePtr
	beq  @AllDone
	clc
	rts

@AllDone	sec
	rts



;---------------------------------------------------------------
; local routine to lock down TemplatePtr and store it back over
; itself
;---------------------------------------------------------------
LockTemplatePtr	ldy  #4
	lda  [TemplatePtr],y
	ora  #$8000
	sta  [TemplatePtr],y
	dey
	dey
	lda  [TemplatePtr],y
	tax
	lda  [TemplatePtr]
	stax TemplatePtr
	rts




	title 'MakeControl'

****************************************************************
*
MakeControl
*
* Local routine that does the actual work of translating a template
* into a control - this is very similar to the old NewControl.
*
*
* Inputs:
*	templatePtr
*	windPtr
*
* Outputs:
*	new control is part of list.
*
* External Refs:
	import StatTextProc
	import PicProc
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

	ldy  #TemplateRecord.pCount	;check the number of parameters
	lda  [TemplatePtr],y
	cmp  #minTemplatePCount
	bge  @cont
	lda  #TooFewParmsError
	ldy #ErrorCode
	sta  [data],y
	rts

;-----------------------------------------------------------
;
; Minimum PCount is OK.
;
; Look at control type, If its custom, get the pointer to
; the custom proc into Param.  If its not custom, get
; the ID of the standard proc into param.
;

@cont
	lda TemplatePtr
	sta param
	lda TemplatePtr+2
	sta param+2

	clc		Assume Ptr
	ldy #TemplateRecord.MoreFlags
	lda [TemplatePtr],y
	and #FctlProcRefNotPtr
	beq IsPtr
	sec
IsPtr


	ldy #TemplateRecord.ProcRef+2
	lda [TemplatePtr],y
	tax
	dey
	dey
	lda [TemplatePtr],y
	txy
	ldx #recSize
	bcc CallByPtr
	jsr CallByThisID
	bra AllocIt

CallByPtr	jsr CallByThisPtr

AllocIt

;-----------------------------------------------------------
;
; Temporary kludge to keep things clean!
;

	cmp #SuperCtlSize
	bcs @ok
	lda #superCtlSize
@ok

;-----------------------------------------------------------
;
; Allocate and deref the control handle
;

	pha		;save the low word of the size
	PushLongSpace		;space for returned handle.
	PushAX		;size returned by the defProc
	ldy  #MyID		;pass the ID for the control manager
	PushWord [data],y
	PushWord #0		;attributes
	PushLongSpace		;space for address
	_NewHandle
	ldy #ErrorCode
	sta  [Data],y		;save the error code
	PullLong ctlHand
	bcsl error2
	jsr dereference		;ctlPtr = (ctlHand).
	pla		;get back the block size again.

;-----------------------------------------------------------
;
; Zero the memory in the control handle
;

	tay		;Y is our index
	lsr  a		;check for odd sized block
	lda  #0		;..and zero the block
	bcc  @loop0
	shortm
	dey
	sta  [ctlPtr],y
	longm
@loop0	dey
	dey
	sta  [ctlPtr],y
	bne  @loop0

;-----------------------------------------------------------
;
; The record is allocated, and zeroed. Now, hook it into 
; the control list and set the fields we can set.
;



	ldy  #owControls		;hook the control into the head of the
	lda  [windPtr],y		;..window's control list
	sta  [ctlPtr]
	lda  ctlHand
	sta  [windPtr],y
	iny
	iny
	lda  [windPtr],y
	tax
	lda  ctlHand+2
	sta  [windPtr],y
	ldy  #2
	txa
	sta  [ctlPtr],y

;-----------------------------------------------------------
;
; Set Owner field
;
	iny
	iny
	lda  TheWindow
	sta  [<Ctlptr],y
	iny
	iny
	lda  TheWindow+2
	sta  [<Ctlptr],y



;-----------------------------------------------------------
;
; Set the ID field
;
	ldy  #TemplateRecord.ID+2	;set the control's refCon field
	lda  [TemplatePtr],y
	tax
	dey
	dey
	lda  [TemplatePtr],y
	ldy  #NewCtlRecord.ctlID
	sta  [ctlPtr],y
	iny
	iny
	txa
	sta  [ctlPtr],y




;-----------------------------------------------------------
;
; Set the rectangle
;
	ldy  #TemplateRecord.Rect	;copy the rectangle into the record.
	ldx  #NewCtlRecord.ctlRect
@loop1	lda  [TemplatePtr],y
	iny
	iny
	phy
	txy
	sta  [ctlPtr],y
	ply
	inx
	inx
	cpy  #TemplateRecord.Rect+8
	blt  @loop1

;-----------------------------------------------------------
;
; Set Flag
;
	ldy  #TemplateRecord.Flags	;set the control's flags and the hilite
	lda  [TemplatePtr],y	;..field.
	ldy  #NewCtlRecord.ctlFlag
	sta  [ctlPtr],y

;-----------------------------------------------------------
;
; Set MoreFlags
;
	ldy  #TemplateRecord.MoreFlags	;set the control's flags and the hilite
	lda  [TemplatePtr],y	;..field.
	ldy  #NewCtlRecord.ctlMoreFlags
	sta  [ctlPtr],y


;-----------------------------------------------------------
;
; Set the ref con
;
	ldy  #TemplateRecord.RefCon+2	;set the control's refCon field
	lda  [TemplatePtr],y
	tax
	dey
	dey
	lda  [TemplatePtr],y
	ldy  #NewCtlRecord.ctlRefCon
	sta  [ctlPtr],y
	iny
	iny
	txa
	sta  [ctlPtr],y




;-----------------------------------------------------------
;
; Set the ctlPRoc field in the record.
;

	ldy  #TemplateRecord.ProcRef+2
	lda  [TemplatePtr],y
	tax
	dey
	dey
	lda [TemplatePtr],y

	ldy  #NewCtlRecord.ctlProc
	sta  [ctlPtr],y
	iny
	iny
	txa
	ora  #$8000		;set the highest bit - indicates super
	sta  [ctlPtr],y		;..ctl


;-----------------------------------------------------------
;
; Call the init routine for the proc.
;

	lda  TemplatePtr		;pass a pointer to the template for
	ldy  TemplatePtr+2		;..the defProc to do extra initialization
	ldx  #initCntl
	jsr  CMDispatch

	rts

error2	pla		;cleanup the stack
	rts



	ENDP




	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/ControlMgr/PicProc.asm b/IIGS.601.SRC/GSToolbox/ControlMgr/PicProc.asm
new file mode 100644
index 0000000..acdc7cc
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/ControlMgr/PicProc.asm
@@ -0,0 +1 @@
+	title 'PictureDefProc'
**********************************************************************
*
* Picture Control Def Proc
*
*
* Copyright (C)
* Apple Computer, Inc.  1986-1989
* All Rights Reserved
*
* 23 Sep 88	Steven Glass
*
* Coding begin from modified version of the statText custom control
* which came from Tech Support's custom control (by Keith Rollin).
*
* 06 NOv 88	Steven Glass
*
* Allow for default rect calculation in do_init.
*
* 28 mar 89	Steven Glass
*
* Changed init routine to use standard descriptors for Picture Ref.
*
* Added support for CtlWinStateChange message.  This defProc ignores
* it since pictures look the same in inactive and active windows.
*
* 15 May 89	Steven Glass
*
* Changed jsr to LoadResource to _CMLoadResource so can segment this
* proc.
*
* Released the resource when control is killed!!!!
*
* 17-Sep-90	Dave Lyons
*
* Removed dependency on all.macros.
*
**********************************************************************

	blanks off
	string asis

	print push
	print off

***	include 'all.macros'	;removed 17-Sep-90 DAL
	include 'm16.util2'
	include 'm16.memory'
	include 'm16.quickdraw'
	include 'm16.qdaux'
	include 'm16.control'
	include 'm16.window'
	include 'm16.resources'

	include 'CtlCustomEqus.asm'
	include 'e16.quickdraw'
	include 'e16.font'
	include 'e16.resources'



	print pop

;-----------------------------------------------------------
;
; Stack Fram Equates for control
;
	DefineStack
OrigD	WORD	; caller's saved direct page register
OrigB	byte	; caller's saved data bank register
CtlPtr	LONG	; pointer to control record
RtnAddr	block 3	; RTL address back to Control Manager
theCtlHandle	LONG	; handle to control record
CtlParam	LONG	; add'l parameter passed to DefProc
CtlCode	WORD	; operation to perform
ReturnValue	LONG	; space for return value to Ctl Mgr.





	title 'PictureDefProc -- MainEntry'

****************************************************************
*
PicProc	PROC EXPORT
*
* This is the def_proc for picture controls.  When this
* routine gets control, the stack looks as described below.
*
*
*
* Inputs:	On entry, the parameters are passed to us on the stack.
*
*	|	| Previous Contents
*	|-------------------|
*	|    ReturnValue	| LONG - Space for return value
*	|-------------------|
*	|    CtlCode	| WORD - operation to perform
*	|-------------------|
*	|    CtlParam	| LONG - add'l parameter
*	|-------------------|
*	|    theCtlHandle	| LONG - Handle to control record
*	|-------------------|
*	|    RtnAddr	| 3 BYTES - RTL address
*	|-------------------|
*	|	| <-- Stack pointer
*
* Outputs:	Put something into ReturnValue, pull off the parameters,
*	and return to the Control Manager.
*
*	|	| Previous Contents
*	|-------------------|
*	|    ReturnValue	| LONG - Space for return value
*	|-------------------|
*	|    RtnAddr	| 3 BYTES - RTL address
*	|-------------------|
*	|	| <-- Stack pointer
*
* External Refs:
	import do_draw
	import do_nothing
	import do_test
	import do_init
	import do_dispose
	import do_recsize
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

	pha	; push on some room	for 'CtlPtr'
	pha

	phb	; save the Data Bank register
	phd	; save the Direct Page register

	phk	; switch data bank to program bank
	plb
	tsc	; switch Direct Page into stack
	tcd

	lda <CtlCode
	cmp #recSize
	beq SkipDeref

	lda [<theCtlHandle]
	sta <CtlPtr
	ldy #2
	lda [<theCtlHandle],y
	sta <CtlPtr+2

SkipDeref
	lda <CtlCode		; get routine # to call
	cmp #ctlWinStateChange+1	; make sure msg is in range 
	blt ShiftIt
	lda #6		; force unknown codes to null events
ShiftIt
	asl a
	tax
	jsr (ActionTable,x)

	sta <ReturnValue		; save the return value
	stx <ReturnValue+2

;
; The Return Value has been stored on the stack, and it is time for us to
; return back to the Control Manager. Before we do so, however, we must
; remove the parameters that were passed to us on the stack. We do this
; by moving the RTL address up just below the Return Value, getting the
; stack pointer, and adding an amount to it so that we point to where
; the RTL address has been moved to. We can then simply RTL back to the
; Control Manager, and it will pick up the Return Value right off of the
; stack!
;
	lda <RtnAddr	; move the return address up
	sta <ReturnValue-3
	lda <RtnAddr+1
	sta <ReturnValue-2

	tsc	; Get the stack pointer

	pld	; restore caller's Data Bank and
	plb	; Direct Page registers

	clc	; Adjust the stack pointer to point to
	adc #ReturnValue-4	; the new location of the RTL address.
	tcs	; Put the stack pointer back.

	rtl	; back to the caller


;
ActionTable	DC.W do_draw	0 Draw simple button.
	DC.W do_nothing	1 Compute drag RECT.
	DC.W do_test	2 Common hit test routine.
	DC.W do_init	3 Initialize the control.
	DC.W do_dispose	4 Dispose.
	DC.W do_draw	5 New value.
	DC.W do_nothing	6 Compute Thumber constrains.
	DC.W do_nothing	7 Drag the indicator.
	DC.W do_nothing	8 Auto action.
	DC.W do_draw	9 New value.
	DC.W do_nothing	10 Set min max.
	DC.W do_nothing	11 Move button.
	DC.W do_recsize	12 Return size of standard record.
	dc.W do_nothing	13 take key or menu event
	dc.W do_nothing	14 ctlChangeTarget
	dc.W do_nothing	15 ctlChagneBounds
	dc.W do_nothing	16 ctlWindChagneSize
	dc.W do_nothing	17 ctlHandleTab
	dc.W do_nothing	18 ctlNotifyMultiPart
	dc.W do_nothing	19 ctlWinStateChange (Pic Ctls do not redraw)
	ENDP


	title 'PictureDefProc -- do_recsize'
****************************************************************
*
do_recsize	PROC
*
* Returns the size of the control record.
*
*
* Inputs:
*	none
*
* Outputs:
*	a-reg & x-reg hold result for def proc
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


	lda #superCtlSize
	ldx #0		High word of size.
	
	rts
	
	ENDP


	title 'PictureDefProc -- Do_Nothing'
****************************************************************
*
do_nothing	PROC
*
* This is the routine we use when there is nothing to do.
* It just returns zeros in the a and x registers.
*
*
* Inputs:
*	ctlHandle
*	ctlPtr
*
* Outputs:
*	a-reg & x-reg hold result for def proc
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

;
	lda #0	Nothing flag.
	tax
	
	rts
	
	ENDP


	title 'PictureDefProc -- Do_Init'
****************************************************************
*
do_init	PROC
*
* Inits fields in the control record based on the values in
* in the control template.
*
* The ctlData field is set to be a pointer to the static text
* and the ctlValue field is set to be the size of the static
* text field (from the value in the template).
*
*
* Inputs:
*	ctlHandle
*	ctlPtr
*	ctlParam = ptr to template
*
* Outputs:
*	a-reg and x-reg are zero.
*
* External Refs:
	import PushCtlData
	import ConvertToHandle
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* Change History
*
* 06 Nov 88	Steven Glass
*
* If the control rect is has 0 for bottom, we calculate
* the rect using the frame rect in the picture.  This will give
* us a rect that has no scaling.
*
****************************************************************


	ldy #PictureTemplate.PicRef+2
	lda [<ctlParam],y
	tax
	dey
	dey
	lda [<ctlParam],y
	ldy #NewCtlRecord.ctlData
	sta [<ctlPtr],y
	iny
	iny
	txa
	sta [<ctlPtr],y


	ldy #NewCtlRecord.ctlRect+4
	lda [ctlPtr],y
	bne RectIsComplete

	pha		; space for result
	pha

	jsr PushCtlData		; push ref on stack

	jsr ConvertToHandle		; turn ref into handle (if not already)


	pla		; deref the picture handle in ctlParam
	sta ctlParam
	pla
	sta ctlParam+2
	lda [ctlParam]
	tax
	ldy #2
	lda [ctlParam],y
	sta ctlParam+2
	stx ctlParam

	ldy #6		; height of frame rect is bottom-top
	lda [ctlParam],y
	sec
	ldy #2
	sbc [ctlParam],y
	clc
	ldy #NewCtlRecord.ctlRect	; add to control rect top
	adc [ctlPtr],y
	ldy #NewCtlRecord.ctlRect+4
	sta [ctlPtr],y

	ldy #8		; width of frame rect is left-right
	lda [ctlParam],y
	sec
	ldy #4
	sbc [ctlParam],y
	clc
	ldy #NewCtlRecord.ctlRect+2	; add to control rect left to get right
	adc [ctlPtr],y
	ldy #NewCtlRecord.ctlRect+6
	sta [ctlPtr],y
RectIsComplete

	lda #0
	tax
	rts



	ENDP


	title 'PictureDefProc -- Do_Dispose'
****************************************************************
*
do_Dispose	PROC EXPORT
*
* Inits fields in the control record based on the values in
* in the control template.
*
* The ctlData field is set to be a pointer to the static text
* and the ctlValue field is set to be the size of the static
* text field (from the value in the template).
*
*
* Inputs:
*	ctlHandle
*	ctlPtr
*	ctlParam = ptr to template
*
* Outputs:
*	a-reg and x-reg are zero.
*
* External Refs:
	import PushCtlData
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* Change History
*
* 15 May 89	Steven Glass
*
* Added.
*
****************************************************************


	ldy #NewCtlRecord.ctlMoreFlags
	lda [ctlPtr],y
	and #$0003		; only care about low 2 bits
	cmp #1	;(RefIsHandle)	; If not handle, it must be resource
	beq JustAHandle

	PushWord #rPicture
	jsr PushCtlData
	_CMReleaseResource

JustAHandle

	lda #0
	tax
	rts



	ENDP


	title 'PictureDefProc -- do_test'
****************************************************************
*
do_test	PROC
*
* Test if the mouse is down in the control.  We always
* return no, since it does not make sense to "click" on
* static text.
*
*
* Inputs:
*	ctlParam = point to check
*
*
* Outputs:
*	a-reg and x-reg are always zero
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


	lda #0	Never return a part code
	tax
	
	rts
	
	ENDP


	title 'PictureDefProc -- Do_Draw'
****************************************************************
*
do_draw	PROC
*
* Draws the control using DrawPicture.
*
*
* Inputs:
*	ctlHandle
*	ctlPtr
*
* Outputs:
*	a-reg and x-reg are zero.
*
* External Refs:
*	none
*
* Entry Points:
	ENTRY PushCtlData
	ENTRY ConvertToHandle
*
	longa on	; mode
	longi on
*
* Change History
*
* 28 Mar 89	Steven Glass
*
* Changed definitions of moreFlags bits so that low two bits
* are used like all other controls: 0 = ptr, 1 = handle, 2 =
* resource.
*
* Docs will state that 0 is invalid.
*
****************************************************************

	pha		; space for result
	pha

	jsr PushCtlData		; push ref on stack

	jsr ConvertToHandle		; turn ref into handle (if not already)

	lda ctlPtr		; point to control rect
	clc
	adc #NewCtlRecord.ctlRect
	tax
	lda ctlPtr+2
	adc #0
	pha
	phx

	_DrawPicture


	lda #0
	tax
	rts


PushCtlData
	plx
	ldy #NewCtlRecord.ctlData+2
	lda [ctlPtr],y
	pha
	dey
	dey
	lda [ctlPtr],y
	pha
	phx
	rts


;-----------------------------------------------------------
;
; Looks at the more flags to see what the data value holds.
; The low 2 bits of the flag indicate:
;
;     0  undefined
;     1  handle
;     2  resource
;
ConvertToHandle
	ldy #NewCtlRecord.ctlMoreFlags
	lda [ctlPtr],y
	and #$0003		; only care about low 2 bits
	cmp #1	;(RefIsHandle)	; If not handle, it must be resource
	beq AlreadyHandle


	lda 3,s
	tax
	lda 5,s
	pha
	pha
	PushWord #rPicture
	pha
	phx
	_CMLoadResource
	pla
	ply

	plx
	sta 5,s
	tya
	sta 7,s
	pla
	pla
	phx
	rts
	

AlreadyHandle	plx
	lda 1,s
	sta 5,s
	lda 3,s
	sta 7,s
	pla
	pla
	phx
	clc
	rts
	

	ENDP



	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/ControlMgr/StatTextProc.asm b/IIGS.601.SRC/GSToolbox/ControlMgr/StatTextProc.asm
new file mode 100644
index 0000000..a53132b
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/ControlMgr/StatTextProc.asm
@@ -0,0 +1 @@
+	title 'StatTextProc'
**********************************************************************
*
* Static Text Control Def Proc
*
*
* Copyright (C)
* Apple Computer, Inc.  1986-1989
* All Rights Reserved
*
* 23 Sep 88	Steven Glass
*
* Coding began from modified version of Tech Support's custom
* control (by Keith Rollin).
*
* 10 Oct 88	Steven Glass
*
* Made memory allocation work correctly for the four cases: ptr, handle
* resource and offset.  Got drawing to work correctly for offset.
* Removed code that looked for errors from resource loads.  Locked
* and unlocked control handle around calls to LETextBox2 when text
* is in the control record.
*
* 23 Nov 88	Steven Glass
*
* Removed code that supports offsets.
*
* 06 Feb 89	Steven Glass
*
* Added support for initial justification being other than 0.
* Changed drawing routine to deref the control handle after 
* compiling text and drawing text.
*
* 22 Mar 89	Harry Yee
*
* Control handle was not being derefed enough times possibly allowing memory to move 
* and making pointer no longer valid. In routine ConvertRefToPtr added additional deref
* after GetHandleSize call.
*
* 28 Mar 89	Steven Glass
*
* Added support for the ctlWinStateChange message.  Message is ignored
* since this control does not look any different if it is in an active vs
* inactive window.
*
* 09 Apr 89	Harry Yee
*
* The 22 Mar 89 fix above didn't fix the bug. Problem was LETextBox2 moves memory!
* Since the control handle is unlocked, the ptr to the control rect passed to
* LETextBox2 could possibly become invalid after the first NewHandle call in 
* LETextBox2. We now make sure we lock the control's handle. BRC #46453.
*
* 4/13/89	Mensch
*
* The apr 09 fix caused a strange bug when the defproc is called for the rec size,
* it tries to unlock the control handle, but fails since the control handle
* does not exist, here. Now we will branch around the unlock if the ctrlcode
* is 6
*
* 8/31/89	Yee
*
* Changed the name of routine do_init to do_StatInit. This is to avoid conflict
* between other defprocs using this same name. 
* Fix bug in INIT routine where the justification field from the template 
* is not being copied over to the control record. BRC #51450.
*
* 5-Apr-91	Dave Lyons
*
* Added a flag bit to just call DrawText instead of LETextBox2.
* It's ctlFlag bit 2 ($0004).  If you set this bit, you must not
* include any LETextBox2 formatting commands, and you must not
* be doing any substitutions.  They won't be happen.
*
* 27-Oct-91	Dave Lyons
*
* Added new ctlFlag bit for static text controls--fTextCanDim,
* $0008, makes text dim when it goes inactive.  This is only
* useful for small controls, since the text draws first and then
* gets wiped over with gray.
*
* 1-Dec-91	Dave Lyons
*
* When a Stat Text control with fTextCanDim gets a ctlChangeWinState
* message, it must invalidate itself.
*
* 24-Mar-93	Jim Murphy
*
* Defined a new ctlFlag bit - fSquishText. If both fBlastText and this
* new bit are set, we use DrawStringWidth instead of DrawString.
*
**********************************************************************

	blanks off
	string asis

	print push
	print off

	include 'all.macros'

	include 'CtlCustomEqus.asm'
	include 'e16.quickdraw'
	include 'e16.resources'

;
; new ctlFlag bits for Static Text controls in 6.0 (DAL)
;
fBlastText	equ $0004
fTextCanDim	equ $0008

; For 6.0.1 - 23-Mar-93 JCM

fSquishText	equ $0010	;24-Mar-93 JCM

;-----------------------------------------------------------
;
; Stack Fram Equates for control
;
	DefineStack
OrigD	WORD	; caller's saved direct page register
OrigB	byte	; caller's saved data bank register
CtlPtr	LONG	; pointer to control record
RtnAddr	block 3	; RTL address back to Control Manager
theCtlHandle	LONG	; handle to control record
CtlParam	LONG	; add'l parameter passed to DefProc
CtlCode	WORD	; operation to perform
ReturnValue	LONG	; space for return value to Ctl Mgr.


	print pop


	title 'StatTextProc -- Main Entry'
****************************************************************
*
StatTextProc	PROC EXPORT
*
* This is the def_proc for static text.  When this
* routine gets control, the stack looks as described below.
*
*
*
* Inputs:	On entry, the parameters are passed to us on the stack.
*
*	|	| Previous Contents
*	|-------------------|
*	|    ReturnValue	| LONG - Space for return value
*	|-------------------|
*	|    CtlCode	| WORD - operation to perform
*	|-------------------|
*	|    CtlParam	| LONG - add'l parameter
*	|-------------------|
*	|    theCtlHandle	| LONG - Handle to control record
*	|-------------------|
*	|    RtnAddr	| 3 BYTES - RTL address
*	|-------------------|
*	|	| <-- Stack pointer
*
* Outputs:	Put something into ReturnValue, pull off the parameters,
*	and return to the Control Manager.
*
*	|	| Previous Contents
*	|-------------------|
*	|    ReturnValue	| LONG - Space for return value
*	|-------------------|
*	|    RtnAddr	| 3 BYTES - RTL address
*	|-------------------|
*	|	| <-- Stack pointer
*
* External Refs:
	import do_draw
	import do_nothing
	import do_test
	import do_dispose
	import do_StatInit
	import do_recsize
	import do_ChangeState
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

	pha	; push on some room	for 'CtlPtr'
	pha

	phb	; save the Data Bank register
	phd	; save the Direct Page register

	phk	; switch data bank to program bank
	plb
	tsc	; switch Direct Page into stack
	tcd

	lda <CtlCode
	cmp #recSize
	beq SkipDeref

	ldy #4	; first lock down the control handle
	lda [<theCtlHandle],y
	ora #$8000
	sta [<theCtlHandle],y

	lda [<theCtlHandle]	; now deref the control handle
	sta <CtlPtr
	ldy #2
	lda [<theCtlHandle],y
	sta <CtlPtr+2

SkipDeref
	lda <CtlCode		; get routine # to call
	cmp #ctlWinStateChange+1	; make sure the msg is in range.
	blt ShiftIt
	lda #6		; force unknown codes to null events
ShiftIt
	asl a
	tax
	jsr (ActionTable,x)

	sta <ReturnValue		; save the return value
	stx <ReturnValue+2

;
; 4/13/89 fixed this to only unlock if the handle was locked!
	lda <CtlCode
	cmp #recSize
	beq SkipUnLock

	ldy #4	; unlock the control handle
	lda [<theCtlHandle],y
	and #$7FFF
	sta [<theCtlHandle],y
SkipUnLock
; ENDOFFIX

;
; The Return Value has been stored on the stack, and it is time for us to
; return back to the Control Manager. Before we do so, however, we must
; remove the parameters that were passed to us on the stack. We do this
; by moving the RTL address up just below the Return Value, getting the
; stack pointer, and adding an amount to it so that we point to where
; the RTL address has been moved to. We can then simply RTL back to the
; Control Manager, and it will pick up the Return Value right off of the
; stack!
;
	lda <RtnAddr	; move the return address up
	sta <ReturnValue-3
	lda <RtnAddr+1
	sta <ReturnValue-2

	tsc	; Get the stack pointer

	pld	; restore caller's Data Bank and
	plb	; Direct Page registers

	clc	; Adjust the stack pointer to point to
	adc #ReturnValue-4	; the new location of the RTL address.
	tcs	; Put the stack pointer back.

	rtl	; back to the caller


;
ActionTable	DC.W do_draw	0 Draw simple button.
	DC.W do_nothing	1 Compute drag RECT.
	DC.W do_test	2 Common hit test routine.
	DC.W do_StatInit	3 Initialize the control.
	DC.W do_dispose	4 Dispose.
	DC.W do_draw	5 New value.
	DC.W do_nothing	6 Compute Thumber constrains.
	DC.W do_nothing	7 Drag the indicator.
	DC.W do_nothing	8 Auto action.
	DC.W do_draw	9 New value.
	DC.W do_nothing	10 Set min max.
	DC.W do_nothing	11 Move button.
	DC.W do_recsize	12 Return size of standard record.
	dc.W do_nothing	13 take key or menu event
	dc.W do_nothing	14 ctlChangeTarget
	dc.W do_nothing	15 ctlChagneBounds
	dc.W do_nothing	16 ctlWindChagneSize
	dc.W do_nothing	17 ctlHandleTab
	dc.W do_nothing	18 ctlNotifyMultiPart
	dc.W do_ChangeState	19 ctlWinStateChange (1-Dec-91 DAL)

	ENDP

	title 'StatTextProc -- do_recsize'
****************************************************************
*
do_recsize	PROC
*
* Returns the size of the control record.  This is the
* normal size of a new control record.  
*
* Note that the high word will always be 0.
*
*
* Inputs:
*	none
*
* Outputs:
*	a-reg & x-reg hold result for def proc
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

	lda #superCtlSize
	ldx #0		High word of size.
	
	rts
	
	ENDP

	title 'StatTextProc -- do_nothing'
****************************************************************
*
do_nothing	PROC
*
* This is the routine we use when there is nothing to do.
* It just returns zeros in the a and x registers.
*
*
* Inputs:
*	ctlHandle
*	ctlPtr
*
* Outputs:
*	a-reg & x-reg hold result for def proc
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

;
	lda #0	Nothing flag.
	tax
	
	rts
	
	ENDP

	title 'StatTextProc -- do_dispose'
****************************************************************
*
do_dispose	PROC 
*
* This is the routine we use when the control is disposed.
* The only thing this routine has to do is to release the 
* resource if the text is referenced by resource.
*
*
* Inputs:
*	ctlHandle
*	ctlPtr
*
* Outputs:
*	a-reg & x-reg hold result for def proc
*
* External Refs:
	import CtlDataToAX
	import GetRefType
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

	jsr GetRefType

	cmp #$0002
	bne NotResource

	PushWord #rTextForLETextBox2	; type
	jsr CtlDataToAX
	phx
	pha
	_CMReleaseResource

NotResource
;
	lda #0	Nothing flag.
	tax
	
	rts
	
	ENDP

	title 'StatTextProc -- do_StatInit'
****************************************************************
*
do_StatInit	PROC EXPORT
*
* Inits the data and value fields in the control record
* using values in the template.
*
* Also looks for the ctlJust field if the pCount is at least 9.
*
* The ctlData field is set to be a reference to the static text
* and the ctlValue field is set to be the size of the static
* text field (if the ref is a pointer).
*
*
* Inputs:
*	ctlHandle
*	ctlPtr
*	ctlParam = ptr to template
*
* Outputs:
*	a-reg and x-reg are zero.
*
* External Refs:
	import GetRefType
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* Change History
*
* 06 Feb 89	Steven Glass
*
* Added support for the optional justification field in the
* template.
*
****************************************************************

	jsr GetRefType	; low 2 bits of flag in a-reg
	cmp #0
	bne NotAPtr

	ldy #StatTextTemplate.TextSize
	lda [<ctlParam],y
	ldy #NewCtlRecord.ctlValue
	sta [<ctlPtr],y

NotAPtr
	ldy #StatTextTemplate.TextRef
	lda [<ctlParam],y
	tax
	iny
	iny
	lda [<ctlParam],y

	ldy #NewCtlRecord.ctlData+2
	sta [<ctlPtr],y
	dey
	dey
	txa
	sta [<ctlPtr],y


	ldy #NewCtlRecord.CtlJust	; init the just word
	lda #0
	sta [<ctlPtr],y
	tyx		; save offset in x

	ldy #StatTextTemplate.pCount	; check the p count
	lda [<ctlParam],y
	cmp #9
	bcc Fini

	ldy #StatTextTemplate.Just	; move the real value
	lda [<ctlParam],y		; into place
	txy		; using saved offset.
	sta [<ctlPtr],y

Fini
	lda #0
	tax
	rts



	ENDP

	title 'StatTextProc -- do_test'
****************************************************************
*
do_test	PROC
*
* Test if the mouse is down in the control.  We always
* return no, since it does not make sense to "click" on
* static text.
*
*
* Inputs:
*	ctlParam = point to check
*
*
* Outputs:
*	a-reg and x-reg are always zero
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

	ldy #NewCtlRecord.ctlHilite
	lda [ctlPtr],y
	and #$00FF
	cmp #$00FF
	beq Inactive

	lda #1
	ldx #0
	rts


Inactive
	lda #0
	ldx #0
	
	rts
	
	ENDP

*** added 1-Dec-91 DAL
	title 'StatTextProc -- do_ChangeState'
****************************************************************
*
do_ChangeState	PROC
*
* Called when our window gets activated or inactivated.  If
* the fTextCanDim bit is set, then invalidate the control
* rectangle so it will redraw.
*
* Inputs:
*	ctlPtr
*
* Outputs:
*	a-reg and x-reg are zero.
*
****************************************************************

	ldy #NewCtlRecord.ctlFlag
	lda [<CtlPtr],y
	and #fTextCanDim
	beq @exit

	lda <ctlPtr
	clc
	adc #NewCtlRecord.ctlRect
	tax
	lda <ctlPtr+2
	adc #0
	pha
	phx
	_InvalRect

@exit	lda #0
	tax
	rts

	EndP
*** end 1-Dec-91 DAL

	title 'StatTextProc -- do_draw'
****************************************************************
*
do_draw	PROC
*
* Draws the control using LETextBox2.  The control is only
* drawn if the part code being passed is 0, indicating the
* whole control.
*
*
* Inputs:
*	ctlHandle
*	ctlPtr
*
* Outputs:
*	a-reg and x-reg are zero.
*
* External Refs:
	import CtlDataToAX
	import GetRefType
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
*
* Change History
*
* 06 Feb 89	Steven Glass
*
* The control handle was not being re-derefed twice where 
* memory could have moved:   once after compiling text and
* once after drawing the text.
*
* Added new feature to drawing: the programmer can set
* a value for the initial justification.  This value is 
* kept in the ctlJust field of the control record.
*
****************************************************************

;-----------------------------------------------------------
;
; Look at the part code.  If it is not 0, this is a request
; to hilite the control (which we ignore).
;
	lda ctlParam
	beq @cont
	brl Fini

@cont

*
* 5-Apr-91 DAL
*
* See if we should just do a DrawString to draw this control
* really fast
*
	ldy #NewCtlRecord.ctlFlag
	lda [ctlPtr],y
	and #fBlastText

*** Added - 23-Mar-93 JCM - Use DrawStringWidth if both fBlastText and fSquishText
***	        bits are set.

;;;	beq @notFast
	bne @tryJimsWay

	brl @notFast

@tryJimsWay	ldy #NewCtlRecord.ctlRect+2	;left edge
	lda [<ctlPtr],y
	pha
	dey
	dey		;offset to rect top
	lda [ctlPtr],y
	clc
	adc #8
	pha
	_MoveTo

	ldy #NewCtlRecord.ctlFlag
	lda [ctlPtr],y
	and #fSquishText		;should we call DrawStringWidth?
	bne @doItJimsWay

	brl @blastDavesWay		; nope, be boring
		
@doItJimsWay	pha
	pha		;space for ConvertRefToPtr result
	jsr GetRefType
	pha
	jsr CtlDataToAX
	phx
	pha
	jsr ConvertRefToPtr		;source ptr
	pea @tempStringBuf>>16
	pea @tempStringBuf+1	;dest ptr
	PushWord #0
	ldy #NewCtlRecord.ctlValue
	lda [<CtlPtr],y
	sta @tempStringBuf		;save length byte
	and #$00FF		;force to be a pstring
	pha		;length
	_BlockMove		
	
	jsr GetRefType
	ora #$6000		;flags - truncate left/pstring
	pha		
	pea @tempStringBuf>>16
	pea @tempStringBuf		;stringRef
	ldy #NewCtlRecord.ctlRect+6	;right edge
	lda [<ctlPtr],y
	sec
	ldy #NewCtlRecord.ctlRect+2	;left edge
	sbc [<ctlPtr],y
	pha		;width
	ldx #$1512
	jsl $E10000
;	_DrawStringWidth

	brl CleanUp	

@tempStringBuf	ds.b 256

@blastDavesWay			;the old, the boring, the Dave

;	ldy #NewCtlRecord.ctlRect+2	;left edge
;	lda [<ctlPtr],y
;	pha
;	dey
;	dey		;offset to rect top
;	lda [ctlPtr],y
;	clc
;	adc #8
;	pha
;	_MoveTo

*** End - 23-Mar-93 JCM

	pha
	pha		;space for ConvertRefToPtr result
	jsr GetRefType
	pha
	jsr CtlDataToAX
	phx
	pha
	jsr ConvertRefToPtr
	ldy #NewCtlRecord.ctlValue	; text length
	lda [<CtlPtr],y
	pha
	_DrawText
	brl CleanUp

@notFast
*** end of 5-Apr-91 DAL

;-----------------------------------------------------------
;
; See if we need to do substitution on the text.
;

	ldy #NewCtlRecord.ctlFlag
	lda [ctlPtr],y
	and #FSubstituteText
	bne MakeSubs

	brl NoSubs

MakeSubs

; TextHandle := CompileText (SubType, SubArrayPtr, OrigTextPtr, OrigTextSize)

	pha		; space for handle
	pha
	lda [ctlPtr],y		; type of text
	and #FSubTextType
	pha
	pha		; pointer to sub array
	pha
	_GetCtlParamPtr
	pha		; pointer to text
	pha

	jsr GetRefType
	pha
	jsr CtlDataToAX
	phx
	pha
	jsr ConvertRefToPtr
	ldy #NewCtlRecord.ctlValue	; text length
	lda [<CtlPtr],y
	pha
	_CompileText
	PullLong CtlParam		; Put resulting handle into CtlParam

	pha		; Get handle's size.
	pha
	pei CtlParam+2
	pei Ctlparam
	_GetHandleSize

	pla		; get size of handle off the stack
	plx
	pha		; put it on the stack 3 times
	pha
	pha

; Three copies of text size now on stack.  First two will be over written by
; Pointer to text.

	ldy #4		; lock compiled text
	lda [ctlParam],y
	ora #$8000
	sta [ctlParam],y
	dey
	dey
	lda [ctlParam],y
	tax
	lda [ctlParam]
	sta 3,s		; Handle^ goes on stack above size word
	txa
	sta 5,s

	lda <CtlPtr		; rect pointer
	clc
	adc #NewCtlRecord.ctlRect
	tax
	lda <CtlPtr+2
	adc #0
	pha
	phx

	ldy #NewCtlRecord.CtlJust
	lda [<CtlPtr],y
	pha
	_LETextBox2

	pei CtlParam+2
	pei CtlParam
	_DisposeHandle

	bra CleanUp

NoSubs
;-----------------------------------------------------------
;
; LeTextBox2 (TextPtr,TextSize,RectPtr,LeftJust)
;
	pha
	pha	; space for result

	jsr GetRefType
	pha
	jsr CtlDataToAX
	phx
	pha
	jsr ConvertRefToPtr

	ldy #NewCtlRecord.ctlValue	; text length
	lda [<CtlPtr],y
	pha

	lda <CtlPtr		; rect pointer
	clc
	adc #NewCtlRecord.ctlRect
	tax
	lda <CtlPtr+2
	adc #0
	pha
	phx

	ldy #NewCtlRecord.CtlJust
	lda [<CtlPtr],y
	pha
	_LETextBox2

;
; CleanUp -- common exit point for both BlastText and normal
;
CleanUp
*** added 27-Oct-91 DAL -- dim out the text if needed
	lda <ctlParam+2		;high word = $FFFF to dim
	bpl @noDim

	ldy #NewCtlRecord.ctlFlag
	lda [<ctlPtr],y
	and #fTextCanDim
	beq @noDim

	pea @dimmedMask>>16
	pea @dimmedMask
	_SetPenMask

	lda <CtlPtr		; rect pointer
	clc
	adc #NewCtlRecord.ctlRect
	tax
	lda <CtlPtr+2
	adc #0
	pha
	phx	;pushed control rectangle
	pea @whitePatt>>16
	pea @whitePatt
	_FillRect
	bra @done

@dimmedMask	dc.b $55,$aa,$55,$aa,$55,$aa,$55,$aa
@whitePatt	dc.b $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff
	dc.b $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff
	dc.b $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff
	dc.b $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff

@done
@noDim
*** end 27-Oct-91

;-----------------------------------------------------------
;
; Unlock anything we locked coming in.
;
	jsr GetRefType
	tax
	beq Fini

	cmp #$0001
	beq @UnlockHandle

	jsr CtlDataToAX
	jsr GetResourceHandle
	bra @UnlockIt

@UnlockHandle	jsr CtlDataToAX
@UnlockIt	phx
	pha
	phd
	tsc
	tcd
	ldy #4
	lda [3],y
	and #$7FFF
	sta [3],y
	pld
	pla
	pla

oops
;-----------------------------------------------------------
;
; Return nothing
;
Fini	lda #0
	tax
	rts




ConvertRefToPtr
	DefineStack
RTS	word
TheRef	long
TheVerb	word
ThePtr	long

	lda TheVerb,s
	and #$0003
	beq @AlreadyPtr

	cmp #1
	beq @ItsHandle

@ItsResource
	lda TheRef+2,s
	tax
	lda TheRef,s
	jsr GetResourceHandle
	sta TheRef,s
	txa
	sta TheRef+2,s

@ItsHandle	tsc
	phd
	tcd
	ldy #4
	lda [TheRef],y
	ora #$8000
	sta [TheRef],y
	lda [TheRef]
	sta ThePtr
	dey
	dey
	lda [TheRef],y
	sta ThePtr+2

	pha
	pha
	pei TheRef+2
	pei TheRef
	_GetHandleSize
	plx
	pla

	pld

	ldy #NewCtlRecord.ctlValue
	txa
	sta [<ctlPtr],y

@Strip	plx
	pla
	pla
	pla
	phx
	rts



@AlreadyPtr
	lda TheRef,s
	sta ThePtr,s
	lda TheRef+2,s
	sta ThePtr+2,s
	bra @Strip


GetResourceHandle
	pha
	pha
	PushWord #rTextForLETextBox2	; type
	phx
	pha
	_CMLoadResource

	pla
	plx
	rts


	ENDP

	title 'StatTextProc -- Utils'
****************************************************************
*
UsefulUtils	PROC
*
* Description
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*
	longa on	; mode
	longi on
*
****************************************************************



;-----------------------------------------------------------
;
; Returns the value in ctlData in A and X registers.
;
	ENTRY CtlDataToAX
CtlDataToAX	
	ldy #NewCtlRecord.ctlData+2
	lda [ctlPtr],y
	tax
	dey
	dey
	lda [ctlPtr],y
	rts


;-----------------------------------------------------------
;
; Returns the text Ref verb in a-reg.
;
	Import GetRefType
GetRefType	PROC EXPORT
	ldy #NewCtlRecord.ctlMoreFlags
	lda [ctlPtr],y
	and #$0003
	rts

	ENDP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/ControlMgr/SuperControl.asm b/IIGS.601.SRC/GSToolbox/ControlMgr/SuperControl.asm
new file mode 100644
index 0000000..3a445b9
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/ControlMgr/SuperControl.asm
@@ -0,0 +1 @@
+	title 'Super Controls'
**********************************************************************
*
*           Copyright Apple Computer, Inc. 1986-89
*                    All rights reserved
*
*
* New Calls Supporting Super Controls
*
* Change History
*
* 23 Nov 88	Steven Glass
*
* Changed GetCtlHandleFromID to take a window pointer as input
* so this call could be used for controls outside the active window.
*
* 15 Feb 89	Harry Yee
*
* Changed MakeNextControlActive and MakeThisCtlActive to first check
* if the control is visible or not before making it active.
* BRC #41247, 41246 (caused problems with invisible Line Edit controls)
*
* 16-Apr-91	Dave Lyons
*
* Changed SendEventToCtl to never send stuff to an invisible control.
*
* 22-Aug-91	Dave Lyons
*
* Made MakeNextCtlTarget (MakeNextControlActive) check for the Command
* key, and cycle through the controls backwards if it's pressed.
*
**********************************************************************
	Blanks off
	String asis
	


;-----------------------------------------------------------
;
; Include Equate and macro files
;
; All.macros
; equates.asm
; superequates.asm
;
	print push
	print off


	INCLUDE 'all.macros'

	include 'equates.asm'
	include 'SuperEquates.asm'
	
;-----------------------------------------------------------
;
; Global Imports
;
	import CMpop0bytes
	import CMpop4bytes
	import CMpop6bytes
	import CMpop8bytes
	import CMpop10bytes
	import CMpop12bytes

	print pop


	title 'FindActiveControl'
****************************************************************
*
FindActiveControl	PROC EXPORT
*
* This routine returns the handle to the active 
* super control.  A number of errors can be returned:
*
*   NOWIND_Err
*   NoCtlError
*   NoSuperCtlError
*   NoCtlActiveError
*
* Note:  This call only works with the front window.
*
*
* Inputs:
*	none
*
* Outputs:
*	ControlHandle
*
* External Refs:
	import CMStartup
	import FindActiveGuts2
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


ResultH	equ Inputs

	jsr CMStartup	; link things in and start things up.

	stz ResultH
	stz ResultH+2

	jsr FindActiveGuts2
	bcs Done

	lda ctlHand	; move result into place
	sta ResultH
	lda ctlHand+2
	sta ResultH+2

Done	brl CMpop0Bytes



	ENDP





	title 'MakeNextControlActive'
****************************************************************
*
MakeNextControlActive PROC EXPORT
*
* This routine returns the handle to the newly activated
* super control.  A number of errors can be returned:
*
*   NOWIND_Err
*   NoCtlError
*   NoSuperCtlError
*   NoCtlToBeActiveError
*
* The newly activated control and the newly deactivated
* control are both sent activation messages so that
* they can change their display.
*
* This routine has the strange ability to return the
* same control as was originally active.  When this
* happens, no activation messages are sent.
*
* Note:  This call only works on the front window.
*
* Inputs:
*	none
*
* Outputs:
*	ControlHandle
*
* External Refs:
	import CMStartup
	import FindActiveGuts2
	import GetFirstSuperControl
	import GetNextSuperControl
	import CallIt
	import CMDispatch
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************
ResultH	equ Inputs

	import dereference

	jsr CMStartup		; link things in and start things up.

	stz work		; indicate that this is the first time in

	stz ResultH
	stz ResultH+2

	jsr FindActiveGuts2		; get first active control in  
	bcc GotActive		; front window.

	PushLong #0		; nothing active, put 0 on stack
	brl TryFirst

GotActive	pei CtlHand+2		; this is the control that needs to
	pei CtlHand		; be made inactive

	ldy #NewCtlRecord.CtlMoreFlags	; Clear current active bit
	lda [<CtlPtr],y
	and #($FFFF-FCtlActive)
	sta [<CtlPtr],y

*** added 22-Aug-91 DAL -- check for Command key to cycle backwards
	lda >$E0C025
	and #$0080
	beq @cycleForward

; Find previous super control.
; <Work is the starting point.  If we get back there we're done.
; <Work+4 is the control we visited last, the one we want to make active.
	lda <ctlHand+2
	ldx <ctlHand
	sta <work+2
	stx <work

@keepAndSearch	lda <ctlHand+2		;this one would be okay, so remember it
	ldx <ctlHand
	sta <work+6
	stx <work+4

@search	jsr GetNextSuperControl
	bcc @gotOne
	jsr GetFirstSuperControl
@gotOne
	ldy #NewCtlRecord.CtlMoreFlags	; can this be active?
	lda [<CtlPtr],y
	and #FCtlCanBeActive
	beq @search		; no, go on

	ldy #NewCtlRecord.CtlFlag	; check if its visible or not
	lda [<CtlPtr],y
	bit #$0080
	bne @search		; no, go on

	lda <ctlHand+2		;are we back where we started yet?
	ldx <ctlHand
	cmp <work+2
	bne @keepAndSearch
	cpx <work
	bne @keepAndSearch
	lda <work+6
	ldx <work+4
	sta <ctlHand+2
	stx <ctlHand
	jsr dereference
	bra useThisControl
@cycleForward
*** end 22-Aug-91 DAL

Again	jsr GetNextSuperControl	; find next control that can be made active
	bcs TryFirst		; no more, so start back

;
; --- Got next super control -----------------------------------------------------------------------
;
TryThis	
	ldy #NewCtlRecord.CtlMoreFlags	; can this be active?
	lda [<CtlPtr],y
	and #FCtlCanBeActive
	beq Again		; no, go on

	ldy #NewCtlRecord.CtlFlag	; check if its visible or not
	lda [<CtlPtr],y
	bit #$0080
	bne Again		; no, go on

useThisControl	ldy #NewCtlRecord.CtlMoreFlags	; make it active
	lda [<CtlPtr],y
	ora #FCtlActive
	sta [<CtlPtr],y

	lda ctlHand		; return result
	sta ResultH
	lda ctlHand+2
	sta ResultH+2

	jsr Notify2		; notify control that is being deact. and
;			; the one being made active, 
;			; deact. control is on stack, active 
;			; control is in ctlhand
NoError	ldy #0
exit	pla		; clear the stack
	pla
	brl CMpop0Bytes


TryFirst	lda <Work		; see if we've been here before
	bne Oops
	dec <Work		; mark that we are here
	jsr GetFirstSuperControl
	bcc TryThis

	bra exit

Oops	ldy #NoCtlToBeActiveError
	bra exit


;-----------------------------------------------------------
;
; This is the entry point for notifying two controls
; that their status changed.
;
; The control that was deactivated is on the stack.
; The control that was activated is in ctlHand
;
; This routine does not alter the stack.
;
	ENTRY Notify2
Notify2
	DefineStack
RTSAddr	word
OldHandle	long

	lda ctlHand
	cmp OldHandle,s
	bne NotSame
	lda ctlHand+2
	cmp OldHandle+2,s
	beq Same

;-----------------------------------------------------------
;
; The active control changed, so we have to notify
; the old one and the new one.

NotSame	lda OldHandle+2,s	; first the old one
	tax
	lda OldHandle,s
	bne OK	; if there was one
	cpx #0
	beq NoOld
OK	jsr Notify
NoOld	ldx CtlHand+2
	lda CtlHand
	jsr Notify

Same	rts


Notify
	pei CtlHand+2	; save old ctlhand
	pei CtlHand
	stx CtlHand+2	; put this one in ctlHand
	sta CtlHand

	lda #0
	tay
	ldx #ctlChangeActivity
	jsr CMDispatch

	pla	; restore CtlHand
	sta CtlHand
	pla
	sta CtlHand+2
	rts

	ENDP
	





	title 'MakeThisCtlActive'
****************************************************************
*
MakeThisCtlActive	PROC EXPORT
*
* This routine makes the specified control active
*
*   NotSuperCtlError
*   CannotBeActiveError
*
*
*
*
* Inputs:
*	TheControl
*
* Outputs:
*	none
*
* External Refs:
	import CMStartup
	import Dereference
	import IsItSuper
	import Notify2
	import FindActiveGuts
	import UseThisWindPtr
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
*
* Change History
*
* 17 Nov 88	Steven Glass
*
* This routine did not work if the control's window was not
* active.  We fix this by getting the control's window pointer
* from the control record instead of the window manager.
*
* Bug was found by opening a window (invisible), calling
* NewControl2 for a number lineedit items.  Each item is 
* made active with this call, but since we could not find
* the window, we could not clear any of the others.
*
* 15 Feb 89	Harry Yee
*
* Before making a control active we were not checking to 
* see whether it was visible first.
*
****************************************************************


TheControl	equ Inputs

	jsr CMStartup	; link things in and start things up.

	lda TheControl	; setup pointer to this control's window.
	sta ctlHand
	lda TheControl+2
	sta ctlHand+2
	jsr Dereference
	ldy #NewCtlRecord.CtlOwner+2
	lda [ctlPtr],y
	tax
	dey
	dey
	lda [ctlPtr],y
	jsr UseThisWindPtr

	jsr FindActiveGuts		; look for old active 
	bcc FoundActive		

	PushLong #0		; there was no old active
	bra FixThisOne		; so put 0 on stack

FoundActive	pei ctlHand+2		; put old active on stack
	pei ctlHand

	jsr Dereference		; clear the active bit
	ldy #NewCtlRecord.CtlMoreFlags
	lda [CtlPtr],y
	and #($FFFF-FCtlActive)
	sta [CtlPtr],y

FixThisOne
	lda TheControl		; move control handle in and deref it
	sta ctlHand		; this is the control that we want to 
	lda TheControl+2		; make active
	sta ctlHand+2

	jsr Dereference

	jsr IsItSuper		; if it is not super, return error
	bcs NotSuper

	ldy #NewCtlRecord.CtlFlag	; check if the control is visible
	lda [<CtlPtr],y
	bit #$0080		; check the invisible bit
	bne NotPossible		; if set then control is invisible

	ldy #NewCtlRecord.CtlMoreFlags	; control is visible, now check if it 
	lda [<CtlPtr],y		; can be made active
	and #FCtlCanBeActive
	beq NotPossible

	lda [<CtlPtr],y		; make it active
	ora #FCtlActive
	sta [<CtlPtr],y

	jsr Notify2		; let control know that its being made 
;			; active
	ldy #0		; no error
exit	pla		; clean stack
	pla
	brl CMpop4Bytes

NotSuper	ldy #NotSuperCtlError	; error is this is not rt type of control
	bra Exit

NotPossible	ldy #CanNotBeActiveError	; error is this cannot be made active
	bra Exit		; caused by ctlMoreFlags FCtlCanBeActive
;			; bit not set or control is invisible

	ENDP



	title 'SendEventToControl'
****************************************************************
*
SendEventToControl	PROC EXPORT
*
* This call is used to send events to the active control and to
* any *visible* control including the active control.
*
* If the ActiveOnly flag is TRUE, then only the active control
* gets the event.
*
* If the Active flag is FALSE, then the following takes place.
* We perform a two part search for a control to take this event.
* First, we look for controls that want key strokes that are 
* not edit fields.  Each control is asked to take the event.
* If none of these controls wants hte event, the active
* edit field is asked to accept the event.
*
* If no control accepts the event, the output is FALSE.  If 
* one of the controls accepts the event, the output is TRUE.
* The handle of the accepting control is put into TaskDATA2 and
* the ItemID is put in TaskDATA3.
*
*
* Inputs:
*	ActiveOnlyFlag
*	WindowPtr
*	TaskRecPtr
*
* Outputs:
*	BooleanWord
*
* External Refs:
	import CMStartup
	import UseThisWindPtr
	import GetFirstSuperControl
	import GetNextSuperControl
	import FindActiveGuts
	import CMDispatch
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* Change History
*
* 04 Nov 88	Steven Glass
*
* The control ID was returned in the wrong place and the
* result from the DefPRoc was not returned at all.
*
* 17 Nov 88	Steven Glass
*
* Now use the specified window pointer instead of FrontWindow.
*
****************************************************************


TaskRecPtr	equ Inputs
WindowPtr	equ TaskRecPtr+4
ActiveOnlyFlag	equ WindowPtr+4
BooleanResult	equ ActiveOnlyFlag+2


	jsr CMStartup

	stz BooleanResult		; assume the worst

	lda WindowPtr
	ldx WindowPtr+2
	jsr UseThisWindPtr
	bcs exit

	lda ActiveOnlyFlag
	bne TryActive

	jsr GetFirstSuperControl
	bcs exit

Loop
	ldy #NewCtlRecord.CtlMoreFlags	; if this one can be active, skip it for now
	lda [<CtlPtr],y
	and #FCtlCanBeActive
	bne SkipThisOne

	lda [<CtlPtr],y	; if the control does not want events, then
	and #FCtlWantEvents	; we skip it.
	beq SkipThisOne

*** 16-Apr-91 DAL -- if the control is invisible, ignore it
	ldy #NewCtlRecord.ctlFlag
	lda [<CtlPtr],y
	and #$0080
	bne SkipThisOne
*** end of 16-Apr-91 DAL

	jsr SendIt

	lda BooleanResult
	bne FinishUp
SkipThisOne
	jsr GetNextSuperControl
	bcc Loop

TryActive
	jsr FindActiveGuts
	bcs Done

	jsr SendIt
	lda BooleanResult
	beq Done


FinishUp
;
; Return the handle to the control in TaskDATA2
;
	ldy #NewTaskRecord.TaskData2
	lda ctlHand
	sta [TaskRecPtr],y
	iny
	iny
	lda ctlHand+2
	sta [TaskRecPtr],y
;
; Return the result passed by defProc in TaskData3
;
	lda BooleanResult
	ldy #NewTaskRecord.TaskData3
	sta [<TaskRecPtr],y
;
; Return the control ID in taskdata4.
;
	ldy #NewCtlRecord.CtlID
	lda [CtlPtr],y
	ldy #NewTaskRecord.TaskData4
	sta [<TaskRecPtr],y
	ldy #NewCtlRecord.CtlID+2
	lda [CtlPtr],y
	ldy #NewTaskRecord.TaskData4+2
	sta [<TaskRecPtr],y

Done	ldy #0
exit	brl CMpop10Bytes

;-----------------------------------------------------------
;
; Local routine to actually call the defproc
;
	
SendIt
	lda TaskRecPtr
	ldy TaskRecPtr+2
	ldx #ctlHandleEvent
	jsr CMDispatch
	sta BooleanResult

	rts


	ENDP

	title 'GetHandleFromID'
****************************************************************
*
getHandleFromID	PROC EXPORT
*
* Returns the handle of the control with the specified ID.
* This routine only searches the specified window.
*
*
* Inputs:
*	HandleSpace	LONG
*	WindowPtr	LONG
*	ID	LONG
*
* Outputs:
*	ControlHandle
*
* External Refs:
	import CMStartup
	import UseThisWindPtr
	import GetFirstSuperControl
	import GetNextSuperControl
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* Change History
*
* 23 Nov 88	Steven Glass
*
* Added WindowPtr input so this call can be made for any window.
*
****************************************************************

TheID	equ Inputs
TheWindow	equ TheID+4
TheHandle	equ TheWindow+4

	jsr CMStartup	Do tool function setup.

	stz <TheHandle	Assume it won't be found
	stz <TheHandle+2

	lda TheWindow
	ldx TheWindow+2
	jsr UseThisWindPtr
	bcs exit

	jsr GetFirstSuperControl
	bcs exit

Loop	ldy #NewCtlRecord.CtlID
	lda [<ctlPtr],y
	cmp <TheID
	bne Nope
	iny
	iny
	lda [<ctlPtr],y
	cmp <TheID+2
	bne Nope

	lda <ctlHand
	sta <TheHandle
	lda <ctlHand+2
	sta <TheHandle+2

	ldy #0
exit	brl CMpop8bytes

nope	jsr GetNextSuperControl
	bcc Loop

	ldy #NoSuchIDError
	bra exit


	ENDP


	title 'Set and Get CtlID'
****************************************************************
*
setCtlID	PROC EXPORT
*
* Sets CtlID field in control.
*
*
* Inputs:
*	TheID	LONG
*	TheControl	LONG
*
* Outputs:
*	none
*
* External Refs:
	import CMStartup
	import getCtlHand
	import isItSuper
	import set_long
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


	jsr CMStartup	Do tool function setup.
;
	jsr getCtlHand	ctlHand = passed control handle.
;	                  	ctlPtr = (ctlHand).
	ldy #NoCtlError
	bcs pop8	Null handle passed?
;
	jsr IsItSuper
	bcs pop8

	ldy #NewCtlRecord.CtlID
	brl Set_LONG

	ldy #0
pop8
	brl CMpop8bytes
	

	ENDP


****************************************************************
*
GetCtlID	PROC EXPORT
*
* Returns CtlID field in control.
*
*
* Inputs:
*	space for result	LONG
*	TheControl	LONG
*
* Outputs:
*	TheID	LONG
*
* External Refs:
	import CMStartup
	import getCtlHand
	import isItSuper
	import get_long
	import pop4
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


	jsr CMStartup	Do tool function setup.
;
	jsr getCtlHand	ctlHand = passed control handle.
;	                  	ctlPtr = (ctlHand).
	ldy #NoCtlError
	bcs pop4	Null handle passed?
;
	jsr IsItSuper
	bcs pop4

	ldy #NewCtlRecord.CtlID
	brl get_long


	ENDP


	title 'Get and Set MoreFlags'
****************************************************************
*
GetCtlMoreFlags	PROC EXPORT
*
* Returns the moreflags field of the control record.
*
*
* Inputs:
*	WordSpace
*	ControlHandle
*
* Outputs:
*	MoreFlags        WORD
*
* External Refs:
	import CMStartup
	import isItSuper
	import getCtlHand
*
* Entry Points:
	entry pop4
*
	longa on	; mode
	longi on
*
****************************************************************
TheControl	equ Inputs
ResultFlags	equ TheControl+4

	jsr CMStartup	Do tool function setup.
;
	jsr getCtlHand	ctlHand = passed control handle.
;	                  	ctlPtr = (ctlHand).
	ldy #NoCtlError
	bcs pop4	Null handle passed?
;
	jsr IsItSuper
	bcs pop4
;
	ldy #NewCtlRecord.CtlMoreFlags

	lda [<Ctlptr],y
	sta <ResultFlags
;
	ldy #0	No error flag.


	entry pop4
pop4
	brl CMpop4bytes
;
	
	ENDP

****************************************************************
*
SetCtlMoreFlags	PROC EXPORT
*
* Sets the moreFlags field of the control record.
*
*
* Inputs:
*	NewControlType  WORD
*	ControlHandle   LONG
*
* Outputs:
*	none
*
* External Refs:
	import CMStartup
	import getCtlHand
	import get_long
	import isItSuper
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************
TheControl	equ Inputs
NewFlags	equ TheControl+4

	jsr CMStartup	Do tool function setup.
;
	jsr getCtlHand	ctlHand = passed control handle.
;	                  	ctlPtr = (ctlHand).
	ldy #NoCtlError
	bcs pop6	Null handle passed?
;
	jsr IsItSuper
	bcs pop6
;
	ldy #NewCtlRecord.CtlMoreFlags
;
	lda <NewFlags
	sta [<Ctlptr],y
;
	ldy #0	No error flag.
;
pop6
	brl CMpop6bytes
	
	ENDP


	title 'NotifyControls'
****************************************************************
*
NotifyControls	PROC EXPORT
*
* For every super control in the control list whose
* MoreFlags field ANDs with mask and is not zero, we
* send the indicated message with the indicated param.
*
*
;   IN:  PUSH:WORD - MASK
;        PUSH:WORD - Message to Send
;        PUSH:LONG - Value for Param
;        PUSH:LONG - Pointer to Window
;        
;  OUT:  Nothing.
;
*
* External Refs:
	import CMStartup
	import UseThisWindPtr
	import GetFirstSuperControl
	import GetNextSuperControl
	import Set2Draw
	import PushPort
	import Set2DrawCtl
	import ReadMoreFlags
	import CMDispatch
	import PopPort
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* Change History
*
* 04 Nov 88	Steven Glass
*
* Added input to this routine so can notify controls that
* are not in the front window.
*
* 17 Nov 88	Steven Glass
*
* Now use the specified window pointer instead of FrontWindow.
*
****************************************************************
	DSect Inputs
TheWindow	long
TheParam	long
TheMessage	word
TheMask	word
;
;
	jsr CMStartup	Do tool function setup.

	lda TheWindow
	ldx TheWindow+2
	jsr UseThisWindPtr
	bcs exit

	jsr GetFirstSuperControl
	bcs exit
;

	jsr set2draw	Setup to draw standard controls.
	jsr pushPort	Save the current port.
	jsr set2drawCtl	Setup to draw the control.


Loop
	jsr ReadMoreFlags
	and TheMask
	beq SkipThisOne

	lda <TheParam	Pass new view and data sizes.
	ldy <TheParam+2
	ldx <TheMessage	Task number.
	jsr CMDispatch

SkipThisOne
	jsr GetNextSuperControl
	bcc Loop

	jsr popPort	Restore the current	port.
;
exit	ldy #0	No error flag.
	brl CMpop12bytes
	
	ENDP





	title 'IsItSuper'
****************************************************************
*
IsItSuper	PROC
*
* This short routine returns whether or not the 
* control in ctlHand/ctlPtr is a super control.
*
* If it is a super control, then y is zeroed and carry is 
* clear.  If it is not, y is set to the NotSuperCtlError
* and carry is set.
*
*
*
* Inputs:
*	CtlPtr
*
* Outputs:
*	carry
*	y-reg
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


	ldy #NewCtlRecord.CtlProc+2
	lda [<CtlPtr],y
	bpl Nope

	ldy #0
Out	cpy #1
	rts

Nope	ldy #NotSuperCtlError
	bra Out


	ENDP



	title 'GetFirstSuperControl'
****************************************************************
*
GetFirstSuperControl PROC
*
* Sets ctlHand and CtlPtr up with the first super control
* in the control list.
*
* Two errors can be returned:
*
*   NoCtlError
*   NoSuperCtlError
*
*
* Inputs:
*	GetFirstCtl relys on Windptr being right
*
* Outputs:
*	ctlHand & CtlPtr
*	Carry   clear if there is one
*  	        set if there is not
*	y-reg   0 if no error
*	        error code otherwise
*
* External Refs:
	import GetFirstCtl
	import IsItSuper
	import next_Ctl
*
* Entry Points:
	ENTRY GetNextSuperControl
*
	longa on	; mode
	longi on
*
****************************************************************

	jsr GetFirstCtl
	beq NoControl
	jsr IsItSuper
	bcc Done

;-----------------------------------------------------------
;
; Secondary Entry for GetNextSuperControl
;

GetNextSuperControl

Loop	jsr Next_Ctl
	beq Nope
	jsr IsItSuper
	bcs Loop

Done	ldy #0
	rts

Nope	ldy #NoSuperCtlError
	sec
	rts

NoControl	ldy #NoCtlError
	sec
	rts

	ENDP

	title 'UseThisWindPtr'
****************************************************************
*
UseThisWindPtr	PROC
*
* This routine sets up the indicated window pointer for use.
* If the specified pointer is zero, we use the front window
* instead.
*
* Secondary entry point (UseFrontWindow works the same but
* does not check input registers, just calls frontwindow).
*
*
* Inputs:
*	a-reg   low word of window ptr
*	x-reg   high word of window ptr
*
* Outputs:
*	carry   indicates error
*	y-reg   has error if any
*	windPtr (direct page) set for use
*
* External Refs:
	import makeWPtr
*
* Entry Points:
	entry UseFrontWindow
*
	longa on	; mode
	longi on
*
* Change History
*
* 21 Nov 88	Steven Glass
*
* Had a bne instead of beq to iszero on last test after
* front window call.
*
****************************************************************


	txy
	bne NotZero
	tay
	bne NotZero

UseFrontWindow
	pha
	pha
	_FrontWindow
	pla
	plx

	
	bne NotZero
	tay
	beq IsZero

NotZero
	jsr  makeWptr		;windptr = pointer to window.
	clc
	rts

IsZero
	ldy #NOWIND_Err
	sec
	rts

	ENDP


	title 'ActiveGuts'
****************************************************************
*
ActiveGuts	PROC
*
* This routine finds the active super control in the window
* specified by WindowPtr. The result is returned in ctlHand 
* on direct page.
*
* If the control is not found, an error is returned in 
* the y-reg.  The y-reg is zero if all is ok.
*
* Possible errors are.
*
*   NOWIND_Err
*   NoCtlError
*   NoSuperCtlError
*   NoCtlActiveError
*
*
*
*
* Inputs:
*	none
*
* Outputs:
*	ControlHandle
*
* External Refs:
	import CMStartup
	import GetFirstSuperControl
	import GetNextSuperControl
	import UseFrontWindow
*
* Entry Points:
	ENTRY FindActiveGuts     ; (uses indicated window)
	ENTRY FindActiveGuts2    ; (uses frontwindow)
*
	longa on	; mode
	longi on
*
****************************************************************


ResultH	equ Inputs

FindActiveGuts2
	jsr UseFrontWindow
	bcs exit

FindActiveGuts
	jsr GetFirstSuperControl
	bcs exit


Loop	ldy #NewCtlRecord.CtlMoreFlags
	lda [<CtlPtr],y
	and #FCtlActive
	beq NotThisOne


	ldy #0	; no error
exit	cpy #1	; set carry correctly for error condition
	rts

NotThisOne	jsr GetNextSuperControl
	bcc Loop

	ldy #noCtlActiveError
	bra Exit


	ENDP


	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/ControlMgr/SuperEquates.asm b/IIGS.601.SRC/GSToolbox/ControlMgr/SuperEquates.asm
new file mode 100644
index 0000000..8fca98b
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/ControlMgr/SuperEquates.asm
@@ -0,0 +1 @@
+;-----------------------------------------------------------
;
; Equates for Control Types

simpleButtonControl	equ $80000000
checkControl	equ $82000000
radioControl	equ $84000000
scrollBarControl	equ $86000000
growControl	equ $88000000
statTextControl	equ $81000000
LineEditControl	equ $83000000
TextEditControl	equ $85000000
popUpControl	equ $87000000
listControl	equ $89000000
iconButtonControl	equ $8B000000
pictureControl	equ $8D000000


;-----------------------------------------------------------
;
; New action messages supported by some controls
;
ctlHandleEvent	equ 13	13 Send the event record to control
ctlChangeActivity	equ 14	14 The activity bit in MoreFlags just changed.
ctlChangeBounds	equ 15
ctlWindChangeSize   equ 16
ctlHandleTab	equ 17
ctlNotifyMultiPart	equ 18	18 Called if set and when HideControl is called
ctlWinStateChange	equ 19	Called if window state changes.

;-----------------------------------------------------------
;
; New Error codes for control manager.
;
NoCtlError	equ $1004	no controls in window
NoSuperCtlError 	equ $1005	no super controls in window
NoCtlActiveError	equ $1006	no active super control
NotSuperCtlError	equ $1007	action can only be done on super control
CanNotBeActiveError	equ $1008	This control cannot be made active
NoSuchIDError	equ $1009	The specified ID cannot be found

TooFewParmsError	equ $100A	;there were not enough parameters specified.

NoCtlToBeActiveError equ $100B	Tried to make next ctl active, but no ctls could be active.

NoWind_Err	equ $100C	There is no front window.


;-----------------------------------------------------------
;
; MoreFlags Bit Definitions
;

FCtlActive	equ $8000
FCtlCanBeActive	equ $4000
FCtlWantEvents	equ $2000
FCtlProcRefNotPtr	equ $1000
FctlTellAboutGrow	equ $0800
FctlIsMultiPart	equ $0400


TitleVerbMask	equ %00000011
ColorTableVerbMask	equ %00001100
IVVerbMask	equ %00000011

TitleIsPtr	equ 0
TitleIsHandle	equ 1
TitleIsResource	equ 2

ColorTableIsPtr	 equ %00000000
ColorTableIsHandle	 equ %00000100
ColorTableIsResource equ %00001000

IVIsPtr	equ 0
IVIsHandle	equ 1
IVIsResource	equ 2

;-----------------------------------------------------------
;
; Flag bit definitions for StatText Controls
;
FSubstituteText	equ $0002	; Bit is set to indicate that text must be substituted
FSubTextType	equ $0001	; Bit is set to indicate PStrings, clear for Cstrings
		;  (bit is sent to compile text as is.)



;---------------------------------------------------------------
; these are the verbs that NewControl2 supports:
;---------------------------------------------------------------
singlePtr	equ  0
singleHandle	equ  1
singleResource	equ  2
ptrToPtr	equ  3
ptrToHandle	equ  4
ptrToResource	equ  5
handleToPtr	equ  6
handleToHandle	equ  7
handleToResource	equ  8
resourceToResource	equ  9


NewCtlRecord	RECORD  0
;---------------------------------------------------------------
ctlNext	ds.l  1
ctlOwner	ds.l  1
ctlRect	ds.w  4
ctlFlag	ds.b  1
ctlHilite	ds.b  1
ctlValue	ds.w  1
ctlProc	ds.l  1
ctlAction	ds.l  1
ctlData	ds.l  1
ctlRefCon	ds.l  1
ctlColor	ds.l  1
ctlReserved	ds.b  16
ctlID	ds.L  1
ctlMoreFlags	ds.w  1
ctlVersion	ds.w  1
;---------------------------------------------------------------
ctlSize
;---------------------------------------------------------------

ctlKey1	equ ctlReserved
ctlKey2	equ ctlKey1+1
ctlKeyMods	equ ctlKey2+1
ctlKeyModsCareBits	equ ctlKeyMods+2

ctlJust	equ ctlReserved

	ENDR






MINTEMPLATEPCOUNT	equ 6

;-----------------------------------------------------------
;
; This is the generic template record.  All templates have
; these fields in them.
;
TemplateRecord	RECORD  0

pCount	ds.w  1	;parameter count (must be at least 6)
ID	ds.l  1	;ID for the control 
Rect	ds.w  4	;bounding rectangle
ProcRef	ds.L  1	;Ref to DefProc, determines control type
Flags	ds.w  1	;old style flag word
MoreFlags	ds.w  1	;new flag word
RefCon	ds.l  1	;application defined

	ENDR

;-----------------------------------------------------------
;
; This is the generic template record.  All templates have
; these fields in them.
;
CustomTemplate	RECORD  0

pCount	ds.w  1	;parameter count (must be at least 8)
ID	ds.l  1	;ID for the control 
Rect	ds.w  4	;bounding rectangle
ProcRef	ds.L  1	;Ref to DefProc, determines control type
Flags	ds.w  1	;old style flag word
MoreFlags	ds.w  1	;new flag word
RefCon	ds.l  1	;application defined
defProcDATA	ds.b  1

	ENDR


;-----------------------------------------------------------
;
; This is the template for simpleButtonControl.
;
simpleButtonTemplate RECORD  0

pCount	ds.w  1	;parameter count (7 or 8)
ID	ds.l  1	;ID for the control 
Rect	ds.w  4	;bounding rectangle
ProcRef	ds.L  1	;simpleButtonControl = $80000000
Flag	ds.w  1	;low 2 bits refer to button type
MoreFlags	ds.w  1	;bits 0-3 refer to titleref and colortable ref
RefCon	ds.l  1	;application defined
TitleRef	ds.L  1	;Pointer, Handle or resourceID
ColorTableRef	ds.L  1	;Optional Pointer, Handle or resourceID
Key1	ds.b  1	;Optional key equivalent
Key2	ds.b  1	;Optional key equivalent
KeyMods	ds.w  1	;Required modifiers
KeyModsCareBits	ds.w  1	;Mask indicating which mods matter.

	ENDR

;-----------------------------------------------------------
;
; This is the template for checkControl.
;
checkTemplate 	RECORD  0

pCount	ds.w  1	;parameter count (8 9)
ID	ds.l  1	;ID for the control 
Rect	ds.w  4	;bounding rectangle
ProcRef	ds.L  1	;checkControl = $82000000
Flag	ds.w  1	;nothing special
MoreFlags	ds.w  1	;bits 0-3 refer to titleref and colortable ref
RefCon	ds.l  1	;application defined
TitleRef	ds.L  1	;Pointer, Handle or resourceID
Value	ds.w  1	;Initial state of check box
ColorTableRef	ds.L  1	;Optional Pointer, Handle or resourceID
Key1	ds.b  1	;Optional key equivalent
Key2	ds.b  1	;Optional key equivalent
KeyMods	ds.w  1	;Required modifiers
KeyModsCareBits	ds.w  1	;Mask indicating which mods matter.

	ENDR

;-----------------------------------------------------------
;
; This is the template for radioControl.
;
radioTemplate	RECORD  0

pCount	ds.w  1	;parameter count (8 9)
ID	ds.l  1	;ID for the control 
Rect	ds.w  4	;bounding rectangle
ProcRef	ds.L  1	;radioControl = $84000000
Flag	ds.w  1	;bits 0-6 are family number
MoreFlags	ds.w  1	;bits 0-3 refer to titleref and colortable ref
RefCon	ds.l  1	;application defined
TitleRef	ds.L  1	;Pointer, Handle or resourceID
Value	ds.w  1	;Initial state of radio button
ColorTableRef	ds.L  1	;Optional Pointer, Handle or resourceID
Key1	ds.b  1	;Optional key equivalent
Key2	ds.b  1	;Optional key equivalent
KeyMods	ds.w  1	;Required modifiers
KeyModsCareBits	ds.w  1	;Mask indicating which mods matter.

	ENDR

;-----------------------------------------------------------
;
; This is the template for statTextControl.
;
StatTextTemplate	RECORD  0

pCount	ds.w  1	;parameter count (7, 8 or 9)
ID	ds.l  1	;ID for the control 
Rect	ds.w  4	;bounding rectangle
ProcRef	ds.L  1	;StatTextControl = $81000000
Flag	ds.w  1	;low 2 bits refer to TextRef
MoreFlags	ds.w  1	;must be 0
RefCon	ds.l  1	;application defined
TextRef	ds.L  1	;Pointer, Handle or resourceID
TextSize	ds.w  1	;If text is ref'ed by ptr this is valid
Just	ds.w  1	;Initial justification word to be passed to LETextBox2

	ENDR


;-----------------------------------------------------------
;
; This is the template for LineEdit controls
;
LineEditTemplate	RECORD  0

pCount	ds.w  1	;parameter count (8)
ID	ds.l  1	;ID for the control 
Rect	ds.w  4	;bounding rectangle
ProcRef	ds.L  1	;LineEditControl = $83000000
Flag	ds.w  1	;old style flag word
MoreFlags	ds.w  1	;new flag word
RefCon	ds.l  1	;application defined
MaxLen	ds.w  1	;maximum length of input line
IVRef	ds.L  1	;Reference to initial value

	ENDR


;-----------------------------------------------------------
;
; This is the template for Picture controls.
;
PictureTemplate	RECORD  0

pCount	ds.w  1	;parameter count (7)
ID	ds.l  1	;ID for the control 
Rect	ds.w  4	;bounding rectangle
ProcRef	ds.L  1	;PictureControl = $8D000000
Flag	ds.w  1	;old style flag word
MoreFlags	ds.w  1	;bit 0 refers to PicRef (0 handle, 1 resource)
RefCon	ds.l  1	;application defined
PicRef	ds.L  1	;handle or resource

	ENDR


;-----------------------------------------------------------
;
; This is the template for Scroll Controls
;
ScrollTemplate	RECORD  0

pCount	ds.w  1	;parameter count (8 or 9)
ID	ds.l  1	;ID for the control 
Rect	ds.w  4	;bounding rectangle
ProcRef	ds.L  1	;ScrollControl = $86000000
Flag	ds.w  1	;old style flag word
MoreFlags	ds.w  1	;bit 0 refers to PicRef (0 handle, 1 resource)
RefCon	ds.l  1	;application defined
DataSize	ds.w  1	;amount of data represented by the scroll bar
ViewSize	ds.w  1	;amount of data seen at one time
InitialThumb	ds.w  1	;initial setting of the thumb.
ColorRef	ds.L  1	;Reference to color table

	ENDR


;-----------------------------------------------------------
;
; This is the template for Scroll Controls
;
GrowTemplate	RECORD  0

pCount	ds.w  1	;parameter count (6 or 7)
ID	ds.l  1	;ID for the control 
Rect	ds.w  4	;bounding rectangle
ProcRef	ds.L  1	;GrowControl = $88000000
Flag	ds.w  1	;old style flag word
MoreFlags	ds.w  1	;bit 0 refers to PicRef (0 handle, 1 resource)
RefCon	ds.l  1	;application defined
ColorRef	ds.L  1	;Reference to color table

	ENDR

;-----------------------------------------------------------
;
; This is the template for List Controls
;
ListTemplate	RECORD  0

pCount	ds.w  1	;parameter count (14 or 15)
ID	ds.l  1	;ID for the control 
Rect	ds.w  4	;bounding rectangle
ProcRef	ds.L  1	;ListControl = $89000000
Flag	ds.w  1	;old style flag word
MoreFlags	ds.w  1	;
RefCon	ds.l  1	;application defined
ListSize	ds.w  1	;num members in list
ListView	ds.w  1	;num members seen at one time
ListType	ds.w  1	;multi-selections, pascal strings etc
ListStart	ds.w  1	;First member to be seen
ListDraw	ds.L  1	;member drawing routine
ListMemHeight	ds.w  1	;height of each item
ListMemSize	ds.w  1	;num bytes in list record
ListRef	ds.L  1	;ref to list of member records
ColorRef	ds.L  1	;Reference to color table

	ENDR


;-----------------------------------------------------------
;
; Extended task record def
;

NewTaskRecord	Record 0
taskWhat   	ds.W 1	EQU   $00 ; Word - WmTaskRec -  
taskMessage   	ds.L 1	EQU   $02 ; Long - WmTaskRec -  
taskWhen   	ds.L 1	EQU   $06 ; Long - WmTaskRec -  
taskWhere   	ds.L 1	EQU   $0A ; Point - WmTaskRec -  
taskModifiers   	ds.W 1	EQU   $0E ; Word - WmTaskRec -  
taskData   	ds.L 1	EQU   $10 ; Long - WmTaskRec - TaskMaster return value.
taskMask   	ds.L 1	EQU   $14 ; Long - WmTaskRec - TaskMaster feature mask.
taskLastClick	ds.L 1
taskClickCount	ds.W 1
taskData2	ds.L 1
taskData3	ds.L 1
taskData4	ds.L 1



	ENDR


SuperCtlSize	equ NewCtlRecord.ctlSize



MaxMessages	equ 13


;-----------------------------------------------------------
;
; Resource Type Definitions
;
rIcon	equ $8001
rPicture	equ $8002
rControlList	equ $8003
rControlTemplate	equ $8004
rWindow	equ $8005
rString	equ $8006
rStringList	equ $8007
rMenuBar	equ $8008
rMenu	equ $8009
rMenuItem	equ $800A
rTextForLETextBox2	equ $800B
rCtlDefProc	equ $800C
rCtlColorTable	equ $800D

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/ControlMgr/cm.loader.asm b/IIGS.601.SRC/GSToolbox/ControlMgr/cm.loader.asm
new file mode 100644
index 0000000..949e616
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/ControlMgr/cm.loader.asm
@@ -0,0 +1 @@
+	include 'all.macros'
	include 'e16.locator'


MMLoader	PROC

True	equ $FFFF
False	equ 0

MyHandle	equ 0
MyPointer	equ 4
Ptr	equ 8


TheUserID	equ $4010




;-----------------------------------------------------------
;
; Brk if necessary
;
	lda >$C062
	and #$0080
	beq @NoBreak
	brk 17
@NoBreak



;-----------------------------------------------------------
;
; Set dbr
;

	phk
	plb


;-----------------------------------------------------------
;
; Unload last patch
;

	pha	; space for result
	PushWord #TheUserID
	PushWord #0
	_UserShutdown

	pla

;-----------------------------------------------------------
;
; Load the new one
;


	pha	; space for dir page stack size
	pha	; space for addr of	dir page stack seg
	pha	; space for starting addr
	pha
	pha	; space for user id
	PushWord #TheUserID	; user id
	PushLong #TheName	; ptr to path name
	PushWord #True
	_InitialLoad
	bcs Die

	pla	; ignore userid
	pla	; put starting address
	sta TableAddress
	pla
	sta TableAddress+2
	pla	; ignore dir page
	pla	; ignore dir page size


;-----------------------------------------------------------
;
; Install
;
	PushWord #0	; system call
	PushWord #$0010	; install the patch
	PushLong TableAddress
	_SetTSPtr
	
	_SetDefaultTPT

;-----------------------------------------------------------
;
; Quit
	_Quit QuitParams


QuitParams	DC.L 0
	DC.W 0


TheName	str '1/tool016'

TableAddress	DS.B 4





Die		; 
	pha
	PushLong #ErrorString
	_SysFailMgr

ErrorString	str 'Could not load.  Error was $'

	ENDP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/ControlMgr/defprocs.asm b/IIGS.601.SRC/GSToolbox/ControlMgr/defprocs.asm
new file mode 100644
index 0000000..ac04ed1
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/ControlMgr/defprocs.asm
@@ -0,0 +1 @@
+	title 'DefProcs'
**********************************************************************
*
* Control Manager Def Procs
*
* Copyright (C)
* Apple Computer, Inc. 1986-1992
* All Rights Reserved
*
* 28 Sep 88	Steven Glass
*
* Change in the way that the recsize routines can use the param
* field.  If the routines are called by NewControl, param is zero.
* If the routines are called by NewControl2, param is pointer to
* template.
*
* Added code to nor_size to see what kind of control is being built.
* When the control is super, it sees if the title or color table must
* be included in the control record when determining the size.
*
* Added code to simp_init to init the fields that are not inited
* by NewControl2
*
* Added simp_disp to release any resources accessed by the def_proc.
*
* 18 Nov 88	Steven Glass
*
* Check Invis bit in each draw routine:
*
*	simp_draw
*	check_draw
*	radio_draw
*	grow_draw
*	scroll_draw
*
* Only draw if bit is clear.
*
* 07 Dec 88	Steven Glass
*
* PCount test in InitScroll was wrong.
*
* 19 Dec 88	Steven Glass
*
* In order to get the setup of the ColorPtr removed from the
* standard start drawing routines, I've put it into this
* file.  Every entry point that leads to drawing now must
* have a call to setupColor in it.  
*
* Moreover, all references to the color table after
* setup color must be made before any call that can move
* memory.
*
* Sure hope this works.
*
* 22 Feb 89	Harry Yee
*
* Dimming done on a simple button is different from dimming for any
* of the other standard controls. We were not checking the right flags
* to determine whether the control was a simple button or not therefore
* we were always dimming a control that was rectangular. Once we've
* determined that a control is a simple button we must also check whether
* its a rectangular or round button. If rectangular than dimming is done
* the same as that for other controls. BRC #44356.
*
* Modified MoveThumb routine. The colorptr was not being set up at the 
* right place. SetUpColor which sets up <colorptr was being called at
* a place that could get branched around. This caused problems because
* draw_thumb, which always gets called expects <colorptr to be set up. 
*
* 28 Mar 89	Steven Glass
*
* All defProcs now support the new ctlWinstateChange message.  All in
* this file just inval their ctlRects.
*
*
* 05 Apr 89	Dave Good
*
* The scroll bar and grow box defprocs now call the correct routine
* to invalidate their rects (they used to just jump to an rts).
*
* 06 Apr 89	Harry Yee
*
* Fix bug in grow box control init routine (init_grow). We use to just check
* the middle byte of the ctlColor field to see if the default color table
* should be used. If the ctlColor field was a resource ID then there was a
* good chance that the middle byte would be zero (i.e. ID = 1) and the ptr
* to the default color table would overwrite the resource ID. We now check
* to make the sure the high and low byte of ctlColor is zero before using
* the default.
*
* For buttons, radio buttons, and check boxes that use resources for their
* color table we were not releasing the color resource correctly. Fixed.
*
* 07 Apr 89	Harry Yee
*
* The Check box and radio button icon would not draw correctly if the control
* used a resource for its color table. In routine radio_check the x-reg comes
* set to value that tells the routine with icon to draw. Routine SetupColor
* was trashing the x-reg before it got used if the color table happened to be
* a resource. We now save the value of <x> on the stack before calling SetupColor.
* WorkSheet #BCOJHS099. 
*
* 28 Apr 89	Harry Yee
*
* Changed routine Radio_Check. The width of the radio button icon was not being
* set up correctly because routine get_csize requires the x-reg to be setup when 
* its called, which it wasn't. Going into routine get_csize x-reg was always zero. 
* Therefore when we drew the title we were calculating the x start position using 
* the width for a check box icon (which is icon number 0) instead of a radio 
* button icon.
*
* 4-Jan-91	Dave Lyons
*
* Changed scroll bar NewValue routine (move_thumb) to delay until minScrollTicks
* have passed since the last scroll bar NewValue message.  This maxes out the
* scrolling speed for souped-up machines.
*
* 6-Jan-91	Dave Lyons
*
* Changed the scroll bar delay thing to use WaitUntil in misc tools.
*
* 21-Apr-91	Dave Lyons
*
* Added a missing SEC in draw_icon (for scroll bar bug).
*
* 9-Dec-91	Dave Lyons
*
* Scroll_init calls CtlNewRes to force computation of the new pattern/color
* for the thumb area (gray if available, checkerboard if not).
*
* Scroll_draw checks bit 6 of the scroll bar's ctlFlag; if set, the bar
* is part of an extended list control (handle in the refcon), so it calls
* CallCtlDefProc and feeds the list the ctlChangeTarget message so that
* the focus frame is always redrawn.
*
* 9-Jan-92	Dave Lyons
*
* Set a valid port around the CtlNewRes call in the scroll bar defproc.
*
* 6-Feb-92	Dave Lyons
*
* Scroll bar preserves [<data],State around CallCtlDefProc when notifying
* an extended List control to redraw the focus frame.
*
**********************************************************************

	string asis
	blanks off

	print push
	print off

	include 'all.macros'
	include 'equates.asm'
	include 'superequates.asm'
	include 'e16.event'

	print pop

	title 'SIMP_PROC'
;====================================================================
;
;          Main line Simple Button handler.
;
;   IN:    a = task.
;          Ctlptr =	pointer to control.
;          param = additional parameter.
;
;  OUT:    a = low word of returned value.
;          x = high	word of returned value.
;
;====================================================================
simp_proc 	proc EXPORT

	cmp #ctlWinStateChange+1	Ignore any messages out of range
	bcs null_ret

	asl a	Compute index for dispatch.
	tax
	lda >simp_tasks,x
	pha
	ldx #$FFFF	Simple buttom number.
	rts	Complete the task.
;
simp_tasks	DC.W simp_draw-1	0 Draw simple button.
	DC.W null_ret-1	1 Compute drag RECT.
	DC.W test_butt-1	2 Common hit test routine.
	DC.W simp_init-1	3 Initialize the control.
	DC.W simp_disp-1	4 Dispose.
	DC.W simp_draw-1	5 New value.
	DC.W null_ret-1	6 Compute Thumber constrains.
	DC.W null_ret-1	7 Drag the indicator.
	DC.W null_ret-1	8 Auto action.
	DC.W simp_draw-1	9 New value.
	DC.W null_ret-1	10 Set min max.
	DC.W null_ret-1	11 Move button.
	DC.W nor_size-1	12 Return size of standard record.
	dc.W nor_event-1	13 Handle events
	dc.W null_ret-1	14 ctlChangeTarget
	dc.W null_ret-1	15 ctlChagneBounds
	dc.W null_ret-1	16 ctlWindChagneSize
	dc.W null_ret-1	17 ctlHandleTab
	dc.W null_ret-1	18 ctlNotifyMultiPart
	dc.W Inval_rect-1	19 ctlWinStateChange (just inval)
	ENDP

;====================================================================
;
;          Return Null
;
;====================================================================
null_ret	proc EXPORT
;
	lda #0	Nothing flag.
	tax
	
	rts
	
	ENDP


;====================================================================
;
;          nor_event
;
;====================================================================
nor_event	proc EXPORT

	ldy #NewCtlRecord.ctlHilite
	lda [ctlPtr],y
	and #$00FF
	cmp #$00FF
	beq DontWantIt

	ldy #oWhat
	lda [param],y
	cmp #keyDownEvt
	beq TryThisOne

	cmp #autoKeyEvt
	bne DontWantIt

TryThisOne

;
; Start with the modifiers.
;
	ldy #oModifiers		; Look at the high byte
	lda [param],y		; of the modifiers
	and #$FF00
	ldy #NewCtlRecord.ctlKeyModsCareBits	; and with the care bits
	and [ctlPtr],y
	dey		; compare with the desired mods
	dey
	cmp [ctlPtr],y
	bne DontWantIt

;
; If we get to here, then the mods matched.  So look at the key.
;
	dey
	dey
	lda [ctlPtr],y
	tax
	and #$00FF		; first look at key1
	ldy #oMessage
	cmp [param],y
	beq WantIt

	txa		; now try key2
	xba
	and #$00FF
	cmp [param],y
	bne DontWantIt

WantIt
	ldy #NewCtlRecord.ctlProc+3
	lda [ctlPtr],y
	and #$007F
	tax
	lda >WhichPart,x
	pha
	pei ctlHand+2
	pei ctlHand
	_HiliteControl

	PushWord #0
	pei ctlHand+2
	pei ctlHand
	_HiliteControl

	lda #$FFFF	Return true for having handled event
	tax
	rts


DontWantIt
	lda #0	Return False, don't want event.
	tax
	
	rts




WhichPart
	dc.w 2	; button offset is 0, part is 2
	dc.w 3	; check offset is 2, part is 3
	dc.w 4	; radio offset is 4, part is 4
	ENDP


;====================================================================
;
;          simp_disp
;
; releases any resources used by the control
;
;====================================================================
simp_disp	proc EXPORT

	ldy #NewCtlRecord.ctlProc+2
	lda [ctlPtr],y
	bpl NeverMind

	jsr ReadMoreFlags
	and #TitleVerbMask
	cmp #TitleIsResource
	bne TitleNotResource

	PushWord #rString
	jsr CtlDataToAX
	phx
	pha
	jsr ReleaseResource

TitleNotResource
	jsr ReadMoreFlags
	and #ColorTableVerbMask
	cmp #ColorTableIsResource
	bne CTNotResource

	PushWord #rCtlColorTable

	ldy #NewCtlRecord.ctlColor+2
	lda [<Ctlptr],y
	pha
	ldy #NewCtlRecord.ctlColor
	lda [<Ctlptr],y
	pha

	jsr ReleaseResource

CTNotResource


NeverMind
	lda #0
	tax
	rts

	ENDP
;====================================================================
;
;          Return size of required record.
;
;====================================================================
nor_size	proc EXPORT

	lda param
	ora param+2
	bne EeeGads

	lda #CtlColor+4	Size of standard control record.
	ldx #0	High word of size.
	
	rts


EeeGads
	lda #SuperCtlSize
	ldx #0

	rts


	ENDP




;====================================================================
;
;          Initialize simple button.
;
;   IN:    x = $FFFF to initialize a simple buttom.
;          x = zero	to initialize check	box.
;          x = 4 to	initialize radio button.
;          Ctlptr =	control pointer.
;
; NewControl set all the fields but some defaults need 
; expansion.
;
; NewControl2 requires that the same fields be expanded
; and the indicated fields be set.  (They are initted to
; zero.
;
;   ctlNext
;   ctlOwner
;   ctlRect *****
;   ctlFlag
;   ctlHilite
;   ----- ctlValue
;   ctlProc
;   ----- ctlAction
;   ----- ctldata
;   ctlRefCon
;   ----- ctlColor *****
;   ctlID
;   ctlType
;   ctlSize
;   ctlMoreFlags
;   defProcVerb
;
; ----- means needs setting
; ***** means needs expanding
;
;====================================================================
simp_init	proc EXPORT

;-----------------------------------------------------------
;
; See who called us and init the fields accordingly.
; (Use the high bit of the proc pointer to tell us.
;

	ldy #NewCtlRecord.CtlProc+2
	lda [ctlPtr],y
	bmi CalledByNewCtl2
	brl CalledByNewCtl

CalledByNewCtl2
	phx	; save x


;-----------------------------------------------------------
;
; Copy the TitleRef from the template to the control record
; 3 out of 4 times, this is all there is to do.
;
	ldy #simpleButtonTemplate.TitleRef
	lda [param],y
	tax
	iny
	iny
	lda [param],y
	ldy #NewCtlRecord.ctlData+2
	sta [ctlPtr],y
	dey
	dey
	txa
	sta [ctlPtr],y

;-----------------------------------------------------------
;
; The title is now correct.  Lets move on to the optional
; parameters.  First, we look at the pCount to see if 
; there are any optionals.
;
; The number is different for simplebuttons and others.
;

	ldy #simpleButtonTemplate.ProcRef+3
	lda [param],y
	and #$007F
	bne @NotSimple

;-----------------------------------------------------------
;
; Its a simple button.  If the pcount is < 8, there are
; no optional parameters.  If it is 8 there is only a 
; color table.  If it is 9, there is a color table and
; key equivalents.
;
@Simple
	lda [param]
	cmp #8
	bcc NoCT

	cmp #9
	bcc YesCT	; no key equiv

	ldy #SimpleButtonTemplate.KeyMods

;
; Store away the key equiv data.  Start with the ctlKeyMods
;
@JoinKeyEquiv	lda [param],y		; read the mods
	tyx		; save y into x
	ldy #NewCtlRecord.ctlKeyMods	; store away the mods
	sta [ctlPtr],y
	txy		; get y back from x
	iny		; bump twice for care bits
	iny
	lda [param],y		; read care bits
	ldy #NewCtlRecord.ctlKeyModsCareBits	; write into control record
	sta [ctlPtr],y
	txy		; get y back from x again
	dey		; dec twice
	dey
	lda [param],y		; read in key1 and key2
	ldy #NewCtlRecord.ctlKey1	; put into control record.
	sta [ctlPtr],y
	bra YesCT


;-----------------------------------------------------------
;
; Its a radio or check box.  If the pcount is < 9, there are
; no optional parameters.  If it is 9 there is only a 
; color table.  If it is 10, there is a color table and
; key equivalents.
;
@NotSimple
	lda [param]
	cmp #9
	bcc NoCT

	ldy #RadioTemplate.KeyMods
	bra @JoinKeyEquiv

;
;
;-----------------------------------------------------------
;
; There is a colortable ref.  The first thing we do is copy
; it to the control record (just in case it is right). If 
; we are using an offset, then we'll have to modify it below.
;
YesCT
	jsr GetColorTableRefFromTemplate
	ldy #NewCtlRecord.ctlColor
	sta [ctlPtr],y
	iny
	iny
	txa
	sta [ctlPtr],y



NoCT


;-----------------------------------------------------------
;
; Now we have to set the value for radio and check controls
;

	ldy #NewCtlRecord.ctlProc+3
	lda [ctlPtr],y
	and #$007F
	beq NoValue

	ldy #checkTemplate.value
	lda [param],y
	ldy #NewCtlRecord.ctlValue
	sta [ctlPtr],y

NoValue
	plx	; restore x-reg


CalledByNewCtl
;
; --- Set default sizes if needed --------------------------------
;
	ldy #CtlRect+y2	Has the RECT already been set?
	lda [<Ctlptr],y
	bne init_clr
;
	phx	Save control type.
;
	jsr pushfontInfo	Get text font information.
	_GetFontInfo
;
	jsr dereference	Ctlptr = (Ctlhand).
	pha	Space for width result.
	jsr PushStringPtr
	_StringWidth
;
	jsr dereference	Ctlptr = (Ctlhand).
	pla
	ldy #CtlRect+x1	Add width of title to starting position.
	clc
	adc [<Ctlptr],y
;
;
	plx	Restore control type,
	phx	and put back.
	bmi do_simple	Is this a simple button.
;
;
; --- Finish initializing check boxes and radio buttons ---------------
;
	pha	Save width so far.
;
	jsr get_csize	Get width and height of icon.
;
	ldy #fontInfo+ascent
	lda [<data],y	Use max height of icon or text.
	clc
	iny
	iny
	adc [<data],y
	ldy #rect2+y2
	cmp [<data],y
	bcc ok1
	sta [<data],y	Use height of text instead of icon.
;
ok1	pla	Restore width so far,
	clc
	ldy #rect2+x2
	adc [<data],y	plus width of icon,
	adc #TITLE_SPACE	plus space between icon and title,
	tax	and put total width	in x.
	ldy #rect2+y2	Get height of icon,
	lda [<data],y
	bra store1	and compute bottom side, set right side.
;
;
; --- Finish initaializing simple button ------------------------------
;
do_simple	adc #30	Plus a little extra	for simple buttons.
	tax	Save right side in x.
;          
;
; ------ Now set the bottom side -------------------------------------
;
	ldy #fontInfo+ascent
	lda [<data],y	Get system font's height.
	clc
	iny
	iny
	adc [<data],y
	clc
	adc #6	Add some leading.
;
store1	ldy #CtlRect+y1
	clc
	adc [<Ctlptr],y	Add the height to the top side.
;
	ldy #CtlRect+y2
	sta [<Ctlptr],y	Store the bottom side.
	iny
	iny
	txa
	sta [<Ctlptr],y	Store the right side.
;
	plx
;
;
; --- Set default color table if needed	--------------------------
;
;          x = $FFFF for simple button color table.
;              else	check box color table.
;
init_clr	ldy #CtlColor+2	Color table pointer	already there?
	lda [<Ctlptr],y
	bne exit
	dey
	dey
	lda [<CtlPtr],y
	bne exit
;
	iny	Get Y back to CtlColor+1
	lda #butt_color>>8
	sta [<Ctlptr],y
	dey
	lda #butt_color	Simple button color	table.
	inx	Are we initializing	a simple button?
	beq store2
	lda #check_color	Check box/Radio button color table.
store2	sta [<Ctlptr],y

exit	rts

	ENDP


;====================================================================
;
;          Test if given point is
;          inside the enclosing RECT.
;
;   IN:    param = point to check, param = y, param+2 = x.
;
;  OUT:    a = part	code of found part,
;              zero	if point not in enclosing RECT.
;
;====================================================================
test_butt	proc EXPORT

	lda #BUTT_PART	Simple button part code.
	
	rts
	
	ENDP


;====================================================================
;
;          Draw a simple button.
;
;   IN:    <ctlptr = control pointer.
;          <rect = enclosing rectangle.
;          <param =	part to draw.
;          <colorptr = pointer to color	table to use.
;
;====================================================================
simp_draw	proc EXPORT

FrameRect	equ 4+256*83
FillRect	equ 4+256*87
FrameRRect	equ 4+256*93
FillRRect	equ 4+256*97
;
;
	jsr SetupColor	; colorPtr now valid

	jsr CheckForVis	If not visible, don't come back

	ldy #CtlFlag	Read the flag
	lda [<Ctlptr],y
	tax	Save flag.
	and #$0001	Bold/Single and drop shadow bit.
	sta <work
	txa
;
	ldx #FrameRect	Square corner functions.
	ldy #FillRect
;
	and #$0002	Round or square corners.
	sta <work+2	0=round, 2=square.
	bne store1
;
	ldx #FrameRRect	Round corner functions.
	ldy #FillRRect
;
store1	stx <work+4	Frame function.
	sty <work+6	Fill function.
;
;
; --- Draw round button's interior background and frame ------------
;
	jsr pushVvert_pen
	pla
	inc a	A little more for vertical lines.
	pha
	pea 1
	_SetPenSize
;
	jsr pushrect	Pass pointer to RECT.
;
	lda <work+2	Round or square?
	bne skip5
;
	ldx #13
	ldy #GraphicsMode
	lda [<data],y	320 or 640?
	beq store2
	ldx #26
store2	phx	Oval width.
	pea 8	Oval height for fill.
;
skip5	ldy #state
	lda [<data],y
	inc a
	inc a
	tay
	jsr pushcolor	Pass pointer to color pattern.
	ldx <work+6	Use Fill function.
	jsl $E10000
;
	ldy #simpOutline
	jsr pushcolor	Pass pointer to color pattern.
	_SetPenPat	Set color of frame.
;
	jsr pushrect	Pass pointer to RECT.
;
	lda <work+2	Round or Square?
	bne skip7
;
	ldx #13
	ldy #GraphicsMode
	lda [<data],y	320 or 640?
	beq store3
	ldx #26
store3	phx	Oval width.
	pea 8	Oval height for fill.
;
skip7	ldx <work+4	Frame function.
	jsl $E10000
;
;
; --- Draw special outlines ---------------------------------------------
;
	lda <work	Anything special?
	beq skip1
;
	lda <work+2	Round or square?
	beq roundBold
;
; ------ Drop shadow the square button ----------------------------------
;
	ldy <rect+x2
	phy	Pass last point.
	lda <rect+y1
	inc a
	inc a
	pha
;
	phy	Set second point.
	ldx <rect+y2
	phx
;
	phx	Save x.
	jsr pushVvert_pen
	pla	Get vertical height	of lines.
	plx	Restore x.
	asl a	Set starting point.
	clc
	adc <rect+x1
	pha
	phx
	_MoveTo
	_LineTo	Bottom dropshadow.
;
	jsr pushVvert_pen
	pla
	asl a	Vertical width.
	pha	Line width.
	pea 1	Line height.
	_SetPenSize
	_LineTo
;
	bra skip1
;
;
; ------ Draw a bold outline --------------------------------------------
;
roundBold	jsr expandButt
;
	jsr pushrect	Pass pointer to RECT.
	ldx #18
	ldy #GraphicsMode
	lda [<data],y	320 or 640?
	beq store4
	ldx #36
store4	phx	Oval width.
	pea 12	Oval height.
	_FrameRRect
;
	jsr CMsetrect	Restore enclosing RECT into 'rect'.
;
skip1	_PenNormal
;
;
; --- Print string in button ----------------------
;
; ------ Find title's width -----------------------
;
	jsr dereference	Ctlptr = (Ctlhand).
	pha	Space to width result.
	jsr PushStringPtr
	_StringWidth
;
;
; ------ Center title horizontally ----------------
;
	lda <rect+x2
	sec
	sbc <rect+x1	Width of button.
	sbc 1,s	Less width of string.
	lsr a	Half way.
	clc
	adc <rect+x1	Starting position.
	tax	Pass X starting position in x.
	pla	Get rid of width.
;
	brl drawtitle	Print title in button.
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = =
;          Expand button for bold outine.
; = = = = = = = = =	= = = = = = = = = =	= = = = = =
;
;   IN:    rect = RECT to expand, and is equal to button's enclosing RECT.
;
;  OUT:    rect = size of bolded button.
;
	EXPORT expandButt
expandButt		;       
;
	jsr pushrect	Pass pointer of RECT to expand.
;
	jsr pushVvert_pen
	pla
	inc a
	eor #$FFFF	Make it expand.
;          inc   a
	pha
	pea $FFFE
	_InsetRect
	
	rts
;
	ENDP




;====================================================================
;
;          Invals bounding rect of control
;
;   IN:    ctlPtr
;
;  OUT:    a and x = 0
;
;====================================================================
Inval_rect	proc

	lda ctlPtr
	clc
	adc #NewCtlRecord.ctlRect
	tax
	lda ctlPtr+2
	adc #0
	pha
	phx
	_InvalRect


	tax
	
	rts
	
	ENDP
	

	title 'CHECK_PROC'
;====================================================================
;
;          Main line Check Box handler.
;
;   IN:    a = task.
;          Ctlptr =	pointer to control.
;          param = additional parameter.
;
;  OUT:    a = low word of returned value.
;          x = high	word of returned value.
;
;====================================================================
check_proc 	proc EXPORT
	cmp #ctlWinStateChange+1	make sure I can handle message
	bcc @ok
	brl null_ret
@ok

	asl a	Compute index for dispatch.
	tax
	lda >task_list,x
	pha
	ldx #0	Check box number.
	rts	Complete the task.
;
task_list	DC.W check_draw-1	Draw.
	DC.W null_ret-1	Compute drag RECT.
	DC.W checkboxHit-1	Hit test routine.
	DC.W simp_init-1	Initialize the control.
	DC.W simp_disp-1	Dispose.
	DC.W check_draw-1	New value.
	DC.W null_ret-1	Compute Thumber constrains.
	DC.W null_ret-1	Drag the indicator.
	DC.W null_ret-1	Auto action.
	DC.W check_draw-1	New value.
	DC.W null_ret-1	Set min max.
	DC.W null_ret-1	Move control.
	DC.W nor_size-1	Return size of standard record.
	dc.W nor_event-1	13 Handle events
	dc.W null_ret-1	14 ctlChangeTarget
	dc.W null_ret-1	15 ctlChagneBounds
	dc.W null_ret-1	16 ctlWindChagneSize
	dc.W null_ret-1	17 ctlHandleTab
	dc.W null_ret-1	18 ctlNotifyMultiPart
	dc.W Inval_rect-1	19 ctlWinStateChange (just inval)

	ENDP


;====================================================================
;
;          Test if given point is
;          inside the enclosing RECT.
;
;   IN:    param = point to check, param = y, param+2 = x.
;
;  OUT:    a = check box part code of found part.
;
;  To get this far,	the point must be inside the control's enclosing RECT.
;  So, just return the part code to signal a hit.
;
;====================================================================
checkboxHit	proc EXPORT

	lda #CHECK_PART	Return part code in	A.
	
	rts
	
	ENDP


;====================================================================
;
;          Draw a check box.
;
;   IN:    rect = control's enclosing rectangle.
;          state = 0 if unhilited, 2 if	hilited.
;          active =	0 if active, $FFFF if inactive.
;
;
;====================================================================
check_draw	proc EXPORT

	ldx #0	Check box icon number.

;
; = = = = = = = = =	= = = = = = = = = =	= = = = =
;          Draw radio button or check box.
; = = = = = = = = =	= = = = = = = = = =	= = = = =
;
;   IN:    x = 0 for check box, 4 for radio button.
;          <rect = control's enclosing rectangle.
;          <colorptr = pointer to color	table to use.
;          state = 0 if unhilited, 2 if	hilited.
;          active =	0 if active, $FFFF if inactive.
;
	EXPORT radio_check
radio_check		;       

	jsr CheckForVis	If not visible, don't come back--x preserved
	
	phx	Save the icon number since it might get trashed by 
	jsr SetupColor	SetupColor if we need to load a resource.

;
; --- Draw icon -----------------------------------------------
;
	plx	Restore the icon number.
	phx	Get icon number in x, but save number on stack still
	ldy #CtlValue	Is the box checked?
	lda [<Ctlptr],y
	beq skip1
	inx
	inx
skip1	jsr print_icon	Draw the icon.
	
	plx	Restore icon number in x as input for get_csize
	lda <param	Does the title need	to be drawn?
	beq ok1	Only if drawing whole control.
	
	rts

ok1	jsr get_csize	Get the size of the	icon. 
;
	ldy #rect2+x2	Width of the icon,
	lda [<data],y
	clc
	adc <rect+x1	plus starting x position,
	adc #TITLE_SPACE	plus space,
	tax	equals title's starting x position.
;
;
; = = = = = = = = =	= = = = = = = = =
;        Draw control's title.
; = = = = = = = = =	= = = = = = = = =
;
;   IN:  state = 0 for normal, 2 for hilited.
;        x = starting x position of text.
;        <rect = control's enclosing rectangle.
;
;  OUT:  Title centered vertically and printed.
;
	EXPORT DrawTitle
drawtitle		;       
	phx	Save.
	jsr pushfontInfo	Get text font information.
	_GetFontInfo
	plx	Restore.
;
	lda <rect+y2	Center text vertically in 'rect'.
	sec
	sbc <rect+y1	Height of button.
	ldy #fontInfo+ascent
	sbc [<data],y	Less height of string.
	bcc ck_dimm	Does the title fit?
	lsr a	Half way.
	clc
	adc <rect+y1	Starting position.
	clc
	adc [<data],y
	tay	Pass starting Y position.
	jsr set_penpos	Set pen position.
;
;
	pha	Space for result.
	_GetFontFlags
	pha	Space for result.
	_GetTextMode
;
;
	lda #SimpNorText
	jsr set_textmode
;
	pea 4	Use word of color.
	_SetFontFlags
;
	jsr dereference	Ctlptr = (Ctlhand).
	jsr PushStringPtr
	_DrawString	Print string.
;
	_SetTextMode	Restore original text mode.
	_SetFontFlags	Restore original text flags.
;
;
	EXPORT ck_dimm
ck_dimm		;       
;
	ldy #active	Is the control active?
	lda [<data],y
	bpl exit	If yes, don't disable.
;
;
; --- Disable the control -----------------------------------------
;
	pea dimmed>>16	Set pen to dim mask.
	pea dimmed
	_SetPenMask
;	
	jsr pushrect	Pass pointer of item's RECT.
;	                  	Disabled can't be selected.
;
	jsr dereference	Ctlptr = (Ctlhand).
	ldy #Ctlproc+2	Is the control a simple button?
	lda [<Ctlptr],y
	and #$7FFF	Make sure we mask off the high bit just in case this is super
	bne ItsSquare

	ldy #Ctlflag	Its a simple button, but is it square or round
	lda [<Ctlptr],y
	and #$0002	
	bne ItsSquare	Button is square
;
	pea 12	oval width (defining rounded corner of button)
	pea 12	oval height
;
	inc <rect+y1	Inset the control's rect
	dec <rect+y2	Don't disable outline of simple button
	jsr pushVvert_pen	(only reason to do this is because the MAC does this)
	lda <rect+x1
	clc
	adc 1,s
	sta <rect+x1
	lda <rect+x2
	sec 
	sbc 1,s
	sta <rect+x2
	pla	Get vertical pen width off stack
	
	ldy #simpNorText
	jsr pushcolor	Push pointer to color pattern.

	_FillRRect	FillRect function number

	bra skip4
;
;
ItsSquare	ldy #simpNorText
	jsr pushcolor	Push pointer to color pattern.

	_FillRect	FillRect function number
;
skip4	pea nor_mask>>16	Reset drawing mask to normal solid.
	pea nor_mask
	_SetPenMask
;
exit	rts

	ENDP


;====================================================================
;
;          Print an	icon.
;
;   IN:    x = icon	number.
;          state = hilite state.
;          rect = where to print.
;
;====================================================================
print_icon	proc EXPORT

	ldy #state
	lda [<data],y
	beq ok1

	txa
	ora #1	Use hilited version	of icon.
	tax
;
ok1	txa
;
;
	EXPORT draw_icon
draw_icon		;       
	sta <work	Store icon (character) number.
	jsr get_csize2	Get icon's size.
;           
	lda <rect+y2	Center icon vertically in 'rect'.
	sec
	sbc <rect+y1	Height of button.
	ldy #rect2+y2
*** added 21-Apr-91 DAL -- draws icon in correct location if top coord is negative
	sec
*** end of 21-Apr-91 DAL
	sbc [<data],y	Less height of icon.
	bcc dontFit
	lsr a	Half way.
	clc
	adc <rect+y1	Starting position.
	tay	Pass starting Y position.
	ldx <rect+x1
	jsr set_penpos	Set pen position.
;
	pha	Space for result.
	_GetFontFlags	Save state.
	pha	Space for result.
	_GetTextMode	Save state.
;
	lda #simpNorBack	Icon color index.
	jsr set_textmode	Set icon color and OR mode.
;
	lda #drawChar	Address of function	to perform while
	jsr doIconFunc	icon font is current.
;
	_SetTextMode	Restore original text mode.
	_SetFontFlags	Restore original text flags.
	
	rts


drawChar	pei <work	Pass character (icon number) to print.
	_DrawChar
	
dontFit	rts

	ENDP


;====================================================================
;
;        Move pen to a given point without drawing.
;
;   IN:    y = y coordinate.
;          x = x coordinate.
;
;====================================================================
set_penpos	proc EXPORT

	phx
	phy
	_MoveTo
	
	rts
	
	ENDP

	title 'RADIO_PROC'
;====================================================================
;
;          Main line Radio Button handler.
;
;   IN:    a = task.
;          Ctlptr =	pointer to control.
;          param = additional parameter.
;
;  OUT:    a = low word of returned value.
;          x = high	word of returned value.
;
;====================================================================
radio_proc 	proc EXPORT
	cmp #ctlWinStateChange+1	make sure I can handle message
	bcc @ok
	brl null_ret
@ok

	asl a	Compute index for dispatch.
	tax
	lda >task_list,x
	pha
	ldx #4	Radio button number.
	rts	Complete the task.
;
task_list	DC.W radio_draw-1	Draw.
	DC.W null_ret-1	Compute drag RECT.
	DC.W radioHit-1	Common hit test routine.
	DC.W simp_init-1	Initialize the control.
	DC.W simp_disp-1	Dispose.
	DC.W radio_draw-1	Called after drag.
	DC.W null_ret-1	Compute Thumber constrains.
	DC.W null_ret-1	Drag the indicator.
	DC.W null_ret-1	Auto action.
	DC.W radio_set-1	New value.
	DC.W null_ret-1	Set min max.
	DC.W null_ret-1	Move control.
	DC.W nor_size-1	Return size of standard record.
	dc.W nor_event-1	13 Handle events
	dc.W null_ret-1	14 ctlChangeTarget
	dc.W null_ret-1	15 ctlChagneBounds
	dc.W null_ret-1	16 ctlWindChagneSize
	dc.W null_ret-1	17 ctlHandleTab
	dc.W null_ret-1	18 ctlNotifyMultiPart
	dc.W Inval_rect-1	19 ctlWinStateChange (just inval)
	ENDP


;====================================================================
;
;          Test if given point is
;          inside the enclosing RECT.
;
;   IN:    param = point to check, param = y, param+2 = x.
;
;  OUT:    a = check box part code of found part.
;
;  To get this far,	the point must be inside the control's enclosing RECT.
;  So, just return the part code to signal a hit.
;
;====================================================================
radioHit	proc EXPORT

	lda #RADIO_PART	Return part code in	A.
	
	rts
	
	ENDP


;====================================================================
;
;          Draw a radio button.
;
;====================================================================
radio_draw	proc EXPORT

	ldx #4	Radio button icon number.
	brl radio_check	Draw radio button.
	
	ENDP


;====================================================================
;
;          Set a new value for a radio button.
;
;   IN:    Ctlptr =	pointer to control.
;          windptr = pointer of control's window.
;
;  OUT:    None.
;
;====================================================================
radio_set	proc EXPORT

familyNum	equ work
tempCtl	equ familyNum+2
;
;
	jsr radio_draw	Draw the button in its new state.
;
;
; --- Make sure two	buttons in the same	family are not on -------------
;
	jsr dereference	Ctlptr = (Ctlhand).
	ldy #CtlValue	Is button being turned off?
	lda [<Ctlptr],y
	tax	(Set return flag.)
	beq exit	If yes, I don't have to worry about
;	                  	other radio buttons in this family.
;
;
; --- Check if there are any buttons in	this family on ---------------
;
	lda <Ctlhand	Save handle of this	control.
	sta <tempCtl
	lda <Ctlhand+2
	sta <tempCtl+2
;
	ldy #CtlFlag	Get this radio button's family number.
	lda [<Ctlptr],y
	and #$007F
	sta <familyNum
;
	ldy #owControls	Get head of control	list.
	lda [<windptr],y
	sta <Ctlhand
	iny
	lda [<windptr],y
	sta <Ctlhand+1	(And I know there must be at least
;	                   	one control in the control list. )
;
	jsr dereference	Ctlptr = (Ctlhand).
;
;
lop1	jsr next_radio
	beq exit	Is no other radio button set?
;
	lda <Ctlhand	Check if I found the one just set.
	cmp <tempCtl
	bne gotit
	lda <Ctlhand+1
	cmp <tempCtl+1
	bne gotit	If not, I've found a family member on.
;
	jsr next_Ctl	If yes, skip it, and start from there.
	bne lop1	End of the line?
	
	rts


gotit	ldy #CtlValue	Turn the other radio button off.
	lda #0
	sta [<Ctlptr],y
;
	ldy #CtlFlag	Redraw the radio button if visible.
	lda [<ctlptr],y
	and #CTL_INVIS
	bne exit
;
	ldy #state	Unhilte.
	lda #0
	sta [<data],y
	jsr CMsetrect	Put enclosing RECT into 'rect'.
	jsr radio_draw	Draw the button turned off.
;
exit	rts

	ENDP


;====================================================================
;
;          Find the	next on radio button in a family.
;
;   IN:    Ctlhand = handle of Ctlptr.
;          work = family number.
;
;  OUT:    Ctlptr =	next on radio button in family, zero if	none found.
;          Ctlhand = handle of Ctlptr.
;          Equal flag is TRUE if no control found.
;          Equal flag is FALSE if control found.
;
;====================================================================
next_radio	proc EXPORT

	jsr dereference	Ctlptr = (Ctlhand).
lop1	ldy #Ctlproc 	Is the control a radio button?
	lda [<Ctlptr],y
	bne next1
	iny
	iny
	lda [<Ctlptr],y
	and #$7FFF	; ignore super control bit
	cmp #$0400
	bne next1
;
	ldy #CtlFlag	Check for matching family number.
	lda [<Ctlptr],y
	and #$007F
	cmp <work
	bne next1
;
	ldy #CtlValue	Is it on?
	lda [<Ctlptr],y
	bne exit	If yes, I've found it.
;
next1	jsr next_Ctl	Next control.
	bne lop1
;
exit	rts

	ENDP


	title 'GROW_PROC'
;====================================================================
;
;          Grow box	definition proc EXPORTedure.
;
;   IN:    a = task.
;          Ctlptr =	pointer to control.
;          param = additional parameter.
;
;  OUT:    a = low word of returned value.
;          x = high	word of returned value.
;
;====================================================================
grow_proc 	proc EXPORT
	cmp #ctlWinStateChange+1
	bcc @1
	brl null_ret
@1

	asl a	Compute index for dispatch.
	tax
	jmp (grow_tasks,x)

grow_tasks	DC.W draw_grow	0  Draw grow box.
	DC.W null_ret	1  Compute drag RECT.
	DC.W test_grow	2  Common hit test routine.
	DC.W init_grow	3  Initialize just the color table.
	DC.W null_ret	4  Dispose.
	DC.W draw_grow	5  New value.
	DC.W null_ret	6  Compute Thumber constrains.
	DC.W track_grow	7  Drag the indicator.
	DC.W null_ret	8  Auto action.
	DC.W draw_grow	9  New value.
	DC.W null_ret	10 Set min max.
	DC.W null_ret	11 Move button.
	DC.W nor_size	12 Return size of standard record.
	dc.W null_ret	13 ctlHandleEvent
	dc.W null_ret	14 ctlChangeTarget
	dc.W null_ret	15 ctlChagneBounds
	dc.W null_ret	16 ctlWindChagneSize
	dc.W null_ret	17 ctlHandleTab
	dc.W null_ret	18 ctlNotifyMultiPart
	dc.W Inval_rect	19 ctlWinStateChange (just inval)
	ENDP


;====================================================================
;
;          Draw a grow box.
;
;   IN:    <param =	0 to draw entire control, state = 0.
;	part code to draw just that part of the	control.
;
;           state =	0 to draw part in 'param' as unhighlighted.
;	2 to draw part in 'param' as highlighted.
;
;           active = $0000 if control is active.
;	 $FFFF if control is inactive, param = 0.
;
;====================================================================
draw_grow	proc EXPORT

	jsr CheckForVis	If not visible, don't come back
	jsr SetupColor

	ldy #state
	lda [<data],y
	clc
	adc #simpNorBack
	tay
	lda [<colorPtr],y
	and #$00F0
	tay	Pass color of interior.
	lda [<colorPtr]	Pass color of frame.
	and #$00F0
	jsr drawRect	Draw outline and interior.
;
;
	ldy #active	Is control inactive?
	lda [<data],y
	bmi exit	If inactive, don't draw icon.
;
	ldx #GROW_ICON
	jsr get_csize	Get the size of the	grow icon.
;
	jsr center_hor	Center grow box horizontally.
	bcc exit	Does the icon fix inside the RECT?
;
	lda #GROW_ICON
	brl draw_icon
;
exit	rts

	ENDP


;====================================================================
;
;          Initialize grow box record.
;
;====================================================================
test_grow	proc EXPORT

	ldy #NewCtlRecord.ctlFlag
	lda [ctlPtr],y
	and #$0001
	beq NeverMind

	lda #$80	; return a value that will force
	rts	; us to do the tracking.


NeverMind

	lda #GROW_PART	Must be hit to get this far.
	
	rts
	
	ENDP


;====================================================================
;
; track the grow box by calling the window manager
;
;====================================================================
track_grow	proc

	lda param
	tax
	beq DoNothing


	pha	; save the current origin
	pha
	pha
	pha
	tsc
	inc a
	pea 0000
	pha
	_GetPortRect

	lda #0	; set origin to zero (only works with zero origin)
	pha
	pha
	_SetOrigin

;
; See if any minimum size is in ctlData field.  zero means use default.
;
	ldy #NewCtlRecord.ctlData
	lda [ctlPtr],y
	bne @1
	lda #50	; minimum y
@1	tax
	iny
	iny
	lda [ctlPtr],y
	bne @2
	lda #130	; minimum x
@2	
	pha	; space for result
	pha
	pha	; use (30,10) more in each direction, so we end up being the
	phx	;..same as task master.

	pha	; read the mouse in global coordinates
	pha
	pha
	_ReadMouse
	pla	; ignore the mode word, leave x and y on stack.

	jsr PushWindowPtr
	_GrowWindow

	jsr PushWindowPtr
	_SizeWindow

	_SetOrigin	; restore origin to top left of original port rect
	pla	; remove bottom right from stack
	pla

	lda param	; return the part code to indicate that
	tax	; that we handled the work.  X indicates not aborted.


DoNothing	rts
	


PushWindowPtr
	plx
	ldy #NewCtlRecord.ctlOwner+2
	lda [ctlPtr],y
	pha
	dey
	dey
	lda [ctlPtr],y
	pha
	phx
	rts



	ENDP


;====================================================================
;
;          Init the Grow Control
;
; Change History
;
; 10 Oct 88	Steven Glass
;
; Added code to make this work with NewControl2.
;
;====================================================================
init_grow	proc EXPORT

	ldy #NewCtlRecord.ctlProc+2
	lda [ctlPtr],y
	bpl OldWay
	
;-----------------------------------------------------------
;
; This is being called from NewControl2.  This means that
; Param holds pointer to the template.  CtlColor is not set
; up.
;
; We fiddle with the data as follows:
;    Check the pcount to see if there is a color table
;    If YES, copy ref to CtlColor
;    Fall into old code.
;
	ldy #GrowTemplate.pcount
	lda [param],y
	cmp #7
	bne NoColorTable

	ldy #GrowTemplate.ColorRef
	lda [param],y
	tax
	iny
	iny
	lda [param],y
	ldy #NewCtlRecord.CtlColor+2
	sta [ctlPtr],y
	dey
	dey
	txa
	sta [ctlPtr],y

NoColorTable

OldWay

	ldy #CtlColor+2	Color table pointer	already there?
	lda [<Ctlptr],y
	dey
	dey
	ora [<Ctlptr],y
	bne exit
;
	lda #grow_color
	sta [<Ctlptr],y	y-reg still set to #CtlColor
	iny
	iny
	lda #^grow_color
	sta [<Ctlptr],y
;
exit	rts

	ENDP


	title 'SCROLL_PROC'
;====================================================================
;
;          Main line Scroll Bar handler.
;
;   IN:    a = task.
;          Ctlptr =	pointer to control.
;          param = additional parameter.
;
;  OUT:    a = low word of returned value.
;          x = high	word of returned value.
;
;====================================================================
scroll_proc 	proc EXPORT
	cmp #ctlWinStateChange+1
	bcc @1
	brl null_ret
@1

	asl a	Compute index for dispatch.
	tax
	jmp (scroll_task_list,x) Complete the task.
;
;
	export scroll_task_list
scroll_task_list	DC.W scroll_draw	0 Draw.
	DC.W null_ret	1 Compute drag RECT.
	DC.W scroll_hit	2 Common hit test routine.
	DC.W scroll_init	3 Initialize the control.
	DC.W null_ret	4 Dispose.
	DC.W null_ret	5 Called after drag	is completed.
	DC.W null_ret	6 Setup for dragging.
	DC.W null_ret	7 Perform dragging.
	DC.W null_ret	8 Auto track.
	DC.W move_thumb	9 New value.
	DC.W newView	10 Called with new Min and Max values.
	DC.W move_bar	11 Move scroll bar.
	DC.W rec_size	12 Return size of scroll bar record.
	dc.W null_ret	13 ctlhandleEvent
	dc.W null_ret	14 ctlChangeTarget
	dc.W null_ret	15 ctlChagneBounds
	dc.W null_ret	16 ctlWindChagneSize
	dc.W null_ret	17 ctlHandleTab
	dc.W null_ret	18 ctlNotifyMultiPart
	dc.W Inval_rect	19 ctlWinStateChange (just inval)

	ENDP

	title 'SCROLL_PROC -- rec_size'
;====================================================================
;
;          Return size of required record.
;
;====================================================================
rec_size	proc EXPORT

	lda param
	ora param+2
	beq OldSize

	lda #SuperCtlSize
	bra ReturnIt

OldSize

	lda #PageRegion+8	Size of scroll bar record.

ReturnIt
	ldx #0	High word of size.
	
	rts
	
	ENDP


	title 'SCROLL_PROC -- scroll_init'
;====================================================================
;
;          Initialize scroll bar.
;
; Change History
;
; 24 Jul 88	Steven Glass
;
; Added control value validation.
;
;
; 10 Oct 88	Steven Glass
;
; Added code to translate NewCtl2 inputs to NewCtl inputs.
;
; 07 Dec 88	STeven Glass & Mensch
;
; Fixed bug with color table ref's and control templates.  The
; code bne'd when it should have beq'd for pCount of 9.
;
;====================================================================
scroll_init	proc EXPORT

*** added 9-Jan-92 DAL -- set valid port
	pha
	pha
	_GetPort
	pha
	pha
	_GetWMgrPort
	_SetPort
*** end 9-Jan-92
*** added 9-Dec-91 DAL -- check for new color table
	_CtlNewRes
*** end 9-Dec-91
	_SetPort	;9-Jan-92 DAL

	ldy #NewCtlRecord.ctlProc+2
	lda [ctlPtr],y
	bpl OldWay
	
;-----------------------------------------------------------
;
; This is being called from NewControl2.  This means that
; Param holds pointer to the template.  CtlColor is not set
; up.  DataSize and ViewSize are not in Param.
;
; We fiddle with the data as follows:
;    Copy the intital thumb value from template to record.
;    Check the pcount to see if there is a color table
;    If YES, copy ref to CtlColor
;    Copy DataSize and ViewSize to Param
;    Fall into old code.
;

	ldy #ScrollTemplate.InitialThumb
	lda [param],y
	ldy #NewCtlRecord.ctlValue
	sta [ctlPtr],y

	ldy #ScrollTemplate.pcount	is there a color table
	lda [param],y
	cmp #9
	beq NoColorTable

	ldy #ScrollTemplate.ColorRef	yes, put its ref in.
	lda [param],y
	tax
	iny
	iny
	lda [param],y
	ldy #NewCtlRecord.CtlColor+2
	sta [ctlPtr],y
	dey
	dey
	txa
	sta [ctlPtr],y

NoColorTable			;finished with color table

	ldy #ScrollTemplate.DataSize	;fix param and fall into old way
	lda [param],y
	tax
	ldy #ScrollTemplate.ViewSize
	lda [param],y
	sta param
	stx param+2


OldWay
;
; --- Validate the maximum value ------
;
	lda param+2	; Max allowable value is Max-View
	sec
	sbc param
	ldy #Ctlvalue	; compare to the current value
	cmp [<Ctlptr],y	; from control record
	bcs @MaxOK	; ok
	lda [<Ctlptr],y	; Bump max so it is equal to value+view
	clc
	adc <param
	sta <param+2	; adjust the max value.
@MaxOK	cmp <param	; is it greater than the min value?
;
; --- Set view and data size -----------------------
;
	ldy #Ctldata
	lda <param
	sta [<Ctlptr],y
	iny
	iny
	lda <param+2
	sta [<Ctlptr],y
;
;
; --- Set default color table pointer --------------
;
	ldy #CtlColor+1
	lda [<Ctlptr],y
	dey
	ora [<Ctlptr],y
	bne skip1
;
	lda #scroll_color
	sta [<Ctlptr],y
	iny
	iny
	lda #scroll_color>>16
	sta [<Ctlptr],y
;
;
; --- Set sizes --------------------------------------------
;
skip1	jsr CMsetrect	Put enclosing RECT into 'rect'.
;
	ldx #uArrowH	Use up arrow for vertical bar,
	ldy #CtlFlag
	lda [<Ctlptr],y
	and #DIR_SCROLL
	beq ok1
	ldx #lArrowH	and left arrow for horizontal bars.
ok1	txy
	lda [<data],y	Height of arrow icon,
	clc
	adc #3	plus leading,
	ldy #rect2+y2
	sta [<data],y	equals total size.
;
	txy
	iny	Width of arrow icon,
	iny
	lda [<data],y
	clc
	adc #8	plus leading,
	ldy #rect2+x2
	sta [<data],y	equals total size.
;
;
; ------ Set default height --------------------------------------
;
	lda <rect+y2	Is it set?
	bne skip2
;
	lda <rect+y1
	clc
	ldy #rect2+y2
	adc [<data],y
	sta <rect+y2
	ldy #CtlRect+y2
	sta [<Ctlptr],y	Set height of enclosing RECT.
;
skip2	lda <rect+x2	Is it set?
	bne skip3
;
	lda <rect+x1
	clc
	ldy #rect2+x2
	adc [<data],y
	sta <rect+x2
	ldy #CtlRect+x2
	sta [<Ctlptr],y	Set width of enclosing RECT.
;
;
; ------ Set page region, by subtracting arrows from enclosing RECT ------
;
skip3	ldy #CtlFlag
	lda [<Ctlptr],y
	pha
	and #UP_FLAG
	beq skip10
;
	lda <rect+y1
	clc
	ldy #rect2+y2	Add height of icon plus leading.
	adc [<data],y
	sta <rect+y1
;
skip10	lda 1,s
	and #DOWN_FLAG
	beq skip11
;
	lda <rect+y2
	sec
	ldy #rect2+y2
	sbc [<data],y
	sta <rect+y2
;
skip11	lda 1,s
	and #LEFT_FLAG
	beq skip12
;
	lda <rect+x1
	clc
	ldy #rect2+x2
	adc [<data],y
	sta <rect+x1
;
skip12	pla
	and #RIGHT_FLAG
	beq skip13
;
	lda <rect+x2
	sec
	ldy #rect2+x2
	sbc [<data],y
	sta <rect+x2
;
skip13	ldy #PageRegion+x2	Initialize page region.
	jsr to_Ctl	Move 'rect' into page region.
;
	jsr pushrect	Indent thumber from	page region.
	jsr pushVvert_pen
	pea 1
	_InsetRect
;
	jsr dereference	Ctlptr = (Ctlhand).
	ldy #Thumb+x2
	jsr to_Ctl	Move 'rect' into thumber RECT.
;
;
; --- Set thumber position ---------------------------
;
	brl new_thumb




;====================================================================
;
;          Move 'rect' into control RECT.
;
;  IN:     y = offset into record plus x2.
;
;====================================================================
to_Ctl	
	ldx #x2
lop1	lda <rect,x
	sta [<Ctlptr],y
	dey	Anything for some bytes.
	dex
	bpl lop1

	rts
	

	ENDP




	title 'SCROLL_PROC -- scroll_hit'
;====================================================================
;
;          Check hit on scroll bar.
;
;   IN:    Ctlptr =	pointer to scroll bar record.
;          param = y coordinate to check.
;          param+2 = x coordinate to check.
;
;  OUT:    a = 0 if	no hit.
;              5 if	on up arrow.
;              6 if	on down arrow.
;              7 if	on page up region.
;              8 if	on page down region.
;            129 if	on thumber.
;
;====================================================================
scroll_hit	proc EXPORT

	ldy #CtlData
	lda [<Ctlptr],y	Total view.
	iny
	iny
	cmp [<Ctlptr],y	Total data area.
	bcc ok1
;
	lda #0	No hit anywhere if maxed out.
	
	rts

ok1	ldy #PageRegion	Check page region.
	jsr check_pt
	beq next1

	ldy #Thumb	Check thumber.
	jsr check_pt
	ldx #THUMB_PART	Part code, just in case.
	tay	Was it a hit?
	bne got_it
;
; --- Must be in page region, up or down? -----------------
;
	ldx #UPP_PART	Page up part code.
	ldy #CtlFlag
	lda [<Ctlptr],y
	and #DIR_SCROLL	Vertical or horizontal bar?
	bne horizontal
;
	lda <param	Get y coordinate.
	ldy #Thumb+y1
	cmp [<Ctlptr],y
	bcc got_it
	inx	Page down part code.
	bra got_it	Must be page down.
;
;
horizontal	lda <param+2	Get x coordinate.
	ldy #Thumb+x1
	cmp [<Ctlptr],y
	bcc got_it
	inx	Page down part code.
	bra got_it	Must be page down.
;
;
; --- Must be in an	arrow box ------------------------------
;
next1	ldx #UP_PART
;
	ldy #PageRegion+y1
	lda <param	Get y coordinate.
	cmp [<Ctlptr],y
	bcc got_it
;
	inx	Down arrow part code.
;
	ldy #PageRegion+y2
	cmp [<Ctlptr],y
	bcs got_it
;
	dex	Back to up arrow.
;
	ldy #PageRegion+x1
	lda <param+2	Get x coordinate.
	cmp [<Ctlptr],y
	bcc got_it

	inx	Down arrow part code.

got_it	txa

	rts
;
;
;   IN:    y = offset into record to check + x2.
;
	EXPORT check_pt
check_pt		;       
;
	pha	Space for result.
	lda #param
	jsr pushzpage	Pass pointer of point to check.
	tya
	jsr pushrecord	Pass pointer of RECT to check.
	_PtInRect
	jsr dereference	Ctlptr = (Ctlhand).
	pla
	rts
;
	ENDP


	title 'SCROLL_PROC -- scroll_draw'
;====================================================================
;
;          Draw a scroll bar.
;
;   IN:    Ctlptr =	control pointer.
;          param = part to draw.
;
;====================================================================
scroll_draw	proc EXPORT

	jsr CheckForVis	If not vis, don't come back.

*** added 9-Dec-91 DAL -- if we're part of an extended list, force focus frame update
	ldy #NewCtlRecord.ctlFlag
	lda [<ctlPtr],y
	and #$0040	;partOfExtendedList
	beq @notExtended

*** added 6-Feb-92 DAL -- Preserve State around this CallCtlDefProc
	ldy #state
	lda [<data],y
	pha
*** end 6-Feb-92

	pha
	pha	;space for CallCtlDefProc result
	ldy #NewCtlRecord.ctlRefCon+2
	lda [<ctlPtr],y
	pha
	dey
	dey
	lda [<ctlPtr],y
	pha	;push List handle (from scroll refcon)
	pea ctlChangeActivity
	pea 0
	pea 0	;reserved
	_CallCtlDefProc
	pla
	pla	;discard result

*** added 6-Feb-92 DAL -- Restore State so arrows will hilite properly
	pla
	ldy #state
	sta [<data],y
*** end 6-Feb-92

@notExtended
*** end 9-Dec-91 DAL

	jsr SetupColor

	lda <param	Get part code.
	and #$7F
	asl a
	tax
	jmp (part_list,x)
;
;
part_list	DC.W draw_all	0 Draw entire control.
	DC.W draw_thumb	1 Draw thumber.
	DC.W 0	2
	DC.W 0	3
	DC.W 0	4
	DC.W draw_up1	5 Draw up arrow.
	DC.W draw_down1	6 Draw down arrow.
	DC.W null_ret	7 Draw page region.
	DC.W null_ret	8 Draw page region.
;
;
;= = = = = = = = = = = = = = = = = = = = = = = = =
;          Draw entire scroll bar.
;= = = = = = = = = = = = = = = = = = = = = = = = =
;
draw_all	ldy #active
	lda [<data],y	Is control inactive?
	bpl skip100
;
; --- Draw an inactive scroll bar --------------------------
;
	ldy #InactiveColor	Inactive color.
	lda [<colorPtr],y
	and #$00F0
	tay	Pass interior color.
	lda [<colorPtr]	Pass frame color.
	and #$00F0
	brl drawrect	Draw and exit.
;
;
; --- Draw an active scroll bar -----------------------------
;
skip100	jsr inner_scroll	Draw interior of scroll bar.
;
	jsr dereference	Ctlptr = (Ctlhand).
	ldy #CtlFlag
	lda [<Ctlptr],y
	pha
	and #UP_FLAG	Up arrow?
	beq next100
;
	jsr draw_up2	Draw up arrow.
;
next100	lda 1,s
	and #DOWN_FLAG	Down arrow?
	beq next101
;
	jsr draw_down2	Draw down arrow.
;
next101	lda 1,s
	and #LEFT_FLAG	Left arrow?
	beq next102
;
	jsr draw_left2	Draw left arrow.
;
next102	pla
	and #RIGHT_FLAG	Right arrow?
	beq exit100
;	    
	brl draw_right2	Draw right arrow.
;
exit100	rts
;
;
	EXPORT inner_scroll
inner_scroll		;       
;
	jsr dereference	Ctlptr = (Ctlhand).
	ldy #CtlData
	lda [<Ctlptr],y	Total view.
	iny
	iny
	cmp [<Ctlptr],y	Total data area.
	bcc ok100	Everything in view?
;
	ldy #active	Set active flag for	arrows.
	lda #$FFFF
	sta [<data],y
;
	ldy #ThumbNorColor	Use thumber's color to draw page region.
	brl draw_page
;
ok100	ldy #PageRgnColor	Page region's color and pattern.
	jsr draw_page	Draw page region.
;
	brl draw_thumb	Draw thumber.
;
;
;
;= = = = = = = = = = = = = = = = =
;          Draw up arrow.
;= = = = = = = = = = = = = = = = =
;
draw_up1	jsr dereference	Ctlptr = (Ctlhand).
	ldy #CtlFlag	Vertical or horizontal?
	lda [<Ctlptr],y
	and #DIR_SCROLL
	bne draw_left2
;
draw_up2	jsr up_box	Draw up arrow box.
;
	ldx #UP_ARROW	Up arrow pattern index.
	brl draw_arrow2
;
;
;= = = = = = = = = = = = = = = = = = =
;          Draw down arrow.
;= = = = = = = = = = = = = = = = = = =
;
draw_down1	jsr dereference	Ctlptr = (Ctlhand).
	ldy #CtlFlag	Vertical or horizontal?
	lda [<Ctlptr],y
	and #DIR_SCROLL
	bne draw_right2
;
draw_down2	jsr down_box	Draw down arrow box.
;
	ldx #DOWN_ARROW	Down arrow pattern index.
	brl draw_arrow2
;
;            
;= = = = = = = = = = = = = = = = = =
;          Draw left arrow.  
;= = = = = = = = = = = = = = = = = =
;	                  
draw_left2	jsr left_box	Draw left arrow box.
;
	ldx #LEFT_ARROW	Left arrow pattern index.
	brl draw_arrow2
;
;            
;= = = = = = = = = = = = = = = = = = =
;          Draw right arrow.
;= = = = = = = = = = = = = = = = = = =
;
draw_right2	jsr right_box	Draw right arrow box.
;
	ldx #RITE_ARROW	Right arrow pattern	index.
	brl draw_arrow2
;
;
;= = = = = = = = = = = = = = = = = =
;          Draw page region.
;= = = = = = = = = = = = = = = = = =
;         
draw_page	phy	Save color to use.
;
	lda [<colorptr]	Get outline color.
	tay
	jsr set_patt
	phx
	phy
	_SetPenPat
;
	ldy #PageRegion+x2
	jsr CMsetrect2	Set 'rect' to page region.
	ply
;
	jsr pushrect	For FillRect call.
	phy	Pass color.
;
	jsr pushrect	Pass address of RECT to frame.
	_FrameRect
;
;
	jsr pushrect
	jsr pushVvert_pen
	pea 1
	_InsetRect
;
	ply	Color index to use.
	lda [<colorptr],y
	tay
	jsr set_patt
	phx
	phy
	_FillRect
;
	brl dereference
;
;
;= = = = = = = = = = = = = = = = = = = = = = = = =
;          Draw scroll bar thumb.
;= = = = = = = = = = = = = = = = = = = = = = = = =
;
	EXPORT draw_thumb
draw_thumb		;       
;
	ldy #Thumb+x2
	jsr CMsetrect2	Put thumber coordinates into 'rect'.
;
	ldy #ThumbNorColor	Index to color of thumb.
	lda [<colorPtr],y
	and #$00F0
	tay	Pass interior color.
	lda [<colorPtr]	Pass frame color.
	and #$00F0
	jsr drawrect
;
	brl dereference
	
	ENDP


;====================================================================
;
;          Draw a up arrow box.
;
;====================================================================
up_box	proc EXPORT

	jsr CMsetrect	Put enclosing RECT into 'rect'.
;
	jsr dereference	Ctlptr = (Ctlhand).
	ldy #PageRegion+y1
	lda [<Ctlptr],y
	inc a
	sta <rect+y2
	bra common
;
; = = = = = = = = =	= = = = = = = = = =	=
;          Draw a down arrow box.
; = = = = = = = = =	= = = = = = = = = =	=
;
	EXPORT down_box
down_box		;       
;
	jsr CMsetrect	Put enclosing RECT into 'rect'.
;
	jsr dereference	Ctlptr = (Ctlhand).
	ldy #PageRegion+y2
	lda [<Ctlptr],y
	dec a
	sta <rect+y1
	bra common
;
;
; = = = = = = = = =	= = = = = = = = = =	=
;          Draw a left arrow box.
; = = = = = = = = =	= = = = = = = = = =	=
;
	EXPORT left_box
left_box		;       
;
	jsr CMsetrect	Put enclosing RECT into 'rect'.
;
	jsr dereference	Ctlptr = (Ctlhand).
	ldy #PageRegion+x1
	lda [<Ctlptr],y
	inc a
	sta <rect+x2
	bra common
;
;
; = = = = = = = = =	= = = = = = = = = =	=
;          Draw a right arrow box.
; = = = = = = = = =	= = = = = = = = = =	=
;
	EXPORT right_box
right_box		;       
;
	jsr CMsetrect	Put enclosing RECT into 'rect'.
;
	jsr dereference	Ctlptr = (Ctlhand).
	ldy #PageRegion+x2
	lda [<Ctlptr],y
	dec a
	sta <rect+x1
;
common	lda #simpNorBack	Arrow box's interior color index.
	clc
	ldy #state
	adc [<data],y
	tay
	lda [<colorPtr],y
	and #$00F0
	tay	Pass interior color.
	lda [<colorPtr]	Pass frame color.
	and #$00F0
	jsr drawrect	Draw box.
;
	brl dereference
	
	ENDP


	title 'SCROLL_PROC -- utilities'
;====================================================================
;
;          Draw a scroll bar arrow.
;
;   IN:    state = 0 to draw normal, 2 to draw as selected.
;          colorptr	= pointer to color table.
;          rect = enclosing RECT.
;          x = icon	number.
;
;  OUT:    rect = arrow's enclosing RECT.
;
;====================================================================
draw_arrow2	proc EXPORT

	phx
;
	lda >arrowMap-UP_ARROW,x
	tay
	lda [<data],y	Get height of arrow.
	tyx
	ldy #rect2+y2
	sta [<data],y
	txy
	iny
	iny
	lda [<data],y	Get width of arrow.
	ldy #rect2+x2
	sta [<data],y
;
	plx
	jsr center_hor	Center the arrow horizontally.
	bcc exit	Did the arrow fit in the box?
;
;	                  x	= icon to print.
	jsr print_icon	Print arrow icon.
;
	brl dereference
;
exit	rts

	ENDP


;====================================================================
;
;          Center an icon horizontally.
;
;   IN:    rect2+x2	= icon's width.
;          rect = RECT to center in.
;
;  OUT:    Carry flag is clear if icon won't fit inside of 'rect'.
;          rect+x1 = starting position of icon to be horizontally center.
;          x = unchanged.
;
;====================================================================
center_hor	proc EXPORT

	lda <rect+x2	Get width of box.
	sec
	sbc <rect+x1
	sec
	ldy #rect2+x2	Less width of arrow.
	sbc [<data],y
	bcc exit	Arrow won't fix in arrow box.
	lsr a	Half way.
	clc
	adc <rect+x1
	sta <rect+x1	X point to draw arrow.
;
	sec	Set OK flag.
exit	rts

	ENDP

	     
;====================================================================
;
;        Set new Minimum and Maximum for scroll bar.
;
;   IN:    Ctlptr =	pointer to scroll bar.
;          param = new view, $FFFF to not set.
;          param+2 = new data size, $FFFF to not set.
;
; Change History
;
; 24 Jul 88	Steven Glass
;
; If the view was not changed but the maximum value was changed,
; the code was not going through the validation that it goes through
; when the view is changed.  This allowed the max to be less than
; the view.
;
; Added new label @skip2 which is now branched to when view is not
; changed.  old code branched straight to redraw.
;
; Note that this code already tried to maintain a valid value, but
; could fail to do so under certain circumstances.
;
;====================================================================
newView	proc EXPORT

offset	equ work	Zero page usage.
height	equ offset+2	Height of page region.
front	equ height+2
thumb_h	equ front+2	Height of thumber.
trect	equ thumb_h+2


	jsr  scrollState
	php

	jsr  dereference		;ctlPtr = (ctlHand).

	ldy  #CtlData+2		;set the parameters to the new view and
	lda  <param+2		;..data size for the scroll bar. The
	cmp  #$FFFF		;..reason they weren't already is that
	bne  @useParam2		;..one of them could be $FFFF (no change)
	lda  [<ctlPtr],y
@useParam2	sta  <param+2
	dey
	dey
	lda  <param
	cmp  #$FFFF
	bne  @useParam
	lda  [<ctlPtr],y
@useParam	sta  <param

	lda  <param+2
	sec
	sbc  <param
	bcs  @1
	lda  #0
@1	ldy  #CtlValue		;is the new maximum less than the current
	cmp  [<ctlPtr],y		;..value ? If not, then reset the value
	bcs  @valueOK		;..to the maximum value.
	sta  [<ctlPtr],y
	bra  @setAndDraw
@valueOK
	ldy  #CtlData+2
	lda  <param+2
	cmp  [<ctlPtr],y
	bne  @setAndDraw
	dey
	dey
	lda  <param
	cmp  [<ctlPtr],y
	bne  @setAndDraw

	plp		;nothing changed, so just exit
	rts

@setAndDraw	ldy  #CtlData+2
	lda  <param+2
	sta  [<ctlPtr],y
	dey
	dey
	lda  <param
	sta  [<ctlPtr],y

	jsr  new_thumb

	jsr scrollState	Is scroll bar drawable?
	bcc ok2
	plp
	bcc noexit
	rts
noexit	php
ok2	plp
	jsr SetupColor
	brl inner_scroll	Draw interior of scroll bar.
;
;
;
;====================================================================
;
;        Set new value for thumb
;
;   IN:    param has new value of thumb
;          param+2 has old value of thumb
;
; Change History
;
; 24 Jul 88	Steven Glass
;
; When the thumb value is changed we validate the existing 
; Max value.  If the thumb has a value that is greater than the
; MaxValue - ViewSize then something is wrong so we adjust MaxValue.
;
; The new MaxValue is set to NewThumbValue+ViewSize.
;
; This prevents the thumb from drawing outside the scroll bar or on
; the arrows.
;
;====================================================================

lastScrollTime	dc.w 0	;added 4-Jan-91 DAL

	EXPORT move_thumb
move_thumb
;
; 4-Jan-91 DAL
;
; Max out the scrolling speed to a fixed amount of time.
; If it hasn't been minScrollDelay since the last time we
; moved the thumb, wait until it has.
;
	pha	;space for result
	lda >lastScrollTime
	pha
	pea MinScrollDelay
	_WaitUntil
	pla
	sta >lastScrollTime
;
;--- Validate the new value -----------------------------------------
;
	ldy #Ctldata+2	; compute maximum allowable value
	lda [<CtlPtr],y	; as Max-View
	dey
	dey
	sec
	sbc [<CtlPtr],y
	cmp param	; look at new value
	bcs @MaxOK
	lda [<CtlPtr],y	; compute new max as Value+View.
	clc
	adc param
	iny
	iny
	sta [<CtlPtr],y
@MaxOK
	
	
;
	jsr new_thumb	Compute new thumber.
;
	jsr scrollState	Is scroll bar drawable?
	bcs exit1
;
;
; ------- Compute area of old thumber needing to be erased ---------
;
	ldy #Thumb+x2
	jsr CMsetrect2	Get rect of new thumber position.
;
	jsr SetUpColor

	ldx <offset
	lda <rect+y1,x
	cmp <trect+y1,x
	beq noerase
	bcc skip2
	cmp <trect+y2,x
	bcs erase
	sta <trect+y2,x
	bra erase
;
skip2	lda <rect+y2,x
	cmp <trect+y1,x
	bcc erase
	sta <trect+y1,x
;
;
erase		; 
;
	lda #trect	Pass address of rect to FillRect.
	jsr pushzpage
;
	ldy #PageRgnColor	Page region pattern	and color.
	lda [<colorptr],y
	tay
	jsr set_patt
	phx	Pass address of pattern.
	phy
	_FillRect	Erase thumber.
;
noerase		; 
;
;
; ------- Draw new thumber -------------------------------------
;
	jsr dereference	Ctlptr = (Ctlhand).
	ldx #0	Normal falg.
	ldy #CtlHilite	Is thumb highlighted?
	lda [<Ctlptr],y
	and #$00FF
	cmp #THUMB_PART
	bne store
	inx	Selected.
	inx
store	ldy #state
	txa
	sta [<data],y
	ldy #active	Must be active.
	lda #0
	sta [<data],y
;
	jsr draw_thumb	Draw thumber in new	position.
	
exit1	rts


; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = =	= = = = = = =
;        Given a new value, compute new	thumber for scroll bar.
;
;   IN:  Ctlptr = pointer to scroll bar.
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = =	= = = = = = =
	EXPORT new_thumb
new_thumb		;       
;
;
	jsr dereference	Ctlptr = (Ctlhand).
	ldx #0	Offset for vertical	scroll bar.
	ldy #CtlFlag
	lda [<Ctlptr],y
	and #DIR_SCROLL
	beq store1
	inx
	inx	Offset for horizontal scroll bar.
store1	stx <offset
;
;
; --- Remember the old thumber ---------------------------
;
	ldy #PageRegion+x2
	jsr CMsetrect2	rect = page region.
;
	jsr pushrect
	jsr pushVvert_pen
	pea 1
	_InsetRect
;
	jsr dereference	Ctlptr = (Ctlhand).
;
	ldx <offset
	lda <rect,x
	sta <front	Front side of page region.
;
	lda <rect+y2,x	Compute height of page region.
	sec
	sbc <rect,x
	sta <height
;
;
; --- Compute new RECT for thumber ----------------------------------
;
	ldy #Thumb+x2
	jsr CMsetrect2	rect = thumber.
;
	ldx #x2	Save current thumber rect.
lop2	lda <rect,x
	sta <trect,x
	dex
	dex
	bpl lop2
;
;
; ------- Get size of thumber ----------------------------------------
;
	ldy #CtlData	op1 = view size.
	lda [<Ctlptr],y
	tax	op1 = view size.
	iny
	iny
	lda [<Ctlptr],y	op3 = total size of	data area.
	ldy <height	op2 = size of page region.
	jsr fraction
;
;
; ------ Check minimum thumb size --------------------------------
;
	txa
	ldx <offset	Horizontal or Vertical scroll bar?
	beq ck_vermin
;
	ldy #min_thumb
	cmp [<data],y	Minimum thumber size.
	bcs store3
	lda [<data],y	(Let it fall through, always 8 or more.)
;
ck_vermin	cmp #8
	bcs store3
	lda #8
;
store3	sta <thumb_h	Number of pixels in	thumber.
;
;
;
	lda <height	Shrink page region by thumber size.
	sec
	sbc <thumb_h
	sta <height
;
;
; ------- Get starting position of thumber first --------------------
;
	jsr dereference	Ctlptr = (Ctlhand).
	ldy #CtlValue
	lda [<Ctlptr],y
	tax	op1 = current value.
	ldy #CtlData+2
	lda [<Ctlptr],y
	dey
	dey
	sec
	sbc [<Ctlptr],y	op3 = data size - view size.
	ldy <height	op2 = page height -	thumb height.
	jsr fraction
	phx	Number of pixels in	front of thumber.
;
;
; ------- Update thumber rect ----------------------------------------
;
	jsr dereference	Ctlptr = (Ctlhand).
	lda #Thumb
	clc
	adc <offset
	tay
;
	pla	Number of pixels in	front of thumber.
	clc
	adc <front
	sta [<Ctlptr],y
	iny
	iny
	iny
	iny
	clc
	adc <thumb_h
	sta [<Ctlptr],y
;
	rts
	
	ENDP


;====================================================================
;
;          Move scroll bar.
;
;   IN:    param = delta y.
;          param+2 = delta x.
;
;  OUT:    offset page and thumb RECTs.
;
;====================================================================
move_bar	proc EXPORT

	lda #Thumb	Offset thumber.
	jsr offsetRect
;
	lda #PageRegion	Offset page region.
;
offsetRect	jsr pushrecord
	pei <param+2	Pass delta x.
	pei <param	Pass delta y.
	_OffsetRect	Move the enclosing RECT.
;
	rts
	
	ENDP


;====================================================================
;
;                Setup to drag indicator.
;
;   IN:    Ctlptr =	pointer to control.
;          colorptr	= pointer to control's color table.
;
;  OUT:    limit_blk initialized.
;
;====================================================================
setup_drag	proc EXPORT

;
; --------- Perform	default setup ----------------------------------
;
	jsr setupcolor	Get control's color table pointer.
;
	ldy #PageRgnColor	Page region's color and pattern.
	lda [<colorptr],y
	tay
	jsr set_patt
	tya
	ldy #drag_patt
	sta [<data],y
	iny
	iny
	txa
	sta [<data],y
;
;
; ---------- Clone page region for bounds and slop RECTs -----------
;
	jsr dereference	Ctlptr = (Ctlhand).
	ldy #PageRegion+x2	Get page region.
	ldx #slop_rect+x2
lop3	lda [<Ctlptr],y
	phy
	txy
	sta [<data],y
	ply
	dex
	dex
	dey
	dey
	cpy #PageRegion
	bcs lop3
;
	ldy #PageRegion+x2	Get page region.
	ldx #bound_rect+x2
lop4	lda [<Ctlptr],y
	phy
	txy
	sta [<data],y
	ply
	dex
	dex
	dey
	dey
	cpy #PageRegion
	bcs lop4
;
;
; ---------- Compute bounds RECT from page region ------------------
;
	jsr pushbound_rect
	jsr pushVvert_pen
	pea 1
	_InsetRect
;
;
; ---------- Compute slop RECT from page region --------------------
;
	jsr pushslop_rect
;
	jsr dereference	Ctlptr = (Ctlhand).
	ldy #CtlFlag	Check directon.
	lda [<Ctlptr],y
;
	ldy #$FFCE	50 pixels vertical slop.
	ldx #$FFE7	25 pixels horizontal slop.
	and #DIR_SCROLL	Vertical or horizontal?
	beq store2	Equal if vertical scroll bar.
;
	ldy #$FFF0	16 pixels vertical slop.
	ldx #$FFB0	80 pixels horizontal slop.
;
store2	phx	Pass horizontal slop to _InsetRect.
	phy	Pass vertical slop to _InsetRect.
;
	ldy #GraphicsMode	320 or 640?
	lda [<data],y
	beq store3	If 320, I'm ready.
;
	lda 3,s
	asl a	Double horizontal slop in 640.
	sta 3,s
;
store3	_InsetRect
;
;
; ---------- Set default movement axis -----------------------------
;
	jsr dereference	Ctlptr = (Ctlhand).
	ldx #2	Allow vertical flag.
	ldy #CtlFlag	Check direction.
	lda [<Ctlptr],y
	and #DIR_SCROLL
	beq store1
	dex	Allow horizontal flag.
store1	txa
	ldy #axis_param
	sta [<data],y
	
	rts
	
	ENDP


;====================================================================
;
;          Perform default reposition of indicator.
;
;   IN:    Ctlhand = handle of control.
;          param = delta y.
;          param+2 = delta x.
;
;  OUT:    offset page and thumb RECTs.
;
;====================================================================
reposition	proc EXPORT

	jsr dereference	Ctlptr = (Ctlhand).
;
	ldy #Thumb+x2
	jsr CMsetrect2	rect = indicator.
;
	ldy #CtlFlag	Is it a vertical scroll bar?
	lda [<Ctlptr],y
	ldy <param	Y delta.
	ldx <param+2	X delta.
;
	and #DIR_SCROLL	Is it a vertical scroll bar?
	beq ckvert
;
	txy	Horizontal, change top and bottom.
	ldx #x1
	bra enter2
;
ckvert	ldx #y1
;
enter2	tya	Amount of change.
	clc
	adc <rect,x	New leading edge of	thumber.
	tay	Save thumber leading edge.
;
	lda <rect+y2,x
	sec
	sbc <rect,x
	pha	Size of thumber.
	phy	Save new leading edge.
;
	phx
	ldy #PageRegion+x2
	jsr CMsetrect2	rect = page region.
;
	jsr pushrect	Less page region's border.
	jsr pushVvert_pen
	pea 1
	_InsetRect
	jsr dereference	Ctlptr = (Ctlhand).
;
	plx
;
	lda <rect+y2,x
	sec
	sbc <rect,x	Page region size,
	sec
	sbc 3,s	less size of thumber.
	sta 3,s	op3 = page size - thumb size.
;
	pla	Get new leading thumb edge,
	sec
	sbc <rect,x	less page edge,
	tax	op1 = number of pixels in front of thumb.
;
	ldy #CtlData+2
	lda [<Ctlptr],y	op2 = data size,
	dey
	dey
	sec
	sbc [<Ctlptr],y	less view size.
	tay
	pla	Get op3.
	jsr fraction	Compute proportion equation.
;
;
; --- Set scroll bar's new value -------------------
;
	phx	Pass new value.
	pei <Ctlhand+2	Pass control's handle.
	pei <Ctlhand
	_SetCtlValue
;
	rts
	
	ENDP


;====================================================================
;
;          Test to draw control.
;
;  OUT:    Carry set if control is invisible, inactive, or view >= data.

;====================================================================
scrollState	proc EXPORT

	jsr dereference	Ctlptr = (Ctlhand).
	ldy #CtlData
	lda [<Ctlptr],y	Total view.
	iny
	iny
	cmp [<Ctlptr],y	Total data area.
	bcs exit	Everything in view?

	sec	Don't draw flag.
;
	ldy #CtlFlag
	lda [<Ctlptr],y
	and #Ctl_INVIS	Is the scroll bar visible?
	bne exit
;
	ldy #active
	lda [<data],y
	bmi exit
	clc
	
exit	rts

	ENDP


****************************************************************
*
CheckForVis	PROC
*
* This central routine checks the ctlFlag byte to see if
* the invisible bit is set.  If it is clear, the routine
* returns to the calling routine.
*
* If the bit is set, this routine pops an extra word off
* the stack and returns to the routine that called 
* the calling routine.
*
*
* Inputs:
*	<ctlPtr
*
* Outputs:
*	returns or not
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


	ldy #CtlFlag	Read the flag
	lda [<Ctlptr],y

	bit #ctl_invis	Are we visible?
	beq @GoOn	Yes, go on
	lda #0	Quit now.
	tax
	ply	Pull off extra RTS and go back to Ctl Mgr
@GoOn	rts

	ENDP




****************************************************************
*
SetUpColor	PROC
*
* Sets up colorPtr.
*
*
* In:    CtlHandle
*        CtlPtr
*
* Out:   ColorPtr
* 
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* Change History
*
* 19 Feb 89	Steven Glass
*
* This used to be part of ControlMgr.asm.  Now it is part
* of DefProcs.  The change was made because the color table
* ref was being made and memory manager calls could make
* it move.  It was also being made too often.
*
****************************************************************

;
;-----------------------------------------------------------
;
; Start by copying the reference from the control record
; to ColorPtr.  Who knows, it may even be right.
;
	ldy #CtlColor	Set pointer to the color table.
	lda [<Ctlptr],y
	sta <colorptr
	iny
	iny
	lda [<Ctlptr],y
	sta <colorptr+2


;
; If the control is not a super control, we are done.
;
	ldy #NewCtlRecord.ctlProc+2
	lda [ctlPtr],y
	bpl @Done

;
; It is a super control.  See what the verb is.
;
	jsr ReadMoreFlags
	and #ColorTableVerbMask
	beq @Done		0 is pointer so all done

	cmp #ColorTableIsHandle
	beq @IsHandle

@IsResource
	pha
	pha
	PushWord #rCtlColorTable
	pei ColorPtr+2
	pei ColorPtr
	jsr LoadResource
	pla
	sta ColorPtr
	pla
	sta ColorPtr+2

;
; memory may have moved, so reset ctlPtr
;
	jsr Dereference

@IsHandle
	
	ldy #2
	lda [ColorPtr],y
	tax
	lda [ColorPtr]
	sta ColorPtr
	stx ColorPtr+2

@Done	
	rts


	ENDP


	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/ControlMgr/equates.asm b/IIGS.601.SRC/GSToolbox/ControlMgr/equates.asm
new file mode 100644
index 0000000..f7e7bd6
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/ControlMgr/equates.asm
@@ -0,0 +1 @@
+**********************************************************************
*
* Control Manager Equates
*
*
* Copyright (C)
* Apple Computer, Inc.  1986-1991
* All Rights Reserved
*
**********************************************************************

minScrollDelay	equ 4*$10	;added 4-Jan-91 DAL (see move_thumb in defprocs.asm)

;
; --- Control Manager's direct page offsets -------------------------------
;
Ctlhand	equ 1	Handle of Ctlptr.
Ctlptr	equ Ctlhand+4	Ctlhand dereferenced.
windptr	equ Ctlptr+4
workptr	equ windptr+4
colorptr	equ workptr+4	Control's color table pointer.
rect	equ colorptr+4
rect2	equ rect+8
yrat	equ rect2+8
xrat	equ yrat+2
param	equ xrat+2	Parameter to definition procedure.
work	equ param+4	The size of work is	16 bytes.

DirectSize	equ work+15	Size of stack based	direct page.

savePort	equ DIRECTSIZE+1	Caller's port.
data	equ savePort+4	Pointer/Handle to data area.
saveDataB	equ data+4	Caller's data bank pointer.
saveDirect	equ saveDataB+1	Caller's direct page pointer.
bigReturn	equ saveDirect+2	Return addresses from tool call.
inputs	equ bigReturn+6	Inputs passed by caller.

;
; --- RECT record offsets ------------------------------------------------
;
y1	equ 0
x1	equ y1+2
y2	equ x1+2
x2	equ y2+2

;
; --- Event record offsets ---------------------------------------------
;
what	equ 0
message	equ what+2
when	equ message+4
where	equ when+4
modif	equ where+4

;
; --- GrafPort record offsets ------------------------------------------
;
oportInfo	equ $00	[LocInfo]
oportRect	equ $10	PortRect  [Rect]
oclipRgn	equ $18	Clip Rgn. Pointer	 [RgnHandle]
ovisRgn	equ $1C	Vis. Rgn. Pointer	 [RgnHandle]
obkPat	equ $20	BackGround Pattern	 [Pattern]
opnLoc	equ $40	Pen Location	 [Point]
opnSize	equ $44	Pen Size	 [Point]
opnMode	equ $48	Pen Mode	 [Word]

opnPat	equ $4A	Pen Pattern	 [Pattern]
opnMask	equ $6A	Pen Mask	 [Mask]
opnVis	equ $72	Pen Visable	 [Integer ]
ofont	equ $74	[FontHandle]
ofontID	equ $78	Font ID	 [Longint]
ofontFlags	equ $7C	FontFlags	 [Integer]
otxSize	equ $7E	Text Size	 [Integer]
otxFace	equ $80	Text Face	 [TextStyle]
otxMode	equ $82	Text Mode	 [Integer]
ospExtra	equ $84	Fixed Point Value	 [Fixed]
ochExtra	equ $88	Fixed Point Value	 [Fixed]
ofgColor	equ $8C	ForeGround Color	 [Integer]
obgColor	equ $8E	BackGround Color	 [Integer]
opicSave	equ $90	PicSave	 [Handle]
orgnSave	equ $94	RgnSave	 [Handle]
opolySave	equ $98	PolySave	 [Handle]
ografProcs	equ $9C	GrafProcs	 [ProcPtr]
oarcRot	equ $A0	ArcRot	 [Integer]
ouserField	equ $A2	UserField	 [Longint]
osysField	equ $A6	SysField	 [Longint]

;
; --- LocInfo record offsets ---------------------------------------------
;
oportSCB	equ 0	SCB bitfield
optrToPixImage	equ 2	ImageRef
olWidth	equ 6	Width
oboundsRect	equ 8	BoundsRect

;
; --- Font information record -------------------------------------------
;
ascent	equ 0
descent	equ ascent+2
widMax	equ descent+2
leading	equ widMax+2

;
; --- Window record	offsets  ----------------------------------------------
;
owNext	equ $00	Pointer to next window Record.       [GrafPortPtr]
oport	equ $04	Window's port.                       [GrafPort]
owPadding	equ $AE	Space for possible future expansion  [GrafPort]
owStrucRgn	equ $BE	Region of frame plus content.        [RgnHandle]
owContRgn	equ $C2	Content region.	                 [RgnHandle]
owUpdateRgn	equ $C6	Update region.	                 [RgnHandle]
owControls	equ $CA	Window's control list.               [CtlRecHndl]
owFrameCtrls	equ $CE	Window frame's control list.         [CtlRecHndl]
owFrame	equ $D2	Bit flags.	                 [WindowFrame]

;
; --- Window coordinate offsets ------------------------------------------------
;
TITLEH	equ 13	;Height of title bar.
TITLEL	equ 2	;Space on left and right of title bar pattern.
TITLET	equ 3	;Space on top and bottom of title bar pattern.
;
CLOSEL	equ 10	;Left side of window to left side of close box.
CLOSET	equ 2	;Top of window to top of close box.
CLOSEW	equ 22	;Width of close box.
CLOSEH	equ 11	;Height of close box.

;
; --- Flag masks for wkind ------------------------------
;
W_SYSTEM	equ $8000	1 = system window.

;
; --- Window Frame Type Masks ----------------------
;
F_TITLE	equ $8000	TRUE = title bar.
F_CLOSE	equ $4000	TRUE = close box.
F_RSCRL	equ $1000	TRUE = right scroll	bar.
F_BSCRL	equ $0800	TRUE = bottom scroll bar.
F_SIZE	equ $0400	TRUE = sizer box.
F_ZOOM	equ $0100	TRUE = full box.
F_MOVTIT	equ $0080	TRUE = allow move on title bar.
F_VIS	equ $0020	TRUE = window is visible.
F_INFO	equ $0010	TRUE = content inset from left side.
F_Ctl_TIE	equ $0008	FALSE= control state tied to window's
F_ALLOCATE	equ $0004	TRUE = window record allocated by me.
F_FULL	equ $0002	TRUE = window is full.
F_HIGHLT	equ $0001	TRUE = frame is highlighted.

;
; --- Window color table offsets -----------------------------
;
FRAME_CLR	equ 0	Frame's outline.
TITLE_CLR	equ FRAME_CLR+2	Title's color.
BAR_CLR	equ TITLE_CLR+2	Title bar's initerior.
GROW_CLR	equ BAR_CLR+2	Grow box interior.
INFOR_CLR	equ GROW_CLR+2	Information bar interior.
COLORSIZ	equ INFOR_CLR+2	Size of color table.

;
; --- Variation code, command to window	definition procedure ----------
;
wDraw	equ 0	Draw window's frame.
wHit	equ 1	Tell what region given point is in.
wCalcRgns	equ 2	Calculate wstrucRgn	and wcontRgn.
wNew	equ 3	Do any additional initialization.
wDispose	equ 4	Take any additional	disposal actions.
wGrow	equ 5	Draw window's grow image.

;
; --- Hit return flags -------------------------------------------------
;
Null	equ 0
wInDesk	equ $10	On Desktop.
wInMenuBar	equ $11	On System Menu Bar.
wInSysWindow	equ $12	On System window.
winContent	equ $13	In content region.
wInDrag	equ $14	In drag region.
wInGrow	equ $15	In grow region, active window only.
wInGoAway	equ $16	In go-away region, active window only.
wInZoom	equ $17	In zoom region, active window only.
wInInfo	equ $18	In information bar.
wInVScroll	equ $19	In right scroll bar.
wInHScroll	equ $1A	In bottom scroll bar.
wInFrame	equ $1B	In frame, but not on anything else.

;
; --- Color and pattern equates ---------------------------------------------
;
BLACK	equ $0000
RED	equ $1111
GREEN	equ $2222
WHITE	equ $ffff

P_SOLID	equ $0000
P_DITHER	equ $0100
P_DOTTED	equ $0200
P_LINED	equ $0300

;
; --- Control record offsets ---------------------------------------------
;
	DSect 0
CtlNext	LONG
CtlOwner	LONG
CtlRect	block 8
CtlFlag	byte
CtlHilite	byte
CtlValue	WORD
CtlProc	LONG
CtlAction	LONG
CtlData	LONG
CtlrefCon	LONG
CtlColor	LONG
Thumb	BLOCK 8
PageRegion	BLOCK 8

NormalCtlSize	equ CtlColor+4


;
; --- Simple button	color table offsets	-------------------------------------
;
simpOutline	equ 0
simpNorBack	equ 2
simpSelBack	equ 4
simpNorText	equ 6
simpSelText	equ 8

;
; --- Scroll bar color table offsets -------------------------------------
;
scrollOutline	equ 0
ArrowNorColor	equ 2
ArrowSelColor	equ 4
ArrowBackColor	equ 6
ThumbNorColor	equ 8
PageRgnColor	equ 12
InactiveColor	equ 14

;
; --- General CtlFlag bit flags ---------------------------------------------
;
C_HILITE	equ $00FF	Hilited part, 255 =	inactive.
CTL_INVIS	equ $0080	1 if control is invisible.

;
; --- CtlFlag bits for scroll bars -----------------------------------------
;
UP_FLAG	equ $0001	Up arrow.
DOWN_FLAG	equ $0002	Down arrow.
LEFT_FLAG	equ $0004	Left arrow.
RIGHT_FLAG	equ $0008	Right arrow.
DIR_SCROLL	equ $0010	0 = vertical, 1 = horizontal scroll.

;
; --- CtlFlag bits for simple buttons --------------------------------------
;
SB_BOLD	equ $0001

;
; --- Commands passed to control definition procedures ---------------------
;
drawCntl	equ 0	0 Draw the control.
calcCRect	equ drawCntl+1	1 Compute the drag RECT.
testCntl	equ calcCRect+1	2 Perform a hit test on the control.
initCntl	equ testCntl+1	3 Perform additional initialization.
dispCntl	equ initCntl+1	4 Perform additional disposal.
posCntl	equ dispCntl+1	5 Called when dragging complete with delta.
thumbCntl	equ posCntl+1	6 Setup for dragging.
dragCntl	equ thumbCntl+1	7 Perform dragging.
autoTrack	equ dragCntl+1	8 Called while dragging.
newValue	equ autoTrack+1	9 Called when new value is set.
setParams	equ newValue+1	10 Called when min and max are set.
moveCntl	equ setParams+1	11 Move entire control.
recSize	equ moveCntl+1	12 Return size of control's record.


;
; --- Part codes for standard controls -----------------
;
BUTT_PART	equ 2
CHECK_PART	equ 3
RADIO_PART	equ 4
UP_PART	equ 5
DOWN_PART	equ 6
UPP_PART	equ 7
DOWNP_PART	equ 8
GROW_PART	equ 10
THUMB_PART	equ 129

;
; --- Control Manager tool number -----------------------------------------
;
CtlToolNum	equ 16

;
; --- Control Manager error codes -----------------------------------------
;
OFF_ERR	equ $1002	Control Manager not	initialized.
NOT_IN_LIST	equ $1003	Control not in window list.

;
; --- Control icon numbers -------------------------------
;
UP_ARROW	equ 8
DOWN_ARROW	equ 10
LEFT_ARROW	equ 12
RITE_ARROW	equ 14
GROW_ICON	equ 16

TITLE_SPACE	equ 4	Number of pixels added to the width of
;	                   	a check box or radio button to get the
;	                   	starting X position of the title.

; = = = = = = = = =	= = = = = = = = = =	= = = = = = =
;                RAM area offsets.
; = = = = = = = = =	= = = = = = = = = =	= = = = = = =

pattern	equ 0	32 Pattern buffer.
myevent	equ pattern+32	16 Event record.
fontHandle	equ myevent+16	6 Fake handle for fonts.
MyID	equ fontHandle+6	2 Memory Manager ID	number.
MyDPage	equ MyID+2	2 Direct page passed to StartUp.
visRect	equ MyDPage+2	8 Current window's visible RECT.
eraseFlag	equ visRect+8	2 Flag for HidControl and EraseControl.
Ctl_font	equ eraseFlag+2	4 Handle of icon font.
vert_pen	equ ctl_font+4	2 Width of vertical	lines.
GraphicsMode	equ vert_pen+2	2 $0000 = 320 mode,	$0080 = 640 mode.
min_thumb	equ GraphicsMode+2	2 Minimum horizontal thumb size.
active	equ min_thumb+2	2 FALSE = enabled, TRUE = dimmed.
state	equ active+2	2 0=normal, 1=whole, 2=selected.

uArrowH	equ state+2	2 Height of up arrow icon.
uArrowW	equ uArrowH+2	2 Width of up arrow	icon.
dArrowH	equ uArrowW+2	2 Height of down arrow icon.
dArrowW	equ dArrowH+2	2 Width of down arrow icon.
lArrowH	equ dArrowW+2	2 Height of left arrow icon.
lArrowW	equ lArrowH+2	2 Width of left arrow icon.
rArrowH	equ lArrowW+2	2 Height of right arrow icon.
rArrowW	equ rArrowH+2	2 Width of right arrow icon.

limit_blk	equ rArrowW+2	Parameter block for	calling DragControl.
action_proc	equ limit_blk+0	Action procedure to	call, zero = none.
bound_rect	equ action_proc+4	Limit RECT.
slop_rect	equ bound_rect+8	Slop RECT.
axis_param	equ slop_rect+8	Axis.
drag_patt	equ axis_param+2	Pointer to drag pattern.
drag_rect	equ drag_patt+4	RECT to drag.

fontInfo	equ drag_rect+8	8 Font information record.

;-----------------------------------------------------------
;
; Variables needed by NewControl2
;
SavedRescID	equ fontInfo+8	
SavedHandle	equ SavedRescID+4	
ErrorCode	equ SavedHandle+4

ParamTextPtr	equ ErrorCode+2

RAMSIZE	equ ParamTextPtr+4	Number of bytes in RAM area.


;-----------------------------------------------------------
;
; Toolbox Patcher equates
;
oCMDispatcher	equ $0000

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/ControlMgr/makefile b/IIGS.601.SRC/GSToolbox/ControlMgr/makefile
new file mode 100644
index 0000000..d7fc15d
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/ControlMgr/makefile
@@ -0,0 +1 @@
+#### Dependencies for Control Manager ####

Tool016		Ä		¶
		ControlMgr.asm.obj		¶
		SuperControl.asm.obj	¶
		NewControl2.asm.obj		¶
		DefProcs.asm.obj		¶
		stattextproc.asm.obj	¶
		picproc.asm.obj			¶
		CtlPatch.asm.obj		¶
		DummyDrag.asm.obj		
	Linkiigs 	-l >map					¶
			ControlMgr.asm.obj		¶
			SuperControl.asm.obj	¶
			NewControl2.asm.obj		¶
			DefProcs.asm.obj		¶
			CtlPatch.asm.obj		¶
			DummyDrag.asm.obj		¶
#		-lseg:dynamic StatText					¶
		-lseg StatText					¶
			stattextproc.asm.obj	¶
		-lseg:dynamic Pics						¶
			picproc.asm.obj			¶
		-o Tool016	-t TOL
	if {AutoDuplicate} == 1
		DuplicateIIGS -y -mac Tool016 :
	End
		
ControlMgr.asm.obj		Ä		ControlMgr.asm			¶
								SuperEquates.asm		¶
								Equates.asm
	Asmiigs ControlMgr.asm -wi -unsafe

DefProcs.asm.obj		Ä		DefProcs.asm			¶
								SuperEquates.asm		¶
								Equates.asm
	Asmiigs DefProcs.asm -wi -unsafe

NewControl2.asm.obj		Ä		NewControl2.asm			¶
								SuperEquates.asm		¶
								Equates.asm
	Asmiigs NewControl2.asm -wi -unsafe

SuperControl.asm.obj	Ä		SuperControl.asm		¶
								Equates.asm
	Asmiigs SuperControl.asm

DummyDrag.asm.obj		Ä		DummyDrag.asm
	asmiigs DummyDrag.asm

StatTextProc.asm.obj	Ä		StatTextProc.asm		¶
								SuperEquates.asm		¶
								Equates.asm
	Asmiigs StatTextProc.asm

PicProc.asm.obj			Ä		PicProc.asm				¶
								SuperEquates.asm		¶
								Equates.asm
	Asmiigs PicProc.asm

CtlPatch.asm.obj		Ä		CtlPatch.asm			¶
								Equates.asm
	Asmiigs CtlPatch.asm



CM.Loader				Ä		CM.Loader.asm.obj		
	Linkiigs 			¶
			CM.Loader.asm.obj		¶
		-o CM.Loader


CM.LOADER.asm.obj		Ä		CM.LOADER.asm
	Asmiigs cm.loader.asm


		
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/ControlMgr/map b/IIGS.601.SRC/GSToolbox/ControlMgr/map
new file mode 100644
index 0000000..30fc987
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/ControlMgr/map
@@ -0,0 +1 @@
+-------------------------------------------------------------------------------
0001 Load Segment "~ExpressLoad" relocatable LENGTH=$134 KIND=$8001 (Data)(Dynamic)
-------------------------------------------------------------------------------
-------------------------------------------------------------------------------
0002 Load Segment "main" relocatable LENGTH=$30C9 KIND=$0000 
-------------------------------------------------------------------------------
0001 00000000 00000100 CONTROLCALLTABLE 
0002 00000100 00000094 CTLSTARTUP 
0003 00000194 00000010 CTLSTATUS 
0004 000001A4 00000012 CTLSHUTDOWN 
0005 000001B6 00000027 CTLRESET 
0006 000001DD 0000000A CTLVERSION 
0007 000001E7 00000011 CMUNLOADSEGMENTS 
0008 000001F8 0000000C CTLNEWRES 
0009 00000204 000000EC NEWCONTROL 
000A 000002F0 00000098 DISPOSECONTROL 
000B 00000388 0000001B SETCTLICONS 
000C 000003A3 00000027 SETCTLTITLE 
000D 000003CA 0000001B GETCTLTITLE 
000E 000003E5 00000033 SETCTLVALUE 
000F 00000418 00000015 GETCTLVALUE 
0010 0000042D 00000024 SETCTLPARAM 
0011 00000451 0000001B GETCTLPARAM 
0012 0000046C 00000010 GETCTLZPAGE 
0013 0000047C 0000000D SETCTLACTION 
0014 00000489 0000000D GETCTLACTION 
0015 00000496 0000001B SETCTLREFCON 
0016 000004B1 0000001B GETCTLREFCON 
0017 000004CC 00000077 HILITECONTROL 
0018 00000543 0000007D CTRL12PROC 
0019 000005C0 00000056 CTRL2PROC 
001A 00000616 0000002C DRAWCONTROLS 
001B 00000642 00000075 INVALCTLS 
001C 000006B7 00000089 FUTZCTLS 
001D 00000740 000000A8 FINDRADIOBUTTON 
001E 000007E8 00000127 SETLETEXTBYID 
001F 0000090F 00000030 SETCTLVALUEBYID 
0020 0000093F 00000020 GETCTLVALUEBYID 
0021 0000095F 00000063 INVALONECTLBYID 
0022 000009C2 00000018 HILITECTLBYID 
0023 000009DA 00000043 SET2DRAW 
0024 00000A1D 00000073 DRAWWHOLECTL 
0025 00000A90 00000053 SET2DRAWCTL 
0026 00000AE3 0000000E SETVERTPEN 
0027 00000AF1 00000027 DRAWTO 
0028 00000B18 00000034 GROWSIZE 
0029 00000B4C 000000E4 TRACKCONTROL 
002A 00000C30 0000000D PUSHRECORD 
002B 00000C3D 000000D2 DO_ACTION 
002C 00000D0F 00000006 LONG_CALL 
002D 00000D15 00000072 MOVECONTROL 
002E 00000D87 00000072 FINDCONTROL 
002F 00000DF9 00000013 TO_LOCAL 
0030 00000E0C 00000017 TESTCONTROL 
0031 00000E23 00000070 DRAGCONTROL 
0032 00000E93 0000003A GET_DRAGRECT 
0033 00000ECD 0000002D CALLDEFPROC 
0034 00000EFA 00000016 SETCTLPARAMPTR 
0035 00000F10 00000016 GETCTLPARAMPTR 
0036 00000F26 0000013B CMDISPATCH 
0037 00001061 00000027 CMLOADRESOURCE 
0038 00001088 0000001E GETANDSETPREFS 
0039 000010A6 00000017 CMRELEASERESOURCE 
003A 000010BD 000000FD LOADRESOURCE 
003B 000011BA 0000001F RELEASERESOURCE 
003C 000011D9 0000006D PUSHPORT 
003D 00001246 0000003C SET_TEXTMODE 
003E 00001282 00000011 SMEAR 
003F 00001293 00000033 SETICONFONT 
0040 000012C6 00000050 NEWRESGUTS 
0041 00001316 0000009E COMPUTESCROLLCOLOR 
0042 000013B4 00000010 SETWAP 
0043 000013C4 0000001F ALLOCATE 
0044 000013E3 000000BA CMSTARTUP 
0045 0000149D 0000002B FRACTION 
0046 000014C8 0000001E PEN_COLOR 
0047 000014E6 0000000E PUSHVCTL_FONT 
0048 000014F4 00000005 PUSHRECT2 
0049 000014F9 00000026 PUSHFONTHANDLE 
004A 0000151F 0000000E ENTER470 
004B 0000152D 00000005 PUSHVAXIS_PARAM 
004C 00001532 0000001E PUSHVVERT_PEN 
004D 00001550 00000060 GETWINDPTR 
004E 000015B0 0000000D DEREFERENCE 
004F 000015BD 00000043 PUSHSTRINGPTR 
0050 00001600 00000006 READMOREFLAGS 
0051 00001606 00000025 GETCOLORTABLEREFFROMTEMPLATE 
0052 0000162B 000000CA SET_PATT 
0053 000016F5 00000127 DRAWRECT 
0054 0000181C 000003C8 STATICRAM 
0055 00001BE4 00000017 FINDACTIVECONTROL 
0056 00001BFB 000000F7 MAKENEXTCONTROLACTIVE 
0057 00001CF2 00000079 MAKETHISCTLACTIVE 
0058 00001D6B 00000085 SENDEVENTTOCONTROL 
0059 00001DF0 0000003E GETHANDLEFROMID 
005A 00001E2E 0000001C SETCTLID 
005B 00001E4A 00000016 GETCTLID 
005C 00001E60 0000001D GETCTLMOREFLAGS 
005D 00001E7D 0000001D SETCTLMOREFLAGS 
005E 00001E9A 00000038 NOTIFYCONTROLS 
005F 00001ED2 00000013 ISITSUPER 
0060 00001EE5 00000022 GETFIRSTSUPERCONTROL 
0061 00001F07 00000020 USETHISWINDPTR 
0062 00001F27 00000025 ACTIVEGUTS 
0063 00001F4C 000002D6 NEWCONTROL2 
0064 00002222 00000038 SIMP_PROC 
0065 0000225A 00000005 NULL_RET 
0066 0000225F 0000007E NOR_EVENT 
0067 000022DD 0000003F SIMP_DISP 
0068 0000231C 00000014 NOR_SIZE 
0069 00002330 0000011E SIMP_INIT 
006A 0000244E 00000004 TEST_BUTT 
006B 00002452 00000131 SIMP_DRAW 
006C 00002583 00000017 INVAL_RECT 
006D 0000259A 0000003B CHECK_PROC 
006E 000025D5 00000004 CHECKBOXHIT 
006F 000025D9 000000FF CHECK_DRAW 
0070 000026D8 0000005E PRINT_ICON 
0071 00002736 0000000A SET_PENPOS 
0072 00002740 0000003B RADIO_PROC 
0073 0000277B 00000004 RADIOHIT 
0074 0000277F 00000006 RADIO_DRAW 
0075 00002785 00000067 RADIO_SET 
0076 000027EC 0000002F NEXT_RADIO 
0077 0000281B 00000035 GROW_PROC 
0078 00002850 00000037 DRAW_GROW 
0079 00002887 00000012 TEST_GROW 
007A 00002899 00000074 TRACK_GROW 
007B 0000290D 0000003D INIT_GROW 
007C 0000294A 00000035 SCROLL_PROC 
007D 0000297F 00000012 REC_SIZE 
007E 00002991 00000165 SCROLL_INIT 
007F 00002AF6 00000080 SCROLL_HIT 
0080 00002B76 00000166 SCROLL_DRAW 
0081 00002CDC 00000059 UP_BOX 
0082 00002D35 00000025 DRAW_ARROW2 
0083 00002D5A 00000015 CENTER_HOR 
0084 00002D6F 000001AF NEWVIEW 
0085 00002F1E 00000018 MOVE_BAR 
0086 00002F36 0000009F SETUP_DRAG 
0087 00002FD5 00000072 REPOSITION 
0088 00003047 00000022 SCROLLSTATE 
0089 00003069 00000010 CHECKFORVIS 
008A 00003079 00000043 SETUPCOLOR 
008B 000030BC 0000000D TOOLBOXPATCHER 
008C 000030C9 00000000 WINDDRAGRECT 
-------------------------------------------------------------------------------
0003 Load Segment "StatText" relocatable LENGTH=$339 KIND=$0000 
-------------------------------------------------------------------------------
0001 00000000 00000081 STATTEXTPROC 
0002 00000081 00000007 DO_RECSIZE 
0003 00000088 00000005 DO_NOTHING 
0004 0000008D 0000001C DO_DISPOSE 
0005 000000A9 00000046 DO_STATINIT 
0006 000000EF 0000001B DO_TEST 
0007 0000010A 00000024 DO_CHANGESTATE 
0008 0000012E 000001F7 DO_DRAW 
0009 00000325 0000000B USEFULUTILS 
000A 00000330 00000009 GETREFTYPE 
-------------------------------------------------------------------------------
0004 Load Segment "~JumpTable" relocatable LENGTH=$1A KIND=$0002 (Jump Table)
-------------------------------------------------------------------------------
-------------------------------------------------------------------------------
0005 Load Segment "Pics" relocatable LENGTH=$166 KIND=$8000 (Dynamic)
-------------------------------------------------------------------------------
0001 00000000 00000066 PICPROC 
0002 00000066 00000007 DO_RECSIZE 
0003 0000006D 00000005 DO_NOTHING 
0004 00000072 00000066 DO_INIT 
0005 000000D8 0000001F DO_DISPOSE 
0006 000000F7 00000005 DO_TEST 
0007 000000FC 0000006A DO_DRAW 

Output Load File "Tool016" contains 5 Load Segments with a total length of $36B6 bytes.
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/ControlMgr/special.macros b/IIGS.601.SRC/GSToolbox/ControlMgr/special.macros
new file mode 100644
index 0000000..d72b981
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/ControlMgr/special.macros
@@ -0,0 +1 @@
+	print push
	print off


;---------------------------------------------------------

	MACRO
	ble &A
		blt  &A
		beq  &A
	MEND

;---------------------------------------------------------

	MACRO
	bgt &A
		beq  @1
		bge  &A
@1
	MEND

;---------------------------------------------------------
	MACRO
	bcsl &A
		bcc  @1
		brl  &A
@1
	MEND

;---------------------------------------------------------

	MACRO
	bccl &A
		bcs  @1
		brl  &A
@1
	MEND

;---------------------------------------------------------

	MACRO
	beql &A
		bne  @1
		brl  &A
@1
	MEND

;---------------------------------------------------------

	MACRO
	bnel &A
		beq  @1
		brl  &A
@1
	MEND

;---------------------------------------------------------

	MACRO
	bltl &A
		bge  @1
		brl  &A
@1
	MEND

;---------------------------------------------------------

	MACRO
	bgel &A
		blt  @1
		brl  &A
@1
	MEND

;---------------------------------------------------------

	MACRO
	blel &A
		bgt  @1
		brl  &A
@1
	MEND

;---------------------------------------------------------

	MACRO
	bgtl &A
		ble  @1
		brl  &A
@1
	MEND

;---------------------------------------------------------

	MACRO
	bmil &A
		bpl  @1
		brl  &A
@1
	MEND

;---------------------------------------------------------

	MACRO
	bpll &A
		bmi  @1
		brl  &A
@1
	MEND

;---------------------------------------------------------

	MACRO
	PushLongSpace
		pha
		pha
	MEND

;---------------------------------------------------------

	MACRO
	PushWordSpace
		pha
	MEND

;---------------------------------------------------------

	MACRO
	PushAX
		phx
		pha
	MEND

;---------------------------------------------------------

	MACRO
	PullAX
		pla
		plx
	MEND

;---------------------------------------------------------

	MACRO
	PushZPtr &A
		pea  $0000
		tdc
		clc
		adc  #&A
		pha
	MEND

;---------------------------------------------------------

	MACRO
	PushZWord &A
		pei  &A
	MEND

;---------------------------------------------------------

	MACRO
	PushZLong &A
		PushZWord &A+2
		PushZWord &A
	MEND

;---------------------------------------------------------

	MACRO
	ldax &addr,&regs
	IF &addr[1:1]='#' THEN
		lda  #&addr[2:255]>>16
		ldx  #|&addr[2:255]
	ELSEIF &addr[1:1]='[' THEN
		ldy  #&regs+2
		lda  &addr,y
		tax
		ldy  #&regs
		lda  &addr,y
	ELSEIF &regs='s' THEN
		lda  &addr+2,s
		tax
		lda  &addr,s
	ELSEIF &regs='' THEN
		lda  &addr
		ldx  &addr+2
	ELSE
		lda  &addr+2,&offset
		tax
		lda  &addr,&offset
	ENDIF
	MEND

;---------------------------------------------------------

	MACRO
	stax &addr,&regs
	IF &addr[1:1]='[' THEN
		ldy  #&regs
		sta  &addr,y
		txa
		ldy  #&regs+2
		sta  &addr,y
	ELSEIF &regs='s' THEN
		sta  &addr,s
		txa
		sta  &addr+2,s
	ELSEIF &regs='' THEN
		sta  &addr
		stx  &addr+2
	ELSE
		sta  &addr,&offset
		txa
		sta  &addr+2,&offset
	ENDIF
	MEND

;---------------------------------------------------------

	MACRO
	casejmp &A,&B
		cmp  #&A
		bne  @1
		jmp  &B
@1
	MEND

;---------------------------------------------------------

	MACRO
	cmpl &A,&B
	IF &B='' THEN
		cpx  &A+2
		bne  @1
		cmp  &A
	ELSE
		lda  &A+2
		cmp  &B+2
		bne  @1
		lda  &A
		cmp  &B
	ENDIF
@1
	MEND

;---------------------------------------------------------

	MACRO
	incl &A
	IF &A='a' THEN
		inc  a
		bne  @1
		inx
	ELSE
		inc  &A
		bne  @1
		inc  &A+2
	ENDIF
@1
	MEND

;---------------------------------------------------------

	MACRO
	decl &A
	IF &A='a' THEN
		cmp  #0
		bne  @1
		dex
@1		dec  a
	ELSE
		lda  &A
		bne  @2
		dec  &A+2
@2		dec  &A
	ENDIF
	MEND

;---------------------------------------------------------

	MACRO
	stzl &A
		stz  &A
		stz  &A+2
	MEND

;---------------------------------------------------------

	MACRO
	subl &A,&B,&C
		lda  &A
		sec
		sbc  &B
		sta  &C
		lda  &A+2
		sbc  &B+2
		sta  &C+2
	MEND

;---------------------------------------------------------

	MACRO
	addl &A,&B,&C
	IF &C='' ** &B='' THEN
		clc
		adc  &A
		sta  &A
		bcc  @1
		inc  &A+2
@1
	ELSE
		lda  &A
		clc
		adc  &B
		sta  &C
		lda  &A+2
		adc  &B+2
		sta  &C+2
	ENDIF
	MEND

;---------------------------------------------------------

	MACRO
	subw &A,&B,&C
		lda  &A
		sec
		sbc  &B
		sta  &C
	MEND

;---------------------------------------------------------

	MACRO
	addw &A,&B,&C
		lda  &A
		clc
		adc  &B
		sta  &C
	MEND

;---------------------------------------------------------

	MACRO
	mov &A,&B
		lda  &A
		sta  &B
	MEND

;---------------------------------------------------------

	MACRO
	swap &A,&B
		lda  &A
		pha
		lda  &B
		sta  &A
		pla
		sta  &B
	MEND

;---------------------------------------------------------

	MACRO
	swapl &A,&B
		swap &A,&B
		swap &A+2,&B+2
	MEND

;---------------------------------------------------------

	MACRO
	movl &A,&B
		move &A,&B
		move &A+2,&B+2
	MEND

;---------------------------------------------------------

	MACRO
	move &A,&B
		mov  &A,&B
	MEND

;---------------------------------------------------------

	MACRO
	movel &A,&B
		movl &A,&B
	MEND

;---------------------------------------------------------

	MACRO
	moveword &A,&B
		move &A,&B
	MEND

;---------------------------------------------------------

	MACRO
	movelong &A,&B
		movel &A,&B
	MEND

;---------------------------------------------------------

	MACRO
	sublong &A,&B,&C
		subl &A,&B,&C
	MEND

;---------------------------------------------------------

	MACRO
	addlong &A,&B,&C
		addl &A,&B,&C
	MEND

;---------------------------------------------------------

	MACRO
	PushZeroPtr &A
		PushZPtr &A
	MEND

;---------------------------------------------------------

	MACRO
	stz4 &A
		stzl &A
	MEND

;---------------------------------------------------------

	MACRO
	cmp4 &A,&B
		cmpl &A,&B
	MEND

;---------------------------------------------------------


	print pop
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/DialogMgr/MakeFile b/IIGS.601.SRC/GSToolbox/DialogMgr/MakeFile
new file mode 100644
index 0000000..f9a3980
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/DialogMgr/MakeFile
@@ -0,0 +1 @@
+### Dependancies for Dialog Manager
tool021					Ä		dialog.asm.obj
	linkiigs    dialog.asm.obj						¶
				-o tool021 -t TOL
	if {AutoDuplicate} == 1
		DuplicateIIGS -y -mac Tool021 :
	End

### Dependancies for components
dialog.asm.obj 			Ä 		dialog.asm
	ASMIIGS dialog.asm
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/DialogMgr/dialog.asm b/IIGS.601.SRC/GSToolbox/DialogMgr/dialog.asm
new file mode 100644
index 0000000..bee1079
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/DialogMgr/dialog.asm
@@ -0,0 +1 @@
+**********************************************************************
*
* Dialog Manager Version 3.3
*
* Copyright Apple Computer, Inc. 1986-1993
* All rights reserved.
*
*
* Originally by Jean-Charles Mourey
* Modified by Harry Yee
*
* The dialog manager is a tool that supports modal and modeless 
* dialogs.
*
* Files:
*    Special.Macros
*
* Modification History
*
* Version 1.3
*
* January 16, 1987	               Steven Glass
*
* The User Control DefProc was always dereferencing the control and
* setting the port.	 Even when the RecSize message was being sent.
* This is not allowed.  Very bad!
*
* January 28, 1987	               Steven Glass
*
* I found that the LineEdit defproc had	the same problem as	above.
* It always set the	port and origin even for the RecSize message.
*
* Jim Merrit also reported a bug in SetDAFont which seemed to be
* caused by the storeLONGinZP routine.	The routine was only
* storing the first	word of the long rather than the whole thing.
*
* VERSION 2.0
*
* April 20, 1987	                Dan	Hitchens
*
* A new item type, LongStatText2, was incorporated into the	Dialog
* manager.  Its Itemtype=22 and its PartCode=15.
*
* A bug in IsDialogEvent which allowed it to claim all update and
* activate events was fixed. It now functions correctly by only
* claiming those activate and update events which occur in a dialog
* window.
*
* VERSION 2.X
*
* November xx,1987	                 Dan Hitchens
*
* A bug in GetNewXXX with a refcon value of non-zero would cause a crash
* or unpredictable results was fixed.
*
* A bug with IsDialogEvent which didn't allow it to claim the following
* events: WInDrag, WInGrow, WInGoAway, WInZoom, WInInfo, WInVerScrl,
* WInHorScrl, WInFrame, WinDrop.
*
*
* Version 2.1	Harry Yee
*
* February 1988
*
* Code modified to build under MAX.
*
* Code modified to avoid using in line storage so it should work in 
* ROM.
*
* March 4, 1988
*
* Code re-formatted and entabbed.
*
* March 28, 1988	Harry Yee	v2.2d1
*
* DisableDItem/EnableDItem call, when passed an invalid ID item number, would fail because
* it did not clean up the stack correctly when exiting. The enable/disable flag was left
* on the stack.  This has been fixed 
*
* May 2, 1988	Harry Yee	v2.2d2 (for System Disk 3.2d21)
*
* HideDItem/ShowDItem, GetDItemValue, when passed an invalid ID item number, would fail
* because it did not clean up the stack correctly when exiting.  This has been fixed
*
* May 9, 1988       Harry Yee	v2.2d3 (for System Disk 3.2d22)
*
* Problem with using the special paramtext indicators "^0" to "^3" when they are used as 
* the last character on a line.  An extra garbage char. is printed out along with the
* string.  In the procedure InsertParamString the length byte DestLen was being incremented
* by one too many when the procedure exited causing _LETextBox to print out one to many
* characters. This has been fixed.
*
* May 16, 1988	Harry Yee	v2.2d4 (for System Disk 3.2d23)
*
* The following calls: GetDItemType, SetDItemType, SetDItemValue, when passed an
* invalid ID item number, would fail because it did not clean up the stack correctly
* when exiting. This has been fixed in the routines GetItemWord, SetItemWord, and
* SetDItemValue respectively.
*
* May 27, 1988	Harry Yee	v2.2d5 (for System Disk 3.2d25)
*
* Fixed DialogStatus call. After calling DialogShutDown and then calling DialogStatus, 
* DialogStatus would always return non-zero, meaning it was still active.
*
*
* 07 Jun 88	Harry and Steve	v 2.2d5 (for System Disk 3.2d26)
*
* The StatText, LongStatText LineEdit drawing routines assumed the foreground
* and background colors in the GrafPort were correctly set.  This was
* only the case if other controls in the dialog had been colored and 
* had been drawn first.
*
* 15 Jun 88	Harry Yee
*
* Prototype bit taken out of TheDialogVersionNum for final release.
*
* 13 Jul 88	Harry Yee	v2.3d1 (for System Disk 4.0d11)
*
* IsDialogEvent is capturing too many taskmaster events. wInContent 
* should be the only one that causes IsDialogEvent to return True. This 
* undoes the change from November xx, 1987 by Dan Hitchens.
*
* Handle for memory obtained during DialogStartup for the window parameters was
* being locked down until DialogShutDown was called which disposed of the handle.
* The handle is now created with no restrictions and locked down and dereferenced
* when used and then unlocked when its not (this handle is only accessed in routine
* NewDialog).  The UserID was also incorrect for the memory obtained. I now use
* what was passed to me in ProgramID.
*
* 26 Jul 88	Harry Yee	v2.3d2 (for System Disk 4.0d14)
*
* Having a paramtext string of length zero inserts two bytes of garbage in
* the output string. Fix was in routine InsertParamString.  When a paramtext
* indicator ^n was encountered we were not checking for a zero length string.
* Therefore we were always writing at least two bytes of garbage into the
* output string.
*
* 04 Aug 88	Harry Yee	v2.3d3 (for System Disk 4.0d16)
*
* Routine Long_Call did not RTL to the correct location if the address of the routine
* was located at the very beginning of a bank (i.e. n/0000). Long_call used to 
* decrement the data bank also if the low word of the address was zero. We now no
* longer touch the data bank, and only decrement the low word.
*
* 07 Oct 88	Steven Glass	v2.4 for v4.1d2 and RevD03
*
* The StatText, LongStatText and Icon DefProcs were always dereferencing 
* the control and doing other setup...	even when the RecSize message 
* was being sent.
*
* 02 Dec 88	Harry Yee	v2.4 for v4.1d5 disk and RevD07
*
* Fixed bug in GetNextDItem (BRC #38734). Only the low word of the handle to
* the next control was being used. Also was not checking for end of control list.
*
* 19 May 89	Steven Glass
*
* Change to DialogStart to ignore previous state.  Should help
* Mavis Beacon keep running.
*
* 9/7/89	Mensch
* Changed a handle allocation to allocate a fixed handle, this prevents the 
* dialog manager writing over someone else's memory.
*
* 11/13/89	Mensch
*
* Fixed modal dialog so that it does not suck off app events BRC#53469
*
* 17-Sep-90	Dave Lyons
*
* Removed dependency on all.macros.
* Crunched "pushlong <xxx" and "pushword <xxx" macros to pushlongdp and pushworddp.
* Optimizations (search for DAL).
* Version number $8304.
* This saved 362 bytes for ROM 1.
*
* 24-Sep-90	Dave Lyons
*
* Changed link and tlink macros to omit useless "sec sbc #0 tcs" after a tsc.
* Changed StdSoundProc to call SysBeep2 with $8000 for Alert stage 0,
* 1-3 for Alert stages 1-3, and 4 for clicking outside a dialog or alert.
*
* 17-Feb-91	Dave Lyons
*
* Changed StdSoundProc again to use the newly-defined bit 14 in SysBeep2, to
* defer the sound until the next GetNextEvent call.  Click-outside-dialog is
* not deferred, but the other ones are.
*
* 3-Mar-91	Dave Lyons
*
* Fixed a very old coding error after GetOldEditLine; it was checking the low
* word of a value twice instead of checking both words.  I don't think this
* had any actual consequences, but I fixed it anyway.
*
* 5-Mar-91	Dave Lyons
*
* Adding support for I-Beam cursors.  Set bit 30 of the ModalDialog or
* ModalDialog2 filter proc, and it calls InitCursor for you on the way in.
* Then it watches where the cursor is and calls InitCursor and IBeamCursor
* for you, and it resets the cursor to an arrow on the way out if
* necessary.
*
* 7-Mar-91	Dave Lyons
*
* Rewrote part of the I-Beam stuff.  Now uses FindCursorCtl instead of
* FindDItem, since FindDItem was actually forcing inactive edit line
* items to become active.
*
* Also, we only show an I-Beam over the an edit-line item with an
* *active* Line Edit record, not over all the edit line items.
*
* 4-Jun-91	Dave Lyons
*
* Adding conditional code to use colorful icons, instead of black-and-white
* ones (Note, Caution, Stop icons).  I need separate icons for 320 vs. 640.
*
* 10-Jun-91	Dave Lyons
*
* Removed check for an editLine item being active; we use the I-Beam cursor
* over even inactive ones now.
*
* Exported colored icons so the ROM 3 patch can use them.
*
* 26-Aug-91	Dave Lyons
*
* Added check in CreateIcon for dialog at odd X position.  If odd,
* we make the icon position (local coordinates) odd too, so the colors
* will be right.
*
* 13-Oct-91	Dave Lyons
*
* In 320 mode, NoteAlert, StopAlert, and CautionAlert were putting
* their icons at X=0 instead of X=20.  Oops, fixed.
*
* 5-Feb-92	Dave Lyons
*
* Version $0304.
*
**********************************************************************
*
* BEGIN 6.0.1
*
* 26-Jan-93	Dave Lyons
*
* Version $8305.  Removed a bogus DEY in Beep that was seeing the
* high byte of the DAFont and deciding that a NIL sound proc was
* actually non-nil, and calling it.  This was not a problem in ROM
* 3, because it was already patched so that the sound proc is
* always non-nil.
*
* 1-Apr-93	Steve Stephenson
*
* Version $0305 for 6.0.1 (final)
*
**********************************************************************
	blanks off
	string asis

TheDialogVersionNum	equ $0305	;1-Apr-93 SS

ColorIcons	equ 1

	include 'all.macros'
	include 'special.macros'

	longa on
	longi on

	macro
&lab	pushworddp &blah
&lab	pei &blah
	mend

	macro
&lab	pushlongdp &blah
&lab	pei &blah+2
	pei &blah
	mend

	MACRO
	PushZPtr &A
	pea  $0000
	tdc
	clc
	adc  #&A
	pha
	MEND


; *      copy  MemEqu.asm
********************************************************************************
*
*        Memory Manager Equates:
*
*              Constants and Internal Structures	  
*
*******************************************************************************
*
* General Constants
*
nil	equ 0	Nil pointer value
true	equ $FFFF	Boolean true
false	equ $0000	Boolean false

;*
;* Bank E1 memory equates
;* addresses $E115AA - $E11AFF are reserved for the memory manager
;*
;MMRam	equ $E115AA	Beginning of our ram
;MMRamEnd	equ $E11AFF	Last byte of our ram
;
;* Pointers to segment lists
;*
;MemList	equ $E11600	List of used segments
;PurgeList	equ $E11604	List of used but empty handles
;FreeList	equ $E11608	List of free handles
;Mem01	equ $E1160C	Begining of bank 1
;MemE0	equ $E11610	Begining of bank E0
;MemFF	equ $E11614	Last segment
;
;* Other stuff
;*
;DoMove	equ $E11618	Code that does block move
;NumBanks	equ $E1161C	Number of 64K banks	in machine
;;		not counting E0, E1
;HandleBuf	equ $E11700	$E11700 - $E1AFF is	used for handles

*
* Zero page stuff
*
error	equ 1	Error code
addr	equ error+2
Count	equ addr
attr	equ addr+4
Dest	equ attr	Block Move Destination
owner	equ attr+2
size	equ owner+2
Source	equ size
hndl1	equ size+4
TempCount	equ hndl1
hndl2	equ hndl1+4
hndl	equ hndl2+4
addr1	equ hndl+4
addr2	equ addr1+4
ZPSize	equ addr2+4-1	# bytes we're adding to stack

numparms	equ addr2+4
return	equ numparms+2	Users 2 return addresses
parms	equ return+6	Parameters start here

* Parameters and function results
*
ParmHndl	equ parms	Inputted handle for	most calls
ResHndl	equ parms+12	Handle returned by newhandle
;		and handle inputted	by reallochandle

* End of zero page stuff

*
* The handle data structure
*
Hndl_Addr	equ 0	4 byte address pointed to by handle
Hndl_Attr	equ 4	2 byte attributes byte
Hndl_Owner	equ 6	2 byte segment owner ID
Hndl_Size	equ 8	4 byte size
Hndl_Prev	equ 12	4 byte pointer to previous handle
Hndl_Next	equ 16	4 byte pointer to next handle
HSize	equ 20	Size of handle data	structure

* Handle attributes	bits
*
Attr_Locked	equ $8000	1 = Locked
Attr_Fixed	equ $4000	1 = Not movable
Attr_Purge	equ $0300	0 = No purge 1-3 purge level
Attr_NoCross	equ $0010	1 = May not cross banks
Attr_NoSpec	equ $0008	1 = May not use special memory
Attr_Page	equ $0004	1 = Page Aligned
Attr_Addr	equ $0002	1 = Fixed address
Attr_Bank	equ $0001	1 = Fixed address

*
* Error codes
*
MFullErr	equ $0201	Memory full error
NilErr	equ $0202	Operation on a nil handle
NotNilErr	equ $0203	Operation on a non nil handle
LockErr	equ $0204	Operation on a locked block
PurgeErr	equ $0205	Attempt to purge unpurgeable block
HandleErr	equ $0206	Invalid handle inputted


; *      copy  QdHeader.asm
; QDHeader.asm

	TITLE 'QuickDraw Header'

;++++++++++++++++++++++++++++++++++++++++++++++
;
; Some Structures and Equates from QuickDraw
;
;++++++++++++++++++++++++++++++++++++++++++++++
;
;
;
; +++ Paint Pixels parameter block ++++++++
;
PP_SrcInfo	equ 0
PP_DesInfo	equ PP_SrcInfo+4
PP_SrcRect	equ PP_DesInfo+4
PP_DesRect	equ PP_SrcRect+4
PP_Mode	equ PP_DesRect+4
PP_Clip	equ PP_Mode+2
;
; +++ LocInfo record +++++++++++++++++
;
PortSCB	equ 0
PixelImage	equ PortSCB+2
Width	equ PixelImage+4
PBounds	equ Width+2
LOCINFO	equ PBounds+8
;
; +++++ Region record +++++
;
Rgn_Len	equ 0
Rgn_Bounds	equ Rgn_Len+2
;
;
; +++++ Port record	+++++
;
GP_PortInfo	equ 0
GP_Bounds	equ GP_PortInfo+8
GP_PortRect	equ GP_Bounds+8
GP_ClipRgn	equ GP_PortRect+8
GP_VisRgn	equ GP_ClipRgn+4
GP_BkPat	equ GP_VisRgn+4
;
PORTSIZE	EQU 186
;
; +++++ Rectangle Structure +++++
;
y1	EQU 0
x1	EQU y1+2
y2	EQU x1+2
x2	EQU y2+2
RECTSIZE	EQU x2+2

;
; *** window parameter block for _NewWindow ***
;
templ_len	equ 0
wind_frame	equ templ_len+2
wind_title	equ wind_frame+2
wind_ref	equ wind_title+4
wind_full	equ wind_ref+4
wind_clr	equ wind_full+8
wind_voff	equ wind_clr+4
wind_hoff	equ wind_voff+2
wind_datah	equ wind_hoff+2
wind_dataw	equ wind_datah+2
wind_max_h	equ wind_dataw+2
wind_max_w	equ wind_max_h+2
wind_vscrl	equ wind_max_w+2	Number of pixels to	scroll vertically.
wind_hscrl	equ wind_vscrl+2	Number of pixels to	scroll horizontally.
wind_vpage	equ wind_hscrl+2	Number of pixels to	page vertically.
wind_hpage	equ wind_vpage+2	Number of pixels to	page horizontally.
wind_infot	equ wind_hpage+2	Infomation bar text	string.
wind_infoh	equ wind_infot+4	Height of information bar
wind_def	equ wind_infoh+2	DefProc.
wind_info	equ wind_def+4	Routine to draw info. bar.
wind_draw	equ wind_info+4	Routine to draw content.
wind_pos	equ wind_draw+4	Size/Position of content.
wind_plane	equ wind_pos+8	Plane to put window	up in.
wind_rec	equ wind_plane+4	Address of memory for window record.

;
; Icon Item Template
;
IconitemID	equ 0
IconitemRect	equ IconitemID+2
IconitemType	equ IconitemRect+8
IconitemDescr	equ IconitemType+2
IconitemValue	equ IconitemDescr+4
IconitemFlag	equ IconitemValue+2
IconitemColor	equ IconitemFlag+2


;
; *      copy  EvHeader.asm
; EvHeader.asm

	TITLE 'Event Manager Header'

;+++++++++++++++++++++++++++++++++++++++++++++++++++++++
;
; Structures and Equates for the Event Manager
;
;+++++++++++++++++++++++++++++++++++++++++++++++++++++++

;
; +++++ Event Structure +++++
;
what	equ 0
message	equ what+2
when	equ message+4
where	equ when+4
modif	equ where+4
evtsize	equ modif+2

TaskData	equ modif+2	when using TaskMaster
TaskMask	equ TaskData+4	events to be handled by TaskMaster

;
;
; --- Event codes ----------------------------------------
;
inNull	equ $00	No further action required.
inButtDwn	equ $01	Button down event.
inButtUp	equ $02	Button up event.
inKey	equ $03	Key event.
;              $04		(Not defined.)
inAutoKey	equ $05	Auto-Key event.
inUpdate	equ $06	Update event.
;              $07		(Not defined.)
inActWind	equ $08	Activate window event.
inSwitch	equ $09	Switch event.
inAccess	equ $0A	Desk Accessory event.
inDevice	equ $0B	Device driver event.
;              $0C		Application defined.
;              $0D		Application defined.
;              $0E		Application defined.
;              $0F		Application defined.
;
;
; --- Modifier key flags --------------------------------
;
K_KEYPAD	equ $2000
K_CTRL	equ $1000
K_OPTION	equ $0800
K_CAPSLOCK	equ $0400
K_SHIFT	equ $0200
K_COMMAND	equ $0100
K_BUTT0	equ $0080
K_BUTT1	equ $0040
K_CHANGE	equ $0002
K_ACTIVE	equ $0001
;
;
; --- These are values returned by FindWindow and TaskMaster,    ------
; --- and may mean different things depending on who returns it. ------
;
inDesk	equ $10	On the desktop.
inSysMenu	equ $11	In system menu bar
inSysWind	equ $12	In system window (desk accessory).
inContent	equ $13	In a content region.
inDrag	equ $14	In a drag region.
inGrow	equ $15	In a grow (size) region.
inGoAway	equ $16	In a go-away (close	box) region.
inZoom	equ $17	In a zoom (zoom box) region.
inInfo	equ $18	In the information bar.
inVerScrl	equ $19	In the vertical scroll bar.
inHorScrl	equ $1A	In the horizontal scroll bar.
inFrame	equ $1B	On a window frame, other than above.
inDrop	equ $1C	On a window drop shadow.
;
;

; *      copy  WHeader.asm
; WHEADER.ASM	               D. Oliver
;
; Structures and Equates for Cortland Window Manager.
;
;
;
; +++ Window structure and equates ++++++++++++++++++++++++++
;
;          Copyright Apple Computer, Inc.1986-88.  All Rights Reserved 
;                Written by Dan Oliver
;          *** C O N F I D E N T I A L ***
;
;
;
wnext	equ 0	Pointer to next window, 0=bottom.
wport	equ wnext+4	Window's port.
wstrucRgn	equ wport+PORTSIZE	Handle of window's entire region.
wcontRgn	equ wstrucRgn+4	Handle of window's content region.
wupdateRgn	equ wcontRgn+4	Handle of area needing to be redrawn.
wcontrol	equ wupdateRgn+4	Pointer to controls	in window.
wFrameCtrl	equ wcontrol+4	Pointer to controls	in frame.
;
wframe	equ wFrameCtrl+4	Type of window, frame flags.
wtitle	equ wframe+2	Pointer to window's title.
wrefCon	equ wtitle+4	Reserved for application.
wfull	equ wrefCon+4	Size of window, used with ZoomWindow.
wcolor	equ wfull+8	Pointer to window's color table.
y_origin	equ wcolor+4	Content's vertical offset.
x_origin	equ y_origin+2	Content's horizontal offset.
data_h	equ x_origin+2	Height of total data area.
data_w	equ data_h+2	Width of total data	area.
wmaxheight	equ data_w+2	Maximum height for grow window.
wmaxwidth	equ wmaxheight+2	Maximum width for grow window.
vscroll	equ wmaxwidth+2	Amount to scroll vertically (arrows).
hscroll	equ vscroll+2	Amount to scroll horizonally (arrows).
vpage	equ hscroll+2	Amount to page vertically (page region).
hpage	equ vpage+2	Amount to page horizontally (page rgn).
wInfoText	equ hpage+2	Value passed to Draw Info routine.
wInfoHeight	equ wInfoText+4
wdefProc	equ wInfoHeight+2	Window's definition procedure.
wInfoDraw	equ wdefProc+4	Address of routine to draw Info Bar.
updateDraw	equ wInfoDraw+4	Address of routine to draw content region.
;
wtitle_w	equ updateDraw+4	Width of title in pixels.
woldYOrg	equ wtitle_w+2	Save y origin on full window.
woldXOrg	equ woldYOrg+2	Save x origin on full window.
worgn_mask	equ woldXOrg+2
WINDSIZE	equ worgn_mask+2	Total size of a standard window structure.
;
;
;
; +++++ Window coordinate offsets +++++
;
TITLEH	EQU 13	Height of title bar.
TITLEL	EQU 2	Space on left and right of title bar pattern.
TITLET	EQU 3	Space on top and bottom of title bar pattern.
;
CLOSEL	EQU 10	Left side of window	to left side of close box.
CLOSET	EQU 2	Top of window to top of close box.
CLOSEW	EQU 22	Width of close box.
CLOSEH	EQU 11	Height of close box.
;
;
; --- Flag masks for wkind ------------------------------
;
W_SYSTEM	equ $8000	1 = system window.
;
;
; --- Window Frame Type Masks ----------------------
;
F_TITLE	equ $8000	TRUE = title bar.
F_CLOSE	equ $4000	TRUE = close box.
F_ALERT	equ $2000	TRUE = alert frame.
F_RSCRL	equ $1000	TRUE = right scroll	bar.
F_BSCRL	equ $0800	TRUE = bottom scroll bar.
F_GROW	equ $0400	TRUE = sizer box.
F_ZOOM	equ $0100	TRUE = full box.
F_MOVE	equ $0080	TRUE = allow move on title bar.
F_VIS	equ $0020	TRUE = window is visible.
F_INFO	equ $0010	TRUE = content inset from left side.
F_CTRL_TIE	equ $0008	TRUE = controls not	tied to window
F_ALLOCATE	equ $0004	TRUE = window record allocated by me.
F_ZOOMED	equ $0002	TRUE = window is currently zoomed
F_HILITED	equ $0001	TRUE = frame is highlighted.
;
;
; --- Window color table offsets -----------------------------
;
FRAME_CLR	EQU 0	Frame's outline.
TITLE_CLR	EQU FRAME_CLR+2	Title's color.
BAR_CLR	EQU TITLE_CLR+2	Title bar's initerior.
GROW_CLR	EQU BAR_CLR+2	Grow box interior.
INFOR_CLR	EQU GROW_CLR+2	Information bar interior.
COLORSIZ	EQU INFOR_CLR+2	Size of color table.
;
WindToolNum	equ 14
;
; --- Variation code, command to window	definition procedure ----------
;
wDraw	equ 0	Draw window's frame.
wHit	equ 1	Tell what region given point is in.
wCalcRgns	equ 2	Calculate wstrucRgn	and wcontRgn.
wNew	equ 3	Do any additional initialization.
wDispose	equ 4	Take any additional	disposal actions.
wGrow	equ 5	Draw window's grow image.
;
; --- Hit return flags -------------------------------------------------
;
Null	equ 0
wInDesk	equ $10	On Desktop.
wInMenuBar	equ $11	On System Menu Bar.
wInSysWindow	equ $12	On System window.
winContent	equ $13	In content region.
wInDrag	equ $14	In drag region.
wInGrow	equ $15	In grow region, active window only.
wInGoAway	equ $16	In go-away region, active window only.
wInZoom	equ $17	In zoom region, active window only.
wInInfo	equ $18	In information bar.
wInVScroll	equ $19	In right scroll bar.
wInHScroll	equ $1A	In bottom scroll bar.
wInFrame	equ $1B	In frame, but not on anything else.

;
;
;+++++++++++++++++++++++++++++++++++++++++++++++++++++
;          Drawing Equates
;
;          Copyright 1986 Apple Computer, Inc.
;                Written by Dan Oliver
;          *** C O N F I D E N T I A L ***
;
;+++++++++++++++++++++++++++++++++++++++++++++++++++++
;
;
BLACK	EQU $0000
RED	EQU $1111
GREEN	EQU $2222
BLUE	EQU $3333
TEAL	EQU $4444
COLOR5	EQU $5555
BROWN	EQU $6666
DKGRAY	EQU $7777
LTGRAY	EQU $8888
ORANGE	EQU $9999
COLOR10	EQU $aaaa
COLOR11	EQU $bbbb
YELLOW	EQU $cccc
MAGENTA	EQU $dddd
CYAN	EQU $eeee
WHITE	EQU $ffff
;
; +++ Pattern types	+++
;
P_SOLID	EQU $0000
P_DITHER	EQU $0100
P_DOTTED	EQU $0200
P_LINED	EQU $0300
;


;
; *      copy  CHeader.asm
; CHEADER.ASM	               D. Oliver
;
	TITLE 'CHEADER.ASM'
;
; Structures and Equates for Cortland Control Manager.
;
;
;+++++++++++++++++++++++++++++++++++++++++++++++++++++
;        Offsets for control structures.
;
;          Copyright 1986 Apple Computer, Inc.
;                Written by Dan Oliver
;          *** C O N F I D E N T I A L ***
;
;+++++++++++++++++++++++++++++++++++++++++++++++++++++
;
;
; +++ General control header +++
;
CtrlNext	equ 0
CtrlOwner	equ CtrlNext+4
CtrlRect	equ CtrlOwner+4
CtrlFlag	equ CtrlRect+RECTSIZE
CtrlHilite	equ CtrlFlag+1
CtrlValue	equ CtrlHilite+1
CtrlProc	equ CtrlValue+2
CtrlAction	equ CtrlProc+4
CtrlData	equ CtrlAction+4
CtrlrefCon	equ CtrlData+4
CtrlColor	equ CtrlrefCon+4
Thumb	equ CtrlColor+4
PageRegion	equ Thumb+RECTSIZE
;
;
; --- CtrlFlag bit flags --------------------
;
C_HILITE	equ $FF00	Hilited part, 255 =	inactive.
UP_FLAG	equ $0001	Up arrow.
DOWN_FLAG	equ $0002	Down arrow.
LEFT_FLAG	equ $0004	Left arrow.
RIGHT_FLAG	equ $0008	Right arrow.
DIR_SCROLL	equ $0010	0 = vertical, 1 = horizontal scroll.
CTRL_INVIS	equ $0080	1 if control is invisible.
FAMILY	equ $007F	family number for radio buttons
BOLD_BUTT	equ $0001	1 if thick outline for button

NO_BOLD_BUTT	equ $FFFE	equals (not BOLD_BUTT)
;
;
; --- Task numbers ----------------------------
;
drawCntl	equ 0	Draw the control.
calcCRect	equ drawCntl+1	Compute the drag RECT.
testCntl	equ calcCRect+1	Perform a hit test on the control.
initCntl	equ testCntl+1	Perform additional initialization.
dispCntl	equ initCntl+1	Perform additional disposal.
posCntl	equ dispCntl+1	Called when dragging complete with delta.
thumbCntl	equ posCntl+1	Setup for dragging.
dragCntl	equ thumbCntl+1	Perform dragging.
autoTrack	equ dragCntl+1	Called while dragging.
newValue	equ autoTrack+1	Called when new value is set.
setParams	equ newValue+1	Called when min and	max are set.
moveCntl	equ setParams+1	Move entire control.
recSize	equ moveCntl+1	Return size of control's record.
;
;
; --- Part codes for standard controls -----------------
;
BUTT_PART	equ 2
CHECK_PART	equ 3
UP_PART	equ 5
DOWN_PART	equ 6
UPP_PART	equ 7
DOWNP_PART	equ 8
GROW_PART	equ 10
THUMB_PART	equ 129
;
CtrlToolNum	equ 16
;
;
; --- Control icon numbers -------------------------------
;
UP_ARROW	equ 8
DOWN_ARROW	equ 10
LEFT_ARROW	equ 12
RITE_ARROW	equ 14
GROW_ICON	equ 16
;
TITLE_SPACE	equ 4	Number of pixels added to the width of
;	                   a check box or radio	button to get the
;	                   starting X position of the title.


;
; *      copy  CHeader.asm
; CHEADER.ASM	               D. Oliver
;
	TITLE 'CHEADER.ASM'
;
; Structures and Equates for Cortland Control Manager.
;
;
;+++++++++++++++++++++++++++++++++++++++++++++++
;        Offsets for control structures.
;
;          Copyright 1986 Apple Computer, Inc.
;                Written by Dan Oliver
;          *** C O N F I D E N T I A L ***
;
;+++++++++++++++++++++++++++++++++++++++++++++++
;
;
; +++ General control header +++
;
; --- CtrlFlag bit flags --------------------
;
;
; --- Task numbers ----------------------------
;
; --- Control icon numbers -------------------------------
;
;	                   a check box or radio	button to get the
;	                   starting X position of the title.

;
; *      copy  DHeader.asm
; DHeader.asm		Jean-Charles Mourey

	TITLE 'Dialog Manager Equates'

;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;
; Structure and Equates for the Cortland Dialog Manager
;
;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++


;=======================================================
;
;   * * *  P U B L I C   E Q U A T E S	* * *
;
;=======================================================

;
; Dialog Manager Errors
;
DLGERR	equ $1500	; Error Base
DlgMgrAlreadyActive	equ 1
DlgMgrNotActive	equ 2
BadItemType	equ 10	; error number is DLGERR+WhichError
NewItemFailed	equ 11
ItemNotFound	equ 12
NotModalDialog	equ 13	; Dialog is not modal

;
; Item Types
;
ButtonItem	equ 10
CheckItem	equ 11
RadioItem	equ 12
ScrollBarItem	equ 13
UserCtlItem	equ 14
StatText	equ 15
LongStatText	equ 16
EditLine	equ 17
IconItem	equ 18
PicItem	equ 19
UserItem	equ 20
UserCtlItem2	equ 21
LongStatText2	equ 22	;DAN H. (added new item)

MinItemType	equ 10
MaxItemType	equ 22	;DAN H. (to reflect	added item)

;
; Part Code numbers	for non-standard control item
;
inStatText	equ 9
inEditLine	equ 11
inUserItem	equ 12
inLongStatText	equ 13
inIconItem	equ 14
inLongStatText2	equ 15

;
; To disable an item for the dialog manager, add ItemDisable to the ItemType
;
ItemDisable	equ $8000

;
; Icon structure
;
;   - An Icon Handle is a handle to an Icon Record
;   - The definition of an Icon Record follows:
;
iconRect	equ 0	; width must be multiple of 8
iconImage	equ iconRect+RECTSIZE ; pixel image for	the icon

;
; Command Number for the Dialog Scroll Bar Action Procedure
;
getinitview	equ 1
getinittotal	equ 2
getinitvalue	equ 3
scrolllineup	equ 4
scrolllinedown	equ 5
scrollpageup	equ 6
scrollpagedown	equ 7
scrollthumb	equ 8

;
; Item Template
;
ititemID	equ 0
ititemRect	equ ititemID+2
ititemType	equ ititemRect+8
ititemDescr	equ ititemType+2
ititemValue	equ ititemDescr+4
ititemFlag	equ ititemValue+2
ititemColor	equ ititemFlag+2

;
; Modal Dialog Template
;
dtBoundsRect	equ 0
dtVisible	equ dtBoundsRect+8
dtRefCon	equ dtVisible+2
dtitemlist	equ dtRefCon+4
;
; ditemlist is a list of pointers to item templates terminated by a nil pointer
;

;
; Alert Template
;
atBoundsRect	equ 0
atalertID	equ atBoundsRect+8
atstage1	equ atalertID+2
atstage2	equ atstage1+1
atstage3	equ atstage2+1
atstage4	equ atstage3+1
atitemlist	equ atstage4+1

;
; Additional Parameter Block for a UserCtlItem2
;
DefProcParm	equ 0	; custom control defproc
TitleParm	equ 4	; control title (CtrlData)
ParamLong	equ 8	; equivalent to Param1, Param2


;=======================================================
;
;   * * *  P R I V A T E   E Q U A T E S  * * *
;
;=======================================================

;
; Dialog Record:
;
dwind	equ 0	; dialog window
dlgtype	equ dwind+WINDSIZE	; Modal, Modeless,...
edittextID	equ dlgtype+2	; editText currently being edited
defbutID	equ edittextID+2	; default button
DLGSIZE	equ defbutID+2	; size of dialog record

;
; Possible Dialog Types:
;
No_Type	equ 0
Modal_Type	equ 1
Modeless_Type	equ 2

;
; Standard Windows for Dialogs
;
DocProcID	equ 0	; standard document	window
DlgProcID	equ 1	; dialog (modal-type) window

;
; Dialog Manager Tool Number
;
DLGTOOL	equ $15	; Dialog Manager is	Tool #21

;
; Command Number for cut/copy/paste/delete commands (in dscrap.asm)
;
cutcmd	equ 0
copycmd	equ 1
pastecmd	equ 2
deletecmd	equ 3

;
; Icon IDs for alerts
;
stopIcon	equ 1
noteIcon	equ 2
cautionIcon	equ 3

;
; Icon Size in 320 and 640 mode
;
Icon320Width	equ 24
Icon640Width	equ 40
IconHeight	equ 18

;
; ItemStructure = Control Structure with RefCon = (ID, Type)
;
iitemcontrol	equ 0
iitemid	equ CtrlRefCon
iitemtype	equ iitemid+2
STDCTRLSIZE	equ CtrlColor+4	; Std Ctrl Size (without add. datas)

;
; Additional datas for StatText:
;
iitemfont	equ iitemcontrol+STDCTRLSIZE
iitemface	equ iitemfont+4
StatTextSIZE	equ iitemface+2

LongStatTextSIZE	equ StatTextSIZE

;
; Additional datas for EditLine:
;
EditLineSIZE	equ STDCTRLSIZE	; no additional datas

;
; Additional datas for ScrollBar (in addition to the standard add. datas):
;
iScrollBarDef	equ PageRegion+RECTSIZE ; scroll bar item defproc pointer
ScrollBarSIZE	equ iScrollBarDef+4

;
; Additional datas for UserItem:
;
UserItemSIZE	equ STDCTRLSIZE

;
; Additional datas for IconItem:
;
IconItemSIZE	equ STDCTRLSIZE

;
; Dialog Signature
;
DlgSig	equ $2348

;
; Zero Page (shared	with Control Manager)
;
Signature	equ 128	; contains DlgSig if Dlg Mgr active
mmgrID	equ Signature+2	; ID to use with the Memory Manager
DialogFont	equ mmgrID+2	; handle to dialog font or 0 for system
AlertSoundProc	equ DialogFont+4	; pointer to custom	sound procedure
AlertStage	equ AlertSoundProc+4 ; current alert stage
LastAlertID	equ AlertStage+2	; ID of last called	alert
ParamString0	equ LastAlertID+2	; Param strings for	^0 to ^3
ParamString1	equ ParamString0+4
ParamString2	equ ParamString1+4
ParamString3	equ ParamString2+4
PartCodeHit	equ ParamString3+4	; Part Code Hit
MemHandle	equ PartCodeHit+2
WindowPointer	equ MemHandle+4
HandStruct	equ WindowPointer+4
***EndZeroPage	equ HandStruct+4
IBeamFlag	equ HandStruct+4	;5-Mar-91 DAL: nonzero = we called IBeamCursor
EndZeroPage	equ IBeamFlag+2	;5-Mar-91 DAL


**********************************************************************
*
* Forward References
*
**********************************************************************
	ENTRY DialogBootInit
	ENTRY DialogStartup
	ENTRY DialogShutDown
	ENTRY DialogVersion
	ENTRY DialogReset
	ENTRY DialogStatus
	ENTRY SetDAFont
	ENTRY ErrorSound
	ENTRY NewModalDialog
	ENTRY NewModelessDialog
	ENTRY CloseDialog
	ENTRY NewDItem
	ENTRY RemoveItem
	ENTRY ModalDialog
	ENTRY IsDialogEvent
	ENTRY DialogSelect
	ENTRY DlgCut
	ENTRY DlgCopy
	ENTRY DlgPaste
	ENTRY DlgDelete
	ENTRY DrawDialog
	ENTRY Alert
	ENTRY StopAlert
	ENTRY NoteAlert
	ENTRY CautionAlert
	ENTRY ParamText
	ENTRY SetDAFont
	ENTRY SetItemToControl
	ENTRY GetControlDItem
	ENTRY SetIText
	ENTRY HideDItem
	ENTRY ShowDItem
	ENTRY FindDItem
	ENTRY UpdateDialog
	ENTRY SetItemType
	ENTRY GetItemBox
	ENTRY SetItemBox
	ENTRY GetFirstItem
	ENTRY GetNextItem
	ENTRY ModalDialog2
	ENTRY RESERVED
	ENTRY GetItemValue
	ENTRY SetItemValue
	ENTRY RESERVED
	ENTRY RESERVED
	ENTRY GetNewModalDialog
	ENTRY GetNewDItem
	ENTRY GetAlertStage
	ENTRY ResetAlertStage
	ENTRY DefaultFilter
	ENTRY GetDefButton
	ENTRY DisableDItem
	ENTRY EnableDItem
	ENTRY GetIText
	ENTRY SelIText
	ENTRY SetDefButton
	ENTRY StdFilterProc
	ENTRY GetItemType


	ENTRY InsertParamString
	ENTRY disposelocals
	ENTRY DlgScrap
	ENTRY dlg2handle
	ENTRY scroll_action
	ENTRY BlinkCaret
	ENTRY WindowIsDialog
	ENTRY EnableDisableItem
	ENTRY ShowHideDItem
	ENTRY quit10
	ENTRY quit8
	ENTRY FindNextEditLine
	ENTRY quit6
	ENTRY EmptyString
	ENTRY long_call
	ENTRY StdSoundProc
	ENTRY GeneralAlert
	ENTRY DialogFromTemplate
	ENTRY quit4
	ENTRY EmptyRect
	ENTRY getWORDfromZP
	ENTRY storeLONGinZP
	ENTRY quit2

	ENTRY NormalTextColor



;====================================
;        Install Dialog Manager
;====================================

	EXPORT DialogCallTable
DialogCallTable	PROC

	longa on
	longi on


	ENTRY FPT
FPT	DC.L (ENDFPT-FPT)/4
	DC.L DialogBootInit-1 1
	DC.L DialogStartup-1 2
	DC.L DialogShutDown-1 3
	DC.L DialogVersion-1 4
	DC.L DialogReset-1	5
	DC.L DialogStatus-1	6
	DC.L ErrorSound-1	7      ; should be RESERVED
	DC.L SetDAFont-1	8      ; should be RESERVED
	DC.L ErrorSound-1	9
	DC.L NewModalDialog-1 10
	DC.L NewModelessDialog-1 11
	DC.L CloseDialog-1	12
	DC.L NewDItem-1	13
	DC.L RemoveItem-1	14
	DC.L ModalDialog-1	15
	DC.L IsDialogEvent-1 16
	DC.L DialogSelect-1	17
	DC.L DlgCut-1	18
	DC.L DlgCopy-1	19
	DC.L DlgPaste-1	20
	DC.L DlgDelete-1	21
	DC.L DrawDialog-1	22
	DC.L Alert-1	23
	DC.L StopAlert-1	24
	DC.L NoteAlert-1	25
	DC.L CautionAlert-1	26
	DC.L ParamText-1	27
	DC.L SetDAFont-1	28
	DC.L SetItemToControl-1 29
	DC.L GetControlDItem-1 30
	DC.L GetIText-1	31
	DC.L SetIText-1	32
	DC.L SelIText-1	33
	DC.L HideDItem-1	34
	DC.L ShowDItem-1	35
	DC.L FindDItem-1	36
	DC.L UpdateDialog-1	37
	DC.L GetItemType-1	38
	DC.L SetItemType-1	39
	DC.L GetItemBox-1	40
	DC.L SetItemBox-1	41
	DC.L GetFirstItem-1	42
	DC.L GetNextItem-1	43
	DC.L ModalDialog2-1	44
	DC.L RESERVED-1	45
	DC.L GetItemValue-1	46
	DC.L SetItemValue-1	47
	DC.L RESERVED-1	48
	DC.L RESERVED-1	49
	DC.L GetNewModalDialog-1 50
	DC.L GetNewDItem-1	51
	DC.L GetAlertStage-1 52
	DC.L ResetAlertStage-1 53
	DC.L DefaultFilter-1 54
	DC.L GetDefButton-1	55
	DC.L SetDefButton-1	56
	DC.L DisableDItem-1	57
	DC.L EnableDItem-1	58
ENDFPT

	ENDP

;
;            copy  DlgInit.asm
; DlgInit.asm		Jean-Charles Mourey

	TITLE 'Dialog Manager Initialization Routines'


;______________________________________________________________________________
;
;        DialogBootInit
;
;       input: none
;
;      output: none
;______________________________________________________________________________

	ENTRY DialogBootInit
DialogBootInit	PROC

	lda #0
	clc
	rtl
	ENDP


;______________________________________________________________________________
;
;        DialogStartup
;
;       input: ProgramID:WORD - ID to use with the Memory Manager
;
;      output: none
;
; Change History
;
; 4 Mar 88	Steven Glass
;
; Modified code to use the WAP entry for this tool.  First, we check the
; WAP to see if we are already active.  If we are already active, then we
; return a new error code.  If we are not active, we get the control
; manager's direct page and save it in our WAP.
;
; 19 May 89	Steven Glass
;
; Changed it again so that we don't check to see if we were already active.
; The march 4 check that is in ROM, doesn't work.  Anyway, we found that 
; applications were dieing if an error was returned anyway.
;
;______________________________________________________________________________

	ENTRY DialogStartup

DialogStartup	PROC Export

	tlink 2

ProgramID	equ input

;
; Save ProgramID on	stack
;
	pei <ProgramID



NotYetActive
;
; Get Dialog Manager Zero Page
;
	pha
	_GetCtlDPage
	pld

;
; Set Dialog Mgr's WAP
;
	PushWord #0
	PushWord #DlgTool
	PushWord #0
	phd
	_SetWAP

;-----------------------------------------------------------
;
; Now, using our part of the zero page, lets 
; init our stuff.
;
	pla	; save memory manager ID to use
	sta <mmgrID

	lda #DlgSig	; Set signature
	sta <Signature

	zero #EndZeroPage-DialogFont,<DialogFont ; clear all other parms

	pha	; long space for result
	pha
	pea 0	; get size of memory 
	pushword #98
	pei mmgrID
;
; was:
;	pushword #0	; no restrictions
	pea $4000	; allocate as fixed (non-moveable)
		; cause we dereference it right away...
	pha
	pha
	_NewHandle

	pla
	sta <MemHandle
	pla
	sta <MemHandle+2

	lda [<MemHandle]
	sta <WindowPointer
	ldy #2
	lda [<MemHandle],y
	sta <WindowPointer+2


	lda <WindowPointer
	clc
	adc #78
	sta <HandStruct
	lda <WindowPointer+2
	adc #0
	sta <HandStruct+2

	lda #0000

	ldx #0	; accumulator is already 0
	jmp quit2

	ENDP


;_____________________________________________________________________________
;
;        ErrorSound
;
;       input: soundProc:LONG - pointer	to a sound procedure
;
;      output: none
;______________________________________________________________________________

	ENTRY ErrorSound
ErrorSound	PROC

	ldy #AlertSoundProc
	jmp storeLONGinZP

	ENDP


;______________________________________________________________________________
;
;        SetDAFont
;
;       input: fontHandle:LONG - handle	of font
;
;      output: none
;______________________________________________________________________________

	ENTRY SetDAFont
SetDAFont	PROC

	ldy #DialogFont
	jmp storeLONGinZP

	ENDP

;______________________________________________________________________________
;
;        DialogVersion
;
;       input: none
;
;      output: dVersion:WORD - Dialog Manager's version number
;______________________________________________________________________________

	ENTRY DialogVersion
DialogVersion	PROC

dVersion	equ 7	; stack relative

	lda #TheDialogVersionNum
	sta dVersion,s

	lda #0
	clc
	rtl
	ENDP


;______________________________________________________________________________
;
;        DialogShutDown
;
;       input: none
;
;      output: none
;
; Change History
;
; 4 March 88	Steven Glass
;
; Modified to use the WAP instead of calling control manager.  Sets WAP to
; zero when complete.
;
;______________________________________________________________________________

	ENTRY DialogShutDown
DialogShutDown	PROC

	cmp #0
	bne YesWeAreActive

	lda #DlgErr+DlgMgrNotActive
	sec
	rtl


YesWeAreActive
	phd
	tcd

;
; Clear signature to mark the dialog manager inactive
;
	stz <Signature

	pei <MemHandle+2
	pei <MemHandle
	_DisposeHandle

	PushWord #0
	PushWord #DlgTool
	PushLong #0
	_SetWap

	pld

	lda #0
	clc
	rtl
	ENDP


;______________________________________________________________________________
;
;        DialogReset
;
;       input: none
;
;      output: none
;
; Change History
;
; 4 March 88	Steven Glass
;
; Changed to check first to see if we are active.  If active, we shut down.
; if not active, we do nothing.
;
;______________________________________________________________________________

	ENTRY DialogReset
DialogReset	PROC

;
; Check WAP.  Are we active?
;
	cmp #0
	beq DoNothing	; no

	_DialogShutdown	; yes

DoNothing	lda #0
	clc
	rtl
	ENDP


;_____________________________________________________________________________
;
;        DialogStatus
;
;       input: none
;
;      output: status:WORD - TRUE if Dialog Manager is initialized
;______________________________________________________________________________

	ENTRY DialogStatus
DialogStatus	PROC
	DefineStack
RTL1	block 3
RTL2	block 3
ActiveResult	word

	cmp #0
	bne AmActive
	EXPORT FinishActive
FinishActive
	sta ActiveResult,s
	lda #0
	clc
	rtl

AmActive	lda #True
	bra FinishActive



;	ldy #Signature
;	jmp getWORDfromZP

	ENDP
;            copy  NewDlg.asm
; NewDlg.asm		Jean-Charles Mourey

	TITLE 'New Dialog Routines'



;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;
;        NewDialog
;
;       input: DialogVariable:LONG - pointer to variable to	store the dialog in
;              dBoundsRect:LONG - size and position of dialog's content region
;              dTitle:LONG - pointer to	string for dialog's title
;              dDefProc:LONG - 0 for document, 1 for dialog, or procptr.
;              dBehind:LONG - pointer to window the dialog should be behind.
;              dFlag:WORD - bit vector describing the dialog's frame
;              dRefCon:LONG - any value	you'd like to associate with the window.
;              dFullSize:LONG - pointer	to RECT to be used as content's zoomed.
;
;      output: none
;
;    function: Creates a new dialog. DialogVariable contains 0 if error.
;
;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

	ENTRY NewDialog
NewDialog	PROC

DlgRecHdl	equ 0
DlgRecPtr	equ DlgRecHdl+4
theDialog	equ DlgRecPtr+4
Globals	equ theDialog+4
TheMemHandle	equ Globals+4
WindParmPtr	equ TheMemHandle+4
SizeLocals	equ WindParmPtr+4

	link 30,SizeLocals

dFullSize	equ input
dRefCon	equ dFullSize+4
dFlag	equ dRefCon+4
dBehind	equ dFlag+2
dDefProc	equ dBehind+4
dTitle	equ dDefProc+4
dBoundsRect	equ dTitle+4
DialogVariable	equ dBoundsRect+4

;
; Create a new window for the Dialog
;

;
; Get Memory Manager ID to use
;
	pha
	_GetCtlDPage
	pla
	sta <Globals
	stz <Globals+2

	
	ldy #MemHandle	; get handle to memory obtained at startup time
	lda [<Globals],y
	sta <TheMemHandle
	iny
	iny
	lda [<Globals],y
	sta <TheMemHandle+2

	ldy #4	; lock down the handle
	lda [<TheMemHandle],y
	ora #$8000
	sta [<TheMemHandle],y
	dey
	dey
	lda [<TheMemHandle],y ; dereference handle
	sta <WindParmPtr+2
	lda [<TheMemHandle]
	sta <WindParmPtr
	
	zero #78,[<WindParmPtr] ; zero out space reserved for window parameters

	lda #78	; store total size of window parameters	in templ_len
	sta [<WindParmPtr]
;
; Allocate space for the DialogRecord
;
	pha	; space for handle
	pha
	pushlong #DLGSIZE
	ldy #mmgrID	; Memory Manager ID
	lda [<Globals],y
	pha
	pushword #Attr_Fixed+Attr_NoCross
	pha	; no use for a Location paramter
	pha
	_NewHandle
	Check_Error NotAllocated
	pulllong <DlgRecHdl

;
; Zero Dialog Record
;
	movelong [<DlgRecHdl],0,<DlgRecPtr
	zero #DLGSIZE,[<DlgRecPtr]

;
; Store the input parameters in wind_param for NewWindow
;


;       movelong <DlgRecPtr,>wind_rec
	lda <DlgRecPtr
	ldy #wind_rec
	sta [<WindParmPtr],y
	lda <DlgRecPtr+2
	iny
	iny
	sta [<WindParmPtr],y

;       movelong [<dBoundsRect],0,>wind_pos
	lda [<dBoundsRect]
	ldy #wind_pos
	sta [<WindParmPtr],y
	ldy #2
	lda [<dBoundsRect],y
	ldy #wind_pos+2
	sta [<WindParmPtr],y


;       movelong [<dBoundsRect],4,>wind_pos+4
	ldy #4
	lda [<dBoundsRect],y
	ldy #wind_pos+4
	sta [<WindParmPtr],y
	ldy #6
	lda [<dBoundsRect],y
	ldy #wind_pos+6
	sta [<WindParmPtr],y


;       movelong <dTitle,>wind_title
	lda <dTitle
	ldy #wind_title
	sta [<WindParmPtr],y
	lda <dTitle+2
	iny
	iny
	sta [<WindParmPtr],y


;       movelong <dBehind,>wind_plane
	lda <dBehind
	ldy #wind_plane
	sta [<WindParmPtr],y
	lda <dBehind+2
	iny
	iny
	sta [<WindParmPtr],y


	lda <dFlag	; I allocated the space
	ora #F_ALLOCATE
	ldy #wind_frame
	sta [<WindParmPtr],y

;       movelong <dRefCon,>wind_ref
	lda <dRefCon
	ldy #wind_ref
	sta [<WindParmPtr],y
	lda <dRefCon+2
	iny
	iny
	sta [<WindParmPtr],y


;       movelong [<dFullSize],0,>wind_full
	lda [<dFullSize]
	ldy #wind_full
	sta [<WindParmPtr],y
	ldy #2
	lda [<dFullSize],y
	ldy #wind_full+2
	sta [<WindParmPtr],y


;       movelong [<dFullSize],4,>wind_full+4
	ldy #4
	lda [<dFullSize],y
	ldy #wind_full+4
	sta [<WindParmPtr],y
	ldy #6
	lda [<dFullSize],y
	ldy #wind_full+6
	sta [<WindParmPtr],y


;       movelong <dDefProc,>wind_def
	lda <dDefProc
	ldy #wind_def
	sta [<WindParmPtr],y
	lda <dDefProc+2
	iny
	iny
	sta [<WindParmPtr],y


;
; Call NewWindow
;
	pha	; space for window ptr
	pha
	lda <WindParmPtr+2
	pha
	lda <WindParmPtr
	pha
	_NewWindow
	Check_Error NotAllocated

	pla	; store result in local var
	sta <theDialog	; theDialog and in input parameter
	sta [<DialogVariable] ; DialogVariable
	pla
	sta <theDialog+2
	ldy #2
	sta [<DialogVariable],y

;
; Initialize extra fields in dialog record
;
	lda #0	; ID of EditLine currently being edited
	ldy #edittextID-wport
	sta [<theDialog],y

	lda #1	; default Button ID
	ldy #defbutID-wport
	sta [<theDialog],y

;
; Look if dialog font is system font or	custom font
;
	ldy #DialogFont	; if DialogFont Handle is zero, system
	lda [<Globals],y	; font, else handle	to custom font
	bne SetDialogFont
	iny
	lda [<Globals],y
	beq NoError

;
; Set the dialog font to the current dialog manager font
;
SetDialogFont		; 
	pha	; space for port pointer
	pha
	_GetPort	; port pointer is on stack

	pushlongdp <theDialog
	_SetPort

	ldy #DialogFont+2	; push font handle
	lda [<Globals],y
	pha
	dey
	dey
	lda [<Globals],y
	pha
	_SetFont

	_SetPort	; reset prev port (which is on stack)

NoError		; 
	lda #0	; no error

exit	tax	; save error message

	ldy #4	; unlock TheMemHandle
	lda [<TheMemHandle],y
	and #$7FFF
	sta [<TheMemHandle],y

	txa
	 
	unlink
	rtl

NotAllocated		;	    ; Unable to allocate space
	tax	; save error code
	pla	; pull useless result
	pla
	lda #0	; clear result (dialog pointer = 0)
	sta [<DialogVariable]
	ldy #2
	sta [<DialogVariable],y
	txa	; restore error code
	bra exit	; A contains error code

	ENDP


;______________________________________________________________________________
;
;        NewModalDialog
;
;       input: dBoundsRect:LONG - size and position of dialog's content region.
;              dVisible:WORD - TRUE if dialog is visible, FALSE if invisible.
;              dRefCon:LONG - any value	you'd like to associate with the window.
;
;      output: theDialog:LONG - pointer	to dialog port, zero if error.
;
;    function: Creates a dialog of type	modal. The memory is allocated.
;______________________________________________________________________________

	ENTRY NewModalDialog
NewModalDialog	PROC

	tlink 10

dRefCon	equ input
dVisible	equ dRefCon+4
dBoundsRect	equ dVisible+2

theDialog	equ output

;
; Call NewDialog to	create the Dialog
;

	pushzptr <theDialog	; variable to store	result in

	pushlongdp <dBoundsRect

	lda #0	; no title
	pha	; (pushlong #0)
	pha

	pha	; standard window
	pha

	dec a	; Modal Dialog is always frontmost
	pha	; visible window
	pha	; (pushlong #-1)

	pushword #F_CTRL_TIE+F_ALERT

	lda <dVisible	; set flag to visible state
	beq pushotherparms

	pla	; dialog is visible
	ora #F_VIS
	pha

pushotherparms
	pushlongdp <dRefCon
	pushlong #EmptyRect	; no Full Size for a modal dialog.
	jsl NewDialog
	bcs exit	; error!, exit

;
; Set Type of Dialog to Modal in dialog	record
;
	lda #Modal_Type	; type of dialog
	ldy #dlgtype-wport
	sta [<theDialog],y

	lda #0	; no error
exit		; 
	tunlink
	rtl

	ENTRY EmptyRect
EmptyRect	DC.W 0,0,0,0

	ENDP


;______________________________________________________________________________
;
;        NewModelessDialog
;
;       input: dBoundsRect:LONG - size and position of dialog's content region.
;              dTitle:LONG - pointer to	string for dialog's title
;              dBehind:LONG - pointer to window the dialog should be behind.
;              dFlag:WORD - bit vector describing the dialog's frame
;              dRefCon:LONG - any value	you'd like to associate with the window.
;              dFullSize:LONG - pointer	to RECT to be used as content's zoomed.
;
;      output: theDialog:LONG - pointer	to dialog port, zero if error.
;
;    function: Creates a dialog of type	modal. The memory is allocated.
;______________________________________________________________________________

	ENTRY NewModelessDialog
NewModelessDialog	PROC

	tlink 22

dFullSize	equ input
dRefCon	equ dFullSize+4
dFlag	equ dRefCon+4
dBehind	equ dFlag+2
dTitle	equ dBehind+4
dBoundsRect	equ dTitle+4

theDialog	equ output

;
; Call NewDialog to	create the Dialog
;
	pushzptr <theDialog	; variable to store	result in
	pushlongdp <dBoundsRect
	pushlongdp <dTitle
	pushlong #0	; standard window
	pushlongdp <dBehind
	pushworddp <dFlag
	pushlongdp <dRefCon
	pushlongdp <dFullSize
	jsl NewDialog
	bcs exit	; error!, exit

;
; Set Type of Dialog to Modeless in dialog record
;
	lda #Modeless_Type	; type of dialog
	ldy #dlgtype-wport
	sta [<theDialog],y

	lda #0	; no error
exit		; 
	tunlink
	rtl

	ENDP


;______________________________________________________________________________
;
;        CloseDialog
;
;       input: theDialog:LONG - pointer	to the dialog
;
;      output: none.
;
;    function: removes the dialog from the screen, deletes it from the window
;              list, and releases the memory occupied by the itemlist and the
;              dialogrecord.
;______________________________________________________________________________

	ENTRY CloseDialog
CloseDialog	PROC

*** 7-Mar-91 DAL: If we left the cursor an I-Beam, make it an arrow when the dialog closes
	pha
	tax
	lda >IBeamFlag,x
	beq @notIBeam
	lda #0
	sta >IBeamFlag,x
	_InitCursor
@notIBeam	pla	;get WAP back
*** end of 7-Mar-91 DAL

	tlink 4

;
; CloseWindow removes the window from the screen and the window list,
; and releases the memory occupied by the controllist (ie the itemlist)
; and by the dialog	record



	pushlongdp <input
	_CloseWindow

	ldx #0	; no local space
	jmp quit4

	ENDP


;______________________________________________________________________________
;
;        GetNewModalDialog
;
;       input: DialogTemplate:LONG - pointer to Dialog Template
;
;      output: theDialog:LONG - pointer	to dialog port, zero if error
;______________________________________________________________________________

	ENTRY GetNewModalDialog
GetNewModalDialog	PROC

	tlink 4

DialogTemplate	equ input

theDialog	equ output

;
; Call DialogFromTemplate to create dialog
;
	pushzptr <theDialog

	pushlongdp <DialogTemplate ; pointer to template

	ldy #dtVisible	; Visible parameter
	lda [<DialogTemplate],y
	pha

	pushlong [<DialogTemplate],dtRefCon ; RefCon parameter

	lda #dtitemlist	; offset to item list
	pha

	jsl DialogFromTemplate ; create dialog and set error status

	ldx #0
	jmp quit4

	ENDP


;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;
;        DialogFromTemplate
;
;       input: DialogVariable:LONG - pointer to variable to	stock dialog in
;              Template:LONG - pointer to template (dialog or alert)
;              Visible:WORD - visible parameter
;              RefCon:LONG - refcon parameter
;              ItemListOffset:WORD - offset to item list in	template
;           
;      output: none
;
;    function: create a modal dialog from a template (used by GetNewModalDialog
;              and Alert) and set the error status.
;
;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

	ENTRY DialogFromTemplate
DialogFromTemplate	PROC

theDialog	equ 0
ItemTemplate	equ theDialog+4
SizeLocals	equ ItemTemplate+4

	link 16,SizeLocals

ItemListOffset	equ input
RefCon	equ ItemListOffset+2
Visible	equ RefCon+4
Template	equ Visible+2
DialogVariable	equ Template+4

;
; First, creates a modal dialog
;
	pha	; space for dialog pointer
	pha

	pushlongdp <Template	; pointer to rectangle

	pushworddp <Visible	; Visible parameter

	pushlongdp <RefCon	; RefCon parameter

	_NewModalDialog

	Check_Error NotCreated

	pla	; store result in local var
	sta <theDialog	; theDialog and in input parameter
	sta [<DialogVariable] ; DialogVariable
	pla
	sta <theDialog+2
	ldy #2
	sta [<DialogVariable],y

;
; Compute pointer to first item template
;
; Bug fix: Non zero	DRefCon caused crash because drefcon was added in. 11/5/87
;         add4  <Template,<ItemListOffset,<ItemTemplate	   ;fixed DAN H.
	lda <Template
	clc
	adc <ItemListOffset
	sta <ItemTemplate
	lda <Template+2
	adc #0
	sta <ItemTemplate+2


;
; Then, creates the	list of items
;
CreateItems

;
; First check that we are not at the end of the list
;
	lda [<ItemTemplate]
	bne CreateOne
	ldy #2
	lda [<ItemTemplate],y
	beq exit	; if beq, acc is already 0 (no error)

;
; Create one item
;
CreateOne
	pushlongdp <theDialog
	ldy #2
	lda [<ItemTemplate],y
	pha
	lda [<ItemTemplate]
	pha
	_GetNewDItem

;
; Get pointer to template of next item in the list
;
	add4 <ItemTemplate,#4,<ItemTemplate
	bra CreateItems

exit
	unlink
	rtl

NotCreated		; 
	tax	; save error code
	pla	; pull useless result
	sta [<DialogVariable]
	pla
	ldy #2
	sta [<DialogVariable],y
	txa	; restore error code
	bra exit

	ENDP
;            copy  Alert.asm
; Alert.asm	            Jean-Charles Mourey

	TITLE 'Alert Procedures'

;..............................................
;
;        Alert Icon	Datas
;
;..............................................

	ENTRY AlertIconDatas
AlertIconDatas	PROC export

;   ENTRY  IconHandleStruct
;IconHandleStruct	DS.B  20	    ; Fake Handle structure to icon

	export Icon320Table
Icon320Table	DC.L StopIcon320
	DC.L NoteIcon320
	DC.L CautionIcon320

	export Icon640Table
Icon640Table	DC.L StopIcon640
	DC.L NoteIcon640
	DC.L CautionIcon640

;   ENTRY  Icon_Template
;Icon_Template  DC.W    -32768	        ; item ID
;               DC.W    5,20,23,60	        ; *** subject to change
;               DC.W    IconItem+ItemDisable
;               DC.L    IconHandleStruct        ; icon handle
;               DC.W    0
;               DC.W    0
;               DC.L    0

;
; NoteIcon 320 (each bit * 4 to get the quickdraw bitmap)
;

	if ColorIcons=0 then

	ENTRY NoteIcon320
NoteIcon320

	DC.W 0,0,18,24

	dc.b $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	dc.b $0f,$ff,$ff,$f0,$00,$00,$00,$00,$00,$00,$00,$00
	dc.b $0f,$ff,$ff,$f0,$00,$00,$00,$00,$00,$00,$00,$00
	dc.b $0f,$ff,$0f,$f0,$00,$00,$ff,$ff,$ff,$f0,$00,$00
	dc.b $0f,$ff,$0f,$f0,$00,$0f,$ff,$ff,$ff,$ff,$00,$00
	dc.b $0f,$ff,$ff,$f0,$00,$ff,$ff,$ff,$ff,$ff,$f0,$00
	dc.b $0f,$ff,$ff,$f0,$00,$ff,$00,$f0,$f0,$00,$f0,$00
	dc.b $0f,$ff,$ff,$f0,$00,$ff,$ff,$ff,$ff,$ff,$f0,$00
	dc.b $0f,$ff,$ff,$f0,$00,$ff,$0f,$0f,$00,$f0,$f0,$00
	dc.b $0f,$ff,$ff,$f0,$00,$ff,$ff,$ff,$ff,$ff,$f0,$00
	dc.b $0f,$ff,$ff,$f0,$00,$ff,$00,$f0,$0f,$0f,$f0,$00
	dc.b $0f,$ff,$00,$00,$00,$ff,$ff,$ff,$ff,$ff,$f0,$00
	dc.b $0f,$ff,$ff,$00,$00,$ff,$ff,$ff,$ff,$ff,$00,$00
	dc.b $0f,$ff,$ff,$00,$0f,$ff,$ff,$ff,$ff,$f0,$00,$00
	dc.b $0f,$f0,$00,$0f,$ff,$ff,$ff,$ff,$f0,$00,$00,$00
	dc.b $0f,$ff,$ff,$00,$00,$00,$00,$00,$00,$00,$00,$00
	dc.b $0f,$ff,$ff,$00,$00,$00,$00,$00,$00,$00,$00,$00
	dc.b $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00

;
; CautionIcon 320 (each bit * 4 to get the quickdraw bitmap)
;

	ENTRY CautionIcon320
CautionIcon320

	DC.W 0,0,18,24

	DC.B $ff,$ff,$ff,$ff,$ff,$00,$00,$ff,$ff,$ff,$ff,$ff
	DC.B $ff,$ff,$ff,$ff,$f0,$0f,$f0,$0f,$ff,$ff,$ff,$ff
	DC.B $ff,$ff,$ff,$ff,$00,$ff,$ff,$00,$ff,$ff,$ff,$ff
	DC.B $ff,$ff,$ff,$ff,$00,$ff,$ff,$00,$ff,$ff,$ff,$ff
	DC.B $ff,$ff,$ff,$f0,$0f,$f0,$0f,$f0,$0f,$ff,$ff,$ff
	DC.B $ff,$ff,$ff,$00,$ff,$00,$00,$ff,$00,$ff,$ff,$ff
	DC.B $ff,$ff,$ff,$00,$ff,$00,$00,$ff,$00,$ff,$ff,$ff
	DC.B $ff,$ff,$f0,$0f,$ff,$00,$00,$ff,$f0,$0f,$ff,$ff
	DC.B $ff,$ff,$f0,$0f,$ff,$00,$00,$ff,$f0,$0f,$ff,$ff
	DC.B $ff,$ff,$00,$ff,$ff,$00,$00,$ff,$ff,$00,$ff,$ff
	DC.B $ff,$f0,$0f,$ff,$ff,$f0,$0f,$ff,$ff,$f0,$0f,$ff
	DC.B $ff,$f0,$0f,$ff,$ff,$f0,$0f,$ff,$ff,$f0,$0f,$ff
	DC.B $ff,$00,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$00,$ff
	DC.B $f0,$0f,$ff,$ff,$ff,$f0,$0f,$ff,$ff,$ff,$f0,$0f
	DC.B $f0,$0f,$ff,$ff,$ff,$00,$00,$ff,$ff,$ff,$f0,$0f
	DC.B $00,$ff,$ff,$ff,$ff,$f0,$0f,$ff,$ff,$ff,$ff,$00
	DC.B $00,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$00
	DC.B $f0,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0f

;
; StopIcon 320 (each bit * 4 to get the quickdraw bitmap)
;

	ENTRY StopIcon320
StopIcon320

	DC.W 0,0,18,24
	DC.B $ff,$ff,$ff,$00,$00,$00,$00,$00,$00,$ff,$ff,$ff
	DC.B $ff,$ff,$f0,$00,$00,$00,$00,$00,$00,$0f,$ff,$ff
	DC.B $ff,$ff,$00,$00,$00,$00,$ff,$00,$00,$00,$ff,$ff
	DC.B $ff,$f0,$00,$00,$0f,$f0,$ff,$0f,$f0,$00,$0f,$ff
	DC.B $ff,$00,$00,$ff,$0f,$f0,$ff,$0f,$f0,$00,$00,$ff
	DC.B $f0,$00,$00,$ff,$0f,$f0,$ff,$0f,$f0,$00,$00,$0f
	DC.B $f0,$00,$00,$ff,$0f,$f0,$ff,$0f,$f0,$00,$00,$0f
	DC.B $00,$00,$00,$ff,$0f,$f0,$ff,$0f,$f0,$00,$00,$00
	DC.B $00,$00,$00,$ff,$ff,$ff,$ff,$ff,$f0,$0f,$f0,$00
	DC.B $00,$00,$00,$ff,$ff,$ff,$ff,$ff,$0f,$ff,$f0,$00
	DC.B $00,$00,$00,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$00,$00
	DC.B $00,$00,$00,$ff,$ff,$ff,$ff,$ff,$ff,$f0,$00,$00
	DC.B $f0,$00,$00,$ff,$ff,$ff,$ff,$ff,$ff,$00,$00,$0f
	DC.B $ff,$00,$00,$ff,$ff,$ff,$ff,$ff,$f0,$00,$00,$ff
	DC.B $ff,$f0,$00,$0f,$ff,$ff,$ff,$ff,$00,$00,$0f,$ff
	DC.B $ff,$ff,$00,$00,$00,$00,$00,$00,$00,$00,$ff,$ff
	DC.B $ff,$ff,$f0,$00,$00,$00,$00,$00,$00,$0f,$ff,$ff
	DC.B $ff,$ff,$ff,$00,$00,$00,$00,$00,$00,$ff,$ff,$ff

;
; NoteIcon 640 (double each bit to get the quickdraw bitmap)
;

	ENTRY NoteIcon640
NoteIcon640

	DC.W 0,0,18,40
	DC.B %00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000
	DC.B %00001111,%11111111,%11111111,%11110000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000
	DC.B %00001111,%11111111,%11111111,%11110000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000
	DC.B %00001111,%11111111,%11111111,%11110000,%00000000,%00001111,%11111111,%11111111,%00000000,%00000000
	DC.B %00001111,%11111111,%00001111,%11110000,%00000000,%11111111,%11111111,%11111111,%11110000,%00000000
	DC.B %00001111,%11111111,%00001111,%11110000,%00000000,%11111111,%11111111,%11111111,%11110000,%00000000
	DC.B %00001111,%11111111,%11111111,%11110000,%00000011,%11110000,%00111100,%00111100,%00111100,%00000000
	DC.B %00001111,%11111111,%11111111,%11110000,%00000011,%11111111,%11111111,%11111111,%11111100,%00000000
	DC.B %00001111,%11111111,%11111111,%11110000,%00000011,%11110000,%11110000,%11110000,%00111100,%00000000
	DC.B %00001111,%11111111,%11111111,%11110000,%00000011,%11111111,%11111111,%11111111,%11111100,%00000000
	DC.B %00001111,%11111111,%11111111,%11110000,%00000011,%11110000,%00111100,%00111100,%00111100,%00000000
	DC.B %00001111,%11111111,%11000000,%00000000,%00000011,%11111111,%11111111,%11111111,%11111100,%00000000
	DC.B %00001111,%11111111,%11111111,%11000000,%00001111,%11111111,%11111111,%11111111,%11110000,%00000000
	DC.B %00001111,%11111111,%11111111,%11000000,%00111111,%11111111,%11111111,%11111111,%00000000,%00000000
	DC.B %00001111,%11111100,%00000000,%00000011,%11111111,%11111111,%11111111,%11110000,%00000000,%00000000
	DC.B %00001111,%11111111,%11111111,%11000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000
	DC.B %00001111,%11111111,%11111111,%11000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000
	DC.B %00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000

;
; CautionIcon 640 (double each bit to get the quickdraw bitmap)
;

	ENTRY CautionIcon640
CautionIcon640

	DC.W 0,0,18,40
	DC.B %11111111,%11111111,%11111111,%11111100,%00000000,%00000000,%00111111,%11111111,%11111111,%11111111
	DC.B %11111111,%11111111,%11111111,%11000000,%00000000,%00000000,%00000011,%11111111,%11111111,%11111111
	DC.B %11111111,%11111111,%11111111,%00000000,%00111111,%11111100,%00000000,%11111111,%11111111,%11111111
	DC.B %11111111,%11111111,%11111100,%00000000,%11111111,%11111111,%00000000,%00111111,%11111111,%11111111
	DC.B %11111111,%11111111,%11110000,%00000011,%11110000,%00001111,%11000000,%00001111,%11111111,%11111111
	DC.B %11111111,%11111111,%11000000,%00001111,%11000000,%00000011,%11110000,%00000011,%11111111,%11111111
	DC.B %11111111,%11111111,%00000000,%00111111,%11000000,%00000011,%11111100,%00000000,%11111111,%11111111
	DC.B %11111111,%11111100,%00000000,%11111111,%11000000,%00000011,%11111111,%00000000,%00111111,%11111111
	DC.B %11111111,%11110000,%00000011,%11111111,%11000000,%00000011,%11111111,%11000000,%00001111,%11111111
	DC.B %11111111,%11000000,%00001111,%11111111,%11110000,%00001111,%11111111,%11110000,%00000011,%11111111
	DC.B %11111111,%00000000,%00111111,%11111111,%11110000,%00001111,%11111111,%11111100,%00000000,%11111111
	DC.B %11111100,%00000000,%11111111,%11111111,%11111100,%00111111,%11111111,%11111111,%00000000,%00111111
	DC.B %11110000,%00000011,%11111111,%11111111,%11111111,%11111111,%11111111,%11111111,%11000000,%00001111
	DC.B %11000000,%00001111,%11111111,%11111111,%11110000,%00001111,%11111111,%11111111,%11110000,%00000011
	DC.B %00000000,%00111111,%11111111,%11111111,%11110000,%00001111,%11111111,%11111111,%11111100,%00000000
	DC.B %00000000,%11111111,%11111111,%11111111,%11111111,%11111111,%11111111,%11111111,%11111111,%00000000
	DC.B %00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000
	DC.B %11000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000000,%00000011

;
; StopIcon 640 (double each bit to get the Quickdraw bitmap)
;

	ENTRY StopIcon640
StopIcon640

	DC.W 0,0,18,40
	DC.B %11111111,%11111111,%11111111,%00000000,%00000000,%00000000,%00000000,%11111111,%11111111,%11111111
	DC.B %11111111,%11111111,%11110000,%00000000,%00000000,%00000000,%00000000,%00001111,%11111111,%11111111
	DC.B %11111111,%11111111,%00000000,%00000000,%00000000,%11111100,%00000000,%00000000,%11111111,%11111111
	DC.B %11111111,%11110000,%00000000,%00000011,%11110000,%11111100,%00111111,%00000000,%00001111,%11111111
	DC.B %11111111,%00000000,%00001111,%11000011,%11110000,%11111100,%00111111,%00000000,%00000000,%11111111
	DC.B %11110000,%00000000,%00001111,%11000011,%11110000,%11111100,%00111111,%00000000,%00000000,%00001111
	DC.B %00000000,%00000000,%00001111,%11000011,%11110000,%11111100,%00111111,%00000000,%00000000,%00000000
	DC.B %00000000,%00000000,%00001111,%11000011,%11110000,%11111100,%00111111,%00000000,%00000000,%00000000
	DC.B %00000000,%00000000,%00001111,%11111111,%11111111,%11111111,%11111111,%00000000,%00000000,%00000000
	DC.B %00000000,%00000000,%00001111,%11111111,%11111111,%11111111,%11111111,%00000011,%11110000,%00000000
	DC.B %00000000,%00000000,%00001111,%11111111,%11111111,%11111111,%11111111,%11111111,%11110000,%00000000
	DC.B %00000000,%00000000,%00001111,%11111111,%11111111,%11111111,%11111111,%11111111,%00000000,%00000000
	DC.B %11110000,%00000000,%00001111,%11111111,%11111111,%11111111,%11111111,%11110000,%00000000,%00001111
	DC.B %11111111,%00000000,%00001111,%11111111,%11111111,%11111111,%11111111,%00000000,%00000000,%11111111
	DC.B %11111111,%11110000,%00000000,%11111111,%11111111,%11111111,%11110000,%00000000,%00001111,%11111111
	DC.B %11111111,%11111111,%00000000,%00001111,%11111111,%11111111,%00000000,%00000000,%11111111,%11111111
	DC.B %11111111,%11111111,%11110000,%00000000,%00000000,%00000000,%00000000,%00001111,%11111111,%11111111
	DC.B %11111111,%11111111,%11111111,%00000000,%00000000,%00000000,%00000000,%11111111,%11111111,%11111111

	endif


	if ColorIcons then

	entry NoteIcon640
	entry CautionIcon640
	entry StopIcon640
	entry NoteIcon320
	entry CautionIcon320
	entry StopIcon320

NoteIcon640	dc.w 0,0,18,48
	dc.b $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	dc.b $0F,$FF,$FF,$F0,$00,$00,$00,$00,$00,$00,$00,$00
	dc.b $0F,$FF,$FF,$F0,$00,$00,$00,$00,$00,$00,$00,$00
	dc.b $0F,$FF,$0F,$F0,$00,$00,$ee,$ee,$ee,$e0,$00,$00
	dc.b $0F,$FF,$0F,$F0,$00,$0e,$ee,$ee,$ee,$ee,$00,$00
	dc.b $0F,$FF,$FF,$F0,$00,$ee,$ee,$ee,$ee,$ee,$e0,$00
	dc.b $0F,$FF,$FF,$F0,$00,$ee,$00,$e0,$e0,$00,$e0,$00
	dc.b $0F,$FF,$FF,$F0,$00,$ee,$ee,$ee,$ee,$ee,$e0,$00
	dc.b $0F,$FF,$FF,$F0,$00,$ee,$0e,$0e,$00,$e0,$e0,$00
	dc.b $0F,$FF,$FF,$F0,$00,$ee,$ee,$ee,$ee,$ee,$e0,$00
	dc.b $0F,$FF,$FF,$F0,$00,$ee,$00,$e0,$0e,$0e,$e0,$00
	dc.b $0F,$FF,$00,$00,$00,$ee,$ee,$ee,$ee,$ee,$e0,$00
	dc.b $0F,$FF,$FF,$00,$00,$ee,$ee,$ee,$ee,$ee,$00,$00
	dc.b $0F,$FF,$FF,$00,$0e,$ee,$ee,$ee,$ee,$e0,$00,$00
	dc.b $0F,$F0,$00,$0e,$ee,$ee,$ee,$ee,$e0,$00,$00,$00
	dc.b $0F,$FF,$FF,$00,$00,$00,$00,$00,$00,$00,$00,$00
	dc.b $0F,$FF,$FF,$00,$00,$00,$00,$00,$00,$00,$00,$00
	dc.b $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00

CautionIcon640	dc.w 0,0,18,40
	dc.b $FF,$FF,$FF,$FC,$00,$00,$3F,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$C0,$00,$00,$03,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$00,$3E,$EC,$00,$FF,$FF,$FF
	dc.b $FF,$FF,$FC,$00,$EE,$EE,$00,$3F,$FF,$FF
	dc.b $FF,$FF,$F0,$03,$E0,$0E,$C0,$0F,$FF,$FF
	dc.b $FF,$FF,$C0,$0E,$C0,$03,$E0,$03,$FF,$FF
	dc.b $FF,$FF,$00,$3E,$C0,$03,$EC,$00,$FF,$FF
	dc.b $FF,$FC,$00,$EE,$C0,$03,$EE,$00,$3F,$FF
	dc.b $FF,$F0,$03,$EE,$C0,$03,$EE,$C0,$0F,$FF
	dc.b $FF,$C0,$0E,$EE,$E0,$0E,$EE,$E0,$03,$FF
	dc.b $FF,$00,$3E,$EE,$E0,$0E,$EE,$EC,$00,$FF
	dc.b $FC,$00,$EE,$EE,$EC,$3E,$EE,$EE,$00,$3F
	dc.b $F0,$03,$EE,$EE,$EE,$EE,$EE,$EE,$C0,$0F
	dc.b $C0,$0E,$EE,$EE,$E0,$0E,$EE,$EE,$E0,$03
	dc.b $00,$3E,$EE,$EE,$E0,$0E,$EE,$EE,$EC,$00
	dc.b $00,$EE,$EE,$EE,$EE,$EE,$EE,$EE,$EE,$00
	dc.b $00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	dc.b $C0,$00,$00,$00,$00,$00,$00,$00,$00,$03


StopIcon640	dc.w 0,0,18,48
	dc.b $FF,$FF,$FC,$00,$00,$00,$00,$00,$0F,$FF,$FF,$FF
	dc.b $FF,$FF,$C0,$44,$44,$44,$44,$44,$40,$FF,$FF,$FF
	dc.b $FF,$FC,$04,$44,$44,$40,$44,$44,$44,$0F,$FF,$FF
	dc.b $FF,$C0,$44,$44,$40,$0F,$00,$44,$44,$40,$FF,$FF
	dc.b $FC,$04,$44,$44,$0F,$0F,$0F,$04,$44,$44,$0F,$FF
	dc.b $C0,$44,$44,$40,$0F,$0F,$0F,$04,$44,$44,$40,$FF
	dc.b $C0,$44,$44,$0F,$0F,$0F,$0F,$04,$44,$44,$40,$FF
	dc.b $C0,$44,$44,$0F,$0F,$0F,$0F,$04,$04,$44,$40,$FF
	dc.b $C0,$44,$44,$0F,$0F,$0F,$0F,$00,$F0,$44,$40,$FF
	dc.b $C0,$44,$44,$0F,$FF,$FF,$FF,$F0,$F0,$44,$40,$FF
	dc.b $C0,$44,$44,$0F,$FF,$FF,$00,$0F,$F0,$44,$40,$FF
	dc.b $C0,$44,$44,$0F,$FF,$F0,$FF,$FF,$04,$44,$40,$FF
	dc.b $C0,$44,$44,$0F,$FF,$FF,$FF,$F0,$44,$44,$40,$FF
	dc.b $FC,$04,$44,$40,$FF,$FF,$FF,$04,$44,$44,$0F,$FF
	dc.b $FF,$C0,$44,$44,$0F,$FF,$F0,$44,$44,$40,$FF,$FF
	dc.b $FF,$FC,$04,$44,$44,$44,$44,$44,$44,$0F,$FF,$FF
	dc.b $FF,$FF,$C0,$44,$44,$44,$44,$44,$40,$FF,$FF,$FF
	dc.b $FF,$FF,$FC,$00,$00,$00,$00,$00,$0F,$FF,$FF,$FF

NoteIcon320	dc.w 0,0,18,24
	dc.b $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	dc.b $0F,$FF,$FF,$F0,$00,$00,$00,$00,$00,$00,$00,$00
	dc.b $0F,$FF,$FF,$F0,$00,$00,$00,$00,$00,$00,$00,$00
	dc.b $0F,$FF,$0F,$F0,$00,$00,$99,$99,$99,$90,$00,$00
	dc.b $0F,$FF,$0F,$F0,$00,$09,$99,$99,$99,$99,$00,$00
	dc.b $0F,$FF,$FF,$F0,$00,$99,$99,$99,$99,$99,$90,$00
	dc.b $0F,$FF,$FF,$F0,$00,$99,$00,$90,$90,$00,$90,$00
	dc.b $0F,$FF,$FF,$F0,$00,$99,$99,$99,$99,$99,$90,$00
	dc.b $0F,$FF,$FF,$F0,$00,$99,$09,$09,$00,$90,$90,$00
	dc.b $0F,$FF,$FF,$F0,$00,$99,$99,$99,$99,$99,$90,$00
	dc.b $0F,$FF,$FF,$F0,$00,$99,$00,$90,$09,$09,$90,$00
	dc.b $0F,$FF,$00,$00,$00,$99,$99,$99,$99,$99,$90,$00
	dc.b $0F,$FF,$FF,$00,$00,$99,$99,$99,$99,$99,$00,$00
	dc.b $0F,$FF,$FF,$00,$09,$99,$99,$99,$99,$90,$00,$00
	dc.b $0F,$F0,$00,$09,$99,$99,$99,$99,$90,$00,$00,$00
	dc.b $0F,$FF,$FF,$00,$00,$00,$00,$00,$00,$00,$00,$00
	dc.b $0F,$FF,$FF,$00,$00,$00,$00,$00,$00,$00,$00,$00
	dc.b $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00

CautionIcon320	dc.w 0,0,18,20
	dc.b $FF,$FF,$FF,$F1,$00,$00,$1F,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$10,$00,$00,$01,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$00,$19,$91,$00,$FF,$FF,$FF
	dc.b $FF,$FF,$F1,$00,$99,$99,$00,$1F,$FF,$FF
	dc.b $FF,$FF,$F0,$01,$90,$09,$10,$0F,$FF,$FF
	dc.b $FF,$FF,$10,$09,$90,$09,$90,$01,$FF,$FF
	dc.b $FF,$FF,$00,$19,$90,$09,$91,$00,$FF,$FF
	dc.b $FF,$F1,$00,$99,$90,$09,$99,$00,$1F,$FF
	dc.b $FF,$F0,$01,$99,$90,$09,$99,$10,$0F,$FF
	dc.b $FF,$10,$09,$99,$90,$09,$99,$90,$01,$FF
	dc.b $FF,$00,$19,$99,$90,$09,$99,$91,$00,$FF
	dc.b $F1,$00,$99,$99,$90,$09,$99,$99,$00,$1F
	dc.b $F0,$01,$99,$99,$99,$99,$99,$99,$10,$0F
	dc.b $10,$09,$99,$99,$90,$09,$99,$99,$90,$01
	dc.b $00,$19,$99,$99,$90,$09,$99,$99,$91,$00
	dc.b $00,$99,$99,$99,$99,$99,$99,$99,$99,$00
	dc.b $00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	dc.b $F0,$00,$00,$00,$00,$00,$00,$00,$00,$0F

StopIcon320	dc.w 0,0,18,24
	dc.b $FF,$FF,$FF,$00,$00,$00,$00,$00,$0F,$FF,$FF,$FF
	dc.b $FF,$FF,$F0,$77,$77,$77,$77,$77,$70,$FF,$FF,$FF
	dc.b $FF,$FF,$07,$77,$77,$70,$77,$77,$77,$0F,$FF,$FF
	dc.b $FF,$F0,$77,$77,$70,$0F,$00,$77,$77,$70,$FF,$FF
	dc.b $FF,$07,$77,$77,$0F,$0F,$0F,$07,$77,$77,$0F,$FF
	dc.b $F0,$77,$77,$70,$0F,$0F,$0F,$07,$77,$77,$70,$FF
	dc.b $F0,$77,$77,$0F,$0F,$0F,$0F,$07,$77,$77,$70,$FF
	dc.b $F0,$77,$77,$0F,$0F,$0F,$0F,$07,$07,$77,$70,$FF
	dc.b $F0,$77,$77,$0F,$0F,$0F,$0F,$00,$F0,$77,$70,$FF
	dc.b $F0,$77,$77,$0F,$FF,$FF,$FF,$F0,$F0,$77,$70,$FF
	dc.b $F0,$77,$77,$0F,$FF,$FF,$00,$0F,$F0,$77,$70,$FF
	dc.b $F0,$77,$77,$0F,$FF,$F0,$FF,$FF,$07,$77,$70,$FF
	dc.b $F0,$77,$77,$0F,$FF,$FF,$FF,$F0,$77,$77,$70,$FF
	dc.b $FF,$07,$77,$70,$FF,$FF,$FF,$07,$77,$77,$0F,$FF
	dc.b $FF,$F0,$77,$77,$0F,$FF,$F0,$77,$77,$70,$FF,$FF
	dc.b $FF,$FF,$07,$77,$77,$77,$77,$77,$77,$0F,$FF,$FF
	dc.b $FF,$FF,$F0,$77,$77,$77,$77,$77,$70,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$00,$00,$00,$00,$00,$0F,$FF,$FF,$FF

	endif

	ENDP

;____________________________________________________________________________
;
;       StopAlert
;
;      input: AlertTemplate:LONG - pointer to the alert template
;             filterProc:LONG - pointer	to a filter procedure
;
;     output: itemHit:WORD - ID of item	Hit
;_____________________________________________________________________________

	ENTRY StopAlert
StopAlert	PROC

	ldx #stopIcon
	bra GeneralAlert

	ENDP

;____________________________________________________________________________
;
;       NoteAlert
;
;      input: AlertTemplate:LONG - pointer to the alert template
;             filterProc:LONG - pointer	to a filter procedure
;
;     output: itemHit:WORD - ID of item	Hit
;_____________________________________________________________________________

	ENTRY NoteAlert
NoteAlert	PROC

	ldx #noteIcon
	bra GeneralAlert

	ENDP

;____________________________________________________________________________
;
;       CautionAlert
;
;      input: AlertTemplate:LONG - pointer to the alert template
;             filterProc:LONG - pointer	to a filter procedure
;
;     output: itemHit:WORD - ID of item	Hit
;_____________________________________________________________________________

	ENTRY CautionAlert
CautionAlert	PROC

	ldx #cautionIcon
	bra GeneralAlert

	ENDP

;____________________________________________________________________________
;
;       Alert
;
;      input: AlertTemplate:LONG - pointer to the alert template
;             filterProc:LONG - pointer	to a filter procedure
;
;     output: itemHit:WORD - ID of item	Hit
;_____________________________________________________________________________

	ENTRY Alert
Alert	PROC

	ldx #0

	ENDP

;____________________________________________________________________________
;
;       GeneralAlert
;
;      input: AlertTemplate:LONG - pointer to the alert template
;             filterProc:LONG - pointer	to a filter procedure
;
;             A-reg contains the WAP from dispatcher
;             X-reg contains the icon id to use.
;
;     output: itemHit:WORD - ID of item	Hit
;
; This is a general alert routine called by the specific alert routines
; that are entry points to the dialog manager.  The specific routines
; load the x-reg with the icon ID that should be used and preserve
; the WAP from the dispatcher.
;
; Change History
;
; 4 March 88	STEVEN Glass
;
; Used WAP instead of calling control manager for WAP
;_____________________________________________________________________________

	ENTRY GeneralAlert
GeneralAlert	PROC

theDialog	equ 0
ItemTemplate	equ theDialog+4
PortSave	equ ItemTemplate+4
Globals	equ PortSave+4
StageVector	equ Globals+4
IconID	equ StageVector+2
IconHandleStruct	equ IconID+2
SizeLocals	equ IconHandleStruct+4


	tay	; save d-page in y

	tlink 8,SizeLocals

filterProc	equ input
AlertTemplate	equ filterProc+4

itemHit	equ output

	stx <IconID	; save Icon ID

;
; Get Dialog Manager Zero Page
;
	sty <Globals
	stz <Globals+2


	ldy #HandStruct
	lda [<Globals],y
	sta <IconHandleStruct
	iny
	iny
	lda [<Globals],y
	sta <IconHandleStruct+2

;
; Is it the same alert as the last alert
;
	ldy #atalertID
	lda [<AlertTemplate],y
	ldy #LastAlertID
	cmp [<Globals],y
	beq GetStage

;
; If not, set lastalertID to current alert, and reset alert	stage
;
	sta [<Globals],y	; a = AlertID, y = #LastAlertID

	lda #0
	ldy #AlertStage
	sta [<Globals],y

;
; Get the current stage of the alert
;
GetStage		; 
	ldy #AlertStage	; calculate offset to current stage
	lda [<Globals],y	; in the alert template
	clc
	adc #atstage1
	tay
	lda [<AlertTemplate],y
	and #$FF
	sta <StageVector

;
; Call the Sound Procedure
;
	and #%00000011	; get sound number in bits 0-1
	pha

	ldy #AlertSoundProc+1 ; look if there is a custom sound proc
	lda [<Globals],y	; (X = bits 8-23)
	dey	; Y = AlertSoundProc
	tax
	bne CallCustomSound

	lda [<Globals],y	; test now low word
	bne CallCustomSound	; (A = bits 0-15)

	clc	;24-Sep-90 DAL
	jsl StdSoundProc	; call standard sound proc
	bra CheckDrawn

CallCustomSound
	lda [<Globals],y	; X already=bits 8-23, Y=AlertSoundProc
	clc	;24-Sep-90 DAL
	jsl long_call	; and A = low byte of procedure address

;
; Look if alert box	should be drawn
;
CheckDrawn
	lda <StageVector
	and #%10000000	; boxdrawn is bit 7
	bne CreateDialog
	brl IncAlertStage

;
; Creates modal dialog for alert by calling DialogFromTemplate
;
CreateDialog

	pushzptr <theDialog	; variable to store	dialog ptr in

	pushlongdp <AlertTemplate ; pointer to template

	pushword #1	; visible

	lda #0	; refcon = 0
	pha
	pha

	lda #atitemlist	; offset to item list
	pha

	jsl DialogFromTemplate ; create dialog and set error status

	bcc AddIcon	; error!, exit

	brl exit

;
; Then add the alert icon
;
AddIcon	lda <IconID
	bne @blark
	brl SetDef	; no icon
@blark

	dec a	; compute index to icon pointer
	asl a
	asl a
	tax

;
; Assume we're in 640 mode
;
	lda >Icon640Table,x	; get icon pointer from 640 table
	sta [<IconHandleStruct] ; and store in fake handle
	lda >Icon640Table+2,x
	ldy #2
	sta [<IconHandleStruct],y

;
; See if we are in 320 or 640
;
	lda [<theDialog]	; get PortSCB
	and #$0080	; 0=320, 1=640
	bne CreateIcon

	lda >Icon320Table,x	; get icon pointer from 320 table
	sta [<IconHandleStruct] ; and store in fake handle
	lda >Icon320Table+2,x
	ldy #2
	sta [<IconHandleStruct],y

CreateIcon	tsc	; make room on the stack for icon template
	sec
	sbc #24
	tcs

	inc a	; store starting address of icon template in x
	tax

	lda #-32768	; store icon ID
	sta iconitemID+1,s
	lda #5	; store icon boundaries
	sta iconitemRect+1,s
*** added 26-Aug-91 DAL -- if 640 and dialog is at odd location, compensate
	lda [<theDialog]
	and #$0080
*** added 13-Oct-91 DAL -- A was supposed to be 20 for 320 mode
	php
	lda #20
	plp
*** end 13-Oct-91
	beq @1	;320 is no problem
	ldy #10	;offset into port of boundsRect.x1
	lda [<theDialog],y
	lsr a
	lda #20	;used to always be 20, now can be 19 instead
	bcc @1	;it's even, no problem
	dec a
*** end 26-Aug-91
*** From GeneralAlert to here is duplicated in the ROM 3 patch
@1	sta iconitemRect+1+2,s
	lda #23
	sta iconitemRect+1+4,s
	lda #60
	sta iconitemRect+1+6,s
	lda #IconItem+ItemDisable
	sta iconitemType+1,s

	lda <IconHandleStruct
	sta iconitemDescr+1,s
	lda <IconHandleStruct+2
	sta iconitemDescr+1+2,s

	lda #0	; store icon item value, flag, and ptr to color table
	sta iconitemValue+1,s
	sta iconitemFlag+1,s
	sta iconitemColor+1,s
	sta iconitemColor+1+2,s


	pushlongdp <theDialog
;        pushlong #Icon_Template
	pea 0000	; push address of icon template onto stack
	txa
	pha
	_GetNewDItem	; create icon

	tsc	; remove icon template space from stack
	clc
	adc #24
	tcs
;
; Set the default button to what is specified in the alert template
;
SetDef		; 
	lda <StageVector
	and #%01000000	; default button ID	minus 1 is bit 6
	beq CallModalDialog

;
; When dialog is created, default button is ID 1. If alert defbutID bit is
; set, must change dialog default button to ID 2 (Cancel).
;
	pushword #2
	pushlongdp <theDialog
	_SetDefButton

CallModalDialog		; 
	pha	; space for itemHit	output
	pushlongdp <filterProc
	_ModalDialog
	pla
	sta <itemHit

;
; And dispose of dialog
;
	pushlongdp <theDialog
	_CloseDialog

;
; Increment Alert Stage if not already maximum (3)
;
IncAlertStage
	ldy #AlertStage
	lda [<Globals],y
	cmp #3
	bge noerror
	inc a
	sta [<Globals],y

noerror	lda #0

exit
	tunlink
	rtl

	ENDP


;_____________________________________________________________________________
;
;        GetAlertStage
;
;       input: none
;
;      output: CurAlertStage:WORD - current stage of alert
;_______________________________________________________________________________

	ENTRY GetAlertStage
GetAlertStage	PROC

	ldy #AlertStage
	jmp getWORDfromZP

	ENDP


;_____________________________________________________________________________
;
;        ResetAlertStage
;
;       input: none
;
;      output: none
;
; Change History
;
; 4 March 88	Steven Glass
;
; Changed to use the WAP instead of calling the Control manager for the 
; direct page value.
;______________________________________________________________________________

	ENTRY ResetAlertStage
ResetAlertStage	PROC

;
; Save original zero page
;
	phd
	tcd

	stz <AlertStage

;
; Restore original zero page
;
	pld

	lda #0
	clc
	rtl
	ENDP



;            copy  NewItem.asm
; NewItem.asm		Jean-Charles Mourey

	TITLE 'New Item Procedures'

;.......................................
;
;        DefProc Table
;.......................................

	ENTRY DefProcTable
DefProcTable	PROC
	DC.L $00000000
	DC.L $02000000
	DC.L $04000000
	DC.L $06000000
	DC.L $00000000	; User Control Item, not used here
	IMPORT StatTextDefProc
	IMPORT LongStatTextDefProc
	IMPORT EditLineDefProc
	IMPORT IconItemDefProc
	IMPORT PicItemDefProc
	IMPORT UserItemDefProc
	DC.L StatTextDefProc
	DC.L LongStatTextDefProc
	DC.L EditLineDefProc
	DC.L IconItemDefProc
	DC.L PicItemDefProc
	DC.L UserItemDefProc
	DC.L $00000000	; User Control Item	2, not used here
	DC.L LongStatTextDefProc ; DAN H. (added for LongStatText2)
	ENDP

;______________________________________________________________________________
;
;        NewDItem
;
;       input: theDialog:LONG - pointer	to dialog this item	belongs to.
;              ItemID:WORD - item identifier for all item -related dlg mgr calls
;  rect/point  ItemRect:LONG - display rectangle (or upper-left point twice)
;              ItemType:WORD - Button, Check, UserCtl, EditText, Pic, UserItem.
;              ItemDescr:LONG - stringptr, procptr, iconhandle or pichandle.
;              ItemValue:WORD - init value, textlen, maxlen, or 0 or ...
;   optional   ItemFlag:WORD - includes	visible/invisible flag (0 for default)
;   optional   ItemColor:LONG - pointer	to item's color table (0 for default)
;
;      output: none.
;
;    function: Adds	a new item to the dialog's item list and draws it if it's
;              visible.
; Really What Happens: Creates a Control (see _NewControl) from the parameters
;              passed, the actual drawing is done later by routines such as
;              _ModalDialog. (DAN H.)
;
;   ItemType	           ItemDescr                  ItemValue
; ----------------------------------------------------------------------------
;   Button, Check, RadioItem   title string               init value
;   StatText	           static string              0
;   LongStatText	           text pointer               text length
;   EditLine	           default string             max string length
;   ScrollBarItem	           scrollbar itemdef proc     0	or default value
;   IconItem	           iconhandle                 0
;   PicItem	           pichandle                  0
;   UserCtlItem	           control definition proc    init value
;   UserItem	           item definition proc       any value you want
;   UserCtlItem2	           control additional parms   init value
; ----------------------------------------------------------------------------
;
; IconHandle: handle to an icon.
;
; ScrollBar ItemDef	Proc:
;
;              inputs: command (getinitview, getinittotal, getinitvalue, action)
;	   ScrollBarID
;
;              output: result (view, total, value or none).
;______________________________________________________________________________

	ENTRY NewDItem
NewDItem	PROC

ItemControl	equ 0
ItemPtr	equ ItemControl+4
ItemTypeNum	equ ItemPtr+4
defproc	equ ItemTypeNum+2
PortSave	equ defproc+4
ScrollBarDef	equ PortSave+4
LongParam	equ ScrollBarDef+4
Title	equ LongParam+4
SizeLocals	equ Title+4

	tlink 24,SizeLocals

ItemColor	equ input
ItemFlag	equ ItemColor+4
ItemValue	equ ItemFlag+2
ItemDescr	equ ItemValue+2
ItemType	equ ItemDescr+4
ItemRect	equ ItemType+2
ItemID	equ ItemRect+4
theDialog	equ ItemID+2

;
; Clear LongParam (Param1/Param2 for NewControl)
;
	stz <LongParam
	stz <LongParam+2

;
; Set Current port = our dialog
;
	pha	; space for port pointer
	pha
	_GetPort
	pulllong <PortSave

	pushlongdp <theDialog
	_SetPort

	lda #0	; set origin to 0,0
	pha
	pha
	_SetOrigin

;
; Check ItemType
;
	lda <ItemType
	and #$7FFF	; get rid of ItemDisable bit
	sta <ItemTypeNum

	cmp #ButtonItem
	bge TestSup
	brl badtype

TestSup		; 
	cmp #MaxItemType+1
	blt TestUserCtl
	brl badtype

;
; User Control Item	is a little bit special
;
TestUserCtl		; 
	cmp #UserCtlItem
	bne isUserCtl2
	movelong <ItemDescr,<defproc
	movelong #EmptyString,<ItemDescr
	bra CallNewControl

;
; User Control Item	2 is even more special
;
isUserCtl2		; 
	cmp #UserCtlItem2
	bne isScrollBar
	movelong [<ItemDescr],DefProcParm,<defproc
	movelong [<ItemDescr],ParamLong,<LongParam
	movelong [<ItemDescr],TitleParm,<Title
	movelong <Title,<ItemDescr
	bra CallNewControl

;
; Scroll Bar item is very special
;
isScrollBar		; 
	cmp #ScrollBarItem
	bne isButton
	movelong <ItemDescr,<ScrollBarDef
	movelong #EmptyString,<ItemDescr
	bra isOther

;
; Thick outline for	default button
;
isButton		; 
	cmp #ButtonItem
	bne isOther
	ldy #defbutID-wport
	lda [<theDialog],y
	cmp <ItemID
	bne isOther
	lda <ItemFlag	; if the button is the default button
	ora #BOLD_BUTT	; create it with a thick outline
	sta <ItemFlag

isOther		; 
	lda <ItemTypeNum
	sec
	sbc #ButtonItem
	asl a
	asl a
	tax
	lda >DefProcTable,x
	sta <defproc
	lda >DefProcTable+2,x
	sta <defproc+2

CallNewControl		; 
	pha	; space for control	handle
	pha
	pushlongdp <theDialog
	pushlongdp <ItemRect
	pushlongdp <ItemDescr	; contains CtrlData	or empty string
	pushworddp <ItemFlag

	lda <ItemTypeNum
	cmp #ScrollBarItem
	beq CallScrollBarProcedure

	pushworddp <ItemValue
	pushlongdp <LongParam	; Param1, Param2
	brl pushotherparms


CallScrollBarProcedure	; 
;
; Check that ScrollBarDef is non zero before to call it
;
	lda <ScrollBarDef
	bne CheckNotNeg
	lda <ScrollBarDef+2
	beq DefaultValues

;
; Check that ScrollBarDef is not negative before to call it	(autoTrack feature)
;
CheckNotNeg		; 
	lda <ScrollBarDef+2
	bmi DefaultValues

;
; Get the init values for the Scroll Bar from the Scroll Bar defproc
;
CallScrollBarDef		; 
	pha	; space for result
	pushword #getinitvalue ; get init value
	pushlongdp <theDialog
	pushworddp <ItemID
	lda <ScrollBarDef
	ldx <ScrollBarDef+1
	jsl long_call	; starting value is	on stack

	pha	; space for result
	pushword #getinitview ; get init view
	pushlongdp <theDialog
	pushworddp <ItemID
	lda <ScrollBarDef
	ldx <ScrollBarDef+1
	jsl long_call	; view size is on stack

	pha	; space for result
	pushword #getinittotal ; get init total
	pushlongdp <theDialog
	pushworddp <ItemID
	lda <ScrollBarDef
	ldx <ScrollBarDef+1
	jsl long_call	; data size is on stack

	bra pushotherparms

;
; If ScrollBarDef is 0 or negative, put	default values in view, total and value
;
DefaultValues
	pushworddp <ItemValue
	pushword #10
	pushword #300


pushotherparms		; 
	pushlongdp <defproc	; control defproc
	pushworddp <ItemType	; Hiword RefCon = ItemType
	pushworddp <ItemID	; Loword RefCon = ItemID
	pushlongdp <ItemColor
	_NewControl
	pulllong <ItemControl

	lda #0
	ldx <ItemControl
	bne ItemOk
	ldx <ItemControl+2
	bne ItemOk

badtype		; 
	lda #DLGERR+NewItemFailed
	bra ExitNewDItem

ItemOk		; 
	ldx <ItemTypeNum
	cpx #ScrollBarItem
	bne ExitNewDItem

;
; Add a new field to the Scroll Bar Control Record (the ScrollBarDef procedure)
;
ScrollItemOk		; 
	pushlong #ScrollBarSIZE ; expand the scroll bar record
	pushlongdp <ItemControl
	_SetHandleSize
	bcs MmgrError	; error, exit

;
; Copy the Scroll Bar description parameter into this field
;
	movelong [<ItemControl],0,<ItemPtr ; get pointer to control
	lda <ScrollBarDef	; put the scroll bar defproc
	ldy #iScrollBarDef	; in the additional	field.
	sta [<ItemPtr],y
	lda <ScrollBarDef+2
	iny
	iny
	sta [<ItemPtr],y

	lda #0	; no error
	bra ExitNewDItem

MmgrError		; 
	pha	; save Mmgr error code
	pushlongdp <ItemControl
	_DisposeControl
	pla

ExitNewDItem		; 
	pha	; save error code
;
; Restore previous port
;
	pushlongdp <PortSave
	_SetPort

	pla	; restore error code

	tunlink
	rtl

	ENTRY EmptyString
EmptyString	DC.B 1
	DC.B ' '

	ENDP

;____________________________________________________________________________
;
;        SetItemToControl
;
;      input:  theControl:LONG
;              ItemID:WORD
;
;    function: Given a control, make it	a UserCtlItem
;____________________________________________________________________________

	ENTRY SetItemToControl
SetItemToControl	PROC

ControlPtr	equ 0
SizeLocals	equ ControlPtr+4

	tlink 6,SizeLocals

ItemID	equ input
TheControl	equ ItemID+2

	movelong [<theControl],0,<ControlPtr

	lda #UserCtlItem
	ldy #iitemtype
	sta [<ControlPtr],y

	lda <ItemID
	ldy #iitemid
	sta [<ControlPtr],y

	lda #0
	ldx #SizeLocals
	jmp quit6

	ENDP


;______________________________________________________________________________
;
;        RemoveItem
;
;       input: theDialog:LONG - pointer	to dialog.
;              ItemID:WORD - ID of item	to be removed.
;
;      output: none.
;
;    function: Erases the given item from the screen and removes it from the
;              dialog's item list.
;______________________________________________________________________________

	ENTRY RemoveItem
RemoveItem	PROC

PortSave	equ 0
Control	equ PortSave+4
SizeLocals	equ Control+4

	tlink 6,SizeLocals

ItemID	equ input
theDialog	equ ItemID+2

;
; Get handle to control item:
;
	pha	; space for control	handle
	pha
	pushlongdp <theDialog
	pushworddp <ItemID
	_GetControlDItem
	Check_Error notFound
	pulllong <Control

;
; Set Current port = our dialog
;
	pha	; space for port pointer
	pha
	_GetPort
	pulllong <PortSave

	pushlongdp <theDialog
	_SetPort

	lda #0
	pha
	pha
	_SetOrigin

;
; If Item to remove	is current EditLine	item, make the next	EditLine item
; the current one. If no more EditLine item, set the current one to 0.
;
	ldy #edittextID-wport
	lda [<theDialog],y
	cmp <ItemID
	bne DisposeIt

	lda #0	; clear it
	sta [<theDialog],y

	pha	; get next EditLine	item
	pushlongdp <theDialog
	pushlongdp <Control
	jsl FindNextEditLine
	plx
	cpx <ItemID	; if another one, set it the current one
	beq DisposeIt

	pushlongdp <theDialog
	phx
	pushword #0
	pushword #32767
	_SelIText

DisposeIt		; 
	pushlongdp <Control	; First hide control
	_HideControl

	pushlongdp <Control	; Dispose of control
	_DisposeControl

	pha	; save error code

	pushlongdp <PortSave
	_SetPort

	pla	; restore error code

quickexit		; 
	ldx #SizeLocals
	jmp quit6

notFound		; 
	plx
	plx
	bra quickexit
	ENDP


;______________________________________________________________________________
;
;        GetNewDItem
;
;       input: theDialog:LONG - pointer	to the dialog port
;              ItemTemplate:LONG - pointer to the item template
;
;      output: none
;______________________________________________________________________________

	ENTRY GetNewDItem
GetNewDItem	PROC

	tlink 8

ItemTemplate	equ input
theDialog	equ ItemTemplate+4

	pushlongdp <theDialog

	ldy #ititemID	; itemID
	lda [<ItemTemplate],y
	pha

	lda <ItemTemplate	; itemRect
	clc
	adc #ititemRect
	tax
	lda <ItemTemplate+2
	adc #0
	pha
	phx

	ldy #ititemType	; itemType
	lda [<ItemTemplate],y
	pha

	pushlong [<ItemTemplate],ititemDescr ; itemDescr

	ldy #ititemValue	; itemValue
	lda [<ItemTemplate],y
	pha

	iny	; itemFlag
	iny
	lda [<ItemTemplate],y
	pha

	pushlong [<ItemTemplate],ititemColor ; itemColor

	_NewDItem

	ldx #0
	jmp quit8

	ENDP
;            copy  GetItem.asm
; GetItem.asm		Jean-Charles Mourey

	TITLE 'Get and Set Item Procedures'

;_____________________________________________________________________________
;
;        GetControlDItem
;
;       input: theDialog:LONG - pointer	to the dialog port.
;              itemID:WORD - ID number uniquely identifying	the item.
;
;      output: item:LONG - controlhandle to the item.
;
;    function: given an item number in a dialog, returns the control handle
;              to this item.
;______________________________________________________________________________

	ENTRY GetControlDItem
GetControlDItem	PROC

CurItemHdl	equ 0
CurItemPtr	equ CurItemHdl+4
CurID	equ CurItemPtr+4
SizeLocals	equ CurID+2

	tlink 6,SizeLocals

ItemID	equ input
theDialog	equ ItemID+2

item	equ output


;
; Initializes item to NIL
;
	stz <item
	stz <item+2

;
; Get First Item from Control List
;
	movelong [<theDialog],wcontrol-wport,<CurItemHdl

;
; if CurItem is NIL, exit
;
NextItem		; 
	lda <CurItemHdl
	bne TestCurItem
	lda <CurItemHdl+2
	bne TestCurItem
	lda #DLGERR+ItemNotFound
	bra exit
;
; Read ID of current item, and compare it to the given ID
;
TestCurItem		; 

	movelong [<CurItemHdl],0,<CurItemPtr ; get pointer to item

	ldy #iitemid	; get item ID
	lda [<CurItemPtr],y
	cmp <ItemID	; compare it to given ID
	beq found	; found it

	movelong [<CurItemPtr],0,<CurItemHdl ; get next item handle
	bra NextItem

found		; 
	movelong <CurItemHdl,<item

	lda #0

exit		; 
	ldx #SizeLocals
	jmp quit6

	ENDP


;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;
;        GetItemWORD
;
;       input: theDialog:LONG
;              itemID:WORD
;              Y register = which field	in Control Record (offset)
;
;      output: itemResult:WORD	returns content of field (size = WORD)
;
;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

	ENTRY GetItemWORD
GetItemWORD	PROC

Control	equ 0
ControlPtr	equ Control+4
SizeLocals	equ ControlPtr+4

	tlink 6,SizeLocals

itemID	equ input
theDialog	equ itemID+2

itemResult	equ output

	phy	; save field offset

	pha	; space for control	handle
	pha
	pushlongdp <theDialog
	pushworddp <itemID
	_GetControlDItem
	bcs notFound
	pulllong <Control

	movelong [<Control],0,<ControlPtr

	ply	; restore field offset

	lda [<ControlPtr],y
	sta <itemResult

	lda #0
exit		; 
	ldx #SizeLocals
	jmp quit6

notFound		; 
	plx
	plx
	plx	; get field offset off stack, 5/16/88 HY
	bra exit

	ENDP


;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;
;        SetItemWORD
;
;       input: itemWORD:WORD	word value to set field to in Control
;              theDialog:LONG
;              itemID:WORD
;              Y register = field offset in Control record
;
;      output: none
;
;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

	ENTRY SetItemWORD
SetItemWORD	PROC

Control	equ 0
ControlPtr	equ Control+4
SizeLocals	equ ControlPtr+4

	tlink 8,SizeLocals

itemID	equ input
theDialog	equ itemID+2
itemWORD	equ theDialog+4

	phy	; save field offset

	pha	; space for control	record
	pha
	pushlongdp <theDialog
	pushworddp <itemID
	_GetControlDItem
	bcs notFound
	pulllong <Control

	movelong [<Control],0,<ControlPtr

	ply	; restore field offset

	lda <itemWORD
	sta [<ControlPtr],y

	lda #0
exit		; 
	ldx #SizeLocals
	jmp quit8

notFound		; 
	plx
	plx
	plx	; get field offset off stack, 5/16/88 HY
	bra exit

	ENDP


;_____________________________________________________________________________
;
;        GetItemType
;
;       input: theDialog:LONG
;              itemID:WORD
;
;      output: itemType:WORD - including disable bit
;______________________________________________________________________________

	ENTRY GetItemType
GetItemType	PROC

	ldy #iitemtype
	jmp GetItemWORD

	ENDP


;_____________________________________________________________________________
;
;        SetItemType
;
;       input: itemType:WORD - including disable bit
;              theDialog:LONG
;              itemID:WORD
;
;      output: none
;______________________________________________________________________________

	ENTRY SetItemType
SetItemType	PROC

	ldy #iitemtype
	jmp SetItemWORD

	ENDP


;_____________________________________________________________________________
;
;        GetItemBox
;
;       input: theDialog:LONG
;              itemID:WORD
;              itemBox:LONG - pointer to space to store the	enclos. rectangle in
;
;      output: none
;______________________________________________________________________________

	ENTRY GetItemBox
GetItemBox	PROC

Control	equ 0
ControlPtr	equ Control+4
SizeLocals	equ ControlPtr+4

	tlink 10,SizeLocals

itemBox	equ input
itemID	equ itemBox+4
theDialog	equ itemID+2

	pha	; space for control	record
	pha
	pushlongdp <theDialog
	pushworddp <itemID
	_GetControlDItem
	bcs notFound
	pulllong <Control

	movelong [<Control],0,<ControlPtr

	ldy #CtrlRect
	lda [<ControlPtr],y
	sta [<itemBox]

	ldy #CtrlRect+2
	lda [<ControlPtr],y
	ldy #2
	sta [<itemBox],y

	ldy #CtrlRect+4
	lda [<ControlPtr],y
	ldy #4
	sta [<itemBox],y

	ldy #CtrlRect+6
	lda [<ControlPtr],y
	ldy #6
	sta [<itemBox],y

	lda #0
exit		; 
	ldx #SizeLocals
	jmp quit10

notFound		; 
	plx
	plx
	bra exit

	ENDP


;_____________________________________________________________________________
;
;        SetItemBox
;
;       input: theDialog:LONG
;              itemID:WORD
;              itemBox:LONG - pointer to the enclosing rectangle
;
;      output: none
;______________________________________________________________________________

	ENTRY SetItemBox
SetItemBox	PROC

Control	equ 0
ControlPtr	equ Control+4
SizeLocals	equ ControlPtr+4

	tlink 10,SizeLocals

itemBox	equ input
itemID	equ itemBox+4
theDialog	equ itemID+2

	pha	; space for control	handle
	pha
	pushlongdp <theDialog
	pushworddp <itemID
	_GetControlDItem
	bcs notFound
	pulllong <Control

;
; Hide control from	previous location
;
	pushlongdp <Control
	_HideControl

;
; Change item rectangle to new rectangle
;
	movelong [<Control],0,<ControlPtr

	lda [<itemBox]
	ldy #CtrlRect
	sta [<ControlPtr],y

	ldy #2
	lda [<itemBox],y
	ldy #CtrlRect+2
	sta [<ControlPtr],y

	ldy #4
	lda [<itemBox],y
	ldy #CtrlRect+4
	sta [<ControlPtr],y

	ldy #6
	lda [<itemBox],y
	ldy #CtrlRect+6
	sta [<ControlPtr],y

;
; Redraws control at new location
;
	pushlongdp <Control
	_ShowControl

;
; Returns no error (never fails!)
;
	lda #0
exit		; 
	ldx #SizeLocals
	jmp quit10

notFound		; 
	plx
	plx
	bra exit

	ENDP

;_____________________________________________________________________________
;
;        GetFirstItem
;
;       input: theDialog:LONG
;
;      output: firstItem:WORD - ID of first item, zero if no item in dialog
;______________________________________________________________________________

	ENTRY GetFirstItem
GetFirstItem	PROC

Control	equ 0
ControlPtr	equ Control+4
SizeLocals	equ ControlPtr+4

	tlink 4,SizeLocals

theDialog	equ input

firstItem	equ output


	movelong [<theDialog],wcontrol-wport,<Control ; get first control

	lda <Control
	bne notempty
	lda <Control+2
	bne notempty

	stz <firstItem
	lda #DLGERR+ItemNotFound
	bra exit

notempty		; 
	movelong [<Control],0,<ControlPtr ; Get	its ID
	moveword [<ControlPtr],iitemID,<firstItem

	lda #0
exit		; 
	ldx #SizeLocals
	jmp quit4

	ENDP

;_____________________________________________________________________________
;
;        GetNextItem
;
;       input: theDialog:LONG
;              itemID:WORD - ID of current item
;
;      output: nextItem:WORD - ID of next item, zero if last item
;______________________________________________________________________________

	ENTRY GetNextItem
GetNextItem	PROC

Control	equ 0
ControlPtr	equ Control+4
SizeLocals	equ ControlPtr+4

	tlink 6,SizeLocals

itemID	equ input
theDialog	equ itemID+2

nextItem	equ output

	pha	; space for control	handle
	pha
	pushlongdp <theDialog
	pushworddp <itemID
	_GetControlDItem
	bcs notFound
	pulllong <Control

	movelong [<Control],0,<ControlPtr 	; dereference control 

	movelong [<ControlPtr],0,<Control 	; get next handle of next control

	lda <Control+1	; check if this handle is valid
	bne notLastControl	; if zero than last control in list
	sta <nextItem	; return result of zero for no more items in list
	bra exit1

notLastControl	movelong [<Control],0,<ControlPtr 	; deref the control of item we want
	
	moveword [<ControlPtr],iitemID,<nextItem ; return id of control

exit1	lda #0
exit2		; 
	ldx #SizeLocals
	jmp quit6

notFound		; 
	stz <nextItem	; no other item in list
	plx
	plx
	bra exit2

	ENDP


;_____________________________________________________________________________
;
;        GetItemFlag
;
;       input: theDialog:LONG
;              itemID:WORD
;
;      output: itemFlag:WORD - Flag of item in lo byte
;______________________________________________________________________________

;GetItemFlag START
;         using ctrlstruct
;         using dialogstruct
;
;Control        equ	   0
;ControlPtr     equ	   Control+4
;SizeLocals     equ	   ControlPtr+4
;
;         tlink  8,SizeLocals
;
;itemID         equ	   input
;theDialog      equ	   itemID+2
;
;itemFlag       equ	   output
;
;         pha		        ; space for	control handle
;         pha
;         pushlongdp <theDialog
;         pushworddp <itemID
;         _GetControlDItem
;         bcs   notFound
;         pulllong <Control
;
;         movelong [<Control],0,<ControlPtr
;       
;         ldy   #CtrlFlag
;         lda   [<ControlPtr],y
;         and   #$FF	        ; get CtrlFlag byte
;         sta   <itemFlag
;
;         lda   #0
;exit     anop
;         ldx   #SizeLocals
;         jmp   quit8
;
;notFound anop
;         plx
;         plx
;         bra   exit
;
;         END
;
;
;_____________________________________________________________________________
;
;        SetItemFlag
;
;       input: itemFlag:WORD - new flag	for item
;              theDialog:LONG
;              itemID:WORD
;
;      output: none
;______________________________________________________________________________

;SetItemFlag START
;         using ctrlstruct
;         using dialogstruct
;
;Control        equ	   0
;ControlPtr     equ	   Control+4
;SizeLocals     equ	   ControlPtr+4
;
;         tlink  10,SizeLocals
;
;itemID         equ	   input
;theDialog      equ	   itemID+2
;itemFlag       equ	   theDialog+4
;
;         pha		        ; space for	control handle
;         pha
;         pushlongdp <theDialog
;         pushworddp <itemID
;         _GetControlDItem
;         bcs   notFound
;         pulllong <Control
;
;         movelong [<Control],0,<ControlPtr
;       
;         ldy   #CtrlFlag
;         lda   [<ControlPtr],y
;         and   #$FF00	        ; preserves	CtrlHilite byte
;         ora   <itemFlag
;         sta   [<ControlPtr],y
;
;         lda   #0
;exit     anop
;         ldx   #SizeLocals
;         jmp   quit10
;
;notFound anop
;         plx
;         plx
;         bra   exit
;
;         END
;

;_____________________________________________________________________________
;
;        GetItemValue  (in ToolBox Ref. call is GetDItemValue)
;
;       input: theDialog:LONG
;              itemID:WORD
;
;      output: itemValue:WORD - Value of item
;______________________________________________________________________________

	ENTRY GetItemValue
GetItemValue	PROC

	tlink 6

itemID	equ input
theDialog	equ itemID+2

itemValue	equ output

;
; push space for GetCtlValue result
;
	pha

;
; Get Control Handle to item
;
	pha	; space for control	handle
	pha
	pushlongdp <theDialog
	pushworddp <itemID
	_GetControlDItem	; control handle is	on stack
	bcs notFound

;
; Get Control Value
;
	_GetCtlValue
	pullword <itemValue

	lda #0
exit		; 
	ldx #0
	jmp quit6

notFound		;
	plx	; get handle off stack from _GetControlDItem call 
	plx
	plx	; pull extra word on stack initially put on stack for
		; _GetCtlValue call (5/2/88 HY)
	bra exit	

	ENDP


;_____________________________________________________________________________
;
;        SetItemValue
;
;       input: itemValue:WORD - new value for item
;              theDialog:LONG
;              itemID:WORD
;
;      output: none
;______________________________________________________________________________

	ENTRY SetItemValue
SetItemValue	PROC

Control	equ 0
ControlPtr	equ Control+4
SizeLocals	equ ControlPtr+4

	tlink 8,SizeLocals

itemID	equ input
theDialog	equ itemID+2
itemValue	equ theDialog+4

	pushworddp <itemValue	; push value for SetCtlValue

	pha	; space for control	handle
	pha
	pushlongdp <theDialog
	pushworddp <itemID
	_GetControlDItem	; control handle is	on stack
	bcs notFound

	lda 1,s	; get control value	but does not
	sta <Control	; pull it from stack
	lda 3,s
	sta <Control+2

	_SetCtlValue	; redraws control (if value changed)

exit		;	        ; returns SetCtlValue error
	ldx #SizeLocals
	jmp quit8

notFound		; 
	plx
	plx
	plx	; get value for SetCtlValue off stack
	bra exit

	ENDP


;_____________________________________________________________________________
;
;        GetItemColor
;
;       input: theDialog:LONG
;              itemID:WORD
;
;      output: itemColor:LONG - pointer	to color table
;______________________________________________________________________________

;GetItemColor START
;         using ctrlstruct
;         using dialogstruct
;
;Control        equ	   0
;ControlPtr     equ	   Control+4
;SizeLocals     equ	   ControlPtr+4
;
;         tlink 6,SizeLocals
;
;itemID         equ	   input
;theDialog      equ	   itemID+2
;
;itemColor      equ	   output
;
;         pha		 ; space for control handle
;         pha
;         pushlongdp <theDialog
;         pushworddp <itemID
;         _GetControlDItem
;         bcs   notFound
;         pulllong <Control
;
;         movelong [<Control],0,<ControlPtr
;
;         movelong [<ControlPtr],CtrlColor,<itemColor
;
;         lda   #0
;exit     anop
;         ldx   #SizeLocals
;         jmp   quit6
;
;notFound anop
;         plx
;         plx
;         bra   exit
;
;         END
;

;_____________________________________________________________________________
;
;        SetItemColor
;
;       input: itemColor:LONG - pointer	to new color table
;              theDialog:LONG
;              itemID:WORD
;
;      output: none
;______________________________________________________________________________

;SetItemColor START
;         using ctrlstruct
;         using dialogstruct
;
;Control        equ	   0
;ControlPtr     equ	   Control+4
;SizeLocals     equ	   ControlPtr+4
;
;         tlink 10,SizeLocals
;
;itemID         equ	   input
;theDialog      equ	   itemID+2
;itemColor      equ	   theDialog+4
;
;         pha		 ; space for control handle
;         pha
;         pushlongdp <theDialog
;         pushworddp <itemID
;         _GetControlDItem
;         bcs   notFound
;         pulllong <Control
;
;         movelong [<Control],0,<ControlPtr
;
;         lda   <itemColor
;         ldy   #CtrlColor
;         sta   [<ControlPtr],y
;
;         lda   <itemColor+2
;         ldy   #CtrlColor+2
;         sta   [<ControlPtr],y
;
;         lda   #0
;exit     anop
;         ldx   #SizeLocals
;         jmp   quit10
;
;notFound anop
;         plx
;         plx
;         bra   exit
;
;         END


;______________________________________________________________________________
;
;        GetDefButton
;
;       input: theDialog:LONG - pointer	to the dialog port
;
;      output: DefBut:WORD - ID of default button
;______________________________________________________________________________

	ENTRY GetDefButton
GetDefButton	PROC

	tlink 4

theDialog	equ input

DefBut	equ output

	ldy #defbutID-wport
	lda [<theDialog],y
	sta <DefBut

	lda #0
	ldx #0	; no locals
	jmp quit4

	ENDP


;______________________________________________________________________________
;
;        SetDefButton
;
;       input: DefBut:WORD - ID of new default button
;              theDialog:LONG - pointer	to the dialog port
;
;      output: none
;______________________________________________________________________________

	ENTRY SetDefButton
SetDefButton	PROC

OldControl	equ 0	; old default button
Control	equ OldControl+4	; new default button
ControlPtr	equ Control+4
SizeLocals	equ ControlPtr+4

	tlink 6,SizeLocals

theDialog	equ input
DefBut	equ theDialog+4

;
; If there is a current default button,	remove the thick-outline
;

;
; Get the old default button control
;
	pha	; space for control	handle
	pha
	pushlongdp <theDialog
	ldy #defbutID-wport
	lda [<theDialog],y
	pha
	_GetControlDItem
	pulllong <OldControl

;
; Get the new default button control. If doesn't exist, exit directly
;
	pha	; space for control	handle
	pha
	pushlongdp <theDialog
	pushworddp <DefBut
	_GetControlDItem
	Check_Error notFound
	pulllong <Control

	lda <OldControl
	bne RemoveThick
	lda <OldControl+2
	beq SetNewDefault

RemoveThick		; 
	movelong [<OldControl],0,<ControlPtr
	ldy #CtrlFlag
	lda [<ControlPtr],y
	and #NO_BOLD_BUTT	; NO_BOLD_BUTT = not BOLD_BUTT
	sta [<ControlPtr],y

;
; Redraws the control
;
	pushlongdp <OldControl
	_HideControl

	pushlongdp <OldControl
	_ShowControl

;
; Set new default button and make it boldly-outlined
;
SetNewDefault		; 
	lda <DefBut
	ldy #defbutID-wport
	sta [<theDialog],y

	movelong [<Control],0,<ControlPtr
	ldy #CtrlFlag
	lda [<ControlPtr],y
	ora #BOLD_BUTT
	sta [<ControlPtr],y

;
; Redraws new default button
;
	pha	; space for title
	pha
	pushlongdp <Control
	_GetCtlTitle	; title is on the stack

	pushlongdp <Control
	_SetCtlTitle

	lda #0
exit		; 
	ldx #SizeLocals
	jmp quit6

notFound		; 
	plx
	plx
	bra exit

	ENDP


;_____________________________________________________________________________
;
;        HideDItem
;
;       input: theDialog:LONG - pointer	to the dialog port
;              itemID:WORD - ID of item	to hide
;
;      output: none
;______________________________________________________________________________

	ENTRY HideDItem
HideDItem	PROC

	ldx #0
	bra ShowHideDItem

	ENDP


;_____________________________________________________________________________
;
;        ShowDItem
;
;       input: theDialog:LONG - pointer	to the dialog port
;              itemID:WORD - ID of item	to show
;
;      output: none
;______________________________________________________________________________

	ENTRY ShowDItem
ShowDItem	PROC

	ldx #1

	ENDP


;_____________________________________________________________________________
;
;        ShowHideDItem
;
;       input: theDialog:LONG - pointer	to the dialog port
;              itemID:WORD - ID of item	to show/hide
;              X register = TRUE if show, FALSE if hide
;
;      output: none
;______________________________________________________________________________

	ENTRY ShowHideDItem
ShowHideDItem	PROC

	tlink 6

itemID	equ input
theDialog	equ itemID+2

	phx	; save show/hide flag

	pha	; space for control	handle
	pha
	pushlongdp <theDialog
	pushworddp <itemID
	_GetControlDItem
	bcs notFound

	lda 5,s	; get show/hide flag
	beq HideIt

	_ShowControl	; the Control is on	the stack
;		; return ShowControl error status
	bra quitit

HideIt		; 
	_HideControl	; the Control is on	the stack
;		; return HideControl Error Status

quitit		; 
	plx	; pull show/hide flag

exit		; 
	ldx #0	; no locals
	jmp quit6

notFound		; 
	plx	; get rid of handle from _GetControlDItem call that
	plx	; just failed
	plx	; pull show/hide flag (5/2/88 HY)
	bra exit

	ENDP


;_____________________________________________________________________________
;
;        FindDItem
;
;       input: theDialog:LONG - pointer	to the dialog port
;              Point:LONG - point in global coordinates (passed as long)
;
;      output: itemID:WORD - ID of item	located at Point, zero if none
;______________________________________________________________________________

	ENTRY FindDItem
FindDItem	PROC

Control	equ 0
ControlPtr	equ Control+4
SizeLocals	equ ControlPtr+4

	tlink 8,SizeLocals

Point	equ input
theDialog	equ Point+4

itemID	equ output

	stz <itemID

	pha	; space for location result
	pushzptr Control
	pushlongdp <Point
	pushlongdp <theDialog
	_FindControl
	pla	; if no item hit, return 0 in itemID
	beq exit

	movelong [<Control],0,ControlPtr ; else	return ID of item hit
	moveword [<ControlPtr],iitemid,<itemID

exit		; 
	lda #0
	ldx #SizeLocals
	jmp quit8

	ENDP


;_____________________________________________________________________________
;
;        DisableDItem
;
;       input: theDialog:LONG - pointer	to the dialog port
;              itemID:WORD - ID of item	to disable
;
;      output: none
;______________________________________________________________________________

	ENTRY DisableDItem
DisableDItem	PROC

	ldx #0
	bra EnableDisableItem

	ENDP


;_____________________________________________________________________________
;
;        EnableDItem
;
;       input: theDialog:LONG - pointer	to the dialog port
;              itemID:WORD - ID of item	to enable
;
;      output: none
;______________________________________________________________________________

	ENTRY EnableDItem
EnableDItem	PROC

	ldx #1

	ENDP


;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;
;        EnableDisableItem
;
;       input: theDialog:LONG - pointer	to the dialog port
;              itemID:WORD - ID of item	to enable/disable
;              X register = TRUE if enable, FALSE if disable
;
;      output: none
;
;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

	ENTRY EnableDisableItem
EnableDisableItem	PROC

Control	equ 0
ControlPtr	equ Control+4
SizeLocals	equ ControlPtr+4

	tlink 6,SizeLocals

itemID	equ input
theDialog	equ itemID+2

	phx	; save disable/enable flag

	pha	; space for control	handle
	pha
	pushlongdp <theDialog
	pushworddp <itemID
	_GetControlDItem
	bcs notFound
	pulllong <Control

	movelong [<Control],0,<ControlPtr

	ldy #iitemtype	; read item type
	lda [<ControlPtr],y

	plx	; get disable/enable flag
	beq DisableIt

	and #$7FFF	; enable it

	bra storeitback

DisableIt		; 
	ora #ItemDisable	; disable it

storeitback		; 
	sta [<ControlPtr],y

	lda #0

exit		; 
	ldx #SizeLocals
	jmp quit6

notFound		; 
	plx	; first get handle from _GetControlDItem call off stack
	plx
	plx	; get rid of disable/enable flag
	bra exit

	ENDP
;            copy  DText.asm
; DText.asm		Jean-Charles Mourey

	TITLE 'Get and Set Text procedures'

;____________________________________________________________________________
;
;        GetIText
;
;       input: theDialog:LONG - pointer	to the dialog
;              itemID:WORD - ID of item	in dialog
;              theString:LONG - pointer	to a string to put the text in
;
;      output: none
;____________________________________________________________________________

	ENTRY GetIText
GetIText	PROC

Control	equ 0
ControlPtr	equ Control+4
SourceString	equ ControlPtr+4
hLE	equ SourceString+4
ptrLE	equ hLE+4
TextHandle	equ ptrLE+4
TextPtr	equ TextHandle+4
SizeLocals	equ TextPtr+4

	tlink 10,SizeLocals

theString	equ input
itemID	equ theString+4
theDialog	equ itemID+2

	pha	; space for control
	pha
	pushlongdp <theDialog
	pushworddp <itemID
	_GetControlDItem
	Check_Error notFound
	pulllong <Control

	movelong [<Control],0,<ControlPtr

	ldy #iitemtype
	lda [<ControlPtr],y
	and #$7FFF	; get rid of ItemDisable Bit
	cmp #EditLine
	beq GetEditText
	cmp #StatText
	beq GetStatText

	lda #0	; not EditLine or StatText
	sta [<theString]	; clear theString
	lda #DLGERR+BadItemType ; return error message
	brl exit

GetStatText		; 
	movelong [<ControlPtr],CtrlData,<SourceString
	lda [<SourceString]
	beq StatTextEmpty
	and #$FF
	tay

	sep #$20	; switch to 8 bit m
	longa off
charloop1		; 
	lda [<SourceString],y
	sta [<theString],y
	dey
	bpl charloop1

StatTextEmpty		; 
	lda [<SourceString]
	sta [<theString]

	rep #$20	; back to 16 bit m
	longa on

	brl noErrExit

GetEditText		; 
	movelong [<ControlPtr],CtrlData,<hLE
	movelong [<hLE],0,<ptrLE
	movelong [<ptrLE],0,<TextHandle
	movelong [<TextHandle],0,<TextPtr

	ldy #4	; length field
	lda [<ptrLE],y

	sep #$20	; switch to 8 bit mode
	longa off

	beq EditTextEmpty

	tay
	tax	; get a copy of the	length in X
	dey	; y equals the length of the string minus the length byte

charloop2		; 
	lda [<TextPtr],y	; load accumulator with the yth character
	iny	; increment y to allow for length byte
	sta [<theString],y
	dey
	dey
	bpl charloop2

	txa	; copy length in theString

EditTextEmpty		; 
	sta [<theString]
	rep #$20	; back to 16 bit m
	longa on

noErrExit		; 
	lda #0

exit		; 
	ldx #SizeLocals
	jmp quit10

notFound		; 
	plx
	plx
	bra exit

	ENDP


;______________________________________________________________________________
;
;        SetIText
;
;       input: theDialog:LONG - dialog port pointer
;              itemID:WORD - ID of item	in dialog
;              theString:LONG - pointer	to the string
;
;      output: none
;______________________________________________________________________________

	ENTRY SetIText
SetIText	PROC

Control	equ 0
ControlPtr	equ Control+4
hLE	equ ControlPtr+4
TextPtr	equ hLE+4
SizeLocals	equ TextPtr+4

	tlink 10,SizeLocals

theString	equ input
itemID	equ theString+4
theDialog	equ itemID+2

	pha	; space for control
	pha
	pushlongdp <theDialog
	pushworddp <itemID
	_GetControlDItem
	Check_Error notFound
	pulllong <Control

	movelong [<Control],0,<ControlPtr

	ldy #iitemtype
	lda [<ControlPtr],y
	and #$7FFF	; get rid of ItemDisable Bit
	cmp #EditLine
	beq SetEditText
	cmp #StatText
	beq SetStatText

	lda #DLGERR+BadItemType ; return error message
	brl exit	; not Text Type item, exit

SetStatText		; text of stattext = title of control
	pushlongdp <theString
	pushlongdp <Control
	_SetCtlTitle

	brl exit

SetEditText		; 

;
; Get Line Edit Record Handle
;
	movelong [<ControlPtr],CtrlData,<hLE

;
; Call LESetSelect,	and redraws the item if no error
;
	add4 <theString,#1,<TextPtr ; TextPtr
	pushlongdp <TextPtr

	lda [<theString]	; Length
	and #$FF
	pha

	pushlongdp <hLE

	_LESetText	; LESetText does not redraw

	bcs exit	; exit if error

	pushlongdp <hLE	; redraws the control
	pushlongdp <Control
	_SetCtlTitle	; returns SetCtlTitle error status

exit		; 
	ldx #SizeLocals
	jmp quit10

notFound		; 
	plx
	plx
	bra exit

	ENDP

;_____________________________________________________________________________
;
;        SelIText
;
;       input: theDialog:LONG - pointer	to the dialog port
;              itemID:WORD - ID of item	in dialog
;              startSel:WORD - start of	selection
;              endSel:WORD - end of selection
;
;      output: none
;______________________________________________________________________________

	ENTRY SelIText
SelIText	PROC

oldEditLine	equ 0
Control	equ oldEditLine+4
ControlPtr	equ Control+4
hLE	equ ControlPtr+4	; Line Edit Record for selected Item
SizeLocals	equ hLE+4

	tlink 10,SizeLocals

endSel	equ input
startSel	equ endSel+2
itemID	equ startSel+2
theDialog	equ itemID+2

;
; Get handle to item
;
	pha	; space for control
	pha
	pushlongdp <theDialog
	pushworddp <itemID
	_GetControlDItem
	Check_Error notFound
	pulllong <Control

	movelong [<Control],0,<ControlPtr
	ldy #iitemtype
	lda [<ControlPtr],y
	and #$7FFF
	cmp #EditLine
	beq SelIt
	lda #DLGERR+BadItemType
	brl quickexit

;
; Set the port to our dialog
;
SelIt		; 
	pha	; space for port pointer
	pha
	_GetPort	; saved port is on stack

	pushlongdp <theDialog
	_SetPort

	lda #0
	pha
	pha
	_SetOrigin

;
; Call LESetSelect to highlight selection
;
	movelong [<Control],0,<ControlPtr
	movelong [<ControlPtr],CtrlData,<hLE ; get Line Edit Handle

	pushworddp <startSel
	pushworddp <endSel
	pushlongdp <hLE
	_LESetSelect

;
; Check if the highlighted EditLine item is the currently active or not
;
	ldy #edittextID-wport
	lda [<theDialog],y
	cmp <itemID
	bne IsNotActive
	brl exit

IsNotActive
	tax

;
; If not active, deactivate old (if there is one), and activate new
;
	pha	; space for control
	pha
	pushlongdp <theDialog
	phx
	_GetControlDItem
	bcs noOldEditLine
	pulllong <oldEditLine

DeactivateOld		; 
	movelong [<oldEditLine],0,<ControlPtr
	pushlong [<ControlPtr],CtrlData
	_LEDeactivate
	bra ActivateNew

noOldEditLine		; 
	plx	; pull useless result of GetControlDItem
	plx

ActivateNew		; 
;
; First test if window is active or not. If not active, does not activate item
;
	pha	; space for window port
	pha
	_FrontWindow

	pla	; compare front window to our dialog
	plx
	cmp <theDialog
	bne SetEditID
	cpx <theDialog+2
	bne SetEditID

	pushlongdp <hLE
	_LEActivate

SetEditID		; 
	lda <itemID	; store the ID of the new active LE item
	ldy #edittextID-wport
	sta [<theDialog],y

exit		; 

	_SetPort	; port is on stack

	lda #0

quickexit		; 
	ldx #SizeLocals
	jmp quit10

notFound		; 
	plx
	plx
	bra quickexit

	ENDP


;______________________________________________________________________________
;
;        ParamText
;
;       input: param0:LONG - pointer to	string ^0 (zero=no change)
;              param1:LONG - pointer to	string ^1 (zero=no change)
;              param2:LONG - pointer to	string ^1 (zero=no change)
;              param3:LONG - pointer to	string ^1 (zero=no change)
;
;      output: none
;
; Change History
;
; 4 March 88	STEVEN Glass
;
; Uses the incoming WAP instead of calling the control manager for the 
; value of its direct page.
;______________________________________________________________________________

	ENTRY ParamText
ParamText	PROC

Globals	equ 0
SizeLocals	equ Globals+4

	tay	; save the incoming WAP
	tlink 16,SizeLocals

paramstart	equ input

;
; Get Dialog Manager Zero Page
;
	sty <Globals
	stz <Globals+2

	ldx #12	; start with param0
	ldy #ParamString0

NextParam		; 
	lda <paramstart,x
	bne ChangeIt
	lda <paramstart+2,x
	beq XYOffsets

;
; If param is not zero, change paramstring
;
ChangeIt		; 
	lda <paramstart,x
	sta [<Globals],y
	iny
	iny
	lda <paramstart+2,x
	sta [<Globals],y
	iny
	iny
	bra XOffset

XYOffsets		; 
	iny
	iny
	iny
	iny

XOffset		; 
	dex
	dex
	dex
	dex
	bpl NextParam	; down to param3

	lda #0
	tunlink
	rtl
	ENDP
;            copy  Modal.asm
; Modal.asm		Jean-Charles Mourey

	TITLE 'Modal Dialog Procedure'

;_____________________________________________________________________________
;
;        ModalDialog2
;
;       input: filterProc:LONG - procedure to be called repeatdly by ModalDialog
;
;      output: itemHitInfo:LONG - LoWord = ID of item Hit, HiWord = PartCode Hit
;
;    function: ModalDialog2 is an extension of ModalDialog.	In addition to
;              returning the ID of the item Hit, it returns	as well the Part
;              Code	Hit.
;
; Change History
;
; 4 March 88	STEVEN Glass
;
; Uses the incoming WAP instead of calling the control manager for the 
; value of its direct page.
;______________________________________________________________________________

	ENTRY ModalDialog2
ModalDialog2	PROC

Globals	equ 0
SizeLocals	equ Globals+4


	tay	; save incoming WAP
	tlink 4,SizeLocals

filterProc	equ input

itemHitInfo	equ output

;
; Clears result
;
	stz <itemHitInfo
	stz <itemHitInfo+2

;
; Get Globals Page
;
	sty <Globals
	stz <Globals+2

;
; Clears PartCode Hit in global page
;
	lda #0
	ldy #PartCodeHit
	sta [<Globals],y

;
; Call ModalDialog
;
	pha	; space for itemHit
	pushlongdp <filterProc
	_ModalDialog
	bcs thiserror
	pla
	sta <itemHitInfo

;
; Get PartCode from	global page and store it in result
;
	ldy #PartCodeHit
	lda [<Globals],y
	sta <itemHitInfo+2

;
; exit, no error
;
	lda #0	; no error

;
; common exit
;
exit
	ldx #SizeLocals
	jmp quit4

;
; error
;
thiserror
	plx	; get rid of result
	bra exit

	ENDP


;_____________________________________________________________________________
;
;        ModalDialog
;
;       input: filterProc:LONG - procedure to be called repeatdly by ModalDialog
;
;      output: itemHit:WORD - ID of item Hit.
;
;    function: if the frontwindow is a modal dialog, ModalDialog repeatdly gets
;              and handles events in the dialog's window; after handling an
;              event involving an enabled dialog item, it returns with the item
;              ID in itemHit.
;
;    filterProc: if	 is NULL, Standard Filter Called
;                if	not NULL, filterProc called
;	  then: if bit 31 of filterProc is set,	call Standard
;	        Filter also.
;
; Change History
;
; 4 March 88	STEVEN Glass
;
; Uses the incoming WAP instead of calling the control manager for the 
; value of its direct page.  Changed order of when Globals pointer was set
; to do it while y-reg still valid.
;
; 5-Mar-91	Dave Lyons
;
; Defining bit 30 of the filter proc pointer = do I-Beam cursors.  See top of
; file.
;
;______________________________________________________________________________

	ENTRY ModalDialog
ModalDialog	PROC

Event	equ 0	;MUST BE ZERO! 17-Sep-90 DAL
Window	equ Event+EVTSIZE
Dialog	equ Window+4
Location	equ Dialog+4
Control	equ Location+2
ControlPtr	equ Control+4
PartCode	equ ControlPtr+4
Globals	equ PartCode+2
PortSave	equ Globals+4
SizeLocals	equ PortSave+4


	tay	; save incoming WAP
	tlink 4,SizeLocals

filterProc	equ input

itemHit	equ output

;
; Get pointer to Globals Variables
;
	sty <Globals
	stz <Globals+2
;
; For the moment, no item Hit
;
	stz <itemHit
	stz <PartCode

;
; Zero out the I-Beam flag (5-Mar-91 DAL)
;
	lda #0
	ldy #IBeamFlag
	sta [<Globals],y

*** InitCursor on the way in was a bad idea (7-Mar-91 DAL)
***;
***; If we're doing IBeam cursors, call InitCursor (5-Mar-91 DAL)
***;
***	bit <filterProc+2
***	bvc @noIBeam
***	_InitCursor
***@noIBeam

;
; Check that the front window is a modal dialog
;
	pha	; get dialog port
	pha
	_FrontWindow

	lda 1,s	; get dialog port without pulling it
	sta <Dialog
	lda 3,s
	sta <Dialog+2

	pushword #Modal_Type ; dialog is still on stack
	jsl WindowIsDialog
	bcc DialogOk
	lda #DLGERR+NotModalDialog
	brl quickexit

DialogOk	pha	; space for port pointer
	pha
	_GetPort
	pulllong <PortSave

	pushlongdp <Dialog	; set current port = the dialog
	_SetPort

	lda #0
	pha
	pha
	_SetOrigin

EventLoop
;
; Call the Desk Manager procedure SystemTask
; If the Desk Manager if not there, SystemTask will just return
;
	_SystemTask

;
; Blink the caret if there is an Edit Line item in the dialog
;
	pushlongdp <Dialog
	jsl BlinkCaret

;
; Get next Event:
;
GetEvent		; 
	pha	; space for boolean	result
	pushword #$0FFF	; all events other than Application events
***	pushzptr Event	; [optimized 17-Sep-90 DAL (Event must be 0)
	pea 0	;  ...
	phd	; ]
	_GetNextEvent
	pla	; if FALSE, event is null event

;
; See if there is a	user filter procedure to call
;
	lda <filterProc
	bne UserFilter
	lda <filterProc+1
	beq StdFilter

UserFilter		; 
	pha	; space for filter result
	pushlongdp <Dialog
***	pushzptr Event	;optimized into following 2 lines 17-Sep-90 DAL
	pea 0
	phd
	pushzptr itemHit
	lda <filterProc
	ldx <filterProc+1
	jsl long_call
	pla	; if TRUE, returns
	bne exit

;
; If Bit 31 of filterProc is set, call StdFilter anyway
;
	lda <filterProc+2
	and #$8000
	beq DispEvent

;
; Call standard filter procedure
;
StdFilter		; 
	pha	; space for filter result
	pushlongdp <Dialog
***	pushzptr Event	;optimized into following 2 lines 17-Sep-90 DAL
	pea 0
	phd
	pushzptr itemHit
	jsl StdFilterProc
	pla	; if TRUE, returns
	bne exit

;
; Dispatch Event
;
DispEvent
	lda <Event+what
	asl a
	tax
	lda >EventTable,x
	pha
	rts

EventTable
	dc.w GotNullEvent-1		; inNull (5-Mar-91 DAL)
***	DC.W EventLoop-1		; inNull
	DC.W MouseDownEvent-1	; inButtDwn
	DC.W EventLoop-1		; inButtUp
	DC.W KeyDownEvent-1		; inKey
	DC.W EventLoop-1
	DC.W KeyDownEvent-1		; inAutoKey
	DC.W UpdateEvent-1		; inUpdate
	DC.W EventLoop-1
	DC.W ActivateEvent-1	 ; inActWind
	DC.W EventLoop-1		; inSwitch
	DC.W EventLoop-1		; inAccess
	DC.W EventLoop-1		; inDevice
	DC.W EventLoop-1		; inApp1
	DC.W EventLoop-1		; inApp2
	DC.W EventLoop-1		; inApp3
	DC.W EventLoop-1		; inApp4


nextModalEvent
	lda <itemHit	; if itemHit <> 0, returns
	bne exit
	brl EventLoop

exit
	pushlongdp <PortSave
	_SetPort	; port is on stack

;
; Store PartCode Hit in Dialog Globals
;
	lda <PartCode
	ldy #PartCodeHit
	sta [<Globals],y

	lda #0	; no error

quickexit
	ldx #SizeLocals
	jmp quit4


;______________________________________________________________________________
;
; Null Event handler -- 5-Mar-91 DAL
;
; If bit 30 of the filter proc is on, then check what kind of item the cursor
; is over, and set it to an Arrow or an I-Beam, as appropriate.
;
;______________________________________________________________________________

noIbeams	brl NextModalEvent

GotNullEvent	bit <filterProc+2
	bvc noIBeams

; find the item the cursor is over

	pea 0
	tdc
	adc #event+where
	pha
	_GlobalToLocal

	pha	;space for FindCursorCtl
	pushlong #theControlH
	pei <event+where+2
	pei <event+where
	pha
	pha
	_FrontWindow
	_FindCursorCtl
	pla	;part code
	beq @nonLineEdit

	pha
	pha	;space for GetCtlRefCon
	pushlong >theControlH
	_GetCtlRefCon
	pla	;dItem number
	pla
	and #$7fff	;dialog item type
	cmp #$0011	;Line Edit item?
	bne @nonLineEdit

@isLineEdit	ldy #IBeamFlag
	lda [<globals],y
	bne @cursorOkay	;already an I-Beam cursor
	lda #1
	sta [<globals],y
	_IBeamCursor
	bra @cursorOkay

@nonLineEdit	ldy #IBeamFlag
	lda [<globals],y
	beq @cursorOkay	;already an arrow cursor
	lda #0
	sta [<globals],y
	_InitCursor

@cursorOkay	brl NextModalEvent

theControlH	dc.l 0


;______________________________________________________________________________
;
;        MouseDownEvent
;______________________________________________________________________________

MouseDownEvent

;
; Find window where	the mouse-down occurred and where in the window
;
	pha	; space for location
	pushzptr Window
	pushlongdp <Event+where
	_FindWindow
	pla
	and #$7FFF	; get rid of InSysWindow bit
	sta <Location

;
; If not in our dialog, beep
;
	lda <Window
	cmp <Dialog
	bne GotoBeep
	lda <Window+2
	cmp <Dialog+2
	beq TestLocation

GotoBeep	brl Beep

;
; if not in the content region, no item	hit -> exit
;
TestLocation	lda <Location
	cmp #winContent
	beq FindWhere
	brl MDnoitem

;
; Find which item has been clicked in
;
FindWhere	pha	; space for partcode
	pushzptr Control
	pushlongdp <Event+where
	pushlongdp <Dialog
	_FindControl
	pullword <PartCode	; if PartCode=0, no	item hit
	bne CheckID
	brl MDnoitem

;
; If ID is zero, does not handle item (non item controls)
;
CheckID
	movelong [<Control],0,<ControlPtr
	ldy #iitemid
	lda [<ControlPtr],y
	bne CheckEditLine
	brl MDnoitem

;
; If PartCode is inEditLine, call LEClick on the EditLine record
;
CheckEditLine	lda <PartCode
	cmp #inEditLine
	bne CheckNoTrack

	pushzptr Event
	pushlong [<ControlPtr],CtrlData ; hLE is in CtrlData field
	_LEClick

	brl EnableTest	; don't track an EditLine item

;
; If PartCode is inStatText or inUserItem, does not call TrackControl
;
CheckNoTrack	lda <PartCode
	cmp #inStatText
	beq NoTrack
	cmp #inUserItem
	beq NoTrack
	cmp #inLongStatText
	beq NoTrack
	cmp #inLongStatText2 ; DAN H. (for LongStatText2)
	beq NoTrack	; DAN H.
	cmp #inIconItem
	bne CheckScroll

NoTrack	brl EnableTest

;
; If PartCode is in	up/down arrow or page up/down or thumb,	special track
;
CheckScroll	lda <PartCode
	cmp #UP_PART
	beq ScrollTrack
	cmp #DOWN_PART
	beq ScrollTrack
	cmp #UPP_PART
	beq ScrollTrack
	cmp #DOWNP_PART
	beq ScrollTrack
	cmp #THUMB_PART
	beq ScrollTrack

;
; Call TrackControl
;
StdTrack	pha	; space for partcode
	pushlongdp <Event+where
	lda #-1	; use control action procedure
	pha
	pha
	pushlongdp <Control
	_TrackControl
	pullword <PartCode	; if PartCode=0, mouse released outside
	beq MDnoitem	; of item, so no item hit.

;
; If an item has been hit, call EnableTest to see if should	return or not.
;
	brl EnableTest

;
; Call a special action procedure for scroll bar items
;

ScrollTrack	pha	; space for partcode
	pushlongdp <Event+where
	pushlong #scroll_action
	pushlongdp <Control
	_TrackControl
	pullword <PartCode
	beq MDnoitem

	brl EnableTest

;
; Call the Sound Procedure with the sound number 1
;
Beep	pushword #1

	ldy #AlertSoundProc+1 ; look if there is a custom sound
	lda [<Globals],y	; (X = bits 8-23)
	dey	; Y = AlertSoundProc
	tax
	bne CallCustomSound

;;; Removed line 26-Jan-93 DAL
;;;	dey	; test now low byte

	lda [<Globals],y
	bne CallCustomSound

	sec	;24-Sep-90 DAL
	jsl StdSoundProc	; call standard sound proc
	bra MDexit

CallCustomSound
	lda [<Globals],y	; X already=bits 8-23, Y=AlertSoundProc
	sec	;24-Sep-90 DAL
	jsl long_call	; and A = low byte of procedure address
	bra MDexit

MDnoitem
	stz <itemHit
	stz <PartCode

MDexit
	brl NextModalEvent

;______________________________________________________________________________
;
;        KeyDownEvent
;______________________________________________________________________________

KeyDownEvent

;
; Check if there is	an active editLine item
;
	ldy #edittextID-wport
	lda [<Dialog],y
	bne editok	; if current edit item ID = 0, no item
	brl KDnoitem

editok	tax

;
; If there is one, get the control handle to it.
;
	pha	; space for control
	pha
	pushlongdp <Dialog
	phx
	_GetControlDItem
	Check_Error KDnotFound
	pulllong <Control

;
; If the typed character is a tab character, change the active EditLine item
;
CheckTab	lda <Event+message	; char in lo order byte (check doc.)
	and #$FF	;DAN H. FIX (changed from 7F)
	cmp #9	; TAB = ASCII 9
	bne CheckAppleKey

;
; Find next EditLine item in dialog
;
	pha	; space for result
	pushlongdp <Dialog
	pushlongdp <Control
	jsl FindNextEditLine
	plx

;
; Make it the new active EditLine item and select the line
;
	pushlongdp <Dialog
	phx
	pushword #0
	pushword #32767
	_SelIText

	brl KDnoitem

;
; If Apple Key is down, does not pass the character to LineEdit (except arrows)
; but report that the item has been hit
;
CheckAppleKey	lda <Event+modif
	and #$0100	; Test AppleKey modifier bit
	beq CallLineEdit
	lda <Event+message	; char in lo order byte (check doc.)
	and #$FF	;DAN H. FIX (changed from 7f)
	cmp #8	; left arrow
	beq CallLineEdit
	cmp #21	; right arrow
	beq CallLineEdit
	brl EnableTest

;
; Pass the typed character to Line Edit
;
CallLineEdit	movelong [<Control],0,<ControlPtr

	lda <Event+message	; char in lo order byte (check doc.)
	and #$FF
	pha
	pushworddp <Event+modif
	pushlong [<ControlPtr],CtrlData ; LEHandle in CtrlData
	_LEKey

;
; Item involved is an EditLine item, PartCode is inEditLine
;
	lda #inEditLine
	sta <PartCode

;
; Call EnableTest to see if editText item is enabled or not.
;
	brl EnableTest

;
; Goes here if could not find current EditLine item
;
KDnotFound	plx
	plx

KDnoitem	stz <itemHit
	stz <PartCode

KDexit	brl NextModalEvent


;______________________________________________________________________________
;
;        UpdateEvent
;
; Note: The update event may or may not be for our window.  In case we're
;       stuck attempting to handle somebody else's update events, we'll do
;       the I-beam cursor polling during Update as well as Null events.
;
;______________________________________________________________________________

UpdateEvent
;
; Redraws the dialog's content
;
	pushlongdp <Dialog
	_BeginUpdate

	pushlongdp <Dialog
	_DrawDialog

	pushlongdp <Dialog
	_EndUpdate

	stz <itemHit
	stz <PartCode

	brl GotNullEvent	;7-Mar-91 DAL
***	brl NextModalEvent


;_____________________________________________________________________________
;
;        ActivateEvent
;______________________________________________________________________________

ActivateEvent
;
; Activate the current EditLine item
;
	ldy #edittextID-wport
	lda [<Dialog],y
	beq Actexit
	tax

	pha	; space for control
	pha
	pushlongdp <Dialog
	phx
	_GetControlDItem
	bcs ActNotFound
	pulllong <Control

	movelong [<Control],0,<ControlPtr
	pushlong [<ControlPtr],CtrlData

;
; If dialog is now active, activate EditLine item, otherwise deactivate it
;
	lda <Event+modif
	and #$0001	; get active flag
	bne ActivateIt

	_LEDeactivate

	bra Actexit

ActivateIt		; 
	_LEActivate

Actexit		; 
	stz <itemHit
	stz <PartCode

	brl NextModalEvent

;
; Goes here if could not find current EditLine item
;
ActNotFound		; 
	plx
	plx
	bra Actexit


;______________________________________________________________________________
;
;        EnableTest
;
;       input: control handle to item hit is in the local "Control".
;
;      function: go	there if an item hit. Returns itemHit if item enabled.
;                Returns 0 if item disabled.
;______________________________________________________________________________

EnableTest		; 

;
; If item hit, look	if item is enabled or not
;
	movelong [<Control],0,<ControlPtr
	ldy #iitemtype
	lda [<ControlPtr],y
	and #ItemDisable	; if itemdisable, does not return
	bne ETnoitem

;
; If item enabled, returns item ID
;
	moveword [<ControlPtr],iitemid,<itemHit
	bra ETexit

ETnoitem		; 
	stz <itemHit
	stz <PartCode

ETexit		; 
	brl NextModalEvent

	ENDP


;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;
;        WindowIsDialog
;
;       input: theDialog:LONG - pointer	to the (supposedly)	dialog port
;              DialogType:WORD - type of dialog (Modal or Modeless)
;
;      output: carry set if Window is not specified kind of	dialog
;
;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

	ENTRY WindowIsDialog
WindowIsDialog	PROC

DialogHdl	equ 0
SizeLocals	equ DialogHdl+4

	link 6,SizeLocals

DialogType	equ input
theDialog	equ DialogType+2


	lday <theDialog
	jsr dlg2handle	; try to convert dialog to handle

	cmp #0	; if the handle doesnt exist, the front
	bne frontisalloc	; window cant be a dialog
	cpy #0
	bne frontisalloc
	lda #1	; make unlink set the carry
	bra exit

frontisalloc		; 
	pha	; get size of handle
	pha	; (space for result)
	pushay
	_GetHandleSize
	pullay

	cmp #DLGSIZE	; if Handle Size is	not the size
	bne notDialog	; of a dialog record, cant be a dialog
	cpy #0
	beq righthdlsize

notDialog		; 
	lda #1	; make unlink set the carry
	bra exit

righthdlsize		; 
	ldy #dlgtype-wport	; if DialogRec->dlgtype = DialogType,
	lda [<theDialog],y	; it is the correct	kind of dialog
	cmp <DialogType
	bne notDialog

	lda #0	; make unlink clear	the carry

exit		; 
	unlink
	rtl

	ENDP


;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;
;        BlinkCaret
;
;       input: theDialog:LONG - pointer	to the dialog port
;
;      output: none
;
;    function: Blink the caret if there	is an EditLine item	in theDialog
;
;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

	ENTRY BlinkCaret
BlinkCaret	PROC

Control	equ 0
ControlPtr	equ Control+4
SizeLocals	equ ControlPtr+4

	link 4,SizeLocals

theDialog	equ input

;
; Call LEIdle on the current active Edit Line Item (if there is one)
;
;
	ldy #edittextID-wport
	lda [<theDialog],y
	beq exit
	tax

	pha	; space for control
	pha
	pushlongdp <theDialog
	phx
	_GetControlDItem
	bcs notFound
	pulllong <Control

	movelong [<Control],0,<ControlPtr
	pushlong [<ControlPtr],CtrlData
	_LEIdle	; returns Line Edit	Error Status

exit		; 
	unlink
	rtl

notFound		; 
	plx
	plx
	bra exit

	ENDP


;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;
;        StdFilterProc
;
;       input: theDialog:LONG - pointer	to the dialog port
;              theEvent:LONG - pointer to the Event.
;              itemHit:LONG - pointer to itemHit.
;
;      output: result:WORD - TRUE if must return.
;
;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

	ENTRY StdFilterProc
StdFilterProc	PROC

Control	equ 0
ControlPtr	equ Control+4
SizeLocals	equ ControlPtr+4

	link 12,SizeLocals

itemHit	equ input
theEvent	equ itemHit+4
theDialog	equ theEvent+4

result	equ output

;
; Assume we won't want to bypass modaldialog
;
	stz <result

;
; Filters only KeyDown and AutoKey event
;
	ldy #what
	lda [<theEvent],y
	cmp #inKey
	beq FilterIt

	cmp #inAutoKey
	beq FilterIt
	brl exit

;
; Apple-X, Apple-C,	Apple-V handled as Cut/Copy/Paste
;
FilterIt
	ldy #modif
	lda [<theEvent],y
	and #$0100	; Test AppleKey modifier bit
	beq TestReturn

	ldy #message
	lda [<theEvent],y
	and #$FF	;DAN H. FIX get character in lo byte
	ora #'a'-'A'	; convert it to lower case

	cmp #'x'
	bne isCopy
	pushlongdp <theDialog
	_DlgCut
	brl exit

isCopy
	cmp #'c'
	bne isPaste
	pushlongdp <theDialog
	_DlgCopy
	brl exit

isPaste
	cmp #'v'
	bne TestReturn
	pushlongdp <theDialog
	_DlgPaste
	brl exit

;
; Handles a Return as mouse down in default button
;
TestReturn
	ldy #message
	lda [<theEvent],y
	and #$FF	;DAN H. FIX get character in lo byte
	cmp #13
	beq *+5
	brl exit

;
; Get a handle to the default item
;
	pha	; space for control
	pha
	pushlongdp <theDialog
	ldy #defbutID-wport
	lda [<theDialog],y
	pha
	_GetControlDItem
	Check_Error notFound
	pulllong <Control

;
; Check that default item is a button
;
	movelong [<Control],0,<ControlPtr
	ldy #iitemtype
	lda [<ControlPtr],y
	and #$7FFF	; get rid of item disable bit
	cmp #ButtonItem
	beq *+5
	brl exit	; if not button, exit

;
; Check that the default button is visible and active
;
	ldy #CtrlFlag
	lda [<ControlPtr],y
	tax
	and #CTRL_INVIS	; invisible?
	bne exit

	txa
	and #C_HILITE
	xba	; C_Hilite Flag is in high byte
	cmp #255	; inactive?
	beq exit

;
; Hilite the default button and unhilite it
;
	pushword #2
	pushlongdp <Control
	_HiliteControl

	pushword #0
	pushlongdp <Control
	_HiliteControl

;
; Returns with itemHit = default button	if not disabled (shouldn't be)
;
	movelong [<Control],0,<ControlPtr
	ldy #iitemtype
	lda [<ControlPtr],y
	and #ItemDisable	; if itemdisable, does not return TRUE
	bne exit

;
; If item enabled, returns item ID
;
	moveword [<theDialog],defbutID-wport,[<itemHit]
	lda #1	; returns directly to application
	sta <result

exit
	unlink
	rtl

notFound
	plx
	plx
	bra exit

	ENDP


;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;
;        StdSoundProc
;
;       input: SoundNum:WORD - number of the sound.
;              Carry flag set if they clicked outside window (24-Sep-90 DAL)
;
;      output: none.
;
;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

	ENTRY StdSoundProc
StdSoundProc	PROC
**
**	link 2
**
**SoundNum	equ input
**;
**; Call the BEEP routine
**;
**CallBELL
**	dec <SoundNum
**	bmi exit
**
**	_SysBeep
**
**	bra CallBELL
**
**exit
**	lda #0
**	unlink
**	rtl

*** Let's try this one more time, using bit 14 of SysBeep2 this time to delay
*** the beeps until GetNextEvent gets called.  17-Feb-91 DAL

	lda #$0004	;clicked outside dialog/alert
	bcs @thisSound
	lda 4,s
	beq @stage0
	ora #$4000	;stage 1..3: $4001..4003 (defer until GetNextEvent)
	bra @thisSound
@stage0	lda #$C000	;stage 0: no sound by default, defer until GNE
@thisSound	pha
	_SysBeep2
	lda 2,s
	sta 4,s
	lda 1,s
	sta 3,s
	pla
	rtl


	ENDP


;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;
;        FindNextEditLine
;
;       input: theDialog:LONG - pointer	to dialog port
;              PrevLEControl:LONG - control handle of previous EditLine item
;
;      output: NextLEID:WORD - ID of next EditLine item
;
;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

	ENTRY FindNextEditLine
FindNextEditLine	PROC

ControlPtr	equ 0
SizeLocals	equ ControlPtr+4

	link 8,SizeLocals

PrevLEControl	equ input
theDialog	equ PrevLEControl+4

NextLEID	equ output

;
; Get Next item in dialog
;
nextItem
	movelong [PrevLEControl],0,<ControlPtr
	movelong [<ControlPtr],CtrlNext,<PrevLEControl

	lda <PrevLEControl
	bne CheckEditLine
	lda <PrevLEControl+2
	beq RestartFromBeginning ; if end of list, go to beginning

;
; Check if this item is an EditLine item
;
CheckEditLine
	movelong [PrevLEControl],0,<ControlPtr
	ldy #iitemtype
	lda [<ControlPtr],y
	and #$7FFF	; get rid of item disable bit
	cmp #EditLine
	bne NextItem	; if not, next item

	ldy #iitemid
	lda [<ControlPtr],y
	sta <NextLEID

	lda #0
	unlink
	rtl

;
; If end of list reached, wraparound until we find (at least) the Prev EditLine
;
RestartFromBeginning	; get first item in dialog
	movelong [<theDialog],wcontrol-wport,<PrevLEControl
	bra CheckEditLine

	ENDP


;_____________________________________________________________________________
;
;        DefaultFilter
;
;       input: theDialog:LONG - pointer	to the dialog port
;              theEvent:LONG - pointer to the Event.
;              itemHit:LONG - pointer to itemHit.
;
;      output: result:WORD - TRUE if event filtered
;_____________________________________________________________________________

	ENTRY DefaultFilter
DefaultFilter	PROC

	tlink 12

itemHit	equ input
theEvent	equ itemHit+4
theDialog	equ theEvent+4

result	equ output

	pushlongdp <theDialog
	pushlongdp <theEvent
	pushlongdp <itemHit
	jsl StdFilterProc
	pullword <result

	lda #0
	tunlink
	rtl
	ENDP


;            copy  Modeless.asm
; Modeless.asm		Jean-Charles Mourey

	TITLE 'Modeless Dialog Routine'


;____________________________________________________________________________
;
;        IsDialogEvent
;
;       input: theEvent:LONG - pointer to the Event Record
;
;      output: result:WORD - TRUE if it	is a dialog event
;
;_____________________________________________________________________________

	ENTRY IsDialogEvent
IsDialogEvent	PROC

Window	equ 0	;MUST BE ZERO 17-Sep-90 DAL
Dialog	equ Window+4
SizeLocals	equ Dialog+4

	tlink 4,SizeLocals

theEvent	equ input

result	equ output

;
; Initialize result	to FALSE
;
	stz <result

;
; Test if front window is a modeless dialog
;
	pha	; space for window pointer
	pha
	_FrontWindow

	lda 1,s	; get dialog pointer without pulling it
	sta <Dialog
	lda 3,s
	sta <Dialog+2

	pushword #Modeless_Type ; dialog is still on stack
	jsl WindowIsDialog
	bcs FrontNotModeless

;
; Is it a mouse down event in the content region of the active dialog
;
	ldy #what
	lda [<theEvent],y
	cmp #9	; is it a switch event or higher?
	bcs bnoerror	; don't claim them
	cmp #inActWind
	beq TestForDialog
	cmp #inUpdate
	beq TestForDialog

	cmp #inButtDwn	; if other than mouse down, it is
	bne ReturnTrue

;
; Find window and location in window of	mouse down event
;
	pha	; space for location
***	pushzptr Window	;optimized into following 2 lines 17-Sep-90 DAL
	pea 0
	phd
	pushlong [<theEvent],where
	_FindWindow
	pla
	and #$7FFF	; get rid of InSysWindow bit
	tax	; X contains location

;
; If not in our dialog, not dialog event
;
	lda <Window
	cmp <Dialog
	bne noerror
	lda <Window+2
	cmp <Dialog+2
	bne noerror

;
; Test that location is in the content region
;
	cpx #winContent	; only return true of wincontent, HY 7/13/88
	bne noerror	; if not mouse down in content
		; of modeless dialog then handle
		; taskmaster event as normal
		 
returnTRUE	lda #1
	sta <result

bnoerror	bra noerror

;
; If front window is not a modeless dialog, is it an activate/update event in
; a dialog ?
;
FrontNotModeless
	ldy #what
	lda [<theEvent],y
	cmp #inActWind
	beq TestForDialog
	cmp #inUpdate
	bne noerror	; not activate nor update, so exit

TestForDialog
	pushlong [<theEvent],message
	pushword #Modeless_Type ; DAN H. (changed from Modeless_type)
	jsl WindowIsDialog
	bcc returnTRUE	; DAN H. (branch if	modal or modeless)

	pushlong [<theEvent],message
	pushword #Modal_Type ; DAN H. (changed from Modeless_type)
	jsl WindowIsDialog
	bcc returnTRUE	; DAN H. (branch if	modal or modeless)

noerror	lda #0

exit	ldx #SizeLocals
	jmp quit4

	ENDP


;_____________________________________________________________________________
;
;        DialogSelect
;
;       input: theEvent:LONG - pointer to the Event Record
;              theDialogPtr:LONG - pointer to the dialog pointer
;              itemHitPtr:LONG - pointer to the itemHit
;
;      output: result:WORD - TRUE if event handled by DialogSelect
;______________________________________________________________________________

	ENTRY DialogSelect
DialogSelect	PROC

Dialog	equ 0
FrontModeless	equ Dialog+4
Control	equ FrontModeless+2
ControlPtr	equ Control+4
PartCode	equ ControlPtr+4
PortSave	equ PartCode+2
SizeLocals	equ PortSave+4

	tlink 12,SizeLocals

itemHitPtr	equ input
theDialogPtr	equ itemHitPtr+4
theEvent	equ theDialogPtr+4

result	equ output

;
; Initialize ouputs	and flag to zero
;
	lda #0
	sta <result
	sta [<itemHitPtr]

	sta <FrontModeless

;
; Get the current port
;
	pha	; space for port pointer
	pha
	_GetPort
	pulllong <PortSave

;
; Blink the caret on the front window if it is a modeless dialog
;
	pha	; space for window pointer
	pha
	_FrontWindow

	lda 1,s	; get dialog pointer without pulling it
	sta <Dialog
	sta [<theDialogPtr]
	lda 3,s
	sta <Dialog+2
	ldy #2
	sta [<theDialogPtr],y

	pushword #Modeless_Type ; dialog is still on stack
	jsl WindowIsDialog
	bcs DispEvent

	lda #1	; set FrontModeless	flag to TRUE
	sta <FrontModeless

	pushlongdp <Dialog	; set current port = the dialog
	_SetPort	; only if it is the	front window

	lda #0
	pha
	pha
	_SetOrigin

	pushlongdp <Dialog
	jsl BlinkCaret

;
; Call standard filter
;
	pha	; space for filter result
	pushlongdp <Dialog
	pushlongdp <theEvent
	pushlongdp <itemHitPtr
	jsl StdFilterProc
	pla
	beq DispEvent

	sta <result

	bra exit

;
; Dispatch Event
;
DispEvent	ldy #what
	lda [<theEvent],y
	asl a
	tax
	lda >EventTable,x
	pha
	rts

EventTable
	DC.W exit-1		; inNull
	DC.W MouseDownEvent-1 	; inButtDwn
	DC.W exit-1		; inButtUp
	DC.W KeyDownEvent-1		; inKey
	DC.W exit-1
	DC.W KeyDownEvent-1		; inAutoKey
	DC.W UpdateEvent-1		; inUpdate
	DC.W exit-1
	DC.W ActivateEvent-1 	; inActWind
	DC.W exit-1		; inSwitch
	DC.W exit-1		; inAccess
	DC.W exit-1		; inDevice
	DC.W exit-1		; inApp1
	DC.W exit-1		; inApp2
	DC.W exit-1		; inApp3
	DC.W exit-1		; inApp4

exit	pushlongdp <PortSave
	_SetPort

	lda #0
	tunlink
	rtl

;____________________________________________________________________________
;
;        MouseDownEvent
;_____________________________________________________________________________

MouseDownEvent

;
; If front window is not a modeless dialog, exit
;
	lda <FrontModeless
	beq exit

;
; Find window where	the mouse-down occurred and where in the window
;
	pha	; space for location
	pushlongdp <theDialogPtr
	pushlong [<theEvent],where
	_FindWindow
	pla
	and #$7FFF	; get rid of InSysWindow bit
	tax	; location in X

;
; If not in front dialog, exit
;
	lda [<theDialogPtr]
	cmp <Dialog
	bne exit
	ldy #2
	lda [<theDialogPtr],y
	cmp <Dialog+2
	bne exit

;
; If not in the content region, no item	hit -> exit
;
	cpx #winContent
	beq FindWhere
	brl exit

;
; Find which item has been clicked in
;
FindWhere		; 
	pha	; space for partcode
	pushzptr Control
	pushlong [<theEvent],where
	pushlongdp <Dialog
	_FindControl
	pullword <PartCode	; if partcode=0, no	item hit
	bne CheckID
	brl exit

;
; If ID is 0, does not handle item (non	item controls)
;
CheckID
	movelong [<Control],0,<ControlPtr
	ldy #iitemid
	lda [<ControlPtr],y
	bne CheckEditLine
	brl exit

;
; If PartCode is in	EditLine, call LEClick on the EditLine record
;
CheckEditLine
	lda <PartCode
	cmp #inEditLine
	bne CheckNoTrack

	pushlongdp <theEvent
	pushlong [<ControlPtr],CtrlData ; hLE is in CtrlData field
	_LEClick

	brl EnableTest

;
; If PartCode is inStatText, inUserItem, inLongStatText,
; or inIconItem, does not TrackControl
;
CheckNoTrack
	lda <PartCode
	cmp #inStatText
	beq NoTrack
	cmp #inUserItem
	beq NoTrack
	cmp #inLongStatText
	beq NoTrack
	cmp #inLongStatText2 ; DAN H. (added for LongStatText2)
	beq NoTrack	; DAN H.
	cmp #inIconItem
	bne CheckScroll

NoTrack	brl EnableTest

;
; If PartCode is in	up/down arrow or page up/down or thumb,	special track
;
CheckScroll
	lda <PartCode
	cmp #UP_PART
	beq ScrollTrack
	cmp #DOWN_PART
	beq ScrollTrack
	cmp #UPP_PART
	beq ScrollTrack
	cmp #DOWNP_PART
	beq ScrollTrack
	cmp #THUMB_PART
	beq ScrollTrack

;
; Call TrackControl
;
StdTrack		; 
	pha	; space for partcode
	pushlong [<theEvent],where
	lda #-1	; use control action procedure
	pha
	pha
	pushlongdp <Control
	_TrackControl
	pullword <PartCode	; if PartCode=0, mouse released outside
	beq MDnoitem	; of item, so no item hit.

;
; If an item has been hit, call EnableTest to see if should	return or not.
;
	brl EnableTest

;
; Call a special action procedure for scroll bar items
;

ScrollTrack		; 
	pha	; space for partcode
	pushlong [<theEvent],where
	pushlong #scroll_action
	pushlongdp <Control
	_TrackControl
	pullword <PartCode
	beq MDnoitem

	brl EnableTest

MDnoitem	brl exit


;______________________________________________________________________________
;
;        KeyDownEvent
;______________________________________________________________________________

KeyDownEvent

;
; If front window is not a modeless dialog, exit
;
	lda <FrontModeless
	bne LookForEditLine
	brl KDnoitem

;
; Check if there is	an active editLine item
;
LookForEditLine
	ldy #edittextID-wport
	lda [<Dialog],y
	bne editok	; if current edit item ID = 0, no item
	brl KDnoitem

editok	tax

;
; If there is one, get the control handle to it.
;
	pha	; space for control
	pha
	pushlongdp <Dialog
	phx
	_GetControlDItem
	pulllong <Control

;
; If the item has not been found, exit no item
;
	lda <Control
	bne CheckTab
	lda <Control+2
	bne CheckTab
	brl KDnoitem

;
; If the typed character is a tab character, change the active EditLine item
;
CheckTab
	ldy #message
	lda [<theEvent],y	; char in lo order byte (check doc.)
	and #$FF
	cmp #9	; TAB = ASCII 9
	bne CheckAppleKey

;
; Find next EditLine item in dialog
;
	pha	; space for result
	pushlongdp <Dialog
	pushlongdp <Control
	jsl FindNextEditLine
	plx

;
; Make it the new active EditLine item and select the line
;
	pushlongdp <Dialog
	phx
	pushword #0
	pushword #32767
	_SelIText

	brl KDnoitem

;
; If Apple Key is down, does not pass the character to LineEdit
;
CheckAppleKey
	ldy #modif
	lda [<theEvent],y
	and #$0100	; Test AppleKey modifier bit
	beq CallLineEdit
	ldy #message
	lda [<theEvent]	; char in lo order byte (check doc.)
	and #$7F
	cmp #8	; left arrow
	beq CallLineEdit
	cmp #21	; right arrow
	beq CallLineEdit
	brl KDnoitem

;
; Pass the typed character to Line Edit
;
CallLineEdit
	movelong [<Control],0,<ControlPtr

	ldy #message
	lda [<theEvent],y	; char in lo order byte (check doc.)
	and #$FF
	pha
	ldy #modif
	lda [<theEvent],y
	pha
	pushlong [<ControlPtr],CtrlData ; LEHandle in CtrlData
	_LEKey

;
; Call EnableTest to see if EditLine item is enabled or not.
;
	brl EnableTest


KDnoitem	brl exit

;______________________________________________________________________________
;
;        UpdateEvent
;______________________________________________________________________________

UpdateEvent

;
; Get dialog port
;
	jsr getdlgport

	movelong [<theDialogPtr],0,<Dialog

;
; Redraws the dialog's content
;
	pushlongdp <Dialog
	_BeginUpdate

	pushlongdp <Dialog
	_DrawDialog

	pushlongdp <Dialog
	_EndUpdate

	brl exit

;______________________________________________________________________________
;
;        ActivateEvent
;______________________________________________________________________________

ActivateEvent

;
; Get dialog port
;
	jsr getdlgport

	movelong [<theDialogPtr],0,<Dialog

;
; Look if there is any EditLine item
;
	ldy #edittextID-wport
	lda [<Dialog],y
	bne ACeditok	; if current edit item ID = 0, no item
	brl exit

ACeditok
	tax

;
; If there is one, get the control handle to it.
;
	pha	; space for control
	pha
	pushlongdp <Dialog
	phx
	_GetControlDItem
	bcs ActNotFound
	pulllong <Control

	movelong [<Control],0,<ControlPtr

	pushlong [<ControlPtr],CtrlData

;
; If dialog is now active, activate EditLine item, otherwise deactivate it
;
	ldy #modif
	lda [<theEvent],y
	and #$0001	; get active flag
	bne ActivateIt

	_LEDeactivate

	bra Actexit

ActivateIt	_LEActivate

Actexit	brl exit

;
; Goes here if could not find current EditLine item
;
ActNotFound
	plx
	plx
	bra Actexit


;++++++++++++++++++++++++++++++++++++++++++++++++++++
;
;        Get the dialog port from the Event Record
;
;+++++++++++++++++++++++++++++++++++++++++++++++++++++

getdlgport
	plx	; get rts
	ldy #message
	lda [<theEvent],y
	sta [<theDialogPtr]
	iny
	iny
	lda [<theEvent],y
	ldy #2
	sta [<theDialogPtr],y
	phx	; set rts
	rts


;______________________________________________________________________________
;
;        EnableTest
;
;       input: control handle to item hit is in the local "Control".
;
;      function: go	there if an item hit. Returns itemHit if item enabled.
;                Returns 0 if item disabled.
;______________________________________________________________________________

EnableTest

;
; If item hit, look	if item is enabled or not
;
	movelong [<Control],0,<ControlPtr
	ldy #iitemtype
	lda [<ControlPtr],y
	and #ItemDisable	; if itemdisable, does not return
	bne ETnoitem

;
; If item enabled, returns item ID
;
	ldy #iitemid
	lda [<ControlPtr],y
	sta [<itemHitPtr]
	lda #1
	sta <result

ETnoitem	brl exit

	ENDP

;            copy  DDraw.asm
; DDraw.asm		Jean-Charles Mourey

	TITLE 'DrawDialog Routine'

;_____________________________________________________________________________
;
;        DrawDialog
;
;       input: theDialog:LONG - pointer	to the dialog.
;
;      output: none.
;
;    function: draws the contents of the given dialog box.
;______________________________________________________________________________

	ENTRY DrawDialog
DrawDialog	PROC

	tlink 4

;
; Since all the items in a dialog are controls (standard or	custom),
; just call DrawControls for all controls in the dialog.
;
	pushlongdp <input
	_DrawControls	; return DrawControls Error Status

	ldx #0
	jmp quit4

	ENDP


;____________________________________________________________________________
;
;        UpdateDialog
;
;       input: theDialog:LONG - pointer	to the dialog port
;              UpdateRgn:LONG - handle to region of dialog to update
;
;      output: none
;_____________________________________________________________________________

	ENTRY UpdateDialog
UpdateDialog	PROC

PortSave	equ 0
ClipSave	equ PortSave+4
SizeLocals	equ ClipSave+4

	tlink 8,SizeLocals

UpdateRgn	equ input
theDialog	equ UpdateRgn+4

	pha	; save previous port
	pha	; (space for port pointer)
	_GetPort
	pulllong <PortSave

	pushlongdp <theDialog	; set port = dialog	port
	_SetPort

	pha	; save previous clip region
	pha	; (space for clip region)
	_NewRgn
	pulllong <ClipSave

	pushlongdp <ClipSave
	_GetClip

	pushlongdp <UpdateRgn	; set clip region =	update region
	_SetClip

	pushlongdp <theDialog	; draw dialog
	_DrawDialog

	bcc noerror

	pha	; save DrawDialog Error Status
	bra RestoreEverything

noerror		;	        ; if no error, error status = 0
	lda #0
	pha

RestoreEverything		; 
	pushlongdp <ClipSave	; restore previous clip region
	_SetClip

	pushlongdp <ClipSave	; dispose of save region
	_DisposeRgn

	pushlongdp <PortSave	; restore previous port
	_SetPort

	pla	; restore DrawDialog Error Status

	ldx #SizeLocals
	jmp quit8	; fixedby SEG on 19	Dec 86

	ENDP


;            copy  DData.asm
; DData.asm		Jean-Charles Mourey

	TITLE 'Dialog Manager Datas'


;            copy  DScrap.asm
; DScrap.asm		Jean-Charles Mourey

	TITLE 'Cut/Copy/Paste Dialog Procedures'

;____________________________________________________________________________
;
;        DlgCut
;
;       input: theDialog:LONG - pointer	to the dialog port.
;
;      output: none.
;
;    function: if there is a current edittext item, apply the cut operation
;              to it.
;____________________________________________________________________________

	ENTRY DlgCut
DlgCut	PROC

	ldx #cutcmd
	bra DlgScrap

	ENDP

;____________________________________________________________________________
;
;        DlgCopy
;
;       input: theDialog:LONG - pointer	to the dialog port.
;
;      output: none.
;
;    function: if there is a current edittext item, apply the copy operation
;              to it.
;____________________________________________________________________________

	ENTRY DlgCopy
DlgCopy	PROC

	ldx #copycmd
	bra DlgScrap

	ENDP

;____________________________________________________________________________
;
;        DlgPaste
;
;       input: theDialog:LONG - pointer	to the dialog port.
;
;      output: none.
;
;    function: if there is a current edittext item, apply the paste operation
;              to it.
;____________________________________________________________________________

	ENTRY DlgPaste
DlgPaste	PROC

	ldx #pastecmd
	bra DlgScrap

	ENDP

;____________________________________________________________________________
;
;        DlgDelete
;
;       input: theDialog:LONG - pointer	to the dialog port.
;
;      output: none.
;
;    function: if there is a current edittext item, apply the delete operation
;              to it.
;____________________________________________________________________________

	ENTRY DlgDelete
DlgDelete	PROC

	ldx #deletecmd

	ENDP


;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;
;        DlgScrap
;
;       input: theDialog:LONG - pointer	to the dialog port.
;              Y register = scrap command (cut,copy,paste or delete)
;
;      output: none.
;
;    function: if there is a current edittext item, apply the scap operation
;              to it.
;
;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

	ENTRY DlgScrap
DlgScrap	PROC

Control	equ 0
ControlPtr	equ Control+4
SizeLocals	equ ControlPtr+4

	tlink 4,SizeLocals

theDialog	equ input

	phx	; save scrap command

	ldy #edittextID-wport
	lda [<theDialog],y
	bne GetIt

	plx	; pull scrap command

	lda #DLGERR+ItemNotFound ; if no current EditLine item, error
	bra exit

GetIt	tax

;
; Get handle to current edit text's control
;
	pha	; space for control
	pha
	pushlongdp <theDialog
	phx
	_GetControlDItem
	bcs notFound
	pulllong <Control

	movelong [<Control],0,<ControlPtr

	plx	; get scrap command

	pushlong [<ControlPtr],CtrlData ; CtrlData = hLE

;================================================================
;
;  Here, I compute directly the call number with scrapcmd,
;  assuming the call numbers for LECut,	LECopy, LEPaste and
;  LEDelete won't change.
;
;        LECut    =	20+256*18
;        LECopy   =	20+256*19
;        LEPaste  =	20+256*20
;        LEDelete =	20+256*21
;
;================================================================

	txa	; add base number to scrap command
	clc
	adc #18+20*256	; (Acc should be switched lo-hi)
	xba	; and switch it
	tax
	jsl $E10000	; return LineEdit Error Status

exit	ldx #SizeLocals
	jmp quit4

notFound		; 
	plx	; pull useless control
	plx
	plx	; pull scrap command
	bra exit

	ENDP

;            copy  DUtils.asm
; DUtils.asm		Jean-Charles Mourey

	TITLE 'Dialog Manager Internal Utilities'

;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;
;        dlg2handle
;
;       input: theDialog:LONG in AY - pointer to the dialog	port.
;
;      output: DialogHandle:LONG in AY - handle to the dialog record.
;
;    function: given a pointer to the dialog port, retrieves the
;              handle to the dialog record.
;
;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

	ENTRY dlg2handle
dlg2handle	PROC

;
; Find beginning of	dialog record
;
	sec
	sbc #wport
	bcs findit
	dey

findit	pushlong #0
	pushay	; Location of Handle
	_FindHandle
	pullay
	rts

	ENDP


;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;
;        long_call
;
;       input: X = bits 8-23 of address	of destination routine
;              A = bits 0-15 of address	of destination routine
;                  (only bits 0-8 are used)
;
;      output: calling this routine is the same as:
;
;                 jsl (ax)
;
;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

	ENTRY long_call
long_call	PROC
		; HY 8/4/88, old code decremented data bank
	phx	; push middle+high byte of address
	phb	; push extra byte on stack
	
	dec a	; decrement a so low word looks like a 
		; return address
	sta 1,s	; overstore low word
	
	rtl	; go to routine

	ENDP


;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;
;        quit0
;
;       input: A=error code
;
;      output: none
;
;    function: exit	from a procedure with no input and adjust carry
;
;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

	ENTRY quit0
quit0	PROC
;
; Stack is: output,	rtl1, rtl2, local space, previous D register
;
	jsr disposelocals

;
; Stack is: output,	rtl1, rtl2
;
	tya	; adjust carry
	cmp #1
	rtl	; quit procedure
	ENDP




;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;
;        quit2
;
;       input: A=error code
;
;      output: none
;
;    function: exit	from a procedure with 2 bytes of input and adjust carry
;
;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

	ENTRY quit2
quit2	PROC Export
;
; Stack is: output,	input, rtl1, rtl2, local space, previous D register
;
	jsr disposelocals

;
; Stack is: output,	input, rtl1, rtl2
;

;
; Remove input parameters
;
	lda 5,s
	sta 7,s
	lda 3,s
	sta 5,s
	lda 1,s
	sta 3,s
	pla	; add 2 to stack pointer

	tya	; adjust carry
	cmp #1
	rtl	; quit procedure
	ENDP


;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;
;        quit4
;
;       input: A=error code
;
;      output: none
;
;    function: exit	from a procedure with 4 bytes of input and adjust carry
;
;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

	ENTRY quit4
quit4	PROC
	jsr disposelocals

;
; Remove input parameters
;
	lda 5,s
	sta 9,s
	lda 3,s
	sta 7,s
	lda 1,s
	sta 5,s
	pla	; add 4 to stack pointer
	pla

	tya	; adjust carry
	cmp #1
	rtl	; quit procedure
	ENDP


;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;
;        quit6
;
;       input: A=error code
;
;      output: none
;
;    function: exit	from a procedure with 6 bytes of input and adjust carry
;
;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

	ENTRY quit6
quit6	PROC
	jsr disposelocals

;
; Remove input parameters
;
	lda 5,s
	sta 11,s
	lda 3,s
	sta 9,s
	lda 1,s
	sta 7,s
	pla	; add 6 to stack pointer
	pla
	pla

	tya	; adjust carry
	cmp #1
	rtl	; quit procedure
	ENDP


;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;
;        quit8
;
;       input: A=error code
;
;      output: none
;
;    function: exit	from a procedure with 8 bytes of input and adjust carry
;
;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

	ENTRY quit8
quit8	PROC
	jsr disposelocals

;
; Remove input parameters
;
	lda 5,s
	sta 13,s
	lda 3,s
	sta 11,s
	lda 1,s
	sta 9,s
	pla	; add 8 to stack pointer
	pla
	pla
	pla

	tya	; adjust carry
	cmp #1
	rtl	; quit procedure
	ENDP


;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;
;        quit10
;
;       input: A=error code
;
;      output: none
;
;    function: exit	from a procedure with 10 bytes of input	and adjust carry
;
;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

	ENTRY quit10
quit10	PROC
	jsr disposelocals

;
; Remove input parameters
;
	lda 5,s
	sta 15,s
	lda 3,s
	sta 13,s
	lda 1,s
	sta 11,s
	pla	; add 10 to stack pointer
	pla
	pla
	pla
	pla

	tya	; adjust carry
	cmp #1
	rtl	; quit procedure
	ENDP


;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;
;        quitdefproc
;
;       input: A=error code
;
;      output: none
;
;    function: exit	from a defproc with	10 bytes of input and adjust carry
;
;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

	ENTRY quitdefproc
quitdefproc	PROC
	jsr disposelocals

;
; Remove input parameters
;
	lda 2,s
	sta 12,s
	lda 1,s
	sta 11,s
	pla	; add 10 to stack pointer
	pla
	pla
	pla
	pla

	tya	; adjust carry
	cmp #1
	rtl	; quit procedure
	ENDP


;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;
;        disposelocals
;
;       input: X=size of local space
;
;      output: none
;
;    function: restore zero page, save error code, and remove local vars from
;              stack.
;
;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

	ENTRY disposelocals
disposelocals	PROC
	tay	; save error code
	pla	; save return address
	pld	; restore zero page

	cpx #0
	beq exit

;
; Remove local vars	from stack
;
nextbyte		; 
	sta 1,s	; store return address on stack
	pla	; decrement stack and get return address
	dex	; (that's a huge trick!)
	dex
	bne nextbyte

exit		; 
	pha	; restore return address
	rts
	ENDP


;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;
;        storeLONGinZP
;
;       input: LongValue:LONG - value to store in the zero page
;              Y register = offset in zero page where to put the value
;              A-reg = value of WAP
;
;      output: none
;
;
; Change History
;
; 4 March 88	STEVEN Glass
;
; Uses the incoming WAP instead of calling the control manager for the 
; value of its direct page.
;
;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

	ENTRY storeLONGinZP
storeLONGinZP	PROC

Globals	equ 0
SizeLocals	equ Globals+4


	tax	; save WAP 
	tlink 4,SizeLocals

	phy	; save zero page offset

	stx <Globals
	stz <Globals+2

	ply	; restore zero page	offset

;
; Store the LONG input parameter in the	Zero Page at the specified position
;
	lda <input
	sta [<Globals],y
	iny	; Added 28 Jan 87
	iny	; oops--forgot the second word of
	lda <input+2	; the long
	sta [<Globals],y

	lda #0
	ldx #SizeLocals
	jmp quit4

	ENDP


;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;
;        getWORDfromZP
;
;       input: Y register = offset in zero page where is the value
;
;      output: WordValue:WORD - value read from zero page
;
; Change History
;
; 4 March 88	STEVEN Glass
;
; Uses the incoming WAP instead of calling the control manager for the 
; value of its direct page.
;
;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

	ENTRY getWORDfromZP
getWORDfromZP	PROC

Globals	equ 0
SizeLocals	equ Globals+4

	tax	; save wap value
	tlink 0,SizeLocals

	phy	; save zero page offset

	stx <Globals
	stz <Globals+2

	ply	; restore zero page	offset

;
; Store the asked value in the output
;
	lda [<Globals],y
	sta <output

	lda #0
	ldx #SizeLocals
	jmp quit0

	ENDP



	TITLE 'StatText Items Definition Procedure'


;___________________________________________________________________________
;
;       StatTextDefProc
;
;       input: message:WORD - desired operation
;              param:LONG - depends on operation
;              theControl:LONG - handle	to control
;
;      output: RetValue:LONG - depends on operation
;
; Change History
;
; 07 Oct 88	Steven Glass
;
; Only deref the control handle if the message is not recsize.
;____________________________________________________________________________

	ENTRY StatTextDefProc
StatTextDefProc	PROC

ControlPtr	equ 0
Rect	equ ControlPtr+4
TextPtr	equ Rect+8
TextLen	equ TextPtr+4
SizeLocals	equ TextLen+2

	nop
	link 10,SizeLocals

theControl	equ input
param	equ theControl+4
CtlMessage	equ param+4

RetValue	equ output

;
; Zeroes out RetValue
;
	stz <RetValue
	stz <RetValue+2

	lda <ctlMessage
	cmp #recsize
	beq SkipThisStuff
;
; Get Pointer to control and copy display rectangle
;
	movelong [<theControl],0,<ControlPtr

	movelong [<ControlPtr],CtrlRect,<Rect
	movelong [<ControlPtr],CtrlRect+4,<Rect+4


SkipThisStuff
	lda <CtlMessage
	asl a
	tax
	lda >CmdTable,x
	pha
	rts

CmdTable	DC.W DrawStatText-1
	DC.W StatTextExit-1
	DC.W TestStatText-1
	DC.W StatTextExit-1
	DC.W StatTextExit-1
	DC.W StatTextExit-1
	DC.W StatTextExit-1
	DC.W StatTextExit-1
	DC.W StatTextExit-1
	DC.W DrawStatText-1	; new value fall thru draw routine
	DC.W StatTextExit-1
	DC.W StatTextExit-1
	DC.W RecStatText-1

StatTextExit
	ldx #SizeLocals
	jmp quitdefproc


*******************
*
* Draw StatText
*
******************

DrawStatText

;
; Call TextBox to draw the static text
;
	jsr NormalTextColor
;
; Using TextPtr, creates a new string where the ^n are replaced by the ParamStr
;
	movelong [<ControlPtr],CtrlData,<TextPtr

	lda [<TextPtr]	; get text length
	and #$FF
	sta <TextLen

;
; If string is empty, exit
;
	beq exit


	add4 <TextPtr,#1,<TextPtr ; get pointer	to beginning of text

	pha	; space for new text pointer
	pha
	pha	; space for new text length
	pushlongdp <TextPtr
	pushworddp <TextLen
	jsl InsertParamString
	pullword <TextLen	; new text length
	pulllong <TextPtr	; new text pointer (dereferenced hdl)

	pushlongdp <TextPtr
	pushworddp <TextLen

	pushzptr <Rect

	pushword #0	; Left justification

	_LETextBox

;
; Dispose of pointer (actually handle for the created string)
;
	pha	; space for handle
	pha
	pushlongdp <TextPtr
	_FindHandle
	_DisposeHandle

exit	brl StatTextExit


*******************
*
* Test StatText
*
******************

TestStatText

	movelong #inStatText,<RetValue

	brl StatTextExit


*******************
*
* RecSize StatText
*
******************

RecStatText

;
; Returns StatTextSIZE
;
	movelong #StatTextSIZE,<RetValue

	brl StatTextExit

	ENDP


;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;
;        InsertParamString
;
;       input: SourceText:LONG - pointer to text string
;              SourceLen:WORD - length of text string
;
;      output: DestText:LONG - pointer to text with the paramstrings
;              DestLen:WORD - length of	dest string
;
;    function: replaces the ^0 to ^3 by	the corresponding paramstrings (set by
;              ParamText).
;
;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

	ENTRY InsertParamString
InsertParamString	PROC

Globals	equ 0
StringHandle	equ Globals+4
SourceOffset	equ StringHandle+4
DestOffset	equ SourceOffset+2
ParmText	equ DestOffset+2
ParmLen	equ ParmText+4
DestLenBase	equ ParmLen+2
SizeLocals	equ DestLenBase+2

	link 6,SizeLocals

SourceLen	equ input
SourceText	equ SourceLen+2

DestLen	equ output
DestText	equ DestLen+2

;
; Get Dialog Manager Zero Page
;
	pha
	_GetCtlDPage
	pla
	sta <Globals
	stz <Globals+2

;
; Create a handle for the new text
;
	pha	; space for handle
	pha
	pushlong #520	; 520 characters (limit effects)
	ldy #mmgrID	; Memory Manager ID
	lda [<Globals],y
	pha
	pushword #Attr_NoCross
	pha	; no location
	pha
	_NewHandle
	Check_Error NotAllocated

	lda 1,s	; get string handle	without pulling it
	sta <StringHandle
	lda 3,s
	sta <StringHandle+2

	_HLock	; StringHandle is on stack

	movelong [<StringHandle],0,<DestText

	stz <SourceOffset
	stz <DestLen
	stz <DestLenBase

NextSourceChar
	ldy <SourceOffset
	lda [<SourceText],y
	tax
	and #$7F
	cmp #'^'
	beq CheckNeedParam

	txa

DirectCopyChar
	ldy <DestLen
	sta [<DestText],y

	inc <SourceOffset

	lda <SourceOffset
	cmp <SourceLen
	blt IncDestLen
	brl CopyDestLength

IncDestLen
	inc <DestLen

	lda <DestLen
	sec
	sbc <DestLenBase
	cmp #256
	blt NextSourceChar

;
; If more chars needed, expand string by 256 chars
;
	pushlongdp <StringHandle
	_HUnlock

	lda #0
	pha	; space for handle size
	pha
	pushlongdp <StringHandle
	_GetHandleSize

	lda 1,s	; HdlSize is on stack
	clc	; Add 256 to it
	adc #256	; and re-store it on the stack
	sta 1,s

	lda 3,s
	adc #0
	sta 3,s

	pushlongdp <StringHandle
	_SetHandleSize

	pushlongdp <StringHandle
	_HLock

	movelong [<StringHandle],0,<DestText

	lda <DestLenBase
	clc
	adc #256
	sta <DestLenBase

	brl NextSourceChar

CheckNeedParam
	iny
	cpy <SourceLen
	beq DirectCopyChar
	lda [<SourceText],y
	and #$7F
	sec
	sbc #'0'
	bmi NotParamString
	cmp #4
	blt IsParamString

NotParamString
	dey
	lda [<SourceText],y
	brl DirectCopyChar

;
; Insert Param String
;

IsParamString
;
; Get Pointer to ParmString
;
	asl a	; calculate offset to ParamString
	asl a	; in Dialog Manager	zero page
	clc
	adc #ParamString0
	tay
	lda [<Globals],y
	sta <ParmText
	iny
	iny
	lda [<Globals],y
	sta <ParmText+2

	lda [<ParmText]
	and #$FF
	beq SkipExpChar	; if the string is zero then just skip it, HY 7/26/88
	sta <ParmLen

	ldx #1

NextParmChar
	txy
	lda [<ParmText],y
	ldy <DestLen
	sta [<DestText],y
	inx	; next 2 char.
	inx
	inc <DestLen
	inc <DestLen
	cpx <ParmLen
	blt NextParmChar
	beq NextParmChar

;
; if previous x was	exactly ParmLen, then we copied 1 char more than ParmLen
;
	dex
	dex
	cpx <ParmLen
	bne SkipExpChar
	dec <DestLen	; we incremented too much

;
; Skip the two ^n characters, check if end of source text, continue if not
;
SkipExpChar		; 
	inc <SourceOffset	; skip ^
	inc <SourceOffset	; next char
	lda <SourceOffset
	cmp <SourceLen
	bge exit	; if n is last char, then we're done. 
		; changed bge CopyDestLength to bge Exit, because if
		; ^n was at end of line then the DestLen would be
		; incremented by one too many. HY 5/9/88
	brl NextSourceChar

CopyDestLength		; 
	inc <DestLen	; length is maxoffset+1

exit		; 
	unlink
	rtl

NotAllocated		; 
	tax	; save MMgr error code
	pla	; pull useless result
	pla
	movelong <SourceText,<DestText ; and pass original string as result
	moveword <SourceLen,<DestLen
	txa
	bra exit

	ENDP


;___________________________________________________________________________
;
;       LongStatTextDefProc
;
;       input: message:WORD - desired operation
;              param:LONG - depends on operation
;              theControl:LONG - handle	to control
;
;      output: RetValue:LONG - depends on operation
;
; Change History
;
; 07 Oct 88	Steven Glass
;
; Only deref the control handle if the message is not recsize.
;____________________________________________________________________________

	ENTRY LongStatTextDefProc
LongStatTextDefProc	PROC

ControlPtr	equ 0
Rect	equ ControlPtr+4
TextPtr	equ Rect+8
TextLen	equ TextPtr+4
SizeLocals	equ TextLen+2

	nop
	link 10,SizeLocals

theControl	equ input
param	equ theControl+4
CtlMessage	equ param+4

RetValue	equ output

;
; Zeroes out RetValue
;
	stz <RetValue
	stz <RetValue+2

	lda <ctlMessage
	cmp #recSize
	beq SkipThis
;
; Get Pointer to control and copy display rectangle
;
	movelong [<theControl],0,<ControlPtr

	movelong [<ControlPtr],CtrlRect,<Rect
	movelong [<ControlPtr],CtrlRect+4,<Rect+4


SkipThis
	lda <CtlMessage
	asl a
	tax
	lda >CmdTable,x
	pha
	rts

CmdTable
	DC.W DrawLongStatText-1
	DC.W LongStatTextExit-1
	DC.W TestLongStatText-1
	DC.W LongStatTextExit-1
	DC.W LongStatTextExit-1
	DC.W LongStatTextExit-1
	DC.W LongStatTextExit-1
	DC.W LongStatTextExit-1
	DC.W LongStatTextExit-1
	DC.W DrawLongStatText-1 ; new value fall thru draw routine
	DC.W LongStatTextExit-1
	DC.W LongStatTextExit-1
	DC.W RecLongStatText-1

LongStatTextExit
	ldx #SizeLocals
	jmp quitdefproc


*******************
*
* Draw LongStatText
*
******************

DrawLongStatText

;
; Call TextBox to draw the static text
;
	jsr NormalTextColor
;
; Using TextPtr, creates a new string where the ^n are replaced by the ParamStr
;

	ldy #CtrlValue
	lda [<ControlPtr],y
	sta <TextLen

;
; If empty string, exit
;
	beq exit


	pha	; space for new text pointer
	pha
	pha	; space for new text length
	pushlong [<ControlPtr],CtrlData
	pushworddp <TextLen
	jsl InsertParamString
	pullword <TextLen
	pulllong <TextPtr

	pushlongdp <TextPtr
	pushworddp <TextLen

	pushzptr <Rect

	pushword #0	; Left justification



;
; Re-deref the handle to the control and see which longstattext type we have
; (Added SEG 16 Aug 88)
	movelong [<theControl],0,<ControlPtr

;
; Check for LongStatText or LongStatText2, DAN H.
;

	ldy #CtrlrefCon+2	; where ItemType was stored, DAN H.
	lda [<ControlPtr],y	; get ItemType, DAN	H.
	and #$7fff	; DAN H.
	cmp #LongStatText2	; see if LongStatText2, DAN H.
	bne JustLSText	; DAN H.
	_LETextBox2	; DAN H.
	bra OverLSText	; DAN H.

JustLSText

	_LETextBox

OverLSText
;
; Dispose of pointer (actually handle for the created string)
;
	pha	; space for handle
	pha
	pushlongdp <TextPtr
	_FindHandle
	_DisposeHandle

exit	brl LongStatTextExit


*******************
*
* Test LongStatText
*
******************

TestLongStatText

	movelong #inLongStatText,<RetValue
;
; Check for LongStatText2, DAN H.
;

	ldy #CtrlrefCon+2	; where ItemType was stored, DAN H.
	lda [<ControlPtr],y	; get ItemType, DAN	H.
	and #$7fff	; DAN H.
	cmp #LongStatText2	; see if LongStatText2, DAN H.
	bne TJustLSText	; DAN H.
	movelong #inLongStatText2,<RetValue ; DAN H.

TJustLSText

	brl LongStatTextExit


*******************
*
* RecSize LongStatText
*
******************

RecLongStatText

;
; Returns LongStatTextSIZE
;
	movelong #LongStatTextSIZE,<RetValue

	brl LongStatTextExit

	ENDP


;            copy  EditLine.asm
; LineEdit.asm		 Jean-Charles Mourey

	TITLE 'EditLine Item Definition Procedure'


;___________________________________________________________________________
;
;       EditLineDefProc
;
;       input: message:WORD - desired operation
;              param:LONG - depends on operation
;              theControl:LONG - handle	to control
;
;      output: RetValue:LONG - depends on operation
;____________________________________________________________________________

	ENTRY EditLineDefProc
EditLineDefProc	PROC

ControlPtr	equ 0
Rect	equ ControlPtr+4
Dialog	equ Rect+RECTSIZE
hLE	equ Dialog+4
TextPtr	equ hLE+4
TextLen	equ TextPtr+4
OldEditControl	equ TextLen+2
FontInfo	equ OldEditControl+4
FontHeight	equ FontInfo+8
DestRect	equ FontHeight+2
SizeLocals	equ DestRect+RECTSIZE

	nop
	link 10,SizeLocals

theControl	equ input
param	equ theControl+4
CtlMessage	equ param+4

RetValue	equ output

;
; Zeroes out RetValue
;
	stz <RetValue
	stz <RetValue+2

;
; Check to see which message.  If it is	the RecSize msg then
; skip this part which sets port and origin since pointers
; in control handle	are not yet valid.
;
	lda <CtlMessage
	cmp #RecSize
	beq SkipThisShit
;
; Derefence Control	Handle
;
	movelong [<theControl],0,<ControlPtr

;
; Get a copy of the	enclosing rect
;
	movelong [<ControlPtr],CtrlRect,<Rect
	movelong [<ControlPtr],CtrlRect+4,<Rect+4

;
; Set Port and origin
;
	movelong [<ControlPtr],CtrlOwner,<Dialog

	pushlongdp <Dialog
	_SetPort

	lda #0
	pha
	pha
	_SetOrigin

;
; Get Control Pointer again
;
	movelong [<theControl],0,<ControlPtr

SkipThisShit
;
; Dispatch
;
	lda <CtlMessage
	asl a
	tax
	lda >CmdTable,x
	pha
	rts

CmdTable
	DC.W DrawEditLine-1
	DC.W EditLineExit-1
	DC.W TestEditLine-1
	DC.W InitEditLine-1
	DC.W DispEditLine-1
	DC.W EditLineExit-1
	DC.W EditLineExit-1
	DC.W EditLineExit-1
	DC.W EditLineExit-1
	DC.W DrawEditLine-1	; new value fall thru draw routine
	DC.W EditLineExit-1
	DC.W EditLineExit-1
	DC.W RecEditLine-1

EditLineExit
	ldx #SizeLocals
	jmp quitdefproc

*******************
*
* Draw EditLine
*
******************

DrawEditLine
	jsr NormalTextColor
;
; Draw EditLine enclosing rect
;
	pushword #BLACK
	_SetSolidPenPat

;
; Frame the surrounding Rect
;
	pushword #2
	pushword #1
	_SetPenSize

	pushzptr <Rect
	_FrameRect

	pushword #1
	pushword #1
	_SetPenSize

;
; Erase the inner Rect
;
	pushzptr <Rect
	pushword #2
	pushword #1
	_InsetRect

	pushzptr <Rect
	_EraseRect

;
; ReDraws the Line by calling LineEdit
;
	movelong [<theControl],0,<ControlPtr
	pushlong [<ControlPtr],CtrlData ; CtrlData = hLE
	_LEUpdate

	brl EditLineExit


*******************
*
* Test EditLine
*
******************

TestEditLine

;
; Else returns the part Code inEditLine
;
	movelong #inEditLine,<RetValue

;
; Get ID of previous active EditLine Item
;
	movelong [<theControl],0,<ControlPtr

	ldy #edittextID-wport
	lda [<Dialog],y

;
; If no previous active item, set the new one active
;
	beq SetNewEditItem

;
; If there was one,	compare its ID to the item hit ID
;
	ldy #iitemid
	cmp [<ControlPtr],y

;
; If same ID, exit directly
;
	bne GetOldEditLine
	brl EditLineExit

;
; if not same, deactivate old Edit Line	item
;
GetOldEditLine
	tax
	pha	; space for control
	pha
	pushlongdp <Dialog
	phx
	_GetControlDItem
	pulllong <OldEditControl

	lda <OldEditControl
	bne DeactivateOld
***	lda <OldEditControl
	lda <OldEditControl+2	;was missing +2 (3-Mar-91 DAL)
	beq SetNewEditItem

DeactivateOld
	movelong [<OldEditControl],0,<ControlPtr
	pushlong [<ControlPtr],CtrlData
	_LEDeactivate

;
; Set this EditLine	item as the current	one being edited
;
SetNewEditItem
	movelong [<theControl],0,<ControlPtr
	ldy #iitemid
	lda [<ControlPtr],y
	ldy #edittextID-wport
	sta [<Dialog],y

	movelong [<ControlPtr],CtrlData,<hLE

	lda #0
	pha
	pha
	pushlongdp <hLE
	_LESetSelect

;
; Activate New Edit	Item
;
	pushlongdp <hLE
	_LEActivate

	brl EditLineExit


*******************
*
* Init EditLine
*
******************

InitEditLine

;
; Get a pointer to the string
;
	movelong [<ControlPtr],CtrlData,<TextPtr ; points to default string
	movelong [<ControlPtr],CtrlValue,<TextLen ; max string length

;
; Calculate the view rectangle
;
	pushzptr Rect
	pushword #2
	pushword #1
	_InsetRect

;
; Calculate the font height
;
	pushzptr FontInfo
	_GetFontInfo

	lda <FontInfo	; ascent
	clc
	adc <FontInfo+2	; descent
	adc <FontInfo+6	; leading
	sta <FontHeight

;
; Calculate how much the destRect must be inseted
;
	movelong <Rect,<DestRect
	movelong <Rect+4,<DestRect+4

	lda <Rect+y2	; inset = (viewRect.y2 - viewRect.y1
	sec	;         - FontHeight)/2
	sbc <Rect+y1
	sbc <FontHeight
	lsr a
	tax

	pushzptr DestRect
	pushword #4	; horizontal inset = 4
	phx	; vertical inset computed to center text
	_InsetRect

;
; Create the LineEdit Record
;
	pha	; space for Line Edit Handle
	pha
	pushzptr <DestRect
	pushzptr <Rect
	pushworddp <TextLen
	_LENew
	pulllong <hLE

;
; Deactivate it (so	it is created deactivated)
;
	pushlongdp <hLE
	_LEDeactivate

;
; Test if TextPtr is Nil or not
;
	lda <TextPtr
	bne DefaultText
	lda <TextPtr+2
	beq StorehLE

;
; Set the edit text	to the string passed as parameter
;
DefaultText		; 
	lda [<TextPtr]	; Get Length byte in TextLen
	and #$FF
	sta <TextLen

	add4 <TextPtr,#1,<TextPtr ; Get pointer	to beginning of text

	pushlongdp <TextPtr
	pushworddp <TextLen
	pushlongdp <hLE
	_LESetText

;
; Store hLE in CtrlData field of item
;
StorehLE
	movelong [<theControl],0,<ControlPtr

	ldy #CtrlData
	lda <hLE
	sta [<ControlPtr],y
	iny
	iny
	lda <hLE+2
	sta [<ControlPtr],y

;
; If there is yet no current edit line item (ie there is yet NO edit line item),
; set this one to the current one
;
	movelong [<ControlPtr],CtrlOwner,<Dialog
	ldy #edittextID-wport
	lda [<Dialog],y
	bne InitExit

	pushlongdp <Dialog
	ldy #iitemid
	lda [<ControlPtr],y
	pha
	pushword #0
	pushword #32767
	_SelIText

InitExit	brl EditLineExit



*******************
*
* Disp EditLine
*
******************

DispEditLine

;
; Test if disposed item is the active one
;
	movelong [<ControlPtr],CtrlOwner,<Dialog

	ldy #edittextID-wport
	lda [<Dialog],y

;
; If no active item, nothing to worry about
;
	beq DisposeIt

;
; If there is one, compare its ID to the disposed item ID
;
	ldy #iitemid
	cmp [<ControlPtr],y

;
; If different ID, nothing to worry about
;
	bne DisposeIt

;
; If same ID, clear	the edittextID field
;
	lda #0
	ldy #edittextID-wport
	sta [<Dialog],y

;
; Dispose of hLE
;
DisposeIt
	pushlong [<ControlPtr],CtrlData
	_LEDispose

;
; Allows the Control Manager to continue disposal
;

	brl EditLineExit


*******************
*
* RecSize EditLine
*
******************

RecEditLine

;
; Returns EditLineSIZE
;
	movelong #EditLineSIZE,<RetValue

	brl EditLineExit

	ENDP


;            copy  DScroll.asm
; DScroll.asm		Jean-Charles Mourey

	TITLE 'Dialog Scroll Bars action procedure'

;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;
;       scroll_action
;
;      input: partCode:WORD - Selected part.
;             theControl:LONG - Handle to control.
;
;     output: none.
;
;     function: track the scroll bar and call the dialog scroll bar def proc.
;
;       MyDialogScrollBar:
;
;           input: command:WORD
;                  dialog:LONG - dialog	the scroll bar is in.
;                  ScrollBarID:WORD - item ID of scroll bar.
;
;          output: result:WORD
;
;      command: getinitview    = 1	output = init view
;               getinittotal   = 2	output = init total
;               getinitvalue   = 3	output = init value
;               scrolllineup   = 4	output = new value
;               scrolllinedown = 5	output = new value
;               scrollpageup   = 6	output = new value
;               scrollpagedown = 7	output = new value
;               scrollthumb    = 8	output = new value
;
;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

	ENTRY scroll_action
scroll_action	PROC

ControlPtr	equ 0
DlgScrollAction	equ ControlPtr+4
SizeLocals	equ DlgScrollAction+4

	nop
	link 6,SizeLocals

theControl	equ input
partCode	equ theControl+4

;
; Get address of Dialog Scroll Bar Action
;
	movelong [<theControl],0,<ControlPtr
	movelong [<ControlPtr],iScrollBarDef,<DlgScrollAction

;
; if no action, exit
;
	lda <DlgScrollAction
	bne LetScroll
	lda <DlgScrollAction+2
	beq exit

;
; Call the Dialog Scroll Bar Action Procedure
;
LetScroll		; 
	pha	; space for result

	lda <PartCode	; command number
	cmp #UP_PART
	bne isDown
	lda #scrolllineup
	bra CallIt

isDown	cmp #DOWN_PART
	bne isPageUp
	lda #scrolllinedown
	bra CallIt

isPageUp	cmp #UPP_PART
	bne isPageDown
	lda #scrollpageup
	bra CallIt

isPageDown	cmp #DOWNP_PART
	bne isThumb
	lda #scrollpagedown
	bra CallIt

isThumb	cmp #THUMB_PART
	bne isNothin
	lda #scrollthumb
	bra CallIt

isNothin	pla
	bra exit

CallIt
	pha	; push command number
	pushlong [<ControlPtr],CtrlOwner ; push	dialog

	ldy #iitemid	; push Scroll Bar ID
	lda [<ControlPtr],y
	pha
	lda <DlgScrollAction
	ldx <DlgScrollAction+1
	jsl long_call	; new value is on stack

;
; Set new value for	control using result of scroll bar dialog action proc.
;
	pushlongdp <theControl
	_SetCtlValue

exit
	unlink
	rtl
	ENDP


;            copy  UserItem.asm
; UserItem.asm		 Jean-Charles Mourey

	TITLE 'UserItem Definition Procedure'


;___________________________________________________________________________
;
;       UserItemDefProc
;
;       input: message:WORD - desired operation
;              param:LONG - depends on operation
;              theControl:LONG - handle	to control
;
;      output: RetValue:LONG - depends on operation
;
;    function: Implements the user item	as a custom control. Calls the user
;              item	definition procedure to draw the item.
;
;        MyItem:
;              input: theDialog:LONG - pointer to the dialog's grafport
;	  itemID:WORD - ID of item to draw
;
;             output: none
;____________________________________________________________________________

	ENTRY UserItemDefProc
UserItemDefProc	PROC

ControlPtr	equ 0
Rect	equ ControlPtr+4
Dialog	equ Rect+RECTSIZE
UserItemProc	equ Dialog+4
SizeLocals	equ UserItemProc+4

	nop
	link 10,SizeLocals

theControl	equ input
param	equ theControl+4
CtlMessage	equ param+4

RetValue	equ output

;
; Zeroes out RetValue
;
	stz <RetValue
	stz <RetValue+2

;
; Check to see which message.  If it is	the RecSize msg then
; skip this part which sets port and origin since pointers
; in control handle	are not yet valid.
;
	lda <CtlMessage
	cmp #RecSize
	beq SkipThisShit
;
; Dereference Control Handle
;
	movelong [<theControl],0,<ControlPtr

;
; Get pointer to the dialog
;
	movelong [<ControlPtr],CtrlOwner,<Dialog

	pushlongdp <Dialog
	_SetPort

	lda #0
	pha
	pha
	_SetOrigin

;
; Dereference Control Handle again
;
	movelong [<theControl],0,<ControlPtr


;
; Dispatch message
;
SkipThisShit
	lda <CtlMessage
	asl a
	tax
	lda >CmdTable,x
	pha
	rts

CmdTable
	DC.W DrawUserItem-1
	DC.W UserItemExit-1
	DC.W TestUserItem-1
	DC.W UserItemExit-1
	DC.W UserItemExit-1
	DC.W UserItemExit-1
	DC.W UserItemExit-1
	DC.W UserItemExit-1
	DC.W UserItemExit-1
	DC.W DrawUserItem-1	; new value fall thru draw routine
	DC.W UserItemExit-1
	DC.W UserItemExit-1
	DC.W RecUserItem-1

UserItemExit
	ldx #SizeLocals
	jmp quitdefproc


*******************
*
* Draw UserItem
*
******************

DrawUserItem

;
; Call the User Item definition procedure to draw it
;
	movelong [<ControlPtr],CtrlData,<UserItemProc

	lda <UserItemProc
	bne CallIt
	lda <UserItemProc+2
	beq DrawExit

CallIt		; 
	pushlongdp <Dialog	; pass dialog pointer
	ldy #iitemid	;  and item ID
	lda [<ControlPtr],y
	pha
	lda <UserItemProc
	ldx <UserItemProc+1
	jsl long_call

DrawExit	brl UserItemExit


*******************
*
* Test UserItem
*
******************

TestUserItem

	movelong #inUserItem,<RetValue

	brl UserItemExit


*******************
*
* RecSize UserItem
*
******************

RecUserItem

;
; Returns UserItemSIZE
;
	movelong #UserItemSIZE,<RetValue

	brl UserItemExit

	ENDP


;            copy  IconItem.asm
; IconItem.asm		 Jean-Charles Mourey

	TITLE 'IconItem Definition Procedure'


;___________________________________________________________________________
;
;       IconItemDefProc
;
;       input: message:WORD - desired operation
;              param:LONG - depends on operation
;              theControl:LONG - handle	to control
;
;      output: RetValue:LONG - depends on operation
;
;    function: Define an item of type icon and implements it as a
;              custom control.
;
; ======================================================
;
;  IconHandle: Handle to an IconRecord
;
;  IconRecord: BoundsRect:RECT - icon rectangle (width must	be multiple of 8)
;              PixelImage: BYTES - icon	bitmap
;
; Change History
;
; 07 Oct 88	Steven Glass
;
; Only deref the control handle if the message is not recsize.
; ======================================================
;____________________________________________________________________________

	ENTRY IconItemDefProc
IconItemDefProc	PROC

ControlPtr	equ 0
Rect	equ ControlPtr+4
Dialog	equ Rect+RECTSIZE
IconHandle	equ Dialog+4
IconPtr	equ IconHandle+4
SizeLocals	equ IconPtr+4

	nop
	link 10,SizeLocals

theControl	equ input
param	equ theControl+4
CtlMessage	equ param+4

RetValue	equ output

;
; Zeroes out RetValue
;
	stz <RetValue
	stz <RetValue+2

	lda <CtlMessage
	cmp #RecSize
	beq SkipThis
;
; Dereference Control Handle
;
	movelong [<theControl],0,<ControlPtr

;
; Get Enclosing Rect
;
	movelong [<ControlPtr],CtrlRect,<Rect
	movelong [<ControlPtr],CtrlRect+4,<Rect+4

;
; Get Dialog Pointer
;
	movelong [<ControlPtr],CtrlOwner,<Dialog


SkipThis
;
; Dispatch message
;
	lda <CtlMessage
	asl a
	tax
	lda >CmdTable,x
	pha
	rts

CmdTable
	DC.W DrawIconItem-1
	DC.W IconItemExit-1
	DC.W TestIconItem-1
	DC.W IconItemExit-1
	DC.W IconItemExit-1
	DC.W IconItemExit-1
	DC.W IconItemExit-1
	DC.W IconItemExit-1
	DC.W IconItemExit-1
	DC.W DrawIconItem-1	; new value fall thru draw routine
	DC.W IconItemExit-1
	DC.W IconItemExit-1
	DC.W RecIconItem-1

IconItemExit
	ldx #SizeLocals
	jmp quitdefproc



**************************
*
* Draw IconItem
*
**************************

DrawIconItem

;
; Get icon handle, lock it and dereference it
;
	movelong [<ControlPtr],CtrlData,<IconHandle

	pushlongdp <IconHandle
	_HLock

	movelong [<IconHandle],0,<IconPtr

	tsc	; make room on the stack for a loc info	record
	sec	; (16 bytes)
	sbc #16
	tcs

	pea 0000	; Push pointer to src loc info record
	inc a
	pha

	pei IconPtr+2	; Push pointer to src rect
	pei IconPtr

	pei Rect+2	; Push dest loc
	pei Rect

	PushWord #0	; Push xfer mode

	DefineStack	; define the current stack offsets
sXferMode	word
sYLoc	word
sXLoc	word
sSrcRectPtr	LONG
sSrcLIPtr	LONG
LIOffset	block 16

	pha	; get current mode from quickdraw.
	_GetMasterSCB
	pla
	and #$0080	; mask off all but mode byte
	tax	; save copy in x for later and 
	sta LIOffset,s	; put mode into LocInfo

	lda IconPtr	; Fill in ImagePtr field of loc info record
	clc	; (Image starts 8 bytes from start of icon)
	adc #8
	sta LIOffset+2,s
	lda IconPtr+2
	adc #0
	sta LIOffset+4,s

	ldy #6	; to fill in the width field we calculate width from
	lda [IconPtr],y	; src rect
	sec
	ldy #2
	sbc [IconPtr],y	; this is width of src rect
	lsr a	; divide by 2 for 320 mode (turns pixels to bytes)
	txy	; check mode (saved	in x earlier)
	beq ModeIs320	; zero means 320 mode
	lsr a	; non-zero means 640 mode so we must divide again
ModeIs320
	sta LIOffset+6,s	; store result in loc info record

	lda [IconPtr]	; Finally, we use the rect from the icon as the
	sta LIOffset+8,s	; bounds rect in the locinfo record.
	ldy #2
	lda [IconPtr],y
	sta LIOffset+8+2,s
	ldy #4
	lda [IconPtr],y
	sta LIOffset+8+4,s
	ldy #6
	lda [IconPtr],y
	sta LIOffset+8+6,s

	_PPToPort	; make the call

	tsc	; take the 16 bytes	for the loc info record back off
	clc	; the stack
	adc #16
	tcs


;
; Unlock icon handle
;
	pushlongdp <IconHandle
	_HUnlock

	brl IconItemExit


*******************
*
* Test IconItem
*
******************

TestIconItem

	movelong #inIconItem,<RetValue

	brl IconItemExit


*******************
*
* RecSize IconItem
*
******************

RecIconItem

;
; Returns IconItemSIZE
;
	movelong #IconItemSIZE,<RetValue

	brl IconItemExit

	ENDP


;            copy  DUndef.asm
; DUndef.asm		Jean-Charles Mourey

	TITLE 'Currently unimplemented Calls & Procedures'

	ENTRY RESERVED
RESERVED	PROC
	rtl
	ENDP

;
; Custom Controls Def Proc
;
	ENTRY PicItemDefProc
PicItemDefProc	PROC
	rtl
	ENDP



**********************************************************************
*
* NormalTextColor
*
* Sets the foreground color to black and the background color to
* white.
*
* Change History
*
* 07 Jun 88	Steve and Harry
*
* Added today.
*
**********************************************************************
NormalTextColor	Proc

	pea $0000
	_SetForeColor
	pea $FFFF
	_SetBackColor

	rts

	ENDP

	END

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/DialogMgr/special.macros b/IIGS.601.SRC/GSToolbox/DialogMgr/special.macros
new file mode 100644
index 0000000..561b9ab
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/DialogMgr/special.macros
@@ -0,0 +1 @@
+* modified link and tlink 24-Sep-90 DAL so they won't TSC SEC SBC#0 TCS

	MACRO
&lab	moveword &from,&to1,&to2
	LCLC &C
&C	setc &substr(&from,1,1)
	IF  &C='['	GOTO .zeropage
&lab	lda &from
	sta &to1
	IF  &to2=''	GOTO .a
	sta &to2
.a
	MEXIT
.zeropage
	IF  &to1='0'	GOTO .b
&lab	ldy #&to1
	lda &from,y
	sta &to2
	MEXIT
.b
&lab	lda &from
	sta &to2
	MEND

	MACRO
&lab	movelong &from,&to1,&to2
	LCLC &C
	LCLC &REST
&C	setc &substr(&from,1,1)
&REST	setc &substr(&from,2,&LEN(&from)-1)
	IF  &C='['	GOTO .zeropage
	IF  &to2=''	GOTO .a
&lab	moveword &from,&to1,&to2
	GOTO .b
.a
&lab	moveword &from,&to1
.b
	IF  &C='#'	GOTO .immediate
	IF  &to2=''	GOTO .c
	moveword &from+2,&to1+2,&to2+2
	MEXIT
.c
	moveword &from+2,&to1+2
	MEXIT
.immediate
	IF  &to2=''	GOTO .d
	moveword #^&REST,&to1+2,&to2+2
	MEXIT
.d
	moveword #^&REST,&to1+2
	MEXIT
.zeropage
&lab	moveword &from,&to1,&to2
	ldy #&to1+2
	lda &from,y
	sta &to2+2
	MEND

	MACRO
&lab	zero &num,&loc
&lab	lda #0
	LCLC &C
&C	setc &substr(&num,1,1)
	IF  &C='#'	GOTO .a
	ldx &num
	dex
	GOTO .b
.a
	ldx &num-1
.b
&C	setc &substr(&loc,1,1)
	IF  &C='['	GOTO .c
@1	sta &loc,x
	GOTO .d
.c
	ldy #0
@1	sta &loc,y
	iny
	iny
.d
	dex
	dex
	bpl @1
	MEND

	MACRO
&lab	Check_Error &error_jmp
&lab	bcc @1
	brl &error_jmp
@1
	MEND

	MACRO
&lab	link &SizeInput,&SizeLocals
	lclc &SL
&SL	setc &DEFAULT(&SizeLocals,'0')
input	equ &SL+3
output	equ input+&SizeInput
&lab	tsc
	if &SL='0' GOTO .DontSubtract
	sec
	sbc #&SL
	tcs
.DontSubtract
	phd
	inc a
	tcd
	MEND

	MACRO
&lab	unlink
&lab	pld
	tay
	lda input-1,s
	sta output-1,s
	lda input-2,s
	sta output-2,s
	tsc
	clc
	adc #output-3
	tcs
	tya
	cmp #1
	MEND

	MACRO
&lab	tlink &SizeInput,&SizeLocals
	lclc &SL
&SL	setc &DEFAULT(&SizeLocals,'0')
input	equ &SizeLocals+6
output	equ input+&SizeInput
&lab	tsc
	if &SL='0' GOTO .DontSubtract
	sec
	sbc #&SL
	tcs
.DontSubtract
	phd
	inc a
	tcd
	MEND

	MACRO
&lab	tunlink
&lab	pld
	tay
	lda input-1,s
	sta output-1,s
	lda input-3,s
	sta output-3,s
	lda input-5,s
	sta output-5,s
	tsc
	clc
	adc #output-6
	tcs
	tya
	cmp #1
	MEND

	MACRO
&lab	pushay
&lab	phy
	pha
	MEND

	MACRO
&lab	lday &addr,&offset
	LCLC &C
&C	setc &SUBSTR(&addr,1,1)
	IF  &C='#'	GOTO .immediate
	IF  &C='['	GOTO .zeropage
&lab	lda &addr
	ldy &addr+2
	MEXIT
.immediate
&lab	lda &addr
	ldy &addr|-16
	MEXIT
.zeropage
&lab	ldy #&offset+2
	lda &addr,y
	pha
	ldy #&offset
	lda &addr,y
	ply
	MEND

	MACRO
&lab	stay &addr
&lab	sta &addr
	sty &addr+2
	MEND

	MACRO
&lab	pullay
&lab	pla
	ply
	MEND

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/EVENTS/em.KBDStuff b/IIGS.601.SRC/GSToolbox/EVENTS/em.KBDStuff
new file mode 100644
index 0000000..c723591
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/EVENTS/em.KBDStuff
@@ -0,0 +1 @@
+	EJECT
*******************************************************************************
*
GetKeyTranslation	PROC EXPORT
*
* Description:	returns the current keyboard translation number
*
*
* Inputs:   None
*
* Outputs:  	TransID:WORD
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
SaveDPage	equ 1
RTL1	equ SaveDPage+2
RTL2	equ RTL1+3
Result	equ RTL2+3

; first set up the stack the way we want to see it!
	phd	; save the old direct register
	tcd	; and use the EMDirectPage
	bne @OK1	; If em's dpage is zero then tool not started
	ldx #ActiveErr	; return error if em not started
	bra @ErrOut
;
; If we get here, everything is groovy!
@OK1
; get the current translation from BRAM ...

	pha	; room for result
	lda #kTransBParamLoc
	pha
	_ReadBParam	; get our parameter
	bcs @1	; if error skip next line
	lda #0	; no error, use zero here
@1	tax	; store the error in <X>

	pla
	sta Result,s	; save it as our result
@ErrOut
	pld	; restore the direct page
	txa	; put the error in <A>
	cmp #1	; and set the carry if error <>0
	RTL	; and exit.
	
	EndP
	
	EJECT
*******************************************************************************
*
SetKeyTranslation	PROC EXPORT
*
* Description:	Dumps the old key translation table that we were using, and
*	if the number passed is valid, sets a new one. If the passed
*	number is invalid, then we set it to $FF, or standard.
*
*
* Inputs:	TransID:WORD
*
* Outputs:  	None
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
SaveDPage	equ 1
RTL1	equ SaveDPage+2
RTL2	equ RTL1+3
TransID	equ RTL2+3
; first set up the stack the way we want to see it!
	phd	; save the old direct register
	tcd	; and use the EMDirectPage
	bne @OK1	; If em's dpage is zero then tool not started
	ldx #ActiveErr	; return error if em not started
	brl @ErrOut
;
; If we get here, everything is groovy!
@OK1
; First thing to do is swap in the Apps resID if the event manager exists...
	stz <kTransTemp
	
	pea 0
	_ResourceStatus
	pla
	beq @NoResMgr	; if zero, no resource manager...
	pha
	_GetCurResourceApp
	pla
	sta <kTransTemp
	
	pei <ProgID	; swap the apps res file in...
	_SetCurResourceApp
@NoResMgr
; get the current translation from BRAM ...

	lda <kTransRef	; test to see if we have a table in current use...
	ora <kTransRef+2	
	bne @OK2
	brl @LoadNew	; if not, just load us a new one!
@OK2
	pha	; room for result
	lda #kTransBParamLoc
	pha
	_ReadBParam	; get our parameter
	bcc @1	; if error skip next line
	tax	; place the error in <X>
	pla	; strip the offending junk from the stack
	brl @ErrOut	; and report the error

@1
	pla	; convert it to the right number
	and #$00FF
	ora #$0600	; add event mgr ID
	tax	; save it in <X> for a second...

	pea $8021	; ktrans resource type
	pea $0FFF	; resource ID
; create the low byte of the ID here!
	phx	; event manager resource #1
	_ReleaseRomResource	; now call releaseROMResource
	bcc @2	; 
	tax	; place the error in <X>
	pla	; strip the offending junk from the stack
	brl @ErrOut	; and report the error

@2
;
; This next routine tries to load the passed ktrans table, if its -1, it will try to
; load the default.
@LoadNew
	stz <ktransRef
	stz <ktransRef+2
	stz <kTransFlag

	lda TransID,s	; load in the translation ID
	bpl @LN0010
	
	pha	; room for result
	pea kTransBParamLoc
	_ReadBParam	; get our parameter
	pla
	sta TransID,s	; and save this as the proper translation to load

@LN0010	lda TransID,s	; get the desired translation...
	beq @DLKTDone	; if zero, then bag it!
	and #$00FF
	ora #$0600	; add event mgr ID
	tax	; save it in <X> for a seconf...
	pha	; room for result
	pha
	pea $8021	; ktrans resource type
	pea $0FFF	; resource ID
; create the low byte of the ID here!
	phx 	; event manager resource #
	_GetRomResource	; now call getROMResource
	bcc @LN0020	; If any error occured, try the default translation...
	pla
	pla
	lda transID,s	; get the current trans ID...
	cmp #$00FF	; is it the default?
	beq @LN0015	; if so, skip the next line...
	lda #$00FF	; if an error occured, use ROM based res
	sta TransID,s
	bra @LN0010	; and try again!

; This next two lines should never be executed, but just in case....
@LN0015	lda #00	; set the translation to none
	sta TransID,s
	bra @DLKTDone
	
@LN0020	pla
	sta <ktransRef	; save the resource handle
	pla
	sta <ktransRef+2	; save the pointer+2
@DLKTDone
	lda TransID,s	; now set batteryRAM to the new value
	pha
	lda #kTransBParamLoc
	pha
	_WriteBParam	; and write the battery parameter.
	lda #0	; set no error

@ErrOut
	phx
	
	pea 0
	_ResourceStatus
	pla
	beq @NoResMgr2	; if zero, no resource manager...
	
	pei <kTransTemp	; swap the apps res file in...
	_SetCurResourceApp
@NoResMgr2
	plx
	lda RTL1+4,s	; move the return address
	sta RTL1+6,s
	lda RTL1+2,s	; move the return address
	sta RTL1+4,s
	lda RTL1,s	; move the return address
	sta RTL1+2,s
	pld	; restore the direct page
	pla	; discard parameter overhead
	txa	; put the error in <A>
	cmp #1	; and set the carry if error <>0
	RTL	; and exit.
	EndP
	
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/EVENTS/em.asm b/IIGS.601.SRC/GSToolbox/EVENTS/em.asm
new file mode 100644
index 0000000..b982135
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/EVENTS/em.asm
@@ -0,0 +1 @@
+	title 'Event Manager        GS ROM 3.0'
********************************************************
*		               *
*                 Event Manager	               *
*		               *
********************************************************

********************************************************
*		               *
*              Copyright (C) 1985-1989	               *
*              Apple Computer, Inc.	               *
*              All Rights Reserved	               *
*		               *
********************************************************


********************************************************
*		               *
* Change History		               *
*		               *
* Version 2.0		               *
*		               *
*   Summer 86	         Cherly Ewy	               *
*		               *
*   Posting an illegal event code won't crash the      *
*   system.		               *
*		               *
*   December 23, 1986        SEG	               *
*		               *
*   EMStartup and EMShutdown were modified to save a   *
*   few bytes.  All	the PushWord #0 lines that were putting	 *
*   result space on	the stack were changed to PHA.     *
*   All the Get and	Set vector calls went through      *
*   glue routines, saving 3 bytes each for 45 bytes.   *
*   The NewHandle call was replaced with a call to     *
*   SpecialNewHandle.	               *
*		               *
*   February 27, 1987        Cheryl Ewy	               *
*		               *
*   Auto key events	are no longer posted unless        *
*   the queue is empty.	               *
*		               *
*   June 13, 1988            Joe Bo                    *
*                                                      *
*   Change locations for double click time ($2E to $38)*
*   and cursor flash rate ($2F to $2E) in battery ram. *                        
*   		               *
*   Change EMStartUp & FakeMouse routines for only     *
*   ADB mouse to work with.                            *
*		               *
*
* 29 Jun 88	Steven Glass
*
* Two things were wrong in TickCount.  First the TickCnt 
* was being accessed with interrupts active and second, 
* if journaling was active, the journaling code was 
* called with the wrong direct page register.
*
* 30 Jun 88	Steven Glass & Cheryl Ewy
*
* Changed post event to look at AutoKeyLimit when
* posting AutoKey events.
*
* Added call SetAutoKeyLimit.
*
* 21 Jan 89	Mensch
* 
* Added kTrans table support in EMStartup, getNextEvent
* and EventAvail.
*
* Changed all ReadMouse calls to ReadMouse2 calls.
* 
* 26 Jan 89	Mensch
*
* Modified ktrans stuff to use the batery RAM location $5A
* to get our resource ID.
*
* 07 Feb 89	Mensch
*
* Added GetKeyTranslation & SetKeyTranslation calls, modified the 
* startup stuff so it doesn't crash when you have picked none.
* from the control panel for key remapping.
*
* 13 Feb 89	Mensch
*
* Fix emstartup to properly call the new setkeytranslation 
* routine.
*
*
*
*
*  3/20/89	Mark Cecys
*
*  Added "MIDIInputPoll" in time-consuming routines. If assem directive "midi"
*  is set to one, then polling will be assembled, otherwise if set to zero,
*  no MIDI polling will be added. This is used by MidiTools which patches in
*  its local cursor routines to prevent SCC over-run. (EM makefile has midi=0)
*  The following PROC's are affected:
*	PostEvent
*	GetOSEvent
*	DeQueue
*	FillRecord
*	Mouse
*
* 26-Sep-90	Dave Lyons
*
* Change SysDeathMgr to SysFailMgr to make it build
* with current interfaces.
*
* 24-Feb-91	Dave Lyons
*
* Added EMStartUp call to UseCoolMousePos to set the mouse position from
* MessageCenter message number 6.
*
********************************************************
*
* 3-Jun-92	Dave Lyons
*
* UseCoolMousePos (called by EMStartUp in both patch files) now puts the
* mouse at (26,17) for 640 (or (13,17) in 320) if there's no Message #6.
*
********************************************************

	include 'all.macros'
	include '::sys.equs.asm'

	MACRO
&lab	PushPtr &addr
&lab
	dc.B $F4
	dc.W (&addr)>>16
	dc.B $F4
	dc.W &addr
	MEND

EMVerNum	equ $0300	;V3.0

*---------------------------------------------------------------
* Constants
*---------------------------------------------------------------

True	equ $0001
False	equ $0000
EMTSNum	equ 6	;tool set num for Event Mgr
InitErr	equ $0601	;duplicate init call
ResetErr	equ $0602	;can't reset Event Mgr
ActiveErr	equ $0603	;Event Mgr not active
CodeErr	equ $0604	;illegal event code
BtnErr	equ $0605	;illegal button number
SizeErr	equ $0606	;queue size too large
MemErr	equ $0607	;not enough mem for	queue
QError	equ $0681	;fatal system error	- damaged queue
HError	equ $0682	;fatal system error	- damaged Q handle
TaskSig	equ $A55A	;signature word for	heartbeat task
KeyBufParam	equ $2B	;for ReadBParam call
ClickParam	equ $2E	;     "
FlashParam	equ $2F	;     "
MouseDown	equ 1	;event code
MouseUp	equ 2	;     "
KeyDown	equ 3	;     "
AutoKey	equ 5	;     "
Update	equ 6	;     "
Activate	equ 8	;     "
Switch	equ 9	;     "
DeskAccessory	equ 10	;     "
BUpdate	equ $0040	;bit 6 set
BActivate	equ $0100	;bit 8 set
BSwitch	equ $0200	;bit 9 set
Btn0bit	equ $0080	;used with modifiers field
Btn1bit	equ $0040	;     "
RepeatBit	equ $0800	;used with mod keys	latch
MovedBit	equ $2000	;used with BStat
MoveIntBit	equ $0002	;     "
BtnIntBit	equ $0004	;     "
JcTickCount	equ 0	;journal code
JcGetMouse	equ 1	;     "
JcButton	equ 2	;     "
JcEvent	equ 4	;     "
EvtSize	equ 16	;size of event record in bytes
EvtQSize	equ 18	;size of event record incl link field
DefaultQ	equ 20	;default queue size
MaxQ	equ 3639	;max queue size
MsgOffset	equ 2	;offset to Message field
WhenOffset	equ 6	;offset to When field
WhereOffset	equ 10	;offset to Where field
ModsOffset	equ 14	;offset to Modifiers field
EvtOffset	equ 2	;offset to event record from start of
;		;event queue element
KindOffset	equ 4	;offset to WindowKind field in window

*---------------------------------------------------------------
* Hardware Equates
*---------------------------------------------------------------

MouseMode	equ $7F8	;mouse mode byte
KeyLatch	equ $C000	;keyboard keypress latch
KbdStrobe	equ $C010	;keyboard strobe
ModLatch	equ $C025	;keyboard modifiers	latch
CardType	equ $C02D	;bit 4 specifies internal/external card

*---------------------------------------------------------------
* Event Manager Zero Page
*---------------------------------------------------------------

EMZBase	equ 0
TempEvent	equ EMZBase
UserEvtPtr	equ TempEvent+16
JResultPtr	equ UserEvtPtr+4
SaveLink	equ JResultPtr+4
TempLink	equ SaveLink+2
TempPtr	equ TempLink+2
TempBits	equ TempPtr+4
SysEventMask	equ TempBits+2	;system event mask
QHandle	equ SysEventMask+2	;handle for event queue
QPtr	equ QHandle+4	;pointer to event queue
QSize	equ QPtr+4	;max number of events in queue
QHead	equ QSize+2	;link to first queue element
QTail	equ QHead+2	;link to last queue	element
CheckButton	equ QTail+2
WhichButton	equ CheckButton+2
GotSwitchCall	equ WhichButton+2	;1 if switch event pending, 0 if not
WindowMgr	equ GotSwitchCall+2	;1 if Window Mgr init, 0 if not
RemoveEvent	equ WindowMgr+2	;flag used by GetNextEvent
OSRemoveEvent	equ RemoveEvent+2	;flag used by GetOSEvent
GotMouse	equ OSRemoveEvent+2	;1 if mouse present, 0 if not
ExtMouse	equ GotMouse+2	;1 if external mouse, 0 if not
MouseAdrs	equ ExtMouse+2	;original mouse vector
KBAdrs	equ MouseAdrs+4	;original keyboard vector
DAAdrs	equ KBAdrs+4	;original desk accesory vector
FBAdrs	equ DAAdrs+4	;original flush buffer vector
VBLAdrs	equ FBAdrs+4	;original VBL vector
KBufOn	equ VBLAdrs+4	;1 if keyboard buffering on before init
KBOn	equ KBufOn+2	;1 if keyboard interrupts on before init
VBLOn	equ KBOn+2	;1 if VBL interrupts on before init
SaveMode	equ VBLOn+2	;original mouse mode
SaveP	equ SaveMode+2	;original processor	status
ProgID	equ SaveP+2	;program ID used with mem mgr
FromGNE	equ ProgID+2	;flag used by GetOSEvent

AutoKeyLimit	equ FromGNE+2	; added 30 Jun 88 SEG
ktransRef	equ AutoKeyLimit+2	; added 1/22/89 Mensch (4 byte)
kTransFlag	equ kTransRef+4	; added 1/23/89 Mensch (2 Byte)
kTransTemp	equ kTransFlag+2	; added 4/19/89 Mensch (2 Byte)
;
kTransBParamLoc	equ $5A	; battery ram parameter we use...
*---------------------------------------------------------------
* Window Manager Zero Page (used by Event Manager)
*---------------------------------------------------------------

WMZBase	equ 128
FlgActive	equ WMZBase
FlgDeActive	equ FlgActive+2
CurActive	equ FlgDeActive+2
CurDeActive	equ CurActive+4
CurDeKind	equ CurDeActive+4



;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

	IMPORT EndCall0
	IMPORT EndCall10
	IMPORT EndCall14
	IMPORT EndCall2
	IMPORT EndCall4
	IMPORT EndCall6
	IMPORT ErrOut0
	IMPORT ErrOut10
	IMPORT ErrOut14
	IMPORT ErrOut2
	IMPORT ErrOut4
	IMPORT ErrOut6
	IMPORT GetVectorGlue
	IMPORT IRQ_Heart
	IMPORT MouseEquates
	IMPORT SetVectorGlue
	IMPORT SpecialNewHandle
	IMPORT oEndCall0
	IMPORT oErrOut0
	IMPORT oErrOut14

;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

	ENTRY Button
	ENTRY DeQueue
	ENTRY DeskAcc
	ENTRY DoJournal
	ENTRY DoWindows
	ENTRY EMActive
	ENTRY EMBootInit
	ENTRY EMReset
	ENTRY EMShutDown
	ENTRY EMStartUp
	ENTRY EMVersion
	ENTRY EnQueue
	ENTRY EventAvail
	ENTRY FakeMouse
	ENTRY FillRecord
	ENTRY FlushBuf
	ENTRY FlushEvents
	ENTRY GetCaretTime
	ENTRY GetDblTime
	ENTRY GetGlobalLoc
	ENTRY GetMouse
	ENTRY GetNextEvent
	ENTRY GetOSEvent
	ENTRY KeyBoard
	ENTRY LockQ
	ENTRY Mouse
	ENTRY Mouse3
	ENTRY MouseTask
	ENTRY OSEventAvail
	ENTRY PostEvent
	ENTRY SetEventMask
	ENTRY SetModBits
	ENTRY SetSwitch
	ENTRY StillDown
	ENTRY TickCount
	ENTRY UnLockQ
	ENTRY WaitMouseUp
	Entry GetKeyTranslation
	Entry SetKeyTranslation

****************************************************************
*
* CALL TABLE
*
****************************************************************

	EXPORT EMCallTable
EMCallTable	PROC
	import SetAutoKeyLimit


	DC.L (TheEnd-EMCallTable)/4 ;num calls + 1
	DC.L EMBootInit-1
	DC.L EMStartUp-1
	DC.L EMShutDown-1
	DC.L EMVersion-1
	DC.L EMReset-1
	DC.L EMActive-1
	DC.L oEndCall0-1
	DC.L oEndCall0-1
	DC.L DoWindows-1
	DC.L GetNextEvent-1
	DC.L EventAvail-1
	DC.L GetMouse-1
	DC.L Button-1
	DC.L StillDown-1
	DC.L WaitMouseUp-1
	DC.L TickCount-1
	DC.L GetDblTime-1
	DC.L GetCaretTime-1
	DC.L SetSwitch-1
	DC.L PostEvent-1
	DC.L FlushEvents-1
	DC.L GetOSEvent-1
	DC.L OSEventAvail-1
	DC.L SetEventMask-1
	DC.L FakeMouse-1		; $1906
	DC.L SetAutoKeyLimit-1	; $1A06
	DC.L GetKeyTranslation-1	; 2/7/89 {$1B06}
	DC.L SetKeyTranslation-1	; 2/7/89 {$1C06}

TheEnd		; 
	ENDP

;                APPEND init



****************************************************************
*
* DATA DECLARATIONS
*
****************************************************************

	EXPORT EMData
EMData	PROC


*---------------------------------------------------------------
* Tables
*---------------------------------------------------------------

	EXPORT BStatMask
BStatMask	DC.B %00000000,%10000000 ;button 0 mask
	DC.B %00000000,%00010000 ;button 1 mask

	EXPORT MaskTable
MaskTable	DC.B %00000001,%00000000
	DC.B %00000010,%00000000
	DC.B %00000100,%00000000
	DC.B %00001000,%00000000
	DC.B %00010000,%00000000
	DC.B %00100000,%00000000
	DC.B %01000000,%00000000
	DC.B %10000000,%00000000
	DC.B %00000000,%00000001
	DC.B %00000000,%00000010
	DC.B %00000000,%00000100
	DC.B %00000000,%00001000
	DC.B %00000000,%00010000
	DC.B %00000000,%00100000
	DC.B %00000000,%01000000
	DC.B %00000000,%10000000

	EXPORT ModBitTable
ModBitTable	DC.B %00000000,%00000010 ;ShiftKey bit
	DC.B %00000000,%00010000 ;ControlKey bit
	DC.B %00000000,%00000100 ;CapsLock bit
	DC.B %00000000,%00000000
	DC.B %00000000,%00100000 ;KeyPad bit
	DC.B %00000000,%00000000
	DC.B %00000000,%00001000 ;OptionKey bit
	DC.B %00000000,%00000001 ;AppleKey bit

	EXPORT ClickTable
ClickTable	DC.L 50
	DC.L 40
	DC.L 30
	DC.L 20
	DC.L 10

	EXPORT FlashTable
FlashTable	DC.L 0	;no flash
	DC.L 60
	DC.L 30
	DC.L 15
	DC.L 10

	EXPORT FDBData
FDBData	DC.B $10	;data byte used for	FDB tool call

	ENDP




****************************************************************
*
* EMBootInit
*
****************************************************************

	EXPORT EMBootInit
EMBootInit	PROC
	jmp oEndCall0
	ENDP



****************************************************************
*
* EMStartUp
*
* Modified 1/22/89 Mensch
* Calls the DoLoadKTrans routine at startup to load the current ktrans table
* and store a pointer to it in direct page.
*
* See beginning of file. --DAL
*
****************************************************************

	EXPORT EMStartUp
EMStartUp	PROC
	Import DoLoadKTrans
	import UseCoolMousePos

	cmp #0	;already initialized?
	beq Doit	;no
	ldx #InitErr	;yes - so return error
	jmp oErrOut14

Doit	phd
	lda 21,s	;get zero page address
	tcd

	ldx #$FE
Loop	stz <EMZBase,x	;clear zero page
	dex
	dex
	bpl Loop

	lda #0
	ldx #10	;12 bytes to clear
Loop2	sta >EvMgrData,x	;clear permanent data area
	dex
	dex
	bpl Loop2

	lda 9,s	;get program ID
	sta <ProgID

	lda 19,s	;get queue size (# event records)
	bne CheckSize
	lda #DefaultQ	;default queue size
CheckSize	cmp #MaxQ+1
	bcc OK
	ldx #SizeErr	;queue size too big
	jmp ErrOut14

OK	inc a	;first element of Q	never used
	sta <QSize
	asl a	;multiply queue size by 18 to get
	asl a	;size in bytes
	asl a	;QSize * 8
	clc
	adc <QSize	;QSize * 9
	asl a	;QSize * 18

	ldx <ProgID
	ldy #$0004	; page aligned, unpurgeable
	jsr SpecialNewHandle

	bcc GotMem
	ldx #MemErr
	jmp ErrOut14

GotMem	stx <QHandle
	sty <QHandle+2
	jsr LockQ	;lock Q and dereference handle

	ldx <QSize
	ldy #EvtOffset	;offset to event code in element
QLoop	lda #$FFFF
	sta [<QPtr],y	;mark all Q elements as free
	tya
	clc
	adc #EvtQSize
	tay
	dex
	bne QLoop

	lda #$EEEE
	ldy #EvtOffset
	sta [<QPtr],y	;mark first Q element as used

	jsr UnLockQ	;unlock queue

	lda #$FFFF	;init system event mask to post
	sta <SysEventMask	;all events

	php
	php
	pla	;save original processor status
	sta <SaveP
	sei	;turn off interrrupts

	pha	;get status of hardware interrupts
	_GetIRQEnable
	pla
	xba
	rol a
	rol <KBOn	;set flag if keyboard interrupts on
	rol a
	rol <VBLOn	;set flag if VBL interrupts on
;		;save original interrupt vectors
	pha
	pha
	PushWord #$0D	mouse
	jsl GetVectorGlue
	pla
	sta <MouseAdrs
	pla
	sta <MouseAdrs+2

	pha
	pha
	PushWord #$0F	;keyboard
	jsl GetVectorGlue
	pla
	sta <KBAdrs
	pla
	sta <KBAdrs+2

	pha
	pha
	PushWord #$12	;desk accessory
	jsl GetVectorGlue
	pla
	sta <DAAdrs
	pla
	sta <DAAdrs+2

	pha
	pha
	PushWord #$13	;flush buffer
	jsl GetVectorGlue
	pla
	sta <FBAdrs
	pla
	sta <FBAdrs+2

	pha
	pha
	PushWord #$0C	;VBL
	jsl GetVectorGlue
	pla
	sta <VBLAdrs
	pla
	sta <VBLAdrs+2
;		;install interrupt handlers
	PushWord #$0D
	PushPtr Mouse	;mouse
	jsl SetVectorGlue
	PushWord #$0F
	PushPtr KeyBoard	;keyboard
	jsl SetVectorGlue
	PushWord #$12
	PushPtr DeskAcc	;desk accessory
	jsl SetVectorGlue
	PushWord #$13
	PushPtr FlushBuf	;flush buffer
	jsl SetVectorGlue
	PushWord #$0C
	PushPtr IRQ_Heart	;VBL
	jsl SetVectorGlue

	pha	;result
	PushWord #KeyBufParam ;get status of keyboard buffering
	_ReadBParam
	pla
	sta <KBufOn
	bne DoInts	;keyboard buffering	is on

	PushWord #1	;# of data bytes
	PushPtr FDBData	;push address of data byte
	PushWord #4	;mode cmd
	_SendInfo	;(_FDBCmd)	;enable keyboard buffering

DoInts	PushWord #2	;enable VBL interrupts
	_IntSource
	PushWord #0	;enable keyboard interrupts
	_IntSource
	PushWord #10	;enable data reg interrupts
	_IntSource

	lda >MouseSlot-1	;has SetMouse been called?
	bmi NoMode	;no
;	xba	;get slot in lo byte
;	and #$FF	;mask off hi byte
;	tax
;	lda >MouseMode,x	;get current mode

	lda >MseMode	;get current mode
	and #$F	;mask off all but bits 0-3
	sta <SaveMode

NoMode	PushWord #0	;find mouse
	_InitMouse
	bcs SetClamps	;branch if no mouse

	inc <GotMouse	;set mouse flag

;	lda >MouseSlot	;check slot mouse is in
;	and #$FF	;mask off hi byte
;	cmp #4	;in slot 4?
;	bne DoExt	;no - so external card

;	LONGA off
;	LONGI off
;	sep #%00110000	;go into 8-bit mode

;	lda >CardType

;	LONGA on
;	LONGI on
;	rep #%00110000	;go back to 16-bit mode

;	and #$10	;check bit 4
;	bne DoExt	;it's set so external card
;		;it's clear so internal FDB mouse

	PushWord #7	;interrupt on movement and button
	_SetMouse	;turn on mouse
	bra SetClamps

;DoExt	PushWord #1	;transparent mode
;	_SetMouse	;turn on mouse

;	lda #1
;	sta <ExtMouse	;set external mouse	flag
;	sta >TaskHead+4	;set up task counter
;	lda #TaskSig
;	sta >TaskHead+6	;set up signature word
;	lda #MouseTask
;	pha
;	xba	;set up JMP to MouseTask
;	and #$FF00
;	ora #$005C
;	sta >TaskHead+8
;	pla
;	and #$FF00
;	ora #^MouseTask
;	xba
;	sta >TaskHead+10

;	PushPtr TaskHead
;	_SetHeartBeat	;install mouse task	in heartbeat queue


SetClamps	lda 17,s	;X min
	pha
	sta >EMXPos	;init X position in	case no mouse
	lda 17,s	;X max
	sec
	sbc #1
	pha
	lda 17,s	;Y min
	pha
	sta >EMYPos	;init Y position in	case no mouse
	lda 17,s	;Y max
	sec
	sbc #1
	pha
	_ClampMouse	;set mouse (relative device) clamps

	lda 17,s	;X min
	pha
	lda 17,s	;X max
	sec
	sbc #1
	pha
	lda 17,s	;Y min
	pha
	lda 17,s	;Y max
	sec
	sbc #1
	pha
	_SetAbsClamp	;set absolute device clamps

	_HomeMouse	;position mouse at min clamps
	bcs Done	;branch if no mouse

	pha
	pha
	pha
	_readMouse2	;set up initial values
	pla
	sta >EMBStat
	pla
	sta >EMYPos
	pla
	sta >EMXPos

Done	lda >EMXPos
	pha
	lda >EMYPos
	pha
	jsl CUpdate	;init cursor to min	clamps

	lda 21,s	;get zero page address
	PushWord #0
	PushWord #EMTSNum
	PushWord #0
	pha
	_SetWAP	;set work area pointer

	jsl UseCoolMousePos	;added 24-Feb-91 DAL

	jsr DoLoadKTrans	; added 1/22/89 and 2/13/89!

	cli	;enable interrupts
	jmp EndCall14
	ENDP



****************************************************************
*
* EMShutDown
*
****************************************************************

	EXPORT EMShutDown
EMShutDown	PROC

	phd
	tcd
	bne Doit
	ldx #ActiveErr	;return error if EM	not active
	jmp ErrOut0

Doit	sei	;turn off  interrupts

	pea TaskHead>>16
	pea TaskHead**$FFFF
	_DelHeartBeat	;remove mouse task from heartbeat Q

	lda <KBufOn	;was keyboard buffering on before init?
	bne Cont	;yes - so don't turn off
	PushWord #1	;# of data bytes
	PushPtr FDBData	;push address of data byte
	PushWord #5	;mode cmd
	_SendInfo	; (_FDBCmd)	;disable keyboard buffering

Cont	lda <VBLOn	;were VBL interrupts on before init?
	bne Cont1	;yes - so don't turn off
	PushWord #3	;disable VBL interrupts
	_IntSource

Cont1	lda <KBOn	;were keyboard interrupts on
	bne Cont2	;yes - so don't turn off
	PushWord #1	;disable keyboard interrupts
	_IntSource

Cont2	lda <GotMouse	;is mouse present?
	beq Cont3	;no
	lda <SaveMode	;yes - so set mouse	mode back to
	pha	;original value
	_SetMouse
;		;restore original interrupt vectors
Cont3	PushWord #$0D
	PushLong <MouseAdrs	;mouse
	jsl SetVectorGlue
	PushWord #$0F
	PushLong <KBAdrs	;keyboard
	jsl SetVectorGlue
	PushWord #$12
	PushLong <DAAdrs	;desk accessory
	jsl SetVectorGlue
	PushWord #$13
	PushLong <FBAdrs	;flush buffer
	jsl SetVectorGlue
	PushWord #$0C
	PushLong <VBLAdrs	;VBL
	jsl SetVectorGlue

	lda <QHandle+2	;release queue space
	pha
	lda <QHandle
	pha
	_DisposeHandle

; dump the keytrans table that we loaded to start with ...
	pha	; room for result
	lda #kTransBParamLoc
	pha
	_ReadBParam	; get our parameter
	pla
	beq DDKTDone	; if zero, then bag it!
	and #$00FF
	ora #$0600	; add event mgr ID
	tax	; save it in <X> for a seconf...

	pea $8021	; ktrans resource type
	pea $0FFF	; resource ID
; create the low byte of the ID here!
	phx	; event manager resource #1
	_ReleaseRomResource	; now call releaseROMResource
DDKTDone
	PushWord #0
	PushWord #EMTSNum
	PushWord #0
	PushWord #0
	_SetWAP	;clear work area pointer

	lda <SaveP
	pha
	plp
	plp	;restore original processor status

	jmp EndCall0

	ENDP



****************************************************************
*
* EMVersion
*
****************************************************************

	EXPORT EMVersion
EMVersion	PROC
	lda #EMVerNum
	sta 7,s
	jmp oEndCall0
	ENDP


****************************************************************
*
* EMReset
*
****************************************************************

	EXPORT EMReset
EMReset	PROC
	cmp #0	;is EM active?
	beq Done	;no
	ldx #ResetErr	;yes - so return error
	jmp oErrOut0

Done	jmp oEndCall0
	ENDP


****************************************************************
*
* EMActive
*
****************************************************************

	EXPORT EMActive
EMActive	PROC
	sta 7,s
	jmp oEndCall0
	ENDP

;                APPEND tbem



****************************************************************
*
* DoWindows
*
****************************************************************

	EXPORT DoWindows
DoWindows	PROC
	phd
	tcd
	bne Doit
	ldx #ActiveErr	;EM not active
	jmp ErrOut0

Doit	sta 9,s	;return Event Mgr's zero page reg
	lda #1
	sta <WindowMgr	;set flag
	jmp EndCall0
	ENDP



****************************************************************
*
* GetNextEvent
*
****************************************************************

	EXPORT GetNextEvent
GetNextEvent	PROC
	phd
	tcd
	bne Doit
	ldx #ActiveErr	;EM not active
	jmp ErrOut6

Doit	inc <RemoveEvent

	EXPORT GNECommon
GNECommon		;       
	lda 9,s	;move event ptr onto zero page
	sta <UserEvtPtr
	lda 11,s
	sta <UserEvtPtr+2
	jsr GetNullEvent	;get a null event record
	jsr CheckActivate	;check for activate	event
	bne GotEvent
	jsr CheckSwitch	;check for switch event
	bne GotEvent
	jsr CheckQueue	;check event queue
	bne GotEvent
	jsr CheckUpdate	;check for update event
	bne GotEvent
	lda >JournalFlag	;journaling on?
	beq Done	;no
	PushWord #0	;push address of TempEvent
	clc	;so GetMouse will have a place to
	tdc	;store its result
	adc #TempEvent
	pha
	jsl xGetMouse	;read mouse so it will be journalled
	bra RetFalse	;return a null event

GotEvent	
	lda <RemoveEvent	;EventAvail call?
	beq RetTrue	;yes - so don't call Desk Mgr
	PushWord #0	;push result
	ldy #EvtSize-2	;push event on stack
Loop	lda [<UserEvtPtr],y
	pha
	dey
	dey
	bpl Loop
	_SystemEvent	;call Desk Mgr
	pla	;did system grab event?
	beq RetTrue	;no
RetFalse	lda #False	;yes
	bra Done

RetTrue	lda #True
Done	sta 15,s
	stz <RemoveEvent
	jmp EndCall6

*------------------------------------------------------------------------------

GetNullEvent	lda #0	;mask out all events
	jsr GetEvent
	rts

*-------------------------------------------------------------------------------

CheckActivate	lda 15,s	;get event mask
	and #BActivate	;activate event enabled?
	beq ADone	;no - so return false
	lda <FlgDeActive	;see if deactive event pending
	bne GotDeActive	;got one
	lda <FlgActive	;see if activate event pending
	beq ADone	;none so return false
	ldy #MsgOffset
	lda <CurActive	;move window pointer into event msg
	sta [<UserEvtPtr],y
	iny
	iny
	lda <CurActive+2
	sta [<UserEvtPtr],y
	lda #1
	sta <TempBits	;set activate flag
GotActCommon	lda <CurDeActive	;get deactivated window
	beq Q1	;branch if none
	lda <CurActive	;get active window
	beq Q1	;branch if none
	ldy #KindOffset
	lda [<CurActive],y	;get WindowKind
	eor <CurDeKind	;did hi bit change?
	bpl Q1	;no
	lda <Tempbits
	ora #2	;set change flag
	sta <TempBits
Q1	ldy #ModsOffset
	lda [<UserEvtPtr],y	;get modifiers field
	ora <TempBits	;or in flag bits
	sta [<UserEvtPtr],y	;put it back
	lda <RemoveEvent	;EventAvail call?
	beq ACont	;yes - so don't clear flags
	lda <FlgDeActive	;deactivate event?
	beq ClearActive	;no - so must be activate event
	stz <FlgDeActive	;clear deactivate flag
	bra ACont

ClearActive	stz <FlgActive	;clear activate flag
ACont	lda #Activate
	sta [<UserEvtPtr]	;event code
	lda #True
ADone	rts

GotDeActive	stz <TempBits	;clear the activate	flag
	ldy #MsgOffset
	lda <CurDeActive	;move window pointer into event msg
	sta [<UserEvtPtr],y
	iny
	iny
	lda <CurDeActive+2
	sta [<UserEvtPtr],y
	bra GotActCommon

*-------------------------------------------------------------------------------

CheckSwitch	lda 15,s	;get event mask
	and #BSwitch	;switch event enabled?
	beq SDone	;no
	lda <GotSwitchCall	;switch call received?
	beq SDone	;no - so return false
	lda 15,s	;get event mask
	jsr UCont	;check for pending update events
	bne SDone	;got one so return it
	lda <RemoveEvent	;EventAvail call?
	beq SCont	;yes - so don't clear flag
	stz <GotSwitchCall	;clear switch flag
SCont	lda #Switch	;no update events so return switch event
	sta [<UserEvtPtr]
	lda #True
SDone	rts

*-------------------------------------------------------------------------------

CheckQueue	inc <FromGNE
	lda 15,s	;get event mask
	jsr GetEvent
	stz <FromGNE	;clear flag
	lda >JournalFlag	;journaling on?
	beq QDone	;no
	lda <UserEvtPtr	;move user's event pointer into
	sta <JResultPtr	;journal result pointer
	lda <UserEvtPtr+2
	sta <JResultPtr+2
	ldx #JcEvent	;journal code
	jsr DoJournal
QDone	lda [<UserEvtPtr]	;get event code - 0	if no event
	rts

*-------------------------------------------------------------------------------

CheckUpdate	lda 15,s	;get event mask
UCont	and #BUpdate	;update event enabled?
	beq UDone	;no - so return false
	lda <WindowMgr	;is Window Mgr initialized?
	beq UDone	;no - so return false
	PushWord #0	;push result
	PushLong <UserEvtPtr ;push event ptr
	_CheckUpdate	;call Window Mgr
	pla	;get result
UDone	rts

*------------------------------------------------------------------------------

GetEvent	PushWord #0	;push result
	pha	;push event mask
	PushLong <UserEvtPtr ;push event ptr
	lda <RemoveEvent	;EventAvail call?
	beq Peek	;yes
	jsl xGetOSEvent
	bra GDone
Peek	jsl xOSEventAvail
GDone	pla	;pull result
	rts

*------------------------------------------------------------------------------

xGetMouse	tdc
	jsl GetMouse
	rtl

xGetOSEvent	tdc
	jsl GetOSEvent
	rtl

xOSEventAvail	tdc
	jsl OSEventAvail
	rtl

	Entry DoLoadKTrans
DoLoadKTrans
; This should be called by our startup routine to load the keytrans table to start

	stz <ktransRef
	stz <ktransRef+2
	stz <kTransFlag

	pea $FFFF	; special setktrans flag
	_SetKeyTranslation

DLKTDone	rts	; and leave...
	ENDP



****************************************************************
*
* EventAvail
*
****************************************************************

	EXPORT EventAvail
EventAvail	PROC
	phd
	tcd
	bne Doit
	ldx #ActiveErr	;EM not active
	jmp ErrOut6

Doit	jmp GNECommon
	ENDP



****************************************************************
*
* GetMouse
*
****************************************************************

	EXPORT GetMouse
GetMouse	PROC
	phd
	tcd
	bne Doit
	ldx #ActiveErr	;EM not active
	jmp ErrOut4

Doit	php
	sei
	lda 10,s	;put user's pointer on zero page
	sta <TempPtr
	lda 12,s
	sta <TempPtr+2
	ldy #0
	jsr GetGlobalLoc	;get mouse loc in global coordinates
	lda >JournalFlag	;journaling on?
	beq Cont	;no
	lda <TempPtr	;move user's result pointer into
	sta <JResultPtr	;journal result pointer
	lda <TempPtr+2
	sta <JResultPtr+2
	ldx #JcGetMouse	;journal code
	jsr DoJournal
Cont	PushLong <TempPtr	;push user's result pointer on stack
	_GlobalToLocal	;call QuickDraw to map to local coords
	plp
	jmp EndCall4
	ENDP



****************************************************************
*
* Button
*
****************************************************************

	EXPORT Button
Button	PROC
	phd
	tcd
	bne Doit
	ldx #ActiveErr	;EM not active
	jmp ErrOut2

Doit	lda 9,s	;get button #
	cmp #2
	bcc Cont
	ldx #BtnErr	;illegal button #
	jmp ErrOut2

Cont	asl a
	tax
	lda >EMBStat	;get status byte
	and >BStatMask,x	;mask off correct button bit
	beq Return	;button up so return false
	lda #True	;button down so return true
Return	sta 11,s	;return result
	lda >JournalFlag	;journaling on?
	beq Done	;no
	stz <JResultPtr+2	;set up pointer to result for journaling
	clc
	tsc
	adc #11
	sta <JResultPtr
	ldx #JcButton	;journal code
	jsr DoJournal
Done	jmp EndCall2
	ENDP



****************************************************************
*
* StillDown
*
****************************************************************

	EXPORT StillDown
StillDown	PROC
	phd
	tcd
	bne Doit
	ldx #ActiveErr	;EM not active
	jmp ErrOut2

Doit	lda 9,s	;get button #
	cmp #2
	bcc Cont
	ldx #BtnErr	;illegal button #
	jmp ErrOut2

Cont	PushWord #0	;push result
	pha	;push button #
	jsl xButton	;is button down?
	pla	;get result
	beq Return	;button is up so return false
	inc <CheckButton	;set flag for EventAvail
	lda 9,s	;get button #
	sta <WhichButton
	PushWord #0	;push result
	PushWord #7	;push mask for button events
	PushWord #0	;push address of TempEvent (4 bytes)
	tdc
	clc
	adc #TempEvent
	pha
	jsl xEventAvail	;check for button events
	stz <CheckButton	;clear flag
	pla	;get result
	bne GotEvent
	lda #True	;no button events so return true
	bra Return

GotEvent	lda #False	;got event so return false
Return	sta 11,s
	jmp EndCall2

xButton	tdc
	jsl Button
	rtl

xEventAvail	tdc
	jsl EventAvail
	rtl

	ENDP



****************************************************************
*
* WaitMouseUp
*
****************************************************************

	EXPORT WaitMouseUp
WaitMouseUp	PROC
	phd
	tcd
	bne Doit
	ldx #ActiveErr	;EM not active
	jmp ErrOut2

Doit	lda 9,s	;get button #
	cmp #2
	bcc Cont
	ldx #BtnErr	;illegal button #
	jmp ErrOut2

Cont	PushWord #0	;push result
	pha
	jsl xStillDown	;is button still down?
	pla	;get result
	bne Return	;button is still down so return true
	inc <CheckButton	;set flag for GetNextEvent
	lda 9,s	;get button #
	sta <WhichButton
	PushWord #0	;push result
	PushWord #4	;push mask for button up events only
	PushWord #0	;push address of TempEvent
	tdc
	clc
	adc #TempEvent
	pha
	jsl xGetNextEvent	;remove button up event
	stz <CheckButton	;clear flag
	pla	;get result
	lda #False	;return false
Return	sta 11,s
	jmp EndCall2

xStillDown	tdc
	jsl StillDown
	rtl

xGetNextEvent	tdc
	jsl GetNextEvent
	rtl

	ENDP



****************************************************************
*
* TickCount
*
* Change History
*
* 29 Jun 88	Steven Glass
*
* Two things were wrong here.  First the TickCnt was being 
* accessed with interrupts active and second, if journaling
* was active, the journaling code was called with the
* wrong direct page register.
*
* To fix this we always switch D-reg and use EndCall0 to 
* finish up.  We also turn interrupts off.
*
****************************************************************

	EXPORT TickCount
TickCount	PROC

	DefineStack
origP	byte
origD	word
RTL1	block 3
RTL2	block 3
Result	long

	cmp #0
	bne Doit
	ldx #ActiveErr	;EM not active
	jmp oErrOut0

Doit	phd	; save D
	tcd
	php	; save interrupt state
	sei
	lda >TickCnt
	sta Result,s
	lda >TickCnt+2
	sta Result+2,s

	plp	; restore interrupts now

	lda >JournalFlag	;journaling on?
	beq Done	;no
	stz <JResultPtr+2	;set up pointer to result for journaling
	clc
	tsc
	adc #7
	sta <JResultPtr
	ldx #JcTickCount	;journal code
	jsr DoJournal

Done	jmp EndCall0	; get out and restore D

	ENDP



****************************************************************
*
* GetDblTime
*
****************************************************************

	EXPORT GetDblTime
GetDblTime	PROC
	cmp #0
	bne Doit
	ldx #ActiveErr	;EM not active
	jmp oErrOut0

Doit	PushWord #0	;result
	PushWord #ClickParam ;double click param reference
	_ReadBParam	;read battery ram
	pla	;double click rate (0-4)
	asl a
	asl a
	tax
	lda >ClickTable,x	;translate into ticks
	sta 7,s
	inx
	inx
	lda >ClickTable,x
	sta 9,s
	jmp oEndCall0
	ENDP



****************************************************************
*
* GetCaretTime
*
****************************************************************

	EXPORT GetCaretTime
GetCaretTime	PROC
	cmp #0
	bne Doit
	ldx #ActiveErr	;EM not active
	jmp oErrOut0

Doit	PushWord #0	;result
	PushWord #FlashParam ;flash rate param reference
	_ReadBParam	;read battery ram
	pla	;flash rate (0-4)
	asl a
	asl a
	tax
	lda >FlashTable,x	;translate into ticks
	sta 7,s
	inx
	inx
	lda >FlashTable,x
	sta 9,s
	jmp oEndCall0
	ENDP



****************************************************************
*
* SetSwitch
*
****************************************************************

	EXPORT SetSwitch
SetSwitch	PROC
	phd
	tcd
	bne Doit
	ldx #ActiveErr	;EM not active
	jmp ErrOut0

Doit	lda #1
	sta <GotSwitchCall
	jmp EndCall0
	ENDP

;                APPEND osem



****************************************************************
*
* PostEvent
*
* Change History
*
* 30 Jun 88	Steven Glass & Cheryl Ewy
*
* Change made so that auto key events are only 
* posted if the number of elements in the queue is less than or
* equal to a specified limit.  The limit is set to 0 by 
* EMStartup and an application can change the limit by calling the
* new tool call SetAutoKeyLimit.
*
****************************************************************

	EXPORT PostEvent
PostEvent	PROC
	phd
	tcd
	bne Doit
	ldx #ActiveErr	;EM not active
	jmp ErrOut6

Doit	lda 13,s	;get event code
	cmp #16
	bcc OK
	ldx #CodeErr	;illegal event code
	jmp ErrOut6	;return the error

OK	php
	sei
	asl a
	tax
	lda >MaskTable,x	;get bit mask for code
	and <SysEventMask	;is this event enabled?
	bne CheckAutoKey	;yes - so check if auto-key event
ErrRet	lda #1	;no - so return an error
	sta 16,s
	plp
	jmp EndCall6

CheckAutoKey	lda 14,s	;get event code
	cmp #AutoKey	;auto-key event?
	bne GetFreeOne	;no - so post it
	lda <QHead	;is the queue empty?
	beq GetFreeOne	;yes - so post it!

	IF midi=1 THEN
	jsl MIDIInputPoll	; Check MIDI input
	ENDIF


	jsr LockQ	; lock and deref Q
	ldx #0	; count elements in queue
	ldy <QHead	; start with queue head
Loop	inx	; bump counter
	lda [<QPtr],y	; get link to next element in Q
	tay	; repeat till
	bne Loop	; none

	cpx <AutoKeyLimit	; check limit
	bcs ErrRet	; too much, return error
	bra QLocked	; we have room, so post it



GetFreeOne	jsr LockQ
QLocked	ldy #EvtOffset	;get offset to event code in element
	ldx <QSize	;max # of queue elements
@Loop	lda [<QPtr],y	;get event code of queue element
	cmp #$FFFF	;is this element free?
	beq GotFreeOne	;yes
	clc	;no - so go on to next element
	tya
	adc #EvtQSize
	tay
	dex	;have we checked all queue elements?
	bne @Loop	;no
;		;yes - so remove first element in Q
	ldy <QHead
	lda [<QPtr],y	;move link pointer from first queue
	sta <QHead	;element into QHead
	iny
	iny
GotFreeOne	clc	;construct pointer to event record part
	tya	;of free element
	adc <QPtr
	sta <TempPtr
	lda #0
	adc <QPtr+2
	sta <TempPtr+2
	dey
	dey
	sty <TempLink	;save link to queue	element
SetFields	lda 14,s	;get event code
	sta [<TempPtr]	;store it in the event record
	ldy #MsgOffset
	lda 10,s	;get the event msg
	sta [<TempPtr],y	;store it in the event record
	iny
	iny
	lda 12,s
	sta [<TempPtr],y
	jsr FillRecord	;fill in rest of record
	jsr EnQueue	;add record to queue
	jsr UnLockQ
	plp	;restore interrupt state
	lda #0
	sta 15,s	;zero result code
	jmp EndCall6
	ENDP



****************************************************************
*
* FlushEvents
*
****************************************************************

	EXPORT FlushEvents
FlushEvents	PROC
	phd
	tcd
	bne Doit
	ldx #ActiveErr	;EM not active
	jmp ErrOut4

Doit	php	;save interrupt status
	sei	;turn off interrupts
	jsr LockQ
	lda <QHead	;get link to first queue element
	sta <TempLink
	tay
	beq Done	;if 0 then queue is	empty
Loop	iny	;get offset to event part of Q element
	iny
	lda [<QPtr],y	;get event code
	cmp #16
	bcc OK
	PushWord #QError	;illegal event code	- Q trashed
	PushWord #0
	PushWord #0
	_SysFailMgr	;die

OK	asl a
	tax
	lda >MaskTable,x	;get bit mask for event code
	tax	;save mask in X
	and 10,s	;is it in the stop mask?
	bne Stop	;yes - so stop
	txa	;get event mask back
	and 12,s	;is it in the event	mask?
	beq Cont	;no
	lda #$FFFF
	sta [<QPtr],y	;set event code to unused
	jsr DeQueue	;remove element from queue
Cont	ldy <TempLink
	lda [<QPtr],y	;follow link to next Q element
	sta <TempLink
	tay
	bne Loop	;continue if not end of queue
	bra Done	;end of queue so return 0

Stop	lda [<QPtr],y	;get event code back
Done	sta 14,s	;store result
	jsr UnLockQ
	plp	;restore interrupt status
	jmp EndCall4
	ENDP



****************************************************************
*
* GetOSEvent
*
****************************************************************

	EXPORT GetOSEvent
GetOSEvent	PROC
	phd
	tcd
	bne Doit
	ldx #ActiveErr	;EM not active
	jmp ErrOut6

Doit	inc <OSRemoveEvent

	EXPORT GOSECommon
GOSECommon		;       
	php	;save interrupt status
	sei	;turn off interrupts
	jsr LockQ
	lda 14,s	;get mask
	beq RetNull	;branch if mask is 0
	lda <QHead	;move link to first	queue element
	sta <TempLink	;into TempLink
	tay
	beq RetNull	;if 0 then queue is	empty
GetEvent	iny	;offset to event code
	iny
	lda [<QPtr],y	;get event code of queue element
	cmp #16
	bcc OK
	PushWord #QError	;illegal event code	- Q trashed
	PushWord #0
	PushWord #0
	_SysFailMgr	;die

OK	phy	;preserve registers.
	pha	;


	IF midi=1 THEN
	jsl MIDIInputPoll	; Check MIDI input
	ENDIF

	pla
	ply
	asl a	;multiply by 2
	tax
	lda >MaskTable,x	;get mask corresponding to event code
	and 14,s	;is this event enabled?
	beq Cont	;no - so continue looking
	lda <CheckButton	;is button number important?
	beq GotEvent	;no - so we have an	OK event
	lda [<QPtr],y	;get event code again
	cmp #3	;is it a button up/down event?
	bcs GotEvent	;no - so we have an	OK event
	clc
	tya
	adc #MsgOffset
	tay
	lda [<QPtr],y	;get message field from event record
	cmp <WhichButton	;is it the correct button?
	beq GotEvent	;yes - so we have an OK event
Cont	ldy <TempLink
	lda [<QPtr],y	;follow link to next queue element
	sta <TempLink
	tay
	bne GetEvent	;branch if not end of queue
;		;return null event
RetNull	lda <FromGNE	;called from GetNextEvent?
	bne RetFalse	;yes - so already have null event
	lda 10,s	;move user's event record pointer
	sta <TempPtr	;onto zero page
	lda 12,s
	sta <TempPtr+2
	lda #0
	sta [<TempPtr]	;null event code
	ldy #MsgOffset
	sta [<TempPtr],y	;zero out event msg
	iny
	iny
	sta [<TempPtr],y
	jsr FillRecord	;fill in rest of event record
RetFalse	lda #False
	bra Done	;return false

GotEvent	lda 10,s	;move user's event record pointer onto
	sta <UserEvtPtr	;zero page
	lda 12,s
	sta <UserEvtPtr+2
	clc
	lda <TempLink	;create pointer to event part of
	adc #EvtOffset	;queue element
	adc <QPtr
	sta <TempPtr
	lda #0
	adc <QPtr+2
	sta <TempPtr+2


	IF midi=1 THEN
	jsl MIDIInputPoll	; Check MIDI input
	ENDIF

	ldy #EvtSize-2
Loop	lda [<TempPtr],y	;move event into user's event parameter
	sta [<UserEvtPtr],y
	dey
	dey
	bpl Loop
	lda <OSRemoveEvent	;OSEventAvail call?
	beq RetTrue	;yes - so don't remove event
	lda #$FFFF	;no - so remove event from queue
	ldy <TempLink
	iny
	iny
	sta [<QPtr],y	;set event code to unused
	jsr DeQueue	;remove element from queue
RetTrue	lda #True
Done	sta 16,s	;return result
	stz <OSRemoveEvent
	jsr UnLockQ
	plp	;restore interrupt status
	jmp EndCall6
	ENDP



****************************************************************
*
* OSEventAvail
*
****************************************************************

	EXPORT OSEventAvail
OSEventAvail	PROC
	phd
	tcd
	bne Doit
	ldx #ActiveErr	;EM not active
	jmp ErrOut6

Doit	jmp GOSECommon
	ENDP



****************************************************************
*
* SetEventMask
*
****************************************************************

	EXPORT SetEventMask
SetEventMask	PROC
	phd
	tcd
	bne Doit
	ldx #ActiveErr	;EM not active
	jmp ErrOut2

Doit	lda 9,s
	sta <SysEventMask
	jmp EndCall2
	ENDP



****************************************************************
*
* FakeMouse
*
****************************************************************

	EXPORT FakeMouse
FakeMouse	PROC

	phd
	tcd
	bne Doit
	ldx #ActiveErr	;EM not active
	jmp ErrOut10

Doit	lda 9,s	;get button status
	sta >EMBStat
	lda 11,s	;get Y position
	sta >EMYPos
	lda 13,s	;get X position
	sta >EMXPos

;	lda <ExtMouse	;external mouse?
;	bne DoExt	;yes

;	sep #$30	;go into 8-bit mode
;	LONGA off	;stuff new XY into mouse screenholes
;	LONGI off
;	lda >MouseSlot	;get slot # of mouse
;	bmi NoMouse	;branch if no mouse
;	tax
;	lda >EMXPos	;get lo X
;	sta >MouXL,x
;	lda >EMXPos+1	;get hi X
;	sta >MouXH,x
;	lda >EMYPos	;get lo Y
;	sta >MouYL,x
;	lda >EMYPos+1	;get hi Y
;	sta >MouYH,x
;NoMouse	rep #$30	;go back to 16-bit mode
;	LONGA on
;	LONGI on
;	bra Cont

;DoExt	lda >EMXPos
;	pha
;	lda >EMYPos
;	pha
;	_PosMouse	;position mouse at new XY


	sep #$30	;go into 8-bit mode
	LONGA OFF	;stuff new XY into mouse absolute position
	LONGI OFF
	lda >EMXPos	;get lo X
	sta >LowAbsx
	lda >EMXPos+1	;get hi X
	sta >HighAbsx
	lda >EMYPos	;get lo Y
	sta >LowAbsy
	lda >EMYPos+1	;get hi y
	sta >HighAbsy
	rep #$30	;go back into 16-bit mode
	LONGA ON
	LONGI ON

Cont	lda 15,s	;get mod keys latch
	tax
	lda 17,s	;get fake servemouse result
	jsl Kludge	;force a return addr onto the stack so
;		;mouse interrupt routine will RTL here
	rep #$30	;get back into 16-bit mode since mouse
	jmp EndCall10	;interrupt routine exits in 8-bit mode

Kludge	pha	;push fake servemouse result
	phx	;push mod keys latch
	jmp Mouse3	;jmp into mouse interrupt routine

	ENDP

;                APPEND misc



****************************************************************
*
* EnQueue
*
****************************************************************

	EXPORT EnQueue
EnQueue	PROC	;interrupts must be	off
	lda #0	;zero out link field of new element
	ldy <TempLink
	sta [<QPtr],y
	lda <QHead	;is queue empty?
	bne DoInsert	;no - so insert element
	lda <TempLink	;yes - so set QHead	and QTail
	sta <QHead	;to the new element
	sta <QTail
	bra Done

DoInsert	lda <TempLink	;update current last Q element
	ldy <QTail	;to link to new last Q element
	sta [<QPtr],y
	sta <QTail	;set QTail to the new last
Done	rts	;queue element
	ENDP



****************************************************************
*
* DeQueue
*
****************************************************************

	EXPORT DeQueue
DeQueue	PROC	;interrupts must be	off

	IF midi=1 THEN
	jsl MIDIInputPoll	; Check MIDI input
	ENDIF


	lda <QHead
	cmp <TempLink	;are we deleting the first element?
	beq DeleteFirst	;yes
Loop	tay
	lda [<QPtr],y	;does this element link to the one we
	cmp <TempLink	;want to delete?
	beq DeleteIt	;yes - so delete it
	lda [<QPtr],y	;no - so follow link to next element
	bne Loop	;have we reached the end of the queue?
Done	rts

DeleteFirst	ldy <TempLink
	lda [<QPtr],y	;link QHead to element following the
	sta <QHead	;one we are deleting
	lda <TempLink
	cmp <QTail	;was it the only element?
	bne Done	;no
	lda #0	;yes - so set QTail	to 0
	sta <QTail
	bra Done

DeleteIt	tyx	;save link to preceeding element
	ldy <TempLink
	lda [<QPtr],y	;unlink element from chain
	txy
	sta [<QPtr],y
	lda <TempLink
	cmp <QTail	;was it the last element?
	bne Done	;no
	stx <QTail	;yes - so set QTail	to element
	bra Done	;predeeding the one	we deleted
	ENDP



****************************************************************
*
* LockQ
*
****************************************************************

	EXPORT LockQ
LockQ	PROC
	lda <QHandle
	ora <QHandle+2	;is Q handle 0?
	bne OK	;no
	PushWord #HError	;yes - so give fatal error
	PushWord #0
	PushWord #0
	_SysFailMgr

OK	ldy #4
	lda [<QHandle],y
	ora #$8000	;set locked bit in attribute word
	sta [<QHandle],y
	ldy #2
	lda [<QHandle]	;dereference handle
	sta <QPtr
	lda [<QHandle],y
	sta <QPtr+2
	rts
	ENDP



****************************************************************
*
* UnLockQ
*
****************************************************************

	EXPORT UnLockQ
UnLockQ	PROC
	lda <QHandle
	ora <QHandle+2	;is Q handle 0?
	bne OK	;no
	PushWord #HError	;yes - so give fatal error
	PushWord #0
	PushWord #0
	_SysFailMgr

OK	ldy #4
	lda [<QHandle],y
	and #$7FFF	;clear locked bit in attribute word
	sta [<QHandle],y
	rts
	ENDP



****************************************************************
*
* FillRecord
*
****************************************************************

	EXPORT FillRecord
FillRecord	PROC	;PostEvent and GetOSEvent JSR here

	IF midi=1 THEN
	jsl MIDIInputPoll	; Check MIDI input
	ENDIF


	lda >TickCnt	;get current system	ticks
	ldy #WhenOffset
	sta [<TempPtr],y
	lda >TickCnt+2
	iny
	iny
	sta [<TempPtr],y
	ldy #WhereOffset
	jsr GetGlobalLoc	;get mouse loc in global coords
	lda [<TempPtr]	;get event code
	beq NormalMods	;branch if null event
	cmp #6	;is it a keyboard or mouse event?
	bcc SpecialMods	;yes - so mods are in msg

	LONGA off
	LONGI off
NormalMods	sep #%00110000	;go into 8 bit mode
	lda >ModLatch	;get mod keys latch	and push as hi byte
	pha
	lda #0	;push 0 in lo byte
	pha

	LONGA on
	LONGI on
	rep #%00110000	;go back to 16 bitmode
	jsr SetModBits	;set up modifiers word in Y
	pla	;pull mod keys latch
	tya	;xfer modifiers word into A
	ldy #ModsOffset
	sta [<TempPtr],y	;store in Modifiers	field of record
	rts

SpecialMods	ldy #MsgOffset+2
	lda [<TempPtr],y	;modifiers are in high word of msg
	ldy #ModsOffset
	sta [<TempPtr],y	;store in mod field	of record
	lda #0
	ldy #MsgOffset+2
	sta [<TempPtr],y	;zero out hi word of msg in record
	rts
	ENDP



****************************************************************
*
* GetGlobalLoc
*
****************************************************************

	EXPORT GetGlobalLoc
GetGlobalLoc	PROC	;GetMouse and FillRecord JSR here
	lda >EMYPos
	sta [<TempPtr],y
	iny
	iny
	lda >EMXPos
	sta [<TempPtr],y
	rts
	ENDP



****************************************************************
*
* SetModBits
*
****************************************************************

	EXPORT SetModBits
SetModBits	PROC	;FillRecord, Keyboard and Mouse JSR here
	ldy #0
	ldx #0
	lda >EMBStat	;get button status
	and >BStatMask,x	;is button 0 up?
	bne Button1	;no
	tya	;yes - so set bit
	ora #Btn0Bit
	tay
Button1	ldx #2
	lda >EMBStat	;get button status back
	and >BStatMask,x	;is button 1 up?
	bne Keys	;no
	tya	;yes - so set bit
	ora #Btn1Bit
	tay
Keys	ldx #14
	lda 3,s	;get mod keys latch
	pha
Loop	lda 1,s	;get mod keys latch
	asl a	;shift bits out left
	sta 1,s	;save it
	bcc Cont	;if the bit was set, set proper
	tya	;bit in Y
	ora >ModBitTable,x
	tay
Cont	dex
	dex
	bpl Loop
	pla
	rts	;return with modifier word in Y
	ENDP



****************************************************************
*
* DoJournal
*
****************************************************************

	EXPORT DoJournal
DoJournal	PROC	;TickCount, Button,	GetMouse, and
	lda >JournalFlag	;journaling on?
	beq Done	;no
	pha	;push journal flag
	phx	;push journal code
	PushLong <JResultPtr ;push result pointer
	jsl JournalPtr	;jump to journaling	code
Done	rts
	ENDP

;                APPEND ih




****************************************************************
*
* Keyboard Interrupt Handler
*
* 1/23/89 Mensch
* Added keyboard translation tables to this routine. My but this stuff
* is pretty confused. Since it is so confused, I would like to present 
* you with the following:
*
* "How does GS keyboard remapping work?"
*           a play in 1 act
*              By Mensch
*
* Players:
*   KTransRef - a handle/pointer to the current keyboard translation
*               table
*   KTransFlag - used by the "DeadKey" skimmer
*   Steve - Boss of our hero
*   Hero - The guy writing and explaining this.
*   Mimi - One with international scope.
*
*Scene 1
* Steve and Mimi are in a meeting together.
* Mimi 	"Steve, all the europeans hate the GS, they say
*	that they can't type"
* Steve	"Tough"
* Mimi	"Please, help them to compute..." (touching smile)
* Steve	"Ok, I will put that lazy hero on the job"
*
*Scene 2
* Steve and Hero are busy talking about something else when
* Steve	"Oh, by the way, why don't you implement keyboard
*	remapping, just like the mac's got... Mimi wanted
*	us to do it for europe"
* Hero	"OK, I will do it. I will modify getNextEvent"
* Steve	"Don't be a putz, do it in the keyboard interupt
*	handler code! God do I have to think of everything?"	
*
*Scene 3
* Hero comes back with some code and a proposal after some time and 
* explains to Steve how the new keymapping will work.
* Steve	"Ok, run by me exactly how this ktrans stuff is 
*	going to work at the highest level"
* Hero	"Well, it goes something like this: When an
*	EMStartup call is made, we call getROMResource
*	which will give us a handle to the keytrans table
*	we then store it in the kTransRef and we store
*	a zero in kTransFlag. If no table exists (Not likely)
*	we store a zero in kTransRef. If a Disk based
*	resource exists, we load it in. Notice that the
*	handle is not locked, so it must be derefed every time
*	we use it!"
* Steve	"Hmmm ok, sounds good. I suppose you release the resource
*	when you are done with it?"
* Hero	{asside to the audience}'This guy must think I am
*	completely stupid!'
*	{to Steve}"Certainly, I dispose of it at EMShutdown time"
* Steve	"Fine, now please tell me the details of this process,
*	and after you are done telling me, could you document it 
*	in the code?"
* Hero	"Ok, well the ktrans table is a variable sized data object
*	that can be as small as 258 bytes, or as large as 768
*	bytes. The first 256 bytes always contain single byte
*	values that represent the character substitution array.
*	when a key is pressed, the keyboard routine will use
*	the ascii code of that key (notice also that if the 
*	option key is pressed down, I add 128 to the value) as
*	an offset into the single byte substitution array. The resulting
*	value is the key code we are to return to the program.
* Steve	"OK I can see how that works, now lets say that you have a
*	'dead' key, you know one of those two key sequences that
*	generate a single ASCII character?"
* Hero	"Well, as you can see, the first thing that I do is test
*	to be sure the option key was really pressed. If it was
*	I then set the current key as the dead key in the kTransFlag
*	and test to see if the key is a qualifying dead key if so I
*	return with carry set so that the event does not get posted.
*	If not, I simply return with the carry clear and the key gets
*	posted"
*
* {Hero adjusts his chair, and starts looking a little frazeled}
* Hero	"If a key is pressed after a "dead" key has been stored,
*	I again find the dead key in the table and get its offset.
*	once I have the proper offset I look thru the table to find
*	the current key in that deadkey's modifier table. If I
*	find it, I simply change the keydata to reflect the generated
*	ascii code for the dead key combo. If I do not find
*	the current key I post an event for the old dead key, and 
*	I return to the caller so it can post the current key."
* Steve	"Wow, its that easy???"
* Hero	"Sure is!"
* {Curtain}
*---------------- End of Play --------------------
* Authors Notes:
* Directors:
* Please include the following description in the playbill for this program so
* the patrons will have an easier time following the show!
*
* kTransData structure:
*  Sub_Array:Packed array[0..255] of char;
*  Dead_KeyArray:Packed array[0..xx] of DeadKeyStruct; (must end in a NIL word)
*  ModTables:Packed array[0..xx,0..yy] of ModifierWord; (Must end in NIL word)
*  end;
*
* DeadKeyStructure:
*   Byte - keycode from Sub_Array;
*   Byte - Offset/2 from end of Sub_Array to proper ModTable for this keycode
*
* ModifierWord:
*   Byte - keycode from Sub_Array;
*   Byte - keycode for this deadKeyCombo;
*
* NOTE: xx is the number of dead keys; yy is the number of keys each dead key
* modifies.
*
****************************************************************

	EXPORT Keyboard
Keyboard	PROC
	LONGA off
	LONGI off
	lda #0
	pha	;store 0 as hi byte	of keypress
	lda >KeyLatch	;get keypress
	and #$7F	;clear hi bit
	pha	;store in lo byte
	lda >ModLatch
	pha	;push mod keys latch
	lda #0
	pha	;push 0 as lo byte of mod keys latch
	sta >KbdStrobe	;clear keyboard strobe

	LONGA on
	LONGI on
	rep #$30	;go into 16 bit mode
	jsr SetModBits	;set up modifiers word in Y
	pla	;pull mod keys latch
	plx	;pull keypress
	PushWord #0	;push result
	and #RepeatBit	;was repeat bit in mod latch set?
	bne Repeat	;no - so push code for KeyDown event
	PushWord #KeyDown
	bra Cont

Repeat	PushWord #AutoKey	;yes - so push code	for AutoKey event
Cont	phy	;push modifiers - hi word of message
	phx	;push keypress - lo	word of message
	jsr DoKTrans	; remap the key as needed
	bcs BadKey	; if carry set, don't post the key, pull it off and end
	_PostEvent
	pla	;pull result
cont0010	sep #$30	;go back to 8 bit mode
	LONGA off
	LONGI off
	clc
	rtl

	LongA On
	LongI On
BadKey
	pla	; discard the data we just pushed on the stack...
	pla
	pla
	pla
	bra cont0010

*-------------------------------------------------------------------------------
; This routine will modify the keycode and modifiers on the stack to support other
; keyboard mapping schemes. 1/22/89
;
DoKTrans
; test to see if we have a handle installed.
temp	equ 1
saveDPageRTS	equ temp+4
KeyData	equ saveDPageRTS+4
keyMods	equ keyData+2
theWAPT	equ $E103C8	; wapt table reference

	phd	; save the direct page
	lda >theWapt+2	; dereference the work area ptr table...
	pha
	lda >theWapt
	pha
	tsc
	tcd
	ldy #24
	lda [<1],y	; get the event manager wap
	ply	; remove the handle deref
	ply
	cmp #0	; re-assert the zero flag...
	beq DKTDone	; if zero, then event mgr not started...
	tcd	; make it the current dpage...
;
; Now test to see if we should translate the reference

	lda <ktransRef+2	; see if we need to translate
	bne @1
	clc
	bra DKTDone	; high word of zero means no dice
@1	pei ktransRef+2	; save handle
	pei ktransRef

	ldy #2	; deref in place
	lda [ktransRef],y
	tax
	lda [ktransRef]
	sta ktransRef
	stx ktransRef+2
	
;
; Translate the key
;
	lda keyMods,s	; get the modifiers byte
	and #$0800	; strip off the option key
	beq DoNormalKey	; if equal, then do a normalKey
	bra DoOptionKey

DModDone
; come here when the key modification is finished.
	pla	; restore the handle
	sta ktransRef
	pla
	sta ktransRef+2
DKTDone
	pld	; restore the direct page...
	rts
	
DoOptionKey
	lda keyData,s	; get the keyboard data
	ora #$0080	; set the high bit
	bra DNK0010	; and continue
DoNormalKey	lda keyData,s
DNK0010
; keycode is in <A> right now...
	tay	; place it in <Y>
	lda [<kTransRef],y	; get the new character code
	and #$00FF	; strip off high byte...
;
; 1/11/90 Mensch
; Add the following few lines for France...
; If the entry in the translation table is $FF then we must set the high bit 
; of the keycode and read the table again. This allows dead keys in several layers
;
	cmp #$00FF	; is it a non-option deadkey?
	bne @NotDead1
	tya	; if its $FF then mark it as an option key
	ora #$0080	; and continue...
	tay
	lda [<ktransRef],y
	and #$00FF	; do the same as above..

@NotDead1	tax	; and save it for a while...
	lda <kTransFlag	; get the deadkey flag
	bne  DoDeadKey2	; handle second dead key

	tya	; get the original code back
	and #$0080	; test to see if it was an 'option' key
	beq dnk0030	; if not, then simply finish up here
@TestDead	stx <kTransFlag	; save the keycode in the keytrans flag...
	ldy #256	; start scanning thru the deadkey table
dnk0020	lda [<kTransRef],y	; get the next key...
	and #$00FF	; strip off the hi byte
	beq dnk0030	; if zero, then this is done...
	cmp <kTransFlag	; see if it equals our key
	beq DoDeadKey1	; If in the table,  then use it...
	iny	; bump Y to get the next keycode...
	iny
	bra dnk0020	; go back for more!
dnk0030
	txa	; not a dead key so recover the flag
	stz <kTransFlag	; zero out the deadkeyFlag
	sta keyData,s	; save it back where it belongs
	clc	; set flag for good key!
	bra dModDone	; finish the call... as if nothing happened
DoDeadKey1
; this routine is called if a new dead key has been pressed...
	sec	; set flag for bad key
	bra dModDone	; and finish!
DoDeadKey2
; This routine is called after the next keypress after a dead key.
; First find the entry offset into the dead key table for the last dead key!

	ldy #256	; start scanning thru the deadkey table
ddk0020	lda [<kTransRef],y	; get the next key...
	and #$00FF	; strip off the hi byte
	beq ddkDone	; if zero, then something bad happened just pass it on...
	cmp <kTransFlag	; see if it equals our key
	beq ddk0030	; If in the table,  then use it...
	iny	; bump Y to get the next keycode...
	iny	
	bra ddk0020	; go back for more!
ddk0030	
; we have found the number of that dead key, so now we step thru the deadkey data
; tables one entry at a time till we find the proper key!
	lda [<kTransRef],y	; now get the table value back...
	and #$FF00	; strip off the character code and just get the offset
	xba	; place the offset in the low byte
	asl a	; multiply it by 2...
	clc	; add 256 to it...
	adc #256	; to get the offset into kTransTbl
	tay	; and store it in <Y>
	phx	; stow the keycode on the stack for a minute
ddk0040	
; This loop will walk the table of values for the current dead key, looking for the 
; current keypress value
	lda [<kTransRef],y	; load in the next byte
	and #$00FF	; strip off the low byte
	beq ddkNotValid	; take this branch if we do not find the kay in the table
	cmp 1,s	; compare it to the key that was pressed..
	beq ddkValid	; found a valid double key combo...
	iny
	iny
	bra ddk0040
ddkDone
; If we get here then the doublekey value is in <X>, simply return it!
	txa	; place the keycode in <A>
	sta keyData,s	; save it back on the stack
	stz <kTransFlag	; zero out the flag
	clc	; set the good key flag
	bra LongdModDone	; and return
ddkValid
; We got a valid double key code, 		
	plx	; recover the word we stowed ion the stack
	lda [<kTransRef],y	; get the new keycode
	and #$FF00	; zap off the old data
	xba	; swap it!
	tax	; save it in <X>
	bra ddkDone
ddkNotValid
; This routine is called when we get a keypress that was not in the table of key presses
; This will resurect the dead key and post it, then it will post the 'Live' key..
	pla	; recover the keycode from the stack...
	sta keyData,s	; store the data for later posting
	lda keyMods,s	; get the current modifiers...
	pha	; room for result...
	pea $0003	; post a keydown event...
	ora #$0800	; be sure to set the option bit on modifiers...
	pha
	lda <kTransFlag	; load the dead keycode
	pha
	_PostEvent	; post it as an event...
	pla	; discard the result 
	stz <kTransFlag	; zero out the dead key flag
	clc	; clear the flag to denote a posting
LongdModDone	brl dModDone
	
	ENDP



****************************************************************
*
* Mouse Interrupt Handler
*
****************************************************************

	EXPORT Mouse
Mouse	PROC

	LONGA on
	LONGI on
	rep #$30	;go into 16 bitmode

	IF midi=1 THEN
	jsl MIDIInputPoll	; Check MIDI input
	ENDIF


	PushWord #0	;space for result
	_ServeMouse

	IF midi=1 THEN
	jsl MIDIInputPoll	; Check MIDI input
	ENDIF


	LONGA off
	LONGI off
	sep #$30	;go into 8 bit mode
	lda >ModLatch
	pha	;push mod keys latch
	lda #0
	pha	;push lo byte
	LONGA on
	LONGI on
	rep #$30	;go into 16 bit mode

	PushWord #0	;push 3 words for result
	PushWord #0
	PushWord #0
	_readMouse2

	IF midi=1 THEN
	jsl MIDIInputPoll	; Check MIDI input
	ENDIF


	EXPORT Mouse2
Mouse2		;       ;MouseTask jmps here
	pla	;get button status
	sta >EMBStat
	pla	;get Y position
	sta >EMYPos
	pla	;get X position
	sta >EMXPos
;		;modlatch and servemouse result on stack
	EXPORT Mouse3
Mouse3		;       ;FakeMouse jmps here
	lda >EMXPos
	pha
	lda >EMYPos	;always update cursor position in case
	pha	;more than 1 pointing device being used
	jsl CUpdate

CheckBtns	lda 3,s	;get interrupt bits
	and #BtnIntBit	;was there a button	interrupt?
	bne Cont	;yes
	pla	;pull mod keys latch
	pla	;pull interrupt bits
	bra Done

Cont	jsr SetModBits	;set up modifiers word in Y
	pla	;pull mod keys latch
	pla	;pull interrupt bits

	phy	;save Y on stack
	PushWord #0	;push space to save	btn # in
	PushWord #0	;push space for PostEvent result
	tya	;get modifiers word	in A
	and #Btn0Bit	;is button 0 currently down?
	bne Btn0Up	;no
	lda >EMBStat	;check previous status of btn 0
	asl a
	asl a
	bcs CheckBtn1	;it was down so no change
	PushWord #MouseDown	;it was up
	lda #0
	bra PostIt

Btn0Up	lda >EMBStat	;check previous status of btn 0
	asl a
	asl a
	bcc CheckBtn1	;it was up so no change
	PushWord #MouseUp	;it was down
	lda #0
	bra PostIt

CheckBtn1	lda 5,s	;get modifiers word
	tay
	and #Btn1Bit	;is btn 1 currently	down?
	bne Btn1Up	;no
	lda >EMBStat	;check previous status of btn 1
	xba
	lsr a
	bcs NoChange	;it was down so no change
	PushWord #MouseDown
	lda #1
	bra PostIt

Btn1Up	lda >EMBStat	;check previous status of btn 1
	xba
	lsr a
	bcc NoChange	;it was up so no change
	PushWord #MouseUp
	lda #1

PostIt	phy	;push modifiers - hi word of msg
	pha	;push button num - lo word of msg
	sta 9,s	;save button # on stack
	_PostEvent
	lda 3,s	;check button #
	beq CheckBtn1	;if 0 - go check button 1
NoChange	pla	;pull result
	pla	;pull button #
	pla	;pull mods
Done	

	IF midi=1 THEN
	jsl MIDIInputPoll	; Check MIDI input
	ENDIF


	sep #$30	;go back to 8 bit mode
	LONGA off
	LONGI off
	clc
	rtl
	ENDP



****************************************************************
*
* Desk Accessory Interrupt Handler
*
****************************************************************

	EXPORT DeskAcc
DeskAcc	PROC
	LONGA on
	LONGI on
	rep #$30	;go into 16 bit mode
	PushWord #0	;push result
	PushWord #DeskAccessory ;Desk Accessory	event
	PushWord #0	;push event message
	PushWord #0
	_PostEvent
	pla	;pull result
	sep #$30	;go back to 8 bit mode
	LONGA off
	LONGI off
	clc
	rtl
	ENDP



****************************************************************
*
* Flush Buffer Interrupt Handler
*
****************************************************************

	EXPORT FlushBuf
FlushBuf	PROC
	LONGA on
	LONGI on
	rep #$30	;go into 16 bit mode
	PushWord #0	;push result
	PushWord #$28	;key-down and auto-key events
	PushWord #0	;stop mask
	_FlushEvents
	pla	;pull result
	sep #$30	;go back to 8 bit mode
	LONGA off
	LONGI off
	clc
	rtl
	ENDP


****************************************************************
*
* Heartbeat Task for Mouse Card
*
****************************************************************

MouseTask	PROC

	LONGA on
	LONGI on
	rep #$30	;go into 16 bit mode
	lda #1
	sta >TaskHead+4	;set task counter back to 1

	PushWord #0	;space for fake ServeMouse result

	LONGA off
	LONGI off
	sep #$30	;go into 8 bit mode
	lda >ModLatch
	pha	;push mod keys latch
	lda #0
	pha	;push lo byte
	LONGA on
	LONGI on
	rep #$30	;go into 16 bit mode

	PushWord #0	;push 3 words for readMouse2 result
	PushWord #0
	PushWord #0
	_readMouse2

	ldy #0	;set change flag to	0
	lda 1,s	;get BStat
	and #MovedBit	;did mouse move?
	beq CheckBtn0	;no
	lda 9,s	;get fake ServeMouse result
	ora #MoveIntBit	;fake a movement interrupt
	sta 9,s
	iny	;flag change

CheckBtn0	lda 1,s	;get BStat
	asl a	;is btn 0 down?
	bcc Btn0Up	;no
	asl a	;yes - so check if was down on last read
	bcc SetBtnBit	;was up so button state changed
	bcs CheckBtn1	;was down so no change

Btn0Up	asl a	;was button down on	last read?
	bcs SetBtnBit	;yes so state changed

CheckBtn1	lda 1,s	;get BStat back
	xba
	tax	;save BStat
	and #$10	;is btn 1 down?
	beq Btn1Up	;no
	txa	;yes - so check if was down on last read
	lsr a
	bcc SetBtnBit	;was up so button state changed
	bcs Done	;was down so no change

Btn1Up	txa
	lsr a	;was button down on	last read?
	bcc Done	;no - so no change

SetBtnBit	lda 9,s	;get fake ServeMouse result
	ora #BtnIntBit	;fake a button interrupt
	sta 9,s
	iny	;flag change
Done	tya	;did mouse state change?
	beq Return	;no
	jmp Mouse2	;jmp into mouse interrupt handler
Return	pla	;pull stuff off stack
	pla
	pla
	pla
	pla
	sep #$30	;go back to 8 bit mode
	LONGA off
	LONGI off
	rtl
	ENDP



****************************************************************
*
SetAutoKeyLimit	PROC
*
* Sets the AutoKeyLimit to the value passed.
*
*
* Inputs:
*	NewLimit
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* Change History
*
* 30 Jun 88	Steven Glass & Cheryl Ewy
*
* Added to allow App to set AutoKeyLimit
*
****************************************************************
	DefineStack
OrigD	word
RTL1	block 3
RTL2	block 3
NewLimit	word

	phd
	tcd
	bne DoIt
	ldx #ActiveErr
	jml ErrOut2

DoIt
	lda NewLimit,s
	inc a
	sta <AutoKeyLimit
	jml EndCall2

	ENDP


****************************************************************
*
* UseCoolMousePos
*
* 24-Feb-91 Dave Lyons
*
* Check for MessageCenter message #6 containing the mouse
* position (Y,X in 640 coordinates).
*
* If the message is there, call FakeMouse to move the mouse
* somewhere nice.  If we're in 320, we need to cut the X
* coordinate in half first.
*
****************************************************************
UseCoolMousePos	proc export

	pea 0
	_QDStatus
	pla
	beq @exit

	pha
	pha	;space for GetMsgHandle result
	pea 1	;get message by type
	pushlong #6	;message type=6
	_GetMsgHandle
	plx
	ply
*** added 3-Jun-92 DAL -- Use nonzero default position
	bcc @gotMessage
	ldx #defaultMsgHandle
	ldy #^defaultMsgHandle
@gotMessage
*** end 3-Jun-92

*** dereference message handle to <1
	phd
	phy
	phx
	tsc
	tcd
	ldy #2
	lda [1],y
	tax
	lda [1]
	sta 1
	stx 3

*** put Y value at 1, X value at 3
	ldy #6+2	;offset to X value
	lda [1],y
	tax
	dey
	dey
	lda [1],y
	sta 1
	stx 3

*** destroy the message from MessageCenter (moved down, 3-Jun-92 DAL)
	pea 3	;delete message
	pea 6	;message type
	pha
	pha
	_MessageCenter

*** If we're in 320, cut X value in half
	pea 0
	_GetMasterSCB
	pla
	bcs @not320
	and #$0080
	bne @not320
	lsr 3
@not320

*** do the FakeMouse call
	pea 2	;flag that the XY position has changed
	pea 0	;modifiers
	pei 3	;X value
	pei 1	;Y value
	pea 0	;button states
	_FakeMouse

	pla
	pla
	pld

@exit	rtl

*** added 3-Jun-92 DAL
defaultMsgHandle	dc.l defaultPosMsg
defaultPosMsg	dc.l 0	;link
	dc.w 6	;msg type
	dc.w 17,26
*** end 3-Jun-92

****************************************************************
*
* CreateMouseMessage
*
* 24-Feb-91 Dave Lyons
*
* Create MessageCenter message #6 containing the mouse
* position (Y,X, in 640 coordinates).
*
****************************************************************
CreateMouseMessage	proc export
	pha
	pha	;space for new handle
	pea 0
	pea 6+4	;6 bytes overhead + 4 bytes data
	pea $4006	;memory ID
	pea 0	;attributes
	pha
	pha	;location (ignored)
	_NewHandle

	pea 1	;add message (MessageCenter parameters)
	pea 6	;message type
	lda 7,s
	pha
	lda 7,s
	pha	;pushed a 2nd copy of the handle, for MessageCenter

	phd
	pha
	pha	;space for pointer
	tsc
	tcd
@ptr	equ 1
@hndl	equ 7

	pha
	pha
	pha
	_ReadMouse
	pla	;ignore stat/mode from ReadMouse

*** if we're in 320, double the X value
	pea 0
	_GetMasterSCB
	pla
	bcs @not320
	and #$0080
	bne @not320
	lda 3,s
	asl a
	sta 3,s
@not320

	ldy #2
	lda [@hndl],y
	sta @ptr+2
	lda [@hndl]
	sta @ptr

	pla	;pull Y value from ReadMouse
	ldy #6	;offset to Y position data in message handle
	sta [@ptr],y
	pla	;pull X value from ReadMouse
	ldy #8	;offset to X position data in message handle
	sta [@ptr],y

	pla
	pla
	pld
	_MessageCenter	;add the message
	_DisposeHandle	;get rid of our copy of the handle
	rtl

	EndP

;
	Include 'EM.KBDStuff'


	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/EVENTS/em.loader.asm b/IIGS.601.SRC/GSToolbox/EVENTS/em.loader.asm
new file mode 100644
index 0000000..9fe02f0
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/EVENTS/em.loader.asm
@@ -0,0 +1 @@
+	include 'all.macros'
	include 'e16.locator'


MMLoader	PROC

	bra RealStart



True	equ $FFFF
False	equ 0



TheUserID	equ $4006
TheToolNumber	equ $06
TheName	str '1/em.in.ram'

RealStart


;-----------------------------------------------------------
;
; Brk if necessary
;
	lda >$C062
	and #$0080
	beq @NoBreak
	brk 17
@NoBreak



;-----------------------------------------------------------
;
; Set dbr
;

	phk
	plb


;-----------------------------------------------------------
;
; Unload last patch
;

	pha	; space for result
	PushWord #TheUserID
	PushWord #0
	_UserShutdown

	pla

;-----------------------------------------------------------
;
; Load the new one
;


	pha	; space for dir page stack size
	pha	; space for addr of	dir page stack seg
	pha	; space for starting addr
	pha
	pha	; space for user id
	PushWord #TheUserID	; user id
	PushLong #TheName	; ptr to path name
	PushWord #True
	_InitialLoad
	bcs Die

	pla	; ignore userid
	pla	; put starting address
	sta TableAddress
	pla
	sta TableAddress+2
	pla	; ignore dir page
	pla	; ignore dir page size


;-----------------------------------------------------------
;
; Install
;
	PushWord #0	; system call
	PushWord #TheToolNumber	; install the patch
	PushLong TableAddress
	_SetTSPtr
	
	_SetDefaultTPT

;-----------------------------------------------------------
;
; Quit
	_Quit QuitParams


QuitParams	DC.L 0
	DC.W 0


TableAddress	DS.B 4





Die		; 
	pha
	PushLong #ErrorString
	_SysFailMgr

ErrorString	str 'Could not load.  Error was $'

	ENDP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/EVENTS/makefile b/IIGS.601.SRC/GSToolbox/EVENTS/makefile
new file mode 100644
index 0000000..12eb8cb
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/EVENTS/makefile
@@ -0,0 +1 @@
+##### Dependencies for the Window Manager #####

EM.In.RAM		Ä			em.asm.obj			¶
							::misc.tools:misc.tools.asm.obj		¶
							::qd:objs:init.asm.obj
		Linkiigs  ¶
			em.asm.obj  		¶
			::qd:qdalone:strip.asm.obj 		¶
			::qd:objs:init.asm.obj(SPECIALNEWHANDLE,GETVECTORGLUE,SETVECTORGLUE,TOGLUEENTRY,NEWHANDLEGLUE)  ¶
			::misc.tools:misc.tools.asm.obj(IRQ_HEART)		¶
			-o EM.In.RAM -t $BB


em.asm.obj		Ä		em.asm em.kbdstuff
	Asmiigs  em.asm -d midi=0
	
	
::qd:objs:init.asm.obj	Ä		::qd:init.asm
	directory ::qd
	asmiigs init.asm -o :objs: -unsafe -wi
	directory ::events

::misc.tools:misc.tools.asm.obj 	Ä		::misc.tools:misc.tools.asm
	directory ::misc.tools
	asmiigs misc.tools.asm -d RAMVersion=0
	directory ::events

em.loader					Ä		em.loader.asm.obj
	linkiigs em.loader.asm.obj -o em.loader

em.loader.asm.obj			Ä		em.loader.asm
	asmiigs em.loader.asm
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/FontMgr/SOMEFMEQUS b/IIGS.601.SRC/GSToolbox/FontMgr/SOMEFMEQUS
new file mode 100644
index 0000000..f3ca6af
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/FontMgr/SOMEFMEQUS
@@ -0,0 +1 @@
+****
;
;in the new scheme of things, LoadTheFont and AddScaledFont get called
;in the middle of InstallFont, so we have to make sure their 0-page
;locations don't collide
;
;Bennet Marks  x6245  2/12/87
;
****


BestPtr        equ Temp
BestStyle      equ BestPtr+4
BestSize       equ BestStyle+2
IDStyle        equ BestSize+2
IDSize         equ IDStyle+2
WantStyle      equ IDSize+2
WantSize       equ WantStyle+2
WantFam        equ WantSize+2           ;added 3/31/87 - BHM x6245
MatchLevel     equ WantFam+2
NewLevel       equ MatchLevel+2
Count          equ NewLevel+2
NumStyles      equ Count+2
Err            equ NumStyles+2

NewIDSize      equ Err+2

FontSize       equ NewIDSize+2
NameSize       equ FontSize+4	;was +2, 6-Jan-91 DAL
loadFlags      equ NameSize+2

currEOFSize    equ loadFlags+2
fmNextDPLoc    equ currEOFSize+4	;added DAL
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/FontMgr/common.asm b/IIGS.601.SRC/GSToolbox/FontMgr/common.asm
new file mode 100644
index 0000000..60e791c
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/FontMgr/common.asm
@@ -0,0 +1 @@
+****************************************************************
*                                                              *
*                    Common Strip Routines                     *
*                        Version 1.0                           *
*                       August 13, 1986                        *
*                                                              *
****************************************************************


****************************************************************
*                                                              *
*                   Copyright (C) 1985-1988                    *
*                   All Rights Reserved                        *
*                   Apple Computer, Inc.                       *
*                                                              *
****************************************************************

****************************************************************
*
* EndCall Routines.
*
* Functions exit through the EndCall routines.  These routines
* fix the stack by moving the RTL addresses up and stripping
* off any input parameters.
*
* The number of bytes to strip off the stack is passed in the
* y-register.
*
* There are 8 end call routines
*
*       EndCall        Pulls D off stack before cleaning up.  Sets
*                      a-reg to zero and clears carry.
*       oEndCall       Does not pull D off the stack before
*                      cleaning up.  Sets a-reg to zero and clears
*                      carry.
*       ErrOut         Pulls D off stack, cleans up and returns
*                      error code passed in x-register, setting
*                      carry if x is not zero.
*       oErrOut        Does not pull D off stack before cleaning up.
*                      returns error code passed in x-register,
*                      setting carry if x is not zero.
*
*       BusyEC         Decrements the busy flag, pulls D off stack
*                      and cleans up.
*       oBusyEC        Decrements the busy flag, does not pull D off stack
*                      and cleans up.
*       BusyErr        Decrements the busy flag, pulls D off stack,
*                      cleans up and returns error code passed in
*                      x-register, setting the carry if x is not zero.
*       oBusyErr       Decrements the busy flag, does not pull D off
*                      the stack, cleans up and returns error code passed
*                      in x-register.
*
****************************************************************
				EXPORT Strip
Strip          PROC
IncBusyFlg		equ $E10064
DecBusyFlg		equ $E10068

				EXPORT BusyEC
BusyEC         
               ldx #0

				EXPORT BusyErr
BusyErr        
               jsl DecBusyFlg
               bra ErrOut

				EXPORT EndCall
EndCall        
               ldx #0

				EXPORT ErrOut
ErrOut         
               pld                      ; restore direct register

				EXPORT oErrOut
oErrOut

				jml $e10184	;ToStrip (23-Jan-91 DAL)

				if 0 then

               phy                      ; save amount to strip on stack
               tsc                      ; get stack pointer
               clc                      ; add to it the amount to strip
               adc 1,s
               tay                      ; put this result in Y
               tsc                      ; get back orig stack pointer
               phx                      ; save error on stack
               tax                      ; put orig stack in X
               phb                      ; now save the data bank reg
               pea $0000                ; set data bank reg to 0
               plb
               plb
               lda |3+4,x               ; now use x and y to move 6 bytes
               sta |3+4,y               ; of rtl info from current pos
               lda |3+2,x               ; to final pos.
               sta |3+2,y
               lda |3+0,x
               sta |3+0,y
               plb                      ; restore data bank register
               plx                      ; restore x register with error

               tsc                      ; get stack again
               clc                      ; bump it by amount to strip Plus 2
               adc 1,s                  ; to make up for amount to strip
               adc #2                   ; still on stack
               tcs                      ; reset stack pointer
               txa                      ; error into a-reg
               cmp #1                   ; set carry correctly
               rtl                      ; fini

				endif

				EXPORT oBusyEC
oBusyEC        
               ldx #0

				EXPORT oBusyErr
oBusyErr       
               jsl DecBusyFlg
               bra oErrOut

				EXPORT oEndCall
oEndCall       
               ldx #0
               bra oErrOut

               ENDP
			   
			   END

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/FontMgr/fm.asm b/IIGS.601.SRC/GSToolbox/FontMgr/fm.asm
new file mode 100644
index 0000000..9720297
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/FontMgr/fm.asm
@@ -0,0 +1 @@
+*********************************************************************************
*			           	
* FONT MANAGER 
* Version 3.2  	           	
*			           	
* Copyright Apple Computer, Inc. 1986-1991
* All Rights Reserved		          	
*			          	
* V1.0	11/19/86	Cheryl Ewy	           	
* V1.1	04/09/87	Bennet Marks, Cheryl Ewy       	
* V2.0	05/14/87	Bennet Marks, Cheryl Ewy
*
*
* Version 2.3     	
*
* 28 Apr 88	Harry Yee
*
* Fixed problem w/FixFontMenu where the handle to the FMParam block was not
* being locked and deref. at the correct place.
*
* 15 Jun 88	Harry Yee
*
* Prototype bit taken out of version #
*
*
*
* Version 2.4
*
* 29 Jun 88	Steven Glass
*
* Changed version number to 8204 for changes to scaling that make it run
* in ROM.
*
*
* 14 Jul 88	Steven Glass
*
* Two calls to GetWAP did not set the system/User flag correctly.  Instead they
* were pushing the program ID.  This caused the ToolLocator to return random values
* from the UserWAP Table.  This let the font manager use strange direct page
* locations.  Its a wonder it ever worked.
*
* The two routines that were affected are: DrawGuts and DrawSize.
*
* 15 Jul 88	Steven Glass
*
* LoadFont did not return valid fontstats if the font was not already in 
* memory.  This was because the LoadTheFont routine trashed the d-page location
* TempPtr during the load.
*
* 5 Dec 88	Sue Dumont
*
* InstallFont would not recreate a font that had been purged out of memory.  This was
* due to the fact that FindBestFit thought that the font was still hanging around.  Now,
* the font handle is checked to verify that it is valid before making that assumption.
*
* 10 Jan 89	Mensch
* 
* Choose font had a bug that hung the system if certain windows had pending update
* events. This was fixed by removing the use of taskmaster to perform auto updating
* and replacing it with a check of the updatergn of the window itself and calling 
* the update routine.
*
* 16 Jan 89	Mensch
*
* ChooseFont modified to use newwindow2 call and new control types. This reduces
* the size of the parameters handle allocated in RAM when the font manager starts
* and allows for internationalization in the future.
* ALSO fixed bug in install font, it did not always install the proper font.
*
* 20 Jan 89	Mensch
*
* Use new ROMResource stuff in misc tools for use with the choosefont call
*
* 14 Feb 89 	Yee
*
* TaskMask for ChooseFont dialog not correct. Bit 15 was clear which caused the choose
* font window to deactivate when the mouse was clicked in a window that had an info bar.
* This bottom window was then activated. Bit 15 is now set. BRC #41429.
*
* 3/24/89	Mensch (Guest apperance by Dave Lyons)
* 
* Fixed a bug in ReadFontLists that would cause the system to crash every now and then!
*
* 19 Apr 89	Yee
*
* Changed version number from 2.4 to 3.0
*
* 6/12/89	Mensch
*
* Fixed a bug in installfont. When you installed a scaled font that had been 
* installed before and purged, the new font would get a new entry in the font
* list. This would cause orphaned fonts in memory. Now the new font re-uses the
* previous entry in the font list.
*
* 11/13/89	Mensch
*
* Fixed a bug in FMStartup where it could leave partially digested font files on
* disk. This could cause the system to crash. Now if anything goes wrong when 
* creating the font lists file, it will be destroyed, so as not to leave poop
* on the disk.
*
* 1/5/90	Mensch
* Added code to put the watch cursor up when ChooseFont calls installFont and
* the system waits.
*
* 05 Apr 90	Yee
* Fixed bug in FMStartup. FMStartup could return a bogus error if a buffer it got
* to make OS calls crossed a bank boundary.
*
* 28-Sep-90	Dave Lyons
*
* Adding checks for reference number 0 before we do Close calls (when we needed a
* new Font.Lists file and couldn't create one, we were doing Close(0) by
* accident!).
*
* Version $8303.
*
* 25-Nov-90	Dave Lyons
*
* Returns fmBadParmErr ($1b0d) if you're stupid enough to pass 0 for the user id
* or direct-page address parameters to FMStartUp.
*
* 6-Jan-91	Dave Lyons
*
* Fixed a bug in Scale.asm (were losing bit 15 of owTOffset).
* Made <FontSize a long instead of a word.  We now support >64K-big fonts on disk.
* Optimized some lda #0/sta sequences into STZs.
*
* 23-Jan-91	Dave Lyons
*
* Doubled the maximum number of sizes displayed per family in ChooseFont from
* 12 to 24.
*
* 17-Feb-91	Dave Lyons
*
* Change ChooseFont to use DoModalWindow.  Now supports key equivalents (Return,
* ESC, Apple-period) and targetable list controls.
* "Font size must be a number from 1 to 255" is now ErrorWindow($98) instead of
* a hard-coded StopAlert call.  Optimized out a bunch of LDA/PHA into PEI.
* Made GetDirEntry buffer 36 bytes long instead of 20.
*
* Put extended task record storage inline (46 bytes).  Note that this makes
* the Font Manager not ROMmable at the moment.
*
* 17-Feb-91	Dave Lyons
*
* Need to add new calls:
*   $1D1B PreviewFontGlobals
*   $1E1B GetFontPathname
*   $1F1B AddFontByPathname
*
* 24-Feb-91	Dave Lyons
*
* Fixed ChooseFont direct-page use (broken 17-Feb when I decreased the amount
* used, so that important stuff was getting overwritten by other Font Mgr calls!).
*
* Changed the family name SortList call to pass 1 instead of 0 for sortProc, so
* the list is now sorted case-insensitive.
*
* 23-Apr-91	Dave Lyons
* 
* ChooseFont--bop to the Family List if they type a bad key in one of the other
* targetable items.
*
* 25-Apr-91	Dave Lyons
*
* Fixed FileName buffer to be long enough for 32-character file names.
* Changed built pathnames to use colons instead of slashes, so that font
* file names can contain slashes.  Changed AND #$000F to AND #$00FF so
* we can have font file names longer than 15 characters.
*
* 5-May-91	Dave Lyons
*
* Fixed ChooseFont call to SelectMember2 (for selecting current font
* size for new family) to not select anything if the size was not found
* (was passing large value before, trashing memory).
*
* 30-Sep-91	Dave Lyons
*
* Now we use a real filetype/auxtype for the Font.List file ($5A;0008).
*
* 4-Oct-91	Dave Lyons
*
* ChooseFont re-checks the Plain box when no other boxes are checked.
* Tabbing to a list doesn't rebuild the size list.
*
* 2-Dec-91	Dave Lyons
*
* Check for error on InflateTextBuffer call--don't make the font current
* if we couldn't make the text buffers big enough!
*
* Around LoadTheFont, set system preferences to prompt for disk, with no
* Cancel button.  (MOD IS NOT ROMMABLE!)
*
* 7-Dec-91	Dave Lyons
*
* Changed GetAndFixPrefs to keep the Cancel button state, instead of
* forcing no cancel button.
*
* 16-Dec-91	Ben Koning
*
* In MakeCurrent, there was a BCS to an RTS immediately after InflateTextBuffer
* call.  The problem is that whoever called MakeCurrent (AddScaledFont, from
* InstallFont) had already left the current grafport's font handle in a purgable
* state, and thus when InflateTextBuffer fails with $0201=out of memory, its
* memory manager calls have already managed to purge the current grafport's font.
* The fix is to install the current system font handle, id, face, size upon
* InflateTextBuffer tool error.  Also, this error now gets propagated from outside
* of AddScaledFont.
*
* 5-Feb-92	Dave Lyons
*
* Fixed ChooseFont not to accidentally leave with an I-Beam cursor, or to leave
* the I-Beam cursor up while it calls ErrorWindow with the bad-point-size
* message.
*
* 5-Feb-92pm	Dave Lyons
*
* Version $0303 for 6.0 final.
*
**********************************************************************
*
* 9-Mar-93	Steve Stephenson
*
* Version $8304 for 6.0.1d14
* Expanded the size list in ChooseFont to 96 members.  Added code to strip out duplicate
* sizes from the list (due to different styles).  Changed many places of _DisposeHandle
* to use a common subroutine.  Changed 56 occurrances of JMP to BRL to save on the OMF baggage.
*
* 2-Apr-93	Steve Stephenson
*
* Changed version to $0304 for 6.0.1 (final)
*
*********************************************************************************

	include 'all.macros'

	include 'Special.macros'
	
	string asis


;------------------------------------------
;
; Gequ from procedure FMData
;
;------------------------------------------
*** MaxSListCount	equ 12	;max # of members in Size list
;MaxSListCount	equ 24	;max # of members in Size list (doubled 23-Jan-91 DAL)
MaxSListCount	equ 96	;max # of members in Size list (re-re-doubled 8-Mar-93 SS)

;-----------------------------------------------
;
;   Imported address
;
;-----------------------------------------------


	import strip
	import oerrout
	import endcall
	import errout
	import oendcall
	import scalefont



;-----------------------------------------------
;
;   Forward address	and entries
;
;-----------------------------------------------
	ENTRY UnlockFMParams
	entry sortsizes

	ENTRY UnLock
	ENTRY Lock
	ENTRY MakeString
	ENTRY UnLockItemList
	ENTRY UnLockMDList
	ENTRY IncItemPtr
	ENTRY LockItemList
	ENTRY IncMDPtr
	ENTRY LockMDList
	ENTRY BuildMDList
	ENTRY GetEOF
	ENTRY MakeCurrent
	ENTRY UnLockFont
	ENTRY LockFont
	ENTRY CheckSysFont
	ENTRY CheckNil
	ENTRY AddScaledFont
	ENTRY LoadTheFont
	ENTRY StdEnd6
	ENTRY StdErr6
	ENTRY CheckFontID
	ENTRY CheckHandle
	ENTRY WriteFile
	ENTRY CreateFile
	ENTRY LockFMParams
	ENTRY SetEOF
	ENTRY SetMark
	ENTRY GetDirEntry
	ENTRY UnLockFileList
	ENTRY UnLockNameList
	ENTRY UnLockFamList
	ENTRY UnLockIDList
	ENTRY CloseFile
	ENTRY ReadFile
	ENTRY OpenFile
	ENTRY CopyFileName
	ENTRY IncFilePtr
	ENTRY IncNamePtr
	ENTRY IncFamPtr
	ENTRY IncIDPtr
	ENTRY CopyFamName
	ENTRY LockFileList
	ENTRY LockNameList
	ENTRY LockFamList
	ENTRY LockIDList
	ENTRY StdEnd4
	ENTRY LockBlock
	ENTRY GetHandle
	entry GetHandleXA	;6-Jan-91 DAL
	ENTRY StdErr4
	ENTRY DrawGuts
	ENTRY SizeHit
	ENTRY SizeList
	ENTRY DrawSize
	ENTRY FontHit
	ENTRY GDENameBuf
	ENTRY InstallWithStats
	ENTRY FamNum2ItemID
	ENTRY FMGetCurFID
	ENTRY FMGetSysFID
	ENTRY FMSetSysFont
	ENTRY ItemID2FamNum
	ENTRY ChooseFont
	ENTRY FixFontMenu
	ENTRY AddFontVar
	ENTRY LoadSysFont
	ENTRY LoadFont
	ENTRY FindFontStats
	ENTRY CountFonts
	ENTRY SetPurgeStat
	ENTRY InstallFont
	ENTRY AddFamily
	ENTRY GetFamNum
	ENTRY GetFamInfo
	ENTRY FindFamily
	ENTRY CountFamilies
	ENTRY oStdEnd0
	ENTRY FMStatus
	ENTRY FMReset
	ENTRY FMVersion
	ENTRY FMShutDown
	ENTRY FMStartUp
	ENTRY FMBootInit
	ENTRY DisposeTheHandle



****************************************************************
*
* FONT MANAGER DATA	STRUCTURES
*
****************************************************************

*---------------------------------------------------------------
*  The Font Manager	keeps information about all of the available
*  fonts in 4 different lists.  The ID List contains entries
*  describing every	available font.  The Family List contains
*  entries describing every distinct font family.  The Name	List
*  contains entries	for each distinct font family name.  The
*  File List contains entries for each font file on the system
*  disk.  The structure of each of the 4 list entries is shown
*  below. These structures are used throughout the Font Manager.
*---------------------------------------------------------------
*        ID List Entry	14 bytes
*
*          Family #		2 bytes        0 (offset)
*          Style		1 byte         2
*          Size		1 byte         3
*          Offset to Name List Entry	2 bytes        4
*          Offset to File List Entry	2 bytes        6
*          FontSpecBits	2 bytes        8
*          Font Handle	4 bytes        10
*---------------------------------------------------------------
*        Fam List Entry	6 bytes
*
*          Family #		2 bytes        0 (offset)
*          Offset to Name List Entry	2 bytes        2
*          FamSpecBits	2 bytes        4
*---------------------------------------------------------------
*        Name List Entry	2-26 bytes
*
*          Family Name Length	1 byte
*          Family Name	1-25 bytes
*---------------------------------------------------------------
*        File List Entry	2-16 bytes
*
*          File Name Length	1 byte
*          File Name	1-15 bytes
*---------------------------------------------------------------
*  The following data structure is used	only by
*  the FixFontMenu and ChooseFont routines.
*---------------------------------------------------------------
*        MD List Entry	8 bytes
*
*          Pointer to Name List Entry	4 bytes        0 (offset)
*          List Manager Flags	1 byte         4
*          Padding		1 byte         5
*          Family #		2 bytes        6
*---------------------------------------------------------------
*  The following data structure is used	only by
*  the ChooseFont routine.
*---------------------------------------------------------------
*        Size List Entry	5 bytes
*
*          Size		2 bytes        0 (offset)
*          Unused		2 bytes        2
*          List Manager Flags	1 byte         4
*---------------------------------------------------------------
*  The following data structure is used	only by
*  the FixFontMenu and ItemID2FamNum routines.
*---------------------------------------------------------------
*        Item List Entry	2 bytes
*
*          Family #		2 bytes
*---------------------------------------------------------------






****************************************************************
*
* FONT MANAGER DATA	DECLARATIONS
*
****************************************************************

*---------------------------------------------------------------
* Constants
*---------------------------------------------------------------
;
;

FMVerNum	equ $0304	;2-Apr-93 SS

FMTSNum	equ $1B	;tool set num for Font Manager

InitErr	equ $1B01	;duplicate init call
ResetErr	equ $1B02	;can't reset Font Manager
ActiveErr	equ $1B03	;Font Manager not active
NoFamErr	equ $1B04	;family not found
NoFontErr	equ $1B05	;font not found
MemErr	equ $1B06	;font not in memory
PurgeErr	equ $1B07	;system font cannot	be purgeable
FamNumErr	equ $1B08	;illegal family number
SizeErr	equ $1B09	;illegal size
NameErr	equ $1B0A	;illegal name length
MenuErr	equ $1B0B	;FixFontMenu never called
;added 2/10/87 - BHM:
scaleSizeErr	equ $1B0C	;font can't be scaled that large
;(must match ScaleFont definition)
fmBadParmErr	equ $1b0d	;the user id or dp address was stupid (added 25-Nov-90 DAL)
;
ProDOS	equ $E100A8	;ProDOS/16 entry vector
StackProDOS	equ $E100B0	;ProDOS/16 stack-based entry vector
OpenCall	equ $10	;ProDOS/16 call number
ReadCall	equ $12	;           "
CloseCall	equ $14	;           "
SetMarkCall	equ $16	;           "
GetEOFCall	equ $19	;           "
CreateCall	equ $01	;           "
WriteCall	equ $13	;           "
SetEOFCall	equ $18	;           "
GDECall	equ $1C	;           "
DestroyCall	equ $02

ButtonItem	equ 10	;item type for dialog manager
StatTextItem	equ 15+$8000	;           "

KeyDownEvt	equ 3	;event code
autoKeyEvt	equ 5	;event code (DAL)
ListPartCode	equ $88	;part code for list

Message	equ 2	;offset into TaskRec
Where	equ 10	;         "
Modifiers	equ 14	;         "
TaskMask	equ 20	;         "

DirNameLen	equ 14	;length of '*:System:Fonts'
MaxNameLen	equ 25	;max length of font's family name
BlockSize	equ 512
Illegal	equ $FFFF	;illegal family number
FontType	equ $C8	;filetype for font files

MemOnlyBit	equ $0001	;FontSpecBits
RealOnlyBit	equ $0002
AnyFamBit	equ $0004
AnyStyleBit	equ $0008
AnySizeBit	equ $0010

MemBit	equ $0001	;FontStatBits
UnrealBit	equ $0002
ApFamBit	equ $0004
ApVarBit	equ $0008
PurgeBit	equ $0010
NotDiskBit	equ $0020
NotFoundBit	equ $8000

BaseOnlyBit	equ $0020	;FamSpecBits

;ApFamBit      equ $0004	;FamStatBits
NotBaseBit	equ $0020
;NotFoundBit   equ $8000

NotMemBit	equ $FFFE	;all bits set except MemBit
UnPurgeable	equ $FFEF	;all bits set except PurgeBit
;
;added 2/10/87 - BHM:
dontScaleBit	equ $0001	;(see scaleWord input in InstallFont)
currFlag	equ $0001	;make font current (see LoadTheFont)
notCurrFlag	equ $FFFE
newMemFlag	equ $0002	;(see LoadTheFont)
oldMemFlag	equ $0004	;(see LoadTheFont)
;
;                COPY new.cons
;
****************************************************************************
*			               *
*  file NEW.CONS			               *
*			               *
*    started 8/31/87		               *
*    Bennet Marks  x6245		               *
*			               *
*  This file contains some new constants needed by the FMStartUp speed-up  *
*  experiment.  Also included are offsets used to make ProDOS stack-based  *
*  calls.			               *
*			               *
****************************************************************************
;
***************************************
*	                  *
*  11/10/87  1:20 pm                  *
*  BHM  x6245	                  *
*	                  *
***************************************
;
;FONT.LISTS format version number:
;
FLVerHi	equ $0000
FLVerLo	equ $0001
;
;offsets to data in	the FONT.LISTS file:
;
oRomFamNum	equ 4
oRomStyle	equ oRomFamNum+2
oRomSize	equ oRomStyle+2
oIDCount	equ oRomSize+2
oFamCount	equ oIDCount+2
oIDListSize	equ oFamCount+2
oFamListSize	equ oIDListSize+2
oNameListSize	equ oFamListSize+2
oFileListSize	equ oNameListSize+2
oTimeListSize	equ oFileListSize+2
;
FLFileHeadLen	equ oTimeListSize+2
;
;and some other constants:
;
GDENameBufSize	equ 36	;for the name buffer (was 20, 17-Feb-91 DAL)
FileNotFound	equ $46
EndOfDir	equ $61
BinFile	equ $06
;
;
*---------------------------------------------------------------
* Font Manager Zero	Page
*---------------------------------------------------------------

FMZBase	equ 0

TempHandle	equ FMZBase	;the following handles must be in
FileHandle	equ TempHandle+4	;this order
IDHandle	equ FileHandle+4
FamHandle	equ IDHandle+4
NameHandle	equ FamHandle+4
FontHandle	equ NameHandle+4
BlockHandle	equ FontHandle+4
MDHandle	equ BlockHandle+4
ItemHandle	equ MDHandle+4
FMParamHandle	equ ItemHandle+4	;added 11/10/87 - BHM x6245

TempPtr	equ FMParamHandle+4	;the following pointers must be in
FilePtr	equ TempPtr+4	;this order
IDPtr	equ FilePtr+4
FamPtr	equ IDPtr+4
NamePtr	equ FamPtr+4
FontPtr	equ NamePtr+4
BlockPtr	equ FontPtr+4
MDPtr	equ BlockPtr+4
ItemPtr	equ MDPtr+4
FMParamPtr	equ ItemPtr+4	;added 11/10/87 - BHM x6245

SavedFilePtr	equ FMParamPtr+4	;the following pointers must be in
SavedIDPtr	equ SavedFilePtr+4	;this order
SavedFamPtr	equ SavedIDPtr+4
SavedNamePtr	equ SavedFamPtr+4

IDListSize	equ SavedNamePtr+4
FamListSize	equ IDListSize+2
NameListSize	equ FamListSize+2
ItemListSize	equ NameListSize+2	;** added 2-25-87 CAE **

IDCount	equ ItemListSize+2
FamCount	equ IDCount+2
;
****  CHANGED 11/4/87:
;all the Font Manager's ProDOS calls (except GetDirEntry) now share a common
;block of 0-page for their parameter blocks.  Note that the	reference numbers
;(OpenRef, ReadRef,	etc.) are actually the same 0-page location.  In partic-
;ular, after an OpenFile call is done, the new ref number is in the right
;position for a subsequent ReadFile call. - BHM  x6245  11/4/87
;
ProDOSParams	equ FamCount+2
;
;Open call:
OpenRef	equ ProDOSParams	;reference number
OpenPtr	equ OpenRef+2	;ptr to pathname
OpenBuf	equ OpenPtr+4	;unused by Font Manager

;Read call:
ReadRef	equ ProDOSParams	;reference number
ReadPtr	equ ReadRef+2	;ptr to data buffer
ReadSize	equ ReadPtr+4	;number of bytes to	read
ReadActual	equ ReadSize+4	;number of bytes actually read

;Close call (whew!):
CloseRef	equ ProDOSParams	;reference number

;GetEOF and SetEOF calls:
EOFRef	equ ProDOSParams	;reference number
EOFSize	equ EOFRef+2	;EOF (new or returned result)

;GetMark and SetMark calls:
MarkRef	equ ProDOSParams	;refernce number
MarkLoc	equ MarkRef+2	;mark (new or returned result)

;Write call:
WriteRef	equ ProDOSParams
WriteBuf	equ WriteRef+2
WriteReq	equ WriteBuf+4
WriteTrans	equ WriteReq+4

;Create call:
CRNamePtr	equ ProDOSParams
CRAccess	equ CRNamePtr+4
CRFileType	equ CRAccess+2
CRAuxType	equ CRFileType+2
CRStore	equ CRAuxType+4
CRDate	equ CRStore+2
CRTime	equ CRDate+2

;Destroy call:
KillNamePtr	equ ProDOSParams

;
****  end of changes to ProDOS parameter blocks - BHM  x6245  11/4/87
;
;note that the parameter blocks above all use less than 20 bytes
;
MenuMade	equ ProDOSParams+20	;so this is safe
StartingID	equ MenuMade+2
ProgID	equ StartingID+2
SysFontID	equ ProgID+2
RomFbrExtent	equ SysFontID+4
OldStats	equ RomFBRExtent+2	;added 12/16/87 - BHM  x6245
;(for use by InstallWithStats)
;added 1/11/88 - BHM  x6245
temp1Ptr	equ OldStats+2
temp2Ptr	equ temp1Ptr+4
;the following locations are used to hold information that,	in the RAM
;of this tool, were	kept in the data segment.  Some also subsume 0-page
;locations that used to be private to ChooseFont - BHM  x6245  1/25/88
ScreenMode	equ temp2Ptr+4
WindPtr	equ ScreenMode+2
LineHndl	equ WindPtr+4

Temp	equ LineHndl+4

;
; Equates for ChooseFont item ID's
MDListID	equ 1
SizeListID	equ 2
SizeEditID	equ 3
OKID	equ 4
CancelID	equ 5
; these next style ID's must be in order...
PlainSID	equ 6
BoldSID	equ 7
ItalicSID	equ 8
UnderSID	equ 9
OutlineSID	equ 10
ShadowSID	equ 11
LastSID	equ 12
;
stat1ID	equ 12
stat2ID	equ 13
stat3ID	equ 14
;
; RefCon Equates for ChooseFont controls
useNILHit	equ 0
useFontHit	equ 1
useSizeHit	equ 2
useOtherHit	equ 3
useOKHit	equ 4
useCancelHit	equ 5
usePlainHit	equ 6
useStyleHit	equ 7


****************************************************************
*
* FONT MANAGER CALL	TABLE
*
****************************************************************

	EXPORT FMCallTable
FMCallTable	PROC
	import NewInstallFont
	import NewInstallWithStats

TheStart
	DC.L (TheEnd-TheStart)/4 	;num calls + 1
	DC.L FMBootInit-1
	DC.L FMStartUp-1
	DC.L FMShutDown-1
	DC.L FMVersion-1
	DC.L FMReset-1
	DC.L FMStatus-1
	DC.L oStdEnd0-1
	DC.L oStdEnd0-1
	DC.L CountFamilies-1
	DC.L FindFamily-1
	DC.L GetFamInfo-1
	DC.L GetFamNum-1
	DC.L AddFamily-1
	DC.L NewInstallFont-1
	DC.L SetPurgeStat-1
	DC.L CountFonts-1
	DC.L FindFontStats-1
	DC.L LoadFont-1
	DC.L LoadSysFont-1
	DC.L AddFontVar-1
	DC.L FixFontMenu-1
	DC.L ChooseFont-1
	DC.L ItemID2FamNum-1
	DC.L FMSetSysFont-1
	DC.L FMGetSysFID-1
	DC.L FMGetCurFID-1
	DC.L FamNum2ItemID-1 ;** added 2-25-87 CAE **
;the following call	was added late 12/87
;name changed 1/4/87 - BHM  x6245
	DC.L NewInstallWithStats-1
TheEnd

	ENDP


	ENTRY FMData
FMData	PROC

	Import StyleHit
	Import CancelHit
	Import OKHit
	Import PlainHit
	
*---------------------------------------------------------------
* Font Manager Data
*---------------------------------------------------------------
*
*  The following are templates, so they'll get copied over into
*  RAM for later use:
*
*
	ENTRY FMParams
FMParams

*-------------- GetDirEntry Parameter Block --------------------

	ENTRY GDERef
GDERef	DC.W 0
	ENTRY GDEReserved
GDEReserved	DC.W 0
	ENTRY GDEBase
GDEBase	DC.W 1
	ENTRY GDEDisplace
GDEDisplace	DC.W 1
	ENTRY GDENameBufPtr
GDENameBufPtr	DC.L GDENameBuf
	ENTRY GDEEntry
GDEEntry	DC.W 0
	ENTRY GDEFileType
GDEFileType	DC.W 0
	ENTRY GDEEOF
GDEEOF	DC.L 0
	ENTRY GDEBlockCount
GDEBlockCount	DC.L 0
	ENTRY GDECreateTime
GDECreateTime	ds.b 8
	ENTRY GDEModTime
GDEModTime	ds.b 8
	ENTRY GDEAccess
GDEAccess	DC.W 0
	ENTRY GDEAuxType
GDEAuxType	DC.L 0
	ENTRY GDEFileSysID
GDEFileSysID	DC.W 0

;name buffer:
	ENTRY GDENameBuf
GDENameBuf	DC.W GDENameBufSize
	ENTRY GDENameLen
GDENameLen	DC.W 0
GDEName	ds.b GDENameBufSize-4

*-------------- Font Filename Stuff ----------------------------

	ENTRY DirName
DirName	DC.B 0	;length byte
	DC.B '*:System:Fonts'
	ENTRY FileName
***FileName	DC.B '/               '
FileName	dc.b ':                                '  ;25-Apr-91 DAL
;
	ENTRY FLFileName
FLFileName	DC.B 10
	DC.B 'Font.Lists'

*-------------- Dummy Menu Item for FixFontMenu ----------------

	ENTRY DummyItem
DummyItem	DC.B '  '	;place holder
	DC.B ' \H'	;dummy string
	ENTRY DummyItemID
DummyItemID	DC.W 0	;item ID
	DC.B 0	;terminator


	ENTRY StyleItemRect
StyleItemRect	ds.b 8


*-------------- List Stuff for ChooseFont and FixFontMenu ------

	ENTRY MDListRect
MDListRect	ds.b 8	;list's enclosing rectangle
	ENTRY MDListSize
MDListSize	DC.W 0	;# of members in list
	DC.W 6	;view size
	DC.W 2	;type of members
	DC.W 1	;starting member
	DC.L 0	;space for list control's handle
	DC.L 0	;address of routine	to draw members
	DC.W 10	;height of member in pixels
	DC.W 8	;size of each member record
	ENTRY MDListPtr
MDListPtr	DC.L 0	;pointer to member list
	DC.L FontHit	;refcon
	DC.L 0	;address of color table for scroll bar;

	ENTRY SizeListRect
SizeListRect	ds.b 8	;list's enclosing rectangle
	ENTRY SizeListSize
SizeListSize	DC.W 0	;# of members in list
	DC.W 6	;view size
	DC.W 2	;type of members
	DC.W 1	;starting member
	DC.L 0	;space for list control's handle
	DC.L DrawSize	;address of routine	to draw members
	DC.W 10	;height of member in pixels
	DC.W 5	;size of each member record
	ENTRY SizeListPtr
SizeListPtr	DC.L SizeList	;pointer to member list
	DC.L SizeHit	;refcon
	DC.L 0	;address of color table for scroll bar

	ENTRY WindTemplates
WindTemplates	dc.L $0FFF1B01	; 320 mode choosefont window res ID
	dc.L 0	; 320 mode alert window
	dc.L $0FFF1B02	; 640 mode choosefont window res ID
	dc.L 0	; 640 mode alert window
	
	ENTRY SizeList
*** SizeList	ds.b 60	;space for 12 Size list members
SizeList	ds.b 5*MaxSListCount  ;23-Jan-91 DAL

	ENTRY StrLen
	ENTRY TheStr
StrLen	ds.b 1
TheStr	ds.b 3

	ENTRY EndOfFMParams
EndOfFMParams
;
; ROM only data follows

***	entry AlertRect
***AlertRect	dc.W 35,35,85,285
***	dc.W 35,195,85,445
***
***	ENTRY OKStr
***OKStr	str 'OK'


	if 0 then	;DAL 23-Jan-91 -- why is this stuff here in TOOL027?
		;We're getting it from GetROMResource these days

	entry OtherRect
OtherRect	dc.W 99,205,112,241
	dc.W 99,205,112,241
	
	ENTRY StrData
StrData
	ENTRY StylePtrs
StylePtrs	DC.L Style1Str
	DC.L Style2Str
	DC.L Style3Str
	DC.L Style4Str
	DC.L Style5Str
	DC.L Style6Str

	ENTRY CancelStr
CancelStr	str 'Cancel'

	ENTRY Style1Str
	ENTRY Style2Str
	ENTRY Style3Str
	ENTRY Style4Str
	ENTRY Style5Str
	ENTRY Style6Str
Style1Str	str 'Plain'
Style2Str	str 'Bold'
Style3Str	str 'Italic'
Style4Str	str 'Underline'
Style5Str	str 'Outline'
Style6Str	str 'Shadow'

	endif	;end of stuff we don't need (comes from GetROMResource)



;	ENTRY AlertStr
;TempStart
;AlertStr	DC.B TempEnd-TempStart-1 ; $29	         ;EndAlertStr-AlertStr-1
;	DC.B 'Font size must be a'
;	DC.B $0D
;	DC.B 'number from 1 to 255.'
;	ENTRY EndAlertStr
;EndAlertStr
;TempEnd

	ENDP



;                COPY init

****************************************************************
*
* FMBootInit
*
****************************************************************

	ENTRY FMBootInit
FMBootInit	PROC
	brl oStdEnd0
	ENDP



****************************************************************
*
* FMStartUp
*
****************************************************************

	ENTRY FMStartUp
FMStartUp	PROC

EntryLength	equ Temp
EntriesInBlock	equ EntryLength+2
EntryCount	equ EntriesInBlock+2
NumFiles	equ EntryCount+2
NumFonts	equ NumFiles+2
FileCount	equ NumFonts+2
Mult2	equ FileCount+2
Mult8	equ Mult2+2
Mult16	equ Mult8+2

RomInfoRec	equ Mult16+2	;the following items MUST appear
RomFamNum	equ RomInfoRec	;in this order
RomStyle	equ RomFamNum+2
RomSize	equ RomStyle+2
RomFontHndl	equ RomSize+2
RomNamePtr	equ RomFontHndl+4
RomExtent	equ RomNamePtr+4
;
;added 8/31/87
fNamePtr	equ RomExtent+2
currFNamePtr	equ fNamePtr+4
;
fNameLen	equ currFNamePtr+4
currFNameLen	equ fNameLen+2
errCode	equ currFNameLen+2
FLFileRef	equ errCode+2
FONTSDirRef	equ FLFileRef+2
FileListSize	equ FONTSDirRef+2
NumFontFiles	equ FileListSize+2
;added 9/24/87
TimeListSize	equ NumFontFiles+2
TimeHandle	equ TimeListSize+2
TimePtr	equ TimeHandle+4
SavedTimePtr	equ TimePtr+4
fTimePtr	equ SavedTimePtr+4
;end of additions -	BHM  x6245
;

***	cmp #0	;already initialized?
	tax	;optimized 25-Nov-90 DAL
	beq @Doit	;no
	ldx #InitErr	;yes - so return error
@stupidErr	ldy #4	;param size
	jml oerrout

@Doit
*** added 25-Nov-90 DAL
*** return error for stupid direct-page or user id parameters
	ldx #fmBadParmErr
	lda 7,s
	beq @stupidErr
	lda 9,s
	beq @stupidErr
*** end of 25-Nov-90 DAL

	phd
	lda 9,s	;get zero page address
	tcd

	ldx #$FE
ZPLoop	stz <FMZBase,x	;clear zero page
	dex
	dex
	bpl ZPLoop

	lda 11,s	;get program ID
	sta <ProgID	;and save
;
;get RAM space for some mutable FM data, and move them in:
	jsr SetUpFMParams
	bcc GotFMParams
	tax	;error code
	brl StdErr4
GotFMParams
;
;get a buffer for block reads:
	lda #BlockSize	;512 bytes
	jsr GetHandle	;get space to do block reads into
	bcc GotMem
	sta <errCode
	brl Error1	;return the error
;
GotMem	sta <BlockHandle	;get handle to block
	stx <BlockHandle+2
;
	jsr LockBlock
;
	jsr GetListHandles
	bcc GotListHandles
	sta <errCode
	brl Error1a
GotListHandles

*****************************************************************************
*
*  Error-handling changed here and below so that ProDOS errors in handling
*  FONT.LISTS do not abort the start-up.  (In particular, trying to create
*  and/or update FONT.LISTS when the system disk is write-protected does not
*  generate an error; FONT.LISTS is just forgotten about is	those cases.)
*
*  Bennet Marks  x6245  1/7/88
*
*****************************************************************************

	jsr OpenFLFile	;will also create it, if need be
	bcc GotFLFile
;some error condition - treat FONT.LISTS as invalid (i.e., useless)
;
	jsr OpenFONTSDir
	bcc FLFileNotValid	;because it's empty
	sta <errCode
	brl Error2a

GotFLFile		;and it's open, too
	jsr OpenFONTSDir
	bcc GotFONTSDir
	sta <errCode
	brl Error3

GotFONTSDir
	jsr CheckFLFile
	bcc FLFileGood
;some error condition - FONT.LISTS useless
;
FLFileNotValid
;FONTS open, marked	at beginning & FONT.LISTS open, empty
;
;FONT.LISTS didn't pass its validity test, so we have to make
;the lists "the old-fashioned way"
;
	jsr GetFileNames
	bcc GotFileNames
	brl Error5
;
GotFileNames
	jsr SetUpFontInfo
	bcc FontListsOK
	sta <errCode
	brl Error6
;
FontListsOK
	jsr UpdateFLFile
;ignore any errors - just because we can't
;update FONT.LISTS doesn't mean we should quit
;
; 11/13/89 Mensch
; But it does mean that the file that was written out is probably BAD!
; Since this could easily be the case, we test for errors here and delete the file
; if any errors occured in the process of writing the file.
; This should fix bugs where bad font.lists were being created 
	bcc FLFileDone
	jsr KillBadFLFile	; font list file somehow bad, kill it!
FLFileDone
	bra WeAreDone
;
;
FLFileGood
;FONT.LISTS passed the validity tests, so we trust the rest	of its info
	jsr ReadFontLists
	bcc GotFontLists
	sta <errCode
	brl Error8
;
GotFontLists
;all done, so:
;
WeAreDone
;
	jsr CloseFLFile
	jsr CloseFONTSDir
;
	jsr UnlockFMParams
;
	lxy <BlockHandle	;8-Mar-93 SS
	jsr DisposeTheHandle
;(NOTE:  later, we may actually want to	keep the param block around until
;FMShutDown.  For this we need another permanent handle - but we'll get back
;0-page space now used for ProDOS call parameters.)
;
	lxy <TimeHandle	;8-Mar-93 SS
	jsr DisposeTheHandle
;
	lda 9,s	;get zero page address
	PushWord #0
	PushWord #FMTSNum
	PushWord #0
	pha
	_SetWAP	;set work area pointer

	brl StdEnd4
;
;
Error8
Error7
Error6
Error5
Error4
	jsr CloseFONTSDir
;
Error3
Error2a
	jsr CloseFLFile
;
Error2
	lxy <FileHandle	;8-Mar-93 SS
	jsr DisposeTheHandle
	lxy <IDHandle	;8-Mar-93 SS
	jsr DisposeTheHandle
	lxy <FamHandle	;8-Mar-93 SS
	jsr DisposeTheHandle
	lxy <NameHandle	;8-Mar-93 SS
	jsr DisposeTheHandle
	lxy <TimeHandle	;8-Mar-93 SS
	jsr DisposeTheHandle
;
Error1a
	lxy <BlockHandle	;8-Mar-93 SS
	jsr DisposeTheHandle
;
Error1
	lxy <FMParamHandle	;8-Mar-93 SS
	jsr DisposeTheHandle
;
	ldx <errCode
	brl StdErr4
***************************************
*	                  *
*  end FMStartUp	                  *
*	                  *
***************************************
;
*****************************************************************************
*			                *
*  subroutine SetupFontInfo		                *
*			                *
*****************************************************************************
;
***************************************
*	                  *
*  9/8/87  5:40 pm	                  *
*  BHM  x6245	                  *
*	                  *
***************************************
;
SetupFontInfo
;
	jsr LockIDList
	jsr LockFamList
	jsr LockNameList
	jsr LockFileList
	jsr SaveListPtrs	;save ptrs to all 4	lists

;Set up first entry	in each list for ROM font.  At FMStartUp time,
;QuickDraw system font must be the ROM font so set SysFontID to ID of ROM font.

	PushZPtr <RomInfoRec
	_GetRomFont

	lda <RomExtent
	sta <RomFbrExtent	;save for GrowTextBuf routine

	lda <RomFamNum	;get ROM font's fam #
	sta [<FamPtr]	;store in fam entry
	sta [<IDPtr]	;and ID entry
	sta <SysFontID	;and Sys font info

	lda <RomSize	;get ROM font's size
	xba
	ora <RomStyle	;OR with ROM font's style
	ldy #2
	sta [<IDPtr],y	;store style/size word in ID entry
	sta <SysFontID+2	;and Sys font info

	lda #0	;zero out fields in	ID and fam entries
	sta [<FamPtr],y	;offset to famname entry
	iny
	iny
	sta [<FamPtr],y	;info word
	sta [<IDPtr],y	;offset to famname entry
	iny
	iny
	sta [<IDPtr],y	;offset to filename	entry
	iny
	iny
	lda #MemBit
	sta [<IDPtr],y	;info word (MemBit set)

	lda <RomStyle	;get ROM font's style
	beq RomPlain	;it's plain
	lda #NotBaseBit
	ldy #4
	sta [<FamPtr],y	;it's not plain so set 'NotBaseBit'
RomPlain		;

	ldy #10
	lda <RomFontHndl	;get handle to ROM font
	sta [<IDPtr],y	;store in ID entry
	iny
	iny
	lda <RomFontHndl+2
	sta [<IDPtr],y

	lda <RomNamePtr	;get ptr to ROM font name
	sta <TempPtr
	lda <RomNamePtr+2
	sta <TempPtr+2

GotName	jsr CopyFamName	;copy ROM font name	into famname list

	jsr IncIDPtr
	jsr IncFamPtr
	jsr IncNamePtr
	jsr IncFilePtr

;Read in the first block of each font file.  Create an ID entry for each font
;and Family and Name entries for each distinct family.

	stz <FileCount	;# font files processed
	lda #1
	sta <FamCount	;# of font families	(count ROM font)
	sta <IDCount	;# of fonts (count ROM font)

	lda <NumFonts
	bne FileLoop
	brl Done2	;quit if no font files to process

FileLoop	jsr CopyFileName	;copy file name into pathname string
**** changed to use	FMParams block - BHM  x6245  11/12/87
	lda <FMParamPtr
	clc
	adc #(DirName-FMParams) ;store ptr to pathname of
	sta <OpenPtr	;font file in OPEN param
	lda <FMParamPtr+2
	adc #0
	sta <OpenPtr+2
	jsr OpenFile	;open the font file
	bcc ReadBlock
	rts
;
ReadBlock
;the Open was just done, so the ref number is in place for reading
	lda #BlockSize
	sta <ReadSize
***	lda #0
***	sta <ReadSize+2
	stz <ReadSize+2	;6-Jan-91 DAL
	lda <BlockPtr
	sta <ReadPtr
	lda <BlockPtr+2
	sta <ReadPtr+2
;(actually, you don't have to do all that, at least not every time -
;but I'm just getting used to this stuff - BHM  9/4/87)
;
	jsr ReadFile	;read first block of font file
	bcc NewID
;
	rts	;return the error

;create a new entry	in the ID list for this font

NewID	sec
	lda <FilePtr	;calc offset to filename entry in list
	sbc <SavedFilePtr
	ldy #6
	sta [<IDPtr],y	;store in ID entry

	lda [<BlockPtr]	;get font's famname length
	and #$00FF
	inc a	;add 1 for the length byte itself
	inc a	;add 2 to skip 'offset to MF' field
	inc a
	tay	;offset to ID in the font file
	lda [<BlockPtr],y	;get font's family # from file
	sta [<IDPtr]	;store in ID entry
	iny
	iny
	lda [<BlockPtr],y	;get font's style word from file
	and #$00FF	;mask off hi byte
	pha	;save on stack
	iny
	iny
	lda [<BlockPtr],y	;get font's size word from file
	and #$00FF	;mask off hi byte
	xba	;swap bytes
	ora 1,s	;OR with style word
	ldy #2
	sta [<IDPtr],y	;store style/size word in ID entry
	pla	;clean up stack

	lda #0
	ldy #8
	sta [<IDPtr],y	;zero out info word	in ID entry
	iny
	iny
	sta [<IDPtr],y	;zero out font handle in ID entry
	iny
	iny
	sta [<IDPtr],y

;check if this font's family already has an entry in the Fam list

	ldx #0	;# of fam entries checked
	ldy #0
FamLoop	lda [<SavedFamPtr],y ;get fam #
	cmp [<IDPtr]	;match?
	beq GotFam	;yes - so already entry for this fam #
	tya
	clc
	adc #6
	tay	;create offset to next fam entry
	inx
	cpx <FamCount	;have we checked all fam entries?
	bne FamLoop	;no
	bra NewFam	;yes - so it's a new fam #

GotFam	iny
	iny
	phy	;save Y on stack
	lda [<SavedFamPtr],y ;get offset to famname
	ldy #4
	sta [<IDPtr],y	;store famname offset in ID entry
	ldy #2
	lda [<IDPtr],y	;get style/size of font
	ply	;retrieve previous value of Y
	and #$00FF	;mask off size byte
	bne NotPlain	;branch if font is not plain
	iny	;font is plain
	iny
	lda #0
	sta [<SavedFamPtr],y ;clear info word for fam entry
NotPlain	brl NextFile

;create new entries	in the Fam list and	the Name list for this font's family

NewFam	sec
	lda <NamePtr
	sbc <SavedNamePtr	;calculate offset to famname in list
	ldy #2
	sta [<FamPtr],y	;store in fam entry
	ldy #4
	sta [<IDPtr],y	;and ID entry

	lda <BlockPtr
	sta <TempPtr
	lda <BlockPtr+2
	sta <TempPtr+2
	jsr CopyFamName	;copy famname into famname list

	lda [<IDPtr]	;get family #
	sta [<FamPtr]	;and save in fam list

	ldy #2
	lda [<IDPtr],y	;get style/size of font
	and #$00FF	;mask off size byte
	beq Plain	;branch if font is plain
	lda #NotBaseBit
Plain	ldy #4
	sta [<FamPtr],y	;set info word in fam entry

	inc <FamCount	;# of font families
	jsr IncNamePtr
	jsr IncFamPtr

NextFile	jsr CloseFile	;close the font file
;(there's been no ProDOS action since Opening and Reading, so
;the ref number is still right.)
	bcc CloseOK
	rts

CloseOK	jsr IncFilePtr
	jsr IncIDPtr

	inc <IDCount
	inc <FileCount
	lda <FileCount	;get # font files processed
	cmp <NumFonts	;done with all font	files?
	beq Done2	;yes
	brl FileLoop	;no - so continue

Done2	jsr UnLockIDList
	jsr UnLockFamList
	jsr UnLockNameList
	jsr UnLockFileList

	jsr ShrinkLists	;shrink all lists to correct size
	rts
***************************************
*	                  *
*  end SetupFontInfo                  *
*	                  *
***************************************
;
*****************************************************************************
*			                *
*  subroutine SizeLists		                *
*			                *
*    started 8/27/86		                *
*    Bennet Marks  x6245		                *
*			                *
*  This subroutine re-sizes the Font Manager's lists to the maximum size    *
*  needed to accept	the information read in from all the font files in      *
*  FONTS.  This is done after FONT.LISTS has failed the validity test (if   *
*  FONT.LISTS was valid, we would read the lists and their exact sizes in   *
*  from there).			                *
*			                *
*  The sizing is based on the number of	font files, and the	maximum allowed *
*  lengths for font	family names and file names.  The lists	will be shrunk  *
*  after the actual	space needed is known.	                *
*			                *
*  If the SizeLists	succeeds, it returns with carry clear; otherwise it     *
*  returns with carry set and the error	code in the acc.  SizeLists returns *
*  by an RTS, and does not have a separate entry point; it's part of        *
*  FMStartUp.			                *
*			                *
*****************************************************************************
;
***************************************
*	                  *
*  9/24/87  12:45 pm                  *
*  BHM  x6245	                  *
*	                  *
***************************************
;
SizeLists	PushWord #0	;for high word of size

	lda <NumFiles	;get # of files in FONTS
	inc a	;add 1 for ROM font
	asl a
	sta <Mult2	;multiply by 2 and save result
	asl a
	asl a
	sta <Mult8	;multiply by 8 and save result
	asl a
	sta <Mult16	;multiply by 16 and	save result

	clc
	lda <Mult16
	adc <Mult8
	adc <Mult2
	pha	;low word of size
	PushZLong <NameHandle
	_SetHandleSize
	bcc SizedNameHndl
	rts
SizedNameHndl
	jsr UnlockFileList
	jsr UnlockTimeList

***	PushWord #0	;high word of size
*	lda <Mult16	;low word of size
*	pha
***	pei <Mult16

*** added 25-Apr-91 DAL
	pha
	pha
	pea 33
	pei <NumFiles	;fileHandle can need 33*NumFiles bytes
	_Multiply
*** end of 25-Apr-91 DAL
	PushZLong <FileHandle
	_SetHandleSize
	bcc SizedFileHndl
	rts
SizedFileHndl
	PushWord #0	;high word of size
	sec
	lda <Mult16
	sbc <Mult2	;low word of size
	pha
	PushZLong <IDHandle
	_SetHandleSize
	bcc SizedIDHndl
	rts
SizedIDHndl
	PushWord #0	;hi
	sec
	lda <Mult8
	sbc <Mult2	;low
	pha
	PushZLong <FamHandle
	_SetHandleSize
	bcc SizedFamHandle
	rts
SizedFamHandle
	PushWord #0
	PushWord <Mult16
	PushZLong <TimeHandle
	_SetHandleSize
	rts

***************************************
*	                  *
*  end SizeLists	                  *
*	                  *
***************************************
;
****************************************************************************
*			               *
*  subroutine ShrinkLists		               *
*			               *
****************************************************************************
;
***************************************
*	                  *
*  9/28/87  2:20 pm	                  *
*  BHM  x6245	                  *
*	                  *
***************************************
;
ShrinkLists
;
	sec
	lda <FilePtr
	sbc <SavedFilePtr	;calculate final size of filename list
	sta <FileListSize
	PushWord #0	;hi word of size
	pha	;lo word of size
	PushZLong <FileHandle ;handle to list
	_SetHandleSize	;shrink list to correct size

	sec
	lda <NamePtr
	sbc <SavedNamePtr	;calculate final size of famname list
	sta <NameListSize	;and save
	Pushword #0	;hi word of size
	pha	;lo word of size
	PushZLong <NameHandle ;handle to list
	_SetHandleSize	;shrink list to correct size

	sec
	lda <FamPtr
	sbc <SavedFamPtr	;calculate final size of family list
	sta <FamListSize	;and save
	PushWord #0	;hi word of size
	pha	;lo word of size
	PushZLong <FamHandle ;handle to list
	_SetHandleSize	;shrink list to correct size

	sec
	lda <IDPtr
	sbc <SavedIDPtr	;calculate final size of ID list
	sta <IDListSize	;and save
	PushWord #0	;hi word of size
	pha	;lo word of size
	PushZLong <IDHandle	;handle to list
	_SetHandleSize	;shrink list to correct size
;
;time list is handled in GetFileNames
	rts

;-----------------------------------------------------------------------------

SaveListPtrs	ldx #14
Loop	lda <FilePtr,x
	sta <SavedFilePtr,x
	dex
	dex
	bpl Loop
;
;time list is handles in GetFileNames
	rts
;
*****************************************************************************
*			                *
*  subroutine OpenFONTSDir		                *
*			                *
*    started 8/27/87		                *
*    Bennet Marks  x6245		                *
*			                *
*  This subroutine opens the subdirectory *:SYSTEM:FONTS, which is supposed *
*  to contain all font files (that the Font Manager is to handle) and the   *
*  file FONT.LISTS.	 If it succeeds, it	saves the subdirectory's reference  *
*  number in FONTSDirRef, and returns with the carry clear;	otherwise it    *
*  returns with the	carry set and the error number in the acc.              *
*			                *
*  Currently, OpenFONTSDir returns with	an RTS, and does not have a         *
*  separate entry point; it's just part of FMStartUp.                       *
*			                *
*****************************************************************************
;
***************************************
*	                  *
*  2/9/88 (Happy Birthday, Steve!     *
*  BHM  x6245	                  *
*	                  *
***************************************
;
OpenFONTSDir		;
;
****  changed to use FMParams block - BHM  x6245  11/12/87
;
	ldy #(DirName-FMParams)
	lda [<FMParamPtr],y	;get first word of font subdir-
	and #$FF00	;ectory name and clear lenght byte
	ora #DirNameLen	;set length to proper value
	sta [<FMParamPtr],y	;and save

	lda <FMParamPtr
	clc
	adc #(DirName-FMParams) ;store ptr to name of font subdirectory
	sta <OpenPtr	;in OPEN params
;correction added 2/9/88               
	lda <FMParamPtr+2
	adc #0
	sta <OpenPtr+2
;end of correction - BHM  x6245  2/9/88
	jsr OpenFile	;open the font subdirectory file
	bcc OpenOK
	rts	;back with error
;
OpenOK		;
	lda <OpenRef
	sta <FONTSDirRef
	rts
***************************************
*	                  *
*  end OpenFONTSDir	                  *
*	                  *
***************************************
;
*****************************************************************************
*			                *
*  subroutine GetFileNames		                *
*			                *
*    started 8/27/87		                *
*    Bennet Marks  x6245		                *
*			                *
*  This subroutine is called when FONT.LISTS doesn't pass the validity      *
*  test.  It goes out to the disk and constructs a list of all font file    *
*  names, so that a	later subroutine (SetUpFontInfo) can open them all,     *
*  one at a time, and construct the other lists the Font Manager needs.     *
*			                *
*  GetFontNames assumes the FONTS subdirectory has already been opened.     *
*  It returns with an RTS, and does not	have a separate entry point; it's   *
*  just part of FMStartUp.		                *
*			                *
*****************************************************************************
;
***************************************
*	                  *
*  11/10/87  3:10 pm                  *
*  BHM  x6245	                  *
*	                  *
***************************************
;
***************************************
*	                  *
*  Changed to use GetDirEntry         *
*  - BHM  9/15/87	                  *
*	                  *
*  Now gets create & mod times &      *
*  dates (maybe we should rename it)  *
*  - BHM 9/24/87	                  *
*	                  *
***************************************
;
GetFileNames		;
;
;use GetDirEntry to	get the number of active files in FONTS
;
	lda <FONTSDirRef
	sta [<FMParamPtr]	;trust me
;
	lda #0
	ldy #(GDEBase-FMParams)
	sta [<FMParamPtr],y
	iny
	iny
	sta [<FMParamPtr],y
;
	jsr GetDirEntry
;
;quick like rabbit set GDE default params back, just in case
;
	lda #1
	ldy #(GDEBase-FMParams)
	sta [<FMParamPtr],y
	iny
	iny
	sta [<FMParamPtr],y
;
	bcc GotNumFiles
	lda #0	; if an error occured, zero out the number of files
	ldy #(GDEEntry-FMParams)
	sta [<FMParamPtr],y
; and drop right thru to the rest of the routine now ...
;
GotNumFiles		;
	ldy #(GDEEntry-FMParams)
	lda [<FMParamPtr],y
	sta <NumFiles	;number of active files in FONTS
;
	jsr SizeLists
	bcc GotLists
	rts
;
GotLists		;
	jsr LockFileList
	jsr LockTimeList
;this seems to be a	good place to save TimePtr
	lda <TimePtr
	sta <SavedTimePtr
	lda <TimePtr+2
	sta <SavedTimePtr+2
;
	stz <NumFonts	;# of font files (not ROM font)
;
;create "dummy" file entry for ROM font	and
;application fonts to point to
;
	lda #1
	sta [<filePtr]
	lda #0
	ldy #2
	sta [<filePtr],y
;
	jsr IncFilePtr
;
;create dummy entry	in TimeList (just for consistency)
	ldy #14
	lda #0
NextTimeWord
	sta [<TimePtr],y
	dey
	dey
	bpl NextTimeWord
;
	jsr IncTimePtr

;
*****  NOTE:  the following code is very similar to some code in
*****  CheckFLFile,	and can probably be	boiled down into a subroutine
*****  usable by both - BHM  9/15/87
;
NextEntry		;
	jsr GetDirEntry
	bcc GotEntry
;some error:
	cmp #EndOfDir
	beq NoMoreEntries	;if you call that an error
	cmp #1	; was it an invalid call number???
	beq NoMoreEntries	; if so, just continue...
	sec	;for a real error .	. .
	rts
;
GotEntry		;
;the following flip	is to account for the fact that GetDirEntry uses a length
;word, while we need it to be a byte (we know the upper byte is 0, anyway)
;
	ldy #(GDENameLen-FMParams)
	lda [<FMParamPtr],y
	and #$00FF
	sta <fNameLen	;useful later
	xba
	sta [<FMParamPtr],y
;now check out that	file
;
	ldy #(GDEFileType-FMParams)
	lda [<FMParamPtr],y	;file type
	and #$00FF	;only low byte significant [?]
	cmp #FontType	;same as font?
	bne NextEntry	;no
;yes:
	ldy #(GDEAuxType-FMParams)
	lda [<FMParamPtr],y
	bne NextEntry	;aux type must be 0
	iny
	iny
	lda [<FMParamPtr],y
	bne NextEntry	;all of it
;it's a font file!
;
	inc <NumFonts
;
;copy name into file name list
	ldy <fNameLen
CopyLoop		;
	lda [<fNamePtr],y
	sta [<filePtr],y
	dey
	beq CopyLoop
	dey
	bpl CopyLoop
;
	jsr IncFilePtr
;
;move in the times & dates
;
	ldy #14
NextTimeWord2		;
	lda [<fTimePtr],y
	sta [<TimePtr],y
	dey
	dey
	bpl NextTimeWord2
;
	jsr IncTimePtr

	brl NextEntry
;
NoMoreEntries		;
;
;and this is a good	place to calculate the size of the time	list
	lda <TimePtr
	sec
	sbc <SavedTimePtr
	sta <TimeListSize
;
	jsr UnLockFileList	;unlock filename list
	jsr UnlockTimeList	;and time list
;and now that it's unlocked, let's shrink the time list
	PushWord #0	;high word
	lda <TimeListSize
	pha	;low
	PushZLong <TimeHandle
	_SetHandleSize
;
	clc
	rts
***************************************
*	                  *
*  end GetFileNames	                  *
*	                  *
***************************************
;
*****************************************************************************
*			                *
*  subroutine GetListHandles		                *
*			                *
*    started 8/27/87		                *
*    Bennet Marks  x6245		                *
*			                *
*  This subroutine gets handles for NameList, FamList, IDList, and          *
*  FileList.  Each list is allocated a token amount of space (10 bytes).    *
*  If the subroutine is successful, it returns with carry clear; otherwise  *
*  it returns with carry set, the error	code in the acc., and none of the   *
*  handles allocated.  Nice, huh?		                *
*			                *
*  GetListHandles returns with an RTS and does not have a separate entry    *
*  point; it's part of FMStartUp.                                           *
*			                *
*****************************************************************************
;
***************************************
*	                  *
*  9/24/87  1:15 pm	                  *
*  BHM  x6245	                  *
*	                  *
***************************************
;
GetListHandles		;
;
	lda #10	;a token amount
	jsr GetHandle
	bcc GotNameHandle
	rts
GotNameHandle		;
	sta <NameHandle
	stx <NameHandle+2
;
	lda #10
	jsr GetHandle
	bcc GotFamHandle
	sta errCode
	bra HandError1
GotFamHandle		;
	sta <FamHandle
	stx <FamHandle+2
;
	lda #10
	jsr GetHandle
	bcc GotIDHandle
	sta errCode
	bra HandError2
GotIDHandle		;
	sta <IDHandle
	stx <IDHandle+2
;
	lda #10
	jsr GetHandle
	bcc GotFileHandle
	sta errCode
	bra HandError3
GotFileHandle		;
	sta <FileHandle
	stx <FileHandle+2
;
	lda #10
	jsr GetHandle
	bcc GotTimeHandle
	sta errCode
	bra HandError4
GotTimeHandle		;
	sta <TimeHandle
	stx <TimeHandle+2
;
	clc
	rts
;
HandError4		;
	lxy <FileHandle	;8-Mar-93 SS
	jsr DisposeTheHandle
HandError3		;
	lxy <IDHandle	;8-Mar-93 SS
	jsr DisposeTheHandle
HandError2		;
	lxy <FamHandle	;8-Mar-93 SS
	jsr DisposeTheHandle
HandError1		;
	lxy <NameHandle	;8-Mar-93 SS
	jsr DisposeTheHandle
;
	lda errCode
	sec
	rts
***************************************
*	                  *
*  end GetListHandles                 *
*	                  *
***************************************
;
;
*****************************************************************************
*			                *
*  subroutine CloseFONTSDir		                *
*			                *
*    started 8/31/87		                *
*    Bennet Marks  x6245		                *
*			                *
*  This subroutine closes the subdirectory *:SYSTEM:FONTS.	If it succeeds, *
*  it returns with carry clear; otherwise with carry set and the error code *
*  in the acc.			                *
*			                *
*  Currently, CloseFONTSDir returns with an RTS, and does not have a        *
*  separate entry point; it's just part of FMStartUp.                       *
*			                *
*****************************************************************************
;
***************************************
*	                  *
*  9/2/87  1:20 pm	                  *
*  BHM  x6245	                  *
*	                  *
***************************************
;
CloseFONTSDir		;
;
	lda <FONTSDirRef
	sta <CloseRef
;
	jsr CloseFile
	rts
***************************************
*	                  *
*  end CloseFONTSDir                  *
*	                  *
***************************************

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;and some other stuff (here instead of in STDSTUFF
;because the time list is local to FMStartUp):
;
LockTimeList		;
;
	ldy #4
	lda [<TimeHandle],y
	ora #$8000
	sta [<TimeHandle],y
;
	lda [<TimeHandle]
	sta <TimePtr
	ldy #2
	lda [<TimeHandle],y
	sta <TimePtr+2
;
	rts
;
****************
;
UnlockTimeList		;
;
	ldy #4
	lda [<TimeHandle],y
	and #$7FFF
	sta [<TimeHandle],y
	rts
;
******************
;
IncTimePtr		;
;
	lda <TimePtr
	clc
	adc #16
	sta <TimePtr
	lda <TimePtr+2
	adc #0
	sta <TimePtr+2
	rts


;                COPY SpeedStuff
;
*****************************************************************************
*			                *
*  file SpeedStuff			                *
*			                *
*    started 8/24/87		                *
*    Bennet Marks  x6245		                *
*			                *
*  This file contains code which will be integrated into FMStartUp (and     *
*  possibly other Font Manager calls) to help speed up the Font Manager     *
*  start-up procedure.  Currently the Font Manager opens every font file    *
*  in the FONTS subdirectory in order to make lists of available fonts,     *
*  distinct family names, file names of	font files, etc.  This is very      *
*  slow.  Our plan is to create a file,	font.lists, that has all that       *
*  information in it, so that the Font Manager only has to open and read    *
*  in from that one	file.  The only problem is validation -	how do we know  *
*  the information in font.lists is still good some time after it was       *
*  created?  This way:  by remembering the create dates & times and the     *
*  last-mod dates &	time for every file, we can run a check	on every font   *
*  file in FONTS to	see if font files with the same names (one as an actual *
*  file in FONTS, the other as a remembered name & dates & time in          *
*  font.lists) match.  You would have to go out of your way	to break that   *
*  validation check.  Also, we will check to see if new font files have     *
*  shown up, or old	ones disappear.  If	font.lists is good,	we will use the *
*  info in it.  Otherwise we will go through the long font-reading process, *
*  and update font.lists while we're at it.                                 *
*			                *
*  In our first pass, we'll treat font.lists as either completely valid or  *
*  utterly useless.	 Later revisions will attempt to integrate new info     *
*  and discard outdated info, but still	make efficient use of the parts of  *
*  font.lists that appear to be good.  (In our VERY first pass, we may even *
*  skip the dates &	times business, and	validate simply on file names; but  *
*  that's just for demo purposes.)                                          *
*			                *
*  Other goals:  making the code ROMable.  Using GetDirEntry instead of     *
*  reading directory blocks directly.		                *
*			                *
*****************************************************************************
;
*****************************************************************************
*			                *
*  subroutine FindFileName		                *
*			                *
*    started 8/24/87		                *
*    Bennet Marks  x6245		                *
*			                *
*  This subroutine attempts to find a name pointed to by FNamePtr in the    *
*  list of names pointed to CurrFNamePtr.  If it finds the name, it returns *
*  with the carry clear, CurrFNamePtr pointing to the matching name in the  *
*  list, and the "position number" (0-based) of the matching name in the    *
*  acc.  - 0 if it was the first name, 1 if the second, etc.  If the name   *
*  isn't found, FindFileName returns with the carry set; CurrFNamePtr and   *
*  acc. are undefined.		                *
*			                *
*  FindFileName also uses numFonts, the	number of file names in the list,   *
*  but doesn't change it.  (NOTE:  numFonts is a 1-based counter.)          *
*			                *
*  All the names are Pascal-type strings (length byte followed by ASCII     *
*  character codes,	1 per byte).		                *
*			                *
*  For now at least, FindFileName returns with an RTS and is not a separate *
*  entry point; it's just part of FMStartUp.                                *
*			                *
*****************************************************************************
;
**************************************
*	                  *
*  9/24/87  2:55 pm	                  *
*  BHM  x6245	                  *
*	                  *
***************************************
;
FindFileName
;
	lda <numFonts
	sta <fileCount	;count down
;
	lda [<fNamePtr]	;length byte
	and #$00FF	;and I do mean byte
	sta <FNameLen
;
NextFileName		;
	lda [<currFNamePtr]	;length byte
	and #$00FF
	sta <currFNameLen
;
	cmp <fNameLen
	bne TryNextName	;because the lengths don't match
;lengths match - now we compare the names.
;we'll go 2 bytes at a time, starting from the last 2 characters:
	dec a
	tay
;
NextChars		;
	lda [<FNamePtr],y
	cmp [<currFNamePtr],y
	bne TryNextName	;mismatched characters
;
	dey
	bmi NamesMatch	;(and length was odd - and we
;		;rechecked the length byte)
	beq NamesMatch	;(and length was even)
;
	dey
	bra NextChars
;
TryNextName		;
	dec <fileCount
	beq NoSuchName	;no more to try
;
;advance currFNamePtr:
	lda <currFNameLen
	inc a
	clc
	adc <currFNamePtr
	sta <currFNamePtr
	bcc NoCarry
	inc <currFNamePtr+2
NoCarry		;
	bra NextFileName
;
NamesMatch		;
	lda <numFonts
	sec
	sbc <fileCount	;to get position in	name list
	clc
	rts
;
NoSuchName		;
	sec
	rts
***************************************
*	                  *
*  end FindFileName	                  *
*	                  *
***************************************
;
******************************************************************************
*			                 *
*  subroutine CheckFLFile		                 *
*			                 *
*    started 8/24/87		                 *
*    Bennet Marks  x6245		                 *
*			                 *
*  This subroutine checks the "validation" information in FONT.LISTS - file  *
*  names, create times & dates, and last-mod times & dates - against the     *
*  corresponding info from the FONTS subdirectory header.  We assume that    *
*  both the subdirectory and FONT.LISTS	have been opened, with the marks     *
*  set at their beginnings.  If FONT.LISTS passes the validity test, then    *
*  CheckFLFile returns with carry clear, and leaves font.lists with the mark *
*  pointing to the first byte of the recorded ID list.	                 *
*			                 *
*  If FONT.LISTS fails the validity test, CheckFLFile returns with the carry *
*  set; it is then the responsibility of the rest of FMStartUp to construct  *
*  these lists the old-fashioned (i.e.,	"slow") way, and update FONT.LISTS   *
*  accordingly.  In	this case FONT.LISTS and FONTS will still be open; FONTS *
*  will have its mark set to the beginning, and FONT.LISTS will be empty     *
*  (EOF set to the begining).  Also, the acc. will be 0.  Other errors will  *
*  signaled by a carry set and acc. not	0.	                 *
*			                 *
*  In future versions we will probably get away from this "all-or-nothing"   *
*  view of FONT.LISTS, and try to use all valid info found in FONT.LISTS,    *
*  getting the rest	from the font files	themselves.  This will integrate     *
*  the validating of FONT.LISTS and the	construction of the	Font Manager's   *
*  lists.  But not now.  Stop nagging.		                 *
*			                 *
*  In our earliest passes, we may ignore create & last-mod times & dates,    *
*  and just check over names - just for	demo purposes.	                 *
*			                 *
*  CheckFLFile returns with an RTS and does not have its own entry point.    *
*  For now it's just part of FMStartUp.                                      *
*			                 *
******************************************************************************
;
***************************************
*	                  *
*  11/10/87  3:35 pm                  *
*  BHM  x6245	                  *
*	                  *
***************************************
;
CheckFLFile
	lda <FLFileRef
	sta <ReadRef
	lda #FLFileHeadLen	;for header info in	font.lists
	sta <ReadSize
***	lda #0
***	sta <ReadSize+2
	stz <ReadSize+2	;6-Jan-91 DAL
	lda <BlockPtr
	sta <ReadPtr
	lda <BlockPtr+2
	sta <ReadPtr+2
;(actually, you don't have to do all that, at least not every time -
;but I'm just getting used to this stuff - BHM  9/4/87)

;
	jsr ReadFile
	bcc ReadIt
	rts
ReadIt
;
;check the FONT.LISTS format version number:
	lda [<BlockPtr]
	cmp #FLVerLo
	beq GoodSoFar
	brl BadFLFile
GoodSoFar
	ldy #2
	lda [<BlockPtr],y
	cmp #FLVerHi
	beq VersionGood
	brl BadFLFile
VersionGood
;
;compare ROM info to FONT.LISTS' version:
	PushZPtr <RomInfoRec
	_GetRomFont
;
	lda <RomFamNum
	ldy #oRomFamNum
	cmp [<BlockPtr],y
	beq RomFamNumOK
	brl BadFLFile
;
RomFamNumOK
;
	lda <RomStyle
	ldy #oRomStyle
	cmp [<BlockPtr],y
	beq RomStyleOK
	brl BadFLFile
;
RomStyleOK
;
	lda <RomSize
	ldy #oRomSize
	cmp [<BlockPtr],y
	beq RomSizeOK
	brl BadFLFile
;
RomSizeOK
;
;(that can actually	be done with a loop, if things are kept	in the right
;order)
;
;
****  added 10/27/87  (I had forgotten to set SysFontID):
;
	lda <RomFamNum
	sta <SysFontID
	lda <RomSize
	xba
	ora <RomStyle
	sta <SysFontID+2
;
****  end of addition 10/27/87 - BHM x6245
;transfer values from FONT.LISTS to FM 0-page:
;
	ldy #oIDCount
	lda [<BlockPtr],y
	sta <IDCount
	dec a	;for ROM font
	sta <numFonts
;
	ldy #oFamCount
	lda [<BlockPtr],y
	sta <FamCount
;
	ldy #oIDListSize
	lda [<BlockPtr],y
	sta <IDListSize
;
	ldy #oFamListSize
	lda [<BlockPtr],y
	sta <FamListSize
;
	ldy #oNameListSize
	lda [<BlockPtr],y
	sta <NameListSize
;
	ldy #oFileListSize
	lda [<BlockPtr],y
	sta <FileListSize
;
	ldy #oTimeListSize
	lda [<BlockPtr],y
	sta <TimeListSize
;
;
;get space for file	list and read it in
;
	PushWord #0	;high word of size
	lda <FileListSize	;low word of size
	sta <ReadSize
	pha
	PushZLong <fileHandle
	_SetHandleSize
	bcc NoSizeErr1
	rts
NoSizeErr1
;
	jsr LockFileList
	lda <FilePtr
	sta <ReadPtr
	lda <FilePtr+2
	sta <ReadPtr+2
	lda <FLFileRef
	sta <ReadRef
***	lda #0
***	sta <ReadSize+2
	stz <ReadSize+2	;6-Jan-91 DAL
;(actually, you don't have to do all that, at least not every time -
;but I'm just getting used to this stuff - BHM  9/4/87)
;
	jsr ReadFile
	bcc NoReadErr1
	sta <errCode
	jsr UnlockFileList
	lda <errCode
	sec
	rts
NoReadErr1
;
;get space for time	list and read it in
;
	PushWord #0	;high word of size
	lda <TimeListSize	;low word of size
	sta <ReadSize
	pha
	PushZLong <TimeHandle
	_SetHandleSize
	bcc NoSizeErr2
	rts
NoSizeErr2
;
	jsr LockTimeList
	lda <TimePtr
	sta <ReadPtr
	lda <TimePtr+2
	sta <ReadPtr+2
	lda <FLFileRef
	sta <ReadRef
***	lda #0
***	sta <ReadSize+2
	stz <ReadSize+2	;6-Jan-91 DAL
;(actually, you don't have to do all that, at least not every time -
;but I'm just getting used to this stuff - BHM  9/4/87)
;
	jsr ReadFile
	bcc NoReadErr2
	sta <errCode
	jsr UnlockFileList
	jsr UnlockTimeList
	lda <errCode
	sec
	rts
NoReadErr2		;
;
;now start checking	for validity:
;
	stz <numFontFiles
	lda <FONTSDirRef
	ldy #(GDERef-FMParams)
	sta [<FMParamPtr],y
;
NextFilea		;
;
	jsr GetDirEntry
	bcc NoError
;some error code:
	cmp #EndOfDir
	beq NoMoreFiles
	sec	;corrected from "clc" - BHM 9/15/87
	rts
NoError		;
;
*****  The following semi-kludge is included because GetDirEntry returns
*****  the file name with a length word, rather than a length byte.  Since
*****  we know it's <= 16, we can just flip it.
;
	ldy #(GDENameLen-FMParams)
	lda [<FMParamPtr],y
	xba
	sta [<FMParamPtr],y
;
*****  Now it's a length byte - BHM  9/9/87
;
;is it a font file?
	ldy #(GDEFileType-FMParams)
	lda [<FMParamPtr],y
	and #$00FF	;only low byte meaningful
	cmp #FontType
	bne NextFilea	;wrong type
;
	ldy #(GDEAuxType-FMParams)
	lda [<FMParamPtr],y
	bne NextFilea	;AuxType must be 0
	iny
	iny
	lda [<FMParamPtr],y
	bne NextFilea	;all of it
;
;congratulations, it's a font file!
	lda <numFontFiles	;seen before now
	cmp <numFonts	;from FONT.LISTS
	beq BadFLFile	;too many files
;
	inc <numFontFiles
;now try to find this file name
;(assume FNamePtr has been set up)
;
	lda <FilePtr
	clc
	adc #2	;skip dummy entry
	sta <currFNamePtr
	lda <FilePtr+2
	bcc NoCarrya
	inc a
NoCarrya		;
	sta <currFNamePtr+2
;
	jsr FindFileName
	bcc FoundIt
	bra BadFLFile	;couldn't find the name
FoundIt		;
;
;check on dates & times would (will) go	here
;and here it is:
;position of file name in list of files	is in acc. - now
;we want to check out the corresponding	time list entry
	inc a	;to skip over ROM font "entry"
	asl a	;times 2
	asl a	;4
	asl a	;8
	asl a	;16
;
	clc
	adc <TimePtr
	sta <tempPtr
	lda <TimePtr+2
	adc #0
	sta <tempPtr+2
;
	ldy #14
NextTimeWord3		;
	lda [<fTimePtr],y	;from GDE call
	cmp [<tempPtr],y	;from time list
	beq WordMatches
	brl BadFLFile	;no it doesn't
;
WordMatches		;
	dey
	dey
	bpl NextTimeWord3
;
;all the times & dates matched
;
	bra NextFilea
;
NoMoreFiles		;
;
	lda <numFontFiles
	cmp <numFonts
	bne BadFLFile
;
;FONT.LISTS has passed the validity test
;hurrah, hurrah!!!
;
	jsr UnlockFileList
	jsr UnlockTimeList
	clc
	rts
;
BadFLFile		;

;
	jsr UnlockFileList
	jsr UnlockTimeList
;(they may or may not be locked, but so	what?)
;set FONTS back to its just-opened state, and empty FONT.LISTS:
;
**** changed to use	0-page parameter block - BHM  x6245  11/4/87:
;
	lda <FONTSDirRef
	sta <MarkRef
;
	stz <MarkLoc+2
	stz <MarkLoc
;
	jsr SetMark
;
	lda <FLFileRef
	sta <MarkRef
;0 position still set
;
	jsr SetMark
;
	lda <FLFileRef
	sta <EOFRef
;
;0 position still set
;
	jsr SetEOF
;
	lda #0
	sec
	rts
***************************************
*	                  *
*  end CheckFLFile	                  *
*	                  *
***************************************
;
*****************************************************************************
*			                *
*  subroutine SetUpFMParams		                *
*			                *
*    started 8/26/87		                *
*    Bennet Marks  x6245		                *
*			                *
*  This subroutine obtains a block of RAM that the Font Manager can use     *
*  for parameters that it needs to alter, or may need to alter, such as     *
*  font file names (for the Open call, for example) and window parameters   *
*  (which are different in 320 and 640 mode).	                *
*			                *
*  When the Font Manager lived in RAM, this information/storage was kept    *
*  in-line.  We still have the defaults	in-line, but SetUpFMParams copies   *
*  them over into the RAM space it obtains.	                *
*			                *
*  SetUpFMParams has changed so much since its earlier incarnation (when    *
*  it was mainly used to get ProDOS parameter block space, which is now     *
*  mainly on 0-page) that we have changed its name from SetUpParams.  Does  *
*  this make it a born-again subroutine?	                *
*			                *
*  If the subroutine succeeds in allocating the space for the parameter     *
*  blocks, it returns with the carry clear.  Otherwise it returns with the  *
*  carry set (and the MM error code in the acc.).	                *
*			                *
*  As currently written, SetUpParams returns with an RTS and does not have  *
*  a separate entry	point.  It's just part of FMStartUp.                    *
*			                *
*****************************************************************************
;
***************************************
*	                  *
*  11/10/87 3:50 pm	                  *
*  BHM  x6245	                  *
*	                  *
***************************************
;
***********************************************************
*		                  *
*  major re-write, subroutine renamed -	                  *
*    BHM  x6245  11/10/87	                  *
*		                  *
***********************************************************
;
SetUpFMParams		;
;
	lda #(EndOfFMParams-FMParams)
	jsr GetHandle
	bcc GotFMParamMem
	rts
;
GotFMParamMem		;
	sta <FMParamHandle
	stx <FMParamHandle+2
;
	jsr LockFMParams
;
;transfer default values (and a lot of needless zeros):
;
	lda #FMParams
	sta <tempPtr
	lda #^FMParams
	sta <tempPtr+2

*** killing the following--doesn't work if EndOfFMParams-FMParms is odd!
;	ldy #(EndOfFMParams-FMParams-2)
;;
;NextParamWord		;
;	lda [<tempPtr],y
;	sta [<FMParamPtr],y
;	dey
;	bmi ParamsMoved
;	dey
;	bra NextParamWord
;;
;ParamsMoved		;
*** 29-Apr-91 DAL -- use BlockMove, the above is trying too hard and is a mess
	pei <tempPtr+2
	pei <tempPtr
	pei <FMParamPtr+2
	pei <FMParamPtr
	pushlong #EndOfFMParams-FMParams
	_BlockMove
*** end of 29-Apr-91 DAL
;
;set up a few needed pointers:
;GDE name buffer:
	lda <FMParamPtr
	clc
	adc #(GDENameBuf-FMParams)
	sta <tempPtr
	ldy #(GDENameBufPtr-FMParams)
	sta [<FMParamPtr],y
	lda <FMParamPtr+2
	bcc NoCarryb
	inc a
NoCarryb	sta <tempPtr+2
	iny
	iny
	sta [<FMParamPtr],y
;
;we need easy access to the GDE file name string
	lda <tempPtr
	clc
	adc #3
;(that's a 3 to access the length byte we swap into place from
;the length word provided by GetDirEntry)
	sta <fNamePtr
	lda <tempPtr+2
	bcc NoCarryc
	inc a
NoCarryc	sta <fNamePtr+2
;
;we also need a pointer to the times & dates within the GetDirEntry block:
	lda <FMParamPtr
	clc
	adc #(GDECreateTime-FMParams)
	sta <fTimePtr
	lda <FMParamPtr+2
	bcc NoCarryd
	inc a
	clc
NoCarryd	sta <fTimePtr+2
;
	rts
***************************************
*	                  *
*  end of SetUpParams                 *
*	                  *
***************************************
;
**********************************************************************
*
* Subroutine KillBadFLFile
*
* 11/13/89 Mensch
* Added this routine so that the Font,list file could be killed if it
* were bad. This is usually caused by a failure to complete the write. So
* this routine is called when the write fails...
* 
* This routine closes/destroys file file Font.Lists and then resets ths file
* number to zero internally
*
	import DestroyFile
**********************************************************************
*
KillBadFLFile
;
; First close the file so that it can be destroyed...
	jsr CloseFLFile


; Coppied this pre-amble from open file...
;
	lda <FMParamPtr
	clc
	adc #(FLFileName-FMParams)
	sta <FilePtr
	lda <FMParamPtr+2
	adc #0
	sta <FilePtr+2

;
	jsr CopyFileName
;
	lda <FMParamPtr
	clc
	adc #(DirName-FMParams)
	sta <KillNamePtr
	lda <FMParamPtr+2
	adc #0
	sta <KillNamePtr+2
;
	jsr DestroyFile	; now call destroy...
	rts	; and exit the hell outta here...


*****************************************************************************
*			                *
*  subroutine OpenFLFile		                *
*			                *
*    started 8/28/87		                *
*    Bennet Marks  x6245		                *
*			                *
*  This subroutine finds and opens font.lists, if it can.  It has 3 poss-   *
*  ible outcomes:  (1)  carry clear:  font.lists found and opened.          *
*  (2)  carry set, acc. 0:  font.lists not found, so OpenFLFile created     *
*  and then opened it.  (3)  carry set,	acc. not 0:  some other error       *
*  occurred during the attempted to open it.	                *
*			                *
*  OpenFLFile returns with an RTS, and does not have a separate entry       *
*  point; it's a part of FMStartUp.                                         *
*			                *
*****************************************************************************
;
***************************************
*	                  *
*  11/12/87  1:50 pm                  *
*  BHM  x6245	                  *
*	                  *
***************************************
;
OpenFLFile
;
****  changed to use FMParams block - BHM  x6245  11/12/87
;
	lda <FMParamPtr
	clc
	adc #(FLFileName-FMParams)
	sta <FilePtr
	lda <FMParamPtr+2
	adc #0
	sta <FilePtr+2

;
	jsr CopyFileName
;
	lda <FMParamPtr
	clc
	adc #(DirName-FMParams)
	sta <OpenPtr
	lda <FMParamPtr+2
	adc #0
	sta <OpenPtr+2
;
	jsr OpenFile
	bcc GotFLFilea
;some error:
	cmp #FileNotFound
	beq CreateFLFile
;real error:
	sec
	rts
;
GotFLFilea
	lda <OpenRef
	sta <FLFileRef
	clc
	rts
;
CreateFLFile	lda <FMParamPtr
	clc
	adc #(DirName-FMParams)
;(still set to FONT.LISTS)
	sta <CRNamePtr
	lda <FMParamPtr+2
	adc #0
	sta <CRNamePtr+2
;
	lda #$C3	;access word
	sta <CRAccess
;	lda #BinFile	;file type
;	sta <CRFileType
;	lda #0
;	sta <CRAuxType	;aux type
;	sta <CRAuxType+2	;and more aux type

*** 30-Sep-91 DAL -- use filetype $5A;0008 for Font.Lists file
	lda #$005A	;config file
	sta <CRFileType
	lda #$0008
	sta <CRAuxType
	stz <CRAuxType+2
*** end 30-Sep-91 DAL

	stz <CRDate	;0 means ProDOS will fill in date
	stz <CRTime	;and time
	lda #$01	;storage type
	sta <CRStore

	jsr CreateFile
	bcc MadeFLFile
; some error:
	rts

MadeFLFile
;now open it
;(the name is still	set from earlier in	the routine)
	lda <FMParamPtr
	clc
	adc #(DirName-FMParams)
;(we should probably be saving this pointer rether than recalculating
;it every time.  Maybe.)
	sta <OpenPtr
	lda <FMParamPtr+2
	adc #0
	sta <OpenPtr+2
;
	jsr OpenFile
	bcc FLFileNowOpen
;bad craziness:
	rts
;
FLFileNowOpen
	lda <OpenRef
	sta <FLFileRef
	lda #0
	sec
	rts
***************************************
*	                  *
*  end OpenFLFile	                  *
*	                  *
***************************************
;
*****************************************************************************
*			                *
*  subroutine ReadFontLists		                *
*			                *
*    started 8/31/87		                *
*    Bennet Marks  x6245		                *
*			                *
*  This subroutine reads in the ID list, the fam list, and the name list    *
*  from FONT.LISTS into the Font Manager's internal lists.  We assume that  *
*  FONT.LISTS has passed the validity test, and its mark is	now pointing at *
*  the start of its	copy of the ID list.  If ReadFontLists succeeds, it     *
*  returns with the	carry clear; otherwise it returns with the carry set    *
*  and the error code in the acc.  (The	possible errors are	in file-reading *
*  and handle-sizing.)		                *
*			                *
*  ReadFontLists returns with an RTS and doesn't have its own entry point;  *
*  it's part of FMStartUp.                                                  *
*			                *
*****************************************************************************
;
***************************************
*	                  *
*  9/11/87  3:00 pm	                  *
*  BHM  x6245	                  *
*	                  *
***************************************
;
ReadFontLists		;
;
	PushWord #0	;high word of size
*	lda <IDListSize	;low word of size
*	pha
	pei <IDListSize
	PushZLong <IDHandle
	_SetHandleSize
	bcc NoSizeErr1a
	rts
NoSizeErr1a		;
;
	PushWord #0	;high word of size
*	lda <FamListSize	;low word of size
*	pha
	pei <FamListSize
	PushZLong <FamHandle
	_SetHandleSize
	bcc NoSizeErr2a
	rts
NoSizeErr2a		;
;
	PushWord #0	;high word of size
*	lda <NameListSize	;low word of size
*	pha
	pei <NameListSize
	PushZLong <NameHandle ;(*corrected 9/11/87 - BHM*)
	_SetHandleSize
	bcc NoSizeErr3
	rts
NoSizeErr3		;
;
	jsr LockIdList
	jsr LockFamList
	jsr LockNameList
;
	lda <FLFileRef
	sta <ReadRef
;
	lda <IDPtr
	sta <ReadPtr
	lda <IDPtr+2
	sta <ReadPtr+2
	stz <ReadSize+2	;high word of size
	lda <IDListSize	;low word
	sta <ReadSize
	jsr ReadFile
	bcs FileReadError
;
	lda <FamPtr
	sta <ReadPtr
	lda <FamPtr+2
	sta <ReadPtr+2
	lda <FamListSize
	sta <ReadSize
;(high word of ReadSize is already 0)
	jsr ReadFile
	bcs FileReadError
;
	lda <NamePtr
	sta <ReadPtr
; WHOA people, this next line was this:
;	lda <FamPtr+2
; This seems to be incorrect (to say the least...) we will now change it to correctly use the
; proper namePtr and this should fix a rather elusive bug that only sprung up with
; stylewares stuff! imagine the shame on our faces! this should teach use a cut amnd paste lesson!
	lda <NamePtr+2	; 3/24/89 Mensch
	sta <ReadPtr+2
	lda <NameListSize
	sta <ReadSize
;(high word of ReadSize is already 0)
	jsr ReadFile
	bcs FileReadError
;
;replace the ROM font handle read in from the FONT.LISTS ID	list with the
;guaranteed one obtained from GetROMFont:
	lda <ROMFontHndl
	ldy #10
	sta [<IDPtr],y
	lda <ROMFontHndl+2
	iny
	iny
	sta [<IDPtr],y
;
	jsr UnlockIDList
	jsr UnlockFamList
	jsr UnlockNameList

	clc
	rts
;
FileReadError		;
	rts
***************************************
*	                  *
*  end of ReadFontLists               *
*	                  *
***************************************
;
*****************************************************************************
*			                *
*  subroutine CloseFLFile		                *
*			                *
*    started 8/31/87		                *
*    Bennet Marks  x6245		                *
*			                *
*  This subroutine closes the file FONT.LISTS.  If it succeeds, it returns  *
*  with carry clear; otherwise with carry set and the error	code in the     *
*  acc.			                *
*			                *
*  CloseFLFile returns with an RTS, and	does not have its own entry point;  *
*  it's just part of FMStartUp.                                             *
*			                *
*****************************************************************************
;
***************************************
*	                  *
*  8/31/87  2:30 pm	                  *
*  BHM  x6245	                  *
*	                  *
***************************************
;
CloseFLFile		;
;
	lda <FLFileRef
	sta <CloseRef
	beq @NoFileToCLose
;
	jsr CloseFile
	bcs @ooooops
	stz <FLFileRef
@ooooops
	rts
@NoFileToClose	clc
;
	rts
***************************************
*	                  *
*  end of CloseFLFile                 *
*	                  *
***************************************
;
*****************************************************************************
*			                *
*  subroutine UpdateFLFile		                *
*			                *
*    started 8/31/87		                *
*    Bennet Marks			                *
*			                *
*  This subroutine writes out to the file FONTS.LISTS the values and lists  *
*  that the FM has put together from all the fonts in FONTS	- this is done  *
*  when FONT.LISTS doesn't pass the validity test.  We assume FONT.LISTS    *
*  exists, is open,	and is empty - earlier routines have arranged this.     *
*			                *
*  If UpdateFLFile is successful, it returns with carry clear; otherwise it *
*  returns with carry set and the error	code in the acc.  The subroutine    *
*  returns with an RTS, and doesn't have its own entry point; it's part of  *
*  FMStartUp.			                *
*			                *
*****************************************************************************
;
***************************************
*	                  *
*  11/7/87  2:00 pm	                  *
*  BHM  x6245	                  *
*	                  *
***************************************
;
UpdateFLFile		;
;
	lda #FLVerLo
	sta [<BlockPtr]
	lda #FLVerHi
	ldy #2
	sta [<BlockPtr],y
;
	lda <RomFamNum
	ldy #oRomFamNum
	sta [<BlockPtr],y
;
	lda <RomStyle
	ldy #oRomStyle
	sta [<BlockPtr],y
;
	lda <RomSize
	ldy #oRomSize
	sta [<BlockPtr],y
;
	lda <IDCount
	ldy #oIDCount
	sta [<BlockPtr],y
;
	lda <FamCount
	ldy #oFamCount
	sta [<BlockPtr],y
;
	lda <IDListSize
	ldy #oIDListSize
	sta [<BlockPtr],y
;
	lda <FamListSize
	ldy #oFamListSize
	sta [<BlockPtr],y
;
	lda <NameListSize
	ldy #oNameListSize
	sta [<BlockPtr],y
;
	lda <FileListSize
	ldy #oFileListSize
	sta [<BlockPtr],y
;
	lda <TimeListSize
	ldy #oTimeListSize
	sta [<BlockPtr],y
;
	lda <FLFileRef
	sta <WriteRef
	stz <WriteReq+2	;high word of request
	lda #FLFileHeadLen	;low word
	sta <WriteReq
	lda <BlockPtr
	sta <WriteBuf
	lda <BlockPtr+2
	sta <WriteBuf+2
;
	jsr WriteFile
	bcc WroteHeader
	rts
WroteHeader		;
;
	lda <FileListSize
	sta <WriteReq
;(high word still 0)
;high word is 0 and	stays 0
	lda <SavedFilePtr
	sta <WriteBuf
	lda <SavedFilePtr+2
	sta <WriteBuf+2
;
	jsr WriteFile
	bcc WroteFileList
	rts
WroteFileList		;
;
	lda <TimeListSize
	sta <WriteReq
;(high word still 0)
	lda <SavedTimePtr
	sta <WriteBuf
	lda <SavedTimePtr+2
	sta <WriteBuf+2
;
	jsr WriteFile
	bcc WroteTimeList
	rts
WroteTimeList		;
;
	lda <IDListSize
	sta <WriteReq
;(high word still 0)
	lda <SavedIDPtr
	sta <WriteBuf
	lda <SavedIDPtr+2
	sta <WriteBuf+2
;
	jsr WriteFile
	bcc WroteIDList
	rts
WroteIDList		;
;
	lda <FamListSize
	sta <WriteReq
;(oh, you know!)
	lda <SavedFamPtr
	sta <WriteBuf
	lda <SavedFamPtr+2
	sta <WriteBuf+2
;
	jsr WriteFile
	bcc WroteFamList
	rts
WroteFamList		;
;
	lda <NameListSize
	sta <WriteReq
	lda <SavedNamePtr
	sta <WriteBuf
	lda <SavedNamePtr+2
	sta <WriteBuf+2
;
	jsr WriteFile
;(SURELY that can be looped!)
;(yes, it probably can - and don't call me Shirley . . .)
;
	rts
***************************************
*	                  *
*  end UpdateFLFile	                  *
*	                  *
***************************************
;
;
	ENDP



****************************************************************
*
* FMShutDown
*
****************************************************************

	ENTRY FMShutDown
FMShutDown	PROC

Count	equ Temp

	phd
	tcd
	bne Doit
	ldx #ActiveErr	;return error if Font Mgr not active
	ldy #0	;param size
	jml errout

;set QuickDraw system font to ROM font

Doit	jsr LockIDList	;ROM font is first entry in list
	ldy #12
	lda [<IDPtr],y	;push handle to ROM	font
	pha
	dey
	dey
	lda [<IDPtr],y
	pha
	_SetSysFont	;set QuickDraw system font to ROM font

;dispose of all fonts in memory, except	application-generated fonts

	stz <Count
	bra NextID	;skip ROM font

Loop	jsr CheckHandle
	beq NextID	;branch if no handle to font
	PushWord #3	;in case it's an app font
	PushzLong <FontHandle ;push handle to font on stack

	ldy #8
	lda [<IDPtr],y	;get info word
	and #ApVarBit	;is this an application generated font?
	bne AppFont	;yes - so don't dispose of handle
	_DisposeHandle	;no - so dispose of	font and handle
	pla	;clean up stack
	bra NextID

AppFont	_SetPurge	;make font purgeable

NextID	jsr IncIDPtr
	inc <Count
	lda <Count
	cmp <IDCount	;at end of list?
	bne Loop	;no

	jsr UnLockIDList

;dispose of the data lists

	lxy <FileHandle	;8-Mar-93 SS
	jsr DisposeTheHandle	;release filename list space
	lxy <IDHandle	;8-Mar-93 SS
	jsr DisposeTheHandle	;release ID list space
	lxy <FamHandle	;8-Mar-93 SS
	jsr DisposeTheHandle	;release family list space
	lxy <NameHandle	;8-Mar-93 SS
	jsr DisposeTheHandle	;release famname list space
;
	lxy <FMParamHandle ;and the paramter space
	jsr DisposeTheHandle	;8-Mar-93 SS

	lda <MenuMade	;was an Item list created?
	beq NoItemList	;no
	lxy <ItemHandle ;yes - so release	the space
	jsr DisposeTheHandle	;8-Mar-93 SS
NoItemList		;

;clear work area pointer

	PushWord #0
	PushWord #FMTSNum
	PushWord #0
	PushWord #0
	_SetWAP	;clear work area pointer

	ldy #0	;param size
	jml endcall
	ENDP



****************************************************************
*
* FMVersion
*
****************************************************************

	ENTRY FMVersion
FMVersion	PROC
	lda #FMVerNum
	sta 7,s
	brl oStdEnd0
	ENDP


****************************************************************
*
* FMReset
*
****************************************************************

	ENTRY FMReset
FMReset	PROC
	cmp #0	;is FM active?
	beq Done	;no
	ldx #ResetErr	;yes - so return error
	ldy #0	;param size
	jml oerrout

Done	brl oStdEnd0
	ENDP


****************************************************************
*
* FMStatus
*
****************************************************************

	ENTRY FMStatus
FMStatus	PROC
	sta 7,s
	brl oStdEnd0
	ENDP
;
;
;
;
;


;                COPY famstuff



****************************************************************
*
* CountFamilies
*
****************************************************************

	ENTRY CountFamilies
CountFamilies	PROC

BaseCount	equ Temp

	phd
	tcd
	lda 9,s	;get spec bits
	and #BaseOnlyBit	;only count Base families?
	beq CountAll	;no

	jsr LockFamList	;yes
	ldy #4	;index to info word	in fam entry
	ldx #0	;# of fam entries processed
	stz <BaseCount	;# base families found

Loop	lda [<FamPtr],y	;get info word
	and #NotBaseBit
	bne NextFam	;branch if not a Base family
	inc <BaseCount
NextFam	jsr IncFamPtr
	inx
	cpx <FamCount	;at end of fam list?
	bne Loop	;no

	jsr UnLockFamList
	lda <BaseCount	;return # of Base families
	bra Done

CountAll	lda <FamCount	;get total # of fam	entries
Done	sta 11,s
	ldy #2	;param size
	jml endcall
	ENDP



****************************************************************
*
* FindFamily
*
****************************************************************

	ENTRY FindFamily
FindFamily	PROC

BaseCount	equ Temp
Mult2	equ BaseCount+2

	phd
	tcd

	jsr LockFamList

	lda 15,s	;get spec bits
	and #BaseOnlyBit	;Base families only?
	bne CheckBase	;yes

	lda 13,s	;get position num
	dec a
	cmp <FamCount	;valid number?
	bcs NoFam	;no

	asl a	;multiply by 6 to get offset to correct
	sta <Mult2	;fam entry
	asl a
	clc
	adc <Mult2
	clc
	adc <FamPtr	;create ptr to fam entry
	sta <FamPtr
	lda <FamPtr+2
	adc #0
	sta <FamPtr+2
	bra GotFam

CheckBase	ldx #0	;# of fam entries processed
	stz <BaseCount	;# of Base families	processed
	ldy #4	;index to info word	in fam entry

Loop	lda [<FamPtr],y	;get info word
	and #NotBaseBit
	bne NextFam	;not a Base fam - so don't count fam
	inc <BaseCount
	lda <BaseCount
	cmp 13,s	;correct fam entry?
	beq GotFam	;yes

NextFam	jsr IncFamPtr
	inx
	cpx <FamCount	;at end of fam list?
	bne Loop	;no

NoFam	lda #Illegal	;didn't find family
	sta 17,s	;return illegal fam	num
	bra Done

GotFam	lda [<FamPtr]	;get fam #
	sta 17,s	;and return it

	lda 9,s	;get ptr to output string
	sta <TempPtr
	ora 11,s	;is ptr all zeros?
	beq Done	;yes - so don't return name
	lda 11,s
	sta <TempPtr+2

	jsr LockNameList
	ldy #2
	lda [<FamPtr],y	;get offset to famname entry
	clc
	adc <NamePtr	;create ptr to famname entry
	sta <NamePtr
	lda <NamePtr+2
	adc #0
	sta <NamePtr+2

	lda [<NamePtr]	;get name length
	and #$00FF	;mask off hi byte
	tay
	dey
CopyLoop	lda [<NamePtr],y	;copy famname into output string
	sta [<TempPtr],y
	dey
	beq CopyLoop
	dey
	bpl CopyLoop

	jsr UnLockNameList

Done	jsr UnLockFamList
	ldy #8	;param size
	jml endcall
	ENDP



****************************************************************
*
* GetFamInfo
*
****************************************************************

	ENTRY GetFamInfo
GetFamInfo	PROC

	phd
	tcd

	lda 13,s	;get fam #
	tay
	lda #$0100	;fake style/size
	jsr CheckFontID
	bcc IDOK
	brl StdErr6	;return error

IDOK	tya
	sta 13,s	;save converted fam	#

	jsr LockFamList
	ldx #0	;# of fam entries checked
FamLoop	lda [<FamPtr]	;get fam #
	cmp 13,s	;match?
	beq GotFam	;yes
	jsr IncFamPtr
	inx
	cpx <FamCount	;have we checked all fam entries?
	bne FamLoop	;no

	lda #NotFoundBit	;yes - so the fam doesn't exist
	sta 15,s	;return 'NotFound'
	brl Done

GotFam	ldy #4
	lda [<FamPtr],y	;get info word
	sta 15,s	;and return it

	lda 9,s	;get ptr to output string
	sta <TempPtr
	ora 11,s	;is ptr 0?
	beq Done	;yes - so don't return famname
	lda 11,s
	sta <TempPtr+2

	jsr LockNameList

	ldy #2
	clc
	lda <NamePtr	;get ptr to start of famname list and
	adc [<FamPtr],y	;add famname offset	to create
	sta <NamePtr	;ptr to correct famname
	lda <NamePtr+2
	adc #0
	sta <NamePtr+2

	lda [<NamePtr]	;get name length
	and #$00FF	;mask off hi byte
	tay
	dey
Loop	lda [<NamePtr],y	;copy famname into output string
	sta [<TempPtr],y
	dey
	beq Loop
	dey
	bpl Loop

	jsr UnLockNameList

Done	jsr UnLockFamList
	brl StdEnd6
	ENDP



****************************************************************
*
* GetFamNum
*
****************************************************************

	ENTRY GetFamNum
GetFamNum	PROC

Mult2	equ Temp
FirstWord	equ Mult2+2

	phd
	tcd

	lda 9,s	;get ptr to famname
	sta <TempPtr
	lda 11,s
	sta <TempPtr+2
	lda [<TempPtr]	;get first 2 bytes of name
	sta <FirstWord	;and save
	and #$00FF	;get name length
	bne NotZero
	ldx #NameErr	;name length is 0
	brl StdErr4	;return error

NotZero	cmp #MaxNameLen+1	;check length of name
	bcc LenOK
	lda <FirstWord	;too long - so truncate
	and #$FF00	;get saved first 2 bytes and set
	ora #MaxNameLen	;length byte to max	name length
	sta <FirstWord	;and save

LenOK	jsr LockNameList
	ldx #0	;# of famname entries checked

NameLoop	lda [<NamePtr]	;do the first 2 bytes of this famname
	cmp <FirstWord	;entry match the input name?
	bne NextName	;no - so go on to next name
;		;yes - so compare the rest of the name
	and #$00FF	;mask off hi byte to get name length
	tay
	dey
CmpLoop	beq Match	;already compared first word so match
	lda [<NamePtr],y	;compare names
	cmp [<TempPtr],y
	bne NextName	;branch if no match
	dey
	dey
	bpl CmpLoop
;		;the name matches exactly
Match	phx	;save index to name

	jsr LockFamList
	pla	;get index to name and multiply by 6
	asl a
	sta <Mult2
	asl a
	clc
	adc <Mult2
	tay	;to get offset into	fam list
	lda [<FamPtr],y	;get fam # from fam	entry
	sta 13,s	;and return it
	jsr UnLockFamList
	bra Done

NextName	jsr IncNamePtr
	inx
	cpx <FamCount	;done with list?
	bne NameLoop	;no - so continue

	lda #Illegal	;yes - so no match
	sta 13,s	;return illegal fam	#

Done	jsr UnLockNameList
	brl StdEnd4
	ENDP



****************************************************************
*
* AddFamily
*
****************************************************************

	ENTRY AddFamily
AddFamily	PROC

NewFamSize	equ Temp
NewNameSize	equ NewFamSize+2

	phd
	tcd

	lda 13,s	;get fam #
	beq NumErr	;error if 0
	cmp #Illegal	;illegal # ?
	bne NumOK	;no
NumErr	ldx #FamNumErr
	brl StdErr6	;return error

NumOK	lda 9,s	;get ptr to new family name
	sta <TempPtr
	lda 11,s
	sta <TempPtr+2
	lda [<TempPtr]
	and #$00FF	;get name length
	bne NotZero
	ldx #NameErr	;name length is 0
	brl StdErr6	;return error

NotZero	clc
	lda <FamListSize	;get size of family	list
	adc #6	;add size of new entry
	sta <NewFamSize	;and save

	PushWord #0	;hi word of size
	pha	;lo word of size
	PushZLong <FamHandle ;handle to list
	_SetHandleSize	;grow the list
	bcc OK
	tax	;error code
	brl StdErr6	;return error

OK	lda [<TempPtr]	;get length of name
	and #$00FF	;mask off hi byte
	cmp #MaxNameLen+1	;check length of fam name
	bcc LenOK
	lda #MaxNameLen	;too long - so truncate name
LenOK	inc a	;add 1 for length byte itself

	clc
	adc <NameListSize	;add size of new entry to current size
	sta <NewNameSize	;and save

	PushWord #0	;hi word of size
	pha	;lo word of size
	PushZLong <NameHandle ;handle to list
	_SetHandleSize	;grow the list
	bcc OK2
	pha	;save error code
	PushWord #0	;hi word of size
	PushZWord <FamListSize ;lo word of size
	PushZLong <FamHandle ;handle to list
	_SetHandleSize	;shrink fam list back to previous size
	plx	;retrieve error code
	brl StdErr6	;return error

OK2	jsr LockFamList
	jsr LockNameList

	clc
	lda <FamPtr
	adc <FamListSize	;create ptr to new fam entry
	sta <FamPtr
	lda <FamPtr+2
	adc #0
	sta <FamPtr+2

	clc
	lda <NamePtr
	adc <NameListSize	;create ptr to new famname entry
	sta <NamePtr
	lda <NamePtr+2
	adc #0
	sta <NamePtr+2

	lda 13,s	;get fam #
	sta [<FamPtr]	;and store in new fam entry
	ldy #2
	lda <NameListSize	;get offset to new famname entry
	sta [<FamPtr],y	;and store in new fam entry
	iny
	iny
	lda #ApFamBit
	ora #NotBaseBit
	sta [<FamPtr],y	;set info word

	jsr CopyFamName	;copy famname into new famname entry

	jsr UnLockNameList
	jsr UnLockFamList

	lda <NewFamSize	;get new size of fam list
	sta <FamListSize	;and save
	lda <NewNameSize	;get new size of name list
	sta <NameListSize	;and save
	inc <FamCount	;inc family count

	brl StdEnd6
	ENDP


*******************************************************************************
*
NewInstallWithStats	PROC
*
* Description:	This is a new install font call that will be patched to get rid
*	of the orphan problem
*
*
* Inputs:	None
*
* Outputs:	None
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
FMDPage	equ 1
oldDPage	equ FMDPage+2
theRTLs	equ oldDPage+2
resultPtr	equ theRTLs+6
scaleWord	equ resultPtr+4
desiredID	equ scaleWord+2
;
; Set up the stack for the new call...

	phd	; save the current DPage
	pha	; save the FMDPage
	tsc	; get the stack pointer and make it
	tcd	; the current pdage

	lda #0	; zero our flag
	sta >KludgeFlag
; set up the parms for the call
@CallItAgainSam	pei desiredID+2
	pei desiredID
	pei ScaleWord
	pei ResultPtr+2
	pei ResultPtr
	jsl xInstallStat	; call the real install font
	tax
	bcc @skipKludge	; test if an error occured
	lda >KludgeFlag	; see if this is the second time thru
	bne @SkipKludge
	dec a	; if not set the second time thru flag and
	sta >KludgeFlag	; try it again!
	bra @CallItAgainSam	; and try it one more time...
@SkipKludge
	txa
	pld	; get the FMDPage back again
	pld	; get the apps dpage back...
	tay	; save the error code in <Y>
	lda 1,s	; move the RTL's down 10 bytes
	sta 11,s
	lda 3,s
	sta 13,s
	lda 5,s
	sta 15,s
	pla	; discard 10 bytes of parms
	pla
	pla
	pla
	pla
	tya	; place error back into <A>
	cmp #1	; set error flag properly
	rtl	; and end...
xInstallStat
	lda <FMDPage	; font manager dpage in <A>
	jsl InstallWithStats	; call the real install font
	rtl

	ENTRY KludgeFlag
KludgeFlag	ds.W 1
	EndP
	


	EJECT
*******************************************************************************
*
NewInstallFont	PROC
*
* Description:	This is a new install font call that will be patched to get rid
*	of the orphan problem
*
*
* Inputs:	None
*
* Outputs:	None
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
FMDPage	equ 1
oldDPage	equ FMDPage+2
theRTLs	equ oldDPage+2
scaleWord	equ theRTLs+6
desiredID	equ scaleWord+2
;
; Set up the stack for the new call...
	phd	; save the current DPage
	pha	; save the FMDPage
	tsc	; get the stack pointer and make it
	tcd	; the current pdage

	lda #0	; init flag so only retry once.
	sta >KludgeFlag

@CallItAgainSam
; set up the parms for the call
	pei desiredID+2
	pei desiredID
	pei ScaleWord
	jsl xInstallFont	; call the real install font
	tax
	bcc @skipKludge	; test if an error occured
	lda >KludgeFlag	; see if this is the second time thru
	bne @SkipKludge
	dec a	; if not set the second time thru flag and
	sta >KludgeFlag	; try it again!
	bra @CallItAgainSam	; and try it one more time...
@SkipKludge
	txa
	pld	; get the FMDPage back again
	pld	; get the apps dpage back...
	tay	; save the error code in <Y>
	lda 1,s	; move the RTL's down 6 bytes
	sta 7,s
	lda 3,s
	sta 9,s
	lda 5,s
	sta 11,s
	pla	; discard 6 bytes of parms
	pla
	pla
	tya	; place error back into <A>
	cmp #1	; set error flag properly
	rtl	; and end...
xInstallFont
	lda <FMDPage	; font manager dpage in <A>
	jsl InstallFont	; call the real install font
	rtl
	EndP
	

****************************************************************
*
* InstallFont
*
****************************************************************
;
***************************************
*	                  *
*  Sept. 18, 1987  10:30 am           *
*	                  *
***************************************
;
***************************************************************
*
*  font scaling added
*
*    Bennet Marks  x6245  2/10/87
*
*  changes made to get the right incarnation of the system
*  font (that is, right size and style)	in the no-such-family
*  case
*
*    Bennet Marks  x6245  3/31/87
*
*
*
***************************************************************
InstallFont	PROC
	INCLUDE 'SomeFMEqus' ;added 2/12/87 - BHM

	phd
	tcd
	
	stz <Err	;clear error flag

	lda 11,s	;get fam #
	tay
	lda 13,s	;get style/size
	jsr CheckFontID
	bcc IDOK
	brl StdErr6	;return error

IDOK	sta 13,s	;save converted style/size
;
	and #$00FF
	sta <WantStyle
	lda 13,s
	and #$FF00
	sta <WantSize
;
	tya
	sta 11,s	;save converted fam	#
	sta <WantFam
;
TryAgain
;
	jsr LockIDList
;
****  temporary fix	to get IDList out of a jam
;
**  Drop this for now - BHM  9/17/87
;              jsr UnlockIDList
;
****  end of temporary fix - BHM  2/12/87
;
;
	jsr FindBestFit	;find font which best fits request
	bcs LoadSys	;system font is best fit
;
****  quick fix added for byte-switch problems - BHM  2/11/87
;
	lda <WantSize
	xba
	sta <WantSize
;
	lda <BestSize
	xba
	sta <BestSize
;
****  end of quick fix
;
********    FONT SCALING ADDITIONS:
;
	lda <BestSize
	cmp <WantSize
	beq DontScale
;
	lda 9,s	;scaleWord
	and #dontScaleBit
	bne DontScale
;scale:
	lda #currFlag
	jsr LoadTheFont	;get the best fit font
;
***************************************************************
*
*  NOTE:  we count on the fact that there are no memory
*  manager calls that could get the loaded-in font purged
*  (in the case where it is purgeable) between here and
*  the call to ScaleFont.  If you make any changes -
*  watch it!
*
*  BHM 6/15/87
*
***************************************************************
;
	bcc GotFont	;got it
;error:
	lda <Err
;if we've already got an error (which means this is not our first
;pass), keep the old error code
	bne GotErr1
	stx <Err	;o.w. save it
GotErr1		;
	bra LoadSys
;
GotFont		;
;put important values where ScaleFont expects them:
	ldx <bestSize
	ldy <wantSize
	lda <progID
;
	jsl ScaleFont
	bcc ItsScaled
;error:
	ldx <Err
	bne GotErr2	;save old error code, if there is one
	sta <Err	;o.w. keep this one
GotErr2		;
	bra LoadSys
;
ItsScaled		;
** Add this for now	- experimental - BHM  9/17/87

	sta <tempPtr	;font handle low word from ScaleFont
** (just trust me on that one, folks)
	ldy #4
	lda [<BestPtr],y	;offset to fam name
	sta <matchLevel	;temp. storage
	ldy #8
	lda [<BestPtr],y	;font stat bits
	sta <newLevel	;temp. storage
;
****  the following	added for FontForADay call - experimental
;
;the font was scaled, which means it didn't exist in the first place,
;so we return an "oldStats" value with notFoundBit = 1 - and, in
;theory, the rest undefined.  Out of politeness, though, we'll use put
;in some reasonable	values for the other bits.
;
	ora #(notFoundBit+notDiskBit+purgeBit+unrealBit)
	and #(notMemBit)
;apFamBit and apVarBit inherited from original
	sta <oldStats
;
****  end of experimental FontForADay additions - BHM  x6245  12/16/87
	lda <tempPtr
;
	jsl AddScaledFont	;add it to lists, make it current
	bcc OK
	ldx <Err
	bne GotErr3	;save old error code
	sta <Err	;if none, save new one
GotErr3	bra LoadSys
;
DontScale
;just install best fit:
	lda #$FFFF
	jsr LoadTheFont

	bcc OK
;
*;;; Changed from ldx 5/6/87 - BHM: 
	lda <Err	;old error?
	bne GotErr4	;then save it
*;;; Changed from sta 5/6/87 - BHM: 
	stx <Err	;o.w. save new error code
;
GotErr4		;on error, fall into . . .
;
****  END OF ADDITIONS - BHM  2/10/87
;
LoadSys
;yeah, but which one?
;
	lda WantFam
	cmp <SysFontID	;current system font family number
	bne TrySysFontFam
;WantFam is already	system font family:
;
	lda <SysFontID+2
	and #$00FF	;system font style
	eor #$FFFF
	ora WantStyle
	cmp #$FFFF
	beq GoodSysStyle
;but the system font style does not partially match WantStyle -
;so force it to:
	lda <SysFontID+2
	and #$00FF
	ora WantStyle
	sta WantStyle
	lda 13,s
	and #$FF00
	sta <WantSize	;restored from possible xba
	brl TryAgain
;
TrySysFontFam
;no good WantFam font around - shift to	system font family:
	lda <SysFontID
	sta WantFam
	lda 13,s
	and #$FF00
	sta <WantSize	;restored from possible xba
	brl TryAgain
;
GoodSysStyle
;WantFam is SysFontFam, and SysFontStyle partially matches WantStyle -
;I have no idea what's the matter, so let's do the simplist	thing:
;
	jsl xLoadSysFont	;make system font current

OK	lda 13,s	;get the requested font ID
	pha
	lda 13,s
	pha
	_SetFontID	;set the FontID field in the GrafPort

	lda 13,s
	and #$00FF	;get the requested font style
	pha
	_SetTextFace	;set text face field in the GrafPort

	lda 13,s
	and #$FF00	;get the requested font size
	xba
	pha
	_SetTextSize	;set the text size field in the GrafPort

	jsr UnLockIDList
	ldx <Err	;get error flag
	beq NoErr
	brl StdErr6	;report the error

NoErr	brl StdEnd6

xLoadSysFont	tdc
	jsl LoadSysFont
	rtl

;-------------------------------------------------------------------------------

FindBestFit		;
;

	stz <Count	;# of ID entries processed
	stz <MatchLevel	;size match level
	stz <BestStyle	;style byte of best	fit so far
	stz <BestSize	;size byte of best fit so far
	stz <BestPtr	;ptr to ID entry of	best fit so far
	stz <BestPtr+2

IDLoop	lda [<IDPtr]	;get fam #
	cmp WantFam	;match desired fam #?
	beq FamMatch	;yes
	brl NextID	;no

FamMatch	ldy #2
	lda [<IDPtr],y
	and #$00FF	;get style byte
	sta <IDStyle	;and save

	lda <IDStyle	;is this font's style a subset of
	ora <WantStyle	;the desired style ?
	cmp <WantStyle
	beq StyleMatch	;yes
	brl NextID	;no

StyleMatch	lda [<IDPtr],y
	and #$FF00	;get size byte
	sta <IDSize	;and save

	lda <IDSize
	cmp <WantSize	;does font's size match desired size?
	bne WrongSize	;no
	ldx #5	;yes - so new match	level is 5
	bra Cont

WrongSize	lda <MatchLevel	;have we found correct size yet?
	cmp #5
	bne NoSizeMatch	;no
	brl NextID	;yes

NoSizeMatch	ldy #8
	lda [<IDPtr],y	;get info word
	and #UnrealBit	;is font real?
	beq CheckTwice	;yes - so it's OK
	brl NextID	;no - so no good

CheckTwice	lda <IDSize

	lsr a	;divide font's size by 2
	bit #$0080
	bne CheckHalf	;doesn't count if not an even size
	cmp <WantSize	;is font's size twice as big as desired?
	bne CheckHalf	;no
	ldx #4	;yes - so new match	level is 4
	bra Cont

CheckHalf	lda <IDSize
	asl a	;multiply font's size by 2
	cmp <WantSize	;is font's size half as big as desired?
	bne CheckBigger	;no
	ldx #3	;yes - so new match	level is 3
	bra Cont

CheckBigger	lda <IDSize
	cmp <WantSize	;is font's size > desired size?
	bcc CheckSmaller	;no
	ldx #2	;yes - so new match	level is 2
	cpx <MatchLevel	;is current match level = 2 ?
	bne Cont	;no
	lda <IDSize	;yes
	cmp <BestSize	;is font's size < best size so far ?
	bcc SaveIt	;yes - so it's a better match
	brl NextID	;no - so no good

CheckSmaller	ldx #1	;new match level is	1
	cpx <MatchLevel	;is current match level = 1 ?
	bne Cont	;no
	lda <IDSize	;yes
	cmp <BestSize	;is font's size > best size so far ?
	bcs SaveIt	;yes - so it's a better match
	bra NextID	;no - so no good

Cont	stx <NewLevel	;save new match level
	ldy #8
	lda [<IDPtr],y	;get info word
	and #NotDiskBit	;is font on disk?
	beq CmpLevels	;yes
	jsr CheckHandle	;no - so check handle
	beq NextID	;handle is nil - so	font was purged

CmpLevels	ldx <NewLevel	;get new match level and
	cpx <MatchLevel	;compare it to best	match level so far
	beq SizeTie	;same  - so compare	styles
	bcc NextID	;smaller so no good
	stx <MatchLevel	;save new match level as best match
	bra SaveIt	;save this font as best so far

;this font has same	size as 'best so far', so compare their	styles

SizeTie	lda <BestStyle
	jsr CountStyles	;count # of styles set in best so far
	sta <NumStyles	;and save
	lda <IDStyle
	jsr CountStyles	;count # of styles set in this font
	cmp <NumStyles	;compare with # for	best so far
	beq StyleTie	;both fonts have same # styles set
	bcs SaveIt	;this font has more	styles set than best
	bra NextID	;this font has less	styles set than best

;this font has same	# of styles as 'best so far', so see if	it's in memory

StyleTie	jsr CheckHandle	;do we have a handle to this font?
	beq NextID	;no
	jsr CheckNil	;yes - so check handle
	beq NextID	;handle is nil - so	font was purged

;this font is best so far

SaveIt	ldy #2
	lda [<IDPtr],y	;get style/size word
	cmp 15,s	;match desired exactly?
;
****    KLUDGE FOLLOWS:
;
	bne AroundDone
*****
* 6 December 88	SMD
* Fix bug where font got purged and was never reinstalled.  This happened
* because the handle wasn't checked to see if it  was still valid (font not purged).
*
	ldy #8
	lda [<IDPtr],y	;get info word to see if the font is on disk
	and #NotDiskBit	;is font on disk?
	beq SI0010	;yes
;
; If font is not on the disk, it was derived... lets check it out...
	jsr CheckHandle	;do we have a handle to this font?
	beq NextID	;no
	jsr CheckNil	;yes - so check handle
	beq NextID	;handle is nil - so	font was purged
* end of bug fix
*****
*
* Fixed bug 1/16/89	Mensch
* Added label SI0010 and code above that branches to it so that installfont would
* no longer ignore disk based fonts that were not loaded.
*
SI0010
	lda <IDPtr	;save ptr to font
	sta <BestPtr
	lda <IDPtr+2
	sta <BestPtr+2
	lda <IDStyle	;save font's style
	sta <BestStyle
	lda <IDSize	;save font's size
	sta <BestSize
	bra Done
AroundDone		;
;
****    END OF THIS	KLUDGE - BHM  2/13/87

	lda <IDPtr	;save ptr to font
	sta <BestPtr
	lda <IDPtr+2
	sta <BestPtr+2
	lda <IDStyle	;save font's style
	sta <BestStyle
	lda <IDSize	;save font's size
	sta <BestSize

NextID	jsr IncIDPtr	;point to next ID entry
	inc <Count
	lda <Count
	cmp <IDCount	;at end of list?
	beq RetBest	;yes
	brl IDLoop

RetBest	lda <BestPtr
	ora <BestPtr+2	;did we find a best	fit?
	beq NoBestFound	;no
	lda <BestPtr	;yes-set IDPtr to point to the best fit
	sta <IDPtr
	lda <BestPtr+2
	sta <IDPtr+2
Done	clc	;return with carry clear
	rts

NoBestFound	sec	;return with carry set since
	rts	;system font is best fit

;------------------------------------------------------------------------------

CountStyles	ldy #0	;count of # of styles set
	ldx #8	;# bits left to check
Loop	lsr a
	bcc NotSet
	iny
NotSet	dex
	bne Loop
	tya	;# of styles set
	rts

	ENDP


****************************************************************
*
* SetPurgeStat
*
****************************************************************

	ENTRY SetPurgeStat
SetPurgeStat	PROC

PurgeState	equ Temp

	phd
	tcd

	lda 11,s	;get fam #
	tay
	lda 13,s	;get style/size
	jsr CheckFontID
	bcc IDOK
	brl StdErr6	;return error

IDOK	sta 13,s	;save converted style/size
	tya
	sta 11,s	;save converted fam	#

	lda 9,s	;get purge setting
	and #PurgeBit	;mask off other bits
	sta <PurgeState	;and save

	jsr LockIDList
	ldx #0	;# of ID entries processed
	ldy #2

Loop	lda [<IDPtr]	;get fam #
	cmp 11,s	;match?
	bne NextID	;no
	lda [<IDPtr],y	;get style/size
	cmp 13,s	;match?
	beq GotID	;yes
NextID	jsr IncIDPtr
	inx
	cpx <IDCount	;at end of list?
	bne Loop	;no

	ldx #NoFontErr	;yes - so didn't find ID
	bra RetErr

GotID	lda <PurgeState	;check purge setting
	beq Cont	;branch if setting is 'unpurgeable'
	jsr CheckSysFont	;is this font the system font?
	bne Cont	;no - so OK
	ldx #PurgeErr	;yes - can't purge the system font
	brl RetErr

Cont	jsr CheckHandle	;do we have a handle to this font?
	beq NotInMem	;no - so error
	jsr CheckNil	;is handle nil?
	beq NotInMem	;yes - so error

	ldy #8
	lda [<IDPtr],y	;get font info
	and #UnPurgeable	;clear PurgeBit
	ora <PurgeState	;set correct purge state
	sta [<IDPtr],y	;and save

	lda <PurgeState
	beq PushLevel
	lda #2
PushLevel	pha	;purge level
	PushZLong <FontHandle
	_SetPurge	;set purge level of	font

	jsr UnLockIDList
	brl StdEnd6

NotInMem	ldx #MemErr
RetErr	phx	;save error code
	jsr UnLockIDList	;clean up
	plx	;retrieve error code
	brl StdErr6	;return the error
	ENDP



****************************************************************
*
* CountFonts
*
****************************************************************

	ENTRY CountFonts
CountFonts	PROC

DontUse	equ Temp	;these 2 bytes used	by FindFontStats
FindPos	equ DontUse+2
Count	equ FindPos+2
WantStyle	equ Count+2
WantSize	equ WantStyle+2

	phd
	tcd

	pha	;push 8 bytes of garbage on stack
	pha	;so that params are	at same offsets
	pha	;as params for FindFontStats and
	pha	;LoadFont

	jsr LockIDList
	lda #$FFFF	;count all fonts

	ENTRY CFCommon
CFCommon
	sta <FindPos

	lda 19,s	;get fam #
	bne NotZero
	lda <SysFontID	;convert fam # of 0	to system fam #
	sta 19,s
	lda 21,s	;get style/size
	bne NotZero
	lda <SysFontID+2
	sta 21,s	;convert to system font's style/size

NotZero	lda 17,s
	and #AnyFamBit	;is fam # important?
	bne OK1	;no - so don't care if illegal #
	lda 19,s	;get fam #
	cmp #Illegal	;illegal #?
	bne OK1	;no
	ldx #FamNumErr
	brl RetErr	;return error

OK1	lda 17,s
	and #AnySizeBit	;is size important?
	bne OK2	;no - so don't care if illegal value
	lda 21,s
	and #$FF00	;get size
	bne OK2	;OK if not 0
	ldx #SizeErr
	brl RetErr	;return error

OK2	lda 21,s
	and #$00FF	;get desired style
	sta <WantStyle	;and save
	lda 21,s
	and #$FF00	;get desired size
	sta <WantSize	;and save

	stz <Count
	ldx #0	;# of ID entries processed

IDLoop	jsr CheckHandle	;do we have a handle to this font?
	beq MemBitOK	;no - so font was never in mem
	jsr CheckNil	;check for nil handle
	bne MemBitOK	;not nil - so font is still in mem
	ldy #8	;handle is nil - so	font was purged
	lda [<IDPtr],y	;get info word
	and #NotMemBit	;clear MemBit since	font not in mem
	sta [<IDPtr],y	;and save

MemBitOK	ldy #8
	lda [<IDPtr],y	;get info word
	and #NotDiskBit	;is font on disk?
	beq FontOK	;yes - so OK
	lda [<IDPtr],y	;no - so font exists only in mem
	and #MemBit	;is font still in mem?
	beq NextID	;no - it's been purged so no good

FontOK	lda 17,s
	and #MemOnlyBit	;count only fonts in mem?
	beq MemOK	;no
	ldy #8
	lda [<IDPtr],y	;get info word
	and #MemBit	;is font in mem?
	beq NextID	;no

MemOK	lda 17,s
	and #RealOnlyBit	;count only real fonts?
	beq RealOK	;no
	ldy #8
	lda [<IDPtr],y	;get info word
	and #UnRealBit	;is font real?
	bne NextID	;no

RealOK	lda 17,s
	and #AnyFamBit	;count any family?
	bne FamOK	;yes
	lda [<IDPtr]	;get fam #
	cmp 19,s	;match?
	bne NextID	;no

FamOK	lda 17,s
	and #AnySizeBit	;count any size?
	bne SizeOK	;yes
	ldy #2
	lda [<IDPtr],y
	and #$FF00	;get size
	cmp <WantSize	;match?
	bne NextID	;no

SizeOK	ldy #2
	lda [<IDPtr],y
	and #$00FF	;get style
	tay	;save temporarily
	ora <WantStyle
	cmp <WantStyle	;is it a subset of the desired style?
	bne NextID	;no
	lda 17,s
	and #AnyStyleBit	;count any style?
	bne StyleOK	;yes
	cpy <WantStyle	;match?
	bne NextID	;no

StyleOK	inc <Count	;count this font
	lda <Count
	cmp <FindPos	;is this the font we are looking for?
	bne NextID	;no
	clc	;yes
	rts	;return to FindFontStats

NextID	jsr IncIDPtr
	inx
	cpx <IDCount	;at end of list?
	beq Done	;yes
	brl IDLoop

Done	lda <FindPos
	cmp #$FFFF	;called by FindFontStats?
	beq CountOK	;no
	sec	;yes - so didn't find font
	rts	;return to FindFontStats with error

CountOK	jsr UnLockIDList
	pla	;clean garbage off stack
	pla
	pla
	pla
	lda <Count
	sta 15,s	;return count
	brl StdEnd6

RetErr	phx	;save error code
	jsr UnLockIDList
	plx	;retrieve error code
	pla	;pull return address off stack
	lda <FindPos
	cmp #$FFFF	;called by FindFontStats?
	beq NotFFS	;no
	ldy #12	;param size
	jml errout	;return error

NotFFS	pla	;pull garbage off stack
	pla
	pla
	brl StdErr6	;return error
	ENDP



****************************************************************
*
* FindFontStats
*
*
* Change History
*
* 15 Jul 88	Steven Glass
*
* LoadTheFont trashes the d-page value TempPtr if the font is actually 
* loaded (not already in memory).  So we copy the pointer back off 
* the stack after calling LoadTheFont.
*
****************************************************************

	ENTRY FindFontStats
FindFontStats	PROC

LoadFlag	equ Temp

	phd
	tcd
	lda #0	;don't load the font

	ENTRY FFSCommon
FFSCommon
	sta <LoadFlag

	lda 9,s	;get ptr to FontStatRec for output
	sta <TempPtr
	lda 11,s
	sta <TempPtr+2

	jsr LockIDList

	lda 13,s	;position num to find
	beq NoFont	;illegal position num
	jsr CFCommon
	bcc GotIt	;found the font
NoFont	lda #NotFoundBit
	ldy #4
	sta [<TempPtr],y	;signal font not found
	bra Done

GotIt	lda <LoadFlag	;LoadFont call?
	beq RetInfo	;no
	lda #$FFFF
	jsr LoadTheFont	;yes - so load the font into mem and
	bcs RetErr	;make it the current font
RetInfo
;
; Copy the pointer to the fontstats record back onto d-page
; (May have been trashed by LoadTheFont)
;
	lda 9,s	;get ptr to FontStatRec for output
	sta <TempPtr
	lda 11,s
	sta <TempPtr+2

	lda [<IDPtr]	;return font ID
	sta [<TempPtr]
	ldy #2
	lda [<IDPtr],y
	sta [<TempPtr],y
	ldy #8
	lda [<IDPtr],y	;get font info word
	ldy #4
	sta [<TempPtr],y	;and return

Done	jsr UnLockIDList
	ldy #12	;param size
	jml endcall

RetErr	phx	;save error code
	jsr UnLockIDList	;clean up
	plx	;retrieve error code
	ldy #12	;param size
	jml errout	;report the error
	ENDP



****************************************************************
*
* LoadFont
*
****************************************************************

	ENTRY LoadFont
LoadFont	PROC

	phd
	tcd
	lda #$FFFF	;load the font
	brl FFSCommon
	ENDP



****************************************************************
*
* LoadSysFont
*
****************************************************************

	ENTRY LoadSysFont
LoadSysFont	PROC

	phd
	tcd

	jsr LockIDList

Loop	jsr CheckSysFont	;is this font the system font?
	beq FoundIt	;yes
	jsr IncIDPtr	;no - so check next	ID entry
	bra Loop

FoundIt	lda #$FFFF
	jsr LoadTheFont	;make system font the current font
	jsr UnLockIDList

	ldy #0	;param size
	jml endcall
	ENDP



****************************************************************
*
* AddFontVar
*
****************************************************************

	ENTRY AddFontVar
AddFontVar	PROC

NewStats	equ Temp
NewIDSize	equ NewStats+2

	phd
	tcd

	lda 9,s	;get new stats input for font
	and #UnrealBit	;mask off all bits except UnrealBit
	sta <NewStats	;and save for later

	lda 11,s	;get handle to font
	sta <FontHandle
	lda 13,s
	sta <FontHandle+2
	jsr LockFont

	jsr LockFamList
	ldx #0	;# of fam entries checked
	ldy #2
FamLoop	lda [<FamPtr]	;get fam #
	cmp [<FontPtr],y	;does it match font's fam #?
	beq GotFam	;yes
	jsr IncFamPtr	;no - so check next	fam entry
	inx
	cpx <FamCount	;at end of list?
	bne FamLoop	;no

	jsr UnLockFont	;yes
	jsr UnLockFamList
	ldx #NoFamErr
	brl StdErr6	;return the error

GotFam	lda <IDListSize	;get current size of ID list
	clc
	adc #14	;add size of new entry
	sta <NewIDSize	;and save

	PushWord #0	;hi word of size
	pha	;lo word of size
	PushZLong <IDHandle	;handle to list
	_SetHandleSize	;grow the list
	bcc OK
	pha	;save error code
	jsr UnLockFont	;clean up
	jsr UnLockFamList
	plx	;retrieve error code
	brl StdErr6	;report the error

OK	jsr LockIDList

	clc
	lda <IDPtr	;create ptr to new ID entry
	adc <IDListSize
	sta <IDPtr
	lda <IDPtr+2
	adc #0
	sta <IDPtr+2

	ldy #4
	lda [<FontPtr],y	;get font's style word
	and #$00FF	;mask off hi byte
	pha	;save on stack
	iny
	iny
	lda [<FontPtr],y	;get font's size word
	and #$00FF	;mask off hi byte
	xba	;swap bytes
	ora 1,s	;OR with style word
	ply	;clean up

	ldy #2
	sta [<IDPtr],y	;save style/size word in new ID entry
	lda [<FamPtr]	;get fam #
	sta [<IDPtr]	;and save in new ID	entry
	lda [<FamPtr],y	;get offset to famname entry
	iny
	iny
	sta [<IDPtr],y	;and save in new ID	entry

	lda #0
	iny
	iny
	sta [<IDPtr],y	;set filename offset to 0

	ldy #4
	lda [<FamPtr],y	;get fam info word
	and #ApFamBit	;mask off all bits except ApFamBit
	ora #ApVarBit	;set ApVarBit
	ora #MemBit	;set MemBit
	ora #NotDiskBit	;set NotDiskBit
	ora <NewStats	;OR with NewStats
	ldy #8
	sta [<IDPtr],y	;and save in new ID	entry

	iny
	iny
	lda 11,s	;get font handle
	sta [<IDPtr],y	;and save in new ID	entry
	iny
	iny
	lda 13,s
	sta [<IDPtr],y

	lda <NewIDSize	;get new size of ID	list
	sta <IDListSize	;and save
	inc <IDCount	;inc # of ID entries

	Pushword #0
	PushZLong <FontHandle
	_SetPurge	;make font unpurgeable

	jsr MakeCurrent	;make new font the current font

	jsr UnLockFont
	jsr UnLockIDList
	jsr UnLockFamList
	brl StdEnd6
	ENDP



****************************************************************
*
* FMSetSysFont
*
****************************************************************

	ENTRY FMSetSysFont
FMSetSysFont	PROC

	phd
	tcd

	lda 9,s	;get fam #
	tay
	lda 11,s	;get style/size
	jsr CheckFontID
	bcc IDOK
	brl StdErr4	;return error

IDOK	sta 11,s	;save converted style/size
	tya
	sta 9,s	;save converted fam	#

	jsr LockIDList
	ldx #0
	ldy #2

Loop	lda [<IDPtr]	;get fam #
	cmp 9,s	;match?
	bne NextID	;no
	lda [<IDPtr],y	;get style/size
	cmp 11,s	;match?
	beq FoundIt	;yes
NextID	jsr IncIDPtr	;no - so check next	entry
	inx
	cpx <IDCount	;done with list?
	bne Loop	;no
	jsr UnLockIDList	;yes - so didn't find font
	ldx #NoFontErr
	brl StdErr4	;return the error

FoundIt	lda #notCurrFlag
	jsr LoadTheFont	;load the font, don't make current
	bcc OK
	brl StdErr4	;return the error

OK	lda 9,s	;get fontID of new system font
	sta <SysFontID	;and save
	lda 11,s
	sta <SysFontID+2

	PushZLong <FontHandle
	_SetSysFont	;tell QuickDraw about new sys font

	jsr UnLockIDList
	brl StdEnd4
	ENDP



****************************************************************
*
* FMGetSysFID
*
****************************************************************

	ENTRY FMGetSysFID
FMGetSysFID	PROC

	phd
	tcd

	lda <SysFontID	;return font ID of system font
	sta 9,s
	lda <SysFontID+2
	sta 11,s
	ldy #0	;param size
	jml endcall
	ENDP



****************************************************************
*
* FMGetCurFID
*
****************************************************************

	ENTRY FMGetCurFID
FMGetCurFID	PROC

FontInfo	equ Temp	;the following items MUST appear
FamNum	equ FontInfo	;in this order
Style	equ FamNum+2
Size	equ Style+2

	phd
	tcd

	pha	;space for result
	PushZPtr <FontInfo	;ptr to buffer for results
	PushWord #6	;# bytes to return
	_GetFontLore	;get info about current font
	pla	;ignore result

	lda <FamNum	;get font's fam #
	sta 9,s	;and return
	lda <Size	;get font's size
	and #$00FF	;mask off hi byte
	xba	;swap bytes
	sta <Size	;and save
	lda <Style	;get font's style
	and #$00FF	;mask off hi byte
	ora <Size	;OR with size
	sta 11,s	;and return

	ldy #0	;param size
	jml endcall
	ENDP


****************************************************************
*
* LoadTheFont
*
****************************************************************

***************************************
*	                  *
*  11/12/87  2:35 pm                  *
*	                  *
***************************************

***************************************************************
*
*  MakeCurFlag renamed loadFlags, several control bits added
*  for use with font scaling:
*
*  bit 0:  currFlag
*          0:  don't make font current
*          1:  make	font current
*  bit 1:  newMemFlag
*          0:  make	newly-loaded-in font purgeable
*          1:  make	it unpurgeable
*  bit 2:  oldMemFlag
*          0:  make	font found in memory purgeable
*          1:  leave its purge status alone
*
*    Bennet Marks  x6245  2/10/87
*
*  NOTE/WARNING:  this routine leaves the loaded font unlocked.
*  In the case of scaling, it may also leave it purgeable.	Any
*  calling routine should be sure it doesn't let the font get
*  purged accidentally before it uses it. - BHM  x6245  6/15/87
*
*   Input: A
*  Output: Carry flag
*
***************************************************************
	ENTRY LoadTheFont
LoadTheFont	PROC
	INCLUDE 'SomeFMEqus' ;added 2/12/87 - BHM
*** added 2-Dec-91 DAL -- wrap SetSysPrefs around LoadTheFont
	pha
	jsr GetAndFixPrefs
	pla
	jsr RealLoadTheFont
	php
	_SetSysPrefsGS oldPrefs
	plp
	rts

GetAndFixPrefs	_GetSysPrefsGS oldPrefs
	lda >oldPrefs+2
	and #$dfff	;don't supress one-button dialogs
	ora #$8000	;turn on prompt-for disk; keep Cancel state (7-Dec-91 DAL)
	sta >myPrefs+2
	_SetSysPrefsGS myPrefs
	rts

oldPrefs	dc.w 1	;1 parameter
	dc.w 0	;the old SysPrefs

myPrefs	dc.w 1
	dc.w 0	;my modified preferences

RealLoadTheFont
*** end 2-Dec-91 DAL
	sta <loadFlags

	jsr CheckHandle	;do we have a handle to this font?
	beq NotInMem	;no - so load font in from disk
	jsr CheckNil	;yes - so check if handle is nil
	beq ItsPurged	;it's nil - so font was purged
	jsr LockFont	;not nil - so font is in memory
	bra InMem

;font was in memory	but has been purged

ItsPurged	jsr GetSizes	;open font file, get size info
	bcc OK1
	rts	;return error to calling routine

OK1	PushZLong <FontHandle
	_RestoreHandle	;restore the font handle
	bcc LoadIt	;load the font into	mem
	tax	;transfer error code to X
	brl GotErr2

;font was never in memory

NotInMem	jsr GetSizes	;open font file, get size info
	bcc OK2
	rts	;return error to calling routine

OK2	lda <FontSize	;size of font in bytes
	ldx <FontSize+2	;added 6-Jan-91 DAL
	jsr GetHandleXA	;allocate space for	the font in mem
	bcc GotHandle
	brl GotErr2

GotHandle	ldy #10
	sta <FontHandle
	sta [<IDPtr],y	;save handle to font in ID entry
	iny
	iny
	txa
	sta <FontHandle+2
	sta [<IDPtr],y

;load font into memory from disk

LoadIt	jsr LockFont	;font file is open at this point
	lda <FontPtr
	sta <ReadPtr	;copy ptr to font area into READ params
	lda <FontPtr+2
	sta <ReadPtr+2

	lda <FontSize
	sta <ReadSize	;# of bytes to read
***	stz <ReadSize+2
	lda <FontSize+2	;6-Jan-91 DAL
	sta <ReadSize+2	;6-Jan-91 DAL
	jsr ReadFile	;load the font into	memory
	stz <ReadSize+2	;6-Jan-91 DAL (just being paranoid, or maybe not)
	bcs GotErr

	jsr CloseFile	;close the font file
	bcs GotErr
;
****  ALTERATIONS DONE TO HELP WITH FONT SCALING:
;
;font just brought into memory:
	lda loadFlags
	and #newMemFlag
	bne MakeUnprgable
;
;make it purgeable:
	ldy #8
	lda [<IDPtr],y
****  added for FontForADay - experimental - BHM  x6245  12/16/87
	sta <oldStats

	ora #(PurgeBit+MemBit) ;set purge and mem bits in list
	sta [<IDPtr],y

	PushWord #2
	PushZLong <FontHandle
	_SetPurge	;and make the font purgeable
	bra PurgeStatDone

InMem
;font was already in memory:
	lda loadFlags
	and #oldMemFlag
	beq KeepPurgeStat	;leave purge status	alone
;
;otherwise, make it	unpurgeable:
MakeUnprgable	ldy #8
	lda [<IDPtr],y	;set mem bit, reset	purge bit
****  added for FontForADay - experimental - BHM  x6245  12/16/87
	sta <oldStats

	and #Unpurgeable
	ora #MemBit
	sta [<IDPtr],y

	PushWord #0
	PushZLong <FontHandle
	_SetPurge	;and make the font unpurgeable
	bra PurgeStatDone

PurgeStatDone
KeepPurgeStat

	lda <loadFlags
	and #currFlag	;make the font current?
****  END OF ALTERATIONS - BHM  2/10/87

	beq Done	;no
	jsr MakeCurrent	;yes
Done	jsr UnLockFont
	clc
	rts

GotErr	phx	;save error code
	lxy <FontHandle	;8-Mar-93 SS
	jsr DisposeTheHandle	;dispose of handle and font
	plx	;retrieve error code

GotErr2	phx	;save error code
	jsr CloseFile	;clean up
	plx	;retrieve error code
	sec
	rts	;return to calling routine

;-------------------------------------------------------------------------------

GetSizes
****changed to use FMParams block - BHM	 x6245  11/12/87

	jsr LockFMParams

	jsr LockFileList
	ldy #6
	clc
	lda [<IDPtr],y	;get offset to filename entry
	adc <FilePtr	;and create ptr to filename entry
	sta <FilePtr
	lda <FilePtr+2
	adc #0
	sta <FilePtr+2

	jsr CopyFileName	;copy file name into pathname string

	lda <FMParamPtr
	clc
	adc #(DirName-FMParams)
	sta <OpenPtr	;store ptr to pathname of font file
	lda <FMParamPtr+2	;in OPEN params
	adc #0
	sta <OpenPtr+2

	jsr OpenFile	;open the font file
	bcc OpenOK
	phx	;save error code
	jsr UnLockFileList	;clean up
	jsr UnlockFMParams
	plx	;retrieve error code
	rts	;return the error

OpenOK	jsr UnLockFileList
	jsr UnlockFMParams

	jsr GetEOF	;get size of font file

	lda <EOFSize	;might get trampled	by READ call
	sta <currEOFSize	;but not here
*** added 6-Jan-91 DAL
	lda <EOFSize+2
	sta <currEOFSize+2
*** end of 6-Jan-91 DAL addition
	bcs RetErr

	jsr LockNameList
	ldy #4
	lda [<IDPtr],y	;get offset to famname
	tay
	lda [<NamePtr],y	;get length of famname
	and #$00FF	;mask off hi byte
	inc a	;add 1 for the length byte itself
	sta <NameSize	;save for later
	jsr UnLockNameList

	lda <NameSize
	cmp #MaxNameLen+1	;is name length = max name length?
	bne GotNameLen	;no - so we have the correct length
;
;we are about to read the font file's first 2 bytes into the
;0-page location NameSize  (it's weird, but what the hey?)
;(changed from an even weirder form 11/12/87 - BHM  x6245)

	tdc
	clc
	adc #NameSize
	sta <ReadPtr	;point to that 0-page location
	stz <ReadPtr+2	;high word 0, of course
	lda #2	;# bytes to read
	sta <ReadSize
	stz <ReadSize+2
	jsr ReadFile	;read first word of	font file
	bcs RetErr

	lda <NameSize	;get name length
	and #$00FF	;mask off hi byte
	inc a	;add 1 for length byte itself
	sta <NameSize	;and save

GotNameLen	sec
	lda <currEofSize
	sbc <NameSize	;calculate size of the font file not
	sta <FontSize	;including the famname
*** added 6-Jan-91 DAL
	lda <currEofSize+2
	sbc #0
	sta <FontSize+2
*** end of 6-Jan-91 DAL addition
	lda <NameSize
	sta <MarkLoc
	stz <MarkLoc+2
	jsr SetMark	;set current position of file to start
	bcs RetErr	;of font

	clc
	rts

RetErr	phx	;save error code
	jsr CloseFile	;clean up
	plx	;retrieve error code
	sec
	rts
	ENDP


****************************************************************
*
* InstallWithStats
*
*    (name changed from FontForADay 1/4/88 - BHM  x6245
*
****************************************************************
;
***************************************
*	                  *
*  1/4/88 3:45 pm	                  *
*	                  *
***************************************
;
***************************************************************
*
*  This call combines features of InstallFont and FindFontStats.
*  It does a normal	InstallFont, but it	also returns a FontStatRec
*  reflecting the status that the font that is installed (the font
*  ACTUALLY installed - not necessarily	the font asked for)	had
*  BEFORE this call	was made.  It is intended to be used for saving
*  and restoring the status of a font (particularly its purge status)
*
*  Bennet Marks  x6245
*
***************************************************************
;
	ENTRY InstallWithStats
InstallWithStats	PROC	;my longest label!
;
FontInfo	equ Temp
FamNum	equ FontInfo
Style	equ FamNum+2
Size	equ Style+2
ErrCode1	equ Size+2
;
	phd
	tcd
;
	lda 13,s	;scaleWord
	tax
	lda 15,s	;famNum
	tay
	lda 17,s	;style/size
	pha
	phy
	phx
;
	jsl xInstallFont
;
	sta <ErrCode1	;error code, if any
;
	pha	;space for result
	PushZPtr <FontInfo
	PushWord #6	;number of bytes to	get
	_GetFontLore
	pla	;result - we don't use it
;
	lda 9,s
	sta <tempPtr
	lda 11,s
	sta <tempPtr+2
;
	lda <FamNum
	sta [<tempPtr]
	lda <Size
	and #$00FF
	xba
	sta <Size
	lda <Style
	and #$00FF
	ora <Size
	ldy #2
	sta [<tempPtr],y
;
	lda <oldStats
	ldy #4
	sta [<tempPtr],y
;
	ldx <ErrCode1
	bne Err1
;no error:
	ldy #10
	clc
	ldy #10
	jml endcall
;
Err1	ldy #10
	sec
	jml errout
;
xInstallFont	tdc
	jsl InstallFont
	rtl
	ENDP

;                COPY mdstuff
**************************************************************
*
* FixFontMenu
*
****************************************************************

	ENTRY FixFontMenu
FixFontMenu	PROC
;
****  Changed for purposes of ROMmability - BHM  x6245  12/10/87
**** many changes noted by a "*" for ease of debugging
;

MenuID	equ Temp
NumNames	equ MenuID+2

	phd
	tcd

	jsr LockFMParams	;must be called before BuildMDList, because BuildMDList 
		;was using the FMParamPtr stored in zero page, after 
		;the handle was unlocked, yet it is possible that 
		;this pointer might have been moved because of compaction
		;or something(4/28/88, HY)
	jsr BuildMDList	;build list of ptrs	to famnames
	bcc OK
	jsr unLockFMParams
	brl StdErr6	;return the error

OK
	jsr LockMDList

	lda 13,s	;get menu ID
	sta <MenuID
	lda 11,s	;get starting item ID
	sta <StartingID

	ldy #(DummyItemID-FMParams)
	sta [<FMParamPtr],y	;*store starting item ID in dummy item

	ldy #(MDListSize-FMParams)
	lda [<FMParamPtr],y	;*get # of entries in MD list
	sta <NumNames	;and save

Loop
;push pointer to dummy menu item:
	ldx <FMParamPtr+2	;*high word
	lda <FMParamPtr
	clc
	adc #(DummyItem-FMParams)
	bcc NoCarry1
	inx
NoCarry1
	phx
	pha

	PushWord #$FFFF	;append to end of menu
	PushZWord <MenuID	;push menu ID
	_InsertMItem	;append dummy menu item to end of menu

	ldy #2
	lda [<MDPtr],y	;push ptr to famname
	pha
	lda [<MDPtr]
	pha
	ldy #(DummyItemID-FMParams)
	lda [<FMParamPtr],y
	pha	;*push item ID of dummy item just added
	_SetMItemName	;replace 'Dummy' with famname

	jsr IncMDPtr	;point to next MD list entry
*increment item ID for next famname
	ldy #(DummyItemID-FMParams)
	lda [<FMParamPtr],y
	inc a
	sta [<FMParamPtr],y

	dec <NumNames	;done with all famnames?
	bne Loop	;no

;Convert the list of ptrs to famnames (MDList) into a list of family
;numbers (ItemList)	which are in the same order as the font	famnames
;in the menu.  ItemList is used by the ItemID2FamNum routine.

	lda <MenuMade	;was an ItemList created previously?
	beq Cont	;no
	lxy <ItemHandle ;yes - so release	the space
	jsr DisposeTheHandle	;8-Mar-93 SS

Cont	lda <MDHandle	;copy handle to MD list
	sta <ItemHandle
	lda <MDHandle+2
	sta <ItemHandle+2

	jsr LockMDList	;reset MDPtr back to start of list
	jsr LockItemList	;set up ItemPtr to also point to list

	ldy #(MDListSize-FMParams)
	lda [<FMParamPtr],y	;*get # of entries in MD list
	sta <NumNames	;and save

ItemLoop	ldy #6
	lda [<MDPtr],y	;get fam # corresponding to famname ptr
	sta [<ItemPtr]	;and move up
	jsr IncMDPtr	;point to next MD list entry
	jsr IncItemPtr	;point to next Item	list entry
	dec <NumNames	;done?
	bne ItemLoop	;no

	jsr UnLockMDList

	PushWord #0	;hi word of new size
	ldy #(MDListSize-FMParams)
	lda [<FMParamPtr],y	;*get # of items in	MD list
	asl a	;multiply by 2 to get size of Item list
	pha	;lo word of size
		;** code added 2-25-87 CAE **
	sta <ItemListSize	;save size of Item list
		;** end addition **
	PushZLong <MDHandle	;handle to list
	_SetHandleSize	;shrink MD list to use as Item list

	inc <MenuMade	;set flag so Names list will stay locked
		;since menu contains ptrs to famnames

	jsr UnlockFMParams

	brl StdEnd6
	ENDP



****************************************************************
*
* ItemID2FamNum
*
****************************************************************

	ENTRY ItemID2FamNum
ItemID2FamNum	PROC

	phd
	tcd

	lda <MenuMade
	bne OK
	ldx #MenuErr	;FixFontMenu never called
ErrRet	ldy #2	;param size
	jml errout	;return the error

OK	jsr LockItemList
	sec
	lda 9,s	;get item ID
	sbc <StartingID	;create offset into	Item list
	asl a
	tay
;		;** code added 2-25-87 CAE **
	cpy <ItemListSize	;past end of list?
	bcc OK2	;no - so OK
	jsr UnLockItemList	;yes - so unlock list
	ldx #NoFamErr	;and return error
	bra ErrRet
;		;** end addition **

OK2	lda [<ItemPtr],y	;get fam # corresponding to item ID
	sta 11,s	;and return
	jsr UnLockItemList
	ldy #2	;param #
	jml endcall
	ENDP



****************************************************************
*
* FamNum2ItemID
*
****************************************************************

	ENTRY FamNum2ItemID
FamNum2ItemID	PROC

	phd
	tcd

	lda <MenuMade
	bne OK
	ldx #MenuErr	;FixFontMenu never called
ErrRet	ldy #2	;param size
	jml errout	;return the error

OK	jsr LockItemList
	ldy #0

Loop	lda [<ItemPtr],y	;get fam #
	cmp 9,s	;is it the one we're looking for?
	beq GotIt	;yes
	iny	;no - so check next	entry
	iny
	cpy <ItemListSize	;at end of list?
	bcc Loop	;no
	jsr UnLockItemList	;yes - so unlock list
	ldx #NoFamErr	;and return error
	bra ErrRet

GotIt	tya	;get offset into list
	lsr a	;and divide by 2
	clc
	adc <StartingID	;and add to starting item ID
	sta 11,s	;to create item ID for this fam #
	jsr UnLockItemList
	ldy #2	;param size
	jml endcall
	ENDP



*********************************************************************************
*	    
* ChooseFont 
* Version 2.5	        
*	    
* Copyright Apple Computer, Inc. 1986-1988              
* All Rights Reserved                   
*	    
* V2.5  1/4/89	Mensch
*
* 
*
*********************************************************************************

****************************************************************
*
* ChooseFont
*
****************************************************************

	ENTRY ChooseFont
ChooseFont	PROC
;
****  EXPERIMENTAL CHANGE:
;only CurNum, CurStyle, and CurSize need to survive the call to InstallFont.
;By moving them to the end, and letting	other ChooseFont temporary 0-page
;locations overlap with InstallFont's, we can reclaim some 0-page, which
;will be put to good use.  Trust me.  BHM  x6245  11/3/87
;
****  Changed to accomodate ROMming - BHM  x6245  12/10/87
****  many changes marked with a "*" for ease of debugging
;
;
; Changed to handle	updating manually 1/3/89 Mensch
;
; Changed to use NewWindow2 templates 1/5/89 Mensch
; This change will allow personalization/internationalization of this dialog box
; and its asociated alert.

*** TaskRec	equ Temp	;must be first!

*** TempStyle	equ TaskRec+24
*** TempStyle	equ Temp

TempStyle	equ Temp+24	;24-Feb-91 DAL (I can't use less direct-page space than before!!)
CntlHndl	equ TempStyle+2

CntlHndls	equ CntlHndl+4	;these 3 items must	be in this order
PlainHndl	equ CntlHndls
StyleHndls	equ PlainHndl+4

LinePtr	equ StyleHndls+20
Count	equ LinePtr+4
Index	equ Count+2
CancelFlag	equ Index+2
;
; It is vital that, at this point, we're beyond the end of
; IntallFont's temporary 0-page  (which we are) - BHM  11/3/87
;
CurNum	equ CancelFlag+2
CurStyle	equ CurNum+2
CurSize	equ CurStyle+2
;
; Storage for the handles of our list
MDCtlHandle	equ CurSize+2
SizeCtlHandle	equ MDCtlHandle+4

	phd
	tcd

	jsr LockFMParams

	stz <CancelFlag
	jsr BuildMDList	;build list of ptrs	to famnames
	bcc OK
	brl StdErr6	;return the error

OK	lda 11,s	;get fam #
	tay
	lda 13,s	;get style/size
	jsr CheckFontID
	bcc IDOK
	brl StdErr6	;return error

IDOK	sta 13,s	;save converted style/size
	tya
	sta 11,s	;save converted fam	#
	sta <CurNum	;save current fam #
	lda 13,s
	and #$00FF	;get current style
	sta <CurStyle	;and save
	lda 13,s
	and #$FF00	;get current size
	xba
	sta <CurSize	;and save

*
	phb	;save data bank register
	phk
	plb	;set data bank to program bank

	pha	;space for result
	pha
	_GetPort	;save current port on stack

	stz <ScreenMode	;init to 320 mode
	pha	;space for result
	_GetMasterSCB
	pla
	and #$0080	;is bit 7 set?
	beq Its320	;no - so in 320 mode
	lda #8	;yes - so in 640 mode
	sta <ScreenMode	;set to 8 to index rects correctly
Its320		;

*

	jsr LockMDList
*copy the pointer to MD list into the list record for MD list
	lda <MDPtr
	ldy #(MDListPtr-FMParams)
	sta [<FMParamPtr],y
	lda <MDPtr+2
	iny
	iny
	sta [<FMParamPtr],y

	jsr DrawDialog	;draw the dialog box

LoopTask	pha
	pha	;space for DoModalWindow result
	pushlong #TaskRec
	ldx #0
	phx
	phx	;custom update

	lda #^(cfEventHook+$80000000) ;EventHook: bit 31 = Apple-period --> ESC
	pha
	pea cfEventHook

	phx
	phx	;Beep proc
	pea $9	;flags (xxx+noScrapForLE)
	_DoModalWindow
	pla
	plx
	tay
	beq LoopTask	;nothing hit

*** (A = control ID low word; this is important)

*** added 4-Oct-91 DAL -- if they just hit a Tab, don't rebuild the size list
	tax
	lda TaskRec
	cmp #keyDownEvt
	beq @isKey
	cmp #autoKeyEvt
	bne @notKey
@isKey	lda TaskRec+2	;message field
	and #$00ff
	cmp #$0009	;Tab?
	beq LoopTask
@notKey	txa
*** end 4-Oct-91

	pha
	pha	;space for GetCtlHandleFromID result
	pha
	pha	;space for FrontWindow result
	_FrontWindow
	lda 5,s	;retrieve copy of control ID (low word)
	pea 0
	pha
	_GetCtlHandleFromID
	pla
	sta <cntlHndl
	pla
	sta <cntlHndl+2

	pha
	_MWGetCtlPart
	pla

	cmp #ListPartCode	;was the hit on a list control?
	beq OKControl	;yes  - so OK
	cmp #5	;was the hit on a standard control?
	bcc OKControl	;yes - so OK
InCont10	brl LoopTask	;no - so get next event

OKControl	pha	;space for result
	pha
	PushZLong <CntlHndl	;control handle
	_GetCtlRefCon	;get address of routine to handle hit
	pla	; low word...
	plx	; high word
	bne OKCByPtr	; passed refcon is a routine pointer
	cmp #10	; test to see if the passed routine is standard
	bge OKCByPtr	; if not, the assume by pointer
	asl a	; multiply the refcon by 2
	tax	; use it as an index
	lda >handlerTbl,x	; get the address from handler table 
	
OKCByPtr
; this routine JSRs to the routine pointer to by the refcon. 
	dec a
	pha	;push address on stack
	rts	;return into routine
OKC_Dummy	
	
	brl LoopTask
handlerTbl
; table of routines that handle various controls in our dialog. This table MUST have 
; 16 entries in it!
	dc.W OKC_Dummy	; 0 - Do nothing
	dc.W FontHit	; 1 - Handle a hit in the font list
	dc.W SizeHit	; 2 - Handle hit in size list
	dc.w OKC_Dummy	; 3 - hit the other-size box (DAL)
	dc.W OKHit	; 4 - hit in OK button
	dc.W CancelHit	; 5 - hit in cancel button
	dc.W PlainHit	; 6 - hit in plain style item
	dc.W StyleHit	; 7 - hit in other style item
	dc.W OKC_Dummy	; 8 - nothing
	dc.W OKC_Dummy	; 9 - nothing
	dc.W OKC_Dummy	; 10 - nothing
	dc.W OKC_Dummy	; 11 - nothing
	dc.W OKC_Dummy	; 12 - nothing
	dc.W OKC_Dummy	; 13 - nothing
	dc.W OKC_Dummy	; 14 - nothing
	dc.W OKC_Dummy	; 15 - nothing
	
;-------------------------------------------------------------------------------
;
; The hit was in the OK button
;
	Entry OKHit
OKHit	jsr GetNewSize	;get new font size
	lda <CurSize
	bne SizeNotZero	;size of zero not allowed
BadSize	jsr DoAlert	;put up alert box
	brl LoopTask

SizeNotZero	cmp #256
	bcs BadSize	;size > 255 not allowed

; get selected font style

	stz <CurStyle
	ldx #(5*4)-4	;index to last style control

StyleLoop	asl <CurStyle
	phx	;save X
	pha	;space for result
	lda <StyleHndls+2,x	;handle to control
	pha
	lda <StyleHndls,x
	pha
	_GetCtlValue	;get current value of control
	pla
	beq DoNext	;branch if not set
	inc <CurStyle	;set bit corresponding to the style
DoNext	plx	;retrieve X
	dex
	dex
	dex
	dex	;set index to next style control
	bpl StyleLoop

; finish up

FinishUp	PushZLong <WindPtr
	_CloseWindow	;close window

	_InitCursor	;added 5-Feb-92 DAL

	lxy <MDHandle	;8-Mar-93 SS
	jsr DisposeTheHandle	;dispose of MD list

	jsr UnLockNameList
	jsr UnlockFMParams

	_SetPort	;restore port

	plb	;restore data bank register

	lda <CancelFlag	;was Cancel hit?
	bne Done	;yes

; compare selected fontID against original fontID

	lda <CurSize	;create style/size word
	xba
	ora <CurStyle
	tay	;and save
	cmp 13,s	;compare with original style/size
	bne InstallNew	;different so install new font
	lda <CurNum
	cmp 11,s	;compare fam #
	bne InstallNew	;different so install new font
	bra Done	;new font = old font, so no change

; new font is different from old font so install it

InstallNew	phy	;style/size
	PushZWord <CurNum	;fam #
	PushWord #0	;enable scaling

;
; 1/5/90 Mensch
;
; Added code here that idle's the cursor for the instal font call.
; this puts up the watch cursor when needed.
;
	pha
	pha
	_GetCursorAdr
	pla
	sta <WindPtr	; use wind pointer to store temp value
	pla
	sta <WindPtr+2
	
	_WaitCursor	; put up the watch cursor...
	
	_InstallFont	;install font

	PushzLong <WindPtr	; put the cursor back...
	_SetCursor
	
; return selected fontID

Done	lda <CurNum
	sta 15,s
	lda <CurSize
	xba
	ora <CurStyle
	sta 17,s

	brl StdEnd6

;-------------------------------------------------------------------------------
;
; The hit was in the Cancel button
;
	Entry CancelHit
CancelHit	stz <CurNum	;return 0 as selected font ID
	stz <CurSize
	stz <CurStyle
	inc <CancelFlag
	brl FinishUp

;-------------------------------------------------------------------------------
;
; The hit was in the 'Plain' check box
;
	Entry PlainHit
PlainHit	PushWord #1	;control value
	PushZLong <PlainHndl ;control handle
	_SetCtlValue	;set the control

	ldx #(5*4)-4	;index to last Style control
ClearLoop	phx
	PushWord #0	;new control value
	lda <StyleHndls+2,x
	pha	;control handle
	lda <StyleHndls,x
	pha
	_SetCtlValue	;clear out all Style check boxes
	plx
	dex
	dex
	dex
	dex	;set index to next Style control
	bpl ClearLoop
	brl LoopTask

;-------------------------------------------------------------------------------
;
; The hit was in one of the Style check boxes (other than the 'Plain' check box)
;
	Entry StyleHit
StyleHit	PushWord #0
	PushZLong <PlainHndl
	_SetCtlValue	;clear out 'Plain' check box

*** added 4-Oct-91 DAL
*
* Are there any style boxes checked?  If not, re-check the plain box.
*
	ldx #4*4	;5 control handles to check
@checkThemBoxes	phx
	pha	;space for GetCtlValue
	lda <StyleHndls+2,x
	pha
	lda <StyleHndls,x
	pha
	_GetCtlValue
	pla	;get check-box state
	plx	;restore ctl id counter
	tay
	bne @oneIsChecked
	dex
	dex
	dex
	dex
	bpl @checkThemBoxes

; nothing checked --> check the Plain box
	pea 1	;new ctl value
	pei <PlainHndl+2
	pei <PlainHndl
	_SetCtlValue	;check the Plain box
@oneIsChecked
*** end 4-Oct-91
	brl LoopTask

;-------------------------------------------------------------------------------
;
; The hit was in the list of font family names
;
	ENTRY FontHit
FontHit	jsr GetNewSize	;get latest font size setting

	pha	;space for result
	Pushword #0	;start at member 0
	pushZLong <MDCtlHandle
	_NextMember2
	pla	; member number to select
	beq FontHitDone	;no member was selected
;
; Now that we have the item number, we must turn it into an address
;
	dec a	; subtract 1 (we base list off zero)
	ldy #2	; init our index...
	
	asl a	; multiply the member by 8
	asl a
	asl a
	clc	; and prepare to create a member pointer
	adc [<MDHandle]
	sta <MDPtr	; and save it as our pointer
	lda [<MDHandle],y
	adc #0
	sta <MDPtr+2
	
	ldy #6
	lda [<MDPtr],y	;get fam # of selected member
	sta <CurNum	;and save

	jsr BuildSizeList	;update the list of	font sizes to

FontHitDone	brl LoopTask	;correspond to this	fam #

;-------------------------------------------------------------------------------
;
; The hit was in the list of font sizes
;
	ENTRY SizeHit
SizeHit	pha	;space for result
	Pushword #0	;start at member 0
	pushZLong <SizeCtlHandle
	_NextMember2
	pla	; member number to select
	beq SizeHitDone	;no member was selected

; Now multiply the item number by 5
	dec A	; subtract 1 to offset for 0 starting list
	sta <temp1Ptr	; save the item number for a sec...
	asl a	; multiply it by 4
	asl a
	clc
	adc <temp1Ptr	; we now have (ItemNo-1)*5 in <A>
	clc
	adc #(SizeList-FMParams) ; offset into our data area
	clc	; now create the actual pointer
	adc <FMParamPtr
	sta <temp1Ptr	; after all that, this is a pointer to our item
	lda <FMParamPtr+2
	adc #0
	sta <temp1Ptr+2

	lda [<temp1Ptr]	;get size from selected member
	sta <CurSize	;and save

	jsr MakeString	;convert size into a string
	jsr SetSizeText	;set the 'Other Size' text to the string
	jsr SelectSizeText	;select the 'Other Size' text

	pha
	pha
	PushZLong <LineHndl	;handle to LineEdit	record
	_GetCtlTitle
	_LEUpdate	;redraw the text

SizeHitDone	brl LoopTask


*
* cfEventHook
*
* Input: event record pointer on stack
*
cfEventHook	phd
	tsc
	tcd
; event pointer is at 6

	lda [6]
	cmp #3
	beq @key
	cmp #5
	bne @notKey

@key	ldy #2
	lda [6],y
	and #$00ff
	cmp #9	;Tab is always OK
	beq @noProblem
	cmp #$0d	;Return is okay
	beq @noProblem
	cmp #$1b	;Escape is okay
	beq @noProblem

	pha
	pha	;space for GetCtlID
	pha
	pha	;space for FindTargetCtl
	_FindTargetCtl
	_GetCtlID
	pla
	plx

	cmp #MDListID
	beq @noProblem

	cmp #SizeListID
	bne @notSzList
	jsr AllowArrowsOnly
	bra @notKey

; they must be at the Edit line control
@notSzList	ldy #2
	lda [6],y
	and #$00ff
	cmp #$08	;left arrow
	beq @OKChar
	cmp #$15	;right arrow
	beq @OKChar
	cmp #$7F	;delete
	beq @OKChar
	cmp #$18	;control-X
	beq @OKChar
	cmp #$06	;control-F
	beq @OKChar
	cmp #$19	;control-Y
	beq @OKChar
	cmp #'0'
	bcc @BadChar
	cmp #'9'+1
	bcc @OKChar

@badChar	jsr SelectFamilyList

@noProblem
@okChar
@notKey	pld
	lda 2,s
	sta 2+4,s
	lda 1,s
	sta 1+4,s
	pla
	pla
	rtl

AllowArrowsOnly	ldy #2
	lda [6],y
	and #$00ff
	cmp #$000a
	beq @ok
	cmp #$000b
	bne SelectFamilyList
@ok	rts

SelectFamilyList	pha
	pha
	pea 0
	pea 0
	pushlong #MDListID
	_GetCtlHandleFromID
	_MakeThisCtlTarget
	rts

;-------------------------------------------------------------------------------
;
; Create the dialog window and then draw it
;
DrawDialog	pha
	pha	; room for result
	PushWord #$800E	; resource type to load
	ldx <ScreenMode	; get the current screen mode
	lda WindTemplates+2,x ; and pass the pointer to the template 
	pha
	lda WindTemplates,x ; and pass the pointer to the template 
	pha
	_GetRomResource
	PullLong <WindPtr
; lock the handle we got back...
	ldy #4
	lda [<WindPtr],y	; get the flags byte
	ora #$8000	; lock it
	sta [<WindPtr],y	; and put it back...
	
	ldy #2	; now dereference the handle
	lda [<WindPtr],y
	tax
	lda [<WindPtr]
	sta <WindPtr
	stx <WindPtr+2

	ldx #0
	phx
	phx	; room for result
	phx
	phx	; no title
	phx
	phx	; no refcon
	PushLong #DrawGuts	; address of draw routine
	phx
	phx	; DefProcPtr
	phx	; Reference descriptor
	pushzLong <WindPtr
	pea $800E	; use an rWindparam1 window
	_NewWindow2	; create the window and controls
	pla	;get ptr to window and save
	sta <WindPtr	;in zero page
	pla
	sta <WindPtr+2

	PushWord #$800E	; resource type to load
	ldx <ScreenMode	; get the current screen mode
	lda WindTemplates+2,x ; and pass the pointer to the template 
	pha
	lda WindTemplates,x ; and pass the pointer to the template 
	pha
	_ReleaseRomResource

	PushZLong <WindPtr
	_SetPort

;
; Now, update the contents of the lists for later use
;
; Get the MD list's ctrl handle so we can update it

	pha	; room for result
	pha
	pei <WindPtr+2
	pei <WindPtr
	PushLong #MDListID
	_GetCtlHandleFromID
	pla
	sta <MDCtlHandle
	pla
	sta <MDCtlHandle+2	; get the control handle
	
	ldx #0	; now set MD list to use the already created data
	phx	; negative 1...
	phx	; Pointer to draw routine
	pea 1	; leave same thing selected
	pei <MDHandle+2
	pei <MDHandle
	pea 1	; ref verb zero means pass by ptr, 1 means by handle
	ldy #(MDListSize-FMParams)
	lda [<FMParamPtr],y	; get number of list members
	pha
	pei <MDCtlHandle+2
	pei <MDCtlHandle
	_NewList2	; create the MD list

;make the correct font family name selected
	
	ldy #(MDListSize-FMParams)
	lda [<FMParamPtr],y	;*  # of list members
	sta <Count
SelLoop	ldy #6
	lda [<MDPtr],y	;get fam #
	cmp <CurNum	;current family?
	beq SelMember	;yes
	jsr IncMDPtr	;no - so check next	member
	dec <Count	;done with list?
	bne SelLoop	;no
	bra NoSel
SelMember
	ldy #(MDListSize-FMParams)
	lda [<FMParamPtr],y	;# of list members
	sec
	sbc <Count	; now select the proper member
	inc a
	pha
	pei <MDCtlHandle+2
	pei <MDCtlHandle
	_SelectMember2	; and select the current font
NoSel

; create the list of font sizes and select the current size

	pha	; room for result
	pha
	pei <WindPtr+2
	pei <WindPtr
	PushLong #SizeListID
	_GetCtlHandleFromID
	pla
	sta <SizeCtlHandle	; get the control handle
	pla
	sta <SizeCtlHandle+2
	
	lda #1
	ldy #(SizeListSize-FMParams)
	sta [<FMParamPtr],y	;init to 1 member

	jsr BuildSizeList	;create Size list, select current size

	pha	; room for result
	pha
	pei <WindPtr+2
	pei <WindPtr
	PushLong #SizeEditID
	_GetCtlHandleFromID
	pla
	sta <LineHndl	;save the handle on	zero page
	pla
	sta <LineHndl+2

	ldx #PlainSID
	stz <Index
; get all the style checkbox control handles
GetStylehndl
	phx
	
	pha	; room for result
	pha
	pei <WindPtr+2
	pei <WindPtr
	pea 0
	phx
	_GetCtlHandleFromID
	ldx <Index	; load the index offset...
	pla
	sta <CntlHndls,x	;save the handle on	zero page
	pla
	sta <CntlHndls+2,x
	lda <Index
	clc
	adc #4
	sta <Index
	plx
	inx
	cpx #LastSID	; is it the last ID?
	blt GetStyleHndl

; convert the current font's size to a string

	lda <CurSize	;get current font size
	jsr MakeString	;convert into a string
	jsr SetSizeText	;set the 'Other Size' text to the string
	jsr SelectSizeText	;select the 'Other Size' text

; get the style of the current font and set the Style check boxes accordingly

	lda <CurStyle	;get current style
	beq SetPlain	;branch if 'Plain'
	sta <TempStyle	;save current style
	lda #5
	sta <Count	;# of 'Style' check	boxes
	ldx #0	;start at first 'Style' check box

SetStyles	phx
	lsr <TempStyle	;check style bit
	bcc NotSet	;branch if not set
	PushWord #1	;new control value
	lda <StyleHndls+2,x	;handle to correct check box
	pha
	lda <StyleHndls,x
	pha
	_SetCtlValue	;set the check box
NotSet	plx
	inx
	inx
	inx
	inx	;index next check box
	dec <Count
	bne SetStyles
	brl ShowIt

SetPlain	PushWord #1
	PushZLong <PlainHndl
	_SetCtlValue	;set the 'Plain' check box

ShowIt	PushZLong <WindPtr	;ptr to window
	_ShowWindow	;draw the window
	rts

;------------------------------------------------------------------------------
;
; Create list of sizes available for the currently selected font family.
; Sort the list in numerical order.
; Select the current size if available and then draw the new list.
;
BuildSizeList

; create the list of font sizes

	jsr LockIDList
;
	lda #0
	ldy #(SizeListSize-FMParams)
	sta [<FMParamPtr],y
	sta <Count
;
	lda <FMParamPtr
	clc
	adc #(SizeList-FMParams)
	sta <temp1Ptr
;
*  added 1/14/88 - let's get the size list structure right - BHM  x6245
;
	lda <FMParamPtr+2
	adc #0
	sta <temp1Ptr+2
;
; in this ROMmable version, we'll use y for actual indexing, but x
; for index calculations
;
	ldx #0

BuildLoop	lda [<IDPtr]	;get fam #
	cmp <CurNum	;match?
	bne NextID	;no
;       ;** code added 2-25-87 CAE **
	ldy #8
	lda [<IDPtr],y	;get info word
	and #UnRealBit	;was this font scaled from another font?
	bne NextID	;yes - so don't list it
	ldy #2
;       ;** end addition **
	lda [<IDPtr],y
	and #$FF00	;get size
	xba
	txy
	sta [<temp1Ptr],y	;and store in list member
	inx
	inx
	inx
	inx
	inx	;set index to next Size list member

	ldy #(SizeListSize-FMParams)
	lda [<FMParamPtr],y
	inc a	;increment number of members in list
	sta [<FMParamPtr],y
	cmp #MaxSListCount	;is Size list full?
	beq BuildDone	;yes
NextID	jsr IncIDPtr	;point to next ID entry
	inc <Count
	lda <Count
	cmp <IDCount	;done with ID list?
	bne BuildLoop	;no

BuildDone	jsr UnLockIDList

; setup the record with the current info
	jsr doNewList
; sort the list
	PushPtr SortSizes	;address of routine	to sort members
	pei <SizeCtlHandle+2
	pei <SizeCtlHandle
	_SortList2

*** added 9-Mar-93 SS ***
* Now, the list was built without checking for duplicate sizes, which it can have if
* there are multiple styles in the same size.  So, shrink out the duplicates...
	
	pei <temp1Ptr+2	
	pei <temp1Ptr
	ldy #(SizeListSize-FMParams)
	lda [<FMParamPtr],y	;# of items in list
	pha
	lda #0	;init the indexes and counters to zero
	pha
	pha
	pha
	pha
	phd
	tsc
	tcd
dSrc	equ 3	;src index
dDest	equ 5	;dest index
dNewCount	equ 7	;new shrunk count
dCount	equ 9	;old unshrunk count
dTotal	equ 11	;gross total in unshrunk list
dPtr	equ 13	;ptr to list

	ldy <dSrc
@loop	lda [<dPtr],y	;src is always equal or greater than dest
	ldy <dDest
	cmp [<dPtr],y
	beq @same	;if dup, don't inc the dest index
	iny
	iny
	iny
	iny
	iny
	sty <dDest
	inc <dNewCount	;bump the new list counter for each non-dup
@same	sta [<dPtr],y	;write/overwrite to this dest spot
	ldy <dSrc	;always bump the src index
	iny
	iny
	iny
	iny
	iny
	sty <dSrc
	inc <dCount	
	lda <dCount
	cmp <dTotal	;done with the entire original list?
	bne @loop	; no

	lda <dNewCount	; yes, save the new count
	inc a
	
	pld
	plx
	plx
	plx
	plx
	plx
	plx
	plx
	
	ldy #(SizeListSize-FMParams)
	sta [<FMParamPtr],y	; set the size of the list

	jsr doNewList	;update the record with the new count
	
; draw the new list and select the current size if available
	ldy #(SizeListSize-FMParams)
	lda [<FMParamPtr],y	;# of items in list
	beq NoSel2	;branch if no items	in list
	sta <Count
;
;temp1Ptr still points to SizeList
;
	ldy #0	;index into Size list
SelLoop2	lda [<temp1Ptr],y	;get size from list	member
	cmp <CurSize	;same as current size?
	beq NoSel3	;yes - so select it
	iny	;no - so set index to next list member
	iny
	iny
	iny
	iny
	dec <Count	;done with list?
	bne SelLoop2	;no
*** 5-May-91 DAL -- if the desired size doesn't exist in the new family,
*** it was passing a very bogus value to SelectMember2, trashing memory!
*** Let's don't select anything in this case.
	lda #0
*** end of 5-May-91 DAL
	bra NoSel2

NoSel3	ldy #(SizeListSize-FMParams)
	lda [<FMParamPtr],y	;# of items in list
	sec
	sbc <Count
	inc a
NoSel2	pha
	pei <SizeCtlHandle+2
	pei <SizeCtlHandle
	_SelectMember2	;select correct member and redraw list
	
	rts

; create the list in the list control now
doNewList	ldx #0
	PushLong #DrawSize	; pointer to drawing routine
	pea 1	; no member selected
	lda <FMParamPtr
	clc
	adc #(SizeList-FMParams)
	tay
	lda <FMParamPtr+2
	adc #0
	pha
	phy	; reference to our size list
	phx	; reference verb (pass by ptr)
	ldy #(SizeListSize-FMParams)
	lda [<FMParamPtr],y	; get the size of the list
	pha
	pei <SizeCtlHandle+2
	pei <SizeCtlHandle
	_NewList2	; and create the new list
	rts
	

;-------------------------------------------------------------------------------
;
; Get new font size
;
GetNewSize	
	pha
	pha
	pha
	pha
	PushZLong <LineHndl	;handle to LineEdit	record
	_GetCtlTitle
	_LEGetTextHand	; get the text handle

	pla
	sta <TempHandle	;record
	pla
	sta <TempHandle+2

;convert 'Other Size' string to an integer
;if length of string is 0, the Dec2Int routine will return a result of 0

	pha	;space for result
	ldy #2
	lda [<TempHandle],y	;ptr to size string
	pha
	lda [<TempHandle]
	pha
;
; Now get the text length
	pha
	pha
	pha
	PushZLong <LineHndl	;handle to LineEdit	record
	_GetCtlTitle
	_LEGetTextLen

	PushWord #0	;unsigned conversion
	_Dec2Int	;convert size string into an integer
	pla	;get new size
	sta <CurSize	;and save it
	rts

;------------------------------------------------------------------------------

SetSizeText
; push pointer to string:
	lda <FMParamPtr
	clc
	adc #(TheStr-FMParams)
	tax	;temp storage
	lda <FMParamPtr+2
	adc #0
	pha
	phx

	ldy #(StrLen-FMParams)
	lda [<FMParamPtr],y	;length of string
	and #$00FF
	pha	;length of string
	
; Now we have to get the line edit control from the lineedit control
	pha
	pha
	PushZLong <LineHndl	;handle to LineEdit	record
	_GetCtlTitle
	
	_LESetText	;set the 'Other Size' text
	rts

;------------------------------------------------------------------------------

SelectSizeText	PushWord #0	;selstart
	PushWord #3	;selend

	pha
	pha
	PushZLong <LineHndl	;handle to LineEdit	record
	_GetCtlTitle
	
	_LESetSelect	;select the 'Other Size' text
	rts

;-------------------------------------------------------------------------------
;
; Select the 'Other Size' text, put up an alert and then return
;
DoAlert	jsr SelectSizeText	;select the 'Other Size' text

*** 17-Feb-91 DAL -- now uses ErrorWindow for font size alert

	pea $4009	;Bad Input Value (deferred until the dialog appears)
	_SysBeep2

	_InitCursor	;added 5-Feb-92 DAL

	pha	;space for result
;	pea 0
;	pha
;	pha	;substitutions
***
	lda #0
	pha	;substitution type
	pha
	pha	;substitution array
***
	pea $0098	;"Font size must be a number from 1 to 255."
	_ErrorWindow
	pla	;ignore result (button number)

	rts

TaskRec	ds.b 46	;extended task record (inline, not ROMmable)

	ENDP


****************************************************************
*
* BuildMDList
*
****************************************************************

	ENTRY BuildMDList
BuildMDList	PROC
;
****  Changed for ROMming purposes - BHM  x6245  12/10/87
****  many changes marked by a "*" for ease of debugging
;

Count	equ Temp
Mult2	equ Count+2
BaseOnly	equ Mult2+2

;Create list of pointers to font famnames. Alphabetize the list.

	lda 11,s	;get FamSpecBits
	sta <BaseOnly	;and save for later
	pha	;space for result
	pha	;FamSpecBits
	jsl xCountFams	;count # of families (all or base only
	pla	;depending on FamSpecBits)
	sta <Count
	asl a
	asl a
	asl a	;mult # of fams by 8
	jsr GetHandle	;allocate space for	MD list
	bcc GotMem
	rts	;return the error

GotMem	sta <MDHandle	;save handle to MD list
	stx <MDHandle+2

*

	lda <Count
	ldy #(MDListSize-FMParams)
	sta [<FMParamPtr],y	;*  # of items in list

	jsr LockNameList
	jsr LockFamList
	jsr LockMDList

	lda <MDPtr	;get ptr to MD list
	ldy #(MDListPtr-FMParams)
	sta [<FMParamPtr],y	;*and store in the MD list record
	lda <MDPtr+2
	iny
	iny
	sta [<FMParamPtr],y

FamLoop	ldy #4
	lda <BaseOnly	;allow only base families?
	beq Cont	;no - so skip this part
	lda [<FamPtr],y	;get info word
	and #NotBaseBit	;is this a base family?
	bne NextFam	;no - so skip it

Cont	lda #0
	sta [<MDPtr],y	;clear flags in MD list entry

	dey
	dey
	clc
	lda <NamePtr	;get ptr to start of Name list
	adc [<FamPtr],y	;add offset to Name	list entry
	sta [<MDPtr]	;to create a ptr to	the Name list entry
	lda <NamePtr+2
	adc #0
	sta [<MDPtr],y	;store ptr to famname in MD list entry

	lda [<FamPtr]	;get fam #
	ldy #6
	sta [<MDPtr],y	;and store in MD list entry
	jsr IncMDPtr	;point to next MD list entry
	dec <Count	;done with all families?
	beq Done	;yes

NextFam	jsr IncFamPtr	;check next family
	bra FamLoop

Done
; Sort the MD list entries so that they point
; to the famnames in alphabetical order
***	PushLong #0
	pushlong #1	;case-insensitive! (24-Feb-91 DAL)
*(push pointer to MDListRect)
	ldx <FMParamPtr+2	;high word
	lda <FMParamPtr
	clc
	adc #(MDListRect-FMParams)
	bcc NoCarry
	inx
NoCarry	phx
	pha
;
	_SortList

	jsr UnLockFamList
	jsr UnLockMDList
;
	clc
	rts

xCountFams	tdc
	jsl CountFamilies
	rtl

	ENDP



****************************************************************
*
* DrawGuts
*
****************************************************************
**  Changed for ROMming purposes - BHM	x6245  1/11/88

	ENTRY DrawGuts
DrawGuts	PROC

;This routine is called by the Window Manager in order to draw the
;contents of the ChooseFont window.

*** 17-Feb-91 DAL.  I really don't see what all this crap is for,
*** and it seems to work fine if I just do a DrawControls on the
*** current port (this is called after BeginUpdate anyway, so we are
*** guaranteed that the port is set to our window).

	pha
	pha
	_GetPort
	_DrawControls
	rtl

	ENDP



****************************************************************
*
* DrawSize
*
****************************************************************
;
** Changed for ROMming purposes - BHM  x6245  1/11/87
;
	ENTRY DrawSize
DrawSize	PROC

;This routine is called by the List Manager whenever it needs to draw
;a member of the 'Size' list in the ChooseFont window. Upon	entry to this
;routine, the stack	contains the following -
;
;  Space for result	    4 bytes
;  Pointer to member's enclosing rect   4 bytes
;  Pointer to member's list entry       4 bytes
;  Handle to the list control   4 bytes
;  RTL      3 bytes

	jsl Doit	;force another return address on stack
	rtl	;return to the List	Manager

Doit	phd	;save direct register
;get FM's 0-page
	pha	; space for result
	pha
	PushWord #0	; SystemTool flag
	PushWord #FMTSNum	; our tool number
	_GetWAP
	pld	;low word - FM's 0-pagese it
	pla	;high word - we don't use it
;
;dereference but do	not lock FMParams:
	lda [<FMParamHandle]
	sta <FMParamPtr
	ldy #2
	lda [<FMParamHandle],y
	sta <FMParamPtr+2
;
	lda 13,s	;get ptr to member's list entry
	sta <temp1Ptr
	lda 15,s
	sta <temp1Ptr+2
	lda [<temp1Ptr]
;
	jsr MakeString	;convert size into a string
;return ptr to string:
	lda <FMParamPtr
	clc
	adc #(StrLen-FMParams)
	sta 21,s
	lda <FMParamPtr+2
	adc #0
	sta 23,s

	ldy #12	;param size
	jml endcall	;use standard end call to strip params
	ENDP



****************************************************************
*
* SortSizes
*
****************************************************************

	ENTRY SortSizes
SortSizes	PROC

;This routine is called by the List Manager routine SortList in order
;to sort the 'Size'	list in numerical order. Upon entry to this routine,
;the stack contains	the following -
;
;  Pointer to member B's list entry     4 bytes
;  Pointer to member A's list entry     4 bytes
;  RTL      3 bytes

	jsl Doit	;force another return address on stack
	rtl	;return to the List	Manager

Doit	phd	;save direct register
	tsc
	tcd	;set direct register to point to stack
	ldy #8	;(only needed once 8-Mar-93 SS)
*** 5-May-91 DAL -- make sure the carry gets set when we leave
	ldx #1
*** end 5-May-91 DAL
	lda [9]	;get size from member A's list entry
	cmp [13]	;compare to size in	member B's entry
	bcs ABigger	;branch if member A	is bigger
;	ldy #8	;member B is bigger	so return
	jml endcall	;with carry clear

ABigger
;	ldy #8	;member A is bigger	so return
	jml errout	;with carry set
	ENDP



****************************************************************
*
* MakeString
*
****************************************************************
*
**  changed for ROMming purposes - BHM	x6245  1/11/88
**  due to changes in DrawSize, we now have the right 0-page.
	ENTRY MakeString
MakeString	PROC

;This routine is called by ChooseFont and DrawSize.
;The calling routine has set A to be the 'size' which is to	be converted
;into a string.


;convert size into a string
	pha	;value to be converted to string
;
;push pointer to string
	lda <FMParamPtr
	clc
	adc #(TheStr-FMParams)
	tax	;temporary storage
	lda <FMParamPtr+2
	adc #0
	pha
	sta <temp1Ptr+2	;and save for later
	phx
	stx <temp1Ptr
;
	PushWord #3	;string length
	PushWord #0	;unsigned conversion
	_Int2Dec

;remove leading blanks from size string

	ldx #3	;length, with blanks
RemoveBlanks		;
	lda [<temp1Ptr]
	and #$00FF
	cmp #$20
	bne Done
	ldy #1
	lda [<temp1Ptr],y
	dey
	sta [<temp1Ptr],y
	dex
	bra RemoveBlanks
;
Done	stx <temp2Ptr	;actual length, temp storage
	lda [<temp1Ptr]	;first 2 characters	in string
	and #$00FF	;first 1
	xba	;move it up a byte
	ora <temp2Ptr	;and merge string length in
;
	ldy #(StrLen-FMParams) ;put 'em back
	sta [<FMParamPtr],y
;
	rts
	ENDP


;                COPY stdstuff
****  ProDOS calls changed - 11/4/87
;the ProDOS calls now go through the stack-based entry point, and
;are no longer self-modifying.  Also, except for GetDirEntry, they
;all share parameter block space on 0-page.  Note that the refernce
;number - OpenRef, ReadRef, etc. - are actually all the same location.
;In particular, after an Open call, the new ref number is in place for
;a read call. - BHM	 x6245
;
;These ProDOS calls	are all the same except for the call number, so
;we may combine them in the future.  Pre-computing and saving the
;ProDOSParams address would also save a	little time and space.
;(Very little.)
;
****************************************************************
*
* CreateFile
*
****************************************************************

	ENTRY CreateFile
CreateFile	PROC

	pea 0	;high word of parameter block address

	tdc
	clc
	adc #ProDOSParams	;low word
	pha

	pea CreateCall	;call number

	jsl StackProDOS	;ProDOS/16 stack-based entry vector

	tax	;error code (if any)
	rts
	ENDP

****************************************************************
*
* DestroyFile
*
****************************************************************
DestroyFile	PROC Export

	pea 0	;high word of parameter block address

	tdc
	clc
	adc #ProDOSParams	;low word
	pha

	pea DestroyCall	;call number

	jsl StackProDOS	;ProDOS/16 stack-based entry vector

	tax	;error code (if any)
	rts
	ENDP

****************************************************************
*
* OpenFile
*
****************************************************************

	ENTRY OpenFile
OpenFile	PROC

	pea 0	;high word of parameter block address

	tdc
	clc
	adc #ProDOSParams	;low word
	pha

	pea OpenCall	;call number

	jsl StackProDOS	;ProDOS/16 stack-based entry vector

	tax	;error code (if any)
	rts
	ENDP

****************************************************************
*
* ReadFile
*
****************************************************************

	ENTRY ReadFile
ReadFile	PROC

	pea 0	;high word of parameter block address

	tdc
	clc
	adc #ProDOSParams	;low word
	pha

	pea ReadCall	;call number

	jsl StackProDOS	;ProDOS/16 stack-based entry vector

	tax	;error code (if any)
	rts
	ENDP

****************************************************************
*
* WriteFile
*
****************************************************************

	ENTRY WriteFile
WriteFile	PROC

	pea 0	;high word of parameter block address

	tdc
	clc
	adc #ProDOSParams	;low word
	pha

	pea WriteCall	;call number

	jsl StackProDOS	;ProDOS/16 stack-based entry vector

	tax	;error code (if any)
	rts
	ENDP

****************************************************************
*
* CloseFile
*
****************************************************************

	ENTRY CloseFile
CloseFile	PROC

	pea 0	;high word of parameter block address

	tdc
	clc
	adc #ProDOSParams	;low word
	pha

	pea CloseCall	;call number

	jsl StackProDOS	;ProDOS/16 stack-based entry vector

	tax	;error code (if any)
	rts
	ENDP

****************************************************************
*
* SetMark
*
****************************************************************

	ENTRY SetMark
SetMark	PROC

	pea 0	;high word of parameter block address

	tdc
	clc
	adc #ProDOSParams	;low word
	pha

	pea SetMarkCall	;call number

	jsl StackProDOS	;ProDOS/16 stack-based entry vector

	tax	;error code (if any)
	rts
	ENDP

****************************************************************
*
* GetEOF
*
****************************************************************

	ENTRY GetEOF
GetEOF	PROC

	pea 0	;high word of parameter block address

	tdc
	clc
	adc #ProDOSParams	;low word
	pha

	pea GetEOFCall	;call number

	jsl StackProDOS	;ProDOS/16 stack-based entry vector

	tax	;error code (if any)
	rts
	ENDP
;
****************************************************************
*
* SetEOF
*
****************************************************************

	ENTRY SetEOF
SetEOF	PROC

	pea 0	;high word of parameter block address

	tdc
	clc
	adc #ProDOSParams	;low word
	pha

	pea SetEOFCall	;call number

	jsl StackProDOS	;ProDOS/16 stack-based entry vector

	tax	;error code (if any)
	rts
	ENDP


****************************************************************
*
* GetDirEntry
*
****************************************************************

	ENTRY GetDirEntry
GetDirEntry	PROC
;
;GetDirEntry is a little different because its parameter block is in
;the FMParams RAM block, rather than on	0-page
;
	PushZLong <FMParamPtr
	pea GDECall
	jsl $E100B0
	rts
	ENDP
;


;
****  end of changed ProDOS calls - BHM	 x6245  11/4/87
;


****************************************************************
*
* GetHandle
*
* GetHandleXA, added 6-Jan-91 DAL.  Input size = XA, not just A.
*
****************************************************************

	ENTRY GetHandle
GetHandle	PROC
	ldx #0

	export GetHandleXA	;6-Jan-91 DAL
GetHandleXA		;6-Jan-91 DAL
;
; Call the Memory Manager to get a block of memory.  The calling routine has put
; the low word of the requested size in A.  The handle is returned in A and X.
;
	ldy #0
	phy	;space for result
	phy
	phx	;hi word of size (was PHY, 6-Jan-91 DAL)
	pha	;lo word of size (set by calling proc)
	PushZWord <ProgID	;ID
	phy	;unpurgeable
	phy	;loc not important
	phy
	_NewHandle	;allocate space
	bcc OK
	tax	;error code
	pla	;clean up
	pla
	rts

OK	pla	;pull handle off stack
	plx
	rts	;and return it
	ENDP



****************************************************************
*
* CheckHandle
*
****************************************************************

	ENTRY CheckHandle
CheckHandle	PROC

;Check to see if the font handle in the	ID list entry pointed to by IDPtr
;is a valid handle.	 Also, store the handle in FontHandle for future use
;by the calling routine.

	ldy #10
	lda [<IDPtr],y	;get handle to font	and save for
	sta <FontHandle	;future use by the calling proc
	iny
	iny
	lda [<IDPtr],y
	sta <FontHandle+2
	ora <FontHandle	;return 'not equal'	if handle is valid
	rts	;else return 'equal'
	ENDP



****************************************************************
*
* CheckNil
*
****************************************************************

	ENTRY CheckNil
CheckNil	PROC

;Check to see if the handle contained in FontHandle is nil.

	lda [<FontHandle]
	ldy #2
	ora [<FontHandle],y	;return 'not equal'	if handle is not
	rts	;nil, else return 'equal'
	ENDP



****************************************************************
*
* CheckFontID
*
****************************************************************

	ENTRY CheckFontID
CheckFontID	PROC

;Y contains fam # to check.  A contains	style/size to check.
;If fam # = 0, convert it to system font's fam #.
;If fam # and style/size = 0, convert both to system font ID.
;If fam # = $FFFF, return error.
;If fam # <> 0 and size = 0, return error.

	cpy #Illegal	;illegal fam #?
	bne NumOK	;no
	ldx #FamNumErr	;yes - so return error
	sec
	rts

NumOK	cpy #0	;is fam # 0?
	bne NotZero	;no
	ldy <SysFontID	;convert fam # of 0	to system fam #
	cmp #0	;is style/size 0?
	bne NotZero	;no
	lda <SysFontID+2	;convert to system style/size
	clc
	rts

NotZero	pha	;save style/size
	and #$FF00	;get size
	bne SizeOK	;OK if not 0
	pla	;clean up
	ldx #SizeErr	;return error
	sec
	rts

SizeOK	pla	;retrieve style/size
	clc
	rts
	ENDP



****************************************************************
*
* CheckSysFont
*
****************************************************************

	ENTRY CheckSysFont
CheckSysFont	PROC

;Check to see if the ID list entry pointed to by IDPtr is the system font.

	lda [<IDPtr]
	cmp <SysFontID	;does fam # match?
	bne Ret	;no - so return 'not equal'
	ldy #2
	lda [<IDPtr],y
	cmp <SysFontID+2	;does style/size match?
Ret	rts	;return 'equal' if fam # and size/style
	ENDP



****************************************************************
*
* CopyFamName
*
****************************************************************

	ENTRY CopyFamName
CopyFamName	PROC

;Copy the font family name pointed to by TempPtr into the Name list entry
;pointed to by NamePtr.

	lda [<TempPtr]
	and #$00FF	;get length of name
	cmp #MaxNameLen+1	;is length OK ?
	bcc OK	;yes
	lda #MaxNameLen	;no, it's too long - so truncate name
OK	pha	;save new length for later
	tay
	dey
Loop	lda [<TempPtr],y	;copy name into famname list
	sta [<NamePtr],y
	dey
	beq Loop
	dey
	bpl Loop

	lda [<NamePtr]	;get first word of name
	and #$FF00	;mask off length byte
	ora 1,s	;OR with new length	byte
	sta [<NamePtr]	;and save
	pla	;clean up
	rts
	ENDP



****************************************************************
*
* CopyFileName
*
****************************************************************

	ENTRY CopyFileName
CopyFileName	PROC
****  changed to use FMParams block - BHM  x6245  11/12/87
;
;Copy the file name	pointed to by FilePtr into the data string FileName.
;Adjust the string length of the complete pathname accordingly.

;
	lda <FMParamPtr
	clc
	adc #(FileName-FMParams)
	sta <tempPtr	;point to filename space
	lda <FMParamPtr+2
	adc #0
	sta <tempPtr+2


	lda [<FilePtr]
	and #$00FF	;get length of name
	tay
	clc
	adc #DirNameLen+1	;add length of '*:SYSTEM:FONTS:'
	pha	;save for later
	dey
Loop		;
	lda [<FilePtr],y	;copy name into pathname string
	sta [<tempPtr],y
	dey
	dey
	bpl Loop

	ldy #(FileName-FMParams)
	lda [<FMParamPtr],y
	and #$FF00	;get first byte of filename and make
***	ora #$2F	;sure it's a '/'
	ora #$3a	;sure it's a ':'
	sta [<FMParamPtr],y

	ldy #(DirName-FMParams)
	lda [<FMParamPtr],y	;get first word of pathname
	and #$FF00	;mask off length byte
	ora 1,s	;OR with new length	byte
	sta [<FMParamPtr],y	;and save
	pla	;clean up
	rts
	ENDP



****************************************************************
*
* MakeCurrent
*
****************************************************************

	ENTRY MakeCurrent
MakeCurrent	PROC

;Make the font pointed to by FontPtr the current font.  IDPtr must point
;to the font's ID list entry.

;;; This is bad here.  Put it after InflateTextBuffer. 2-Dec-91 DAL
;;;	PushZLong <FontHandle
;;;	_SetFont	;make font the current font

;grow the QuickDraw	text buffer if needed

	ldy #8
	lda [<FontPtr],y	;get version # of font
	cmp #$0100	;version 1.0 ?
	beq RomFont	;yes - so handle differently
	ldy #10
	lda [<FontPtr],y	;get 'fbrExtent' field
	bra PushWidth

RomFont	lda <RomFbrExtent	;get 'fbrExtent' for ROM font

PushWidth	pha
	clc
	lda [<FontPtr]	;get 'OffsetToMF' field (in words)
	asl a	;convert to bytes
	adc #14
	tay
	lda [<FontPtr],y	;get 'fRectHeight' field
	pha
	_InflateTextBuffer	;grow QuickDraw text buffer if needed

	bcs @barf_SetSysFont ;added 2-Dec-91 DAL

;set fields in the QuickDraw GrafPort

*** added 2-Dec-91 DAL -- set font now that it's safe!
	PushZLong <FontHandle
	_SetFont	;make font the current font
*** end 2-Dec-91

	ldy #2	;get font ID
	lda [<IDPtr],y
	pha
	lda [<IDPtr]
	pha
	_SetFontID	;set the fontID field in the grafport

	ldy #2
	lda [<IDPtr],y	;get font style
	and #$00FF
	pha
	_SetTextFace	;set text face field in the grafport

	ldy #2
	lda [<IDPtr],y	;get font size
	and #$FF00
	xba
	pha
	_SetTextSize	;set text size field in the grafport
	
	rts



@barf_SetSysFont		;added set system stuff instead of rts
		;16-Dec-91 BAK
	pha	;save error in A/carry
	php
	
	pha
	pha
	_GetSysFont	;get QD's idea of current system font
	_SetFont	;set font handle in the current grafport
	
	pushzlong <SysFontID
	_SetFontID	;set font ID in the current grafport
	
	lda <SysFontID+3
	and #$00FF
	pha
	_SetTextSize	;set font size in the current grafport
	
	lda <SysFontID+2
	and #$00FF
	pha
	_SetTextFace	;set font style in the current grafport
	
	plp	;restore error in A/carry
	pla
		
	rts


	ENDP



****************************************************************
*
* IncFilePtr
*
****************************************************************

	ENTRY IncFilePtr
IncFilePtr	PROC

;Increment FilePtr to point to the next	entry in the File list.

	lda [<FilePtr]	;get filename length
;;;	and #$000F	;mask off all but length nibble
	and #$00ff	;length BYTE (25-Apr-91 DAL)
	inc a	;add 1 for the length byte itself
	clc
	adc <FilePtr	;add to filename ptr
	sta <FilePtr	;to create ptr to next filename in list
	lda <FilePtr+2
	adc #0
	sta <FilePtr+2
	rts
	ENDP



****************************************************************
*
* IncIDPtr
*
****************************************************************

	ENTRY IncIDPtr
IncIDPtr	PROC

;Increment IDPtr to	point to the next entry in the ID list.

	clc
	lda <IDPtr
	adc #14
	sta <IDPtr
	lda <IDPtr+2
	adc #0
	sta <IDPtr+2
	rts
	ENDP



****************************************************************
*
* IncFamPtr
*
****************************************************************

	ENTRY IncFamPtr
IncFamPtr	PROC

;Increment FamPtr to point to the next entry in the Fam list.

	clc
	lda <FamPtr
	adc #6
	sta <FamPtr
	lda <FamPtr+2
	adc #0
	sta <FamPtr+2
	rts
	ENDP



****************************************************************
*
* IncNamePtr
*
****************************************************************

	ENTRY IncNamePtr
IncNamePtr	PROC

;Increment NamePtr to point to the next	entry in the Name list.

	lda [<NamePtr]	;get famname length
	and #$00FF
	inc a	;add 1 for the length byte itself
	clc
	adc <NamePtr	;add to famname ptr
	sta <NamePtr	;to create ptr to next famname in list
	lda <NamePtr+2
	adc #0
	sta <NamePtr+2
	rts
	ENDP



****************************************************************
*
* IncMDPtr
*
****************************************************************

	ENTRY IncMDPtr
IncMDPtr	PROC

;Increment MDPtr to	point to the next entry in the MD list.

	clc
	lda <MDPtr
	adc #8
	sta <MDPtr
	lda <MDPtr+2
	adc #0
	sta <MDPtr+2
	rts
	ENDP



****************************************************************
*
* IncItemPtr
*
****************************************************************

	ENTRY IncItemPtr
IncItemPtr	PROC

;Increment ItemPtr to point to the next	entry in the Item list.

	clc
	lda <ItemPtr
	adc #2
	sta <ItemPtr
	lda <ItemPtr+2
	adc #0
	sta <ItemPtr+2
	rts
	ENDP



****************************************************************
*
* LockFileList
*
****************************************************************

	ENTRY LockFileList
LockFileList	PROC
	ldx #4
	brl Lock
	ENDP



****************************************************************
*
* UnLockFileList
*
****************************************************************

	ENTRY UnLockFileList
UnLockFileList	PROC
	ldx #4
	brl UnLock
	ENDP



****************************************************************
*
* LockIDList
*
****************************************************************

	ENTRY LockIDList
LockIDList	PROC
	ldx #8
	brl Lock
	ENDP



****************************************************************
*
* UnLockIDList
*
****************************************************************

	ENTRY UnLockIDList
UnLockIDList	PROC
	ldx #8
	brl UnLock
	ENDP



****************************************************************
*
* LockFamList
*
****************************************************************

	ENTRY LockFamList
LockFamList	PROC
	ldx #12
	brl Lock
	ENDP



****************************************************************
*
* UnLockFamList
*
****************************************************************

	ENTRY UnLockFamList
UnLockFamList	PROC
	ldx #12
	brl UnLock
	ENDP



****************************************************************
*
* LockNameList
*
****************************************************************

	ENTRY LockNameList
LockNameList	PROC
	ldx #16
	brl Lock
	ENDP



****************************************************************
*
* UnLockNameList
*
****************************************************************

	ENTRY UnLockNameList
UnLockNameList	PROC

	lda <MenuMade	;don't unlock NameList if it's been
	beq OK	;used in a menu
	rts

OK	ldx #16
	brl UnLock
	ENDP



****************************************************************
*
* LockFont
*
****************************************************************

	ENTRY LockFont
LockFont	PROC
	ldx #20
	brl Lock
	ENDP



****************************************************************
*
* UnLockFont
*
****************************************************************

	ENTRY UnLockFont
UnLockFont	PROC
	ldx #20
	brl UnLock
	ENDP



****************************************************************
*
* LockBlock
*
****************************************************************

	ENTRY LockBlock
LockBlock	PROC
	ldx #24
	brl Lock
	ENDP



****************************************************************
*
* UnLockBlock
*
****************************************************************

	ENTRY UnLockBlock
UnLockBlock	PROC
	ldx #24
	brl UnLock
	ENDP



****************************************************************
*
* LockMDList
*
****************************************************************

	ENTRY LockMDList
LockMDList	PROC
	ldx #28
	brl Lock
	ENDP



****************************************************************
*
* UnLockMDList
*
****************************************************************

	ENTRY UnLockMDList
UnLockMDList	PROC
	ldx #28
	brl UnLock
	ENDP



****************************************************************
*
* LockItemList
*
****************************************************************

	ENTRY LockItemList
LockItemList	PROC
	ldx #32
	brl Lock
	ENDP



****************************************************************
*
* UnLockItemList
*
****************************************************************

	ENTRY UnLockItemList
UnLockItemList	PROC
	ldx #32
	brl UnLock
	ENDP


****************************************************************
*
* LockFMParams
*
****************************************************************

	ENTRY LockFMParams
LockFMParams	PROC
	ldx #36
	brl Lock
	ENDP



****************************************************************
*
* UnLockFMParams
*
****************************************************************

	ENTRY UnLockFMParams
UnLockFMParams	PROC
	ldx #36
	brl UnLock
	ENDP




****************************************************************
*
* Lock
*
****************************************************************

	ENTRY Lock
Lock	PROC

	lda <TempHandle,x	;copy correct handle into TempHandle
	sta <TempHandle
	lda <TempHandle+2,x
	sta <TempHandle+2

	ldy #4
	lda [<TempHandle],y
	ora #$8000	;set locked bit in attribute word
	sta [<TempHandle],y

	lda [<TempHandle]	;dereference handle	into correct ptr
	sta <TempPtr,x
	ldy #2
	lda [<TempHandle],y
	sta <TempPtr+2,x
	rts
	ENDP



****************************************************************
*
* UnLock
*
****************************************************************

	ENTRY UnLock
UnLock	PROC

	lda <TempHandle,x	;copy correct handle into TempHandle
	sta <TempHandle
	lda <TempHandle+2,x
	sta <TempHandle+2

	ldy #4
	lda [<TempHandle],y
	and #$7FFF	;clear locked bit in attribute word
	sta [<TempHandle],y
	rts
	ENDP



****************************************************************
*
* oStdEnd0
*
****************************************************************

	ENTRY oStdEnd0
oStdEnd0	PROC
	ldy #0	;# bytes of param to strip
	jml oendcall
	ENDP



****************************************************************
*
* StdEnd4
*
****************************************************************

	ENTRY StdEnd4
StdEnd4	PROC
	ldy #4	;# bytes of param to strip
	jml endcall
	ENDP



****************************************************************
*
* StdErr4
*
****************************************************************

	ENTRY StdErr4
StdErr4	PROC
	ldy #4	;# bytes of param to strip
	jml errout
	ENDP



****************************************************************
*
* StdEnd6
*
****************************************************************

	ENTRY StdEnd6
StdEnd6	PROC
	ldy #6	;# bytes of param to strip
	jml endcall
	ENDP



****************************************************************
*
* StdErr6
*
****************************************************************

	ENTRY StdErr6
StdErr6	PROC
	ldy #6	;# bytes of param to strip
	jml errout
	ENDP

;                COPY scalestuff
;
******************************************************************************
*			                 *
*    subroutine AddScaledFont		                 *
*			                 *
*              Started 2/10/87		                 *
*              Bennet Marks  x6245		                 *
*			                 *
*  This subroutine takes the newly-scaled font from ScaleFont, enters it     *
*  into the Font Manager's lists, makes it unpurgeable, and makes it         *
*  current.			                 *
*			                 *
*  The code is adapted from AddFontVar.		                 *
*			                 *
******************************************************************************
;
***************************************
*	                  *
*  9/18/87  10:30 am                  *
*	                  *
***************************************
;
	ENTRY AddScaledFont
AddScaledFont	PROC
	INCLUDE 'SomeFMEqus' ;added 2/12/87 - BHM
;
	sta <FontHandle
	stx <FontHandle+2
;
	jsr LockFont
	
; Add call to routine here that will find any old entries with this ID and type/size
; dispose of the handle in it and set IDPtr to the newly empty entry. This way
; it can be reused
	jsr FindOldEntry	; find first entry with this type/ID
	bcc IDSetup	; if found use it...
**  Add for now - experimental:
	jsr UnlockIDList

	lda <IDListSize	;get current size of ID list
	clc
	adc #14	;add size of new entry
	sta <NewIDSize	;and save

	PushWord #0	;hi word of size
	pha	;lo word of size
	PushZLong <IDHandle	;handle to list
	_SetHandleSize	;grow the list
	bcc OK
	pha	;save error code
	jsr UnLockFont	;clean up
	jsr LockIDList	;exper.
	pla	;retrieve error code
	plx	;pull of font stat bits
	plx	;pull off fam name offset
	sec
	rtl
;
OK	jsr LockIDList

	clc
	lda <IDPtr	;create ptr to new ID entry
	adc <IDListSize
	sta <IDPtr
	lda <IDPtr+2
	adc #0
	sta <IDPtr+2
;
; Create alternate entry point for case when the idptr is going to be an existing entry
; 6/12/89 Mensch
IDSetup
	ldy #2
	lda [<fontPtr],y	;fam num
	sta [<IDPtr]

	ldy #4
	lda [<FontPtr],y	;get font's style word
	and #$00FF	;mask off hi byte
	pha	;save on stack
	iny
	iny
	lda [<FontPtr],y	;get font's size word
	and #$00FF	;mask off hi byte
	xba	;swap bytes
	ora 1,s	;OR with style word
	ply	;clean up

	ldy #2
	sta [<IDPtr],y	;save style/size word in new ID entry
;
**  Let's wipe out all references to BestPtr
**  (exper.)
;
	lda <NewLevel	;temp storage for font stat bits
	and #(ApFamBit+ApVarBit) ;inherit these	two bits
	ora #(MemBit+UnrealBit+NotDiskBit)
;(those 3 are set to 1's; the leftovers are 0)
	ldy #8
	sta [<IDPtr],y
;
	lda <MatchLevel	;temp. storage for offset to fam name
	ldy #4
	sta [<IDPtr],y






	lda #0
	ldy #6
	sta [<IDPtr],y	;set filename offset to 0

;
;
	lda <FontHandle	;get font handle
	ldy #10
	sta [<IDPtr],y	;and save in new ID	entry
	lda <FontHandle+2
	iny
	iny
	sta [<IDPtr],y


	lda <NewIDSize	;get new size of ID	list
	sta <IDListSize	;and save
	inc <IDCount	;inc # of ID entries

	Pushword #0
	PushZLong <FontHandle
	_SetPurge	;make font unpurgeable

	jsr MakeCurrent	;make new font the current font
	
 	pha	;12/16/91 BAK added error propagation
	php	;12/16/91 BAK

	jsr UnLockFont
	;clc	;signal no error
	
	plp	;12/16/91 BAK
	pla	;12/16/91 BAK
	
	rtl
	
;
; Routine to find the old entry and set the IDPtr to it...
FindOldEntry
thisFam	equ 1
thisStyle	equ thisFam+2

	ldy #4
	lda [<FontPtr],y	;get font's style word
	and #$00FF	;mask off hi byte
	pha	;save on stack
	iny
	iny
	lda [<FontPtr],y	;get font's size word
	and #$00FF	;mask off hi byte
	xba	;swap bytes
	ora 1,s	;OR with style word
	sta 1,s	;save style/size on the stack...

	ldy #2
	lda [<fontPtr],y	; fam num
	pha	; save family number on the stack

	jsr LockIDList
	
	ldx #0	;# of ID entries processed
	ldy #2

Loop	lda [<IDPtr]	;get fam #
	cmp thisFam,s	;match?
	bne NextID	;no
	lda [<IDPtr],y	;get style/size
	cmp thisStyle,s	;match?
	beq GotID	;yes
NextID	jsr IncIDPtr
	inx
	cpx <IDCount	;at end of list?
	bne Loop	;no

NotFound
	pla	; pull off the crap....
	pla
	sec	; set carry to indicate not found
	rts

GotID
	ldy #10	; be sure to dispose the handle
	lda [<IDPtr],y
	tax
	ldy #12
	lda [<IDPtr],y
	tay
	jsr DisposeTheHandle	; throw the old font away...
	
	pla	; pull off the crap
	pla
	clc	; send we found it message back...
	rts

	ENDP
	
	
	
*******************************************************************************
*
* Dispose a handle
*
* Input: X,Y = handle
*
* Output: none
*
*******************************************************************************
DisposeTheHandle	PROC

	phy
	phx
	_DisposeHandle
	rts

	ENDP

	END

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/FontMgr/makefile b/IIGS.601.SRC/GSToolbox/FontMgr/makefile
new file mode 100644
index 0000000..3d68221
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/FontMgr/makefile
@@ -0,0 +1 @@
+### Dependencies for tool027 (font manager)
tool027						Ä	fm.ASM.OBJ	 		¶
								common.asm.obj 		¶
								scale.asm.obj 	
	linkiigs    fm.asm.obj common.asm.obj scale.asm.obj ¶
				-o tool027 -t TOL
	if {AutoDuplicate} == 1
		DuplicateIIGS -y -mac Tool027 :
	End


### Dependencies for components
fm.asm.obj 					Ä 		fm.asm
	ASMIIGS fm.asm
common.asm.obj 				Ä 		common.asm
	ASMIIGS common.asm
scale.asm.obj 				Ä 		scale.asm
	ASMIIGS scale.asm	
	
	
fm.loader					Ä		fm.loader.asm.obj
	linkiigs fm.loader.asm.obj -o fm.loader

fm.loader.asm.obj			Ä		fm.loader.asm
	asmiigs fm.loader.asm
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/FontMgr/scale.asm b/IIGS.601.SRC/GSToolbox/FontMgr/scale.asm
new file mode 100644
index 0000000..4ee71f0
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/FontMgr/scale.asm
@@ -0,0 +1 @@
+	title ' Scaling'
**********************************************************************
*			   
*	SCALING		   
*			   
**********************************************************************


**********************************************************************
*			   
*	Copyright (C) 1987-1988	   
*	All Rights Reserved		   
*	Apple Computer, Inc.	   
*			   
**********************************************************************

**********************************************************************
*
* This file contains the code that is used to derive a font of
* a given size.
*
* NOTES FOR SCALING:
*
* (1)  strikePtr is the base address of the source bitmap
* (2)  rowBytes is	its width in bytes (always even)
* (3)  temp is the	starting column of the source rectangle
*      (where the first column is numbered 0)
* (4)  imWidth is the width of the source rectangle in pixels
*       (a single-pixel character would	have imWidth = 1)
* (5)  chHeight is	the source font height
*      (a single-row font would have chHeight = 1)
*
* (6)  nStrikePtr,	newRowBytes, currPixel, newImWidth, and	newChHeight
*      are the corresponding values for the destination
*
* (7)  the point size of the source font is mBestSize, and	of the
*      destination	font mWantSize, so we want to scale by
*      mWantSize/mBestSize. This ratio	has been computed once (using
*      integer disvision); the results	are in quotient and	remainder.
*      (There is also a table of multiples of the ratio, rounded up
*      to the nearest integer; the table only covers very small values
*      but we can make it larger if we	want to.)
*
* 
* Warning:
*
* This file contains many equates that are found elsewhere in the system.
*
*
* Entry Points
*
*	ScaleFont
*
* Change History
*
* xx Jan 87	Bennet Marks
*
* Original Code by Bennet Marks using the scaling algorithms 
* developed by Art Cabral.
*
* Spring 88	Steven Glass
*
* Code modified to be built with MAX.
*
* 11 Jun 88	Steven Glass
*
* Modified code to work in ROM.
*
* 04 Oct 88	Sue Dumont
*
* Added new field to Apple IIGS font header in order to support larger
* fonts.  This field is the high word of the offset to the offset/width table,
* "highOwTLoc".  The IIGS font header is now 14 bytes long.
* NOTE: the offset still remains relative to the low word position of the offset.
*
*
* 10 Apr 89	Steven Glass
*
* Change font version from 102 to 105 to make graphics studio work.
*
* 6-Jan-91	Dave Lyons
*
* Fixed a bug at CalcTablePtrs where we were losing bit 15 of owTOffset,
* instead of shifting it into hiOwTOffset.
*
* 17-Jan-91	Dave Lyons
*
* Optimized out a few dozen LDA<, PHA sequences (into PEIs).
*
* 21-Apr-91	Dave Lyons & Ben Koning
*
* Fixed a bug near CalcTablePtrs where we were trying to add two values
* at once without bringing the carry over at each step.
*
* 22-Apr-91
*
* Ben made a speed improvement at XLoop, around 3..4%.
*
* 8-Mar-93 SS
*
* Small optimization: consolidated all _DisposeHandle calls into one subr.
*
**********************************************************************

	
	include 'm16.util'
	include 'm16.locator'
	include 'm16.memory'
	include 'm16.intmath'
	include 'm16.quickdraw'
	
	include 'special.macros'
	
	
	
	title ' QuickDraw Equates'

;
; These are the QuickDraw E1Vectors
;

ToSlab	equ $E01E00
ToSlice	equ $E01E00
ToStuffBig	equ $E01E00

StdText	equ $E01E04
StdLine	equ StdText+4
StdRect	equ StdLine+4
StdRRect	equ StdRect+4
StdOval	equ StdRRect+4
StdArc	equ StdOval+4
StdPoly	equ StdArc+4
StdRgn	equ StdPoly+4
StdPixels	equ StdRgn+4
StdComment	equ StdPixels+4
StdTxMeas	equ StdComment+4
StdTxBnds	equ StdTxMeas+4
StdGetPic	equ StdTxBnds+4
StdPutPic	equ StdGetPic+4


PortLoc2ZP	equ StdPutPic+4
UserPat2ZP	equ PortLoc2ZP+4
GetPenPReady	equ UserPat2ZP+4
GetBackPReady	equ GetPenPReady+4
Pen2ZP	equ GetBackPReady+4
Back2ZP	equ Pen2ZP+4
RotatePat	equ Back2ZP+4
GetMaskReady	equ RotatePat+4
Mask2ZP	equ GetMaskReady+4
ExpandMask	equ Mask2ZP+4
RotateMask	equ ExpandMask+4
RotateLong	equ RotateMask+4
PreDraw	equ RotateLong+4
XSetup	equ PreDraw+4

DrawRectB	equ XSetup+4
DrawRect	equ DrawRectB+4
SliceSetup	equ DrawRect+4
vShiftStay	equ SliceSetup+4	; these are not used internally!
vXShiftStay	equ VShiftStay+4	; things down.  They are provide
vShiftOut	equ vXShiftStay+4
vXShiftOut	equ VShiftOut+4

BMakeMinRect	equ vXShiftOut+4
MakeMinRect	equ BMakeMinRect+4
ShieldCursor	equ MakeMinRect+4
UnShieldCursor	equ ShieldCursor+4
SetUpPortRegions	equ UnShieldCursor+4
SetUpScanPtrs	equ SetUpPortRegions+4
FreePortRegions	equ SetUpScanPtrs+4
Free1Region	equ FreePortRegions+4
Free2Regions	equ Free1Region+4
Free3Regions	equ Free2Regions+4
UnlockBufferHandle	equ Free3Regions+4
Init1Region	equ UnlockBufferHandle+4
Init2Regions	equ Init1Region+4
Init3Regions	equ Init2Regions+4
Seek1Region	equ Init3Regions+4
Seek2Regions	equ Seek1Region+4
Seek3Regions	equ Seek2Regions+4
InitRgn	equ Seek3Regions+4
SeekRgn	equ InitRgn+4
Join1Buffer	equ SeekRgn+4
Join2Buffers	equ Join1Buffer+4
Join3Buffers	equ Join2Buffers+4

SetSlabAdr	equ Join3Buffers+4
SetSliceAdr	equ SetSlabAdr+4
SetStuffAdr	equ SetSliceAdr+4


BlowItUp	equ SetStuffAdr+4

PutPictStuff	equ BlowItUp+4
AddToPoly	equ PutPictStuff+4

OpenPicture	equ AddToPoly+4
PicComment	equ OpenPicture+4
ClosePicture	equ PicComment+4
DrawPicture	equ ClosePicture+4
KillPicture	equ DrawPicture+4

GimmeVersion	equ KillPicture+4

v_FrRgn	equ GimmeVersion+4
v_PRgn	equ v_FrRgn+4
v_ERgn	equ v_PRgn+4
v_IRgn	equ v_ERgn+4
v_FRgn	equ v_IRgn+4
v_FrRect	equ v_FRgn+4
v_PRect	equ v_FrRect+4
v_ERect	equ v_PRect+4
v_IRect	equ v_ERect+4
v_FRect	equ v_IRect+4


DChar	equ v_FRect+4
DText	equ DChar+4
DCString	equ DText	; always the same
BChar	equ DText+4
BText	equ BChar+4
BCString	equ BText	; always the same
ValidChar	equ BText+4
GetNextChar	equ ValidChar+4
CalcDrawStatus	equ GetNextChar+4
TextAndMinRect	equ CalcDrawStatus+4
CalcTextBounds	equ TextAndMinRect+4
SetUpFontInfo	equ CalcTextBounds+4
SetUpBufInfo	equ SetUpFontInfo+4
GetTextHandle	equ SetUpBufInfo+4
ClearBufPart	equ GetTextHandle+4
PutChar	equ ClearBufPart+4
BumpPen	equ PutChar+4
CleanUpBuffer	equ BumpPen+4


PutLine	equ CleanUpBuffer+4
PutRgn	equ PutLine+4
PutRect	equ PutRgn+4
CullPoints	equ PutRect+4
SortPoints	equ CullPoints+4
PackRgn	equ SortPoints+4
RgnOp	equ PackRgn+4

PutOval	equ RgnOp+4
BumpOval	equ PutOval+4
InitOval	equ BumpOval+4

SetTB	equ InitOval+4
ResetTB	equ SetTB+4

StyleText	equ ResetTB+4
StyleExtents	equ StyleText+4
DoBold	equ StyleExtents+4
DoUnderLine	equ DoBold+4

StdConic	equ DoUnderLine+4	; vectors added for	new ROM
vDrawConic	equ StdConic+4	; 22 Aug 86 SEG
vSetScaleAndMap	equ vDrawConic+4
DrawCursor	equ vSetScaleAndMap+4
UndrawCursor	equ DrawCursor+4
vAngleFromSlope	equ UndrawCursor+4
vSlopeFromAngle	equ vAngleFromSlope+4

RgnBlt	equ vSlopeFromAngle+4 ; vectors added for CopyPixels
SharedMRSetup	equ RgnBlt+4	; 21 Nov 86 SEG
ShareShieldStuff	equ SharedMRSetup+4


	title ' Font Equates'
;
; These are the offsets used to get into fonts
;
O_V	equ 0	;vertical coordinate of point
O_H	equ 2	;horizontal
O_V1	equ 0	;rectangle upper left vertical coord.
O_H1	equ 2	;rect. UL horizontal
O_V2	equ 4	;rect. lower right vertical coord.
O_H2	equ 6	;rect. LR horizontal
O_portInfo	equ 0	;portInfo in grafPort
O_boundsRect	equ 8	;boundsRect in portInfo
O_font	equ 116	;font handle in grafport
;
O_fontStyle	equ 4
O_fontID	equ 2
O_style	equ 4
O_size	equ 6
O_version	equ 8
O_fbrExtent	equ 10	;fbrExtent offset
O_highOwTLoc	equ 12	;high word to offset/width table (4 Oct 88)
;
FFormat	equ 0	;fontType
FMinChar	equ 2	;firstChar
FMaxChar	equ 4	;lastChar
FMaxWd	equ 6	;widMax
FBBOX	equ 8	;kernMax
FBBOY	equ 10	;nDescent
FBBDX	equ 12	;fRectMax
FBBDY	equ 14	;chHeight
FLength	equ 16	;owTLoc
FAscent	equ 18	;ascent
FDescent	equ 20	;descent
FLeading	equ 22	;leading
FRaster	equ 24	;rowWords
;and some of our own devising
FStrike	equ 26	;font strike
;offset/width table	entry indicating an	in-range missing symbol:
owMSVal	equ -1
;
;
;    Font Lore offsets
o_FontVersion	equ 8
o_FamNum	equ 2
;
o_FLFamNum	equ 0
o_FLStyle	equ 2
o_FLSize	equ 4
o_FLVersion	equ 6
o_FLMaxWid	equ 8
o_FLFBRXtnt	equ 10
o_FLHighOffset	equ 12	;high word of offset to offset/width table
;		;SMD - 4 Oct 88
;
;                copy fscons
;
;word breakdown constants
bitsInWord	equ 16
allBitsOff	equ %0000000000000000
allBitsOn	equ %1111111111111111
firstBit	equ %1000000000000000
firstBitXBAed	equ %0000000010000000
lastBit	equ %0000000000000001
lastBitXBAed	equ %0000000100000000
first12Bits	equ %1111111111110000
last4Bits	equ %0000000000001111
first13Bits	equ %1111111111111000
first14Bits	equ %1111111111111100
first15Bits	equ %1111111111111110
lowByte	equ $00FF
highByte	equ $FF00
last15Bits	equ %0111111111111111
;
ourFHOS	equ 12	;offset to Mac part of font
;		;(for font version 01.01, in bytes)
;also called:
ourHeadLength	equ ourFHOS
OurVersion	equ $0101	;font version number matching this code
;
MHLength	equ 26	;Mac header length (bytes)
;also called:
macHeadLength	equ MHLength
;
******
* SMD - Version 1.02 equates.  Apple IIGS font header now has an additional
*       field, "highOwTLoc", the high word of the offset to the offset/width
*       table.
*
*
* To make graphics studio work we change this version number from 102 to 105.
*
* SEG 10 Apr 89
*
NewVersion	equ $0105	;new version for scaling fonts   10 Oct 88
newFHOS	equ 14	;offset to Mac font record (Version 1.02)
newHeadLength	equ newFHOS	;(4 Oct 88)
*
******
scaleSizeErr	equ $1B0C	;must match Font Manager


	title ' Direct Page Equates'

******************************
*	         *
*  June 15, 1987  3:00 pm    *
*  BHM  x6245	         *
*	         *
******************************
;
******************************************************************************
*
*  These are the 0-page locations used by the font-scaling shell.  They lie
*  on QD II's 3rd 0-page
*
******************************************************************************
;
mPortRef	equ 0
fontHandle	equ mPortRef+4	;added 6/15/87 - BHM
fontHeadPtr	equ fontHandle+4
fontRecPtr	equ fontHeadPtr+4
strikePtr	equ fontRecPtr+4
owTPtr	equ strikePtr+4
locTPtr	equ owTPtr+4
;
nFontHandle	equ locTPtr+4
nFontHeadPtr	equ nFontHandle+4
nFontRecPtr	equ nFontHeadPtr+4
nStrikePtr	equ nFontRecPtr+4
nOWTPtr	equ nStrikePtr+4
nLocTPtr	equ nOWTPtr+4
;
sbHandle	equ nLocTPtr+4
scaledBytesPtr	equ sbHandle+4
flbHandle	equ scaledBytesPtr+4
fontLorePtr	equ flbHandle+4
;
temp	equ fontLorePtr+4
;
firstChar	equ temp+4
lastChar	equ firstChar+2
chHeight	equ lastChar+2
tableLength	equ chHeight+2		;length of Location table, in bytes
owTOffset	equ tableLength+2
hiOwTOffset	equ owTOffset+2		;SMD- added 4 Oct 88
newFontSize	equ hiOwTOffset+2
newAscent	equ newFontSize+2
newDescent	equ newAscent+2
newChHeight	equ newDescent+2
rowBytes	equ newChHeight+2
newRowBytes	equ rowBytes+2
newStrikeSize	equ newRowBytes+2		;4 Oct 88 - now a long
currIndex	equ newStrikeSize+4
lastIndex	equ currIndex+2
currPixel	equ lastIndex+2
ImWidth	equ currPixel+2
newImWidth	equ ImWidth+2
quotient	equ newImWidth+2
remainder	equ quotient+2
bucket	equ remainder+2
lastQuo	equ bucket+2
maxB	equ lastQuo+2
lastSBIndex	equ maxB+2
;
mWantSize	equ lastSBIndex+2
mBestSize	equ mWantSize+2
mUserID	equ mBestSize+2
EndOfFSZP1	equ mUserID+2
;
* These variables are all kept on the third zero page.

SrcVSize	equ ChHeight
SrcHSize	equ ImWidth
DstVSize	equ NewChHeight
DstHSize	equ NewImWidth
SrcLeft	equ Temp
DstLeft	equ CurrPixel
SrcBase	equ StrikePtr
SrcWidth	equ Rowbytes
DstBase	equ nStrikePtr
DstWidth	equ NewRowbytes

VError	equ EndOfFSZP1
HError	equ VError+2
ScratchHandle	equ HError+2
SrcLimit	equ ScratchHandle+4

DstLimit	equ SrcLimit+4
DestNibble	equ DstLimit+2
LastNibble	equ DestNibble+2
ByteLimit	equ LastNibble+2
NextFlag	equ ByteLimit+2
LoNib	equ NextFlag+2
Nibs	equ LoNib+2
NextNib	equ Nibs+2
SrcCtr	equ NextNib+2
SrcBuf	equ SrcCtr+2
DstBuf	equ SrcBuf+4
HInc	equ DstBuf+4
SrcPtr	equ HInc+2
DstPtr	equ SrcPtr+4
LastOut	equ DstPtr+4
ThisOut	equ LastOut+2
ThisWord	equ ThisOut+2
HowFarToShift	equ ThisWord+2
LeftMask	equ HowFarToShift+2
RightMask	equ LeftMask+2
RightPos	equ RightMask+2
DstRightMask	equ RightPos+2
DstRightPos	equ DstRightMask+2
;
;added 1/19/87 10:30 am:
SrcBufSize	equ DstRightPos+2
DstBufSize	equ SrcBufSize+2
DstY	equ DstBufSize+2
DstCtr	equ DstY+2
DstCnt	equ DstCtr+2
SrcVal	equ DstCnt+2
SrcWord	equ SrcVal+2
SrcCnt	equ SrcWord+2
DstWord	equ SrcCnt+2
DstWords	equ DstWord+2
DstRight	equ DstWords+2

;
; New direct page location Added 11 Jun 88
;
ActionIndex	equ DstRight+2

;
; New equates added 11 Jun 88
;
CopyIndex	equ 0
ShiftIndex	equ 2
StretchIndex	equ 4
ShrinkIndex	equ 6




;
******************************************************************************
*
*  The next 0-page locations live on other 0-pages - the Font Manager's, and
*  QD II's 1st.  They are hard-coded to avoid including all their 0-page
*  locations (including some name collisions with the Font Scaler stuff).
*  Maintainers Beware!
*
******************************************************************************
;
UserID	equ $0A	;QD II's 1st 0-page
PortRef	equ $24	;QD II's 1st 0-page
;
BestSize	equ $8E	;FM's 0-page
WantSize	equ $96	;FM's 0-page
;




	title ' Forward References'
;-----------------------------------------------
;
;   Forward address	and entries
;
;-----------------------------------------------

	ENTRY CleanUpScaling
	ENTRY ToAction

	ENTRY ShrinkText
	ENTRY StretchText
	ENTRY ShiftText
	ENTRY CopyText
	ENTRY ToMerge
	ENTRY SetupScaling
	ENTRY ScaleBits
	ENTRY ScaleByte
	ENTRY TablesNStrike
	ENTRY ClearNewStrike
	ENTRY SetNewHdrVals
	ENTRY CalcNewFntPtrs
	ENTRY CalcNewFntSz
	ENTRY InitScaling
	ENTRY InitByteScaler
	ENTRY SetUp2Bufs
	ENTRY CalcFontPtrs
	ENTRY FntMgr2FntSclr
	ENTRY DisposeAHandle


	title ' Scale Font'
****************************************************************
*
ScaleFont	PROC EXPORT
*
*			        
*  This subroutine scales the current font by the scale factor      
*  wantSize/bestSize.  The handle for the new font is left in x,a.  
*			        
*  If a memory error is encountered during the scaling process,     
*  then the routine	returns with the carry set and the error code   
*  in the acc.  Otherwise it returns with the carry clear.	        
*			        
*  In its present form, the code has been written more for clarity  
*  than for speed; little optimizing has been done.  Next pass,     
*  people.			        
*			        
*  For convenience with use by the Font	Manager, ScaleFont (and in  
*  particular FntMgr2FntSclr) expects to find the desired size in   
*  y, the userID in	the acc., and the current (best-so-far)	size in 
*  x (that last could be picked up from	the font itself, but why    
*  mess around?)			        
*			        
*
*
* Inputs:
*	on direct page
*
* Outputs:
*	a-reg   Low word of font handle (or error code)
*	x-reg   high word of font handle
*	carry   set if error, clear if no error
*
* External Refs:
*	lots
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
*
* Change History
*
* 14 Jan 87	Bennet Marks
*
* Started
*
* 15 Jun 87	Bennet Marks
*
* Last Modified
*
****************************************************************

;
;
	phd
;
	jsl FntMgr2FntSclr
;
	jsl CalcFontPtrs
;
	jsl SetUp2Bufs
	bcc NoErr1
	sta temp
	brl Error1
;
NoErr1		;
;----------------------------------------------------------
;
; I init the byte scaler first because InitScaling makes
; calls to ScaleByte.
;
	jsl InitByteScaler
;
	jsl InitScaling
****
*
*  some error handling added here - BHM	6/15/87
*
****
	bcc NoErr2
	sta temp
	bra Error2
;
NoErr2		;
	jsl CalcNewFntSz
;
	bcc NoErr3
	sta temp
	bra Error3
NoErr3		;
	jsl CalcNewFntPtrs	;11 Oct 88 - SMD
	bcc NoErr3a	;carry set if a size error occurred.
	sta temp	;size error code
	bra Error4
;
NoErr3a	jsl SetNewHdrVals
	bcc NoErr4
	sta temp
	brl Error4
NoErr4		;
	jsl ClearNewStrike
;
	jsl TablesNStrike
;
	lxy flbHandle	;8-Mar-93 SS
	jsr DisposeAHandle
	lxy sbHandle	;8-Mar-93 SS
	jsr DisposeAHandle
;
	jsl CleanUpScaling
;
;unlock old font:
	ldy #4
	lda [fontHandle],y
	and #$7FFF
	sta [fontHandle],y
;
	ldx nFontHandle+2
	lda nFontHandle
;	
	clc	;to mark no error
;
	pld
	rtl
;
Error4		;
	lxy nFontHandle 	;8-Mar-93 SS
	jsr DisposeAHandle
Error3		;
	lxy ScratchHandle 	;8-Mar-93 SS
	jsr DisposeAHandle
Error2		;
	lxy flbHandle	;8-Mar-93 SS
	jsr DisposeAHandle
	lxy sbHandle	;8-Mar-93 SS
	jsr DisposeAHandle
Error1		;
;
;unlock old font:
	ldy #4
	lda [fontHandle],y
	and #$7FFF
	sta [fontHandle],y
;
	lda temp	;error code
	sec	;signal the error
	pld
	rtl
	ENDP


	EJECT
*******************************************************************************
*
GetportFontPtr	PROC Export
*
* Description:	This routine derefs the current grafports font handle and
*	returns the derefed version of it in fontHeadPtr. This should
*	be called by any routine that wants to look at the font 
*	record directly. It knows about fast fonts, and it knows how
* 	to use them!
*
* NOTE:	
*
*
* Inputs:	NotMuch
*
* Outputs:	FontHeadPtr
*
* External Refs:
;
; Equates for the fastfont record
;
o_FFAscent	equ 0
o_FFDescent	equ o_FFAscent+2
o_FFMaxWidth	equ o_FFDescent+2
o_FFLeading	equ o_FFMaxWidth+2
o_FFrowBytes	equ o_FFLeading+2
o_oldFontHandle	equ o_FFRowBytes+2
o_StrikeSize	equ o_oldFontHandle+4
o_FFSizeofVars	equ o_StrikeSize+4
o_FFWidthTable	equ o_FFSizeofVars
o_FFOffsetTable	equ o_FFWidthTable+256
o_FFEndOfTables	equ o_FFOffsetTable+512
;
*
* Entry Points:
*
*******************************************************************************
	ldy #(O_font+2)
	lda [mPortRef],y	;font handle high word
	bpl standardFont	; if high bit clear we are using a standard font

loadStdData
	sta fontHandle+2	; get the handle to the fastfont stuff
	ldy #o_font
	lda [mportRef],y
	sta fontHandle
	lda [fontHandle]	; and deref it...
	sta fontHeadPtr
	ldy #2
	lda [fontHandle],y
	sta fontHeadPtr+2
;
	ldy #o_oldFontHandle ; offset to the old font..
	lda [fontHeadPtr],y	; get the old font handle
	sta fontHandle
	ldy #o_oldFontHandle+2
	lda [fontHeadPtr],y
	sta fontHandle+2	; set temp to be the old font handle
	bra SF0010	; and branch into standard font stuff
	
standardFont
	sta fontHandle+2
	dey
	dey
	lda [mPortRef],y
	sta fontHandle
;
SF0010
	lda [fontHandle]
	sta fontHeadPtr
	ldy #2
	lda [fontHandle],y
	sta fontHeadPtr+2
	rtl
	EndP


	title ' CalcFontPtrs'
****************************************************************
*
CalcFontPtrs	PROC
*
*  This subroutine gets the current font handle out of the grafport 
*  and calculates the various pointers associated with it.	It also 
*  saves a few font	values that it had to fetch during its calc-    
*  ulations.  (It also sets rowBytes, because there was no better   
*  place to do it.)			        
*
*
* Inputs:
*	current graf port
*
* Outputs:
*	Various font pointers
*	Font Values
*	rowBytes
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
*
* Change History
*
* 11 Jan 87	Bennet Marks
*
* Started code.
*
* 15 Jun 87	Bennet Marks
*
* Finished first pass.
*
* 04 Oct 88	Sue Dumont
*
* Removed code which calculated the locTable pointer and the offset/width
* table pointer.  This code is now located in the routine "SetUp2Bufs".
* This is done because the high word of the offset to offset/width table
* is retrieved from "_GetFontLore" in "SetUp2Bufs", which is needed to make
* these calculations.
*
* 3/15/89	Mensch
* Added call to getPortFontPtr to make getting around fastfonts easy
****************************************************************

;
	jsl GetportFontPtr
; was:
;	ldy #o_font	;get font handle
;	lda [mPortRef],y
;	sta fontHandle
;	iny
;	iny
;	lda [mPortRef],y
;	sta fontHandle+2
;
;	lda [fontHandle]	;dereference
;	sta fontHeadPtr
;	ldy #2
;	lda [fontHandle],y
;	sta fontHeadPtr+2

	ldy #4
	lda [fontHandle],y
	ora #$8000	;and lock the font for now...
	sta [fontHandle],y
;
	lda [fontHeadPtr]	;offset to Mac header part
	asl a	;in bytes
	clc
	adc fontHeadPtr
	sta fontRecPtr
	lda fontHeadPtr+2
	bcc NoCarry1
	inc a
NoCarry1		;
	sta fontRecPtr+2
;
	ldy #FMinChar
	lda [fontRecPtr],y
	sta firstChar
;
	ldy #FMaxChar
	lda [fontRecPtr],y
	sta lastChar
;
	inc a
	inc a
	inc a
	sec
	sbc firstChar
	asl a
	sta tableLength	;length of each table
;
	lda fontRecPtr
	clc
	adc #FStrike
	sta strikePtr
	lda fontRecPtr+2
	bcc NoCarry2
	inc a
NoCarry2	sta strikePtr+2
;
	ldy #FRaster
	lda [fontRecPtr],y	;rowWords
	asl a	;rowBytes
	sta rowBytes
;
	rtl
	ENDP


	title ' SetUp2Bufs'
****************************************************************
*
SetUp2Bufs	PROC
*
*  This subroutine gets the buffer needed for a GetFontLore	call,   
*  makes that call,	figures out the largest byte our byte-scaler    
*  will have to scale (maxB), and gets a buffer of an appropriate   
*  size for the scale results.		        
*			        
*  The font lore buffer handle will be flbHandle, and the pointer   
*  fontLorePtr.  The scaled bytes list buffer will have handle      
*  sbHandle, and pointer scaledBytesPtr		        
*			        
*  If either memory	manager call generates an error, then the       
*  routine will return with the carry set, the error code in the    
*  acc., and neither buffer allocated.	If no error is generated,   
*  SetUp2Bufs returns with carry clear.		        
*
*
* Inputs:
*	some direct page values.
*
* Outputs:
*	flbHandle
*	fontLorePtr
*	sbHandle
*	ScaledBytesPtr
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
*
* Change History
*
* 11 Jan 87	Bennet Marks
*
* Coding started.
*
* 14 Jan 87	Bennet Marks
*
* First pass complete.
*
* 04 Oct 88	Sue Dumont
*
* Added code from "CalcFontPtrs" which calculates the locTable pointer
* and the offset/width table pointer.  I also try to retrieve 14 bytes 
* from "_GetFontLore" for the additional field, highOwTLoc.
*
****************************************************************

	pha
	pha
	PushLong #14	;#bytes for font lore rec (Ver 1.02)
	pei mUserID
	pea $8000	;locked on allocation.
	PushLong #0
;
	_NewHandle	;allocate memory for IIGS font header record
;
	bcc NoMemErr1
;mem error:
	plx
	plx
	rtl
;
NoMemErr1	pla
	sta flbHandle
	pla
	sta flbHandle+2
;
	lda [flbHandle]	;deref
	sta fontLorePtr
	ldy #2
	lda [flbHandle],y
	sta fontLorePtr+2
;
	PushWord #0
	PushzLong fontLorePtr ;DAL
	PushWord #14	;Apple IIGS font header size
;
	_GetFontLore
;
	pla	;check # bytes returned to see if we got the
	cmp #14	;high word offset field (Version 1.02)
	blt NoHighOffset
	ldy #o_FLHighOffset	;Version 1.02 -  get highOwTLoc field
	lda [fontLorePtr],y
	asl a	;offset in bytes
	sta hiOwTOffset
	bra CalcTablePtrs
	
NoHighOffset	stz hiOwTOffset	;old version, store zero here	

******
* moved code here from "CalcFontPtrs" to calculate table pointers
* SMD - 4 Oct 88
*
CalcTablePtrs	ldy #FLength	;low word of offset to offset/width table
	lda [fontRecPtr],y	;owTLoc (low word)
	asl a	;offset in bytes
	sta owTOffset
*** added 6-Jan-91 DAL--we were losing bit 15 of owTOffset; now we put it into hiOWTOffset
	bcc @1
	inc hiOwTOffset
@1
*** end of 6-Jan-91 DAL
;	clc
;	adc #FLength
;	adc fontRecPtr
;	sta owTPtr
;	lda fontRecPtr+2
;	adc hiOwTOffset	;high offset in bytes
;	sta owTPtr+2


*** DAL and BAK 21-Apr-91 -- the above code is wrong; this is right
*** (If owTLen was very close to $FFFF, it didn't work)
*** The above code was trying to compute 
***   owTPtr := (highOWTOffset|owTOffset) + #FLength + fontRecPtr
; A already contains owTOffset
	clc
	adc #FLength
	sta owTPtr
	lda hiOwTOffset
	adc #0
	sta owTPtr+2
; so far, owTPtr = (highOWTOffset|owTOffset) + #FLength
	clc
	lda owTPtr
	adc fontRecPtr
	sta owTPtr	
	lda owTPtr+2
	adc fontRecPtr+2
	sta owTPtr+2
*** end of 21-Apr-91

	lda owTPtr
	sec
	sbc tableLength
	sta locTPtr
	lda owTPtr+2
	bcs NoBorrow1
	dec a
NoBorrow1	sta locTPtr+2	
*
******
	ldy #o_FLFBRXtnt
	lda [fontLorePtr],y
;
	ldy #FAscent
	cmp [fontRecPtr],y
	bpl MaxOK1
	lda [fontRecPtr],y
;
MaxOK1	ldy #FDescent
	cmp [fontRecPtr],y
	bpl MaxOK2
	lda [fontRecPtr],y
;
MaxOK2	ldy #FLeading
	cmp [fontRecPtr],y
	bpl MaxOK3
	lda [fontRecPtr],y
;
MaxOK3	ldy #FBBDX
	cmp [fontRecPtr],y	;fRectMax
	bpl MaxOK4
	lda [fontRecPtr],y
;
MaxOK4	sta maxB	;biggest number we need to scale
;
	pha
	pha
	pea 0
;	lda maxB	;*** redundant 8-Mar-93 SS
	inc a	;for 0 entry
	inc a	;for good luck
	asl a	;bytes from words do ever come
;
	sta lastSBIndex
	inc a
	inc a
;
	pha
	pei mUserID
	pea $8000
	PushLong #0
;
	_NewHandle
;
	bcc NoMemErr2
;mem err:
	sta temp	;error code
	plx
	plx
;
;dispose of the already-allocated handle:
	lxy flbHandle	;8-Mar-93 SS
	jsr DisposeAHandle
;
	lda temp	;error code
	sec	;signal an error
	rtl
;
NoMemErr2		;
;
	pla
	sta sbHandle
	pla
	sta sbHandle+2
;
	lda [sbHandle]	;deref
	sta scaledBytesPtr
	ldy #2
	lda [sbHandle],y
	sta scaledBytesPtr+2
;
;carry should still	be clear, but just in case . . .
	clc
;
	rtl
	ENDP



	title ' CalcNewFntSz'
****************************************************************
*
CalcNewFntSz	PROC
*
*  This subroutine calculates the size of the new, scaled font and  
*  allocates a handle of the appropriate size.  The handle is       
*  newFontHandle.			        
*			        
*  CalcNewFntSz also calculates newAscent, newDescent, newChHeight, 
*  and newRowBytes,	which it needs for the new font size.	        
*			        
*  If there is a memory error, the routine returns with the	carry   
*  set, the error code in the acc., and	no new handle allocated.    
*  Also, the routine can generate a "size error" if the requested   
*  font is bigger than our font data structure allows for; as       
*  usual, acc. and carry will be set accordingly.  Otherwise the    
*  routine returns with carry clear.		        
*
* 
* NOTE:  strike width in pixels < 2 ** 16
* (because it's in the last location table entry)
* This also means:
*        strike width in bytes < 2 ** 8
*        strike width in words < 2 ** 7
* ALSO:
*        total strike size in words < 2 ** 16
* (because the owTLoc, which is in words, must leapfrog
* over the strike - and more)
* 
* ALSO:
* we can for convenience assume
*         total strike size in bytes < 2 ** 16
* because every bit of code, in ROM or out, uses a simple asl to
* double owTLoc, ignoring the high bit entirely.  Whether this is
* a bug or a feature I'll leave for some other time.

* END OF NOTE
* 
*
* Inputs:
*	direct page values.
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* Change History
*
* 11 Jan 87	Bennet Marks
*
* Coding started.
*
* 02 Feb 87	Bennet Marks
*
* First pass complete.
*
* 07 Oct 88	Sue Dumont
*
* Modified newStrikeSize to be a long which will now allow larger
* fonts to be created.  This is possible since owTLoc now has a
* high word present in the IIGS font header (highOwTLoc).
*
****************************************************************
;
;start with the new	vertical measures:
;
	ldy #FAscent
	lda [fontRecPtr],y		;old ascent
	jsl ScaleByte
	sta newAscent
;
	ldy #FDescent
	lda [fontRecPtr],y
	jsl ScaleByte
	sta newDescent
;
	clc
	adc newAscent
	sta newChHeight
;
	ldy #FBBDY
	lda [fontRecPtr],y
	sta chHeight		;needed for sizing and later
;
;now do the new strike size -
;get old strike width in pixels:
;	
	ldy tableLength
	dey
	dey
	lda [locTPtr],y
;(last loc table entry = strike width in pixels)
;
;
	pha		;for result
	pha
;scale it:
	pha		;push strike width in pixels
	pei mWantSize
;
	_Multiply		;strike width in pixels * mWantSize
;
	pla
	sta temp		;result of multiplication
	pla
	sta temp+2
;
	lda mBestSize
	dec a
	clc
	adc temp		;to round up
	sta temp
	bcc NoCarry1
	inc temp+2
NoCarry1
	pha		;space for result
	pha
	pha
	pha
	PushzLong temp	;DAL
	pea 0
	pei mBestSize
;
	_LongDivide		;mWantSize / mBestSize
;
	pla		;scaling factor result, low word
	sta temp
	plx		;high word, must be	0 (see note)
	beq NoSizeErr1
;size error:
	plx
	plx		;get rid of quotient
	brl SizeError
;
NoSizeErr1	plx
	plx		;quotient, unneeded
;
;now, we may have rounded off as much as 1 pixel from each individual
;character image by	doing the whole thing at once, so to compensate:
;
	lda tableLength
	lsr a
	clc
	adc temp
	bcc NoSizeErr2
	brl SizeError
NoSizeErr2
;
;that's  (an upper bound on) the width in pixels -
;now let's boil it down to words (and even bytes)
;
	clc
	adc #15		;to round up
	lsr a
	lsr a
	lsr a
	and #first15Bits
;that's even bytes:
	sta newRowBytes
;
;multiply by height:
	PushLong #0
	pei newRowBytes
	pei newChHeight
;
	_Multiply
;
	pla		;result low
	sta newStrikeSize
	pla		;may have high word for strike size 
	sta newStrikeSize+2		; in Version 1.02
		;
	lda #(newHeadLength+macHeadLength)	;version 1.02 header
	clc
	adc tableLength
	adc tableLength		;two tables
	adc newStrikeSize
	sta temp		;new strike size, in bytes
	lda newStrikeSize+2		;may exceed 64K (SMD 4 Oct 88)
	bcc StoreSize
	inc a

StoreSize	sta temp+2
	PushLong #0		;resulting handle
	pei temp+2		;high word of size in bytes
	pei temp		;low word
	pei mUserId
	pea $8000
	PushLong #0
;
	_NewHandle		;allocate memory for new	
;			; font record
	bcc NoMemErr
;mem error:
	plx
	plx
	rtl
;
;code for size error:
SizeError
	lda #scaleSizeErr		;what the Font Manager calls it
	sec		;to signal error
	rtl
;
NoMemErr
	pla
	sta nFontHandle
	pla
	sta nFontHandle+2
;
	clc		;No Error
	rtl
	ENDP



	title ' CalcNewFntPtrs'
****************************************************************
*
CalcNewFntPtrs	PROC
*
*  This subroutine sets all the pointers for the various pieces of
*  the new font.
*
*
* Inputs:
*	none
*
* Outputs:
*	carry bit set if size error 
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* Change History
*
* 13 Jan 87	Bennet Marks
*
* Coding started.
*
* 03 Feb 87	Bennet Marks
*
* First pass complete.
*
* 07 Oct 88	Sue Dumont
*
* Added high word of strike size.  Also, this routine returns
* with the carry bit set if a size error occurs.
*
****************************************************************

;
	lda [nFontHandle]	;dereference handle
	sta nFontHeadPtr
	ldy #2
	lda [nFontHandle],y
	sta nFontHeadPtr+2
;
	lda nFontHeadPtr
	clc
	adc #newHeadLength	;(10 Oct 88) compensate for additional IIGS header field
	sta nFontRecPtr
	lda nFontHeadPtr+2
	bcc NoCarry1
	inc a
	clc	;keep carry cleared
NoCarry1		;
	sta nFontRecPtr+2
;
	lda nFontRecPtr
	adc #macHeadLength
	sta nStrikePtr
	lda nFontRecPtr+2
	bcc NoCarry2
	inc a

NoCarry2	sta nStrikePtr+2
;
	lda nStrikePtr
	clc
	adc newStrikeSize
	sta nLocTPtr
	lda nStrikePtr+2
	adc newStrikeSize+2	;add high word of strike size - Version 1.02
	bcc NoCarry3	;carry already added (4 Oct 88)
** Size Error **
	lda #scaleSizeErr	;set error for Font Manager
	rtl	;carry is already set

NoCarry3		;
	sta nLocTPtr+2
	lda nLocTPtr
	clc
	adc tableLength
	sta nOWTPtr
	lda nLocTPtr+2
	bcc NoCarry4
	inc a
	clc
NoCarry4
	sta nOWTPtr+2

	rtl
	ENDP






	title ' SetNewHdrVals'
****************************************************************
*
SetNewHdrVals	PROC
*
*  This subroutine finds and/or calculates the values to go	in the  
*  new font's header fields (both Gumby header and Mac header), and 
*  places them in the new headers.		        
*			        
*  This routine can	generate a "size error", if the requested font  
*  is too large to permit a 1-word owTLoc value.  In this case,     
*  the error code will be in the acc., and the carry will be set.   
*  Otherwise, the routine returns with the carry clear.	        
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* Change History
*
* 13 Jan 87	Bennet Marks
*
* Coding started.
*
* 03 Feb 87	Bennet Marks
*
* First pass complete.
*
* 10 Oct 88	Sue Dumont
*
* Sets font record values for Version 1.02
*
****************************************************************
;
	lda #(newHeadLength/2)	;10 Oct 88 - SMD
	sta [nFontHeadPtr]		;offset-to-Mac field
;
	ldy #o_FLFamNum
	lda [fontLorePtr],y
	ldy #o_FamNum
	sta [nFontHeadPtr],y
;
	ldy #o_FLStyle
	lda [fontLorePtr],y
	ldy #o_Style
	sta [nFontHeadPtr],y
;
	lda mWantSize
	ldy #o_Size
	sta [nFontHeadPtr],y
****
**** (10 Oct 88)  This version of the Font Scaler is 1.02.
****              Version 1.02 has the additional word, highOwTLoc,
****              in the Apple IIGS font header
****
	lda #newVersion		;Version 1.02
	ldy #o_Version
	sta [nFontHeadPtr],y
;
	ldy #o_FBRExtent
	lda [fontLorePtr],y
	jsl ScaleByte
	ldy #o_FBRExtent
	sta [nFontHeadPtr],y
;
;so much for the Gumby header - let's get to the Mac header
;
	ldy #FFormat
	lda [fontRecPtr],y
	sta [nFontRecPtr],y
;
	ldy #FMinChar
	lda [fontRecPtr],y
	sta [nFontRecPtr],y
;
	ldy #FMaxChar
	lda [fontRecPtr],y
	sta [nFontRecPtr],y
;
	ldy #FMaxWd
	lda [fontRecPtr],y
	jsl ScaleByte
	ldy #FMaxWd
	sta [nFontRecPtr],y
;
	ldy #FBBOX
	lda [fontRecPtr],y
;assume a non-positive kern for now
	eor #allBitsOn
	inc a		;invert kern
	jsl ScaleByte
	eor #allBitsOn		;invert result
	inc a
	ldy #FBBOX
	sta [nFontRecPtr],y
;
	ldy #FBBDX
	lda [fontRecPtr],y
	jsl ScaleByte
	ldy #FBBDX
	sta [nFontRecPtr],y
;
	lda newChHeight
	ldy #FBBDY
	sta [nFontRecPtr],y
;
;calculate new owTLoc:
;
	lda nFontRecPtr
	clc
	adc #FLength
	sta temp
	lda nFontRecPtr+2
	bcc NoCarry
	inc a
NoCarry		;
	sta temp+2
;
	lda nOWTPtr
	sec
	sbc temp
	sta temp
	lda nOWTPtr+2
	sbc temp+2		;owTLoc has high word
	sta temp+2		;in Version 1.02
	
	lsr a		;high word of offset in words
	ldy #o_highOwTLoc		;to offset/width table
	sta [nFontHeadPtr],y	;store in IIGS font header	

	lda temp
	ror a		;rotate the bit in from the
	ldy #FLength		;high word
	sta [nFontRecPtr],y

	lda newAscent
	ldy #FAscent
	sta [nFontRecPtr],y
;
	lda newDescent
	ldy #FDescent
	sta [nFontRecPtr],y
;
	eor #allBitsOn	;invert it
	inc a
	ldy #FBBOY	;for nDescent
	sta [nFontRecPtr],y
;
	ldy #FLeading
	lda [fontRecPtr],y
	jsl ScaleByte
	ldy #FLeading
	sta [nFontRecPtr],y
;
	lda newRowBytes
	lsr a
	ldy #FRaster
	sta [nFontRecPtr],y
;
	clc	;no errors
	rtl
	ENDP







	title ' ClearNewStrike'
****************************************************************
*
ClearNewStrike	PROC
*
*  This subroutine zeroes out the new font strike (the scaled
*  character images	are going to be OR'ed into it).
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* Change History
*
* 13 Jan 87	Bennet Marks
*
* Coding started.
*
* 13 Jan 87	Bennet Marks
*
* First pass complete.
*
* 11 Oct 88	Sue Dumont
*
* Rewrote entire routine to zero out the font strike.  This was
* done to allow a strike size to be greater than 64K.
*
****************************************************************

	lda nStrikePtr		;use temp ptr for nStrikePtr
	sta temp
	lda nStrikePtr+2
	sta temp+2
	
	lda #0
	ldx newStrikeSize+2		;high word of strike size
	beq LessThan64K
BankLoop	ldy #$FFFE
NextWord1	sta [temp],y
	dey
	dey
	bne NextWord1
	sta [temp]		;zero out last word
	inc temp+2
	dex
	bne BankLoop
LessThan64K	ldy newStrikeSize
	bra EnterLoop
NextWord2	sta [temp],y
EnterLoop	dey
	dey
	bne NextWord2
	sta [temp]		;zero out last word
	
	rtl
	ENDP




	title ' TablesNStrike'
****************************************************************
*
TablesNStrike	PROC
*
*  This subroutine fills in the values for the new offset/width
*  table and location table, and places	the scaled character
*  images in the new font strike.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* Change History
*
* 13 Jan 87	Bennet Marks
*
* Coding started.
*
* 15 Jan 87	Bennet Marks
*
* First pass complete.
*
****************************************************************

;
	lda tableLength
	dec a
	dec a
	sta lastIndex
;
	lda #0
	sta currIndex
	sta currPixel	;in new strike
	sta [nLocTPtr]
;
NextChar		;
	ldy currIndex
	lda [owTPtr],y	;offset/width value
	cmp #owMSVal
	bne DefinedChar
;
;character is not defined:
	sta [nOWTPtr],y
	lda currPixel
	iny
	iny
	sta [nLocTPtr],y
;
	cpy lastIndex
	beq NoMoreChars
;(actually, this really can't happen here - the missing symbol must
;be defined)
	sty currIndex
	bra NextChar
;
DefinedChar	sta temp	;create new offset/width value
	and #lowByte
	jsl ScaleByte
	sta temp+2
;
	lda temp
	xba
	and #lowByte
	jsl ScaleByte
	xba
	ora temp+2
;
	ldy currIndex
;
	sta [nOWTPtr],y	;store new offset/width value
;
	lda [locTPtr],y
	sta temp
	iny
	iny
	sty currIndex
	lda [locTPtr],y
	sec
	sbc temp	;image width
	beq ImWidth0
;
;image width NOT 0:
	sta ImWidth
	jsl ScaleByte
	sta newImWidth
;
;{TIME FOR PIXELMAP	SCALING CODE
;
;  at this point the image of the character from the source	font
;  can be scaled and fed into the new font.
;
;  The source rectangle starts in column TEMP and ends in
;  column TEMP + IMWIDTH - 1 (this is purely pixel notation,
;  not QDII rectangle description).  The dest rectangle goes
;  from CURRPIXEL to CURRPIXEL + NEWIMWIDTH - 1.
;
;  Some of the updates in the code below may, in fact, be done
;  in and around the map-scaling code.
;
;
;
	jsl ScaleBits
;
;
;
;END OF PIXELMAP SCALING CODE}
;
;
	lda currPixel
	clc
	adc newImWidth
	sta currPixel
;and fall into . . .
;
ImWidth0		;
	lda currPixel
	ldy currIndex
	sta [nLocTPtr],y
;
	cpy lastIndex
	beq NoMoreChars
	bra NextChar
;
NoMoreChars		;
;
;y has the most recent index
	lda #(-1)
	sta [nOWTPtr],y
;
	rtl
	ENDP

	title ' InitByteScaler and ScaleByte'
****************************************************************
*
InitByteScaler	PROC
*
*  This subroutine creates a table of integer multiples of the      
*  scale factor mWantSize/mBestSize, for small integers.  The       
*  multiples are rounded up.		        
*			        
*  It is my assumption that the scaling	that has to be done	on      
*  every character offset, character width, and image width	(as     
*  well as other values, such as the ascent and descent) will       
*  involve so many repeat values, and/or values near each other,    
*  that creating and using this list is	time-efficient.	        
*			        
*  The integers scaled here are 0,1,...,maxB, where maxB =	        
*  max{ascent,descent,leading,fbrExtent,fRectMax}.  Each value      
*  gets its own word in the list.  lastSBIndex, the index of the    
*  last entry we want in the list, is calculated in SetUp2Bufs.     
*			        
*  (There's no good reason why this routine shouldn't be incorpor-  
*  ated into SetUp2Bufs as well.)		        
*			        
*  The zero entry in the list is pointed to by ScaledBytesPtr.      
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* Change History
*
* 13 Jan 87	Bennet Marks
*
* Coding started.
*
* 16 Jan 87	Bennet Marks
*
* First pass complete.
*
****************************************************************

;
	PushWord #0
	PushWord #0
	pei mWantSize
	pei mBestSize
;
	_UDivide
;
	pla
	sta quotient
	pla
	sta remainder
;
	lda mBestSize
	dec a
	sta bucket	;for rounding up
;
	lda #0
	sta [ScaledBytesPtr] ;multiply by 0
	sta lastQuo
	ldy #2
;
NextByte		;
	lda bucket
	clc
	adc remainder
	cmp mBestSize
	bmi NoCarry
;carry:
	inc lastQuo
	sec
	sbc mBestSize
;
NoCarry		;
	sta bucket
;
	lda lastQuo
	clc
	adc quotient
	sta lastQuo
	sta [ScaledBytesPtr],y
;
	cpy lastSBIndex
	beq NoMoreBytes
;
	iny
	iny
	bra NextByte
;
NoMoreBytes		;
	rtl
	ENDP




****************************************************************
*
ScaleByte	PROC
*
*  This routine is used to scale small integer values by the scale  
*  factor mWantSize/mBestSize.  ScaleByte accesses the list	of      
*  multiples set up	by InitByteScaler.		        
*			        
*  ScaleByte is "a mite twitchy", and is really only designed to be 
*  used in this particular context.  Values to be scaled must be    
*  non-negative, and <= maxB.  See InitByteScaler and SetUp2Bufs    
*  for more information.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* Change History
*
* 13 Jan 87	Bennet Marks
*
* Coding started.
*
* 13 Jan 87	Bennet Marks
*
* First pass complete.
*
****************************************************************

;
	asl a
	tay
	lda [ScaledBytesPtr],y
;
;There, there, that	wasn't such a big deal after all, was it?
;
	rtl
	ENDP





	title ' FntMgr2FntSclr'
****************************************************************
*
FntMgr2FntSclr	PROC
*
*  This routine moves us from the Font Manager's 0-page to          
*  the Font Scaler's (which is QD II's 3rd 0-page).  It saves the   
*  bestSize, wantSize, and ProgID that the FM has kindly placed in  
*  x, y, and the acc. for us.  It also picks up portRef from        
*  QD II for us.			        
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* Change History
*
* 13 Jan 87	Bennet Marks
*
* Coding started.
*
* 10 Feb 87	Bennet Marks
*
* First pass complete.
*
****************************************************************

;
;put needed values from Font Manager on	stack:
	phx	;bestSize
	phy	;wantSize
	pha	;progID
;
;get QD II's (first) 0-page:
	pha
	pha	;for result
	PushWord #0	;system
	PushWord #4	;QD II Tool Set Number
;
	_GetWAP
	pla	;QD II's (first) 0-page
	plx	;junk
;
	tcd	;now in QuickDrawTwoLand
;
	lda portRef
	pha
	lda portRef+2
	pha
;
	tdc
	clc
	adc #$200	;our (QD II's third) 0-page
	tcd
;
;get back the values:
	pla
	sta mPortRef+2
	pla
	sta mPortRef
	pla
	sta mUserID
	pla
	sta mWantSize
	pla
	sta mBestSize
;
	rtl
	ENDP





	title ' InitScaling'
****************************************************************
*
InitScaling	PROC
*
* This routine inits a bunch of vars to do the scaling.
*
*
* Inputs:
*	?
*
* Outputs:
*	?
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

;
	lda maxB
	inc a
	inc a
	sta SrcBufSize
;
	lda maxB
	jsl ScaleByte
	inc a
	inc a
	sta DstBufSize


* SrcBufSize and DstBufSize are set by the Font Manager before calling
* InitScaling.  They include a word of slop on each end for	each one
* (4 words of slop total).

	lda SrcBufSize
	clc
	adc DstBufSize	; leave size in A
****************************************************************
	asl a
	asl a
****************************************************************

* create the new handle

	pha	; save size of handle

	pha	; function result
	pha
	pea 0	; longint size
	pha
	Pushword mUserId	; whatever
	pea $8000	; attributes
	pha	; not used (Locinfo)
	pha
	_NewHandle
	pla
	plx
	sta ScratchHandle
	stx ScratchHandle+2

	lda [ScratchHandle]	; dereference it
	sta SrcBuf
	ldy #2
	lda [ScratchHandle],y
	sta SrcBuf+2

	ply	; size of buffer now in Y
	dey
	dey
	lda #0
ClearLoop	sta [SrcBuf],y
	dey
	dey
	bpl ClearLoop

	lda SrcBufSize	; retrieve src buf len
****************************************************************
	asl a
****************************************************************
	clc	; DstBuf is at end of Scratch
	adc SrcBuf
	sta DstBuf
	lda SrcBuf+2
	bcc NBPtr
	ina
NBPtr	sta DstBuf+2

	rtl

	ENDP


	title ' ScaleBits'
****************************************************************
*
ScaleBits	PROC
*
* Scales the one bit per pixels image.
*
*
* Inputs:
*   SrcHSize       Width in pixels of source
*   SrcLeft        First pixel to transfer (temp)
*   SrcBase        Points to the first byte in the source
*                  bit map. (StrikePtr)
*   SrcWidth       width in bytes of source bit map. (RowBytes)
*
*   DstHSize       Width in pixels of destination
*   DstLeft        First pixel to transfer (CurrPixel)
*   DstBase        Points to the first byte in the destination
*                  bit map (nStrikePtr)
*   DstWidth       Width in bytes of dest bit map. (newRowBytes)
*
* Outputs:
*	?
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

	lda DstHSize
	bne SomethingLeft
	rtl

SomethingLeft		;

* Save the current dbr here so can set it safely below.
	phb


* Set the appropriate stretching or shrinking routine.

	jsl SetupScaling	; set Horiz routine

* Initialize our endpoints and counters

	stz DstY
;
****  CHANGED TO WORK WITH EVEN BYTE BOUNDARIES THROUGHOUT
;

* Calculate SrcPtr as SrcBase + bytes(SrcLeft).  We always assume the
* top line of SrcRect matches SrcBase.

	lda SrcLeft
	lsr A
	lsr A
	lsr A
;
****  MAKE THIS EVEN:
;
	and #first15Bits
;
****  OK
;
	sta SrcLimit	;temporary storage
;
	clc
	adc SrcBase
	sta SrcPtr
	lda SrcBase+2
	bcc NBSrcBase
	ina
NBSrcBase	sta SrcPtr+2
;
	lda srcLeft
	clc
	adc srcHSize
	dec a
	lsr a
	lsr a
	lsr a
	and #first15Bits
	sec
	sbc SrcLimit
	sta RightPos
	inc a
	inc a
	sta SrcLimit	;the real thing
;

* Calculate DstPtr as DstBase + bytes(DstLeft)

	lda DstLeft
	lsr A
	lsr A
	lsr A
;
****  MAKE THIS EVEN, TOO:
;
	and #first15Bits
;
****  OK
;
	sta DstLimit	;temp storage
;
	clc

	adc DstBase
	sta DstPtr
	lda DstBase+2
	bcc NBDstBase
	ina
NBDstBase	sta DstPtr+2

	lda DstLeft
	clc
	adc DstHSize
	dec a
	lsr a
	lsr a
	lsr a
	and #first15Bits
	sec
	sbc DstLimit
	sta DstRightPos
	inc a
	inc a
	sta DstLimit	;really & truly
;
****  END OF CHANGES TO THIS ROUTINE - BHM  x6245  3/20/87
;

* Set the data bank	to the bank containing the dest pixels.

	pei DstPtr+1
	plb
	plb

* Start the real work in the middle.
  
	bra NBS1

* Get first scanline of Src into SrcBuf

NextSrc	lda SrcPtr	;increment SrcPtr to next scanline
	clc
	adc SrcWidth
	sta SrcPtr
	bcc NBS1
	inc SrcPtr+2
NBS1	ldy SrcLimit
	dey
	dey
SrcCopyLoop	lda [SrcPtr],y
	sta [SrcBuf],y	;SrcBuf contains one scanline of source
	dey
	dey
	bpl SrcCopyLoop
NextSrc2	lda VError
	clc
	adc DstVSize
	sta VError
	dea
	bpl SrcOk
MergeIt	jsl ToMerge
SrcOk		;
	lda [SrcBuf]	; mask the src on left and right
	and LeftMask
	sta [SrcBuf]
	ldy RightPos
	lda [SrcBuf],y
	and RightMask
	sta [SrcBuf],y
	jsl ToAction

	ldy DstRightPos	; try masking the right end of
	lda [DstBuf],y	; the dest
	and DstRightMask
	sta [DstBuf],y


* we've merged and stretched so now must put result into real
* dest buffer.

NxtMask		;
	ldy DstLimit	; move the words.
	dey
	dey
DstCopyLoop	lda [DstPtr],y
	ora [DstBuf],y
	sta [DstPtr],y
	dey
	dey
	bpl DstCopyLoop
	lda DstPtr	;increment DstPtr to next scanline
	clc
	adc DstWidth
	sta DstPtr
	bcc NBD1
	inc DstPtr+2
NBD1	lda DstY
	ina
	cmp DstVSize
	bpl Done
	sta DstY
	lda VError
	sec
	sbc SrcVSize	; subtract increment
	sta VError	; VError := VError - Denom.V

	bpl NxtMask
	bra NextSrc

* Entire Scaling complete. We're still on the first zero page, so use
* x to get rid of our scratch buffer, clear the carry, and go home.

Done	plb	; restore bank
	rtl
	ENDP



	title ' CleanUpScaling'
****************************************************************
*
CleanupScaling	PROC
*
* Disposes of the ScratchHandle
*
*
* Inputs:
*	ScratchHandle
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


	lxy ScratchHandle	;8-Mar-93 SS
	jsr DisposeAHandle

	rtl

	ENDP


	title ' SetupScaling'
****************************************************************
*
SetupScaling	PROC
*
* Calc horizontal fraction (if necessary) and case jump
*
*
*
* Inputs:
*	?
*
* Outputs:
*	?
*
* External Refs:
	import LMask
	import RMask
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


* Init error term for DDA

	lda SrcVSize	; vertical size of source
	lsr A
	eor #$FFFF
	ina
	sta VError	; VError := -Denom.V/2

* Now do the rest
;
****  ALTERED TO WORK ON WORD BOUNDARIES:
;
	lda SrcLeft	; start with left mask
	and #last4Bits
	asl A
	tax
	lda >LMask,x
	sta LeftMask
	lda SrcLeft	; now right mask
	clc
	adc SrcHSize
	and #last4Bits

	asl A
	tax
	lda >RMask,x
	sta RightMask
;
;
; Now calculate a dest right mask and dst right pos
	lda DstLeft
	clc
	adc DstHSize
	and #last4Bits

	asl A
	tax
	lda >RMask,x
	sta DstRightMask
;
;
	lda DstHSize
	cmp SrcHSize
	bne NotEqual
	lda DstLeft
	and #last4Bits
	pha
	lda SrcLeft
	and #last4Bits
	cmp 1,s
	beq SetCopy

SetShift	pla
	lda #ShiftIndex
	sta ActionIndex
	clc
	rtl

SetCopy	pla
	lda #CopyIndex
	sta ActionIndex
	clc
	rtl

NotEqual	pha	; FixRatio result
	pha
	bmi Shrinking
	lda #StretchIndex
	sta ActionIndex

	pei SrcHSize	; push denominator (Src width)
	pei DstHSize	; push numerator (Dst width)
	bra FixRatio

Shrinking	lda #ShrinkIndex
	sta ActionIndex

	pei DstHSize
	pei SrcHSize
FixRatio	_FixRatio
	pla	; this is the error	part
	sta HInc	; which we save
	pla	; this better be zero
	clc
	rtl

	ENDP



	title ' ToMerge'
****************************************************************
*
ToMerge	PROC
*
* ?
*
*
* Inputs:
*	?
*
* Outputs:
*	?
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


	lda SrcPtr	; first bump SrcPtr
	clc
	adc SrcWidth
	sta SrcPtr
	bcc StartMerging
	inc SrcPtr+2
StartMerging	ldy SrcLimit	; set up loop
	dey
	dey
SrcMerger	lda [SrcPtr],y	; get the current bits
	ora [SrcBuf],y	; retain all black (1's)
	sta [SrcBuf],y	; save the combination
	dey
	dey
	bpl SrcMerger
	lda VError
	clc
	adc DstVSize	; add destination size
	sta VError	; VError := VError + Numer.V
	dea
	bmi ToMerge	; loop while VError	<= 0
	rtl	; space keeper


	ENDP


	title ' ToAction'
****************************************************************
*
ToAction	PROC
*
* This is the routine that is called to do the stretching or
* or shrinking.  It uses the ActionIndex to transfer control
* to the appropriate routine.
*
* Inputs:
*	ActionIndex (on the 3rd direct page)
*
* Outputs:
*	none
*
* External Refs:
	import CopyText
	import ShiftText
	import StretchText
	import ShrinkText
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
*
* Change History
*
* 11 Jun 88	Steven Glass
*
* This routine replaces the routine "ToStuff" which used self
* modifying code to accomplish the same purpose.  This change
* makes it possible to run this code in ROM.
*
****************************************************************

	ldx ActionIndex
	jmp (ActionTable,X)
	
ActionTable	dc.w CopyText	; index is 0
	dc.w ShiftText	; index is 2
	dc.w StretchText	; index is 4
	dc.w ShrinkText	; index is 6
	
	ENDP


	title ' CopyText'
****************************************************************
*
CopyText	PROC
*
* We need to establish routines which will either (copy) or	
* (copy and shift) from src to destination.  
* These already exist.  Use them.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


	ldy SrcLimit
	dey
	dey
CopyLoop	lda [SrcBuf],y
	sta [DstBuf],y
	dey
	dey
	bpl CopyLoop
	rtl

	ENDP



	title ' ShiftText'
****************************************************************
*
ShiftText	PROC
*
* This routine takes the bits in the src part of src buffer	and
* moves them to the	dst part of dest buffer.
*
*
* Inputs:
*	?
*
* Outputs:
*	?
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************



	stz LastOut	; start by initializing this var
	ldy #0	; index into src and dest buffer

	lda SrcLeft	; look at which bit	in byte is
	and #last4Bits	; first to receive new data
	pha
	lda DstLeft	; look at which bit	in byte is
	and #last4Bits	; first to be transfered
	cmp 1,s	; if src is less or	equal to
	bcs NormalShift	; dest all is well

	clc
	adc #16
	sec
	sbc 1,s
	asl a
	sta HowFarToShift
	pla

StaggerLoop	lda [SrcBuf],y
	sta ThisWord
	ldx HowFarToShift
	jsl VXShiftOut
	sta ThisOut
	lda ThisWord
	ldx HowFarToShift
	jsl VXShiftStay
	ora LastOut
	dey
	dey
	bmi SkipThisOne
	sta [DstBuf],y
SkipThisOne	lda ThisOut
	sta LastOut
	iny	; bump by 2
	iny
	cpy DstLimit	; compare to dest limit to see if we
	bpl Done	; are done
	iny	; Not yet so bump again to point to
	iny	; next source
	bra StaggerLoop




NormalShift		;
	sec
	sbc 1,s
	asl a
	sta HowFarToShift

	pla


ShiftLoop	lda [SrcBuf],y
	sta ThisWord
	ldx HowFarToShift
	jsl VXShiftOut
	sta ThisOut
	lda ThisWord
	ldx HowFarToShift
	jsl VXShiftStay
	ora LastOut
	sta [DstBuf],y
	lda ThisOut
	sta LastOut
	iny
	iny
	cpy DstLimit
	bmi ShiftLoop
Done	rtl

	ENDP

	title ' ShrinkText'
****************************************************************
*
ShrinkText	PROC
*
* ?
*
*
* Inputs:
*	?
*
* Outputs:
*	?
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


;----------------------------------------------------------
;
; Initialize DstCnt	& DstWord
;
	lda DstLeft	; count depends on alignment
	and #last4Bits	; in destination
	eor #$000F
	inc a
	sta DstCnt
	stz DstWord	; dstword starts as	zero

;----------------------------------------------------------
;
; Initialize SrcCnt	and SrcWord
;
	lda SrcLeft
	and #last4Bits
	tax
	eor #$000F
	inc a
	sta SrcCnt
	lda [SrcBuf]
	xba
	cpx #0
	beq SkipThisShit
againagain	asl a
	dex
	bne againagain
SkipThisShit	sta SrcWord

;----------------------------------------------------------
;
; Initialize SrcCtr	and DstCtr
;
	ldy #2
	sty SrcCtr

	stz DstCtr

; initialize HError
	stz HError

; initialize fast HInc access to make XLoop below a tiny bit faster BAK 4/22/91
	lda HInc
	sta >HIncAccess+1

NextX	lda HError	; count how many src pixels go
	ldx #0	; into one dest pixel
	clc	; moved up (was just before adc) BAK 4/22/91
XLoop	inx
HIncAccess	adc #$FFFF	; add HInc, operand stuffed here from above BAK 4/22/91
	bcc XLoop
;
****  GO FOR IT, MARKS !!!
;
	sta HError	;added 3/23/87 - BHM  x6245
;
****  CROSS YOUR FINGERS . . . .
;

	stz SrcVal	; init num src pixels that are set
NextShift	asl SrcWord	; look at next bit in src word
	bcc NBSV	; if it is clear dont bump SrcVal
	inc SrcVal	; bump SrcVal
NBSV	dec SrcCnt	; are we done with src?
	bne CntOkay

	lda #16	; get more source word
	sta SrcCnt
	ldy SrcCtr
;
	lda [SrcBuf],y
;
****  ADDED 3/24/87	TO AVOID PICKING UP	INVALID SOURCE WORD:
;(this isn't the optimal way to make the change, but right
;now it's the easiest)
;
	cpy SrcLimit
	bmi SrcWordValid
;no, it's not - so feed a 0 in:
	lda #0
SrcWordValid		;
;
****  END OF CHANGE	- BHM  x6245
;
	iny
	iny
	sty SrcCtr
	xba
	sta SrcWord

CntOkay	dex	; have we collapsed	enough bits
	bne NextShift

	lda SrcVal	; if SrcVal not zero then we want
	cmp #1	; carry set here
	rol DstWord	; and rotated into dest word
	dec DstCnt
	bne NextX
	lda DstWord
	xba
	ldy DstCtr
	sta [DstBuf],y
	iny
	iny
	sty DstCtr
	cpy DstLimit
	bpl Done	; pray that we really are done

	stz DstWord
	lda #16
	sta DstCnt
	bra NextX

Done	rtl


	ENDP



	title ' StretchText'
****************************************************************
*
StretchText	PROC
*
* ?
*
*
* Inputs:
*	?
*
* Outputs:
*	?
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


;----------------------------------------------------------
;
; Initialize DstCnt	& DstWord
;
	lda DstLeft	; count depends on alignment
	and #last4Bits	; in destination
	eor #$000F
	inc a
	sta DstCnt
	stz DstWord	; dstword starts as	zero

;----------------------------------------------------------
;
; Initialize SrcCnt	and SrcWord
;
	lda SrcLeft
	and #last4Bits
	tax
	eor #$000F
	inc a
	sta SrcCnt
	lda [SrcBuf]
	xba
	cpx #0
	beq SkipThisShit
againagain	asl a
	dex
	bne againagain
SkipThisShit	sta SrcWord

;----------------------------------------------------------
;
; Initialize SrcCtr	and DstCtr
;
	ldy #2
	sty SrcCtr

	stz DstCtr

; initialize HError
	stz HError

;----------------------------------------------------------
;
;


	php	; put this on stack	to make things even
NextX	ldx #0	; Count Dst pixels
	lda HError
XLoop	inx
	clc
	adc HInc
	bcc XLoop
	sta Herror

	plp	; get this off stack
	asl SrcWord	; set carry from src word
	php	; put back on stack
	dec SrcCnt	; are we done with this src word
	bne RotateX	; no, rotate it in
	lda #16	; yes start next one
	sta SrcCnt

	ldy SrcCtr	; get next src word	from buffer
	lda [SrcBuf],y
	iny
	iny
	sty SrcCtr
	xba
	sta SrcWord
RotateX	plp	; now roll that last carry into
	php	; the current dest word as many times
	rol DstWord	; as required by x
	dec DstCnt
	bne NotEmpty
	lda DstWord
	xba
	ldy DstCtr
	sta [DstBuf],y
	iny
	iny
	sty DstCtr

	cpy DstLimit
	bpl Done

	stz DstWord	; set up for next pass
	lda #16
	sta DstCnt

NotEmpty	dex
	bne RotateX
	bra NextX

Done	plp
	rtl

	ENDP

*******************************************************************************
*
* Dispose a handle
*
* Inputs:	X,Y = handle
*
* Outputs:	none
*
*******************************************************************************
DisposeAHandle	PROC

	phy
	phx
	_DisposeHandle
	rts

	ENDP


	title ' LMask and RMask'
**********************************************************************
*
* Mask Tables
*
**********************************************************************
LMask	PROC
	DC.B %11111111,%11111111
	DC.B %01111111,%11111111
	DC.B %00111111,%11111111
	DC.B %00011111,%11111111
	DC.B %00001111,%11111111
	DC.B %00000111,%11111111
	DC.B %00000011,%11111111
	DC.B %00000001,%11111111
	DC.B %00000000,%11111111
	DC.B %00000000,%01111111
	DC.B %00000000,%00111111
	DC.B %00000000,%00011111
	DC.B %00000000,%00001111
	DC.B %00000000,%00000111
	DC.B %00000000,%00000011
	DC.B %00000000,%00000001
	ENDP

RMask	PROC
	DC.B %11111111,%11111111
	DC.B %10000000,%00000000
	DC.B %11000000,%00000000
	DC.B %11100000,%00000000
	DC.B %11110000,%00000000
	DC.B %11111000,%00000000
	DC.B %11111100,%00000000
	DC.B %11111110,%00000000
	DC.B %11111111,%00000000
	DC.B %11111111,%10000000
	DC.B %11111111,%11000000
	DC.B %11111111,%11100000
	DC.B %11111111,%11110000
	DC.B %11111111,%11111000
	DC.B %11111111,%11111100
	DC.B %11111111,%11111110
	ENDP






	END

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/FontMgr/special.macros b/IIGS.601.SRC/GSToolbox/FontMgr/special.macros
new file mode 100644
index 0000000..ffb1784
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/FontMgr/special.macros
@@ -0,0 +1 @@
+ MACRO
&lab PushZWord &Memory
&lab pei &Memory
 MEND
 MACRO
&lab PushZLong &Memory
&lab pei &Memory+2
 pei &Memory
 MEND
 MACRO
&lab PushZPtr &TheLabel
&lab pea 0
 clc
 tdc
 adc #&TheLabel
 pha
 MEND
	MACRO
&lab	PushPtr &addr
&lab
	dc.B $F4
	dc.W (&addr)>>16
	dc.B $F4
	dc.W &addr
	MEND

	macro
&lab	lxy &addr
&lab	ldx &addr
		ldy &addr+2
	mend
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/INTMATH/im.asm b/IIGS.601.SRC/GSToolbox/INTMATH/im.asm
new file mode 100644
index 0000000..9f7a3a0
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/INTMATH/im.asm
@@ -0,0 +1 @@
+	title 'Integer      Math         GS ROM 3.0'
********************************************************
*		               *
*                Integer Math	               *
*		               *
********************************************************


********************************************************
*		               *
*              Copyright (C) 1985-1989	               *
*              Apple Computer, Inc.	               *
*              All Rights Reserved	               *
*		               *
********************************************************


**********************************************************************
*
* Change History
*
* 30 Mar 89	Steven Glass
*
* Fixed bug in Long2Dec
*
*
**********************************************************************


	include 'all.macros'

****************************************************************
*
* INTEGER MATH TOOLS MAIN CODE SEGMENT
*
****************************************************************


IMVerNum	equ $0300	;Version 3.0




****************************************************************
*
* DATA
*
****************************************************************


BadParam	equ $0B01
BadChar	equ $0B02
Overflow	equ $0B03
ShortStr	equ $0B04



;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

	IMPORT EndCall10
	IMPORT EndCall12
	IMPORT EndCall4
	IMPORT EndCall6
	IMPORT EndCall8
	IMPORT ErrOut10
	IMPORT ErrOut12
	IMPORT ErrOut4
	IMPORT ErrOut6
	IMPORT ErrOut8
	IMPORT oEndCall0
	IMPORT oEndCall2
	IMPORT oErrOut0

;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

	ENTRY Bin2Hex
	ENTRY Dec2Bin
	ENTRY Dec2Int
	ENTRY Dec2Long
	ENTRY Fix2Frac
	ENTRY Fix2Long
	ENTRY Fix2X
	ENTRY FixATan2
	ENTRY FixDiv
	ENTRY FixMul
	ENTRY FixRatio
	ENTRY FixRound
	ENTRY Frac2Fix
	ENTRY Frac2X
	ENTRY FracCos
	ENTRY FracDiv
	ENTRY FracMul
	ENTRY FracSin
	ENTRY FracSqrt
	ENTRY Hex2Bin
	ENTRY Hex2Int
	ENTRY Hex2Long
	ENTRY HexIt
	ENTRY HiWord
	ENTRY IMActive
	ENTRY IMVersion
	ENTRY Int2Dec
	ENTRY Int2Hex
	ENTRY LoWord
	ENTRY Long2Dec
	ENTRY Long2Fix
	ENTRY Long2Hex
	ENTRY LongDiv
	ENTRY LongMul
	ENTRY Multiply
	ENTRY SDivide
	ENTRY UDIV
	ENTRY UDivide
	ENTRY X2Fix
	ENTRY X2Frac

****************************************************************
*
* CALL TABLE
*
****************************************************************

	EXPORT IMCallTable
IMCallTable	PROC
	DC.L (TheEnd-IMCallTable)/4
	DC.L oEndCall0-1	;power up init
	DC.L oEndCall0-1	;application startup
	DC.L oEndCall0-1	;application shutdown
	DC.L IMVersion-1
	DC.L oEndCall0-1	;reset
	DC.L IMActive-1
	DC.L oEndCall0-1	;reserved
	DC.L oEndCall0-1	;reserved
	DC.L Multiply-1
	DC.L SDivide-1
	DC.L UDivide-1
	DC.L LongMul-1
	DC.L LongDiv-1
	DC.L FixRatio-1
	DC.L FixMul-1
	DC.L FracMul-1
	DC.L FixDiv-1
	DC.L FracDiv-1
	DC.L FixRound-1
	DC.L FracSqrt-1
	DC.L FracCos-1
	DC.L FracSin-1
	DC.L FixATan2-1
	DC.L HiWord-1
	DC.L LoWord-1
	DC.L Long2Fix-1
	DC.L Fix2Long-1
	DC.L Fix2Frac-1
	DC.L Frac2Fix-1
	DC.L Fix2X-1
	DC.L Frac2X-1
	DC.L X2Fix-1
	DC.L X2Frac-1
	DC.L Int2Hex-1
	DC.L Long2Hex-1
	DC.L Hex2Int-1
	DC.L Hex2Long-1
	DC.L Int2Dec-1
	DC.L Long2Dec-1
	DC.L Dec2Int-1
	DC.L Dec2Long-1
	DC.L HexIt-1
TheEnd		; 
	ENDP



****************************************************************
*
* NotYet
*
****************************************************************

	EXPORT NotYet
NotYet	PROC
	ldx #$FFFF
	jmp oErrOut0
	ENDP



****************************************************************
*
* IMVersion
*
****************************************************************

	EXPORT IMVersion
IMVersion	PROC
	lda #IMVerNum
	sta 7,s
	jmp oEndCall0
	ENDP



****************************************************************
*
* IMActive
*
****************************************************************

	EXPORT IMActive
IMActive	PROC
	lda #$FFFF
	sta 7,s
	jmp oEndCall0
	ENDP



;                copy intmath/math
****************************************************************
*
* Multiply
*
* Multiplies two values on the stack.
*
* Low word is the signed result of multiplication.
* Two words together is the unsigned 32	bit result.
*
* The stack looks like this on input:
*
*      Result	 8-B
*      M1	 6-7
*      M2	 4-5
*      Return	 1-3
*
* Change History:
*
* January 28, 1987	  Steven Glass
*
*      New algoithm	using a-reg instead	of direct page for
*      holding high	word of result saves lots of cycles.
*      Thanks to Chris Jewell for the suggestion and Jim Merrit
*      for forewarding it.
*
* February 10, 1987	  Steven Glass, Fern Bachman, Mike Askins
*
*      Chris's algorithmn did not work.  We made it work.
*
****************************************************************
	EXPORT Multiply
Multiply	PROC
DReg	equ 1	; 1
RTL1	equ DReg+2	; 3
RTL2	equ RTL1+3	; 6
M2	equ RTL2+3	; 9
M1	equ M2+2	; B
Result	equ M1+2	; D


	phd	; save direct
	tsc	; make stack into zp
	tcd

	lda M2	; move second input	into
	sta Result	; result

	lda #0	; zero a-reg

	ldy #17	; start y (our counter and 17)
	clc

Mult1		; 
	ror a
	ror Result
	bcc Mult2
	clc
	adc M1

Mult2		; 
	dey
	bne Mult1
	sta Result+2

	jmp EndCall4

	ENDP



****************************************************************
*
* UDivide
*
* Divides one 16 bit value by another and returns a dividend
* and remainder.
*
* Inputs and result	are passed on the stack.
*
* The stack on entry is as follows:
*
*      Remainder	10-11
*      Quotient	8-9
*      Numerator	6-7
*      Denom	4-5
*      Return	1-3
*
* This routine sets	up the stack, moves	the pointer to x.
* sets the data bank register to 0 and calls UDIV
*
****************************************************************
	EXPORT UDivide
UDivide	PROC
	phd
	tsc
	tcd
	jsl UDIV
	bcs UDivErr
	jmp EndCall4
UDivErr		; 
	ldx #BadParam	; input parm error
	jmp ErrOut4

	ENDP



****************************************************************
*
* SDivide
*
* Divides one 16 bit value by another and returns a dividend
* and remainder.
*
* Inputs and result	are passed on the stack.
*
* The stack on entry is as follows:
*
*      Remainder	10-11
*      Quotient	8-9
*      Numerator	6-7
*      Denom	4-5
*      Return	1-3
*
* This routine sets	up the stack, moves	the pointer to x.
* sets the data bank register to 0 and calls UDIV
*
* Change History
*
* 9 Feb 87     Steven Glass
*
*       The error exit path now cleans up the stack.
*
****************************************************************
	EXPORT SDivide
SDivide	PROC

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
Denom	equ RTL2+3
Numerator	equ Denom+2
Quotient	equ Numerator+2
Remainder	equ Quotient+2


	phd
	tsc
	tcd

*
* Figure out the signs of the results:	Remainder is always	the
* same sign as the numerator.  Quotient	sign is Num.Sign xor
* Denom.Sign
*
	lda Numerator	; Get num
	pha	; put quot sign on stack
	eor Denom	; eor with denom
	pha	; push on stack
* Now need absolute	values of operands
	lda Numerator
	bpl NoChange1
	eor #$FFFF
	inc a
	sta Numerator
NoChange1	lda Denom
	bpl NoChange2
	eor #$FFFF
	inc a
	sta Denom
NoChange2		; 
	jsl UDIV	; do the divide
	bcs ErrorExit
	pla	; get quot sign
	bpl NoChange3
	lda Quotient
	eor #$FFFF
	inc a
	sta Quotient
NoChange3	pla	; get remainder sign
	bpl NoChange4
	lda Remainder
	eor #$FFFF
	inc a
	sta Remainder
NoChange4		; 
	jmp EndCall4
ErrorExit		; 
	pla	; fix stack (added 9 Feb 87 by SEG)
	pla
	ldx #BadParam
	jmp ErrOut4

	ENDP



****************************************************************
*
* UDIV
*
* This is called by	both UDivide and SDivide to do the actual
* dividing.  The XRegister points to variables in the current
* data bank (0).
*
****************************************************************
	EXPORT UDIV
UDIV	PROC
OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
Denom	equ RTL2+3
Numerator	equ Denom+2
Quotient	equ Numerator+2
Remainder	equ Quotient+2

	stz Quotient+2	; Zero high result
	lda Denom	; Divide by zero ?
	bne GoOn	; Nope
	sec	; divide by zero *
	rtl

GoOn		; 
	lda Numerator	; move numerator into
	sta Quotient	; Result
	ldy #16
	sec	; set this to start?
DivLoop	rol Quotient
	rol Quotient+2
	sec
	lda Quotient+2
	sbc Denom
	bcc DecCt
	sta Quotient+2
DecCt	dey
	bne DivLoop
	rol Quotient	; Shift last carry through for Quot
	clc
	rtl

	ENDP



****************************************************************
*
* LongMul
*
* Multiplies two values on the stack.
* Is called with a JSL after pushing the values and result onto
* the stack.
*
* Value returned is	in place of inputs.
* Low word is the signed result of multiplication.
* Two words together is the unsigned 32	bit result.
*
* The stack looks like this:
*
*      Result  12-19
*      M1      8-11
*      M2      4-7
*      Return  1-3
*
****************************************************************
	EXPORT LongMul
LongMul	PROC

DReg	equ 1
RTL1	equ DReg+2
RTL2	equ RTL1+3
M2	equ RTL2+3
M1	equ M2+4
LResult	equ M1+4

	phd
	tsc
	tcd

	stz LResult+4	; zero the high words of
	stz LResult+6	; the result

	lda M2
	sta LResult
	lda M2+2
	sta LResult+2

	ldy #33	; number of bits in	multiplier + 1
	clc
MulLp	ror LResult+6
	ror LResult+4
	ror LResult+2
	ror LResult
	bcc DecCnt
	clc
	lda M1
	adc LResult+4
	sta LResult+4
	lda M1+2
	adc LResult+6
	sta LResult+6
DecCnt	dey
	bne MulLp
	jmp EndCall8

	ENDP



****************************************************************
*
* LongDiv
*
* Stack Looks Like:
*
*    Remainder   16-19
*    Quotient    12-15
*    Numerator   8-11
*    Denom       4-7
*    Return      1-3
*
****************************************************************
	EXPORT LongDiv
LongDiv	PROC

DReg	equ 1
RTL1	equ DReg+2
RTL2	equ RTL1+3
LDenom	equ RTL2+3
LNum	equ LDenom+4
LQuot	equ LNum+4
LRem	equ LQuot+4

	phd	; save direct register
	tsc	; get stack pointer
	tcd	; set direct register
	lda LNum	; move numerator into
	sta LQuot	; Result
	lda LNum+2
	sta LQuot+2
	stz LQuot+4	; zero high result
	stz LQuot+6
	lda LDenom
	ora LDenom+2
	bne GoOn0
	sec	; divide by zero *
	bra Done0
GoOn0		; 
	ldy #32
	sec	; set this to start?
DivLp	rol LQuot
	rol LQuot+2
	rol LQuot+4
	rol LQuot+6
	sec
	lda LQuot+4
	sbc LDenom
	tax
	lda LQuot+6
	sbc LDenom+2
	bcc DecrCnt
	sta LQuot+6
	stx LQuot+4
DecrCnt	dey
	bne DivLp
	rol LQuot	; Shift carry through for Quot
	rol LQuot+2
	jmp EndCall8
Done0		; 
	ldx #BadParam
	jmp ErrOut8

	ENDP

****************************************************************
*
* FixRatio
*
* Takes two integers and returns a fixed
*
* The stack is as follows when the function is called:
*
*     Space for Result
*     Numerator
*     Denom
*
* The FixRatio consists of two words:
*     High Word = Numerator DIV Denom
*     Low word  = (Numerator MOD Denom)	* 2^16 DIV Denom
*
*
* Change History
*
* August 7, 1986	    Bug when result	was negative fixed by
*	    Kenton Hanson.
*
*
****************************************************************
	EXPORT FixRatio
FixRatio	PROC
OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
Denom	equ RTL2+3
Numerator	equ Denom+2
Result	equ Numerator+2


	phd	; save the direct register
	tsc	; get stack pointer
	tcd	; put it in direct register

	lda Denom	; check for div by zero
	bne GoOnx
	lda #$7FFF
	sta Result+2
	bra TheEnd

GoOnx	eor Numerator	; determine sign of
	pha	; high bit is sign

	pea 0	; push space for result
	pea 0

	lda Numerator
	bpl NumPos
	eor #$FFFF
	inc a
NumPos	pha
	lda Denom
	bpl DenPos
	eor #$FFFF
	inc a
DenPos	pha

	_UDivide

	pla	; get result of unsigned divide
	sta Result+2	; to zero page
	plx	; get remainder in x

	pea 0	; make room for result of
	pea 0	; long divide
	pea 0
	pea 0

	phx	; put remainder * 2^16 on stack
	pea 0

	pea 0
	lda Denom
	bpl Pos2
	eor #$FFFF
	inc a
Pos2	pha

	_LongDivide

	pla	; get low word of result
	sta Result	;
	pla	; ignore high word
	pla	; ignore remainder
	pla
	pla	; get sign off stack
	bpl TheEnd	; NoInversion
	lda #0	;<klh, 17Jul86, was	#1>
	sec
	sbc Result
	sta Result
	lda #0
	sbc Result+2
	sta Result+2
TheEnd		; 
	jmp EndCall4

	ENDP
;                copy intmath/math2
****************************************************************
*
* FUNCTION FixMul (x, y: Fix): Fix;
* FUNCTION FracMul (x, y: Fract): Fract;
*
* Multiplies two values on the stack.
* Is called with a JSL after pushing the values and result onto
* the stack.
*
* FUNCTION FixDiv (x, y: Fix): Fix;
* FUNCTION FracxDiv	(x, y: Fract): Fract;
*
* Same as FracMul, except returns x divided by y
*
* The stack looks like this on input:
*
*      Result	 C-F
*      M1	 8-B
*      M2	 4-7
*      Return	 1-3
*
****************************************************************
	EXPORT FixDiv
FixDiv	PROC
DReg	equ 1
RTL1	equ DReg+2
RTL2	equ RTL1+3
M2	equ RTL2+3
M1	equ M2+4
Result	equ M1+4

	ldy #16
	bra FMulDiv

	EXPORT FracDiv
FracDiv		;       

	ldy #30
	bra FMulDiv

	EXPORT FixMul
FixMul		;       

	ldy #0
	bra FMulDiv

	EXPORT FracMul
FracMul		;       

	ldy #-31

FMulDiv	phd	; save direct reg
	tsc	; set direct reg to
	tcd	; point to place on	stack
	stz Result	; zero the Result
	stz Result+2

	lda M1+2
	eor M2+2
	pha	; push eor of signs	onto stack

	lda M1+2
	bpl bplM1
	lda #00
	sec
	sbc M1
	sta M1
	lda #00
	sbc M1+2
	sta M1+2
bplM1	lda M2+2
	bpl MDSwtch
	lda #00
	sec
	sbc M2
	sta M2
	lda #00
	sbc M2+2
	sta M2+2
MDSwtch	tya
	bne NotFxMul

	ldy #32	; note a := 0
fxLoop	asl Result
	rol Result+2
	rol a
	bmi fixOver
	rol M2
	rol M2+2
	bcc decIt
	tax	; save a
	clc
	lda M1
	adc Result
	sta Result
	lda M1+2
	adc Result+2
	sta Result+2
	txa	; restore a
	bcc decIt
	inc a
	bmi fixOver
decIt	dey
	bne fxLoop

	asl Result	; sets carry for bcs below
	ldx Result+2
	stx Result
	sta Result+2
	bcs Rnding	; round up
	bcc ChkSign	; no rounding, check sign of output

NotFxMul	bpl GoDvd

MulLoop	lsr Result+2
	ror Result
	ror M2+2
	ror M2
	bcc DecCount
	clc
lastAdd	lda M1
	adc Result
	sta Result
	lda M1+2
	adc Result+2
	sta Result+2
DecCount	iny
	bmi MulLoop
	bne roundIt
	lsr M2
	bcc roundIt
	asl M1	;align M1 for the final add
	rol M1+2
	bcc lastAdd
fixOver	stz Result	;fix overflow
	lda #$8000
	sta Result+2
	pla	;get sign of result
	bmi finMul
	dec Result
	dec Result+2
	bra finMul

roundIt	bit M2+2
	bpl NoRnding
Rnding	inc Result
	bne NoRnding
	inc Result+2
NoRnding	bit Result+2
	bmi fixOver
ChkSign	pla
	bpl finMul
	lda #00
	sec
	sbc Result
	sta Result
	lda #00
	sbc Result+2
	sta Result+2
finMul		; 
	jmp EndCall8

GoDvd	lda M1
	sta Result
	stz M1
	lda M1+2
	sta Result+2
	stz M1+2

	phy	;save y
	ldy #32
	clc
DvLoop1	rol Result
	rol Result+2
	rol M1
	rol M1+2
	sec
	lda M1
	sbc M2
	tax
	lda M1+2
	sbc M2+2
	bcc NoGo1
	sta M1+2
	stx M1
NoGo1	dey
	bne DvLoop1

	ply	;restore y
DvLoop2	rol Result
	rol Result+2
	bmi fixOver	;result overflowed
	rol M1
	rol M1+2
	sec
	lda M1
	sbc M2
	tax
	lda M1+2
	sbc M2+2
	bcc NoGo2
	sta M1+2
	stx M1
NoGo2	dey
	bpl DvLoop2
	bcs Rnding	; round result
	bcc ChkSign	; no rounding

	ENDP







****************************************************************
*
* PROCEDURE Fix2X (f: Fixed; var x: Extended );
* PROCEDURE Frac2X (f: Fract; var x: Extended );
*
*    Note:  Assumes	Extended numbers are normalized
*
* The stack looks like this on input:
*
*      Fixed or Frac 8-B
*      A2	 4-7	;address of an Extended
*      Return	 1-3
*
****************************************************************

	EXPORT Fix2X
Fix2X	PROC

DReg	equ 1
RTL1	equ DReg+2
RTL2	equ RTL1+3
A2	equ RTL2+3
M1	equ A2+4

	ldx #$400e	; threshold extended exponent for Fixed
	bra F2X

	EXPORT Frac2X
Frac2X		;       

	ldx #$4000	; threshold extended exponent for Fract

F2X	phd	; save direct reg
	tsc	; set direct reg to
	tcd	; point to place on	stack

	lda #0
	tay
	sta [<A2],y
	iny
	iny
	sta [<A2],y
	iny
	iny

	lda M1+2
	pha	; save sign
	bpl ZeroChk
	lda #00
	sec
	sbc M1
	sta M1
	lda #00
	sbc M1+2
	sta M1+2
	bra Nrml

ZeroChk	bne Nrml
	lda M1
	bne NLoop	; begin normalization

	sta [<A2],y
	iny
	iny
	sta [<A2],y
	iny
	iny
	sta [<A2],y
	pla	; pull sign of stack
	bra FinF2X

NLoop	dex	; decrement exponent
	asl M1
	rol M1+2
Nrml	bpl NLoop


	lda M1
	sta [<A2],y	; set least signficant word of Fixed
	iny
	iny
	lda M1+2
	sta [<A2],y	; set most signficant word of Fixed
	iny
	iny
	pla	; get sign from stack
	sta M1+2
	txa	; put exponent into	a
	asl a
	asl M1+2	; get sign into carry
	ror a	; shift sign into a
	sta [<A2],y	; set exponent and sign
finF2X		; 
	jmp EndCall8


	ENDP

****************************************************************
*
* FUNCTION FixRound	(f: fixed): integer;
*
* The stack looks like this on input:
*
*      Result	 8-9
*      A1	 4-7
*      Return	 1-3
*
****************************************************************
	EXPORT FixRound
FixRound	PROC

DReg	equ 1
RTL1	equ DReg+2
RTL2	equ RTL1+3
A1	equ RTL2+3
Result	equ A1+4

	phd	; save direct reg
	tsc	; set direct reg to
	tcd	; point to place on	stack

	ldx A1+2
	stx Result

	lda A1
	bpl FinFxRnd	; no rounding bit, done
	inx
	cpx #$8000
	beq FinFxRnd	; overflow, do not round up
	stx Result

FinFxRnd		; 
	jmp EndCall4

	ENDP

****************************************************************
*
* FUNCTION FracSqrt	(x: Fract): Fract;
*
* Square root of x.	 In this case, the leading two bits of Fract are BOTH
* taken to be integer, that is, the value is interpreted as	unsigned.
*
* The stack looks like this on input:
*
*      Result	 8-B
*      M1	 4-7
*      Return	 1-3
*
****************************************************************

	EXPORT FracSqrt
FracSqrt	PROC

DReg	equ 1
RTL1	equ DReg+2
RTL2	equ RTL1+3
M1	equ RTL2+3
Result	equ M1+4
mask	equ Result
mask2	equ M1

	phd	; save direct reg
	tsc	; set direct reg to
	tcd	; point to place on	stack

	stz Result+2
	sec
	lda M1+2
	sbc #$4000
	bcc LtOne
	sta M1+2
	lda #$4000
	sta Result+2
LtOne	lda #$1000	; initialize mask
	sta mask
RootLoop	sec
	lda M1+2
	sbc Result+2
	bcc NoGo
	sbc mask
	bcc NoGo
	sta M1+2	; subtract succeeded, save result
	clc
	lda Result+2
	adc mask	; update Result
	adc mask
	sta Result+2
NoGo	asl M1
	rol M1+2
	lsr mask
	bcc RootLoop

	lda M1
	tax	; M1 will now be stored in x
	stz mask2	; location of M1 now used for mask2
	ror mask2
SqrtLoop	sec
	sbc Result
	tay	; save low intermediate result
	lda M1+2
	sbc Result+2
	bcc NoGos	; does not divide
	pha	; store hi result temp on stack
	tya
	sbc mask2	; subtract mask
	tay
	pla	; restore hi result	from stack
	sbc #$0000
	bcc NoGos	; subtraction caused negative value
	sta M1+2	; subtract succeeded, save result
	tyx	; sty M1, that is, x
	clc
	lda Result
	adc mask2	; update Result
	adc mask2
	sta Result
	bcc NoGos
	inc Result+2
NoGos	txa
	asl a
	tax
	rol M1+2
	lsr mask2
	bcc SqrtLoop

	sec	; need two more bits
	sbc Result
	tay	; save low intermediate result
	lda M1+2
	sbc Result+2
	bcc ToGos	; does not divide
	pha	; store hi result temp on stack
	lda mask2	; lda 0
	sbc #$8000	; subtract mask
	tya
	sbc mask2	; subtract 0
	tay
	pla	; restore hi result	from stack
	sbc mask2	; subtract 0
	bcc ToGos	; subtraction caused negative value
	sta M1+2	; subtract succeeded, save result
	tyx	; sty M1, that is, x
	inc Result
	bne ToGos
	inc Result+2
ToGos	txa
	rol a	; Note carry is set	iff subtraction
	rol M1+2	; was successful

	sec	; determine round bit
	sbc Result
	tay	; save low intermediate result
	lda M1+2
	sbc Result+2
	bcc EndSqrt	; does not divide
	pha	; store hi result temp on stack
	lda mask2
	sbc #$4000	; subtract last mask
	tya
	sbc mask2	; subtract 0
	pla	; restore hi result	from stack
	sbc mask2	; subtract 0
	bcc EndSqrt	; subtraction caused negative value
	inc Result
	bne EndSqrt
	inc Result+2

EndSqrt		; 
	jmp EndCall4

	ENDP



****************************************************************
*
* FUNCTION FracCos (x: Fixed): Fixed;
* FUNCTION FracSin (x: Fixed): Fixed;
*
* Returns the Cos or Sin of argument (radians)
*
* The stack looks like this on input:
*
*      Result	 8-B
*      M1	 4-7
*      Return	 1-3
*
****************************************************************
	EXPORT FracCos
FracCos	PROC
DReg	equ 1
RTL1	equ DReg+2
RTL2	equ RTL1+3
M1	equ RTL2+3
Result	equ M1+4

	phd	; save direct reg
	tsc	; set direct reg to
	tcd	; point to place on	stack

	ldx #2
	bit M1+2
	bmi Negate
	bpl Reduce

	EXPORT FracSin
FracSin		;       
	phd	; save direct reg
	tsc	; set direct reg to
	tcd	; point to place on	stack

	ldx #0
	bit M1+2
	bpl Reduce
	ldx #4
Negate	sec
	lda #00
	sbc M1
	sta M1
	lda #00
	sbc M1+2
	sta M1+2

Reduce	ldy #$10	;16 bits of division necessary
RemLoop	sec
	lda M1+2
	sbc #$6488	;PI/2 (when shifted	14 bits to right)
	bmi tooLarge
	sta M1+2
tooLarge	rol M1	;shift in result
	rol M1+2
	dey
	bne RemLoop

	clc
	txa
	adc M1	; remainder + phase	shift
	pha	; save on stack
	lsr a
	bcc at4
	lda #$c910	; M1 := PI/4 - M1
	sbc M1+2
	sta M1+2
at4	stz M1
	lsr M1+2	; Fixed to Frac
	ror M1
	lsr M1+2
	ror M1
	lsr M1+2
	ror M1

	pha	; push space for return result sqr(x/2)
	pha
	pei M1+2
	pei M1
	pei M1+2
	pei M1
	_FracMul

	ply	; x2 := (x/2)^2
	sty Result
	plx
	stx Result+2

	pla	; get phase shift
	pha
	inc a
	and #$0002
	bne Cos

	pha	; x2*sn2
	pha
	phx
	phy
	pea $10A2
	pea $08E5
	_FracMul

	clc	; sn1 + x2*sn2
	pla
	adc #$314D
	tay
	pla
	adc #$AAB3
	pha	; x2*(sn1 + x2*sn2)
	pha
	pha
	phy
	pei Result+2
	pei Result
	_FracMul

	clc	; sn0 + x2*(xn1 + x2*sn2)
	pla
	adc #$D609
	tay
	pla
	adc #$7FFF
	pha	; (x/2)*(sn0 + x2*(sn1 + x2*sn2))
	pha
	pha
	phy
	pei M1+2
	pei M1
	_FracMul

	ply
	sty Result
	plx
	stx Result+2

	bra ckSign

Cos	pha	; x2*cs3
	pha
	phx
	phy
	pea $FA6E
	pea $2A42
	_FracMul

	clc	; cs2 + x2*cs3
	pla
	adc #$F29A
	tay
	pla
	adc #$2AA7
	pha	; x2*(cs2 + x2*cs3)
	pha
	pha
	phy
	pei Result+2
	pei Result
	_FracMul

	clc	; cs1 + x2*(cs2 + x2*cs3)
	pla
	adc #$11A7
	tay
	pla
	adc #$8000
	pha	; x2*(cs1 + x2*(cs2	+ x2*cs3))
	pha
	pha
	phy
	pei Result+2
	pei Result
	_FracMul

	clc	; 1.0 + x2*(cs1 + x2*(cs2 + x2*cs3))
	pla
	sta Result
	pla
	adc #$4000
	sta Result+2

ckSign	pla	; retrieve phase shift
	and #$0004
	beq EndCsSn
	sec
	lda #$0000
	sbc Result
	sta Result
	lda #$0000
	sbc Result+2
	sta Result+2

EndCsSn		; 
	jmp EndCall4

	ENDP

****************************************************************
*
* FUNCTION FixATan2	(x, y: Fract): Fixed;
*
* Returns the fixed	angle (radians [-PI	to PI]) to the point x, y.
*
* The stack looks like this on input:
*
*      Result	 C-F
*      M1	 8-B
*      M2	 4-7
*      Return	 1-3
*
****************************************************************
	EXPORT FixAtan2
FixAtan2	PROC
DReg	equ 1
RTL1	equ DReg+2
RTL2	equ RTL1+3
M2	equ RTL2+3
M1	equ M2+4
Result	equ M1+4

	phd	; save direct reg
	tsc	; set direct reg to
	tcd	; point to place on	stack
	stz Result	; zero the Result

	lda M2+2	; get y
	asl a
	ror Result
	bpl bplM2
	lda #00	; y := |y|
	sec
	sbc M2
	sta M2
	lda #00
	sbc M2+2
	sta M2+2
bplM2	lda M1+2	; get x
	asl a
	ror Result
	bpl bplM1
	lda #00	; x := |x|
	sec
	sbc M1
	sta M1
	lda #00
	sbc M1+2
	sta M1+2
bplM1	sec
	lda M1
	sbc M2
	lda M1+2
	sbc M2+2
	ror Result	; carry is set iff |x| >= |y|
	pei Result	; save reduction information on stack

	stz Result+2	; initialize result
	lda M1+2	; check for zero argument
	ora M1
	bne ckM2
ZeroNum	stz Result
	brl NoRnd	; no polynomial evaluation
ckM2	lda M2+2
	ora M2
	beq ZeroNum
	pha	; push space for return
	pha
	lda Result
	bmi YoverX	; argument reduction is y/x

	pei M1+2	; argument reduction is x/y
	pei M1
	pei M2+2
	pei M2
	bra DivIt

YoverX	pei M2+2
	pei M2
	pei M1+2
	pei M1

DivIt	_FracDiv

	ply
	sty M2	; store ratio in M2
	plx
	stx M2+2

	pha
	pha
	phx
	phy
	phx
	phy

	_FracMul

	ply
	sty M1	; store x^2 in M1
	plx
	stx M1+2

	pha
	pha
	phx
	phy
	pea $FF3F
	pea $FE62
	_FracMul

	clc
	pla
	adc #$92FE
	tay
	pla
	adc #$035E
	pha
	pha
	pha
	phy
	pei M1+2
	pei M1
	_FracMul

	clc
	pla
	adc #$77F2
	tay
	pla
	adc #$F88C
	pha
	pha
	pha
	phy
	pei M1+2
	pei M1
	_FracMul

	clc
	pla
	adc #$F72C
	tay
	pla
	adc #$0C62
	pha
	pha
	pha
	phy
	pei M1+2
	pei M1
	_FracMul

	clc
	pla
	adc #$4EBE
	tay
	pla
	adc #$EAB6
	pha
	pha
	pha
	phy
	pei M1+2
	pei M1
	_FracMul

	clc
	pla
	adc #$A073
	tay
	pla
	adc #$3FFF
	pha
	pha
	pha
	phy
	pei M2+2
	pei M2
	_FracMul

	pla	; get result
	ply
	sty Result
	asl a	; Frac2Fix
	rol Result
	rol Result+2
	asl a
	rol Result
	rol Result+2
	asl a
	bcc noRnd	; check for rounding
	inc Result
	bne noRnd
	inc Result+2

noRnd	pla	; get reduction information from stack
	asl a
	sta M1
	bcs at2	; |x| <= |y|
	lda #$9220	; Result := PI/2 - Result
	sbc Result
	sta Result
	lda #$0001
	sbc Result+2
	sta Result+2
at2	asl M1
	bcc at1	; x was postive
	lda #$2440	; Result := PI - Result
	sbc Result
	sta Result
	lda #$0003
	sbc Result+2
	sta Result+2
at1	asl M1
	bcc EndATan2	; y was postive
	lda #$0000
	sbc Result	; Result := -Result
	sta Result
	lda #$0000
	sbc Result+2
	sta Result+2
EndAtan2		; 
	jmp EndCall8


*        sn0     DC	     H'09 d6 ff 7f'
*                DC	     H'4d 31 b3 aa'
*                DC	     H'e5 08 a2 10'

*        cs0     DC	     H'00 00 00 40'
*                DC	     H'a7 11 00 80'
*                DC	     H'9a f2 a7 2a'
*                DC	     H'42 2a 6e fa'

*        at0     DC	     H'73 a0 ff 3f'
*                DC	     H'be 4e b6 ea'
*                DC	     H'2c f7 62 0c'
*                DC	     H'f2 77 8c f8'
*                DC	     H'fe 92 5e 03'
*                DC	     H'62 fe 3f ff'

	ENDP







****************************************************************
*
* FUNCTION HiWord (l: long): integer;
* FUNCTION LoWord (l: long): integer;
*
* The stack looks like this on input:
*
*      Result	 8-9
*      A1	 4-7
*      Return	 1-3
*
****************************************************************

	EXPORT HiWord
HiWord	PROC

DReg	equ 1
RTL1	equ DReg+2
RTL2	equ RTL1+3
A1	equ RTL2+3
Result	equ A1+4

	phd	; save direct reg
	tsc	; set direct reg to
	tcd	; point to place on	stack

	lda A1+2
	bra StuffInt

	EXPORT LoWord
LoWord		;       

	phd	; save direct reg
	tsc	; set direct reg to
	tcd	; point to place on	stack

	lda A1

StuffInt	sta Result


	jmp EndCall4

	ENDP

****************************************************************
*
* FUNCTION Long2Fix	(l: long): Fixed;
* FUNCTION Fix2Frac	(f: Fixed): Fract;
*
* The stack looks like this on input:
*
*      Result	 8-B
*      A1	 4-7
*      Return	 1-3
*
****************************************************************

	EXPORT Long2Fix
Long2Fix	PROC

DReg	equ 1
RTL1	equ DReg+2
RTL2	equ RTL1+3
A1	equ RTL2+3
Result	equ A1+4

	ldx #15
	bra ShftLeft

	EXPORT Fix2Frac
Fix2Frac		;       

	ldx #13

ShftLeft	phd	; save direct reg
	tsc	; set direct reg to
	tcd	; point to place on	stack

	lda A1
	sta Result
	lda A1+2
	sta Result+2
	pha	; save sign
	bpl Xloop
	lda #00
	sec
	sbc Result
	sta Result
	lda #00
	sbc Result+2
	sta Result+2
	bmi MaxIt	; overflow occurred

Xloop	asl Result
	rol Result+2
	bmi MaxIt	; overflow has occurred
	dex	; decrement counter
	bpl Xloop
	bra ChkSign

****************************************************************
*
* FUNCTION Fix2Long	(f: Fixed): long;
* FUNCTION Frac2Fix	(f: Fract): Fixed;
*
* The stack looks like this on input:
*
*      Result	 8-B
*      A1	 4-7
*      Return	 1-3
*
****************************************************************

	EXPORT Fix2long
Fix2long		;       

	ldx #15
	bra ShftRght

	EXPORT Frac2Fix
Frac2Fix		;       

	ldx #13

ShftRght	phd	; save direct reg
	tsc	; set direct reg to
	tcd	; point to place on	stack

	lda A1
	sta Result
	lda A1+2
	sta Result+2
	pha	; save sign
	bpl Rloop
	lda #00
	sec
	sbc Result
	sta Result
	lda #00
	sbc Result+2
	sta Result+2

Rloop	txa
	bra Shftloop

MaxIt	stz Result	;fix overflow
	lda #$8000
	sta Result+2
	pla	;get sign of result
	bmi finX2F
	dec Result
	dec Result+2
	bra finX2F

ZeroIt	stz Result
	stz Result+2
	pla	; take sign off stack
	bra finX2F

****************************************************************
*
* FUNCTION X2Fix (x: Extended ): Fixed;
* FUNCTION X2Frac(x: Extended ): Fract;
*
*    Note:  Assumes	Extended numbers are normalized
*
* The stack looks like this on input:
*
*      Result	 8-B
*      A1	 4-7	;address of an Extended
*      Return	 1-3
*
****************************************************************
	EXPORT X2Fix
X2Fix		;       

	ldx #$400e	; threshold extended exponent for Fixed
	bra X2F

	EXPORT X2Frac
X2Frac		;       

	ldx #$4000	; threshold extended exponent for Fract

X2F	phd	; save direct reg
	tsc	; set direct reg to
	tcd	; point to place on	stack

	ldy #4
	lda [<A1],y	; get least signficant word of Fixed
	sta Result
	iny
	iny
	lda [<A1],y	; get most signficant word of Fixed
	sta Result+2
	iny
	iny
	lda [<A1],y	; get exponent and sign
	pha	; push sign onto stack
	and #$7fff	; strip sign
	sta A1
	txa
	clc
	sbc A1
	bmi MaxIt	; either a NaN, Inf	or too large a value
	cmp #33
	bpl ZeroIt	; even MSB shifted too far to cause rnd
Shftloop	lsr Result+2
	ror Result
	dec a
	bpl Shftloop
	bcc NoRnding

roundIt	inc Result
	bne NoRnding
	inc Result+2
NoRnding	bit Result+2
	bmi MaxIt
ChkSign	pla
	bpl finX2F
	lda #00
	sec
	sbc Result
	sta Result
	lda #00
	sbc Result+2
	sta Result+2
finX2F		; 
	jmp EndCall4

	ENDP
;                copy intmath/binhex



****************************************************************
*
* Int2Hex
*
* Takes a 2-byte unsigned integer and produces an ASCII string
* representing the value in hexadecimal	format.
*
****************************************************************

	EXPORT Int2Hex
Int2Hex	PROC
TempVal	equ 1
BinVal	equ 19
	phd
	PushWord #0	;temp space
	PushWord #0
	tsc
	tcd
	lda <BinVal	;move value into temp space
	sta <TempVal
	jsr Bin2Hex
	pla	;pull temp space
	pla
	cpx #0	;was there an error?
	bne RetErr	;yes
	jmp EndCall8
RetErr	jmp ErrOut8
	ENDP


****************************************************************
*
* Long2Hex
*
* Takes a 4-byte unsigned integer and produces an ASCII string
* representing the value in hexadecimal	format.
*
****************************************************************

	EXPORT Long2Hex
Long2Hex	PROC
TempVal	equ 1
BinVal	equ 19
	phd
	PushWord #0	;temp space
	PushWord #0
	tsc
	tcd
	lda <BinVal	;move value into the temp space
	sta <TempVal
	lda <BinVal+2
	sta <TempVal+2
	jsr Bin2Hex
	pla	;pull temp space
	pla
	cpx #0	;was there an error?
	bne RetErr	;yes
	jmp EndCall10
RetErr	jmp ErrOut10
	ENDP


****************************************************************
*
* Bin2Hex
*
****************************************************************

	EXPORT Bin2Hex
Bin2Hex	PROC

TempVal	equ 1
Length	equ 13
StrPtr	equ 15

	ldy <Length	;index into string
Loop	dey	;done with string?
	bmi Done	;yes
	lda <TempVal
	and #$F	;get lowest nibble of value
	jsr MakeChar	;make into an ASCII	char
	sep #$30	;8 bit mode
	sta [<StrPtr],y	;put char in string
	rep #$30	;16 bit mode
	ldx #4
Shift	lsr <TempVal+2	;shift value to right by 4 bits
	ror <TempVal
	dex
	bne Shift
	bra Loop

Done	lda <TempVal	;have we converted the whole value?
	ora <TempVal+2
	bne StrErr	;no - so string was	too short
	ldx #0	;no error
	rts

StrErr	ldx #ShortStr
	rts



MakeChar	cmp #$A
	bcc Cont
	clc	;add 7 so when convert to ASCII the
	adc #7	;values 10-15 become A-F
Cont	adc #$30	;convert value to an ASCII char
	rts

	ENDP
;                copy intmath/hexbin



****************************************************************
*
* Hex2Int
*
* Takes an ASCII string representing a hexadecimal value and
* produces a 2-byte	unsigned integer.
*
****************************************************************

	EXPORT Hex2Int
Hex2Int	PROC
BinVal	equ 21
	phd
	PushWord #0	;temp space
	PushWord #0
	PushWord #0
	tsc
	tcd
	jsr Hex2Bin
	pla	;pull result
	sta <BinVal
	pla	;overflow?
	bne OverErr	;yes
	plx	;error flag
	bne RetErr
	jmp EndCall6

OverErr	ldx #Overflow
	pla	;error flag
RetErr	jmp ErrOut6
	ENDP


****************************************************************
*
* Hex2Long
*
* Takes an ASCII string representing a hexadecimal value and
* produces a 4-byte	unsigned integer.
*
****************************************************************

	EXPORT Hex2Long
Hex2Long	PROC
BinVal	equ 21
	phd
	PushWord #0	;temp space
	PushWord #0
	PushWord #0
	tsc
	tcd
	jsr Hex2Bin
	pla	;pull result
	sta <BinVal
	pla
	sta <BinVal+2
	plx	;error flag
	bne RetErr
	jmp EndCall6

RetErr	jmp ErrOut6
	ENDP


****************************************************************
*
* Hex2Bin
*
****************************************************************

	EXPORT Hex2Bin
Hex2Bin	PROC

TempVal	equ 1
Digit	equ 5
Length	equ 15
StrPtr	equ 17

	ldy #0	;string index
	ldx #0	;overflow flag
	dey
Blanks	iny
	cpy <Length	;end of string?
	bcs Return	;yes
	lda [<StrPtr],y	;skip leading blanks in string
	and #$7F	;mask off hi byte and hi bit of lo byte
	cmp #$20
	beq Blanks

Loop	cpy <Length	;end of string?
	bcs Done	;yes
	lda [<StrPtr],y	;get char from string
	and #$7F	;mask off hi byte and hi bit of lo byte
	jsr MakeBin	;convert to binary nibble
	sta <Digit	;and save
	lda <TempVal+2
	cmp #$1000	;will overflow occur?
	bcc Cont	;no
	inx	;yes - so flag it
Cont	asl <TempVal	;shift value over by 4 bits
	rol <TempVal+2
	asl <TempVal
	rol <TempVal+2
	asl <TempVal
	rol <TempVal+2
	asl <TempVal
	rol <TempVal+2
	lda <TempVal
	ora <Digit	;add in digit
	sta <TempVal
	iny
	bra Loop

Done	cpx #0	;did overflow occur?
	beq Return	;no
	ldx #Overflow	;yes - so set error	number
Return	stx <Digit	;store error
	rts



MakeBin	cmp #$3A	;is char < ':' ?
	bcc OK	;yes
	cmp #$47	;is char < 'G' ?
	bcc UC	;yes
	cmp #$67	;is char > 'f' ?
	bcs CharErr	;yes
	sec
	sbc #$20	;convert to upper case
UC	cmp #$41	;is char < 'A' ?
	bcc CharErr	;yes
	sbc #7	;char is in 'A' - 'F'
OK	sec
	sbc #$30	;convert char to binary value
	bcc CharErr	;char was < '0'
	rts

CharErr	pla	;pull return address off stack
	ldx #BadChar
	jmp Return

	ENDP
;                copy intmath/bindec



****************************************************************
*
* Int2Dec
*
* Takes a 2-byte integer (signed or unsigned) and produces an
* ASCII string representing the value in decimal format.
*
****************************************************************

	EXPORT Int2Dec
Int2Dec	PROC

TempVal	equ 1
Digit	equ 5
Signed	equ 15
Length	equ 17
StrPtr	equ 19
BinVal	equ 23

	phd
	PushWord #0	;temp space
	PushWord #0
	PushWord #0
	tsc
	tcd

	ldy <Length	;index into string
	lda <BinVal	;move value into temp space
	sta <TempVal
	bpl Loop	;branch if value is	positive
	lda <Signed	;is value signed?
	beq Loop	;no - so skip next part
	sec
	lda #0	;value is negative so change it to
	sbc <TempVal	;positive
	sta <TempVal

Loop	dey
	bmi StrErr	;done with string
;		;TempVal := TempVal	DIV 10
;		;Digit   := TempVal	MOD 10
	stz <Digit
	ldx #16	;size of data in bits
	clc
DivLoop	rol <TempVal	;shift carry into dividend bit 0 which
	rol <Digit	;will be the quotient and shift dividend
	sec	;at the same time
	lda <Digit
	sbc #10	;A := dividend - divisor
	bcc DecCnt	;branch if dividend	< divisor
	sta <Digit	;dividend := dividend - divisor
DecCnt	dex
	bne DivLoop
	rol <TempVal	;shift in the last carry for the quotient

	lda <Digit	;convert digit into	ASCII char
	clc
	adc #$30
	sep #$30	;8 bit mode
	sta [<StrPtr],y	;put char in string
	rep #$30	;16 bit mode
	lda <TempVal	;is value 0?
	bne Loop	;no - so continue

	lda <Signed	;is value signed?
	beq Cont	;no
	lda <BinVal	;was original value	negative?
	bpl Cont	;no
	dey	;room for '-' in front of string?
	bmi StrErr	;no
	lda #$2D	;put '-' in front of string
	sep #$30	;8 bit mode
	sta [<StrPtr],y
	rep #$30	;16 bit mode
Cont	dey	;is string filled?
	bmi Done	;yes

	LONGA off
	LONGI off
	sep #$30	;8 bit mode
Fill	lda #$20	;fill beginning of string with blanks
	sta [<StrPtr],y
	dey
	bpl Fill
	rep #$30	;16 bit mode
	LONGA on
	LONGI on

Done	pla	;temp space
	pla
	pla
	jmp EndCall10

StrErr	ldx #ShortStr
	pla	;temp space
	pla
	pla
	jmp ErrOut10

	ENDP


****************************************************************
*
* Long2Dec
*
* Takes a 4-byte integer (signed or unsigned) and produces an
* ASCII string representing the value in decimal format.
*
* Change History
*
* 30 Mar 89	Steven Glass
*
* Long2Dec stoped converting as soon as all the bits in the 
* low 3 bytes were zero.  This was reported on 37 Mar 89 by 
* Dave Tribby (an outside developer using UseNet).
* 
* Dave debugged the code for us using NiftyList and found 
* a lda Val, ora Val+1 that should have been ora Val+2.  
* Thanks Dave.
*
****************************************************************

	EXPORT Long2Dec
Long2Dec	PROC

TempVal	equ 1
Digit	equ 5
Signed	equ 15
Length	equ 17
StrPtr	equ 19
BinVal	equ 23

	phd
	PushWord #0	;temp space
	PushWord #0
	PushWord #0
	tsc
	tcd

	ldy <Length	;index into string
	lda <BinVal	;copy value into temp space
	sta <TempVal
	lda <BinVal+2
	sta <TempVal+2
	bpl Loop	;branch if value is	positive
	lda <Signed	;is value signed?
	beq Loop	;no - so skip next part
	sec
	lda #0	;convert value to positive
	sbc <TempVal
	sta <TempVal
	lda #0
	sbc <TempVal+2
	sta <TempVal+2

Loop	dey
	bmi StrErr	;done with string
;		;TempVal := TempVal	DIV 10
;		;Digit   := TempVal	MOD 10
	stz <Digit
	ldx #32	;size of data in bits
	clc
DivLoop	rol <TempVal	;shift the carry into dividend bit 0
	rol <TempVal+2	;which will be the quotient and
	rol <Digit	;shift the dividend	at the same time
	sec
	lda <Digit	;A := dividend - divisor
	sbc #10
	bcc DecCnt	;branch if dividend	< divisor
	sta <Digit	;dividend := dividend - divisor
DecCnt	dex
	bne DivLoop
	rol <TempVal	;shift in the last carry for the quotient
	rol <TempVal+2

	lda <Digit	;convert digit to ASCII char
	clc
	adc #$30
	sep #$30	;8 bit mode
	sta [<StrPtr],y
	rep #$30	;16 bit mode
	lda <TempVal
	ora <TempVal+2	;is value 0?	##### changed to +2, 30 Mar 89 SEG
	bne Loop	;no - so continue

	lda <Signed	;is value signed?
	beq Cont	;no
	lda <BinVal+2	;was original value	negative?
	bpl Cont	;no
	dey	;room for '-' in front of string?
	bmi StrErr	;no
	lda #$2D	;put '-' in front of string
	sep #$30	;8 bit mode
	sta [<StrPtr],y
	rep #$30	;16 bit mode
Cont	dey	;is string filled?
	bmi Done	;yes

	LONGA off
	LONGI off
	sep #$30	;8 bit mode
Fill	lda #$20	;fill beginning of string with blanks
	sta [<StrPtr],y
	dey
	bpl Fill
	rep #$30	;16 bit mode
	LONGA on
	LONGI on

Done	pla	;temp space
	pla
	pla
	jml EndCall12

StrErr	ldx #ShortStr
	pla	;temp space
	pla
	pla
	jml ErrOut12

	ENDP



****************************************************************
*
* Dec2Int
*
* Takes an ASCII string representing a decimal value and
* produces a 2-byte	signed or unsigned integer.
*
****************************************************************

	EXPORT Dec2Int
Dec2Int	PROC

Signed	equ 15
BinVal	equ 23

	phd
	PushWord #0	;temp space
	PushWord #0
	PushWord #0
	tsc
	tcd
	jsr Dec2Bin
	pla	;pull result
	sta <BinVal
	pla	;did result overflow ?
	bne OverErr	;yes
	lda <Signed	;is value signed?
	beq OK	;no - so skip next part
	lda <BinVal
	cmp #$8000	;check for maximum negative number
	bne Cont
	cpy #0	;was the sign negative ?
	bne OK	;yes
Cont	asl a	;is hi bit set?
	bcs OverErr	;yes - so overflow
OK	plx	;pull error flag
	bne RetErr
	tya	;sign flag
	beq Done
	sec	;sign was negative so change
	lda #0	;result to a negative value
	sbc <BinVal
	sta <BinVal
Done	jmp EndCall8

OverErr	ldx #Overflow
	pla	;error flag
RetErr	jmp ErrOut8
	ENDP


****************************************************************
*
* Dec2Long
*
* Takes an ASCII string representing a decimal value and
* produces a 4-byte	signed or unsigned integer.
*
****************************************************************

	EXPORT Dec2Long
Dec2Long	PROC

Signed	equ 15
BinVal	equ 23

	phd
	PushWord #0	;temp space
	PushWord #0
	PushWord #0
	tsc
	tcd
	jsr Dec2Bin
	pla	;pull result
	sta <BinVal
	pla
	sta <BinVal+2
	lda <Signed	;is value signed?
	beq OK	;no - so skip next part
	lda <BinVal+2
	cmp #$8000	;check for maximum negative number
	bne Cont
	lda <BinVal
	bne Cont
	cpy #0	;was the sign negative?
	bne OK	;yes
Cont	lda <BinVal+2
	asl a	;is hi bit set?
	bcs OverErr	;yes - so overflow
OK	plx	;error flag
	bne RetErr
	tya	;sign flag
	beq Done
	sec	;sign was negative so change result
	lda #0	;to negative value
	sbc <BinVal
	sta <BinVal
	lda #0
	sbc <BinVal+2
	sta <BinVal+2
Done	jmp EndCall8

OverErr	ldx #Overflow
	pla	;error flag
RetErr	jmp ErrOut8
	ENDP


****************************************************************
*
* Dec2Bin
*
****************************************************************

	EXPORT Dec2Bin
Dec2Bin	PROC

TempVal	equ 1
Digit	equ 5
Signed	equ 15
Length	equ 17
StrPtr	equ 19
BinVal	equ 23

	ldy #0	;string index
	ldx #0	;sign flag
	dey
Blanks	iny
	cpy <Length
	bcc OK
	rts

OK	lda [<StrPtr],y	;skip leading blanks in string
	and #$7F	;mask off hi byte and hi bit of lo byte
	cmp #$20
	beq Blanks

	cpx <Signed	;is value signed?
	beq Sign	;no - so skip next part

	cmp #$2B	;is first char '+' ?
	bne CheckNeg	;no
	iny	;yes - so skip first char
	bra Sign

CheckNeg	cmp #$2D	;is first char '-' ?
	bne Sign	;no
	iny	;yes - so skip first char
	ldx #$FF	;flag negative sign
Sign	phx	;save sign flag
	ldx #0	;overflow flag

Loop	cpy <Length	;done with string?
	bcs Done	;yes
	lda [<StrPtr],y	;get char
	and #$7F	;mask off hi byte and hi bit of lo byte
	cmp #$30	;is char < '0' ?
	bcc CharErr	;yes
	cmp #$3A	;is char > '9' ?
	bcs CharErr	;yes
	sec
	sbc #$30	;convert char to digit
	sta <Digit	;save digit

	asl <TempVal	;mult val by 2
	rol <TempVal+2
	bcc Cont
	inx	;set flag if overflow
Cont	lda <TempVal+2
	sta <BinVal	;save hi word in BinVal
	lda <TempVal	;save lo word in A
	asl <TempVal
	rol <TempVal+2
	bcc Cont0
	inx	;set flag if overflow
Cont0	asl <TempVal
	rol <TempVal+2	;mult val by 8
	bcc Cont1
	inx	;set flag if overflow
	clc
Cont1	adc <TempVal	;sum with val times	2
	sta <TempVal	;to get val times 10
	lda <BinVal
	adc <TempVal+2
	sta <TempVal+2
	bcc Cont2
	inx	;set overflow flag
	clc
Cont2	lda <TempVal
	adc <Digit	;add digit to val
	sta <TempVal
	bcc Cont3
	lda <TempVal+2
	adc #0
	sta <TempVal+2
	bcc Cont3
	inx	;set overflow flag
Cont3	iny
	bra Loop

Done	cpx #0	;did overflow occur?
	beq Return	;no
	ldx #Overflow	;yes
Return	stx <Digit	;save error flag
	ply	;sign flag
DoRet	rts

CharErr	ldx #BadChar
	jmp Return

	ENDP
;                copy intmath/hexit

****************************************************************
*
* HexIt      (value	: integer) : LongInt
*
* The longint that is returned is made up of four
* bytes that are the hex representation	of the word.
*
* Calling Convention:
*
*              PushLong #0	; make room on stack
*              PushWord Whatever
*              _HexIt
*              PopLong Whereever
*
****************************************************************
	EXPORT HexIt
HexIt	PROC

RTL1	equ 1
RTL2	equ RTL1+3
Value	equ RTL2+3
Result	equ Value+2

	sep #%00110000	; 8 bit mode
	longa off
	longi off
	lda Value,s	; get the low byte
	and #$F0	; do the high nibble of low byte
	lsr a
	lsr a
	lsr a
	lsr a
	jsr Nib2Ascii
	sta Result+2,s

	lda Value,s	; get the low byte back
	and #$0F	; do the low nibble	of the low byte
	jsr Nib2Ascii
	sta Result+3,s

	lda Value+1,s	; get the high byte
	and #$F0	; do the high nibble
	lsr a
	lsr a
	lsr a
	lsr a
	jsr Nib2Ascii
	sta Result,s

	lda Value+1,s
	and #$0F
	jsr Nib2Ascii
	sta Result+1,s

	rep #%00110000
	longa on
	longi on

	jmp oEndCall2


Nib2Ascii		; 
	longa off
	longi off

	cmp #10
	bcc Less10

	clc
	adc #7

Less10	adc #$30	; ascii 0
	rts

	longa on
	longi on

	ENDP


	END

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Kidding/Kidding.asm b/IIGS.601.SRC/GSToolbox/Kidding/Kidding.asm
new file mode 100644
index 0000000..4afe8ef
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Kidding/Kidding.asm
@@ -0,0 +1 @@
+	title 'Kidding'
**********************************************************************
*
* Kidding.ASM
*
* Copyright Apple Computer, Inc. 1988
* All Rights Reserved
*
* By Steven Glass
*
* This is a file that contains code to go out and see what version
* of the OS is running and patch a particular version.
*
* This code is called from inside the QuickDraw Version call.
*
*
**********************************************************************

	include 'all.macros'
	include '::sys.equs.asm'


drvr_dib_ptr	equ $00BD24



DibEntry	RECORD 0
Ptr	ds.L 1
SwitchStatus	ds.W 1
UserID	ds.W 1
	ENDR

DibRecord	RECORD 0
link_ptr	ds.L 1
entry_ptr	ds.L 1
dev_char	ds.w 1
blk_cnt	ds.L 1
dev_name	ds.b 32
slot_num	ds.w 1
unit_num	ds.w 1
ver_num	ds.w 1
dev_id_num	ds.w 1
head_dev_link	ds.w 1
forward_dev_link	ds.w 1
supervisor_req	ds.w 1
supervisor_num	ds.w 1
dib_device_num	ds.w 1

drvr_class	ds.w 1
drvr_type	ds.w 1
drvr_subtype	ds.w 1
cache_mask	ds.w 1
block_size	ds.w 1
hw_unit_num	ds.w 1
	ENDR


	title 'YoveGotToBeKidding'
****************************************************************
*
YouveGotToBeKidding	PROC EXPORT
*
* This patches a bug in the generated driver dibs produced
* by version 2.0 of GS/OS.
*
* This routine is called by QuickDraw version and by InitTextDev.
* It is called by QuickDraw version so that it will be executed
* right after the OS is loaded the first time.
*
* This routine is called by InitTextDev because InitTextDev is the
* first ROM routine called by the OS after p8 has been run and 
* control returns to GS/OS.
*
*
* When there is something to patch, this code looks at 
* the dibs and fixes the unit num for 
* drive 2 The OS sets it incorrectly to one
* and it sould be equal to 2.
*
* Before trying to do this however, we look at the OS_Flag.
* If the OS flag has bit 0 set, then this code has already been
* run.
*
* If the flag is clear, this code has not been run and must
* run now.
*
* If it has not been run, I set the bit and then do the
* work.
*
* We also set the bit 1 of the OS flag if the OS that is running
* is the one we have to patch.  This bit is used later
* by code in DeskShutdown to see if it is necessary to 
* reset bit 0.  Deskshutdown resets bit 0 whenever bit 1 is
* set and P8 is active.
*
* Inputs:
*	os_flag
*
* Outputs:
*	OS_flag
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* Change History
*
* 21 Nov 88	Steven Glass
*
* This call can be made before the OS is in the system and 
* the other silly code always installs a valid stack entry 
* point.  So we cannot relay on the $5C opcode being in the 
* stackentry point as a test for the existance of the OS.
*
* We check normal entry to see if it is $5c.  If it is not
* we exit right away.
*
* ?? ??? ??	Steven Glass
*
* We discovered that the OS did not set the OS Kind byte 
* from $FF to 1 until just before the application launched.
* this made it impossible to rely on the flag for boot time
* information.
*
* 25 Jan 89	Steven Glass
*
* But FF, at other times means we are in between p8 and 
* p16.  So it is not safe to make OS calls.
*
****************************************************************


;-----------------------------------------------------------
;
; Is there any OS in the system at this time?
;
	lda >OS_Entry
	and #$00FF
	cmp #$005C
	bne QuickExit

;-----------------------------------------------------------
;
; See if we've been here before.
;
	lda >OS_Flag		; look at specialbit of os_flag
	tax
	and #SpecialBit
	beq Continue

QuickExit
	rtl

Continue
;-----------------------------------------------------------
;
; If we've been through this before, and the OS is not
; a bad OS, we can quit.
;
	txa
	bit #PatchedOnceBit
	beq StillAVirgin
	bit #BadOSBit
	beq QuickExit


StillAVirgin




;--------------------------------------------------------------------------------
;
; Make sure that the right OS is available.
;
	lda >OS_Boot	; first check to see what os has booted
	and #$00FF
	cmp #$0001
	bne QuickExit

	lda >OS_Kind	; second, see what os is active now
	and #$00FF
	cmp #$0001
	beq OSIsP16

	cmp #$00FF	; if not 1 or FF, cannot be P16 or GSOS
	bne QuickExit

	txa	; if FF and the OS has been patched once
	and #PatchedOnceBit ; then this is really the intermediate state
	bne QuickExit	; and we cannot continue

;
; If we get to here, then the OS_Kind is FF, and we have not been patched once.
; That means that we've encountered the bug in the early OS's that the OS kind
; byte was not set until just before the application was run.
;

OSIsP16
	txa
	ora #SpecialBit+PatchedOnceBit
	sta >OS_Flag		; set it so we won't do it again


;-----------------------------------------------------------
;
; Make the version call using the stack entry  point.
;
;  Changed on 11/30/88 by Konstantin Othmer
; Now the dbr is set to 0 since an old version of the OS (which EA World
;  Tour Golf shipped with) assumes the dbr is 0
;

	phb	;save the dbr
	pea #0	;set it to 0
	plb
	plb

	pha	; push space on the stack for the parameter block
	tsc	; push a pointer to that word on the stack
	inc a
	pea 0000
	pha
	PushWord #$002A	; push the version call number on the stack
	jsl OS_StackEntry	; call the OS
	pla	; look at the version
	plb	;set back to old dbr
	and #$7FFF 	; make the proto versions work too.
	cmp #$0200
	bne QuickExit

;-----------------------------------------------------------
;
; Set the bad os bit so other routines will know later that
; they may have something to do.
;
	lda >OS_Flag
	ora #BadOSBit
	sta >OS_Flag

;-----------------------------------------------------------
;
; This is the version we must patch!  Make some direct
; page space on the stack.
;
	DefineStack
OrigD	word
Count	word
Ptr	LONG
DibPtr	LONG


	pha	; space for the dib ptr
	pha
	lda >Drvr_Dib_Ptr+2	; the pointer to the dib list
	pha
	lda >Drvr_Dib_Ptr
	pha
	pha	; space for the count
	phd	; save d-reg
	tsc	; turn stack into d-page
	tcd

	lda [ptr]	; move the count from list to d-page
	beq NoDevices
	sta Count

	lda #4
	bra BumpPtr

Loop	ldy #DibEntry.UserID	; The user ID must be zero
	lda [Ptr],y		; or its a loaded driver
	bne NotThisOne

	ldy #DibEntry.Ptr+2
	lda [Ptr],y
	sta DibPtr+2
	dey
	dey
	lda [Ptr],y
	sta DibPtr

;-----------------------------------------------------------
;
; Make sure all the conditions in the CheckTable are met.
;
	ldx #0
@CheckLoop	lda >CheckTable,x
	tay
	lda [DibPtr],y
	cmp >CheckTable+2,x
	bne NotThisOne
	inx
	inx
	inx
	inx
	cpx #NumItemsToCheck
	bcc @CheckLoop

;-----------------------------------------------------------
;
; Make sure the unit number is not 1

	ldy #DIBRecord.unit_num	; this must be other than 1
	lda [DibPtr],y
	cmp #1
	beq NotThisOne

;-----------------------------------------------------------
;
; Yup, this is the one to patch!
;

	lda #2		; make unit num 2
	ldy #DIBRecord.hw_unit_num	
	sta [DibPtr],y
	bra NoDevices		; cannot be more than one to patch		

NotThisOne	
	lda #8
BumpPtr	clc
	adc ptr
	sta ptr
	bcc @1
	inc ptr+2
@1
	dec Count
	bpl Loop



NoDevices
	pld
	pla
	pla
	pla
	pla
	pla






;-----------------------------------------------------------
;
; All done.


	rtl




;-----------------------------------------------------------
;
; CheckTable
;
; Contains an offset in the dibRecord and the value
; that must be at that offset.
;
; For example the dev_char field must be $43EC.
;
CheckTable
	dc.w DIBRecord.dev_char,$43EC
	dc.w DIBRecord.slot_num,$0005
	dc.w DIBRecord.dev_id_num,3
	dc.w DIBRecord.drvr_class,0002
	dc.w DIBRecord.drvr_type,0001
	dc.w DIBRecord.drvr_subtype,$00C0
	dc.w DIBRecord.hw_unit_num,1

NumItemsToCheck	equ *-CheckTable

	ENDP



	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Kidding/MoreKidding.asm b/IIGS.601.SRC/GSToolbox/Kidding/MoreKidding.asm
new file mode 100644
index 0000000..4365b8c
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Kidding/MoreKidding.asm
@@ -0,0 +1 @@
+	title 'MoreKidding'
**********************************************************************
*
* MoreKidding.ASM
*
* Copyright Apple Computer, Inc. 1988
* All Rights Reserved
*
* By Steven Glass
*
* This is a file that contains code simulate the stack entry point
* in the early versions of the OS that did not have one.
*
* This code has two parts, the first installs a jml at the stack
* entry point for the OS.  It is run at tool init time.
*
* The second is the code that is entered by the jump.
*
*
**********************************************************************
	blanks off
	include 'all.macros'

OS_Kind	equ $E100BC
OS_Boot	equ $E100BD
OS_Flag	equ $E100BE

OS_StackEntry	equ $E100B0

drvr_dib_ptr	equ $00BD24


****************************************************************
*
FixOSStackEntry	PROC EXPORT
*
* Description
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
	import FakeStackEntry
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


	lda >MyJump
	sta >OS_StackEntry
	lda >MyJump+2
	sta >OS_StackEntry+2

	rtl

MyJump	jml FakeStackEntry

	ENDP



****************************************************************
*
FakeStackEntry	PROC
*
* This is the code that is run when someone calls the OS
* stack entry point and the OS is not in place.
*
* The way this code works is to generate an inline OS call
* on the stack.  the code is called with the equivalent to 
* a JSL and when it returns, the stack is cleaned up and
* control returns to the calling routine just as if the 
* stack entry point existed.
*
*
* Inputs:
*	LONG : ParamBlockPtr
*	WORD : CallNumber
*
* Outputs:
*	a-reg : error code
*	carry : error state
*	z-flag : error state
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

	DefineStack
TheJSL	LONG
TheCall	word
ThePtr	long
TheRTL	word
RTLAdr	block 3
inCallNumber	word
inParamPtr	long

;
; Push the code to call the OS on the stack.
;
	ldx #BytesToPush-2
PushMore	lda >TheCode,x
	pha
	dex
	dex
	bpl PushMore

;
; copy the inputs from the stack into the code block (also on the stack)
;
	lda inCallNumber,s
	sta TheCall,s
	lda inParamPtr,s
	sta ThePtr,s
	lda inParamPtr+2,s
	sta ThePtr+2,s

;
; Move the real RTL address up so we can easily strip the inputs
; off the stack later.
;
	lda RTLAdr,s
	sta RTLAdr+6,s
	lda RTLAdr+1,s
	sta RTLAdr+6+1,s

;
; Make the OS call using the code now on the stack.  Note the
; code starts at S+1 on the stack.  But since the RTL adds
; 1 to the address before xfering control, we can use it
; as is.
;
	tsc
	jsl CallIt

	tay	; save error code in y

;
; Pull the code and the inputs off the stack
;
	ldx #BytesToPush-2+6
PullMore	pla
	dex
	dex
	bpl PullMore

	tya	restore carry and a-reg
	cmp #1
	rtl

;
; Xfer control to the place on the stack indicated by the a-reg
;
CallIt	pea 0000	; push 3 bytes on stack with highest = 0
	phb
	sta 1,s	; overstore low 2 and xfer
	rtl
	



TheCode
	jsl $E100A8
	dc.w 0
	dc.l 0
	rtl
	dc.b 0	; extra byte to make it even

BytesToPush	equ *-TheCode


	ENDP


	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/LineEdit/LineEditEquates.asm b/IIGS.601.SRC/GSToolbox/LineEdit/LineEditEquates.asm
new file mode 100644
index 0000000..9986ec6
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/LineEdit/LineEditEquates.asm
@@ -0,0 +1 @@
+**********************************************************************
*
* Line Edit Equates
*
*
* Copyright Apple Computer, Inc. 1989-92
* All Rights Reserved.
*
***********************************************************************

;-----------------------------------------------------------
;
; System Equates
;-----------------------------------------------------------
IncBusyFlg	equ $E10064
DecBusyFlg	equ $E10068
TickCnt	equ $E100DC


;------------------------------------------
;
;   Equ from DATA
;
;------------------------------------------
LEVerNum	equ $0304	;1-Apr-93 SS
LETSNum	equ $14	;tool set num for Line Edit
InitErr	equ $1401	;duplicate init call
ResetErr	equ $1402	;can't reset Line Edit
ActiveErr	equ $1403	;Line Edit not active
DSErr	equ $1404	;desk scrap too big
MaxChars	equ 256	;maximum # chars in	line
ScrapType	equ 0	;used for calls to Scrap Manager

*---------------------------------------------------------------
* Line Edit Record
*---------------------------------------------------------------
leRec	equ 0
leLineHandle	equ leRec	;00 must be first field in record
leLength	equ leLineHandle+4	;04
leMaxLength	equ leLength+2	;06
leDestRect	equ leMaxLength+2	;08
leViewRect	equ leDestRect+8	;10
lePort	equ leViewRect+8	;18
leLineHite	equ lePort+4	;1C
leBaseHite	equ leLineHite+2	;1E
leSelStart	equ leBaseHite+2	;20
leSelEnd	equ leSelStart+2	;22
leActFlg	equ leSelEnd+2	;24
leCarAct	equ leActFlg+2	;26
leCarOn	equ leCarAct+2	;28
leCarTime	equ leCarOn+2	;2A
leHiliteHook	equ leCarTime+4	;2E
leCaretHook	equ leHiliteHook+4	;32
leJust	equ leCaretHook+4	;36 ** added 3-6-87 CAE **
lePWChar	equ leJust+2	;38
leHScrollPos	equ lePWChar+2	;3A ** added 10-Mar-91 DAL **

LERecSize	equ leHScrollPos+2

defaultPWChar	equ $D7	;hollow diamond (5-Sep-91 DAL)

*---------------------------------------------------------------
* Line Edit Zero Page
*---------------------------------------------------------------

LEZBase	equ 0
TempWord1	equ LEZBase	;00
TempWord2	equ TempWord1+2	;02
TempPtr1	equ TempWord2+2	;04
TempPtr2	equ TempPtr1+4	;08

SavePort	equ TempPtr2+4	;0C
SaveClip	equ SavePort+4	;10

TextPtr	equ SaveClip+4	;14
TextLength	equ TextPtr+4	;18
RecHandle	equ TextLength+2	;1A
RecPtr	equ RecHandle+4	;1E
LineHandle	equ RecPtr+4	;22
LinePtr	equ LineHandle+4	;26
ScrapHandle	equ LinePtr+4	;2A
ScrapLength	equ ScrapHandle+4	;2E
StartPtr	equ ScrapLength+2	;30
DispStart	equ StartPtr+4	;34
DispEnd	equ DispStart+2	;36
WordStart	equ DispEnd+2	;38
WordEnd	equ WordStart+2	;3A
SelPoint	equ WordEnd+2	;3C
SelRect	equ SelPoint+4	;40
ClickLoc	equ SelRect+8	;48
ClickTime	equ ClickLoc+2	;4A
DoubleTime	equ ClickTime+4	;4E
DoubleClick	equ DoubleTime+2	;50
RevFlag	equ DoubleClick+2	;52
ErrFlag	equ RevFlag+2	;54
TheChar	equ ErrFlag+2	;56
Mods	equ TheChar+2	;58
BNum	equ Mods+2	;5A
ProgID	equ BNum+2	;5C
StripSize	equ ProgID+2	;5E
MeasureTemp	equ StripSize+2	;60
OriginalXPos	equ MeasureTemp+2	;62 (word)
MaxScrollPos	equ OriginalXPos+2	;64 (word) 22-Jan-92 DAL
DestWidth	equ MaxScrollPos+2	;66 (word) 22-Jan-92 DAL

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/LineEdit/common.asm b/IIGS.601.SRC/GSToolbox/LineEdit/common.asm
new file mode 100644
index 0000000..e10a7a9
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/LineEdit/common.asm
@@ -0,0 +1 @@
+****************************************************************
*                                                              *
*                    Common Strip Routines                     *
*                        Version 1.0                           *
*                       August 13, 1986                        *
*                                                              *
****************************************************************
*
* 19-Sep-90		Dave Lyons
*
* Changed to use ToStrip and ToBusyStrip vectors ($e10180 and
* $e10184).  Looks like this will save 46 bytes.
*
****************************************************************

****************************************************************
*                                                              *
*                   Copyright (C) 1985-1988                    *
*                   All Rights Reserved                        *
*                   Apple Computer, Inc.                       *
*                                                              *
****************************************************************

****************************************************************
*
* EndCall Routines.
*
* Functions exit through the EndCall routines.  These routines
* fix the stack by moving the RTL addresses up and stripping
* off any input parameters.
*
* The number of bytes to strip off the stack is passed in the
* y-register.
*
* There are 8 end call routines
*
*       EndCall        Pulls D off stack before cleaning up.  Sets
*                      a-reg to zero and clears carry.
*       oEndCall       Does not pull D off the stack before
*                      cleaning up.  Sets a-reg to zero and clears
*                      carry.
*       ErrOut         Pulls D off stack, cleans up and returns
*                      error code passed in x-register, setting
*                      carry if x is not zero.
*       oErrOut        Does not pull D off stack before cleaning up.
*                      returns error code passed in x-register,
*                      setting carry if x is not zero.
*
*       BusyEC         Decrements the busy flag, pulls D off stack
*                      and cleans up.
*       oBusyEC        Decrements the busy flag, does not pull D off stack
*                      and cleans up.
*       BusyErr        Decrements the busy flag, pulls D off stack,
*                      cleans up and returns error code passed in
*                      x-register, setting the carry if x is not zero.
*       oBusyErr       Decrements the busy flag, does not pull D off
*                      the stack, cleans up and returns error code passed
*                      in x-register.
*
****************************************************************
Strip          PROC
IncBusyFlg		equ $E10064
DecBusyFlg		equ $E10068

				EXPORT BusyEC
BusyEC         
               ldx #0

				EXPORT BusyErr
BusyErr        
               jsl DecBusyFlg
               bra ErrOut

				EXPORT EndCall
EndCall        
               ldx #0

				EXPORT ErrOut
ErrOut         
               pld                      ; restore direct register

				EXPORT oErrOut
oErrOut        jml $e10184				;19-Sep-90 DAL
;               phy                      ; save amount to strip on stack
;               tsc                      ; get stack pointer
;               clc                      ; add to it the amount to strip
;               adc 1,s
;               tay                      ; put this result in Y
;               tsc                      ; get back orig stack pointer
;               phx                      ; save error on stack
;               tax                      ; put orig stack in X
;               phb                      ; now save the data bank reg
;               pea $0000                ; set data bank reg to 0
;               plb
;               plb
;               lda |3+4,x               ; now use x and y to move 6 bytes
;               sta |3+4,y               ; of rtl info from current pos
;               lda |3+2,x               ; to final pos.
;               sta |3+2,y
;               lda |3+0,x
;               sta |3+0,y
;               plb                      ; restore data bank register
;               plx                      ; restore x register with error
;
;               tsc                      ; get stack again
;               clc                      ; bump it by amount to strip Plus 2
;               adc 1,s                  ; to make up for amount to strip
;               adc #2                   ; still on stack
;               tcs                      ; reset stack pointer
;               txa                      ; error into a-reg
;               cmp #1                   ; set carry correctly
;               rtl                      ; fini

				EXPORT oBusyEC
oBusyEC        
               ldx #0

				EXPORT oBusyErr
oBusyErr       jml $e10180				;19-Sep-90 DAL (ToBusyStrip)
;               jsl DecBusyFlg
;               bra oErrOut

				EXPORT oEndCall
oEndCall       
               ldx #0
               bra oErrOut

               ENDP
			   
			   END

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/LineEdit/le.asm b/IIGS.601.SRC/GSToolbox/LineEdit/le.asm
new file mode 100644
index 0000000..5725b97
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/LineEdit/le.asm
@@ -0,0 +1 @@
+
*************************************************************************************
*
*                   Line Edit v2.3
*
*       Copyright Apple Computer, Inc. 1986-1992
*                 All Rights Reserved
*
*                Written by Cheryl Ewy
*
*
*
* March 88	Harry Yee
*
* Converted to MAX
*
* March 23 88	Steven Glass
*
* Changed JMPs to end call routines to JMLs so same code can work in ROM.
*
* May 5, 1988 v2.1d2   Dan O. & Harry Y
*
* Call LETextBox2, TERec handle was not being locked when the ptr to it was being
* used. Problem arose memory got compacted and this ptr moved. The handle is now
* being locked.
*
* June 15, 1988	   Harry Yee
*
* Took prototype bit out of LEVerNum for final release on System Disk 3.2.
*
* 15 Jun 88	Steven Glass
*
* LECopy did not check for the case where there was no selection. This led to
* memory trashing.
*
* 11 Jul 88	Steven Glass
*
* LETextBox2 now saves and restores all the text in the grafPort.
*
*
* 05 Aug 88	Steven Glass
*
* LETextBox2 could leave a handle un-disposed if the bounding box was not valid.
*
* In addition, LETextBox2 did not return a valid error code (when it worked or
* when it did not).
*
* 12 Oct 88	Steven Glass
*
* Added entry: GetLEDefPRoc to call table.  Added defproc to link process.
*
* 15 Feb 89	Harry Yee
*
* Extracted all the equates and put in separate file.  This file, LineEditEquates.asm,
* is now "included".
*
* 4/9/89	glass & mensch
*
* Added loop in tripleclick section of LEClick that removes the mouseUp event from the
* event queue.
*
* 15 May 89	Steven Glass
*
* Made the defproc a dynamic segment that is loaded  automatically when the GetLEProc
* address call is made. Added entry point FakeGetLEDefProc to do this.
*
* Changed version number to 8301.
*
* 12 Jun 89	Steven Glass
*
* Minor Change to LENew.
*
* 01 Sep 89	Harry Yee
*
* Fix bug in LEFromScrap.  Two bytes of memory get trashed when the call LEFromScrap is
* made and the  desk scrap is empty. The word that gets trashed is  $FFFE from where the
* line edit scrap is located.
*
* 19-Sep-90	Dave Lyons
*
* Rolled version to $8303 (for change to LE Defproc for shift-clicking).
*
* Removed dependency on all.macros.
*
* Prettied up a few things (marked with 19-Sep-90 DAL).
*
* 22-Sep-90	Dave Lyons
*
* Added 2 lines in LETextBox setup so that the stack gets cleaned up properly if the Length
* parameter is 0.
*
* 11-Mar-91	Dave Lyons
*
* Changed default password character to a hollow diamond ($D7) instead of an asterisk.
*
* Implementing horizontal scrolling.  Added leHScrollPos field to end of LE Record (in
* LineEditEquates.asm).
*
* It doesn't work perfectly yet, but it kinda works enough for now.
*
* 14-Mar-91	Dave Lyons
*
* Mouse-dragging now tries to scroll only if the thing is left justified.
*
* 8-May-91	Dave Lyons
*
* Changed some PUSHLONG #0 into PHA PHA.
*
* 14-May-91	Dave Lyons
*
* Make scrolling not crash.  Added new entry point FindPoint2 to FindPoint, which returns
* <selPoint as a character offset even if the point was not  inside the viewRect.
*
* Dragging to above the view rect counts as the left;  dragging below counts as the
* rightmost character.
*
* Made Hilite respect leHScrollPos correctly.
*
* 22-Aug-91	Dave Lyons
*
* LETextBox2 was leaving the first line blank if there  was no place to break on the first
* line.  Fixed.  Also made some optimizations (don't allocate a separate handle for getting
* Font Globals!).
*
* Comment out some dead equates, and the partial support for "equal tempered lines"(?),
* whatever that is.
*
* 4-Sep-91	Dave Lyons
*
* Fixed a bug in LETextBox2:  If there was a formatting code and then there was nowhere to
* break the first line, we would drop down a line before printing any text.  (This was
* bugging Monte in Archiver.)  New variables: oldCurrentHeight, PrintedSomeChars.
*
* 5-Sep-91	Dave Lyons
*
* Default password character is symbolic (defaultPWChar).  No code change in this file.
*
* 13-Jan-92	Dave Lyons
*
* Make LESetText unscroll the edit line field (side-effect: SetLETextByID unscrolls).
*
* 22-Jan-92	Dave Lyons
*
* Fix bogus scrolling things.
* ¥If you drag off the left and are already unscrolled, it doesn't flicker.
* ¥If you drag off the left of the window, FindPoint now counts as to the left of the LE
*  item, not the right.
* ¥Scrolling is clamped to MaxScrollPos, which is computed from the width of the text
*  compared to the width of the dest rectangle.
* ¥Shift + arrow keys now properly hilites the selection.
* ¥ReDraw erases the area to the left of the destRect but inside the viewRect only when
*  the horizontal scroll position actually changes (for compatibility with Stephen Chick's
*  Find File v1.20).
* ¥If the LE record's destRect has width zero, then the field never scrolls (for text items
*  AWGS 1.1 Graphics module).
* ¥LESetSelect properly unscrolls the field, even if the insertion point is at the right
*  edge of a scrolled item.
*
* 5-Feb-92	Dave Lyons
*
* Version $0303 for 6.0 final (changed in LineEditEquates.asm).
*
*************************************************************************************
*
* Begin 6.0.1
*
* 20-Mar-92	Dave Lyons
*
* Version $8304.
*
* Added new IsSpecialLEKey call to see if an event is a
* LE editing key.
*
* 23-Mar-92	Dave Lyons
*
* Replaced IsSpecialLEKey with LEClassifyKey, which returns
* more information.
*
* 22-Mar-93	Dave Lyons
*
* Made LESetText erase the "gap" on the left of a scrolled field.
*
* 1-Apr-93	Steve Stephenson
*
* Changed version to $0304 for 6.0.1 (final)
*
*************************************************************************************

	print nogen
	print push,off

	include 'All.Macros'
	include 'e16.quickdraw'
	include 'e16.event'		;20-Mar-92 DAL

	print pop
	
	include 'LineEditEquates.asm'


	MACRO
	PushZPtr &A
	pea  $0000
	tdc
	clc
	adc  #&A
	pha
	MEND

	MACRO
	PushZLong &A
	pei &A+2
	pei &A
	MEND

	MACRO
	PushZWord &A
	pei  &A
	MEND


;-----------------------------------------------
;
;           Forward	address and entries
;
;-----------------------------------------------

	ENTRY LEGetTextLen
	ENTRY LEGetTextHand
	ENTRY LESetJust
	ENTRY LETextBox2
	ENTRY LESetCaret
	ENTRY LESetHilite
	ENTRY LESetScrapLen
	ENTRY LEGetScrapLen
	ENTRY LEScrapHandle
	ENTRY LEToScrap
	ENTRY LEFromScrap
	ENTRY LETextBox
	ENTRY LEUpdate
	ENTRY LEInsert
	ENTRY LEDelete
	ENTRY LEPaste
	ENTRY LECopy
	ENTRY LECut
	ENTRY LEKey
	ENTRY LEDeactivate
	ENTRY LEActivate
	ENTRY LESetSelect
	ENTRY LEClick
	ENTRY LEIdle
	ENTRY LESetText
	ENTRY LEDispose
	ENTRY LENew
	ENTRY oStdEnd0
	ENTRY LEActive
	ENTRY LEReset
	ENTRY LEVersion
	ENTRY LEShutDown
	ENTRY LEStartUp
	ENTRY LEBootInit
	ENTRY STDERR4
	ENTRY STDEND4
	ENTRY STDEND0
	ENTRY LOCKREC
	ENTRY UNLOCKREC
	ENTRY STDENTRY
	ENTRY STDEXIT
	ENTRY STDEND
	ENTRY DRAWCARET
	ENTRY FINDPOINT
	ENTRY FindPoint2	;14-May-91 DAL
	ENTRY HIDECARET
	ENTRY HILITE
	ENTRY FINDWORD
	ENTRY SHOWCARET
	ENTRY HILITE2
	ENTRY CLEANUPSEL
	ENTRY CMPSEL
	ENTRY SELSORT
	ENTRY SAVESTARTPROC
	ENTRY DELETEGUTS
	ENTRY REDRAW
	ENTRY PASTEGUTS
	ENTRY CALCSELLEN
	ENTRY CALCSTARTPTR
	ENTRY LOCKSCRAP
	ENTRY UNLOCKSCRAP
	ENTRY INSERTGUTS
	ENTRY STDENTRY2
	ENTRY STDERR0
	ENTRY LOCKLINE2
	ENTRY UNLOCKLINE
	ENTRY GETSELRECT
	ENTRY INVERTHOOK
	ENTRY LOCKLINE
	ENTRY CEXIT
	ENTRY BEXIT
	ENTRY AEXIT
	ENTRY STDERR
	ENTRY HOOKCOMMON
	ENTRY MeasureThisText
	ENTRY DrawThisText

	entry LEClassifyKey		;20-Mar-92 DAL	
	
;-----------------------------------------------
;
; Global Imports
;
;-----------------------------------------------

	IMPORT OENDCALL
	IMPORT ERROUT
	IMPORT ENDCALL
	IMPORT OERROUT

****************************************************************
*
* LINE EDIT CALL TABLE
*
****************************************************************

	Export LECallTable
LECallTable	PROC
	import FakeGetLEDefProc


TheStart
	DC.L (TheEnd-TheStart)/4 	;num calls + 1
	DC.L LEBootInit-1
	DC.L LEStartUp-1
	DC.L LEShutDown-1
	DC.L LEVersion-1
	DC.L LEReset-1
	DC.L LEActive-1
	DC.L oStdEnd0-1
	DC.L oStdEnd0-1
	DC.L LENew-1
	DC.L LEDispose-1
	DC.L LESetText-1
	DC.L LEIdle-1
	DC.L LEClick-1
	DC.L LESetSelect-1
	DC.L LEActivate-1
	DC.L LEDeactivate-1
	DC.L LEKey-1
	DC.L LECut-1
	DC.L LECopy-1
	DC.L LEPaste-1
	DC.L LEDelete-1
	DC.L LEInsert-1
	DC.L LEUpdate-1
	DC.L LETextBox-1
	DC.L LEFromScrap-1
	DC.L LEToScrap-1
	DC.L LEScrapHandle-1
	DC.L LEGetScrapLen-1
	DC.L LESetScrapLen-1
	DC.L LESetHilite-1
	DC.L LESetCaret-1
	DC.L LETextBox2-1		; $20 ** added 2-87 Matthew Denman **
	DC.L LESetJust-1		; $21 ** added 3-6-87 CAE **
	DC.L LEGetTextHand-1 	; $22 ** added 3-24-87 CAE **
	DC.L LEGetTextLen-1		; $23 ** added 4-24-87 CAE **
	dc.L FakeGetLEDefProc-1	; $24 ** Added 12 Oct 88 SEG
*** 6.1
	dc.l LEClassifyKey-1	; $25 ** Added 20-Mar-92 DAL
TheEnd

	EndP


;****************************************************************
;*
;* DATA DECLARATIONS
;*
;****************************************************************
;
;	EXPORT LEData
;LEData	PROC
;
;	EndP


****************************************************************
*
* LEBootInit
*
****************************************************************

	Export LEBootInit
LEBootInit	PROC
	jmp oStdEnd0
	EndP


****************************************************************
*
* LEStartUp
*
****************************************************************

	Export LEStartUp
LEStartUp	PROC

;	cmp #0	;already initialized?
	tay	;opt 20-Mar-92 DAL
	beq Doit	;no
	ldx #InitErr	;yes - so return error
	ldy #4	;param size
	brl oErrOut	;was jml 19-Sep-90 DAL

Doit	phd
	lda 9,s	;get zero page address
	tcd

	ldx #$FE
Loop	stz <LEZBase,x	;clear zero page
	dex
	dex
	bpl Loop

	lda 11,s	;get program ID
	sta <ProgID

	pha	;optimized 19-Sep-90 DAL
	pha
	PushWord #0	;hi word of size
	PushWord #MaxChars	;lo word of size
	PushZWord <ProgID	;program ID
	PushWord #$0004	;page aligned, unpurgeable
	pha	;optimized 19-Sep-90 DAL
	pha
	_NewHandle	;allocate space for	scrap
	bcc GotMem
	tax	;xfer error code to	X
	pla	;pull result
	pla
	jmp StdErr4	;return the error

GotMem	pla
	sta <ScrapHandle
	pla
	sta <ScrapHandle+2

	lda 9,s	;get zero page address
	PushWord #0
	PushWord #LETSNum
	PushWord #0
	pha
	_SetWAP	;set work area pointer

	jmp StdEnd4
	EndP



****************************************************************
*
* LEShutDown
*
****************************************************************

	Export LEShutDown
LEShutDown	PROC

	phd
	tcd
	bne Doit
	ldx #ActiveErr	;return error if Line Edit not active
	jmp StdErr0

Doit	PushZLong <ScrapHandle
	_DisposeHandle	;release scrap space
	bcc OK
	tax	;xfer error code to	X
	jmp StdErr0	;return the error

OK	PushWord #0
	PushWord #LETSNum
	PushWord #0
	PushWord #0
	_SetWAP	;clear work area pointer

	jmp StdEnd0
	EndP



****************************************************************
*
* LEVersion
*
****************************************************************

	Export LEVersion
LEVersion	PROC
	lda #LEVerNum
	sta 7,s
	jmp oStdEnd0
	EndP


****************************************************************
*
* LEReset
*
****************************************************************

	Export LEReset
LEReset	PROC
;	cmp #0	;is LE active?
	tay	;opt 20-Mar-92 DAL
	beq Done	;no
	ldx #ResetErr	;yes - so return error
	ldy #0	;param size
	brl oErrOut	;was jml 19-Sep-90 DAL

Done	jmp oStdEnd0
	EndP


****************************************************************
*
* LEActive
*
****************************************************************

	Export LEActive
LEActive	PROC
	sta 7,s
	jmp oStdEnd0
	EndP


****************************************************************
*
* LENew
*
*
* Change History
*
* 12 Jun 89	Steven Glass
*
* Fixed bug introduced looking for PW char.  Trying to save
* size in x I did a txa rather than a tax.
*
****************************************************************
	Export LENew
LENew	PROC	;LENew uses TempPtr1 and TempPtr2
	phd
	tcd

	pha
	pha	;optimized 19-Sep-90 DAL
	PushWord #0	;hi word of size
	PushWord #LERecSize	;lo word of size
	PushZWord <ProgID	;prog ID
	PushWord #0	;unpurgeable
	pha
	pha	;optimized 19-Sep-90 DAL
	_NewHandle	;allocate mem for the edit record
	bcc GotMem
	tax	;xfer error code to	X
	bra MemErr

GotMem	pla	;get handle to mem
	sta <RecHandle	;save it
	sta 21,s	;and return it
	pla
	sta <RecHandle+2
	sta 21,s
	jsr LockRec

	lda #0
	ldy #LERecSize
	dey
	dey
ZLoop	sta [<RecPtr],y	;zero out record
	dey
	dey
	bpl ZLoop

	ldy #leMaxLength
	lda 9,s	;get maxtextlen parameter
	and #$7FFF
	cmp #MaxChars	;make sure it's not too big
	bcc OK
	lda #MaxChars
OK	sta [<RecPtr],y
	tax	; save in x for use below   FIXED SEG 12 Jun 89

	lda 9,s	; use
***	and #$8000
***	beq NoPWChar
	bpl NoPWChar	;optimized 11-Mar-91 DAL

	lda #defaultPWChar	;default pw char is now hollow diamond (11-Mar-91 DAL)
***	lda #'*'
	ldy #lePWChar
	sta [<RecPtr],y
NoPWChar

	pha	; space for result
	pha
	PushWord #0	;hi word of size
	phx	;lo word of size -	maxtextlen parameter
	PushZWord <ProgID	;program ID
	PushWord #0	;unpurgeable
	pha	; unused long
	pha
	_NewHandle	;allocate mem for the line
	bcc GotMem2
	tax	;xfer error code to	X
	jsr UnLockRec	;clean up
MemErr	pla	;pull result
	pla
	ldy #10	;param size
	brl ErrOut	;return the error (was jml 19-Sep-90 DAL)

GotMem2	pla
	sta [<RecPtr]
	ldy #2
	pla
	sta [<RecPtr],y

	lda 15,s	;get ptr to destrect parameter
	sta <TempPtr1
	lda 17,s
	sta <TempPtr1+2
	lda #leDestRect	;create ptr to destrect field and
	jsr CopyRect	;copy parameter into field

	lda 11,s	;get ptr to viewrect parameter
	sta <TempPtr1
	lda 13,s
	sta <TempPtr1+2
	lda #leViewRect	;create ptr to viewrect field and
	jsr CopyRect	;copy parameter into field

	pha	;optimized 19-Sep-90 DAL
	pha
	_GetPort	;get handle to current port
	ldy #lePort
	pla
	sta [<RecPtr],y	;and store in port field
	iny
	iny
	pla
	sta [<RecPtr],y

	PushZPtr <TempPtr1	;push address of TempPtr1
	_GetFontInfo	;returns 4 words of	info
	clc
	lda <TempPtr1	;get ascent
	adc <TempPtr2+2	;add in leading
	ldy #leBaseHite
	sta [<RecPtr],y	;store in basehite field
	adc <TempPtr1+2	;add in descent
	ldy #leLineHite
	sta [<RecPtr],y	;store in linehite field

	jsr UnLockRec
	ldy #10	;param size
	brl EndCall	;was jml 19-Sep-90 DAL

;-------------------------------------------------------------------------------

CopyRect	clc
	adc <RecPtr	;create ptr to field
	sta <TempPtr2
	lda <RecPtr+2
	adc #0
	sta <TempPtr2+2
	ldy #6
RLoop	lda [<TempPtr1],y	;copy parameter into field
	sta [<TempPtr2],y
	dey
	dey
	bpl RLoop
	rts

	EndP


****************************************************************
*
* LEDispose
*
****************************************************************

	Export LEDispose
LEDispose	PROC

	phd
	tcd

	lda 9,s
	sta <RecHandle
	lda 11,s
	sta <RecHandle+2
	jsr LockRec

	ldy #2
	lda [<RecPtr],y	;push handle to line
	pha
	lda [<RecPtr]
	pha
	jsr UnLockRec

	_DisposeHandle	;dispose of line
	bcc OK
	tax	;xfer error code to	X
	jmp StdErr4	;return the error

OK	lda 11,s	;push handle to edit record
	pha
	lda 11,s
	pha
	_DisposeHandle	;dispose of edit record
	bcc Done
	tax	;xfer error code to	X
	jmp StdErr4	;return the error

Done	jmp StdEnd4

	EndP


****************************************************************
*
* LESetText
*
****************************************************************

	Export LESetText
LESetText	PROC
	import EraseDestViewGap

	phd
	tcd

	ldx #10
	jsr StdEntry

;	ldy #leHScrollPos
;	lda #0
;	sta [<RecPtr],y
*** changed 22-Mar-93 DAL to erase the "gap" on the left, if needed
	ldy #leHScrollPos
	lda [<RecPtr],y
	beq @notScrolled
	lda #0
	sta [<RecPtr],y
	jsr EraseDestViewGap
@notScrolled
*** end 22-Mar-93

	lda 13,s	;text length
	ldy #leMaxLength
	cmp [<RecPtr],y	;is length < max line length?
	bcc OK	;yes
	lda [<RecPtr],y	;no - so set length	to max line length
OK	ldy #leLength
	sta [<RecPtr],y
	ldy #leSelStart	;set insertion point to end of text
	sta [<RecPtr],y
	ldy #leSelEnd
	sta [<RecPtr],y

	tay	;transfer text length to Y
	beq Done	;quit if length is 0
	dey

Cont	lda 15,s	;get ptr to text
	sta <TextPtr
	lda 17,s
	sta <TextPtr+2

;----------------------------------------------------
;
; Switch to mixed mode (8 bit m) to move the
; characters to handle.
;
;----------------------------------------------------
	sep #%00100000
	longa off
Loop	lda [<TextPtr],y	;copy text into line
	sta [<LinePtr],y
	dey
	bpl Loop
	rep #%00100000
	longa on

Done	jsr StdExit
	jmp StdEnd
	EndP



****************************************************************
*
* LEIdle
*
****************************************************************

	Export LEIdle
LEIdle	PROC

	phd
	tcd

	ldx #4
	jsr StdEntry

	ldy #leCarAct
	lda [<RecPtr],y
	beq Done	;quit if not active

	lda >TickCnt+2
	ldy #leCarTime+2
	cmp [<RecPtr],y
	bcc Done	;quit if hi word of	tickcnt < cartime
	bne Time	;branch if tickcnt > cartime
	lda >TickCnt	;if hi words equal then check lo words
	ldy #leCarTime
	cmp [<RecPtr],y
	bcc Done	;quit if lo word of	tickcnt < cartime

Time	pha
	pha	;optimized 19-Sep-90 DAL
	_GetCaretTime	;get # ticks until next blink
	ldx #0	;init 'no flash flag' to 0
	pla
	bne Flash
	lda #60	;caret is set to 'no flash' so inc
	inx	;CarTime so don't call _GetCaretTime so
;		;often and set 'no flash flag'
Flash	ldy #leCarTime
	clc	;add '# ticks until next blink' to
	adc >TickCnt	;current tick count
	sta [<RecPtr],y	;and save
	iny
	iny
	pla
	adc >TickCnt+2
	sta [<RecPtr],y

	cpx #0	;check 'no flash flag'
	bne Done	;quit if it's set

	jsr DrawCaret	;flip the caret

	ldy #leCarOn
	lda #1
	eor [<RecPtr],y
	sta [<RecPtr],y	;flip the flag

Done	jsr StdExit
	jmp StdEnd

	EndP


****************************************************************
*
* LEClick
*
****************************************************************

	Export LEClick
LEClick	PROC
	import ComputeMaxScrollPos,EraseDestViewGap

EventPtr	equ TempPtr1
SaveStart	equ TempPtr2
SaveEnd	equ TempPtr2+2

	phd
	tcd

	ldx #8
	jsr StdEntry
	stz <RevFlag	;clear reversed flag

	lda 13,s	;get Event Record pointer
	sta <EventPtr
	lda 15,s
	sta <EventPtr+2
	ldy #2
	lda [<EventPtr],y	;get button number and save
	sta <BNum
	ldy #10
	lda [<EventPtr],y	;get mouse loc
	sta <SelPoint
	iny
	iny
	lda [<EventPtr],y
	sta <SelPoint+2
	PushZPtr <SelPoint
	_GlobalToLocal	;and convert to local coordinates

	jsr FindPoint	;returns char index	in SelPoint
	bcc GotIndex
	jmp Done	;point not in viewrect so quit

GotIndex	jsr HideCaret
	jsr HiLite	;remove selection

	lda <SelPoint	;get current click loc
	cmp <ClickLoc	;same loc as previous click?
	bne Single	;no - so not a double click

;-------------------------------------------------------------------------------
; Double Click Stuff

	pha
	pha	;optimized 19-Sep-90 DAL
	_GetDblTime	;get current double	click setting
	pla
	asl a	;mult by 2 and save
	sta <DoubleTime
	pla	;discard hi word

	sec
	ldy #6
	lda [<EventPtr],y	;get lo word of click time
	sbc <ClickTime	;subtract previous click time
	tax	;store in X
	iny
	iny
	lda [<EventPtr],y	;get hi word of click time
	sbc <ClickTime+2	;subtract previous click time
	bne Single	;if not 0 then too long between clicks
	cpx <DoubleTime	;less than double click setting?
	bcs Single	;no
	lda <DoubleClick	;already had double-click?
	bne Triple	;yes - so now have triple click
	inc <DoubleClick	;no - so set double	click flag

	lda <SelPoint
	jsr FindWord	;find word containing selpoint
	lda <WordStart
	sta <SaveStart	;save wordstart
	ldy #leSelStart
	sta [<RecPtr],y	;set new selstart
	lda <WordEnd
	sta <SaveEnd	;save wordend
	bra StoreEnd	;set new selend

;-------------------------------------------------------------------------------
; Triple Click Stuff

Triple	lda #0	;set selection range to whole line
	ldy #leSelStart
	sta [<RecPtr],y
	ldy #leLength
	lda [<RecPtr],y
	ldy #leSelEnd
	sta [<RecPtr],y
	jsr ShowCaret	;** bug fix 2-19-87	CAE **
	jsr HiLite	;show new selection
;
; 4/8/89	mensch
; inserted the following loop to troll the event queue for the mouseup that should be
; hanging around on the stack
@Wait
	pha	;optimized 19-Sep-90 DAL
	PushZWord <BNum	;button number
	_WaitMouseUp
	pla	;is button still down?
	bne @wait	;yes
; END
	jmp Done

;-------------------------------------------------------------------------------
; Single Click Stuff

Single	stz <DoubleClick	;clear double click	flag
	ldy #14
	lda [<EventPtr],y	;get modifiers
	and #$0200	;shift key pressed?
	bne Extend	;yes - so extend selection
	lda <SelPoint	;no - so set insertion point to new loc
	ldy #leSelStart
	sta [<RecPtr],y	;set new selstart
	bra StoreEnd

Extend	lda <SelPoint	;extend selection to new loc

;-------------------------------------------------------------------------------
; Save click info and show new insertion point or selection	range

StoreEnd	ldy #leSelEnd
	sta [<RecPtr],y	;set new selend

	lda <SelPoint
	sta <ClickLoc	;save current click	loc
	ldy #6
	lda [<EventPtr],y	;get lo word of click time
	sta <ClickTime	;and save
	iny
	iny
	lda [<EventPtr],y	;get hi word of click time
	sta <ClickTime+2	;and save

	jsr ShowCaret
	jsr HiLite	;show selection

;-------------------------------------------------------------------------------
; Check if button still down

*** added 22-Jan-92 DAL
	jsr ComputeMaxScrollPos
*** end 22-Jan-92

Wait	pha	;optimized 19-Sep-90 DAL
	PushZWord <BNum	;button number
	_WaitMouseUp
	pla	;is button still down?
	bne BtnDown	;yes
	jsr ShowCaret	;no - so done
Done	jsr StdExit
	jmp StdEnd

;-------------------------------------------------------------------------------
; Drag Stuff

BtnDown	PushZPtr <SelPoint	;push ptr to space for result
	_GetMouse	;get current mouse position
***	jsr FindPoint	;convert to char index
***	bcs Wait	;point not in viewrect

	lda <SelPoint+2	;14-May-91 DAL
	sta <OriginalXPos	;14-May-91 DAL
	jsr FindPoint2	;14-May-91 DAL: Don't care if we're in viewRect or not

*** 11-Mar-91 DAL -- scroll left or right as necessary
*** added 14-Mar-91 DAL--oops, forgot to check if we are left-justified
	ldy #leJust
	lda [<RecPtr],y
	bne @noScrollNeeded	;not left-justified
*** end of 14-Mar-91 DAL
	ldx #-10	;scroll left this many pixels
***	lda <SelPoint+2	;horizontal position
	lda <OriginalXPos	;horizontal position, untranslated
	ldy #leDestRect+2
	cmp [<RecPtr],y
	bmi @scrollSome	;scroll to the left

	ldx #10	;scroll right this many pixels
	ldy #leViewRect+6
	cmp [<RecPtr],y
	bpl @scrollSome	;scroll to the right
	bra @noScrollNeeded

@scrollSome	txa
	clc
	ldy #leHScrollPos
	adc [<RecPtr],y
	bpl @okay
	lda #0
@okay	cmp #10000
	bcc @okay2
	lda #10000
@okay2
*** added 22-Jan-92 DAL -- clip against MaxScrollPos
	cmp <MaxScrollPos
	bcc @okay3
	lda <MaxScrollPos
@okay3
*** end 22-Jan-92
;;;	sta [<RecPtr],y
*** added 22-Jan-92 DAL -- don't flicker if there's no scrolling happening
	cmp [<RecPtr],y
	sta [<RecPtr],y
	beq @noScrollNeeded
*** end 22-Jan-92 DAL


	jsr EraseDestViewGap  ;22-Jan-92 DAL
	stz <DispStart
	jsr ReDraw

*** Hmmm...is this something close to what I need to do here?  (Apparently!)
	jsr ShowCaret
	jsr HiLite	;reshow selection

	pha
	pea 0	;wait from now
	pea $0040	;wait 4 ticks
	_WaitUntil
	pla

@noScrollNeeded
*** end of 11-Mar-91 DAL

	lda <SelPoint
	ldy #leSelEnd
	cmp [<RecPtr],y	;has mouse moved?
***	beq Wait	;no
	bne @nowait
	brl Wait
@nowait

	lda <DoubleClick	;was this a double click?
	beq DoHilite	;no - so skip some of this stuff

	lda <SelPoint
	jsr FindWord	;find word containing new mouse loc
	lda <SelPoint
	cmp <SaveStart	;is selpoint to left of savestart?
	bcc OnLeft	;yes

OnRight	lda <RevFlag	;is drag direction reversed?
	beq GoRight	;no - so OK
	lda <SaveStart	;yes - so set selstart to savestart
	jsr Reverse	;and reverse direction of drag
	stz <RevFlag	;clear reversed flag
GoRight	lda <WordEnd	;expand to the right
	bra NewPoint

OnLeft	lda <RevFlag	;is drag direction reversed?
	bne GoLeft	;yes - so OK
	lda <SaveEnd	;no - so set selstart to saveend
	jsr Reverse	;and reverse direction of drag
	inc <RevFlag	;set reversed flag
GoLeft	lda <WordStart	;expand to the left

NewPoint	sta <SelPoint

DoHilite	jsr HideCaret
	ldy #leSelEnd
	lda [<RecPtr],y
	sta <DispStart	;dispstart = previous selend
	lda <SelPoint
	sta <DispEnd	;dispend = new selend
	sta [<RecPtr],y	;set new selend
	jsr HiLite2	;invert the changed	part
	brl Wait	;too far for BRA

;-------------------------------------------------------------------------------

Reverse	ldy #leSelStart
	sta [<RecPtr],y	;set selstart to new value
	lda <SaveStart	;invert word the double click was on
	sta <DispStart	;so that when we change directions it
	lda <SaveEnd	;stays highlighted
	sta <DispEnd
	jsr HiLite2
	rts

	EndP


****************************************************************
*
* ComputeMaxScrollPos
*
* added 22-Jan-92 DAL -- compute <MaxScrollPos = maximum scroll offset,
*  considering current length of the text and width of the destRect.
*
* If textWidth <= destWidth, maxScroll = 0.
* If textWidth > destWidth, maxScroll = textWidth - destWidth + slop.
*
* SPECIAL CASE:  If destWidth is zero, maxScroll = 0.  This is
*                for AppleWorks GS 1.1 Graphics text items.
*
* Inputs: <RecPtr, <LinePtr
* Output: <MaxScrollPos, <DestWidth
*
****************************************************************
ComputeMaxScrollPos	proc export
	stz <MaxScrollPos	;anticipate no scrolling allowed

	ldy #leDestRect+6	;right edge
	lda [<RecPtr],y
	sec
	ldy #leDestRect+2
	sbc [<RecPtr],y
	sta <DestWidth
	beq @maxScrollZero	;for AWGS!

	pha	;space for result
	pei <LinePtr+2	;push ptr to text
	pei <LinePtr
	ldy #leLength
	lda [<RecPtr],y
	pha
	jsl MeasureThisText
	pla	;width of current text
	cmp <DestWidth
	bcc @maxScrollZero
	beq @maxScrollZero

	sec
	sbc <DestWidth
	clc
	adc #21	;slop
	sta <MaxScrollPos
@maxScrollZero	rts

	EndP
*** end 22-Jan-92


****************************************************************
*
* LESetSelect
*
****************************************************************

	Export LESetSelect
LESetSelect	PROC
	import EraseDestViewGap

	phd
	tcd

	ldx #8
	jsr StdEntry

	jsr HideCaret
	jsr HiLite	;remove old selection

; The un-scroll code was here, but now it's down below (22-Jan-92 DAL)

	lda 15,s	;get new selstart
	ldy #leSelStart
	sta [<RecPtr],y	;set new selstart

	lda 13,s	;get new selend
	ldy #leSelEnd
	sta [<RecPtr],y	;set new selend

*** 11-Mar-91 DAL (moved below HideCaret and HiLite, 14-May-91 DAL)
*** (moved below setting selStart and selEnd, 22-Jan-92 DAL)
	ldy #leHScrollPos
	lda [<RecPtr],y
	beq @notScrolled
	lda #0
	sta [<RecPtr],y
	stz <DispStart
	jsr ReDraw
	jsr EraseDestViewGap
@notScrolled
*** end of 11-Mar-91 DAL

	jsr CleanUpSel	;clean up selection

	jsr ShowCaret
	jsr HiLite	;show new selection

	jsr StdExit
	jmp StdEnd

	EndP


****************************************************************
*
* LEActivate
*
****************************************************************

	Export LEActivate
LEActivate	PROC

	phd
	tcd

	ldx #4
	jsr StdEntry

	ldy #leActFlg
	lda [<RecPtr],y	;already active?
	bne Done	;yes - so done
	lda #1	;no - so set active	flag to true
	sta [<RecPtr],y

	jsr ShowCaret	;show the caret
	jsr HiLite	;show selection

Done	jsr StdExit
	jmp StdEnd

	EndP


****************************************************************
*
* LEDeactivate
*
****************************************************************

	Export LEDeactivate
LEDeactivate	PROC

	phd
	tcd

	ldx #4
	jsr StdEntry

	ldy #leActFlg
	lda [<RecPtr],y	;already inactive?
	beq Done	;yes - so done

	jsr HideCaret	;hide the caret
	jsr HiLite	;remove the selection

	ldy #leActFlg
	lda #0	;set active flag to	false
	sta [<RecPtr],y

Done	jsr StdExit
	jmp StdEnd

	EndP


****************************************************************
*
* LEKey
*
****************************************************************

	Export LEKey
LEKey	PROC

	phd
	tcd

	ldx #8
	jsr StdEntry

	_ObscureCursor	;hide cursor
	jsr HideCaret	;remove caret

	lda 13,s	;get modifiers
	sta <Mods
	lda 15,s	;get char
	sta <TheChar
	cmp #$06	;control-F?
	beq CntlF
	cmp #$18	;control-X?
	beq CntlX
	cmp #$19	;control-Y?
	beq CntlY
	cmp #$7F	;backspace?
	beq BackSpace
	cmp #$08	;left arrow?
	beq LArrow
	cmp #$15	;right arrow?
	beq JmpRArrow
	brl DoChar
JmpRArrow	brl RArrow	;too far for a branch

;-------------------------------------------------------------------------

CntlF	jsr CmpSel	;see if null selection range
	bne CutIt	;not null, so delete selection

;since there's no selection, delete char to the right of the insertion point

	ldy #leSelEnd
	lda [<RecPtr],y	;get selend
	ldy #leLength
	cmp [<RecPtr],y
	beq JmpDone	;quit if insertion point at end of line
	inc a
	ldy #leSelEnd
	sta [<RecPtr],y	;move selend 1 char	to right
	bra CutIt

;-------------------------------------------------------------------------

CntlX	jsr CmpSel	;see if null selection range
	bne CutIt	;not null, so delete selection
	lda #0	;is null, so delete	whole line
	sta [<RecPtr],y	;set selstart to 0
	bra YCont

;-------------------------------------------------------------------------

CntlY	jsr CmpSel	;see if null selection range
	bne CutIt	;not null, so delete selection
YCont	ldy #leLength	;is null, so delete	to end of line
	lda [<RecPtr],y
	ldy #leSelEnd
	sta [<RecPtr],y	;set selend to end of line
	bra CutIt

;-------------------------------------------------------------------------

BackSpace	jsr CmpSel	;see if null selection range
	bne CutIt	;not null, so delete selection

;since there's no selection, delete char to the left of the insertion point

	lda [<RecPtr],y	;get selstart
	beq JmpDone	;quit if insertion point at first char
	lda [<RecPtr],y	;move selstart 1 char left
	dec a
	sta [<RecPtr],y

CutIt	jsr SelSort	;sort selection ends
	jsr SaveStartProc	;save selstart
	jsr DeleteGuts	;delete selection
	jsr ReDraw
JmpDone	jmp Done

;--------------------------------------------------------------------

LArrow	jsr SaveSel	;save current selection

	lda <Mods
	and #$0800	;option key pressed?
	beq LTstApple	;no
LArrow2	ldy #leSelEnd	;yes - so do word selection
	lda [<RecPtr],y	;get current selend
	beq JmpDone	;quit if at start of line
	dec a	;dec by 1 since left arrow
	jsr FindWord	;find the word
	jsr CmpSel	;already have a selection range?
	bne LSelRange	;yes - so branch
	lda <WordEnd	;no - so set sel range to the word
	sta [<RecPtr],y	;new selstart
	tax	;save new selstart in X
	lda <Mods
	and #$0200	;shift key pressed?
	beq LSelRange	;no - so branch
	stx <DispStart	;yes-make sure whole word is highlighted

LSelRange	ldy #leSelEnd
	lda <WordStart
	sta [<RecPtr],y	;new selend

LCont	lda <Mods
	and #$0200	;shift key pressed?
	beq LNoShift	;no  - so branch
	ldy #leSelStart	;yes - so check if selend and selstart
	lda [<RecPtr],y	;are equal
	cmp <WordStart
	bne LDone	;not equal so done
	lda <DispStart	;are equal so set selstart to old selend
	sta [<RecPtr],y	;and go back thru previous code to move
	jsr SaveSel	;another word to the left
	bra LArrow2

LTstApple	lda <Mods
	and #$0100	;apple key pressed?
	beq LTstShift	;no
	lda #0
	ldy #leSelEnd
	sta [<RecPtr],y	;yes - so set selend to start of line

LTstShift	lda <Mods
	and #$0200	;shift key pressed?
	beq LNoShift	;no
	ldy #leSelEnd
	lda [<RecPtr],y
	beq LDone	;branch if already at start of line
	dec a	;extend selection left by 1 char
	sta [<RecPtr],y
	bra LDone

LNoShift	jsr SelSort	;sort the selection	ends
	ldy #leSelStart
	lda [<RecPtr],y
	beq LCont1	;branch if at start	of line
	ldy #leSelEnd
	cmp [<RecPtr],y	;is there a selection range?
	bne LCont1	;yes - so position at start of selection
	dec a	;no - so move insertion point 1 char L

LCont1	ldy #leSelStart
	sta [<RecPtr],y
LCont2	ldy #leSelEnd
	sta [<RecPtr],y
LDone	lda <Mods
	and #$0200	;shift key pressed?
	beq LInvert	;no - so branch
	ldy #leSelEnd	;yes
	lda [<RecPtr],y	;dispend = new selend
	sta <DispEnd
LInvert

;;;	jsr HiLite2	;invert part of selection which changed (removed 22-Jan-92 DAL)
;*** 11-Mar-91 DAL
;	jsr ReDraw	;this is overkill
;*** end 11-Mar-91 DAL

*** 22-Jan-92 DAL -- forcibly redraw everything to cover all cases
	stz <DispStart
	jsr ReDraw
	jsr HiLite
*** end 22-Jan-92
LJmpDone	jmp Done

;--------------------------------------------------------------------

RArrow	jsr SaveSel	;save current selection

	lda <Mods
	and #$0800	;option key pressed?
	beq RTstApple	;no
RArrow2	ldy #leSelEnd	;yes - so do word selection
	lda [<RecPtr],y	;get current selend
	ldy #leLength
	cmp [<RecPtr],y
	beq LJmpDone	;quit if at end of line
	jsr FindWord	;find the word
	jsr CmpSel	;already have a selection range?
	bne RSelRange	;yes - so branch
	lda <WordStart	;no - so set sel range to the word
	sta [<RecPtr],y	;new selstart
	tax	;save new selstart in X
	lda <Mods
	and #$0200	;shift key pressed?
	beq RSelRange	;no - so branch
	stx <DispStart	;yes-make sure whole word is highlighted

RSelRange	ldy #leSelEnd
	lda <WordEnd
	sta [<RecPtr],y	;new selend

	lda <Mods
	and #$0200	;shift key pressed?
	beq RNoShift	;no - so branch
	ldy #leSelStart	;yes - so  check if	selend and selstart
	lda [<RecPtr],y	;are equal
	cmp <WordEnd
	bne RDone	;not equal so done
	lda <DispStart	;are equal so set selstart to old selend
	sta [<RecPtr],y	;and go back thru previous code to move
	jsr SaveSel	;another word to the right
	bra RArrow2

RTstApple	lda <Mods
	and #$0100	;apple key pressed?
	beq RTstShift	;no
	ldy #leLength
	lda [<RecPtr],y
	ldy #leSelEnd
	sta [<RecPtr],y	;yes - so set selend to end of line

RTstShift	lda <Mods
	and #$0200	;shift key pressed?
	beq RNoShift	;no
	ldy #leSelEnd
	lda [<RecPtr],y
	ldy #leLength
	cmp [<RecPtr],y
	beq RDone	;branch if at end of line
	inc a	;extend selection right by 1 char
	jmp LCont2

RNoShift	jsr SelSort	;sort the selection	ends
	ldy #leSelEnd
	lda [<RecPtr],y
	ldy #leLength
	cmp [<RecPtr],y	;already at end of line?
	beq RCont1	;yes
	ldy #leSelStart
	cmp [<RecPtr],y	;is there a selection range?
	bne RCont1	;yes - so position at end of selection
	inc a	;no - so move insertion point 1 char R

RCont1	jmp LCont1
RDone	jmp LDone

;-------------------------------------------------------------------------

SaveSel	ldy #leSelEnd
	lda [<RecPtr],y	;dispstart = selend
	sta <DispStart
	ldy #leSelStart
	lda [<RecPtr],y	;dispend = selstart
	sta <DispEnd
	rts

;-------------------------------------------------------------------------

DoChar	lda #1
	sta <TextLength
	stz <TextPtr+2	;set up ptr to char
	clc
	tdc
	adc #TheChar
	sta <TextPtr
	jsr SelSort	;sort selection ends
	jsr HiLite	;remove selection
	jsr SaveStartProc	;save selstart
	jsr PasteGuts	;insert char
	jsr ReDraw

Done	jsr ShowCaret
	jsr StdExit
	jmp StdEnd

	EndP



****************************************************************
*
* LECut
*
****************************************************************

	Export LECut
LECut	PROC

	phd
	tcd

	lda 11,s	;push handle
	pha
	lda 11,s
	pha
	jsl xLECopy	;copy selection to scrap
	bcs GotErr

	lda 11,s	;push handle
	pha
	lda 11,s
	pha
	jsl xLEDelete	;delete selection
	bcs GotErr

	jmp StdEnd4

GotErr	tax	;xfer error code to	X
	jmp StdErr4	;return the error

xLECopy	tdc
	jsl LECopy
	rtl

xLEDelete	tdc
	jsl LEDelete
	rtl

	EndP


****************************************************************
*
* LECopy
*
*
* Change History
*
* 16 Jun 88	Steven Glass
*
* Value of scrap length is now checked before moving any data.
* this prevents data from being trashed.
*
****************************************************************

	Export LECopy
LECopy	PROC

	phd
	tcd

	ldx #4
	jsr StdEntry

	jsr SelSort	;sort selection ends
	jsr CalcSelLen	;calculate length of selection range
	sta <ScrapLength	;and store as new scraplength

;	cmp #0	; make sure that there is something to move
	tay	;opt 20-Mar-92 DAL
	beq Done

	jsr CalcStartPtr	;StartPtr now points to start of sel
	jsr LockScrap	;TextPtr now points	to scrap

	ldy <ScrapLength
	tya
	ror a
	bcs DecOne	;branch if length is odd
	dey
DecOne	dey

Loop	lda [<StartPtr],y	;copy selection into scrap
	sta [<TextPtr],y
	dey
	dey
	bpl Loop

	jsr UnLockScrap

Done	jsr StdExit
	jmp StdEnd

	EndP


****************************************************************
*
* LEPaste
*
****************************************************************

	Export LEPaste
LEPaste	PROC

	phd
	tcd

	ldx #4
	jsr StdEntry

	jsr SelSort	;sort selection ends
	jsr HideCaret
	jsr HiLite	;remove selection
	jsr SaveStartProc	;save selstart

	jsr LockScrap	;TextPtr now points	to scrap
	lda <ScrapLength
	sta <TextLength
	jsr PasteGuts	;paste scrap into line
	jsr UnLockScrap

	jsr ReDraw
	jsr ShowCaret

Done	jsr StdExit
	jmp StdEnd

	EndP


****************************************************************
*
* LEDelete
*
****************************************************************

	Export LEDelete
LEDelete	PROC

	phd
	tcd

	ldx #4
	jsr StdEntry

	jsr SelSort	;sort selection ends
	jsr HideCaret
	jsr SaveStartProc	;save selstart
	jsr DeleteGuts	;delete the selection
	jsr ReDraw	;redraw from saved selstart
	jsr ShowCaret

	jsr StdExit
	jmp StdEnd

	EndP


****************************************************************
*
* LEInsert
*
****************************************************************

	Export LEInsert
LEInsert	PROC

	phd
	tcd

	ldx #10
	jsr StdEntry

	jsr SelSort	;sort selection ends
	jsr HideCaret
	jsr HiLite	;remove selection

	lda 13,s
	ldy #leMaxLength
	cmp [<RecPtr],y	;is length > max line length?
	bcc OK	;no
	lda [<RecPtr],y	;yes - so set it to	max line length
OK	sta <TextLength
	lda 15,s	;get ptr to text to	insert
	sta <TextPtr
	lda 17,s
	sta <TextPtr+2

	jsr SaveStartProc	;save selstart
	jsr InsertGuts	;insert the text
	jsr ReDraw	;redraw from saved selstart
	jsr ShowCaret
	jsr HiLite	;restore the selection

Done	jsr StdExit
	jmp StdEnd

	EndP


****************************************************************
*
* LEUpdate
*
****************************************************************

	Export LEUpdate
LEUpdate	PROC

	phd
	tcd

	ldx #4
	jsr StdEntry

	jsr HideCaret	;** bug fix 2-24-87	CAE **

	stz <DispStart
	jsr ReDraw	;redraw from start of line

	jsr ShowCaret	;** bug fix 2-24-87	CAE **
	jsr HiLite	;reshow selection

Done	jsr StdExit
	jmp StdEnd

	EndP


****************************************************************
*
* LETextBox
*
****************************************************************

	Export LETextBox
LETextBox	PROC

RectPtr	equ StartPtr
RectWidth	equ TempPtr2
NumChars	equ TempPtr2+2
H1	equ TempWord1
V1	equ TempWord2

	phd
	tcd

	lda #12	;added 22-Sep-90 DAL
	sta <stripSize	;added 22-Sep-90 DAL

	lda 15,s	;get length of text
	bne OK
	jmp Done	;quit if 0

OK	sta <TextLength	;save text length

	lda 11,s	;get ptr to rect and save
	sta <RectPtr
	lda 13,s
	sta <RectPtr+2

	lda 17,s	;get ptr to text and save
	sta <TextPtr
	lda 19,s
	sta <TextPtr+2

	stz <DispStart	;init char offset to 0

	PushWord #0	;space for result
	PushWord #0
	PushZLong <RectPtr	;destrect
	PushZLong <RectPtr	;viewrect - make max text len as small
	PushWord #1	;as possible since it won't be used
	jsl xLENew	;create a new edit record
	bcc OKNew
	tax	;xfer error code to	X
	pla	;pull result off stack
	pla
	ldy #12	;# bytes of params for LETextBox
	brl ErrOut	;return the error (was jml 19-Sep-90 DAL)

OKNew	pla	;get handle to record and save
	sta <RecHandle
	pla
	sta <RecHandle+2

	ldx #12
	jsr StdEntry2

	PushZLong <RectPtr
	_EraseRect	;erase the rect

	ldy #leDestRect+6
	lda [<RecPtr],y	;get H2 of the rect
	sec
	ldy #leDestRect+2
	sbc [<RecPtr],y	;subtract H1 of the	rect
	sta <RectWidth	;save width of the rect

	lda [<RecPtr],y	;get H1 of the rect
	sta <H1	;and save
	ldy #leDestRect
	lda [<RecPtr],y	;get V1 of the rect
	clc
	ldy #leBaseHite
	adc [<RecPtr],y	;and calculate the base line
	sta <V1	;and save

NewLine	clc
	lda <TextPtr	;get ptr to start of text
	adc <DispStart	;and add current offset
	sta <StartPtr	;to calculate ptr to start of line
	lda <TextPtr+2
	adc #0
	sta <StartPtr+2

	stz <NumChars	;init '# chars in line' to 0
	ldy <DispStart	;get offset to first char in line
Loop	lda [<TextPtr],y	;read the char
	iny	;inc char offset
	and #$00FF	;mask off the hi byte of the char
	cmp #$0D	;is the char a CR?
	beq GotCR	;yes
	inc <NumChars	;no - so inc '# chars in line'
	cpy <TextLength	;are we at the end of the text?
	bcc Loop	;no - so check next	char

GotCR	sty <DispStart	;save offset to start of next line
	lda <NumChars	;get # chars in line
	beq NoChars	;branch if no chars	in line

	lda 9,s	;get justification
	bne NotLeft
	PushZWord <H1	;left justified
	bra Cont

NotLeft
	pha	;optimized 19-Sep-90 DAL
	PushZLong <StartPtr	;ptr to start of line
	PushZWord <NumChars	;# of chars in line
	_TextWidth	;measure width of line
	sec
	lda <RectWidth	;get width of rect
	sbc 1,s	;subtract width of line
	bcs OK2	;branch if linewidth < rectwidth
	lda #0
OK2	sta 1,s	;save diff between widths
	lda 11,s	;get justification
	bmi Adjust	;branch if right justify
	lda 1,s	;get diff
	lsr a	;divide by 2
	sta 1,s	;and save
Adjust	pla	;get diff
	clc
	adc <H1	;add to H1
	pha	;and push

Cont	PushZWord <V1
	_MoveTo	;position pen

	PushZLong <StartPtr	;ptr to start of line
	PushZWord <NumChars	;# chars in line
	_DrawText	;draw the text

NoChars	lda <DispStart	;get current char offset
	cmp <TextLength	;at end of text?
	bcs NoMore	;yes - so done

	clc
	lda <V1	;get V1 for line just drawn
	ldy #leLineHite
	adc [<RecPtr],y	;add linehite to calculate V1 for
	sta <V1	;next line and save
	jmp NewLine

NoMore	jsr StdExit

	PushZLong <RecHandle
	jsl xLEDispose	;dispose of edit record
	bcc Done
	tax	;xfer error code to	X
	jmp StdErr	;LEDispose returned	an error

Done	jmp StdEnd

;-------------------------------------------------------------------------------

xLENew	tdc
	jsl LENew
	rtl

xLEDispose	tdc
	jsl LEDispose
	rtl

	EndP


****************************************************************
*
* LEFromScrap
*
****************************************************************

	Export LEFromScrap
LEFromScrap	PROC

	phd
	tcd

	pha
	pha	;optimized 19-Sep-90 DAL
	PushWord #ScrapType	;type = text
	_GetScrapSize	;get size of desk scrap
	bcs GotErr

	plx	;get lo word of size
	pla	;get hi word of size
	bne TooBig	;if not 0 then too big
	cpx #0	;Check if the desk scrap is empty, if it 
	beq Fini	;is there's nothing to copy.
	cpx #MaxChars+1
	bcc OK
TooBig	ldx #DSErr	;error - desk scrap	too big
	jmp StdErr0

OK	stx <ScrapLength	;new scrap length

	pha
	pha	;optimized 19-Sep-90 DAL
	PushWord #ScrapType	;type = text
	_GetScrapHandle	;get handle to desk	scrap
	bcc NoErr
GotErr	tax	;xfer error code to	X
	pla	;pull result
	pla
	jmp StdErr0	;return the error

NoErr	pla
	sta <LineHandle	;save in linehandle
	pla
	sta <LineHandle+2
	jsr LockLine2	;LinePtr now points	to desk scrap

	jsr LockScrap	;TextPtr now points	to linedit scrap

	ldy <ScrapLength	;get # bytes to copy
	tya
	ror a
	bcs DecOne	;branch if length is odd
	dey
DecOne	dey

Loop	lda [<LinePtr],y	;copy desk scrap into linedit scrap
	sta [<TextPtr],y
	dey
	dey
	bpl Loop

	jsr UnLockLine
	jsr UnLockScrap
Fini	jmp StdEnd0

	EndP


****************************************************************
*
* LEToScrap
*
****************************************************************

	Export LEToScrap
LEToScrap	PROC

	phd
	tcd

	_ZeroScrap	;zero out desk scrap

	jsr LockScrap	;TextPtr now points	to linedit scrap
	PushWord #0	;hi word of length
	PushZWord <ScrapLength ;lo word of length
	PushWord #ScrapType	;type of scrap = text
	PushZLong <TextPtr	;ptr to linedit scrap
	_PutScrap	;copy linedit scrap	to desk scrap
	bcc OK
	tax	;xfer error code to	X
	jsr UnLockScrap	;clean up
	jmp StdErr0	;return the error

OK	jsr UnLockScrap
	jmp StdEnd0

	EndP


****************************************************************
*
* LEScrapHandle
*
****************************************************************

	Export LEScrapHandle
LEScrapHandle	PROC

	phd
	tcd

	lda <ScrapHandle+2	;return handle to scrap
	sta 11,s
	lda <ScrapHandle
	sta 9,s
	jmp StdEnd0

	EndP


****************************************************************
*
* LEGetScrapLen
*
****************************************************************

	Export LEGetScrapLen
LEGetScrapLen	PROC

	phd
	tcd

	lda <ScrapLength	;return length of scrap
	sta 9,s
	jmp StdEnd0

	EndP


****************************************************************
*
* LESetScrapLen
*
****************************************************************

	Export LESetScrapLen
LESetScrapLen	PROC

	phd
	tcd

	lda 9,s	;get new scrap length
	cmp #MaxChars	;too big?
	bcc OK	;no
	lda #MaxChars	;yes - so set to max line size
OK	sta <ScrapLength
	ldy #2	;param size
	brl EndCall	;was jml 19-Sep-90 DAL)

	EndP


****************************************************************
*
* LESetHilite
*
****************************************************************

	Export LESetHilite
LESetHilite	PROC

	phd
	tcd

	PushWord #leHiliteHook ;push index to hilitehook field
	jmp HookCommon

	EndP


****************************************************************
*
* LESetCaret
*
****************************************************************

	Export LESetCaret
LESetCaret	PROC

	phd
	tcd

	PushWord #leCaretHook ;push index to carethook field

	Export HookCommon
HookCommon
	lda 11,s
	sta <RecHandle	;get rec handle
	lda 13,s
	sta <RecHandle+2
	jsr LockRec	;and lock the rec

	ply	;get index to correct field
	lda 13,s	;store new routine address in field
	sta [<RecPtr],y
	iny
	iny
	lda 15,s
	sta [<RecPtr],y

	jsr UnLockRec
	ldy #8	;param size
	brl EndCall	;was jml 19-Sep-90 DAL

	EndP


****************************************************************
*
* LESetJust
*
****************************************************************

	Export LESetJust
LESetJust	PROC	;** call added 3-6-87 CAE **

	phd
	tcd

	lda 9,s
	sta <RecHandle	;get rec handle
	lda 11,s
	sta <RecHandle+2
	jsr LockRec	;and lock the rec

	lda 13,s	;get new text justification
	ldy #leJust
	sta [<RecPtr],y	;and save in record

	jsr UnLockRec
	ldy #6	;param size
	brl EndCall	;was jml 19-Sep-90 DAL

	EndP


****************************************************************
*
* LEGetTextHand
*
****************************************************************

	Export LEGetTextHand
LEGetTextHand	PROC	;** call added 4-24-87 CAE **

	phd
	tcd

	lda 9,s
	sta <RecHandle	;get rec handle
	lda 11,s
	sta <RecHandle+2
	jsr LockRec	;and lock the rec

	lda [<RecPtr]	;return handle to line
	sta 13,s
	ldy #2
	lda [<RecPtr],y
	sta 15,s

	jsr UnLockRec	;unlock the rec
	ldy #4	;param size
	brl EndCall	;was jml 19-Sep-90 DAL

	EndP


****************************************************************
*
* LEGetTextLen
*
****************************************************************

	Export LEGetTextLen
LEGetTextLen	PROC	;** call added 4-24-87 CAE **

	phd
	tcd

	lda 9,s
	sta <RecHandle	;get rec handle
	lda 11,s
	sta <RecHandle+2
	jsr LockRec	;and lock the rec

	ldy #leLength
	lda [<RecPtr],y	;return length of line
	sta 13,s

	jsr UnLockRec	;unlock the rec
	ldy #4	;param size
	brl EndCall	;was jml 19-Sep-90 DAL

	EndP


****************************************************************
*
* DeleteGuts
*
****************************************************************

	Export DeleteGuts
DeleteGuts	PROC

SelLength	equ TempWord1
MovLength	equ TempWord2
EndPtr	equ TempPtr1

	jsr CalcSelLen	;calculate length of selection range
	beq Done	;quit if length = 0
	sta <SelLength	;save length

	ldy #leLength	;get length of line
	lda [<RecPtr],y
	sec
	ldy #leSelEnd	;subtract selend to
	sbc [<RecPtr],y	;calculate # of chars to move
	beq NoMove	;branch if no text to move
	sta <MovLength

	jsr CalcStartPtr	;StartPtr now points to start of sel

	clc
	lda <SelLength	;get length of selection
	adc <StartPtr	;calculate ptr to end of selection
	sta <EndPtr
	lda #0
	adc <StartPtr+2
	sta <EndPtr+2

	ldy #0
Loop	lda [<EndPtr],y	;move text from end	of selection
	sta [<StartPtr],y	;to start of selection thereby deleting
	iny	;the selection range
	iny
	cpy <MovLength	;done with move?
	bcc Loop	;no

NoMove	ldy #leSelStart
	lda [<RecPtr],y
	ldy #leSelEnd
	sta [<RecPtr],y	;set selend equal to selstart

	ldy #leLength
	lda [<RecPtr],y	;get length of line
	sec
	sbc <SelLength	;subtract amount deleted
	sta [<RecPtr],y	;save as new length

Done	rts

	EndP


****************************************************************
*
* PasteGuts
*
****************************************************************

	Export PasteGuts
PasteGuts	PROC

SelLength	equ TempWord1
Remainder	equ TempWord2

	jsr CalcSelLen	;calculate length of selection range
	sta <SelLength	;and save

	jsr CalcStartPtr	;StartPtr now points to start of sel

	ldx <SelLength	;determine whether text length is > or
	sec	;< selection length	and load X with the
	lda <TextLength	;smaller of the two
	sbc <SelLength
	bcs Cont
	ldx <TextLength
Cont	sta <Remainder	;save remainder
	txa	;get replace length	back
	beq EndLoop	;replace length = 0
	ldy #leSelStart
	clc
	adc [<RecPtr],y	;point selstart to end of replacement
	sta [<RecPtr],y

	txy
	dey
	dey
	bpl Loop
	ldy #0	;replace length = 1
	sep #$30	;8 bit mode
	lda [<TextPtr],y
	sta [<StartPtr],y
	rep #$30	;16 bit mode
	bra EndLoop

Loop	lda [<TextPtr],y	;replace chars in selection with chars
	sta [<StartPtr],y	;from scrap
	dey
	beq Loop	;in case replace length is odd
	dey
	bpl Loop

EndLoop	lda <Remainder	;get remainder back
	beq Done	;remainder is 0 so done
	bpl DoInsert	;scrap was > selection length
	jsr DeleteGuts	;delete remainder of selection
	bra Done

DoInsert	clc
	lda <TextPtr	;create ptr to remainder of text
	adc <SelLength	;which needs to be inserted
	sta <TextPtr
	lda #0
	adc <TextPtr+2
	sta <TextPtr+2
	lda <Remainder
	sta <TextLength

	jsr InsertGuts	;insert remaining chars

	ldy #leSelStart
	lda [<RecPtr],y
	ldy #leSelEnd	;set selend equal to selstart
	sta [<RecPtr],y

Done	rts

	EndP


****************************************************************
*
* InsertGuts
*
****************************************************************

	Export InsertGuts
InsertGuts	PROC

OverFlow	equ TempWord1
MaxLength	equ TempWord2
EndPtr	equ TempPtr1

	lda <TextLength
	bne Doit
	rts	;no text to insert so return

Doit	ldy #leMaxLength
	lda [<RecPtr],y	;get max length of line and save
	sta <MaxLength

	ldy #leSelStart
	lda [<RecPtr],y	;get selstart
	cmp <MaxLength	;are we at the max length of the line?
	bcc Cont	;no
	rts	;yes - so return

Cont	jsr CalcStartPtr	;StartPtr now points to start of sel

	clc
	lda [<RecPtr],y	;get selstart
	adc <TextLength	;add insert length
	dec a
	cmp <MaxLength	;overflow ?
	bcc OK	;no
	sec	;yes - so shorten insert length
	lda <MaxLength	;get max line length
	sbc [<RecPtr],y	;subtract selstart to get
	sta <TextLength	;max amount to insert
	lda [<RecPtr],y	;get selstart
	ldy #leLength
	sta [<RecPtr],y	;as save as line length
	bra EndMove

OK	ldy #leLength
	clc
	lda [<RecPtr],y	;get length of line	and
	adc <TextLength	;add insert length to determine final
	dec a	;length of line
	cmp <MaxLength	;overflow?
	bcc OK2	;no
	inc a
	sec	;yes - so
	sbc <MaxLength	;subtract max length of line to
	sta <Overflow	;determine amount of overflow
	sec
	lda [<RecPtr],y	;decrement line length by overflow
	sbc <Overflow	;amount so we don't move chars past
	sta [<RecPtr],y	;the end of the line

OK2	lda [<RecPtr],y	;get length of line
	sec
	ldy #leSelStart	;subtract selstart to
	sbc [<RecPtr],y	;calculate # chars to move right
	beq EndMove	;branch if no text to move
	tay	;save # chars to move in Y

	clc	;calculate ptr to end of insertion area
	lda <StartPtr
	adc <TextLength
	sta <EndPtr
	lda #0
	adc <StartPtr+2
	sta <EndPtr+2

	dey	;# chars to move
	dey
	bpl MoveLoop
	ldy #0	;only move 1 char
	sep #$30	;8 bit mode
	lda [<StartPtr],y
	sta [<EndPtr],y
	rep #$30	;16 bit mode
	bra EndMove

MoveLoop	lda [<StartPtr],y	;move chars toward end of line to
	sta [<EndPtr],y	;make room for insertion
	dey
	beq MoveLoop	;in case moving odd	# of chars
	dey
	bpl MoveLoop

EndMove	ldy <TextLength	;number of chars to	insert
	dey
	dey
	bpl InsLoop
	ldy #0	;insert length = 1
	sep #$30	;8 bit mode
	lda [<TextPtr],y
	sta [<StartPtr],y
	rep #$30	;16 bit mode
	bra EndIns

InsLoop	lda [<TextPtr],y	;insert the text
	sta [<StartPtr],y
	dey
	beq InsLoop	;in case insert length is odd
	dey
	bpl InsLoop

EndIns	ldy #leLength	;adjust line length	by insert amount
	jsr Adjust

	ldy #leSelStart	;adjust selstart by	insert amount
	jsr Adjust

	ldy #leSelEnd	;adjust selend by insert amount
	jsr Adjust

	jsr CleanUpSel

Done	rts

;-------------------------------------------------------------------------------

Adjust	clc
	lda [<RecPtr],y
	adc <TextLength
	sta [<RecPtr],y
	rts
	EndP



****************************************************************
*
* FindPoint
*
****************************************************************

	Export FindPoint
FindPoint	PROC

H1	equ TempWord1
Diff	equ TempWord2

	pha	;optimized 19-Sep-90 DAL
	PushZPtr <SelPoint	;ptr to point where	mouse was clicked
	clc
	lda <RecPtr	;create ptr to viewrect field
	adc #leViewRect
	tax
	lda <RecPtr+2
	adc #0
	pha	;and push the ptr
	phx
	_PtInRect
	pla	;is the point in the viewrect?
	bne InView	;yes
	sec	;no - so set the carry flag
	rts	;and return

InView

*
* FindPoint2 entry point always computes <selPoint, as a character
* offset, even if the mouse position is outside the view rectangle.
*
* Added 14-May-91 DAL
*
	export FindPoint2
FindPoint2

*** 11-Mar-91 DAL -- adjust the point by the leHScroll amount
	ldy #leHScrollPos
	clc
	lda <selPoint+2
	adc [<RecPtr],y
	sta <selPoint+2
*** end 11-Mar-91 DAL

	stz <DispStart
	ldy #leLength
	lda [<RecPtr],y	;get length of line
	sta <DispEnd
	sta <TextLength	;and save
	jsr GetSelRect	;get rect for whole	line
	lda <SelRect+2
	sta <H1	;save H1 of selrect

*** added 14-May-91 DAL -- check vertical position, clip to left or right edges
	lda <selPoint	;get V1 of the point
	ldy #leViewRect	;compare to V1 of viewRect
	cmp [<recPtr],y
	bmi clipToLeftEdge
	ldy #leViewRect+4	;compare to V2 of viewRect
	cmp [<recPtr],y
	bpl clipToRightEdge
*** end 14-May-91 DAL

	lda <SelPoint+2	;get H1 of the point
	cmp <SelRect+2	;is it less than H1	of selrect?
;;;	bcs CheckR	;no - so check against H2
*** 22-Jan-92 DAL -- need a signed compare here
	bpl CheckR	;no - so check against H2
*** end 22-Jan-92
clipToLeftEdge	stz <SelPoint	;yes - so set to first char in line
	rts

CheckR	cmp <SelRect+6	;is it greater than	H2 of selrect?
	bcc OnChar	;no - so point is on a char
clipToRightEdge	ldy #leLength	;yes - so set to last char in line
	lda [<RecPtr],y
	sta <SelPoint
	clc
	rts

OnChar	ldy #leViewRect
	lda [<RecPtr],y	;get V1 of viewrect
	sta <SelRect	;and save as V1 of selrect
	ldy #leViewRect+4
	lda [<RecPtr],y	;get V2 of viewrect
	sta <SelRect+4	;and save as V2 of selrect

Cont	lda #MaxChars	;get max possible line length to start
Div2	lsr a	;div by 2
	cmp <TextLength	;is result <= current line length?
	bcs Div2	;no - so divide by 2 again
	sta <Diff	;yes - so save

;do a binary search	for which character	the mouse point is on

Loop	sta <TextLength

	pha	;space for result
	PushZLong <LinePtr	;push ptr to text
	PushZWord <TextLength ;push length to measure
	jsl MeasureThisText
	clc
	pla	;get width of text
	adc <H1	;add to H1
	sta <SelRect+6	;store in H2

	pha	;optimized 19-Sep-90 DAL
	PushZPtr <SelPoint	;ptr to point where	mouse was clicked
	PushZPtr <SelRect	;ptr to rect for the text we measured
	_PtInRect
	lsr <Diff	;divide by 2
	beq Zero	;if 0, then we've found the char
	lda <TextLength
	plx	;was the point in the rect?
	beq Add	;no - so increase the rect
	sec	;yes - so decrease the rect
	sbc <Diff
	bra Loop

Add	clc
	adc <Diff
	bra Loop

;now that we know which char the point is on, we need to determine whether it's
;on the left or right half of the char so we know which side to put the caret on

Zero	lda 1,s	;check results of last PtInRect call
	beq NotIn	;branch if point wasn't in rect
	dec <TextLength	;dec char index
NotIn
	pha	;optimized 19-Sep-90 DAL
	ldy <TextLength
	lda [<LinePtr],y	;get char point is on
	and #$00FF	;mask off hi byte
	pha	;and push
	_CharWidth
	pla	;get width of char
	lsr a	;divide by 2

	plx	;get result from last PtInRect call
	beq NotIn2	;branch if point wasn't in rect
	pha	;save 'char width div 2' on stack
	sec
	lda <SelRect+6	;get previous H2
	sbc 1,s	;and subtract 'char width div 2'
	plx	;pull 'char width div 2' from stack
	bra Cont2

NotIn2	clc
	adc <SelRect+6	;add 'char width div 2' to previous H2
Cont2	sta <SelRect+6	;save new H2
	PushWord #0	;space for result
	PushZPtr <SelPoint
	PushZPtr <SelRect
	_PtInRect
	pla	;was the point in the rect?
	bne Done	;yes - so it's on the L side so done
	inc <TextLength	;no - it's on R side so inc char index
Done	lda <TextLength
	sta <SelPoint	;the caret will go on L of this char
	clc
	rts

	EndP



****************************************************************
*
* FindWord
*
****************************************************************

	Export FindWord
FindWord	PROC

xLength	equ TempWord1
;		;calling routine sets A to char position
	tax	;save char position
	ldy #leLength
	lda [<RecPtr],y	;get length of line
	sta <xLength	;and save

	txy	;get position in Y
LSpaces	lda [<LinePtr],y	;read char
	and #$00FF	;mask out hi byte
	cmp #$21	;is char a space or	control char?
	bcs LChars	;no - so start scanning chars
	dey	;yes - so move 1 char to left
	bmi LDone	;branch if no more chars on left
	bra LSpaces

LChars	dey	;move 1 char to left
	bmi LDone	;branch if no more chars on left
	lda [<LinePtr],y	;read char
	and #$00FF	;mask out hi byte
	cmp #$21	;is char a space or	control char?
	bcs LChars	;no - so check next	char

LDone	iny	;skip the space or control char
	sty <WordStart	;save current position as wordstart

	txy	;get back original char position in Y
RChars	cpy <xLength	;at end of line?
	beq RDone	;yes - so quit
	lda [<LinePtr],y	;read char
	and #$00FF	;mask out hi byte
	cmp #$21	;is char a space or	control char?
	bcc RSpaces	;yes - so done scanning chars
	iny	;no - so move 1 char to right
	bra RChars	;check next char

RSpaces	iny	;move 1 char to right
	cpy <xLength	;at end of line?
	beq RDone	;yes - so quit
	lda [<LinePtr],y	;read char
	and #$00FF	;mask out hi byte
	cmp #$21	;is char a space or	control char?
	bcc RSpaces	;yes - so check next char

RDone	sty <WordEnd	;save current position as wordend
	rts	;done

	EndP



****************************************************************
*
* ShowCaret
*
****************************************************************

	Export ShowCaret
ShowCaret	PROC

	ldy #leActFlg
	lda [<RecPtr],y	;is the edit record	active?
	beq Done	;no - so quit

	jsr CmpSel	;is selstart = selend?
	bne Done	;no - so quit

	lda #1
	ldy #leCarAct
	sta [<RecPtr],y	;activate caret

	ldy #leCarOn
	lda [<RecPtr],y	;get status of caret
	bne Done	;quit if caret already on
	lda #1
	sta [<RecPtr],y	;mark caret as on
	jmp DrawCaret	;force a redraw

Done	rts

	EndP



****************************************************************
*
* HideCaret
*
****************************************************************

	Export HideCaret
HideCaret	PROC

	ldy #leActFlg
	lda [<RecPtr],y
	beq Done	;quit if edit record not active

	ldy #leCarAct
	lda #0
	sta [<RecPtr],y	;deactivate caret

	ldy #leCarOn
	lda [<RecPtr],y
	beq Done	;quit if caret not on
	lda #0
	sta [<RecPtr],y	;mark caret as off
	jmp DrawCaret	;force a redraw

Done	rts

	EndP



****************************************************************
*
* DrawCaret
*
****************************************************************

	Export DrawCaret
DrawCaret	PROC

	ldy #leSelStart
	lda [<RecPtr],y	;get selstart
	sta <DispStart	;and save as dispstart
	sta <DispEnd	;and dispend

	jsr GetSelRect	;get rect with H1 =	H2
	jsr AdjustSelRectH	;11-Mar-91 DAL
	inc <SelRect+6	;increment H2 to make space for caret
	ldy #leCaretHook+2
	jsr InvertHook	;invert the rect
	rts


*** 11-Mar-91 DAL: adjust the rectangle by leHScrollPos
	export AdjustSelRectH
AdjustSelRectH
	ldy #leHScrollPos
	lda <SelRect+2	;first adjust the left edge
	sec
	sbc [<RecPtr],y
	sta <SelRect+2
	lda <SelRect+6	;and now adjust the right edge
	sec
	sbc [<RecPtr],y
	sta <SelRect+6
	rts
*** end of 11-Mar-91 DAL

	EndP



****************************************************************
*
* HiLite
*
****************************************************************

	Export HiLite
HiLite	PROC

	ldy #leActFlg
	lda [<RecPtr],y
	bne Doit
	rts	;quit if edit record not active

Doit	ldy #leSelStart
	lda [<RecPtr],y	;get selstart and save as dispstart
	sta <DispStart
	ldy #leSelEnd
	lda [<RecPtr],y	;get selend and save as dispend
	sta <DispEnd

	Export HiLite2
HiLite2
	jsr GetSelRect	;get rect from dispstart to dispend
*** added 14-May-91 DAL
	pei <SelRect+6
	pei <SelRect+2
	jsr AdjustSelRectH	;added 14-May-91 DAL
*** end
	ldy #leHiliteHook+2
	jsr InvertHook	;invert the rect
*** added 14-May-91 DAL
	pla
	sta <SelRect+2
	pla
	sta <SelRect+6
*** end
	rts

	EndP



****************************************************************
*
* InvertHook
*
****************************************************************

	Export InvertHook
InvertHook	PROC

	PushZPtr <SelRect	;push ptr to selrect on stack

	lda [<RecPtr],y	;Y was set in calling routine to
	dey	;#leHiliteHook+2 or	#leCaretHook+2
	dey
	ora [<RecPtr],y	;does hook contain an address?
	bne UseHook	;yes - so use it
	_InvertRect	;no - so use InvertRect
	rts

UseHook	jsl Kludge	;force a long return address on stack
	rts	;hook routine will RTL here

;Kludge	sec	;push hook address - 1 on stack
;	lda [<RecPtr],y
;	sbc #1
;	tax
;	iny
;	iny
;	lda [<RecPtr],y
;	sbc #0
;
;	sep #$20	;8 bit A
;	pha	;hi byte of hook address
;	rep #$20	;16 bit A
;
;	phx	;lo word of hook address
;	rtl	;fake a JSL to the hook routine
*
* New dispatch-to-hook routine 14-May-91 DAL
*
* Note that it is WRONG to decrement the bank byte of
* an address to be RTLed to, since RTL never increments
* the bank byte (the PC does not wrap to the next bank).
*
Kludge	lda [<RecPtr],y
	tax
	dex	;low word of address, decremented by one
	iny
	iny
	lda [<RecPtr],y
	sep #$20
	pha	;high byte of address, never decrement!
	rep #$20
	phx
	rtl


	EndP



****************************************************************
*
* ReDraw
*
****************************************************************
*
* 11-Mar-91 DAL
*
* Notes on existing code:
*   1. For left-justify, <dispStart must be set up before ReDraw
*      is called.
*   2. DispStart is the character offset of the leftmost character
*      that we have to redraw.
*
****************************************************************

	Export ReDraw
ReDraw	PROC

;** ReDraw modified	3-6-87 to handle centered and right-justified text. CAE **

	ldy #leJust
	lda [<RecPtr],y	;check the text justification
	beq ItsLeft	;branch if left justified
	stz <DispStart	;zero out DispStart
ItsLeft		;DispStart set up by calling routine

	jsr CalcHScrollPos	;11-Mar-91 DAL
	bcc @noErase	;don't redraw, no change! (22-Jan-92 DAL)

	jsr EraseDestViewGap  ;subroutinized 22-Jan-92 DAL
@noErase

	lda <DispStart	;want H1 and H2 of SelRect to be the
	sta <DispEnd	;same

	jsr GetSelRect

	ldy #leViewRect+6	;set H2 of SelRect equal to H2 of the
	lda [<RecPtr],y	;ViewRect
	sta <SelRect+6
*** added 14-May-91 DAL -- offset the off-the-right-edge rectangle for scrolling
	pei <SelRect+2
	sec
	lda <SelRect+2
	ldy #leHScrollPos
	sbc [<RecPtr],y
	sta <SelRect+2
*** end 14-May-91 DAL
	PushZPtr <SelRect	;push ptr to SelRect
	_EraseRect	;erase from dispstart to end of viewrect
	pla	;14-May-91 DAL
	sta <SelRect+2	;14-May-91 DAL

	ldy #leJust
	lda [<RecPtr],y	;check the text justification again
	beq ItsLeft2	;branch if left justified
	jsr SpecialJust	;handle centered or	right justified
ItsLeft2		;

	pei <SelRect+2	;H1 (optimized 11-Mar-91 DAL; was LDA/PHA)
	lda <SelRect	;V1 - top of dest rect
	clc
	ldy #leBaseHite
	adc [<RecPtr],y	;calculate base line for text
	pha
	_MoveTo	;position pen

*** 11-Mar-91 DAL: move pen left by leHScrollPos pixels
	ldy #leHScrollPos
	lda [<RecPtr],y
	eor #$ffff
	inc a
	pha
	pea 0
	_Move
*** end 11-Mar-91 DAL

	ldy #leLength	;calculate length of text to draw
	lda [<RecPtr],y
	sec
	sbc <DispStart
	beq Done	;quit if no text to	draw
	tay	;save length in Y

	clc	;calculate ptr to text to be drawn
	lda <LinePtr
	adc <DispStart
	tax
	lda <LinePtr+2
	adc #0
	pha	;push ptr to text
	phx
	phy	;push length of text

	jsl DrawThisText

Done	rts


****************************************************************
*
* EraseDestViewGap
*
* Erase the gap on the left between the destRect and viewRect.
*
****************************************************************
	export EraseDestViewGap
EraseDestViewGap
*** added 14-May-91 DAL -- erase the rect between view and dest on the left
	ldy #leJust
	lda [<RecPtr],y
	bne @noSlopRect	;do this for left-justified only
	pei <DispStart	;preserve
	stz <DispStart
	stz <DispEnd
	jsr GetSelRect
	ldy #leViewRect+2	;left edge of viewRect
	lda [<RecPtr],y
	sta <SelRect+2	;set left edge of temp rect
	pushzptr <SelRect
	ldy #leHScrollPos
	lda [<RecPtr],y
	eor #$ffff
	inc a
	pha	;delta x = - leHScrollPos
	pea 0	;delta y
	_OffsetRect
	pushzptr <SelRect
	_EraseRect
	pla
	sta <DispStart	;restore
@noSlopRect	rts
*** end of 14-May-91 DAL


****************************************************************
*
* CalcHScrollPos -- new routine 11-Mar-91 DAL
*
* Called by ReDraw before it does much.
*
* Compute a new value for this line edit record's leHScrollPos field,
* if necessary.
*
* If we change the leHScrollPos value, then we need to zero out DispStart
* so that all the text gets redrawn
*
* Out: CLC = no change in leHScroll, SEC = change
*
****************************************************************
CalcHScrollPos	ldy #leJust
	lda [<RecPtr],y
	bne @exit	;we only care about left-justify

	jsr CalcNewHScroll
	bcs @exit
	ldy #leHScrollPos
	cmp [<RecPtr],y
	beq @exit
	sta [<RecPtr],y
	stz <DispStart
	sec	;added 22-Jan-92 DAL -- flag a change
	rts

@exit	clc	;added 22-Jan-92 DAL -- flag no-change
	rts

*
* Return CLC, A=new leHScroll value
*
CalcNewHScroll

*** added 22-Jan-92 DAL -- if destRect width is 0, return scroll pos zero (for AWGS 1.1 graphics)
	ldy #leDestRect+6
	lda [<RecPtr],y
	ldy #leDestRect+2
	sec
	sbc [<RecPtr],y
	bne @continue
	clc
	rts	;return clc, A=0
@continue
*** end 22-Jan-92

*** If selStart<>selEnd, then we don't care about the scroll position
	ldy #leSelStart
	lda [<RecPtr],y
	ldy #leSelEnd
	cmp [<RecPtr],y
	bne @exit

*** If MeasureText(0..selStart) - leHScrollPos is out of range, bring it
*** back into range.
	pha	;space for result
	pei <LinePtr+2	;push ptr to text
	pei <LinePtr
	pha	;selStart value
	jsl MeasureThisText
	pla	;pixel offset of insertion point
	tax

	sec
	ldy #leHScrollPos
	sbc [<RecPtr],y
	bcc @outOfRange	;are we outside destRect to the left?

	pha
	ldy #leDestRect+6
	lda [<RecPtr],y
	ldy #leDestRect+2
	sec
	sbc [<RecPtr],y	;A=width of destRect
	tay
	cmp 1,s
	pla
	bcc @outOfRange
	sec	;old scroll position is fine
	rts

*** out of range--calculate new leHScrollPos value (X=width of text, Y=width of dest rect)

@outOfRange	txa
	phy
	sec
	sbc 1,s
	ply
	clc
	adc #10
	bpl @okay
	lda #0
@okay
	clc
	rts

@exit	sec
	rts


;-------------------------------------------------------------------------------
;Text is centered or right-justified.

SpecialJust	pha	;save justification	for later

	ldy #leLength
	lda [<RecPtr],y	;get new text length
	tax

	PushWord #0	;space for result
	PushZLong <LinePtr	;push ptr to line
	phx	;push length to measure
	jsl MeasureThisText

	sec	;calculate width of	current DestRect
	ldy #leDestRect+6	;which gives us the	width of the
	lda [<RecPtr],y	;previous text
	ldy #leDestRect+2
	sbc [<RecPtr],y
	cmp 1,s	;compare it to width of new text
	bcc GrowRect

;New text is smaller than previous text	so DestRect must shrink.

ShrinkRect	sbc 1,s	;calculate difference in widths
	sta 1,s	;and save

	lda 3,s	;check text justification
	bmi Right
	lda 1,s	;it's centered so divide width
	lsr a	;difference by 2
	sta 1,s	;and save
Right		;

	clc	;move left side of DestRect to right
	ldy #leDestRect+2
	lda [<RecPtr],y
	adc 1,s
	sta [<RecPtr],y
	sta <SelRect+2

	lda 3,s	;check justification
	bmi ShrinkDone	;it's right just - so skip next part

	sec	;move right side of	DestRect to left
	ldy #leDestRect+6
	lda [<RecPtr],y
	sbc 1,s
	sta [<RecPtr],y

ShrinkDone	pla	;clean up stack
	pla
	rts

;New text is larger	than previous text so DestRect must grow.

GrowRect	pha	;save width of previous text
	sec
	lda 3,s
	sbc 1,s	;calculate difference in widths
	sta 3,s	;and save
	pla

	lda 3,s	;check text justification
	bmi Right2
	lda 1,s	;it's centered so divide width
	lsr a	;difference by 2
	sta 1,s	;and save
Right2		;

	sec	;move left side of DestRect to left
	ldy #leDestRect+2
	lda [<RecPtr],y
	sbc 1,s
	sta [<RecPtr],y
	sta <SelRect+2

	lda 3,s	;check justification
	bmi GrowDone	;it's right just - so skip next part

	clc	;move right side of	DestRect to right
	ldy #leDestRect+6
	lda [<RecPtr],y
	adc 1,s
	sta [<RecPtr],y

GrowDone	pla	;clean up stack
	pla
	rts

	EndP


****************************************************************
*
DrawThisText	PROC
*
* This routine draws the indicated text or an equal number
* of password characters.
*
* Routine is called with a JSL
*
*
* Inputs:
*	PtrToText : LONG
*	TextLength : word
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************
	DefineStack
RtlAddr	block 3
ThisTextLen	word
ThisTextPtr	long


;
; See if programmer wants this treated as password
;
	ldy #lePWChar
	lda [<RecPtr],y
	bne ThisIsPassword

	ldx #$A704	; DrawText
	jsl $E10004	; THROUGH GLUE ENTRY!
	rtl


;
; This is a password, so draw the pw char only.
;
ThisIsPassword

	tax

	lda ThisTextLen,s
	sta MeasureTemp


	jsr PushCharOnStack

	tsc
	inc a
	pea 0000
	pha
	pei MeasureTemp
	_DrawText

	lda MeasureTemp
	jsr PullCharOffStack

	lda RTLAddr,s
	sta RTLAddr+6,s
	lda RTLAddr+1,s
	sta RTLAddr+1+6,s

	pla
	pla
	pla

	rtl

	ENTRY PushCharOnStack
PushCharOnStack
;	cmp #0
	tay	;opt 20-Mar-92 DAL
	bne @NotZero
	rts
@NotZero
;	tay	; put length in y
	txa	; put char in a-reg
	plx	; pull off rts addr

	sep #$20	; 8 bit a-reg
	longa off
	
@PushLoop	pha	; push these on stack
	dey
	bne @PushLoop

	rep #$20
	longa on

	phx
	rts


	ENTRY PullCharOffStack
PullCharOffStack
;	cmp #0
	tay	;opt 20-Mar-92 DAL
	bne @NotZero
	rts
@NotZero
;	tay	; put length in y
	txa	; put char in a-reg
	plx	; pull off rts addr

	sep #$20	; 8 bit a-reg
	longa off
	
@PushLoop	pla	; push these on stack
	dey
	bne @PushLoop

	rep #$20
	longa on

	phx
	rts


	
	EndP

****************************************************************
*
MeasureThisText	PROC
*
* This routine measures the indicated text or an equal number
* of password characters.
*
* Routine is called with a JSL
*
*
* Inputs:
*	Space for result : word
*	PtrToText : LONG
*	TextLength : word
*
* Outputs:
*	Pixels wide : word
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************
	DefineStack
RtlAddr	block 3
ThisTextLen	word
ThisTextPtr	long
ThisTextWidth	word


;
; See if programmer wants this treated as password
;
	ldy #lePWChar
	lda [<RecPtr],y
	bne ThisIsPassword

	ldx #$AB04	; TextWidth
	jsl $E10004	; through GLUE ENTRY!
	rtl


;
; This is a password, so draw the pw char only.
;
ThisIsPassword	tax

	lda ThisTextLen,s
	sta MeasureTemp

	jsr PushCharOnStack

	tsc
	inc a
	pha
	pea 0000
	pha
	pei MeasureTemp
	_TextWidth

	lda MeasureTemp
	plx
	stx MeasureTemp

	jsr PullCharOffStack

	lda MeasureTemp
	sta ThisTextWidth,s

	lda RTLAddr,s
	sta RTLAddr+6,s
	lda RTLAddr+1,s
	sta RTLAddr+1+6,s

	pla
	pla
	pla

	rtl


	EndP



****************************************************************
*
* GetSelRect
*
****************************************************************

	Export GetSelRect
GetSelRect	PROC

;calculate rect from dispstart to dispend and save in SelRect

	lda <DispStart
	cmp <DispEnd	;is dispstart < dispend?
	bcc OK	;yes
	ldx <DispEnd	;no - so swap them
	sta <DispEnd
	stx <DispStart

OK	ldy #leDestRect
	lda [<RecPtr],y	;get V1 of destrect
	sta <SelRect	;and save as V1 of selrect
	ldy #leLineHite
	clc
	adc [<RecPtr],y	;then add linehite to V1
	sta <SelRect+4	;and save as V2 of selrect
	ldy #leDestRect+2
	lda [<RecPtr],y	;get H1 of destrect
	sta <SelRect+2	;and save as H1 of selrect

	lda <DispStart	;if dispstart is 0,	skip next section
	beq Cont

	PushWord #0	;space for result
	PushZLong <LinePtr	;push ptr to line
	PushZWord <DispStart ;push length to measure
	jsl MeasureThisText	;measure from start	of line to dispstart
	pla	;get text width
	clc
	adc <SelRect+2	;add H1 of destrect
	sta <SelRect+2	;and save as H1 of selrect

Cont	lda <DispEnd
	cmp <DispStart	;dispend = dispstart?
	bne Cont1	;no - so measure
	lda <SelRect+2	;yes - so set H2 to	H1
	bra Done

Cont1	PushWord #0	;space for result
	PushZLong <LinePtr	;push ptr to line
	PushZWord <DispEnd	;push length to measure
	jsl MeasureThisText	;measure from start	of line to dispend
	pla	;get text width
	ldy #leDestRect+2
	clc
	adc [<RecPtr],y	;add H1 of destrect
Done	sta <SelRect+6	;and save as H2 of selrect
	rts

	EndP


****************************************************************
*
* SaveStartProc
*
****************************************************************

	Export SaveStartProc
SaveStartProc	PROC

	ldy #leSelStart
	lda [<RecPtr],y	;get selstart and save as
	sta <DispStart	;dispstart (will be	used by ReDraw)
	rts

	EndP


****************************************************************
*
* CalcStartPtr
*
****************************************************************

	Export CalcStartPtr
CalcStartPtr	PROC

	clc
	ldy #leSelStart
	lda [<RecPtr],y	;get selstart
	adc <LinePtr	;calculate ptr to start of selection
	sta <StartPtr	;and save in StartPtr
	lda #0
	adc <LinePtr+2
	sta <StartPtr+2
	rts	;return with Y = leSelStart

	EndP


****************************************************************
*
* CalcSelLen
*
****************************************************************

	Export CalcSelLen
CalcSelLen	PROC

	ldy #leSelEnd	;calculate length of selection range
	lda [<RecPtr],y
	sec
	ldy #leSelStart
	sbc [<RecPtr],y
	rts	;return length in A

	EndP


****************************************************************
*
* CmpSel
*
****************************************************************

	Export CmpSel
CmpSel	PROC

	ldy #leSelEnd
	lda [<RecPtr],y
	ldy #leSelStart
	cmp [<RecPtr],y	;compare selstart and selend and
	rts	;return with Y = leSelStart

	EndP


****************************************************************
*
* SelSort
*
****************************************************************

	Export SelSort
SelSort	PROC
	jsr CmpSel	;is selend >= selstart?
	bcs OK	;yes - so OK
	tax	;no - so swap them,	 save selend in X
	lda [<RecPtr],y	;get selstart and push on stack
	pha
	txa	;get selend back in	A
	sta [<RecPtr],y	;and save in selstart
	ldy #leSelEnd
	pla	;get selstart off stack
	sta [<RecPtr],y	;and save in selend
OK	rts

	EndP


****************************************************************
*
* CleanUpSel
*
****************************************************************

	Export CleanUpSel
CleanUpSel	PROC

	ldy #leLength
	lda [<RecPtr],y	;get line length
	ldy #leSelEnd
	cmp [<RecPtr],y	;is length >= selend ?
	bcs EndOK	;yes
	sta [<RecPtr],y	;no - so set selend	to length

EndOK	lda [<RecPtr],y	;get selend
	ldy #leSelStart
	cmp [<RecPtr],y	;is selend >= selstart ?
	bcs StartOK	;yes
	sta [<RecPtr],y	;no - so set selstart to selend

StartOK	rts

	EndP


****************************************************************
*
* StdEnd
*
****************************************************************

	Export StdEnd
StdEnd	PROC
	ldy <StripSize	;# bytes of param to strip
	brl EndCall	;was jml 19-Sep-90 DAL
	EndP


****************************************************************
*
* StdErr
*
****************************************************************

	Export StdErr
StdErr	PROC
	ldy <StripSize	;# bytes of param to strip
	jml ErrOut
	EndP


****************************************************************
*
* oStdEnd0
*
****************************************************************

	Export oStdEnd0
oStdEnd0	PROC
	ldy #0	;# bytes of param to strip
	brl oEndCall	;was jml 19-Sep-90 DAL
	EndP


****************************************************************
*
* StdEnd0
*
****************************************************************

	Export StdEnd0
StdEnd0	PROC
	ldy #0	;# bytes of param to strip
	brl EndCall	;was jml 19-Sep-90 DAL
	EndP


****************************************************************
*
* StdErr0
*
****************************************************************

	Export StdErr0
StdErr0	PROC
	ldy #0	;# bytes of param to strip
	jml ErrOut
	EndP


****************************************************************
*
* StdEnd4
*
****************************************************************

	Export StdEnd4
StdEnd4	PROC
	ldy #4	;# bytes of param to strip
	jml EndCall
	EndP


****************************************************************
*
* StdErr4
*
****************************************************************

	Export StdErr4
StdErr4	PROC
	ldy #4	;# bytes of param to strip
	jml ErrOut
	EndP


****************************************************************
*
* StdEntry
*
****************************************************************

	Export StdEntry
StdEntry	PROC

	lda 11,s	;get rec handle
	sta <RecHandle
	lda 13,s
	sta <RecHandle+2

	Export StdEntry2
StdEntry2

	stx <StripSize	;save # bytes of param to strip later
	stz <ErrFlag	;clear error count

	jsr LockRec	;lock rec handle and convert to ptr
	jsr LockLine	;lock line handle and convert to ptr

	pha
	pha	;optimized 19-Sep-90 DAL
	_GetPort	;get current port
	pla	;and save
	sta <SavePort
	pla
	sta <SavePort+2

	ldy #lePort+2	;set to our port
	lda [<RecPtr],y
	pha
	dey
	dey
	lda [<RecPtr],y
	pha
	_SetPort

	pha
	pha	;optimized 19-Sep-90 DAL
	_NewRgn	;make room for clip	info
	bcc OK
	plx	;pull result
	plx
	pha	;save error code on	stack
	inc <ErrFlag	;inc error count
	jmp CExit	;clean up

OK	lda 1,s
	sta <SaveClip
	lda 3,s
	sta <SaveClip+2
	_GetClip	;save current clip
	bcc OK2
	pha	;save error code on	stack
	inc <ErrFlag	;inc error count
	jmp BExit	;clean up

OK2	clc	;push ptr to viewrect
	lda <RecPtr
	adc #leViewRect
	tax
	lda <RecPtr+2
	adc #0
	pha
	phx
	_ClipRect	;set clip to viewrect
	bcs GotErr

	PushZLong <SaveClip	;push saved clip

	pha
	pha	;optimized 19-Sep-90 DAL
	_GetClipHandle	;get our clip - leave on stack

	lda 3,s	;our clip will be destination also
	pha
	lda 3,s
	pha
	_SectRgn	;intersect saved clip and our clip
	bcc Done
GotErr	pha	;save error code on	stack
	inc <ErrFlag	;inc error count
	jmp AExit	;clean up

Done	rts

	EndP



****************************************************************
*
* StdExit
*
****************************************************************

	Export StdExit
StdExit	PROC

	stz <ErrFlag	;clear error count

	Export AExit
AExit
	PushZLong <SaveClip
	_SetClip	;restore original clip
	bcc BExit
	pha	;save error code on	stack
	inc <ErrFlag	;inc error count

	Export BExit
BExit
	PushZLong <SaveClip
	_DisposeRgn	;dispose of our copy of original clip
	bcc CExit
	pha	;save error code on	stack
	inc <ErrFlag	;inc error count

	Export CExit
CExit
	PushZLong <SavePort
	_SetPort	;restore original port

	jsr UnLockLine
	jsr UnLockRec

	lda <ErrFlag	;check error count
	bne GotErr	;got an error
	rts	;no error so return

GotErr	plx	;pull error code off stack
	dec a	;dec error count
	bne GotErr	;branch if more error codes on stack

	pla	;pull return address off stack
	jmp StdErr	;return the error

	EndP


****************************************************************
*
* LockRec
*
****************************************************************

	Export LockRec
LockRec	PROC

	ldy #4
	lda [<RecHandle],y
	ora #$8000	;set locked bit in attribute word
	sta [<RecHandle],y
	ldy #2
	lda [<RecHandle]	;dereference handle
	sta <RecPtr
	lda [<RecHandle],y
	sta <RecPtr+2
	rts

	EndP


****************************************************************
*
* UnLockRec
*
****************************************************************

	Export UnLockRec
UnLockRec	PROC

	ldy #4
	lda [<RecHandle],y
	and #$7FFF	;clear locked bit in attribute word
	sta [<RecHandle],y
	rts

	EndP


****************************************************************
*
* LockLine
*
****************************************************************

	Export LockLine
LockLine	PROC

	lda [<RecPtr]
	sta <LineHandle
	ldy #2
	lda [<RecPtr],y
	sta <LineHandle+2

	Export LockLine2
LockLine2
	ldy #4
	lda [<LineHandle],y
	ora #$8000	;set locked bit in attribute word
	sta [<LineHandle],y
	ldy #2
	lda [<LineHandle]	;dereference handle
	sta <LinePtr
	lda [<LineHandle],y
	sta <LinePtr+2
	rts

	EndP


****************************************************************
*
* UnLockLine
*
****************************************************************

	Export UnLockLine
UnLockLine	PROC

	ldy #4
	lda [<LineHandle],y
	and #$7FFF	;clear locked bit in attribute word
	sta [<LineHandle],y
	rts

	EndP


****************************************************************
*
* LockScrap
*
****************************************************************

	Export LockScrap
LockScrap	PROC

	ldy #4
	lda [<ScrapHandle],y
	ora #$8000	;set locked bit in attribute word
	sta [<ScrapHandle],y
	ldy #2
	lda [<ScrapHandle]	;dereference handle
	sta <TextPtr
	lda [<ScrapHandle],y
	sta <TextPtr+2
	rts

	EndP


****************************************************************
*
* UnLockScrap
*
****************************************************************

	Export UnLockScrap
UnLockScrap	PROC

	ldy #4
	lda [<ScrapHandle],y
	and #$7FFF	;clear locked bit in attribute word
	sta [<ScrapHandle],y
	rts
	EndP
	
	
	PRINT PUSH
	PRINT NOWARN
****************************************************************
*
* LETextBox2
*
*
* Change History
*
* 05 Aug 88	STeven Glass
*
* If bounding box was bad, we just exit, but check was made
* after handle allocated.  We move the check up and this
* should make prevent the orphaning of the handle.
*
* The error code was not preserved through the code that
* restores the grafport.
*
****************************************************************

	Export LETextBox2
LETextBox2	PROC	;** modified 4-22-87 CAE **

;-----------------------------------------------------------
;
; DirectPage
;
;-----------------------------------------------------------
MyId	equ 92

LastPartChar	equ 96
LastFullChar	equ LastPartChar+2
ClipRgn	equ LastFullChar+2
LEZero	equ ClipRgn+4
LastLeading	equ LEZero+2
MaxLine	equ LastLeading+2
TempPtr	equ MaxLine+2
;;;TempTP	equ TempPtr+4	;was for Equal-tempered stuff
;;;TempTL	equ TempTp+4	;was for Equal-tempered stuff
Change	equ TempPtr+4	;was TempTL+2 (22-Aug-91 DAL)
Skiping	equ Change+2
changeflg	equ Skiping+2
TextRgn	equ changeflg+2
BoxRgn	equ TextRgn+4
FontInfoPtr	equ BoxRgn+4
FontInfoRec	equ FontInfoPtr+4
;;;FontGlobals	equ FontInfoRec+8	;removed 22-Aug-91 DAL
Spaces	equ FontInfoRec+8	;was FontGlobals+4
CurrentSpaces	equ Spaces+2
TokenLength	equ CurrentSpaces+2
MaxWidth	equ TokenLength+2
CharLine	equ MaxWidth+2
CurrentWidth	equ CharLine+2
Temp	equ CurrentWidth+2
Tabs	equ Temp+2
Nothing	equ Tabs+2
TERec	equ Nothing+2
TERuler	equ TERec+4
LineStyle	equ TERuler+2
;;;FGHandle	equ LineStyle+2	;removed 22-Aug-91 DAL
LineRuler	equ LineStyle+2	;was FGHandle+4
Char	equ LineRuler+4
OffSet	equ Char+2
InputDone	equ Offset+2
LineDone	equ InputDone+2
MaxHeight	equ LineDone+2
CurrentHeight	equ MaxHeight+2
CRFlag	equ CurrentHeight+2
OrigDirect	equ CRFlag+2
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
TextJust	equ RTL2+3
TextRectPtr	equ TextJust+2
TextLen	equ TextRectPtr+4
TextPtr	equ TextLen+2
GotFChange	equ TextPtr+4
theFontGlobals	equ GotFChange+2	;added 22-Aug-91 DAL: 14 bytes
PrintedSomeChars	equ theFontGlobals+14  ;added 4-Sep-91 DAL: word
oldCurrentHeight	equ PrintedSomeChars+2 ;added 4-Sep-91 DAL: word

;--------------------------------------------------------------------
;
; TERecord
;
;--------------------------------------------------------------------
TEPtr	equ 0
TELen	equ TEPtr+4
DestRect	equ TELen+2
ViewRect	equ DestRect+4
SelRect	equ ViewRect+4
SelPoint	equ SelRect+4
SelStart	equ SelPoint+4
SelEnd	equ SelStart+2
InPort	equ SelEnd+2
ClickTime	equ InPort+4
ClickLoc	equ ClickTime+4
caretTime	equ ClickLoc+2
CaretState	equ ClickTime+4
RecalBack	equ CaretState+2
RecalLines	equ RecalBack+2
ClickStuff	equ RecalLines+2
ClickLoop	equ ClickStuff+2
WordBreak	equ ClickLoop+4
HighHook	equ WordBreak+4
CaretHook	equ HighHook+4
TabHook	equ CaretHook+4
AutoIndent	equ TabHook+4
NLines	equ AutoIndent+4
LSPTR	equ NLines+2
LHPtr	equ LSPtr+4

;TERuler
FGroundColor	equ 0
BGroundColor	equ FGroundColor+2
FamNum	equ BGroundColor+2
SizeStyle	equ FamNum+2
Just	equ SizeStyle+2
CROnly	equ Just+2
LeftMargin	equ CROnly+2
RightMargin	equ LeftMargin+2
ExtraSpacing	equ RightMargin+2
;;;EQTemperedLS	equ ExtraSpacing+2	;Q change not fully	implemented! (rmv 22-Aug-91 DAL)
;;;SInvis	equ EQTemperedLS+2	;SInvis not used (22-Aug-91 DAL)
;;;NextRuler	equ SInvis+2
NextRuler	equ ExtraSpacing+2	;22-Aug-91 DAL

;--------------------------------------------------------------------
;Data

DeltaFlg	equ $01
S	equ $53
F	equ $46
Z	equ $5A
B	equ $42
C	equ $43
J	equ $4A
L	equ $4C
M	equ $4D
R	equ $52
X	equ $58
Q	equ $51


; Overlay my parameters with the direct	page
	phd	;save direct page
	tcd	;set the direct page
;I now have storage	for variables and a	new direct page

	pla
	sta OrigDirect
	pla
	sta rtl1
	pla
	sta rtl1+2
	pla
	sta rtl1+4
	pla
	sta TextJust
	pla
	sta TextRectPtr
	pla
	sta TextRectPtr+2
	pla
	sta TextLen
	pla
	sta TextPtr
	pla
	sta TextPtr+2


;-----------------------------------------------------------
;
; Now that stack is cleaned off I must save parts of the 
; grafPort that may be changed.
;
	phb	; save the dbr
	pha	; get current port ptr
	pha
	_GetPort
	lda 2,s	; set dbr to bank of port
	pha
	plb
	plb
	plx	; put ptr in x
	pla	; ignore high word
	ldy #opicSave-ofontHandle-2	; use this as count
@1	lda |ofontHandle,x	; read the words from the grafport
	pha	; and put them on the stack
	inx
	inx
	dey
	dey
	bpl @1	; repeat until y < 0



;---------------------------------------------------------------
;
; LegalRect
;
; Quit's Textbox if passed an illegal rect.
;
; Moved this code in front of code that does new handle
; so when it exits, there is not handle to dispose.
;
	lda [TextRectPtr]
	ldy #4
	cmp [TextRectPtr],y
	bpl aBadRect
	ldy #2
	lda [TextRectPtr],y
	ldy #6
	cmp [TextRectPtr],y
	bmi RectOK
aBadRect	brl Exit	;It's illegal so quit.

RectOK

;--------------------------------------------------------------
;
;TENew
;
;Get a new handle or memory for the TERecord, and set it up.
;
TENew
	pha
	pha	;space for result
	PushLong #NextRuler+NextRuler
	PushzWord <MyId	;Use this as myid
	PushWord #$C000	;changed to Locked HY 5/5/88
	pha
	pha
	_NewHandle	;get new handle
	bcc newH
	pha	;push error code
	brl cleanUpstack	;clean things up
newH	pla
	sta TERec	;get TEREC handle
	pla
	sta TERec+2
	PushzLong <TERec	;opt 22-Aug-91 DAL
	jsr Deref
	pla
	sta LineRuler
	pla
	sta LineRuler+2


;====================================================================
;
;Actual routine
;
;setup
;mainloop
;cleanup

;---------------------------------------------------------------
;SetUp
;

SetUp

;Get a NewRgn to be	set to the ClipRgn

	pha
	pha
	_NewRgn
	pla
	sta ClipRgn
	pla
	sta ClipRgn+2
	bcc GetCLip	;if no error continue
	pha	;save error code
	brl Handle1	;got an error.
GetClip	PushzLong ClipRgn	;opt 22-Aug-91 DAL
	_GetClip
	bcc GetTextRgn	;if no error continue
	pha	;save error code
	brl ErrorClip	;got an error.

;Get a NewRgn to be	set to the TextRect	area

GetTextRgn	pha
	pha
	_NewRgn
	pla
	sta TextRgn
	pla
	sta TextRgn+2
	bcc RectRgn	;if no error continue
	pha	;save error code
	brl ErrorClip	;got an error.
RectRgn	PushzLong TextRgn	;opt 22-Aug-91 DAL
	PushzLong TextRectPtr  ;opt 22-Aug-91 DAL
	_RectRgn
	bcc GetBoxRgn	;if no error continue
	pha	;save error code
	brl ErrorText	;got an error.

;Get a NewRgn for intersection of TextRgn and old clipping.

GetBoxRgn	pha
	pha
	_NewRgn
	pla
	sta BoxRgn
	pla
	sta BoxRgn+2
	bcc SectRgn	;if no error continue
	pha	;save error code
	brl ErrorText	;got an error.
SectRgn	PushzLong ClipRgn	;opt 22-Aug-91 DAL
	PushzLong TextRgn	;opt 22-Aug-91 DAL
	PushzLong BoxRgn	;opt 22-Aug-91 DAL
	_SectRgn
	bcc SetClip	;if no error continue
	pha	;save error code
	brl ErrorBox	;got an error.

;Reset the clipping	to my new clipping area.

SetClip	PushzLong BoxRgn	;opt 22-Aug-91 DAL
	_SetClip
	bcc EraseRect	;if no error continue
	pha	;save error code
	brl ErrorBox	;got an error.

;First do an EraseRect on the TextRectPtr area.

EraseRect	PushzLong TextRectPtr  ;opt 22-Aug-91 DAL
	_EraseRect

;Calculate the FontHeight
;Using TextRgn to as FontInfoPtr until I get the font Hieght

	tdc	;transfer direct page to accumulator.
	clc
	adc #FontInfoRec	;add offset to record.
	stz FontInfoPtr+2	;It's on directPage.
	sta FontInfoPtr	;Store address.
	PushzLong FontInfoPtr ;pass pointer	;opt 22-Aug-91 DAL
	_GetFontInfo	;get the font info

;Move the pen to the correct position.
	ldy #2
	lda [TextRectPtr],y
	pha	;pass horizontal = to rect.
	lda [TextRectPtr]	;Get the top.
	ldy #2
	sec
	sbc [fontInfoPtr],y	;subtract descent.
	sta CurrentHeight	;current vertical position
	pha	;pass the vetical.
	_MoveTo

	stz CharLine
	lda #1
	sta CRFlag

;------------------------------------------------------------------------
;
;SavePort
;

*** Using GetFontGlobals was silly, since we have GetFontLore.
*** 22-Aug-91 DAL -- use GetFontLore to find font information
	pha	;space for GetFontLore result
	pea 0
	tdc
	clc
	adc #theFontGlobals
	pha
	pea $000E	;size we want
	_GetFontLore
	pla
*** end 22-Aug-91 DAL

;Save Font Family Number
	lda <theFontGlobals	;DAL
	ldy #FamNum
	sta [LineRuler],y
	ldy #FamNum+NextRuler
	sta [LineRuler],y

;Save Font Size/Style
	lda <theFontGlobals+4  ;get size (22-Aug-91 DAL)
	and #$00FF	;mask off hi byte
	xba	;put size in hi byte
	pha	;and save
	lda <theFontGlobals+2  ;get style (22-Aug-91 DAL)
	and #$00FF	;mask off hi byte
	ora 1,s	;OR with size
	plx	;clean up stack
	ldy #SizeStyle
	sta [LineRuler],y
	ldy #SizeStyle+NextRuler
	sta [LineRuler],y

;Save Color
	pha	;space for result
	_GetBackColor
	ldy #NextRuler+BGroundColor
	pla	;get index
	sta [LineRuler],y	;save background color

	pha	;space for result
	_GetForeColor
	ldy #NextRuler+FGroundColor
	pla	;get index
	sta [LineRuler],y	;save background color

	lda #0
	ldy #LeftMargin
	sta [LineRuler],y
	ldy #RightMargin
	sta [LineRuler],y

;zero Extra spacing
	ldy #ExtraSpacing
	sta [LineRuler],y
	stz LastFullChar
	stz LastPartChar
	stz MaxLine
	stz <PrintedSomeChars  ;added 4-Sep-91 DAL

	jsr GetMaxWidth


;=========================================================================
;
;MainLoop
;

MainLoop	jsl ResetVariables	;varibles for each new line.
	jsl GetALine	;GetALine to print.

	lda <CurrentHeight	   ;added 4-Sep-91 DAL
	sta <oldCurrentHeight  ;added 4-Sep-91 DAL
	jsr NewLine	;reset pen.

	jsl OutputLine	;Print that line.

	lda CRFlag	;get crFlag.
	beq @NoCr	;if not a cr, don't count it.
	lda #1	;Amount to bump.
	jsr BumpTextPtr	;Bump the TextPtr.
@noCR

*** added 4-Sep-91 DAL
	lda <PrintedSomeChars
	ora <CRFlag
	bne @ok
	lda <oldCurrentHeight
	sta <CurrentHeight
	bra MainLoop
@ok
*** end 4-Sep-91

;Loop Until InputDone or TextLen <= 0 or VPos > RectBottom + Height

	lda InputDone	;Get InputDone.
	bne MLExit	;Exit if InputDone.
	ldy #4	;Get offset to Bottom.
	lda [TextRectPtr],y	;Get Bottom.
	cmp CurrentHeight	;Compare with Current V Pos.
	bmi MLExit	;If out of view Exit.
	lda TextLen	;Get TextLen.
	bne MainLoop	;if still has text don't quit.
MLExit

quit	jsr ResetPort	;put port back to how it was.

;------------------------------------------------------------------
;
;End of Main Loop
;


;--------------------------------------------------------------------
;
;Clean up stuff
;

CleanUp	pea 0	;clear error code.

	PushzLong ClipRgn	;opt 22-Aug-91 DAL
	_SetClip
ErrorBox	PushzLong BoxRgn	;opt 22-Aug-91 DAL
	_DisposeRgn
ErrorText	PushzLong TextRgn	;opt 22-Aug-91 DAL
	_DisposeRgn
ErrorClip	PushzLong ClipRgn	;opt 22-Aug-91 DAL
	_DisposeRgn

Handle1	PushzLong TERec	;get rid of TERec handle ;opt 22-Aug-91 DAL
	_DisposeHandle

CleanUpStack	plx	;get the error code	into x.

Exit	
;-----------------------------------------------------------
;
; Now take grafport fields off the stack and put back into
; the port. 
;
	stx Temp	; save error code in temp

	pha	; get current port ptr
	pha
	_GetPort
	lda 2,s	; set dbr to bank of port
	pha
	plb
	plb
	plx	; put ptr in x
	pla	; ignore high word
	ldy #opicSave-ofontHandle-2	; use this as count
@1	pla	; get word off stack and write into port
	sta |opicSave-2,x	
	dex
	dex
	dey
	dey
	bpl @1	; repeat until y < 0

	plb	; restore dbr

	ldx Temp	; get error code (if any) back.

	PushzWord <rtl1+4
	PushzWord <rtl1+2
	PushzWord <rtl1
	lda OrigDirect
	tcd	;reset direct page
	txa	;get error code in a
	cmp #1	;set c bit occordingly
	rtl

;---------------------------------------------------------------------
;
;GetOffset
;
;Adds CharLine and TokenLength and leaves it in the accumulator.
;
GetOffset	lda CharLine	;get charline
	clc
	adc TokenLength	;add the tokenLength to it.
	rts

;-----------------------------------------------------------------------
;
;Deref
;
;Derefrences the handle, or pointer on the stack and puts it back on the
;Stack.  Uses TempPtr as temporary storage for pointer.
;
Deref	pla
	sta Temp	;get return address.
	pla	;get low word
	sta TempPtr	;save in FontInfoPtr
	pla	;get High word
	sta TempPtr+2	;save in FontInfoPtr
	ldy #2
	lda [TempPtr],y
	pha
	lda [TempPtr]	;deref to low word
	pha	;put on stack
	PushzWord <Temp	;Push return address
	rts

;----------------------------------------------------------------------------
;
;ResetVariables
;

ResetVariables	ldy #6
	lda [FontInfoPtr],y
	sta LastLeading
	stz TokenLength
	stz CurrentSpaces
	stz Tabs
	stz CurrentWidth
	stz Spaces
	stz CharLine
	stz MaxHeight
	stz Change
	stz ChangeFlg
	stz GotFChange
	rtl

;------------------------------------------------------------------
;
; Get the MaxWidth
;
GetMaxWidth	ldy #6
	lda [TextRectPtr],y	;get right most pixel
	ldy #2
	sec
	sbc [TextRectPtr],y	;sub left most pixel
	ldy #LeftMargin
	sec
	sbc [LineRuler],y
	ldy #RightMargin
	sec
	sbc [LineRuler],y
	sta MaxWidth	;save result as MaxWidth
	rts


;==================================================================
;
;MainLoop Routines
;

;-------------------------------------------------------------
;Uses Flags: CRFlag	init 1; LineDone loc GetALine dep MaxWidth; InputDone init 0
;         Nothing.
;


;------------------------------------------------------------------
;BumpTextPtr (Bump)
;

BumpTextPtr	sta Temp	;Save the bump.
	lda LastPartChar
	sta LastFullChar
	clc
	adc Temp
	sta LastPartChar
	lda Temp	;Save the Bump.
	clc
	adc TextPtr	;and add the Bump to it.
	sta TextPtr
	lda TextPtr+2	;bump the high word
	adc #0	;and add the Bump to it.
	sta TextPtr+2
	lda TextLen	;get the Length.
	sec
	sbc Temp
	sta TextLen
	rts	;finished


;---------------------------------------------------------------------
;
;GetALine
;1. Gets A line to be Drawn
;2. No Leading Blanks, unless needed because of (LeftJ or FillJ) and CRFlag.
;3. No Traling Blanks.
;4. Returns CharLine which is # of Char	to be drawn from TextPtr.
;5. Will do 4 above	even if it has to break a word to fit.
;
;

GetALine	jsr UpdateHeight
	inc Nothing	;Set Nothing to True.
	stz LineDone	;Set LineDoen to False.
	stz InputDone	;set input done to False.

;The following lines have been commented out so that leading blanks are stripped
;correctly when the	previous line was left or fill justified and this line will
;be right or center	justified.   5-8-87	CAE

;              lda	    CRFlag	       ;Get CRFlag.
;              beq	    SkpngBlanks	       ;if not CRFlag then go to loop.
;              lda	    TextJust	       ;get TextJustification.
;              beq	    GALRepeat	       ;if left just don't skip blanks.
;              cmp	    #2	       ;compare just with fill.
;              beq	    GALRepeat	       ;if fill then don't skip blanks.

SkpngBlanks	inc Skiping
	jsr ScanBlanks	;ScanBlanks at Begining of line.
	lda CRFlag
	beq Skip
	lda TextJust	;get TextJustification.
	beq GALRepeat	;if left just don't skip blanks.
	cmp #2	;compare just with fill.
	beq GALRepeat	;if fill then don't skip blanks.
Skip		;
	jsr GetOffset	;get # of Spaces to	skip.
	jsr BumpTextPtr	;Bump text ptr passed blanks.
	stz CharLine
	stz TokenLength	;zero the variables	used...
	stz Tabs	;...to get the blanks.
	stz Spaces
GALRepeat	stz Skiping
	jsr ScanBlanks	;calculate blanks.
	jsr ScanToken	;get a token.
	jsr CheckDone	;set lineDone if I'm done.
	lda InputDone	;if input done then	quit.
	bne GALExit	;else continue normally.
	lda LineDone	;get LineDone.
	beq NotDone	;Keep going if not done.
	stz Inputdone	;else don't quit completly.
	lda Nothing	;Get nothing.
	beq NotDone	;if Nothing false keep going.
	jsr BrkToken	;Have only one token, brk it.
NotDone	ldy CharLine	;get offset to first char.
	lda [TextPtr],y	;get char.
	and #$00FF	;get only one char.
	cmp #$0d	;see if it's a CR.
	bne NotACR	;if not a cr then branch.
	inc CRFlag	;set crFlag true.
	rtl	;cr so exit and print the line.
NotACR	stz CRFlag	;set CRFlag to false.
GALUntil	lda LineDone	;get line done.
	bne GALExit	;if line done exit.
	lda CRFlag	;get CRFlag.
	bne GALExit	;if CRFlag then exit.
	bra GALRepeat	;Else continue repeating.
GALExit	rtl	;exit.



;---------------------------------------------------------------------
;
;OutputLine
;1. DrawsText of length CharLine from TextPtr.
;2. DrawsText in approptiate justification.
;3. Positions cursor to left of newline.
;
;----------------------------------------------------------------------

OutputLine	lda TextJust	;get justification.
	beq Draw	;Check if Left if so draw.
	bmi Right	;Check if Right justified.
	cmp #2	;Check if Center justified.
	bne Center	;if so do center, else do fill.
Fill	lda CrFlag	;(Matt says this will)
	ora InputDone	;Don't fill last line.
	bne Draw	;(make everything perfect)
	lda CurrentSpaces	;get number of spaces.
	bne GetSpaceX	;if not zero divide.
	inc CurrentSpaces	;else set spaces to	1.
GetSpaceX	pha
	pha	;optimized 19-Sep-90 DAL
	lda MaxWidth	;get max width.
	sec
	sbc CurrentWidth	;get the width used.
	pha	;push result of subtract.
	PushzWord <CurrentSpaces ;push denominator.
	_FixRatio	;get fixed ratio.
	_SetSpaceExtra	;set the extra space.
	bra Draw	;now draw it.
Center	lda MaxWidth	;get max width.
	sec
	sbc CurrentWidth	;get the width used.
	lsr A	;divide by 2.
	pha	;push hor pos.
	PushWord #0	;push zero change ver.
	_Move	;move to appropriate spot.
	bra Draw	;now draw it.
Right	lda MaxWidth	;get MaxWidth.
	sec
	sbc CurrentWidth	;get horizontal pos.
	pha	;push the hor pos.
	PushWord #0	;Push Vertical change.
	_Move	;Move to approriate	spot.
Draw	jsr DrawLine	;draw the line.
	PushLong #0	;setspace extra to zero...
	_SetSpaceExtra
	rtl

;----------------------------------------------------------------------
;
;DrawLine
;
;----------------------------------------------------------------------

DrawLine	stz TokenLength	;Start Printing the	line.
	lda Change	;Change on this line?
	beq NoChange	;If not print the line.
	jsr SetRuler	;Set paramters to start of line.
Loop	lda CharLine	;Get length of string.
	cmp TokenLength
	beq DrawRest	;If all of them are	printed.
	bmi DrawRest	;if done draw remaining text.
	lda TokenLength	;pass offset
	jsr LoadChar	;Get the next Char.
	cmp #DeltaFlg	;Is Char a delta flag.
	bne NextChar	;If not do next char.
	jsr DrawPart	;draw part parsed so far.
BumpingTP	lda TokenLength	;Get Amount drawn.
	jsr BumpTextPtr	;bump it.
	lda CharLine	;Get Length of string
	sec
	sbc TokenLength	;subtract amount just drawn.
	sta CharLine	;save new length of	line.
	lda #1
	sta TokenLength	;reset TokenLength to one.
	jsr LoadChar	;get which change.
	inc TokenLength	;get ready to load word
	lda TokenLength
	jsr GetDeltaWord	;get the DeltaWord
	sta Temp
	jsr DoDelta	;take care of delta
	bra Loop
NextChar	inc TokenLength
	bra Loop
NoChange	lda CharLine	;get length
	sta TokenLength	;get ready to print	it.
DrawRest	jsr DrawPart	;draw the rest of the loop.
	lda TokenLength
	jsr BumpTextPtr
	rts

;-------------------------------------------------------------------------
;
;DoDelta
;
;----------------------------------------------------------------------

DoDelta
	lda Char
	cmp #S	;see if style change.
	bne TestF
	PushzWord <Temp	;push the word from	GetWord.
	_SetTextFace	;Set the text Face.
	ldy #SizeStyle
	lda [LineRuler],y	;get size/style
	and #$FF00	;mask off previous style
	ora Temp	;OR in new style
	sta [LineRuler],y	;and save in ruler.
	jsr UpDateHeight	;Check if height has changed.
	bra DoBpDelta

TestF	cmp #F	;see if font change.
	bne TestC
	lda #1
	sta <GotFChange
	inc TokenLength	;get next word.
	inc TokenLength
	lda TokenLength
	jsr GetDeltaWord	;get new size/style
	ldy #SizeStyle
	sta [LineRuler],y	;and save in ruler
	jsr DoFont	;take care of the font.
	lda Temp	;get new fam num
	ldy #FamNum
	sta [LineRuler],y	;and save in ruler.
	jsr UpDateHeight	;See if maxHeight has changed.
	lda #6	;number to bump.
	jsr BumpDelta
	rts

TestC	cmp #C	;check if fore color change.
	bne TestB
	PushzWord <Temp	;Push the index to color table.
	_SetForeColor
	bra DoBpDelta

TestB	cmp #B	;check if background color.
	bne TestOther
	PushzWord <Temp	;Push the index to color table.
	_SetBackColor
	bra DoBpDelta

TestOther	cmp #J
	beq DoBpDelta	;skip delta data.
	cmp #Q
	beq DoBpDelta
	cmp #X
	beq DoBpDelta
	cmp #L
	beq DoBpDelta
	cmp #M
	beq DoBpDelta
	jsr DoRuler
DoBpDelta	lda #4	;bump normal delta.
	jsr BumpDelta
	rts


;-------------------------------------------------------------------------
;
;BumpDelta
;
;----------------------------------------------------------------------

BumpDelta	sta Temp
	jsr BumpTextPtr
	lda CharLine	;GetNumber of Chars	left.
	sec
	sbc Temp	;subtract the delta	string.
	sta CharLine	;and save new value.
	stz TokenLength
	rts


;--------------------------------------------------------------------------
;SetRuler
;
;Takes the ChangeFlg and sets each paramater that is marked	for change.
;
;----------------------------------------------------------------------
SetRuler	lda ChangeFlg
	beq AllSet	;no changes, so quit.
	lsr ChangeFlg	;get Style bit
	bcc CheckFont
;set style
	ldy #SizeStyle
	lda [LineRuler],y	;get size/style
	and #$00FF	;mask off size
	pha
	_SetTextFace
	lda ChangeFlg
	beq AllSet

CheckFont	lsr ChangeFlg	;get Font bit.
	bcc AllSet
	ldy #FamNum
	lda [LineRuler],y
	sta Temp	;save in Temp for DoFont call.
	ldy #SizeStyle
	lda [LineRuler],y
	jsr DoFont

AllSet	rts

;allow R (ruler) change someday


;----------------------------------------------------------------------
;
;DrawPart
;1. Draws Text of length CharLine from TextPtr.
;2. Positions Cursor to left on new line.
;3. resets currentHeight.
;
;----------------------------------------------------------------------
DrawPart
*** added/opt 22-Aug-91 DAL
	lda <TokenLength
	beq Drawn
	PushZLong <TextPtr	;pass the pointer.
	pha	;push the length
	_DrawText
	inc <PrintedSomeChars  ;added 4-Sep-91 DAL
Drawn	rts
*** end 22-Aug-91

;----------------------------------------------------------------------
;
;NewLine
;
;----------------------------------------------------------------------
NewLine	ldy #2	;get offset to left.
	lda [TextRectPtr],y	;get left.
	ldy #LeftMargin
	clc
	adc [LineRuler],y
	pha	;push horizontal.
	lda MaxLine
	beq addMHeight
	clc
	adc CurrentHeight
	bra addFont
AddMHeight	lda CurrentHeight	;get current height
	clc
	adc MaxHeight	;add MaxHeight change.
AddFont	ldy #6
	sec
	sbc [FontInfoPtr],y
	clc
	adc LastLeading
	ldy #ExtraSpacing
	clc
	adc [LineRuler],y
	sta CurrentHeight	;save result as new	cur height.
	pha	;push vert. position.
	_MoveTo	;move to new line.
	rts

;---------------------------------------------------------------
;
;ScanBlanks
;
;----------------------------------------------------------------------

ScanBlanks	jsr GetNextChar	;get the next char in char.
	lda InputDone	;get input done.
	bne ExitSB	;if set exit ScanBlanks
	lda Char	;get the char.
	cmp #$20	;compare with space.
	bne CkTbChar	;if not a space Check if tab.
	inc Spaces	;increment number of spaces.
	inc TokenLength	;and number of tokens.
	bra ScanBlanks	;keep scaning until	exit.
CkTbChar	cmp #$09	;check if char is a	tab.
	bne ExitSB	;exit ScanBlanks if	not a tab.
	inc Tabs	;else increment # of tabs.
	inc TokenLength	;and number of tokens.
	bra ScanBlanks	;keep scaning until	exit.
ExitSB	rts	;Done scanning blanks.


;---------------------------------------------------------------
;
;ScanToken
;
ScanToken	jsr GetNextChar	;get the next char.
	lda InputDone	;get input done.
	bne STExit	;if set exit scan token.
	lda Char	;else get the char.
	cmp #$20	;check if space.
	beq STExit	;if a space than exit.
	bpl Token	;if gt it's still a token.
	cmp #$09	;check if tab
	beq STExit	;if so then exit.
	cmp #$0D	;check if CR
	beq ItsACR	;if so then count it and exit.
	cmp #DeltaFlg
	beq ItsACR	;if delta flag exit.
Token	inc TokenLength	;it's a token so inc toklen.
	bra ScanToken	;keep going until exit.
ItsACr	inc LineDone	;set line done, to exit on cr.
STExit	rts

;------------------------------------------------------------------
;
;GetNextChar

GetNextChar	jsr GrabChar	;Get the nextchar
	lda InputDone
	bne GNCExit
	lda char
	cmp #DeltaFlg	;Is char deltaflg marker?
	bne GNCExit	;If not exit
	inc Change	;A delta exists on this line.
	jsr CheckDone	;Check if current stuff fits.
	lda LineDone	;Get line done.
	bne GNCExit	;if done then exit
	inc TokenLength	;pass DeltaFlg
	jsr GetOffset	;add TokenLength and CharLine.
	jsr LoadChar	;What kind of delta	is it?
	inc TokenLength	;account for marker.
	jsr GetOffset	;Add TokenLength and CharLine.
	jsr GetDeltaWord
	sta Temp	;store delta word in temp.

	lda Char
	cmp #S
	bne ChkFont
	PushzWord <Temp	;Push the delta word.
	_SetTextFace	;set the textface.
	lda Skiping
	beq NoSkip1
	ldy #SizeStyle
	lda [LineRuler],y	;get size/style
	and #$FF00	;mask off previous style
	ora Temp	;OR in new style
	sta [LineRuler],y	;and save in ruler.
	brl DeltaEnd

NoSkip1	lda ChangeFlg	;get ChangeFlg.
	ora #$0001	;set style flg.
	sta ChangeFlg	;save the change.
	brl DeltaEnd

GNCExit	rts

ChkFont	cmp #F	;See if Font Change.
	bne ChkColorChng	;if not check if a color change.
	inc TokenLength
	inc TokenLength
	jsr GetOffset
	jsr GetDeltaWord	;get size/style
	ldx Skiping
	beq NoSkip2
	ldy #SizeStyle
	sta [LineRuler],y	;save new size/style in ruler
NoSkip2		;
	jsr DoFont	;Take care of the font change.
	lda Skiping
	beq NoSkip3
	lda Temp
	ldy #FamNum
	sta [LineRuler],y
	brl DeltaEnd

NoSkip3	lda ChangeFlg	;get ChangeFlg.
	ora #$0002	;set Font flg.
	sta ChangeFlg	;save the change.
	bra DeltaEnd


ChkColorChng	cmp #C
	bne ChkQ
	lda Skiping	;bug fix 5-6-87 CAE
	beq DeltaEnd
	PushzWord <Temp
	_SetForeColor	;end bug fix
	bra DeltaEnd

ChkQ
ChkBGround	cmp #B
	bne ChkExtra
	lda Skiping	;bug fix 5-6-87 CAE
	beq DeltaEnd
	PushzWord <Temp
	_SetBackColor	;end bug fix
	bra DeltaEnd

ChkExtra	cmp #X
	bne CheckLMargin
	ldy #ExtraSpacing
	lda Temp
	sta [LineRuler],y
	bra DeltaEnd

CheckLMargin	cmp #L
	bne CheckRMargin
	ldy #LeftMargin
	lda Temp
	sta [LineRuler],y
	jsr GetMaxWidth
	bra DeltaEnd

CheckRMargin	cmp #M
	bne CheckJust
	ldy #RightMargin
	lda Temp
	sta [LineRuler],y
	jsr GetMaxWidth
	bra DeltaEnd

CheckJust	cmp #J
	bne CheckRuler
	lda Temp
	sta TextJust
	bra DeltaEnd

CheckRuler	cmp #R
	bne DeltaEnd
	jsr DoRuler	;mark new ruler
	bra DeltaEnd

DeltaEnd	jsr CountDelta
	brl GetNextChar	;continue


;-----------------------------------------------------------------------------
;
CountDelta	inc TokenLength
	inc TokenLength
	jsr GetOffset	;add TokenLength and charLine.
	sta CharLine	;store in CharLine
	stz TokenLength
	rts


;----------------------------------------------------------------------------
;
GrabChar	jsr GetOffset	;Add CharLine and TokenLength
	sta OffSet	;to get total OffSet.
	cmp TextLen	;compare it to OffSet.
	bpl getout
StillInputLeft	jsr LoadChar	;get the char.
	bra GCExit
getout	inc Inputdone	;and put in input done.
GCExit	rts

;------------------------------------------------------------------
;
;LoadChar
;
;Puts next char in char variable, from TextPtr with an offset in the accum.
;
LoadChar	tay	;put OffSet in y.
	lda [TextPtr],y	;get charachters.
	and #$00FF	;get only one Char.
	sta char	;store in Char.
	rts

;----------------------------------------------------------------
;
;DoRuler
;
DoRuler		;needs to handle the rulers
	rts	;for future R change

;-----------------------------------------------------------------------
;
;UpDateHeight
;
UpDateHeight	jsr GetHeight
	cmp MaxHeight
	bcc smaller
	sta MaxHeight	;It's bigger so save it.
smaller	rts


;----------------------------------------------------------------------
;
;GetHeight
;
GetHeight	tdc	;transfer direct page to accumulator.
	clc
	adc #FontInfoRec	;add offset to record.
	stz FontInfoPtr+2	;It's on directPage.
	sta FontInfoPtr	;Store address.
	PushzLong FontInfoPtr ;pass pointer	;opt 22-Aug-91 DAL
	_GetFontInfo	;get the font info
	lda [FontInfoPtr]	;get ascent
	ldy #6
	clc
	adc [FontInfoPtr],y	;add leading.
	ldy #2
	clc
	adc [FontInfoPtr],y	;add descent.
	rts

;--------------------------------------------------------------------
;
;ResetPort
;
;Resets the Port back to the way it was	when textbox was called.
;
ResetPort		;
	ldy #SizeStyle+NextRuler
	lda [LineRuler],y	;get size/style
	and #$00FF	;mask off size
	pha
	_SetTextFace	;set style

	lda <GotFChange
	beq NoFontChange
	ldy #FamNum+NextRuler
	lda [LineRuler],y
	sta Temp
	ldy #SizeStyle+NextRuler
	lda [LineRuler],y
	jsr DoFont
NoFontChange

	ldy #FGroundColor+NextRuler
	lda [LineRuler],y
	pha
	_SetForeColor	;set foreground color
	ldy #BGroundColor+NextRuler
	lda [LineRuler],y
	pha
	_SetBackColor	;set Background color

	rts

;----------------------------------------------------------------------
;
;DoFont
;
DoFont
	pha	;Push the size and style.
	PushzWord <Temp	;push the fam num
	PushWord #0	;scaling.
	_InstallFont	;Change the font.
	bcc FontInstalled	;font installed, no	error.
	rts	;exit there was an error.

FontInstalled		;
	jsr UpdateHeight	;reset Height dependencies.
	clc	;clear carry if no error.
	rts

;--------------------------------------------------------------
;
;GetDeltaWord
;
;Returns the word, at TextPtr with offset in the accum., in	the accum.
;
GetDeltaWord	tay	;put it y for offset
	lda [TextPtr],y	;get the word
	rts


;--------------------------------------------------------------
;
;CheckDone

CheckDone
;	Pushword #0	;Push Space for result.
	pha
	lda TextPtr	;get low word of TextPtr.
	clc
	adc CharLine	;add offset to it.
	sta Temp	;save low word.
	lda TextPtr+2	;get high word.
	adc #0	;add carry to highword.
	pha	;push high word.
	PushzWord <Temp	;push low word.
	PushzWord <TokenLength ;push length of text
	_TextWidth	;get the textwidth.
	pla	;get the width.
	clc
	adc CurrentWidth	;add to CurrentWidth.
	cmp MaxWidth	;are we past the limit?
	beq MoreToDo
	bmi MoreToDo	;if so, we're done
	stz inputDone
SetLineDone	inc LineDone	;and store it in line done.
	rts

MoreToDo	sta CurrentWidth
	jsr GetOffset	;add charline and TokenLength.
	sta CharLine	;save CharLine
	lda Spaces	;Get # of spaces.
	clc
	adc CurrentSpaces	;add to currentspaces.
	sta CurrentSpaces	;save current spaces.
	stz Spaces	;clear spaces.
	stz TokenLength	;clear TokenLength.
	stz Nothing	;set nothing to false.
CDExit	rts	;done.



;------------------------------------------------------------
;
;BrkToken

BrkToken	dec TokenLength	;TokenLength =- 1
	jsr CheckDone	;check if done.
	lda TokenLength	;get tokenLength.
	bne BTUntil	;check until condition.
	lda CharLine	;get charline
	bne BTUntil	;if nothing will fit quit!
	stz LineDone	;finished so set exit.
	inc InputDone	;inputdone = 1
BTUntil	lda TokenLength	;get lineDone.
	bne BrkToken	;if not zero keep backing up.
	inc LineDone	;Linedone = 1.
	rts

	EndP
	print POP



****************************************************************
*
FakeGetLEDefProc 	PROC
*
* Jumps to code in dynamic segment so address of dynamic
* segment is not in tool table.
*
*
* Inputs:
*	space for output
*
* Outputs:
*	space for output
*
* External Refs:
	import GetLEDefProc
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
*
* Added 15 May 89	Steven Glass
*
****************************************************************


	jml GetLEDefProc

	EndP

****************************************************************
*
* LEClassifyKey -- new call 20-Mar-92 DAL for 6.1
*
* Input:  pointer to event record
* Output: word, bit flags
*           15: special editing key
*           14: digit (0-9)
*           13: hex digit (a-f, A-F)
*           12: letter (A-Z, a-z)
*           11: non-control key
*            0: any key
*
****************************************************************
LEClassifyKey	proc

	phd
	tsc
	tcd

event	equ 9
result	equ event+4

	stz <result

	lda [<event]
	cmp #keyDownEvt
	beq @key
	cmp #autoKeyEvt
	bne @notKey

@key	ldy #2	;offset to message
	lda [<event],y

	inc <result

	ldx #TableEnd-Table-4
@search	sep #$20
	cmp >Table,x
	rep #$20
	bcc @next
	sep #$20
	cmp >Table+1,x
	rep #$20
	bcs @next
	tay
	lda >Table+2,x
	tsb <result
	tya
@next	dex
	dex
	dex
	dex
	bpl @search

@notKey	pld

	ldx #0	;no error
	ldy #4	;strip 4 bytes
	jml $e10184	;ToStrip

	macro
&lab	keyRange &low,&high,&mask
&lab	dc.b &low,1+&high
	dc.w &mask
	mend

Table	keyRange $06,$06,$8000
	keyRange $08,$08,$8000
	keyRange $15,$15,$8000
	keyRange $18,$19,$8000
	keyRange $7f,$7f,$8000
	keyRange '0','9',$4000
	keyRange 'A','F',$2000
	keyRange 'a','f',$2000
	keyRange 'A','Z',$1000
	keyRange 'a','z',$1000
	keyRange $20,$FE,$0800
TableEnd

	EndP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/LineEdit/le.loader.asm b/IIGS.601.SRC/GSToolbox/LineEdit/le.loader.asm
new file mode 100644
index 0000000..8f6dd98
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/LineEdit/le.loader.asm
@@ -0,0 +1 @@
+	include 'all.macros'
	include 'e16.locator'


MMLoader	PROC

	bra RealStart



True	equ $FFFF
False	equ 0



TheUserID	equ $4014
TheToolNumber	equ $14
TheName	str '1/tool020'

RealStart


;-----------------------------------------------------------
;
; Brk if necessary
;
	lda >$C062
	and #$0080
	beq @NoBreak
	brk 17
@NoBreak



;-----------------------------------------------------------
;
; Set dbr
;

	phk
	plb


;-----------------------------------------------------------
;
; Unload last patch
;

	pha	; space for result
	PushWord #TheUserID
	PushWord #0
	_UserShutdown

	pla

;-----------------------------------------------------------
;
; Load the new one
;


	pha	; space for dir page stack size
	pha	; space for addr of	dir page stack seg
	pha	; space for starting addr
	pha
	pha	; space for user id
	PushWord #TheUserID	; user id
	PushLong #TheName	; ptr to path name
	PushWord #True
	_InitialLoad
	bcs Die

	pla	; ignore userid
	pla	; put starting address
	sta TableAddress
	pla
	sta TableAddress+2
	pla	; ignore dir page
	pla	; ignore dir page size


;-----------------------------------------------------------
;
; Install
;
	PushWord #0	; system call
	PushWord #TheToolNumber	; install the patch
	PushLong TableAddress
	_SetTSPtr
	
	_SetDefaultTPT

;-----------------------------------------------------------
;
; Quit
	_Quit QuitParams


QuitParams	DC.L 0
	DC.W 0


TableAddress	DS.B 4





Die		; 
	pha
	PushLong #ErrorString
	_SysFailMgr

ErrorString	str 'Could not load.  Error was $'

	ENDP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/LineEdit/lineeditproc.asm b/IIGS.601.SRC/GSToolbox/LineEdit/lineeditproc.asm
new file mode 100644
index 0000000..003c0f8
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/LineEdit/lineeditproc.asm
@@ -0,0 +1 @@
+	title 'LineEditProc'
**********************************************************************
*
* LineEdit Control Def Proc
*
*
* Copyright (C)
* Apple Computer, Inc.  1986-1989
* All Rights Reserved
*
* 24 Sep 88	Steven Glass
*
* Coding begin from version of the editLine custom control
* in the dialog manager.
*
* 01 Dec 88	Steven Glass
*
* The drawing routine now checks to see if the control is visible.
*
* 06 Feb 89	Harry Yee
*
* In do_draw routine, we now check if SpecialRect returns an error, if it does then
* I assume that the error is a dispatcher error, i.e. function not found as would be,
* in the case of pre-3.2 system disks, I then clean up the stack and call EraseRect and
* FrameRect instead. 
*
* 15 Feb 89	Harry Yee
*
* We now "include" LineEditEquates.asm. This holds the equates for line
* edit's direct page variables which we now need. In Do_Track when
* the control is being made active for the first time we now zero the ClickTime
* variable on direct page. This variable holds the last time that a mouse down
* occurred in a line edit control (any line edit control). Double/Triple clicks
* when clicking between several line edit controls now works. 
* BRC #38970.
*
* 10 Mar 89	Steven Glass
*
* Changed names associated with active controls to target controls.
*
* 15 Mar 89	Steven Glass
*
* Don't make control target if it is invisible.
*
* 24 Mar 89	Harry Yee
*
* Fixed problem in do_ChangeTarget, do_TakeTab, and do_TakeEvent. We were not checking 
* whether Target was visible or not before trying to deactivate it. Fixed.
*
* The lineEdit defprocs no longer call StartDrawing or SetOrigin(0,0). Its up to the
* program calling the defprocs to set the origin correctly (in this case TaskMaster).
*
* 28 Mar 89	Steven Glass
*
* Added support for the ctlWinStateChagne message.  Invalrect is called
* in response to this message so that the control will be redrawn.
*
*
* 12 Apr 89	Steven Glass
*
* Changed do_TakeEvent to reject events if control is inactive.
*
* 19 apr 89	Steven Glass
*
* Changed the init routine.  Could not handle initial value being
* a handle.
*
* 18...19-Sep-90	Dave Lyons
*
* Changed how do_track constructs an event record to pass to LEClick.
* We weren't getting real Modifiers before, so we couldn't shift-click
* to extend the selection.  Now I call GetNextEvent with a 0 event mask,
* so we get real modifiers.  (This actually saves code [for the RAM
* toolset] because the old scheme was to call TickCount and ReadMouse
* and copy the results into the event record.)
*
* Also removed all.macros dependency and changed rString to rPString.
*
* 11-Mar-91	Dave Lyons
*
* Add a field to the template to control what the Password character is.
* Put all.macros back.
*
* 22-Aug-91	Dave Lyons
*
* Changed do_TakeEvent to branch to @HandleTab even if the Command key
* is down, so that MakeNextCtlTarget will get called with Command
* down to cycle through the controls backwards.
*
* 5-Sep-91	Dave Lyons
*
* Creating a Line Edit control with 9 parameters & the Password char
* field = $0000 gives you the default password character (regardless
* of bit 15 of the maxLen field).
*
**********************************************************************
*
* 23-Mar-92	Dave Lyons for 6.1
*
* Add optional parameter #10 for allowing only certain characters
* into the field.  (The control record is now the standard one plus
* one word for keyMask.)
*
* 24-Mar-92	Dave Lyons
*
* If the password character field in the template is $FFFF, then this
* actually isn't a password field.
*
**********************************************************************

	blanks off
	string asis

	print push
	print off

	include 'all.macros'
	include ':::ControlMgr:CtlCustomEqus.asm'
	include 'e16.quickdraw'
	include 'e16.font'
	include 'e16.event'
	include 'e16.resources'
	include 'e16.lineedit'
	include 'LineEditEquates.asm'

	MACRO
	PushZPtr &A
	pea  $0000
	tdc
	clc
	adc  #&A
	pha
	MEND


True	equ $FFFF
False	equ 0

LineEditPartCode 	equ $80

y1	equ 0
x1	equ 2
y2	equ 4
x2	equ 6

TabKey	equ 9
ReturnKey	equ 13



	MACRO
&lab	link &SizeInput,&SizeLocals
	lclc &SL
&SL	setc &DEFAULT(&SizeLocals,'0')
input	equ &SL+3
output	equ input+&SizeInput
&lab	tsc
	sec
	sbc #&SL
	tcs
	phd
	inc a
	tcd
	MEND

	MACRO
&lab	unlink
&lab	pld
	tay
	lda input-1,s
	sta output-1,s
	lda input-2,s
	sta output-2,s
	tsc
	clc
	adc #output-3
	tcs
	tya
	cmp #1
	MEND

	print pop


	title 'Proc Entry'

;___________________________________________________________________________
;
;       LineEditProc
;
;       input: message:WORD - desired operation
;              param:LONG - depends on operation
;              ctlHandle:LONG - handle	to control
;
;      output: RetValue:LONG - depends on operation
;____________________________________________________________________________

LineEditProc	PROC

	dsect 0
ctlPtr	long
Rect	block 8
FontInfo	block 8
FontHeight	word
DestRect	block 8
SizeLocals	DSectSize

	link 10,SizeLocals

	DSect input
ctlHandle	long
CtlParam	long
CtlMessage	WORD

RetValue	equ output

;
; Zeroes out RetValue
;
	stz <RetValue
	stz <RetValue+2

;
; Check to see which message.  If it is	the RecSize msg then
; skip this part which sets port and origin since pointers
; in control handle	are not yet valid.
;
	lda <CtlMessage
	cmp #RecSize
	beq SkipThisShit
;
; Derefence Control	Handle
;
	jsr DerefCtlHandle

;
; Get a copy of the	enclosing rect
;
	ldy #NewCtlRecord.ctlRect
	lda [<ctlPtr],y
	sta Rect
	iny
	iny
	lda [<ctlPtr],y
	sta Rect+2
	iny
	iny
	lda [<ctlPtr],y
	sta Rect+4
	iny
	iny
	lda [<ctlPtr],y
	sta Rect+6


SkipThisShit
;
; Dispatch
;
	lda <CtlMessage
	cmp #ctlWinStateChange+1
	bcs NotHandled
	asl a
	tax
	jsr (CmdTable,x)

NotHandled
	unlink

	rtl	; quit procedure



CmdTable	DC.W Do_Draw		0 DRAW
	DC.W Do_Nothing		1 compute DragRect
	DC.W do_test		2 common hit test
	DC.W Do_Init		3 Init routine
	DC.W Do_Dispose		4 dispose routine
	DC.W Do_Nothing		5 new value
	DC.W Do_Nothing		6 thumb constraints
	DC.W Do_Track		7 drag indicator
	DC.W Do_Nothing		8 auto action proc
	DC.W Do_Draw		9 new value
	DC.W Do_Nothing		10 set min/max
	DC.W Do_Move		11 move control
	DC.W Do_RecordSize		12 record size
	dc.W Do_TakeEvent		13 take key or menu event
	dc.w Do_TargetChange	14 Activity changed
	dc.w do_nothing		15 Change Bounds
	dc.w do_nothing		16 Window changed size
	dc.w do_TakeTab		17 handle a tab
	dc.w do_nothing		18 multi part event
	dc.w do_inval		19 Winstate change

Do_Nothing
	rts


	title 'Do_Draw'
****************************************************************
*
Do_Draw
*
* Draws the LineEdit item in response to the control manager
* request.
*
* This draw routine, frames and erases the bounding rectangle
* and then calls LEUpdate.
*
*
* Inputs:
*	param     PartCodeToDraw
*	param+2   Hilite State
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

	jsr CheckVis
	beq @Continue
	rts

@continue
;-----------------------------------------------------------
;
; Guarentee the text color
;
;-----------------------------------------------------------
	pea $0000
	_SetForeColor
	pea $FFFF
	_SetBackColor


	lda ctlparam+2
	beq @WeAreTarget

;-----------------------------------------------------------
;
; The control is "dim".  Do we think we are target?
; If yes, we must tell lineedit to untarget.
;
;-----------------------------------------------------------
@WeAreNotTarget
	jsr DeActivate
	bra @ok

;-----------------------------------------------------------
;
; The control is not dim.  Do we think we are target?  If
; yes, we must tell line edit to activate.
;
;-----------------------------------------------------------
@WeAreTarget
	ldy #NewCtlRecord.ctlMoreFlags
	lda [ctlPtr],y
	and #FctlTarget
	beq @WeAreNotTarget

	jsr Activate

@OK

;
; Draw EditLine enclosing rect
;
	pushzptr <Rect
	PushWord #0
	PushWord #$FFFF
	_SpecialRect
	bcc SpecialRectOK

	tsc	; Fix stack from SpecialRect call
	clc
	adc #8
	tcs
	
	pushzptr <Rect	; Fill area we're going to frame with the background 	
	_EraseRect	; color
	
	_PenNormal	
	
	pha	; width of pen depends on the mode we're in
	_GetMasterSCB
	pla
	and #$0080
	beq In320
	
	pea 2	; pen width is 2 in 640 mode
	bra PushHeight
	
In320	pea 1	; pen width is 1 in 320 mode
PushHeight	pea 1	; pen height is 1
	_SetPenSize
	
	pea 0	; set the pen pattern to be solid black
	_SetSolidPenPat
	
	pushzptr <Rect	; frame the edit line item	
	_FrameRect
	
;
; ReDraws the Line by calling LineEdit
;
SpecialRectOK	jsr PushCtlData
	_LEUpdate

	rts


	title 'Do_Test'
****************************************************************
*
Do_Test
*
* Returns the part code for an indicator so that the defProc
* can do its own custom dragging.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

	lda #LineEditPartCode
	sta <RetValue

	rts

	title 'Do_Test'
****************************************************************
*
Do_TakeTab
*
* Selects the contents of the text.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

	jsr CheckVis
	beq @Continue
	rts

@Continue	pushword #0		; select all the default text
	pushword #32767
	jsr PushCtlData
	_LESetSelect

	rts


	title 'Do_Track'
****************************************************************
*
do_track
*
* This is the routine that is called when the mouse goes down
* in the control.
*
* The control manager calls this routine because, the 
* test routine returned a part code of $80.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************
;-----------------------------------------------------------
;
; Look at the part code.  If it is zero, the whole control
; wants to be dragged.
;
;-----------------------------------------------------------
	lda <CtlParam
	bne @GoOn
	rts


@GoOn

;-----------------------------------------------------------
;
; Start by making this control Target.  To do so, we have
; to see if we are already Target.
;
; If we are, then all is well, otherwise, we just have to
; deactivate whoever and force a redraw.
;
;-----------------------------------------------------------

	ldy #NewCtlRecord.CtlMoreFlags
	lda [CtlPtr],y
	and #FCtlTarget
	bne @AlreadyTarget

;
; --- This line edit control is being made Target for the first time ---------------
;
	pea 0	; space for result
	pea 0	
	pea 0	; System toolset
	pea LETSNum	; Line Edit toolset number
	_GetWAP
	plx
	pla
	lda #0	; just in case its not on zero page
	sta >ClickTime,x	; reset the last time mouse down happened to
	sta >ClickTime+2,x	; zero, so double/triple clicks work correctly

	pei CtlHandle+2
	pei CtlHandle
	_MakeThisCtlTarget

@AlreadyTarget


;-----------------------------------------------------------
;
; Now that the control is activated, we have to handle
; the mouse down.  The tricky part here is that
; we don't have the real event record.  What will
; we do?
;
; We build a fake record on the stack.
;
;-----------------------------------------------------------

	DefineStack
AnEventWhat   	word	EQU   $00 ; Word - WmTaskRec -  
AnEventMessage   	LONG	EQU   $02 ; Long - WmTaskRec -  
AnEventWhen   	LONG	EQU   $06 ; Long - WmTaskRec -  
AnEventWhere   	LONG	EQU   $0A ; Point - WmTaskRec -  
AnEventModifiers   	WORD	EQU   $0E ; Word - WmTaskRec -  


	lda #0
	pha	; mods
	pha	; where
	pha	; where
	pha	; when
	pha	; when
	pha	; message
	pha	; message
	pha	; what

*** replaced the following section 18-Sep-90 DAL (see GetNextEvent below)
***	pha
***	pha
***	pha
***	_ReadMouse
***	pla
***	pla
***	plx
***	sta AnEventWhere,s
***	txa
***	sta AnEventWhere+2,s
***
***	lda #1
***	sta AnEventWhat,s
***
***	pha	;replaced 18-Sep-90 DAL (see GetNextEvent below)
***	pha
***	_TickCount
***	pla
***	plx
***	sta AnEventWhen,s
***	txa
***	sta AnEventWhen+2,s
***
***	lda #%0000000001000000
***	sta AnEventModifiers,s
***
***	tsc
***	inc a
***	pea $0000
***	pha

*** New scheme 18-Sep-90 DAL lets us handle shift-clicking
	tsc
	inc a
	ldx #0
	phx
	pha	;pushed event record ptr for LEClick

	phx	;result space for GetNextEvent
	phx	;ZERO event mask for GetNextEvent
	phx	;event rec ptr for GetNextEvent
	pha
	_GetNextEvent
	pla	;throw away the flag

	lda #1	;mouseDown event
	sta AnEventWhat+4,s	;+4 because EventRec ptr for LEClick is pushed
*** end of 18-Sep-90 DAL change

	jsr PushCtlData
	_LEClick

	pla	; what
	pla	; message
	pla	; message
	pla	; when
	pla	; when
	pla	; where
	pla	; where
	pla	; modifiers

	lda #True	; tell control manage that we handled the drag.
	sta <RetValue
	lda #LineEditPartCode
	sta <RetValue+2

	rts

	title 'Do_Init'
****************************************************************
*
Do_Init
*
* This is the hard working routine that takes the input from
* the input template and builds the appropriate LineEdit
* record.
*
*
* Inputs:
*	ctlParam   pointer to template
*	ctlHandle  The control handle
*	ctlPtr     The control pointer
*	ctlRect    control's rectangle
*
* Outputs:
*	none
*
* External Refs:
	import LoadResource
	import ReleaseResource
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
*
* Change History
*
* 19 Apr 89	Steven Glass
*
* Could not pass the initial value by handle.  Was not setting
* direct page up correctly.
*
****************************************************************



;-----------------------------------------------------------
;
; This is a line edit control so it can be Target and it
; can take key strokes.  So I force these bits on.
;
;-----------------------------------------------------------
	ldy #NewCtlRecord.CtlMoreFlags
	lda #FCtlCanBeTarget+FCtlWantEvents
	ora [CtlPtr],y
	sta [CtlPtr],y


;-----------------------------------------------------------
;
; LineEdit expects the current port to be the port
; we will do the editing in.
;
;-----------------------------------------------------------

	pha	; save the current
	pha
	_GetPort

	ldy #NewCtlRecord.ctlOwner+2
	lda [ctlPtr],y
	pha
	dey
	dey
	lda [ctlPtr],y
	pha
	_SetPort

;
; Calculate the view rectangle
;
	pushzptr Rect
	pushword #2
	pushword #1
	_InsetRect

;
; Calculate the font height
;
	pushzptr FontInfo
	_GetFontInfo

	lda <FontInfo	; ascent
	clc
	adc <FontInfo+2	; descent
	adc <FontInfo+6	; leading
	sta <FontHeight

;
; Calculate how much the destRect must be inseted
;
	lda <Rect+0
	sta <DestRect+0
	lda <Rect+2
	sta <DestRect+2
	lda <Rect+4
	sta <DestRect+4
	lda <Rect+6
	sta <DestRect+6

	lda <Rect+y2	; inset = (viewRect.y2 - viewRect.y1
	sec	;         - FontHeight)/2
	sbc <Rect+y1
	sbc <FontHeight
	lsr a
	tax

	pushzptr DestRect
	pushword #4	; horizontal inset = 4
	phx	; vertical inset computed to center text
	_InsetRect

;
; Create the LineEdit Record
;
	pha	; space for Line Edit Handle
	pha
	pushzptr <DestRect
	pushzptr <Rect
	ldy #LineEditTemplate.MaxLen	; max length
	lda [<ctlParam],y
	pha
	_LENew

	jsr DerefCtlHandle

	ldy #NewCtlRecord.ctlData
	pla
	sta [<ctlPtr],y
	iny
	iny
	pla
	sta [<ctlPtr],y
;
; Test if TextPtr is Nil or not
;
	ldy #LineEditTemplate.IVRef
	lda [<ctlParam],y
	bne DefaultText
	iny
	iny
	lda [<ctlParam],y
	bne DefaultText

	brl FinishUp

;
; Set the edit text	to the string passed as parameter
;
DefaultText
;
; Copy the reference to direct page in rect.
;
	ldy #LineEditTemplate.IVRef
	lda [ctlParam],y
	sta rect
	iny
	iny
	lda [ctlParam],y
	sta rect+2

;
; look at the ref descriptor
;
	ldy #NewCtlRecord.ctlMoreFlags
	lda [ctlPtr],y
	and #IVVerbMask
	tax	; put copy here
	beq @IsPtr

	cmp #IVIsHandle
	beq @ISHandle

;
; load the resource
;
@IsResource
	pha
	pha
	PushWord #rPString	;was rString 19-Sep-90 DAL
	pei rect+2
	pei rect
	_CMLoadResource
	pla
	sta Rect
	pla
	sta Rect+2

	jsr DerefCtlHandle

;
; deref the handle
;
@IsHandle	lda [Rect]
	tax
	ldy #2
	lda [Rect],y
	sta Rect+2
	stx Rect


;
; bump the pointer by 1 and call set text.
;
@IsPtr
	lda Rect+2
	ldx Rect
	inx
	bne @NoCarry
	inc a
@NoCarry	pha
	phx
	lda [Rect]
	and #$00FF
	pha
	jsr PushCtlData
	_LESetText

	jsr DerefCtlHandle


	pushword #0		; select all the default text
	pushword #32767
	jsr PushCtlData
	_LESetSelect


	ldy #NewCtlRecord.ctlMoreFlags
	lda [ctlPtr],y
	and #IVVerbMask
	cmp #IVIsResource
	bne FinishUp

	PushWord #rPString		;was rString 19-Sep-90 DAL
	ldy #LineEditTemplate.IVRef+2
	lda [<ctlParam],y
	pha
	dey
	dey
	lda [<ctlParam],y
	pha
	_CMReleaseResource


FinishUp
*** Check for the Password character field
	lda [<ctlParam]	;check paramater count
	cmp #9
	bcc @noPWChar

	ldy #LineEditTemplate.PasswordChar
	lda [<ctlParam],y
	bmi @noPWChar	;added 24-Mar-92 DAL
	bne @havePWChar
	lda #defaultPWChar	;$0000 --> default password character!
@havePWChar
	pha
	jsr PushCtlData
	phd
	tsc
	tcd
	ldy #2
	lda [3],y
	pha
	lda [3]
	sta 3
	pla
	sta 5	;derefed LE Record to <3
	lda 7	;get Password Character back
	ldy #lePWChar
	sta [3],y
	pld
	plx
	plx	;throw away long
	plx	;throw away password character
@noPWChar

*** added 23-Mar-92 DAL
;
; Copy keyMask parameter from template to record
;
	ldx #1	;anticipate keyMask = $0001
	lda [<ctlParam]
	cmp #10
	bcc @defaultMask

	ldy #LineEditTemplate.keyMask
	lda [<ctlParam],y
	tax

@defaultMask	txa
	ldy #NewCtlRecord.ctlOptionalData
	sta [<ctlPtr],y
*** end 23-Mar-92

;-----------------------------------------------------------
;
; Make this the Target control (unless the invis bit is set).
;
;-----------------------------------------------------------

	ldy #NewCtlRecord.CtlFlag
	lda [<ctlPtr],y
	and #ctlInvis
	bne @DontMakeTarget

	_HidePen

	pei <CtlHandle+2	; make this the Target control
	pei <CtlHandle
	_MakeThisCtlTarget

	_ShowPen

@DontMakeTarget
	_SetPort	Restore the current	port.

	rts



	title 'Do_Move'
****************************************************************
*
Do_Move
*
* This is the routine that adjusts the leRecord after the control
* has been moved.
*
*
* Inputs:
*	ctlParam   delta Y and deltaX
*	ctlHandle  The control handle
*	ctlPtr     The control pointer
*	ctlRect    control's new rectangle
*
* Outputs:
*	none
*
* External Refs:
	import LoadResource
	import ReleaseResource
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

;
; Save the port and set the port to the window.
;

	pha	; save the current
	pha
	_GetPort

	ldy #NewCtlRecord.ctlOwner+2
	lda [ctlPtr],y
	pha
	dey
	dey
	lda [ctlPtr],y
	pha
	_SetPort


;
; Calculate the view rectangle
;
	pushzptr Rect
	pushword #2
	pushword #1
	_InsetRect

;
; Calculate the font height
;
	pushzptr FontInfo
	_GetFontInfo

	lda <FontInfo	; ascent
	clc
	adc <FontInfo+2	; descent
	adc <FontInfo+6	; leading
	sta <FontHeight

;
; Calculate how much the destRect must be inseted
;
	lda <Rect+0
	sta <DestRect+0
	lda <Rect+2
	sta <DestRect+2
	lda <Rect+4
	sta <DestRect+4
	lda <Rect+6
	sta <DestRect+6

	lda <Rect+y2	; inset = (viewRect.y2 - viewRect.y1
	sec	;         - FontHeight)/2
	sbc <Rect+y1
	sbc <FontHeight
	lsr a
	tax

	pushzptr DestRect
	pushword #4	; horizontal inset = 4
	phx	; vertical inset computed to center text
	_InsetRect


OldLERec	equ FontInfo

;
; Get the old LE Record handle and deref it
;
	ldy #NewCtlRecord.ctlData+2
	lda [<ctlPtr],y
	sta OldLERec+2
	dey
	dey
	lda [<ctlPtr],y
	sta OldLERec


	lda [OldLERec]
	tax
	ldy #2
	lda [OldLERec],y
	sta OldLERec+2
	stx OldLERec

;
; Copy the DestRect into the LE record
;
	ldy #oleDestRect
	ldx #0
@Loop1	lda DestRect,x
	sta [OldLERec],y
	iny
	iny
	inx
	inx
	cpx #8
	bcc @Loop1

;
; Copy the ViewRect into the LERecord
;
	ldy #oleViewRect
	ldx #0
@Loop2	lda Rect,x
	sta [OldLERec],y
	iny
	iny
	inx
	inx
	cpx #8
	bcc @Loop2


	_SetPort

	rts


	title 'Do_Dispose'
****************************************************************
*
Do_Dispose		; 
*
* Disposes of the LE record when the control record is 
* being killed.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

	jsr PushCtlData
	_LEDispose

	rts


	title 'Do_TargetChange'
****************************************************************
*
Do_TargetChange
*
* This is the little routine is called when the ChangeTarget
* message is called.
*
*
* Inputs:
*	ctlHandle   Control's handle
*	ctlPtr      (Handle derefed)
*	ctlParam    not used
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

	jsr CheckVis
	beq @Continue
	rts

@Continue	ldy #NewCtlRecord.ctlMoreFlags
	lda [ctlPtr],y
	and #FCtlTarget
	beq @Deactivate

	jsr Activate
	bra @Fini


@Deactivate	jsr Deactivate

@Fini	rts

Activate
	jsr PushCtlData
	_LEActivate
	rts

Deactivate	jsr PushCtlData
	_LEDeactivate
	rts



	title 'Do_TakeEvent'
****************************************************************
*
Do_TakeEvent
*
* This is the little routine that handles key strokes, menu
* events and idle events.
*
*
* Inputs:
*	ctlHandle   Control's handle
*	ctlPtr      (Handle derefed)
*	ctlParam    pointer to task record
*
* Outputs:
*	retValue is true indicating we took the event
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
*
* Change History
*
* 06 Jan 88	Steven Glass
*
* Added code to look at the modifiers.  If apple key is down,
* we ignore the key stroke unless it is an arrow key.
*
* 12 Apr 89	Steven Glass
*
* Check hilite flag and reject event if ctl is inactive.
*
****************************************************************

	jsr CheckVis
	beq @Continue
	rts

@continue

; Added 12 Apr 89 SEG
	ldy #NewCtlRecord.ctlFlag	Look at the flag and hilite
	lda [<ctlPtr],y		bytes.  If hilite is FF
	and #$FF00		we are inactive and should
	cmp #$FF00		ignore the event.
	beq @RejectEvent
; End Addition

	lda [ctlParam]
	bne @NotNull

	jsr PushCtlData
	_LEIdle

	lda #True
	brl @Fini

@NotNull
	cmp #keyDownEvt
	beq @IsKey

	cmp #AutoKeyEvt
	beq @IsKey

@RejectEvent	lda #False
	bra @Fini

@IsKey
;
; If the apple key is down only accept the arrow keys, otherwise
; reject the key.
;

*** added 22-Aug-91 DAL -- accept Command-tab as Tab!
	ldy #oMessage
	lda [ctlParam],y
	cmp #TabKey
	beq @HandleTab
*** end 22-Aug-91 DAL

	ldy #oModifiers
	lda [ctlParam],y
	and #appleKey
	beq @NotModified

	ldy #oMessage
	lda [ctlParam],y
	cmp #8	; left arrow
	beq @NotModified
	cmp #$15	; right arrow
	bne @RejectEvent
@NotModified

*** added 23-Mar-92 DAL -- filter out unwanted keys
	pha	;space for LEClassifyKey
	pei <ctlParam+2
	pei <ctlParam
;	_LEClassifyKey
	ldx #$2514
	jsl $e10000
	pla
	ldy #NewCtlRecord.ctlOptionalData
	and [<ctlPtr],y
	beq @rejectEvent
*** end 23-Mar-92

	ldy #oMessage
	lda [ctlParam],y
	cmp #ReturnKey
	beq @RejectEvent
	pha
	ldy #oModifiers
	lda [ctlParam],y
	pha
	jsr PushCtlData
	_LEKey

@TakeIt	lda #True
@Fini	sta <RetValue
	rts

;-----------------------------------------------------------
;
; We have a tab, so we try to make the next control Target.
; If we are the only control, we end up ignoring the tab.
; If we are not the only control, we send the 
; ctlHandleTab message to the newly Target control
;
;-----------------------------------------------------------
@HandleTab	pha	; make the next one Target
	pha
	_MakeNextCtlTarget
	pla
	plx
	cmp ctlHandle	; is it us?
	bne @NotSame	; no
	cpx ctlHandle+2
	beq @TakeIt	; yes

@NotSame		; no
	pha	; Call the new one.
	pha
	phx
	pha
	PushWord #ctlHandleTab
	PushLong #0
	_CallCtlDefProc
	pla
	pla

	bra @TakeIt


	title 'Do_RecordSize'
****************************************************************
*
Do_RecordSize
*
* Returns the size of the control record that we need.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

;	lda #SuperCtlSize
*** 23-Mar-92 DAL -- keyMask field is now on the end
	lda #SuperCtlSize+2
*** end 23-Mar-92
	sta <RetValue

	rts


	title 'Do_Inval'
****************************************************************
*
Do_Inval
*
* Invalidates the control record in response to a window state
* change message.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

	PushZPtr Rect
	_InvalRect

	rts




	title 'Utilities'
**********************************************************************
*
* Various Utilities
*
**********************************************************************


CheckVis	ldy #NewCtlRecord.ctlFlag	; make sure we are visible
	lda [ctlPtr],y		; before we draw.
	and #ctlInVis
	rts



PushCtlData	plx
	ldy #NewCtlRecord.ctlData+2
	lda [<ctlPtr],y
	pha
	dey
	dey
	lda [<ctlPtr],y
	pha
	phx
	rts


DerefCtlHandle	lda [<ctlHandle]
	sta <ctlPtr
	ldy #2
	lda [<ctlHandle],y
	sta <ctlPtr+2
	rts

	ENDP


****************************************************************
*
GetLEDefProc	PROC Export
*
* Returns the address of the LineEdit control def-proc.
*
*
* Inputs:
*	space for pointer
*
* Outputs:
*	Pointer to DefProc
*
* External Refs:
	import LineEditProc
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


	DefineStack
RTL1	block 3
RTL2	block 3
ThePointer	LONG

	lda #LineEditProc
	sta ThePointer,s
	lda #^LineEditProc
	sta ThePointer+2,s

	lda #0
	clc
	rtl

	ENDP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/LineEdit/makefile b/IIGS.601.SRC/GSToolbox/LineEdit/makefile
new file mode 100644
index 0000000..228bd30
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/LineEdit/makefile
@@ -0,0 +1 @@
+### Dependencies for Line Edit 

tool020		Ä	le.asm.obj  common.asm.obj LineEditProc.asm.obj 
	linkiigs							¶
		-lseg TheTool					¶
			le.asm.obj  				¶
			common.asm.obj 				¶
###		-lseg:dynamic TheProc 			¶
		-lseg TheProc					¶
			LineEditProc.asm.obj 		¶
		-o  tool020 -t tol
	if {AutoDuplicate} == 1
		DuplicateIIGS -y -mac Tool020 :
	End


### Dependencies for components

le.asm.obj			Ä		le.asm					¶
							LineEditEquates.asm 	
	asmiigs le.asm


LineEditProc.asm.obj			Ä		LineEditProc.asm					¶
										LineEditEquates.asm					¶
										::controlmgr:SuperEquates.asm		¶
										::controlmgr:Equates.asm
	asmiigs LineEditProc.asm


common.asm.obj		Ä		common.asm
	asmiigs Common.asm



LE.LOADER		Ä		LE.LOADER.asm.obj
	linkiigs  LE.LOADER.asm.obj -o LE.LOADER

LE.LOADER.asm.obj		Ä		LE.LOADER.asm
	asmiigs LE.LOADER.asm
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/LineEdit/special.macros b/IIGS.601.SRC/GSToolbox/LineEdit/special.macros
new file mode 100644
index 0000000..731c89e
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/LineEdit/special.macros
@@ -0,0 +1 @@
+ MACRO
&lab PushZPtr &TheLabel
&lab pea 0
 clc
 tdc
 adc #&TheLabel
 pha
 MEND

 MACRO
&lab PushZLong &Memory
&lab pei &Memory+2
 pei &Memory
 MEND

 MACRO
&lab PushZWord &Memory
&lab pei &Memory
 MEND
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/ListMgr/ListEquates.asm b/IIGS.601.SRC/GSToolbox/ListMgr/ListEquates.asm
new file mode 100644
index 0000000..b789383
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/ListMgr/ListEquates.asm
@@ -0,0 +1 @@
+;
; List Manager error codes
;
badItemNumber	equ $1C01	;added 5-May-91 DAL (but not used)
listRejectEvent	equ $1C02	;added 13-May-91 DAL

;=========================================
; Offsets for RECT structure.
;=========================================
y1	equ 0
x1	equ y1+2
y2	equ x1+2
x2	equ y2+2
RECTSIZE	equ x2+2

;=========================================
; Offsets for control structures.
;=========================================
;
; --- General control header ---------------------------------
;                                                             
CtlNext	equ 0
CtlOwner	equ CtlNext+4
CtlRect	equ CtlOwner+4
CtlFlag	equ CtlRect+RECTSIZE
CtlHilite	equ CtlFlag+1
CtlValue	equ CtlHilite+1
CtlProc	equ CtlValue+2
CtlAction	equ CtlProc+4
CtlData	equ CtlAction+4
CtlrefCon	equ CtlData+4
CtlColor	equ CtlrefCon+4

;
; --- Color table offsets ------------------
;
color1	equ 0
color2	equ color1+2
color3	equ color2+2
color4	equ color3+2
color5	equ color4+2
color6	equ color5+2
color7	equ color6+2
color8	equ color7+2

;
; --- Resource ID numbers
;
rListRef	equ $801C
rCstring	equ $801D
rPstring	equ $8006

;
; --- CtlFlag bit flags --------------------
;
C_HILITE	equ $00FF	Hilited part, 255 =	inactive.
CTL_INVIS	equ $0080	1 if control is invisible.
TEST_MEM_NEVER	equ $0040	1 = check the MEM_NEVER bit in the memflag
;		0 = don't check MEM_NEVER bit

;
; ------ CtlFlag bits for scroll bars -------
;
UP_FLAG	equ $0001	Up arrow.
DOWN_FLAG	equ $0002	Down arrow.
LEFT_FLAG	equ $0004	Left arrow.
RIGHT_FLAG	equ $0008	Right arrow.
DIR_SCROLL	equ $0010	0 = vertical, 1 = horizontal scroll.

;
; ------ CtlFlag bits for simple buttons -----
;
SB_BOLD	equ $0001

;
; --- Task numbers ----------------------------
;
drawCntl	equ 0	Draw the control.
calcCRect	equ drawCntl+1	Compute the drag RECT.
testCntl	equ calcCRect+1	Perform a hit test on the control.
initCntl	equ testCntl+1	Perform additional initialization.
dispCntl	equ initCntl+1	Perform additional disposal.
posCntl	equ dispCntl+1	Called when dragging complete with delta.
thumbCntl	equ posCntl+1	Setup for dragging.
dragCntl	equ thumbCntl+1	Perform dragging.
autoTrack	equ dragCntl+1	Called while dragging.
newValue	equ autoTrack+1	Called when new value is set.
setParams	equ newValue+1	Called when min and	max are set.
moveCntl	equ setParams+1	Move entire control.
recSize	equ moveCntl+1	Return size of control's record.

;
; --- Task numbers for internal calls----------------------------
;
ListFirst	equ $8000
ListNew	equ $8001
ListDrawMem	equ $8002

;
; --- Part codes for standard controls -----------------
;
BUTT_PART	equ 2
CHECK_PART	equ 3
UP_PART	equ 5
DOWN_PART	equ 6
UPP_PART	equ 7
DOWNP_PART	equ 8
GROW_PART	equ 10
THUMB_PART	equ 129

CtlToolNum	equ 16

;
; --- Control icon numbers -------------------------------
;
UP_ARROW	equ 8
DOWN_ARROW	equ 10
LEFT_ARROW	equ 12
RITE_ARROW	equ 14
GROW_ICON	equ 16

TITLE_SPACE	equ 4	Number of pixels added to the width of
;                                      	a check box or radio button to get the
;                                      	starting X position of the title.


;=========================================
;          List control record.
;=========================================
;
; --- Extended control record for list control -----------------
;
CtlMemDraw	equ CtlColor+4	Address of routine to draw members.
CtlMemHeight	equ CtlMemDraw+4	Member's height in pixels.
CtlMemSize	equ CtlMemHeight+2	Number of bytes in member record.
CtlList	equ CtlMemSize+2	Pointer to list control's list.
CtlListBar	equ CtlList+4	Handle of list control's scroll bar.

;
; --- ListRec record offsets ------------------------------------
;
ListRect	equ 0	List's enclosing RECT.
ListSize	equ ListRect+RECTSIZE Total number of members in list.
ListView	equ ListSize+2	Max number that can	be viewed at once.
ListType	equ ListView+2	Flags.
ListStart	equ ListType+2	First member to be displayed.
ListCtl	equ ListStart+2	Handle of list's control.
ListDraw	equ ListCtl+4	Address of routine to draw members.
ListMemHeight	equ ListDraw+4	Member's height in pixels.
ListMemSize	equ ListMemHeight+2	Number of bytes in member record.
ListPointer	equ ListMemSize+2	Pointer to an array	of string pointers.
ListRefCon	equ ListPointer+4	List control's RefCon.
ListScrollClr	equ ListRefCon+4	Pointer to scroll bar color table.

;
; --- MemRec record offsets --------------------------------------
;
memPtr	equ 0	;bits 0-1 of memFlag indicate type
memFlag	equ memPtr+4

;
; --- memFlag bit values -----------------------------------------
;
MEM_SEL	equ $0080	TRUE if selected.
MEM_DISABLE	equ $0040	TRUE if disabled.
MEM_NEVER	equ $0020	TRUE if disabled items cannot be selected
;
; --- Bit masks for Command and Shift keys -----------------------
;
COMMAND	equ $0080	Used with state read from $C025.
SHIFT	equ $0001


;
;==========================================
;          Event record and flags.
;==========================================
;
what	equ 0
message	equ what+2
when	equ message+4
where	equ when+4
modif	equ where+4
TaskData	equ modif+2
TaskMask	equ TaskData+4

;
; --- Event codes ----------------------------------------
;
inNull	equ $00	No further action required.
inButtDwn	equ $01	Button down event.
inButtUp	equ $02	Button up event.
inKey	equ $03	Key event.
;	    $04	(Not defined)
inAutoKey	equ $05	Auto-Key event.
inUpdate	equ $06	Update event.
;              	    $07             (Not defined.)
inActWind	equ $08	Activate window event.
inSwitch	equ $09	Switch event.
inAccess	equ $0A	Desk Accessory event.
inDevice	equ $0B	Device driver event.
;              	    $0C             Application defined.
;              	    $0D             Application defined.
;             	    $0E             Application defined.
;                       $0F             Application defined.

;
; --- Modifier key flags --------------------------------
;
K_KEYPAD	equ $2000
K_CTRL	equ $1000
K_OPTION	equ $0800
K_CAPSLOCK	equ $0400
K_SHIFT	equ $0200
K_COMMAND	equ $0100
K_BUTT0	equ $0080
K_BUTT1	equ $0040
K_CHANGE	equ $0002
K_ACTIVE	equ $0001

;
;=================================================
; Equates from procedure ListProc  (ListDP1.asm)
;=================================================
;
LastEventCode	equ 1
saveFontFlags	equ LastEventCode+2	Save caller's font flag state.
strgType	equ saveFontFlags+2	0 = length first, 1	= null terminated.
memlist	equ strgType+2	Pointer to locked member list.
TextMode	equ memlist+4	Save text writing mode.
DisplayTop	equ TextMode+2	Index of first member in display.
ViewSize	equ DisplayTop+2	Number of members in display at once.
DataSize	equ ViewSize+2	Total number of members.
memHeight	equ DataSize+2	Height of member, in pixels.
crect	equ memHeight+2	List control's enclosing RECT.
cptr	equ crect+8	Pointer to list control.
cworkptr	equ cptr+4	;20
cworkptr2	equ cworkptr+4
FrameClr	equ cworkptr2+4	Color of list control's outline.
NorTextClr	equ FrameClr+2	Color of member's text when normal.
SelTextClr	equ NorTextClr+2	Color of member's text when selected.
NorBackClr	equ SelTextClr+2	Color of normal member's background.
SelBackClr	equ NorBackClr+2	Color of selected member's background.
curTextClr	equ SelBackClr+2	Current text color.
curBackClr	equ curTextClr+2	Current text color.
constraint	equ curBackClr+2	bit 0 = shift, bit 7 = open apple.
curMember	equ constraint+2	Index of currently selected member.
startRange	equ curMember+2	Beginning of selected range.
endRange	equ startRange+2	End of selected range.
hookMember	equ endRange+2	First member the button went down on.
oldClip	equ hookMember+2	Handle of region that holds port's clip.
*** theClip	equ oldClip+4	;added 25-Nov-90 DAL for draw1member (now using cWorkPtr2 instead)

savezpage	equ oldClip+4
returnAddr	equ savezpage+2
theControl	equ returnAddr+3
parameter	equ theControl+4
operation	equ parameter+4
result	equ operation+2
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/ListMgr/listmgr.asm b/IIGS.601.SRC/GSToolbox/ListMgr/listmgr.asm
new file mode 100644
index 0000000..ce4c21b
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/ListMgr/listmgr.asm
@@ -0,0 +1 @@
+
	title 'List Manager'
*************************************************************************
*
* List Manager Version 3.2 
* written by Dan Oliver
*
* Copyright Apple Computer, Inc. 1986-93
* All Rights Reserved
*	
*
* Change History		             
*
* Version 2.3
*
*
* June 17, 1988	Harry Yee
*	Converted to MAX development system.
*
*
* Version 2.4
*
* 30 Aug 88	Steven Glass
*
* WalkOfLife does not use self modifying code.
*
* List_Drag used in-line data storage for the event record.  This
* has been changed to use the stack.
*
* We also have added an additional word in the direct page area
* that we get inside the def-proc.
*
* Finally, the init routine used in line storage to pass a pointer
* to the color table pointer used by the scroll bar.  To pass this
* cleanly, we put it in the RefCon and after the scroll bar is created,
* we reset the refcon to the user's value.
*
* Version 2.5
*
* 21 November 88	Owen Rubin
*
* SelectMember use to scroll the item to the top of the display list EVEN
* if the item was already showing in the display. This change prevents the
* selected item from moving to the top of the list if it is already visible.
*
* A new bit (D5) has been added to the flags field. When set to 1, this bit
* prevents an item from EVER having its selected bit set by the list manager.
* (Note that this disables any use of the help function.)
*
* 07 December 88 	Konstantin Othmer
*
* Fixed bug to make list manager work properly with Newcontrol2.  The list_init
*  routine now initializes ctlflag word in the NewCtlRecord.  So it now supports
*  C-strings and whether or not multiple selections are allowed.  Both of these
*  bits are in the listType field. Almost fully functional with NewControl2
*
* 08 December 88 	Konstantin 
*
* The scroll bars were not being initialized properly.  Now the ListMgr is fully
*  functional with NewControl2.
*
*  Changed internal call numbers to $8xxx so they don't overlap with NewControl2
* operation numbers.
*
*  Made bit 2 of the ListType field control whether the scroll bar goes on the
* inside (bit2 = 1) or the outside (bit2 = 0) of the listrect.
*
* 23 January 89 	Konstantin 
*
* The scroll bars for list controls can use only the default color table.  The
*  colors were determined by the refcon before this change.
*
* 25 January 89	Harry
*
* In routine derefMem we first check to see if the list is an old or new style 
* control before checking the memflag to see if the member is a ptr, hdl, or 
* resource ID. Change made mainly because of incompatibility between old Print
* Manager and new List Manager.
*
* In routine ck_deselected we now check if bit 6 of the control record's flag
* is set before we check the list manager's MEM_NEVER bit in the memFlag. 
*
* 10 February 89	Harry
*
* In routine LIST_INIT the list control's invisible bit in the ctlFlag is being 
* overwritten by the ListType flag. The fix is to OR the ListType flag with
* the ctlFlag. When the scroll bar is being created the scroll bar's visible bit
* must be set to the same state as the list control's.
*
* Modified LIST_DRAW routine to draw the scroll bar if the list control is visible
* but the scroll bar isn't. 
*
* List Control's did not work with the call _HideControl because the scroll bar rect
* was not part of the list control's rect. I now support the new control 
* message ctlHideCntl (message #18). This defproc is called by _HideControl if the 
* FctlIsMultiPart bit is set in moreFlags. This new message now allows the defproc to 
* erase whatever it needs. The defproc is also responsible for setting the invisible
* bit for each control including the list control.
*
* 17 Feb 89	Harry and Konstantine
*
* The color table for new list controls were not being copied into the control
* record. Fixed.
*
* 24 Mar 89	Harry Yee
*
* Fixed problem in routine List_hide. I was calculating the rectangle to be used
* to hide the list control incorrectly. I was adding the x2 coord. of the list to 
* the x2 coord. of the scroll bar to get the x2 coord. for the rect. Instead I 
* should just have used the x2 coord. from the scroll bar. Worksheet #BCOJHS090.
*
* 28 mar 89	Steven Glass
*
* Added support for the WinStateChange message.  This code ignores it
* because the control does not look any different in active and inactive
* windows.
*
* 29 Mar 89	Harry Yee
*
* Changed routine list_hide to list_MultiPart. Changed list_MultiPart to handle
* changes made to the control manager. There are now 4 possible Parameter values.
* This routine now also gets called during a ShowControl and DrawOneCtl call.
*
* 4/14/89	Mensch
*
* Changed list_init in the defproc so that the initial scroll bar value matches
* the top item in the list.
*
* 17 Apr 89	Harry Yee
*
* In routine LockNLoad we were not first checking whether the control message was
* InitCntl before trying to access some control record fields which at this pt
* may not have been setup by list_init yet. 
*
* Routine WalkOfLife was looping one too many times. This caused problems because
* we were walking past the end of the list and trying to access a list member that
* didn't exist. Fixed. This caused problems in DrawPlus when calling ChooseFont.
*
* Routine Draw1Member was running off the end of the list. We would push the count 
* on the stack then call routine DerefMem then decrement the count and check if we've 
* went past the list. If we did reach the end of the list then we called DerefMem one 
* two many times. We now put the check for count before calling DerefMem. Fixes same
* problem as above.
*
* In the init routine, we validate the first member to display with
* respect to the view size and data size.  First member <= DataSize - ViewSize.
*
* 19 Apr 89	Harry Yee
*
* Changed version number from $8204 to $0300. 
*
* 17 May 89	Steven Glass
*
* Changed version from $0300 to $8301.  Added code to release resources
* when control is killed.  Separated equates from this file so they
* could be shared with the patch.
*
* 18 May 89	Steven Glass
*
* Changed newList2 so it would look at ListStart when it was not supposed
* to change.  (Sometimes it has to anyway.)
*
* 20 Nov 89	Harry Yee
*
* Pen width was not being setup correctly in 320 mode. Fix bug #53257.
*
* 21 Nov 89	 Harry Yee
*
* Revert change made 20 Nov 89. The patch is going to be too big to fix it
* on tenspeeds, so we're not going to make the fix at all.
*
* 27-Aug-90	Mensch
*
* Mensch fixed bug freeing the list record (search for "8/27/90").
* This gets linked into TS3, too.
*
* 26-Sep-90	Dave Lyons
*
* Changed version to $8303.
*
* 24..25-Nov-90	Dave Lyons
*
* We no longer draw items that will be all clipped out.  This speeds
* up single-scrolling considerably, for both standard and custom 
* member draw routines.  (Unless the custom routine was already checking
* the clipRgn, of course.)
*
* Added ListKey routine for jumping around in the list by keystrokes.
*
* 3..4-Dec-90	Dave Lyons
*
* Impelementing List_HandleTab, List_HandleEvent, and List_ChangeActivity
* so we can be a target control.
*
* We draw a bold outline around the list control and scroll bar when
* we are the target control.  You can Tab out of the control, and clicking
* in the list or the scroll bar makes the list the target control.
*
* Making ListKey not do anything if Apple key is down.  Making up/down
* arrows work.
*
* 4-Jan-91	Dave Lyons
*
* Fixed list defproc to make sure fCtlCanBeTarget is set before it tries
* calling MakeThisCtlTarget on itself.  This was causing problems for
* non-targatable list controls, when there was already a real targetable
* control.
*
* Fixed ListKey's LKDerefList routine to call LockNDerefList, so now it
* works right with list member records by handle and resource ID.
*
* Changed SortList and SortList2 so that comparePtr bit 31 means that
* the custom compare routine will return the result on the stack (instead
* of the carry, the result bit is in bit 0 of the word under the RTL
* address).
*
* Changed SortList and SortList2 so that comparePtr $00000001 does a
* case-insensitive sort.
*
* At NewList2 label GoOn3, there was  CMP where we wanted a CPX.  This
* fixes a long-standing behavior where passing $FFFFFFFF as the drawProcPtr
* wouldn't leave it unchanged.  (This was never actually documented, but
* it was originally intended & it's a nice feature.)
*
* 17-Feb-91	Dave Lyons
*
* Tried drawing the list frame only 1 pixel wide in 320 mode (still 2
* pixels wide in 640), but this didn't work too well.  It's a bit more
* compilcated than that.  See GetThisModePenWidth.
*
* 3-Mar-91	Dave Lyons
*
* Added a hard-coded translation table so that case-insensitive sorts
* are friendly to international characters.
*
* Added new call CompareStrings that uses the new translation table to
* compare two Pascal strings.  This is for the convenience of applications
* that need to do case-insensitive, international-friendly string compares
* on strings that are not in List Manager lists.
*
* 24-Mar-91	Dave Lyons
*
* Now draws the list frame only 1 pixel wide in 320 mode.  Changes in
* list_draw and DrawTheOutline.  The "focus frame" is also only one pixel
* wide in 320 mode.
*
* 5-May-91	Dave Lyons
*
* Changed some LDA/PHA into PEI.
*
* 13-May-91	Dave Lyons
*
* Added BCS after MakeNextCtlTarget so we don't hang in CallCtlDefProc
* if there is no target control!
*
* ListKey returns error listRejectEvent if it doesn't want to handle
* the event (including for Apple-x keys), and the defproc doesn't claim
* key events if ListKey returns an error.
*
* ListKey down-arrow with nothing selected now selects the first item,
* not the second one.
*
* 11-Jun-91	Dave Lyons
*
* list_disp was failing to release pString member strings (the A register
* was being trashed).  Fixed.
*
* Experimental "CrunchText" horizontal compression of wide member strings
* (pStrings and cStrings).  Sets CharExtra to -1 if it needs more room.
*
* 30-Jul-91	Dave Lyons
*
* ListKey now rejects control characters.
*
* 5-Aug-91	Dave Lyons
*
* Oops, now allow for the 10 pixel offset when checking string width
* against the available space in the member rectangle (thanks to
* Mark Day).
*
* Don't allow NewList2 to set the list control's value to zero!  This
* was making the list contents disappear until scrolled.
*
* 8-Aug-91	Dave Lyons
*
* Oops, list controls were accepting Null events for no reason.  (Thanks,
* Mark.)
*
* 17-Sep-91	Dave Lyons
*
* Fixed ListKey bug where arrows did not work if list had exactly
* one item.  (Located by Mark Day.)
*
* 22-Nov-91	Dave Lyons
*
* After list_init calls MakeThisCtlTarget, it re-locks the control
* handle.  It was getting unlocked, and with Scrambler on the scroll
* bar would not get properly attached.
*
* 5-Dec-91	Dave Lyons
*
* ListKey was rejecting right-arrow by accident.  Fixed.
* Got rid of unnecessary flicker when typing multi-character prefix
* strings to ListKey.  When you have a 2-character or longer string,
* ListKey no longer calls SelectMember if the member it would select
* is already selected.
*
* 9-Dec-91	Dave Lyons
*
* When creating an extended list control, we now set bit 6 in the scroll
* bar's ctlFlags, so the scroll bar knows it belongs to an extended list.
* This way, when the scroll bar draws it can call us to draw the focus frame
* for the list.
*
* 16-Jan-92	Dave Lyons
*
* Changed UpcaseTranslate table to exclude codes 0..7A, and changed uses
* of the table to do the upcasing of a-z manually.  Saved 111 bytes.
* Modified interesting part of UpcaseTranslate at the advice of Yvan
* Koenig.
*
* 5-Feb-92	Dave Lyons
*
* Changed version to $0303 for 6.0 final.
*
**************************************************************************
*
* Begin 6.0.1
*
* 17-Feb-92	Dave Lyons
*
* Changed version to $8304 for 6.1d1.
* Cleaned up old comments.  Optimized a few things.
* CompareStrings flag bit 15 makes it compare GS/OS strings.
*
* 12-Mar-92	Dave Lyons
*
* Load QD Aux at ListStartUp time.
* Use DrawStringWidth (QD Aux) in standard listDraw routine.
*
* 5-May-92	Dave Lyons
*
* Fixed upcase and upcase8 to not accidentally uppercase characters
* $20..$3F and $60 (missing lower bounds check).  Affects SortList[2],
* CompareStrings, ListKey in 6.0.
*
* 9-Mar-93 DAL
*
* Changed ListKey so that Delete and Clear zap the prefix, so you can
* start over.
*
* 2-Apr-93 SS
*
* Changed version to $0304 for 6.0.1 (final)
*
**************************************************************************

	Blanks off
	string asis
	include 'all.macros'
	include 'e16.event'

	print push
	print off

	include 'ListEquates.asm'
	include  '::controlmgr:superequates.asm'


;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

	ENTRY CallDefProc
	ENTRY CallDefProc2
	ENTRY ItemNumToPointer
	ENTRY PointerToItemNum
	ENTRY DrawMember2
	ENTRY ck_Deselected
	ENTRY CreateList
	ENTRY DerefMem
	ENTRY DrawMember
	ENTRY EndDraw
	ENTRY EraseRect
	ENTRY Exit_tool
	ENTRY FindFirst
	ENTRY GetListDefProc
	ENTRY GetListRect
	ENTRY GetMemPtr
	ENTRY HitTest
	ENTRY InsetCRect
	ENTRY ListAction
	ENTRY ListBootInit
	ENTRY ListProc
	ENTRY ListReset
	ENTRY ListShutDown
	ENTRY ListStartup
	ENTRY ListStatus
	ENTRY ListVersion
	ENTRY LockNLoad
	ENTRY List_action
	ENTRY List_disp
	ENTRY List_drag
	ENTRY List_dragParam
	ENTRY List_dragRect
	ENTRY List_HandleEvent	
	ENTRY List_ChangeActivity 
	ENTRY List_ChangeBounds	
	ENTRY List_WindChangeSize	
	ENTRY List_HandleTab	
	ENTRY List_ChangeWinState
	ENTRY List_Draw
	ENTRY List_MultiPart
	ENTRY List_DrawMem
	ENTRY List_First
	ENTRY List_init
	ENTRY List_move
	ENTRY List_new
	ENTRY List_params
	ENTRY List_pos
	ENTRY List_test
	ENTRY List_value
	ENTRY Long_call
	ENTRY NewList
	ENTRY NewList2
	ENTRY NextMember
	ENTRY NextMember2
	ENTRY Pop8bytes
	ENTRY PushCRect
	ENTRY PushParam
	ENTRY PushRec
	ENTRY Reserved
	ENTRY ResetMember
	ENTRY ResetMember2
	ENTRY SetNewValue
	ENTRY LST_Scroll
	ENTRY SelectMember
	ENTRY SelectMember2
	ENTRY SetColor
	ENTRY SetColor2
	ENTRY SetOldClip
	ENTRY SortList
	ENTRY SortList2
	ENTRY UnlockList
	ENTRY WalkOfLife
	ENTRY LockNDerefList
	entry ListKey	;added 24-Nov-90 DAL
	entry GetMPoint
	entry CompareStrings   ;added 3-Mar-91 DAL

	print pop

	title 'ListCallTable'
;=============================================================
;
;          	List Manager Function Table
;
;=============================================================

ListCallTable	PROC EXPORT

FPT	DC.W (ENDFPT-FPT)/4
	DC.W 0
	DC.L ListBootInit-1	$011C
	DC.L ListStartup-1	$021C
	DC.L ListShutDown-1	$031C
	DC.L ListVersion-1	$041C
	DC.L ListReset-1	$051C
	DC.L ListStatus-1	$061C
	DC.L Reserved-1	$071C
	DC.L Reserved-1	$081C
	DC.L CreateList-1	$091C
	DC.L SortList-1	$0A1C
	DC.L NextMember-1	$0B1C
	DC.L DrawMember-1	$0C1C
	DC.L SelectMember-1	$0D1C
	DC.L GetListDefProc-1 $0E1C
	DC.L ResetMember-1	$0F1C
	DC.L NewList-1	$101C
*** List Manager 2 calls
	DC.L DrawMember2-1	;$111C
	DC.L NextMember2-1	;$121C
	DC.L ResetMember2-1	;$131C
	DC.L SelectMember2-1 ;$141C
	DC.L SortList2-1	;$151C
	DC.L NewList2-1	;$161C
*** New calls for System 6.0
	dc.l ListKey-1	;$171C	;added 24-Nov-90 DAL
	dc.l CompareStrings-1 ;$181C	;added 3-Mar-91 DAL

ENDFPT		 
	ENDP


	Title 'List--more'
;==========================================================================
;
;            APPEND	LISTMGR.ASM
;
; 06/05/87 Dan - Force ListStart to be ((ListSize-ListView)+1) or less.
;
;==========================================================================
;
;	ListVersion
;
;          	List Manager Version and Status calls.
;
;==========================================================================
	ENTRY ListVersion
ListVersion	PROC

TheResult	equ 7

	lda #$0304	;Version number (2-Apr-93 SS)
	bra store

	ENTRY ListStatus
ListStatus
		;List Manager is always active if loaded.
	lda #2	;Dan O. version number.

store	sta TheResult,s
	brl exit_tool
	
	ENDP


;==========================================================================
;
;	GetListDefProc
;
;         	Return the address of the list definition procedure.
;
;   IN:    None.
;
;  OUT:    Address of list definition procedure.
;
;==========================================================================
	ENTRY GetListDefProc
GetListDefProc	PROC

TheResult	equ 7

	lda #ListProc>>16	Pass pointer to list control defProc.
	sta TheResult+2,s
	lda #ListProc
	sta TheResult,s

	brl exit_tool
	
	ENDP


;==========================================================================
;	
;	NewList
;
;         	Put a new list in a list control.
;
;   IN:    PUSH:LONG - pointer to ListRec.
;
;  OUT:    None.
;
;==========================================================================
	ENTRY NewList
NewList	PROC

theList	equ 9
member	equ theList+4

	phd
	tsc
	tcd

	lda <theList	Pass list pointer.
	ldx <theList+2
	jsr flipVis	Make list control invisible.

	lda #ListNew	New list command.
	ldx <theList	Pass list record pointer.
	ldy <theList+2
	jsr callDefProc

	pei <member+2	Pass member to be selected.
	pei <member
	pei <theList+2	Pass pointer to list record.
	pei <theList
	_SelectMember

	lda <theList	Pass list pointer.
	ldx <theList+2
	jsr flipVis	Make list control visible.

	phx	Pass handle of scroll bar control.
	pha
	_DrawOneCtl	Redraw the scroll bar.

	lda #0	Draw command.
	tax	Entire list command.
	tay
	jsr callDefProc

	brl pop8bytes

;---------------------------------------------------------------
;          Flip vis	state of list and scroll bar.
;100------------------------------------------------------------
;
temp	equ 1
;
flipVis	phd
	phx	List pointer.
	pha
	tsc
	tcd

	ldy #ListCtl+2	Flip vis state of list.
	lda [<temp],y
	tax
	dey
	dey
	lda [<temp],y
	jsr flipit

	ldy #CtlListBar+2	Flip vis state of scroll bar.
	lda [<temp],y
	tax
	dey
	dey
	lda [<temp],y
	phx	Save scroll bar handle.
	pha
	jsr flipit
	pla	Return handle of scroll bar.
	plx

	ply
	ply
	pld
	rts

flipit	sta <temp	Store control handle.
	stx <temp+2

	ldy #2	Dereference control.
	lda [<temp],y
	tay
	lda [<temp]
	sta <temp
	sty <temp+2

	ldy #CtlFlag	Flip vis state.
	lda [<temp],y
	eor #$0080
	sta [<temp],y
	rts

	ENDP


;==========================================================================
;
;	CreateList
;
;          	Create a list control.
;
;   IN:    PUSH:LONG - pointer to window owner.
;          PUSH:LONG - pointer to ListRec.
;
;  OUT:    LONG - handle of list control created, zero if not created.
;
; The pointer to color table for the scroll bar was put in a global in-line variable
; and used in the init routine for the scroll bar's color table.  We
; now pass the pointer to the init routine in the refcon of the list
; control.
;
;==========================================================================
	ENTRY CreateList
CreateList	PROC
;
theList	equ 9
theWindow	equ theList+4
TheResult	equ theWindow+4

	phd
	tsc
	tcd
;
; If listView size is zero, we calculate listview.  Otherwise we assume the user
; knows what he is doing, because I sure as hell don't.
;
	ldy #ListView
	lda [<theList],y	;can't be less than the starting member.
	bne ViewIsSet	;if non-zero, ListView was set by programmer.
;
; Calculate ListView (the number of items which can be seen at once) by dividing
; the height of the rectangle by listMemHeight.
;
	pha
	pha	;space for result of divide

	ldy #listRect+y2
	lda [<theList],y
	ldy #listRect+y1
	sec
	sbc [<theList],y
	pha	;height of list record
	ldy #listMemHeight
	lda [<theList],y	;height of members
	pha
	_UDivide
	pla	;quotient
	ldy #ListView
	sta [<theList],y
	pla	;remainder
	sec
	sbc #2
;
; The parameters don't jive.  Subtract the remainder from listRec+y2 so they
; do.
;
	pha
	ldy #listRect+y2
	lda [<theList],y
	sec
	sbc 1,s
	sta [<theList],y
	pla
		

ViewIsSet
;
; --- Create the list control --------------------------------------------
;
	pha	Space for result.
	pha

	pei <theWindow+2	Pass window owner.
	pei <theWindow

	pei <theList+2	Pass pointer to enclosing RECT.
	pei <theList

	ldy #ListSize-2	Pass number of members in list,
lop1	iny	view size,
	iny	flag,
	lda [<theList],y	first member in display.
	pha
	cpy #ListStart
	bne lop1

	ldy #ListSize	Total size,
	lda [<theList],y
	beq store1

	ldy #ListView
	sec	less view size,
	sbc [<theList],y	can't be less than the starting member.
	bcs ok1	Is the view larger than the list?
	lda #0	Set minimum starting value.
ok1	inc a
	ldy #ListStart
	cmp [<theList],y
	bcs skip1

store1	sta 1,s	Reset start value.

skip1	pei <theList	Pass pointer to ListRec.
	pei <theList+2

	pea ListProc>>16	Pass pointer to list control defProc.
	pea ListProc

	ldy #ListScrollClr+2
	lda [<theList],y
	pha
	dey
	dey
	lda [<theList],y
	pha

	lda #0
	pha	Pass pointer to color table, default.
	pha
	_NewControl
	pla	Return handle of control.
	sta <TheResult
	ldy #ListCtl
	sta [<theList],y
	pla
	sta <TheResult+2
	iny
	iny
	sta [<theList],y


	ldy #ListRefCon+2	Set user's ref con over our temporary one.
	lda [<theList],y
	pha
	dey
	dey
	lda [<theList],y
	pha
	pei <TheResult+2
	pei <TheResult
	_SetCtlRefCon


	ENTRY pop8bytes
pop8bytes	ldx #8


; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = = = = = = = =
;
;	Pop
;
;        	Pop parameters from middle of stack.
;
;  IN:     x = number of bytes to pop.
;          Original	zero page must have	been pushed.
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = = = = = = = =
	ENTRY pop
pop		       

	ply	Get orignal zero page.
;
; --- Move stack data down over top of parameters ---
;
	tsc
	tcd	Make zero page where stack is.
	lda 5,s
	sta 5,x
	lda 3,s
	sta 3,x
	lda 1,s
	sta 1,x
;
; --- Adjust stact for popped parameters ---
;
	tsc	Current stack,
	phx
	clc
	adc 1,s	plus number of bytes popped,
	tcs	equals new stack.

	tya
	tcd	Return to original zero page.

;==========================================================================
;
;	ListStartup
;	ListShutDown
;	ListReset
;	ListBootInit
;	Reserved
;	exit_tool
;
;==========================================================================
	ENTRY ListStartup
ListStartup
*** added 12-Mar-92 DAL
	pea 0
	_QDAuxStatus
	pla
	bne @gotQDAux
	pea $0012	;QD Aux
	pea 0
	_LoadOneTool
	_QDAuxStartUp
@gotQDAux
*** end 12-Mar-92


	ENTRY ListShutDown
ListShutDown
	ENTRY ListReset
ListReset
	ENTRY ListBootInit
ListBootInit
	ENTRY Reserved
Reserved
	ENTRY exit_tool
exit_tool

	clc	Set no error flag just in case.
	lda #0	No error.
	rtl
	
	ENDP


**************************************************************************
*
* 8-bit upcase -- 4-Jan-91 DAL
*
* Modified 3-Mar-91 DAL to use UpcaseTranslate
*
**************************************************************************
upcase8	proc export
	import UpcaseTranslate2
	longa off
***  use abbreviated table
	cmp #'z'+1
	bcs @1
*** added 5-May-92 DAL -- Check lower bound of range we want to upcase!  Bug in 6.0.
	cmp #'a'
	bcc @2
*** end 5-May-92
	and #$df	;upcase
	bra @2
@1	phx
	tax
	lda >UpcaseTranslate2-$7B,x
	plx
@2
	longa on
	rts

	EndP


**************************************************************************
*
* upcase (In/Out: A)
*
**************************************************************************
upcase	proc export
	import UpcaseTranslate2
*** use abbreviated table
	and #$00ff
	cmp #'z'+1
	bcs @1
*** added 5-May-92 DAL -- Check lower bound of range we want to upcase!  Bug in 6.0.
	cmp #'a'
	bcc @2
*** end 5-May-92
	and #$00df	;upcase
	bra @2
@1	phx
	tax
	lda >UpcaseTranslate2-$7B,x
	and #$00ff
	plx
@2
	rts

	EndP


;==========================================================================
;
;	SortList
;
;            	Alphabetize list.
;
;   IN:    PUSH:LONG - address of routine to call to compare strings.
;          PUSH:LONG - pointer to ListRec.
;
;  OUT:    None.
;==========================================================================
	ENTRY SortList
SortList	PROC

	import upcase8

memSize	equ 1
stringType	equ memSize+2
counter	equ stringType+2
save	equ counter+2
blit	equ save+4
strg1	equ blit+4
strg2	equ strg1+4
listptr	equ strg2+4
current	equ listptr+4
gopher	equ current+2
worksize	equ gopher+1

listrec	equ worksize+9
UseCompare	equ listrec+4

ACC	equ $20
XY	equ $10


	phd	Save orginal direct	page.

	tsc
	sec
	sbc #worksize
	tcs
	tcd

;
; --- Bubble sort member list -----------------------------------------
;
	ldy #ListSize
	lda [<listrec],y
	beq toexit	There must be at least two members.
	dec a
	bne store3	There must be at least two members.
toexit	brl exit
store3	sta <counter	Total number of members less one.

	ldy #ListMemSize	Get size of member record.
	lda [<listrec],y
	sta <memSize

	ldy #ListType
	lda [<listrec],y
	and #1
	sta <stringType	0 = pascal strings,	1 = null terminated.

	jsr getmemlist	listptr = pointer to member list.
	sec	Set pointer for easy block moves.
	sbc <memSize
	bcs store2
	dex
store2	sta <blit
	stx <blit+2

	stz <gopher	Gopher is always at	least one behind.
	stz <current
	bra enter1

lop1	lda <gopher	Next gopher index.
	clc
	adc <memSize
	sta <gopher

enter1	lda <current	Next current index.
	clc
	adc <memSize
	sta <current

	jsr compare	Is 'current' >= 'gopher'?
	bcs next1

;
; ------ Float 'current' to it's proper level -----------------------------
;
lop2	lda <gopher	Backup gopher.
	beq insert	At top of list?
	sec
	sbc <memSize
	sta <gopher

	jsr compare	Is this 'current's place?
	bcc lop2	If not, keep rising	to the top.

	lda <gopher	Insert 'current' after 'gopher'
	clc
	adc <memSize
	sta <gopher

insert	sep #ACC	Save 'current' member.
	ldx <memSize
	ldy <current
lop4	lda [<listptr],y
	pha
	iny
	dex
	bne lop4
	dey

lop3	lda [<blit],y	Move list down to make
	sta [<listptr],y	space for 'current'.
	dey
	cpy <gopher
	bne lop3

	rep #ACC
	lda <gopher
	clc
	adc <memSize
	dec a
	tay
	sep #ACC
	ldx <memSize
lop5	pla
	sta [<listptr],y
	dey
	dex
	bne lop5
	rep #ACC

	lda <current	Reset 'gopher'.
	sec
	sbc <memSize
	sta <gopher

next1	dec <counter	Anymore members?
	bne lop1

	jsr getmemlist	Unlock member list.

exit	tsc	Get rid of local stack space.
	clc
	adc #worksize
	tcs

	brl pop8bytes


; = = = = = = = = =	= = = = = = = = = =	= = = = = = =
;          Compare 'current' member string
;          to 'gopher' member string.
; = = = = = = = = =	= = = = = = = = = =	= = = = = = =
;
;   IN:    listptr = pointer to first member in list.
;          current = index to a member pointer.
;          gopher =	index to another member pointer.
;
;  OUT:    Carry is	set if current member string is equal to or
;          greater than gopher member string.
;
;          Carry is	clear if current member string
;          is less than gopher member string.
;
compare	ldx <UseCompare+1	Custom compare routine?
	beq skip10

	pea 0	;4-Jan-91 DAL
	lda <gopher
	jsr pushit
	lda <current
	jsr pushit
	ldx <UseCompare+1
	lda <UseCompare
	jsl long_call
	pla	;get the result (or the dummy 0)
	ldx <useCompare+2	;bit 15 set if they want to return result on the stack
	bpl @inCarry
	lsr a	;shift bit from stack result into carry
@inCarry	rts


skip10	ldy <current	Get pointer to first string.
	lda [<listptr],y
	sta <strg1
	iny
	iny
	lda [<listptr],y
	sta <strg1+2

	ldy <gopher	Get pointer to second string.
	lda [<listptr],y
	sta <strg2
	iny
	iny
	lda [<listptr],y
	sta <strg2+2

	LONGA OFF
	LONGI OFF
	sep #ACC+XY	8-bit registers

	lda <stringType
	bne nullType
;
; --- Pascal strings ------------------------------------------------
;
	ldy #0
lop10	iny

	tya
	dec a
	cmp [<strg2]	End of gopher string?
	beq greater

	cmp [<strg1]
	beq lessthan	End of current string?

	lda <useCompare
	lsr a
	lda [<strg2],y
	bcc @1
	jsr upcase8
@1	sta >PascalCheat1+1	;*** modified ***
	lda <useCompare
	lsr a
	lda [<strg1],y	Grab a byte.
	bcc @2
	jsr upcase8
@2
PascalCheat1	cmp #$77
	beq lop10

	bra exit10	Carry flag is ready	for exit.  (compared strg1 against strg2)

;
; --- Null terminated string -----------------------------------------
;
nullType	ldy #$FF
lop11	iny
	lda [<strg2],y	End of gopher string?
	beq greater
	lda [<strg1],y	Grab a byte.
	beq lessthan	End of current string?

	lda <useCompare
	lsr a
	lda [<strg2],y
	bcc @2
	jsr upcase8
@2	sta >CCheat1+1

	lda <useCompare
	lsr a
	lda [<strg1],y
	bcc @1
	jsr upcase8
@1
CCheat1	cmp #$77	;*** modified ***
	beq lop11

	bra exit10	Carry flag is ready	for exit. 

greater	sec
	bra exit10

lessthan	clc	current string < gopher string.
exit10	rep #ACC+XY	16-bit accumulator.
	LONGI ON
	LONGA ON

	rts

pushit	plx
	ldy <listptr+2
	clc
	adc <listptr
	bcc ok10
	iny
ok10	phy
	pha
	phx
	
	rts


; = = = = = = = = =	= = = = = = = = = =	= = =
;          Get pointer to member
;          list and	flip its lock state.
; = = = = = = = = =	= = = = = = = = = =	= = =
;
;   IN:    listrec = pointer to ListRec.
;
;  OUT:    listptr = pointer to member list.
;          member list locked.
;
getmemlist	ldy #ListPointer+2	Get pointer to member list.
	lda [<listrec],y
	tax
	dey
	dey
	lda [<listrec],y
	sta <listptr
	stx <listptr+2
	
	rts
	
	ENDP


;==========================================================================
;
;	ResetMember
;
;          	Find next selected member and reset its selected member.
;
;   IN:    PUSH:LONG - pointer to ListRec.
;
;  OUT:    LONG - next selected member in list, zero if no more.
;
;==========================================================================
	ENTRY ResetMember
ResetMember	PROC

theList	equ 9
TheResult	equ theList+4

	phd
	tsc
	tcd

	ldx #0	Start at top of list.
	txy

	lda #ListFirst	Get first selected member.
	jsr callDefProc
	stx <TheResult+2	Return result to caller.
	sta <TheResult

	ENTRY pop4bytes
pop4bytes		;       
;
	ldx #4
	brl pop
	
	ENDP


;==========================================================================
;
;	NextMember
;
;          	Find next selected member.
;
;   IN:    PUSH:LONG - pointer to member to start at, zero for first member.
;          PUSH:LONG - pointer to ListRec.
;
;  OUT:    LONG - next selected member in list, zero if no more.
;
;==========================================================================
	ENTRY NextMember
NextMember	PROC

theList	equ 9
member	equ theList+4
TheResult	equ member+4

	phd
	tsc
	tcd

	ldx <member	Pass member to draw.
	ldy <member+2

	lda #ListFirst	Get first selected member.
	jsr callDefProc
	stx <TheResult+2	Return result to caller.
	sta <TheResult
	ora <TheResult+2	Was a selected member found?
	beq exit	If not, all done.

	ldy #memFlag	The defProc deselected the member,
	lda [<TheResult],y	this call wants it left alone.
	ora #MEM_SEL
	sta [<TheResult],y

exit	brl pop8bytes

	ENDP


;==========================================================================
;
;	DrawMember
;
;          	Redraw a member.
;
;   IN:    PUSH:LONG - pointer to member to draw, zero for whole list.
;          PUSH:LONG - pointer to List.
;
;  OUT:    None.
;
;==========================================================================
	ENTRY DrawMember
DrawMember	PROC

theList	equ 9
member	equ theList+4

	phd
	tsc
	tcd
                
	lda #ListDrawMem	Draw the member.
	ldx <member	Pass member to draw.
	ldy <member+2

	ENTRY toDefProc
toDefProc    
	jsr callDefProc

	brl pop8bytes
	
	ENDP
;==========================================================================
;	
; 	SelectMember
;
;          	Select and scroll to a given member.
;
;   IN:    PUSH:LONG - pointer to member record.
;          PUSH:LONG - pointer to ListRec.
;
;  OUT:    None.
;
;==========================================================================
	ENTRY SelectMember
SelectMember	PROC

temp	equ 1
theList	equ 13
TheMemptr	equ theList+4

	phd
	pha
	pha
	tsc
	tcd

;
; --- First, deselect all currently selected members -------------------
;
	bra enter1
lop1	phx	Member to draw.
	pha
	pei <theList+2
	pei <theList
	_DrawMember	Draw the member in its new state.

enter1	pha	Space for result.
	pha
	pei <theList+2
	pei <theList
	_ResetMember
	pla
	plx
	bne lop1
	tay
	bne lop1

;
; --- Next, select the requested member	-----------------------------------
;
	lda <TheMemptr+1	Was a member passed?
	bne  @1
	brl  exit
@1
	ldy #memFlag	Set the member's select flag.
	lda [<TheMemptr],y
	bit #MEM_NEVER	not selectable ever?
	bne @2
	ora #MEM_SEL
	sta [<TheMemptr],y
@2
	pei <TheMemptr+2	Pass pointer to member.
	pei <TheMemptr
	pei <theList+2	Pass pointer to list.
	pei <theList
	_DrawMember	Draw the member in its new state.

;
; --- Last, scroll the selected member into view --------------------------
;
	ldy #ListPointer
	lda [<theList],y
	sta <temp
	iny
	lda [<theList],y
	sta <temp+1	Start of list

	ldy #ListMemSize
	ldx #0
lop2	inx	X is item #
	lda <temp
	cmp <TheMemptr	This the member we want to select?
	bne next2
	lda <temp+1
	cmp <TheMemptr+1
	beq gotit

next2	lda <temp
	clc
	adc [<theList],y	Step to next member
	sta <temp
	bcc lop2
	inc <temp+2
	bra lop2

gotit	phx	Pass list's new value.

	pha	Space for results
	ldy #ListCtl+2	Pass handle of list	control.
	lda [<theList],y
	pha
	dey
	dey
	lda [<theList],y
	pha
	_GetCtlValue	Current value
	lda  3,s	where I want to be
	sec
	sbc  1,s	Desired-top
	beq  no_move	same, skip it!
	bcc  move_it	Need to change, its above the top
	ldy  #ListView	Viewable members
	sbc  [<theList],y	See if showing
	beq  down_one	the one that is not showing
	bcc  no_move
move_it
	pla	Remove GetCtlValue from stack
move_it2
	ldy #ListCtl+2	Pass handle of list	control.
	lda [<theList],y
	pha
	dey
	dey
	lda [<theList],y
	pha
	_SetCtlValue

exit	pla
	pla

	brl pop8bytes
no_move
	pla	Remove GetCtlValue from stack
	pla
	bra  exit
down_one
* if the item right below the bottom, just move down one item (cheat)
	plx	GetCtlValue
	pla	Toss desired target
	inx	down one
	phx	back on stack
	bra move_it2

	ENDP
;==========================================================================
;
;	LockNDerefList
;
;          	Returns pointer to list record.
;
;   IN:    PUSH:LONG - Space for Result
;          PUSH:LONG - Pointer, handle, or resourceID of list
;          PUSH:WORD - ctl.MoreFlags (ListRefDesc)
;
;  OUT:    LONG - PointerToList
;
;==========================================================================
	ENTRY LockNDerefList
LockNDerefList	PROC

ListRefDesc	equ 5
ListRef	equ ListRefDesc+2
TheResult	equ ListRef+4

	phd
	tsc
	tcd

	lda <ListRefDesc	;pointer, handle, or rezID?
	and #$0003	;bits 0 and 1 determine what it is
	beq Pointer	;0 = pointer
	dec a
	beq Handle
;
; TheResult a resource ID
;
	pha	;long space
	pha

;	lda #rListRef
;	pha	;rez ID
;	lda <ListRef+2
;	pha
;	lda <ListRef
;	pha
*** 5-May-91 DAL
	pea rListRef
	pei <ListRef+2
	pei <ListRef
*** end DAL
	_LoadResource
	pla	;get handle to member list
	sta <ListRef
	pla
	sta <ListRef+2	

;
; TheResult is a handle to the member list - lock and deref it
;
Handle
	
	ldy #4	;lock it
	lda [ListRef],y
	ora #$8000
	sta [ListRef],y
	dey	;deref it
	dey
	lda [ListRef],y
	sta <TheResult+2	;now the result is a pointer to the 
	lda [ListRef]
	sta <TheResult	;list of member pointers
	bra Alldone
Pointer
	lda <ListRef
	sta <TheResult
	lda <ListRef+2
	sta <TheResult+2
Alldone
	pld
	plx	;return address

	pla	;clear inputs
	pla
	pla

	phx
	rts

	ENDP	
;==========================================================================
;
;	UnlockList
;
;          	Unlocks list record.
;
;   IN:    PUSH:LONG - Pointer, handle, or resourceID of list
;          PUSH:WORD - ctl.MoreFlags (ListRefDesc)
;
;  OUT:    NONE
;
;==========================================================================
	ENTRY UnlockList
UnlockList	PROC EXPORT

ListRefDesc	equ 5
ListRef	equ ListRefDesc+2

	phd
	tsc
	tcd

	lda <ListRefDesc
	and #$0003	;bits 0 and 1 determine what it is
;
; If it's a pointer, we're ok 
;
	beq listIsPointer
;
; 1 means it's a handle
;
	dec a
	beq DoHandle
;
; It must be a resource ID
;

	pha	;long space
	pha
	pea rListRef
	pei <ListRef+2
	pei <ListRef
	_LoadResource
	pla	;get handle to member list
	sta <listref
	pla
	sta <listref+2	
;
; Do Handle case
;
DoHandle
	ldy #4	;want to unlock it
	lda [listref],y
*** opt 17-Feb-92 DAL
;;;	and #$7FFF
	asl a
	lsr a
*** end 17-Feb-92
	sta [listref],y
	dey	Derefence the list control's handle.
	dey
	lda [listref],y	;now memlist has pointer to member list
	tax
	lda [listref]
	stx <listref+2
	sta <listref

listIsPointer
	pld
	plx	;return address

	pla	;clear input parameters
	pla
	pla
	phx	
	rts
	ENDP

;==========================================================================
;
;	ItemNumtoPointer
;
;          	Convert item number to pointer to that item.
;
;   IN:    PUSH:LONG - Space for Result
;          PUSH:WORD - item number of member, zero returns a nil pointer, one is first item
;          PUSH:LONG - ControlHandle
;
;  OUT:    LONG - PointerToItem
;
;==========================================================================
	ENTRY ItemNumtoPointer
ItemNumtoPointer	PROC

CtlHandle	equ 5
CtlPtr	equ CtlHandle
ItemNum	equ CtlHandle+4
TheResult	equ ItemNum+2

	phd
	tsc
	tcd
	
	ldy #2	;deref ctlHandle
	lda [CtlHandle],y
	tax
	lda [CtlHandle]
	stx <CtlPtr+2
	sta <CtlPtr

	ldy #CtlMemSize
	lda [CtlPtr],y
	pha	;size of each member

	ldy #CtlList+2
	lda [CtlPtr],y
	sta <TheResult+2
	dey
	dey
	lda [CtlPtr],y
	sta <TheResult	;Member list reference

;
; check to see if it's a super control
;
	ldy #newCtlRecord.ctlProc+2
	lda [CtlPtr],y
	bpl Pointer	;not a super control: it's a pointer


;
; It's a super control. Change list reference to a pointer by calling lockNDerefList
;
	pha	;space for result
	pha
	pei <TheResult+2
	pei <TheResult

	ldy #newCtlRecord.ctlMoreFlags
	lda [CtlPtr],y
	pha	;listRefDesc

	jsr LockNDerefList

	pla
	sta <TheResult
	pla
	sta <TheResult+2
		
;
; At this point TheResult contains a pointer to the member list
;
Pointer
	ply	;size of member (saved above)

	lda ItemNum
	bne GoOn
	lda #0	;do entire list if pointer is zero
	ldx #0
	bra End

GoOn
	dec a	;convert number to index into long table
	pha	;space for result
	pha
	pha	;multiply item number by 
	phy	;size
	_Multiply

	pla	;high word should be zero (table can only be
	ply	;64K bytes long)
		
	clc	;make pointer to item to draw
	adc <TheResult
	tax
	lda #0
	adc <TheResult+2
	
End	sta <TheResult+2
	stx <TheResult
	
	pld
	plx	;return address
	pla	;clear input parameters (6 bytes)
	pla
	pla	
	phx
	rts
	ENDP	

;==========================================================================
;
;	PointertoItemNum
;
;          	Convert item number to pointer to that item.
;
; NOTE:  We should only get valid pointers at this routine since the pointer
;        was retuned directly from the defProc and zero pointers are filtered
;        out by the calling routine.
;
;   IN:    PUSH:WORD - Space for Result
;          PUSH:LONG - Pointer to item to get number of 
;          PUSH:LONG - ControlHandle
;
;  OUT:    LONG - PointerToItem
;
;==========================================================================
	ENTRY PointertoItemNum
PointertoItemNum	PROC

Temp	equ 3	;used to store deref'd ctlHandle
return	equ Temp+4
CtlHandle	equ Return+2
CtlPtr	equ CtlHandle
ItemNumPtr	equ CtlHandle+4
TheResult	equ ItemNumPtr+4

	pha	;temp
	pha
	phd
	tsc
	tcd

	ldy #2	;deref ctlHandle
	lda [CtlHandle],y
	tax
	lda [CtlHandle]
	sta <CtlPtr
	stx <CtlPtr+2
	
	ldy #CtlMemSize
	lda [CtlPtr],y
	sta <TheResult	;size of each member (temporary storage)
;
; get address of first item in the list

	ldy #CtlList+2
	lda [CtlPtr],y
	tax
	dey
	dey
	lda [CtlPtr],y

	sta <Temp	;Address of member pointer list (item 1)
	stx <Temp+2

;
; See what listref (temp) is.  It's always a pointer unless its a super control
;	
;if its old style, we can skip list handle stuff
;

	ldy #newCtlRecord.ctlProc+2
	lda [ctlptr],y
	bpl OldStyle
;
; For super controls we need to convert listref (temp) to a pointer
;
	pha	;space for result
	pha
	
	pei <Temp+2	;list reference
	pei <Temp

	ldy #newCtlRecord.ctlMoreFlags
	lda [ctlptr],y
	pha

	jsr LockNDerefList
	
	pla
	sta <Temp
	pla
	sta <Temp+2

OldStyle
	lda <ItemNumPtr
	sec
	sbc <Temp	;don't need MSB.  Will always be 0
	
; 
; A reg contains offset to item in the list.  We divide this by the length of
; each pointer field (in TheResult) to get the item number
;
	pha	;space for remainder
	pha	;space for quotient

	pha	;divide offset by

	pei <TheResult	;length of each field
	_UDivide
	
	pla	;quotient (item number -1)
	plx	;remainder (should be zero, we don't want it)
	inc a	;convert to item number

Foundit	sta <TheResult	

	pld
	
	pla	;clear temp work area off stack
	pla

	plx	;return address

	pla	;clear input parameters (8 bytes)
	pla
	pla
	pla

	phx
	rts

	ENDP

;==========================================================================
;
;	DrawMember2
;
;          	Redraw a member.
;
;   IN:    PUSH:WORD - item number of member to draw, zero for whole list.
;          PUSH:LONG - ControlHandle
;
;  OUT:    None.
;
;==========================================================================
	ENTRY DrawMember2
DrawMember2	PROC

CtlHandle	equ 9
ItemNum	equ CtlHandle+4

	phd
	tsc
	tcd
	
	pha	;long space for pointer result
	pha
	pei <ItemNum
	pei <CtlHandle+2
	pei <CtlHandle
	jsr ItemNumtoPointer
	plx	;pointer to item
	ply
	lda #ListDrawMem
	jsr CallDefProc2
	ldx #6
	brl pop
	
	ENDP

;==========================================================================
;
;	NextMember2
;
;          	Find next selected member.
;
;   IN:    PUSH:WORD - Result Space (for number of next selected member)    
;          PUSH:WORD - Number of member to start at, zero or one for first member.
;          PUSH:LONG - Control Handle
;
;  OUT:    WORD - next selected member in list, zero if no more.
;
;==========================================================================
	ENTRY NextMember2
NextMember2	PROC

CtlHandle	equ 9
ItemNum	equ CtlHandle+4
TheResult	equ ItemNum+2

	phd
	tsc
	tcd

	pha	;long space for pointer result
	pha
	pei <ItemNum
	pei <CtlHandle+2
	pei <CtlHandle
	jsr ItemNumtoPointer
	plx	;pointer to item
	ply

	lda #ListFirst	Get first selected member.
	jsr callDefProc2

	stx <ItemNum+2	;At this point ItemNum is in pointer form
	sta <ItemNum	;Since we don't have a result yet it's ok to spill
		;into TheResult (ItemNum+2) field.
	ora <ItemNum+2	Was a selected member found?
	beq exit	If not, all done.

	ldy #memFlag	The defProc deselected the member,
	lda [<ItemNum],y	this call wants it left alone.
	bit  #MEM_NEVER
	bne  @1
	ora #MEM_SEL
	sta [<ItemNum],y
@1
;
; Convert pointer (long) to item number (word)
;
	pha	;space for result
	phx	;high byte of pointer
	pei <ItemNum	;low byte of pointer
	pei <CtlHandle+2
	pei <CtlHandle
	jsr PointerToItemNum
	pla
	sta <TheResult

exit	ldx #6
	brl pop

	ENDP

;
;
;==========================================================================
;
;	ResetMember2
;
;          	Find next selected member and reset its selected member.
;
;   IN:    PUSH:LONG - pointer to Control Handle
;
;  OUT:    WORD - next selected member in list, zero if no more.
;
;==========================================================================
	ENTRY ResetMember2
ResetMember2	PROC

CtlHandle	equ 9
TheResult	equ CtlHandle+4

	phd
	tsc
	tcd

	ldx #0	Start at top of list.
	txy

	lda #ListFirst	Get first selected member.
	jsr callDefProc2

	cmp #0	;a and x contain member pointer
	bne cont	;If zero, all done.
	cpx #0
	bne cont
	stz <TheResult	;zero if no member selected
	bra exit

;
; Convert pointer (long) to item number (word)
;
cont
	pha	;space for result
	phx	;high byte of pointer
	pha
	pei <CtlHandle+2
	pei <CtlHandle
	jsr PointerToItemNum
	pla
	sta <TheResult

exit	ldx #4
	brl pop
	
	ENDP


;==========================================================================
;	
; 	ListKey
;
;          	Jump around in the list based on keystrokes typed.
;
;   IN:    PUSH:WORD - flags
;                      bits 15-1 = reserved
;                      bit 0 = ignore first character of member string
;          PUSH:LONG - event record (16 bytes)
;          PUSH:LONG - control Handle
;
;  OUT:    None.
;
;  New call 24-Nov-90 Dave Lyons.
;
;==========================================================================

ListKey	PROC export
	import upcase

LKMaxPrefix	equ 32	;CONSTANT: max characters in one prefix
LKMaxDelay	equ 40	;CONSTANT: 2/3 of a second
***

LKFlags	equ 42	;input parameter: reserved (word)
LKEventRec	equ 38	;input parameter: event record pointer
LKControl	equ 34	;input parameter: list control handle
rtl2	equ 31
rtl1	equ 28
oldDval	equ 26
oldBval	equ 25
***
LKLocalSize	equ 25
pointer	equ 21	;scratch space for Arrow handling
theListKey	equ 19	;the key they hit
LKPtr	equ 15	;pointer to control record
theList	equ 11	;pointer to list member records
StringPtr	equ 7	;pointer to one member string
MemberSize	equ 5	;number of bytes per member record
counter	equ 3	;starts at number of elements, counts down to zero
index	equ 1	;starts at 0, counts up as we move through the list
***

	phd
	phb

	phk
	plb

	tsc
	sec
	sbc #LKLocalSize-1
	tcs
	tcd

*** ignore anything but keyDownEvt and autoKeyEvt

	lda [<LKEventRec]	;the What field is at offset 0
	cmp #keyDownEvt
	beq @isKey
	cmp #autoKeyEvt
	beq @isKey
@rejectIt	ldx #listRejectEvent	;13-May-91 DAL
	brl @exitError		;13-May-91 DAL
@isKey

*** Marge wants me to ignore control characters
	ldy #2	;offset to message field
	lda [<LKEventRec],y
	and #$00FF
*** Accept right-arrow
	cmp #$15	;right arrow?
	beq @arrowsAreOkay
	cmp #$08	;less than left arrow?
	bcc @notArrow
	cmp #$0B+1	;greater than up arrow?
	bcc @arrowsAreOkay
@notArrow
*** added 9-Mar-93 DAL -- make Clear and Delete zap the prefix
	cmp #$7f	;Delete
	beq @zap
	cmp #$18	;Ctrl-X = clear
	bne @notZap
@zap	stz LKPrefixLen
	brl @exit
@notZap
*** end 9-Mar-93 DAL
	cmp #$0020
	bcc @rejectIt
@arrowsAreOkay

*** See if we're still typing in the same control

	lda <LKControl+2
	ldx <LKcontrol
	cmp LKWhichList+2
	bne @newCtl
	cpx LKWhichList
	beq @sameCtl
@newCtl	sta LKWhichList+2
	stx LKWhichList
	stz LKPrefixLen
@sameCtl

*** See if we're still typing the same prefix string (compare tick-counts)

	sec
	ldy #oWhen
	lda [<LKEventRec],y
	sbc LKLastKeyTime
	tax
	iny
	iny
	lda [<LKEventRec],y
	sbc LKLastKeyTime+2
	bne @tooLong
	cpx #LKMaxDelay
	bcc @samePrefix

@tooLong	stz LKPrefixLen

@samePrefix	ldy #oWhen	;grab the tick count for next time
	lda [<LKEventRec],y
	sta LKLastKeyTime
	iny
	iny
	lda [<LKEventRec],y
	sta LKLastKeyTime+2

*** concatenate the new character onto the prefix string, if there's room

	lda LKPrefixLen
	cmp #LKMaxPrefix
	bcs @exit

	ldy #oMessage
	lda [<LKEventRec],y
	and #$00ff
	jsr upcase
	sta <theListKey

	jsr ListKeyArrows
	bcc @exit	;handled it (can handle Apple-arrow keys too)

	ldy #oModifiers
	lda [<LKEventRec],y
	ldx #listRejectEvent
	and #appleKey
	bne @exitError	;Apple is down--ignore the key

	lda <LKFlags	;if bit 0 set, waste first char of LKPrefixString
	lsr a
	bcc @allChars
	lda LKPrefixLen
	bne @allChars
	inc LKPrefixLen
@allChars	lda <theListKey

	ldy LKPrefixLen
	inc LKPrefixLen
	sta LKPrefixString,y

*** search for the right member to select in the list

	jsr ListKeySearch

@exit	ldx #0
@exitError	phx
	jsr LKUnlockList	;4-Jan-91 DAL
	plx
	tsc
	clc
	adc #LKLocalSize-1
	tcs
	plb
	pld
	ldy #10
	jml $e10184	;ToStrip

LKWhichList	dc.l 0	;which list are they typing in?
LKLastKeyTime	dc.l 0	;TickCount of last keypress
LKPrefixLen	dc.w 0	;number of characters currently in prefix
LKPrefixString	ds.b LKMaxPrefix+1	;the characters themselves (plus one byte we can trash)

*
* ListKeyArrows
*
* Do special stuff if they hit an arrow key.  We already know it's a
* key-down event.
*
* Input: LKEventRec (message, modifiers), LKControl, etc
*
* Output: clc if we handled the event
*
ListKeyArrows	ldy #oModifiers
	lda [<LKEventRec],y
	and #appleKey
	bne @apple

	lda <theListKey
	ldx #1	;anticipate delta-Y for Down
	cmp #10	;down arrow?
	beq @upDownArrow
	cmp #21	;right arrow = down arrow
	beq @upDownArrow
	ldx #-1	;anticipate delta-Y for Up
	cmp #11	;up arrow?
	beq @upDownArrow
	cmp #8	;left arrow?
	beq @upDownArrow
@apple	sec
	rts

*** upDownArrow (X = delta increment)

@increment	dc.w 0
@limit	dc.w 0

@upDownArrow	stx @increment

	jsr LKDerefList
*
* if the list is not empty hilight the next list element
*
	ldy #$1e	;ctlData+2
	lda [<LKPtr],y		;how many entries in this list
	bne @1
	brl @exit		;if none, forget this
@1	dec a
	sta @limit		;only move as far as possible

	pha	;space
	pea 0	;start at beginning
	pei <LKControl+2
	pei <LKControl
	_NextMember2
	pla
	beq @nothingSelected  ;A=zero-based item number
	dec a
@store	sta <index


@KeepTrying	lda <index
	bne @DownOk		;can have up or down (maybe)
	ldx @increment
	bmi @exit		;can't go backwards from here.

@DownOk	cmp @limit		;see if last item
	bcc @OkDoIt
	ldx @increment
	bpl @exit		;can't go off end

@OkDoIt	clc
;	lda <index
	adc @increment
@nothingSelected	sta <index

	pha
	pha	;space for result
	pha	;input
	pei <MemberSize	;input
	_Multiply
	pla
	ply	;high word

	clc
	adc theList
	sta pointer
	tya
	adc theList+2
	sta pointer+2		;carry!

	ldy #$0004		;see if this item can't be selected
	lda [pointer],y		;check the flags
	and #MEM_DISABLE		;see if not possible
	bne @KeepTrying

	inc <index
	pei <index
	pei <LKControl+2
	pei <LKControl
	_SelectMember2

@exit	clc
	rts


*************************************************************************
*
* ListKeySearch--Find and select the right member based on
*                LKPrefixLen and LKPrefixString
*
*************************************************************************
ListKeySearch	jsr LKDerefList

	ldy #ctlData+2
	lda [<LKPtr],y	;number of items in list
	sta counter
	beq @out
	stz index

@tryNext	inc index

	jsr GetMemStringPtr	;may move memory (result in StringPtr)

	ldy #4	;offset to member flags
	lda [<theList],y
	and #$0040
	bne @disabled

	jsr ComparePrefix
	bcc @ThisOne

@disabled	clc
	lda <theList
	adc MemberSize
	sta <theList
	bcc @1
	inc <theList+2
@1	dec counter
	bne @tryNext

	bra @selectThisOne

@ThisOne
*** Avoid flicker
***   If we have a 2 or more character prefix string and the item
***   we found is already selected, we don't need to reselect it.
	lda LKPrefixLen
	cmp #2
	bcc @selectThisOne
	ldy #4
	lda [<theList],y
	and #$0080
	bne @out	;already selected!
@selectThisOne

	pei <index
	pei <LKControl+2
	pei <LKControl
	_SelectMember2

@out	rts

*
* LKDerefList -- deref LKControl into LKPtr & set up theList
*
LKDerefList	ldy #2
	lda [<LKControl],y
	tax
	lda [<LKControl]
	sta <LKPtr
	stx <LKPtr+2	;got control record pointer

	ldy #CtlMemSize
	lda [<LKPtr],y
	sta <MemberSize

	pha
	pha	;space for result
	ldy #CtlList+2
	lda [<LKPtr],y
	pha
	dey
	dey
	lda [<LKPtr],y
	pha
	ldy #newCtlRecord.ctlProc+2
	lda [<LKPtr],y
	and #$8000	;so we have 0 for an old control
	beq @moreflags
	ldy #newCtlRecord.ctlMoreFlags
	lda [<LKPtr],y
@moreflags	pha
	jsr LockNDerefList
	pla
	sta <theList
	pla
	sta <theList+2
	rts

*
* ListKey subroutine: Unlock the list if it's referenced by handle or resource
*
LKUnlockList	ldy #2
	lda [<LKControl],y
	tax
	lda [<LKControl]
	sta <LKPtr
	stx <LKPtr+2	;got control record pointer

	ldy #newCtlrecord.ctlProc+2
	lda [<LKPtr],y
	bpl @lkUnlocked
	
	ldy #CtlList+2
	lda [<LKPtr],y
	pha
	dey
	dey
	lda [<LKPtr],y
	pha
	ldy #newCtlRecord.ctlMoreFlags
	lda [<LKPtr],y
	pha
	jsr UnlockList
	
@lkUnlocked	rts


*
* GetMemStringPtr
*
* Input:  LKPtr = pointer to list control record
*         theList = pointer to a member record
*
* Output: StringPtr = pointer to the member's string
*
* Bits 0-1 of memFlag tell us if the string is
* referenced by pointer, handle, or resource.
*
GetMemStringPtr	ldy #2
	lda [<theList],y
	sta <StringPtr+2
	lda [<theList]
	sta <StringPtr
	iny
	iny
	lda [<theList],y
	and #3
	beq @pointer
	dec a
	beq @handle

*** Must be by resource (either rCString or rPString)

	pha
	pha	;space for LoadResource result
	jsr LKGetStringType	;carry set = C Strings
	ldx #rPString
	bcc @1
	ldx #rCString
@1	phx	;resource type
	pei <StringPtr+2	;resource ID
	pei <StringPtr
	_LoadResource
	pla
	sta <StringPtr
	plx
	stx <StringPtr+2	;fall into @handle

@handle	ldy #2
	lda [<StringPtr],y
	tax
	lda [<StringPtr]
	sta <StringPtr
	stx <StringPtr+2
@pointer	rts


*
* ComparePrefix
*
* Input:  LKPrefixLen, LKPrefixString
*         StringPtr = member string
*         LKControl = list control (need to check string type!)
*
* Output: carry clear if prefix string is less than
*         or equal to the member string
*
ComparePrefix	jsr LKGetStringType
	bcs @CStrings

*** compare LKPrefixString against PString member
@PStrings	lda <LKFlags
	and #1
	tay	;start past first character if LKFlags bit 0 is set
@pchar	cpy LKPrefixLen
	bcs @pfxless
	tya
	sep #$20
	cmp [<StringPtr]
	rep #$20
	bcs @pfxgrtr
	iny
	lda [<StringPtr],y
	and #$00ff
	jsr upcase
	sep #$20
	cmp LKPrefixString-1,y
	rep #$20
	beq @pchar
	bcc @pfxgrtr

@pfxless	clc
	rts
@pfxgrtr	sec
	rts

*** compare LKPrefixString against CString member

@CStrings	lda <LKFlags
	and #1
	tay	;start past first character if LKFlags bit 0 is set
	dey
@cchar	iny
	lda LKPrefixString,y
	and #$00ff
	beq @pfxless
	lda [<StringPtr],y
	and #$00ff
	beq @pfxgrtr
	jsr upcase
	sep #$20
	cmp LKPrefixString,y
	rep #$20
	beq @cchar
	bcc @pfxgrtr
	clc
	rts

*
* LKGetStringType
*
* Input:  LKControl (list control handle)
*
* Output: carry flag = 1 for C Strings (else PStrings)
*
* (Trashes A, Y; dereferences control into LKPtr)
*
LKGetStringType	ldy #2
	lda [<LKControl],y
	sta <LKPtr+2
	lda [<LKControl]
	sta <LKPtr

	ldy #CtlFlag	;ListType (bit 0 set = C Strings)
	lda [<LKPtr],y
	lsr a
	rts

	EndP


;==========================================================================
;	
; 	SelectMember2
;
;          	Select and scroll to a given member.
;
;   IN:    PUSH:WORD - Item Number
;          PUSH:LONG - control Handle
;
;  OUT:    None.
;
;==========================================================================
	ENTRY SelectMember2
SelectMember2	PROC

temp	equ 1
CtlHandle	equ 13
ItemNum	equ CtlHandle+4

	phd
	pha
	pha
	tsc
	tcd

;
; --- First, deselect all currently selected members -------------------
;
	bra enter1
lop1	
	pha	;Member to draw.
	pei <CtlHandle+2
	pei <CtlHandle
	_DrawMember2	Draw the member in its new state.

enter1	pha	Space for result.
	pha
	pei <CtlHandle+2
	pei <CtlHandle
	_ResetMember2

	pla
	plx
	cmp #0
	bne lop1

;
; --- Next, select the requested member	-----------------------------------
;
	lda <ItemNum	;Was a member passed?
	bne  @1
	brl  exit
@1
	pha	;long space for pointer result
	pha
	
	pha	;itemNum
	pei <CtlHandle+2
	pei <CtlHandle
	jsr ItemNumtoPointer
	pla	;pointer to item
	sta <temp
	pla
	sta <temp+2

	ldy #memFlag	Set the member's select flag.
	lda [<temp],y
	bit #MEM_NEVER	not selectable ever?
	bne @2
	ora #MEM_SEL
	sta [<temp],y
@2
	pei <ItemNum
	pei <CtlHandle+2	;Pass handle to list control.
	pei <CtlHandle
	_DrawMember2	Draw the member in its new state.

;
; --- Last, scroll the selected member into view --------------------------
;
	ldx <ItemNum
	phx	Pass list's new value.

	pha	Space for results
	pei <CtlHandle+2	;Pass handle of list control
	pei <CtlHandle
	_GetCtlValue	Current value
	lda  3,s	;new value (x above)
	sec
	sbc  1,s	Desired-top
	beq  no_move	same, skip it!
	bcc  move_it	Need to change, its above the top
;
; We need to deref the CtlHandle to get to the list view field
;
	pha	;SAVE new value - current value = desired top

	lda [CtlHandle]
	sta <Temp
	ldy #2
	lda [CtlHandle],y
	sta <Temp+2
;
; NOTE:  This code was transliterated. 
;
	pla	;get desired top
	ldy  #ctlData	;offset to listView (page 11-9 Toolbox)
	sbc  [<Temp],y	See if showing
	beq  down_one	the one that is not showing
	bcc  no_move
move_it
	pla	Remove GetCtlValue from stack
move_it2		
		;Top of stack contains new value
	pei <CtlHandle+2	;Pass handle of list control
	pei <CtlHandle
	_SetCtlValue

exit	pla
	pla
	
	ldx #6
	brl pop
no_move
	pla	Remove GetCtlValue from stack
	pla
	bra  exit
down_one
* if the item right below the bottom, just move down one item (cheat)
	plx	GetCtlValue
	pla	Toss desired target
	inx	down one
	phx	back on stack
	bra move_it2

	ENDP

;==========================================================================
;	
;	NewList2
;
;         	Put a new list in a list control.
;
;   IN: 	PUSH:LONG - DrawPtrR
;   	PUSH:WORD - ListStartR
;	PUSH:LONG - ListRefR
;	PUSH:WORD - ListRefDiscriptorR
;	PUSH:WORD - ListSizeR
;	PUSH:LONG - CtlHandle
;
;  OUT:    None.
;
; Change History
;
; 4 Jan 89	Steven Glass and Konstantin Othmer
;
; Use $FFFF to indicate that a field should not change (rather than 
; zero) since zero can be valid entry for some fields.
;
; Use correct direct page and direct page equates for invalidating
; the rectangles of the control.
;
; Fixed call to GetVisStatus to pass handle in correctly.
;
; Added code to invalidate the rect of the scroll bar too.
;
; 18 May 89	Steven Glass
;
; Added code to look at current ListStart if list start is not
; supposed to change.
;
;==========================================================================
	ENTRY NewList2
NewList2	PROC
CwrkPtr	equ 1
CtlPtr	equ CwrkPtr+4
dreg	equ CtlPtr+4
rtl1	equ dreg+2
rtl2	equ rtl1+3
CtlHandle	equ rtl2+3
ListSizeR	equ CtlHandle+4
ListRefDiscriptorR	equ ListSizeR+2
ListRefR	equ ListRefDiscriptorR+2
ListStartR	equ ListRefR+4
DrawPtrR	equ ListStartR+2

	phd
	pha	;space for CtlPtr
	pha

	pha	;space for CworkPtr
	pha
	
	tsc
	tcd
;
; Deref control handle
;
	ldy #2
	lda [CtlHandle],y
	sta <CtlPtr+2
	lda [CtlHandle]
	sta <CtlPtr

	lda CtlHandle
	ldx CtlHandle+2
	jsr GetVisStatus
	
	pha	;0 = visible, 80 = invisible
	cmp #0

	bne NoFlip
	lda <CtlHandle	Pass control Handle.
	ldx <CtlHandle+2
	jsr flipVis	Make list control invisible.

;
; Do ListNew2 here (instead of in defProc) because we have all the parameters available
;
NoFlip
;
; Set the list size in the list control and the associated scroll bar.
;
	lda <ListSizeR
	cmp #$FFFF
	beq GoOn1	;branch if no change
	pha	;new data size
	ldy #CtlData+2	;set list controls new data size
	sta [CtlPtr],y
	pea $FFFF	;same view size

	ldy #CtlListBar+2	Pass handle of scroll bar.
	lda [CtlPtr],y
	sta <cwrkptr+2
	pha
	dey
	dey
	lda [CtlPtr],y
	sta <cwrkptr
	pha
	_SetCtlParams


GoOn1
;
; Set the first item viewed in the list control and the 
; associated scroll bar.
;
	lda <ListStartR	
	cmp #$FFFF
	bne store1

; Monte does not want to change the first shown item.  So lets make
; sure that the current first shown item is valid.  If it is not,
; we must back it up one.  (This only happens is the new list
; is smaller than the old list and the first shown makes the old
; last item show.

	ldy #CtlData+2	; take the data size
	lda [CtlPtr],y
	sec
	dey
	dey
	sbc [CtlPtr],y	; subtract the view size
	ldy #CtlValue
	cmp [CtlPtr],y	; and compare to the current value
	bpl GoOn2

	lda [CtlPtr],y
	dec a

*** added 5-Aug-91 DAL -- don't let this set the List Ctl value to zero!
*** (This addition makes the code more closely match the old ROM 3 patch,
*** which seemed to work fine.)
	bne @1
	inc a
@1
*** end 5-Aug-91 DAL

store1	pha
	pei <ctlHandle+2	Pass handle of scroll bar.
	pei <ctlHandle
	_SetCtlValue
GoOn2

;
; Set the ListRef in the list control.  Scroll bar untouched.
;
	ldx <ListRefR+2
	cpx #$FFFF
	beq GoOn3
	lda <ListRefR

	ldy #CtlList
	sta [CtlPtr],y
	iny
	iny
	txa
	sta [CtlPtr],y
;
; Update MoreFlags
;
	ldy #newCtlRecord.ctlMoreFlags
	lda [ctlptr],y
	and #$FFFC	
	ora <ListRefDiscriptorR
	sta [ctlptr],y

GoOn3		;update drawptr
	ldx <DrawPtrR+2
;	cmp #$FFFF
	cpx #$ffff	;was CMP, 4-Jan-91 DAL
	beq GoOn4
	lda <DrawPtrR

	ldy #ctlMemDraw
	sta [CtlPtr],y
	iny
	iny
	txa
	sta [CtlPtr],y

GoOn4
	pla	;VisStatus
	bne NoFlip1

	lda <CtlHandle	Pass control Handle.
	ldx <CtlHandle+2
	jsr flipVis	Make list control visible.

NoFlip1
;
; Make control region invalid instead of redrawing the control
;
	pha
	pha	;space for result
	_GetPort

	ldy #CtlOwner+2
	lda [CtlPtr],y
	pha
	ldy #CtlOwner
	lda [CtlPtr],y
	pha
	_SetPort

	lda CtlPtr
	clc
	adc #CtlRect
	tax
	lda CtlPtr+2
	adc #0
	pha	;pointer to rect. data structure
	phx
	_InvalRect

	ldy #CtlListBar+2	Pass handle of scroll bar.
	lda [CtlPtr],y
	sta <cwrkptr+2
	dey
	dey
	lda [CtlPtr],y
	sta <cwrkptr
	ldy #2
	lda [<cwrkptr],y
	tax
	lda [<cwrkptr]
	sta <cwrkptr
	stx <cwrkptr+2

	lda <cwrkptr
	clc
	adc #CtlRect
	tax
	lda <cwrkptr+2
	adc #0
	pha	;pointer to rect. data structure
	phx
	_InvalRect


	_SetPort	;put the port back


	pla	;remove work area from stack
	pla	;(four words)
	pla
	pla

	ldx #18
	brl pop
;
;---------------------------------------------------------------
;          Flip vis	state of list and scroll bar.
;100------------------------------------------------------------
;
temp	equ 1
;
FlipVis	phd
	phx	;Control Handle
	pha
	tsc
	tcd
	
	lda <temp
	ldx <temp+2

	jsr flipit	;a and x contain CtlHandle

	ldy #CtlListBar+2	Flip vis state of scroll bar.
	lda [<temp],y
	tax
	dey
	dey
	lda [<temp],y
	phx	Save scroll bar handle.
	pha
	jsr flipit
	pla	Return handle of scroll bar.
	plx

	ply
	ply
	pld
	rts

flipit	sta <temp	Store control handle.
	stx <temp+2

	ldy #2	Dereference control.
	lda [<temp],y
	tay
	lda [<temp]
	sta <temp
	sty <temp+2

	ldy #CtlFlag	Flip vis state.
	lda [<temp],y
	eor #$0080
	sta [<temp],y
	rts

;
;---------------------------------------------------------------
;          Get vis status of list.
;100------------------------------------------------------------
;
temp1	equ 1
;
GetVisStatus	phd
	phx	;Control Handle
	pha
	tsc
	tcd
	
	ldy #2	Dereference control.
	lda [<temp1],y
	tay
	lda [<temp1]
	sta <temp1
	sty <temp1+2

	ldy #CtlFlag	Flip vis state.
	lda [<temp1],y

	and #$0080	;zero is visible

	ply
	ply
	pld
	rts

	ENDP


;==========================================================================
;
;	SortList2
;
;            	Alphabetize list.
;
;   IN:    PUSH:LONG - address of routine to call to compare strings.
;          PUSH:LONG - Control Handle
;
;  OUT:    None.
;==========================================================================
	ENTRY SortList2
SortList2	PROC

	import upcase8

memSize	equ 1
stringType	equ memSize+2
counter	equ stringType+2
save	equ counter+2
blit	equ save+4
strg1	equ blit+4
strg2	equ strg1+4
listptr	equ strg2+4
current	equ listptr+4
gopher	equ current+2
CtlPointer	equ gopher+4
worksize	equ CtlPointer+4

CtlHandle	equ worksize+9
UseCompare	equ CtlHandle+4

ACC	equ $20
XY	equ $10


	phd	Save orginal direct	page.

	tsc
	sec
	sbc #worksize
	tcs
	tcd
;
; Handle to pointer
;
	lda [CtlHandle]
	sta <CtlPointer
	ldy #2
	lda [CtlHandle],y
	sta <CtlPointer+2

;
; --- Bubble sort member list -----------------------------------------
;
	ldy #CtlData+2	;ListSize
	lda [<CtlPointer],y
	beq toexit	There must be at least two members.
	dec a
	bne store3	There must be at least two members.
toexit	brl exit
store3	sta <counter	Total number of members less one.

	ldy #ctlMemSize	Get size of member record.
	lda [<CtlPointer],y
	sta <memSize

	ldy #CtlFlag	;ListType
	lda [<CtlPointer],y
	and #1
	sta <stringType	0 = pascal strings,	1 = null terminated.

;
; Get pointer to member list
;
	pha	;space for result
	pha
	ldy #CtlList+2	; push listref
	lda [<CtlPointer],y
	pha
	dey
	dey
	lda [<CtlPointer],y
	pha

	ldy #newCtlRecord.ctlMoreFlags
	lda [<ctlpointer],y
	pha

	jsr LockNDerefList
	
	pla
	sta <listptr
	tay
	pla
	sta <listptr+2
	tax
	tya
;
; pointer is in listptr now
;
	sec	Set pointer for easy block moves.
	sbc <memSize
	bcs store2
	dex
store2	sta <blit
	stx <blit+2

	stz <gopher	Gopher is always at	least one behind.
	stz <current
	bra enter1

lop1	lda <gopher	Next gopher index.
	clc
	adc <memSize
	sta <gopher

enter1	lda <current	Next current index.
	clc
	adc <memSize
	sta <current

	jsr compare	Is 'current' >= 'gopher'?
	bcs next1

;
; ------ Float 'current' to it's proper level -----------------------------
;
lop2	lda <gopher	Backup gopher.
	beq insert	At top of list?
	sec
	sbc <memSize
	sta <gopher

	jsr compare	Is this 'current's place?
	bcc lop2	If not, keep rising	to the top.

	lda <gopher	Insert 'current' after 'gopher'
	clc
	adc <memSize
	sta <gopher

insert	sep #ACC	Save 'current' member.
	ldx <memSize
	ldy <current
lop4	lda [<listptr],y
	pha
	iny
	dex
	bne lop4
	dey

lop3	lda [<blit],y	Move list down to make
	sta [<listptr],y	space for 'current'.
	dey
	cpy <gopher
	bne lop3

	rep #ACC
	lda <gopher
	clc
	adc <memSize
	dec a
	tay
	sep #ACC
	ldx <memSize
lop5	pla
	sta [<listptr],y
	dey
	dex
	bne lop5
	rep #ACC

	lda <current	Reset 'gopher'.
	sec
	sbc <memSize
	sta <gopher

next1	dec <counter	Any more members?
	bne lop1
;
; Done sorting.  Unlock member list.
;

	ldy #CtlList+2	Get pointer to member list.
	lda [<CtlPointer],y
	pha
	dey
	dey
	lda [<CtlPointer],y
	pha
	ldy #newCtlRecord.ctlMoreFlags
	lda [ctlpointer],y
	pha
	
	jsr unlocklist	Unlock member list.

exit	tsc	Get rid of local stack space.
	clc
	adc #worksize
	tcs

	brl pop8bytes


; = = = = = = = = =	= = = = = = = = = =	= = = = = = =
;          Compare 'current' member string
;          to 'gopher' member string.
; = = = = = = = = =	= = = = = = = = = =	= = = = = = =
;
;   IN:    listptr = pointer to first member in list.
;          current = index to a member pointer.
;          gopher =	index to another member pointer.
;
;  OUT:    Carry is	set if current member string is equal to or
;          greater than gopher member string.
;
;          Carry is	clear if current member string
;          is less than gopher member string.
;
compare	ldx <UseCompare+1	Custom compare routine?
	beq skip10

	pea 0	;4-Jan-91 DAL
	lda <gopher
	jsr pushit
	lda <current
	jsr pushit
	ldx <UseCompare+1
	lda <UseCompare
	jsl long_call
	pla	;get the result (or the dummy 0)
	ldx <useCompare+2	;bit 15 set if they want to return result on the stack
	bpl @inCarry
	lsr a	;shift bit from stack result into carry
@inCarry	rts

skip10	ldy <current	Get pointer to first string.
	lda [<listptr],y
	sta <strg1
	iny
	iny
	lda [<listptr],y
	sta <strg1+2
;
; is it a pointer, handle, or rezID?
;
	iny	;bump to member flag
	iny
	lda [<listptr],y
	and #$0003
	beq pointer
	dec a
	beq handle
;
; it's a rezID
;
	pha
	pha	;long space for result
	lda <stringType
	bne nullType
;
; load P-string
;
	lda #rPstring
	bra RezCont	
;
; load C-string
;
nullType	lda #rCstring

RezCont	
	pha
	pei <strg1+2
	pei <strg1
	_LoadResource
	pla
	sta <strg1
	pla
	sta <strg1+2
;
; it's a handle
;
handle	ldy #2
	lda [<strg1],y
	tax
	lda [<strg1]
	sta <strg1
	stx <strg1+2
;
; strg1 is now a pointer
;
pointer	ldy <gopher	;Get pointer to second string.
	lda [<listptr],y
	sta <strg2
	iny
	iny
	lda [<listptr],y
	sta <strg2+2
;
; is strg2 a pointer, handle, or rezID?
;
	iny	;bump to member flag
	iny
	lda [<listptr],y
	and #$0003
	beq pointer2
	dec a
	beq handle2
;
; it's a rezID
;
	pha
	pha	;long space for result
	lda <stringType
	bne nullType1
;
; load P-string
;
	lda #rPstring
	bra RezCont1	
;
; load C-string
;
nullType1	lda #rCstring

RezCont1	
	pha
	pei <strg2+2
	pei <strg2
	_LoadResource
	pla
	sta <strg2
	pla
	sta <strg2+2
;
; it's a handle
;
handle2	ldy #2
	lda [<strg2],y
	tax
	lda [<strg2]
	sta <strg2
	stx <strg2+2
;
; strg2 is now a pointer
;
pointer2

	LONGA OFF
	LONGI OFF
	sep #ACC+XY	8-bit registers

	lda <stringType
	bne Cstring
;
; --- Pascal strings ------------------------------------------------
;
	ldy #0
lop10	iny

	tya
	dec a
	cmp [<strg2]	End of gopher string?
	beq greater

	cmp [<strg1]
	beq lessthan	End of current string?

	lda <useCompare
	lsr a
	lda [<strg2],y
	bcc @1
	jsr upcase8
@1	sta >PascalCheat1+1	;*** modified ***
	lda <useCompare
	lsr a
	lda [<strg1],y	Grab a byte.
	bcc @2
	jsr upcase8
@2
PascalCheat1	cmp #$77

	beq lop10

	bra exit10	Carry flag is ready	for exit. 

;
; --- Null terminated string -----------------------------------------
;
Cstring	ldy #$FF
lop11	iny
	lda [<strg2],y	End of gopher string?
	beq greater
	lda [<strg1],y	Grab a byte.
	beq lessthan	End of current string?

	lda <useCompare
	lsr a
	lda [<strg2],y
	bcc @2
	jsr upcase8
@2	sta >CCheat1+1

	lda <useCompare
	lsr a
	lda [<strg1],y
	bcc @1
	jsr upcase8
@1
CCheat1	cmp #$77	;*** modified ***

	beq lop11

	bra exit10	Carry flag is ready	for exit. 

greater	sec
	bra exit10

lessthan	clc	current string < gopher string.
exit10	rep #ACC+XY	16-bit accumulator.
	LONGI ON
	LONGA ON

	rts

pushit	plx
	ldy <listptr+2
	clc
	adc <listptr
	bcc ok10
	iny
ok10	phy
	pha
	phx
	
	rts

	ENDP


;==========================================================================
;
; CompareStrings
;
; Compare two Pascal strings or GS/OS strings without regard to case or
; accents, etc.
;
;   IN:    space for result (word)
;          Flags word (0)
;            (bit 15 = compare GS/OS strings)
;          String 1 pointer
;          String 2 pointer
;
;  OUT:    result ($FFFF=S1<S2, 0=equal, 1=S1>S2)
;
;==========================================================================
CompareStrings	proc
	import UpcaseTranslate2

	phb
	phk
	plb

	phd
	tsc
	tcd

@oldD	equ 1
@oldB	equ @oldD+2
@rtl	equ @oldB+1
@strg2	equ @rtl+6
@strg1	equ @strg2+4
@flags	equ @strg1+4
@result	equ @flags+2

	stz @result
	ldy #0

*** added 17-Feb-92 DAL -- Support comparing GS/OS strings
	bit <@flags
	bmi @gsosStrings
*** end 17-Feb-92

	longa off
	longi off
	sep #$30

@loop
;	iny
;	tya
;	dec a
*** opt 17-Feb-92 DAL
	tya
	iny
*** end 17-Feb-92
	cmp [<@strg2]	;End of gopher string?
	beq @greaterOrEqual

	cmp [<@strg1]
	beq @lessthan	;End of current string?

	lda [<@strg2],y
	jsr upcase8
	sta @PascalCheat1+1
	lda [<@strg1],y	;Grab a byte.
	jsr upcase8
@PascalCheat1	cmp #$77	;*** modified ***
	beq @loop
	bcc @lessthan
	bra @greater

*** Watch it, we can come here in either 8- or 16-bit mode
@greaterOrEqual	cmp [<@strg1]
	beq @equal

@greater	inc <@result	;return result = 1
	inc <@result
@lessthan	rep #$30
	dec <@result	;return result = -1
@equal	rep #$30
	longa on
	longi on

	pld
	plb
	ldy #10	;kill 10 bytes of input parameters
	ldx #0	;no error
	jml $e10184	;ToStrip



*** added 17-Feb-92 DAL -- Compare two GS/OS strings
@gsosStrings
@gsosLoop	rep #$20
	tya
	iny

	cmp [<@strg2]	;End of gopher string?
	beq @greaterOrEqual

	cmp [<@strg1]	;End of current string?
	beq @lessThan

	sep #$20
	longa off

	iny	;one more, it's a wstring
	lda [<@strg2],y
	dey
	sep #$10
	jsr upcase8
	rep #$10
	sta @gsosCheat+1

	iny	;one more, it's a wstring
	lda [<@strg1],y
	dey
	sep #$10
	jsr upcase8
	rep #$10
@gsosCheat	cmp #$77	;*** modified ***
	beq @gsosLoop
	bcc @lessthan
	bra @greater

	longa on
*** end 17-Feb-92

	EndP


;==========================================================================
;
; UpcaseTranslate
;
; Character translation table for doing case-insensitive comparisons,
; treating foreign/accented characters as their closest equivalents.
;
; Translate:
;   a-z --> A-Z
;   $80-9F: accented characters into capital vowels
;   $AB (back quote) --> '
;   $CB, $CC, $CD: uppercase vowels (A, A, O)
;   $C7, $C8 ("<<" and ">>") --> "
;   $CA --> $20 (nonbreaking space)
;   typographical quotes and apostrophes --> plain " and '
;   $D1 (dash) --> "-"
;   $D8 (umlat y) --> 'Y'
;   other --> no change
;
;==========================================================================
;UpcaseTranslate	proc
;
;	dc.b $00,$01,$02,$03,$04,$05,$06,$07,$08,$09,$0A,$0B,$0C,$0D,$0E,$0F	;00-0f
;	dc.b $10,$11,$12,$13,$14,$15,$16,$17,$18,$19,$1A,$1B,$1C,$1D,$1E,$1F	;10-1f
;	dc.b $20,$21,$22,$23,$24,$25,$26,$27,$28,$29,$2A,$2B,$2C,$2D,$2E,$2F	;20-2f
;	dc.b $30,$31,$32,$33,$34,$35,$36,$37,$38,$39,$3A,$3B,$3C,$3D,$3E,$3F	;30-3f
;
;	dc.b $40,$41,$42,$43,$44,$45,$46,$47,$48,$49,$4A,$4B,$4C,$4D,$4E,$4F	;40-4f
;	dc.b $50,$51,$52,$53,$54,$55,$56,$57,$58,$59,$5A,$5B,$5C,$5D,$5E,$5F	;50-5f
;	dc.b $60,$41,$42,$43,$44,$45,$46,$47,$48,$49,$4A,$4B,$4C,$4D,$4E,$4F	;60-6f
;	dc.b $50,$51,$52,$53,$54,$55,$56,$57,$58,$59,$5A,$7B,$7C,$7D,$7E,$7F	;70-7f
;
;	dc.b 'A','A','C','E','N','O','U','A','A','A','A','A','A','C','E','E'	;80-8f
;	dc.b 'E','E','I','I','I','I','N','O','O','O','O','O','U','U','U','U'	;90-9f
;	dc.b $A0,$A1,$A2,$A3,$A4,$A5,$A6,$A7,$A8,$A9,$AA,$27,$AC,$AD,$AE,$AF	;a0-af
;	dc.b $B0,$B1,$B2,$B3,$B4,$B5,$B6,$B7,$B8,$B9,$BA,$BB,$BC,$BD,$BE,$BF	;b0-bf
;
;	dc.b $C0,$C1,$C2,$C3,$C4,$C5,$C6,$22,$22,$C9,$20,'A','A','O',$CE,$CF	;c0-cf
;	dc.b $D0,'-',$22,$22,$27,$27,$D6,$D7,'Y',$D9,$DA,$DB,$DC,$DD,$DE,$DF	;d0-df
;	dc.b $E0,$E1,$E2,$E3,$E4,$E5,$E6,$E7,$E8,$E9,$EA,$EB,$EC,$ED,$EE,$EF	;e0-ef
;	dc.b $F0,$F1,$F2,$F3,$F4,$F5,$F6,$F7,$F8,$F9,$FA,$FB,$FC,$FD,$FE,$FF	;f0-ff

*** This table is what Yvan Koenig suggested.  It makes good sense, except the characters
*** from $D9..FF are a mystery to me (they are nonprintable in Shaston 8).  I see no
*** disadvantage to attempting something useful, so I'm taking his word that they are
*** used for something interesting, at least in France.
;
; A2 (cents) --> C
; A7 (§) --> "B"
; AF --> zero
; B4 --> Y
; BE --> AE (ae=AE)
; BF --> zero
; CF --> CE (oe=OE)
; D0 --> 2D (hyphen)
; Mysterious translations of $D9..FF.
;
UpcaseTranslate2	proc
	dc.b $7B,$7C,$7D,$7E,$7F			;7b-7f
	dc.b 'A','A','C','E','N','O','U','A','A','A','A','A','A','C','E','E'	;80-8f
	dc.b 'E','E','I','I','I','I','N','O','O','O','O','O','U','U','U','U'	;90-9f
	dc.b $A0,$A1,$43,$A3,$A4,$A5,$A6,$42,$A8,$A9,$AA,$27,$AC,$AD,$AE,$30	;a0-af
	dc.b $B0,$B1,$B2,$B3,$59,$B5,$B6,$B7,$B8,$B9,$BA,$BB,$BC,$BD,$AE,$30	;b0-bf

	dc.b $C0,$C1,$C2,$C3,$C4,$C5,$C6,$22,$22,$C9,$20,'A','A','O',$CE,$CE	;c0-cf
	dc.b '-','-',$22,$22,$27,$27,$D6,$D7,'Y',$59,$2F,$DB,$3C,$3E,$DE,$DF	;d0-df
	dc.b $E0,$2E,$2C,$22,$E4,$41,$45,$41,$45,$45,$49,$49,$49,$49,$4F,$4F	;e0-ef
	dc.b $11,$4F,$55,$55,$55,$F5,$F6,$F7,$F8,$F9,$FA,$FB,$FC,$FD,$FE,$FF	;f0-ff

	EndP


;==========================================================================
;
;	CallDefProc
;
;          	Call list control's defproc.
;
;   IN:    a = command.
;          x = low word of parameter.
;          y = high	word of parameter.
;          theList = pointer to ListRec.
;
;  OUT:    a = low word result.
;          x = high	word result.
;
;==========================================================================
	ENTRY callDefProc
callDefProc	PROC

theList	equ 9

	pha	Space for result.
	pha
	pha	Operation number.
	phy	Parameter.
	phx
	ldy #ListCtl+2	Pass list control's handle.
	lda [<theList],y
	pha
	dey
	dey
	lda [<theList],y
	pha
	jsl ListProc	Call list defProc.
	pla	Return result.
	plx
	
	rts
	
	ENDP


;==========================================================================
;
;	CallDefProc2
;
;          	Call list control's defproc.
;
;   IN:    a = command.
;          x = low word of parameter.
;          y = high	word of parameter.
;          theList = pointer to ListRec.
;
;  OUT:    a = low word result.
;          x = high	word result.
;
;==========================================================================
	ENTRY callDefProc2
callDefProc2	PROC

CtlHandle	equ 9

	pha	Space for result.
	pha
	pha	Operation number.
	phy	Parameter.
	phx
	pei <CtlHandle+2
	pei <CtlHandle
	jsl ListProc	Call list defProc.
	pla	Return result.
	plx
	
	rts
	
	ENDP
;---------------------------------------------------------------
	
;
;            APPEND	LISTDP1.ASM
;
; 06/05/87 Dan - list_drag wasn't using the list's flag to determine the
;                selection mode and therefore the selection	mode was random.
;
; 07/07/87 Dan - fixed a typo, lda #DataSize to lda <DataSize in findFirst.
;
; 07/09/87 Dan - moved startDraw and setClip in front on hitTest in the
;                list_drag routine.  HitTest could call setNewValue which
;                restored the clip region.  Unfortunately the clip region was
;                not saved the first time hitTest was called, so an unknown
;                clip region was restored by setNewValue.
;
; 02/19/88 Dan - ListProc was locking the passed handle for	record size
;                operation which passes	an invalid handle.
;
; 03/01/88 Dan - Scrolling the list RECT didn't work when scrolled more than
;                64K pixels.
;
; 03/30/87 Dan - Color passed to SetForeColor is now smeared into 4 nibbles and
;                SetFontFlags is called	to use all 16 colors no matter the mode.
;
;==========================================================================
;
;          	ListProc.
;
;	List DefProc
;
;   IN:    PUSH:WORD - operation.
;          PUSH:LONG - operation parameter.
;          PUSH:LONG - handle of control.
;
;  OUT:    LONG - return operation parameter.
;
;==========================================================================
	ENTRY ListProc
ListProc	PROC

	phd	Save original direct page.

	tsc	Allocate some work space on the stack.
	sec
	sbc #savezpage-1
	tcs
	tcd	Switch direct page into stack.

;
; --- Handle Record	Size operation ---------------------------
;
	lda <operation
	cmp #recSize
	bne ok1

	lda #CtlListBar+4	Return size of control record needed.
	sta <result
	stz <result+2
	brl exit
;
; --- Do common setup ----------------------------------------
;
ok1	jsr LockNLoad	;Lock and derefence control's handle.

	jsr getlistRect	;crect = enclosing RECT.

	ldy #CtlMemHeight	;Break out height of members.
	lda [cptr],y
	sta <memHeight

	ldy #CtlData
	lda [cptr],y
	sta <ViewSize
	iny
	iny
	lda [cptr],y
	sta <DataSize

	ldy #CtlValue
	lda [cptr],y
	sta <DisplayTop

	ldy #CtlFlag
	lda [cptr],y
	and #1
	sta <strgType


	stz <result
	stz <result+2

	lda <operation	;Get operation number.
	bmi IntMess	;bit 15 set means it's one of ours
	cmp #19+1	;(Make sure its in range.)
	bcs SkipItAll
	asl a	;Double it for word array index.
	tax
	jsr (functions,x)
	bra SkipIntMess
IntMess
	and #$00FF	;convert for our call look up table
	asl a	;word array index
	tax
	jsr (InternalMess,x)

SkipIntMess
	sta <result
	stx <result+2

SkipItAll
	ldy #4	;Unlock the list control's handle.
	lda [theControl],y
*** opt 17-Feb-92 DAL
;;;	and #$7FFF
	asl a
	lsr a
*** end 17-Feb-92
	sta [theControl],y

;
;if listref is handle or rezID it needs to be unlocked
; if its old style, we can skip list deref stuff
;
	ldy #newCtlRecord.ctlProc+2
	lda [cptr],y
	bpl exit	;old style

	lda <operation	;Don't unlock anything if message is initcntl because
	cmp #initCntl	;nothing was locked.
	beq exit
	
	ldy #CtlList+2	;Get handle to member list.
	lda [cptr],y
	pha
	dey
	dey
	lda [cptr],y
	pha

	ldy #newCtlRecord.ctlMoreFlags
	lda [cptr],y
	pha

	jsr UnlockList
		
exit	tsc	;Allocate some work space on the stack.
	clc
	adc #savezpage-1
	tcs

	ldx #10	;Number of bytes in input parameters.

	ply	;Get original zero page.

;
; --- Move stack data down over top of parameters ---
;
	tsc
	tcd	;Make zero page where stack is.
	lda 2,s	;Move return address down on stack.
	sta 2,x
	lda 0,s
	sta 0,x
;
; --- Adjust stact for popped parameters ---
;
	tsc	;Current stack
	phx
	clc
	adc 1,s	;plus number of bytes popped
	tcs	;equals new stack.

	tya	;Switch back to original zero page.
	tcd

	rtl

functions	DC.W list_draw	Draw the list, or part.     0
	DC.W list_dragRect	Compute the drag RECT.      1
	DC.W list_test	Hit test.	        2
	DC.W list_init	Initialize.	        3
	DC.W list_disp	Dispose.	        4
	DC.W list_pos	Move indicator.	        5
	DC.W list_dragParam	Compute drag parameters.    6
	DC.W list_drag	Drag indicator.	        7
	DC.W list_action	DefProc action procedure.   8
	DC.W list_value	New value.	        9
	DC.W list_params	New parameters.	        10
	DC.W list_move	Control moved.	        11
	DC.W 0	Record size.	        12
	DC.W list_handleEvent	        13
	DC.W list_changeActivity	        14
	DC.W list_changeBounds  	        15
	DC.W list_windChangeSize	        16
	DC.W list_handleTab		        17
	DC.W list_MultiPart	        	        18
	dc.w list_ChangeWinState	        19 
	

InternalMess
	DC.W list_first	Find first selected	member. 13 now $8000
	DC.W list_new	New list.	        14 now $8001
	DC.W list_drawMem	Draw a member.	        15 now $8002
	
	ENDP


;==========================================================================
;
;	Draw1Member
;
;          	Draw list members.
;
;   IN:    theControl = handle of list control.
;          cptr = pointer of list control.
;          crect = list control's enclosing RECT.
;          parameter = pointer to member to draw,
;	   or zero to draw entire control.
;          DisplayTop = list control's value.
;
;==========================================================================
	ENTRY draw1Member
draw1Member	PROC

	ldy #CtlFlag-1	Is the control visible?
	lda [cptr],y
	bpl ok3
	rts

ok3	stz <curTextClr	Make sure colors are set first time.
	stz <curBackClr

	lda <DataSize
	beq exit2
	lda <DisplayTop	Get index of first member in display.
	bne ok1	Are there any members?
exit2	rts
ok1	jsr getmemptr	cworkptr = pointer to desired member.
;	                  	cworkptr2 = member text string pointer.
	lda <crect+y1
	sta <crect+y2

	lda <ViewSize
	cmp <DataSize
	bcc SaveIt	Is view larger than	the total members?
	lda <DataSize	Total number is less than view, use it.

SaveIt	pha	Save counter.

lop2	lda <crect+y2
	sta <crect+y1
	clc
	adc <memHeight
	sta <crect+y2

	lda <parameter+1
	beq @yes	Am I printing the entire list control?

	cmp <cworkptr+1	Current member same	as requested?
	bne @to_tonext2
	lda <parameter
	cmp <cworkptr
@to_tonext2	bne tonext2

@yes
*
* 25-Nov-90 DAL for 6.0
*
* See if it's going to do any good to call the member draw routine for this
* one.  If it's all outside the clip region, don't bother.
*
*
theClip	equ cWorkPtr2	;used and restored (needed by default draw)

	pei <theClip+2
	pei <theClip

	ldy #CtlOwner+2
	lda [<cptr],y
	sta <theClip+2
	dey
	dey
	lda [<cptr],y
	sta <theClip	;theClip = owner port so far
	ldy #$18+2	;offset to port's clip region
	lda [<theClip],y
	tax
	dey
	dey
	lda [<theClip],y
	sta <theClip
	stx <theClip+2	;stored the real clipRgn handle
	ldy #2
	lda [<theClip],y
	tax
	lda [<theClip]
	sta <theClip
	stx <theClip+2	;have clipRgn pointer

	lda <crect+y1
	ldy #6	;offset to bottom of region
	cmp [<theClip],y
	bpl @skipit
	lda <crect+y2
	ldy #2	;offset to top of region
	cmp [<theClip],y
	beq @skipit	;added--right?
	bpl @drawIt

@skipit	pla
	sta <theClip
	pla
	sta <theClip+2
	brl Next2

@drawit	pla
	sta <theClip
	pla
	sta <theClip+2
*** end of 25-Nov-90 DAL

	ldy #CtlMemDraw	Is there a custom member draw routine?
	lda [cptr],y
	bne custom
	iny
	lda [cptr],y
	beq default
;
;
; --- Custom member	draw routine -----------------------------------------
;
custom	lda #0	Space for result.
	pha
	pha
	jsr pushcrect	Pass address of member's RECT.
	pei <cworkptr+2	Pass member.
	pei <cworkptr
	pei <theControl+2	Pass handle of list	control.
	pei <theControl

	ldy #CtlMemDraw+1	Go to custom member	draw routine.
	lda [cptr],y
	tax
	dey
	lda [cptr],y
	jsl long_call
	pla	Did the routine return a pointer
	plx	to a string to print?
	bne printStrg
	tay
	bne printStrg

tonext2	brl next2

printStrg	sta <cworkptr2	Save pointer to string to print.
	stx <cworkptr2+2

;
; --- Default member draw routine -----------------------------------------
;
default	lda <crect+x1
	clc
	adc #10
	pha
	lda <crect+y2
	dec a
	dec a
	pha
	_MoveTo	Move pen for string	print.

	ldx #0	Normal color index.
	ldy #memFlag
	lda [cworkptr],y	Member must be selected and enabled to
	and #MEM_SEL+MEM_DISABLE be drawn as hilited.
	cmp #$0080
	bne store1
	inx	Member is selected,	next color index.
	inx
store1	lda <NorBackClr,x
	ldy <NorTextClr,x
	jsr setColor

	jsr eraseRect	Put down member's background color.

;	if CrunchText then
;	pha
;	pha
;	_GetCharExtra
;
;	pha	;space for [C]StringWidth
;	lda <cworkptr2+2
;	and #$00ff
;	pha
;	pei <cworkptr2
;	ldx #$AA04	;CStringWidth
;	lda <strgType	;C string?
;	bne @1
;	ldx #$A904	;StringWidth
;@1	jsl $e10000
;
;	clc	;compute right-left-1
;	lda <crect+x2
;	sbc <crect+x1
;;	sec	;carry is already set
;	sbc #10	;Oops, minus 11 (5-Aug-91 DAL)
;	cmp 1,s
;	pla
;	bcs @2	;rectangle is at least wide enough for the text
;
;	pea $ffff
;	pea 0
;	_SetCharExtra	;crunch it
;@2
;	endif
;
;	lda <cworkptr2+2
;	and #$00FF	Clear high byte.
;	pha	Pass string's address.
;	pei <cworkptr2
;
;	ldx #4+256*166	_DrawCString function number.
;	lda <strgType	Pascal or null terminated string?
;	bne ok2
;	ldx #4+256*165	_DrawString function number.
;
;ok2	jsl $E10000	Print the member's string.
;
;	if CrunchText then
;	_SetCharExtra
;	endif
*** added 12-Mar-92 DAL -- use DrawStringWidth
	lda <strgType	;bit 0 = C Strings
	and #1
	asl a
	asl a	;bits 2-3 = pstring/cstring/wstring
	ora #$6000	;ellipsis on the right
	pha	;pushed flags

	lda <cworkptr2+2
	and #$00ff
	pha
	pei <cworkptr2
; compute width for DrawStringWidth
	clc	;compute right-left-1
	lda <crect+x2
	sbc <crect+x1
;	sec	;carry is already set
	sbc #10
	pha
;	_DrawStringWidth
	ldx #$1512
	jsl $e10000
*** end 12-Mar-92

;
; ------ Check to dim member -------------------------------------
;
	ldy #memFlag	Is member disabled?
	lda [cworkptr],y
	and #MEM_DISABLE
	beq next2

	lda #dimMask
	jsr setmask

	jsr eraseRect

	lda #norMask
	jsr setmask

next2	lda <cworkptr
	ldy #CtlMemSize
	clc
	adc [cptr],y
	bcc store2
	inc <cworkptr+2
store2	sta <cworkptr

	pla	Get counter.
	dec a	Less the one just printed.
	beq exit	Done?

	pha	Save counter
	
	jsr derefMem	cworkptr2 = cworkptr->memPtr.

	jmp lop2

setmask	pea norMask>>16
	pha
	_SetPenMask
	
exit	rts

dimMask	DC.B $55,$AA,$55,$AA,$55,$AA,$55,$AA
norMask	DC.B $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF


	ENTRY eraseRect
eraseRect	
	jsr pushcrect	Pass address of 'crect'.
	_EraseRect	Shutgun member.
	rts

	ENDP


;==========================================================================
;
;          	StartDraw
;
;          	Set up for drawing.
;
;==========================================================================
;	ENTRY startDraw
startDraw	PROC

;
; --- Grab list control's color table ----------------------------
;
	ldy #CtlColor	Get pointer to color table.
	lda [cptr],y
	tax
	iny
	iny
	lda [cptr],y
	bne store2	Default color table?
	txy
	bne store2

	lda #colorTable>>16	Use default color table.
	ldx #colorTable

store2	stx <cworkptr2
	sta <cworkptr2+2

ok3	ldy #8
lop1	lda [cworkptr2],y
	tyx
	sta <FrameClr,x
	dey
	dey
	bpl lop1

	_PenNormal

	pha	Save current text writing mode.
	_GetTextMode
	pla
	sta <TextMode

	pha	Save current font flags.
	_GetFontFlags
	pla
	sta <saveFontFlags

	lda #4	Copy foreground only.

	ENTRY SetTextMode
SetTextMode
	pha
	_SetTextMode

	rts

colorTable	DC.W $0000	Black frame.
	DC.W $0000	Back normal text.
	DC.W $000F	White selected text.
	DC.W $000F	White normal background.
	DC.W $0000	Black selected background.

	ENDP


;==========================================================================
;
;	SetClip
;
;          	Set port's clip region to list control.
;
;==========================================================================
	ENTRY setClip
setClip	PROC

	pha	Save for result.
	pha
	_NewRgn
	lda 1,s	Save region handle.
	sta <oldClip
	lda 3,s
	sta <oldClip+2
	_GetClip	Copy port's original clip region.


	ENTRY setClip2
setClip2		;       
	jsr insetcrect	Subtract frame from	'crect'.

	jsr pushcrect	Set clip to list interior.
	_ClipRect

	rts
	
	ENDP


;==========================================================================
;
;	SetColor
;
;          	Set color of text and background.
;
;   	IN:    y = text	color.
;          	a = background color.
;
;==========================================================================
	ENTRY setColor
setColor	PROC

	cpy <curTextClr	Have the colors changed?
	bne setColor2
	cmp <curBackClr
	beq exit	If both the same, no need to set.

	ENTRY setColor2
setColor2		;       
	sty <curTextClr	Save new colors as current colors.
	sta <curBackClr

	pha	Set background color for normal.
	_SetSolidBackPat

	lda <curTextClr	Smear color into all four nibbles.
	asl a
	asl a
	asl a
	asl a
	ora <curTextClr
	pha
	xba
	ora 1,s
	sta 1,s
	_SetForeColor	Set text color.

exit	rts

	ENDP


;======================================================================
;
;	List_Test
;
;          	Hit test list control.
;
;======================================================================
	ENTRY list_test
list_test	PROC

	lda #$0088
	ldx #0
	rts
	
	ENDP


;======================================================================
;
;	List_Drag
;
;          	Track control list control.
;
;   IN:    cptr = pointer to list control.
;          theControl = handle of list control.
;          crect = list control's enclosing RECT.
;
;  OUT:    a = part	hit, zero if no hit.
;          x = zero.
;
;
; Change History
;
; 30 Aug 88
;
; No longer uses in-line data storage for the event record.  Instead,
; we use that stack.
;
; We also have added an additional word in the direct page area
; that we get inside the def-proc.
;
;======================================================================
	ENTRY list_drag
list_drag	PROC

*** begin addition 3-Dec-90 DAL
;
; Start by making this control Target.  To do so, we have
; to see if we are already Target.
;
; If we are, then all is well, otherwise, we just have to
; deactivate whoever and force a redraw.
;
	ldy #newCtlRecord.ctlProc+2
	lda [cptr],y
	bpl @notExtended

	ldy #NewCtlRecord.CtlMoreFlags
	lda [cptr],y
	and #$8000	;fCtlTarget
	bne @AlreadyTarget
;
; --- This control is being made Target for the first time ---
;
	lda [<cptr],y		;4-Jan-91 DAL
	and #$4000	;fCtlCanBeTarget	;4-Jan-91 DAL
	beq @CantBeTarget		;4-Jan-91 DAL

	pei theControl+2
	pei theControl
	_MakeThisCtlTarget
@CantBeTarget
@AlreadyTarget
@notExtended
*** end of 3-Dec-90 addition

	ldx #single-1	Single mode handler.
	ldy #CtlFlag
	lda [<cptr],y
	and #2	Single mode only?
	bne store1

	lda >$00C025	Get status of Open Apple and Shift keys.
	and #COMMAND+SHIFT	Get just the Command and Shift key bits.
	beq store1	Neither Command or Shift key down?
	ldx #random-1	Random mode handler.
	and #COMMAND	Was the command key	down?
	bne store1
	ldx #range-1	Shift key must be down, range handler.
store1	stx <constraint	Remember what the keys were at start.

	jsr startDraw	Set up for drawing.
	jsr getlistRect	crect = enclosing RECT.
	jsr setClip	Save current clip and set to list.

	jsr getMpoint	param = current mouse position.
	jsr hitTest	Find out which member we are over.
	bne ok1	All done if we don't start over a member.
	brl endDraw

ok1	sta <curMember

	lda <constraint
	cmp #range-1
	bne enter1
;
; --- Find hook for	shift --------------------------------------------
;
	lda #$FFFF	Find last selected or curMember.
	jsr findFirst
	sta <endRange

	lda #$0001	Find first selected	or curMember.
	jsr findFirst
	sta <startRange

	cmp <curMember	The one that's not curMember is hook.
	beq lastIsHook

	ldx <curMember	curMember is below startRange,
	stx <endRange	so force to be the endRange and hook.
	bra store2

lastIsHook	lda <endRange
store2	sta <hookMember
	bra enter1

poll	lda <lastEventCode	Was the last event a button up?
	cmp #2
	beq endDraw	If yes, then done.

	jsr getMpoint	Get current mouse position.

	jsr getlistRect	crect = list control's enclosing RECT.
	jsr insetcrect	Subtract frame from	'crect'.

	jsr hitTest	Find out which member we are over.
	tax	Over no member?
	beq poll	If not, leave current member.
	cmp <curMember	Same member?
	beq poll	Nothing to do if the same.
	sta <curMember	Remember index of member.

enter1	pei <constraint	Put handler on stack,
	rts	and go to it.

;
; --- Command and Shift not pressed handler ------------------------------
;
single	lda <curMember	Current member is the only one
	sta <startRange	that should be selected.
	sta <endRange
	bra doit

;
; --- Command key handler -------------------------------------------------
;
random	stz <startRange	Set 'no deselections' flag.
	dec <startRange
	bra doit
;
; --- Shift key handler ---------------------------------------------------
;
; ------ Find first	selected or curMember ---------------------------------
;
range	lda <curMember
	ldx <hookMember
	cmp <hookMember
	bcc store3

	txy
	tax
	tya

store3	sta <startRange
	stx <endRange
doit
	jsr ck_deselected	Check if members need to be deselected.
	bra poll

endDraw	proc export
	jsr setOldClip	Restore port's clip region.

	pei <oldClip+2	Free save region.
	pei <oldClip
	_DisposeRgn

	ldy #0	Black text on,
	lda #15	a white background.
	jsr setColor	Set the text and background color.

	lda <TextMode	Original text writing mode.
	jsr SetTextMode	Restore original text writing mode.

	pei <saveFontFlags	Restore.
	_SetFontFlags

	lda #1	Return 'drag completed' flag.
	tax
	
	rts

	EndP
	

; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = = = =
;          Get current mouse position.
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = = = =

getMpoint	proc
	tsc
	sec
	sbc #16
	tcs

	pha	space for result
	pea $0404	Take a mouse up and	desk accessory.
	pea 0000	pointer to record on stack
	inc a
	pha
	_GetNextEvent
	pla	Get rid of returned	code.

	pla	get event code
	sta <LastEventCode
	pla	ignore message
	pla
	pla	ignore time
	pla
	pla	put loc into parameter
	sta <parameter
	pla
	sta <parameter+2
	pla	ignore flags
	jsr pushparam	Convert current mouse position to local.
	_GlobalToLocal
	
	rts

	ENDP


;==========================================================================
;
;	FindFirst
;
;          	Find first or last selected member.
;
;   IN:    a = $0001 to find first selected or curMember.
;              $FFFF to find last selected or curMember.
;          cptr = pointer to list control.
;
;  OUT:    a = found member.
;          startRange = trash.
;          hookMember = trash.
;
;==========================================================================
	ENTRY findFirst
findFirst	PROC

	sta <hookMember	Remember direction.

	lda #0	First member.
	ldx <hookMember	Direction?
	bpl store1
	lda <DataSize	Total number of members.
	inc a
store1	sta <startRange

lop1	lda <startRange	Member counter.
	clc
	adc <hookMember	Plus direction.
	sta <startRange
	beq offList	Off top of list?

	cmp <DataSize	Off end of list?
	bcc ok1
	bne offList

ok1	cmp <curMember	Is this the current	member selected?
	beq exit	If yes, I've found my target.
	jsr getmemptr	Get pointer to member.

	ldy #memFlag	Check member's state.
	lda [cworkptr],y
	and #MEM_SEL
	beq lop1

exit	lda <startRange	Return found member.
	clc	Found.
	rts

offList	sec	Not found.
	rts
	
	ENDP


;==========================================================================
;
;	Ck_Deselected
;
;         	Check if some members need to be deselected.
;
;   IN:    startRange = negative if no deselections, else start of selected.
;          endRange	= last selected member in range.
;
;  OUT:    All members between startRange and endRange are selected,
;          all outside are deselected,
;          unless startRange is negative, then no member is	deselected.
;
;==========================================================================
	ENTRY ck_deselected
ck_deselected	PROC

	inc <endRange	For easy compare.

	lda #selector
	brl walkOfLife

selector	tax	Put current member index in X.

	ldy #memFlag
	lda [cworkptr],y	Get member's flag.
	pha	Save copy of original

	cpx <curMember
	bne ckSelect

	ldy <startRange	Was the command key	down?
	bmi flipit	If yes, flip the member's start.

	tax	Save member's flag.
	bit #MEM_SEL
	bne exit	If already selected, no need to redraw it.

flipit	eor #MEM_SEL	Flip the member's state.
	bra store1

ckSelect	ldy <startRange	Special 'no deselect' flag?
	bmi exit

	cpx <startRange	Inside or outside range?
	bcc outSide
	cpx <endRange
	bcc inSide

outSide	eor #MEM_SEL	Flip member's state.
	bit #MEM_SEL
	bne exit	No need to redraw if it was not selected.
	bra store1	Change member's state and redraw.

inSide	eor #MEM_SEL	Flip member's state.
	bit #MEM_SEL
	beq exit	Is member already selected?

store1	shortm	8 bit acc.
	tax	; Save memFlag
	ldy #CtlFlag	; Check the control record's flag to see if
	lda [<cptr],y	; we need to check the MEM_NEVER flag
	bit #TEST_MEM_NEVER
	beq @1

	txa	; get the memFlag back in x-reg
	
	bit #MEM_NEVER
	beq  @1	ok to store
	and #$FF-MEM_SEL	turn off selection
	tax

@1	ldy #memFlag	
	txa
	sta [cworkptr],y
	longm	16 bit acc.
	pha	save new value

	jsr getlistRect	crect = enclosing RECT.
	jsr insetcrect	Subtract frame from	'crect'.

	lda <cworkptr
	sta <parameter
	lda <cworkptr+2
	sta <parameter+2
	pla	get new flags back
	cmp  1,s	did this member change? (Owen Rubin)
	beq  exit
	
	jsr draw1Member	Redraw the member.
exit
	pla	exit point for stack cleanup
	clc
	rts
	
	ENDP


;==========================================================================
;
;	HitTest
;
;          	Hit test list.
;
;   IN:    parameter+y1 = Y coordinate to check.
;          parameter+x1 = X coordinate to check.
;          crect = list's enclosing RECT less frame.
;
;  OUT:    a = member's number, zero if none.
;          crect = member's enclosing RECT.
;          cworkptr	= pointer to member.
;
;          This routine is called only from within the defProc.
;
;==========================================================================
	ENTRY hitTest
hitTest	PROC

	pha	Space for result.
	jsr pushparam	Pass pointer to point in 'parameter'.
	jsr pushcrect	Pass list's RECT.
	_PtInRect	Test if 'parameter'	is within 'crect'.
	pla	Zero if not inside.
	bne ok2

;
; --- Not inside the list RECT -------------------------------------
;
outside	lda <parameter+y1	Get the Y coordinate.
	bmi offTop
	cmp <crect+y1	Off top?
	bcc offTop

	cmp <crect+y2
	bcs offBottom	Off bottom?


;==========================================================================
;
;	List_DragRect	compute the drag RECT
;	List_Pos	move indicator
;	List_DragParam	compute drag parameters
;	List_Action	DefProc action procedure
;	List_Params	new parameters
;	List_Move	control moved
;	List_Disp	dispose control
;	List_ChangeBounds	bounds rect of control is about to change
;	List_WindChangeSize	window control is in is being zoomed or resized
;
;==========================================================================
	ENTRY list_dragRect
list_dragRect		
	ENTRY list_pos
list_pos		
	ENTRY list_dragParam
list_dragParam		
	ENTRY list_action
list_action		
	ENTRY list_params
list_params		
	ENTRY list_move
list_move		
	ENTRY list_changeBounds
list_changeBounds  	        
	ENTRY list_windChangeSize
list_windChangeSize
	ENTRY list_ChangeWinState
list_ChangeWinState

retNull	lda #0	No hit flag.
	rts

topLimit	lda #1	Top limit, first member.
	rts

bottomLimit	lda <DataSize	Bottom limit, last member.
toexit	rts

offTop	lda <DisplayTop
	beq toexit	Value is zero if there are no members.
	dec a
	beq topLimit	Only one member?

	pha	Save member hit.
	bra common

offBottom	lda <DisplayTop	First member in display,
	clc
	adc <ViewSize	plus view size,
	cmp <DataSize	can't be larger than total size.
	beq ok3
	bcs bottomLimit	Choose last member if at bottom.

ok3	pha	Save member hit.
	lda <DisplayTop
	inc a

common	sta <DisplayTop	Set new value.
	jsr setNewValue

	jsr getlistRect	crect = enclosing RECT.
	jsr setClip2	Set clip back to list.
;
; Unlock listRef if it was a handle (locked by setNewValue)
;


	pla	Return new member.
	rts

;
; --- Point in list's RECT, find which member ---------------------------------
;
ok2	lda <DataSize	Get total number of	members.
	inc a
	sta <parameter+2	Keep here (X coordinate won't be needed).

	lda <DisplayTop	Get index of first member in display.
	beq exit	Any members?
	tay	Keep in Y
	dey

	ldx <parameter	Get the Y coordinate to check.
lop1	iny	Next member.
	cpy <parameter+2	Pass total number of members?
	bcc ok1

	lda <DataSize	Use last member.
	rts

ok1	lda <crect+y1
	clc
	adc <memHeight
	sta <crect+y1

	cpx <crect+y1
	bcs lop1

	tya	Return member index	in A.
exit	tay	Set return flag.
	rts

	EndP


setOldClip	proc export
	ldx <oldClip+2	Restore port's clip region.
	lda <oldClip

	ENTRY setClip3
setClip3	phx
	pha
	_SetClip
	rts


*******************************************************************************
*
* List_HandleEvent -- handle keystrokes and menu selections
*
* This didn't used to do anything.  3-Dec-90 DAL
*
*
* This is the little routine that handles key strokes, menu
* events and idle events.
*
*
* Inputs:
*	theControl   Control's handle
*	cptr         (Handle derefed)
*	parameter    pointer to task record
*
* Outputs:
*	retValue is true indicating we took the event
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
*
* Change History
*
* First stolen from Line Edit control defproc, 3-Dec-90 DAL.
*
****************************************************************
	entry List_HandleEvent
List_HandleEvent	jsr CheckVis
	beq @Continue
	lda #0	;???
	tax
	rts

@continue	ldy #NewCtlRecord.ctlFlag	Look at the flag and hilite
	lda [<cptr],y		bytes.  If hilite is FF
	and #$FF00		we are inactive and should
	cmp #$FF00		ignore the event.
	beq @RejectEvent

	lda [parameter]
*** Gee, this is stupid.  Removing it 8-Aug-91 DAL.
;	bne @NotNull
;
;	lda #$ffff
;	tax
;	rts
;
;@NotNull
	cmp #keyDownEvt
	beq @IsKey
	cmp #AutoKeyEvt
	beq @IsKey

@RejectEvent	lda #0
	tax
	rts

@IsKey	ldy #oMessage
	lda [parameter],y
	cmp #$0009	;TabKey
	beq @HandleTab
	cmp #$000D	;ReturnKey
	beq @RejectEvent

	pea 0
	pei parameter+2
	pei parameter
	pei theControl+2
	pei theControl
	_ListKey
	bcs @RejectEvent	;added 13-May-91 DAL
	bra @TakeIt

;-----------------------------------------------------------
;
; We have a tab, so we try to make the next control Target.
; If we are the only control, we end up ignoring the tab.
; If we are not the only control, we send the 
; ctlHandleTab message to the newly Target control
;
@HandleTab	pha	; make the next one Target
	pha
	_MakeNextCtlTarget
	pla
	plx
	bcs @byebye	;added 13-May-91 DAL--avoid hang if no target!
	cmp theControl	; is it us?
	bne @NotSame	; no
	cpx theControl+2
	beq @TakeIt	; yes

@NotSame		; no
	pha	; Call the new one.
	pha
	phx
	pha
	PushWord #ctlHandleTab
	PushLong #0
	_CallCtlDefProc
	pla
	pla

@byebye
@TakeIt	lda #$ffff
	tax
	rts


CheckVis	ldy #NewCtlRecord.ctlFlag	; make sure we are visible
	lda [cptr],y		; before we draw.
	and #$0080		;ctlInVis
	rts


*******************************************************************************
*
* List_ChangeActivity -- control is being made active/inactive
*
* This didn't used to do anything.  3-Dec-90 DAL
*
*******************************************************************************
	entry List_ChangeActivity
List_ChangeActivity	jsr DrawTheOutline
	lda #0
	tax
	rts

*
* needs to redraw the list with or without a bold outline?
*
	entry DrawTheOutline
DrawTheOutline

	ldy #newCtlRecord.ctlProc+2
	lda [cptr],y
	bpl @exit	;not extended--can't be the target

	ldy #NewCtlRecord.CtlMoreFlags
	lda [cptr],y
	and #$4000	;fCtlCanBeTarget
	bne @cont	;can't be the target
@exit	rts

@cont
	pei <cRect+x2
*** added 24-Mar-91 DAL
	pei <cRect+x1

	pha
	_GetMasterSCB
	pla
	and #$0080
	bne @640
	inc <cRect+x1
	inc <cRect+x1
@640
*** end of 24-Mar-91 DAL

	ldy #ctlListBar	Get handle to the list control's scroll bar
	lda [<cptr],y
	sta <cworkptr
	iny
	iny
	lda [<cptr],y
	sta <cworkptr+2
	
	ldy #2	Dereference the scroll handle
	lda [<cworkptr],y
	sta <cworkptr2+2
	lda [<cworkptr]
	sta <cworkptr2

	ldy #ctlRect+x2
	lda [<cworkptr2],y
	sta <cRect+x2	;change X2 to the right edge of the scroll bar

*** 24-Mar-91 DAL
	pha
	_GetMasterSCB
	pla
	and #$0080
	bne @z640
	dec <cRect+x2
@z640
*** end of 24-Mar-91 DAL

	jsr pushcrect
	pea -2
	pea -1
	_InsetRect

	pea 0
	_Set640Color
	ldy #newCtlRecord.ctlMoreFlags
	lda [cptr],y
	bmi @drawIt

	pea $f
	_Set640Color

@drawIt
***	pea 2
*** 24-Mar-91 DAL
	pha
	_GetMasterSCB
	pla
	ldx #2
	and #$0080
	bne @x640
	dex
@x640	phx
*** end of 24-Mar-91 DAL
	pea 1
	_SetPenSize

	jsr pushcrect
	_FrameRect

	pea 1
	pea 1
	_SetPenSize

	jsr pushcrect
	pea 2
	pea 1
	_InsetRect

	pla
	sta <cRect+x1
	pla
	sta <cRect+x2
	rts

*******************************************************************************
*
* List_HandleTab -- control was tabbed to
*
* This didn't used to do anything.  3-Dec-90 DAL
*
*******************************************************************************
	entry List_HandleTab
List_HandleTab

* still doesn't need to do anything?

	lda #0
	rts

	ENDP




****************************************************************
*
list_disp	PROC EXPORT
*
* If the list being disposed of uses resources for the
* member record or the string items, these must be 
* released when the control is killed.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

;
; When we get here the memList is already set up for us
; by LockNLoad.
;


;
; Check the number of elements.  If none, don't run the list.
;
	lda DataSize
	beq NoElements

;
; Now, go through the loop for each element.
;

NextElement
;
; is it a pointer, handle, or rezID?
;
	ldy #4	; look at the flags for the first member
	lda [<memlist],y
	and #$0003
	cmp #$0002
	bne NotResource
;
; it's a resource, lets release it.
;

	lda #rPString		; assume its a pstring
***	lda <strgType		; now check.
	ldx <strgType		;Was destroying rPString! (fixed 11-Jun-91 DAL)
	beq @ItsPString		; we were right
	lda #rCString		; what fools we were, should have gussed the other way
@ItsPString

	PushWord #3		; now release it.
	pha
	dey
	dey
	lda [<memList],y
	pha
	dey
	dey
	lda [<memList],y
	pha
	_ReleaseResource

NotResource
	lda memList		; Bump the memList by mem rec size
	clc
	ldy #ListMemSize
	adc [cPtr],y
	sta memList
	bcc @1
	inc memList+2
@1

	dec DataSize		; see if we're done
	bne NextElement

;
; now we can free the mem list record
;
; 8/27/90	Mensch
; Added the following 4 lines of code to insure that the list in question was created with NewControl2
; instead of CreateList. Bug was a data trashing problem due to the fact that no newCtlRecord.ctlMoreFlags
; field exists in old style controls. See code following for obvious bug...
;
	ldy #newCtlRecord.ctlProc+2	; test high byte of ctlproc field
	lda [cptr],y	
	bmi @DumpNewCtlInfo		; if negative, this is a new style control
	brl MemListNotResource	; else, no moreflags field to test! ooops
@DumpNewCtlInfo
	ldy #CtlList+2	Get pointer to member list.
	lda [cptr],y
	pha
	dey
	dey
	lda [cptr],y
	pha

	ldy #newCtlRecord.ctlMoreFlags
	lda [cptr],y
	pha

	jsr UnlockList


NoElements
	ldy #newCtlRecord.ctlMoreFlags
	lda [cptr],y
	and #$0003	;bits 0 and 1 determine what it is
	cmp #$0002
	bne MemListNotResource


	PushWord #3
	PushWord #rListRef
	ldy #CtlList+2	;Get pointer to member list.
	lda [cptr],y
	pha
	dey
	dey
	lda [cptr],y
	pha
	_ReleaseResource


MemListNotResource	lda #0
	tax
	rts


	ENDP

;==========================================================================
;
;	List_Init
;
;          	Additional initialization to list control.
;
;   IN:    parameter = pointer to ListRec.
;
;  Modified Dec 7, '88 by Konstantin Othmer
;
;   The CtlFlag bits in the NewCtlRecord were not getting set.  The documentation
; is wrong about the use of the ctlflag field.  It contains the p-string and
; c-string info, not stuff about the scroll bar.
;
;
; December 8, 1988  Konstantin  
;
;  The DataSize and ViewSize fields were not getting set.
;
; Made it so bit 2 of the ListType field controls whether the
; scroll bar goes on the outside or the inside of the listrect.  If it's a 1,
; it goes on the inside.  0 means outside (like before).
;
;
; March 9, 1989	Konstantin
;
; When ListView was other than 0, the record was not getting updated.
; 
;
; 17 Apr 89	Steven Glass, Harry Yee and James T. Mensch
;
; We validate the first member to display with respect to the view size 
; and data size.  First member <= DataSize - ViewSize.
;
;==========================================================================
	ENTRY list_init
list_init	PROC
;
; --- Initialize the control's member draw and height fields ----------------
;

	ldy #newCtlRecord.ctlProc+2
	lda [cptr],y
	bmi NewStuff
	brl OldWay
NewStuff
;
; Make this the Target control (unless the invis bit is set).
;

	ldy #NewCtlRecord.CtlFlag
	lda [<cptr],y
	and #$0080	;ctlInvis
	bne @DontMakeTarget

	ldy #NewCtlRecord.CtlMoreFlags
	lda [<cptr],y
	and #$4000	;fCtlCanBeTarget
	beq @DontMakeTarget

	_HidePen
	pei <theControl+2	; make this the Target control
	pei <theControl
	_MakeThisCtlTarget
	_ShowPen

*** MakeThisCtlTarget unlocked our handle.  Fix it.
	ldy #4
	lda [<theControl],y
	ora #$8000
	sta [<theControl],y

@DontMakeTarget

;-----------------------------------------------------------
; 
; Find out if user has own color table
;
	ldy #ListTemplate.pcount
	lda [parameter],y
	cmp #15
	bne UseDefault
	
	ldy #ListTemplate.ColorRef
	lda [parameter],y
	ldy #NewCtlRecord.ctlColor
	sta [cptr],y
	ldy #ListTemplate.ColorRef+2
	lda [parameter],y
	ldy #NewCtlRecord.ctlColor+2
	sta [cptr],y
	
;-----------------------------------------------------------
;
; Must set ctlValue and ctlData because newCtl2 does not
; set these.
;
UseDefault	ldy #ListTemplate.ListSize
	lda [parameter],y
	ldy #NewCtlRecord.CtlData+2
	sta [cPtr],y

	sta <DataSize

	ldy #ListTemplate.ListView
	lda [parameter],y
;
; if it's zero, calculate what its value by dividing the rect height by memheight
;
	bne Continue
;
; Calculate ListView (the number of items which can be seen at once) by dividing
; the height of the rectangle by listMemHeight.
;
	pha
	pha	;space for result of divide

	ldy #ListTemplate.Rect+y2
	lda [parameter],y
	ldy #ListTemplate.Rect+y1
	sec
	sbc [parameter],y
	pha	;height of list record
	ldy #ListTemplate.listMemHeight
	lda [parameter],y	;height of members
	pha
	_UDivide
	pla	;quotient
	ldy #NewCtlRecord.CtlData
	sta [cPtr],y
	sta <ViewSize
	pla	;remainder
	sec
	sbc #2

	pha
	ldy #ListTemplate.Rect+y2
	lda [parameter],y
	sec
	sbc 1,s
	ldy #NewCtlRecord.ctlRect+y2
	sta [cPtr],y
	sta <crect+y2
	pla
	bra Continue1
	
Continue	ldy #NewCtlRecord.CtlData
	sta [cPtr],y
	sta <ViewSize
Continue1
	ldy #ListTemplate.ListType
	lda [parameter],y
	ldy #NewCtlRecord.CtlFlag

	and #$00FF	; ListType only a byte value
	ora [<cptr],y	; Let's just blend things in.
	sta [<cptr],y
	
	ldy #ListTemplate.ListStart
	lda [parameter],y
	bne @1		;treat zero and 1 the same
	inc a
@1
	ldy #NewCtlRecord.CtlValue
	sta [cPtr],y

;
; Make sure that the top of list is set up so that the no extra
; lines are shown at the bottom, and that if there are fewer
; than ViewSize items, the first item is always 1.
;
	lda <DataSize
	sec
	sbc <ViewSize
	bpl @NotNeg
	lda #0
@NotNeg	inc a
	cmp [cPtr],y
	bcs @InitialValueGood
	sta [cPtr],y
	
@InitialValueGood

	ldy #ListTemplate.ListRef+2	; push these bytes on the stack
@PushLoop	lda [parameter],y		; from template
	pha
	dey
	dey
	cpy #ListTemplate.ListDraw
	bcs @PushLoop

	bra PullUm
OldWay

	ldy #ListPointer+2
lop1	lda [parameter],y
	pha
	dey
	dey
	cpy #ListDraw
	bcs lop1

PullUm

	ldy #CtlMemDraw		; pull them back off into ctl record.
lop2	pla
	sta [cptr],y
	iny
	iny
	cpy #CtlListBar
	bne lop2

;
; --- Compute the size and position of the list's scroll bar -----------------
;
;  If bit 2 of listType is set, the scroll bar goes inside the listrect, otherwise 
; it goes on the outside as before.  
;
	ldy #NewCtlRecord.CtlFlag
	lda [cPtr],y
	and #$0004	;on inside or outside?
	bne Inside

	lda <crect+x2
	dec a
	dec a
	sta <crect+x1
	stz <crect+x2	Let Control Manager	compute width.
	bra WidthCalcDone
;
; Scroll bar goes on inside of list rect.  Also we must shrink the list rect.
;
;  first clear the bit so that we don't shrink the list rect again
;
Inside
	lda [cPtr],y	;CtlFlag
	and #$FFFB	;reset bit 2
	sta [cPtr],y
;
; Get width of scroll bar
;
	pha	;space for result: high word is width
	pha	;low word is height
	_GrowSize

	ldy #ctlRect+x2
	lda [cPtr],y
	sec
	sbc 3,s	;width of scroll bar
	inc a
	inc a
	sta [cPtr],y
	lda <crect+x2
	sec
	sbc 3,s	;width of scroll bar
	sta <crect+x1
	stz <crect+x2
	pla
	pla	;clear stack

WidthCalcDone

;
; --- Create the list's scroll bar -------------------------------------------
;
	pea listAction>>16	Address of list scroll action procedure
	pea listAction	for SetCtlAction call.

	pha	Space for returned control handle.
	pha
	ldy #CtlOwner+2	Same window owner as list.
	jsr pushRec
	jsr pushcrect	Bounds RECT.
	lda #0
	pha	Title pointer.
	pha

	ldy #ctlFlag
	lda [<cptr],y
	and #$0080	Set scroll bar's visible bit to match list control's
	ora #$0003
	pha	Pass flag
*** If this is an extended list, set bit 6 in the scroll bar's ctlFlag (DAL)
	ldy #newCtlRecord.ctlProc+2
	lda [<cptr],y
	bpl @notExtended
	pla
	ora #$0040	;bit 6 = scroll bar owned by extended list control
	pha
@notExtended

; 4/14/89	Mensch
; make this get the passed list start value. It was using <displayTop which has
; not been initialized yet, it will now load out of the control record
; was	lda <DisplayTop

	ldy #NewCtlRecord.CtlValue
	lda [cPtr],y

	beq store2	Are there any members?
	dec a	Scroll bar value start at zero.
store2	pha	Value.

	pei <ViewSize	View size.
	pei <DataSize	Data size (number of items in list).

	pea $0600	DefProc, standard scroll bar.
	pea $0000

	pei <theControl+2	RefCon = list control's handle.
	pei <theControl

	lda #0
	pha
	pha	;default color table

	_NewControl	Create the list scroll bar.

	ldy #CtlListBar	Store handle of scroll bar in
	lda 1,s	list's Data area.
	sta [cptr],y
	iny
	iny
	lda 3,s
	sta [cptr],y

	_SetCtlAction	Set scroll bar's action procedure.

	rts

	ENTRY pushRec
pushRec	
	plx

	lda [cptr],y
	pha
	dey
	dey
	lda [cptr],y
	pha

	phx
	rts

	ENDP


;==========================================================================
;
;	List_Value
;
;          	Set new position in list.
;
;   IN:    cptr = pointer to control.
;          CtlValue	= new value.
;          parameter = new value.
;          parameter+2 = old value.
;
;==========================================================================
	ENTRY list_value
list_value	PROC export

	import setclip3

	jsr startDraw
	jsr setClip

;
; --- Don't let new value exceed max value ---------------------------
;
	ldy #CtlData+2	Total number of members,
	lda [cptr],y
	dey
	dey
	sec
	sbc [cptr],y	less view.
	bcs ok1	Can only have one value.

	lda #1
	bra store1

ok1	cmp <parameter
	bcs ok2

	inc a	Set new max value.
store1	sta <parameter

	ldy #CtlValue
	sta [cptr],y

ok2	ldy #CtlFlag-1	Is the control visible?
	lda [cptr],y
	bmi exit

	lda <parameter+2	Previous value,
	sec
	sbc <parameter	less new value,
	pha	equals number of member to scroll.
	bcs ok4
	eor #$FFFF	Make positive.
	inc a

ok4	pha	Space for multiply result.
	pha
	pha	Number of members to scroll.
	pei <memHeight	Times member's height in pixels.
	_Multiply
	pla	Low word is number of pixels to scroll.
	plx	High word.
	beq ok3	Is the scroll amount too large?
	lda #200	Bring scroll amount	back in range.

ok3	ply
	bpl ok5	Is the amount to be	negative?
	eor #$FFFF
	inc a

ok5	tax	Pass amount to scroll in x.
	jsr LST_scroll

	phx	Put handle of clobbered region on
	pha	stack for DisposeRgn call.

	jsr setClip3	Set clip region to clobbered region.

	lda <parameter	New first member.
	sta <DisplayTop

	stz <parameter	Set 'draw entire list' flag.
	stz <parameter+2
	jsr draw1Member	Draw the clobbered members.

	_DisposeRgn	Free clobbered region (already on stack).

exit	jsr endDraw	Terminate drawing.

;
; --- Set scroll bar's value ----------------------------------------
;
	ldy #CtlValue
	lda [cptr],y
	dec a
	pha
	ldy #CtlListBar+2
	lda [cptr],y
	pha
	dey
	dey
	lda [cptr],y
	pha
	_SetCtlValue

	rts
	
	ENDP


;==========================================================================
;
;	LST_Scroll
;
;          	Scroll list's RECT.
;
;   IN:    x = number of pixels to scroll.
;
;==========================================================================
	ENTRY LST_scroll
LST_scroll	PROC

	phx	Save amount to scroll.

	pha	Allocate clobbered region for scroll.
	pha
	_NewRgn

	jsr pushcrect	Pass pointer to RECT to scroll.
	pea 0	No horizonal scroll.
	lda 11,s	Number of pixels to	scroll vertically.
	pha

	lda 11,s	Pass region for clobbered region.
	pha
	lda 11,s
	pha
	_ScrollRect	Scroll list.

	pla	Return handle of clobbered region.
	plx

	ply	Number of pixels scrolled vertically.
	rts
	
	ENDP


;==========================================================================
;
;	ListAction
;
;          	List scroll bar action procedure.
;
;   IN:  PUSH:WORD - part code.
;        PUSH:LONG - control handle.
;
;==========================================================================
	ENTRY listAction
listAction	PROC

Ctl_ptr	equ 1
zpage	equ Ctl_ptr+4
return	equ zpage+2
control	equ return+3
part	equ control+4

	phd	Save original direct page.

	pha	Space for control pointer.
	pha

	tsc
	tcd

	lda [control]	Dereference the control's handle.
	sta <Ctl_ptr
	ldy #2
	lda [control],y
	sta <Ctl_ptr+2

*** added 4-Dec-90 DAL
*** If we're scrolling an extended list control that can be the target
*** control but isn't, make it the target control.

	ldy #CtlRefCon+2	;get handle of list control
	lda [<ctl_ptr],y
	tax
	dey
	dey
	lda [<ctl_ptr],y
	sta <ctl_ptr
	stx <ctl_ptr+2	;ctl_ptr = handle to list control

	ldy #2
	lda [<ctl_ptr],y
	tax
	lda [<ctl_ptr]
	sta <ctl_ptr
	stx <ctl_ptr+2	;ctl_ptr = pointer to list control

	ldy #newCtlRecord.ctlProc+2
	lda [ctl_ptr],y
	bpl @done	;list is not extended

	ldy #NewCtlRecord.CtlMoreFlags
	lda [ctl_ptr],y
	and #$C000	;FCtlTarget+FCtlCanBeTarget
	cmp #$4000	;FCtlCanBeTarget + not FCtlTarget
	bne @done

	lda [control]	Dereference the scroll control's handle again
	sta <Ctl_ptr
	ldy #2
	lda [control],y
	sta <Ctl_ptr+2

	ldy #CtlRefCon+2	;pass handle of list control
	lda [<ctl_ptr],y
	pha
	dey
	dey
	lda [<ctl_ptr],y
	pha
	_MakeThisCtlTarget	;Does nothing if we can't be made the target?

@done
	lda [control]	;Dereference the scroll control's handle again
	sta <Ctl_ptr
	ldy #2
	lda [control],y
	sta <Ctl_ptr+2
*** end of 4-Dec-90 addition

	ldy #CtlValue

	lda <part
	and #$7F
	beq exit
	asl a
	tax
	jmp (part_act-2,x)

part_act	DC.W act_thumb	1
	DC.W act_butt	2
	DC.W act_check	3
	DC.W act_radio	4
	DC.W act_up	5
	DC.W act_down	6
	DC.W act_pup	7
	DC.W act_pdown	8

act_up	lda [Ctl_ptr],y
	sec
	sbc #1
	bra enter1

act_down	lda #1
	bra add_value

act_pup	lda [Ctl_ptr],y	Control's current value.
	ldy #CtlData	Page up the size of	the view.
	sec
	sbc [Ctl_ptr],y
enter1	bcs ok2	Past top?
	lda #0	Reset to top.
	bra ok2

act_pdown	ldy #CtlData	Page down size of the view.
	lda [Ctl_ptr],y
	ldy #CtlValue

add_value	clc
	adc [Ctl_ptr],y	Add to current value.
	pha	Pass new value.

	ldy #CtlData+2	Make sure new value	isn't past max.
	lda [Ctl_ptr],y	Data size,
	dey
	dey
	sec
	sbc [Ctl_ptr],y	less view size equals the maximum value.
	cmp 1,s	Is new value less than max?
	bcs ok3	If yes, new value on stack is OK.
	plx	Pop the new value and use the max value.

;
; --- Set scroll bar to new value  --------------------------
;
ok2	pha	Put on stack like it is sometimes.
ok3	pei <control+2
	pei <control
	_SetCtlValue	Set list scroll bar's value.

act_thumb	lda [control]	Dereference the control's handle.
	sta <Ctl_ptr
	ldy #2
	lda [control],y
	sta <Ctl_ptr+2

	ldy #CtlValue	Get value of scroll	bar.
	lda [ctl_ptr],y
	inc a	List control values	start at 1.
	pha	Pass value to list control.
	ldy #CtlRefCon+2	Pass handle of list	control.
	lda [ctl_ptr],y
	pha
	dey
	dey
	lda [ctl_ptr],y
	pha
	_SetCtlValue	Set list's value.

act_butt
act_check
act_radio

exit	pla
	pla
	pld

	lda 0,s
	sta 6,s
	lda 2,s
	sta 8,s
	pla
	pla
	pla
	rtl
	
	ENDP


;            	APPEND LISTDP2.ASM
;
;==========================================================================
;
;	List_New
;
;          	New list.
;
;   IN:    parameter = ListRec pointer.
;          theControl = handle of list control.
;          cptr = list control pointer (locked).
;
;==========================================================================
	ENTRY list_new
list_new	PROC
;
; --- Set scroll bar's data size and value ----------------------------
;
	ldy #ListSize
	lda [parameter],y
	pha	New data size.

	ldy #CtlData+2	Set list control's data size,
	sta [cptr],y	while I'm here.

	pea $FFFF	Same view size.
	ldy #CtlListBar+2	Pass handle of scroll bar.
	lda [cptr],y
	sta <cworkptr+2
	pha
	dey
	dey
	lda [cptr],y
	sta <cworkptr
	pha
	_SetCtlParams

	ldy #ListStart
	lda [parameter],y
	ldy #CtlValue	Set list control's value
	sta [cptr],y
	tax
	beq store1
	dec a
store1	pha
	pei <cworkptr+2	Pass handle of scroll bar.
	pei <cworkptr
	_SetCtlValue

	ldy #ListPointer+2
	lda [parameter],y
	tax
	dey
	dey
	lda [parameter],y

	ldy #CtlList
	sta [cptr],y
	iny
	iny
	txa
	sta [cptr],y

	rts


; = = = = = = = = =	= = = = = = = = = = = = = = = = = = = = = = = = = = =
;          Draw list control.
;
;   IN:    theControl = handle of list control.
;          cptr = pointer of list control.
;          crect = list control's enclosing RECT.
;          parameter = index of member to draw, or zero to draw entire control.
;
; = = = = = = = = =	= = = = = = = = = = = = = = = = = = = = = = = = = = =
	ENTRY list_draw
list_draw	lda <parameter
	sta <parameter+2

	ENTRY list_drawMem
list_drawMem	ldy #CtlFlag	Check the list control's visible state.
	lda [<cptr],y 	If its invisible then it means the scroll bar  
	bit #$0080	is also invisible.
	beq ItsVisible
	rts
	
ItsVisible	jsr startDraw	Set up for drawing.

;
; --- Initialize grafPort states ----------------------------------
;

	pei <cRect+x2
	pei <cRect+x1

	pha
	_GetMasterSCB
	pla
	ldx #2
	and #$0080
	bne @640
	dex
	inc <cRect+x1
	dec <cRect+x2
@640	phx

	pea 1
	_SetPenSize

	pei <FrameClr	Outline color.
	_SetSolidPenPat	Set pen to color of	outline.

	jsr pushcrect	Pass address of 'crect'.
	_FrameRect	Draw frame of list control.

	pla
	sta <cRect+x1
	pla
	sta <cRect+x2

	jsr DrawTheOutline

	jsr setClip	Save current clip and set to list.

	lda <parameter+1	Asking for whole control?
	bne skip1

	lda <NorBackClr	Normal color index.
	ldy <NorTextClr	Normal text color.
	jsr setColor

	jsr eraseRect	Put down member's background color.
	
skip1	jsr draw1Member

	brl endDraw	Terminate drawing.

	ENDP

; = = = = = = = = =	= = = = = = = = = = = = = = = = = = = = = = = = = = =
;          Hide/Show list control's scroll bar (since this is not part of the
;          list's control rectangle we need to do things a little differently).
;
;   IN:    theControl = handle of list control.
;          cptr = pointer of list control.
;          crect = list control's enclosing RECT.
;          parameter = low word contains the flag which tells us:
;	   0 = add erased RECT to window's update region, 1 = don't
;	   2 = show the scroll bar (sent by ShowControl)
;	   3 = draw the scroll bar (sent by DrawOneCtl)
;
; = = = = = = = = =	= = = = = = = = = = = = = = = = = = = = = = = = = = =
list_MultiPart	PROC

	ldy #ctlListBar	Get handle to the list control's scroll bar
	lda [<cptr],y
	sta <cworkptr
	iny
	iny
	lda [<cptr],y
	sta <cworkptr+2
	
	ldy #2	Dereference the scroll handle
	lda [<cworkptr],y
	sta <cworkptr2+2
	lda [<cworkptr]
	sta <cworkptr2
	
	lda <parameter
	cmp #3+1	Check to make sure we're not out of range
	bcs NotValid
	asl a
	tax
	jsr (table,x)
	
NotValid	rts
	
table	DC.W EraseScroll1	0 erase and add scroll ctl's rect to window's update region
	DC.W EraseScroll2	1 erase and don't add to update region
	DC.W ShowScroll	2 show the scroll control
	DC.W DrawScroll	3 this message is sent by DrawOneCtl
	
;-----------------------------------------------------------------
;
EraseScroll1	
EraseScroll2
	PushLong <cworkptr
	lda <parameter
	beq HideIt
	_EraseControl
	rts

HideIt	_HideControl
	rts
	
	
ShowScroll	PushLong <cworkptr
	_ShowControl
	rts
	
DrawScroll	ldy #ctlFlag	Lets see if the scroll bar is visible first before
	lda [<cworkptr2],y	we draw it
	and #$0080
	bne notVisible
	
	PushLong <cworkptr
	_DrawOneCtl
	
notVisible	rts
	
	ENDP

;==========================================================================
;
;	SetNewValue
;
;          	Set new value for list.
;
;   IN:    a = list's new value.
;
;==========================================================================
	ENTRY setNewValue
setNewValue	PROC
	
	pha
	pei <theControl+2
	pei <theControl
	
	dec a	Scroll bar needs one less.
	pha
	ldy #CtlListBar+2	Pass handle of scroll bar.
	jsr pushRec

	jsr setOldClip	Restore port's clip region.

	_SetCtlValue
	_SetCtlValue


	ENTRY LockNLoad
LockNLoad		       
	ldy #4	Lock the list control's handle.
	lda [theControl],y
	ora #$8000
	sta [theControl],y
	dey	Derefence the list control's handle.
	dey
	lda [theControl],y
	sta <cptr+2
	lda [theControl]
	sta <cptr

	lda <operation	If message is initCntl then none of the control rec fields
	cmp #initCntl	have been setup yet so just skip this stuff.
	beq ctlListOldWay	We don't need them to be setup for initcntl anyways.
	
	ldy #CtlList+2	Get pointer to member list.
	lda [cptr],y
	sta <memlist+2
	dey
	dey
	lda [cptr],y
	sta <memlist

	ldy #newCtlRecord.ctlProc+2
	lda [cptr],y
	bpl ctlListOldWay
;
; It's a new control record, the ctlList field can be a pointer, handle, or resource
; ID.  
;
	pha	;space for result
	pha
	
	pei <memlist+2
	pei <memlist

	ldy #newCtlRecord.ctlMoreFlags
	lda [cptr],y
	pha

	jsr LockNDerefList

	pla
	sta <memlist
	pla
	sta <memlist+2
ctlListOldWay
	rts

	ENDP


;==========================================================================
;
;	List_First
;
;          	Find first selected member.
;
;==========================================================================
	ENTRY list_first
list_first	PROC

	lda #matchMember
	jsr walkOfLife
	lda <cworkptr	Return pointer to member.
	ldx <cworkptr+2
	bcs exit

	lda #0
	tax
	
exit	rts

matchMember	lda <parameter+1
	bne ckMatch

	ldy #memFlag	Is this member selected and enabled?
	lda [cworkptr],y
	and #MEM_SEL
	beq exit1	If not, keep looking.

	lda [cworkptr],y	Clear member's select bit.
	and #$FF7F
	sta [cworkptr],y

	sec	Quit walk.
	rts


ckMatch	cmp <cworkptr+1	Is this the starting place?
	bne exit1
	lda <parameter
	cmp <cworkptr
	bne exit1

	stz <parameter+1	Set found flag.

exit1	clc	Continue walk.
	rts
	
	ENDP


;==========================================================================
;
;	WalkOfLife
;
;          	Walk the list and perform some action.
;
;   IN:    a = address less one of routine to call for each	member.
;          cptr = pointer to list control.
;
; To Routine:
;          cworkptr	= pointer to member.
;          cworkptr2 = member.
;          a = member index.
;
; Routine out:
;          Carry set to quit walk.
;          Carry clear to continue walking list.
;
;  OUT:    Carry set if quit by routine.
;          Carry clear if entire list walked.
;          a = index of member reached when quit.
;
; Further Note:
;
; The routine to be called expects the index of the item being called for
; in the a-reg when it is called.
;
;
; Change History
;
; 30 Aug 88	Steven Glass
;
; Make this code work in ROM.  (It was self modifying).
;
; 17 Apr 89	Harry Yee
;
; We were looping one too many times. If counter = DataSize then we need to exit
; the loop otherwise calling GetMemPtr again will access a member that does not
; exist.
;
;==========================================================================
	ENTRY walkOfLife
walkOfLife	PROC
	DefineStack
Counter	word
ReturnAdr	word
RoutineAdr	word

	dec a	subtract 1
	pha	and put on stack (stays here till end).

	lda #0	First member.
	bra enter1

lop1	pha	Save counter.

	jsr CallRoutine

	pla	Get counter.
	bcs exit2	Did routine want to	quit early?
	
	cmp <DataSize
	beq exit	Done walking entire list.
	
enter1	inc a	Get pointer to next	member index.
	pha	Save counter.
	jsr getmemptr	cworkptr = pointer to next member.
	pla	Restore member counter.

	cmp <DataSize	End of list?
	beq lop1	
	bcc lop1

exit	clc
exit2	ply	Clear routine address of stack.
	rts


CallRoutine	tax
	lda RoutineAdr,s	Get routine adr off stack
	pha	put it on and 
	txa
	rts	rts to it.


	ENDP


;
;            	APPEND LISTUTIL.ASM
;
;==========================================================================
;
;	InsetCRect
;
; 3/1/88 Dan - Getmemptr didn't compute the member pointer correctly.
;
;==========================================================================
	ENTRY insetcrect
insetcrect	PROC

	jsr pushcrect
	pea 2
	pea 1
	_InsetRect
	rts
	
	ENDP


;==========================================================================
;
;	GetMemPtr
;
;          	Compute pointer to member.
;
;   IN:    a = index to member, 1 is the first member, and a must not be zero.
;          cptr = pointer to list control.
;
;  OUT:    cworkptr	= address of member.
;          cworkptr2 = member.
;
;==========================================================================
	ENTRY getmemptr
getmemptr	PROC

	pha	Space for result.
	pha
	dec a
	pha	Index number times,
	ldy #CtlMemSize
	lda [cptr],y
	pha	size of member record.
	_Multiply
	pla	Add index to start of member list.
	clc
	adc <memlist
	sta <cworkptr
	pla
	adc <memList+2
	sta <cworkptr+2


	ENTRY derefMem
derefMem		       

	ldy #2	Dereference pointer	to member.
	lda [cworkptr],y
	sta <cworkptr2+2
	lda [cworkptr]
	sta <cworkptr2	cworkptr2 = member.

	ldy #newCtlRecord.ctlProc+2
	lda [cptr],y
	bpl done	;old control record.  Do nothing

;
; cworkptr2 is either a pointer, handle, or rezID of item
;
	ldy #4	;reserved flag word 4th byte
	lda [cworkptr],y	;get flag byte
	and #$0003	;keep only ptr, handle, rez info
	beq done	;its a pointer
	dec a
	beq Handle
;
; cworkptr2 is a rez ID.  See what kind and load resource
;
	pha
	pha	;long space for result
	
	ldy #CtlFlag
	lda [cptr],y
	and #1

	bne nullType
;
; load P-string
;
	lda #rPstring
	bra RezCont	
;
; load C-string
;
nullType	lda #rCstring

RezCont	
	pha
	pei <cworkptr2+2
	pei <cworkptr2
	_LoadResource
	pla
	sta <cworkptr2
	pla
	sta <cworkptr2+2
;
; Lock and deref handle
;

Handle	ldy #4
	lda [cworkptr2],y
;
; Don't lock it for now
;	ora #$8000
	sta [cworkptr2],y	;lock it
	ldy #2
	lda [cworkptr2],y
	tax
	lda [cworkptr2]
	sta <cworkptr2
	stx <cworkptr2+2
done
	rts
	
	ENDP


;==========================================================================
;
;	GetListRect
;
;          	Get list control's enclosing RECT.
;
;==========================================================================
	ENTRY getlistRect
getlistRect	PROC export

	ldy #CtlRect+x2
	ldx #x2
lop1	lda [cptr],y
	sta <crect,x
	dey
	dey
	dex
	dex
	bpl lop1

	rts
	
	ENDP


;==========================================================================
;
;	PushParam
;
;          	Put address of direct page location on stack.
;
;==========================================================================
	ENTRY pushparam
pushparam	PROC export

	lda #parameter	Push address of 'paramter' on stack.
	bra pushzpage

	ENTRY pushcrect
pushcrect		       
	lda #crect	Push address of 'crect' on stack.

	ENTRY pushzpage
pushzpage		       
	plx	Get return address.

	pea 0	Direct page always in bank zero.
	pha	Save index.
	tdc	Get direct page.
	clc
	adc 1,s	Add index to direct	page.
	sta 1,s

	phx	Put return address back.
	
	rts
	
	ENDP


;==========================================================================
;	
;	Long_Call
;
;   IN:    x = middle WORD (bits 8-23) of address of destination routine.
;          a = low WORD of address of destination routine.
;
;  OUT:    Calling this routine is the same as:
;
;                jsl   (ax)
;
;          where the low byte in 'a' is	the low byte of the	destination
;          address,	and x = the next 2 bytes of the destination address.
;
;==========================================================================
	ENTRY long_call
long_call	PROC

	phx
	phb
	dec a	;Subtract one from address to call.
	sta 1,s
	
	rtl	;When the routine called returns, it
		;will return to the routine that called
		; 'long_call'.
	ENDP

	END

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/ListMgr/lm.loader.asm b/IIGS.601.SRC/GSToolbox/ListMgr/lm.loader.asm
new file mode 100644
index 0000000..71279d0
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/ListMgr/lm.loader.asm
@@ -0,0 +1 @@
+	include 'all.macros'
	include 'e16.locator'


LMLoader	PROC

True	equ $FFFF
False	equ 0

MyHandle	equ 0
MyPointer	equ 4
Ptr	equ 8


TheUserID	equ $401C




;-----------------------------------------------------------
;
; Brk if necessary
;
	lda >$C062
	and #$0080
	beq @NoBreak
	brk 17
@NoBreak



;-----------------------------------------------------------
;
; Set dbr
;

	phk
	plb


;-----------------------------------------------------------
;
; Unload last patch
;

	pha	; space for result
	PushWord #TheUserID
	PushWord #0
	_UserShutdown

	pla

;-----------------------------------------------------------
;
; Load the new one
;


	pha	; space for dir page stack size
	pha	; space for addr of	dir page stack seg
	pha	; space for starting addr
	pha
	pha	; space for user id
	PushWord #TheUserID	; user id
	PushLong #TheName	; ptr to path name
	PushWord #True
	_InitialLoad
	bcs Die

	pla	; ignore userid
	pla	; put starting address
	sta TableAddress
	pla
	sta TableAddress+2
	pla	; ignore dir page
	pla	; ignore dir page size


;-----------------------------------------------------------
;
; Install
;
	PushWord #0	; system call
	PushWord #$001C	; install the patch
	PushLong TableAddress
	_SetTSPtr
	
	_SetDefaultTPT

;-----------------------------------------------------------
;
; Quit
	_Quit QuitParams


QuitParams	DC.L 0
	DC.W 0


TheName	str '1/tool028'

TableAddress	DS.B 4





Die		; 
	pha
	PushLong #ErrorString
	_SysFailMgr

ErrorString	str 'Could not load.  Error was $'

	ENDP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/ListMgr/makefile b/IIGS.601.SRC/GSToolbox/ListMgr/makefile
new file mode 100644
index 0000000..a6e35bf
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/ListMgr/makefile
@@ -0,0 +1 @@
+### Dependencies for building List Manager (Tool028) ###

Tool028		Ä	ListMgr.asm.obj
	Linkiigs 	ListMgr.asm.obj	¶
	-o Tool028 -t TOL
	if {AutoDuplicate} == 1
		DuplicateIIGS -y -mac Tool028 :
	End
		

ListMgr.asm.obj		Ä		ListMgr.asm
	Asmiigs	ListMgr.asm


LM.LOADER		Ä		LM.LOADER.asm.obj
	linkiigs  LM.LOADER.asm.obj -o LM.LOADER

LM.LOADER.asm.obj		Ä		LM.LOADER.asm
	asmiigs LM.LOADER.asm
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/MIDISynth/Buffer.aii b/IIGS.601.SRC/GSToolbox/MIDISynth/Buffer.aii
new file mode 100644
index 0000000..56da709
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/MIDISynth/Buffer.aii
@@ -0,0 +1 @@
+;-------------------------------------------------------
;
;  midi.buffer.aii
;
;  This module contains routines to perform buffering
;  of MIDI input and output characters.
;

	INCLUDE 'all.macros'
	INCLUDE 'ns.equ'
	INCLUDE 'Note.Macros'


	

	
*-------------------------------------------------------
*
*  Read the input buffer while trying to build a Midi
*   data packet.

* Input:  <InBufStart, <InBufIndex

* Output: 	A reg has status byte (zero flag if not enough data in
*	the input buffer to make a packet)

*	Mpacket has the complete packet string
*
*
*-------------------------------------------------------


	IMPORT ChanQueue
	IMPORT KeyQueue
	IMPORT VolQueue
	IMPORT CmdQueue
	IMPORT TrackQueue
	IMPORT FillBuffer
	IMPORT ClockMgr
	IMPORT StartMgr
	IMPORT StopMgr
	IMPORT ContMgr
	IMPORT SeqOutState

	IMPORT MidiError



GetPacket	PROC EXPORT

	EXPORT PlaySeq
	EXPORT EndSeq
	EXPORT PacketIN
	EXPORT RecBuffFull

	lda <InPortEnable
	bne NextMIDI1
	jmp noPacket	; return if Midi IN not enabled


NextMIDI1	lda MidiError
*	beq NextMIDI

*	brk $f1		; @@@@

NextMIDI	jsl >MidiInputPoll
	
	lda <InBufStart
	cmp <InBufIndex
	bne @1
	jmp noPacket	; Buf Start = Buf End

@1	tay
	inc A		; a reg still has InBufStart
	and #BufLen-1	; circular buffer
	sta <InBufStart	; point to next byte for later
	lda [InBuffer],y		; get data from buffer
	and #$00FF		; make byte

	bit #$0080		; is it status or real-time byte?
	beq Databyte
	
	jmp statusbyte	; yes


*  MIDI data byte

Databyte	ldx <PacketStatus 	; are we discarding 1st partial packet?
	beq GetPacket	; yes, check buffer for status byte
		
	ldy <PacketRemain 	; has packet exceeded expected length?
	bne storedata	; no, insert in buffer


*  insert implied status byte into running-status packet

	ldy <PacketLength 	; did last packet have data bytes?
	bne @1
	jmp SomeError	; no, this can't be running status

@1	pha		; save data byte
	txa		; present status = previous status
	tay		; save status byte in Y
	asl a		; form index for MidiLengths table
	tax
	lda MidiLengths-$100,x
	bmil realtime 	; send real time data to application

	sty <PacketStatus 	; save new status byte
	sta <PacketLength 	; save # of bytes in new packet
	sta <PacketRemain 	; save # of bytes remaining in packet
	
	jsr saveMbyte

	pla		; data byte

*  save the data byte

storedata
	dec <PacketRemain
	tay
	jsr saveMbyte	; save it
	
	lda <PacketRemain 	; is this packet finished?
	bne GetPacket	; get more data for this packet


*  End of packet received. Call user Call-back

	clc
PacketIN	jsl piRTL		; call user call-back routine
	bcsl NextMIDI	; caller wants to discard this message

* Now check if we can use this packet

packetdone	lda <MMode
	bpl @1		; MIDI mode is either Omni or Multi

	  lda <Mpacket
	  and #$000F
	  cmp <BasicCh	; check Poly channel
	  bnel NextMIDI	; ch does NOT match, so ignore this packet

@1	lda <Seq_Status
	bpl usePack		; no 'key wait'

	  lda <Mpacket
	  and #$00F0
	  cmp #Midi_Note_Off
	  beq @2

	  cmp #Midi_Note_On
	  bnel Queue_only	; still stay in 'key wait'

	  lda <Mpacket+4	; is it 'note on' with v=0?
	  bnel Queue_only	; no, still stay in 'key wait'

@2	    lda <Seq_Status
	    and #$FFFF-SS_KStart	; clear 'key wait' flag
	    sta <Seq_Status
	    jmp Queue_only	; start recording packets next time



usePack	lda <Seq_Status
	bnel Queue_only	; either 'count off' or 'key wait'

	lda <SeqFlags
	bit #F_Record
	beql Queue_only	; we're not recording
	
* Put packet into the Queue AND Rec Buffer


@1	lda <RecTrack
	bpl @2
	jmp Queue_only	; no tracks set for recording

* make sure there's enough room in Rec buffer for 1 Seq Item

@2	lda <RecBufEnd
	sec
	sbc <RecBufStart
	cmp #11		; 8 bytes for Seq Item + EOS
	bge GoRec

	lda <RecBufEnd+2
	sbc <RecBufStart+2
	bne GoRec

RecBuffFull	jsl piRTL		; call user call-back routine
	jmp Queue_only	; Rec Buffer is FULL!

GoRec	ldy #00
	lda <RecTrack
	sta [RecBufStart],y	; Track number
	iny


noQuant	lda <Timer+2
	sta [RecBufStart],y	; hi byte first
	iny
	lda <Timer		; record time in rec buffer
	sta [RecBufStart],y

saveStatus	iny
	iny

	lda <PacketLength
	sta [RecBufStart],y	; record packet length
	iny

	ldx <QueuePtr
	lda <Mpacket
	pha		; save for seq
	and #$00F0
	sta CmdQueue,x	; queue status msg

	lda <MMode
	bne @1		; must be Multi mode

	pla
	and #$00F0		; get message part
	ora <BasicCh	; force channel to Basic
	bra @2

@1	pla
	and #$00FF
@2	sta [RecBufStart],y	; record msg/ch number
	and #$000F
	sta ChanQueue,x	; queue ch number
	iny

	lda <Mpacket+2
	sta KeyQueue,x
	sta [RecBufStart],y	; 1st data byte
	iny

	lda <Mpacket+4
	beq @35		; can't be noteOn, v=0


	lda CmdQueue,x
	cmp #$90
	bne @34		; not noteOn

	lda <Mpacket+4	; velocity
	clc
	adc <VelOffset
	cmp #$0080
	blt @35
	lda #$007F		; clip overflow
	bra @35

@34	lda <Mpacket+4
@35	sta VolQueue,x
	sta [RecBufStart],y	; 2nd data byte
	iny
	
	lda #$FFFF
	sta [RecBufStart],y	; end of seq
	
	lda <RecBufStart
	clc
	adc #ItemSize	; number of bytes per seq item
	sta <RecBufStart
	lda <RecBufStart+2
	adc #00
	sta <RecBufStart+2

	bra MidiUser

* Put packet into the Queue


Queue_only
	ldx <QueuePtr
	lda <Mpacket
	and #$00F0
	sta CmdQueue,x


	lda <MMode
	bne @1		; must be Multi mode

	lda <BasicCh	; use basic channel in Omni mode
	bra @2
	
@1	lda <Mpacket
	and #$000F
@2	sta ChanQueue,x

	lda <Mpacket+2
	sta KeyQueue,x

	lda <Mpacket+4
	beq @35		; can't be noteOn, v=0

	lda CmdQueue,x
	cmp #$90
	bne @34		; not noteOn

	lda <Mpacket+4	; velocity
	clc
	adc <VelOffset
	cmp #$0080
	blt @35
	lda #$007F		; clip overflow
	bra @35

@34	lda <Mpacket+4
@35	sta VolQueue,x

MidiUser	inx
	inx
	txa
	and #QueueSize-1
	cmp <QueueOut
	beq SkipQ		; Queue is FULL!

	sta <QueuePtr	; Queue points to next open slot

SkipQ	jmp NextMIDI	; keep pulling until queue is empty


noPacket	lda #00		; flag as packet incomplete
	rts



piRTL	RTL


*  MIDI status or real-time byte

statusbyte	
	tay		; save status byte in Y
	asl a		; form index for MidiLengths table
	tax
	lda MidiLengths-$100,x
	bmi realtime 	; send real time data to application

	sty <PacketStatus 	; save new status byte
	sta <PacketLength 	; save # of bytes in new packet
	sta <PacketRemain 	; save # of bytes remaining in packet
	
	jsr saveMbyte
	
	lda <PacketRemain
	beq @1		; must be only one byte packet
	jmp GetPacket	; check buffer for more

@1	jmp packetdone




*  execute real-time MIDI commands

realtime	cpy #MIDITiming
	bne @1
	jsr ClockMgr
	bra @3

@1	cpy #MIDIStop
	bne @2
	jsr StopMgr
	bra @3

@2	cpy #MIDIStart
	bne @31
	jsr StartMgr
	bra @3

@31	cpy #MIDICont
	bne @3
	jsr ContMgr

@3	jmp GetPacket



SomeError
	lda #0
	sty <PacketStatus
	sta <PacketLength
	lda #1
	sta <PacketRemain
	jmp GetPacket




saveMbyte
	lda <PacketLength 	; # of bytes in packet
	sec
	sbc <PacketRemain 	; # of bytes remaining in packet
	asl A
	tax
	tya
	sta <Mpacket,x	; the byte to save is in y reg
	rts







*******************************************
*
* PlaySeq - Dump sequence into Queue
*
*******************************************

	EXPORT GotItem

	IMPORT PlayTrack
	IMPORT TChanList


PlaySeq
	lda <SeqFlags
	bit #F_Play
	bne @1		; play is ON
	rts

@1	lda <Seq_Status
	beq playNext	; neither 'count off' or 'key wait'
	rts
	
EndSeq	jsl DummyEnd
	lda <SeqFlags
	and #notF_Play
	sta <SeqFlags

noSeqPacket
	rts
DummyEnd	rtl

playNext	ldy #00
	lda [PlayBufStart],y
	cmp #$FFFF
	beq EndSeq		; end of sequence

	and #$000F		; 16 tracks
	sta <TrackSav	; may be needed later
	asl A		; tables are in WORDs
	sta TrackSav2	; may be needed later

* First, check if time ² our clock

	iny
	lda [PlayBufStart],y	; test hi byte first
	and #$00FF
	cmp <Timer+2
	bgt noSeqPacket
	
	iny
	lda [PlayBufStart],y
	cmp <Timer		; test low word
	bgt noSeqPacket	; later...
	
* Check if item track set for play

	ldx TrackSav2
	lda PlayTrack,x
	beql NextItem1	; Track not set for play

* Check for non-MIDI message

	phy
	ldy #5
	shortm
	lda [PlayBufStart],y
	bpll NonMIDI

* It's a MIDI message

	ply		; restore item index
	longm

	lda SeqOutState,x
	asl A
	tax
	jmp (SeqOutVec,x)



SeqOutVec	DC.W BothQMIDI	; "0"
	DC.W OnlyMIDI	; "1"
	DC.W OnlyQ		; "2"


* Queue the packet and Output thru MIDI

BothQMIDI	ldx <QueuePtr

	lda <TrackSav
	sta TrackQueue,x	; save track number

	iny
	iny
	lda [PlayBufStart],y	; byte count
	and #$0003
	sta <ByteCount	; save for MIDI out
	sta <DataBytes	; for call-back

	iny
	lda [PlayBufStart],y
	sta <SeqItem
	pha		; save for channel number
	and #$00F0		; message only
	sta CmdQueue,x

	phx
	ldx TrackSav2
	lda TChanList,x	; force track to channel?
	bmi @1		; no channel translation

	plx
	sta ChanQueue,x
	lda <SeqItem
	and #$00F0
	ora ChanQueue,x
	sta <SeqItem	; force channel number
	pla		; fix stack
	bra @2

@1	plx
	pla
	and #$000F		; extract channel number
	sta ChanQueue,x

@2	iny
	lda [PlayBufStart],y
	and #$00FF
	sta KeyQueue,x
	sta <SeqItem+1

	iny
	lda [PlayBufStart],y
	and #$00FF
	sta VolQueue,x
	sta <SeqItem+2

	txy		; preserve current position
	inx
	inx
	txa
	and #QueueSize-1
	sta <QueuePtr	; Queue points to next open slot

* Output the packet thru MIDI

	jsr FillBuffer

GotItem
NextItem	jsl piRTL		; go CallBack
NextItem1	lda <PlayBufStart
	clc
	adc #ItemSize	; number of bytes per seq item
	sta <PlayBufStart
	lda <PlayBufStart+2
	adc #00
	sta <PlayBufStart+2

	jmp playNext	; get next seq item


* 'y' points to status-chan item (#5)

NonMIDI	plx		; fix stack
	longm
	and #$007F		; seq command (0-$7f)
	tax
	jmp (NonMIDIVec,x)

NonMIDIVec	DC.W SeqMarker	; "0"
	DC.W SetSeqBeat	; "2"
	DC.W SetRelTempo	; "4"





* Queue the packet only

OnlyQ	ldx <QueuePtr

	lda <TrackSav
	sta TrackQueue,x	; save track number

	iny
	iny		; skip byte count
	iny
	lda [PlayBufStart],y
	sta <SeqItem
	pha		; save for channel number
	and #$00F0		; message only
	sta CmdQueue,x

	phx
	ldx TrackSav2
	lda TChanList,x	; force track to channel?
	bmi @1		; no channel translation

	plx
	sta ChanQueue,x
	pla		; fix stack
	bra @2

@1	plx
	pla
	and #$000F		; extract channel number
	sta ChanQueue,x

@2	iny
	lda [PlayBufStart],y
	and #$00FF
	sta KeyQueue,x
	sta <SeqItem+1

	iny
	lda [PlayBufStart],y
	and #$00FF
	sta VolQueue,x
	sta <SeqItem+2

	txy		; preserve current position
	inx
	inx
	txa
	and #QueueSize-1
	sta <QueuePtr	; Queue points to next open slot

	jmp NextItem


* Output MIDI only

OnlyMIDI	lda <OutPortEnable
	beql NextItem	; MIDI out disabled

	iny
	iny
	lda [PlayBufStart],y	; byte count
	and #$0003
	sta <ByteCount	; save for MIDI out

	iny
	lda [PlayBufStart],y
	and #$00FF
	pha		; save for channel number
	and #$00F0		; message only
	sta MsgTemp

	ldx TrackSav2
	lda TChanList,x	; force track to channel?
	bmi @1		; no channel translation

	plx		; fix stack
	ora MsgTemp
	bra @2

@1	pla
@2	sta <SeqItem

	iny
	lda [PlayBufStart],y
	and #$00FF
	sta <SeqItem+1

	iny
	lda [PlayBufStart],y
	and #$00FF
	sta <SeqItem+2

	jsr FillBuffer	; send the packet out

	jmp NextItem


	EXPORT SMarker

SeqMarker	lda <PlayBufStart
	ldx <PlayBufStart+2
SMarker	jsl piRTL		; go CallBack
	jmp NextItem1



	IMPORT BeatTicks

SetSeqBeat	iny		; move to Data Byte 1 field
	lda [PlayBufStart],y
	sta BeatTicks
	jmp NextItem1


	IMPORT TempoTbl

SetRelTempo	iny
	lda [PlayBufStart],y	; get tempo delta
	clc
	adc <TempoBPM	; add current BPM
	bpl @1
	lda #0		; If TempoBPM is too low, use Minimum
	bra @2

@1	cmp #$0100	
	blt @2
	lda #$FF		; If TempoBPM is too high, use Maximum

@2	sta <TempoBPM	; save modified BPM
	asl A
	tax
	lda TempoTbl,x	; get clock step value from table

	php
	sei
	sta <Tempo		; save new clock step value
	plp
	jmp NextItem1








MsgTemp	DC.W 0
	DC.W 0
TrackSav2	DC.W 0		; track number x2
;
;  The following table contains the number of data bytes
;  required by each MIDI status byte.  Note that this
;  table must be indexed using (the value of the status
;  byte * 2 - $100).  A negative value in this table
;  indicates a real-time status byte.  The length of
;  system exclusive data is variable (but <= $7F00).
;
MidiLengths	DC.W 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2	; $8x note off
	DC.W 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2 	; $9x note on
	DC.W 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2 	; $Ax poly pressure
	DC.W 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2 	; $Bx control change
	DC.W 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 	; $Cx program change
	DC.W 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 	; $Dx channel pressure
	DC.W 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2 	; $Ex pitch bend
	DC.W $7F00				; $F0
	DC.W 0				; $F1
	DC.W 2				; $F2
	DC.W 1				; $F3
	DC.W 0				; $F4
	DC.W 0				; $F5
	DC.W 0				; $F6
	DC.W 0				; $F7
	DC.W $FFFF,$FFFF,$FFFF,$FFFF 		; $F8 - $FB
	DC.W $FFFF,$FFFF,$FFFF,$FFFF 		; $FC - $FF



	ENDP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/MIDISynth/MIDISynth.aii b/IIGS.601.SRC/GSToolbox/MIDISynth/MIDISynth.aii
new file mode 100644
index 0000000..a53b140
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/MIDISynth/MIDISynth.aii
@@ -0,0 +1 @@
+*******************************************************************
*
* Copyright 1990-1991 Apple Computer, Inc
* All Rights Reserved
*
*******************************************************************
*
* REVISION HISTORY
*
* 24-Oct-91 Dave Lyons
*
* Added a CMP #$F0 to MSStartUp to prevent a bogus generator-
* in-use error if the Sound Tools had already been used, leaving
* a nonzero value at offset $F0 on Sound direct page.  (This byte
* is *not* the status of the reserved generator!)
*
*******************************************************************

;-----------------------------------------------
;
;	Imported addresses
;
;-----------------------------------------------

	IMPORT AddMidiHook
	IMPORT AllNotesOff
	IMPORT update
	IMPORT NoteOn
	IMPORT NoteOff
	IMPORT AllNotesOff
	IMPORT Make_F_Tbl

	IMPORT EnableMidiIn	; midi.control.aii
	IMPORT DisableMidiIn	; midi.control.aii
	IMPORT EnableMidiOut	; midi.control.aii
	IMPORT DisableMidiOut	; midi.control.aii
	IMPORT SetMIDIPort	;       ""
	IMPORT SetMidiChan	;       ""
	IMPORT SetMidiMode	;       ""
	IMPORT StartMIDIDriver	;       ""
	IMPORT StopMIDIDriver	;       ""
	IMPORT PortShutDown	; midi.Driver.aii

	IMPORT DefineInst	; check.aii
	IMPORT SynthPlayer	;   "
	IMPORT SetTempo	;   "
	IMPORT SetUserCallBack	;   "
	IMPORT BeatTicks	;   "
	IMPORT SetBeat	;   "
	IMPORT GetTempo	;   "
	IMPORT SetRecTrack	;   "
	IMPORT SetPlayTrack	;   "
	IMPORT TrackToChannel	;   "
	IMPORT Locate	;   "
	IMPORT SetVelComp	;   "
	IMPORT LocateEnd	;   "
	IMPORT Merge	;   "
	IMPORT DeleteTrack	;   "
	IMPORT SetMetro	;   "
	IMPORT GetMSData	;   "
	IMPORT CalcTime	;   "
	IMPORT CalcMeasure	;   "
	IMPORT MSSuspend	;   "
	IMPORT MSResume	;   "
	IMPORT MSstate	;   "
	IMPORT SetTuningTable	;   "
	IMPORT GetTuningTable	;   "
	IMPORT SeTrackOut	;   "
	IMPORT SysExOut	;   "

	IMPORT OutBuf	; Midi.Driver.aii

	IMPORT ClearNtbl	; NoteOff.aii

	IMPORT MIDICmd	; NoteOn.aii

	IMPORT PlayTrack
	IMPORT SeqOutState
	IMPORT TChanList
	IMPORT MSstate

	IMPORT BufDispatcher


;-----------------------------------------------
;
;	Forward addresses and entries
;
;-----------------------------------------------

	ENTRY NSBoot
	ENTRY NSReset
	ENTRY NSShutdown
	ENTRY NSStartStat
	ENTRY NSStartup
	ENTRY NSVersion
	ENTRY NotImp

	MACHINE M65816	
	INCLUDE 'all.macros'
	INCLUDE 'ns.equ'
	INCLUDE 'note.macros'
	INCLUDE 'E16.Memory'

	longa on
	longi on


*---------------------------------------------------------------
*
* ROUTINE:	FPT 
*
* FUNCTION:	MIDI Synth Function Pointer Table
*
* INPUT:	none
*
* OUTPUT:	none
*
* NOTES:	
*
*---------------------------------------------------------------

FPT	PROC

	EXPORT MIDISynCallTable

MIDISynCallTable
	DC.L (EndFPT-MIDISynCallTable)/4	; number of calls

	DC.L NSBoot-1	;0123 MSBootInit
	DC.L NSStartup-1	;0223 MSStartUp
	DC.L NSShutdown-1	;0323 MSShutDown
	DC.L NSVersion-1	;0423 MSVersion
	DC.L NSReset-1	;0523 MSReset
	DC.L NSStartStat-1	;0623 MSStatus
	DC.L NotImp-1	;0723
	DC.L NotImp-1	;0823

	DC.L SetMidiChan-1	; 0923
	DC.L SetMidiMode-1	; 0A23
	DC.L NoteOn-1	; 0B23
	DC.L NoteOff-1	; 0C23
	DC.L AllNotesOff-1	; 0D23
 	DC.L SetRecTrack-1	; 0E23
 	DC.L SetPlayTrack-1	; 0F23

	DC.L TrackToChannel-1	; 1023
	DC.L Locate-1	; 1123
	DC.L SetVelComp-1	; 1223
	DC.L SetMIDIPort-1	; 1323

	DC.L DefineInst-1	; 1423 - check Inst Rec into synth
	DC.L SynthPlayer-1	; 1523 - sequencer control
	DC.L SetTempo-1	; 1623 - sequencer Tempo
	DC.L SetUserCallBack-1	; 1723 - Set the call back routines
	DC.L SysExOut-1	; 1823 - Output SysEx message to MIDI
	DC.L SetBeat-1	; 1923 - number of ticks per beat
	DC.L MIDICmd-1	; 1A23 - MIDI message to synth
	DC.L LocateEnd-1	; 1B23 - End of seq address
	DC.L Merge-1	; 1C23 - merge 2 seq buffers
	DC.L DeleteTrack-1	; 1D23 - Delete items from buffer with track
	DC.L SetMetro-1	; 1E23 - Init metronome
	DC.L GetMSData-1	; 1F23 - MS direct page
	DC.L CalcTime-1	; 2023 - Calc time from measure,beat
	DC.L CalcMeasure-1	; 2123 - Calc measure,beat from time
	DC.L MSSuspend-1	; 2223 - stop tick IRQ's
	DC.L MSResume-1	; 2323 - continue tick IRQ's
	DC.L SetTuningTable-1	; 2423
	DC.L GetTuningTable-1	; 2523
	DC.L SeTrackOut-1	; 2623 - Seq out, synth or MIDI
	DC.L StartMIDIDriver-1	; 2723
	DC.L StopMIDIDriver-1	; 2823
EndFPT

	ENDP



FASTTBL	PROC EXPORT
	DC.L 0
	ENDP




*---------------------------------------------------------------
*
* ROUTINE:	NSBoot 
*
* FUNCTION:	Tool Call #1
*
* INPUT:	none
*
* OUTPUT:	none
*
* NOTES:	
*
*---------------------------------------------------------------

	EXPORT NSBoot	
NSBoot	PROC

* clear out my cubbyhole and thereby reset the 'awake' flag

	ldx #10	; 12 bytes there
	lda #0
@clear	sta >cubbyhole,x
	dex
	dex
	bpl @clear

	shortm
	lda #$6B		; RTL
	sta MidiInputPoll	; set up MIDI input polling vector
	longm

	clc
	rtl

	ENDP





*---------------------------------------------------------------
*
* ROUTINE:	NSStartup 
*
* FUNCTION:	Tool Call #2
*
* INPUT:	none
*
* OUTPUT:	Error Codes:
*		NoDPError	- Can't get  Direct Page memory.
*		NoMemError	- Can't get memory block.
*		MiscToolError - Misc Tools not started.
*		SoundError	- Sound Tool Set not started.
*		GenError	- Generator in use.
*		errstarted	- MIDI Synth already started.
*
* NOTES:	
*
*---------------------------------------------------------------


NSStartup	PROC EXPORT

	IMPORT SetDefaultNoteTable
	IMPORT SetCB

	EXPORT Priority
	EXPORT Note
	EXPORT vcbTbl
	EXPORT oscTbl
	EXPORT Chan
	EXPORT State
	EXPORT chVolTbl
	EXPORT chSusTbl
	EXPORT chPBTbl
	EXPORT SetGCB
	EXPORT MIDIdp

* Start by checking if we're already started.


	lda >awake
	beq asleep

	ldx #errstarted
	jmp exit


asleep	phb		; save user data bank reg
	phk
	plb		; my data bank = pc bank
	phd		; save user DP

; get handle for gcb and vcb_ram.

	pha								; space for result.
	pha								;
	PushLong #DPforNS 
	PushWord #NSID	; get the id to use for NS.
	lda #attrlocked+attrNoCross+attrfixed+attrPage+attrBank
	pha								;
	PushLong #0		; zero bank
	_NewHandle		; get my memory.
	tax								; save the error code, if error.
	tsc		; turn stack into direct page
	tcd
	lda [1]		; deref the pointer
	sta >myDP		; we know that high word is 0
	tcd		; set my DP
	clc
	adc #$300
	sta MIDIdp		; MIDI Driver's DP
	pla
	pla
	bcc doFT

	ldx #noDPError	; can't get Direct Page
	jmp exit1

; get handle for pitch-to-freq table

doFT	pha								; space for result.
	pha								;
	PushLong #12*32*10*2 
	PushWord #NSID	; get the id to use for NS.
	lda #attrlocked+attrNoCross+attrfixed
	pha								;
	PushLong #0		; zero bank
	_NewHandle		; get my memory.
	PullLong <Temp
	bcc doFT1

	ldx #noMemError	; can't get memory
	jmp exit1

doFT1	ldy #2
	lda [Temp]
	sta <Freq_Tbl
	lda [Temp],y
	sta Freq_Tbl+2


	jsr Make_F_Tbl	; make the table

; get handle for MIDI note table

	pha								; space for result.
	pha								;
	PushLong #128*16 
	PushWord #NSID	; get the id to use for NS.
	lda #attrlocked+attrNoCross+attrfixed
	pha								;
	PushLong #0		; zero bank
	_NewHandle		; get my memory.
	PullLong <Temp
	bcc doFT2

	ldx #noMemError	; can't get memory
	jmp exit1

doFT2	ldy #2
	lda [Temp]
	sta <NoteList
	lda [Temp],y
	sta <NoteTracker+2


	jsr ClearNtbl	; Mark all notes as off

; get handle for MIDI OUT buffer

	pha								; space for result.
	pha								;
	PushLong #BufLen 
	PushWord #NSID	; get the id to use for NS.
	lda #attrlocked+attrNoCross+attrfixed
	pha								;
	PushLong #0		; zero bank
	_NewHandle		; get my memory.
	PullLong <Temp
	bcc doFT3

	ldx #noMemError	; can't get memory
	jmp exit1

doFT3	ldy #2
	lda [Temp]
	sta <OutBuffer
	lda [Temp],y
	sta <OutBuffer+2


; get handle for MIDI IN buffer

	pha								; space for result.
	pha								;
	PushLong #BufLen 
	PushWord #NSID	; get the id to use for NS.
	lda #attrlocked+attrNoCross+attrfixed
	pha								;
	PushLong #0		; zero bank
	_NewHandle		; get my memory.
	PullLong <Temp
	bcc doFT4

	ldx #noMemError	; can't get memory
	jmp exit1

doFT4	ldy #2
	lda [Temp]
	sta <InBuffer
	lda [Temp],y
	sta <InBuffer+2


	jsr SetDriverDP	; move self-modifying code to Driver DP

* Stack contents:   2 for DP, 1 for DB, 6 for rtl

* rtl
* rtl
* user Data Bank
* user Direct Page

* Make sure Sound Tools are started

	pha
	_SoundToolStatus
	pla
	bne GetSVec

	ldx #SoundError	; Sound Tools not started
	jmp exit1

* Save the Sound Tool IRQ vector

GetSVec	pha
	pha
	pea $000B		; sound irq vector
	_GetVector
	PullLong IRQmaster	; save Sound Tool IRQ vector
	bcc doFT5

	ldx #MiscToolError	; Misc Tools not started
	jmp exit1

doFT5	lda IRQmaster
	sta SoundIRQ+1
	lda IRQmaster+1
	sta SoundIRQ+2	; *** Self-modify ***

* Get Sound Tool's direct page (GCB)

	pushlong #0		; room for result
	pushword #0		; system tool/ sound tool
	pushword #8		; Sound Tools
	_GetWAP
	PullLong GCBaddr

* Make sure all Gens are free

	lda GCBaddr
	sta <Temp
	lda GCBaddr+2
	sta <Temp+2

	shortmx
	lda #0
@1	tay
	lda [Temp],y
	beq @2		; it's free

	longmx
	ldx #GenError	; Generator in use
	jmp exit1
	shortmx

@2	tya
	clc
	adc #$10
*** added 24-Oct-91 DAL -- prevent bogus generator-in-use error after using
***                        sound tools
	cmp #$F0		;stop checking after last real generator
*** end 24-oct-91
	bcc @1

	longmx
	lda #My_ID
	jsr SetGCB		; claim all Osc (except Osc 28,29)

* Sound IRQ's will allways come to us.

	lda #^Synth_irq
	pha 
	lda #<Synth_irq
	pha 
	_SetSoundMIRQV

	lda $E10148
	sta ApplePatchSav
	lda $E10148+2
	sta ApplePatchSav+2

	lda ApplePatch
	sta $E10148
	lda ApplePatch+2
	sta $E10148+2	; Apple reserved osc (#31) IRQ
			; if you use 'FFStartSound' with MIDI Synth


* Init MIDI

;
;  device driver not loaded
;
	lda #$6B		; RTL
	sta MidiInputPoll	; set up MIDI input polling vector
	lda MIDIdp
	sta MidiInputPoll+1
	lda #$5C		; JML
	sta MidiInputPoll+3
	lda #$FFFF
	sta MidiInputPoll+4
	lda #$FFFF
	sta MidiInputPoll+6


	stz <InPortEnable	; Midi IN port is off
	stz <OutPortEnable	; Midi OUT port is off

	lda #1
	stz <QueueOut	; Make QueuePtr = QueueOut
	stz <QueuePtr	; no data in Queue
	stz <InBufStart
	sta <InBufIndex

	stz <OutBufIndex
	stz <OutStartIndex

	stz <SeqFlags

	lda #96		; quarter note
	sta BeatTicks
	lda #110
	sta <TempoBPM	; Global BPM 
	jsr GetTempo	; 120 BPM

	stz <MMode		; Omni mode
	stz <BasicCh	; channel zero

	lda #MetroDefaultFreq
	sta <MetroFreq
	lda #MetroDefaultVol
	sta <MetroVol

	jsr SetDefaultNoteTable

	lda #DefaultCB
	sta <BufPtr
	lda #^DefaultCB
	sta <BufPtr+2
	jsr SetCB		; init the callbacks

	stz MSstate		; we're not suspended


	ldx #16
	lda #00
	tay
@11	sta PlayTrack,y	; set all tracks for non-play
	sta SeqOutState,y	; all tracks both Q and MIDI
	dec A		; = $FFFF
	sta TChanList,y	; all track channels "thru"
	inc A		; = 0
	iny
	iny
	dex
	bne @11

	stz <RecTrack	; set track #1 for record

	stz <VelOffset	; no velocity offset

* initialize the priority and state tables in zero page.

	lda #Priority
	sta <PStore
	lda #^Priority
	sta <PStore+2


	ldx #no_of_Gen*2
	lda #00
fill	sta Priority,x
	sta State,x
	sta Note,x
	sta Chan,x
	dex
	dex
	bpl fill


* Gen #15 used by synth for timer

	ldx #no_of_Gen*2
	lda #$FFFF
	sta Priority,x

	lda #1
	sta >awake		; flag that MS is active

	shortm
	php			; save status
	sei			; no interupts while using DOC Glue.
		 
	lda >SysVol
	sta >GStatReg		; no inc, to doc
	lda #doc_freqlo+timer_osc	; set frequency of the
	sta >GAdrL			; timer osc
	lda #<500*2
	sta >GDataReg
	lda #doc_freqhi+timer_osc
	sta >GAdrL
	lda #>500*2
	sta >GDataReg

	lda #doc_vol+timer_osc		; zero volume
	sta >GAdrL
	lda #$00
	sta >GDataReg

	lda #doc_size+timer_osc
	sta >GAdrL
	lda #$00
	sta >GDataReg

	lda #doc_addr+timer_osc
	sta >GAdrL
	lda #$00			; page 0
	sta >GDataReg

	lda #doc_ctrl+timer_osc
	sta >GAdrL
	lda #doc_irq_bit		; free run, interrupts
	sta >GDataReg

	plp							; reenable interupts.
	longmx

	lda #1
	sta MSstate		; Tick IRQ's are ON

	ldx #0		; no error
exit2	pld		; user DP
	plb		; user DB

exit	txa
	cmp #1
	rtl


exit1	phx		; save ERROR code
	Pushword #NSID
	_HUnlockAll
	Pushword #NSID
	_Disposeall
	plx		; restore ERROR code
	bra exit2






SetDriverDP
	phd		; save DP
	lda MIDIdp
	tcd
	ldx #0
codeloop	lda dp_code,x 	; copy one word per loop
	sta <0,x
	inx
	inx
	cpx #dp_codesize
	bcc codeloop

	tdc						; patch direct page location
	sta MidiZP1
	sta MidiZP1b
	pld		; restore DP
	rts


dp_code	DC.B	$00 	; reserved byte at start of direct page


;  jump to routine to do I/O buffering - called by driver routines
	jml BufDispatcher


;  This is a small glue routine installed in the direct page and modified
;  there by MidiStartup.  It is called by the //GS interrupt handler to
;  service MIDI interrupts.
	rep #$30 		; long accumulator
	lda #$FFFF		; get new direct page
	jsl $FFFFFF		; call driver int. handler
	sep #$30 		; restore 8-bit native mode
	bcs oldvec		; driver didn't service interrupt
	rtl
oldvec	jml $FFFFFF		; call old interrupt handler



;
; poll MIDI input
;
	rep #$30 		; long accumulator and registers
	longa on
	longi on
	lda #$FFFF		; get direct page 1
	jsl $FFFFFF		; poll MIDI input
	sep #$30 		; short accumulator and registers
	rtl


dp_codesize	equ *-dp_code








	EXPORT IRQmaster	; for shutdown

IRQmaster	DC.L 0		; Sound Tool IRQ save

Priority	DC.W 0,0,0,0,0,0,0,0
State	DC.W 0,0,0,0,0,0,0,0
Note	DC.W 0,0,0,0,0,0,0,0
Chan	DC.W 0,0,0,0,0,0,0,0

chVolTbl
	DC.W $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
	DC.W $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
chSusTbl
	DC.W $00,$00,$00,$00,$00,$00,$00,$00
	DC.W $00,$00,$00,$00,$00,$00,$00,$00

chPBTbl
	DC.W $00,$00,$00,$00,$00,$00,$00,$00
	DC.W $00,$00,$00,$00,$00,$00,$00,$00

vcbTbl	DC.W $100
	DC.W $100+(vcbSize*1)
	DC.W $100+(vcbSize*2)
	DC.W $100+(vcbSize*3)
	DC.W $100+(vcbSize*4)
	DC.W $100+(vcbSize*5)
	DC.W $100+(vcbSize*6)
	DC.W $100+(vcbSize*7)

oscTbl	DC.W 0
	DC.W 4*1
	DC.W 4*2
	DC.W 4*3
	DC.W 4*4
	DC.W 4*5
	DC.W 4*6
	DC.W 4*7


DefaultCB	DC.L 0
	DC.L 0
	DC.L 0
	DC.L 0
	DC.L 0
	DC.L 0
	DC.L 0
	DC.L 0
	DC.L 0
	DC.L 0
	DC.L 0
	DC.L 0
	DC.L 0
	DC.L 0

MIDIdp	DC.W 0		; MIDI Driver's DP



*---------------------------------------------------------------
*
* ROUTINE:	SetGCB 
*
* FUNCTION:	Set Mode byte of all Gens in GCB
*
* INPUT:	A = Mode
*
* OUTPUT:	none
*
* NOTES:	Gen #7 (Osc 28,29) will be marked as free
*
*---------------------------------------------------------------


SetGCB	sta GCB_Mode	; save Mode for later
	lda GCBaddr
	sta <Temp
	lda GCBaddr+2
	sta <Temp+2

	shortmx
	lda #0		; start with Gen #0
@1	tay
	lda GCB_Mode
	sta [Temp],y	; write the Mode byte
	tya
	clc
	adc #$10
	bcc @1		; get all 16 Gens

	ldy #7*16
	lda #0
	sta [Temp],y	; Gen #7 is FREE

	longmx
	rts

GCB_Mode	DC.W 0
GCBaddr	DC.L 0



ApplePatch	jmp >Synth_irq1

	EXPORT ApplePatchSav	; for shutdown

ApplePatchSav
	DC.L 0

*---------------------------------------------------------------
*
* ROUTINE:	Synth_irq 
*
* FUNCTION:	Service DOC interrupts
*
* INPUT:	$E100CC - Number of Osc causing IRQ
*
* OUTPUT:	none
*
* NOTES:	Osc 31 is the only IRQ active MIDI Synth oscillator.
*	Go to Sound Tool's IRQ vector if not Osc 31.
*	Sound Tools can use only Gen #7 (Osc 28,29).
*
*---------------------------------------------------------------

	LONGA OFF 
	LONGI OFF 	

Synth_irq	phd 		; save direct register
	phb
	phk
	plb		; get our Data Pointer
	lda >myDP+1		; point to our work area
	pha 	
	lda >myDP
	pha
	pld
	lda >$E100CC

nxt_osc_irq	
	sep #$30		; native
	lsr A		; put it in workable form
	and #$1F		; 32 oscillators
	cmp #$1F		; check for oscillator 31
	bcc not_apple	; let Sound Tools handle it

	php
	longmx

*	shortm
*	lda #$FF
*	sta $E1C0F0
*	longm

	jsr update

*	shortm
*	lda #$80
*	sta $E1C0F0
*	longm

	plp

	bra chk_nxt_osc	; check rest of oscillators

not_apple

* If its not Osc #31, then it must be Sound Tool Gen #7 (osc 28,29)

	lda >$E100CC
	plb
	pld 		; restore direct register
SoundIRQ	jmp >not_apple	; *** Gets modified *****



chk_nxt_osc	
	shortm
	lda >SysVol		; select DOC no auto incr
	sta gstatreg
	lda #doc_IRQ	; read DOC irq register
	sta gadrl
	lda GDataReg	; read the DOC irq register
	lda GDataReg
	bpl nxt_osc_irq	; got a live one!!
exit_irq
	plb
	pld 		; restore direct register
	clc 		; flag that we serviced the IRQ
	rtl 



Synth_irq1	phd 		; save direct register
	phb
	phk
	plb		; get our Data Pointer
	lda >myDP+1		; point to our work area
	pha 	
	lda >myDP
	pha
	pld

	php
	longmx

	jsr update

	plp

	plb
	pld 		; restore direct register
	clc 		; flag that we serviced the IRQ
	rtl 


	ENDP





*---------------------------------------------------------------
*
* ROUTINE:	NSShutdown 
*
* FUNCTION:	Tool Call #3
*
* INPUT:	none
*
* OUTPUT:	Error Codes:
*		errNotStarted - MIDI Synth not started.
*
* NOTES:	
*
*---------------------------------------------------------------

	LONGA ON 
	LONGI ON 	


NSShutdown PROC EXPORT

	IMPORT SetGCB
	IMPORT ApplePatchSav
	IMPORT IRQmaster

	phd		; save old direct page
	lda >myDP
	tcd
	phb		; save caller's data bank
	phk
	plb		; get our data bank
	php		; save caller's IRQ bit
*	sei


	lda >awake
	bne proceed

* its not started!

	ldx #errNotStarted
	jmp returnerr

proceed
	ldx #0		; loop counter

	php
	sei
	shortm
	lda #doc_ctrl
	sta >GAdrL
	lda >SysVol
	ora #GptrInc	; auto inc
	sta >GStatReg
	lda #doc_halt_reset

DisableLoop	sta >GDataReg
	Inx
	cpx #32		; set all 32 osc to 'halt'
	bne DisableLoop
	plp
	longm

	jsr DisableMIDIIn	; restore Quickdraw FPT

	jsl StopMIDIDriver	; shut down the MIDI driver

* clear out my cubbyhole and thereby reset the 'awake' flag

	ldx #10		; 12 bytes there
	lda #0
clear2	sta >cubbyhole,x
	dex
	dex
	bpl clear2

* Free all Gens in GCB

	lda #0
	jsr SetGCB

	lda ApplePatchSav
	sta $E10148
	lda ApplePatchSav+2
	sta $E10148+2	; Apple reserved osc (#31) IRQ

	PushLong IRQmaster
	_SetSoundMIRQV	; restore Sound Tool's IRQ

* Dispose of all memory.

;;; 20-Oct-91 DAL -- We're already doing a DisposeAll, so there is no
;;;                  point in doing HUnlockAll or PurgeAll.  These were
;;;                  not working before, because it was trying to dispose
;;;                  of itself!
;;;	Pushword #NSID
;;;	_HUnlockAll
	Pushword #NSID
	_DisposeAll
;;;	Pushword #NSID
;;;	_PurgeAll

	ldx #0

returnerr	plp		; restore interrupts
	plb		; restore data bank
	pld		; restore old direct page
	txa		; restore error code
	cmp #1		; set carry for error
	rtl

	ENDP


*---------------------------------------------------------------
*
* ROUTINE:	NSVersion 
*
* FUNCTION:	Tool Call #4
*
* INPUT:	none
*
* OUTPUT:	none
*
* NOTES:	
*
*---------------------------------------------------------------


NSVersion PROC EXPORT
		
	lda #version_number
	sta 7,s
	lda #0
	clc
	rtl

	ENDP



*---------------------------------------------------------------
*
* ROUTINE:	NSReset 
*
* FUNCTION:	Tool Call #5
*
* INPUT:	none
*
* OUTPUT:	none
*
* NOTES:	Should never be called!
*
*---------------------------------------------------------------

NSReset	PROC EXPORT

*	jsl NSShutdown
*	jsr StopMIDIDriver

	lda #0		;no error, either way...
	clc
	rtl

	ENDP



*---------------------------------------------------------------
*
* ROUTINE:	NSStartStat 
*
* FUNCTION:	Tool Call #6
*
* INPUT:	none
*
* OUTPUT:	A = $0000 if MIDI Synth not active
*
* NOTES:	
*
*---------------------------------------------------------------


NSStartStat PROC EXPORT
		
	lda >awake
	beq notstarted

	lda #$FFFF		; yes, we are active
	bra exit

notstarted	lda #0		; no we are not
exit	sta 7,s
	lda #0
	clc
	rtl

	ENDP



*---------------------------------------------------------------
*
* ROUTINE:	NotImp 
*
* FUNCTION:	Tool Call
*
* INPUT:	none
*
* OUTPUT:	A = $FFFF and C = 1
*
* NOTES:	
*
*---------------------------------------------------------------

NotImp	PROC

	lda #-1
	sec
	rtl

	ENDP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/MIDISynth/Midi.Control.aii b/IIGS.601.SRC/GSToolbox/MIDISynth/Midi.Control.aii
new file mode 100644
index 0000000..86dda17
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/MIDISynth/Midi.Control.aii
@@ -0,0 +1 @@
+
	INCLUDE 'all.macros'
	INCLUDE 'Note.Macros'
	INCLUDE 'ns.equ'

	PRINT PUSH
	PRINT OFF
	INCLUDE 'e16.memory' 	; memory manager equates
	PRINT POP


	IMPORT Mouse
	IMPORT MouseTask
	IMPORT iDrawCursor
	IMPORT iUndrawCursor
	
	IMPORT GetNextEvent
	IMPORT EventAvail
	IMPORT GetMouse
	IMPORT Button
	IMPORT StillDown
	IMPORT WaitMouseUp
	IMPORT PostEvent
	IMPORT FlushEvents
	IMPORT GetOSEvent
	IMPORT OSEventAvail
	
	IMPORT SetCursor
	IMPORT UserInitCursor

	IMPORT MIDIdp




*********************************************************
*
* SetMIDIPort       Tool Call #$13
*
* Set the MIDI Port State
*
* Inputs:	WORD	In port state (0=disable)
*	WORD	Out port state (0=disable)
*
* Outputs:	none
*
*********************************************************

SetMIDIPort		PROC EXPORT

	IMPORT EnableMIDIIn
	IMPORT EnableMIDIOut
	IMPORT DisableMIDIIn
	IMPORT DisableMIDIOut
	IMPORT PortOn
	

;
;  stack offsets
;
	DefineStack
s_status	byte		; old status reg
s_bank	byte		; old data bank
s_dirpage   word 		; old direct page
s_rtl1	block 3		; first rtl address
s_rtl2	block 3		; second rtl address

s_argstart	DSectSize		; start of arguments
s_outport	word		; 0 = output disabled
s_inport	word		; 0 = input disabled
*s_port	word		; Midi port (1 or 2) @@@@ NOT USED
s_argend	DSectSize		; end of arguments

s_argsize	equ s_argend-s_argstart





;  initialize direct page register

	phd		; save old direct page
	lda >myDP
	tcd
	phb		; save caller's data bank
	phk
	plb		; get our data bank
	php		; save caller's IRQ bit
	sei

	lda >awake
	bne @12		; Synth is started

	ldx #errNotStarted	; Synth not started
	jmp returnerr

@12	lda PortOn
	bne @1

	ldx #noMIDIDriver	; Synth not started @@@@
	jmp returnerr	; driver never started


@1	lda s_inport,s
	beq @2
	jsr EnableMidiIn
	bra @3

@2	jsr DisableMIDIIn

@3	lda s_outport,s
	beq @4
	
	jsr EnableMidiOut
	bra @5

@4	jsr DisableMIDIOut


@5	ldx #0		; no errors

*  return (with error if x is non-zero)
	
returnerr	plp		; restore interrupts
	plb		; restore data bank
	pld		; restore old direct page
	PopArgs s_argsize	; move RTL addresses
	txa		; restore error code
	cmp #1		; set carry for error

	rtl


	ENDP





*********************************************************
*
*  start interrupts that accomplish MIDI input
*
*********************************************************

EnableMIDIIn PROC EXPORT

	

	EXPORT XSHIFTSTAY:EQU
XSHIFTSTAY EQU $E01E84

	EXPORT XSHIFTOUT:EQU
XSHIFTOUT EQU $E01E8C

	EXPORT Real_EM_FTP
	EXPORT Real_QD_FTP
	EXPORT MouseAdrs
	EXPORT D_Cursor_Save
	EXPORT UD_Cursor_Save
	EXPORT EMCallTable	
	EXPORT QDCallTable

	IMPORT DevRcvOnGlue

	
	lda <InPortEnable
	beq @1
	rts		; already enabled
	
@1	php
	sei
	lda #$FFFF		; enable input
	sta <InPortEnable

	stz <PacketStatus 	; discard partial packet
	lda #1
	sta <PacketRemain 	; no data in partial packet
	stz <QueuePtr	; no data in Queue
	stz <QueueOut	; no data in Queue
	stz <InBufStart
	stz <InBufIndex
	plp
	

;  Swap in our MIDI polled EVENT MANAGER
	
	pha
	pha
	PushWord #$0D	;mouse
	_GetVector
	pla
	sta >MouseAdrs
	pla
	sta >MouseAdrs+2

	PushWord #$0D
	PushPtr Mouse	;MIDI polled mouse
	_SetVector

	PushLong #00	; room for EM FTP
	PushWord #00	; System tool set
	PushWord #6		; EVENT MGR
	_GetTSPtr
*** added 10-Oct-91 DAL -- get the true size of the EM call table
	phd
	tsc
	tcd
	lda [3]
	sta >EMCallTable
	pld
*** end 10-Oct-91	
	
	pla
	sta >Real_EM_FTP
	pla
	sta >Real_EM_FTP+2	; save EM FTP for miStopInput
	
	PushWord #00	; System tool set
	PushWord #6		;EVENT MGR
	PushLong #EMCallTable
	_SetTSPtr

; Swap in our "DrawCursor" and "UndrawCursor" into QuickDraw jump vectors

	lda >$E01FCC
	sta >D_Cursor_Save
	lda >$E01FCE
	sta >D_Cursor_Save+2
	
	lda >JDC
	sta >$E01FCC
	lda >JDC+2
	sta >$E01FCE

	lda >$E01FD0
	sta >UD_Cursor_Save
	lda >$E01FD2
	sta >UD_Cursor_Save+2
	
	lda >JUDC
	sta >$E01FD0
	lda >JUDC+2
	sta >$E01FD2
	
;  Swap in our QD FTP table

	PushLong #00	; room for QD FTP
	PushWord #00	; System tool set
	PushWord #4		; QuickDraw
	_GetTSPtr
*** added 10-Oct-91 DAL -- get the true size of the QD call table
	phd
	tsc
	tcd
	lda [3]
	sta >QDCallTable
	pld
*** end 10-Oct-91	
	pla
	sta >Real_QD_FTP
	pla
	sta >Real_QD_FTP+2	; save QD FTP for miStopInput
	
	PushWord #00	; System tool set
	PushWord #4		; QuickDraw
	PushLong #QDCallTable
	_SetTSPtr

;  set up MIDI input polling vector

	shortm
	lda #$A9		; LDA (with device driver direct page)
	sta >MidiInputPoll	; set up MIDI input polling vector
	longm

	jsl DevRcvOnGlue 	; enable receiver interrupts

	rts





JDC	jml >iDrawCursor
JUDC	jml >iUndrawCursor



Real_EM_FTP		DS.B 4
Real_QD_FTP		DS.B 4
MouseAdrs		DS.B 4
D_Cursor_Save	DS.B 4
UD_Cursor_Save	DS.B 4



EMCallTable	
	DC.L (theEnd-EMCallTable)/4 ;num calls + 1
	
	DC.L nullBootInit-1	;10-Oct-91 DAL
	DC.L 0
	DC.L 0
	DC.L 0
	DC.L 0
	DC.L 0
	DC.L 0
	DC.L 0
	DC.L 0
	DC.L GetNextEvent-1
	DC.L EventAvail-1
	DC.L GetMouse-1
	DC.L Button-1
	DC.L StillDown-1
	DC.L WaitMouseUp-1
	DC.L 0
	DC.L 0
	DC.L 0
	DC.L 0
	DC.L PostEvent-1
	DC.L FlushEvents-1
	DC.L GetOSEvent-1
	DC.L OSEventAvail-1
	DC.L 0
	DC.L 0
	DC.L 0
	DC.L 0
	DC.L 0
	
	DC.L 0	; Not used
	DC.L 0	; Not used
	DC.L 0	; Not used
	DC.L 0	; Not used
	dc.l 0,0,0,0 ;more fluff, 10-Oct-91 DAL	
theEnd

QDCallTable	
	DC.L  (TheEndQ-QDCallTable)/4	;num calls + 1

	dc.l nullBootInit-1	;added 10-Oct-91 DAL
	DCB.L $8D-1,00	; minus 1
	DC.L  SetCursor-1
	DCB.L $3B,0
	DC.L  UserInitCursor-1
	DCB.L 24,0
	dcb.l 10,0		;add some extra fluff (DAL)	
TheEndQ

nullBootInit rtl		;added 10-Oct-91 DAL

	ENDP



************************************************
*
*  stop interrupts that accomplish MIDI input
*
************************************************


DisableMidiIn	PROC EXPORT
	
	IMPORT Real_EM_FTP
	IMPORT Real_QD_FTP
	IMPORT MouseAdrs
	IMPORT D_Cursor_Save
	IMPORT UD_Cursor_Save
	IMPORT EMCallTable	
	IMPORT QDCallTable
	IMPORT RecvIntOff
	IMPORT DevRcvOffGlue



	lda <InPortEnable
	bne @1

	rts		; input not enabled!
		
@1	shortm
	lda #$6B		; RTL
	sta >MidiInputPoll	; deactivate MIDI input polling vector
	longm

	jsl DevRcvOffGlue	; disable receiver interrupts
	stz <InPortEnable




;  Restore system Event Mgr and QuickDraw

	PushWord #00	; System tool set
	PushWord #6		; EVENT MGR
	PushLong Real_EM_FTP	; Restore EM PTR
	_SetTSPtr
	
	PushWord #$0D
	PushLong MouseAdrs	;mouse
	_SetVector

	PushWord #00	; System tool set
	PushWord #4		; QuickDraw
	PushLong Real_QD_FTP	; Restore QD PTR
	_SetTSPtr

	lda D_Cursor_Save
	sta >$E01FCC
	lda D_Cursor_Save+2
	sta >$E01FCE
	
	lda UD_Cursor_Save
	sta >$E01FD0
	lda UD_Cursor_Save+2
	sta >$E01FD2

	rts


	ENDP


*********************************************************
*
*  start interrupts that accomplish MIDI output
*
*********************************************************

EnableMIDIOut		PROC EXPORT

	IMPORT DevPollXmtGlue

	lda <OutPortEnable
	beq @1
	rts		; output already enabled

@1	lda #$FFFF		; enable output
	sta <OutPortEnable
	stz <OutBufIndex
	stz <OutStartIndex
	jsl DevPollXmtGlue	; call output routine
	rts
	
	
	ENDP




************************************************
*
*  stop interrupts that accomplish MIDI output
*
************************************************


DisableMidiOut	PROC EXPORT
	
	IMPORT DevXmtOffGlue


	lda <OutPortEnable
	bne @1		; output is enabled

	rts
	
@1	jsl DevXmtOffGlue
	stz <OutPortEnable

	rts


	ENDP





****************************************************************
*
*	SetMIDIMode		Tool Call
*
*	Inputs: MIDI Mode  0=Omni, 1=Poly, 2=Multi
*
*	Output: none
*
*
****************************************************************



SetMIDIMode	PROC EXPORT


;
;  stack offsets
;
	DefineStack
s_dirpage   word 	; old direct page
s_databank	byte	; old data bank
s_rtl1	block 3	; first rtl address
s_rtl2	block 3	; second rtl address

s_argstart	DSectSize	; start of arguments
s_mode	word 	; MIDI mode
s_argend	DSectSize	; end of arguments

s_argsize	equ s_argend-s_argstart



	phb		; save user data bank
	phd		; save user direct page
	lda >myDP
	tcd		; set my DP
	phk
	plb		; set my DB

	ldx #errNotStarted
	lda >awake
	beq exit 		; weren't started, report err.

	ldx #RangeError
	lda s_mode,s
	cmp #3
	bge exit		; mode > 2

	lda s_mode,s
	beq @2		; Omni mode

	cmp #1
	bne @2
	lda #$FFFF		; Poly mode

@2	sta <MMode	
	ldx #0

exit	pld		; get old direct reg
	plb		; get old data bank
	PopArgs s_argsize

	txa		; restore error code
	cmp #1		; set carry on error
	rtl



	ENDP



****************************************************************
*
*	SetMIDIChan		Tool Call
*
*	Inputs: MIDI channel (0-15)
*
*	Output: none
*
*
****************************************************************



SetMIDIChan	PROC EXPORT


;
;  stack offsets
;
	DefineStack
s_dirpage   word 	; old direct page
s_databank	byte	; old data bank
s_rtl1	block 3	; first rtl address
s_rtl2	block 3	; second rtl address

s_argstart	DSectSize	; start of arguments
s_mchan	word 	; MIDI channel
s_argend	DSectSize	; end of arguments

s_argsize	equ s_argend-s_argstart




	phb		; save user data bank
	phd		; save user direct page
	lda >myDP
	tcd		; set my DP
	phk
	plb		; set my DB

	ldx #errNotStarted
	lda >awake
	beq exit 		; weren't started, report err.

	ldx #RangeError
	lda s_mchan,s
	cmp #16
	bge exit		; chan > 15

	sta <BasicCh	

	ldx #0

exit	pld		; get old direct reg
	plb		; get old data bank
	PopArgs s_argsize

	txa		; restore error code
	cmp #1		; set carry on error
	rtl



	ENDP








****************************************************************
*
*	StartMIDIDriver	Tool Call #$27
*
*	Inputs: WORD	Slot Number (0-7)
*	        WORD	Internal/External (0/1)
*	        WORD	user ID for memory manager
*	        LONG	Pointer to MIDI Driver
*
*	Output: none
*
*
****************************************************************



StartMIDIDriver	PROC EXPORT

	IMPORT DevInitGlue
	IMPORT SysExFlag

;
;  stack offsets
;
	DefineStack
s_dirpage   word 	; old direct page
s_databank	byte	; old data bank
s_rtl1	block 3	; first rtl address
s_rtl2	block 3	; second rtl address

s_argstart	DSectSize	; start of arguments
s_addr	long
s_id	word
s_ctype	word	; int/ext
s_slot	word
s_argend	DSectSize	; end of arguments

s_argsize	equ s_argend-s_argstart


	
	phb		; save user data bank
	phd		; save user direct page
	lda >MIDIdp
	tcd		; set my DP
	phk
	plb		; set my DB

	ldx #errNotStarted
	lda >awake
	beql exit 		; weren't started, report err.

	ldx #DriverAlreadySet
	lda PortOn
	bnel exit 		; there's already a set driver


	lda s_addr,s
	sta <DriverAddr
	lda s_addr+2,s
	sta <DriverAddr+2

;
;  copy driver table onto direct page
;
	ldy #dt_size-2
dtloop	lda [DriverAddr],y	; copy one word per loop
	tyx
	sta <dt_start,x
	dey
	dey
	bpl dtloop



;
;  call the driver initialization code

	lda s_slot,s
	sta slotn
	lda s_id,s
	sta id
	lda s_ctype,s
	sta ctype

	pha		; reserve space for old interrupt vector
	pha
	pea 0		; new interrupt vector
	lda MIDIdp
	clc
	adc #MidiIntGlue
	pha		; driver's IRQ vector (my DP)
	PushWord slotn	; pass slot number
	PushWord ctype	; pass int/ext setting
	PushWord id		; pass  user ID
	jsl DevInitGlue	; initialize device driver
	bcc @15

	txa
	and #$00FF
	ora #my_tool_number*256	; set device error msg
	tax
	pla
	pla		; clean-up the stack
	jmp exit		; we have an driver init error

@15
	tax
	lda MIDIdp	 	; save old interrupt vector
	tcd
	pla
	sta <OldIntVector
	sta OrigIntVec
	pla
	shortm
	sta <OldIntVector+2
	sta OrigIntVec+2
	longm



;  copy driver table onto direct page (2nd time, driver will have modified it)

	ldy #dt_size-2
dtloop2	lda [DriverAddr],y		; copy one word per loop
	tyx
	sta dt_start,x
	dey
	dey
	bpl dtloop2


;  patch the driver interrupt handler in glue code

	ldx <dt_pollrecv	; remember address of routine to
	inx
	ldy <dt_pollrecv+1	;	poll MIDI input
	sty <DevPollAddr+1
	stx <DevPollAddr
	ldx <dt_inthandler	; adjust to true address
	inx
	ldy <dt_inthandler+1
	sty <DriverHandler+1	; order of storage makes a difference!
	stx <DriverHandler

;
;  set up MIDI input polling vector
;
	lda <dt_pollrecv
	inc a
	sta MidiInputPoll+4
	lda <dt_pollrecv+2
	sta MidiInputPoll+6

	lda #$FFFF
	sta PortOn		; flag as port enabled
	stz SysExFlag	; normal input

	ldx #0		; no errors

exit	pld		; get old direct reg
	plb		; get old data bank
	PopArgs s_argsize

	txa		; restore error code
	cmp #1		; set carry on error
	rtl



slotn	DC.W 0
id	DC.W 0
ctype	DC.W 0

	EXPORT PortOn
PortOn	DC.W 0		; 0 = Midi port disabled

	EXPORT OrigIntVec
OrigIntVec	DC.L 0


	ENDP


;-------------------------------------------------------
;
;  StopMIDIDriver		Tool Call #$28
;
;  Shutdown the MIDI Driver.
;
;  Inputs:	none
;
;  Outputs:	none
;
;  Registers:
;	not preserved
;
;
;-------------------------------------------------------

	EXPORT StopMIDIDriver
StopMIDIDriver	PROC

	IMPORT PortOn
	IMPORT SysExFlag
	IMPORT DevShutGlue
	IMPORT OrigIntVec


	phb		; save user data bank
	phd		; save user direct page
	lda >myDP
	tcd		; set my DP
	phk
	plb		; set my DB

	ldx #errNotStarted
	lda >awake
	beq exit 		; weren't started, report err.


	lda PortOn
	beq exit 		; port never started

	jsr DisableMidiIn
	jsr DisableMidiOut

	stz PortOn
	PushLong OrigIntVec
	jsl DevShutGlue

	shortm
	lda #$6B		; RTL
	sta >MidiInputPoll	; deactivate MIDI input polling vector
	longm
	stz SysExFlag	; normal input

	ldx #0		; no errors

exit	pld		; get old direct reg
	plb		; get old data bank
	txa		; restore error code
	cmp #1		; set carry on error
	rtl

	ENDP
	




;
;  call driver initialization routine ( -called with Driver DP- )

DevInitGlue	PROC EXPORT
	pei dt_init+1
	phb
	lda dt_init
	sta 1,s
	lda MIDIdp 		; point to driver's direct page
	rtl
	ENDP


;
;  call driver shutdown routine
;
DevShutGlue	PROC EXPORT
	ldx #$300		; offset to driver's DP
	lda dt_shutdown+1,x
	pha
	phb
	lda dt_shutdown,x
	sta 1,s
	lda MIDIdp 		; point to driver's direct page
	rtl
	ENDP


;
;  call driver reset routine
;
DevResetGlue PROC EXPORT
	ldx #$300		; offset to driver's DP
	lda dt_reset+1,x
	pha
	phb
	lda dt_reset,x
	sta 1,s
	lda MIDIdp 		; point to driver's direct page
	rtl
	ENDP



;
;  call driver receiver interrupt enable
;
DevRcvOnGlue PROC EXPORT
	ldx #$300		; offset to driver's DP
	lda dt_recvinton+1,x
	pha
	phb
	lda dt_recvinton,x
	sta 1,s
	lda MIDIdp 		; point to driver's direct page
	rtl
	ENDP


;
;  call driver receiver interrupt disable
;
DevRcvOffGlue PROC EXPORT
	ldx #$300		; offset to driver's DP
	lda dt_recvintoff+1,x
	pha
	phb
	lda dt_recvintoff,x
	sta 1,s
	lda MIDIdp 		; point to driver's direct page
	rtl
	ENDP


;
;  call driver transmitter polling routine
;
DevPollXmtGlue PROC EXPORT
	ldx #$300		; offset to driver's DP
	lda dt_pollxmit+1,x
	pha
	phb
	lda dt_pollxmit,x
	sta 1,s
	lda MIDIdp 		; point to driver's direct page
	rtl
	ENDP


;
;  call driver transmitter interrupt enable
;
DevXmtOnGlue PROC EXPORT
	ldx #$300		; offset to driver's DP
	lda dt_xmitinton+1,x
	pha
	phb
	lda dt_xmitinton,x
	sta 1,s
	lda MIDIdp 		; point to driver's direct page
	rtl
	ENDP


;
;  call driver transmitter interrupt disable
;
DevXmtOffGlue PROC EXPORT
	ldx #$300		; offset to driver's DP
	lda dt_xmitintoff+1,x
	pha
	phb
	lda dt_xmitintoff,x
	sta 1,s
	lda MIDIdp	 	; point to driver's direct page
	rtl
	ENDP

	END






	





	END
	
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/MIDISynth/Midi.Driver.aii b/IIGS.601.SRC/GSToolbox/MIDISynth/Midi.Driver.aii
new file mode 100644
index 0000000..5bedfe1
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/MIDISynth/Midi.Driver.aii
@@ -0,0 +1 @@
+;-------------------------------------------------------
;
;  midiDriver.asm
;
;
;-------------------------------------------------------

	INCLUDE 'all.macros'
	INCLUDE 'Note.Macros'
	INCLUDE 'ns.equ'




;-------------------------------------------------------
;
;  BufDispatcher
;
;  This routine is called indirectly by driver input
;  and output handlers.  When the driver wishes to
;  call one of the MIDI Tool Set buffering routines,
;  it executes the following code:
;
;	 PEA $XX00	 ; where XX is a function code.
;	 PHD	 ; where D = our direct page
;	 RTL
;
;  This switches execution to the instruction at offset
;  one in the direct page. This instruction contains
;  a JML to BufDispatcher. On entry, the function
;  code XX is still on the stack.  By pulling this
;  value into processor status register, various
;  branches can be performed depending on the values
;  of the flags.
;
;  Current function codes:
;	$04  -  place the value in the low byte of
;		the accumulator into the input buffer
;	$05  -  the low byte of the accumulator
;		contains a code indicating an input
;		error
;	$84  -  request a byte from the output buffer
;
;-------------------------------------------------------

BufDispatcher  PROC EXPORT

	EXPORT MidiInVec1

	import BufInput
	import BufOutput

	plp		; SEI, CLD, long A and index registers
	phd		; save driver's direct page
	bmi output		; minus for output, carry set on error

	bcc input

	sta >MidiError
	pld		; restore driver's direct page
	rtl

*	bmi output		; minus for output, carry set on error

input	clc
MidiInVec1	jsl noMerror	; Call-Back
	bcs dontUse		; don't buffer it

	jsr BufInput	; buffer it
dontUse	pld		; restore driver's direct page
noMerror	rtl

	EXPORT MidiError
MidiError	DC.W 0

	shortm
	lda >$E1C034
	and #$F0		; set border to light gray @@@@
	sta >$E1C034
	longm

output	jsr BufOutput	; retrieve next output character
*	bcs nochar		; no character available
nochar	pld		; restore driver's direct page
	rtl

	ENDP






BufRtns	PROC

	EXPORT BufInput
	EXPORT BufOutput
	EXPORT FillBuffer
	EXPORT FillBuffer1

*************************************
*
*  Store MIDI byte in "A" to Buffer
*
*
*************************************


	IMPORT ClockSource

BufInput	
	longmx
	tax		; save MIDI char
	phd		; save callers Direct Page
	lda >MyDP		; get our direct page
	tcd
	phb		; save callers Data Bank
	phk
	plb		; set our Data Bank

	txa		; MIDI char
	and #$00FF		; clear high byte
	sta MidiByte	; save input char

	ldx SysExFlag
	bne SXmode		; special Sys Ex mode

	cmp #$FE
	bge DontBuf		; Ignore Active Sensing and Reset

ContinIn	cmp #SysEx
	bne StoreIt		; not System Exclusive

	sta SysExFlag	; do special until next Status Msg or EOX
	bra SXcallback

StoreIt	cmp #MIDITiming	; MIDI Timing?
	bne BufByte		; no.

	lda ClockSource
	beq DontBuf		; No need to buffer it, we're using internal clock


BufByte	lda <InBufIndex
	tay
	inc A		; set-up for next store
	and #BufLen-1	; circular buffer
	sta <InBufIndex
	
	shortm
	lda MidiByte	; get input char
	sta [InBuffer],y
	longm
	
DontBuf	plb		; restore Data Bank
	pld		; restore Direct Page
	rts


	EXPORT UserSysEx

SXmode	cmp #EOX
	bne Test4RT		; not end of message

	stz SysExFlag	; we're no longer in SysEx
	bra SXcallback

Test4RT	cmp #$00F1
	bge DontBuf1	; it's a Sys Real-Time Msg

	and #$0080
	bne EndMsg		; it's a Status Msg

	lda MidiByte
SXcallback	jsr UserSysEx
DontBuf1	plb		; restore Data Bank
	pld		; restore Direct Page
	rts


EndMsg	lda #EOX		; finish current message
	jsr UserSysEx
	stz SysExFlag	; we're no longer in SysEx
	lda MidiByte
	bra ContinIn


UserSysEx	jsl DummyCB		; *** gets modified ***
	rts


DummyCB	RTL


	EXPORT SysExFlag

MidiByte	DC.W 0
SysExFlag	DC.W 0		; if ­ 0, we're getting SysEx data
	



;-------------------------------------------------------
;
;  BufOutput
;
;  Request next character from the output buffer.
;
;  Inputs:
;	none
;
;  Outputs:
;	Carry clear if got a character, carry set if
;	  output buffer is empty.
;	Accumulator (low byte) contains character if
;	  the carry is clear, otherwise A is
;	  undefined. The high byte is undefined in
;	  either case.
;
;  Registers:
;	Not preserved. Accumulator may contain next
;	character.
;
;  NOTE: This routine is not called directly, but
;		 entered through the BufDispatcher routine.
;
;-------------------------------------------------------

BufOutput	longmx
	
	phd		; save callers Direct Page
	lda >MyDP		; get our direct page
	tcd
	phb		; save callers Data Bank
	phk
	plb		; set our Data Bank
	
	ldy <OutStartIndex
	cpy <OutBufIndex
	beq BufEmpty

	shortm
	lda [OutBuffer],y
	longm

	pha
	tya
	inc A		; set-up for next store
	and #BufLen-1	; circular buffer
	sta <OutStartIndex
	pla

	plb		; restore Data Bank
	pld		; restore caller's Direct Page
	clc		; c=0, there's still data in buffer
	rts

BufEmpty
	plb		; restore Data Bank
	pld		; restore caller's Direct Page
	sec		; c=1, buffer is empty
	rts




	EXPORT SysOutFlag
SysOutFlag	DC.W 0




* must preserve y

	EXPORT UserMout


FillBuffer1	phy
	bra FillBuffer2

FillBuffer	phy
UserMout	jsl DummyCB		; 'PacketOut' call-back *** gets modified ***

FillBuffer2	lda <OutPortEnable
	beq NoOutBuf	; MIDI out disabled

	lda <SeqItem
	and #$00FF
	jsr FillBufferx
	bcs NoOutBuf1	; overflow!
	dec <ByteCount
	bmi NoOutBuf	; no data bytes

	lda <SeqItem+1
	and #$00FF
	jsr FillBufferx
	bcs NoOutBuf1	; overflow!
	dec <ByteCount
	bmi NoOutBuf	; only one data byte

	lda <SeqItem+2	; 2nd data byte
	and #$00FF
	jsr FillBufferx
	bcs NoOutBuf1	; overflow!

NoOutBuf	clc		; no errors
NoOutBuf1	ply
	rts


	EXPORT FillBufferx
	IMPORT DevPollXmtGlue

FillBufferx
	php
	sei		; disable IRQ's

*	ldy <OutBufIndex
*	cpy <OutStartIndex
*	bne BuffIt1		; we're playing from buffer


	ldy <OutBufIndex
BuffIt1	shortm
	sta [OutBuffer],y
	longm

	tya
	inc A		; set-up for next store
	and #BufLen-1	; circular buffer
	cmp <OutStartIndex
	beq WrapError	; we wrapped around !!!!!!!
	sta <OutBufIndex

	jsl DevPollXmtGlue	; call output routine

	plp
	clc		; no errors
	rts
	
WrapError	plp
	sec		; ERROR!
	rts






	ENDP
	

	


	END
	
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/MIDISynth/Note.Macros b/IIGS.601.SRC/GSToolbox/MIDISynth/Note.Macros
new file mode 100644
index 0000000..882b445
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/MIDISynth/Note.Macros
@@ -0,0 +1 @@
+

;
;  &lab DSectSize
;
;  This macro equates the given label with the
;  current dummy PC defined by the DSect,
;  GlobalDSect, or DefineStack macros. This is
;  useful for determing the size of data sections
;  or parts of data sections.
;


 MACRO
&lab PopArgs &num
&lab 
 IF &num='' GOTO .DONE
 IF &Eval(&num)=0 GOTO .DONE
 LCLA &popnum
&popnum SETA &Eval(&num)
 IF &popnum>=6 GOTO .DOPULLS
 lda 5,s
 sta 5+&popnum,s
 lda 3,s
 sta 3+&popnum,s
 IF &popnum<2 GOTO .MOVEUP1
 pla
&popnum SETA &popnum-2
 sta 1+&popnum,s
 IF &popnum>0 GOTO .DISCARD
 MEXIT
.MOVEUP1
 pla
 phb
 sta 1,s
 MEXIT
.DOPULLS
 pla
 sta &popnum-1,s
 pla
 sta &popnum-1,s
 pla
 sta &popnum-1,s
&popnum SETA &popnum-6
 IF &popnum=0 GOTO .DONE
.DISCARD
 IF &popnum=1 GOTO .DISCARD1
 IF &popnum=2 GOTO .DISCARD2
 tsc
 clc
 adc #&popnum
 tcs
 MEXIT
.DISCARD1
 phb
.DISCARD2
 pla
.DONE
 MEND




	MACRO
&lab	IncPtr &amt,&adr
&lab	lda &adr
	clc
	adc #&amt
	sta &adr
	bcc @a
	inc &adr+2
@a
	MEND

	MACRO
&lab	IncPtr2 &amt,&adr1,&adr2
&lab	lda &adr1
	clc
	adc #&amt
	sta &adr2
	lda &adr1+2
	adc #0
	sta &adr2+2
	MEND

	MACRO
&lab	DecPtr &amt,&adr
&lab	lda &adr
	sec
	sbc #&amt
	sta &adr
	bcs @a
	dec &adr+2
@a
	MEND

	MACRO
&lab	DecPtr2 &amt,&adr1,&adr2
&lab	lda &adr1
	sec
	sbc #&amt
	sta &adr2
	lda &adr1+2
	sbc #0
	sta &adr2+2
	MEND

	MACRO
	beql &A
		bne  @dontTake
		brl  &A
@dontTake
	MEND

	MACRO
	bccl &A
		bcs  @dontTake
		brl  &A
@dontTake
	MEND

	MACRO
	bgtl &A
		blt  @dontTake
		beq  @dontTake
		brl  &A
@dontTake
	MEND

	MACRO
	bnel &A
		beq  @dontTake
		brl  &A
@dontTake
	MEND

	MACRO
	bgt &A
		beq  @dontTake
		bge  &A
@dontTake
	MEND

	MACRO
	ble &A
		blt  &A
		beq  &A
	MEND

	MACRO
	cmpl &A,&B
	IF &B='' THEN
		cpx  &A+2
		bne  @1
		cmp  &A
	ELSE
		lda  &A+2
		cmp  &B+2
		bne  @1
		lda  &A
		cmp  &B
	ENDIF
@1
	MEND

	MACRO
	bmil &A
		bpl  @dontTake
		brl  &A
@dontTake
	MEND

	MACRO
	bcsl &A
		bcc  @dontTake
		brl  &A
@dontTake
	MEND

	MACRO
	bpll &A
		bmi  @dontTake
		brl  &A
@dontTake
	MEND

	MACRO
&lab	PushPtr &addr
&lab
	dc.B $F4
	dc.W (&addr)>>16
	dc.B $F4
	dc.W &addr
	MEND

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/MIDISynth/NoteOff.aii b/IIGS.601.SRC/GSToolbox/MIDISynth/NoteOff.aii
new file mode 100644
index 0000000..2a5423f
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/MIDISynth/NoteOff.aii
@@ -0,0 +1 @@
+	Blanks Off
;-----------------------------------------------
;
;	Imported addresses
;
;-----------------------------------------------

	print off
	INCLUDE 'Note.Macros'
	INCLUDE 'all.macros'
	INCLUDE 'ns.equ'
	print on, nogen, nomdir, nohdr

	IMPORT Priority
	IMPORT State
	IMPORT Note
	IMPORT Chan
	IMPORT halt_gen
	IMPORT vcbTbl
	IMPORT oscTbl
	IMPORT NLadr
	IMPORT chSusTbl
	IMPORT ChanQueue
	IMPORT KeyQueue
	IMPORT VolQueue
	IMPORT CmdQueue




****************************************************************
*
*	NoteOff	Tool Call
*
*	Inputs: GenNum, Semitone
*
*	Output: none
*
*	This routine is reentrant: do not use scratch RAM
*
****************************************************************
		EXPORT	NoteOff	
NoteOff	PROC
	longi on
	longa on

	EXPORT VoiceRelease
	EXPORT StartRelease

;
;  stack offsets
;
	DefineStack
s_status	byte	; caller's status reg
s_dirpage   word 	; old direct page
s_databank	byte	; old data bank
s_rtl1	block 3	; first rtl address
s_rtl2	block 3	; second rtl address

s_argstart	DSectSize	; start of arguments
s_key	word 	; Key number (0-127)
s_channel	word 	; Channel number (0-15)
s_argend	DSectSize	; end of arguments

s_argsize	equ s_argend-s_argstart




	phb		; save caller's data bank
	phd		; save caller's direct page
	lda >myDP
	tcd		; set my DP
	phk
	plb		; set my DB
	php		; save caller's IRQ bit
	sei		; hold MIDI from using queue
	
	ldx #errNotStarted
	lda >awake
	beq exit 		; weren't started, report err.

	ldy <QueuePtr
	lda #Midi_Note_Off
	sta CmdQueue,y

	ldx #RangeError
	lda s_channel,s
	cmp #16
	bge exit		; chan > 15

	sta ChanQueue,y

	lda s_key,s
	cmp #128
	bge exit		; note # > 127

	sta KeyQueue,y

	iny
	iny
	tya
	and #QueueSize-1
	sta <QueuePtr	; Queue points to next open slot

	ldx #0	; no errors

* restore the registers, fix the stack

exit	plp
	pld	; get old direct reg
	plb	; get old data bank
	PopArgs s_argsize
	txa							; get the error code.
	cmp #1	; set the carry bit.
	rtl






*******************************************
*
* Force a voice into the release stage
*
* Inputs: Vchan, Vkey
*         NoteList should have this key
*	marked as used, unless it was
*	stolen by Allocate.
*
*******************************************



VoiceRelease

* get the gennum from the note list

	phx
	phy
	jsl >MidiInputPoll
	ply
	plx

	ldy #00
CkState	lda Priority,y
	bne ItsActive

Chk_Next	iny
	iny
	cpy #no_of_Gen*2
	bne CkState		; check next

	rts		; voice must have timed out



ItsActive
	lda Note,y
	cmp <Vkey
	bne Chk_Next	; wrong note

	lda Chan,y
	cmp <Vchan
	bne Chk_Next	; wrong channel

	lda State,y
	cmp #Release
	bge Chk_Next	; already been released

	ldx vcbTbl,y	; x = vcb


* check if sustain switch is down

	ldy <vcbCh,x
	lda chSusTbl,y
	beq StartRelease	; sustain switch is up

	lda <sus_hold,x
	beq @1

	ldy <genNum,x
	bra Chk_Next	; already waiting to be released

@1	lda #$FFFF
	sta <sus_hold,x	; flag we have a release waiting
	rts

* If we get here, then we have the gen in question. We now have
* to send it into its release stage, which involves the envelope;
* and jimmy the priority, to make it more stealable.



StartRelease
	lda #_rel_seg	; set envelope stage to release
	sta <next_seg,x
	sta <next_seg2,x

	lda <env_cur,x	; this will cause the env
	sta <env_lim,x	; to go to the next stage
	lda #1
	sta <env_inc,x

	lda <env_cur2,x	; this will cause the env
	sta <env_lim2,x	; to go to the next stage
	lda #1
	sta <env_inc2,x

* Now we have to decrease the priority by half.


	ldy <genNum,x
	lda Priority,y	; get priority
	lsr a
	adc #1		; to prevent a zero priority
	sta Priority,y	; and stick it in the table

* Set voice state to Release

	lda #Release	; release state
	sta State,y

	stz <sus_flag,x	; ignore sustain switch from now on
*			  since envelope is in Release
	rts

		ENDP
	




****************************************************************
*
*	AllNotesOff : Tool Call
*
*	Inputs: none
*
*	Outputs: none
*
****************************************************************

	EXPORT AllNotesOff 
AllNotesOff PROC

	EXPORT AllOff
	EXPORT ClearNtbl
	EXPORT MarkOn
	EXPORT MarkOff
	EXPORT Vtrack
	EXPORT KillTrack

	IMPORT FillBuffer1


	lda >awake
	bne @1

	ldx #errNotStarted	; we weren't started.
	jmp error		; return error and exit.


* Get my DP area and my workarea pointers

@1
	longm

	phb		; save user data bank
	phd		; save user direct page
	lda >myDP
	tcd		; set my DP
	phk
	plb		; my data bank

	php
	sei


* Stack is up 4. memory is long. D and b are set.

	jsr AllOff

	ldx #00
	plp
	pld
	plb
error	txa							; get error code.
	cmp #1		; set the carry flag.
	rtl




AllOff

* Release all sustain switches

	ldy #14
	lda #0
AllOff3	sta chSusTbl,y
	dey
	dey
	bpl AllOff3


	ldy #00
AllOff1	lda Priority,y
	bne CkRel		; voice is active

AllOff2	iny
	iny
	cpy #no_of_Gen*2
	bne AllOff1		; check next
	jsr KillMIDI	; turn all active MIDI notes off
	jsr SendAllOff
	rts


CkRel
	lda State,y
	cmp #Release
	bge AllOff2		; already been released

* Force voice into release

	ldx <QueuePtr

	lda #Midi_Note_Off
	sta CmdQueue,x

	lda Chan,y
	sta ChanQueue,x

	lda Note,y
	sta KeyQueue,x

	inx
	inx
	txa
	and #QueueSize-1
	sta <QueuePtr	; Queue points to next open slot

	bra AllOff2






* Send "All Notes Off thru MIDI


SendAllOff	lda #$000F
	sta Mchn

@1
	lda Mchn
	ora #$B0
	sta <SeqItem
	lda #123		; all notes off
	sta <SeqItem+1
	lda #0
	sta <SeqItem+2
	lda #2
	sta <DataBytes
	sta <ByteCount
	jsr FillBuffer1

@2	lda Mchn
	ora #$B0
	sta <SeqItem
	lda #64		; sustain switch
	sta <SeqItem+1
	lda #0		; OFF
	sta <SeqItem+2
	lda #2
	sta <DataBytes
	sta <ByteCount
	jsr FillBuffer1

	lda Mchn
	ora #$E0		; pitch bend
	sta <SeqItem
	lda #0
	sta <SeqItem+1
	lda #64		; center position
	sta <SeqItem+2
	lda #2
	sta <DataBytes
	sta <ByteCount
	jsr FillBuffer1

	lda Mchn
	jsr ClearCh		; clear note list

	dec Mchn
	bpl @1

	rts

Mchn	DC.W 15
ysav	DC.W 0


* Clear all notes in note list

ClearNtbl
	lda #$F
	sta Mchn

@1	lda Mchn
	jsr ClearCh
	dec Mchn
	bpl @1

	rts


* clear all notes in list for channel
* on entry: a = channel number

ClearCh	asl A		; table in words
	tay
	lda Mult128,y
	clc
	adc <NoteList
	sta <NoteTracker
	ldy #126
	lda #$FFFF		; mark as unused

@1	sta [NoteTracker],y
	dey
	dey
	bpl @1

	rts





KillMIDI
	lda #$F
	sta Mchn

@1	lda Mchn
	asl A		; table in words
	tay
	lda Mult128,y
	clc
	adc <NoteList
	sta <NoteTracker

	shortm
	ldy #127
@2	lda [NoteTracker],y
	bmi @3		; note not on

	jsr KillNote
	lda #$FF		; mark as off
	sta [NoteTracker],y

@3	dey
	bpl @2		; check all 128 MIDI notes

	longm
	dec Mchn		; check all 16 MIDI channels
	bpl @1

	rts




KillNote	longm
	sty ysav
	lda Mchn
	ora #$80		; note off
	sta <SeqItem
	lda ysav		; note number
	sta <SeqItem+1
	lda #0
	sta <SeqItem+2
	lda #2
	sta <DataBytes
	sta <ByteCount
	jsr FillBuffer1

	ldy ysav
	shortm
	rts



MarkOn
	lda <Vchan
	asl A		; table in words
	tay
	lda Mult128,y
	clc
	adc <NoteList
	sta <NoteTracker

	shortm
	ldy <Vkey
	lda Vtrack		; mark with track number
	sta [NoteTracker],y
	longm
	rts

Vtrack	DC.W 0



MarkOff
	lda <Vchan
	asl A		; table in words
	tay
	lda Mult128,y
	clc
	adc <NoteList
	sta <NoteTracker

	shortm
	ldy <Vkey
	lda #$FF		; mark as off
	sta [NoteTracker],y
	longm
	rts



******************************************
*
* Turn OFF all notes for a specified track
* Notes for both MIDI and Synth will be
*   affected.
*
*   INPUT:	a = Track number (0-15)
*
******************************************


KillTrack
	sta TargetTrack

	lda #$F		; check all 16 MIDI channels
	sta Mchn

@1	lda Mchn
	asl A		; table in words
	tay
	lda Mult128,y
	clc
	adc <NoteList
	sta <NoteTracker

	shortm
	ldy #127
@2	lda [NoteTracker],y
	bmi @3		; note not on
	cmp TargetTrack
	bne @3		; not the specified track number

	phy		; save key index

	jsr KillNote	; MIDI note OFF

@4	longm
	jsr ForceRel	; Synth note to Release
	shortm
	ply
	lda #$FF		; mark as off
	sta [NoteTracker],y

@3	dey
	bpl @2		; check all 128 MIDI notes

	longm
	dec Mchn		; check all 16 MIDI channels
	bpl @1

	rts

TargetTrack	DC.W 0


************************************
*
*  Force note into Release if active
*
*   INPUT:	y = note number
*	mchn = channel number
*
************************************


ForceRel
	sty KeySav		; save note number for later
	ldy #00

FR1	lda Priority,y
	bne CkFR		; voice is active

FR2	iny
	iny
	cpy #no_of_Gen*2
	bne FR1		; check next voice
	rts		; all 7 voices checked


CkFR	lda Note,y
	cmp KeySav
	bne FR2		; check next voice

	lda Chan,y
	cmp mchn
	bne FR2		; check next voice

*	lda State,y
*	cmp #Release
*	bge FR2		; already been released

* First, force sustain to OFF for mchn channel.
* This could cause some problems since I'm turning off sustain
* for all notes using this channel, not just for one track!
* I have no way of knowing if sustain ON was generated on this
* track. Otherwise the note will hang.

	lda mchn
	asl A		; table in WORDs
	tax
	lda #00
	sta chSusTbl,x

* Force voice into release

	ldx <QueuePtr

	lda #Midi_Note_Off
	sta CmdQueue,x

	lda Chan,y
	sta ChanQueue,x

	lda Note,y
	sta KeyQueue,x

	inx
	inx
	txa
	and #QueueSize-1
	sta <QueuePtr	; Queue points to next open slot

	rts

KeySav	DC.W 0





Mult128	DC.W $000,$080,$100,$180,$200,$280,$300,$380
	DC.W $400,$480,$500,$580,$600,$680,$700,$780



		ENDP

		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/MIDISynth/NoteOn.aii b/IIGS.601.SRC/GSToolbox/MIDISynth/NoteOn.aii
new file mode 100644
index 0000000..3937c76
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/MIDISynth/NoteOn.aii
@@ -0,0 +1 @@
+

;-----------------------------------------------
;
;	Imported addresses
;
;-----------------------------------------------

	IMPORT compute_envelope
	IMPORT LogTbl
	IMPORT ExpTbl
	IMPORT freqtable
	IMPORT Chan		; Note.Exec
	IMPORT Priority
	IMPORT State
	IMPORT Note
	IMPORT vcbTbl
	IMPORT oscTbl
	IMPORT mul320	; check.aii
	IMPORT OCB		; check.aii
	IMPORT chPBTbl
	IMPORT Top_Octave	; tables

	IMPORT halt_gen	; update.aii

	INCLUDE 'all.macros'
	INCLUDE 'Note.Macros'
	INCLUDE 'ns.equ'




****************************************************************
*
*	NoteOn	Tool Call
*
*	Inputs: Semitone, Volume, Instrument ID
*
*	Output: none
*
*	This routine is reentrant
*
****************************************************************

	EXPORT NoteOn	
NoteOn	PROC
	longi on
	longa on
		
	EXPORT VoiceInit
	EXPORT Allocate
	EXPORT ChanQueue
	EXPORT KeyQueue
	EXPORT VolQueue
	EXPORT CmdQueue
	EXPORT TrackQueue
	EXPORT Set_Freq
	EXPORT PBtbl
	EXPORT VGtbl
	EXPORT Note_Tbl
	EXPORT Note_Tbl_Default
	EXPORT Make_F_Tbl
	EXPORT ND_Tbl

;
;  stack offsets
;
	DefineStack
s_status	byte	; caller's status reg
s_dirpage   word 	; old direct page
s_databank	byte	; old data bank
s_rtl1	block 3	; first rtl address
s_rtl2	block 3	; second rtl address

s_argstart	DSectSize	; start of arguments
s_volume	word 	; Key Volume (0-127)
s_key	word 	; Key number (0-127)
s_channel	word 	; Channel number (0-15)
s_argend	DSectSize	; end of arguments

s_argsize	equ s_argend-s_argstart


	phb		; save caller's data bank
	phd		; save caller's direct page
	lda >myDP
	tcd		; set my DP
	phk
	plb		; set my DB
	php		; save caller's IRQ bit
	sei		; hold MIDI from using queue
	
	ldx #errNotStarted
	lda >awake
	beq exit 		; weren't started, report err.

	ldy <QueuePtr
	lda #Midi_Note_On
	sta CmdQueue,y

	ldx #RangeError
	lda s_channel,s
	cmp #16
	bge exit		; chan > 15

	sta ChanQueue,y

	lda s_key,s
	cmp #128
	bge exit		; note # > 127

	sta KeyQueue,y

	lda #16		; **** no such Track number
	sta TrackQueue,x

	iny
	iny
	tya
	and #QueueSize-1
	sta <QueuePtr	; Queue points to next open slot

	ldx #0	; no errors

* restore the registers, fix the stack

exit	plp
	pld	; get old direct reg
	plb	; get old data bank
	PopArgs s_argsize

	txa							; get the error code.
	cmp #1	; set the carry bit.
	rtl



ChanQueue	DS.W QueueSize
KeyQueue	DS.W QueueSize
VolQueue	DS.W QueueSize
CmdQueue	DS.W QueueSize
TrackQueue	DS.W QueueSize



*******************************************
*
*  Init a voice
*
*  Input: Vchan, Vkey, Vvol
*
*******************************************



VoiceInit
	jsr Allocate	; get a generator in A and Y
	bcc @2

* c=1 :  all gens locked with priority > $7FFF

	rts		; do nothing until gen is free

* mark this gen into note list

@2
	phx
	phy
*	jsl >MidiInputPoll
	ply
	plx
	
	sty <theGen
	ldx vcbTbl,y
	lda oscTbl,y
	sta <theOsc		; 4 osc per gen
	cmp #$1d
	blt @15
	brk $f2
@15
	sty <genNum,x	; remember the gen number


* Now we need to copy the instrument parameters over to the vcb.


	lda <Vchan
	sta Chan,y

********** Channel to Inst Look-up goes here *******************

	asl A
	sta <vcbCH,x	; save the ch number * 2 in vcb
	phx
	tax
	lda mul320,x	; (0-16) * 320
	plx
	clc
	adc #OCB

	sta <inst_ptr	; get all 4 bytes of instrument
	sta <I_Ptr,x	; I_Ptr used in Update



* Calc the Wave List ptrs

			; A wave is easy, its a fixed
	clc
	adc #_AWavelist	; offset from the beginning.
	sta <Awaveptr
	lda #_wlSize	; length of Awaves (8 wavelists of 8 bytes)
	adc <Awaveptr
	sta <Bwaveptr	; and B starts at the end of A.


* Now search the wavelists for a topkey higher than our keynum.

	lda <Vkey
	and #$007f
	sta Note,y		; y still has gennum

	shortm

	ldy #0
loopA	cmp (Awaveptr),y
	blt gotA

	iny
	iny
	iny
	iny
	iny
	iny
	iny
	iny
	cpy #8*7
	bne loopA

gotA	longm

	tya
	clc
	adc <Awaveptr
	sta <Awaveptr

	tya
	clc
	adc <Bwaveptr
	sta <Bwaveptr

	phx
	phy
	jsl >MidiInputPoll
	ply
	plx

****************************************************************
* Now we have to distribute the data about these waveforms
****************************************************************



* The pitch goes to the vcb

	lda <Vkey		; get semitone in high byte
	asl A		; table is WORD size
	tay
	lda Note_Tbl,y	; note tunning
	sta <Temp

	ldy #wp_pitch	; and add the relative pitch offset
	clc
	adc (Awaveptr),y
	and #$7FFF		; wrap to a legal pitch
	sta <vfreqA,x

	lda <Temp		; retrieve semitone
	clc
	adc (Bwaveptr),y
	and #$7FFF		; wrap to a legal pitch
	sta <vfreqB,x

	lda <Temp
	ldy #wp_pitch+defLen
	clc
	adc (Awaveptr),y
	and #$7FFF		; wrap to a legal pitch
	sta <vfreq2A,x

	lda <Temp		; retrieve semitone
	clc
	adc (Bwaveptr),y
	and #$7FFF		; wrap to a legal pitch
	sta <vfreq2B,x

* save DETUNE factor in vcb

	ldy #wp_detune
	lda (Awaveptr),y
	and #$00FF
	sta <Detune1,x

	ldy #wp_detune+defLen
	lda (Awaveptr),y
	and #$00FF
	sta <Detune2,x



* the wave address and size go to the doc

	shortm

	lda <theOsc
	clc
	adc #doc_addr

	sta >GAdrL
	lda >SysVol
	ora #GptrInc	; auto-inc
	sta >GStatReg
	ldy #wp_addr
	lda (Awaveptr),y	; transfer both 1 wave adresses
	sta >GDataReg
	lda (Bwaveptr),y
	sta >GDataReg
	ldy #wp_addr+defLen
	lda (Awaveptr),y	; transfer both 2 wave adresses
	sta >GDataReg
	lda (Bwaveptr),y
	sta >GDataReg

	lda <theOsc
	adc #doc_size
	sta >GAdrL
	ldy #wp_size	; now point to 1 wp_size
	lda (Awaveptr),y
	sta >GDataReg
	lda (Bwaveptr),y
	sta >GDataReg
	ldy #wp_size+defLen	; now point to 2 wp_size
	lda (Awaveptr),y
	sta >GDataReg
	lda (Bwaveptr),y
	sta >GDataReg

		 
	longm


	lda Vvol		; key vol 0-127
	and #$7F
	ldy #_vs
	lda (Inst_Ptr),y	; vel gain
	sta Vgvec+1		; ***** self modify
	lda Vvol		; key vol 0-127
	and #$7F
VGvec	jmp div0		; **** address gets modified

vgg	asl A		; since log tbl is in words
	tay
	lda LogTbl,y
	sta <Temp		; log of key vol

	ldy #Wvol
	lda (Awaveptr),y
	asl A		; since Log tbl is in words
	and #$00FF
	asl A		; make full range
	tay
	lda <Temp		; log of key vol
	clc
	adc LogTbl,y
	and #$FFFE		; ExpTbl is now in words

	tay
	lda ExpTbl,y
	asl A
	tay
	lda LogTbl,y	; ???????? find out why I had to do this
	sta <volA,x


	ldy #Wvol
	lda (Bwaveptr),y
	asl A
	and #$00FF
	asl A
	tay
	lda <Temp		; log of key vol
	clc
	adc LogTbl,y
	and #$FFFE		; ExpTbl is now in words

	tay
	lda ExpTbl,y
	asl A
	tay
	lda LogTbl,y	; ???????? find out why I had to do this
	sta <volB,x

* now do pair 2 vol

	ldy #Wvol+defLen
	lda (Awaveptr),y
	asl A		; since Log tbl is in words
	and #$00FF
	asl A		; make full range
	tay
	lda <Temp		; log of key vol
	clc
	adc LogTbl,y
	and #$FFFE		; ExpTbl is now in words

	tay
	lda ExpTbl,y
	asl A
	tay
	lda LogTbl,y	; ???????? find out why I had to do this
	sta <vol2A,x


	ldy #Wvol+defLen
	lda (Bwaveptr),y
	asl A
	and #$00FF
	asl A
	tay
	lda <Temp		; log of key vol
	clc
	adc LogTbl,y
	and #$FFFE		; ExpTbl is now in words

	tay
	lda ExpTbl,y
	asl A
	tay
	lda LogTbl,y	; ???????? find out why I had to do this
	sta <vol2B,x

	phx
	phy
	jsl >MidiInputPoll
	ply
	plx

	shortm

***************************************************************

* memory is still short
* the vcb has pitch.
* I deleted vibrato
* Now to start up the envelopes:




	ldy #_envelope
	lda (inst_ptr),y	; get 1st breakpoint
	sta <env_lim+1,x
	stz <env_lim,x	; make word ($xx00)
	ldy #_envelope+defLen
	lda (inst_ptr),y	; get 1st breakpoint
	sta <env_lim2+1,x
	stz <env_lim2,x	; make word ($xx00)

	longm

	lda #3		; set pointer to
	sta next_seg,x	; next segment is #2
	sta next_seg2,x	; next segment is #2

	ldy #_envelope+1
	lda (inst_ptr),y	; get increment
	sta <env_inc,x
	ldy #_envelope+1+defLen
	lda (inst_ptr),y	; get increment
	sta <env_inc2,x
		 
	lda #min_vol*256
	sta <env_cur,x	; offset level to min
	sta <env_cur2,x	; offset level to min

* Decay gain
	ldy #_decaykbd
	lda (inst_ptr),y	; get address
	sta NDA1+1		; **** Self modify

	ldy #_decaykbd+defLen
	lda (inst_ptr),y	; get address
	sta NDA2+1		; **** Self modify

	lda <VKey
	cmp #97
	blt sub_off

	lda #96
sub_off	sec
	sbc #36		; remove 3 octave offset
	asl A
	tay

NDA1	lda ND0,y		; *** addr gets modified
	sta <addDky1,x
NDA2	lda ND0,y		; *** addr gets modified
	sta <addDky2,x


	lda #$FFFF
	sta <sus_flag,x	; allow sustain switch
	stz <sus_hold,x	; note still pressed


* copy pitch bend multiplier addr to VCB

	ldy #_pbend
	lda (inst_ptr),y	; get address
	sta <PBaddr,x
	ldy #_pbflag
	lda (inst_ptr),y	; get flag
	sta <PBflag,x


* All thats left is to compute the pitch.

	jsr Set_Freq


****************************************************************
* By the time we get here, everything is ready to go.
* just start the oscillators and clean up.


	shortm

	lda <theOsc
	clc
	adc #doc_ctrl

	sta >GAdrL
	lda >SysVol
	ora #GptrInc	; auto inc
	sta >GStatReg
	ldy #wp_ctrl
	lda (Awaveptr),y	; now get the 1 mode bytes
	sta >GDataReg
	lda (Bwaveptr),y
	sta >GDataReg
	ldy #wp_ctrl+defLen
	lda (Awaveptr),y	; now get the 2 mode bytes
	sta >GDataReg
	lda (Bwaveptr),y
	sta >GDataReg


	longm

* now we are done munging with the hardware and the data structures.
* Restore the gen to its start priority.


	lda #64		; start priority = 64
	ldy <theGen
	sta Priority,y

	lda #Attack
	sta State,y

	phx
	phy
	jsl >MidiInputPoll
	ply
	plx


	rts



**************************
*
* Set DOC Freq from vcb
*
* x = vcb offset
*
**************************


Set_Freq
	lda <PBaddr,x
	sta pbvec+1		; *** self modifying

	ldy <vcbCH,x	; channel number*2
	lda chPBTbl,y

pbvec	jmp mul00		; *** addr gets modified


add_pb	sta <Temp

	lda <vfreqA,x
	clc
	adc <Temp		; add pitch bend
	tay
	lda [Freq_Tbl],y
	adc <Detune1,x	; add detune to osc A
	sta <FreqA

	lda <vfreqB,x
	clc
	adc <Temp		; add pitch bend
	tay
	lda [Freq_Tbl],y
	sec
	sbc <Detune1,x	; subtract detune from osc B
	sta <FreqB

	lda <vfreq2A,x
	clc
	adc <Temp		; add pitch bend
	tay
	lda [Freq_Tbl],y
	adc <Detune2,x	; add detune to osc A
	sta <Freq2A

	lda <vfreq2B,x
	clc
	adc <Temp		; add pitch bend
	tay
	lda [Freq_Tbl],y
	sec
	sbc <Detune2,x	; subtract detune from osc B
	sta <Freq2B

	shortm

	lda <theOsc
	clc
	adc #doc_freqlo
	sta >GAdrL		; talking to DOC freq lo reg
	lda >SysVol
	ora #GptrInc	; with auto inc
	sta >GStatReg

	lda <FreqA
	sta >GDataReg
	lda <FreqB
	sta >GDataReg
	lda <Freq2A
	sta >GDataReg
	lda <Freq2B
	sta >GDataReg

	lda <theOsc
	adc #doc_freqhi	; now the hi freq
	sta >GAdrL
	lda <FreqA+1
	sta >GDataReg
	lda <FreqB+1
	sta >GDataReg
	lda <Freq2A+1
	sta >GDataReg
	lda <Freq2B+1
	sta >GDataReg

	longm
	rts



****************************
*
* Multiplier for Pitch Bend
*
****************************


PBtbl
	DC.W mul00
	DC.W mul01
	DC.W mul02
	DC.W mul03
	DC.W mul04
	DC.W mul05
	DC.W mul06
	DC.W mul07
	DC.W mul08
	DC.W mul09
	DC.W mul10
	DC.W mul11
	DC.W mul12


mul00	lda #0
	jmp add_pb

mul01	jmp add_pb

mul02	asl A	; x2
	jmp add_pb

mul03	sta <Temp
	asl A
	clc
	adc <Temp	; x2 + x1
	jmp add_pb

mul04	asl A
	asl A	; x4
	jmp add_pb

mul05	sta <Temp
	asl A
	asl A	; x4 + x1
	clc
	adc <Temp
	jmp add_pb

mul06	asl A
	sta <Temp
	asl A
	clc
	adc <Temp	; x2 + x4
	jmp add_pb

mul07	sta <Temp
	asl A
	asl A
	asl A
	sec
	sbc <Temp	; x8 - x1
	jmp add_pb

mul08	asl A
	asl A
	asl A	; x8
	jmp add_pb

mul09	sta <Temp
	asl A
	asl A
	asl A
	clc
	adc <Temp	; x8 + x1
	jmp add_pb

mul10	asl A
	sta <Temp
	asl A
	asl A
	clc
	adc <Temp	; x8 + x2
	jmp add_pb

mul11	sta <Temp
	asl A
	asl A
	asl A
	clc
	adc <Temp
	clc
	adc <Temp
	clc
	adc <Temp	; x8 + x3
	jmp add_pb


mul12	asl A
	asl A
	sta <Temp
	asl A
	clc
	adc <Temp	; x8 + x4
	jmp add_pb



***********************
*
* Divides for vel gain
*
***********************

VGtbl
	DC.W div112
	DC.W div104
	DC.W div96
	DC.W div88
	DC.W div80
	DC.W div72
	DC.W div64
	DC.W div48
	DC.W div32
	DC.W div16
	DC.W div0


* 0
div112	lsr A
	sta <Temp+2
	lsr A
	sta <Temp
	lsr A
	clc
	adc <Temp
	adc <Temp+2
	adc #$10	; Ö2 + Ö4 + Ö8 + $10
	jmp vgg

* 1
div104	lsr A
	sta <Temp+2
	lsr A
	sta <Temp
	lsr A
	lsr A
	clc
	adc <Temp
	adc <Temp+2
	adc #$18	; Ö2 + Ö4 + Ö16 + $18
	jmp vgg

* 2
div96	lsr A
	sta <Temp
	lsr A
	clc
	adc <Temp
	adc #$20	; Ö2 + Ö4 + $20
	jmp vgg

* 3
div88	lsr A
	sta <Temp+2
	lsr A
	lsr A
	sta <Temp
	lsr A
	clc
	adc <Temp+2
	adc <Temp
	adc #$28	; Ö2 + Ö8 + Ö16 + $28
	jmp vgg



* 4
div80	lsr A
	sta <Temp
	lsr A
	lsr A
	clc
	adc <Temp
	adc #$30	; Ö2 + Ö8 + $30
	jmp vgg

* 5
div72	lsr A
	sta <Temp
	lsr A
	lsr A
	lsr A
	clc
	adc <Temp
	adc #$38	; Ö2 + Ö16 + $38
	jmp vgg

* 6
div64	lsr A
	clc
	adc #$40
	jmp vgg	; Ö2 + $40

* 7
div48	lsr A
	lsr A
	sta <Temp
	lsr A
	clc
	adc <Temp
	adc #$50	; Ö4 + Ö8 + $50
	jmp vgg

* 8
div32	lsr A
	lsr A
	clc
	adc #$60	; Ö4 + $60
	jmp vgg

* 9
div16	lsr A
	lsr A
	lsr A
	clc
	adc #$70	; Ö8 + $70
	jmp vgg

* 10
div0	lda #$7F
	jmp vgg	; ° gain = $7F





********************************
*
* Note Tunning Table
*
********************************


*   msb			 lsb
*    0 0 0 X  X X X X  X X x x  x x x 0
*         |		  |__________|-----< Fine 0-31 
*         | 	  |
*         |_______________|----< Semi-tone 36-91

z	equ 64

Note_Tbl_Default
	DC.W 36*z,37*z,38*z,39*z,40*z,41*z,42*z,43*z,44*z,45*z,46*z,47*z	; 0
	DC.W 36*z,37*z,38*z,39*z,40*z,41*z,42*z,43*z,44*z,45*z,46*z,47*z	; 12
	DC.W 36*z,37*z,38*z,39*z,40*z,41*z,42*z,43*z,44*z,45*z,46*z,47*z	; 24
	DC.W 36*z,37*z,38*z,39*z,40*z,41*z,42*z,43*z,44*z,45*z,46*z,47*z	; 36
	DC.W 48*z,49*z,50*z,51*z,52*z,53*z,54*z,55*z,56*z,57*z,58*z,59*z	; 48
	DC.W 60*z,61*z,62*z,63*z,64*z,65*z,66*z,67*z,68*z,69*z,70*z,71*z	; 60
	DC.W 72*z,73*z,74*z,75*z,76*z,77*z,78*z,79*z,80*z,81*z,82*z,83*z	; 72
	DC.W 84*z,85*z,86*z,87*z,88*z,89*z,90*z,91*z,92*z,93*z,94*z,95*z	; 84
	DC.W 96*z,85*z,86*z,87*z,88*z,89*z,90*z,91*z,92*z,93*z,94*z,95*z	; 96
	DC.W 96*z,85*z,86*z,87*z,88*z,89*z,90*z,91*z,92*z,93*z,94*z,95*z	; 108
	DC.W 96*z,85*z,86*z,87*z,88*z,89*z,90*z,91*z			; 120

Note_Tbl
	DC.W 36*z,37*z,38*z,39*z,40*z,41*z,42*z,43*z,44*z,45*z,46*z,47*z	; 0
	DC.W 36*z,37*z,38*z,39*z,40*z,41*z,42*z,43*z,44*z,45*z,46*z,47*z	; 12
	DC.W 36*z,37*z,38*z,39*z,40*z,41*z,42*z,43*z,44*z,45*z,46*z,47*z	; 24
	DC.W 36*z,37*z,38*z,39*z,40*z,41*z,42*z,43*z,44*z,45*z,46*z,47*z	; 36
	DC.W 48*z,49*z,50*z,51*z,52*z,53*z,54*z,55*z,56*z,57*z,58*z,59*z	; 48
	DC.W 60*z,61*z,62*z,63*z,64*z,65*z,66*z,67*z,68*z,69*z,70*z,71*z	; 60
	DC.W 72*z,73*z,74*z,75*z,76*z,77*z,78*z,79*z,80*z,81*z,82*z,83*z	; 72
	DC.W 84*z,85*z,86*z,87*z,88*z,89*z,90*z,91*z,92*z,93*z,94*z,95*z	; 84
	DC.W 96*z,85*z,86*z,87*z,88*z,89*z,90*z,91*z,92*z,93*z,94*z,95*z	; 96
	DC.W 96*z,85*z,86*z,87*z,88*z,89*z,90*z,91*z,92*z,93*z,94*z,95*z	; 108
	DC.W 96*z,85*z,86*z,87*z,88*z,89*z,90*z,91*z			; 120




*************************************************************************
*
* We are looking for a free generator, which
* will be flagged by a 0 priority. If there are none of those, then we
* want the lowest priority generator. We'll keep a variable, called
* min, and keep the min's generator number in x.
*************************************************************************

Allocate
	lda #$FFFF		; initialize min to max
	sta <min
	sta <min_r
	ldy #0

* FOR Y = 0 TO 13; 2+

look	lda Priority,y 	; Get the Priority of osc
	beq found_zero	; got one!

*	bmi sacred		; Can't steal a priority of 128 or more.



	ldx State,y
	cpx #Release
	bne Still_Down	; update min for oldest sustained voice

* "min_r" holds the oldest released voice

	dec a		; make old notes more desirable
	bne over1r		; by decrementing their priority

	inc a		; down to, but not past 1.
over1r
	cmp <min_r
	bge too_high	; If >= min then continue(save new priority).

	sta <min_r		; Else save priority as new min, and
	sty <theGen_r	; hold min's gen num
	bra too_high

* "min" holds the oldest sustained voice

Still_Down
	dec a		; make old notes more desirable
	bne over1		; by decrementing their priority

	inc a		; down to, but not past 1.
over1	cmp <min
	bge too_high	; If >= min then continue(save new priority).

	sta <min		; Else save priority as new min, and
	sty <theGen		; hold min's gen num

too_high	sta Priority,y	; save priority of osc

sacred	iny
	iny							; NEXT Y
	cpy #no_of_gen*2	 	; See If done.	
	bne look		; If not look again.



* if we get here, then there were no free generators. See if there were any
* that had a priority low enough to steal.

* First, try to steal the oldest released voice.

	lda <min_r
	bmi try_other	; no released voices

	ldy <theGen_r
	bra Stole_One

* Next, try for the oldest sustained voice.

try_other	lda <min
	bmi none_avail	; this should never happen!
	ldy <theGen

Stole_One
	sty <theGen
	lda oscTbl,y
	sta <theOsc		; 4 osc per gen

	jsr halt_gen

* When we get here, then y has the gen num of the one we'll give away.

found_zero
	tya
	clc
	rts

none_avail
	sec
	rts







****************************************************************
*	Make_F_Tbl
*
*	Build DOC pitch to freq table
*
*	Inputs:	Freq_Tbl - pointer to 8k mem
*
*	Outputs:	none
*
*
****************************************************************


Shift_Cnt	DC.W 10
Semi_Sav	DC.W 32
Note_Sav	DC.W 12	
Oct_Sav	DC.W 10
toSav	DC.W 0
ftSav	DC.W 0


Make_F_Tbl
	lda #10
	sta Oct_Sav		; 10 octaves
	stz ftSav		; index to result freq table

Oct_LP	stz toSav		; index to top oct table
	lda #12
	sta Note_Sav


Note_Lp	    lda #32
	    sta Semi_Sav

Semi_Lp	        lda Oct_Sav
	        inc A
	        sta Shift_Cnt
	        ldy toSav
	        lda Top_Octave,y	; top octave
	        iny
	        iny
	        sty toSav
Shift_Lp		dec Shift_Cnt
		beq @1

		lsr A
		bra Shift_Lp

@1	        ldy ftSav
	        sta [Freq_Tbl],y	; store to freq_Tbl
	        iny
	        iny
	        sty ftSav

	        dec Semi_Sav
	        bne Semi_Lp

	    dec Note_Sav
	    bne Note_Lp

	dec Oct_Sav
	bne Oct_Lp

	rts




************************
*
* Note - Decay Table
*
************************

ND_Tbl
	DC.W ND0
	DC.W ND1
	DC.W ND2
	DC.W ND3
	DC.W ND4
	DC.W ND5
	DC.W ND6
	DC.W ND7
	DC.W ND8
	DC.W ND9

ddk	equ 1

ndk0	equ 0
ndk1	equ ddk+ndk0
ndk2	equ ddk+ndk1
ndk3	equ ddk+ndk2
ndk4	equ ddk+ndk3
ndk5	equ ddk+ndk4
ndk6	equ ddk+ndk5
ndk7	equ ddk+ndk6
ndk8	equ ddk+ndk7
ndk9	equ ddk+ndk8



ND0
	DC.W ndk0*00,ndk0*00,ndk0*00,ndk0*01,ndk0*01,ndk0*01,ndk0*02,ndk0*02,ndk0*02,ndk0*03
	DC.W ndk0*03,ndk0*03,ndk0*04,ndk0*04,ndk0*05,ndk0*05,ndk0*06,ndk0*06,ndk0*07,ndk0*07
	DC.W ndk0*08,ndk0*08,ndk0*09,ndk0*09,ndk0*10,ndk0*11,ndk0*12,ndk0*13,ndk0*14,ndk0*15
	DC.W ndk0*16,ndk0*17,ndk0*18,ndk0*19,ndk0*20,ndk0*21,ndk0*22,ndk0*24,ndk0*26,ndk0*28
	DC.W ndk0*30,ndk0*32,ndk0*34,ndk0*36,ndk0*38,ndk0*40,ndk0*42,ndk0*44,ndk0*46,ndk0*48
	DC.W ndk0*50,ndk0*52,ndk0*54,ndk0*56,ndk0*58,ndk0*60,ndk0*62,ndk0*64,ndk0*66,ndk0*68
	DC.W ndk0*70

ND1
	DC.W ndk1*00,ndk1*00,ndk1*00,ndk1*01,ndk1*01,ndk1*01,ndk1*02,ndk1*02,ndk1*02,ndk1*03
	DC.W ndk1*03,ndk1*03,ndk1*04,ndk1*04,ndk1*05,ndk1*05,ndk1*06,ndk1*06,ndk1*07,ndk1*07
	DC.W ndk1*08,ndk1*08,ndk1*09,ndk1*09,ndk1*10,ndk1*11,ndk1*12,ndk1*13,ndk1*14,ndk1*15
	DC.W ndk1*16,ndk1*17,ndk1*18,ndk1*19,ndk1*20,ndk1*21,ndk1*22,ndk1*24,ndk1*26,ndk1*28
	DC.W ndk1*30,ndk1*32,ndk1*34,ndk1*36,ndk1*38,ndk1*40,ndk1*42,ndk1*44,ndk1*46,ndk1*48
	DC.W ndk1*50,ndk1*52,ndk1*54,ndk1*56,ndk1*58,ndk1*60,ndk1*62,ndk1*64,ndk1*66,ndk1*68
	DC.W ndk1*70

ND2
	DC.W ndk2*00,ndk2*00,ndk2*00,ndk2*01,ndk2*01,ndk2*01,ndk2*02,ndk2*02,ndk2*02,ndk2*03
	DC.W ndk2*03,ndk2*03,ndk2*04,ndk2*04,ndk2*05,ndk2*05,ndk2*06,ndk2*06,ndk2*07,ndk2*07
	DC.W ndk2*08,ndk2*08,ndk2*09,ndk2*09,ndk2*10,ndk2*11,ndk2*12,ndk2*13,ndk2*14,ndk2*15
	DC.W ndk2*16,ndk2*17,ndk2*18,ndk2*19,ndk2*20,ndk2*21,ndk2*22,ndk2*24,ndk2*26,ndk2*28
	DC.W ndk2*30,ndk2*32,ndk2*34,ndk2*36,ndk2*38,ndk2*40,ndk2*42,ndk2*44,ndk2*46,ndk2*48
	DC.W ndk2*50,ndk2*52,ndk2*54,ndk2*56,ndk2*58,ndk2*60,ndk2*62,ndk2*64,ndk2*66,ndk2*68
	DC.W ndk2*70

ND3
	DC.W ndk3*00,ndk3*00,ndk3*00,ndk3*01,ndk3*01,ndk3*01,ndk3*02,ndk3*02,ndk3*02,ndk3*03
	DC.W ndk3*03,ndk3*03,ndk3*04,ndk3*04,ndk3*05,ndk3*05,ndk3*06,ndk3*06,ndk3*07,ndk3*07
	DC.W ndk3*08,ndk3*08,ndk3*09,ndk3*09,ndk3*10,ndk3*11,ndk3*12,ndk3*13,ndk3*14,ndk3*15
	DC.W ndk3*16,ndk3*17,ndk3*18,ndk3*19,ndk3*20,ndk3*21,ndk3*22,ndk3*24,ndk3*26,ndk3*28
	DC.W ndk3*30,ndk3*32,ndk3*34,ndk3*36,ndk3*38,ndk3*40,ndk3*42,ndk3*44,ndk3*46,ndk3*48
	DC.W ndk3*50,ndk3*52,ndk3*54,ndk3*56,ndk3*58,ndk3*60,ndk3*62,ndk3*64,ndk3*66,ndk3*68
	DC.W ndk3*70

ND4
	DC.W ndk4*00,ndk4*00,ndk4*00,ndk4*01,ndk4*01,ndk4*01,ndk4*02,ndk4*02,ndk4*02,ndk4*03
	DC.W ndk4*03,ndk4*03,ndk4*04,ndk4*04,ndk4*05,ndk4*05,ndk4*06,ndk4*06,ndk4*07,ndk4*07
	DC.W ndk4*08,ndk4*08,ndk4*09,ndk4*09,ndk4*10,ndk4*11,ndk4*12,ndk4*13,ndk4*14,ndk4*15
	DC.W ndk4*16,ndk4*17,ndk4*18,ndk4*19,ndk4*20,ndk4*21,ndk4*22,ndk4*24,ndk4*26,ndk4*28
	DC.W ndk4*30,ndk4*32,ndk4*34,ndk4*36,ndk4*38,ndk4*40,ndk4*42,ndk4*44,ndk4*46,ndk4*48
	DC.W ndk4*50,ndk4*52,ndk4*54,ndk4*56,ndk4*58,ndk4*60,ndk4*62,ndk4*64,ndk4*66,ndk4*68
	DC.W ndk4*70

ND5
	DC.W ndk5*00,ndk5*00,ndk5*00,ndk5*01,ndk5*01,ndk5*01,ndk5*02,ndk5*02,ndk5*02,ndk5*03
	DC.W ndk5*03,ndk5*03,ndk5*04,ndk5*04,ndk5*05,ndk5*05,ndk5*06,ndk5*06,ndk5*07,ndk5*07
	DC.W ndk5*08,ndk5*08,ndk5*09,ndk5*09,ndk5*10,ndk5*11,ndk5*12,ndk5*13,ndk5*14,ndk5*15
	DC.W ndk5*16,ndk5*17,ndk5*18,ndk5*19,ndk5*20,ndk5*21,ndk5*22,ndk5*24,ndk5*26,ndk5*28
	DC.W ndk5*30,ndk5*32,ndk5*34,ndk5*36,ndk5*38,ndk5*40,ndk5*42,ndk5*44,ndk5*46,ndk5*48
	DC.W ndk5*50,ndk5*52,ndk5*54,ndk5*56,ndk5*58,ndk5*60,ndk5*62,ndk5*64,ndk5*66,ndk5*68
	DC.W ndk5*70

ND6
	DC.W ndk6*00,ndk6*00,ndk6*00,ndk6*01,ndk6*01,ndk6*01,ndk6*02,ndk6*02,ndk6*02,ndk6*03
	DC.W ndk6*03,ndk6*03,ndk6*04,ndk6*04,ndk6*05,ndk6*05,ndk6*06,ndk6*06,ndk6*07,ndk6*07
	DC.W ndk6*08,ndk6*08,ndk6*09,ndk6*09,ndk6*10,ndk6*11,ndk6*12,ndk6*13,ndk6*14,ndk6*15
	DC.W ndk6*16,ndk6*17,ndk6*18,ndk6*19,ndk6*20,ndk6*21,ndk6*22,ndk6*24,ndk6*26,ndk6*28
	DC.W ndk6*30,ndk6*32,ndk6*34,ndk6*36,ndk6*38,ndk6*40,ndk6*42,ndk6*44,ndk6*46,ndk6*48
	DC.W ndk6*50,ndk6*52,ndk6*54,ndk6*56,ndk6*58,ndk6*60,ndk6*62,ndk6*64,ndk6*66,ndk6*68
	DC.W ndk6*70

ND7
	DC.W ndk7*00,ndk7*00,ndk7*00,ndk7*01,ndk7*01,ndk7*01,ndk7*02,ndk7*02,ndk7*02,ndk7*03
	DC.W ndk7*03,ndk7*03,ndk7*04,ndk7*04,ndk7*05,ndk7*05,ndk7*06,ndk7*06,ndk7*07,ndk7*07
	DC.W ndk7*08,ndk7*08,ndk7*09,ndk7*09,ndk7*10,ndk7*11,ndk7*12,ndk7*13,ndk7*14,ndk7*15
	DC.W ndk7*16,ndk7*17,ndk7*18,ndk7*19,ndk7*20,ndk7*21,ndk7*22,ndk7*24,ndk7*26,ndk7*28
	DC.W ndk7*30,ndk7*32,ndk7*34,ndk7*36,ndk7*38,ndk7*40,ndk7*42,ndk7*44,ndk7*46,ndk7*48
	DC.W ndk7*50,ndk7*52,ndk7*54,ndk7*56,ndk7*58,ndk7*60,ndk7*62,ndk7*64,ndk7*66,ndk7*68
	DC.W ndk7*70

ND8
	DC.W ndk8*00,ndk8*00,ndk8*00,ndk8*01,ndk8*01,ndk8*01,ndk8*02,ndk8*02,ndk8*02,ndk8*03
	DC.W ndk8*03,ndk8*03,ndk8*04,ndk8*04,ndk8*05,ndk8*05,ndk8*06,ndk8*06,ndk8*07,ndk8*07
	DC.W ndk8*08,ndk8*08,ndk8*09,ndk8*09,ndk8*10,ndk8*11,ndk8*12,ndk8*13,ndk8*14,ndk8*15
	DC.W ndk8*16,ndk8*17,ndk8*18,ndk8*19,ndk8*20,ndk8*21,ndk8*22,ndk8*24,ndk8*26,ndk8*28
	DC.W ndk8*30,ndk8*32,ndk8*34,ndk8*36,ndk8*38,ndk8*40,ndk8*42,ndk8*44,ndk8*46,ndk8*48
	DC.W ndk8*50,ndk8*52,ndk8*54,ndk8*56,ndk8*58,ndk8*60,ndk8*62,ndk8*64,ndk8*66,ndk8*68
	DC.W ndk8*70

ND9
	DC.W ndk9*00,ndk9*00,ndk9*00,ndk9*01,ndk9*01,ndk9*01,ndk9*02,ndk9*02,ndk9*02,ndk9*03
	DC.W ndk9*03,ndk9*03,ndk9*04,ndk9*04,ndk9*05,ndk9*05,ndk9*06,ndk9*06,ndk9*07,ndk9*07
	DC.W ndk9*08,ndk9*08,ndk9*09,ndk9*09,ndk9*10,ndk9*11,ndk9*12,ndk9*13,ndk9*14,ndk9*15
	DC.W ndk9*16,ndk9*17,ndk9*18,ndk9*19,ndk9*20,ndk9*21,ndk9*22,ndk9*24,ndk9*26,ndk9*28
	DC.W ndk9*30,ndk9*32,ndk9*34,ndk9*36,ndk9*38,ndk9*40,ndk9*42,ndk9*44,ndk9*46,ndk9*48
	DC.W ndk9*50,ndk9*52,ndk9*54,ndk9*56,ndk9*58,ndk9*60,ndk9*62,ndk9*64,ndk9*66,ndk9*68
	DC.W ndk9*70





		ENDP



****************************************************************
*
*	MIDICmd	Tool Call
*
*	Inputs: Status, Channel, Data 1, Data 2
*
*	Output: none
*
*
****************************************************************

	EXPORT MIDICmd	
MIDICmd	PROC
	longi on
	longa on
		

	IMPORT ChanQueue
	IMPORT KeyQueue
	IMPORT VolQueue
	IMPORT CmdQueue
	IMPORT TrackQueue

;
;  stack offsets
;
	DefineStack
s_status	byte	; caller's status reg
s_dirpage   word 	; old direct page
s_databank	byte	; old data bank
s_rtl1	block 3	; first rtl address
s_rtl2	block 3	; second rtl address

s_argstart	DSectSize	; start of arguments
s_data2	word 	;  (0-127)
s_data1	word 	;  (0-127)
s_cmd	word 	; MIDI status message
s_bytes	word 	; number of data bytes (0-2)
s_path	word
s_argend	DSectSize	; end of arguments

s_argsize	equ s_argend-s_argstart

* flags
*
* m000 0000 0000 0qs0
*
* m: 1= to MIDI port
* q: 1= to seq
* s: 1= to synth


	phb		; save caller's data bank
	phd		; save caller's direct page
	lda >myDP
	tcd		; set my DP
	phk
	plb		; set my DB
	php		; save caller's IRQ bit
	sei		; hold MIDI from using queue
	
	lda #errNotStarted
	sta ErrMsg
	lda >awake
	beq exit 		; not started, report err.

	stz ErrMsg

	lda s_path,s
	cmp #3
	bge exit

	asl A
	tax
	jmp (vec1,x)

vec1	DC.W Queue_only
	DC.W QandBuf
	DC.W MIDIOnly



* restore the registers, fix the stack

exit	ldx ErrMsg
	plp
	pld	; get old direct reg
	plb	; get old data bank
	PopArgs s_argsize
	txa							; get the error code.
	cmp #1	; set the carry bit.
	rtl


ErrMsg	DC.W 0





QandBuf	lda <SeqFlags
	bit #F_Record
	beql Queue_only	; we're not recording
	
* Put packet into the Queue AND Rec Buffer


@1	lda <RecTrack
	bpl @2
	jmp Queue_only	; no tracks set for recording

* make sure there's enough room in Rec buffer for 1 Seq Item

@2	lda <RecBufEnd
	sec
	sbc <RecBufStart
	cmp #11		; 8 bytes for Seq Item + EOS
	bge GoRec

	lda <RecBufEnd+2
	sbc <RecBufStart+2
	bne GoRec

	lda #RecBufFull
	sta ErrMsg
	jmp Queue_only	; Rec Buffer is FULL!


* Record and play the message

GoRec	ldy #00
	lda <RecTrack
	sta [RecBufStart],y	; Track number
	iny


noQuant	lda <Timer+2
	sta [RecBufStart],y	; hi byte first
	iny
	lda <Timer		; record time in rec buffer
	sta [RecBufStart],y

saveStatus	iny
	iny

	lda s_bytes,s
	sta [RecBufStart],y	; record packet length
	iny

	ldx <QueuePtr
	lda s_cmd,s
	sta [RecBufStart],y	; record msg/ch number
	and #$00F0
	sta CmdQueue,x	; queue status msg

	lda s_cmd,s
	and #$000F
	sta ChanQueue,x	; queue ch number
	iny

	lda s_data1,s
	sta KeyQueue,x
	sta [RecBufStart],y	; 1st data byte
	iny

	lda s_data2,s
	sta VolQueue,x
	sta [RecBufStart],y	; 2nd data byte
	iny
	
	lda #$FFFF
	sta [RecBufStart],y	; end of seq
	
	lda #16		; **** no such Track number
	sta TrackQueue,x

	lda <RecBufStart
	clc
	adc #ItemSize	; number of bytes per seq item
	sta <RecBufStart
	lda <RecBufStart+2
	adc #00
	sta <RecBufStart+2

	inx
	inx
	txa
	and #QueueSize-1
	cmp <QueueOut
	beql Qerror		; Queue is FULL!

	sta <QueuePtr	; Queue points to next open slot

	jmp exit




Queue_only
	ldx <QueuePtr
	lda <s_cmd,s
	and #$00F0
	sta CmdQueue,x

	lda s_cmd,s
	and #$000F
	sta ChanQueue,x

	lda s_data1,s
	sta KeyQueue,x

	lda s_data2,s
	sta VolQueue,x

	lda #16		; **** no such Track number
	sta TrackQueue,x

	inx
	inx
	txa
	and #QueueSize-1
	cmp <QueueOut
	beq Qerror		; Queue is FULL!

	sta <QueuePtr	; Queue points to next open slot

	jmp exit


Qerror	lda #MQFull
	sta ErrMsg
	jmp exit



	IMPORT FillBuffer1

MIDIOnly	lda <OutPortEnable
	bne @1

	lda #MIDIoutOff
	sta ErrMsg
	jmp exit		; MIDI out disabled

@1	iny
	iny
	lda s_bytes,s
	sta <ByteCount	; save for MIDI out

	lda s_cmd,s
	sta <SeqItem

	lda s_data1,s
	sta <SeqItem+1

	lda s_data2,s
	sta <SeqItem+2

	jsr FillBuffer1	; send the packet out (no Call-Back)
	bccl exit		; no errors

	lda #MIDIBufFull	; MIDI out buffer FULL!
	sta ErrMsg
	jmp Exit





	ENDP
	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/MIDISynth/Tables.aii b/IIGS.601.SRC/GSToolbox/MIDISynth/Tables.aii
new file mode 100644
index 0000000..0a61663
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/MIDISynth/Tables.aii
@@ -0,0 +1 @@
+

tables	PROC

	
	EXPORT LogTbl


LogTbl	DC.W 0,0,0,0,0,0,0,0
	DC.W 0,0,0,0,0,0,0,0
	DC.W 0,5,10,15,20,25,29,33
	DC.W 37,41,44,48,51,54,58,61
	DC.W 64,66,69,72,74,77,79,82
	DC.W 84,86,89,91,93,95,97,99
	DC.W 101,103,105,107,108,110,112,114
	DC.W 115,117,118,120,122,123,125,126
	DC.W 128,129,130,132,133,134,136,137
	DC.W 138,140,141,142,143,145,146,147
	DC.W 148,149,150,152,153,154,155,156
	DC.W 157,158,159,160,161,162,163,164
	DC.W 165,166,167,168,169,170,171,171
	DC.W 172,173,174,175,176,177,178,178
	DC.W 179,180,181,182,182,183,184,185
	DC.W 186,186,187,188,189,189,190,191
	DC.W 192,192,193,194,194,195,196,196
	DC.W 197,198,198,199,200,200,201,202
	DC.W 202,203,204,204,205,206,206,207
	DC.W 207,208,209,209,210,210,211,212
	DC.W 212,213,213,214,214,215,216,216
	DC.W 217,217,218,218,219,219,220,220
	DC.W 221,221,222,222,223,223,224,225
	DC.W 225,226,226,227,227,227,228,228
	DC.W 229,229,230,230,231,231,232,232
	DC.W 233,233,234,234,235,235,235,236
	DC.W 236,237,237,238,238,239,239,239
	DC.W 240,240,241,241,242,242,242,243
	DC.W 243,244,244,244,245,245,246,246
	DC.W 246,247,247,248,248,248,249,249
	DC.W 250,250,250,251,251,251,252,252
	DC.W 253,253,253,254,254,254,255,255





	EXPORT ExpTbl

ExpTbl	DC.W 1,1,1,1,1,1,1,1
	DC.W 1,1,1,1,1,1,1,1
	DC.W 1,1,1,1,1,1,1,1
	DC.W 1,1,1,1,1,1,1,2
	DC.W 2,2,2,2,2,2,2,2
	DC.W 2,2,2,2,2,2,2,2
	DC.W 2,2,3,3,3,3,3,3
	DC.W 3,3,3,3,3,3,3,4
	DC.W 4,4,4,4,4,4,4,4
	DC.W 4,4,5,5,5,5,5,5
	DC.W 5,5,6,6,6,6,6,6
	DC.W 6,7,7,7,7,7,7,8
	DC.W 8,8,8,8,8,9,9,9
	DC.W 9,9,10,10,10,10,11,11
	DC.W 11,11,12,12,12,12,13,13
	DC.W 13,14,14,14,14,15,15,16
	DC.W 16,16,17,17,17,18,18,19
	DC.W 19,19,20,20,21,21,22,22
	DC.W 23,23,24,24,25,25,26,26
	DC.W 27,28,28,29,29,30,31,32
	DC.W 32,33,34,34,35,36,37,38
	DC.W 38,39,40,41,42,43,44,45
	DC.W 46,47,48,49,50,51,52,53
	DC.W 54,56,57,58,59,61,62,64
	DC.W 65,66,68,69,71,72,74,76
	DC.W 77,79,81,82,84,86,88,90
	DC.W 92,94,96,98,100,103,105,107
	DC.W 109,112,114,117,119,122,125,128
	DC.W 130,133,136,139,142,145,148,152
	DC.W 155,158,162,165,169,173,177,181
	DC.W 184,189,193,197,201,206,210,215
	DC.W 219,224,229,234,239,245,250,255





* for a doc clock of	892337.5
* middle c is	261.625565	Hz

		EXPORT	Top_Octave

* 0
Top_Octave	DC.W	20905,20943
	DC.W	20981,21018
	DC.W	21056,21094
	DC.W	21133,21171
	DC.W	21209,21247
	DC.W	21286,21324
	DC.W	21363,21401
	DC.W	21440,21479
	DC.W	21518,21556
	DC.W	21595,21634
	DC.W	21673,21713
	DC.W	21752,21791
	DC.W	21831,21870
	DC.W	21909,21949
	DC.W	21989,22028
	DC.W	22068,22108

* 1
	DC.W	22148,22188
	DC.W	22228,22268
	DC.W	22309,22349
	DC.W	22389,22430
	DC.W	22470,22511
	DC.W	22551,22592
	DC.W	22633,22674
	DC.W	22715,22756
	DC.W	22797,22838
	DC.W	22880,22921
	DC.W	22962,23004
	DC.W	23045,23087
	DC.W	23129,23170
	DC.W	23212,23254
	DC.W	23296,23338
	DC.W	23381,23423

* 2
	DC.W	23465,23507
	DC.W	23550,23593
	DC.W	23635,23678
	DC.W	23721,23763
	DC.W	23806,23849
	DC.W	23893,23936
	DC.W	23979,24022
	DC.W	24066,24109
	DC.W	24153,24196
	DC.W	24240,24284
	DC.W	24328,24372
	DC.W	24416,24460
	DC.W	24504,24548
	DC.W	24593,24637
	DC.W	24682,24726
	DC.W	24771,24816

* 3
	DC.W	24860,24905
	DC.W	24950,24995
	DC.W	25041,25086
	DC.W	25131,25177
	DC.W	25222,25268
	DC.W	25313,25359
	DC.W	25405,25451
	DC.W	25497,25543
	DC.W	25589,25635
	DC.W	25681,25728
	DC.W	25774,25821
	DC.W	25868,25914
	DC.W	25961,26008
	DC.W	26055,26102
	DC.W	26149,26196
	DC.W	26244,26291

* 4
	DC.W	26339,26386
	DC.W	26434,26482
	DC.W	26530,26578
	DC.W	26626,26674
	DC.W	26722,26770
	DC.W	26818,26867
	DC.W	26915,26964
	DC.W	27013,27062
	DC.W	27111,27160
	DC.W	27209,27258
	DC.W	27307,27356
	DC.W	27406,27455
	DC.W	27505,27555
	DC.W	27604,27654
	DC.W	27704,27754
	DC.W	27804,27855

*5
	DC.W	27905,27955
	DC.W	28006,28056
	DC.W	28107,28158
	DC.W	28209,28260
	DC.W	28311,28362
	DC.W	28413,28465
	DC.W	28516,28568
	DC.W	28619,28671
	DC.W	28723,28775
	DC.W	28827,28879
	DC.W	28931,28983
	DC.W	29035,29088
	DC.W	29140,29193
	DC.W	29246,29299
	DC.W	29352,29405
	DC.W	29458,29511

* 6
	DC.W	29564,29618
	DC.W	29671,29725
	DC.W	29779,29832
	DC.W	29886,29940
	DC.W	29994,30049
	DC.W	30103,30157
	DC.W	30212,30266
	DC.W	30321,30376
	DC.W	30431,30486
	DC.W	30541,30596
	DC.W	30651,30707
	DC.W	30762,30818
	DC.W	30873,30929
	DC.W	30985,31041
	DC.W	31097,31153
	DC.W	31209,31266

* 7
	DC.W	31322,31379
	DC.W	31436,31492
	DC.W	31549,31606
	DC.W	31663,31721
	DC.W	31778,31835
	DC.W	31893,31950
	DC.W	32008,32066
	DC.W	32124,32182
	DC.W	32240,32298
	DC.W	32357,32415
	DC.W	32474,32532
	DC.W	32591,32650
	DC.W	32709,32768
	DC.W	32827,32887
	DC.W	32946,33006
	DC.W	33065,33125

* 8
	DC.W	33185,33245
	DC.W	33305,33365
	DC.W	33425,33486
	DC.W	33546,33607
	DC.W	33668,33728
	DC.W	33789,33850
	DC.W	33912,33973
	DC.W	34034,34096
	DC.W	34157,34219
	DC.W	34281,34343
	DC.W	34405,34467
	DC.W	34529,34592
	DC.W	34654,34717
	DC.W	34779,34842
	DC.W	34905,34968
	DC.W	35031,35095

* 9
	DC.W	35158,35222
	DC.W	35285,35349
	DC.W	35413,35477
	DC.W	35541,35605
	DC.W	35670,35734
	DC.W	35799,35863
	DC.W	35928,35993
	DC.W	36058,36123
	DC.W	36188,36254
	DC.W	36319,36385
	DC.W	36451,36516
	DC.W	36582,36649
	DC.W	36715,36781
	DC.W	36848,36914
	DC.W	36981,37048
	DC.W	37115,37182

* 10
	DC.W	37249,37316
	DC.W	37384,37451
	DC.W	37519,37587
	DC.W	37654,37722
	DC.W	37791,37859
	DC.W	37927,37996
	DC.W	38064,38133
	DC.W	38202,38271
	DC.W	38340,38410
	DC.W	38479,38548
	DC.W	38618,38688
	DC.W	38758,38828
	DC.W	38898,38968
	DC.W	39039,39109
	DC.W	39180,39251
	DC.W	39322,39393

*11
	DC.W	39464,39535
	DC.W	39606,39678
	DC.W	39750,39822
	DC.W	39894,39966
	DC.W	40038,40110
	DC.W	40183,40255
	DC.W	40328,40401
	DC.W	40474,40547
	DC.W	40620,40694
	DC.W	40767,40841
	DC.W	40915,40988
	DC.W	41062,41137
	DC.W	41211,41285
	DC.W	41360,41435
	DC.W	41510,41585
	DC.W	41660,41735

		ENDP
		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/MIDISynth/ToolCalls.aii b/IIGS.601.SRC/GSToolbox/MIDISynth/ToolCalls.aii
new file mode 100644
index 0000000..77a771b
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/MIDISynth/ToolCalls.aii
@@ -0,0 +1 @@
+
	longi on
	longa on
		
	INCLUDE 'all.macros'
	INCLUDE 'Note.Macros'
	INCLUDE 'ns.equ'




*---------------------------------------------------------------
*
* ROUTINE:	DefineInst 
*
* FUNCTION:	Tool Call #$14
*
* INPUT:	Stack:
*		LONG   - Pointer to Instrument Record
*		WORD   - Instrument number (0-15)
*	      SP ->
*
* OUTPUT:	Error Codes:
*		errNotStarted - MIDI Synth never started.
*		RangeError    - Parameter out of range.
*
* NOTES:	Xfer is incomplete if there is an error.
*
*---------------------------------------------------------------



	EXPORT DefineInst	
DefineInst	PROC


	EXPORT mul320
	EXPORT OCB

	IMPORT PBtbl
	IMPORT VGtbl
	IMPORT ND_Tbl

;
;  stack offsets
;
	DefineStack
s_dirpage   word 	; old direct page
s_databank	byte	; old data bank
s_rtl1	block 3	; first rtl address
s_rtl2	block 3	; second rtl address

s_argstart	DSectSize	; start of arguments
s_number	word 	; Instrument number (0-15)
s_instRec	long 	; Ptr to Instrument Record
s_argend	DSectSize	; end of arguments

s_argsize	equ s_argend-s_argstart




	phb		; save user data bank
	phd		; save user direct page
	lda >myDP
	tcd		; set my DP
	phk
	plb		; set my DB

	ldx #errNotStarted
	lda >awake
	beq exit 		; weren't started, report err.

	ldx #RangeError
	lda s_number,s
	cmp #16
	bge exit		; Inst # > 15

	asl A
	tax
	lda mul320,x	; (0-16) * 320
	clc
	adc #OCB
	sta OCBptr

	lda s_instRec,s
	sta <UserInst
	lda s_instRec+2,s
	sta <UserInst+2

	jsr Copy_Inst

exit	pld		; get old direct reg
	plb		; get old data bank
	PopArgs s_argsize
	txa		; restore error code
	cmp #1		; set carry on error
	rtl

	rtl


OCBptr	DC.W 0

mul320
	DC.W 320*0
	DC.W 320*1
	DC.W 320*2
	DC.W 320*3
	DC.W 320*4
	DC.W 320*5
	DC.W 320*6
	DC.W 320*7
	DC.W 320*8
	DC.W 320*9
	DC.W 320*10
	DC.W 320*11
	DC.W 320*12
	DC.W 320*13
	DC.W 320*14
	DC.W 320*15



***********************************
*
* Copy Instrument Parameters
*
* 'UserInst' points to begining of
*  InstRec (long)
*
* 'OCBptr' points to begining of
*  specified OCB (short) 
*
***********************************


Copy_Inst	php		; save IRQ bit
	sei
	lda <UserInst
	sta UserSav
	lda <UserInst+2
	sta UserSav+2

	jsr GetRec		; Inst Rec #1
	bcs Dinstr		; error!

	lda UserSav
	clc
	adc #InstRecSize
	sta <UserInst
	lda UserSav+2
	adc #0
	sta <UserInst+2	; gen 2

	lda OCBptr
	clc
	adc #OCBsize
	sta OCBptr		; get to gen 2

	jsr GetRec		; Inst Rec #2
	bcs Dinstr		; error!

	ldx #0		; no errors
Dinstr	plp		; restore IRQ bit
	rts






GetRec	
	ldy #Vatk
	lda OCBptr
	tax

	jsr xfer_Bkpt
	jsr xfer_Rate	; segment 0

	jsr xfer_Bkpt
	jsr xfer_Rate	; segment 1

	jsr xfer_Bkpt
	jsr xfer_Rate	; segment 2

	jsr xfer_Bkpt
	jsr xfer_Rate	; segment 3

	stz |_envelope,x
	inx
	stz |_envelope,x	; sustain
	inx
	inx

	jsr xfer_Bkpt
	jsr xfer_Rate	; segment 5

	jsr xfer_Bkpt
	jsr xfer_Rate	; segment 6

	stz |_envelope,x	; always zero
	inx
	jsr xfer_Rate	; segment 7


	lda OCBptr
	tax		; reset OCB ptr

* key decay gain

	ldy #DecayKbd
	lda [UserInst],y
	and #$00FF
	cmp #9
	bgtl OverRange	; over range

	asl A		; table in WORDS
	tay
	lda ND_Tbl,y
	sta |_decaykbd,x


* velocity Gain

	ldy #Vsens
	lda [UserInst],y
	and #$00FF
	cmp #10
	bgtl OverRange	; over range

	asl A
	tay
	lda VGtbl,y
	sta |_vs,x

* Pitch Pend

	ldy #PBend
	lda [UserInst],y
	and #$00FF
	cmp #12
	bgtl OverRange		; over range

	asl A
	tay
	sta |_pbflag,x
	lda PBtbl,y
	sta |_pbend,x



* pre-calc the wavelist from Osc Rec


	lda #8		; 8 wavelists
	sta wlcount

next_wl	shortm

	ldy #TopKey
	lda [UserInst],y
	cmp #127
	bgtl OverRange	; over range

	sta |_topkey,x

	iny		; Alg
	lda [UserInst],y
	cmp #5
	bgtl OverRange	; over range

	asl A
	phx
	tax

	longm
	shortx
	lda ModeTbl,x	; a = ctrl A, b = ctrl B

	shortm
	longx

	plx
	sta |_ctrlA,x	; control A
	xba
	sta |_ctrlB,x	; control B

	iny		; Channel
	lda [UserInst],y
	cmp #7
	bgtl OverRange	; over range

	asl A
	asl A
	asl A
	asl A
	pha
	ora |_ctrlA,x
	sta |_ctrlA,x
	pla
	ora |_ctrlB,x
	sta |_ctrlB,x

	iny		; Detune
	lda [UserInst],y
	cmp #63
	bgtl OverRange	; over range

	sta |_detune,x

	iny		; Addr A
	lda [UserInst],y
	sta |_addrA,x


	iny		; Size A
	lda [UserInst],y
	cmp #7
	bgtl OverRange	; over range

	phx
	tax
	shortx
	lda SizRes,x
	longx
	plx
	sta |_sizeA,x

	iny		; Vol A
	lda [UserInst],y
	cmp #127
	bgtl OverRange	; over range

	sta |_volA,x

	iny		; Oct A
	lda [UserInst],y
	cmp #6
	bgtl OverRange	; over range

	asl A		; table WORD size
	phx
	tax

	shortx
	longm

	lda Oct_Tbl,x
	sta <Temp
	longx
	plx
	iny		; Semi A
	lda [UserInst],y
	and #$00FF
	cmp #11
	bgtl OverRange	; over range

	and #$00FF
	xba
	lsr A
	lsr A
	clc
	adc <Temp
	sta |_pitchA,x

	iny		; Fine A
	lda [UserInst],y
	and #$00FF
	cmp #63
	bgtl OverRange	; over range

	and #$003E		; ***** 0-63
*	asl A
	ora |_pitchA,x
	sta |_pitchA,x

	shortm


	iny		; Addr B
	lda [UserInst],y
	sta |_addrB,x

	iny		; Size B
	lda [UserInst],y
	cmp #7
	bgtl OverRange	; over range

	phx
	tax
	shortx
	lda SizRes,x
	longx
	plx
	sta |_sizeB,x

	iny		; Vol B
	lda [UserInst],y
	cmp #127
	bgtl OverRange	; over range

	sta |_volB,x

	iny		; Oct B
	lda [UserInst],y
	asl A		; table WORD size
	phx
	tax
	shortx

	longm

	lda Oct_Tbl,x
	sta <Temp
	longx
	plx
	iny		; Semi A
	lda [UserInst],y
	and #$00FF
	cmp #11
	bgtl OverRange	; over range

	xba
	lsr A
	lsr A
	clc
	adc <Temp
	sta |_pitchB,x

	iny		; Fine A
	lda [UserInst],y
	and #$00FF
	cmp #63
	bgtl OverRange	; over range

	and #$003E		; ***** 0-63
*	asl A
	ora |_pitchB,x
	sta |_pitchB,x


	lda <UserInst
	clc
	adc #OscRecSize
	sta <UserInst
	lda <UserInst+2
	adc #0
	sta <UserInst+2	; next osc rec

	txa
	clc
	adc #8
	tax		; next wavelist

	dec wlcount
	bnel next_wl

	clc		; no errors
	rts






xfer_Bkpt	shortm
	lda [UserInst],y
	cmp #127
	bgt OOR		; out of range

	sta |_envelope,x	; breakpoint
	inx
	iny
	longm
	rts


OOR	longmx
	pla		; pull return address
	ldx #RangeError
	sec
	rts

OverRange	longmx
	ldx #RangeError
	sec
	rts


xfer_Rate	shortm
	lda [UserInst],y
	cmp #31
	bgt OOR		; out of range

	lda #31
	sec
	sbc [UserInst],y

	longm

	and #$001F
	asl A
	phx
	tax
	lda Time_Tbl,x
	plx
	sta |_envelope,x	; ramp

	iny		; next InstRec env vol
	inx
	inx
	rts



wlcount	DC.W 8
UserSav	DC.L 0
OCBsav	DC.W 0


zz	equ 64

Oct_Tbl	DC.W -36*zz,-24*zz,-12*zz,0,12*zz,24*zz,36*zz


SizRes	DC.B %000000	; 0 = 256
	DC.B %001000	; 1 = 512
	DC.B %010000	; 2 = 1024
	DC.B %011011	; 3 = 2048
	DC.B %100100	; 4 = 4096
	DC.B %101101	; 5 = 8192
	DC.B %110110	; 6 = 16k
	DC.B %111111	; 7 = 32k



ModeTbl	DC.B $00,$00	; 0 = Loop, Loop
	DC.B $02,$00	; 1 = 1-shot, Loop
	DC.B $02,$02	; 2 = 1-shot, 1-shot
	DC.B $06,$01	; 3 = swap, Loop (halted)
	DC.B $06,$03	; 4 = swap, 1-shot (halted)
	DC.B $06,$07	; 5 = swap, swap (halted)


*************************
*
* Envelope Step Table
* 5ms sampling rate
*
*************************


Time_Tbl
	DC.W 32767	; 0.00 sec
	DC.W 16383	;  .01
	DC.W 8191	;  .02
	DC.W 5461	;  .03
	DC.W 4095	;  .04
	DC.W 3276	;  .05
	DC.W 2730	;  .06
	DC.W 2047   ;  .08
	DC.W 1820	;  .09
	DC.W 1365	;  .12
	DC.W 1023	;  .16
	DC.W 910	;  .18
	DC.W 712	;  .23
	DC.W 585	;  .28
	DC.W 511	;  .32
	DC.W 381	;  .43
	DC.W 303	;  .54
	DC.W 255	;  .64
	DC.W 199	;  .82
	DC.W 160	; 1.02
	DC.W 130	; 1.26
	DC.W 105	; 1.56
	DC.W 84	; 1.93
	DC.W 68	; 2.39
	DC.W 55	; 2.96
	DC.W 44	; 3.66
	DC.W 36	; 4.52
	DC.W 29	; 5.59
	DC.W 23	; 6.92
	DC.W 19	; 8.55
	DC.W 15	;10.53
	DC.W 12	;13.08


OCB	DS.B (OCBsize*2)*16

	ENDP







*---------------------------------------------------------------
*
* ROUTINE:	SynthPlayer 
*
* FUNCTION:	Tool Call #$15
*
* INPUT:	Stack:
*		LONG   - Pointer to Seq Data Record
*	      SP ->
*
* OUTPUT:	Error Codes:
*		errNotStarted - MIDI Synth never started.
*
* NOTES:	
*
*---------------------------------------------------------------

SynthPlayer	PROC EXPORT

	IMPORT BeatTicks
	IMPORT FAflag
	EXPORT ClockSource
	EXPORT FirstPass
;
;  stack offsets
;
	DefineStack
s_dirpage   word 	; old direct page
s_databank	byte	; old data bank
s_rtl1	block 3	; first rtl address
s_rtl2	block 3	; second rtl address

s_argstart	DSectSize	; start of arguments
s_data	Long 	; Seq  Data pointer
s_argend	DSectSize	; end of arguments

s_argsize	equ s_argend-s_argstart


* Seq Data Record

PbufStart	equ 0
PbufEnd	equ 4
RbufStart	equ 8
RbufEnd	equ 12
theFlags	equ 16
theClock	equ 18


* Seq Flags



	lda >awake
	bne @1

	ldx #errNotStarted 	; weren't started, report err.
	jmp exit		; exit and return error.

@1
	phb		; save user data bank
	phd		; save user direct page
	lda >myDP
	tcd		; set my DP
	phk
	plb		; set my DB

	lda s_data,s
	sta <dataPtr
	lda s_data+2,s
	sta <dataPtr+2

	ldy #theClock
	lda [dataPtr],y
	sta ClockSav
	iny
	iny
	lda [dataPtr],y
	sta ClockSav+2

	ldy #theFlags
	lda [dataPtr],y
	sta FlagSav

	php
	sei

	bit #F_Record+F_Play
	beql StopSeq	; stop the seq

	bit #F_Play
	beq set_record

	ldy #PbufStart
	lda [dataPtr],y
	sta <PlayBufStart
	iny
	iny
	lda [dataPtr],y
	sta <PlayBufStart+2

	lda FlagSav
set_record	bit #F_Record
	beq set_Metro

	ldy #RbufStart
	lda [dataPtr],y
	sta <RecBufStart
	iny
	iny
	lda [dataPtr],y
	sta <RecBufStart+2
	iny
	iny
	lda [dataPtr],y
	sta <RecBufEnd
	iny
	iny
	lda [dataPtr],y
	sta <RecBufEnd+2

	lda FlagSav
set_Metro	bit #F_Metro
	beq set_Clock

	jsr InitMetro

set_Clock
	stz <Timer_Frac
	lda ClockSav
	sta <Timer
	lda ClockSav+2
	and #$00FF		; since its only 24 bits
	sta <Timer+2

	stz <Meter		; fraction (0x xx . xx)
	stz <Meter+1	; 1st beat happens when seq starts

* Set the seq flags

	stz <Seq_Status	; might be modified later

	lda FlagSav
	and #$007F		; beats to count off
	sta <CountDown
	beq @1		; no count off

	lda <Seq_Status
	ora #SS_CountOff
	sta <Seq_Status	; let synth know to count down

@1	lda FlagSav
	and #F_KStart
	beq @2		; no key wait

	lda <Seq_Status
	ora #SS_KStart
	sta <Seq_Status	; let synth know to to wait for key


@2	lda FlagSav
	sta <SeqFlags

	and #F_clock
	sta ClockSource

	lda #1
	sta FirstPass	; starting seq

	stz FAflag		; MIDI 'start' not rcvd

noSeq	plp

	pld		; get old direct reg
	plb		; get old data bank
	ldx #0
exit
	PopArgs s_argsize

	txa		; restore error code
	cmp #1		; set carry on error
	rtl


* Set the seq flags for STOP

StopSeq	stz <Seq_Status
	stz <SeqFlags
	stz FAflag		; MIDI 'start' not rcvd
	stz FirstPass	; @@@@@
	bra noSeq





FlagSav	DC.W 0
ClockSav	DC.L 0
ClockSource	DC.W 0
FirstPass	DC.W 0




InitMetro

* Set Metro DOC

	shortm
	lda >SysVol
	sta >GStatReg		; no inc, to doc

	lda #doc_ctrl+Metro_Osc
	sta >GAdrL
	lda #doc_halt_reset
	sta >GDataReg

	lda #doc_addr+Metro_Osc
	sta >GAdrL
	lda #$00			; page 0
	sta >GDataReg

	lda #doc_size+Metro_Osc
	sta >GAdrL
	lda #$08			; 2 pages
	sta >GDataReg

	lda #doc_freqlo+Metro_Osc	; set frequency of the
	sta >GAdrL			; Metro osc
	lda <MetroFreq
	sta >GDataReg
	lda #doc_freqhi+Metro_Osc
	sta >GAdrL
	lda <MetroFreq+1
	sta >GDataReg

	lda #doc_vol+Metro_Osc
	sta >GAdrL
	lda <MetroVol		; Metro volume
	sta >GDataReg

	longm

	rts



	ENDP






*---------------------------------------------------------------
*
* ROUTINE:	SetRecTrack 
*
* FUNCTION:	Tool Call #$0E
*
* INPUT:	Stack:
*		WORD   - Track Number (0-15)
*	      SP ->
*
* OUTPUT:	Error Codes:
*		errNotStarted - MIDI Synth never started.
*		RangeError    - Parameter out of range.
*
* NOTES:	
*
*---------------------------------------------------------------

SetRecTrack	PROC EXPORT


;
;  stack offsets
;
	DefineStack
s_dirpage   word 	; old direct page
s_databank	byte	; old data bank
s_rtl1	block 3	; first rtl address
s_rtl2	block 3	; second rtl address

s_argstart	DSectSize	; start of arguments
s_track	word 	; track number
s_argend	DSectSize	; end of arguments

s_argsize	equ s_argend-s_argstart



	lda >awake
	bne @1

	ldx #errNotStarted 	; weren't started, report err.
	jmp exit		; exit and return error.

@1
	phb		; save user data bank
	phd		; save user direct page
	lda >myDP
	tcd		; set my DP
	phk
	plb		; set my DB

	ldx #RangeError	; in case....
	lda s_track,s
	cmp #$000F
	bgt exit1		; its over range.
	
	sta <RecTrack
	ldx #0		; no errors
exit1	pld		; get old direct reg
	plb		; get old data bank
exit
	PopArgs s_argsize

	txa		; restore error code
	cmp #1	; set carry on error
	rtl



	ENDP









*---------------------------------------------------------------
*
* ROUTINE:	SetPlayTrack 
*
* FUNCTION:	Tool Call #$0F
*
* INPUT:	Stack:
*		WORD   - Track Number (0-15)
*		WORD   - Track Mode (0 = Play)
*	      SP ->
*
* OUTPUT:	Error Codes:
*		errNotStarted - MIDI Synth never started.
*		RangeError    - Parameter out of range.
*
* NOTES:	
*
*---------------------------------------------------------------

SetPlayTrack PROC EXPORT

	EXPORT PlayTrack
	IMPORT KillTrack


;  stack offsets

	DefineStack
s_dirpage   word 	; old direct page
s_databank	byte	; old data bank
s_rtl1	block 3	; first rtl address
s_rtl2	block 3	; second rtl address

s_argstart	DSectSize	; start of arguments
s_state	word	; 0 = don't play
s_track	word 	; track number
s_argend	DSectSize	; end of arguments

s_argsize	equ s_argend-s_argstart




	lda >awake
	bne @1

	ldx #errNotStarted 	; weren't started, report err.
	jmp exit		; exit and return error.

@1
	phb		; save user data bank
	phd		; save user direct page
	lda >myDP
	tcd		; set my DP
	phk
	plb		; set my DB

	ldx #RangeError
	lda s_track,s
	cmp #$000F		; 16 tracks
	bgt exit1		; over range!

	asl A		; table is in WORDs
	tax
	lda s_state,s
	bne TurnOn		; turning track ON

* Turn the Track OFF

	lda PlayTrack,x
	beq GetOut		; track is already OFF

	lda #0
	sta PlayTrack,x	; turn it off
	lda s_track,s	; get track number
	jsr KillTrack	; turn OFF all active notes for this track
	bra GetOut

TurnOn	sta PlayTrack,x

GetOut	ldx #0
exit1	pld		; get old direct reg
	plb		; get old data bank
exit
	PopArgs s_argsize

	txa		; restore error code
	cmp #1		; set carry on error
	rtl

PlayTrack	DC.W 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0


	ENDP




*---------------------------------------------------------------
*
* ROUTINE:	SeTrackOut 
*
* FUNCTION:	Tool Call #$26
*
* INPUT:	Stack:
*		WORD   - Track Number (0-15)
*		WORD   - Track Out State (0-2)
*	      SP ->
*
* OUTPUT:	Error Codes:
*		errNotStarted - MIDI Synth never started.
*		RangeError    - Parameter out of range.
*
* NOTES:	
* 	Track Out State:   0000 00ms
*
*	     m   s
* 	    -------
*	     0   0	   Both MIDI and Synth On
* 	     0   1	   Midi ON, synth OFF
* 	     1   0	   synth ON, Midi OFF
*
*---------------------------------------------------------------

SeTrackOut PROC EXPORT

	EXPORT SeqOutState
	IMPORT KillTrack


;  stack offsets

	DefineStack
s_dirpage   word 	; old direct page
s_databank	byte	; old data bank
s_rtl1	block 3	; first rtl address
s_rtl2	block 3	; second rtl address

s_argstart	DSectSize	; start of arguments
s_state	word
s_track	word 	; track number
s_argend	DSectSize	; end of arguments

s_argsize	equ s_argend-s_argstart




	lda >awake
	bne @1

	ldx #errNotStarted 	; weren't started, report err.
	jmp exit		; exit and return error.

@1
	phb		; save user data bank
	phd		; save user direct page
	lda >myDP
	tcd		; set my DP
	phk
	plb		; set my DB

	ldx #RangeError
	lda s_state,s
	cmp #$0002		; 0,1 or 2
	bgt exit1		; over range!

	lda s_track,s
	cmp #$000F		; 16 tracks
	bgt exit1		; over range!

	asl A		; table is in WORDs
	tax
	lda s_state,s
	sta SeqOutState,x

	lda s_track,s	; get track number
	jsr KillTrack	; turn OFF all active notes for this track

	ldx #0
exit1	pld		; get old direct reg
	plb		; get old data bank
exit
	PopArgs s_argsize

	txa		; restore error code
	cmp #1		; set carry on error
	rtl

SeqOutState	DC.W 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0


	ENDP










*---------------------------------------------------------------
*
* ROUTINE:	TrackToChannel 
*
* FUNCTION:	Tool Call #$10
*
* INPUT:	Stack:
*		WORD   - Track Number (0-15)
*		WORD   - Channel Number (0-15)
*	      SP ->
*
* OUTPUT:	Error Codes:
*		errNotStarted - MIDI Synth never started.
*		RangeError    - Parameter out of range.
*
* NOTES:	
*
*---------------------------------------------------------------

TrackToChannel PROC EXPORT

	EXPORT TChanList
	IMPORT KillTrack

;  stack offsets

	DefineStack
s_dirpage   word 	; old direct page
s_databank	byte	; old data bank
s_rtl1	block 3	; first rtl address
s_rtl2	block 3	; second rtl address

s_argstart	DSectSize	; start of arguments
s_chan	word	; channel number
s_track	word 	; track number
s_argend	DSectSize	; end of arguments

s_argsize	equ s_argend-s_argstart


	lda >awake
	bne @1

	ldx #errNotStarted 	; weren't started, report err.
	jmp exit		; exit and return error.

@1	phb		; save user data bank
	phd		; save user direct page
	lda >myDP
	tcd		; set my DP
	phk
	plb		; set my DB

	ldx #RangeError
	lda s_track,s
	cmp #$000F		; 16 tracks
	bgt exit1		; over range!

	asl A		; table is in WORDs
	tay
	lda s_chan,s
	cmp #$000F		; 16 channels
	ble @2

	bpl exit1		; over range!

@2	sta TChanList,y
	lda s_track,s	; get track number
	jsr KillTrack	; turn OFF all active notes for this track

	ldx #0
exit1	pld	; get old direct reg
	plb	; get old data bank
exit
	PopArgs s_argsize

	txa	; restore error code
	cmp #1	; set carry on error
	rtl

TChanList	DC.W -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1



	ENDP







*---------------------------------------------------------------
*
* ROUTINE:	SetBeat 
*
* FUNCTION:	Tool Call #$19
*
* INPUT:	Stack:
*		WORD   - Ticks per Beat
*	      SP ->
*
* OUTPUT:	Error Codes:
*		errNotStarted - MIDI Synth never started.
*
* NOTES:	
*
*---------------------------------------------------------------

SetBeat	PROC EXPORT

	EXPORT BeatTicks

;
;  stack offsets
;
	DefineStack
s_dirpage   word 	; old direct page
s_databank	byte	; old data bank
s_rtl1	block 3	; first rtl address
s_rtl2	block 3	; second rtl address

s_argstart	DSectSize	; start of arguments
s_beat	word 	; ticks per beat
s_argend	DSectSize	; end of arguments

s_argsize	equ s_argend-s_argstart


	lda >awake
	bne @1

	ldx #errNotStarted 	; weren't started, report err.
	jmp exit		; exit and return error.

@1	phb		; save user data bank
	phd		; save user direct page
	lda >myDP
	tcd		; set my DP
	phk
	plb		; set my DB

	lda s_beat,s
	sta BeatTicks

	pld		; get old direct reg
	plb		; get old data bank
	ldx #0
exit
	PopArgs s_argsize

	txa		; restore error code
	cmp #1		; set carry on error
	rtl

	rtl


BeatTicks	DC.W 96



	ENDP








*---------------------------------------------------------------
*
* ROUTINE:	SetTempo 
*
* FUNCTION:	Tool Call #$16
*
* INPUT:	Stack:
*		WORD   - Tempo (0-255)
*	      SP ->
*
* OUTPUT:	Error Codes:
*		errNotStarted - MIDI Synth never started.
*		RangeError    - Parameter out of range.
*
* NOTES:	
*
*---------------------------------------------------------------

SetTempo	PROC EXPORT

	IMPORT TempoTbl
	EXPORT GetTempo

;
;  stack offsets
;
	DefineStack
s_dirpage   word 	; old direct page
s_databank	byte	; old data bank
s_rtl1	block 3	; first rtl address
s_rtl2	block 3	; second rtl address

s_argstart	DSectSize	; start of arguments
s_tempo	word 	; Tempo
s_argend	DSectSize	; end of arguments

s_argsize	equ s_argend-s_argstart


	lda >awake
	bne @1

	ldx #errNotStarted 	; weren't started, report err.
	jmp exit		; exit and return error.

@1	phb		; save user data bank
	phd		; save user direct page
	lda >myDP
	tcd		; set my DP
	phk
	plb		; set my DB

	ldx #RangeError
	lda s_tempo,s
	cmp #256
	bge exit1		; over range!

	sta <TempoBPM	; save for SetRelTempo
	jsr GetTempo

	ldx #0		; no errors
exit1	pld		; get old direct reg
	plb		; get old data bank
exit	PopArgs s_argsize

	txa		; restore error code
	cmp #1		; set carry on error
	rtl



GetTempo	and #$00FF
	asl A
	tax
	lda TempoTbl,x

	php
	sei

	sta <Tempo

	plp
	rts



	ENDP









*---------------------------------------------------------------
*
* ROUTINE:	GetMSData 
*
* FUNCTION:	Tool Call #$1F
*
* INPUT:	none
*
* OUTPUT:	LONG - Pointer to MIDI Synth Direct Page
*	Error Codes:
*		errNotStarted - MIDI Synth never started.
*
* NOTES:	
*
*---------------------------------------------------------------


GetMSData	PROC EXPORT

	IMPORT FastTbl

;
;  stack offsets
;
	DefineStack
s_dirpage   word 	; old direct page
s_databank	byte	; old data bank
s_rtl1	block 3	; first rtl address
s_rtl2	block 3	; second rtl address

s_argstart	DSectSize	; start of arguments
s_argend	DSectSize	; end of arguments

s_DP	long	; address of direct page
s_FTbl	long	; address of 'FastTbl'

s_argsize	equ s_argend-s_argstart


	lda >awake
	bne @1

	ldx #errNotStarted 	; weren't started, report err.
	jmp exit		; exit and return error.

@1
	phb		; save user data bank
	phd		; save user direct page
	lda >myDP
	tcd		; set my DP
	phk
	plb		; set my DB

	lda >myDP
	sta s_DP,s
	lda #0
	sta s_DP+2,s

	lda #FastTbl
	sta s_FTbl,s
	lda #^FastTbl
	sta s_FTbl+2,s

	pld	; get old direct reg
	plb	; get old data bank
	ldx #0
exit
*	PopArgs s_argsize

	txa	; restore error code
	cmp #1	; set carry on error
	rtl

	ENDP











*******************************
*
* Set Metronome parameters
*
*******************************
*---------------------------------------------------------------
*
* ROUTINE:	SetMetro 
*
* FUNCTION:	Tool Call #$1E
*
* INPUT:	Stack:
*		WORD   - Metro Volume (0-255)
*		WORD   - Metro freq (0-$FFFF)
*		LONG   - Pointer to Metro wave (512 bytes)
*	      SP ->
*
* OUTPUT:	Error Codes:
*		errNotStarted - MIDI Synth never started.
*		RangeError    - Parameter out of range.
*
* NOTES:	
*
*---------------------------------------------------------------


SetMetro	PROC EXPORT


;
;  stack offsets
;
	DefineStack
s_dirpage   word 	; old direct page
s_databank	byte	; old data bank
s_rtl1	block 3	; first rtl address
s_rtl2	block 3	; second rtl address

s_argstart	DSectSize	; start of arguments
s_wave	long 	; Metro waveform (512 bytes)
s_freq	word 	; Metro frequency (0-$FFFF)
s_volume	word 	; Metro volume (0-$FF)
s_argend	DSectSize	; end of arguments

s_argsize	equ s_argend-s_argstart


	lda >awake
	bne @1

	ldx #errNotStarted 	; weren't started, report err.
	jmp exit		; exit and return error.

@1	phb		; save user data bank
	phd		; save user direct page
	lda >myDP
	tcd		; set my DP
	phk
	plb		; set my DB

	ldx #RangeError
	lda s_volume,s
	bne @2
	lda #MetroDefaultVol	; if =0, use default
@2	cmp #255
	bgt exit1

	shortm
	sta <MetroVol
	longm

	lda s_freq,s
	bne @3
	lda #MetroDefaultFreq	; if =0, use default
@3	sta <MetroFreq

	lda s_wave,s
	ora s_wave+2,s
	beq @4		; use default if zero

	lda s_wave,s
	sta <NewSource
	lda s_wave+2,s
	sta <NewSource+2
	bra @5

@4	lda #<WoodBlock
	sta <NewSource
	lda #^WoodBlock
	sta <NewSource+2

@5	jsr SetUpMetro

	ldx #0
exit1	pld		; get old direct reg
	plb		; get old data bank
exit	PopArgs s_argsize

	txa		; restore error code
	cmp #1		; set carry on error
	rtl



SetUpMetro

* Page 1 and 2 of DOC ram is "tick" source

	lda #$0000		; the addr Ensoniq ram location to write
	sta >GAdrL
	shortm
	lda #GptrInc+GRamsel	; enable ram access & auto incr.
	ora >SysVol		; include the system volume
	sta >GStatReg
	ldy #0

writeeloop	lda [NewSource],y
	sta >GDataReg
	iny
	cpy #512 
	bne writeeloop


* Set Metro DOC

	lda >SysVol
	sta >GStatReg		; no inc, to doc

	lda #doc_ctrl+Metro_Osc
	sta >GAdrL
	lda #doc_halt_reset
	sta >GDataReg

	lda #doc_addr+Metro_Osc
	sta >GAdrL
	lda #$00			; page 0
	sta >GDataReg

	lda #doc_size+Metro_Osc
	sta >GAdrL
	lda #$08			; 2 pages
	sta >GDataReg

	lda #doc_freqlo+Metro_Osc	; set frequency of the
	sta >GAdrL			; Metro osc
	lda <MetroFreq
	sta >GDataReg
	lda #doc_freqhi+Metro_Osc
	sta >GAdrL
	lda <MetroFreq+1
	sta >GDataReg

	lda #doc_vol+Metro_Osc
	sta >GAdrL
	lda <MetroVol		; Metro volume
	sta >GDataReg

	longm

	rts


WoodBlock	DC.B $82,$81,$82,$81,$80,$81,$80,$7E,$80,$8C,$9C,$9C,$85,$68,$55,$4F
	DC.B $51,$51,$5D,$75,$88,$9F,$C7,$E4,$D9,$A1,$72,$84,$A8,$A6,$8C,$71
	DC.B $62,$49,$18,$01,$22,$5B,$7C,$88,$97,$A9,$B1,$B5,$BC,$C7,$C4,$A7
	DC.B $8F,$94,$9D,$8E,$69,$47,$37,$31,$35,$48,$5D,$66,$68,$6D,$7F,$A2
	DC.B $CD,$EE,$F6,$DE,$BA,$96,$6E,$52,$56,$6B,$6A,$49,$2D,$31,$43,$51
	DC.B $5D,$71,$8A,$9A,$AC,$CE,$F0,$F2,$CB,$99,$88,$98,$A1,$89,$5E,$39
	DC.B $25,$13,$0D,$27,$55,$79,$89,$9D,$BA,$C8,$C2,$B7,$BB,$C1,$B1,$95
	DC.B $85,$86,$7D,$5C,$3C,$37,$46,$5B,$73,$86,$88,$7C,$71,$75,$84,$96
	DC.B $AC,$B8,$AD,$9D,$95,$87,$70,$65,$74,$8C,$8E,$87,$8C,$88,$6B,$50
	DC.B $50,$68,$81,$8C,$93,$8F,$79,$67,$68,$7A,$93,$A9,$BA,$BE,$AC,$93
	DC.B $82,$78,$78,$7E,$86,$84,$6F,$5A,$52,$4D,$4A,$56,$71,$90,$A5,$AD
	DC.B $AC,$A0,$93,$94,$A2,$B0,$B1,$A6,$96,$7D,$5D,$44,$38,$3E,$54,$6E
	DC.B $82,$84,$7C,$77,$7D,$89,$98,$AC,$C0,$C7,$BD,$A8,$8D,$71,$5D,$5A
	DC.B $61,$67,$6A,$6A,$65,$60,$63,$6F,$81,$96,$AB,$B6,$B4,$A9,$97,$86
	DC.B $7C,$7A,$7C,$80,$81,$7E,$74,$66,$5C,$5A,$67,$7F,$91,$99,$99,$94
	DC.B $8D,$88,$86,$8C,$94,$97,$94,$87,$78,$69,$5F,$62,$6F,$7F,$8B,$93
	DC.B $93,$87,$79,$74,$7C,$87,$95,$A3,$A5,$96,$83,$75,$6D,$6A,$71,$80
	DC.B $8C,$8D,$84,$76,$6C,$69,$6B,$77,$87,$93,$96,$8F,$85,$84,$87,$8A
	DC.B $8F,$94,$98,$98,$8F,$7E,$70,$69,$69,$6D,$72,$74,$74,$73,$74,$73
	DC.B $76,$83,$92,$9F,$A7,$A7,$9E,$92,$8A,$86,$84,$84,$84,$82,$79,$6A
	DC.B $5A,$51,$55,$63,$76,$89,$96,$9E,$A0,$9D,$98,$93,$91,$90,$90,$8E
	DC.B $89,$80,$72,$66,$61,$64,$6F,$78,$7C,$7E,$81,$85,$89,$8A,$8C,$91
	DC.B $94,$98,$98,$91,$89,$81,$7D,$7A,$78,$75,$74,$73,$72,$73,$74,$78
	DC.B $82,$8C,$90,$8E,$8E,$8D,$89,$86,$87,$88,$89,$87,$83,$7E,$79,$77
	DC.B $78,$79,$7B,$7E,$82,$84,$7F,$79,$78,$7B,$80,$87,$8D,$8F,$91,$8F
	DC.B $8B,$86,$82,$83,$87,$85,$7E,$79,$77,$77,$76,$77,$7A,$7F,$82,$80
	DC.B $7E,$82,$87,$8A,$89,$89,$90,$95,$93,$8D,$85,$7F,$7A,$74,$6E,$6E
	DC.B $73,$78,$78,$78,$7B,$82,$89,$90,$95,$98,$95,$8D,$86,$80,$7D,$7D
	DC.B $7F,$80,$7F,$7B,$78,$77,$77,$79,$7B,$7E,$85,$89,$88,$88,$89,$8C
	DC.B $8C,$89,$88,$89,$87,$83,$7C,$76,$74,$77,$79,$7C,$81,$85,$86,$83
	DC.B $81,$82,$85,$86,$85,$87,$89,$86,$81,$7E,$7F,$80,$7F,$81,$84,$85
	DC.B $83,$83,$82,$81,$82,$84,$82,$7F,$80,$80,$7D,$7B,$7B,$7F,$84,$86

	ENDP






*---------------------------------------------------------------
*
* ROUTINE:	SetVelComp 
*
* FUNCTION:	Tool Call #$12
*
* INPUT:	Stack:
*		WORD   - Velocity Offset (0-127)
*	      SP ->
*
* OUTPUT:	Error Codes:
*		errNotStarted - MIDI Synth never started.
*		RangeError    - Parameter out of range.
*
* NOTES:	
*
*---------------------------------------------------------------

SetVelComp	PROC EXPORT


;
;  stack offsets
;
	DefineStack
s_dirpage   word 	; old direct page
s_databank	byte	; old data bank
s_rtl1	block 3	; first rtl address
s_rtl2	block 3	; second rtl address

s_argstart	DSectSize	; start of arguments
s_offset	word 	; velocity offset
s_argend	DSectSize	; end of arguments

s_argsize	equ s_argend-s_argstart




	lda >awake
	bne @1

	ldx #errNotStarted 	; weren't started, report err.
	jmp exit		; exit and return error.

@1	phb		; save user data bank
	phd		; save user direct page
	lda >myDP
	tcd		; set my DP
	phk
	plb		; set my DB

	ldx #RangeError
	lda s_offset,s
	cmp #$007F
	bgt exit1		; out of range!

	sta <VelOffset

	ldx #0		; no errors
exit1	pld		; get old direct reg
	plb		; get old data bank
exit	PopArgs s_argsize

	txa		; restore error code
	cmp #1		; set carry on error
	rtl

	rtl






	ENDP







*---------------------------------------------------------------
*
* ROUTINE:	SetUserCallBack 
*
* FUNCTION:	Tool Call #$17
*
* INPUT:	Stack:
*		LONG   - Pointer to CallBack vectors
*	      SP ->
*
* OUTPUT:	Error Codes:
*		errNotStarted - MIDI Synth never started.
*
* NOTES:	
*
*---------------------------------------------------------------


SetUserCallBack PROC EXPORT

	IMPORT EndSeq
	IMPORT UserMeter
	IMPORT User_Stop
	IMPORT User_Start
	IMPORT PacketIN
	IMPORT GotItem
	IMPORT UserSysEx
	IMPORT UserMout
	IMPORT User_Pgm
	IMPORT User_Cont
	IMPORT RecBuffFull
	IMPORT SMarker

	EXPORT SetCB

;
;  stack offsets
;
	DefineStack
s_status	byte
s_dirpage   word 	; old direct page
s_databank	byte	; old data bank
s_rtl1	block 3	; first rtl address
s_rtl2	block 3	; second rtl address

s_argstart	DSectSize	; start of arguments
s_cbtbl	LONG 	; user call back table
s_argend	DSectSize	; end of arguments

s_argsize	equ s_argend-s_argstart



	lda >awake
	bne @1

	ldx #errNotStarted 	; weren't started, report err.
	jmp exit		; exit and return error.

@1	phb		; save user data bank
	phd		; save user direct page
	lda >myDP
	tcd		; set my DP
	phk
	plb		; set my DB

	php
	sei
	lda s_cbtbl,s
	sta <BufPtr
	lda s_cbtbl+2,s
	sta <BufPtr+2

	jsr SetCB
	plp

	pld	; get old direct reg
	plb	; get old data bank
	ldx #0
exit
	PopArgs s_argsize

	txa	; restore error code
	cmp #1	; set carry on error
RtlAddr	rtl




SetCB	php
	sei

	ldy #mupdate+1
	lda [BufPtr],y
	sta UserMeter+2
	dey
	ora [BufPtr],y
	bne @10		; valid address
	lda DummyVec
	sta UserMeter
	lda DummyVec+2
	sta UserMeter+2	; disable it, default to 'RTL'
	bra @11
@10	lda [BufPtr],y
	sta UserMeter+1	; Self modifying code to a "jsl XXXXXX"

@11	ldy #usend+1
	lda [BufPtr],y
	sta EndSeq+2	; Set the Play Seq End Call
	dey
	ora [BufPtr],y
	bne @12		; valid address
	lda DummyVec
	sta EndSeq
	lda DummyVec+2
	sta EndSeq+2	; disable it, default to 'RTL'
	bra @13
@12	lda [BufPtr],y
	sta EndSeq+1	; Self modifying code to a "jsl XXXXXX"

@13	ldy #Mstart+1
	lda [BufPtr],y
	sta User_Start+2	; Set the MIDI Start Call
	dey
	ora [BufPtr],y
	bne @14		; valid address
	lda DummyVec
	sta User_Start
	lda DummyVec+2
	sta User_Start+2	; disable it, default to 'RTL'
	bra @15
@14	lda [BufPtr],y
	sta User_Start+1	; Self modifying code to a "jsl XXXXXX"

@15	ldy #Mstop+1
	lda [BufPtr],y
	sta User_Stop+2	; Set the MIDI Stop Call
	dey
	ora [BufPtr],y
	bne @16		; valid address
	lda DummyVec
	sta User_Stop
	lda DummyVec+2
	sta User_Stop+2	; disable it, default to 'RTL'
	bra @17
@16	lda [BufPtr],y
	sta User_Stop+1	; Self modifying code to a "jsl XXXXXX"

@17	ldy #MPin+1
	lda [BufPtr],y
	sta PacketIN+2	; Set the Packet IN Call
	dey
	ora [BufPtr],y
	bne @18		; valid address
	lda DummyVec
	sta PacketIN
	lda DummyVec+2
	sta PacketIN+2	; disable it, default to 'RTL'
	bra @19
@18	lda [BufPtr],y
	sta PacketIN+1	; Self modifying code to a "jsl XXXXXX"

@19	ldy #Sevent+1
	lda [BufPtr],y
	sta GotItem+2	; Set the seq item play
	dey
	ora [BufPtr],y
	bne @20		; valid address
	lda DummyVec
	sta GotItem
	lda DummyVec+2
	sta GotItem+2	; disable it, default to 'RTL'
	bra @21
@20	lda [BufPtr],y
	sta GotItem+1	; Self modifying code to a "jsl XXXXXX"

@21	ldy #sx+1
	lda [BufPtr],y
	sta UserSysEx+2	; Set the seq item play
	dey
	ora [BufPtr],y
	bne @22		; valid address
	lda DummyVec
	sta UserSysEx
	lda DummyVec+2
	sta UserSysEx+2	; disable it, default to 'RTL'
	bra @23
@22	lda [BufPtr],y
	sta UserSysEx+1	; Self modifying code to a "jsl XXXXXX"

@23	ldy #MPout+1
	lda [BufPtr],y
	sta UserMout+2	; Set the seq item play
	dey
	ora [BufPtr],y
	bne @24		; valid address
	lda DummyVec
	sta UserMout
	lda DummyVec+2
	sta UserMout+2	; disable it, default to 'RTL'
	bra @25
@24	lda [BufPtr],y
	sta UserMout+1	; Self modifying code to a "jsl XXXXXX"

@25	ldy #Pchg+1
	lda [BufPtr],y
	sta User_Pgm+2	; Set the seq item play
	dey
	ora [BufPtr],y
	bne @26		; valid address
	lda DummyVec
	sta User_Pgm
	lda DummyVec+2
	sta User_Pgm+2	; disable it, default to 'RTL'
	bra @27
@26	lda [BufPtr],y
	sta User_Pgm+1	; Self modifying code to a "jsl XXXXXX"

@27	ldy #MCont+1
	lda [BufPtr],y
	sta User_Cont+2	; Set the seq item play
	dey
	ora [BufPtr],y
	bne @28		; valid address
	lda DummyVec
	sta User_Cont
	lda DummyVec+2
	sta User_Cont+2	; disable it, default to 'RTL'
	bra @29
@28	lda [BufPtr],y
	sta User_Cont+1	; Self modifying code to a "jsl XXXXXX"

@29	ldy #Smark+1
	lda [BufPtr],y
	sta SMarker+2	; Set the seq item play
	dey
	ora [BufPtr],y
	bne @30		; valid address
	lda DummyVec
	sta SMarker
	lda DummyVec+2
	sta SMarker+2	; disable it, default to 'RTL'
	bra @31
@30	lda [BufPtr],y
	sta SMarker+1	; Self modifying code to a "jsl XXXXXX"

@31	ldy #RBfull+1
	lda [BufPtr],y
	sta RecBuffFull+2	; Set the seq item play
	dey
	ora [BufPtr],y
	bne @32		; valid address
	lda DummyVec
	sta RecBuffFull
	lda DummyVec+2
	sta RecBuffFull+2	; disable it, default to 'RTL'
	bra @33
@32	lda [BufPtr],y
	sta RecBuffFull+1	; Self modifying code to a "jsl XXXXXX"

@33
	plp
	rts

	EXPORT DummyVec

DummyVec	Jsl RtlAddr

	ENDP








*---------------------------------------------------------------
*
* ROUTINE:	Locate 
*
* FUNCTION:	Tool Call #$11
*
* INPUT:	Stack:
*		LONG   - Time (ticks)
*		LONG   - Pointer to Seq Buffer
*	      SP ->
*
* OUTPUT:	LONG - Address of time-stamp match
*	Error Codes:
*		errNotStarted - MIDI Synth never started.
*
* NOTES:	
*
*---------------------------------------------------------------

Locate	PROC EXPORT


;
;  stack offsets
;
	DefineStack
s_dirpage   word 	; old direct page
s_databank	byte	; old data bank
s_rtl1	block 3	; first rtl address
s_rtl2	block 3	; second rtl address

s_argstart	DSectSize	; start of arguments
s_buffer	long	; buffer start address
s_time	long 	; clock time
s_argend	DSectSize	; end of arguments

s_location	long	; result address

s_argsize	equ s_argend-s_argstart




	lda >awake
	bne @1

	ldx #errNotStarted 	; weren't started, report err.
	jmp exit		; exit and return error.

@1
	phb		; save user data bank
	phd		; save user direct page
	lda >myDP
	tcd		; set my DP
	phk
	plb		; set my DB

	lda s_buffer,s
	sta <BufPtr
	lda s_buffer+2,s
	sta <BufPtr+2

	lda s_time,s
	sta SeqTime
	lda s_time+2,s
	sta SeqTime+2

	jsr SearchMem

	lda <BufPtr
	sta s_location,s
	lda <BufPtr+2
	sta s_location+2,s	; return mem address


	pld	; get old direct reg
	plb	; get old data bank
	ldx #0
exit
	PopArgs s_argsize

	txa	; restore error code
	cmp #1	; set carry on error
	rtl



**************************************
*
* Search seq memory for time-stamp match
*
* INPUT: BufPtr = start address
*        Buffer must end with end-of-seq ($FFFF)
*
*        SeqTime = target time
*
*  OUTPUT: BufPtr = result address
*
**************************************

	EXPORT SearchMem
	EXPORT SeqTime


SearchMem	lda [BufPtr]
	cmp #$FFFF
	bne notEnd

stopSearch	rts		; found match

notEnd
	ldy #1		; skip track number
	lda [BufPtr],y	; test hi byte first
	and #$00FF
	cmp SeqTime+2
	beq msbMatch	; for speed, since this will happen most often
	blt nextPacket
	bra stopSearch	; crossed msb boundry
			
msbMatch	iny
	lda [BufPtr],y
	cmp SeqTime		; test low word
	bge stopSearch	; up to or past the point

nextPacket	lda <BufPtr
	clc
	adc #ItemSize	; number of bytes per seq item
	sta <BufPtr
	bcc SearchMem

	inc <BufPtr+2
	bra SearchMem

SeqTime	DC.L 0


	ENDP








*---------------------------------------------------------------
*
* ROUTINE:	LocateEnd 
*
* FUNCTION:	Tool Call #$1B
*
* INPUT:	Stack:
*		LONG   - Pointer to Seq Buffer
*	      SP ->
*
* OUTPUT:	LONG - Address of end-of-seq
*	Error Codes:
*		errNotStarted - MIDI Synth never started.
*
* NOTES:	
*
*---------------------------------------------------------------

LocateEnd	PROC EXPORT


	IMPORT SearchMem
	IMPORT SeqTime


;
;  stack offsets
;
	DefineStack
s_dirpage   word 	; old direct page
s_databank	byte	; old data bank
s_rtl1	block 3	; first rtl address
s_rtl2	block 3	; second rtl address

s_argstart	DSectSize	; start of arguments
s_buffer	long	; buffer start address
s_argend	DSectSize	; end of arguments

s_location	long	; result address

s_argsize	equ s_argend-s_argstart




	lda >awake
	bne @1

	ldx #errNotStarted 	; weren't started, report err.
	jmp exit		; exit and return error.

@1
	phb		; save user data bank
	phd		; save user direct page
	lda >myDP
	tcd		; set my DP
	phk
	plb		; set my DB

	lda s_buffer,s
	sta <BufPtr
	lda s_buffer+2,s
	sta <BufPtr+2

	lda #$FFFF
	sta SeqTime
	lda #$00FF		; set max
	sta SeqTime+2

	jsr SearchMem

	lda <BufPtr
	clc
	adc #2		; set past end-of-seq marker
	sta s_location,s
	lda <BufPtr+2
	adc #00
	sta s_location+2,s	; return mem address


	pld	; get old direct reg
	plb	; get old data bank
	ldx #0
exit
	PopArgs s_argsize

	txa	; restore error code
	cmp #1	; set carry on error
	rtl


	ENDP








*---------------------------------------------------------------
*
* ROUTINE:	Merge 
*
* FUNCTION:	Tool Call #$1C
*
* INPUT:	Stack:
*		LONG   - Pointer to Rec Seq Buffer
*		LONG   - Pointer to Play Seq Buffer
*	      SP ->
*
* OUTPUT:	Error Codes:
*		errNotStarted - MIDI Synth never started.
*
* NOTES:	
*
*---------------------------------------------------------------

Merge	PROC EXPORT

	IMPORT SearchMem


*  stack offsets

	DefineStack
s_dirpage   word 	; old direct page
s_databank	byte	; old data bank
s_rtl1	block 3	; first rtl address
s_rtl2	block 3	; second rtl address

s_argstart	DSectSize	; start of arguments
s_buffer2	long	; Play buffer start address
s_buffer1	long	; Rec buffer start address
s_argend	DSectSize	; end of arguments


s_argsize	equ s_argend-s_argstart

	lda >awake
	bne @1

	ldx #errNotStarted 	; weren't started, report err.
	jmp exit		; exit and return error.

@1	phb		; save user data bank
	phd		; save user direct page
	lda >myDP
	tcd		; set my DP
	phk
	plb		; set my DB

	lda s_buffer1,s
	sta NewStart
	lda s_buffer1+2,s
	sta NewStart+2

	lda s_buffer2,s
	sta OldStart
	sta <BufPtr
	lda s_buffer2+2,s
	sta OldStart+2
	sta <BufPtr+2

	lda #$FFFF
	sta SeqTime
	lda #$00FF		; set max
	sta SeqTime+2

	jsr SearchMem

	cmpl BufPtr,OldStart
	bne @2		; items in dest buffer

	jsr Virgin		; copy source to dest buffer
	bra @3

@2	DecPtr2 8,BufPtr,OldSource	; begining of last play item

	lda NewStart
	sta <BufPtr
	lda NewStart+2
	sta <BufPtr+2
	lda [BufPtr]
	cmp #$FFFF
	beq @3		; skip merge, no items in rec buffer

	jsr SearchMem
	DecPtr2 8,BufPtr,NewSource	; begining of last rec item

	lda <BufPtr
	sec
	sbc NewStart
	sta TimeL
	lda <BufPtr+2
	sbc NewStart+2
	sta TimeH		; length of Rec buffer

	lda <OldSource
	clc
	adc TimeL
	sta <Dest
	lda OldSource+2
	adc TimeH
	sta <Dest+2		; Play buf end + len of Rec buf

	ldy #8		; go to new end
	lda #$FFFF
	sta [Dest],y	; store end marker
	
	jsr doMerge

@3	pld	; get old direct reg
	plb	; get old data bank
	ldx #0
exit
	PopArgs s_argsize

	txa	; restore error code
	cmp #1	; set carry on error
	rtl







doMerge	
	ldy #2
	lda [NewSource]
	and #$FF00
	sta TimeH
	lda [NewSource],y
	sta TimeL

* Check for time-stamp match

MvLoop	
	lda [OldSource]
	and #$FF00		; high time byte
	cmp TimeH
	bgt MoveIt		; not there, move item

	lda [OldSource],y	; low time word
	cmp TimeL
	bgt MoveIt		; not there, move item

* insert seq item from Rec buffer into Play buffer

UseRec	lda [NewSource]
	sta [Dest]		; 1st word
	lda [NewSource],y
	sta [Dest],y	; 2nd word
	iny
	iny
	lda [NewSource],y
	sta [Dest],y	; 3rd word
	iny
	iny
	lda [NewSource],y
	sta [Dest],y	; 4th word

	DecPtr 8,Dest
	DecPtr 8,NewSource

	cmpl NewSource,NewStart
	bge doMerge

 
	rts


* move seq item over

MoveIt	lda [OldSource]
	sta [Dest]		; 1st word
	lda [OldSource],y
	sta [Dest],y	; 2nd word
	iny
	iny
	lda [OldSource],y
	sta [Dest],y	; 3rd word
	iny
	iny
	lda [OldSource],y
	sta [Dest],y	; 4th word

	cmpl OldSource,OldStart	; at dest buf start?
	beq MoveRest	; yes. Move remaining New source items.

	DecPtr 8,Dest
	DecPtr 8,OldSource
	ldy #2
	jmp MvLoop
	

MoveRest	DecPtr 8,Dest	; point to next free loc
	ldy #2

	lda [NewSource]
	sta [Dest]		; 1st word
	lda [NewSource],y
	sta [Dest],y	; 2nd word
	iny
	iny
	lda [NewSource],y
	sta [Dest],y	; 3rd word
	iny
	iny
	lda [NewSource],y
	sta [Dest],y	; 4th word

	DecPtr 8,NewSource

	cmpl NewSource,NewStart
	bge MoveRest

	rts







* Dest buffer has no seq items in it
* copy Rec to Play buffer

Virgin	lda NewStart
	sta <NewSource
	lda NewStart+2
	sta <NewSource+2

	lda OldStart
	sta <Dest
	lda OldStart+2
	sta <Dest+2

Vloop	ldy #2
	lda [NewSource]
	bpl more

	sta [Dest]		; end-of-seq marker
	rts

more
	sta [Dest]		; 1st word
	lda [NewSource],y
	sta [Dest],y	; 2nd word
	iny
	iny
	lda [NewSource],y
	sta [Dest],y	; 3rd word
	iny
	iny
	lda [NewSource],y
	sta [Dest],y	; 4th word
	IncPtr 8,Dest
	IncPtr 8,NewSource

	bra Vloop



TimeL	DC.W 0
TimeH	DC.W 0
NewStart	DC.L 0
OldStart	DC.L 0





	ENDP





*---------------------------------------------------------------
*
* ROUTINE:	DeleteTrack 
*
* FUNCTION:	Tool Call #$1D
*
* INPUT:	Stack:
*		WORD   - Track Number (0-15)
*		LONG   - Pointer to Seq Buffer
*	      SP ->
*
* OUTPUT:	Error Codes:
*		errNotStarted - MIDI Synth never started.
*		RangeError    - Parameter out of range.
*
* NOTES:	Remove all Seq Items with given track number
*
*---------------------------------------------------------------


DeleteTrack	PROC EXPORT

;
;  stack offsets
;
	DefineStack
s_dirpage   word 	; old direct page
s_databank	byte	; old data bank
s_rtl1	block 3	; first rtl address
s_rtl2	block 3	; second rtl address

s_argstart	DSectSize	; start of arguments
s_buffer	long	; buffer start address
s_track	word	; track to delete
s_argend	DSectSize	; end of arguments

s_bufend	long	; new buffer end (after end marker)

s_argsize	equ s_argend-s_argstart


	lda >awake
	bne @1

	ldx #errNotStarted 	; weren't started, report err.
	jmp exit		; exit and return error.

@1	phb		; save user data bank
	phd		; save user direct page
	lda >myDP
	tcd		; set my DP
	phk
	plb		; set my DB

	lda s_buffer,s
	sta <NewSource
	sta <OldSource
	lda s_buffer+2,s
	sta <NewSource+2
	sta <OldSource+2

	ldx #RangeError
	lda s_track,s	; Track number
	cmp #15
	bgt exit1		; over range!

	sta <Dest

	jsr Remove

	lda NewSource
	sta s_bufend,s
	lda NewSource+2
	sta s_bufend+2,s	; return with new buffer end

	ldx #0
exit1	pld		; get old direct reg
	plb		; get old data bank
exit	PopArgs s_argsize
	txa		; restore error code
	cmp #1		; set carry on error
	rtl





BufDone	sta [NewSource]	; insert EOS
	IncPtr 2,NewSource	; move ptr past EOS
	rts

* Search buffer until first item is found WITH our track number

CheckNext	IncPtr 8,OldSource
	IncPtr 8,NewSource	; keep both pointers the same

Remove	lda [OldSource]
	cmp #$FFFF
	beq BufDone		; buffer had no items with our track number

	and #$00FF		; get track number
	cmp <Dest
	bne CheckNext	; item not our track number


* Search buffer until first item is found WITHOUT our track number


RmvLoop	IncPtr 8,OldSource	; point ahead to next item and maybe move it

*  check track number - skip moving it if its our track

	lda [OldSource]
	cmp #$FFFF
	beq BufDone

	and #$00FF		; get track number
	cmp <Dest
	beq RmvLoop		; item is our track number

MoveIt	ldy #2
	lda [OldSource]
	sta [NewSource]	; 1st word
	lda [OldSource],y
	sta [NewSource],y	; 2nd word
	iny
	iny
	lda [OldSource],y
	sta [NewSource],y	; 3rd word
	iny
	iny
	lda [OldSource],y
	sta [NewSource],y	; 4th word

	IncPtr 8,NewSource	; point to next free item slot
	bra RmvLoop

 

	ENDP







*---------------------------------------------------------------
*
* ROUTINE:	CalcTime 
*
* FUNCTION:	Tool Call #$20
*
* INPUTS:	Ticks/beat		WORD
*	Beats/measure	WORD
*	Beat number		WORD
*	Measure number	WORD
*
* OUTPUT:	Clock ticks		LONG  
*
*	Error Codes:
*		errNotStarted - MIDI Synth never started.
*		RangeError    - Parameter out of range.
*
* NOTES:	
*
*---------------------------------------------------------------

CalcTime	PROC EXPORT


;
;  stack offsets
;
	DefineStack
s_dirpage   word 	; old direct page
s_databank	byte	; old data bank
s_rtl1	block 3	; first rtl address
s_rtl2	block 3	; second rtl address

s_argstart	DSectSize	; start of arguments
s_measure	word	; measure number (1-999)
s_beat	word 	; beat (1-99)
s_bpm	word	; Beats per measure (1-99)
s_beatticks	word	; ticks per beat
s_argend	DSectSize	; end of arguments

s_time	long	; result clock ticks

s_argsize	equ s_argend-s_argstart


	lda >awake
	bne @1

	ldx #errNotStarted 	; weren't started, report err.
	jmp exit		; exit and return error.

@1	phb		; save user data bank
	phd		; save user direct page
	lda >myDP
	tcd		; set my DP
	phk
	plb		; set my DB

	ldx #RangeError	; in case a parameter is over range
	lda s_bpm,s
	cmp #99
	bgt exit1		; 'BPM' over range!
	lda s_measure,s
	cmp #999
	bgt exit1		; 'measure' over range!
	lda s_beat,s
	cmp #99
	bgt exit1		; 'beat' over range!

	lda s_beatticks,s
	sta M1
	lda s_bpm,s
	sta M2
	jsr Multiply
	lda Result
	sta M1
	lda Result+2
	sta M1+2		; M1 = clock ticks for 1 measure

	lda s_measure,s
	dec A
	sta M2
	jsr Multiply
	lda Result		; ticks/measure * # of measures
	sta s_time,s
	lda Result+2
	sta s_time+2,s	; hold it

	lda s_beatticks,s
	sta M1
	lda s_beat,s
	dec A
	sta M2
	jsr Multiply
	lda Result
	clc
	adc s_time,s
	sta s_time,s
	lda Result+2
	adc s_time+2,s
	sta s_time+2,s

	ldx #0		; no errors
exit1	pld		; get old direct reg
	plb		; get old data bank
exit	PopArgs s_argsize
	txa		; restore error code
	cmp #1		; set carry on error
	rtl






***********************
*
* 16 bit Multiply
*
* M1 * M2 -> Result
*
* 16 x 16 -> 32
*
***********************


Multiply	
	lda M2	; move second input into
	sta Result	; result

	lda #0	; zero a-reg

	ldy #17	; start y (our counter and 17)
	clc

Mult1	ror a
	ror Result
	bcc Mult2
	clc
	adc M1

Mult2	dey
	bne Mult1
	sta Result+2

	rts


M1	DC.W 0
M2	DC.W 0
Result	DC.L 0



	ENDP







*---------------------------------------------------------------
*
* ROUTINE:	CalcMeasure 
*
* FUNCTION:	Tool Call #$21
*
* INPUT:	Ticks/beat		WORD
*	Beats/measure	WORD
*	Clock ticks		LONG 
*
* OUTPUT:	Measure number	WORD
*	Beat number		WORD
*	Fraction		WORD 
* 
*	Error Codes:
*		errNotStarted - MIDI Synth never started.
*		RangeError    - Parameter out of range.
*
* NOTES:	
*
*---------------------------------------------------------------

CalcMeasure	PROC EXPORT


;
;  stack offsets
;
	DefineStack
s_dirpage   word 	; old direct page
s_databank	byte	; old data bank
s_rtl1	block 3	; first rtl address
s_rtl2	block 3	; second rtl address

s_argstart	DSectSize	; start of arguments
s_time	long	; clock ticks
s_bpm	word	; Beats per measure (1-99)
s_beatticks	word	; ticks per beat
s_argend	DSectSize	; end of arguments

s_measure	word	; measure number (1-999)
s_beat	word 	; beat (1-99)
s_rem	word	; remainder clock ticks

s_argsize	equ s_argend-s_argstart




	lda >awake
	bne @1

	ldx #errNotStarted 	; weren't started, report err.
	jmp exit		; exit and return error.

@1
	phb		; save user data bank
	phd		; save user direct page
	lda >myDP
	tcd		; set my DP
	phk
	plb		; set my DB

	ldx #RangeError
	lda s_bpm,s
	cmp #99
	bgt exit1		; 'bpm' over range!

	lda s_time,s
	sta LNum
	lda s_time+2,s
	sta LNum+2

	lda s_beatticks,s
	sta LDenom
	jsr Div32		; time Ö beatticks = total number of beats

	lda LQuot
	sta Numerator
	lda s_bpm,s
	sta Denom
	jsr Div16		; total number of beats Ö beats per measure

	lda Quotient
	inc A		; since 1st measure is 1 (not zero)
	sta s_measure,s
	lda Remainder
	inc A		; since 1st beat is 1 (not zero)
	sta s_beat,s
	lda LRem
	sta s_rem,s

	ldx #0
exit1	pld		; get old direct reg
	plb		; get old data bank
exit	PopArgs s_argsize
	txa		; restore error code
	cmp #1		; set carry on error
	rtl



Denom	DC.W 0
Numerator	DC.L 0
Quotient	DC.W 0
Remainder	DC.W 0


Div16
	stz Remainder	; Zero high result
	lda Denom		; Divide by zero ?
	bne GoOn		; Nope
	sec		; divide by zero *
	rtl

GoOn
	lda Numerator	; move numerator into
	sta Quotient	; Result
	ldy #16
	sec		; set this to start?

DivLoop	rol Quotient
	rol Remainder
	sec
	lda Remainder
	sbc Denom
	bcc DecCt

	sta Remainder
DecCt	dey
	bne DivLoop

	rol Quotient	; Shift last carry through for Quot
	clc
	rts


LDenom	DC.L 0
LNum	DC.L 0
LQuot	DC.L 0
LRem	DC.L 0


Div32	lda LNum		; move numerator into
	sta LQuot		; Result
	lda LNum+2
	sta LQuot+2
	stz LRem		; zero high result
	stz LRem+2
	lda LDenom
	ora LDenom+2
	bne GoOn0

	sec		; divide by zero *
	bra Done0

GoOn0
	ldy #32
	sec		; set this to start?
DivLp	rol LQuot
	rol LQuot+2
	rol LRem
	rol LRem+2
	sec
	lda LRem
	sbc LDenom
	tax
	lda LRem+2
	sbc LDenom+2
	bcc DecrCnt
	sta LRem+2
	stx LRem
DecrCnt	dey
	bne DivLp
	rol LQuot	; Shift carry through for Quot
	rol LQuot+2

Done0	rts





*---------------------------------------------------------------
*
* ROUTINE:	MSResume 
*
* FUNCTION:	Tool Call #$23
*
* INPUT:	none
*
* OUTPUT:	Error Codes: errNotStarted - MIDI Synth never started.
*
* NOTES:	
*
*---------------------------------------------------------------


MSResume	PROC EXPORT

	IMPORT MSstate

	lda >awake
	bne @1

	ldx #errNotStarted 	; weren't started, report err.
	jmp exit		; exit and return error.

@1
	phb		; save user data bank
	phd		; save user direct page
	lda >myDP
	tcd		; set my DP
	phk
	plb		; set my DB

	shortm
	php		; save status
	sei		; no interupts while using DOC Glue.
		 
	lda >SysVol
	sta >GStatReg	; no inc, to doc
	lda #doc_ctrl+timer_osc
	sta >GAdrL
	lda #doc_irq_bit	; free run, interrupts
	sta >GDataReg

	plp							; reenable interupts.
	longmx

	lda #1
	sta MSstate		; Tick IRQ's are ON again


	ldx #0
exit1	pld		; get old direct reg
	plb		; get old data bank
exit	txa		; restore error code
	cmp #1		; set carry on error
	rtl

	ENDP


*---------------------------------------------------------------
*
* ROUTINE:	MSSuspend 
*
* FUNCTION:	Tool Call #$22
*
* INPUT:	none
*
* OUTPUT:	Error Codes: errNotStarted - MIDI Synth never started.
*
* NOTES:	
*
*---------------------------------------------------------------


MSSuspend	PROC EXPORT

	lda >awake
	bne @1

	ldx #errNotStarted 	; weren't started, report err.
	jmp exit		; exit and return error.

@1
	phb		; save user data bank
	phd		; save user direct page
	lda >myDP
	tcd		; set my DP
	phk
	plb		; set my DB

	shortm
	php		; save status
	sei		; no interupts while using DOC Glue.
		 
	lda >SysVol
	sta >GStatReg	; no inc, to doc
	lda #doc_ctrl+timer_osc
	sta >GAdrL
	lda #doc_halt_bit	; Halt, No interrupts
	sta >GDataReg

	plp							; reenable interupts.
	longmx

	stz MSstate		; Tick IRQ's are OFF


	ldx #0
exit1	pld		; get old direct reg
	plb		; get old data bank
exit	txa		; restore error code
	cmp #1		; set carry on error
	rtl


	EXPORT MSstate

MSstate	DC.W 0

	ENDP










*---------------------------------------------------------------
*
* ROUTINE:	SetTuningTable 
*
* FUNCTION:	Tool Call #$24
*
* INPUT:	Stack:
*		LONG   - Pointer to new tuning table (256 bytes)
*
* OUTPUT:	none
*
* NOTES:	
*
*---------------------------------------------------------------

SetTuningTable PROC EXPORT


	IMPORT Note_Tbl
	IMPORT Note_Tbl_Default

	EXPORT SetDefaultNoteTable

;  stack offsets

	DefineStack
s_dirpage   word 	; old direct page
s_databank	byte	; old data bank
s_rtl1	block 3	; first rtl address
s_rtl2	block 3	; second rtl address

s_argstart	DSectSize	; start of arguments
s_table	long	; New tuning table
s_argend	DSectSize	; end of arguments


s_argsize	equ s_argend-s_argstart


	lda >awake
	bne @1

	ldx #errNotStarted 	; weren't started, report err.
	jmp exit		; exit and return error.

@1
	phb		; save user data bank
	phd		; save user direct page
	lda >myDP
	tcd		; set my DP
	phk
	plb		; set my DB

	lda s_table,s
	sta <BufPtr
	lda s_table+2,s
	sta <BufPtr+2

	ldy #$100-2
@2	lda [BufPtr],y	; get new value
	sta Note_Tbl,y	; store in MIDI Synth's table
	dey
	dey
	bpl @2

	pld	; get old direct reg
	plb	; get old data bank
	ldx #0
exit
	PopArgs s_argsize

	txa	; restore error code
	cmp #1	; set carry on error
	rtl


* Init the Note Table. Called at startup.

SetDefaultNoteTable
	ldy #$100-2
@1	lda Note_Tbl_Default,y
	sta Note_Tbl,y	; store in MIDI Synth's table
	dey
	dey
	bpl @1

	rts


	ENDP




*---------------------------------------------------------------
*
* ROUTINE:	GetTuningTable 
*
* FUNCTION:	Tool Call #$25
*
* INPUT:	Stack:
*		LONG   - Pointer to user buffer (256 bytes)
*
* OUTPUT:	none
*
* NOTES:	
*
*---------------------------------------------------------------

GetTuningTable PROC EXPORT


	IMPORT Note_Tbl

;  stack offsets

	DefineStack
s_dirpage   word 	; old direct page
s_databank	byte	; old data bank
s_rtl1	block 3	; first rtl address
s_rtl2	block 3	; second rtl address

s_argstart	DSectSize	; start of arguments
s_table	long	; New tuning table
s_argend	DSectSize	; end of arguments


s_argsize	equ s_argend-s_argstart


	lda >awake
	bne @1

	ldx #errNotStarted 	; weren't started, report err.
	jmp exit		; exit and return error.

@1
	phb		; save user data bank
	phd		; save user direct page
	lda >myDP
	tcd		; set my DP
	phk
	plb		; set my DB

	lda s_table,s
	sta <BufPtr
	lda s_table+2,s
	sta <BufPtr+2

	ldy #$100-2
@2	lda Note_Tbl,y	; get value from MIDI Synth's table
	sta [BufPtr],y	; send it user buffer
	dey
	dey
	bpl @2

	pld		; get old direct reg
	plb		; get old data bank
	ldx #0
exit
	PopArgs s_argsize

	txa		; restore error code
	cmp #1		; set carry on error
	rtl


	ENDP


*---------------------------------------------------------------
*
* ROUTINE:	SysExOut 
*
* FUNCTION:	Tool Call #$18
*
* INPUT:	Stack:
*		LONG   - Pointer to SysEx data
*		WORD   - # of ticks between bytes
*		LONG   - Call-back routine
*		WORD   - # of bytes to xmit before call-back
*
* OUTPUT:	errNotStarted, MIDIoutOff, MessageError
*
*---------------------------------------------------------------

SysExOut PROC EXPORT


	IMPORT FillBufferx
	IMPORT DummyVec

;  stack offsets

	DefineStack
s_dirpage   word 	; old direct page
s_databank	byte	; old data bank
s_rtl1	block 3	; first rtl address
s_rtl2	block 3	; second rtl address

s_argstart	DSectSize	; start of arguments
s_call	long	; call-back
s_delay	word	; # of ticks between bytes
s_data	long	; Pointer to SysEx data
s_argend	DSectSize	; end of arguments


s_argsize	equ s_argend-s_argstart

	
	lda >awake
	bne @1

	ldx #errNotStarted 	; weren't started, report err.
	jmp exit		; exit and return error.

@1
	phb		; save user data bank
	phd		; save user direct page
	lda >myDP
	tcd		; set my DP
	phk
	plb		; set my DB

	ldx #MIDIoutOff
	lda <OutPortEnable
	beql exit1		; MIDI out not enabled!

	lda s_call+1,s
	sta SysExCB+2
	ora s_call,s
	bne @20		; valid address
	lda DummyVec
	sta SysExCB
	lda DummyVec+2
	sta SysExCB+2	; disable it, default to 'RTL'
	bra @21
@20	lda s_call,s
	sta SysExCB+1	; Self modifying code to a "jsl XXXXXX"


@21	lda s_Data,s
	sta <BufPtr
	lda s_Data+2,s
	sta <BufPtr+2

	stz BIndex

	ldx #MessageError
	lda [BufPtr]
	and #$00FF
	cmp #SysEx
	bnel exit1		; 1st byte must be $F0

@2	ldy <OutBufIndex
	cpy <OutStartIndex
	bne @2		; Wait till MIDI out buffer empty

Sloop	jsr FillBufferx

@3	ldy <OutBufIndex
	cpy <OutStartIndex
	bne @3		; Wait for byte to be sent out

	stz <FreeRun
@4	lda s_delay,s
	cmp <FreeRun
	bgt @4		; wait for delay


	phd
	phb
SysExCB	jsl exit
	plb
	pld

getNext	ldy Bindex
	iny
	bne @1

	inc <BufPtr+2
@1	sty Bindex
	lda [BufPtr],y
	and #$00FF
	bit #$0080
	beq Sloop		; looking for EOX

	ldx #MessageError
	cmp #EOX
	bne exit1
	
	jsr FillBufferx

	ldx #0
exit1	pld		; get old direct reg
	plb		; get old data bank
exit
	PopArgs s_argsize

	txa		; restore error code
	cmp #1		; set carry on error
	rtl


Bindex	DC.W 0

	ENDP





******************************
*
*  Tempo Table
*
*  96 ticks per quarter note
*  5ms timebase
*
*******************************


TempoTbl	PROC	EXPORT

K1	equ 134217		; clock inc for 1BBM x 64K
			; 96 x .005
			; ---------   x 256 x 65,536
			;    60


K2	equ 65536		; to scale above equation back to xx.xx

	DC.W (K1*10)/K2
	DC.W (K1*11)/K2
	DC.W (K1*12)/K2
	DC.W (K1*13)/K2
	DC.W (K1*14)/K2
	DC.W (K1*15)/K2
	DC.W (K1*16)/K2
	DC.W (K1*17)/K2
	DC.W (K1*18)/K2
	DC.W (K1*19)/K2
	DC.W (K1*20)/K2
	DC.W (K1*21)/K2
	DC.W (K1*22)/K2
	DC.W (K1*23)/K2
	DC.W (K1*24)/K2
	DC.W (K1*25)/K2
	DC.W (K1*26)/K2
	DC.W (K1*27)/K2
	DC.W (K1*28)/K2
	DC.W (K1*29)/K2
	DC.W (K1*30)/K2
	DC.W (K1*31)/K2
	DC.W (K1*32)/K2
	DC.W (K1*33)/K2
	DC.W (K1*34)/K2
	DC.W (K1*35)/K2
	DC.W (K1*36)/K2
	DC.W (K1*37)/K2
	DC.W (K1*38)/K2
	DC.W (K1*39)/K2
	DC.W (K1*40)/K2
	DC.W (K1*41)/K2
	DC.W (K1*42)/K2
	DC.W (K1*43)/K2
	DC.W (K1*44)/K2
	DC.W (K1*45)/K2
	DC.W (K1*46)/K2
	DC.W (K1*47)/K2
	DC.W (K1*48)/K2
	DC.W (K1*49)/K2
	DC.W (K1*50)/K2
	DC.W (K1*51)/K2
	DC.W (K1*52)/K2
	DC.W (K1*53)/K2
	DC.W (K1*54)/K2
	DC.W (K1*55)/K2
	DC.W (K1*56)/K2
	DC.W (K1*57)/K2
	DC.W (K1*58)/K2
	DC.W (K1*59)/K2
	DC.W (K1*60)/K2
	DC.W (K1*61)/K2
	DC.W (K1*62)/K2
	DC.W (K1*63)/K2
	DC.W (K1*64)/K2
	DC.W (K1*65)/K2
	DC.W (K1*66)/K2
	DC.W (K1*67)/K2
	DC.W (K1*68)/K2
	DC.W (K1*69)/K2
	DC.W (K1*70)/K2
	DC.W (K1*71)/K2
	DC.W (K1*72)/K2
	DC.W (K1*73)/K2
	DC.W (K1*74)/K2
	DC.W (K1*75)/K2
	DC.W (K1*76)/K2
	DC.W (K1*77)/K2
	DC.W (K1*78)/K2
	DC.W (K1*79)/K2
	DC.W (K1*80)/K2
	DC.W (K1*81)/K2
	DC.W (K1*82)/K2
	DC.W (K1*83)/K2
	DC.W (K1*84)/K2
	DC.W (K1*85)/K2
	DC.W (K1*86)/K2
	DC.W (K1*87)/K2
	DC.W (K1*88)/K2
	DC.W (K1*89)/K2
	DC.W (K1*90)/K2
	DC.W (K1*91)/K2
	DC.W (K1*92)/K2
	DC.W (K1*93)/K2
	DC.W (K1*94)/K2
	DC.W (K1*95)/K2
	DC.W (K1*96)/K2
	DC.W (K1*97)/K2
	DC.W (K1*98)/K2
	DC.W (K1*99)/K2
	DC.W (K1*100)/K2
	DC.W (K1*101)/K2
	DC.W (K1*102)/K2
	DC.W (K1*103)/K2
	DC.W (K1*104)/K2
	DC.W (K1*105)/K2
	DC.W (K1*106)/K2
	DC.W (K1*107)/K2
	DC.W (K1*108)/K2
	DC.W (K1*109)/K2
	DC.W (K1*110)/K2
	DC.W (K1*111)/K2
	DC.W (K1*112)/K2
	DC.W (K1*113)/K2
	DC.W (K1*114)/K2
	DC.W (K1*115)/K2
	DC.W (K1*116)/K2
	DC.W (K1*117)/K2
	DC.W (K1*118)/K2
	DC.W (K1*119)/K2
	DC.W (K1*120)/K2
	DC.W (K1*121)/K2
	DC.W (K1*122)/K2
	DC.W (K1*123)/K2
	DC.W (K1*124)/K2
	DC.W (K1*125)/K2
	DC.W (K1*126)/K2
	DC.W (K1*127)/K2
	DC.W (K1*128)/K2
	DC.W (K1*129)/K2
	DC.W (K1*130)/K2
	DC.W (K1*131)/K2
	DC.W (K1*132)/K2
	DC.W (K1*133)/K2
	DC.W (K1*134)/K2
	DC.W (K1*135)/K2
	DC.W (K1*136)/K2
	DC.W (K1*137)/K2
	DC.W (K1*138)/K2
	DC.W (K1*139)/K2
	DC.W (K1*140)/K2
	DC.W (K1*141)/K2
	DC.W (K1*142)/K2
	DC.W (K1*143)/K2
	DC.W (K1*144)/K2
	DC.W (K1*145)/K2
	DC.W (K1*146)/K2
	DC.W (K1*147)/K2
	DC.W (K1*148)/K2
	DC.W (K1*149)/K2
	DC.W (K1*150)/K2
	DC.W (K1*151)/K2
	DC.W (K1*152)/K2
	DC.W (K1*153)/K2
	DC.W (K1*154)/K2
	DC.W (K1*155)/K2
	DC.W (K1*156)/K2
	DC.W (K1*157)/K2
	DC.W (K1*158)/K2
	DC.W (K1*159)/K2
	DC.W (K1*160)/K2
	DC.W (K1*161)/K2
	DC.W (K1*162)/K2
	DC.W (K1*163)/K2
	DC.W (K1*164)/K2
	DC.W (K1*165)/K2
	DC.W (K1*166)/K2
	DC.W (K1*167)/K2
	DC.W (K1*168)/K2
	DC.W (K1*169)/K2
	DC.W (K1*170)/K2
	DC.W (K1*171)/K2
	DC.W (K1*172)/K2
	DC.W (K1*173)/K2
	DC.W (K1*174)/K2
	DC.W (K1*175)/K2
	DC.W (K1*176)/K2
	DC.W (K1*177)/K2
	DC.W (K1*178)/K2
	DC.W (K1*179)/K2
	DC.W (K1*180)/K2
	DC.W (K1*181)/K2
	DC.W (K1*182)/K2
	DC.W (K1*183)/K2
	DC.W (K1*184)/K2
	DC.W (K1*185)/K2
	DC.W (K1*186)/K2
	DC.W (K1*187)/K2
	DC.W (K1*188)/K2
	DC.W (K1*189)/K2
	DC.W (K1*190)/K2
	DC.W (K1*191)/K2
	DC.W (K1*192)/K2
	DC.W (K1*193)/K2
	DC.W (K1*194)/K2
	DC.W (K1*195)/K2
	DC.W (K1*196)/K2
	DC.W (K1*197)/K2
	DC.W (K1*198)/K2
	DC.W (K1*199)/K2
	DC.W (K1*200)/K2
	DC.W (K1*201)/K2
	DC.W (K1*202)/K2
	DC.W (K1*203)/K2
	DC.W (K1*204)/K2
	DC.W (K1*205)/K2
	DC.W (K1*206)/K2
	DC.W (K1*207)/K2
	DC.W (K1*208)/K2
	DC.W (K1*209)/K2
	DC.W (K1*210)/K2
	DC.W (K1*211)/K2
	DC.W (K1*212)/K2
	DC.W (K1*213)/K2
	DC.W (K1*214)/K2
	DC.W (K1*215)/K2
	DC.W (K1*216)/K2
	DC.W (K1*217)/K2
	DC.W (K1*218)/K2
	DC.W (K1*219)/K2
	DC.W (K1*220)/K2
	DC.W (K1*221)/K2
	DC.W (K1*222)/K2
	DC.W (K1*223)/K2
	DC.W (K1*224)/K2
	DC.W (K1*225)/K2
	DC.W (K1*226)/K2
	DC.W (K1*227)/K2
	DC.W (K1*228)/K2
	DC.W (K1*229)/K2
	DC.W (K1*230)/K2
	DC.W (K1*231)/K2
	DC.W (K1*232)/K2
	DC.W (K1*233)/K2
	DC.W (K1*234)/K2
	DC.W (K1*235)/K2
	DC.W (K1*236)/K2
	DC.W (K1*237)/K2
	DC.W (K1*238)/K2
	DC.W (K1*239)/K2
	DC.W (K1*240)/K2
	DC.W (K1*241)/K2
	DC.W (K1*242)/K2
	DC.W (K1*243)/K2
	DC.W (K1*244)/K2
	DC.W (K1*245)/K2
	DC.W (K1*246)/K2
	DC.W (K1*247)/K2
	DC.W (K1*248)/K2
	DC.W (K1*249)/K2
	DC.W (K1*250)/K2
	DC.W (K1*251)/K2
	DC.W (K1*252)/K2
	DC.W (K1*253)/K2
	DC.W (K1*254)/K2
	DC.W (K1*255)/K2
	DC.W (K1*256)/K2
	DC.W (K1*257)/K2
	DC.W (K1*258)/K2
	DC.W (K1*259)/K2
	DC.W (K1*260)/K2
	DC.W (K1*261)/K2
	DC.W (K1*262)/K2
	DC.W (K1*263)/K2
	DC.W (K1*264)/K2
	DC.W (K1*265)/K2

	ENDP



	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/MIDISynth/Update.aii b/IIGS.601.SRC/GSToolbox/MIDISynth/Update.aii
new file mode 100644
index 0000000..92e8c03
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/MIDISynth/Update.aii
@@ -0,0 +1 @@
+	Blanks off
;-----------------------------------------------
;
;	Imported addresses
;
;-----------------------------------------------

	IMPORT LogTbl
	IMPORT ExpTbl
	IMPORT Priority
	IMPORT State
	IMPORT Note
	IMPORT Chan
	IMPORT chVolTbl
	IMPORT chSusTbl
	IMPORT chPBTbl
	IMPORT vcbTbl
	IMPORT oscTbl
	IMPORT GetPacket	; Midi.Buffer
	IMPORT Set_Freq
	IMPORT BeatTicks
	IMPORT MarkOn	; NoteOff.aii
	IMPORT MarkOff
	IMPORT ClockSource


;-----------------------------------------------
;
;	Forward addresses and entries
;
;-----------------------------------------------
	

	INCLUDE 'Note.Macros'
	INCLUDE 'all.macros'
	INCLUDE 'NS.equ'

****************************************************************
*
*	update
*
*	Inputs: none
*
*	Outputs: none
*
****************************************************************
*
	EXPORT update	
update	PROC

	IMPORT VoiceInit
	IMPORT Allocate
	IMPORT ChanQueue
	IMPORT KeyQueue
	IMPORT VolQueue
	IMPORT CmdQueue
	IMPORT TrackQueue
	IMPORT VoiceRelease
	IMPORT StartRelease
	IMPORT NLadr
	IMPORT PlaySeq	; Buffer.aii
	IMPORT MarkOn
	IMPORT MarkOff
	IMPORT Vtrack
	IMPORT ClockSource


	EXPORT halt_gen
	EXPORT UserMeter
	EXPORT User_Stop
	EXPORT User_Start
	EXPORT User_Cont
	EXPORT User_Pgm
	EXPORT ClockMgr
	EXPORT StartMgr
	EXPORT StopMgr
	EXPORT ContMgr


* This task is installed as the interrupt handler for the update timer.
* The update timer is actually Osc 31.



	shortm

	lda >busy_flag
	beq not_runnin
	rts		; dont re-enter


not_runnin	lda #$FF
	sta >busy_flag	; flag as busy

	longmx


* Get my DP area and my workarea pointers


	phb		; save user data bank
	phd		; save user direct page
	lda >myDP
	tcd		; set my DP
	phk
	plb


* Dump any MIDI messages into the queue

	jsr GetPacket

* Dump any Seq items into Queue

	jsr PlaySeq
 
* Check the Queue for any pending messages

	ldx <QueueOut
QueueLp0	cpx <QueuePtr
	bne chk_the_Q
	jmp do_update	; Queue is empty

chk_the_Q
	lda CmdQueue,x
	cmp #Midi_Note_On
	beq do_NoteOn

	cmp #Midi_Note_Off
	beql do_NoteOff

	cmp #Pitch_Bend
	beql do_PB

	cmp #MIDIStart
	beql do_Start

	cmp #MIDIStop
	beql do_Stop

	cmp #MIDITiming
	beql do_Timing

	cmp #MIDICont
	beql do_Cont

	cmp #Pgm_Change
	beql do_PChg

	cmp #Ctrl_Change
	bne QueueLp1

	lda KeyQueue,x	; control type
	cmp #Midi_Volume
	beq do_Volume

	cmp #Sus_Switch
	beq do_Sus_Sw


QueueLp1	lda <QueueOut
	inc A
	inc A
	and #QueueSize-1
	sta <QueueOut	; QueueOut points to next item
	tax
	bra QueueLp0







do_Sus_Sw	lda ChanQueue,x
	asl A
	tay
	lda VolQueue,x	; 0 = up, $7F = down
	sta chSusTbl,y
	bra QueueLp1
	

do_Volume	lda ChanQueue,x
	asl A
	pha
	lda VolQueue,x
	asl A		; full range (0-FF)
	asl A		; table is in word size
	tay
	lda LogTbl,y	; get Log of channel volume
	ply
	sta chVolTbl,y
	bra QueueLp1



do_NoteOn	
	lda ChanQueue,x
	sta <Vchan
	lda KeyQueue,x
	sta <Vkey
	lda TrackQueue,x
	sta Vtrack		; used in MarkOn
	lda VolQueue,x
	beq dn1		; vel = 0, note off

	sta <Vvol
	jsr VoiceInit
	jsr MarkOn		; Mark note list
	jsl >MidiInputPoll
	bra QueueLp1

do_NoteOff
	lda ChanQueue,x
	sta <Vchan
	lda KeyQueue,x
	sta <Vkey
dn1	jsr VoiceRelease
	jsr MarkOff		; Mark note list
	jsl >MidiInputPoll
	bra QueueLp1



do_PB	lda ChanQueue,x
	asl A
	tay
	lda VolQueue,x	; 0-7F ( 40 = zero)

	and #$007E
	sec
	sbc #$40		; make it a signed number

	sta chPBTbl,y
	bra QueueLp1




do_Start	jsr StartMgr
	jmp QueueLp1

do_Cont	jsr ContMgr
	jmp QueueLp1

do_Stop	jsr StopMgr
	jmp QueueLp1

do_Timing	jsr ClockMgr
	jmp QueueLp1

do_PChg
User_Pgm	jsl noUserMeter	; *** gets modified
	jmp QueueLp1



StopMgr	lda <SeqFlags
	and #$FFFF-(F_Record+F_Play)
	sta <SeqFlags
User_Stop	jsl noUserMeter	; *** gets modified
	rts



StartMgr	lda #1
	sta FAflag		; ignore next F8
User_Start	jsl noUserMeter	; *** gets modified
	rts

ContMgr	lda #1
	sta FAflag		; ignore next F8
User_Cont	jsl noUserMeter	; *** gets modified
	rts



ClockMgr	lda FAflag
	beq @1		; not after a "start" command

	stz FAflag		; reset it
	bra @3

@1	lda ClockSource
	beq @3		; Use internal clock

	lda #$0400		; 24 ticks/quarter, quarter=96 ticks (xx.xx)
	jsr UpdateTimer
@3	rts




do_update	ldy #00
Oloop	lda Priority,y
	bne ItsActive	; see if we must update it

Chk_Next	iny
	iny
	cpy #no_of_Gen*2
	bne Oloop		; check next

	lda ClockSource
	bne noTimer		; Use MIDI clock

* Check timers for update

	lda <Tempo		; update with this value
	jsr UpdateTimer

noTimer	inc <FreeRun
	shortm
	lda #00
	sta >busy_flag	; reset running flag
	longm

	pld
	plb
	rts		; this will finally RTI




ItsActive
	bmi Chk_Next	; protected, skip it

	sty <theGen		; save for next
	ldx vcbTbl,y
	lda oscTbl,y
	sta <theOsc

	ldy <vcbCh,x
	lda chVolTbl,y
	sta <chVol		; set up channel volume

	lda chSusTbl,y
	sta <chSus		; set up channel sustain switch state

	jsr compute_envelope

	cmp #min_vol*256
	bge notdone		; env not at min yet


* if done, do this:

	jsr halt_gen	; kill the osc's

* free the gen

	ldy <theGen
	lda #0000
	sta Priority,y

	jmp Chk_Next	; and continue with next


notdone
	ldy <theGen
	jmp Chk_Next	; and continue with next






********************************
*
*  Halt the Oscillators
*
********************************

* must not trash x.


	EXPORT halt_gen
halt_gen
	shortm

	lda >SysVol
	ora #GPtrInc	; auto inc
	sta >GStatReg

	lda <theOsc
	clc
	adc #doc_vol	; zap the volume
	sta >GAdrL 
	lda #00
	sta >GDataReg
	sta >GDataReg
	sta >GDataReg
	sta >GDataReg

	lda <theOsc
	clc 
	adc #doc_size
	sta >GAdrl
	lda #0		; force to 256 bytes
	sta >GDataReg
	sta >GDataReg
	sta >GDataReg
	sta >GDataReg

	lda <theOsc
	clc 
	adc #doc_freqhi
	sta >GAdrl
	lda #$FF
	sta >GDataReg
	sta >GDataReg
	sta >GDataReg
	sta >GDataReg

	lda <theOsc
	clc 
	adc #doc_ctrl
	sta >GAdrl
	lda #$02		; one-shot to reset adr pointer
	sta >GDataReg
	sta >GDataReg
	sta >GDataReg
	sta >GDataReg

	longm

	phx
	phy
	jsl >MidiInputPoll
	ply
	plx

	rts



********************
*
* Update Timers
*
********************

	EXPORT FAflag

UpdateTimer
	sta ClockTicks	; save for update

	lda <SeqFlags
	bit #F_Record+F_Play
	beq noTUpd		; we're not recording or playing seq

	lda <Seq_Status
	bmi noTUpd		; we're in 'key wait' so freeze clocks

* First, check the meter timer

	lda <Meter+1
	bmi @1		; underflow
	bne IncClock	; not yet

	lda <Meter		; check fractional part
	bne IncClock	; almost, but not yet

	lda <Meter+1
	
@1	clc
	adc BeatTicks	; number of ticks per beat
	sta <Meter+1

UserMeter	jsl noUserMeter	; SELF MODIFYING

	lda <SeqFlags
	bit #F_Metro
	beq chkSS		; Metro is OFF

	jsr Click		; play metronome once

chkSS	lda <Seq_Status
	and #SS_CountOff
	beq IncClock1	; we're not in 'count off'
	
	  dec <CountDown
	  bpl MeterClock

	    lda <Seq_Status
	    and #$FFFF-SS_CountOff
	    sta <Seq_Status	; clear the 'count off' flag

	    stz <Meter	; clear fraction
	    lda BeatTicks	; number of ticks per beat
	    sta <Meter+1
	    bra noTUpd	; we'll start the clocks next time

	

* Increment the Seq timer

IncClock	lda <Seq_Status
	and #SS_CountOff
	bne MeterClock	; we're in 'count off'

IncClock1	lda ClockTicks	; add Tempo to Timer
	clc
	adc <Timer_Frac	; fraction and low integer byte
	sta <Timer_Frac
	bcc MeterClock
	inc <Timer+1	; hi integer

MeterClock	lda <Meter
	sec
	sbc ClockTicks
	sta <Meter
	bcs noTUpd
	dec <Meter+2

noTUpd	rts

noUserMeter
	rtl

ClockTicks	DC.W 0
FAflag	DC.W 0		; MIDI "START" cmd



**************************
*
* click the metronome
*
**************************

Click	shortm
	lda >SysVol
	sta >GStatReg	; no inc, to doc

	lda #doc_freqlo+Metro_Osc	; set frequency of the
	sta >GAdrL			; Metro osc
	lda <MetroFreq
	sta >GDataReg
	lda #doc_freqhi+Metro_Osc
	sta >GAdrL
	lda <MetroFreq+1
	sta >GDataReg

	lda #doc_vol+Metro_Osc
	sta >GAdrL
	lda <MetroVol	; Metro volume
	sta >GDataReg

	lda #doc_ctrl+Metro_Osc
	sta >GAdrL
	lda #doc_oneshot	; one-shot for 'tick'
	sta >GDataReg
	longm

	rts


	
****************************************************************
*
*	Compute_Envelope
*
*	Inputs: x has vcb offset ; memory and index are long
*
*	Outputs: both long; writes to doc, z set if envelope=0 (done)
*
****************************************************************
*
Compute_Envelope

	phx
	phy
	jsl >MidiInputPoll
	ply
	plx


	lda <sus_flag,x
	beq @10		; must be in release stage (ignore sus switch)

	lda <ChSus
	bne @10		; sustain switch is pressed

	lda <sus_hold,x
	beq @10		; switch is up, but note still down

	jsr StartRelease



@10	lda <env_inc,x
	bne @1

	lda <env_cur,x	; in sustain
	bra cont1

@1	bmi going_down

* going up:
	clc
	adc <env_cur,x
	bvs hit_it		; > $FFFF

	cmp <env_lim,x
	bcs hit_it		; past breakpoint
	bra contin

going_down	clc
	adc <env_cur,x
	bmi hit_it		; < $0000

	cmp <env_lim,x
	bmi hit_it		; below breakpoint

contin	sta <env_cur,x



* Now we have the envelope in the high byte of acc.
* "Multiply" it by the Log volumes and put them out to the DOC.


cont1	xba		; get hi byte
	asl A
	and #$00FF
	asl A
	tay

	lda <chVol		; 0-127
	clc
	adc LogTbl,y
	and #$FFFE
	tay
	lda ExpTbl,y

	asl A
	tay
	sta <Temp
	lda <volB,x		; 0-127
	clc
	adc LogTbl,y
	and #$FFFE
	tay
	lda ExpTbl,y
	sta <FvolB

	ldy <Temp
	lda <volA,x		; 0-127
	clc
	adc LogTbl,y
	and #$FFFE
	tay
	lda ExpTbl,y
	sta <FvolA

	bra calc_env_2


****************************************************************

hit_it
	lda <env_lim,x	; start by locking the level
	sta <env_cur,x	; to the breakpoint we just hit.
	bne @1

* stop envelope since level = 0

	jmp contin		; now continue with doc output.

@1	lda <I_Ptr,x
	sta <Inst_Ptr

	ldy <next_seg,x
	cpy #_sustain
	blt do_decay

	lda (inst_ptr),y	; points to the breakpoint
	xba
	and #$7F00		;which was a byte, now a word
	cmp <env_lim,x
	bge going_up

*going down
	sta <env_lim,x
	iny
	lda (inst_ptr),y	;get increment word

	eor #$FFFF		; negate it
	inc a
	bra its_cool

going_up	sta <env_lim,x
	iny
	lda (inst_ptr),y

its_cool	sta <env_inc,x
	iny		; advance cur seg to next one
	iny
	sty <next_seg,x
	lda <env_cur,x

	jmp contin		; now continue with doc output.


do_decay	lda (inst_ptr),y	; points to the breakpoint
	xba
	and #$7F00		;which was a byte, now a word
	cmp <env_lim,x
	bge going_upD

*going downD
	sta <env_lim,x
	iny
	lda <addDky1,x
	clc
	adc (inst_ptr),y
	bpl @1
	lda #$7FFF
@1	eor #$FFFF		; negate it
	inc a
	bra its_cool

going_upD	sta <env_lim,x
	iny
	lda <addDky1,x
	clc
	adc (inst_ptr),y
	bpl @1
	lda #$7FFF
@1	bra its_cool




*****************************************************************



* calc env 2

calc_env_2
	lda <env_inc2,x
	bne @1

	lda <env_cur2,x	; sustain stage
	bra cont2

@1	bmi going_down2

* going up:
	clc
	adc <env_cur2,x
	bvs hit_it2		; > $FFFF

	cmp <env_lim2,x
	bcs hit_it2		; past breakpoint
	bra contin2

going_down2	clc
	adc <env_cur2,x
	bmi hit_it2		; < $0000

	cmp <env_lim2,x
	bmi hit_it2		; below breakpoint

contin2	sta <env_cur2,x


* Now we have the envelope in the high byte of acc.
* "Multiply" it by the Log volumes and put them out to the DOC.


cont2	xba		; get hi byte
	asl A
	and #$00FF
	asl A

	tay
	lda <chVol		; 0-127
	clc
	adc LogTbl,y
	and #$FFFE
	tay
	lda ExpTbl,y
	asl A

	tay
	sta <Temp
	lda <vol2B,x		; 0-127
	clc
	adc LogTbl,y
	and #$FFFE
	tay
	lda ExpTbl,y
	sta <Fvol2B

	ldy <Temp
	lda <vol2A,x		; 0-127
	clc
	adc LogTbl,y
	and #$FFFE
	tay
	lda ExpTbl,y
	sta <Fvol2A

	bra set_vol


****************************************************************

hit_it2	lda <env_lim2,x	; start by locking the level
	sta <env_cur2,x	; to the breakpoint we just hit.
	bne @1		; stop envelope since level = 0

	jmp contin2		; now continue with doc output.

@1	lda <I_Ptr,x
	clc
	adc #defLen
	sta <Inst_Ptr

	ldy <next_seg2,x
	cpy #_sustain
	blt do_decay2

	lda (inst_ptr),y	; points to the breakpoint
	xba
	and #$7F00		;which was a byte, now a word
	cmp <env_lim2,x
	bge going_up2

*going down
	sta <env_lim2,x
	iny
	lda (inst_ptr),y	;get increment word
	bmi its_cool2

	eor #$FFFF		; negate it if it isn't negative
	inc a
	bra its_cool2

going_up2	sta <env_lim2,x
	iny
	lda (inst_ptr),y
	bpl its_cool2	; negate it if it isn't positive
	dec a
	eor #$FFFF

its_cool2	sta <env_inc2,x
	iny		; advance cur seg to next one
	iny
	sty <next_seg2,x
	lda <env_cur2,x

	jmp contin2		; now continue with doc output.


do_decay2	lda (inst_ptr),y	; points to the breakpoint
	xba
	and #$7F00		;which was a byte, now a word
	cmp <env_lim2,x
	bge going_upD2

*going downD2
	sta <env_lim2,x
	iny
	lda <addDky2,x
	clc
	adc (inst_ptr),y
	bpl @1
	lda #$7FFF
@1	eor #$FFFF		; negate it
	inc a
	bra its_cool2

going_upD2	sta <env_lim2,x
	iny
	lda <addDky2,x
	clc
	adc (inst_ptr),y
	bpl @1
	lda #$7FFF
@1	bra its_cool2



*****************************************************************




set_vol	shortm
			
	lda <theOsc
	clc
	adc #doc_vol

	sta >GAdrL
	lda >SysVol
	ora #GPtrInc
	sta >GStatReg
		 
	lda <FvolA
	sta >GDataReg	; set vol A
	lda <FvolB
	sta >GDataReg	; set vol B
	lda <Fvol2A
	sta >GDataReg	; set vol A
	lda <Fvol2B
	sta >GDataReg	; set vol B

	longm

sustain
	lda <PBflag,x
	beq @2		; no pitch bend - skip freq update

	jsr Set_Freq

@2	lda <env_cur,x
	cmp <env_cur2,x
	bge @1
	lda <env_cur2,x
@1
	rts




		ENDP

		END
		
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/MIDISynth/makefile b/IIGS.601.SRC/GSToolbox/MIDISynth/makefile
new file mode 100644
index 0000000..237e168
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/MIDISynth/makefile
@@ -0,0 +1 @@
+

ObjDir	=	:obj:

Defines	=	ns.equ


Tool035 	ÄÄ makefile 				¶
			{ObjDir}MIDISynth.obj		¶
			{ObjDir}noteon.obj			¶
			{ObjDir}noteoff.obj			¶
			{ObjDir}update.obj			¶
			{ObjDir}ToolCalls.obj		¶
			{ObjDir}tables.obj			¶
			{objDir}cursor.obj 			¶
			{objDir}em.obj				¶
			{objDir}misc.tools.obj		¶
			{objDir}strip.obj 			¶
			{objDir}init.obj			¶
			{objDir}Buffer.obj 			¶
			{objDir}midi.control.obj 	¶
			{objDir}midi.driver.obj
	LinkIIGS¶
			{ObjDir}MIDISynth.obj		¶
			{ObjDir}noteon.obj			¶
			{ObjDir}noteoff.obj			¶
			{ObjDir}update.obj			¶
			{ObjDir}ToolCalls.obj		¶
			{ObjDir}tables.obj			¶
		{objDir}Buffer.obj 				¶
		{objDir}midi.control.obj 		¶
		{objDir}midi.driver.obj 		¶
		{objDir}strip.obj 				¶
		{objDir}init.obj(QDSTART)		¶
		{objDir}cursor.obj(IDRAWCURSOR,IUNDRAWCURSOR,SCREENTABLE,SETCURSOR,CALCSAVESIZE,USERINITCURSOR,GETITREADY,CURSORDATA,UNLOCKSAVEHANDLE,LOCKSAVEHANDLE,SHIFTSTUFF,SHIFTONE) 			¶
		{objDir}em.obj(POSTEVENT,GETOSEVENT,DEQUEUE,FILLRECORD,MOUSE,GETNEXTEVENT,WAITMOUSEUP,EVENTAVAIL,STILLDOWN,FLUSHEVENTS,GETOSEVENT,GOSECOMMON,OSEVENTAVAIL,MOUSETASK,DOJOURNAL,GETMOUSE,BUTTON,EMDATA,LOCKQ,ENQUEUE,UNLOCKQ,GETGLOBALLOC,SETMODBITS,)¶
		{objDir}misc.tools.obj(IRQ_HEART)		¶
		-o Tool035 -t TOL
#	DUPLICATEIIGS -y -mac tool035 tool035


### Dependancies for components

	
{ObjDir}MIDISynth.obj		Ä	MIDISynth.aii		{Defines}
	AsmIIGS MIDISynth.aii -o {ObjDir}MIDISynth.obj

{ObjDir}noteon.obj			Ä	noteon.aii			{Defines}	
	AsmIIGS noteon.aii -o {ObjDir}noteon.obj

{ObjDir}noteoff.obj			Ä	noteoff.aii			{Defines}
	AsmIIGS noteoff.aii -o {ObjDir}noteoff.obj

{ObjDir}update.obj			Ä	update.aii			{Defines}
	AsmIIGS update.aii -o {ObjDir}update.obj
	
{ObjDir}ToolCalls.obj		Ä	ToolCalls.aii		{Defines}
	AsmIIGS ToolCalls.aii -o {ObjDir}ToolCalls.obj

{ObjDir}tables.obj			Ä	tables.aii			{Defines}
	AsmIIGS tables.aii -o {ObjDir}tables.obj

{objDir}cursor.obj 			Ä 	::QD:cursor.asm
	AsmIIGS -d midi=1 ::QD:cursor.asm -o :Obj:cursor.obj
		
{objDir}init.obj 			Ä 	::QD:init.asm
	AsmIIGS ::QD:init.asm -o :Obj:init.obj -unsafe -wi
		
{objDir}strip.obj 			Ä 	::qd:qdalone:strip.asm
	AsmIIGS ::qd:qdalone:strip.asm -o :Obj:strip.obj	

{objDir}em.obj				Ä	::EVENTS:em.asm ¶
								::EVENTS:em.KBDStuff
	Asmiigs  -d midi=1 ::EVENTS:em.asm -o :Obj:em.obj

{objDir}misc.tools.obj 		Ä	::misc.tools:misc.tools.asm
	asmiigs ::MISC.TOOLS:misc.tools.asm -d RAMVersion=0 -d midi=1 -o :Obj:misc.tools.obj

{objDir}Buffer.obj 			Ä 	 Buffer.aii {defines}
	AsmIIGS  Buffer.aii 		-o {objDir}Buffer.obj
	
{objDir}midi.control.obj 	Ä 	midi.control.aii	{defines}
	AsmIIGS  midi.control.aii 	-o {objDir}midi.control.obj
	
{objDir}midi.driver.obj 	Ä 	midi.driver.aii 	{defines}
	AsmIIGS  midi.driver.aii 	-o {objDir}midi.driver.obj


	
::kidding:kidding.asm.obj		Ä	::kidding:kidding.asm
	directory ::kidding
	asmiigs kidding.asm
	directory ::MIDIsynth
	
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/MIDISynth/ns.equ b/IIGS.601.SRC/GSToolbox/MIDISynth/ns.equ
new file mode 100644
index 0000000..4624ff4
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/MIDISynth/ns.equ
@@ -0,0 +1 @@
+

***********************
*  Instrument Record  *
***********************

* Envelope Record

Vatk	equ 0	; attack level     (0-127)
Atk	equ 1	; attack rate      (0-31)
Vd1	equ 2	; decay #1 level   (0-127) 
Dk1	equ 3	; decay #1 rate    (0-31)
Vd2	equ 4	; decay #2 level   (0-127) 
Dk2	equ 5	; decay #2 rate    (0-31)
Sus	equ 6	; sustain level    (0-127)
Dk3	equ 7	; rate to sustain  (0-31)
Vr1	equ 8	; release level #1 (0-127)
Rel1	equ 9	; release rate #1  (0-31)
Vr2	equ 10	; release level #2 (0-127)
Rel2	equ 11	; release rate #2  (0-31)
Rel3	equ 12	; release rate #3  (0-31)
DecayKbd	equ 13	; key decay gain   (0-9)
Vsens	equ 14	; Velocity sensitivity (0-10)
PBend	equ 15	; Pitch Bend (0-11)

* Oscillator Record

TopKey	equ 16	; Midi note (0-127)
Alg	equ 17	; Osc config (0-5)

;		      Osc A    Osc B
;		  0 = loop     loop
;		  1 = 1-shot   loop
;		  2 = 1-shot   1-shot
;		  3 = swap     loop (halted)
;		  4 = swap     1-shot (halted)
;		  5 = swap     swap (halted)

Channel	equ 18	; output channel (0-7)
Detune	equ 19	; Detune (0 - 63)

AddrA	equ 20	; Addr in DOC ram ($00 - $FF)
SizeA	equ 21	; waveform size (0-7)

;		  0 = 256
;		  1 = 512
;		  2 = 1k
;		  3 = 2K
;		  4 = 4K
;		  5 = 8K
;		  6 = 16k
;		  7 = 32k

iVolA	equ 22	; volume of osc (0-127)
OctA	equ 23	; Oct tuning (0-6)
SemiA	equ 24	; semitone tuning (0-11)
FineA	equ 25	; Fine tuning (0-63)
AddrB	equ 26	; Addr in DOC ram ($00 - $FF)
SizeB	equ 27	; waveform size (0-5)
iVolB	equ 28	; volume of osc (0-127)
OctB	equ 29	; Oct tuning (0-6)
SemiB	equ 30	; semitone tuning (0-11)
FineB	equ 31	; Fine tuning (0-63)


EnvRecSize	equ 16	; env segments
OscRecSize	equ 16	; DOC parameters
InstRecSize	equ 144	; 1 env record + 8 osc records, 16 + (8 * 16) = 144
InstSize	equ 288	; 2 instrument records



****************************
* Oscillator Control Block *
****************************

_envelope	equ 0	; 8 volume-stepsize segments
_dk1	equ 4
_dk2	equ 7
_dk3	equ 10
_susVol	equ 9
_sustain	equ 12
_rel_seg	equ 15

_vs	equ 24	; velocity gain div address (24-25)
_pbend	equ 26	; pitch bend mul address (26-27)
_pbflag	equ 28	; 0 = no pitch bend (28-29)
_decaykbd	equ 30	; address of DecayNote table


* Wave List

_topkey	equ 32
_addrA	equ 33
_sizeA	equ 34
_ctrlA	equ 35
_pitchA	equ 36
_volA	equ 38
_detune	equ 39

_wlSize	equ 64	; wavelist size 8 * 8 = 64

_addrB	equ 33+_wlSize
_sizeB	equ 34+_wlSize
_ctrlB	equ 35+_wlSize
_pitchB	equ 36+_wlSize
_volB	equ 38+_wlSize


_AWavelist	equ 32	; after env segments
_BWaveList	equ 96	; _AWavelist _wlSize, 32 + 64 = 96

* Offsets from WaveList

wp_topkey	equ 0
wp_addr	equ 1
wp_size	equ 2
wp_ctrl	equ 3
wp_pitch	equ 4
Wvol	equ 6
wp_detune	equ 7



OCBsize	equ 160	; env segments + 8 A wavelists + 8 B wavelists, 32 + (8 * 8) + (8 * 8) = 160 






* my 12 bytes of reserved ram in bank E1.
*
* It will be set up like this:

cubbyhole 	equ $E11DC4		; 12 bytes of my own, forever
awake	equ cubbyhole	; set when Note syn has been initialized.
myDP	equ cubbyhole+2	; NoteSynth Direct Page
busy_Flag 	equ cubbyhole+4	; set when update is running.
old_vector	equ cubbyhole+5	; previous IRQ vector stored as 3 bytes
userjump	equ cubbyhole+8	; put jml here
userUpdate	equ cubbyhole+9	; address of user's routine



My_ID		equ 4	; MIDI Synth ID
My_tool_number 	equ 35
version_number	equ $0100	;was $8100 5-Feb-92 DAL
;;;NSID		equ $4023	; ID to use for New Handle call.
NSID		equ $4523	;ID to use for NewHandle calls (10-Oct-91 DAL)

* Tool Call Error Codes

errStarted 		equ my_tool_number*256+$1	; already started
errNotStarted 	equ my_tool_number*256+$2 	; function called before startup
NoDPError 		equ my_tool_number*256+$3	; can't get DP memory
NoMemError 		equ my_tool_number*256+$4	; can't get memory block
MiscToolError 	equ my_tool_number*256+$5	; Misc Tools not started
SoundError 		equ my_tool_number*256+$6	; Sound Tool Set not started
GenError 		equ my_tool_number*256+$7	; Generator in use
IllegalPort		equ my_tool_number*256+$8	; Invalid MIDI port
SlotBusy		equ my_tool_number*256+$9	; Serial port is busy
RangeError		equ my_tool_number*256+$A	; Parameter is out of range
MQFull		equ my_tool_number*256+$B	; MIDI Message Q is full
RecBufFull		equ my_tool_number*256+$C	; Rec Buffer is full
MIDIoutOff		equ my_tool_number*256+$D	; MIDI out not enabled
MessageError	equ my_tool_number*256+$E	; SysEx format error
MIDIBufFull		equ my_tool_number*256+$F	; MIDI out buffer full
noMIDIDriver	equ my_tool_number*256+$10	; MIDI driver never set
DriverAlreadySet	equ my_tool_number*256+$11	; MIDI driver is already set

;  device driver errors
miDevNotAvail	equ my_tool_number*256+$80	; device not available
miDevSlotBusy	equ my_tool_number*256+$81	; given slot is already in use
miDevBusy		equ my_tool_number*256+$82	; device is already in use
miDevNoConnect	equ my_tool_number*256+$84	; no connection to MIDI
miDevVersion	equ my_tool_number*256+$86	; ROM version or machine type is
					;   incompatible with the drivermiDevIntHndlr	
miIRQError		equ my_tool_number*256+$87	; conflicting interrupt handler has
					;   been installed;
;  driver error codes $88-$BF reserved for future use
;  driver error codes $C0-$FF may be defined by drivers



* Equates for Sound Glu and DOC

GStatReg	equ $E1C03C	; sound glu control/status register
GDataReg	equ $E1C03D	; data
GAdrL	equ $E1C03E	; address low
GAdrH	equ $E1C03F	; address high

* Glu status register bits

Gvol	equ $0F	; bits 0-3
GptrInc	equ $20
GptrNoInc	equ $20	; (reset bit 5)
GRAMsel	equ $40
GRegSel	equ $40	; (reset 6 to talk to DOC)
GBusy	equ $80

* DOC registers

doc_freqlo	equ 0
doc_freqhi	equ $20
doc_vol	equ $40
doc_addr	equ $80
doc_ctrl	equ $A0
doc_size	equ $C0
doc_IRQ	equ $E0

* DOC control register bits

doc_irq_bit		equ $08
doc_halt_bit	equ $01
doc_halt_reset 	equ $03	; single cycle mode resets accum
doc_oneshot		equ $02




* other goodies

min_vol		equ $18	; min osc volume
Timer_Osc		equ $1F
Metro_Osc		equ $1E	; DOC osc for metronome
no_of_Gen		equ 7
defLen		equ 160	; len of inst def (1/2)
DPforNS		equ $400	; 8 vcb's and one page for misc (8*64)+256
*			  1 page for MIDI Driver

BufLen		equ 1024	; Input buffer length (MUST be a multiple power of 2)

MidiInputPoll	equ $E101B2	;
SysVol		equ $E100CA	; 4 bit volume for everyone
SltRomSel		equ $E1C02D

* MIDI Messages

Midi_Note_On	equ $90
Midi_Note_Off	equ $80
Ctrl_Change		equ $B0
Pgm_Change		equ $C0
Pitch_Bend		equ $E0
MIDIStart		equ $FA
MIDIStop		equ $FC
MIDICont		equ $FB
MIDITiming		equ $F8
SysEx		equ $F0
EOX		equ $F7

Midi_Volume		equ $07
Sus_Switch		equ $40

QueueSize		equ 128	; must be multiple power of 2!

ItemSize		equ 8	; number of bytes in seq item

MetroDefaultFreq	equ $0180
MetroDefaultVol	equ $FF



* Call Back Table offsets

usend	equ 0	; user seq end address
mupdate	equ 4 	; Meter Update routine address
Mstart	equ 8	; MIDI start command
Mstop	equ 12	; MIDI stop command
MPin	equ 16	; MIDI packet in
Sevent	equ 20	; seq item play
sx	equ 24	; sys ex in
MPout	equ 28	; MIDI packet out
Pchg	equ 32	; MIDI Pgm Change
MCont	equ 36	; MIDI continue command
Smark	equ 40	; Seq Marker
RBfull	equ 44	; Rec Buffer Full





* Zero Page Addr

* Midi

InPortEnable	equ $00 	; $0000 = input disabled

PacketStatus	equ $02 	; MIDI status byte of current packet
PacketLength	equ $04 	; length of current packet
PacketRemain	equ $06 	; remaining length of current packet

InBufStart		equ $08
InBufIndex		equ $0A

Mpacket		equ $0C	; C,D,E,F,10,11
Timer_Frac		equ $12	; fraction byte
Timer		equ $13	; 4 bytes integer (hi byte allways zero)

*			  xx.xx xx xx 00
*			   |  |  |  |
*			   |  |__|__|__< Timer = 12 bit integer
*			   |
*			   |___________< Timer_Frac = 8 bit fraction

OutPortEnable	equ $17 	; $0000 = output disabled

MMode		equ $19	; 0 = Omni, $FFFF = Poly, 2 = Multi
BasicCh		equ $1B	; Omni, Poly channel

*port		equ $1D 	; which port to use
*interruptmask	equ $1F 	; recv and xmit interrupt enable byte
*intserviced	equ $21 	; whether we serviced the interrupt
*slot		equ $23

*  SCC interrupt control

*SerFlagAddr	equ $25 	; address of system variable SerFlag(4 BYTES)
*SerFlagBits	equ $29 	; bits to turn on and off in SerFlag

*OldIntVec		equ $2B	; old SCC Irq vector
*Uport		equ $2F	; Midi Port (1 or 2)

SeqItem		equ $31	; current seq item ($31-34)

Tempo		equ $35	; inc value for Timer ( xx.xx)
Meter		equ $37	; Meter comparator (4 bytes)

OutBufIndex		equ $3B	; MIDI out buffer index - request
OutStartIndex	equ $3D	;   "   "    "      "   - to scc


MetroVol		equ $3F	; DOC volume (0-$FF)


* Synth

Inst_Ptr	equ $40	; ptr to user inst def
theGen	equ $44	; temp gen num
theOsc	equ $46	; temp osc num (theGen x 4)
Awaveptr	equ $48
Bwaveptr	equ $4C
Temp	equ $50	; 4 bytes

FreqA	equ $54	; Osc A freq hold
FreqB	equ $56	; Osc B freq hold
Freq2A	equ $58	; Osc A freq hold
Freq2B	equ $5A	; Osc B freq hold
FvolA	equ $5C	; Osc A vol hold
FvolB	equ $5E	; Osc B vol hold
Fvol2A	equ $60	; Osc A vol hold
Fvol2B	equ $62	; Osc B vol hold

min	equ $64
PStore	equ $66	; 4 bytes (ptr to Priority, for debug)

theGen_r	equ $6A	; Allocate
min_r	equ $6C	;    "

BufPtr	equ $6E	; 6E,6F,70,71
Dest	equ BufPtr	; Merge
MoveFlag	equ Dest+2	; DeleteTrack

VelOffset	equ $72	; MIDI noteOn velocity offset

OldSource	equ $74	; 74,75,76,74 - Merge
NewSource	equ $78

modeA	equ $7C
modeB	equ $7E
mode2A	equ $80
mode2B	equ $82

UserInst	equ $84	; 84,85,86,87
DataPtr	equ UserInst

Vchan	equ $88
Vkey	equ $8A
Vvol	equ $8C	; for VoiceInit and VoiceRelease

QueuePtr	equ $8E	; Queue IN pointer

chVol	equ $90	; save of vcbCH
chSus	equ $92

QueueOut	equ $94	; Queue OUT pointer

* seq

RecBufStart	equ $C0
RecBufEnd	equ $C4
PlayBufStart equ $C8
*PlayBufEnd	equ $CC	;@@@@ NOT USED

SeqFlags	equ $D0

Freq_Tbl	equ $D2	; pointer to pitch-to-freq table

NoteList	equ $D6	; base address of note list
NoteTracker	equ $D8	; final  ""  (temp) 4 bytes

InBuffer	equ $DC	; pointer to MIDI IN buffer
OutBuffer	equ $E0	; pointer to MIDI OUT buffer


MetroFreq	equ $E4	; DOC freq reg (0-$FFFF)

Seq_Status	equ $E6
CountDown	equ $E8	; beats to count off

TrackSav	equ $EA	; Seq Item Track number
DataBytes	equ $EC	; # of Data bytes in <SeqItem
ByteCount	equ $EE	;        "         "          (used by FillBuffer)
RecTrack	equ $F0
FreeRun	equ $F2	; 16-bit free-running timer
TempoBPM	equ $F4	; Set at startup, changed by SetTempo & SetRelTempo

**************
* Seq Flags
**************

* xxxx xxxx xccc ccc

* c = count of beats (0-99)

F_Play	equ $0100
F_Record	equ $0200
notF_Play	equ $FEFF
notF_Record	equ $FDFF
F_clock	equ $0400
F_Metro	equ $0800		; metronome
F_KStart	equ $1000		; key start


******************
*
* Seq_Status Flags
*
******************

SS_CountOff	equ $0001
SS_KStart	equ $8000



******************
* VCB structure
******************

vcbSize	equ 64

I_Ptr	equ $00	; ptr to user inst def
env_lim	equ $04	; seg breakpoint
next_seg	equ $06	; offset to next seg
env_inc	equ $08	; ramp step size
env_cur	equ $0A	; ramp accum
volA	equ $0C	; osc A volume
volB	equ $0E	; osc B volume

vcbCH	equ $10	; channel number * 2
sus_flag	equ $12	; 0 = no sustain
env_lim2	equ $14	; seg breakpoint
next_seg2	equ $16	; offset to next seg
env_inc2	equ $18	; ramp step size
env_cur2	equ $1A	; ramp accum
vol2A	equ $1C	; osc A volume
vol2B	equ $1E	; osc B volume

vfreqA	equ 32	; step - fine format
vfreqB	equ 34
vfreq2A	equ 36
vfreq2B	equ 38

PBaddr	equ 40	; addr of pitch bend mul addr (40-41)
PBflag	equ 42	; 0 = no pitch bend

addDky1	equ 44	; note decay value for gen1
addDky2	equ 46	; note decay value for gen2

Detune1	equ 48	; DOC freq offset
Detune2	equ 50

sus_hold	equ 52	; release waiting - sustain sw pressed
genNum	equ 54	; generator number (voice number x 2)






* Envelope States

Attack		equ 0
Release		equ 1



;-------------------------------------------------------
;
;  Direct page 4
;
;  The first half of this direct page contains self-
;  modified code fragments used by the MIDI Tool Set
;  and interrupt handlers.
;
;  The second half of this direct page is reserved for
;  use by device drivers.
;
;-------------------------------------------------------

	DSect 1		; start global data section

; **** IMPORTANT NOTE:	Yes, we are beginning our direct
; ****	  page definition at offset one instead of zero.
; ****	  "MidiBufJml" must be defined at offset one in
; ****	  order to work correctly.	Do not do anything
; ****	  to disturb this fragile arrangement!

MidiBufJml	block 4	  ; jml BufDispatcher


;
;  Midi interrupt glue
;
;  This small routine is called on a MIDI interrupt.
;  It is located on zero page because it is modified
;  by the MIDI Tool Set.  It could be done without
;  modified code, but it would be slower.
;
MidiIntGlue		block 2	  ; rep #$30   ; long accumulator and index registers
		block 1	  ; lda 	   ; get direct page 1
MidiZP1 		block 2	  ;  #XXXX
		block 1	  ; jsl
DriverHandler 	block 3	  ;  XXXXXX	   ; call driver interrupt handler
		block 2	  ; sep #$30   ; short accumulator and index registers
		block 2	  ; bcs oldvec ; driver didn't service the interrupt
		block 1	  ; rtl
		block 1	  ;oldvec jml  ; call old interrupt service routine
OldIntVector	block 3	  ;  XXXXXX



;
;  poll MIDI input
;
PollInput		block 2	  ; rep #$30   ; long accumulator and registers
		block 1	  ; lda 	   ; get direct page 1
MidiZP1b		block 2	  ;  #XXXX
		block 1	  ; jsl 	   ; call routine to poll MIDI input
DevPollAddr		block 3	  ;  XXXXXX
		block 2	  ; sep #$30   ; short accumulator and registers
		block 1	  ; rtl



;
;  a copy of the driver table
;  *** must contain an even number of bytes ***
;
DriverAddr		long 					; address of device driver in memory
DriverID		word					; ID of device driver segment (0 if none)

dt_start		DSectSize		; start of driver table
dt_init 		long 					; addr of initialization routine - 1
dt_shutdown		long 					; addr of shutdown routine - 1
dt_reset		long 					; addr of reset routine - 1
dt_inthandler	long 					; addr of interrupt handler - 1
dt_pollrecv		long 					; addr of routine to poll receiver - 1
dt_recvinton	long 					; addr of proc to enable recv ints - 1
dt_recvintoff	long 					; addr of proc to disable recv ints - 1
dt_pollxmit		long 					; addr of proc to poll transmitter - 1
dt_xmitinton	long 					; addr of proc to enable xmit ints - 1
dt_xmitintoff	long 					; addr of proc to disable xmit ints - 1
dt_reserved1	long 					; reserved
dt_reserved2	long 					; reserved
dt_end		DSectSize		; end of driver table
dt_size 		equ dt_end-dt_start	; size of driver table



;
;  Make sure that code fragments use less than $80 bytes,
;  because offsets $80-$FF are reserved for driver usage.  If
;  usage exceeds this limit, an assembly error is generated
;  at this time.
;
enddp1	DSectSize		; end of direct page 1 usage

	CheckSize enddp1,$80 	; make sure we are <= $80
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/MISC.TOOLS/Converter.asm b/IIGS.601.SRC/GSToolbox/MISC.TOOLS/Converter.asm
new file mode 100644
index 0000000..4693741
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/MISC.TOOLS/Converter.asm
@@ -0,0 +1 @@
+**********************************************************************
*
* Converter.asm
*
* Copyright 1988-1989
* Apple Computer, Inc.
* All Rights Reserved
*
* Orig Author
*
* Steven Glass
*
**********************************************************************
	blanks off
	include 'all.macros'





****************************************************************
*
GetCodeResConverter PROC EXPORT
*
* Returns the address of the code resource converter routine.
* It can be used by any one independent of the control manager.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


Result	equ 7

	lda #CodeResourceConverter
	sta Result,s
	lda #^CodeResourceConverter
	sta Result+2,s
	lda #0
	clc
	rtl


	ENDP


ResRefRecord	record 0
resType	ds.w 1
resID	ds.L 1
resOffset	ds.L 1
resAttr	ds.w 1
resSize	ds.L 1
resHandle	ds.L 1
	endr

****************************************************************
*
CodeResourceConverter PROC
*
* This is the routine called by the resource manager when
* a DefProc resource is loaded or saved to disk.
*
*
* Inputs:
*       LONG   : 	space for result
*       WORD   :    convert command
*       LONG   :    convert param
*       LONG   :    res Pointer
*
* Outputs:
*       LONG   :    result
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

	DefineStack
OrigD	word		1
RTL1	block 3		3
ResPointer	long		6
ConvertParam	long		A
ConvertCmd	word		E
Result	long		10


	phd
	tsc
	tcd


	stz Result
	stz Result+2

	ldx ConvertCmd
	jsr (ConvertCmdTable,x)



	ldx RTL1	; move the rtl adrs up 10 bytes
	stx RTL1+10
	ldx RTL1+1
	stx RTL1+1+10
	
	pld	; restore d
	plx	; strip 10 bytes
	plx
	plx
	plx
	plx
	cmp #1	; set carry correctly.
	rtl



ConvertCmdTable	dc.w ConvertRead
	dc.w ConvertWrite
	dc.w ConvertDiskSize

;-----------------------------------------------------------
;
ConvertRead
;
; Read the resource from disk, relocate it, dispose
; of old handle, put new handle into resref record.
;
;-----------------------------------------------------------


;
; Read the data into memory
;
	pei ConvertParam+2
	pei ConvertParam
	PushWord #$2012
	jsl $E100B0
	bcc @continue

	rts

@continue


;
; Lets find the userid of the current memory.
;
	ldy #ResRefRecord.ResHandle
	lda [ResPointer],y
	sta result
	iny
	iny
	lda [ResPointer],y
	sta result+2

	ldy #6
	lda [Result],y
	tay	; put result in y for now.

	stz Result	; fix this again.
	stz Result+2
;
; Relocate it
;
	pha	; space for user id
	pha	; space for starting addr
	pha
	pha	; space for d-page/stack
	pha	; size of d-page/stack
	phy	; push the desired userid
	lda convertParam	; point to a packett that has pointer followed by 
	clc	; size
	adc #4
	tax
	lda convertParam+2
	adc #0
	pha
	phx
	PushWord #0	; don't use special memory
	PushWord #4	; input type for mem to mem that stays out of loader table
	_InitialLoad2
	bcs @LoadError
	pla	; ignore user id
	pla	; this is pointer to reloced code
	plx

	ply	; ignore size of direct page buffer
	ply	; ignore addr of direct page buffer


;
; Find the handle to the relocated code and leave result on stack.
;
	pha	; space for handle
	pha
	phx	; save pointer to relocated code on the stack.
	pha
	_FindHandle
	bcs @FindError

;
; dispose of old handle
;
	ldy #resRefRecord.resHandle+2
	lda [ResPointer],y
	pha
	dey
	dey
	lda [ResPointer],y
	pha
	_DisposeHandle


;
; Put new handle into resource map
;
	ldy #resRefRecord.resHandle
	pla
	sta [ResPointer],y
	iny
	iny
	pla
	sta [ResPointer],y

	lda #0
	clc
	rts

@LoadError	plx
	plx
	plx
@FindError	plx
	plx
	rts

;-----------------------------------------------------------
;
ConvertWrite
;
; Writes the resource to disk.
;
;-----------------------------------------------------------
;
; Write the data to disk
;
	pei ConvertParam+2
	pei ConvertParam
	PushWord #$2013
	jsl $E100B0

	rts




;-----------------------------------------------------------
;
ConvertDiskSize
;
; Returns the size the resource will take on disk.
;
;-----------------------------------------------------------

;
; Return the size of the handle in the ResRef record.
;
	pha
	pha
	ldy #ResRefRecord.ResHandle+2
	lda [ResPointer],y
	pha
	dey
	dey
	lda [ResPointer],y
	pha

	_GetHandleSize

;
; return the result
;
	plx
	stx Result
	plx
	stx Result+2

	rts




	ENDP



	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/MISC.TOOLS/InterruptState.asm b/IIGS.601.SRC/GSToolbox/MISC.TOOLS/InterruptState.asm
new file mode 100644
index 0000000..3eab2fc
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/MISC.TOOLS/InterruptState.asm
@@ -0,0 +1 @@
+	title 'Interrupt Stuff'
**********************************************************************
*
* Interrupt Record Stuff
* Copyright (C) 1988
* Apple Computer, Inc.
* All Rights Reserved
*
* This file contains the routines
*
*      GetInterruptState
*      SetInterruptState
*      GetIntStateRecSize
*
*
**********************************************************************

	include 'all.macros'
	include 'mt.equates.asm'
	include '::sys.equs.asm'


IntStateRecSize	equ AVal-irq_A

****************************************************************
*
GetInterruptState	PROC EXPORT
*
* This copies the first BytesDesired bytes of the system interrupt
* variables into the specified InterruptStateRecord.
*
*
* Inputs:
*	StateRecPtr
*	BytesDesired
*
* Outputs:
*	none
*
* External Refs:
	import EndCall6
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

	DefineStack
OrigD	word
RTL1	block 3
RTL2	block 3
BytesDesired	word
StateRecPtr	LONG

	phd
	tsc
	tcd

	phb
	pea #$e1e1
	plb
	plb

	ldy BytesDesired
	cpy #IntStateRecSize
	bcc @1
	ldy #IntStateRecSize
@1	dey
	sep #$20
	longa off


Loop	lda |irq_A,y
	sta [StateRecPtr],y
	dey
	bpl Loop


	rep #$20
	longa on

	plb

	jml EndCall6

	ENDP



****************************************************************
*
SetInterruptState	PROC EXPORT
*
* This copies the first BytesDesired bytes from the specified 
* IntStateRecord into the interrupt state variables in bank $E1.
*
*
* Inputs:
*	StateRecPtr
*	BytesDesired
*
* Outputs:
*	none
*
* External Refs:
	import EndCall6
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

	DefineStack
OrigD	word
RTL1	block 3
RTL2	block 3
BytesDesired	word
StateRecPtr	LONG

	phd
	tsc
	tcd

	phb
	pea #$e1e1
	plb
	plb

	ldy BytesDesired
	cpy #IntStateRecSize
	bcc @1
	ldy #IntStateRecSize
@1	dey
	sep #$20
	longa off


Loop
	lda [StateRecPtr],y
	sta |irq_a,y
	dey
	bpl Loop


	rep #$20
	longa on

	plb

	jml EndCall6

	ENDP



****************************************************************
*
GetIntStateRecSize	PROC EXPORT
*
* This returns the size of the interrupt state record.
*
*
* Inputs:
*	space for integer
*
* Outputs:
*	SizeofIntStateRecord
*
* External Refs:
	import oEndCall0
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

	DefineStack
RTL1	block 3
RTL2	block 3
Size	word


	lda #IntStateRecSize
	sta Size,s

	jml oEndCall0

	ENDP


	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/MISC.TOOLS/Queue.asm b/IIGS.601.SRC/GSToolbox/MISC.TOOLS/Queue.asm
new file mode 100644
index 0000000..9ce3d2f
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/MISC.TOOLS/Queue.asm
@@ -0,0 +1 @@
+	title 'Queue Stuff'
**********************************************************************
*
* Queue Stuff
* Copyright (C) 1988
* Apple Computer, Inc.
* All Rights Reserved
*
* This file contains the routines
*
*      AddToQueue
*      DeleteFromQueue
*
*
**********************************************************************

	include 'all.macros'
	include 'mt.equates.asm'
	include '::sys.equs.asm'
	title 'AddToQueue'
****************************************************************
*
AddToQueue	PROC EXPORT
*
* This routine adds the indicated record to the link list
* that starts at PtrToFirstPtr.
*
* If FirstPtr is zero, then the new pointer will be
* stored at PtrToFirstPtr.
*
* The link in the header field of the new record is zeroed.
*
* Before the items are linked, the signature word of the 
* header record is checked.  If the signature is not valid,
* and error is returned and no linkage is made.
*
*
* Inputs:
*	Pointer To Record to Add
*	Pointer To Pointer to First Record
*
* Outputs:
*	none
*
* External Refs:
	import oErrOut8
	import FindMatch
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* Change History
*
* 12 Jan 88	Steven Glass
*
* Added code to check and see if the specified entry was
* already in the queue.  When it is an error is returned.
*
****************************************************************

	DefineStack
OrigD	WORD
CurPtr	LONG
RTL1	block 3
rtl2	block 3
PtrToFirstPtr	LONG
RoutinePtr	LONG

PriorPtr	equ PtrToFirstPtr	; better name for this location when in
		; loop.


	pha	; put space for CurPtr on stack
	pha
	phd	; save d-reg
	tsc	; turn stack to d-page
	tcd

;-----------------------------------------------------------
;
; Make sure that the signature is correct.
;
	ldy #HeaderSignature
	lda [RoutinePtr],y
	cmp #QueueSignature
	bne SigError

	pha	; space for result
	pha
	pei RoutinePtr+2
	pei RoutinePtr
	pei PtrToFirstPtr+2	; save the pointer to the first pointer
	pei PtrToFirstPtr

	jsr FindMatch	; no match should be found
	bcs Continue

	pla
	pla
	ldx #AlreadyInQueue
	bra AllDone

Continue

;
; Restore the pointer to the first pointer.
;
	PullLong PriorPtr

;-----------------------------------------------------------
;
; Signature is ok, find the end and link it in.
;

	ldy #2	; set y to 2 and leave this way until end

	php	; save state of system
	sei	; turn off interrupts


;-----------------------------------------------------------
;
; We got the last one.  Link the new record into the last
; one and zero the link in the new one.
;
FoundEnd	lda RoutinePtr	; Put the pointer to the new routine in the 
	sta [PriorPtr]	; space provided in last
	lda RoutinePtr+2
	sta [PriorPtr],y

	lda #0	; zero the link field of the new routine
	sta [RoutinePtr]
	sta [RoutinePtr],y

;-----------------------------------------------------------
;
; Restore interrupts, clear error code and fall into 
; exit routine.
;
	plp

	tax	; put zero in x

AllDone	pld
	pla
	pla
	jml oErrOut8


SigError
	ldx #BadSignature
	bra AllDone

	ENDP


	title 'DeleteFromQueue'
****************************************************************
*
DeleteFromQueue	PROC EXPORT
*
* Removes the indicated record from the linked list.  First it
* checks the record for the required signature word.  If the 
* signature is not there, an error is returned.
*
* If the signature is ok, then we searc the list from the
* beginning for the indicated record.  When the record is found,
* its next field is put in the the next field of the prior record.
*
* If the record is not found, an error is returned.
*
*
* Inputs:
*	Pointer to Record To Remove
*	Pointer to First Record Pointer
*
* Outputs:
*	none
*
* External Refs:
	import oErrOut8
	import FindMatch
*
* Entry Points:
*
	longa on	; mode
	longi on
*
*
* Change History
*
* 12 Jan 88	Steven Glass
*
* Made code that searches for the specified pointer a 
* subroutine so that it can be called by AddToQueue.
*
* Changed this call to use subroutine.
*
****************************************************************

	DefineStack
OrigD	WORD
CurPtr	LONG
RTL1	block 3
rtl2	block 3
PtrToFirstPtr	LONG
RoutinePtr	LONG


PriorPtr	equ PtrToFirstPtr	; better name for this location when in
		; loop.



	pha	; put space on stack for CurPtr
	pha
	phd	; save d-page
	tsc	; turn stack to dpage
	tcd	

;-----------------------------------------------------------
;
; Check the signature.  If it is not correct, we're
; done now.
;
	ldy #HeaderSignature
	lda [RoutinePtr],y
	cmp #QueueSignature
	bne SigError


;-----------------------------------------------------------
;
; Routine signature is ok, lets find the indicated record.
;
SigOK

	pha	; space for result
	pha
	pei RoutinePtr+2
	pei RoutinePtr
	pei PtrToFirstPtr+2	; save the pointer to the first pointer
	pei PtrToFirstPtr
	jsr FindMatch
	PullLong PriorPtr
	bcc FoundIt


;-----------------------------------------------------------
;
; We go to the end without finding the record.  Restore
; interrupt state, put error code in x and join
; common exit routine.
;
	ldx #RecordNotFound
	bra AllDone


FoundIt
	ldy #2	; we set y to 2 here and not touch it again
		; in this routine

;-----------------------------------------------------------
;
; Manipulate the Queue with interrupts off.
;
	php	; save state of system
	sei	; turn off interrupts



;-----------------------------------------------------------
;
; We found it.  Take the value in the link field and put
; it in the link field of the previous record.
;
	lda [RoutinePtr]
	sta [PriorPtr]
	lda [RoutinePtr],y
	sta [PriorPtr],y

;-----------------------------------------------------------
;
; Restore interrupts, set error code and join common
; exit code.
;
	plp
	ldx #0


;-----------------------------------------------------------
;
; Exit now
;

AllDone	pld	; restore d-page
	pla	; clear off CurPtr
	pla
	jml oErrOut8	; clean up stack.

;-----------------------------------------------------------
;
; There was a signature error.  Set the error code and get
; out.
;
SigError
	ldx #BadSignature	; error returned in x-reg
	bra AllDone

	ENDP

****************************************************************
*
FindMatch	PROC
*
* Searches for the specified entry in the indicated queue.
*
* If the entry is found, the carry returns clear.
* If the entry is not found, the carry returns set.
*
* The output is the pointer to the entry that points to 
* the specified entry, or the last entry in the list if no 
* match is found.
*
*
* Inputs:
*	Space For Result
*	Routine Ptr
*	PtrToFirstPtr
*
* Outputs:
*	Entry That Points to Matching Entry
*	Carry Clear indicates match
*	Carry set indicates no match.
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************
	DefineStack
OrigD	word
RTS	word
PtrToFirstPtr	LONG
RoutinePtr	LONG
CurPtr	LONG

	phd
	tsc
	tcd

;-----------------------------------------------------------
;
; Put the first pointer in CurPtr
;
	lda PtrToFirstPtr
	sta CurPtr
	lda PtrToFirstPtr+2
	sta CurPtr+2

;
; Set y to 2 once and only once.
;
	ldy #2
;-----------------------------------------------------------
;
; Loop through, looking to see when CurPtr is equal to
; the Pointer that was passed.  If CurPtr is zero, we
; reached the end of the list and didn't find it.
;
Loop	
	lda [CurPtr]
	ora [CurPtr],y
	beq NoMatch

	lda [CurPtr]	; is it this one?
	cmp RoutinePtr
	bne NotThisOne	; no

	lda [CurPtr],y	; maybe, look at high word
	cmp RoutinePtr+2
	bne NotThisOne

Match
	clc
	bra Strip
NoMatch
	sec

Strip
	pld
	plx
	pla
	pla
	pla
	pla
	phx
	rts
;-----------------------------------------------------------
;
; This was not the right one, so walk down the list by 
; moving CurPtr to PriorPtr and putting the link
; into CurPtr.  Go back to beginning of the loop.
;
NotThisOne

	lda [CurPtr]	; move next to curPtr
	tax
	lda [CurPtr],y
	sta CurPtr+2
	stx CurPtr

	bra Loop	; and loop





	ENDP


	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/MISC.TOOLS/ROMDataMgr.ASM b/IIGS.601.SRC/GSToolbox/MISC.TOOLS/ROMDataMgr.ASM
new file mode 100644
index 0000000..b583653
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/MISC.TOOLS/ROMDataMgr.ASM
@@ -0,0 +1 @@
+	title 'ROMDataMgr'
**********************************************************************
*
* ROMDataMgr
* Copyright (C) 1989
* Apple Computer, Inc.
* All Rights Reserved
*
* This file contains the routines
*
*      GetROMResource
*      ReleaseROMResource
*
*
* These routines will allow ROM code to take advantage of resources when
* they are available by checking to see if a resource exists and loading it
* for the tool if needed. If the resource is not needed, this routine will
* simply return a fake handle to a ROM resource. 
*
* Version 1.0	Mensch
*    1/16/89	Initial version
*
*    2/17/89	Yee
*  	Changed size of bounds rect for the edit line control.
*	Did not allow enough room for 3 chars. X2 changed from
*	241 to 247. BRC #41036
*
*    2/23/89	Mensch
*	Changed keytrans table to fix bugs reported in
*	BRC #44583
*
* 22-Apr-91	Dave Lyons
*
* Minor changes to the ChooseFont resources to make it look pretty how
* Ron wants it.
*
**********************************************************************
	include 'all.macros'
	include 'mt.equates.asm'
	include '::sys.equs.asm'

	EJECT
*******************************************************************************
*
ROMDataArea	RECORD
	import w320start
	import w640start
*
* Description:	This area contains ROM resources that are used by ALL tools
*	feel free to add to this list any time you want, HOWEVER
*	try not to remove any data without making sure no one else
*	is using it! The format of each "Resource" is:
*
*	theType - WORD type of resource (must match res mgr types
*	theID - LONG Unique 4 byte integer for this type of resource
*	thePtr - LONG pointer to the raw data
*
*	the table MUST terminate with an entry filled with blanks
*	following the table, you can define any data you want. All
*	ROM data should be in here.
*
*	ID Conventions. It would be nice if we all followed simple
*	guidelines for creating ID numbers for our resources.
*	the ID should be in the following format
*	
*	$0FFFttii
*	  where tt is the tool set number and ii is a unique
*	  id number for that toolset.
*
*******************************************************************************
SizeofEntry 	equ 10

TypeList	dc.W $FFFF	; first resource is a sample...
IDList	dc.L 1	; please don't remove...
HandleTbl	dc.L HandleTbl	; sampleData

; Entry for Font Manager ChooseFont templates here!
	dc.W $800E	; resource Type
	dc.L $0FFF1B01	; font manager window #1
	dc.L w320Start
	
	dc.W $800E	; res type
	dc.L $0FFF1B02	; font manager window #2
	dc.L w640Start
	
	IF Big=1 THEN
; Entry for Event manager
; Default ID is now $FF instead of $01
	dc.W $8021	; res Type Ktrans table
	dc.L $0FFF06FF	; ID Number
	dc.L DefkTransTbl	; default ktrans table
	ENDIF
;
; END OF ID TABLE: DO NOT MODIFY THIS NEXT RECORD
	dc.W $0000
	dc.L $00000000
	dc.L $00000000
;
; Event Manager data area
	MACRO
	dosomeBytes &Start,&End
	LCLA &counter
&Counter	SETA &Start	; init our counter
	WHILE (&Counter<(&End+1)) DO
	  dc.B &Counter
	  &Counter: SETA &Counter+1
	ENDWHILE
	ENDM
	
	IF Big=1 THEN
DefkTransTbl
	dosomeBytes 0,127	; generate normal keys, no sub
; option substitution table starts here...
; NOTE that when a printable mac keystroke exists for this table,
; we will use the same keystroke that the mac uses
	doSomeBytes 0,31	; generate option control, no change
;
; the following table generated by:
;set x 32
;Loop
;    echo "¶tdc.B ${x}¶t;sub for option - {x}" ;
;    set x `evaluate {x}+1` ;
;    If {X}>127 
;        break
;    else
;        continue
;    end;
;End  


	dc.B $CA	;sub for option - 32
	dc.B $DA	;sub for option - 33
	dc.B $AE	;sub for option - 34
	dc.B $DC	;sub for option - 35
	dc.B $DD	;sub for option - 36
	dc.B $DE	;sub for option - 37
	dc.B $E0	;sub for option - 38
	dc.B $BE	;sub for option - $27
	dc.B $E1	;sub for option - 40
	dc.B $E2	;sub for option - 41
	dc.B $A1	;sub for option - 42
	dc.B $B1	;sub for option - +
	dc.B $B2	;sub for option - ,
	dc.B $D0	;sub for option - -
	dc.B $B3	;sub for option - .
	dc.B 'Ö'	;sub for option - /
	dc.B $BC	;sub for option - $30
	dc.B $C1	;sub for option - 49
	dc.B $AA	;sub for option - 50
	dc.B $A3	;sub for option - 51
	dc.B $A2	;sub for option - 52
	dc.B $B0	;sub for option - 53
	dc.B $A4	;sub for option - 54
	dc.B $A6	;sub for option - 55
	dc.B $A5	;sub for option - 56
	dc.B $BB	;sub for option - 57
	dc.B $F2	;sub for option - 58
	dc.B $C9	;sub for option - 59
	dc.B $F8	;sub for option - 60
	dc.B $AD	;sub for option - 61
	dc.B $F9	;sub for option - 62
	dc.B $C0	;sub for option - 63
	dc.B $DB	;sub for option - $40
	dc.B $81	;sub for option - 65
	dc.B $F5	;sub for option - 66
	dc.B $82	;sub for option - 67
	dc.B $EB	;sub for option - 68
	dc.B $E4	;sub for option - 69
	dc.B $EC	;sub for option - 70
	dc.B $ED	;sub for option - 71
	dc.B $EE	;sub for option - 72
	dc.B $E9	;sub for option - 73
	dc.B $EF	;sub for option - J
	dc.B $F0	;sub for option - K
	dc.B $F1	;sub for option - L
	dc.B $F7	;sub for option - M
	dc.B $F6	;sub for option - N
	dc.B $AF	;sub for option - O
	dc.B $B8	;sub for option - P
	dc.B $CE	;sub for option - Q
	dc.B $E5	;sub for option - R
	dc.B $EA	;sub for option - S
	dc.B $E6	;sub for option - T
	dc.B $E8	;sub for option - U
	dc.B $D7	;sub for option - V
	dc.B $E3	;sub for option - W
	dc.B $F4	;sub for option - X
	dc.B $E7	;sub for option - Y
	dc.B $F3	;sub for option - Z
	dc.B $D2	;sub for option - [
	dc.B $C7	;sub for option - \
	dc.B $D4	;sub for option - ]
	dc.B $DF	;sub for option - 94
	dc.B $D1	;sub for option - 95
	dc.B $60	;sub for option - $60
	dc.B $8C	;sub for option - a
	dc.B $BA	;sub for option - b
	dc.B $8D	;sub for option - c
	dc.B $B6	;sub for option - d
	dc.B $AB	;sub for option - e
	dc.B $C4	;sub for option - f
	dc.B $A9	;sub for option - g
	dc.B $FA	;sub for option - h
	dc.B $5E	;sub for option - i
	dc.B $C6	;sub for option - j
	dc.B $FB	;sub for option - k
	dc.B $C2	;sub for option - l
	dc.B $B5	;sub for option - m
	dc.B $7E	;sub for option - n
	dc.B $BF	;sub for option - o
	dc.B $B9	;sub for option - p
	dc.B $CF	;sub for option - q
	dc.B $A8	;sub for option - r
	dc.B $A7	;sub for option - s
	dc.B $A0	;sub for option - t
	dc.B $AC	;sub for option - u
	dc.B $C3	;sub for option - v
	dc.B $B7	;sub for option - w
	dc.B $C5	;sub for option - x
	dc.B $B4	;sub for option - y
	dc.B $BD	;sub for option - z
	dc.B $D3	;sub for option - {
	dc.B $C8	;sub for option - |
	dc.B $D5	;sub for option - }
	dc.B $D9	;sub for option - ~
	dc.B $7F	;sub for option - DEL
; end Sub_Array here, now create the dead key table...
DeadKStart
; First, entry for grave accent
	dc.B $60,(GAStart-DeadKStart)/2
; next carat over letter...
	dc.B $5E,(CAStart-DeadKStart)/2
; accent over letter
	dc.B $AB,(ACStart-DeadKStart)/2
; TidlŽ over letter
	dc.B $7E,(TCStart-DeadKStart)/2
; oomlaut over letter
	dc.B $AC,(OLStart-DeadKStart)/2
; end of this table
	dc.W 0
GAStart
	dc.B 'a','ˆ'
	dc.B 'A','Ë'
	dc.B 'e','�'
	dc.B 'i','“'
	dc.B 'o','˜'
	dc.B 'u','�'
	dc.B ' ','`'
	dc.W $0000
CAStart
	dc.B 'a','‰'
	dc.B 'e','�'
	dc.B 'i','”'
	dc.B 'o','™'
	dc.B 'u','ž'
	dc.B ' ','^'
	dc.W $0000
	
ACStart
	dc.B 'E','ƒ'
	dc.B 'a','‡'
	dc.B 'e','Ž'
	dc.B 'i','’'
	dc.B 'o','—'
	dc.B 'u','œ'
	dc.B ' ','«'
	dc.W $0000
	
TCStart
	dc.B 'A','Ì'
	dc.B 'N','„'
	dc.B 'O','Í'
	dc.B 'a','‹'
	dc.B 'n','–'
	dc.B 'o','›'
	dc.W $0000

OLStart
	dc.B 'A','€'
	dc.B 'O','…'
	dc.B 'U','†'
	dc.B 'a','Š'
	dc.B 'e','‘'
	dc.B 'i','•'
	dc.B 'o','š'
	dc.B 'u','Ÿ'
	dc.B 'y','Ø'
	dc.B ' ','¬'
	dc.W $0000
; end ktrans table here
	ENDIF
	
	EndR


ChooseFontStuff	proc export
	export w320start
	export w640start

*-------------- Window Stuff for ChooseFont --------------------
; Equates for ChooseFont item ID's
MDListID	equ 1
SizeListID	equ 2
SizeEditID	equ 3
OKID	equ 4
CancelID	equ 5
; these next style ID's must be in order...
PlainSID	equ 6
BoldSID	equ 7
ItalicSID	equ 8
UnderSID	equ 9
OutlineSID	equ 10
ShadowSID	equ 11
LastSID	equ 12
;
stat1ID	equ 12
stat2ID	equ 13
stat3ID	equ 14
styleFrameID	equ $42
;
; RefCon Equates for ChooseFont controls
useNILHit	equ 0
useFontHit	equ 1
useSizeHit	equ 2
useOtherHit	equ 3
useOKHit	equ 4
useCancelHit	equ 5
usePlainHit	equ 6
useStyleHit	equ 7

W320Start
	DC.W W320_End-W320Start	;$50        ;wind_end-wind_size
	DC.W %0010000000000001	;made invisible 17-Feb-91 DAL
	DC.L 0
	DC.L 0
	DC.W 0,0,0,0
	DC.L 0
	DC.W 0
	DC.W 0
	DC.W 0
	DC.W 0
	DC.W 0
	DC.W 0
	DC.W 0	;Number of pixels to scroll vertically.
	DC.W 0	;Number of pixels to scroll horizontally.
	DC.W 0	;Number of pixels to page vertically.
	DC.W 0	;Number of pixels to page horizontally.
	DC.L 0	;Infomation bar text string.
	DC.W 0	;Height of information bar.
	DC.L 0	;DefProc.
	DC.L 0	;Routine to draw info. bar.
	DC.L 0	;Routine to draw content.
	dc.W 25,20,185,300 ;window position
	DC.L $FFFFFFFF	;Plane to put window up in.
	DC.L w320CtlLst	;Address of array of control pointers.
	dc.W 3	; control template list of ptrs...
w320_end

w320CtlLst
;;;	dc.L w640MDList,w640SizeList,w640SizeEdit,w320OKButton
	dc.L w640SizeEdit,w640SizeList,w320MDList,w320OKButton
	dc.L w320CanButton,w640plainS,w640BoldS,w640ItalicS
	dc.L w640UnderS,w640OutLineS,w640ShadowS,w640Stat1
	dc.L w640Stat2,w640Stat3,w320StyleFrame
	dc.L 0
	
W640Start
	DC.W W640_End-W640Start	;$50        ;wind_end-wind_size
	DC.W %0010000000000001	;made invisible 17-Feb-91 DAL
	DC.L 0
	DC.L 0
	DC.W 0,0,0,0
	DC.L 0
	DC.W 0
	DC.W 0
	DC.W 0
	DC.W 0
	DC.W 0
	DC.W 0
	DC.W 0	;Number of pixels to scroll vertically.
	DC.W 0	;Number of pixels to scroll horizontally.
	DC.W 0	;Number of pixels to page vertically.
	DC.W 0	;Number of pixels to page horizontally.
	DC.L 0	;Infomation bar text string.
	DC.W 0	;Height of information bar.
	DC.L 0	;DefProc.
	DC.L 0	;Routine to draw info. bar.
	DC.L 0	;Routine to draw content.
	dc.W 25,175,185,465 ;window position
	DC.L $FFFFFFFF	;Plane to put window up in.
	DC.L w640CtlLst	;Address of array of control pointers.
	dc.W 3	; control template list of ptrs...
w640_end

w640CtlLst
;;;	dc.L w640MDList,w640SizeList,w640SizeEdit,w640OKButton
	dc.L w640SizeEdit,w640SizeList,w640MDList,w640OKButton
	dc.L w640CanButton,w640plainS,w640BoldS,w640ItalicS
	dc.L w640UnderS,w640OutLineS,w640ShadowS,w640Stat1
	dc.L w640Stat2,w640Stat3,w640StyleFrame
	dc.L 0

w640MDList	dc.W 8	; number of parameters
	dc.L MDListID	; app ID
***	dc.W 14,15,76,250	; font rectangle
	dc.W 14-1,15+2-9,76-1,250+2+18+9  ; font-list rectangle
	dc.L $89000000	; procref
	dc.W 0	; flags (visible)
	dc.W $7000	; MoreFlags (FctlProcNotPtr) [was $1000 4-Feb-91 DAL; can be target now]
	DC.L useFontHit	;refcon
	dc.W 0	; number of members
	DC.W 0	;view size
	DC.W 2+4	;type of members
	DC.W 1	;starting member
	DC.L 0	;List drawing routine
	DC.W 10	;height of member in pixels
	DC.W 8	;size of each member record
	DC.L 0	;pointer to member list
	dc.L 0

w320MDList	dc.W 8	; number of parameters
	dc.L MDListID	; app ID
***	dc.W 14,15,76,250	; font rectangle
	dc.W 14-1,15+2-9,76-1,250+2+18+9-8  ; font-list rectangle
	dc.L $89000000	; procref
	dc.W 0	; flags (visible)
	dc.W $7000	; MoreFlags (FctlProcNotPtr) [was $1000 4-Feb-91 DAL; can be target now]
	DC.L useFontHit	;refcon
	dc.W 0	; number of members
	DC.W 0	;view size
	DC.W 2+4	;type of members
	DC.W 1	;starting member
	DC.L 0	;List drawing routine
	DC.W 10	;height of member in pixels
	DC.W 8	;size of each member record
	DC.L 0	;pointer to member list
	dc.L 0

w640SizeList	dc.W 14
	dc.L SizeListID
***	dc.w 90,130,152,173
	dc.w 90-7,128,152+4,171   ;new rectangle 4 pixels to the left, since it can be the Target now (17-Feb-91 DAL)
	dc.L $89000000
	dc.W 0
	dc.W $7000	;moreflags was $1000 4-Feb-91 DAL (can be target now)
	dc.L useSizeHit	;refcon
	dc.W 0	;listsize
	dc.W 0	;listView
	dc.W 2	;listType
	dc.W 1	;listStart
	dc.L 0	;listDraw (should be patched later when list created)
	dc.W 10	;listMemHeight
	dc.W 5	;listMemSize
	dc.L 0	;listRef set by newList2...
;;;	dc.L 0	;colorTableRef

w640SizeEdit	dc.W 8	; size of the record
	dc.L SizeEditID	; app ID
***	dc.W 101,211,112,247
	dc.w 100-8,211,113-8,247  ;new rectangle 17-Feb-91 DAL (taller)
	dc.L $83000000
	dc.W 0	; flags (visible)
	dc.W $1000	; procnotref default is ptr
	dc.L useOtherHit	; refcon
	dc.W 3	; max string length
	dc.L 0	; no default...
	
w640OKButton	dc.W 9	; size of the record
	dc.L OKId	; appID
***	dc.W 140,205,153,275
	dc.W 140+1,207,153+1,277
	dc.L $80000000
	dc.W 1
	dc.W $3000
	dc.L useOKHit
	dc.L OKStr
	dc.l 0	;color table
	dc.b $0d,$0d	;Return
	dc.w 0,0	;modifiers
	
w640CanButton	dc.W 9
	dc.L CancelID
***	dc.W 122,205,135,275
	dc.W 122+1,207,135+1,277
	dc.L $80000000
	dc.W 0
	dc.W $3000
	dc.L useCancelHit
	dc.L CancelStr
	dc.l 0	;color table
	dc.b $1b,$1b	;escape
	dc.w 0,0	;modifiers

w320OKButton	dc.W 9	; size of the record
	dc.L OKId	; appID
***	dc.W 140,205,153,265
	dc.W 140+1,207,153+1,267
	dc.L $80000000
	dc.W 1
	dc.W $3000
	dc.L useOKHit
	dc.L OKStr
	dc.l 0	;color table
	dc.b $0d,$0d	;Return
	dc.w 0,0	;modifiers
	
w320CanButton	dc.W 9
	dc.L CancelID
***	dc.W 122,205,135,265
	dc.W 122+1,207,135+1,267
	dc.L $80000000
	dc.W 0
	dc.W $3000
	dc.L useCancelHit
	dc.L CancelStr
	dc.l 0	;color table
	dc.b $1b,$1b	;escape
	dc.w 0,0	;modifiers

w640plainS	dc.W 10
	dc.L PlainSID
	dc.W 90-2,17,100-2,122
	dc.L $82000000
	dc.W 0	; flags (visible)
	dc.W $3000	; MoreFlags (FctsProcNotPtr)
	dc.L usePlainHit
	dc.L Style1Str
	dc.W 0	;initial value
	dc.l 0	;color table
	dc.b 'P','p'
	dc.w $0100,$0100	;Apple key

w640BoldS	dc.W 10
	dc.L BoldSID
	dc.W 101-2,17,111-2,122
	dc.L $82000000
	dc.W 0	; flags (visible)
	dc.W $3000	; MoreFlags (FctsProcNotPtr)
	dc.L useStyleHit
	dc.L Style2Str
	dc.W 0
	dc.l 0	;color table
	dc.b 'B','b'
	dc.w $0100,$0100	;Apple key

w640ItalicS	dc.W 10
	dc.L ItalicSID
	dc.W 112-2,17,122-2,122
	dc.L $82000000
	dc.W 0	; flags (visible)
	dc.W $3000	; MoreFlags (FctsProcNotPtr)
	dc.L useStyleHit
	dc.L Style3Str
	dc.W 0
	dc.l 0	;color table
	dc.b 'I','i'
	dc.w $0100,$0100	;Apple key

w640UnderS	dc.W 10
	dc.L UnderSID
	dc.W 123-2,17,133-2,122
	dc.L $82000000
	dc.W 0	; flags (visible)
	dc.W $3000	; MoreFlags (FctsProcNotPtr)
	dc.L useStyleHit
	dc.L Style4Str
	dc.W 0
	dc.l 0	;color table
	dc.b 'U','u'
	dc.w $0100,$0100	;Apple key

w640OutLineS	dc.W 10
	dc.L OutlineSID
	dc.W 134-2,17,144-2,122
	dc.L $82000000
	dc.W 0	; flags (visible)
	dc.W $3000	; MoreFlags (FctsProcNotPtr)
	dc.L useStyleHit
	dc.L Style5Str
	dc.W 0
	dc.l 0	;color table
	dc.b 'O','o'
	dc.w $0100,$0100	;Apple key
	
w640ShadowS	dc.W 10
	dc.L ShadowSID
	dc.W 145-2,17,155-2,122
	dc.L $82000000
	dc.W 0	; flags (visible)
	dc.W $3000	; MoreFlags (FctsProcNotPtr)
	dc.L useStyleHit
	dc.L Style6Str
	dc.W 0
	dc.l 0	;color table
	dc.b 'S','s'
	dc.w $0100,$0100	;Apple key

w640Stat1	dc.W 8
	dc.L stat1ID
	dc.W 4-1,15+2,14-1,122+2
	dc.L $81000000
	dc.W $FF01	; pstring
	dc.W $1000
	dc.L useNILHit
	dc.L FontStr+1
	dc.W 5
	
w640Stat2	dc.W 8
	dc.L stat2ID
	dc.W 89-8,205+6,99-8,280+6
	dc.L $81000000
	dc.W $FF01	; pstring
	dc.W $1000
	dc.L useNILHit
	dc.L SizeStr+1
	dc.W 5
	
w640Stat3	dc.W 8
	dc.L stat3ID
***	dc.W 78,17,88,205
	dc.W 78-1,17+4,88-1,17+4+$33	;DAL
	dc.L $81000000
	dc.W $FF01	; pstring
	dc.W $1000
	dc.L useNILHit
	dc.L StyleStr+1
***	dc.W 6
	dc.w 7	;length of new " Style " string (DAL)

w320StyleFrame	dc.w 9
	dc.l styleFrameID	;control ID
	dc.w 83-1,8,157-1,118
	dc.l $87FF0003	;Frame Control (from Sys.Resources)
	dc.w $ff02	;hilite=$ff, flags=10 (black)
	dc.w $1000	;moreflags
	dc.l useNILHit	;who cares (we're inactive)
	dc.w 1	;pen height
	dc.w 2	;pen width in 640 mode
	dc.b $aa,$55,$aa,$55,$aa,$55,$aa,$55  ;pen mask

w640StyleFrame	dc.w 9
	dc.l styleFrameID	;control ID
	dc.w 83-1,8,157-2,118
	dc.l $87FF0003	;Frame Control (from Sys.Resources)
	dc.w $ff02	;hilite=$ff, flags=10 (black)
	dc.w $1000	;moreflags
	dc.l useNILHit	;who cares (we're inactive)
	dc.w 1	;pen height
	dc.w 2	;pen width in 640 mode
	dc.b $cc,$00,$cc,$00,$cc,$00,$cc,$00  ;pen mask

FontStr	str 'Font:'
***StyleStr	str 'Style:'
StyleStr	str ' Style '
SizeStr	str 'Size:'
OtherStr1	str 'Other'
OtherStr2	str 'Size:'
OKStr	str 'OK'
CancelStr	str 'Cancel'
Style1Str	str 'Plain'
Style2Str	str 'Bold'
Style3Str	str 'Italic'
Style4Str	str 'Underline'
Style5Str	str 'Outline'
Style6Str	str 'Shadow'

; END of Font manager data area
	EndP


	EJECT
*******************************************************************************
*
GetROMResource	PROC EXPORT
*
* Description:	This call will return a 'handle' to the data requested by the
*	ROM routine. This will either be a fake handle that exists
*	only in ROM, or a real resource loaded from disk. The tool
*	should not treat this resouce any different from a handle, 
*	except that it is always to be treated as read only. The 
*	parameters of this call are identical to those of the
*	real resource manager. Please refer to then for further 
*	details.
*
*
* Inputs:	On Stack
*	|  previous contents  |
*	+---------------------+
*	|                     |
*	+--    LongSpace    --+ LONG Room for result
*	|                     |
*	+---------------------+
*	|   resource type     | WORD Type of resource to find
*	+---------------------+
*	|                     |
*	+--   resource ID   --+ LONG ID of resource to load
*	|                     |
*	+---------------------+
*	|  	  | <- SP
*
*	
*
* Outputs:	On Stack
*	|  previous contents  |
*	+---------------------+
*	|                     |
*	+--   Data Handle   --+ LONG Handle to data storage
*	|                     |
*	+---------------------+
*	|  	  | <- SP
*
*
* Errors:	Memory manager errors
*	$0310   Requested data does not exist
*	        This can only happen if a ROM version of the data
*	        does not already exist.
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
	With ROMDataArea
;
; Equates for use with our stack frame...
SaveDPage	equ 1
RetAddr1	equ SaveDPage+2
RetAddr2	equ RetAddr1+3
resID	equ RetAddr2+3
ResType	equ ResID+4
result	equ resType+2

	phd	; save the current dpage
	tsc	; get the stack pointer
	tcd	; and make it the direct page...
	
	stz <result	; first zero out the result
	stz <result+2
	
;
; Since this tool is going to work with the resource manager, we will first 
; test to see if the resource manager is running with the status call

	pea $0000	; room for result
	_ResourceStatus
	pla
	beq UseROMData	; if this is false, use the ROM data
	
;
; If the resource manager is running, try to load the resource that we want.

	pha	; room for result
	pha
	lda <ResType	; type of resource to load
	pha
	lda <ResID+2	; ID of resource to load
	pha
	lda <ResID
	pha
	_Loadresource	;attempt to load the resource from the file
	pla	; get the result for a second...
	plx
	bcs UseROMData	; if an error occured, us the ROM resource
;
; If we get this far then we have loaded the resource from the resource file,
; and we should just return its handle to the caller...

	sta <result	; store the result in result
	stx <result+2
	ldy #0	; error code ...
	brl GRRDone	; and end the call
	
;
UseROMData
; This routine will be called when the apropriate resource is not available, it will
; look thru the ROM data tables and pick out the proper handle from the list. If it
; can not find a proper resource in the list, it will simply bomb with a data not
; found error

	ldx #0	; init our counter
FindLoop	lda >TypeList,x	; load in the first type
	cmp <resType	; does it match our desired id?
	bne tryNext	; if not, try the next one
	lda >IDList,x	; next try the ID list
	cmp <ResID	; see if the ID matches
	bne tryNext	; if not try the next one
	lda >IDList+2,x	; now the high byte of the ID
	cmp <ResID+2
	bne tryNext
	bra FoundROMData	; if all tests match, then we found the ROM data
tryNext
	lda >TypeList,x	; test to see if we are at the end of the list
	ora >IDList,x	; by finding 0's in the type and ID field
	ora >IDList+2,x
	beq NoROMData	; if this is zero, then there is no ROM data
	txa	; bump our counter
	clc
	adc #SizeofEntry	; by the size of each entry
	tax	; and try the next one...
	bra FindLoop	
NoROMData
;
; This routine places an error into Y and ends
	ldy #$0310	; data not found error
	brl GRRDone
	
FoundROMData
;
; This routine sets up the proper result and returns it to the caller.
	txa	; put table offset into <A>
	clc	; and create a pointer to our pointer
	adc #HandleTbl
	sta <Result
	lda #0
	adc #HandleTbl>>16
	sta <Result+2
	ldy #0
;	
GRRDone
; This routine moves the return address on the stack and then tests <Y> for an
; error code, and returns.

	lda <RetAddr1	; move the return address
	sta <ResID
	lda <RetAddr1+2
	sta <ResID+2
	lda <RetAddr1+4
	sta <ResID+4
	
	pld	; recover the direct page
	plx	; remove 6 bytes of data
	plx
	plx
	
	tya	; put the return address into <A>
	cmp #1	; set the carry
	rtl	; and leave
	EndP
	
	EJECT
*******************************************************************************
*
ReleaseROMResource	PROC EXPORT
*
* Description:	This call releases a resource that was given by the 
*	GetROMResource call. It should be made for all data
*	that you retrieve even if its in firmware.
*
*
* Inputs:	On Stack
*	|  previous contents  |
*	+---------------------+
*	|   resource type     | WORD Type of resource to release
*	+---------------------+
*	|                     |
*	+--   resource ID   --+ LONG ID of resource to release
*	|                     |
*	+---------------------+
*	|  	  | <- SP
*
*	
*
*	
*
* Outputs:	On Stack
*	|  previous contents  |
*	+---------------------+
*	|  	  | <- SP
*
*
* Errors:	Memory manager errors
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
	With ROMDataArea
;
; Equates for use with our stack frame...
SaveDPage	equ 1
RetAddr1	equ SaveDPage+2
RetAddr2	equ RetAddr1+3
resID	equ RetAddr2+3
ResType	equ ResID+4

	phd	; save the current dpage
	tsc	; get the stack pointer
	tcd	; and make it the direct page...
	
;
; Since this tool is going to work with the resource manager, we will first 
; test to see if the resource manager is running with the status call

	pea $0000	; room for result
	_ResourceStatus
	pla
	beq UseROMData	; if this is false, use the ROM data
	
;
; If the resource manager is running, release the given resource.

	pea $0003	; set to highest purge factor
	lda <ResType	; type of resource to release
	pha
	lda <ResID+2	; ID of resource to release
	pha
	lda <ResID
	pha
	_ReleaseResource	;attempt to load the resource from the file
	bcs UseROMData	; if an error occured, us the ROM resource
;

	ldy #0	; error code ...
	brl GRRDone	; and end the call
;
UseROMData
	ldy #0
;	
GRRDone
; This routine moves the return address on the stack and then tests <Y> for an
; error code, and returns.

	lda <RetAddr1	; move the return address
	sta <ResID
	lda <RetAddr1+2
	sta <ResID+2
	lda <RetAddr1+4
	sta <ResID+4
	
	pld	; recover the direct page
	plx	; remove 6 bytes of data
	plx
	plx
	
	tya	; put the return address into <A>
	cmp #1	; set the carry
	rtl	; and leave
	EndP
	
	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/MISC.TOOLS/makefile b/IIGS.601.SRC/GSToolbox/MISC.TOOLS/makefile
new file mode 100644
index 0000000..5a2552e
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/MISC.TOOLS/makefile
@@ -0,0 +1 @@
+mt.in.ram		Ä	mt.in.ram.asm.obj queue.asm.obj interruptstate.asm.obj ROMDataMgr.asm.obj converter.asm.obj	
	Linkiigs 	mt.in.ram.asm.obj  ¶
				queue.asm.obj				¶
				ROMDataMgr.asm.obj ¶
				converter.asm.obj				¶
				InterruptState.asm.obj				¶
				::qd:qdalone:strip.asm.obj 	¶
				::qd:objs:init.asm.obj(SPECIALNEWHANDLE,NEWHANDLEGLUE) 		¶
				::intmath:im.asm.obj	¶
	-o mt.in.ram  -t $BC


mt.in.ram.asm.obj		Ä		misc.tools.asm	
	Asmiigs	   misc.tools.asm -d RAMVersion=1 -o mt.in.ram.asm.obj

queue.asm.obj		Ä		queue.asm	
	Asmiigs	   queue.asm

ROMDataMgr.asm.obj		Ä		ROMDataMgr.asm	
	Asmiigs	   ROMDataMgr.asm -d Big=1

Converter.asm.obj		Ä		Converter.asm	
	Asmiigs	   Converter.asm -unsafe -wi

InterruptState.asm.obj		Ä		InterruptState.asm	
	Asmiigs	   InterruptState.asm

mt.loader		Ä   mt.loader.asm.obj
	linkiigs mt.loader.asm.obj		¶
	-o mt.loader
	
mt.loader.asm.obj 	Ä	mt.loader.asm
	asmiigs mt.loader.asm
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/MISC.TOOLS/misc.tools.asm b/IIGS.601.SRC/GSToolbox/MISC.TOOLS/misc.tools.asm
new file mode 100644
index 0000000..29ab598
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/MISC.TOOLS/misc.tools.asm
@@ -0,0 +1 @@
+	title 'Misc Tools           GS ROM 3.0'
**********************************************************************
*
*	   Misc Tools
*
*
*	Copyright (C) 1985-1988
*	All Rights Reserved
*	Apple Computer, Inc.
*
*
* Change History
*
* Revision     Date	    Description	               Who
* Alpha1.0     02-17-86  Initial ALPHA release          RBM
*              02-27-86  Implemented IDTAG MGR          RBM
*	     Corrected error codes
*	     Math Divide/0 error reporting
*	     Fixed MAINSIDE	dispatcher
*              03-07-86  Build NEW miscellaneous tools  RBM
* Beta 1.0     03-26-86  Psuedo keyboard IRQ task.      RBM
* Beta 2.0     04-23-86  More parms for	get address.    RBM
*              04-29-86  No calls to system death from  RBM
*	     mouse tools.  Added absolute
*	     device clamp support. The get
*	     address call has more parms.
* Rom  0.1     10-27-86  Fixed endcall in SetAbsClamps. RBM
*	     ID manager now	reassigns tags.
*	     Fixed WrBram &	RdBram so that
*	     buffer may be in any bank.
* Rom  0.1     10-29-86  Added SysBeep	                RBM
*
* For ROM 3.0
*
* 06 May 88	Joe Bo
*
* Implemented mouse hardware interfaces to mouse calling routines.
*
*
* 09 May 88	Joe Bo
*
* Added a new entry point for BASIC to initialize mouse.
*
*
* 26 Jul 88	Steven Glass
*
* Get and SetVector disable interrupts during access to the vectors.
*
* DelHeartbeat and ClearHeartbeat try and turn off vbl interrupts
* if it is safe to do so.
*
* 10 Sep 88	Steven Glass
*
* Entry in call table for BasicInit did not include -1.
*
* Added calls AddToQueue and DeleteFromQueue.
*
* 30 Sep 88	Joe Bo
*
* GetMouseClamp:  Saved and restored dbr around internal calls.
*
* 03 Sep 88	Steven Glass
*
* GetMouseClamp:  Changed equates to account for saving and restoring dbr.
*
* 17 Oct 88	Steven Glass
*
* The bParam table entry for slot one (address $21) is not offset
* to $58.  This is to make appletalk work in the new configuration.
*
* 17 Nov 88	Konstantin Othmer
*
* Added slot arbiter stuff to fwentry.  A call to _FWEntry (which really goes
*  through MonEntry) will set the slots to the default configuration if the call
*  is in the Cn00 space.  Using fwentry directly (which only the text tools do)
*  will not change the slot configuration.
*
* 08 Dec 88	Steven Glass
*
* Change to DeathMgr in way it checks for NIL ptr.
*
* 04 Jan 89	Mensch
* 
* Added ReadMouse2 Call. and changed ReadMouse call, The new read mouse is
* identical to old read mouse read mouse, except that
* it will allow journaling to occur. ReadMouse2 is the old readmouse call
* should only be used by the event manager. Everyone else should stick with
* the old readmouse
*
* 12 Jan 89	Mensch
* Fix bug introduced on jan 4 that caused infinite loop in readmouse.
*
* 17 Jan 89	Mensch
* Added GetROMResource and ReleaseROMResource to Misc Tools
*
* 26-Sep-90	Dave Lyons
*
* Changed _SysDeath to _SysFailMgr so it builds.
*
* 4-Mar-91	Dave Lyons
*
* Adding new call $3B03 StringToText to translate 8-bit "Shaston 8" style
* text into the nearest equivalent Text-screen text (allowing for mousetext,
* etc).  (Code is really in the ROM 3 patch file.)
*
**********************************************************************


	include 'all.macros'
	include '::sys.equs.asm'

;-----------------------------------------------------------
;
; Global Version Number
;
Version	equ $0300	; version number

;-----------------------------------------------------------
;
; from e16.misctool
;
vblDisable   EQU   $0003 ; Interrupt Ref Number - Parameter to IntSource

;-----------------------------------------------------------
;
; Slot Arbiter Entry point
;
Slot_arbiter	equ $E10208	


;-----------------------------------------------------------
;
; Definition of Record used by Queue Routines
;
	DSect 0
HeaderLink	LONG
HeaderReserved	WORD
HeaderSignature	WORD
HeaderRoutine	LONG

QueueSignature	equ $A55A

;-----------------------------------------------------------
;
; Misc tools Errors
;
BadInputErr	equ $0301	; bad input
noDevParamErr	equ $0302	; no device for input paramter
taskInstlErr	equ $0303	; specified task already in queue
noSigTaskErr	equ $0304	; no signature detected in task header
queueDmgdErr	equ $0305	; damaged heartbeat queue detected (fatal)
taskNtFdErr	equ $0306	; specified task not in queue
firmTaskErr	equ $0307	; Unsuccessful fw task
hbQueueBadErr	equ $0308	; damaged heartbeat queue detected (fatal)
unCnctdDevErr	equ $0309	; dispatch to unconnect device
idTagNtAvlErr	equ $030B	; no id tag available

RecordNotFound	equ $0380
BadSignature	equ $0381


;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

	IMPORT EndCall0
	IMPORT EndCall2
	IMPORT EndCall4
	IMPORT EndCall8
	IMPORT ErrOut2
	IMPORT ErrOut4
	IMPORT FFEntry
	IMPORT LastTag
	IMPORT LongDiv
	IMPORT Multiply
	IMPORT SpecialNewHandle
	IMPORT UDivide
	IMPORT oEndCall0
	IMPORT oEndCall2
	IMPORT oEndCall4
	IMPORT oEndCall6
	IMPORT oEndCall8
	IMPORT oErrOut0
	IMPORT oErrOut2
	IMPORT oErrOut4
	IMPORT oErrOut6
	IMPORT oErrOut8




;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

	ENTRY ClearGlue
	ENTRY ClrHeart
	ENTRY DelHeart
	ENTRY DeleteID
	ENTRY GetAbsClamp
	ENTRY GetAddr
	ENTRY GetIRQenbl
	ENTRY GetNewID
	ENTRY GetTick
	ENTRY GetVector
	ENTRY HexToAscii
	ENTRY HomeGlue
	ENTRY ISIT44
	ENTRY InitGlue
	ENTRY IntSrc
	ENTRY Irq_Heart
	ENTRY LOOKAT4
	ENTRY MTCallTable
	ENTRY MTDeref
	ENTRY MTInit
	ENTRY MTRes7
	ENTRY MTRes8
	ENTRY MTReset
	ENTRY MTShutDown
	ENTRY MTStartup
	ENTRY MTStatus
	ENTRY MTVer
	ENTRY MonEntry
	ENTRY Munger
	ENTRY PackBytes
	ENTRY RdATime
	ENTRY ReadBParam
	ENTRY ReadBRam
	ENTRY ReadMouseJ
	ENTRY RdTimeHex
	ENTRY SetAbsClamp
	ENTRY SetHeart
	ENTRY SetVector
	ENTRY StatusID
	ENTRY SysBeep
	ENTRY SysDeathMgr
	ENTRY TClmpMou
	ENTRY TGetClamp
	ENTRY TPosMou
	ENTRY TRdMou
	ENTRY TServMou
	ENTRY TSetMou
	ENTRY ToLDivide
	ENTRY ToMainSide
	ENTRY ToMult
	ENTRY ToUDivide
	ENTRY UnPackBytes
	ENTRY WriteBParam
	ENTRY WriteBRam
	ENTRY WrTimeHex


	ENTRY GetMData
	ENTRY setdbtoe1
	ENTRY MYBasicInit
	ENTRY InitFlag

	import AddToQueue
	import DeleteFromQueue
	Import ReleaseROMResource
	Import GetROMResource

	title 'Call Table'
****************************************************************
*
MTCallTable	PROC EXPORT
*
* Call table for the tool
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
	import SetInterruptState
	import GetInterruptState
	import GetIntStateRecSize
	import GetCodeResConverter
	import ConvSeconds
	import SysBeep2
	import VersionString
	import WaitUntil
	import StringToText

*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


Here
	DC.L (TheEnd-Here)/4 	; num calls +1
	DC.L MTInit-1		; PowerUp Initialization
	DC.L MTStartup-1		; application startup
	DC.L MTShutDown-1		; application shutdown
	DC.L MTVer-1		; version number
	DC.L MTReset-1		; Misc. Tools Reset
	DC.L MTStatus-1		; Reserved
	DC.L MTRes7-1		; Reserved
	DC.L MTRes8-1		; Reserved
	DC.L WriteBRam-1		; Write battery ram
	DC.L ReadBRam-1		; Read battery ram
	DC.L WriteBParam-1		; Write battery ram	parameter
	DC.L ReadBParam-1		; Read battery ram parameter
	DC.L RdTimeHex-1		; read clock w/ hex	format
	DC.L WrTimeHex-1		; write clock w/ hex format
	DC.L RdATime-1		; read clock w/ ascii format
	DC.L SetVector-1		; set interrupt vector
	DC.L GetVector-1		; get interrupt vector
	DC.L SetHeart-1		; insert procedure in Heartbeat chain
	DC.L DelHeart-1		; delete procedure from heartbeat chai
	DC.L ClrHeart-1		; clear heartbeat chain
	DC.L SysDeathMgr-1		; system death manager
	DC.L GetAddr-1		;  ???
	DC.L ReadMouseJ-1		; Read Mouse (Was TRdMou)
	DC.L InitGlue-1		; initialize mouse
	DC.L TSetMou-1		; set mouse mode
	DC.L HomeGlue-1		; home mouse position to min. clamp
	DC.L ClearGlue-1		; clear mouse position to 0
	DC.L TClmpMou-1		; set both X and Y clamps
	DC.L TGetClamp-1		; get both X and Y clamps
	DC.L TPosMou-1		; set mouse position
	DC.L TServMou-1		; service mouse interrupt
	DC.L GetNewID-1		; get ID tag
	DC.L DeleteID-1		; delete ID tag
	DC.L StatusID-1		; get ID tag status
	DC.L IntSrc-1		; enable interrupt source
	DC.L MonEntry-1		; Firmware entry points
	DC.L GetTick-1		; get tick counter contents
	DC.L PackBytes-1		; Pack bytes
	DC.L UnPackBytes-1		; UnPack dem dere bytes
	DC.L Munger-1		; This routine munges strings
	DC.L GetIRQenbl-1		; returns IRQ enble	status
	DC.L SetAbsClamp-1		; set absolute device clamps
	DC.L GetAbsClamp-1		; get absolute device clamps
	DC.L SysBeep-1		; system beep
	DC.L MyBasicInit-1		; mouse init for BASIC from $c4xx
	DC.L AddToQueue-1		; added 10 sep 88
	DC.L DeleteFromQueue-1	; added 10 sep 88

	dc.L SetInterruptState-1	; added 24 Nov 88
	dc.L GetInterruptState-1	; added 24 Nov 88
	dc.L GetIntStateRecSize-1	; added 24 Nov 88
	dc.L TRdMou-1		; added 03 jan 89 {$3303}
	dc.L GetCodeResConverter-1	; added 12 Jan 89 {$3403}
	dc.L GetROMResource-1	; Added 17 Jan 89 {$3503}
	dc.L ReleaseROMResource-1	; Added 17 Jan 89 {$3603}
	dc.l ConvSeconds-1		; $3703
	dc.l SysBeep2-1		; $3803
	dc.l VersionString-1	; $3903
	dc.l WaitUntil-1		; $3A03
	dc.l StringToText-1		; $3B03
TheEnd

	ENDP

	title 'Init Routines'
****************************************************************
*
* BOOTINIT:     Clears heartbeat queue.	Sets no slot flags.
*               Clears tick counter. Allocates IDtag memory.
* STARTUPINIT:  Does nothing
* SHUTDOWN:     Does nothing
* RESET:        Clears heartbeat queue.	Sets no slot flags.
*
****************************************************************
MTInit	PROC	; Tool Boot Initialization

	phb	; save the dbr on stack


    IF RAMVersion THEN

	bra SkipNewHandle

    ENDIF



	lda #0	; Init HeartBeat chain
	sta >HBptr
	sta >HBptr+2
	sta >TickCnt	; initialize tick counter
	sta >TickCnt+2
	sep #$20	; 8 bit 'm'
	sta >KBDIRQFLAG	; clear interrupt flag
	dec a	; assume no Slot I/O
	sta >SIOFlag
	sta >MouseSlot	; assume no mouse either
	rep #$20	; 16 bit 'm'



	lda #0	; size
	ldx #$4101
	ldy #$0008	; no special memory
	jsr SpecialNewHandle
	bcc MTInit0	; if got block
	pea $0000	; no message
	pea $0000
	pea $0025	; cant allocate IDTAG queue
	_SysFailMgr	; SYSTEM DEATH

MTInit0		; 
	txa	; save handle
	sta >MThandle
	tya
	sta >MThandle+2
SkipNewHandle
	plb	; restore data bank	reg

	ENTRY MTStartup
MTStartup		;       ; Tool Startup Initialization
	ENTRY MTShutdown
MTShutdown		;       ; Tool Shut	Down
	ENTRY MTRes7
MTRes7		;       ; Reserved function #7
	ENTRY MTRes8
MTRes8		;       ; Reserved function #8

	jmp oEndCall0

	ENTRY MTReset
MTReset		;       
	lda #0	; clear HeartBeat queue
	sta >HBptr
	sta >HBptr+2
	sep #$20	; 8 bit 'm'
	dec a	; assume no Slot I/O
	sta >SIOFlag
	sta >MouseSlot	; no mouse either
	rep #$20	; 16 bit 'm'
	jmp oEndCall0

	ENDP


****************************************************************
*
* Return with miscellaneous tools version #
*
****************************************************************
MTVer	PROC

RTL1	equ 1
RTL2	equ RTL1+3
Result	equ RTL2+3


	lda #version	; get MT version #
	sta Result,s	; pass to caller
	jmp oEndCall0

	ENDP

****************************************************************
*
* Return with status that indicates the	tool is active
*
****************************************************************
MTStatus	PROC

rtl1	equ 1
rtl2	equ rtl1+3
ThisStatus	equ rtl2+3

	lda #$FFFF	; status = tool active
	sta ThisStatus,s
	jmp oEndCall0

	ENDP




****************************************************************
*
* Dereference a Handle, and return with	pointer in X and DBR.
*
* Inputs :  MThandle contains handle to	IDTAG block
* Output :  DBR = Block addr (high), X=Block addr (low)
*
* NOTE   : this trashes A, X, Y and D
*
****************************************************************
MTderef	PROC

	lda >MThandle	; get handle into X	and A
	tax
	lda >MThandle+2
	xba	; get bank into B
	pha
	plb	; remove trash
	plb	; set bank to bank of pointer
	lda |0,x	; get pointer (low)
	ldy |2,x	; get pointer (high)
	tax
	tya
	xba	; get bank into B
	pha	; push bank + trash
	plb	; remove trash
	plb	; set bank = ptr (high)
	rts

	ENDP


****************************************************************
*
MTHandleStuff	PROC
*
*
* Sets or returns the size of the MT handle.
*
*
* Inputs:
*	none
*
* Outputs:
*	a-reg  Size of MTHandle
*
* External Refs:
*	none
*
* Entry Points:
	ENTRY GetMTHandleSize
	ENTRY SetMTHandleSize
*
	longa on	; mode
	longi on
*
****************************************************************

GetMTHandleSize
	pha
	pha
	lda >MThandle+2
	pha
	lda >MThandle
	pha	
	_GetHandleSize
	pla
	plx
	rts

SetMTHandleSize
	pea 0000
	pha
	lda >MThandle+2
	pha
	lda >MThandle
	pha	
	_SetHandleSize
	rts

	ENDP



	title 'Battery Ram Routines'
****************************************************************
*
* Write battery ram
*
* Input     LongWord     Address
*
* Change History
*
* 29 January 87	 Ray Montagne
*
*    Since firmware	cannot generate error on write we don't
*    look for one to return
*
****************************************************************
WriteBRam	PROC

OrigDir	equ 1
rtl1	equ OrigDir+2
rtl2	equ rtl1+3
buffer	equ rtl2+3

	phd	; turn stack into zp
	tsc
	tcd
	sep #$30	; 8 bit 'm' & 'x'
	longi off
	ldy #0
	ldx #0
MovLoop		; 
	lda [buffer],y	; get application data
	sta >BramBuffer,x	; move to our buffer
	dex
	dey
	bne movloop
	sep #$30	; 8 bit m/x
	jsl ToWriteBram
	rep #$30
	longa on
	longi on

	jmp EndCall4

BramErr		;       
	ldx #firmTaskErr 	; BRAM call failed
	jmp ErrOut4

	ENDP




****************************************************************
*
ReadBRam	PROC
*
* Reads the page of	battery RAM into the callers buffer.
*
*
* Inputs:
*	BufferPtr : Long
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* Change History
*
* 17 Jun 88	Steven Glass
*
* This routine had always called the routine which did an actual
* read of the battery RAM.  This is not	necessary since the
* battery ram buffer is always correct before the read.
*
* Making this change we save the read time (1/10 second with
* interrupts off).
*
****************************************************************


OrigDir	equ 1
rtl1	equ OrigDir+2
rtl2	equ rtl1+3
buffer	equ rtl2+3

	phd	; turn stack into zp
	tsc
	tcd

	sep #$30	; 8 bit 'm' and 'x'
	longi off
	longa off

	ldx #0
	ldy #0
movloop	lda >BramBuffer,x	; data from bram buffer
	sta [buffer],y	; to user buffer
	dex
	dey
	bne movloop


	rep #$30	; 16 bit 'm' and 'x'
	longa on
	longi on
	jmp EndCall4

	ENDP




****************************************************************
*
WriteBParam	PROC
*
* Takes the value from the stack, puts it into the BRam buffer
* and writes to the battery.
*
*
* Input     word	 Data
* Input     word	 Parameter #
*
* Outputs   none
*
* External Refs:
	import BParamIndexToTable
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* Change History
*
* 29 January 87	 Ray Montagne
*
*    Since firmware	cannot generate error on write we don't
*    look for one to return
*
* 10 Sep 88	Steven Glass
*
* Index number is directed through table, rather than being
* actual memory location in the BRAM.
*
* 14 Sep 88	Steven Glass
*
* Table index is only one byte wide so I mask result
*
****************************************************************


	sep #$30
	longa off
	longi off

	jsl ToReadBram	; read ram first
	lda 7,s	; get parm index
	and #$00FF
	tax	; Turn index into buffer address
	lda >BParamIndexToTable,x
	and #$00FF
	tax
	lda 9,s	; get data
	sta >BramBuffer,x	; move to BRAM buffer
	jsl ToWriteBram	; now write ram
	rep #$30

	longa on
	longi on
	jmp oEndCall4
	ENDP




****************************************************************
*
ReadBParam	PROC
*
* Returns the specified byte from the battery RAM on the stack.
*
*
* Inputs:
*	Space for result : word
*	ID of Parameter to read : word
*
* Outputs:
*	Parameter value : word
*
* External Refs:
	import BParamIndexToTable
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* Change History
*
* 17 Jun 88	Steven Glass
*
* This routine had always called the routine which did an actual
* read of the battery RAM.  This is not	necessary since the
* battery ram buffer is always correct before the read.
*
* Making this change we save the read time (1/10 second with
* interrupts off).
*
* 10 Sep 88	Steven Glass
*
* Index number is directed through table, rather than being
* actual memory location in the BRAM
*
* 
* 14 Sep 88	Steven Glass
*
* Table index is only one byte wide so I mask result
*
*
****************************************************************
	DefineStack
RTL1	block 3
RTL2	block 3
ParamID	word
ResultValue	word

	lda ParamID,s	; get parm index
	and #$00FF
	tax	; Turn index into buffer address
	lda >BParamIndexToTable,x
	and #$00FF
	tax
	lda >BramBuffer,x	; move from BRAM buffer
	and #$00FF
	sta ResultValue,s
	jmp oEndCall2


	ENDP



****************************************************************
*
BParamIndexToTable	PROC
*
* This is a table of addresses in the battery RAM.  The 
* zeroth entry gives the address of item 0 in the RAM.  The
* next entry gives the address of the next item, etc.
*
****************************************************************


	dc.b $00	; $00 Port Type for Port 1
	dc.b $01	; $01 Line Length
	dc.b $02	; $02 Delete First LF after CR
	dc.b $03	; $03 Add LF after CR
	dc.b $04	; $04 Echo
	dc.b $05	; $05 Buffering
	dc.b $06	; $06 Baud
	dc.b $07	; $07 Parity
	dc.b $08	; $08 Data/Stop Bits
	dc.b $09	; $09 DCD Handshake
	dc.b $0A	; $0A DSR/DTR Handshake
	dc.b $0B	; $0B XON/XOFF Handshake
	dc.b $0C	; $0C Port Type for Port 2
	dc.b $0D	; $0D Line Length
	dc.b $0E	; $0E Delete First LF after CR
	dc.b $0F	; $0F Add LF after CR

	dc.b $10	; $10 Echo
	dc.b $11	; $11 Buffering
	dc.b $12	; $12 Baud
	dc.b $13	; $13 Parity
	dc.b $14	; $14 Data/Stop Bits
	dc.b $15	; $15 DCD Handshake
	dc.b $16	; $16 DSR/DTR Handshake
	dc.b $17	; $17 XON/XOFF Handshake
	dc.b $18	; $18 Display Type
	dc.b $19	; $19 Columns
	dc.b $1A	; $1A Text Color
	dc.b $1B	; $1B Background Color
	dc.b $1C	; $1C Border Color
	dc.b $1D	; $1D Display Cycle Rate (Hertz)
	dc.b $1E	; $1E Volume
	dc.b $1F	; $1F Pitch

	dc.b $20	; $20 Speed
	dc.b $58	; $21 Fake Slot 1
	dc.b $22	; $22 Slot 2
	dc.b $23	; $23 Slot 3
	dc.b $24	; $24 Slot 4
	dc.b $25	; $25 Slot 5
	dc.b $26	; $26 Slot 6
	dc.b $27	; $27 Slot 7
	dc.b $28	; $28 Startup Slot
	dc.b $29	; $29 Display Language
	dc.b $2A	; $2A Keyboard Layout
	dc.b $2B	; $2B Keyboard Buffering
	dc.b $2C	; $2C Repeat Speed
	dc.b $2D	; $2D Repeat Delay
	dc.b $3A	; $2E Double Click
	dc.b $2E	; $2F Cursor Flash

	dc.b $2F	; $30 Shift Caps/Lower Case
	dc.b $30	; $31 Fast Space & Delete keys
	dc.b $31	; $32 Dual Speed Keys
	dc.b $39	; $33 Mouse Tracking
	dc.b $34	; $34 Date Format
	dc.b $35	; $35 Time Format
	dc.b $36	; $36 Min Ram Disk Size
	dc.b $37	; $37 Max Ram Disk Size
	dc.b $3E	; $38 Number of Languages
	dc.b $3F	; $39 First Language
	dc.b $40	; $3A Second Language
	dc.b $41	; $3B Third Language
	dc.b $42	; $3C Fourth Language
	dc.b $43	; $3D Fifth Language
	dc.b $44	; $3E Sixth Language
	dc.b $45	; $3F Seventh Language

	dc.b $46	; $40 Eightth Language
	dc.b $47	; $41 Number of Layouts
	dc.b $48	; $42 First Layout
	dc.b $49	; $43 Second Layout
	dc.b $4A	; $44 Third Layout
	dc.b $4B	; $45 Fourth Layout
	dc.b $4C	; $46 Fifth Layout
	dc.b $4D	; $47 Sixth Layout
	dc.b $4E	; $48 Seventh Layout
	dc.b $4F	; $49 Eightth Layout
	dc.b $50	; $4A Ninth Layout
	dc.b $51	; $4B Tenth Layout
	dc.b $52	; $4C Eleventh Layout
	dc.b $53	; $4D Twelvth Layout
	dc.b $54	; $4E Thirteenth Layout
	dc.b $55	; $4F Fourteenth Layout

	dc.b $56	; $50 Fifteenth Layout
	dc.b $57	; $51 Sixteenth Layout
	dc.b $32	; $52 Disk Eject 1
	dc.b $33	; $53 Disk Eject 2
	dc.b $38	; $54 Reset RAM at next Reset
	dc.b $3B	; $55 Delay To Start
	dc.b $3C	; $56 Acceleration
	dc.b $3D	; $57 Maximum Speed
	dc.b $58	; $58 new Slot 1
	dc.b $59	; $59
	dc.b $5A	; $5A
	dc.b $5B	; $5B
	dc.b $5C	; $5C
	dc.b $5D	; $5D
	dc.b $5E	; $5E
	dc.b $5F	; $5F

	dc.b $60	; $60
	dc.b $61	; $61
	dc.b $62	; $62
	dc.b $63	; $63
	dc.b $64	; $64
	dc.b $65	; $65
	dc.b $66	; $66
	dc.b $67	; $67
	dc.b $68	; $68
	dc.b $69	; $69
	dc.b $6A	; $6A
	dc.b $6B	; $6B
	dc.b $6C	; $6C
	dc.b $6D	; $6D
	dc.b $6E	; $6E
	dc.b $6F	; $6F

	dc.b $70	; $70
	dc.b $71	; $71
	dc.b $72	; $72
	dc.b $73	; $73
	dc.b $74	; $74
	dc.b $75	; $75
	dc.b $76	; $76
	dc.b $77	; $77 Reserved
	dc.b $78	; $78 PassWord
	dc.b $79	; $79 PassWord
	dc.b $7A	; $7A PassWord
	dc.b $7B	; $7B PassWord
	dc.b $7C	; $7C PassWord
	dc.b $7D	; $7D PassWord
	dc.b $7E	; $7E PassWord
	dc.b $7F	; $7F PassWord

	dc.b $80	; $80 AppleTalk Node Number
	dc.b $81	; $81 OS Variables
	dc.b $82	; $82
	dc.b $83	; $83
	dc.b $84	; $84
	dc.b $85	; $85
	dc.b $86	; $86
	dc.b $87	; $87
	dc.b $88	; $88
	dc.b $89	; $89
	dc.b $8A	; $8A
	dc.b $8B	; $8B
	dc.b $8C	; $8C
	dc.b $8D	; $8D
	dc.b $8E	; $8E
	dc.b $8F	; $8F

	dc.b $90	; $90
	dc.b $91	; $91
	dc.b $92	; $92
	dc.b $93	; $93
	dc.b $94	; $94
	dc.b $95	; $95
	dc.b $96	; $96
	dc.b $97	; $97
	dc.b $98	; $98
	dc.b $99	; $99
	dc.b $9A	; $9A
	dc.b $9B	; $9B
	dc.b $9C	; $9C
	dc.b $9D	; $9D
	dc.b $9E	; $9E
	dc.b $9F	; $9F

	dc.b $A0	; $A0
	dc.b $A1	; $A1
	dc.b $A2	; $A2
	dc.b $A3	; $A3
	dc.b $A4	; $A4
	dc.b $A5	; $A5
	dc.b $A6	; $A6
	dc.b $A7	; $A7
	dc.b $A8	; $A8
	dc.b $A9	; $A9
	dc.b $AA	; $AA
	dc.b $AB	; $AB
	dc.b $AC	; $AC
	dc.b $AD	; $AD
	dc.b $AE	; $AE
	dc.b $AF	; $AF

	dc.b $B0	; $B0
	dc.b $B1	; $B1
	dc.b $B2	; $B2
	dc.b $B3	; $B3
	dc.b $B4	; $B4
	dc.b $B5	; $B5
	dc.b $B6	; $B6
	dc.b $B7	; $B7
	dc.b $B8	; $B8
	dc.b $B9	; $B9
	dc.b $BA	; $BA
	dc.b $BB	; $BB
	dc.b $BC	; $BC
	dc.b $BD	; $BD
	dc.b $BE	; $BE
	dc.b $BF	; $BF OS Variables

	dc.b $C0	; $C0 Reserved
	dc.b $C1	; $C1
	dc.b $C2	; $C2
	dc.b $C3	; $C3
	dc.b $C4	; $C4
	dc.b $C5	; $C5
	dc.b $C6	; $C6
	dc.b $C7	; $C7
	dc.b $C8	; $C8
	dc.b $C9	; $C9
	dc.b $CA	; $CA
	dc.b $CB	; $CB
	dc.b $CC	; $CC
	dc.b $CD	; $CD
	dc.b $CE	; $CE
	dc.b $CF	; $CF

	dc.b $D0	; $D0
	dc.b $D1	; $D1
	dc.b $D2	; $D2
	dc.b $D3	; $D3
	dc.b $D4	; $D4
	dc.b $D5	; $D5
	dc.b $D6	; $D6
	dc.b $D7	; $D7
	dc.b $D8	; $D8
	dc.b $D9	; $D9
	dc.b $DA	; $DA
	dc.b $DB	; $DB
	dc.b $DC	; $DC
	dc.b $DD	; $DD
	dc.b $DE	; $DE
	dc.b $DF	; $DF

	dc.b $E0	; $E0
	dc.b $E1	; $E1
	dc.b $E2	; $E2
	dc.b $E3	; $E3
	dc.b $E4	; $E4
	dc.b $E5	; $E5
	dc.b $E6	; $E6
	dc.b $E7	; $E7
	dc.b $E8	; $E8
	dc.b $E9	; $E9
	dc.b $EA	; $EA
	dc.b $EB	; $EB
	dc.b $EC	; $EC
	dc.b $ED	; $ED
	dc.b $EE	; $EE
	dc.b $EF	; $EF

	dc.b $F0	; $F0
	dc.b $F1	; $F1
	dc.b $F2	; $F2
	dc.b $F3	; $F3
	dc.b $F4	; $F4
	dc.b $F5	; $F5
	dc.b $F6	; $F6
	dc.b $F7	; $F7
	dc.b $F8	; $F8
	dc.b $F9	; $F9
	dc.b $FA	; $FA
	dc.b $FB	; $FB Reserved
	dc.b $FC	; $FC Check Sum
	dc.b $FD	; $FD Check Sum
	dc.b $FE	; $FE Check Sum
	dc.b $FF	; $FF Check Sum




	ENDP


	title 'Time Routines'
****************************************************************
*
* RdTimeHex:
*     Input     Word     Space for result
*     Input     Word     Space for result
*     Input     Word     Space for result
*     Input     Word     Space for result
*     Output    Byte     Year
*     Output    Byte     Month	 (0...11)
*     Output    Byte     Day	 (0...30)
*     Output    Byte     Hour	 (0...23)
*     Output    Byte     Minute	 (0...59)
*     Output    Byte     Second	 (0...59)
*     Output    Byte     Null
*     Output    Byte     Day of Week	 (0....6)
*
****************************************************************
RdTimeHex	PROC

D0	equ $E103E9
D1	equ D0+4
D2	equ D1+4
D3	equ D2+4
D4	equ D3+4

OrigDir	equ 1
OrigDBR	equ OrigDir+2
OrigP	equ OrigDBR+1
rtl1	equ OrigP+1
rtl2	equ rtl1+3
Second	equ rtl2+3
Minute	equ Second+1
Hour	equ Minute+1
Year	equ Hour+1
Day	equ Year+1
Month	equ Day+1
null	equ Month+1
WkDay	equ Null+1

WSsize	equ 10	; 10 words - DUMMY !!!

	sep #$30	; off to 8 bit land
	jsl ToReadTime	; read clock
	rep #$30	; then back to 16 bit land
	bcc GotTimeOK	; if read clock
	ldx #firmTaskErr 	; set error flag
	jmp oErrOut0

*
* now convert Binary time to Hex time format
*

GotTimeOK		; 
	php	; save interrupt state
	sei	; and disable interrupts
	phb	; save data bank
	pea $E1E1	; and set to our data area
	plb
	plb
	phd	; save direct page
	tsc	; turn stack into zp
	tcd

*
* Have number of seconds N 1984 in ClkRData.
* DN  = number of days elapsed = N div 86400
* HMS = number of seconds in last day =	N mod 86400
*
	pea $0000	; space for result
	pea $0000
	pea $0000
	pea $0000
	lda |ClkRData+2	; numerator = N
	pha
	lda |ClkRData
	pha
	pea $0001	; Denom = 86400
	pea $5180
	jsl ToLDivide	; want DN
	pla	; DN = quotient
	sta |D0
	sta |D2	; and make a copy in D2
	pla
	sta |D0+2
	sta |D2+2
	pla	; HMS = remainder
	sta |D1
	pla
	sta |D1+2
*
* YearsGone = (DN *	4) div 1461     where 1461 is 4 * 365 +	1
* Formula depends on leap year being the first of the four.
*
	asl |D2	; DN * 4
	rol |D2+2
	asl |D2
	rol |D2+2
	pea $0000	; space for result
	pea $0000
	pea $0000
	pea $0000
	lda |D2+2	; YearsGone = (DN*4) div 1461
	pha
	lda |D2
	pha
	pea $0000	; 1461 = $000005B5
	pea $05B5
	jsl ToLDivide
	clc	; YG referenced to 1904
	pla
	sta |D2
	adc #0004
	sep #$20	; 8 bit 'm'
	sta year
	rep #$20	; 16 bit 'm'
	clc
	lda |D2
	adc #1904
	sta |D2	; hex year
	pla
	sta |D2+2
*
* Need number of days in Jan+Feb just below.
* Take YEAR mod 3 before clearing year.
*
	lda #59	; assume not leap year
	sta |D3
	stz |D3+2
	lda #3	; Year MOD 3
	and |D2
	bne NotLeap
	inc |D3
NotLeap		; 
	pla	; DOY * 4 in D2
	sta |D2
	pla
	sta |D2+2	; DOY = D2 div 4
	lsr |D2+2
	ror |D2
	lsr |D2+2
	ror |D2	; DOY in D2
*
* Computing Month/Day from DOY is an exercise in interpolation.
* As a function of DOY, Month is a step	function.  Because of
* the leap year glitch, convenient to restart function at March
*
*       DOY	         MONTH
*--------------------------------------------------------------
*       0-31	         1    January
*      31-58	         2    February for non leap year
*      31-59	         2    February for leap year
*       0-30	         3    March
*      31-60	         4    April
*      61-91	         5    May
*      92-121	         6    June
*     122-152	         7    July
*     153-183	         8    August
*     184-213	         9    September
*     214-244	        10    October
*     245-274	        11    November
*     275-305	        12    December
*
* The linear interpolator is ((DOY * 128) + 71) div 3919
*
	lda #1	; month offset, 1 or 3
	sta |D4
	lda |D2	; 59/60 versus DOY
	cmp |D3
	blt JanFeb	; less than means Jan or Feb
	inc |D4	; else adjust month	offset
	inc |D4
	sec	; start DOY at march
	lda |D2
	sbc |D3
	sta |D2
	lda |D2+2
	sbc |D3+2
	sta |D2+2
JanFeb		; 
	ldy #7	; DOY * 128
MultDOY		; 
	asl |D2
	rol |D2+2
	dey
	bne MultDOY
	pea $0000	; space for result
	pea $0000
	clc	; (DOY * 128) + 71
	lda #71
	adc |D2
	sta |D2
	pha	; NUM = (DOY * 128)	+ 71
	lda #0
	adc |D2+2
	sta |D2+2
	pea $0F4F	; DEN = 3919
	jsl ToUDivide
	clc
	pla	; month = Quot + MOffset
	adc |D4
	sta |D2+2	; D2 (MSB) = Month (1..12)
	sep #$20	; 8 bit 'm'
	dec a	; make month (0.....11)
	sta Month
	rep #$20	; 16 bit 'm'
	pla	; divide by 128 to get DOM
	ldy #7
DivDOM		; 
	lsr a
	dey
	bne DivDOM
	sep #$20	; 8 bit 'm'
	sta Day	; day (0....30)
	rep #$20
*
* Hours   = HMS div	3600
* MS      = HMS mod	3600
* Minutes = MS div 60
* Seconds = MS mod 60
*
	pea $0000	; space for result
	pea $0000
	pea $0000
	pea $0000
	lda |D1+2	; Numerator = HMS
	pha
	lda |D1
	pha
	pea $0000	; Denominator = 3600
	pea $0E10
	jsl ToLDivide
	pla
	plx	; Hours = Quot
	sep #$20	; 8 bit 'm'
	sta Hour
	rep #$20
	pla	; MS = remainder
	plx
	pea $0000	; space for result
	pea $0000
	pha	; Numerator = MS
	pea $003C	; Denominator = 60
	jsl ToUDivide
	pla	; Minutes = Quot
	sep #$20	; 8 bit 'm'
	sta Minute
	pla
	sta Second
	pla	; clean up
	rep #$30	; 16 bit 'm'
*
* Finally get the day of week = ((DN + 5) mod 7) + 1
* The 5 is added since 1 Jan 1904 was a	Friday.
*
	pea $0000	; space for divide
	pea $0000
	pea $0000
	pea $0000
	clc
	lda #5	; DN+5
	adc D0
	tax
	lda #0
	adc D0+2
	pha
	phx
	pea $0000
	pea $0007
	jsl ToLDivide	; ((DN + 5) mod 7)
	pla
	pla
	pla	; Get DOW-1
	inc a	; ((DN + 5) mod 7) + 1
	plx
	sep #$20	; 8 bit 'm'
	sta WkDay	; store day of week
	rep #$20	; 16 bit 'm'
	pld	; restore direct page
	plb	; restore data area
	plp	; restore interrupt	state
	jmp oEndCall0	; all done

	ENTRY ToLDivide
ToLDivide		;       
	jsl LongDiv
	rtl

	ENTRY ToUDivide
ToUDivide		;       
	jsl UDivide
	rtl

	ENDP


****************************************************************
*
* WrTimeHex:
*
*     Input     Byte     second	(0.....59)
*     Input     Byte     Minute	(0.....59)
*     Input     Byte     Hour	(0.....23)
*     Input     Byte     Day	(0.....30)
*     Input     Byte     Month	(0.....11)
*     Input     Byte     Year
*
* Change History
*
* February 18, 1987	 Ray Montagne
*
* Wrong error code was being returned.
*
****************************************************************

WrTimeHex	PROC

D0	equ $E103E9
D1	equ D0+4
D2	equ D1+4
D3	equ D2+4
D4	equ D3+4

OrigDir	equ 1
OrigDBR	equ OrigDir+2
OrigP	equ OrigDBR+1
rtl1	equ OrigP+1
rtl2	equ rtl1+3
Second	equ rtl2+3
Minute	equ Second+1
Hour	equ Minute+1
Year	equ Hour+1
Day	equ Year+1
Month	equ Day+1

WSsize	equ 10	; is 20 bytes workspace area

	php	; save interrupt state
	sei	; and disable IRQ
	phb	; save data area
	pea $E1E1	; set our own
	plb
	plb
	phd	; save direct page
	tsc	; set stack = zp
	tcd
	sep #$30	; 8 bit 'm' and 'x'
	longa off
	longi off
	phb	; save DBR for bounds chk
	phk	; set DBR to code segment
	plb
	ldy Month	; get month
	lda Year	; get year
	and #3	; leap year?
	bne DayCheck	; no
	cpy #1	; if yes, is it February?
	bne DayCheck	; no
	ldy #12	; if February & leap year
DayCheck		; 
	lda Day	; and day
	cmp MonthLen,y	; check valid day ?
	rep #$30	; 16 bit 'm' and 'x'
	longa on
	longi on
	bcc DayOK	; if valid
	plb
	pld	; restore direct page
	plb	; and data bank
	plp	; restore interrupt	state
	ldx #badInputErr	; bad input parm error changed 18 Feb
;		;                87	by RBM
	jmp oErrOut6
DayOK		; 
	plb	; restore DBR

*
* Have Year/Month/Day/Hour/Minute/Second in a sequence of words
* in direct page.
*
* DAYSGONE * 86400 + HOURS * 3600 + MINUTES * 60 + SECONDS
*
* Do the easy part with HOURS, MINUTES,	and SECONDS.
*
	pea $0000	; space for result
	pea $0000
	pea $0000
	pea $0000
	lda Hour	; Convert hour to minutes
	and #$00FF
	pha
	pea $003C	; Hour * 60
	jsl ToMult
	clc
	lda Minute	; (Hour * 60) + Minute
	and #$00FF
	adc 1,s
	sta 1,s
	lda #0
	adc 3,s
	sta 3,s
	pla
	plx
	pha
	pea $003C	; ((Hour * 60) + Minute) * 60
	jsl ToMult
	clc
	lda Second	; now add in seconds
	and #$00FF
	adc 1,s
	sta 1,s
	lda #0
	adc 3,s
	sta 3,s
	pla	; and store in D0
	sta |D0
	pla
	sta |D0+2
*
* Compute DAYSGONE in D1
*
	lda Day	; Days
	and #$00FF	; have day (0.......30)
	sta |D1
	stz |D1+2
	lda Month	; get Month
	and #$00FF	; have Month (0.....11)
	inc a	; make Month (1.....12)
	sta |D2
	stz |D2+2
	lda Year	; and Year
	and #$00FF
	clc
	adc #1900
	sta |D3
	sta |D4	; copy year for LEAP test
	stz |D3+2
	stz |D4+2
*
* To find number of	days in elapsed years use:
*     ((YEARSGONE *	1461) + 3) div 4
* Formula depends on leap year being the first of 4.
*
	sec	; years gone
	lda |D3
	sbc #1904
	sta |D3
	pea $0000	; space for result
	pea $0000
	pha	; YearsGone * 1461
	pea $05B5
	jsl ToMult
	clc
	lda #3	; (YearsGone * 1461) + 3
	adc 1,s
	sta 1,s
	lda #0
	adc 3,s
	lsr a	; ((YG * 1461) + 3)	div 4
	sta 3,s
	lda 1,s
	ror a
	sta 1,s
	lda 3,s
	lsr a
	sta 3,s
	sta |D3+2
	lda 1,s
	ror a
	sta 1,s
	sta |D3
	pla	; accumulate days gone
	clc
	adc |D1
	sta |D1
	pla
	adc |D1+2
	sta |D1+2	; D1 = DAYSGONE
*
* As above, the tough part is finding the number of days in
* elapsed months.
*
	dec |D2	; month-1 (ranges 0..11)
	lda |D2	; 2 or more is March
	cmp #2
	blt DSJanFeb

	dec |D2	; Month-3 (Restart at March)
	dec |D2
	lda #59	; Days in Jan + Feb
	sta |D3
	lda |D4	; Check for leap year, MOD 3
	and #3
	bne DSNotLeap	; if not leap year
	inc |D3	; Leap Days in Jan + Feb

DSNotLeap		; 
	clc
	lda |D3	; some more elapsed	days
	adc |D1
	sta |D1

DSJanFeb		; 
	pea $0000	; space for result
	pea $0000
	lda |D2	; Month * 3917
	pha
	lda #3917
	pha
	jsl ToMult
	clc
	lda #52	; (Month * 3917) + 52
	adc 1,s
	sta 1,s
	lda #0
	adc 3,s
	sta 3,s
	pla
	sta |D2
	pla
	sta |D2+2
	ldy #7	; ((Month * 3917) +	52 div 128
Div128		; 
	lsr |D2+2
	ror |D2
	dey
	bne Div128
	clc
	lda |D1	; more elapsed days
	adc |D2
	sta |D1
	lda |D1+2
	adc |D2+2
	sta |D1+2
*
* Finally multiply the number of days elapsed by
* 24 * 60 * 60 = 86400 = 43200 * 2
*
	pea $0000	; space for result
	pea $0000
	pea $A8C0	; (43200)
	lda |D1
	pha
	jsl ToMult
	lda 1,s	; (43200 * 2)
	asl a
	sta 1,s
	lda 3,s
	rol a
	sta 3,s
	clc
	pla
	adc |D0
	sta |ClkWData	; store to set time
	pla
	adc |D0+2
	sta |ClkWData+2
	sep #$30	; off to 8 bit land
	jsl ToWriteTime	; set the clock
	rep #$30	; back to 16 bit land
	pld	; restore direct page
	plb	; restore data area
	rol a	; save carry
	plp	; restore interrupt	state
	ror a	; and restore carry
	bcs WrHexErr	; if can't write time
	jmp oEndCall6	; else cleanup & return

WrHexErr		; 
	ldx #firmTaskErr	; set error flag
	jmp oErrOut6	; and return with error

	ENTRY ToMult
ToMult		;       
	jsl Multiply
	rtl

MonthLen		; 
	DC.B 31	; days in January
	DC.B 28	; days in Febuary (non-leap)
	DC.B 31	; days in March
	DC.B 30	; days in April
	DC.B 31	; days in May
	DC.B 30	; days in June
	DC.B 31	; days in July
	DC.B 31	; days in August
	DC.B 30	; days in September
	DC.B 31	; days in October
	DC.B 30	; days in November
	DC.B 31	; days in December
	DC.B 29	; days in February (leap)

	ENDP


****************************************************************
*
* RdATime:
*
*     Input     LongWord     Buffer address
*
* Format of data in	buffer is dependent	on the values set
* in the battery ram for time and date format.
*
* Date Format   Time Format  ASCII Format
* -----------   -----------  -----------------------
*     0	 0       mm/dd/yy HH:MM:SS AM-PM
*     1	 0       dd/mm/yy HH:MM:SS AM-PM
*     2	 0       yy/mm/dd HH:MM:SS AM-PM
*     0	 1       mm/dd/yy HH:MM:SS
*     1	 1       dd/mm/yy HH:MM:SS
*     2	 1       yy/mm/dd HH:MM:SS
*
* where :      HH =	Hour
*              MM =	Minute
*              SS =	Second
*              mm =	Month
*              dd =	Day
*              yy =	Year
*
****************************************************************

RdATime	PROC

OrigDir	equ 1
OrigDBR	equ OrigDir+2
rtl1	equ OrigDBR+1
rtl2	equ rtl1+3
pointer	equ rtl2+3

NewDir	equ 1
Second	equ NewDir+2
Minute	equ Second+1
Hour	equ Minute+1
Year	equ Hour+1
Day	equ Year+1
Month	equ Day+1
Null	equ Month+1
WkDay	equ Null+1

	phb	; save data area
	phd	; save direct page
	tsc	; turn stack into zp
	tcd
	pea $0000	; setup for RdHexTime
	pea $0000
	pea $0000
	pea $0000
	jsl ToRdHexT	; now go get it
	bcc NoAtimeErr	; if no error
	jmp ATimeErr	; if can't get it

*
* Now convert HEX time to ascii time and send to buffer
*

NoAtimeErr		; 
	ldx Pointer	; get pointer to App. Buffer
	sep #$20	; 8 bit 'm'
	longa off
	lda Pointer+2
	pha	; set App. Buffer bank
	plb
	phd	; save new dir
	tsc	; and make stack into zp
	tcd
	lda #$A0	; time/date delimiter
	sta |8,x
	sta |17,x
	lda >UserAMPM	; get time format
	rep #$20	; 16 bit 'm'
	longa on
	php	; time format in Z flag
	ldy #$A0A0	; assume 24 hour format
	lda Hour	; get hour
	plp	; Z=1 says 12 hour format
	bne Fmt24	; else 24 hour format
	ldy #$CDC1	; assume AM
	and #$00FF	; truncate hour
	cmp #12	; hour less than 12?
	blt StillAM	; if yes, then still AM
	ldy #$CDD0	; else set PM
StillAM		; 
	cmp #13	; if > 13:00 then subtract 12
	blt H0TO12	; yes
	sec	; else hour=hour-12
	sbc #12
	bra Fmt24
H0TO12		; 
	cmp #0	; if zero, make it 12
	bne Fmt24	; but if its not, dont
	lda #12	;
Fmt24		; 
	jsr HexToAscii	; convert hour to ascii
	sta |9,x	; stuff into App. Buffer
	tya	; now set time format
	sta |18,x
	lda Minute	; convert minute
	jsr HexToAscii
	sta |12,x	; stuff into App. buffer
	lda Second	; convert seconds
	jsr HexToAscii
	sta |15,x	; stuff into app. buffer
	lda Month	; convert month
	inc a	; 0=Jan
	jsr HexToAscii
	sta |0,x	; stuff into app. buffer
	lda Day	; convert day
	inc a	; 0=first day of month
	jsr HexToAscii
	sta |3,x	; stuff into app. buffer
	lda Year	; convert Year
	jsr HexToAscii
	sta |6,x	; stuff into app. buffer
	sep #$20	; 8 bit 'm'
	longa off
	lda #$BA	; time delimiter
	sta |11,x
	sta |14,x
	lda #$AF	; date delimiter
	sta |2,x
	sta |5,x
*
* Now blank all leading zeros
*
	ldy #$A0	; Yreg = ' '
	lda |9,x	; first check hours
	cmp #$B0	; is it a zero ?
	bne NoHrsZ	; no
	tya
	sta |9,x	; blank leading zero
NoHrsZ		; 
	lda |0,x	; now check month
	cmp #$B0	; is it a zero ?
	bne NoMoZ	; no
	tya
	sta |0,x	; else blank leading zero
NoMoZ		; 
	lda |3,x	; now check day
	cmp #$B0	; is it a zero ?
	bne NoDayZ	; no
	tya	; else blank leading zero
	sta |3,x
NoDayZ		; 
	lda >UserDATE	; get DATE format
	rep #$20	; 16 bit 'm'
	longa on
	beq DateFmt0	; mm/dd/yy HH:MM:SS
	and #$00FF	; limit options
	pha
	lda |3,x	; swap month and year
	tay	; Yreg = dd
	lda |0,x
	sta |3,x
	tya
	sta |0,x	; dd/mm/yy
	pla
	dec a	; format 2?
	beq DateFmt0	; no
	lda |6,x	; now swap year and	day
	sta |0,x
	tya
	sta |6,x
DateFmt0		; 
	pld	; clean up stack
	pla
	pla
	pla
	pla
	pld	; restore direct page
	plb	; and data area
	jmp oEndCall4	; clean up and return

ATimeErr		; 
	pla	; clean up stack
	pla
	pla
	pla
	pld	; restore direct page
	plb	; restore DBR
	ldx #firmTaskErr	; set error flag
	jmp oErrOut4	; and return with error

ToRdHexT		; 
	jsl RdTimeHex	; go read HEX time
	rtl

	ENDP

****************************************************************
*
* Convert Hex to Ascii
*
* Input passed in low byte of 16 bit A register
* Output returned in 16 bit A register (Most significant in
* digit is in low byte of register.  Both the X and Y registers
* are preserved.
*
****************************************************************

HexToAscii	PROC

OrigDir	equ 1
OrigY	equ OrigDir+2
OrigX	equ OrigY+2
Decimal	equ OrigX+2

	pha	; input data to convert
	phx	; save App. buffer pointer
	phy	; and this too!!!
	phd	; save direct page
	tsc	; turn stack into zp
	tcd
	sep #$30	; 8 bit 'm' and 'x'
	longa off
	longi off
	ldy #$02	; number of times through loop
DecAsc1		; 
	ldx #9	; 8 bit and 1st time do nothing
	lda #0
	clc	; C=0 so 1st ROL leaves A=0
DecAsc2		; 
	rol a
	cmp #10	; A >= 10 ?
	blt DecAsc4	; if <
	sbc #10	; C=1 from CMP and is left set
DecAsc4		; 
	rol Decimal
	dex
	bne DecAsc2
	ora #$B0	; make an ASCII character
	pha	; preserve on stack
	dey
	bne DecAsc1
	rep #$30	; 16 bit 'm' and 'x'
	longa on
	longi on
	pla	; returned data
	sta Decimal
	pld	; clean up and r
	ply	; restore pointer
	plx	; restore App. buffer pointer
	pla	; returned data in A reg
	rts

	ENDP

	title 'Vector Routines'
****************************************************************
*
* SetVector     (RefNum : integer; NewAdr : Long);
*
* Change History
*
* 26 Jul 88	Steven Glass
*
* Interrupts disabled during access.
*
* 23 Feb 89	Mensch
*
* Removed error checking.
****************************************************************
SetVector	PROC

RTL1	equ 1
RTL2	equ RTL1+3
NewAdr	equ RTL2+3
RefNum	equ NewAdr+4

VTblLen	equ $002D

	lda RefNum,s	;get reference
	and #$00FF	;mask excess

; Error checking removed 2/23/89
;	cmp #VTblLen
;	bge AnError	;if out of bounds

	asl a	;and make index
	asl a
	tax

	php
	sei

	lda NewAdr-1+1,s	;get vector addr 0-7
	and #$FF00	;patch 'JML' opcode	in low byte
	ora #$005C
	sta >Dispatch1,x	;set A0-7 & op
	lda NewAdr+1+1,s	;get addr 8-23
	sta >Dispatch1+2,x	;set addr 8-23


	plp
	jmp oEndCall6


AnError	ldx #badInputErr
	jmp oErrOut6

	ENDP


****************************************************************
*
* GetVector     (RefNum : integer; NewAdr : Long);
*
* Change History
*
* 26 Jul 88	Steven Glass
*
* Interrupts disabled during access.
*
* 23 Feb 89	Mensch
*
* Removed error checking.
****************************************************************
GetVector	PROC

RTL1	equ 1
RTL2	equ RTL1+3
RefNum	equ RTL2+3
Result	equ RefNum+2

VTblLen	equ $002D

	lda RefNum,s	;get reference
	and #$00FF	;mask excess

; Error checking removed 2/23/89
;	cmp #VTblLen
;	bge AnError	;if out of bounds

	asl a	;and make index
	asl a
	tax

	php
	sei

	lda >Dispatch1+1,x
	sta Result+1,s
	lda >Dispatch1+3,x
	and #$00FF
	sta Result+2+1,s

	plp

	jmp oEndCall2


AnError	ldx #badInputErr
	jmp oErrOut2

	ENDP

	title 'Heartbeat Routines'
****************************************************************
*
* Set System Heartbeat Vector
*   Input     LongWord     Address
*
* Possible errors are :
*     3 = Task error     (task already in queue)
*     4 = Header error   (no signature in new task)
*     5 = Queue error    (queue got trashed - system fatal)
*     6 = Task Not Found
*
****************************************************************
SetHeart	PROC

OrigD	equ 1
RTL1	equ OrigD+2
RTL2	equ RTL1+3
VPtr	equ RTL2+3

	phd
	tsc	; make stack into zp
	tcd
	php	; save IRQ enbl status
	sei	; 'cuz no interrupts for now !
	lda #Irq_Heart	; install heartbeat	handler
	pha
	xba
	and #$FF00
	ora #$005C	; opcode = jmp al
	sta >Irq_VBL	; install JMP opcode and addrl
	pla
	and #$FF00
	ora #^Irq_Heart
	xba
	sta >Irq_VBL+2	; install addrm & addrh
	phb
	Sep #$20	; 8 bit 'm'
	lda Vptr+2	; make pointer to task header
	pha
	plb
	rep #$30	; 16 bit 'm'
	lda Vptr
	tax
	lda |6,x	; check task header	signature
	cmp #$A55A
	beq QueOK	; no problem with new task
BadQue		; 
	ldx #$0304	; flag bad queue signature
	brl HdrErr
QueOK		; 
	lda >HBptr	; check if task in queue
	cmp Vptr
	bne DoFirst	; if not, install it
	lda >HBptr+2
	cmp Vptr+2
	bne DoFirst
	ldx #taskInstlErr	; else flag task error
	bra HdrErr
DoFirst		; 
	lda >HBptr	; get heartbeat vector
	ora >HBptr+2	; is it the first one
	bne GrowChain	; nope
	lda VPtr	; get addrl
	sta >HBptr	; set the first one
	lda VPtr+2
	sta >HBptr+2
	sep #$20	; 8 bit m
	lda >HBptr+2	; point at next entry
	pha
	plb
	rep #$20	; 16 bit m
	lda >HBptr
	tax

SetLast		; 
	lda #0
	sta |0,x	; set last link flag
	sta |2,x

ExitHB		; 
	plb
	plp	;
	jmp EndCall4

GrowChain		; 
	sep #$20	; 8 bit m
	lda >HBptr+2	; point at first entry
	pha
	plb
	rep #$20	; 16 bit m
	lda >HBptr
	tax

ChkChain		; 
	lda |6,x	; check queue signature
	cmp #$A55A
	beq QueueOK	; no problem
	ldx #5	; else flag queue trashed
	bra HdrErr
QueueOK		; 
	lda |0,x	; check if task already exists
	cmp vptr
	bne taskok	; it's not the same task
	lda |2,x
	cmp vptr+2
	bne taskok	; it's not the same task

	ldx #taskInstlErr	; task error
HdrErr		; 
	plb	; clean up stack
	plp
	jmp ErrOut4

TaskOK		; 
	lda |0,x	; is this the end of the queue
	ora |2,x
	beq GrowHere	; yes, now insert next task
	sep #$20	; 8 bit 'm' to move	down queue
	lda |2,x	; point at next one
	pha
	rep #$20	; 16 bit m
	lda |0,x
	tax
	plb
	bra ChkChain	; search for last one

GrowHere		; 
	lda vptr+2	; insert link address
	sta |2,x
	lda vptr
	sta |0,x
	tax	; point at next link
	sep #$20	; 8 bit m
	longa off
	lda Vptr+2
	pha
	plb
	rep #$20	; 16 bit m
	longa on
	bra SetLast	; set last link flag

	ENDP



****************************************************************
*
* Delete System Heartbeat Vector
*   Input     LongWord     Address
*
* Change History
*
* 26 Jul 88	Steven Glass
*
* Try and turn off vbl interrupts.
*
****************************************************************
DelHeart	PROC
	import KillIntsIfCan

OrigDir	equ 1
RTL1	equ OrigDir+2
RTL2	equ RTL1+3
Vptr	equ RTL2+3

	phd
	tsc	; turn stack into zp
	tcd
	php	; save interrupt enable status
	sei	; no interrupts for	now
	phb
	sep #$20	; 8 bit m
	longa off
	lda #^HBptr	; point at link addr
	pha
	plb
	rep #$20	; 16 bit m
	longa on
	ldx #HBptr**$FFFF
	lda |0,x	; is queue empty ?
	ora |2,x
	beq DelErr0
	rep #$20	; 16 bit 'm'
	lda |0,x	; is the first one it ?
	cmp vptr
	bne notfirst
	sep #$20	; 8 bit 'm'
	lda |2,x
	cmp vptr+2
	bne notfirst
	phb	; save current queue pointer
	phx
	pha
	rep #$20	; 16 bit 'm'
	lda |0,x	; point at task
	tax
	plb
	lda |2,x	; get task's link pointer
	tay
	lda |0,x
	plx	; restore queue pointer
	plb
	sta |0,x	; make new first link
	tya
	sta |2,x
	bra DelDone	; all done

DelErr0		; 
	bra DelErr

notfirst		; 
	sep #$20	; 8 bit 'm'
	lda |2,x
	pha	; point at first link
	rep #$20
	lda |0,x
	tax
	plb
DelSrch		; 
	lda |6,x	; check task signature
	cmp #$A55A
	beq QueueOK	; no problem
	ldx #queueDmgdErr	; else queue error
	plb
	plp
	jmp ErrOut4
QueueOK		; 
	lda |0,x	; is this the last link ?
	ora |2,x
	beq DelErr	; yes, didnt find kaka

	lda |0,x	; is the next link the target
	cmp Vptr
	bne DelSrch0	; no
	lda |2,x
	cmp Vptr+2
	bne DelSrch0	; no
	phb	; save current link	ptr
	phx
	sep #$20	; 8 bit m
	longa off
	lda |2,x	; get next link addr
	pha
	rep #$20	; 16 bit m
	longa on
	lda |0,x
	tax
	plb
	lda |0,x	; now get 2nd like addr
	sta Vptr	; stuff on stack
	lda |2,x
	sta Vptr+2
	plx	; restore link ptr
	plb
	lda Vptr	; now patch over previous link
	sta |0,x
	lda Vptr+2
	sta |2,x
DelDone		; 

	jsr KillIntsIfCan

	plb
	plp	; restore interrupt	enble
	jmp EndCall4


DelSrch0		; 
	sep #$20	; 8 bit m
	longa off
	lda |2,x	; get next link addr
	pha
	rep #$20	; 16 bit m
	longa on
	lda |0,x
	tax
	plb
	bra DelSrch	; continue search


DelErr		; 
	plb
	plp
	ldx #taskNtFdErr	; task not found error
	jmp ErrOut4


	ENDP

****************************************************************
*
* Clear Heartbeat Interrupt chain
*
* Change History
*
* 26 Jul 88	Steven Glass
*
* Try and turn off vbl interrupts.
*
****************************************************************
ClrHeart	PROC
	import KillIntsIfCan


	lda #0
	sta >HBptr	; clear out the links
	sta >HBptr+2

	jsr KillIntsIfCan


	jmp oEndCall0
	ENDP


****************************************************************
*
KillIntsIfCan	PROC
*
* This routine turns off VBL interrupts if it is safe to do so.
* It is safe to turn them off under the following conditions:
*
*   1) No heartbeat tasks are installed.
*   2) The heartbeat interrupt vector points to our interrupt
*      handler.
*   3) the mouse is not running in vbl interrupt mode.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
	import IRQ_Heart
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************
	lda >HBPtr
	ora >HBPtr+2
	bne CannotTurnOff
	
	lda >IRQ_VBL+1
	cmp #IRQ_Heart
	bne CannotTurnOff

	lda >IRQ_VBL+2
	cmp #>IRQ_Heart
	bne CannotTurnOff

	pha
	pha
	pha
	_ReadMouse
	pla
	plx
	plx
	bcs CanTurnOff
	and #%0000000000001000
	bne CannotTurnOff

CanTurnOff
	PushWord #vblDisable
	_IntSource

CannotTurnOff	rts

	ENDP


****************************************************************
*
* HeartBeat Interrupt Handler
*
* Dispatches to this handler are made in response to VBL
* interrupts.   This handler will increment the Tick Counter,
* and then each task in the heartbeat interrupt queue will
* have its counter decremented.   If a zero value results, the
* associated handler will be called.   It is the task's
* responsibility to	reset the count each time it is called.
*
* Chain looks like.....
*
* HBptr --> link address --> link address --> $0000
*           Counter	         Counter	      counter
*           Signature        Signature	      Signature
*           (code)	         (code)	      (code)
*
*
* Change History
*
* 31 March 88	Steven Glass
*
* Moved the clearing of the interrupt source from the last
* thing done to the	first thing done.  This is to prevent
* this interrupt from clearing other interrupts that are
* cleared at the same address.
*
****************************************************************
IRQ_Heart	PROC EXPORT

;-----------------------------------------------------------
;
; Start by turning off the interrupt source.  Then we can 
; go on and run all	the installed tasks.
;
;
	sta >ClrVBLint	; turn off interrupt source



	rep #$30	; off to 16 bit land
	lda >TickCnt	; increment tick counter
	inc a
	sta >TickCnt
	bne TickDone
	lda >TickCnt+2
	inc a
	sta >TickCnt+2

TickDone		; 

	rep #$30	; off to 16 bit land
	lda >HBptr	; is heart beat chain empty
	tax
	ora >HBptr+2
	beq NoChain1	; yes

	phb
	sep #$20	; 8 bit m
	lda >HBptr+2	; point at link
	pha
	plb
	rep #$20	; 16 bit m

NextHB		;       
	phx	;
	_MidiInputPoll	; Poll Midi before each task.
	plx
	
	lda |6,x	; check task signature
	cmp #$A55A
	beq QueueOK	; looks ok to me
	pea hbQueueBadErr	; heartbeat queue error
	pea $0000	; Heartbeat queue death message
	pea $0000
	_SysFailMgr	; off to the system	death handler

QueueOK		; 
	lda |4,x	; if cnt = 0, ignore this task
	beq NextQueue
	dec |4,x	; else decrement task counter
	bne NextQueue	; if task cnt not zero, don't execute
	phb	; save environment prior to dispatch
	phx
	phk	; here's where we come back to
	pea HBentry-1
	phb	; and here's where were going to
	clc
	txa
	adc #7
	pha
	sep #$30	; dispatch is native, 8 bit m/x
	rtl	; and this does the	dispatch

HBentry		;       

	clc	; native mode, 16 bit m/x
	xce
	rep #$30
	plx	; restore queue pointer
	plb

NextQueue		;       

	lda |0,x	; is this the last link ?
	ora |2,x
	beq NoChain	; yes
	sep #$20	; 8 bit m
	lda |2,x	; get next link addr
	pha
	rep #$20
	lda |0,x
	tax
	plb
	bra NextHB	; traverse the chain


NoChain		;       

	_MIDIInputPoll	; Poll one last time just to be safe.
	plb

NoChain1		;       

	sep #$30	; off to 8 bit land
	clc	; flag that interrupt was handled !
	rtl


	ENDP

	title 'System Death Manager'
****************************************************************
*
* System Death Manager     (ErrCode : integer; MsgPtr : long)
*     Input     Word     Error Code
*     Input     LongWord Pointer to ascii
*
* Change History
*
* 08 Dec 88	Steven Glass
*
* Check for NIL pointer to string was wrong, ored low word with
* low word to see if nil.  If string was at beginning of bank,
* it would not have worked.
*
****************************************************************
SysDeathMgr	PROC


RTL1	equ 1
RTL2	equ RTL1+3
Ptr	equ RTL2+3
ErrCode	equ Ptr+4

	clc
	lda Ptr,s
	ora Ptr+2,s	; Default
	bne DSysD	; yes
	sec	; else user msg

DSysD		;       
	phb	; clean 3 bytes of stack
	pla
	pla

	jmp >SysDMgrV	; off through SysDeath vector

; and never come back.

	ENDP


	title 'GetAddress'
****************************************************************
*
* Return Interrupt Status Address
*
* Input     word	     refnum
* Input     LongWord     Don't care
*
* Output    LongWord     Pointer
*
* Modification History
*
*    May 6, 1986	See 5 lines changed	below.
*
****************************************************************
GetAddr	PROC

RTL1	equ 1
RTL2	equ RTL1+3
RefNum	equ RTL2+3
Ptr	equ RefNum+2

	lda RefNum,s	; get ref #
	asl a	; and make an index
	asl a
	cmp #MaxRef	; index out of range ?
	bcc GetAddr0	; nope
	ldx #badInputErr	; error is bad input parm.
	jmp oErrOut2	; uses oErrOut SEG 6 May 86

GetAddr0		; 
	tax	; get param. addr
	lda >Ptbl,x	; abs long,x addressing SEG 6 May 86
	sta Ptr,s
	lda >Ptbl+2,x	; abs long,x addressing SEG 6 May 86
	sta Ptr+2,s	; missing +2 SEG 6 May 86
	jmp oEndCall2	; uses oEndCall SEG	6 May 86

Ptbl		; 
	DC.L irq_intflag	; status of INTFLAG	at IRQ
	DC.L irq_datareg	; status of DATREG at IRQ
	DC.L irq_ser1	; user interrupt info
	DC.L irq_ser2	; user interrupt info
	DC.L irq_aptlkhi	; user interrupt info
	DC.L TickCnt	; longword tick count value
	DC.L irq_volume	; volume used during IRQ time
	DC.L irq_active	; <> 0 if called during IRQ
	DC.L irq_soundd	; sound data at irq
	DC.L irq_a	; registers at break
	DC.L evmgrdata	; event manager data
	DC.L mouseslot	; the little squeeker is here
	DC.L LowXClamp	; 8 bytes of mouse clamp data
	DC.L AbsClamps	; 8 bytes of absolute device clamp
	DC.L SerFlag	; something for mike/fern
;		; added 6 Mar 87 by	Ray, Mike, Steve
;		; fern and witnessed by Dan O.
PtblEnd		; 

MaxRef	equ PtblEnd-Ptbl


	ENDP


	title 'Mouse Tools'
****************************************************************
*
*        Mouse Tool	Sets for Mars
*
****************************************************************
*
*        Copyright (C) 1985-1987
*        Apple Computer, Inc.
*        All Rights	Reserved
*
****************************************************************


****************************************************************
;
setdbtoe1	PROC
;	                    
	pea $e1e1	;change data bank to $e1
	plb	;dummy pull
	plb	;set data bank to $e1
	rts

	ENDP

	EJECT
*******************************************************************************
*
ReadMouseJ	PROC
*
* Description:	This call will function identically to read mouse except that
*	it will allow journaling to take place.
*
*             Screen holes, buttons and	movement status
*             bits updated; interrupt status bits are cleared
*             If data not contaminated,	then first read $c024
*             return X position data (ADB low byte), second
*             reads	return Y position data (ADB high byte)
*
*             |MseStat ($077c): bit7, previously but1 was up/down (0/1)
*	           bit6, movement interrupt
*	           bit5, button 0/1 interrupt
*	           bit4, vbl interrupt
*	           bit3, currently but1 is up/down (0/1)
*	           bit2, x/y moved since last READMOUSE
*	           bit1, previously but0 was up/down (0/1)
*	           bit0, currently but0 is up/down (0/1)
*
* Input  word: don't care
* Input  word: don't care
* Input  word: don't care
* Output word: X position
* Output word: Y position
* Output word: Status & Mode
*
* External Refs:
	Import AltTRdMouse
*
*******************************************************************************
*
	longa on
	longi on

;
; stack structure
;
DBreg	equ 1
Preg	equ DBreg+1
RTL1	equ Preg+1
RTL2	equ RTL1+3
StatMode	equ RTL2+3
YPos	equ StatMode+2
XPos	equ YPos+2
;
	php	;save interrupt status
	sei	;disable interrupt
	phb	;save data bank
	jsr setdbtoe1	;change data bank to $00
;
; First, check the journaling flag, if its zero, then simply call ReadMouse direct
; and go no further.
	lda >JournalFlag
	bne rm2010
	brl AltTRdMouse	; if its zero, then let read mouse handle this
;
; Next, check to see if the event manager is active, if it is, then we can continue,
; if it isn't well, just exit...
rm2010
	pha	; room for result
	_EMStatus
	pla
	bne rm2OK	; if its true, then its ok to go on
	brl AltTRdMouse	; if the event manager is off then let ReadMouse handle this
;
rm2OK
; If we get this far, we know that the event manager is active and that journaling is turned on.

	pha	; call the real read mouse to get the current mouse data
	pha
	pha
	_ReadMouse2

	pla	; get the current mouse data from the call
	ply
	plx
	sta StatMode,s	; and save them into our record
	tya
	sta yPos,s	; on the stack for journaling to use.
	txa
	sta xPos,s
;
; Now that our result is set properly, we must call the journaling routine so that it will save
; these new bytes for us. Or load in whatever it should be for playback
; First create the address of our data on the stack so we can pass it
	tsc	; get the current stack pointer
	clc
	adc #StatMode	; add in the proper offset
	tax	; and save it in <X> for later

	lda >JournalFlag	; first push the flag on the stack
	pha
	pea $0006	; journal code for ReadMouse (Also the data size...hmmm...)
	pea $0000	; now push the address of our data, (its on the stack...)
	phx	; push low word of data buffer
	jsl JournalPtr	; and call the journaling routine
;
; Journaling is all finished, and so should we be... so simply exit

	plb	;restore data bank
	plp	;restore interrupt state during entry
	jmp oEndCall0	;exit tool with good MouseRead

	EndP

****************************************************************
*
* ReadMouse - Read Mouse Position
*             Screen holes, buttons and	movement status
*             bits updated; interrupt status bits are cleared
*             If data not contaminated,	then first read $c024
*             return X position data (ADB low byte), second
*             reads	return Y position data (ADB high byte)
*
*             |MseStat ($077c): bit7, previously but1 was up/down (0/1)
*	           bit6, movement interrupt
*	           bit5, button 0/1 interrupt
*	           bit4, vbl interrupt
*	           bit3, currently but1 is up/down (0/1)
*	           bit2, x/y moved since last READMOUSE
*	           bit1, previously but0 was up/down (0/1)
*	           bit0, currently but0 is up/down (0/1)
*
* Input  word: don't care
* Input  word: don't care
* Input  word: don't care
* Output word: X position
* Output word: Y position
* Output word: Status & Mode
*
****************************************************************
*
TRdMou	PROC
	Export AltTRdMouse
	longa on
	longi on
;
; stack structure
;
DBreg	equ 1
Preg	equ DBreg+1
RTL1	equ Preg+1
RTL2	equ RTL1+3
StatMode	equ RTL2+3
YPos	equ StatMode+2
XPos	equ YPos+2
;
	php	;save interrupt status
	sei	;disable interrupt
	phb	;save data bank
	jsr setdbtoe1	;change data bank to $00
;
AltTRdMouse	
	longa off
	longi off
	sep #$30	;off to 8-bit land
	jsr GetMdata	;read in mouse data	from keygloo
	bcc RealData	;'c' = 0 if real live data
	lda |MseStat	;Fake data if here to get state history
	eor #$90	;was 0=up -- after eor then 0=down
	tax	;save in 'x'
	and #$80	;mask for current button0 state
	tay
	txa
	and #$10	;
	asl a	;move to msb
	asl a
	asl a
	tax
RealData		; 
	lda #$20	;anticipate no movement
	trb |MseStat	;reset to no movement first
	tya	;get back y data from GetMdata
	and #$3f	;mask off but0 and direction bit
	pha	;save in stack
	txa	;get back x data from GetMdata
	and #$3f	;mask off but1 and direction bit
	ora 1,s	;ora together x/y data byte
	beq NoMove	;both x/y =0, no movement
	lda #$20	;else set movement bit
	tsb |MseStat	;set movement status bit
;
Nomove		;movement status bit already reset
	pla	;clean up stack
	lda |MseStat	;get current buttons status
	pha	;save temporarily
	and #$2e	;reset bits 7,6,4,1, buttons bits
	sta |MseStat	; i.e. button 1/0 all up first
	pla	;recall current buttons status
	and #$90	;mask for last current buto/but1
	asl a	;shift last current	but0 to 'c'
	bcc LstBut0Off	;bra if last current but0 is off
	beq But0on1off	;bra here for last current but0 on
;		; and but1 off
	lda #$41	;get here if both last current buttons
;		; state were1, i.e.	buttons pressed
SetHole		; 
	tsb |MseStat	;set it for screen hole
	bra NewData	;bra to update for new states being
;		; read in by GetMdata
;
LstBut0Off		; 
	beq NewData	;bra for both off
	lda #$01	;else but1 on, down
	bra SetHole	;update screen hole	but1 stat
;
But0on1off		; 
	lda #$40	;set but0 on
	bra SetHole	;update screen hole	but0 stat
;
NewData		; 
	tya	;get new but0 back
	rol a	;save but0 status in 'c'
	txa	;get new but1 back,	bit7
;
; enter here with new buttons status, but0 = c, but1 = N (bit7)
; on=down=0, off=up=1, same to ADB spev	but opposite to |MseStat !!!
;
	bcs But0off	;bra if new but0 stat = 1, off
	bmi But1off	;bra here for but0 = on, but1 = off
	lda #$90	;get here for both on, update it
UpdateHole		; 
	tsb |MseStat	;update screen holes with newly stat
	bra AnyMove	;continue to handler any new movement
;
But0off		; 
	bmi AnyMove	;bra if both buttons off
	lda #$10	;get here for but1 on only
	bra UpdateHole	;update it
;
But1off		; 
	lda #$80	;get here for but0 on only
	bra UpdateHole	;update it
;
AnyMove		;Handling mouse movements
	txa	;get back x-pos new	detla
	and #$7f	;mask off button1 status, already done
	tax	;temp store direction and movement
	asl a	;direction bit to msb
	bpl PosXmov	;bra for positive x	direction move
	txa	;else neg x move, make 2's
	ora #$80	;set 2's data
	ldx #$ff	;set high byte to 2's also
	bra NegXMov	;bra to handle this	neg move
;
PosXmov		; 
	txa	;pos x move, make high byte also +
	ldx #$00
;
NegXMov		; 
PosNeg		; 
	phx	;push hi byte of delta x (word) on stk
	pha	;push lo byte of delta x on stack
	tya	;process delta y stuff
	and #$7f	;ignore button0 status, already handled
	tay	;store delta y without but0 status
	asl a	;shift direction bit to msb
	bpl PosYMov	;bra for pos y movement
	tya	;get back delta y
	ora #$80	;negative y movement, make 2's
	ldy #$ff	;set high byte also
	bra NegYMOv	;
PosYMov		; 
	tya	;pos y movement, then make hi byte '+'
	ldy #$00
;
NegYMov		; 
	phy	;push hi byte of delta y on stack
	pha	;push lo byte of delta y on stack
;
	lda |HighAbsy	;read back previous	value and
;		; update with the current value
	sta |MseSpare	;save the previous value temporarily
;		; for 'YclampTest'
	pla	;get back lo byte of delta y from stack
	clc	;clear carry for the following adding
	adc |LowAbsy	;add in new value for low byte abs y
	sta |LowAbsy	;update the screen hole also
;
	pla	;get back high byte	of delta y
	adc |HighAbsy	;add in new value for high byte abs y
	sta |HighAbsy	;update screen hole	also
	jsr YclampTest	;test y against clamp
;
	lda |HighAbsx	;process delta x stuff
	sta |MseSpare
;
	pla	;get back lo byte of delta x from stack
	clc	;make sure 'c'=0
	adc |LowAbsx	;add in new value for low byte of x
	sta |LowAbsx	;update screen hole	also
;
	pla	;get back high byte	of delat x
	adc |HighAbsx	;add in new value for high byte of x
	sta |HighAbsx	;update screen hole	also
	jsr XclampTest	;test x against clamp
;
	lda |HighAbsx	;after proper clamps testing, read
;		; it and set properly for the toos call
	sta Xpos+1,s
	lda |LowAbsx
	sta Xpos,s
	lda |HighAbsy
	sta Ypos+1,s
	lda |LowAbsy
	sta Ypos,s
	lda |MseStat	;get status
	sta StatMode+1,s	;move status to stack for tools call
	lda |MseMode	;get mouse mode
	sta StatMode,s	;move mode to stack
;
	rep #$30	;must exit with 16-bit m/x
	plb	;restore data bank
	plp	;restore interrupt state during entry
	jmp oEndCall0	;exit tool with good MouseRead
;
; How about error reading ??????????   ErrorCode ???????
;
	ENTRY GetMData
GetMdata		;	                    
	lda kmstatus	;test if data available
	bpl NotAvail	;bra if not available, set 'c'
	ror a	;set 'c'=0, if data	ok bit1=0
	ror a	; i.e. data not contaminated
	lda MouseData	;read in mouse data	register, $c024
	tax
	bcs NotAvail	;c=1 if data is contaminated
	lda kmstatus	;verify Y ardware has X data ready
	and #$02	;bit1=1, Y pos data	available
	beq NotAVail
	lda MouseData	;read in Y position	data
	tay	;store for calling routine
	clc	;good reading of mouse data
	rts	;return to caller
NotAvail		; 
	sec	;not a good reading
	rts
;
**************************************************************************
*
* Clamping is done after the delta has been added to the absolute value.
* The new absolute values are tested against the current clamp values.
*
**************************************************************************
*
XclampTest		; 
	ldy #$00	;y=0 for Xdata, y=$01 for Ydata
	tyx	;x=0 for Xdata, x=$02 for Ydata
	xba	;high byte of data to hi byte of 'A'
	lda |LowAbsx,y	;read lo byte of data to lo byte of 'A'
	xba	;swap hi and low byte of 'A'
	tay	;y=high byte of data
	bvc NoOverflow	;no overflow then all's fine
	bit |MseMode	;chk which test flag in use
	bra YclampTst0	;continue this way
NoOverflow		; 
	bit |MseMode	;set up N and V for	later
	bra ClampTest	;continue this way
;
YclampTest		; 
	ldy #$01	;y=0 for Xdata, y=$01 for Ydata
	ldx #$02	;x=0 for Xdata, y=$02 for Ydata
	xba	;high byte of y data to hi byte of 'A'
	lda |LowAbsx,y	;read lo byte of y data to lo byte 'A'
	xba	;swap hi and low byte of 'A'
	tay	;y=high byte of y data
	bvc YclampTst2	;No overflow then all's fine
	bit |MseInfo	;chk which test flag in use, Info set
;		; in InitTool
YclampTst0		; 
	bmi Chk2or3	;either 2 or 3 if -
	bvc MaxClamp	;Test 0 if v=0
	tya	;test 1 if v=1
	bmi MaxClamp	;if - was + before
	bpl MinClamp	;if + was - before
Chk2or3		; 
	bvc MinClamp	;test 2 if v=0
YclampTst2		; 
	bit |MseInfo	;setup N and V for later
;
ClampTest		; 
	php	;save status
	tya	;is it + or -
	bmi NegNum	;bra if -
	plp	;value is +
	bmi Must2or3	;must be 2 or 3
	bvc MinMax	;must be test 0]
	longa on
	longi on
	rep #$30	;off to 16-bit land
	xba	;put high data back	to hi byte of 'A'
	cmp |HiXclamp,x	;test against high clamp
	longa off
	longi off
	sep #$30	;back of 8-bit land
	beq OkValue	;bra if equal to max clamp, ok
	bcs MaxClamp	;> maxclamp is not ok
OkValue		; 
	rts	;back to caller
Must2or3		; 
	bvs MinMax	;do regular min/max	test
;
MaxClamp		; 
	txy	;test whether x or y data change
	beq XChange	;bra for Xdata, x=y=0
	ldy #$01	;else set for Ydata, y=$01
Xchange		; 
	lda |HiXclamp,x
	sta |LowAbsx,y	;Modify user data to max clamp value
	lda |HiXclamp+1,x
MaxClamp2		; 
	sta |HighAbsx,y	;save as new abs hi	value
	rts	;back to caller
;
NegNum		; 
	plp	;bit7 to N / bit6 to V
	bmi MinMax	;must be 2 or 3
	bvs Testm1	;must be test 1
;
MinClamp		;must be test 0
	txy	;test whether x or y data change
	beq XChange1	;x=y=0 for Xdata
	ldy #$01	;else set for Ydata
Xchange1		; 
	lda |LowXclamp,x
	sta |LowAbsx,y	;Modify user data to min clamp value
	lda |LowXclamp+1,x
	bra Maxclamp2	;exit this way
;
Testm1		; 
	xba	;put high byte in hi byte of 'A'
	longa on
	longi on
	rep #$30	;off to 16 bit land
	cmp |LowXclamp,x	;test against min clamp
	longa off
	longi off
	sep #$30	;back to 8 bit land
	bcc MinClamp	;< min clamp then use min clamp
	rts	;ok value, back to caller
;
MinMax		;do regular min/max	testing
	tya	;pick up value to test
	bmi MinMax0	;current valur is -
	lda |MseSpare	;what was previous abs sign
	bpl MinMax1	;previous was +
SpecTest		; 
	sec	;set carry to subtract
	txy	;make proper y index
	beq Xxdata
	ldy #$01	;set for ydata
Xxdata		; 
	sbc |HighAbsx,y	;subtract current abs hi byte
	bvs MinMax1	;v=1 then all's fine
	bit |MseSpare	;test sign
	bpl MinClamp	;+ then use min clamp
	bmi MaxClamp	;- then use max clamp
MinMax0		; 
	lda |MseSpare	;test previous bi byte for sign
	bpl SpecTest	;previous was +
;
MinMax1		; 
	txy	;make proper y index
	beq Xxxdata
	ldy #$01
Xxxdata		; 
	lda |HighAbsx,y	;get current abs hi	byte
	longa on
	longi on
	rep #$30	;off to 16 bit land
	xba	;put high byte into	hi byte of 'A'
	cmp |HiXclamp,x
	longa off
	longi off
	sep #$30	;back to 8 bit land
	beq OkValue2	;= is ok
	bcs MaxClamp	;> than max then use max clamp value
OkValue2		; 
	rep #$30	;off to 16 bit land
	cmp |LowXclamp,x	;test against min clamp
	sep #$30	;back to 8 bit land
	bcc MinClamp	;< min clamp then use min clamp value
	rts	;back to caller

	ENDP


*************************************************************
*
* InitMouse - init mouse clamp values to $0000 and $03ff,
*             set mouse position to 0,0	and also clear
*             mouse	mode and status
*
*  Input : word, mouseslot (miscellaneous tool)
*          If mouse	is going to be always active, then there
*          is not necessary to have such input, the following
*          routine doesn't take care of this input word but
*          maintain	compatibility with miscellaneous tool and
*          therefore exits with oEndCall02
*
*************************************************************
*
InitGlue	PROC

	longa on
	longi on
;
; The stack is not affected by this call
;
	php	;save interrupt state
	sei	;disable interrupt
	phb	;save data bank
	jsr setdbtoe1	;change data bank to $00
;
	lda #$0000	;16 bit land
	sta |LowXclamp	;reset low clamps to 00
	sta |LowYclamp	;
	lda #$03ff	;reset high clamps to$3ff
	sta |HiXclamp
	sta |HiYclamp
	longa off
	longi off
	sep #$30	;off to 8 bit land
	stz |LowAbsx	;set screen holes to 00
	stz |LowAbsy
	stz |HighAbsx
	stz |HighAbsy

	lda #$04	;??? assume mouse at slot4
	sta mouseslot

	jsl InitFlag	;must set up clamp flags
	longa on	;exit with 16 bit land a must
	longi on
	rep #$30
	plb	;restore data bank
	plp	;restore interrupt state
	jmp oEndcall2

		ENDP

***********************************************************
*
* SetMouse - set mouse mode, |MseMode
*
* Input  word: |MseMode
*
*            bit7/6, for X clmaping flags
*            bit5/4, reserved
*            bit3, Interrupt on VBL
*            bit2, Interrupt on next VBL if button pressed
*            bit1, Interrupt on next CBL if mouse is moved
*            bit0, Mouse button off/on (0/1)
*
***********************************************************
*
TSetMou	PROC

	longa on
	longi on

;
; stack structure
;
DBreg	equ 1
Preg	equ DBreg+1
RTL1	equ Preg+3	;rtl for tool dispatcher
RTL2	equ RTL1+3	;rtl for application caller
ModeUser	equ RTL2+1	;mode set by application
;
ErrMode	equ $1d01	;Illegal mode error	code
;
	php	;save interrupt status
	sei	;disable interrupt
	phb	;save data bank
	jsr setdbtoe1	;change data bank to $00
	lda ModeUser,s	;get input mode
;
	longa off
	longi off
	sep #$30	;8-bit m/x
	tay	;temp store the mode
	and #$f0	;chk for legal mode
	bne BadMode	;bra if illegal mode

	tya	;get back mode
	ror a	;test mouse on/off bit
	php	;c=1=enable mouse and z=0=turn ints on
	lda #$0f	;reset bits 0,1,2,3
	trb |MseMode
	tya	;recall user mode nibble
	tsb |MseMode	;put new mode in lo	nibble
	and #$08	;make irq.mousvbl=0	if no VBL to user
	sta |irq_MousVbl	;make irq.mousvbl <>0 if VBL to user
	plp	;what should be done?
	bcc DisMouse	;bra to disable mouse
	tya	;recall mode byte
	and #$06	;bit2=button int, bit1=movement bit
	beq DisMouse	;if =0 then no mouse ints except VBL

	lda #$40	;else only bit3<>0,	alter it in gloo
	tsb |kmstatus	;alter the interrupt bit in keygloo
	bra EndSet
;
DisMouse		; 
	lda #$40	;alter the bit in Kmstatus
	trb |kmstatus
;
EndSet		; 
	tya	;see if we should turn on VBL ints too
	and #$08	;bit3, interrupt on	VBL
	beq EndSet1	;exit if not enabled
	tsb |inten	;enable VBL interrupt
;
EndSet1		; 
	jsr GetMdata	;reset keygloo mouse information
	longa on
	longi on
	rep #$30	;16-bit m/x exits a	must
	plb	;restore data bank register
	plp	;restore interrupt state
	jmp oEndcall2	;exit tool by adjusting stack ptr
;
BadMode		; 
	longa on
	longi on
	rep #$30	;16 bit m/x exits a	must
	lda #ErrMode
	plb
	plp
	sec	;c=1 error mode 
	jmp oErrout2
;
	ENDP

********************************************************************
*
* HomeMouse - set mouse to upper-left corner of clamping window
*             or saying position mouse at minimum clamp position
*
********************************************************************
*
HomeGlue	PROC

	longa on
	longi on
;
; The stack is not affected by this call, from toolcall point of view
;
	php	;save interrupt state on entry
	sei	;disable interrupt
	phb	;save data bank register
	jsr setdbtoe1	;change data bank register to $00
	longa off
	longi off
	sep #$30	;off to 8 bit land
	lda |LowXclamp
	sta |HighAbsx
	lda |LowXclamp+1
	sta |LowAbsx
	lda |LowYclamp
	sta |HighAbsy
	lda |LowYclamp+1
	sta |LowAbsy
;
HomeExit		; 
	jsr GetMdata	;exit via reset keygloo mouse info
	longa on
	longi on
	rep #$30	;off to 16 bit land
	plb	;restore data bank
	plp	;restore interrupt state
	jmp oEndCall0	;exit the tool

	ENDP

*******************************************************************
*
* ClearMouse - Reset buttons, movement and interrupt status	to 0.
*              Set screen holes to $0000.
*
********************************************************************
*
ClearGlue	PROC

	longa on
	longi on
;
; stacks from the tool call are not affected
; no input or output parameters are required
;
	php	;save interrupt state
	sei	;disable interrupt
	phb	;save data bank
	jsr setdbtoe1	;change data bank to $00
;
	longa off
	longi off
	sep #$30	;off to 8 bit land
	stz |LowAbsx	;clear screen holes
	stz |LowAbsy
	stz |HighAbsx
	stz |HighAbsy
	stz |MseStat	;clear mouse status	also
	jsr GetMdata	;reset keygloo mouse information also
;
	longa on
	longi on
	rep #$30	;off to 16 bit land
	plb	;restore data bank
	plp	;restore interrupt state
	jmp oEndCall0	;exit with c=0, A=0

	ENDP

***************************************************************
*
* ClampMouse - set mouse bounds in a window and then set
*              mouse positions to the minimum clamp values
*
* Input  word: X axis minimum clamp
* Input  word: X axis maximum clamp
* Input  word: Y axis minimum clamp
* Input  word: Y axis maximum clamp
*
***************************************************************
*
TClmpMou	PROC


	longa on
	longi on
;
; stack structure
;
DBreg	equ 1
Preg	equ DBreg+1
RTL1	equ Preg+1
RTL2	equ RTL1+3
YMaxLo	equ RTL2+3
YMaxHi	equ YMaxLo+1
YMinLo	equ YMaxHi+1
YMinHi	equ YMinLo+1
XMaxLo	equ YMinHi+1
XMaxHi	equ XMaxLo+1
XMinLo	equ XMaxHi+1
XMinHi	equ XMinLo+1
;
	php	;save interrupt state
	sei
	phb	;save data bank register
	jsr setdbtoe1	;change data bank reg to $00
;
	lda YMaxLo,s	;move clamp values from stack to clamp
;		; locations in RAM $e1 bank for event
;		; manager
	sta |HiYclamp	; 16 bit land
	lda YMinLo,s
	sta |LowYclamp
	lda XMaxLo,s
	sta |HiXclamp
	lda XMinLo,s
	sta |LowXclamp
	jsl InitFlag	;update clamp flags

	longa on
	longi on
	rep #$30	;off to 16 bit land
	pea $0000
	pea $0000
	pea $0000
	phk	;dummy 3 bytes
	per clmpxit-1	;part of 3 dummy bytes
	jsl >TRdMou	;execute ReadMouse to reflect new clmps
	rtl	;remove 3 dummy bytes and go to next

clmpxit		; 
	pla	;remove 3 more words from ReadMouse
	pla
	pla

	plb	;restore data bank
	plp	;restore interrupt state during entry
	jmp oEndCall8	;exit the tool

	ENDP

******************************************************************
*
* GetClamp - Read the current clamp values
*
* Input  word: don't care
* Input  word: don't care
* Input  word: don't care
* Input  word: don't care
* Output word: Y maximum clamp
* Output word: Y mimimum clamp
* Output word: X Maximum clamp
* Output word: X minimum clamp
*
******************************************************************
*
TGetClamp	PROC

	longa on
	longi on
;
; stack structure
; no change for data bank register
;
	DefineStack
Preg	byte
Breg	byte
RTL1	block 3
RTL2	block 3
MaxY	word
MinY	word
MaxX	word
MinX	word
;
	php	;save interrupt state
	sei	;disable interrupt
	phb	;save data bank register
	jsr setdbtoe1
	lda |HiYclamp	;move clamp values to stack
	sta MaxY,s
	lda |LowYclamp
	sta MinY,s
	lda |HiXclamp
	sta MaxX,s
	lda |LowXclamp
	sta MinX,s
	plb	;restore data bank register
	plp	;restore interrupt

	jmp oEndCall0	;exit tool

	ENDP

************************************************************
*
* PosMouse - set mouse position to user-defined position
*
* Input  word: X position
* Input  word: Y position
*
************************************************************
*
TPosMou	PROC

	longa on
	longi on
;
; stack structure
;
DBreg	equ 1
Preg	equ DBreg+1
RTL1	equ Preg+1
RTL2	equ RTL1+3
Ypos	equ RTL2+3
Xpos	equ Ypos+2
;
	php	;save interrupt state
	sei	;disable interrupt
	phb	;save data bank register
	jsr setdbtoe1
	longa off
	longi off
	sep #$30	;off to 8 bit land
	lda Xpos+1,s	;move position to screen holes
	sta |HighAbsx
	lda Xpos,s
	sta |LowAbsx
	lda Ypos+1,s
	sta |HighAbsy
	lda Ypos,s
	sta |LowAbsy
	jsr GetMdata	;also reset keygloo	mouse information
	longa on
	longi on
	rep #$30	;back to 16 bit land for exit
	plb	;restore data bank
	plp	;restore interrupt state
	jmp oEndCall4

	ENDP

**************************************************************
*
* ServeMouse - Service mouse interrupt
*              Update interrupt status bit at screen hole ($077c)
*              to show current status
*
* Input  word: Space, don't care
* Output word: Interrupt status
**************************************************************
*
TServMou	PROC

	longa on
	longi on
;
; stack structure
;
DBreg	equ 1
Preg	equ DBreg+1
RTL1	equ Preg+1
RTL2	equ RTL1+3
IntStat	equ RTL2+3


	php	;save interrupt status on entry
	sei	;disable interrupt
	phb	;save data bank
	jsr setdbtoe1	;change data bank to $00
	longa off
	longi off
	sep #$30	;off to 8-bit land
	lda #$0e	;reset bit3, VBL interrupt
;		;      bit2, Button	0/1 interrupt
;		;      bit1, Movement interrupt
	trb |MseStat	;cause to reset
	lda |irq_Intflag	;test VBL enabled/active status flag
	tay	;temp store
	and #$08	;bit3 = 1, if vbl interrupted
	beq NotVbl	;bra if not vbl interrupt, don't reset
	sta |ClrVblint	;else disable vbl interrupt, $c047
	tya	;get back intflag
	and #$f7	; to clr the vbl interrupt stat
	sta |irq_Intflag	; clear it
	lda #$08	;prepare bit to update |MseStat

NotVbl		; 
	tay	;save status
	tsb |MseStat	;update mouse state	screen hole
	bit |kmstatus	;chk for mouse info	in gloo
	bvc MseIntdis	;bra if mouse interrupts noe enabled
	bpl MseIntdis	;bra if ints enabled but mse didn't int
	lda #$0e	;chk what's ints status
	tay	; set 'y' non-zero for exit from here
	tsb |MseStat	;Update |MseStat, $077c

MseIntdis		; 
	tya	;test if mousey interrupt or not
	lda |MseStat	;finally read back the new status
	sta IntStat,s	;store to proper location in stack
		; for application to read it
	plb	;restore data bank register
	plp	;restore interrupt status
	tya	;test if mousey interrupt or not
	beq NotMseInt	;bra for not mousey	type interrupt
	clc	;maintain compatibility for firmware call
	bra ExitSerMse

NotMseInt		;
	sec	;maintain compatibility for firmware call
ExitSerMse		;
	longa on
	longi on
	rep #$30	;off to 16-bit land	a must
	jmp oEndcall0	;exit the tool

	ENDP

****************************************************************
*
* GetAbsclamp - get	absolute clamp values
*
* Input  word: Space for result
* Input  word: Space for result
* Input  word: Space for result
* Input  word: Space for result
*	            <----- sp
* Output word: X minimum clamp
* Output word: X maximum clamp
* Output word: Y minimum clamp
* Output word: Y maximum clamp
*	            <----- sp
*
***************************************************************
;
GetAbsClamp	PROC

	longa on
	longi on

;
; stack structure
;
RTL1	equ 1
RTL2	equ RTL1+3
MaxY	equ RTL2+3
MinY	equ MaxY+2
MaxX	equ MinY+2
MinX	equ MaxX+2

	lda >AbsClamps	;move clamps to stack
	sta MinX,s
	lda >AbsClamps+2
	sta MinY,s
	lda >AbsClamps+4
	sta MaxX,s
	lda >AbsClamps+6
	sta MaxY,s

	jmp oEndCall0

	ENDP

********************************************************************
*
* SetAbsclamp - set	absolute device clamp values
*
* Input  word: X axis minimum clamp
* Input  word: X axis maximum clamp
* Input  word: Y axis minimum clamp
* Input  word: Y axis maximum clamp
*	               <----- sp
*
********************************************************************
*
SetAbsClamp	PROC

	longa on
	longi on

;
; stack structure
;
RTL1	equ 1
RTL2	equ RTL1+3
Ymax	equ RTL2+3
Ymin	equ Ymax+2
Xmax	equ Ymin+2
Xmin	equ Xmax+2

	lda Xmin,s	;move clamps from stack to its area
	sta >AbsClamps
	lda Ymin,s
	sta >AbsClamps+2
	lda Xmax,s
	sta >AbsClamps+4
	lda Ymax,s
	sta >AbsClamps+6

	jmp oEndCall8	;exit tool by adjusting stack ptr

	ENDP

*********************************************************************
*
* BasicInit - An unofficial tool to set	up the clamp flags when
*             calling from BASICMOUSE.
* InitFlag  - The flags are returned in	bits 6, 7 of 'A'.
*             Called during power up, InitMouse, ClampMouse	and
*             BASICMOUSE (firmware).
*
* The following is a break down of what	the clamping flags mean.  The
* X flag is in bits	6, 7 of |MseMode byte and the Y flag is	in bits 6, 7
* of the Info byte.
*
*   Hi nibble	 Lo nibble	  Comments
*--------------------------------------------------------------------
*   for X
*    A: 00xx	 xxxx	  both x clamps are	+
*       01xx	 xxxx	  min is - / max is	+
*       10xx	 xxxx	  both x clamps are	-
*       11xx	 xxxx	  min is + / max is	-
*		  absolute clamping
*
*   for Y
*    A: 00xx	 xxxx	  both y clamps are	+
*       01xx	 xxxx	  min is - / max is	+
*       10xx	 xxxx	  both y clamps are	-
*       11xx	 xxxx	  min is + / max is	-
*		  absolute clamping
*
***********************************************************************
*
MyBasicInit	PROC	;support entry for BASICMOUSE

	longa on
	longi on
;
; The stack is not affected by this call.  Only BASICMOUSE is an external
; call to this tool, all others are internal call in the tool.
;
	phb	;save data bank register
	jsr setdbtoe1	;change data bank to $00
	longa off
	longi off
	sep #$30	;off to 8 bit land
	jsl >InitFlag
;
	longa on
	longi on
	plb
	rep #$30	;exit with 16 bit land
	jmp oEndCall0	;exit from BASICMOUSE call


InitFlag	PROC
;	                    
	longa off
	longi off	;enter w/ 8 bit mode
	sep #$30
;
	ldx #$00	;$00 for x-axis clamping
	lda #$c0	;ready to clear bits 6, 7
	trb |MseMode	;reset it
	trb |MseInfo	;reset it
	jsr TstSwap4	;go set a flag, return in 'A'
	tsb |MseMode	;set appropriate bits
	jsr TstClampVal8	;do hi byte test
	bcs XOK	;x ok now test y
	bit |MseMode	;pick up flags in N	and V
	jsl >TstSwap	;go test it
;
XOK		; 
	ldx #$02	;$02 for y-axis clamping
	jsr TstSwap4	;go set a flag
	tsb |MseInfo	;set appropriate bits
	jsr TstClampVal8	;do hi byte test
	bcs Tstclrts	;exit with 'c'=1
	bit |MseInfo	;else pick up flags	and test
;
TstSwap		;swap clamp values
	bvs Tstclrts	;no swap if flag = 0 or 1
	bpl PosNegnum	;'+' only if 2 pos # entered
	sep #$40	;'v'=1 if 2 neg # entered
PosNegnum		; 
	longa on
	longi on
	rep #$30	;off to 16 bit land
	lda |LowXclamp,x
	bvs JustSwap	;'v'=0 then just swap
	bit #$ff00	;else test if illegal '-' number
	bne JustSwap	;do regular swap
	bit #$0080	;test for illegal '-' number
	beq JustSwap	;do regular swap
	ora #$ff00	;else extend sign to hi byte
	sta |LowXclamp,x	;resave modified clamp
;
	longa off
	longi off
	sep #$30	;back to 8 bit land
	lda #$40	;change bit 6,7 (00) to (01)
	cpx #$02	;2 if change info else change |MseMode
	bne ChMseMode	;
	tsb |MseInfo	;set bit 6
	rtl
;
ChMseMode		; 
	tsb |MseMode	;set bit 6
	rtl
;
JustSwap		; 
	longa on
	longi on	;enter with 16 bit m/x
	tay	;save in y
	lda |HiXclamp,x	;high clamp swap with low clamp
	sta |LowXclamp,x
	tya	;for indirect, bridge...
	sta |HiXclamp,x
	longa off
	longi off
	sep #$30	;back to 8 bit land
;
Tstclrts		; 
	rtl	;back to caller
;
TstSwap4		; 
	lda |HiXclamp+1,x	;get hi clamp hi byte
	php	;save for later
	lda |LowXclamp+1,x	;get low clamp hi byte
	bmi LowclampNeg	;bra if low clamp -
	plp	;what about hi clamp hi byte
	bmi Flag3	;if - set flag 3
	lda #$00	;must set flag to 0
	rts	;return to internal	call
;
Flag3		; 
	lda #$c0	;flag = 3
	rts
;
LowclampNeg		; 
	plp	;what was sign of hi byte
	bmi Flag2	;if - then use flag	2
	lda #$40	;flag = 1
	rts
;
Flag2		; 
	lda #$80	;flag = 2
	rts
;
TstClampval8		; 
	longa on
	longi on
	rep #$30	;off to 16 bit land
	lda |HiXclamp,x	;test hi clamp
	cmp |LowXclamp,x	; against low clamp
	longa off
	longi off
	sep #$30	;back to 8 bit land
	rts
;
	ENDP



	title 'FWEntry'
****************************************************************
*
* Full Native Dispatch to Firmware
*
* Input     Word	 Entry point - 1
*
* This routine dispatches from full native mode to an emulation
* mode entry point.	  The 8 bit A,X and	Y registers will be
* passed through to	the target routine.	  A,X and Y will also
* be returned to the application from the target routine.
* If the dispatch is in the address range of $C0xx-$C7xx, then
* the dispatcher must determine if the slot to be accessed is
* internal or external.  If external, then the system speed	is
* kicked down to slow mode.
*
****************************************************************


FwEntry	PROC EXPORT

DirReg	equ 1
OrigState	equ DirReg+2
OrigCya	equ OrigState+1
OrigDbr	equ OrigCya+1
OrigAReg	equ OrigDbr+1
EntryWord	equ OrigAReg+1
RetAddr1	equ EntryWord+2

	sep #$30	; 8 bit m/x
	longa off
	longi off
	pha	; save processor environment
	phb
	lda #0
	pha
	plb
	lda |CyaReg	; save current system speed
	pha
	lda |StateReg
	pha
	lda #%00001000
	sta |StateReg
	phd
	tsc
	tcd
	phx	; save $Cn
	rep #$20	; 16 bit 'm'
	lda EntryWord	; get dispatch page
	inc a	; adjust to absolute entry point
	xba	; get high byte entry point
	sep #$20	; 8 bit 'm'
	cmp #$C8	; $C000 < EntryPoint < $C800 ?
	bge NotIO	; no
	and #$F0
	cmp #$C0
	bne NotIO	; if not in $Cxxx space
	rep #$20	; 16 bit 'm'
	lda EntryWord	; get dispatch page
	inc a	; adjust to absolute entry point
	xba	; want $Cn
	sep #$20	; 8 bit 'm'
	and #$07	; determine the slot were going to
	cmp #$03	; is it slot 3?
	bne NotSlot3	; no
	lda >RDC3ROM	; is slot 3 internal or external ?
	and #%10000000	; mask excess bits
	bra SetSpeed	; if external, set slow!
NotSlot3		; 
	tax
	lda |SltRomSel	; now get slot rom selection
SlowChk		; 
	ror a	; get internal/external to 'c'
	dex
	bpl SlowChk
	lda #0	; get ready to set system speed
	ror a	; bit 7 = not speed
SetSpeed		; 
	trb |CyaReg	; set the system speed
NotIO		; 
	plx	; restore $Cn
	rep #$30	; 16 bit m/x
	longa on
	longi on

****************************************************************
*
* This saves the states of the 8 bit X and Y while
* we play around with switching the stack from native
* mode to emulation	mode.   If the native stack is not in
* page $01, then the 16 bit stack pointer must be saved while
* the stack pointer	is reset to Main memory stack page $01XX.
* Then the 16 bit native mode stack pointer is saved on the
* emulation mode stack. It's strange, but neccessary.
*
****************************************************************

	txa	; get 8 bit X
	xba	; save it
	sep #$20	; 8 bit 'm'
	tya	; now get 8 bit Y
	rep #$20	; 16 bit 'm'
	tax	; now X really has both X and Y
	tsc	; get current stack	pointer
	tay	; and save in Y register
	sep #$20	; 8 bit 'm'
	longa off
	xba	; check if stack is	in page $01
	dec a
	beq AlreadyPG1	; if page 1, then don't get it
	lda #1	; stack will be in page 1
	xba
	lda >MNEMSTKPTR	; get low byte of stack pointer
	rep #$20	; 16 bit 'm'
	longa on
	tcs	; set the page 1 stack pointer
AlreadyPG1		; 
	phy	; and save the 16 bit stack pointer
	rep #$20	; 16 bit 'm'
	txa	; get back both X and Y
	sep #$30	; 8 bit 'm' & 'x'
	tay	; now restore Y
	xba	; and then restore X
	tax
	phd	; save current direct register
	pea FWRET-1	; save return address
	lda |RDCXROM	; save FE bank evironment
	pha
	rep #$20	; 16 bit 'm'
	lda EntryWord	; save dispatch address
	pha
	sep #$30	; 8 bit m/x
	longa off
	longi off
	lda OrigAReg	; get entry 'A' reg
	pea $0000	; set direct register to $0000
	pld
	brl ToMainSide	; here we go

FWRET		;       
	pld	; restore direct page
	sta EntryWord	; save 'A' on return from firmware
	php	; save 'P' on return from firmware
	pla
	sta EntryWord+1
	rep #$30	; 16 bit 'x' and 'm'
	pla	; get native mode stack pointer
	tcs	; and reset the stack pointer
	sep #$30	; 8 bit 'm' and 'x'
	pld	; restore direct register
	pla	; restore state
	sta |StateReg
	pla	; restore system speed
	sta |CyaReg
	plb	; restore Data Bank	Register
	sep #$30	; 8 bit 'm' and 'x'
	longa on
	longi on
	pla	; clean entry acc. off stack
	pla	; A reg = value from firmware call
	plp	; P reg = value from firmware call
	rep #$30	; back to 16 bit land
	rts



	ENDP



****************************************************************
*
* This routine used	to dispatch to mainside
*
* ENTRY   :  Rom Enabled
*            Native	Mode
*            8 Bit m/x
*            Stack = RDSLOTCXROM
*	 Dispatch Address-1	(MSB)
*	 Dispatch Address-1	(LSB)
*
* EXIT    :  Fast Mode
*
*
****************************************************************
ToMainSide	PROC

	longa off	; start off in 8 bit mode
	longi off
	xba	;Preserve 'A' in 'B'
	txa	;preserve 'X' in 'A'
	rep #$30	;off to 16 bit land
	longa on
	longi on

	plx	;save routine address in 'X'
	phk	;Return bank
	pea FEBankRts-1	;Return address in bank FE
	pea MainExit-1	;Exit point in main	monitor ROM
	phx	;Routine to execute	back to stack
	sep #$30	;back to 8 bit land
	longa off
	longi off
	tax	;Restore 'X' from 'A'
	xba	;Restore 'A' from 'B'

ToMainSid2		;       
	xba	;Save 'A' value
	lda >CyaReg	;save speed
	and #$7F	;slow down system
	ora >SystemSpd	;System speed mask
	sta >CyaReg	;
	xba	;Restore user 'A' value
	phb	;Data bank register	is new program bank
	pea MainSide-1	;Main ROM area entry point
	sta >SetSlotCXRom	;disable internal CxROM
	rtl	;go to mainside

FEBankRts		;       
	sep #$30
	xba	;save user's 'A' value
	phb
	pea 0
	plb
	plb
	lda #$80	;go fast in here
	tsb |CyaReg	;
	lda 2,s	; get rom select
	bpl SetExtRom	; if external
	sta |SetIntCxROM	;Restore bank FE operating environment
OKforExit		; 
	plb
	pla
	xba
	rts	;Back to bank $FF caller
SetExtRom		; 
	sta |SetSlotCXROM
	bra OKforExit

	ENDP



	title 'ID Tag Manager'
*********************************************************************
*
* This tool is used	to insert, delete and inquire status
* regarding an ID tag.  The ID tag is used to mark segments
* as belonging to a	specific application.
*
* GetNewID
*     Input     Word     Space for result
*     Input     Word     ID tag (Type and Aux)
*     Output    Word     ID tag (Full tag returned)
*
* DeleteID
*     Input     Word     ID tag (Type and Main)
*
* StatusID
*     Input     Word     ID tag (Type and Main)
*
* ID tag structure is shown below.....
*  ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___
* |   |   |   |   |	  |   |   |   |   |	  |   |   |   |   |	  |   |
* | F | E | D | C |	B | A | 9 | 8 | 7 |	6 | 5 | 4 | 3 | 2 |	1 | 0 |
* |___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|
*   |___|___|___|	|___|___|___|   |___|___|___|___|___|___|___|
*   |	|               |
*   Type Field	Aux ID Field    Main ID Field
*
*  Type = 0  Memory	Manager
*         1  Application
*         2  Controlling Program (Finder, Shell, etc.)
*         3  ProDOS
*         4  Tool Kits..................Not managed here.
*         5  Desk Accessories
*         6  Run Time Libraries
*         7  System	loader..............Not managed here
*         8  Firmware / System Function
*         9  Tool Locator...............Not managed here.
*         A  Setup File
*         B  Undefined
*         C  Undefined
*         D  Undefined
*         E  Undefined
*         F  Undefined
*
* Change History
*
* 13 Nov 88	Steven Glass
*
* No longer manage ID 4000, 7000 or 9000. (These are used
* throughout the system without anyone reserving them.  so we
* return error when someone trys to reserve them).
*
* Also removed unnecessary Hlock and hUnlock calls.
*
*
*********************************************************************
GetNewID	PROC
	longa on
	longi on

taglist	equ 1
size	equ taglist+4
SrchTag	equ size+2
SrchCnt	equ SrchTag+2
OrigDBR	equ SrchCnt+2
OrigDir	equ OrigDBR+1
rtl1	equ OrigDir+2
rtl2	equ rtl1+3
UserTag	equ rtl2+3
IDTag	equ UserTag+2
Bounds	equ LastTag

	DefineStack
s_Rtl1	block 3
s_Rtl2	block 3
s_UserTag	word
s_result	word

	lda s_UserTag,s
	and #$F000
	cmp #$4000
	beq NoCanDo

	cmp #$7000
	beq NoCanDo

	cmp #$9000
	bne CanDo

NoCanDo	ldx #BadInputErr
	jmp oErrOut2


CanDo


	phd	; environment
	phb
	lda #0	; init space to 0
	pha	; space for search counter
	pha	; space for search tag
	pha	; space for list size
	pha	; space for list address
	pha
	tsc	; and turn stack into zp
	tcd

	jsr GetMTHandleSize
	sta size	; save current size
	sta srchcnt	; initialize search	counter
	ina	; grow for a word entry in list
	ina
	jsr SetMTHandleSize
	jsr MTderef	; dereference the handle
	stx taglist	; set tag list address
	sty taglist+2	; ready for direct-indirect-indexed
*
* Search for a hole	in the tag list with the requested type.
* The search routine ignores the AUX field.  Post processing
* of the IDTAG returned from the search	must check for a
* nonzero MAIN field before returning the tag to the requestor.
* Only the TYPE and	MAIN fields in the IDTAG are maintained	in
* the IDTAG list.  IDTAGS with a MAIN field set to zero are
* invalid and not maintained in the list.  IDTAGS with a TYPE
* field of zero are	not maintained in the list.  This means	that
* the maximum number of tags maintained	in the list is 3825	IDTAGS
* or 15*255.  Since	tags are word wide,	the maximum length of the
* list is 7650 bytes ($1DE2).
*
	ldy size	; decrement remaining list size
	beq emptylist
	dey	; to point at last entry
	dey
	sty size	; point at top of list
emptylist		; 
	lda UserTag	; get callers ID
	and #$F000	; keep only relevant parms
	inc a	; make initial tag = $NX01
	sta SrchTag	; set search tag
	and #$F000	; and check requested type
	bne TypeOK
	ldx #badInputErr	; bad input parm
	bra NoParmErr
TypeOK		; 
	lda UserTag	; get callers ID
	and #$0F00	; preserve AUX
	sta UserTag
	cpy #0	; any tags in list?
	beq NewTag	; no
FindLast		; 
	lda [taglist],y	; else get tag from	list
	and #$F0FF	; is it same as search tag
	cmp SrchTag
	beq SameTag	; yes
	cpy #0	; was this the last	list entry?
	beq NewTag	; yes
	dey	; point at next list entry
	dey
	bra findlast	; and loop to check
SameTag		; 
	inc SrchTag	; set next possibility
	ldy size	; point at last list entry
	dec SrchCnt	; how many more searches
	dec SrchCnt
	bne FindLast	; at least this one
NewTag		; 
	lda SrchTag	; Get unassigned tag
	ora UserTag	; add in the AUX
	sta IDtag	; save for caller
	ldy size	; point at top of tag list
	iny
	iny
	sta [taglist],y	; store into list
	ldx #0	; assume no error
	and #$00FF	; check tag in bounds
	bne NoParmErr	; assumed right !
	ldx #idTagNtAvlErr	; else tag not available
NoParmErr		; 
	pla	; clean off tag list address
	pla
	pla	; clean off size
	pla	; clean off search tag
	pla	; clean off search count
	plb	; restore data bank
	pld	; restore direct page
	cpx #$0000
	bne TagError	; if out of bounds
	jmp oEndCall2

TagError		; 
	phx	; save error code
	jsr GetMTHandleSize
	dec a	; reduce size by a word
	dec a
	jsr SetMTHandleSize
	plx	; restore error code

	jmp oErrOut2

	ENDP






****************************************************************
*
DeleteID	PROC
*
* Removes the specified ID from the IDTagList
*
*
* Inputs:
*	word : id to remove
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

	longa on
	longi on

TagList	equ 1	; tag list address
size	equ taglist+4	; ID list size
DeleteCnt	equ size+2	; list size
OrigDBR	equ DeleteCnt+2	; saved data bank reg
OrigDir	equ OrigDBR+1	; saved direct reg
rtl1	equ OrigDir+2
rtl2	equ rtl1+3
IDtag	equ rtl2+3	; ID tag (type and aux)

	phd	; save direct page
	phb	; save data bank
	lda #0	; init space with zero
	pha	; space for tag list address
	pha
	pha	; space for size
	pha	; delete counter
	tsc	; turn stack into zp
	tcd
	lda IDtag	; get ID tag
	and #$F0FF	; Type and Main parms only
	sta IDtag

	jsr GetMTHandleSize
	sta size
	jsr MTderef	; dereference the handle
	stx taglist	; set tag list address
	sty taglist+2
*
* search for and delete the requested tag
*
	lda size	; any list entries?
	beq deletedone	; no
	ldy #0	; point at base of list
FindID		; 
	lda [taglist],y	; get id from list
	and #$F0FF	; Type and Main parms only
	cmp IDtag	; check against target
	beq FoundIt
	iny	; point at next list entry
	iny
	cpy size	; done all entries?
	bne FindID	; no, keep looking
	beq deletedone	; yes, no id found
FoundIt		; 
	inc DeleteCnt	; bump deleted counter
DeleteIt		; 
	cpy size	; done ?
	beq DeleteDone	; yes
	iny
	iny
	lda [taglist],y	; move remaining list down
	dey
	dey
	sta [taglist],y
	iny	; point at next list entry
	iny
	bra DeleteIt	; move entire list
DeleteDone		; 
	asl DeleteCnt	; count bytes not words

	jsr GetMTHandleSize
	sec
	sbc DeleteCnt	; word wide entries	that were
	jsr SetMTHandleSize

	pla	; clean off tag list address
	pla
	pla	; clean up size
	pla	; clean up delete count
	plb
	jmp EndCall2

	ENDP





****************************************************************
*
StatusID	PROC
*
* Indicates whether or not the specified user id is active.
* If the ID is in the list of reserved ID's, no error is
* returned.  If the ID is not in the list, the idTagNtAvlErr is
* returned.
*
* This seems kind of silly I know, but what can I say.  I
* have to maintain this code, not justify it.
*
*
* Inputs:
*	word : UserID to check.
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

	longa on
	longi on

taglist	equ 1
size	equ taglist+4
OrigDBR	equ size+2
OrigDir	equ OrigDBR+1
rtl1	equ OrigDir+2
rtl2	equ rtl1+3
IDtag	equ rtl2+3

	phd	; save direct page
	phb	; save DBR
	lda #0	; start by getting local space on stack and zeroing it
	pha	; space for tag list ptr
	pha
	pha	; space for size
	tsc	; turn stack into zp
	tcd

	jsr GetMTHandleSize
	sta size
	jsr MTderef	; dereference the handle
	stx taglist	; set tag list address
	sty taglist+2
*
* now search for ID	tag
*
	lda IDtag	; get search tag
	and #$F0FF	; Main & Type only
	sta IDtag
	ldy #0	; point at base of list
FindID		; 
	cpy size	; done ?
	beq SrchDone	; no ID tag found
	lda [taglist],y	; check for tag
	and #$F0FF	; type and main only
	cmp IDtag
	beq FoundIt	; ID is active
	iny	; point at next list entry
	iny
	bra FindID	; and keep looking
SrchDone		; 
	stz size	; set not found flag
FoundIt		; 
	pla	; clean up tag list	address
	pla
	pla	; clean off size
	plb
	cmp #0	; was ID found?
	beq IDinact	; if did not find tag
	jmp EndCall2

IDinact		; 
	ldx #idTagNtAvlErr	; no id for input parm
	jmp ErrOut2

	ENDP


	title 'IRQ Stuff'
****************************************************************
*
* This tool call is	used to enable interrupt sources or other
* special functions	such as keyboard buffering
*
* Change History
*
* 13 Feb 87    Ray Montagne
*
*    Keyboard interrupts did not enable	the VBL interrupt
*    source.  Now it does!
*
****************************************************************
IntSrc	PROC

KeyTaskHdr	equ $E1014C
KeyTaskCnt	equ KeyTaskHdr+4
KeyTaskSig	equ KeyTaskCnt+2
KeyTaskJmp	equ KeyTaskSig+2

	longa on
	longi on

	lda 7,s	; get reference #
	asl a	; make index
	tax
	cpx #$0020	; check tool reference
	bge DsptchErr	; oops!!!
	pea DsptchRet-1	; push return address
	lda >Disptch,x	; and then dispatch	address
	pha
	sep #$30	; off to 8 bit land	for dispatch
	longa off
	longi off
	rts	; do dispatch

DsptchRet		; 
	rep #$30	;back to 16 bit land
	longa on
	longi on
	bcs DsptchErr	; if error, then go	here
	jmp oEndCall2	; all done
DsptchErr		; 
	ldx #badInputErr	; Parameter error occured
	jmp oErrOut2	; error exit

Disptch		; 
	DC.W EnblKbd-1	; enable keyboard interrupts
	DC.W DsblKbd-1	; disable keyboart int
	DC.W EnblVbl-1	; enable vertical blanking interrupts
	DC.W DsblVbl-1	; disable VBL int
	DC.W EnblQtr-1	; enable quarter second interrupt
	DC.W DsblQtr-1	; disable quarter second int
	DC.W EnblSec-1	; enable 1 second int
	DC.W DsblSec-1	; disable 1 second int
	DC.W EnblBuf-1	; enable keyboard buffering
	DC.W DsblBuf-1	; disable keyboard buffering
	DC.W EnblDat-1	; enable keymicro data int
	DC.W DsblDat-1	; disable keymicro data int
	DC.W EnblScan-1	; enable scan line int
	DC.W DsblScan-1	; disable scan line	int
	DC.W EnblExt-1	; enable external VGC int
	DC.W DsblExt-1	; disable external VGC int

EnblKbd		; 
	longa off
	lda #%10000000	; set KBD IRQ flag
	sta >KBDIRQFLAG
	rep #$30	; to 16 bit land
	longa on
	longi on
	lda #1	; initialize task count
	sta >KeyTaskCnt
	lda #$A55A	; and set task signature
	sta >KeyTaskSig
	lda #KeyTask	; now set up jump to task
	pha
	xba
	and #$FF00
	ora #$005C
	sta >KeyTaskJmp
	pla
	and #$FF00
	ora #^KeyTask
	xba
	sta >KeyTaskJmp+2
	pea $00E1	; pointer to KBD task
	pea $014C
	_SetHeartBeat	; install keyboard task
	sep #$30
	clc
	bra ENBLVbl	; changed 13 Feb 87	RBM

KeyTask		;       
	longa off
	longi off
	lda #$01	; reset task count
	sta >KeyTaskCnt
	lda >KBD	; read keyboard data
	bpl NoKBDirq	; if no key, no dispatch
	jmp >IRQ_KBD
NoKBDirq		; 
	rtl


DsblKbd		; 
	longa off
	lda #%00000000	; clear KBD IRQ flag
	sta >KBDIRQFLAG
	rep #$30	; to 16 bit land
	longa on
	longi on
	pea $00E1	; pointer to KBD task
	pea $014C
	_DelHeartBeat
	rts

EnblVbl		; 
	longa off
	longi off
	lda >INTEN	; get mega interrupt reg
	ora #%00001000	; enable VBL interrupts
	sta >INTEN
	rts

DsblVbl		; 
	lda >INTEN	; get mega interrupt reg
	and #%11110111	; disable VBL interrupts
	sta >INTEN
	rts

EnblQtr		; 
	lda >INTEN	; get mega interrupt reg
	ora #%00010000	; enable 1/4 sec interrupt
	sta >INTEN
	rts

DsblQtr		; 
	lda >INTEN	; get mega interrupt reg
	and #%11101111	; disable 1/4 sec interrupt
	sta >INTEN
	rts

EnblSec		; 
	lda >VGCINT	; get VGC interrupt	reg
	ora #%00000100	; enable 1 sec interrupt
	sta >VGCINT
	rts

DsblSec		; 
	lda >VGCINT	; get VGC interrupt	reg
	and #%11111011	; disable 1 sec interrupt
	sta >VGCINT
	rts

EnblScan		; 
	lda >VGCINT	; get VGC interrupt	reg
	ora #%00000010	; enable scan line interrupt
	sta >VGCINT
	rts

DsblScan		; 
	lda >VGCINT	; get VGC interrupt	reg
	and #%11111101	; disable scan line	interrupt
	sta >VGCINT
	rts

EnblExt		; 
	lda >VGCINT	; get VGC interrupt	reg
	ora #%00000001	; enable external VGC interrupt
	sta >VGCINT
	rts

DsblExt		; 
	lda >VGCINT	; get VGC interrupt	reg
	and #%11111110	; disable external VGC interrupt
	sta >VGCINT
	rts

EnblBuf		; 
	rts

DsblBuf		; 
	rts


EnblDat		; 
	lda >KMStatus	; get Keyboard u cmd/status
	ora #%00010000	; enable data interrupts
	sta >KMStatus
	rts

DsblDat		; 
	lda >KMStatus	; get Keyboard u cmd/status
	and #%11101111	; disable data interrupts
	sta >KMStatus
	rts


	ENDP




	title 'GetTick'
**************************************************************
*
*     Returns current tick count value
*
****************************************************************
GetTick	PROC
	longa on
	longi on

IRQstate	equ 1
rtl1	equ IRQstate+1
rtl2	equ rtl1+3
LowTick	equ rtl2+3
HiTick	equ LowTick+2

	php	; save interrupt status
	sei	; and disable for now
	lda >TickCnt	; move tick count to stack
	sta LowTick,s
	lda >TickCnt+2
	sta HiTick,s
	plp	; restore interrupt	status
	jmp oEndCall0

	ENDP



	title 'FWEntry'
****************************************************************
*
* Firmware Entry Points
*
* This function requires two words of input as follows
*
*     Input     Word     Room for result
*     Input     Word     Room for result
*     Input     Word     Room for result
*     Input     Word     Room for result
*     Input     Word     Accumulator value (low byte)
*     Input     Word     X register value  (low byte)
*     Input     Word     Y register value  (low byte)
*     Input     Word     Address of Apple// entry point
*     Output    Word     Y register  (low byte)
*     Output    Word     X register  (low byte)
*     Output    Word     A register  (low byte)
*     Output    Word     6502 status (low byte)
*
* Modification History
*
*     9 Mar 87   Ray Montagne
*
*     Processor status was comming off stack in wrong byte of word.
*
*     12 Mar 87  Ray Montagne
*
*     Steve buggered my code by puting an and #$00CF in the	wrong
*     spot.  So I fixed it!!!
*
*     17 Nov 88  Konstantin Othmer
*
*     Added calls to slot arbiter so that the default slot configuration
*     is selected anytime a call is made to the Cn00 space.  
* NOTE:  This does not effect the text tools since they call fwentry directly.
*
****************************************************************
MonEntry	PROC

dir	equ 1
ret1	equ dir+2
ret2	equ ret1+3
fwep	equ ret2+3
yin	equ fwep+2
xin	equ yin+2
ain	equ xin+2
yout	equ ain+2
xout	equ yout+2
aout	equ xout+2
pout	equ aout+2

	longa on
	longi on

	phd	; turn stack into zp
	tsc
	tcd
;
; Are we in Cn00 Space?
;

	lda fwep
	cmp #$C000
	bcc NotInC000
	cmp #$C7FF
	bcs NotInC000

;
; Set slots to default configuration and put old config. on stack
;
InC000	
	lda #$0200	;request default configuration
	jsl slot_arbiter	;
	phx	;save original configuration
	bra SlotDone

;
; Don't change configuration. Get current and put on stack to be symmetrical with
;   above case.  
;
NotInC000	
	lda #$8000	;Get current configuration but don't change
	jsl slot_arbiter	;anything.
	phx	;save original configuration

SlotDone
	lda fwep	; get fw entry point address
	dec a	; adjust for dispatch to FW
	pea fwdsptch-1	; push return address
	pha	; push dispatch address
	ldy yin	; set up register inputs
	ldx xin
	lda ain
	brl fwentry	; do dispatch

fwdsptch		; 
	php	; save returned parameters
	and #$00FF	; truncate to byte
	sta aout	; store output parmeters
	stx xout
	sty yout
	lda 1,s	; get FW 6502 status
	and #$00C7	; truncate to byte
	xba	; put processor status in high byte
	sta pout	; and store as output parm
	rep #$20	; 16 bit 'm'
	plp	; clean up stack
	plx	;get old configuration
	php	;
; 
; Restore old slot configuration which is stored on stack
;
	lda #$0300	;restore to configuration in x reg
	jsl slot_arbiter
	plp
	jmp EndCall8	; pulls d and cleans up stack

	ENDP





	title 'Pack and Unpack bytes'
************************************************************************
*			           *
*  FUNCION PackBytes(VAR PicPtr : POINTER;	           *
*	 VAR PicSize: INTEGER;	           *
*	     BufPtr : POINTER;	           *
*	     BufSize: INTEGER) : INTEGER;	           *
*			           *
*  Params:  PicPtr - Pointer to start of picture area to be	packed     *
*           PicSize- Total size to be packed	           *
*           BufPtr - Start of output buffer to pack into	           *
*           BufSize- Maximum space available for packed picture        *
*			           *
*  Returns: PackBytes return value: Number of packed bytes generated   *
*           PicPtr:	updated to end of last byte used from picture      *
*           PicSize: reduced by number of bytes of picture processed   *
*			           *
*  FUNCTION UnPackBytes(    BufPtr : POINTER;	           *
*	        BufSize: INTEGER;	           *
*	    VAR PicPtr : POINTER;	           *
*	    VAR PicSize: INTEGER) : INTEGER;	           *
*			           *
*  Params:  BufPtr - pointer to area containing packed data	           *
*           BufSize- max size of area containing packed data           *
*           PicPtr - Pointer to start of area to unpack into           *
*           PicSize- Maximum space available for unpacked picture      *
*			           *
*  Returns: UnPackBytes return Value: Actual number of bytes unpacked  *
*           PicPtr:	Updated to one past	end of last byte unpacked      *
*           PicSize: reduced by number of bytes of picture generated   *
*			           *
*        ------------------------------------------------------        *
*			           *
*  Sample Calls:			           *
*			           *
*        picsize:=$7d00;		           *
*        bufsize:=$400;		           *
*        REPEAT			           *
*          HowMuch:=PackBytes(PicPtr,PicSize,BufPtr,BufSize);          *
*          Write(f,bufptr,howmuch);		           *
*        UNTIL picsize=0;		           *
*			           *
*			           *
*	       {***}		           *
*			           *
*			           *
*        OpenFile;			           *
*        Mark:=StartofFile;		           *
*        PicSize:=$7d00;		           *
*        BufSize:=$400;		           *
*        REPEAT			           *
*          SetFileMark(Mark);		           *
*          Read(f,BufPtr,Bufsize);		           *
*          HowMuch:=UnPackBytes(BufPtr,BufSize,PicPtr,PicSize);        *
*          Mark:=Mark+HowMuch;		           *
*        UNTIL ( (PicSize=0) OR EOF(f) );	           *
*			           *
*     -----------------------------------------------------------      *
*			           *
*    Packed data incription format:		           *
*			           *
*        %00xxxxxx : (xxxxxx : 0->63) =	1 to 64 bytes follow -         *
*		       All Different           *
*			           *
*        %01xxxxxx : (xxxxxx : 1,2,3,5,6,7) = 1,2,3,5,6,7 repeats -    *
*		       of next byte	           *
*			           *
*        %10xxxxxx : (xxxxxx : 0->63) =	1 to 64 repeats -	           *
*		       of next 4 bytes         *
*			           *
*        %11xxxxxx : (xxxxxx : 0->63) =	1 to 64 times 4 repeats -      *
*		       of next byte	           *
*			           *
*    -----------------------------------------------------------       *
*			           *
*  Written By: Eagle I. Berns		           *
*			           *
*  Modification History:		           *
*			           *
*  10-DEC-85   EIB		First coding begun	           *
*   5-Mar-87   SEG		Error code returned	is now 0   *
*		in both Pack and Unpack        *
*			           *
************************************************************************


************************************************************************
* Main Packbits entry		           *
************************************************************************

PACKBYTES	PROC

from	EQU 1
to	EQU from+4
endbuf	EQU TO+4
prev	EQU endbuf+4
count	EQU prev+4
lf	EQU count+2

Origdrct	EQU lf+2

rtl1	EQU origdrct+2
rtl2	EQU rtl1+3

Bufsize	EQU rtl2+3
BufPtr	EQU Bufsize+2
PicsizeP	EQU BufPtr+4
PicPtrP	EQU PicSizeP+4
Result	EQU PicPtrP+4
;	  -> +2

	PHD	; SET UP STACK AS ZERO PAGE +PARMS
	TSC
	SEC
	SBC #ORIGDRCT-1
	TCS
	TCD

	LDA [PICPTRP]	; GET THE ARGS.
	TAX	; (PICPTRP NEEDS DE-REFERANCE)
	LDY #2
	LDA [PICPTRP],Y
	STA FROM+2
	STX FROM

	LDA [PICSIZEP]
	STA COUNT


	LDA BUFSIZE
	SEC
	SBC #5	;END LESS FIVE FOR ENDING TEST
	CLC
	ADC BUFPTR
	STA ENDBUF
	LDA BUFPTR+2
	STA TO+2
	ADC #0
	STA ENDBUF+2
	LDA BUFPTR
	STA TO

	LDA #0
	TAY
	STA [TO],Y
	STA LF
	INC LF	; MAKE LAST<>FIRST TO BEGIN
	LDA #$FFFF	; SET PREV TO INVALID
	STA PREV
	STA PREV+2

MAINLOOP	JSR ISIT44	; CHECK IF MULTI-4 MATCH
	BCC CNT4S	; YES, OUNT THEM
	JMP MORECL	; NO, MOVE ALONG FOR MORE CHECKS

*****************************************
*		*
*   Now, count 4's grouping on the      *
*   input and store	the results in the	*
*   output and adjusts all necessary	*
*   pointers. NOTE:	this routine will	*
*   assume at least	one match got you	*
*   in here, thus one match assumed.	*
*		*
*****************************************

CNT4S	LDX #1	; X COUNTS HOW MANY	PAIRS
CLOOP	JSR ISIT44	; DO IT DO THE 4 4 MATCH
	BCS CDONE	; NO IT DON'T - GO FINISH UP
	CPX #64	; REMEMBER, $3F MAX
	BEQ CDONE
	LDA COUNT	; DON'T GO PAST END
	BEQ CDONE
	SEC
	SBC #4
	BLT CDONE
	LDA FROM
	CLC
	ADC #4
	STA FROM
	LDA FROM+2
	ADC #0
	STA FROM+2
	INX	; BUMP THE COUNT
	LDA COUNT
	SEC
	SBC #4
	STA COUNT
	BRA CLOOP
CDONE	DEX	; LESS ONE FOR CMD.
	PHX	; SAVE COUNT AWHILE
	JSR LOOKAT4
	BEQ CMAT4	; GOT 4'S AND THEY'RE ALL THE SAME
	PLA	; GET COUNT BACK FOR THIS CASE
	ORA #$80	; SET APPROPRIATE FLAGS
	LDY #0
	STA [TO],Y	; STORE COMPRESSIION TYPE WORD+COUNT
	LDA [FROM],Y	; GET 1ST TWO BYTES	TO STORE
	INY
	STA [TO],Y	; STORE 1ST TWO AFTER COMMAND
	INY
	LDA [FROM],Y	; GET NEXT 2 INPUTS	(Y IS NEATLY OK!)
	STA LF
	INY
	STA [TO],Y	; NOW DATA IS STORED CORRECTLY

	LDA TO	; 'TO' LOC BUMPS BY	5
	STA PREV
	CLC
	ADC #5
	STA TO
	LDA TO+2
	STA PREV+2
	ADC #0
	STA TO+2
	BRA CJOIN	;GO FINISH UP
CMAT4	PLA	;GET THE COUNT
	ORA #$C0
	STA [TO]	;STORE CONTROL INFO+COUNT
	LDY #3
	LDA [FROM],Y	;GET THE BYTE THAT MATCHES
	STA LF
	LDY #1
	STA [TO],Y	; STORE 2 BUT COUNT	ONLY 1
	LDA TO	; 'TO' LOC BUMPS BY	2
	STA PREV
	CLC
	ADC #2
	STA TO
	LDA TO+2
	STA PREV+2
	ADC #0
	STA TO+2
CJOIN	LDX #4	;'FROM' AND 'COUNT'	NEED 4 BUMP STILL
	JMP BMPF

MORECL	JSR ISIT44	; DO WE HAVE 4-4 MATCH FROM HERE
	BCC DOSTR2	; YES, GO HANDLE IT
	INY
	CPY #4	; HAVE WE MOVED THROUGH 4
	BCC MORECL
DOSTR2	PHY
	LDY #0
	JSR LOOKAT4	; CHECK FOR SOME MATCHES
	TXA	; NUMBER OF THEM TO	A
	PLX	; NO. TO DEAL WITH TO X

*****************************************
*		*
*   Now, add into the output stream	*
*   a spec for consecutive bytes of	*
*   from 1 to 4 (all matching) and will	*
*   modify previous	spec if necessary	*
*   A reg. contains	max no. of the	*
*          chars we	may consider.	*
*   X reg. has 1,2,3 or 4 for the num.	*
*          of matched chars.	*
*****************************************

	LDY #0
	PHA
	TXA
	SEC
	SBC 1,S	; A NOW HAS REG. X - REG Y
	BLT STU1
	LDA 1,S
	TAX	; NOW, X HAS MAX REALLY TO CONSIDER
STU1	PLA	; FROM EXTRA PUSH FOR ARITH.
	TXA	; STORE IT FOR CHECK ON END
	CMP COUNT
	BLT STU2
	LDX COUNT	; IF PAST END, USE LOWER COUNT
STU2	LDA LF	; CHECK IF LAST=FIRST
	XBA
	CMP LF
	BNE DIFF	; NO, SO GO STORE DIFF. DATA
	LDA PREV+2	; IS THERE A PREV
	CMP #$FFFF
	BEQ DIFF	; NOPE, SO NO MATCH
	LDA [PREV],Y	; GET LAST COMMAND TO SE WHAT TO DO
	AND #$FF	; CHECK FOR COMMAND	'C0',BYTE
	CMP #$C0
	BNE DIFF	; NOPE, SO JUST DO THESE ALONE
	TXA	; GOOD ONE, SO X+4 WILL STORE TO PREV
	CLC
	ADC #3	; 4 - 1 FOR CMD. OFFSET
	ORA #$40	; SET FLAGS INTO CMD
	PHA	;  TEMP.
	LDA [PREV],Y	; GET PREVIOUS
	AND #$FF00	; DATA ONLY
	STA [PREV],Y
	PLA
	ORA [PREV],Y	; WITH NEW COUNT & DATA
	STA [PREV],Y	; SAVE IT
BMPF	TXA	; GET COUNT
	CLC
	ADC FROM
	STA FROM	;BUMP FROM BY X (AMT.)
	LDA FROM+2
	ADC #0
	STA FROM+2
	PHX
	LDA COUNT
	SEC
	SBC 1,S
	PLX
	STA COUNT
	CMP #0
	BNE MORCHK
	JMP ALLDONE
MORCHK	LDA TO+2	; CHECK IF PAST END	OF BUFFER
	CMP ENDBUF+2
	BNE NOTDON
	LDA TO
	CMP ENDBUF
	BLT NOTDON
	JMP ALLDONE
NOTDON	LDY #0	; BE SURE Y=0 WHEN WE GO BACK
	JMP MAINLOOP	; ALL DONE, BACK TO	MAIN LOOP


DIFF	CPX #3	;IF 1 OR 2, JUST ADD
	BLT DO12
	BEQ DO3	; IF 3, GO SET UP IT'S COMMAND
	LDA #$C0	; FOR 4, SET IT'S COMMAND
	BRA JDO
DO3	LDA #$42
JDO	PHA	; SAVE IT
	LDA [FROM],Y	; GET THE CHAR.
	AND #$FF	; -JUST THE CHAR
	XBA
	STA [TO],Y
	PLA
	ORA [TO],Y	; NOW HAVE CMD & COUNT
	STA [TO],Y
	TXY	;FOLLOWING IS TO GET LF RIGHT
	DEY
	LDA [FROM],Y
	STA LF
	LDY #0	;RESET Y
BMPT2	LDA TO	; TO:=TO+2;
	STA PREV
	CLC
	ADC #2
	STA TO
	LDA TO+2
	STA PREV+2
	ADC #0
	STA TO+2
	BRA BMPF
DO12	LDA PREV+2	; CHECK FOR A PREV
	CMP #$FFFF
	BEQ NEW1
	LDA [PREV],Y	; CHECK PREV CMD.
	AND #$C0	; IF WAS ADD 1 CHAR, JUST ADD 1 OR 2 IN
	CMP #00
	BNE NEW1	; NO, GO DO NEW 1 OR 2
	LDA [PREV],Y	; CHECK IF>MAX- MAKE NEW 1 OR 2 IF SO
	AND #$FF
	CMP #$3F
	BEQ NEW1
	CPX #2	; IF 2, & AT $3E JUST ADD 1
	BNE OKADDIN
	CMP #$3E
	BNE OKADDIN
	LDX #1	; JUST 1, GET NEXT ONE NEXT TIME AROUND
OKADDIN	TXA	; YES, ADD IN 1 OR 2
	CLC
	ADC [PREV],Y	; YES, ADD 1 OR 2 IN
	STA [PREV],Y
	LDA [FROM],Y
	STA LF
	STA [TO],Y
	TXA
	CLC
	ADC TO
	STA TO
	LDA TO+2
	ADC #0
	STA TO+2
	JMP BMPF	; GO BUMP FROM
NEW1	LDA [FROM],Y	; GET THE DATA
	STA LF
	AND #$FF	; JUST 1 CHAR
	XBA
	STA [TO],Y
	LDX #1	; DO ONLY ONE, IF 2	GET IT NEXT TIME
	BRA BMPT2	; GO ADJUST POINTERS

ALLDONE	LDA TO
	SEC
	SBC BUFPTR
	STA RESULT	; SET RESULT LENGTH

	LDA FROM
	SEC
	SBC [PICPTRP]
	PHA	; HOLD IT, NEED SIZE - IT
	LDA [PICSIZEP]
	SEC
	SBC 1,S
	STA [PICSIZEP]
	PLA

	LDA FROM
	STA [PICPTRP]
	LDA FROM+2
	LDY #2
	STA [PICPTRP],Y

	LDA ORIGDRCT
	TCD
	LDA RTL1,S	;FIX STACK UP CORRECTLY
	STA RESULT-6,S
	LDA RTL1+2,S
	STA RESULT-4,S
	LDA RTL1+4,S
	STA RESULT-2,S
	TSC
	CLC
	ADC #RESULT-7
	TCS
	LDA #0	; fix by SEG on 5 March 87
	CLC	; fix by SEG on 5 March 87
	RTL
	ENDP




************************************************************************
* Support routines called by packbits		           *
************************************************************************

*****************************************
*		*
* Lookat4: looks at	4 bytes at [FROM],Y	*
*          and returns in X :	*
*		*
*       X=4 => XXXX	(i.e 4 same bytes)	*
*       X=3 => XXX-		*
*       X=2 => XX--		*
*       x=1 => x---		*
*		*
* RETURN ALSO: CONDITION = IF X=4	*
*              CONDITION <> IF NOT	*
*		*
*****************************************

Lookat4	PROC

from	EQU 1
to	EQU from+4
endbuf	EQU to+4
prev	EQU endbuf+4
count	EQU prev+4
lf	EQU count+2

	LDX #1	; INIT X TO DEFAULT	NO MATCHES
	LDA [FROM],Y	; GET TWO BYTES TO COMPARE
	XBA	; SWITCH FOR COMPARE
	CMP [FROM],Y
	BNE LDONE	; NOT =, RETURN (X=1)
	INX
	INY	; CHECK FOR 2ND AND	3RD MATCHING
	CMP [FROM],Y
	BNE LDONE	; NOT =, RETURN (X=2)
	INX
	INY
	CMP [FROM],Y
	BNE LDONE	; NOT =, RETURN (X=3)
	INX	; ELSE, X=4 ALL 4 MATCH
	CPX #4	; (JUST TO SET COND. TO =)
LDONE	RTS
	ENDP

*****************************************
*		*
* ISIT44 - Checks for two consecutive	*
*   sets of 4 matching bytes.	*
*   Returns Carry Set for no match and	*
*   Carry Clear for	match.	*
*   NOTE: X register is not changed.	*
*		*
*****************************************

ISIT44	PROC

from	EQU 1
to	EQU from+4
endbuf	EQU to+4
prev	EQU endbuf+4
count	EQU prev+4
lf	EQU count+2

	PHY	;MUST PRESERVE
	LDA [FROM],Y	;1ST 2 BYTES OF FIRST 4
	INY	;BUMP BY 4
	INY
	INY	;NOTE: CHECK IF PAST END ONLY IF WE
	INY	;      GET THE MATCH, ELSE, WHO CARES
	CMP [FROM],Y	; 1ST 2 BYES OF NEXT 4
	BNE NOT44
	DEY
	DEY	;BACK UP TO 2ND 2 OF 1ST 4
	LDA [FROM],Y
	INY
	INY
	INY
	INY
	CMP [FROM],Y	;COMPARE TO 2ND 2 OF 2ND 4
	BNE NOT44	;NOPE, GET OUT
*
* HERE, WE GOT THE MATCH, BUT BE SURE 8	BYTES REMAIN SO WE CAN DO IT
*
	LDA COUNT
	SEC
	SBC #8
	BMI NOT44	; LESS THAN 8 , WE CANT COUNT IT
	PLY	; RESTORE Y
	CLC	; ALLS WELL, RETURN	CLEAR CARRY
	RTS
NOT44	PLY
	SEC	; NO MATCH
	RTS
	ENDP



************************************************************************
* Main UnPackbits entry		           *
************************************************************************

UNPACKBYTES	PROC

from	EQU 1
to	EQU from+4
endbuf	EQU to+4
temp	EQU endbuf+4
count	EQU temp+4
lf	EQU count+2

Origdrct	EQU lf+2

rtl1	EQU origdrct+2
rtl2	EQU rtl1+3

PicSizeP	EQU rtl2+3
PicPtrP	EQU PicSizeP+4
Bufsize	EQU PicPtrP+4
BufPtr	EQU BufSize+2
Result	EQU BufPtr+4
;	  -> +2

	PHD	; SET UP STACK AS ZERO PAGE +PARMS
	TSC
	SEC
	SBC #ORIGDRCT-1
	TCS
	TCD

	LDA [PICPTRP]	; GET THE ARGS.
	TAX	; (PICPTRP NEEDS DE-REFERANCE)
	LDY #2
	LDA [PICPTRP],Y
	STA TO+2
	STX TO

	LDA [PICSIZEP]
	STA COUNT

	LDA BUFPTR
	STA FROM
	CLC
	ADC BUFSIZE
	STA ENDBUF
	LDA BUFPTR+2
	STA FROM+2
	ADC #0
	STA ENDBUF+2

DOUNPACK	LDY #0

	LDA [FROM],Y	; GET THE COMMAND
	STA TEMP
	AND #$3F
	TAX	; GET COUNT ONLY INTO X
	INC FROM	; BUMP TO FIRST BYTE TO TRANSFER
	BNE M1
	INC FROM+2
M1	BIT TEMP-1	; V & C BITS GIVE COMMAND
	BMI REP4
	BVS REP1	; 01xxxxxx -> REPEAT NEXT 1 BYTE
	BRA DIFF	; 00xxxxxx -> ALL DIFFERENT
REP4	BVS REP41	; 11xxxxxx -> REPEAT 4 OF NEXT 1 BYTE
	BRA REP44	; 10xxxxxx -> REPEAT OF NEXT 4 BYTES

OUTP	PLA
	JMP UDONE	; GO FINISH UP

*****************************************
*		*
* DIFF : 0 ->63 IN A MEANS  1->64	*
*   DIFFERENT BYTES	FOLLOW TO BE MOVED	*
*		*
*****************************************
DIFF	PHA	; WHEN WE GO TO COMMON CODE, WE NEED
;		  SOMETHING STACKED	(OTHER CALLS USE IT)
	BRA JOIN

*****************************************
*		*
* REP1 : 1,2,3,5,6,7 REPEATS OF FOLLOW-	*
*        ING BYTE.		*
*		*
*****************************************


REP1	LDA TEMP	; PUT BYTE IF LOW &	HIGH & ON STACK
	AND #$FF00
	PHA
	XBA
	ORA 1,S
	STA 1,S
	BRA JOIN	; JOIN UP, X=LEN IS	CORRECT STILL

*****************************************
*		*
* REP41 : IS SAME AS REP1 ABOVE, EXCEPT	*
*         COUNT IN X MUST BE 4 TIMES >	*
*		*
*****************************************
REP41	INX
	TXA
	ASL A
	ASL A
	TAX
	DEX
	BRA REP1

*****************************************
*		*
* REP44 : MUST SET UP FOR 2 STORES I.E.	*
*         4 BYTES WORTH, AND COUNT IS	*
*         DOUBLED (2 STORES EACH TIME)	*
*		*
*****************************************
REP44	INX
	TXA
	ASL A
	TAX	; FIRST DOUBLE X
	DEX
	PHA	; MUST PUT SOMETHING ON STACK FOR
;		  OTHER CASES

*        BRA   JOIN		; WE FIND 4 BYTES AT [FROM],
* (FALL THROUGH TO JOIN)	; SO MUST REMEMBER TO FIND IT THERE

*****************************************
*		*
* JOIN : HERE, THE LOAD STORE SEQUENCE	*
*        OF DATA TRANSFER TAKES PLACE	*
*		*
*****************************************
JOIN	CPX COUNT	; BE SURE THERE'S ROOM
	BGE OUTP	; NO - DONE   (BUT PULL OFF EXTRA PUSH)

	LDA #1	; CHECK IF LENGTH WOULD GO OVER
	BIT TEMP-1	; DEPENDS ON TYPE OF CMD.
	BVS L1	; LEN=1 FOR %01 & %11
	BMI L4	; LEN=4 FOR %10
	TXA
	INC A	; LEN=N+1 FOR %00..N...
	BRA L1
L4	LDA #4
L1	CLC	; FROM+LEN .LT. ENDBUF MEANS NOT DONE
	ADC FROM
	PHA	; SAVE FOR COMPARE
	LDA FROM+2
	ADC #0
	CMP ENDBUF+2
	BCC NOTDONP
	PLA
	CMP ENDBUF
	BLT NOTDON
	BEQ NOTDON
	BRA OUTP
NOTDONP	PLA

NOTDON	CPX #0	; (NEEDED FOR 1ST ENTRY IN LOOP)
LOOP	BMI DOUPD	; YES


*****************************************
*		*
* MOVEIT : USED LOCALLY TO FETCH PROPER	*
*          INPUT, DEPENDING ON TYPE OF	*
*          CMD. BEING PROCESSED	*
*  NOTE: X<0 MEANS STORE 1 BYTE ONLY	*
*****************************************
	BIT TEMP-1	; THIS HAS THE FLAGS
	BMI MREP4
	BVS MREP1
	CPX #0	; IF NEG. IT'S ONE BYTE ONLY
	BEQ MSPEC
	LDA [FROM],Y
	STA [TO],Y
	INY
	INY
	JMP NDMOV
MSPEC	SEP #%00100000
	LDA [FROM],Y
	STA [TO],Y
	REP #%00100000
	INY
	JMP NDMOV
MREP1	CPX #0
	BEQ M2SPEC
	LDA 1,S
	STA [TO],Y
	INY
	INY
	JMP NDMOV
M2SPEC	SEP #%00100000
	LDA 1,S
	STA [TO],Y
	REP #%00100000
	INY
	JMP NDMOV
MREP4	BVS MREP1	;REP41 SAME AS REP1	BUT LARGER COUNT
	LDA [FROM]
	STA [TO],Y
	PHY	; HOLD Y A SEC
	LDY #2
	LDA [FROM],Y
	PLY
	INY
	INY
	STA [TO],Y
	INY
	INY
******
NDMOV	DEX
	DEX
	BRA LOOP	; GO DO NEXT ONES
DOUPD	PLA	; GET RID OF EXTRA PUSH
	LDA TEMP	; UPDATE APPROPRIATE POINTERS
	AND #$3F
	INC A
	BIT TEMP-1
	BMI XREP4	; FROM DEPENDS ON TYPE
	BVC XDIFF	; FOR 00xxxxxx ADD LENGTH
FP1	LDA #1	; FOR 01xxxxxx ADD 1
XDIFF	CLC
	ADC FROM
	STA FROM
	LDA FROM+2
	ADC #0
	STA FROM+2
	BRA DOTO
XREP4	BVS FP1	; FOR 11xxxxxx ALSO	ADD 1
	LDA #4	; FOR 10xxxxxx ADD 4
	BRA XDIFF

DOTO	TYA	; Y IS OUTPUT COUNT
	CLC
	ADC TO
	STA TO
	LDA TO+2
	ADC #0
	STA TO+2
	TYA
	STA TEMP
	LDA COUNT
	SEC
	SBC TEMP
	STA COUNT
	JMP DOUNPACK

UDONE	LDA FROM
	SEC
	SBC BUFPTR
	DEC A
	STA RESULT	; SET RESULT LENGTH

	LDA TO
	SEC
	SBC [PICPTRP]
	PHA	; HOLD IT, NEED SIZE - IT
	LDA [PICSIZEP]
	SEC
	SBC 1,S
	STA [PICSIZEP]
	PLA

	LDA TO
	STA [PICPTRP]
	LDA TO+2
	LDY #2
	STA [PICPTRP],Y

	LDA ORIGDRCT
	TCD
	LDA RTL1,S	;FIX STACK UP CORRECTLY
	STA RESULT-6,S
	LDA RTL1+2,S
	STA RESULT-4,S
	LDA RTL1+4,S
	STA RESULT-2,S
	TSC
	CLC
	ADC #RESULT-7
	TCS
	LDA #0	; fix by SEG 5 March 87
	CLC	; fix by SEG 5 March 87
	RTL
	ENDP




	title 'Munger'
************************************************************************
*			           *
*  FUNCION Munger  (VAR DestPtr : POINTER;	           *
*	VAR DestLen : INTEGER;	           *
*	    TargPtr : POINTER;	           *
*	    TargLen : INTEGER;	           *
*	    ReplPtr : POINTER;	           *
*	    ReplLen : INTEGER;	           *
*	VAR Pad     : INTEGER) : INTEGER;	           *
*			           *
*  Params: DestPtr	- Pointer to text to be manipulated	           *
*          DestLen	- Number of bytes to be included in manipulation   *
*          TargPtr	- String to be searched for in above text          *
*          TargLen	- its length		           *
*          ReplPtr	- string to replace	with when target string found  *
*          ReplLen	- its length		           *
*          Pad	- <on entry> : character to pad with stored as int.*    
*          Pad	- <returned value> : pad amount	           *
*			           *
*  Returns: Munger returns a negative value if target not found        *
*			           *
*           Pad returns the net effect of the replacement.	If data is *
*           truncated, a negative value, and if blanks are padded in   *
*           at the end, a positive value count	           *
*			           *
*           DestPtr	is updated to one past the replacement	           *
*           DestLen	is reduced by amount of data passed over           *
*			           *
*			           *
*  Special considerations:		           *
*			           *
*        - If TargPtr is 0, the substring of length TargLen	is         *
*          replaced	by ReplPtr's string                                *
*			           *
*        - If TargLen is 0, ReplPtr's string is inserted at DestPtr    *
*			           *
*        - If ReplPtr is 0, DestPtr is updated to past the end of the  *
*          TargPtr's string                                            *
*			           *
*        - If ReplLen is 0, (and ReplPtr is NOT 0) TargPtr's string is *
*          deleted rather than replaced	(since the replacement string  *
*          is empty)		           *
*			           *
*        There is one case in which munger performs a replacement even *
*        if it doesn't find all of the target string. If DestPtr's     *
*        entire string is at the begining of TargPtr's string, then    *
*        the entire	DestPtr string is replaced with ReplPtr's string   *
*			           *
*        ------------------------------------------------------        *
*			           *
*  Sample Calls:			           *
*			           *
*	       {***}		           *
*			           *
*			           *
*     -----------------------------------------------------------      *
*			           *
*			           *
*  Written By: Eagle I. Berns		           *
*			           *
*  Modification History:		           *
*			           *
*  01-JAN-86   EIB		First coding begun	           *
*  01-AUG-86   EIB	fixed targptr=0 bug		           *
*  02-AUG-86   EIB	fixed delete (repllen=0)	           *
*  05-Mar-87   EIB	fixed one byte compare problem for targe string of *
*	length one.		           *
*              SEG	Routine now clears carry and puts zero in A-reg    *
*	on exit		           *
*			           *
************************************************************************


************************************************************************
* Main munger entry			           *
************************************************************************
MUNGER	PROC

search	EQU 1
find	EQU search+4
destptr	EQU find+4
destlen	EQU destptr+4
temp	EQU destlen+2
padchar	EQU temp+4
Origdrct	EQU padchar+2

rtl1	EQU origdrct+2
rtl2	EQU rtl1+3

padP	EQU rtl2+3
repllen	EQU padP+4
replptr	EQU repllen+2
targlen	EQU replptr+4
targptr	EQU targlen+2
destlenP	EQU targptr+4
destptrP	EQU destlenP+4
result	EQU destptrP+4
;	  -> +2

	PHD	; SET UP STACK AS ZERO PAGE +PARMS
	TSC
	SEC
	SBC #ORIGDRCT-1
	TCS
	TCD

	LDA [DESTPTRP]	; GET THE ARGS.
	STA DESTPTR
	STA SEARCH
	LDY #2
	LDA [DESTPTRP],Y
	STA DESTPTR+2
	STA SEARCH+2

	LDA [DESTLENP]
	STA DESTLEN
	CMP REPLLEN	; IF REPLLEN >, SHORTEN IT
	BGE MLBZ
	STA REPLLEN
MLBZ	CMP TARGLEN	; TARGLEN ALSO      
	BGE MLB0
	STA TARGLEN

MLB0	LDA [PADP]
	STA PADCHAR

	LDA TARGPTR	; SAVE LOCAL TARGET	PTR.,CHECK FOR ZERO
	STA FIND
	TAX
	LDA TARGPTR+2
	STA FIND+2	; IF ZERO - SPECIAL	CASE - INSERT
	BNE MLB1
	CPX #0
	BNE MLB1

*===> bug fix: next	line deleted EIB 1-AUG-86
*        STA   DESTLEN	; SET TO 0 , DO REPLACE - (INSERT)

	BRA MUNGREP	; (ARGS ARE 'SEARCH' AND 'DESTLEN')
MLB1	LDA DESTLEN	; DESTLEN<=TARGLEN SPECIAL - CHECK @ CHAR 1
	SEC
	SBC TARGLEN
	BEQ MLB2
	BLT MLB2
	JMP MUNGGNRL
MLB2	LDA DESTLEN	; CALL COMPARE (DESTLEN,SEARCH,FIND)
	STA TARGLEN	; FORCE SAME LEN. FOR PTR. ADJ. LATER
	JSR MUNGCMPR
	BEQ MUNGREP	; MATCH, GO REPL. FULL DEST. STRING
MUNGOUT	LDA #0	; DONE, RETURN 0 PAD
	STA [PADP]
	STA RESULT
	DEC RESULT	; NEGATIVE RESULT
	JMP MUNGXIT

MUNGGNRL	TAX	; X HOLDS HOW FAR DOWN 'SEARCH' WE GO
MLB4	LDA TARGLEN	; CALL COMPARE (TARGLEN,SEARCH,FIND)
	JSR MUNGCMPR
	BEQ MUNGREP	; GOT IT, GO DO REPLACE
	INC SEARCH	; NO, MOVE ALONG SEARCH
	BNE MLB5
	INC SEARCH+2
MLB5	DEX
	BPL MLB4	; BACK IF WE CAN SEARC MORE
	BRA MUNGOUT	; NO MATCH, GO QUIT

*****
*
* HERE, MOVE destlen CHARS FROM replptr	TO search
* AFTER VERIFYING replptr & repllen & SPECIAL CASES
*
****

MUNGREP	LDA REPLPTR	; SIMPLE CASE - UPDATE destptr
	BNE MLB6	;               IF replptr 0
	LDA REPLPTR+2
	BNE MLB6

*===> bug fix: next	2 lines not needed any longer EIB 1-AUG-86
*        LDA   [DESTLENP]	; IN CASE WE CHANGED IT BEFORE
*        STA   DESTLEN

	LDA TARGLEN	; IF TARGLEN ALSO 0, MAKE DESTLEN 0
	BNE MUNGRP2
	STA DESTLEN
MUNGRP2	JSR MUNGPMOV	; UPDATE destptr & destlen

	LDA #0	; ALL DONE - RETURN	0
	STA RESULT
	STA [PADP]	; PAD ALSO 0 - NO CHANGE
	JMP MGD2OUT
MLB6	JSR MUNGPMOV	; HAVE REPLPTR - SO	ADJUST PTRS FIRST

***
*
* MOVE FROM DESTPTR	TO SEARCH+REPLLEN FOR LENGTH DESTLEN
*   AND ADJUST PAD BY TARGLEN-REPLLEN
*
***

	LDY #2
	LDA [DESTPTRP]	; COMPUTE TRUE END OF INPUT
	CLC
	ADC [DESTLENP]
	STA FIND	; (USE 'FIND' TO HOLD IT IN)
	LDA [DESTPTRP],Y
	ADC #0
	STA FIND+2


	LDA DESTLEN	; CHECK IF PAST END	AND ADJUST
	PHA	; SAVE FOR LATER

	LDA TARGLEN
	SEC
	SBC REPLLEN
	STA [PADP]	; THATS PAD AMOUNT,	WILL NEED LATER

	LDA SEARCH
	CLC
	ADC REPLLEN
	STA TEMP
	LDA SEARCH+2
	ADC #0
	STA TEMP+2	; TEMP:=SEARCH+REPLLEN
	CMP FIND+2	; CHECK IF TEMP>FIND (I.E. END OF INPUT)
	BGE CHKMOR
DSTGRTR	LDA [PADP]
	BPL MGD1	; POS. SO CAN DO FULL MOVE
	CLC
	ADC DESTLEN	; ADD NEG. (SUBT.) FOR CORRECT LEN
DSTGT2	STA DESTLEN
	STA 1,S
	BRA MGD1

CHKMOR	BNE DSTSMLR
	LDA FIND
	CMP TEMP
	BGE DSTGRTR
DSTSMLR	LDA FIND	; TOO BIG, ADJ. REPLLEN & REPLACE ONLY
	SEC
	SBC SEARCH
	STA REPLLEN
	PLA	; DON'T FORGET TO GET RID OF THIS
	JMP MGDOUT


************************************************************************
*			           *
*   MEMORY MANAGER BLOCKMOVE PROCEEDURE	WITH SRC = <DESTPTR> ,         *
*   DEST = <TEMP> ,	AND LENGTH ON THE STACK (DO THE PULL)	           *
*			           *
************************************************************************

MGD1	PLX
	PUSHLONG DESTPTR
	PUSHLONG TEMP
	PEA 0
	PHX
	_BLOCKMOVE


MGDS	LDA TARGLEN	; TARGLEN>REPLLEN -	MUST PAD
	SEC
	SBC REPLLEN	; TARGLEN BLANKS FROM DESTPTR+DESTLEN
	BEQ MGDOUT
	BLT MGDOUT
	PHA	; SAVE FOR COMPUTATION
	LDA DESTPTR
	CLC
	ADC DESTLEN
	STA TEMP
	TAX	; SRC - FOR RIPPLE MOVE
	LDA DESTPTR+2
	ADC #0
	STA TEMP+2
	TXA
	SEC	; TEMP:=TEMP-<DIFF.	IN COUNT>
	SBC 1,S
	STA TEMP
	LDA TEMP+2
	SBC #0
	STA TEMP+2
	LDA [TEMP]
	AND #$FF00	; STORE 1 BLANK BYTE
	ORA PADCHAR	; OR IN PAD CHARACTER
	STA [TEMP]
	LDA PADCHAR	; GET TWO BYE PAD
	XBA
	ORA PADCHAR
	TAX	; HOLD IN X AWHILE
	LDA 1,S	; WAS COUNT ODD OR EVEN
	AND #$01
	BEQ MGD2	; EVEN, GO DO IT
	PLA
	DEC A	; MAKE EVEN IF WASN'T
	BEQ MGDOUT	; BUT DONE IF WAS 1
	PHA
	INC TEMP	; BUMP ADDRESS 1 ALSO
	BNE MGD2
	INC TEMP+1
MGD2	PLY	; Y NOW HAS COUNT OF STORES
	TXA	; A NOW HAS PAD TO FILL WITH
MGD3	DEY	; DO THE TIGHT STORE LOOP
	DEY
	STA [TEMP],Y
	BNE MGD3


****
*
* NOW MOVE REPLLEN CHARS. FROM REPLPTR TO SEARCH
*
***

* ===> bug fix: PUSHLONGS must be AFTER	test below - EIB 2-AUG-86
MGDOUT	LDA REPLLEN	;LEN
	BEQ MGD2OUT
	PUSHLONG REPLPTR	;SRC
	PUSHLONG SEARCH	;DEST
	PEA 0
	LDA REPLLEN
	PHA
	_BLOCKMOVE

MGD2OUT	LDY #2
	LDA SEARCH
	CLC
	ADC REPLLEN
	STA [DESTPTRP]
	LDA SEARCH+2
	ADC #0
	STA [DESTPTRP],Y

	LDA DESTLEN
	STA [DESTLENP]

MUNGXIT	LDA ORIGDRCT
	TCD
	LDA RTL1,S	;FIX STACK UP CORRECTLY
	STA RESULT-6,S
	LDA RTL1+2,S
	STA RESULT-4,S
	LDA RTL1+4,S
	STA RESULT-2,S
	TSC
	CLC
	ADC #RESULT-7
	TCS
	lda #0	; fixed 5 March 87 SEG
	clc	; fixed 5 March 87 SEG
	RTL

*****************************************
*		*
* MUNGPMOV - UPDATE	DESTPTR & DESTLEN	*
*            BY TARGLEN AMOUNT	*
*		*
*****************************************

MUNGPMOV	LDA SEARCH	; TEMP:=SEARCH+TARGLEN (WHERE TO WIND UP)
	CLC
	ADC TARGLEN
	STA TEMP
	LDA SEARCH+2
	ADC #0
	STA TEMP+2
	LDA TEMP	; FIND := TEMP-DESTPTR (DIST. MOVED)
	SEC
	SBC DESTPTR
	STA FIND
	LDA DESTLEN	; DESTLEN:=DESTLEN-FIND (LEFT TO SCAN)
	SEC
	SBC FIND
	STA DESTLEN
	LDA TEMP	; DESTPTR:=TEMP (WHERE TO GO NEXT)
	STA DESTPTR
	LDA TEMP+2
	STA DESTPTR+2
	RTS

*****************************************
*		*
*  MUNGCMPR - COMPARE REG. A BYTES	*
*	  @ SEARCH	*
*	  & FIND	*
*		*
*****************************************

MUNGCMPR	LDY #0	; (USUALLY)
	PHX	;MUST PRESERVE X REG.
	CMP #0	; 0 LENGTH ALWAYS =
	BNE MGC1
	LDA #0	; SET FOR RETURN = CONDITION
	BRA MGCOND
MGC1	PHA
	AND #01	; ODD OR EVEN COMPARE LENGTH
	BEQ MGCLP	; IF EVEN, JUST DO COMPARES
	LDA [SEARCH]
	AND #$FF	; ODD, DO FIRST BYTE - THEN EVEN AMT.
	PHA
	LDA [FIND]
	AND #$FF
	CMP 1,S
	BEQ MGONE
	PLA
	PLA	; GET RID OF PUSH
MGCNO	LDA #1
MGCOND	PLX	; RESTORE X
	CMP #0	; SET COND. CODE
MGCOUT	RTS

MGONE	PLA	; EXTRA
	PLA	; GET LENGTH
	DEC A	; LESS 1 TO MAKE EVEN
	BEQ MGCEQU	; patch on 5 March 87 by EIB
	PHA	; BACK ON
	LDY #1	; MOVE FORWARD 1
MGCLP	PLX	; GUARENTEED EVEN
MGCLP1	LDA [SEARCH],Y
	CMP [FIND],Y
	BNE MGCNO
	INY
	INY
	DEX
	DEX
	BNE MGCLP1
MGCEQU	LDA #0	; SET EQUAL RETURN
	BRA MGCOND	; GO QUIT
	ENDP




	title 'IRQ Stuff'
****************************************************************
*
* This tool returns	the state of hardware interrupt enables
* under the control	of the miscellaneous tool set.
*
*        D8-15 Undefined
*        D7    1 = Keyboard interrupts enabled
*        D6    1 = Vertical blanking interrupts enabled
*        D5    1 = Quarter second interrupts enabled
*        D4    1 = One second interrupts enabled
*        D3    RESERVED
*        D2    1 = Front desk bus data interrupts enabled
*        D1    1 = Scan line interrupts	enabled
*        D0    1 = External VGC interrupts enabled
*
****************************************************************
GetIRQenbl	PROC
	longa on
	longi on

OrigDir	equ 1
rtl1	equ OrigDir+2
rtl2	equ rtl1+3
irqstate	equ rtl2+3

	phd	; turn stack into zp
	tsc
	tcd
	stz irqstate	; assume no sources	enbl
	sep #$20	; 8 bit 'm'
	longa off
	lda >KBDIRQFLAG	; if KBD interrupts, set flag
	tsb irqstate
nokbden		; 
	lda >inten	; get mega irq reg
	pha
	and #%00001000	; vbl on?
	beq novblen	; set flag bit if on
	lda #%01000000
	tsb irqstate
novblen		; 
	pla	; get mega irq reg
	and #%00010000	; 1/4 sec on?
	asl a	; set flag bit if enabled
	tsb irqstate
	lda >vgcint	; get VGC irq reg
	pha
	and #%00000100	; 1 sec on?
	asl a
	asl a	; set flag bit if enabled
	tsb irqstate
	lda >kmstatus	; get KBDu status
	and #%00010000	; fdb data irq on?
	lsr a	; set flag bit if enabled
	lsr a
	tsb irqstate
	pla	; get VGC irq reg
	and #%00000011	; scan lines or ext	on?
	tsb irqstate	; set flag bit if on
	rep #$30	; 16 bit 'm' & 'x'
	longa on
	longi on
	jmp EndCall0

	ENDP



	title 'SysBeep'
SysBeep	PROC
****************************************************************
*
* There are no input parameters to this	tool call.
* No output parameters will be returned	on this tool call.
* This call will dispatch to the Apple// entry point 'BELL1'.
* The bell routine may be patched out by using the setvector
* call with a parameter reference number of $001B.  Any routine
* installed into the bellvector will be	called in native mode
* with 8 bit 'm' and 'x'.
*
****************************************************************
	ldx #8	; 8 words to push
	lda #$FBDD	; BELL1 entry in rom
here		; 
	pha
	dex
	bne here
	_FWEntry
	pla	; clean off stack
	pla
	pla
	pla
	jmp oEndcall0	; return to application

	ENDP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/MISC.TOOLS/mt.equates.asm b/IIGS.601.SRC/GSToolbox/MISC.TOOLS/mt.equates.asm
new file mode 100644
index 0000000..e762ada
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/MISC.TOOLS/mt.equates.asm
@@ -0,0 +1 @@
+;-----------------------------------------------------------
;
; from e16.misctool
;
vblDisable   EQU   $0003 ; Interrupt Ref Number - Parameter to IntSource


;-----------------------------------------------------------
;
; Definition of Record used by Queue Routines
;
	DSect 0
HeaderLink	LONG
HeaderReserved	WORD
HeaderSignature	WORD
HeaderRoutine	LONG

QueueSignature	equ $A55A

;-----------------------------------------------------------
;
; Misc tools Errors
;
BadInputErr	equ $0301	; bad input
noDevParamErr	equ $0302	; no device for input paramter
taskInstlErr	equ $0303	; specified task already in queue
noSigTaskErr	equ $0304	; no signature detected in task header
queueDmgdErr	equ $0305	; damaged heartbeat queue detected (fatal)
taskNtFdErr	equ $0306	; specified task not in queue
firmTaskErr	equ $0307	; Unsuccessful fw task
hbQueueBadErr	equ $0308	; damaged heartbeat queue detected (fatal)
unCnctdDevErr	equ $0309	; dispatch to unconnect device
idTagNtAvlErr	equ $030B	; no id tag available

RecordNotFound	equ $0380
BadSignature	equ $0381
AlreadyInQueue	equ $0382
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/MISC.TOOLS/mt.loader.asm b/IIGS.601.SRC/GSToolbox/MISC.TOOLS/mt.loader.asm
new file mode 100644
index 0000000..89d2a5b
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/MISC.TOOLS/mt.loader.asm
@@ -0,0 +1 @@
+	include 'all.macros'
	include 'e16.locator'


MMLoader	PROC

True	equ $FFFF
False	equ 0

MyHandle	equ 0
MyPointer	equ 4
Ptr	equ 8


TheUserID	equ $B003

	phk
	plb




;-----------------------------------------------------------
;
; Unload last patch
;

	pha	; space for result
	PushWord #TheUserID
	PushWord #0
	_UserShutdown

	pla


;-----------------------------------------------------------
;
; Load this one.
;



	pha	; space for dir page stack size
	pha	; space for addr of	dir page stack seg
	pha	; space for starting addr
	pha
	pha	; space for user id
	PushWord #TheUserID	; user id
	PushLong #TheName	; ptr to path name
	PushWord #True
	_InitialLoad
	bcs Die

	pla	; ignore userid
	pla	; put starting address
	sta TableAddress
	pla
	sta TableAddress+2
	pla	; ignore dir page
	pla	; ignore dir page size


	lda >$C062
	and #$0080
	beq @NoBreak
	brk 17
@NoBreak



	PushWord #0	; system call
	PushWord #3	; install the patch
	PushLong TableAddress
	_SetTSPtr
	
	_SetDefaultTPT

	_Quit QuitParams


QuitParams	DC.L 0
	DC.W 0


TheName	str '1/MT.IN.RAM'

TableAddress	DS.B 4





Die		; 
	pha
	PushLong #ErrorString
	_SysFailMgr

ErrorString	str 'Could not load.  Error was $'

	ENDP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/MM/makefile b/IIGS.601.SRC/GSToolbox/MM/makefile
new file mode 100644
index 0000000..3a7e441
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/MM/makefile
@@ -0,0 +1 @@
+### Dependencies for building peeker stand alone ###

peeker		Ä	peeker.asm.obj		mm.equates.asm
	Linkiigs 	peeker.asm.obj	¶
	-o peeker
		

peeker.asm.obj		Ä		peeker.asm		mm.equates.asm
	Asmiigs	-d debugversion=1 peeker.asm
	
mm.in.ram		Ä	mm.in.ram.asm.obj		mm.equates.asm
	Linkiigs 	mm.in.ram.asm.obj	¶
	-o mm.in.ram  -t $BC


mm.in.ram.asm.obj		Ä		mm.asm		mm.equates.asm
	Asmiigs	 -d RAMversion=1  mm.asm -o mm.in.ram.asm.obj

mm.loader		Ä   makefile mm.loader.asm.obj
	linkiigs mm.loader.asm.obj		¶
	-o mm.loader -t "B3 "
	
mm.loader.asm.obj 	Ä	makefile mm.loader.asm
	asmiigs mm.loader.asm
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/MM/mm.asm b/IIGS.601.SRC/GSToolbox/MM/mm.asm
new file mode 100644
index 0000000..7c0d16e
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/MM/mm.asm
@@ -0,0 +1 @@
+	title ' Memory Manager'
********************************************************************************
*
* Memory manager  Tool Set #2
*
* (C) Copyright 1985-1989,1991
* Apple Computer, Inc.
* All Rights Reserved
*
* Original Code 
* by Rich Williams January 1986
*
*       'Memory [management] is the treasury and guardian of all things'
*        Cicero, De	Oratore. Bk. i, sec. 5
*
*
* RamDisk         Tool Set #13
*       The ramdisk	tool has been integrated into the memory manager
*       but it is a	separate tool with a separate dispatch table
*
*
* Revision 2.00
*
* September 1986 by	Rich Williams
*
* The patches from 1.1 have been included into the rom including:
*
* 1) The restart routine now doesn't throw out valid handles
*
* 2) New handles are created with ID number $F0FF
*
* 3) The purge routines are now in the rom
*
* Changes not part of 1.1
*
* 1) BlockMove ignores high byte of 4 byte address
*
* 2) Ramdisk now returns bytes transferred count on DIB call
*
* 3) Purge and Compact optimized for banks 0 and 1. Purge in 1.1 was updated
*
* 4) SetHandleSize makes handle temporarily unpurgable
*
* 5) With a last minute phone patch by Steve, Fern and Mike	dictated
*    by Rich at 5:52 pm on 2 Mar 87.
*
*
* Revision 3.00
*
* Converted to MAX.
*
* Incorporated patch?
*
*
* 25 Aug 88	Steven Glass
*
* Made the peeker a separate entity again.  Also separated out the 
* equates.
*
* 30 Aug 88	Steven Glass
*
* Added global variables LastLowHandle and LastHighHandle.  These are
* set by SearchUp and SearchDown every time a handle is found.  Search
* now calls SearchUpFast and SearchDownFast which start their searches
* using the values in LastLowhandle and LastHighHandle.
*
* DisposeHandle, DisposeAll and DoPurge all call CheckRecent to make sure
* that the values in SearchUpFast and SearchDownFast are all valid.
*
* Added debugging code to DisposeHandle and NewHandle, so that the handles
* being acted on are written to a specific location.
*
* Added conditional compile code that ignores most of BootInit when making
* a version to run in RAM.  The RAM version patches the vectors and
* always zeros the power byte.  It assumes all other memory manager data
* structures are intact and valid.
*
* 04 Oct 88	Steven Glass
*
* The Original design of the OOM Queue let it run only after the memory 
* manager failed to make room.
*
* By calling the Queue before the MM compacts, and purges, we can allow 
* for an application to write its own (and more sophisticated) purge routines.
*
* 06 Oct 88	Steven Glass
*
* SetHandleSize can move a handle from the used list to the purgelist if the 
* new size is zero.  When this happens, we have to check the recently allocated
* handle so we won't start our search from the purge list.
*
* 15 Oct 88	Steven Glass
*
* Rewrote SearchFail code to be more understandable.  The number of 
* retries is now different than when rich first wrote it.  This made it 
* necessary to rewrite a little of the purge code to keep things working.
*
* 23 Oct 88	Steven Glass
*
* Changed the searchup, searchdown and fastsearchup and fastsearchdown routines
* so that they would not remember the handle found if the handle was fixed bank
* or fixed loc.
*
* Added second entry point to MakeIDMask so that it would not check for non-zero
* major ID.
*
* Changed purgeall to use new entry to MakeIDMask.  Makes it possible to
* purge all purgables at once.
*
* Changed SearchFail to use new PurgeAll.
*
* 30 Oct 88	Steven Glass
*
* Added ClearRecent, a routine to zero the last found handles.  ClearRecent
* is called at MMReset, MMBootinit and WarmStart.
*
* 31 Oct 88	Steven Glass
*
* Made PurgeAll return bizzare errors again.
*
* 23 Nov 88	John Arkley
*
* Fixed bug in RD ExecPCCmd routine to return properly when an out-of-range cmd
* call is made from SmartPort due to the 'additional' SmartPort commands.
*
* Made RAM Disk use one and only one handle.
*
* 30 Nov 88	Steven Glass
*
* Fixed a bug in CheckRecent where bad values were used if the handle being
* passed was not valid.
*
* Made a number of routines "public" for use with the patch file.
*
* Changed DisposeAll to check the calling routine to make sure that 
* the caller is not disposing of himself.  This mistake seems to be 
* common in appications and somehow they were lucky until recently.
*
* 21 Dec 88	Steven Glass
*
* Incorporated SetHandleSize patch so that handle is re-derefed after resized
* in case it moves.
*
* 08 Jan 89	Steven Glass
*
* Also zeroed the FirstOOMPtr in BootInit and Reset so that OOM queue is cleared.
*
* 19 Jan 89	John Arkley
*
* Fix RAMDISK routine MAKEDISK to clear stack before error exit so it RTSs back
* back to the initcommand routine with an error.
*
* 16 Feb 89	Harry Yee
*
* Calls DeleteFromOOMQueue and AddToOOMQueue were not passing error codes to
* the exit routines. BRC #41432, 41841.
*
* 3/31/89	Mensch
*
* Fixed OOMQueue so that it would properly compare the amount of memory freed to
* the amount needed.
*
* 4/21/89	Mensch
*
* Made disposeall not return an error when an app tries to dispose of itself.
* (The dispose does not occur however...)
*
* 11/13/89	Mensch
*
* Fixed the verify routine so that its test for a valid handle is a little more
* robust than it was before. This is for the DisposeHandle bug (DisposeHandle($fbfbfb)
* would screw up the hint something horrible...) BRC#53386
*
* 21-Jan-91	Dave Lyons
*
* Added new call $3002 SetHandleID(newID,handle):oldID.
* If you pass 0 for the new ID, it just returns the old one.
*
* 12-Jun-91	Dave Lyons
*
* Added check in DisposeHandle to disallow disposing the first handle.
* This would be very bad.  Now returns error $0206.
*
* 14-Sep-91	Dave Lyons
*
* Removed one instruction in CheckRecent to allow for the case that
* LastLowHandle and LastHighHandle are equal, and are the handle that
* we're disposing/etc.  In this case we need to bump *both* hints,
* but it was only bumping the low one.
*
* In case anybody does another ROM, added ClearRecent to DisposeAll
* and PurgeAll (this was done long ago for the ROM 1 patch).
*
* 19-Dec-91	Dave Lyons
*
* Fixed XSearchFail to correctly return CLC when we run out of retry
* methods.
*
* It was accidentally returning SEC ("okay to try again"), and this
* was causing a long hang and then a crash--we would try retry methods
* number 8 through $FFFF, and then crash when we wrapped back to zero.
* (This happened only if an OOMQ routine claimed to have freed up enough
* memory on the *second* pass.)
*
********************************************************************************


	string asis
	eject

	include 'm16.util2'
	include 'm16.misctool'
	include 'm16.memory'

	include 'mm.macros'

	include 'mm.equates.asm'
	title ' Forward Address and Entries'
;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

	ENTRY BlockMove
	ENTRY CheckHandle
	ENTRY CompactMem
	ENTRY DIB
	ENTRY DisposAll
	ENTRY DisposHandle
	ENTRY DoPurge
	ENTRY ExecPCCmd
	ENTRY FindHandle
	ENTRY FreeMem
	ENTRY GetAttr
	ENTRY GetBlockA
	ENTRY GetDiskSize
	ENTRY GetHandleSize
	ENTRY GetNext
	ENTRY GetPrev
	ENTRY GetNextFree
	ENTRY GetPrevFree
	ENTRY HLock
	ENTRY HLockAll
	ENTRY HUnlock
	ENTRY HUnlockAll
	ENTRY HandToHand
	ENTRY HandToPtr
	ENTRY InsertFrBlock
	ENTRY InsertFree
	ENTRY InsertHandle
	ENTRY InsertPurge
	ENTRY Link2
	ENTRY MMBootInit
	ENTRY MMReset
	ENTRY MMShutdown
	ENTRY MMStartup
	ENTRY MMStatus
	ENTRY MMVersion
	ENTRY MakeIDMask
	ENTRY MakeIDMask2
	ENTRY MaxBlock
	ENTRY MoveAttr
	ENTRY NewHandle
	ENTRY PCControl
	ENTRY PCData
	ENTRY PCInit
	ENTRY PCReadBlk
	ENTRY PCStatus
	ENTRY PCWriteBlk
	ENTRY PtrToHand
	ENTRY PurgeAll
	ENTRY PurgeHandle
	ENTRY RDLink
	ENTRY ReallocHandle
	ENTRY RemoveHandle
	ENTRY RestoreHandle
	ENTRY ScanHandles
	ENTRY SearchHandle
	ENTRY SearchDown
	ENTRY SearchDownFast
	ENTRY SearchID
	ENTRY SearchUp
	ENTRY SetHandleSize
	ENTRY SetPurge
	ENTRY SetPurgeAll
	ENTRY Start0
	ENTRY StartX
	ENTRY StartXTop
	ENTRY TestMem
	ENTRY TotalMem
	ENTRY TrimFree
	ENTRY Validate
	ENTRY VerifyH2
	ENTRY VerifyHandle
	ENTRY XCheckFit
	ENTRY XCleanUp
	ENTRY XCompact
	ENTRY XCreateHandles
	ENTRY XGetFree
	ENTRY XLink
	ENTRY XMMPatcher
	ENTRY XMoveData
	ENTRY XPurge
	ENTRY XRealloc
	ENTRY XRestart
	ENTRY XSearch
	ENTRY XSearchFail
	ENTRY XUserPurge
	ENTRY XWarmStart

	ENTRY CheckRecent
	ENTRY ClearRecent
	ENTRY AddToOOMQueue
	ENTRY DeleteFromOOMQueue
	ENTRY RealFreeMem
	entry SetHandleID


	Title 'Call Table'
********************************************************************************
*
* Memory manager call table
*  This is the dispatch table for the MM calls
*
*  Beware!!! if it moves from $FF0000, make sure tool locator is updated
*
********************************************************************************

	EXPORT MMCallTable
MMCallTable	PROC
	longa on
	longi on

	DC.L (TableEnd-mmCallTable)/4 ; # entries + 1

	DC.L MMBootInit-1	;01 Boot time call
	DC.L MMStartup-1	;02 Application init call
	DC.L MMShutdown-1	;03 App quit
	DC.L MMVersion-1	;04 Version #
	DC.L MMReset-1	;05 Reset call
	DC.L MMStatus-1	;06 Active status
	DC.L NotImp-1
	DC.L NotImp-1

	DC.L NewHandle-1	;09 NewHandle
	DC.L ReallocHandle-1 ;0A ReallocHandle
	DC.L RestoreHandle-1 ;0B RestoreHandle
	DC.L AddToOOMQueue-1 ;0C
	DC.L DeleteFromOOMQueue-1 ;0D
	DC.L NotImp-1
	DC.L NotImp-1

	DC.L DisposHandle-1	;10 DisposHandle
	DC.L DisposAll-1	;11 DisposAll
	DC.L PurgeHandle-1	;12 PurgeHandle
	DC.L PurgeAll-1	;13 PurgeAll
	DC.L NotImp-1
	DC.L NotImp-1
	DC.L NotImp-1
	DC.L NotImp-1

	DC.L GetHandleSize-1 ;18 GetHandleSize
	DC.L SetHandleSize-1 ;19 SetHandleSize
	DC.L FindHandle-1	;1A FindHandle
	DC.L FreeMem-1	;1B FreeMem
	DC.L MaxBlock-1	;1C MaxBlock
	DC.L TotalMem-1	;1D TotalMem
	DC.L CheckHandle-1	;1E CheckHandle
	DC.L CompactMem-1	;1F CompactMem

	DC.L HLock-1	;20 HLock
	DC.L HLockAll-1	;21 HLockAll
	DC.L HUnlock-1	;22 HUnlock
	DC.L HUnlockAll-1	;23 HUnlockAll
	DC.L SetPurge-1	;24 SetPurge
	DC.L SetPurgeAll-1	;25 SetPurgeAll
	DC.L NotImp-1	;26 DeRef
	DC.L NotImp-1

	DC.L PtrToHand-1	;28 PtrToHand
	DC.L HandToPtr-1	;29 HandToPtr
	DC.L HandToHand-1	;2A HandToHand
	DC.L BlockMove-1	;2B BlockMove
	DC.L NotImp-1	;2C
	DC.L NotImp-1	;2D
	DC.L NotImp-1	;2E
	DC.L RealFreeMem-1	;2F RealFreeMem
	dc.l SetHandleID-1	;30 SetHandleID 21-Jan-91 DAL
TableEnd
	eject
********************************************************************************
*
* Ram Disk call table
*
* Beware!!! if this	moves from $FF00C0 make sure tool locator is updated
*
********************************************************************************
	EXPORT RDCallTable
RDCallTable		;       

	DC.L (RDTblEnd-RDCallTable)/4 ; # entries + 1

	DC.L RDNotImp-1	;01 Boot time call
	DC.L RDNotImp-1	;02 Application init call
	DC.L RDNotImp-1	;03 App quit
	DC.L MMVersion-1	;04 Version #
	DC.L RDNotImp-1	;05 Reset call
	DC.L MMStatus-1	;06 Active status
	DC.L RDNotImp-1
	DC.L RDNotImp-1

	DC.L RDNotImp-1	;09 Kill
	DC.L ExecPCCmd-1	;0A Exec P.C. call
	DC.L RDNotImp-1	;0B SetDiskSize
	DC.L GetDiskSize-1	;0C GetDiskSize
	DC.L RDNotImp-1
	DC.L RDNotImp-1
	DC.L RDNotImp-1


RDTblEnd		; 

RDNotImp	jsl RDLink
	jmp XCleanUp


NotImp	jsl Link	;Link & Unlink to fix stack
	jml CleanUp

	ENDP




********************************************************************************
*
* ParmCnt
*
* This table has the number of bytes of	parameters for each	call
*
********************************************************************************
ParmCnt	PROC

	DC.B 00	;01 Boot time call
	DC.B 00	;02 Application init call
	DC.B 02	;03 App quit
	DC.B 00	;04 Version #
	DC.B 00	;05 Reset
	DC.B 00	;06 Status
	DC.B 00
	DC.B 00

	DC.B 12	;09 New Handle
	DC.B 16	;0A ReallocHandle
	DC.B 04	;0B RestoreHandle
	DC.B 04	;0C AddToOOMQueue
	DC.B 04	;0D DeleteFromOOMQueue
	DC.B 00
	DC.B 00

	DC.B 04	;10 DisposHandle
	DC.B 02	;11 DisposAll
	DC.B 04	;12 PurgeHandle
	DC.B 02	;13 PurgeAll
	DC.B 00
	DC.B 00
	DC.B 00
	DC.B 00

	DC.B 04	;18 GetHandleSize
	DC.B 08	;19 SetHandleSize
	DC.B 04	;1A FindHandle
	DC.B 00	;1B FreeMem
	DC.B 00	;1C MaxBlock
	DC.B 00	;1D TotalMem
	DC.B 04	;1E CheckHandle
	DC.B 00	;1F CompactMem

	DC.B 04	;20 HLock
	DC.B 02	;21 HLockAll
	DC.B 04	;22 HUnlock
	DC.B 02	;23 HUnlockAll
	DC.B 06	;24 SetPurge
	DC.B 04	;25 SetPurgeAll
	DC.B 04	;26 DeRef
	DC.B 00

	DC.B 12	;28 PtrToHnd
	DC.B 12	;29 HandToPtr
	DC.B 12	;2A HandToHand
	DC.B 12	;2B BlockMove
	DC.B 00
	DC.B 00
	DC.B 00
	DC.B 00

	ENDP
********************************************************************************
*
* RDParmCnt - Parameter counts for ramdisk calls
*
********************************************************************************
RDParmCnt	PROC

	DC.B 00	;01 Boot time call
	DC.B 00	;02 Application init call
	DC.B 00	;03 App quit
	DC.B 00	;04 Version #
	DC.B 00	;05 Reset
	DC.B 00	;06 Status
	DC.B 00
	DC.B 00

	DC.B 00	;09 Kill
	DC.B 00	;0A ExecPCCall
	DC.B 00	;0B SetDiskSize
	DC.B 00	;0C GetDiskSize
	DC.B 00
	DC.B 00
	DC.B 00

	ENDP



********************************************************************************
*
* Vectors - This is	the defaults for the patch vectors in $E1
*
* THE ORDER MUST BE	THE SAME AS THE EQUATES
*
********************************************************************************
Vectors	PROC

	jml XMMPatcher
	jml XWarmStart
	jml XLink
	jml XCleanUp
	jml XSearch
	jml XCheckFit
	jml XRealloc
	jml XGetFree
	jml XCreateHandles
	jml XMoveData
	jml XSearchFail
	jml XCompact
	jml XPurge

	ENTRY UpDefault
UPDefault		;       
	jml XUserPurge
	jml XRestart


	ENDP



	eject
********************************************************************************
*
* RDLink - This routine is called by every RAM disk entry point
*        It saves the number of parameters
*        the D & B registers
*        moves the stack down by ZPSize	bytes
*        move the Direct register to the stack
*
********************************************************************************
RDLink	PROC
	longa on
	longi on

	txa
	xba
	sep #$30	;Into 8 bit mode
	longa off
	longi off

	and #$FF
	tax	;X = Index for parm	count

	lda #$E1	;Bank reg for later
	pha
	lda >RDParmCnt-1,x	;Get # parameters
	bra Link2

	ENDP




********************************************************************************
*
* Link - This routine is called by every entry point
*        It saves the number of parameters
*        the D & B registers
*        moves the stack down by ZPSize	bytes
*        move the Direct register to the stack
*
* Called VIA $E1 vector
*
* Link2 entry point	from ram disk
*
********************************************************************************
XLink	PROC
	longa on
	longi on

	txa
	xba
	sep #$30	;Into 8 bit mode
	longa off
	longi off

	and #$FF
	tax	;X = Index for parm	count

	lda #$E1	;Bank reg for later
	pha
	lda >ParmCnt-1,x	;Get number of parameters

	ENTRY Link2
Link2		;       

	rep #$30
	longa on
	longi on

	plx	;Save return address
	ply	;and bank
	and #$00FF	;Lower byte valid
	pha
	tsc	;Pull stack down
	sec
	sbc #ZPSize
	tcs
	phb
	phd
	tcd
	stz retry
	stz error	;Clear the error
	phy	;Push RTL addr and bank
	phx
	jsl IncBusyFlg	;Mark us busy
	plb	;B = $E1
	rtl

	ENDP

********************************************************************************
*
* CleanUp - Jumped to to exit from a tool
*           It restores stack, D & B
*           Pulls the parameters off off the stack
*           Loads error code into A
*           Sets C=1 if A <> 0
*
* Calls goes through vector in $E1
*
********************************************************************************
XCleanup	PROC
	longa on
	longi on

	jsl DecBusyFlg	;Open for business!
	ldx numparms	;Get # params into X
	lda return+4	;Move return address
	sta return+4,x
	lda return+2
	sta return+2,x
	lda return
	sta return,x
	tsc	;Now fix the stack
	clc
	adc numparms	;Stack = stack + ZP	+ parms
	adc #ZPSize+5
	tax	;Save it for now
	pld
	plb
	pla	;Get error code
	cmp #1	;C = 1 if <> 0
	txs	;Really fix the stack
	bcs ErrorExit
	rtl	;Go back to user

ErrorExit	rtl	;Something to trigger off of


	ENDP



********************************************************************************
*
* QuickExit - Quick	exit for routines not using local ZP and having no errors
*
********************************************************************************
QuickExit	PROC
	longa on
	longi on

	lda #0
	clc
	rtl

	ENDP
	
	Title ' Initialization stuff'
********************************************************************************
*
* Initialization routines
*
********************************************************************************



********************************************************************************
*
* BootInit
*  This is the power up call to the memory mananger
*  If PowerFlag is 0, it will:
*    Determine how much memory is in the computer
*    Initialize all	MM constants and pointers
*    Create 1K worth of pointers
*    Busy out all of the areas not used	by the MM
*
*  Caution: This call wipes the machine	and frees everything
*
*
* Change History
*
* 30 Aug 88	Steven Glass
*
* Added conditional compile code below to make it possible to run the memory
* manager in RAM.
*
* 08 Jan 89	Steven Glass
*
* Also zeroed the FirstOOMPtr so that reboot clears the OOM
* queue.
*
********************************************************************************

MMBootInit	PROC
	longa on
	longi on

     IF RamVersion THEN

	jsl XLink

     ELSE

; See if a true power up
	lda PowerFlag
	bpl NoRestart

	jsl Link

	jsr ClearRecent
;
; Clear the OOM queue.
;
	stz |FirstOOMPtr
	stz |FirstOOMPtr+2


	jsl Restart	;See if warm start
	bcs PowerUp	;If failed then cold start
	jml Cleanup

NoRestart	jsl XLink	;Vectors not set up	yet

; First clear out all of our pointers

PowerUp	lda #nil
	ldx #MMRamEnd-MMRam-1 ;# bytes to nil out
biClear	sta |MMram,x
	dex
	dex
	bpl biClear

; Now make HandleBuf a bunch of handles
	lda #50*HSize+(HandleBuf**$FFFF) ;Make 51 handles
	tax
; Mark This handle as next of lower handle
biLinkH	sta >$E10000-HSize+Hndl_Next,x
	lda #^HandleBuf
	sta >$E10000-Hsize+Hndl_Next+2,x
	txa
	sec
	sbc #HSize	;Go down one handle

; Mark this handle as previous of higher handle
	tax
	sta |HSize+Hndl_Prev,x
	lda #^HandleBuf
	sta |HSize+Hndl_Prev+2,x
	txa
	cmp #HandleBuf**$FFFF	;Last one?
	bne biLinkH	;Go link next one

; The first 6 handles go in MemList and	the rest are free

	lda #nil	;Split the list between 6 & 7
	sta |5*HSize+HandleBuf+Hndl_Next
	sta |5*Hsize+HandleBuf+Hndl_Next+2
	sta |6*HSize+HandleBuf+Hndl_Prev
	sta |6*Hsize+HandleBuf+Hndl_Prev+2

; Initialize FreeList, MemList, PurgeList and init Mem01 - MemFF
	ldx #30
SetPtr	lda >PtrInit,x
	sta |MemList,x
	dex
	dex
	bpl SetPtr

; Now add the addresses and size info to the memlist segments
	ldx #0
	txy
BusyLoop	lda >HInit,x
	sta |HandleBuf+Hndl_Addr,y ;-$E1 to make orca work
	lda >HInit+2,x
	sta |HandleBuf+Hndl_Addr+2,y
	lda >HInit+4,x	;Now the size
	sta |HandleBuf+Hndl_Size,y
	lda >HInit+6,x
	sta |HandleBuf+Hndl_Size+2,y
	lda #Attr_Locked+Attr_Fixed
	sta |Handlebuf+Hndl_Attr,y ;Lock it down
	txa
	clc
	adc #8
	tax
	tya
	adc #HSize
	tay
	cmp #HSize*6
	blt BusyLoop

; Now fix the 4th segment for the actual amount of ram in the machine
	jsr TestMem	;Get memory size
	sta |HandleBuf+HSize*3+Hndl_Addr+2
	txa
	sta |HandleBuf+HSize*3+Hndl_Size+2



    ENDIF



; Initialize the vectors in $E1
	ldx #Vlen
VectLoop	lda >Vectors,x
	sta |MMPatcher,x
	dex
	dex
	bpl VectLoop


      IF RAMVersion THEN

; Mark that we are up and running!
	lda #FALSE
	sta |PowerFlag

      ELSE


; Mark that we are up and running!
	lda #True
	sta |PowerFlag


      ENDIF



	jml CleanUp	;Go home

; HInit - Table of initial handle data
	ENTRY HInit
HInit		; 
	DC.L $00000000
	DC.L $800
	DC.L $0000C000
	DC.L $00010800-$0000C000
	DC.L $0001C000
	DC.L $00020000-$0001C000
	DC.L $00020000
	DC.L $00E02000-$00020000
	DC.L $00E0C000
	DC.L $00E12000-$00E0C000
	DC.L $00E1C000
	DC.L $FFFFFFFF-$00E1C000+1

; PtrInit - Table of initial values for	list pointers
	ENTRY PtrInit
PtrInit		; 
	DC.L HandleBuf	;MemList
	DC.L nil	;PurgeList
	DC.L HandleBuf+HSize*6 ;FreeList
	DC.L HandleBuf+HSize ;Mem01
	DC.L HandleBuf+HSize*2 ;Mem02
	DC.L HandleBuf+HSize*3 ;MemE0
	DC.L HandleBuf+HSize*4 ;MemE1
	DC.L HandleBuf+HSize*5 ;MemFF


	ENDP

********************************************************************************
*
* TESTMEM - Tests the memory size
*  This routine writes the complement of the bank number in	banks 2 - DF
*  and then scans down until it can read one back
*
* Outputs A: Start of unreadable banks X: Number of empty banks
*
********************************************************************************
TestMem	PROC
	longa on
	longi on

	lda #$0000	;Starts at $7F0000
	sta addr
	lda #$007F
	sta addr+2
	eor #$FFFF
WriteLoop	sta [addr]	;Write complement in bank
	dec addr+2
	inc A	;Go to next bank
	cmp #$FFFE
	bne WriteLoop
	lda #$007F	;Now read em back
	sta addr+2
	eor #$FFFF
	ldx #$0060	;Count # unused banks
TestLoop	cmp [addr]
	beq GoodBank	;Found a good bank?
	inx
	dec addr+2
	inc A
	cmp #$FFFE
	bne TestLoop	;Restore contents
GoodBank	lda addr+2	;Get highest readable bank
	inc A	;Lowest unreadable bank
	sta |NumBanks	;Save it away
	rts

	ENDP



********************************************************************************
*
* Restart - This tests for a warm start	of the MM
*              If the power up byte if 0, then it fails
*              If the memory lists are inconsistent, then it fails
*              If a	warm start is done then all blocks not owned by the MM
*               are	disposed
*
*           Outputs: C = 1 if warm start failed and cold start must be done
*
* Rev 2 changes: Fixed so it doesn't dispose valid handles
*
********************************************************************************
XRestart	PROC
	longa on
	longi on

	jsr Validate	;Check the memory lists
	bne NoRestart

* Get rid of all non MM blocks
	jsr ScanHandles	;Mark handles that we must keep
	ldx #PurgeList-MemList
	jsr TrimFree	;Trim the purge list
	ldx #FreeList-MemList
	jsr TrimFree

	jsr Start0	;Go through all used segs
TrimLoop	jsr GetNext	;Hndl1 = next block
	beq TrimDone
	ldy #Hndl_Owner	;Get the owner
	lda [Hndl1],y
	bit #$FF00	;Is high byte MM
	bne TrimIt	;Throw it out if not
	cmp #SaveID	;Save it as free?
	bne TrimLoop
	dey
	dey
	lda [Hndl1],y	;don't dispose block of handles
	bit #Attr_Handle
	bne TrimLoop

* The block needs to be discarded. Check if MM owns the handle!
TrimIt	move_l hndl1,hndl
	push_l hndl2	;Save the next handle to check
	jsr RemoveHandle	;Remove it from where it is
	ldy #hndl_owner
	lda [hndl],y
	and #$FF00	;MM's?  Rev2 change.
	beq KeepIt
	lda hndl+2	;Is it the MMs
	cmp #$00E1
	bne NotMine
	lda hndl
	cmp #$1B00
	bge NotMine
KeepIt	jsr InsertFree	;Put it in free handle list
NotMine	pop_l hndl2	;Get the next one to check
	bra TrimLoop

TrimDone	clc
	rtl

NoRestart	sec
	rtl

	ENDP



********************************************************************************
*
* Validate-    This	routine checks the memory lists for consistency
*              For each element in the list hndl.next.prev must equal hndl
*
*              outputs: Z = 1 if lists OK
*
********************************************************************************
Validate	PROC
	longa on
	longi on

	ldx #0	;Check memlist
	jsr CheckList
	bne Done	;Br if bad

* MemList's last block should be at $E1C000. If it isn't then the list has been
* fragmented and we	should cold start.
	lda addr2	;Addr2 should be $00E1C000
	cmp #$C000
	bne Done
	lda addr2+2
	cmp #$00E1
	bne Done
	ldx #4	;Check purgelist
	jsr CheckList
	bne Done	;Br if bad
	ldx #8	;Check freelist. Fall into CheckList


* CheckList - scans	a single list
	ENTRY CheckList
CheckList		; 
	jsr StartX	;Get start of list
	beq Done	;Done if nil

* For each element in list make sure that the next one points back to it
* Sets Z = 0 if bad	list Z = 1 if list OK
CheckLoop	jsr GetNext
	beq Done	;Done if next is nil
	ldy #hndl_prev	;Get previous of next
	lda [hndl2],y
	cmp hndl1	;Should be same as hndl1
	bne Done
	iny
	iny
	lda [hndl2],y
	cmp hndl1+2
	beq CheckLoop	;Loop if OK

Done	rts

	ENDP



********************************************************************************
*
* ScanHandles - This routines scans down the list of used handles
*              If it finds a block of handles, it looks if any segment
*              is owned by the MM. If so, the block is preserved through reset
*
* Revision 2 - Fix to make FFFF ID for disposed block of handles
*
*
********************************************************************************
ScanHandles	PROC
	longa on
	longi on

	lda >MemList	;Look down the list	of used handles
	sta Hndl
	lda >MemList+2
	sta Hndl+2

Loop	ldy #hndl_next	;Go to the next handle
	lda [Hndl],y
	tax
	iny
	iny
	lda [Hndl],y
	sta Hndl+2
	stx Hndl
	ora Hndl+2	;Done if nil
	beq Done

* Check if it is a block of handles
	ldy #hndl_attr
	lda [Hndl],y
	bit #attr_handle
	beq Loop	;Br if not handles

* It's a block of handles.  Check if we	have to keep any
* Hndl is also the address of the block
	ldy #hndl_size	;Low byte of size.	High = 0
	lda [Hndl],y
	sec	;Make index for owner of last one
	sbc #HSize-hndl_owner
	tax	;Save in X for later
KeepCheck	tay
	lda [Hndl],y	;Get the owner
	and #$FF00	;If High word 0 then MM own's it!
	beq KeepEm	;If so, then keep them
	tya	;Go down to next handle
	sec
	sbc #HSize
	cmp #HSize
	bge KeepCheck

	tay
	lda #$FFFF	;Mark block as disposable
	sta [Hndl],y
	bra Loop	;Don't keep the block

Done	rts


KeepEm	txa	;Get index to last one
KeepEm2	tay
	lda [Hndl],y	;Get the owner
	and #$FF00	;Does MM own it?
	beq OwnerOK	;If so, leave alove
	lda #SaveID	;Mark as spare to be saved
	sta [Hndl],y
OwnerOK	tya	;Go to next one
	sec
	sbc #HSize
	bpl KeepEm2
	bra Loop

	ENDP


********************************************************************************
*
* TrimFree - Removes any non memory manager block from the free or purge list
*
* Inputs:      X = list to trim
*
* This routine was replaced in rev 2. Rev 1 would lose handles in $E1
*
********************************************************************************
TrimFree	PROC
	longa on
	longi on

	lda >MemList+2,x	;Get the desired list
	pha
	lda >MemList,x
	pha

Loop	pla	;Get the handle to do
	sta Hndl
	pla
	sta Hndl+2
	ora Hndl	;Nil?
	beq Done

	ldy #hndl_next+2	;Get the next handle
	lda [Hndl],y	;and save it on the	stack
	pha
	dey
	dey
	lda [Hndl],y
	pha

	ldy #hndl_owner	;If handle belongs to MM
	lda [hndl],y	;then leave it where it is
	cmp #$00FF
	blt Loop
	php	;If Z = 1 then put in free list
	jsr RemoveHandle	;Remove it from the	list
	plp	;Did we want to save it?
	beq KeepIt	;owner was 00FF
	lda hndl+1	;Is it in $E11700 -	$E11AFF?
	cmp #$E117	;< $E11700?
	blt Loop
	cmp #$E11B	;> $E11B00
	bge Loop

KeepIt	jsr InsertFree	;Put it in the free	list
	bra Loop

Done	rts

	ENDP


********************************************************************************
*
* MMPatcher - Used to Patch ram patches	to the MM into the tool locator
*
********************************************************************************
XMMPatcher	PROC
	longa on
	longi on

	rtl

	ENDP



********************************************************************************
*
* WarmStart - called via a JSL from the	tool locator after tool initialization
*
********************************************************************************
XWarmStart	PROC
	longa on
	longi on

	jsr ClearRecent

	rtl

	ENDP
	
	Title ' Standard Calls'
********************************************************************************
*
* Standard tool calls
*
********************************************************************************


********************************************************************************
*
* MMStartup - Application init for the memory manager
*
* outputs:     OwnerID returned on the stack
*
********************************************************************************
MMStartup	PROC
	IMPORT GetIDOfCallingRoutine
	longa on
	longi on

	jsl Link

	jsr GetIDOfCallingRoutine
	bcc BadID
	sta Parms
GetOut	jml CleanUp

BadID	lda #IDErr
	sta error
	bra GetOut

	ENDP




****************************************************************
*
GetIDOfCallingRoutine PROC EXPORT
*
* This little routine looks back on the stack at the routine
* making a memory manager call.  It then finds what handle
* that memory is contained in and returns the user ID of
* the handle.
*
*
* Inputs:
*	on direct page
*
* Outputs:
*	a-reg has user ID or zero
*	carry set => no error
*	carry clear => error
*
	longa on	; mode
	longi on
*
****************************************************************

	lda return+3	;Make actual return	address
	clc
	adc #1
	sta addr
	lda return+5
	adc #0
	and #$00FF	;High bits unused
	sta addr+2
	jsr Start0	;Start searching through main memory
Loop	jsr GetNext	;Scan through the blocks
	beq AddrFound
	cmp_l addr,addr1	;If < addr1 then in	hndl1
	blt AddrFound
	cmp_l addr,addr2	;If < addr2 then free
	bge Loop

NoOwner	lda #0	;No Owner
	clc	;Indicate error
	rts

AddrFound	ldy #Hndl_Owner	;Get the owner
	lda [hndl1],y
	bit #$F000	;Check high bits
	beq NoOwner
	sec	;Indicate no error
	rts




	ENDP


********************************************************************************
*
* MMShutdown - Application shutdown
*
********************************************************************************
MMShutdown	PROC EXPORT
	longa on
	longi on

	jsl Link

	lda #<XUserPurge	;Reset the user purge routine
	sta |UserPurge+1
	lda #>XUserPurge
	sta |UserPurge+2

	jml CleanUp

	ENDP



********************************************************************************
*
* GetVersion - Returns the version number
*
********************************************************************************
MMVersion	PROC
	longa on
	longi on

	lda #Version	;Version #
	sta 7,s
	jmp QuickExit	;No error

	ENDP



********************************************************************************
*
* MMReset -    Called at reset
*              Returns error if MM lists invalid
*
* Change History
*
* 08 Jan 89	Steven Glass
*
* Also zeroed the FirstOOMPtr so that reset clears the OOM
* queue.
*
********************************************************************************
MMReset	PROC
	longa on
	longi on

	jsl Link
	jsr ClearRecent	;zero the most recently found handles.
;
; Clear the OOM queue.
;
	stz |FirstOOMPtr
	stz |FirstOOMPtr+2


	jsr Validate	;Check the lists
	beq Done	;Br if OK
	lda #MFullErr	;Return an error
	sta Error
Done	jml Cleanup

	ENDP


********************************************************************************
*
* Status - Returns if tool is active
*
********************************************************************************
MMstatus	PROC
	longa on
	longi on

	lda #true	;Return active
	sta 7,s
	jmp QuickExit

	ENDP


	title ' Creation and Dispose calls'
********************************************************************************
*
*  NewHandle - Allocate a new handle
*
********************************************************************************
NewHandle	PROC
	longa on
	longi on

	jsl link	;Fix stack etc.


;
;---------------------------------------------------
; Last minute phone	patch from Rich applied 2 Mar 87
;---------------------------------------------------
	lda #$FFFF
	sta Owner
;---------------------------------------------------
; End of last minute phone patch from Rich
;---------------------------------------------------
;
	jsl GetFree	;Get a free handle
	bcc full	;Br if err
	ldx #10	;Move parameters
MoveParms	lda parms,x
	sta addr,x
	dex
	dex
	bpl MoveParms
	lda owner	;If owner = 0 somethings wrong
	beq BadID
	lda size	;Making an empty handle?
	ora size+2
	beq MakeEmpty
	jsl Search	;Go get the segment
	bcc Full	;Br if error
	jsr InsertHandle	;Put handle in used	list
	bra Done

BadID	lda #IDErr	;Bad owner ID
	bra ErrExit
Full	lda #MFullErr	;Memory Full!!!
ErrExit	sta error
	jsr InsertFree	;Put the handle back
	stz hndl	;Return nil pointer
	stz hndl+2
Done	move_l hndl,ResHndl	;Return handle to caller

;-----------------------------------------------------------
;
; As a debugging aid to those of us with Logic Analyzers,
; we write the handle to a fixed location too.
;
	lda ResHndl
	sta >NewDebugLoc
	lda ResHndl+2
	sta >NewDebugLoc+2

;-----------------------------------------------------------

	jml CleanUp



MakeEmpty	lda attr	;Is it locked or anything?
	bit #Attr_Locked+Attr_Fixed+Attr_Addr+Attr_Bank
	beq NotLocked	;Br if OK
	lda #LockErr
	bra ErrExit	;Return error
NotLocked	jsr MoveAttr	;Move attributes into block
	jsr InsertPurge	;Put it in the purge list
	bra Done

	ENDP


********************************************************************************
*
*  ReallocHandle - Creates a new handle	with a purged one
*
********************************************************************************
ReallocHandle	PROC
	longa on
	longi on

	jsl link	;Fix stack etc.
	jsr VerifyHandle	;Get the inputted handle
	lda [Hndl]	;Make sure addr is nil
	ldy #hndl_addr+2
	ora [Hndl],y
	beq IsEmpty
	lda #NotNilErr	;Return bad handle if not empty
	sta Error
	jml CleanUp



IsEmpty	jsr RemoveHandle	;Remove it from purged list
	ldx #10	;Move parameters
MoveParms	lda parms+4,x
	sta addr,x
	dex
	dex
	bpl MoveParms
	lda owner	;If owner = 0 somethings wrong
	beq BadID
	lda size	;Making an empty handle?
	ora size+2
	beq MakeEmpty
	jsl Search	;Go get the segment
	bcc Full	;Br if error
	jsr InsertHandle	;Put handle in used	list
	bra Done

BadID	lda #IDErr	;Bad owner ID
	bra ErrExit
Full	lda #MFullErr	;Memory Full!!!
ErrExit	sta error
PutPurge	jsr InsertPurge	;Put the handle back
Done	jml CleanUp

MakeEmpty	lda attr	;Is it locked or anything?
	bit #Attr_Locked+Attr_Fixed+Attr_Addr+Attr_Bank
	beq NotLocked	;Br if OK
	lda #LockErr
	bra ErrExit	;Return error
NotLocked	jsr MoveAttr	;Move attributes into block
	bra PutPurge

	ENDP




********************************************************************************
*
* RestoreHandle - used to restore a purged handle
*
* inputs:      parmhndl - handle to be restored
*
* Note: the handle can't be restored if	it is in a fixed bank or address
*
********************************************************************************
RestoreHandle	PROC
	longa on
	longi on

	jsl Link
	jsr VerifyHandle	;Make sure it is a good handle
	jsr GetAttr	;Get the attributes

	lda addr	;Must be empty
	ora addr+2
	beq IsEmpty

	lda #NotNilErr	;not empty!!!!!!!
	bra ErrExit

IsEmpty	lda attr	;Can't be fixed addr
	bit #Attr_Addr+Attr_Bank
	beq AttrsOK
	lda #AttrErr	;Invalid attributes
	bra ErrExit


AttrsOK	lda size	;If size = 0, leave	it purged
	ora size+2
	beq Done

	jsl Realloc	;Reallocate the handle
	bcc Done	;Br if OK

	lda #MFullErr	;Didn't work
ErrExit	sta Error
Done	jml CleanUp

	ENDP




********************************************************************************
*
* DisposHandle - Purges a handle and puts it in the FreeList
*
* inputs:      ParmHndl: Handle to be disposed
*
* Change History
*
* 30 Aug 88	Steven Glass
*
* Added call to CheckRecent.
*
* This compares the handle being disposed against the handle most recently
* allocated and clears the variable if they are equal.
*
********************************************************************************
DisposHandle	PROC
DisposeHandle
	longa on
	longi on

*** 12-Jun-91 DAL -- disposing the very first handle is very bad!
;;MemList	equ $E11600	;List of used segments
	lda 7,s
	cmp >MemList
	bne @notFirstHandle
	lda 9,s
	cmp >MemList+2
	bne @notFirstHandle

;;;	ldx #$0206	;bad handle error
	ldx #0	;no error (19-Dec-91 DAL, to match TS2/3)
	ldy #4
	jml $e10184	;ToStrip (4 bytes)

@notFirstHandle
*** end of 12-Jun-91 DAL

	jsl link
	jsr VerifyHandle	;Make sure it's valid
	jsr CheckRecent	;Clean up last allocated list if necessary 29 Aug 88 SEG
	jsr RemoveHandle	;Remove it from where it is
	jsr InsertFree	;Put it in free handle list

;-----------------------------------------------------------
;
; As a debugging aid to those of us with Logic Analyzers,
; we write the handle to a fixed location too.
;
	lda hndl
	sta >DisposeDebugLoc
	lda hndl+2
	sta >DisposeDebugLoc+2

;-----------------------------------------------------------

	jml CleanUp

	ENDP



*******************************************************************************
*
* DisposAll - Disposes all of an owners	handles
*
* Inputs:      parms = ownerID
*
*
* Change History
*
* 30 Aug 88	Steven Glass
*
* Added call to check recent inside the loop that does the dipsosing.
* This makes the check of any disposed handles against the most
* recently allocated.
*
* 06 Nov 88	Steven Glass
*
* Changed order of two calls:  CheckRecent and RemoveHandle.  Want to 
* check the recent list before removing it.
*
* 30 Nov 88	Steven Glass
*
* Check to see of the ID of the calling routine is the same the ID passed.
* If it is the same, then they are disposing of themselves, which is not 
* safe so we don't allow it.
*
*******************************************************************************
DisposAll	PROC
	longa on
	longi on

	jsl link

	jsr ClearRecent	;added 14-Sep-91 DAL

	jsr GetIDOfCallingRoutine

	cmp Parms
	bne IsOK

	lda #$0000	; 4/21/89 Mensch cause IDErr broke too many apps
	sta Error
	bra BadID

IsOK	jsr MakeIDMask
	bcs BadID	;Br if bad id
	jsr DoIt	;Free used handles
	lda |PurgeList+2	;Now do the purged handles
	tax
	lda |PurgeList
	jsr DoIt
BadID	jml CleanUp	;All done

* This routine scans through a list and	frees them
DoIt	jsr SearchID	;Find a matching owner in used handl
	bcc Done	;Br if no more
	pha	;Save a,x
	phx
	jsr CheckRecent	;Clean up last allocated list if necessary 29 Aug 88 SEG
	jsr RemoveHandle	;Remove it from where it is
	jsr InsertFree	;Put it in the free	list
	plx
	pla
	bra DoIt
Done	rts

	ENDP



********************************************************************************
*
* PurgeHandle - Purges a handle
*
* inputs:      ParmHndl: Handle to be purged
*
* note: The handle must be unlocked and	purgeable
*
********************************************************************************
PurgeHandle	PROC
	longa on
	longi on

	jsl link
	jsr VerifyHandle
	jsr DoPurge	;Purge it
	jml Cleanup

	ENDP



*******************************************************************************
*
* PurgeAll - Purges	all of an owners purgeable handles
*
* Inputs:      parms = ownerID
*
*
* Change History
*
* 23 Oct 88	Steven Glass
*
* Used MakeIDMask2 so that 0 can be passed as master ID.
*
* Added stz error at AlmostDone, since none of the errors returned
* mean anything and a purgeall is supposed to go purge what can
* be purged and leave the rest.
*
* 31 Oct 88	Steven Glass
*
* Removed stz error.  Someone relied on this random error.  Verrrrry
* weird, but we have to keep the Apps running.
*
*******************************************************************************
PurgeAll	PROC
	longa on
	longi on

	jsl link

	jsr ClearRecent	;added 14-Sep-91 DAL

	jsr MakeIDMask2
	bcs Done	;Br if bad ID
Loop	jsr SearchID	;Find a matching owner
	bcc Done	;Br if no more
	pha	;Save a,x
	phx
	jsr DoPurge	;Purge it
	plx
	pla
	bra Loop

Done	jml CleanUp	;All done

	ENDP



********************************************************************************
*
* DoPurge - purges a handle
*
* Inputs: hndl = handle to be purged
*
********************************************************************************
DoPurge	PROC
	longa on
	longi on

	ldy #Hndl_Attr	;Get attributes of handle
	lda [hndl],y
	bmi IsLocked	;Br if locked
	bit #Attr_Purge	;Can we purge it
	beq NoPurge	;Br if level 0
	jsr CheckRecent	;Clean up last allocated list if necessary 29 Aug 88 SEG
	jsr RemoveHandle
	jsr InsertPurge
	bra Done
IsLocked	lda #LockErr
	bra Done1
Nopurge	lda #PurgeErr
Done1	sta error
Done	rts

	ENDP


	title ' Information on block calls'
********************************************************************************
*
* GetHandleSize - Gets the size of a handle
*
* inputs:      ParmHndl = Handle to get	size of
*
* outputs:     Size	of handle
*
********************************************************************************
GetHandleSize	PROC
	longa on
	longi on

	jsl Link
	jsr VerifyHandle	;Valid handle?
	geth_l Hndl,Parms+4,hndl_size ;Get the size
	jml CleanUp

	ENDP

********************************************************************************
*
* SetHandleSize - Resizes a handle
*                 The handle is grown or shrunk as appropriate
*
* Inputs:      ParmHndl = Handle to change
*              Parms+4  = New size
* Outputs:     none
*
* Revision2:   Handle made unpurgable while allocating
*
********************************************************************************
SetHandleSize	PROC
	longa on
	longi on

	jsl link
	jsr VerifyHandle	;Get and check inputted handle
	jsr GetAttr	;Get the properties	of the handle
	lda addr	;If addr = 0 then size must be 0
	ora addr+2
	bne NotNil
	lda size
	ora size+2
	bne IsPurged	;Br if purged

NotNil	ldx size+2	;Switch new size and old
	lda parms+6
	stx parms+6
	sta size+2
	ldx size
	lda parms+4
	stx parms+4
	sta size
	sec
	sbc parms+4	;Compare new size to old
	tax	;Save result
	lda size+2
	sbc parms+6
	bne IsDiff	;Is there a size change?
	txa	;Was low word 0 too?
	beq Done1
IsDiff	bcs Grow	;Br if new > old

; Here we shrink the block

	lda size	;Shrink to nothing?
	ora size+2
	bne Not0	;Br if not
	lda attr	;Can't shrink to 0 if locked
	bit #Attr_Locked+Attr_Fixed+Attr_Addr+Attr_Bank
	bne BadChange	;Br if can't nil it

	jsr CheckRecent	;Clear Last Allocated (if necessary).

	jsr RemoveHandle	;Remove the handle from the used list
	jsr InsertPurge
Not0	seth_l size,hndl,Hndl_Size ;Update the size
Done1	jmp Done

IsPurged	lda #NilErr
	bra Fail1
BadChange	lda #LockErr
	bra Fail1
Fail	lda #MFullErr
Fail1	sta error
	jmp Done

; Here we grow the block

	ENTRY Grow
Grow		; 
	lda addr	;Move present address into addr1
	sta addr1
	sta parms	;and into parms in case we need it
	lda addr+2	;later
	sta addr1+2
	sta parms+2
	ora addr	;Was it nil?
	beq WasNil	;Br if it was

; First see if we can just extend it from where it is

	geth_l hndl2,addr2,hndl_addr ;Get beginning of next block

* Temporarily force	Fixed so to force Bottom up check so block won't move
	lda attr
	pha
	ora #Attr_Fixed
	sta attr
	jsl CheckFit	;See if it fits
	pla
	sta attr	;Restore actual block type
	bcc NoFit	;Br if it didn't
	seth_l size,hndl,Hndl_Size ;And the size
	seth_l addr1,hndl,Hndl_Addr ;Update the	address
	cmp addr+2	;Has the handle moved?
	bne ItMoved	;Br if it did
	lda addr1	;Check low word
	cmp addr
	beq Done1	;Do nothing if it didn't move
	bra ItMoved

; We have to search	for a new block
NoFit	bit attr	;Can't move it if Locked
	bmi BadChange	;Br if Locked
	bvs BadChange	;Br if Fixed
	ENTRY WasNil
WasNil		; 
	ldy #Hndl_Attr	;Make unpurgable
	lda attr
	and #$FCFF	;Purge level 0
	sta [hndl],y
	jsl Search	;Go try to find one
; added 21 Dec 88
	lda [hndl]	; deref handle again
	sta parms	; (it might have moved)
	ldy #2
	lda [hndl],y
	sta parms+2
; end addition
	ldy #Hndl_Attr	;Restore purge status
	lda attr	;Don't change C
	sta [hndl],y
	bcs @Continue
	brl Fail	;Couldn't find one.	C from Search
@Continue
	push_l hndl1	;Save previous
	jsr RemoveHandle	;Remove handle from	where it is
	pop_l hndl1	;Recover where we want it to go
	geth_l hndl1,hndl2,Hndl_Next ;Get where	it goes before
	jsr InsertHandle	;Put it in the list

; Move data that used to be in handle into new place
ItMoved	move_l addr1,Dest	;Where data goes
	move_l parms,Source	;Where it used to be
	move_l parms+4,Count ;Old size
	jsl MoveData	;Go Move it

Done	jml Cleanup

	ENDP



********************************************************************************
*
* FindHandle - Finds the handle of the block containing an address
*
* inputs:      Parms = address
*
* output:      handle of segment or nil	if address is free
*
********************************************************************************
FindHandle	PROC
	longa on
	longi on

	jsl link
	stz parms+4	;Nil the output
	stz parms+6
	jsr start0	;Start at beginning	of memory
Loop	jsr GetNext	;Go to next segment
	beq AddrFound	;Br if end of memory
	cmp_l parms,addr1	;If < addr1 then in	hndl1
	bcc AddrFound	;Br if found
	cmp_l parms,addr2	;If < addr2 then in	free space
	bcc AddrFree
	bra Loop
AddrFound	move_l hndl1,parms+4 ;Move handle to func return
AddrFree	jml CleanUp

	ENDP



********************************************************************************
*
* FreeMem - Calculates how much free memory is in the machine
*
* Inputs:   None
*
* Output:   Free memory
*
********************************************************************************
FreeMem	PROC
	longa on
	longi on

	jsl Link
	stz parms	;Clear count to 0
	stz parms+2
	jsr start0	;Set up a search starting from 0

CountLoop	jsr GetNext	;addr1, addr2 limits of free block
	beq Done
	sec	;addr2 - addr1 = size of block
	lda addr2
	sbc addr1
	tax
	lda addr2+2
	sbc addr1+2
	tay
	clc	;Now add it to total
	txa
	adc parms
	sta parms
	tya
	adc parms+2
	sta parms+2
	bra CountLoop	;Go do the next block

Done	jml CleanUp

	ENDP




;
;          Copyright Apple Computer, Inc. 1987
;          All rights reserved
;          Patch by	Dan Oliver
;
; RAM patch code to	Memory Manager.
;
;
;
;========================================================
;          Return amount of allocatable	memory.
;========================================================
;
;   IN:    No inputs.
;
;  OUT:    LONG - amount of RAM in system that is not allocated.
;                 The amount includes unallocated and purgable.
;

;
; Change History
;
; 17 May 88	Steven Glass
;
; Cleared carry and zeroed a-reg on exit.
;
;

RealFreeMem	PROC EXPORT
	longa on
	longi on

;
;
; --- Offsets into stack and direct page ---------------------------
;
handle	equ 1
saveDirect	equ handle+4
rtl1	equ saveDirect+2
rtl2	equ rtl1+3
totalFree	equ rtl2+3
;
;
	phd	;Save original direct page.
	pha	;Space for handle.
	pha
	tsc	;Switch direct page	into stack.
	tcd
;
	stz <totalFree	;Start total free memory counter.
	stz <totalFree+2
;
;
; --- Compute size of allocated memory ------------------------------------
;
	lda >MemList
	tax
	lda >MemList+2
lop1	stx <handle
	sta <handle+2
;
	ldy #hndl_attr	;Don't count purgable blocks.
	lda [<handle],y
	and #attr_purge
	beq CountThis	;Not purgeable so count this
	lda [<handle],y	;Is purgable but may be locked so
	bpl next1	;cannot be freed,  If can be freed, then
;	                  ;skip.
;
CountThis		;
	ldy #hndl_size	;Add size of this allocated block
	lda [<handle],y	;to the size accumulator.
	clc
	adc <totalFree
	sta <totalFree
	iny
	iny
	lda [<handle],y
	adc <totalFree+2
	sta <totalFree+2
;
next1	ldy #hndl_next
	lda [<handle],y
	tax
	iny
	iny
	lda [<handle],y
	bne lop1
;
;
; --- From total allocated memory, subtract total memory ---------------
;
	lda #0
	tax
	sec
	sbc <totalFree
	sta <totalFree
	txa
	sbc <totalFree+2
	sta <totalFree+2
;
	pla	;Remove temp handle.
	pla
	pld	;Restore direct page.

	lda #0	; return no error!
	clc

	rtl
;
	ENDP


********************************************************************************
*
* MaxBlock - Finds the largest free block in the machine in	the machine
*
* Inputs:   None
*
* Output:   Largest	block size in parms
*
********************************************************************************
MaxBlock	PROC
	longa on
	longi on

	jsl Link
	stz parms	;Clear size to 0
	stz parms+2
	jsr start0	;Set up a search starting from 0

CountLoop	jsr GetNext	;addr1, addr2 limits of free block
	beq Done
	sec	;addr2 - addr1 = size of block
	lda addr2
	sbc addr1
	tax
	lda addr2+2
	sbc addr1+2
	tay
	cpx parms	;Now compare it to current largest
	sbc parms+2	;C = 1 if it is larger
	bcc CountLoop
	stx parms	;Save new largest
	sty parms+2
	bra CountLoop	;Go check the next block

Done	jml CleanUp

	ENDP


********************************************************************************
*
* SetHandleID -- set the owner ID for a handle, and return the old one
*
* Inputs:
*   WORD  space for result (old ID)
*   WORD  owner ID
*   LONG  handle
*
* If you pass 0 for the new ID, the old ID is unchanged, and it just tells
* you what the ID is.
*
********************************************************************************
SetHandleID	proc export
	longa on
	longi on

oldD	equ 1
rtl	equ oldD+2
theHandle	equ rtl+6
theNewID	equ theHandle+4
theResult	equ theNewID+2

	phd
	tsc
	tcd
	ldy #Hndl_Owner
	lda [<theHandle],y
	sta <theResult
	lda <theNewID
	beq @done
	sta [<theHandle],y
@done	pld
	ldx #0	;no error
	ldy #6	;strip 6 bytes
	jml $e10184	;ToStrip

	EndP


********************************************************************************
*
* TotalMem - Returns total memory in machine
*
* inputs: none
*
* output: Number of	bytes in machine including $E0 and $E1
*
********************************************************************************
TotalMem	PROC
	longa on
	longi on

	jsl Link
	stz parms	;Low word always 0
	lda |NumBanks
	inc A	;Add 2 for E0, E1
	inc A
	sta parms+2
	jml Cleanup

	ENDP



********************************************************************************
*
* CheckHandle - Used to verify that a handle is valid
*
* inputs:      ParmHndl = handle to verify
*
* outputs:     none
*
********************************************************************************
CheckHandle	PROC
	longa on
	longi on

	jsl Link
	jsr VerifyHandle	;Sets error if invalid
	jml CleanUp

	ENDP



********************************************************************************
*
* CompactMem - Forces memory compaction	if possible
*
* inputs:      none
*
* If called from an	interrupt, no compaction is done
*
* outputs:     none
*
********************************************************************************
CompactMem	PROC
	longa on
	longi on

	jsl Link
	lda |IrqActive	;Are we in an interrupt?
	and #$00FF
	bne NoCompact	;Don't compact if we are
	stz Attr	;0 so all mem compacts. Rev 2
	jsl Compact
NoCompact	jml CleanUp

	ENDP


	Title ' HLock and more'
********************************************************************************
*
* HLock - Locks a handle
*
* inputs:      ParmHndl = Handle to lock
*
********************************************************************************
HLock	PROC
	longa on
	longi on

	jsl Link
	jsr VerifyHandle
	ldy #hndl_attr	;Get attributes byte for handle
	lda [Hndl],y
	ora #attr_locked	;Lock it
	sta [Hndl],y
	jml Cleanup

	ENDP



********************************************************************************
*
* HLockAll - Locks all  handles of an owner
*
* inputs:      Parms = Owner
*
********************************************************************************
HLockAll	PROC
	longa on
	longi on

	jsl Link
	jsr MakeIDMask	;Set up the mask for searching
	bcs Done	;Br if bad owner
Loop	jsr SearchID	;Find a matching handle
	bcc Done	;Br if no more
	pha	;Save address of next one
	ldy #hndl_attr	;Get attributes byte for handle
	lda [hndl],y
	ora #attr_locked	;Lock it
	sta [hndl],y
	pla
	bra Loop	;Go to next one

Done	jml Cleanup

	ENDP


********************************************************************************
*
* MakeIDMask - Sets	things up for xxxAll commands
*              Parms -> owner
*              Mask	 -> parms
*              A,X = MemList
*              C = 1 if invalid ID
*
*
*
********************************************************************************
MakeIDMask	PROC
	longa on
	longi on

	lda parms
	bit #$F000	;Invalid mask
	beq BadID
	sta owner	;Get inputted owner
	ora #$F000	;Build the mask

JoinHere
	bit #$0F00	;All aux IDs?
	beq AnyAux	;Br if any
	ora #$0F00
AnyAux	bit #$00FF	;Any ID?
	beq AnyID
	ora #$00FF
AnyID	sta parms
	lda |MemList+2	;Get start of used segments
	tax
	lda |MemList
	clc
	rts

BadID	lda #IDErr	;Set error
	sta Error
	sec
	rts


;-----------------------------------------------------------
;
; Alternate entry point that does not check for a non-zero
; major ID.  This is used by Purgeall so can purge all
; handles at once.
;
	ENTRY MakeIDMask2
MakeIDMask2	lda parms
	sta owner
	bra JoinHere


	ENDP


********************************************************************************
*
* HUnlock - Unlocks	a handle
*
* inputs:      ParmHndl = Handle to unlock
*
********************************************************************************
HUnlock	PROC
	longa on
	longi on

	jsl Link
	jsr VerifyHandle	;Valid handle?
	ldy #hndl_attr	;Get attributes byte for handle
	lda [Hndl],y
	and #$7FFF	;attr_locked.EOR.$FFFF ;Unlock it
	sta [Hndl],y
	jml Cleanup

	ENDP


********************************************************************************
*
* HUnlockAll - Unlocks all  handles of an owner
*
* inputs:      Parms = Owner
*
********************************************************************************
HUnlockAll	PROC
	longa on
	longi on

	jsl Link
	jsr MakeIDMask	;Set up the mask for searching
	bcs Done	;Br if bad id
Loop	jsr SearchID	;Find a matching handle
	bcc Done	;Br if no more
	pha	;Save address of next one
	ldy #hndl_attr	;Get attributes byte for handle
	lda [hndl],y
	and #$7FFF	;Unlock it
	sta [hndl],y
	pla
	bra Loop	;Go to next one

Done	jml Cleanup

	ENDP



********************************************************************************
*
* SetPurge - Sets the purge level of a block
*
* inputs:      ParmHndl = Handle to lock
*              Parms+4  = New purge Level
*
********************************************************************************
SetPurge	PROC
	longa on
	longi on

	jsl Link
	jsr VerifyHandle
	lda parms+4	;Get new purge level
	and #3	;Only want 2 bits
	xba	;Move em to where they go
	sta parms+4
	ldy #hndl_attr	;Get attributes byte for handle
	lda [Hndl],y
	and #$FCFF	;Mask out purge bits
	ora parms+4	;Or in new level
	sta [Hndl],y
	jml Cleanup

	ENDP



********************************************************************************
*
* SetPurgeAll - Sets the purge level of	all of an owners blocks
*
* inputs:      Parms = Owner
*              Parms+2 = New purge level
*
********************************************************************************
SetPurgeAll	PROC
	longa on
	longi on

	jsl Link
	lda parms+2	;Get new purge level
	and #3	;Only want 2 bits
	xba	;Move em to where they go
	sta parms+2
	jsr MakeIDMask	;Set up the mask for searching
	bcs Done	;Br if bad owner
Loop	jsr SearchID	;Find a matching handle
	bcc Done	;Br if no more
	pha	;Save address of next one
	ldy #hndl_attr	;Get attributes byte for handle
	lda [hndl],y
	and #$FCFF	;Mask off purge bits
	ora parms+2	;Put in new ones
	sta [hndl],y
	pla
	bra Loop	;Go to next one

Done	jml Cleanup

	ENDP


********************************************************************************
*
* PtrToHand - Moves	a block of data from an address to a handle
*
* Inputs:      parms = Number of bytes to move
*              parms+4 = Destination handle
*              parms+8 = Source address
*
********************************************************************************
PtrToHand	PROC
	longa on
	longi on

	jsl link
	lda parms+4	;Check the handle
	sta hndl
	lda parms+6
	sta hndl+2
	jsr VerifyH2

	move_l Parms,Count	;Get the parameters
	lda [parms+4]	;Get dest address
	sta Dest
	ldy #hndl_addr+2
	lda [parms+4],y
	sta Dest+2
	ora Dest	;If Nil then error
	beq IsNil

	move_l Parms+8,Source
	jsl MoveData	;Go do it
Done	jml CleanUp

IsNil	lda #NilErr	;Can't copy to nil handle
	sta error
	bra Done
	ENDP



********************************************************************************
*
* HandToPtr - Moves	a block of data from a handle to an address
*
* Inputs:      parms = Number of bytes to move
*              parms+4 = Destination address
*              parms+8 = Source handle
*
********************************************************************************
HandToPtr	PROC
	longa on
	longi on

	jsl link
	lda parms+8	;Check the handle
	sta hndl
	lda parms+10
	sta hndl+2
	jsr VerifyH2

	move_l Parms,Count	;Get the parameters
	move_l Parms+4,Dest

	lda [parms+8]	;Get source address
	sta Source
	ldy #hndl_addr+2
	lda [parms+8],y
	sta Source+2
	ora Source	;If Nil then error
	beq IsNil

	jsl MoveData	;Go do it
Done	jml CleanUp

IsNil	lda #NilErr	;Can't copy to nil handle
	sta error
	bra Done
	ENDP




********************************************************************************
*
* HandToHand - Moves a block of data from a handle to a handle
*
* Inputs:      parms = Number of bytes to move
*              parms+4 = Destination handle
*              parms+8 = Source handle
*
********************************************************************************
HandToHand	PROC
	longa on
	longi on

	jsl link

	lda parms+4	;Check the destination handle
	sta hndl
	lda parms+6
	sta hndl+2
	jsr VerifyH2

	lda parms+8	;Check the source handle
	sta hndl
	lda parms+10
	sta hndl+2
	jsr VerifyH2


	move_l Parms,Count	;Get the parameters
	lda [parms+4]	;Get dest address
	sta Dest
	ldy #hndl_addr+2
	lda [parms+4],y
	sta Dest+2
	ora Dest	;If Nil then error
	beq IsNil

	lda [parms+8]	;Get source address
	sta Source
	lda [parms+8],y	;Y = 2 from earlier
	sta Source+2
	ora Source	;If Nil then error
	beq IsNil

	jsl MoveData	;Go do it
Done	jml CleanUp

IsNil	lda #NilErr	;Can't copy to nil handle
	sta error
	bra Done

	ENDP




********************************************************************************
*
* BlockMove - Moves	a block of data
*
* Inputs:      parms = Number of bytes to move
*              parms+4 = Destination address
*              parms+8 = Source address
*
********************************************************************************
BlockMove	PROC
	longa on
	longi on

	jsl link
	move_l Parms,Count	;Get the parameters
	move_l Parms+4,Dest
	move_l Parms+8,Source
	jsl MoveData	;Go do it
	jml CleanUp

	ENDP


	title ' Allocation routines'
********************************************************************************
*
* Search - Searches	for a segment that fits the current parameters
*          note: segment is found but handle is not inserted
*          SearchUp	& SearchDown are used for low to high and high to low
*          allocation
*
* inputs:      segment attributes
*
* outputs:     C=1 if segment found C=0	if no fit
*
* calls to search go through $E1
*
* Change History
*
* 30 Aug 88	Steven Glass
*
* Now trys calls SearchUpFast and SearchDownFast.  These routines
* can find a space for a handle faster than the SearchDown and SearchUp
* (but can lead to more fragmentation).
*
********************************************************************************
XSearch	PROC
	longa on
	longi on

	inc |NewHandleCount
	bne @NoCarry
	inc |NewHandleCount+2
@NoCarry



	lda attr	;Check the attributes
	bit #attr_addr	;User's address?
	beq NotAddr	;Br if not
	ora #attr_fixed+attr_bank ;Force these
	sta attr

NotAddr	bit #attr_fixed	;Movable block?
	bne @KeepLooking
	jmp SearchDownFast	;If not fixed, do top down
@KeepLooking	bit #attr_handle	;Allocating a handle
	beq SearchUp	;If so fall into searchhandle

	ENDP

********************************************************************************
*
* SearchHandle This	is used to search from low to high memory for a handle
*              The search order is:
*                  Bank $E0 to $FF (slow memory)
*                  Bank $01 to $DF (in SearchUp)
*
* outputs:     C=1 if segment found C=0	if no fit
*
********************************************************************************
SearchHandle	PROC EXPORT
	longa on
	longi on

	ldx #MemE0-Memlist
	jsr StartX	;X says where to start from

LoopE0	jsr GetNextFree	;Go to next free segment
	beq Failed	;Br if nil
	jsl CheckFit	;Will it fit?
	bcc LoopE0
	rtl

Failed	lda attr	;Fall into SearchUp

	ENDP


********************************************************************************
*
* SearchUp     This	is used to search from low to high memory
*              The search order is:
*                  Bank $01 to $E0
*                  Bank $E0 to $FF (slow memory)
*                  Bank 0
*
* inputs:      attributes in A & attr
*
* outputs:     C=1 if segment found C=0	if no fit
*
* Change History
*
* 30 Aug 88	Steven Glass
*
* When a handle is found, we remember it in LastLowhHandle.
*
********************************************************************************
SearchUp	PROC EXPORT
	longa on
	longi on

	ldx #Mem01-Memlist	;Assume starting from bank1
	bit #attr_bank	;Fixed bank?
	beq BankOk	;Br if not
	lda addr+2	;Which bank?
	beq Search0	;Br if bank 0
	cmp #$E0	;Bank E0 or E1?
	bcc BankOk	;Br if 1 to DF
	ldx #MemE0-Memlist

*
* Search $01 to $FF	or $E0 to $FF if fixed in $E0 or $E1
*
BankOk	jsr StartX	;X says where to start from

Loop01	jsr GetNextFree	;Go to next free segment
	beq Search0	;Br if nil
	jsl CheckFit	;Will it fit?
	bcc Loop01

	lda attr	;don't remember this one if its fixed bank or fixed addr
	bit #attr_bank
	bne ForgetThisOne

	bit #Attr_Addr
	bne ForgetThisOne

	lda hndl	; put handle into place
	sta |LastLowHandle
	lda hndl+2
	sta |LastLowHandle+2

ForgetThisOne
	rtl

*
* Search0 - Searches bank 0
*
	ENTRY Search0
Search0		; 
	jsr Start0	;Set up to start search
Loop00	jsr GetNextFree	;Go to next free segment
	lda addr1+2	;Past bank0?
	bne GiveUp	;Br if true
	jsl CheckFit	;Will it fit?
	bcc Loop00
	rtl

GiveUp	jsl SearchFail	;C = 0 for failed
	bcc GiveUp2
	jmp XSearch
GiveUp2	rtl

	ENDP





********************************************************************************
*
* SearchDown   This	is used to search from high to low memory
*              The search order is:
*                  Bank $DF to $01
*                  Bank $FF to $E0 (slow memory)
*                  Bank 0
*
* inputs:      attributes in A & attr
*
* outputs:     C=1 if segment found C=0	if no fit
*
*
* Change History
*
* 30 Aug 88	Steven Glass
*
* When a handle is found, we remember it in LastHighHandle.
*
********************************************************************************
SearchDown	PROC EXPORT
	longa on
	longi on

	bit #attr_bank	;Fixed bank?
	beq BankOk	;Br if not
	lda addr+2	;Which bank?
	beq Search00	;Br if bank 0
	cmp #$E0	;Bank E0 or E1?
	bcs SearchFF	;Br if so

*
* Search $DF to $01
*
BankOk	ldx #MemE0-Memlist	;Start from bank $DF
	jsr StartXTop	;X says where to start from

LoopDF	jsr GetPrevFree	;Go to next lower free segment
	lda addr1+2	;If bank 0 DF - 1 done
	beq SearchFF	;Br if nil
	jsl CheckFit	;Will it fit?
	bcc LoopDF

	lda attr	;don't remember this one if its fixed bank or fixed addr
	bit #attr_bank
	bne ForgetThisOne

	bit #Attr_Addr
	bne ForgetThisOne

	lda hndl	; put handle into place
	sta |LastHighHandle
	lda hndl+2
	sta |LastHighHandle+2

ForgetThisOne
	rtl

*
* Search $FF to $E0	(Really $E1 and $E0)
*
SearchFF	ldx #MemFF-Memlist	;Start from bank $FF
	jsr StartXTop	;X says where to start from

LoopFF	jsr GetPrevFree	;Go to next lower free segment
	lda addr1+2	;Done if past $E0
	cmp #$00E0
	blt Search00
	jsl CheckFit	;Will it fit?
	bcc LoopFF
	rtl


*
* Search00 - Searches bank 0
*
	ENTRY Search00
Search00		; 
	ldx #Mem01-Memlist
	jsr StartXTop	;Set up to start search

Loop00	jsr GetPrevFree	;Go to next free segment
	beq GiveUp	;Br if nil
	jsl CheckFit	;Will it fit?
	bcc Loop00
	rtl

GiveUp	jsl SearchFail	;C = 0 for failed
	bcc GiveUp2
	jmp XSearch
GiveUp2	rtl

	ENDP



********************************************************************************
*
* SearchDownFast
*              This	is used to search from high to low memory
*              The search order is:
*                  Starting with last handle found, 
*                  Bank $DF to $01
*                  Bank $FF to $E0 (slow memory)
*                  Bank 0
*
* inputs:      attributes in A & attr
*
* outputs:     C=1 if segment found C=0	if no fit
*
* Change History
*
* 30 Aug 88	Steven Glass
*
* Added this routine to speed up the search for space for a new
* handle.  This routine starts from the last allocated handle
* rather than from the beginning or the end of the list.
*
* This code was created by starting with SearchUp and removing
* all the code that was used if the first try failed.  This
* routine only handles fixed blocks that are not in a particular
* bank.
*
* If we fail at finding what we want, we return control to the 
* original SearchUp code.  This means that we won't return
* memory full if there is an available gap after the
* last allocated handle.
*
* When a handle is found, we remember it in LastHighHandle.
*
********************************************************************************
SearchDownFast	PROC EXPORT
	longa on
	longi on

	bit #attr_bank	;Fixed bank?
	bne TryOldWay

	lda |LastHighHandle+2
	beq TryOldWay
	sta hndl1+2
	lda |LastHighHandle
	sta hndl1

LoopDF	jsr GetPrevFree	;Go to next lower free segment
	lda addr1+2	;If bank 0 DF - 1 done
	beq TryOldWay	;Br if nil
	jsl CheckFit	;Will it fit?
	bcc LoopDF

	lda attr	;if the handle was at a fixed location, don't
	bit #Attr_Addr	;remember it.
	bne ForgetThisOne

	lda hndl	; put handle into place
	sta |LastHighHandle
	lda hndl+2
	sta |LastHighHandle+2

ForgetThisOne
	inc |ShortCutCount
	bne @NoCarry
	inc |ShortCutCount+2
@NoCarry

	rtl

TryOldWay	lda attr
	jmp SearchDown


	ENDP




********************************************************************************
*
* Start0 - Sets everything up to start a search from bank0
*
* StartX - Uses X as an index from MemList for where to start from
*
* Output - Z = 1 if	empty list
*
********************************************************************************
Start0	PROC EXPORT
	longa on
	longi on

	ldx #0	;Use MemList

	ENTRY StartX
StartX		;       

	lda |MemList,x	;Get where to start	from
	sta hndl2
	lda |MemList+2,x
	sta hndl2+2	;nil if = 0
	rts

	ENDP



********************************************************************************
*
* StartXtop-  Uses X as an index from MemList for where to start from
*             Sets up for top down search
*
* Output - Z = 1 if	empty list
*
********************************************************************************
StartXTop	PROC
	longa on
	longi on

	lda |MemList,x	;Get where to start	from
	sta hndl1
	lda |MemList+2,x
	sta hndl1+2	;nil if = 0
	rts

	ENDP

********************************************************************************
*
* BestTop - Gets the best top for a top	down search
*              If Fixed Bank 0, then X = Mem01 - MemList
*              If Fixed Bank 1, then X = Mem02 - MemList
*              Else	X = MemFF - MemList
*
* OutPuts:     X
*
********************************************************************************
BestTop	PROC
	longa on
	longi on

	ldx #MemFF-MemList	;Assume not fixed
	lda attr	;Get Attributes
	bit #Attr_Bank	;Check for fixed bank
	beq NotFixed	;Br if not
	lda addr+2	;Get bank
	beq IsBank0	;Bank 0?
	lsr A
	bne NotFixed	;Br if not bank 1
	ldx #Mem02-MemList
NotFixed	rts

IsBank0	ldx #Mem01-MemList
	rts


	ENDP


********************************************************************************
*
* CHECKFIT - This routine is used to test if a segment will	fit between
*            two addresses
*
* The following attributes are checked:	fixed address, fixed bank,
* page aligned, special memory, and bank crossing
*
* If the fixed bit is clear, then segment is allocated from	the top
*
*
* Inputs  addr1: beginning address
*         addr2: ending address
*         size : number of bytes in segment
*         attr : attributes of segment
*
* Outputs C = 0 if doesn't fit
*           = 1 if segment fits
*         addr1: beginning address to allocate (may be different from input)
*         addr2  destroyed
*         size, attr unchanged
*
* Calls go through $E1
*
* Modified by Konstantin Othmer on Nov. 11, 88
*
*     Added check at beginning for attributes.  If there are none (the most common
*       case) we branch directly to check part.
*
********************************************************************************
XCheckFit	PROC
	longa on
	longi on

; If addr1 = addr2 then don't bother
;	lda addr1
;	cmp addr2
;	bne AddrOK
;	lda addr1+2
;	cmp addr2+2
;	bne AddrOK
;NoFit	clc
;	rtl


AddrOK	lda attr	;Get search attributes
	and #$7CFF	;strip off purge and locked
	bne Cont1	;top down, no attributes
	brl Check2
Cont1	cmp #$4000
	bne Cont2	;Bottom up no attributes
	brl Check
Cont2	lda attr
;
; Check if fixed bank
;
	lsr A
	bcc AddChk	;Br if don't care
	tay
	cmp_w addr2+2,addr+2 ;If addr2 bank < addr bank then no fit
	bcc NoFit2
	cmp_w addr+2,addr1+2 ;If addr bank < addr1 bank then no fit
	bcc NoFit2
	beq SameBank	;Br if bank was ok
	sta addr1+2	;Set addr1 to beginning of bank
	stz addr1
SameBank	tya

; Check if rest of address fixed too
AddChk	lsr A
	bcc PageChk	;If this true, bank	was too
	tay
	cmp_l addr2,addr	;If addr2 < addr then no fit
	bcc NoFit
	cmp_w addr,addr1	;If addr < addr1 then no fit
	bcc NoFit	;We know that bank is ok
	sta addr1	;Set addr1 = addr
	tya

; Check if page alignment needed. 4th byte of addr1 ignored
PageChk	lsr A	;C = 1 if aligned
	bit attr	;If top down search
	bvc SpecChk	; then page check done later
	bcc SpecChk	;Br if don't care
	tay	;Save attributes
	lda #$FF
	trb addr1	;Force Alignment
	beq AlignOk	;Br if was aligned
	inc addr1+1	;Carry into bytes 2	& 3
	cmp_w addr2+1,addr1+1 ;If addr2 < addr1	then no fit
NoFit2	bcc NoFit
AlignOk	tya	;Get attr back

; Now Check for special memory ok
; Note: if one address if in special memory, the other will	be in the same bank
SpecChk	lsr A	;C = 1 if can't use	special
	bcc BankChk	;Br if don't care
	ldy addr2+2	;If addr2 in special then give up
	cpy #2	;Banks 0 & 1 special
	bcc NoFit
	ldx #$5FFF	;Bank E0 up to $6000 special
	cpy #$E0	;If 1 < bank < E0 then ok
	blt BankChk
	beq IsE0	;Br if bank E0
	ldx #$9FFF	;Bank E1 up to $A000 special
IsE0	cpx addr1	;Is addr1 not special?
	bcc BankChk	;We're not in special if it isn't
	cpx addr2	;Is addr2 not special?
	bcs NoFit	;Give up if it is special
	inx	;Make addr1 first non special byte
	stx addr1

; Now check if bank	crossing allowed.
; If not, separate segment into smaller	segments
BankChk	lsr A	;C = 1 if can't cross bank
	bit attr
	bvc BankChk2	;Br to top down routines
	bcc Check	;Br if don't care
BankLoop	cmp_w addr2+2,addr1+2 ;Same bank?
	beq Check
	pha	;A = addr2+2 from macro
	push_w addr2	;Save addr2
	stz addr2	;Make addr2 bottom of next bank
	lda addr1+2
	inc A
	sta addr2+2
	jsl Check
	bcs Found	;Br if it fit
	move_l addr2,addr1	;Move addr2 to addr1
	pop_l addr2	;Restore addr2
	bra BankLoop	;Try again from here

Found	pla	;Get rid of saved addr2
	pla
	rtl

NoFit	clc
	rtl

; Now see if addr2 - addr1 >= size.
Check	sec
	lda addr2	;Y,A = addr2 - addr1
	sbc addr1
	tay
	lda addr2+2
	sbc addr1+2
	cpy size
	sbc size+2	;C = 0 if no fit
	rtl

* These routines are for allocating from the top
BankChk2	bcc Check2	;Br if bank cross OK
	cmp_w addr1+2,addr2+2 ;Does the free space cross a bank?
	beq Check2	;Br if in same bank
	pha	;Save addr1. A = addr1+2 from cmp_w
	push_w addr1
	stz addr1	;Set addr1 to beginning of bank
	lda addr2+2	; containing addr2
BankLoop2	sta addr1+2	;Save starting address for this try
	jsl Check2	;Does it fit?
	bcs Found	;Cleanup stack and return if so.
	lda addr1	;Make addr2 end of next lower bank
	sta addr2
	lda addr1+2
	sta addr2+2
	dec A	;Move A down to next bank
	cmp 3,s	;Are we in the original addr1 bank?
	bne BankLoop2	;If so, this is last check.
	pop_l addr1	;Restore original addr1

* If addr2-size >= addr1 then the segment fits and the starting address
* is addr2-size.  Page alignment is also done here
Check2	sec	;Calc addr2-size
	lda addr2
	sbc size
	tax	;X = low word
	lda attr	;Force page alignment
	and #Attr_Page	;Don't alter C!
	beq PageOK
	txa
	and #$FF00	;Force to lower page
	tax
PageOK	lda addr2+2
	sbc size+2
	bcc Done	;No good if size > addr2
	tay	;Y = high word
	cpx addr1	;Is result < addr1?
	sbc addr1+2
	bcc Done	;Br with C=0 if failed
	stx addr1	;Hooray! save starting address in addr1
	sty addr1+2	;and return with C = 0
Done	rtl

	ENDP




********************************************************************************
*
* SearchID - Searches for a handle owned by owner
*
* Inputs:      A,X = First handle of list to check
*
* Outputs:     C = 0 if none found and end of list
*              Hndl	= Handle found
*              A,X = next handle in list
*
********************************************************************************
SearchID	PROC
	longa on
	longi on

	clc	;Assume nil
Loop	sta hndl	;Store the handle
	stx hndl+2
	ora hndl+2	;Was it nil?
	beq IsNil
	ldy #Hndl_Owner	;Get the owner
	lda [hndl],y
	and parms	;And it with mask
	cmp owner	;Is it who we want?
	beq Found	;C=1 if found
	clc	;Mark not found
Found	ldy #Hndl_Next+2	;Get the next one
	lda [hndl],y
	tax	;X = high
	dey
	dey
	lda [hndl],y	;A = low
	bcc Loop	;Go to next if not found
IsNil	rts	;C = 1 if found

	ENDP


	title ' Handle Manipulation Stuff'
********************************************************************************
*
* InsertHandle - Inserts a handle into the used memory list
*
* MoveAttr - moves the attributes into a handle
*
********************************************************************************
InsertHandle	PROC
	longa on
	longi on

	seth_l hndl,hndl1,hndl_next ;This is the next from hndl1
	seth_l hndl,hndl2,hndl_prev ;This is the previous from hndl2
	move_l addr1,addr	;Move the starting address

	ENTRY MoveAttr
MoveAttr		;       

	ldy #HSize-2	;Move the data into	the handle
moveloop	tyx
	lda addr,x
	sta [hndl],y
	dey
	dey
	bpl moveloop
	rts

	ENDP



********************************************************************************
*
* GetAttr - Gets the attributes of a handle
*
* Inputs:      hndl:    handle to get info from
*
* Outputs:     zp:	    handle data
*
********************************************************************************
GetAttr	PROC
	longa on
	longi on

	ldy #HSize-2	;Get the data from the handle
moveloop	tyx
	lda [hndl],y
	sta addr,x
	dey
	dey
	bpl moveloop
	rts
	ENDP


********************************************************************************
*
* ReAlloc - reallocates a handle
*
* Inputs:      hndl	= handle to reallocate
*
* Outputs:     C = 1 if failed
*              zp has handle attributes
*
* Calls go through $E1 vector
*
********************************************************************************
XRealloc	PROC
	longa on
	longi on

	jsr GetAttr	;Get the attributes
	lda addr
	ora addr+2	;Is it really nil?
	bne NotNil	;Can't realloc if not nil
	jsr RemoveHandle
	jsl Search
	bcc Full
	jsr InsertHandle	;Put it in used list
	clc
	rtl

Full	jsr InsertPurge	;Put it back in purge list
NotNil	sec
	rtl

	ENDP



********************************************************************************
*
* RemoveHandle - Removes a handle from a list
*                If	hndl.next <> nil then hndl.next.prev = hndl.prev
*                If	hndl.prev <> nil then hndl.prev.next = hndl.next
* Inputs:      hndl	= handle to be removed
*              hndl1, hndl2 used
*
********************************************************************************
RemoveHandle	PROC
	longa on
	longi on

	geth_l hndl,hndl1,hndl_prev ;Get previous handle
	geth_l hndl,hndl2,hndl_next ;and the next too
	lda hndl2	;Is next nil?
	ora hndl2+2
	beq IsNil	;Br if it is
	seth_l hndl1,hndl2,hndl_prev ;Set previous of next handle
IsNil	lda hndl1	;Is previous nil
	ora hndl1+2
	beq Head	;If so, head of a list
	seth_l hndl2,hndl1,hndl_next
	rts

Head	ldx #FreeList-MemList ;Check if head of	free or purge
	lda hndl
	cmp |FreeList
	bne NotFree
	lda hndl+2
	cmp |FreeList+2
	beq IsFree
NotFree	lda hndl	;Head of purged list
	cmp |PurgeList
	bne NotPurge
	lda hndl+2
	cmp |PurgeList+2
	bne NotPurge
	ldx #PurgeList-MemList
IsFree	lda hndl2	;Make hndl2 head of	list
	sta |MemList,x
	lda hndl2+2
	sta |MemList+2,x
NotPurge	rts

	ENDP

********************************************************************************
*
* GetFree - Gets the next free handle from the free list
*
*           Outputs: hndl = free handle
*	 Z = 1 if no free handles
*
* Goes through $E1 vector
*
********************************************************************************
XGetFree	PROC
	longa on
	longi on

	lda |FreeList	;Get pointer to free handles
	sta hndl
	lda |FreeList+2
	sta hndl+2
	ora hndl	;Nil pointer?
	bne HndlOk

; Try to allocate more handles
	lda #50	;Make 50 handles
	jsl CreateHandles	;Go make them
	bcc Done	;Br if error
	jsr InsertFrBlock	;Put them in free list
	bra XGetFree	;Go try again

HndlOK	ldy #hndl_next	;Get the next handle
	lda [hndl],y
	sta hndl1	;Put it in hndl1 and freelist
	sta |FreeList
	iny
	iny
	lda [hndl],y
	sta |FreeList+2
	sta hndl1+2
	ora hndl1	;Was it nil?
	beq nomore
	lda #nil	;Make its previous nil
	ldy #hndl_prev
	sta [hndl1],y
	iny
	iny
	sta [hndl1],y
nomore	sec	;No error
done	rtl

	ENDP


********************************************************************************
*
* InsertFree - Inserts a handle into the free list
*
*              hndl.next = (FreeList)
*              hndl.prev = nil
*              rest	of handle zeroed
*              FreeList = (hndl)
*
* Inputs:      hndl	= handle to be inserted
*              Y = Size of block for DoInsert
*
********************************************************************************
InsertFree	PROC
	longa on
	longi on

	ldy #HSize	;Do one handle
	ldx #FreeList-MemList ;Point to free list

	ENTRY DoInsert
DoInsert		;       
	lda hndl+2	;Don't do it if bad	handle
	beq Done
	phy	;Save Size for later
	dey	;Link rest of list to this one
	dey	;Point to hndl.next
	lda |MemList+2,x
	sta [hndl],y
	sta hndl2+2	;Save it for later
	dey
	dey
	lda |MemList,x
	sta [hndl],y
	sta hndl2
	lda hndl	;Make this handle the first one
	sta |MemList,x
	lda hndl+2
	sta |MemList+2,x
	lda #nil	;Zero out other stuff
	ldy #hndl_prev+2	;Now set the previous
	sta [hndl],y	;Previous = nil
	dey
	dey
	sta [hndl],y
	ldy #Hndl_Addr	;Address = nil
	sta [hndl],y
	iny
	iny
	sta [hndl],y
; Set hndl2.prev to	hndl+blocksize-HSize
	pla	;Recover block size
	ldy hndl2+2	;Is hndl2 nil?
	beq Done	;If so, there is no	next
	ldy #hndl_prev
	sec
	sbc #HSize
	clc
	adc hndl
	sta [hndl2],y
	iny
	iny
	lda hndl+2
	adc #0
	sta [hndl2],y


Done	rts

	ENDP


********************************************************************************
*
* InsertFrBlock  Inserts a free block of handles
*
********************************************************************************
InsertFrBlock	PROC
	longa on
	longi on

	ldx #FreeList-MemList ;Point to free list

	ENTRY DoBlockInsert
DoBlockInsert		;       

	tya	;Get rid of first handle
	sec
	sbc #HSize
	tay
	lda hndl	;Move hndl up by one
	clc
	adc #HSize
	sta hndl
	lda hndl+2
	adc #0
	sta hndl+2
	jmp DoInsert

	ENDP


********************************************************************************
*
* InsertPgBlock - Inserts a block of empty handles
*
* Inputs:      hndl	= Block of handles (first one is skipped)
*              Y = size of block in bytes
*
* Outputs:     hndl	points to first empty handle
*
********************************************************************************
InsertPgBlock	PROC
	longa on
	longi on

	ldx #PurgeList-MemList ;Point to free list
	bra DoBlockInsert

	ENDP



********************************************************************************
*
* InsertPurge - Inserts a handle into PurgeList
*
********************************************************************************
InsertPurge	PROC
	longa on
	longi on

	ldy #HSize	;Do one block
	ldx #PurgeList-MemList
	bra DoInsert

	ENDP



********************************************************************************
*
* GetNext - Goes to	the next segment in	the list
*              hndl2 -> hndl1
*              hndl1.next -> hndl2
*              hndl1.addr+hndl1.size-> addr1
*              hndl2.addr -> addr2
*              if hndl2 = nil then Z = 1 and addr2 unchanged
*
* GetPrev - Goes to	the previous segment in the list
*              hndl1 -> hndl2
*              hndl2.prev -> hndl1
*              hndl1.addr+hndl1.size-> addr1
*              hndl2.addr -> addr2
*              if hndl2 = nil then Z = 1 and addr2 unchanged
*
********************************************************************************
GetNext	PROC EXPORT
	longa on
	longi off

	sep #$10	;8 bit index
	move_l hndl2,hndl1	;hndl1 = hndl2

	ldy #hndl_next	;hndl2 = hndl1.next
	lda [hndl1],y
	sta hndl2
	ldy #hndl_next+2
	lda [hndl1],y
	sta hndl2+2
	beq Done	;Br if hndl2 nil
	bra NotNil

	ENTRY GetPrev
GetPrev		;       

	sep #$10	;8 bit index
	move_l hndl1,hndl2	;hndl2 = hndl1

	ldy #hndl_prev	;hndl1 = hndl2.prev
	lda [hndl2],y
	sta hndl1
	ldy #hndl_prev+2
	lda [hndl2],y
	sta hndl1+2
	beq Done	;Br if hndl1 nil

NotNil	ldy #hndl_size	;addr1 = addr+size
	clc
	lda [hndl1],y
	adc [hndl1]	;add addr
	sta addr1
	ldy #hndl_size+2
	lda [hndl1],y
	ldy #hndl_addr+2
	adc [hndl1],y
	sta addr1+2

	lda [hndl2],y	;addr2 = hndl2.addr
	sta addr2+2	;Y = hndl_addr+2 from earlier
	lda [hndl2]
	sta addr2
	iny	;Make Z <> 1
Done	rep #$10	;Back to 16 bit X
	rts

	ENDP

********************************************************************************
*
* GetNextFree - Goes to the next free segment in the list
*              hndl2 -> hndl1
*              hndl1.next -> hndl2
*              hndl1.addr+hndl1.size-> addr1
*              hndl2.addr -> addr2
*              if hndl2 = nil then Z = 1 and addr2 unchanged
*
* GetPrev - Goes to	the previous free segment in the list
*              hndl1 -> hndl2
*              hndl2.prev -> hndl1
*              hndl1.addr+hndl1.size-> addr1
*              hndl2.addr -> addr2
*              if hndl2 = nil then Z = 1 and addr2 unchanged
*
* Returns with equal flag set if next handle is nil.
*
*  Added by Konstantin Othmer Nov. 11, 88
*
********************************************************************************
GetNextFree	PROC
	longa on
	longi off

	sep #$10	;8 bit index
	move_l hndl2,hndl1	;hndl1 = hndl2

	ldy #hndl_next	;hndl2 = hndl1.next
	lda [hndl1],y
	sta hndl2
	ldy #hndl_next+2
	lda [hndl1],y
	sta hndl2+2
	beq Done	;Br if hndl2 nil

NotNil	ldy #hndl_size	;addr1 = addr+size
	clc
	lda [hndl1],y
	adc [hndl1]	;add addr
	sta addr1
	ldy #hndl_size+2
	lda [hndl1],y
	ldy #hndl_addr+2
	adc [hndl1],y
	sta addr1+2

	lda [hndl2],y	;addr2 = hndl2.addr
	sta addr2+2	;Y = hndl_addr+2 from earlier
	lda [hndl2]
	sta addr2

; If addr1 = addr2 then skip get the next one

	cmp addr1
	bne AddrOK
	lda addr1+2
	cmp addr2+2
	bne AddrOK
NoFit	bra GetNextFree

AddrOK	iny	;Make Z <> 1
Done	rep #$10	;Back to 16 bit X
	rts

	ENTRY GetPrevFree
GetPrevFree		;       

	sep #$10	;8 bit index
	move_l hndl1,hndl2	;hndl2 = hndl1

	ldy #hndl_prev	;hndl1 = hndl2.prev
	lda [hndl2],y
	sta hndl1
	ldy #hndl_prev+2
	lda [hndl2],y
	sta hndl1+2
	beq Done	;Br if hndl1 nil

	ldy #hndl_size	;addr1 = addr+size
	clc
	lda [hndl1],y
	adc [hndl1]	;add addr
	sta addr1
	ldy #hndl_size+2
	lda [hndl1],y
	ldy #hndl_addr+2
	adc [hndl1],y
	sta addr1+2

	lda [hndl2],y	;addr2 = hndl2.addr
	sta addr2+2	;Y = hndl_addr+2 from earlier
	lda [hndl2]
	sta addr2
;
; If addr1 = addr2 then skip get the next one
;
	cmp addr1
	bne AddrOK
	lda addr1+2
	cmp addr2+2
	bne AddrOK
	bra GetPrevFree

	ENDP



	title ' Handle Creation'
********************************************************************************
*
* CreateHandles - Makes a bunch of handles
*
* Inputs:      A = # handles to make max of 3275 ( one banks worth )
*
* Outputs:     C = 0 if unable to allocate handles
*              Y = Size of block in bytes
*
* Note: addr through addr2 are destroyed
*
* Calls go through $E1 vector
*
* Revision 2 change: Block is allocated	with the id $00FF
*	 Handles in free list have ID $FFFF
*
********************************************************************************
XCreateHandles	PROC

	longa on
	longi on

; First create a block to hold the handles
	inc A	;Add 1 for segment holding rest
	asl A	;Mult A by 20. 4 * A + 16 * A
	asl A
	sta size	;Temp
	asl A
	asl A
	adc size
	sta size	;This is the size to allocate
	stz size+2
	lda #Attr_Locked+Attr_Fixed+Attr_Handle+Attr_NoSpec
	sta attr
	jsr Search	;Go find one
	bcc Full	;Oh no!
	move_l addr1,hndl	;The first one is used to hold them all
	jsr InsertHandle	;Put it in used list
	lda #$00FF	;Make owner id $00FF
	ldy #Hndl_Owner
	sta [hndl],y


; Now clear the handle info.  Hndl = beginning address of segment
	move_w size,addr1	;and the size (high	word 0)
	stz addr	;Zero them out for free handles
	stz addr+2
	stz attr
	stz size
	stz size+2
;
;---------------------------------------------------
; Last minute phone	patch from Rich at 2 Mar 87
; These lines are now in NewHandle
;---------------------------------------------------
;              lda	    #$FFFF
;              sta	    owner
;---------------------------------------------------
; End of Last minute phone patch from Rich
;---------------------------------------------------
;
; Now link them all	together
	ldy #HSize	;Start at the first	one
	ENTRY DoHandle
DoHandle		; 

; Calc previous handle
	tya	;Previous = hndl+Y-20
	sec
	sbc #HSize	;No borrow possible
	clc
	adc hndl
	sta hndl1
	lda hndl+2
	adc #0
	sta hndl1+2

; Calc next handle
	tya	;Next = hndl+Y+20
	clc
	adc #HSize	;Carry don't care
	clc
	adc hndl
	sta hndl2
	lda hndl+2
	adc #0
	sta hndl2+2

; Move all of the bytes into the handle

	ldx #0
DoByte	lda addr,x
	sta [hndl],y
	iny
	iny
	inx
	inx
	cpx #HSize	;Done all of handle?
	blt DoByte
	cpy addr1	;If Y = size then done
	blt DoHandle	;Exit with C = 1

Full	rtl

	ENDP




********************************************************************************
*
* VerifyHandle - Veriifies that an inputted handle is a real handle
*              to be valid:
*              Hndl	<> nil
*              Hndl.prev.next = hndl or	nil
*              if hndl.prev.next = nil then hndl must be head of a list
*
* inputs:      ParmHndl = handle to check
*
* outputs:     Hndl	= handle
*              if invalid, return address popped and jumps to CleanUp
*
* VerifyH2 entry point from move routines Checks Z flag
*
********************************************************************************
VerifyHandle	PROC Export
	longa on
	longi on

	lda ParmHndl	;Get the inputted handle
	sta Hndl
	lda ParmHndl+2
	sta Hndl+2

	ENTRY VerifyH2
VerifyH2		;       
	beq BadHandle	;If 0 then no good
	ldy #Hndl_Prev	;Get the previous
	lda [hndl],y
	sta hndl1
	iny
	iny
	lda [hndl],y
	sta hndl1+2
	ora hndl1	;Is there no previous?
	beq NoPrev
; ###
; Mensch 11/13/89
; Add test here to see if prev and Next are the same in Hndl
; This will detect if a handle was "echo" of the data bank register in high RAM
;
	ldy #Hndl_Next	; get the next of the same handle...
	lda [Hndl],y
	cmp Hndl1	; see if the low word is the same
	bne @passSubTest	; if not then it passes this test...
	iny
	iny
	lda [Hndl],y
	cmp hndl1+2
	bne @passSubTest
	bra BadHandle	; else this is a bad handle...
;
@PassSubTest
; ###
	ldy #Hndl_Next	;Get the next of the previous
	lda [Hndl1],y
	cmp Hndl	;Is it = hndl?
	bne BadHandle
	iny
	iny
	lda [Hndl1],y
	cmp Hndl+2
	bne BadHandle
HandleOK	rts	;It was OK

NoPrev	ldx #FreeList-MemList ;Head of a list?
HeadLoop	lda hndl
	cmp MemList,x
	bne NotHead
	lda hndl+2
	cmp MemList+2,x
	beq HandleOK	;We Found it
NotHead	dex
	dex
	dex
	dex
	bpl HeadLoop	;Go try next list

BadHandle	lda #HandleErr	;Give back error
	sta Error
	pla	;Pop return address
	jmp CleanUp

	ENDP


	title ' BlockMove Routines'
********************************************************************************
*
* MoveData - Moves a block of data with	multiple MVN or MVP	operations
*
* Inputs:      Source: Source address
*              Dest:   Destination address
*              Count:  # Bytes to move
*
* Note No address checking is done to make sure move doesn't crash machine
* The code for the move is pushed on the stack
*
* Rev 2 change: High byte of 4 byte address masked off
*
*
* Call goes through	$E1 vector
*
********************************************************************************
XMoveData	PROC
	longa on
	longi on

* Dec Count by 1 and return if no bytes	to move
	lda Count
	bne NoBor	;If 0 borrow from high byte
	dec Count+2	;Dec high word
	bpl NoBor	;0 bytes to move?
	rtl	;Br if so
NoBor	dec Count

* Check if source >= Destination
	ldx Source	;Low word of source
	cpx Dest	;Do the compare
	lda Source+2	;Now the high word
	sbc Dest+2	;C = 1 if Source >=	Dest

	bcs MoveDown



********************************************************************************
*
* MoveUP
* This is used if Source <  Destination
* inputs: X = >Source C = 0
*
********************************************************************************
	ENTRY MoveUp
MoveUp		; 

* Adjust Source = Source + Count and Dest = Dest + Count
* Put move code in mem: MVP dst src RTL
	txa
	adc Count	;C = 0 from entry
	tax
	lda Source+2	;Get Source bank
	adc Count+2	;A = 00bank
	and #$00FF	;Ignore high byte
	ora #$6B00	;RTL Opcode C = 0
	pha	;Put it on the stack
	lda Count	;Calc Dest + Count
	sta TempCount	;We'll need this later
	adc Dest
	tay
	lda Count+2
	adc Dest+2	;A = 00bank
	xba	;A = bank00
	ora #$44	;MVP opcode
	pha
	bra muFirst

MuMore	sta Count+2	;More bytes to move
	lda 2,s	;A = srcdst banks
	cpx #$FFFF	;Was there a bank cross?
	bne muXNot0	;C = 1 if =
	sbc #$0100	;Dec 1 from source bank better not wrap!
muXNot0	cpy #$FFFF	;Did destination cross bank?
	bne muYIs0
	dec A
muYIs0	sta 2,s

	ENTRY muFirst
muFirst		; 

	cpx TempCount	;Will Source cross bank?
	bcs muXOk	;Br if no cross
	stx TempCount	;Only move X bytes
muXOk	cpy TempCount	;Will destination cross bank?
	bcs muYOk
	sty TempCount
muYOk	lda #(muReturn-1)>>8
	pha	;Push return address
	lda #(MuReturn-1)<<8 ;Low byte of ret addr and bank 0
	pha
	tsc
	clc	;Addr of code
	adc #4
	pha
	lda TempCount	;Get # bytes to move
	rtl	;Takes us to the move code

muReturn	lda Count	;Count = Count - Bytes moved
	clc	;Actual bytes moved	1 more than count
	sbc TempCount
	sta Count
	sta TempCount
	lda Count+2	;Now do high word
	sbc #0
	bpl muMore	;Br if more to do
	pla	;Pull move code off	of stack
	pla
	pea $E1E1	;Fix data bank
	plb
	plb
	rtl


********************************************************************************
*
* MoveDown
* This is used if Source >= Destination
* inputs: X = >Source
*
********************************************************************************
	ENTRY MoveDown
MoveDown		; 

	ldy Dest
* First put move code in mem: MVN dst src RTL

	lda Source+2	;Get source bank
	and #$00FF	;Ignore high byte
	ora #$6B00	;RTL Opcode
	pha
	lda Dest+2	;Destination Bank
	xba
	ora #$54	;MVN opcode
	pha
	lda Count	;Init TempCount
	sta TempCount
	bra mdFirst

MdMore	sta Count+2	;More bytes to move
	lda 2,s	;A = SrcDest banks
	cpx #1	;Bank Cross?  if X=0
	bcs mdXNot0
	adc #$0100	;Add 1 to source bank
mdXNot0	cpy #0	;Did destination cross bank?
	bne mdYIs0
	inc A
mdYIs0	sta 2,s

	ENTRY mdFirst
mdFirst		; 
	txa	;If Count > -X then	bank cross
	eor #$FFFF
	cmp TempCount
	bcs MdXOk
	sta TempCount	;Only move -X bytes
mdXOk	tya	;Will destination cross bank?
	eor #$FFFF
	cmp TempCount
	bcs mdYOk
	sta TempCount	;Only move -Y bytes
mdYOk	lda #(mdReturn-1)>>8
	pha	;Push return address
	lda #(MdReturn-1)<<8 ;Low byte of ret addr and bank 0
	pha
	tsc
	clc	;Addr of code
	adc #4
	pha
	lda TempCount	;Get # bytes to move
	rtl	;Takes us to the move code

mdReturn	lda Count	;Count = Count - Bytes moved
	clc	;Actual bytes moved	1 more than count
	sbc TempCount
	sta Count
	sta TempCount
	lda Count+2	;Now do high word
	sbc #0
	bpl mdMore	;Br if more to do
	pla	;Pop move code off of stack
	pla
	pea $E1E1
	plb
	plb
	rtl

	ENDP


	Title ' Compaction Routines'
********************************************************************************
*
* SearchFail - Called when unable to find a segment
*              This	routine decides what sort of compaction, etc. to do
*              If in an interrupt, no compaction or purging	is done.
*
*  So what does it do?
*
*  First, we looke at the IRQActive flag.  If we are inside an interrupt,
*  we must not move or dispose of anything.  We can only fail.
*
*  If we can try and make room we look at the retry count:
*
*     1:  Let User try
*     2:  Compact
*     3:  Purge Level 3's
*     4:  Purge Level 2's
*     5:  Purge Level 1's
*     6:  Let user try one last time.
*
*
*
* Output:      C = 1 if ok to retry
*
* Change History
*
* 1 Dec 88	Steven Glass
*
* Added call to clear recent in Level1 checking.  This prevents
* handles that are purged from being left in the recent list.
*
*
********************************************************************************
XSearchFail	PROC EXPORT
	longa on
	longi on

	import ClearRecent
;-----------------------------------------------------------
;
; First, see if we can even try to do anything.
;
	clc
	lda |IrqActive	;In an interrupt?
	and #$00FF
	bne GiveUp

	inc Retry	; bump the retry count and see how many times
	lda Retry	; we've been here
	cmp #7
;;;	bcs GiveUp
	bcs myGiveUp	;19-Dec-91 DAL

	asl a
	tax
	jmp (FailTable,x)


FailTable	dc.w 0
	dc.w FirstTry
	dc.w SecondTry
	dc.w ThirdTry
	dc.w FourthTry
	dc.w FifthTry
	dc.w SixthTry

*** added 19-Dec-91 DAL
myGiveUp	clc
	rtl
*** end 19-Dec-91

;-----------------------------------------------------------
;
; Let the user try first.
;
FirstTry
	jsr ClearRecent
    IF RAMVersion THEN
	jsl xUserPurge
    ELSE
	jsl UserPurge
    ENDIF

	
	bcc UserCouldNotHelp

	rtl


UserCouldNotHelp
	inc Retry	;Bump the retry count
	lda Retry	; and fall into second try


;-----------------------------------------------------------
;
; This is the second time in, so we just compact and 
; try again.
;
SecondTry
	jsl Compact
	sec
	rtl


;-----------------------------------------------------------
;
; Third, fourth and fifth try:  We purge the level 3's, 
; 2's and 1's.
;
ThirdTry
FourthTry
FifthTry
	jsl Purge	;Try purging
	bcs SecondTry	;It may have worked, compact the result

; Fall into Sixth Try


;-----------------------------------------------------------
;
; Egads, this is our last chance.  Call the user and 
; beg him to do something.
;
SixthTry
    IF RAMVersion THEN
	jsl xUserPurge
    ELSE
	jsl UserPurge
    ENDIF
	bcc GiveUp

;-----------------------------------------------------------
;
; Wow, the user thinks he can help us out.  So we go through and 
; purge everything that can be purged.  Compact memory one last time
; and try again.
;
	PushWord #0
	_PurgeAll

	bra SecondTry

; User could not do anything.  We must give up.  Return with the carry clear.

GiveUp	rtl

	ENDP





	eject
********************************************************************************
*
* Compact -    This	routine attempts to	move all memory blocks upwards
*              Blocks that are fixed or	locked are not moved
*
* Revision 2:  If compaction for fixed block in banks 0 or 1,
*               only compact 0 and 1
*
********************************************************************************
XCompact	PROC
	longa on
	longi on

	jsr BestTop	;Get top to start from. Rev 2

* First move zero page down for a new temporary ZP.  Don't change X
	phd	;Save current ZP
	tsc
	sec
	sbc #ZPSize
	tcs
	tcd

* Starting from the	top of memory, go through all of the segments
	jsr StartXTop	;X from best top

* to move to the next block, set the following
* Hndl1      -> Hndl2
* Hndl2.Prev -> Hndl1 if nil then done
* Hndl1.Size -> Size
* Hndl1.Owner-> Owner actually not needed but moved in loop
* Hndl1.Attr -> Attr
* Hndl1.Addr -> Addr, Addr1
* Hndl2.Addr -> Addr2

	ENTRY NextBlock
NextBlock		; 
	move_l Hndl1,Hndl2	;Hndl1 -> Hndl2
	ldy #hndl_prev+2	;Hndl2.Prev -> Hndl1
	lda [Hndl2],y
	sta Hndl1+2
	dey
	dey
	lda [Hndl2],y
	sta Hndl1
	ora Hndl1+2	;If Nil then done
	beq Done

	dey	;Move rest of Hndl1	data
	dey
MvLoop1	lda [Hndl1],y
	tyx
	sta Addr,x
	dey
	dey
	cpy #hndl_attr	;Move down through attr
	bge MvLoop1	;Exit loop with attr in A

	bit #attr_locked+attr_fixed
	bne NextBlock	;Skip the block if it can't move

MvLoop2	tyx
	lda [Hndl1],y	;Now Move the addresses
	sta addr,x
	sta addr1,x
	lda [Hndl2],y
	sta addr2,x
	dey
	dey
	bpl MvLoop2

* Now check if the block can move
	jsr CheckFit
	lda addr1	;If addr <> addr1 then move it
	cmp addr
	bne ItMoved
	lda addr1+2
	cmp addr+2
	beq NextBlock	;No move, Go do the	next Block

* Slide the block up Source = Addr, Count = Size (equivalent equates)
ItMoved		; 
	lda addr1	;Store new address in handle
	sta [Hndl1]
	sta Dest	;Also set destination
	ldy #hndl_addr+2
	lda addr1+2
	sta [Hndl1],y
	sta Dest+2
	jsl MoveData	;Do the move. Hndl1	unchanged!!!!
	bra NextBlock

Done		; 
	tsc	;Pull the stack back up
	clc
	adc #ZPSize
	tcs
	pld	;And fix zero page
	rtl

	ENDP


********************************************************************************
*
* UserPurge - allows user to mark blocks purgeable
*
* This routine calls each of the installed OOM routines with telling them
* how much memory is needed.
*
* If enough total memory is freed, this routine returns carry set, 
* otherwise it returns carry clear.
*
* Inputs:
*          Size Of block needed
*
* Outputs:     
*          C = 1 if OK to repurge and compact
*          C = 0 if its not worth trying again
*
*
* Change History
*
* 10 Sep 88	Steven Glass
*
* This routine had always existed, but had never done anything until today.
*
* 02 Oct 88	Steven Glass
*
* This routine is now called before and after compact and purging.  The
* retry value is used to determine which it is.  When we are called first
* we only call user routines that have bit 0 set in the TaskFlags.
*
* When we are called second, we only call user routines that have bit 1
* set in the task flags.
*
* 16 Oct 88	Steven Glass
*
* We now call all routines all the time but we pass a retry count.  0 if
* this is before the memory manager has done anything.  1 if its later.
*
********************************************************************************
XUserPurge	PROC EXPORT
	longa on
	longi on

	DSect 0
TaskLink	LONG
TaskFlags	WORD
TaskSignature	WORD
TaskEntry	LONG

	DefineStack
OrigDirect	word
RetryValue	word
SizeNeeded	LONG
CurPtr	LONG
AmountFreed	LONG

	lda |FirstOOMPtr+2	; is there any?
	tax	; copy in x for below
	ora |FirstOOMPtr
	bne GoAndTry

	clc
	rtl

GoAndTry
	pha	; push space for the space freed
	pha
	phx	; push the pointer to the first header
	lda |FirstOOMPtr
	pha
	pei Size+2	; push the size needed
	pei Size
	pei Retry
	phd	; push d-page
	tsc	; turn stack to d-page
	tcd


	stz AmountFreed	; zero the amount we freed
	stz AmountFreed+2

;-----------------------------------------------------------
;
; Reset Retry value to 1 or 2 depending or its original
; value.  This way we can use the RetryValue as a mask
; to decide which routines to run.
;
	ldx #$0000
	lda RetryValue
	cmp #1
	beq @1
	ldx #1
@1	stx RetryValue

NextOne	
	
	pha
	pha
	pei SizeNeeded+2
	pei SizeNeeded
	pei RetryValue
	jsl CallThisOne

	pla
	clc
	adc AmountFreed
	sta AmountFreed
	pla
	adc AmountFreed+2
	sta AmountFreed+2

;-----------------------------------------------------------
;
; Point to next one.
;
SkipThisOne
	lda [CurPtr]
	tax
	ldy #2
	lda [CurPtr],y
	sta CurPtr+2
	stx CurPtr
	ora CurPtr
	bne NextOne


;-----------------------------------------------------------
;
; Was enough freed?
;
;
; 3/31/89	Mensch
; Correct the following compare...
; was:
;	lda SizeNeeded
;	sec
;	sbc AmountFreed
;	lda SizeNeeded+2
;	sbc AmountFreed+2
;	bcc Enough
;	beq Enough
;
; Compare sizeNeeded to amount freed as follows...
;  If SizeNeeded+2 < AmountFreed+2 then enough;
;  If SizeNeeded+2 = AmountFreed+2 then 
;    If AmountFreed >= SizeNeeded then enough
;      else @TooSmall;
;    else @TooSmall;
;
	lda SizeNeeded+2	; first test to see if we freed way to much
	cmp AmountFreed+2	; by comparing the high words...
	blt Enough	; if its less than amount freed, we have more than enough memory
	bne @TooSmall	; if on the other hand, size needed is not
; SizeNeeded+2 = AmountNeeded+2 here
	lda AmountFreed	
	cmp SizeNeeded
	bge Enough	; if Amount>=SizeNeeded then we got enough

@TooSmall
	clc
	bra FixStack


Enough
	sec
;-----------------------------------------------------------
;
; Fix the stack and get out.
;
FixStack	pld	; pull d-page
	pla	; pull retry value
	pla	; pull Size
	pla
	pla	; pull OOM Pointer
	pla
	pla	; pull Amount freed
	pla
	rtl	; all done



;-----------------------------------------------------------
;
; Little routine to check the signature and 
; call the routine.
;
CallThisOne	ldy #TaskSignature
	lda [CurPtr],y
	cmp #QueueSignature
	bne Die

	lda CurPtr
	clc
	adc #TaskEntry
	pei CurPtr+1
	phb
	dec a
	sta 1,s

	rtl

Die	PushWord #OOMQueueDamaged
	PushLong #0
	_SysFailMgr


	ENDP


****************************************************************
*
AddToOOMQueue	PROC EXPORT
*
* Adds the specified routine to the list of routines that are
* run when the memory manager runs out of memory.
*
* Possible Errors:
*
* InvalidHeader
*
*
* Inputs:
*	PointerToHeader
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

    IF RAMVersion THEN
	jsl xlink
    ELSE
	jsl link
    ENDIF
	
	pei Parms+2
	pei Parms
	pea FirstOOMPtr>>16
	pea |FirstOOMPtr
	_AddToQueue
	sta error	; pass on error code if any to the cleanup routines 
	
    IF RAMVersion THEN
	jml xCleanUp
    ELSE
	jml CleanUp
    ENDIF

	ENDP


****************************************************************
*
DeleteFromOOMQueue	PROC EXPORT
*
* Removes the specified routine to the list of routines that are
* run when the memory manager runs out of memory.
*
* Possible Errors:
*
* InvalidHeader
* NotInQueue
*
* Inputs:
*	PointerToHeader
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************
	

    IF RAMVersion THEN
	jsl xlink
    ELSE
	jsl link
    ENDIF
	
	
	pei Parms+2
	pei Parms
	pea FirstOOMPtr>>16
	pea |FirstOOMPtr
	_DeleteFromQueue
	sta error	; pass on error code if any to the cleanup routines 
	
    IF RAMVersion THEN
	jml xCleanUp
    ELSE
	jml CleanUp
    ENDIF
	


	ENDP

	title ' Purge Routines'
********************************************************************************
*
* XPurge - purges blocks from memory until size bytes have been freed
*
*           Yea from the table of my memory
*           I'll sweep away all trivial	fond records
*	    Shakespeare, Hamlet, I. v. 96
*
* Inputs:      Size	= block we are trying to allocate
*              Retry =  retry count
*	    2 = purge level	3 (zombies)
*	    3 = purge level	2
*	    4 = purge level	1
*	   >4 = nothing left to purge
*
* Outputs:     C = 1 if OK to retry
*              Retry = next retry count	- 1 (its inced before we're called)
*
* ZP used:     hndl1, hndl2, addr1, addr2 rest unchanged
*
* Revision 2:  Now in the rom
*              If Purging for fixed address in banks 0 or 1
*               routine only purges out	of 0 and 1
*
*
* Change History
*
* 16 Oct 88	Steven Glass
*
* Changed in line constants to equates for LastRetry and ZombieRetry.
* These had to change when I changed the SearchFail routine to call the
* user before doing other things.  This meant that retry was much high
* when this routine was called.
*
********************************************************************************
XPurge	PROC EXPORT
	longa on
	longi on

* Local equates
PHndl	equ addr1	;Handle being checked to purge
PSize	equ addr2	;# bytes to purge


LastRetry	equ 6
ZombieRetry	equ 3

* If retry > LastRetry then we can't purge any more
	lda Retry
	cmp #LastRetry	;A has retry count
	bcc RetryOK
	clc
	rtl

RetryOK	ldx size	;Get the size to purge
	stx PSize
	ldx size+2
	stx PSize+2
*
* To start, hndl2 =	top block which isn't purgeable
*           phndl =	next down which might be
*
	ENTRY StartTop
StartTop		; 
	rep #$10	;StartTop needs 16 bit X
	jsr BestTop	;Find the best top to start from
	sep #$10	;ldy # faster than dey dey
	longi off
	lda |MemList,x	;Only need the low 8 bits from besttop
	sta phndl
	lda |MemList+2,x
	sta phndl+2
	ldy #hndl_prev+2	;Get next down
	lda [phndl],y
	sta hndl1+2
	ldy #hndl_prev
	lda [phndl],y
	sta hndl1


PurgeLoop	jsr NextPurge	;Get next purgable block
	bcc EndOfList

	jsr NukeIt	;Purge the block
	lda retry	;Killing zombies
	cmp #ZombieRetry
	beq KillZombies	;If killing zombies, then get the rest
	lda hndl2	;hndl2 -> phndl to make NextPurge work
	sta phndl
	lda hndl2+2
	sta phndl+2
	lda psize+2	;Need to purge any more?
	bpl PurgeLoop
	bra Done

*
* Here we purge the	rest of the zombies	of the same owner
*
KillZombies	ldy #hndl_owner	;Get the owner
	lda [phndl],y
	and #$F0FF	;Mask off aux id
	pha
	ENTRY ZombieLoop
ZombieLoop		; 
	lda hndl2	;hndl2 -> phndl to make NextPurge work
	sta phndl
	lda hndl2+2
	sta phndl+2
ZombieSkip	jsr NextPurge
	bcc LastZombie
	ldy #hndl_owner	;Get owner
	lda [phndl],y
	and #$F0FF
	cmp 1,s	;Is it the one we want?
	bne ZombieSkip	;Skip it if not
	jsr NukeIt	;Purge it
	bra ZombieLoop

LastZombie	pla	;All of owner purged. fix the stack
	lda psize	;Purged enough?
	bpl StartTop	;Start again if not


* Hooray, we urged enough

Done		; 
	dec Retry	;It will be inced before we are called
	rep #$10
	sec
	rtl

	ENTRY EndOfList
EndOfList		; 
	inc Retry	;Go to next level
	lda Retry
	cmp #LastRetry
	bcc StartTop	;if <= LastRetry then start another pass
	bra Done	;Other wise try what we have


********************************************************************************
*
* NextPurge - Finds	next purgable block
*
* To get to the next:   phndl -> hndl2
*	    hndl1 -> hndl
*	    phndl.prev -> hndl1 if nil then done
*
* outputs: C = 0 then end of list
*
********************************************************************************
	ENTRY NextPurge
NextPurge		; 
	longa on
	longi off

	ldx Retry	;Make mask for purging
	lda >Purgemask-ZombieRetry-1,x
	and #$FF00
	pha	;Save it on the stack

	ENTRY Loop
Loop		; 
	move_l phndl,hndl2
	move_l hndl1,phndl
	ldy #hndl_prev+2
	lda [phndl],y
	sta hndl1+2
	ldy #hndl_prev
	lda [phndl],y
	sta hndl1
	ora hndl1+2	;= nil?
	beq IsNil	;Br if so

	lda attr	;If No spec allowed
	bit #attr_nospec
	beq CheckIt
	ldy #hndl_addr+2	;Then stop if in bank1
	lda [phndl],y
	lsr A	;= 0 if bank 0 or 1
	beq IsNil

* Now check if we can purge it
CheckIt	ldy #hndl_attr	;Get the attributes
	lda [phndl],y
	bmi Loop	;Skip if locked
	and #attr_purge	;Purgable?
	cmp 1,s
	bcc Loop	;Br if < level we are looking for

	sec	;Found one
	pla
	rts

IsNil	clc
	pla
	rts

	ENTRY PurgeMask
PurgeMask	DC.B 3,2,1




********************************************************************************
*
* NukeIt - Purges the block
* Here we purge the	block. Since it is purgable, hndl1 & hndl2 aren't nil
* To purge hndl:	    hndl2 -> hndl1.next
*	    hndl1 -> hndl2.prev    This removes	hndl from the list
*	    PurgeList -> phndl.next
*	    nil   -> phndl.prev
*	    phndl -> PurgeList.prev
*	    phndl -> PurgeList
*	    nil   -> phndl.addr    This purges hndl
*
*	    psize - phndl.size -> psize
*
* notes: A pointer to the current head of purgelist is put on the stack
*
********************************************************************************
	ENTRY NukeIt
NukeIt		; 
	longa on
	longi off

	phb
	ldy #hndl_next
	lda hndl2
	sta [hndl1],y
	lda |PurgeList
	pha	;Save for stack based pointer
	sta [phndl],y	;Attach rest of purge list to phndl
	ldy #hndl_next+2	;Remove it from used list
	lda hndl2+2	;hndl2 -> hndl1.next
	sta [hndl1],y
	lda |PurgeList+2	;Attach rest of purge list to phndl
	sta [phndl],y
	tay	;Y = bank of head of purgelist
	phy

	ldy #hndl_prev+2	;hndl1 -> hndl2.prev
	lda hndl1+2
	sta [hndl2],y
	ldy #hndl_prev
	lda hndl1
	sta [hndl2],y

	lda #0	;nil -> phndl.prev
	sta [phndl],y
	ldy #hndl_prev+2
	sta [phndl],y
	ldy #hndl_addr+2	;nil -> hndl.addr
	sta [phndl],y
	sta [phndl]

	lda phndl+2	;hndl -> PurgeList
	sta |PurgeList+2
	lda phndl
	sta |PurgeList

	plb	;phndl -> OldPurgeList.prev
	ldy #hndl_prev
	sta (1,s),y
	lda phndl+2
	ldy #hndl_prev+2
	sta (1,s),y
	pla	;Fix stack
	plb	;and bank

* Now subtract amount+1 purged from total needed
	ldy #hndl_size
	lda psize
	clc	;Extra -1 so just the right size will
	sbc [phndl],y	;go minus instead of 0
	sta psize
	ldy #hndl_size+2
	lda psize+2
	sbc [phndl],y
	sta psize+2

	rts



	ENDP




****************************************************************
*
CheckRecent	PROC EXPORT
*
* Checks the handle in hndl and sees if it is one of the
* last allocated handles that we keep to speed up searching
*
* If it is we replace the lastfound handle with its prior or
* next handle.
*
*
* Inputs:
*	hndl
*	LastLowHandle
*	LastHighHandle
*
* Outputs:
*	LastLowHandle
*	LastHighHandle
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* Change History
*
* 06 Nov 88	Steven Glass
*
* To try and improve our shortcut hit rate, i've changed
* what we do when the handle being removed is the recent
* handle.  I make the recent handle equal to the prior or
* next handle.
*
* 30 Nov 88	Steven Glass
*
* Must make sure that the handle we are looking for is 
* real.  Had problem when zero was passed to dispose and 
* the recent handle value was 0.
*
* 14-Sep-91	Dave Lyons
*
* Steve!  LastLowHandle and LastHighHandle can be equal!
* Removed the branch to handle this caes correctly.
*
****************************************************************
	lda hndl+2
	beq @Continue

	cmp |LastLowHandle+2
	bne @NotLow
	lda hndl
	cmp |LastLowHandle
	bne @NotLow

	ldy #Hndl_Prev	; since this one is going away, get replace it with prior
	lda [hndl],y
	sta |LastLowHandle
	ldy #Hndl_Prev+2
	lda [hndl],y
	sta |LastLowHandle+2

***
*** Removed this BRA 14-Sep-91 DAL.  Memory Manager was exploding if the
*** high and low hints "crossed," then became equal, and then somebody
*** disposed of the handle that both hints were pointing at.  Only the
*** low one was getting bumped, leaving us with a high hint that was
*** actually the first handle on the free list (so the backwards link is
*** nil)!  If the very next NewHandle was for non-fixed memory, it would
*** get Very Confused when finding a nil backwards link on what should be
*** a valid used handle.
***
;;;	bra @Continue
***

@NotLow	lda hndl
	cmp |LastHighHandle
	bne @Continue
	lda hndl+2
	cmp |LastHighHandle+2
	bne @Continue

	ldy #Hndl_Next	; since this one is going away, get replace it with next
	lda [hndl],y
	sta |LastHighHandle
	ldy #Hndl_Next+2
	lda [hndl],y
	sta |LastHighHandle+2

@continue
;-----------------------------------------------------------


	rts


	ENDP

****************************************************************
*
ClearRecent	PROC
*
* Zeros the values in LastLowHandle and LastHighHandle
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

	lda #0
	sta >LastLowHandle
	sta >LastLowHandle+2
	sta >LastHighHandle
	sta >LastHighHandle+2


	rts


	ENDP


	title ' RamDisk Command routines'
********************************************************************************
*
* GetDiskSize - Returns the current size of the RamDisk
*
********************************************************************************
GetDiskSize	PROC
	longa on
	longi on

	lda >CurDiskSize
	sta 7,s
	lda >curDiskSize+2
	sta 9,s
	jmp QuickExit

	ENDP



	title 'Routines	for making the disk'
	eject
********************************************************************************
*
* MakeDisk - Creates a single handle for the ramdisk memory
*
* Outputs:     C=1 if failed  C=0 if Succeeded
*
********************************************************************************
MakeDisk	PROC
	longa on
	longi on

	stz |CurDiskSize	;Zero things out
	stz |CurDiskSize+2
	stz |DiskHandles
	stz |DiskHandles+2
	stz |FormatFlag	;Mark Unformatted
* First get the TotalMem size
	pushlong #0000
	_TotalMem
	pla
 	pla	;a = 64K banks of RAM

* Get maximum size.	 If > available then use the max available
	longa off
	longi off
	sep #$30
	dec A	;-2 since 0 & 1 not	used for ram disk
	dec A
	asl A	;A = # 32K chunks available
	cmp |MaxDiskParm	;Is it less than requested?
	blt TooBig	;Br if requested size is too big
	lda |MaxDiskParm	;Use the requested size
TooBig	tax	;This clears the high byte
	rep #$30
	longa on
	longi on
	txa	;a = # of 32K units in RamDisk
	beq NoDisk	;RD size is zero so exit
	pha	;save for later
	pushlong #0000	;space for newhandle result
	lsr A	;convert to units of 64K
	pha	;push hi word of length
	sta |CurDiskSize+2
	lda #0000
	ror A	;put 32K bit in msb
	pha	;push lo word of length
	sta |CurDiskSize
*  create the handle needed for the RAMdisk
	pushword #RDiskID	;Owner ID for the ramdisk
	pushword #Attr_NoSpec+Attr_Page  ;attributes for RAMdisk memory
	pushlong #0000	;any address please
	_NewHandle	
	pla
	sta hndl
	pla
	sta hndl+2
	bcs NoDisk2	;clear stack before BCS  01/19/89 JOA
	sta |DiskHandles+2
	lda hndl
	sta |DiskHandles	;Save the handle of the block
* deref the handle in hndl into the pointer addr
	geth_l hndl,addr,hndl_addr
* Now set the block	size
	pla	;get back # of 32K units
	tax	;save for zap
	asl A
	asl A
	asl A
	asl A
	asl A
	asl A	;A = # 512 byte blocks
	sta |BlockSize	;BlockSize = maxblock # +1
* Now I have to zero out the entire block!
zapnxt	lda #0000
	tay
@zlp	sta [addr],y
	iny
	iny
	bpl @zlp
	tya
	clc
	adc addr
 	sta addr
	bcc @10
	inc addr+2
@10	dex	;another 32K hunk to zap?
	bne zapnxt

Done	clc
	rts

NoDisk2	pla	;Fix the stack
	stz |CurDiskSize	;and clear the RD size
	stz |CurDiskSize+2	; so nobody thinks anything here
NoDisk	sec
	rts

	ENDP



********************************************************************************
*
* GetDiskBlock - Gets a block of the ram disk
*
* Inputs:      PCBlockNum = Block number
*
* Outputs:     hndl	= handle containing	disk
*              addr	= starting address of block in handle
*              C = 1 if unable to get block
*
* GetBlockA - Block	number is in the A reg
********************************************************************************
GetDiskBlock	PROC
	longa on
	longi on

	lda >PCBlockNum+2	;High word must be 0
	bne BadBlock
	lda >PCBlockNum

	ENTRY GetBlockA
GetBlockA		;       
	cmp |BlockSize
	bge BadBlock

* Get the 1 handle and add blocknum*512 to address

BlockOK	pha	;Save blocknumber for later
	lda |DiskHandles	;Get the handle we want
	sta hndl
	lda |DiskHandles+2	;Carry
	sta hndl+2	;hndl is handle containing block
	beq NoBlock	;Br if no ramdisk!!!!!

	geth_l hndl,addr,hndl_addr ;Get the address
* now add blocknum*512 to the addr 
	pla	;Get the block number again
	asl A	;Leaves C = 0 and A = block# * 2
	adc addr+1	;add at + 1 for block# * 256
	sta addr+1	;Thus addr = addr+(Blknum*512)
	clc
	rts

BadBlock	lda #PCBadBlk
	bra NoBlock2
NoBlock	lda #PCIOErr	;ioerror
	pla	;Fix the stack
NoBlock2	sta error
	sec
	rts

	ENDP



********************************************************************************
*
* RDFormat - Makes a catalog in the ramdisk if needed
*
* inputs: A = Protocol converter command
*
********************************************************************************
RDFormat	PROC
	longa on
	longi on

	cmp #$0005	;Don't format if PCinit
	beq NoFormat
	bit |FormatFlag	;Already formatted?
	bmi NoFormat

* Get the block and	put a catalog in it
	pha	;Save command #
	lda #$0000	;Index from block 0
	jsr GetBlockA
	bcs NoBlock	;Br if can't get block

	lda >ProFlag	;0 if pascal <>0 if	ProDOS
	ldx #PasCat-ProCat	;Assume Pascal
	ldy #$040E	;Y = where size goes
	and #$00FF
	beq IsPascal

* It's a prodos catalog
* First make the bit map
	lda |BlockSize
	lsr A	;Get # words in bitmap
	lsr A
	lsr A
	lsr A
	tay	;Y = # words
	xba	;Get # blocks in bitmap
	asl A
	and #$000F
	tax
	lda >BitMap,x	;First word has directory busy
	tyx
	ldy #$0C00	;Block 6 = bitmap
BitLoop	sta [addr],y
	iny
	iny
	lda #$FFFF	;Rest are FFs
	dex
	bne BitLoop

	ldx #0	;X = index into catalog table
	ldy #$0429	;Store number of blocks


IsPascal	lda |BlockSize	;Move the block size
	sta [addr],y

*
* This part moves the catalog
*
CatLoop	lda >ProCat,x
	inx
	inx
	cmp #Flag	;Address flag?
	bne NoFlag
	lda >ProCat,x	;Get new address
	beq NoMore	;Br if end of table
	inx
	inx
	tay
	bra CatLoop
NoFlag	sta [addr],y
	iny
	iny
	bra CatLoop

NoMore	lda #True
	sta |FormatFlag	;Mark Formatted

NoBlock	pla	;Get command # back
NoFormat	rts


* Catalog image
Flag	equ $FEFE	;Flag to mark address change

* This is the prodos catalog image Must	be an even number of bytes
ProCat		; 
	DC.W Flag	;Block 2
	DC.B $02,$04,$03,$00
	DC.B $F4
	DC.B 'RAM5'
	DC.B $00
	DC.W Flag
	DC.B $22,$04,$C3,$27,$0D,$00,$00,$06
	DC.W Flag	;Block 3
	DC.B $00,$06,$02,$00,$04,$00
	DC.W Flag	;Block 4
	DC.B $00,$08,$03,$00,$05,$00
	DC.W Flag
	DC.B $00,$0A,$04,$00
	DC.W Flag,	0

* Table of first word bitmaps
BitMap		; 
	DC.B $01,$FF	;Up to 2M
	DC.B $00,$FF	;4M
	DC.B $00,$7F	;6M
	DC.B $00,$3F	;8M
	DC.B $00,$1F	;10M
	DC.B $00,$0F	;12M
	DC.B $00,$07	;14M
	DC.B $00,$03	;16M

PasCat		; 
	DC.W Flag	;Block 2 byte 2
	DC.B $02,$04
	DC.B $06,$00,$00,$00,$04
	DC.B 'RAM5'
	DC.B $00
	DC.W Flag,	0



	ENDP



	title ' RamDisk Protocol Converter Command'
********************************************************************************
*
* ExecPCCmd - Executes a protocol converter command
*
* Extend calls are mapped into normal calls for dispatch
* The command table	is in real page 0
*
* Rev 2 change: returns 1 byte error code.  Word move was trashing byte count
*
*
********************************************************************************
ExecPCCmd	PROC
	longa on
	longi on

	jsl RDLink
	lda >PCCommand	;Get the command
	and #$00FF	;Only low word valid
	cmp #0010	;0 - 9 are normal calls
	bcc CmdOK
	and #%10111111	;40 - 49 -> 0 - 9
	cmp #0010
	bcc CmdOk
	jsr NotImp
	bra Cmdbadxit
CmdOK	jsr RDFormat	;Format the ramdisk	if needed
	asl A	;*2 for table look up
	tax
	jsr (PCDispatch,x)	;Go do the command

Cmdbadxit	sep #$20	;8 bit error code Rev 2 change
	lda error	;Get Error code
	sta >PCStatByte	;To return the error
	rep #$20	;back to 16 bits
	jmp XCleanUp	;All done

	ENTRY PCDispatch
PCDispatch		; 
	DC.W PCStatus	;0, $40 Status command
	DC.W PCReadBlk	;1, $41 Read Block
	DC.W PCWriteBlk	;2, $42 Write Block
	DC.W Null	;3, $43 Format
	DC.W PCControl	;4, $44 Control
	DC.W PCInit	;5, $45 Init
	DC.W NotImp	;6, $46 Open
	DC.W NotImp	;7, $47 Close
	DC.W NotImp	;8, $48 Read
	DC.W NotImp	;9, $49 Write

NotImp	lda #PCBadCmd	;Bad command
	sta error
Null	rts

	ENDP


********************************************************************************
*
* PCStatus - protocol converter status call
*
* Only calls 0 & 3 are valid
*
********************************************************************************
PCStatus	PROC
	longa on
	longi on

	lda >PCStatCode	;Get status code
	and #$00FF	;Only want low byte
	beq StatusOK	;Br if status 0
	cmp #$0003	;DIB call?
	beq StatusOK
	lda #PCBadCtl	;Return Bad Status Error
	sta Error
	rts




	ENTRY StatusOK
StatusOK		; 
	pha	;Save Code for later
	lda >PCBuffer	;Get the buffer
	sta dest
	lda >PCBuffer+2
	and #$00FF
	sta dest+2

	ldy #2	;If normal command 0 out 3rd and 4th
	lda >PCCommand	;Was it an extended	command?
	and #$0040
	beq NormCmd
	iny	;Else do the 4th and 5th
NormCmd	lda #0
	sta [dest],y
	iny
	iny	;Y = Bytes transferred (4 or 5)
	lda >BlockSize	;Get #Blocks
	tax	;Save for later
	beq Is0	;OffLine if Size 0
	lda #$00F8	;Mark OnLine
Is0	ora #$00E8	;If A was 0 then offline
	sta [dest]	;Give user the status
	txa
	tyx	;Now X has bytes transferred
	ldy #1
	sta [dest],y
	txy	;Y has transferred again
	pla	;Do we want the DIB	too?
	beq StatDone	;All done if call 0

* Now transferr the	DIB too
	sep #$30	;Easier Since it an	odd length table
	longa off
	longi off
	ldx #0	;Index into DIB
DIBLoop	lda >DIB,x
	sta [dest],y
	iny
	inx
	cpx #DIBLen
	blt DibLoop
	rep #$30
	longa on
	longi on

StatDone	tya	;Get # bytes transferred
	sta >PCXferCount
	rts

	ENDP



********************************************************************************
*
* PCReadBlk - Read a block from the ram	disk
*
* PCMove - entry point from PCWriteBlk to move 512 bytes of	data
*
********************************************************************************
PCReadBlk	PROC
	longa on
	longi on

	jsr GetDiskBlock	;Get the block
	bcs BadBlock	;Br if bad

; Set up parameters	to read block Source already set up in Addr
	lda >PCBuffer	;Get destination
	sta dest
	lda >PCBuffer+2
	and #$00FF
	sta dest+2

	ENTRY PCMove
PCMove		;       

	stz count+2	;Move 512 bytes
	lda #512
	sta count
	sta >PCXferCount
	jsl MoveData
BadBlock	rts

	ENDP


********************************************************************************
*
* PCWriteBlk - Writes a block to the ram disk
*
********************************************************************************
PCWriteBlk	PROC
	longa on
	longi on

	jsr GetDiskBlock	;Get the block
	bcs BadBlock	;Br if bad

	move_l addr,dest	;Get the data
	lda >PCBuffer	;Get source
	sta source
	lda >PCBuffer+2
	and #$00FF
	sta source+2
	bra PCMove	;Go move the data

BadBlock	rts

	ENDP



********************************************************************************
*
* PCControl - protocol converter control call
*
* Only call 0 (reset device)  is  valid
*
********************************************************************************
PCControl	PROC
	longa on
	longi on

	lda >PCStatCode	;Get control code
	and #$00FF	;Only want low byte
	beq ControlOK	;Br if reset
	lda #PCBadCtl	;Return Bad Status Error
	sta Error
ControlOK	rts

	ENDP



********************************************************************************
*
* PCInit -     Initialization call from	the protocol converter
*
********************************************************************************
PCInit	PROC
	longa on
	longi on

	lda #0
	sta >PCXferCount
	lda |BlockSize
	bne DiskOK	;Br if there is already a disk
	jsr MakeDisk
	bcc DiskOK
	lda #PCNoDrive	;No drive error
	sta error
DiskOK	rts

	ENDP


	Title 'Equates for the protocol converter'
********************************************************************************
*
* Equates for the protocol converter
*
********************************************************************************
PCData	PROC


* The Device information block
	ENTRY DIB
DIB		; 
	DC.B 7	;Name length
	;     1234567890123456
	DC.B 'RAMCARD         '
	DC.B $00	;Type
	DC.B $C0	;Extended and disk switched
	DC.B $00,$10	;Version

	ENDP





	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/MM/mm.equates.asm b/IIGS.601.SRC/GSToolbox/MM/mm.equates.asm
new file mode 100644
index 0000000..780e190
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/MM/mm.equates.asm
@@ -0,0 +1 @@
+********************************************************************************
*
* Global equates
*
********************************************************************************

*
* Constants
*
Version	equ $0300	;Version number
nil	equ 0	;Nil pointer value
true	equ $FFFF	;Boolean true
false	equ $0000	;Boolean false

* OwnerIDs
BusyID	equ $0000	;Non existent ram
RDiskID	equ $0001	;Ram disk memory
SaveID	equ $00FF	;Used to save through hard reset
HandleID	equ $F0FF	;ID number for creating handles

*
* Bank E1 memory equates
* addresses $E115FE	- $E11AFF are reserved for the memory manager
* addresses $E11680	- $E116FF is used by ramdisk
*
MMRam	equ $E115FE	;Beginning of our ram
MMRamEnd	equ $E11AFF	;Last byte of our ram

* Power up flag set	by monitor
PowerFlag	equ $E115FE	;High byte set to 0	by monitor

* Pointers to segment lists

MemList	equ $E11600	;List of used segments
PurgeList	equ $E11604	;List of used but empty handles
FreeList	equ $E11608	;List of free handles
Mem01	equ $E1160C	;Beginning of bank 1
Mem02	equ $E11610	;Beginning of bank 2
MemE0	equ $E11614	;Beginning of bank E0
MemE1	equ $E11618	;Beginning of bank E1
MemFF	equ $E1161C	;Last segment
GHSize	equ $E11620	;Handle Size global
* Other stuff

NumBanks	equ $E11624	;Number of 64K banks in machine

;-----------------------------------------------------------
;
; New Equates added by Steve Glass
;
; 29 Aug 88
;
LastLowHandle	equ $E11628
LastHighHandle	equ $E1162C
NewHandleCount	equ $E11630
ShortCutCount	equ $E11634
FirstOOMPtr	equ $E11638


NewDebugLoc	equ $FEFFFC
DisposeDebugLoc	equ $FEFFF8
;-----------------------------------------------------------



* RamDisk equates
BlockSize	equ $E11640	;Maximim size in blocks (word)
CurDiskSize	equ $E11642	;Current disk size in bytes
DiskHandles	equ $E11646	;Pointer to disk handles
FormatFlag	equ $E1164A	;Flag if formatted

PendingSysBeep2	equ $E1167E	;one word for SysBeep2/GetNextEvent (17-Sep-91 DAL)

* These are patchable vectors to low level routines
MMPatcher	equ $E11680	;Call to relink ram	based MM
WarmStart	equ $E11684
Link	equ $E11688
CleanUp	equ $E1168C
Search	equ $E11690
CheckFit	equ $E11694
Realloc	equ $E11698
GetFree	equ $E1169C
CreateHandles	equ $E116A0
MoveData	equ $E116A4
SearchFail	equ $E116A8
Compact	equ $E116AC
Purge	equ $E116B0
UserPurge	equ $E116B4
Restart	equ $E116B8




VLen	equ 4*15-2	;# bytes of vectors

HandleBuf	equ $E11700	;$E11700 - $E1AFF is used for handles

* Other $E1 equates
IncBusyFlg	equ $E10064	;Semaphore for scheduler
DecBusyFlg	equ $E10068	;Resets semaphore
IrqActive	equ $E100CB	;Byte <> 0 if in interrupt

* Battery ram equates
MinDiskParm	equ $E102F6	;Minimum disk parm in battery ram
MaxDiskParm	equ $E102F7	;Maximum disk parm $0-$10

*
* Zero page stuff
*
error	equ 1	;Error code
addr	equ error+2
Source	equ addr
attr	equ addr+4
Dest	equ attr	;Block Move Destination
owner	equ attr+2
size	equ owner+2
Count	equ size
hndl1	equ size+4
hndl2	equ hndl1+4
TempCount	equ hndl2	;Can't be handle1 for compact

hndl	equ hndl2+4
addr1	equ hndl+4
addr2	equ addr1+4

Retry	equ addr2+4
ZPSize	equ Retry+2-1	;# bytes we're adding to stack

numparms	equ Retry+2
return	equ numparms+2	;Users 2 return addresses
parms	equ return+6	;Parameters start here

* Parameters and function results

ParmHndl	equ parms	;Inputted handle for most calls
ResHndl	equ parms+12	;Handle returned by	newhandle
;		 and handle inputted by reallochandle


* End of zero page stuff

*
* The handle data structure
*
Hndl_Addr	equ 0	;4 byte address pointed to by handle
Hndl_Attr	equ 4	;2 byte attributes byte
Hndl_Owner	equ 6	;2 byte segment owner ID
Hndl_Size	equ 8	;4 byte size
Hndl_Prev	equ 12	;4 byte pointer to previous handle
Hndl_Next	equ 16	;4 byte pointer to next handle
HSize	equ 20	;Size of handle data structure

* Handle attributes	bits
Attr_Locked	equ $8000	;1 = Locked
Attr_Fixed	equ $4000	;1 = Not movable
Attr_System	equ $2000	;1 = System handle
Attr_Handle	equ $1000	;1 = block of handles
Attr_Purge	equ $0300	;0 = No purge 1-3 purge level
Attr_NoCross	equ $0010	;1 = May not cross banks
Attr_NoSpec	equ $0008	;1 = May not use special memory
Attr_Page	equ $0004	;1 = Page Aligned
Attr_Addr	equ $0002	;1 = Fixed address
Attr_Bank	equ $0001	;1 = Fixed bank



*
* Error codes
*
MFullErr	equ $0201	;Memory full error
NilErr	equ $0202	;Operation on a nil	handle
NotNilErr	equ $0203	;Operation on a non	nil handle
LockErr	equ $0204	;Operation on a locked block
PurgeErr	equ $0205	;Attempt to purge unpurgeable block
HandleErr	equ $0206	;Invalid handle inputted
IDErr	equ $0207	;Invalid owner
AttrErr	equ $0208	;Invalid attributes

OOMQueueDamaged	equ $0209	;The queue of out of memory routines is damaged


QueueSignature	equ $A55A


;=================================================
;
; Equates for the protocal converter.
;
* Zero page equates.  These are in real	zero page!!!
PCBuffer	equ $42	;Three bytes of buffer pointer
PCCommand	equ $45	;Protocol converter	command
PCBufferH	equ $47	;4th byte of buffer	pointer
PCBlockNum	equ $48	;Block number
PCStatCode	equ $48	;Status/Control code
PCStatByte	equ $50	;Error code
PCXferCount	equ $51	;Bytes transferred count

ProFlag	equ $00BF00	;<> 0 for ProDOS

* Error codes
PCBadCmd	equ $01	;Bad command number
PCBadCtl	equ $21	;Bad Ctl or Status code
PCIOErr	equ $27	;I/O error
PCNoDrive	equ $28	;No device error
PCBadBlk	equ $2D	;Bad Block number

DIBLen	equ 21	;Length of DIB


\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/MM/mm.loader.asm b/IIGS.601.SRC/GSToolbox/MM/mm.loader.asm
new file mode 100644
index 0000000..f882b5e
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/MM/mm.loader.asm
@@ -0,0 +1 @@
+	include 'all.macros'
	include 'e16.locator'


MMLoader	PROC

True	equ $FFFF
False	equ 0

MyHandle	equ 0
MyPointer	equ 4
Ptr	equ 8


TheUserID	equ $B002

	phk
	plb

;-----------------------------------------------------------
;
; Get memory for use with the message center
;
	pha
	pha
	PushLong #4
	PushWord #TheUserID
	PushWord #0
	pha
	pha
	_NewHandle
	PullLong MyHandle

;-----------------------------------------------------------
;
; Get the old TSPtr from the message center.
;
	PushWord #GetMessage
	PushWord #TheUserID
	PushLong MyHandle
	_MessageCenter
	bcs NothingThereNow


	lda [MyHandle]
	sta MyPointer
	ldy #2
	lda [MyHandle],y
	sta MyPointer+2


	lda >$E103C0
	sta Ptr
	lda >$E103C0+2
	sta Ptr+2

	lda [MyPointer]
	ldy #8
	sta [Ptr],y
	ldy #2
	lda [MyPointer],y
	ldy #8+2
	sta [Ptr],y


;-----------------------------------------------------------
;
; Unload last patch
;

	pha	; space for result
	PushWord #TheUserID
	PushWord #0
	_UserShutdown

	pla


NothingThereNow



	lda [MyHandle]
	sta MyPointer
	ldy #2
	lda [MyHandle],y
	sta MyPointer+2



	pha
	pha
	PushWord #0
	PushWord #2
	_GetTSPtr

	pla
	sta [MyPointer]
	pla
	ldy #2
	sta [MyPointer],y

	
	PushWord #AddMessage
	PushWord #TheUserID
	PushLong MyHandle
	_MessageCenter


	PushLong MyHandle
	_DisposeHandle



	pha	; space for dir page stack size
	pha	; space for addr of	dir page stack seg
	pha	; space for starting addr
	pha
	pha	; space for user id
	PushWord #TheUserID	; user id
	PushLong #TheName	; ptr to path name
	PushWord #True
	_InitialLoad
	bcs Die

	pla	; ignore userid
	pla	; put starting address
	sta TableAddress
	pla
	sta TableAddress+2
	pla	; ignore dir page
	pla	; ignore dir page size


	lda >$C062
	and #$0080
	beq @NoBreak
	brk 17
@NoBreak



	PushWord #0	; system call
	PushWord #2	; install the patch
	PushLong TableAddress
	_SetTSPtr
	
	_SetDefaultTPT

	_Quit QuitParams


QuitParams	DC.L 0
	DC.W 0


TheName	str '1/MM.IN.RAM'

TableAddress	DS.B 4





Die		; 
	pha
	PushLong #ErrorString
	_SysFailMgr

ErrorString	str 'Could not load.  Error was $'

	ENDP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/MM/mm.macros b/IIGS.601.SRC/GSToolbox/MM/mm.macros
new file mode 100644
index 0000000..e07aaba
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/MM/mm.macros
@@ -0,0 +1 @@
+
               MACRO
&lab           Push_L   &Memory
&lab           lda      &Memory+2
               pha
               lda      &Memory
               pha
               MEND

               macro
&lab           pop_l    &Memory
&lab           pla
               sta      &Memory
               pla
               sta      &Memory+2
               mend

               MACRO
&lab           Push_W   &Memory
&lab           lda      &Memory
               pha
               MEND

               Macro
&lab           Pop_W    &Memory
&lab           pla
               sta      &Memory
               mend

               macro
&lab           cmp_w    &Memory1,&Memory2
&lab           lda      &Memory1
               cmp      &Memory2
               mend

               macro
&lab           cmp_l    &Memory1,&Memory2
&lab           lda      &Memory1
               cmp      &Memory2
               lda      &Memory1+2
               sbc      &Memory2+2
               mend

               macro
&lab           move_w   &Source,&Dest
&lab           lda      &Source
               sta      &Dest
               mend

               macro
&lab           move_l   &Source,&Dest
&lab           lda      &Source
               sta      &Dest
               lda      &Source+2
               sta      &Dest+2
               mend

               macro
&lab           geth_l   &Hndl,&Addr,&Attr
&lab           
               if       &Attr='' goto .YOK
               ldy      #&Attr
.YOK
               lda      [&Hndl],y
               sta      &Addr
               iny
               iny
               lda      [&Hndl],y
               sta      &Addr+2
               mend

               macro
&lab           geth_w   &Hndl,&Addr,&Attr
&lab           
               if       &Attr='' goto .YOK
               ldy      #&Attr
.YOK
               lda      [&Hndl],y
               sta      &Addr
               mend

               macro
&lab           seth_l   &Addr,&Hndl,&Attr
&lab           
               if       &Attr='' goto .YOK
               ldy      #&Attr
.YOK
               lda      &Addr
               sta      [&Hndl],y
               iny
               iny
               lda      &Addr+2
               sta      [&Hndl],y
               mend

               macro
&lab           seth_w   &Addr,&Hndl,&Attr
&lab           
               if       &Attr='' goto .YOK
               ldy      #&Attr
.YOK
               lda      &Addr
               sta      [&Hndl],y
               mend
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/MM/peeker.asm b/IIGS.601.SRC/GSToolbox/MM/peeker.asm
new file mode 100644
index 0000000..1e44f70
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/MM/peeker.asm
@@ -0,0 +1 @@
+	title 'Memory Peeker Desk Accessory'
********************************************************************************
*
* Memory Peeker
*
* by Rich Williams May 1986
*
* This is a classic	DA that displays the memory lists
* This is not part of the memory manager at all and is included because
* there is extra room
*
* Rev 2 changes
* 1) Shutdown call added (just an RTL)
*
*
* Change History
*
* ?? ??? ??	Rich Williams
*
* Added shutdown call for version 2.0 of rom.
*
*
* 23 Aug 88	Steven Glass
*
* Separated this code from memory manager.
* Changed way lists are paused and interrupted.
*
*
********************************************************************************
	include 'all.macros'

	include 'mm.equates.asm'

;-----------------------------------------------------------
;
; These are variables used in zero page
; the DA manager saves and restores zero page for us
;
;
; Note that the order of the variables after the event record
; is very important.  The code that draws the handle relys on the
; buffer being 5 bytes past MyCount.  It also relys on Ptr being
; only 3 bytes long.
;
	DSect $80
EventRecord	word 
EventMessage	long
EventWhen	long
EventWhere	long
EventMods	word
EventType	equ EventRecord
EventKey	equ EventMessage


Mycount	word
Ptr	block 3
buffer	block HSize
MyDelta	long
MyTotal	long
line	long


ptr2	equ Buffer+hndl_next




****************************************************************
*
InstallPeekerDA	PROC EXPORT
*
* This is the code that installs the peeker desk accessory.
*
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
	import Peeker
	import PeekerID
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

	longa on
	longi on


	if DebugVersion then

	lda #0
	tcd
	jsl Peeker
	_Quit QuitParams

QuitParams	dc.L 0,0


	ENDIF

	rep #$30	;Make sure 16 bits

	PushLong #PeekerID
	_InstallCDA

	rtl


	ENDP


****************************************************************
*
Peeker	PROC
*
* This is the code that runs the DA.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
	import Freeze
	import ReadKey
	import B3
	import PrintThisLine
	import DoLine
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

*
* First initialize the output to the screen
*

	pea 0	;Get Output device
	pea 0
	pea 0
	_GetOutputDevice

	pea 0
	pea 0
	_GetOutGlobals

	pea $00FF
	pea $0080
	_SetOutGlobals

	pea $0000
	pushlong #00000003
	_SetOutputDevice

	pea 0
	_InitTextDev
	pea 1
	_InitTextDev



DoTrace	rep #$30
	PushLong #Prompt	;Print the prompt line
	_WriteLine

GetKey	jsr ReadKey
	and #$007F	;Force upper case &	high byte clear
	cmp #'a'
	bcc Upper
	eor #$0020
Upper	cmp #'U'
	beq UList	;Used list
	cmp #'P'
	beq PList	;Purged list
	cmp #'F'
	beq FList	;Free list
	cmp #'Q'	;Quit
	bne GetKey	;Invalid character.	 Go get another

Done	rep #$30
	_SetOutGlobals	;Restore the globals
	_SetOutputDevice	;Set the output device

	ENTRY PeekerRTL
PeekerRTL		;       ;Shut down call does nothing
	rtl	;Back to the DA manager





UList	ldx #0	;Memlist
	bra doit
PList	ldx #4	;EmptyList
	bra doit
FList	ldx #8	;FreeList
	bra doit



doit		; 
	php	;Save interrupt status
	lda >MeMList,x	;Get the list to do
	sta Ptr
	lda >MemList+2,x
	sta Ptr+2

	stz mycount	;Handle count
	stz MyTotal	;Free space
	stz MyTotal+2

	pushlong #TitleLine
	_WriteLine

	sep #$30
	longa off
	longi off

prloop	
	jsr Freeze
	bcs NoTotal

	lda ptr	;Nil pointer?
	ora ptr+1
	ora ptr+2
	bne NotDone	;Br if not nil
	lda MyTotal	;If total = 0 don't	print it
	ora MyTotal+1
	ora MyTotal+3
	beq NoTotal

	ldx #60	;Print the total free space
MoveTotal	lda >TotalLine,x
	sta Line,x
	dex
	bpl MoveTotal
	ldx #MyTotal-MyCount
	jsr b3
	jsr DoLine



NoTotal	plp	;Restore int status
	jmp Dotrace	;Done with list. Go	prompt for another

NotDone	stz line	;New line

	ldy #Hsize-1	;Move the info from	the handle into ZP
mvloop	lda [ptr],y
	tyx
	sta Buffer,x
	dey
	bpl mvloop



	jsr PrintThisLine

	bra prloop



;-----------------------------------------------------------
;
; Header lines used above.
;
Prompt	dc.b 50
	dc.b 'U= Used list  P= Purge list  F= Free list  Q= Quit'

TitleLine	dc.b 52,$8D,$8D
	dc.b '#    Handle  Addr  Attr  ID    Size    Prev   Next'

TotalLine	dc.b 53,$8D
	dc.b '                                  Total Free Memory ='
	dc.b '        '



	ENDP

****************************************************************
*
PrintThisLine	PROC
*
* This is the routine that prints the contents of the
* handle in buffer.  It also prints the free space between
* this handle and the next (if there is any.
*
*
* Inputs:
*	Buffer contains the handle to print
*	MyCount contains the number of this handle
*
* Outputs:
*	PTR is updated to point to the next handle.
*
* External Refs:
*	none
*
* Entry Points:
	ENTRY B3
	ENTRY DoLine
*
* Called in 8 bit native mode!
	longa off	; mode
	longi off
*
****************************************************************


	rep #$20
	longa on

	stz MyDelta	;MyDelta = free space after block
	stz MyDelta+2

	lda ptr2
	ora ptr2+2	;Nil?
	beq NoDelta

	ldy #2	;Addr of next can't	be 0
	lda [ptr2]
	ora [ptr2],y
	beq NoDelta


	lda [ptr2]	;Calc free space after block
	sec
	sbc [ptr]
	sta MyDelta
	lda [ptr2],y
	sbc [ptr],y
	sta MyDelta+2
	lda MyDelta
	sec
	sbc Buffer+hndl_size
	sta MyDelta
	lda MyDelta+2
	sbc Buffer+hndl_size+2
	sta MyDelta+2

	lda MyDelta	;Add to total
	clc
	adc MyTotal
	sta MyTotal
	lda MyDelta+2
	adc MyTotal+2
	sta MyTotal+2

NoDelta	inc MyCount	;Inc handle count

	sep #$30
	longa off
	longi off

* Now print out the	info from the handle

	ldx #0	;Handle #
	jsr b2

	ldx #2	;Handle address
	jsr b3

	ldx #Hndl_Addr+5	;Block address
	jsr b3

	ldx #Hndl_Attr+5	;Attributes
	jsr b2

	ldx #Hndl_Owner+5	;Owner
	jsr b2

	ldx #Hndl_Size+5	;Size
	jsr b4

	ldx #Hndl_Prev+5	;Pointer to previous
	jsr B3

	ldx #Hndl_Next+5	;Pointer to next
	jsr B3

	jsr DoLine	;Print the line

	lda MyDelta	;Any Delta?
	ora MyDelta+1
	ora MyDelta+2
	beq NoDelta2

	rep #$30	;for the free space, figure where it starts
	longa on
	longi on
	lda Buffer+Hndl_Addr
	clc
	adc Buffer+Hndl_Size
	sta Buffer+Hndl_Addr
	lda Buffer+Hndl_Addr+2
	adc Buffer+Hndl_Size+2
	sta Buffer+Hndl_Addr+2
	lda Buffer+Hndl_Addr
	bne @NoCarry
	lda Buffer+Hndl_Addr+2
@NoCarry


	lda MyDelta	;and how big it is
	sta Buffer+Hndl_Size
	lda MyDelta+2
	sta Buffer+Hndl_Size+2

	sep #$30
	longa off
	longi off

	ldy #4+1+6+1
	jsr blanks

	ldx #Hndl_Addr+5	;Block address
	jsr b3


	ldy #1+4+4+1
	jsr blanks
	
	ldx #Hndl_Size+5	;Size
	jsr b4

	jsr DoLine	;Print the line

NoDelta2


	ldx #3	;Go to the next handle
mvlp2	lda Ptr2,x
	sta Ptr,x
	dex
	bpl mvlp2

	rts



;-----------------------------------------------------------
;
; Code that prints the parts of the handle.  On entry,
; the x-reg holds the offset from MyCount of the item
; to print.
;
; After an item is printed, a blank is printed.
;

b4	phx	;Print 4 byte number
	lda mycount+3,x
	jsr prbyte
	plx
b3	phx	;Print 3 byte number
	lda mycount+2,x
	jsr prbyte
	plx
b2	phx	;Print 2 byte number
	lda mycount+1,x
	jsr prbyte
	plx
b1	lda mycount,x	;Print 1 byte number
	jsr prbyte
	jsr prblnk	;Print a blank

	rts

;-----------------------------------------------------------
;
; Puts a hex byte in the output buffer.
;
prbyte
	pha
	lsr A
	lsr A
	lsr A
	lsr A
	jsr prbyte2
	pla
	and #$0F

prbyte2 
	ora #$B0
	cmp #$BA
	bcc cout
	adc #6

cout	ldx line	;Put char in output	buffer
	sta line+1,x
	inc line
	rts


;-----------------------------------------------------------
;
; Puts the number of blanks passed in the y-reg into
; the output buffer.
;
Blanks
	cpy #0
	beq @Done

@again	jsr prblnk
	dey
	bne @again
@done	rts



;-----------------------------------------------------------
;
; Puts one blank in the output buffer.
;
prblnk		;Prints a blank
	lda #$A0
	bra cout


;-----------------------------------------------------------
;
; Actually prints the line buffer and zeros the line 
; size count
DoLine	rep #$30	;Print the line
	longa on
	longi on

	PushLong #Line
	_WriteLine
	sep #$30
	longa off
	longi off
	stz Line	;Line index set to 0 for new line
	rts

	ENDP



****************************************************************
*
PeekerID	PROC
*
* This is the data that defines a classic desk accessory.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


	DC.L PeekerName	; pointer to real id section.
	dc.w 0	; just in case someone wants to lock us

PeekerName	str 'Memory Peeker'	; da name
	DC.L Peeker	; pointer to peeker routine
	DC.L PeekerRTL	; pointer to ShutDown call


	ENDP



****************************************************************
*
ReadKey	PROC
*
* Reads key from keyboard using the event manager or
* the hardware (as necessary).
*
*
* Inputs:
*	none
*
* Outputs:
*	a-reg   the key read
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

;
; First try using the event manager
;
Again
	pha	; space for result
	PushWord #$FFFF	; all events
	PushLong #EventRecord
	_GetNextEvent
	bcs ReadItMyself

	pla
	beq Again

	lda EventType
	cmp #3	; key down
	beq GotAKey
	cmp #5	; auto key down
	bne Again

GotAKey	lda EventKey

	rts



ReadItMyself		; 
	pla

	sep #%00110000
Loop	lda >$E0C000
	bpl Loop
	sta >$E0C010
	rep #%00110000

	and #$007F

	rts
	ENDP


KeyDown	PROC

; if the event manager is active i need	to get keys from
; it.
	PushWord #0	; space for result
	PushWord #%0000000000101000
	PushLong #EventRecord
	_EventAvail
	bcs ReadItMyself

	pla
	beq NoKeyDown
	bra YesKeyDown



ReadItMyself		; 
	pla
	sep #%00110000
Loop	lda >$E0C000
	rep #%00110000

	bpl NoKeyDown

YesKeyDown	sec
	rts

NoKeyDown	clc
	rts
	ENDP



****************************************************************
*
Freeze	PROC
*
* This routine looks at the keyboard.  If there is a key pending
* it reads it.  If the key is ESCAPE, we report done
* If it is not escape, we wait for another key.  If that one
* is ESCAPE, we report done.  Otherwise we report not done.
*
*
* Inputs:
*	none
*
* Outputs:
*	carry clear = not done
*	carry set   = done
*
* External Refs:
	import ReadKey
	import KeyDown
*
* Entry Points:
*	none
*
*
* Wow!   This is called in 8bit native mode. and it returns that
* way.
*
	longa off	; mode
	longi off
*
****************************************************************
	php	; save mode
	rep #$30
	longa on
	longi on

	jsr KeyDown
	bcc Done

	jsr ReadKey	; clear this key
	cmp #27	; if esc then signal quit
	beq Quit

	jsr ReadKey	; Wait for next key
	cmp #27	; if esc then signal quit
	bne Done 


Quit	plp
	sec
	rts

Done	plp
	clc
	rts

	ENDP





	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/MediaCtlTool/MediaCtrlMgr.asm b/IIGS.601.SRC/GSToolbox/MediaCtlTool/MediaCtrlMgr.asm
new file mode 100644
index 0000000..6bb2039
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/MediaCtlTool/MediaCtrlMgr.asm
@@ -0,0 +1 @@
+**************************************************************************************

**************************************************************************************
*
*	 Copyright Apple Computer, Inc. 1986-1990
*	            All Rights Reserved
*
**************************************************************************************


**************************************************************************************
	blanks off
	string asis
**************************************************************************************
;
; MEDIA CONTROL TOOLSET (TOOL038)
;
; This toolset was derived from the print manager and as such has lots of stuff refering
; to printers.  Just ignore them for now until I get a chance to clean up the source code
; and put in appropriate comments.
;
; CHANGE HISTORY
;
; D6 (DDH)
; 2/?/90	-Initial release
;
; D7 (DDH)
; 3/?/90	-Just a few minor changes
;
; D8 (DDH)
; 3/15/90	-In MCStartup, I took out the passed direct page parameter and now
;	 the toolset uses a direct page stack frame.
;	-Took out code that was specific to port drivers (loading, unloading
;	 and dispatching.)
;	-We now have MCLoadDriver and MCUnLoadDriver calls.
;	-Renamed MCReadPos to MCGetPosition.
;
; D9 DDH
; 4/6/90	-Changed some equates
;	-Fixed a bug with crashing when no driver, or media.setup file was present
;	-Fixed so wont crash if no driver is present.
;	-Cleaned up some code.
; D12 DDH
; 5/24/90	-Changed so drivers are restartable now (MCStartup, MCShutdown is now designed
;	 to facilitate restartability)
; D13 DDH
; 6/5/90	-Cleaned up documentation
;
; D15 DDH
; 8/23/90	-Added MCCvtTime2Bin and MCCvtBin2Time routines
; 	-Added MCGetFeatures routine
;	-Added MCStop routine
;
; D16 (DDH)
;	-Incorporated MCGetDiscTitle, MCGetTrackTitle, MCGetDiscProgram,
;	 MCSetDiscTitle, MCSetTrackTitle, MCSetDiscProgram
;	-Tool should be alpha now
; D17 (DDH)
;	-Added new directory level for media control stuff
;	 "*/System/Drivers/Media.Control"
; D19 (DDH)	-Changed MCGetErrorMsg, MCGetDiscTitle, MCGetTrackTitle, MCGetName,
;	 MCGetSpeeds to pass a pointer to the returned string buffer instead of
;	 using TMLPascal's string function method.
; D20 (DDH)
;	-Changed MCGetErrMsg to return the passed error message back as the
;	 error indication if it doesn't have an error message specifically
;	 for it (it then passes back the default error message.)
; D21 (DDH)
;	-MCStartUp returns error if already started up
;	-MCShutdown return error if already shutdown
;
; D23 (DDH)
;	-Added MCSetVolume call
;
; D24 (DDH)	-Added IncBusyFlg stuff because were not reenterant (drivers do DecBusyFlg)
;
;
; D35 (DDH)	-Fixed McGetName to return MCToolkit NoPlayer if nothing connected.
;
;-----------------------------------------------------------------------------------------------

	include 'MediaCtrlMgr.equ'
	include 'all.macros'
	include 'special.macros'
	include 'e16.dialog'
	title 'Media Control Toolset, Version 1.0'

;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------
	IMPORT MessLength320
	IMPORT MessLength640
	IMPORT Msg1_320
	IMPORT Msg2_320
	IMPORT Msg1_640
	IMPORT Msg2_640
	IMPORT WhatMessage320
	IMPORT WhatMessage640
	IMPORT alerttemp320
	IMPORT alerttemp640
	IMPORT UseCtrlPanelMsg_320
	IMPORT UseCtrlPanelMsg_640
	IMPORT EndUseCPMsg_320
	IMPORT EndUseCPMsg_640
	IMPORT EndMsg1_320
	IMPORT EndMsg2_320
	IMPORT EndMsg1_640
	IMPORT EndMsg2_640
	IMPORT OKButtonStr
	IMPORT CancelButtonStr
	IMPORT InsertDiskStr
	

	
;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

	ENTRY AppendString
	ENTRY AppleTalkOn
	ENTRY AppleTalkStr
	ENTRY CloseID
	ENTRY CloseParams
	ENTRY CloseSetup
	ENTRY CloseSetupID
	ENTRY CloseSetupParams
	ENTRY CopyString
	ENTRY CreateSetupParams
	ENTRY CurrentDriver
	ENTRY CurrentNetName
	ENTRY CurrentPort
	ENTRY CurMediaDriver
	ENTRY CurMediaDriver1
	ENTRY CurMediaDriver2
	ENTRY CurrentUser
	ENTRY CurrentZoneName
	ENTRY DefaultPort
	ENTRY DefaultPrinter
	ENTRY DefaultSetup
	ENTRY DefaultZone
	ENTRY DerefTemp1ToTemp2
	ENTRY DestroyParams
	ENTRY DirPath
	ENTRY Dispatch
	ENTRY DispatchAdr
	ENTRY DisposePortList
	ENTRY DisposePrinterList
	ENTRY DriverError
	ENTRY DriverPath
	ENTRY DriverSubPath
	ENTRY DummyDriver
	ENTRY EndSetupFileInfo
	ENTRY EntryAuxType
	ENTRY EntryName
	ENTRY EntryType
	ENTRY EqualString
	ENTRY Err0
	ENTRY Err10
	ENTRY Err12
	ENTRY Err2
	ENTRY Err4
	ENTRY Err6
	ENTRY Err8
	ENTRY Exit0
	ENTRY Exit2
	ENTRY Exit4
	ENTRY Exit6
	ENTRY Exit8
	ENTRY Exit10
	ENTRY FreeFrame
	ENTRY GetDirID
	ENTRY GetDirParams
	ENTRY GetEOFID
	ENTRY GetEOFParams
	ENTRY GetFileParams
	ENTRY GetMem
	ENTRY InitCursor
	ENTRY InsertPortList
	ENTRY InsertPrinterList
	ENTRY Length
	ENTRY ListSize
	ENTRY LoadSomething
	ENTRY MCCvtTime2Bin
	ENTRY MCCvtBin2Time
	ENTRY MCGetErrorMsg
	ENTRY MCLoadDriver
	ENTRY MCUnLoadDriver
	ENTRY NoAppleTalk
	ENTRY NumPorts
	ENTRY NumPrinters
	ENTRY OpenID
	ENTRY OpenParams
	ENTRY OpenSetup
	ENTRY OpenSetupID
	ENTRY OpenSetupParams
	ENTRY MCActive
	ENTRY MCBootInit
	ENTRY MCReset
	ENTRY MCShutDown
	ENTRY MCStartup
	ENTRY MCVersion
	ENTRY PathBuffer
	ENTRY PmGetPortName
	ENTRY PmGetPrinterName
	ENTRY PmInsertDisk
	ENTRY PmSetPortName
	ENTRY PmSetPrinterName
	ENTRY PortInMem
	ENTRY PortList
	ENTRY PortListSize
	ENTRY PostAlert
	ENTRY PrChooser
	ENTRY MediaDriverID
	ENTRY DriverInMem
	ENTRY PrinterList
	ENTRY PrinterListSize
	ENTRY ReadSetUpFile
	ENTRY ReadSetupID
	ENTRY ReadSetupParams
	ENTRY SetCurrentDriver
	ENTRY SetCurMediaDriver
	ENTRY SetupDriverLists
	ENTRY SetupFileInfo
	ENTRY SetupFileName
	ENTRY SetupFrame
	ENTRY SizeOfFile
	ENTRY TheEntry
	ENTRY TransferCount
	ENTRY UnLoadCurMediaDriver
	ENTRY WaitCursor
	ENTRY WriteSetupFile
	ENTRY WriteSetupID
	ENTRY WriteSetupParams
	ENTRY insertdisk
	ENTRY loadCurMediaDriver
	ENTRY mcDummy
;
	Entry mcGetName
	Entry mcDStartUp
	Entry mcDShutDown
	Entry mcGetFeatures
	Entry mcPlay
	Entry mcPause
	Entry mcSendRawData
	Entry mcGetStatus
	Entry mcControl
	Entry mcScan
	Entry mcGetSpeeds
	Entry mcSpeed
	Entry mcStopAt
	Entry mcJogN
	Entry mcSearchTo
	Entry mcSearchDone
	Entry mcSearchWait
	Entry mcGetPosition
	Entry mcSetAudio
	Entry mcGetTimes
	Entry mcGetDiscTitle
	Entry mcSetDiscTitle
	Entry mcGetNoTracks
	Entry mcGetTrackTitle
	Entry mcSetTrackTitle
	Entry mcGetProgram
	Entry mcSetProgram
	Entry mcGetDiscTOC
	Entry mcGetDiscID
	Entry mcRecord
	Entry mcStop
	Entry mcWaitRawData
	Entry mcSetVolume


;
	ENTRY MChannel
	ENTRY MChannel2
	ENTRY MChannel4
	ENTRY CP2Addr
	ENTRY CDAddr


	EXPORT CallTable
CallTable	PROC
TheStart		;
	DC.L (TheEnd-TheStart)/4
	DC.L MCBootInit-1	       	;1
	DC.L MCStartup-1	       	;2
	DC.L MCShutDown-1	       	;3
	DC.L MCVersion-1	       	;4
	DC.L MCReset-1	       	;5
	DC.L MCActive-1	       	;6
	DC.L mcDummy-1		;7 ***Dummy routine (Reserved)	
	DC.L mcDummy-1		;8 ***Dummy routine (Reserved)	
	DC.L mcGetErrorMsg-1     	;9 Gets error description	
	DC.L mcLoadDriver-1		;10 Loads a media ctrl driver	
	DC.L mcUnLoadDriver-1	;11 UnLoads a media ctrl driver	
	DC.L MCCvtTime2Bin-1	;12 Convert BCD time to Binary routine	
	DC.L MCCvtBin2Time-1	;13 Comvert Binary Time to BCD routine	
	DC.L mcGetTrackTitle-1	;14 Gets tracks title	
	DC.L mcSetTrackTitle-1	;15 Set tracks title	
	DC.L mcGetProgram-1		;16 Gets the programmed data	
	DC.L mcSetProgram-1		;17 Sets the program for the disc	
	DC.L mcGetDiscTitle-1	;18 Gets disc title
	DC.L mcSetDiscTitle-1	;19 Sets disc title
	DC.L mcDStartUp-1		;20 Driver Startup routine	
	DC.L mcDShutDown-1		;21 Driver Shutdown routine
	DC.L mcGetFeatures-1	;22 Returns drivers features 	
	DC.L mcPlay-1		;23 Play command
	DC.L mcPause-1		;24 Pause command
	DC.L mcSendRawData-1	;25 Send raw data routine
	DC.L mcGetStatus-1		;26 Get status routine	
	DC.L mcControl-1		;27 Sets device control info	
	DC.L mcScan-1		;28 Scan forward or reverse
	DC.L mcGetSpeeds-1		;29 Get Speeds routine
	DC.L mcSpeed-1		;30 Sets speed of device	
	DC.L mcStopAt-1		;31 Sets stopping point
	DC.L mcJogN-1		;32 Jogs N no. of units	
	DC.L mcSearchTo-1		;33 Gets status of if done	
	DC.L mcSearchDone-1		;34 Waits for done
	DC.L mcSearchWait-1		;35 Waits for search to finish	
	DC.L mcGetPosition-1	;36 Returns current positionn	
	DC.L mcSetAudio-1		;37 Controls Audio	
	DC.L mcGetTimes-1		;38 Gets disc times	
	DC.L mcGetDiscTOC-1		;39 Get disc table of contents	
	DC.L mcGetDiscID-1		;40 Get discs ID	
	DC.L mcGetNoTracks-1	;41 Gets disc's no. of tracks
	DC.L mcRecord-1		;42 Turns the record mode on	
	DC.L mcStop-1		;43 Stops the device
	DC.L mcWaitRawData-1	;44 Waits for raw data from the device
	DC.L mcGetName-1		;45 Gets drivers name and version no.
	DC.L mcSetVolume-1		;46 Sets the device's volume		
	

;	DC.L PrChooser-1	      	;22*********??????
;
;
;	DC.L PMInsertDisk-1	      39
;	DC.L PMGetPrinterName-1   40
;	DC.L PMGetPortName-1      41

;	DC.L PMSetPrinterName-1   44
;	DC.L PMSetPortName-1      45

TheEnd		
	ENDP
****************************************************************
*
* SetUpFrame
*
* Creates a stack direct page frame (saves direct page memory)
*
* The Stack should look like this when we leave:
*	DEFINESTACK
* DPFrame	Block DirectStack
* Bsave	Byte
* Dsave	WORD
*
*****************************************************************
	EXPORT SetUpFrame
SetUpFrame	PROC
;First inc. busy flag because were not reentereant
	jsl IncBusyFlg	;inc. busy flag

;Now save registers and setup environment
	phb	; save dbr
	phk	; set data bank to programs bank
	plb	
	sta aregsave	;save a-reg. for restoring later
	
	DEFINESTACK
MyBReg	BYTE
MyRTS	WORD
	lda MyRTS,s
	sta RTSSave	;save the rts so we can return
	phd	;get current direct page
	pla	;put into a-reg.
	sta MyRTS,s	;put where RTS was on stack
	
;Now, reserve DirectStack bytes from stack for direct page
	tsc							;get stack value
	sec
	sbc #DirectStack	;reserve bytes for d-page
	tcs
	inc a						;inc. by one for d-page start
	tcd	;set direct page address
	
;Now, restore the RTS address on stack and restore the A-reg.
	lda RTSsave	;get rts addres
	pha	;put rts back on stack
	lda aregsave	;restore the a-reg.
	rts
	
aregsave	ds.w 1	;a-reg. save area
RTSSave	ds.w 1	;saved rts
	ENDP
****************************************************************
*
* FreeFrame
*
* Releases the created stack direct page
*
*****************************************************************
	EXPORT FreeFrame
FreeFrame	PROC

;First, get the rts from the stack
	ply	;get rts into y-reg.
;Now restore the environment
	tax	;save error in x-reg.
;releases DirectStack bytes from stack
	tsc							;get stack value
	clc
	adc #DirectStack	;release bytes
	tcs

	plb
	pld
	phy	;take y-reg. to restore the rts
	rts	;return
	
	ENDP

****************************************************************
*
* MCBootInit & MCReset
*
* Does nothing.
*
*****************************************************************
	EXPORT MCBootInit
MCBootInit	PROC
	EXPORT MCReset
MCReset
	EXPORT mcDummy
mcDummy
	lda #0
	clc
	rtl
	ENDP


*****************************************************************
*
* MCStartup
*
*       UserID	  word
*       DirectPage	  word
*
*****************************************************************
	EXPORT MCStartup
MCStartup	PROC

	DefineStack
DPFrame	Block DirectStack	;direct page stack frame
OrigB	BYTE
OrigD	WORD
RTL1	BLOCK 3
RTL2	BLOCK 3
UID	WORD
	
	jsr SetupFrame	;setup direct page stack frame

;First see if were already started
	lda StartedFlag	;get flag
	bne OKStartIt	;branch if not already started
	lda #WasStarted	;return error, was already started
	brl Exit2

OKStartIt
	stz StartedFlag	;clear flag indicating started up
	
	lda UID,s	;Save passed userID
	sta UserId

;----------------------------------------------------------
;
; Setup Driver lists, read setup file and load
; appropriate drivers.
;
;	pha
;	_ListVersion	; check if list manager is loaded or not
;		; if not start it up just in case
;		; someone wants to select Choose Printer
;	pla
;	bcc AllIsWell
;
;	PushWord #28
;	PushWord #0
;	_LoadOneTool
;
;AllIsWell		;


;Now check to see if we need to restart any drivers (MediaDriverID <>0)
	ldx #14
	stx StartUpCtr
RestartLoop
	ldx StartUpCtr
	lda MediaDriverID,x	;get drivers ID
	beq NoRestart	;branch if zero (nothing previously loaded)
	pha	;space for results
	pha
	pha
	pha
	pha
	pha	;pass userid of driver
	_Restart	;attempt to restart driver
	bcc RestartOK	;branch if no errors
;We arrive here with an error attempting to restart a driver
	ldx StartUpCtr
	stz MediaDriverID,x
	pla	;now just strip the results off
	pla
	pla
	pla
	pla
	bra NoRestart	;go do next one
;We arrive here with a successful restart
RestartOK
	pla	;get userid in a-reg
	sta TempID	;save it for now
	plx	;adr in x and y
	ply
	pla	;useless info
	pla	;useless info
	phy	;save addr back on stack
	phx
	ldx StartUpCtr
	lda tempID
	tay	;save copy in y for now
	sta MediaDriverID,x	;set the new userID (probably same as old)
	txa
	asl a	;x times 2
	tax
	pla
	sta DispatchAdr,x	;set dispatch addr low
	pla
	sta DispatchAdr+2,x	;set dispatch addr high
	
;Now do a driver startup
	
	lda StartUpCtr
	lsr a	;divide by two
	inc a	;add one for 1-8
	pha	;pass as media channel no.
	lda CDaddr+2,x	;pass high word of ports long addr
	pha
	lda CDaddr,x	;pass low word of port name
	pha
	phy	;pass drivers UserID
	ldx #$1426
	jsl >$E10000	;perform MCDStartUp
;	_MCDStartUp	;perform device startup
	bcc NoRestart	;branch if no error trying to restart
;We arrive here if the driver startup returned an error (unload the driver and purge)
	lda StartUpCtr
	sta MChannel2
	asl a
	sta MChannel4
	lda #0	;we want unload and purge driver
	jsr UnLoadCurMediaDriver ;unload the driver and flag as such

NoRestart	dec StartUpCtr	;dec. counter by two
	dec StartUpCtr
	bpl RestartLoop	;branch if not done with all channels
	

	lda #0	
	sta NumPrinters	; number of printer	drivers found
	sta NumPorts	; number of port drivers found
	sta NoAppleTalk	; 1= AppleTalk driver found

;	jsl SetupDriverLists ; find all the printer/port drivers in
		; the DRIVERS folder and put them in a
		; list for the list	manager to use
;	bcs NoDriversFolder	; check if the Drivers folder was opened ok
		; if not then just return w/o setting up default
		; values or setting current printer etc,...

;	jsl ReadSetUpFile	; get either the default settings for
		; the choose printer dialog or read the
		; printer.setup file for saved settings.
;	jsr SetCurMediaDriver
;	jsr SetCurrentDriver

	
;----------------------------------------------------------
;
; Set our WAP entry!
;
NoDriversFolder	pushword #$00	; system tool
	Pushword #Toolnum	; this tool
	pushword #0	; high word is zero
	phd	; low word is d-reg
	_SetWap

;----------------------------------------------------------
;
; We're done:  clean up stack, and quit.
;
	lda #$0000

	brl Exit2


	EXPORT UserID
UserID	ds.w 1	;saved userID
TempID	ds.w 1	;temporary place to store returned ID
StartUpCtr	ds.w 1	;counter used for startup
	EXPORT StartedFlag
StartedFlag	dc.w $ffff	;flag indicating started (0=started)
	ENDP


*****************************************************************
*
* MCShutDown
*
* Shuts tool down.
*
*****************************************************************
	EXPORT MCShutDown
MCShutDown	PROC
	jsr SetupFrame	;setup direct page stack frame

;Now make sure it was started before trying to shutdown the tool
	lda StartedFlag	;first make sure it was startedup
	beq OKShutdown	;branch if was started
	lda #WasShutdown	;else return not started error
	brl Exit0
	
OKShutdown
	lda #$ffff
	sta StartedFlag

;	jsr DisposePrinterList

;	jsr DisposePortList

;The following unloads any and all of the drivers
	lda #14	;init. to last channel 0-7 (7*2)
	sta MChannel2
;This unloads the drivers but still saves the drivers ID for restarting
UnloadLoop
	lda MChannel2	;get channel no. times 2
	tax
	asl a	;times 2
	sta MChannel4	;set times 4

	lda #1	;we want unload and make restartable
	jsr UnLoadCurMediaDriver ;unload the driver

	dec MChannel2	;dec. by two the channel no.
	dec MChannel2
	bpl UnLoadLoop	;loop through all the channels

;----------------------------------------------------------
;
; Clear the WAP
;
	pushword #$00	; system tool
	Pushword #Toolnum	; this tool
	PushLong #0
	_SetWap

	lda #$0000

	brl Exit0
	
	ENDP

*****************************************************************
*
* MCActive
*
* Returns whether or not the print manager is active.
*
*****************************************************************
	EXPORT MCActive
MCActive	PROC
	DefineStack
RTL1	block 3
RTL2	block 3
ActiveResult	word
;First inc. busy flag because were not reentereant
	jsl IncBusyFlg	;inc. busy flag

	cmp #0
	bne AmActive
	EXPORT FinishActive
FinishActive		;       
	sta ActiveResult,s
	jsl DecBusyFlg	;dec. busy flag
	lda #0
	clc
	rtl

AmActive	lda #True
	bra FinishActive


	ENDP

*****************************************************************
*
* MCVersion
*
* Returns version number
*
*****************************************************************
	EXPORT MCVersion
MCVersion	PROC
;First inc. busy flag because were not reentereant
	jsl IncBusyFlg	;inc. busy flag
	lda #VersionNb
	bra FinishActive

	ENDP


*****************************************************************
*
* PMInsertDisk
*
* Routine that is used put up mount volume message.  This is an
* entry point so that the drivers can use the code in the main
* tool.
*
*****************************************************************
	EXPORT PmInsertDisk
PmInsertDisk	PROC


	jsr SetupFrame	;setup direct page stack frame
	jsr insertdisk
	lda #0
	brl exit0


	ENDP


*****************************************************************
*
* PMGetPrinterName
* PMGetPortName
*
* Returns a pointer	to the current name	on the stack
*
*****************************************************************
	EXPORT PmGetPrinterName
PmGetPrinterName	PROC
	jsr SetupFrame	;Setup direct page stack frame
	
	jsr SetCurMediaDriver
	lda #CurMediaDriver
	ldx #^CurMediaDriver
	bra SetPtr

	EXPORT PMGetPortName
PMGetPortName		;       
	jsr SetupFrame	;Setup direct page stack frame

	jsr SetCurrentDriver
	lda #CurrentDriver
	ldx #^CurrentDriver
	bra SetPtr

SetPtr		;
	DEFINESTACK
DPFrame	Block DirectStack	;direct page stack frame
OrigB	BYTE
OrigD	WORD
RTL1	block 3
rtl2	block 3
PtrResult	LONG

	sta PtrResult,s
	txa
	sta PtrResult+2,s

	lda #$0000
	brl Exit0

	ENDP

*****************************************************************
*
* PMSetPrinterName
* PMSetPortName
*
*      PtrToNewName
*
*****************************************************************
	EXPORT PmSetPrinterName
PmSetPrinterName	PROC
	jsr SetCurMediaDriver
	ldx #CurMediaDriver	; printer setting for appletalk
	ldy #^CurMediaDriver

	bra SetName

	EXPORT PMSetPortName
PMSetPortName		;       
	jsr SetCurrentDriver
	ldx #CurrentPort
	ldy #^CurrentPort

	bra SetName


SetName		;
	DEFINESTACK
DPFrame	Block DirectStack	;direct page stack frame
OrigB	BYTE
OrigD	WORD
RTL1	block 3
rtl2	block 3
NamePtr	LONG

	jsr SetupFrame	;Setup direct page stack frame

	jsl ReadSetupFile	; read the setup file

	lda NamePtr,s
	sta Temp1
	lda NamePtr+2,s
	sta Temp1+2

	stx Temp2
	sty Temp2+2

	lda [Temp1]
	and #$00FF
	tay
	dey

	sep #%00100000
	longa off


NameLoop		;
	lda [Temp1],y
	sta [Temp2],y
	dey
	bpl NameLoop

	rep #%00100000
	longa on

	jsl WriteSetupFile	; write it back out

	lda #$0000
	brl Exit4

	ENDP
****************************************************************************************************
*
* MySetPrefix - This sets the prefix 8 correctly to support booting on a local volume
* or over the network.
*
* This routine save the old prefix 8 but doesn't restore it ( you need to restore when done.)
*
****************************************************************************************************
MySetPrefix	Proc Export

;First lets get the old prefix 8 and save it for restoring later.
	_GetPrefixGS OldPfixParms	;get the old prefix 8 
	bcs oops

	_DInfoGS infoParms		;get the device name for the boot device
	bcs oops
	_VolumeGS volParms		;now do a Volume call to get the ID of the boot FST
	bcs oops
	lda fst_id		;get the ID number of the boot FST
	cmp #$000D		;is it AppleShare?
	bne local_boot		;no, must have been a local boot

aShare_boot
	_FSTSpecific fstParms	;do an FSTSpecific GetUserPath call
	bcs oops		;punt if we can't determine the pathname of the user's folder
	ldx userPfx		;get the pointer to the prefix
	ldy userPfx+2
	bra do_setPfx		;go set the prefix

local_boot
	ldx #localPfx		;get the pointer to the local prefix
	ldy #localPfx>>16

do_setPfx
	stx prefix		;store the pointer to the prefix to use
	sty prefix+2
	_SetPrefixGS pfxParms	;set the prefix to the correct location

oops
	rts				;return to caller, carry set if an error occurred

infoParms	dc.w 2		;pCount
	dc.w 1		;device number (boot device is ALWAYS device 1)
	dc.l devName		;pointer to result buffer for device name

devName	dc.w 36		;buffer length
devName2	dc.w 0		;string length
	ds.b 32		;buffer for device name

volParms	dc.w 5		;pCount
	dc.l devName2		;pointer to device name
	dc.l volname		;pointer to volume name buffer
	dc.l 0		;total blocks
	dc.l 0		;free blocks
fst_id	dc.w 0		;FST ID number

volname	dc.w 36		;buffer length
volname2	dc.w 0		;string length
	ds.b 32		;string buffer

fstParms	dc.w 3		;pCount
	dc.w $000d		;FST ID number (AppleShare)
	dc.w 8		;command number (GetUserPath)
userPfx	ds.l 1		;space for the prefix pointer

pfxParms	dc.w 2		;pCount
	dc.w 8		;prefix number
prefix	ds.l 1		;space for the prefix pointer

localPfx	dc.w 31
	dc.b '*/System/Drivers/Media.Control/'

OldPfixParms	dc.w 2		;pCount
	dc.w 8		;prefix number (8)
	dc.l OldPrefixS		;ptr to prefix output string area

OldPrefixS	dc.w 84		;buffer length
	EXPORT OldPrefix
OldPrefix	dc.w 0		;length of prefix
	ds.b 80		;prefix buffer

	EXPORT RestorePFix
RestorePFix	dc.w 2		;pcount
	dc.w 8		;prefix number (8)
	dc.l OldPrefix		;saved prefix buffer


	ENDP

*****************************************************************
*
* MCLoadDriver
*
* The result is also a word value which	tells the caller whether the call was
* successful or not.
*
* If result was False then error was invalid parameter passed, else it is just
* the result of loader call _InitialLoad
*
*****************************************************************
	EXPORT MCLoadDriver
MCLoadDriver	PROC

	DEFINESTACK
DPFrame	Block DirectStack	;direct page stack frame
OrigB	BYTE
OrigD	WORD
RTL1	block 3
RTL2	block 3
SMCChannel	WORD	;Media Control Channel No.

	jsr SetupFrame	;Setup direct page stack frame

	lda SMCChannel,s	;get media channel no.
	dec a	;dec. so will be zero base
	sta MChannel	;save it
	asl a	;times 2
	sta MChannel2	;save times 2
	asl a
	sta MChannel4	;save times 4
	
	lda MChannel2
	tax
	lda MediaDriverID,x ;non-zero indicates that driver is loaded
	beq OK2load	; check if anything is loaded

;We arrive here if there currently is a loaded driver for this particular media channel
	lda #0	;we want to unload and purge driver and id
	jsr UnloadCurMediaDriver

OK2load
	jsr LoadCurMediaDriver ;Now load the driver
	bra ErrorExit	

	
	lda #0	;
ErrorExit	
	brl Exit2
	ENDP


*****************************************************************
*
* MCUnloadDriver
*
* The result is also a word value which	tells the caller whether the call was
* successful or not.
*
* If result was False then error was invalid parameter passed, else it is just
* the result of loader call _UserShutDown
*
*****************************************************************
	EXPORT MCUnloadDriver
MCUnloadDriver	PROC

	DefineStack
DPFrame	Block DirectStack	;direct page stack frame
OrigB	BYTE
OrigD	WORD
RTL1	block 3
RTL2	block 3
SMCChannel	WORD	;Media Control Channel No.


	jsr SetupFrame	;setup direct page stack frame

	lda SMCChannel,s	;get media channel no.
	dec a	;dec. so will be zero base
	sta >MChannel	;save it
	asl a	;times 2
	sta >MChannel2	;save times 2
	asl a
	sta >MChannel4	;save times 4
	
	lda >MChannel2
	tax
	lda >MediaDriverID,x ;non-zero indicates that driver is loaded
	beq ErrorOut	; branch if nothing to unload
	lda #0	;we want unload and purge driver	
	jsr UnloadCurMediaDriver
	brl Exit2
ErrorOut
	lda #NotLoaded	;return with not loaded error
	brl Exit2

	ENDP

****************************************************************
*
* PrChooser
*
*     ResultCode
*
* Returns True if user picks
*
****************************************************************
	EXPORT PrChooser
PrChooser	PROC

	definestack
DPFrame	Block DirectStack	;direct page stack frame
OrigB	byte
OrigD	word
RTL1	block 3
RTL2	block 3
Result	word

	jsr SetupFrame	;setup direct page stack frame
	
	lda #True
	sta result,s	; return true since OK hit, some apps depend on
		; this being true
	
	pha	; make room for result
	_GetMasterSCB
	pla
	pha	; make room for result of alert call
	and #$80	; check mode
	beq mode320	; 320 mode

	lda #UseCtrlPanelMsg_640	
	sta WhatMessage640
	lda #^UseCtrlPanelMsg_640	
	sta WhatMessage640+2
	lda #EndUseCPMsg_640-UseCtrlPanelMsg_640
	sta MessLength640
	pushlong #alerttemp640 ; use 640 mode template
	bra GoOn
	
mode320	
	lda #UseCtrlPanelMsg_320	
	sta WhatMessage320
	lda #^UseCtrlPanelMsg_320	
	sta WhatMessage320+2
	lda #EndUseCPMsg_320-UseCtrlPanelMsg_320
	sta MessLength320
	pushlong #alerttemp320 ; use 320 mode template

GoOn	pushlong #$0000
	_NoteAlert

	pla	; get the item hit off stack

	lda #0

	brl Exit0

	ENDP
;-------------------------------------------------------------------
;
;  NAME:	UniqueFile
;
;  PURPOSE:	To create the unique file name for the resource data base
;
;  PASSED:	(A-reg.)=	WORD (low word of unique number.)
;	(X-reg.)=	WORD (high word of unique number.)
;							non-zero (do create res. file if not already there)
;-------------------------------------------------------------------
UniqueFile    	PROC

;First save the unique no.
	sta Unique
	stx Unique+2
;Now create the unique file name using the passed unique ID number.
;First lets set the prefix of the file name (the CD. or LD. or VD.)
	txa
	and #$f000
	clc
	rol a
	rol a
	rol a
	rol a
	rol a
	rol a
	tax
	lda PrefixTbl,x	;get prefix from table
	sta MCFileName	;stuff into file name
;Now convert the rest of the unique number into ascii digits
	sep #$30	;go into 8-bit mode
	longa off
	longi off
	ldy #9	;init. index into string
	ldx #0	;init index into long word unique
MoreLoop
	lda Unique,x	;first do low nibble
	jsr MyMakeASCII	;make the low byte ascii
	sta MCFileName,y	;stuff into file name
	dey
	cpy #3
	bcc AllDone
	lda Unique,x	;now do high nibble
	lsr a
	lsr a
	lsr a
	lsr a
	jsr MyMakeASCII
	sta MCFileName,y
	inx
	dey
	bra MoreLoop
	
AllDone	
	rep #$30	;back into 16-bit mode
	longa on
	longi on
	rts

;------------------------------------------------------------------------------
;Assumes in 8-bit mode
	longa off
	longi off
MyMakeASCII
	and #$0f
	cmp #$0a
	bcc OK1	;branch if 0-9 digit
	clc
	adc #7	;add 7 to make offset from char. A
OK1
	clc
	adc #'0'	;add offset from char. zero
	rts
	longa on
	longi on

;-----------------------------------------------------------------------------	
PrefixTbl	dc.b 'CD'	;$0HMMSSFF
	dc.b 'LD'	;$1HMMSSFF
	dc.b 'VD'	;$2HMMSSFF
	dc.b 'M3'	;$3HMMSSFF
	dc.b 'M4'	;$4HMMSSFF
	dc.b 'M5'	;$5HMMSSFF
	dc.b 'M6'	;$6HMMSSFF
	dc.b 'M7'	;$7HMMSSFF
	dc.b 'M8'	;$8HMMSSFF
	dc.b 'M9'	;$9HMMSSFF
	dc.b 'A1'	;$AHMMSSFF
	dc.b 'A2'	;$BHMMSSFF
	dc.b 'A3'	;$CHMMSSFF
	dc.b 'A4'	;$DHMMSSFF
	dc.b 'A5'	;$EHMMSSFF
	dc.b 'A6'	;$FHMMSSFF
		
	EXPORT MyResPath
Unique	ds.l 1	;temporary space for unique no.
MyResPath	dc.w 12
	dc.b '8/'
MCFileName	dc.b 'XX.HMMSSFF'	;This is the create file name

	ENDP
;-------------------------------------------------------------------
;
;  NAME:	RStartUp
;
;  PURPOSE:	To start things up for using resources
;
;  PASSED:	(A-reg.)=	zero (dont create resource file if not already there)
;							non-zero (do create res. file if not already there)
;-------------------------------------------------------------------
RStartUp    PROC

	sta MyCreateRFlag	;store passed create flag
	stz MyResFileID	;init. res file id as unopened
;First lets make sure the resource manager is opened
	pushword #0	;space for result
	_ResourceStatus	;get status of resource mgr.
	bcc NoErr	;branch if no error
	plx	;just get off stack
	rts	;exit with error
NoErr
	pla	;get result
	bne RGoOn	;branch if active
;We arrive here with the resource manager tool not active
	lda #NoResMgr	;return with no resource manager error
	sec
	rts
;At this point the resource manager is there so we can proceed
RGoOn
	ldx #$4026	;use this tools userID
	stx DUserID	;save new userID
;Now get the current resource applicaitions userid and save it
;for restoring when we leave.
	pha	;space for result
	_GetCurResourceApp	;get current resources userid
	pla
	sta OldResApp	;save old resources userid
;Now get this drivers userid and register with the resource manager
	Pushword DUserID
	_ResourceStartUp	;register with the resource manager
	sta AnyError	;**************

;Now get the old level and save it and then set it to zero
;(This helps the protect the resource fork from being closed accidentally.)
	_GetLevelGS GetLevelBlk
	sta AnyError	;**************

	lda TheLevel
	sta OldLevel	;save the old level
	stz TheLevel	;set the level to zero
	_SetLevelGS GetLevelBlk ;set the level
	sta AnyError	;**************

;Now get the system preferences and save them
	_GetSysPrefsGS GetPrefsBlk
	sta AnyError	;**************

	lda ThePrefs
	sta OldPrefs	;save the old prefs
;Now set the system preferences so that when we do an openresouce call,
;the user will be prompted to insert the disk containing the file if the
;volume is currently not online.
	and #$1fff	;and out unwanted bits
	ora #$8000	;or on the insert dialog wanted bit
	sta ThePrefs
	_SetSysPrefsGS GetPrefsBlk ;set the new system preferences
	sta AnyError	;**************

;Now set the prefix 8 (for networked booting to look in users directory.)
	jsr MySetPrefix	;go set prefix 8

;-----------------
;Now we can finally try and open the resource file
	pha	;space for result
	pushword #$0003	;access word (Read/write)
	pushlong #0	;resource map area Nil
	pushlong #MyResPath	;pointer to pathname
	_OpenResourceFile

	plx	;get resourcefile ID
	
	bcs SeeCreate	;branch if got an error (see if need to create)
	stx MyResFileID	;save the opened resource file ID
	lda #0	;indicate no errors
GotErrjmp	jmp GotError1	;continue with no error reported

;We arrive here when an error occured while trying to open the resource file.
SeeCreate
;Now lets see if it was an $0046 GS/OS file error: File Not Found
;                       or $0044 GS/OS file error: Path Not Found
	cmp #$0044	;is it a Path not found error?
	beq SeeCreate2	;yes, go see if want to create resource
	cmp #$0046	;is it a File not found error?
	bne GotErrjmp	;branch if not
;We arrive here if we have a file or path not found error and we need to see if need to create it.
SeeCreate2
	ldx MyCreateRFlag	;get create resource flag
	beq GotErrjmp	;branch if dont want to create a new res. file
;Ok, now lets create that new resource file
	pushlong #$00000101	;aux. file type
	pushword #$005c	;file type (multimedia document)
	pushword #$00c3	;file access
	pushlong #MyResPath	;pathname
	_CreateResourceFile	;create the resource file
	bcs GotErrjmp	;branch if error

;We now should be able to open this newly created resource
	pha	;space for result
	pushword #$0003	;access word (Read/write)
	pushlong #0	;resource map area Nil
	pushlong #MyResPath	;pointer to pathname
	_OpenResourceFile

	plx	;get resourcefile ID
	bcs GotErrJmp	;branch if got an error (somethings weird)
	stx MyResFileID	;save the opened resource file ID

;Now lets create the Signature resource			
	pha	;space for resultant handle
	pha
	pushword #0	;high word of length (zero)
	lda MySigR	;get length of string
	and #$00ff
	inc a
	sta MyStrLength	;save length
	pha	;pass low word of length
	pushword DUserID	;drivers userid
	pushword #$0018	;attributes (dont purge, no cross bank, no special)
	pushLong #0	;nil pointer
	_newhandle
	plx
	stx MyNewHandle
	plx
	stx MyNewHandle+2
	bcc OK1	;branch if no error
FinishUpJ	jmp GotError1	;error
;Now copy over the string into the handle data area
OK1
	PushLong #MySigR	;source (signature string)
	PushLong MyNewHandle ;Push destination of handle
	PushLong MyStrLength ;Push strings length
	_PtrToHand	;Now copy the string into handle
	bcs FinishUpJ	;branch if any errors
;OK, now we have the data in the handle so we can creat a resource with it
	PushLong MyNewHandle ;handle of data for resource
	PushWord #$0000	;attributes of resource
	pushword #$8006	;resource type (rPString)
	pushlong #1	;resource ID (1 for signature resource)
	_AddResource			

;Now restore a few things and finish up
GotError1
	pha	;save error value
;Now restore SysPrefs
	lda OldPrefs
	sta ThePrefs	;restore the prefs value
	_SetSysPrefsGS GetPrefsBlk
	sta AnyError	;**************


;Now restore the level
	lda OldLevel
	sta TheLevel
	_SetLevelGS GetLevelBlk;restore the level
	sta AnyError	;**************


	pla	;get error value
	pha
	beq WasOK	;branch if nonerror exit

;Now shutdown the resource manager
	_ResourceShutdown	;unregister this driver userid with res magr.
	sta AnyError	;**************
;Now restore the ResourceApp userid
	pushword OldResApp
	_SetCurResourceApp
	sta AnyError	;**************
	
;Now restore the prefix 8	
	_SetPrefixGS RestorePFix ;restore the prefix-8

	
WasOK
	pla
	cmp #1	;this sets the carry if there was an error								
	rts

MyCreateRFlag 	ds.w 1	;flag to indicate to create resource (0=not to
		;create, not zero=to create resource)
	EXPORT MyResFileID
MyResFileID	ds.w 1	;my resource file id (non zero if opened)
	EXPORT OldResApp
OldResApp	ds.w 1	;space to save old resource app userid
OldLevel	ds.w 1	;old level no. value
OldPrefs	ds.w 1	;old system preferences value
MySigR	str 'v1.0, Media Control'
MyNewHandle 	ds.l 1	;new handle storage area
MyStrLength	dc.l 0	;signatures string length (want long for zeros)
			
	EXPORT AnyError
AnyError	dc.w 0	;********************


;=====================================================================
GetLevelBlk	dc.w 1	;pcount=1
TheLevel	ds.w 1	;level no.
;=====================================================================
GetPrefsBlk	dc.w 1	;pcount=1
ThePrefs	ds.w 1	;preferences
	EXPORT DUserID
DUserID	ds.w 1	;driver userid (tool038 users ID)
	ENDP

;-------------------------------------------------------------------
;
;  NAME:	RShutDown
;
;  PURPOSE:	To shut things down after using resources
;
;-------------------------------------------------------------------
RShutDown   PROC
;Now shutdown the resource manager
	_ResourceShutdown	;unregister this driver userid with res magr.

;Now restore the ResourceApp userid
	pushword OldResApp
	_SetCurResourceApp

;Now restore the prefix 8	
	_SetPrefixGS RestorePFix ;restore the prefix-8
			
	rts
	ENDP

;-------------------------------------------------------------------
;
;  NAME:	MCGetDiscTitle
;
;  PURPOSE:	To return the discs title
;
;  PASSED:	UniqueID	LONG	;unique media ID number
;	DiscTitle	LONG	;string ptr to where title will go
;	
;  RETURNED:	NONE
;
;-------------------------------------------------------------------
MCGetDiscTitle 	PROC
	DefineStack
ZPBlock	block	DirectStack
OrigB	byte
OrigD	word
RTL1	block 3
RTL2	block 3
DiscTitle	long	;passed string pointer for returned disc title
UniqueID	long

			
	jsr SetupFrame	;setup direct page stack frame
	

;First create the unique file name using the passed unique ID.
	lda UniqueID+2,s	;pass high word in x-reg. of unique ID
	tax
	lda UniqueID,s	;pass low word of unique id
	jsr UniqueFile	;create unique file ID
		
	lda #0	;indicate not to create res. file if not there
	jsr RStartUp	;start things up for getting the resource
	bcs OutOfHere	;branch if error on startup

;Now that we have the resource file, we can do the real work

	pha
	pha	;space for long result
	pushword #$8006	;resource type
	pushlong #2	;resource ID
	_LoadResource
	plx	;save low word of handle
	ply	;save high word of handle
	bcs FinishErr	;branch if error

;Now get the handle size and send the data back
	sty MyResHandle+2
	stx MyResHandle
	lda DiscTitle,s	;get disc title and save it
	sta MyDiscTitle
	lda DiscTitle+2,s
	sta MyDiscTitle+2

	PushLong MyResHandle ;for _HandToPtr call
	PushLong MyDiscTitle ;for _HandToPtr call

	pha						;space for long result
	pha						;space for long result
	PushLong MyResHandle ;This is for _GetHandleSize call
	_GetHandleSize	;Now size of handle is on stack
	_HandToPtr	;Now copy the string back


			
;Now just finish things up
FinishUp
	jsr RShutDown 	;shut down the resource stuff
	bcs OutOfHere
	lda #0	;return no errors			
OutOfHere	jmp Exit8

;We arrive here with an error, we must attempt to shut down things
;before returning
FinishErr	cmp #$1e06	;see if resource not found error
	bne WhoKnows	;branch if unknown

	lda #ItemNotThere	;return with item not found error
WhoKnows	pha	;save error value
;now copy back over a null string
	pushlong #MyNullStr	;source
	pushlong MyDiscTitle ;destination
	pushlong #2	;no. of bytes
	_blockmove	;move a null string back
	jsr RShutDown	;shut her down
	pla	;restore the error value
	bra OutOfHere
			
	EXPORT MyResHandle
MyResHandle	dc.l 0
	EXPORT MyNullStr
MyNullStr	dc.w 0
MyDiscTitle	dc.l 0
	ENDP

;-------------------------------------------------------------------
;
;  NAME:	MCSetDiscTitle
;
;  PURPOSE:	To set the discs title
;
;  PASSED:	UniqueID	LONG	;unique media ID no.
;	DiscTitlePtr	LONG	;pointer to new discs title str.
;
;  RETURNED:	None
;
;-------------------------------------------------------------------
MCSetDiscTitle 	PROC
	DefineStack
ZPBlock	block	DirectStack
OrigB	byte
OrigD	word
RTL1	block 3
RTL2	block 3
DiscTitlePtr 	LONG
UniqueID	LONG

	
	jsr SetupFrame	;setup direct page stack frame
;First create the unique file name using the passed unique ID.
	lda UniqueID+2,s	;pass high word in x-reg. of unique ID
	tax
	lda UniqueID,s	;pass low word of unique id
	jsr UniqueFile	;create unique file ID
	
	lda #$ffff	;indicate to create res. file if not there
	jsr RStartUp	;start things up for getting the resource
	bcc AOK1	;branch if no errors starting up
	jmp OutOfHere
;Now that we have the resource file, we can do the real work
;First we need to create a handle for the passed P-string.
;But first, we need to determine the size of the string that we have
AOK1
	lda DiscTitlePtr,s
	sta DP0
	sta MyDiscTitle
	lda DiscTitlePtr+2,s
	sta MyDiscTitle+2
	sta DP2
	lda [DP0]	;got the strings length
	and #$00ff
	inc a	;add one for the p-string zero length
	sta MyStrLength	;save the strings length
			
	pha	;space for resultant handle
	pha
	pushword #0	;high word of length (zero)
	pushword MyStrLength ;low word of length
	pushword DUserID	;drivers userid
	pushword #$0018	;attributes (dont purge, no cross bank, no special)
	pushLong #0	;nil pointer
	_newhandle
	plx
	stx MyNewHandle
	plx
	stx MyNewHandle+2
	bcc OK1	;branch if no error
FinishUpJ	jmp FinishUp	;error
;Now copy over the data into the handle data area
;But first we need to add 2 to the strings pointer to point to the string data
OK1
	Pushlong MydiscTitle 	;Push title pointer
	PushLong MyNewHandle	;Push destination of handle
	PushLong MyStrLength	;Push strings length
	_PtrToHand		;Now copy the string into handle
	bcs FinishUpJ		;branch if any error

			
;Now we need to remove any old program that might exist
	PushWord #$8006	;rPString
	PushLong #2	;resource ID=2
	_RemoveResource	;this removes any existing resource
;Note: we dont care if we get an error, we just want to make sure the resorce
;has been removed so we can add the new one to it.

;OK, now we have the data in the handle so we can creat a resource with it
	PushLong MyNewHandle ;handle of data for resource
	PushWord #$0000	;attributes of resource
	pushword #$8006	;resource type
	pushlong #2	;resource ID
	_AddResource
			
;Now just finish things up

FinishUp	pha	;save error no
	jsr RShutDown	;shut down the resource stuff
	bcc NoSDErr	;branch if no shut down error
	plx
	cpx #0
	beq OutOfHere	;branch if no error before shutdown (return shutdown error)
	txa	;get old error number
	bra OutOfHere	;else return error before shutdown error
NoSDErr
	pla
OutOfHere	jmp Exit8

			
MyDiscTitle	dc.l 0	;pointer to passed string
MyStrLength	dc.l 0	;length of data string (want long, zeros for high word)
MyNewHandle	dc.l 0	;created handle


	ENDP

;-------------------------------------------------------------------
;
;  NAME:	MCGetTrackTitle
;
;  PURPOSE:	To return a tracks title
;
;  PASSED:	UniqueID	LONG	;unique media ID number
;	TrackNo	WORD	;track number
;	TrackTitle	LONG	;string pointer for returned Tracks title
;  RETURNED:	NONE
;
;-------------------------------------------------------------------
MCGetTrackTitle PROC
	DefineStack
ZPBlock	block DirectStack
OrigB	byte
OrigD	word
RTL1	block 3
RTL2	block 3
TrackTitle	long	;passed string pointer to returned buffer
TrackNo	word
UniqueID	long
			

	jsr SetupFrame	;setup direct page stack frame
;First create the unique file name using the passed unique ID.
	lda UniqueID+2,s	;pass high word in x-reg. of unique ID
	tax
	lda UniqueID,s	;pass low word of unique id
	jsr UniqueFile	;create unique file ID
	
	lda TrackNo,s
	clc
	adc #100	;add 100 for resouce ID
	sta MyTrackNo	;save the track no.			

	lda #0	;indicate not to create res. file if not there
	jsr RStartUp	;start things up for getting the resource
	bcs OutOfHere	;branch if error on startup

;Now that we have the resource file, we can do the real work

	pha
	pha	;space for long result
	pushword #$8006	;resource type
	pushword #0	;high word of resource ID
	pushword MyTrackNo	;low word of resource ID
	_LoadResource
	plx	;save low word of handle
	ply	;save high word of handle
	bcs FinishErr	;branch if error

;Now get the handle size and send the data back
	sty MyResHandle+2
	stx MyResHandle
	lda TrackTitle,s	;get tracks title and save it
	sta MyTrackTitle
	lda TrackTitle+2,s
	sta MyTrackTitle+2

	PushLong MyResHandle ;for _HandToPtr call
	PushLong MyTrackTitle ;for _HandToPtr call

	pha						;space for long result
	pha						;space for long result
	PushLong MyResHandle ;This is for _GetHandleSize call
	_GetHandleSize	;Now size of handle is on stack
	_HandToPtr	;Now copy the string back


			
;Now just finish things up
FinishUp
	jsr RShutDown	;shut down the resource stuff
	bcs OutOfHere
	lda #0	;return no errors			
OutOfHere	jmp Exit10

;We arrive here with an error, we must attempt to shut down things
;before returning
FinishErr	cmp #$1e06	;see if resource not found error
	bne WhoKnows	;branch if unknown

	lda #ItemNotThere	;return with item not found error
WhoKnows	pha	;save error value
;now copy back over a null string
	pushlong #MyNullStr	;source
	pushlong MyTrackTitle ;destination
	pushlong #2	;no. of bytes
	_blockmove	;move a null string back
	jsr RShutDown	;shut her down
	pla	;restore the error value
	bra OutOfHere
			

MyTrackTitle	dc.l 0
MyTrackNo	ds.w 1

	ENDP

;-------------------------------------------------------------------
;
;  NAME:	MCSetTrackTitle
;
;  PURPOSE:	To set a tracks title
;
;  PASSED:	UniqueID	LONG	;unique media ID number
;	TrackNo	WORD	;track number
;	DiscTitlePtr	LONG	;pointer to new discs title str.
;
;  RETURNED:	None
;
;-------------------------------------------------------------------
MCSetTrackTitle 	PROC
	DefineStack
ZPBlock	block DirectStack
OrigB	byte
OrigD	word
RTL1	block 3
RTL2	block 3
DiscTitlePtr 	LONG
TrackNo	word
UniqueID	long


	jsr SetupFrame	;setup direct page stack frame
;First create the unique file name using the passed unique ID.
	lda UniqueID+2,s	;pass high word in x-reg. of unique ID
	tax
	lda UniqueID,s	;pass low word of unique id
	jsr UniqueFile	;create unique file ID
	

	lda TrackNo,s	;get track no.
	clc
	adc #100	;add 100 for resource id
	sta MyTrackNo	;save for later
			
	lda #$ffff	;indicate to create res. file if not there
	jsr RStartUp	;start things up for getting the resource
	bcc AOK1	;branch if no errors starting up
	jmp OutOfHere
;Now that we have the resource file, we can do the real work
;First we need to create a handle for the passed P-string.
;But first, we need to determine the size of the string that we have
AOK1
	lda DiscTitlePtr,s
	sta DP0
	sta MyDiscTitle
	lda DiscTitlePtr+2,s
	sta MyDiscTitle+2
	sta DP2
	lda [DP0]	;got the strings length
	and #$00ff
	inc a	;add one for the p-string zero length
	sta MyStrLength	;save the strings length
			
	pha	;space for resultant handle
	pha
	pushword #0	;high word of length (zero)
	pushword MyStrLength ;low word of length
	pushword DUserID	;drivers userid
	pushword #$0018	;attributes (dont purge, no cross bank, no special)
	pushLong #0	;nil pointer
	_newhandle
	plx
	stx MyNewHandle
	plx
	stx MyNewHandle+2
	bcc OK1	;branch if no error
FinishUpJ	jmp FinishUp	;error
;Now copy over the data into the handle data area
;But first we need to add 2 to the strings pointer to point to the string data
OK1
	Pushlong MydiscTitle	;Push title pointer
	PushLong MyNewHandle	;Push destination of handle
	PushLong MyStrLength	;Push strings length
	_PtrToHand	;Now copy the string into handle
	bcs FinishUpJ	;branch if any error

			
;Now we need to remove any old program that might exist
	PushWord #$8006	;rPString
	PushLong MyTrackNo	;resource ID (created form passed track no.)
	_RemoveResource	;this removes any existing resource
;Note: we dont care if we get an error, we just want to make sure the resorce
;has been removed so we can add the new one to it.

;OK, now we have the data in the handle so we can creat a resource with it
	PushLong MyNewHandle ;handle of data for resource
	PushWord #$0000	;attributes of resource
	pushword #$8006	;resource type
	pushlong MyTrackNo	;resource ID (passed track no.+100)
	_AddResource
			
;Now just finish things up

FinishUp	pha	;save error no
	jsr RShutDown	;shut down the resource stuff
	bcc NoSDErr	;branch if no shut down error
	plx
	cpx #0
	beq OutOfHere	;branch if no error before shutdown (return shutdown error)
	txa	;get old error number
	bra OutOfHere	;else return error before shutdown error
NoSDErr
	pla
OutOfHere	jmp Exit10

			
MyDiscTitle	dc.l 0	;pointer to passed string
MyStrLength	dc.l 0	;length of data string (want long, zeros for high word)
MyNewHandle	dc.l 0	;created handle
MyTrackNo	dc.l 0	;created resource id from track no. (long for high word zeros)


	ENDP

;-------------------------------------------------------------------
;
;  NAME:	MCGetProgram
;
;  PURPOSE:	To get a discs program information
;
;  PASSED:	UniqueID	LONG	;unique media ID number
;	DiscProgram	Pointer	;Pointer to GSOS return string of Discs program info.
;
;  RETURNED:	None
;
;-------------------------------------------------------------------
MCGetProgram PROC
	DefineStack
ZPBlock	block DirectStack
OrigB	byte
OrigD	word
RTL1	block 3
RTL2	block 3
DiscProgram	long	;passed pointer to GSOS result string pointer
UniqueID	long
			

	jsr SetupFrame	;setup direct page stack frame
;First create the unique file name using the passed unique ID.
	lda UniqueID+2,s	;pass high word in x-reg. of unique ID
	tax
	lda UniqueID,s	;pass low word of unique id
	jsr UniqueFile	;create unique file ID
	
	stz MyExitStr	;init. for null returned string

	lda DiscProgram,s	;get disc title and save it
	sta DP0
	clc
	adc #2
	sta MyDiscProgram	;save buffers return word address (+2)
	lda DiscProgram+2,s
	sta DP2
	adc #0
	sta MyDiscProgram+2
;Now get the buffers length
	lda [DP0]	;get the buffers length word
	sec
	sbc #4	;subtract out 4 bytes for buffer length and string length
	sta BufferLen

;Now do some real work			
	lda #0	;indicate not to create res. file if not there
	jsr RStartUp	;start things up for getting the resource
	bcc GoOn2
	jmp OutOfHere	;branch if error on startup

;Now that we have the resource file, we can do the real work
GoOn2
	pha
	pha	;space for long result
	pushword #$801d	;resource type (rCString)
	pushlong #1	;resource ID (for program)
	_LoadResource
	plx	;save low word of handle
	ply	;save high word of handle
	bcc GoOn1
	jmp FinishErr	;jmp if error

;Now save the handle 
GoOn1
	sty MyResHandle+2
	stx MyResHandle	;save the handle

;Now get the handles data size			
	pha						;space for long result
	pha						;space for long result
	PushLong MyResHandle ;This is for _GetHandleSize call
	_GetHandleSize	;Now size of handle is on stack
	pla
	dec a	;subtract out one for zero terminator we dont want
	sta ActualLen	;save actual length of string
	plx						;dont care abount high word
	cmp BufferLen	;compare with the buffers length
	beq OKLen	;branch if ok
	bcc OKLen
;We arrive here with a buffer size too small
;So we set the length word to the size needed and return with
;a buffer to small error
	sta MyExitStr	;set for returned exit string
	lda #$004f	;return with GS/OS buffer to small error
	bra FinishErr

;We arrive here with a buffer size larger enough to copy it over
OKLen
;First copy over the string size
	pushlong #ActualLen	;source
	pushlong MyDiscProgram ;destination
	pushlong #2	;no. of bytes
	_blockmove	;move the strings length over

	lda MyDiscProgram	;bump pointer 2 bytes to string area of GS/OS string
	clc
	adc #2
	sta MyDiscProgram
	lda MyDiscProgram+2
	adc #0
	sta MyDiscProgram+2

	PushLong MyResHandle ;for _HandToPtr call
	PushLong MyDiscProgram ;for _HandToPtr call
	PushWord #0	;high word zero of length
	PushWord ActualLen	;low word is actual length
	_HandToPtr	;Now copy the string back


			
;Now just finish things up
FinishUp
	jsr RShutDown	;shut down the resource stuff
	bcs OutOfHere
	lda #0	;return no errors			
OutOfHere	jmp Exit8

;We arrive here with an error, we must attempt to shut down things
;before returning
FinishErr	cmp #$1e06	;see if resource not found error
	bne WhoKnows	;branch if unknown

	lda #ItemNotThere	;return with item not found error
WhoKnows	pha	;save error value
;now copy back over a null string
;Now we will copy string length of zero back
	pushlong #MyExitStr	;source
	pushlong MyDiscProgram	;destination
	pushlong #2	;no. of bytes
	_blockmove	;move a null string back

	jsr RShutDown	;shut her down
	pla	;restore the error value
	bra OutOfHere
			
ActualLen	dc.w 0	;actual length of the returned resource stirng
BufferLen 	dc.w 0	;length of the GS/OS buffer provided
MyDiscProgram 	dc.l 0
MyDiscString 	dc.l 0
MYExitStr 	dc.w 0	;this is stuffed with the returned error word length

	ENDP

;-------------------------------------------------------------------
;
;  NAME:	MCSetProgram
;
;  PURPOSE:	To set a disc's program information
;
;  PASSED:	UniqueID	LONG	;unique media ID number
;	DiscProgPtr	LONG	;pointer to new discs prog. str.
;
;  RETURNED:	None
;
;-------------------------------------------------------------------
MCSetProgram 	PROC
	DefineStack
ZPBlock	block DirectStack
OrigB	byte
OrigD	word
RTL1	block 3
RTL2	block 3
DiscProgPtr 	LONG
UniqueID	LONG

	jsr SetupFrame	;setup direct page stack frame
;First create the unique file name using the passed unique ID.
	lda UniqueID+2,s	;pass high word in x-reg. of unique ID
	tax
	lda UniqueID,s	;pass low word of unique id
	jsr UniqueFile	;create unique file ID
	
	lda #$ffff	;indicate to create res. file if not there
	jsr RStartUp	;start things up for getting the resource
	bcc AOK1	;branch if no errors starting up
	jmp OutOfHere
;Now that we have the resource file, we can do the real work
;First we need to create a handle for the passed GS/OS string.
;But first, we need to determine the size of the string that we have
AOK1
	lda DiscProgPtr,s
	sta DP0
	sta MyDiscTitle
	lda DiscProgPtr+2,s
	sta MyDiscTitle+2
	sta DP2
	lda [DP0]	;got the strings length
	inc a	;add one for the cstring zero terminator
	sta MyStrLength	;save the strings length
			
	pha	;space for resultant handle
	pha
	pushword #0	;high word of length (zero)
	pushword MyStrLength ;low word of length
	pushword DUserID	;drivers userid
	pushword #$0018	;attributes (dont purge, no cross bank, no special)
	pushLong #0	;nil pointer
	_newhandle
	plx
	stx MyNewHandle
	plx
	stx MyNewHandle+2
	bcc OK1	;branch if no error
FinishUpJ	jmp FinishUp	;error
;Now copy over the data into the handle data area
;But first we need to add 2 to the strings pointer to point to the string data
OK1
	lda MyDiscTitle
	clc
	adc #2
	sta MyDiscTitle
	lda MyDiscTitle+2
	adc #0
	sta MyDiscTitle+2
	pha						;push high word
	Pushword MydiscTitle ;Push low word
	PushLong MyNewHandle ;Push destination of handle
	PushLong MyStrLength ;Push strings length (+1 for zero term.)
	_PtrToHand	;Now copy the string into handle
	bcs FinishUpJ	;branch if any error

;Now we need to add the zero terminator byte to the end of the cstring
	PushLong MyNewHandle
	_HLock	;first lock the handle down
	bcs FinishUpJ	;branch if any error

;Now derefernce the handle
	lda MyNewHandle
	sta DP0
	lda MyNewhandle+2
	sta DP2
	lda [DP0]	;now get the pointer to the data string
	sta DP4
	ldy #2
	lda [DP0],y
	 sta DP6
	ldy MyStrLength	;get index to end of string
	dey

;now store the zero terminator at the end of the cstring
	sep #$20	;put into 8-bit a-reg. mode
	longa off
	lda #0
	sta [DP4],y	;store the zero terminator at the end
	rep #$20	;back into 8-bit a-reg. mode
	longa on

	PushLong MyNewHandle
	_HUnLock	;unlock the handle
	bcs FinishUp	;branch if any error
			
;Now we need to remove any old program that might exist
	PushWord #$801D	;rCString
	PushLong #1	;resource ID=1
	_RemoveResource	;this removes any existing resource
;Note: we dont care if we get an error, we just want to make sure the resorce
;has been removed so we can add the new one to it.

;OK, now we have the data in the handle so we can creat a resource with it
	PushLong MyNewHandle ;handle of data for resource
	PushWord #$0000	;attributes of resource
	pushword #$801D	;resource type
	pushlong #1	;resource ID
	_AddResource
			
;Now just finish things up

FinishUp	pha	;save error no
	jsr RShutDown	;shut down the resource stuff
	bcc NoSDErr	;branch if no shut down error
	plx
	cpx #0
	beq OutOfHere	;branch if no error before shutdown (return shutdown error)
	txa	;get old error number
	bra OutOfHere	;else return error before shutdown error
NoSDErr
	pla
OutOfHere	jmp Exit8

			
MyDiscTitle	dc.l 0	;pointer to passed string
MyStrLength	dc.l 0	;length of data string (want long, zeros for high word)
MyNewHandle	dc.l 0	;created handle
	ENDP

****************************************************************
*
* MCGetErrorMsg
*
*     
*
* Returns a P-string description of the media control error passed
*
****************************************************************
	EXPORT MCGetErrorMsg
MCGetErrorMsg	PROC

	definestack
DPFrame	Block DirectStack	;direct page stack frame
OrigB	byte
OrigD	word
RTL1	block 3
RTL2	block 3
ReturnStr	LONG	;resultant string ptr
PassedErr	word	;passed error no.

	jsr SetupFrame	;setup direct page stack frame
;Now get the passed error number and see if its one of ours
	lda PassedErr,s
	sta ErrorBack	;save as error back value
	cmp #$2600
	bcc NotMyErr	;branch if less than tool038
	cmp #$2700
	bcs NotMyErr	;branch if greater than tool038
;
;We arrive here is its a Tool038 error $2600-26ff
;
GeneralErr
	and #$00ff	;mask out unwanted tool no.
	asl a
	cmp StrTableLen	;now see if we have a message in table
	bcc GotGoodErr	;branch if message in table
NotMyErr
	lda #0	;default to err00
	bra GotBadErr	;branch so will return same error back
;Get the source address of string (the errors string description)
GotGoodErr	
	stz ErrorBack	;clear error back routine
GotBadErr
	tax	;save index into table in x-reg.
	lda #^StrTable	;get strings bank
	pha
	lda StrTable,x	;get address of string (low word)
	pha
	DEFINESTACK
SourceAddr	LONG
	ldy #0
	lda (SourceAddr,s),Y ;get the length of string
	and #$00ff
	tax	;save length in x-reg.
	inx	;inc. by one for length byte
;Get the destiniation from the passed RetName
	lda ReturnStr+6,s
	pha
	lda ReturnStr+6,s
	pha
;Now get the no. of bytes from the string
	lda #0
	pha
	phx	;push length of string
	_blockmove	;move it
	
ErrorOut		
	lda ErrorBack
	
JustOut	brl Exit6

;
;This is a table of WORD pointers to the error P-string descriptions
;
StrTable
	dc.w Err00
	dc.w Err01
	dc.w Err02
	dc.w Err03
	dc.w Err04
	dc.w Err05
	dc.w Err06
	dc.w Err07
	dc.w Err08
	dc.w Err09
	dc.w Err0a
	dc.w Err0b
	dc.w Err0c
	dc.w Err0d
	dc.w Err0e
	dc.w Err0f
	dc.w Err10
	dc.w Err11
	dc.w Err12
	dc.w Err13
StrTableLen	dc.w (StrTableLen-StrTable)
;
; These are the actual error description p-strings
;
Err00	str 'No message available for this error.'
Err01	str 'Unimplemented for this device.'
Err02	str 'Invalid speed specified.'
Err03	str 'Invalid unit type specified.'
Err04	str 'Timed out during device read.'
Err05	str 'No media control driver loaded.'
Err06	str 'Invalid audio selector value specified.'
Err07	str 'Device returned error (unable to perform).'
Err08	str 'Unrecognizable status from device.'
Err09	str 'Invalid selector value specified.'
Err0a	str 'Unrecognizable data received (try again).'
Err0b	str 'Invalid port specified.'
Err0c	str 'Scans only once.'
Err0d	str 'Resource manager not active.'
Err0e	str 'Item not found in database.'
Err0f	str 'Tool038 was already shutdown.'
Err10	str 'Tool038 was already started.'
Err11	str 'Invalid channel number.'
Err12	str 'Invalid parameter specified.'
Err13	str 'Invalid Media Control Tool call.'

ErrorBack	ds.w 1	;error returned back if no message found

	ENDP

;-------------------------------------------------------------------
;
;  NAME:	MCCvtTime2Bin
;
;  PURPOSE:	To convert a BCD time value to a binary equivalent value.
;	Long of HHMMSSFF BCD to Long binary value.
;
;  PASSED:	LONG PassedBCD 	;BCD time value to convert
;
;  RETURNED:	LONG ReturnBin 	;Returned binary value
;
;-------------------------------------------------------------------
	EXPORT MCCvtTime2Bin
MCCvtTime2Bin 	PROC
			
	definestack
DPFrame	Block DirectStack	;direct page stack frame
OrigB	byte
OrigD	word
RTL1	block 3
RTL2	block 3
PassedBCD	LONG	;passed BCD value
ReturnBin	LONG	;resultant binary value

	jsr SetupFrame	;setup direct page stack frame

	lda PassedBCD,s	;get BCD time value
	sta MyBCDTime	;init.
	lda PassedBCD+2,s
	sta MyBCDTime+2
	
;First we'll expand the the BCD value to an ASCII string
	sep #$30				;set to 8-bit mode
	longa off
	longi off

	lda #8
	sta BCDScratchStr	;init. string byte count
			
	ldx #8					;init. index into string
	ldy #0
LoopBytes
;First do low bcd digit of byte
	lda MyBCDTime,y
	and #$0f
	ora #$30				;make ascii
	sta BCDScratchStr,x

	dex
;Now do high bcd digit of byte
	lda MyBCDTime,y
	lsr A
	lsr A
	lsr A
	lsr A
	ora #$30				;make ascii
	sta BCDScratchStr,x
	dex
	iny
	cpy #4
	bcc LoopBytes
;At this point BCDScratchStr has the ascii string HHMMSSFF
	longa on
	longi on
	rep #$30				;set 16-bit mode
			
	pha	;space for result						;space for result
	pha
	PushLong #BCDScratchStr+1  ;(one past length byte)
	PushWord #8	;length of string
	PushWord #0	;not signed
	_Dec2Long	;convert to decimal
	
	bcc OKData	;branch if no errors
	plx	;get rid of returned value
	plx
	bra Finish
;We arrive here with no errors
OKData
	ply						;get low word of long
	pla	;get high word of long
	sta ReturnBin+2,s
	tya
	sta ReturnBin,s
	lda #0	;return no errors
Finish	jmp Exit4
			
MyBCDTime	dc.l	0	;storage space for BCD Time
BCDScratchStr	ds.b	10	;space for intermediat string
	ENDP

;-------------------------------------------------------------------
;
;  NAME:	MCCvtBin2Time
;
;  PURPOSE:	To convert a binary time value to a BCD equivalent value.
;	Long binary value to Long HHMMSSFF BCD value.
;
;  PASSED:	LONG PassedBCD 	;Binary value to convert
;
;  RETURNED:	LONG ReturnedBCD 	;Returned HHMMSSFF BCD value
;
;-------------------------------------------------------------------
	EXPORT MCCvtBin2Time
MCCvtBin2Time 	PROC
	definestack
DPFrame	Block DirectStack	;direct page stack frame
OrigB	byte
OrigD	word
RTL1	block 3
RTL2	block 3
PassedBCD	LONG	;passed Binary Time value
ReturnBCD	LONG	;resultant BCD Time value

	jsr SetupFrame	;setup direct page stack frame
	lda PassedBCD+2,s	;get passed BCD value (high word)
	pha	;pass for long value to convert
	lda PassedBCD+2,s	;get passed BCD value (low word)
	pha

	PushLong #BinaryStr+1  ;ptr to where to put string
	PushWord #8				;length of buffer
	PushWord #0				;flag indicating not signed value
	_Long2Dec				;convert to ascii string
;Now convert ascii to BCD HHMMSSFF
			
	sep #$30				;set to 8-bit mode
	longa off
	longi off

	lda #8
	sta BinaryStr	;init. string byte count
			
	ldx #8					;init. index into string
	ldy #0
LoopBytes
;First do low bcd digit of byte
	lda BinaryStr,x	;get ascii digit
	and #$0f				;make binary
	sta TimeVal,y
	dex
;Now do high bcd digit of byte
	lda BinaryStr,x
	and #$0f
	asl A
	asl A
	asl A
	asl A
	ora TimeVal,y	;or with lsbyte
	sta TimeVal,y

	dex
	iny
	cpy #4
	bcc LoopBytes

	longa on
	longi on
	rep #$30	;back to 16-bits				;set 16-bit mode
;Now finish up and set the return BCD value
	lda TimeVal
	sta ReturnBCD,s
	lda TimeVal+2
	sta ReturnBCD+2,s
	lda #0
	jmp Exit4
			
BinaryStr	ds.b 12	;room for ascii binary string of time
TimeVal	ds.L 1		
	ENDP
	
*****************************************************************
*
* Calls passed on to drivers!
*
*****************************************************************
	EXPORT Pass
Pass	PROC
	
;----------------------------------------------------------------------
;
; These calls are passed on to the current media device driver.
;
;----------------------------------------------------------------------


;------------------------------------------------------------
; mcGetName
;------------------------------------------------------------
	EXPORT mcGetName
mcGetName

	definestack
	block 4	;source addr.
	block 2	;asave
	block 3	;rtl2
	block 3	;rtl1
NAddr	block 4

;First lets set the default name in case we don't have a connection
	pha	;save a-reg.
	PushLong #DefaultStr
	lda NAddr+2,s
	pha
	lda NAddr+2,s
	pha
	PushLong #19
	_blockmove
	pla	;restore a-reg.
	
	ldx #omcGetName
	jmp Dispatch4

DefaultStr	str 'MCToolkit NoPlayer'

;------------------------------------------------------------
; mcDStartUp
;------------------------------------------------------------
	EXPORT mcDStartUp
mcDStartUp	
	ldx #omcDStartUp
	jmp Dispatch6

;------------------------------------------------------------
; mcDShutDown
;------------------------------------------------------------
	EXPORT mcDShutDown
mcDShutDown	
	ldx #omcDShutDown
	jmp Dispatch0

;------------------------------------------------------------
; mcGetFeatures
;------------------------------------------------------------
	EXPORT mcGetFeatures
mcGetFeatures	
	ldx #omcGetFeatures
	jmp Dispatch2
	
;------------------------------------------------------------
; mcPlay
;------------------------------------------------------------
	EXPORT mcPlay
mcPlay	
	ldx #omcPlay
	jmp Dispatch0
	
;------------------------------------------------------------
; mcPause
;------------------------------------------------------------
	EXPORT mcPause
mcPause	
	ldx #omcPause
	jmp Dispatch0
	
;------------------------------------------------------------
; mcSendRawData
;------------------------------------------------------------
	EXPORT mcSendRawData
mcSendRawData
	ldx #omcSendRawData
	jmp Dispatch4
	
;------------------------------------------------------------
; mcGetStatus
;------------------------------------------------------------
	EXPORT mcGetStatus
mcGetStatus
	ldx #omcGetStatus
	jmp Dispatch2
	
;------------------------------------------------------------
; mcControl
;------------------------------------------------------------
	EXPORT mcControl
mcControl
	ldx #omcControl
	jmp Dispatch2
	
;------------------------------------------------------------
; mcScan
;------------------------------------------------------------
	EXPORT mcScan
mcScan
	ldx #omcScan
	jmp Dispatch2
	
;------------------------------------------------------------
; mcGetSpeeds
;------------------------------------------------------------
	EXPORT mcGetSpeeds
mcGetSpeeds
	ldx #omcGetSpeeds
	jmp Dispatch4
	
;------------------------------------------------------------
; mcSpeed
;------------------------------------------------------------
	EXPORT mcSpeed
mcSpeed
	ldx #omcSpeed
	jmp Dispatch2
	
;------------------------------------------------------------
; mcStopAt
;------------------------------------------------------------
	EXPORT mcStopAt
mcStopAt
	ldx #omcStopAt
	jmp Dispatch6
	
;------------------------------------------------------------
; mcJogN
;------------------------------------------------------------
	EXPORT mcJogN
mcJogN
	ldx #omcJogN
	jmp Dispatch8
	
;------------------------------------------------------------
; mcSearchTo
;------------------------------------------------------------
	EXPORT mcSearchTo
mcSearchTo
	ldx #omcSearchTo
	jmp Dispatch6
	
;------------------------------------------------------------
; mcSearchDone
;------------------------------------------------------------
	EXPORT mcSearchDone
mcSearchDone
	ldx #omcSearchDone
	jmp Dispatch0
	
;------------------------------------------------------------
; mcSearchWait
;------------------------------------------------------------
	EXPORT mcSearchWait
mcSearchWait
	ldx #omcSearchWait
	jmp Dispatch0
	
;------------------------------------------------------------
; mcGetPosition
;------------------------------------------------------------
	EXPORT mcGetPosition
mcGetPosition
	ldx #omcGetPosition
	jmp Dispatch2
	
;------------------------------------------------------------
; mcSetAudio
;------------------------------------------------------------
	EXPORT mcSetAudio
mcSetAudio
	ldx #omcSetAudio
	jmp Dispatch2
	
;------------------------------------------------------------
; mcSetVolume
;------------------------------------------------------------
	EXPORT mcSetVolume
mcSetVolume
	ldx #omcSetVolume
	jmp Dispatch4
	
;------------------------------------------------------------
; mcGetTimes
;------------------------------------------------------------
	EXPORT mcGetTimes
mcGetTimes
	ldx #omcGetTimes
	jmp Dispatch2
	
	
;------------------------------------------------------------
; mcGetNoTracks
;------------------------------------------------------------
	EXPORT mcGetNoTracks
mcGetNoTracks
	ldx #omcGetNoTracks
	jmp Dispatch0
	
	
;------------------------------------------------------------
; mcGetDiscTOC
;------------------------------------------------------------
	EXPORT mcGetDiscTOC
mcGetDiscTOC
	ldx #omcGetDiscTOC
	jmp Dispatch2
	
;------------------------------------------------------------
; mcGetDiscID
;------------------------------------------------------------
	EXPORT mcGetDiscID
mcGetDiscID
	ldx #omcGetDiscID
	jmp Dispatch0
	
;------------------------------------------------------------
; mcRecord
;------------------------------------------------------------
	EXPORT mcRecord
mcRecord
	ldx #omcRecord
	jmp Dispatch0
	
;------------------------------------------------------------
; mcStop
;------------------------------------------------------------
	EXPORT mcStop
mcStop
	ldx #omcStop
	jmp Dispatch0

	
;------------------------------------------------------------
; mcWaitRawData
;------------------------------------------------------------
	EXPORT mcWaitRawData
mcWaitRawData
	ldx #omcWaitRawData
	jmp Dispatch8

;------------------------------------------------------------
;------------------------------------------------------------
; Dispatch0
;------------------------------------------------------------
;------------------------------------------------------------
Dispatch0
	definestack
	block 2	;asave
	block 3	;rtl2
	block 3	;rtl1
McChann0	word

	pha
	lda McChann0,s	;get media channel no.
	tay
	pla
	jmp Dispatch

;------------------------------------------------------------
;------------------------------------------------------------
; Dispatch2
;------------------------------------------------------------
;------------------------------------------------------------
Dispatch2
	definestack
	block 2	;asave
	block 3	;rtl2
	block 3	;rtl1
	block 2
McChann2	word

	pha
	lda McChann2,s	;get media channel no.
	tay
	pla
	jmp Dispatch

;------------------------------------------------------------
;------------------------------------------------------------
; Dispatch4
;------------------------------------------------------------
;------------------------------------------------------------
Dispatch4
	definestack
	block 2	;asave
	block 3	;rtl2
	block 3	;rtl1
	block 4
McChann4	word

	pha
	lda McChann4,s	;get media channel no.
	tay
	pla
	jmp Dispatch

;------------------------------------------------------------
;------------------------------------------------------------
; Dispatch6
;------------------------------------------------------------
;------------------------------------------------------------
Dispatch6
	definestack
	block 2	;asave
	block 3	;rtl2
	block 3	;rtl1
	block 6
McChann6	word

	pha
	lda McChann6,s	;get media channel no.
	tay
	pla
	jmp Dispatch


;------------------------------------------------------------
;------------------------------------------------------------
; Dispatch8
;------------------------------------------------------------
;------------------------------------------------------------
Dispatch8
	definestack
	block 2	;asave
	block 3	;rtl2
	block 3	;rtl1
	block 8
McChann8	word

	pha
	lda McChann8,s	;get media channel no.
	tay
	pla
	jmp Dispatch

	ENDP


*****************************************************************
*
* Dispatch
*
* Dispatches control to the Media Control driver.
*
*****************************************************************
	EXPORT Dispatch
Dispatch	PROC

;NOTE:  Take care when adding or subtracting things that might affect the stack

;When we get here, the y-reg. has the vector offset
	pha	; get 3 bytes on stack for final rtl
	phb

	jsr SetupFrame	;setup direct page stack frame

	
	pha	; save a-reg
	phx	; save x-reg. (Call displacement no.)
	phy	; save y-reg. (Media Channel No.)	
	
;Multimedia channel stuff
	tya	;get media channel no.
	dec a	;dec. so will be zero base
	sta MChannel	;save it
	asl a	;times 2
	sta MChannel2	;save times 2
	asl a
	sta MChannel4	;save times 4
	ldx MChannel
;Now check to see if media channel no. is withing range
	cpx #MaxChannelNo	;see if greater than max. channel no.,
	bcc OkChannNo	;branch if OK
	ldx #BadChannel	;return bad channel error
	stx DriverError
	jmp ErrorDispatch
OKChannNo
	
;Check to see if the driver has already been loaded
	ldx MChannel2
	lda MediaDriverID,x
	bne NoDeviceChg

;We arrive here if the driver hasn't previously been loaded
	pha 	;space for result
	pha 
	_GetCursorAdr	; save current cursor
	
	jsr WaitCursor	;set cursor to wait cursor
	
;Now attempt to load the driver
	jsr loadCurMediaDriver ;attempt to load the driver
	sta DriverError	;set error (if any occured)
	_SetCursor	; restore original cursor using stuff on stack

	lda DriverError
	bne ErrorDispatch	;branch if error occured
	
;If everything loaded ok, then Startup the driver	
	definestack
XTheChannNo	word	;media channel no.
	
	lda XTheChannNo,s
	pha	;first pass to MCDStartUp the media channel no.
	dec a	;dec. so will be zero base
	asl a
	asl a	;times 4 (for referenceing table of longs)
	tax
	lda CDaddr+2,x	;pass high word of ports long addr
	pha
	lda CDaddr,x	;pass low word of port name
	pha
	ldx MChannel2
	lda MediaDriverID,x
	pha	;pass the drivers UserID
	ldx #$1426
	jsl >$E10000	;perform MCDStartUp
;	_MCDStartUp	;perform device startup
	sta DriverError
	bcs ErrorDispatch	;branch if error occured
	
NoDeviceChg	
	lda MChannel4
	tax
	lda DispatchAdr+2,x
	sta Temp1+2
	lda DispatchAdr,x
	sta Temp1
	
;The following checks call no. against drivers call table length.
	ldy #2	; check the call count
	lda [Temp1],y
	dec a	; subtract 1 since the index begins with 0
	asl a
	asl a	; 4 bytes per address entry from jump table
	
	definestack
TheChannNo	word
CallDispNo	word
	cmp CallDispNo,s
	blt CallNotSupp
	
	
GoDispatchNew	lda Temp1
	clc
	adc #4	; new drivers has jmp table 4 bytes from start
	sta Temp1

	bra GoDispatch
CallNotSupp	
	lda #CallNotSupported
	sta DriverError
	
;DDH We arrive here if we have an error; we dispatch to the dummy driver to handle call & params.
ErrorDispatch
	lda #DummyDriver
	sta Temp1
	lda #^DummyDriver
	sta Temp1+2
	

;-----------------------------------------------------------
;
; 
GoDispatch
	definestack
ysave	word	;Media Channel No.
xsave	word	;Call displacement no.)
asave	word
dpFrame	block DirectStack
bsave	byte
dsave	word
rtladr	block 3

	lda Temp1+1
	sta rtladr+1,s
	lda Temp1
	dec a
	sta rtladr,s
		
	ply	; get y back (Media Channel No.)
	plx	; get x-reg. back (Call displacement no.)
	pla	; get a back
;releases DirectStack bytes from stack
	tsc							;get stack value
	clc
	adc #DirectStack	;release bytes
	tcs

	plb
	pld
	rtl	; dispatch
	ENDP
	
******************************************************************
*
* SetCurMediaDriver
*
* CurMediaDriver is set to the currently selected driver for the
* currently selected media channel.
*
******************************************************************
	EXPORT SetCurMediaDriver
SetCurMediaDriver	PROC

	lda >MChannel4
	tax
	lda >CP2Addr+2,x
	pha
	lda >CP2Addr,x
	pha
	PushLong #CurMediaDriver
	jsr CopyString

	rts

	ENDP

******************************************************************
*
* SetCurrentDriver
*
* CurrentDriver is set to the currently selected port driver for the
* currently selected media channel.
*
******************************************************************
	EXPORT SetCurrentDriver
SetCurrentDriver	PROC

	lda >MChannel4
	tax
	lda >CDAddr+2,x
	pha
	lda >CDAddr,x
	pha
	PushLong #CurrentDriver
	jsr CopyString

	rts

	ENDP

******************************************************************
*
* LoadCurMediaDriver
*
* Loads the current	media driver.  Builds the path name we
* want and then calls LoadSomething which returns the userid
* in the a-register.  Returns address in x-reg and y-reg.
*
******************************************************************
	EXPORT LoadCurMediaDriver
LoadCurMediaDriver	PROC

	jsl ReadSetupFile	; find out what user had picked
	bcc GotSetupOK	;branch if read setup file OK
	jmp MediaDevError	;DDH else return with error
	
GotSetupOK
	jsr SetCurMediaDriver; set the internal data structures accordingly
;;;;;;;;;;;;;;;;
;This checks to see if there wasnt a driver name specified (speeds things up a bit)

	lda CurMediaDriver
	and #$00ff		;look only at length byte
	beq PR2
;;;;;;;;;;;;;;;;


	PushLong #DriverSubPath
	PushLong #PathBuffer
	jsr CopyString


	PushLong #PathBuffer
	PushLong #CurMediaDriver
	jsr AppendString

	jsr LoadSomething
	sta DriverError		;DDH Added
	
	bcs PR3
	
	phx
	pha
	lda >MChannel2
	tax
	pla
	sta >MediaDriverID,x
	lda >MChannel4
	tax
	pla		;restore x-reg into a-reg.
	sta >DispatchAdr,x
	tya
	sta >DispatchAdr+2,x

	PushLong #CurMediaDriver
	PushLong #DriverInMem
	jsr CopyString

	lda #0
	sta DriverError
	clc

	rts

MediaDevError
PR1
PR2
PR3
	phx		;save x-reg.
		
	ldx MChannel2
	lda #0		;zero out ID

	sta MediaDriverID,x
	
	ldx MChannel4

	lda #DummyDriver
	sta DispatchAdr,x
	lda #^DummyDriver
	sta DispatchAdr+2,x
	lda #MissingDriver
	sta DriverError
	plx		;restore x-reg.

	sec		;return with error
	rts


	ENDP

******************************************************************
*
* LoadSomething
*
* Loads the driver who's path name is in the path buffer
* Returns the UserID in a-reg and address of what was loaded
* in x-reg and y-reg.
*
******************************************************************
	EXPORT LoadSomething
LoadSomething	PROC

;First do a GetFileInfo to see if the volume is online and the file with that name is there
	_GetFileInfo FIParams
	bcs CheckForVol

;Now lets make sure that the file type and aux type are valid media ctrl driver types.
	lda FIType	;get file type
	cmp #FileTypeMC	;is it a driver?
	bne NoGoodFile	;branch if not
	
	lda FIAuxType	;get files aux type
	and #$ff00	;mask for media ctrl type
	cmp #AuxTypeMC	;is it media ctrl type?
	beq GoodFile	;branch if correct
;We arrive here if its a bad file or aux type
NoGoodFile
	lda #MissingDriver	;file not found (missing driver) error
	sec
	rts	

;Now we are confident its a good file and we can go ahead and load it in.
GoodFile

	PushWord #0	; Returned: dir/page stack size
	PushWord #0	; Returned: dir/page stack loc
	PushLong #0	; Returned: starting address
	PushWord #0	; Returned: UserID assigned.
	PushWord #0	; Passed: UserID to use (for now let loader
;		; assign one.
	PushLong #PathBuffer ; Passed: pointer to path
	PushWord #0	; Passed: Not Special memory flag
	_initialLoad

	bcs ErrorOnLoad

	pla	; get userid in a-reg
	plx	; adr in x and y
	ply
	sta 3,s	; overstore the last piece of
	pla	; useless info and get
	pla	; user id back

	rts	; carry is clear when get here


ErrorOnLoad	plx	; remove space for id
	plx	; remove space for addr
	plx
	plx	; remove directpage	loc
	plx	; remove direct page size

CheckForVol	cmp #VolumeNotFound
	bne NotMissingDisk

	jsr InsertDisk
	bcc LoadSomething
	bra NoGoodFile	;branch if hit cancle button

NotMissingDisk	sec
	rts

FIParams	DC.L PathBuffer	;address of files path
FIAccess	dc.w 0	;file access
FIType	dc.w 0	;file type area
FIAuxType	dc.l 0	;file aux type area
	DS.B 14	;the rest we don't care about

	ENDP

******************************************************************
*
* UnloadCurMediaDriver
*
* This routine unloads a media driver.
* PASSED:
*      (A-reg.)	=0	;unload and purge driver and userid
*	=1	;make driver restartable
*
******************************************************************
	EXPORT UnLoadCurMediaDriver
UnLoadCurMediaDriver PROC
	sta UserSDownFlag
	
	lda MChannel2
	tax

	lda >MediaDriverID,x
	beq NoDriverLoaded
;First shutdown the driver before we unload it
	txa
	lsr a	;divide by two
	inc a	;make 1-8 based
	pha	;pass media channel no.
	ldx #$1526
	jsl >$E10000	;perform MCDShutdown on the driver
;	_MCDShutdown	;perform device shutdown

	lda MChannel2
	tax
	lda MediaDriverID,x	;get drivers userID

;Now Unload the driver	
	PushWord #0
	pha	;pass userID
	PushWord UserSDownFlag ;make restartable or purge
	_userShutdown
	plx	;returned userid of driver (not needed)

	bcc PrDriverUnloaded
	pha	; save result of _usershutdown call call
	ldx MChannel4

	lda #DummyDriver
	sta DispatchAdr,x
	lda #^DummyDriver
	sta DispatchAdr+2,x
	lda #MissingDriver
	sta DriverError
	ldx MChannel2
	lda #0
	sta MediaDriverID,x
	pla	; restore result of	loader call

	bra NoDriverLoaded

PrDriverUnloaded	lda #0
	ldy UserSDownFlag	;get restart flag
	bne NoDriverLoaded	;branch if want restartable
	ldx MChannel2
	sta MediaDriverID,x ;set driver id to zero
	sta DriverInMem

NoDriverLoaded	rts

UserSDownFlag	dc.w 1	;user shutdown flag (normally 1 for restartable)

	ENDP


******************************************************************
*
* DriverChanges
*
* Return carry set if the Current driver string is not equal
* to the driver in memory string.
*
******************************************************************
	EXPORT DriverChanges
DriverChanges	PROC

	PushLong #CurMediaDriver
	PushLong #DriverInMem
	jsr EqualString
	beq same
	sec
	rts
Same	clc

	rts

	EXPORT DidPortChange
DidPortChange		       
	PushLong #CurrentDriver
	PushLong #PortInMem
	jsr EqualString
	beq Same
	sec
	
	rts

	ENDP


******************************************************************
*
* ReadSetupFile
*
* Reads the setup file if there is one.	 If there is not a setup it creates a blank one
* If the number of bytes to read in does not equal the number of bytes actually
* read the media.setup file file format is not compatible.
*
******************************************************************
	EXPORT ReadSetupFile
ReadSetupFile	PROC

CreateNewSetup	jsr OpenSetup
	bcs GotError	;DDH branch if unable to read setup

	_READ ReadSetupParams
	bcs ReadOK
	_Get_EOF GetEOFParams
	lda SizeOfFile
	cmp #EndSetupFileInfo-SetupFileInfo
	beq ReadOK

;	jsr CloseSetup
;	_DESTROY DestroyParams
;	bra CreateNewSetup

ReadOK	jsr CloseSetup
	lda #0	;DDH return no errors
	clc	;DDH

GotError
	rtl

	ENDP

******************************************************************
*
* WriteSetupFile
*
* Writes the setup file information back out to the system disk.
*
******************************************************************
	EXPORT WriteSetupFile
WriteSetupFile	PROC

	_OPEN OpenSetupParams
	bcs GotError
	lda OpenSetupID
	sta ReadSetupID
	sta WriteSetupID
	sta CloseSetupID

DoWrite	_WRITE WriteSetupParams
	bcc NoErr

DoAlert	PushWord #1	; show message #1 ('Changes made to the Choose
	jsl PostAlert	; Printer dialog could not be saved to disk.')
	pla	; get data back off	from the stack

NoErr	jsr CloseSetup

	rtl

GotError	cmp #FileNotFound	; do we need to create a printer.setup file?
	beq CreateNewFile
	
	cmp #VolumeNotFound	; if volume not found then put up 'Insert disk...'
	beq PutUpInsertDLog	; message

	bra DoAlert
	
CreateNewFile	_Create CreateSetupParams ; create new file, if error then put up
	bcs DoAlert	; alert saying no changes could be saved.
		
	bra WriteSetupFile	; else open new file and write out the changes.
	
PutUpInsertDLog	jsr InsertDisk
	bcc WriteSetupFile
	bcs DoAlert
	

	ENDP

******************************************************************
*
* OpenSetup
*
* Opens the setup file on system disk for reading or writing.
*
******************************************************************
	EXPORT OpenSetup
OpenSetup	PROC
;First set the prefix 8 (for networked booting to look in users directory.)
	jsr MySetPrefix	;go set prefix 8

	_OPEN OpenSetupParams
	bcs Error

	lda OpenSetupID
	sta ReadSetupID
	sta WriteSetupID
	sta CloseSetupID
	sta GetEOFID

	rts

Error	cmp #FileNotFound
	beq MakeFile

	cmp #VolumeNotFound
	beq Insert

SkipThis	pha	;save error
	jsr DefaultSetup

	pla	;restore error
	sec
	rts

;----------------------------------------------------------
;
; When I make a file I create it and then write the
; default info into	it.
;
MakeFile		;
	_Create CreateSetupParams
	bcs SkipThis

	jsr DefaultSetup

	jsl WriteSetupFile
	bra OpenSetup

;----------------------------------------------------------
;
; Here I ask for disk insertion.  If user presses cancel
; we skip this which gives us the default setup and
; then quits.

Insert	jsr InsertDisk
	bcc OpenSetup
	bcs SkipThis

	ENDP


******************************************************************
*
* CloseSetup
*
* Closes the setup file that was opened	earlier.
*
******************************************************************
	EXPORT CloseSetup
CloseSetup	PROC

	_CLOSE CloseSetupParams
	php
	pha
	_SetPrefixGS RestorePFix	;restore the prefix-8
	pla
	plp

	rts

	ENDP


******************************************************************
*
* DefaultSetup
*
* This routine sets	up default SetupFile info for the case
* where there is no	SetupFile to read or the disk is not around.
*
* There are four things to setup:
*
*     CurMediaDriver
*     CurrentDriver	(Port)
*     CurrentUser (name)
*     CurrentNetName
*
* Important:  This must be called after	the driver lists are
* created.
*
******************************************************************
	EXPORT DefaultSetup
DefaultSetup	PROC
	jsr DefaultPrinter
	jsr DefaultPort

	lda #0	; set the default screen to be
	sta AppleTalkOn	; direct connect
	lda NumPorts	; were there any port drivers found other 
	bne SomeFound	; than AppleTalk
	lda NoAppleTalk	; is the appletalk driver present
	beq SomeFound
	inc AppleTalkOn	; make the appletalk screen come up since there
		; were no other port drivers found
	
SomeFound	sep #$30
	longa off
	longi off

	ldx DefaultUser
Loop3	lda DefaultUser,x
	sta CurrentUser,x
	dex
	bpl Loop3

	ldx DefaultNetName
Loop4	lda DefaultNetName,x
	sta CurrentNetName,x
	dex
	bpl Loop4

	ldx DefaultZoneName
Loop5	lda DefaultZoneName,x
	sta CurrentZoneName,x
	dex
	bpl Loop5


	rep #$30
	longa on
	longi on	

	rts


DefaultUser	str 'John Q. Public'

DefaultNetName	str 'LASERWRITER'

DefaultZoneName	str '*'

	ENDP


******************************************************************
*
* DefaultPrinter
*
* Puts the first printer in the printer	list into
* CurMediaDriver.
*
******************************************************************
	EXPORT DefaultPrinter
DefaultPrinter	PROC

	lda >NumPrinters
	beq EmptyPrinterList
	
	movelong PrinterList,Temp1
	jsr DerefTemp1ToTemp2
	clc
	lda Temp2
	adc #5	; 5 for list mgr
	sta Temp2
	bcc NoCarry1
	inc Temp2+2
NoCarry1		;

	sep #$30
	longa off
	longi off
	lda [Temp2]
	tay
Loop1	lda [Temp2],y
	sta CurMediaDriver1,y ; first printer type in list is default
	sta CurMediaDriver2,y ; for AT and DC selections
	dey
	bpl Loop1
	rep #$30
	longa on
	longi on

	rts

EmptyPrinterList	lda #0
	sta CurMediaDriver1
	sta CurMediaDriver2
	 
	rts
	
	ENDP


******************************************************************
*
* DefaultPort
*
* Puts the first Port in the port list into
* CurrentDriver
*
******************************************************************
	EXPORT DefaultPort
DefaultPort	PROC

	lda >NumPorts
	beq EmptyPortList
	
	movelong PortList,Temp1
	jsr DerefTemp1ToTemp2
	clc
	lda Temp2
	adc #5	; 5 for list mgr
	sta Temp2
	bcc NoCarry2
	inc Temp2+2
NoCarry2		;

	sep #$30
	longa off
	longi off
	lda [Temp2]
	tay
Loop2	lda [Temp2],y
	sta CurrentPort,y
	dey
	bpl Loop2

	rep #$30
	longa on
	longi on

	rts

EmptyPortList	lda #0
	sta CurrentPort
	
	rts
	
	ENDP

******************************************************************
*
* PostAlert
*
* Puts up alert box	for what ever error	has occurred that needs to
* be brought to the	user's attention.
*
******************************************************************
	EXPORT PostAlert
PostAlert	PROC

	defineStack
OrigCursor	long
OrigB	byte
OrigD	word
RTLAdr	block 3
Message	word

	phb
	phd
	phk
	plb
	
	pha	; save original cursor
	pha
	_GetCursorAdr
	
	tsc
	tcd

	jsr InitCursor	; restore cursor back to arrow

	pha	; make room for result
	_GetMasterSCB
	pla
	pha	; make room for result of alert call
	and #$80	; check mode
	beq mode320	; 320 mode

	pushlong #alerttemp640 ; use 640 mode template
	lda Message
	asl a
	tax
	jmp (LoadMessage640,x)

LoadMessage640	DC.W 0
	DC.W NoPortMessage640
	DC.W CantFindDrvr640

NoPortMessage640	lda #Msg1_640
	ldx #^Msg1_640+2
	ldy #EndMsg1_640-Msg1_640
	bra StoreValues640

CantFindDrvr640	lda #Msg2_640
	ldx #^Msg2_640+2
	ldy #EndMsg2_640-Msg2_640

StoreValues640	sta WhatMessage640
	stx WhatMessage640+2
	sty MessLength640
	bra GoOn

mode320	pushlong #alerttemp320 ; use 320 mode template
	lda Message
	asl a
	tax
	jmp (LoadMessage320,x)

LoadMessage320	DC.W 0
	DC.W NoPortMessage320
	DC.W CantFindDrvr320

NoPortMessage320	lda #Msg1_320
	ldx #^Msg1_320+2
	ldy #EndMsg1_320-Msg1_320
	bra StoreValues320

CantFindDrvr320	lda #Msg2_320
	ldx #^Msg2_320+2
	ldy #EndMsg2_320-Msg2_320
	
StoreValues320	sta WhatMessage320
	stx WhatMessage320+2
	sty MessLength320

GoOn	pushlong #$0000
	_StopAlert

	pla	; get the item hit off stack

	_SetCursor	; restore cursor
	
	plb
	pld

	rtl

	ENDP


*****************************************************************
*
* SetupDriverLists
*
* Makes the ProDOS call GetDirEntry and	finds all the port and printer
* drivers in the */system/drivers folder.  The values NumPrinters and
* NumPorts are incremented respectively	each time a driver is found.
*
* When a driver is found it is either put into the PrinterList or PortList
* to be used later by the list manager for displaying in the Choose Printer
* dialog.
*
*****************************************************************
	EXPORT SetUpDriverLists
SetUpDriverLists	PROC

	stz PrinterListSize
	stz PortListSize

	lda #ListEntrySize*10 ; enough for 10 entries
	jsr GetMem
	bcc NoErr0
	brl Error
NoErr0	sta PrinterList
	stx PrinterList+2

	lda #ListEntrySize*10 ; enough for 10 entries
	jsr GetMem
	bcc NoErr1
	brl Error
NoErr1	sta PortList
	stx PortList+2

OpenAgain	_Open OpenParams
	bcc OpenOK

	brl Error

OpenOK	lda OpenID
	sta GetDirID
	sta CloseID

NextEntry	_Get_Dir_Entry GetDirParams
	bcs Done

	lda Length
	xba
	sta Length
	lda EntryName	; is this a real entry?
	and #$00FF
	beq NextEntry

	lda EntryType	; is this a driver file?
	and #$00FF
	cmp #$00BB
	bne NextEntry

	lda EntryAuxType
	cmp #$0001	; is it a printer driver?
	bne NotPrinter

	inc NumPrinters
	jsl InsertPrinterList
	bra NextEntry

NotPrinter	cmp #$0002	; is it a port driver?
	bne NotPortDrvr

	inc NumPorts
	jsl InsertPortList
	bra NextEntry

NotPortDrvr	cmp #$0003	; is it the AppleTalk Driver?
	bne NextEntry

	inc NoAppleTalk
	PushLong #EntryName
	PushLong #AppleTalkStr
	jsr CopyString
	bra NextEntry

Done	_Close CloseParams

	lda #0
	clc

	rtl

Error	pha	; save error returned on stack

	jsr DisposePrinterList
	jsr DisposePortList

	pla	; get error back from stack
	sec
	rtl

	ENDP


*****************************************************************
*
* InsertPrinterList
*
*****************************************************************
	EXPORT InsertPrinterList
InsertPrinterList	PROC

	movelong PrinterList,Temp1
	lda PrinterListSize
	sta ListSize
	clc
	adc #ListEntrySize
	sta PrinterListSize
	bra InsertInList


	EXPORT InsertPortList
InsertPortList		;       
	movelong PortList,Temp1
	lda PortListSize
	sta ListSize
	clc
	adc #ListEntrySize
	sta PortListSize

InsertInList		;
	jsr DerefTemp1ToTemp2

	pha
	pha
	PushLong Temp1
	_GetHandleSize

	pla
	plx
	cmp ListSize
	beq NoRoom
	bcs ThereIsRoom

NoRoom	clc
	adc #2*ListEntrySize ; create enough space for 2 more drivers
	phx
	pha
	PushLong Temp1
	_SetHandleSize
	jsr DerefTemp1ToTemp2

ThereIsRoom		;
	lda EntryName
	and #$000F
	tax
	clc
	adc ListSize
	adc #5
	tay

	sep #%00100000
	longa off

NameLoop		;
	lda EntryName,x
	sta [Temp2],y
	dey
	dex
	bne NameLoop

	lda EntryName
	and #$0F
	sta [Temp2],y

	dey	; now zero out the memflag byte.
	lda #0
	sta [Temp2],y

	rep #%00100000
	longa on


	rtl

	ENDP


*****************************************************************
*
* DerefTemp1ToTemp2
*
*****************************************************************
	EXPORT DerefTemp1ToTemp2
DerefTemp1ToTemp2	PROC

	lda [Temp1]
	sta Temp2
	ldy #$0002
	lda [Temp1],y
	sta Temp2+2

	rts

	ENDP

*****************************************************************
*
* GetMem
*
*****************************************************************
	EXPORT GetMem
GetMem	PROC

	pha	; space for result.
	pha
	pea 0	; block size
	pha
	PushWord UserID	; Owner.
	PushWord #00	; no restrictions
	pha	; invalid loc info
	pha
	_NewHandle
	bcs AnError

	pla
	plx
	rts

AnError	plx
	plx
	rts

	ENDP

;                copy    utils.asm
******************************************************************
*
* EqualString
*
*     Pointer1
*     Pointer2
*
* This returns result in zero flag:
*
*    set if equal and
*    clear if not equal
*
******************************************************************
	EXPORT EqualString
EqualString	PROC
	DefineStack
OrigD	word
RTS	word
Ptr1	LONG
Ptr2	LONG

	phd
	tsc
	tcd

	sep #$30
	longa off
	longi off
	lda [Ptr1]
	cmp [Ptr2]
	bne NotEqual


	tay
CompareLoop		;
	lda [Ptr1],y
	jsr UpperCase
	sta [Ptr1],y
	lda [Ptr2],y
	jsr UpperCase
	cmp [Ptr1],y
	bne NotEqual
	dey
	bpl CompareLoop

Equal		;
	rep #$30
	longa on
	longi on

	pld
	pla
	plx
	plx
	plx
	plx
	pha
	lda #0
	rts

NotEqual		;
	rep #$30
	longa on
	longi on
	pld
	pla
	plx
	plx
	plx
	plx
	pha
	rts

;----------------------------------------------------------
;
; Uppercase routine
;
; runs in 8 bit mode.
;
	longa off
	longi off
UpperCase		;
	cmp #'a'
	bcc NoChange
	cmp #'z'
	bcc ChangeIt
	beq ChangeIt

NoChange	rts

ChangeIt	sec
	sbc #$20
	rts

	longa on
	longi on
	ENDP



****************************************************************
*
* CopyString
*
* Input : Pointer To Source String
*       : Pointer to Dest String
*
* Ouput : none
*
****************************************************************
	EXPORT CopyString
CopyString	PROC
	DefineStack
OrigD	word
RTLAdr	word
DestPtr	LONG
SrcPtr	LONG

	phd
	tsc
	tcd

	lda #0
	sep #%00100000
	longa off


	lda [SrcPtr]
	tay
Loop	lda [SrcPtr],y
	sta [DestPtr],y
	dey
	bpl Loop

	rep #$30
	longa on
	longi on

	pld

	pla

	plx
	plx
	plx
	plx

	pha

	rts

	ENDP





****************************************************************
*
* AppendString
*
* Input : Pointer To Orig String
*       : Pointer to New String
*
* Ouput : none
*
* New string is appended to orig string
*
****************************************************************
	EXPORT AppendString
AppendString	PROC
	DefineStack
OrigD	word
RTLAdr	word
NewPtr	LONG
OrigPtr	LONG

	phd
	tsc
	tcd

	sep #%00110000
	longa off
	longi off

	lda [OrigPtr]	; get orig length and put in x
	tax
	ldy #$01	; start y at 1 for new string

Loop	tya	; See if we are done with new
	cmp [NewPtr]	; string by comparing with length
	beq OneMoreTime
	bcs Done
OneMoreTime	lda [NewPtr],y	; now done so get next char
	phy	; save y on stack
	txy	; get pointer to last char in orig str
	iny	; bump by 1
	sta [OrigPtr],y	; store char in orig str
	tyx	; put back in x
	ply	; get index to new off stack
	iny	; bump by 1 and try	again
	bra Loop

Done	txa	; now update new length pointer
	sta [OrigPtr]



	rep #$30
	longa on
	longi on

	pld

	pla

	plx
	plx
	plx
	plx

	pha

	rts

	ENDP


******************************************************************
*
* Cursor Stuff
*
* These are public entry points to these common routines that
* are used so often	that it pays to have a simple jsr entry	point
* to them rather than wasting 7 bytes every time they are called.
*
******************************************************************
	EXPORT CursorStuff
CursorStuff	PROC

	EXPORT WaitCursor
WaitCursor		;       
	_WaitCursor
	rts

	EXPORT InitCursor
InitCursor		;       
	_InitCursor
	rts

	ENDP


******************************************************************
*
* DisposeStuff
*
* Disposes the PrinterList handle and the PortList handle.
*
******************************************************************
	EXPORT DisposeStuff
DisposeStuff	PROC


	EXPORT DisposePrinterList
DisposePrinterList		;       

	lda PrinterList
	ora PrinterList+2
	beq Done

	PushLong PrinterList
	_DisposeHandle

	stz PrinterList
	stz PrinterList+2

Done	rts

	EXPORT DisposePortList
DisposePortList		;       

	lda PortList
	ora PortList+2
	beq Done

	PushLong PortList
	_DisposeHandle

	stz PortList
	stz PortList+2

	rts


	ENDP


******************************************************************
*
* Exits
*
******************************************************************
	EXPORT Exit
Exit	PROC




	EXPORT Exit12
Exit12		;       
	jsr FreeFrame	;free the direct page stack frame
	lda 5,s
	sta 17,s
	lda 3,s
	sta 15,s
	lda 1,s
	sta 13,s
	tsc
	clc
	adc #12
	tcs
	bra Exit0X

	EXPORT Exit10
Exit10		;       
	jsr FreeFrame	;free the direct page stack frame
	lda 5,s
	sta 15,s
	lda 3,s
	sta 13,s
	lda 1,s
	sta 11,s
	tsc
	clc
	adc #10
	tcs
	bra Exit0X

	EXPORT Exit8
Exit8		;       
	jsr FreeFrame	;free the direct page stack frame
	lda 5,s
	sta 13,s
	lda 3,s
	sta 11,s
	lda 1,s
	sta 9,s
	pla
	pla
	pla
	pla
	brl Exit0X

	EXPORT Exit6
Exit6		;       
	jsr FreeFrame	;free the direct page stack frame
	lda 5,s
	sta 11,s
	lda 3,s
	sta 9,s
	lda 1,s
	sta 7,s
	pla
	pla
	pla
	brl Exit0X

	EXPORT Exit4
Exit4		;       
	jsr FreeFrame	;free the direct page stack frame
	lda 5,s
	sta 9,s
	lda 3,s
	sta 7,s
	lda 1,s
	sta 5,s
	pla
	pla
	brl Exit0X

	EXPORT Exit2
Exit2		;       
	jsr FreeFrame	;free the direct page stack frame
	lda 5,s
	sta 7,s
	lda 3,s
	sta 5,s
	lda 1,s
	sta 3,s
	pla
	bra Exit0X
	EXPORT Exit0
Exit0 	
	jsr FreeFrame	;free the direct page stack frame
Exit0X
	txa
;Dec. busy flag because were not reentereant
	pha	;save error for return
	jsl DecBusyFlg	;dec. busy flag
	pla	;restore error

	cmp #1	Standard 0 byte input exit
	rtl

	ENDP

******************************************************************
*
* InsertDisk
*
* This routine puts	up an insert system	disk dialog and allows
* the user to press	OK or CANCEL.
*
******************************************************************
	EXPORT InsertDisk
InsertDisk	PROC

	_GetBootVol BootVolParams

	_ObscureCursor

	pha
	PushWord StartX
	PushWord StartY
	PushLong #InsertDiskStr
	PushLong #VolNameStr
	PushLong #OKButtonStr
	PushLong #CancelButtonStr
	_TLMountVolume
	pla
	cmp #1
	bne Done
	clc

Done	
	rts

BootVolParams		;
	DC.L VolNameStr

VolNameStr	DS.B 16

StartX	DC.W 10
StartY	DC.W 25

	ENDP

*****************************************************************
*
* Hopefully, we will find a way to get rid of this.
*
*****************************************************************
	EXPORT SillyData
SillyData	PROC

	EXPORT DispatchAdr
DispatchAdr		; this is address of the
	DS.B 32	; media control driver in memory (4*8 MChannels)
	EXPORT PrinterList
PrinterList		; this is handle to list of
	DS.B 4	; printers on disk
	EXPORT PortList
PortList		; this is handle to list of
	DS.B 4	; ports on disk.
	EXPORT PrinterHandle
PrinterHandle		; handle to list of printer names
	DS.B 4
	EXPORT ZoneHandle
ZoneHandle		; handle to list of zone names
	DS.B 4
	ENDP


*****************************************************************
*
* ReadDirData
*
*****************************************************************
	EXPORT ReadDirData
ReadDirData	PROC


	EXPORT SavedZoneName
SavedZoneName	DS.B 33
	EXPORT TempZone
TempZone	DS.B 33
	EXPORT TempPrType
TempPrType	DS.B 33
	EXPORT TempNetName
TempNetName		;
	EXPORT TempZone2
TempZone2	DS.B 33
	EXPORT WhereInModal
WhereInModal	DC.W 0
	EXPORT SomeThingFound
SomeThingFound	DC.W 0

	EXPORT DefaultZone
DefaultZone	str '*'

	EXPORT CurMediaDriver
CurMediaDriver	DS.B 16
	
	EXPORT CurrentDriver
CurrentDriver	DS.B 16
	
	EXPORT AppleTalkStr
AppleTalkStr	DS.B 16

	EXPORT NoAppleTalk
NoAppleTalk	DS.B 2

	EXPORT NumPrinters
NumPrinters	DS.B 2

	EXPORT NumPorts
NumPorts	DS.B 2

	EXPORT ListSize
ListSize	DS.B 2

	EXPORT PrinterListSize
PrinterListSize	DS.B 2

	EXPORT PortListSize
PortListSize	DS.B 2


	EXPORT OpenParams
OpenParams		;
	EXPORT OpenID
OpenID	DC.W 00	; Refnumb output.
	DC.L DirPath	; Pathname Pointer.
	DC.L 00	; File's Buffer Output.

	EXPORT CloseParams
CloseParams		;
	EXPORT CloseID
CloseID	DS.B 2

	EXPORT GetEOFParams
GetEOFParams	
	EXPORT GetEOFID
GetEOFID	DS.B 2
	EXPORT SizeOfFile
SizeOfFile	DC.L 00	; result, logical size of the file

	EXPORT DirPath
DirPath	str '*/system/drivers/Media.Control'

	EXPORT DriverPath
DriverPath	DS.B 40

	EXPORT TheEntry
TheEntry	DC.W $21
	EXPORT Length
Length	DC.B 0
	EXPORT EntryName
EntryName	DS.B 33

	EXPORT GetDirParams
GetDirParams		;
	EXPORT GetDirID
GetDirID	DC.W 00	; RefNumb
	DC.W 00	; flags
	DC.W 01	; base
	DC.W 01	; displacement
	DC.L TheEntry	; name of file
	DC.W 00	; entry number
	EXPORT EntryType
EntryType	DC.W 00	; file type
	DC.L 00	; eof
	DC.L 00	; block count
	DCB.B 8,00	; create time/date
	DCB.B 8,00	; mod time/date
	DC.W 00	; access attribute
	EXPORT EntryAuxType
EntryAuxType	DC.L 00	; auxiliary type field
	DC.W 00	; file system identifier

	EXPORT GetFileParams
GetFileParams		;
	DC.L DriverPath	; pathname
	DS.B 24	; result space

	ENDP


******************************************************************
*
* SetupData
*
* Data used for reading, writing and creating the setup file.
*
******************************************************************
	EXPORT SetupData
SetupData	PROC

	EXPORT CreateSetupParams
CreateSetupParams		;
	DC.L SetupFileName	; Path pointer
	DC.W $c3	; access bits
	DC.W $5c	; file type
	DC.L $00000100	; aux type
	DC.W 1	; storage type (seedling)
	DC.W 0	; create date
	DC.W 0	; create time

	EXPORT OpenSetupParams
OpenSetupParams		;
	EXPORT OpenSetupID
OpenSetupID	DC.W 0
	DC.L SetupFileName
	DC.L 0

	EXPORT ReadSetupParams
ReadSetupParams		;
	EXPORT ReadSetupID
ReadSetupID	DC.W 0
	DC.L CurMediaDriver1
	DC.L EndSetupFileInfo-SetupFileInfo
	EXPORT TransferCount
TransferCount	DC.L 0

	EXPORT WriteSetupParams
WriteSetupParams		;
	EXPORT WriteSetupID
WriteSetupID	DC.W 0
	DC.L CurMediaDriver1
	DC.L EndSetupFileInfo-SetupFileInfo
	DC.L 0

	EXPORT CloseSetupParams
CloseSetupParams		;
	EXPORT CloseSetupID
CloseSetupID	DC.W 0

	EXPORT DestroyParams
DestroyParams		;
	DC.L SetupFileName

	EXPORT SetupFileName
SetupFileName	str '8/media.setup'


	EXPORT SetupFileInfo
SetupFileInfo		;
	EXPORT CurMediaDriver1
CurMediaDriver1		;	; printer driver selection for appletalk



	DC.B 2,0
	


	EXPORT CurMediaDriver2
CurMediaDriver2		;	; printer driver selection for direct
	DCB.B 33,0		; connect
	DCB.B 231,0
	EXPORT CurrentPort
CurrentPort		;	; port driver selection
	DCB.B 33,0
	DCB.B 231,0
	EXPORT CurrentUser
CurrentUser		;       
	DS.B 16
	EXPORT CurrentNetName
CurrentNetName		;	; PrinterName+DeviceName+ZoneName
	DS.B 33		; this name used to	open connection
	EXPORT CurrentZoneName
CurrentZoneName		;       
	DS.B 33
	EXPORT AppleTalkOn
AppleTalkOn		;	    ; AppleTalk or Direct Connect on
	DS.B 2	; 0 is direct connect, 1 is appletalk
	EXPORT EndSetupFileInfo
EndSetupFileInfo		;

;
;Media Channel Offset tables
;
	EXPORT CP2Addr
CP2Addr	DC.L CurMediaDriver2	;Media Channel 1
	DC.L CurMediaDriver2+33	;Media Channel 2
	DC.L CurMediaDriver2+2*33	;Media Channel 3
	DC.L CurMediaDriver2+3*33	;Media Channel 4
	DC.L CurMediaDriver2+4*33	;Media Channel 5
	DC.L CurMediaDriver2+5*33	;Media Channel 6
	DC.L CurMediaDriver2+6*33	;Media Channel 7
	DC.L CurMediaDriver2+7*33	;Media Channel 8

	EXPORT CDAddr
CDAddr	DC.L CurrentPort		;Media Channel 1
	DC.L CurrentPort+33		;Media Channel 2
	DC.L CurrentPort+2*33	;Media Channel 3
	DC.L CurrentPort+3*33	;Media Channel 4
	DC.L CurrentPort+4*33	;Media Channel 5
	DC.L CurrentPort+5*33	;Media Channel 6
	DC.L CurrentPort+6*33	;Media Channel 7
	DC.L CurrentPort+7*33	;Media Channel 8


	ENDP


******************************************************************
*
* LoadData
*
******************************************************************
	EXPORT LoadData
LoadData	PROC


	EXPORT MediaDriverID
MediaDriverID	DCB.B  16,0		;8 MChannels times two bytes
	EXPORT DriverError
DriverError	DS.B 2



	EXPORT DriverSubPath
DriverSubPath	str '*/system/drivers/Media.Control/'
;	     12345678901234567
	EXPORT PathBuffer
PathBuffer	DS.B 51

	EXPORT DriverInMem
DriverInMem	DS.B 16
	EXPORT PortInMem
PortInMem	DS.B 16

	EXPORT MChannel
MChannel	DS.B 2		;Media Channel No. (zero based)
	EXPORT MChannel2
MChannel2	DS.B 2		;Media Channel No. times 2
	EXPORT MChannel4
MChannel4	DS.B 2		;Media Channel No. times 4

	ENDP

*****************************************************************
*
* Dummy drivers to be installed after a	real driver is unloaded just
* in case something	bad happens before an actual driver is loaded.
*
* This is also used to clean up a call that doesn't load and start
* the driver (an error is caused trying.)
*
*****************************************************************

	EXPORT DummyDriver
DummyDriver	PROC	
	jmp (ProcList,x)


ProcList
	DC.L Err6	; 0 MCGetName
	DC.L Err8	; 1 MCDStartUp
	DC.L Err2	; 2 MCDShutDown
	DC.L Err4	; 3 MCGetFeatures
	DC.L Err2	; 4 MCPlay
	DC.L Err2	; 5 MCPause
	DC.L Err6	; 6 MCSendRawData
	DC.L Err4	; 7 MCGetStatus
	DC.L Err4	; 8 MCControl
	DC.L Err4	; 9 MCScan
	DC.L Err6	;10 MCGetSpeeds
	DC.L Err4	;11 MCSpeed
	DC.L Err6	;12 MCStopAt
	DC.L Err10	;13 MCJogN
	DC.L Err8	;14 MCSearchTo
	DC.L Err2	;15 MCSearchDone
	DC.L Err2	;16 MCSearchWait
	DC.L Err4	;17 MCGetPosition
	DC.L Err4	;18 MCSetAudio
	DC.L Err4	;19 MCGetTimes
	DC.L Err4	;20 MCGetDiscTOC
	DC.L Err2	;21 MCGetDiscID
	DC.L Err2	;22 MCGetNoTracks
	DC.L Err2	;23 MCRecord
	DC.L Err2	;24 MCStop
	DC.L Err10	;25 MCWaitRawData
	DC.L Err6	;26 MCSetVolume
EndProcList	
	ENDP

	EXPORT Errs
Errs	PROC

	EXPORT Err0
Err0		;       
	jsr SetupFrame	;setup direct page stack frame
	jsr ErrorExit	;unload driver if needed
	brl Exit0

	EXPORT Err2
Err2		;       
	jsr SetupFrame	;setup direct page stack frame
	jsr ErrorExit	;unload driver if needed
	brl Exit2

	EXPORT Err4
Err4		;       
	jsr SetupFrame	;setup direct page stack frame
	jsr ErrorExit	;unload driver if needed
	brl Exit4


	EXPORT Err6
Err6
	jsr SetupFrame	;setup direct page stack frame
	jsr ErrorExit	;unload driver if needed
	brl Exit6
	
	EXPORT Err8
Err8		;       
	jsr SetupFrame	;setup direct page stack frame
	jsr ErrorExit	;unload driver if needed
	brl Exit8


	EXPORT Err10
Err10		;       
	jsr SetupFrame	;setup direct page stack frame
	jsr ErrorExit	;unload driver if needed
	brl Exit10

	EXPORT Err12
Err12		;       
	jsr SetupFrame	;setup direct page stack frame
	jsr ErrorExit	;unload driver if needed
	brl Exit12

;This is a common little routine that all the error exits use to cause an unload of the
;driver if there was an error trying to load and start it.  This is needed to cause each
;call to attempt to load and start each time its called (not just the first call on that
;channel.)
ErrorExit
	lda DriverError	;get error that caused this exit to happen
	pha	;save error
	cmp #BadChannel	;see if bad channel number is all
	beq EOK	;dont unload then, just return error
	lda #0	;we want unload and purge driver
	jsr UnloadCurMediaDriver ;unload the current driver
EOK
	pla	;restore error no.
	jsl DecBusyFlg	;dec. busy flag (because setup frame incs. it.

	rts
	ENDP

	END

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/MediaCtlTool/MediaCtrlMgr.equ b/IIGS.601.SRC/GSToolbox/MediaCtlTool/MediaCtrlMgr.equ
new file mode 100644
index 0000000..922839b
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/MediaCtlTool/MediaCtrlMgr.equ
@@ -0,0 +1 @@
+;------------------------------------------
;
; Equates from procedure Tool
;
;------------------------------------------
True           equ $0001
False          equ $0000
MaxChannelNo   equ 8			;max. media channel number
IncBusyFlg	   equ $e10064
DecBusyFlg	   equ $e10068


***************************************************************
*
* Error Equates
*
***************************************************************
UnImp		equ $2601			;Unimplemented for this device
NotApplic	equ UnImp			;Not applicable to this device
BadSpeed	equ $2602			;Invalid speed specified
BadUnitType	equ $2603			;Invalid unit type specified
TimeOutErr	equ $2604			;Timed out during device read
NotLoaded	equ $2605			;Driver was not loaded?
BadAudio	equ $2606			;Invalid Audio Value
DevRtnError	equ $2607			;Device returned error (unable to perform)
UnRecStatus	equ $2608			;Unrecognizable status from device
BadSelector	equ $2609			;Invalid selector value specified
FunnyData	equ	$260a			;funny data receive (retry again)
InvalidPort	equ $260b			;invalid port specified
OnlyOnce	equ $260c			;scans only once
NoResMgr	equ $260d			;Resource manager not active
ItemNotThere equ $260e			;Item Not found in database
WasShutdown equ $260f			;tool was already shutdown
WasStarted	equ $2610			;tool was already started
BadChannel	equ $2611			;invalid channel number
InvalidParam equ $2612			;Invalid Parameter
CallNotSupported equ $2613		;call not supported error

MissingDriver	equ NotLoaded

WriteProtected 	equ $2B
InvalidRefNum  	equ $43
FileNotFound 	equ $46
VolumeNotFound 	equ $45
FileLocked	   	equ $4E				; Access: file not write-enabled
VersionNb      	equ $0100            	
Toolnum        	equ 38
DriverID		equ $3883			;Media Control Driver ID
AuxTypeMC	   	equ $0400			;media ctrl drivers file aux type
FileTypeMC	   	equ $BB				;drivers file type

;------------------------------------------------------
;
;	Direct page equates 
;
;**Note: Be sure that DirectStack reflects total direct page bytes
;------------------------------------------------------
Temp1          equ 0                    ; Temp values to dereference easily
Temp2          equ Temp1+4
DP0			   equ Temp1
DP2            equ DP0+2
DP4            equ DP0+4
DP6            equ DP0+6

DirectStack	   equ DP0+10				;Total no. of direct page bytes required

;------------------------------------------------------
;
; Media Device Driver calls
;
;------------------------------------------------------
omcGetName		equ 0
omcDStartUp		equ 1*4
omcDShutDown	equ 2*4
omcGetFeatures	equ 3*4
omcPlay			equ 4*4
omcPause		equ 5*4
omcSendRawData	equ	6*4
omcGetStatus	equ 7*4
omcControl		equ 8*4
omcScan			equ 9*4
omcGetSpeeds	equ 10*4
omcSpeed		equ 11*4
omcStopAt		equ 12*4
omcJogN			equ 13*4
omcSearchTo		equ 14*4
omcSearchDone	equ 15*4
omcSearchWait	equ 16*4
omcGetPosition	equ 17*4
omcSetAudio		equ 18*4
omcGetTimes		equ 19*4
omcGetDiscTOC	equ 20*4
omcGetDiscID	equ 21*4
omcGetNoTracks	equ 22*4
omcRecord		equ 23*4
omcStop			equ 24*4
omcWaitRawData	equ 25*4
omcSetVolume	equ 26*4



;------------------------------------------
;
; Equates from procedure ReadDirData
;
;------------------------------------------
ListEntrySize  equ 38                   ; 33 + 4 + 1

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/MediaCtlTool/Release Notes.MediaCtlTool b/IIGS.601.SRC/GSToolbox/MediaCtlTool/Release Notes.MediaCtlTool
new file mode 100644
index 0000000..d04343c
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/MediaCtlTool/Release Notes.MediaCtlTool	
@@ -0,0 +1 @@
+MediaCtl Tool (Tool038)   6.0d23
Dan Hitchens


OVERVIEW:
Added volume support.  

MISCELLANEOUS CHANGES:
	-Added MCSetVolume call $2E26
	 
BRC BUG FIXES:
None
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/MediaCtlTool/dialogdata.asm b/IIGS.601.SRC/GSToolbox/MediaCtlTool/dialogdata.asm
new file mode 100644
index 0000000..868612e
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/MediaCtlTool/dialogdata.asm
@@ -0,0 +1 @@
+	blanks off
	string asis

	include 'all.macros'

	include 'MediaCtrlMgr.equ'
	include 'e16.dialog'


	EXPORT DIALOGDATA
DIALOGDATA	PROC

****************************************************************
*
* Media Control Manager version 1.0
*
* Copyright Apple Computer, Inc. 1986-90
* All rights reserved.
*
* This data files contains the text strings, dialog box sizes,
* and positions of strings used in PrChooser and InsertDisk.
*
****************************************************************

	EXPORT OKButtonStr
OKButtonStr	str 'OK'
	EXPORT CancelButtonStr
CancelButtonStr	str 'Cancel'
	EXPORT InsertDiskStr
InsertDiskStr	str 'Insert the disk'



;------------------------------------------------------------
; Alert Template
;------------------------------------------------------------
;
; 640 mode
;
	EXPORT alerttemp640
alerttemp640	DC.W 30,40,75,600	; bounds rect
	DC.W 1301	; id
	DC.B $80
	DC.B $80
	DC.B $80
	DC.B $80
	DC.L item1_640	; Continue
	DC.L item2_640	; text
	DC.L 0000


	EXPORT item1_640
item1_640	DC.W 1	; id
	DC.W 22,470,0,0	; bounds rect for button
	DC.W ButtonItem	; type
	DC.L But1	; item descriptor -	"Continue"
	DC.W 00	; item value
	DC.W 0	; item flag
	DC.L 0	; item color

	EXPORT item2_640
item2_640	DC.W 2	; id
	DC.W 3,100,43,410	; bounds rect for button
	DC.W LongStatText	; type

	EXPORT WhatMessage640
WhatMessage640	DS.B 4	; item descriptor

	EXPORT MessLength640
MessLength640	DS.B 2	; item value
	DC.W 0	; item flag
	DC.L 0	; item color

But1	str 'OK'

	EXPORT Msg1_640
Msg1_640	DC.B $0d
	DC.B 'Changes made to the media setup'
	DC.B $0d
	DC.B 'file could not be saved to disk.'
	EXPORT EndMsg1_640
EndMsg1_640		;
	EXPORT Msg2_640
Msg2_640	DC.B $0d
	DC.B 'Please make sure a Media Device and'
	DC.B $0d
	DC.B 'port is selected in the Control Panel'
	DC.B $0d
	DC.B 'desk accessory.'
	
	EXPORT EndMsg2_640
EndMsg2_640		;

	EXPORT UseCtrlPanelMsg_640
UseCtrlPanelMsg_640	DC.B $0d
	DC.B 'Please use the Control Panel desk'
	DC.B $0d
	DC.B 'accessory to select a Media device.'
	EXPORT EndUseCPMsg_640
EndUseCPMsg_640		;

;------------------------------------------------------------
;
; 320 mode
;
	EXPORT alerttemp320
alerttemp320	DC.W 30,10,95,310	; bounds rect
	DC.W 1301	; id
	DC.B $80
	DC.B $80
	DC.B $80
	DC.B $80
	DC.L item1_320	; Continue
	DC.L item2_320	; text
	DC.L 0000


	EXPORT item1_320
item1_320	DC.W 1	; id
	DC.W 45,240,0,0	; bounds rect for button
	DC.W ButtonItem	; type
	DC.L But1	; item descriptor -	"Continue"
	DC.W 00	; item value
	DC.W 0	; item flag
	DC.L 0	; item color

	EXPORT item2_320
item2_320	DC.W 2	; id
	DC.W 3,55,63,232	; bounds rect for text
	DC.W LongStatText	; type

	EXPORT WhatMessage320
WhatMessage320	DS.B 4	; item descriptor

	EXPORT MessLength320
MessLength320	DS.B 2	; item value
	DC.W EndMsg1_320-Msg1_320 ; item value
	DC.W 0	; item flag
	DC.L 0	; item color
	
	EXPORT Msg1_320
Msg1_320	DC.B $0d
	DC.B 'Changes made to the'
	DC.B $0D
	DC.B 'Media setup file'
	DC.B $0d
	DC.B 'could not be saved'
	DC.B $0d
	DC.B 'to disk.'
	EXPORT EndMsg1_320
EndMsg1_320		;

	EXPORT Msg2_320
Msg2_320	DC.B $0d
	DC.B 'Please make sure a'
	DC.B $0d
	DC.B 'Media Device and'
	DC.B $0d
	DC.B 'Port is selected'
	DC.B $0d
	DC.B 'in the Control Panel'
	DC.B $0d
	DC.B 'desk accessory.'
	
	EXPORT EndMsg2_320
EndMsg2_320		;

	EXPORT UseCtrlPanelMsg_320
UseCtrlPanelMsg_320	DC.B $0d
	DC.B 'Please use the Control'
	DC.B $0d
	DC.B 'Panel desk accessory'
	DC.B $0d
	DC.B 'to select a Media Device.'
	EXPORT EndUseCPMsg_320
EndUseCPMsg_320		;

	ENDP


	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/MediaCtlTool/makefile b/IIGS.601.SRC/GSToolbox/MediaCtlTool/makefile
new file mode 100644
index 0000000..b387f4c
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/MediaCtlTool/makefile
@@ -0,0 +1 @@
+### Dependancies for Media Control Manager Toolset
others	=	Special.macros ¶
			MediaCtrlMgr.equ

tool038				Ä		MediaCtrlMgr.asm.obj  dialogdata.asm.obj   
	linkiigs    MediaCtrlMgr.asm.obj dialogdata.asm.obj  ¶
				-t TOL  -o Tool038

	
### Dependancies for components

MediaCtrlMgr.asm.obj 		Ä 		MediaCtrlMgr.asm  {others}
	AsmIIGS MediaCtrlMgr.asm
	
DialogData.asm.obj		Ä		dialogdata.asm  {others}
	AsmIIGS dialogdata.asm	
	
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/MediaCtlTool/special.macros b/IIGS.601.SRC/GSToolbox/MediaCtlTool/special.macros
new file mode 100644
index 0000000..19af835
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/MediaCtlTool/special.macros
@@ -0,0 +1 @@
+
 MACRO
&lab moveword &from,&to1,&to2
 LCLC &C
&C setc &substr(&from,1,1)
 IF &C='[' GOTO .zeropage
&lab lda &from
 sta &to1
 IF &to2='' GOTO .a
 sta &to2
.a
 MEXIT
.zeropage
 IF &to1='0' GOTO .b
&lab ldy #&to1
 lda &from,y
 sta &to2
 MEXIT
.b
&lab lda &from
 sta &to2
 MEND
 
 
 MACRO
&lab movelong &from,&to1,&to2
 LCLC &C
 LCLC &REST
&C setc &substr(&from,1,1)
&REST setc &substr(&from,2,&LEN(&from)-1)
 IF &C='[' GOTO .zeropage
 IF &to2='' GOTO .a
&lab moveword &from,&to1,&to2
 GOTO .b
.a
&lab moveword &from,&to1
.b
 IF &C='#' GOTO .immediate
 IF &to2='' GOTO .c
 moveword &from+2,&to1+2,&to2+2
 MEXIT
.c
 moveword &from+2,&to1+2
 MEXIT
.immediate
 IF &to2='' GOTO .d
 moveword #^&REST,&to1+2,&to2+2
 MEXIT
.d
 moveword #^&REST,&to1+2
 MEXIT
.zeropage
&lab moveword &from,&to1,&to2
 ldy #&to1+2
 lda &from,y
 sta &to2+2
 MEND

 MACRO
&lab _GetDeviceName
&lab ldx #$1713
 jsl $E10000
 MEND

 MACRO
&lab _PrDevStartup
&lab ldx #19+256*26
 jsl $E10000
 MEND

 MACRO
&lab _PrDevShutDown
&lab ldx #19+256*27
 jsl $E10000
 MEND

 MACRO
&lab _GETFILEINFO &params
&lab jsl $E100A8
	DC.W	6
	DC.L	&params
 MEND

 MACRO
&lab _GETBOOTVOL &params
&lab jsl $E100A8
	DC.W	$28
	DC.L	&params
 MEND
 
 MACRO
&lab _DevIsItSafe
&lab ldx #$3013
 jsl $E10000
 MEND
 
 MACRO
&lab _DevPrChanged
&lab ldx #$1913
 jsl $E10000
 MEND
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/MenuMgr/Makefile b/IIGS.601.SRC/GSToolbox/MenuMgr/Makefile
new file mode 100644
index 0000000..eb086f9
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/MenuMgr/Makefile
@@ -0,0 +1 @@
+#### Dependencies for Menu Manager ####

Tool015		Ä		MenuMgr.asm.obj		PopUpProc.asm.obj	WCM.asm.obj		
	Linkiigs			-l >map			¶
		-lseg MainTool								¶
			MenuMgr.asm.obj							¶
			WCM.asm.obj   							¶
		-lseg:dynamic PopUpProc								¶
				PopUpProc.asm.obj					¶
	-o  Tool015	 -t TOL
	if {AutoDuplicate} == 1
		DuplicateIIGS -y -mac Tool015 :
	End
	
	
MenuMgr.asm.obj		Ä		MenuMgr.asm    MenuEquates.asm
	Asmiigs MenuMgr.asm
	
	
WCM.asm.obj		Ä		WCM.asm		
	Asmiigs WCM.asm

PopUpProc.asm.obj	Ä		PopUpProc.asm
	Asmiigs PopUpProc.asm


Menu.Loader		Ä		Menu.loader.asm.obj
	Linkiigs Menu.Loader.asm.obj -o Menu.Loader

Menu.loader.asm.obj		Ä		Menu.Loader.asm
	asmiigs Menu.loader.asm
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/MenuMgr/MenuEquates.asm b/IIGS.601.SRC/GSToolbox/MenuMgr/MenuEquates.asm
new file mode 100644
index 0000000..ba72cea
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/MenuMgr/MenuEquates.asm
@@ -0,0 +1 @@
+**************************************************************
***
*** Copyright Apple Computer Inc 198?-1991
*** All Rights Reserved
***
**************************************************************
***
*** 19-Sep-90 DAL
***   Added G_INITCURSOR bit for MenuGlobal.
*** 7-Jan-91 DAL
***   Added MinMenuBlinkTime.
*** 15-May-91 DAL
***   Added new error dupMenuID, $0F04.
***
**************************************************************

MinMenuBlinkTime	equ $0030	;2 ticks between inverts
;
; --- Stack offsets after startup called --------------------------
;
saveDbank	equ 1
saveDpage	equ saveDbank+1
returnAddr	equ saveDpage+2
input	equ returnAddr+6

;
; --- Direct Page offsets --------------------------------------------------
;
data	equ 0	0 Pointer to RAM data area.
globalFlag	equ data+4	4 Global Menu Manager flag.
MyID	equ globalFlag+2	6 Memory ID to use when allocating.
sysmenu	equ MyID+2	8 Pointer to system	menu bar.
rect	equ sysmenu+4	12 General RECT.
barptr	equ rect+8	20 Pointer to current menu bar.
barhand	equ barptr+4	24 Handle of menu bar.
menuptr	equ barhand+4	28 Pointer to current menu.
menuhand	equ menuptr+4	32 Handle of menu.
itemptr	equ menuhand+4	36 Pointer to current item.
temptr	equ itemptr+4	40 Work pointer.
temptr2	equ temptr+4	44 Work pointer.
norcolor	equ temptr2+4	48 Normal text and background color.
hiliteclr	equ norcolor+2	50 Selected text and background color.
outlineclr	equ hiliteclr+2	52 Color of outline.
menu_cnt	equ outlineclr+2	54 Menu counter for	'next_menu'.
blink	equ menu_cnt+2	56 Blink rate when items are selected.
yrat	equ blink+2	58 Cursor y position.
xrat	equ yrat+2	60 Cursor x position.
creamed	equ xrat+2	62 Address of routine to redraw under menu.
sav_buff	equ creamed+4	66 Handle of buffer	to save under a menu.
screenmode	equ sav_buff+4	70 Current screen mode, 0=320, 1=640.
menurect	equ screenmode+2	72 Current menu's RECT.
count	equ menurect+8	80
titlenum	equ count+2	82 ID number of currently selected menu.
curselect	equ titlenum+2	84 Index of currently selected item.
param	equ curselect+2	86 Parameter pass to menu defProc.
temp	equ param+2	88
vert_pen	equ temp+2	90 Width of vertical lines.
Titlex1	equ vert_pen+2	92 Left side of selected menu title.
Titlex2	equ Titlex1+2	94 Right side of selected menu title.
startbutt	equ Titlex2+2	96 0 = button down,	2 = button up.
text_width	equ startbutt+2	98 text_width, width of widest char.
strg_ptr	equ text_width+2	100 String pointer.
old_port	equ strg_ptr+4	104 Save caller's port when I draw.
port_nest	equ old_port+4	108 Nest counter.
inactItem	equ port_nest+2	110 Inactive item ID that was selected.
tomemory	equ inactItem+2	112 Paint pixels parameter block.
toscreen	equ tomemory+22	134 Paint pixels parameter block.
scInfo1	equ toscreen+22	156 Place to save a	return address.
event	equ scInfo1+16	172 Event record.
des_y	equ event+16	188
des_0	equ des_y+4	192
scrnRect	equ des_0+4	196
lineTable	equ scrnRect+8	204
firstVisItem	equ lineTable+4	208 Item number of first visible item in a menu
lastVisItem	equ firstVisItem+2	210 Item number of last visible item in a menu
currentSel	equ lastVisItem+2	212
uparrow	equ currentSel+2	214 Flag that tells me if there is an up arrow in menu
dwnarrow	equ uparrow+2	216 Flag that tells me if there is a down arrow in menu
inUpArrow	equ dwnarrow+2	218 Flag that tells me if mouse is in up arrow
inDwnArrow	equ inUpArrow+2	220 Flag that tells me if mouse is in down arrow
specialFlag	equ inDwnArrow+2	222 my all purpose flag
scrollCount	equ specialFlag+2	224 keeps track of when to scroll next item
saveY1	equ scrollCount+2	226
saveY2	equ saveY1+2	228
;
;(((((((((((((((((((Keep these together
;
font_h	equ saveY2+2	230 System font height plus leading.
descent	equ font_h+2	232 System font descent plus bottom leading.
work	equ descent+2	234 Work must be at	least 20 bytes.
DIRECTSIZE	equ work+22	256
;                                     )))))))))))))))))))))))))))))))))))))))

;
; --- QuickDraw equates ----------------------------------------
;
PortRect	equ work+4	228

PortSCB	equ 0	0
PixelImage	equ PortSCB+2	2
Width	equ PixelImage+4	6
BoundsRect	equ Width+2	8
LOCINFO	equ BoundsRect+8	16
;
BOLDTEXT	equ $0001
ULINETEXT	equ $0002
;
BLACK	equ $0000
RED	equ $1111
GREEN	equ $2222
WHITE	equ $ffff
;
P_SOLID	equ $0000
P_DITHER	equ $0100
P_DOTTED	equ $0200
P_LINED	equ $0300

;
; --- RECT offsets ----------------------------------------------------------
;
y1	equ 0
x1	equ y1+2
y2	equ x1+2
x2	equ y2+2

;
; --- Event Record Offsets -------------------------------------------------
;
what	equ 0
message	equ what+2
when	equ message+4
where	equ when+4
modif	equ where+4
TaskData	equ modif+2
;
MOUSEDOWN	equ 1	Event codes.
MOUSEUP	equ 2


;
; --- Menu Res Flag -----------------------------------------------------------
;
M_RESOURCEID	equ $8000	first two bits of menures now being used to determine if
M_HANDLE	equ $4000	the menu title is a ptr, handle or resource ID 

ALWAYSCALLMCHOOSE	equ $0100	for custom menus that always wants their mChoose routine 
;		to be called regardless of whether mouse is in menurect 
;		or not, (for Andy Stadler's custom tear off menus)
;		if first two bits are zero then its a ptr to the string
CLEAR_TWO_BITS	equ $3FFF

;
; --- Menu Flags -----------------------------------------------------------
;
M_ENABLED	equ $0080	0 = menu enabled, 1	= menu disabled.
M_NO_XOR	equ $0020	0 = don't XOR to highlight title, 1 = do.
M_STANDARD	equ $0010	0 = standard menu, 1 = custom menu.
M_CACHE	equ $0008	0 = no cache buffer, 1 = cache buffer.
M_INVIS	equ $0004	0 = visible, 1 = invisible.
M_SCROLL	equ $0002	0 = not scrollable, 1 = scrollable
M_POPUP	equ $0001	0 = regular menu, 1 = pop-up menu

_M_CACHE	equ $FFF7
_M_SCROLL	equ $FFFD	
_M_POPUP	equ $FFFE
;
; --- Menu item flags -----------------------------------------------------
;
; 
I_RESOURCEID	equ $8000	first two bits of item flag now used to determine if
I_HANDLE	equ $4000	item name is ptr, handle or resource ID
;		if first two bits are zero then its just a ptr to the string
I_NOSHADOW	equ $1000	0 = don't shadow text, 1 = do.
I_NOOUTLINE	equ $0800	0 = don't outline text, 1 = do.
I_NEWSTRUCTURE	equ $0400	0 = no addit'l structure, 1 = itemname pts to this struct.
I_STRUCTisRESOURCE	equ $0200	bits 8 and 9 determine how the structure will be referenced
I_STRUCTisHANDLE	equ $0100
I_ENABLED	equ $0080	0 = item enabled, 1	= item disabled.
I_NOUNDER	equ $0040	0 = no underline, 1	= underline.
I_NO_XOR	equ $0020	0 = don't XOR to highlight item, 1 = do.
I_RESERVED	equ $0010	Reserved.
I_INVIS	equ $0008	0 = visible, 1 = invisible.
I_NOSCORE	equ $0004	0 = don't underline text, 1 = do.
I_NOITALIC	equ $0002	0 = don't italize text, 1 = do.
I_NOBOLD	equ $0001	0 = don't bold text, 1 = do.

FIRST_TWO_BITS	equ $C000	mask off last 14 bits
RESOURCE_REF	equ $8000	
HANDLE_REF	equ $4000

iRESOURCE_REF	equ $2000	only used in menu flag of resource menu record
iHANDLE_REF	equ $1000

T_LEADING	equ 2	Top leading.
B_LEADING	equ 2	Bottom leading.

;
; ------ MENUBAR record --------------------------------------------
;
CtlNext	equ 0
CtlOwner	equ CtlNext+4
CtlRect	equ CtlOwner+4
CtlFlag	equ CtlRect+8
CtlHilite	equ CtlFlag+1
CtlValue	equ CtlHilite+1
CtlProc	equ CtlValue+2
CtlData	equ CtlProc+4
CtlAction	equ CtlData+4
CtlrefCon	equ CtlAction+4
CtlColor	equ CtlrefCon+4
MenuList	equ CtlColor+4	Array of menu handle, zero = last.
BARSIZE	equ MenuList

;
; ------ MENU record -----------------------------------------
;
MenuID	equ 0	Menu's ID number.
MenuWidth	equ MenuID+2	Width of menu.
MenuHeight	equ MenuWidth+2	Height of menu.
MenuProc	equ MenuHeight+2	Menu's definition procedure.
MenuFlag	equ MenuProc+4	Bit flags.
MenuRes	equ MenuFlag+1	Future expansion (makes record even).
NumOfItems	equ MenuRes+1	Number of items in the menu
TitleWidth	equ NumOfItems+2	Width of menu's title.
TitleName	equ TitleWidth+2	Pointer to menu's title text.

MenuCache	equ TitleName+4	Handle of menu's cache.
ItemList	equ MenuCache+4	Array of items in menu.
MENUSIZE	equ ItemList	Size of menu record	with no items.

;
; ------ ITEM record -----------------------------------------
;
ItemID	equ 0	Item's ID number, zero = last item.
ItemChar	equ ItemID+2	Keyboard equvalent,	display in item.
ItemAltChar	equ ItemChar+1	Alternate keyboard equvalent, not shown.
ItemCheck	equ ItemAltChar+1	Item's mark.
ItemFlag	equ ItemCheck+2	Bit flags.
ItemName	equ ItemFlag+2	Pointer to item's text.
ITEMSIZE	equ ItemName+4	Size of ITEM record.

;
; ------ ITEM record2 ----------------------------------------
;
ItemFlag2	equ 0	Bit flags that determine how big structure is.
ItemName2	equ ItemFlag2+2	Reference to name of item.
ItemIcon	equ ItemName2+4	Reference to item's icon.
ITEMSIZE2	equ ItemIcon+4

;
; ------ Menu Item2 flags  -----------------------------------
;
I_NOICON	equ $8000	0 = no icon, 1 = there is an icon associated with item
I_ICONisRESOURCE	equ $0002	1 = reference to icon is a resource ID
I_ICONisHANDLE	equ $0001	1 = reference to icon is a handle

;
; ------ Menu defProc messages ---------------------------------
;
mDrawMenu	equ 0
mChoose	equ 1
mSize	equ 2
mDrawTitle	equ 3
mDrawItem	equ 4
mGetItemID	equ 5

;
; ------ Menu Manager error codes -------------------------------
;
MENU_STARTED	equ $0F01	Menu Manager already started.
ITEM_NOT_FOUND	equ $0F02	Item not found for item ID passed
NoStruct	equ $0F03	Invalid access to new item structure
dupMenuID	equ $0F04	;duplicate menu id (added 15-May-91 DAL)
;
; ------ Global menu flags --------------------------------------
;
G_HELP	equ $0001	Set for selecting inactive menu items.
G_INITCURSOR	equ $0002	Forces MenuSelect to call InitCursor
;
; ------ Miscellaneous menu equates ------------------------------
;
AppleLogo	equ $FF
MenuToolNum	equ 15
ScreenWidth	equ 200	Width of screen in pixels

;
; ------ Cache equates -------------------------------------------
;
cacheFlag	equ 0	WORD  TRUE if menu image is OK, FALSE if BAD.
cachey1x1	equ 2	WORD  Address of first word in upper left corner of menu.
cacheWidth	equ 4	WORD  Number of words per line where 0 = one word.
cacheHeight	equ 6	WORD  Number of lines in menu where 1 =	one line.
cacheCache	equ 8	CACHE First line, stored from screen right to left.

; masks for control flag
;
FType2PopUp	equ $0040	; 0 = normal popup, 1 = popup w/white space
FDontHiliteTitle	equ $0020	; 0 = hilite title, 1 = don't hilite title
FDontDrawTitle	equ $0010	; 0 = draw title, 1 = don't draw title
FDontDrawResult	equ $0008	; 0 = selection in pop-up rect, 1 = no selection drawn
FInWindowOnly	equ $0004	; 0 = use menumgr port, 1 = use current port
FRightJustifyTitle	equ $0002	; 0 = left justify title, 1 = right justify title
FRightJustifyResult	equ $0001	; 0 = left justify result, 1 = right justify result

;
; ------ Menu resource definitions ------------------------------
;
;==================================================
;
; Format of a menu bar (rMenuBar) resource 
;
	DSect 0
resMenuBarVersion	word	; for future use
resMenuBarFlag	word	; currently only first two bits defined 
MenuRef1	long	; first menu in the menu bar
		; last menu is terminated by a 0
		
;==================================================
;
; Format for a menu (rMenu) resource 
;
	DSect 0
resMenuVersion	word	; for future use
resMenuID	word
resMenuFlag	word 	; menures determines if name is: ptr, handle, res ID
resTitleName	long 	; string resource ID for menu title
itemResourceID	long 	; this is the ID for the first item resource in the menu
		; last item terminated by an ID of 0

;==================================================
; 
; Format of a menu item (rMenuItem) resource
;
	DSect 0
resItemVersion	word	; for future use
resItemID	word
resItemChar	byte
resItemAltChar	byte
resItemCheck	word
resItemFlag	word	; item flag determines if name is: ptr, handle, res ID
resItemName	long	; this is the ID for a string resource

ItemRecSize	equ resItemName+4

;==================================================
;
; menu descriptors (verbs)

RefIsPointer	equ $0000
RefIsHandle	equ $0001
RefIsResource	equ $0002

;=======================================================================
;
; This is the control record for a popup control
;

PopUpCtlRecord	RECORD  0

ctlNext	DS.L  1
ctlOwner	DS.L  1	; port containing the pop-up control
ctlRect	DS.W  4	; total rectangle, title + pop-up box
ctlFlag	DS.B  1
ctlHilite	DS.B  1
ctlValue	DS.W  1	; current selection for pop-up
ctlProc	DS.L  1	; control type
ctlAction	DS.L  1
ctlData	DS.L  1
ctlRefCon	DS.L  1
ctlColor	DS.L  1	; ptr to color table
MenuRef	DS.L  1	; make this record look like a menu record
MenuEnd	DS.L  1	; signifies end of menu list, must be zero
PopUpRect	DS.W  4	; "hot spot" for popping up pop-up	
ctlID	DS.L  1
ctlMoreFlags	DS.W  1
ctlVersion	DS.W  1
TitleWidth	DS.W  1	; width of title

Size	DS.B  1

	ENDR

;
;-------------------------------------------------
;          Offsets into RAM data area.
;-------------------------------------------------
;
; --- RAM that must be initialized ----------------
;
mark	equ 0	3
com_key	equ mark+3	4
scrnInfo	equ com_key+4	16
memInfo	equ scrnInfo+16	16
des_y1	equ memInfo+16	2
des_x1	equ des_y1+2	2
clip100	equ des_x1+2	8 Size of destination.
imageInfo	equ clip100+8	16
defmenu	equ imageInfo+16	44 Menu bar record template.
menuColor	equ defMenu+44	6 Default menu color table.

;
; --- RAM that starts as zero ----------------------
;
port	equ menuColor+6	262 Menu Manager's port.
ColorTable	equ port+262	32
image	equ ColorTable+32	64

RAMSIZE	equ image+64	Size of RAM data area.

;
; --- Operating system equates ---------------------
;
IncBusyFlg	equ $E10064
DecBusyFlg	equ $E10068


;
; --- Icon structure equates -----------------------
;
IconType	equ 0
IconImage	equ IconType+2
IconWidth	equ IconImage+4
IconRect	equ IconWidth+2

rMyItemStruct	equ $8028
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/MenuMgr/menu.loader.asm b/IIGS.601.SRC/GSToolbox/MenuMgr/menu.loader.asm
new file mode 100644
index 0000000..62ed420
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/MenuMgr/menu.loader.asm
@@ -0,0 +1 @@
+	include 'all.macros'
	include 'e16.locator'


MMLoader	PROC

	bra RealStart



True	equ $FFFF
False	equ 0



TheUserID	equ $400f
TheToolNumber	equ $0F
TheName	str '1/tool015'

RealStart


;-----------------------------------------------------------
;
; Brk if necessary
;
	lda >$C062
	and #$0080
	beq @NoBreak
	brk 17
@NoBreak



;-----------------------------------------------------------
;
; Set dbr
;

	phk
	plb


;-----------------------------------------------------------
;
; Unload last patch
;

	pha	; space for result
	PushWord #TheUserID
	PushWord #0
	_UserShutdown

	pla

;-----------------------------------------------------------
;
; Load the new one
;


	pha	; space for dir page stack size
	pha	; space for addr of	dir page stack seg
	pha	; space for starting addr
	pha
	pha	; space for user id
	PushWord #TheUserID	; user id
	PushLong #TheName	; ptr to path name
	PushWord #True
	_InitialLoad
	bcs Die

	pla	; ignore userid
	pla	; put starting address
	sta TableAddress
	pla
	sta TableAddress+2
	pla	; ignore dir page
	pla	; ignore dir page size


;-----------------------------------------------------------
;
; Install
;
	PushWord #0	; system call
	PushWord #TheToolNumber	; install the patch
	PushLong TableAddress
	_SetTSPtr
	
	_SetDefaultTPT

;-----------------------------------------------------------
;
; Quit
	_Quit QuitParams


QuitParams	DC.L 0
	DC.W 0


TableAddress	DS.B 4





Die		; 
	pha
	PushLong #ErrorString
	_SysFailMgr

ErrorString	str 'Could not load.  Error was $'

	ENDP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/MenuMgr/menumgr.asm b/IIGS.601.SRC/GSToolbox/MenuMgr/menumgr.asm
new file mode 100644
index 0000000..71e3f90
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/MenuMgr/menumgr.asm
@@ -0,0 +1 @@
+***********************************************************************************
*
*            Copyright Apple Computer, Inc. 1986-92
*	  All Rights Reserved
*	 Written by Dan Oliver
*
*               ***	C O N F I D E N T I	A L ***
*
*
*	Change History:
*
* 21 June 1988	Harry Yee
*	Converted version 2.1 of the menu manager that went on
*	System Disk 3.2 to MAX.
*
*
* 27 June 1988	Steven Glass
*
* Changed all accesses to popXbytes.  All but two loaded y-reg with zero before
* branching so we changed these to access the new pop routines that assumed
* no error.  (these are now called popXbytes.)
*
* The error accesses still branch to the routines that assume y-reg has error
* code.  These have been renamed EpopXbytes.
*
* 30 June 1988	Steven Glass
*
* When calling the creamed routine we did a jsr to Long_Call instead of a JSL.
*
* 10 Aug 88	Dan Oliver
*
* Free allocated data area on shutdown.
*
* 02 Oct 88	Steven Glass
*
* Changed the data structure for Menu Items.  They now have two bytes for
* the item flag.
*
* Added the outline and shadow bits to the item flag
*
* Funnelled all calls to set text face to a common routine.  This saved code
* and lets me futz the text face bits.
*
* Changed parse routines so that they set check mark and flag separately instead
* of both at once.
*
*
* 14 Oct 88	Steven Glass
*
* Shutdown checks to see if it's active first before doing anything.
*
* 17 Oct 88	Harry Yee
*
* Put in code for scrollable menus. Modified Size_menu, took out code that checked to see
* if menuheight was greater than 1988.  (Does that mean 198?? --DAL Jan-91)
*
* 18 Oct 88	Harry Yee	(released in Proto 03 ROM)
* Initialized FirstItem field for custom menus to be 1. In DeleteMItem needed to decrement
* NumOfItems each time an item gets deleted.
*
* 19 Oct 88	Harry Yee
* Now using PortRect instead of BoundsRect to check if menu needs to be adjusted or not.
*
* 20 Oct 88	Harry Yee
* Not using the fields FirstItem and NumOfItems in the menu record anymore. Making space
* on direct page to hold these values. FirstItem and NumOfItems were 1 byte values,
* since I don't need FirstItem anymore, I am making NumOfItems 1 word long. NumOfItems
* will hold the total number of items in the menu. Fixed some problems dealing with
* custom menus. Made sure that a menu is not going to be scrollable if there are less
* than 3 items.
*
* 25 Oct 88	Harry Yee
* Put in code for PopupMenuSelect and tracking the pop-up menu (TrackMenu2).
* Made change to the routine pull_down during the savescreen process. The first line of
* the menu was not being cached, this was ok for regular menus, since the menu bar was
* there, but for pop-ups this was a problem, so the first line of the menu is cached for
* all regular and pop-up menus.
*
* 28 Oct 88 (morning) Harry Yee
* Changed the makefile to include the popupproc.asm code.  Added a new call DrawPopup $3D0F
* this is called by the popupproc do_draw and do_track to draw the pop-up box and drop
* shadow. A flag is also passed to this call which tells me whether to draw the name of the
* currently selected item in the pop-up box or not.
*
* 28 Oct 88 (afternoon) Harry Yee
* In routine DrawPopup set clip region to the pop-box (which is inset just a bit to account
* for the border) before drawing the item string.
*
* 31 Oct 88	Harry Yee
* Fixed problem when the pop-up rect is at bottom of the window.
*
* 02 Nov 88	Harry Yee
* Fixed more problems when the pop-up rect gets close to the bottom of the screen and the
* user trys to bring up the pop-up menu.
*
* 08 Nov 88	Harry Yee
*
* In the Oct 25 change that enabled caching of the first line of the menu this caused some
* problems in routine AllocateCache. Routine was allocating one line too less since it was
* allocating memory on the old assumption that the first line was not cached. I now increment
* the height by one so that everyone is happy (BRC #38017).
*
* 10 Nov 88	Harry Yee
*
* We now define the first two bits of the item flag. 00 = ptr, 01 = handle, 10 = resource ID.
* The first two bits of the menures byte is now also defined: 00 = ptr, 01 = handle, 10 = res ID
*
* Initial coding of NewMenu2 call ($3E0F). Don't know if it works though.
* Defined the format of menu, item and menubar resources.
*
* 11 Nov 88	Harry Yee
*
* NewMenu2 now works!! Hurrah! Now start on adding calls InsertMItem2, SetMenuTitle2,
* SetMItem2, and SetMItemName2.
*
* 15 Nov 88	Harry Yee
*
* Pop-up menus can now be resources. Hurrah! All the calls InsertMItem2, SetMenuTitle2,
* SetMItem2, and SetMItemName2 are now complete. Still need NewMenuBar2 call.
*
* 18 Nov 88	Harry Yee
*
* NewMenuBar2 has now been implemented.
*
* 23 Nov 88	Harry Yee
*
* The routines DrawPopup and PopUpMenuSelect were not unlocking the handle to the menu record
* upon exit. I now unlocke before exiting.
* DrawPopUp has been modified so that it now right justifies the result if the
* FRightJustifyResult bit was set in whatToDoFlag.
*
* I now use PPToPort to draw the up/down arrows instead of DrawIcon, so I now no longer depend
* on QDAux to be started. (BRC #37822)
*
* 29 Nov 88	Harry Yee
*
* Change PopUpMenuSelect so that the initial value passed is the item's ID instead of an offset
* into the item list (BRC #38519)
*
* In PopUpMenuSelect, if an invalid item ID is passed for the initial then an error is now
* returned (BRC #38521, #38520)
*
* Fixed problem in routine adjustTop. (WorkSheet #BCORMR518)
*
* 01 Dec 88	Harry Yee
*
* Empty menus are now valid. (BRC #38523) The routine parse was changed to check if the first
* character in the first item is a title character, if it is then I assume the menu is empty.
* (since this char. is not a valid item character and it equals the title char. then this
* signifies a termination char.)  InsertMItem was also modified to support empty menus. It always
* checked to make sure that an item could be found for the insertAfter id passed to it. Since
* the menu was empty none could be found and we exited. I now check if the menu is empty first.
*
* 02 Dec 88	Harry Yee
*
* Change the way I handle a bad initial value passed to the pop-up. If the item ID is invalid then
* the item that appears under the pop-up defaults to the first item in the menu. (BRC #38521,
* #38520)
*
* PopUpMenuSelect has been modified to work for empty pop-up menus.
*
* 05 Dec 88	Harry Yee
*
* Change GetMItem back to the way it was before (just return what is in ItemName). I used to check
* the itemFlag, and if it was a resource I would load the resource, deref the handle and
* return the ptr to the string. If it's a resource I now just return the ID and let the
* app worry about what to do with it.
*
* DeleteMItem wasn't working right for empty menus. Fixed in routine Getiptr3.
*
* 08 Dec 88	Harry Yee
*
* Putting in variable speed scroller. First 5 pixels of each up/down arrow will scroll at about
* .3 seconds per item.
*
* Fixed BRC #37987. FixMenuBar now computes the width of the apple logo correctly if it gets
* zeroed by calling SetMTitleWidth.
*
* Changed the default menu bar template so that the first menu in the menubar is indented
* by 10 pixels. This is so the AppleShare "busy" arrows have somewhere to go.
*
* 09 Dec 88	Harry Yee
*
* SetMItemStyle doesn't handle shadow and outline styles correctly. Fixed (BRC #39324)
*
* Fixed problem with drawing up/down arrows in 320 mode. Was using the 640
* boundsrect and locinfo instead of the 320 one. This has been fixed.
*
* 12 Dec 88	Harry Yee
*
* Fix GetItem to return ITEM_NOT_FOUND error if item not found. (for Andy Stadler)
* Changed the pen mode to notBIC when calling PPToPort to draw up/down arrows, so these
* arrows show up correctly when the menu is in color.
*
* 15 Dec 88	Harry Yee
*
* Put in code for user to create a second type of pop-up (with white space). PopUpMenuSelect
* had to be changed. Another input param has been added, a flag parameter.
*
* Popups now handle command key equivalents (all handled in popupproc.asm).
*
* Drop shadow for menus (popups and regular menus) were not being drawn in the color that
* the app had specified as the outline color if the _SpecialRect call completed. This was
* because the setoutline routine was called only when SpecialRect failed.
*
* 22 Dec 88
*
* Fixed some problems with creating type 2 pop-ups. When 1st item was selected and pop-up
* was down near bottom of screen we had problems.
*
* Defined another bit in the menu flag. Bit 8 is defined as the ALWAYSCALLMCHOOSE flag.
* Change put in for Andy Stadler for doing tear off menus. When set the custom menu def proc
* mChoose gets called even when the mouse is not in the menu rectangle. (It sends off the
* last draw message,if there is one, before calling mChoose).
*
* 03 Jan 89	Dan O.
*
* Choose_item did a tdc ora #rect instead of tdc clc adc #rect.  This worked as long as the
* direct page had bits 2-3 clear.
*
* 04 Jan 89	Harry Yee
*
* NewMenuBar now checks what mode we're in before setting the default starting position of the
* first menu title. Titles start at 10 pixels in for 640 mode and 5 pixels in, for 320 mode.
*
* Fixed bug in the type 2 pop-up. The pop-up was not being calculated correctly when the top had
* to be adjusted but not the bottom and the window the pop-up was in was off the screen.
*
* 09 Jan 89	Harry Yee
*
* Keyboard equivalents and check marks will appear in plain text regardless of the style
* of the menu item. BRC #39042, #39444.
*
* 18 Jan 89	Harry Yee
*
* Added two new calls HideMenuBar and ShowMenuBar. Both calls work only on the system menu bar.
* HideMenuBar hides the menu bar by subtracting the menu bar's rect from the desktop, ShowMenuBar
* does the exact opposite, the rect is added to the desktop. This fixes the bug where you
* change the font to a larger one then back to a smaller one.
*
* Changed routine Cache. If a regular pop-up menu extended beyond the top of the screen this
* routine doesn't expect any values to be negative. Therefore if <menurect+y1 is negative
* we use zero instead.
*
* When a large font was used for drawing menus and the menu had command-key equivalents, the width
* of the menu was not being calculated correctly. This was because in size_menu the values added
* to the menu width for an item having a command-key equiv. and a check mark was hard coded. This
* has been changed. The direct page variable Menu_type was never being used previously, I now use
* it to store the width of the widest item in the current font strike. It has been renamed to
* text_width. This value is calculated in MenuNewRes where GetFontInfo is being called.
* BRC #37985.
*
* 20 Jan 89	Harry Yee
*
* Menus in an info bar now work correctly. Changed the way I calculate if a menu needs to scroll
* or not. Before I was just using the PortRect to determine if the menu needed to be resized, now
* I use the intersection between the VisRgn, ClipRgn, and PortRect. BRC #40477.
*
* 27 Jan 89	Harry Yee
*
* Change the way empty menus work. To create an empty menu you now have to terminate the menu with
* either $00 (null character) or $0D (return). The original scheme was to terminate the menu with
* the title character but this caused some problems with an app. (Notes'n'file). BRC #39489.
*
* 29 Jan 89	Harry Yee
*
* Changed DrawPopUp. This routine first clears the current selection in the pop-up rect before
* checking if the itemnum is valid or not. If the selection being made is not valid there is no
* selection in the pop-up's rect. After deleting an item, I now check if the menu is a pop-up
* menu, if it is I check if the item just deleted was the currently selected item, if it is
* I then call SetCtlValue with the value of zero which then clears the selection just deleted
* in the pop-up's rect. BRC #39760.
*
* 30 Jan 89	Harry Yee
*
* Changed HiliteMenu to work with pop-ups.
*
* When caching menus I now switch to the menu manager's pixel map bank instead of going directly to
* bank $E1. This now allows shadowing to be enabled. (J. Mensch's idea)
*
* 01 Feb 89	Harry Yee
*
* Changed PopUpMenuSelect so that the menu's flag is saved upon entering routine and restored upon
* exit. I do this because the flag may need to be altered, the M_CACHE bit needs to be cleared
* and the M_POPUP bit needs to be set for everything to work correctly. (BRC #41040, 41041)
*
* 06 Feb 89	Harry Yee
*
* Changed Draw_Menu routine to set Text Mode to modeForeCopy. This was needed to make menus in
* windows work correctly. When menus are drawn in the Menu Manager's port the text mode is set up
* correctly when the port is first initialized, but for menus in windows this is not the case.
* (BRC #40708)
*
* 07 Feb 89 	Harry Yee
*
* Changed DeleteMenu, to first release the cache for the menu being deleted and also freeing
* all the caches once the menu is deleted since the position of the menus may now be out of
* order. InsertMenu now also free's all the caches for this same reason.
*
* GetColor now checks if the ctlColor field is zero or not, if it is then the default color table
* is used. SetBarColors also checks this field and if it's zero then it doesn't do anything.
*
* 22 Feb 89	Harry Yee
*
* Fix some problems with FixMenuBar and HideMenuBar. It was doing far too much making it very
* slow if there were windows open. RefreshDesktop is no longer being called for ShowMenuBar and
* for HideMenuBar the whole screen is no longer being refreshed, only the rect for the menubar
* being hidden. Also initPalette is called after the menu is drawn.
*
* 24 Feb 89	Harry Yee
*
* I used to use MaxWidth to determine how much to add to the width of a menu item if it had
* a check mark and a command key equivalent. This caused problems for AppleWorks GS which
* installed their own font with one very very wide char. I now use the character 'W' out of
* currently installed font strike as my MaxWidth char. BRC #41164, 41415
*
* A menu in a window would have problems when, 1) the window was off the left side of the
* screen and 2) the menu title was visible but the width of the menu was greater than
* the right side of the window minus the left side of the screen. Fixed. BRC #41440
*
* 15 Mar 89	Harry Yee
*
* Removing DrawPopUp call. This makes the pop-up defproc easier to maintain.
*
* 27 Mar 89	Harry Yee
*
* I now restore original foreground color in routine draw_title.
*
* 30 Mar 89	Mensch/Yee
*
* Changed GetColor to make it work with pop-up color tables that reference handle/resources.
*
* We now save and restore all grafport shit in PopUpMenuSelect (two new routines PushPortData
* and PopPortData).
*
* 04 Apr 89	Yee
*
* Make PopUpMenuSelect scrambler proof. The menu bar's handle was not getting locked
* when it should. Fixed.
*
* 06 Apr 89	Yee
*
* When drawing a popup or regular menu title, the text mode is set to fore copy. I now
* save and restore the original text mode once I am done drawing the title.
*
* 19 Apr 89	Mensch/Yee
*
* Fixed bug in menu caching that cause a bad left mask to be used for re-blitting a chached
* menu. Was using the <X> register to save the screen mode, this was being trashed by the
* routine before it was used again. We now use <Y> save screen mode. BRC#36702
*
* Also, Tidbits (the fine routine to reblit the corners) now does the top 4 lines of a menu
* instead of 3 ( the drop shadow was 1 pixel lower than tidbits saved)
*
* 24 Apr 89	Glass/Mensch/Yee (on the Eve of freezing the ROM)
*
* In routine Draw_Title we now check whether we're in the menu manager's port before
* deciding not to save the fore color and text mode we just changed. This fixes a problem
* in Word Perfect that was depending on the menu manager's port to be set up correctly.
*
* 15 May 89	Yee
*
* Memory was being trashed when a menu extended below the screen. In routine Cache I now
* check to make sure y2 is never greater than 200. This is so the height of the menu
* never extends past the bottom of the screen and we'll restore the menu just fine.
* BRC #49085.
*
* The routines DrawDwnArrow/DrawUpArrow needed RECT to be setup. There was an instance
* that RECT was not being setup. This caused garbage to be drawn on the screen in those
* instances. Now I make sure RECT is setup.
*
* 19 May 89	Yee	(for system disk d23)
*
* Calling HiliteMenu with an ID of 0 or $FFFF is not valid. ToolBox Reference manual
* says that these IDs mean first and last menu in menubar respectively.
*
* 23 May 89	Yee	(for system disk d24)
*
* Take out above fix because some apps were actually creating menus with an ID
* of zero.
*
* 25 May 89	Yee
*
* Fix routine freecache. This routine never did dispose of the menu cache correctly.
*
* When this routine was fixed it uncovered a bug in routine pullup, which only affected
* a menu if it was scrollable and only if someone had scrolled it. I was disposing of
* the cache (i.e. calling freecache) before it was getting uncached. Therefore when
* we tried to restore what was behind the menu the cache was already gone.
*
* 07 Sep 89	Yee
*
* Fix bug in NewMenuBar2. The resource ID is not being copied into a temporary location
* correctly. Only the low word is being stored to. This causes problems when we use
* this temp location to release the menubar resource. Either the menubar resource is
* not released at all (whenever high word of resource ID is zero, or the call crashes
* whenever the high word of resource ID is non-zero.)
*
* 05 Jan 90	Yee
*
* Added icon support for menu items. Added calls SetItemIcon and GetItemIcon.
*
* 29 Mar 90	Yee
* Fix bug in DeleteMenu. The handle being removed was not being unlocked after
* it was removed.
*
* 05 Apr 90
* Change the way the menu item icons are drawn. I now use DrawIcon instead
* of PPToPort to draw the icon. To use icons in menu items, the menu mgr
* now requires that QDAux be started. Also the icon structure used to look
* like a locInfo record, it's now an icon structure as defined by rIcon.
*
* 10 May 90	Yee
* Fix bug in routine DrawItemIcon.  I now make sure the item has an itemstruct assoc.
* with it before trying to get the itemstruct.
*
* 05 Jul 90 	Yee
* Added the following calls: SetItemStruct ($490F), GetItemStruct ($4A0F),
* RemoveItemStruct ($4B0F), GetItemFlag2 ($4C0F), SetItemFlag2 ($4D0F)
*
* 17-Sep-90	Dave Lyons
*
* Removed dependency on all.macros.
*
* Note--Call $4E0F, GetItemWidth (Harry's?)
*
* 19-Sep-90	Dave Lyons
*
* Added GetMItemBlink call ($4F0F).  Version is $8303.
* Adding MenuGlobal bit to make MenuSelect call InitCursor.
* (The InitCursor thing doesn't work too well yet--it flickers the cursor.)
*
* 27-Sep-90	Dave Lyons
*
* Now calls Get640Colors (QD) to get a pointer to the color_patt table
* instead of hard-coding our own.
*
* Put all.macros back.
*
* 7-Jan-91	Dave Lyons
*
* Moved the G_INITCURSOR check to where it really should be (when we decide
* the mouse was actually clicked in the menu bar).
*
* When blinking a menu item, now I call WaitUntil to wait at least MinMenuBlinkTime
* since the last blink.
*
* 9..10-Jan-91	Dave Lyons
*
* Added new call InsertPathMItems for use by Finder, Standard File, Installer.
*
* 11-Jan-91	Dave Lyons
*
* InsertPathMItems: Added InsertAfter parameter, defined bit 2 of Flags, and
* reordered parameters.  Cool.
*
* 12-Jan-91	Dave Lyons
*
* Changes to InsertPathMItems (see comments there).
*
* 16-Jan-91	Dave Lyons
*
* Fixed up some comments.  Fixed the bug that makes pop-up menus not
* always hilite menu items (sometimes it just inverts the icon).
* The problem was popPortData stuffing values into a grafport while
* fastPort was on.  Added a SetPort after the port stuffing to make
* QD realize we dicked around with the port.
*
* Made a few $E10000 into macro calls.
*
* 22-Jan-91	Dave Lyons
*
* Fixed drawing an icon in a menu so that it always draws at an even horizontal
* location.
*
* 5-Feb-91	Dave Lyons
*
* Fixed a bug in InsertPathMItems where I was disposing of one of the handles
* that gets passed back to the caller for later disposal.
*
* Changed name of GetOSIcon to GetSysIcon.
*
* 17-Feb-91	Dave Lyons
*
* Optimized some LDA/PHA into PEIs.
* MenuStartUp now sets the default menu item blink from BRAM $5E bits 3-4.
*
* 22-Feb-91	Dave Lyons
*
* Skip InsertPathMItems DInfo call if they pass device number $FFFF.
*
* 3-Mar-91	Dave Lyons
*
* Added MenuKey feature:  If the key is an Apple- key and is not the equivalent
* for any menu item in the passed menu, then we call SendRequest($0F01) to give
* system extensions a chance to handle the keypress.
*
* 14-Mar-91	Dave Lyons
*
* If the MenuKey SendRequest succeeds, I change the event into a null event so
* the caller doesn't try to handle it any further.
*
* 15-May-91	Dave Lyons
*
* InsertMenu now returns new error dupMenuID, $0F04, if a menu with the same id
* already exists in the current menu bar.
*
* 25-Jul-91	Dave Lyons
*
* Added restrictions to SendRequest($0F01=systemSaysMenuKey): Desk Manager must
* be active, CDA-events must be postable (for Installer when it disables use
* of DAs), and we must be dealing with the system menu bar.
*
* 26-Aug-91	Dave Lyons
*
* HideMenuBar now messes only with SCBs 2 through 9, instead of setting them all
* to the MasterSCB.
*
* SendRequest(systemSaysMenuKey) now has stop-after-one set.
*
* 18-Sep-91	Dave Lyons
*
* Made HideMenuBar mess with SCBs 0..MenuBarHeight-1, instead of just 2..9.
* This is for HyperCard IIgs compatibility.
*
* 7-Dec-91	Dave Lyons
*
* Moved G_INITCURSOR code to 'gotit', where it works without causing cursor flicker.
* InsertPathMItems:  Added a bcc @noError after first ExpandPath.  Probably dead
*   code, since this call is intended to always return a buffer-too-small error
*   and do a second ExpandPath.
* PopUpMenuSelect now calls get_ids instead of lda [<itemptr] to get the selected
*   item's id, for compatibility with custom pop-up menus.
*
* 8-Feb-92	Dave Lyons
*
* Added safety check on top coordinate of menu bar:  MenuSelect refuses to pull
* down a menu at Y>=150.  Minor optimizations.
*
* Version $0303 for 6.0 final.
*
***********************************************************************************
*
* 13-Mar-92	Dave Lyons
*
* Version $8304 for 6.0.1
*
* 4-Jun-92	Dave Lyons
*
* DeleteMItem now shrinks menu handle by 12 bytes instead of 10, so we don't
* waste two bytes every time we delete an item.
*
* 25-Mar-93	Dave Lyons
*
* In AllocateCache, we now clip the menu height to 200 for computing the size
* handle needed to save the screen.  We were overflowing the computation for
* tall pop-up menus.
*
* 1-Apr-93	Steve Stephenson
*
* Version $0304 for 6.0.1 (final)
*
***********************************************************************************
	blanks off
	string asis

	print push
	print off

	include 'all.macros'

	INCLUDE 'e16.qdaux'
	INCLUDE 'e16.resources'

	print pop

	include 'MenuEquates.asm'

;-----------------------------------------------
;
;   Imported addresses from WCM.Lib
;
;-----------------------------------------------
	IMPORT pushDpage
	IMPORT pushDlong
	IMPORT allocate2
	IMPORT allocate3
	IMPORT startup
	IMPORT Epop0bytes
	IMPORT Epop2bytes
	IMPORT Epop4bytes
	IMPORT Epop6bytes
	IMPORT Epop8bytes
	IMPORT Epop10bytes
	IMPORT Epop12bytes
	IMPORT Epop14bytes
	IMPORT Epop16bytes
	IMPORT Epop18bytes
	IMPORT Epop26bytes
	IMPORT Epop32bytes

	import pop0bytes
	import pop2bytes
	import pop4bytes
	import pop6bytes
	import pop8bytes
	import pop10bytes
	import pop12bytes
	import pop14bytes
	import pop16bytes
	import pop18bytes
	import pop26bytes
	import pop32bytes

	entry FakeGetPopUpDefProc

;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------
	ENTRY GetMenuMgrPort
	ENTRY InitPalette
	ENTRY MenuBootInit
	ENTRY MenuGlobal
	ENTRY MenuNewRes
	ENTRY MenuReset
	ENTRY MenuShutDown
	ENTRY MenuStartup
	ENTRY MenuStatus
	ENTRY MenuVersion
	ENTRY NewMenu
	ENTRY Reserved
	ENTRY clearWAP
	ENTRY initres

	ENTRY MENUKEY
	ENTRY GETMENUBAR
	ENTRY MENUREFRESH
	ENTRY FLASHMENUBAR
	ENTRY INSERTMENU
	ENTRY DELETEMENU
	ENTRY GETSYSBAR
	ENTRY SETSYSBAR
	ENTRY FIXMENUBAR
	ENTRY COUNTMITEMS
	ENTRY NEWMENUBAR
	ENTRY GETMHANDLE
	ENTRY SETBARCOLORS
	ENTRY GETBARCOLORS
	ENTRY SETMTITLESTART
	ENTRY GETMTITLESTART
	ENTRY CALCMENUSIZE
	ENTRY SETMTITLEWIDTH
	ENTRY GETMTITLEWIDTH
	ENTRY SETMENUFLAG
	ENTRY GETMENUFLAG
	ENTRY SETMENUTITLE
	ENTRY GETMENUTITLE
	ENTRY SETMITEM
	ENTRY GETITEM
	ENTRY SETMITEMFLAG
	ENTRY GETITEMFLAG
	ENTRY SETITEMBLINK
	ENTRY DRAWMENUBAR
	ENTRY MENUSELECT
	ENTRY HILITEMENU
	ENTRY DISPOSEMENU
	ENTRY ENABLEMITEM
	ENTRY DISABLEMITEM
	ENTRY CHECKMITEM
	ENTRY SETMITEMMARK
	ENTRY INSERTMITEM
	ENTRY DELETEMITEM
	ENTRY GETITEMMARK
	ENTRY SETMITEMSTYLE
	ENTRY GETITEMSTYLE
	ENTRY SETMENUID
	ENTRY SETITEMID
	ENTRY SETMENUBAR
	ENTRY SETMITEMNAME
	ENTRY ENDINITRAM
	ENTRY STARTINITRAM
	ENTRY DefColorTable
	ENTRY SYS_CURRENT
	ENTRY LOCKMENUBAR
	ENTRY CLOSEMENUPORT
	ENTRY EVERYCACHEFREE
	ENTRY UNLOCKMENUBAR
	ENTRY SAVE_PORT
	ENTRY PUSHPORT
	ENTRY PUSHSCINFO1
	ENTRY PUSHDEFBARRECT
	ENTRY TO_UPORT
	ENTRY SCANBYTE
	ENTRY PUSHCOLORTABLE
	ENTRY LOGOCOLOR
	ENTRY MAKE_BLOCK
	ENTRY LOCKMENUHAND
	ENTRY DEREFMENUHAND
	ENTRY UNLOCKMENUHAND
	ENTRY NEXT_ITEM
	ENTRY PUSHDEFMENU
	ENTRY PUSHDATA
	ENTRY TO_MYPORT
	ENTRY GETCOLOR
	ENTRY SETOUTLINE
	ENTRY DRAWRECT
	ENTRY GETMFIRST
	ENTRY NEXT_MENU
	ENTRY GETMPTR
	ENTRY TITLEXSTART
	ENTRY DISPATCH
	ENTRY GETMEVENT
	ENTRY ONBAR
	ENTRY PULL_DOWN
	ENTRY PULLUP
	ENTRY PUSHYRAT
	ENTRY PUSHMRECT
	ENTRY GET_IDS
	ENTRY GETIFIRST
	ENTRY PUSHCOLOR
	ENTRY ALLOCATECACHE
	ENTRY FREECACHE
	ENTRY MAKECACHE
	ENTRY CACHE
	ENTRY PUSHCOLOR2
	ENTRY UNCACHE
	ENTRY LONG_CALL
	ENTRY DRAW_MENU
	ENTRY CHOOSE_ITEM
	ENTRY SIZE_MENU
	ENTRY DRAW_TITLE
	ENTRY DRAW_ITEM
	ENTRY GET_ITEMID
	ENTRY CALCITEM
	ENTRY GETITEMH
	ENTRY TEXT_GUTS
	ENTRY GETISTRG
	ENTRY GET_APPLE
	ENTRY PRINTSTRG
	ENTRY DIMMED
	ENTRY NOR_MASK
	ENTRY PUSHRECT
	ENTRY PUSHMARK
	ENTRY PUSHCOM_KEY
	ENTRY HLINE
	ENTRY GETIPTR2
	ENTRY INTO_BLOCK
	ENTRY GETIPTR
	ENTRY GROWBLOCK
	ENTRY EVERYCACHEBAD
	ENTRY BADCACHE
	ENTRY _320_MASK
	ENTRY _320_DATA
	ENTRY _640_MASK
	ENTRY _640_DATA
	ENTRY JustifyLeft
	ENTRY JustifyRight

	ENTRY FixTextFace
	ENTRY ClearTextFace
	ENTRY CheckForScrolling
	ENTRY CheckBounds
	ENTRY GetStarting
	ENTRY ResetThings
	ENTRY UpArrowIcon
	ENTRY DownArrowIcon
	ENTRY DrawUpArrow
	ENTRY DrawDwnArrow
	ENTRY AdjustBottom
	ENTRY AdjustTop
	ENTRY InitStuff
	ENTRY AdjustRect
	ENTRY Pull_Down2
	ENTRY TrackMenu2
	ENTRY GetrMenuTitle
	ENTRY GetrItemName
	ENTRY GetrItemIcon		; 12/19/89 H.Y. for icon drawing support
	ENTRY GetIconInfo		; 12/20/89 H.Y. for icon drawing support
	ENTRY DrawItemIcon		; 12/20/89 H.Y. for icon drawing support
	ENTRY GetStruct
	ENTRY LoadnRelease
	ENTRY FillItemRec
	ENTRY UpArrowLocInfo640
	ENTRY UpArrowLocInfo320
	ENTRY UpArrowBounds640
	ENTRY UpArrowBounds320
	ENTRY DownArrowLocInfo640
	ENTRY DownArrowLocInfo320
	ENTRY DownArrowBounds640
	ENTRY DownArrowBounds320
	ENTRY CommonInsert
	ENTRY GetResMTitle
	ENTRY PopupMenuSelect
	ENTRY NewMenu2
	ENTRY InsertMItem2
	ENTRY SetMenuTitle2
	ENTRY SetMItem2
	ENTRY SetMItemName2
	ENTRY NewMenuBar2
	ENTRY PushSmearLow
	ENTRY SaveColor
	ENTRY RestoreColor
	ENTRY doWhiteSpace
	ENTRY addToTop
	ENTRY addToBottom
	ENTRY NeverMind
	ENTRY HideMenuBar
	ENTRY ShowMenuBar
	ENTRY AddorSubRegion
	ENTRY Hole
	ENTRY SetItemIcon
	ENTRY GetItemIcon
	ENTRY SetItemStruct
	ENTRY GetItemStruct
	ENTRY RemoveItemStruct
	ENTRY GetItemFlag2
	ENTRY SetItemFlag2
	ENTRY GetItemWidth
	ENTRY GetMItemBlink		;19-Sep-90 DAL
	entry InsertPathMItems	;10-Jan-90 DAL

;===========================================================================
;          Menu Manager function table.
;===========================================================================
MenuCallTable	PROC EXPORT

	ENTRY FPT
FPT	DC.W (ENDFPT-FPT)/4
	DC.W 0
	DC.L MenuBootInit-1	$010F
	DC.L MenuStartup-1	$020F
	DC.L MenuShutDown-1	$030F
	DC.L MenuVersion-1	$040F
	DC.L MenuReset-1	$050F
	DC.L MenuStatus-1	$060F
	DC.L Reserved-1	$070F
	DC.L Reserved-1	$080F
	DC.L MenuKey-1	$090F
	DC.L GetMenuBar-1	$0A0F
	DC.L MenuRefresh-1	$0B0F
	DC.L FlashMenuBar-1	$0C0F
	DC.L InsertMenu-1	$0D0F
	DC.L DeleteMenu-1	$0E0F
	DC.L InsertMItem-1	$0F0F
	DC.L DeleteMItem-1	$100F
	DC.L GetSysBar-1	$110F
	DC.L SetSysBar-1	$120F
	DC.L FixMenuBar-1	$130F
	DC.L CountMItems-1	$140F
	DC.L NewMenuBar-1	$150F
	DC.L GetMHandle-1	$160F
	DC.L SetBarColors-1	$170F
	DC.L GetBarColors-1	$180F
	DC.L SetMTitleStart-1 $190F
	DC.L GetMTitleStart-1 $1A0F
	DC.L GetMenuMgrPort-1 $1B0F
	DC.L CalcMenuSize-1	$1C0F
	DC.L SetMTitleWidth-1 $1D0F
	DC.L GetMTitleWidth-1 $1E0F
	DC.L SetMenuFlag-1	$1F0F
	DC.L GetMenuFlag-1	$200F
	DC.L SetMenuTitle-1	$210F
	DC.L GetMenuTitle-1	$220F
	DC.L MenuGlobal-1	$230F     	;Added 2/18/87
	DC.L SetMItem-1	$240F
	DC.L GetItem-1	$250F
	DC.L SetMItemFlag-1	$260F
	DC.L GetItemFlag-1	$270F
	DC.L SetItemBlink-1	$280F
	DC.L MenuNewRes-1	$290F
	DC.L DrawMenuBar-1	$2A0F
	DC.L MenuSelect-1	$2B0F
	DC.L HiliteMenu-1	$2C0F
	DC.L NewMenu-1	$2D0F
	DC.L DisposeMenu-1	$2E0F
	DC.L InitPalette-1	$2F0F
	DC.L EnableMItem-1	$300F
	DC.L DisableMItem-1	$310F
	DC.L CheckMItem-1	$320F
	DC.L SetMItemMark-1	$330F
	DC.L GetItemMark-1	$340F
	DC.L SetMItemStyle-1 $350F
	DC.L GetItemStyle-1	$360F
	DC.L SetMenuID-1	$370F
	DC.L SetItemID-1	$380F
	DC.L SetMenuBar-1	$390F
	DC.L SetMItemName-1	$3A0F

******* Adding new calls for System Disk 4.1 ******************************

	DC.L FakeGetPopUpDefProc-1 $3B0F
	DC.L PopUpMenuSelect-1 $3C0F
	DC.L Hole-1	$3D0F 	;used to be DrawPopUp call
	DC.L NewMenu2-1	$3E0F

	DC.L InsertMItem2-1	$3F0F
	DC.L SetMenuTitle2-1 $400F
	DC.L SetMItem2-1	 $410F
	DC.L SetMItemName2-1 $420F
	DC.L NewMenuBar2-1	$430F

	DC.L GetResMTitle-1 $440F
	DC.L HideMenuBar-1	$450F
	DC.L ShowMenuBar-1	$460F
	DC.L SetItemIcon-1  $470F	;added 20 Dec 89 H.Y. for item icon support
	DC.L GetItemIcon-1  $480F	;added 20 Dec 89 H.Y. for item icon support
	DC.L SetItemStruct-1  $490F	;added 05 Jul 90
	DC.L GetItemStruct-1  $4A0F	;added 05 Jul 90
	DC.L RemoveItemStruct-1  $4B0F	;added 05 Jul 90
	DC.L GetItemFlag2-1   $4C0F	;added 05 Jul 90
	DC.L SetItemFlag2-1   $4D0F	;added 05 Jul 90
	DC.L GetItemWidth-1	  $4E0F	;added 10 Jul 90 for "Jay's" stuff
	dc.L GetMItemBlink-1  $4F0F	;added 19 Sep 90 DAL
	dc.l InsertPathMItems-1 $500F	;added 10-Jan-91 DAL
ENDFPT
	ENDP

;===========================================================================
;	Hole
;===========================================================================
Hole	PROC

	rtl

	ENDP

****************************************************************
*
FakeGetPopUpDefProc	PROC
*
* Jumps to code in dynamic segment so address of dynamic
* segment is not in tool table.
*
*
* Inputs:
*	space for output
*
* Outputs:
*	space for output
*
* External Refs:
	import GetPopUpDefProc
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
*
* Added 15 May 89	Steven Glass
*
****************************************************************


	jml GetPopUpDefProc

	ENDP


;===========================================================================
;
;	MenuStartup
;
;        	Initialize Menu Manager
;
;  IN:     PUSH:WORD - ID to use.
;          PUSH:WORD - zero page number	to use.
;
; OUT:     Nothing.
;
;===========================================================================
MenuStartup	PROC
	import SelfMod1Low
	import SelfMod1High
	import SelfMod2

TheReturnAddr	equ 1	Stack offset before	setup called.
directPage	equ TheReturnAddr+6

newZero	equ input	Stack offset after setup called.
newID	equ newZero+2


	cmp #0	Has the Menu Manager already been started?
	beq ok1

	jsl IncBusyFlg
	ldy #MENU_STARTED	Return error code.
	phd
	phb
	brl Epop4bytes

ok1	lda directPage,s	Get direct page to use.
	jsr startup	Do startup initialization for tool call.

	pea 0	Tell Tool Locator about zero page.
	pea MenuToolNum	Tool number.
	pea 0
	phd	Zero page number.
	_SetWAP

	ldx #$00FE	Clear my direct page.
lop10	stz $00,x
	dex
	bpl lop10

	lda newID,s
	sta <MyID

*** self-modify the address of the 640-mode color table 26-Sep-90 DAL
	phb
	phk
	plb

	pha
	pha
	_Get640Colors
	pla
	sta SelfMod1Low+1
	sta SelfMod2+1
	pla
	sta SelfMod1High+1
	sep #$20
	sta SelfMod2+3
	rep #$20

	plb
;
; --- Allocate and initialize RAM data area -----------------
;
	ldy <MyID	Pass ID to use.
	lda #RAMSIZE	Pass number of bytes to allocate.
	jsr allocate2	Allocate a fixed RAM area.
	sta <data	Store handle to data area.
	stx <data+2
	ldy #2	Dereference data area.
	lda [<data],y
	tay
	lda [<data]
	sta <data	Store pointer to data area.
	sty <data+2

	sep #$20
	longa off

	ldy #RAMSIZE-1
	lda #0
lop2	sta [<data],y
	dey
	cpy #(endInitRAM-startInitRAM)-1
	bne lop2

lop3	lda startInitRAM,y
	sta [<data],y
	dey
	bpl lop3

	rep #$20
	longa on

	ldx #16
lop5	lda RAMpatch,x	Compute address, direct page or data area?
	bpl ok5

	and #$7FFF	Compute address in direct page.
	pha
	tdc
	clc
	adc 1,s
	ply
	ldy #0
	bra store5

ok5	ldy <data+2	Compute address in data area.
	lda <data
	clc
	adc RAMpatch,x
	bcc store5
	iny

store5	phy	Save address.
	pha

	lda RAMoffset,x	Get offset to variable to be patched.
	bpl ok6	Is patch in direct page or data area?

	stx <work	Patch in direct page.
	and #$7FFF
	tax
	pla
	sta <0,x
	pla
	sta <2,x
	ldx <work
	bra next5

ok6	tay	Patch in data area.
	pla
	sta [<data],y
	iny
	iny
	pla
	sta [<data],y

next5	dex
	dex
	bpl lop5

;
; --- Other initialization ----------------------------------
;
	pha	Space for result.
	pha
	pea 1	Get pointer to address table command.
	_GetAddress
	pla	Get table of scan line addresses.
	sta <lineTable
	pla
	sta <lineTable+2

	jsr initres	Make resolution dependent inits.

*** If we want to use ReadBParam for a default MItemBlink value, this
*** is the place to do it.  DAL  (Later...did it!)
;	lda #3	Number of blinks for selected items.
;	sta <blink

	pha	;space for result
	pea $5E	;aug_param: bits 3-4 = menu blink (0..3)
	_ReadBParam
	pla
	lsr a
	lsr a
	lsr a
	and #3	;amount of menublink to use
	sta <blink

;
; --- Create an empty system menu bar ------------------------
;
	pha	Space for result.
	pha
	lda #0	System menu bar.
	pha
	pha
	_NewMenuBar	Allocate a system menu bar.
	pla
	sta <sysmenu	Save handle.
	pla
	sta <sysmenu+2

	jsr sys_current	Make the system menu bar current.

	_DrawMenuBar

	brl pop4bytes	no error

;
; --- Table of offsets to address that must be patched ----------------
;
;  Set the high bit	if the variable to be patched is in direct page.
;  Clear the high bit if the variable to be patched is in data area.

RAMpatch	DC.W scrnInfo	0
	DC.W memInfo	2
	DC.W scrnRect+$8000	4
	DC.W des_0+$8000	6
	DC.W memInfo	8
	DC.W scrnInfo	10
	DC.W memInfo+BoundsRect 12
	DC.W des_y+$8000	14
	DC.W image	16

;
; --- Table of offsets to address that must be patched ----------------
;
;  Set the high bit	if offset into direct page.
;  Clear the high bit if offset into data area.
;
RAMoffset	DC.W tomemory+$8000
	DC.W tomemory+4+$8000
	DC.W tomemory+8+$8000
	DC.W tomemory+12+$8000
	DC.W toscreen+$8000
	DC.W toscreen+4+$8000
	DC.W toscreen+8+$8000
	DC.W toscreen+12+$8000
	DC.W imageInfo+PixelImage

	ENDP


;===========================================================================
;
;	MenuStatus
;
;          	Return status of Menu Manager.
;
;   IN:    None.
;
;  OUT:    WORD - 1	if active, 0 if not	active.
;
;===========================================================================
MenuStatus	PROC

TheReturnAddr	equ 1	Stack offset before	startup called.
result	equ TheReturnAddr+6

	tax
	beq store
	lda #7	Dan O. version number.
store	sta result,s	Return status.


;================================================================
;          Boot Initialization code.
;================================================================
	ENTRY MenuBootInit
MenuBootInit
	ENTRY Reserved
Reserved
	ENTRY exitTool
exitTool

	lda #0	No error code.
	clc	No error.

	rtl

	ENDP


;===========================================================================
;
;	MenuReset
;
;          	Reset handler.
;
;   IN:    None.
;  OUT:    None.
;
;===========================================================================
MenuReset	PROC
;
	jsr startup	Do startup initialization for tool call.
	brl clearWAP

	ENDP


;===========================================================================
;
;	MenuShutDown
;
;          	ShutDown the Menu Manager.
;
; Change History
;
; 14 Oct 88	Steven Glass
;
; Check to see if active before trying to shutdown.
;
;===========================================================================
MenuShutDown	PROC

	cmp #0	If the tool is not active, we
	bne @Continue	just get out.

	clc
	rtl

@Continue

	jsr startup	Do startup initialization for tool call.

;
; --- Free all menus in system menu bar	--------------------------------
;
	lda <sysMenu+1	Is there a system menu bar?
	beq exit3

	jsr sys_current	<barHand = <sysMenu. Current = system.
	jsr lockMenuBar	Dereference and lock menu bar and menus.
;	                  	<barPtr = (<barHand).

	ldy #MenuList
lop1	lda [<barptr],y
	sta <work
	iny
	iny
	lda [<barptr],y
	tax
	iny
	iny
	ora <work	End of menu list?
	beq exit2

	phy	Save Y.

	phx
	pei <work
	_DisposeHandle	Free menu record.

	ply
	bra lop1

;
; --- Free system menu bar ------------------------------------
;
exit2	pei <sysmenu+2
	pei <sysmenu
	_DisposeHandle	Free system menu bar.

;
; --- Close Menu Manager's port -------------------------------
;
exit3	jsr closeMenuPort	Close Menu Manager's port.

;
;
; --- Free allocated data area.
;
	pha
	pha
	pei <data+2	Find handle of data area.
	pei <data
	_FindHandle
	_DisposeHandle
;
;
; --- Set work value in Tool Locator to	zero ------------------
;
	ENTRY clearWAP
clearWAP
	lda #0
	pha
	pea MenuToolNum	Pass Menu Manager tool number.
	pha	Pass new parameter (zero).
	pha
	_SetWAP	Tell Tool Locator about it.

	brl pop0bytes	no error

	ENDP


;===========================================================================
;
;	MenuNewRes
;
;        	Set up in Screen Resolution.
;
;   IN:  Nothing.
;  OUT:  Nothing.
;
;===========================================================================
MenuNewRes	PROC

	jsr startup	Do startup initialization for tool call.

;
; --- Fix current menu bar and redraw --------------------------------------
;
	lda <sysMenu+1	Is there a system menu bar?
	beq exit

	jsr sys_current	<barHand = <sysMenu. Current = system.
	jsr lockMenuBar	Dereference and lock menu bar and menus.
;	                  	<barPtr = (<barHand).
	ldy #ctlFlag
	lda [<barptr],y
	and #$0080	See if the current system menu bar is visible or not.
;		Since initres tries to subtract menu bar for desktop
;		we only want to do it if it's visible.
	sta <temp
;
; --- Shut down current graphics mode, start new one up ----------------------
;
	jsr closeMenuPort	Close Menu Manager's port.
	jsr initres	Reinitialize in new	mode.

;
; --- Fix current menu bar and redraw --------------------------------------
;
	lda <sysMenu+1	Is there a system menu bar?
	beq exit

	jsr sys_current	<barHand = <sysMenu. Current = system.
	jsr lockMenuBar	Dereference and lock menu bar and menus.
;	                  	<barPtr = (<barHand).

	jsr everyCacheFree	Free all caches, size may change.

	lda #320
	ldy #CtlRect+x2
	ldx <screenmode	320 or 640 mode?
	beq store
	asl a
store	sta [<barptr],y

	_DrawMenuBar	Redraw system menu bar.

	jsr unlockMenuBar	Unlock menu bar and	menus.

exit	brl pop0bytes	no error

	ENDP


;===========================================================================
;
;	MenuGlobal
;
;          	Get/Set global flag.
;
;   IN:    WORD - negative to clear bits, positive to set bits,
;                 zero to just return current global flag.
;
;  OUT:    WORD - global flag after change.
;
;===========================================================================
MenuGlobal	PROC

newState	equ input
newFlag	equ newState+2

	jsr startup	Do startup initialization for tool call.

	lda newState,s	Set or reset bits?
	bpl setBits

	and <globalFlag
	bra exit3

setBits	ora <globalFlag
exit3	sta <globalFlag
	sta newFlag,s

	brl pop2bytes	no error

	ENDP


;===========================================================================
;
;	InitRes
;
;        	Resolution dependent initialization.
;
;   IN:    <temp = 0 if menu bar visible, 1 if invisible.
;  OUT:    None.
;
;        Resolution	should already have	been set.
;
;===========================================================================
initres	PROC

	jsr save_port	Save current port.

	jsr pushport	Pass pointer to Menu Manager port.
	_OpenPort	Open port for Menu Manager.

	pea 4	Use OR mode to write text.
	_SetTextMode	Set text mode.

	jsr pushscInfo1	Pass pointer to scInfo1.
	_GetPortLoc	Get the parameters of the screen.

;
; --- Initialize for 320 mode -------------------------
;
	stz <vert_pen	Width of vertical lines
	inc <vert_pen	is one in 320.

	stz <screenmode
	lda #0
	ldy #scrnInfo
	sta [<data],y
	ldy #memInfo
	sta [<data],y
	ldy #imageInfo
	sta [<data],y
	lda #8
	ldy #imageInfo+6
	sta [<data],y

	lda <scInfo1+BoundsRect+x2 Get width of	screen.
	ldy #defmenu+CtlRect+x2 Set width of system menu bar.
	sta [<data],y
	ldy #scrnInfo+8+x2
	sta [<data],y

	cmp #320
	beq ok200	320 mode? Flag already set to zero.
;
;
; --- Initialize for 640 mode --------------------------
;
	inc <vert_pen	Vertical lines are 2 wide in 640.

	inc <screenmode	640 mode flag, 1.

	lda #$0080
	ldy #scrnInfo
	sta [<data],y
	ldy #memInfo
	sta [<data],y
	ldy #imageInfo
	sta [<data],y
	lda #4
	ldy #imageInfo+6
	sta [<data],y

;
; --- Get system font's parameters ----------------------
;
ok200	pea 0	; space for result
	PushWord #$57	; get the width of 'W' and we'll use this as our maxwidth
	_CharWidth
	pla
	sta <text_width

	lda #font_h
	jsr pushDpage
	_GetFontInfo

	lda <descent
	clc
	adc #B_LEADING
	sta <descent

	clc
	adc <font_h	Add the ascent,
	adc #T_LEADING	plus top leading.
	sta <font_h	Store the height.

;
; --- Subtract the system menu bar from	the desktop ---------
;
	inc a
	ldy #defMenu+CtlRect+y2
	sta [<data],y	Set bottom of default menu bar.

	lda <temp
	bne MenuBarInvisible

	_InitPalette	Initialize palette for color logo.

	pha
	pha
	_NewRgn	Allocate a temp region.

	lda 1,s	Save temp region handle.
	sta <work
	lda 3,s
	sta <work+2

	jsr pushdefBarRect	Pass pointer to default menu bar RECT.
	_RectRgn	Make a region out of the menubar.

	pea 0	Subtract operation.
	pei <work+2	Handle of region to	subtract.
	pei <work
	_Desktop	Subtract the menubar from the desktop.
	bcc noerr	Error?
	pla	Fix stack, _Desktop	didn't.
	pla
	pla

noerr	pei <work+2
	pei <work
	_DisposeRgn	Free the temp region.

MenuBarInvisible	jsr to_uport

	rts

	ENDP


;===========================================================================
;
;	InitPalette
;
;          	Initialize color palette for Apple Logo.
;
;   IN:    None.
;  OUT:    None.
;
;===========================================================================
InitPalette	PROC

	jsr startup	Do startup initialization for tool call.

	ldx #7
lop200	phx	Save.

	lda scanbyte,x
	ldy #scrnInfo
	ora [<data],y
	and #$00FF
	inx
	inx
	phx	Scan line number.
	pha	Scan byte value.
	_SetSCB

	plx	Restore counter.
	dex
	bpl lop200

	pea 0
	jsr pushColorTable
	_GetColorTable

	ldx #6
	ldy #10

lop202	phx	Save.
	phy	Save.

	lda logocolor,y
	ldy #ColorTable+2
	sta [<data],y
	ldy <screenmode
	beq ok202

	ldy #ColorTable+10
	sta [<data],y
	ldy #ColorTable+18
	sta [<data],y
	ldy #ColorTable+26
	sta [<data],y

ok202	phx	Table number.
	jsr pushColorTable
	_SetColorTable

	ply	Restore.
	plx	Restore.
	dey
	dey
	dex
	bne lop202

	brl pop0bytes	no error

	ENDP


;===========================================================================
;
;	MenuVersion
;
;        	Return Menu Manager's Version number.
;
;   IN:  Nothing.
;  OUT:  WORD - version number.
;
;===========================================================================
MenuVersion	PROC

TheReturnAddr	equ 1	Stack offset before	setup called.
result	equ TheReturnAddr+6

	lda #$0304	Version Number. (1-Apr-93 SS)
	sta result,s	Store in return space.
	brl exitTool

	ENDP


;===========================================================================
;
;	GetMenuMgrPort
;
;        	Return Menu Manager's Port pointer.
;
;   IN:    Nothing.
;
;  OUT:    LONG - pointer to Menu Manager's port.
;
;===========================================================================
GetMenuMgrPort	PROC

result	equ input

	jsr startup	Do startup initialization for tool call.

	jsr pushport
	pla	Return Menu Manager's port pointer.
	sta result+2,s
	pla
	sta result+2,s

	brl pop0bytes	no error

	ENDP


;=======================================================================
;
; 	N E W M E N U 2
;
;=======================================================================
NewMenu2	PROC

menuRef	equ input
inputVerb	equ menuRef+4
result	equ inputVerb+2

myTemp	equ work	; 0 used for dereferencing
resMenuHdl	equ work+4	; 4 redefine some zero page equates
resMenuPtr	equ resMenuHdl+4	; 8
origMenuRef	equ resMenuPtr+4	; 12 save original menuref just in case it was a resource ID
count1	equ origMenuRef+4	; 16 counter for number of items in the menu
count2	equ count1+2	; 18
mem_needed	equ count2+2	; 20

itemVerb	equ temp

	jsr startup

	stz <resMenuHdl
	stz <resMenuHdl+2
	stz <origMenuRef
	stz <origMenuRef+2

	lda inputVerb,s
	asl a
	tax
	jmp (startupTable,x)

startupTable	dc.w ptrStartup	; verb = 0
	dc.w handStartup	; verb = 1
	dc.w resStartup	; verb = 2

;==================================================
;
; The menuref is the resource ID to the menu.

resStartup	lda menuRef,s	; save resource ID so we can use it to release resource
	sta <origMenuRef	; later on down the road
	lda menuRef+2,s
	sta <origMenuRef+2

	pha	; space for handle to menu resource
	pha
	PushWord #rMenu	; resource type
	lda <menuRef+8,s	; resource ID
	pha
	lda <menuRef+8,s
	pha
	_CMLoadResource	; CMLoadResource
	pla
	plx
	sta <menuRef,s
	txa
	sta <menuRef+2,s


;==================================================
;
; The menuref is a handle to the resource.

handStartup	lda menuRef+2,s
	sta <resMenuHdl+2
	lda menuRef,s
	sta <resMenuHdl

	ldy #4	; lock down the handle
	lda [<resMenuHdl],y
	ora #$8000
	sta [<resMenuHdl],y

	dey
	dey
	lda [<resMenuHdl],y	; dereference the handle and put it back on the
	sta menuRef+2,s	; stack, so we can fall down to the next code section
	lda [<resMenuHdl]
	sta menuRef,s

;==================================================
;
; The menuref is a pointer to the menu resource.
; This is where we get the memory for our menu record and fill this record
; in.

ptrStartup	lda menuRef+2,s
	sta <resMenuPtr+2	; put the ptr to the resource on our
	lda menuRef,s	; direct page for easier access
	sta <resMenuPtr

;
; pass 1 determines how much memory we need
;
	stz <count1
	stz <mem_needed	; keep track of amount of memory needed
	ldy #itemResourceID	; let's get the first item in the menu
	lda #MENUSIZE+2	; get size of menu record

lop1	clc
	adc <mem_needed
	sta <mem_needed

	lda [<resMenuPtr],y
	iny
	iny
	ora [<resMenuPtr],y
	beq noMoreItems
	inc <count1
	lda #ITEMSIZE
	iny	; skip to next item
	iny
	bra lop1

noMoreItems	lda <mem_needed
	jsr make_block	; get the memory we need
	sta <menuhand
	sta result,s	; return handle to the menu record
	stx <menuhand+2
	txa
	sta result+2,s
	bcc gotMemOK	; could'nt get the memory
	brl exit

gotMemOK	jsr lockMenuHand
	jsr derefMenuHand

	lda #0	; first zero out the memory we just got
	ldy <mem_needed
	bra enter1
lop2	sta [<menuptr],y
enter1	dey
	dey
	bpl lop2

;
; Pass 2 we start filling in the menu record
;
	ldy #resMenuID	; copy ID of menu into menu record
	lda [<resMenuPtr],y
	ldy #MenuID
	sta [<menuptr],y

	ldy #resMenuFlag	; copy menuFlag and menuRes bytes into menu record
	lda [<resMenuPtr],y
	and #$CFFF	; get rid of the low two bits of high byte
	ldy #MenuFlag
	sta [<menuptr],y

	ldy #NumOfItems	; get number of items in the menu, calculated
	lda <count1	; above when figuring out size of menu
	sta [<menuptr],y

	ldy #resTitleName	; get reference to the menu title and move it into
	lda [<resMenuPtr],y	; our menu record
	ldy #TitleName
	sta [<menuptr],y
	ldy #resTitleName+2
	lda [<resMenuPtr],y
	ldy #TitleName+2
	sta [<menuptr],y

; Load the menu title string resource so we can check to see if it's the Apple logo.
; If so, we have to set the titlewidth.
;
	jsr getrMenuTitle	; get ptr to the menu title
	sta <myTemp
	stx <myTemp+2

	lda [<myTemp]	; now check to see if this is the apple logo
	cmp #$4001	; has the apple logo already been set
	bne skip_apple_logo

	ldy #titleWidth	; set default width for the an apple logo title
	lda #24
	sta [<menuptr],y	; copy default title width into menu record

skip_apple_logo	lda #MenuSize	; keep track of where we are in the menu record
	sta <count1
	lda #itemResourceID
	sta <count2	; keep track of where we are in the resource menu record

	ldy #resMenuFlag
	lda [<resMenuPtr],y
	and #$3000	; just look at the low two bits of the high byte
	xba	; now we have the correct verb value
	lsr a
	lsr a
	lsr a
	lsr a
	sta <itemVerb

getNextItem	ldy <count2
	lda [<resMenuPtr],y
	sta <temptr2
	iny
	iny
	ora [<resMenuPtr],y
	beq ThatsAllFolks
	lda [<resMenuPtr],y
	sta <temptr2+2

	lda <itemVerb	; x contains the what the item reference is
	ldy <count1	; y is index into the menu record
	jsr fillItemRec	; now fill in the item record

	lda <count1
	clc
	adc #ITEMSIZE
	sta <count1	; update index into menu rec where next item is to go

	lda <count2
	clc
	adc #4
	sta <count2	; get next item
	bra getNextItem
;
; Let's clean everything up. Otay!
;
ThatsAllFolks	jsr unlockmenuhand

	lda <resMenuHdl+1	; see if there was a handle involved
	beq exit

	ldy #4	; There was! There was! I knew I thaw a handle.
	lda [<resMenuHdl],y	; unlock the sucker
	and #$7FFF
	sta [<resMenuHdl],y

	lda <origMenuRef	; check to see if we loaded a menu resource
	bne releaseMenuRes
	lda <origMenuRef+2
	beq exit

releaseMenuRes	PushWord #rMenu
;	lda <origMenuRef+2
;	pha
;	lda <origMenuRef
;	pha
	pei <origMenuRef+2
	pei <origMenuRef
	_CMReleaseResource

exit	brl pop6bytes

	ENDP

;=======================================================================
;
; 	FillItemRec
;
;  IN: a = item reference, i.e. ptr, handle, or resource ID
;      y = index into menu record where item is to go
;      temptr2 = item reference (ptr, handle or resource ID)
;      menuptr = ptr to menu record that item is to be inserted into
; OUT: <menuptr with the current item record inserted
;
;=======================================================================
FillItemRec	PROC

	sty <count

	asl a
	tax
	jmp (itemtable,x)

itemtable	dc.w doItemPtr	; verb = 0
	dc.w doItemHandle	; verb = 1
	dc.w doItemResource	; verb = 2

doItemResource	ldy #rMenuItem
	lda <temptr2
	ldx <temptr2+2
	jsr LoadnRelease
	sta <temptr2
	stx <temptr2+2

doItemHandle	ldy #2
	lda [<temptr2],y
	tax
	lda [<temptr2]
	sta <temptr2
	stx <temptr2+2

doItemPtr	ldx <count
	lda #ItemRecSize
	sta <count
	ldy #resItemID

fillNext	lda [<temptr2],y	; start filling in the item record portion of the
	iny	; menu record
	iny
	phy
	txy
	sta [<menuptr],y
	iny
	iny
	tyx
	ply
	cpy <count
	beq done
	brl fillNext

done	rts

	ENDP

;=======================================================================
;
; 	getResMTitle
;
;  IN:  handle to menu record
; OUT:  result contains ptr to the menu title
;
;=======================================================================
getResMTitle	PROC

menuin	equ input	; handle to menu record
result	equ menuin+4	; ptr to the title

	jsr startup

	lda menuin,s
	sta <menuhand
	lda menuin+2,s
	sta <menuhand+2

	jsr lockmenuhand
	jsr derefmenuhand

	jsr getrMenuTitle

	sta result,s
	txa
	sta result+2,s

	jsr unlockmenuhand

	brl pop4bytes

	ENDP

;=======================================================================
;
; 	getrItemName
;
;  IN:  <itemptr contains ptr current item record in menu
; OUT:  a = low word of ptr to item name, x = high word of ptr
;
;=======================================================================
getrItemName	PROC

	ldy #ItemFlag	check if there is an additional structure associated with item
	lda [<itemptr],y
	and #I_NEWSTRUCTURE
	beq OldWay	if not then field "ItemName" does indeed contain the item's name

	jsr GetStruct	Get the ptr to the new structure that now contains the
	ldy #ItemName2	item's name.
	lda [<temptr],y
	tax
	ldy #ItemName2+2
	lda [<temptr],y
	sta <temptr+2
	stx <temptr
	bra GetName	We now have the reference to the item's name in <temptr.

OldWay	ldy #ItemName
	lda [<itemptr],y
	tax
	iny
	iny
	lda [<itemptr],y
	sta <temptr+2
	stx <temptr
GetName
	ldy #ItemFlag
	lda [<itemptr],y
	and #FIRST_TWO_BITS
	bne @1
	brl doPointer
@1	cmp #HANDLE_REF
	bne @2
	brl doHandle
@2	brl doResource

;=======================================================================
;
; 	getrItemIcon
;
;  IN:  <itemptr contains ptr current item record in menu
; OUT:  a = low word of ptr to item icon, x = high word of ptr
;       a & x = 0 if there is no icon associated with the icon
;
;=======================================================================
	ENTRY getrItemIcon
getrItemIcon
	jsr GetStruct
	ldy #ItemFlag2	; Extract flag from new structure that will tell us
	lda [<temptr],y	; how the icon will be referenced, i.e. ptr, hdl, resource
	pha	; Save flag from structure on the stack for now.

	ldy #ItemIcon	; Now extract the icon ref from this structure and put
	lda [<temptr],y	; reference in <temptr.
	tax
	ldy #ItemIcon+2
	lda [<temptr],y
	sta <temptr+2
	stx <temptr

	pla	; check flag from struct to see how icon will be referenced
	and #$0003	; Bits 8 and 9 tells us how the icon data will be referenced.
	bne @ResORHdl	; If not zero then ref is not pointer.
	brl doPointer	; Zero means it's a ptr to the icon data.
@ResORHdl	cmp #$0001	; Is the icon ref a handle?
	bne @IconRefIsResource
	brl doHandle
@IconRefIsResource	ldy #rIcon
	brl doResource2

;=======================================================================
;
; 	getrMenuTitle
;
;  IN:  <menuptr contains ptr to the menu record
; OUT:  a = low word of ptr to title, x = high word of ptr
;
;=======================================================================
	ENTRY getrMenuTitle
getrMenuTitle
	ldy #TitleName	; copy the titlename into one of our direct page locations
	lda [<menuptr],y
	sta <temptr
	iny
	iny
	lda [<menuptr],y
	sta <temptr+2

	ldy #MenuFlag	; first find out how the menu title will be referenced
	lda [<menuptr],y
	and #FIRST_TWO_BITS	; first two bits of the flag tells all
	beq doPointer
	cmp #HANDLE_REF
	beq doHandle

; if not pointer or handle then the menu title must be a resource ID
;
doResource	ldy #rPString	; type (was "rString" 17-Sep-90 DAL)

	ENTRY doResource2
doResource2	lda <temptr	; resource ID
	ldx <temptr+2
	jsr LoadnRelease	; loads resource and releases it, then returns handle
	sta <temptr
	stx <temptr+2

	ENTRY doHandle
doHandle	ldy #2
	lda [<temptr],y
	tax
	lda [<temptr]
	sta <temptr
	stx <temptr+2

	ENTRY doPointer
doPointer	lda <temptr	; low word of ptr to menu title/item name/icon ref
	ldx <temptr+2	; high word of ptr to menu title/item name/icon ref

	rts

	ENDP


;=======================================================================
;
;	GetStruct
;
;  IN: <itemptr pts to a valid item record
; OUT: <temptr contains data we're looking for
;
;=======================================================================
GetStruct	PROC

	ldy #ItemName
	lda [<itemptr],y
	sta <temptr
	ldy #ItemName+2
	lda [<itemptr],y
	sta <temptr+2

	ldy #ItemFlag
	lda [<itemptr],y
	and #$0300	Bits 8 and 9 tell us how structure is referenced.
	bne @ResOrHdl	If non-zero then structure is referenced as a hdl or resource
	brl doPointer
@ResOrHdl	cmp #I_STRUCTisHANDLE
	bne @doRes
	brl doHandle
@doRes	ldy #rMyItemStruct
	brl doResource2

	ENDP

;=======================================================================
;
; 	LoadnRelease
;
;  IN:  a = low word of resource ID, x = high word of resource ID
;       y = resource type
; OUT:  a = low word of handle to resource, x = high word of handle
;
;=======================================================================
LoadnRelease	PROC

myTemp	equ work

	phy	; inputs for CMReleaseResource, type
	phx	; resource ID
	pha

	pha	; space for result
	pha
	phy	; type
	phx	; resource ID
	pha
	_CMLoadResource
	pla
	sta <myTemp
	pla
	sta <myTemp+2

	_CMReleaseResource	; remember inputs pushed at beginning of routine

	lda <myTemp
	ldx <myTemp+2

	rts

	ENDP


;===========================================================================
;
;	NewMenu
;
;        	Allocate and initialize a menu.
;
;   IN:    PUSH:LONG - pointer to menu list.
;
;  OUT:    LONG - Handle of menu, zero if error.
;
;===========================================================================
NewMenu	PROC

menuline	equ input
return	equ menuline+4

mem_needed	equ work	0
list	equ mem_needed+2	2
menu_char	equ list+4	6
item_char	equ menu_char+2	8
check_mark	equ item_char+2	10
command	equ check_mark+2	12
flag	equ command+2	14
length	equ flag+2	16
real_len	equ length+2	18
;	                 	20

	jsr startup	Do startup initialization for tool call.

;
; --- Compute size of data structure needed -----------------------------
;
	ldx #0	Just count, flag.
	jsr parse

;
; --- Allocate menu	record -----------------------------------------------
;
	lda <mem_needed	Number of bytes needed.
	jsr make_block	Allocate the memory.
	sta <menuhand	Save handle of menu.
	stx <menuhand+2
	bcs exit	Was the block allocated?

	jsr lockMenuHand	<menuhand = locked.
	jsr derefMenuHand	<menuptr = (<menuhand)

;
; --- Clear some fields of menu record -----------------------------------
;
	lda #0
	ldy <mem_needed
	bra enter3
lop3	sta [<menuptr],y
enter3	dey
	dey
	bpl lop3

;
; --- Parse Menu strings and initialize	Menu record ------------------------
;
	ldx #1	Initialize menu records flag.
	jsr parse
;
; --- Return handle	of menu ------------------------------------------------
;
exit	lda <menuhand
	sta return,s
	lda <menuhand+2
	sta return+2,s

	jsr unlockMenuHand	<menuhand = unlocked.

	brl pop4bytes	no error


; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = = =
;          Menu list parser.
;
;   IN:    x = 0 if	just counting items.
;          menuptr = pointer of data area to initialize, zero if just counting.
;          list = pointer to list of menus.
;
;  OUT:    work = number of bytes needed.
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = = =
parse	lda menuline+2,s
	sta <list
	sta <strg_ptr
	lda menuline+4,s
	sta <list+2
	sta <strg_ptr+2

	lda [<strg_ptr]	Store title character.
	and #$00FF
	sta <menu_char

	stz <mem_needed	Initialize size accumulator.
	stz <item_char	No item character yet.

lop1	jsr parse_strg	Parse the string.

;
; ------ Store address of menu's title ------------------
;
	txa	Just counting?
	beq skip1

	ldy #TitleName	Store pointer to menu's title.
	lda <strg_ptr
	sta [<menuptr],y
	lda <strg_ptr+1
	iny
	sta [<menuptr],y

;
; ------- Special case Apple logo title	----------------------
;
	lda [<strg_ptr]
	cmp #$FF01	Apple logo already set?
	beq apple_len
;
************* THE FOLLOWING LINE MUST BE CONVERTED MANUALLY!!!!! *************
	cmp #$4001	Just one '@' for Apple logo.
	bne skip_logo

	lda #$FF01	Make it the real logo value.
	sta [<strg_ptr]

apple_len	ldy #TitleWidth	Set logo title width here.
	lda #24
	sta [<menuptr],y

;
; ------- Set menu flag --------------------------------------
;
skip_logo	ldy #MenuFlag
	lda <flag
	and #M_ENABLED+M_NO_XOR
	ora #M_CACHE	Because it's allocated, it has caching.
	sta [<menuptr],y

;
; ------- Set menu's ID Number ------------------------------
;
	lda <count
	sta [<menuptr]

;
; ------- Compute address of item list --------------------------
;
skip10	ldy <menuptr+2
	lda <menuptr	Set pointer to menu's item list.
	clc
	adc #MENUSIZE
	bcc ok1
	iny
ok1	sta <itemptr	Set itemptr while I'm here.
	sty <itemptr+2

;
; ------- Increment	the memory counter ---------------------------
;
skip1	lda #MENUSIZE+2	Pass size of menu record.
	bra enter1

;
; --- Parse the items in the menu ---------------------------------
;
lop2	jsr parse_item

	lda #ITEMSIZE
enter1	clc	Accumulate number of bytes needed.
	adc <mem_needed
	sta <mem_needed

;
; ------ Compute address of next string	---------------------------
;
	lda <strg_ptr
	clc
	adc <real_len
	bcc ok10
	inc <strg_ptr+2
ok10	sta <strg_ptr

;
; ------ Is this a menu or item string?	---------------------------
;
	lda [<strg_ptr]
	and #$00FF

	beq allDone	If either a null or return character is the first character
	cmp #13	of an item definition then this is an empty menu.
	beq allDone

	ldy <item_char	Is this the first item?
	bne ck_it

	sta <item_char	This will be the item mark from now on.

ck_it	cmp <item_char
	beq lop2	Is the next string an item string?

allDone	rts


; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = = =
;          Parse a string.
;
;   IN:    x = parsing flag.
;          strg_ptr	= address of string.
;
;  OUT:    check_mark = item mark character.
;          command = keyboard equivalent character.
;          flag = set for disabled, underlined, special text, XOR.
;          length =	string's length.
;          real_len	= real string's length.
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = = =
	ENTRY parse_strg
parse_strg	phx	;Save X.
;
; --- Find end of text string ------------------------------
;
	ldy #2
lop51	iny
	lda [<strg_ptr],y
	and #$00FF
	beq eol
	cmp #13	;Return?
	beq eol
	cmp #'\'	;Start of special characters.
	bne lop51

eol	dey

	lda 1,s	;Just counting?
	beq skip50

	tyx	;Save Y in X.

	dey
	sty <length

	ldy #1
	lda [<strg_ptr],y
	and #$FF00
	ora <length
	sta [<strg_ptr],y	Set string length.

	txy	Retore text length.

;
; --- Parse special	characters ---------------------------
;
skip50	stz <check_mark	Set defaults.
	stz <command
	lda #I_NO_XOR	Set XOR highlighting flag.
	sta <flag

	iny
	lda [<strg_ptr],y	Are there any special characters?
	and #$00FF	(Actually, there should always be one).
	tax
	brl next58

lop52	iny
lop53	lda [<strg_ptr],y
	and #$00FF
	cmp #'*'	Keyboard equivalent?
	bne next51

	iny
	lda [<strg_ptr],y	Grab two characters, primary & alternate.
	iny	Two bytes.
	sta <command	Save key characters.
	and #$FF00	Get alternate key alone.
	cmp #$2000	Is alternate a space?
	bne lop52
	lda <command
	and #$00FF	Zero out alternate if a space.
	sta <command
	bra lop52	Next character.

next51	cmp #'C'	Check mark?
	bne next52

	iny
	lda [<strg_ptr],y
	and #$00FF
	sta <check_mark
	bra lop52	Next character.

next52	cmp #'N'	ID Number?
	bne next60

	pha	Space to save Y.
	pha	Space for result.
	iny
	tya	Compute address of number.
	ldx <strg_ptr+2
	clc
	adc <strg_ptr
	bcc ok60
	inx
ok60	phx	Pass address of number string.
	pha

	ldx #0	Compute length of number string.
lop60	lda [<strg_ptr],y
	and #$00FF
	cmp #'0'
	bcc done60
	cmp #'9'+1
	bcs done60
	iny
	inx
	bra lop60

done60	phx	Pass length.
	pea 0	Unsigned.
	tya
	sta 11,s	Save Y.
	_Dec2Int	Convert ASCII number string to integer.
	pla
	sta <count	Save ID number.
	ply	Restore Y, index of	character after ID.
	bra lop53

next60	cmp #'H'
	bne next61

	iny	ID number is in hex.
	lda [<strg_ptr],y
	sta <count
	iny
	bra lop52

next61	tax
	lda <flag


;-----------------------------------------------------------
;
; Add checks for shadow and outline
;

	cpx #'S'
	bne @NotS
	ora #I_NOShadow	Set shadow text flag.
	bra store_flag

@NotS	cpx #'O'
	bne @NotO
	ora #I_NOOutLine	Set outline text flag.
	bra store_flag
@NotO
	cpx #'B'
	bne next53
	ora #I_NOBOLD	Set bold text flag.
	bra store_flag

;-----------------------------------------------------------
;
; Continue with old checks for the rest of this stuff.
;
next53	cpx #'I'
	bne next54

	ora #I_NOITALIC	Set italicize text flag.
	bra store_flag

next54	cpx #'U'
	bne next55

	ora #I_NOSCORE	Set underscore text	flag.
	bra store_flag

next55	cpx #'V'
	bne next56

	ora #I_NOUNDER	Set underline flag.
	bra store_flag

next56	cpx #'D'
	bne next57

	ora #I_ENABLED	Disable item.
	bra store_flag

next57	cpx #'X'
	bne next58

	eor #I_NO_XOR	Clear XOR highlighting flag.
store_flag	sta <flag
tolop52	brl lop52

next58	txa	Zero terminator?
	beq endofline

	cpx #13	Return?
	bne tolop52

endofline	sty <real_len

	inc <strg_ptr	Move string pointer	past first byte.
	bne exit58
	inc <strg_ptr

exit58	plx
	rts


; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = = =
;          Parse an	item string an
;          build item record.
;
;   IN:    strg_ptr	= pointer to item string.
;          itemptr = pointer to item record.
;          x = zero	to just parse string, nonzero to parse and build record.
;
;  OUT:    strg_ptr	= same as in.
;          itemptr = next item space.
;          x = same	as in.
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = = =
	ENTRY parse_item
parse_item	jsr parse_strg
;
; ------------ Link	item into item list	-----------------
;
	txy	Just counting?
	beq exit2

;
; ------------ Store item's ID number -------------------
;
	lda <count
	sta [<itemptr]	Store item's ID number.

;
; ------------ Store address of item's string -----------
;
	ldy #ItemName
	lda <strg_ptr	Store pointer to item's text string.
	sta [<itemptr],y
	lda <strg_ptr+2
	iny
	iny
store3	sta [<itemptr],y

;
; ------------ Set item's primary and alternate keyboard equvalents ------
;
	ldy #ItemChar
	lda <command	Both primary and alternate key equvalents.
	sta [<itemptr],y

;
; ------------ Set item's check mark and flag -----------------------------
;
	iny
	iny
	lda <check_mark
	sta [<itemptr],y

	iny
	iny
	lda <flag
	sta [<itemptr],y	Store mark and flag.

	jsr next_item	Get pointer to next	item space.

	ldy #NumOfItems	counter to keep track of the total number of
	lda [<menuptr],y	items in the menu
	inc a
	sta [<menuptr],y

exit2	rts

	ENDP


;===========================================================================
;
;	DisposeMenu
;
;          	Free allocated menu.
;
;   IN:    PUSH:LONG - handle of menu to delete.
;
;===========================================================================
DisposeMenu	PROC

menu	equ input

	jsr startup	Do startup initialization for tool call.

;
; --- Free the menu	record ----------------------------
;
	lda menu+2,s	Pass pointer to allocated block.
	pha
	lda menu+2,s
	pha
	_DisposeHandle	Free block.
	tay	Return result from DisposeHandle.

	brl Epop4bytes

	ENDP


;===========================================================================
;
;	NewMenuBar2
;
;  IN: PUSH:WORD - RefDescriptor, describes what the next parameter is.
;      PUSH:LONG - MenuBarTemplateRef, pointer, handle, or resource ID of template
;      PUSH:LONG - Pointer to window's port or NIL for system menu bar
;
; OUT: LONG - handle to the menu bar record
;
;===========================================================================
NewMenuBar2	PROC

	DefineStack
menuBarPtr	long
theHandle	long
origMenuBarRef	long
count1	word
count2	word
mem_needed	word

OrigB	byte
OrigD	word
RTLAdr1	block 3
RTLAdr2	block 3
menuOwner	long
menuBarRef	long
refDescriptor	word
result	long

zPageSize	equ OrigB-menuBarPtr

	phd
	phb
	phk
	plb

	tsc
	sec
	sbc #zPageSize
	tcs
	tcd	switch direct page into stack

	stz <theHandle
	stz <theHandle+2
	stz <origMenuBarRef
	stz <origMenuBarRef+2
	stz <mem_needed

	pha	space for menu bar handle
	pha
;	lda <menuOwner+2
;	pha
;	lda <menuOwner
;	pha
	pei <menuOwner+2
	pei <menuOwner
	_NewMenuBar	get a new menu bar

	pla	store menu bar hdl in our direct page
	sta <result
	pla
	sta <result+2

	lda <refDescriptor
	asl a
	tax
	jmp (table,x)

table	dc.w pointer
	dc.w handle
	dc.w resourceID

resourceID	lda <menuBarRef	save resource ID so we can use it to release this resource
	sta <origMenuBarRef	later
	lda <menuBarRef+2
	sta <origMenuBarRef+2

	pha	space for result
	pha
	PushWord #rMenuBar
;	lda <menuBarRef+2
;	pha
;	lda <menuBarRef
;	pha
	pei <menuBarRef+2
	pei <menuBarRef
	_CMLoadResource
	pla
	sta <menuBarRef
	pla
	sta <menuBarRef+2

handle	lda <menuBarRef
	sta <theHandle
	lda <menuBarRef+2
	sta <theHandle+2

	ldy #4
	lda [<theHandle],y
	ora #$8000	lock the handle and dereference it
	sta [<theHandle],y
	dey
	dey
	lda [<theHandle],y
	sta <menuBarRef+2
	lda [<theHandle]
	sta <menuBarRef

pointer	ldy #resMenuBarFlag
	lda [<menuBarRef],y
	and #FIRST_TWO_BITS
	clc
	rol a	move carry into bit 0
	rol a	move the last two bits into the first two bits
	rol a	now a-reg is in correct format for a verb
	sta <refDescriptor

	ldy #MenuRef1

nextMenu	phy
	jsr getNextMenuRef
	bcs noMore
	lda <mem_needed
	clc
	adc #4
	sta <mem_needed
	pla
	clc
	adc #4
	tay
	bra nextMenu

noMore	ply

	pha	;space for result
	pha
;	lda <result+2	;we need to increase the size of the handle returned
;	pha	;from the NewMenuBar call to insert our menu
;	lda <result	;record handles
;	pha
	pei <result+2
	pei <result
	_GetHandleSize
	pla

	clc
	adc <mem_needed
	pha
;	lda <result+2
;	pha
;	lda <result
;	pha
	pei <result+2
	pei <result
	_SetHandleSize

	ldy #4	;lock and deref this our newly sized handle
	lda [<result],y
	ora #$8000
	sta [<result],y
	dey
	dey
	lda [<result],y
	sta <menuBarPtr+2
	lda [<result]
	sta <menuBarPtr

	lda #MenuRef1	;get the first menu in the menu bar
	sta <count1	;keeps track of where we are in the menu bar record
	lda #BARSIZE
	sta <count2

getAnotherMenu	ldy <count1
	jsr getNextMenuRef
	bcs noMoreMenus

	pha	;space for handle to menu record
	pha
	ldy <refDescriptor
	phy
	pha	;MenuTemplateRef
	phx
	_NewMenu2	;was macro 16-Jan-91 DAL
	ldy <count2	;Store menu handle into our menu bar record
	pla
	sta [<menuBarPtr],y
	iny
	iny
	pla
	sta [<menuBarPtr],y
	iny
	iny
	sty <count2
	lda <count1
	clc
	adc #4
	sta <count1
	brl getAnotherMenu

noMoreMenus	ldy <count2	;terminator for menu bar record
	lda #0
	sta [<menuBarPtr],y
	iny
	iny
	sta [<menuBarPtr],y

	lda <theHandle+1
	beq exit

	ldy #4
	lda [<result],y	unlock the menu bar handle that we're passing back to caller
	and #$7FFF
	sta [<result],y

	lda [<theHandle],y	unlock the menu bar handle to the resource menu bar
	and #$7FFF
	sta [<theHandle],y

	lda <origMenuBarRef
	bne releaseMenuBarRef
	lda <origMenuBarRef+2
	beq exit

releaseMenuBarRef	PushWord #rMenuBar
;	lda <origMenuBarRef+2
;	pha
;	lda <origMenuBarRef
;	pha
	pei <origMenuBarRef+2
	pei <origMenuBarRef
	_CMReleaseResource

exit	tsc
	clc
	adc #zPageSize
	tcs

	brl pop10bytes

;=======================================================
;
; 	getNextMenuRef
;
; IN: y-reg contains the index into the menu bar record
;
;=======================================================
 	ENTRY getNextMenuRef
getNextMenuRef
	lda [<menuBarRef],y
	tax
	iny
	iny
	ora [<menuBarRef],y
	beq terminate
	lda [<menuBarRef],y

	clc
	rts

terminate	sec
	rts

	ENDP

;===========================================================================
;
;	NewMenuBar
;
;        	Allocate and initialize a menu bar.
;
;   IN:    PUSH:LONG - pointer to window's port that will own menu bar,
;	   zero for system menu bar.
;
;  OUT:    LONG - Handle of menu, zero if error.
;
;===========================================================================
NewMenuBar	PROC

owner	equ input
result	equ owner+4

	jsr startup	Do startup initialization for tool call.

	lda #BARSIZE+4	Number of bytes to allocate.
	jsr make_block	Allocate memory.
	sta result,s	Return handle.
	sta <menuhand	Put handle here and	leave barhand alone.
	txa
	sta result+2,s
	sta <menuhand+2

	jsr pushdefmenu	Pass pointer to source.
	pei <menuhand+2	Pass handle of destination.
	pei <menuhand
	pea 0	Pass number of bytes to move.
	pea BARSIZE+4
	_PtrToHand	Move source into destination.

;
; --- Set menu bar's port to use -------------------------------------
;
	jsr derefMenuHand	<menuptr = (<menuhand)

	lda <screenMode
	bne In640	Default already set to 10, so only change if in 320.

	ldy #CtlFlag+1
	lda [<menuPtr],y
	and #$FF80	Clear current starting position.
	ora #5	Set new starting position to 5 for 320 mode.
	sta [<menuPtr],y

In640	lda #menuColor	Compute address of default color table.
	jsr pushData
	ldy #CtlColor	Set default color table pointer.
	pla
	sta [<menuPtr],y
	iny
	iny
	pla
	sta [<menuPtr],y

	lda owner+2,s
	ora owner,s
	beq useSystem	Already set?

	lda owner+2,s
	ora #$8000	Set 'not system menu bar' flag.
	bra store1

useSystem	jsr pushport	Set system port as owner.
	pla
	sta owner+2,s
	pla
store1	sta owner+2,s

	ldy #CtlOwner	Assign owner.
	lda owner,s
	sta [<menuptr],y
	iny
	iny
	lda owner+2,s
	sta [<menuptr],y
	bmi exit	System menu bar?  If not exit.

;
; --- See if system	menu bar should have fall down menus -----
;
	lda #10	Number of bytes to allocate.
	jsr make_block	Allocate memory.
	phx	Save handle.
	pha
	sta <work
	stx <work+2

	pea 2	Get message.
	pea 4	Message type.
	phx	Pass handle to store message.
	pha
	_MessageCenter
	bcs noMessage

***	ldy $2	;*** bad! changed to:
	ldy #2	;19-Sep-90 DAL
	lda [<work],y
	tay
	lda [<work]
	sta <work
	sty <work+2

	jsr derefMenuHand	<menuptr = (<menuhand)

	ldy #6	Get fall down area.
	lda [<work],y
	ldy #CtlValue	Set fall down area.
	sta [<menuptr],y

noMessage	_DisposeHandle	Free message handle.

exit	brl pop4bytes

	ENDP


;===========================================================================
;
;	Make_Block
;
;          	Allocate a block of memory.
;
;   IN:    a = number of bytes to allocate.
;
;  OUT:    a = low word of handle.
;          x = high	word of handle.
;
;===========================================================================
make_block	PROC

	ldy <MyID	Pass ID.
	ldx #0	Pass attributes.
	brl allocate3

	ENDP


;===========================================================================
;
;	DrawMenuBar
;
;        	Draw Current Menu Bar
;
;   IN:    Nothing.
;  OUT:    Nothing.
;
;===========================================================================
DrawMenuBar	PROC

	jsr startup	Do startup initialization for tool call.
	jsr lockMenuBar	<barPtr = (<barHand), locked.
	beq exit2	Is there a current menu bar?

	ldy #ctlFlag
	lda [<barptr],y
	and #$0080	Check if the menu bar is visible
	bne exit2

	jsr to_myport	Switch to Menu Manager's port.
	jsr getcolor	Get menu bar's color table pointer.

;
; --- Draw menu bar's box ------------------------
;
	lda <outlineclr
	jsr setoutline

	pei <vert_pen
	pea 1
	_SetPenSize

	ldy <norcolor	Pass color in Y.
	ldx <barptr+2	Pass address of RECT in A and X.
	lda <barptr
	clc
	adc #CtlRect
	bcc ok1
	inx

ok1	jsr drawrect	Draw a blank menu bar (frame and inside).

;
; --- Print Titles ------------------
;
	jsr getmfirst	Get pointer to first menu.
	beq exit	Are there any menus?

lop1	pea 0	Draw title normal.
	lda [<menuptr]
	pha	Pass Menu's ID.
	_HiliteMenu	Draw menu's title.

	jsr lockMenuBar	<barPtr = (<barHand), locked.
	jsr next_menu	Get pointer to next	menu.
	bne lop1

exit	jsr to_uport	Restore caller's port.
	jsr unlockMenuBar	Leave menu bar and menus unlocked.

exit2	brl pop0bytes	no error

	ENDP


;===========================================================================
;
;	HideMenuBar
;
;	This call takes the system menubar and hides it by adding
;	the menubar rect back to the desktop region. The invisible bit
; 	in the menubar flag is set so that any subsequent DrawMenuBar
;	or HiliteMenu calls will check this bit before doing anything.
;
;  IN: nothing
; OUT: current menu bar is set to the system menubar
;
;===========================================================================
HideMenuBar	PROC

	jsr startup

	lda <sysMenu+1	First check if there is a system menu bar
	beq exit1

	jsr sys_current	<barHand = <sysMen. Current = system
	jsr lockmenubar

	ldy #CtlFlag
	lda [<barptr],y
	tax
	and #$0080	First check if menu bar is already invisible
	bne ItsInvisible

	txa
	ora #$0080	Set invisible flag for menu bar
	sta [<barptr],y

	lda #1	Set Desktop operation for "toDesk", since we are hiding the
	sta <temp	menu bar we need to add the rect back to the desktop.
	jsr AddorSubRegion

	pha	Reset all the SCBs which were initially altered
	_GetMasterSCB	by InitPalette.
;;;	_SetAllSCBs
;*** New way 26-Aug-91 DAL -- only set SCBs 2 through 9
;	pla	;A=SCB value
;	ldx #7	;X counts from 7 down to 0, for SCBs 9 to 2
;@setNextSCB	phx
;	pha	;preserve A and X
;	inx
;	inx
;	phx
;	pha	;push SetSCB parameters
;	_SetSCB
;	pla
;	plx
;	dex
;	bpl @setNextSCB
;*** end 26-Aug-91 DAL
*** Newer way 19-Sep-91 DAL -- set SCBs 0..Height-1
	ldy #$000C	;offset to bottom om menu bar rect
	lda [<barPtr],y
	dec a
	tax
	pla	;A = SCB value
@setNextSCB	phx
	pha	;preserve A and X
	phx
	pha	;push SetSCB parameters
	_SetSCB
	pla
	plx
	dex
	bpl @setNextSCB
*** end 19-Sep-91 DAL

	ldx <barptr+2
	lda <barptr	; refresh only the menu bar that got hidden
	clc
	adc #CtlRect
	bcc noCarry
	inx
noCarry	phx
	pha
	_RefreshDesktop

ItsInvisible	jsr unlockmenubar

exit1	brl pop0bytes

	ENDP


;===========================================================================
;
;	ShowMenuBar
;
;	This call shows a hidden system menu bar by subtracting the
;	menu bar rect from the desktop and refreshing the desktop.
;	The system menu bar is made the current menu bar.
;
;===========================================================================
ShowMenuBar	PROC

	jsr startup

	lda <sysMenu+1	First check if there is a system menu bar
	beq exit2

	jsr sys_current	<barHand = <sysMen. Current = system
	jsr lockmenubar

	ldy #ctlFlag
	lda [<barptr],y
	tax
	and #$0080	First check if menu bar is visible already.
	beq ItsVisible

	txa
	and #$FF7F	Set the menu bar to visible.
	sta [<barptr],y

	lda #0
	sta <temp	Set the DeskTop operation to "fromDesk", since we're
	jsr AddorSubRegion	showing the menu bar we need to subtract it from the desktop.

	_DrawMenuBar	Show the menu bar by redrawing it.

	_InitPalette	Reinitialize the SCBs in the menu bar so the apple logo
;		shows up correctly.
ItsVisible	jsr unlockmenubar

exit2	brl pop0bytes

	ENDP

;==================================================
;
; 	AddorSubRegion
;
;  IN: <temp contains the operation for DeskTop call to perform
;      <barptr is set the system menu bar
; OUT: nothing
;
;==================================================
AddorSubRegion	PROC

	pha	First get  a new region that we are going to use
	pha	to add or subtract from the desktop region.
	_NewRgn

	lda 1,s 	Store handle to region on our direct page space for now.
	sta <work
	lda 3,s
	sta <work+2

	lda <barptr	Calculate the pointer to the system menu bar's rectangle.
	clc
	adc #ctlrect
	tax
	lda <barptr+2
	adc #0
	pha
	phx
	_RectRgn	Convert our region to a rectanglar region.

	pei <temp	Add or subtract this region from our desktop, thereby
	pei <work+2	showing or hiding the menu bar.
	pei <work
	_DeskTop
	bcc noerr
	pla
	pla
	pla

noerr	pei <work+2
	pei <work
	_DisposeRgn

	rts

	ENDP

;===========================================================================
;
;	HiliteMenu
;
;        	Print a Title.
;
;   IN:    PUSH:WORD - 0 = normal, 1 = highlighted, bit 15 =1 for invert.
;          PUSH:WORD - Menu ID.
;
;===========================================================================
HiliteMenu	PROC

menunum	equ input
flag	equ menunum+2

	jsr startup	;Do startup initialization for tool call.
	jsr lockMenuBar	;<barPtr = (<barHand), locked.
	beq exit4	;Is there a current menu bar?

	ldy #ctlFlag
	lda [<barptr],y
	and #$0080	;Is the menu bar invisible
	bne exit4	;It's invisible

	lda menunum,s	;ID of menu to hilite.
	jsr getmptr	;Get menu's pointer.
	beq exit3	;Was the menu found?

	jsr to_myport	;Switch to Menu Manager's port.
	_PenNormal

;
; --- Draw title's background -------
;
	ldy #CtlRect+y1
	lda [<barptr],y
	sta <menurect+y1

	ldy #CtlRect+y2
	lda [<barptr],y
	sta <menurect+y2

	ldy #menuFlag	;Check if this menu is a pop-up menu.
	lda [<menuptr],y	;If it is then we don't want to calculate the title's rect
	and #M_POPUP	;like we normally would for a regular menu.
	beq notPopup

	ldy #CtlRect+x1	;We don't do the fudging that titlexstart does.
	lda [<barptr],y	;The pop-up's title rect is calculated just by using the
	sta <menurect+x1	;y1, y2, and x1 coordinates of the control rect and then
;		;calculating x2 by adding the titleWidth to x1.
	ldy #TitleWidth
	clc
	adc [<menuptr],y
	sta <menurect+x2

	dec <menurect+y2	Since this is a pop-up control we must account for the
;		bottom drop shadow which is a part of the control rect.
	bra SkipThisShit

notPopup	inc <menurect+y1
	dec <menurect+y2

	lda menunum,s	Find title's starting position.
	jsr titlexstart
	stx <menurect+x1
	sty <menurect+x2

SkipThisShit	lda flag,s	Get hilite/unhilite	flag.
	tax
	bpl skip1	Requesting XOR highliting?

	ldy #MenuFlag	Will menu allow XOR	highliting?
	lda [<menuptr],y
	and #M_NO_XOR	XOR flag set?
	bne skip1

	txa
	and #$7FFF	Don't allow special XOR highlighting.
	tax

skip1	txa	Pass hilite/unhilite flag in A.
	ldx #mDrawTitle
	jsr dispatch

exit2	jsr to_uport	Restore caller's port.
exit3	jsr unlockMenuBar	Leave menu bar and menus unlocked.

exit4	brl pop4bytes	no error

	ENDP


;===========================================================================
;
;	FlashMenuBar
;
;   IN:    None.
;  OUT:    None.
;
;===========================================================================
FlashMenubar	PROC

	jsr startup	Do startup initialization for tool call.
	jsr qdraw	Draw the menu bar with InvertColor.
	jsr qdraw	Redraw the bar with	barColor.

	jsr unlockMenuBar	Leave menu bar and menus unlocked.

	brl pop0bytes	no error


; = = = = = = = = =	= = = = = = = = = = = = = = = =
;        Code optimumzation
; = = = = = = = = =	= = = = = = = = = = = = = = = =
;
qdraw	jsr lockMenuBar	<barPtr = (<barHand), locked.
	beq exit100	Is there a current menu bar?

	jsr getcolor	Get menu bar's color's.
;	                  	work = color table pointer.

	lda <hiliteclr	Swap normal and selected colors.
	sta [<work]

	ldy #2
	lda <norcolor
	sta [<work],y

	_DrawMenubar
exit100	rts

	ENDP


;===========================================================================
;
;	TitleXStart
;
;        	Find title's starting position.
;
;   IN:    a = menu	ID.
;          barptr =	menu bar pointer.
;
;  OUT:    x = x position of title's left side.
;          y = x position of title's right side.
;          menuptr set to menu pointer.
;          a = 0 and equal flag is TRUE	if no menu.
;
;===========================================================================
titlexstart	PROC

pos	equ 1
menunum	equ pos+2

	pha	Save menu ID.

	ldy #CtlFlag+1
	lda [<barptr],y
	and #$007F	Start position of titles,
	clc
	adc <vert_pen	plus width of left side vertical line,
	ldy #CtlRect+x1	plus left side of menu bar,
	adc [<barptr],y
	pha	equal left side of first menu title.

	jsr getmfirst	Get pointer of first menu.
	beq exit	Are there any menus?

lop1	ldy #TitleWidth
	lda pos,s
	tax	Save last position.
	clc
	adc [<menuptr],y
	sta pos,s

	lda [<menuptr]
	cmp menunum,s
	beq exit	Is this the menu?

	jsr next_menu	Next menu.
	bne lop1	Are there any more?
;	                  	Error to fall through.

exit	ply	Right side of title.
	pla	Menu number.

	lda <menuptr	Return error state if any.
	ora <menuptr+2
	rts

	ENDP


;===========================================================================
;
;	GetMFirst
;
;        	Find menu pointer.
;
;   IN:    barptr =	menu bar pointer.
;
;  OUT:    BEQ if menu not found.
;          BNE if menu found, <menuPtr = pointer to menu record.
;
;===========================================================================
getmfirst	PROC

	lda #0	Find first menu.

;================================================================
;	GetMPtr
;
;   IN:    a = menu ID number.
;
;================================================================
	ENTRY getmptr
getmptr	tax
	beq ok1

	ldx #3	Find given ID.

ok1	jsr getmhand	Get handle of menu.
	brl derefMenuHand	<menuptr = (<menuhand).


; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = = = = =
;          Find menu handle
;
;   IN:    a = menu's ID.
;          x = search flag:
;                0 = handle of first menu in list.
;                1 = handle of last menu in list.
;                2 = handle of menu before given menu.
;                3 = handle of given menu.
;
;  OUT:    <menuhand = handle of menu.
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = = = = =
	ENTRY getmhand
getmhand

look_for	equ 1
id	equ look_for+2

	pha	Save ID to search for.
	phx	Save search flag.

	lda #MenuList	Start with first menu in menu list.
	sta <menu_cnt
	bra enter100

lop100	lda look_for,s	Is the first menu wanted?
	beq exit100

	lda [<menuptr]	Get menu's ID.
	cmp id,s	Match?
	beq gotit100

enter100	jsr next_menu	Get handle of menu from menu list.
	bne lop100

gotit100	lda look_for,s
	beq exit100

	cmp #3
	beq exit100

	dey	Backup one menu handle.
	dey
	dey
	dey
	cpy #MenuList	Did we go too far?
	bcc exit100

	sty <menu_cnt
	brl next_menu	Get handle of menu from menu list.

exit100	pla	Fix stack.
	pla
	rts

	ENDP


;===========================================================================
;
;	SetCurrentBar
;
;          	Make last parameter passed the current menu bar.
;
;   IN:    Last parameter passed = menu	bar handle.
;
;  OUT:    <barHand	= last parameter passed.
;
;===========================================================================
setCurrentBar	PROC

	lda input+2,s	Get menu bar pointer.
	sta <barhand
	lda input+4,s
	sta <barhand+2
	ora <barhand	Menu bar passed?
	bne exit

	ENTRY sys_current
sys_current
	lda <sysmenu	Caller wants the system bar.
	sta <barhand
	lda <sysmenu+2
	sta <barhand+2

exit	rts

	ENDP


;===========================================================================
;
;	LockMenuBar
;
;          	Lock current menu bar & every menu.
;
;   IN:    <barHand	= handle of current	menu bar.
;
;  OUT:    BEQ if no current menu bar.
;          BNE if <barPtr = (<barHand).
;                 <barHand = locked.
;                 Every menu in menu bar is locked.
;
;===========================================================================
lockMenuBar	PROC

	lda <barHand+1	Is there a menu bar?
	beq exit

	ldy #4	Lock menu bar.
	lda [<barHand],y
	ora #$8000
	sta [<barHand],y

	dey	Dereference menu bar.
	dey
	lda [<barHand],y
	sta <barPtr+2
	lda [<barHand]
	sta <barPtr

	pei <menu_cnt	Save.
	pei <menuhand+2
	pei <menuhand

	lda #MenuList	Start with first menu in menu list.
	sta <menu_cnt
	bra enter1

lop1	jsr lockMenuHand	<menuhand = locked.

enter1	jsr next_menu	Get handle of menu from menu list.
	bne lop1

	pla	Restore.
	sta <menuhand
	pla
	sta <menuhand+2
	pla
	sta <menu_cnt

	lda <barHand+1	Set BNE flag.
exit	rts

	ENDP


;===========================================================================
;
;	UnlockMenuBar
;
;          	Unlock current menu bar & every menu.
;
;   IN:    <barHand	= handle of current	menu bar.
;
;  OUT:    <barHand	= locked.
;          Every menu in menu bar is unlocked.
;
;===========================================================================
unlockMenuBar	PROC

	lda <barHand+1	Is there a menu bar?
	beq exit

	pei <menu_cnt	Save.
	pei <menuhand+2
	pei <menuhand

	lda #MenuList	Start with first menu in menu list.
	sta <menu_cnt
	bra enter1

lop1	jsr unlockMenuHand	<menuhand = unlocked.

enter1	jsr next_menu	Get handle of menu from menu list.
	bne lop1

	pla	Restore.
	sta <menuhand
	pla
	sta <menuhand+2
	pla
	sta <menu_cnt

	ldy #4	Unlock menu bar.
	lda [<barHand],y
	and #$7FFF
	sta [<barHand],y

exit	rts

	ENDP


;===========================================================================
;
;	LockMenuHand
;
;          	Lock <menuhand.
;
;   IN:    <menuhand = handle.
;
;  OUT:    <menuhand = locked.
;
;===========================================================================
lockMenuHand	PROC

	ldy #4
	lda [<menuhand],y	Guess if this is a handle.
	and #$7FFF
	bne exit	Attributes don't look like mine.

	lda [<menuhand],y	Attributes look like a good handle,
	ora #$8000	I'll take a chance and lock it.
	sta [<menuhand],y

exit	rts

	ENDP


;===========================================================================
;
;	UnlockMenuHand
;
;          	Unlock <menuhand.
;
;   IN:    <menuhand = handle.
;
;  OUT:    <menuhand = unlocked.
;
;===========================================================================
unlockMenuHand	PROC

	ldy #4	Unlock the menu.

	lda [<menuhand],y	Guess if this is a handle.
	and #$7FFF
	bne exit	Attributes don't look like mine.

	lda [<menuhand],y
	and #$7FFF
	sta [<menuhand],y
exit	rts

	ENDP


;===========================================================================
;
;	DerefMenuHand
;
;          	Dereference menu handle.
;
;   IN:    <menuhand = handle of menu bar record.
;
;  OUT:    BEQ if <menuHand = 0.
;          BNE if <menuHand is not zero, <menuptr = (<menuhand).
;
;===========================================================================
derefMenuHand	PROC

	ldx <menuhand+1	Is there a menu handle?
	beq store1

	ldy #1
	lda [<menuhand],y	Dereference the handle.
	tax
	lda [<menuhand]

store1	sta <menuPtr
	stx <menuPtr+1
	txa	Set equal flag.
	rts

	ENDP


;===========================================================================
;
;	To_MyPort
;
;          	Switch to Menu Manager' port.
;
;===========================================================================
to_myport	PROC

	ldy #CtlOwner+2	Use current port?
	lda [<barptr],y
	bmi exit

	jsr save_port	Save current port before switching.

	ldy #CtlOwner+2	Switch to menu bar's port.
	lda [<barptr],y
	pha
	dey
	dey
	lda [<barptr],y
	pha
	_SetPort

exit	rts

	ENDP


;===========================================================================
;
;	Save_Port
;
;          	Save current port, if not saved.
;
;===========================================================================
save_port	PROC

	inc <port_nest	Nest Counter.

	lda <old_port	Something already saved?
	ora <old_port+2
	bne exit

	pha	Space for current port handle.
	pha
	_GetPort	Get current port
	pla
	sta <old_port	Save.
	pla
	sta <old_port+2

exit	rts

	ENDP


;===========================================================================
;
;	To_UPort
;
;          	Return original port.
;
;===========================================================================
to_uport	PROC

	lda <old_port	Is there something to restore?
	tay
	ora <old_port+2
	beq exit

	dec <port_nest	Am I done calling myself?
	bne exit

	pei <old_port+2	Restore original port.
	phy
	_SetPort
	stz <old_port	Restore completed, ready for next save.
	stz <old_port+2

exit	rts

	ENDP


;===========================================================================
;
;	GetColor
;
;          	Get menu bar's color table pointer.
;
;   IN:    barptr =	pointer to menu bar.
;
;  OUT:    <unhiliteclr = unhighlighted	color.
;          <hiliteclr = highlight color.
;          <outlineclr = outline color.
;          <work = pointer to menu bar's color table.
;
;===========================================================================
getcolor	PROC
;
; -- Set colors from color table, if there is one ------------
;
	ldy #CtlColor	Get pointer to color table.
	lda [<barptr],y
	sta <work
	iny
	iny
	lda [<barptr],y
	sta <work+2
	ora <work
	bne colorTableOK

	lda #DefColorTable	If CtlColor is zero then use the default color table
	sta <work	in ROM.
	lda #^DefColorTable
	sta <work+2
	bra NotPopUpControl

colorTableOK	ldy #ctlProc+2
	lda [<barptr],y
	bpl NotPopUpControl

	ldy #PopUpCtlRecord.ctlmoreflags
	lda [<barptr],y
	and #$0018	Get ref type for color table
	beq NotPopUpControl

	bit #$0008
	bne ItsAHandleRef

ItsAResource	pha
	pha
	PushWord #$800d		;was rCtlColorTable 17-Sep-90 DAL
;	lda <work+2
;	pha
;	lda <work
;	pha
	pei <work+2
	pei <work
	_CMLoadResource
	pla
	sta <work
	pla
	sta <work+2

ItsAHandleRef	ldy #2
	lda [<work],y
	tax
	lda [<work]
	sta <work
	stx <work+2

NotPopUpControl
	ldy #4	Fetch colors from table.
lop1	lda [<work],y
	tyx
	sta <norcolor,x
	dey
	dey
	bpl lop1

exit	rts

	ENDP

*
* Added 7-Jan-91 DAL
*
MinDelayPrep	proc export
	pha
	pea 0
	pea 0
	_WaitUntil
	pla
	sta >blinkTime
	rts

	export MinMenuDelay
MinMenuDelay	pha
	lda >blinkTime
	pha
	pea MinMenuBlinkTime
	_WaitUntil
	pla
	sta >blinkTime
	rts

blinkTime	dc.w 0

	EndP

;===========================================================================
;
;	TrackMenu2
;
;        	Track user inside pop-up menu bar.
;
;===========================================================================
trackmenu2	PROC

	stz <curselect	set no selection flag to start with
	stz <inactItem	set no inactive item selected flag also

playitAgain	pha
	PushWord #0
	_WaitMouseUp
	pla
	bne keepgoing	if mouse up then we're done

	jsr MinDelayPrep	;added 7-Jan-91 DAL

	lda <blink	number of times to flash item
	asl a	double it for number of on/offs
looper	sta <count
	lda <curselect	item to flash
	beq byebye	look ma! no item to flash

	eor #$8000	flipflop hilite/unhilite bit
	sta <curselect
	ldx #mDrawItem	send draw menu message
	jsr dispatch

	ldy #$3000	time of delay
delay	dey
	bne delay

	jsr MinMenuDelay	; added 7-Jan-91 DAL

	lda <count	next flash
	dec a
	bpl looper	done?
byebye	brl Quit

keepgoing	lda #yrat	get new mouse location
	jsr pushDPage
	_GetMouse

	lda <xrat	is mouse in the pop-up menu
	cmp <menurect+x1
	bcc notinrect
	cmp <menurect+x2
	bcs notinrect
	jsr checkbounds
	bcc ckitems

notinrect	stz <count	re-initialize some flags
	stz <inactItem

	brl redrawtheItem	if so then unhilite it

ckitems	ldx #mChoose	check which item we've stumbled upon
	jsr dispatch

	tay 	save a
	lda <globalFlag 	is help on?
	and #G_HELP
	bne nohelp

	tya	don't allow disabled item selection
	and #$4000	is the item disabled?
	beq nohelp

	ldy #0	if disabled, then it's a no hit

nohelp	tya
	sta <count	store new selection
	stz <inactItem	clear inactive item flag, just in case

	tax	save
	and #$4000	is the item inactive?
	beq redrawtheItem

	stx <inactItem	remember over an inactive item

redrawtheItem	lda <curselect	is the current hilited item number the same
	cmp <count	as the new?
	beq cont_poll

	tax	is there a currently hilited item?
	beq skipit

	and #$7FFF 	pass item number as unhilited
	ldx #mDrawItem
	jsr dispatch

skipit	lda <count	newly hilited item index
	sta <curselect	it is now the currently hilited
	beq cont_poll

	ldx #mDrawItem
	jsr dispatch

cont_poll	jsr checkforScrolling
	brl playitAgain

quit	rts

	ENDP


;            	APPEND MTRACK.ASM
;
; 03/30/87 Dan - Added SpecialRect call	to frame and fill empty menu in one
;                call.  The menu will be drawn via FillRect	and FrameRect if
;                the SpecialRect function or QDAux tool is not available.
;
;===========================================================================
;
;	TrackMenu
;
;        	Track user inside menu bar.
;
;   IN:    barptr =	pointer to locked menu bar.
;          x = 2 if	button started up, 0 if started down.
;          yrat = y	starting position of cursor.
;          xrat = x	starting position of cursor.
;
;  OUT:    a = selection.
;          yrat = selected item's ID, zero if none selected.
;          xrat = selected menu's ID, or dimmed item ID if help is on.
;
;===========================================================================
trackmenu	PROC

	stx <startbutt	Save starting button state.

	jsr to_myport	Switch to Menu Manager's port.

	jsr GetColor
	lda <norcolor	Set the background pattern to background of menus.
	jsr pushcolor	Just in case we have a scrollable colored menu,
	_SetBackPat	calling ScrollRect won't have flicker effect.

	stz <event+what	Clear my event record's event code.
	bra enter1	Check the given position first.

;
; ---------------------------------------------------------------------
; --- Wait for a menu to be selected. ---------------------------------
; ---------------------------------------------------------------------

poll_bar	jsr getMEvent	Get the cursor's current position.

enter1	stz <curselect	Set no selection flag to start with.
	stz <inactItem	Set no inactive item selected flag also.

	lda <event+what	Get button event.
	cmp #MOUSEUP	Has the button been	released?
	bne next1
	brl exit	Button released, return to caller.

next1	cmp #MOUSEDOWN	Has the mouse button gone down?
	bne ok2

	stz <startbutt	Set the global flag	to BUTTON DOWN.

;
; ------- Find out which menu mouse is over ----------------------------
;
ok2	jsr onbar	Check if on menu bar at all.
	bne cont_1	Yes, on menu bar.

	lda <startbutt	Button up?
	beq poll_bar	Continue to watch cursor.
	brl exit	If up and not on bar, then return.

cont_1	jsr getmfirst	Start with the head	of the list.
	beq poll_bar	Are there any menus?

lop1	lda [<menuptr]	Get menu's ID.
	sta <titlenum	Keep menu's ID here.

	jsr titlexstart	Find the left and right sides of title.
	stx <Titlex1	Save left side of title.
	sty <Titlex2	Save right side of title.
	stx <menurect+x1	Menu's left side is same as title's.

	cpy <xrat	Is cursor over this	title?
	bcc nextmenu	I already know we're on the bar,
	cpx <xrat	are we in the same column as
	bcc gotit	the title?

nextmenu	jsr next_menu
	bne lop1	Any more menus?
	beq poll_bar	Try again with updated cursor position.

; ----------------------------------------------------------
; --- Print items into menu --------------------------------
; ----------------------------------------------------------

gotit
***
*** 7-Dec-91 DAL: the G_INITCURSOR bit in MenuGlobal makes MenuSelect call InitCursor
***
	lda <globalFlag
	and #G_INITCURSOR
	beq @noInitCursor
	_InitCursor
@noInitCursor
*** end 7-Dec-91

	jsr pull_down	Draw a blank menu.

;------------------------------------------------------
; --- Poll user for	item selection --------------------
;------------------------------------------------------

poll_menu	lda <event+what
	cmp #MOUSEDOWN	Has button gone down?
	bne next3

	stz <startbutt	Set BUTTON DOWN flag.
	bra ok7

next3	cmp #MOUSEUP
	bne ok7

; ------ Button has	been released ----------------------------------------
;
buttonup	lda <blink	Number of times to flash item.
	asl a	Double it for number of on/offs.
lop8	sta <count

	jsr MinDelayPrep	;7-Jan-91 DAL

	lda <curselect	Item to flash.
	beq quit	Exit if no selection made.

	eor #$8000	FlipFlop hilite/unhilite bit.
	sta <curselect
	ldx #mDrawItem	Send draw menu message.
	jsr dispatch

wait	ldy #$3000	Wait while the user	admires my work.
delay	dey
	bne delay

	jsr MinMenuDelay	;7-Jan-91 DAL

	lda <count	Next flash.
	dec a
	bpl lop8	Done?
quit	brl exit2	Pull up menu and return.

; ------ Check if user is on menu bar, but has left menu's title's -----
;
ok7	jsr getMEvent	Get a mouse event.

	stz <count	Start with cursor not over any item.

	jsr onbar	Is cursor on menubar?
	beq ckmenu	If not, there's nothing to worry about.

	lda <Titlex1	On menubar, still over our title?
	cmp <xrat
	bcs newmenu
	lda <Titlex2
	cmp <xrat
	bcc newmenu

	lda <uparrow	check if we have an up arrow
	beq noUpArrow
	inc <inUpArrow	tells routine CheckForScrolling to scroll up arrrow

noUpArrow	brl redrawitem	Unhilite the hilited item, if one is.

; --------- Try to pull up menu and look for another. ----------------------
;
newmenu	lda <curselect	Is an item hilited?
	beq ok8

	and #$7FFF	Pass item number as	unhilited.
	ldx #mDrawItem
	jsr dispatch	Redraw the item as unhilited.

	stz <curselect	No item selected (for pullup call).

ok8	jsr pullup
	brl enter1	Keep tracking user.

;-----------------------------------------------
;          Hit test	for item on menu.
;-----------------------------------------------
;
; --- Check if cursor is in the menu ------------------------------

ckmenu	lda <xrat
	cmp <menurect+x1	check if pt is within the left and right
	bcc notinrect	boundaries of the menu rectangle
	cmp <menurect+x2
	bcs notinrect
	jsr checkbounds
	bcc ckitems	mouse is inside the menu

notinrect	ldy #menuFlag
	lda [<menuptr],y
	and #AlwaysCallmChoose
	beq @1

	lda <curselect	check if there needs to an item unhighlighted first
	bne @1
	bra ckitems

@1	stz <count	Not over any item.
	stz <inactItem	Not over any inactive item either.

	lda <startbutt	Is button up?
	beq redrawitem	If no, no need to check off menu.
;
; ------- Pull up menu if cursor leaves	menu while button up ------------
;
	jsr pushmrect	Pass pointer to menurect.
	pea $FFF4	Horizontal grace buffer.
	pea $FFF0	Vertical grace buffer.
	_InsetRect	Expand menurect for	grace buffer.

	pha
	jsr pushyrat	Pass pointer to point to check.
	jsr pushmrect	Pass pointer to RECT to check.
	_PtInRect	Check if outside grace buffer.

	jsr pushmrect	Pass pointer to menurect.
	pea 12	Horizontal grace buffer.
	pea 16	Vertical grace buffer.
	_InsetRect	Put menurect back the way it was.

	pla	Non-zero if in, zero if not inside.
	bne redrawitem

	stz <curselect	Off a menu, return no selection.
	bra exit2

; --- Cursor is in the menu, now hit test items ------------------------------
;
ckitems	ldx #mChoose	Ask defProc to hit test items.
	jsr dispatch

	tay	Save A.
	lda <globalFlag	Is help on?
	and #G_HELP
	bne ok3	If on, allow disabled item selection.

	tya	Don't allow disabled item selection.
	and #$4000	Is the item disabled?
	beq ok3	If not, then OK.

	ldy #0	If disabled, then it's a no hit.

ok3	tya
	sta <count	Store new selection.
	stz <inactItem	Clear inactive item	flag, just in case.

	tax	Save.
	and #$4000	Is the item inactive?
	beq redrawitem

	stx <inactItem	Remember over an inactive item.

; --- Item state has changed --------------------------------------------------
;
redrawitem	lda <curselect	Is the current hilited item number
	cmp <count	the same as the new?
	beq cont_poll	State hasn't changed, continue to poll.

; --------- Unhighlight current selection --------
;
	tax
	beq skip25	Is there a currently hilited item?

	and #$7FFF	Pass item number as	unhilited.
	ldx #mDrawItem
	jsr dispatch	Redraw the item as unhilited.

; --------- Highlight new selection --------------
;
skip25	lda <count	Newly hilited item index.
	sta <curselect	It is now the currently hilited.
	beq cont_poll	Is the new state a hilited item?
;	                  	Pass item number in A.

	ldx #mDrawItem
	jsr dispatch	Redraw the new item	as hilited.

cont_poll	jsr checkForScrolling
	brl poll_menu	Continue to poll user.

;-------------------------------------
;          End of track menu.
;-------------------------------------

exit2	jsr pullup	Erase the menu.

;
; --- Return selection ---------------
;
exit	stz <yrat	Selection IDs returned in yrat, xrat.
	stz <xrat	So zero out, no selection, just in case.

	lda <curselect	Was the user over an enabled item when
	beq exit3	the button was released?
	and #$3FFF	Mask off hilite bit,
	sta <curselect	to get just the item number.

	lda <inactItem	Was the user over a	disabled item when
	beq ok1	the button was released?

	and #$3FFF
	sta <curselect	Item number to find	ID for.
	jsr get_ids	Get the menu and item ID numbers.
	sta <xrat	Return the disabled	item ID in high word
	stz <yrat	of TaskData and zero in the low word.
	bra exit3

ok1	jsr get_ids	Selection made, get	ID numbers.
;
exit3	brl to_uport	Restore caller's port.

	ENDP


;===========================================================================
;
;	CheckBounds
;
;  IN:	<menurect = rectangle of current menu pulled down
;	<yrat = current y location of mouse
; OUT:	carry clear if pt in bounds
;	carry set if pt otta bounds
;
;===========================================================================
checkBounds	PROC

	lda <upArrow	;check if there's an up arrow
	beq upperbounds	;0 = no up arrow, 1 = up arrow
	lda <yrat
	bmi WayOttaBounds
	lda <menurect+y1
	clc
	adc <font_h
	cmp <yrat	;check if pt is above or below arrow item
	bcc otherend	;it's below if clear
WayOttaBounds	inc <inUpArrow	;set flag that says mouse is in up arrow
	bra ottaBounds	;its otta bounds so set carry

upperbounds	lda <menurect+y1
	cmp <yrat	;check if pt above or below item #1
	bcs ottaBounds	;its below this item 1

otherend	lda <dwnArrow	;check if there's a down arrow
	beq lowerbounds	;0 = no down arrow, 1 = down arrow
	lda <yrat
	bmi ottabounds
	lda <menurect+y2
	sec
	sbc <font_h	;check if pt above or below the down item
	dec a
	cmp <yrat
	bcs InMenu	;we're in the menu
	inc <inDwnArrow	;set flag that says mouse is in down arrow
	bra ottaBounds

lowerbounds	lda <menurect+y2
	cmp <yrat	;check if pt above or below last item
	bcs InMenu
ottaBounds	sec
	rts

InMenu	clc
	rts

	ENDP


;===========================================================================
;
;	CheckForScrolling
;
;	checks if menu is a SCROLLER, if it is check if mouse
;	in up/down arrows, if it is then S C R O L L  man!
;
;	Flags that are set to give more info on what to do after scrolling:
;	$8000 = get rid of up arrow and redraw first item in menu list
;	$4000 = get rid of down arrow and redraw last item in menu list
;	$2000 = draw up flag
;	$1000 = draw down arrow
;
;	Scrolling Speeds: flags that are set in <count
;	$0000 = fast scrolling
;	$0800 = medium scrolling
;
;   IN:	<inUpArrow = set if in up arrow, therefore scroll
;	<inDwnArrow = set if in down arrow, therefore scroll the other way
;	<menuptr = ptr to current menu record
;	<menurect = rectangle corresponding to item in <count
;	<rect = rectangle that we calculate for _ScrollRect
;
;  OUT:	<uparrow, <dwnarrow, flags accordingly
;
;===========================================================================
checkForScrolling	PROC

	ldy #menuFlag
	lda [<menuptr],y
	and #M_SCROLL
	bne checkmore
	brl noScrolling

;--------------------------------------------------------------------------
;------  Check for up arrow  ----------------------------------------------

checkmore	lda <InUpArrow
	bne scrollup
	brl checkdown

scrollup	stz <inUpArrow	reset flag
	dec <firstVisItem	first visible item in menu decrements by one
	lda <firstVisItem
	sta <count	this is the item that is scrolling into view
	cmp #2	when first item becomes 2 then up arrow disappears and
	bne NotFirstItem1	firstitem then becomes 1

	lda <count
	ora #$8000	set flag that says get rid of up arrow and redraw
	sta <count	first item in list
	dec <firstVisItem

NotFirstItem1	ldy #menuflag	check to see whether this is a regular menu or not
	lda [<menuptr],y
	and #M_POPUP
	beq @111

	lda <menurect+y2
	cmp <saveY2
	beq @111

	clc
	adc <font_h
	sta <menurect+y2
	bra stillRoomInRect

@111	ldy #NumOfItems
	lda [<menuptr],y
	cmp <lastVisItem	if lastVisItem is actual last item in menu then we need dwn arrow
	bne NotLastItem1

	lda <count	this means that the last item in menu is now out of view
	ora #$1000	set flag that says draw down arrow
	sta <count
	dec <lastVisItem	lastVisItem decremented by 2, last item is out of view
NotLastItem1	dec <lastVisItem	and second to last item becomes the down arrow item

stillRoomInRect	jsr setSpeedUp

	ldy <font_h	horizontal scroll distance, scrolling down so it's positive
	bra Scroll_Man


;--------------------------------------------------------------------------
;------  Check for down arrow  --------------------------------------------

CheckDown	lda <InDwnArrow
	bne scrolldown
	brl noScrolling

scrolldown	stz <inDwnArrow	reset flag
	inc <lastVisItem	since we're scrolling up, last vis item is incremented
	lda <lastVisItem
	sta <count	item that is scrolling into view
	inc a
	ldy #NumOfItems	if NumOfItems = totalitems-1 then we've scrolled up as
	cmp [<menuptr],y	much as we can, so bye bye down arrow
	bne NotLastItem2

	lda <count
	ora #$4000	set flag that says redraw last item in menu and get rid
	sta <count	of the down arrow icon
	inc <lastVisItem

NotLastItem2	ldy #menuflag
	lda [<menuptr],y
	and #M_POPUP
	beq notPopUpType2

	lda <menurect+y1
	cmp <saveY1
	beq notPopUpType2

	sec
	sbc <font_h
	sta <menurect+y1
	bra around

notPopUpType2	lda <firstVisItem	if FirstItem = 1 then scrolling up will scroll this item
	cmp #1	out of view, sooo... we need to put an up arrow in
	bne NotFirstItem2

	lda <count	firstitem=1
	ora #$2000	set flag that says draw up arrow
	sta <count
	inc <firstVisItem	increment by two because item1 is scrolled out of view
NotFirstItem2	inc <firstVisItem	and item2 becomes the up arrow therefore firstitem=3

around	jsr setSpeedDwn

	lda <font_h	make it negative because we're scrolling up
	eor #$FFFF
	inc a
	tay	store value to scroll in y-reg

Scroll_Man	lda <menurect+y1	calculate the rectangle to scroll
	ldx <uparrow	our rectangle to scroll is <menurect if there are no
	beq noUp	up/down arrows, if there are subtract them from our
	clc	rect
	adc <font_h
noUp	sta <rect+y1

	lda <menurect+y2
	ldx <dwnArrow
	beq noDown
	sec
	sbc <font_h
noDown	sta <rect+y2

	jsr pushrect
	pea 0	no horizontal movement
	phy	vertical distance to scroll, set up above

	pea 0	nil for region handle
	pea 0

	_ScrollRect	scroll the menu

	inc <specialFlag	flag to tell draw_item to not use xor highlighting
	lda <count	update the item that scrolled out of view
	and #$07FF	mask off high some bits to get just the item to redraw
	ldx #mDrawItem
	jsr dispatch

	lda <count
	and #$F000	check if any special flags were set
	beq NoSpecial

	lda <count
	and #$8000
	bne redrawfirst

	lda <count
	and #$4000
	bne redrawlast
	bra DrawUpOrDown

redrawFirst	lda #1	erase up arrow and draw first item
	stz <upArrow
	bra drawit

redrawlast	ldy #NumOfItems	erase down arrow and draw last item
	lda [<menuptr],y
	stz <dwnArrow

drawit	ldx #mDrawItem
	jsr dispatch

DrawUpOrDown	lda <count
	and #$2000
	beq DrawDown

	inc <uparrow
	jsr DrawUpArrow
	bra NoSpecial

DrawDown	lda <count
	and #$1000
	beq NoSpecial
	inc <dwnarrow
	jsr DrawDwnArrow

NoSpecial	lda <count	see if the slow scroll flag is set
	and #$0800
	beq delayDone	if not then we don't need to run the delay

	pha	get starting tick value
	pha
	_GetTick
	pla	just need low word of tick count
	plx
	sta <scrollCount	put starting tick value on our direct page

getNextTick	pha
	pha
	_GetTick
	pla
	plx
	sec
	sbc <scrollCount
	cmp #20	our delay is 20 ticks or .33 seconds
	bcs delayDone
	bra getNextTick

delayDone	stz <count	set to zero so that
	stz <specialFlag

NoScrolling	rts


;==================================================
;
; SetSpeedUp
;
setSpeedUp	lda <yrat
	bmi fast
	lda <menurect+y1
	clc	the first 5 pixels of up arrow constitutes slow section
	adc #7	check if it's in the slow speed section
	cmp <yrat
	bcs fast
	bra setSlow

;==================================================
;
; SetSpeedDwn
;
setSpeedDwn	lda <menurect+y2
	sec	the first 5 pixels of down arrow constitutes slow section
	sbc #7	check if it's in the slow speed section
	cmp <yrat
	bcc fast
setSlow	lda <count
	ora #$0800	set slow poke flag in count
	sta <count

fast	rts

	ENDP

;===========================================================================
;
;	DrawUpArrow
;
;  IN:	<menurect = rectangle of last item found, need x1, x2 only
;	<rect = rect to be calculated for 1 item in menu list
;
; OUT:	nothing
;
;===========================================================================
DrawUpArrow	PROC

	lda <menurect+y1	calculate the rectangle of first item
	sta <rect+y1	and store it in <rect
	clc
	adc <font_h
	sta <rect+y2
	jsr pushrect	rect of first item in menu

	lda <norcolor	fill in rect will background color of menu
	jsr PushColor
	_FillRect

	pea 4	Transfer forground pixels only.
	_SetTextMode

	lda ScreenMode
	beq ModeIs320

	PushLong #UpArrowLocInfo640
	PushLong #UpArrowBounds640
	bra FinishThisSucker

ModeIs320
	PushLong #UpArrowLocInfo320
	PushLong #UpArrowBounds320
FinishThisSucker

	lda <text_width
	clc	don't wan't any carry to be rotating in on us
	ror a
	clc
	adc <menurect+x1	width to indent before drawing the up arrow, same
	adc <text_width	indentation as when we're drawing an item.
	pha	x coordinate of upper left corner of icon
	lda <menurect+y1
	inc a
	inc a
	pha	y coordinate of upper left corner of icon
	pea $8003
	_PPToPort

	rts

	ENDP


;===========================================================================
;
;	DrawDwnArrow
;
;===========================================================================
DrawDwnArrow	PROC

LocInfoRec	equ work

	lda <menurect+y2	calculate the rectangle for the last item in list
	sta <rect+y2	store result in <rect
	sec
	sbc <font_h
	sta <rect+y1
	jsr pushrect	rect for last item in menu

	lda <norcolor
	jsr PushColor
	_FillRect

	pea 4	Transfer forground pixels only.
	_SetTextMode

	lda ScreenMode
	beq ModeIs320

	PushLong #DownArrowLocInfo640
	PushLong #DownArrowBounds640
	bra FinishThisSucker

ModeIs320
	PushLong #DownArrowLocInfo320
	PushLong #DownArrowBounds320
FinishThisSucker
	lda <text_width
	clc	don't wan't any carry to be rotating in on us
	ror a
	clc
	adc <menurect+x1	amount of space to indent before drawing the down arrow.
	adc <text_width	indentation is same as that used when drawing an item
	pha	X coordinate of upper left corner of destination
	lda <menurect+y2
	sec
	sbc #11
	pha	Y coordinate of upper left corner of destination
	pea $8003
	_PPToPort

	rts

	ENDP

;===========================================================================
;
;	Get_IDs
;
;        	Pack MenuID and ItemID.
;
;   IN:    <menuptr	= pointer to menu.
;          <itemptr	= pointer to item.
;          <curselect = item number.
;
;  OUT:    <yrat = item ID number.
;          <xrat = menu ID number.
;
;===========================================================================
get_ids	PROC

	lda [<menuptr]	Get MenuID.
	sta <xrat

	lda <curselect	Pass item number in	A.
	ldx #mGetItemID
	jsr dispatch
	sta <yrat
	rts

	ENDP


;===========================================================================
;
;	Next_Menu
;
;        	Get next menu pointer.
;
;   IN:    barptr =	pointer to menu bar.
;          menu_cnt	= index to next menu handle in menu list.
;
;  OUT:    menuptr = NextMenu.
;          Equal flag is TRUE if no more menus.
;          menu_cnt	= menu_cnt + 4.
;
;===========================================================================
next_menu	PROC

	ldy <menu_cnt
	lda [<barptr],y
	sta <menuhand
	iny
	iny
	lda [<barptr],y
	sta <menuhand+2
	iny
	iny
	sty <menu_cnt	Store index to next	menu.

	brl derefMenuHand	<menuptr = (<menuhand).

	ENDP


;===========================================================================
;
;	GetMEvent
;
;          	Get mouse event.
;
;  OUT:    event = event record.
;          yrat = event+where+y1 in local.
;          xrat = event+where+x1 in local.
;
;===========================================================================
getMEvent	PROC

	pha	Space for return value.
	pea 6	Accept mouse up and	down events.
	lda #event	Pass pointer to my event record.
	jsr pushDpage
	_GetNextEvent
	pla	Get event flag, but	I don't use it.

	lda <event+where+y1	Convert position of	mouse to local.
	sta <yrat
	lda <event+where+x1
	sta <xrat

	jsr pushyrat
	_GlobalToLocal

	rts

	ENDP

;===========================================================================
;
;	PopUpMenuSelect
;
;        	Handle user interaction with pop-up menu. The bits M_CACHE and M_POPUP
;	must be set in the menu flag. Upon entering these bits are set and
;	restored to there original state when you exit.
;
;   IN:  PUSH:LONG - menuin: handle to menu
;        PUSH:WORD - popupflag: tells us what type of popup you want $0001 = with white space
;        PUSH:WORD - yloc:   top of current selection
;        PUSH:WORD - xloc:   left side of "popped-up" menu
;        PUSH:WORD - itemnum:item ID of current selection
;
;  OUT:  WORD - item selected
;
;===========================================================================
PopUpMenuSelect	PROC

menuin	equ input
popupflag	equ menuin+4
yloc	equ popupflag+2
xloc	equ yloc+2
itemnum	equ xloc+2
return	equ itemnum+2

	import pushPortData
	import popPortData

	jsr startup

	jsr lockmenubar

	jsr saveColor
	jsr GetColor

	lda menuin,s
	sta <menuhand
	lda menuin+2,s
	sta <menuhand+2

	jsr lockmenuhand
	jsr derefmenuhand

	ldy #menuFlag
	lda [<menuptr],y
	pha	Save original menuFlag on the stack
	ora #M_POPUP	Set the bit that says this is a pop-up menu
	and #_M_CACHE	Clear cache bit, pop-up menus cannot be cached
	sta [<menuptr],y

	jsr InitStuff	initialize some zero page equates

	jsr getifirst	get first item in menu
checkNext	beq invalidItem	item not found, so return invalid item error
	inc <currentSel	offset of item in list
	cmp itemnum+2,s	have we found our initial selection?
	beq gotit
	jsr next_item
	bra checkNext

invalidItem	ldy #NumOfItems	make sure the menu is not empty before assigning init. sel
	lda [<menuptr],y	to first item in the menu list
	bne @888
	lda #1
	sta <menurect+x1
	dec a
	sta <menurect+x2
	brl popEmpty
@888	lda #1	If item ID is invalid then I default to the first
	sta <currentSel	item in the menu list.

gotit	ldx #msize	get menu width and height
	jsr dispatch

;=============================================================================
; calculate pop-up rectangle
;
	lda yloc+2,s
	dec a
	sta <menurect+y1	top of menu
	lda xloc+2,s
	sta <menurect+x1	left edge of menu

	ldy #menuwidth
	clc
	adc [<menuptr],y
	sta <menurect+x2	right edge of menu

	ldy #menuheight
	lda [<menuptr],y
	clc
	adc <menurect+y1	bottom of menu
	inc a	make room for drop shadow
	sta <menurect+y2

	lda popupflag+2,s
	and #FType2PopUp
	sta <saveY1

	lda <currentSel	a-reg contains input to adjust rect
	jsr adjustRect	adjust rectangle to reflect current selection

	lda <currentSel	If the current selection is the first item in list then
	cmp #1	top of pop-up can't be adjusted any further.
	beq noAdjustTop

	jsr adjustTop	current port rectangle

noAdjustTop	lda <currentSel	If the current selection is the last item in the menu then
	cmp <lastVisItem	the bottom cannot be adjusted any further.
	beq noAdjustBott
	inc a
	cmp <lastVisItem
	bne @99
	lda <saveY1
	beq noAdjustBott

@99	jsr adjustBottom

noAdjustBott
	lda <portRect+x1
	bne CheckLeftSideFirst

	ldx <portRect+x1
	lda <portRect+x2
	jsr justifyRight	Move menu left if off right
	jsr justifyLeft	Move menu right if off left
	bra around

CheckLeftSideFirst
	ldx <portRect+x1
	lda <portRect+x2
	jsr justifyLeft
	ldx <portRect+x1
	lda <portRect+x2
	jsr justifyRight

around
	lda <saveY1
	beq @222

	jsr doWhiteSpace	user wants the pop-up with the white space

@222	inc <specialFlag	flag that tells pull_down2 to just draw box and shadow
	jsr pushPortData	save grafport vars...
	jsr pull_down2	draw the pop-up box, drop shadow
	dec <specialFlag

	lda <menurect+y1
	inc a
	pha
	lda <menurect+y2
	dec a
	pha

	lda <saveY2
	bne @333

	lda <menurect+y1
	clc
	adc <saveY1
	sta <menurect+y1
	bra saveWhite

@333	lda <menurect+y2
	sec
	sbc <saveY1
	sta <menurect+y2

saveWhite	pla
	sta <saveY2
	pla
	sta <saveY1

	lda <menurect+x1
	clc
	adc <vert_pen
	sta <rect+x1
	lda <menurect+x2
	sec
	sbc <vert_pen
	sta <rect+x2

	jsr NeverMind
	bra SkipPopEmpty
popEmpty	jsr PushPortData
SkipPopEmpty
	jsr trackMenu2	;track the mouse in the menu until a mouse up
	jsr popPortData	;restore this grafport
	lda <curselect	;get user selection and return it on the stack
	beq noSelection
*** 7-Dec-91 DAL -- call get_ids instead of loading [<itemptr] -- for custom pop-up support!
;;;	lda [<itemptr]	;get the ID
	jsr get_ids
*** end 7-Dec-91

noSelection	sta return+2,s

	inc <curselect
	jsr pullup	;pull up the pop-up menu

	ldy #MenuFlag	;Restore the menu flag to its original state.
	pla
	sta [<menuptr],y
	jsr unlockmenuhand

	jsr restoreColor

	jsr unlockmenubar

	brl pop12bytes

	ENDP


;==================================================
;
; doWhiteSpace
;
;  IN: <menuptr = ptr to current menu record
;      <menurect = rectangle of current menu
;
; OUT: <menurect = modified to account for white space
;
;==================================================
doWhiteSpace	PROC

top	equ work	;redefine some direct page equates
bottom	equ top+2

	stz <saveY1

	lda <firstVisItem
;	sec
;	sbc #1	;find out if top was adjusted
	dec a
	sta <top	;if it has then we may need to add white space to bottom

	ldy #NumOfItems
	lda [<menuptr],y
	sec
	sbc <lastVisItem	;find out if bottom was adjusted
	sta <bottom	;if it has then we may need to add white space to the top

	lda <top
	bne @1

	lda <bottom
	beq done	;pop-up fits on the screen

	jsr addToTop
	bra done

@1	lda <bottom
	bne done

	jsr addToBottom

done	rts


;==========================================================
;
	ENTRY addToTop
addToTop
	lda #0
	sta <saveY2

subtractNext	dec <bottom
	lda <bottom
	beq topDone
	lda <menurect+y1
	sec
	sbc <font_h
	bmi topDone
	cmp <portRect+y1
	bcc topDone
	sta <menurect+y1
	lda <saveY1
	clc
	adc <font_h
	sta <saveY1
	bra subtractNext

topDone	rts

;==========================================================
;
	ENTRY addToBottom
addToBottom
	lda #1
	sta <saveY2

addNext	dec <top
	lda <top
	beq bottomDone
	lda <menurect+y2
	clc
	adc <font_h
	cmp <portRect+y2
	beq bottomDone
	bcs bottomDone
	sta <menurect+y2
	lda <saveY1
	clc
	adc <font_h
	sta <saveY1
	bra addNext

bottomDone	rts


	ENDP

;==================================================
;
; SaveColor/RestoreColor
;
;==================================================
saveColor	PROC

xnorcolor	equ work+6	; save previous menu colors
xhiliteclr	equ xnorcolor+2
xoutlineclr	equ xhiliteclr+2

	lda <norcolor
	sta <xnorcolor
	lda <hiliteclr
	sta <xhiliteclr
	lda <outlineclr
	sta <xoutlineclr
	bra done

	ENTRY restoreColor
restoreColor
	lda <xnorcolor
	sta <norcolor
	lda <xhiliteclr
	sta <hiliteclr
	lda <xoutlineclr
	sta <outlineclr

done	rts

	ENDP

; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = = = = = =
;
;          Init some direct page flags and get our port rect
;
; = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
InitStuff	PROC

;
; --- Before calculating if the menus need to be scrolled, we must first find
; --- the intersection between the VisRgn, ClipRgn and PortRect
;
	lda #portRect	;find out what the current port rect is set to
	jsr pushDPage	;so we can make sure the menurect stays
	_GetPortRect	;within these bounds

	pha	;Second source rectangle
	pha
	_GetVisHandle
	pla
	plx
	jsr IntersectRects

	pha
	pha
	_GetClipHandle
	pla
	plx
	jsr IntersectRects

	lda #portRect+y1	;convert the port rect to global coordinates
	jsr pushDPage
	_LocalToGlobal

	lda #portRect+y2
	jsr pushDPage
	_LocalToGlobal

	lda <portRect+y1	;If our port is the apps window and the window is above
	bpl @1	;the screen then make the upper otta bounds 0.
	stz <portRect+y1

@1	lda #ScreenWidth	;If our port is the apps window and the window drops below
	cmp <portRect+y2	;the screen then make the lower otta bounds the screen width.
	bcs @2
	sta <portRect+y2

@2	stz <inUpArrow	;init some flags that say this is a normal menu so far
	stz <inDwnArrow
	stz <upArrow
	stz <dwnArrow
	stz <specialFlag
	stz <currentSel
	stz <saveY1
	stz <saveY2

	stz <firstVisItem	;first visible item is initially 1
	inc <firstVisItem

	ldy #NumOfItems
	lda [<menuptr],y
	sta <lastVisItem	;so far last visible item is last item in the menu list

	ldy #MenuFlag	;set flag telling us this is a normal non-scroller
	lda [<menuptr],y
	and #_M_SCROLL
	sta [<menuptr],y

	rts

;==================================================
;
; 	IntersectRects
;
; A-reg and X-reg contains a handle to a region. This routine takes this
; handle and calculates the ptr to the region's bounding rectangle and stores
; it in <temptr. It then intersects this rect with the rect found in <portRect.
;
;  IN: a = low word of handle to region, x = high word (source rect 1)
;      <portRect contains the rectangle to intersect what's in a and x.
; OUT: <portRect contains the intersection of the two rects
;
;==================================================
	ENTRY IntersectRects
IntersectRects

	sta <temptr
	stx <temptr+2
	ldy #2
	lda [<temptr],y
	tax
	lda [<temptr]
	sta <temptr
	stx <temptr+2

	lda <temptr
	ldx <temptr+2
	clc
	adc #2	Skip pass the length word
	sta <temptr
	bcc NoCarryFromAdd
	inx
	sta <temptr+2

NoCarryFromAdd	pha	Result space for SectRect call.
	lda #portRect 	Source Rectangle 1
	jsr pushDPage
	pei <temptr+2	Source Rectangle 2
	pei <temptr
	lda #portRect	Destination rectangle.
	jsr pushDPage
	_SectRect
	pla

	rts

	ENDP

; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = = = = = =
;          	AdjustTop
;
;          	Check to see if the menu is too long. If so then
;          	shorten menu until it fits and set flag that says
;	menu is scrollable.
;
;   IN:    	<menurect = current menu rect.
;	<portRect = rectangle of current port rect in global coord.
;
;  OUT:    	<menurect top is chopped off until it can fit in
;          	the boundsRect
;
; = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
adjustTop	PROC

adjustIt	lda <currentSel
	cmp <firstVisItem	if firstVisItem = currentSel then we're done adjusting
	bne ok	since we don't want to adjust the top of the menu rect
;		past the top of the pop-up rect
	lda <saveY1
	beq @77

	inc <firstVisItem
	brl setupScroll

@77	lda <menurect+y1
	sec
	sbc <font_h
	sta <menurect+y1
	lda <firstVisItem
	dec a
	cmp #1
	bne @1
	dec <firstVisItem
	brl DoneAdjusting
@1	brl setupScroll

ok	lda <menurect+y1
	bmi pastTop
	cmp <portRect+y1
	bcs topAdjusted

pastTop	clc
	adc <font_h
	sta <menurect+y1
	inc <firstVisItem
	bra adjustIt

topAdjusted	lda <firstVisItem	if firstVisItem is still 1 then no adjusting was done
	cmp #1
	beq DoneAdjusting

	inc <firstVisItem	account for up arrow
setUpScroll	inc <upArrow	set flag that says we have an up arrow

	ldy #menuflag	set flag in menu record that says this menu scrolls
	lda [<menuptr],y
	ora #M_SCROLL
	sta [<menuptr],y

DoneAdjusting	rts

	ENDP


; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = = = = = =
;          	AdjustBottom
;
;          	Check to see if the menu is too long. If so then
;          	shorten menu until it fits and set flag that says
;	menu is scrollable.
;
;   IN:    	<menurect = current menu rect.
;	<portRect = rectangle of current port rect in global coord.
;
;  OUT:    	<menurect bottom is chopped off until it can fit in
;          	the boundsRect
;
; = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
adjustBottom	PROC

	lda <menurect+y2
	cmp <portRect+y2	check if menu falls below bounds rect
;		if it does call -  S C R O L L Man
	bcc NoFancyScrolling

	lda <saveY1	Is this a type 2 popup? (a.k.a. white-space popup)
	bne DecTotalHeight

	lda <lastVisItem
	cmp #4
	bcc NoFancyScrolling

DecTotalHeight	lda <lastVisItem
	cmp <currentSel
	beq alldone2
	cmp #3
	bne @11
	lda <saveY1
	beq alldone

@11	lda <menurect+y2
	cmp <portRect+y2
	bcc alldone
	sec
	sbc <font_h
	sta <menurect+y2	;subtract height of one item at a time
	dec <lastVisItem 	;update last visible item
	bra DecTotalHeight

alldone	dec <lastVisItem	;the down arrow at bottom of menu subtracts one
;		;extra item from our view
	bra setScrollFlag

alldone2	lda <saveY1
	bne alldone
	lda <menurect+y2
	clc
	adc <font_h
	sta <menurect+y2

setScrollFlag	ldy #MenuFlag	;set flag telling us this is going to be a
	lda [<menuptr],y	;scroller
	ora #M_SCROLL
	sta [<menuptr],y

	inc <dwnarrow	;it's scrollable so we need a down arrow

NoFancyScrolling	rts

	ENDP	adjustBottom

;===========================================================================
;
;	AdjustRect
;
;        	Adjust menu rectangle to reflect current selection.
;
;  IN:	<menurect = rectangle to adjust
;	a-reg = current item selected in the pop-up menu
;
; OUT:	<menurect = adjusted
;
;===========================================================================
adjustRect	PROC

	tay	contains the currently selected pop-up item
adjust	dey
	beq adjusted

	lda <menurect+y1	move whole rect up one item at a time
	sec
	sbc <font_h
	sta <menurect+y1

	lda <menurect+y2
	sec
	sbc <font_h
	sta <menurect+y2
	bra adjust

adjusted	rts

	ENDP


;===========================================================================
;
;	MenuSelect
;
;        	Handle user interaction with menu bar.
;
;   IN:  PUSH:LONG - pointer to event record which contains
;	   point where button went down, should	be in MenuBar.
;        PUSH:LONG - MENUBAR handle, or	zero for system bar.
;
;  OUT: Task record	TaskData = Item ID in low word, menu ID in high word.
;	           item ID = 0 if no selection was made.
;
;===========================================================================
MenuSelect	PROC

menuin	equ input
eventptrIn	equ menuin+4

eventptr	equ work

	jsr startup	Do startup initialization for tool call.

	jsr setCurrentBar	<barHand = passed menu bar.
	jsr lockMenuBar	<barPtr = (<barHand), bar & menus locked.
*** lengthened branch 8-Feb-92 DAL
;;;	beq exitMenu2	Is there a current menu bar?
	bne @ok
	brl exitMenu2
@ok
*** end 8-Feb-92

	jsr getevptr	Get event pointer.

	ldy #where	Get point of event.
	lda [<eventptr],y
	sta <yrat
	iny
	iny
	lda [<eventptr],y
	sta <xrat

	jsr to_myport

*** added 8-Feb-92 DAL -- If Top of menu bar >= 150, don't do anything, it's dangerous!
	pea 0	;dummy X value
	ldy #8	;offset to menu bar rect, top
	lda [<barptr],y
	pha	;local-coord top of menu bar
	tsc
	inc a
	pea 0	;high word of point ptr
	pha	;low word of point ptr
	_LocalToGlobal
	pla	;global Y value
	plx	;ignore X value
	cmp #150
	bcs exit
*** end 8-Feb-92

*** TS3 jumps back into ROM at this point, $FD/6BDD (8-Feb-92 DAL)
TS3EntersHere	jsr pushyrat
	_GlobalToLocal

	jsr onbar	Cursor on menu bar?
	beq exit

	ldx #0	Pull down menu flag.
;;;	ldy #what	Was the button down?
;;;	lda [<eventptr],y
	lda [<eventptr]	;optimized 8-Feb-92 DAL
;;;	cmp #1
	dec a	;optimized 8-Feb-92 DAL
	beq watch_menu

	ldy #CtlValue
	lda [<barptr],y
	beq exit
	ldy #CtlRect+y1
	clc
	adc [<barptr],y
	cmp <yrat
	bcs ok

exit	stz <yrat	No selection flag.
	stz <xrat
	bra exitmenu

ok	ldx #2	Fall down menu flag.
watch_menu	jsr trackmenu	Watch the menu.

	ENTRY exitmenu
exitmenu
	jsr getevptr
	ldy #TaskData
	lda <yrat	Item ID.
	sta [<eventptr],y	Return item ID number.
	iny
	iny
	lda <xrat	Menu ID number.
	sta [<eventptr],y	Return Menu ID number.

	jsr to_uport
	jsr unlockMenuBar	Leave menu bar and menus unlocked.

	ENTRY exitMenu2
exitMenu2
	brl pop8bytes	error


; = = = = = = = = =	= = = = = = = = = = = = = = = = =
;        Get event pointer.
; = = = = = = = = =	= = = = = = = = = = = = = = = = =
	ENTRY getevptr
getevptr
	lda eventptrIn+2,s	Get pointer to event record.
	sta <eventptr
	lda eventptrIn+4,s
	sta <eventptr+2

	rts

	ENDP

;===========================================================================
;
;	MenuKey
;
;        	Find item associated with key.
;
;   IN:  PUSH:LONG - pointer to event record which contains
;	   character entered.
;        PUSH:LONG - MENUBAR handle, or	zero for system bar.
;
;  OUT:  Task recrd	TaskData = Item ID in low word, menu ID	in high word.
;	           item ID = 0 if no selection was made.
;
;===========================================================================
MenuKey	PROC

menuin	equ input
eventptrIn	equ menuin+4

eventptr	equ work
key	equ eventptr+4

	jsr startup	Do startup initialization for tool call.
	jsr setCurrentBar	<barHand = passed menu bar.
	jsr lockMenuBar	<barPtr = (<barHand), bar & menus locked.
	beq exitMenu2	Is there a current menu bar?

	jsr getevptr	Get pointer to event record.

	stz <yrat	Clear item found flag.
	stz <xrat	Clear dimmed item selected flag.

	ldy #modif	Get modifier flags.
	lda [<eventptr],y	Check if option key	was down.
	and #$0100
	beq exitmenu

	ldy #message	Get key.
	lda [<eventptr],y	Convert character to what's in record.
	sta <key	Save key.

	lda #ItemChar	Check primary character first.
	sta <work
	jsr ck_chars
	bcs gotit

	inc <work	Check alternate character next.
	jsr ck_chars
	bcc exitmenuSRQ	;was exitmenu 3-Mar-91 DAL

gotit	ldy #ItemFlag	Is item enabled and	visible?
	lda [<itemptr],y
	and #I_ENABLED+I_INVIS
	bne exitmenu	Can only select visible, enabled items.

	jsr get_ids	Get packed MenuId and ItemID.

	pea $8001	Highlight flag, xor	if possible.
	pei <xrat	Pass menu ID number	to highlight.
	_HiliteMenu	Draw menu's title highlighted.

	bra exitmenu

*** ExitMenuSRQ: added 3-Mar-91 DAL so we can call SendRequest after everything else
ExitMenuSRQ	jsr getevptr
	ldy #TaskData
	lda <yrat	Item ID.
	sta [<eventptr],y	Return item ID number.
	iny
	iny
	lda <xrat	Menu ID number.
	sta [<eventptr],y	Return Menu ID number.

	jsr to_uport
	jsr unlockMenuBar	Leave menu bar and menus unlocked.
*** if no item chosen, give SendRequest($0F01) a shot at it
	lda <yrat
	bne @notNIL

*** 25-Jul-91 DAL -- more restrictions on SendRequest($0F01):
***   Desk Manager must be active, CDA-events must be postable (for Installer),
***   and we must be dealing with the system menu bar
	pha
	_DeskStatus
	pla
	beq @notSafe

	pha
	pha
	pea 0
	pea 6	;Event Manager
	_GetWAP
	plx
	pla
	lda >$000022,x
	and #$0400	;check OS Event Mask
	beq @notSafe	;no CDA events allowed?

	lda <sysmenu
	cmp <barhand
	bne @notSafe
	lda <sysmenu+2
	cmp <barhand+2
	bne @notSafe
*** end 25-Jul-91 DAL

	pei <eventptr+2	;14-Mar-91 DAL
	pei <eventptr	;14-Mar-91 DAL
	pea $0F01	;RequestCode for unclaimed MenuKey
	pea $8000	;How=$8000: send to everyone, stop after one (26-Aug-91 DAL)
	lda #0
	pha
	pha	;target=0 (reserved)
	pei <eventptr+2
	pei <eventptr	;data in = event pointer
	pha
	pha	;data out = nil
	_SendRequest
	plx
	stx <eventptr
	plx
	stx <eventptr+2
* If the SendRequest succeeded, make it a null event
	bcs @notTaken
	sta [<eventptr]
@notTaken
@notNIL
@notSafe
*** end of 3-Mar-91 DAL

	brl pop8bytes	;error


; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = = =
;          Check key against keyboard equivalent.
;
;  IN:     work = index into item record (ItemChar or ItemAltChar).
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = = =
ck_chars

;
; --- Check every menu in menu bar ------------------------
;
	jsr getmfirst	Get pointer to first menu in menu list.
	beq errorout	Are there any menus	to check?

;
; ------- Check all	items in this menu -----------------------------
;
lop1	ldy #MenuFlag	Is the menu enabled	and visible?
	lda [<menuptr],y
	and #M_ENABLED+M_INVIS+M_STANDARD
	bne nextmenu	Only select from visible, enabled menus.

	jsr getifirst	itemptr = pointer to first item in menu.
	beq nextmenu	Is there a first item?

lop2	ldy <work	Index to ItemChar or ItemAltChar.
	lda [<itemptr],y
	and #$00FF	Same key, and enabled flags.
	cmp <key
	beq gotit2

	jsr next_item
	bne lop2

nextmenu	jsr next_menu	Get pointer to next	menu.
	bne lop1	Any more menus?

errorout	clc	Set not found flag.
gotit2	rts

	ENDP


;===========================================================================
;
;	OnBar
;
;        	Check if xrat and yrat are in the menu bar.
;
;   IN:    barptr =	pointer to menu bar.
;
;  OUT:    Equal flag is FALSE if point	is not inside RECT.
;          Equal flag is TRUE if point is inside RECT.
;
;===========================================================================
onbar	PROC

ypt	equ 1
xpt	equ ypt+2
box	equ xpt+2

	ldx <barptr+2
	lda <barptr
	clc
	adc #CtlRect
	bcc inside
	inx


; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = = = =
;        Check if a	point is inside a RECT
;
;   IN:  a = low address of RECT.
;        x = high address of RECT.
;        xrat and yrat = point to check.
;
;  OUT:  Equal flag	is TRUE if point is	not inside RECT.
;        Equal flag	is FALSE if point is inside RECT.
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = = = =
	ENTRY inside
inside
	tay

	pha	Space for result.

	pea 0	Pass address of point to check.
	tdc
	clc
	adc #yrat
	pha

	phx	Pass address of RECT to check.
	phy
	_PtInRect
	pla

	rts

	ENDP


;===========================================================================
;
;	MenuRefresh
;
;          	Return redraw area.
;
;   IN:    PUSH:LONG - address of routine that will redraw screen.
;
;  OUT:    None.
;
;===========================================================================
MenuRefresh	PROC

routine	equ 9

	jsr startup	Do startup initialization for tool call.

	lda routine,s
	sta <creamed
	lda routine+2,s
	sta <creamed+2

	brl pop4bytes	no error

	ENDP


;===========================================================================
;
;	SetOutLine
;
;          	Set pen to outline color.
;
;   IN:    a = pattern/color.
;
;  OUT:    Set to a	solid.
;
;===========================================================================
setoutline	PROC

	jsr pushcolor
	_SetPenPat

	rts

	ENDP


;===========================================================================
;
;	Pull_Down
;
;          	Pull down a blank menu.
;
;   IN:    <menuptr	= pointer to menu.
;          <barptr = pointer to menubar.
;          <titlenum = menu's ID number.
;          <Titlex1	= title's left side.
;          <Titlex2	= title's right side.
;          <menurect+x1 = menu's left side.
;
;  OUT:    menurect	= interior coordinates of menu (excluding frame).
;
;===========================================================================
pull_down	PROC

; ------ Highlight title --------------------------------------
;
	pea $8001	;Highlight flag.
	pei <titlenum	;Pass menu's ID.
	_HiliteMenu	;Draw the menu's title highlighted.
	jsr lockMenuBar	;<barPtr = (<barHand), bar & menus locked.
	jsr derefMenuHand	;<menuptr = (<menuhand).

	ldy #NumOfItems	;check if we have an empty menu or not before
	lda [<menuptr],y	;pulling it down
	bne notEmpty

	ldy #menuFlag
	lda [<menuptr],y
	and #M_STANDARD	;if menu is empty make sure that it's not a custom menu
	bne notEmpty	;if custom then it's not really empty because custom menus
	lda #1	;don't use the NumOfItems field anyways
	sta <menurect+x1
	dec a
	sta <menurect+x2
	rts
;
; ------ Compute RECT for menu -----------------------
;
notEmpty	ldy #CtlRect+y2
	lda [<barptr],y
	dec a	;Overlap top of menu with bottom of bar.
	sta <menurect+y1
	ldy #MenuHeight
	clc
	adc [<menuptr],y	;Plus the height for the bottom side.
	inc a	;Plus room for drop shadow.
	sta <menurect+y2

	ldy #MenuWidth
	lda <menurect+x1
	clc
	adc [<menuptr],y	;Plus the width for the right side.
	adc #2	;Plus romm for drop shadow.
	ldx <screenmode	;What resolution are we in?
	beq store1
	adc #2	;Extra drop shadow in 640 mode.
store1	sta <menurect+x2

;
; --- Convert menu RECT to global coordinates ----------------
;
	lda #menurect+y1
	jsr pushDpage
	_LocalToGlobal

	lda #menurect+y2
	jsr pushDpage
	_LocalToGlobal

	jsr initStuff	;Initialize some flags in our direct page
	jsr adjustBottom	;Check if menu extends below the screen

;
; --- Get menu on screen, move left if off right -------------
;
	lda <portRect+x1
	bne DoLeftLast

	ldx <portRect+x1
	lda <portRect+x2
	jsr justifyRight
	jsr justifyLeft
	bra doneJustification

DoLeftLast	ldx <portRect+x1
	lda <portRect+x2
	jsr justifyLeft
	ldx <portRect+x1
	lda <portRect+x2
	jsr justifyRight

doneJustification
;
; --- Get handle of	menu cache -------------------------------
;
pull_down2	PROC

	stz <sav_buff+2	Set 'no cache' flag	just in case.
	stz <sav_buff

	ldy #MenuFlag	Check if there can be a cache.
	lda [<menuptr],y
	and #M_CACHE
	bne cacheOK

	jsr allocateCache
	bcs noCache
	phx	Save allocated cache.
	pha
	sta <sav_buff	Dereference cache.
	stx <sav_buff+2
	ldy #2
	lda [<sav_buff],y
	tay
	lda [<sav_buff]
	sta <sav_buff
	sty <sav_buff+2

	lda #0	Mark cache as BAD (not containing menu).
	sta [<sav_buff]

	pla	Put cache handle into sav_buff.
	sta <sav_buff
	pla
	ora #$8000	Set temp cache flag.
	sta <sav_buff+2
	bra saveScreen

cacheOK	ldy #MenuCache+1
	lda [<menuptr],y
	sta <sav_buff+1
	beq tryCache	Is there a cache?
	dey
	lda [<menuptr],y
	sta <sav_buff

	ldy #1	Has the cache been purged?
	lda [<sav_buff],y
	bne saveScreen

	jsr freeCache	Free purged cache.

tryCache	jsr makeCache	Allocate a new cache for the menu.

	ldy #MenuCache
	lda [<menuptr],y
	sta <sav_buff
	iny
	lda [<menuptr],y
	sta <sav_buff+1
;
; --- Save screen to buffer ---------------------------------

saveScreen	lda <sav_buff+1
	beq noCache	Is there a cache?

	pea 0	Pass no purge flag.
	pei <sav_buff+2	Pass cache handle.
	pei <sav_buff
	_SetPurge	Make cache nonpurgeable for now.

	jsr cache
;
;     a = TRUE to not draw, FALSE to draw menu.
;
noCache	pha	Save draw flag.

	lda #menurect+y1	Convert upper lefty	corner to global.
	jsr pushDpage
	_GlobalToLocal

	lda #menurect+y2	Convert lower right	corner to global.
	jsr pushDpage
	_GlobalToLocal	menurect = now in global coordinates.

	ldy <menurect+x2	Subtract drop shadow from 'menurect'.
	dey
	dey
	lda <screenmode
	beq store3
	dey
	dey

store3	sty <menurect+x2
	dec <menurect+y2	subtract the bottom drop shadow

	pla
	beq drawMenu

	jsr pushmrect	Pass pointer to menurect.
	pei <vert_pen	Width of vertical line.
	pea 1	Height of horizontal lines.
	_InsetRect	Indent menurect.

	rts

;
; --- Menu has to be drawn ---------------------------------------
;
drawMenu	pei <vert_pen	Line width.
	pea 1	Line height.
	_SetPenSize

	lda #menurect	Pass pointer to menu RECT.
	jsr pushDpage
	lda <outlineclr	Compute frame color.
	jsr pushSmear	Push smeared color.
	lda <norcolor	Use menu bar's color.
	jsr pushSmear	Push smeared color.
	_SpecialRect
	bcc skip1	Error?
	cmp #3	Tool or function not found?
	bcs skip1

	pla	Remove inputs to SpecialRect.
	pla
	pla
	pla

;
; --- Draw menu old	way --------------------------------------
;
	inc <menurect+y1

	lda #menurect	Pass pointer to menu RECT.
	jsr pushDpage
	lda #0	Use BarColor.
	jsr pushcolor2	Push pointer to color pattern.
	_FillRect	Draw a blank solid color menu.

	dec <menurect+y1

	lda <outlineclr	Set outline pattern.
	jsr setoutline

	lda #menurect	Frame menu.
	jsr pushDpage
	_FrameRect

; ------- Drop shadow for menu -------------------

skip1	lda <outlineclr
	jsr setoutline

	ldy <menurect+x2
	phy	Pass last point.
	lda <menurect+y1
	clc
	adc #4
	pha

	phy	Set second point.
	ldx <menurect+y2
	phx

	lda <menurect+x1	Set starting point.
	clc
	adc #5
	pha
	phx
	_MoveTo
	_LineTo	Bottom dropshadow.

	lda <vert_pen	Vertical width.
	asl a
	pha	Line width.
	pea 1	Line height.
	_SetPenSize
	_LineTo

	lda #1
	pha
	pha
	_SetPenSize	Reset pen size to normal.

	lda <specialFlag
	beq NeverMind
	rts

	ENTRY NeverMind
NeverMind	jsr pushmrect	Pass pointer to menurect.
	pei <vert_pen	Width of vertical line.
	pea 1	Height of horizontal lines.
	_InsetRect	Indent menurect.

	ldx #mDrawMenu	Send draw menu message.
	brl dispatch

;
; = = = = = = = = =	= = = = = = = = = = = = = = = = = = = = = = = =
;          Push smeared color.
;
;   IN:    a = color in bits 4-7.
;
;  OUT:    Color smeared into all 4 nibbles and pushed on stack.
; = = = = = = = = =	= = = = = = = = = = = = = = = = = = = = = = = =
	ENTRY pushSmearLow
pushSmearLow	asl a
	asl a
	asl a
	asl a
;
pushSmear	plx	Get return address.

	and #$00F0
	pha
	lsr a
	lsr a
	lsr a
	lsr a
	ora 1,s
	sta 1,s
	xba
	ora 1,s
	sta 1,s

	phx	Put return address back.

	rts


; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = = = = = =
;          If menu is off left side of screen, move it right.
;
;   IN:    a = max right side.
;          x = minimum left side.
;          <menurect = current menu rect.
;
;  OUT:    <menurect moved to left if off max right.
;100= = = = = = = =	= = = = = = = = = =	= = = = = = = = = = = = = =
JustifyLeft	PROC

	clc	(One extra.)
	sbc <menurect+x2	Less the menu's right side.
	bcs exit100	Is the menu off the	right?

	tax	Save amount to move	menu.
	clc
	adc <menurect+x1	Move left side to left.
	sta <menurect+x1
	txa
	clc
	adc <menurect+x2	Move right side to left.
	sta <menurect+x2

exit100	rts

	ENDP

; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = = = = = =
;          If menu is off right side of screen, move it left.
;
;   IN:    a = max right side.
;          x = minimum left side.
;          <menurect = current menu rect.
;
;  OUT:    <menurect moved to left if off max right.
;100= = = = = = = =	= = = = = = = = = =	= = = = = = = = = = = = = =
JustifyRight	PROC

minX1	equ 1
maxX2	equ minX1+2

	pha
	phx

	lda <menurect+x1	Off left side?
	cmp minX1,s
	bpl exit101

	lda <menurect+x2
	sec
	sbc <menurect+x1
	clc
	adc minX1,s
	sta <menurect+x2

	lda minX1,s
	sta <menurect+x1

exit101	plx	Remove temp stack space.
	pla

	rts

	ENDP

;===========================================================================
;
;	PullUp
;
;          	Erase Menu
;
;   IN:    menurect	= RECT containing menu.
;
;===========================================================================
pullup	PROC

	ldy #NumOfItems	check to see if we have an empty menu
	lda [<menuptr],y
	bne notEmpty	if we don't proceed as normal, else nothing to pull up
	ldy #menuFlag
	lda [<menuptr],y
	and #M_STANDARD	make sure not custom menu since it doesn't use NumOfItems
	bne notEmpty
	brl unHiliteTitle

; --- Try to restore screen ---------------------------
;
notEmpty
;	jsr resetThings	just in case this menu was scrollable we need to restore
;		a few things
	lda <sav_buff+1	Was the screen area	saved to a buffer?
	beq try_wmgr

	jsr uncache

	lda <sav_buff+2	Check if it was a temp cache.
	bpl setPurge

	and #$00FF	Free temp cache.
	pha
	pei <sav_buff
	_DisposeHandle
	bra cktitle

setPurge	pea 3	Pass 'first to purge' flag.
	pei <sav_buff+2	Pass cache handle.
	pei <sav_buff
	_SetPurge	Make cache purgeable.

	jsr resetThings	If this menu is scrollable and it was scrolled then
;		the cache will be disposed of.
	bra cktitle

; --- Ask Window Manager to restore screen ------------
;
try_wmgr	jsr pushmrect	Expand menu RECT to	include frame
	pea $FFFA	and drop shadow.
	pea $FFFA	This makes the RECT	larger than needed
	_InsetRect	but takes less code.

	jsr pushmrect	Pass pointer of RECT to restore.
	_RefreshDesktop	Ask Window Manager to refresh the screen.
;;;The below is an interesting idea, but you can't actually call DrawMenuBar from here (it freaks out), and
;;;the comparison does not seem to be right either.
;*** experimental, added 10-Dec-91 DAL -- draw the menu bar if needed (in case a pop-up overlapped the system menu bar)
;	php
;	pei <temp+2
;	pei <temp
;
;	ldy #2
;	lda [<sysmenu],y
;	sta <temp+2
;	lda [<sysmenu]
;	sta <temp
;
;	ldy #12	;offset to menu bar bottom
;	lda [<temp],y
;	cmp <menurect	;bigger than top of dirty area?
;	beq @fine
;	bcc @fine
;	_DrawMenuBar
;@fine	pla
;	sta <temp
;	pla
;	sta <temp+2
;	plp
;*** end 10-Dec-91
	bcc cktitle	Error if Window Manager not running.

; --- Ask application to restore screen	---------------
;
	lda <creamed	Is there a routine to go to?
	ora <creamed+2
	beq nobody

	lda <creamed	Call application's routine.
	ldx <creamed+1
	jsl long_call

; --- Nobody will restore the screen ------------------------------------
;
nobody	pla	Fix stack.
	pla

; --- Unhighlight title if menu was down, but no selection	was made -----
;
cktitle	lda <inactItem	Was the selected item inactive?
	bne ok1	If yes, leave the menu title unhilited.

unHiliteTitle	lda <curselect
	bne exit3

ok1	pea $8000	Normal
	pei <titlenum	Menu number.
	_HiliteMenu
	jsr lockMenuBar	<barPtr = (<barHand), bar & menus locked.
	jsr derefMenuHand	<menuptr = (<menuhand).

	stz <titlenum	No selection made.

exit3	rts

	ENDP

;===========================================================================
;
;	ResetThings
;
;  IN:	<menuptr: ptr to menu record
; OUT:	nothing
;
; If menu was scrollable, we need to reset a few things:
;      The variable <firstVisItem is used to hold the first item visible, if it is zero
;      then nothing has been scrolled and the menu can remain cached if it is not zero
;      then we need to free the cache and redraw the menu the next time.
;
;===========================================================================
ResetThings	PROC

	ldy #menuflag	;first check to see if menu was scrollable
	lda [<menuptr],y
	and #M_SCROLL
	beq ottahere	;it's not so we don't need to do anything

	lda <firstVisItem
	cmp #1
	beq ottahere

	jsr freecache	free cache so that the next time menu is pulled down
;		we can redraw it
ottahere	rts

	ENDP

;
;            APPEND	MDEFPROC.ASM
;
; 03/30/87 Dan - Added SetTextFace to size_menu so width of	menu would take
;                into account special effects applied to item text.  Also,
;                reset text face to plain when done.
;
;===========================================================================
;          Dispatch	menu command.
;
;   IN:    x = message.
;          a = parameter to pass to defProc.
;          menurect	= RECT to pass.
;          yrat = y	point to pass.
;          xrat = x	point to pass.
;          menuhand	= handle of menu.
;          menuptr = pointer to menu.
;
;  OUT:    a = returned value from defProc.
;
;===========================================================================
dispatch	PROC

	sta <param	Save parameter.

	ldy #MenuProc+1	Custom menu?
	lda [<menuptr],y
	bne custom

; --- Call the standard menu defProc ---------------------------------------
;
	txa
	asl a
	tax
	jmp (standards,x)	I have none.

standards	DC.W draw_menu	mDrawMenu  = 0
	DC.W choose_item	mChoose    = 1
	DC.W size_menu	mSize      = 2
	DC.W draw_title	mDrawTitle = 3
	DC.W draw_item	mDrawItem  = 4
	DC.W get_itemID	mGetItemID = 5

;
; --- Call a custom	menu defProc ---------------------------------------
;
custom	cpx #1	Choose command?
	bne ok1

	lda <globalFlag	Is help on?
	and #G_HELP
	bne ok1	If help on, OK to check disabled menu.

	ldy #MenuFlag	Is the menu enabled?
	lda [<menuptr],y
	and #M_ENABLED
	beq ok1	If disabled, no item can be selected.

	lda #0	Return no hit flag.

	rts


ok1	phx	Remember command message.

	pei <menuhand+2	Save.
	pei <menuhand

	pha	Space for result (none used).

	phx	Pass message command.

	pei <menuhand+2	Send handle of menu.
	pei <menuhand

	jsr pushmrect	Pass address of menu's RECT.

	pei <xrat	Pass x coordinate.
	pei <yrat	Pass y coordinate.

	pei <param	Parameter to pass.

	ldy #MenuProc+1
	lda [<menuptr],y
	tax
	dey
	lda [<menuptr],y
	jsl long_call	Call application's defProc.
	pla	Get result.
	plx	Restore menu handle.
	stx <menuhand
	plx
	stx <menuhand+2
	pha	Put result back.
	jsr lockMenuBar	<barPtr = (<barHand), bar & menus locked.
	jsr derefMenuHand	<menuptr = (<menuhand).

	pla	Get return value.

	plx	Get saved command message.
	cpx #mDrawTitle
	bne exit	Was it a draw menu title command?

	tay	Did the defProc draw the title?
	bne exit	If yes, all done.

	brl draw_title	Custom defProc wants default title.

exit	rts

	ENDP


;===========================================================================
;
;      	Long call.
;
;   IN:    x = middle WORD (bits 8-23) of address of destination routine.
;          a = low WORD of address of destination routine.
;
;  OUT:    Calling this routine is the same as:
;
;                jsl   (ax)
;
;          where the low byte in 'a' is	the low byte of the	destination
;          address,	and x = the next 2 bytes of the destination address.
;
;===========================================================================
long_call	PROC

	dec a	Make low word look like a return address.
;	              	!!! High byte of address is not decremented
;	                  	because the program counter doesn't wrap
;	                  	to the next bank!!!!

	phx	Push the high byte.
	tsx	Leave only the high	byte of the address.
	inx
	txs

	pha	Push the low word of the address.

	rtl	Go to the address.
;
;  When the routine	called returns, it
;  will return to the routine that called 'longCall', not here.
;
	ENDP


;===========================================================================
;
;	Draw_Menu
;
;          	Draw the inside of a standard text menu.
;
;   IN:    menuhand	= handle of menu.
;          menuptr = pointer of menu.
;
;===========================================================================
draw_menu	PROC

counter	equ work+4

	pea 4	We need to set this just in case we're not in the
	_SetTextMode	Menu Manager's port.

	lda <lastVisItem	Load number of last visible item in menu
	sec
	sbc <firstVisItem	just in case firstVisItem not equal to 1, which may
	inc a	be the case if this was a pop-up menu
	sta <counter
	beq nothingToDraw

	lda <firstVisItem	Load item number of first visible item in menu
	jsr calcitem	Get pointer to first visible item.
	bne enter2	Are there any items?

	rts	If not, I'm done.


draw_lop	jsr getitemh	Get the height of the item.
	clc
	adc <rect+y1
	sta <rect+y2	Set the item's coordinates.

enter2	lda #0	Draw the item as normal.
	jsr text_guts	Draw the item's text part.

	lda <rect+y2	Bottom of item becomes top of next.
	sta <rect+y1

	jsr next_item	Get the pointer to next item.
	dec <counter
	bne draw_lop	Any more items?

nothingToDraw	lda <upArrow	Do we have to draw an up arrow?
	beq checkNext
	jsr DrawUpArrow

checkNext	lda <dwnArrow	Do we have to draw a down arrow?
	beq noscroll
	jsr DrawDwnArrow

noscroll	clc
	rts

	ENDP


;===========================================================================
;
;	Choose_Item
;
;         	Hit test menu items.
;
;   IN:    menuhand	= handle of menu.
;          menuptr = pointer of menu.
;          yrat = y	coordinate to check.
;          xrat = x	coordinate to check.
;          point is	on the menu.
;          menu is enabled.
;
;  OUT:    a = item	number selected (start with 1), zero if	none hit.
;                bit 15 set for selected.
;                bit 14 set if disabled.
;
;===========================================================================
choose_item	PROC

	lda <firstVisItem
	dec a
	sta <count

lop5	inc <count	Next item.
	lda <count
	jsr calcitem	Get item's RECT and pointer.
	beq not_found	Off end of menu?

	ldx #0	Check if cursor is inside item.
	tdc
	clc
	adc #rect	Pass pointer to 'rect'.
	jsr inside
	beq lop5

;
; --- Cursor over item --------------------------------------------
;
no_scroller	jsr getistrg	Never allow cursor over dividing line.
	lda [<strg_ptr]
	cmp #$2D01
	beq not_found

	lda <count
	ora #$8000	Mark item as selected.
	tax

	ldy #ItemFlag-1	Is item disabled?
	lda [<itemptr],y
	bmi disabled	If yes, mark as selected and disabled.

	ldy #MenuFlag	Is the menu enabled?
	lda [<menuptr],y
	and #M_ENABLED
	beq exit	If not, item is also not disabled.

disabled	txa	Set disabled bit.
	ora #$4000
	rts

not_found	ldx #0	Not over any item.
exit	txa	Return result in A.

	rts

	ENDP


;===========================================================================
;
;	Size_Menu
;
;          	Compute the default size of the menu.
;
;   IN:    menuptr = pointer to menu.
;          menuhand	= handle of menu.
;          menuWidth = zero to set default width.
;          menuHeight = zero to set default height.
;
;  OUT:    menuWidth = default width if	it was zero.
;          menuHeight = default height if it was zero.
;
;===========================================================================
size_menu	PROC

	stz <rect+y2	Height accumulator.
	stz <rect+x2	Width accumulator.

; --- Set every item's height, max width, and menu's height	-----
;
	jsr getifirst	Get pointer to first item.
	beq exit	Are there any items?

; ------- Find item's width --------------------
;
lop1	jsr FixTextFace


	pha	Space for result.
	jsr getistrg	Get pointer to item's string.
	phx	Pass high word.
	pha	Pass low word.
	_StringWidth	Get string's width.

	jsr GetIconInfo	a-reg contains width of icon
	tax
	beq @NoIcon	If a-reg is zero then there is no icon
	clc
	adc 1,s	Add width of item name and icon width.
	adc #5	Add in some additional slop for spacing between icon.
	sta 1,s	Put result back on the stack.
@NoIcon
	lda <text_width	Add room for the check mark.
	clc
	adc <text_width
	adc <text_width
	tax
	ldy #ItemChar
	lda [<itemptr],y
	and #$00FF
	beq ok34
	lda <text_width
	clc	Now add space for the keyboard equivalent, the apple key
	ror a	and a chacracter, plus one extra for slop
	clc
	adc <text_width
	adc <text_width	1 1/2 for check mark, 2 for cmd-key-equiv,2 for space
	adc <text_width
	adc <text_width
	adc <text_width
	tax
ok34	txa
	clc
	adc 1,s
	plx	Pull in x just to fix stack, a = value.

; ------- Keep the width of the widest item ----------------
;
	cmp <rect+x2	Is this the longest	item?
	bcc do_height
	sta <rect+x2	Save the longest width.

; ------- Accumulate item height ----------------------------
;
do_height	jsr getitemh	Get the item's height.
	clc	Keep a running height total.
	adc <rect+y2
	sta <rect+y2

; ------- Next item	--------------------------------------------
;
	jsr next_item
	bne lop1	Any more items?

; --- Set the default values -----------------------------------
;
	ldy #MenuWidth
	lda [<menuptr],y	Was menu's width given?
	bne skip1

	lda <rect+x2	Set menu's width.
	sta [<menuptr],y	Store the menu's width.

skip1	iny
	iny
	lda [<menuptr],y	Was the menu's height given.
	bne exit

	lda <rect+y2	Set menu's height.
	inc a
	inc a

store	sta [<menuptr],y	Store the menu's height.

exit	jsr ClearTextFace 	Plain text.

	rts

	ENDP


;===========================================================================
;
;	Draw_Title
;
;          	Draw menu title.
;
;   IN:    <barPtr = pointer to locked menu bar.
;          <menurect = title's enclosing rectangle.
;          <menuhand = handle of menu.
;          <menuptr	= pointer to menu.
;          <param =	 0 = normal, 1 = highlighted, bit 15 =1	for invert.
;
;===========================================================================
draw_title	PROC

sav_patt	equ 1

	pha	Space for save pattern.

	jsr getcolor	Get menu bar's colors.

	jsr ClearTextFace

	jsr pushmrect	Common need.
;
;
; --- Special case XOR hiliting ---------------------------------
;
	lda <param	Did caller ask for invert?
	bpl do_fill

	_InvertRect	Special case XOR.
	pla	All done, get rid of temp space.

	rts

;
; --- Color replace	drawing --------------------------------------
;
do_fill	ldy <norcolor	Normal color.

	lda <param	Hilite or Unhilite?
	beq ok78

	ldy <hiliteclr	Inverted color.

ok78	tya
	sta sav_patt+4,s	Save the color used	for background.
	jsr pushcolor
	_FillRect

;
; ------ Draw title	---------------------------------------------------
;
	jsr getrMenuTitle
	sta <strg_ptr
	stx <strg_ptr+2

	lda [<strg_ptr]
	cmp #$FF01	Special color apple	logo?
	beq doAppleLogo
	cmp #$4001
	bne ok30

;
; ---------- Draw Apple Logo --------------------------------------------
;
doAppleLogo	lda sav_patt,s	Get the background pattern.
	jsr get_apple	Put the Apple logo in 'image'.

	lda #imageInfo	Pass pointer to source LocInfo.
	jsr pushData
	lda #clip100	Pass pointer to source RECT.
	jsr pushData
	lda <menurect+x1
	clc
	adc #4
	pha	Pass destination X.
	ldy #CtlRect+y2
	lda [<barptr],y
	sec
	sbc #8	Height of apple logo.
	sbc <descent	System font's descent.
	pha	Pass destination Y.
	pea 0	Pass mode, copy.
	_PPToPort

	bra ck_dim

;
; ---------- Print Title string ------------------------------------------
;
ok30	pha
	_GetForeColor

	lda sav_patt+2,s
	and #$000F	Smear foreground color for text.
	jsr pushSmearLow	Push smeared color
	_SetForeColor	Set text color.

	pha	Save original text mode.
	_GetTextMode

	pea 4	Transfer forground	pixels only.
	_SetTextMode

	ldy #CtlRect+y2
	lda [<barptr],y	I want all titles on same line.
	sec
	sbc <descent
	tay	Y position to print	title.

	ldx <menurect+x1	X position to print.

	jsr printstrg	Print menu's title.


;
; If the port is the menu manager's port, don't bother restoring the text mode
; and fore color.
;
; We only did this cause Word Perfect begged.  (They also admitted how ashamed
; they were and promised to never do it again.)
;
	pha	; get the current port
	pha
	_GetPort
	pla
	plx

	sec
	sbc #port
	bcs @1
	dex
@1
	cmp <data
	bne @NotSame
	cpx <Data+2
	bne @NotSame

	pla	; they are the same so clear off text mode and fore color
	pla
	bra @AllDone	; fini

@NotSame		; different port so run old code.

	_SetTextMode	restore original text mode
	_SetForeColor

@AllDone
;
;
; --------- Dim Title ---------------------------------------------------
;
ck_dim	ldy #MenuFlag
	lda [<menuptr],y
	and #M_ENABLED	Disabled?
	beq exit

	pea dimmed>>16
	pea dimmed
	_SetPenMask

	jsr pushmrect
	lda sav_patt+4,s
	jsr pushcolor
	_FillRect

	pea nor_mask>>16
	pea nor_mask
	_SetPenMask

exit	pla	Get rid of sav_patt.

	rts

	ENDP


;===========================================================================
;
;	Draw_Item
;
;          	Draw a standard text menu item.
;
;   IN:  param = bits 0-13 = item number to draw.
;                bit 14 = 1 if item is dimmed.
;                bit 15 = 1 if item should be hilited.
;        menuptr = pointer to menu.
;
;  OUT:  itemptr = pointer to item.
;
;===========================================================================
draw_item	PROC

dflag	equ 1

;
; --- Do setups ------------------------------------
;
	ldx #0	Normal flag.
	lda <param
	bpl do_normal
	inx	Hilite flag.

do_normal	phx	Save draw flag.
	and #$3FFF	Clear hilite and dimmed bits.

	jsr calcitem	Get item pointer and set 'rect'.

;
; --- Draw item's background -----------------------
;
	jsr pushrect	Common need.
	lda <specialFlag	Flag setup by routine checkForScrolling, so that
	bne dont_xor	we just don't do an invertRect for this item
;
; ------ Special case XOR highlight ----------------
;
	lda <param	Is item dimmed?
	and #$4000
	beq ok2

	pea 2	XOR
	_SetPenMode

	pea dimmed>>16
	pea dimmed
	_SetPenMask

	pea 15	Solid ($FFFF) pattern.
	_SetSolidPenPat

	_FrameRect
	_PenNormal
	pla

	rts


ok2	ldy #ItemFlag	Special case XOR flag set?
	lda [<itemptr],y
	and #I_NO_XOR
	beq dont_xor

	_InvertRect	Invert the item.

	pla	Get rid of state flag.

	rts

;
; ------ Set up for	text item background -----------
;
dont_xor	ldy <norcolor	Find background color of item.
	lda dflag+4,s
	beq ok1
	ldy <hiliteclr
ok1	tya	Color of background	to use if text.
	jsr pushcolor	Push pointer to color pattern.
	_FillRect	Fill item's background color.

;
; --- Draw guts of item -------------------------------------
;
	pla	Get rid of state flag (needed in A).
	brl text_guts	Draw text item's guts, and exit.

	ENDP


;===========================================================================
;
;	Ck_Disable
;
;          	Disable the item.
;
;   IN:    itemptr = pointer to item.
;          barptr =	menu bar pointer.
;
;  OUT:    Item disabled if bit set in ItemFlag.
;
;===========================================================================
ck_disable	PROC

	ldy #ItemFlag	Load flag in high byte to set neg flag.
	lda [<itemptr],y
	and #I_ENABLED
	bne mash_it

	ldy #MenuFlag	You're not out of the woods yet,
	lda [<menuptr],y	a item is disabled if its menu is.
	and #M_ENABLED
	beq exit

mash_it	pea dimmed>>16
	pea dimmed
	_SetPenMask

	jsr pushrect	Pass pointer of item's RECT.
;	                  	Disabled can't be selected.
	lda <norcolor	Get menu's background color.
	and #$00FF	Always solid.

	jsr pushcolor	Push pointer to color pattern.
	_FillRect	Fill will be dithered.

	pea nor_mask>>16	Reset drawing mask to normal solid.
	pea nor_mask
	_SetPenMask

exit	rts

	ENDP


;===========================================================================
;
;	Text_Guts
;
;          	Draw text item's guts.
;
;   IN:    a = state of item, 0 = normal, 1 = selected.
;
;===========================================================================
text_guts	PROC

	ldy <norcolor	Normal color.
	tax	Is item selected?
	beq ok1
	ldy <hiliteclr	If yes, use hilite color.
ok1	tya
	and #$000F
	jsr pushSmearLow	Push smeared color
	_SetForeColor	Set color to use for text.

	jsr FixTextFace

;
; --- Dividing line	(not the same thing	as an underline) ---------------
;
	jsr getistrg	Put item's string pointer in 'strg_ptr'.

	lda [<strg_ptr]	Get the first two bytes from the string.
	cmp #$2D01	Dividing line flag?
	bne main_text

	lda <rect+y2	Center line in item.
	sec
	sbc <rect+y1
	lsr a
	clc
	adc <rect+y1
	tay

	lda <rect+x1	Draw from wall to wall.
	ldx <rect+x2
	dex	Not past right side.
	jsr hline	Draw the dividing line and exit.
	brl ck_dim

;
; --- Print item's text ----------------------------------------
;
main_text		; !!!! Font not defined yet !!!!!
	lda <rect+y2
	sec
	sbc <descent
	tay	Y = position to print item.
	phy

	lda <text_width
	clc	don't wan't any carry to be rotating in on us
	ror a
	clc
	adc <rect+x1
	adc <text_width	Ident 1 1/2 times the width of 'W' to make room for mark
	pha	X starting position	of item's text.
	jsr GetIconInfo
	tax
	beq @noIcon
	clc
	adc 1,s	Add in the width of the icon.
	adc #2	Add some extra slop for spacing in between the icon
	sta 1,s
@noIcon	plx
	ply
	jsr printstrg

	jsr DrawItemIcon	If the item has an icon this routine draws it, otherwise
;		it just returns.
;
; --- Mark item -------------------------------------------------
;
	jsr ClearTextFace	Check marks and command key equiv. always appear in plain text

	ldy #ItemCheck
	lda [<itemptr],y
	and #$00FF
	beq ck_command	Is there a mark?

	ldy #mark+1
	sta [<data],y	Put the character in a string.

	jsr pushmark	Push address of 'mark'.
	pla	Pass string's address in 'strg_ptr'.
	sta <strg_ptr
	pla
	sta <strg_ptr+2

	lda <rect+y2
	sec
	sbc <descent
	tay	Y = position to print item.

	ldx <rect+x1	Pass the x starting	position in X.
	inx
	inx

	jsr printstrg	Print the mark.

;
; --- Command character tied to item --------------------
;
ck_command	ldy #ItemChar
	lda [<itemptr],y
	and #$00FF
	beq ck_dim

	ldy #com_key+2
	sta [<data],y	Store character in command string.

	jsr pushcom_key
	pla	Pass address of com_key in 'strg_ptr'.
	sta <strg_ptr
	pla
	sta <strg_ptr+2

	lda <rect+y2
	sec
	sbc <descent
	tay	Y = position to print item.

	lda <rect+x2	Calculate starting position for printing the
	sec	command key equivalents. Allow two for this.
	sbc <text_width
	sbc <text_width
	tax	Pass x starting position.

	jsr printstrg

;
; --- Disable text -------------------------------------
;
ck_dim	jsr ck_disable	Check to disable item.

;
; --- Underline the	item --------------------------------
;
ck_underl	ldy #ItemFlag
	lda [<itemptr],y
	and #I_NOUNDER	Underline flag set?
	beq exit

	lda <rect+x1	Draw underline.
	ldx <rect+x2
	dex
	ldy <rect+y2
	dey
	jsr hline

exit	rts

	ENDP


;===========================================================================
;
; 	DrawItemIcon
;
;  IN: <itemptr pts to item record currently being worked on
;
; OUT: if item has an icon associated with it then we draw it, otherwise
;      we just return
;
;===========================================================================
DrawItemIcon	PROC

	ldy #ItemFlag	First check if item has an itemstruct record
	lda [<ItemPtr],y	associated with it.
	and #I_NEWSTRUCTURE
	beq @noIcon

	jsr GetStruct	First check if the item contains an icon.
	ldy #itemflag2
	lda [<temptr],y
	bpl @noIcon
;
; Setup parameters for PPToPort to draw the icon.
;
	jsr getrItemIcon	x = high word of ref to icon record, a = low word
	phx	a & x contain pointer to icon structure.
	pha

	pea 0	Display mode.

	lda <text_width
	clc	don't wan't any carry to be rotating in on us
	ror a
	clc
	adc <rect+x1
	adc <text_width	Ident 1 1/2 times the width of 'W' to make room for mark
	pha	x coordinate of upper left corner of destination

;
; Center icon in <rect
;
	jsr GetIconInfo
	phx	get height of icon
	lda <rect+y2
	sec
	sbc <rect+y1	calculate the height of the item's rect
	sec
	sbc 1,s	subtract height of icon from height of item rect
	clc
	ror a	take half of that to use to center icon
	sta 1,s
	lda <rect+y1	add this to the y1 coordinate of item rect
	clc	to get the y coordinate of the upper left corner
	adc 1,s	of the destination
	sta 1,s
*** added 22-Jan-91 DAL to make the color right
	lda 3,s
	and #$fffe
	sta 3,s
*** end of 22-Jan-91 DAL
	_DrawIcon
	bcc @noIcon
	cmp #$0002	QDAux not started?
	bne @noIcon

	tsc
	clc	Clean up stack.
	adc #10
	tcs

@noIcon
	rts

	ENDP

;===========================================================================
;
;	Get_ItemID
;
;          	Return item ID.
;
;   IN:    itemptr = pointer to item.
;
;  OUT:    a = item	ID number.
;
;===========================================================================
get_itemID	PROC

	lda [<itemptr]	Return item ID number.

	rts

	ENDP


;===========================================================================
;
;	CalcItem
;
;        	Setup item's parameters
;
;   IN:  a = item index, 0 = first item.
;        menuptr = pointer to menu.
;        menurect =	coordinates of menu.
;
;  OUT:  Equal flag	is TRUE if item not	found.
;        rect = item's coordinates (last item in list if item not found).
;        itemptr = pointer to item (zero if item not found).
;
;===========================================================================
calcitem	PROC

; --- Setups ----------------------------------------------------------
;
	sec
	sbc <firstVisItem	normalize it
	pha	Save item's index.

	jsr getifirst	Get the address of first item.

;
; --- Run down the item list, accumulating item heights, until ---------
; --- given item index counter is exhausted.	   ---------
;

	jsr getStarting	Get starting vertical position
	bra enter20

lop20	ldy #ITEMSIZE	Check ID of next item.
	lda [<itemptr],y	Get item's ID.
	bne ok20	No more items if ID	is zero.
;
; ------- No more items, and matching ID was not found -----------------
;
	jsr getitemh	Get the height for the last item.
	stz <itemptr	Set, off menu flag.
	stz <itemptr+2
	bra exit1

ok20	jsr getitemh	Get height of item,
	clc	and add it to the current top.
	adc <rect+y1
	sta <rect+y1	Store the top of this item.

	jsr next_item

enter20	pla	Index counter.
	dec a
	pha
	bpl lop20	Done.

;
; --- Item found and rect+y1 = top of the item, compute the	rest -----
;
	jsr getitemh	Get height of item,
exit1	clc	and add it to the top,
	adc <rect+y1
	sta <rect+y2	and store it as the	bottom.

	pla	Get rid of index counter.

;
; --- Compute the left and right side of the item -------------------
;
	lda <menurect+x1	Left side.
	sta <rect+x1

	lda <menurect+x2	Right side.
	sta <rect+x2

	lda <itemptr	Set return flag (was item found?).
	ora <itemptr+2

	rts

	ENDP

;===========================================================================
;
;	GetStarting
;
;   IN:     <menurect = menu's rectangle
;           <menuptr = ptr to menu record
;
;  OUT:     <rect = starting position
;===========================================================================
getstarting	PROC

	lda <firstVisItem
	cmp #1
	beq @1
	lda <menurect+y1
	clc
	adc <font_h
	bra @2
@1	lda <menurect+y1
@2	sta <rect+y1

	ldy <firstVisItem
	dey
lop1	beq out
	jsr next_item
	dey
	bra lop1

out	rts

	ENDP

;===========================================================================
;
;	GetItemH
;
;        	Get height of an item.
;
;   IN:    itemptr = item pointer.
;          menu_type = 0 if text menu, not zero if color menu.
;
;  OUT:    a = item's height.
;
;===========================================================================
getitemh	PROC

	ldy #ItemFlag
	lda [<itemptr],y
	and #I_INVIS
	eor #I_INVIS
	beq exit	If invisible, zero height.

	lda <font_h	Text item height.

exit	rts

	ENDP

;===========================================================================
;
;	GetIconInfo
;
;  IN: <itemptr contains ptr to current item in menu
; OUT: a-reg contains width of icon, x-reg contains height of icon
;
;===========================================================================
getIconInfo	PROC


OrigD	equ 1
MyIconRect	equ OrigD+2

	ldy #ItemFlag	; first check to see if there is an icon
	lda [<itemptr],y	; associated with this item
	and #I_NEWSTRUCTURE
	beq NoIconFound

	jsr GetStruct	; then check if this new structure contains
	ldy #ItemFlag2	; an icon field
	lda [<temptr],y
	bmi GotIcon

NoIconFound	lda #0	; there's no icon so zero the appropriate output values
	ldx #0
	ldy #0
	bra OttaHere
GotIcon
	jsr getrItemIcon	; get the icon's ref

	phx	; put it on the stack so we can reference it easier
	pha
	phd	; save current direct page register
	tsc 	; turn stack into direct page
	tcd

	ldy #oQDIconHeight
	lda [<MyIconRect],y
	tax	; x-reg contains the icon's height
	ldy #oQDIconWidth
	lda [<MyIconRect],y	; a-reg contains the icon's width
	pld	; restore original direct page register
	ply	; clean up stack
	ply

	tay
	lda <ScreenMode
	beq @In320Mode
	tya
	asl a
	tay
@In320Mode	tya

OttaHere	rts

	ENDP

;===========================================================================
;
;	getistrg
;
;          	Get item's string pointer.
;
;   IN:    itemptr = item
;
;  OUT:    strg_ptr	= item's string pointer.
;          a = low word.
;          x = high	word.
;
;===========================================================================
getistrg	PROC

	jsr getrItemName
	sta <strg_ptr
	stx <strg_ptr+2

	rts

	ENDP


;===========================================================================
;
;	GetIFirst
;
;          	Get pointer to first item in menu.
;
;   IN:    menuptr = pointer to menu.
;
;  OUT:    itemptr = pointer to first item in menu.
;          Equal flag = TRUE if no items in menu.
;
;===========================================================================
getifirst	PROC

	ldx <menuptr+2
	lda <menuptr
	clc
	adc #ItemList
	bcc store1
	inx

store1	sta <itemptr
	stx <itemptr+2

	lda [<itemptr]	Set return flag.

	rts

	ENDP


;===========================================================================
;
;	Next_Item
;
;        	Get the ID of the next menu item.
;
;   IN:  itemptr = pointer to current item.
;
;  OUT:  Equal is TRUE if there isn't any more items.
;        ELSE
;              itemptr = pointer to next item.
;
;===========================================================================
next_item	PROC

	lda <itemptr
	clc
	adc #ITEMSIZE
	bcc store
	inc <itemptr+2
store	sta <itemptr

	lda [<itemptr]	Set last item return flag.

	rts

	ENDP


;===========================================================================
;
;	HLine
;
;          	Draw a horizontal line.
;
;   IN:    PUSH:WORD - color.
;          a = starting x position.
;          x = ending x position.
;          y = line	number.
;
;  OUT:    a,x,y all the same as in.
;
;===========================================================================
hline	PROC

linenum	equ 1
xpos1	equ linenum+2
xpos2	equ xpos1+2

	phx
	pha
	phy

	pha
	phy
	_MoveTo

	lda <outLineClr	Set color of line.
	jsr setoutline

	lda xpos2,s	Line to.
	pha
	lda linenum+2,s
	pha
	_LineTo

	ply
	pla
	plx

	rts

	ENDP


;
;          APPEND MCALLS.ASM
;
;===========================================================================
;
;	FixMenuBar
;
;        	Set size of Menu bar.
;
;   IN:    None.
;
;  OUT:    WORD - height of menu bar.
;
;===========================================================================
FixMenuBar	PROC

result	equ input

myTemp	equ work

	jsr startup	Do startup initialization for tool call.
	jsr lockMenuBar	<barPtr = (<barHand), bar & menus locked.
	beq exit2	Is there a current menu bar?

	jsr to_myport	Switch to my port for text calls.

;
; --- Get the menu's pointer ---------------------
;
	jsr getmfirst	Get pointer of first menu in menu list.
	beq exit	Are there any menus?

;
; --- Set the title's width if it isn't	already set -------------
;
lop1	ldy #TitleWidth	Check if width is already set.
	lda [<menuptr],y
	bne skip10

	pha	Space for result.

	jsr getrMenuTitle	Get the menu title

	stx <mytemp+2
	sta <mytemp
	lda [<mytemp]	Check if the title is the apple logo title
	cmp #$FF01
	beq setAppleLogoWidth
	cmp #$4001
	bne notAppleLogo
setAppleLogoWidth	lda #24
	sta 1,s
	bra widthSet

notAppleLogo	PushLong <mytemp

	_StringWidth
widthSet	pla
	ldy #TitleWidth
	sta [<menuptr],y	Store width of menu	title.

skip10
;
; --- Set the width	and height of the menu ----------------------------
;
	lda #$FFFF
	pha	Default width.
	pha	Default height.
	lda [<menuptr]
	pha	Pass menu's ID.
	_CalcMenuSize

	jsr next_menu	Get the pointer to the next menu.
	bne lop1	Any more menus?

;
; --- Check if menu	bar height needs to	be set -------------
;
exit	ldy #CtlRect+y2
	lda [<barptr],y	Is the menu bar height already set?
	bne skip1	If yes, don't reset.

	ldy #CtlRect+y1
	lda [<barptr],y
	sec	Get an extra pixel here.
	adc <font_h	Add font height.
	ldy #CtlRect+y2
	sta [<barptr],y	Store menu bar's bottom side.

skip1	ldy #CtlRect+y1	Return menu bar's height.
	sec
	sbc [<barptr],y
	sta result,s

	jsr to_uport	Restore original port.
	jsr unlockMenuBar	Leave menu bar & menus unlocked.
;
exit2	brl pop0bytes	no error

	ENDP

;===========================================================================
;
;	GetItemWidth
;
;          	Computes the default size of a specified menu item.
;
;   IN:  PUSH:WORD - menuitem ID.
;
;  OUT:  WORD = default width of menu item.
;        WORD = default height of menu item.
;
;===========================================================================
GetItemWidth	PROC

itemnum	equ input
widthresult	equ itemnum+2

	jsr startup

	lda #0
	sta widthresult,s

	jsr lockMenuBar
	beq exit2

	jsr to_myport	Switch to the menu mgr's port and save user's

	lda itemnum,s	Get ptr to item record
	jsr getiptr
	beq exit

	jsr FixTextFace

	pha	Space for result.
	jsr getistrg	Get pointer to item's string.
	phx	Pass high word.
	pha	Pass low word.
	_StringWidth	Get string's width.

	jsr GetIconInfo	a-reg contains width of icon
	tax
	beq @NoIcon	If a-reg is zero then there is no icon
	clc
	adc 1,s	Add width of item name and icon width.
	adc #5	Add in some additional slop for spacing between icon.
	sta 1,s	Put result back on the stack.
@NoIcon
	lda <text_width	Add room for the check mark.
	clc
	adc <text_width
	adc <text_width
	tax
	ldy #ItemChar
	lda [<itemptr],y
	and #$00FF
	beq ok34
	lda <text_width
	clc	Now add space for the keyboard equivalent, the apple key
	ror a	and a chacracter, plus one extra for slop
	clc
	adc <text_width
	adc <text_width	1 1/2 for check mark, 2 for cmd-key-equiv,2 for space
	adc <text_width
	adc <text_width
	adc <text_width
	tax
ok34	txa
	clc
	adc 1,s
	plx	Pull in x just to fix stack, a = value.
	sta widthresult,s

	jsr ClearTextFace

exit	jsr to_uport	Restore original port.
	jsr unlockMenuBar	Leave menu bar & menus unlocked.

exit2	brl pop2bytes


	ENDP

;===========================================================================
;
;	CalcMenuSize
;
;        	Set size of Menu.
;
;   IN:  PUSH:WORD - width of menu, zero to compute, $FFFF to check first.
;        PUSH:WORD - height of menu, zero to compute, $FFFF	to check first.
;        PUSH:WORD - menu ID.
;
;  OUT:  None.
;
;===========================================================================
CalcMenuSize	PROC

menunum	equ input
height	equ menunum+2
TheWidth	equ height+2

	jsr startup	Do startup initialization for tool call.
	jsr lockMenuBar	<barPtr = (<barHand), bar & menus locked.
	beq exit2	Is there a current menu bar?

	jsr to_myport	Switch to my port for text calls.

	lda menunum,s	Get menu's ID.
	jsr getmptr	Now get its pointer.
	beq exit	Was the menu found?

	jsr freeCache	Free menu's cache, size maybe wrong.

	ldy #MenuWidth	Set menu record with given parameters.
	lda TheWidth,s
	bpl ok1

	lda [<menuptr],y	Leave MenuWidth alone.

ok1	sta [<menuptr],y
	tax	Save.
	iny
	iny
	lda height,s
	bpl ok2

	lda [<menuptr],y	Leave MenuHeight alone.

ok2	sta [<menuptr],y
	beq calc_size	Asking for default height?
	txa
	bne exit	Asking for default width?

;
; --- Compute default width and height ----------------------------------
;
calc_size	ldx #mSize	Ask defProc to compute menu size.
	jsr dispatch	Call menu's defProc.

exit	jsr to_uport	Restore original port.
	jsr unlockMenuBar	Leave menu bar & menus unlocked.

exit2	brl pop6bytes	no error

	ENDP


;===========================================================================
;
;	PushYRat
;
;        	Push address of zero page variables.
;
;===========================================================================
pushyrat	PROC

	lda #yrat
	bra enter

	ENTRY pushmrect
pushmrect
	lda #menurect
	bra enter

	ENTRY pushscInfo1
pushscInfo1
	lda #scInfo1
	bra enter

	ENTRY pushrect
pushrect	lda #rect	Most used.

enter	brl pushDpage

	ENDP

;===========================================================================
;
;	InsertMItem2
;
;        	Insert Item into ItemList.
;
;   IN:    PUSH:WORD - refDescriptor, describes what next long is (ptr, hdl, res. ID)
;          PUSH:LONG - ptr, handle, or resource ID of MenuItemTemplate
;          PUSH:WORD - item ID, zero to	insert in front, $FFFF to append.
;          PUSH:WORD - menu ID.
;
;  OUT:    None.
;
;===========================================================================
InsertMItem2	PROC

menunum	equ input
itemnum	equ menunum+2
itemstrg	equ itemnum+2
refdescriptor	equ itemstrg+4

	jsr startup	Do startup initialization for tool call.
	jsr lockMenuBar	<barPtr = (<barHand), bar & menus locked.
	beq myexit2	Is there a current menu bar?

	jsr commonInsert
	bcs myexit

	lda itemstrg,s
	sta <temptr2
	lda itemstrg+2,s
	sta <temptr2+2

	lda refdescriptor,s

	ldy <temptr
	jsr fillitemRec

	ldy #NumOfItems	update total number of items in the menu
	lda [<menuptr],y
	inc a
	sta [<menuptr],y

myexit	jsr unlockmenubar

myexit2	brl pop10bytes


;===========================================================================
;
;	InsertMItem
;
;        	Insert Item into ItemList.
;
;   IN:    PUSH:LONG - pointer ot item string to be inserted.
;          PUSH:WORD - item ID, zero to	insert in front, $FFFF to append.
;          PUSH:WORD - menu ID.
;
;  OUT:    None.
;
;===========================================================================
InsertMItem	PROC

menunum	equ input
itemnum	equ menunum+2
itemstrg	equ itemnum+2

	jsr startup	Do startup initialization for tool call.
	jsr lockMenuBar	<barPtr = (<barHand), bar & menus locked.
	beq exit2	Is there a current menu bar?

	jsr commonInsert
	bcs exit
;
; --- Insert the item ----------------------------------------------
;
	lda itemstrg,s	Pass pointer to item string.
	sta <strg_ptr
	lda itemstrg+2,s
	sta <strg_ptr+2

	ldx #1	Build record.
	jsr parse_item

exit	jsr unlockMenuBar	Leave menu bar & menus unlocked.

exit2	brl pop8bytes	no error


;===========================================================================
;
;	CommonInsert
;
;===========================================================================
	entry commonInsert
commonInsert
	lda menunum+2,s
	jsr getmptr	Get the pointer to the menu.
	beq gohome	Menu not found?

	ldy #NumOfItems	Check if the menu is empty
	lda [<menuptr],y
	bne notEmpty1
	lda itemnum+2,s
	cmp #$0000	Are we inserting at beginning
	beq @111
	cmp #$FFFF	Are we inserting at end
	bne gohome	not $0000 and not $FFFF with an empty menu means adios

@111	lda #0
	sta itemnum+2,s
	bra expand

notEmpty1	lda itemnum+2,s	Make sure given item ID is valid.
	jsr getiptr2
	beq gohome	Item not found?

;
; --- Expand menu record for new item --------------------------------
;
expand	ldx <menuhand+2	Pass menu's handle.
	lda <menuhand
	ldy #ITEMSIZE	Number of bytes to increase by.
	jsr growBlock	Expand the menu record.
	bcs gohome	Error?

	jsr freeCache	Set cache to bad if	menu has a cache.

;
; --- Make space for the item  ----------------------------------------
;
	pei <work	Save size of block.

	lda itemnum+4,s	Get pointer to where to insert item.
	jsr getiptr2
	pla
	sta <work	Restore size of block.

	lda itemnum+2,s
	beq skip2	If insert at front,	ready.

	jsr next_item	Insert after given item.

skip2	lda <itemptr	Compute number of bytes in front of item.
	sec
	sbc <menuptr
	sta <temptr	Pass to 'into_block'.

	lda <itemptr
	ldx <itemptr+2
	ldy #ITEMSIZE
	jsr into_block	Insert gap into menu record for item.

	clc
	rts

gohome	sec
	rts

	ENDP


;===========================================================================
;
;	InsertMenu
;
;        	Insert Menu into MenuList.
;
;   IN:    PUSH:LONG - handle of menu to insert.
;          PUSH:WORD - menu ID, zero to	insert at front.
;
;  OUT:    None.
;
;===========================================================================
InsertMenu	PROC

menunum	equ input
menuin	equ menunum+2

*** added 15-May-91 DAL -- make sure this isn't a duplicate menu ID
	pha
	phy

	phd
	lda 17,s
	pha
	lda 17,s
	pha
	tsc
	tcd
	ldy #2
	lda [1],y
	tax
	lda [1]
	sta 1
	stx 3
	lda [1]	;fetched menu id (first word in handle)
	plx
	plx
	pld	;A = menu ID (first word in menu handle)

	tax
	beq @notDuplicate	;I'm paranoid about the zero case

	pha
	pha	;space for GetMHandle result
	pha	;menu ID
	_GetMHandle
	plx
	plx
	beq @notDuplicate
	plx
	plx	;throw away saved YA
	ldy #6
	ldx #dupMenuID
	jml $e10184	;ToStrip
@notDuplicate	ply
	pla
*** end of 15-May-91 DAL

	jsr startup	Do startup initialization for tool call.
	jsr lockMenuBar	<barPtr = (<barHand), bar & menus locked.
	beq exit2	Is there a current menu bar?

	lda menunum,s
	beq ok2	If I'm looking for first we're ok.
	jsr getmptr	Make sure ID is valid, and get offset.
	beq exit	Was the menu found?

;
; --- Expand menu bar record for new menu --------------------------------
;
ok2	ldx <barhand+2	Pass menu bar's handle.
	lda <barhand
	ldy #4	Number of bytes to increase by.
	jsr growBlock	Expand the menu record.
	bcs exit	Error?

	lda menuin,s
	sta <menuhand
	lda menuin+2,s
	sta <menuhand+2
	jsr lockMenuHand	<menuhand = locked.
	jsr derefMenuHand	<menuptr = (<menuhand).

	ldy #CtlOwner+2	Is this a window menu bar?
	lda [<barptr],y
	bpl ok3

	ldy #MenuFlag	Don't allow caching for window menus.
	lda [<menuptr],y
	and #_M_CACHE
	sta [<menuptr],y

; --- Make space for the new menu handle  -------------------------------
;
ok3	lda menunum,s
	bne skip2	If insert after, I'm ready.

	lda #MenuList	Insert at front, reset 'menu_cnt'.
	sta <menu_cnt

skip2	ldx <barptr+2	Compute where to insert.
	lda <barptr
	clc
	adc <menu_cnt
	bcc ok1
	inx
ok1	ldy <menu_cnt	Number of bytes in front of insert.
	sty <temptr	Pass to 'into_block'.

	ldy #4
	jsr into_block	Insert gap into menu record for item.
;
; --- Store new handle into gap ---------------------------------------
;
	lda menuin,s
	sta [<temptr2]
	ldy #2
	lda menuin+2,s
	sta [<temptr2],y

	jsr everycachefree

exit	jsr unlockMenuBar	Leave menu bar & menus unlocked.
;
exit2	brl pop6bytes	no error

	ENDP


;===========================================================================
;
;	DeleteMItem
;
;        	Delete Item from ItemList.
;
;   IN:    PUSH:WORD - item ID.
;
;  OUT:    None.
;
;===========================================================================
DeleteMItem	PROC

itemnum	equ input

	jsr startup	Do startup initialization for tool call.
	jsr lockMenuBar	<barPtr = (<barHand), bar & menus locked.
	beq exit2	Is there a current menu bar?

	lda itemnum,s
	jsr getiptr	Get pointer to item	to delete.
	beq exit	Was the item found?

;
; --- Move other items over deleted item --------------------------
;
lop1	ldy #(ITEMSIZE*2)-2
	ldx #ITEMSIZE-2
lop2	lda [<itemptr],y
	phy
	txy
	sta [<itemptr],y
	ply
	dey
	dey
	dex
	dex
	bpl lop2

	jsr next_item	Any more items?
	bne lop1

;
; --- Shrink menu record for deleted item --------------------------------
;
	ldy #NumOfItems	Update number of total items in menu.
	lda [<menuptr],y
	dec a
	sta [<menuptr],y

	ldx <menuhand+2	Pass menu's handle.
	lda <menuhand
;;;	ldy #$FFF6	Number of bytes to decrease.
*** 4-Jun-92 DAL -- Should shrink menu handle by 12 bytes, not 10
	ldy #$FFF4	;Shrink by 12 bytes (ITEMSIZE)
*** end 4-Jun-92
	jsr growBlock	Shrink the menu record.

	jsr freeCache	Set cache to bad if	menu has a cache.

	ldy #menuFlag
	lda [<menuptr],y
	and #M_POPUP	Is this menu a pop-up menu?
	beq exit

	ldy #ctlProc+2
	lda [<barptr],y
	bpl exit	This must be a super control before we change current sel.

	ldy #ctlValue	If it is then we need to check if we just deleted
	lda [<barptr],y	the currently selected item.
	cmp itemnum,s
	bne exit

	ldy #ctlOwner+2	Make sure the origin is right before drawing.
	lda [<barptr],y
	pha
	dey
	dey
	lda [<barptr],y
	pha
	_StartDrawing

	pea 0	New control value, 0 = no current selection in pop-up
	pei <barhand+2
	pei <barhand	Handle to pop-up control
	_SetCtlValue

	lda #0
	pha
	pha
	_SetOrigin

exit	jsr unlockMenuBar	Leave menu bar & menus unlocked.

exit2	brl pop2bytes	no error

	ENDP


;===========================================================================
;
;	DeleteMenu
;
;        	Delete one Menu from MenuList.
;
;   IN:    PUSH:WORD - menu ID.
;
;  OUT:    None.
;
;===========================================================================
DeleteMenu	PROC

menunum	equ input

	jsr startup	Do startup initialization for tool call.
	jsr lockMenuBar	<barPtr = (<barHand), bar & menus locked.
	beq exit2	Is there a current menu bar?

;
; --- Take menu out	of menu list ---------------------------------
;
	lda menunum,s	ID to match.
	jsr getmptr	Find the menu.
	beq exit	Error?

	jsr freecache	Release cache that may be allocated for this menu.

	ldy #4
	lda [<menuhand],y	Unlock the handle of menu to be removed.
	and #$7FFF
	sta [<menuhand],y

lop2	jsr next_menu

	lda <menu_cnt
	sec
	sbc #8
	tay

	lda <menuhand
	sta [<barptr],y
	lda <menuhand+2
	iny
	iny
	sta [<barptr],y

	ora <menuhand	Any more menu's?
	bne lop2

;
; --- Shrink menu record for deleted item --------------------------------
;
	ldx <barhand+2	Pass menu bar's handle.
	lda <barhand
	ldy #$FFFC	Number of bytes to decrease.
	jsr growBlock	Shrink the menu record.

	jsr everycachefree	Menus may now be in different order.

exit	jsr unlockMenuBar	Leave menu bar & menus unlocked.

exit2	brl pop2bytes	no error

	ENDP


;===========================================================================
;
;	GrowBlock
;
;          	Increase the size of a allocated memory block.
;
;   IN:    x/a = handle top resize.
;          y = number of bytes to insert.
;
;  OUT:    <work = new size.
;          Carry is	set if unable to expand, clear if ok.
;
;===========================================================================
growBlock	PROC

	sta <temptr	Save handle.
	stx <temptr+2
	sty <work	Save size delta.

	pha	Space for result
	pha
	phx	Pass handle.
	pha
	_GetHandleSize	Get the present size of the block.

	jsr unlockMenuBar	Unlock menu bar & menus so they can move.

	pla	Get the current size.
	clc
	adc <work	Increase the size.
	sta <work	Save new size.

	pha	Pass new size.
	pei <temptr+2	Pass handle.
	pei <temptr
	_SetHandleSize	Expand the block.

	php	Save error code.
	jsr lockMenuBar	Relock menu bar & menus.
	jsr derefMenuHand	<menuptr = (<menuhand).
	plp	Return error code, if any.

	rts

	ENDP


;===========================================================================
;
;	Into_Block
;
;          	Insert zero bytes into middle of block.
;
;   IN:    x/a = pointer to insert place.
;          y = number of bytes to insert.
;          <work = number of bytes in block.
;          <temptr = number of bytes in	front of insertion point.
;
;===========================================================================
into_block	PROC

	sta <temptr2
	stx <temptr2+2
	sty <work+2	Number of bytes to insert.

	lda <work	Number of bytes in block,
	sec
	sbc <temptr	less number of bytes in front of insert,
	dec a	less one word,
	dec a
	tax	equals offset from insert to end of record.
	sbc <work+2	Less size of insert, equals offset to
	tay	data that needs to be moved.

lop1	lda [<temptr2],y
	phy
	txy
	sta [<temptr2],y
	ply
	lda #0	Clear gap as we go.
	sta [<temptr2],y
	dex
	dex
	dey
	dey
	bpl lop1

	rts

	ENDP


;===========================================================================
;
;	GetSysBar
;
;       	Return pointer to System Menu bar.
;
;   IN:  None.
;
;  OUT:  LONG - handle of system menu bar.
;
;===========================================================================
GetSysBar	PROC

result	equ input

	jsr startup	Do startup initialization for tool call.

	lda <sysmenu
	sta result,s
	lda <sysmenu+2
	sta result+2,s

	brl pop0bytes	no error

	ENDP


;===========================================================================
;
;	SetSysBar
;
;        	Install new system menu bar.
;
;   IN:    PUSH:LONG - menu bar handle.
;
;  OUT:    None.
;
;===========================================================================
SetSysBar	PROC

newbar	equ input

	jsr startup	Do startup initialization for tool call.

	lda newbar,s	Set new system menu	bar pointer.
	sta <sysmenu
	lda newbar+2,s
	sta <sysmenu+2

	brl pop4bytes	no error

	ENDP


;===========================================================================
;
;	SetMenuBar
;
;          	Set current menu bar.
;
;   IN:    PUSH:LONG - new current menu	bar, zero for system menu bar.
;
;  OUT:    None.
;
;===========================================================================
SetMenuBar	PROC

	jsr startup	Do startup initialization for tool call.
	jsr setCurrentBar	<barHand = passed menu bar.

	brl pop4bytes	no error

	ENDP


;===========================================================================
;
;	GetMenuBar
;
;          	Get current menu bar.
;
;   IN:    None.
;
;  OUT:    LONG - handle of current menu bar.
;
;===========================================================================
GetMenuBar	PROC

result	equ input

	jsr startup	Do startup initialization for tool call.

	lda <barhand	Return current menu	bar.
	sta result,s
	lda <barhand+2
	sta result+2,s

	brl pop0bytes	no error

	ENDP


;===========================================================================
;
;	CountMItems
;
;        	Return number of items in menu.
;
;   IN:    PUSH:WORD - menu ID.
;
;  OUT:    WORD - number of items in menu, $FFFF if menu not found.
;
;===========================================================================
CountMItems	PROC

menunum	equ input
result	equ menunum+2

	jsr startup	Do startup initialization for tool call.
	jsr lockMenuBar	<barPtr = (<barHand), bar & menus locked.
	beq exit2	Is there a current menu bar?

	lda #$FFFF
	sta result,s	Start with error.

	lda menunum,s	Pass menu's ID.
	jsr getmptr	Put pointer to menu	into 'menuptr'.
	beq exit	Is there a menu with that ID?

	stz <work	Item counter.
	jsr getifirst
	beq exit	Is there even one item?

lop1	inc <work
	jsr next_item	Next item.
enter1	bne lop1	Any more items?

exit	lda <work
	sta result,s	Return number of items.

	jsr unlockMenuBar	Leave menu bar & menus unlocked.

exit2	brl pop2bytes	no error

	ENDP


;===========================================================================
;
;	SetBarColors
;
;        	Set colors of menu bar.
;
;   IN:  PUSH:WORD - Normal color:    Bits 0-3 = text color	when normal.
;	                  Bits 4-7 = background	color when normal.
;	                  Bits 8-15 = zero.
;	                  $FFFF to not set.
;
;        PUSH:WORD - Selected color:  Bits 0-3 = text color	when selected.
;	                  Bits 4-7 = background	color when selected.
;	                  Bits 8-15 = zero.
;	                  $FFFF to not set.
;
;        PUSH:WORD - Outline color:   Bits 0-3 = zero.
;	                  Bits 7-4 = outine color.
;	                  Bits 8-15 = zero.
;	                  $FFFF to not set.
;
;  OUT:  None.
;
;===========================================================================
SetBarColors	PROC

newout	equ input
newinvert	equ newout+2
newbar	equ newinvert+2

	jsr startup	Do startup initialization for tool call.
	jsr lockMenuBar	<barPtr = (<barHand), bar & menus locked.
	beq exit2	Is there a current menu bar?

	ldy #CtlColor
	lda [<barptr],y
	iny
	iny
	ora [<barptr],y
	beq exit

	jsr everyCacheBad	Set cache to bad if	menu has a cache.
	jsr getcolor	work = pointer to color table.

	ldy #0
	lda newbar,s	Should bar color be	set?
	bmi next1
	sta [<work],y

next1	iny
	iny
	lda newinvert,s	Should invert color	be set.
	bmi next2
	sta [<work],y

next2	iny
	iny
	lda newout,s	Should outline color be set.
	bmi exit
	sta [<work],y

exit	jsr unlockMenuBar	Leave menu bar & menus unlocked.

exit2	brl pop6bytes	no error

	ENDP


;===========================================================================
;
;	GetBarColors
;
;        	Return menu bar's colors.
;
;   IN:  None.
;
;  OUT:  LONG - Bits 31-24 = undefined.
;               Bits 23-20 = outline color.
;               Bits 19-16 = undefined.
;               Bits 15-12 = background	color when selected.
;               Bits  11-8 = text color	when selected.
;               Bits   7-4 = background	color when not selected.
;               Bits   3-0 = text color	when not selected.
;
;===========================================================================
GetBarColors	PROC

result	equ input

	jsr startup	Do startup initialization for tool call.
	jsr lockMenuBar	<barPtr = (<barHand), bar & menus locked.
	beq exit2	Is there a current menu bar?

	jsr getcolor	Get menu bar colors.

	lda <outlineclr
	sta result+2,s

	lda <hiliteclr
	xba
	ora <norcolor
	sta result,s

	jsr unlockMenuBar	Leave menu bar & menus unlocked.

exit2	brl pop0bytes	no error

	ENDP


;===========================================================================
;
;	SetMTitleStart
;
;        	Set starting position of titles.
;
;   IN:  PUSH:WORD - starting position,	bits 0-6 used.
;
;  OUT:  None.
;
;===========================================================================
SetMTitleStart	PROC

newstart	equ input

	jsr startup	Do startup initialization for tool call.
	jsr lockMenuBar	<barPtr = (<barHand), bar & menus locked.
	beq exit2	Is there a current menu bar?

	ldy #CtlFlag+1
	lda [<barptr],y
	and #$FF80	Clear current starting position.
	ora newstart,s	Set new starting position.
	sta [<barptr],y

	jsr everyCacheFree	Free every cahce, size maybe wrong.

	jsr unlockMenuBar	Leave menu bar & menus unlocked.

exit2	brl pop2bytes	no error

	ENDP


;===========================================================================
;
;	GetMTitleStart
;
;        	Return starting position of titles.
;
;   IN:  None.
;
;  OUT:  WORD - starting position.
;
;===========================================================================
GetMTitleStart	PROC

result	equ input

	jsr startup	Do startup initialization for tool call.
	jsr lockMenuBar	<barPtr = (<barHand), bar & menus locked.
	beq exit2	Is there a current menu bar?

	ldy #CtlFlag+1
	lda [<barptr],y
	and #$007F	Get just the current starting position.
	sta result,s

	jsr unlockMenuBar	Leave menu bar & menus unlocked.

exit2	brl pop0bytes	no error

	ENDP


;===========================================================================
;
;	GetMHandle
;
;        	Find the handle of menu.
;
;   IN:    PUSH:WORD - Menu ID of menu to find.
;
;  OUT:    LONG - menu pointer, or zero	if error.
;
;===========================================================================
GetMHandle	PROC

id	equ input
result	equ id+2

	jsr startup	Do startup initialization for tool call.
	jsr lockMenuBar	<barPtr = (<barHand), bar & menus locked.
	beq exit2	Is there a current menu bar?

	lda id,s	Pass ID in A.
	jsr getmptr	Get handle of menu.

	lda <menuhand	Return found handle.
	sta result,s
	lda <menuhand+2
	sta result+2,s

	jsr unlockMenuBar	Leave menu bar & menus unlocked.

exit2	brl pop2bytes	no error

	ENDP


;===========================================================================
;
;	SetMenuID
;
;        	Set menu ID number.
;
;   IN:  PUSH:WORD - new ID.
;        PUSH:WORD - menu's ID.
;
;  OUT:  None.
;
;===========================================================================
SetMenuID	PROC

menunum	equ input
newID	equ menunum+2

	jsr startup	Do startup initialization for tool call.
	jsr lockMenuBar	<barPtr = (<barHand), bar & menus locked.
	beq exit2	Is there a current menu bar?

	lda menunum,s
	jsr getmptr	Put menu pointer into 'menuptr'.
	beq exit	Menu not found?

	lda newID,s
	sta [<menuptr]	Set new ID.

exit	jsr unlockMenuBar	Leave menu bar & menus unlocked.

exit2	brl pop4bytes	no error

	ENDP


;===========================================================================
;
;	SetMTitleWidth
;
;        	Set menu title's width.
;
;   IN:  PUSH:WORD - width.
;        PUSH:WORD - menu's ID.
;
;  OUT:  None.
;
;===========================================================================
SetMTitleWidth	PROC

menunum	equ input
newwidth	equ menunum+2

	jsr startup	Do startup initialization for tool call.
	jsr lockMenuBar	<barPtr = (<barHand), bar & menus locked.
	beq exit2	Is there a current menu bar?

	lda menunum,s
	jsr getmptr	Put menu pointer into 'menuptr'.
	beq exit	Menu not found?

	ldy #TitleWidth
	lda newwidth,s
	sta [<menuptr],y	Set new title width.

	jsr everyCacheFree	Free every cahce, size maybe wrong.

exit	jsr unlockMenuBar	Leave menu bar & menus unlocked.

exit2	brl pop4bytes	no error

	ENDP


;===========================================================================
;
;	GetMTitleWidth
;
;        	Return menu title's width.
;
;   IN:  PUSH:WORD - menu's ID.
;
;  OUT:  WORD - title's width.
;
;===========================================================================
GetMTitleWidth	PROC

menunum	equ input
result	equ menunum+2

	jsr startup	Do startup initialization for tool call.
	jsr lockMenuBar	<barPtr = (<barHand), bar & menus locked.
	beq exit2	Is there a current menu bar?

	lda menunum,s
	jsr getmptr	Put menu pointer into 'menuptr'.
	beq exit	Menu not found?

	ldy #TitleWidth
	lda [<menuptr],y	Get menu's title width,
	sta result,s	and pass it back to	caller.

exit	jsr unlockMenuBar	Leave menu bar & menus unlocked.

exit2	brl pop2bytes	no error

	ENDP


;===========================================================================
;
;	SetMenuFlag
;
;        	Set menu's MenuFlag
;
;   IN:  PUSH:WORD - new value, bits to	clear or set.
;        PUSH:WORD - menu's ID.
;
;  OUT:  None.
;
;===========================================================================
SetMenuFlag	PROC

menunum	equ input
newValue	equ menunum+2

	jsr startup	Do startup initialization for tool call.
	jsr lockMenuBar	<barPtr = (<barHand), bar & menus locked.
	beq exit2	Is there a current menu bar?

	lda menunum,s
	jsr getmptr	Put menu pointer into 'menuptr'.
	beq exit	Menu not found?

	jsr badCache	Set cache to bad if	menu has a cache.

	ldy #MenuFlag
	lda newValue,s
	bmi reset

	ora [<menuptr],y	Set desired bits.
	bra store

reset	and [<menuptr],y	Clear desired bits.
store	sta [<menuptr],y	Store new flag.

exit	jsr unlockMenuBar	Leave menu bar & menus unlocked.

exit2	brl pop4bytes	no error
	ENDP


;===========================================================================
;
;	GetMenuFlag
;
;        	Get menu's MenuFlag.
;
;   IN:    PUSH:WORD - menu's ID.
;
;  OUT:    WORD - MenuFlag.
;
;===========================================================================
GetMenuFlag	PROC

menunum	equ input
result	equ menunum+2

	jsr startup	Do startup initialization for tool call.
	jsr lockMenuBar	<barPtr = (<barHand), bar & menus locked.
	beq exit2	Is there a current menu bar?

	lda menunum,s
	jsr getmptr	Put menu pointer into 'menuptr'.
	beq exit	Menu not found?

	ldy #MenuFlag
	lda [<menuptr],y	Get menu's flag.
	sta result,s	and pass it back to	caller.

exit	jsr unlockMenuBar	Leave menu bar & menus unlocked.

exit2	brl pop2bytes	no error

	ENDP

;===========================================================================
;
;	SetMenuTitle2
;
;  IN: PUSH:WORD - refdescriptor, describes following long (ptr, handle, res ID)
;      PUSH:LONG - titleref, ptr, handle or resource ID of title
;      PUSH:WORD - id of menu that gets new title
;
;===========================================================================
SetMenuTitle2	PROC

menunum	equ input
titleref	equ menunum+2
refdescriptor	equ titleref+4

	jsr startup
	jsr lockmenubar
	beq exit2

	lda menunum,s
	jsr getmptr	;Put menu pointer into 'menuptr'.
	beq exit	;Menu not found?

	ldy #TitleName	;put titleref in menu record
	lda titleref,s
	sta [<menuptr],y
	iny
	iny
	lda titleref+2,s
	sta [<menuptr],y

;
; now we must set the menuflag to jive with what the refdescriptor is
;
	lda refdescriptor,s
	asl a
	tax

	ldy #MenuFlag	;clear out the high two bits before setting anything
	lda [<menuptr],y
	and #CLEAR_TWO_BITS

	jmp (table,x)

table	dc.w pointer
	dc.w handle
	dc.w resourceID

resourceID	ora #M_RESOURCEID
	bra pointer

handle	ora #M_HANDLE
	bra pointer

pointer	ldy #MenuFlag
	sta [<menuptr],y

	pha	;space for result
	jsr getrMenuTitle	;get the width of the menu title
	phx	;getmenutitle returns result in a-reg and x-reg
	pha
	_StringWidth

	pla
	ldy #TitleWidth
	sta [<menuptr],y

	jsr everyCacheFree	;Free every cahce, size maybe wrong.

exit	jsr unlockMenuBar

exit2	brl pop8bytes

	ENDP

;===========================================================================
;
;	SetMenuTitle
;
;        	Set menu's title.
;
;   IN:  PUSH:LONG - pointer to string.
;        PUSH:WORD - menu's ID.
;
;  OUT:  None.
;
;===========================================================================
SetMenuTitle	PROC

menunum	equ input
newstrg	equ menunum+2

	jsr startup	;Do startup initialization for tool call.
	jsr lockMenuBar	<barPtr = (<barHand), bar & menus locked.
	beq exit2	Is there a current menu bar?

	lda menunum,s
	jsr getmptr	Put menu pointer into 'menuptr'.
	beq exit	Menu not found?

	ldy #MenuFlag	Clear upper two bits of menures flag to signify that
	lda [<menuptr],y	menu title is a pointer (need to do this just in case the
	and #CLEAR_TWO_BITS	last reference was a handle or resource ID)
	sta [<menuptr],y

	ldy #TitleName
	lda newstrg,s	Get pointer to new string.
	sta [<menuptr],y
	tax
	iny
	iny
	lda newstrg+2,s
	sta [<menuptr],y

	pha	Space for result.
	pha	Pass address of string.
	phx
	_StringWidth
	pla
	ldy #TitleWidth
	sta [<menuptr],y	Store width of menu	title.

	jsr everyCacheFree	Free every cahce, size maybe wrong.

exit	jsr unlockMenuBar	Leave menu bar & menus unlocked.

exit2	brl pop6bytes	no error

	ENDP


;===========================================================================
;
;	GetMenuTitle
;
;        	Return pointer to menu's title.
;
;   IN:  PUSH:WORD - menu's ID.
;
;  OUT:  LONG - pointer to menu's title, zero if error.
;
;===========================================================================
GetMenuTitle	PROC

menunum	equ input
result	equ menunum+2

	jsr startup	Do startup initialization for tool call.
	jsr lockMenuBar	<barPtr = (<barHand), bar & menus locked.
	beq exit2	Is there a current menu bar?

	lda menunum,s
	jsr getmptr	Put menu pointer into 'menuptr'.
	beq exit	Menu not found?

	ldy #TitleName	Return pointer to menu's title.
	lda [<menuptr],y
	sta result,s
	iny
	iny
	lda [<menuptr],y
	sta result+2,s

exit	jsr unlockMenuBar	Leave menu bar & menus unlocked.

exit2	brl pop2bytes	no error

	ENDP


;===========================================================================
;
;	GetIPtr
;
;        	Find pointer of item.
;
;
;   IN:    a = item's ID, zero to find first item, $FFFF to find last.
;
;  OUT:    itemptr = pointer to item.
;          Equal flag = TRUE if error.
;
;===========================================================================
GetIPtr	PROC

; --- Search every menu in the menu bar	-----------------------------
;
	sta <work	Save ID I'm looking for.

	jsr getmfirst	Start with first menu.
	beq exit	Are there any menus?

lop3	jsr getiptr3	Search every item in menu.
	bne exit	Item found?

nextmenu	jsr next_menu	Try next menu.
	bne lop3	Any more menus?

exit	rts


	ENTRY getiptr2
getiptr2

	sta <work	Save ID to look for.
;
; ------ Search every item in the menu ------------------------------
;
	ENTRY getiptr3
getiptr3

lop1	jsr getifirst	Get pointer to first item in menu.
	bne lop2	Are there any items	in the menu?
	rts	12/5/88 HY, if no items were found we used to bra to nextmenu
;		now I just return if the menu is empty.

lop2	lda <work	ID I'm looking for.
	beq found	Looking for first one?
	cmp #$FFFF	Looking for last one?
	beq ck_last
	cmp [<itemptr]	Does item's ID match ID I'm looking for?
	bne nextitem
	bra found	If matched, I found	it.

ck_last	ldy #ITEMSIZE	Look at the ID of the next item.
	lda [<itemptr],y
	bne nextitem	Is it the last?

found	lda #1	Set not equal flag for found.
	rts

nextitem	jsr next_item	Next item.
	bne lop2	Any more items in this menu?

	rts

	ENDP


;===========================================================================
;
;	SetItemID
;
;        	Set new item ID.
;
;   IN:    PUSH:WORD - new ID.
;          PUSH:WORD - item's ID.
;
;  OUT:    None.
;
;===========================================================================
SetItemID	PROC

itemnum	equ input
newID	equ itemnum+2

	jsr startup	Do startup initialization for tool call.
	jsr lockMenuBar	<barPtr = (<barHand), bar & menus locked.
	beq exit2	Is there a current menu bar?

	lda itemnum,s
	jsr getiptr
	beq exit	Error?

	lda newID,s
	sta [<itemptr]

exit	jsr unlockMenuBar	Leave menu bar & menus unlocked.

exit2	brl pop4bytes	no error

	ENDP

;===========================================================================
;
;	SetMItem2
;
;  IN: PUSH:WORD - refdescriptor, describes what next long is (0=ptr, 1=hdl, 2=res ID)
;      PUSH:LONG - titleref, pointer, handle or resource ID of a resource menu item
;      PUSH:WORD - item's ID
;
; OUT: None.
;
;===========================================================================
SetMItem2	PROC

itemnum	equ input
titleref	equ itemnum+2	; ptr, hdl, resource ID of new item name
refdescriptor	equ titleref+4

myTemp	equ work
newFlag	equ myTemp+4

	jsr startup
	jsr lockmenubar
	bne @FoundMenuBar
	brl exit2
@FoundMenuBar
	lda itemnum,s
	jsr getiptr
	bne @FoundItem
	brl exit	Error?
@FoundItem
	jsr badCache	Set cache to bad if menu has a cache

	ldy #ItemFlag	Get flag of current item and clear the first two bits
	lda [<itemptr],y	We need to clear them because latter on we're going to
	and #CLEAR_TWO_BITS 'OR' it with the new value
	sta [<itemptr],y

	lda titleref,s
	sta <myTemp
	lda titleref+2,s
	sta <myTemp+2

	lda refdescriptor,s
	asl a
	tax
	jmp (table,x)

table	dc.w pointer
	dc.w handle
	dc.w resourceID

resourceID	lda titleref+2,s	Load the menu item resource and get the handle to it
	tax
	lda titleref,s
	ldy #rMenuItem
	jsr LoadnRelease
	sta <myTemp	Store handle back on my direct page
	stx <myTemp+2

handle	ldy #2	Dereference the menu item handle and put ptr back
	lda [<myTemp],y	into my direct page
	tax
	lda [<myTemp]
	sta <myTemp
	stx <myTemp+2

pointer	ldy #resItemFlag	Find out how the item name is being referenced, is it a
	lda [<myTemp],y	pointer, handle, or resource ID?
	and #FIRST_TWO_BITS
	sta <newFlag

	ldy #ItemFlag
	lda [<itemptr],y
	ora <newFlag
	sta [<itemptr],y	Update the item flag in our item record

	ldy #resItemName+2	Get new name from item template, which may be
	lda [<myTemp],y	a ptr, hdl, or resource ID.
	pha
	ldy #resItemName
	lda [<myTemp],y
	pha

	lda <itemptr	Move ptr to item's record into <temptr.
	sta <temptr
	lda <itemptr+2
	sta <temptr+2

	ldy #itemflag	Check if there is the new structure associated
	lda [<itemptr],y	with this item.
	and #I_NEWSTRUCTURE
	beq @oldway

	jsr GetStruct	There is so get the ptr to the new structure
	ldy #itemName2	and store the ptr in <temptr.
	bra @setit
@oldway
	ldy #itemName
@setit	pla
	sta [<temptr],y
	pla
	iny
	iny
	sta [<temptr],y

exit	jsr unlockmenubar

exit2	brl pop8bytes

	ENDP

;===========================================================================
;
;	SetMItem
;
;        	Set new item string.
;
;   IN:    PUSH:LONG - pointer to new string.
;          PUSH:WORD - item's ID.
;
;  OUT:    None.
;
;===========================================================================
SetMItem	PROC

itemnum	equ input
strg	equ itemnum+2

	jsr startup	Do startup initialization for tool call.
	jsr lockMenuBar	<barPtr = (<barHand), bar & menus locked.
	beq exit2	Is there a current menu bar?

	lda itemnum,s
	jsr getiptr
	beq exit	Error?

	jsr badCache	Set cache to bad if	menu has a cache.

	ldy #ItemFlag	Since the reference to the item name is a ptr to that name
	lda [<itemptr],y	we clear the first two bits of the item flag
	and #CLEAR_TWO_BITS
	sta [<itemptr],y

	lda strg,s	Pass pointer to string.
	sta <strg_ptr
	lda strg+2,s
	sta <strg_ptr+2

	jsr parse_strg	Get and set length of string.

	lda <itemptr	Move ptr to item's record to <temptr.
	sta <temptr
	lda <itemptr+2
	sta <temptr+2

	ldy #ItemFlag	Check if item has new structure associated
	lda [<itemptr],y	with it.
	and #I_NEWSTRUCTURE
	beq @oldway

	jsr GetStruct	There is so get the ptr to the new structure
	ldy #itemName2	and store the ptr in <temptr.
	bra @setit
@oldway
	ldy #ItemName	Set adjusted pointer to new string.
@setit	lda <strg_ptr
	sta [<temptr],y
	lda <strg_ptr+1
	iny
	sta [<temptr],y

exit	jsr unlockMenuBar	Leave menu bar & menus unlocked.

exit2	brl pop6bytes	no error

	ENDP


;===========================================================================
;
;	GetItem
;
;        	Get item's string.
;
;   IN:  PUSH:WORD - item's ID.
;
;  OUT:  LONG - pointer to item's text.
;
;===========================================================================
GetItem	PROC

itemnum	equ input
result	equ itemnum+2

	jsr startup	Do startup initialization for tool call.
	jsr lockMenuBar	<barPtr = (<barHand), bar & menus locked.
	beq exit2	Is there a current menu bar?

	lda itemnum,s	Get item's ID.
	jsr getiptr	Now get its pointer.
	bne foundSomething	Error?
	jsr unlockMenuBar
	ldy #Item_Not_Found
	brl Epop2bytes

foundSomething	lda <itemptr
	sta <temptr
	lda <itemptr+2
	sta <temptr+2

	ldy #itemflag	Check if there is the new structure associated
	lda [<itemptr],y	with this item.
	and #I_NEWSTRUCTURE
	beq @OldWay

	jsr GetStruct	There is so get the ptr to the new structure
	ldy #itemName2	and store the ptr in <temptr.
	bra @getit
@OldWay
	ldy #ItemName
@getit	lda [<temptr],y
	sta result,s
	iny
	iny
	lda [<temptr],y
	sta result+2,s

exit	jsr unlockMenuBar	Leave menu bar & menus unlocked.

exit2	brl pop2bytes	no error

	ENDP


;===========================================================================
;
;	SetMItemName2
;
;  IN: PUSH:WORD - refdescriptor, describes what next long will be
;      PUSH:LONG - titleref, pointer, handle, or resource ID of title name
;      PUSH:WORD - menuitem, ID of item that will get new title
;
; OUT: None.
;
;===========================================================================
SetMItemName2	PROC

itemnum	equ input
titleref	equ itemnum+2	; ptr, hdl, resource ID of new item name
refdescriptor	equ titleref+4

	jsr startup
	jsr lockMenuBar
	beq exit2

	lda itemnum,s	Get item's ID.
	jsr getiptr	Now get its pointer (in <itemptr).
	beq exit	Error?

	jsr badCache	Set cache to bad if	menu has a cache.

	lda <itemptr	Store ptr to item's record in <temptr.
	sta <temptr
	lda <itemptr+2
	sta <temptr+2

	ldy #itemflag	Check to see if item has new structure
	lda [<temptr],y	associated with it.
	and #I_NEWSTRUCTURE
	beq @oldway
	jsr GetStruct	There is so get the ptr to the new structure
	ldy #itemName2	and store the ptr in <temptr.
	bra getIt
@oldway
	ldy #ItemName	Insert new item name into the item record
getit
	lda titleref,s
	sta [<temptr],y
	iny
	iny
	lda titleref+2,s
	sta [<temptr],y

	lda refdescriptor,s
	asl a
	tax

	ldy #ItemFlag	Get flag of current item and clear the first two bits
	lda [<itemptr],y	We need to clear them because later on we're going to
	and #CLEAR_TWO_BITS 'OR' it with the new value

	jmp (table,x)

table	dc.w pointer
	dc.w handle
	dc.w resourceID

resourceID	ora #M_RESOURCEID
	bra pointer

handle	ora #M_HANDLE

pointer	sta [<itemptr],y

exit	jsr unlockMenuBar

exit2	brl pop8bytes

	ENDP


;===========================================================================
;
;	SetMItemName
;
;        	Set item's string.
;
;   IN:    PUSH:LONG - pointer to pascal string.
;          PUSH:WORD - item's ID.
;
;  OUT:    None.
;
;===========================================================================
SetMItemName	PROC

itemnum	equ input
newName	equ itemnum+2

	jsr startup	Do startup initialization for tool call.
	jsr lockMenuBar	<barPtr = (<barHand), bar & menus locked.
	beq exit2	Is there a current menu bar?

	lda itemnum,s	Get item's ID.
	jsr getiptr	Now get its pointer.
	beq exit	Error?

	jsr badCache	Set cache to bad if	menu has a cache.

	lda <itemptr	Store ptr to item's record in <temptr.
	sta <temptr
	lda <itemptr+2
	sta <temptr+2

	ldy #ItemFlag	Get flag of current item and clear the first two bits
	lda [<itemptr],y	We need to clear them because later on we're going to
	and #CLEAR_TWO_BITS 'OR' it with the new value
	sta [<itemptr],y

	lda [<itemptr],y	Check if item has new structure associated
	and #I_NEWSTRUCTURE	with it.
	beq @oldway

	jsr GetStruct	There is so get the ptr to the new structure
	ldy #itemName2	and store the ptr in <temptr.
	bra @getit
@oldway
	ldy #ItemName
@getit	lda newName,s
	sta [<temptr],y
	iny
	iny
	lda newName+2,s
	sta [<temptr],y

exit	jsr unlockMenuBar	Leave menu bar & menus unlocked.

exit2	brl pop6bytes	no error

	ENDP


;===========================================================================
;
;	EnableMItem
;
;          	Enable Item
;
;   IN:    PUSH:WORD - item ID.
;
;  OUT:    None.
;
;===========================================================================
EnableMItem	PROC

itemnum	equ input

	jsr startup	Do startup initialization for tool call.
	lda #$FF7F	Clear disable bit.

	ENTRY set_iflag
set_iflag

	pha	Pass newvalue.
	lda itemnum+2,s	Pass item's ID.
	pha
	_SetMItemFlag	Set the item's flag.

	brl pop2bytes	no error

	ENDP


;===========================================================================
;
;          	DisableMItem
;
;   IN:    PUSH:WORD - item ID.
;
;  OUT:    None.
;
;===========================================================================
DisableMItem	PROC

	jsr startup	Do startup initialization for tool call.

	lda #I_ENABLED	Clear disable bit.
	bra set_iflag

	ENDP


;===========================================================================
;
;	SetMItemStyle
;
;        	Set item's style.
;
;   IN:    PUSH:WORD - new style.
;          PUSH:WORD - item ID.
;
;  OUT:    None.
;
;===========================================================================
SetMItemStyle	PROC

itemnum	equ input
newstyle	equ itemnum+2

	jsr startup	Do startup initialization for tool call.

StyleBits	equ I_NoBold+I_NoItalic+I_NoScore+I_NoShadow+I_NoOutline

	pea $FFFF-StyleBits Clear existing style
	lda itemnum+2,s	Pass item's ID.
	pha
	_SetMItemFlag

; Take the input style word and convert it to the format that is in the itemFlag word
; (bold, italic and underline are in the low 3 bits of low byte. shadow and outline
; are in bits 3 and 4 of the high byte.)

	lda newstyle,s
	tax
	and #I_Nobold+I_NoItalic+I_NoScore
	pha
	txa
	xba
	and #I_NoShadow+I_NoOutline
	ora 1,s
	sta 1,s

	lda itemnum+2,s
	pha	Pass item's ID.
	_SetMItemFlag	Set the item's flag.

	brl pop4bytes	no error

	ENDP


;===========================================================================
;
;        	GetItemStyle
;
;   IN:    PUSH:WORD - item ID.
;
;  OUT:    WORD - item's style.
;
;===========================================================================
GetItemStyle	PROC

itemnum	equ input
result	equ itemnum+2

	jsr startup	Do startup initialization for tool call.
	jsr lockMenuBar	<barPtr = (<barHand), bar & menus locked.
	beq exit2	Is there a current menu bar?

	lda itemnum,s	Get item's ID.
	jsr getiptr	Now get its pointer.
	beq exit	Error?

	ldy #ItemFlag
	lda [<itemptr],y

;
; Take the word from the item flag and convert it to the format of a style word.
;
	tax
	and #I_Nobold+I_NoItalic+I_NoScore
	sta result,s
	txa
	and #I_NoShadow+I_NoOutline
	xba
	ora result,s
	sta result,s

exit	jsr unlockMenuBar	Leave menu bar & menus unlocked.

exit2	brl pop2bytes	no error

	ENDP


;===========================================================================
;
;	SetMItemFlag
;
;   IN:    PUSH:WORD - new bits for flag.
;          PUSH:WORD - item ID.
;
;  OUT:  None.
;
;===========================================================================
SetMItemFlag	PROC

itemnum	equ input
newvalue	equ itemnum+2

	jsr startup	Do startup initialization for tool call.
	jsr lockMenuBar	<barPtr = (<barHand), bar & menus locked.
	beq exit2	Is there a current menu bar?

	lda itemnum,s	Get item's ID.
	jsr getiptr	Now get its pointer.
	beq exit	Error?

	jsr badCache	Set cache to bad if	menu has a cache.

	ldy #ItemFlag
	lda newvalue,s
	bmi reset

	ora [<itemptr],y	Set desired bits.
	bra store

reset	and [<itemptr],y	Clear desired bits.
store	sta [<itemptr],y	Store new flag.

exit	jsr unlockMenuBar	Leave menu bar & menus unlocked.

exit2	brl pop4bytes	no error

	ENDP


;===========================================================================
;
;	CheckMItem
;
;   IN:    PUSH:WORD - TRUE to check, FALSE to uncheck.
;          PUSH:WORD - item's ID number.
;
;  OUT:    None.
;
;===========================================================================
CheckMItem	PROC

itemnum	equ input
newMark	equ itemnum+2

	jsr startup	Do startup initialization for tool call.
	jsr lockMenuBar	<barPtr = (<barHand), bar & menus locked.
	beq exit2	Is there a current menu bar?

	lda newMark,s
	beq setMark

	lda #$0012	Check mark.
	sta newMark,s
	bra setMark


; = = = = = = = = =	= = = = = = = = = = = = = = = = = = = = = =
;          Mark an item.
;
;   IN:    PUSH:WORD - character mark, zero for no mark.
;          PUSH:WORD - item's ID number.
;
;  OUT:    None.
; = = = = = = = = =	= = = = = = = = = = = = = = = = = = = = = =
	ENTRY SetMItemMark
SetMItemMark

	jsr startup	Do startup initialization for tool call.
	jsr lockMenuBar	<barPtr = (<barHand), bar & menus locked.
	beq exit2	Is there a current menu bar?

setMark	lda itemnum,s	Get item's ID.
	jsr getiptr	Now get its pointer.
	beq exit	Error?

	jsr badCache	Set cache to bad if	menu has a cache.

	ldy #ItemCheck
	lda [<itemptr],y
	and #$FF00	Clear current mark.
	ora newMark,s	Install new mark.
	sta [<itemptr],y

exit	jsr unlockMenuBar	Leave menu bar & menus unlocked.

exit2	brl pop4bytes	no error

	ENDP


;===========================================================================
;
;	GetItemMark
;
;          	Get an item's mark.
;
;   IN:    PUSH:WORD - item's ID number.
;
;  OUT:    WORD - item's mark, zero = no mark.
;
;===========================================================================
GetItemMark	PROC

itemnum	equ input
result	equ itemnum+2

	jsr startup	Do startup initialization for tool call.
	jsr lockMenuBar	<barPtr = (<barHand), bar & menus locked.
	beq exit2	Is there a current menu bar?

	lda itemnum,s	Get item's ID.
	jsr getiptr	Now get its pointer.
	beq exit	Error?

	ldy #ItemCheck
	lda [<itemptr],y
	and #$00FF	Get item's mark.
	sta result,s	Return mark to caller.

exit	jsr unlockMenuBar	Leave menu bar & menus unlocked.

exit2	brl pop2bytes	no error

	ENDP


;===========================================================================
;
;	GetItemFlag
;
;        	Return item's ItemFlag.
;
;   IN:  PUSH:WORD - item ID.
;
;  OUT:  WORD - Item's ItemFlag.
;
;===========================================================================
GetItemFlag	PROC

itemnum	equ input
result	equ itemnum+2

	jsr startup	Do startup initialization for tool call.
	jsr lockMenuBar	<barPtr = (<barHand), bar & menus locked.
	beq exit2	Is there a current menu bar?

	lda itemnum,s	Get item's ID.
	jsr getiptr	Now get its pointer.
	beq exit	Error?

	ldy #ItemFlag
	lda [<itemptr],y	Get current flag,
	sta result,s	return it to caller.

exit	jsr unlockMenuBar	Leave menu bar & menus unlocked.

exit2	brl pop2bytes	no error

	ENDP


;===========================================================================
;
;        	SetItemBlink
;
;   IN:  PUSH:WORD - number of times items should blink when selected.
;
;  OUT:  None.
;
;===========================================================================
SetItemBlink	PROC

new_blink	equ input

	jsr startup	Do startup initialization for tool call.

	lda new_blink,s
	sta <blink

	brl pop2bytes	no error

	ENDP

;===========================================================================
;
;        	GetItemBlink
;
;   IN:  none
;
;  OUT:  blink value (word).
;
; (New call 19-Sep-90 DAL)
;
;===========================================================================
GetMItemBlink	PROC

result	equ 7

	tax	;point X at our direct page
	lda >blink,x	;loads from Blink on Menu Mgr DP
	sta result,s
	clc
	lda #0
	rtl

	ENDP


;===========================================================================
;
;        	SetItemIcon
;
; This routine sets the ItemIcon field of the item structure referenced
; by the value now in the itemname field.
; The ItemFlag2 field in this structure is also set according to how
; the icon will be referenced.
;
;   IN:  PUSH:WORD - refdescriptor for icon data
;        PUSH:LONG - reference to icon data
;        PUSH:WORD - item ID
;
;  OUT:  None.
;
;===========================================================================
SetItemIcon	PROC

iconItemID	equ input
iconRef	equ iconItemID+2
iconVerb	equ iconRef+4

	jsr startup
	jsr lockmenubar
	beq Exit2

	lda iconItemID,s	Get item's ID.
	jsr getiptr	Now get its pointer.
	beq exit	Error?

	ldy #ItemFlag	First check if we've got our new style item record
	lda [<itemptr],y	that allows icons.
	and #I_NEWSTRUCTURE
	beq ERROR	If zero then item record not setup properly to handle icons.

	jsr GetStruct	Get pointer to this new structure.
	ldy #ItemFlag2
	lda [<temptr],y
	and #$FFFC	Clear bits 0 and 1 which indicate how the icon will be
	ora iconVerb,s	referenced and "OR" in new verb.
	ora #I_NOICON	Set bit in flag that tells us there is an icon associated w/item.
	sta [<temptr],y

	ldy #ItemIcon	Store the icon ref in our structure.
	lda iconRef,s
	sta [<temptr],y
	ldy #ItemIcon+2
	lda iconRef+2,s
	sta [<temptr],y

exit	jsr unlockmenubar

exit2	brl pop8bytes	no error

ERROR	jsr unlockmenubar
	ldy #NoStruct	error, "Invalid access of new item structure."
	brl epop8bytes

	ENDP


;===========================================================================
;
;        	GetItemIcon
;
;   IN:  PUSH:LONG - result containing reference to item's icon
;        PUSH:WORD - item ID
;
;  OUT:  LONG - Reference to item's icon. Result is zero if there is no icon.
;
;===========================================================================
GetItemIcon	PROC

iconItemID	equ input
result	equ iconItemID+2

	jsr startup
	jsr lockmenubar
	beq exit2

	lda #0	Initialize result to zero.
	sta result,s
	sta result+2,s

	lda iconItemID,s
	jsr getiptr
	beq exit	item not found

	ldy #ItemFlag	Check if correct flags are set to indicate use of the
	lda [<itemptr],y	new structure.
	and #I_NEWSTRUCTURE
	beq ERROR	If zero item record not setup to handle icons.

	jsr GetStruct	Get reference to new structure and put in <temptr.
	ldy #ItemFlag2	Make sure structure is using ItemIcon field.
	lda [<temptr],y
	and #I_NOICON
	beq exit	If not, then we're done.

	ldy #ItemIcon	 Get the reference to the icon and put in result.
	lda [<temptr],y
	sta result,s
	ldy #ItemIcon+2
	lda [<temptr],y
	sta result+2,s

exit	jsr unlockmenubar
exit2	brl pop2bytes

ERROR	jsr unlockmenubar
	ldy #NoStruct
	brl epop2bytes

	ENDP


;===========================================================================
;
;        	SetItemStruct
;
;   IN:  PUSH:WORD - ItemStructVerb, describes how STRUCT will be referenced
;        PUSH:LONG - ItemStructRef, ptr, hdl, resource ID to STRUCT
;        PUSH:WORD - ItemID, ID of item to set
;
;  OUT:  None.
;
; This call allows a menu item specified by ItemID to now be associated with
; a new structure. The ref. to this structure now resides in the ITEMNAME field
; of the item's record. Bits 10, 9, and 8 are automatically set. The ref to the
; item's name is then stored in this new structure.
;
;===========================================================================
SetItemStruct	PROC

itemnum	equ input
ItemStructRef	equ itemnum+2
ItemStructVerb	equ ItemStructRef+4

	jsr Startup
	jsr LockMenuBar
	beq exit2	If a reg is zero upon return then no menubar present.

	lda itemnum,s
	jsr getiptr	Returns ptr to item record in <itemptr
	beq exit	If a reg is zero upon return then item not found.

	jsr badCache

	ldy #ItemFlag	Set bit 10 in itemflag to indicate that the field
	lda ItemStructVerb,s itemname is now a Ref. to this new structure.
	xba	Also set bits 8 and 9 to reflect how this structure
	ora #I_NEWSTRUCTURE	will be referenced.
	ora [<itemptr],y
	sta [<itemptr],y

	ldy #ItemName+2	Save ref. to item's name on stack.
	lda [<itemptr],y
	pha
	ldy #ItemName
	lda [<itemptr],y
	pha

	lda ItemStructRef+4,s Now store the ref. to the struct in the itemname field.
	sta [<itemptr],y
	lda ItemStructRef+6,s
	iny
	iny
	sta [<itemptr],y

	jsr GetStruct	Returns a ptr to the new structure in <temptr.
	ldy #ItemName2	Store itemname in its new location.
	pla
	sta [<temptr],y
	pla
	iny
	iny
	sta [<temptr],y

exit	jsr unlockMenuBar
exit2	jml pop8bytes

	ENDP


;===========================================================================
;
;        	GetItemStruct
;
;   IN:  PUSH:LONG - Result, ref to item's struct is returned here
;        PUSH:WORD - ItemID, ID of item's struct you want
;
;  OUT:  None.
;
; If bit 10 is set, then this call returns the reference to the item's
; structure.
;
;===========================================================================
GetItemStruct	PROC

itemnum	equ input
result	equ itemnum+2

	jsr Startup
	jsr lockmenubar
	beq exit2	If a-reg is zero upon return then no menubar present.

	lda #0	Initialize result to zero for time being.
	sta result,s
	sta result+2,s

	lda itemnum,s
	jsr getiptr
	beq exit	If a-reg is zero upon return then item not found.

	ldy #ItemFlag	See if item has additional structure associated with it.
	lda [<itemptr],y
	and #I_NEWSTRUCTURE
	beq exit

	ldy #ItemName
	lda [<itemptr],y
	sta result,s
	iny
	iny
	lda [<itemptr],y
	sta result+2,s

exit	jsr unlockmenubar
exit2	jml pop2bytes

	ENDP


;===========================================================================
;
;        	RemoveItemStruct
;
;   IN:  PUSH:WORD - ItemID, ID of item's struct you want removed
;
;  OUT:  None.
;
;===========================================================================
RemoveItemStruct	PROC

itemnum	equ input

	jsr startup
	jsr lockmenubar
	beq exit2	If a-reg is zero upon return then no menubar present.

	lda itemnum,s
	jsr getiptr
	beq exit	If a-reg is zero upon return then item not found.

	ldy #ItemFlag
	lda [<itemptr],y
	and #I_NEWSTRUCTURE	First check to make sure there is a structure.
	beq exit

	jsr badCache

	jsr GetStruct	Move itemname ref from the structure back to the
	ldy #ItemName2+2	item's record.
	lda [<temptr],y
	tax
	ldy #ItemName2
	lda [<temptr],y
	ldy #ItemName
	sta [<itemptr],y
	iny
	iny
	txa
	sta [<itemptr],y

	ldy #ItemFlag
	lda [<itemptr],y
	and #$F8FF	Clear bits 10, 9, and 8.
	sta [<itemptr],y

exit	jsr unlockmenubar
exit2	jml pop2bytes

	ENDP


;===========================================================================
;
;        	GetItemFlag2
;
;   IN:  PUSH:WORD - Result
;        PUSH:WORD - ItemID, ID of item that you want flag for.
;
;  OUT:  None.
;
;===========================================================================
GetItemFlag2	PROC

itemnum	equ input
result	equ itemnum+2

	jsr startup
	jsr lockmenubar
	beq exit2	If a-reg is zero upon return then no menubar present.

	lda #0
	sta result,s

	lda itemnum,s
	jsr getiptr
	beq exit	If a-reg is zero upon return then item not found.

	ldy #ItemFlag
	lda [<itemptr],y
	and #I_NEWSTRUCTURE
	beq exit

	jsr GetStruct
	ldy #ItemFlag2
	lda [<temptr],y
	sta result,s

exit	jsr unlockmenubar
exit2	jml pop2bytes

	ENDP


;===========================================================================
;
;        	SetItemFlag2
;
;   IN:  PUSH:WORD - ItemFlag2, new value you want ItemFlag2 to be set to
;        PUSH:WORD - ItemID, ID of item that you want to set.
;
;  OUT:  None.
;
;===========================================================================
SetItemFlag2	PROC

itemnum	equ input
NewItemFlag2	equ ItemNum+2

	jsr startup
	jsr lockmenubar
	beq exit2	If a-reg is zero upon return then no menubar present.

	lda itemnum,s
	jsr getiptr
	beq exit	If a-reg is zero upon return then item not found.

	ldy #ItemFlag
	lda [<itemptr],y
	and #I_NEWSTRUCTURE
	beq exit

	jsr badCache

	jsr GetStruct
	ldy #ItemFlag2
	lda NewItemFlag2,s
	sta [<temptr],y

exit	jsr unlockmenubar
exit2	jml pop4bytes

	ENDP


;===========================================================================
;
;	PushDefBarRect
;
;          	Push address of a RAM data area value.
;
;===========================================================================
pushdefBarRect	PROC
	lda #defMenu+CtlRect
	bra pushData

	ENTRY pushmark
pushmark	lda #mark
	bra pushData

	ENTRY pushcom_key
pushcom_key	lda #com_key
	bra pushData

	ENTRY pushimage
pushimage	lda #image
	bra pushData

	ENTRY pushColorTable
pushColorTable	lda #ColorTable
	bra pushData

	ENTRY pushDefMenu
pushDefMenu	lda #defMenu
	bra pushData

	ENTRY pushport
pushport	lda #port


; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = = = = = = =
;          Push pointer to data area variable.
;
;   IN:    a = offset into data area.
;          <data = pointer to data area.
;
;  OUT:    <data+a on stack.
;100= = = = = = = =	= = = = = = = = = =	= = = = = = = = = = = = = = =
	ENTRY pushData
pushData	plx

	ldy <data+2
	clc
	adc <data
	bcc store100
	iny
store100	phy
	pha

	phx

	rts

	ENDP


;===========================================================================
;
;	CloseMenuPort
;
;          	Close Menu Manager's port.
;
;===========================================================================
closeMenuPort	PROC

	jsr pushport	Pass pointer to Menu Manager port.
	_ClosePort

	rts

	ENDP


;===========================================================================
;
;	PushColor2
;
;        	Get a solid color pattern
;
;  IN:   a = zero to use norcolor, not zero to use hiliteclr.
;
; OUT:   pointer to	pattern on stack.
;
;===========================================================================
pushcolor2	PROC

	ldy <norcolor
	tax
	beq ok
	ldy <hiliteclr
ok	tya

	ENTRY pushcolor
pushcolor

;  IN:   a = bits 7-4 equal color index.
;
	ply	Grab return address.

**  Replaced 26-Sep-90 DAL
**
**	pea color_patt>>16
**	and #$00F0
**	asl a
**	adc #color_patt

	entry SelfMod1High
SelfMod1High	pea $7777
	and #$00f0
	asl a
	entry SelfMOd1Low
SelfMod1Low	adc #$7777

	pha
	phy

	rts

	ENDP


;===========================================================================
;
;	Get_Apple
;
;        	Smear a mono bit image into color.
;
;  IN:   a = background color in bits 4-7.
;
; OUT:   x = high word address of pattern.
;        y = low word address of pattern.
;
;===========================================================================
get_apple	PROC

imagePtr	equ work	Pointer to image buffer.
background	equ imagePtr+4	Background color.
apple_mask	equ background+2	Pointer to image mask.
apple_data	equ apple_mask+2	Pointer to image data.

; --- Initialize for 320 mode -----------------
;
	and #$00F0
	asl a
***	tay
***	lda color_patt,y	;replaced 26-Sep-90 DAL
*** replaced above with below 26-Sep-90 DAL
	phx
	tax
	entry SelfMod2
SelfMod2	lda >$777777,x
	plx
*** end of 26-Sep-90 replacement

	sta <background

	jsr pushimage	Get address of 'image'.
	pla
	sta <imagePtr
	pla
	sta <imagePtr+2

	lda #_320_mask
	sta <apple_mask
	lda #_320_data
	sta <apple_data

	ldy #62

	lda <scInfo1	What mode are we in?
	and #$0080
	beq lop1

; --- Initialize for 640 mode ----------------
;
	lda #_640_mask
	sta <apple_mask
	lda #_640_data
	sta <apple_data

; --- Fill background around apple and put into image buffer ------------
;
	ldy #30
lop1	lda <background
	and (<apple_mask),y
	ora (<apple_data),y
	sta [<imagePtr],y	Store into 'image' buffer.
	dey
	dey
	bpl lop1

	rts

	ENDP


;===========================================================================
;
;	DrawRect
;
;        	Draw a solid rectangle with border.
;
;  IN:     x/a = address of RECT.
;          y = pattern/color.
;
;===========================================================================
drawrect	PROC

	phx	For frame call.
	pha

	phx	For fill call.
	pha

	tya
	jsr pushcolor	Push pointer to color pattern.
	_FillRect	Address of RECT already on stack.

	_FrameRect	Address of RECT already on stack.

	rts

	ENDP


;===========================================================================
;
;        	PrintStrg
;
;   IN:    strg_ptr	= string to print.
;          x = x poistion.
;          y = y position.
;
;===========================================================================
printstrg	PROC

	phx	Starting x position.
	phy	Starting y position.
	_MoveTo	Set pen's starting position.

	pei <strg_ptr+2	Pass pointer to string.
	pei <strg_ptr
	_DrawString

	rts

	ENDP


;            APPEND	MCACHE.ASM
;
;===========================================================================
;
;	Cache
;
;          	Fill cache.
;
;   IN:    menurect	= RECT to cache.
;          sav_buff	= handle of cache.
;
;  OUT:    a = TRUE	if menu image moved	from cache to screen.
;          a = FALSE if only screen saved, menu will have to be drawn.
;
;===========================================================================
cache	PROC

ssave	equ work	0
lmask	equ ssave+4	4
rmask	equ lmask+2	6
lsmask	equ rmask+2	8
rsmask	equ lsmask+2	10
lineAddr	equ rsmask+2	12
cWidth	equ lineAddr+2	14
cHeight	equ cWidth+2	16
cacheBuff	equ cHeight+2	18
;	                  	22
;
; --- Allocate temp	direct page ----------------------------------
;

temp1	equ temptr
temp2	equ temp1+2
tempY2	equ temptr2

	lda <menurect+y1	Just in case menu extends beyond the top of the screen
	sta <temp1	(a pop-up menu just might do this).
	bpl @1

	stz <temp1
@1
	lda <menurect+x1
	sta <temp2
	bpl @2

	stz <temp2
@2

	lda <menurect+y2	Check if the menu drops below the screen, if it
	cmp #200	does then we need to adjust it.
	bcc NotBelowScreen
	lda #200
NotBelowScreen	sta <tempY2

	_HideCursor

	ldy #2	Dereference cache handle.
	lda [<sav_buff],y
	sta <cacheBuff+2
	lda [<sav_buff]
	sta <cacheBuff

; --- Compute move parameters ---------------------------------------
;
	lda <screenmode
	bne mode640

; ------ 320 mode parameters ---------------------
;
	lda <temp2
	and #$FFFC
	sta <cWidth

	lda <menurect+x2
	tax
	and #$0003
	beq ok10
	txa
	and #$FFFC
	clc
	adc #$0004
	tax
ok10	txa
	sec
	sbc <cWidth
	bra enter1
;
; ------ 640 mode parameters ---------------------
;
mode640	lda <temp2
	and #$FFF8
	sta <cWidth

	lda <menurect+x2
	tax
	and #$0007
	beq ok11
	txa
	and #$FFF8
	clc
	adc #$0008
	tax

ok11	txa
	sec
	sbc <cWidth
	lsr a

enter1	lsr a	Get's number of bytes wide,
	dec a	make it zero relative.
	dec a
	sta <cWidth	Number of bytes wide.

	ldy #cacheWidth
	sta [<cacheBuff],y	Remember number of word wide.

	lda <tempY2	Get bottom of menu
	sec
	sbc <temp1
	sta <cHeight	Number of lines high.

	ldy #cacheHeight
	sta [<cacheBuff],y	Remember number of lines.

	lda <temp2
	and #$FFFC	320 mode.
	ldx <screenmode
	beq ok1
	and #$FFF8	640 mode.
	lsr a

ok1	lsr a
	tax	Word on line to start with.

	lda <temp1	Compute starting screen address.
	asl a
	tay
	txa
	clc
	adc [<lineTable],y
	sta <lineAddr
	ldy #cachey1x1
	sta [<cacheBuff],y	Remember starting line address.

; --- Perform move or exchange -----------------------------------------
;
	phb	Save caller's data bank pointer.
	ldy #port+4	Switch to menu manager's pixel map bank.
	lda [<data],y
	xba
	pha
	plb
	plb

	lda [<cacheBuff]	Is the menu image already cached?
	bne both

;----------------------------------------------------
;          Save screen to cache.
;----------------------------------------------------
;
	ldy #cacheCache	Starting pointer in	cache for data.

lop2	ldx <cWidth	Initialize bytes per line counter.
lop1	phy
	txy
	lda (<lineAddr),y	Fetch from screen,
	ply
	sta [<cacheBuff],y	store in cache.
	iny
	iny
	dex
	dex
	bpl lop1

	lda <lineAddr
	clc
	adc #160
	sta <lineAddr

	dec <cHeight
	bne lop2

	ldy #0	Menu not drawn from	cache flag.
	brl exit

;---------------------------------------------
;          Move cache to screen while
;          saving screen to cache.
;---------------------------------------------
both

save4	equ 1	Stack offsets.
Save3_5	equ 3	; damn that Dan O.
save3	equ 5
save2	equ 7
save1	equ 9
;
;
; --- Save tid-bits	------------------------------------
;
	lda <menurect+x2
	sec
	sbc #2
	ldx <screenmode
	beq ok4
	sbc #2

ok4	lsr a
	txy
	beq ok5
	lsr a

ok5	tax
	lda <temp1	Compute starting screen address.
	asl a
	tay
	txa
	clc
	adc [<lineTable],y
	tay
	lda |0,y
	pha	save1
	lda |160,y
	pha	save2
	lda |320,y
	pha	save3
	lda |480,y
	pha	save3_5

	lda <temp2
	lsr a
	ldx <screenmode
	beq ok6
	lsr a

ok6	tax
	lda <tempY2	Compute starting screen address.
	dec a
	asl a
	tay
	txa
	clc
	adc [<lineTable],y
	tay
	lda |0,y
	pha	save4

; --- Compute masks	for blit -----------------------------
;
	lda <temp2
	and #$0007
	ldy <screenmode	; changed to fix a dropshadow bug
	bne ok2
	and #$0003
	asl a
ok2	asl a
	tax
	lda >lmasks,x
	sta <lmask
	eor #$FFFF
	sta <lsmask

	lda <menurect+x2
	dec a
	and #$0007
	tyx	; changed to fix a dropshadow bug. Mensch
	bne ok3
	and #$0003
	asl a
	inc a	; fix purple haze problem
ok3	asl a
	tax
	lda >rmasks,x
	sta <rmask
	eor #$FFFF
	sta <rsmask

; --- Perform blit -------------------------------------------
;
	ldy #cacheCache	Starting pointer in	cache for data.

lop4	ldx <cWidth	Initialize bytes per line counter.

	lda [<cacheBuff],y	Fetch menu from cache and save.
	and <rmask
	sta <ssave

	phy
	txy
	lda (<lineAddr),y	Fetch from screen,
	sta <ssave+2	save.

	and <rsmask	Put menu on screen.
	ora <ssave
	sta (<lineAddr),y

	lda <ssave+2	Save screen in cache.
	ply
	sta [<cacheBuff],y

	iny
	iny
	dex
	dex

lop3	lda [<cacheBuff],y	Fetch menu from cache and save.
	sta <ssave

	phy
	txy
	lda (<lineAddr),y	Fetch from screen,
	sta <ssave+2	save.
	lda <ssave	Put menu on screen.
	sta (<lineAddr),y
	lda <ssave+2	Save screen in cache.
	ply
	sta [<cacheBuff],y

	iny
	iny
	dex
	dex
	bne lop3

	lda [<cacheBuff],y	Fetch menu from cache and save.
	and <lmask
	sta <ssave

	phy
	txy
	lda (<lineAddr),y	Fetch from screen,
	sta <ssave+2	save.

	and <lsmask	Put menu on screen.
	ora <ssave
	sta (<lineAddr),y

	lda <ssave+2	Save screen in cache.
	ply
	sta [<cacheBuff],y

	iny
	iny

	lda <lineAddr
	clc
	adc #160
	sta <lineAddr

	dec <cHeight
	bne lop4

; ------ Restore tid-bits ------------------------------------
;
; ------ Lower left	corner --------------------------------
;
	lda <temp2
	sta <ssave+2
	lsr a
	ldx <screenmode
	beq ok9
	lsr a
ok9	tax
	lda <tempY2	Compute starting screen address.
	dec a
	asl a
	tay
	txa
	clc
	adc [<lineTable],y
	sta <ssave

	lda <ssave+2
	ldx <screenmode
	bne Amode_640

	ldx #2
	and #1
	beq store1
	ldx #6
	bra store1

Amode_640	and #3
	asl a
	tax	Index to mask.
store1	lda >rmasks+8,x
	sta <rmask
	eor #$FFFF
	sta <rsmask

	lda save4,s
	and <rmask
	sta save4,s

	ldy <ssave
	lda |0,y
	and <rsmask
	ora save4,s
	sta |0,y

	lda <menurect+x2
	sec
	sbc #2
	ldx <screenmode
	beq ok7
	sbc #2
ok7	sta <ssave+2
	lsr a
	txy
	beq ok8
	lsr a
ok8	tax
	lda <temp1	Compute starting screen address.
	asl a
	tay
	txa
	clc
	adc [<lineTable],y
	sta <ssave

	lda <ssave+2
	ldx <screenmode
	bne mode_640

	and #1
	asl a

mode_640	and #3
	asl a
	tax	Index to mask.
	lda >lmasks,x
	sta <rmask
	eor #$FFFF
	sta <rsmask

	lda save1,s
	and <rmask
	sta save1,s

	lda save2,s
	and <rmask
	sta save2,s

	lda save3,s
	and <rmask
	sta save3,s

	lda save3_5,s
	and <rMask
	sta save3_5,s

	ldy <ssave
	lda |0,y
	and <rsmask
	ora save1,s
	sta |0,y

	lda |160,y
	and <rsmask
	ora save2,s
	sta |160,y

	lda |320,y
	and <rsmask
	ora save3,s
	sta |320,y

	lda |480,y
	and <rsMask
	ora save3_5,s
	sta |480,y

	pla	Get rid of save4.
	pla	Get rid of save3_5.
	pla	Get rid of save3.
	pla	Get rid of save2.
	pla	Get rid of save1.

; --- Return to caller -----------------------------------------
;
exit	plb	Restore caller's data bank pointer.
	phy	Save flag.
	_ShowCursor
	pla	Restore flag.

	rts

lmasks	DC.W $FFFF,$FF3F,$FF0F,$FF03,$FF00,$3F00,$0F00,$0300
rmasks	DC.W $00C0,$00F0,$00FC,$00FF,$C0FF,$F0FF,$FCFF,$FFFF

	ENDP


;===========================================================================
;
;          	UnCache
;
;   IN:    sav_buff	= handle of cache.
;
;===========================================================================
UnCache	PROC

saveCache	equ work
saveScreen	equ saveCache+2
lineAddr	equ saveScreen+2
cHeight	equ lineAddr+4
cWidth	equ cHeight+2
cacheBuff	equ cWidth+2

	_HideCursor

	ldy #2	Dereference cache handle.
	lda [<sav_buff],y
	sta <cacheBuff+2
	lda [<sav_buff]
	sta <cacheBuff

	ldy #cachey1x1
	lda [<cacheBuff],y	Starting screen address.
	sta <lineAddr

	ldy #cacheWidth	Number of bytes per	line.
	lda [<cacheBuff],y
	sta <cWidth

	ldy #cacheHeight	Number of lines.
	lda [<cacheBuff],y
	sta <cHeight

	phb	Save caller's data bank pointer.
	ldy #port+4	Switch to menu manager's pixel map bank.
	lda [<data],y
	xba
	pha
	plb
	plb

	ldy #cacheCache	Starting pointer in	cache for data.

lop2	ldx <cWidth	Initialize bytes per line counter.
lop1	lda [<cacheBuff],y
	sta <saveCache
	phy
	txy
	lda (<lineAddr),y
	sta <saveScreen
	lda <saveCache
	sta (<lineAddr),y
	ply
	lda <saveScreen
	sta [<cacheBuff],y
	iny
	iny
	dex
	dex
	bpl lop1

	lda <lineAddr	Next line.
	clc
	adc #160
	sta <lineAddr

	dec <cHeight	Any more lines?
	bne lop2

	plb	Restore caller's data bank pointer.

	lda #1	Mark cache as good.
	sta [<cacheBuff]

	_ShowCursor

	rts

	ENDP


;===========================================================================
;
;	MakeCache
;
;          	Allocate a cache for a menu.
;
;   IN:    menuptr = pointer to menu.
;          menuhand	= handle of menu.
;
;===========================================================================
makeCache	PROC

cBuff	equ work

	jsr allocateCache
	bcs exit	Was cache allocated?

	phx	Save allocated cache.
	pha

	ldy #MenuCache	Store cache handle in menu's record.
	pla
	tax
	sta [<menuptr],y
	iny
	iny
	pla
	sta [<menuptr],y

	pea 3	Pass purge level 3 (first to go).
	pha	Pass cache handle.
	phx

	jsr badCache	Dereference cahce and mark as bad.

	_SetPurge	Mark the cache as purgeable.

exit	rts

	ENDP


;===========================================================================
;
;	AllocateCache
;
;          	Allocate a menu cache.
;
;   IN:    menuptr = pointer to menu record.
;
;  OUT:    Carry clear if x/a = handle of cache, carry set if no cache.
;
;===========================================================================
allocateCache	PROC

cWidth	equ work
cHeight	equ cWidth+2

	ldy #MenuWidth
	lda [<menuptr],y	Width in pixels,
	clc
	ldx <screenmode
	bne mode640

	adc #2	plus 320 mode drop shadow width.
	bra ok2

mode640	adc #4	plus 640 mode drop shadow width.
	lsr a
ok2	lsr a
	clc
	adc #4
	sta <cWidth	Number of bytes per	line.
	and #1
	beq ok3
	inc <cWidth

; --- Allocate a cache buffer for the menu ----------------------------------
;
ok3	pha
	pha	Space for multiply result.
	pei <cWidth	Pass number of bytes per line.

	ldy #MenuHeight
	lda [<menuptr],y
*** added 25-Mar-93 DAL -- Clip the height to 200, because pop-up menus have
***   huge MenuHeight fields that do not correspond to the amount of memory
***   needed to save the screen.  In fact, they can get so big that the
***   following multiply comes out to more than $FFFF, and we ignore the
***   high word!
	cmp #200	does then we need to adjust it.
	bcc @notTooHuge
	lda #200
@notTooHuge
*** end 25-Mar-93
	inc a	plus room for the drop shadow
	sta <cHeight
	pha	Pass number of lines.

	_Multiply
	pla	Number of bytes needed.
	plx
	clc
	adc #cacheCache	Extra needed for header.
;	                  	Pass number of bytes to allocate in A.

	ldy <MyID	Pass ID to use.
	brl allocate2	Allocate memory for	the buffer.

	ENDP


;===========================================================================
;
;	BadCache
;
;          	Set cache to bad if menu has a cache.
;
;   IN:    menuptr = pointer to menu.
;
;===========================================================================
badCache	PROC

	ldy #MenuFlag	Check if there can be a cahce.
	lda [<menuptr],y
	and #M_CACHE
	beq exit

	ldy #MenuCache+1	Is there a cache?
	lda [<menuptr],y
	beq exit

	iny
	lda [<menuptr],y
	tax
	dey
	dey
	lda [<menuptr],y

;===========================================================================
;	BadCache2
;
;          	Dereference cahce and mark as bad.
;
;   IN:    x/a = handle of cache.
;
;  OUT:    work = pointer to cache, cache marked as bad (invalid image).
;
;===========================================================================
	ENTRY badCache2
badCache2

cBuff	equ work

	sta <cBuff	Dereference cahce.
	stx <cBuff+2

	ldy #2
	lda [<cBuff],y
	tay
	lda [<cBuff]
	sta <cBuff
	sty <cBuff+2

	lda #0	Mark cache as BAD (not containing menu).
	sta [<cBuff]

exit	rts

	ENDP


;===========================================================================
;
;	EveryCacheBad
;
;          	Set every menu's cache to bad.
;
;   IN:    barptr =	pointer to menu bar.
;
;===========================================================================
everyCacheBad	PROC

	jsr getmfirst	Start with first menu.
	beq exit	Are there any menus?

lop1	jsr badCache	Mark cache bad if menu has a cache.

	jsr next_menu	Try next menu.
	bne lop1	Any more menus?

exit	rts

	ENDP


;===========================================================================
;
;	FreeCache
;
;          	Free a menu's cache.
;
;   IN:    menuptr = pointer to menu.
;
;===========================================================================
freeCache	PROC

	ldy #MenuFlag	Check if there can be a cahce.
	lda [<menuptr],y
	and #M_CACHE
	beq exit

	ldy #MenuCache+1	Is there a cache?
	lda [<menuptr],y
	beq exit

	iny
	lda [<menuptr],y
	pha	Put handle of cache to be disposed of on
	dey	the stack
	dey
	lda [<menuptr],y
	pha

	ldy #MenuCache+1
	lda #0	Mark cache as gone.
	sta [<menuptr],y

	_DisposeHandle	Get rid of cache

exit	rts

	ENDP


;===========================================================================
;
;	EveryCacheFree
;
;          	Free every menu's cache.
;
;   IN:    barptr =	pointer to menu bar.
;
;===========================================================================
everyCacheFree	PROC

	jsr getmfirst	Start with first menu.
	beq exit	Are there any menus?

lop1	jsr freeCache	Mark cache bad if menu has a cache.

	jsr next_menu	Try next menu.
	bne lop1	Any more menus?

exit	rts

	ENDP

****************************************************************
*
TextFaceRoutines	PROC
*
* Sets and Clears the text face field in the grafport
* as specified in the item flag.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
	ENTRY FixTextFace
	ENTRY ClearTextFace
*
	longa on	; mode
	longi on
*
****************************************************************

FixTextFace
;-----------------------------------------------------------
;
; bold, underline and italic are kept in the low three bits
; of the flag.
;
; We merge these with Shadow and Outline kept in bits
; 11 and 12.
;

	ldy #ItemFlag		Get the flag
	lda [<itemptr],y
	tax		save it here
	and #$0007		low 3 bits
	pha		save it
	txa		get flag back
	and #I_NOOUTLINE+I_NOSHADOW	remove unwanted bits
	xba		put high into low
	ora 1,s		merge with rest
	sta 1,s		store it
GoBack	_SetTextFace

	rts

ClearTextFace
	pea $0000
	bra GoBack


	ENDP

	EJECT
*******************************************************************************
*
PushPortData	PROC EXPORT
*
* Description:	This routine will push grafport variables that can be changed
*	by menuselect and popupmenuselect. This pushes:
*	BkPat
*	PnLoc
*	pnSize
*	pnMode
*	pnPat
*	pnMask
*	pnVis
*	fontHandle
*	fontID
*	fontFlags
*	txSize
*	txFace
*	txMode
*	spExtra
*	chExtra
*	fgColor
*	bgColor
*
*
* Inputs:	None
*
* Outputs:	All that stuff on the stack!
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
*
* Direct page equates for my stack frame, note that I will leave this data on the
* stack and take it off with popPortData
*
FrameSize	equ $74	; 70 bytes of data + grafport pointer
portPtr	equ 1	; the place we will use for our grafport pointer
LocalPortData	equ portPtr+4	; storage area for our port pointer
;
; First set up our stack frame...
	ply	; recover the return address and save it...
	tdc	; get the current dpage
	tax	; and save it in <X>

	tsc	; get the stack pointer
	sec
	sbc #FrameSize	; adjust the stack pointer
	tcs	; make it the new stack pointer and the new
	tcd	; direct page

	phy	; restore the return address
	phx	; and save the old dpage pointer

; Now get the current grafport pointer
	pha	; room for result
	pha
	_GetPort	;
	pla
	sta <portPtr	; and save the port pointer to our dpage
	pla
	sta <portPtr+2	;

; now copy $70 bytes of data to our localportdata area

	ldy #$8E	; last address to copy from
	ldx #$6E	; last data to copy
@CopyLoop	lda [<portPtr],y	; get the byte of data
	sta <LocalPortData,x ; and save it
	dey
	dey
	dex
	dex
	bpl @CopyLoop

; now that we are done, lets get the proper direct page off the stack and end...
	pld
	rts	; now leave


	EJECT
*******************************************************************************
*
PopPortData	PROC EXPORT
*
* Description:	This routine will pop grafport variables that can be changed
*	by MenuSelect and PopUpMenuSelect.
*
*             NOTE: You must have called PushPortData first, and the stack must
*	be set to what it was when pushPortData returned.
*
*        This pops:
*	BkPat
*	PnLoc
*	pnSize
*	pnMode
*	pnPat
*	pnMask
*	pnVis
*	fontHandle
*	fontID
*	fontFlags
*	txSize
*	txFace
*	txMode
*	spExtra
*	chExtra
*	fgColor
*	bgColor
*
*
* Inputs:	None
*
* Outputs:	All that stuff on the stack!
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
*
* Direct page equates for my stack frame, note that I will leave this data on the
* stack and take it off with popPortData
*
FrameSize	equ $74	; 70 bytes of data + grafport pointer
savedDPage	equ 1
Rtn1	equ savedDPage+2
portPtr	equ Rtn1+2	; the place we will use for our grafport pointer
LocalPortData	equ portPtr+4	; storage area for our port pointer
; first copy $70 bytes of data from our localportdata area to the port
	phd	; save the old dPage
	tsc	; now make the stack the dPage
	tcd

	ldy #$8E	; last address to copy from
	ldx #$6E	; last data to copy
@CopyLoop
	lda <LocalPortData,x ; and save it
	sta [<portPtr],y	; get the byte of data
	dey
	dey
	dex
	dex
	bpl @CopyLoop

; Now that we are finished, reset the old dPage and pull all the old shit
; off the stack

*** added 16-Jan-91 DAL to make this thing work with fastPort on!
*** Just set the port to what it already is to clear the fastPort
*** dirty flags & make items always hilite properly. BRC:MS902MSC.
	pha
	pha
	_GetPort
	_SetPort
*** end of 16-Jan-91 DAL fix

	pld	; restore the directpage
	ply	; save the return address for a sec...

	tsc	; now adjust the stack pointer
	clc
	adc #FrameSize
	tcs	; and resave the stack pointer
	phy	; restore the return address
	rts	; now leave



;===========================================================================
;
;	StaticRAM
;
;        	Menu Manager static data.
;
;===========================================================================
staticRAM	PROC

;
;
; --- 320 mode Apple logo ---------------------------------------
;
	ENTRY _320_mask
_320_mask	DC.B $FF,$FF,$FF,$FF,$00,$FF,$FF,$FF
	DC.B $FF,$FF,$FF,$F0,$0F,$FF,$FF,$FF
	DC.B $FF,$F0,$00,$0F,$00,$00,$FF,$FF
	DC.B $FF,$00,$00,$00,$00,$0F,$FF,$FF
	DC.B $FF,$00,$00,$00,$00,$0F,$FF,$FF
	DC.B $FF,$00,$00,$00,$00,$00,$0F,$FF
	DC.B $FF,$F0,$00,$00,$00,$00,$FF,$FF
	DC.B $FF,$FF,$00,$0F,$00,$0F,$FF,$FF

	ENTRY _320_data
_320_data	DC.B $00,$00,$00,$00,$01,$00,$00,$00
	DC.B $00,$00,$00,$00,$10,$00,$00,$00
	DC.B $00,$00,$11,$10,$01,$10,$00,$00
	DC.B $00,$01,$11,$11,$11,$00,$00,$00
	DC.B $00,$01,$11,$11,$11,$00,$00,$00
	DC.B $00,$01,$11,$11,$11,$11,$00,$00
	DC.B $00,$00,$11,$11,$11,$10,$00,$00
	DC.B $00,$00,$01,$10,$11,$00,$00,$00

;
; --- 640 mode Apple logo -------------------------------------------
;
	ENTRY _640_mask
_640_mask	DC.B $FF,$FF,$F0,$3F
	DC.B $FF,$FF,$00,$FF
	DC.B $F0,$00,$F0,$03
	DC.B $00,$00,$00,$0F
	DC.B $00,$00,$00,$3F
	DC.B $00,$00,$00,$00
	DC.B $C0,$00,$00,$03
	DC.B $F0,$03,$00,$3F

	ENTRY _640_data
_640_data	DC.B $00,$00,$01,$00
	DC.B $00,$00,$14,$00
	DC.B $01,$54,$01,$50
	DC.B $15,$55,$55,$40
	DC.B $15,$55,$55,$00
	DC.B $15,$55,$55,$54
	DC.B $05,$55,$55,$50
	DC.B $01,$54,$15,$00

;
; --- Down Arrow for Scrolling Menus -------------------------------------
;
	ENTRY DownArrowLocInfo640
DownArrowLocInfo640
	dc.w $80
	dc.L DownArrowIcon
	dc.w 4
	ENTRY DownArrowBounds640
DownArrowBounds640	dc.w 0,0,8,16


	ENTRY DownArrowLocInfo320
DownArrowLocInfo320
	dc.w $00
	dc.L DownArrowIcon
	dc.w 4
	ENTRY DownArrowBounds320
DownArrowBounds320	dc.w 0,0,8,8


	ENTRY DownArrowIcon
DownArrowIcon	dc.b $FF,$FF,$FF,$FF	; down arrow image
	dc.b $FF,$FF,$FF,$FF
	dc.b $00,$00,$00,$00
	dc.b $F0,$00,$00,$0F
	dc.b $FF,$00,$00,$FF
	dc.b $FF,$F0,$0F,$FF
	dc.b $FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF

;
; --- Up Arrow for Scrolling Menus ---------------------------------------
;
	ENTRY UpArrowLocInfo640
UpArrowLocInfo640
	dc.w $80
	dc.L UpArrowIcon
	dc.w 4
	ENTRY UpArrowBounds640
UpArrowBounds640	dc.w 0,0,8,16


	ENTRY UpArrowLocInfo320
UpArrowLocInfo320
	dc.w $00
	dc.L UpArrowIcon
	dc.w 4
	ENTRY UpArrowBounds320
UpArrowBounds320	dc.w 0,0,8,8


	ENTRY UpArrowIcon
UpArrowIcon	dc.B $FF,$FF,$FF,$FF	; up arrow image
	dc.B $FF,$FF,$FF,$FF
	dc.B $FF,$F0,$0F,$FF
	dc.B $FF,$00,$00,$FF
	dc.B $F0,$00,$00,$0F
	dc.B $00,$00,$00,$00
	dc.B $FF,$FF,$FF,$FF
	dc.B $FF,$FF,$FF,$FF

;
; --- Tables for setting SCB and color tables for color apple logo --------
;
	ENTRY logocolor
logocolor	DC.W $00C0
	DC.W $0FF0
	DC.W $0F80
	DC.W $0F00
	DC.W $0F0F
	DC.W $0004

	ENTRY scanbyte
scanbyte	DC.B 1
	DC.B 1
	DC.B 1
	DC.B 2
	DC.B 3
	DC.B 4
	DC.B 5
	DC.B 6

;
; --- Masks for dimmed and normal text -----------------------------

	ENTRY dimmed
dimmed	DC.B $55,$AA,$55,$AA,$55,$AA,$55,$AA
	ENTRY nor_mask
nor_mask	DC.B $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF

;
;------------------------------------------------------------
;          Data used to initialize RAM data area.
;------------------------------------------------------------
;
	ENTRY startInitRAM
startInitRAM
	DC.B $01,$00,$00
	DC.B $02,$11,$00,$00

;
; +++ The following	blocks give information to QuickDraw about the
;     structure of screen RAM and data to use when moving data to or from
;     the screen.

	DC.B 0	Scan line control byte.
	DC.B 0	Reserved.
	DC.L $E12000	Starting address of	screen.
	DC.W 160	Number of bytes per	line.
	DC.W 0,0,200,320	Bounds of screen.

	DC.B 0	Scan line control byte.
	DC.B 0	Reserved.
	DC.L 0	Starting address of	image.
	DC.W 0	Number of bytes per	line.
	DC.W 0,0,0,0	Bounds of image.

	DC.W 1
	DC.W 1
	DC.W 0,0,8,16	Size of destination.

;
; +++ The following	blocks give information to QuickDraw about the
;     structure of screen RAM and data to use when moving data to or from
;     the screen.
;
	DC.B 0	Scan line control byte.
	DC.B 0	Reserved.
	DC.L 0	Starting address of	image.
	DC.W 8	Number of bytes per	line.
	DC.W 0,0,8,16	Bounds of image.

;
; --- Default System Menu Bar Template ---------------------------
;
	DC.L 0	Next Control.
	DC.L 0	Menu owner.
	DC.W 0,0,13,320	MenuBar RECT.
	DC.B $00	Flag, visible
	DC.B $0A	Hilite, active, low byte is where 1st menu starts
	DC.W 0	Value.
	DC.L 12	Menu bar definition	procedure flag.
	DC.L 0	Default action procedure, none.
	DC.L 0	Data.
	DC.L 0	RefCon.
	DC.L 0	Pointer to color table, default.
	DC.L 0	Handle of first menu in menu bar.
;
;
; --- Default menu bar color table ---------------------------
;
	ENTRY DefColorTable
DefColorTable	DC.W $00F0	Normal color, black	text on white.
	DC.W $000F	Hilited color, white text on black.
	DC.W $0000	Outline color, black.

	ENTRY endInitRAM
endInitRAM

	ENDP


***********************************************************************************
*
* InsertPathMItems -- new call 10-Jan-91 Dave Lyons
*
* Description:
*
* Takes a word-length pathname string and makes a series of InsertMItem2 calls for
* you, one for each segment of the pathname.  Each item gets an appropriate
* little icon next to it, as returned from GetSysIcon (in QD Aux).
*
* Inputs:
*
* $500F InsertPathMItems(flags: integer; thePath: longint;
*                        MenuID: integer; AfterItemID: integer;
*                        StartingItemID: integer; ResultPtr: Ptr);
*
* flags	bits 15-5 reserved (use 0)
*	bit 4 = the pathname is already fully expanded (no need for me to
*	        call ExpandPath on it) (not used yet)
*	bit 3 = 1=theDevNum is valid, 0=ignored
*                   bit 2 = 1=use Open folder icons
*	        0=use Closed folder icons
*	bit 1 = reserved (0)
*	bit 0 = 0=insert items with Device at bottom
*	        1=insert items with Device at top
* thePath	Word-length string--a complete GS/OS pathname.  This string
*	is preserved, not munged.
* theInputDevNum	Device number of the device the pathname is on, if bit 3 of flags is set.
* MenuID	The MenuID of the menu to insert into (passed to InsertMItem2)
* AfterItemID	The Menu Item ID to insert AFTER, in the specified menu.
* StartingItemID	The Menu Item ID for the first item to be inserted (we build
*	up sequentially from there).
* ResultPtr	Pointer to results buffer.
*	+000 Word  receives highest menu item ID that was inserted
*	+002 Long  receives the itemStructs handle (caller must dispose later)
*	+006 Long  receives a handle containing the expanded and munged-up path
*	           (caller must dispose later)
*
***********************************************************************************
InsertPathMItems	proc export

	phb
	phk
	plb

	phd

	phy
	pha	;pushed WAP
	pha
	pha	;pushed space for ItemStructList
	tsc
	tcd

ItemStructList	equ 1
MenuWAP	equ ItemStructList+4
oldD	equ MenuWAP+4
oldB	equ oldD+2
rtl1	equ oldB+1
rtl2	equ rtl1+3
ResultPtr	equ rtl2+3
theStartingID	equ ResultPtr+4
AfterItemID	equ theStartingID+2
theMenuID	equ AfterItemID+2
theInputDevNum	equ theMenuID+2
thePath	equ theInputDevNum+2
theFlags	equ thePath+4

	jsl DoInsertItems	;returns error code in A
	tax

	ply
	ply	;removed ItemStructList
	ply
	ply	;removed WAP

	pld
	plb

	ldy #18	;strip input parameters from the stack
	jml $e10184


*** DoInsertItems -- do the work, return error in A

exitError	rtl

DoInsertItems	jsr ExpandThePath	;result pointer in thePath if no error
	bcs exitError

*** We've now got a copy of the fully-expanded pathname at <thePath.

	jsr GetDeviceID	;input=thePath, output=A

*** Figure out how many items we're going to insert, by simply counting the
*** colons in the input string

	lda [<thePath]
	inc a
	inc a
	sta Length

	ldx #0	;number of items
	ldy #2
@count	cpy Length
	bcs @counted
	lda [<thePath],y
	and #$00ff
	cmp #':'
	bne @notColon
	inx
@notColon	iny
	bra @count
@counted	txa
	sta NumberOfSegments

*** Allocate 10 bytes per Item Struct that we'll need, and put a pointer
*** to this thing into [<ResultPtr] and <ItemStructList

	inc a	;extra item struct in case we're doing a Desktop item

	pha
	pha	;space for Multiply result
	phx
	pea 10
	_Multiply	;space needed is on stack
	pla
	ply	;ignore high word
	jsr MyAllocate	;returns pointer to locked handle in YX
	bcc @ok
	brl ExitError

@ok	sty <ItemStructList+2
	stx <ItemStructList

	tya
	ldy #4
	sta [<ResultPtr],y
	dey
	dey
	txa
	sta [<ResultPtr],y

;	ldy #2	;Y is already 2
	lda [<ItemStructList]
	tax
	lda [<ItemStructList],y
	sta <ItemStructList+2
	stx <ItemStructList

*** Set up the highest item so far to be theStartingID minus one, since
*** we increment it before using it for the first time

	lda <theStartingID
	dec a
	sta [<ResultPtr]

; Replace each seperator character (except the last trailing one) with
; a length byte, forming a series of PStrings.

	ldy #2

	sep #$20
	longa off
SearchLoop2	ldx #0	; Initialize character counter
	cpy Length	; Are we done?
	bcc @1
	brl SearchDone

@1	sty Index	; Store position of separator character
	iny	;   and begin at next character

	rep #$20
	lda [<ResultPtr]
	inc a
	sta [<ResultPtr]
	sta MenuItemID
	sep #$20

SearchLoop1	lda [<thePath],y	; Search for separator characters
	cmp #':'
	beq CreateLengthByte

	cpy Length	; End of string ?
	beq CreateLengthByte

	iny
	inx
	bra SearchLoop1

CreateLengthByte	phy

	txa	; Replace the separator character
	ldy Index	;  with a length byte
	sta [<thePath],y

	longa on
	rep #$20

*** Store pointer to the current ItemStruct into the item template

	lda <ItemStructList
	sta ItemStructPtr
	lda <ItemSTructList+2
	sta ItemStructPtr+2

;       Store the ItemStruct's ItemFlag2

	lda #$8000	; Item has an icon
	sta [<itemStructList]

;       Store the ItemStruct's ItemTitleRef pointer

	ldy #2
	clc
	lda Index
	adc <thePath
	sta [<itemStructList],y
	iny
	iny
	lda #0
	adc <thePath+2
	sta [<itemStructList],y

;       Store the ItemStruct's ItemIconRef pointer

*** Call GetSysIcon to get an icon

	pha
	pha		;space for GetSysIcon result

	lda <theFlags
	and #$0004		;Open/Closed folders bit
	tax		;flags (bit 1-0:00=file icon)
	ldy #$000f		;Folder filetype
	lda [<ResultPtr]		; If this is the first item, we need
	cmp <theStartingID		; a disk icon
	bne @aFile

	ldy theDeviceID
	ldx #1		;flag bits 1-0=01 for a device

@aFile	phx		;flags
	phy		;value (filetype or dev_id)
	lda #0
	pha
	pha		;aux value (long)
	_GetSysIcon
	plx
	pla

*** StoreIcon -- Icon is in AX

StoreIcon	ldy #8	; Store ItemIconRef pointer
	sta [<itemStructList],y
	txa
	dey
	dey
	sta [<itemStructList],y

*** Bump ItemStructList to the next one

	clc
	lda <itemStructList
	adc #10
	sta <itemStructList
	bcc @1
	inc <itemStructList+2
@1

*** Finally!  Insert the item into the menu.

	pea 0	; refDescriptor (pointer)
	pushlong #MenuItem	; menuItemTRef
	pei <AfterItemID	; 11-Jan-91 DAL
	pei <theMenuID
	_InsertMItem2
*** %%% check for error

* If flag bit 0 is set, the next item should be inserted after this one
	lda <theFlags
	lsr a
	bcc @forward
	lda [<ResultPtr]
	sta <AfterItemID	;next one to insert after
@forward

	sep #$20
	longa off

	ply
	brl SearchLoop2


; We've inserted all the items

SearchDone
	longa on
	rep #$20

	lda #0
	pha
	pha
	pei <theMenuID
	_CalcMenuSize

	rtl		;return error code in A

*
* GetDeviceID
*
* For the pathname at thePath, return the device id in theDeviceID
*
GetDeviceID	lda #$ffff
	sta theDeviceID

	ldx <theInputDevNum
	lda <theFlags
	and #$0008	;bit 3 = theDevNum is valid
	bne @gotDevNum

	lda <thePath
	sta GetDevNumPath
	lda <thePath+2
	sta GetDevNumPath+2

	pushlong #GetDevNumParms
	pea $2020	;GetDevNumber
	jsl $e100b0
	bcs @exit

	ldx theDevNum
@gotDevNum	stx DInfoDevNum
	inx	;added 22-Feb-91 DAL
	beq @exit	;added 22-Feb-91 DAL
	pushlong #DInfoParms
	pea $202C	;DInfo
	jsl $e100b0
@exit	rts

GetDevNumParms	dc.w 2
GetDevNumPath	dc.l 0
theDevNum	dc.w 0

DInfoParms	dc.w 8	;8 parameters
DInfoDevNum	dc.w 0
	dc.l deviceName
	dc.w 0	;characteristics
	dc.l 0	;total blocks
	dc.w 0	;slot num
	dc.w 0	;unit num
	dc.w 0	;version
theDeviceID	dc.w 0	;device id

deviceName	dc.w 35	;room for a 31-character device name
	ds.b 33



Index	ds.w 1	; Stores location of separator char
Length	ds.w 1	; Stores length of original pathname string
TempHdl	ds.l 1

NumberOfSegments	dc.w 0	;number of items we're going to insert

MenuItem		   ; Menu Item Template
	dc.w $0000	   ; version
MenuItemID	dc.w $0000	   ; itemID
	dc.b $00	   ; itemChar
	dc.b $00	   ; itemAltChar
	dc.w $0000	   ; itemCheck	 / additional ItemStruct
	dc.w %0000010000100000 ; itemFlag   =	<  XOR mode)
ItemStructPtr	dc.l $00000000	   ; itemStructRef	 \ ItemStrucRef is pointer

*
* ExpandThePath
*
* Input: pointer to user's path in <thePath
*
* Output: pointer to a fully expanded path, in our own handle, in <thePath
*         A/Carry=error code
*
ExpandThePath	lda <thePath+2
	ldy <thePath
	sta ep1Input+2
	sty ep1Input
	sta ep2Input+2
	sty ep2Input

*** First, do an expand path just to see how much room we need
	pushlong #FirstExpPath
	pea $200E	;ExpandPath
	jsl $e100b0
	bcc @noError	;added 7-Dec-91
	cmp #$4f
	bne @error

@noError
	lda SizeNeeded
	clc
	adc #4
	sta SizeNeeded
	jsr MyAllocate
	bcs @error

	sty <thePath+2
	stx <thePath

*** Store a copy of the handle into [<ResultPtr],6 so the caller
*** can dispose of it when they're ready to.
	tya
	ldy #6+2
	sta [<ResultPtr],y
	dey
	dey
	txa
	sta [<ResultPtr],y

*** Deref the handle (it's locked & fixed)
	lda [<thePath]
	tax
	ldy #2
	lda [<thePath],y
	sta <thePath+2
	stx <thePath
	sta ep2Output+2
	stx ep2Output

	lda SizeNeeded
	sta [<thePath]

	pushlong #SecondExpPath
	pea $200E	;ExpandPath
	jsl $e100b0	;keep error code

	pha
	clc
	lda <thePath
	adc #2
	sta <thePath
	bcc @1
	inc <thePath+2
@1	pla

	cmp #1	;condition carry
	rts

@error	sec
	rts

FirstExpPath	dc.w 2
ep1Input	dc.l 0
	dc.l theBuffer
theBuffer	dc.w 4
SizeNeeded	dc.w 0

SecondExpPath	dc.w 3
ep2Input	dc.l 0
ep2Output	dc.l 0
	dc.w 0	;don't convert to uppercase

*
* MyAllocate--size in A, returns handle in YX (or SEC, A=error)
*
MyAllocate	pha
	pha	;space for result
	pea 0	;high word of size
	pha	;size
	ldy #MyID
	lda [<MenuWAP],y
	pha	;mem id
	pea $c010	;locked, fixed, no bank cross
	pha
	pha	;location pointer (ignored)
	_NewHandle
	plx
	ply
	rts

	EndP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/MenuMgr/popupproc.asm b/IIGS.601.SRC/GSToolbox/MenuMgr/popupproc.asm
new file mode 100644
index 0000000..5037c4f
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/MenuMgr/popupproc.asm
@@ -0,0 +1 @@
+	title 'PopUpDefProc'
**********************************************************************
*
* PopUp Control Def Proc
*
*
* Copyright Apple Computer, Inc. 1988-92
* All Rights Reserved
*
* 26 Oct 88	Harry Yee
*
* Finished initial coding for pop-ups
*
* 18 Nov 88	Harry Yee
*
* Finished resource support for pop-ups.
*
* 21 Nov 88	Harry Yee
*
* Changed do_track so that the x register upon exit, contains the part code
* if mouse was in pop-up when released, if mouse was outside menu then x
* contains zero. This needed to be changed because we were always getting a hit
* even though the user would drag the mouse outside the pop-up and then release.
* TRACKCONTROL also being changed to take advantage of this.
*
* 23 Nov 88	Harry Yee
*
* The control manager call MoveControl changed the pop-up control's main ctlRect,
* but since the pop-up box's rect was stored internally it needed to be changed also.
* I now change the moveCtl routine from a do nothing routine to change the pop-up box's
* rect.
*
* I now check the control's invisible bit before drawing the control.
*
* FRightJustifyResult is now implemented. Changed routine DrawPopUp to make it work.
*
* Bit 5 of the control's flag is now defined. If set the pop-up title will not be highlighted
* when the pop-up is selected.
*
* 01 Dec 88	Harry Yee
*
* The pop-up's title is now also part of the pop-up control's "hot spot".
*
* Pop-ups now work for an invalid initial value (BRC #38521, #38520)
*
* In do_init I now check the pcount, if it is 9 then use default color table (which I now
* define, I use to get this from the current menu bar's control record and I use do get in
* the do_draw routine), if the pcount is 10 then then I use the ptr to the colorTable passed
* by the app.
*
* 12 Dec 88	Harry Yee
*
* Fix problem with drawing pop-ups in color.
*
* 15 Dec 88	Harry Yee
*
* Bit 6 of the control's flag is now defined. If set the pop-up, when selected will be
* drawn with white space if the whole pop-up cannot fit in the port and there is
* room to add the white space to the pop-up.
*
* Added do_key routine (#13) for handling command key equivalents in pop-ups.
*
* 04 Jan 89 	Harry Yee
*
* Fixed minor problem in do_test. The rectangle we were checking is a bit too large
* because it was fudged in do_init to make things work correctly in the menu manager call
* HiliteMenu. It was unfudged before making the check.
*
* 30 Jan 89	Harry Yee
*
* Whenever a NewValue defproc message got sent I would just call do_draw. This caused problems
* because the ctlParam input was different for each call. I now have a separate defproc to handle
* the NewValue message.
*
* When the pop-up's title got hilited I hilited too much in 640 mode and not enough in 320 mode.
* The above problem also arose when switching from one mode to another. _HiliteMenu has
* been changed to fix this problem. BRC #40712.
*
* 07 Feb 89	Harry Yee
*
* In do_init if there is no color table specified then zero is stored in the ctlColor field
* to specify that the default color table should be used. The GetColor routine in the
* menu manager has been changed to special case for ctlColor being zero. This change was necesary
* because when the menu manager was actually loaded into RAM i.e. old ROM, 4.1 system disk,
* a SetBarColors would really fuck up the pop-up control's default color table.
*
* 15 Mar 89	Harry Yee
*
* Did away with DrawPopUp call so lots of things changed. This makes the pop-up
* code much easier to maintain (now we don't have to go through menu manager, except
* for drawing the title)
*
* Fixed several bugs:
*  ForeGround color was being changed but never restored. BRC #45534.
*  If title was apple logo, title width was not getting set right. BRC #45146
*  If there was no selection in the pop-up rect the ctlValue did not reflect
*  this. If there is no selection, GetCtlValue will return zero. BRC #45143.
*
* 16 Mar 89 	Harry Yee
*
* Changed new_value routine. Didn't need to actually store the new control value
* myself because the control manager already does this for us.
*
* 23 Mar 89	Harry Yee
*
* Fixed problem with ctlValue of zero. When ctlValue was zero, which means there
* is no currently selected item in the pop-up, the first item in the pop-up menu
* would always get drawn anyways. This was because a zero item ID to GetMItem
* was not an invalid item ID but meant get the first item in the menu. So now I
* check for ctlValue of zero before calling GetMItem. Worksheet #BCOJHS083.
*
* When a pop-up is created, the height of the control rect is increased by one
* to account for the bottom drop shadow. The bottom drop shadow needs to be
* made a part of the control rect, so that it will erase correctly.
*
* Now pop-ups are dimmed correctly when they are de-activated.
*
* 27 Mar 89	Harry Yee
*
* I now restore the text mode, foreground color, and text face after drawing result.
*
* 29 Mar 89	Harry Yee
*
* Add some additional control messages in my table. Only new one added that I do
* anything about is the message sent when the state of the window that the pop-up
* is in has changed. In this case I just invalidate the rect.
*
* 30 Mar 89	Harry Yee
*
* I now handle pcount=8 (which means InitialValue=0)
*
* Color tables for pop-ups will now work with refs to handle and resources.
*
* 07 Apr 89	Harry Yee
*
* Fix do_test so that all I do is return my part code. Before I used to
* check to make sure the pt passed was inside the pop-up rect (control mgr
* already does the check for me). WorkSheet #BCORMR583.
*
* 09 Apr 90	Harry Yee
*
* Put back change made 07 Apr 89 since that wasn't it.
*
* In do_track routine I was saving the PopUpMenuSelect return value in <currentSelection
* which is defined on my stack. Routine DrawResult was using this same value to store
* the master SCB which is why in 640 mode we always get the result that an item was
* selected and in 320 mode nothing was ever selected. I now save <currentSelection on
* the stack before calling DrawResult. WorkSheet #BCORMR583.
*
* 12 Apr 89	Steven Glass
*
* Reject events if control is invisible or inactive.
*
* 27 Apr 89	Harry Yee & mensch & Johnny Joystick
*
* Popup menus were not checking the ctrlparam field for zero in the drag routine. This caused
* popups not to be able to be dragged with dragControl call.
*
* 20 May 89	Yee
*
* Was not disposing of the handle for the menu record when a pop-up control was being killed.
*
* If the color table was a resource, it was not getting released. If it is a resource,
* it now gets released in do_dispose.
*
* 17-Sep-90	Dave Lyons
*
* Changed rCtlColorTable to rCtlColorTbl.
*
* 26-Sep-90	Dave Lyons
*
* Now uses Get640Colors instead of having our own copy of color_patt (512 bytes).
*
* 27-Sep-90	Dave Lyons
*
* "If 0"-ed out experimental stuff from Harry that was trying to draw icons
* in the pop-up result (and recalculate the control rect correspondingly).
*
* 21-Jan-91	Dave Lyons
*
* Adding ctlMoreFlags bit 7, fDrawArrowIcon, to draw a down-arrow icon after
* a pop-up menu's currently-selected item.
*
* Adjusted the X coordinate to PopUpMenuSelect to make it line up right.
*
* 9-Mar-91	Dave Lyons
*
* Added check to make the popped-up menu be at least as wide as the non-popped-up
* representation.  This is especially cool if there's a down-arrow icon on the
* right, because it looks really stupid to have that hanging out to the side while
* the menu is popped up.
*
* 15-Mar-91	Dave Lyons
*
* Added a missing call to derefMenuHand--the pop-up width stuff added above was
* working sometimes, but not all the time.
*
* 2-Jul-91	Dave Lyons
*
* Changed GetOSIcon to GetSysIcon, removed macro.
*
* 7-Dec-91	Dave Lyons
*
* Added and then commented out code to disallow a pop-up to be set to
*   a dimmed menu item.
* Now releases rIcon resources to purge level 3 instead of -1.
* SetCtlValue on a pop-up now draws the new value dimmed if the
*   control is currently dimmed.
*
**********************************************************************
*
* 13-Mar-92	Dave Lyons for 6.1
*
* Use DrawStringWidth to draw the un-popped menu selection.
* Minor optimizations (PEIs, ASL/LSR).
*
* 16-Mar-92	Dave Lyons
*
* Finished the DrawStringWidth mod in DrawResult (center truncate).
* More optimizations.
*
* 17-Nov-92	Dave Lyons
*
* When handling a do_event message, only send keyDown and autoKey events
* to MenuKey.  Preserve the menu bar around the MenuKey call, so we don't
* accidentally leave the menu bar set to the pop-up menu control.
*
**********************************************************************

	blanks off
	string asis

	print push
	print off

	include 'all.macros'

	include 'e16.event'
	INCLUDE 'e16.control'
	INCLUDE 'e16.quickdraw'
	INCLUDE 'e16.menu'
	INCLUDE 'e16.window'
	INCLUDE 'e16.resources'

oqdiconHeight 	EQU 4
oqdiconWidth 	EQU 6

;;;owmTaskData 	EQU 16

	MACRO
&lab	_GetResMTitle
&lab	ldx #$440F
	jsl $E10000
	MEND

True	equ $FFFF
False	equ $0000

	print pop

	ENTRY MoveRect
	ENTRY MoveRectIn
	ENTRY PushPtrToRect
	ENTRY PushPtrToRect2
	ENTRY DerefMenuHand
	ENTRY SetNewMenuBar
	ENTRY SetupColorTable
	ENTRY DrawPopUpBox
	ENTRY DefColorTable
	ENTRY Dimmed
	ENTRY Nor_Mask
	ENTRY DrawResult
	ENTRY ClearResult
***	ENTRY ReCalcPopUpRect	;incomplete from Harry (27-Sep-90 DAL)

;=======================================================================
;
; Some Global equates used throughout
;

MaxMessages	equ 19

;
; masks for control flag
; (commented these out 17-Sep-90 DAL because they're in e16.menu now)
;
;FType2PopUp	equ $0040	; 0 = normal popup, 1 = popup w/white space
;FDontHiliteTitle	equ $0020	; 0 = hilite title, 1 = don't hilite title
;FDontDrawTitle	equ $0010	; 0 = draw title, 1 = don't draw title
;FDontDrawResult	equ $0008	; 0 = selection in pop-up rect, 1 = no selection drawn
;FInWindowOnly	equ $0004	; 0 = use menumgr port, 1 = use current port
;FRightJustifyTitle	equ $0002	; 0 = left justify title, 1 = right justify title
;FRightJustifyResult equ $0001	; 0 = left justify result, 1 = right justify result
;
;FDrawResultOnly	equ $8000	; 0 = draw whole pop-up, 1 = draw result only
;FPopUpInactive	equ $4000	; 0 = pop-up active, 1 = inactive
;
; masks for control moreflags
;
;MenuRefIsHandle	equ $0001	; menu ref is a handle
;MenuRefIsResource	equ $0002	; menu ref is a resource ID
;FMenuDefIsText	equ $0004	; menu ref is ptr to item list
;fDrawIconInResult	equ $0020	; 0 = don't draw icon in result field, 1 = draw icon in result
fJustifyPopup	equ $0040	; 0 = no need for justification, 1 = Justify popup control
fDrawArrowIcon	equ $0080	; 1 = draw down-arrow icon after item (21-Jan-91 DAL)

y1	equ 0	; rect offsets
x1	equ 2
y2	equ 4
x2	equ 6

T_LEADING	equ 2	; Top leading.
B_LEADING	equ 2	; Bottom leading.

_M_CACHE	equ $FFF7
M_POPUP	equ $0001	; 0 = regular menu, 1 = pop-up menu


NewCtlRecord	RECORD  0
;---------------------------------------------------------------
ctlNext	ds.l  1
ctlOwner	ds.l  1
ctlRect	ds.w  4
ctlFlag	ds.b  1
ctlHilite	ds.b  1
ctlValue	ds.w  1
ctlProc	ds.l  1
ctlAction	ds.l  1
ctlData	ds.l  1
ctlRefCon	ds.l  1
ctlColor	ds.l  1
ctlReserved	ds.b  16
ctlID	ds.l  1
ctlMoreFlags	ds.w  1
ctlVersion	ds.w  1
ctlOptionalData
RecordSize
;---------------------------------------------------------------
; Values kept in ctlReserved by various controls
;---------------------------------------------------------------
;
; Button Controls
;
ctlKey1	equ ctlReserved
ctlKey2	equ ctlKey1+1
ctlKeyMods	equ ctlKey2+1
ctlKeyModsCareBits	equ ctlKeyMods+2
;
; StatText Controls
;
ctlJust	equ ctlReserved

	ENDR


;=======================================================================
;
; This is the control record for a popup control
;

PopUpCtlRecord	RECORD  0

ctlNext	DS.L  1
ctlOwner	DS.L  1	; port containing the pop-up control
ctlRect	DS.W  4	; total rectangle, title + pop-up box
ctlFlag	DS.B  1
ctlHilite	DS.B  1
ctlValue	DS.W  1	; current selection for pop-up
ctlProc	DS.L  1	; control type
ctlAction	DS.L  1
ctlData	DS.L  1
ctlRefCon	DS.L  1
ctlColor	DS.L  1	; ptr to color table
MenuRef	DS.L  1	; make this record look like a menu record
MenuEnd	DS.L  1	; signifies end of menu list, must be zero
PopUpRect	DS.W  4	; "hot spot" for popping up pop-up
ctlID	DS.L  1
ctlMoreFlags	DS.W  1
ctlVersion	DS.W  1
TitleWidth	DS.W  1	; width of title

Size	DS.B  1

	ENDR

;=======================================================================
;
; This is the template record for a pop-up control

PopUpTemplate	RECORD  0

pCount	DS.W  1	; parameter count (must be at least 6)
ID	DS.L  1	; ID for the control
Rect	DS.W  4	; bounding rectangle
ProcRef	DS.L  1	; Ref to DefProc, determines control type
Flags	DS.W  1	; old style flag word
MoreFlags	DS.W  1	; new flag word
RefCon	DS.L  1	; application defined
TitleWidth	DS.W  1	; width reserved for pop up title
MenuRef	DS.L  1	; reference to menu record.
InitialValue	DS.W  1	; initial value of the selected item in pop-up
ColorTableRef	DS.L  1	; if pCount = 10 then the colorTableRef is value is valid

	ENDR

;=======================================================================
;
; Define stack and direct page use

	DEFINESTACK
Temp	LONG	; define some local variables
CtlPtr	LONG
Rect	block 8
Word1	word
Word2	word
Word3	word
Word4	word
Word5	word
Word6	word
Word7	word

OrigD	WORD	; caller's saved direct page register
OrigB	byte	; caller's saved data bank register
RtnAddr	block 3	; RTL address back to Control Manager
theCtlHandle	LONG	; handle to control record
CtlParam	LONG	; add'l parameter passed to DefProc
CtlCode	WORD	; operation to perform
ReturnValue	LONG	; space for return value to Ctl Mgr.

ZPageSize	equ OrigD-Temp


	title 'PopUpDefProc -- MainEntry'

****************************************************************
*
PopUpProc	PROC EXPORT
*
* This is the def_proc for PopUp controls.  When this
* routine gets control, the stack looks as described below.
*
*
*
* Inputs:	On entry, the parameters are passed to us on the stack.
*
*	|	| Previous Contents
*	|-------------------|
*	|    ReturnValue	| LONG - Space for return value
*	|-------------------|
*	|    CtlCode	| WORD - operation to perform
*	|-------------------|
*	|    CtlParam	| LONG - add'l parameter
*	|-------------------|
*	|    theCtlHandle	| LONG - Handle to control record
*	|-------------------|
*	|    RtnAddr	| 3 BYTES - RTL address
*	|-------------------|
*	|	| <-- Stack pointer
*
* Outputs:	Put something into ReturnValue, pull off the parameters,
*	and return to the Control Manager.
*
*	|	| Previous Contents
*	|-------------------|
*	|    ReturnValue	| LONG - Space for return value
*	|-------------------|
*	|    RtnAddr	| 3 BYTES - RTL address
*	|-------------------|
*	|	| <-- Stack pointer
*
* External Refs:
	import do_draw
	import do_nothing
	import do_disposePopUp
	import do_test
	import do_init
	import do_newvalue
	import do_track
	import do_move
	import do_recsize
	import do_key
	import do_stateChange
	import SelfMod1Low
	import SelfMod1High
	import SelfMod2Low
	import SelfMod2High
	import SelfMod3Low
	import SelfMod3High
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

	phb	; save the Data Bank register
	phd	; save the Direct Page register

	phk	; switch data bank to program bank
	plb

*** added 26-Sep-90 DAL (self-mod references to color_patt once)

@flag	lda #0
	bne @done
	inc @flag+1
	pha
	pha
	_Get640Colors
	pla
	sta SelfMod1Low+1
	sta SelfMod2Low+1
	sta SelfMod3Low+1
	pla
	sta SelfMod1High+1
	sta SelfMod2High+1
	sta SelfMod3High+1
@done
*** end of 26-Sep-90 addition

	tsc
	sec
	sbc #ZPageSize
	tcs	; switch Direct Page into stack
	tcd

	lda <CtlCode
	cmp #recSize
	beq SkipDeref

	ldy #4
	lda [<theCtlHandle],y
	ora #$8000	; lock the handle
	sta [<theCtlHandle],y

	lda [<theCtlHandle]	; dereference the handle
	sta <CtlPtr
	ldy #2
	lda [<theCtlHandle],y
	sta <CtlPtr+2

SkipDeref	lda <CtlCode	; get routine # to call
	cmp #MaxMessages+1
	blt ShiftIt
	lda #6	; force unknown codes to null events
ShiftIt
	asl a
	tax
	jsr (ActionTable,x)

	sta <ReturnValue	; save the return value
	stx <ReturnValue+2

	lda <CtlCode
	cmp #recsize
	beq SkipUnlock

	ldy #4	; unlock the control handle
	lda [<theCtlHandle],y
;	and #$7FFF
	asl a
	lsr a
	sta [<theCtlHandle],y

SkipUnlock	tsc
	clc
	adc #ZPageSize
	tcs

	lda <RtnAddr	; move the return address up
	sta <ReturnValue-3
	lda <RtnAddr+1
	sta <ReturnValue-2

	pld	; restore caller's Data Bank and
	plb	; Direct Page registers

	pla	; remove 10 bytes
	pla
	pla
	pla
	pla

	lda #0
	clc

	rtl	; back to the caller

;
ActionTable	DC.W do_draw	0 Draw simple button.
	DC.W do_nothing	1 Compute drag RECT.
	DC.W do_test	2 Common hit test routine.
	DC.W do_init	3 Initialize the control.
	DC.W do_disposePopUp 4 Dispose.
	DC.W do_draw	5 New value.
	DC.W do_nothing	6 Compute Thumber constrains.
	DC.W do_track	7 Drag the indicator.
	DC.W do_nothing	8 Auto action.
	DC.W do_newvalue	9 New value.
	DC.W do_nothing	10 Set min max.
	DC.W do_move	11 Move button.
	DC.W do_recsize	12 Return size of standard record.
	DC.W do_key	13 take key or menu event
	DC.W do_nothing	14 ctlChangeTarget
	DC.W do_nothing 	15 ctlChangeBounds
	DC.W do_nothing	16 ctlWindChangeSize
	DC.W do_nothing	17 ctlHandleTab
	DC.W do_nothing	18 ctlHideCntl
	DC.W do_StateChange	19 ctlWindStateChange, tells us state of control changed
	ENDP


	title 'PopUpDefProc -- do_recsize'
****************************************************************
*
do_recsize	PROC
*
* Returns the size of the control record.
*
*
* Inputs:
*	none
*
* Outputs:
*	a-reg & x-reg hold result for def proc
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

	lda #PopUpCtlRecord.Size
	ldx #0		High word of size.

	rts

	ENDP


	title 'PopUpDefProc -- Do_Nothing'
****************************************************************
*
do_nothing	PROC
*
* This is the routine we use when there is nothing to do.
* It just returns zeros in the a and x registers.
*
*
* Inputs:
*	ctlHandle
*	ctlPtr
*
* Outputs:
*	a-reg & x-reg hold result for def proc
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

	lda #0	Nothing flag.
	tax

	rts

	ENDP


	title 'PopUpDefProc -- Do_Init'
;=======================================================================
;
;	Do_Init
;
; Initialize a bunch of things and copy the pop-up template data into the
; control record.
;
; Do_Init copies various fields from the PopUpTemplate to the Control Record.
; The fields ID, Rect, ProcRef, Flags, MoreFlags and RefCon are automatically
; copied from our template to the control record by the control manager.
;
; The main thing this routine does is calculate the pop-up's rect and the true
; control rect depending on what the titlewidth is set.
;
;=======================================================================
do_init	PROC

	longa on	; mode
	longi on

fontheight	equ word1	; redefine some direct page locations
descent	equ word2
widmax	equ word3
leading	equ word4
title_width	equ word5

	WITH PopUpCtlRecord

	pha		; space for handle from one of the
	pha		; newmenu calls

	ldy #PopUpTemplate.MoreFlags	; first find out what format the
	lda [<ctlparam],y		; menu is in, text stream or template
	and #FMenuDefIsText		; call NewMenu for text stream,
	bne CallNewMenu		; NewMenu2 for template

	lda [<ctlparam],y
	and #$0003		; menu is in format of MenuTemplate
	pha		; get verb to find out whether menu is
	ldy #PopUpTemplate.MenuRef+2	; a ptr, handle, or resource ID
	lda [<ctlparam],y
	pha		; reference to MenuTemplate
	dey
	dey
	lda [<ctlparam],y
	pha		; copies MenuTemplate, into a
	_NewMenu2		; menu record returning handle to it

	bra getmenuHand

CallNewMenu	ldy #PopUpTemplate.MenuRef+2	; pointer to an array of menu lines and
	lda [<ctlparam],y		; item lines
	pha
	dey
	dey
	lda [<ctlparam],y
	pha		; let menu mgr parse our menu item list
	_NewMenu		; create menu record and return handle to it

getmenuHand	ldy #PopUpCtlRecord.MenuRef
	pla
	sta [<ctlPtr],y		; store the menu handle in our control
	iny		; record
	iny
	pla
	sta [<ctlPtr],y

	ldy #MenuEnd	; must zero out the next four bytes after the location
	lda #0	; where the menu ref is stored in the control record
	sta [<ctlPtr],y	; remember, our control record has the same structure as
	iny	; a menu bar record, so menuEnd signifies end of menu list
	iny
	sta [<ctlPtr],y

;
; calculate the width of the pop-up's title
;
	ldy #PopUpTemplate.Flags
	lda [<ctlparam],y
	tax
	and #FDontDrawTitle	; first check if FDontDrawTitle flag is set, if it is then
	beq @888	; title width is zero
	lda #0
	bra storeTitleWidth

@888	ldy #PopUpTemplate.TitleWidth
	lda [<ctlparam],y	; now check if app has specifically set a title width
	beq @999	; if they have then use this width only if title left just.
	tay	; save title width app has set
	txa	; remember moreFlags still in x-reg
	and #FRightJustifyTitle
	bne @999
	tya
	bra storeTitleWidth

@999	pha	; space for StringWidth call

	pha	; space for ptr to menu title
	pha
	ldy #PopUpCtlRecord.MenuRef+2
	lda [<ctlPtr],y
	pha
	dey
	dey
	lda [<ctlPtr],y	; this routine checks to see if the menu title ref
	pha	; is a ptr, handle, or resource ID  and
	_GetResMTitle	; returns ptr (pascal string) to the menu title
	lda 1,s	; check if the title is the apple logo
	sta <temp
	lda 3,s
	sta <temp+2
	lda [<temp]
	cmp #$4001
	beq ItsTheAppleLogo
	cmp #$FF01
	bne NotAppleLogo

ItsTheAppleLogo	pla	; get ptr to title off the stack
	pla
	lda #24	; width of apple logo
	sta 1,s
	bra GotWidth

NotAppleLogo	_StringWidth
	bra GotWidth

storeTitleWidth	pha
GotWidth	jsr derefmenuhand
	pla
	ldy #oTitleWidth
	sta [<temp],y

	ldy #oMenuFlag
	lda [<temp],y
	and #_M_CACHE	; pop-up menus cannont be cached
	ora #M_POPUP	; set the flag in menu that says menu is a pop-up
	sta [<temp],y

;==================================================
;
; Initialize some rects and calc a bunch of stuff
;

; first check to see if the user wants me to calculate the bottom right bounds of the
; control rect for them

	ldy #ctlRect	; move the current control record into our direct page
	jsr MoveRect	; so we can get to it easier

	lda <rect+y2	; is bottom of rect defined?
	bne BottomDefined

	pea 0 	; get current font size and calculate height of our pop-up
	tdc	; space for font info record is on the stack
	clc
	adc #fontHeight
	pha
	_GetFontInfo

	lda <descent	; get font height and add in some slop
	clc
	adc #B_LEADING
	sta <descent

	clc
	adc <fontHeight
	adc #T_LEADING
	sta <fontHeight

	adc <rect+y1	; we now have a new bottom
	sta <rect+y2

BottomDefined

;------------------------------------------------------------
; now we check the right side of the pop-up
; right = length of title plus length of pop-up box
;      length of title = actual length of title string or TitleWidth if non-zero
;      length of pop-up = widest item in menu or whatever user as defined for right side

	lda <rect+x2	; use apps right side?
	bne RightDefined

	jsr setNewMenuBar	; switch menu bars, orig menu bar is put on stack

	jsr derefmenuhand

	pea 0	; new width, 0 for automatic calculation
	pea 0	; new heighth, 0 for automatic calculation
***	ldy #oMenuID	; id of menu record (ZERO)
	lda [<temp]
	pha
	_CalcMenuSize	; let the menu manager calculate widest item in the menu

	jsr derefmenuhand

	_SetMenuBar	; restore original menu Bar

	jsr derefmenuhand	; deref menu handle one more time just in case it moved

	ldy #PopUpTemplate.TitleWidth
	lda [<ctlparam],y	; see if title width as been pre-defined
	bne @777	; if it has use it, else get the titlewidth we
		; calculated above
	ldy #oTitleWidth
	lda [<temp],y

@777	ldy #oMenuWidth	; get width of widest item in menu
	clc
	adc [<temp],y	; add to width of pop-up's title to get right coordinate

*** Added 21-Jan-91 DAL
*** Allow 22 pixels of width for the down-arrow icon, if we're drawing one
	pha
	ldy #PopUpCtlRecord.ctlMoreFlags
	lda [<ctlPtr],y
	and #fDrawArrowIcon
	beq @noAdjust
	pla
	clc
	adc #22
	pha
@noAdjust	pla
*** end of 21-Jan-91 DAL

	adc <rect+x1
	sta <rect+x2

RightDefined	inc <rect+y2	; we must account for the bottom drop shadow
	ldy #PopUpRect	; now we define our popup rectangle, initially pop-up rect
	jsr moveRectIn	; equals the rect of whole control

	ldy #PopUpTemplate.TitleWidth
	lda [<ctlparam],y	; check if app has pre-defined the title width
	bne @666	; if it has use it, else get width we calc. above

	ldy #oTitleWidth
	lda [<temp],y

@666	clc
	adc <rect+x1
	ldy #PopUpRect+x1	; now plug in the real left coordinate for the pop-up rect
	sta [<ctlPtr],y

	ldy #oTitleWidth	; just in case app wanted title right justified
	sec	; we have to adjust left coord. of our control rect.
	sbc [<temp],y
	sta <rect+x1

	ldy #ctlRect
	jsr MoveRectIn

	ldy #PopUpTemplate.pCount
	lda [<ctlparam],y
	cmp #8
	beq NoInitialValue

	ldy #PopUpTemplate.InitialValue	; get initial value of current selection
	lda [<ctlparam],y		; for the pop-up and store in control rec
	bra storevalue

NoInitialValue	lda #0

storevalue	ldy #PopUpCtlRecord.ctlValue
	sta [<ctlPtr],y

	ldy #PopUpTemplate.pCount
	lda [<ctlparam],y
	cmp #9
	beq doDefault

	ldy #PopUpTemplate.ColorTableRef
	lda [<ctlparam],y
	tax
	iny
	iny
	lda [<ctlParam],y
	bra storeIt

doDefault	lda #0	; Zero for default color table
	tax

storeIt	ldy #ctlColor+2
	sta [<ctlPtr],y	; high word of color table
	dey
	dey
	txa	; x contains low word of color table
	sta [<ctlPtr],y

	ENDWITH

	lda #0
	tax
	rts

	ENDP


	title 'PopUpDefProc -- do_disposePopUp'
****************************************************************
*
do_disposePopUp	PROC EXPORT
*
* Test if the mouse is down in the control.
*
*
* Inputs:
*	ctlParam = undefined
*
*
* Outputs:
*	a-reg and x-reg are always zero
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

	ldy #PopUpCtlRecord.MenuRef+2
	lda [<ctlPtr],y
	pha
	dey
	dey
	lda [<ctlPtr],y
	pha
	_DisposeHandle

	ldy #PopUpCtlRecord.ctlmoreflags
	lda [<ctlPtr],y
	and #$0010	; is the color table a resource
	beq NotResource

	PushWord #rCtlColorTbl	;was rCtlColorTable 17-Sep-90 DAL
	ldy #PopUpCtlRecord.ctlColor+2
	lda [<ctlPtr],y
	pha
	dey
	dey
	lda [<ctlPtr],y
	pha
	_CMReleaseResource

NotResource
	lda #0
	tax

	rts

	ENDP


	title 'PopUpDefProc -- do_test'
****************************************************************
*
do_test	PROC
*
* Test if the mouse is down in the control.
*
*
* Inputs:
*	ctlParam = point to check
*
*
* Outputs:
*	a-reg and x-reg are always zero
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

	pha	; space for result
	pea 0000	; push pointer to point to check
	tdc
	clc
	adc #ctlparam
	pha
	ldy #PopUpCtlRecord.CtlRect
	jsr MoveRect	; push ptr to the control rectangle
	dec <rect+y2	; bottom drop shadow is not part of "hot spot"
	jsr PushPtrToRect
	_PtInRect	; is mouse in the pop-up control's rect
	pla
	beq Ignore

	lda #$A0
	bra GetOut

Ignore	lda #0	Return that we want to ignore this.

GetOut	ldx #0	high word zero

	rts

	ENDP


	title 'PopUpDefProc -- Do_Draw'
****************************************************************
*
do_draw	PROC
*
* Draws the control using DrawPopUp.
*
*
* Inputs:
*	ctlHandle
*	ctlPtr
*	ctlParam = high-order word tells us if control is active or not, $FFFF=not active
*                              low-order word = part code.
*
* Outputs:
*	a-reg and x-reg are zero.
*
* External Refs:
	import LoadResource
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************
	WITH PopUpCtlRecord

Mode	equ word7

	ldy #ctlFlag	; check if the invisible flag is set
	lda [<ctlPtr],y
	and #$0080	; if high bit of flag is set then its invisible
	beq notInvisible
	brl noDraw

notInvisible	pha	; find out what mode we're in first
	_GetMasterSCB
	pla
	and #$0080
	sta <mode

	jsr setNewMenuBar	; set menu bar to the control handle, old menu bar
		; handle is still on the stack
	jsr SetupColorTable	; set up color table and put in <word1

	ldy #ctlflag	; first check if we need to draw a title
	lda [<ctlPtr],y
	and #FDontDrawTitle
	bne NoTitle

	jsr derefmenuhand	; deref handle to menu and put in <temp

	pea 0	; draw the pop-up's title
	ldy #oMenuID
	lda [<temp],y
	pha
	_HiliteMenu

NoTitle	jsr DrawPopUpBox	; draw pop-up box and drop shadow

	ldx #0	; flag for DrawResult that says PopUpBox was also drawn
		; this flag tells us we don't have to do some extra setup
		; work already done in DrawPopUpBox
	jsr DrawResult	; draw current selection in pop-up box

	lda <ctlParam+2
	bpl active

*** subrootinized 7-Dec-91 DAL
	jsr DimMyRectangle
***

active	_SetMenuBar	; restore original system menu bar
noDraw	lda #0
	tax

	rts

*** subrootinized 7-Dec-91 DAL
	export DimMyRectangle
DimMyRectangle	pea dimmed>>16
	pea dimmed
	_SetPenMask

	ldy #PopUpCtlRecord.CtlRect+x1
	lda [<ctlPtr],y
	sta <rect+x1
	jsr PushPtrToRect
***	pea color_patt>>16
	entry SelfMod1High
SelfMod1High	pea $7777	;26-Sep-90 DAL
	lda [<word1]
	and #$00F0
	asl a
***	adc #color_patt
	entry SelfMod1Low
SelfMod1Low	adc #$7777	;26-Sep-90 DAL
	pha
	_FillRect

	pea nor_mask>>16
	pea nor_mask
	_SetPenMask	; restore pen mask
	rts
*** end of subrootinization, 7-Dec-91

	ENDWITH

	ENDP

	title 'PopUpDefProc -- Do_NewValue'
****************************************************************
*
do_newValue	PROC
*
* Called by control manager in response to a _SetCtlValue call. This routine redraws the
* result in the pop-up in response to a change in the selected item for the pop-up.
*
*
* Inputs:
*	ctlHandle
*	ctlPtr
*	ctlParam = high-order word is previous value, low-order word is new value.
*
* Outputs:
*	a-reg and x-reg are zero.
*
* External Refs:
	import DimMyRectangle	;7-Dec-91 DAL
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************
	WITH PopUpCtlRecord

	ldy #ctlFlag	; check if the invisible flag is set
	lda [<ctlPtr],y
	bit #$0080	; if high bit of flag is set then its invisible
	bne doNothing

	jsr SetNewMenuBar
	jsr SetupColorTable

	ldx #$FFFF
	jsr DrawResult

*** Skankified 7-Dec-91 DAL -- If control is dimmed, draw new value as dimmed, too.
	phd
	pha
	pha	;space for GetWAP
	pea 0	;system tool
	pea $10	;control manager
	_GetWAP	;get Control Manager direct page
	tsc
	tcd
	ldy #$004E	;offset to Active flag
	lda [1],y	;grab value from Control Manager workspace
	plx
	plx
	pld
	tax
	bpl @noDim
	jsr DimMyRectangle
@noDim
*** end 7-Dec-91

	_SetMenuBar

doNothing	rts

	ENDP


	title 'PopUp DefProc -- Do_Track'
****************************************************************
*
do_track	PROC
*
* This is the routine that is called when the mouse goes down
* in the control.
*
* The control manager calls this routine because, the
* test routine returned a part code of $80.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************
	WITH PopUpCtlRecord

CurrentSelection	equ word7

	lda <ctlParam
	bne @notZero

	lda #0
	tax
	rts

@notZero	jsr setNewMenuBar	; set menu bar to that of the control, leaving original
		; menubar still on the stack to be restored when we exit
	pha	; get current port and leave on stack to be restored
	pha	; later
	_GetPort

	ldy #ctlFlag
	lda [<ctlPtr],y
	and #FDontDrawTitle
	bne NoTitle
	lda [<ctlPtr],y
	and #FDontHiliteTitle
	bne NoTitle

	jsr derefmenuhand	; dereference menu's handle and put pointer in <temp

	PushWord #True	; hilite the control's title
	ldy #oMenuID
	lda [<temp],y
	pha
	_HiliteMenu

NoTitle	ldy #PopUpRect	; convert the upper left corner of the rect to global
	jsr MoveRect
	jsr PushPtrToRect
	_LocalToGlobal

*** 9-Mar-91 DAL -- shift the rest of the rectangle to global coordinates
	pea 0
	tdc
	adc #rect+4
	pha
	_LocalToGlobal
*** end of 9-Mar-91 DAL

	ldy #ctlFlag	; find out what port we should set to
	lda [<ctlPtr],y
	and #FInWindowOnly
	bne SamePort

	pha	; use menu mgr's port so we can draw some long menus
	pha
	_GetMenuMgrPort
	_SetPort

SamePort	pha	; space for result

	ldy #ctlValue
	lda [<ctlPtr],y	; current selection
	pha

	lda <rect+x1	; upper left corner of where to draw current selection
***
	dec a	;added 21-Jan-91 DAL to make it line up perfectly
	dec a
***
	pha
	lda <rect+y1
	pha

	ldy #ctlFlag 	; popup flag, what type to draw (with or w/o white space)
	lda [<ctlPtr],y
	and #FType2PopUp
	pha

*** 9-Mar-91 DAL: call CalcMenuSize again to allow for the arrow icon!
	ldy #PopUpCtlRecord.ctlMoreFlags
	lda [<ctlPtr],y
	and #fDrawArrowIcon
	beq @noAdj

	jsr derefMenuHand	;added 15-Mar-91 DAL

	sec	;make the popped-up menu at least as wide as the control rect
	lda <rect+x2
	sbc <rect+x1
	inc a
	inc a	;make it a bit wider, for the shadow decoration on the right
	tax
	ldy #oMenuWidth
	cmp [<temp],y	;current menu width
	bcc @alreadyWide

	phx	; new width
	pea 0	; new heighth, 0 for automatic calculation
***	ldy #oMenuID	; id of menu record (ZERO)
	jsr derefmenuhand	; --> temp
	lda [<temp]
	pha
	_CalcMenuSize
@alreadyWide
@noAdj
*** end of 9-Mar-91 DAL

	ldy #MenuRef+2	; handle to the menu record
	lda [<ctlPtr],y
	pha
	dey
	dey
	lda [<ctlPtr],y
	pha

	_PopUpMenuSelect	; make call to PopUpMenuSelect

	pla
	sta <currentSelection

	_SetPort	; restore original port

	lda <currentSelection
	beq NoSelection

;;;This code works, but it's probably not a good feature.  Applications have no
;;;other way to determine what item was selected, if they want to provide menu
;;;item help for dimmed items in pop-up menu controls.
;*** added 7-Dec-91 DAL -- don't allow a dimmed item to become the current value
;	pha	;space for result
;	pei <currentSelection
;	_GetMItemFlag
;	pla
;	and #$0080
;	bne NoSelection
;	lda <currentSelection
;*** end 7-Dec-91
	ldy #ctlValue
	sta [<ctlPtr],y

	jsr SetupColorTable

***	jsr ReCalcPopUpRect	   ;incomplete routine from Harry (27-Sep-90 DAL)

	pei <currentSelection ; save it because DrawResult trashes this value
	ldx #$FFFF	; flag for DrawResult to setup some additional things
	jsr DrawResult
	pla
	sta <currentSelection

NoSelection	ldy #ctlFlag
	lda [<ctlPtr],y
	and #FDontDrawTitle
	bne bye
	lda [<ctlPtr],y
	and #FDontHiliteTitle
	bne bye

	jsr derefmenuhand	; we need to keep derefing this guy because we can't lock
		; down the handle because most menu mgr calls upon exit
		; unlock this handle
	PushWord #False
	ldy #oMenuId
	lda [<temp],y
	pha
	_HiliteMenu

bye	_SetMenuBar

	ENDWITH

	lda <currentSelection
	beq noHit
	ldx #$A0	; return part code for the pop-up
	bra out

noHit	ldx #0

out	lda #True	; tell control manage that we handled the drag.

	rts


	ENDP


	title 'PopUp DefProc -- Do_Move'
****************************************************************
*
do_Move	PROC Export
*
* Updates the pop-up box's rect to the appropriate values. The ctlRect
* has already been changed by the control manager.
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

	ldy #PopUpCtlRecord.PopUpRect
	jsr PushPtrToRect2

	pei <ctlParam+2
	pei <ctlParam
	_OffSetRect

	lda #0
	tax

	rts

	ENDP


	title 'PopUp DefProc -- Do_Key'
****************************************************************
*
do_key	PROC Export
*
* Handle a key or menu event.
*
* The event.what will be an Event Manager event (typically
* nullEvt, keyDownEvt, autoKeyEvt) or the special code
* wInSpecial for a menu item (ID in taskData).
*
* ctlParam is the event record.
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* 12 Apr 89	Steven Glass
*
* Check the control record for inactive control and invisible
* control.  If either is true, reject the event.
*
****************************************************************

; Added 12 Apr 89 SEG
	ldy #NewCtlRecord.ctlFlag	;Look at the flag and hilite bytes
	lda [<ctlPtr],y
	tax		;(save a momment)
	and #$FF00		;If hilite is FF, we are inactive and should
	cmp #$FF00		;ignore the event.
	beq DontWantIt
	txa		;Now, check the invis bit
	and #$0080		;If invis, we don't want it either.
	bne DontWantIt
; End Addition

*** added 17-Nov-92 DAL -- Only send keyDown and autoKey events to MenuKey
	lda [<ctlParam]
	cmp #keyDownEvt
	beq @isKey
	cmp #autoKeyEvt
	bne DontWantIt
@isKey
*** Preserve menu bar around the MenuKey call
	pha
	pha
	_GetMenuBar
*** end 17-Nov-92 DAL
	pei <ctlParam+2	;pointer to task record containing char to check
	pei <ctlParam
	pei <theCtlHandle+2
	pei <theCtlHandle
	_MenuKey
*** added 17-Nov-92 DAL -- restore menu bar
	_SetMenuBar
*** end 17-Nov-92

	ldy #owmTaskData
	lda [<ctlParam],y
	bne @1
	brl DontWantIt

@1	ldy #PopUpCtlRecord.ctlvalue
	sta [<ctlPtr],y

	jsr SetNewMenuBar
	jsr SetupColorTable

	ldx #$FFFF
	jsr DrawResult

	ldy #PopUpCtlRecord.ctlFlag
	lda [<ctlPtr],y	; check if there is a title or not
	and #FDontDrawTitle
	bne noTitle

	jsr derefmenuhand

	pea 0	;unhilite the popup's title highlighted by MenuKey
	ldy #oMenuID
	lda [<temp],y
	pha
	_HiliteMenu

noTitle	_SetMenuBar

	lda #$FFFF	;Return true for having handled event
	tax
	rts

DontWantIt	lda #0	;Return False, don't want event.
	tax

	rts

	ENDP


	title 'PopUp DefProc -- Do_StateChange'
****************************************************************
*
do_stateChange	PROC Export
*
* This message is sent when the state of the window that the control is
* in has changed.
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

	ldy #PopUpCtlRecord.ctlRect
	jsr PushPtrToRect2
	_InvalRect

	tax

	rts

	ENDP

****************************************************************
*
GetPopUpDefProc	PROC Export
*
* Returns the address of the PopUp control def-proc.
*
*
* Inputs:
*	space for pointer
*
* Outputs:
*	Pointer to DefProc
*
* External Refs:
	import PopUpProc
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************
	DefineStack
RTL1	block 3
RTL2	block 3
ThePointer	LONG

	lda #PopUpProc
	sta ThePointer,s
	lda #^PopUpProc
	sta ThePointer+2,s

	lda #0
	clc
	rtl

	ENDP

********************************************************************************
*
* 	DerefMenuHand
*
* Dereference the menu handle in PopUpCtlRecord.MenuRef and put ptr in our direct
* page space Temp.
*
********************************************************************************
derefMenuHand	PROC

	ldy #PopUpCtlRecord.MenuRef
	lda [<ctlPtr],y
	sta <temp
	iny
	iny
	lda [<ctlPtr],y
	sta <temp+2

	lda [<temp]
	tax
	ldy #2
	lda [<temp],y
	sta <temp+2
	stx <temp

	rts

	ENDP

********************************************************************************
*
* 	SetupColorTable
*
*	This routine puts the pointer to the pop-up control's
* 	color table into our direct page space <word1. If the
*	ctlColor field of the record is zero then we use the
*	default color table defined in PopUpData.
*
*  IN: <ctlPtr = ptr to pop-up's control record
* OUT: <word1 = ptr to pop-up's color table (if ctlColor field is zero
*               then we use the default color table)
*
********************************************************************************
SetupColorTable	PROC

	ldy #PopUpCtlRecord.ctlColor+2 ; get pop-up's color table
	lda [<ctlPtr],y	; if this field is zero then it means we use
	dey	; the default color table
	dey
	ora [<ctlPtr],y
	beq @DefaultColor	; use default color table

	ldy #PopUpCtlRecord.ctlColor
	lda [<ctlPtr],y
	sta <word1
	iny
	iny
	lda [<ctlPtr],y
	sta <word1+2

	ldy #PopUpCtlRecord.ctlmoreflags
	lda [<ctlPtr],y
	and #$0018	; bits 3 and 4 tell us what the color table is made of
	beq @Done

	bit #$0008	; Is color table a handle?
	bne @ColorTableIsHandle

@ColorTableIsResource
	pha
	pha
	PushWord #rCtlColorTbl	;was rCtlColorTable 17-Sep-90 DAL
	lda <word1+2
	pha
	lda <word1
	pha
	_CMLoadResource
	pla
	sta <word1
	pla
	sta <word1+2

@ColorTableIsHandle
	ldy #2
	lda [<word1],y
	tax
	lda [<word1]
	sta <word1
	stx <word1+2

	rts

@DefaultColor	lda #DefColorTable
	sta <word1
	lda #^DefColorTable
	sta <word1+2

@Done	rts

	ENDP

********************************************************************************
*
* 	DrawResult
*
*	This routine draws the currently selected menu item in
*	the pop-up rect. It first checks whether the FDontDrawResult
*	bit is set before doing anything. If the item ID in ctlValue
*	is invalid (carry set coming back from GetMItem) then we clear
*	whatever is currently in the pop-up rect and set ctlValue to zero.
*
*  IN: <word1 : contains ptr to pop-up's color table (call SetupColorTable)
*      pop-up control's record is the current menu bar (call SetNewMenuBar)
*      x-reg : $0000 = don't need to setup popup rect in <RECT (already done by DrawPopupBox)
*              $FFFF = we need to setup <RECT still
*
********************************************************************************
DrawResult	PROC
	import CheckForIcon

ItemNameHdl	equ word3
ItemNamePtr	equ word5
mode	equ word7

	ldy #PopUpCtlRecord.ctlFlag ; first check if result should be drawn
	lda [<ctlPtr],y
	and #FDontDrawResult
	beq okToDraw
	brl out

okToDraw	txa	; flag that tells us whether we're just drawing result
	bpl SkipThisSetup

	jsr ClearResult

SkipThisSetup	pha	; space for result
	pha
	ldy #PopUpCtlRecord.ctlValue ; get pointer to currently selected item in pop-up menu
	lda [<ctlPtr],y
	beq @Invalid	; if ctlValue is zero, its means nothing currently selected
	pha	; must special case zero because zero item id to GetMItem
	_GetMItem	; means get first item in menu!!!
	bcc @skipit	; item found
@Invalid	pla	; clean up stack first
	pla
	brl Errout

@skipit	pla
	sta <itemNamePtr
	pla
	sta <itemNamePtr+2

	stz <ItemNameHdl
	stz <ItemNameHdl+2

	pea 0
	ldy #PopUpCtlRecord.ctlValue
	lda [<ctlPtr],y
	pha
	_GetMItemFlag
	pla
	and #$C000	; mask off high two bits of item flag to get ref
	beq pointer	; 00 = ptr
	bpl handle	; 01 = handle

	pha	; 10 = resource
	pha
	pea $8006	; string resource
	pei <ItemNamePtr+2
	pei <ItemNamePtr
	_CMLoadResource
	pla
	sta <ItemNamePtr
	pla
	sta <ItemNamePtr+2

handle	lda <ItemNamePtr
	sta <ItemNameHdl
	lda <ItemNamePtr+2
	sta <ItemNameHdl+2
	ldy #4	; first lock down handle
	lda [<ItemNameHdl],y
	ora #$8000
	sta [<ItemNameHdl],y
;;;	ldy #2	; deref the handle
	dey
	dey
	lda [<ItemNameHdl],y
	sta <ItemNamePtr+2
	lda [<ItemNameHdl]
	sta <ItemNamePtr

	jsr SetupColorTable	; reset ptr to color table just in case memory moved
		; from above load resource
pointer
	jsr PushPtrToRect	; inset the rect to get it ready for drawing the result
	pea 2
	pea 1
	_InsetRect

	pha	; get foreground color and save on the stack
	_GetForeColor

	pha
	_GetTextFace	; save original text face

	pha
	_GetTextMode	; save original text mode

	pea 4	; Transfer foreground pixels only
	_SetTextMode

	pha	; clip title to the pop-up rectangle
	pha
	_GetClipHandle

	pha	; get a new clip region
	pha
	_NewRgn
	lda 3,s
	pha
	lda 3,s
	pha
	_SetClipHandle

	jsr PushPtrToRect
	_ClipRect

	jsr PushPtrToRect	; put rect back the way it was before
	pea $FFFE
	pea $FFFF
	_InsetRect

	lda [<word1]
	and #$000F
	pha
	asl a
	asl a
	asl a
	asl a
	ora 1,s
	sta 1,s
	xba
	ora 1,s
	sta 1,s
	_SetForeColor	; set the color of the text

	pha	; space for result
	ldy #PopUpCtlRecord.ctlValue
	lda [<ctlPtr],y
	pha
	_GetMItemStyle
	_SetTextFace

	pha 	; leading
	pha 	; widmax
	pha	; descent
	pha	; ascent
	tsc
	inc a
	pea 0
	pha
	_GetFontInfo
	ply	; get ascent off stack
	pla	; get descent off stack
	ply	; get widmax off stack
	ply	; get leading off stack

	clc
	adc #2
	pha

	ldy #PopUpCtlRecord.ctlFlag
	lda [<ctlPtr],y
	and #FRightJustifyResult
	beq LeftJustifyResult

	pha	; space for result
	pei <ItemNamePtr+2
	pei <ItemNamePtr
	_StringWidth
	lda <Rect+x2
	sec
	sbc 1,s
	sbc #3
	bra storeLeft
LeftJustifyResult
	pha	; calculate amount of space to indent result
	pea $57
	_CharWidth
	lda 1,s
	ror a
	clc
	adc 1,s
	adc <Rect+x1
storeLeft	tax
	pla

	lda <Rect+y2
	sec
	sbc 1,s
	ply
	phx
	pha

	jsr CheckForIcon	; check to see if menu item has an icon associated with it
		; and if we need to draw it.

	lda 3,s	;X coord
	sta >theXpos
	_MoveTo

;;	lda <ItemNamePtr+2
;;	pha
;;	lda <ItemNamePtr
;;	pha
;;	_DrawString
*** 16-Mar-92 DAL -- use DrawStringWidth to draw result
	pea $4000	;center-trunc, pstring ptr
	pei <ItemNamePtr+2
	pei <ItemNamePtr	;string pointer
	sec
	lda <Rect+x2
	sbc >theXpos
	pha

	ldy #PopUpCtlRecord.ctlMoreFlags
	lda [<ctlPtr],y
	and #fDrawArrowIcon
	beq @drawResult

	jsr GetNegIconWidth
	adc 1,s
	sta 1,s

@drawResult
	ldx #$1512
	jsl $e10000
;	_DrawStringWidth
*** end 16-Mar-92


*** Added 21-Jan-91 DAL
*** If fDrawArrowIcon is set, draw a down-pointing arrow after the item
	ldy #PopUpCtlRecord.ctlMoreFlags
	lda [<ctlPtr],y
	and #fDrawArrowIcon
	beq @noDownArrow

	pha
	pha	;space for GetSysIcon result
	pea 2	;misc icons
	pea 3	;down arrow icon
	pha
	pha	;long aux value (ignored)
	_GetSysIcon
	pea 0	;icon mode
	jsr GetNegIconWidth
	adc <Rect+x2	;right edge minus width or half-of-width
	pha
	lda <Rect+y1
	inc a	;Ought to get the font height here
	inc a
	pha
	_DrawIcon
@noDownArrow
*** end of 21-Jan-91 DAL

	lda <ItemNameHdl+1
	beq NoHandle

	ldy #4	; unlock handle to the title
	lda [<ItemNameHdl],y
;	and #$7FFF
	asl a
	lsr a
	sta [<ItemNameHdl],y

	pea 0
	ldy #PopUpCtlRecord.ctlValue
	lda [<ctlPtr],y
	pha
	_GetMItemFlag
	pla
	bpl NotResource	; if zero then item string was not a resource

	pea $8006	; pstring resource

	pha	; result space for GetMItem
	pha
	ldy #PopUpCtlRecord.ctlValue
	lda [<ctlPtr],y
	pha
	_GetMItem

	_CMReleaseResource

NotResource
NoHandle	_DisposeRgn
	_SetClipHandle

	_SetTextMode	; restore original stuff
	_SetTextFace
	_SetForeColor	; restore original foreground color

out	rts

Errout	ldy #PopUpCtlRecord.ctlValue
	lda #0	; zero ctlValue, this tells us there is no current selection
	sta [<ctlPtr],y

	rts

theXpos	dc.w 0

*
* GetNegIconWidth
*
GetNegIconWidth	lda #22
	jsr HalfIf320
	eor #$ffff
	sec
	rts

*
* HalfIf320 -- in 640 mode, return A unchanged, carry clear
*              in 320 mode, return A cut in half, carry clear
*
* (The carry is always clear so we can ADC when we come back)
*
HalfIf320	pha
	pha
	_GetMasterSCB
	pla
	and #$0080
	bne @640
	pla
	lsr a
	clc
	rts
@640	pla
	clc
	rts

	ENDP

********************************************************************************
*
* 	DrawPopUpBox
*
*	Draws the pop-up rect and the drop shadow.
*
*  IN: <word1 : contains ptr to color table for pop-up
*      <word7 : contains flag to tell us what mode we're in
*
********************************************************************************
DrawPopUpBox	PROC

mode	equ word7

	jsr ClearResult	; setup <RECT and fill background color of pop-up

	ldx #1	; set the pen size
	lda <mode
	beq Not640
	inx
Not640	phx	; width of pen
	pea 1	; height of pen
	_SetPenSize

***	pea color_patt>>16	; make sure pen pattern is setup according to
	entry SelfMod2High
SelfMod2High	pea $7777	; 26-Sep-90 DAL
	ldy #4	; pop-up menu's color table
	lda [<word1],y
	and #$00F0
	asl a
***	adc #color_patt
	entry SelfMod2Low
SelfMod2Low	adc #$7777	; 26-Sep-90 DAL
	pha
	_SetPenPat

	jsr PushPtrToRect	; now frame it
	_FrameRect

;
; --- Draw the drop shadow for the pop-up rect ---------------------------------------
;
	ldy <Rect+x2	; Pass last point
	phy
	lda <Rect+y1
	clc
	adc #4
	pha

	phy	; Pass second point
	ldx <Rect+y2
	phx

	lda <Rect+x1	; Set starting point
	clc
	adc #5
	pha
	phx
	_MoveTo
	_LineTo

	lda #1
	ldx <mode
	beq In320mode
	inc a
In320mode	asl a
	pha
	pea 1
	_SetPenSize
	_LineTo

	rts

	ENDP

********************************************************************************
*
* 	ClearResult
*
*	This routine clears the item in the pop-up rect
*	it also puts the popup rect in <RECT.
*
*  IN: <ctlPtr : ptr to pop-up control record
*      <word1 : contains ptr to pop-up control's color table
* OUT: <RECT contains the pop-up rect (not including right drop shadow)
*
********************************************************************************
ClearResult	PROC

	pha
	_GetMasterSCB
	pla
	and #$0080
	sta <word7

	ldy #PopUpCtlRecord.PopUpRect
	jsr MoveRect

	ldy <Rect+x2
	dey
	dey
	lda <word7
	beq Its320
	dey
	dey
Its320	sty <Rect+x2

	dec <Rect+y2	; adjust for bottom drop shadow

	jsr PushPtrToRect
	ldx #1
	lda <word7
	beq pushit1
	inx
pushit1	phx
	pea 1
	_InsetRect

	jsr PushPtrToRect	; no valid current selection
***	pea color_patt>>16
	entry SelfMod3High
SelfMod3High	pea $7777	; 26-Sep-90 DAL
	lda [<word1]
	and #$00F0
	asl a
***	adc #color_patt
	entry SelfMod3Low
SelfMod3Low	adc #$7777	; 26-Sep-90 DAL
	pha
	_FillRect

	jsr PushPtrToRect
	ldx #$FFFF
	lda <word7
	beq pushit2
	dex
pushit2	phx
	pea $FFFF
	_InsetRect

	rts

	ENDP

********************************************************************************
*
* 	SetNewMenuBar
*
* Saves the handle to the old menu bar on the stack and then sets the new menu bar
* to that of the control handle.
*
********************************************************************************
setNewMenuBar	PROC

	pla	; get rts off the stack
	sta <word1

	pha	; save original menubar on the stack
	pha
	_GetMenuBar

;	lda <theCtlHandle+2	; make the new menu bar the popup control
;	pha
;	lda <theCtlHandle
;	pha
*** opt 13-Mar-92 DAL
	pei <theCtlHandle+2	; make the new menu bar the pop-up control
	pei <theCtlHandle
***
	_SetMenuBar

	lda <word1
	pha

	rts

	ENDP


********************************************************************************
*
* MoveRect
*
* Moves the rectangle from the control record
* to direct page.
*
* The source rectangle is specified by placing
* its offset in the y-reg.
*
********************************************************************************
MoveRect	PROC

	ldx #0	; copy rect to d page
@1	lda [CtlPtr],y
	sta rect,x
	iny
	iny
	inx
	inx
	cpx #8
	bcc @1

	rts

	ENDP


********************************************************************************
*
* MoveRectIn
*
* Moves the rectangle from direct page to the control record
*
* The destination rectangle is specified by placing
* its offset in the y-reg.
*
********************************************************************************
MoveRectIn	PROC

	ldx #0
@1	lda Rect,x
	sta [CtlPtr],y
	iny
	iny
	inx
	inx
	cpx #8
	bcc @1

	rts

	ENDP


********************************************************************************
*
* PushPtrToRect
*
* Pushes pointer to controls bounding rect.
*
********************************************************************************
PushPtrToRect	PROC

	ply	; save rts
	pea 0000
	tdc
	clc
	adc #Rect	; get address of rect on stack
	pha

	phy	; restore rts

	rts

	ENDP


********************************************************************************
*
* PushPtrToRect2
*
* Y contains the offset of the pointer to the rectangle to push on the stack.
*
********************************************************************************
PushPtrToRect2	PROC

	plx	; save return address

	tya	; y contains the offset in control record of rect to push
	clc
	adc CtlPtr	; base address of control record
	tay
	lda CtlPtr+2	; high word of address
	adc #0
	pha	; push address on the stack
	phy

	phx	; restore the return address

	rts

	ENDP


********************************************************************************
PopUpData	PROC

; --- Masks for dimmed and normal text -----------------------------

	ENTRY dimmed
dimmed	DC.B $55,$AA,$55,$AA,$55,$AA,$55,$AA
	ENTRY nor_mask
nor_mask	DC.B $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF

; --- Default menu bar color table ---------------------------
;
	ENTRY DefColorTable
DefColorTable	DC.W $00F0	Normal color, black	text on white.
	DC.W $000F	Hilited color, white text on black.
	DC.W $0000	Outline color, black.

	ENDP


	if 0 then	;incomplete stuff from Harry (27-Sep-90 DAL)
********************************************************************************
*
* 	ReCalcPopUpRect
*
* This routine recalculates the size of the popup rectangle based on the
* currently selected item.
*
*
********************************************************************************
ReCalcPopUpRect	PROC

mode	equ word7

	ldx <ctlPtr+2

	ldy #PopUpCtlRecord.ctlFlag
	lda [<ctlptr],y
	ldy #PopUpCtlRecord.PopUpRect
	and #FJustifyPopup
	beq @NoJustification

	ldy #PopUpCtlRecord.ctlRect
@NoJustification	tya
	clc
	adc <ctlPtr

	bcc @noCarry
	inx
@noCarry	phx
	pha
	_EraseRect

	pha
	ldy #PopUpCtlRecord.ctlValue
	lda [<ctlptr],y
	pha
	ldx #$4E0F		; call GetItemWidth
	jsl $E10000
	pla		; Recalculate new popup rectangle
	clc		; and update the control record.
	ldy #PopUpCtlRecord.PopUpRect+x1
	adc [<ctlptr],y
	ldy #PopUpCtlRecord.PopUpRect+x2
	sta [<ctlptr],y
	ldy #PopUpCtlRecord.ctlRect+x2
	sta [<ctlptr],y		; update the control rect also

	ldy #PopUpCtlRecord.ctlFlag
	lda [<ctlptr],y
	and #FJustifyPopup
	beq NoJust

	ldy #PopUpCtlRecord.ctlRect+x2
	lda [<ctlPtr],y
	sec
	ldy #PopUpCtlRecord.ctlRect+x1
	sbc [<ctlPtr],y
	pha

	ldy #PopUpCtlRecord.ctlData+2
	lda [<ctlptr],y
	ldy #PopUpCtlRecord.ctlData
	sec
	sbc [<ctlptr],y

	sec
	sbc 1,s
	clc
	ror a
	ldy #PopUpCtlRecord.ctlData
	clc
	adc [<ctlptr],y
	ldy #PopUpCtlRecord.ctlRect+x1
	sta [<ctlptr],y
	clc
	adc 1,s
	ldy #PopUpCtlRecord.ctlRect+x2
	sta [<ctlptr],y
	tax

	ldy #PopUpCtlRecord.PopUpRect+x2
	lda [<ctlptr],y
	ldy #PopUpCtlRecord.PopUpRect+x1
	sec
	sbc [<ctlptr],y
	sta 1,s

	ldy #Popupctlrecord.popuprect+x2
	txa
	sta [<ctlptr],y

	ldy #Popupctlrecord.popuprect+x1
	sec
	sbc 1,s
	sta [<ctlptr],y
	pla


	jsr derefmenuhand	; deref handle to menu and put in <temp

	pea 0	; draw the pop-up's title
	ldy #oMenuID
	lda [<temp],y
	pha
	_HiliteMenu


NoJust	PushWord <word7		; Save contents of dpage var <word7
;			; since routine DrawPopUpBox uses it.
	jsr SetupColorTable
	jsr DrawPopUpBox

	pla		; restore <word7, whether or not its in use currently
	sta <word7

	rts

	ENDP

	endif		;27-Sep-90 DAL



********************************************************************************
*
* 	CheckForIcon
*
* This routine checks to see if the currently selected item has an icon
* associated with it and if it does do we need to draw it.
*
********************************************************************************
CheckForIcon	PROC export

	ldy #PopUpCtlRecord.ctlMoreFlags
	lda [<ctlPtr],y
	and #FDrawIconInResult

	beq Error

	pha		; space for result
	pha
	ldy #PopUpCtlRecord.ctlValue	; get id of selected menu item
	lda [<ctlPtr],y
	pha
	_GetMItemIcon
	bcc GotIcon
NoIcon
	plx
	plx
Error	brl DontDrawIcon		; clean up stack and return error

GotIcon	lda 1,s
	ora 3,s		; see if a valid icon ref was passed back
	beq NoIcon

	pha		; space for result
	ldy #PopUpCtlRecord.ctlValue	; get id of selected menu item
	lda [<ctlPtr],y
	pha
	_GetMItemFlag2
	pla
	and #$0003		; low 2 bits of ItemFlag2 tell us how icon is ref.
	tax		; move how icon will be referenced in x-reg

	pha		; space to store iconRef that might need to get released
	pha

	ldy #PopUpCtlRecord.ctlFlag	; get title justification information
	lda [<ctlPtr],y
	and #$0001
	pha
;
; ----- Setup new stack frame ----------------------------------------------------------------
;
	DefineStack
DPage	equ 1
Justification	equ DPage+2
IconID	equ Justification+2
TheIconRef	equ IconID+4
theRTS	equ TheIconRef+4
yCoord	equ theRTS+2		; position in local coords. that text is to drawn
xCoord	equ yCoord+2

	phd
	tsc
	tcd

	txa		; y-reg defines how icon will referenced

	asl a		; turn into index to table
	tax

	jmp (Table,x)

Table	dc.W doPointer
	dc.W doHandle
	dc.W doResource
	dc.W Error		; invalid value in moreflags

doResource	lda <Justification		; set bit to indicate icon was a resource
	ora #$8000
	sta <Justification

	lda <TheIconRef		; store id of icon resource so we can use it later
	sta <IconID		; to dispose of this resource
	lda <TheIconRef+2
	sta <IconID+2

	pha		; space for result
	pha
	PushWord #rIcon
	PushLong <TheIconRef
	_LoadResource
	bcc LoadedOk
	pld		; restore original direct page register
	brl NoIcon

LoadedOk	pla		; put hdl to icon in a dpage variable
	sta <TheIconRef
	pla
	sta <TheIconRef+2

doHandle	ldy #2		; deref handle to icon
	lda [<TheIconRef],y
	tax
	lda [<TheIconRef]
	sta <TheIconRef
	stx <TheIconRef+2
doPointer
;
; ----- Get ready to make _DrawIcon call ------------------------------------------------------------
;
	PushLong <TheIconRef	; ptr to icon
	pea 0		; display mode

	PushWord <xCoord		; x coordinate

	lda <DPage
	tax
	ldy #oQDIconWidth
	lda [<TheIconRef],y
	tay
	lda >Word7,x
	beq @In320
	tya
	asl a
	tay
@In320	lda <Justification
	and #$0001
	bne RightJust

	tya
	clc
	adc <xCoord
	adc #2
	sta <xCoord
	bra TitleCoordFudged
RightJust
	tya
	sta 1,s
	lda <xCoord
	sec
	sbc 1,s
	sbc #2
	sta 1,s

TitleCoordFudged	lda <DPage
	tax
	lda >Rect+y2,x
	sec
	sbc >Rect+y1,x
	ldy #oQDIconHeight
	sec
	sbc [<TheIconRef],y
	clc
	ror a
	pha
	lda >Rect+y1,x
	clc
	adc 1,s
	sta 1,s
*** added 21-Jan-91 DAL for 640 dithering
	lda 3,s
;	and #$fffe
	lsr a
	asl a
	sta 3,s
*** end of 21-Jan-91 DAL
	_DrawIcon		; draw the icon in the popup box

	lda <Justification		; check flag to see if icon was resource
	bpl NotResource		; if it was then we need to release the resource

;;;	PushWord #$FFFF		; neg. purge level which means handle gets disposed
	pea 3		;purge level 3 (7-Dec-91 DAL)
	PushWord #rIcon
	PushLong <IconID
	_ReleaseResource

NotResource	pld		; restore direct page
	tsc		; clean up stack
	clc
	adc #10
	tcs

DontDrawIcon	rts

	ENDP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/MenuMgr/wcm.asm b/IIGS.601.SRC/GSToolbox/MenuMgr/wcm.asm
new file mode 100644
index 0000000..e2d93fd
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/MenuMgr/wcm.asm
@@ -0,0 +1 @@
+	Blanks off
	String asis

**********************************************************************
*
*          Copyright Apple Computer, Inc. 1986-1988
*	 All rights reserved
*	Written by Dan Oliver
*
*               ***	C O N F I D E N T I	A L ***
*
* 26 Oct 88	Harry Yee
* Inserted exit routine to pop 14 bytes.
*
* 10/2788	Dan O.
* Added shutdown entry point.
* Added allocate1 entry point.
*
**********************************************************************

IncBusyFlg		equ $E10064
DecBusyFlg		equ $E10068


	INCLUDE 'all.macros'


;==========================================================================
;          Push a direct page address.
;
;   IN:    a = direct page offset.
;==========================================================================
	EXPORT pushDpage
pushDpage	PROC

	plx	Get return address.

	pea 0	Zero page address.
	pha	Zero page offset.
	tdc	Zero page starting address.
	clc
	adc 1,s
	sta 1,s

	phx	Put return address back on stack.
	
	rts
	
	ENDP


;==========================================================================
;
;          Push a long value from direct page.
;
;   IN:  x = offset	to direct page value to be pushed.
;
;==========================================================================
	EXPORT pushDlong
pushDlong	PROC

	ply	Grab return address.

	lda <2,x
	pha
	lda <0,x
	pha

	phy	Put back return address and return.
	
	rts
	
	ENDP


;==========================================================================
;
;          Allocate	a block of memory.
;
;   IN:    y = ID number.
;          a = number of bytes.
;
;  OUT:    Carry clear if handle allocated, a+x = handle.
;          Carry set if error, y = error returned by Memory	Manager.
;
;==========================================================================
;
allocate1	PROC EXPORT
;
	ldx #0	Anywhere, anyhow.
	bra allocate3
;
;
	EXPORT allocate2
allocate2	ldx #%0100000000010000 Fixed, May not cross bank boundary.

;
; = = = = = = = = =	= = = = = = = = = =	= = = = =
;          Allocate	a block of memory.
; = = = = = = = = =	= = = = = = = = = =	= = = = =
;
;   IN:    y = ID number.
;          x = attributes.
;          a = number of bytes.
;
;  OUT:    Carry clear if handle allocated, a+x = handle.
;          Carry set if error, y = error returned by Memory	Manager.
;
	EXPORT allocate3
allocate3		;       

	pha	Space for returned handle.
	pha
	pea 0	High word of size.
	pha	Pass low word of size.
	phy	Pass ID number.
	phx	Pass attributes.
	pha	Address doesn't matter.
	pha
	_NewHandle
	tay	Return error code in Y.
	pla	Return handle in a+x.
	plx
	
	rts
	
	ENDP


;==========================================================================
;
;          Do setup	for tool call.
;
;   IN:    a+y = handle to data area.
;
;  OUT:    Carry clear if no error.
;          Carry set if null data pointer, y = error code.
;
;==========================================================================
	EXPORT startup
startup	PROC
	jsl IncBusyFlg

	plx	Get return address.

	phd	Save caller's direct page.
	phb	Save caller's data page.

	tcd	Switch to my direct	page.
	phk	Switch to this data	bank.
	plb

	phx	Put return address back on stack.
	
	rts

;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = =
; Entry points for function exits.
;
; These are shared by Window manager and Menu Manager.
; Those routines starting with E expect an error code
; in the y-reg.  Routines without an E do not return
; an error.
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = =
;
;   IN:    y = error code.
;
	EXPORT pop0bytes
pop0bytes	
	ldy #0	; no error
	EXPORT Epop0bytes
Epop0bytes
	ldx #0
	bra shutdown

	EXPORT pop2bytes
pop2bytes		;       
	ldy #0	; no error
	EXPORT Epop2bytes
Epop2bytes
	ldx #2
	bra shutdown

	EXPORT pop4bytes
pop4bytes		;       
	ldy #0	; no error
	EXPORT Epop4bytes
Epop4bytes
	ldx #4
	bra shutdown

	EXPORT pop6bytes
pop6bytes		;       
	ldy #0	; no error
	EXPORT Epop6bytes
Epop6bytes
	ldx #6
	bra shutdown

	EXPORT pop8bytes
pop8bytes		;       
	ldy #0	; no error
	EXPORT Epop8bytes
Epop8bytes
	ldx #8
	bra shutdown

	EXPORT pop10bytes
pop10bytes		;       
	ldy #0	; no error
	EXPORT Epop10bytes
Epop10bytes
	ldx #10
	bra shutdown

	EXPORT pop12bytes
pop12bytes		;       
	ldy #0	; no error
	EXPORT Epop12bytes
Epop12bytes
	ldx #12
	bra shutdown

	EXPORT pop14bytes
pop14bytes	
	ldy #0	; no error
	EXPORT Epop14bytes
Epop14bytes
	ldx #14
	bra shutdown

	EXPORT pop16bytes
pop16bytes		;       
	ldy #0	; no error
	EXPORT Epop16bytes
Epop16bytes
	ldx #16
	bra shutdown

	EXPORT pop18bytes
pop18bytes		;       
	ldy #0	; no error
	EXPORT Epop18bytes
Epop18bytes
	ldx #18
	bra shutdown

	EXPORT pop26bytes
pop26bytes		;       
	ldy #0	; no error
	EXPORT Epop26bytes
Epop26bytes
	ldx #26
	bra shutdown

	EXPORT pop32bytes
pop32bytes		;       
	ldy #0	; no error
	EXPORT Epop32bytes
Epop32bytes
	ldx #32
	
;==========================================================================
;	ShutDown
;
;  IN:     y = error code, zero if no error.
;          x = number of bytes to pop.
;          Startup must have been called.
;
;==========================================================================
;
	EXPORT shutdown
shutdown
	jsl DecBusyFlg
;
; --- Restore saved	parameters from startupCall --------------------------
;
	plb	Restore original data bank.

;
; --- Move return addresses over top of	input parameters -----------------
;
	tsc
	tcd
	lda 7,s
	sta 7,x
	lda 5,s
	sta 5,x
	lda 3,s
	sta 3,x

;
; --- Adjust stact for popped parameters ---
;
	pld	Get original direct	page pointer.

	tsc	Current stack,
	phx
	clc
	adc 1,s	plus number of bytes popped,
	tcs	equals new stack.
;
	tya	Return error code in Y.
	cmp #1	Set carry if error.
	
	rtl
	
	ENDP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Midi/Drivers/Apple.Midi/apple.midi.aii b/IIGS.601.SRC/GSToolbox/Midi/Drivers/Apple.Midi/apple.midi.aii
new file mode 100644
index 0000000..89f7f28
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Midi/Drivers/Apple.Midi/apple.midi.aii
@@ -0,0 +1 @@
+;-------------------------------------------------------
;
; apple.midi.aii
;
; This is a  device driver that interfaces a 1Mhz
; serial-port device (such as the Apple MIDI Interface)
; to the Midi Tool Set.
;
; Copyright 1987, 1988, 1991 Apple Computer Inc.
; Author: Don Marsh (x6739, AppleLink: MARSH1)
;
; Modification History
;
; 13 Oct 87   DM	New today
;
; 11-Dec-91	Dave Lyons
;
; Added check in Shutdown to see if old interrupt vector
; is $FFFFxx.  If so, we were never started, so we should
; not "restore" important things we never messed with.
;
;-------------------------------------------------------

			PRINT NOGEN,NOHDR,NOSTAT,NOMDIR
			
			INCLUDE 'all.macros'
			INCLUDE 'e16.midi'			 ; error code definitions

;
;  hardware definitions
;
SCCcommand		equ $E0BFFD				; base address of SCC command register
SCCdata			equ $E0BFFF				; base address of SCC data register
port1			equ $3C					; add to SCC base addresses for port 1
port2			equ $3B					; add to SCC base addresses for port 2
SCCrecvenable	equ $10					; mask to enable receiver interrupts
SCCxmitenable	equ $02					; mask to enable transmitter interrupts

;
;  tool definitions
;
SerialVecID		equ $0009				; serial int. vector id for misc. tools


;
;  direct page usage
;
;  Note: a driver interface may use direct page locations
;		 $80-$FF only.	If more memory is required, it
;		 should be allocated using the memory manager ID
;		 passed to the initialization routine.
;

				DSect $80

userID			word 					; user ID for memory manager
port			word 					; which port to use
interruptmask	word 					; recv and xmit interrupt enable byte
intserviced		word 					; whether we serviced the interrupt

;
;  SCC interrupt control
;
SerFlagAddr		long 					; address of system variable SerFlag
SerFlagBits		word 					; bits to turn on and off in SerFlag

enddriveruse	DSectSize				; end of our direct page usage
				CheckSize enddriveruse,$FF ; generate error if we are > $FF

				EJECT
				
;
;  PopArgs1 n
;
;  The following macro removes "n" bytes of arguments below a 3-byte
;  RTL address in a time-efficient manner.
;
			MACRO
&lab		PopArgs1 &num
&lab
			IF &num='' GOTO .DONE
			IF &Eval(&num)=0 GOTO .DONE
			LCLA &popnum
&popnum		SETA &Eval(&num)
			lda 2,s
			sta 2+&popnum,s
			IF &popnum>=2 GOTO .DOPULLS
			pla
			phb
			sta 1,s
			MEXIT
.DOPULLS
			pla
			sta &popnum-1,s
&popnum		SETA &popnum-2
			IF &popnum=0 GOTO .DONE
			IF &popnum=1 GOTO .DISCARD1
			IF &popnum=2 GOTO .DISCARD2
			tsc
			clc
			adc #&popnum
			tcs
			MEXIT
.DISCARD1
			phb
.DISCARD2
			pla
.DONE
			MEND

			EJECT
			
;
;  the driver table used by the Midi Tool Set
;

DriverTable	PROC

			Import Init
			Import IntHandler
			Import NotImpDriver
			Import PollRecv
			Import PollXmit
			Import RecvIntOff
			Import RecvIntOn
			Import Reset
			Import Shutdown
			Import XmitIntOff
			Import XmitIntOn

			DC.L Init-1				; initialization routine
			DC.L Shutdown-1			; shutdown routine
			DC.L Reset-1			; reset routine
			DC.L IntHandler-1		; interrupt handler
			DC.L PollRecv-1			; routine to poll receiver
			DC.L RecvIntOn-1 		; routine to enable recv interrupts
			DC.L RecvIntOff-1		; routine to disable recv interrupts
			DC.L PollXmit-1			; routine to poll transmitter
			DC.L XmitIntOn-1 		; routine to enable xmit interrupts
			DC.L XmitIntOff-1		; routine to disable xmit interrupts
			DC.L NotImpDriver-1		; reserved
			DC.L NotImpDriver-1		; reserved
			DC.L NotImpDriver-1		; reserved

			ENDP

			EJECT

;-------------------------------------------------------
;
;  Init
;
;  Initialize the appropriate port.
;
;  Inputs:
;		space for old interrupt vector (long)
;		new interrupt vector (long)
;		slot number (word)
;		internal(=0)/external(=1) (word)
;		user id (word)
;
;		the accumulator contains the driver's direct page
;		 (the current direct page register must be
;		 preserved)
;
;  Outputs:
;		carry set if initialization was unsuccessful,
;		error code in low byte of accumulator
;
;  Registers:
;		not preserved
;
;  Note: called with interrupts disabled
;
;-------------------------------------------------------

Init		PROC

;
;  stack offsets
;
			DefineStack
s_dirpage	word 					; old direct page register
s_rtl		block 3					; rtl address

s_argstart	DSectSize				; start of arguments
s_userid	word 					; user ID for memory manager
s_external	word 					; 0 = internal, 1 = external slot
s_slot		word 					; which slot
s_newintvec	long 					; new interrupt vector address
s_argend	DSectSize				; end of arguments

s_argsize	equ s_argend-s_argstart

s_oldintvec	long 					; return old interrupt vector address


;
;  this driver works only with serial ports, slots 1 and 2 internal
;
			phd						; save current direct page register
			tcd						; get driver's direct page
			lda s_slot,s 			; must be slot 1 or 2
			cmp #1
			bcc notavail
			cmp #3
			bcs notavail
			lda s_external,s 		; must be internal
			beq slotok
notavail	ldx #miDevNotAvail		; device not available on this slot
			jmp done

slotok		lda s_userid,s			; save user ID (not used in this driver)
			sta userID

;
;  set up for initialization of the system variable "SerFlag", and
;  make sure that the requested port is available
;
checkport	pha
			_MTVersion				; which version of Miscellaneous Tools
			pla
			bcs donejmp				; Misc. Tools error
			and #$7FFF				; clear prototype bit
			cmp #$0200				; is it less than version 2.0?
			bcc fixedaddr			; yes, assume fixed address for SerFlag
			pea 0					; use Misc. Tools to find address
			pea 0
			pea $000E
			_GetAddr
			tax
			pla
			ply
			bcc gotaddr
donejmp 	jmp done 				; Misc. Tools error
fixedaddr	lda #$0104
			ldy #$00E1
gotaddr 	sta SerFlagAddr
			sty SerFlagAddr+2
			sep #$20 				; short accumulator
			longa off
			lda s_slot,s 			; which port do we want?
			dec a
			beq port1bits
			lda #%00000111			; set these bits in SerFlag
			bra setserflag
port1bits	lda #%00111000
setserflag	sta SerFlagBits
			lda [SerFlagAddr]		; get current value of SerFlag
			and SerFlagBits			; is the port already in use?
			rep #$20 				; long accumulator
			longa on
			beq setbits
			ldx #miDevSlotBusy		; port is busy
			jmp done

;
;  set the global SerFlag so that the interrupt handler will call
;  our vector
;
setbits 	lda [SerFlagAddr]		; install our bits in SerFlag variable
			ora SerFlagBits
			sta [SerFlagAddr]

;
;  patch the serial interrupt vector
;
			pea 0					; get old serial interrupt vector
			pea 0
			pea SerialVecID
			_GetVector
			pla
			sta s_oldintvec+2,s
			pla
			sta s_oldintvec+2,s

			pea SerialVecID			; set new serial interrupt vector
			lda s_newintvec+2+2,s
			pha
			lda s_newintvec+4,s
			pha
			_SetVector

;
;  initialize SCC
;
			sep #$20 				; short accumulator
			longa off
			lda #9					; talk to SCC register 9
			sta SCCcommand+port1
			lda s_slot,s 			; port 1?
			dec a
			beq initport1
			ldx #port2				; use port2
			lda #$42 				; channel B reset
			bra initport
initport1	ldx #port1				; use port1
			lda #$82 				; channel A reset

initport	stx port 				; which port to use
			sta SCCcommand,x

			lda #11					; external clocks in and out
			sta SCCcommand,x
			lda #$28
			sta SCCcommand,x

			lda #4					; clock divisor for 1Mhz, 1 stop bit
			sta SCCcommand,x
			lda #$84
			sta SCCcommand,x

			lda #3					; 8 bits in, receiver disabled
			sta SCCcommand,x
			lda #$C0
			sta SCCcommand,x

			lda #5					; 8 bits out, transmitter enabled
			sta SCCcommand,x 		;	and power to MIDI box (RTS)
			lda #$6A
			sta SCCcommand,x

			lda #1					; disable recv and xmit interrupts
			sta SCCcommand,x
			lda #$00
			sta SCCcommand,x
			sta interruptmask		; remember recv and xmit ints disabled

			lda #15					; disable external/status interrupts
			sta SCCcommand,x
			lda #$00
			sta SCCcommand,x

			lda #$10 				; reset external/status interrupts
			sta SCCcommand,x

			lda #9					; enable master interrupt
			sta SCCcommand,x
			lda #$0A
			sta SCCcommand,x

			lda #14					; set up DTR (is this necessary?)
			sta SCCcommand,x
			lda #$04
			sta SCCcommand,x

			rep #$20 				; long accumulator
			longa on
			ldx #0					; no errors

done		pld						; restore direct page register
			PopArgs1 s_argsize		; move one RTL address
			txa						; restore error code
			cmp #1					; set carry on error
			rtl

			ENDP
			
			EJECT

;-------------------------------------------------------
;
;  Shutdown
;
;  Shutdown the interface.
;
;  Inputs:
;		old interrupt vector (long)
;
;		the accumulator contains the driver's direct page
;		(the current direct page register must be
;		preserved)
;
;  Outputs:
;		carry set if shutdown was unsuccessful,
;		error code in low byte of accumulator
;
;  Registers:
;		not preserved
;
;  Note: called with interrupts disabled
;
;-------------------------------------------------------

Shutdown	PROC

;
;  stack offsets
;
			DefineStack
s_dirpage   word 					; old direct page register
s_rtl		block 3					; rtl address

s_argstart	DSectSize				; start of arguments
s_oldintvec	long 					; return old interrupt vector address
s_argend	DSectSize				; end of arguments

s_argsize	equ s_argend-s_argstart


			phd						; save old direct page register
			tcd						; get driver's direct page

*** added 11-Dec-91 DAL -- if we never started, don't fry evertying trying to restore it
			lda s_oldintvec+1,s		;middle word
			beq neverStarted
			inc a
			beq neverStarted		;$FFFFxx = never started
*** end 11-Dec-91
;
;  reset the SCC port
;
			sep #$20 				; short accumulator
			longa off
			lda #9					; talk to SCC register 9
			sta SCCcommand+port1
			lda #$8A 				; channel A reset
			ldx port 				; port 1?
			cpx #port1
			beq shutport
			lda #$4A 				; channel B reset
shutport	sta SCCcommand+port1

;
;  restore system variable SerFlag so that SCC interrupts on
;  this port are not handled
;
			lda [SerFlagAddr]		; restore system variable SerFlag
			eor SerFlagBits
			sta [SerFlagAddr]

;
;  restore old serial interrupt vector
;
			rep #$20
			longa on
			pea SerialVecID
			lda s_oldintvec+2+2,s
			pha
			lda s_oldintvec+2+2,s
			pha
			_SetVector

neverStarted
			pld						; restore direct page
			PopArgs1 s_argsize		; move RTL address
			lda #0					; no errors
			clc
			rtl

			ENDP
			
			EJECT


;-------------------------------------------------------
;
;  Reset
;
;  Take care of hardware after system reset (essentially
;  a shutdown, but special conditions may arise after
;  a system reset).
;
;  Inputs:
;		old interrupt vector (long)
;
;		the accumulator contains the driver's direct page
;		(the current direct page register must be
;		preserved)
;
;  Outputs:
;		carry set if shutdown was unsuccessful,
;		error code in low byte of accumulator
;
;  Registers:
;		not preserved
;
;  Note: called with interrupts disabled
;
;-------------------------------------------------------

Reset		PROC

			jmp Shutdown 			; this does everything we need

			ENDP

			EJECT

;-------------------------------------------------------
;
;  IntHandler
;
;  Handle receiver and transmitter interrupts.
;
;  Inputs:
;		accumulator contains driver's direct page
;		(current direct page register must be
;		preserved)
;
;  Outputs:
;		carry set if interrupt was not serviced
;
;  Registers:
;		not preserved
;
;  Note: called with interrupts disabled, long
;		accumulator and index registers
;
;-------------------------------------------------------

IntHandler	PROC

			phd						; save current direct page
			tcd						; get our direct page

			stz intserviced			; interrupt not serviced yet

again		sep #$20 				; short accumulator
			longa off
			ldx port
			lda SCCcommand,x 		; read recv and xmit status
			bit #$01 				; do we have a receive character?
			bne recvint				; process received character
			and #$04 				; ready to transmit a character?
			beq done
			lda interruptmask		; are transmitter interrupts enabled?
			bit #SCCxmitenable
			bne xmitint				; send another character

done		cmp intserviced			; set carry if we didn't service int.
			pld						; restore direct page
			rtl						; don't have to return with long acc.

recvint 	sta intserviced			; we serviced this interrupt
			lda #1					; check for errors
			sta SCCcommand,x
			lda SCCcommand,x
			and #$60
			beq @2		 			; data is ok
			and #$20				; is it overrun error?
			bne @1					; yes
			
			lda SCCdata,x			; must be framing error
			ldy #miDevReadErr
			jsl inbuferrorglue		; call Midi Tool Set to buffer it
			bra again
			
@1			lda SCCdata,x			; retrieve character
			tay						; save it
			lda #$30				; reset overrun condition
			sta SCCcommand,x
			tya						; restore character
			ldy #miDevOverrun
			jsl inbuferrorglue		; call Midi Tool Set to buffer it
			bra again				; try to get more

@2			lda SCCdata,x			; retrieve character
			jsl inbufglue			; call Midi Tool Set to buffer it
			bra again				; try to get more


xmitint 	jsl outbufglue			; get next char from Midi Tool Set
			sep #$20 				; short accumulator
			ldx port
			bcs nochar
			sta SCCdata,x			; send the char
			pld						; restore direct page
			rtl
nochar		lda #1					; disable transmitter interrupts
			sta SCCcommand,x
			lda interruptmask
			and #$FF-SCCxmitenable
			sta interruptmask
			sta SCCcommand,x
			pld						; restore direct page
			clc
			rtl

inbufglue	pea $0400				; call Midi Tool Set to buffer a char
			phd
			rtl
inbuferrorglue pea $0500			; call Midi Tool Set with input error
			phd
			rtl
outbufglue	pea $8400				; call Midi Tool Set for output char
			phd
			rtl

			longa on
				
			ENDP
			
			EJECT

;-------------------------------------------------------
;
;  PollRecv
;
;  Poll the receiver and process any characters that
;  have been received.
;
;  Inputs:
;		accumulator contains driver's direct page
;		(current direct page register must be
;		preserved)
;
;  Outputs:
;		none
;
;  Registers:
;		not preserved
;
;  Note: called with long accumulator and registers, and
;		must return in this state
;
;-------------------------------------------------------

PollRecv	PROC

			phd						; save current direct page
			tcd						; get our direct page
			php						; save interrupt flag

again		sep #$24 				; short accumulator, SEI
			longa off
			ldx port
			lda SCCcommand,x 		; read recv and xmit status
			lsr a					; do we have a receive character?
			bcs recvint				; process received character
			plp
			longa on
			pld						; restore direct page
			lda #0					; no errors
			clc
			rtl

recvint
			longa off
			lda #1					; check for errors
			sta SCCcommand,x
			lda SCCcommand,x
			and #$60
			beq @2		 			; data is ok
			and #$20				; is it overrun error?
			bne @1					; yes
			
			lda SCCdata,x			; must be framing error
			ldy #miDevReadErr
			jsl inbuferrorglue		; call Midi Tool Set to buffer it
			bra again
			
@1			lda SCCdata,x			; retrieve character
			tay						; save it
			lda #$30				; reset overrun condition
			sta SCCcommand,x
			tya						; restore character
			ldy #miDevOverrun
			jsl inbuferrorglue		; call Midi Tool Set to buffer it
			bra again				; try to get more

@2			lda SCCdata,x			; retrieve character
			jsl inbufglue			; call Midi Tool Set to buffer it
			bra again				; try to get more

inbufglue	pea $0400				; call Midi Tool Set to buffer a char
			phd
			rtl
inbuferrorglue pea $0500			; call Midi Tool Set with input error
			phd
			rtl

			longa on
			ENDP
			
			EJECT

;-------------------------------------------------------
;
;  RecvIntOn
;
;  Turn on receiver interrupts
;
;  Inputs:
;		accumulator contains driver's direct page
;		(current direct page register must be
;		preserved)
;
;  Outputs:
;		none
;
;  Registers:
;		not preserved
;
;  Note: called with long accumulator and index registers,
;		and must return in this state
;
;-------------------------------------------------------

RecvIntOn	PROC

			phd						; save current direct page
			tcd						; get our direct page
			sep #$20 				; short accumulator
			longa off

			ldx port
			lda #3					; enable the receiver
			sta SCCcommand,x
			lda #$C1
			sta SCCcommand,x

			lda #1					; enable receiver interrupts
			sta SCCcommand,x
			lda interruptmask
			ora #SCCrecvenable
			sta interruptmask
			sta SCCcommand,x

			rep #$21 				; long accumulator, CLC
			longa on
			pld						; restore direct page
			lda #0					; no errors
			rtl

			ENDP
			
			EJECT

;-------------------------------------------------------
;
;  RecvIntOff
;
;  Turn off receiver interrupts
;
;  Inputs:
;		accumulator contains driver's direct page
;		(current direct page register must be
;		preserved)
;
;  Outputs:
;		none
;
;  Registers:
;		not preserved
;
;  Note: called with long accumulator and index registers,
;		and must return in this state
;
;-------------------------------------------------------

RecvIntOff	PROC

			phd						; save current direct page
			tcd						; get our direct page
			sep #$20 				; short accumulator
			longa off

			ldx port
			lda #3					; disable the receiver
			sta SCCcommand,x
			lda #$C0
			sta SCCcommand,x

			lda #1					; disable receiver interrupts
			sta SCCcommand,x
			lda interruptmask
			and #$FF-SCCrecvenable
			sta interruptmask
			sta SCCcommand,x

			rep #$21 				; long accumulator, CLC
			longa on
			pld						; restore direct page
			lda #0					; no errors
			rtl

			ENDP
			
			EJECT

;-------------------------------------------------------
;
;  PollXmit
;
;  Poll the transmitter and send the first character
;  waiting for output if the transmitter is empty.
;
;  Inputs:
;		accumulator contains driver's direct page
;		(current direct page register must be
;		preserved)
;
;  Outputs:
;		none
;
;  Registers:
;		not preserved
;
;  Note: called with long accumulator and registers, and
;		must return in this state
;
;-------------------------------------------------------

PollXmit	PROC

			phd						; save current direct page
			tcd						; get our direct page
			php
			sep #$24 				; short accumulator, SEI
			longa off

			ldx port
			lda SCCcommand,x 		; read recv and xmit status
			bit #$04 				; ready to transmit a character?
			beq done 				; no
			jsl outbufglue			; get character
			bcs done
			ldx port
			sep #$20 				; short accumulator
			tay						; save character
			lda #1					; enable transmitter interrupts
			sta SCCcommand,x
			lda interruptmask
			ora #SCCxmitenable
			sta interruptmask
			sta SCCcommand,x
			tya						; restore character
			sta SCCdata,x			; send the char
			lda SCCcommand,x 		; try to do another character
			bit #$04
			beq done
			jsl outbufglue
			ldx port
			sep #$20
			bcs nochar
			sta SCCdata,x
done		plp
			longa on
			pld						; restore direct page
			lda #0					; no errors
			clc
			rtl

nochar		
			longa off
			lda #1					; disable transmitter interrupts
			sta SCCcommand,x
			lda interruptmask
			and #$FF-SCCxmitenable
			sta interruptmask
			sta SCCcommand,x
			plp
			longa on
			pld						; restore direct page
			lda #0					; no errors
			clc
			rtl


outbufglue	pea $8400				; call Midi Tool Set for output char
			phd
			rtl

			ENDP

			EJECT
			
;-------------------------------------------------------
;
;  XmitIntOn
;
;  Turn on transmitter interrupts
;
;  Inputs:
;		accumulator contains driver's direct page
;		(current direct page register must be
;		preserved)
;
;  Outputs:
;		none
;
;  Registers:
;		not preserved
;
;  Note: called with long accumulator and index registers,
;		and must return in this state
;
;-------------------------------------------------------

XmitIntOn	PROC

			phd						; save current direct page
			tcd						; get our direct page
			sep #$20 				; short accumulator
			longa off

			ldx port
			lda #1					; enable transmitter interrupts
			sta SCCcommand,x
			lda interruptmask
			ora #SCCxmitenable
			sta interruptmask
			sta SCCcommand,x

			rep #$21 				; long accumulator, CLC
			longa on
			pld						; restore direct page
			lda #0					; no errors
			rtl

			ENDP
			
			EJECT

;-------------------------------------------------------
;
;  XmitIntOff
;
;  Turn off transmitter interrupts
;
;  Inputs:
;		accumulator contains driver's direct page
;		(current direct page register must be
;		preserved)
;
;  Outputs:
;		none
;
;  Registers:
;		not preserved
;
;  Note: called with long accumulator and index registers,
;		and must return in this state
;
;-------------------------------------------------------

XmitIntOff	PROC

			phd						; save current direct page
			tcd						; get our direct page
			sep #$20 				; short accumulator
			longa off

			ldx port
			lda #1					; disable transmitter interrupts
			sta SCCcommand,x
			lda interruptmask
			and #$FF-SCCxmitenable
			sta interruptmask
			sta SCCcommand,x

			rep #$21 				; long accumulator, CLC
			longa on
			pld						; restore direct page
			lda #0					; no errors
			rtl

			ENDP
			
			EJECT

;-------------------------------------------------------
;
;  NotImpDriver
;
;  Reserved or unimplemented function.
;
;-------------------------------------------------------

NotImpDriver PROC

			lda #0
			clc
			rtl

			ENDP
			
			END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Midi/Drivers/Apple.Midi/makefile b/IIGS.601.SRC/GSToolbox/Midi/Drivers/Apple.Midi/makefile
new file mode 100644
index 0000000..2dd86ed
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Midi/Drivers/Apple.Midi/makefile
@@ -0,0 +1 @@
+SrcDir	=	:
ObjDir	=	:obj:
LstDir	=	:lst:

Sources	=	{SrcDir}apple.midi.aii

Objects	=	{ObjDir}apple.midi.aii.obj

Lists	=	{LstDir}apple.midi.aii.lst


apple.midi	Ä	{Objects} {SrcDir}makefile			
	LINKIIGS {Objects} -o apple.midi -t $BB -at $0300

{ObjDir}	Ä	{SrcDir}
.aii.obj	Ä	.aii
	ASMIIGS -o {ObjDir} {SrcDir}{Default}.aii
	
listings	Ä	{Sources}
	ECHO "Last listings made `Date`" > listings
	ASMIIGS -l -lo {LstDir} -o {ObjDir} {NewerDeps}
	LINKIIGS {Objects} -o {LstDir}listlink -l > {LstDir}link.lst
	DELETE {LstDir}listlink
	MAKE listings2 > MAKE.PRINT.CMDS
	MAKE.PRINT.CMDS
	DELETE MAKE.PRINT.CMDS
	
listings2	Ä	{Lists} {LstDir}link.lst
	ECHO "Last listings made `Date`" > listings2
	PRINT -h -r -f monaco -s 6 -hf helvetica -hs 12 {NewerDeps}
	
backup		Ä
	BACKUP -a -t 'TEXT' -e -from {SrcDir} -to 1
	
tobuild		Ä
	BACKUP -a -t 'TEXT' -e -from {SrcDir} -to Trouble:Sources:midi:drivers:apple.midi:
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Midi/Drivers/Card6850.Midi/card6850.midi.aii b/IIGS.601.SRC/GSToolbox/Midi/Drivers/Card6850.Midi/card6850.midi.aii
new file mode 100644
index 0000000..ea2c2ea
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Midi/Drivers/Card6850.Midi/card6850.midi.aii
@@ -0,0 +1 @@
+;-------------------------------------------------------
;
;  card6850.midi.aii
;
;  This is a driver for the MIDI Tool Set and
;  a MIDI card based on the 6850 ACIA (i.e., the
;  Passport card).
;
;  Copyright 1988, 1991, Apple Computer Inc.
;  Author: Don Marsh (x6739, AppleLink: MARSH1)
;
; Modification History
;
; 2 Feb 88   DM	New today
;
; 11-Dec-91  Dave Lyons
;
; If we fail to start up on ROM 1, and then we get a Shutdown
; call, we are "restoring" the main interrupt vector to NIL.
; This obviously crashes solid.  Fix SetVector call to check
; for NIL value first.
;
;-------------------------------------------------------

;*************************************************************
; NOTE: This driver was written for Apple //GS, version 01 ROM
;*************************************************************

			PRINT NOGEN,NOHDR,NOSTAT,NOMDIR

			INCLUDE 'all.macros'
			INCLUDE 'e16.midi'		; error code definitions
			
			Entry IntHandler
			Entry IRQIntHandler

;
;  general definitions
;
MidiZP			equ MidiInputPoll+1	; our direct page
IntManagerID	equ $0004			; Interrupt Manager vector ID
TenSpeedRom		equ $0003			; TenSpeed Rom version
IDRoutine		equ $FE1F			; Emulation Rom Entry point.
;
;  interface definitions
;
aciastat		equ $E0C088			; ACIA control and status register
aciadata		equ $E0C089			; ACIA data register
aciarecvon		equ $80				; bit to turn on receiver interrupts
aciaxmiton		equ $20				; bit to turn on transmitter interrupts

;
;  entry points into ROM interrupt handler
;
ROMorig1		equ $FFB7CC			; start of interrupt handler
ROMorig2a		equ $FFB800			; check here
ROMorig3		equ $FFB802			; start verifying here also
ROMorig5		equ $FFB842			; test for SCC interrupt (label @123)
ROMorig6		equ $FFB85F			; handle break (label @222)
ROMorig7		equ $FFBA86			; exit int. handler (label irqdone4)

IRQMIDI			equ $E1021C			; MIDI Interupt vector.

;
;  direct page usage
;
;  Note: a driver interface may use direct page locations
;		 $80-$FF only.	If more memory is required, it
;		 should be allocated using the memory manager ID
;		 passed to the initialization routine.
;


			DSect $80

userID			word 					; user ID for memory manager
slot			word 					; which slot to use * $10
interruptmask	word 					; recv and xmit interrupt enable byte
intserviced		word 					; whether we serviced the interrupt
RomVers			word					; Rom Version returned from IDRoutine.

enddriveruse	DSectSize				; end of our direct page usage
				CheckSize enddriveruse,$FF ; generate error if we are > $FF

				EJECT
				
;
;  PopArgs1 n
;
;  The following macro removes "n" bytes of arguments below a 3-byte
;  RTL address in a time-efficient manner.
;
			MACRO
&lab		PopArgs1 &num
&lab
			IF &num='' GOTO .DONE
			IF &Eval(&num)=0 GOTO .DONE
			LCLA &popnum
&popnum		SETA &Eval(&num)
			lda 2,s
			sta 2+&popnum,s
			IF &popnum>=2 GOTO .DOPULLS
			pla
			phb
			sta 1,s
			MEXIT
.DOPULLS
			pla
			sta &popnum-1,s
&popnum		SETA &popnum-2
			IF &popnum=0 GOTO .DONE
			IF &popnum=1 GOTO .DISCARD1
			IF &popnum=2 GOTO .DISCARD2
			tsc
			clc
			adc #&popnum
			tcs
			MEXIT
.DISCARD1
			phb
.DISCARD2
			pla
.DONE
			MEND

			EJECT

;
;  the driver table used by the MIDI Tool Set
;

DriverTable	PROC

			Import Init
			Import NotImpDriver
			Import PollRecv
			Import PollXmit
			Import RecvIntOff
			Import RecvIntOn
			Import Reset
			Import Shutdown
			Import XmitIntOff
			Import XmitIntOn

			DC.L Init-1				; initialization routine
			DC.L Shutdown-1			; shutdown routine
			DC.L Reset-1			; reset routine
			Export MyIntHandler
MyIntHandler DC.L IRQIntHandler-1	; interrupt handler
			DC.L PollRecv-1			; routine to poll receiver
			DC.L RecvIntOn-1 		; routine to enable recv interrupts
			DC.L RecvIntOff-1		; routine to disable recv interrupts
			DC.L PollXmit-1			; routine to poll transmitter
			DC.L XmitIntOn-1 		; routine to enable xmit interrupts
			DC.L XmitIntOff-1		; routine to disable xmit interrupts
			DC.L NotImpDriver-1		; reserved
			DC.L NotImpDriver-1		; reserved
			DC.L NotImpDriver-1		; reserved

			ENDP
			
			EJECT

;-------------------------------------------------------
;
;  Init
;
;  Initialize the appropriate slot.
;
;  Inputs:
;		space for old interrupt vector (long)
;		new interrupt vector (long)
;		slot number (word)
;		internal(=0)/external(=1) (word)
;		user id (word)
;
;		the accumulator contains the driver's direct page
;		(the current direct page register must be
;		preserved)
;
;  Outputs:
;		carry set if initialization was unsuccessful,
;		error code in low byte of accumulator
;
;  Registers:
;		not preserved
;
;  Note: called with interrupts disabled
;
;-------------------------------------------------------

Init		PROC

			Import ROMcopy1			; entry points into our copy of the
			Import ROMcopy2			;   ROM interrupt handler
			Import ROMcopy3
			Import ROMcopy4
			Import MyIntHandler
;
;  stack offsets
;
			DefineStack
s_oldbank	byte 					; old data bank register
s_dirpage   word 					; old direct page register
s_rtl		block 3					; rtl address

s_argstart	DSectSize				; start of arguments
s_userid	word 					; user ID for memory manager
s_external	word 					; 0 = internal, 1 = external slot
s_slot		word 					; which slot
s_newintvec	long 					; new interrupt vector address
s_argend	DSectSize				; end of arguments

s_argsize	equ s_argend-s_argstart

s_oldintvec	long 					; return old interrupt vector address


;
;  this driver works only with external slots
;
			phd						; save current direct page register
			tcd						; get driver's direct page
			phb						; set data bank register to this bank
			phk
			plb
			lda s_external,s 		; must be external slot
			bne checkROM
notavail	ldx #miDevNotAvail		; device not available on this slot
			jmp done

;
;  check ROM version
;

; first get the Rom version.

checkROM	pha						; space for Y Reg.
			pha						; space for X Reg.
			pha						; space for Accumulator.
			pha						; space for processor status.
			pha						; A on input, arbitrary.
			pha						; X on input, arbitrary.
			pha						; Y on input, arbitrary.
			lda	#IDRoutine			; Emulation mode entry point.
			pha
			_FWEntry				; Call IDRountine.
			pla						; Y at exit, Machine and Rom Versions.
			sta	RomVers				; save as the Rom Version.
			pla						; X at exit, reserved.
			pla						; A at exit, System info.
			plp						; junk.
			plp						; processor status.
			bcs versionerr			; if carry, not a GS.
			lda	RomVers				; get the version
			cmp #TenSpeedRom		; check with tenspeed rom.
			bcc checkRevB			; if lt then check if RevB.
			brl	InstallIRQ			; if GE then use IRQMIDI vector.
			
checkRevB	sec						
			lda #ROMcopy2
			sbc #ROMcopy1
			tax
			sep #$20 				; short accumulator
			longa off

verify1 	lda ROMcopy1,x
			cmp ROMorig1,x
			bne versionerr
			dex
			bpl verify1
			rep #$20
			longa on

			sec
			lda #ROMcopy4-1
			sbc #ROMcopy3
			tax
			sep #$20
			longa off

verify2 	lda ROMcopy3,x
			cmp ROMorig3,x
			bne versionerr
			dex
			bpl verify2
			rep #$20
			longa on

			lda ROMorig2a			; where breaks branch
			cmp #$5D70
			bne versionerr

			lda ROMorig5 			; where interrupts go back to ROM
			cmp #$2D48
			bne versionerr

			lda ROMorig6 			; where breaks go back to ROM
			cmp #$30C2
			bne versionerr

			lda ROMorig7 			; where handled interrupt goes back
			cmp #$10AD
			beq versionok

versionerr	rep #$20
			ldx #miDevVersion		; driver is not compatible with ROM
			jmp done

versionok	lda #^IntHandler		; get the old IntHandler.
			sta MyIntHandler+2		; and patch out the call table.
			lda #IntHandler-1		
			sta	MyIntHandler
			
			lda s_userid,s			; save user ID (not used in this driver)
			sta userID

;
;  patch the general interrupt handler vector
;
			pea 0					; get old vector
			pea 0
			pea IntManagerID
			_GetVector
			pla
			sta s_oldintvec+2,s
			pla
			sta s_oldintvec+2,s
			lda s_oldintvec+1,s		; is old vector pointing to ROM handler?
			cmp #>ROMorig1
			bne conflicterr
			lda s_oldintvec,s
			cmp #<ROMorig1
			beq setnewvec
conflicterr	ldx #miDevIntHndlr		; someone else must have stolen the vec
			bra done

setnewvec	pea IntManagerID 		; set new interrupt vector
			lda #^IntHandler
			pha
			lda #IntHandler
			pha
			_SetVector
			bra	slotOffset

InstallIRQ	lda s_userid,s			; save user ID (not used in this driver)
			sta userID
			lda >IRQMIDI+2			; get the old vector, mid and bank bytes.
			sta	s_oldintvec+1,s		; save, extra is not touched.
			lda	>IRQMIDI+1			
			sta s_oldintvec,s		
; we don't return a conflict error any more, who ever grabs last gets it.

			lda #>IRQIntHandler		; get bank and high bytes.
			sta	>IRQMIDI+2			; set new vector
			lda #IRQIntHandler		; get low and mid bytes.
			sta >IRQMIDI+1			; and store in vector after jmp.
				
;
;  calculate slot offset
;
slotOffset	lda s_slot,s 			; slot $000n
			asl a
			asl a
			asl a
			asl a
			sta slot 				; slot offset $00n0
			tax

;
;  initialize the ACIA
;
			sep #$20 				; short accumulator
			longa off
			lda #$03 				; reset ACIA
			sta aciastat,x
			lda #$11 				; no interrupts for now
			sta aciastat,x
			sta interruptmask
			rep #$20 				; long accumulator
			longa on

			ldx #0					; no errors

done		plb						; restore data bank register
			pld						; restore direct page register
			PopArgs1 s_argsize		; move one RTL address
			txa						; restore error code
			cmp #1					; set carry on error
			rtl

			ENDP
			
			EJECT

;-------------------------------------------------------
;
;  Shutdown
;
;  Shutdown the interface.
;
;  Inputs:
;		old interrupt vector (long)
;
;		the accumulator contains the driver's direct page
;		(the current direct page register must be
;		preserved)
;
;  Outputs:
;		carry set if shutdown was unsuccessful,
;		error code in low byte of accumulator
;
;  Registers:
;		not preserved
;
;  Note: called with interrupts disabled
;
;-------------------------------------------------------

Shutdown	PROC

;
;  stack offsets
;
			DefineStack
s_dirpage   word 					; old direct page register
s_rtl		block 3					; rtl address

s_argstart	DSectSize				; start of arguments
s_oldintvec	long 					; return old interrupt vector address
s_argend	DSectSize				; end of arguments

s_argsize	equ s_argend-s_argstart


			phd						; save old direct page register
			tcd						; get driver's direct page

*** added 11-Dec-91 DAL -- don't do any damage if we did not start successfully
			lda s_oldintvec+1,s	;middle word
			beq neverStarted
			inc a
			beq neverStarted		;$FFFFxx if we never got started
*** end 11-Dec-91 DAL
;
;  reset the ACIA
;
			sep #$20 				; short accumulator
			longa off
			ldx slot
			lda #$11 				; no more interrupts
			sta aciastat,x
			rep #$20
			longa on

;
;  restore interrupt manager vector
;
			lda RomVers				; find out which version.
			cmp	#TenSpeedRom		; compare to tenspeed rom.
			bge TenSpeed			; if Tenspeed use IRQMIDI
			pea IntManagerID		; else patch the inthandler back.
			lda s_oldintvec+2+2,s
			pha
			lda s_oldintvec+2+2,s
			pha
			_SetVector
			bra done
			
TenSpeed	lda	s_oldintvec,s		; get old vector and patch back in.
			sta	>IRQMIDI+1			; patch RTL back in.
			lda	s_oldintvec+1,s		; Get high and bank bytes.
			sta >IRQMIDI+2			; save in vector.

neverStarted			
done		pld						; restore direct page
			PopArgs1 s_argsize		; move RTL address
			lda #0					; no errors
			clc
			rtl

			ENDP

			EJECT

;-------------------------------------------------------
;
;  Reset
;
;  Take care of hardware after system reset (essentially
;  a shutdown, but special conditions may arise after
;  a system reset).
;
;  Inputs:
;		old interrupt vector (long)
;
;		the accumulator contains the driver's direct page
;		(the current direct page register must be
;		preserved)
;
;  Outputs:
;		carry set if shutdown was unsuccessful,
;		error code in low byte of accumulator
;
;  Registers:
;		not preserved
;
;  Note: called with interrupts disabled
;
;-------------------------------------------------------

Reset		PROC

			jmp Shutdown 			; this does everything we need

			ENDP
			
			EJECT

;-------------------------------------------------------
;
;  IntHandler
;
;  Handle receiver and transmitter interrupts.
;
;  Inputs:
;		accumulator contains driver's direct page
;		(current direct page register must be
;		preserved)
;
;  Outputs:
;		carry set if interrupt was not serviced
;
;  Registers:
;		not preserved
;
;  Note: called with interrupts disabled, long
;		accumulator and index registers
;
;-------------------------------------------------------

IntHandler	PROC

sccstat 	equ $0101				; SCC interrupt handled
sccflag2	equ $0103				; interrupt mask for AppleTalk
scc1		equ $0105				; data byte 1
scc2		equ $0106				; data byte 2
irq_a		equ $0108				; save A register
irq_x		equ $010A				; save X register
irq_y		equ $010C				; save Y register
irq_d		equ $0110				; save D register
irq_shadow	equ $0119				; save speed

irq_aptlk	equ $E10020				; AppleTalk interrupt vector

shadow		equ $C035
sccareg 	equ $C039
sccadata	equ $C03B
sccbdata	equ $C03A

;
;  A copy of the start of the general interrupt handler from
;  version 01 ROM follows
;

			ENTRY ROMcopy1
			
ROMcopy1	clc
			xce
			rep #$30
			longa on
			longi on
			php
			phb
			pea $E1E1
			plb
			sta irq_a
			lda shadow
			sta irq_shadow
			ora #$8000
			and #$9F1E
			sta shadow
			stx irq_x
			sty irq_y
			tdc
			sta irq_d
			lda #0
			tcd

			sep #$30
			longa off
			longi off
			bcc a1
			lda 4,s
			and #$10
			adc #$70
				
			ENTRY ROMcopy2
ROMcopy2
a1			bvs ROMorig6jml

			ENTRY ROMcopy3
ROMcopy3	lda #$03
			sta sccareg
			lda sccareg
			bit sccflag2
			beq a4
			pha
			and #$07
			bne a2

			lda sccadata
			sta scc1
			lda sccadata
			sta scc2
			jsl irq_aptlk
			bra a3

a2			lda sccbdata
			sta scc1
			lda sccbdata
			sta scc2
			jsl irq_aptlk

a3			lda #$00
			ror a
			sta sccstat
			pla
			bra a5

a4			stz sccstat

			ENTRY ROMcopy4
ROMcopy4
a5			bra check6850card

ROMorig6jml	jml ROMorig6

;
;  Here it is finally, the 6850-based MIDI card interrupt code!
;
check6850card
			php						; save everything important
			pha
			rep #$30
			longa on
			longi on
			lda MidiZP				; find our direct page
			tcd

			stz intserviced			; interrupt not serviced yet

again		sep #$20
			longa off
			ldx slot 				; which slot is card in?
			lda aciastat,x			; is it an acia interrupt?
			bpl continue 			; no, continue interrupt handler in ROM
			bit #$01 				; is it a receiver interrupt?
			beq xmitint				; no, must be transmitter interrupt

			sta intserviced			; remember that we serviced the int.

			bit #$10 				; transmission error?
			beq recvint1 			; no
			ldy #miDevReadErr
			bra deviceerr
recvint1	bit #$20 				; receiver overrun?
			beq recvint2 			; no
			ldy #miDevOverrun		; indicate overrun error
deviceerr	lda aciadata,x			; read current MIDI data
			jsl inbuferrorglue		; call Midi Tool Set to buffer it
			bra again				; try to get more

recvint2	lda aciadata,x			; read MIDI byte
			jsl inbufglue			; call Midi Tool Set to buffer it
			bra again

xmitint 	jsl outbufglue			; get next char from Midi Tool Set
			sep #$20 				; short accumulator
			ldx slot
			bcs nochar
			sta aciadata,x			; send the char
			bra inthandled

nochar		lda interruptmask		; turn off transmitter interrupts
			and #$FF-aciaxmiton
			sta interruptmask
			sta aciastat,x
			bra inthandled

continue	lda intserviced			; did we service the interrupt?
			beq callROM				; no, continue general int. handler
inthandled	pla						; exit fast
			plp
			plb
			rep #$30
			jml ROMorig7
callROM 	pla						; continue general interrupt handler
			pea $0000
			pld
			plp
			jml ROMorig5

inbufglue	pea $0400				; call Midi Tool Set to buffer a char
			phd
			rtl
inbuferrorglue pea $0500			; call Midi Tool Set with input error
			phd
			rtl
outbufglue	pea $8400				; call Midi Tool Set for output char
			phd
			rtl
;
; This is the Interupt Handler to be used it TenSpeed Rom or later.
;

			Entry IRQIntHandler
IRQIntHandler
			longa off
			longi off
			php						; save everything important
			pha
			phd
			rep #$30
			longa on
			longi on
			lda MidiZP				; find our direct page
			tcd

			stz intserviced			; interrupt not serviced yet

IRQagain	sep #$20
			longa off
			ldx slot 				; which slot is card in?
			lda aciastat,x			; is it an acia interrupt?
			bpl IRQcontinue 		; no, continue interrupt handler in ROM
			bit #$01 				; is it a receiver interrupt?
			beq IRQxmitint			; no, must be transmitter interrupt

			sta intserviced			; remember that we serviced the int.

			bit #$10 				; transmission error?
			beq IRQrecvint1 		; no
			ldy #miDevReadErr
			bra IRQdeviceerr
IRQrecvint1	bit #$20 				; receiver overrun?
			beq IRQrecvint2 			; no
			ldy #miDevOverrun		; indicate overrun error
IRQdeviceerr lda aciadata,x			; read current MIDI data
			jsl inbuferrorglue		; call Midi Tool Set to buffer it
			brl IRQagain			; try to get more

IRQrecvint2	lda aciadata,x			; read MIDI byte
			jsl inbufglue			; call Midi Tool Set to buffer it
			bra IRQagain

IRQxmitint 	jsl outbufglue			; get next char from Midi Tool Set
			sep #$20 				; short accumulator
			ldx slot
			bcs IRQnochar
			sta aciadata,x			; send the char
			bra IRQinthandled

IRQnochar	lda interruptmask		; turn off transmitter interrupts
			and #$FF-aciaxmiton
			sta interruptmask
			sta aciastat,x
			bra IRQinthandled

IRQcontinue	lda intserviced			; did we service the interrupt?
			beq IRQcallROM			; no, continue general int. handler
IRQinthandled	
			sep #$20
			longa off
			pld						; exit fast
			pla
			plp
			clc
			rtl
IRQcallROM 	
			sep #$20
			longa off
			pld						; continue general interrupt handler
			pla
			plp
			sec
			rtl

			longa on
			longi on
			ENDP
			
			EJECT

;-------------------------------------------------------
;
;  PollRecv
;
;  Poll the receiver and process any characters that
;  have been received.
;
;  Inputs:
;		accumulator contains driver's direct page
;		(current direct page register must be
;		preserved)
;
;  Outputs:
;		none
;
;  Registers:
;		not preserved
;
;  Note: called with long accumulator and registers, and
;		must return in this state
;
;-------------------------------------------------------

PollRecv	PROC

			phd						; save current direct page
			tcd						; get our direct page
			php						; save interrupt flag

again		sep #$24 				; short accumulator, SEI
			longa off
			ldx slot
			lda aciastat,x			; read recv and xmit status
			bit #$01 				; do we have a receive character?
			bne recvint				; process received character
			plp
			longa on
			pld						; restore direct page
			lda #0					; no errors
			clc
			rtl

recvint
			longa off
			bit #$30 				; any errors?
			bne recverr
			lda aciadata,x			; retrieve character
			jsl inbufglue			; call Midi Tool Set to buffer it
			bra again				; try to get more

recverr 	bit #$10 				; transmission error?
			bne recverr2
			ldy #miDevOverrun		; record overrun condition
			bra recverr3
recverr2	ldy #miDevReadErr		; record framing error
recverr3	lda aciadata,x			; retrieve character
			jsl inbuferrorglue
			bra again


inbufglue	pea $0400				; call Midi Tool Set to buffer a char
			phd
			rtl
inbuferrorglue pea $0500			; call Midi Tool Set with input error
			phd
			rtl

			longa on
			ENDP
			
			EJECT

;-------------------------------------------------------
;
;  RecvIntOn
;
;  Turn on receiver interrupts
;
;  Inputs:
;		accumulator contains driver's direct page
;		(current direct page register must be
;		preserved)
;
;  Outputs:
;		none
;
;  Registers:
;		not preserved
;
;  Note: called with long accumulator and index registers,
;		and must return in this state
;
;-------------------------------------------------------

RecvIntOn	PROC

			phd						; save current direct page
			tcd						; get our direct page
			php
			sep #$24 				; short accumulator, SEI
			longa off

			ldx slot 				; enable receiver interrupts
			lda interruptmask
			ora #aciarecvon
			sta interruptmask
			sta aciastat,x
			lda aciadata,x			; clear any errors
			lda aciadata,x

			plp
			longa on
			pld						; restore direct page
			lda #0					; no errors
			clc
			rtl

			ENDP
			
			EJECT

;-------------------------------------------------------
;
;  RecvIntOff
;
;  Turn off receiver interrupts
;
;  Inputs:
;		accumulator contains driver's direct page
;		(current direct page register must be
;		preserved)
;
;  Outputs:
;		none
;
;  Registers:
;		not preserved
;
;  Note: called with long accumulator and index registers,
;		and must return in this state
;
;-------------------------------------------------------

RecvIntOff	PROC

			phd						; save current direct page
			tcd						; get our direct page
			php
			sep #$24 				; short accumulator, SEI
			longa off

			ldx slot 				; disable receiver interrupts
			lda interruptmask
			and #$FF-aciarecvon
			sta interruptmask
			sta aciastat,x

			plp
			longa on
			pld						; restore direct page
			lda #0					; no errors
			clc
			rtl

			ENDP
			
			EJECT

;-------------------------------------------------------
;
;  PollXmit
;
;  Poll the transmitter and send the first character
;  waiting for output if the transmitter is empty.
;
;  Inputs:
;		accumulator contains driver's direct page
;		(current direct page register must be
;		preserved)
;
;  Outputs:
;		none
;
;  Registers:
;		not preserved
;
;  Note: called with long accumulator and registers, and
;		must return in this state
;
;-------------------------------------------------------

PollXmit	PROC

			phd						; save current direct page
			tcd						; get our direct page
			php
			sep #$24 				; short accumulator, SEI
			longa off

			ldx slot
			lda aciastat,x			; read recv and xmit status
			bit #$02 				; ready to transmit a character?
			beq done 				; no
			jsl outbufglue			; get character
			bcs done
			ldx slot
			sep #$20 				; short accumulator
			tay						; save character
			lda interruptmask		; enable transmitter interrupts
			ora #aciaxmiton
			sta interruptmask
			sta aciastat,x
			tya						; restore character
			sta aciadata,x			; send the char
			lda aciastat,x			; try to do another character
			bit #$02
			beq done
			jsl outbufglue
			ldx slot
			sep #$20
			bcs nochar
			sta aciadata,x
done		plp
			longa on
			pld						; restore direct page
			lda #0					; no errors
			clc
			rtl

nochar
			longa off
			lda interruptmask		; disable transmitter interrupts
			and #$FF-aciaxmiton
			sta interruptmask
			sta aciastat,x
			plp
			longa on
			pld						; restore direct page
			lda #0					; no errors
			clc
			rtl


outbufglue	pea $8400				; call Midi Tool Set for output char
			phd
			rtl

			ENDP
			
			EJECT

;-------------------------------------------------------
;
;  XmitIntOn
;
;  Turn on transmitter interrupts
;
;  Inputs:
;		accumulator contains driver's direct page
;		(current direct page register must be
;		preserved)
;
;  Outputs:
;		none
;
;  Registers:
;		not preserved
;
;  Note: called with long accumulator and index registers,
;		and must return in this state
;
;-------------------------------------------------------

XmitIntOn	PROC

			phd						; save current direct page
			tcd						; get our direct page
			php
			sep #$24 				; short accumulator, SEI
			longa off

			ldx slot 				; enable transmitter interrupts
			lda interruptmask
			ora #aciaxmiton
			sta interruptmask
			sta aciastat,x

			plp
			longa on
			pld						; restore direct page
			lda #0					; no errors
			clc
			rtl

			ENDP
			
			EJECT

;-------------------------------------------------------
;
;  XmitIntOff
;
;  Turn off transmitter interrupts
;
;  Inputs:
;		accumulator contains driver's direct page
;		(current direct page register must be
;		preserved)
;
;  Outputs:
;		none
;
;  Registers:
;		not preserved
;
;  Note: called with long accumulator and index registers,
;		and must return in this state
;
;-------------------------------------------------------

XmitIntOff	PROC

			phd						; save current direct page
			tcd						; get our direct page
			php
			sep #$24 				; short accumulator, SEI
			longa off

			ldx slot 				; disable transmitter interrupts
			lda interruptmask
			and #$FF-aciaxmiton
			sta interruptmask
			sta aciastat,x

			plp
			longa on
			pld						; restore direct page
			lda #0					; no errors
			clc
			rtl

			ENDP
			
			EJECT

;-------------------------------------------------------
;
;  NotImpDriver
;
;  Reserved or unimplemented function.
;
;-------------------------------------------------------

NotImpDriver PROC

			lda #0
			clc
			rtl

			ENDP
			
			END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Midi/Drivers/Card6850.Midi/makefile b/IIGS.601.SRC/GSToolbox/Midi/Drivers/Card6850.Midi/makefile
new file mode 100644
index 0000000..419df01
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Midi/Drivers/Card6850.Midi/makefile
@@ -0,0 +1 @@
+SrcDir	=	:
ObjDir	=	:obj:
LstDir	=	:lst:

Sources	=	{SrcDir}card6850.midi.aii

Objects	=	{ObjDir}card6850.midi.aii.obj

Lists	=	{LstDir}card6850.midi.aii.lst


card6850.midi	Ä	{Objects} {SrcDir}makefile			
	LINKIIGS {Objects} -o card6850.midi -t $BB -at $0300

{ObjDir}	Ä	{SrcDir}
.aii.obj	Ä	.aii
	ASMIIGS -o {ObjDir} {SrcDir}{Default}.aii
	
	
listings	Ä	{Sources}
	ECHO "Last listings made `Date`" > listings
	ASMIIGS -l -lo {LstDir} -o {ObjDir} {NewerDeps}
	LINKIIGS {Objects} -o {LstDir}listlink -l > {LstDir}link.lst
	DELETE {LstDir}listlink
	MAKE listings2 > MAKE.PRINT.CMDS
	MAKE.PRINT.CMDS
	DELETE MAKE.PRINT.CMDS
	
listings2	Ä	{Lists} {LstDir}link.lst
	ECHO "Last listings made `Date`" > listings2
	PRINT -h -r -f monaco -s 6 -hf helvetica -hs 12 {NewerDeps}
	
backup		Ä
	BACKUP -a -t 'TEXT' -e -from {SrcDir} -to 1
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Midi/MidiTools/E16.MIDI b/IIGS.601.SRC/GSToolbox/Midi/MidiTools/E16.MIDI
new file mode 100644
index 0000000..03449f7
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Midi/MidiTools/E16.MIDI
@@ -0,0 +1 @@
+				PRINT PUSH
				PRINT OFF

;
;  File: E16.Midi
;
;
;  Copyright Apple Computer, Inc. 1987
;  All Rights Reserved
;

miToolNum		equ 32					; MIDI Tool Set number

;  MIDI Tool Set error codes
miStartUpErr	equ 0+(miToolNum<<8)	; MIDI Tool Set wasn't started
miPacketErr		equ 1+(miToolNum<<8)	; incorrect MIDI packet length received
miArrayErr		equ 2+(miToolNum<<8)	; an array wasn't correct size
miFullBufErr	equ 3+(miToolNum<<8)	; buffer full error
miToolsErr		equ 4+(miToolNum<<8)	; tools needed inactive or wrong version
miOutOffErr		equ 5+(miToolNum<<8)	; output must be enabled during flush
										; note: no error 6
miNoBufErr		equ 7+(miToolNum<<8)	; no buffer allocated
miDriverErr		equ 8+(miToolNum<<8)	; file was not a MIDI device driver
miBadFreqErr	equ 9+(miToolNum<<8)	; can't set clock to requested frequency
miClockErr		equ 10+(miToolNum<<8)	; clock counter wrapped to zero
miConflictErr	equ 11+(miToolNum<<8)	; processes competing for MIDI input
miNoDevErr		equ 12+(miToolNum<<8)	; no device driver is currently loaded

;  device driver errors
miDevNotAvail	equ $80+(miToolNum<<8)	; device not available
miDevSlotBusy	equ $81+(miToolNum<<8)	; given slot is already in use
miDevBusy		equ $82+(miToolNum<<8)	; device is already in use
miDevOverrun	equ $83+(miToolNum<<8)	; device overrun by incoming MIDI data
miDevNoConnect	equ $84+(miToolNum<<8)	; no connection to MIDI
miDevReadErr	equ $85+(miToolNum<<8)	; framing error in received data
miDevVersion	equ $86+(miToolNum<<8)	; ROM version or machine type is
										;   incompatible with the driver
miDevIntHndlr	equ $87+(miToolNum<<8)	; conflicting interrupt handler has
										;   been installed
;
;  driver error codes $88-$BF reserved for future use
;  driver error codes $C0-$FF may be defined by drivers
;

;  PRODOS definition for MIDI device drivers
miDrvrFileType	equ $00BB				; file type for device drivers
miDrvrAuxType	equ $0300				; auxilliary type for MIDI device driver

;  versions of tools required
miSTVer			equ $0101				; sound tool set
miNSVer			equ $0102				; note synthesizer

;  MIDI input polling vector
MidiInputPoll	equ $E101B2

;  MidiControl function codes
miSetRTVec		equ 0					; set real-time vector
miSetErrVec		equ 1					; set error vector
miSetInBuf		equ 2					; allocate input buffer
miSetOutBuf		equ 3					; allocate output buffer
miStartInput	equ 4					; initiate MIDI input process
miStartOutput	equ 5					; initiate MIDI output process
miStopInput		equ 6					; terminate MIDI input process
miStopOutput	equ 7					; terminate MIDI output process
miFlushInput	equ 8					; discard contents of input buffer
miFlushOutput	equ 9					; discard contents of output buffer
miFlushPacket	equ 10					; discard next input packet
miWaitOutput	equ 11					; wait for output buffer to empty
miSetInMode		equ 12					; set input mode
miSetOutMode	equ 13					; set output mode
miClrNotePad	equ 14					; clear notes on in the note pad
miSetDelay		equ 15					; set minimum delay between output pkts
miOutputStat	equ 16					; enable/disable running status output
miIgnoreSysEx	equ 17					; ignore/buffer system exclusive on input

miRawMode		equ 0					; raw mode for MIDI input and output
miPacketMode	equ 1					; packet mode for MIDI input and output
miStandardMode	equ 2					; standard mode for MIDI input & output


;  MidiDevice function codes
miSelectDrvr	equ 0					; display device driver selection dialog
miLoadDrvr		equ 1					; load and initialize a device driver
miUnloadDrvr	equ 2					; shutdown MIDI device

;  MidiClock function codes
miSetClock		equ 0					; set time stamp clock
miStartClock	equ 1					; start time stamp clock
miStopClock		equ 2					; stop time stamp clock
miSetFreq		equ 3					; set clock frequency

;  MidiInfo function codes
miNextPktLen	equ 0					; return length of next packet
miInputChars	equ 1					; return number of chars in input buffer
miOutputChars	equ 2					; return number of chars in output buf
miMaxInChars	equ 3					; return max # of chars in input buffer
miMaxOutChars	equ 4					; return max # of chars in output buffer
miRecordAddr	equ 5					; return MIDI file recording address
miPlayAddr		equ 6					; return MIDI file play address
miClockValue	equ 7					; return current time stamp clock value
miClockFreq		equ 8					; return no. of clock ticks per second

				PRINT POP
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Midi/MidiTools/M16.MIDI b/IIGS.601.SRC/GSToolbox/Midi/MidiTools/M16.MIDI
new file mode 100644
index 0000000..02e3137
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Midi/MidiTools/M16.MIDI
@@ -0,0 +1 @@
+; File:  M16.Midi
;
;
; Copyright Apple Computer, Inc. 1986, 1987
; All Rights Reserved
;

 MACRO
&lab _MidiBootInit
&lab ldx #$0120
     jsl $E10000
 MEND

 MACRO
&lab _MidiStartUp
&lab ldx #$0220
     jsl $E10000
 MEND

 MACRO
&lab _MidiShutDown
&lab ldx #$0320
     jsl $E10000
 MEND

 MACRO
&lab _MidiVersion
&lab ldx #$0420
     jsl $E10000
 MEND

 MACRO
&lab _MidiReset
&lab ldx #$0520
     jsl $E10000
 MEND

 MACRO
&lab _MidiStatus
&lab ldx #$0620
     jsl $E10000
 MEND

 MACRO
&lab _MidiControl
&lab ldx #$0920
     jsl $E10000
 MEND

 MACRO
&lab _MidiDevice
&lab ldx #$0A20
     jsl $E10000
 MEND

 MACRO
&lab _MidiClock
&lab ldx #$0B20
     jsl $E10000
 MEND

 MACRO
&lab _MidiInfo
&lab ldx #$0C20
     jsl $E10000
 MEND

 MACRO
&lab _MidiReadPacket
&lab ldx #$0D20
     jsl $E10000
 MEND

 MACRO
&lab _MidiWritePacket
&lab ldx #$0E20
     jsl $E10000
 MEND

 MACRO
&lab _MidiRecordSeq
&lab ldx #$0F20
     jsl $E10000
 MEND

 MACRO
&lab _MidiStopRecord
&lab ldx #$1020
     jsl $E10000
 MEND

 MACRO
&lab _MidiPlaySeq
&lab ldx #$1120
     jsl $E10000
 MEND

 MACRO
&lab _MidiStopPlay
&lab ldx #$1220
     jsl $E10000
 MEND

 MACRO
&lab _MidiConvert
&lab ldx #$1320
     jsl $E10000
 MEND
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Midi/MidiTools/makefile b/IIGS.601.SRC/GSToolbox/Midi/MidiTools/makefile
new file mode 100644
index 0000000..cfc6e4e
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Midi/MidiTools/makefile
@@ -0,0 +1 @@
+#   File:       Tool032.make
#   Target:     Tool032
#
#  3-20-89		Mark Cecys
#  Added QD and EM patches with MIDI polling

srcDir	=	:
objDir	=	:obj:

defines	=	{srcDir}midi.macros		¶
			{srcDir}midi.equ.aii


Tool032 ÄÄ makefile 					¶
		{objDir}cursor.asm.obj 			¶
		{objDir}em.asm.obj				¶
		{objDir}misc.tools.asm.obj		¶
		{objDir}strip.asm.obj 			¶
		{objDir}init.asm.obj			¶
		{objDir}midi.buffer.aii.obj 	¶
		{objDir}midi.clock.aii.obj 		¶
		{objDir}midi.control.aii.obj 	¶
		{objDir}midi.convert.aii.obj 	¶
		{objDir}midi.device.aii.obj 	¶
		{objDir}midi.glue.aii.obj 		¶
		{objDir}midi.info.aii.obj 		¶
		{objDir}midi.main.aii.obj 		¶
		{objDir}midi.notes.aii.obj 		¶
		{objDir}midi.play.aii.obj 		¶
		{objDir}midi.read.aii.obj 		¶
		{objDir}midi.record.aii.obj 	¶
		{objDir}midi.write.aii.obj
		
	LinkIIGS ¶
		{objDir}midi.main.aii.obj 		¶
		{objDir}midi.buffer.aii.obj 	¶
		{objDir}midi.clock.aii.obj 		¶
		{objDir}midi.control.aii.obj 	¶
		{objDir}midi.convert.aii.obj 	¶
		{objDir}midi.device.aii.obj 	¶
		{objDir}midi.glue.aii.obj 		¶
		{objDir}midi.info.aii.obj 		¶
		{objDir}midi.notes.aii.obj 		¶
		{objDir}midi.play.aii.obj 		¶
		{objDir}midi.read.aii.obj 		¶
		{objDir}midi.record.aii.obj 	¶
		{objDir}midi.write.aii.obj 		¶
		{objDir}strip.asm.obj 			¶
		{objDir}init.asm.obj(QDSTART)	¶
		{objDir}cursor.asm.obj(IDRAWCURSOR,IUNDRAWCURSOR,SCREENTABLE,SETCURSOR,CALCSAVESIZE,USERINITCURSOR,GETITREADY,CURSORDATA,UNLOCKSAVEHANDLE,LOCKSAVEHANDLE,SHIFTSTUFF,SHIFTONE) 			¶
		{objDir}em.asm.obj(POSTEVENT,GETOSEVENT,DEQUEUE,FILLRECORD,MOUSE,GETNEXTEVENT,WAITMOUSEUP,EVENTAVAIL,STILLDOWN,FLUSHEVENTS,GETOSEVENT,GOSECOMMON,OSEVENTAVAIL,MOUSETASK,DOJOURNAL,GETMOUSE,BUTTON,EMDATA,LOCKQ,ENQUEUE,UNLOCKQ,GETGLOBALLOC,SETMODBITS,)¶
		{objDir}misc.tools.asm.obj(IRQ_HEART)		¶
		-o Tool032 -t TOL
		
#	DUPLICATEIIGS -y -mac tool032 tool032




### Dependancies for components
		
		
{objDir}cursor.asm.obj 			Ä 	makefile :::QD:cursor.asm
	AsmIIGS -d midi=1 :::QD:cursor.asm -o :Obj:cursor.asm.obj
		
{objDir}init.asm.obj 			Ä 	makefile :::QD:init.asm
	AsmIIGS :::QD:init.asm -o :Obj:init.asm.obj -unsafe -wi
		
{objDir}strip.asm.obj 			Ä 	makefile :::qd:qdalone:strip.asm
	AsmIIGS :::qd:qdalone:strip.asm -o :Obj:strip.asm.obj	

{objDir}em.asm.obj				Ä	makefile :::EVENTS:em.asm ¶
											 :::EVENTS:em.KBDStuff
	Asmiigs  -d midi=1 :::EVENTS:em.asm -o :Obj:em.asm.obj

{objDir}misc.tools.asm.obj 	Ä	makefile :::misc.tools:misc.tools.asm
	asmiigs :::MISC.TOOLS:misc.tools.asm -d RAMVersion=0 -o :Obj:misc.tools.asm.obj

{objDir}midi.buffer.aii.obj 	Ä 	makefile midi.buffer.aii {defines}
	AsmIIGS  midi.buffer.aii 	-o {objDir}midi.buffer.aii.obj
	
{objDir}midi.clock.aii.obj 		Ä 	makefile midi.clock.aii 	{defines}
	AsmIIGS  midi.clock.aii 	-o {objDir}midi.clock.aii.obj
	
{objDir}midi.control.aii.obj 	Ä 	makefile midi.control.aii 	{defines}
	AsmIIGS  midi.control.aii 	-o {objDir}midi.control.aii.obj
	
{objDir}midi.convert.aii.obj 	Ä 	makefile midi.convert.aii 	{defines}
	AsmIIGS  midi.convert.aii 	-o {objDir}midi.convert.aii.obj
	
{objDir}midi.device.aii.obj 	Ä 	makefile midi.device.aii 	{defines}
	AsmIIGS  midi.device.aii 	-o {objDir}midi.device.aii.obj
	
{objDir}midi.glue.aii.obj 		Ä 	makefile midi.glue.aii 		{defines}
	AsmIIGS  midi.glue.aii 		-o {objDir}midi.glue.aii.obj
	
{objDir}midi.info.aii.obj 		Ä 	makefile midi.info.aii 		{defines}
	AsmIIGS  midi.info.aii 		-o {objDir}midi.info.aii.obj
	
{objDir}midi.main.aii.obj 		Ä 	makefile midi.main.aii 		{defines}
	AsmIIGS  midi.main.aii 		-o {objDir}midi.main.aii.obj
	
{objDir}midi.notes.aii.obj 		Ä 	makefile midi.notes.aii 	{defines}
	AsmIIGS  midi.notes.aii 	-o {objDir}midi.notes.aii.obj
	
{objDir}midi.play.aii.obj 		Ä 	makefile midi.play.aii 		{defines}
	AsmIIGS  midi.play.aii 		-o {objDir}midi.play.aii.obj
	
{objDir}midi.read.aii.obj 		Ä 	makefile midi.read.aii 		{defines}
	AsmIIGS  midi.read.aii 		-o {objDir}midi.read.aii.obj
	
{objDir}midi.record.aii.obj 	Ä 	makefile midi.record.aii 	{defines}
	AsmIIGS  midi.record.aii 	-o {objDir}midi.record.aii.obj
	
{objDir}midi.write.aii.obj 		Ä 	makefile midi.write.aii 	{defines}
	AsmIIGS  midi.write.aii 	-o {objDir}midi.write.aii.obj


	
:::kidding:kidding.asm.obj		Ä	:::kidding:kidding.asm
	directory :::kidding
	asmiigs kidding.asm
	directory ::Midi:MidiTools
	
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Midi/MidiTools/midi.buffer.aii b/IIGS.601.SRC/GSToolbox/Midi/MidiTools/midi.buffer.aii
new file mode 100644
index 0000000..3eab5b2
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Midi/MidiTools/midi.buffer.aii
@@ -0,0 +1 @@
+;-------------------------------------------------------
;
;  midi.buffer.aii
;
;  This module contains routines to perform buffering
;  of MIDI input and output characters.
;
;  Copyright 1987, Apple Computer Inc.
;  Author: Don Marsh (x6739, AppleLink: MARSH1)
;
;  Modification History
;
;  28 Aug 87   DM	New today
;
;-------------------------------------------------------

			INCLUDE 'all.macros'
			INCLUDE 'midi.macros'
			INCLUDE 'midi.equ.aii'

;-------------------------------------------------------
;
;  EmptyInBuf
;
;  Empty the input buffer.
;
;-------------------------------------------------------

EmptyInBuf	PROC EXPORT

			php						; disable interrupts while we are
			sei						;	fooling around
			stz InBufHead			; initialize head of queue
			lda #1					; and tail of queue
			sta InBufTail
			stz InBufMaxChars		; max chars in input buffer
			sta PacketIndex			; index to last buffered status byte
			stz InBufError			; no errors
			stz InBufFull			; no buffer overflow
			stz PacketStatus 		; discard data until first status byte
			stz PacketRemain 		; no data in partial packet
			plp						; restore interrupt status
			rts

			ENDP
			EJECT
			
;-------------------------------------------------------
;
;  EmptyOutBuf
;
;  Empty the output buffer.
;
;-------------------------------------------------------

EmptyOutBuf	PROC EXPORT

			php						; disable interrupts while we are
			sei						;	fooling around
			stz OutBufHead			; initialize head of queue
			lda #1					; and tail of queue
			sta OutBufTail
			sta OutBufEmpty			; output buffer is empty
			stz OutBufMaxChars		; max chars in output buffer
			stz PacketChars			; no partial packet characters remain
			stz RealTimeChars		; no real-time characters remain
			stz LastStatus			; defeat running status initially
			plp						; restore interrupt status
			rts

			ENDP
			EJECT
			
;-------------------------------------------------------
;
;  BufDispatcher
;
;  This routine is called indirectly by driver input
;  and output handlers.  When the driver wishes to
;  call one of the MIDI Tool Set buffering routines,
;  it executes the following code:
;
;		 PEA $XX00	  ; where XX is a function code.
;		 PHD		  ; where D = our direct page
;		 RTL
;
;  This switches execution to the instruction at offset
;  one in the direct page.	This instruction contains
;  a JML to BufDispatcher.	On entry, the function
;  code XX is still on the stack.  By pulling this
;  value into processor status register, various
;  branches can be performed depending on the values
;  of the flags.
;
;  Current function codes:
;		 $04  -  place the value in the low byte of
;				 the accumulator into the input buffer
;		 $05  -  the low byte of the accumulator
;				 contains a code indicating an input
;				 error
;		 $84  -  request a byte from the output buffer
;
;-------------------------------------------------------

BufDispatcher  PROC EXPORT

			import BufInput
			import BufOutput

			plp						; SEI, CLD, long A and index registers
			phd						; save driver's direct page
			bmi output				; minus for output, carry set on error

input		jsr BufInput 			; buffer this input character or error
			pld						; restore driver's direct page
			rtl

output		jsr BufOutput			; retrieve next output character
			bcs nochar				; no character available
			ldx Timer				; record time of last character sent
			stx LastOutTime
			ldx Timer+2
			stx LastOutTime+2
nochar		pld						; restore driver's direct page
			rtl

			ENDP
			EJECT
			
;-------------------------------------------------------
;
;  BufInput
;
;  This routine buffers and time-stamps characters
;  received from the driver input handler.	BufInput
;  calls the user's real-time vector if it is non-zero
;  and the received data is a MIDI real-time command.
;  Real-time commands are discarded if the user's
;  real-time vector is zero.  MIDI packets containing
;  errors are buffered.
;
;  Inputs:
;		 Carry is set if there is an error.
;		 Current character in low byte of accumulator.
;		 Error code in Y (if the carry is set)
;			See "e16.midi" for error codes
;
;  Outputs:
;		 none
;
;  Registers:
;		 not preserved
;
;-------------------------------------------------------

BufInput	PROC export

			IMPORT UpdateTimer		; midi.clock.asm
			IMPORT InputVecGlue		; midi.glue.asm
			IMPORT RealTimeGlue

			and #$00FF				; clear high byte
			tax						; save input byte
			lda MidiZP2				; get our direct page
			tcd
			txa						; restore input byte

			ldx InputMode			; raw mode?
			bne checkstatus			; no, interpret data
			jmp bufraw

checkstatus	bit #$0080				; is it status or real-time byte?
			bne statusbyte			; yes

;
;  MIDI data byte
;
			ldx PacketStatus 		; are we discarding 1st partial packet?
			beq return
			ldx InBufError			; are we processing an error?
			bmi return				; a buffer overflow error
			bne storedata			; some other error
			bcc databyte 			; no device error occurred
			sty InBufError			; save new device error
			ldy InBufTail			; are we in the middle of a packet?
			cpy PacketIndex
			bne storedata			; yes, simply store this data byte
			sta PacketStatus 		; start a new packet with this data byte
			jmp newpacket

;
;  MIDI status or real-time byte
;
statusbyte	bcc statusbyte2			; no device error
			ldx InBufError			; is there a previous error?
			bne statusbyte2			; yes
			ldx PacketStatus 		; are we discarding 1st partial packet?
			beq statusbyte2			; yes
			sty InBufError			; save new device error
			bra statusbyte2

;
;  MIDI data byte received, no device error
;
databyte	dec PacketRemain 		; has packet exceeded expected length?
			bpl storedata			; no, insert in buffer

;
;  insert implied status byte into running-status packet
;
			ldx PacketLength 		; did last packet have data bytes?
			beq lengthjmp			; no, this can't be running status
			stx PacketRemain
			pha						; save current data byte
			jsr newpacket			; start new packet
			pla						; restore data byte
			bit InBufError			; did buffer overflow?
			bmi return				; yes, discard data byte
			dec PacketRemain 		; subtract one for this data byte

;
;  store a data byte in the input buffer
;
storedata	ldy InBufTail			; is buffer full?
			cpy InBufHead
			beq discardpkt
			sep #$20 				; short accumulator
			sta [InBufAddr],y		; put char. into input buffer
			rep #$20 				; long accumulator
			iny
			cpy InBufSize
			bne @1
			ldy #0
@1 			ldx InBufError			; are we processing an error?
			bne inputdone			; yes, just wait for next status byte
			ldx PacketRemain 		; is this packet finished?
			bne inputdone			; more data in this packet

;
;  end of packet received.	Check end conditions, initialize
;  for next packet, and call application if necessary.
;
packetdone	cpy InBufEnd
			bcc @1
			cpy InBufHead			; don't let tail lap the head pointer
			bcc discardpkt
			beq discardpkt
			ldy #0					; we had to wrap
@1		 	lda InBufHead			; was this first packet in buffer?
			inc a
			cmp InBufEnd
			bcc @2
			lda #0
@2		 	cmp PacketIndex
			sty PacketIndex
			sty InBufTail
			bne return				; not first packet in buffer
			lda InputVec+1			; should we call application?
			ora InputVec
			beq return
			phb
			jsl InputVecGlue 		; call vector to notify application
			plb						;	of input packet ready to go
return		rts

inputdone	sty InBufTail			; save new tail index
			rts


;
;  handle possible errors
;
lengthjmp	tay						; indicate MIDI packet length error
			jmp lengtherr2
discardpkt  ldy PacketIndex			; discard current packet
			sty InBufTail
overflowerr	ldx #miFullBufErr+$8000	; indicate buffer overflow error
			stx InBufError
			rts


;
;  status byte or real-time byte, continued...
;
statusbyte2	tay						; save status byte in Y
			asl a					; form index for MidiLengths table
			tax
			phb						; find length of new packet
			phk						; save old data bank and make data
			plb						;	bank = code bank
			lda MidiLengths-$100,x
			bmi realtime 			; send real time data to application
			plb						; restore data bank register

			cpy IgnoreSysEx			; ignore system exclusive packets?
			beq ignorepkt
			ldx PacketStatus 		; treat system exclusive carefully
			cpx #StartSysExcl
			beq systemexcl
			cpy #EndSysExcl			; if end of system exclusive, we must
			beq ignorepkt			;   be ignoring system exclusive packets
			ldx InBufError			; skip length error check if there
			bne startpkt			;	already is an error
			ldx PacketRemain 		; was length of last packet OK?
			beq startpkt

;
;  previous packet is missing bytes
;
lengtherr	ldx InBufError
			bne startpkt
lengtherr2	ldx #miPacketErr 		; indicate packet length error
			stx InBufError

;
;  check error in previous packet
;
startpkt	sty PacketStatus 		; save new status byte
startpkt1	sta PacketLength 		; save # of bytes in new packet
			sta PacketRemain 		; save # of bytes remaining in packet

			ldx InBufError			; any error in previous packet?
			beq newpacket
			jsr storeerror			; store error code
			bit InBufError			; did buffer overflow?
			bmi return				; yes

;
;  store beginning of new packet
;
newpacket	lda InBufHead			; is there enough room?
			sec
			sbc InBufTail
			bcs newpacket1
			adc InBufSize
newpacket1	cmp #AveDataSize 		; need enough room for one record
			bcc noroom

			ldy InBufTail
			lda PacketLength
			adc #4					; add 4 bytes time stamp + 1 status byte
			sta [InBufAddr],y
			sty PacketIndex			; remember where this packet begins
			iny
			iny

;
;  store the time stamp
;
			jsr UpdateTimer			; update low byte of timer from DOC
			lda Timer
			sta [InBufAddr],y
			iny
			iny
			lda Timer+2
			sta [InBufAddr],y
			iny
			iny

;
;  store the status byte
;
			lda PacketStatus 		; A = status byte
			sta [InBufAddr],y		; store status byte in input buffer
			iny
			ldx InBufError			; is there an error?
			bne inputdone2			; yes, finish packet later
			ldx PacketRemain 		; is this packet finished?
			beq pktdonejmp			; yes
inputdone2	sty InBufTail			; save new tail index
			rts

;
;  ignore current packet (system exclusive)
;
ignorepkt	stz PacketStatus
			rts

;
;  pass real-time MIDI commands onto the application if
;  it has specified a non-zero real-time vector
;
realtime	lda RealTimeVec+1		; call real-time vector if non-null
			ora RealTimeVec
			beq dontcall
			phy						; restore status byte
			jsl RealTimeGlue
			ply						; discard status byte
dontcall	plb
			rts

pktdonejmp	jmp packetdone

discardpkt2 ldy PacketIndex			; discard current packet
			sty InBufTail
noroom		lda #miFullBufErr+$8000	; flag buffer full
			sta InBufError
return2		rts


;
;  handle end of system exclusive packet
;
systemexcl	sty PacketStatus 		; save the status byte
			bit InBufError			; don't store end byte if buffer full
			bmi overflow
			cpy #EndSysExcl			; is this EndSysExcl or new status byte?
			beq insertend
			pha						; save packet length
			jsr insertend			; insert EndSysExcl automatically
			pla
			bra startpkt1
overflow	cpy #EndSysExcl			; is this just the end byte?
			beq return2				; discard because buffer overflowed
			bra startpkt1 			; start a new packet

insertend	lda PacketLength 		; calculate how many bytes in packet
			sec
			sbc PacketRemain
			adc #5					; add 4 for time stamp, 1 for status,
			ldy PacketIndex			;	and 1 for EndSysExcl
			sta [InBufAddr],y		; patch length of system excl. packet
			stz PacketLength 		; defeat running status if more data
			stz PacketRemain 		; force end of packet processing
			lda #EndSysExcl
			jsr storedata			; treat end of system exclusive as data
			ldx InBufError
			bmi return2				; buffer overflowed
			beq return2				; no errors

;
;  store an error code at the end of the current packet, or construct
;  a null packet to hold the error code
;
;  X contains the error code.
;
storeerror	ldy InBufTail			; is there a current packet?
			cpy PacketIndex
			bne storeerror1			; yes, store error code at end

;
;  construct null packet to hold the error code
;
			lda InBufHead			; make sure there is room for null
			sbc InBufTail			;	packet and the next packet too
			bcs makenull
			adc InBufSize
makenull	cmp #AveDataSize*2
			bcc noroom
			ldy InBufTail			; store zero time stamp
			iny
			iny
			lda #0
			sta [InBufAddr],y
			iny
			iny
			sta [InBufAddr],y
			iny
			iny

storeerror1	cpy InBufHead			; is there enough room for error code?
			beq discardpkt2
			txa						; store error code at end of packet
			sep #$20
			sta [InBufAddr],y
			rep #$21
			tyx
			tya						; calculate length of erroneous packet
			sbc PacketIndex
			dec a
			bpl flagerror
			clc
			adc InBufSize
flagerror	ora #$8000				; set high bit of length to flag error
			ldy PacketIndex
			sta [InBufAddr],y
			stz InBufError			; no more errors
			txy						; restore buffer index
			iny
			jmp packetdone			; perform end-of-packet processing

;
;  The following table contains the number of data bytes
;  required by each MIDI status byte.  Note that this
;  table must be indexed using (the value of the status
;  byte * 2 - $100).  A negative value in this table
;  indicates a real-time status byte.  The length of
;  system exclusive data is variable (but <= $7F00).
;
MidiLengths	DC.W	2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2	; $80 - $8F
			DC.W	2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2 ; $90 - $9F
			DC.W	2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2 ; $A0 - $AF
			DC.W	2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2 ; $B0 - $BF
			DC.W	1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 ; $C0 - $CF
			DC.W	1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 ; $D0 - $DF
			DC.W	2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2 ; $E0 - $EF
			DC.W	$7F00							; $F0
			DC.W	0								; $F1
			DC.W	2								; $F2
			DC.W	1								; $F3
			DC.W	0								; $F4
			DC.W	0								; $F5
			DC.W	0								; $F6
			DC.W	0								; $F7
			DC.W	$FFFF,$FFFF,$FFFF,$FFFF 		; $F8 - $FB
			DC.W	$FFFF,$FFFF,$FFFF,$FFFF 		; $FC - $FF


;
;  buffer raw data (no interpretation other than real-time checking)
;
bufraw		bcs @1						; there was a device error
			ldy #0						; no error
@1			sty InBufError				; save error code
			tay							; save data byte
			jsr UpdateTimer				; update low byte of timer from DOC
			tyx							; save data byte in X
			lda InBufFull				; start new packet if buffer overflowed
			bne newrawpkt
			lda InBufError				; start new packet on device error
			bne forcenewpkt

;
;  check for real-time data
;
noerror		cpx #$00F8					; is it real-time message?
			bcc @1						; no
			lda RealTimeVec+1			; is there a real time-vector?
			ora RealTimeVec
			beq @1						; no, buffer real-time data
			phb
			phx							; put real-time message on stack
			jsl RealTimeGlue
			plx							; discard real-time message
			plb
			bra newtime					; remember new time value

;
;  do we start a new packet, or store byte in current packet?
;
@1			ldy PacketRemain			; did we finish previous packet?
			beq newrawpkt				; yes
			sec
			lda Timer					; have more than 1.5 character times
			sbc LastInTime				;   elapsed since the last character?
			tay
			lda Timer+2
			sbc LastInTime+2
			bne forcenewpkt				; start new packet after long idle
			cpy #9
			bcs forcenewpkt				; start new packet after short idle
			txa							; restore status byte
			ldy InBufTail
			sep #$20
			sta [InBufAddr],y			; put char. into input buffer
			rep #$20
			iny							; increment tail
			dec PacketRemain			; is packet finished?
			bne @3						; no
			cpy InBufEnd				; skip tail to start if needed
			bcc @2
			ldy #0
@2			sty PacketIndex				; next packet starts here
@3			sty InBufTail				; save new tail
			
newtime		lda Timer					; remember this time
			sta LastInTime
			lda Timer+2
			sta LastInTime+2
			rts

fullbuf		lda #$FFFF					; mark buffer overflow
			sta InBufFull
			rts
			
;
;  calculate length of short previous packet
;
forcenewpkt	ldy PacketIndex				; adjust length of previous packet
			cpy InBufTail
			beq newrawpkt				; no previous packet
			lda PacketRemain
			eor #$FFFF
			sec
			adc #8
			sta [InBufAddr],y

;
;  start a new packet
;
newrawpkt	lda InBufHead				; is there enough room for new packet?
			sec
			sbc InBufTail
			bcs @1
			adc InBufSize
@1			cmp #AveDataSize+1			; max. RAW packet is one more byte long
			bcc fullbuf
			ldy InBufTail
			bit InBufFull				; did buffer overflow?
			bpl @3						; no
			
;
;  The input buffer overflowed.  Check to see if there's enough room now to
;  store an overflow error along with the new packet.
;
			cmp #AveDataSize+1+7		; enough room to store everything?
			bcc fullbuf					; not yet
			lda #$8004					; store overflow error packet
			sta [InBufAddr],y			; packet length = 4 + $8000 flags error
			iny
			iny
			lda #0						; store zero time stamp
			sta [InBufAddr],y
			iny
			iny
			sta [InBufAddr],y
			iny
			iny
			lda #miFullBufErr			; store overflow error code
			sta [InBufAddr],y
			iny
			cpy InBufEnd				; skip tail to start if needed
			bcc @2
			ldy #0
@2			stz InBufFull				; clear overflow error

@3			sty PacketIndex				; new packet starts here
			lda InBufError				; was there a device error?
			bne @4						; yes
			
;
;  store length and time stamp for normal packet
;
			lda #$0008					; assume length 8 until later
			sta [InBufAddr],y
			iny
			iny
			lda Timer					; store time stamp
			sta [InBufAddr],y
			sta LastInTime				; remember time last char received
			iny
			iny
			lda Timer+2
			sta [InBufAddr],y
			sta LastInTime+2
			iny
			iny
			txa							; restore data byte
			sta [InBufAddr],y
			iny
			sty InBufTail				; save new tail pointer
			lda #$0003					; anticipate 3 more chars. in packet
			sta PacketRemain
			ldy PacketIndex
			bra @6						; check input vector
			
;
;  store packet with device error
;
@4			lda #$8005					; packet length 5 + $8000 to flag error
			sta [InBufAddr],y
			iny
			iny
			lda Timer					; store time stamp
			sta [InBufAddr],y
			sta LastInTime				; remember time last char received
			iny
			iny
			lda Timer+2
			sta [InBufAddr],y
			sta LastInTime+2
			iny
			iny
			txa							; restore data byte
			sta [InBufAddr],y
			iny
			lda InBufError				; store error code
			sta [InBufAddr],y
			iny
			stz InBufError				; no more errors for now
			cpy InBufEnd				; skip tail to start if needed
			bcc @5
			ldy #0
@5			sty InBufTail				; save new tail pointer
			stz PacketRemain
			
;
;  if this was first data in input buffer, call user's input vector
;  (if there is one supplied).  Note: Y contains the new value of
;  PacketIndex at this point
;
@6			lda InBufHead				; is this first data in the buffer?
			inc a
			cmp InBufEnd				; need to skip to front of buffer?
			bcc @7
			lda #0
@7			cmp PacketIndex				; does head index = current pkt index?
			sty PacketIndex				; save new packet starting index
			bne @8						; not first data
			lda InputVec+1				; should we call application?
			ora InputVec
			beq @8						; no vector supplied
			phb
			jsl InputVecGlue			; call vector to notify application of
			plb							;   input data ready to go
@8			rts
			
			ENDP
			EJECT

;-------------------------------------------------------
;
;  BufOutput
;
;  Request next character from the output buffer.
;
;  Inputs:
;		 none
;
;  Outputs:
;		 Carry clear if got a character, carry set if
;			output buffer is empty.
;		 Accumulator (low byte) contains character if
;			the carry is clear, otherwise A is
;			undefined.	The high byte is undefined in
;			either case.
;
;  Registers:
;		 Not preserved.  Accumulator may contain next
;			character.
;
;  NOTE: This routine is not called directly, but
;		 entered through the BufDispatcher routine.
;
;-------------------------------------------------------

BufOutput	PROC export

			IMPORT NoteOnOff
			IMPORT OutputVecGlue
			IMPORT PolledWait
			IMPORT UpdateTimer

			import Delay
			import HalfDelay
			
			lda MidiZP2				; get our direct page
			tcd
bufoutput1	ldy OutBufHead
			iny
			lda RealTimeChars		; any real time characters to output?
			bne getrealtime			; yes
			lda PacketChars			; any remaining packet characters?
			beq newpacket			; no
			dec PacketChars			; dec. count of chars. in this packet
			bra checktime

getrealtime	dec RealTimeChars		; decrement count of real time chars

checktime	bne gethead				; if this is the last character in
			jsr UpdateTimer			;	this packet, update timer so delay
;											will work correctly

gethead 	cpy OutBufSize			; do we need to wrap?
			bcc getchar
			ldy #0					; wrap to the start of the buffer
			clc						; carry clear to indicate a character

getchar 	lda [OutBufAddr],y		; get character from buffer
			sty OutBufHead			; save new head pointer
			rts

			eject

;
;  look for new packet to output
;
;  NOTE: we get here only on a transmitter interrupt.  Therefore, if a packet
;		 is within 304 microseconds of going out, we send it.
;
newpacket	cpy OutBufEnd			; do we need to wrap?
			bcc @1
			tay						; wrap to the start of the buffer
@1 	 		cpy OutBufTail
			bne checkpacket			; packet may be ready to go out

;
;  buffer just became empty... do we need to call the application?
;
			lda #$FFFF
			sta OutBufEmpty			; output buffer is empty
			lda OutputVec+1
			ora OutputVec
			beq return
			phb
			jsl OutputVecGlue		; call application
			plb
return		lda TimerEnabled 		; do we need to enfore a delay?
			bne return2				; no, the timer is running
			lda OutputDelay			; delay between output packets?
			beq return2				; no, full-speed output
			jsr HalfDelay			; do half of the necessary delay here
return2 	sec						; carry set to indicate no char. ready
			rts

;
;  check the time stamp of the packet at the head of the output buffer
;  to see if it's ready to go out.
;
checkpacket	lda [OutBufAddr],y		; get packet length information
			sec
			sbc #5					; sub. time stamp and status byte length
			tax						; save number of bytes in MIDI packet
			iny						; advance to time stamp
			iny
			lda TimerEnabled 		; is the timer running?
			bne timedoutput			; yes, do timed output

			lda [OutBufAddr],y		; if time stamp is zero, output immediately
			iny
			iny
			ora [OutBufAddr],y
			beq dooutput
			dey						; restore index
			dey
			
			lda Timer				; is timer value greater than this
			and #$FF00				;	time stamp?
*			sec						; carry set from previous SBC
			sbc [OutBufAddr],y
			iny
			iny
			lda Timer+2
			sbc [OutBufAddr],y
			bcc dooutput 			; time stamp is greater, start output
			bne nochar				; timer is greater, no output
dooutput	lda OutputDelay			; is any delay between packets required?
			beq getstatus			; no
			phx						; save packet length
			phy						; save index
			jsr Delay				; waste some time
			ply
			plx

getstatus	iny						; get packet status byte
			iny
			lda OutputMode			; are we in raw mode?
			sep #$20 				; short accumulator
			longa off
			beq rawchar				; do not interpret character
			lda [OutBufAddr],y		; get character from buffer
			cmp #$A0
			bcs notnotecmd
			jsr NoteOnOff			; record note on/off in note array
notnotecmd	bit OutputStat			; do running status?
			bpl newstatus			; no
			cmp LastStatus			; is status byte same as last?
			bne newstatus
			cmp #StartSysExcl		; is it system exclusive packet?
			beq newstatus1			; defeat running status of system excl.
			dex						; are there data bytes?
			bmi newstatus2			; no... send single status byte
			stx PacketChars
			iny
			sty OutBufHead
			lda [OutBufAddr],y		; get first data byte for running status
			rep #$21 				; long accumulator, CLC
			longa on
nochar		rts						; carry clear indicates a character,
									;   carry set indicates no character


rawchar
			longa off
			lda [OutBufAddr],y		; get character from buffer
			bra newstatus1
newstatus	sta LastStatus			; save for future running status
newstatus1	stx PacketChars
newstatus2	sty OutBufHead
			rep #$21 				; long accumulator, CLC
			longa on
			rts						; carry clear to indicate a character


timedoutput	lda LastOutTime			; compute minimum acceptable output time
			clc
			adc OutputDelay
			sta NextOutTime
			lda LastOutTime+2
			adc #0
			sta NextOutTime+2

			lda [OutBufAddr],y		; subtract 304 microsec from time stamp
			sbc #4
			sta TimeStamp			; save low word of subtraction
			iny
			iny
			lda [OutBufAddr],y		; subtract from high word of time stamp
			sbc #0
			bcc setmintime			; time stamp was less than 4
			sta TimeStamp+2
			lda TimeStamp			; use whichever time is greater
			cmp NextOutTime
			lda TimeStamp+2
			sbc NextOutTime+2
			bcs timestampok
setmintime	lda NextOutTime
			sta TimeStamp
			lda NextOutTime+2
			sta TimeStamp+2
timestampok	lda TimeStamp+2			; has the time stamp expired?
			cmp Timer+2
			bcc getstatus			; time stamp is much less than clock
			bne nochar				; time stamp is much greater than clock
			sep #$20 				; short accumulator
			lda TimeStamp+1			; get high byte of low word of stamp
			cmp Timer+1
			rep #$20 				; long accumulator
			bcc getstatus			; time stamp is less than clock
			bne nochar				; time stamp is greater than clock
			sty OutBufHead
			stx PacketChars			; save number of chars in packet
			jsr UpdateTimer			; update low byte of time stamp clock
			lda TimeStamp			; get low word of time stamp
			jsr PolledWait			; wait for time stamp to expire
			ldx PacketChars
			ldy OutBufHead
			jmp getstatus

			ENDP
			EJECT

;-------------------------------------------------------
;
;	Delay, HalfDelay
;
;	These routines delay the number of ticks (or half
;	the number) indicated in the accumulator upon
;	entry.	Each tick takes approximately 76
;	microseconds.  The receiver is polled during this
;	interval to avoid MIDI input data lossage.
;
;-------------------------------------------------------

HalfDelay	PROC EXPORT
		
			lsr a					; halve the number of ticks

			EXPORT Delay
Delay		tax
			bne moredelay
			rts

moredelay	pha						; save the number of ticks
			jsl MidiInputPoll		; poll input to avoid data lossage

;
;  switch to 1Mhz for accurate delay
;
nopoll		php						; save interrupt status
			sep #$24 				; short accumulator, SEI
			longa off
			lda CYAREG				; get current processor speed
			pha						; save it
			and #$7F 				; set 1Mhz
			sta CYAREG

;
;  delay for approximately 75 microseconds
;
;				lda #15
			lda #8
delayloop	dec a
			bne delayloop

;
;  switch to previous processor speed
;
			lda CYAREG
			and #$7F
			ora 1,s					; install previous high bit
			sta CYAREG
			pla						; discard previous settings
			plp						; restore previous processor status
			longa on

			pla						; more ticks?
			dec a
			bra Delay

			ENDP

			END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Midi/MidiTools/midi.clock.aii b/IIGS.601.SRC/GSToolbox/Midi/MidiTools/midi.clock.aii
new file mode 100644
index 0000000..ff5c9f1
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Midi/MidiTools/midi.clock.aii
@@ -0,0 +1 @@
+;-------------------------------------------------------
;
;  midi.clock.aii
;
;  This module contains routines to operate on the
;  time stamp clock and service clock interrupts.
;
;  Copyright 1987, Apple Computer Inc.
;  Author: Don Marsh (x6739, AppleLink: MARSH1)
;
;  Modification History
;
;  16 Sep 87   DM	New today
;
;-------------------------------------------------------

			INCLUDE 'all.macros'
			INCLUDE 'midi.macros'
			INCLUDE 'midi.equ.aii'

;-------------------------------------------------------
;
;  MidiClock -- call number 11
;
;  This routine controls operation of the time stamp
;  clock.  The routine is passed two arguments: a word
;  indicating the control function to perform, and a
;  long argument that is used by the control function.
;
;  Control function numbers are as follows:
;
;		 0 - set time stamp clock.	The long argument
;			 contains the new value of the clock.
;			 The low byte of the clock cannot be
;			 accurately set at this time.
;		 1 - start time stamp clock.  The long argument
;			 is ignored.
;		 2 - stop time stamp clock.  The long argument
;			 is ignored.
;		 3 - set clock frequency.  The low word of
;			 the long argument contains the new value
;			 of the clock frequency. If the low word
;			 is zero, the clock frequency is set to its
;			 default value.
;
;  Inputs:
;		 function number (word)
;		 argument used by various functions (long)
;
;  Outputs:
;		 none
;
;  Registers:
;		 not preserved
;
;-------------------------------------------------------

MidiClock	PROC EXPORT

			IMPORT DevPollXmtGlue
			IMPORT WriteDocGlue
			IMPORT WriteFreq
			IMPORT TicksToFreq

;
;  stack offsets
;
			DefineStack
s_dirpage   word 					; old direct page
s_rtl1		block 3					; first rtl address
s_rtl2		block 3					; second rtl address

s_argstart	DSectSize				; start of arguments
s_argument	long 					; argument used by functions
s_funcnum	word 					; function number
s_argend	DSectSize				; end of arguments

s_argsize	equ s_argend-s_argstart

;
;  temporary variables
;
arg 		equ Temp1				; the passed argument
soundtable	equ Temp2				; address of Sound Tools jump table
osctable	equ Temp3				; addr of oscillator translation table


;
;  initialize direct page register
;
			phd						; save old direct page
			tcd						; get our direct page
			beq starterr			; MIDI Tool Set not started

;
;  call the appropriate function
;
			lda s_funcnum,s			; get the function number
			asl a					; form index to jump table
			tax
			lda s_argument,s 		; put argument on direct page so we
			sta arg					;	don't have to do weird stack stuff
			lda s_argument+2,s
			sta arg+2
			php						; disable interrupts
			sei
			jsr (functable,x)

;
;  return (with error if A is non-zero)
;
			plp						; restore interrupts
			tax						; save error code
returnerr	pld						; restore old direct page
			PopArgs s_argsize		; move RTL addresses
			txa						; restore error code
			cmp #1					; set carry for error
			rtl

starterr	ldx #miStartUpErr		; MIDI Tool Set not started
			bra returnerr

;
;  function jump table
;
functable	DC.W setclock			; 0 - set time stamp clock
			DC.W startclock			; 1 - start time stamp clock
			DC.W stopclock			; 2 - stop time stamp clock
			DC.W setfreq 			; 3 - set clock frequency

			eject


;
;  set time-stamp clock
;
setclock	lda arg
			and #$FF00				; low byte can't be set
			sta Timer
			sta LastOutTime
			lda arg+2
			sta Timer+2
			sta LastOutTime+2

			lda OutputEnabled		; is output enabled?
			beq @1					; no
			jsl DevPollXmtGlue		; start output of packet if necessary
@1	 		rts

;
;  start time-stamp clock
;
startclock	lda TimerEnabled 		; is clock already running?
			beq storewave			; no
			lda #0					; no errors
docerr		rts

;
;  store a timing waveform in the DOC
;
storewave	lda #^timerwave			; address of waveform in normal RAM
			pha
			pea timerwave
			pea 0					; address in DOC RAM
			pea 256					; size of waveform
			_WriteRAMBlock
			bcs docerr				; no DOC or DOC RAM

;
;  allocate generator in DOC to implement a timer
;
			pea 0					; request generator (Note Synthesizer)
			pea 128					; non-premptible priority 128
			_AllocGen
			plx						; get generator number
			bcs docerr
			stx MidiGenerator		; save it

;
;  set the generator mode to our private mode for easy identification
;  during a sound interrupt
;
			phd						; save our direct page
			pha						; save generator number
			pha						; find direct page of Sound Tools
			pha
			pea 0
			pea SoundToolNum
			_GetWAP
			pld
			pla
			pla						; restore generator number
			asl a					; multiply by 16 bytes/generator
			asl a
			asl a
			asl a
			tax
			lda 0,x					; load the mode byte for this generator
			and #$FFF0				; clear mode nybble
			ora #MidiMode			; insert our mode nybble
			sta 0,x
			pld						; restore direct page register

;
;  find our oscillator number
;
			pha
			pha
			_GetTableAddress
			pla
			sta soundtable
			pla
			sta soundtable+2
			ldy #$18 				; find address of oscillator table
			lda [soundtable],y
			sta osctable
			ldy #$1A
			lda [soundtable],y
			sta osctable+2
			ldy MidiGenerator
			sep #$20 				; short accumulator
			longa off
			lda [osctable],y 		; get our oscillator number
			sta MidiOsc				; save it
			ora #$60 				; make index to waveform sample register
			sta TimerData
			rep #$20 				; long accumulator
			longa on

;
;  initialize our two oscillators in the DOC
;
			ldy #4					; find address of write reg. routine
			lda [soundtable],y
			dec a					; decrement for RTL call
			sta WriteRegAddr
			ldy #6
			lda [soundtable],y
			sta WriteRegAddr+2

			lda TicksPerSec			; Get Clock in TPS.
			pha						; space for frequency result.
			jsr TicksToFreq			; convert the tick to a frequency.
			bcc	@1		
			lda #DefClkFreq			; get the default.
			sta TicksPerSec			; set clock rate to default.
			lda #$100				; get default frequency for in DOC format.
			sta 1,s					; save in result on stack.
	
@1			lda #0					; clear high byte of accumulator
			sep #$20 				; short accumulator
			longa off
			
			jsr WriteFreq			; takes freq on stack, which must be pulled.
			pla
			pla
			
			lda MidiOsc				; volume = 0
			ora #$40
			tax
			lda #$00
			jsl WriteDocGlue
			lda MidiOsc
			ora #$41
			tax
			lda #$00
			jsl WriteDocGlue

			lda MidiOsc				; waveform table pointer = 0
			ora #$80
			tax
			lda #$00
			jsl WriteDocGlue
			lda MidiOsc
			ora #$81
			tax
			lda #$00
			jsl WriteDocGlue

			lda MidiOsc				; table size = 256, resolution = 512
			ora #$C0
			tax
			lda #$00
			jsl WriteDocGlue
			lda MidiOsc
			ora #$C1
			tax
			lda #$00
			jsl WriteDocGlue

			lda MidiOsc				; set swap mode, interrupts enabled
			ora #$A1
			tax
			lda #$0F 				; second generator is halted
			jsl WriteDocGlue
			lda MidiOsc
			ora #$A0
			tax
			lda #$0E 				; first generator is running
			jsl WriteDocGlue

			rep #$20 				; long accumulator
			longa on

			lda #$FFFF				; indicate timer running
			sta TimerEnabled
			stz TimerValid			; clock not incremented yet

			lda #0					; no errors
			rts

;
;  DOC waveform data to implement timer
;
timerwave	DC.B $01,$02,$03,$04,$05,$06,$07,$08,$09,$0A,$0B,$0C,$0D,$0E,$0F
			DC.B $10,$11,$12,$13,$14,$15,$16,$17,$18,$19,$1A,$1B,$1C,$1D,$1E,$1F
			DC.B $20,$21,$22,$23,$24,$25,$26,$27,$28,$29,$2A,$2B,$2C,$2D,$2E,$2F
			DC.B $30,$31,$32,$33,$34,$35,$36,$37,$38,$39,$3A,$3B,$3C,$3D,$3E,$3F
			DC.B $40,$41,$42,$43,$44,$45,$46,$47,$48,$49,$4A,$4B,$4C,$4D,$4E,$4F
			DC.B $50,$51,$52,$53,$54,$55,$56,$57,$58,$59,$5A,$5B,$5C,$5D,$5E,$5F
			DC.B $60,$61,$62,$63,$64,$65,$66,$67,$68,$69,$6A,$6B,$6C,$6D,$6E,$6F
			DC.B $70,$71,$72,$73,$74,$75,$76,$77,$78,$79,$7A,$7B,$7C,$7D,$7E,$7F
			DC.B $80,$81,$82,$83,$84,$85,$86,$87,$88,$89,$8A,$8B,$8C,$8D,$8E,$8F
			DC.B $90,$91,$92,$93,$94,$95,$96,$97,$98,$99,$9A,$9B,$9C,$9D,$9E,$9F
			DC.B $A0,$A1,$A2,$A3,$A4,$A5,$A6,$A7,$A8,$A9,$AA,$AB,$AC,$AD,$AE,$AF
			DC.B $B0,$B1,$B2,$B3,$B4,$B5,$B6,$B7,$B8,$B9,$BA,$BB,$BC,$BD,$BE,$BF
			DC.B $C0,$C1,$C2,$C3,$C4,$C5,$C6,$C7,$C8,$C9,$CA,$CB,$CC,$CD,$CE,$CF
			DC.B $D0,$D1,$D2,$D3,$D4,$D5,$D6,$D7,$D8,$D9,$DA,$DB,$DC,$DD,$DE,$DF
			DC.B $E0,$E1,$E2,$E3,$E4,$E5,$E6,$E7,$E8,$E9,$EA,$EB,$EC,$ED,$EE,$EF
			DC.B $F0,$F1,$F2,$F3,$F4,$F5,$F6,$F7,$F8,$F9,$FA,$FB,$FC,$FD,$FE,$FF,$FF

			eject

;
;  stop time-stamp clock
;
stopclock	lda TimerEnabled 		; is clock running?
			beq @1					; no

			stz TimerEnabled
			pei MidiGenerator		; deallocate generator
			_DeallocGen

			sep #$20 				; clear low byte of timer
			stz Timer
			rep #$20

@1			rts


;
;  set clock frequency
;
setfreq 	lda arg					; get low word. high word is ignored.
			bne freqok				; if not zero use that value.
			lda #DefClkFreq			; if zero use default frequency.
freqok		pha						; make space for frequncy result.
			sta TicksPerSec			; save clock rate.
			jsr TicksToFreq			; convert the tick to a frequency.
			bcc	@1		
			lda #DefClkFreq			; get the default.
			sta TicksPerSec			; set clock rate to default.
			lda #$100				; get default frequency for in DOC format.
			sta 1,s					; save in result on stack.
	
@1			lda	TimerEnabled		; see if the timer is enabled.
			bne	@2					; continue if timer is started.
			pla						; otherwize restore stack,
			bra	allset				; and quit.
@2			lda #0					; clear high byte of accumulator
			sep #$20 				; short accumulator
			longa off
			
			jsr WriteFreq			; takes freq on stack, which must be pulled.
			rep #$20				; long accumulator
			longa on				
			pla
allset		lda arg+2				; See if the high byte was set.
			beq done				; if zero no error.
			lda #miBadFreqErr		; sorry, can't get this frequency
done		rts

			ENDP
			EJECT

;-------------------------------------------------------
;
;  ClockHandler
;
;  This routine services time stamp clock interrupts
;
;-------------------------------------------------------

ClockHandler   PROC EXPORT

			IMPORT DevPollXmtGlue
			IMPORT ErrorGlue

			phd						; save direct page register
			tcd						; get our direct page

;
;  check to see if the high-order bytes
;  of the clock are valid
;
			ldx TimerValid			; did we already increment the clock?
			stz TimerValid
			bne checkwait

;
;  increment clock counter and check for wrapping
;
			lda TimerData			; swap oscillators
			eor #$0001
			sta TimerData
			inc Timer+1				; increment high bytes of timer
			bne checkwait
			sep #$20 				; short memory
			inc Timer+3
			rep #$20 				; long memory
			bpl checkwait
			stz Timer+2				; clock just went negative
			stz LastOutTime			; so we don't generate spurious error
			stz LastOutTime+2
			phb
			pea miClockErr			; call real-time error routine
			jsl ErrorGlue
			pla						; discard miClockErr on stack
			plb

;
;  determine if output of a packet should be initiated at this time
;
checkwait	lda OutputEnabled		; is output enabled?
			beq return				; no
			lda PacketChars			; is something going out right now?
			ora RealTimeChars
			bne checkblock			; yes, make sure it isn't blocked up
			ldy OutBufHead			; any packets waiting?
			iny
			cpy OutBufEnd			; do we need to skip to beginning?
			bcc @1
			tay
@1			cpy OutBufTail
			beq return				; output buffer is empty
			iny
			iny
			iny						; compare upper three bytes of clock
			iny
			lda [OutBufAddr],y
			cmp Timer+2
			bcc startoutput			; packet is already very old
			bne return				; very long time before packet goes out
			dey
			lda [OutBufAddr],y
			cmp Timer+1
			bcc startoutput			; packet is already somewhat old
			bne return
startoutput	jsl DevPollXmtGlue		; poll device transmitter

return		pld						; restore old direct page
			sep #$30 				; restore short accumulator and regs.
			rtl

;
;  make sure that packet in mid-transmission has not been blocked
;
checkblock	lda Timer+2				; if high word of clock is much newer
			sec						;	than high word when last char was
			sbc LastOutTime+2		;	sent, output is blocked somehow
			beq return
			dec a
			beq return
			phb
			pea miDevNoConnect		; output is blocked, send error
			jsl ErrorGlue
			pla						; discard miDevNoConnect on stack
			plb
			lda Timer				; don't repeat this error for a while
			sta LastOutTime
			lda Timer+2
			sta LastOutTime+2
			bra return

			ENDP
			EJECT

;-------------------------------------------------------
;
;  PolledWait
;
;  Wait for the low byte of the current time stamp
;  to expire, polling MIDI input if input is enabled
;  and a long wait is required.  The three most
;  significant bytes of the time stamp and the current
;  clock must be equal when this routine is called.
;
;  Inputs:
;		 the accumulator contains the low word of the
;		current time stamp
;
;  Outputs:
;		 none
;
;  Registers:
;		 not preserved
;
;-------------------------------------------------------

PolledWait	PROC EXPORT

			import UpdateTimer

			cmp Timer				; has time stamp expired?
			bcc return
			beq return

;
;  poll MIDI input while we are waiting for time stamp to expire
;
			pha						; save time stamp value
			jsl MidiInputPoll		; poll MIDI input if necessary

;
;  update the time stamp clock
;
nopoll		jsr UpdateTimer			; update clock
			pla						; restore time stamp value
			bcs PolledWait			; low byte of clock did not wrap

return		rts

			ENDP
			EJECT

;-------------------------------------------------------
;
;  UpdateTimer
;
;  This routine reads the current timing mark from the
;  DOC and updates the value of the long Timer
;  so that it reflects the current time.
;
;  Registers:
;		 Y is preserved, A and X modified.
;
;  The carry is clear if the clock was incremented,
;  set if it was not.
;
;-------------------------------------------------------

UpdateTimer	PROC EXPORT

			IMPORT ErrorGlue
			IMPORT WriteDocGlue

			lda TimerEnabled 		; is clock running?
			bne update				; yes
			lda Timer				; clock is stopped
			and #$FF00				; clear the low byte
			sta Timer
			sec						; the clock was not incremented
			rts

update		lda SGadrl				; save sound glu address
			tax
			sep #$20 				; short accumulator
			longa off
			lda SGctrl				; save sound glu control
			and #$F0 				; mask off write-only part
			pha
			lda IRQ_Volume			; set new sound glu control
			and #$0F 				; mask off bits we want to set
			pha
*			ora #$00 				; select DOC device, hold mode
			sta SGctrl
			lda TimerData			; watch our oscillator
			sta SGadrl
			lda SGdata				; fake read
			lda SGdata				; read current waveform byte
			sta Timer
			cmp #$02 				; is this oscillator halted?
			bcs timerok				; no, it's running

			lda TimerData			; check the oscillator's halt bit
			adc #$40
			sta SGadrl
			lda SGdata
			lda SGdata
			eor #$01 				; complement halt bit so carry will
			lsr a					;	be set right
			bcs timerok				; oscillator is running

;
;  The low byte of the clock has wrapped, and a clock interrupt is
;  pending, but the high bytes of the clock have not been incremented
;  yet.  Therefore, we have to increment the high bytes here, and
;  notify the interrupt routine that they don't have to be incremented
;  when the interrupt is finally serviced.
;
			lda TimerData			; switch to running oscillator
			eor #$01
			sta TimerData
			sta SGadrl
			lda SGdata				; fake read
			lda SGdata				; read current waveform byte
			sta Timer
			sta TimerValid			; indicate timer already incremented
			inc Timer+1				; increment high bytes of timer
			bne timerok
			inc Timer+2
			bne timerok
			inc Timer+3
			bpl timerok
			stz Timer+3				; clock just went negative
			rep #$20 				; long memory
			stz LastOutTime
			stz LastOutTime+2
			phx						; save X
			phy						; save Y
			phb
			pea miClockErr			; call real-time error routine
			jsl ErrorGlue
			pla						; discard miClockErr on stack
			plb
			ply
			plx
			sep #$20
			clc						; indicate that clock was incremented

;
;  when we get here, the carry is set indicating that the clock was
;  not incremented, or clear indicating that the clock was incremented.
;  These settings must be preserved for return.
;
timerok 	pla						; reconstruct sound glu control
			ora 1,s					; combine volume and control bits
			sta SGctrl
			pla						; discard used byte
			rep #$20 				; long accumulator
			longa on
			txa
			sta SGadrl				; restore sound glu address
			rts

; WriteFreq called: Short A, Long X, and Frequency on the Stack.
; caller is responsible for pulling frequency off when done.
			Export	WriteFreq
WriteFreq	
			longa off
			lda MidiOsc				; frequency low = 0
			tax
			lda 3,s
			jsl WriteDocGlue
			lda MidiOsc
			ora #$01
			tax
			lda 3,s
			jsl WriteDocGlue

			lda MidiOsc				; frequency high = 1
			ora #$20
			tax
			lda 4,s
			jsl WriteDocGlue
			lda MidiOsc
			ora #$21
			tax
			lda 4,s
			jsl WriteDocGlue

			rts
			
; Called by an jsr with 2bytes of space on stack for frequency result.
; Full 16 bit mode.
; TicksPerSec should be in the Accumlator.
; divide TicksPerSec by 2 before _FixDiv and then multiply by 2 after
; so that we can get values up to $FFFE with signed arithmatic.

			Export	TicksToFreq
TicksToFreq
			longa on
			longx on

*	lda		TicksPerSec
	
; divide by 51.40625 to get frequency regester.
	pha						;space
	pha					
	lsr		a				; divide by 2.
	pha						; Dividend.
	pea		0				; fractional part.
	pea		51				; Divisor.
	pea		$6800			; fractional part.
	_FixDiv
	
	pla						; discard fractional part.
	pla						; get integral part.
	bmi		@1				; if neg then error.
	asl		a				; multiply by 2.
	sta		3,s				; save the frequency on stack.
	lda		#0				;
@1	cmp		#1				; set carry.
	rts
			ENDP

			END
			
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Midi/MidiTools/midi.control.aii b/IIGS.601.SRC/GSToolbox/Midi/MidiTools/midi.control.aii
new file mode 100644
index 0000000..83691ce
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Midi/MidiTools/midi.control.aii
@@ -0,0 +1 @@
+;-------------------------------------------------------
;
;  midi.control.aii
;
;  This module contains routines which control the
;  operation of the MIDI Tool Set.
;
;  Copyright 1987, 1988 Apple Computer Inc.
;  Author: Don Marsh (x6739, AppleLink: MARSH1)
;
;  Modification History
;
;	2 Sep 87   DM	New today
;  20 Nov 87   DM	Major reorganization and addition
;					of functions to MidiControl.
;  23 Nov 87   DM	Split MidiInfo into its own file.
;
*
* 3-20-89		Mark Cecys
*  Patch in local QD cursor and EM with midi polling
*  Affected code:
*			begininput
*			endinput
*			endoutput

* 5/25/89	Mark Cecys
*  Bug fix in discardoutbuf. EmptyOutBuf returns with 'a' reg
*  set to 0001. Function dispatcher interprets this as an error code.

;-------------------------------------------------------

			INCLUDE 'all.macros'
			INCLUDE 'midi.macros'
			INCLUDE 'midi.equ.aii'

;-------------------------------------------------------
;
;  MidiControl -- call number 9
;
;  This routine controls operation of the MIDI Tool Set.
;  The routine is passed two arguments: a word
;  indicating the control function to perform, and a
;  long argument that is used by the control function.
;
;  Control function numbers are as follows:
;
;		 0 - set real-time vector.	The long argument
;			 contains the address of a routine
;			 the MIDI Tool Set calls when MIDI real-
;			 time commands are received.  A value of
;			 zero disables the real-time call.
;		 1 - set real-time error vector.  The long
;			 argument contains the address of a routine
;			 the MIDI Tool Set calls when various
;			 real-time error conditions are detected
;			 (miClockErr, miDevNoConnect).	A value
;			 of zero disables the real-time call.
;		 2 - set input buffer.	The long argument is
;			 a pointer to a 6-byte record containing
;			 a word indicating the size of the buffer
;			 to allocate, and a long indicating
;			 the address of the buffer.
;		 3 - set output buffer.  The long argument is
;			 a pointer to a 6-byte record containing
;			 a word indicating the size of the buffer
;			 to allocate, and a long indicating the
;			 address of the buffer.
;		 4 - start input.  The long argument, if non-zero,
;			 specifies the address of a routine to be
;			 called when the first packet is available in
;			 the input buffer.
;		 5 - start output.	The long argument, if
;			 non-zero, specifies the address of a
;			 routine to be called when the output buffer
;			 is empty.
;		 6 - stop input.  The long argument is ignored.
;		 7 - stop output.  The long argument is ignored.
;		 8 - flush input.  The long argument is ignored.
;		 9 - flush output.	Waits for the current
;			 packet to finish transmission, then clears
;			 the output buffer, sends note off commands,
;			 and waits for these packets to clear from
;			 the output buffer.  Error is returned if
;			 output is not enabled.  The clock should be running
;			 in order to detect transmission difficulties.
;			 The long argument determines how note off
;			 commands are generated.  If it is negative,
;			 the output buffer is immediately flushed
;			 without waiting for a partly-transmitted
;			 packet to finish, and no note off commands
;			 are generated.  If the long argument is zero,
;			 note off commands are sent only for
;			 those notes that are marked on in the note
;			 array.  If the long argument is positive,
;			 all note off and individual note off commands
;			 are generated for every possible note on
;			 every channel.
;		 10 - flush next input packet.	The long argument
;			 is ignored.
;		 11 - wait for empty output buffer.  The long
;			 argument is ignored.
;		 12 - set input mode.  Packet/raw mode.  The
;			 high word of the long argument contains
;			 a mask to indicate which bits of the input
;			 mode to set or clear, and the low word
;			 contains the values of the corresponding
;			 bits.
;		 13 - set output mode.	Running status on/off.
;			 The high word of the long argument contains
;			 a mask to indecate which bits of the output
;			 mode to set or clear, and the low word
;			 contains the values of the corresponding
;			 bits.
;		 14 - clear note pad.  If the long argument is
;			 less than 16, all notes in the corresponding
;			 MIDI channel are marked off.  Otherwise,
;			 all notes in all channels are marked off.
;		 15 - set minimum delay between output packets.
;			 The low word of the long argument specifies
;			 the delay in units corresponding to one-half
;			 of the time it takes to transmit one MIDI
;			 character.
;		 16 - enable/disable running status output.
;			 The low word of the long argument is 0
;			 to disable, 1 to enable.
;		 17 - ignore system exclusive packets on input.
;			 The low word of the long argument is 1 to
;			 ignore system exclusive packets, 0 to buffer
;			 them normally.
;
;  Inputs:
;		 function number (word)
;		 argument used by various functions (long)
;
;  Outputs:
;		 none
;
;  Registers:
;		 not preserved
;
;-------------------------------------------------------

MidiControl	PROC EXPORT

			PRINT PUSH
			PRINT OFF
			INCLUDE 'e16.memory' 	; memory manager equates
			PRINT POP
			
			import WaitOutput
			
			IMPORT EmptyInBuf		; midi.buffer.aii
			IMPORT EmptyOutBuf
			
			IMPORT ClearNotes		; midi.notes.aii
			IMPORT ClearNotesChannel
			IMPORT PanicNotesOff
			IMPORT TurnOffNotes
			
			IMPORT DevPollXmtGlue	; midi.glue.aii
			IMPORT DevRcvOffGlue
			IMPORT DevRcvOnGlue
			IMPORT DevXmtOffGlue
			IMPORT InputVecGlue
			IMPORT OutputVecGlue

			IMPORT Mouse
			IMPORT MouseTask
			IMPORT iDrawCursor
			IMPORT iUndrawCursor
			
			IMPORT GetNextEvent
			IMPORT EventAvail
			IMPORT GetMouse
			IMPORT Button
			IMPORT StillDown
			IMPORT WaitMouseUp
			IMPORT PostEvent
			IMPORT FlushEvents
			IMPORT GetOSEvent
			IMPORT OSEventAvail
	
			IMPORT SetCursor
			IMPORT UserInitCursor
			

		EXPORT XSHIFTSTAY:EQU
XSHIFTSTAY EQU $E01E84

		EXPORT XSHIFTOUT:EQU
XSHIFTOUT EQU $E01E8C


;
;  stack offsets
;
			DefineStack
s_dirpage   word 					; old direct page
s_rtl1		block 3					; first rtl address
s_rtl2		block 3					; second rtl address

s_argstart	DSectSize				; start of arguments
s_argument	long 					; argument used by functions
s_funcnum	word 					; function number
s_argend	DSectSize				; end of arguments

s_argsize	equ s_argend-s_argstart

;
;  temporary variables
;
arg 		equ Temp1				; the passed argument

;
;  initialize direct page register
;
			phd						; save old direct page
			tcd						; get our direct page
			beq starterr			; MIDI Tool Set not started

;
;  call the appropriate function
;
			lda s_funcnum,s			; get the function number
			asl a					; form index to jump table
			tax
			lda s_argument,s 		; put argument on direct page so we
			sta arg					;	don't have to do weird stack stuff
			lda s_argument+2,s
			sta arg+2
			php						; disable interrupts
			sei
			jsr (functable,x)

;
;  return (with error if A is non-zero)
;
			plp						; restore interrupts
			tax						; save error code
returnerr	pld						; restore old direct page
			PopArgs s_argsize		; move RTL addresses
			txa						; restore error code
			cmp #1					; set carry for error
			rtl

starterr	ldx #miStartUpErr		; MIDI Tool Set not started
			bra returnerr

;
;  function jump table
;

functable	DC.W initrealtime		; 0 - install real time vector
			DC.W initerrvec			; 1 - install error vector
			DC.W initinbuffer		; 2 - initialize input buffer
			DC.W initoutbuffer		; 3 - initialize output buffer
			DC.W begininput			; 4 - begin input
			DC.W beginoutput		; 5 - begin output
			DC.W endinput			; 6 - terminate input
			DC.W endoutput			; 7 - terminate output
			DC.W discardinbuf		; 8 - empty input buffer
			DC.W discardoutbuf		; 9 - empty output buffer
			DC.W discardpacket		; 10 - discard input packet
			DC.W WaitOutput			; 11 - wait for output buffer to empty
			DC.W setinmode			; 12 - set input mode
			DC.W setoutmode			; 13 - set output mode
			DC.W marknotesoff		; 14 - clear note pad
			DC.W setoutdelay		; 15 - set output packet delay
			DC.W runstatout			; 16 - enable/disable running status out
			DC.W ignsysexcl			; 17 - ignore/buffer system excl. packets
			
			eject

;
;  install the address of a routine to be called with
;  MIDI real-time commands.  If the argument is zero,
;  the real-time call will be disabled.
;
initrealtime
			lda arg					; install real-time vector
			sta RealTimeVec
			lda arg+1
			sta RealTimeVec+1
			ora RealTimeVec
			beq @1
			dec RealTimeVec			; prepare for RTL call
@1			lda #0					; no errors
			rts

;
;  install the address of a routine to be called when
;  real-time errors are detected.  If the argument is
;  zero, the real-time call will be disabled.
;
initerrvec	lda arg					; install real-time vector
			sta ErrorVec
			lda arg+1
			sta ErrorVec+1
			ora ErrorVec
			beq @1
			dec ErrorVec 			; prepare for RTL call
@1			lda #0					; no errors
			rts

;
;  allocate and initialize the input buffer
;
initinbuffer
			lda InBufHandle+2		; did we already allocate a buffer?
			ora InBufHandle
			beq noinbuf
			pei InBufHandle+2		; dispose old input buffer
			pei InBufHandle
			_DisposeHandle
			stz InBufHandle+2		; clear handle (no buffer allocated by
			stz InBufHandle			;	MIDI Tool Set yet)

noinbuf 	ldy #2					; is address of buffer zero?
			lda [arg],y
			ldy #4
			ora [arg],y
			beq allocinbuf			; allocate buffer dynamically
			lda [arg]				; buffer size must be < 32768
			bmi badinsize
			cmp #32					; buffer size must be >= 32
			bcc badinsize
			sta InBufSize			; save information
			ldy #2
			lda [arg],y
			sta InBufAddr
			ldy #4
			lda [arg],y
			sta InBufAddr+2
			bra gotinbuf

allocinbuf	lda [arg]				; get size of input buffer
			bmi done1				; don't allocate a new buffer
			bne gotinsize
			lda #InBufSizeDflt		; allocate default buffer size

gotinsize	cmp #32					; verify buffer minimum size
			bcs inbufok
badinsize   lda #miArrayErr			; buffer is illegal size
badinmem    stz InBufSize			; no input buffer
			rts

inbufok 	sta InBufSize
			pea 0					; reserve space for handle
			pea 0
			pea 0					; size of buffer
			pha
			pea BufferUserId		; user id
			pea attrNoPurge+attrNoCross+attrFixed  ; memory attributes
			pea 0					; no special address
			pea 0
			_NewHandle
			plx						; dereference the handle
			stx InBufHandle
			plx
			stx InBufHandle+2
			bcs badinmem
			lda [InBufHandle]
			sta InBufAddr
			ldy #2
			lda [InBufHandle],y
			sta InBufAddr+2

gotinbuf	jsr EmptyInBuf			; initialize buffer to empty
			sec
			lda InBufSize			; determine index so we can store a
			sbc #AveDataSize 		;	packet near end without wrapping
			sta InBufEnd
			stz InputEnabled 		; disable input initially

done1		lda #0					; no errors
			rts


;
;  allocate and initialize the output buffer
;
initoutbuffer
			lda OutBufHandle+2		; did we already allocate a buffer?
			ora OutBufHandle
			beq nooutbuf
			pei OutBufHandle+2		; dispose old output buffer
			pei OutBufHandle
			_DisposeHandle
			stz OutBufHandle+2		; clear handle (no buffer allocated by
			stz OutBufHandle 		;	MIDI Tool Set yet)

nooutbuf	ldy #2					; is address of buffer zero?
			lda [arg],y
			ldy #4
			ora [arg],y
			beq allocoutbuf			; allocate buffer dynamically
			lda [arg]				; buffer size must be < 32768
			bmi badoutsize
			cmp #32					; buffer size must be >= 32
			bcc badoutsize
			sta OutBufSize			; save information
			ldy #2
			lda [arg],y
			sta OutBufAddr
			ldy #4
			lda [arg],y
			sta OutBufAddr+2
			bra gotoutbuf

allocoutbuf	lda [arg]				; get size of output buffer
			bmi done2				; don't allocate a new buffer
			bne gotoutsize
			lda #OutBufSizeDflt		; allocate default buffer size

gotoutsize	cmp #32					; verify buffer minimum size
			bcs outbufok
badoutsize  lda #miArrayErr			; buffer is illegal size
badoutmem   stz OutBufSize			; no output buffer
			rts

outbufok	sta OutBufSize
			pea 0					; reserve space for handle
			pea 0
			pea 0					; size of buffer
			pha
			pea BufferUserId		; user id
			pea attrNoPurge+attrNoCross+attrFixed  ; memory attributes
			pea 0					; no special address
			pea 0
			_NewHandle
			plx						; dereference the handle
			stx OutBufHandle
			plx
			stx OutBufHandle+2
			bcs badoutmem
			lda [OutBufHandle]
			sta OutBufAddr
			ldy #2
			lda [OutBufHandle],y
			sta OutBufAddr+2

gotoutbuf	jsr EmptyOutBuf			; initialize buffer to empty
			sec
			lda OutBufSize			; determine index so we can store a
			sbc #AveDataSize 		;	packet near end without wrapping
			sta OutBufEnd
			stz OutputEnabled		; disable output initially

done2		lda #0					; no errors
			rts


;
;  start interrupts that accomplish MIDI input
;
begininput	lda InBufSize			; is there an input buffer?
			bne @1
			lda #miNoBufErr			; no input buffer
			rts

@1			lda DriverID			; is there a device driver?
			bne @2
			lda #miNoDevErr			; no device driver
			rts

@2			lda arg					; set address of routine to call when
			sta InputVec 			;	first packet is available
			lda arg+1				;	(0 disables call)
			sta InputVec+1
			ora InputVec
			beq @3
			dec InputVec 			; adjust for RTL use

@3			lda #$FFFF				; enable input
			sta InputEnabled
			stz PacketStatus 		; discard partial packet
			stz PacketRemain 		; no data in partial packet
			stz InBufError			; no errors
			
;
;  set up MIDI input polling vector
;
			sep #$20
			longa off
			lda #$A9				; LDA (with device driver direct page)
			sta MidiInputPoll		; set up MIDI input polling vector
			rep #$20
			longa on

;  Swap in our MIDI polled EVENT MANAGER

			pha
			pha
			PushWord #$0D			;mouse
			_GetVector
			pla
			sta >MouseAdrs
			pla
			sta >MouseAdrs+2

			PushWord #$0D
			PushPtr Mouse			;MIDI polled mouse
			_SetVector

			PushLong #00			; room for EM FTP
			PushWord #00			; System tool set
			PushWord #6				; EVENT MGR
			_GetTSPtr
			
			pla
			sta >Real_EM_FTP
			pla
			sta >Real_EM_FTP+2		; save EM FTP for miStopInput
			
			PushWord #00			; System tool set
			PushWord #6				;EVENT MGR
			PushLong #EMCallTable
			_SetTSPtr

; Swap in our "DrawCursor" and "UndrawCursor" into QuickDraw jump vectors

			lda >$E01FCC
			sta >D_Cursor_Save
			lda >$E01FCE
			sta >D_Cursor_Save+2
			
			lda >JDC
			sta >$E01FCC
			lda >JDC+2
			sta >$E01FCE

			lda >$E01FD0
			sta >UD_Cursor_Save
			lda >$E01FD2
			sta >UD_Cursor_Save+2
			
			lda >JUDC
			sta >$E01FD0
			lda >JUDC+2
			sta >$E01FD2
	
;  Swap in our QD FTP table

			PushLong #00			; room for QD FTP
			PushWord #00			; System tool set
			PushWord #4				; QuickDraw
			_GetTSPtr
			
			pla
			sta >Real_QD_FTP
			pla
			sta >Real_QD_FTP+2		; save QD FTP for miStopInput
			
			PushWord #00			; System tool set
			PushWord #4				; QuickDraw
			PushLong #QDCallTable
			_SetTSPtr


			ldy InBufHead			; is there something in the buffer?
			iny
			cpy InBufEnd
			bcc @4
			ldy #0
@4		 	cpy InBufTail
			beq @5
			lda InputVec 			; something in input buffer, call vec
			ora InputVec+1
			beq @5
			phb
			jsl InputVecGlue
			plb

@5			jsl DevRcvOnGlue 		; enable receiver interrupts
			tax						; was there an error?
			bne @6					; yes
			
			lda DirPage1 			; set to direct page 1
			tcd
			lda PollBranch			; modify timer interrupt routine to
			sta TimerIntGlue 		;	poll MIDI input to avoid lossage
			lda #0					; no errors
			rts

@6			stz InputEnabled 		; input not enabled
			sep #$20
			longa off
			lda #$6B				; RTL
			sta MidiInputPoll		; disable MIDI input polling vector
			rep #$20
			longa on
			txa						; restore error code
			rts

JDC			jml >iDrawCursor
JUDC		jml >iUndrawCursor

Real_EM_FTP		DS.B 4
Real_QD_FTP		DS.B 4
MouseAdrs		DS.B 4
D_Cursor_Save	DS.B 4
UD_Cursor_Save	DS.B 4



EMCallTable	

	DC.L (theEnd-EMCallTable)/4 ;num calls + 1
	
	DC.L 0
	DC.L 0
	DC.L 0
	DC.L 0
	DC.L 0
	DC.L 0
	DC.L 0
	DC.L 0
	DC.L 0
	DC.L GetNextEvent-1
	DC.L EventAvail-1
	DC.L GetMouse-1
	DC.L Button-1
	DC.L StillDown-1
	DC.L WaitMouseUp-1
	DC.L 0
	DC.L 0
	DC.L 0
	DC.L 0
	DC.L PostEvent-1
	DC.L FlushEvents-1
	DC.L GetOSEvent-1
	DC.L OSEventAvail-1
	DC.L 0
	DC.L 0
	DC.L 0
	DC.L 0
	DC.L 0
	
	DC.L 0			; Not used
	DC.L 0			; Not used
	DC.L 0			; Not used
	DC.L 0			; Not used
	
theEnd

QDCallTable	
			DC.L  (TheEndQ-QDCallTable)/4	;num calls + 1
			
			DCB.L $8D,00
			DC.L  SetCursor-1
			DCB.L $3B,0
			DC.L  UserInitCursor-1
			DCB.L 24,0
			
TheEndQ


;
;  start interrupts that accomplish MIDI output
;
beginoutput	lda OutBufSize			; is there an output buffer?
			bne @1
			lda #miNoBufErr			; no output buffer
			rts

@1			lda DriverID			; is there a device driver?
			bne @2
			lda #miNoDevErr			; no device driver
			rts

@2			lda arg					; install address of routine to be
			sta OutputVec			;	called when output buffer is empty
			lda arg+1				;	(0 disables the call)
			sta OutputVec+1
			ora OutputVec
			beq @3
			dec OutputVec			; adjust for RTL use

@3			lda #$FFFF				; enable output
			sta OutputEnabled
			stz LastStatus			; no current running status
			lda OutBufEmpty			; any chars ready to go out?
			beq calldriver
			lda OutputVec			; output buffer is empty, call OutputVec
			ora OutputVec+1
			beq ret
			phb
			jsl OutputVecGlue
			plb
			lda #0					; no errors
ret	 		rts

calldriver	jsl DevPollXmtGlue		; start output interrupts
			tax						; any errors?
			bne @6
			rts
@6			stz OutputEnabled		; output not started
			rts

;
;  stop interrupts that accomplish MIDI input
;
endinput	lda InputEnabled 		; is input enabled?
			beq ret					; no
			stz InputEnabled 		; disable input
			lda PacketIndex			; discard partial packet
			sta InBufTail

			sep #$20
			longa off
			lda #$6B				; RTL
			sta MidiInputPoll		; disable MIDI input polling vector
			rep #$20
			longa on
			
			jsl DevRcvOffGlue		; disable receiver interrupts
			tax
			lda DirPage1 			; modify timer interrupt routine so
			tcd						;	MIDI input is not polled
			lda NoPollBranch
			sta TimerIntGlue
			txa						; restore error code
			pha


;  Restore system Event Mgr and QuickDraw

			PushWord #00			; System tool set
			PushWord #6				; EVENT MGR
			PushLong >Real_EM_FTP	; Restore EM PTR
			_SetTSPtr
			
			PushWord #$0D
			PushLong >MouseAdrs	;mouse
			_SetVector

			PushWord #00			; System tool set
			PushWord #4				; QuickDraw
			PushLong >Real_QD_FTP	; Restore QD PTR
			_SetTSPtr

			lda >D_Cursor_Save
			sta >$E01FCC
			lda >D_Cursor_Save+2
			sta >$E01FCE
			
			lda >UD_Cursor_Save
			sta >$E01FD0
			lda >UD_Cursor_Save+2
			sta >$E01FD2

			pla			
@1			rts

;
;  stop interrupts that accomplish MIDI output
;
endoutput	lda OutputEnabled		; is output enabled?
			beq @1					; no (***  was "ret" MC)
			stz OutputEnabled		; disable output
			jsl DevXmtOffGlue		; disable transmitter interrupts
@1			rts

;
;  discard contents of input buffer
;
discardinbuf
			lda InBufSize			; is there an input buffer?
			bne @1
			lda #miNoBufErr			; no input buffer
			rts
@1			jsr EmptyInBuf
			lda #0					; no errors
			rts

;
;  discard contents of output buffer.
;
;  Wait for an incomplete packet to finish
;  transmission, then flush the remainder
;  of the buffer, generate note off commands
;  for notes that are on, and wait for these
;  packets to clear from the output buffer.
;
discardoutbuf
			lda OutBufSize			; is there an output buffer?
			bne @1
			lda #miNoBufErr			; no output buffer
			rts
@1			lda arg+2				; is high word positive?
			bpl @2					; yes, turn notes off
			jsr EmptyOutBuf			; empty without regard to partial
									;   packets or notes off
			lda #0000
			rts						; Bug fix 5/25/89 mc
			
			
@2			lda OutputEnabled		; is output enabled?
			bne @3		 			; yes
			lda #miOutOffErr 		; output must be enabled
			rts
@3			lda OutBufHead			; retract tail so that only the current
			sec						;	packet will go out
			adc RealTimeChars
			adc PacketChars
			cmp OutBufEnd
			bcc @4
			lda #0
@4			sta OutBufTail
			stz OutBufEmpty			; assume there is data left in buffer
			lda OutBufHead			; now find out
			inc a
			cmp OutBufEnd
			bcc @5
			lda #0
@5			cmp OutBufTail
			bne @6		 			; yes, there is data left in buffer
			dec OutBufEmpty			; output buffer is empty
@6			cli						; allow output to continue
			lda arg					; which channel
			ldx arg+2				; is high word zero?
			bne panicoff 			; send all possible notes off
			jsr TurnOffNotes 		; send notes off that we know are on
			stz OutBufMaxChars		; clear maximum output chars
			jmp WaitOutput			; wait for packets to clear output buf

panicoff	jsr PanicNotesOff		; send all possible notes off
			stz OutBufMaxChars		; clear maximum output chars
			jmp WaitOutput			; wait for packets to clear output buf

;
;  discard next packet in input buffer
;
discardpacket
			lda InBufSize			; is there an input buffer?
			bne @1
			lda #miNoBufErr			; no input buffer
			rts
@1			ldy InBufHead			; any packet available?
			iny
			cpy InBufEnd
			bcc @2
			ldy #0
@2		 	cpy PacketIndex
			beq @5					; no packet
			lda [InBufAddr],y		; get packet length
			bpl @3
			and #$7FFF				; clear error flag
			inc a					; add error code byte to length
@3			sty InBufHead			; update head pointer by size of packet
			sec
			adc InBufHead
			cmp InBufSize			; did it wrap (sys excl. packet)?
			bcc @4
			sbc InBufSize
@4			sta InBufHead

@5			lda #0					; no errors
			rts


;
;  set input mode
;
setinmode	lda arg
			sta InputMode
			jsr EmptyInBuf			; discard input buffer, because we can't
									;   deal with multiple formats in buffer
			lda #0					; no errors
			rts

;
;  set output mode
;
setoutmode	stz LastStatus			; send out next status byte
			lda arg
			sta OutputMode
			cmp #miRawMode			; if we're switching to raw mode,
			bne @1					;   we have to clear the note pad,
			jsr ClearNotes			;   because we will stop tracking notes
									;   in mid-buffer at an undefined time
@1			lda #0					; no errors
			rts

;
;  mark notes off in one or all channels
;
marknotesoff
			lda arg+2				; get high word of argument
			bne markalloff			; arg > 16, so clear all channels
			lda arg					; get low word of argument
			cmp #16
			bcs markalloff
			jsr ClearNotesChannel	; mark notes off in one channel
			lda #0					; no errors
			rts
markalloff	jsr ClearNotes			; mark notes off in all channels
			lda #0					; no errors
			rts


;
;  set delay between output packets in units
;  of one-quarter of a MIDI character time
;
setoutdelay	lda arg
			sta OutputDelay
			lda #0					; no errors
			rts

;
;  enable/disable running status output
;
runstatout	stz LastStatus			; send next status byte no matter what
			lda arg
			beq @1					; disable running status
			lda #$FFFF				; enable running status
@1			sta OutputStat
			lda #0					; no errors
			rts

;
;  ignore/buffer system exclusive packets on input
;
ignsysexcl	lda arg					; do we ignore or buffer?
			bne @1					; ignore
			dec a					; buffer
			bra @2
@1			lda #StartSysExcl		; ignore
@2			sta IgnoreSysEx
			lda #0					; no errors
			rts
			
			ENDP
			EJECT

;-------------------------------------------------------
;
;  WaitOutput
;
;  Wait for MIDI output buffer to be cleared.
;
;-------------------------------------------------------

WaitOutput	PROC EXPORT

			lda OutBufSize			; is there an output buffer?
			bne @2
			lda #miNoBufErr			; no output buffer
			rts

@1			cli						; enable interrupts to clear output buf

@2			lda OutBufEmpty			; is it empty yet?
			beq @1					; no
			lda #0					; no errors
			rts

			ENDP

			END
			
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Midi/MidiTools/midi.convert.aii b/IIGS.601.SRC/GSToolbox/Midi/MidiTools/midi.convert.aii
new file mode 100644
index 0000000..0b62469
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Midi/MidiTools/midi.convert.aii
@@ -0,0 +1 @@
+;-------------------------------------------------------
;
;  midi.convert.aii
;
;  This module contains routines which allow conversions
;  between Standard MIDI Files and another format.
;
;  Copyright 1987, Apple Computer Inc.
;  Author: Don Marsh (x6739, AppleLink: MARSH1)
;
;  Modification History
;
;  23 Nov 87   DM	?
;
;-------------------------------------------------------

			INCLUDE 'all.macros'
			INCLUDE 'midi.macros'
			INCLUDE 'midi.equ.aii'

;-------------------------------------------------------
;
;  MidiConvert -- call number 19
;
;-------------------------------------------------------

MidiConvert	PROC EXPORT

			brk						; more to come...

			ENDP

			END
			
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Midi/MidiTools/midi.device.aii b/IIGS.601.SRC/GSToolbox/Midi/MidiTools/midi.device.aii
new file mode 100644
index 0000000..9a85fa1
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Midi/MidiTools/midi.device.aii
@@ -0,0 +1 @@
+;-------------------------------------------------------
;
;  midi.device.aii
;
;  This module contains routines which select and load
;  a MIDI device driver.
;
;  Copyright 1987, Apple Computer Inc.
;  Author: Don Marsh (x6739, AppleLink: MARSH1)
;
;  Modification History
;
;  19 Nov 87   DM	New today
;  28 Jul 88   DM	Fixed bug in installdriver which referred
;					to a bogus location on the stack while
;					checking slot assignments.
;
* Bug fix: 5/25/89 Mark Cecys
* DP trashed if dirver not found while loading.
* loaderr1jmp to loaderror2 since direct page already at DP1
;-------------------------------------------------------

			INCLUDE 'all.macros'
			INCLUDE 'midi.macros'
			INCLUDE 'midi.equ.aii'

;-------------------------------------------------------
;
;  MidiDevice -- call number 10
;
;  Select and load a MIDI device driver.
;
;  The routine is passed two arguments: a word
;  indicating the control function to perform, and
;  a long word pointing to a device driver record.
;
;  Control function numbers are as follows:
;
;		 0 - Display a device driver selection dialog.
;		 1 - Load the device driver indicated by the
;			 device driver record.
;		 2 - Shutdown and unload the current device
;			 driver.
;
;  The device driver record contains the following
;  information:
;
;		 offset
;		  0-1		  slot number
;		  2-3		  external(=1)/internal(=0)
;		   4		  length of pathname string
;		  5-68		  pathname string
;
;  Inputs:
;		 function number (word)
;		 pointer to device driver record (long)
;
;  Outputs:
;		 none
;
;  Registers:
;		 not preserved


;
;-------------------------------------------------------

MidiDevice	PROC EXPORT

			import ShutDriver
			IMPORT DevInitGlue		; midi.glue.aii
			IMPORT ProdosGlue
			
;
;  stack offsets
;
tempsize	equ $20					; size of temporary space on stack

			DefineStack
s_temp		block tempsize			; temporary space on stack
s_dirpage   word 					; old direct page
s_rtl1		block 3					; first rtl address
s_rtl2		block 3					; second rtl address

s_argstart	DSectSize				; start of arguments
s_driverrec	long 					; pointer to device driver record
s_funcnum	word 					; function number
s_argend	DSectSize				; end of arguments

s_argsize	equ s_argend-s_argstart


;
;  initialize direct page register
;
			phd						; save old direct page
			tcd						; get our direct page
			beq starterr			; MIDI Tool Set not started
			tsc						; reserve temporary space on the stack
			sec
			sbc #tempsize
			tcs

;
;  call the appropriate function
;
			lda s_funcnum,s			; get the function number
			asl a					; form index to jump table
			tax
			php						; disable interrupts
			sei
			jsr (functable,x)
			plp

;
;  return (with error if A is non-zero)
;
			tax						; save error code
			tsc
			clc
			adc #tempsize			; discard temporary space on stack
			tcs
returnerr	pld						; restore old direct page
			PopArgs s_argsize		; move RTL addresses
			txa						; restore error code
			cmp #1					; set carry for error
			rtl

starterr	ldx #miStartUpErr		; MIDI Tool Set not started
			bra returnerr

;
;  function jump table
;
functable	DC.W choosedriver		; 0 - choose a device driver
			DC.W installdriver		; 1 - load a device driver
			DC.W ShutDriver			; 2 - shutdown the device driver

			eject

;
;  Display device driver selection dialog
;
choosedriver
			brk						; more to come...

			eject

;
;  Load a device driver
;
installdriver
			jsr ShutDriver			; shutdown and unload previous driver

;
;  check existence, file type, and aux type of the given file
;
			lda DirPage1 			; get direct page 1
			tcd
			lda s_driverrec+3,s		; calculate address of pathname
			clc
			adc #4
			sta s_temp+3,s
			lda s_driverrec+2+3,s
			adc #0
			sta s_temp+2+3,s
			tsc						; calculate address of parameter block
			clc
			adc #s_temp+3
			sta prodosparmaddr		; store it after prodos call
			stz prodosparmaddr+2
			lda #6					; store GET_FILE_INFO function number
			sta prodosfuncnum
			jsl ProdosGlue			; get information about this file
			tax						; save possible error code
			bcs loaderr1jmp
			ldx #miDriverErr 		; check file type
			lda s_temp+6+3,s
			cmp #miDrvrFileType
			bne loaderr1jmp
			lda s_temp+8+3,s 		; check aux type
			cmp #miDrvrAuxType
			beq loadfile
loaderr1jmp	jmp loaderror2			; Bug fix 5/25/89 mc
loaderrjmp	jmp loaderror

;
;  load the file
;
loadfile	lda MidiZP2				; restore direct page for variables
			tcd
			tsc						; reserve space for results
			sec
			sbc #10
			tcs
			pea DriverUserId		; user ID for MIDI device drivers
			lda s_temp+10+2+2+3,s
			pha
			lda s_temp+10+2+2+3,s
			pha
			pea 0
			_InitialLoad
			bcs loaderrjmp
			pla
			sta DriverID			; new device driver ID
			pla
			sta DriverAddr			; where it got loaded
			pla
			sta DriverAddr+2
			pla
			pla

;
;  copy driver table onto direct page
;
			ldy #dt_size-2
dtloop		lda [DriverAddr],y		; copy one word per loop
			tyx
			sta dt_start,x
			dey
			dey
			bpl dtloop

;
;  check current internal/external slot settings, and set
;  up for the MIDI device
;
;  11 Aug 88 Don M 
;  removed +2 from dpage reference below
;
			tsc						; make stack direct page
			phd						; save direct page
			tcd
			ldy #2
			lda [s_driverrec+3],y	; get internal/external setting
			tay
			lsr a					; carry set if external
			lda [s_driverrec+3]		; get slot number
			tax
			pld						; get direct page 2
			phb						; set data bank to current bank
			phk
			plb
			sep #$20
			longa off
			lda SltROMSel			; examine current slot settings
			and slotmasks,x
			rep #$20
			longa on
			bcs slotextern			; slot must be external
			beq slotok				; slot is internal
sloterr		plb
			lda #miDevSlotBusy		; slot is not available
			rts
slotextern	beq sloterr
slotok		plb						; restore data bank


;
;  call the driver initialization code
;
			pha						; reserve space for old interrupt vector
			pha
			pea 0					; new interrupt vector
			tdc
			clc
			adc #MidiIntGlue-$100
			pha
			phx						; pass slot number
			phy						; pass internal/external setting
			pea DriverUserId		; pass our user ID
			jsl DevInitGlue			; initialize device driver
			tax
			lda DirPage1 			; save old interrupt vector
			tcd
			pla
			sta OldIntVector
			pla
			sep #$20
			longa off
			sta OldIntVector+2
			rep #$20
			longa on
			bcs loaderror2

 
;
;  copy driver table onto direct page
;
			lda MidiZP2
			tcd
			ldy #dt_size-2
dtloop2		lda [DriverAddr],y		; copy one word per loop
			tyx
			sta dt_start,x
			dey
			dey
			bpl dtloop2

;
;  patch the driver interrupt handler in glue code
;
			pei dt_pollrecv+1		; remember address of routine to
			pei dt_pollrecv			;	poll MIDI input
			ldx dt_inthandler		; adjust to true address
			inx
			ldy dt_inthandler+1
			lda DirPage1
			tcd
			sty DriverHandler+1		; order of storage makes a difference!
			stx DriverHandler
			plx						; restore MIDI input polling address
			ply
			sty DevPollAddr+1
			inx						; adjust to true address
			stx DevPollAddr
			lda MidiZP2
			tcd

;
;  set up MIDI input polling vector
;
			lda dt_pollrecv
			inc a
			sta MidiInputPoll+4
			lda dt_pollrecv+2
			sta MidiInputPoll+6

			lda #0					; no errors
			rts

;
;  some sort of error occurred.
;
loaderror	tax						; save error code
			pla						; discard InitialLoad info
			pla
			pla
			pla
			pla
loaderror1	lda DirPage1
			tcd
loaderror2	lda #driverdeath 		; brk if we get a driver interrupt
			sta DriverHandler
			lda #>driverdeath
			sta DriverHandler+1
			lda MidiZP2
			tcd
			stz DriverID	 		; no driver loaded
			txa						; put error code in accumulator
			rts

driverdeath	brk						; here on driver interrupt if error
									;   during driver loading

;
;  mask internal/external slot settings
;
slotmasks
			DC.B %00000000			; can't set bit 0
			DC.B %00000010
			DC.B %00000100
			DC.B %00000000			; can't set bit 3
			DC.B %00010000
			DC.B %00100000
			DC.B %01000000
			DC.B %10000000

			ENDP
			EJECT

;-------------------------------------------------------
;
;  ShutDriver
;
;  This routine shuts down and unloads a device driver
;  if one is present.
;
;  Returns carry set, error code in accumulator if
;  there are problems.
;
;-------------------------------------------------------

ShutDriver	PROC EXPORT

			import UnloadDriver
			IMPORT DevShutGlue		; midi.glue.aii
			
			clc
			lda DriverID	 		; is there a device driver?
			beq done 				; no

;
;  shutdown and unload old device driver
;
			lda DirPage1 			; get direct page 1
			tcd
			lda OldIntVector+2		; push old interrupt vector
			and #$00FF
			pha
			pei OldIntVector
			lda MidiZP2				; restore direct page 2
			tcd
			jsl DevShutGlue			; shutdown the device driver
			bcs done

			jsr UnloadDriver 		; unload the driver from memory

done		rts

			ENDP
			EJECT

;-------------------------------------------------------
;
;  ResetDriver
;
;  This routine resets and unloads a device driver
;  if one is present.
;
;  Returns carry set, error code in accumulator if
;  there are problems.
;
;-------------------------------------------------------

ResetDriver	PROC EXPORT

			import UnloadDriver
			IMPORT DevResetGlue		; midi.glue.aii
			
			clc
			lda DriverID	 		; is there a device driver?
			beq done 				; no

;
;  reset and unload old device driver
;
			lda DirPage1 			; get direct page 1
			tcd
			lda OldIntVector+2		; push old interrupt vector
			and #$00FF
			pha
			pei OldIntVector
			lda MidiZP2				; restore direct page 2
			tcd
			jsl DevResetGlue 		; shutdown the device driver
			bcs done

			jsr UnloadDriver 		; unload the driver from memory

done		rts

			ENDP
			EJECT

;-------------------------------------------------------
;
;  UnloadDriver
;
;  Unload a device driver (which must be present) from
;  memory.
;
;-------------------------------------------------------

UnloadDriver PROC EXPORT

			php						; interrupts better be disabled
			sei

			pea 0					; make space for extra info
			pei DriverID			; device driver memory ID
			pea $8000				; purge for quick reload
			_UserShutdown
			pla						; discard extra info

			stz DriverID	 		; mark no driver loaded
			stz InputEnabled
			stz OutputEnabled
			sep #$20
			longa off
			lda #$6B				; RTL
			sta MidiInputPoll		; deactivate MIDI input polling vector
			rep #$20
			longa on

			phd						; save direct page
			lda DirPage1 			; modify timer interrupt routine so
			tcd						;	that it won't poll MIDI input
			lda NoPollBranch
			sta TimerIntGlue
			pld						; restore direct page

			longa off
			sep #$20
			plp
			longa on

			lda #0
			clc
			rts

			ENDP

			END
			
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Midi/MidiTools/midi.equ.aii b/IIGS.601.SRC/GSToolbox/Midi/MidiTools/midi.equ.aii
new file mode 100644
index 0000000..7fb440c
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Midi/MidiTools/midi.equ.aii
@@ -0,0 +1 @@
+			PRINT NOGEN,NOHDR,NOSTAT,NOMDIR
			PRINT PUSH
			PRINT OFF
			PAGESIZE 71
;-------------------------------------------------------
;
;  midi.equ.aii
;
;  Global equates and direct-page assignments used
;  by the MIDI Tool Set and device drivers.
;
;  Copyright 1987-89, Apple Computer Inc.
;  Author: Don Marsh (x6739, AppleLink: MARSH1)
;
;  Modification History
;
;  27 Aug 87   DM	New today
;  20 Nov 87   DM	Split into three direct pages
;  27 Oct 88   MD	Added TicksPerSec
;
;-------------------------------------------------------

			INCLUDE 'e16.midi'		; include public definitions

;
;  Global constants
;

MidiVerNum		equ $0103			; 5/31/89 take prototype bit out for System Disk 5.0
MidiMode		equ 4				; mode for reserving DOC generator
DriverUserId	equ $4100+miToolNum	; user ID for loading MIDI device drivers
BufferUserId	equ $4200+miToolNum	; user ID for allocating input/output buffers


; **** MAXIMUM BUFFER SIZE IS 32767.  This is hard-coded.
InBufSizeDflt	equ 8192 			; default input buffer size
OutBufSizeDflt	equ 8192 			; default output buffer size

AveDataSize		equ 10				; length of average MIDI record in
									;   a buffer (3 bytes MIDI packet +
									;	2 bytes length info + 4 bytes
									;	time stamp + 1 byte error code)


;
;  Tool set definitions
;
SoundToolNum	equ 8				; Sound Tool set number

;
;  MIDI definitions
;
StartSysExcl	equ $F0				; start of system exclusive data
EndSysExcl		equ $F7				; end of system exclusive data

;
;  Hardware/firmware definitions
;
SGctrl			equ $E1C03C			; sound glu stat reg
SGdata			equ $E1C03D			; sound glu data reg
SGadrl			equ $E1C03E			; sound glu address-low reg
IRQ_Volume		equ $E100CA			; to save the DOC volume
SltROMSel		equ $E1C02D			; slot ROM select
CYAREG			equ $E1C036			; for switching processor to 1Mhz speed
DefClkFreq		equ 13160			; clock freq. (1 tick / 76 microseconds)

;
;  PRODOS definitions
;
Prodos			equ $E100A8			; PRODOS entry vector

				eject

;-------------------------------------------------------
;
;  Direct Page assignments
;
;  The MIDI Tool Set uses three direct pages.  The
;  first direct page contains small code routines and
;  device driver variables.  The second direct page
;  contains all variables used by the MIDI Tool Set.
;  The third direct page is used to track note on
;  commands so that notes can be turned off efficiently.
;
;-------------------------------------------------------


;-------------------------------------------------------
;
;  Direct page 1
;
;  The first half of this direct page contains self-
;  modified code fragments used by the MIDI Tool Set
;  and interrupt handlers.
;
;  The second half of this direct page is reserved for
;  use by device drivers.
;
;-------------------------------------------------------

				DSect 1			  ; start global data section

; **** IMPORTANT NOTE:	Yes, we are beginning our direct
; ****	  page definition at offset one instead of zero.
; ****	  "MidiBufJml" must be defined at offset one in
; ****	  order to work correctly.	Do not do anything
; ****	  to disturb this fragile arrangement!

MidiBufJml		block 4	  ; jml BufDispatcher


;
;  Midi interrupt glue
;
;  This small routine is called on a MIDI interrupt.
;  It is located on zero page because it is modified
;  by the MIDI Tool Set.  It could be done without
;  modified code, but it would be slower.
;
MidiIntGlue		block 2	  ; rep #$30	; long accumulator and index registers
				block 1	  ; lda 		; get direct page 1
MidiZP1 		block 2	  ; 	#XXXX
				block 1	  ; jsl
DriverHandler	block 3	  ; 	XXXXXX	; call driver interrupt handler
				block 2	  ; sep #$30	; short accumulator and index registers
				block 2	  ; bcs oldvec	; driver didn't service the interrupt
				block 1	  ; rtl
				block 1	  ;oldvec jml	; call old interrupt service routine
OldIntVector	block 3	  ; 	XXXXXX


;
;  This routine is called during service of a DOC
;  interrupt.  It first calls the device driver to
;  poll MIDI input to avoid data lossage, then it
;  checks to see if it is our oscillator that
;  needs service.  If not, it passes the interrupt
;  on to other routines.
;
TimerIntGlue	block 2	  ; bra XX (NoPoll)  ; modified if MIDI input enabled
				block 1	  ; phk 		; push address of polling routine to
				block 1	  ; pea 		;	be called again before execution
PollInputAddr	block 2	  ; 	XXXX	;	returns to the Sound Tools
				block 1	  ; pha 		; save oscillator mode
				block 1	  ; jsl 		; call routine to poll MIDI input
PollInputAddr2	block 3	  ; 	XXXXXX
				block 1	  ; pla 		; restore which oscillator mode
				block 2	  ;NoPoll cmp #MidiMode ; is oscillator our mode?
				block 2	  ; beq IncTimer; yes, increment time stamp clock
				block 1	  ; jml			; call routine to handle other osc.
OtherOscVec		block 3	  ; 	XXXXXX
				block 2	  ;IncTimer rep #$30 ; long accumulator and registers
				block 1	  ; lda 		; get direct page 2
MidiZP2 		block 2	  ; 	#XXXX
				block 4	  ; jml ClockHandler

;
;  poll MIDI input
;
PollInput		block 2	  ; rep #$30	; long accumulator and registers
				block 1	  ; lda 		; get direct page 1
MidiZP1b		block 2	  ; 	#XXXX
				block 1	  ; jsl 		; call routine to poll MIDI input
DevPollAddr		block 3	  ; 	XXXXXX
				block 2	  ; sep #$30	; short accumulator and registers
				block 1	  ; rtl

;
;  This routine implements a MVP instruction in
;  which the source and destination banks can be
;  modified.
;
MVPinst 		block 1	  ; mvp
MVPdestbank		block 1	  ; 	XX,
MVPsourcebank	block 1	  ; 	XX
				block 1	  ; plb 		; restore data bank register
				block 1	  ; rtl


;
;  PRODOS call.  This routine allows the MIDI Tool
;  Set to make PRODOS calls that unfortunately require
;  certain parameters to be imbedded in code instead of
;  passed on the stack.
;
ProdosCall		block 4	  ; jsl Prodos	; call PRODOS
prodosfuncnum	block 2					; PRODOS function number
prodosparmaddr	block 4					; PRODOS parameter block address
				block 1	  ; rtl


;
;  These locations contain two different BRA instructions
;  that are patched into the "TimerIntGlue" depending on
;  whether MIDI input must be polled or not.
;
PollBranch		block 2					; BRA instruction for polling
NoPollBranch	block 2					; BRA instruction for no polling


;
;  Make sure that code fragments use less than $80 bytes,
;  because offsets $80-$FF are reserved for driver usage.  If
;  usage exceeds this limit, an assembly error is generated
;  at this time.
;
enddp1			DSectSize				; end of direct page 1 usage

				CheckSize enddp1,$80 	; make sure we are <= $80

				eject

;-------------------------------------------------------
;
;  Direct page 2
;
;  MIDI Tool Set variables
;
;-------------------------------------------------------

				DSect 0

UserId			word 					; our ID for memory manager
DataBank		byte 					; application's data bank register
DirPage1		word 					; address of direct page 1
DirPage3		word 					; address of direct page 3

;
;  input buffer
;
InBufHandle		long 					; handle to input buffer
InBufAddr		long 					; address of input buffer
InBufSize		word 					; size of input buffer
InBufHead		word 					; index to head of queue
InBufTail		word 					; index to tail of queue
InBufEnd		word 					; index at which to wrap to start
InBufError		word 					; input error code
InBufMaxChars	word 					; maximum chars in input buffer
InBufFull		word					; $FFFF = in buf overflow in raw mode

InputEnabled	word 					; 0 = input disabled, $FFFF = enabled
InputMode		word 					; raw, packet, or standard input format
LastInTime		long					; time when last character received
PacketStatus	word 					; MIDI status byte of current packet
PacketIndex		word 					; location of start of packet in InBuf
PacketLength	word 					; length of current packet
PacketRemain	word 					; remaining length of current packet
IgnoreSysEx		word					; ignore sysex packets (=$00F0) or store
										;   them (=$FFFF)

;
;  output buffer
;
OutBufHandle	long 					; handle to output buffer
OutBufAddr		long 					; address of output buffer
OutBufSize		word 					; size of output buffer
OutBufHead		word 					; index to head of queue
OutBufTail		word 					; index to tail of queue
OutBufEnd		word 					; index at which to wrap to start
OutBufMaxChars	word 					; maximum chars in output buffer
OutBufEmpty		word 					; 0 = output buffer contains data

OutputEnabled	word 					; 0 = output disabled, $FFFF = enabled
OutputMode		word					; raw, packet, or standard output format
OutputStat		word					; 0 = no running status, $FFFF = enabled
OutputDelay		word 					; delay between output packets (76 usec)
PacketChars		word 					; # of chars remaining in packet at head
RealTimeChars	word 					; # of real time chars at head of buf
LastStatus		word 					; status byte of last packet sent

;
;  vectors to application code
;
RealTimeVec		block 3					; vector for real-time MIDI data
ErrorVec		block 3					; vector for real-time errors
InputVec		block 3					; input packet interrupt vector
OutputVec		block 3					; output packet interrupt vector

;
;  time stamp clock
;
MidiGenerator	word 					; our DOC generator for timer
MidiOsc 		byte 					; our DOC oscillator for timer
TimerData		byte 					; index to DOC waveform sample register
Timer			long 					; time stamp clock value
TimerEnabled	word 					; 0 = clock stopped, $FFFF = started
TimerValid		word 					; non-zero = timer already incremented
LastOutTime		long 					; timer value when last char output
NextOutTime		long 					; valid timer value for next output char
TimeStamp		long 					; time stamp indicated by output packet
WriteRegAddr	long 					; addr of routine to write DOC registers
TicksPerSec		word					; defined as long, but caon only use word.
										; The frequncey of the clock in TicksPerSec.
										; div by 51.40625 to get value for freq reg.

;
;  a copy of the driver table
;  *** must contain an even number of bytes ***
;
DriverAddr		long 					; address of device driver in memory
DriverID		word					; ID of device driver segment (0 if none)

dt_start		DSectSize				; start of driver table
dt_init 		long 					; addr of initialization routine - 1
dt_shutdown		long 					; addr of shutdown routine - 1
dt_reset		long 					; addr of reset routine - 1
dt_inthandler	long 					; addr of interrupt handler - 1
dt_pollrecv		long 					; addr of routine to poll receiver - 1
dt_recvinton	long 					; addr of proc to enable recv ints - 1
dt_recvintoff	long 					; addr of proc to disable recv ints - 1
dt_pollxmit		long 					; addr of proc to poll transmitter - 1
dt_xmitinton	long 					; addr of proc to enable xmit ints - 1
dt_xmitintoff	long 					; addr of proc to disable xmit ints - 1
dt_reserved1	long 					; reserved
dt_reserved2	long 					; reserved
dt_end			DSectSize				; end of driver table
dt_size 		equ dt_end-dt_start		; size of driver table


;
;  miscellaneous stuff
;
MVPaddr 		block 4					; contains absolute address - 1 of
										;	the MVP instruction in our first
										;	direct page and the current data
										;	bank register


;
;  MidiReadPacket variables
;
MRactive		word					; MidiReadPacket is currently active (for reentrant test)
MRpoll			word					; poll MIDI input at intervals
MRarray			long					; address of array to transfer packet to
MRlength		word					; packet length
MRhead			word					; new input buffer head index
MRerror			word					; error code

;
;  MidiWritePacket variables
;
MWactive		word					; MidiWritePacket is currently active (reentrant test)
MWpoll			word					; poll MIDI input at intervals
MWarray			long					; address of array to get packet from
MWlength		word					; packet length
MWtail			word					; new output buffer tail index
MWsource		word					; index for moving real-time characters
MWdest			word					; index for moving real-time characters

;
;  some temporary variables that routines can use as they please
;
Temp1			long
Temp2			long
Temp3			long
Temp4			long
Temp5			long


;
;  Make sure that MIDI Tool Set variables require less than $100 bytes,
;  because we are limited to one page.	If usage exceeds this limit,
;  an assembly error is generated at this time.
;
enddp2			DSectSize				; end of MIDI Tool direct page 2

				CheckSize enddp2,$100	; make sure we are <= $100

				eject

;-------------------------------------------------------
;
;  Direct page 3
;
;  This page is used as a scratchpad in order to mark
;  notes that have been turned on using MIDI note on
;  commands and have not yet been turned off.  This
;  information is needed to generate note off commands
;  for all notes currently on when the output buffer
;  is flushed.
;
;-------------------------------------------------------

				DSect 0

NotePad 		block 256				; note status array


;
;  Make sure that direct page 3 usage is less than $100 bytes,
;  because we are limited to one page.	If usage exceeds this limit,
;  an assembly error is generated at this time.
;
enddp3			DSectSize				; end of MIDI Tool direct page 3

				CheckSize enddp3,$100	; make sure we are <= $100

				PRINT POP
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Midi/MidiTools/midi.glue.aii b/IIGS.601.SRC/GSToolbox/Midi/MidiTools/midi.glue.aii
new file mode 100644
index 0000000..7eb50ac
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Midi/MidiTools/midi.glue.aii
@@ -0,0 +1 @@
+;-------------------------------------------------------
;
;  midi.glue.aii
;
;  Miscellaneous glue routines needed to execute various
;  routines from the MIDI Tool Set.
;
;  Copyright 1987, Apple Computer Inc.
;  Author: Don Marsh (x6739, AppleLink: MARSH1)
;
;  Modification History
;
;  19 Nov 87   DM	New today
;
;-------------------------------------------------------

			INCLUDE 'all.macros'
			INCLUDE 'midi.macros'
			INCLUDE 'midi.equ.aii'

;
;  call a Prodos function
;
;  NOTE: direct page register must be set to direct
;		 page for code
;
ProdosGlue	PROC EXPORT
			pea 0					; push 0 bank
			phb
			pla
			tdc						; calculate low word of address
			clc
			adc #ProdosCall-1
			pha
			rtl
			ENDP


;
;  write to the DOC registers
;
;  This call must preserve A and X
;
WriteDocGlue PROC EXPORT
			pei WriteRegAddr+1
			sep #$10 				; short Y
			ldy WriteRegAddr
			phy
			rep #$10 				; long Y
			rtl
			ENDP


;
;  call real time vector
;
;  A word on the stack contains the
;  MIDI real-time status byte
;
RealTimeGlue PROC EXPORT
			pei RealTimeVec+1
			pei DataBank 			; set data bank for vector code
			plb
			lda RealTimeVec
			sta 1,s
			rtl
			ENDP


;
;  call error vector
;
;  A word on the stack contains the
;  real-time error code
;
ErrorGlue	PROC EXPORT
			lda ErrorVec+1			; is there an error vector?
			ora ErrorVec
			beq return
			pei ErrorVec+1
			pei DataBank 			; set data bank for vector code
			plb
			lda ErrorVec
			sta 1,s
return		rtl
			ENDP


;
;  call input ready vector
;
InputVecGlue PROC EXPORT
			pei InputVec+1
			pei DataBank 			; set data bank for where we're going
			plb
			lda InputVec
			sta 1,s
			rtl
			ENDP


;
;  call output ready vector
;
OutputVecGlue PROC EXPORT
			pei OutputVec+1
			pei DataBank 			; set data bank for where we're going
			plb
			lda OutputVec
			sta 1,s
			rtl
			ENDP


;
;  call our pre-modified MVP instruction on direct page
;
MVPGlue 	PROC EXPORT
			pei MVPaddr+2			; push address - 1 of mvp instruction
			pei MVPaddr				;	and the current data bank register
			rtl
			ENDP


;
;  call driver initialization routine
;
DevInitGlue	PROC EXPORT
			pei dt_init+1
			phb
			lda dt_init
			sta 1,s
			lda DirPage1 			; point to driver's direct page
			rtl
			ENDP


;
;  call driver shutdown routine
;
DevShutGlue	PROC EXPORT
			pei dt_shutdown+1
			phb
			lda dt_shutdown
			sta 1,s
			lda DirPage1 			; point to driver's direct page
			rtl
			ENDP


;
;  call driver reset routine
;
DevResetGlue PROC EXPORT
			pei dt_reset+1
			phb
			lda dt_reset
			sta 1,s
			lda DirPage1 			; point to driver's direct page
			rtl
			ENDP


;
;  call driver receiver polling routine
;  (NO LONGER NEEDED DUE TO NEW "MIDIINPUTPOLL" VECTOR.)
;DevPollRcvGlue PROC EXPORT
;			pei dt_pollrecv+1
;			phb
;			lda dt_pollrecv
;			sta 1,s
;			lda DirPage1 			; point to driver's direct page
;			rtl
;			ENDP


;
;  call driver receiver interrupt enable
;
DevRcvOnGlue PROC EXPORT
			pei dt_recvinton+1
			phb
			lda dt_recvinton
			sta 1,s
			lda DirPage1 			; point to driver's direct page
			rtl
			ENDP


;
;  call driver receiver interrupt disable
;
DevRcvOffGlue PROC EXPORT
			pei dt_recvintoff+1
			phb
			lda dt_recvintoff
			sta 1,s
			lda DirPage1 			; point to driver's direct page
			rtl
			ENDP


;
;  call driver transmitter polling routine
;
DevPollXmtGlue PROC EXPORT
			pei dt_pollxmit+1
			phb
			lda dt_pollxmit
			sta 1,s
			lda DirPage1 			; point to driver's direct page
			rtl
			ENDP


;
;  call driver transmitter interrupt enable
;
DevXmtOnGlue PROC EXPORT
			pei dt_xmitinton+1
			phb
			lda dt_xmitinton
			sta 1,s
			lda DirPage1 			; point to driver's direct page
			rtl
			ENDP


;
;  call driver transmitter interrupt disable
;
DevXmtOffGlue PROC EXPORT
			pei dt_xmitintoff+1
			phb
			lda dt_xmitintoff
			sta 1,s
			lda DirPage1 			; point to driver's direct page
			rtl
			ENDP

			END
			
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Midi/MidiTools/midi.info.aii b/IIGS.601.SRC/GSToolbox/Midi/MidiTools/midi.info.aii
new file mode 100644
index 0000000..29a5176
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Midi/MidiTools/midi.info.aii
@@ -0,0 +1 @@
+;-------------------------------------------------------
;
;  midi.info.aii
;
;  This module contains routines which return
;  information about the state of the MIDI Tool Set.
;
;  Copyright 1987, Apple Computer Inc.
;  Author: Don Marsh (x6739, AppleLink: MARSH1)
;
;  Modification History
;
;  23 Nov 87   DM	Split out of mts.control.asm.
;					Major reorganization and addition
;					of functions to MidiInfo.
;
;  27 Oct 88   MD	getFreq function now returns TicksPerSec instead
;					of DefClkFreq.
;
;-------------------------------------------------------

			INCLUDE 'all.macros'
			INCLUDE 'midi.macros'
			INCLUDE 'midi.equ.aii'

;-------------------------------------------------------
;
;  MidiInfo -- call number 12
;
;  This routine returns various information about the
;  status of the MIDI Tool Set.  The information is
;  returned in a long on the stack.  A function number
;  is passed to MidiInfo which indicates which
;  information is required.
;
;  Information function numbers are as follows:
;
;		 0 - return number of bytes in next input packet
;		 1 - return the number of characters currently
;			 in the input buffer
;		 2 - return the number of characters currently
;			 in the output buffer
;		 3 - return max number of characters that were
;			 in the input buf since last MidiInfo(3) call,
;			 or last flush of buffer
;		 4 - return max number of characters that were
;			 in the output buf since last MidiInfo(4) call,
;			 or last flush of buffer
;		 5 - return the address currently being written
;			 by MidiRecordFile
;		 6 - return the address currently being read
;			 by MidiPlayFile
;		 7 - return current time stamp clock value
;		 8 - return the number of time stamp clock ticks
;			 per second
;
;  Inputs:
;		 space for result (long)
;		 information function number (word)
;
;  Outputs:
;		 result (long)
;
;  Registers:
;		 not preserved
;
;-------------------------------------------------------

MidiInfo	PROC EXPORT

			IMPORT UpdateTimer		; midi.clock.aii

;
;  stack offsets
;
			DefineStack
s_dirpage   word 					; old direct page
s_rtl1		block 3					; first rtl address
s_rtl2		block 3					; second rtl address

s_argstart	DSectSize				; start of arguments
s_funcnum	word 					; function number
s_argend	DSectSize				; end of arguments
s_argsize	equ s_argend-s_argstart

s_result	long 					; result information


;
;  initialize direct page register
;
			phd						; save old direct page
			tcd						; get our direct page
			beq starterr			; MIDI Tool Set not started
			
;
;  call the appropriate function
;
			lda s_funcnum,s			; get the function number
			asl a					; form index to jump table
			tax
			php						; disable interrupts
			sei
			jsr (functable,x)

;
;  return (low word in A, high word in Y, error code in X)
;
			plp						; restore interrupts
			sta s_result,s
			tya
			sta s_result+2,s
returnerr	pld						; restore old direct page
			PopArgs s_argsize		; move RTL addresses
			txa						; restore error code
			cmp #1					; set carry for error
			rtl

starterr	ldx #miStartUpErr		; MIDI Tool Set not started
			bra returnerr

;
;  function jump table
;
functable	DC.W inpacketlen		; 0 - length of next input packet
			DC.W inbufchars			; 1 - no. of characters in input buf
			DC.W outbufchars		; 2 - no. of characters in output buf
			DC.W maxinchars			; 3 - max # of chars in input buf
			DC.W maxoutchars		; 4 - max # of chars in output buf
			DC.W filerecaddr		; 5 - current MidiRecordFile address
			DC.W fileplayaddr		; 6 - current MidiPlayFile address
			DC.W gettime			; 7 - time stamp clock value
			DC.W getfreq			; 8 - number of clock ticks per second

			eject

;
;  return number of bytes in next input packet
;
inpacketlen	lda InBufSize			; is there an input buffer?
			beq nobuf
			ldy InBufHead			; any packet available?
			iny
			cpy InBufEnd 			; wrap if necessary
			bcc @1
			ldy #0
@1		 	ldx #0					; X = 0 (no errors)
			txa
			cpy PacketIndex
			beq @2		 			; no packet
			lda [InBufAddr],y		; get packet length
			and #$7FFF				; clear possible error flag
@2			txy
			rts

nobuf		ldx #miNoBufErr			; no buffer error
			tay						; result = 0
			rts

;
;  return number of characters in input buffer
;
inbufchars	lda InBufSize			; is there an input buffer?
			beq nobuf
			lda InBufHead			; wrap if necessary to avoid inflation
			inc a
			cmp InBufEnd
			lda InBufTail
			bcs @1
			sbc InBufHead			; note: tail-head-1
			bpl @1
			adc InBufSize			; head > tail
@1			ldx #0					; no errors
			txy
			rts

;
;  return number of characters in output buffer
;
outbufchars	lda OutBufSize			; is there an output buffer?
			beq nobuf
			lda OutBufHead			; wrap if necessary to avoid inflation
			inc a
			cmp OutBufEnd
			lda OutBufTail
			bcs @1
			sbc OutBufHead			; note: tail-head-1
			bpl @1
			adc OutBufSize			; head > tail
@1		 	ldx #0					; no errors
			txy
			rts

;
;  return maximum number of characters in input buffer
;
maxinchars	ldx #0					; no errors
			txy
			lda InBufMaxChars
			stz InBufMaxChars		; zero the count
			rts

;
;  return maximum number of characters in output buffer
;
maxoutchars	ldx #0					; no errors
			txy
			lda OutBufMaxChars
			stz OutBufMaxChars		; zero the count
			rts

;
;  return address currently being recorded by MidiRecordFile
;
filerecaddr	brk						; more to come...

;
;  return address currently being played by MidiPlayFile
;
fileplayaddr
			brk						; more to come...

;
;  return current time stamp clock value
;
gettime 	ldx TimerEnabled 		; is the clock running?
			beq @1					; no
			jsr UpdateTimer			; load low byte of clock from DOC
			lda Timer
			ldy Timer+2
			ldx #0					; no errors
			rts
@1			lda Timer				; low byte is garbage
			and #$FF00
			ldy Timer+2
			rts

;
;  return number of clock ticks per second
;
getfreq 	lda TicksPerSec			; default clock frequency
			ldx #0					; no errors
			txy
			rts
			
			ENDP

			END
			
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Midi/MidiTools/midi.macros b/IIGS.601.SRC/GSToolbox/Midi/MidiTools/midi.macros
new file mode 100644
index 0000000..99620ae
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Midi/MidiTools/midi.macros
@@ -0,0 +1 @@
+			PRINT PUSH
			PRINT OFF
 
 
 MACRO
&lab PopArgs &num
&lab 
 IF &num='' GOTO .DONE
 IF &Eval(&num)=0 GOTO .DONE
 LCLA &popnum
&popnum SETA &Eval(&num)
 IF &popnum>=6 GOTO .DOPULLS
 lda 5,s
 sta 5+&popnum,s
 lda 3,s
 sta 3+&popnum,s
 IF &popnum<2 GOTO .MOVEUP1
 pla
&popnum SETA &popnum-2
 sta 1+&popnum,s
 IF &popnum>0 GOTO .DISCARD
 MEXIT
.MOVEUP1
 pla
 phb
 sta 1,s
 MEXIT
.DOPULLS
 pla
 sta &popnum-1,s
 pla
 sta &popnum-1,s
 pla
 sta &popnum-1,s
&popnum SETA &popnum-6
 IF &popnum=0 GOTO .DONE
.DISCARD
 IF &popnum=1 GOTO .DISCARD1
 IF &popnum=2 GOTO .DISCARD2
 tsc
 clc
 adc #&popnum
 tcs
 MEXIT
.DISCARD1
 phb
.DISCARD2
 pla
.DONE
 MEND

	MACRO
&lab	PushPtr &addr
&lab
	dc.B $F4
	dc.W (&addr)>>16
	dc.B $F4
	dc.W &addr
	MEND

			PRINT POP
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Midi/MidiTools/midi.main.aii b/IIGS.601.SRC/GSToolbox/Midi/MidiTools/midi.main.aii
new file mode 100644
index 0000000..7c858c7
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Midi/MidiTools/midi.main.aii
@@ -0,0 +1 @@
+;-------------------------------------------------------
;
;  midi.main.aii
;
;  Required tool calls for the MIDI Tool Set.
;  The MIDI Tool Set allows device-independent
;  input and output of MIDI data.
;
;  Copyright 1987, Apple Computer Inc.
;  Author: Don Marsh (x6739, AppleLink: MARSH1)
;
;  Modification History
;
;  25 Aug 87   DM	New today
;  20 Nov 87   DM	Major rewrite of MidiStartUp
;					Added support for 3 direct pages
;					Added many new calls
;  19 Jan 88   DM	Deleted AppleTalk check so that
;					tool will work (?) with AppleTalk
;  25 Jan 88   DM	Added initialization for OutputDelay
;  27 Oct 88   MD	Initalize TicksPerSec to default of 13160
;
;-------------------------------------------------------

			INCLUDE 'all.macros'
			INCLUDE 'midi.macros'
			INCLUDE 'midi.equ.aii'

;
;  MIDI Tool Set Function Pointer Table
;

MidiFPT		PROC

			IMPORT MidiBoot
			IMPORT MidiStartUp
			IMPORT MidiShutDown
			IMPORT MidiVersion
			IMPORT MidiReset
			IMPORT MidiStatus
			IMPORT NotImp

			IMPORT MidiControl		; midi.control.aii
			IMPORT MidiDevice		; midi.device.aii
			IMPORT MidiClock		; midi.clock.aii
			IMPORT MidiInfo			; midi.info.aii
			IMPORT MidiReadPacket	; midi.read.aii
			IMPORT MidiWritePacket	; midi.write.aii
			IMPORT MidiRecordSeq	; midi.record.aii
			IMPORT MidiStopRecord
			IMPORT MidiPlaySeq		; midi.play.aii
			IMPORT MidiStopPlay
			IMPORT MidiConvert		; midi.convert.aii
			

			DC.L (EndFPT-MidiFPT)/4	; number of calls
			DC.L MidiBoot-1			;  1 - boot initialization
			DC.L MidiStartUp-1		;  2 - application startup
			DC.L MidiShutDown-1		;  3 - application shutdown
			DC.L MidiVersion-1		;  4 - version number
			DC.L MidiReset-1 		;  5 - system reset
			DC.L MidiStatus-1		;  6 - tool initialized?
			DC.L NotImp-1			;  7 - reserved by system
			DC.L NotImp-1			;  8 - reserved by system

			DC.L MidiControl-1		;  9 - various control functions
			DC.L MidiDevice-1		; 10 - device driver functions
			DC.L MidiClock-1 		; 11 - time stamp clock functions
			DC.L MidiInfo-1			; 12 - various information
			DC.L MidiReadPacket-1	; 13 - read one MIDI packet
			DC.L MidiWritePacket-1	; 14 - write one MIDI packet
			DC.L MidiRecordSeq-1	; 15 - record a MIDI sequence
			DC.L MidiStopRecord-1	; 16 - stop recording a MIDI seq
			DC.L MidiPlaySeq-1		; 17 - play a MIDI sequence
			DC.L MidiStopPlay-1		; 18 - stop playing a MIDI seq
			DC.L MidiConvert-1		; 19 - convert MIDI packets/files

EndFPT		equ *

			ENDP
			EJECT

;-------------------------------------------------------
;
;  MidiBoot -- call number 1
;
;  This routine is called when the MIDI Tool Set is
;  first loaded into RAM.  Nothing is actually done
;  until the MidiStartup call.
;
;  Inputs:
;		  none
;
;  Outputs:
;		  none
;
;  Registers:
;		  not preserved
;
;-------------------------------------------------------

MidiBoot	PROC

;
;  initialize MIDI input polling vector
;
			lda #$6B				; RTL
			sta MidiInputPoll		; set up MIDI input polling vector

			lda #0					; no errors
			clc
			rtl

			ENDP
			EJECT
			
;-------------------------------------------------------
;
;  MidiStartUp -- call number 2
;
;  This routine is called by an application that wishes
;  to use the MIDI Tool Set.
;
;  Inputs:
;		 user ID for memory manager (word)
;		 address of 3 consecutive page-aligned
;		   direct pages (word)
;
;  Outputs:
;		 none
;
;  Errors:
;		 miToolsErr 	  Required tools are not loaded
;						  or not correct version.
;
;
;  Registers:
;		 not preserved
;
;-------------------------------------------------------

MidiStartUp	PROC

			IMPORT BufDispatcher
			IMPORT ClearNotes
			IMPORT ClockHandler

;
;  stack offsets
;
			DefineStack
s_databank	byte 					; old data bank
s_dirpage	word 					; old direct page
s_rtl1		block 3					; first rtl address
s_rtl2		block 3					; second rtl address

s_argstart	DSectSize				; start of arguments
s_dirpages	word 					; start of direct pages
s_userid	word 					; user ID for memory manager
s_argend	DsectSize				; end of arguments

s_argsize	equ s_argend-s_argstart


;
;  save direct page and data bank registers
;
			phd						; save old direct page
			phb						; save old data bank
			phk						; data bank = current program bank
			plb

;
;  check to see if Note Synthesizer and Sound Tools are proper version
;  (NOT DONE ANY MORE, BECAUSE MIDI TOOLS CAN RUN WITHOUT THEM EXCEPT FOR MIDI CLOCK)
;			pha
;			_SoundVersion
;			pla
;			bcs toolerror
;			cmp #miSTVer
;			bcc toolerror
;			pha
;			_NSVersion
;			pla
;			bcs toolerror
;			cmp #miNSVer
;			bcs initdp1
;
;toolerror	ldx #miToolsErr
;			jmp done

			eject

;
;  initialize code fragments on direct page 1
;
initdp1 	lda s_dirpages,s 		; get new direct page
			tcd

			ldx #0
codeloop	lda dp_code,x 			; copy one word per loop
			sta <0,x
			inx
			inx
			cpx #dp_codesize
			bcc codeloop

;
;  patch into DOC interrupt chain
;
patchvector pea 0					; set DOC oscillator interrupt to us
			pea 0
			pea 0
			tdc
			clc
			adc #TimerIntGlue
			pha
			_SetUserSoundIRQV
			bcc	@1					; Report error if there is one.
			tax
			pla
			pla
			brl done
@1			pla						; Continue if no error.
			sta OtherOscVec
			pla
			sep #$20 				; short accumulator
			longa off
			sta OtherOscVec+2
			rep #$20 				; long accumulator
			longa on

;
;  patch references to direct page
;
			tdc						; patch direct page location
			sta MidiZP1
			sta MidiZP1b
			tax
			lda TimerIntGlue 		; save branch at beginning of interrupt
			sta NoPollBranch 		;	routine, which will be patched
			and #$00FF				;	depending on whether we need to
			sta PollBranch			;	poll MIDI input during DOC interrupt
			txa						; calculate address of routine to call
			clc						;	to poll MIDI input
			adc #PollInput-1
			sta PollInputAddr		; this value used to RTL to polling code
			stz PollInputAddr2+1
			inc a					; this value used to JSL to polling code
			sta PollInputAddr2
			txa
			clc
			adc #$100				; point to direct page 2
			sta MidiZP2

			eject

;
;  initialize direct page 2
;
			tcd						; A = direct page 2 (from above)
			sec						; calculate address - 1 of MVPinst for
			sbc #$100-(MVPinst-1)	;	MidiReadPacket and MidiWritePacket
			sta MVPaddr
			stz MVPaddr+2

			sep #$20 				; short accumulator
			longa off
			lda s_databank,s		; save application's data bank
			sta DataBank
			rep #$20 				; long accumulator
			longa on
			lda s_userid,s			; save our user ID
			sta UserId
			stx DirPage1 			; address of direct page 1
			txa
			clc
			adc #$200
			sta DirPage3 			; address of direct page 3

;
;  no input or output buffers allocated yet
;
			stz InBufHandle			; input buffer not allocated
			stz InBufHandle+2
			stz InBufSize

			stz OutBufHandle 		; output buffer not allocated
			stz OutBufHandle+2
			stz OutBufSize

			lda #miPacketMode		; default packet format input and output
			sta InputMode
			sta OutputMode

			lda #$FFFF				; do running status optimization
			sta OutputStat
			stz OutputDelay			; no delay between output packets
			sta IgnoreSysEx			; save system exclusive on input
			
			stz MRactive			; MidiReadPacket not active
			stz MWactive			; MidiWritePacket not active

;
;  clear application vectors
;
			stz RealTimeVec			; discard MIDI real-time messages
			stz RealTimeVec+1
			stz ErrorVec 			; ignore real-time errors
			stz ErrorVec+1
			stz InputVec 			; no interrupt on first input packet
			stz InputVec+1
			stz OutputVec			; no interrupt on last output packet
			stz OutputVec+1

;
;  clear and disable the clock
;
			stz Timer				; initialize clock value to zero
			stz Timer+2
			stz LastOutTime
			stz LastOutTime+2
			stz TimerEnabled 		; clock disabled
			lda #13160				; get default clock frequency
			sta TicksPerSec			; initialize TicksPerSec
;
;  device driver not loaded
;
			stz DriverID
			lda #$6B				; RTL
			sta MidiInputPoll		; set up MIDI input polling vector
			lda DirPage1
			sta MidiInputPoll+1
			lda #$5C				; JML
			sta MidiInputPoll+3
			lda #pollingerr			; point to BRK
			sta MidiInputPoll+4
			lda #^pollingerr
			sta MidiInputPoll+6
			eject

;
;  initialize direct page 3
;
			jsr ClearNotes			; mark all notes off

;
;  set our work area pointer
;
			pea 0					; system tool
			pea miToolNum			; tool set number
			pha
			phd						; our direct page
			_SetWAP
			ldx #0

;
;  return with possible error code currently in X
;
done		plb						; restore old data bank
			pld						; restore old direct page
			PopArgs s_argsize		; move RTL addresses
			txa						; possible error code in A
			cmp #1					; set carry appropriately
			rtl

pollingerr	brk						; somehow someone slipped through the MIDI
									;   input polling vector illegally
			eject

;
;  This is an image of the code segments to be moved onto the direct page.
;

dp_code		DC.B	$00 				; reserved byte at start of direct page


;  jump to routine to do I/O buffering - called by driver routines
			jml BufDispatcher


;  This is a small glue routine installed in the direct page and modified
;  there by MidiStartup.  It is called by the //GS interrupt handler to
;  service MIDI interrupts.
			rep #$30 				; long accumulator
			lda #$FFFF				; get new direct page
			jsl nullhandler			; call driver int. handler
			sep #$30 				; restore 8-bit native mode
			bcs oldvec				; driver didn't service interrupt
			rtl
oldvec		jml $FFFFFF				; call old interrupt handler


;  This is a small glue routine installed in the direct page and modified
;  there by MidiStartup.  It is called to handle DOC interrupts caused by
;  our timing oscillator.
			longa off				; called in m = 1, x = 1 mode
			longi off
			bra NoPoll				; don't poll MIDI input (modified if
;											polling is needed)
			phk						; push address of polling routine to
			pea $FFFF				;	be called before rtl to Sound Tools
			pha						; save oscillator mode
			jsl $FFFFFF				; call routine to poll MIDI input
			pla						; restore oscillator mode
NoPoll		cmp #MidiMode			; did our oscillator cause interrupt?
			beq IncTimer 			; yes, increment time stamp clock
			jml $FFFFFF				; call routine to handle other osc.
IncTimer	rep #$30 				; long accumulator and registers
			longa on
			longi on
			lda #$FFFF				; get new direct page
			jml ClockHandler 		; our oscillator interrupt handler

;
; poll MIDI input
;
			rep #$30 				; long accumulator and registers
			longa on
			longi on
			lda #$FFFF				; get direct page 1
			jsl $FFFFFF				; poll MIDI input
			sep #$30 				; short accumulator and registers
			rtl


;  The following routine implements a MVP instruction in which the source
;  and destination banks can be modified.
			mvp $FF,$FF
			plb
			rtl


;  This routine allows PRODOS calls to be made with patched arguments.
			jsl Prodos
			DS.B 2					; call number
			DS.B 4					; address of parameter block
			rtl

dp_codesize	equ *-dp_code


;
;  null MIDI interrupt handler
;
nullhandler	sec						; didn't handle the interrupt
			rtl

			ENDP
			EJECT
			
;-------------------------------------------------------
;
;  MidiShutDown -- call number 3
;
;  An application calls this function when it has
;  finished using the MIDI Tool Set.
;
;  Inputs:
;		 none
;
;  Outputs:
;		 none
;
;  Registers:
;		 not preserved
;
;-------------------------------------------------------

MidiShutDown	PROC

			IMPORT ShutDriver

			phd						; save current direct page
			tcd
			beq done 				; MIDI Tool Set is not initialized

			php						; disable interrupts
			sei

;
;  shut down the device driver
;
			jsr ShutDriver			; shutdown and unload the device driver

;
;  shutdown timer
;
			pea miStopClock
			pea 0
			pea 0
			_MidiClock

;
;  restore timer interrupt vector
;
nodriver	lda DirPage1
			tcd
			pea 0
			pea 0
			lda OtherOscVec+2
			and #$00FF
			pha
			pei OtherOscVec
			lda MidiZP2
			tcd
			_SetUserSoundIRQV
			pla
			pla

			plp						; restore interrupts

;
;  discard buffers allocated by the MIDI Tool Set
;
			lda InBufHandle+2		; was the input buffer allocated?
			ora InBufHandle
			beq checkoutbuf
			pei InBufHandle+2
			pei InBufHandle
			_DisposeHandle
checkoutbuf	lda OutBufHandle+2
			ora OutBufHandle
			beq disposewapt
			pei OutBufHandle+2
			pei OutBufHandle
			_DisposeHandle

;
;  clear out WAPT entry
;
disposewapt	pea 0					; system tool
			pea miToolNum			; tool number
			pea 0
			pea 0
			_SetWAP

done		pld						; restore direct page
			lda #0
			clc
			rtl

			ENDP
			EJECT
			
;-------------------------------------------------------
;
;  MidiVersion -- call number 4
;
;  Returns the version number of the MIDI Tools package.
;
;  Inputs:
;		 none
;
;  Outputs:
;		 version number (word)
;
;  Registers:
;		 not preserved
;
;-------------------------------------------------------

MidiVersion	PROC

;
;  stack offsets
;
			DefineStack
s_rtl1		block 3
s_rtl2		block 3
s_vernum	word

			lda #MidiVerNum
			sta s_vernum,s
			lda #0
			clc
			rtl

			ENDP
			EJECT
			
;-------------------------------------------------------
;
;  MidiReset -- call number 5
;
;  This function is called when the system is reset.
;
;  Inputs:
;		 none
;
;  Outputs:
;		 none
;
;  Registers:
;		 not preserved
;
;-------------------------------------------------------

MidiReset	PROC

			IMPORT ResetDriver

			phd						; save current direct page
			tcd
			beq done 				; MIDI Tool Set is not initialized

			php						; ignore any last-minute MIDI interrupts
			sei

;
;  reset the device driver
;
			jsr ResetDriver

;
;  shutdown timer
;
			pei miStopClock
			pea 0
			pea 0
			_MidiClock

;
;  restore timer interrupt vector
;
nodriver	lda DirPage1
			tcd
			pea 0
			pea 0
			lda OtherOscVec+2
			and #$00FF
			pha
			pei OtherOscVec
			lda MidiZP2
			tcd
			_SetUserSoundIRQV
			pla
			pla

			plp						; restore interrupts

;
;  discard buffers allocated by the MIDI Tool Set
;
			lda InBufHandle+2		; was the input buffer allocated?
			ora InBufHandle
			beq checkoutbuf
			pei InBufHandle+2
			pei InBufHandle
			_DisposeHandle
checkoutbuf	lda OutBufHandle+2
			ora OutBufHandle
			beq disposewapt
			pei OutBufHandle+2
			pei OutBufHandle
			_DisposeHandle

;
;  clear out WAPT entry
;
disposewapt	pea 0					; system tool
			pea miToolNum			; tool number
			pea 0
			pea 0
			_SetWAP

done		pld						; restore direct page
			lda #0
			clc
			rtl

			ENDP
			EJECT
			
;-------------------------------------------------------
;
;  MidiStatus -- call number 6
;
;  This function returns a word indicating whether the
;  MIDI Tools package is active ($FFFF) or inactive
;  ($0000).
;
;  Inputs:
;		 none
;
;  Outputs:
;		 status word ($0000 = inactive, $FFFF = active)
;
;  Registers:
;		 not preserved
;
;-------------------------------------------------------

MidiStatus	PROC

;
;  stack offsets
;
			DefineStack
s_rtl1		block 3
s_rtl2		block 3
s_status	word

			tax						; do we have a non-zero direct page?
			beq done
			lda #$FFFF
done		sta s_status,s
			lda #0
			clc
			rtl

			ENDP
			EJECT
			
;-------------------------------------------------------
;
;  NotImp
;
;  Reserved call not implemented.
;
;  Inputs:
;		 none
;
;  Outputs:
;		 none
;
;  Registers:
;		 not preserved
;
;-------------------------------------------------------

NotImp		PROC

			lda #0
			clc
			rtl

			ENDP

			END
			
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Midi/MidiTools/midi.notes.aii b/IIGS.601.SRC/GSToolbox/Midi/MidiTools/midi.notes.aii
new file mode 100644
index 0000000..60c3c50
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Midi/MidiTools/midi.notes.aii
@@ -0,0 +1 @@
+;-------------------------------------------------------
;
;  midi.notes.aii
;
;  This module contains routines which keep track of
;  notes currently playing on the external synthesizer.
;
;  Copyright 1987, Apple Computer Inc.
;  Author: Don Marsh (x6739, AppleLink: MARSH1)
;
;  Modification History
;
;  11 Nov 87   DM	New today
;
;-------------------------------------------------------

			INCLUDE 'all.macros'
			INCLUDE 'midi.macros'
			INCLUDE 'midi.equ.aii'

;
;  masks used to turn notes on and off in the note array
;
NoteMasks	PROC

			EXPORT noteonmask
			EXPORT noteoffmask

noteonmask	DC.B %00000000,%00000001
			DC.B %00000000,%00000010
			DC.B %00000000,%00000100
			DC.B %00000000,%00001000
			DC.B %00000000,%00010000
			DC.B %00000000,%00100000
			DC.B %00000000,%01000000
			DC.B %00000000,%10000000
			DC.B %00000001,%00000000
			DC.B %00000010,%00000000
			DC.B %00000100,%00000000
			DC.B %00001000,%00000000
			DC.B %00010000,%00000000
			DC.B %00100000,%00000000
			DC.B %01000000,%00000000
			DC.B %10000000,%00000000

noteoffmask DC.B %11111111,%11111110
			DC.B %11111111,%11111101
			DC.B %11111111,%11111011
			DC.B %11111111,%11110111
			DC.B %11111111,%11101111
			DC.B %11111111,%11011111
			DC.B %11111111,%10111111
			DC.B %11111111,%01111111
			DC.B %11111110,%11111111
			DC.B %11111101,%11111111
			DC.B %11111011,%11111111
			DC.B %11110111,%11111111
			DC.B %11101111,%11111111
			DC.B %11011111,%11111111
			DC.B %10111111,%11111111
			DC.B %01111111,%11111111

			ENDP
			EJECT

;-------------------------------------------------------
;
;  ClearNotes
;
;  Clear note array to all notes off.
;
;-------------------------------------------------------

ClearNotes	PROC EXPORT

			lda DirPage3 			; note array is on third direct page
			tcd
			ldx #$3E
clearloop	stz $00,x
			stz $40,x
			stz $80,x
			stz $C0,x
			dex
			dex
			bpl clearloop
			sec						; restore direct page
			sbc #$100
			tcd
			rts

			ENDP
			EJECT

;-------------------------------------------------------
;
;  ClearNotesChannel
;
;  Clear note array to all notes off in the channel
;  number passed in the accumulator.
;
;-------------------------------------------------------

ClearNotesChannel PROC EXPORT

			phb						; save data bank register
			phk						; set data bank reg. to this bank
			plb

			asl a					; make channel number index
			tay
			lda noteoffmask,y
			tay						; save note off mask in Y

			plb						; restore data bank register

			lda DirPage3 			; note array is on third direct page
			tcd

			ldx #$3E
clearloop	tya						; clear 4 notes per loop for speed
			and $00,x
			sta $00,x
			tya
			and $40,x
			sta $40,x
			tya
			and $80,x
			sta $80,x
			tya
			and $C0,x
			sta $C0,x
			dex
			dex
			bpl clearloop

			tdc
			sec
			sbc #$100				; restore direct page
			tcd
			rts

			ENDP
			EJECT


;-------------------------------------------------------
;
;  NoteOnOff
;
;  Record a note on or note off event in note array.
;
;  The following assumptions are made:
;		called with short accumulator
;		A contains the status byte of the MIDI packet
;		Y contains index to status byte in
;				the output buffer
;
;		low byte of A, X, Y are preserved
;
;-------------------------------------------------------

NoteOnOff	PROC EXPORT

			longa off				; short accumulator
			phb						; save data bank register
			phk						; set data bank reg. to this bank
			plb
			phx						; save X

			asl a
			cmp #$20 				; is it note on or note off?
			rep #$20 				; long accumulator
			longa on
			and #$001F				; form channel index
			tax
			iny
			lda [OutBufAddr],y		; get pitch and velocity
			dey
			bcc noteoff
			bit #$FF00
			beq noteoff				; note on with zero velocity is note off
			and #$007F				; form pitch index
			asl a
			pha
			lda DirPage3 			; point direct page to note array
			tcd
			lda noteonmask,x 		; find the bit to set
			plx
			ora 0,x					; set the bit corresponding to this note
			sta 0,x
			tdc						; restore direct page
*			clc						; carry clear from ASL above
			sbc #$FF
			tcd
			sep #$20 				; restore accumulator
			longa off
			lda [OutBufAddr],y
			plx						; restore X
			plb						; restore data bank
			rts
			longa on

noteoff 	and #$007F				; form pitch index
			asl a
			pha
			lda DirPage3 			; point direct page to note array
			tcd
			lda noteoffmask,x		; find the bit to clear
			plx
			and 0,x					; clr the bit corresponding to this note
			sta 0,x
			tdc						; restore direct page
*			clc						; carry clear from ASL above
			sbc #$FF
			tcd
			sep #$20 				; restore accumulator
			longa off
			lda [OutBufAddr],y
			plx						; restore X
			plb						; restore data bank
			rts
			longa on

			ENDP
			EJECT

;-------------------------------------------------------
;
;  TurnOffNotes
;
;  Turn off the notes that we think are on.
;  The accumulator indicates which MIDI channel (0-F)
;  to turn off, or all channels if A >= $10.
;
;  Output must be turned on and interrupts enabled,
;  or this routine will hang.
;  The clock should be running in order to detect
;  transmission difficulties.
;  Does not wait for output buffer to clear after note
;  off commands are buffered.
;
;-------------------------------------------------------

TurnOffNotes PROC EXPORT

;
;  stack offsets
;
			DefineStack
s_firstnote	word 					; first on note in this channel
s_packet	block 10 				; packet to be sent
s_databank	byte 					; old data bank register

			asl a					; multiply channel by two
			tay						; save channel times two

			phb						; save data bank register
			phk						; set data bank reg. to this bank
			plb
			lda DirPage3 			; set direct page to note array
			tcd

			lda #0					; reserve space on stack for packet
			pha
			pha
			pha
			pha
			pea 7					; length of note off packets
			pha						; reserve space for s_firstnote boolean

			cpy #$20 				; all channels?
			bcc onechannel

			ldy #0					; turn off notes, channel 0
			jsr channotesoff
			ldy #1*2 				; channel 1
			jsr channotesoff
			ldy #2*2 				; channel 2
			jsr channotesoff
			ldy #3*2 				; channel 3
			jsr channotesoff
			ldy #4*2 				; channel 4
			jsr channotesoff
			ldy #5*2 				; channel 5
			jsr channotesoff
			ldy #6*2 				; channel 6
			jsr channotesoff
			ldy #7*2 				; channel 7
			jsr channotesoff
			ldy #8*2 				; channel 8
			jsr channotesoff
			ldy #9*2 				; channel 9
			jsr channotesoff
			ldy #10*2				; channel 10
			jsr channotesoff
			ldy #11*2				; channel 11
			jsr channotesoff
			ldy #12*2				; channel 12
			jsr channotesoff
			ldy #13*2				; channel 13
			jsr channotesoff
			ldy #14*2				; channel 14
			jsr channotesoff
			ldy #15*2				; channel 15
onechannel	jsr channotesoff

			tdc						; restore direct page
			sec
			sbc #$100
			tcd
			tsc						; discard info on the stack
			adc #11
			tcs
			plb						; restore data bank register
			rts

;
;  turn off notes in channel Y/2
;
channotesoff
			lda #0					; no on note found yet
			sta s_firstnote+2,s
			lda noteonmask,y
			ldx #254

scannotes	bit 0,x					; is this note on in this channel?
			bne foundnoteon
scannotes1	dex
			dex
			bpl scannotes
			rts

foundnoteon	lda s_firstnote+2,s		; is this the first note in this channel
			bne notfirstnote 		; no
			dec a					; now we've seen a note in this channel
			sta s_firstnote+2,s
			tya						; construct all notes off status byte
			lsr a
			ora #$7BB0
			sta s_packet+6+2,s
			phx						; save pitch
			phy						; save channel

sendalloff	tsc						; calculate address of packet
			clc
			pha						; space for result
			adc #s_packet+4+2
			pea 0
			pha
			_MidiWritePacket
			pla
			beq sendalloff			; output buffer is full, try again

			ply						; restore channel
			plx						; restore pitch
			tya						; construct note off status byte
			lsr a
			ora #$0080
			sta s_packet+6+2,s

notfirstnote
			txa						; construct note off pitch
			lsr a
			sta s_packet+7+2,s
			phx						; save pitch
			phy						; save channel

sendnoteoff	tsc						; calculate address of packet
			clc
			pha						; space for result
			adc #s_packet+4+2
			pea 0
			pha
			_MidiWritePacket
			pla
			beq sendnoteoff			; output buffer is full, try again

			ply						; restore channel
			plx						; restore pitch
			lda noteonmask,y 		; restore bit mask
			jmp scannotes1			; continue

			ENDP
			EJECT

;-------------------------------------------------------
;
;  PanicNotesOff
;
;  Turn off all possible notes in the channel given
;  by the accumulator.
;  The accumulator indicates which MIDI channel (0-F)
;  to turn off, or all channels if A >= $10.
;
;  Output must be turned on and interrupts enabled,
;  or this routine will hang.
;  The clock should be running in order to detect
;  transmission difficulties.
;  Does not wait for output buffer to clear after note
;  off commands are buffered.
;
;-------------------------------------------------------

PanicNotesOff PROC EXPORT

;
;  stack offsets
;
s_packet	equ 1					; packet to be sent

			tay						; save channel

			lda #0					; reserve space on stack for packet
			pha
			pha
			pha
			pha
			pea 7					; length of note off packets

			cpy #$10 				; all channels?
			bcc onechannel

			ldy #0					; channel 0
			jsr chanpanicoff
			ldy #1					; channel 1
			jsr chanpanicoff
			ldy #2					; channel 2
			jsr chanpanicoff
			ldy #3					; channel 3
			jsr chanpanicoff
			ldy #4					; channel 4
			jsr chanpanicoff
			ldy #5					; channel 5
			jsr chanpanicoff
			ldy #6					; channel 6
			jsr chanpanicoff
			ldy #7					; channel 7
			jsr chanpanicoff
			ldy #8					; channel 8
			jsr chanpanicoff
			ldy #9					; channel 9
			jsr chanpanicoff
			ldy #10					; channel 10
			jsr chanpanicoff
			ldy #11					; channel 11
			jsr chanpanicoff
			ldy #12					; channel 12
			jsr chanpanicoff
			ldy #13					; channel 13
			jsr chanpanicoff
			ldy #14					; channel 14
			jsr chanpanicoff
			ldy #15					; channel 15
onechannel	jsr chanpanicoff
			tsc						; discard info on the stack
			clc
			adc #10
			tcs
			rts

;
;  turn all notes off on channel Y
;
chanpanicoff
			tya						; construct all notes off status byte
			ora #$7BB0
			sta s_packet+6+2,s
			phy						; save channel

sendalloff	tsc						; calculate address of packet
			clc
			pha						; space for result
			adc #s_packet+2+2
			pea 0
			pha
			_MidiWritePacket
			pla
			beq sendalloff			; output buffer is full, try again

			ply						; restore channel

;
;  send individual note off commands on this channel
;
			tya						; form note off status byte
			ora #$0080
			sta s_packet+6+2,s
			ldx #127 				; start with pitch 127

nextnote	txa						; store pitch for this note
			sta s_packet+7+2,s
			phx						; save pitch
			phy						; save channel

sendnoteoff	tsc						; calculate address of packet
			clc
			pha						; space for result
			adc #s_packet+4+2
			pea 0
			pha
			_MidiWritePacket
			pla
			beq sendnoteoff			; output buffer is full, try again

			ply						; restore channel
			plx						; restore pitch
			dex						; next pitch
			bpl nextnote

			rts

			ENDP

			END
			
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Midi/MidiTools/midi.play.aii b/IIGS.601.SRC/GSToolbox/Midi/MidiTools/midi.play.aii
new file mode 100644
index 0000000..36bf058
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Midi/MidiTools/midi.play.aii
@@ -0,0 +1 @@
+;-------------------------------------------------------
;
;  midi.play.aii
;
;  This module contains routines which allow playback
;  of Standard MIDI Files.
;
;  Copyright 1987, Apple Computer Inc.
;  Author: Don Marsh (x6739, AppleLink: MARSH1)
;
;  Modification History
;
;  23 Nov 87   DM	?
;
;-------------------------------------------------------

			INCLUDE 'all.macros'
			INCLUDE 'midi.macros'
			INCLUDE 'midi.equ.aii'

;-------------------------------------------------------
;
;  MidiPlaySeq -- call number 17
;
;-------------------------------------------------------

MidiPlaySeq	PROC EXPORT

			brk						; more to come...

			ENDP
			EJECT

;-------------------------------------------------------
;
;  MidiStopPlay -- call number 18
;
;-------------------------------------------------------

MidiStopPlay PROC EXPORT

			brk						; more to come...

			ENDP

			END
			
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Midi/MidiTools/midi.read.aii b/IIGS.601.SRC/GSToolbox/Midi/MidiTools/midi.read.aii
new file mode 100644
index 0000000..797a5d7
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Midi/MidiTools/midi.read.aii
@@ -0,0 +1 @@
+;-------------------------------------------------------
;
;  midi.read.aii
;
;  This module contains routines to read MIDI packets.
;
;  Copyright 1987, Apple Computer Inc.
;  Author: Don Marsh (x6739, AppleLink: MARSH1)
;
;  Modification History
;
;	2 Sep 87   DM	New today
;
;-------------------------------------------------------

			INCLUDE 'all.macros'
			INCLUDE 'midi.macros'
			INCLUDE 'midi.equ.aii'

;-------------------------------------------------------
;
;  MidiReadPacket -- call number 13
;
;  This function reads one MIDI packet (if one is
;  available) into an array whose address and length
;  are passed on the stack.  It returns the number
;  of characters placed in the array (zero if no
;  packet is currently available).
;
;  Inputs:
;		 space for number of chars. read (word)
;		 address of array to hold packet (long)
;		 length of array (word)
;
;  Outputs:
;		 number of chars. read (word)
;
;  Registers:
;		 A contains an error code if the carry is set.
;
;  NOTE: on input errors, MidiReadPacket places
;		 one byte which contains error flags into
;		 the passed array.	If a zero-length array
;		 is passed, this byte will be stored anyway.
;
;-------------------------------------------------------

MidiReadPacket PROC EXPORT

			IMPORT MVPGlue			; midi.glue.aii

;
;  stack offsets
;
			DefineStack
s_dirpage   word 					; old direct page
s_rtl1		block 3					; first rtl address
s_rtl2		block 3					; second rtl address

s_argstart	DSectSize				; start of arguments
s_arraylen  word 					; length of array
s_array 	long 					; address of array
s_argend	DSectSize				; end of arguments
s_argsize	equ s_argend-s_argstart

s_charsread	word 					; number of chars. placed in array


;
;  initialize direct page register
;
			phd						; save old direct page
			tcd						; get our direct page
			beq starterr			; MIDI Tool Set not started

			lda #0					; assume no packet returned
			sta s_charsread,s
			lda MRactive			; is MidiReadPacket already active?
			bne reentry				; yes, this is reentry via interrupt
			dec a					; mark MidiReadPacket active now
			sta MRactive
			php						; are interrupts enabled?
			php
			pla
			and #$0004
			and InputEnabled		; is MIDI input enabled?
			bne pollmidi			; poll MIDI input if ints. disabled
			ldx InBufSize			; is there an input buffer?
			bne bufok
			ldx #miNoBufErr			; no input buffer error
			jmp done1
starterr	ldx #miStartUpErr		; MIDI Tool Set not started
			jmp reenterdone

reentry		jsl MidiInputPoll		; poll MIDI if necessary
			ldx #0
			jmp reenterdone			; don't do anything on reentrant call

pollmidi	jsl MidiInputPoll		; poll MIDI input
			lda #$FFFF				; poll it later, too
			
bufok		sta MRpoll				; remember if we should poll MIDI in
			stz MRerror				; assume no error

;
;  update maximum number of characters in input buffer
;
			lda InBufHead			; wrap if necessary to avoid inflation
			cmp InBufEnd
			lda InBufTail
			bcs getmax
			sbc InBufHead			; note: tail-head-1
			bpl getmax
			adc InBufSize			; head > tail
getmax		cmp InBufMaxChars		; is number of chars > max ?
			bcc lookforpacket
			sta InBufMaxChars

;
;  is there a complete packet to return?
;
lookforpacket
			ldy InBufHead			; if PacketIndex = InBufHead + 1, no
			iny						;	complete packet yet
			cpy InBufEnd 			; need to skip?
			bcc @1
			ldy #0
@1			php						; save interrupt status
			sei
			cpy PacketIndex
			bne completepkt			; a complete packet is available
			cpy InBufTail			; is incomplete packet available?
			beq @2					; no data at all
			lda InputMode			; are we in raw mode?
			beq @3					; yes, transfer incomplete packet
@2			plp						; restore interrupt status
			jmp done2				; exit
			
;
;  truncate incomplete packet in raw mode
;
@3			sec						; calculate packet length
			lda #8
			sbc PacketRemain
			sta [InBufAddr],y
			stz PacketRemain		; input routine must start new packet
			lda InBufTail
			cmp InBufEnd			; skip tail to start if needed
			bcc @4
			lda #0
			sta InBufTail
@4			sta PacketIndex
			
;
;  transfer complete packet (with possible error)
;
completepkt	plp						; restore interrupt status
			sty MRhead				; save new head pointer
			lda [InBufAddr],y		; get length field
			bpl noerror

			and #$7FFF				; clear error flag
			pha						; save length
			clc						; retrieve error code at end of packet
			adc #2
			adc MRhead				; add current head index
			cmp InBufSize
			bcc @1
			sbc InBufSize
@1			tay
			lda [InBufAddr],y
			and #$00FF				; clear extraneous high byte
			ora #miToolNum<<8		; set tool number
			sta MRerror
			ldy MRhead				; restore head index
			pla						; restore length

noerror 	clc						; add length of two-byte length field
			adc #3					;	plus one byte for word transfers
			cmp s_arraylen,s		; is array big enough to hold packet?
			bcs arrayerror			; array is too small
			dec a					; subtract extra added above
			sta s_charsread,s		; function result is number of chars.
			tax						; save length
			cmp #11					; is packet large?
			bcs bigpacket			; yes, handle wrapping

;
;  copy short packet into array
;
			sec
			lda s_array,s			; adjust array address to use Y index
			sbc MRhead
			sta MRarray
			lda s_array+2,s
			sbc #0
			sta MRarray+2
			lda [InBufAddr],y		; move 10 bytes for speed
			and #$7FFF				; clear error flag
			sta [MRarray],y
			iny
			iny
			lda [InBufAddr],y
			sta [MRarray],y
			iny
			iny
			lda [InBufAddr],y
			sta [MRarray],y
			iny
			iny
			lda [InBufAddr],y
			sta [MRarray],y
			iny
			iny
			lda [InBufAddr],y
			sta [MRarray],y
			clc						; update head pointer
			txa
			adc MRhead
			dec a					; newhead was already incremented
			sta InBufHead

done		bit MRpoll				; do we need to poll MIDI input?
			bpl done2				; no
			jsl MidiInputPoll		; poll MIDI input
done2		ldx MRerror				; any error?
			beq done1				; no
			inc InBufHead			; discard extra error code byte
done1		stz MRactive			; MidiReadPacket no longer active
reenterdone	pld						; restore old direct page
			PopArgs s_argsize		; move RTL addresses
			txa						; restore error code
			cmp #1					; set carry appropriately
			rtl

arrayerror	stz MRactive			; MidiReadPacket no longer active
			pld						; return array size error
			PopArgs s_argsize
			lda #miArrayErr
			sec
			rtl

;
;  copy a large packet (system exclusive or error packet) to array,
;  with possible wrapping in the circular buffer
;
bigpacket	lda s_array,s			; retrieve address of destination array
			sta MRarray
			sep #$20 				; short accumulator
			longa off
			lda s_array+2,s
			sta MRarray+2
			phb						; save data bank reg from MVP
			pla						; A = data bank register
			sta MVPaddr+3			; restore data bank from here after MVP

newbank 	lda InBufAddr+2			; patch source and destination banks
			xba						;	into MVP instruction
			lda MRarray+2
			rep #$20 				; long accumulator
			longa on
			ldy #2
			sta [MVPaddr],y

nextblock	dex						; number of bytes - 1 to move
			stz MRlength			; number of bytes to move next time
			clc						; does packet wrap in input buffer?
			txa
			adc MRhead				; add current buffer position
			sec
			sbc InBufSize			; are we off the end of the buffer?
			bcc @1					; no
			inc a					; number of bytes to move in next block
			sta MRlength
			clc

@1		 	txa						; does destination cross bank boundary?
			adc MRarray
			bcc @2					; no
			tay						; number of bytes - 1 to move next time
			iny						; is bank boundary closer than the
			cpy MRlength			;	end of the buffer?
			bcc @2					; no
			sty MRlength			; number of bytes to move next time

@2			bit MRpoll				; do we need to poll MIDI input?
			bpl @2b					; no
			ldy #60					; transfer 60 bytes max. between polls
			cpy MRlength
			bcs @2a
			sty MRlength
@2a			pha						; save registers
			phx
			jsl MidiInputPoll		; poll MIDI input
			plx
			pla

@2b			sec						; calculate end of block move
			sbc MRlength
			sta MRarray
			sec						; calculate number of bytes to move now
			txa
			sbc MRlength
			tax
			clc
			adc MRhead				; calculate new head pointer
			sta MRhead
			adc InBufAddr			; calculate actual address for MVP
			txy						; save number of bytes - 1 for this move
			tax						; source address for MVP
			tya						; number of bytes - 1 to move
			ldy MRarray				; destination address for MVP

			jsl MVPGlue				; execute MVP instruction

			lda MRhead				; advance head pointer to make room
			sta InBufHead			;	in input buffer
			ldx MRlength			; more bytes to move?
			beq done3				; no
			inc a					; did input buffer wrap?
			cmp InBufSize
			bcc @3					; no
			lda #0
@3 			sta MRhead
			inc MRarray				; did destination cross bank boundary?
			bne nextblock			; no
			sep #$20
			inc MRarray+2			; increment destination bank
			bra newbank				; patch new destination bank in MVP

done3		bit MRpoll				; do we need to poll MIDI input?
			bpl @1					; no
			jsl MidiInputPoll		; poll MIDI input
@1			ldx MRerror				; any error?
			beq @2
			inc InBufHead			; discard extra error byte
			tsc						; clear error flag in length field
			tcd
			lda [s_array]
			and #$7FFF
			sta [s_array]
@2			jmp done1

			ENDP

			END
			
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Midi/MidiTools/midi.record.aii b/IIGS.601.SRC/GSToolbox/Midi/MidiTools/midi.record.aii
new file mode 100644
index 0000000..9c264c9
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Midi/MidiTools/midi.record.aii
@@ -0,0 +1 @@
+;-------------------------------------------------------
;
;  midi.record.aii
;
;  This module contains routines which allow recording
;  of Standard MIDI Files.
;
;  Copyright 1987, Apple Computer Inc.
;  Author: Don Marsh (x6739, AppleLink: MARSH1)
;
;  Modification History
;
;  23 Nov 87   DM	?
;
;-------------------------------------------------------

			INCLUDE 'all.macros'
			INCLUDE 'midi.macros'
			INCLUDE 'midi.equ.aii'

;-------------------------------------------------------
;
;  MidiRecordSeq -- call number 15
;
;-------------------------------------------------------

MidiRecordSeq PROC EXPORT

			brk						; more to come...

			ENDP
			EJECT

;-------------------------------------------------------
;
;  MidiStopRecord -- call number 16
;
;-------------------------------------------------------

MidiStopRecord PROC EXPORT

			brk						; more to come...

			ENDP

			END
			
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Midi/MidiTools/midi.write.aii b/IIGS.601.SRC/GSToolbox/Midi/MidiTools/midi.write.aii
new file mode 100644
index 0000000..c3f24d2
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Midi/MidiTools/midi.write.aii
@@ -0,0 +1 @@
+;-------------------------------------------------------
;
;  midi.write.aii
;
;  This module contains routines to write MIDI packets.
;
;  Copyright 1987, 1988 Apple Computer Inc.
;  Author: Don Marsh (x6739, AppleLink: MARSH1)
;
;  Modification History
;
;	2 Sep 87   DM	New today
;  13 Jan 88   DM	MidiWritePacket returns number of
;					bytes written to output buffer
;
;-------------------------------------------------------

			INCLUDE 'all.macros'
			INCLUDE 'midi.macros'
			INCLUDE 'midi.equ.aii'

;-------------------------------------------------------
;
;  MidiWritePacket -- call number 14
;
;  This function writes one time-stamped MIDI packet
;  whose address and length are passed on the stack.
;  The length of the packet includes a 2-byte length
;  field and a 4-byte time stamp.  MidiWritePacket
;  returns within 1/50 of a second, but waits
;  asynchronously until the time stamp clock is greater
;  than or equal to the packet's time stamp before
;  starting transmission.
;
;  If the given time stamp is negative (most significant
;  bit set) the packet is assumed to contain real-time
;  data that is placed at the head of the output buffer
;  (but behind any previous real-time data).
;
;  Inputs:
;		 space for result (word)
;		 address of packet (long)
;
;  Outputs:
;		 number of bytes written to buffer (word)
;
;  Registers:
;		 A contains an error code if the carry is set.
;
;  If the result word is zero, the packet has
;  not been placed in the output buffer.
;
;-------------------------------------------------------

MidiWritePacket PROC EXPORT

			IMPORT HalfDelay		; midi.buffer.aii
			IMPORT DevPollXmtGlue	; midi.glue.aii
			IMPORT MVPGlue

;
;  stack offsets
;
			DefineStack
s_dirpage   word 					; old direct page
s_rtl1		block 3					; first rtl address
s_rtl2		block 3					; second rtl address

s_argstart	DSectSize				; start of arguments
s_array 	long 					; address of array
s_argend	DSectSize				; end of arguments
s_argsize	equ s_argend-s_argstart

s_byteswritten word 				; number of bytes written


;
;  initialize direct page register
;
			phd						; save old direct page
			tcd						; get our direct page
			beq starterr			; MIDI Tool Set not started

			lda #0
			sta s_byteswritten,s	; no bytes written to output buffer
			lda MWactive			; is MidiWritePacket already active?
			bne reentry				; yes, this must be reentry via int.
			dec a					; mark MidiWritePacket active
			sta MWactive
			php						; are interrupts disabled?
			php
			pla
			and #$0004
			and InputEnabled		; is MIDI input enabled?
			bne pollmidi			; yes, poll MIDI with ints. disabled
			ldx OutBufSize			; is there an output buffer?
			bne bufok
			ldx #miNoBufErr			; no buffer error
			jmp done1
starterr	ldx #miStartUpErr		; MIDI Tool Set not started
			jmp reenterdone
			
reentry		jsl MidiInputPoll		; poll MIDI with ints. disabled
			ldx #0
@1			jmp reenterdone

fullbuf 	plp						; output buffer is full
nobytes 	ldx #0
			jmp done1

realtimejmp	jmp realtime

pollmidi	jsl MidiInputPoll		; poll MIDI input
			lda #$FFFF				; remember to poll later
			
bufok		sta MWpoll
			lda s_array,s
			sta MWarray
			lda s_array+2,s
			sta MWarray+2
			lda [MWarray]			; get the length field
			beq nobytes				; this isn't a real packet!
			clc						; add 2 to find length of packet
			adc #2					;	including the length field
			sta MWlength

			php						; calculate number of bytes available
			sep #$05 				; sec, sei
			lda OutBufHead
			sbc OutBufTail
			bcs checksize
			adc OutBufSize			; adjust for tail > head
checksize	cmp #10					; need min. 10 bytes for word transfers
			bcc fullbuf
			sbc MWlength
			bcc fullbuf				; not enough room
			lda OutBufHead			; make sure tail will not lap head
			cmp OutBufEnd
			bcc storepacket
			lda OutBufTail
			clc
			adc MWlength
			cmp OutBufEnd
			bcs fullbuf

storepacket	ldy #4					; check high word of time stamp
			lda [MWarray],y
			bmi realtimejmp			; it's a real-time packet
			plp
			lda OutBufEmpty			; are we writing into an empty buffer?
			beq @1 					; no
			lda TimerEnabled 		; is the timer running?
			bne @1 					; yes
			lda OutputDelay			; is delay between output packets needed
			beq @1 					; no
			jsr HalfDelay			; delay half of the required time here

@1  		ldy OutBufTail
			sty MWtail
			lda MWlength
			sta s_byteswritten,s
			tax
			cpx #11					; is it a large packet?
			bcs bigpacket

;
;  copy short packet into output buffer
;
			sec
			lda MWarray				; adjust array address to use Y index
			sbc MWtail
			sta MWarray
			bcs copyshort
			dec MWarray+2
copyshort	lda [MWarray],y			; move 10 bytes for speed
			sta [OutBufAddr],y
			iny
			iny
			lda [MWarray],y
			sta [OutBufAddr],y
			iny
			iny
			lda [MWarray],y
			sta [OutBufAddr],y
			iny
			iny
			lda [MWarray],y
			sta [OutBufAddr],y
			iny
			iny
			lda [MWarray],y
			sta [OutBufAddr],y
			clc						; update tail pointer
			txa
			adc MWtail
			jmp checktail


;
;  set up for block move
;
bigpacket	sep #$20 				; short accumulator
			longa off
			phb						; save data bank reg from MVP
			pla						; A = data bank register
			sta MVPaddr+3			; restore data bank from here after MVP

newbank 	lda MWarray+2			; patch source and destination banks
			xba						;	into MVP instruction
			lda OutBufAddr+2
			rep #$20 				; long accumulator
			longa on
			ldy #2
			sta [MVPaddr],y

nextblock	dex						; number of bytes - 1 to move
			stz MWlength			; number of bytes to move next time
			clc						; does packet wrap in output buffer?
			txa
			adc MWtail				; add current buffer position
			sec
			sbc OutBufSize			; are we off the end of the buffer?
			bcc @1					; no
			inc a					; number of bytes to move next time
			sta MWlength
			clc

@1			txa						; does source cross bank boundary?
			adc MWarray
			bcc @2					; no
			tay						; number of bytes - 1 to move next time
			iny						; is bank boundary closer than end
			cpy MWlength			;	of buffer?
			bcc @2					; no
			sty MWlength

@2			bit MWpoll				; need to poll MIDI input?
			bpl @2b					; no
			ldy #60					; transfer max. 60 bytes between polls
			cpy MWlength
			bcs @2a
			sty MWlength
@2a			pha						; poll MIDI input
			phx
			jsl MidiInputPoll
			plx
			pla
			
@2b			sec						; calculate end of block move
			sbc MWlength
			sta MWarray
			sec						; calculate number of bytes to move now
			txa
			sbc MWlength
			tax
			clc
			adc MWtail				; calculate new tail pointer
			sta MWtail
			adc OutBufAddr			; calculate actual address for MVP
			tay						; destination address for MVP
			txa						; number of bytes - 1 to move
			ldx MWarray				; source address for MVP

			jsl MVPGlue				; execute MVP instruction

			lda MWtail				; advance tail pointer
			inc a
			ldx MWlength			; more bytes to move?
			beq checktail			; no
			cmp OutBufSize			; did output buffer wrap?
			bcc @3					; no
			lda #0
@3		 	sta MWtail
			inc MWarray				; did source cross bank boundary?
			bne nextblock			; no
			sep #$20
			inc MWarray+2			; increment source bank
			bra newbank				; patch new source bank in MVP


;
;  check to see if we need to skip the tail pointer to the start of the buffer
;
checktail	cmp OutBufEnd
			bcc @1
			lda #0					; skip to start of buffer
@1		 	php						; disable interrupts
			sei
			sta OutBufTail
			stz OutBufEmpty			; output buffer is not empty

			bit MWpoll				; need to poll MIDI input?
			bpl checktime			; no
			jsl MidiInputPoll

;
;  check time stamp at head of buffer
;
checktime	lda OutputEnabled		; should we call driver output routine?
			beq mustwait
			lda PacketChars			; are we waiting for a packet?
			ora RealTimeChars
			bne mustwait 			; we have to wait for these chars
			ldy OutBufHead			; advance head pointer
			iny
			cpy OutBufEnd
			bcc @1
			tay						; skip to start of buffer
@1		 	iny
			iny
			iny						; compare upper three bytes of clock
			iny
			lda [OutBufAddr],y
			cmp Timer+2
			bcc startoutput			; packet is already very old
			bne mustwait 			; very long time before packet goes out
			dey
			lda [OutBufAddr],y
			cmp Timer+1
			bcc startoutput			; packet is already somewhat old
			bne mustwait 			; some time before packet goes out
startoutput	bit MWpoll				; need to poll MIDI input?
			bpl @1
			jsl MidiInputPoll		; poll MIDI input
@1			jsl DevPollXmtGlue		; call output routine

mustwait	plp						; restore interrupt status

noerror 	ldx #0					; no errors
			php
			sei						; disable interrupts

done		lda OutBufHead			; update max number of chars
			cmp OutBufEnd
			lda OutBufTail
			bcs getmax
			sbc OutBufHead			; note: tail-head-1
			bpl getmax
			adc OutBufSize			; head > tail
getmax		cmp OutBufMaxChars
			bcc nomax
			sta OutBufMaxChars
nomax		plp
			bit MWpoll				; need to poll MIDI input?
			bpl done1
			phx
			jsl MidiInputPoll
			plx
			
done1		stz MWactive
reenterdone	pld						; restore old direct page
			PopArgs s_argsize		; move RTL addresses
			txa						; restore error code
			cmp #1					; set carry appropriately
			rtl


;
;  insert real-time data at head of output buffer (but behind
;  any previous real-time data)
;
realtime	lda MWlength			; calculate number of data bytes
			sec
			sbc #6
			sta MWlength

			ldy OutBufHead			; calculate new head pointer
			tya
			sec
			sbc MWlength
			bcs @1
			adc OutBufSize
@1			sta OutBufHead
			sta MWdest

			ldx RealTimeChars		; were there previous real-time bytes?
			beq insertrealtime		; no

			sep #$20 				; move previous bytes down
			longa off

moveolddata	iny
			cpy OutBufSize
			bcc @1
			ldy #0
@1		 	sty MWsource
			lda [OutBufAddr],y		; load previous real-time byte
			ldy MWdest
			iny
			cpy OutBufSize
			bcc @2
			ldy #0
@2			sty MWdest
			sta [OutBufAddr],y		; store previous real-time byte
			ldy MWsource
			dex						; more real-time bytes?
			bne moveolddata
			rep #$20
			longa on

insertrealtime
			lda MWlength			; calculate new no. of real-time bytes
			tax
			clc
			adc RealTimeChars
			sta RealTimeChars
			ldy #6					; where to get bytes in source packet
			sty MWsource
			sep #$20
			longa off

insertloop	ldy MWsource			; get a byte from the source packet
			lda [MWarray],y
			iny
			sty MWsource
			ldy MWdest
			iny
			cpy OutBufSize
			bne @1
			ldy #0
@1		 	sty MWdest
			sta [OutBufAddr],y		; store byte in output buffer
			dex						; more bytes?
			bne insertloop
			rep #$20
			longa on

			jmp startoutput			; call output routine

			ENDP

			END
			
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/NoteSeq/chng.his.aii b/IIGS.601.SRC/GSToolbox/NoteSeq/chng.his.aii
new file mode 100644
index 0000000..065b9a9
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/NoteSeq/chng.his.aii
@@ -0,0 +1 @@
+******************** - Start of Change History - *******************************


; Copyright nineteen eighty seven too nineteen eighty eight.
; All rights reserved. Apple Computer, Inc. '87-'88/'88.

; 10/21/87
; VER .91P
; Fixed problem with not being able to have multiple phrases.

; 10/21
; fixed some problems with returning errors.  WrongTypeErr is not returned
; any more.

; 10/22/87
; Phd and tcd in SeqShutDown, hoping it will fix my bug of not being able to
; startup and shut down and play a sequence multiple times.

; changed order of start sound call in seqappst call.

; Not changing callers pointer in setinst anymore.
; Instnum now adds two to offset into inst table instead.
; this did    fix the problem of multiple setinsttable calls.
; 10/22/87
; ver .92P

; 10/28/87
; Fixed the problem with the Regesters, by aligning the regester info to
; the right.
; ver .93P

; 11/4/87
; Changed ppatt and chkoff so that if tick count and duration are equal
; the note will be turned off and the delay will not continue.
;
; The Timing was off by one tick too many. No it's not.
; ver .94P

; 11/16
; If increment is zero sequencer doesn't continue parsing but synthesizer does.
; 11/19
; Fixed bug dealing with if when tick count wraps.
; put in tables for midi.
; ver .95P

; 11/19
; LSB now sets mode 0 = interupts 1 = step mode
; MSB of mode sets midi. 1 = midi use enabled.

; 12/3
; MSB of Duration means that the note is awaiting a NoteOff, is not being used,
; or has wrapped around. If it has wraped around the MSB of Track won't be set.
; Other wize it will be set.

; The high bit of the channel paramater acts the same as the track paramter in
; the above note.

; the high byte of track in set track sets the channel, if to be used w midi.
; supports full midi use. (I think).
; ver .96P

; 12/7
; settrkinfo sets up the midi scratch regester in the trkinfo table, to
; determine if midi is on or off.
; all midi info should be working correctly now.  Check off and just midi.
; ver .97P

; 12/8
; midi only control command structure has been set up.

; 12/9
; put in midi3bytes, midi2bytes, midi1byte routines.

; 12/14
; program change and pitch bend have had midi capability added to them.

; 1/4
; fixed wrap bug, if tickcount wraps.

; 1/5
; put in AllNotesOff and FlushBuffer stuff.
; ver .98P

; 1/12
; SeqStartUp now shuts SoundTools if an error occured on NoteSynthStartUp.
; 1/12-1/13
; changed error chking to match .99P documentation with the exception of:
; NoMIDIErr which I dont use, instead I return miNoBufErr.
; check if sequencer is active before shutdown and startup.
; put in copyright notice.
; make compatiable with new MIDI Tool set.
; added caller error vector error handling for errors in sequence.
; I dont check to see if the sequencer is started or not.
; ver .99P

; 1-25-88
; _SeqStartUP now returns startederr if it's already been started up.
; _SeqShutDown now returns nostarterr if it hasn't been started yet.
; _StartSeq now returns nostarterr if it hasn't been started yet.

; 1-27
; fixed bug in user error handler routine. did a pei instead of pea.

; 1-28
; fixed bug where error handler wasnt being stored on dp.

; 1-29
; error handler really should have had pei not pea in 1-27.

; interupts are disabled when I call the err handling routine.
; ver 1.00P

; 2-2
; I also preserve my databank and directpage when calling the users
; error handler and completion routine.
; I also supply the user with the databank they had when they made the
; _SeqStartUp call. This databank is returned to the Completion routine,
; and to the error handling routine.

; 2-3
; I dont disable all interupts before I call the error handler routine.
; I do disable the note synth interupts though for both the error
; handling routine and the completion routine.

; 2-3
; Fixed bug. It wasnt working if you werent using midi.  No it does.

; 2-4
; Fixed a partial bug in justmidi routine, that was messing up the stack when
; I only wanted to do midi.  Its not completly fixed yet though.

; 2-5
; Check off wasnt building the midi note off corectly when doing only midi.
; This should completely fix the bug mentioned in 2-4.

; 2-6
; Now passes the N.Seq. error to the error handler properly.
; fixed stack problem when returning from error handler.

; 2-7
; Realtime now goes out in real time.
; midionebyterawdata is changed to be a system common command.
; miditwobytesRawData to be changed to a Hndl to a midi array.

; 2-9
; There are now Two commands that need to be maed to do a system exclusive
; midi command. This is necessary inorder to pass the ptr to the array.
; MidiOneByteRawData and MidiTwoByteRawData have been deleted.
; I do support a MidiSystemRealTime command now. See documentation for
; more specifics on how to make the call.

; 3-1
; fixed bug where start seq messed up the stack if there was an error.

; 3-2
; fixed bug in StopSeq if Midi set in Mode.

; 3-3
; fixed bug in turning off all of the notes.  I am now turning them off
; correctly in completion routine, and _SeqAllNotesOff.

; 3-7
; Seq reset is turning notes off correctly now.
; No stack checking on Error Handler
; IgnoreInts is set true in stopints and is only set in playseq.

; 3-16
; Don't turn off and on N.Synth osc any more.
; Turn off notes with duration before quiting.

; 4-4-88
; Fixed problem where sequence is finished before the end of the SeqStart call.

; 4-11-88
; Fixed bug where I get MIDI's DP in StartSeq not SeqStartUP.

; 4-12-88
; Vib depth command now gets midi/internal info from reserved paramater.
; Interupts disabled in start and stop timer.

; 5-2-88
; set doneflag to FFFF at startup.
; TickWrap doesn't hit a brk any more. 

; 5-25-88
; Error code wasn't getting returned correctly. It is now fixed.

; 5-31-88
; Changed sei, cli in instn2ptr to php, sei, plp.

; 6-1-88
; fixed all of bug, was pei 9 not pea 9.
; Now polls MIDI completly.
; returns error $1a07 if NSynth is the wrong version needs 1.2P or later.
; Can't do a midi flush event.

; 10-6-88
; Added _StartSeqRel call, this uses the same code as _startseq.  There was also
; a change to playseq to add RelAddr which is the relative address to be
; added to each pointer to a phrase or pattern, except the first phrase.  
; RelAddr is a new location on my first direct page.

********************* - End of Change History - *******************************
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/NoteSeq/data.aii b/IIGS.601.SRC/GSToolbox/NoteSeq/data.aii
new file mode 100644
index 0000000..1dbd03a
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/NoteSeq/data.aii
@@ -0,0 +1 @@
+;------------------------------------------
;
; Equates from procedure seqdata
;
;------------------------------------------
seqwap         equ    $E1017E           ; Sequencer's not Schedulers.
seqtnum        equ    26                ; The Note Sequencers Tool Number.
ver_num        equ    $0104             ; prototype bit taken out 5/31/89, HY.
gstatreg       equ    $E1C03C
gdatareg       equ    $E1C03D
gadrl          equ    $E1C03E
gadrh          equ    $E1C03F
sysvol         equ    $E100CA
doc_ctrl       equ    $A0
timer_osc      equ    $0E
doc_irq_bit    equ    $08
doc_halt_bit   equ    $01
doc_halt_mask  equ    $FE

NSPollVer		equ		$0103		; version 1.2 of N.Synth polls midi.
errNSWrngVer	equ		$1A07		; error N.Synth is an incompatible version.

********************************************************************************
*
* Copyright nineteen eighty seven too nineteen eigthy eight.
* All rights reserved. Apple Computer, Inc. '87-'88/'88.
*
********************************************************************************

********************************************************************************
*
* File SEQ.DATA.ASM
*
* Miscellaneous system dependant equates for the note sequencer.
*
* 6 Jan 87     JW New Today
*
********************************************************************************

		EXPORT	seqdata  
seqdata  PROC


; The Error Equates.



; sound glu equates



		ENDP
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/NoteSeq/dirpage.aii b/IIGS.601.SRC/GSToolbox/NoteSeq/dirpage.aii
new file mode 100644
index 0000000..282fba7
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/NoteSeq/dirpage.aii
@@ -0,0 +1 @@
+	pagesize 71
;------------------------------------------
;
; Equates from procedure 
;
;------------------------------------------
doneflag  equ      0                   ; set if seq is completed (0 StartSeq)
flag1     equ      doneflag+2          ; user flag 1             (0            
flag2     equ      flag1+1             ; user flag 2              0
flag3     equ      flag2+1             ; user flag 3              0
flag4     equ      flag3+1             ; user flag 4              0
flag5     equ      flag4+1             ; user flag 5              0
flag6     equ      flag5+1             ; user flag 6              0
flag7     equ      flag6+1             ; user flag 7              0
flag8     equ      flag7+1             ; user flag 8              0 SAppStart)
inpattp   equ      flag8+1             ; in pattern flag  0,FFFF. 0 StartSeq.
mode      equ      inpattp+2           ; Sequencer mode async/sync
tickfract equ      mode+2              ; fractional tick increment
tickcount equ      tickfract+2         ; tick count for seq items
increment equ      tickcount+2         ; how many facts per count
d1        equ      increment+2         ; first scratch register
d2        equ      d1+4                ; second scratch register
d3        equ      d2+4                ; third scratch register
seq       equ      d3+4                ; the current sequence item
curphrase equ      seq+4               ; current pattern in phrase.
curpatt   equ      curphrase+2         ; current seqitem in pattern.
level     equ      curpatt+2           ; depth in table of phrases.
delaytime equ      level+2             ; tick count to start on again
complrout equ      delaytime+2         ; completion routine
mididp    equ      complrout+4         ; the dp for midi.
numinsts  equ      mididp+2            ; number of instruments in inst table.
insttab   equ      numinsts+2          ; pointer to the instrument table
RelAddr	  equ      insttab+4		   ; relative address used, MyFlags has bank.
MyFlags   equ      RelAddr+2           ; low byte RelAddress bank.
									   ; flag for interrupt handler, try to quit.
errhandlr equ      MyFlags+2           ; ptr to users error handler.
databank  equ      errhandlr+4         ; the users data bank reg.
SysExlDB  equ      databank+2          ; the data bank used for SysExl Cmd.
SeqItem  equ  SysExlDB+2               ; space to save the current seq item.
maxduration equ SeqItem+4
NoteOnAddr     equ maxduration+2
NoteOffAddr    equ noteonaddr+4
AllocAddr      equ noteoffaddr+4
MidiWriteAddr  equ allocaddr+4
phrasetab equ      $100-166                 ; 90
gentab    equ      $100-70           ; information for generators
gentabdur equ      $100              ; information for generators
gentabdur1 equ      $00              ; information for generators
gentabtrk equ      $140              ; information for generators
gentabtrk1 equ      $40              ; information for generators
trkinfo   equ      $200-128  ; the track info table
base      equ      0
ignoreint equ      $8000
notignoreint equ      $7FFF
nottrytoquit equ	   $BFFF
trytoquit equ		$4000
curtrk    equ      d2                  ; the track we are playing on 
curgen    equ      d2+2
* MIDIInputPoll	equ		$E11DD8			; address for polling midi. get from E16.midi.
*******************************************************************************
*
* File SEQDIRPAGE.A -- Direct page equates for the Note Sequencer
*
* Copyright nineteen eighty seven too nineteen eighty eight.
* All rights reserved. Apple Computer, Inc. '87-'88/'88.
*
*   Modification History
*
*   5 Jan 87     JW     New Today
*   2 Feb 87     JW     Added generator table stuff
*  14 Mar 88   MD    Added SeqItem, switch away from saving seq item on stack.
*
*******************************************************************************


******************************************************************************
* Note that the first 10 bytes are accessible by the application.            *
* They can never be moved!!!!                                                *
******************************************************************************


;$10
;$20
;$30
;$40
;$56
;end
;$5A or 90.

******************** - Start Of Phrase Table - ********************************
*
* the Phrase table is an array of 12 8 byte entries.
* it is always the last thing in the first page of direct page
* The entries are arranged as:
;         phrase low          1 word
;         phrase hi           1 word
;         index               1 word
;         scratch             1 word


******************* - End Of Phrase Table - ***********************************

******************* - Start Of Generator Table - ******************************
*
* generator table -- This table contains the information we need for dealing
* with note synthesizer it looks like:
  
;         duration  1 word       $8080
;         semitone  1 word       $8080
;         track     1 byte       $80


* The following is information for keeping track of MIDI Voices.
;          duration 1 word        $8000

;          track    1 byte (Hi)   $80  low nibble is channel #
;          Semitone 1 byte (Low)  $00

******************* - End Of Generator Table - ********************************

******************* - Start Of Track Info Table - *****************************

; the track info table contains various pieces of information about the
; individual tracks. There are 8 bytes used per track. It is broken
; down as follows:
;         priority   -word
;         scratch    -word     low nibble is midi channel, msb 1 if midi.
;         instrument -long     zero if no internal voices.
; 
; The scratch is there because I'm sure I'll find something that will have
; to be placed in here.


******************* - End Of Track Info Table - *******************************
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/NoteSeq/makefile b/IIGS.601.SRC/GSToolbox/NoteSeq/makefile
new file mode 100644
index 0000000..f0bfaf7
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/NoteSeq/makefile
@@ -0,0 +1 @@
+SrcDir	=	:
ObjDir	=	:obj:
LstDir	=	:lst:

Defines	=	{SrcDir}Data.aii					¶
			{SrcDir}DirPage.aii

Sources	=	{SrcDir}tool.aii

Objects	=	{ObjDir}tool.aii.obj

Lists	=	{LstDir}tool.aii.lst

tool026		Ä	{Objects} {SrcDir}makefile			
	LINKIIGS {Objects} -o tool026 -t tol
#	DUPLICATEIIGS -y -mac tool026 tool026
# 	MAKEBINIIGS tool026 -o tool026.bin
# 	EQUAL tool026.bin tool026.gsbin
# 	DELETE tool026.bin

{ObjDir}	Ä	{SrcDir}
.aii.obj	Ä	.aii
	ASMIIGS -o {ObjDir} {SrcDir}{Default}.aii
	
{ObjDir}tool.aii.obj		Ä	{SrcDir}tool.aii		{Defines}
	
listings	Ä	{Sources}
	ECHO "Last listings made `Date`" > listings
	ASMIIGS -l -lo {LstDir} -o {ObjDir} {NewerDeps}
	LINKIIGS {Objects} -o {LstDir}listlink -l > {LstDir}link.lst
	DELETE {LstDir}listlink
	MAKE listings2 > MAKE.PRINT.CMDS
	MAKE.PRINT.CMDS
	DELETE MAKE.PRINT.CMDS
	
listings2	Ä	{Lists} {Defines} {LstDir}link.lst
	ECHO "Last listings made `Date`" > listings2
	PRINT -h -r -f monaco -s 6 -hf helvetica -hs 12 {NewerDeps}
	
backup		Ä
	BACKUP -a -t 'TEXT' -e -from {SrcDir} -to 1
	
tobuild		Ä
	BACKUP -a -t 'TEXT' -e -from {SrcDir} -to Trouble:Sources:midi:miditools:
	
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/NoteSeq/tool.aii b/IIGS.601.SRC/GSToolbox/NoteSeq/tool.aii
new file mode 100644
index 0000000..877a2dd
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/NoteSeq/tool.aii
@@ -0,0 +1 @@
+**********************************************************************
*
* Note Sequencer
*
* Copyright Apple Computer 1987-1988
* All Rights Reserved
*
*
* Change History
*
* 28 Jun 88	Steven Glass
*
* Removed all export statements.  Changed name of SeqFPT to 
* NoteSeqCallTable and exported it.  Formatted the file with
* AsmMatIIGS.
*
* 7 July 88	Matt Denman
*
* Changed version number.  Changed short and long to use all.macros equ.
* I also now use the standard all.macros not my own. I also include the 
* equates files for: Midi, NoteSeq.  Also fixed problem of handling errors
* SeqStartUp.
*
**********************************************************************
	string asis
	blanks off
	pagesize 71
	print NOGEN, NOMDIR, NOHDR, push

strip	equ $E10184

;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

	print off
	ENTRY AllocGlue
	ENTRY ErrorHndlr
	ENTRY FindVol
	ENTRY Midi2Out
	ENTRY Midi3Out
	ENTRY MidiCntrlChng
	ENTRY MidiNoteOff
	ENTRY doMidiNoteOn
	ENTRY doMidiPitchBend
	ENTRY doMidiPolyKey
	ENTRY MidiPressureChng
	ENTRY MidiProgramChng
	ENTRY MidiSelctChnlMode
	ENTRY MidiSysExl
	ENTRY MidiSystemCommon
	ENTRY MidiSystemRealTime
	ENTRY MidiWriteGlue
	ENTRY NotImp
	ENTRY NotImp2
	ENTRY NoteOffGlue
	ENTRY NoteOnGlue
	ENTRY SysExlDataBank
	ENTRY TickWrap
	ENTRY allnoteoff
	ENTRY callcmplt
	ENTRY callRoutine
	ENTRY checkoff
	ENTRY chngtempo
	ENTRY clearincr
	ENTRY clrgentabls
	ENTRY decflag
	ENTRY deref
	ENTRY dopbend
	ENTRY endcall
	ENTRY errout
	ENTRY finddur
	ENTRY findtone
	ENTRY findtrk
	ENTRY findval2
	ENTRY getloc
	ENTRY gettime
	ENTRY doifgo
	ENTRY incflag
	ENTRY instn2ptr
	ENTRY dojump
	ENTRY justmidi
	ENTRY noteoff
	ENTRY noteon
	ENTRY oendcall
	ENTRY oerrout
	ENTRY plypatt
	ENTRY progchng
	ENTRY quitsequence
	ENTRY seqactive
	ENTRY seqappst
	ENTRY seqboot
	ENTRY seqint
	ENTRY seqreset
	ENTRY seqshtdwn
	ENTRY seqvers
	ENTRY setflag
	ENTRY setincr
	ENTRY setinst
	ENTRY settrkinfo
	ENTRY startint
	ENTRY startseq
	ENTRY startseqrel
	ENTRY starttimer
	ENTRY stepseq
	ENTRY stopint
	ENTRY stopseq
	ENTRY turnseqnotesoff
	ENTRY vibdepth

	MACHINE M65816
	INCLUDE 'E16.MIDI'
;	INCLUDE 'E16.NoteSeq'
;
; 2/2/90 Mensch
; The following equates were added from the e16.NoteSeq file because that files can not be
; included due to the number of symbol conflicts
;
noRoomMidiErr EQU $1A00
noCommandErr EQU $1A01  ; can't understand the current SeqItem
noRoomErr EQU $1A02  ; sequence is more than twelve levels deep
startedErr EQU $1A03  ; Note Sequencer is already started
noNoteErr EQU $1A04  ; can't find the note to be turned off by the current SeqItem
noStartErr EQU $1A05  ; Note Sequencer not started yet
instBndsErr EQU $1A06  ; Instrument number out of Instrument boundary range
nsWrongVer EQU $1A07  ; incompatible versions of NoteSequencer and NoteSynthesizer
; offset constants for LocRec
ocurPhraseItem EQU 0
ocurPattItem EQU 2
ocurLevel EQU 4
;
;
	INCLUDE 'all.macros'
; private macros
	macro
&lab	SetMode16
&lab
	rep #$30
	longa on
	longi on
	ENDM

	macro
&lab	SetMode8
&lab
	sep #$30
	longa off
	longi off
	ENDM


	INCLUDE 'chng.his.aii'
	INCLUDE 'dirpage.aii'
	INCLUDE 'data.aii'
	print pop

********************************************************************************
*
*    File SEQ_TOOL_A -- Note Sequencer Function Pointer Table
*	    Required Tool Calls
*
* Copyright nineteen eighty seven too nineteen eighty eight.
* All rights reserved. Apple Computer, Inc. '87-'88/'88.
*
*    Modification History
*
*    5 Jan 87	    JW    New Today
*   17 Feb 87	    JW    Completely re-wrote the required calls
*    2 June 87	    JW    Converted	to APW from MPW
*   10/6/88	MD	Added Relative Address stuff.
*
********************************************************************************

NoteSeqCallTable	PROC EXPORT

FPT	DC.L $16	; number of calls
	DC.L seqboot-1	; 1 - boot init routine
	DC.L seqappst-1	; 2 - application startup
	DC.L seqshtdwn-1	; 3 - application shutdown
	DC.L seqvers-1	; 4 - tool version number
	DC.L seqreset-1	; 5 - system reset
	DC.L seqactive-1	; 6 - tool initialized?
	DC.L notimp-1	; 7 - reserved by system
	DC.L notimp-1	; 8 - reserved by system

	DC.L setincr-1	; 9 - set increment
	DC.L clearincr-1	; 0A - clear increment
	DC.L gettime-1	; 0B - get current seq time
	DC.L getloc-1	; 0C - get pos in sequence
	DC.L allnoteoff-1	; 0D - all notes off
	DC.L settrkinfo-1	; 0E - setup the trackinfo info
	DC.L startseq-1	; 0F - play the sequence
	DC.L stepseq-1	; 10 - play next item
	DC.L stopseq-1	; 11 - stop seq being played
	DC.L setinst-1	; 12 - set inst table
	DC.L startint-1	; 13 - start NS interrupt
	DC.L stopint-1	; 14 - stop NS interrupt
	DC.L startseqrel-1	; 15 - play the relative sequence.

	ENDP

********************************************************************************
*
*  seqboot -- call number 1
*
*  This routine is called when the sequencer is first loaded into
*  ram. Nothing is actually done until the startup call
*
*  Inputs: none
*
*  Outputs: none
*
*  Errors: none
*
*  Registers: not preserved
*
********************************************************************************

seqboot	PROC
	ldy #$00
	jmp oendcall	; I told you it did	nothing

	ENDP


***************** -	SeqStartUp - Call Number 2 - ********************************
*			                   *
*  seqstartup -- call number 2		                   *
*			                   *
*  This routine handles intializing the	Note Seq., Note Synth. and Sound Tools.*
*  It requires 3 pages of direct page:		                   *
*        1 goes to sound tools/note synthesizer.	                   *
*        2 go to the sequencer.		                   *
*			                   *
*			                   *
*  Inputs:     direct page : word < top	of stack >	                   *
*              mode	       : word  ; 0 = async 1 = sync 2-FFFF not defined     *
*	             If High Bit set might use MidiTools           *
*              update_rate : word ; 500	= 200hz	                   *
*              increment   : word ; how	many fracts per tick                   *
*			                   *
*  Outputs:    none			                   *
*			                   *
*  Errors:     returns StartedErr NSStartUp and SoundStart errors              *
*			                   *
*  Calls:      ClrGenTabls, StopTimer, SetWap.	                   *
*			                   *
*  Sets Up:    synthdp, seqwap, databank, mode, increment, gentables, all flags*
*              tickfract, and tickcount.	                   *
*			                   *
*  History:    3-7-88   Cleaned up format.	                   *
*	    Added StartedErr.	                   *
*              3/14/88  Only do 4 stz to clear flags 1-8.	                   *
*	    Adjusted phb so	that I could use only one error entry. *
*	    Fixed error of bad stack if N.Synth	is already started.*
*              6/30/88  Moved set wap to end of call, after nsstartup.         *
*                       This way I don't think I'm started when I'm not.       *
*              7/6/88   Deleted started error section that wasn't being used,  *
*                       and fixed bug were I didn't set my wap correctly.      *
********************************************************************************

seqappst	PROC

*         using	seqdata

dirpage	equ 15	; some equates for stackrel stuff
mode1	equ 13
update1	equ 11
incr	equ 9
rtls	equ 3-8
olddp	equ 1	; old direct page


	phd	; old dir page on stack
	tax	; set my flags.
	beq goon	; if zero than no wap so not started.
	lda #StartedErr	; get error code, (cary not effected).
	jmp error	; return the error.
goon	phb	; their bank.
	phb
	lda dirpage+2,s
	tax	; save it till after we setup dp
	clc
	adc #$100	; our dirpage is the last two pages
	tcd
	sta >seqwap	; also so we don't getwap in int hndlr

; save their databank

	pla	; get their bank.
	and #$00FF	; only want one byte.
	sta databank	; save their bank.


; first we initialize the sound tools. If something bad happens here,
; then there is no point in going further.


	pha	; space for NSVersion
	_NSVersion	; Make sure it's midi polling ver.
	pla
	and #$7FFF	; Don't care if it's a prototype.
	cmp #NSPollVer	; version with midi	polling.
	bcs @0	; if set version is	ok.
	lda #errNSWrngVer	; wrong version error number.
	jmp error	; report error and quit.

@0	lda dirpage,s	; initialize the sound tools
	pha
	_soundstartup
	bcc @1
	jmp error

; now store the id and the mode in direct page

@1	lda mode1,s
	sta mode	; put mode in direct page
	bmi A2
	jmp nomidi

A2	pushlong #0	; space for result.
	pushword #0	; system tool.
	pushword #$0E20	; midiwritepacket call number.
	_GetFuncPtr
	pla	; save address in MidiWriteAdd.
	sta MidiWriteAddr
	pla
	sta MidiWriteAddr+2

nomidi	pushlong #0	; space for result.
	pushword #0	; system tool.
	pushword #$0B19	; midiwritepacket call number.
	_GetFuncPtr
	pla	; save address in MidiWriteAdd.
	sta NoteOnAddr
	pla
	sta NoteOnAddr+2

	pushlong #0	; space for result.
	pushword #0	; system tool.
	pushword #$0C19	; midiwritepacket call number.
	_GetFuncPtr
	pla	; save address in MidiWriteAdd.
	sta NoteOffAddr
	pla
	sta NoteOffAddr+2

	pushlong #0	; space for result.
	pushword #0	; system tool.
	pushword #$0919	; midiwritepacket call number.
	_GetFuncPtr
	pla	; save address in MidiWriteAdd.
	sta AllocAddr
	pla
	sta AllocAddr+2

	lda incr,s
	sta increment


; make sure that we	zero out the counters as a matter of general
; principle.

	stz tickfract	; zero out counters
	stz tickcount
	stz maxduration

; Clear out the variables needed for _GetLoc.

	lda #$FFFF
	sta doneflag

	stz complrout	; mark no comp routine.
	stz complrout+2	; incase someone does a _StopSeq
		; before a _startSeq
	stz level
	stz curpatt
	stz curphrase

; Clear all of the user flags. (flags are 1 byte, writing two bytes)

	stz flag1
*         stz	flag2
	stz flag3
*         stz	flag4
	stz flag5
*         stz	flag6
	stz flag7
*         stz	flag8


; Clear the genarator table

	jsr clrgentabls


; I need to initialize the note synthesizer so that I can have it call me
; during it's interupts.  However, I don't want it to interrupt if I'm 
; not playing. So once the note synthesizer is started I turn off the
; interrupt and don't turn it back on until I am done playing a sequence.
; So an application	must make a startints call after starting the note seq.
; and before they want to make note synth calls.

; Interupts disabled.
	php
	sei	; No Interupts.

	lda #ignoreint
	sta MyFlags

	lda update1+1,s	; initialize the note synth
	pha	; +1 because of php	above
	lda mode
	and #$0001
	bne noupdates

	pushlong #seqint	; update routine for sequencer
	bra gogo

noupdates	pushlong #$0000

gogo	_nsstartup
	bcs errorp

	plp	; ints back on.
; Interupts enabled.

; set the wap showing that the sequencer is started up.
; and so the tool locator will keep track of the direct page for us.

	pea 00	; system tool
	pea seqtnum	; tool number 26
	pea 00
	lda >seqwap	; get the seqwap
	pha	; direct page for seq
	_setwap

; restore the direct page and cleanup

endc	pld	; restore old direct page
	ldy #$08
	jmp oendcall

errorp	plp
	pha	; save the error code.
	_SoundShutDown
	pla	; restore the error	code.

error	pld
	ldy #$08
	tax
	lda #0
	sta >seqwap	; cancel the dp since error.
	jmp oerrout

	ENDP




*******************************************************************************
*
*  seqshutdown -- call number 3
*
*  Inputs: none
*
*  Outputs: none
*
*  Errors: NSNotInit
*
*  Calls:      _SetWap, _NSShutDown, _SoundShutDown.
*
*  Registers: none preserved
*
*  Assumes:    WAP in A from tool locator is zero if we don't have one.
*              If we don't have a WAP we weren't started.
*
*  History:    3/14/88 now I check to see if I'm started after my tcd.
*              3/28/88  rewrote comments. add Calls:
*
*******************************************************************************

seqshtdwn	PROC
*         using	seqdata


	phd	; push old dir page
	tcd	; get my dirpage and set z bit.

	php
	sei

	beq myerror	; if 0, no dp and I	didnt get started.

	pea 00	; system
	pea seqtnum	; tool 26
	pea 00	; new WAP = 00
	pea 00
	_SetWAP

	lda #$00
	sta >seqwap	; zero out the stash also - just in case

	_nsshutdown	; shutdown the note	synth
	bcs error	; if error process it.
	_soundshutdown	; shutdown the sound tools

	plp
	ldy #$00
	jmp endcall	; bye bye
myerror	lda #nostarterr
error	plp
	ldy #$00
	tax
	jmp errout

	ENDP



;---------------------------------------------------------------
;
;  seqversion -- call number 4
;
;  Inputs:
;
;  Outputs: version	number : word
;
;  Errors: none. Should never have any.
;
;---------------------------------------------------------------

seqvers	PROC
*         using	seqdata

	lda #ver_num
	sta 7,s

	ldy #$00
	jmp oendcall

	ENDP


********************************************************************************
*			                   *
*  seqreset -- call	number 5		                   *
*			                   *
*  If Sequencer is started up then I TurnSeqNotesOff.	                   *
*			                   *
*  Inputs:     none			                   *
*			                   *
*  Outputs:    none			                   *
*			                   *
*  Errors:     none			                   *
*			                   *
*  History:    3/14/88  Started to reformat.	                   *
*              3/28/88  Now I check to see if I'm started.                     *
*              9/19/88  Use end call routine that pulls D-reg                  *
********************************************************************************

seqreset	PROC

	phd	; save old direct page.
	tcd	; set my direct page.
	beq exit	; if no dp then quit.

	jsr turnseqnotesoff

exit	ldy #$00
	jmp endcall	; do nothing for now

	ENDP



********************************************************************************
*			                   *
*  seqactive -- call number 6		                   *
*			                   *
*  This routine makes the assumption that if the WAP is non-zero               *
*  then we have been initialized.		                   *
*			                   *
*  Inputs:     none			                   *
*			                   *
*  Outputs:    status : word	; 0 = unactive, ~0 = active            *
*			                   *
*  Errors:     none			                   *
*			                   *
*  History:    3/0?/88  Now I do a tax instead of a pha, pla to set cnd codes. *
*			                   *
********************************************************************************

seqactive	PROC
*         using	seqdata

	tax	; set condition codes
	beq deaddog	; we're not really here
	lda #$FFFF	; return true
deaddog	sta 7,s

	ldy #$00
	jmp oendcall

	ENDP

;---------------------------------------------------------------
;
;  NotImp
;  a generic dummy call for all occasions
;
;  Inputs:
;
;  Outputs:
;
;---------------------------------------------------------------

notimp	PROC

	ldy #$00
	jmp oendcall	; do nothing

	ENDP


; the dreaded include files

;          copy	 seq.play.asm

; Copyright nineteen eighty seven too nineteen eighty eight.
; All rights reserved. Apple Computer, Inc. '87-'88/'88.

********************************************************************************
*			                   *
*  PlaySeq			                   *
*			                   *
*  Main code for sequence interpreter.		                   *
*			                   *
*  This routine is called from the interrupt handler when the count is         *
*  incremented. It assumes that there is a pointer to a phrase in the          *
*  phrase table. This is setup initially by the StartSeq call. The             *
*  phrase table is added to by this routine.	                   *
*			                   *
*			                   *
*  Errors:     noroomerr,		                   *
*              PlyPatt errors		                   *
*			                   *
*  Calls:      PlyPatt, CallCmplt, ErrorHndlr, StopTimer.	                   *
*			                   *
*  History:    2/9/87   New Version of player by JW	                   *
*              3/14/88  Started to change the formatt.	                   *
*	    Put in chages discussed by Don and I. MD.              *
*	    Rewrote: go_on2, phrdone, notyet, gotphrase.           *
*	    inc dp, lda dp -> lda dp, inc a, sta dp.               *
*	    Relocated exit and error to avoid brl.                 *
*	    Changed branching of error after jsr plypatt.          *
*	    Reset location information before quiting.             *
*              3/16/88  Changed jmp callcmplt to quitsequence                  *
*	10/6/88  Added RelAddr to pointers.	                   *
*			                   *
********************************************************************************


playseq	PROC
*         using	seqdata

; The main part
;
; The logic goes something like this:
;
; First check inpattp, FFFF if in it 0 if not in a pattern.	 If in a patt
; then go straight to play pattern.  Then check again and if still in a patt
; quit because we hit a delay. Otherwize go on to get a pattern.
;
; 1.) we look at the first item in the phrase and if its a termination
;   item then we terminate and return to the caller.
;
; 2.) if the first item is another phrase then we call seqplay with that
;   phrase.
;
; 3.) if the item is a pattern then we call plypatt with the pattern
;
; in the case of 2 or 3 we loop until we find a terminator.

; check the pattern	index to see if we belong here.

	lda inpattp	; See if we are in the middle of a pat.
	beq go_on	; if not parse through to one.

	jsr plypatt	; Else start playing the pattern.
	bcs error	; if error, return it.
noerr	lda inpattp	; Are we still in a	pattern?
	beq go_on	; If No parse through to a pattern.
	bra exit	; Otherwize exit until next time.


; before we go on to play the next item	in the phrase, we need to restore
; seq so that it points to the phrase. The current phrase should be in 
; the table and indexed by level. Note that if this is the first time
; through then StartSeq had better have	set up the table.

go_on		; 

	lda level	; how deep we are
	asl a	; [0..11] of 8 bytes each.
	asl a
	asl a

	tax
	lda phrasetab,x	; get the low part
	sta seq
	lda phrasetab+2,x	; get the high part
	sta seq+2
	lda phrasetab+4,x	; get the current item index
	sta curphrase



; since were not in	a pattern, we need to move to the next item in the
; phrase and play it.


go_on3		; 
	stz curpatt	; reset items to seqro
	lda curphrase
	inc a	; move to next pattern or phrase.
	sta curphrase	; save the current patt or phrase.
	sta phrasetab+4,x	; save curphrase off

	asl a	; make it an index to the next item.
	asl a
	tay


; check for the next item being a terminator. 'seq' is a dir page 
; location that always contains a pointer to the current item being
; worked on. Here it is assumed that the pointer is to a phrase. In
; playpatt 'seq' points to the pattern being played.

; If we go to notyet: A = first seq word, y = set to get second seq word.

go_on2	lda [seq],y	; current phrase we	are working on.
	iny
	iny
	cmp [seq],y	; see if the same.
	bne notyet	; if not then can't be a terminator.
	cmp #$FFFF	; if both bytes same, see if $FFFF.
	bne notyet	; if not then it must be a terminator.


; at this point, we	have finished playing a phrase. One of two things must
; be done. 
;         1) if the	phrase we finished wasn't the top level then we need
;            to pick up where we were prior to the descent. 
;         
;         2) if the	phrase was to top level then we need to	call the 
;            compleletion routine.
;
	entry phrdone
phrdone		;       
	lda level	; get the level.
	beq docmplt	; if level zero then done with the seq.
*        sec		; get next level.
*        sbc   levelsize	; subtract the size	of level(pre Indx).
*  do the above when I change level to be pre Indexed.

	dec a	; get next level.

	sta level	; save new level.
	bra go_on	; parse the next item (Phrase pointer).

docmplt	stz level	; clear locations for _getloc.
	stz curpatt	;
	stz curphrase	;
	clc	; no error coming into callcmplt.
	jmp quitsequence	; quit the sequence.

* make error and exit more centrally located for speed of exit.

exit	clc
	rts

; entries into error for loading error codes.

ToCommandErr	lda #nocommanderr
	bra error

ToNoRoomErr	lda #noroomerr

; First thing: save	the error code in d3+2.
error	sta d3+2	; save error for errorhndlr

; Call the error handler

	phb	; save my bank.
	jsl ErrorHndlr	; call the users error handler.

; get my directpage	back
	lda >SeqWap	; get my dirpage.
	tcd	; and reset my dirpage just incase.

; get my bank back.
	plb	; get my data bank back.

; Now call completion routine.
	jmp callcmplt	; quit the sequence.
	clc	; dont report err to interupt hndlr.
	rts



; If its not a terminator, then it had better be a phrase or a pattern.
; If its a phrase then we need to do a depth first search uptil we find 
; a pattern. Once we find a pattern (or	if we started with one) we need to
; set up the variables so that playpatt	is called the next time. 

notyet		; 

	clc	; Add RelAddr to my pointer.
	adc RelAddr	;
	sta d1	; save the 1st word	of seq pointer.
	lda [seq],y	; get the 2nd word of pointer.
	sta d1+2	; save in temp space.
	lda MyFlags	; get RelAddr high byte.
	and #$00FF	; and only the bank.
	adc d1+2	; and finally add it.
	sta d1+2	; and save it.
	ldy #2	; index for high word of ptr.
	lda [d1],y	; get the high word.
	ora [d1]	; get the tag field	of the header
	beq gotpatt	; looks like we got	a pattern

; looks like we got	ourselves another phrase. If there is still room in 
; the table then we	move the pointer into seq and also into	the phrase
; table. Otherwise we return an error.

gotphrase	dec a	; see if it was one, now zero.
	bne tocommanderr	; if not zero it wasn't a phrase.
dophrase	lda level	; where are we in the table?
*        cmp   leveltablesize-levelsize	; see if there is any room in table.
* do something like	this with symbolic equates.
	cmp #$0B	; number of levels - 1.
	bcs tonoroomerr	; if no room, return error.
*        clc		;
*        adc   levelsize	; increment to next	level.
	inc a	; increment to next	level.

roomleft	sta level	; save the new level
	asl a	; turn level into an index
	asl a
	asl a
	tax
	lda d1	; move the phrase into the table and seq
	sta phrasetab,x
	sta seq
	lda d1+2
	sta phrasetab+2,x
	sta seq+2
	stz phrasetab+4,x	; initialize curphrase to 00
	stz curphrase

	jmp go_on3	; play it again, sam.


gotpatt	lda d1	; move the pointer into seq
	sta seq
	lda d1+2
	sta seq+2
	stz curpatt
	lda #$FFFF
	sta inpattp
	jmp playseq	;go play the pattern now.

	ENDP

********************************************************************************
*			                   *
*  QuitSequence			                   *
*			                   *
*  This is called when the sequence wants to quit.  It makes sure that all     *
*  notes with durations are turned off before it will quit the sequence.       *
*			                   *
*  Calls:      CallCmplt.		                   *
*			                   *
*  Sets:       TryToQuit = 0 decremented for each call,	                   *
*			                   *
*  Called by:  StopSeq, PlaySeq.		                   *
*			                   *
*  History:    3/16/88  New.		                   *
*			                   *
********************************************************************************

quitsequence	PROC
*        using SeqData

	lda tickcount	; get number of ticks.
	cmp maxduration	; check if all notes should be off.
	bge docmplt	; if should be off callcmplt.
	lda #TryToQuit	; set try to quit.
	ora MyFlags
	sta MyFlags
	rts
docmplt	jsr callcmplt
	rts

	ENDP

********************************************************************************
*			                   *
*  CallCmplt			                   *
*			                   *
*  This routine is called when the sequence is through playing.                *
*  It calls the user supplied completion routine, if there is one.             *
*  This is also called if there is an abotion due to an error or StopSeq call. *
*  completetion routine then the done flag is set to $FFFF	                   *
*			                   *
*  Assumes:    carry set if error (being called by because an err occured).    *
*			                   *
*  Calls:      StopTimer, Users Error Handler.	                   *
*			                   *
*  Sets:       DoneFlag = $FFFF.		                   *
*			                   *
*  Regesters:  DataBank and DP are preserved.	                   *
*			                   *
*  Called by:  StopSeq, PlaySeq.		                   *
*			                   *
*  History:    3/14/88  Started to change formatt.	                   *
*	    Don't set ignoreint, becase it's set by stoptimer.     *
*			                   *
********************************************************************************

callcmplt	PROC
*        using SeqData

	lda #ignoreint
	ora MyFlags
	sta MyFlags
docomplt	lda complrout	; check for a completion routine
	ora complrout+2
	beq nocompl

; looks like we have a completion routine so we call it. The routine 
; should return with an rtl.


; Poll Midi before AllocGenerator.
	jsl MIDIInputPoll

	phb	; save my bank
	phk	; program bank for return.
	pea return-1	; push address to return to.
	pei complrout+1	; push bytes 3,2 of	complrout.
	lda databank	; get their databank
	pha	; push junk and their databank.
	plb	; get their data bank setup.
	lda complrout	; get byte 2, 1 of complrout.
	dec a	; make it point correctly.
	sta 1,s	; rewrite 2, 1 over	2, and junk.
	rtl	; go to complrout.
return		; 
	plb	; save my databank
	lda >seqwap	; get my directpage.
	tcd	; set my directpage.

; there is no completion routine so we set the done flag and get out
; of here.

nocompl	lda #$FFFF
	sta doneflag
	lda #$00
	clc
	rts
	ENDP

;          copy	 seq.ppatt.asm
*  Copyright nineteen eighty seven too nineteen eighty eight.
*  All rights reserved. Apple Computer,	Inc. '87-'88/'88.

********************************************************************************
*			                   *
*  plypatt			                   *
*			                   *
*  Parses the current pattern and performs the action descibed by the seqitem. *
*			                   *
*  History:    2/10/87  New Version by JW.	                   *
*              3/14/88  Changed Formatt.	                   *
*	    Rewrote everything.	                   *
*	    Not putting seq	item on stack any more.                *
*              3/16/88  Adding code to support turning duration notes.         *
*			                   *
********************************************************************************

plypatt	PROC
*         using	seqdata

; If delaying quit until times up.  Otherwize clr delaytime	and play pattern.

ckdelay	lda delaytime	; see if i'm delaying, and how long.
	beq cont1	; if no delay continue, else...
	cmp tickcount	; see if time is up	yet.
	beq clrflg	; if so continue.
	bcs exit	; else exit.

clrflg	stz delaytime

; Turn off all the notes with expired durations.

cont1	jsr checkoff	; turn off notes as	appropriate.

; Get the next seq item.

nxtitem	jsl MIDIInputPoll
	lda curpatt	; get the curpatt.
	inc a	; make it point to the next one.
	sta curpatt	; save the new curpatt.
	asl a	; make it into an index
	asl a	;
	tay	;
	lda [seq],y	; get the low part of the item
	sta seqitem	; save in seqitem
	iny	;
	iny	;
	lda [seq],y	; get the high part	of the item
	sta seqitem+2	; save in seqitem.
	cmp seqitem	; see if they are the same.
	bne itsok	; if not equal then	not a terminator.
	cmp #$FFFF	; check for terminator
	bne itsok	; Not FFFF and same	then not a term.
	stz inpattp	; ended pattern, not inpattp.
*        bra   exit		; done with this patt, move on!

exit	clc	; no error.
	rts	; exit to plyseq.

commanderr	lda #nocommanderr	;
error	sec	; error.
	rts	; exit to plyseq.

********************************************************************************

itsok	lda seqitem	; get the low word.
	bpl notnote	; if plus then it must be control call.

; If it's a rest just set the delay time.

	and #$7F00	; Get tone.
	beq delayset	; if zero then filler so set the delay.

; Must be a note command. If the tone is 0 then we have a filler note. If
; volume is 0 then it is a note off.

notrest	lda seqitem	; get low word in accum.
	and #$7F	; get the volume of	the note
	beq offcmd	; vol = 0 is a note	off

; turn on the note.	The duration is returned in A. High bit	is delay.

	jsr noteon	; turn the note on
	bcs error
	and #$07FF	; get just the delay.
*        clc		;
	adc tickcount	; add on the tick count.
	cmp maxduration	; see if farthest note yet.
	blt chkchrd	; if not chk the chord bit.
	sta maxduration	; save as new maxduration.
chkchrd	bit seqitem-1	; set n from chord bit.
	bmi nxtitem	; if chord set then	do the next item.

;if no delay exit.

	bit seqitem+2	; check if delay bit set.
	bmi delayset	; if delay, then set it, else exit.
	clc	; no error.
	rts	; quit.

; set the delay.

delayset	lda seqitem+2	; get the word with	delay.
	and #$07FF	; get just the delay.
	clc	;
	adc tickcount	; add current tick count.
	sta delaytime	; save as new time to delay until.
	clc	; no error
	rts	; exit.

********************************************************************************

; If not a note then call the routine corresponding to the command number.

notnote	and #$007F	; get the command number.
	cmp #10	; see if it's a normal command.
	blt docmd	; if so doit.
	cmp #22	; else see if it's a midi command.
	bge @1	; see if it's still legit.
	bit mode	; see if using midi.
	bpl chkchord	; if no midi, then chk chord and quit.
	bra docmd	;
@1	cmp #31	;
	bge commanderr	; not a ligitamate command if ge.
docmd	asl a	; make into index for jsr table.
	tax	;

; Poll Midi before AllocGenerator.
	phx
	jsl MIDIInputPoll
	plx

	jsr (cmdtable,x)	; jsr to appropriate routine.

chkchord	bit seqitem-1	; see if chord bit set.
	bpl @1	; if no chord exit.
	brl nxtitem	; chord, so do next item now.
@1	clc	; no error
	rts	; exit.

********************************************************************************

; turn off the requested note.

offcmd	jsr noteoff	; turn the note off
	bcs error	; if an error return it.
	bit seqitem-1	; get chord bit in high bit.
	bpl exit	; if clear exit.
	jmp nxtitem	; else do nextitem.

********************************************************************************

; Table for commands.  Assuming that routines are in the same bank as plypatt.

cmdtable	DC.W dopbend	; 0. pitchbend
	DC.W chngtempo	; change the value of increment
	DC.W TurnSeqNotesOff ; all notes off
	DC.W dojump	; goto seqitem
	DC.W vibdepth	; vibrato depth
	DC.W progchng	; program change
	DC.W setflag	; set a flag
	DC.W doifgo	; test a flag and branch
	DC.W incflag	; increment a flag
	DC.W decflag	; decrement a flag
	DC.W MidiNoteOff	; 10. play a midi note off.
	DC.W doMidiNoteOn	; play a midi note on.
	DC.W doMidiPolyKey	; Midi Polyphonic key.
	DC.W MidiCntrlChng	; Midi Control Change.
	DC.W MidiProgramChng ; Midi Program change.
	DC.W MidiPressureChng
	DC.W doMidiPitchBend ; Pitch Bend.
	DC.W MidiSelctChnlMode
	DC.W MidiSysExl
	DC.W MidiSystemCommon
	DC.W MidiSystemRealTime
	DC.W SysExlDataBank	; 21. sets H.Word tobe used for SysExl.
	DC.W NotImp2	; 22.
	DC.W NotImp2	; 23.
	DC.W NotImp2	; 24.
	DC.W NotImp2	; 25.
	DC.W NotImp2	; 26.
	DC.W NotImp2	; 27.
	DC.W NotImp2	; 28.
	DC.W NotImp2	; 29.
	DC.W CallRoutine	; 30.

	ENDP

;          copy	 seq.start.asm

*  copyright nineteen eighty seven too nineteen eighty eight.
*  All rights reserved. Apple Computer,	Inc. '87-'88/'88.

*******************************************************************************
*
*  Tool Call #15
*
*  Startseq -- this	routine is the main	tool call to the sequencer
*  it should do the	following:
*        1.) initialize phrindex, curphrase, curpatt, and pattindex
*        2.) dereference the phrase handle and place that in seq
*        3.) call playseq
*
*  Inputs:     User	Completion Routine:	long
*              User	Error Handler:	long
*              Sequence Handle:	long
*              RelativeAddr Pointer	long (only for startseqrel)
*	
*  Calls:      playseq, starttimer, _MidiInfo
*
*  Sets Up:    CurPhrase, CurPatt, Level, inpattp, delaytime, doneflag,
*              complrout, errhandlr, seq, ignoreint.
*
*  Errors:     noroomerr, wrngtyperr
*
*  History:    3/15/88  Started to reformatt.
*              3/16/88  zeroed maxduration, and TryToQuit.
*              6/30/88  Fixed error returning.
*         	10/6/88  Add StartSeqRel call, and make appropriate changes.
*
*******************************************************************************

startseq	PROC
*        using seqdata

seqhand	equ 9
compl	equ 13
errhand	equ 17

	phd	; save old direct page
	tcd	; set the flags. and get my dp.
	bne itsok
	lda #nostarterr	; if zero no wap, and not started.
	jmp Error

itsok	stz reladdr	; initialize to zero.
	stz reladdr+1	; Initalize high word to zero.	
	bra join

	Entry startseqrel
startseqrel	phd	; save old direct page
	tcd	; set the flags. and get my dp.
	bne @1
	lda #nostarterr	; if zero no wap, and not started.
	jmp Error

@1	lda seqhand,s	; Initialize reladdr to handles pointer.
	sta d1
	lda seqhand+2,s
	sta d1+2
	ldy #1
	lda [d1]
	sta reladdr
	lda [d1],y
	sta reladdr+1

; now that we grok the fullness of our WAP we initialize the counters

; but first we see if they supplied a midi buffer, if they need one.

join 	lda mode	; see if midi.
	bpl initcount	; if no midi zero the counters.
	pea 0	; if doing midi check that ...
	pea 0	; it is started up and that it ...
	pea miOutputChars	; has an output buffer.
	_MidiInfo	; Only care if there is an error.
	tax	; save error if one.
 	pla	; pull off the result...
	pla	; and ignore it.
	bcc A3	; carry still set if error.
	txa	; there was an error so restore it.
	jmp error	; report the error and quit.

A3	pushlong #0	; space for result
	pushword #0	; system tool.
	pushword #32	; midi tool set number.
	_GetWap	; get the wap.
	tax	; preserve error if there is one.
	pla	; get the result
	sta mididp	; get the midi dp for MIDIWriteGlue.
	pla	; get high word (0).
	beq doerr	; if not zero midi isn't started correctly.
	bcc initcount	; carry still set if an error.
	txa	; get error code back.
	jmp error	; return error.
doerr	lda #miToolsErr	; midi tools not started up.
	jmp error


initcount	stz curphrase
	stz curpatt
	stz level
	stz inpattp
	stz delaytime
	lda #nottrytoquit
	and MyFlags
	sta MyFlags
	stz maxduration
	stz DoneFlag

; save the completion routine to the DP

	lda compl,s
	sta complrout
	lda compl+2,s
	sta complrout+2

; save the error handler to the DP

	lda errhand,s
	sta errhandlr
	lda errhand+2,s
	sta errhandlr+2

; now we move the sequence to seq and dereference it

	lda seqhand,s
	sta seq
	lda seqhand+2,s
	sta seq+2
	ldy #$2	; get ready to dereference it.
	lda [seq]	; get the low part.
	tax	; save for now.
	lda [seq],y	; get high part.
	sta seq+2	; save dereferenced	handle.
	stx seq	; save dereferenced	handle.

; need to make sure	that phrasetab is setup correctly for the job

	lda seq
	sta phrasetab
	lda seq+2
	sta phrasetab+2
	stz phrasetab+4	; zero out curphrase too

; now we call playseq to play it
	php
	sei
	jsr playseq
	bcs errorp

; we also have to tell the interrupt handler that it is ok to process
; interrupts.

	jsr starttimer
	lda mode	; get the mode
	and #$0001	; if interupting don't ignoreint.
	bne getp
	lda DoneFlag	; if sequence is already done ...
	bne getp	; ...dont zero the ignoreint flg.
	lda #notignoreint	; clear ignoreint.
	and MyFlags
	sta MyFlags
getp	plp

;all done

	ldy #$C	; strip off the stack.
	jmp endcall

errorp	plp
error	ldy #$C	; strip off the stuff on the stack.
errtax	tax
 	jmp errout
	ENDP


;______________________________________________________________________
;
; settrkinfo - this	routine will set the instrument and priority for
; a particular track.
;
; inputs: tracknum	: word ; track to fix
;         instnum	: word ; index into	inst table
;         priority	: word ; for da note synth brah
;
; outputs: none
; 
;  Errors: InstBndsErr
;
; All registers are	trashed
;
;

settrkinfo	PROC
*         using	seqdata

tracknum	equ 9
instnum	equ 11
priority	equ 13	;should be 13 not 15, right? md 7/27/87.

	phd
	tcd	; set up direct page 

; instn2ptr takes the track number in A	and the instnum on the stack and
; sets the instptr field of the trkinfo	correctly. x is
; the trkinfo on return

	lda instnum,s
	bmi nointernals	; msb set dont play	internals.
	and #$7fff	; mask off high bit.
	cmp numinsts
	bge error
	pha
	lda tracknum+2,s
	and #$000F	; only 16 different	tracks.
	jsr instn2ptr
	pla	; pop instnum
	bra dorest	; store the rest of	the info.

nointernals	lda tracknum,s	; get the track number
	and #$000F	; only 16 different	tracks.
	asl a	; make into index
	asl a	;
	asl a	;
	clc	;
	adc #trkinfo	;
	tax
	stz <4,x	; zero out instrument pointer.
	stz <6,x

dorest	lda priority,s
	sta <base,x

	lda tracknum,s	; get the midi channel.
	bmi midi
	lda #0
	bra saveit	; no midi so store zero in scratch.
midi	and #$0F00	; get only the midi	channel.
	xba	; put in low word.
	ora #$8000	; set midi bit.
saveit	sta <2,x	; save in scratch area.

	ldy #$06
	jmp endcall

error	ldy #$08
	ldx #instbndserr
	jmp errout

	ENDP

;___________________________________________________________________
;
; remember the routine assumes instnum on the stack and track in A
instn2ptr	PROC

instnum	equ 3

	asl a
	asl a
	asl a
	clc
	adc #trkinfo
	tax


	phx
	pei <insttab+2	; push the table
	pei <insttab
	_hlock

	jsl MIDIInputPoll	; don't lose midi input when changeing isnt.

	plx

	php
	sei	; just in case
	ldy #$02	; deref the handle
	lda [insttab]
	sta d1
	lda [insttab],y
	sta d1+2

	lda instnum+1,s	; get the number
	asl a
	asl a	; adjust for long table

	tay
	iny	; get past length word.
	iny

	lda [d1],y	; low word of instrument
	sta <base+4,x

	iny
	iny

	lda [d1],y	; hi word of instrument
	sta <base+6,x

	plp

	phx
	pei <insttab+2	; unlock the handle
	pei <insttab
	_hunlock
	plx

	jsl MIDIInputPoll	; don't lose midi input when changeing isnt.

	rts

	ENDP

;_____________________________________________________________________
;
; Tool Call #18
;
; SetInst -- sets the direct page variable InstTab to the handle
; supplied
;
; Inputs:  Insthndl	: handle ; Handle to an instrument table.
;
; Output:  none
;
;  Errors: none
;
; All registers are	trashed.
; 


setinst	PROC

inst	equ 9

	phd
	tcd	; set wap as direct	page

	lda inst,s	; set the instrument table
	sta d1	; save it in a temp
	lda inst+2,s
	sta d1+2	; save it in a temp

	pushword d1+2	;lock the insttable	handle.
	pushword d1
	_HLock

	jsr deref	; deref hndl in d1 and put pointer in d2.

	lda [d2]	; get the number of	inst in table.
	sta numinsts	; save it in number	of instruments.

	lda d1
	sta insttab	;save a copy of the	inst table.
	lda d1+2
	sta insttab+2

	pushword d1+2	;lock the insttable	handle.
	pushword d1
	_HUnLock

	ldy #$04
	jmp endcall

	ENDP


;____________________________________________________________________
;
;
; Tool Call #17
;
; StopSeq -- This routine will stop the	sequencer, and turn	off all
; notes. If next is	true then the sequencer will behave as if it has
; encountered a termination command. If	next is false then the timers are
; stopped and the completion routine is	called.
;
; inputs: next : word    ; 0 = stop 1 =	next
; 
; output: none
;
;  Errors: none
;
; all registers get	trashed
;  History:    3/16/88  jsr to quitsequence instead of callcmplt.

stopseq	PROC
*         using seqdata

next	equ 9

	phd
	tcd	; save the old direct page and set up mine

	jsr TurnSeqNotesOff	; turn off all sequencer notes.

	lda next,s
	beq calldone

; we just have to fake the sequencer into thinking that it is done with
; the current object

	lda inpattp
	beq notinpatt

	stz inpattp
	bra done

notinpatt	jsr phrdone	; unwind the stack
	bra done

calldone	jsr quitsequence

done		; 
	ldy #$2
	jmp endcall	; go home

	ENDP





;          copy	 seq.step.asm

; Copyright nineteen eighty seven too nineteen eighty eight.
; All rights reserved. Apple Computer, Inc. '87-'88/'88.


;_____________________________________________________________________
;
;   Tool Call #16
;
;   StepSeq -- This	routine advances the sequence count by 1 and
;   then calls playseq. It basically will play the next seq	item.
;   Note that using	this can be really tricky. The application is
;   responsible for	the timing of the sequencer. Weird (and	sometimes
;   wonderful things can happen if the application doesn't provide a
;   steady beat.
;
;   There are no arguments to this call.
;
;  Errors: none
;
*  History:    3/16/88  Added code to call quit sequence.
;



stepseq	PROC
*        using seqdata

	phd	; set my work area and save the old dirpage
	tcd
	beq nostart

	php
	sei
	inc tickcount	; increment the clock
	bit MyFlags	; see if I'm tring to quit.
	bvc playnow	; if not tring to quit playseq.
	jsr checkoff	; otherwize turn off notes if needed.
	jsr quitsequence	; try to quit the sequence again.
	bra done	; exit.

playnow	jsr playseq	; play the item
	bcs error

done	plp
	ldy #$00
	jmp endcall	; bye bye

nostart	lda #nostarterr
error	plp
	ldy #$00
	tax
	jmp errout

	ENDP


;          copy	 seq.end.asm

; Copyright nineteen eighty seven too nineteen eighty eight.
; All rights reserved. Apple Computer, Inc. '87-'88/'88.


*******************************************************************************
*
*  The endcall routines use the rom endcall vectors at $E10180 and $E10184.
*
*  Assumes:    y = number of bytes to be striped.
*              x = error, for error out	routines.
*
*  Calls:      Strip.
*
*  History:    3/15/88  Started to reformatt.
*	    Deleted bsyend,	and busystrip.
*
*******************************************************************************

endcall	PROC
	pld	; restore the direct page

	ENTRY oendcall
oendcall		;       
	ldx #$00	; no error.
	clc
	jml strip

	ENDP

errout	PROC

	pld

	ENTRY oerrout
oerrout		;       
	sec
	jml strip

	ENDP

*******************************************************************************
*
*  ErrorHndlr
*
*  This routine calls the users error handler
*
*  Called by:  PlaySeq (JSL)
*
*  Calls:      User	Error Handler
*
*  Assumes:    DP and DataBank will be restored by caller (PlaySeq).
*              Users routine returns with an RTL to caller (PlaySeq).
*
*  If ErrHandler then
*        Set their data bank
*        A = error.
*        call their	error handler (and return)
*  Else  Return
*  EndIf
*
*******************************************************************************

ErrorHndlr	PROC
	lda ErrHandlr+1	; get bytes 2, 3 of	their err handler.
	ora ErrHandlr	; get bytes 1, 2 of	their err handler.
	beq return	; if all three bytes are zero, rtl.
	pei ErrHandlr+1	; push bytes 3 and 2.
	pei DataBank	; push junk, and data bank.
	plb	; set the data bank.
	lda ErrHandlr	; get bytes 2 and 1.
	dec a	; make sure it starts correct.
	sta 1,s	; write bytes 2 and	1 over 2 and junk.
	lda d3+2	; get error back
	cmp #1	; set carry.
return	rtl	; call users rout. which returns to caller
		; of ErrorHndlr.
	ENDP
;          copy	 seq.int.asm

*  Copyright nineteen eighty seven too nineteen eighty eight.
*  All rights reserved. Apple Computer,	Inc. '87-'88/'88.

********************************************************************************
*			                   *
*  seqint			                   *
*			                   *
*  This routine is called by the interrupt handler of the note synthesizer.    *
*  If ignoreints is	set or increment is	cleared, we return.	 Otherwize we inc  *
*  tickcount until it equals increment,	then we play the sequence.  If we      *
*  overflow the tickcount we need to call tick wrap.	                   *
*			                   *
*  Called by:  Note	Synth interupt.		                   *
*			                   *
*  Calls:      TickWrap, PlaySeq.		                   *
*			                   *
*  Sets Up:    TickCount, TickFract.		                   *
*			                   *
*  History:    3/15/88  Started reformatting.	                   *
*	    Slight modification for speed improvement.             *
*              3/16/88  added code to call quitsequence.	                   *
*			                   *
********************************************************************************

seqint	PROC
*        using seqdata

	php	; save condition codes.
	SetMode16	; interupt handler is in 8 bit mode.
	phd	; save old dirpage.
	lda >seqwap	; get our DP back.
	tcd	; set our DP.

	bit MyFlags	; see if we should process the interrupt
	bmi exit	; don't if ignoreint.

	lda increment	; get the increment.
	beq exit	; if zero then don't play.
	inc tickfract	; next tickfract.
	cmp tickfract	; see if we have counted to increment.
	beq inctick	; if so increment tick count.
	bpl exit	; if not quit.

inctick	stz tickfract	; got a new tick so	clr tickfract.
	inc tickcount	; and increment tick count.
	bpl playit	; if not overflow playit.

OverFlow	stz tickcount	; zero it out if >=$8000
	jsr TickWrap	; Take care of the tick wrap stuff.

playit	bit MyFlags	; see if we're trying to quit.
	bvc playnow	; if not play the sequence now.
	jsr checkoff	; turn off any notes.
	jsr quitsequence	; and try to quit.
	bra exit	; then return.

playnow	jsr playseq	; play the thing

exit	clc	; errors were passed to user vector.
	pld
	plp	; restore old modes, etc.
	rtl

	ENDP

********************************************************************************
*			                   *
*  TickWrap			                   *
*			                   *
*  When TickCount wraps this procedure is called, and I check if the high bit  *
*  of the trk is set, if so it is waiting for a note off, so we dont do anythig*
*  otherwize we AND	the duration with $7FFF so that we wont	miss any tick by   *
*  overflowing, or cut notes off to early.	                   *
*			                   *
*             MidiNoteOn/Free   Wrapped	 Playing  Error	                   *
*      dur	 1             1	    0       0	                   *
*      trk	 1             0	    0       1	                   *
*			                   *
*  The error condition above isn't checked for.                                *
*			                   *
*  This was put in line to save time.		                   *
*			                   *
*  History:    3/15/88  Formatt changed.	                   *
*	    Made it faster.		                   *
*			                   *
********************************************************************************

TickWrap	PROC
*        using seqdata


; Poll Midi.
	jsl MIDIInputPoll

	lda #$8000	; want to clear high bit.
	trb delaytime	; reset delay time.
	trb maxduration	; reset max duration.

	php
	sep #$20	; make 8 bit accumulator.
	longa off	; generate 8 bit acc code.

	lda #$80	; number to AND for	trb.

to0	bit 3+gentab+1	; get the trk, see if note off needed.
	bmi to1	; if so, wait for a	note off.
	trb 0+gentab+1	; turn duration into unwrapped value.
to1	bit 8+gentab+1	; get the trk, see if note off needed.
	bmi to2	; if so, wait for a	note off.
	trb 5+gentab+1	; turn duration into unwrapped value.
to2	bit 13+gentab+1	; get the trk, see if note off needed.
	bmi to3	; if so, wait for a	note off.
	trb 10+gentab+1	; turn duration into unwrapped value.
to3	bit 18+gentab+1	; get the trk, see if note off needed.
	bmi to4	; if so, wait for a	note off.
	trb 15+gentab+1	; turn duration into unwrapped value.
to4	bit 23+gentab+1	; get the trk, see if note off needed.
	bmi to5	; if so, wait for a	note off.
	trb 20+gentab+1	; turn duration into unwrapped value.
to5	bit 28+gentab+1	; get the trk, see if note off needed.
	bmi to6	; if so, wait for a	note off.
	trb 25+gentab+1	; turn duration into unwrapped value.
to6	bit 33+gentab+1	; get the trk, see if note off needed.
	bmi to7	; if so, wait for a	note off.
	trb 30+gentab+1	; turn duration into unwrapped value.
to7	bit 38+gentab+1	; get the trk, see if note off needed.
	bmi to8	; if so, wait for a	note off.
	trb 35+gentab+1	; turn duration into unwrapped value.
to8	bit 43+gentab+1	; get the trk, see if note off needed.
	bmi to9	; if so, wait for a	note off.
	trb 40+gentab+1	; turn duration into unwrapped value.
to9	bit 48+gentab+1	; get the trk, see if note off needed.
	bmi toA	; if so, wait for a	note off.
	trb 45+gentab+1	; turn duration into unwrapped value.
toA	bit 53+gentab+1	; get the trk, see if note off needed.
	bmi toB	; if so, wait for a	note off.
	trb 50+gentab+1	; turn duration into unwrapped value.
toB	bit 58+gentab+1	; get the trk, see if note off needed.
	bmi toC	; if so, wait for a	note off.
	trb 55+gentab+1	; turn duration into unwrapped value.
toC	bit 63+gentab+1	; get the trk, see if note off needed.
	bmi toD	; if so, wait for a	note off.
	trb 60+gentab+1	; turn duration into unwrapped value.
toD	bit 68+gentab+1	; get the trk, see if note off needed.
	bmi ChkMidi	; if so, wait for a	note off.
	trb 65+gentab+1	; turn duration into unwrapped value.

ChkMidi	plp
	longa on	; assemble conde with 16 bit acc.

; Poll Midi.
	jsl MIDIInputPoll

	lda mode	; get the mode.
	bpl exit	; if no midi than quit.
	ldy #$20	; do it 32 times.
	ldx #$100	; get into DP two.
again	lda gentabtrk1,x	; get trk, see if note off needed.
	bmi nexttrk	; if not go to next	trk.
	lda gentabdur1,x	; get durration.
	and #$7fff	; update so it can be seen.
	sta gentabdur1,x	; save it.
nexttrk	inx
	inx
	dey
	bne again


; Poll Midi.
exit	jsl MIDIInputPoll

	rts
	ENDP

;________________________________________________________________________
; 
; StopTimer & StartTimer - StopTimer halts the generator that the 
; note synth is using as a timer. It works only because of an intimate
; knowledge of how the note synth works. Kids should not try this without
; adult supervision. StartTimer is almost as bad since it forces the 
; interrupt on. 
;
; Of course if the note synth changes, we probably will have to change
; these too. Oh, well.


stoptimer	PROC
*         using	seqdata
	shortm	; 8 bit accum

	lda >gadrl	; save address reg 
	pha

	lda #doc_ctrl+timer_osc ; set up the address

	php	; no interupts. In sound glue.
	sei

	sta >gadrl

	lda >gstatreg	; save old mode
	and #$F0	; mask the low nybble
	pha


	lda >sysvol
	and #$0F	; zero out high nybble
	sta >gstatreg

	lda >gdatareg
	lda >gdatareg

	ora #doc_halt_bit	; halt the osc
	sta >gdatareg

	pla	; restore mode with	correct vol
	ora >sysvol
	sta >gstatreg

	plp

	pla
	sta >gadrl	; put back old address



	longm	; back to 16 bit a. (and x).

	rts

	ENDP

starttimer	PROC
*         using	seqdata

	shortm	; 8 bit accumulator.

	lda >gadrl	; save address reg 
	pha

	lda #doc_ctrl+timer_osc ; set up the address

	php	; no interupts. In sound glue.
	sei

	sta >gadrl

	lda >gstatreg	; save old mode
	and #$F0	; mask off low nybble
	pha


	lda >sysvol
	and #$0F	; select DOC w/ cur	sysvol
	sta >gstatreg

	lda >gdatareg
	lda >gdatareg

	and #doc_halt_mask	; enable timer osc interrupt
	sta >gdatareg

	pla	; restore mode with	correct vol
	ora >sysvol
	sta >gstatreg

	plp

	pla
	sta >gadrl	; put back old address

	Longm	; 16 bit accumulator. (still 16 bit x).


	rts


	ENDP

;_____________________________________________________________________          
;
; Tool Call #19
;
; StartInt and StopInt are tool calls that correspond to Starttimer and
; stoptimer. There are provided to let an application force	the timer
; on so the Note Synthesizer can be called. The application	can get 
; itself in alot of	trouble this way, so be careful
;
; Errors: None
;_____________________________________________________________________          
;

StartInt	PROC
	phd
	tcd
	jsr starttimer
	ldy #$00
	jmp endcall

	ENDP

;_____________________________________________________________________          
;
; Tool Call #20
;
; Errors: None
;_____________________________________________________________________          
;

StopInt	PROC
	phd
	tcd
	jsr stoptimer
	ldy #$00
	jmp endcall

	ENDP
;          copy	 seq.deref.asm

*  Copyright nineteen eighty seven too nineteen eighty eight.
*  All rights reserved. Apple Computer,	Inc. '87-'88/'88.

*  deref -- dereferences the handle in d1 and places the pointer in
*  d2

deref	PROC

	lda [d1]	; low part
	sta d2

	ldy #$02
	lda [d1],y
	sta d2+2

	rts

	ENDP
;          copy	 seq.chkgen.asm
;_____________________________________________________________________
;
; Checkoff -- This routine will check the list of generators that are 
; on and will turn off any that should be turned off.
;
; Copyright nineteen eighty seven too nineteen eighty eight.
; All rights reserved. Apple Computer, Inc. '87-'88/'88.
;
; Inputs: none
; 
; Outputs: none
;
; A and X are trashed

checkoff	PROC
*         using	seqdata

; Poll Midi.
	jsl MIDIInputPoll

; x is initialized so its offset is the	start of the table

	ldx #gentab
	ldy #$00	; generator index.

; start scanning the table. If the time	is 00 then the generator is not
; on, otherwise we pick up the largest value

again		; 

	lda <base,x	; get the value
	bmi nextitem	; high bit set means gen off, or MIDI, or wrap.
	cmp tickcount	; compare it to the	current time
	beq TurnOff	; If equal than turn it off.
	bge nextitem	; its not less, so we skip to next item

; we've found a time that is lower so we need to turn off that note.

TurnOff	phy	; save y value
	phx	; save x value
	phx	; save x value
	phy	; generator number
	lda <2,x	; get the semitone
	sta d3+2
	pha
	jsl NoteOffGlue

	plx	; get the registers	back

miditoo	lda mode	; see if MIDI enabled.
	bpl nomidi	; if not don't do a midi command.
	lda <4,x	; get the track
	and #$000F	; get just the track
	asl a
	asl a
	asl a
	clc
	adc #trkinfo	; get index to track.
	tax
	lda <2,x	; get the scratch.
	bpl nomidi	; if not don't do a midi command.
	and #$000f	; get midi channel.
	sta d3	; save midi channel.

	lda #$80	; make trk zero and	note off.
	ora d3	; or in the midi channel.
	xba	; swap bytes.
	tax	; put command and channel in HByte of x.
	lda 0	; zero volume for note off.
	ora d3+2	; or in the semitone.
	jsr Midi3Out	; put out the midi command.

NoMidi	plx
	ply

; reset the generator table.

	lda #$8080
	sta <base,x	; reset duration
	sta <3,x	; reset semitones 2nd byte and trk's byte.

nextitem	iny	; next osc.
	cpy #$0E	; only do for 0D or	0-13 times, 14 osc.
	bge chkmidi	; if done, check if	midi notes are on.
	txa	; move on to the next item
	clc	; ** gentab entries	are now 5 bytes 2/10 JW
	adc #$05
	tax
	bra again

; Check if any notes need to be turned off by MIDI.
; Poll Midi.

ChkMidi	jsl MIDIInputPoll

	lda mode	; check if Midi is even on.
	bpl exit	; if not on exit.

	ldx #gentabdur	; get offset to gen	for midi.
	ldy #31	; do it for osc 0-31.

MLoop	lda <base,x	; get duration of osc y.
	bmi nextosc	; if high bit set, skip to next.
	cmp tickcount	; see if time to turn off.
	beq turnoscoff	; if equal turn off	the osc.
	bge nextosc	; get the next osc if ok.


TurnOscOff	phx	; save regesters.
	phy	;

	lda <gentabtrk1,x	; get trk and semitone.
	sta d3	; save it for semitone.
	ora #$8000	; make it a note off call.
	and #$FF00	; note off and trk only.
	tax	; and save in x.
	lda d3	; get trk and semitone.
	and #$007F	; no trk or vol only semitone.
	jsr Midi3Out	; send the midi command.

	ply	; get regesters back
	plx	;
	lda #$8000	;
	sta <base,x	; reset duration
	sta <gentabtrk1,x	; reset trk and semitone info.

nextosc	dey	; next osc.
	bmi exit	; if past zero were	done.
	inx	; get next generator.
	inx	;
	bra MLoop	; keep going until done.

; now that all of the generators have been checked, we pull	the next off
; time off of the stack and return
; poll MIDI

exit	jsl MIDIInputPoll
	rts
	ENDP

;          copy	 seq.note.asm
; Copyright nineteen eighty seven too nineteen eighty eight.
; All rights reserved. Apple Computer, Inc. '87-'88/'88.

;_______________________________________________________________________
;
; NoteOn -- allocates a generator from the note synth and plays the note
; placing an appropriate off time in the generator table.
;
; Input:  Seq Item on the stack
;
; Output: Off time.	High bit set if delay bit is set. 
;         00 means that there is no off	time. ie. MIDI style
;         Note that	in this case $FFFF is stored in the gentab, not the
;         00 that is returned
;
; All registers are	trashed.
;
; Errors: AlreadyOn, NoneAvailable
;_____________________________________________________________________          
;

noteon	PROC
*         using	seqdata

; Get all of the note information and store it.
; Duration: d1
; Track:    curtrk
; Volume:   d3
; Semitone: d3+2

	jsr finddur	; get the time off
	sta d1

	jsr findtrk
	sta curtrk

	jsr FindVol	; Get the volume
	sta d3	; temp storage.

	jsr findtone	; still need stack clean, so ...
	sta d3+2	; push volume after	getting tone.

; get the Index to the current track in	the trkinfo table.

	lda curtrk
	asl a	; track info table is 8 bytes wide
	asl a
	asl a	; index into track info table
	clc
	adc #trkinfo	; adjust the offset	for the second page	of
	tax	; work area

; check to see if we need to do the internal voices.

	lda <4,x	; get inst ptr high	word.
	bne Internal	; if not zero play internal notes.
	lda <6,x	; get rest of ptr.
	bne internal	; internal voices.
	jsr justmidi	; do just midi.
	brl exit	; quit.

; Do the Internal voices.

Internal	phx	; save the index twice.
	phx

; get a generator from the note synth

	lda <base,x	; get the priority.
	pha	; space for result
	pha	; priority
	jsl AllocGlue
	bcc goon
	brl allocerr	; only real error is NoneAvailible = $1921

goon	jsl MIDIInputPoll

	pla	; generator number
	sta <curgen	; another scratchpad location


; now we need to push the semitone, volume and instrument pointer

	plx	; saved index from above, first one.

	pei <curgen	; generator number
	PushWord d3+2	; semitone
	PushWord d3	; volume

	lda <6,x	; push the instrument pointer
	pha
	lda <4,x
	pha

; turn the note on!

	jsl NoteOnGlue
	bcs error	; only legal error is AlreadyOn = $1924

	jsl MIDIInputPoll	; don't lose the midi.

; Get the scratch regester in the trk table and see if we need to do midi.

	plx	; get the index into trkinfo table, second time.
	lda mode	; See if Midi set.
	bpl RevTable	; if not revise the	table.
	lda <2,x	; get the scatch.
	bpl RevTable	; if high bit clear, don't play midi.

; If Midi turn the midi note on.

	lda #$9000	; No trk for now, but note on
	ora <1,x	; or in the channel.
	tax	; put midi and channel in H X.
	lda d3	; push volume
	xba	; get vol in upper byte.
	ora d3+2	; now do tone.
	jsr Midi3Out	; put out the Midi Command.


; Save the duration	and update the generator table, for internal voices.

revtable	lda d1	; get the duration.
	and #$7FFF	; mask off delay bit
stuffval	tay	; save the duration	temporarily
	lda curgen
	asl a	; a slimy multiply by 5 for the index into
	asl a	;    the table
	clc
	adc curgen	; adjust offset to generator tables
	clc
	adc #gentab
	tax	; index in X
	tya	; duration back in A
	bne Dur
	lda curtrk
	ora #$80
	sta curtrk
	lda #$8000	; set duration so it wont ever get cleared.
	bra SavDur
Dur	clc
	adc tickcount	; add the current tick count to duration.
SavDur	sta <base,x	; save the duration
	lda d3+2	; get the tone back
	sta <base+2,x	; save the semitone

	sep #$20	; 8 bit m 16 bit x
	longa off

	lda curtrk
	sta <base+4,x	; save the track

	SetMode16


; everything seems to be done. We return the duration to the caller.

exit	lda d1	; get the duration back
	clc
	rts
allocerr	plx
	plx

error	sec
	plx
	rts
	ENDP

;----------------------------------------------------------------------
;
; JustMidi
;
; play the midi note on.
; x should be indexing into the trkinfo	table, on entry.
;

JustMidi	PROC
*          using seqdata

	lda mode	; See if midi enabled.
	bpl exit	; no midi quit.
	lda <2,x	; get the scratch from track.
	bpl exit	; no midi quit.
	and #$000f	; get the midi channel.
	sta curtrk	; save in curtrk.

	ldx #gentabdur	; index to table.
	ldy #31	; # of times -1 I want to do this.

again	lda <gentabtrk1,x	; get the track.
	bpl next	; if not set it's in use as a note on already.

	phx	; save my regesters.
	lda #$90	; make it a note on.
	ora Curtrk	; and set the correct cannel.
	xba	; and put it in upper byte.
	tax	; put in high byte of x.
	lda d3	; get the volume.
	xba	; and put it in upper byte.
	ora d3+2	; or in the tone in	lower byte.
	jsr Midi3Out	; put out the Midi command.

; set the midi generator tables.

	plx	; get x back.
	lda d1	; get the duration.
	and #$7FFF	; mask of the delay	bit.
	beq nodur	; if duration is zero then save $8000.
	clc
	adc tickcount	; add current tick count.
	sta <base,x	; save the duration.
	bra done	; now we are done.

next	dey	; next midi osc.
	bmi error	; if no more room don't play it.
	inx	; next generator.
	inx
	bra again	; do it again.

nodur	lda #$8000	; show that midi note on type osc.
	sta <base,x	; save it.

done	lda curtrk	; get the track.
	xba	; put in high byte.
	ora d3+2	; or in semitone.low byte.
	sta <gentabtrk1,x	; save the semitone	and trk.
exit	rts
error	sec
	lda #NoRoomMidiErr
	rts

	ENDP

;________________________________________________________________________
;
; NoteOff -- This command causes causes	the envelope generator for
; the given note to	go to the release stage. The volume will usually
; drop to zero in a	short time. When the envelope reaches zero the
; generator will be	released by the note synthesizer.
;
; we will mark the generator as being free since it is likely to be
; stolen if necessary.
; 
; Inputs: seq item on stack
;
; Outputs: none
;
; Errors: NoNoteErr
;
; all registers are	trashed
;
;_____________________________________________________________________          

noteoff	PROC
*         using	seqdata

	jsr findtrk	; find out which track we are dealing with
	sta curtrk

	jsr findtone	; get the semitone
	sta d3

; we have to loop through the generator	table looking for the generator
; that is playing the right semitone on	the right track. 

	ldx #gentab	; initialize y for the generator table.
	ldy #$00	; use x as a counter for the gen num

again	lda <2,x	; get the semitone
	cmp d3
	bne nexttrk	; if not the right semitone, get the next trk

; we have a semitone that matches. Now we have to see if it	is on the 
; right track

checktrk	lda <4,x	; get the track
	and #$000F	; it's only a byte value with one valid nible.
	cmp curtrk	; is it the same track?
	beq done	; we got it, we got	it

; since we didn't hit move on to the next item

nexttrk	cpy #$0D	; Only have 13 osc.	in table.
	bge MidiOnly	; check the midi tables for the note off.

	iny	; next generator
	txa	; move to the next semitone
	clc
	adc #$05
	tax

loop1	bra again

; we seem to have found the right semitone on the right track. so we turn
; off ze note.

done	phx	; save the index to	genarator in gentab

	lda curtrk	; get curtrk.
	asl a	; make into index for trkinfo.
	asl a
	asl a
	clc
	adc #trkinfo
	tax	; use as index.
	lda <4,x	; get instptr high word.
	bne doInternl	; if instrument defined play int.
	lda <6,x	; get instptr low word.
	beq chkmidi	; no internal instrument, Midi?

DoInternl	phy	; generator number
	pei d3	; semitone
	jsl NoteOffGlue
	bra clrGenTbl	; clear the generator table.

chkmidi	lda mode	; see if Midi is being used.
	bpl exit	; if not exit.
	lda <2,x	; get the scratch regester.
	bmi domidi	; there is midi so doit.
	brl exit	; if there isnt midi quit.

domidi	and #$000F	; get midi channel,	from scratch.
	sta d3+2	; save for now.

	lda d3+2	; get the channel.
	ora #$80	; or in the note off.
	xba	; put the command in high byte.
	tax	; put in x.
	lda 0	; zero volume.
	ora d3	; get semitone.
	jsr Midi3Out	; put out the midi command.

; now that the note	is off we need to zero out the duration

ClrGenTbl	plx	; get the index back, at track
	lda #$8080
	sta <3,x	; reset trk and part of semitone
	sta <base,x	; zero out the duration
	bra exit

; Check the midi tables to see if the note off is in there.

MidiOnly	lda mode	; see if MIDI is used.
	bpl error	; if not midi cant find note.
	lda curtrk	; get curtrk.
	asl a	; make into index for trkinfo.
	asl a
	asl a
	clc
	adc #trkinfo
	tax
	lda <2,x	; get the scratch regester.
	bpl error	; no midi so couldn't find note.
	and #$000f	; get just the channel #.
	xba	; put in high byte.
	ora d3	; or in the semitone.
	sta d2	; save what Im looking for in d2.

	ldx #gentabdur	; get index to generator table.
	ldy #$31	; only have 31+1 midi generators.

loop	lda <gentabtrk1,x	; get the trk and semitone.
	cmp d2	; see if it's what I want.
	bne next	; if not get the next.

	phy	; save regesters.
	phx	;

	lda d2	; get semitone and trk.
	and #$0F00	; get just the trk.
	ora #$8000	; note off.
	tax	; put in x.
	lda d2	; get semitone and trk.
	and #$007F	; keep semitone.
	jsr Midi3Out	; put out midi command.

	plx	; restore regesters.
	ply	;

	bra exit

Next	dey	; next osc.
	bmi error	; oops, we cant find it.
	inx	; next generator.
	inx
	bra loop

* Need to put this in and then clear the table or return an	error.

; RTS for routine when done.

error	lda #nonoteerr	; no matching note on
	sec
	rts

exit	clc
	rts

	ENDP

;          copy	 seq.efx.asm
; Copyright nineteen eighty seven too nineteen eighty eight.
; All rights reserved. Apple Computer, Inc. '87-'88/'88.

********************************************************************************
*			                   *
*  This file contains all of the special effects routines:	                   *
*			                   *
********************************************************************************
notimp2	PROC

	rts

	ENDP

CallRoutine	PROC ; 30.
	
	php
	phb
	phd
	jsl RoutineGlue
	pld
	plb
	plp
	rts

RoutineGlue	pei databank-1	; push flag8 and junk.
	phk	; add one byte of junk
	pla	; get 2 bytes of junk off.
	lda SeqItem+2	;
	sec
	sbc #1
	pha
	RTL
	
	ENDP

;_____________________________________________________________
;
; dopbend -- set the pitchbend value for a track.
;
; pitchbend acts as	if an imaginary pitch wheel had been moved
; the pitch is altered according to the	difference of the current
; pitch value and the new value. If the	difference is positive then
; the pitch is increased, if negative it is decreased. 
;
; Note: pitchbend affects a track rather than an individual	note.
;
;  inputs : a legal	seq item on the stack

dopbend	PROC
*         using seqdata

	jsr findtrk	; get the track number
	sta curtrk	; and save it

	jsr findtone	; works for getting	val1
	sta d3

	lda seqitem+2	; get the high word	of seqitem.
	xba	; get what I want in low.
	and #$7	; only low 3 bits.
	sta d3+2	; save 3 bits of reserved info.
	cmp #2	; see whats set.
	beq domidi	; do the midi one.

; we have to loop through the generator	table looking for all generators
; that are linked to the track

	ldx #gentab+4	; initialize x for the track field
	ldy #$00	; use y as a counter for the gen num

again	lda <base,x	; get the track
	and #$F	; mask off the garbage
	cmp curtrk
	beq bendit	; bend the note

; since we didn't hit move on to the next item

loop1	cpy #$0F	; check if done all	tracks.
	bge done

	iny	; next generator
	txa	; move to the next semitone
	clc
	adc #$05
	tax

	bra again

; we have a track that matches, so we bend it! 

bendit	phx	; save the registers
	phy
	pha

	phd	; save our direct page
	pei d3	; push the wheel position

; get the N. Synth DP, which is infront	of my dp.
	tdc	; get my dp.
	sec	;
	sbc #$100	; get synth dp

	tcd

	tya	; get the gen number in A
	asl a	; x16
	asl a
	asl a
	asl a
	clc
	adc #$04	; move to pitch bend

	tax	; move index into x

	pla	; get the pitch value back

	shortm	; 8 bit accumulator.

	sta <base,x	; set the new value

	Longm	; 16 bit accumulator. (still 16 bit x).
	pld	; restore all of the registers
	pla
	ply
	plx
	bra loop1	; check for any more on that track

Done	lda d3+2	; get reserved bits.
	cmp #$1	; see if internal only
	beq exit	; if so dont do midi.

;check if midi pitch bend is needed.

domidi	lda Mode	; see if doing midi	at all.
	bpl exit	; if no midi, exit.
	lda curtrk	; get the track.
	asl a	; make into index
	asl a	;
	asl a	;
	clc
	adc #trkinfo
	tax	;
	lda 2,x	; get the scratch area.
	bpl exit	; if no midi on this trk, exit.
	and #$f	; get the midi channel.

;do midi pitch bend.

	ora #$E0	; or in command.
	xba	; save in high byte.
	tax	; save in x.
	lda d3	; get the ptich change.
	xba	; save in high byte.
	jsr Midi3Out	; put out the midi.

exit	rts

	ENDP



;_____________________________________________________________
;
; chngtempo -- changes the tempo of the	piece
;
; chngtempo allows the sequence to alter the tempo of the piece.
; this is accomplished by supplying a new value for increment
; note that the track information for this command is ignored. It is
; not possible to alter the tempo of one track relative to another.
;
;  inputs : a legal	seq item on the stack


chngtempo	PROC

	jsr findtone	; this works great for getting the new val
	sta increment
	rts

	ENDP



;___________________________________________________________________________
;
; dojump -- goto a new item in the current pattern
;
; The format of the	seqitem for jump is	a little weird. We allow 15-bits
; for specifying the item to go to. This seems limiting at first, until you
; realize that the max sequence size is	64k. Since each item is 4 bytes, there
; is a maximum of 16k items in a pattern. 
;
; Note that this routine does no range checking. It assume that the value 
; passed to it is legal. If for some reason you give an index greater than 
; the number of items in the pattern, you are in BIG!!!! trouble.
;
; input: a legal seq item on the stack.
;
; track information	is not used
;


dojump	PROC

	jsr findtone	; get val 1 - high byte of item to jump	to
	xba	; put it on top
	sta d3	; save it 

	jsr findval2	; get val 2 - low byte of item to jump to
	ora d3	; add in the top part
	dec a	; playpatt does an inc
	sta curpatt	; we are now there

	rts

	ENDP

;___________________________________________________________________________
;
; TurnSeqNotesOff
;
; Turns the Sequencers Notes Off. Turns	off all the notes that the sequencer
; knows about and clears the their tables.
;
; Input: nil
;
; Output: nil
;
; Calls: _allnotesoff, clrgentabls, midi3out.
;
; Hist: new 3-2-88.
;
; _allnotesoff
;        if MIDI
;        then turn off all midi notes that sequencer knows about.
;        end if
; jsr clrgentabls
;_________________________________________________________________________

TurnSeqNotesOff	PROC
*        using seqdata

	_AllNotesOff
	lda mode
	bpl ClrTabls

; check if any internals were doing midi too.
	ldx #gentab	; get index to gen table info.
	ldy #14	; 14 possible osc.

; check if any playing.
chkosc	lda <3,x	; get track in high	byte.
	bmi nextosc	; if msb set not used.

	phx	; save the x into gentable.
	phy	; save which generator.
	stx d3	; save the index into gentable.
	and #$0F00	; get just the track, from lda <3,x.
	xba	; put in low byte.
	asl a	; make into index for trkinfo.
	asl a	;
	asl a	;
	clc	;
	adc #trkinfo	;
	tax	; index into trkinfo table.
	lda <2,x	; get scratch.
	bpl donext	; if nomidi on this	trk do next osc.
	and #$000F	; get just trk from	scratch.
	ora #$0080	; note off.
	xba	; put in high byte.
	pha	; save x (tobe) for	midi3out.
	ldx d3	; get index to gentable.
	lda <2,x	; get the semitone.
	plx	; save the x regester.
	jsr midi3out	; put out the midi command.

donext	ply	; restore index to gen table.
	plx
nextosc	txa	; get x
	clc
	adc #$5	; add 5. to next osc.
	tax	; put back in x.
	dey	;
	bne chkosc	; check next osc.

; turn off all the midi notes that the sequencer knows about.
	ldx #gentabtrk	; get index to midi	trk, semitone.
	ldy #32	; do it 32 times.

; get the info and see if its a note.
check	lda <0,x	; load the trk and semitone.
	bmi next	; if high bit set its not used.

	phx	; save regesters.
	phy	;

	sta d3	; save info.
	and #$0F00	; get the track.
	ora #$8000	; make it a note off.
	tax	; first byte in x.
	lda d3	; get the info.
	and #$00FF	; get just the tone.
	jsr midi3out	; send the midi packet.

	ply	; restore regesters.
	plx	;

next	inx	; next voice spot.
	inx	;
	dey	; adjust amount left to do.
	bne check	; check the next one.

; clear the generator tables.
ClrTabls	jsr clrgentabls

	rts	; done.
	ENDP

********************************************************************************
*
; Clear Generator tables

ClrGenTabls	PROC

	jsl MIDIInputPoll

	ldy #64
	ldx #gentabdur
	lda #$8000	; want high bits set.
clrgendur	sta 0,x	; force dp
	inx
	inx
	dey
	bne clrgendur

	jsl MIDIInputPoll

	ldy #35
	ldx #gentab
	lda #$8080
clrgentab	sta 0,x
	inx
	inx
	dey
	bne clrgentab

	jsl MIDIInputPoll

	rts
	ENDP
;_____________________________________________________________
;
; vibdepth -- set the vibrato depth value for a track.
;
; vibdepth acts as if an imaginary mod wheel had been moved.
; the vibrato depth	is altered according to the difference of the current
; value and the new	value. If the difference is positive then
; the depth is increased, if negative it is decreased.
; 00 is a special case that indicates no vibrato. This save	some cpu time.
;
; Note: vibdepth affects a track rather	than an individual note.
;
;  inputs : a legal	seq item on the stack

vibdepth	PROC
*         using seqdata

	jsr findtrk	; get the track number
	sta curtrk	; and save it

	jsr findtone	; works for getting	val1
	sta d3	; get the vibrato depth

; we have to loop through the generator	table looking for all generators
; that are linked to the track

	ldx #gentab+4	; initialize x for the track field
	ldy #$00	; use y as a counter for the gen num

again	lda <base,x	; get the track
	and #$FF	; mask off the garbage
	cmp curtrk
	beq setdepth	; bend the note

; since we didn't hit move on to the next item

loop1	cpy #$0F	; if y = 14 then we're in trouble
	bge done

	iny	; next generator
	txa	; move to the next semitone
	clc
	adc #$05
	tax

	bra again

; we have a track that matches, so we bend it! 

setdepth	phx	; save the registers
	phy
	pha
	jsl MIDIInputPoll
	pla
	ply
	plx

	phx	; save the registers
	phy
	pha

	phd	; save our direct page
	pei d3	; push the wheel position

; get the N. Synth DP, which is infront	of my dp.
	tdc	; get my dp.
	sec	;
	sbc #$100	; get synth dp

	tcd

	tya	; get the gen number in A
	asl a	; x16
	asl a
	asl a
	asl a
	clc
	adc #$05	; move to pitch bend

	tax	; move index into x

	pla	; get the pitch value back

	shortm	; 8 bit accumulator.

	sta <base,x	; set the new value

	Longm	; 16 bit acc. (still 16 bit x).
	pld	; restore all of the registers
	pla
	ply
	plx
	bra loop1	; check for any more on that track

done	lda mode	; get mode.
	bpl exit	; if no midi quit.

; see if midi set in command
	lda #$0100	;
	bit seqitem+2	; see if internal only bit set.
	bne exit	; if and isn't 0 then int only.

	lda curtrk	; get the current trk.
	asl a	; make into index.
	asl a	;
	asl a	;
	clc	;
	adc #trkinfo	; add trk info table.
	tax	;
	lda 2,x	; get the scratch location.
	bpl exit	; if no midi on this track quit.
	and #$f	; get midi channel.
	ora #$B0	; or in control change.
	xba	; put in high byte.
	tax	; put in x for midi3out.

	lda seqitem+2	; get the high word.
	xba	; put bit 23 in high byte.
	bmi exit	; get out of here.

	lda seqitem+2	;
	and #$007F	; get control number.
	xba	; put in h byte
	ora d3	; or in vib depth value.
	xba	; put in correct order.
	jsr midi3Out	; put out midi command.

exit	rts

	ENDP


;__________________________________________________________________________
;
; Progchng -- change the instrument associated with a track	to another.
;
; Expects the instrument number in Val 1 and the  track to be valid
; NOTE: The instrument number must be valid for the table. No range
; checking is performed. New Instruments can not be added to the table
; from the sequencer
;
; input: a valid seqitem on the stack

progchng	PROC

	jsr findtone	; get the contents of val1
	tax
	jsr findtrk	; get the track
	sta d3

	lda seqitem+3	; get high byt of second word.
	and #$7	; and off high 3 bytes.
	sta d3+2	; save temporarily.
	cmp #2	; see if midi only.
	beq midionly	; if so do midi only.

	lda d3
	phx	; instnum on stack
	jsr instn2ptr
	pla	; pop instnum

midionly	lda Mode	; see if MIDI int.
	bpl exit	; if no MIDI quit.
	lda d3+2	; get reserved 3 bits.
	cmp #1	; see if internal only.
	beq exit	; if so quit.
	lda d3	; get trk.
	asl a	; make into index.
	asl a	;
	asl a	;
	clc	;
	adc #trkinfo	;
	lda 2,x	; get the scratch
	bpl exit	; if no midi exit.
	and #$f	; get midi channel.
	sta d3+2	; save in x for midi out.
	lda seqitem+1	; 2nd and 3rd word.
	and #$7F00	; get only program change.
	ora #$C0	; make program change.
	ora d3+2	; or in channel number.
	jsr Midi2Out	; put out midi cmd.

exit	rts

	ENDP


;__________________________________________________________________________
;
; SetFlag -- Set the specified flag to the supplied value.
;
; Expects the first	3 bits from Val1 to	be a flag and the last 4 bits to
; be the value. Val2 is not used
;
; inputs:  a valid seqitem on the stack
;

setflag	PROC
*         using seqdata

	jsr findtone	; get the contents of val1
	shortm	; 8 bit accumulator.
	tay
	and #$07	; mask off flag number
	tax	; move index into x
	tya
	and #$78	; mask off value
	lsr A	; We want to be aligned to the ...
	lsr A	; ... Right. MLD 10/28/87
	lsr A	; (Fixes Regester Bug).
	sta flag1,x	; store the value in the flag
	Longm	; 16 bit accumulator. <still 16 bit x).

	rts

	ENDP


;_________________________________________________________________________
;
; doIfGo -- Test the specified flag for	the supplied value.	If true a branch
; is performed. No action otherwise. 
;
; The branch value is in the range of -128 to +127. Note that the branch 
; is specified in items, rather than bytes.
;
;  History:    3/15/88  Rewrote to make	smaller and faster.
;	    Also fixed a bug with negative branch ranges.
*
******************************************************************************

doifgo	PROC
*         using seqdata

	jsr findtone	; get contents of val1
	setMode8	
	tay
	and #$07	; mask off flag number
	tax	; move index into x
	tya
	and #$78	; mask off value
	lsr A	; We want to be aligned to the ...
	lsr A	; ... Right. MLD 10/28/87
	lsr A	; (Fixes Regester Bug).
	cmp flag1,x	; compare value to flag
	SetMode16	
	bne exit	; not equal -- no branch in seq

	jsr findval2	; get the displacement
	php	; save error condition codes.
	bit #$80	; see if value is negative or not.
	beq add	; if not negative add it in 16.
	sep #$20	; 8 bit accumulator	for adding.
	longa off
add	clc
	adc curpatt	; add to the current pattern
	plp	; reset mode.
	longa on
	dec a	; curpatt is incremented first thing.
	sta curpatt	; save curpatt.
exit	rts	; quit.

	ENDP

;__________________________________________________________________________
;
; IncFlag -- Increment the value of a flag. The low 3 bits of val1 contain
; the flag number. The top 4 bits must be 00.
;
; input: a valid seqitem on the stack
;
;

incflag	PROC
*         using	seqdata

	jsr findtone	; get the contents of val1
	and #$07
	shortm	; 8 bit accumulator.
	tax
	inc flag1,x	; increment the flag
	Longm	; 16 bit accumulator.

	rts

	ENDP


;__________________________________________________________________________
;
; DecFlag -- Decrement the value of a flag. The low 3 bits of val1 contain
; the flag number. The top 4 bits must be 00.
;
; input: a valid seqitem on the stack
;
;

decflag	PROC
*         using	seqdata

	jsr findtone	; get the contents of val1
	and #$07
	Shortm	; 8 bit accumulator.
	tax
	dec flag1,x	; increment the flag
	Longm	; 16 bit accumulator.

	rts

	ENDP



;__________________________________________________________________________
;         
; Midi3Out
;
; Out puts 3bytes of midi data.
; the last  two bytes in the paramater shuld be in the accumulator. H=3 l=2.
; the next one should be in the low byte of the x regester.	x H=1, L= -.
;

Midi3Out	PROC	;

	pha	; push the 3rd and 2nd bytes.
	phx	; push the first byte, and extra.
	PushLong #0	; no time stamp.
	PushWord #$0700	; Length.
	tsc	; get stack pointer.
	inc a	; point it to array.
	inc a	; point it to array.
	pea 0	; push the space.
	pea 0	; stack is zero bank.
	pha	; push the stack address.
	jsl MidiWriteGlue
	tsc	; get stack pointer	. . .
	clc	; and reajust it to	where it was...
;          adc	     #10	     ; before MidiArray was pushed on.
	adc #12	; before MidiArray was pushed on.
	tcs	; and reset the stack.
	rts	; done.

	ENDP

;__________________________________________________________________________
;         
; Midi2Out
;
; Out puts 2bytes of midi data.
; the first two bytes in the paramater shuld be in the accumulator. H=2 l=1.
;

Midi2Out	PROC	;

	pha	; push the 2nd and 1st bytes.
	PushLong #0	; no time stamp.
	PushWord #6	; Length.
	tsc	; get stack pointer.
	inc a	; point it to array.
	pea 0	; push the space.
	pea 0	; stack is zero bank.
	pha	; push the stack address.
	jsl MidiWriteGlue
	tsc	; get stack pointer	. . .
	clc	; and reajust it to	where it was...
	adc #10	; before MidiArray was pushed on.
;          adc	     #08	     ; before MidiArray was pushed on.
	tcs	; and reset the stack.
	rts	; done.

	ENDP


;__________________________________________________________________________
;         
; Midi1Out
;
; Out puts 1bytes of midi data.
; the first two bytes in the paramater shuld be in the accumulator. H=junk l=1.
;

Midi1Out	PROC	;

	pha	; push the junk and	1st bytes.
	PushLong #0	; no time stamp.
	PushWord #5	; Length.
	tsc	; get stack pointer.
	inc a	; point it to array.
	pea 0	; push the space.
	pea 0	; stack is zero bank.
	pha	; push the stack address.
	jsl MidiWriteGlue
	tsc	; get stack pointer	. . .
	clc	; and reajust it to	where it was...
	adc #10	; before MidiArray was pushed on.
	tcs	; and reset the stack.
	rts	; done.

	ENDP


;_____________________________________________________________________________
;
; Midi Note Off
;
; Does a midi note off command.

MidiNoteOff	PROC	;

	lda seqitem	; get the low word.
	and #$F00	; mask off the channel.
	ora #$8000	; or in the midi note off.
	tax	; save in x reg.
	lda seqitem+2	; get the 2 byte data.
	jsr Midi3Out	; put out the command.
	rts	; done.

	ENDP


;_____________________________________________________________________________
;
; Midi Note On
;
; Does a midi note on command.

doMidiNoteOn	PROC	;

	lda seqitem	; get the low word.
	and #$F00	; mask off the channel.
	ora #$9000	; or in the midi note on.
	tax	; save in x reg.
	lda seqitem+2	; get the 2 byte data.
	jsr Midi3Out	; put out the command.
	rts	; done.

	ENDP

;_____________________________________________________________________________
;
; Midi System Real Time Command.
;
; Does a midi system real time command.

MidiSystemRealTime	PROC	;

	lda seqitem+2	; get the high word.
	and #$7	; mask only the 3 bits.
	ora #$F8	; or in the midi system real time.
	pha	; push the junk and	1st bytes.
	pea $8000
	pea $0000	; negative # put out now!
	PushWord #5	; Length.
	tsc	; get stack pointer.
	inc a	; point it to array.
	pea 0	; push the space.
	pea 0	; stack is zero bank.
	pha	; push the stack address.
	jsl MidiWriteGlue
	tsc	; get stack pointer	. . .
	clc	; and reajust it to	where it was...
	adc #10	; before MidiArray was pushed on.
	tcs	; and reset the stack.
	rts	; done.

	ENDP

;_____________________________________________________________________________
;
; Midi Polyphonic key Command.
;
; Does a midi Polyphonic key command.

doMidiPolyKey	PROC

	lda seqitem	; get the low word.
	and #$F00	; mask only the channel.
	ora #$A000	; or in the midi command.
	tax	; put in x.
	lda seqitem+2	; get the high word.
	jsr Midi3Out	; put out the command.
	rts	; done.

	ENDP

;_____________________________________________________________________________
;
; Midi Control Command.
;
; Does a midi Control command.

MidiCntrlChng	PROC

	lda seqitem	; get the low word.
	and #$F00	; mask only the channel.
	ora #$B000	; or in the midi command.
	tax	; put in x.
	lda seqitem+2	; get the high word.
	jsr Midi3Out	; put out the command.
	rts	; done.

	ENDP


;_____________________________________________________________________________
;
; Midi Program change Command.
;
; Does a midi Program change command.

MidiProgramChng	PROC

	lda seqitem	; get the low word.
	and #$F00	; mask only the channel.
	ora #$C000	; or in the midi command.
	ora seqitem+2	; get the high word.
	xba	; switch order of bytes.
	jsr Midi2Out	; put out the command.
	rts	; done.

	ENDP

;_____________________________________________________________________________
;
; Midi Pressure chng  Command.
;
; Does a midi Pressure chng  command.

MidiPressurechng	PROC

	lda seqitem	; get the low word.
	and #$F00	; mask only the channel.
	ora #$D000	; or in the midi command.
	ora seqitem+2	; get the high word.
	xba	; switch order of bytes.
	jsr Midi2Out	; put out the command.
	rts	; done.

	ENDP

;_____________________________________________________________________________
;
; Midi Pitch Bend Cmd.
;
; Does a midi Pitch	Bend.

doMidiPitchBend	PROC

	lda seqitem	; get the low word.
	and #$F00	; mask only the channel.
	ora #$E000	; or in the midi command.
	tax	; put in x.
	lda seqitem+2	; get the high word.
	jsr Midi3Out	; put out the command.
	rts	; done.

	ENDP

;_____________________________________________________________________________
;
; Midi Channel mode	message.
;
; Does a midi Channel mode message.

MidiSelctChnlMode	PROC

	lda seqitem	; get the low word.
	and #$F00	; mask only the channel.
	ora #$B000	; or in the midi command.
	tax	; put in x.
	lda seqitem+2	; get the high word.
	jsr Midi3Out	; put out the command.
	rts	; done.

	ENDP

;_____________________________________________________________________________
;
; Midi Sys Exlusive
;
; Takes a Pointer to a midi array and puts it out.

MidiSysExl	PROC
	pha	; space for MidiWritePacket.
	lda SysExlDB	; get the high Word	of SysExl Ptr.
	pha	; push it.
	lda seqitem+2	; get the high word.
	pha	; push the low word	of the Ptr.
	jsl MidiWriteGlue	; send out the packet.
	pla	; get result.
	rts	; done.

	ENDP

;_____________________________________________________________________________
;
; Midi Sys Exlusive	Data Bank
;
; Sets the Data Bank to be used for Sys	Exlusive commands.

SysExlDataBank	PROC
	lda seqitem+2	; get the high word.
	sta SysExlDB	; save the high word of Pointer.
	rts
	ENDP


;_____________________________________________________________________________
;
; Midi System Common.
;
; Generates a midi system common command.

MidiSystemCommon	PROC

; find out how many	bytes to put out.
	lda seqitem	; get the low word.
	and #$1800	; get just bits 11 and 12.
	bne check1	; if not zero check	if 1 byte only.

; put out one byte.

; first get the operand. sss.
	lda seqitem	; get low word of seq item.
	and #$0700	; get bits 8, 9, and 10.
	ora #$F000	; make it a system common command.
	xba	; put in low byte for midi1out.
	jsr midi1out	; put out the midi command.
	rts	; Exit.

; check if only one	byte of data.
check1	cmp #$0800	; see if only one bit set.
	bne twobytes	; if note equal than put 2 bytes out.

; put out one byte of data.

; first get the operand. sss.
	lda seqitem	; get low word of seq item.
	and #$0700	; get bits 8, 9, and 10.
	ora #$F000	; make it a system common command.
	ora seqitem+2	; or in the data byte.
	xba	; put cmd in low byte for midi2out.
	jsr Midi2Out	; put out the Midi Command.
	rts	; Exit.

; put out two bytes	of data.

; first get the two	bytes.
TwoBytes	lda seqitem+2
	tax	; put in x for midi3out.

; then build the command with the operand. sss.
	lda seqitem	; get low word of seq item.
	and #$0700	; get bits 8, 9, and 10.
	ora #$F000	; make it a system common command.
	jsr midi3out	; put out the midi command.
	rts	; Exit.

	ENDP

;          copy	 seq.util.asm
;______________________________________________________________
;
; File SEQ.UTIL.A
;
; This file contains the various utility routine for the
; various sequncer calls.
;
; Modification History
;
;  12 Jan 87   JW	    New today
;   9 Feb 87   JW	    Accessor functions for note commands added
;
;______________________________________________________________

; Copyright nineteen eighty seven too nineteen eighty eight.
; All rights reserved. Apple Computer, Inc. '87-'88/'88.

;________________________________________________________________________
;
;
;  These routines extract the various parts from note commands.
;
;


; Note that the seq	items look like:
; (the numbers are the widths of the fields in bits)
;
;  --------------------------------------------------------
; |1|  4  |        11         |1|    7	  |1|      7       |
;  --------------------------------------------------------
;
; bit  31 is the delay bit. It will cause the sequencer to wait until
;         this item	has completed playing
;
; bits 27-30 contain the track number
;
; bits 16-26 contain the duration of the note. For MIDI style notes, this
;            field should be zero
;
; bit  15 is the note bit. It is set for note commands, cleared otherwise
; 
; bits 8-14 contain	the semitone number. 
;
; bit  7 is the chord bit. It informs the sequencer that this note is part
;        or a chord	as are all following notes with the chord bit set.
;        After encountering a noteon with the chord bit set, the 
;        sequencer will continue to fetch items until it encounters a noteon
;        command without the chord bit set or another command. A noteon 
;        command without the chord bit set is considered as	part of the chord.
;
; 
; bits 0-6  contain	the volume of the note to be played. If	the volume
;            zero then the note is considered a note off command
;



; NOTE: by the time	any of these routines get control there	are
;       4 bytes of return information on the stack. the seqitem
;       starts at 5,s
; This routine looks at the note on the	stack and returns the tone number
;
; This routine will	look at the seq item on the stack and return
; the track number in the accumulator.



findtrk	PROC
*         using seqdata


; first find out what track we are talking about. 

	lda seqitem+2	; high word of seq item
	xba	; high byte on bottom
	lsr a
	lsr a
	lsr a
	and #$000F	; zero everything but the track

	rts

	ENDP



findtone	PROC
*         using	seqdata

	lda seqitem	; get the low part of the item
	xba	; put byte with tone on bottom
	and #$7F	; mask off note bit.
	rts

	ENDP

; This routine will	look at the seq item on the stack and return the vol

findvol	PROC
*         using	seqdata

	lda seqitem	; get the low part of the item
	and #$7F	; mask off garbage
	rts

	ENDP


; This routine will	look at the seq item and return the duration and delay

finddur	PROC
*         using	seqdata

	lda seqitem+2	; get the high part
	and #$87FF	; mask off track info
	rts

	ENDP

; This routine will	look at the seq item on the stack and return the cmd

findcmd	PROC
*         using	seqdata

	lda seqitem	; get the low part of the item
	and #$7F	; mask off garbage
	rts

	ENDP

; -- this routine will return the contents of val2 from a control item

findval2	PROC
*         using	seqdata

	lda seqitem+2	; get the high part
	and #$FF	; mask off high byte
	rts

	ENDP

;          copy	 seq.mtool.asm

; Copyright nineteen eighty seven too nineteen eighty eight.
; All rights reserved. Apple Computer, Inc. '87-'88/'88.


;_____________________________________________________________________
;
; This file contains an odd collection of tool calls available from 
; the sequencer.
;
; Note that although they don't check they all assume that there has 
; been a call to start seq made prior to making any of these calls.
; If there hasn't been ...
;
;


;____________________________________________________________________
;
; Call #9
;
; SetIncr -- set the increment value.
;
;
; Normally the increment value is set once during the startup call.
; by making this call the application can change it.
;
; Note that the increment can also be changed from within the sequence
; itself by using a	tempo command. Since the increment is a	global
; variable, life can get very weird if you aren't careful.
;
; inputs: increment	: word
;
; Errors: None
;_____________________________________________________________________
;


setincr	PROC
*         using seqdata

incr	equ 9

	phd
	tcd	; set up my wap as dirpage

	lda incr,s	; get the value of incr
	sta <increment

	ldy #$02
	jmp endcall

	ENDP

;____________________________________________________________________
;
; ClearIncr -- clear the increment value.
;
; Call #10
;
; Normally the increment value is set once during the startup call.
; by making this call the application can change it.
;
; ClearIncr will clear the value of increment. This will cause the 
; sequencer to pause. Notes that are on	will not get turned	off, etc.
; The old value of increment is returned.
;
; output: increment	: word
;
; Errors: None
;_____________________________________________________________________
;



clearincr	PROC
*         using seqdata

incr	equ 9

	phd
	tcd	; set up my wap as dirpage

	lda <increment	; get the value of incr
	sta incr,s
	stz <increment

	ldy #$00
	jmp endcall

	ENDP


;____________________________________________________________________
;
;
; Call #11
;
; GetTime -- this routine will return the current value of the
; timer. If the sequencer is not stopped then this value will 
; probably not be correct. It will however give the application an
; approximate idea of where the sequencer is at.
;
;
; output -- timer :	word
;
; Errors: None
;_____________________________________________________________________
;


gettime	PROC
*         using seqdata

time	equ 9

	phd	; set the direct page to my wap
	tcd

	lda <tickcount
	sta time,s

	ldy #$00
	jmp endcall

	ENDP

;____________________________________________________________________
;
; Call #12
;
; GetLoc -- will return the phrase index, patt index and level.
; again, unless the	sequencer has been stopped, this information is
; probably only a best guess. 
;
; output  phrase : word
;         patt : word
;         level : word
;
; Errors: None
;_____________________________________________________________________
;




getloc	PROC
*         using seqdata

phrase	equ 9
patt	equ 11
lev	equ 13

	phd
	tcd	; set my wap ad dirpage

	lda <curphrase
	sta phrase,s

	lda <curpatt
	sta patt,s

	lda <level
	sta lev,s

	ldy #$00
	jmp endcall

	ENDP



;_____________________________________________________________________
;
;
; Call #13
;
; All Notes Off -- This routine just calls the code for the	all off
; control call. I thought some people might want to make the call from 
; an application. It might be especially useful with the ClearIncr call.
;
;
; Inputs:  none
;
; Errors: None
;_____________________________________________________________________
;



allnoteoff	PROC

	phd
	tcd	; set up direct page

	jsr TurnSeqNotesOff	; sequencer notes should be turned off.

	ldy #$00
	jmp endcall

	ENDP

;          copy	 seq.glue.asm
********************************************************************************
*			                   *
*  This file contains the glue routines	used to by pass the	tool locator       *
*  for the following calls. _NoteOn _NoteOff _AllocGen _MidiWritePacket.       *
*			                   *
********************************************************************************

NoteOnGlue	PROC

	phk	; push extra RTL.
	lda #GlueReturn-1	;
	pha
	lda NoteOnAddr+1	; address of call.
	pha
	phb	; extra byte.
	lda NoteOnAddr
	sta 1,s	;
	tdc	; get my dp.
	sec
	sbc #$100	; N. Synth dp.

; Poll Midi before NoteOn.
	pha
	jsl MIDIInputPoll
	pla

GlueReturn	rtl
	ENDP

NoteoffGlue	PROC

	phk	; push extra RTL.
	lda #GlueReturn-1	;
	pha
	lda NoteOffAddr+1	; address of call.
	pha
	phb	; extra byte.
	lda NoteOffAddr
	sta 1,s	;
	tdc	; get my dp.
	sec
	sbc #$100	; N. Synth dp.

; Poll Midi before NoteOff.
	pha
	jsl MIDIInputPoll
	pla

GlueReturn	rtl
	ENDP

AllocGlue	PROC

	phk	; push extra RTL.
	lda #GlueReturn-1	;
	pha
	lda AllocAddr+1	; address of call.
	pha
	phb	; extra byte.
	lda AllocAddr
	sta 1,s	;
	tdc	; get my dp.
	sec
	sbc #$100	; N. Synth dp.

; Poll Midi before AllocGenerator.
	pha
	jsl MIDIInputPoll
	pla

GlueReturn	rtl
	ENDP

Midiwriteglue	PROC

	phk	; push extra RTL.
	lda #GlueReturn-1	;
	pha
	lda MidiWriteAddr+1	; address of call.
	pha
	phb	; extra byte.
	lda MidiWriteAddr
	sta 1,s	;
	lda mididp
GlueReturn	rtl
	ENDP
	END

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/NoteSynth/Note.Exec.aii b/IIGS.601.SRC/GSToolbox/NoteSynth/Note.Exec.aii
new file mode 100644
index 0000000..b3067f1
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/NoteSynth/Note.Exec.aii
@@ -0,0 +1 @@
+	Print off
;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

	IMPORT	AddMidiHook
	IMPORT	AllNotesOff
	IMPORT	AllocGen
	IMPORT	DeAllocGen
	IMPORT	NoteOff
	IMPORT	NoteOn
	IMPORT	long
	IMPORT	SetUpdateRate
	IMPORT	SetUserUpdateRtn
	IMPORT	short
	IMPORT	update

;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

	ENTRY	NSBoot
	ENTRY	NSReset
	ENTRY	NSShutdown
	ENTRY	NSStartStat
	ENTRY	NSStartup
	ENTRY	NSVersion
	ENTRY	NotImp
		MACHINE	M65816	
		INCLUDE 'ns.equ'
		INCLUDE	'note.macros'
		INCLUDE 'E16.Memory'	
		INCLUDE 'all.macros'
	Print	on, NoGen, NoHdr, NoMDir
	
****************************************************************
*
*    Note Synthesizer Function Pointer Table
*
*	7/25/88 Matt Denman changed NSFTP to NoteSynCallTable
*
****************************************************************
*
FPT      PROC

		EXPORT	NoteSynCallTable
NoteSynCallTable	DC.L	16
	DC.L	NSBoot-1
	DC.L	NSStartup-1
	DC.L	NSShutdown-1
	DC.L	NSVersion-1
	DC.L	NSReset-1
	DC.L	NSStartStat-1
	DC.L	NotImp-1
	DC.L	NotImp-1

	DC.L	AllocGen-1	;9
	DC.L	DeAllocGen-1	;10
	DC.L	NoteOn-1	;11
	DC.L	NoteOff-1	;12
	DC.L	AllNotesOff-1	;13
 	DC.L	SetUpdateRate-1	;14
 	DC.L	SetUserUpdateRtn-1 ;15

		ENDP

****************************************************************
*
*  NSBoot
*
*  Inputs:
*
*  Outputs:
*
****************************************************************
*
* This routine gets called when I'm first loaded into ram.  Since
* the sound tools have done most of the work already.

		EXPORT	NSBoot   
NSBoot   PROC
         longa on
         longi on

* clear out my cubbyhole and thereby reset the 'awake' flag
         ldx   #10                      ; 12 bytes there
         lda   #0
@clear    sta   >cubbyhole,x
         dex
         dex
         bpl   @clear

         clc
         rtl
		ENDP


****************************************************************
*
*  NSStartup
*
*  Inputs: update rate, interrupt flag, and timer routine
*
*  Outputs: none right now
*
*****************************************************************
         longa on
         longi on
		EXPORT	NSStartup 
NSStartup PROC

updateRate     equ 7+4+2                ; 2 for dp; 7 for rtl etc
userRoutine    equ 7+0+2

* Start by seeing if we're already started.

         lda   >myflags
         and   #awake_bit
         beq   asleep

* whoops! we were.  Return an error.
         ldx  #errstarted
         brl   exit

* normal startup.  Steal the direct page work area from Sound Tools.

asleep   pea   0                        ; find out if the sound tools
         _SoundToolStatus               ; have been started
         pla
         bne   soundon
         ldx   #soundnotinit
         brl   exit

soundon  pea	0
		 _SoundVersion
		 pla							; get the version of the Sound Tools.
		 and	#$7FFF					; don't care if prototype.
		 cmp	#SoundTVer
		 bcs	Ver_OK
		 ldx	#errSoundWrngVer		; Sound Tools have the wrong version.
		 brl	exit
		 
Ver_OK 	 pushword #0                    ; this argument is for SETWAP call
         pushword #my_tool_number

         pushword #0                    ; room for result
         pushword #0                    ;
         pushword #0                    ; system tool/ sound tool
         pushword #8                    ; My tool uses the same zero page
         _GetWAP                        ; as the sound tools. ask for it.

* if there's an error here... God help us
         lda   1,s
         sta   >mydp-1                  ; store hi byte in cubbyhole
         _SetWAP                        ; my ID, and the WAP, are on stack
         lda   >mydp-1
         and   #$FF00                   ; regain DP

* Direct  page pointer (GCB) is in A. Use it to reserve the last
* generator (#$0E) for a timer.  (****** att: ROM REV FIX ****** )
* This is because osc 30 and 31 don't interrupt properly with the
* June 86 ROM.

         phd                            ; save user DP
         tcd                            ; install mine
         lda   #My_ID                   ; Note Synth tag is attached
;        sta   <timer_gen*16            ; to the the last GCB so that
         sta   <timer_gen<<4            ; to the last GCB so that
*                                       ; IRQ will come to me.
****************************************************************


* Other things to set up in the 'cubbyhole:' pointers and flags
* note that DP is on stack, my DP is installed.

* Stack contents:
* updateRate     equ 7+4+2                ; 2 for dp; 7 for rtl etc
* userRoutine    equ 7+0+2
* rtl
* rtl
* user DP

; get handle for priority_table and vcb_ram.
		pha								; space for result.
		pha								;
		lda	#0							; Size in bytes of handle.
		pha								;
		lda	#528						; 32X16=512+16= 528 bytes. 
		pha								; may only need 32X14 but just in case.
		lda	#NSID						; get the id to use for NS.
		pha								;
		lda	#attrlocked+attrNoCross+attrfixed ; can't move,purge of Cross banks.
		pha								;
		pha								; address
		pha								;
		_NewHandle						; get my memory.
		tax								; save the error code, if error.
		tsc								; dereference the handle off of ...
		phd								; the stack, by moving the dp ...
		tcd								; to the stack.
		ldy	#2							; index for high word.
		lda	[1],y						; get the high word.
		ora	#$100						; set awake_bit.						
        sta >myram_ptr+2              	; save high word addr and my_flag.
		lda	[1]							; get the low word.
        sta >myram_ptr					; save low in my reserved memory loc.
		pld								; restore dp.
		pla								; clean up the stack.
		pla								;
		
; This is now acomplished by the NewHandle code above. Where I get memory.
; Have myram_ptr point to it, and or in that awake_bit.

*         lda   #priority_table			; priority table is a little different,
*         sta   >myram_ptr				; now that I'm moving to rom.
*         lda   #^(priority_table)
*		  ora   #$100					  ; set awake_bit that NS is started.
*         sta   >myram_ptr+2              ; high word addr

* Check if UpdateRate is zero if so use update_rate as default.

		lda	UpdateRate,s
		bne	@1
		lda	#update_rate
		sta	UpdateRate,s
		
* take care of the user update vector. set a flag if its non-zero

@1       ldx   #0                       ;x is a case flag for a moment.
         lda   userRoutine,s
         beq   low0
         inx                            ;if both halves of  user routine
low0     sta   >userUpdate              ; are zero, then we don't call
         mem_short                   ; this address
         lda   userRoutine+2,s
         beq   high0
         inx
high0    sta   >userUpdate+2
         txa
         beq   novec

         lda   >myflags                 ; we have a non-zero vector.
         ora   #user_bit                ; set a flag and
         sta   >myflags
         lda   #$5c                     ; install a jump long instruction
         sta   >userjump

novec    mem_long

* initialize the priority table.  The address of it is in zero page.
         lda	myram_ptr+1				; put myram_ptr on stack.
		 pha							; so I can move the dp on the stack,
		 phb
		 lda	myram_ptr				; and then access it for long indexed,
		 sta	1,s						; indirect.
		 phd							; save old dp.
		 tsc							; get the stack.
		 tcd							; set dp to be on stack.
		 lda   #0
         ldy   #30
fill     sta   [3],y            		; initialize the priority table
         dey
         dey
         bpl   fill
		 pld							; restore dp.
		 phb							; extra space.  3 bytes pushed already.
*		 pla							; pull myramp_ptr off of stack.
*		 pla							;

*         pha                            ; Now install my interrupt
*         pha                            ; handler as the first one
		EXPORT	reloc2
reloc2		;		
         lda   #^update                 ; in line.  Save the old
         pha                            ; vector in case someone
		EXPORT	relocb2
relocb2		;		
         lda   #<update                 ; creates yet another kind
         pha                            ; of synthesizer.
         _SetUserSoundIRQV              ; sound tool $13: install vec
         pla                            ; get next guys irq vector
         sta   >old_vector              ; and save that
         pla
         mem_short
         sta   >old_vector+2


		 php							; save status
		 sei							; no interupts while using DOC Glue.
		 
         lda   >SysVol
         sta   >GStatReg                ; no inc, to doc
         lda   #doc_freqlo+timer_osc    ; set frequency of the
         sta   >GAdrL                   ; timer osc
         lda   updateRate+1,s
         asl   A                        ; 9/24/86 double the freq
         sta   >GDataReg
         lda   #doc_freqhi+timer_osc
         sta   >GAdrL
         lda   updateRate+1+1,s
         rol   A                        ; 9/24/86 hi byte of freq
         sta   >GDataReg

         lda   #doc_vol+timer_osc       ; set volume, for kicks...
         sta   >GAdrL
         lda   #$00
         sta   >GDataReg

         lda   #doc_size+timer_osc
         sta   >GAdrL
         lda   #$00
         sta   >GDataReg

         lda   #doc_ctrl+timer_osc
         sta   >GAdrL
         lda   #doc_irq_bit             ; free run, interrupts
         sta   >GDataReg
		 
		 plp							; reenable interupts.

         mem_long
         pld
         ldx   #0                       ; err code
exit     pla                            ; move ,1 to ,7
         sta   5,s
         pla                            ; move ,3 to ,9
         sta   5,s
         pla                            ; move ,5 to ,11
         sta   5,s
         txa
         cmp   #1
         rtl

		ENDP
         eject
****************************************************************
*
*  NSShutdown
*
*  Inputs:
*
*  Outputs:
*
****************************************************************
*
		EXPORT	NSShutdown 
NSShutdown PROC
         longa on
         longi on

         lda   >myflags
         and   #awake_bit
         bne   proceed

* its not started!
         lda   #errNotStarted
         sec
         rtl

proceed  _AllNotesOff
         mem_short

         lda   >SysVol
         sta   >GStatReg                ; no inc, to doc
         lda   #doc_ctrl+timer_osc
         sta   >GAdrL
         lda   #doc_halt_reset          ; turn off the timer osc
         sta   >GDataReg

* swap the old IRQ vector back; take mine out of the loop
         both long
         pha
         pha
         lda   >old_vector+2            ; (ignore hi byte...)
         pha
         lda   >old_vector
         pha
         _SetUserSoundIRQV
         pla
         pla

* clear out my cubbyhole and thereby reset the 'awake' flag
         ldx   #10                      ; 12 bytes there
         lda   #0
clear2   sta   >cubbyhole,x
         dex
         dex
         bpl   clear2

* ZAP my WAP, so that the tool locator won't give it to me.
         pushword #0
         pushword #my_tool_number
         pushword #0
         pushword #0
         _SetWAP
* Dispose of the handle I have been using.
		Pushword #NSID
		_Disposeall
		
         cmp	#1

         rtl

		ENDP

****************************************************************
*
*  NSVersion
*
*  Inputs:
*
*  Outputs:
*
****************************************************************
*
		EXPORT	NSVersion 
NSVersion PROC
         longa on
         longi on
		
         lda   #version_number
         sta   7,s

         lda   #0
         clc
         rtl
		ENDP

****************************************************************
*
*  NSReset
*
*  Inputs:
*
*  Outputs:
*
****************************************************************
*
		EXPORT	NSReset  
NSReset  PROC
         longi on
         longa on
*        using mydata

         jsl   NSShutdown
         lda   #0                       ;no error, either way...

         clc
         rtl
		ENDP

****************************************************************
*
*  NSStartStat
*
*  Inputs:
*
*  Outputs:
*
****************************************************************
*
		EXPORT	NSStartStat 
NSStartStat PROC
         longi on
         longa on
		
         lda   >myflags
         and   #awake_bit
         beq   notstarted
         lda   #$FFFF                   ; yes, we are awake
         bra   exit
notstarted lda #0                       ; no we are not
exit     sta   7,s
         lda   #0
         clc
         rtl

		ENDP

****************************************************************
*
*  NotImp
*
*  Inputs:
*
*  Outputs:
*
****************************************************************
*
NotImp   PROC
         longa on
         longi on
         lda   #-1
         sec
         rtl

		ENDP
		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/NoteSynth/Note.Macros b/IIGS.601.SRC/GSToolbox/NoteSynth/Note.Macros
new file mode 100644
index 0000000..e167628
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/NoteSynth/Note.Macros
@@ -0,0 +1 @@
+ MACRO
&lab both &l
		IF	&l='short' GOTO .a
&lab rep #$30
 longa on
 longi on
 mexit
.a
&lab sep #$30
 longa off
 longi off
 mend
 MACRO
&LAB MEM_Long
		IF	'&L'='short' GOTO .A
&lab rep #$20
 longa on
 mend
 MACRO
&Lab Mem_Short
&lab sep #$20
 longa off
 mend


 macro
&lab     index &l
		IF	&l='short' GOTO .a
&lab     rep   #$10
         longi on
         mexit
.a
&lab     sep   #$10
         longi off
         mend
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/NoteSynth/Note.aii b/IIGS.601.SRC/GSToolbox/NoteSynth/Note.aii
new file mode 100644
index 0000000..f538c68
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/NoteSynth/Note.aii
@@ -0,0 +1 @@
+****************************************************************
*
*                      APPLE //gs Note Synthesizer Tool
*
*              (C) Apple
*              Copyright Apple Computer, Inc. 1986, 1987
*              All rights reserved.
*
*              Version 1.1a1
*
*              Last Modified 17Aug87
*
*              Designed by Gus Andrade and J. William Mauchly
*
*
*    Modification History
*
*    <C0001> 17Aug87 jw,md Fixed problem with AllocGen returning
*                         gen numbers > $15
*
*            2Feb88  md   Fixed bug in update where it wasnt
*                         jumping to the old vector correctly.
*
*            28Aprl88 md  Added MidiHook to be called during ns
*                         interupt so that midi data can still
*                         be pulled during long interupts.
*
****************************************************************
;
;
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/NoteSynth/NoteOff.aii b/IIGS.601.SRC/GSToolbox/NoteSynth/NoteOff.aii
new file mode 100644
index 0000000..ed096cf
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/NoteSynth/NoteOff.aii
@@ -0,0 +1 @@
+	Blanks Off
;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

		print off
		INCLUDE	'gcb.aii'
		INCLUDE 'Note.Macros'
		INCLUDE	'E16.NoteSyn'
		INCLUDE	'ns.equ'
		INCLUDE	'E16.MIDI'
		print	on, nogen, nomdir, nohdr
		
****************************************************************
*
*  NoteOff  Tool Call
*
*  Inputs: GenNum, Semitone
*
*  Output: none
*
*    This routine is reentrant: thou shalt not use scratch RAM
*
****************************************************************
		EXPORT	NoteOff  
NoteOff  PROC
         longi on
         longa on

SGenNum  equ         9                  * stack frame at entry
Semitone equ         7
* RTL 1              4
* RTL 2              1


****************************************************************

* This routine uses the DP to point directly to the GCB it is using.
* That means direct addressing takes an extra cycle, but its worth it.
* Compute the gcb adress so that we have some workspace:

         tax							; check the z status flag.
		 bne	@1						; if not equal we were started.
		 ldx	#nsNotInit				; otherwize we weren't startedd,
		 jmp	error					; return error and exit.
@1       php
         sei                            ; no irq just yet!

         pha                            ; save my DP a moment
         lda   SGenNum+3,s
         and   #$000F                   ; qualify the gennum a bit
         tax
         asl   a
         asl   a                        ; mul by 16 to get gcb offset
         asl   a
         asl   a
         adc   1,s                      ; add offset to my DP
         ply                            ; and fix stack
         phd                            ; now push OLD DP
         tcd                            ; and install mine
         phb                            ; push user data bank too!
         mem_short
         lda   >cubbyhole+2
         pha
         plb                            ; install my data bank.

* The stack is now 4 up from entry level; gennum is in x.

         lda   gcb_ID                   ; is it still my gen?
         and   #$000f
         cmp   #my_ID
         bne   exit4

         lda   gcb_semitone
         and   #$007F                   ; is it still playing
         cmp   Semitone+4,s             ; the same note?
         bne   exit4

* If we get here, then we have the gen in question.  We now have
* to send it into its release stage, which involves the envelope;
* and jimmy the priority, to make it more stealable.


* The stack is now 4 up from entry level. Memory is short. x has gen num.

         index short
         ldy   #vcb_release_seg         ; set envelope stage to
         lda   (gcb_vcb),y              ; release
         asl   a                        ; each segment is 3 bytes.
         adc   (gcb_vcb),y
         ldy   #vcb_current_seg
         sta   (gcb_vcb),y
         mem_long
         lda   gcb_env_cur              ; this will cause the env
         sta   gcb_env_lim              ; to go to the next stage
         lda   #1
         sta   gcb_env_inc

* Now we have to decrease the priority by half.

         both long
         pei   gcb_vcb                 ; were up 6 again, saving this pointer
         lda   >cubbyhole                ; get the priority table back
         sta   gcb_vcb
         lda   Sgennum+6,s
         tay
         mem_short
         lda   (gcb_vcb),y              ; get priority
         lsr   a
         sta   (gcb_vcb),y              ; and stick it in the table
         mem_long
         pla
         sta   gcb_vcb                  ; restore my pointer

****************************************************************
* restore the registers, fix the stack, and get out!
exit4    plb                            ; get old data bank   (1)
         pld                            ; get old direct reg  (2)
         plp                            ; get old irq status
		 ldx	#0						; no error.
		 
		 longa on
		 longi on
error	 lda     5,s
         sta     9,s
         pla
         sta     3,s
         pla
         sta     3,s                    ; wierd but it works
         txa							; get error code.
         cmp	#1						; set carry flag if error.
         rtl                            ; return happy

		ENDP
         eject

****************************************************************
*
*  AllNotesOff
*
*  Inputs: none
*
*  Outputs: none
*
****************************************************************
*
		EXPORT	AllNotesOff 
AllNotesOff PROC

*              for generator = 0 to num_of_gen-1
*                    if ID = note synth
*                              dealloc generator
*                    endif
*              next generator
*        endif

         longi on
         longa on


****************************************************************
* Get my DP area and my workarea pointers
*
         tax							; set the status regester.
		 bne	@1						; if not equal then we're started.
		 ldx	#nsNotInit				; otherwize we aren't started.
		 jmp	error					; and return error and exit.
@1		 php
         sei
         phd                            ; save old dp
         tcd
         mem_short
         phb							; save the callers bank.
         lda	myram_ptr+2				; get my bank
		 pha							; and put on stack.
         plb							; pull bank.

* Stack is up 4. memory is short. D and b are set.

****************************************************************
*
* Repeat Loop.
*
* DP will be the Loop counter, incremented by 16's.
* y will also count through the priority table.
* memory is short index is long

; for rom ldy   #priority_table must be replaced.
		 lda	>myram_ptr+1	; get the priority table address.
		 xba
		 lda	>myram_ptr
		 tay					; and put in y.
LOOP     lda   gcb_ID
         and   #$0F
         cmp   #my_ID
         bne   not_note

         stz   gcb_ID                   ; clear the ID byte
         lda   gcb_doc
         clc
         adc   #doc_ctrl
         sta   >GAdrL
         lda   >SysVol
         ora   #GPtrInc
         sta   >GStatReg
         lda   #doc_halt_reset
         sta   >GDataReg
         sta   >GDataReg                ; halt both oscillators

         lda   #0
         sta   |0,y                      ; zero priority

not_note iny
         tdc                            ; ( do this with 8 bit acc? )
         clc
         adc   #gcb_size                ; advance direct page to next gcb
         tcd
		 cmp   #$40					    ; time for first poll of midi.
		 bne	@1						; if not go on.
; poll midi and save regesters.
		 phx
		 phy
		 pha
		 php
		 both long
		 jsl	MIDIInputPoll				; poll midi.
         longa	off
		 plp
		 pla
		 ply
		 plx							; restore regesters
@1		 cmp	#$C0					; time for second poll of midi.
		 bne	@2						; if not go on.
; poll midi and save regesters.
		 phx
		 phy
		 pha
		 php
		 both long
		 jsl	MIDIInputPoll				; poll midi.
		 longa	off
		 plp
		 pla
		 ply
		 plx							; restore regesters
@2       cmp   #gcb_size*num_of_gen
         bne   loop

****************************************************************
* Now leave the way we came, restoring registers.

         plb
         pld
         plp                            ;( both long, irq as before)
		 ldx	#0						; no error.
		 longa on
		 longi on
error	 txa							; get error code.
		 cmp	#1						; set the carry flag.
         rtl

		ENDP

;        append update.src         -- this line is very silly since the file
;                                     is copied at the top level anyways
		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/NoteSynth/NoteOn.aii b/IIGS.601.SRC/GSToolbox/NoteSynth/NoteOn.aii
new file mode 100644
index 0000000..7377167
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/NoteSynth/NoteOn.aii
@@ -0,0 +1 @@
+	print off
	blanks off
;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

	IMPORT	GAdrL
	IMPORT	GDataReg
	IMPORT	GStatReg
	IMPORT	GptrInc
	IMPORT	SysVol
	IMPORT	compute_envelope
	IMPORT	cubbyhole
	IMPORT	doc_addr
	IMPORT	doc_ctrl
	IMPORT	doc_size
	IMPORT	gcb_ID
	IMPORT	gcb_doc
	IMPORT	gcb_env_cur
	IMPORT	gcb_env_inc
	IMPORT	gcb_env_lim
	IMPORT	gcb_pitchbend
	IMPORT	gcb_semitone
	IMPORT	gcb_vcb
	IMPORT	gcb_vib_cur
	IMPORT	gcb_vib_depth
	IMPORT	gcb_vib_inc
	IMPORT	gcb_volume
	IMPORT	inst_Awavecount
	IMPORT	inst_envelope
	IMPORT	inst_pb_range
	IMPORT	inst_release_seg
	IMPORT	inst_size
	IMPORT	inst_vib_depth
	IMPORT	inst_vib_inc
	IMPORT	long
	IMPORT	my_ID
	IMPORT	osc_table
	IMPORT	pitch_out
	IMPORT	short
	IMPORT	vcb_Apitch
	IMPORT	vcb_Bpitch
	IMPORT	vcb_current_seg
	IMPORT	vcb_ram
	IMPORT	wp_addr
	IMPORT	wp_pitch
	print on, NoGen, NoHdr, NoMdir

****************************************************************
*
*  NoteOn  Tool Call
*
*  Inputs: GenNum, Semitone, Volume, Instrument ptr
*
*  Output: none
*
*    This routine is reentrant: thou shalt not use scratch RAM
*
****************************************************************
		EXPORT	NoteOn   
NoteOn   PROC
         longi on
         longa on
		
		print push
		print off
		INCLUDE	'gcb.aii'
		INCLUDE 'Note.Macros'
		INCLUDE	'ns.equ'
		INCLUDE	'E16.NoteSyn'
		INCLUDE	'E16.MIDI'
		print 	pop
		
SGenNum  equ        15                  * stack frame at entry
Semitone equ        13
Svolume  equ        11                  * ten bytes of arg
Sinstrument equ      7
* RTL 1              4
* RTL 2              1

* alternate definition of GCB while in this setup phase:
* gcb_ID       equ   0                  ; same
* gcb_gennum   equ   1                  ; same
table_ptr      equ   2                  ; ptr to priority table (2, uses DB)
inst_ptr       equ   4                  ; ptr in instrument (4)
Awaveptr       equ   8                  ; ptr to wave structure (3)
Bwaveptr       equ   11                 ; ptr to wave structure (3)
* gcb_vcb      equ   14                 ; same

****************************************************************

* This routine uses the DP to point directly to the GCB it is using.
* That means direct addressing takes an extra cycle, but its worth it.
* Compute the gcb adress so that we have some workspace:

*        sei                            ; no irq just yet!

		 tax							; set flags.
		 bne	@1						; if not equal we were started up.
		 ldx	#nsNotInit				; if equal we weren't started, report err.
		 jmp	exit					; exit and return error.
@1       pha                            ; save my DP a moment
         lda   SGenNum+2,s
         and   #$000F                   ; qualify the gennum a bit
         tax
         asl   a
         asl   a                        ; mul by 16 to get gcb offset
         asl   a
         asl   a
         adc   1,s                      ; add offset to my DP
         ply                            ; and fix stack
         phd                            ; now push OLD DP
         tcd                            ; and install mine
         phb                            ; push user data bank too!

* The stack is now 3 up from entry level; gennum is in x.
* To prevent clashes, we will raise the priority level of this gen to
* 255, where it can't be stolen by AllocGen.

         lda   >cubbyhole+2
*        bne   OKmem                    ; calling me without init? bad dog!
*                                       ; do something here
OKmem    pha                            ; high word of data area becomes bank
         plb                            ; (push word, pull byte... stack = +4
         lda   >cubbyhole
         sta   table_ptr
         mem_short
         txy
         lda   (table_ptr),y            ; save real priority and
         sta   1,s                      ; (kind of a push...)
         lda   #255                     ; install a super high one.
         sta   (table_ptr),y

* The stack is now 4 up from entry level. Memory is short. x has gen num.

         lda   #my_ID                   ; label the GCB as mine - no touchy
         sta   gcb_ID
         lda   >osc_table,x             ; and get the oscillator number
         sta   gcb_doc
         mem_long

* We're safe from AllocGen, so allow interrupts to happen. Memory is long.

*        cli

* Now we need to get the vcb and copy the instrument parameters over to it.

         txa
         asl   a                        ; vcb offset is
         asl   a                        ; (gennum * 32 )
         asl   a
         asl   a
         asl   a
*		 clc
		 adc   #vcb_ram					; add offset to correct section.
		 clc
		 adc   MyRam_ptr				; add the address. 
         sta   gcb_vcb

         lda   Sinstrument+4,s
         sta   inst_ptr                 ; get all 4 bytes of instrument
         lda   Sinstrument+6,s
         sta   inst_ptr+2


* BLOCK MOVE the envelope data and release segment point and
* the proirity inc (26 bytes)

         ldy   #inst_envelope
copy     lda   [inst_ptr],y
         sta   (gcb_vcb),y
         iny
         iny
         cpy   #inst_release_seg+2
         blt   copy

* Now the wierd stuff: track down the right waveform for eachs
* of the oscillators, a and b.  When found, we
* 1) put the wave data stuff into the doc
* 2) put the pitch data into the vcb
* and 3) keep the mode bytes around until the last minute.
* (both long)

* Start by making pointers to the wavelists in DP

         lda   inst_ptr                 * A wave is easy, its a fixed
         clc
         adc   #inst_size               * offset from the beginning.
         sta   Awaveptr
         ldy   #inst_Awavecount         * B is harder:
         lda   [inst_ptr],y             * compute byte length of Awaves
         and   #$00FF
         asl   a
         pha
         asl   a
         adc   1,s                      * len = count * 6
         ply
         adc   Awaveptr
         sta   Bwaveptr                 * and B starts at the end of A.
         mem_short                   * and then get bank
         lda   inst_ptr+2
         sta   Awaveptr+2
         sta   Bwaveptr+2

* Now search the wavelists for a topkey higher than our keynum.

*                                              memory short
         lda   Semitone+4,s
         and   #$7f                     * better safe than sorry
         ldy   #0
loopA    cmp   [Awaveptr],y
         blt   gotA
         iny
         iny
         iny
         iny                            * an 'leay 6,y' would have
         iny                            * done nicely here
         iny
         bra   loopA
gotA     mem_long
         tya
         clc
         adc   Awaveptr
         sta   Awaveptr

* Now do the same thing for the B oscillator

         mem_short
         lda   Semitone+4,s
         and   #$7f                     * better safe than sorry
         ldy   #0
loopB    cmp   [Bwaveptr],y
         blt   gotB
         iny
         iny
         iny
         iny                            * an 'leay 6,y' would have
         iny                            * done nicely here
         iny
         bra   loopB
gotB     mem_long
         tya
         clc
         adc   Bwaveptr
         sta   Bwaveptr

         eject
****************************************************************
* Now we have to distribute the data about these waveforms
****************************************************************

; First poll midi for the sequencer

		jsl	MIDIInputPoll

* The pitch goes to the vcb

         lda   Semitone+4-1,s           ; get semitone in high byte
         and   #$7f00                   ; and add the relative pitch offset
         tax
         ldy   #wp_pitch
         adc   [Awaveptr],y             ; carry should be clear...
         and   #$7FFF                   ; wrap to a legal pitch
         ldy   #vcb_Apitch
         sta   (gcb_vcb),y

         txa                            ; retrieve semitone
         ldy   #wp_pitch
         adc   [Bwaveptr],y
         and   #$7FFF                   ; wrap to a legal pitch
         ldy   #vcb_Bpitch
         sta   (gcb_vcb),y

* the wave address and size go to the doc

         mem_short
         lda   gcb_doc
         clc
         adc   #doc_addr
         php
         sei                            ;********************************
         sta   >GAdrL                    ; We're taking control of DOC
         lda   >SysVol                   ;      NO IRQ PLEASE
         ora   #GptrInc
         sta   >GStatReg
         ldy   #wp_addr
         lda   [Awaveptr],y             ; transfer both wave adresses
         sta   >GDataReg
         lda   [Bwaveptr],y
         sta   >GDataReg
         lda   gcb_doc
         adc   #doc_size
         sta   >GAdrL
         iny                            ; now point to wp_size
         lda   [Awaveptr],y
         sta   >GDataReg
         lda   [Bwaveptr],y
         sta   >GDataReg
         plp                            ;********** All Clear *****************

         iny
         lda   [Awaveptr],y             ; now get the mode bytes
         pha
         lda   [Bwaveptr],y             ; and save them on the stack
         pha


***************************************************************

* The stack is now 6 up from entry level:
*        old dp   (2)
*        old db
*        old priority
*        wave A mode
*        wave B mode

* memory is still short
* the vcb has envelope and pitch, but missing a few things
* the gcb is now freed up, since we don't need the A and B ptrs.

****************************************************************

* So clean a few things up: copy from the instrument

         ldy    #inst_pb_range
         lda   [inst_ptr],y
         asl   a
         asl   a
         asl   a                        ; pack pitch bend range into
         asl   a                        ; high byte of ID
         ora   #My_ID
         sta   gcb_ID

         ldy   #inst_vib_inc
         lda   [inst_ptr],y             ;copy vibrato speed
* Hereby killing the AWaveptr and BWaveptr!!!!!!
         sta   gcb_vib_inc

         ldy   #inst_vib_depth
         lda   [inst_ptr],y             ; copy vibrato depth
* Hereby killing the inst_ptr!!!!!!
         sta   gcb_vib_depth

         stz   gcb_vib_cur              ; zero phase of LFO


* Now were done with all those pointers, so we can fill in the rest:

         lda   Semitone+6,s
         sta   gcb_semitone
         lda   SVolume+6,s
         sta   gcb_volume
         lda   #$40
         sta   gcb_pitchbend
         eject

****************************************************************
* And that's that. Now to start up the envelopes:
* memory is still short, and the stack is up by 6.

         lda   (gcb_vcb)                ; get breakpoint, the first
         sta   gcb_env_lim+1            ; byte in the vcb
         stz   gcb_env_lim

         mem_long
         lda   #3                       ; set pointer to
         ldy   #vcb_current_seg         ; start with segment one
         sta   (gcb_vcb),y

         ldy   #1
         lda   (gcb_vcb),y              ; get increment
         sta   gcb_env_inc
         stz   gcb_env_cur
         jsr   compute_envelope         ; call with both long

* Now the vibrato always starts at 0, and the pitchbend has just been
* reset, so all thats left is to compute the pitch !

         jsr   pitch_out                ; returns with mem short

* arguments:
*        dp must be pointing to the gcb
* the gcb must has osc# and the pointer to the vcb
* the vcb has two words, Apitch and Bpitch, which will be used.

****************************************************************
* By the time we get here, everything is ready to go.
* just start the oscillators and clean up.
* The two mode bytes are on the stack; A at 2 and B and 1.
         mem_short
         lda   gcb_doc
         clc
         adc   #doc_ctrl
         php                            ;save callers IRQ preference
         sei                            ;********************************
         sta   >GAdrL                    ; We're taking control of DOC: NO IRQ
         lda   >SysVol
         ora   #GptrInc
         sta   >GStatReg
         lda   3,s                      ; do osc A first
         sta   >GDataReg
         lda   2,s
         sta   >GDataReg                 ; then osc B
         plp                            ; tidy up
         both long                      ;********************************
         pla                            ; take two ctrl bytes off stack
* the stack frame is back to +4 momentarily.
* now we are done munging with the hardware and the data structures.
* Restore the gen to its normal priority.

         pei   gcb_vcb                   ; were up 6 again, saving this pointer
         lda   >cubbyhole                ; get the priority table back
         sta   gcb_vcb
         lda   Sgennum+6,s
         tay
         mem_short
         lda   3,s                      ; get the old priority back
         sta   (gcb_vcb),y              ; and stick it in the table
         mem_long
         pla
         sta   gcb_vcb
****************************************************************
* restore the registers, fix the stack, and get out!
         plb                            ; get rid of priority (1)
         plb                            ; get old data bank   (1)
         pld                            ; get old direct reg  (2)
* move the bottom 6 bytes up by ten.
         ldx	#0
exit	 pla
         sta     9,s
         pla
         sta     9,s
         pla
         sta     9,s                    ; five pla's adjust s
         pla
         pla
		 txa							; get the error code.
		 cmp	#1						; set the carry bit.
         rtl                            ; return happy

		ENDP
		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/NoteSynth/Tables.aii b/IIGS.601.SRC/GSToolbox/NoteSynth/Tables.aii
new file mode 100644
index 0000000..a67eddd
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/NoteSynth/Tables.aii
@@ -0,0 +1 @@
+		EXPORT	tables    
tables    PROC

		EXPORT	osc_table
osc_table	DC.B	$00,$10,$08,$18,$04,$14,$0c,$1c
	DC.B	$02,$12,$0a,$1a,$06,$16,$0e,$1e


		EXPORT	output_table
output_table	DC.B	1,1,1,1,1,1,1,1
	print	off
	DC.B	1,1,1,1,1,1,1,1
	DC.B	2,2,2,2,2,2,2,2
	DC.B	2,3,3,3,3,3,3,3
	DC.B	4,4,4,4,4,5,5,5
	DC.B	5,6,6,6,7,7,7,7
	DC.B	8,8,9,9,9,10,10,11
	DC.B	11,12,12,13,14,14,15,15
	DC.B	16,17,18,18,19,20,21,22
	DC.B	23,24,25,26,28,29,30,31
	DC.B	33,34,36,37,39,41,43,45
	DC.B	47,49,51,53,56,58,61,63
	DC.B	66,69,72,75,79,82,86,90
	DC.B	94,98,102,107,112,116,122,127
	DC.B	133,139,145,151,158,165,172,180
	DC.B	188,196,205,214,223,233,244,255
	print 	on

		EXPORT	vibrato_table
vibrato_table	DC.B	0,36,50,58,64,69,73,77
	print	off
	DC.B	80,82,85,87,89,91,92,94
	DC.B	95,97,98,99,100,101,102,103
	DC.B	104,105,106,107,108,109,110,110
	DC.B	111,112,112,113,114,114,115,115
	DC.B	116,117,117,118,118,119,119,120
	DC.B	120,121,121,122,122,122,123,123
	DC.B	124,124,125,125,125,126,126,126
	DC.B	126,126,126,126,125,125,124,124
	DC.B	124,123,123,122,122,121,121,120
	DC.B	120,119,119,118,118,117,117,116
	DC.B	116,115,115,114,113,113,112,111
	DC.B	111,110,109,108,108,107,106,105
	DC.B	104,103,102,101,100,99,97,96
	DC.B	95,93,91,90,88,86,84,81
	DC.B	78,75,71,67,62,55,44,25
	print	on

*       the frequency table
* for a doc clock of                 892337.5
* middle c is                 261.625565                 Hz
		EXPORT	freqtable
freqtable	DC.W	20905,20914,20924,20933,20943,20952,20962,20971
	DC.W	20981,20990,21000,21009,21018,21028,21037,21047
	PRINT	OFF 
	DC.W	21056,21066,21075,21085,21094,21104,21114,21123
	DC.W	21133,21142,21152,21161,21171,21180,21190,21199
	DC.W	21209,21219,21228,21238,21247,21257,21267,21276
	DC.W	21286,21295,21305,21315,21324,21334,21343,21353
	DC.W	21363,21372,21382,21392,21401,21411,21421,21430
	DC.W	21440,21450,21459,21469,21479,21488,21498,21508
	DC.W	21518,21527,21537,21547,21556,21566,21576,21586
	DC.W	21595,21605,21615,21625,21634,21644,21654,21664
	DC.W	21673,21683,21693,21703,21713,21722,21732,21742
	DC.W	21752,21762,21772,21781,21791,21801,21811,21821
	DC.W	21831,21840,21850,21860,21870,21880,21890,21900
	DC.W	21909,21919,21929,21939,21949,21959,21969,21979
	DC.W	21989,21999,22009,22019,22028,22038,22048,22058
	DC.W	22068,22078,22088,22098,22108,22118,22128,22138
	DC.W	22148,22158,22168,22178,22188,22198,22208,22218
	DC.W	22228,22238,22248,22258,22268,22278,22288,22299
	DC.W	22309,22319,22329,22339,22349,22359,22369,22379
	DC.W	22389,22399,22409,22420,22430,22440,22450,22460
	DC.W	22470,22480,22491,22501,22511,22521,22531,22541
	DC.W	22551,22562,22572,22582,22592,22602,22613,22623
	DC.W	22633,22643,22653,22664,22674,22684,22694,22705
	DC.W	22715,22725,22735,22746,22756,22766,22777,22787
	DC.W	22797,22807,22818,22828,22838,22849,22859,22869
	DC.W	22880,22890,22900,22911,22921,22931,22942,22952
	DC.W	22962,22973,22983,22993,23004,23014,23025,23035
	DC.W	23045,23056,23066,23077,23087,23097,23108,23118
	DC.W	23129,23139,23150,23160,23170,23181,23191,23202
	DC.W	23212,23223,23233,23244,23254,23265,23275,23286
	DC.W	23296,23307,23317,23328,23338,23349,23359,23370
	DC.W	23381,23391,23402,23412,23423,23433,23444,23455
	DC.W	23465,23476,23486,23497,23507,23518,23529,23539
	DC.W	23550,23561,23571,23582,23593,23603,23614,23624
	DC.W	23635,23646,23656,23667,23678,23689,23699,23710
	DC.W	23721,23731,23742,23753,23763,23774,23785,23796
	DC.W	23806,23817,23828,23839,23849,23860,23871,23882
	DC.W	23893,23903,23914,23925,23936,23946,23957,23968
	DC.W	23979,23990,24001,24011,24022,24033,24044,24055
	DC.W	24066,24077,24087,24098,24109,24120,24131,24142
	DC.W	24153,24164,24174,24185,24196,24207,24218,24229
	DC.W	24240,24251,24262,24273,24284,24295,24306,24317
	DC.W	24328,24339,24350,24361,24372,24383,24394,24405
	DC.W	24416,24427,24438,24449,24460,24471,24482,24493
	DC.W	24504,24515,24526,24537,24548,24559,24570,24582
	DC.W	24593,24604,24615,24626,24637,24648,24659,24670
	DC.W	24682,24693,24704,24715,24726,24737,24748,24760
	DC.W	24771,24782,24793,24804,24816,24827,24838,24849
	DC.W	24860,24872,24883,24894,24905,24917,24928,24939
	DC.W	24950,24962,24973,24984,24995,25007,25018,25029
	DC.W	25041,25052,25063,25075,25086,25097,25108,25120
	DC.W	25131,25142,25154,25165,25177,25188,25199,25211
	DC.W	25222,25233,25245,25256,25268,25279,25290,25302
	DC.W	25313,25325,25336,25348,25359,25370,25382,25393
	DC.W	25405,25416,25428,25439,25451,25462,25474,25485
	DC.W	25497,25508,25520,25531,25543,25554,25566,25577
	DC.W	25589,25600,25612,25624,25635,25647,25658,25670
	DC.W	25681,25693,25705,25716,25728,25739,25751,25763
	DC.W	25774,25786,25798,25809,25821,25833,25844,25856
	DC.W	25868,25879,25891,25903,25914,25926,25938,25949
	DC.W	25961,25973,25985,25996,26008,26020,26032,26043
	DC.W	26055,26067,26079,26090,26102,26114,26126,26137
	DC.W	26149,26161,26173,26185,26196,26208,26220,26232
	DC.W	26244,26256,26268,26279,26291,26303,26315,26327
	DC.W	26339,26351,26363,26374,26386,26398,26410,26422
	DC.W	26434,26446,26458,26470,26482,26494,26506,26518
	DC.W	26530,26542,26554,26566,26578,26590,26602,26614
	DC.W	26626,26638,26650,26662,26674,26686,26698,26710
	DC.W	26722,26734,26746,26758,26770,26782,26794,26806
	DC.W	26818,26831,26843,26855,26867,26879,26891,26903
	DC.W	26915,26928,26940,26952,26964,26976,26988,27001
	DC.W	27013,27025,27037,27049,27062,27074,27086,27098
	DC.W	27111,27123,27135,27147,27160,27172,27184,27196
	DC.W	27209,27221,27233,27245,27258,27270,27282,27295
	DC.W	27307,27319,27332,27344,27356,27369,27381,27393
	DC.W	27406,27418,27431,27443,27455,27468,27480,27492
	DC.W	27505,27517,27530,27542,27555,27567,27579,27592
	DC.W	27604,27617,27629,27642,27654,27667,27679,27692
	DC.W	27704,27717,27729,27742,27754,27767,27779,27792
	DC.W	27804,27817,27829,27842,27855,27867,27880,27892
	DC.W	27905,27918,27930,27943,27955,27968,27981,27993
	DC.W	28006,28019,28031,28044,28056,28069,28082,28094
	DC.W	28107,28120,28133,28145,28158,28171,28183,28196
	DC.W	28209,28222,28234,28247,28260,28273,28285,28298
	DC.W	28311,28324,28336,28349,28362,28375,28388,28400
	DC.W	28413,28426,28439,28452,28465,28477,28490,28503
	DC.W	28516,28529,28542,28555,28568,28580,28593,28606
	DC.W	28619,28632,28645,28658,28671,28684,28697,28710
	DC.W	28723,28736,28749,28762,28775,28788,28801,28814
	DC.W	28827,28840,28853,28866,28879,28892,28905,28918
	DC.W	28931,28944,28957,28970,28983,28996,29009,29022
	DC.W	29035,29049,29062,29075,29088,29101,29114,29127
	DC.W	29140,29154,29167,29180,29193,29206,29219,29233
	DC.W	29246,29259,29272,29285,29299,29312,29325,29338
	DC.W	29352,29365,29378,29391,29405,29418,29431,29444
	DC.W	29458,29471,29484,29498,29511,29524,29538,29551
	DC.W	29564,29578,29591,29604,29618,29631,29644,29658
	DC.W	29671,29685,29698,29711,29725,29738,29752,29765
	DC.W	29779,29792,29805,29819,29832,29846,29859,29873
	DC.W	29886,29900,29913,29927,29940,29954,29967,29981
	DC.W	29994,30008,30021,30035,30049,30062,30076,30089
	DC.W	30103,30116,30130,30144,30157,30171,30184,30198
	DC.W	30212,30225,30239,30253,30266,30280,30294,30307
	DC.W	30321,30335,30348,30362,30376,30389,30403,30417
	DC.W	30431,30444,30458,30472,30486,30499,30513,30527
	DC.W	30541,30554,30568,30582,30596,30610,30623,30637
	DC.W	30651,30665,30679,30693,30707,30720,30734,30748
	DC.W	30762,30776,30790,30804,30818,30831,30845,30859
	DC.W	30873,30887,30901,30915,30929,30943,30957,30971
	DC.W	30985,30999,31013,31027,31041,31055,31069,31083
	DC.W	31097,31111,31125,31139,31153,31167,31181,31195
	DC.W	31209,31224,31238,31252,31266,31280,31294,31308
	DC.W	31322,31336,31351,31365,31379,31393,31407,31421
	DC.W	31436,31450,31464,31478,31492,31507,31521,31535
	DC.W	31549,31564,31578,31592,31606,31621,31635,31649
	DC.W	31663,31678,31692,31706,31721,31735,31749,31764
	DC.W	31778,31792,31807,31821,31835,31850,31864,31878
	DC.W	31893,31907,31922,31936,31950,31965,31979,31994
	DC.W	32008,32023,32037,32052,32066,32080,32095,32109
	DC.W	32124,32138,32153,32167,32182,32197,32211,32226
	DC.W	32240,32255,32269,32284,32298,32313,32328,32342
	DC.W	32357,32371,32386,32401,32415,32430,32444,32459
	DC.W	32474,32488,32503,32518,32532,32547,32562,32577
	DC.W	32591,32606,32621,32635,32650,32665,32680,32694
	DC.W	32709,32724,32739,32753,32768,32783,32798,32813
	DC.W	32827,32842,32857,32872,32887,32902,32916,32931
	DC.W	32946,32961,32976,32991,33006,33021,33035,33050
	DC.W	33065,33080,33095,33110,33125,33140,33155,33170
	DC.W	33185,33200,33215,33230,33245,33260,33275,33290
	DC.W	33305,33320,33335,33350,33365,33380,33395,33410
	DC.W	33425,33440,33456,33471,33486,33501,33516,33531
	DC.W	33546,33561,33577,33592,33607,33622,33637,33652
	DC.W	33668,33683,33698,33713,33728,33744,33759,33774
	DC.W	33789,33805,33820,33835,33850,33866,33881,33896
	DC.W	33912,33927,33942,33957,33973,33988,34003,34019
	DC.W	34034,34050,34065,34080,34096,34111,34126,34142
	DC.W	34157,34173,34188,34204,34219,34234,34250,34265
	DC.W	34281,34296,34312,34327,34343,34358,34374,34389
	DC.W	34405,34420,34436,34451,34467,34483,34498,34514
	DC.W	34529,34545,34560,34576,34592,34607,34623,34638
	DC.W	34654,34670,34685,34701,34717,34732,34748,34764
	DC.W	34779,34795,34811,34827,34842,34858,34874,34889
	DC.W	34905,34921,34937,34953,34968,34984,35000,35016
	DC.W	35031,35047,35063,35079,35095,35111,35126,35142
	DC.W	35158,35174,35190,35206,35222,35238,35253,35269
	DC.W	35285,35301,35317,35333,35349,35365,35381,35397
	DC.W	35413,35429,35445,35461,35477,35493,35509,35525
	DC.W	35541,35557,35573,35589,35605,35621,35637,35653
	DC.W	35670,35686,35702,35718,35734,35750,35766,35782
	DC.W	35799,35815,35831,35847,35863,35879,35896,35912
	DC.W	35928,35944,35960,35977,35993,36009,36025,36042
	DC.W	36058,36074,36091,36107,36123,36139,36156,36172
	DC.W	36188,36205,36221,36237,36254,36270,36287,36303
	DC.W	36319,36336,36352,36368,36385,36401,36418,36434
	DC.W	36451,36467,36484,36500,36516,36533,36549,36566
	DC.W	36582,36599,36615,36632,36649,36665,36682,36698
	DC.W	36715,36731,36748,36765,36781,36798,36814,36831
	DC.W	36848,36864,36881,36897,36914,36931,36947,36964
	DC.W	36981,36998,37014,37031,37048,37064,37081,37098
	DC.W	37115,37131,37148,37165,37182,37198,37215,37232
	DC.W	37249,37266,37282,37299,37316,37333,37350,37367
	DC.W	37384,37400,37417,37434,37451,37468,37485,37502
	DC.W	37519,37536,37553,37570,37587,37603,37620,37637
	DC.W	37654,37671,37688,37705,37722,37739,37757,37774
	DC.W	37791,37808,37825,37842,37859,37876,37893,37910
	DC.W	37927,37944,37962,37979,37996,38013,38030,38047
	DC.W	38064,38082,38099,38116,38133,38150,38168,38185
	DC.W	38202,38219,38237,38254,38271,38288,38306,38323
	DC.W	38340,38358,38375,38392,38410,38427,38444,38462
	DC.W	38479,38496,38514,38531,38548,38566,38583,38601
	DC.W	38618,38636,38653,38670,38688,38705,38723,38740
	DC.W	38758,38775,38793,38810,38828,38845,38863,38880
	DC.W	38898,38916,38933,38951,38968,38986,39003,39021
	DC.W	39039,39056,39074,39092,39109,39127,39145,39162
	DC.W	39180,39198,39215,39233,39251,39268,39286,39304
	DC.W	39322,39339,39357,39375,39393,39410,39428,39446
	DC.W	39464,39482,39499,39517,39535,39553,39571,39589
	DC.W	39606,39624,39642,39660,39678,39696,39714,39732
	DC.W	39750,39768,39786,39804,39822,39840,39858,39876
	DC.W	39894,39912,39930,39948,39966,39984,40002,40020
	DC.W	40038,40056,40074,40092,40110,40128,40146,40164
	DC.W	40183,40201,40219,40237,40255,40273,40292,40310
	DC.W	40328,40346,40364,40383,40401,40419,40437,40456
	DC.W	40474,40492,40510,40529,40547,40565,40584,40602
	DC.W	40620,40638,40657,40675,40694,40712,40730,40749
	DC.W	40767,40785,40804,40822,40841,40859,40878,40896
	DC.W	40915,40933,40951,40970,40988,41007,41025,41044
	DC.W	41062,41081,41100,41118,41137,41155,41174,41192
	DC.W	41211,41230,41248,41267,41285,41304,41323,41341
	DC.W	41360,41379,41397,41416,41435,41453,41472,41491
	DC.W	41510,41528,41547,41566,41585,41603,41622,41641
	DC.W	41660,41679,41697,41716,41735,41754,41773,41792

		ENDP
		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/NoteSynth/Update.aii b/IIGS.601.SRC/GSToolbox/NoteSynth/Update.aii
new file mode 100644
index 0000000..04dd211
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/NoteSynth/Update.aii
@@ -0,0 +1 @@
+	Blanks off
;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

	IMPORT	output_table
	IMPORT	pitch_out

;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

	ENTRY	compute_envelope
	ENTRY	halt_gen
	

		INCLUDE	'gcb.aii'
		INCLUDE 'Note.Macros'
		INCLUDE 'NS.equ'
		INCLUDE	'E16.MIDI'

****************************************************************
*
*  update
*
*  Inputs: none
*
*  Outputs: none
*
****************************************************************
*
		EXPORT	update   
update   PROC

* This task is installed as the interrupt handler for the update timer.
* The update timer is actually generator 14.

* If this is my timer interrupting
*        if update isn't already running
*              allow interrupts
*              for generator = 0 to 14:
*                    if ID = note synth and priority < 255
*                          raise priority
*                          compute envelope
*                          if note is done
*                              dealloc generator
*                          else
*                              if flipflop = 0
*                                  compute lfo and pitch
*                              endif
*                              flipflop = 1 - flipflop
*                          endif
*                          lower priority
*                    endif
*              next generator
*        endif
*        rti
*
* NoteOn is also reentrant. NoteOn, AllocGen, and Update have to protect
* themselves against each other.  Here's the scheme:
* AllocGen runs with interrupts disabled.  It may interrupt either of the
* other two.  However it will never take a gen with a priority over 127.
* When either NoteOn or Update are munging with a gen, they will raise it's
* priority to 255.
* NoteOn will, therefore, be playing with priorities.  Lets say that it too
* refuses to touch a gen with priority 255.  That will take care of the case
* where the update interrupt happens while NoteOn was running.
* Now if the NoteOn comes from an interrupt (presumably MIDI) then it is
* stuck.  If the update routine were updating the gen that you were
* trying to turn on, it can't very well refuse!  But it will.  It will
* return an error code.  Try again and it may succeed.  (This scenario
* only happens when you try to NoteOn a gen that is already on.  Don't
* do that.)


****************************************************************
* If this isn't my timer, then pass control to the next guy in line
*
          longi off
         longa off                      * IRQ leaves us like this!
* compare the gen num to my special gennum. if no match, then
* pass control to the next guy in the DOC vector chain!

         and  #$0F
         cmp  #My_ID
         beq  its_time
* if not mine: jml    (>cubbyhole+5)      ;*** EXIT *** to next irq handler
            tax
            lda   >old_vector+2
            pha                            ; push bank (and page too)
            mem_long
            lda   >old_vector               ; push low word-1
            dec   a
            pha
            mem_short                   ; leave as we came...
            txa
            rtl                            ; synthesized jump long
****************************************************************


* CALL THE USERS ROUTINE

* a sequencer can install this hook to get a clock.
* It can also choose to reenable interrupts here.


its_time both long
         lda   >myflags
         and   #user_bit
         beq   no_routine
         jsl   userjump

****************************************************************

no_routine lda   >myflags
         and   #busy_bit
         beq   not_runnin
             rtl                        ;*** EXIT *** we've reentered.

not_runnin lda >myflags
         ora   #busy_bit                ; set running flag
         sta   >myflags

****************************************************************
* Get my DP area and my workarea pointers
*
         both long
         phd                            ; save old dp
         lda  >mydp-1                   ; put my dp in high byte
         and   #$FF00
         tcd
; for rom ldy   #priority_table must be replaced.
		 lda	myram_ptr				; get low word of addr to priority_table.
		 tay
         mem_short
         phb							; save the callers bank.
         lda	myram_ptr+2				; get my bank
		 pha							; and put on stack.
         plb							; pull bank.

; Clear x regester, which is now the MIDI Poll counter, when 5 pull midi.
		ldx		#$0
		
* Stack is up 3. memory is short. WAP is in y and DBR. DP is set.

****************************************************************
*
* Repeat Loop.
*
* DP will be the Loop counter, incremented by 16's.
* y will also count through the priority table.
* memory is short index is long
; needs to fall through into this loop, not branch to it (When starting loop).

LOOP     cpx	#$5						; if 5 times through loop without polling, poll.
		 bmi	@1						
		 phy
		 both long						; memory was short index was long.
		 jsl	MIDIInputPoll			; poll.
		 mem_short						; both were long.
		 ply
		 ldx	#$0
@1 		 inx							; about to do another loop.
		 lda   gcb_ID
         and   #$0F
         cmp   #my_ID
         bne   not_note


         pha                            ; make space on the stack
         php                            ; save users IRQ preference
         sei                            ; and protect this maneuver:
         lda   |0,y                      ;;; its a note. make sure
         cmp   #255                     ;;; its not untouchable (noteon)
         bne   notbusy
            plp
            pla
            bra   not_note
notbusy  sta   2,s                      ;;; save old priority in the space.
         lda   #255                     ;;; gaurd it against others
         sta   |0,y                     ;;; with super high priority
         plp                            ; restore users IRQ preference
         phy                            ; and save y for later
         both  long

* now the stack is 6 up, with old priority and a pointer to it on top.
         jsr   compute_envelope         ; both long
         bne   notdone                  ; eq    means voice is done

* if done, do this:
           mem_short
           ply
           pla                          ; the envelope is done. free
           lda #0                       ; the gen by setting its ID
           sta gcb_ID                   ; and its priority to zero.
           sta |0,y

           jsr halt_gen					; doesn't trash y or x.
		   ldx	#$0						; we polled midi in compute_envelope.
           bra not_note                 ; and continue with ne

* else, do this:

notdone    mem_short                 ; index is long
           lda   gcb_ID                 ; hi bit is flip flop so t
           bmi   bitset
*    if flip, do this:
             ora     #$80               ; we do freq every other update
             sta     gcb_ID
             jsr     pitch_out          ; please return with memory short
             bra     lab1               ;                    index long
*   else flop, do this:
bitset       and   #$7F                 ; don't doit if bit was set.
             sta   gcb_ID
*   endif flipflop
lab1       ply
  		   ldx	#$0					; we just polled midi in compute_envelope or pitch_out.
 	       pla                          ; restore priority
           sta   |0,y

* endif

not_note iny
         tdc                            ; ( do this with 8 bit acc? )
         clc
         adc   #gcb_size                ; advance direct page to next gcb
         tcd
         cmp   #gcb_size*num_of_gen
         bne   loop

****************************************************************
* Now leave the way we came, restoring registers and running flag.
         php
         sei                            ; **** protect this maneuver ***
         lda   >myflags
         and   #255-busy_bit                ; reset running flag
         sta   >myflags
         plp
         plb
         pld
         mem_long
         rtl                            ; this will finally RTI

************************************************************************

		EXPORT	halt_gen
halt_gen		;		
; must not trash y or x.

           longi on
           longa off
           lda  gcb_doc                 ; call with dp pointing to
           clc                          ; gcb of the generator to kill.
           adc  #doc_ctrl               ; to make sure they don't
           sta  >GAdrl                  ; leak.
           lda  >SysVol                 ; (9/24/86)
           ora  #GPtrInc                ;
           sta  >GStatReg               ;
           lda  #doc_halt_reset         ;
           sta  >GDataReg               ;
           sta  >GDataReg               ;

           lda  gcb_doc                 ;
           clc                          ;
           adc  #doc_freqlo             ;
           sta  >GAdrl                  ;
           lda  #0                      ; zap the freq
           sta  >GDataReg               ;
           sta  >GDataReg               ;
           lda  gcb_doc                 ;
           clc                          ;
           adc  #doc_freqhi             ;
           sta  >GAdrl                  ;
           lda  #0                      ; zap the freq
           sta  >GDataReg               ;
           sta  >GDataReg               ;
           rts



		ENDP
         eject

****************************************************************
*
*  Compute_Envelope
*
*  Inputs: DP points to GCB; memory and index are long
*
*  Outputs: both long; writes to doc, z set if envelope=0 (done)
*
****************************************************************
*
		EXPORT	Compute_Envelope 
Compute_Envelope PROC

         longi on
         longa on

* !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

* This is where we poll midi during the NS interupt.

         JSL   MIDIInputPoll

* Banks and dp are preserved by the MidiTools.
* With out this polling midi data is lost when playing the NS.

* !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

****************************************************************

         lda   gcb_env_inc
         beq   sustain
         bmi   going_down

* going up:
         clc
         adc   gcb_env_cur
         bvs   hit_it
         cmp   gcb_env_lim
         bcs   hit_it
         bra   contin

going_down clc
         adc   gcb_env_cur
         bmi   hit_it
         cmp   gcb_env_lim
         bmi   hit_it

contin   sta   gcb_env_cur



* Now we have the envelope in the high byte of acc.  Treat it as a log
* and add to it the volume, then look it up in the exponential table.
* this simulates a multiply.  Put the volume out to the DOC.

         both short
         xba                            ; env = [0..127]
         clc
         adc   gcb_volume               ; vol = [0..127]
         sec
         sbc   #127
         bpl   audible                  ; below zero is inaudible
            lda   #0
audible  tax
         lda   gcb_doc
         clc
         adc   #doc_vol
         php                            ;;;
         sei                            ;;;
         sta   >GAdrL                   ;;;***** NO IRQS ******
         lda   >SysVol                  ;;;writing to DOC
         ora   #GPtrInc                 ;;;
         sta   >GStatReg                ;;;
         lda   >output_table,x          ;;get volume
         sta   >GDataReg                ;;;
         sta   >GDataReg                ;;;for both oscs
         plp                            ; *** cli and both long ****
         both long
sustain  ldx   gcb_env_cur              ; check if we hit zero env
         rts                            ;======= EXIT ========>


****************************************************************
* This stretch is protected from noteoff coming from an interrupt.

		longi on                       ; advance to next env segment
         longa on
hit_it   php
         sei
         lda   gcb_env_lim              ; start by locking the level
         sta   gcb_env_cur              ; to the breakpoint we just hit.

         ldy   #vcb_current_seg
         lda   (gcb_vcb),y              ;the pointer to the next segment
         tay
         lda   (gcb_vcb),y              ;points to the breakpoint
         xba
         and   #$7F00                   ;which was a byte, now a word
         cmp   gcb_env_lim
         bge   going_up
* going down                            ; and make sure the increment
           sta   gcb_env_lim            ; is the correct sign for the
           iny                          ; direction we are headed.
           lda   (gcb_vcb),y            ;get increment word
           bmi   its_cool
           eor   #$FFFF                 ; negate it if it isn't negative
           inc   a
           bra   its_cool

going_up   sta   gcb_env_lim
           iny
           lda   (gcb_vcb),y
           bpl   its_cool               ; negate it if it isn't positive
           dec   a
           eor   #$FFFF

its_cool sta   gcb_env_inc
         tya                          ; advance cur seg to next one
         inc   a
         inc   a
         ldy   #vcb_current_seg
         sta   (gcb_vcb),y
         lda   gcb_env_cur
         plp
         brl   contin                   ; now continue with doc output.



		ENDP
         eject
		 
****************************************************************
*
*  SetUpDateRate	functon #E
*
*  Inputs: space for result (word)
*		   UpDateRate 		(word)
*
*  Outputs: Old UpdateRate	(word)
*
*  Errors:	NotStarted
*
*  Change History:
*
*  7/7/88	First time call is fully implemented.  MLD.
*
****************************************************************
*
		EXPORT	SetUpDateRate   
SetUpDateRate PROC

		longa 	on
		longi 	on
		
OldRate		equ 9
UpdateRate	equ	7
RTL1		equ	4
RTL2		equ	1

		phd								; save the old direct page.
		tcd								; set dp.
		bne		Started					; if not zero then we are started.
		 
		ldx		#errNotStarted			; NSynth must be started for this call.
		bra		exit
		
Started lda	UpdateRate+2,s				; if paramater zero use default rate.
		bne @1
		lda	#Update_rate				; get the default update rate.
		sta	UpdateRate+2,s
		
@1		 both short						; short a and x for doc glue.
	
		 php							; no interupts while going to doc glue.
		 sei
		 lda   >SysVol					; get the system volume.
		 and	#$F						; make sure we get just vol. 
         sta   >GStatReg                ; no inc, to doc, same volume.

; get the old update.
		 lda   	#doc_freqhi+timer_osc	; point to freq. 
         sta   	>GAdrL					; 
		 lda	>GDataReg				; Read to catch up.
		 lda	>GDataReg				; Get high part of Frequency.
		 clc							; don't bring in a zero in high bit.
		 ror	A						; half the frequency to get update rate.
         sta	OldRate+2+1+1,s			; save in old update, hi byte.
		 lda    #doc_freqlo+timer_osc   ; point glue to set frequency of the
         sta    >GAdrL                  ; timer osc.
		 lda	>GDataReg				; Read to catch up.
		 lda	>GDataReg				; Get low part of Frequency.
		 ror	A						; carry is set correctly.
		 sta	OldRate+2+1,s			; save the old update, low byte.				 

; store the new update rate.
*		 lda   #doc_freqlo+timer_osc    ; point glue to set frequency of the
*        sta   >GAdrL                   ; timer osc.
         lda   UpdateRate+2+1,s
         asl   A                        ; 9/24/86 double the freq
         sta   >GDataReg
         lda   #doc_freqhi+timer_osc
         sta   >GAdrL
         lda   updateRate+2+1+1,s
         rol   A                        ; 9/24/86 hi byte of freq
         sta   >GDataReg

         lda   #doc_vol+timer_osc       ; set volume, for kicks...
         sta   >GAdrL
         lda   #$00
         sta   >GDataReg

         lda   #doc_size+timer_osc
         sta   >GAdrL
         lda   #$00
         sta   >GDataReg
         lda   #doc_ctrl+timer_osc
         sta   >GAdrL
         lda   #doc_irq_bit             ; free run, interrupts
         sta   >GDataReg
		 plp

		both long
		ldx		#0

exit	pld
		lda	RTL1+1,s			; move high 2 bytes of RTL1
		sta	UpdateRate,s
		lda	RTL2+2,s			; move high byte of RTL2 and low of RTL1
		sta	RTL1+1,s
		lda	RTL2,s	
		sta	RTL2+2,s			; done cleaning up stack
		pla						; pull off the extra stuff.
		txa
		cmp	#1
		rtl
		ENDP

****************************************************************
*
*  SetUserUpdateRtn	functon #F
*
*  Inputs: space for result	(Long)
*		   UserUpdateRtn	(long) zero causes updatertn to be disabled.
*
*  Outputs: OldUserRtn		(Long) zero if there isn't one.
*
*  Errors:	NotStarted
*
*  ChangeHistory:
*  
*  7/8/88 	Call is fully implemented. MLD
*
****************************************************************

		EXPORT	SetUserUpDateRtn   
SetUserUpdateRtn PROC

		longa 	on
		longi 	on
		
OldUpdateRtn equ 11+2
UpdateRtn	equ	7+2
RTL1		equ	4+2
RTL2		equ	1+2
oldDP		equ 1

		phd					; save the old direct page.
		tcd					; set dp.
		bne		Started		; if not zero then we are started.

		ldx		#errNotStarted
		bra		exit

Started	lda		>myflags	; get flags, includeing user flag.
		and		#User_Bit	; get just the user bit.
		beq		NoPrevUser	; if bit isn't set their wan't a previous vect.

; return the old vector.
		lda		UserUpdate
		sta		OldUpdateRtn,s
		lda		UserUpdate+2
		and		#$00FF		; only the low byte is valid.
		sta		OldUpdateRtn+2,s
		bra		NewUpdate
		
; if no previous vector, return zero.
NoPrevUser lda	#0
		sta		OldUpdateRtn,s
		sta		OldUpdateRtn+2,s
		sta		UserUpdate+1		; clear the UserUpdate, just incase.
		sta		UserUpdate
		bra		UpDate				; the user bit is already cleared.
		
; First make sure I don't interupt myself.
NewUpdate lda	>myflags		; get myflags
		and	#not_user_bit_w		; clear the user bit.
		sta	>myflags			; and save flag.
		
; install the new Update Routine.
UpDate	lda		UpdateRtn,s
		sta		UserUpdate
		lda		UpdateRtn+1,s
		sta		UserUpdate+1
		
; if UpdateRtn = 0 then user flag is clear, else set it.
*		lda		UpdateRtn+1,s
		ora		UpdateRtn,s
		beq		Done
		
SetUser	lda		>myflags
		ora		#User_bit	
		sta		>myflags
        mem_short
		lda		#$5c                ; install a jump long instruction
        sta		>userjump
		mem_long
		
Done	ldx	#0					; no error code.
		
exit	lda	RTL1+1,s
		sta	UpdateRtn+2,s
		lda	RTL2+2,s
		sta	UpdateRtn,s
		lda	RTL2,s
		sta	RTL1+1,s
		pld
		pla
		pla
		txa
		cmp	#1
		rtl

		ENDP
		END
		
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/NoteSynth/alloc.aii b/IIGS.601.SRC/GSToolbox/NoteSynth/alloc.aii
new file mode 100644
index 0000000..c6f36a5
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/NoteSynth/alloc.aii
@@ -0,0 +1 @@
+	Print off
	
;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

	IMPORT	GAdrL
	IMPORT	GDataReg
	IMPORT	GPtrInc
	IMPORT	GStatReg
	IMPORT	SysVol
	IMPORT	doc_ctrl
	IMPORT	doc_halt_reset
	IMPORT	errBadGenNum
	IMPORT	errNoneAvail
	IMPORT	gcb_ID
	IMPORT	long
	IMPORT	osc_table
	IMPORT	short
	
	Print	on
	
****************************************************************
*
*  AllocGen
*
*  Inputs: Priority Requested
*
*  Outputs: Generator Number
*
*
****************************************************************
*
		EXPORT	AllocGen 
AllocGen PROC
		Print	off
		INCLUDE	'gcb.aii'
		INCLUDE 'ns.equ'
		INCLUDE 'Note.Macros'
		INCLUDE	'E16.NoteSyn'
		INCLUDE	'E16.MIDI'
		
        print	on, noGen, NoHdr, NoMdir
		longi on
		longa on

GenNum   equ   13+6                     ; output word
Priority equ   11+6                     ; input: priority of request
RTL1     equ   8+6
RTL2     equ   5+6
OldDP    equ   3+6                      ; caller's Direct Page
OldPS    equ   2+6                      ; caller's status reg
OldB     equ   1+6

         phd                            ;save old DP
         tcd                            ;use WAP as DP
		 bne	@1
 		 ldy	#errNotStarted			; report error.
		 php							; push this so we can call byebye ...
		 phb							; ...without trashing the stack.
		 jmp	byebye
		 
@1       php                            ;save callers IRQ status
         sei                            ; NOT REENTRANT!
         phb							; save the callers bank.
         
		 pei	min						; Save DP values incase some one else
		 pei	Priority_Table			; is using them
		 pei	Priority_Table+2			;
		 
* Now make a DP pointer to the priority table

		lda   >myram_ptr
		sta   Priority_Table
		lda   >myram_ptr+2
		sta   Priority_Table+2

* Now here's the main loop.  We are looking for a free generator, which
* will be flagged by a 0 priority.  If there are none of those, then we
* want the lowest priority generator.  We'll keep a variable, called
* min, and keep the min's generator number in x.

         mem_short
		 		 
         lda   #255                     ; initialize min to max
         sta   min
         ldy   #0

* FOR Y = 0 TO num_of_gen-1

look     lda	[priority_table],y 		; Get the Priority of osc y.
		 
		 beq   found_zero
         bmi   sacred                   ; Can't steal a priority of 128 or more.
         dec   a                        ; make old notes more desirable
         bne   over1                    ; by decrementing their priority
         inc   a                        ; down to, but not past 1.
over1    cmp   min
         bge   too_high					; If >= min then continue(save new priority).
         sta   min						; Else save priority as new min, and
         tyx                          	; hold min's gen num in x

too_high sta	[priority_table],y 		; save priority of osc y.

sacred   iny							; NEXT Y
         cpy	#4						; Time for first MIDI poll?
		 beq	@1						; Should we poll MIDI?
		 cpy	#9						; Time for second MIDI poll?
		 bne	@2						; if time, poll, else check if done.
@1		 jsr	PollMIDI				; Time to poll MIDI.
@2		 cpy   #num_of_gen   			; See If done.           
         bne   look						; If not look again.
		 jsr	PollMIDI				; else Poll MIDI.

* if we get here, then there were no free generators.  See if there were any
* that had a priority low enough to steal.

         lda   min
         bmi   none_avail
         cmp   Priority,s               ; here's the lowest one. is it lower
         bge   none_avail               ; that the request priority?
         txy                            ; YES? then use it!

* When we get here, then y has the gen num of the one we'll give away.

found_zero tya
         mem_long                    ; store the whole thing
         and   #$000F                   ; legal values in $00..$0D 8/19/87 md
         sta   GenNum,s                 ; pass the output back
         tay                            ; Make sure y isn't trashed.
         mem_short                   ; store only one byte
         lda   Priority,s               ; and assign the new priority
		 sta   [priority_table],y 		; Save priority of osc Y.

         mem_long

* Clean up the stack and leave happy.

         ldy   #0

exit	pla							; Restore DP values.
		sta	Priority_Table+2
		pla
		sta	Priority_Table
		pla
		sta	min
		
byebye   plb							; restore status, bank, and DP of caller.
         plp
         pld
		 
         lda   5,s						; Move RTL's up two bytes.
         sta   7,s
         lda   3,s
         sta   5,s
         lda   1,s
         sta   3,s        
		 
         pla                            ; throw away these two bytes
         tya                            ; restore error status
         cmp   #1                       ; set carry if an error
         rtl                            ; >>>-------- EXIT --------->>>

none_avail mem_long
         ldy   #errNoneAvail            ; error condition: no gens available
         bra   exit
         
		 eject
********************************************************************************
*
*	PollMidi
*
*	preserve P, A, X, Y. and call MIDIInputPoll.
*
********************************************************************************
		Export PollMidi
PollMidi
		php
		both long
		pha
		phx
		phy
		JSL	MIDIInputPoll
		ply
		plx
		pla
		plp
		rts
		
         eject
****************************************************************
*
*  DeAllocGen
*
*  Inputs: Generator Number
*
*  Outputs: This routine zeros the priority and gcb_ID byte of
*  the generator, and halts both of the oscillators.
*
****************************************************************
*
		EXPORT	DeAllocGen
DeAllocGen		;		
         longi on
         longa on

oldgen   equ   11                       ; input

* Note that this is the same segment as AllocGen.

         phd                            ;save old DP
         tcd                            ;use WAP as DP
         php                            ;save callers IRQ status
         sei                            ; NOT REENTRANT!
         phb							; save the callers bank.
		 tdc							; See if started up.
		 bne	@1						; if not equal we were started.
		 ldy	#nsNotInit				; otherwize we weren't startedd,
		 jmp	byebye					; return error and exit.
@1       lda	myram_ptr+1				; get my bank
		 pha							; and put on stack.
		 plb							; pull byte 2
         plb							; pull byte 3 or bank.

* The stack frame, from now on, looks like this:

* oldgen   equ   11                       ; input
* rtl    equ   8
* rtl    equ   5
* olddp  equ   3                        ; caller's Direct Page
* oldp   equ   2                        ; caller's status reg
* oldb   equ   1
* The first order of business is to make sure we're alive


         both short                     ; do this like a 6502
         lda   oldgen,s
         tay                            ; gennum temp in y
         cmp   #num_of_gen
         bge   bad_arg

         asl   a                        ; create the GCB address
         asl   a
         asl   a
         asl   a
         tax
         stz   <gcb_ID,x                ; clear the ID byte
         tyx
         lda   #0                       ; and the priority byte
 		 phd							; save, new dp will be on stack.
		tay								; save the acc.
; for rom  sta   priority_table,x must be rewritten.
		 lda	myram_ptr+3				; pushlong myram_ptr
		 pha
		 lda	myram_ptr+2
		 pha
		 lda	myram_ptr+1				
		 pha
		 lda	myram_ptr+0
		 pha
		 tsc							; get stack.
		 tcd							; and make it dp.
		 tya							; get the acc back.
		 txy							; get the y value.
		 sta	[1],y					; get the value.
		 pla							; and restore stack.
		 pla
		 pla
		 pla
		 pld							; restore dp.

         lda   >osc_table,x             ; get doc address
         clc
         adc   #doc_ctrl
         sta   >GAdrL
         lda   >SysVol
         ora   #GPtrInc
         sta   >GStatReg
         lda   #doc_halt_reset
         sta   >GDataReg
         sta   >GDataReg                ; halt both oscillators



* Clean up the stack and leave happy.
         both  long
         ldy   #0
         jmp   byebye

bad_arg  both long
         ldy   #errBadGenNum
         jmp   byebye

		ENDP

        eject
		end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/NoteSynth/chng.his b/IIGS.601.SRC/GSToolbox/NoteSynth/chng.his
new file mode 100644
index 0000000..92915e0
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/NoteSynth/chng.his
@@ -0,0 +1 @@
+5-13-88
Default for update rate works. zero defaults to 500.
_AllocGen returns an error if the N.Synth hasn't been started yet.
N.Synth now polls MIDI so that midi input should never be lost when playing notes.
_NSStartUp returns err $1925 SoundWrongVer if the SoundTools is a earlyer version than 2.3P.
5-26-88
Added one additional polling place in Note On, for NoteSeq.
7/9?/88
Added two new tool calls NSSetUpdateRate and NSSetUserUpdateRtn.
7/12/88
Don't use scratch (F0-f2 of ST DP) in S.Tools ZP any more.
Disable interupts when writing to DOC Glue in NSStartup.
Get NewHandle for Priority_table and vcb_ram.
No more VCB of DOC proc's they were just equates that have been moved.
No more need for MyData Proc either.
No need for VCB.aii file anymore.

alloc:
still uses part of sound tools direct page.
min      equ  $F4                       ; At these addresses
all changes from 7/12/88 to 7/21/88 have been made just to make the note synth romable.
7/21/88 New branch created for Romable changes.

7/25/88 Using E16.MIDI equates for MIDIInputPoll vector.
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/NoteSynth/freq.aii b/IIGS.601.SRC/GSToolbox/NoteSynth/freq.aii
new file mode 100644
index 0000000..8f2881f
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/NoteSynth/freq.aii
@@ -0,0 +1 @@
+	Blanks Off
	Print	off
;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

	IMPORT	GAdrL
	IMPORT	GDataReg
	IMPORT	GStatReg
	IMPORT	GptrInc
	IMPORT	MidiHookGlue
	IMPORT	MidiHookVect
	IMPORT	SysVol
	IMPORT	doc_freqhi
	IMPORT	doc_freqlo
	IMPORT	freqtable
	IMPORT	gcb_ID
	IMPORT	gcb_doc
	IMPORT	gcb_pitchbend
	IMPORT	gcb_vcb
	IMPORT	gcb_vib_cur
	IMPORT	gcb_vib_depth
	IMPORT	gcb_vib_inc
	IMPORT	long
	IMPORT	output_table
	IMPORT	short
	IMPORT	vcb_Apitch
	IMPORT	vcb_Bpitch
	IMPORT	vibrato_table

;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

	ENTRY	pitchtofreq
	print on, NoGen, NoHdr, NoMdir
****************************************************************
*
*  pitch_out
*
*  Inputs: gcb must be in dp.  come in with i and a either way.
*
*  Outputs: returns index long, memory short, as requested.
*
****************************************************************
*
		EXPORT	pitch_out 
pitch_out PROC
		print	push
		print	off
		INCLUDE	'gcb.aii'
		INCLUDE 'Note.Macros'
 		INCLUDE	'ns.equ'
		INCLUDE	'E16.MIDI'
		print	pop
		both short


apitch   equ 3                          ; stack frame from a
bpitch   equ 1                          ; pitch point of view.

afreqhi equ 4                           ; stack frame later, from
afreqlo equ 3                           ; a frequency point of view.
bfreqhi equ 2
bfreqlo equ 1

         lda   gcb_vib_depth
         beq   no_nothin                ; compute LFO as a running
         lda   gcb_vib_inc              ; phase accumulator
         clc
         adc   gcb_vib_cur
         sta   gcb_vib_cur
         bmi   below

* here, the lfo phase was between 0 and 127.  Go up in pitch.
         tax
         lda   >vibrato_table,x
         adc   gcb_vib_depth            ; add two logs together
         sbc   #127
         bmi   no_nothin
         tax                            ; and look up in exp table
         lda   >output_table,x
         mem_long
         and   #$00FF
         bra   vib_out                  ; vib out wants long mem

* here, the lfo phase was between -128 and -1. Go down in pitch.
         longa off
         longi off
below    eor  #$FF                      ; negate any negative part
         tax                            ; before going in to table
         lda   >vibrato_table,x
         adc   gcb_vib_depth            ; add two logs together
         sbc   #127
         bmi   no_nothin
         tax                            ; and look up in exp table
         lda   >output_table,x
         mem_long
         and   #$00FF
         eor   #$FFFF                   ; negate the result of mult
         bra   vib_out

no_nothin mem_long                   ; we jumped here before going long
         lda   #0

* when we get here, acc is long and it hold the vibrato pitch
vib_out  asl   a                        ; total range +- 512
         pha

* Now the vibrato is in on the stack, as a signed 16 bit number, in my pitch
* format.  To this we add the pitchbend, if there is any.
* memory is long, index is short!

         lda   gcb_pitchbend
         and   #$ff
         sec
         sbc   #$40                     ; turn into signed word
         pha                            ; on the stack

* multiply by the three bit pitchbend amt

         lda   gcb_ID                   ; bits 456 are the ones...
         xba
         asl   a                        ; now they are bits 13,14,15
         bpl   not4                     ; if the hi bit is set, its a
         pla                            ; 4 semitone range
         asl   a
         asl   a
         bra   itbe1
not4     asl   a                        ; next bit set?
         bpl   not2                     ; then its 2 semitone range
         pla
         asl   a
         bra   itbe1
not2     pla                            ; otherwise, assume 1 bit
itbe1    asl   a                        ; mul by four to get
         asl   a                        ; +- $100 per semitone

* Now the pitchbend amount, is in a, in my pitch format.

         adc   1,s                      ; add in the lfo
         sta   1,s                      ; and leave it on the stack

         ldy   #vcb_Bpitch
         lda   (gcb_vcb),y              ; add the pitch offset to
         clc
         adc   1,s                      ; the A and B pitches
         pha
         ldy   #vcb_Apitch
         lda   (gcb_vcb),y
         clc
         adc   3,s                      ; and leave them on the stack
         sta   3,s                      ; with B at 1, A at 3.

* This is a hack to alow midi to be pulled during the NS interupt.

		both long						; index was short.
		pha
         JSL   MIDIInputPoll					; dp, and banks are preserved.
         pla

* With out this midi data is lost when playing the NS.

****************************************************************
* NOW there are the two pitches on the stack. (and A is still in acc!)
* convert them to frequencies.

         both long

;apitch   equ 3                          ; stack frame from a
;bpitch   equ 1                          ; pitch point of view.

;afreqhi equ 4                           ; stack frame later, from
;afreqlo equ 3                           ; a frequency point of view.
;bfreqhi equ 2
;bfreqlo equ 1

* convert pitches on stack to frequencies on stack

***      lda   apitch,s                 ;(its already there!)
         jsr   pitchtofreq              ; NOTE ABSOLUTE ADDRESSING
         sta   afreqlo,s
         lda   bpitch,s
         jsr   pitchtofreq
         sta   bfreqlo,s

         php                            ; save users irq pref, both long
         sei                            *********** NO IRQS *****************
         mem_short
         lda   gcb_doc
         clc
         adc   #doc_freqlo
         sta   >GAdrL                    ; talking to DOC freq lo reg
         lda   >SysVol
         ora   #GptrInc                 ; with auto inc
         sta   >GStatReg

         lda   afreqlo+1,s
         sta   >GDataReg
         lda   bfreqlo+1,s
         sta   >GDataReg

         lda   gcb_doc
         adc   #doc_freqhi
         sta   >GAdrL
         lda   afreqhi+1,s                ; now the freq hi
         sta   >GDataReg
         lda   bfreqhi+1,s
         sta   >GDataReg
         plp                            ; cli and BOTH LONG ************
         pla
         pla                            ; clean up the stack!
         mem_short                   ; as requested by update
         rts

		ENDP

****************************************************************
*
*  PitchToFreq
*
*  Inputs:     Pitch word in A, full native mode
*
*  Outputs:    Freq word in A
*
*  Uses:       x and y
*
*
*
****************************************************************

		EXPORT	PitchToFreq 
PitchToFreq PROC
*        using tables
         longi on
         longa on
octave   equ   12*256

         ldy   #10                      maximum octave count
         sec
         sbc   #octave
         bmi   hitbottom
loop     dey                            keep subtracting octaves to
         sbc   #octave                  find out how many
         bpl   loop
hitbottom adc  #octave                  went too far; back up. (carry was ok)

* now the octave count is in y and the remainder is in a

         and   #$FFFE
         tax                            *** NOTE ABSOLUTE ADDRESSING ***
         lda   >freqtable,x             lookup in top octave table

* now we have the right pitch, but the wrong octave, in a

         dey
         bmi   done
shift    lsr   A                        divide by two for each octave down
         dey
         bpl   shift

done     rts

		ENDP
		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/NoteSynth/gcb.aii b/IIGS.601.SRC/GSToolbox/NoteSynth/gcb.aii
new file mode 100644
index 0000000..ad355a6
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/NoteSynth/gcb.aii
@@ -0,0 +1 @@
+****************************************************************
*
*  GCB direct page declarations
*
****************************************************************

gcb_ID         equ 0
gcb_doc        equ 1
gcb_semitone   equ 2
gcb_volume     equ 3
gcb_pitchbend  equ 4
gcb_vib_depth  equ 5
gcb_env_inc    equ 6                    ; word
gcb_env_cur    equ 8                    ; word
gcb_env_lim    equ 10                   ; word
gcb_vib_cur    equ 12
gcb_vib_inc    equ 13
gcb_vcb        equ 14                   ; word ptr

gcb_size       equ 16
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/NoteSynth/makefile b/IIGS.601.SRC/GSToolbox/NoteSynth/makefile
new file mode 100644
index 0000000..474f2b1
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/NoteSynth/makefile
@@ -0,0 +1 @@
+SrcDir	=	:
ObjDir	=	:obj:
LstDir	=	:lst:

Defines	=	{SrcDir}Note.aii							¶
			{SrcDir}Note.Macros							¶
			{SrcDir}GCB.aii

Sources	=	{SrcDir}note.exec.aii						¶
			{SrcDir}alloc.aii							¶
			{SrcDir}noteon.aii							¶
			{SrcDir}noteoff.aii							¶
			{SrcDir}update.aii							¶
			{SrcDir}freq.aii							¶
			{SrcDir}tables.aii							

Objects	=	{ObjDir}note.exec.aii.obj					¶
			{ObjDir}alloc.aii.obj						¶
			{ObjDir}noteon.aii.obj						¶
			{ObjDir}noteoff.aii.obj						¶
			{ObjDir}update.aii.obj						¶
			{ObjDir}freq.aii.obj						¶
			{ObjDir}tables.aii.obj						

Lists	=	{LstDir}note.exec.aii.lst					¶
			{LstDir}alloc.aii.lst						¶
			{LstDir}noteon.aii.lst						¶
			{LstDir}noteoff.aii.lst						¶
			{LstDir}update.aii.lst						¶
			{LstDir}freq.aii.lst						¶
			{LstDir}tables.aii.lst						

			
tool025	Ä	{Objects} {SrcDir}makefile			
	LINKIIGS {Objects} -o tool025 -t tol
#	DUPLICATEIIGS -y -mac tool025 tool025
# 	MAKEBINIIGS tool025 -o tool025.bin
# 	EQUAL :Orig:tool025bin tool025.bin
# 	DELETE tool025.bin

{ObjDir}	Ä	{SrcDir}
.aii.obj	Ä	.aii
	ASMIIGS -o {ObjDir} {SrcDir}{Default}.aii
	
{ObjDir}note.exec.aii.obj			Ä	{SrcDir}note.exec.aii		{Defines}
{ObjDir}alloc.aii.obj				Ä	{SrcDir}alloc.aii			{Defines}
{ObjDir}noteon.aii.obj				Ä	{SrcDir}noteon.aii			{Defines}
{ObjDir}noteoff.aii.obj				Ä	{SrcDir}noteoff.aii			{Defines}
{ObjDir}update.aii.obj				Ä	{SrcDir}update.aii			{Defines}
{ObjDir}freq.aii.obj				Ä	{SrcDir}freq.aii			{Defines}
{ObjDir}tables.aii.obj				Ä	{SrcDir}tables.aii			{Defines}

listings	Ä	{Sources}
	ECHO "Last listings made `Date`" > listings
	ASMIIGS -l -lo {LstDir} -o {ObjDir} {NewerDeps}
	LINKIIGS {Objects} -o {LstDir}listlink -l > {LstDir}link.lst
	DELETE {LstDir}listlink
	MAKE listings2 > MAKE.PRINT.CMDS
	MAKE.PRINT.CMDS
	DELETE MAKE.PRINT.CMDS
	
listings2	Ä	{Lists} {Defines} {LstDir}link.lst
	ECHO "Last listings made `Date`" > listings2
	PRINT -h -r -f monaco -s 6 -hf helvetica -hs 12 {NewerDeps}
	
backup		Ä
	BACKUP -a -t 'TEXT' -e -from {SrcDir} -to 1
	
tobuild		Ä
	BACKUP -a -t 'TEXT' -e -from {SrcDir} -to Trouble:Sources:midi:miditools:
	
search		Ä
	SEARCH -i Reg_expr alloc.aii freq.aii gcb.aii makefile Note.aii Note.Exec.aii Note.Macros NoteOff.aii NoteOn.aii ns.equ Tables.aii Update.aii
	
dup			Ä
	DUPLICATEIIGS -y -mac tool025 tool025
	
duplicate	Ä
	DUPLICATEIIGS -y -mac tool025 tool025
		
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/NoteSynth/ns.equ b/IIGS.601.SRC/GSToolbox/NoteSynth/ns.equ
new file mode 100644
index 0000000..6c000cc
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/NoteSynth/ns.equ
@@ -0,0 +1 @@
+	Blanks off
;------------------------------------------
;
; Instrument and WaveList Equates
;		
;------------------------------------------

vcb_envelope     equ 0
vcb_release_seg  equ 24
vcb_priority_inc equ 25
vcb_current_seg  equ 26
vcb_Apitch       equ 28
vcb_Bpitch       equ 30
vcb_size       equ 32
inst_envelope     equ 0
inst_release_seg  equ 24
inst_priority_inc equ 25
inst_pb_range     equ 26                ; pitch bend range
inst_vib_depth    equ 27
inst_vib_inc      equ 28                ; vibrato rate
inst_spare        equ 29                ; 1 bytes spare..
inst_Awavecount   equ 30
inst_Bwavecount   equ 31
inst_size         equ 32

wp_topkey      equ 0
wp_addr        equ 1
wp_size        equ 2
wp_ctrl        equ 3
wp_pitch       equ 4

;------------------------------------------------------------------------------------
;
; Equates for Shared DP of SoundTools 
; 	All DP equates from F0-FF are used only while interupts are disabled,
;	and the original values must be preserved.
;
;------------------------------------------------------------------------------------
Priority_table	equ	$F0	; Long Pointer to RAM with priority table.
min				equ	$F4	; Byte Minimum priority found in Alloc Gen.

;------------------------------------------------------------------------------------
;
; Equates from procedure mydata
;
;------------------------------------------------------------------------------------
num_of_gen equ 14
vcb_ram		equ	16		; offset from MyRamPtr to vcb_ram area.

* my 8 bytes of reserved ram in bank e1.
*
* It will be set up like this:

cubbyhole equ $E11DC4                   ;12 bytes of my own, forever
myram_ptr      equ cubbyhole   * 3 byte pointer to my ram area
myflags        equ cubbyhole+3 * 1 byte with 2 flags:
busy_bit equ $80               * bit7 set when update is running;
awake_bit equ $1               * bit0 set when Note syn has been initialized.
user_bit equ $2                * bit2 set when user passed us a vector forupdate
not_user_bit equ $D			   * all bits set but user_bit, bit 2.
not_user_bit_w equ $FFFD	   * all bits set but user_bit, bit 2.
reenable_bit equ $4
mydp           equ cubbyhole+4 * hi byte of my DP page pointer
old_vector     equ cubbyhole+5 * previous IRQ vector stored as 3 bytes
userjump       equ cubbyhole+8 * put jml here
userUpdate     equ cubbyhole+9 * address of user's routine
My_ID    equ 2                          ; I'm a note synthesizer
My_tool_number equ  25
version_number equ $0104
SoundTVer	   equ	$0204				; version of the sound tools that I need.
update_rate equ 500                     ; default update rate 250 = 10 ms
                                        ; 500 = 5 ms,  200 Hz  (.4 Hz steps)
NSID		equ		$4119				; ID to use for New Handle call.

errNoneAvail equ my_tool_number*256+$21 ; alloc error
errBadGennum equ my_tool_number*256+$22 ; dealloc error
errNotStarted equ my_tool_number*256+$23 ;function called before startup
errAlreadyOn equ my_tool_number*256+$24 ; noteon error
errSoundWrngVer equ my_tool_number*256+$25 ; The sound tools is an incompatible version.
errStarted equ my_tool_number*256+1  ; startup error
soundNotInit equ my_tool_number*256+2
;------------------------------------------
;
; Equates from procedure DOC
;
;------------------------------------------
* Equates for Sound Glu and DOC

GStatReg       equ $E1C03C                ; sound glu control/status  register
GDataReg       equ $E1C03D                ; data
GAdrL          equ $E1C03E                ; address low
GAdrH          equ $E1C03F                ; address high
* Glu status register bits

Gvol           equ $0F                  ; bits 0-3
GptrInc        equ $20
GptrNoInc      equ $20                  ; (reset bit 5)
GRAMsel        equ $40
GRegSel        equ $40                  ; (reset 6 to talk to DOC)
GBusy          equ $80
* DOC registers

doc_freqlo     equ 0
doc_freqhi     equ $20
doc_vol        equ $40
doc_addr       equ $80
doc_ctrl       equ $A0
doc_size       equ $C0

* DOC control register bits
doc_irq_bit    equ $08
doc_halt_bit   equ $01
doc_halt_reset equ $03                  ; single cycle mode resets accum
Dispatch       equ $E10000              ; the big tool

* useful control register state
SysVol         equ $E100CA              ; 4 bit volume for everyone

* other goodies
timer_osc      equ $0e
timer_gen      equ $0e
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Patch/Patch2/BigQDStartup.asm b/IIGS.601.SRC/GSToolbox/Patch/Patch2/BigQDStartup.asm
new file mode 100644
index 0000000..1cc6ccc
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Patch/Patch2/BigQDStartup.asm
@@ -0,0 +1 @@
+**********************************************************************
*
* BigQDStartup.asm
*
* Contains startup code the loads the fast font.
* This is code that only runs on a big machine.
*
*
* 12 March 89	Steven Glass
*
* Made into separate file today.
*
**********************************************************************



****************************************************************
*			   *
*              Copyright (C) 1989		   *
*              All Rights Reserved		   *
*              Apple Computer, Inc.		   *
*			   *
****************************************************************



	include 'all.macros'

	include ':::sys.equs.asm'

	INCLUDE ':::qd:QDEquates:qd.data.asm'
	INCLUDE ':::qd:QDEquates:core.globals1'
	INCLUDE ':::qd:QDEquates:core.globals2'

	include 'e16.memory'










*******************************************************************************
*
DoFastSetup	PROC export
*
* Description:	This routine will create a RAM based font strike in memory
*	and return to the caller with its handle on the stack.
*
*
* Inputs:	room for result
*
* Outputs:	Handle
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
*
* Stack frame equates...
tempDPage	equ 1
deref1	equ tempDPage
tempPort	equ deref1+4
tempHandle	equ tempPort+4
RefNum	equ tempHandle+4
OldStack	equ RefNum+2
SizeOfFrame	equ $21
;
SaveDPage	equ tempDPage+SizeofFrame
QDDPage	equ SaveDPage+2
RTL1	equ QDDPage+2
Result	equ RTL1+3
uUserID	equ Result+4
;
;
; Equates for the fastfont record
;
o_FFAscent	equ 0
o_FFDescent	equ o_FFAscent+2
o_FFMaxWidth	equ o_FFDescent+2
o_Leading	equ o_FFMaxWidth+2
o_FFrowBytes	equ o_Leading+2
o_oldFontHandle	equ o_FFRowBytes+2
o_StrikeSize	equ o_oldFontHandle+4
o_FFSizeofVars	equ o_StrikeSize+4
o_FFWidthTable	equ o_FFSizeofVars
o_FFOffsetTable	equ o_FFWidthTable+256
o_FFEndOfTables	equ o_FFOffsetTable+512
;
; Now that the equates are done, lets set up our call...
; this routine will save the fastfont we created...
	pha
	phd
	tsc	; get the stack pointer
	
	sec
	sbc #SizeOfFrame
	tcd	; create the stack frame...
	tcs	
;
; Now that the stack frame is set up, create the offscreen buffers that we are
; going to use. Ask for a block the size of shaston 8 first!
	stz Result
	stz Result+2
	pha	; room for result
	pha
	pea $0000	; size of block
	pea $7000	; TEMP
	pei uUserID	; pass the users ID on to the memory manager
	pea $4008	; locked
	pha
	pha
	_NewHandle	
	plx
	pla
	bcc @1	; if no error continue
	ldx #-1
	brl @ErrOut	; die with an error
@1
	stx deref1
	stx Result
	sta deref1+2
	ora #$8000
	sta Result+2
	ldy #2
	lda [deref1],y
	tax
	lda [deref1]
	sta deref1
	stx deref1+2

	lda #0
	pha	; room for refnum
	pha
	PushLong #FFPath
	pha
	tsc
	pea 00
	inc a
	pha
	pea $0010
	jsl >$E100B0
	tax
	pla	; save the refnum
	ply
	ply
	ply
	ply	; discard the crap
	bcs @ErrOut
	sta refNum
	
	lda #0
	pha
	pha
	pha
	pea $FFFF
	pei deref1+2
	pei deref1
	pei refnum
	tsc
	pea 00
	inc a
	pha
	pea $0012
	jsl >$E100B0	
	plx
	plx
	plx
	plx
	plx
	plx
	plx
	php	; save the read status its important
	pei refnum
	tsc
	pea 00
	inc a
	pha
	pea $0014
	jsl >$E100B0	
	pla
	plp
	ldx #-1
	bcs @ErrOut
;
; Make this stuff work right!
	pha
	pha
	_GetSYSFont
	ldy #o_oldFontHandle
	pla
	sta [deref1],y
	pla
	ldy #o_oldFontHandle+2
	sta [Deref1],y

	ldx #0

@ErrOut	
	cpx #0
	beq @okend
	lda Result+2
	and #$00FF
	pha
	pei Result
	_DisposeHandle
@okEnd
	tdc
	clc
	adc #SizeOfFrame
	tcs
	pld
	pla
	txa
	cmp #1
	rtl
FFPath	str '*/System/Fonts/FastFont'
	EndP



	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Patch/Patch2/Desk.asm b/IIGS.601.SRC/GSToolbox/Patch/Patch2/Desk.asm
new file mode 100644
index 0000000..3ff925e
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Patch/Patch2/Desk.asm
@@ -0,0 +1 @@
+**************************************************************
**************************************************************
*
*
*	     Desk Manager
*	        Patch
*	 (includes NDA calls)
*
*
*                For Version 2.0 of the ROM
*	    June 2, 1989
*
*
* Change History
*
*  Version 1.0 in	ROM by John Worthington
*
*
*  Version 1.1 (First System Disk)
*  September 1, 1986   SEG
*
*    Contains first release of NDA stuff.
*
*  Version 1.2 (Second System Disk)
*  October 28, 1986    SEG
*
*    The error codes had the wrong tool set number in
*    desk.data.
*
*  November 7, 1986    SEG
*
*    SystemClick did not set the window size after a
*    grow window.
*
*    SystemClick swallowed clicks in scroll bars, the
*    frame and in	the info bar.  They	are now passed
*    on to DA just like Click in content.
*
*  Version 2.1 (Third system disk, second ROM)
*
*
*  Version 2.2 (Fourth system disk, second ROM)
*
*    SaveAll zeros mmode field before calling code in
*    ROM.
*
*  Version 2.3 (Fifth system disk, second ROM)
*  Changes for ROM
*
*  The global data structures were changed so this would
*  work in ROM.  No inline data storage is used.
*  Individual routines are marked as changed.
*
*
*  Version 2.4 (Sixth system disk (3.2), second ROM)
*
*  SystemEvent was passing events to NDA's even when 
*  CDA's were active.  It now checks the NotAgain flag
*  to make sure it is safe to pass them on.
*
*  15 June 88 Harry Yee
*
*   Prototype bit taken out of version number.
*
*
*  16 Jun 88 	Steven Glass
*
*  OpenNDA call looks for zero coming back from NDA.
*
*
*
*  05 Aug 88	Steven Glass
*
*  We could run into problems when going into the control
*  panel during boot. The problem was that  ChooseCDA
*  locks the CDATabHandle and leaves it locked.  Later
*  when InstallCDA must grow the table, the SetHandleSize
*  call fails.
*
*  We fix this by setting the table size to a value large
*  enough at init time so a grow is never necessary.
*
*  [22-Feb-91 DAL:  Experiment shows that the CDA handle
*  is now unlocked when you are not in the CDA menu (or
*  in a CDA through the menu), so this is not a problem,
*  even though the "large" value Steve chose is not very
*  large.]
*
*  23 Feb 89	Steven Glass
*
*  Variable big is used to distinguish between small and
*  large memory system patches.
*
* 12 Mar 89	Steven Glass
*
* Variable Big is no longer used.  All decisions are
* made at run time.
*
*
* 02 Jun 89	Steven Glass
*
* Patched out dahandler in irq_dskacc vector so that
* data bank and p-reg would not be trashed.
*
* 29 Aug 89	Harry Yee
*
* Changed version number from $0301 to $8302.
*
* 19-Sep-90	Dave Lyons
*
* Rolled version to $8304.
* Added GetIndDAInfo and CallDeskAcc to call table.
*
* 25-Sep-90	Dave Lyons
*
* Removed code that skips over the CDA menu patch on small
* machines (we're not trying to support 512K machines now).
*
* 25-Nov-90	Dave Lyons
*
* Changed FixAppleMenu to FixAppleMenu2 in call table.
*
* 19-Feb-91	Dave Lyons
*
* Added GetDeskGlobal to the call table.
*
* 11-Mar-91	Dave Lyons
*
* Changed name of GetIndDAInfo to GetDeskAccInfo.
*
* 17-Sep-91	Dave Lyons
*
* Moved a lot of calls to Tool.Setup.
*
* 21-Nov-91	Dave Lyons
*
* NewDAHandler calls ROM directly, instead of chaining into
* the $E10048 vector, because the only thing that can patch
* that vector earlier than us is the ROM debugger, and chaining
* in ahead of that was causing an infinite loop.
*
* 5-Feb-92	Dave Lyons
*
* Version $0304 for 6.0 final.
*
****************************************************************
****************************************************************


****************************************************************
*			   *
*	Copyright (C) 1986-1992	   *
*	All Rights Reserved		   *
*	Apple Computer, Inc.	   *
*			   *
****************************************************************

	include 'all.macros'
	include ':::sys.equs.asm'

	include ':::desk:desk.equates.asm'




****************************************************************
*
* DACallTable
*
* Change History
*
* 23 Feb 89	Steven Glass
*
* The new CDA menu is not installed if Big=0.
*
* 12 Mar 89	Steven Glass
*
* Removed use of BIG and added lable to ChooseCDA entry
* so can be patched at run time.
*
* (see also top of file --DAL)
*
****************************************************************

	EXPORT DACallTable
DACallTable	PROC

TheBeginning
	DC.L (TheEnd-TheBeginning)/4	; num calls + 1
	DC.L DABootInit-1		; 0105
	DC.L DAStartup-1		; 0205
	DC.L DAShutdown-1		; 0305
	DC.L DAVersion-1		; 0405
	DC.L 0		; 0505 DAReset
	DC.L DAStatus-1		; 0605 DAStatus
	DC.L 0		; 0705 reserved
	DC.L 0		; 0805 reserved
	DC.L 0		; 0905 SaveScreen
	DC.L 0		; 0A05 RestScreen
	DC.L SaveAll-1		; 0B05 SaveAll
	DC.L 0		; 0C05 RestAll
	DC.L 0		; 0D05 (not used)
	DC.L InstallNDA-1		; 0E05 InstallNDA
	DC.L InstCDA-1                	; 0F05 InstallCDA
	DC.L 0		; 1005 (not used)
	DC.L 0  ;[ts] ChooseCDA-1	; 1105 ChooseCDA
	DC.L 0		; 1205 (not used)
	DC.L 0		; 1305 SetDAStrPtr
	DC.L 0		; 1405 GetDAStrPtr
	DC.L OpenNDA-1		; 1505
	DC.L CloseNDA-1		; 1605
	DC.L 0  ;[ts] SystemClick-1	; 1705
	DC.L 0  ;[ts] SystemEdit-1	; 1805
	DC.L 0  ;[ts] SystemTask-1	; 1905
	DC.L 0  ;[ts] SystemEvent-1	; 1A05
	DC.L GetNumNDAs-1		; 1B05
	DC.L 0  ;[ts] CloseNDAbyWinPtr-1 	; 1C05
	DC.L 0  ;[ts] CloseAllNDAs2-1	; 1D05
	DC.L 0  ;[ts] FixAppleMenu2-1	; 1E05
	DC.L AddToRunQ-1		; 1F05
	DC.L RemoveFromRunQ-1 	; 2005
	DC.L RemoveCDA-1		; 2105
	DC.L 0  ;[ts] RemoveNDA-1	; 2205
	dc.L 0  ;[ts] GetDeskAccInfo-1	; 2305 19-Sep-90 DAL
	dc.L 0  ;[ts] CallDeskAcc-1	; 2405 19-Sep-90 DAL
	dc.l 0  ;[ts] GetDeskGlobal-1	; 2505 19-Feb-91 DAL
TheEnd
	ENDP


****************************************************************
*
DABootInit	PROC
*
* Description
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
***	import BigMachine	;removed 25-Sep-90 DAL
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* Change History
*
* 3 Jun 87     JW and SEG
*
* When SaveAll and RestoreAll deal with	mmode, it is possible
* for the code to become confused.  The	code that looks for
* the mouse card initializes the mmode word in 8 bit mode.
* It later reads the word in 16 bit mode and if the
* uninitialized byte powered up with the high bit set,
* then the code thinks the mouse is off	even when it is on.
*
* The fix here is to always zero the mmode each time SaveAll
* is called.  To do	this we patch the addess of in the
* call table.
*
* 2 Oct 87	    Steven Glass
*
* The error code sent to death mgr had wrong high byte (6
* instead of 5).
*
* 24 Oct 88	Steven Glass
*
* No longer care about orignal value of SAVEALL.  Original code
* was written to read address of SaveAll out of table.  But
* since this does not have to run with the original rom anymore
* I cna jump into a fixed location.
*
* 23 Feb 89	Steven Glass
*
* When Big is not set to 1, we do not change KeyInput.
*
*
* 12 Mar 89	Steven Glass
*
* Remove compiler switch for big and decide at run time.
* If machine is big we change KeyInput and install the
* address of the new choosecda routine into the call table
*
* 02 Jun 89	Steven Glass
*
* Patched out the old irq_dskacc vector out.  The code in ROM
* did a push p followed by a pull b.  This patch saves b and p
* before calling the ROM and restores them after.
*
* [See top of file for other notes]
*
****************************************************************

***	lda >BigMachine	;removed 25-Sep-90 DAL
***	beq @NoCDAPatch

;;; Tool.Setup now inits KeyInput
;;;	lda #MonKeyIn
;;;	sta >KeyInput

*** Removed 27-Nov-90 DAL (we can put it directly in the patch table now)
*	lda #ChooseCDA-1
*	sta >ChooseCDAAddr
*	lda #^ChooseCDA-1
*	sta >ChooseCDAAddr+2

*** @NoCDAPatch
	php	;27-Nov-90 DAL (I'm paranoid)
	sei	;27-Nov-90 DAL

;;; Removed 21-Nov-91 DAL for compatibility with ROM debugger
;	lda >IRQ_DSKACC	; save the old irq vector
;	sta >OldDAHandler
;	lda >IRQ_DSKACC+2
;	sta >OldDAHandler+2

	lda #NewDAHandler	; install our new one
	sta >IRQ_DSKACC+1
	lda #>NewDAHandler
	sta >IRQ_DSKACC+2

	plp	;27-Nov-90 DAL

	jsr DoNDAInit
	sep #$30
	longa off
	longi off
	lda #$00
	sta >IsPanelActive
	rep #$30
	longa on
	longi on
	jml oEndCall0



;
; The old handler can trash dbr and p-reg so we save them dbr before the call
; and restore them after.
;
NewDAHandler	phb
	php
;;;	jsl OldDAHandler
	jsl $FEADB9	;21-Nov-91 DAL
	plp
	plb
	clc
	rtl

;;;OldDAHandler	dc.L 0

	ENDP




****************************************************************
*
DAVersion	PROC
*
* Returns the version number of the desk manager
*
*
* Inputs:
*	none
*
* Outputs:
*	work : The patched version number
*
* External Refs:
*	Falls into the boot init code.
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

	lda #$0304	;5-Feb-92 DAL
	sta 7,s

	lda #0
	clc
	RTL

	ENDP







***************************************************************
*
* SaveAll
*
* Change History
*
* 3 Jun 87     JW and SEG
*
* When SaveAll and RestoreAll deal with	mmode, it is possible
* for the code to become confused.  The	code that looks for
* the mouse card initializes the mmode word in 8 bit mode.
* It later reads the word in 16 bit mode and if the
* uninitialized byte powered up with the high bit set,
* then the code thinks the mouse is off	even when it is on.
*
* The fix here is to always zero the mmode before calling
* the old code.
*
* 24 Oct 88	Steven Glass
*
* This only has to work with one rom now so I can jump into
* the right location instead of finding it dynaically.
*
***************************************************************
	EXPORT SaveAll
SaveAll	PROC


	lda #0
	sta >mmode

	jml $FEAFCB

	ENDP


	END

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Patch/Patch2/TS2 b/IIGS.601.SRC/GSToolbox/Patch/Patch2/TS2
new file mode 100644
index 0000000..6c11a02
Binary files /dev/null and b/IIGS.601.SRC/GSToolbox/Patch/Patch2/TS2 differ
diff --git a/IIGS.601.SRC/GSToolbox/Patch/Patch2/adb.asm b/IIGS.601.SRC/GSToolbox/Patch/Patch2/adb.asm
new file mode 100644
index 0000000..d393e35
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Patch/Patch2/adb.asm
@@ -0,0 +1 @@
+**************************************************************
*
*	    ADB Patch
*	For ROM Version 2.0
*
* System Disk 2.0
*
* Version 2.1    23	Apr 87    Fern Bachman
*
*    FDBRcv replaced
*
* 20-Dec-90	Dave Lyons
*
* Rolled version to $8300 so it can match ROM 3 for 6.0.
*
* 5-Feb-92	Dave Lyons
*
* Version $0300 for 6.0 final.
*
**************************************************************


********************************************************
*		               *
*                Copyright (C) 1986-1987               *
*                All Rights Reserved	               *
*                Apple Computer, Inc.	               *
*		               *
********************************************************

FDBVersion	EQU $0300	; current version number


**************************************************************
*
* ADBCallTable
*
**************************************************************
ADBCallTable2	PROC EXPORT
	IMPORT ADBInit2
	IMPORT ADBVersion2
	IMPORT FDBRcv

here
	DC.L (TheEnd-Here)/4
	DC.L ADBinit2-1	; 1 New Boot Init
	DC.L 0	;  2 old startup
	DC.L 0	;  3 old shutdown
	DC.L ADBVersion2-1	; 4  New ADB Version
	DC.L 0	;  5 old reset
	DC.L 0	;  6 old status
	DC.L 0	;  7 old function unchanged
	DC.L 0	;  8 old function unchanged
	DC.L 0	;  9 old function unchanged
	DC.L 0	; 0A old function unchanged
	DC.L 0	; 0B old function unchanged
	DC.L 0	; 0C old function unchanged
	DC.L 0	; 0D old function unchanged
	DC.L FDBRcv-1	;
	DC.L 0	; 10
	DC.L 0
	DC.L 0
	DC.L 0	; old function unchanged
	DC.L 0	; old function unchanged
	DC.L 0	; old function unchanged
	DC.L 0	; old function unchanged
	DC.L 0	; old function unchanged

TheEnd
	endP



**************************************************************
*
* ADBInit2
*
**************************************************************
ADBinit2	PROC

	lda #0
	clc
	rtl


**************************************************************
*
* ADBVersion
*
**************************************************************
	ENTRY ADBVersion2
ADBVersion2

	lda #FDBVersion
	sta 7,s
	bra ADBInit2

	endP



*>>>> This segment FDBRCV patch goes in	ROM Rev $00 and in Rev $01<<<<

FDBRCV	PROC

********************************************************
*		               *
*	 Apple IIgs ADB	               *
*		               *
*	       by	               *
*             Original code by  Peter Baum             *
*    This RAM patch	by Fern Bachman and	Steve Glass    *
*		               *
*       Copyright Apple Computer, Inc. 1985-1987       *
*                 All Rights Reserved	               *
*		               *
********************************************************

* CD.TOOL.EQUATES
*
* The following is the SKI tool code.
* It implements calls to the Single-Chip-Microcontroller (uC) using
* the SKI protocol.
* For more information see the Single-Chip-Microcontroller (uC) ERS &
* the SKI TOOL ERS
*
* The following Flags/Variables are used:
*
* STATUSTMP: Used to save pending status data from uC. When	a
* command is being sent interrupts are locked out, but
* the uC status has	to be read. It is acted on at the
* end of the routine.(Status = Abort,Flush,Desktop,etc.)
*
* PENDFLG: Indicates if a command is pending. If a command is
* clr=nope Pending then it should be finished before any other
* set=pend command can be initiated. If	a pending command is
* requested while this flag is set then	the code
* returns w/ an error code indicating busy - try again
* later. If an immediate command is requested then
* the pending command is completed and a flag is set:
*
* RSPNSFLG: Indicates if a pending command was completed during
* clr=none a request for an immediate command. The response	from
* set=pend the pending command is processed after the immediate
* command is done.
*
* RSPNSBUF: Buffer to hold response: 8 bytes for data, 1 for count
*
* The code makes extensive use of the stack and direct page. At
* the beginning of most tool functions room is made on the
* stack and then the direct page is placed on top of the stack to
* allow easy access	to these variables.	In most tool functions the
* stack looks like this:
*
* 26-27 Word - Input Parameter
* 22-25 Long - Input Parameter
* 20-21 Word - Input Parameter
* 1D-1F Adrs - Tool	Dispatcher Return address
* 1A-1C Adrs - Calling Code Return Address
* 18-19 Word - Original Direct Page
* 17 Byte - Original Processor Status
* 16 Byte - Original Data Bank
* 14-15 Word - Variable
* A-13 10 - Response Buffer 2
* 0-09 10 - Response Buffer 1

MYTOOLNUM	EQU $09	;ADB TOOL NUMBER

DATAFULL	EQU $20	;DATA REG FULL BIT (IN KEYGLOO STATUS)

HARDERR	EQU $0010	;CODE FOR HARD ERROR
BUSYERR	EQU $0082	;CODE FOR BUSY ERROR

ABORTBIT	EQU $40
FLUSHBIT	EQU $10

RSPNSLNG	EQU 10	;BUFFER FOR PENDING	COMMAND RESPONSE
PARMS	EQU RSPNSLNG*2	;USED DURING ENDCALL
PHBOFFSET	EQU PARMS+2
PHPOFFSET	EQU PHBOFFSET+1
PHDOFFSET	EQU PHPOFFSET+1
RTLGLU	EQU PHDOFFSET+2	;GLU ROUTINE RETURN	ADDRESS
RTLCALL	EQU RTLGLU+3	;CALLING ROUTINE RETURN ADDRESS
ZPTOS	EQU RTLCALL+3	;OFFSET INTO STACK FOR 1ST DATA BYTE
uc_cmd	EQU ZPTOS	;COMMAND TO uC
FDBADRS	EQU ZPTOS	;FDB ADDRESS
DATAPTR	EQU uc_cmd+2	;POINTER TO DATA
CPLTVCTR	EQU uc_cmd+2	;COMPLETION VECTOR ADDRESS
HOWMANY	EQU DATAPTR+4	;DATA BYTE COUNT
RDMEMPTR	EQU DATAPTR+4	;USED TO GET DATAINPTR FOR RDMEM COMMAND
MAXCOUNT	EQU DATAPTR+4	;MAXIMUM BUFFER COUNT-USED IN READBYTES
FDBCMD	EQU CPLTVCTR+4	;FDB COMMAND BYTE-2ND SENT DURING FDBRCV

irq_flush	equ $e1004c	;flush keyboard buffer interrupt vector
irq_micro	equ $e10050	;micro abort interrupt vector

VCTRCPLT	equ $e103dc	;COMPLETION VECTOR ADDRESS

SRQTBL	equ $e1154a	;$40 byte table for
;  A COMPLETION VECTOR FOR EACH DEVICE & THE FDB ADDRESS/REGISTER

FLAGS	equ $e10fd6
PENDFLAG	EQU flags	;RAM IN BANK E1
RSPNSFLAG	EQU flags
PENDBIT	EQU $0080	;COMMAND PENDING
ABSBIT	EQU $0040	;ABSOLUTE DEVICE AUTO-POLLED (16-BIT)
RSPNSBIT	EQU $0020	;PENDING COMMAND WAS PROCESSED

STATUSTMP	equ $e10fd7	;HOLDS ANY PENDING uC STATUS

* Keep these variables in this order

SRQNUM	equ $e10fd8	;# OF DEVICES INSTALLED IN SRQ CHAIN
SRQCNT	equ $e10fd9	;COUNT OF DEVICES POLLED SINCE LAST DATA
SRQMAX	EQU $10	;MAX OF 16 DEVICES (1-16)
SRQPTR	equ $e10fda	;POINTER TO NEXT DEVICE IN SRQ LIST
SRQMRU	equ $e10fdb	;MOST RECENTLY USED	DEVICE (TOP OF LIST)



ERRCODE	EQU $0911	;CODE FOR SYSTEM DEATH MESSAGE


*********************************************************************

kbdstrb	equ $c010	;
kmstatus	equ $c027	;keymicro status register
datareg	equ $c026	;keymicro data register

;endcall         equ     $ff84c4	 ;peter's special error endcall
;errorcall       equ     $ff82b7	 ;another peter's special error endcall
;endtool         equ     $ff82af	 ;peter's clean error endcall

CMDREG	EQU DATAREG	;KEYGLOO COMMAND REG. (WRITE ONLY)


* FDB RECEIVE
* This command is very similar to the FDB TALK command except
* it uses 2 bytes of command instead of	a single

	longa on
	longi on
	PHD	;SAVE DIRECT PAGE
	PHP	;SAVE INTERRUPT STATUS
	PHB	;SAVE DATA BANK

* INIT sequence for	a typical tool call.
* It assumes the following stack structure on entry:

* 11-12 Word: Count	of Data bytes (HOWMANY)
* D-10 Long: Pointer to Data
* B-C Word: Command	to uC
* 8-A Adrs: Tool Dispatcher Return
* 5-7 Adrs: Calling	Code Return
* 3-4 : Original Direct Page
* 2 : Processor Status
* 1 : Data Bank
* TOS->

* and adds following:

* 2 bytes : Return address from this subroutine
* 20 bytes : Buffer	for Response

* The direct page is then placed on top	of the stack. The stack is
* then pushed down one more byte. This allows the beginning	of the
* direct page to be	used as a pointer to data (PHD).
* The stack pointer	is not actually moved until the routine	returns
* to the tool call.

INITOOL		;
	longa on	;START IN 16-BIT MODE
	longi on
	SEI	;DISABLE INTERRUPTS
	TSC	;MAKE ROOM IN STACK	FOR BUFFERS
	SEC	; (JSR ALREADY TOOK	2 BYTES)

; JSR no longer taken to get here so SBC operand below is modified by 2 bytes!!!

	SBC #RSPNSLNG*2-1+2	;LEAVE ROOM FOR 2 RESPONSE BUFFERS


	TCD	;PUT DIRECT PAGE ONTO FUTURE STACK
	DEC A	;ADJUST STACK PTR OUTSIDE ZERO PAGE
	pea $e1e1	;Changes data bank register to $E1
	plb
	plb
	SEP #$20	;8-BIT ACCUMULATOR
	longa off

	TCS	;OPENS UP BUFFER INSIDE STACK

* Set up Completion	Vector
* Assumes 4-byte address in stack
* High byte should be zero - lower 3-bytes hold address
* If pending command flag already set then flag error busy


	LDA CPLTVCTR+3	;GET HI BYTE OF COMPLETION VECTOR
	BNE RET1	;ERROR IF NOT 0

	LDA #PENDBIT	;CHECK PENDING BIT
	TSB |FLAGS
	BNE BUSY	;COMMAND ALREADY PENDING - FLAG BUSY

	LDY CPLTVCTR	;SAVE OFF LOW WORD OF ADDRESS
	STY |VCTRCPLT+1
	LDA CPLTVCTR+2	;SAVE OFF HI BYTE OF ADDRESS
	STA |VCTRCPLT+3

* SEND COMMAND
* This routine sends a command to uC & cleans data reg. for	response
* If a command is pending then it sets a flag and reads the	response
* into a buffer, before executing the immediate command. After
* performing the immediate command the response is processed.
* After sending the	immediate command the Status Reg. is read
* till either the command is read by the uC (reg. empty) OR	Timeout
* The data reg. is then read Immediately to clear out any
* pending uC status. This guarantees that the next byte written to the
* data reg. will not be status, but data in response to a RCV command.
* Valid uC status is stored in Statustmp & processed at end	of command
* Should always be followed with an ENDIMD call to process any pending
* read responses or	status.

* 8-bit m, 16-bit x
* Error = Carry set

	longa off
	longi on

	LDA uc_cmd	;GET COMMAND
CMDSEND	JSR SENDDATA	;AND SEND IT AND WAIT TIL READ
	BCS RET1
	AND #DATAFULL/2	;CHECK IF DATA REG FULL
	BEQ RET1	;NOT FULL
	LDA DATAREG	;FULL - GET uC STATUS
	TSB |STATUSTMP	;AND SAVE

RET1		; ;CARRY SET = ERR

	BCS ERROR3
	LDA FDBCMD	;
	JSR SENDDATA	;FOLLOW W/ FDB COMMAND BYTE
	BCC ENDTOOL	;CLEAN UP ANY STATUS/RESPONSE LEFTOVERS
*		;RESTORE STACK, ETC.

error3
	LDA #PENDBIT	;SINCE ERROR OCCURRED CLEAR PENDING FLAG
	TRB |FLAGS

	jsr endimd	;clean up any pending status
	ldx #$0008	;clean off 8 input parameters
	ldy #harderr	;error code
	bra endcall

BUSY		;
	LDX #$0008	;CLEAN 8 BYTES OF STACK
	LDY #BUSYERR	;FLAG BUSY ERROR
	BRA ENDCALL

* SEND DATA
* Send data or command, to the uC using	the command reg.
* If command reg. is empty sends a data	byte, otherwise flags error
* If data not read w/ 30 ms. then timeout error
* Uses: A (8-BIT)
* X (16-BIT)
* Input: A=Command
* Output: A=KMSTATUS
* Errors: CARRY SET

SENDDATA		;
	longa off
	longi on
	TAX	;SAVE OFF DATA
	LDA KMSTATUS	;GET CMD REG FULL BIT -> LSB
	ROR A	; INTO CARRY
	TXA	;GET DATA BACK
	BCS local_var2	;REG. NOT EMPTY SO FLAG ERROR
	STA CMDREG	;STORE AWAY NEW COMMAND
	LDX #7500	;TIMEOUT 7500*(2+2+4+2+3)/3 = 30 MS.
local_var1	DEX	;
	BEQ FDBTIMEOUT
	LDA KMSTATUS	;GET CMD REG FULL BIT -> LSB
	ROR A	; INTO CARRY
	BCS local_var1	;SET IF FULL (NOT READ)
*		;CLR IF EMPTY (READ)

local_var2	RTS	;LEAVE W/ A=KMSTATUS CONTENTS


FDBTIMEOUT	sec
	rts


endtool	jsr endimd	;clean up any pending status

* clean up stack and finish call

	ldx #$0008	;clean off 8 input parameters


* end routine
* used to clean up input parameters off	stack,
* restore stack pointer, direct page, &	data bank.
* sets up carry for	error.

* input: y -> error	code
* x=parms -> parameter bytes on stack to be cleaned off


	rep #$30
	longa on
	longi on
	ldy #$0000	;indicates no error
	bra endall

endcall	equ *
	rep #$30	;return in 16-bit m,x
	tya
	ora #mytoolnum*256	;mytool # in hi byte
	tay
endall	lda rtlglu+4	;move glu routine return address
	sta rtlglu+4,x
	lda rtlglu+2
	sta rtlglu+2,x	; and calling return address
	lda rtlglu+0
	sta rtlglu+0,x
	stx parms	;save # of parameters
	tsc	;move stack pointer	to restore status
	clc
	adc #rspnslng*2+2	;point to saved status (plb,p,d)
	tcs
	adc parms	;calculate new location of stack pointer
	adc #$0004	;by adding offset +	4 (saved status)
	tax	;save for now
	plb	;restore data bank
	plp	; interrupt status
	pld	; direct page
	tya	;set error code
	cmp #$0001	;set carry for error code (clr on 0)
	txs	;move new stack pointer
	rtl	;return to glu


* Routine to process the end of a command
* Handles any saved	status conditions such as FLUSH, ABORT,	DESKTOP
* Handles the response read from a pending command if it exists
* Ignores the Desktop Manager Bit ! This occurs because this code
* would have to emulate all the code the interrupt dispatcher
* supports before calling the desk manager entry point.
*
* 8-Bit m, 16-bit x
*
ENDIMD
	SEP #$30	;8-BIT m,x
	longa off
	longi off
	LDA #ABORTBIT+FLUSHBIT ;CLEAR OUT LOW 3	BITS, RESPONSE, SRQ
	AND |STATUSTMP	; OF STATUS FLAGS
	STA |STATUSTMP	;AND UPDATE STATUS FLAGS
	BEQ local_labl3	;NO PENDING STATUS CONDITIONS

	CMP #ABORTBIT	;IF ONLY ABORT BIT SET->ABORT CONDITION
	BNE local_labl1

*  PROCESS ABORT
	PHB	;SAVE DATA BANK
	LDA #0	;SET DATA BANK =0
	PHA
	PLB
	JSL >irq_micro	;PROCESS ABORT - IF	RETURNS THEN OK
	PLB	;RESTORE DATA BANK
local_labl1	LDA |STATUSTMP	;LOOK FOR FLUSH BUFFER BIT
	ASL A
	ASL A
	BEQ local_labl3	;NOT SET
	BCC local_labl2	;IF ABORT BIT SET THEN CLEAR KEYBOARD
	STA KBDSTRB
local_labl2
	LDA #0
	STA |STATUSTMP	;CLEAR OUT THE REST	OF STATUS BITS
	PHB
	PHA	;SET DATA BANK TO 0
	PLB
	JSL >irq_flush	;PROCESS FLUSH
	PLB	;RESTORE DATA BANK

local_labl3	LDA #RSPNSBIT
	TRB |RSPNSFLAG	;TEST & CLEAR OUT RESPONSE FLAG
	BEQ local_labl4	;IF NO RESPONSE THEN DONE

* Response was read, from pending command, during immediate	command
* Process data by calling completion vector

	LDA #PENDBIT
	TRB |PENDFLAG	;CLEAR COMMAND PENDING FLAG
	BEQ local_labl4

	PEA $0000	;SET UP BUFFER ADDRESS ON STACK
	PHD	;BOTTOM OF STACK
	longa off
	longi off
	SEP #$30	;8-BIT m,x
	JSL >VCTRCPLT	;IF RESPONSE READ PREVIOUSLY-PROCESS NOW
	longa on
	longi on
	REP #$30	;16-BIT m,x
	PLA	;CLEAN OFF BUFFER ADDRESS
	PLA	; IN 16-BIT

local_labl4		;
	longa off	;RESET TO 8-BIT M FROM COMPLETION
	longi on	;RESET TO 16-BIT X IF SKIPPED COMPLETION
	SEP #$20	;8-BIT M, 16-BIT X
	REP #$10
	RTS

	ENDP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Patch/Patch2/cursor.patch.asm b/IIGS.601.SRC/GSToolbox/Patch/Patch2/cursor.patch.asm
new file mode 100644
index 0000000..edff205
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Patch/Patch2/cursor.patch.asm
@@ -0,0 +1 @@
+****************************************************************
*			   *
*	      Cursor Patch		   *
*	  For ROM version 2.0	   *
*			   *
*			   *
* System Disk 2.1			   *
*			   *
*   SaveArea had wrong attributes.  Could cross bank boundry   *
*   but should not.			   *
*			   *
****************************************************************


****************************************************************
*			   *
*	Copyright (C) 1985-1989	   *
*	All Rights Reserved		   *
*	Apple Computer, Inc.	   *
*			   *
****************************************************************

	include 'all.macros'
	include ':::qd:QDEquates:core.globals1'

;-----------------------------------------------
;
; We start the cursor data on zero page	at the end
; of the stuff used	by the rest of quickdraw.
;
StartofZP	equ CursorSTART

UseInterrupts	equ StartofZP
IntPending	equ UseInterrupts+2

MouseY	equ IntPending+2
MouseX	equ MouseY+2

NextMouseY	equ MouseX+2
NextMouseX	equ NextMouseY+2

CurHeight	equ NextMouseX+2	; Num scan lines high of cursor
CurWidth	equ CurHeight+2	; Num WORDS wide of	cursor

CursorRect	equ CurWidth+2
CursorY1	equ CursorRect
CursorX1	equ CursorY1+2
CursorY2	equ CursorX1+2
CursorX2	equ CursorY2+2

CursorMode	equ CursorX2+2
CursorRecPtr	equ CursorMode+2

CursorPtr	equ CursorRecPtr+4
MaskPtr	equ CursorPtr+4

CursorPtr1	equ MaskPtr+4
MaskPtr1	equ CursorPtr1+4
CursorPtr2	equ MaskPtr1+4
MaskPtr2	equ CursorPtr2+4
CursorPtr3	equ MaskPtr2+4
MaskPtr3	equ CursorPtr3+4
CursorPtr4	equ MaskPtr3+4
MaskPtr4	equ CursorPtr4+4
CursorPtr5	equ MaskPtr4+4
MaskPtr5	equ CursorPtr5+4
CursorPtr6	equ MaskPtr5+4
MaskPtr6	equ CursorPtr6+4
CursorPtr7	equ MaskPtr6+4
MaskPtr7	equ CursorPtr7+4

SaveHandle	equ MaskPtr7+4

SavePtr	equ SaveHandle+4
SaveSize	equ SavePtr+4

CursorRef	equ SaveSize+2
MaskRef	equ CursorRef+4
HotSpot	equ MaskRef+4

SaveRef	equ HotSpot+4
ScreenRef	equ SaveRef+4

CursorLevel	equ ScreenRef+2
ObscureFlag	equ CursorLevel+2

StartWord	equ ObscureFlag+2

ScreenIndex	equ StartWord+2
SaveIndex	equ ScreenIndex+2
CurrentY	equ SaveIndex+2

ThisOut	equ CurrentY+2
LastOut	equ ThisOut+2
SrcRef	equ LastOut+2
DestRef	equ SrcRef+4
ThisWord	equ DestRef+4

HowManyWords	equ ThisWord+2
WordCount	equ HowManyWords+2
LineCount	equ WordCount+2
HowFarToShift	equ LineCount+2

CursorFlags	equ HowFarToShift+2
TempRect	equ CursorFlags+2
SaveRect	equ TempRect+8

ZZEndofCursor	equ SaveRect+8

Busy_M	equ $8000
Shielded_M	equ $4000
ForceU_M	equ $2000

;;; Removed 5-Aug-91 DAL -- not compatible with the flickerless cursor stuff
;	title 'UndrawCursor'
;****************************************************************
;*
;* iUndrawCursor
;*
;*
;* 4/10/90	Mensch
;*
;* Added patch to allow for cursor handle being unlocked......
;*
;*
;ROMUnDrawCursor	equ $FE41D2
;	entry ReCalcCursorPtrs
;****************************************************************
;iUndrawCursor	PROC EXPORT
;	jsr ReCalcCursorPtrs
;	jml ROMUnDrawCursor	; and recall the ROM undraw routine
;	EndP
;	
;	title 'drawCursor'
;****************************************************************
;*
;* idrawCursor
;*
;*
;* 4/10/90	Mensch
;*
;* Added patch to allow for cursor handle being unlocked......
;*
;*
;ROMDrawCursor	equ $FE40BD
;****************************************************************
;idrawCursor	PROC EXPORT
;	jsr ReCalcCursorPtrs
;	jml ROMDrawCursor	; and recall the ROM undraw routine
;	EndP
;
;ReCalcCursorPtrs	proc Export
;;
;; This routine can be called by the draw or erase routines to determine if the
;; cursor ptrs are correctly set up, this will allow us to leave the cursor image
;; unlocked once its created so that it can move whenever needed
;; NOTE: This relies on savesize being set properly...
;;
;; First determine if the handle has moved since the last time...
;	lda SavePtr
;	cmp [SaveHandle]
;	bne @DoRecalc
;	ldy #2
;	lda SavePtr+2	;24-Sep-90 DAL (This line was below instead)
;	cmp [SaveHandle],y
;****	lda SavePtr+2
;	bne @DoRecalc
;	rts	; else, the pointers are set up just fine
;@DoRecalc
;	ldy #2
;	lda [SaveHandle],y
;	sta SavePtr+2
;	lda [SaveHandle]
;	sta SavePtr
;	
;	lda SavePtr	; the first pointer	is savesize past
;	clc	; saveptr.
;	adc SaveSize
;	sta CursorPtr1
;	lda SavePtr+2
;	adc #0
;	sta CursorPtr1+2
;
;	ldx #0
;SetUpLoop	lda CursorPtr1,x
;	clc
;	adc SaveSize
;	sta CursorPtr1+4,x
;	lda CursorPtr1+2,x
;	adc #0
;	sta CursorPtr1+6,x
;	inx
;	inx
;	inx
;	inx
;	cpx #13*4	; 52, 7 sets of two	pointers
;	bcc SetUpLoop
;	rts
;	
;	EndP


;                copy cursor.patch2/fix.handle
***************************************************************
*
* FixHandle
*
* Added to Patch 22	May 87
*
* The cursor save area is the area of the screen under the
* cursor.  It is put into a buffer just	before the cursor
* is drawn.
*
* Unfortunately if the save buffer crosses a bank boundry,
* the code to write	into does not work and ends up
* trashing bytes at	the bottom of the bank the buffer
* starts in.
*
* This patch fixes the problem by working after the QDStartup
* call is complete.	 It looks on the QD	direct page for the
* handle to the save area and replaces it with a new handle
* having attributes	which do not allow it to cross a bank.
*
* 26 Feb 89	Steven Glass
*
* PHD at start.  PLD at end.
*
***************************************************************
FixHandle2	PROC EXPORT

	phd
	tdc	; assume we enter with direct page
	clc	; set to quickdraw
	adc #$100
	tcd

	pha	; space for new handle below
	pha

	pha	; get the size of the current
	pha	; handle
	pei SaveHandle+2
	pei SaveHandle
	_GetHandleSize


	pei SaveHandle+2	; dispose of the current handle
	pei SaveHandle
	_DisposeHandle

	tdc	; at this point the	space for the
	sec	; handle and the size of the
	sbc #$100	; handle are on the	stack.  Now I
	tax	; add the user id and the attributes
	lda >UserID,x
	pha

	PushWord #%1000000000010000 ; locked, no bank cross

	pha	; finally the location info which is
	pha	; ignored
	_NewHandle

	pla
	sta SaveHandle
	pla
	sta SaveHandle+2

	pha
	pha
	_GetCursorAdr
	_SetCursor

	pld

	rtl

	ENDP



	END



\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Patch/Patch2/event.asm b/IIGS.601.SRC/GSToolbox/Patch/Patch2/event.asm
new file mode 100644
index 0000000..4272666
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Patch/Patch2/event.asm
@@ -0,0 +1 @@
+**************************************************************
*
*	 Event Manager Patch
*	 for Version 2.0 of	ROM
*
*
* System Disk 2.0
*
*   Version 2.1  15	Apr 87   Steven E. Glass
*
*   EMStatus was patched to exit more quickly.
*
*
* System Disk 4.0
*
* 30 Jun 88	Steven Glass
*
* Added patch to TickCount to turn interrupts off while 
* tick was being read.
*
* Added patch to PostEvent so it could use AutoKeyLimit.
*
* Added new call SetAutoKeyLimit.
*
* 26-Sep-90	Dave Lyons
*
* Change SysDeathMgr to SysFailMgr so it builds.
*
* 3-Feb-91	Dave Lyons
*
* Changed version to $8301 to match ROM 3 for 6.0.
*
* 11-Feb-91 DAL
*
* Added dispatching of pending SysBeep2 requests to GetNextEvent
* (new patch).
*
* 24-Feb-91 DAL
*
* Call UseCoolMousePos from EMStartUp.  If there's a message #6
* in MessageCenter, we position the mouse from that now.
*
* 5-Feb-92 DAL
*
* Version $0301 for 6.0 final.
*
**************************************************************
*
* 3-Jun-92 DAL
*
* Version $8302 for 6.0.1d5 (changed UseCoolMousePos in em.asm).
*
* 2-Apr-93 DAL
*
* Version $0302 for 6.0.1.
*
**************************************************************


********************************************************
*		               *
*                Copyright (C) 1986-1993               *
*                All Rights Reserved	               *
*                Apple Computer, Inc.	               *
*		               *
********************************************************

	include 'all.macros'
	include ':::sys.equs.asm'

EMVersion	equ $0302	; current version number

; Locations in ROM
EndCall6	equ $FEFFCE
ErrOut6	equ $FEFFCE+3

EndCall2	equ $FEFFB8
ErrOut2	equ $FEFFBB


*---------------------------------------------------------------
* Constants
*---------------------------------------------------------------

True	equ $0001
False	equ $0000
EMTSNum	equ 6	;tool set num for Event Mgr
InitErr	equ $0601	;duplicate init call
ResetErr	equ $0602	;can't reset Event Mgr
ActiveErr	equ $0603	;Event Mgr not active
CodeErr	equ $0604	;illegal event code
BtnErr	equ $0605	;illegal button number
SizeErr	equ $0606	;queue size too large
MemErr	equ $0607	;not enough mem for	queue
QError	equ $0681	;fatal system error	- damaged queue
HError	equ $0682	;fatal system error	- damaged Q handle
TaskSig	equ $A55A	;signature word for	heartbeat task
KeyBufParam	equ $2B	;for ReadBParam call
ClickParam	equ $38	;     "    (change from $2E to $38, Joe Bo)
FlashParam	equ $2E	;     "    (change from $2F to $2E, Joe Bo)
MouseDown	equ 1	;event code
MouseUp	equ 2	;     "
KeyDown	equ 3	;     "
AutoKey	equ 5	;     "
Update	equ 6	;     "
Activate	equ 8	;     "
Switch	equ 9	;     "
DeskAccessory	equ 10	;     "
BUpdate	equ $0040	;bit 6 set
BActivate	equ $0100	;bit 8 set
BSwitch	equ $0200	;bit 9 set
Btn0bit	equ $0080	;used with modifiers field
Btn1bit	equ $0040	;     "
RepeatBit	equ $0800	;used with mod keys	latch
MovedBit	equ $2000	;used with BStat
MoveIntBit	equ $0002	;     "
BtnIntBit	equ $0004	;     "
JcTickCount	equ 0	;journal code
JcGetMouse	equ 1	;     "
JcButton	equ 2	;     "
JcEvent	equ 4	;     "
EvtSize	equ 16	;size of event record in bytes
EvtQSize	equ 18	;size of event record incl link field
DefaultQ	equ 20	;default queue size
MaxQ	equ 3639	;max queue size
MsgOffset	equ 2	;offset to Message field
WhenOffset	equ 6	;offset to When field
WhereOffset	equ 10	;offset to Where field
ModsOffset	equ 14	;offset to Modifiers field
EvtOffset	equ 2	;offset to event record from start of
;		;event queue element
KindOffset	equ 4	;offset to WindowKind field in window

*---------------------------------------------------------------
* Hardware Equates
*---------------------------------------------------------------

MouseMode	equ $7F8	;mouse mode byte
KeyLatch	equ $C000	;keyboard keypress latch
KbdStrobe	equ $C010	;keyboard strobe
ModLatch	equ $C025	;keyboard modifiers	latch
CardType	equ $C02D	;bit 4 specifies internal/external card

*---------------------------------------------------------------
* Event Manager Zero Page
*---------------------------------------------------------------

EMZBase	equ 0
TempEvent	equ EMZBase
UserEvtPtr	equ TempEvent+16
JResultPtr	equ UserEvtPtr+4
SaveLink	equ JResultPtr+4
TempLink	equ SaveLink+2
TempPtr	equ TempLink+2
TempBits	equ TempPtr+4
SysEventMask	equ TempBits+2	;system event mask
QHandle	equ SysEventMask+2	;handle for event queue
QPtr	equ QHandle+4	;pointer to event queue
QSize	equ QPtr+4	;max number of events in queue
QHead	equ QSize+2	;link to first queue element
QTail	equ QHead+2	;link to last queue	element
CheckButton	equ QTail+2
WhichButton	equ CheckButton+2
GotSwitchCall	equ WhichButton+2	;1 if switch event pending, 0 if not
WindowMgr	equ GotSwitchCall+2	;1 if Window Mgr init, 0 if not
RemoveEvent	equ WindowMgr+2	;flag used by GetNextEvent
OSRemoveEvent	equ RemoveEvent+2	;flag used by GetOSEvent
GotMouse	equ OSRemoveEvent+2	;1 if mouse present, 0 if not
ExtMouse	equ GotMouse+2	;1 if external mouse, 0 if not
MouseAdrs	equ ExtMouse+2	;original mouse vector
KBAdrs	equ MouseAdrs+4	;original keyboard vector
DAAdrs	equ KBAdrs+4	;original desk accesory vector
FBAdrs	equ DAAdrs+4	;original flush buffer vector
VBLAdrs	equ FBAdrs+4	;original VBL vector
KBufOn	equ VBLAdrs+4	;1 if keyboard buffering on before init
KBOn	equ KBufOn+2	;1 if keyboard interrupts on before init
VBLOn	equ KBOn+2	;1 if VBL interrupts on before init
SaveMode	equ VBLOn+2	;original mouse mode
SaveP	equ SaveMode+2	;original processor	status
ProgID	equ SaveP+2	;program ID used with mem mgr
FromGNE	equ ProgID+2	;flag used by GetOSEvent

AutoKeyLimit	equ FromGNE+2	; added 30 Jun 88 SEG
ktransRef	equ AutoKeyLimit+2	; added 1/22/89 Mensch (4 byte)
kTransFlag	equ kTransRef+4	; added 1/23/89 Mensch (2 Byte)

kTransBParamLoc	equ $5A	; battery ram parameter we use...


*---------------------------------------------------------------
* Window Manager Zero Page (used by Event Manager)
*---------------------------------------------------------------

WMZBase	equ 128
FlgActive	equ WMZBase
FlgDeActive	equ FlgActive+2
CurActive	equ FlgDeActive+2
CurDeActive	equ CurActive+4
CurDeKind	equ CurDeActive+4







**************************************************************
*
* EventCallTable2
*
**************************************************************
	EXPORT EMCallTable2
EMCallTable2	PROC
	import EMBootInit2
	import EMVersion2
	Import EMActive2
	import TickCount
	import PostEvent
	import SetAutoKeyLimit
	import getKeyTranslation
	import setKeyTranslation
	import EMStartup
	import GetNextEvent		;11-Feb-91 DAL
	import EMShutDown

Here
	DC.L (TheEnd-Here)/4 ;num calls + 1
	DC.L EMBootInit2-1
	DC.L EMStartUp-1
	DC.L EMShutDown-1	;patched 24-Feb-91 DAL
	DC.L EMVersion2-1
	DC.L 0	; EMReset-1'
	DC.L EMActive2-1
	DC.L 0	; oEndCall0-1'
	DC.L 0	; oEndCall0-1'
	DC.L 0	; DoWindows-1'
	DC.L GetNextEvent-1	;patched 11-Feb-91 DAL
	DC.L 0	; EventAvail-1'
	DC.L 0	; GetMouse-1'
	DC.L 0	; Button-1'
	DC.L 0	; StillDown-1'
	DC.L 0	; WaitMouseUp-1'
	DC.L TickCount-1
	DC.L 0	; GetDblTime-1'
	DC.L 0	; GetCaretTime-1'
	DC.L 0	; SetSwitch-1'
	DC.L PostEvent-1
	DC.L 0	; FlushEvents-1'
	DC.L 0	; GetOSEvent-1'
	DC.L 0	; OSEventAvail-1'
	DC.L 0	; SetEventMask-1'
	DC.L 0	; FakeMouse-1'
	DC.L SetAutoKeyLimit-1	; added 30 Jun 88 SEG
	DC.L GetKeyTranslation-1	; 2/7/89 {$1B06}
	DC.L SetKeyTranslation-1	; 2/7/89 {$1C06}
TheEnd
	ENDP



**************************************************************
*
* InitCalls
*
**************************************************************
	EXPORT EM2InitCalls
EM2InitCalls	PROC



;--------------------------------------------------------------
;
; EMBootInit2
;
	ENTRY EMBootInit2
EMBootInit2
	lda #0
	clc
	rtl


;--------------------------------------------------------------
;
; EMversion2
;
	ENTRY EMVersion2
EMVersion2

	lda #EMVersion


;--------------------------------------------------------------
;
; EMActive2
;
	ENTRY EMActive2
EMActive2

	sta 7,s
	bra EMBootInit2

	ENDP


;--------------------------------------------------------------
;
; GetNextEvent
;
; New patch 11-Feb-91 DAL
;
	ENTRY GetNextEvent
GetNextEvent	proc export
	import HandlePendingSysBeep2

* The stack for HandlePendingSysBeep2 must be just like at tool entry!  It checks
* the parameters.
	jsr HandlePendingSysBeep2
	jml $febed0	;original ROM 1 GetNextEvent

	ENDP



****************************************************************
*
* TickCount
*
* Change History
*
* 29 Jun 88	Steven Glass
*
* Two things were wrong here.  First the TickCnt was being 
* accessed with interrupts active and second, if journaling
* was active, the journaling code was called with the
* wrong direct page register.
*
* To fix this we switch D-reg in and call the old code after
* turning interrupts off.
*
****************************************************************
TickCount	PROC

	DefineStack
origP	byte
origD	word
RTL1	block 3
RTL2	block 3
Result	long

	phd	; save d-page
	tcd	; switch in EM's dpage
	php	; turn off interrupts
	sei
	
	pha	; call the original code
	pha	; 
	jsl ToOrigCode
	
	pla	; put result on stack
	sta Result+2,s
	pla
	sta Result+2,s
	
	plp	; restore int state
	pld	; restore d-page
	bra EMBootInit2	; share exit code
	


ToOrigCode	jsl $FEC16C
	rtl
	
	
	ENDP


****************************************************************
*
PostEvent	PROC
*
* This patch modifies PostEvent so that suto key events are only 
* posted if the number of elements in the queue is less than or
* equal to a specified limit.  The limit is set to 0 by 
* EMStartup and an application can change the limit by calling the
* new tool call SetAutoKeyLimit.
*
*
* Inputs:
*	eventCode : word
*	eventMsg  : long
*
* Outputs:
*	resultCode : word
*
* External Refs:
*	MaskTable in ROM
*	GetFreeOne in ROM
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* Change History
*
* 30 Jun 88	Steven Glass & Cheryl Ewy
*
* Patch added to allow App to set AutoKeyLimit
*
****************************************************************
	DefineStack
OrigD	word
RTL1	block 3
RTL2	block 3
TheEventMsg	long
TheEventCode	word
TheResult	word

MaskTable	equ $FEBAA6+4	; location of mask table in ROM.




	phd
	tcd
	bne Doit
	ldx #ActiveErr	;EM not active
	jml ErrOut6

Doit	lda TheEventCode,s	;get event code
	cmp #16
	bcc OK
	ldx #CodeErr	;illegal event code
	jml ErrOut6	;return the error

OK	php
	sei
	asl a
	tax
	lda >MaskTable,x	;get bit mask for code
	and <SysEventMask	;is this event enabled?
	bne CheckAutoKey	;yes - so check if auto-key event
ErrRet	lda #1	;no - so return an error
	sta TheResult+1,s
	plp
	jml EndCall6

CheckAutoKey	lda TheEventCode+1,s	;get event code
	cmp #AutoKey	;auto-key event?
	bne GetFreeOne	;no - so post it
	lda <QHead	;is the queue empty?
	beq GetFreeOne	;yes - so post the event


	lda <QHandle
	ora <QHandle+2
	bne Handle_OK
	PushWord #HError
	PushLong #0
	_SysFailMgr

Handle_OK	lda [<QHandle]	; deref Q handle.
	sta <QPtr
	ldy #2	
	lda [<QHandle],y
	sta <QPtr+2
	
	ldx #0	; count elements in queue
	ldy <QHead	; start with queue head
Loop	inx	; bump counter
	lda [<QPtr],y	; get link to next element in Q
	tay	; repeat till
	bne Loop	; none

	cpx <AutoKeyLimit
	bcs ErrRet

GetFreeOne	JML >$FEC23E	; jump back into ROM


	ENDP


****************************************************************
*
SetAutoKeyLimit	PROC
*
* Sets the AutoKeyLimit to the value passed.
*
*
* Inputs:
*	NewLimit
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* Change History
*
* 30 Jun 88	Steven Glass & Cheryl Ewy
*
* Patch added to allow App to set AutoKeyLimit
*
****************************************************************
	DefineStack
OrigD	word
RTL1	block 3
RTL2	block 3
NewLimit	word

	phd
	tcd
	bne DoIt
	ldx #ActiveErr
	jml ErrOut2

DoIt
	lda NewLimit,s
	inc a
	sta <AutoKeyLimit
	jml EndCall2


	ENDP



****************************************************************
*
EMStartup	PROC
*
* This routine calls the original EMStartup routine and then
* installs the keyboard interrupt handler
*
*
* Inputs:
*	dPageAddr : word
*	queueSize : word
*	xMinClamp : word
*	xMaxClamp : word
*	yMinClamp : word
*	yMaxClamp : word
*	userID : word
*
* Outputs:
*	none
*
* External Refs:
	import Keyboard
	import UseCoolMousePos	;24-Feb-91 DAL

*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************
	DefineStack
RTL1	block 3
RTL2	block 3
origD	word
UserID	word
yMaxClamp	word
yMinClamp	word
xMaxClamp	word
xMinClamp	word
queueSize	word
dPageAddr	word


RealEMStartup	equ $FEBB6E

	tax	; save orig value of WAP in x
	phd
	tsc
	tcd
	
	pei dPageAddr	; push all the params again
	pei queueSize
	pei xMinClamp
	pei xMaxClamp
	pei yMinClamp
	pei yMaxClamp
	pei UserID
	txa	; get wap value back
	jsl ToRealEMStartup ; call the real startup code
	pha	; save any error code
	bcs AnError

*** added 24-Feb-91 DAL
	jsl UseCoolMousePos
*** end of 24-Feb-91 DAL

;
; Initialize the keyboard here

	lda dPageAddr	; init the kTransRef and flag
	tcd
	stz kTransRef
	stz kTransRef+2
	stz kTransFlag

	pea $FFFF	; special setktrans flag
	_SetKeyTranslation	; set up keyboard translation stuff

	PushWord #$0F
	PushLong #KeyBoard	; keyboard
	_SetVector
	ldx #00

AnError
	plx	; pull off the error code returned by orig startup call
AnError2	pld	; restore the direct page
	ldy #14	; strip the inputs off the stack
	jml ToStrip


ToRealEMstartup	jsl RealEMStartup
	rtl	

	ENDP


**************************************************************
*
* EMShutDown patch -- 24-Feb-91 DAL
*
* Creates MessageCenter message #6 containing the mouse
* position.
*
**************************************************************
EMShutDown	proc
	import CreateMouseMessage	;24-Feb-91 DAL

	tax
	beq @notStarted
	pha	;save WAP for jumping to ROM
	jsl CreateMouseMessage
	pla
@notStarted	jml $febddf	;original ROM 1 EMShutDown

	EndP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Patch/Patch2/im.asm b/IIGS.601.SRC/GSToolbox/Patch/Patch2/im.asm
new file mode 100644
index 0000000..bebb61e
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Patch/Patch2/im.asm
@@ -0,0 +1 @@
+**********************************************************************
*
* Integer Math Tool Patch
*
* Copyright (C)   1989, 1992
* Apple Computer, Inc.
* All Rights Reserved.
*
**********************************************************************
*
* REVISION HISTORY
*
* xx-xxx-89
*
* This file contains the call table for the integer math routines
* Only one routine is being patched:  Long2Dec.
*
* 5-Feb-92	Dave Lyons
*
* Version $0300 for 6.0 final.
*
**********************************************************************
*
* 5-Mar-92	Dave Lyons
*
* Version $8301 for 6.0.1d2.
*
* Patch Int2Dec and Long2Dec:  If stringPtr bit 31 is set and the
* buffer length is at least 5, return zero as "zero " instead of
* blanks followed by a "0".
*
* 2-Apr-93 DAL
*
* Version $0301 for 6.0.1.
*
**********************************************************************

IntMathVersion	equ $0301

**********************************************************************
*
* CALL TABLE
*
**********************************************************************
IMCallTable	PROC EXPORT
	import Long2DecPatch,Int2DecPatch
	import IMVersion

	DC.L (TheEnd-IMCallTable)/4
	DC.L 0     ;  oEndCall0-1	;power up init
	DC.L 0     ;  oEndCall0-1	;application startup
	DC.L 0     ;  oEndCall0-1	;application shutdown
	DC.L IMVersion-1
	DC.L 0     ;  oEndCall0-1	;reset
	DC.L 0     ;  IMActive-1
	DC.L 0     ;  oEndCall0-1	;reserved
	DC.L 0     ;  oEndCall0-1	;reserved
	DC.L 0     ;  Multiply-1
	DC.L 0     ;  SDivide-1
	DC.L 0     ;  UDivide-1
	DC.L 0     ;  LongMul-1
	DC.L 0     ;  LongDiv-1
	DC.L 0     ;  FixRatio-1
	DC.L 0     ;  FixMul-1
	DC.L 0     ;  FracMul-1
	DC.L 0     ;  FixDiv-1
	DC.L 0     ;  FracDiv-1
	DC.L 0     ;  FixRound-1
	DC.L 0     ;  FracSqrt-1
	DC.L 0     ;  FracCos-1
	DC.L 0     ;  FracSin-1
	DC.L 0     ;  FixATan2-1
	DC.L 0     ;  HiWord-1
	DC.L 0     ;  LoWord-1
	DC.L 0     ;  Long2Fix-1
	DC.L 0     ;  Fix2Long-1
	DC.L 0     ;  Fix2Frac-1
	DC.L 0     ;  Frac2Fix-1
	DC.L 0     ;  Fix2X-1
	DC.L 0     ;  Frac2X-1
	DC.L 0     ;  X2Fix-1
	DC.L 0     ;  X2Frac-1
	DC.L 0     ;  Int2Hex-1
	DC.L 0     ;  Long2Hex-1
	DC.L 0     ;  Hex2Int-1
	DC.L 0     ;  Hex2Long-1
	DC.L Int2DecPatch-1		;patched 5-Mar-92 DAL
	DC.L Long2DecPatch-1
	DC.L 0     ;  Dec2Int-1
	DC.L 0     ;  Dec2Long-1
	DC.L 0     ;  HexIt-1
TheEnd
	ENDP


**********************************************************************
*
* IMVersion
*
**********************************************************************
IMVersion	proc export

	lda #IntMathVersion
	sta 7,s
	lda #0
	clc
	rtl

	EndP


**********************************************************************
*
* Int2DecPatch -- 5-Mar-92 DAL
*
* Pre-patch the ROM to return "zero " if bit 31 of the string pointer
* is set, the buffer length is at least 5, and the value is zero.
*
**********************************************************************
Int2DecPatch	proc

signFlag	equ 7
buffLen	equ 9
stringPtr	equ 11
value	equ 15	;word

	lda value,s
	bne @toROM
	lda stringPtr+2,s
	bpl @toROM
	lda buffLen,s
	cmp >theZeroStringLen
	bcc @toROM

	jsr StuffZeroString ;using stringPtr
	jml >$feff96	;no error, strip 10 bytes

@toROM	jml $fed04c	;old Int2Dec in ROM 1

*
* StuffZeroString -- needs stringPtr and buffLen buried on stack
*
	export StuffZeroString
StuffZeroString	phd
	tsc
	tcd
@buffLen	equ 13
@stringPtr	equ 15
	sep #$30
	longa off
	longi off
	lda >theZeroStringLen
	tax	;X counts backwards through source str
	dex

	ldy <@buffLen	;right-justify the "zero " in the field
	dey
@copy	lda >theZeroString,x
	sta [<@stringPtr],y
	dey
	dex
	bpl @copy

; pad dest string with blanks
	tya
	bmi @done
	lda #$20
@padBlanks	sta [<@stringPtr],y
	dey
	bpl @padBlanks
@done
	rep #$30
	longa on
	longi on
	pld
	rts

	export theZeroStringLen,theZeroString
theZeroStringLen	dc.w 5
theZeroString	dc.b 'zero '
	dc.b '****'	;space for internationalizing

	EndP


**********************************************************************
*
* Long2DecPatch -- 5-Mar-92 DAL
*
* Pre-patch the old patch to return "zero " if bit 31 of the string
* pointer is set, the buffer length is at least 5, and the value is
* zero.
*
**********************************************************************
Long2DecPatch	proc
	import Long2Dec,StuffZeroString
	import theZeroStringLen,theZeroString

signFlag	equ 7
buffLen	equ 9
stringPtr	equ 11
value	equ 15	;long

	lda value,s
	ora value+2,s
	bne @oldWay
	lda stringPtr+2,s
	bpl @oldWay
	lda buffLen,s
	cmp >theZeroStringLen  ;long enough?
	bcc @oldWay

	jsr StuffZeroString ;using stringPtr
	jml >$feffa1	;no error, strip 12 bytes

@oldWay	brl Long2Dec

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Patch/Patch2/initseg.asm b/IIGS.601.SRC/GSToolbox/Patch/Patch2/initseg.asm
new file mode 100644
index 0000000..9562353
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Patch/Patch2/initseg.asm
@@ -0,0 +1 @@
+*******************************************************************************
* InitSeg.asm
*
* (C)  Copyright Apple Computer, Inc. 1990
* All rights reserved.
*
* by Jim Mensch
* 5/16/90
*
* This file is to contain all the code that need only be run once at system startup
* this will include	several bootInit functions from some of	the tools, this should free
* up a little more memory in the system	for applications to	use.
*
* Files:
	include 'all.macros'
	include ':::sys.equs.asm'
	INCLUDE ':::qd:QDEquates:qd.data.asm'
	INCLUDE ':::qd:QDEquates:core.globals1'
	INCLUDE ':::qd:QDEquates:core.globals2'
	include 'e16.memory'
*
*
*
* Modification History:
*
* Version 1.0   	Mensch
*
* Added QDBootInit
*
* 25-Sep-90	Dave Lyons
*
* Removed check of BigMachine--the patches are unconditional now.
*
* 5-Aug-91	Dave Lyons
*
* Removed patches for DrawCursor and UnDrawCursor.  These were for
* letting the SaveHandle be unlocked, which is not implemented; patches
* were incompatible with new flickerless-cursor stuff.
*
*******************************************************************************
	Import eSetPort
	Import eSetPortLoc
	Import eSetPortRect
	Import eSetPortSize
	Import eMovePortTo
	Import eSetOrigin
	Import eHidePen
	Import eSetPenState
	Import eSetDrawMask
	Import ePenNormal
	Import eSolidPenPat
	Import eSolidBackPat
	Import eSolidPattern
	Import eSetGrafProcs
	Import RectCalls
	Import ePPToPort
	Import eScrollRect
	Import ePaintPixels
***	Import BigMachine
	Import NewRgnCode
	Import NewRectCode
	Import FrRect
	Import ThisGimmeVersion
	Import IPutRgn2
	Import IRgnOp2

****************************************************************
*
QDBootInit2	PROC EXPORT
*
* This is called when the QD patch is installed.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
	import OrigStdRgn
*	and built into PatchMacro.
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
*
* Change History
*
* 11 Dec 88	Steven Glass
*
* No longer calls InstallSlabPatches.  Instead these are installed
* in line. Change History from InstallSlabPatches follows:
*
* 05 Dec 88	Steven Glass
*
* This routine used to save the old StdPoly vector value.  
* But no one used it so I remove the save and the storage for
* the value.
*
* 08 Dec 88	STeven Glass
*
* Did patching in macro.  Added patches to XSetup, SetSlabAdr,
* RotatePat, RotateMask and ExpandMask.
*
* 11 Dec 88	Steven Glass
*
* Added DrawRect, DrawRectB, StdLine and StdRgn.
*
* 2/1/89	Mensch
*
* Added startup shadowing enable and linked in openport 
* InitPort and shutdown
*
* 3/12/89	Steven Glass
*
* Only patch some routines if machine is big.
*
* 14 Apr 89	Steven Glass
*
* Add the overhead speedup routines to the patch by 
* patching many entry points and a few internal vectors.
*
*
* 01 Jun 89	Steven Glass
*
* Patched the vectored inputs to PRgn, IRgn ... and PRect, IRect...
* This made polygons work with all patterns, not just lucky ones.
*
****************************************************************



	MACRO
&lab	PATCH &Name
	import i&Name
&lab	lda #i&Name
	sta |&Name+1
	lda #>i&Name
	sta |&Name+2
	MEND

	MACRO
&lab	StuffTable &Name,&Loc
	import &Name
&lab	lda #&Name-1
	sta >&Loc
	lda #^&Name
	sta >&Loc+2
	MEND


	export ConTable320:equ
ConTable320	equ $FE4C3B
	export ConTable640:equ
ConTable640	equ $FE503B

	phb
	pea $E0E0
	plb
	plb

	Patch StdPoly

***	lda >BigMachine	;removed 25-Sep-90 DAL
***	beql NotBig

	Patch DrawConic
	Patch XSetup
	Patch SetSlabAdr
	Patch RotatePat
	Patch RotateMask
	Patch ExpandMask
	Patch DrawRect
	Patch DrawRectB
	PATCH StdLine
	Patch StdRgn
	Patch DText
	Patch ValidChar
	Patch DChar
	Patch stdText
	Patch CalcDrawStatus

; Start 14 Apr 89 Addition
	Patch stdRect
	patch userpat2ZP
	patch portLoc2ZP
	patch GetPenPReady
	patch GetBackPReady
	patch Pen2ZP
	patch Back2ZP
	patch GetMaskReady
;;;	Patch DrawCursor	;removed 5-Aug-91 DAL
;;;	Patch UnDrawCursor	;removed 5-Aug-91 DAL
	Patch RgnBlt	;26-Mar-91 DAL

	import RectCalls

	StuffTable FrameRect,RectCalls
	StuffTable PaintRect,RectCalls+4
	StuffTable EraseRect,RectCalls+8
	StuffTable InvertRect,RectCalls+12
	StuffTable FillRect,RectCalls+16
	StuffTable SetPort,eSetPort
	StuffTable SetPortLoc,eSetPortLoc
	StuffTable SetPortRect,eSetPortRect
	StuffTable SetPortSize,eSetPortSize
	StuffTable MovePortTo,eMovePortTo
	StuffTable SetOrigin,eSetOrigin
	StuffTable HidePen,eHidePen
	StuffTable SetPenState,eSetPenState
	StuffTable SetDrawMask,eSetDrawMask	; added SEG 13 May 89
	StuffTable PenNormal,ePenNormal
	StuffTable SolidBackPat,eSolidBackPat
	StuffTable SolidPenPat,eSolidPenPat
	StuffTable SolidPattern,eSolidPattern
	StuffTable SetGrafProcs,eSetGrafProcs
; End 14 Apr 89 Addition
; Start 13 May 89 Addition
	StuffTable PPToPort,ePPToPort
	StuffTable PaintPixels,ePaintPixels
	StuffTable ScrollRect,eScrollRect
; End 13 May 89 Addition

; Start 01 Jun 89 Addition
	lda #NewRgnCode
	sta |v_FrRgn+1
	sta |v_PRgn+1
	sta |v_ERgn+1
	sta |v_IRgn+1
	sta |v_FRgn+1
	lda #>NewRgnCode
	sta |v_FrRgn+2
	sta |v_PRgn+2
	sta |v_ERgn+2
	sta |v_IRgn+2
	sta |v_FRgn+2

	lda #NewRectCode
	sta |v_PRect+1
	sta |v_ERect+1
	sta |v_IRect+1
	sta |v_FRect+1
	lda #>NewRectCode
	sta |v_PRect+2
	sta |v_ERect+2
	sta |v_IRect+2
	sta |v_FRect+2

; set v_FrRect to FrRect instead of the other place
; SEG 08 Jun 89
	lda #FrRect
	sta |v_FrRect+1
	lda #>FrRect
	sta |v_FrRect+2


*** NotBig

	PATCH SetupFontInfo
	PATCH GetFGS


	lda #ThisGimmeVersion
	sta |GimmeVersion+1
	lda #>ThisGimmeVersion
	sta |GimmeVersion+2

	lda #iPutRgn2
	sta |PutRgn+1
	lda #>iPutRgn2
	sta |PutRgn+2

	lda #iRgnOp2
	sta |RgnOp+1
	lda #>iRgnOp2
	sta |RgnOp+2

	Patch ShieldCursor


	plb

	rtl

	EndP
	End
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Patch/Patch2/install.asm b/IIGS.601.SRC/GSToolbox/Patch/Patch2/install.asm
new file mode 100644
index 0000000..8929d64
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Patch/Patch2/install.asm
@@ -0,0 +1 @@
+****************************************************************
***			 ***
***	       Install		 ***
***	     Version 5.1		 ***
***	   March 3, 1989		 ***
***			 ***
***			 ***
***  This is the install routine for the patch to ROM 2.	 ***
***			 ***
****************************************************************

****************************************************************
***			 ***
***			 ***
***            Copyright (C) Apple Computer, Inc.	 ***
***            1985-1990		 ***
***            All Rights Reserved		 ***
***			 ***
***			 ***
****************************************************************

****************************************************************
*
* Change History
*
* 31 Mar 88	Steven Glass
*
* Added code to install MiscTools patch.
*
*
* 02 Dec 88	Steven Glass
*
*
* Added SysBeep Patch to this file.
*
* Patch to SysBeep
*
* FixSysBeep.  This	routine copies the current contents of the
* sysbeep vector to	a location below and substitues the a
* address of a new routine.
*
* NewSysBeep.  The new sysbeep checks to see if system volume
* is set to 0 and if it is flashes the border instead of playing
* any sound.
*
* Code written by Steven Glass
* 5 Feb 88
*
* Change History
*
* 21 Jun 88	Steven Glass
*
* The WaitForVBL routine would wait forever if a VBL task
* kept me from reading the counters in time.  So 
* we add a timeout counter.
*
* 12 March 89	Steven Glass
*
* Put machine size into new public variable:  BigMachine.
*
* 30 Mar 89	Steven Glass
*
* Added installation of IntMath patch.
*
* 31 Mar 89	Steven Glass
*
* Save the orig bell vector and put it in a public variable.
*
* 18-Sep-90	Dave Lyons
*
* Replaced PEA $A002 with an MMStartUp call to get our ID for
* the UnloadSegNum call.  Our ID is apparently A002 or A003
* depending on whether AppleTalk is around.
*
* Added a store-zero to SchActive ($E01DDE).  This is already
* in ROM 3, but nobody bothered putting it here.  (Without this
* fix, after you crash in a scheduled task you never dispatch
* any more until you power down!  Rebooting is not enough.)
*
* 24-Sep-90	Dave Lyons
*
* Crunched code by using a table instead of a bunch of _SetTSPtrs.
*
* 25-Sep-90	Dave Lyons
*
* Removed BigMachine support--we aren't trying to support 512K
* machines anymore.
*
* 16-Oct-90	Dave Lyons
*
* Add JSL to AddTBNotifyProc (in Patch3:Locator.pch).
*
* 20-Dec-90	Dave Lyons
*
* Bring in Scheduler patch.
*
* 16-Apr-91	Dave Lyons
*
* Added JSL to AddTBRequestHandler (in Patch3:Locator.pch).
*
* 17-Sep-91	Dave Lyons
*
* Moved AddTBNotifyProc and AddTBRequestHandler to Tool.Setup.
*
* 3-Jun-92	Dave Lyons
*
* Check Battery RAM location $59; if bit 7 is set, call ROM to
* install Visit Monitor and Memory Peeker CDAs, just like ROM 3
* does.
*
*****************************************************************

	blanks off
	string asis
	datachk off

	include 'all.macros'

	include ':::sys.equs.asm'

Install	PROC

	import TLCallTable
	import MMCallTable
	import DACallTable
	import EMCallTable2
	import ADBCallTable2
	import Sane2CallTable
	import SoundCallTable
	import QDCallTable2
	import FixSysBeep
	import MTCallTable
	import TTCallTable
***	import BigMachine
	import DAHandler
	import MinRectToY1
	import IMCallTable
	import AddTBNotifyProc	;16-Oct-90 DAL
	import SchedCallTable	;20-Dec-90 DAL
	import AddTBRequestHandler	;16-Apr-91 DAL

;---------------------------------------------------
;
; Added 18-Sep-90 DAL
;
; Zero out the SchActive flag at $E01DDE.  It's
; really only a byte, but ROM 3 SchBootInit stores
; zero over a word here, so we can do the same.
;
	lda #0
	sta >$e01dde	;kill SchActive

*** added 3-Jun-92 DAL -- Install Visit Monitor & Memory Peeker if
***                       BRAM $59 bit 7 set (but $59 is not $FF)
	pha
	pea $0059
	_ReadBParam
	pla
	sep #$30
	inc a
	beq @dontInstall
	dec a
	bpl @dontInstall

	phk
	per @return-1
	pea $01C3-1	;RTL at $FF/01C3
	jml >$ffa99f
@return
@dontInstall	rep #$30
*** end 3-Jun-92

*
* Do a bunch of SetTSPtrs from a table
*
* New routine 24-Sep-90 DAL
*
	phb
	phk
	plb
	ldx #0	;index into table
@patch1tool	lda PatchTable+2,x	;flag word
	bmi @done
	phx	;keep index into table

	pha	;push flag word
	lda PatchTable,x
	pha	;push toolset number
	lda PatchTable+6,x
	pha	;push high word of FPT
	lda PatchTable+4,x
	pha	;push low word of FPT
	_SetTSPtr

	pla	;retrieve index
	clc
	adc #8
	tax
	bra @patch1tool
@done	plb

*** added 8-Dec-91 DAL -- QDBootInit will point into space, so nuke it
	lda #$0DDC-1	;$FE/0DDC is CLC, LDA #0000, RTL
	sta >QDCallTable2+4
	lda #$00FE
	sta >QDCallTable2+6
*** end 8-Dec-91
	jsl FixSysBeep


;;;	jsl AddTBNotifyProc		;16-Oct-90 DAL
;;;	jsl AddTBRequestHandler	;16-Apr-91 DAL


;---------------------------------------------------
;
; Now unload this segment of code be sure to do a jump instead
; of a jsl this way we don't have to worry about whether this code
; disappears...
;
;---------------------------------------------------

	pha	; Added 18-Sep-90 DAL
	_MMStartUp	;
	plx	;

	longa off
	sep #$20
	pla
	ply	; get the return address from the stack

***	pea $A002	; we know what our ID is!
	phx	; No we don't!  DAL 18-Sep-90

	pea $0001	; and our file num...
	pea $0001	; even our segment number...
	phy
	pha	; put the return address back...
	longa On
	rep #$20
	ldx #$0C11	; and make the unloadsegNumCall
	jml >$E10000	; and call the tool locator...

********************************************************************************
*
* PatchTable
*
* For each toolset to be patched, we have two Longs:
*
*	dc.l $000x00tt,xxxCallTable
*
* x is 1 if we need to do a "special" patch (tool 1 or 5 on ROM 3)
* tt is the toolset number toopatch
* xxxCallTable is the new call table
*
*
********************************************************************************
PatchTable	dc.l $00000001,TLCallTable
	dc.l $00000002,MMCallTable
	dc.l $00000003,MTCallTable
	dc.l $00000005,DACallTable
	dc.l $00000006,EMCallTable2
	dc.l $00000007,SchedCallTable
	dc.l $00000009,ADBCallTable2
	dc.l $0000000A,SANE2CallTable
	dc.l $0000000B,IMCallTable
	dc.l $00000008,SoundCallTable
	dc.l $00000004,QDCallTable2
	dc.l $0000000C,TTCallTable
	dc.l $ffffffff

	ENDP


*****************************************************************
*
* FixSysBeep.
*
* This routine copies the current contents of the
* sysbeep vector to	a location below and substitues the a
* address of NewSysBeep.
*
* Change History
*
* 14 Jul 88	Steven Glass
*
* No longer save orig BellVector.
*
* 31 Mar 89	Steven Glass
*
* Okay, okay.  I'll save the orig vector.
*
*****************************************************************
	EXPORT FixSysBeep
FixSysBeep	PROC Export
	import NewSysBeep
	Import OrigBellVector
	
	lda >BellVector
	sta >OrigBellVector
	lda >BellVector+2
	sta >OrigBellVector+2

	lda #NewSysBeep
	sta >BellVector+1
	lda #>NewSysBeep
	sta >BellVector+2

	rtl
	EndP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Patch/Patch2/makefile b/IIGS.601.SRC/GSToolbox/Patch/Patch2/makefile
new file mode 100644
index 0000000..a720c9e
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Patch/Patch2/makefile
@@ -0,0 +1 @@
+### Dependancies for TS2
TS2		Ä makefile	¶
	:obj:install.asm.obj	¶
	:obj:strip.asm.obj		¶
	:obj:tl.asm.obj		¶
	:::tl:tl.asm.obj		¶
	:::tl:Loading.asm.obj	¶
	:::tl:Mount.asm.obj		¶
	:::tl:TextState.asm.obj	¶
	:::tl:messageCenter.asm.obj	¶
	:::tl:msgbyname.asm.obj	¶
###	:::tl:startstop.asm.obj	¶
	::Patch3:obj:Locator.Pch.obj	¶
	:obj:desk.asm.obj		¶
	:::desk:desk.asm.obj	¶
	:::desk:cdacalls.asm.obj	¶
	:::desk:cdamenu.asm.obj	¶
	:::desk:ndacalls.asm.obj	¶
	:obj:event.asm.obj		¶
	:::events:em.asm.obj	¶
	::Patch3:obj:EventMgr.pch.obj	¶
	:obj:scheduler.pch.obj	¶
	:obj:adb.asm.obj		¶
	:obj:sane.asm.obj		¶
	:obj:im.asm.obj		¶
	:::intmath:im.asm.obj	¶
	:obj:slab.asm.obj		¶
	:::qd:objs:conics.asm.obj	¶
	:::qd:objs:lines.asm.obj	¶
	:::qd:objs:rects.asm.obj	¶
	:::qd:objs:env.asm.obj	¶
	:::qd:objs:polys.asm.obj	¶
	:::qd:objs:clipping.asm.obj	¶
	:::qd:objs:pixelmaps.asm.obj	¶
	:::qd:objs:regions.asm.obj	¶
	:::qd:objs:rgndefs.asm.obj	¶
	:::qd:objs:slabs.asm.obj	¶
	:::qd:objs:text.asm.obj	¶
	:::qd:objs:init.asm.obj	¶
	:obj:qd.asm.obj		¶
	:obj:rdf.asm.obj		¶
	:obj:cursor.patch.asm.obj	¶
	:::qd:objs:cursor.asm.obj	¶
	:obj:sound.asm.obj		¶
	:::Sound:obj:Fsynth_irq.aii.obj	¶
	:::Sound:obj:StartSound.aii.obj	¶
	:::Sound:obj:StopSound.aii.obj	¶
	:::Sound:obj:StartPlaying.aii.obj	¶
	:::Sound:obj:SetUpDOC.aii.obj		¶
	:::Sound:obj:SetGCB.aii.obj		¶
	:::Sound:obj:ServeGen.aii.obj		¶
	:obj:misc.tools.asm.obj		¶
	:::misc.tools:queue.asm.obj		¶
	:::misc.tools:converter.asm.obj	¶
	:::misc.tools:InterruptState.asm.obj	¶
	:::misc.tools:RomDataMgr.asm.obj	¶
	::Patch3:obj:Misc.tools.pch.obj	¶
	:obj:mm.asm.obj			¶
	:::mm:mm.asm.obj			¶
	:obj:text.tools.asm.obj¶
	:obj:InitSeg.asm.obj
	linkiigs ¶
		-lseg:$2000 INIT ¶
			:obj:install.asm.obj			¶
			:obj:InitSeg.asm.obj			¶
		-lseg MAIN 					¶
			:obj:strip.asm.obj				¶
			:obj:tl.asm.obj				¶
			:::tl:tl.asm.obj(TLMEMROUTINES,TLSTARTANDSTOP)	¶
			:::tl:Loading.asm.obj(SETDEFAULTTPT,UNLOADTOOLS,SETUPFORUNLOAD,CLEANUPFORUNLOAD,MAKEIDNUM)  ¶
			:::tl:Mount.asm.obj				¶
			:::tl:TextState.asm.obj			¶
			:::tl:messageCenter.asm.obj			¶
			:::tl:msgbyname.asm.obj			¶
###			:::tl:startstop.asm.obj			¶
			::Patch3:obj:Locator.pch.obj(TLVERSION) ¶
			:obj:desk.asm.obj				¶
			:::desk:desk.asm.obj(DONDAINIT,DASTARTUP,DASHUTDOWN,DAVERSION,DASTATUS,DAGETMEM,INITALL)	¶
###			:::desk:CDAMenu.asm.obj(MONKEYIN,EVNTKEYIN) ¶
			:::desk:cdacalls.asm.obj(INSTCDA,REMOVECDA,MYDEREF,GROWTABLE) ¶
			:::desk:ndacalls.asm.obj(INSTALLNDA,OPENNDA,CLOSENDA,GETNUMNDAS,ADDTORUNQ,REMOVEFROMRUNQ,STARTNDACALL,DESKUTILS,ENDNDACALL,FUTZRESIDS,SENDINIT,SENDOPEN,DOCLOSESTUFF,SENDCLOSE,DIEHORRIBLY) ¶
			:obj:event.asm.obj			¶
			:::events:em.asm.obj(KEYBOARD,SETMODBITS,EMDATA,GETKEYTRANSLATION,SETKEYTRANSLATION,USECOOLMOUSEPOS,CREATEMOUSEMESSAGE) ¶
			::Patch3:obj:EventMgr.pch.obj(HANDLEPENDINGSYSBEEP2) ¶
			:obj:scheduler.pch.obj		¶
			:obj:adb.asm.obj			¶
			:obj:sane.asm.obj			¶
			:obj:im.asm.obj			¶
			:::intmath:im.asm.obj(LONG2DEC)	¶
			:::qd:objs:polys.asm.obj(ISTDPOLY,FRPOLY,PPOLY,EPOLY,IPOLY,FPOLY,REPRGNSAVE,SAVERGNSAVE,KILLPOLYREGION,FRAMEAPOLY,POLYCHECKPENVIS,MAKEPOLYREGION) ¶
			:::qd:objs:init.asm.obj(QDSTART,NEWHANDLEGLUE,DISPOSEHANDLEGLUE) ¶
			:obj:qd.asm.obj			¶
			:obj:rdf.asm.obj			¶
			:::qd:objs:text.asm.obj(IGETFGS,GETFONTGLOBALS,GETFONTLORE,GETFL,SETUPFONTHEADPTR,ISETUPFONTINFO)  ¶
			:obj:cursor.patch.asm.obj		¶
			:::qd:objs:cursor.asm.obj(ISHIELDCURSOR,UPDATECURSOR,REFRESHCURSOR,HANDLECURSOR,CLEARSCB,CURSORSHUTDOWN) ¶
			:obj:sound.asm.obj			¶
			:::Sound:obj:StartSound.aii.obj	¶
			:::Sound:obj:StopSound.aii.obj	¶
			:::Sound:obj:StartPlaying.aii.obj	¶
			:::Sound:obj:SetUpDOC.aii.obj		¶
			:::Sound:obj:SetGCB.aii.obj		¶
			:::Sound:obj:ServeGen.aii.obj		¶
			:::Sound:obj:Fsynth_irq.aii.obj	¶
			:obj:misc.tools.asm.obj		¶
			:::misc.tools:queue.asm.obj		¶
			:::misc.tools:converter.asm.obj	¶
			:::misc.tools:InterruptState.asm.obj	¶
			:::misc.tools:RomDataMgr.asm.obj	¶
#####			::Patch3:obj:Misc.tools.pch.obj(CONVSECONDS,SYSBEEP2,UNPACKBYTES,VERSIONSTRING,WAITUNTIL,STRINGTOTEXT,SCANDEVICES,SHOWBOOTINFO) ¶
			::Patch3:obj:Misc.tools.pch.obj(COMPUTEDEFAULTFAILMSG) ¶
			:obj:mm.asm.obj			¶
			:::mm:mm.asm.obj(REALFREEMEM,SEARCHUPFAST,SEARCHDOWNFAST,GETNEXTFREE,SEARCHUP,SEARCHDOWN,STARTX,START0,STARTXTOP,SEARCHHANDLE,CHECKRECENT,GETNEXT)	¶
			:::mm:mm.asm.obj(XSEARCHFAIL,XUSERPURGE,ADDTOOOMQUEUE,DELETEFROMOOMQUEUE,GETIDOFCALLINGROUTINE)	¶
			:::mm:mm.asm.obj(MMSHUTDOWN,XPURGE,NUKEIT,BESTTOP,VERIFYHANDLE,SETHANDLEID)	¶
			:obj:text.tools.asm.obj		¶
		-lseg BIGONLY 				¶
			:::qd:objs:init.asm.obj(DOFASTSETUP,TESTGPS)	¶
			:::qd:objs:conics.asm.obj(IDRAWCONIC,OVALPENSIZE)	¶
			:::qd:objs:lines.asm.obj(ISTDLINE,GRABPENLOC,STABPENLOC,FASTRATIO)	¶
			:::qd:objs:pixelmaps.asm.obj(IRGNBLT) ¶
			:::qd:objs:rects.asm.obj(COMMONSLABSETUP,SETFIRSTDESTREF,NEXTPATSLICE,SETNEXTDESTREF,ISETSLABADR,CHECKPENVIS,GRABPENSIZE)		¶
			:::qd:objs:rects.asm.obj(FRAMERECT,PAINTRECT,ERASERECT,INVERTRECT,FILLRECT,JOINRECT,CALLRECT,GETRECT,ISTDRECT,FRRECT)			¶
			:::qd:objs:rects.asm.obj(IDRAWRECTB,FASTDRAWRECT,IXSETUP,XSETUP320,XSETUP640,SLABTABLE,FASTSLABTABLE,LEFTMASKTABLE,RIGHTMASKTABLE)	¶
			:::qd:objs:env.asm.obj(IROTATEPAT,IROTATEMASK,IEXPANDMASK,EXPANDM640,EXPANDM320)			¶
			:::qd:objs:env.asm.obj(IUSERPAT2ZP,IPORTLOC2ZP,IGETPENPREADY,IGETBACKPREADY,IPEN2ZP,IBACK2ZP,IGETMASKREADY)	¶
			:obj:slab.asm.obj			¶
			:::qd:objs:regions.asm.obj(DRAWRGN,DEREFC,GETBOUNDSC,UNLOCKC,INITUP3RGNS,INITRGNUP,IINITRGN,LINESETUP,ZEROSCANBUF,GETNEXTV,INITDATAPTR,LEFTBITMASK,RIGHTBITMASK)	¶
			:::qd:objs:rgndefs.asm.obj(RGNSAVE)	¶
			:::qd:objs:slabs.asm.obj		¶
			:::qd:objs:text.asm.obj(IDCHAR,IDTEXT,IVALIDCHAR,FASTPUTCHAR,ISTDTEXT,ICALCDRAWSTATUS,IADDEXTRAS)		¶
			:::qd:objs:clipping.asm.obj(MINRECTTOY1)	¶
		-o TS2 -t $BC -at $0000
	if {AutoDuplicate} == 1
		DuplicateIIGS -y -mac TS2 :
	End



### Dependancies for components
:obj:install.asm.obj			Ä	install.asm
	asmiigs install.asm  -o :obj:
:obj:strip.asm.obj			Ä	strip.asm
	asmiigs strip.asm  -o :obj:
:obj:tl.asm.obj			Ä	tl.asm
	asmiigs tl.asm  -o :obj:
:::tl:tl.asm.obj			Ä	:::tl:tl.asm
	directory :::tl
	asmiigs tl.asm -d RAMVersion=0
	directory ::patch:patch2
:::tl:loading.asm.obj		Ä	:::tl:loading.asm
	directory :::tl
	asmiigs loading.asm
	directory ::patch:patch2
:::tl:mount.asm.obj			Ä	:::tl:mount.asm
	directory :::tl
	asmiigs mount.asm
	directory ::patch:patch2
:::tl:textstate.asm.obj		Ä	:::tl:textstate.asm
	directory :::tl
	asmiigs textstate.asm
	directory ::patch:patch2
:::tl:MessageCenter.asm.obj		Ä	:::tl:MessageCenter.asm
	directory :::tl
	asmiigs MessageCenter.asm
	directory ::patch:patch2
:::tl:msgbyname.asm.obj		Ä	:::tl:msgbyname.asm
	directory :::tl
	asmiigs msgbyname.asm
	directory ::patch:patch2
:::tl:startstop.asm.obj		Ä	:::tl:startstop.asm
	directory :::tl
	asmiigs startstop.asm
	directory ::patch:patch2
::Patch3:obj:Locator.pch.obj	Ä	::Patch3:Locator.pch
	directory ::Patch3
	asmIIgs Locator.pch -o :obj:
	directory ::Patch2
:Obj:desk.asm.obj			Ä	desk.asm
	asmiigs desk.asm -unsafe -wi  -o :Obj:
:::desk:desk.asm.obj		Ä	:::desk:desk.asm
	directory :::desk
	Asmiigs	   desk.asm -d RAMVersion=0  -unsafe -wi
	directory ::patch:patch2
:::desk:cdacalls.asm.obj		Ä	:::desk:cdacalls.asm
	directory :::desk
	asmiigs cdacalls.asm -unsafe -wi
	directory ::patch:patch2
:::desk:cdamenu.asm.obj		Ä	:::desk:cdamenu.asm
	directory :::desk
	asmiigs cdamenu.asm -unsafe -wi
	directory ::patch:patch2
:::desk:ndacalls.asm.obj		Ä	:::desk:ndacalls.asm
	directory :::desk
	asmiigs ndacalls.asm -unsafe -wi
	directory ::patch:patch2
:obj:event.asm.obj			Ä	event.asm
	asmiigs event.asm  -o :obj:
:::events:em.asm.obj		Ä	:::events:em.asm :::events:EM.KBDStuff
	directory :::events
	asmiigs em.asm    -d MIDI=0
	directory ::patch:patch2
::Patch3:obj:EventMgr.pch.obj		Ä	::Patch3:EventMgr.pch
	asmiigs ::Patch3:EventMgr.Pch -o ::Patch3:obj:
:obj:scheduler.pch.obj		Ä	scheduler.pch
	asmiigs scheduler.pch -o :obj:
:obj:adb.asm.obj			Ä	adb.asm
	asmiigs adb.asm  -o :obj:
:obj:sane.asm.obj			Ä	sane.asm
	asmiigs sane.asm  -o :obj:
:obj:im.asm.obj			Ä	im.asm
	asmiigs im.asm  -o :obj:
:::intmath:im.asm.obj		Ä	:::intmath:im.asm
	directory :::intmath
	asmiigs im.asm
	directory ::patch:patch2
:obj:BigQDStartup.asm.obj			Ä	BigQDStartup.asm
	asmiigs BigQDStartup.asm -o :obj:
:obj:slab.asm.obj			Ä	slab.asm
	asmiigs slab.asm -o :obj:
:::qd:objs:conics.asm.obj		Ä	:::qd:conics.asm
	directory :::qd
	asmiigs conics.asm -o :objs:
	directory ::patch:patch2
:::qd:objs:lines.asm.obj		Ä	:::qd:lines.asm
	directory :::qd
	asmiigs lines.asm -o :objs:
	directory ::patch:patch2
:::qd:objs:pixelmaps.asm.obj		Ä	:::qd:lines.asm
	directory :::qd
	asmiigs pixelmaps.asm -o :objs:
	directory ::patch:patch2
:::qd:objs:rects.asm.obj		Ä	:::qd:rects.asm
	directory :::qd
	asmiigs rects.asm -o :objs:
	directory ::patch:patch2
:::qd:objs:env.asm.obj		Ä	:::qd:env.asm
	directory :::qd
	asmiigs env.asm -o :objs:  -unsafe -wi
	directory ::patch:patch2
:::qd:objs:polys.asm.obj		Ä	:::qd:polys.asm
	directory :::qd
	asmiigs polys.asm -o :objs:
	directory ::patch:patch2
:::qd:objs:clipping.asm.obj		Ä	:::qd:clipping.asm
	directory :::qd
	asmiigs clipping.asm -o :objs:
	directory ::patch:patch2
:::qd:objs:REGIONS.asm.obj		Ä	:::qd:REGIONS.asm
	directory :::qd
	asmiigs REGIONS.asm -o :objs:
	directory ::patch:patch2
:::qd:objs:rgndefs.asm.obj		Ä	:::qd:rgndefs.asm
	directory :::qd
	asmiigs rgndefs.asm -o :objs:
	directory ::patch:patch2
:::qd:objs:slabs.asm.obj		Ä	:::qd:slabs.asm
	directory :::qd
	asmiigs slabs.asm -o :objs:
	directory ::patch:patch2
:::qd:objs:cursor.asm.obj		Ä	:::qd:cursor.asm
	directory :::qd
	asmiigs cursor.asm -o :objs:    -d MIDI=0
	directory ::patch:patch2
:::qd:objs:text.asm.obj		Ä	:::qd:text.asm
	directory :::qd
	asmiigs text.asm -o :objs:
	directory ::patch:patch2
:::qd:objs:init.asm.obj		Ä	:::qd:init.asm  :::qd:fastfontcache
	directory :::qd
	asmiigs init.asm -o :objs: -unsafe -wi
	directory ::patch:patch2
:obj:qd.asm.obj			Ä	qd.asm
	asmiigs qd.asm  -unsafe -wi -o :obj:
:obj:rdf.asm.obj			Ä	rdf.asm
	asmiigs rdf.asm  -o :obj:
:obj:cursor.patch.asm.obj		Ä	cursor.patch.asm
	asmiigs cursor.patch.asm  -o :obj:
:obj:sound.asm.obj			Ä	sound.asm
	asmiigs sound.asm  -o :obj:
:::Sound:obj:fsynth_irq.aii.obj	Ä	:::Sound:fsynth_irq.aii
	directory :::sound:
	asmiigs fsynth_irq.aii -o :obj:
	directory ::patch:patch2:
:::Sound:obj:StartSound.aii.obj	Ä	:::Sound:StartSound.aii
	directory :::sound:
	asmiigs startsound.aii -o :obj:
	directory ::patch:patch2:
:::Sound:obj:StopSound.aii.obj	Ä	:::Sound:StopSound.aii
	directory :::sound:
	asmiigs StopSound.aii -o :obj:
	directory ::patch:patch2:
:::Sound:obj:StartPlaying.aii.obj	Ä	:::Sound:StartPlaying.aii
	directory :::sound:
	asmiigs StartPlaying.aii -o :obj:
	directory ::patch:patch2:
:::Sound:obj:SetUpDOC.aii.obj		Ä	:::Sound:SetUpDOC.aii
	directory :::sound:
	asmiigs SetUpDOC.aii -o :obj:
	directory ::patch:patch2:
:::Sound:obj:SetGCB.aii.obj		Ä	:::Sound:SetGCB.aii
	directory :::sound:
	asmiigs SetGCB.aii -o :obj:
	directory ::patch:patch2:
:::Sound:obj:ServeGen.aii.obj		Ä	:::Sound:ServeGen.aii
	directory :::sound:
	asmiigs ServeGen.aii -o :obj:
	directory ::patch:patch2:
:obj:misc.tools.asm.obj		Ä	misc.tools.asm
	asmiigs misc.tools.asm  -o :obj: -unsafe -wi
:::misc.tools:queue.asm.obj		Ä	:::misc.tools:queue.asm
	directory :::misc.tools
	asmiigs  queue.asm
	directory ::patch:patch2
:::misc.tools:converter.asm.obj	Ä	:::misc.tools:converter.asm
	directory :::misc.tools
	asmiigs  converter.asm -unsafe -wi
	directory ::patch:patch2
:::misc.tools:InterruptState.asm.obj	Ä	:::misc.tools:InterruptState.asm
	directory :::misc.tools
	asmiigs  InterruptState.asm
	directory ::patch:patch2
:::misc.tools:RomDataMgr.asm.obj	Ä	:::misc.tools:RomDataMgr.asm
	directory :::misc.tools
	asmiigs  RomDataMgr.asm -d Big=1 
	directory ::patch:patch2
::Patch3:obj:Misc.tools.pch.obj	Ä	::Patch3:Misc.tools.pch
	directory ::Patch3
	asmIIgs misc.tools.pch -o :obj:
	directory ::Patch2
:obj:mm.asm.obj			Ä	mm.asm
	asmiigs mm.asm   -o :obj:
:::mm:mm.asm.obj	Ä	:::mm:mm.asm
	directory :::mm
	asmiigs  mm.asm -d RAMVersion=0
	directory ::patch:patch2
:obj:text.tools.asm.obj			Ä	text.tools.asm
	asmiigs text.tools.asm   -o :obj:
:obj:InitSeg.asm.obj			Ä	InitSeg.asm
	asmiigs InitSeg.asm  -unsafe -wi  -o :obj:

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Patch/Patch2/misc.tools.asm b/IIGS.601.SRC/GSToolbox/Patch/Patch2/misc.tools.asm
new file mode 100644
index 0000000..61d73ed
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Patch/Patch2/misc.tools.asm
@@ -0,0 +1 @@
+**********************************************************************
*
* Patch to Misc.Tools
* For ROM 2.0
*
* Copyright 1985-1989
* Apple Computer, Inc.
* All Rights Reserved
*
* 31 March 88	Steven Glass
*
* The heartbeat interrupt handler needs to be patched out to prevent
* it from clearing the quarter second interrupt when it is done 
* running.
*
* 15 June 88	Harry Yee
*
* Prototype bit taken out of version number. (Version 2.1)
*
* 2? Jul 88	STeven Glass
*
* Patched GetMouseClamps so that code that does not set data bank
* can still work.
*
* 26 Jul 88	Steven Glass
*
* Patch DelHeartBeat and ClearHeartbeat to try and turn off vbl 
* interrupts (if it is safe).
*
* Patch SetVector and GetVector so that they turn interrupts off
* before doing their work.
*
* 10 Sep 88	Steven Glass
*
* Added AddToQueue and DeleteFromQueue to call table.
*
* 24 Nov 88	Steven Glass
*
* Added Interrupt State calls to call table.
*
* 13 Jan 89	Steven Glass
*
* Added entries for GetCodeResConverter, ReadMouse2 and ReadMouse in
* call table.  ReadMouse is patched to support journaling.  ReadMouse2
* just goes to the old ReadMouse address.
*
* 17 Feb 89	S Glass, H Yee
*
* Added patch for GetNewID. We now return errors. BRC #41252.
*
* 3/15/90	Mensch
*
* Add patch for ConvSeconds call. Also, add new address for GetAddr patch
* and roll version number.
*
* 9/17/90	Dave Lyons
*
* Changed version to $8302.
* Added call table entry for SysBeep2(x).
* Fixed GetVector and SetVector to not validate the vector number.
*
* 25-Sep-90	Dave Lyons
*
* Removed "BigMachine proc export" (a word of storage).
*
* 23-Oct-90	Dave Lyons
*
* Added patch entry for UnPackBytes (code is in TS3 misc tools patch).
*
* 10-Dec-90	Dave Lyons
*
* Added VersionString entry (code is in TS3 misc tools patch).
*
* 6-Jan-91	Dave Lyons
*
* Added WaitUntil entry (code is in TS3 misc tools patch).
*
* 4-Mar-91	Dave Lyons
*
* Added StringToText entry (code is in TS3 misc tools patch).
*
* 10-Mar-91	Dave Lyons
*
* Changed NewSysBeep so that if bit 0 of BRAM $5E is clear, meaning
* "give visual indication of sounds," we blink the border and allow
* the normal sound to happen.
*
* 29-Mar-91	Dave Lyons
*
* Added new calls ShowBootInfo and ScanDevices (code in Patch3:misc).
*
* 20-May-91	Dave Lyons
*
* Patched SysFailMgr to enable text page 1 shadowing and to fix bug
* where the high word of the error string pointer is not considered
* when checking for NILness.
*
* 17-Sep-91	Dave Lyons
*
* Link some stuff into Tool.Setup instead of TS2/3.  Routines moved
* are:  UnPackBytes, ConvSeconds, SysBeep2, VersionString, WaitUntil,
* StringToText, ShowBootInfo, ScanDevices.
*
* 5-Feb-92	Dave Lyons
*
* Version $0302 for 6.0 final.
*
*
**********************************************************************
*
* 12-Mar-92	Dave Lyons
*
* Version $8303 for 6.0.1.  (Changed ShowBootInfo in Patch3.)
*
* 23-Jun-92	Dave Lyons
*
* SysFailMgr: Added jsr ComputeDefaultFailMsg to Patch3.  Provides
* better default messages for certain errors.
*
* 20-Aug-92	Dave Lyons
*
* Added FPT entries for AlertMessage and DoSysPrefs.
*
* 2-Apr-93 DAL
*
* Version $0303 for 6.0.1.
*
**********************************************************************


MTVersionNumber	equ $0303	;2-Apr-93 DAL

OrigReadMouse	equ $FE9964

	include ':::sys.equs.asm'
	include 'all.macros'
	entry NewSysFail	;added 20-May-91 DAL

RomVersion	equ 2

MTCallTable	PROC	EXPORT

Here 
	DC.L (TheEnd-Here)/4 ; num calls +1
	DC.L MTInit-1	; PowerUp Initialization
	DC.L 0	; application startup
	DC.L 0	; application shutdown
	DC.L MTVer-1	; version number
	DC.L 0	; Misc. Tools Reset
	DC.L 0	; Reserved
	DC.L 0	; Reserved
	DC.L 0	; Reserved
	DC.L 0	; Write battery ram
	DC.L RdBram-1	; Read battery ram
	DC.L 0	; Write battery ram	parameter
	DC.L RdBParm-1	; Read battery ram parameter
	DC.L 0	; read clock w/ hex	format
	DC.L 0	; write clock w/ hex format
	DC.L 0	; read clock w/ ascii format
	DC.L SetVector-1	; set interrupt vector
	DC.L GetVector-1	; get interrupt vector
	DC.L SetHeart-1	; insert procedure in Heartbeat chain
	DC.L DelHeart-1	; delete procedure from heartbeat chai
	DC.L ClearHeart-1	; clear heartbeat chain
	DC.L NewSysFail-1	; system death manager (patched 20-May-91 DAL)
	DC.L GetAddr-1	;  ???
	DC.L ReadMouse-1	; Read Mouse
	DC.L 0	; initialize mouse
	DC.L 0	; set mouse mode
	DC.L 0	; home mouse position to min. clamp
	DC.L 0	; clear mouse position to 0
	DC.L 0	; set both X and Y clamps
	DC.L GetMouseClamp-1	; get both X and Y clamps
	DC.L 0	; set mouse position
	DC.L 0	; service mouse interrupt
	DC.L GetNewID-1	; get ID tag
	DC.L 0	; delete ID tag
	DC.L 0	; get ID tag status
	DC.L 0	; enable interrupt source
	DC.L 0	; Firmware entry points
	DC.L 0	; get tick counter contents
	DC.L 0	; Pack bytes
	DC.L 0  ;[ts] UnPackBytes-1	; UnPack dem dere bytes
	DC.L 0	; This routine munges strings
	DC.L 0	; returns IRQ enble	status
	DC.L 0	; set absolute device clamps
	DC.L 0	; get absolute device clamps
	DC.L 0	; system beep

	dc.L 0	; NewBasicInit	; added 07 sep 88

	DC.L AddToQueue-1		; added 10 sep 88
	DC.L DeleteFromQueue-1	; added 10 sep 88
	dc.L SetInterruptState-1	; added 24 Nov 88
	dc.L GetInterruptState-1	; added 24 Nov 88
	dc.L GetIntStateRecSize-1	; added 24 Nov 88

	dc.L OrigReadMouse-1	; ReadMouse2 Added 13 Jan 89
	dc.L GetCodeResConverter-1	; added 13 Jan 89 {$3403}
	dc.L GetRomResource-1	; added 24 Jan 89 ($3503}
	dc.L ReleaseRomResource-1	; added 24 Jan 89 {$3603}
*** 5.0.3
	dc.L 0  ;[ts] ConvSeconds-1	; added 3/14/90 {$3703}
*** 6.0
	dc.L 0  ;[ts] SysBeep2-1	; added 17-Sep-90 DAL {$3803}
	dc.L 0  ;[ts] VersionString-1	; added 10-Dec-90 DAL {$3903}
	dc.L 0  ;[ts] WaitUntil-1	; added 6-Jan-91 DAL  {$3A03}
	dc.l 0  ;[ts] StringToText-1	; added 4-Mar-91 DAL  {$3B03}
	dc.l 0  ;[ts] ShowBootInfo-1	; added 29-Mar-91 DAL {$3C03}
	dc.l 0  ;[ts] ScanDevices-1	; added 29-Mar-91 DAL {$3D03}
*** 6.0.1
	dc.l 0  ;[ts] AlertMessage-1	; added 20-Aug-92 DAL {$3E03}
	dc.l 0  ;[ts] DoSysPrefs-1	; added 20-Aug-92 DAL {$3F03}
TheEnd

	ENDP

	EJECT
*******************************************************************************
*
* Stuff from install.asm
* The following few procs have been moved here from install.asm since they must
* be used by the rest of the system and the install stuff is now going to be dumped.
* at run time
*
*******************************************************************************

OrigBellVector	proc Export
	dc.L 0
	ENDP

*****************************************************************
*
* NewSysBeep
*
* The new sysbeep routine.  This routine calls the old sysbeep
* routine if the volume is not set to zero and flashes the
* border when it is	set to zero.
*
* Inputs:  None
* Outputs: None
* all registers preserved
* Called in any native mode--mode preserved.
*
* 5/3/90	Mensch
* Added code to preserve <X><A> and <Y> since applesoft relies on this
* routine to not trash <X> (I figured I would preserve <Y> & <A> while I was at it!
*
*****************************************************************
	EXPORT NewSysBeep
NewSysBeep	PROC
	phx	; preserve <X> and <Y> & <A> inside this routine
	phy
	pha
	php	; save m and x
	sep #$30	; 8 bit mode
	longa off
	longi off

	lda >IRQ_Volume	; look at the volume
	and #$0F
	beq VolumeIsZero

*** 10-Mar-91 DAL
*** If bit 0 of BRAM $5E = 0, user wants visual indication of sounds
	lda >$e102c0+$5E
	lsr a
	bcs VolumeNotZero
	phk
	per @continue-1
	phx
	phy
	pha
	php
	bra VolumeIsZero
@continue		;fall into VolumeNotZero
*** end of 10-Mar-91 DAL

VolumeNotZero	plp	; nonzero so set carry and get out
	pla	
	ply	; restore <X> and <Y> & <A> here
	plx
	sec
	rtl
	
VolumeIsZero
	phb	; save dbr

	pea $E0E0
	plb
	plb

	lda |ClockCtl
	and #$0F
	pha	; save original border

	jsr WaitForVBL
	lda #$0F	; force white
	tsb |ClockCtl
	jsr Wait

	jsr WaitForVBL
	lda #$0F	; force black
	trb |ClockCtl
	jsr Wait

	jsr WaitForVBL
	lda #$0F	; force white
	tsb |ClockCtl
	jsr Wait

	jsr WaitForVBL
	lda #$0F	; force black
	trb |ClockCtl
	jsr Wait

	plx	; get restore color	in x
	php	; save interrupt status
	sei	; ints off
	lda #$0F	; force black
	trb |ClockCtl
	txa
	tsb |ClockCtl	; restore orig
	plp	; restore ints

	plb	; restore dbr

	plp	; restore m & x
	
	pla	
	ply	; restore <X> and <Y> & <A> here
	plx

	clc	; indicate that I handled bell
	rtl




;-------------------------------------------------
;
; WaitForVBL
;
; Inputs:  None
; Outputs: none
; Y    preserved NOT <X> (Change comment 5/3/90)
;
; Called in 8-bit mode with data bank set to $E0
; Trashes a-reg
;
; Change History
;
; 21 Jun 88	Steven Glass
;
; This routine would wait forever if a VBL task
; kept me from reading the counters in time.  So 
; we add a timeout counter.
;
; The counter assumes 18 cycles per loop
; 2.8 million cycles per second
; 60 vbls a second
;
; 2800000/60/18 Å 2600
;
; (Add 200 more for good luck)
;
WaitForVBL	rep #%00010000
	longi on
	longa off
	ldx #2800	; no more than 2800 times through loop
@wait	lda |VERTCNT
	and #$7F
	asl a
	cmp #220
	bcs @done
	dex
	bne @wait
@done	sep #%00010000
	longi off
	rts

;-------------------------------------------------
;
; Wait
;
; Little routine called in mixed native	mode to
; call the wait routine.
;
; Inputs:  none
; Outputs: none
; All registers trashed.
;
; Can be called with m or x in any state.  m & x are
; preserved.
;
Wait	php
	rep #$30
	longa on
	longi on

	lda #0
	pha
	pha
	pha
	pha
	pea $00C0
	pha
	pha
	pea $FCA8	; address of wait routine
	_FWEntry
	pla
	pla
	pla
	pla

	plp
	rts

	longa on
	longi on

	ENDP


*** BigMachine	PROC EXPORT	;removed 25-Sep-90 DAL
***	dc.w 0	; assume no!
***	ENDP

****************************************************************
*
MTVer	Proc
*
* Returns new version number
*
*
* Inputs:
*	none
*
* Outputs:
*	VersionNumber : word
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

	lda #MTVersionNumber
	sta 7,s

	lda #0
	clc
	rtl

	ENDP



****************************************************************
*
MTInit	PROC
*
* Dummy Init routine prevents real init routine from being
* called twice when this patch is installed.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
	import FixVector
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************
	lda #$6B	; init vector to rtl.
	sta MIDIInputPoll

	jsr FixVector
	
	lda #0
	clc
	rtl
	ENDP

****************************************************************
*
* NewSysFail -- ROM 01 patch for SysFailMgr (20-May-91 DAL)
*
* Two fixes to the ROM:
*   (1) enable text page 1 shadowing
*   (2) check both low and high words of error string pointer
*       for NILness
*
****************************************************************
NewSysFail	proc
	import ComputeDefaultFailMsg

	jsr ComputeDefaultFailMsg	;23-Jun-92 DAL

	lda >$e0c035
	and #$fffe
	sta >$e0c035
	clc
	lda 7,s
	ora 9,s
	jml >$fe98ff

	EndP


	title 'GetAddress'
****************************************************************
*
* Return Interrupt Status Address
*
* Input     word	     refnum
* Input     LongWord     Don't care
*
* Output    LongWord     Pointer
*
* Modification History
*
*    May 6, 1986	See 5 lines changed	below.
*
****************************************************************
GetAddr	PROC
ROMGetAddr	equ $FE9909
ROMoEndCall2	equ $FEFFB7	
ROMoEndCall6	equ $feffcd
RTL1	equ 1
RTL2	equ RTL1+3
RefNum	equ RTL2+3
Ptr	equ RefNum+2

	lda RefNum,s	; get ref #
	cmp #$00FF	; index our special address? ?
	beq GetAddrSerial	;
	jml ROMGetAddr	; 

GetAddrSerial		; 
	tax	; get param. addr
	lda >Ptbl	; abs long,x addressing SEG 6 May 86
	sta Ptr,s
	lda >Ptbl+2	; abs long,x addressing SEG 6 May 86
	sta Ptr+2,s	; missing +2 SEG 6 May 86
	jml ROMoEndCall2	; uses oEndCall SEG	6 May 86

Ptbl		; 
	DC.L $E11dd8	; status of INTFLAG	at IRQ
PtblEnd		; 

	ENDP


****************************************************************
*
RdBram	PROC
*
* Reads the page of battery RAM into the callers buffer.
*
*
* Inputs:
*	BufferPtr : Long
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* Change History
*
* 17 Jun 88	Steven Glass
*
* This routine had always called the routine which did an actual
* read of the battery RAM.  This is not necessary since the
* battery ram buffer is always correct before the read.
*
* Making this change we save the read time (1/10 second with
* interrupts off).
*
****************************************************************


OrigDir	equ 1
rtl1	equ OrigDir+2
rtl2	equ rtl1+3
buffer	equ rtl2+3

	phd	; turn stack into zp
	tsc
	tcd
	
	sep #$30	; 8 bit 'm' and 'x'
	longi off
	longa off
	
	ldx #0
	ldy #0
movloop	lda >BramBuffer,x	; data from bram buffer
	sta [buffer],y	; to user buffer
	dex
	dey
	bne movloop
	
	
	rep #$30	; 16 bit 'm' and 'x'
	longa on
	longi on
	pld
	ldy #4
	ldx #0
	jmp >ToStrip

	ENDP



****************************************************************
*
RdBParm	PROC
*
* Returns the specified byte from the battery RAM on the stack.
*
*
* Inputs:
*	ID of Parameter to read : word
*
* Outputs:
*	Parameter value : word
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* Change History
*
* 17 Jun 88	Steven Glass
*
* This routine had always called the routine which did an actual
* read of the battery RAM.  This is not necessary since the
* battery ram buffer is always correct before the read.
*
* Making this change we save the read time (1/10 second with
* interrupts off).
*
****************************************************************
	DefineStack
RTL1	block 3
RTL2	block 3
ParamID	word
ResultValue	word

	lda ParamID,s	; get parm index
	and #$00FF
	tax
	lda >BramBuffer,x	; move from BRAM buffer
	and #$00FF
	sta ResultValue,s


	ldy #2
	ldx #0
	jmp >ToStrip

	ENDP


****************************************************************
*
GetMouseClamp	PROC
*
* See included file.
*
*
* Inputs:
*	space for four words
*
* Outputs:
*	four words of mouse clamps.
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

OrigGetClamp	equ $FE9A75

;-----------------------------------------------------------
;
; This call returns the current mouse clamp values.  The call
; is patched because the code in ROM reads a softwitch without
; setting the dbr.  We make this work by setting the dbr to 0
; and calling the original code.
;
; The address of OrigGetClamp is defined in the the file
; that includes this file so that the same code can be used
; for both ROM's.
;
; Stack Definintion when we get here.
;
	DefineStack
OrigB	byte
rtl1	block 3
rtl2	block 3
word4	word
word3	word
word2	word
word1	word

	phb	; save the dbr and set dbr to 0
	pea $0000
	plb
	plb
	pha	; make the original call
	pha
	pha
	pha
	jsl ToOrigGetClamp
	tax	; save any error code


	pla	; put results of call on the stack.
	sta word4+6,s
	pla
	sta word3+4,s
	pla
	sta word2+2,s
	pla
	sta word1,s
	plb	; restore dbr

	txa	; put any error back in a-reg
		; carry still right from call.
	rtl


ToOrigGetClamp	jsl OrigGetClamp
	rtl

	ENDP

**********************************************************************
*
* Code to fix the heartbeat handler in ROM.
*
* 31 Mar 88	Steven Glass
*
* The heartbeat handler is installed every time SetHeart is called.
* This code patches SetHeart so that it calls the routine in ROM
* and then resets the VBL vector.
*
* 26 Jul 88	Steven Glass
*
* Added patches to DelHeartBeat and ClrHeartbeat.  These calls now
* call old routines in ROM and then see if it is safe to turn off
* the vbl interrupt source.
*
**********************************************************************

; from e16.misctool
vblDisable   EQU   $0003 ; Interrupt Ref Number - Parameter to IntSource




****************************************************************
*
* Set System Heartbeat Vector
*   Input     LongWord     Address
*
* Possible errors are :
*     3 = Task error     (task already in queue)
*     4 = Header error   (no signature in new task)
*     5 = Queue error    (queue got trashed - system fatal)
*     6 = Task Not Found
*
****************************************************************
	EXPORT SetHeart
SetHeart	PROC
	import FixVector
	import IRQ_Heart


OrigD	equ 1
RTL1	equ OrigD+2
RTL2	equ RTL1+3
VPtr	equ RTL2+3

	phd
	tsc	; make stack into zp
	tcd


;-----------------------------------------------------------
;
; First call the old routine in ROM.
;

	pei VPtr+2
	pei VPtr
	jsl ToOldCall

;-----------------------------------------------------------
;
; Now, replace the resulting IRQ handler with our own.
;


	jsr FixVector

	pld
	ldy #4
	lda #0
	jml ToStrip


	IF ROMVersion = 1 THEN
ToOldCall	jsl $FE9743
	ELSE
ToOldCall	jsl $FE96C9
	ENDIF

	rtl

	ENDP



****************************************************************
*
DelHeart	PROC EXPORT
*
* Deletes the specified heartbeat task from the queue by calling
* code in ROM.  Then  Checks to see if no tasks are left, if 
* all are gone, we check to see if we can turn off vbl interrupts.
*
*
*
* Inputs:
*	Pointer to Task to remove.
*
* Outputs:
*	none
*
* External Refs:
	import IRQ_Heart
	import KillIntsIfCan
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************



OrigD	equ 1
RTL1	equ OrigD+2
RTL2	equ RTL1+3
VPtr	equ RTL2+3

	phd
	tsc	; make stack into zp
	tcd


;-----------------------------------------------------------
;
; First call the old routine in ROM.
;

	pei VPtr+2
	pei VPtr
	jsl ToOldCall

;-----------------------------------------------------------
;
; Now, turn off vbl interrupts if we can.
;
	jsr KillIntsIfCan



	pld
	ldy #4
	lda #0
	jml ToStrip


	IF ROMVersion = 1 THEN
ToOldCall	jsl $FE9823
	ELSE
ToOldCall	jsl $FE97A9
	ENDIF

	rtl

	ENDP




****************************************************************
*
ClearHeart	PROC EXPORT
*
* Deletes all heartbeat tasks from the queue by calling code
* in ROM.  Then checks to see if we can turn off vbl interrupts.
*
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
	import KillIntsIfCan
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************



OrigD	equ 1
RTL1	equ OrigD+2
RTL2	equ RTL1+3
VPtr	equ RTL2+3

	phd


;-----------------------------------------------------------
;
; First call the old routine in ROM.
;

	jsl ToOldCall

;-----------------------------------------------------------
;
; Now, turn off vbl interrupts if we can.
;
	jsr KillIntsIfCan



	pld
	ldy #0
	lda #0
	jml ToStrip




	IF ROMVersion = 1 THEN
ToOldCall	jsl $FE98E0
	ELSE
ToOldCall	jsl $FE9866
	ENDIF

	rtl

	ENDP


****************************************************************
*
KillIntsIfCan	PROC
*
* This routine turns off VBL interrupts if it is safe to do so.
* It is safe to turn them off under the following conditions:
*
*   1) No heartbeat tasks are installed.
*   2) The heartbeat interrupt vector points to our interrupt
*      handler.
*   3) the mouse is not running in vbl interrupt mode.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
	import IRQ_Heart
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************
	lda >HBPtr
	ora >HBPtr+2
	bne CannotTurnOff
	
	lda >IRQ_VBL+1
	cmp #IRQ_Heart
	bne CannotTurnOff

	lda >IRQ_VBL+2
	cmp #>IRQ_Heart
	bne CannotTurnOff

	pha
	pha
	pha
	_ReadMouse
	pla
	plx
	plx
	bcs CanTurnOff
	and #%0000000000001000
	bne CannotTurnOff

CanTurnOff
	PushWord #vblDisable
	_IntSource

CannotTurnOff	rts

	ENDP


****************************************************************
*
FixVector	PROC
*
* Sets the irq vbl vector to point to our patch.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
	import IRQ_Heart
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

	php	; save IRQ enbl status
	sei	; 'cuz no interrupts for now !

	lda >NewVector
	sta >Irq_VBL
	lda >NewVector+2
	sta >IRQ_VBL+2

	plp
	rts


NewVector	jml IRQ_Heart


	ENDP

****************************************************************
*
* HeartBeat Interrupt Handler
*
* Dispatches to this handler are made in response to VBL
* interrupts.   This handler will increment the Tick Counter,
* and then each task in the heartbeat interrupt queue will
* have its counter decremented.   If a zero value results, the
* associated handler will be called.   It is the task's
* responsibility to	reset the count each time it is called.
*
* Chain looks like.....
*
* HBptr --> link address --> link address --> $0000
*           Counter	         Counter	      counter
*           Signature        Signature	      Signature
*           (code)	         (code)	      (code)
*
*
* Change History
*
* 31 March 88	Steven Glass
*
* Moved the clearing of the interrupt source from the last
* thing done to the first thing done.  This is to prevent
* this interrupt from clearing other interrupts that are
* cleared at the same address.
*
* 14 October 88	Matthew Denman
*
* Added MIDIInputPoll before each task is called, and once at the end.
* This will keep us from losing MIDI input data here, unless the task
* is longer than 280 microseconds.  If so, they must also poll MIDI
* in their task.
*
****************************************************************
	EXPORT IRQ_Heart
IRQ_Heart	PROC

;-----------------------------------------------------------
;
; Start by turning off the interrupt source.  Then we can 
; go on and run all the installed tasks.
;
;
	sta >ClrVBLint	; turn off interrupt source



	rep #$30	; off to 16 bit land
	lda >TickCnt	; increment tick counter
	inc a
	sta >TickCnt
	bne TickDone
	lda >TickCnt+2
	inc a
	sta >TickCnt+2

TickDone		; 

	rep #$30	; off to 16 bit land
	lda >HBptr	; is heart beat chain empty
	tax
	ora >HBptr+2
	beq NoChain1	; yes

	phb
	sep #$20	; 8 bit m
	lda >HBptr+2	; point at link
	pha
	plb
	rep #$20	; 16 bit m

NextHB		;       
	phx
	_MidiInputPoll	; Poll Midi before each task.
	plx

	lda |6,x	; check task signature
	cmp #$A55A
	beq QueueOK	; looks ok to me
	pea $0308	; heartbeat queue error
	pea $0000	; Heartbeat queue death message
	pea $0000
	_SysFailMgr	; off to the system	death handler

QueueOK		; 
	lda |4,x	; if cnt = 0, ignore this task
	beq NextQueue
	dec |4,x	; else decrement task counter
	bne NextQueue	; if task cnt not zero, don't execute
	phb	; save environment prior to dispatch
	phx
	phk	; here's where we come back to
	pea HBentry-1
	phb	; and here's where were going to
	clc
	txa
	adc #7
	pha
	sep #$30	; dispatch is native, 8 bit m/x
	rtl	; and this does the	dispatch

HBentry		;       

	clc	; native mode, 16 bit m/x
	xce
	rep #$30
	plx	; restore queue pointer
	plb

NextQueue		;       

	lda |0,x	; is this the last link ?
	ora |2,x
	beq NoChain	; yes
	sep #$20	; 8 bit m
	lda |2,x	; get next link addr
	pha
	rep #$20
	lda |0,x
	tax
	plb
	bra NextHB	; traverse the chain


NoChain	_MidiInputPoll	; Poll one last time just to be safe.       

	plb

NoChain1		;       

	sep #$30	; off to 8 bit land
	clc	; flag that interrupt was handled !
	rtl


	ENDP





**********************************************************************
*
* Code to fix the setvector and getvector calls in ROM.
*
* 26 Jul 88	Steven Glass
*
* Neither getvector nor setvector turn off interrupts while accessing
* the various addresses.  This is not safe since an interrupt could 
* occur.
*
**********************************************************************


****************************************************************
*
GetVector	PROC
*
* This patch turns off interrupts, calls the code in ROM and
* turns restores the interrupt state.
*
*
* Inputs:
*	space for result	: long
*	id	: word
*
* Outputs:
*	vector value	: long
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************
;*** Old GetVector patch replaced 17-Sep-90 DAL because we want
;*** to omit the vector number range-check and be like ROM 3.
;	DefineStack
;OrigD	word
;RTL1	block 3
;RTL2	block 3
;VectorID	word
;ResultSpace	long
;
;	phd
;	tsc
;	tcd
;
;	php
;	sei
;
;	pha
;	pha
;	pei VectorID
;	jsl ToOldCall
;	tax
;
;	pla
;	sta ResultSpace
;	pla
;	sta ResultSpace+2
;
;	plp
;	pld
;
;	ldy #2
;	jml ToStrip
;
;	IF ROMVersion = 1 THEN
;ToOldCall	jsl $FE971E
;	ELSE
;ToOldCall	jsl $FE96A4
;	ENDIF
;
;	rtl

RTL1	equ 1
RTL2	equ RTL1+3
RefNum	equ RTL2+3
Result	equ RefNum+2
ROMoEndCall2	equ $FEFFB7	

	lda RefNum,s	;get reference
	and #$00FF	;mask excess

	asl a	;and make index
	asl a
	tax

	php
	sei

	lda >Dispatch1+1,x
	sta Result+1,s
	lda >Dispatch1+3,x
	and #$00FF
	sta Result+2+1,s

	plp
	jmp ROMoEndCall2

	ENDP




****************************************************************
*
SetVector	PROC
*
* This patch turns off interrupts, calls the code in ROM and
* turns restores the interrupt state.
*
*
* Inputs:
*	NewAddress	: long
*	id	: word
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************
;*** Old SetVector patch replaced 17-Sep-90 DAL because we want to
;*** omit the vector number range-check and be like ROM 3.
;	DefineStack
;OrigD	word
;RTL1	block 3
;RTL2	block 3
;VectorID	word
;NewAddress	long
;
;	phd
;	tsc
;	tcd
;
;	php
;	sei
;
;	pei NewAddress+2
;	pei NewAddress
;	pei VectorID
;	jsl ToOldCall
;	tax
;
;	plp
;	pld
;
;	ldy #6
;	jml ToStrip
;
;	IF ROMVersion = 1 THEN
;ToOldCall	jsl $FE96F6
;	ELSE
;ToOldCall	jsl $FE967C
;	ENDIF
;
;	rtl

RTL1	equ 1
RTL2	equ RTL1+3
NewAdr	equ RTL2+3
RefNum	equ NewAdr+4

ROMoEndCall6	equ $feffcd

	lda RefNum,s	;get reference
	and #$00FF	;mask excess

	asl a	;and make index
	asl a
	tax

	php
	sei

	lda NewAdr-1+1,s	;get vector addr 0-7
	and #$FF00	;patch 'JML' opcode	in low byte
	ora #$005C
	sta >Dispatch1,x
	lda NewAdr+1+1,s
	sta >Dispatch1+2,x

	plp
	jmp ROMoEndCall6

	ENDP



	EJECT
*******************************************************************************
*
ReadMouse	PROC
*
* This call is patched so it can check for journaling.
*
* Inputs:
*
*	word space
*	word space
*	word space
*
* Outputs:
*
*	word X Position
*	word Y Position
*	word Status and Mode
*
*
* External Refs:
	Import AltTRdMouse
*
*******************************************************************************
*
	longa on
	longi on

;
; stack structure
;
DBreg	equ 1
Preg	equ DBreg+1
RTL1	equ Preg+1
RTL2	equ RTL1+3
StatMode	equ RTL2+3
YPos	equ StatMode+2
XPos	equ YPos+2
;
	php	;save interrupt status
	sei	;disable interrupt
	phb	;save data bank

;
; First, check the journaling flag, if its zero, then simply call ReadMouse direct
; and go no further.
	lda >JournalFlag
	bne ItGetsTricky

OldWay
	plb
	plp
	jml OrigReadMouse


;
; Next, check to see if the event manager is active, if it is, then we can continue,
; if it isn't well, just exit...
ItGetsTricky
	pha	; room for result
	_EMStatus
	pla
	beq OldWay

;
; Finally, Look and see whose calling.  If it is the event manager, then we don't
; really want to journal.
;
	lda RTL2+2
	and #$00FF
	cmp #$00FE
	beq OldWay

; If we get this far, we know that the event manager is active and that journaling is turned on.

	pha	; call the real read mouse to get the current mouse data
	pha
	pha
	_ReadMouse2

	pla	; get the current mouse data from the call
	ply
	plx
	sta StatMode,s	; and save them into our record
	tya
	sta yPos,s	; on the stack for journaling to use.
	txa
	sta xPos,s
;
; Now that our result is set properly, we must call the journaling routine so that it will save
; these new bytes for us. Or load in whatever it should be for playback
; First create the address of our data on the stack so we can pass it
	tsc	; get the current stack pointer
	clc
	adc #StatMode	; add in the proper offset
	tax	; and save it in <X> for later

	lda >JournalFlag	; first push the flag on the stack
	pha
	pea $0006	; journal code for ReadMouse (Also the data size...hmmm...)
	pea $0000	; now push the address of our data, (its on the stack...)
	phx	; push low word of data buffer
	jsl JournalPtr	; and call the journaling routine
;
; Journaling is all finished, and so should we be... so simply exit

	plb	;restore data bank
	plp	;restore interrupt state during entry
	jml oEndCall0	;exit tool with good MouseRead

	EndP



	title 'ID Tag Manager'
*********************************************************************
*
* This tool is used	to insert, delete and inquire status
* regarding an ID tag.  The ID tag is used to mark segments
* as belonging to a	specific application.
*
* GetNewID
*     Input     Word     Space for result
*     Input     Word     ID tag (Type and Aux)
*     Output    Word     ID tag (Full tag returned)
*
* DeleteID
*     Input     Word     ID tag (Type and Main)
*
* StatusID
*     Input     Word     ID tag (Type and Main)
*
* ID tag structure is shown below.....
*  ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___
* |   |   |   |   |	  |   |   |   |   |	  |   |   |   |   |	  |   |
* | F | E | D | C |	B | A | 9 | 8 | 7 |	6 | 5 | 4 | 3 | 2 |	1 | 0 |
* |___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|
*   |___|___|___|	|___|___|___|   |___|___|___|___|___|___|___|
*   |	|               |
*   Type Field	Aux ID Field    Main ID Field
*
*  Type = 0  Memory	Manager
*         1  Application
*         2  Controlling Program (Finder, Shell, etc.)
*         3  ProDOS
*         4  Tool Kits..................Not managed here.
*         5  Desk Accessories
*         6  Run Time Libraries
*         7  System	loader..............Not managed here
*         8  Firmware / System Function
*         9  Tool Locator...............Not managed here.
*         A  Setup File
*         B  Undefined
*         C  Undefined
*         D  Undefined
*         E  Undefined
*         F  Undefined
*
* Change History
*
* 13 Nov 88	Steven Glass
*
* No longer manage ID 4000, 7000 or 9000. (These are used
* throughout the system without anyone reserving them, so we
* return error when someone tries to reserve them).
*
* Also removed unnecessary HLock and HUnlock calls.
*
* 17 Feb 89	Glass and Yee
*
* Added to patch. Also removed equate for "bounds". Was not being 
* used anywhere. Defined BadInputErr also defined in Misc.Tools:misc.tools.asm.
*
*********************************************************************
GetNewID	PROC
	longa on
	longi on

taglist	equ 1
size	equ taglist+4
SrchTag	equ size+2
SrchCnt	equ SrchTag+2
OrigDBR	equ SrchCnt+2
OrigDir	equ OrigDBR+1
rtl1	equ OrigDir+2
rtl2	equ rtl1+3
UserTag	equ rtl2+3
IDTag	equ UserTag+2

BadInputErr	equ $0301

	DefineStack
s_Rtl1	block 3
s_Rtl2	block 3
s_UserTag	word
s_result	word

	lda s_UserTag,s
	and #$F000
	cmp #$4000
	beq NoCanDo

	cmp #$7000
	beq NoCanDo

	cmp #$9000
	bne CanDo

NoCanDo	ldx #BadInputErr
	jml oErrOut2


RealGetNewID 	equ $FE9D52

CanDo	jml RealGetNewID

	ENDP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Patch/Patch2/mm.asm b/IIGS.601.SRC/GSToolbox/Patch/Patch2/mm.asm
new file mode 100644
index 0000000..8b5cdb9
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Patch/Patch2/mm.asm
@@ -0,0 +1 @@
+****************************************************************
***			 ***
***          Memory	Manager Patch		 ***
***          For ROM 2.0		 ***
***          (C) Copyright Apple Computer, Inc. 1985-1989	 ***
***          All Rights Reserved		 ***
***			 ***
*** Version 1.0 in ROM		 ***
***			 ***
*** Version 1.1  (System Disk 1.0)		 ***
***    September 4,	1986		 ***
***    Rich Williams		 ***
***			 ***
***    1.  Adds automactic purging		 ***
***    2.  Fixes problem with ownership	of blocks of	 ***
***        handles.			 ***
***			 ***
*** Version 1.2  (System Disk 1.1)		 ***
***    November 14,	1986		 ***
***    Rich Williams		 ***
***			 ***
***    1.  Purging is more intelligent when a fixed	 ***
***        handle must be allocated in special memory	 ***
***			 ***
***			 ***
*** System Disk 2.0			 ***
***			 ***
***    No changes.			 ***
***			 ***
*** System Disk 2.1	(3.0)		 ***
***			 ***
***    No changes			 ***
***			 ***
*** System Disk 3.1			 ***
***			 ***
***    No changes			 ***
***			 ***
*** System Disk 3.1.1		 ***
***			 ***
***    Added call:	RealFreeMem ($2F)		 ***
***			 ***
***			 ***
*** System Disk 3.2 (Version 2.2)		 ***
***			 ***
***    Fixed bug in RealFreeMem		 ***
***			 ***
***    15 Jun 88	Harry Yee		 ***
***			 ***
***    Prototype bit taken out of version number.	 ***
***			 ***
***
*** System Disk 4.1 (Version 2.3)
***
*** 01 Dec 88	Steven Glass
***
*** Major reorganization of code.  We now share where
*** ever possible with the ROM source.
***
*** Added patches to system to speed up Searching.  These
*** included patches to DisposeHandle, DisposeAll, PurgeHandle
*** PurgeAll and SetHandleSize so that the fast stuff
*** works.
***
*** Changed purgeall to work with 0 ID.
***
*** Changed DisposeAll to check calling routine to make
*** sure that it did not dispose of itself.
***
***
*** 08 Jan 89	Steven Glass
***
*** Changed bootinit and reset to zero the FirstOOMPtr
*** clearing the OOMQueue.
***
*** 30 Mar 89	Steven Glass
***
*** Added code to MMPatcher routine to restore the BellVector
*** which was saved in the original install routine.
***
*** 11/13/89	Mensch
*** Fixed dispose handle to use the new verify routine to catch
*** more bad handles
***
*** 07 Aug 90	Yee
*** Change to final version number for 5.0.3, v3.1.
*
* 22-Jan-91	Dave Lyons
*
* Add new call $3002 SetHandleID.  Changed MMVersion to $8302.
*
* 12-Jun-91	Dave Lyons
*
* Added check in DisposeHandle to disallow disposing the first handle.
* This would be very bad.  Now returns error $0206.
*
* 14-Sep-91	Dave Lyons
*
* No change to this file, but fixed a bug in CheckRecent in
* mm:mm.asm, which is linked into these patches.
*
* 21-Nov-91	Dave Lyons
*
* DisposeHandle on first handle now returns error 0 for
* compatibility.
*
* 31-Jan-92	Dave Lyons
*
* Made NewMMPatcher disable interrupts and fix the ToBramSetup vector
* ($e10094).
*
* 5-Feb-92	Dave Lyons
*
* Version $0302 for 6.0 final.
*
****************************************************************
	title 'Memory Manager Patches'


	include 'all.macros'

MMVersionNum	equ $0302

SHSReturn	equ $FF076A

	INCLUDE ':::mm:mm.equates.asm'

BellVector	equ DecBusyFlg+4


	Title 'Call Table'
****************************************************************
*
MMCallTable	PROC EXPORT
*
* References to all calls that are patched.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
	IMPORT MMBootInit
	IMPORT MMVersion
	IMPORT RealFreeMem
	import MMReset
	import AddToOOMQueue
	import DeleteFromOOMQueue
	import DisposeHandle
	import DisposeAll
	import PurgeHandle
	import PurgeAll
	import SetHandleSize
	import MMShutdown
	import SetHandleID	;22-Jan-91 DAL

*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


	DC.L (TableEnd-mmCallTable)/4 ; # entries + 1

	DC.L MMBootInit-1	;01 Boot time call
	DC.L 0	;               i4'MMStartup-1'        ;02 Application init	call
	DC.L MMShutdown-1   ;03 App quit
	DC.L MMVersion-1	;04 Version #
	DC.L MMReset-1		;05 Reset call
	DC.L 0	;               i4'MMStatus-1'         ;06 Active status
	DC.L 0	;               i4'NotImp-1'
	DC.L 0	;               i4'NotImp-1'

	DC.L 0	;               i4'NewHandle-1'        ;09 NewHandle
	DC.L 0	;               i4'ReallocHandle-1'    ;0A ReallocHandle
	DC.L 0	;               i4'RestoreHandle-1'    ;0B RestoreHandle
	DC.L AddToOOMQueue-1
	DC.L DeleteFromOOMQueue-1
	DC.L 0	;               i4'NotImp-1'
	DC.L 0	;               i4'NotImp-1'

	DC.L DisposeHandle-1		;10 DisposHandle
	DC.L DisposeAll-1		;11 DisposAll
	DC.L PurgeHandle-1		;12 PurgeHandle
	DC.L PurgeAll-1		;13 PurgeAll
	DC.L 0	;               i4'NotImp-1'
	DC.L 0	;               i4'NotImp-1'
	DC.L 0	;               i4'NotImp-1'
	DC.L 0	;               i4'NotImp-1'

	DC.L 0	;               i4'GetHandleSize-1'    ;18 GetHandleSize
	DC.L SetHandleSize-1	; 19 SetHandleSize
	DC.L 0	;               i4'FindHandle-1'       ;1A FindHandle
	DC.L 0	;               i4'FreeMem-1'          ;1B FreeMem
	DC.L 0	;               i4'MaxBlock-1'         ;1C MaxBlock
	DC.L 0	;               i4'TotalMem-1'         ;1D TotalMem
	DC.L 0	;               i4'CheckHandle-1'      ;1E CheckHandle
	DC.L 0	;               i4'CompactMem-1'       ;1F CompactMem

	DC.L 0	;               i4'HLock-1'            ;20 HLock
	DC.L 0	;               i4'HLockAll-1'         ;21 HLockAll
	DC.L 0	;               i4'HUnlock-1'          ;22 HUnlock
	DC.L 0	;               i4'HUnlockAll-1'       ;23 HUnlockAll
	DC.L 0	;               i4'SetPurge-1'         ;24 SetPurge
	DC.L 0	;               i4'SetPurgeAll-1'      ;25 SetPurgeAll
	DC.L 0	;               i4'NotImp-1'           ;26 DeRef
	DC.L 0	;               i4'NotImp-1'

	DC.L 0	;               i4'PtrToHand-1'        ;28 PtrToHand
	DC.L 0	;               i4'HandToPtr-1'        ;29 HandToPtr
	DC.L 0	;               i4'HandToHand-1'       ;2A HandToHand
	DC.L 0	;               i4'BlockMove-1'        ;2B BlockMove
	DC.L 0	;               i4'NotImp-1'
	DC.L 0	;               i4'NotImp-1'
	DC.L 0	;               i4'NotImp-1'
	DC.L RealFreeMem-1	;2F RealFreeMem
	dc.l SetHandleID-1	;30 SetHandleID 22-Jan-91 DAL

TableEnd		;


	ENDP



****************************************************************
*
MMBootInit	PROC
*
* This is called when the patche is installed.  We patch
* six memory manager vectors at this time.
*
* These vectors are reset to their original state
* by the routine MMPatcher (also a vector) so that the
* patch does not try to run after the machine is 
* rebooted.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
	import NewSearch
	import OrigLink
	import NewLink
	import XUserPurge
	import XSearchFail
	import XPurge

	import OrigBellVector
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
*
* Change History
*
* 08 Jan 89	Steven Glass
*
* Also zeroed the FirstOOMPtr so that reboot clears the OOM
* queue.
*
****************************************************************

	import ClearRecent



	phb
	pea $E1E1
	plb
	plb

	jsr ClearRecent

;
; Clear the OOM queue.
;
	stz |FirstOOMPtr
	stz |FirstOOMPtr+2


	lda |Search+1
	cmp #NewSearch
	bne @Continue
	brl DoNothing
@Continue


; Save the search vector
	lda |Search
	sta >OrigSearch
	lda |Search+2
	sta >OrigSearch+2

; Set the new search vector
	lda #NewSearch
	sta |Search+1
	lda #>NewSearch
	sta |Search+2


; Set the MMPatcher vector
	lda |MMPatcher
	sta >OrigMMPatcher
	lda |MMPatcher+2
	sta >OrigMMPatcher+2

; Set the new MMPatcher vector
	lda #NewMMPatcher
	sta |MMPatcher+1
	lda #>NewMMPatcher
	sta |MMPatcher+2

; Save the Link vector
	lda |Link
	sta >OrigLink
	lda |Link+2
	sta >OrigLink+2

; Set the new Link vector
	lda #NewLink
	sta |Link+1
	lda #>NewLink
	sta |Link+2

; Save the UserPurge vector
	lda |UserPurge
	sta >OrigUserPurge
	lda |UserPurge+2
	sta >OrigUserPurge+2

; Set the new UserPurge vector
	lda #XUserPurge
	sta |UserPurge+1
	lda #>XUserPurge
	sta |UserPurge+2

; Save the SearchFail vector
	lda |SearchFail
	sta >OrigSearchFail
	lda |SearchFail+2
	sta >OrigSearchFail+2

; Set the new SearchFail vector
	lda #XSearchFail
	sta |SearchFail+1
	lda #>XSearchFail
	sta |SearchFail+2

; Save the old purge vector
	lda |Purge
	sta >OrigPurge
	lda |Purge+2
	sta >OrigPurge+2

; Set the new PurgeVector
	lda #XPurge
	sta |Purge+1
	lda #>XPurge
	sta |Purge+2



DoNothing
	plb
	rtl

NewMMPatcher
	phb
	pea $E1E1
	plb
	plb

	php	;added 31-Jan-92 DAL
	sei	;added 31-Jan-92 DAL

	lda >OrigSearch
	sta |Search
	lda >OrigSearch+2
	sta |Search+2

	lda >OrigMMPatcher
	sta |MMPatcher
	lda >OrigMMPatcher+2
	sta |MMPatcher+2

	lda >OrigLink
	sta |Link
	lda >OrigLink+2
	sta |Link+2

	lda >OrigSearchFail
	sta |SearchFail
	lda >OrigSearchFail+2
	sta |SearchFail+2

	lda >OrigUserPurge
	sta |UserPurge
	lda >OrigUserPurge+2
	sta |UserPurge+2

	lda >OrigPurge
	sta |Purge
	lda >OrigPurge+2
	sta |Purge+2

	lda >OrigBellVector
	sta BellVector
	lda >OrigBellVector+2
	sta BellVector+2

*** added 31-Jan-92 DAL -- fix the ToBramSetup vector ($e10094)
	lda #$ffb6	;high word of jmp >$ffb6f4
	sta |$0094+2
	lda #$f45c	;low word of jmp >$ffb6f4
	sta |$0094

	plp	;restore interrupts
*** end 31-Jan-92

	plb
	rtl





OrigSearch	ds.b 4
OrigMMPatcher	ds.b 4
OrigSearchFail	ds.b 4
OrigUserPurge	ds.b 4
OrigPurge	ds.b 4


	ENDP



****************************************************************
*
MMVersion	PROC
*
* Returns the version number of the patched memory manager.
*
*
* Inputs:
*	none
*
* Outputs:
*	version number
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

	lda #MMVersionNum
	sta 7,s
	lda #0	;No error
	clc
	rtl

	ENDP


****************************************************************
*
MMReset	PROC
*
* Clears the recent handles and jumps back into rom.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
	import ClearRecent
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* Change History
*
* 08 Jan 89	Steven Glass
*
* Also zeroed the FirstOOMPtr so that reset clears the OOM
* queue.
*
****************************************************************


RealReset	equ $FF04F1

	jsl Link
	jsr ClearRecent
;
; Clear the OOM queue.
;
	stz |FirstOOMPtr
	stz |FirstOOMPtr+2

	jml RealReset

	ENDP



****************************************************************
*
NewLink	PROC
*
* Jumps back into rom unless one of the new calls
* is made (AddToOOMQueue and deleteFromOOMQueue).
*
* For these it does the right link.
*
*
* Inputs:
*	x-reg
*
* Outputs:
*	x-reg, stack and direct page
*
* External Refs:
*	none
*
* Entry Points:
	ENTRY OrigLink
*
	longa on	; mode
	longi on
*
****************************************************************

RealLink2	equ $FF01A7

	cpx #$0C02
	beq MakeAdjustment
	cpx #$0D02
	beq MakeAdjustment

OrigLink	ds.b 4


MakeAdjustment
	txa
	xba

	sep #$30
	longa off
	longi off

	and #$FF	; why is this here?
	tax
	lda #$E1
	pha
	lda #$04
	jml RealLink2

	longa on
	longi on

	ENDP



****************************************************************
*
NewSearch	PROC
*
* This is the entry point into the fast new search routines.
* Instead of jumping off to the old routines, this routine
* trys to use the fast method first.
*
* The original SearchPatch is also included here.  This
* is to patch a bug in SetHandleSize which did not 
* re-dereference the handle after searching for memory.
*
*
* Inputs:
*	direct page
*
* Outputs:
*	carry
*	direct page
*
* External Refs:
	import SearchUp
	import SearchDownFast
	import SearchHandle
*
* Entry Points:
	Export XSearch
*
	longa on	; mode
	longi on
*
****************************************************************


	jsl XSearch

	php
	lda 2,s
	cmp #<SHSReturn-1
	bne NoExtraFix
	lda 3,s
	cmp #>SHSReturn
	bne NoExtraFix

	lda [hndl]	; deref handle again
	sta parms	; (it might have moved)
	ldy #2
	lda [hndl],y
	sta parms+2

NoExtraFix	plp
	rtl

XSearch
	lda attr	;Check the attributes
	bit #attr_addr	;User's address?
	beq NotAddr	;Br if not
	ora #attr_fixed+attr_bank ;Force these
	sta attr

NotAddr	bit #attr_fixed	;Movable block?
	bne KeepLooking
	jmp SearchDownFast	;If not fixed, do top down
KeepLooking	bit #attr_handle	;Allocating a handle
	bne MustBeHandle
	jmp SearchUp

MustBehandle	jmp SearchHandle

	ENDP



****************************************************************
*
DisposeHandle	PROC
*
* Patch the rom to make sure that handle being disposed is
* not the last one allocated.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
	import CheckRecent
	import VerifyHandle
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


RealDisposeHandle	equ $FF05FF

*** 12-Jun-91 DAL -- disposing the very first handle is very bad!
;;MemList	equ $E11600	;List of used segments
	lda 7,s
	cmp >MemList
	bne @notFirstHandle
	lda 9,s
	cmp >MemList+2
	bne @notFirstHandle

;;;	ldx #$0206	;bad handle error
	ldx #0	;no error (21-Nov-91 DAL)
	ldy #4
	jml $e10184	;ToStrip (4 bytes)

@notFirstHandle
*** end of 12-Jun-91 DAL

	jsl Link
;
; mensch 11/13/89
; Fix BRC#53386 Disposehandle bug. Add the call to verifyHandle...
;

	jsr VerifyHandle	; added to insure that the passed handle is OK.
	jsr CheckRecent
	jml RealDisposeHandle

	ENDP


****************************************************************
*
DisposeAll	PROC
*
* Patch to ROM to clear all the last allocated handles.
*
* This patch also looks back at the calling routine to 
* see if its ID is the same as the ID being disposed of.
* If it is... shame shame.
*
*
* Inputs:
*	UserID
*
* Outputs:
*	none
*
* External Refs:
	import GetIDOfCallingRoutine
*
* Entry Points:
	export ClearRecent
*
	longa on	; mode
	longi on
*
*
* Change History
*
* 06 Jun 89	Steven Glass
*
* Do not return error if cannot dispose, just return!  This matches
* last minute change in ROM too.
*
****************************************************************

RealDisposeAll	equ $FF0610

	jsl Link
	jsr ClearRecent
	jsr GetIDOfCallingRoutine

	cmp parms
	beq BadID

	jml RealDisposeAll

BadID	stz error
	jml CleanUp


ClearRecent	stz |LastLowHandle
	stz |LastLowHandle+2
	stz |LastHighHandle
	stz |LastHighHandle+2
	rts

	ENDP


****************************************************************
*
PurgeHandle	PROC
*
* Patch to ROM to check if the purged handle is the same
* as the last allocated handle.
*
*
* Inputs:
*	handle to purge
*
* Outputs:
*	none
*
* External Refs:
	import CheckRecent
	import VerifyHandle
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


RealPurgeHandle	equ $FF063C

	jsl Link
;
; 11/13/89 Mensch Added call to verify the handle first, just cause I could!
;
	jsr VerifyHandle
	jsr CheckRecent
	jml RealPurgeHandle

	ENDP


****************************************************************
*
PurgeAll	PROC
*
* Patch to ROM to make clear the recent handles if we
* are purging.
*
* This routine also allows a user ID of zero to be passed.
*
* Inputs:
*	user id
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


JoinRealMakeID	equ $FF08AE
MakeIDReturn	equ $FF064D

	jsl Link
	jsr ClearRecent
	lda parms
	sta owner
	pea |MakeIDReturn-1

	jml JoinRealMakeID

	ENDP

****************************************************************
*
SetHandleSize	PROC
*
* Patch to make sure that handles being set to size zero
* are removed from the recent list.
*
*
* Inputs:
*	Size
*	Handle
*
* Outputs:
*	none
*
* External Refs:
	import CheckRecent
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


RealSetHandleSize	equ $FF069C

	jsl Link
	lda parms+4
	ora parms+6
	bne NotZero

	lda parmhndl
	sta hndl
	lda parmhndl+2
	sta hndl+2
	jsr CheckRecent

NotZero	jml RealSetHandleSize

	ENDP


	END

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Patch/Patch2/qd.asm b/IIGS.601.SRC/GSToolbox/Patch/Patch2/qd.asm
new file mode 100644
index 0000000..2ad1e40
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Patch/Patch2/qd.asm
@@ -0,0 +1 @@
+	title 'QD Slab Patch        GS ROM 2 Patch'
****************************************************************
*
*              Patches to QD for ROM 2
*
* Copyright 1987-1992 Apple Computer, Inc.
* All Rights Reserved
*
****************************************************************
*
* System Disk 2.0
*
* 09 May 87     Steven Glass
*
* 2/24/89	Mensch
* Added fastfont load to startup
*
* 14 Apr 89	STeven Glass
*
* A number of additions were made to make the overhead speed
* ups work in the PATCH.  Additional code was added to the
* startup routine patch as well as InitPort and OpenPort.
*
* A number of routines were patched for the first time.
* Many of these routines dirty some bits on direct page and
* jump back into rom.
*
* The other routines that take advantage of or set clear
* the dirty bits, are from the rom source and are linked in.
*
* 13 May 89	Steven Glass
*
* Added code to hit dirty bits on PPToPort, PaintPixels and
* ScrollRect.
*
* Added code to install the patch to SetDrawMask.  This was inadvertantly
* left out last time.
*
* 31 May 89	Mensch
*
* OrigSetGrafProcs had wrong address. (This caused printing not
* to work on old ROMs)
*
* 01 Jun 89	Steven Glass
*
* Patched 10 internal vectors used by polygons and other routines.
*
* 12/5/89	Mensch
* Patched the shutdown routine so that it frees up shadowed memory
*
* 24-Sep-90	Dave Lyons
*
* Version $8306.
* Added Get640Colors and Set640Color.  (The Menu and Window
* mgrs each had their own copy of the 640-color table, and
* so do a lot of applications and DAs.  Makes more sense to
* have one copy here in QD.)
*
* 25-Sep-90	Dave Lyons
*
* Removed check of BigMachine--we always use FastFont now,
* without checking the machine size.
*
* 22-Oct-90	Dave Lyons
*
* Added $DC04 GetScanlineAddr.
*
* 20-Nov-90	Dave Lyons
*
* Added ClearScreen patch that clears the correct bank (was
* previously clearing bank $E1 even if we got shadowing).
* Patch also checks the DontClearScreen flag that we can set
* in the QDStartUp patch.
*
* 21-Nov-90	Dave Lyons
*
* Changed DontClearScreen logic so that if you set bit $0100
* in the MasterSCB, we still clear the screen if it wasn't
* already turned on.
*
* 25-Nov-90	Dave Lyons
*
* Changed version to $8307, since 5.0.4 is going to be $0306.
*
* 14-Feb-91	Dave Lyons
*
* Removed GetScanlineAddress.
*
* 25-Feb-91	Dave Lyons
*
* QDStartUp now deletes Message #6 (the mouse position message)
* from the MessageCenter if the screen was off.  It only makes
* sense to preserve the mouse position on a true smooth launch.
*
* 7-Apr-91	Dave Lyons
*
* QDShutDown now shuts down QDAux first if it's started up (this
* is necessary because Standard File now starts up QD Aux).
*
* 5-Aug-91	Dave Lyons
*
* Messed with SetCursor patch to allow flickerless cursors by
* setting bit 31 of the cursor pointer when the mask is
* unchanged.
*
* 26-Aug-91	Dave Lyons
*
* QDStartUp leaves the MasterSCB $0100 (smooth launch) bit set
* until the call is done, so that CloseView can see the bit
* during its ClearScreen patch.
*
* 6-Sep-91	Dave Lyons
*
* QDShutDown now turns off linearization ($C029 bit 6) even
* if it leaves the SHR screen on.  It's evil to leave linear
* on, because it screws up double-hires!
*
* 19-Nov-91	Dave Lyons
*
* QDShutDown inits the SCBs and color table 0.
*
* QDStartUp checks bit 2 of BRAM $5F to disable scanline interrupt
* use (for better compatibility with accelerators and VOCs).
*
* 27-Nov-91	Dave Lyons
*
* Patched InflateTextBuffer to return errors.
*
* 3-Dec-91	Dave Lyons
*
* Finished fixing above--on failure, it needs to restore a few direct page
* locations, so we don't think the buffer has been inflated when it hasn't.
* (Since QuickDraw Aux chains in *after* the main QD buffer-resize routines,
* QD already decided it was okay to store the new buffer size values when
* QD Aux found it could not resize its buffers, so we have to undo the damage.)
*
* 3-Feb-91	Dave Lyons
*
* Fix QDStartUp to cope with FastFont no longer being available
* (the code change is in QD:FastFontCache, which we link in).
*
* QDStartUp copies the $E1 screen down to the $01 screen if we
* got shadowing.
*
* 5-Feb-92	Dave Lyons
*
* Version $0307 for 6.0 final.
*
**********************************************************************
*
* 17-Feb-92	Dave Lyons
*
* Version $8308 for 6.0.1d1.
*
* 2-Apr-93 DAL
*
* Version $0308 for 6.0.1.
*
****************************************************************


****************************************************************
*			   *
*              Copyright (C) 1985-1993		   *
*              All Rights Reserved		   *
*              Apple Computer, Inc.		   *
*			   *
****************************************************************


TheQDVersionNum	equ $0308	;2-Apr-93 DAL

	export SystemFont:equ
SystemFont	equ $FE77E0
NoFastFontMask	equ $1000

	include 'all.macros'

	include ':::sys.equs.asm'

	INCLUDE ':::qd:QDEquates:qd.data.asm'
	INCLUDE ':::qd:QDEquates:core.globals1'
	INCLUDE ':::qd:QDEquates:core.globals2'

	include 'e16.memory'
	MACRO
	bcsl &A
	bcc  @dontTake
	brl  &A
@dontTake
	MEND


* The following macro should be used by any routine that changes the zeropage pattern
* holder, the penpat or the back pat...

	MACRO
	DirtyPatterns
	ldx #512	; switch to qdDPage2
	lda <DirtyDPFlags,x	; get the proper flags
	and #AllPatsBad	; turn off both patterns
	sta <DirtyDPFlags,x
	MEND


	MACRO
	DirtyPort
	ldx #512	; switch to qdDPage2
	lda <DirtyDPFlags,x	; get the proper flags
	and #PortBad	; turn off both patterns
	sta <DirtyDPFlags,x
	MEND


	MACRO
	DirtyMask
	ldx #512	; switch to qdDPage2
	lda <DirtyDPFlags,x	; get the proper flags
	and #PenMaskBad	; turn off both patterns
	sta <DirtyDPFlags,x
	MEND

	MACRO
	DirtyDrawState
	ldx #512	; switch to qdDPage2
	lda <DirtyDPFlags,x	; get the proper flags
	and #DrawStateBad	; turn off both patterns
	sta <DirtyDPFlags,x
	MEND


ThisGimmeVersion	Proc Export	;

	lda #TheQDVersionNum
	rtl

;-----------------------------------------------------------
;
; This is the code pointed to by the v_?Rgn and v_?Rect
; vectors.
;
; It just stuffs the noun and jumps right in.
;
; Added 1 Jun 89	SEG
	Export NewRgnCode
	Export NewRectCode
NewRgnCode	lda #RgnNoun
GetOnDown	sta DrawNoun
	jml CommonSlabSetup

NewRectCode	lda #RectNoun
	bra GetOnDown

	ENDP



	EJECT
*******************************************************************************
*
OpenInitPort2	PROC Export
*
* Description:	This patch is for both openport and initport. It will
*	modify the port SCB after the whole port has been set up.
*
*
*
* Inputs:	PortPtr:Long
*
* Outputs:	None
*
* External Refs:
*
* Entry Points:
*
*
* Change History
*
* 14 Apr 89	Steven Glass
*
* Hit the dirty flags for both calls so that the port appears dirty.
*
*******************************************************************************
	DefineStack
yetAnotherdPage	word
SaveDPage	word
RTL1	block 3
RTL2	block 3
thePort	long


ROMOpenPort	equ $FE12E4
ROMInitPort	equ $FE1329

	Export OpenPort2
OpenPort2
	phd
	pha
	tsc
	tcd
	pei <thePort+2
	pei <thePort
	lda <yetAnotherDPage
	jsl ToROMOpenPort
	bra common

	Export InitPort2
InitPort2
	phd
	pha
	tsc
	tcd
	pei <thePort+2
	pei <thePort
	lda <yetAnotherDPage
	jsl ToROMInitPort

common

;
; Make the port really dirty.
;
	php		; save the status
	pha		; save the error code if any
	lda <yetAnotherDPage
	phd		; save d-page
	tcd		; set d-page to QD
	DirtyPort		; do the dirty deed
	pld		; restore d-page
	pla		; get back error code
	plp		; get back status
; end check

	bcs IOPortEnd	; if an error occured skip this code

;
; EXP place code here that will modify the grafport to point to shadowed RAM if that was
; enabled!
	ldy #3	; get the offset to the proper place
	lda >$E0C035	; get the shadow register
	and #$0008	; test the shadowing flags!
	bne ShadowOff	; if zero, then shadowing is on
	lda #$0120	;
	sta [thePort],y	; and change the port reference
ShadowOff
	lda #00
;
; EXP End
IOPortEnd	tax
	ldy #4
	pla
	pld
	jml ToStrip

ToROMOpenPort	jsl ROMOpenPort
	rtl
ToROMInitPort	jsl ROMInitPort
	rtl
	EndP

	EJECT
*** old way	*******************************************************************************
*** old way	*
*** old way	QDShutDown2	PROC Export
*** old way	*
*** old way	* Description:	This is a post-patch for the qd-shutdown call that will
*** old way	*	disable shadowing if enabled.
*** old way	*
*** old way	*
*** old way	* Inputs:	None
*** old way	*
*** old way	* Outputs:	None
*** old way	*
*** old way	* External Refs:
*** old way	*
*** old way	* Entry Points:
*** old way	*
*** old way	*******************************************************************************
*** old way
*** old way	ROMShutDown	equ $FE0BE0	; address of ROM based routine... (removed 19-Nov-90 DAL)
*** old way
*** old way		cmp #0
*** old way		beq @Ooops
*** old way
*** old way		phd
*** old way		phy
*** old way		phx
*** old way		pha
*** old way
*** old way		tcd
*** old way
*** old way	***	lda >BigMachine
*** old way	***	beq @NotBig
*** old way
*** old way
*** old way		PushWord #2
*** old way		ldx #512
*** old way		lda FastRomFont+2,x
*** old way		and #$00FF
*** old way		pha
*** old way		lda FastRomFont,x
*** old way		pha
*** old way		_SetPurge
*** old way
*** old way
*** old way	*** @NotBig
*** old way
*** old way		pla
*** old way		plx
*** old way		ply
*** old way		pld
*** old way	@Ooops
*** old way
*** old way
*** old way		JSL ToROMShutDown	; call the ROM based shutdown first...
*** old way
*** old way		php	; save the proc status
*** old way		pha	; save the error code
*** old way
*** old way	;------------------------------------------------------
*** old way	; Turn off shadowing for the SHR Screen
*** old way	;
*** old way	; 12/5/89 	Mensch
*** old way	; Added code to dispose of the shadowed screen memory
*** old way	;
*** old way		sep #$20	; turn off long <A>
*** old way		longA Off
*** old way		lda >$E0C035	; get the shadow register
*** old way		and #$0008	; test the shadowing flags!
*** old way		bne ShadowOff	; if zero, then shadowing is on
*** old way		lda >$E0C035	; load the shadow register
*** old way		ora #$08	; set bit 3... (turn screen shadow off)
*** old way		sta >$E0C035	; and resave it!
*** old way		longA On	; now release the shadowed screen area
*** old way		REP #$20
*** old way		pha
*** old way		pha
*** old way		PushLong #$012000	; first find the handle that has that memory
*** old way		_FindHandle
*** old way		_DisposeHandle	; and dump it...
*** old way		longA On
*** old way	ShadowOff	REP #$20	; and turn back on long <A>
*** old way
*** old way		pla
*** old way		plp
*** old way		RTL
*** old way
*** old way	ToROMShutDown	jsl ROMShutDown
*** old way		RTL


*******************************************************************************
*
QDShutDown2	PROC Export
*
* Description:	This patch makes QDShutDown more like ROM 3 and lets me
*	mess with leaving the SHR screen turned on.
*
* Inputs:	None
*
* Outputs:	None
*
* 19-Nov-90 DAL:  Sucked this code in from QD:Init.asm, routine CoreTerminate.
*
*******************************************************************************

DisposeHandleGlue	equ $fe1110


LclRTL	equ $fe0050
	Macro
&Lab	JSRL &Addr
	GBLA &MacroCnt
&MacroCnt	SETA &MacroCnt+1
	phk
	per theRTL&MacroCnt-1
	pea |LclRTL-1
	jml >&Addr
theRTL&MacroCnt
	MEND


* QDShutDown2
	cmp #0
	bne @Continue
	jml >$feff8b	;oEndCall0

@Continue	jsr QDStart2	;(RAM copy --DAL)

*** added 7-Apr-91 DAL
	pea 0
	_QDAuxStatus
	pla
	beq @noQDAux
	_QDAuxShutDown
@noQDAux
*** end of 7-Apr-91 DAL

*** added 19-Nov-91 DAL -- fix up the color tables and SCBs
	pha
	_GetMasterSCB
	pla
	and #$FFF0
	ora #$0080
	pha
	_SetMasterSCB
	pushlong #$E19E00
	_InitColorTable
	pea $0080
	_SetAllSCBs
*** end 19-Nov-91

	pea #2	; set the purge level to 2
	ldx #512	; on the fastfont...
	lda FastRomFont+2,x
	and #$00FF
	pha
	lda FastRomFont,x
	pha
	_SetPurge
*
* Deallocate rgn cache memory
*
	ldx #$02F4
	lda 2,x
	pha
	lda 0,x
	pha
	jsl DisposeHandleGlue

;-----------------------------------------------
;
; Close the first port and get rid of the memory
; it is in.
;
	ldx #256
	lda FirstPortHandle+2,x
	pha
	sta temp+2
	lda FirstPortHandle,x
	pha
	sta temp
	lda [temp]
	tax
	ldy #2
	lda [temp],y
	pha
	phx
	_ClosePort
	jsl DisposeHandleGlue

;-----------------------------------------------
;
; Get rid of text buffer
;
***	PushLong TextBufHandle
	pei TextBufHandle+2
	pei TextBufHandle
	jsl DisposeHandleGlue


;-----------------------------------------------
;
; Get rid of the buffer memory

	pei BufferHandle+2
	pei BufferHandle
	jsl DisposeHandleGlue

;-----------------------------------------------
; Get rid of shadowed ram here
; test for shadowing enabled, if it is, turn it off and
; dispose of the screen...
	sep #$20	; turn off long <A>
	longA Off
	lda >$E0C035	; load the shadow register
	and #$08	; set bit 3... (turn screen shadow off)
	bne @NotShadowed
	longA On
	REP #$20	; and turn back on long <A>

	pha
	pha
	pea $0001	; find the shadowed screen memory
	pea $2000	; handle, shadowing was on...
	_FindHandle
	_DisposeHandle	; and throw it the hell away..
@NotShadowed
	longA On
	REP #$20
;-----------------------------------------------
;
; Now get rid of screen memory.  Cannot	do a find
; since we could be	called after a startup call
; that was aborted because screen was already
; owned.  We don't want to release someone
; else's memory.
;
	ldx #256
	lda ScreenHandle+2,x
	pha
	lda ScreenHandle,x
	pha
	jsl DisposeHandleGlue

;-----------------------------------------------
;
; Get rid of the memory used by cursor save
;
	jsrl $fe3cad	;CursorShutDown



;----------------------------------------------------
;
; Turn off graphics	and linearization in bank 1/E1
;

;	pha	;added 19-Nov-90 DAL
;	_GetMasterSCB	;added 19-Nov-90 DAL
;	pla	;added 19-Nov-90 DAL
;	and #$0100	;added 19-Nov-90 DAL
;	bne @1	;added 19-Nov-90 DAL
;
;	sep #$30	; go to 8 bit mode
;	longa off
;	longi off
;	lda >NewVideo
;	and #%00111111	; turn off graphics	and linearization
;	sta >NewVideo
;	rep #$30	; go back to 16
;	longi on
;	longa on
;@1		;added 19-Nov-90 DAL

*** added 6-Sep-91 DAL -- turn off linearization, or SHR+linearization
	pha
	_GetMasterSCB
	pla
	ldx #%00111111
	and #$0100	;bit 8 = leave SHR screen showing!
	beq @1	;turn off both
	ldx #%10111111	;turn off linear, leave screen on
@1	txa
	sep #$30
	and >NewVideo
	sta >NewVideo
	rep #$30
*** end of 6-Sep-91 DAL

;-----------------------------------------------
;
; Clear the entry in the WAPT
;
	lda #0	; not a user call (seed the a-reg
	pha	; to save bytes below
	PushWord #TSNumber	; Put TSNum on stack
	pha	; new value is zero	as set above.
	pha
	_SetWAP


;------------------------------------------------------
; Turn off shadowing for the SHR Screen
;
	sep #$20	; turn off long <A>
	longA Off
	lda >$E0C035	; load the shadow register
	ora #$08	; set bit 3... (turn screen shadow off)
	sta >$E0C035	; and resave it!
	longA On
	REP #$20	; and turn back on long <A>

	jml >$feff3f

	EndP


*****************************************************************
*
* QDStartup
*
*     ZPToUse
*     MasterSCB
*     MaxWidth
*     UserID
*
* Fixes the handle to the cursor save area so it does not
* cross bank boundries.
*
* Modification History
*
* 22 May 87    SEG
*
* This routine is similar to the one that patches ROM1 but does not
* have to deal with	the scan line interrupt vector.
*
* 2/24/89	Mensch
* Add fastfont loading...
*
* 08 Mar 89	Steven Glass
*
* Dispose orig port allocated by the rom and allocated a new
* one as fixed so it will be in low rather than high memory.
*
* 14 Apr 89	Steven Glass
*
* Changed the way dirty flags were intitialized so that
* Applications can use bit 14 to indicate that they want the
* shortcuts used.
*
* 20-Nov-90+	Dave Lyons
* See top of file.
*
*****************************************************************
QDStartup2	PROC EXPORT


	import UpdateCursor
	import RefreshCursor
	import DontClearScrnFlag	;20-Nov-90 DAL

	DefineStack
OrigD	word
RTL1	block 3
RTL2	block 3
uUserID	word
uMaxWidth	word
uMasterSCB	word
uZPToUse	word

	tax	; save the incoming	WAP in X
	phd
	tsc
	tcd

*** added 20-Nov-90 DAL
	lda <uMasterSCB
	and #$0100
	sta >DontClearScrnFlag

	lda >$E0C029
	and #$0080
	bne @1
	sta >DontClearScrnFlag
*** added 25-Feb-91 DAL: If the screen was off, kill the Event Manager mouse pos message
	phx
	pea 3	;delete message
	pea 6	;message type
	pha
	pha	;handle (ignored)
	_MessageCenter
	plx
*** end of 25-Feb-91 DAL
@1
;;;	lda #$0100	;removed 26-Aug-91 DAL
;;;	trb <uMasterSCB	;removed 26-Aug-91 DAL
*** end of 20-Nov-90 DAL

	pei uZPToUse	; push inputs onto stack again
	pei uMasterSCB
	pei uMaxWidth
	pei uUserID


RomStartup	equ $FE0A91

;----------------------------------------------------------
;
; If QD is already active, then skip this.
;
	txa

	jsl OffToRom
*** added 20-Nov-90 DAL
	pha
	lda #0
	sta >DontClearScrnFlag
	pla
*** end of 20-Nov-90 DAL
	bcsl error

*** added 26-Aug-91 DAL -- clear MasterSCB $0100 here
	pha
	_GetMasterSCB
	pla
	and #$FEFF
	pha
	_SetMasterSCB
*** end 26-Aug-91 DAL

*** added 19-Nov-91 DAL -- check BRAM to disable scanline interrupt use
	pha
	pea $005F
	_ReadBParam
	pla
	and #$0004	;bit 2 = no scanline ints
	beq @normal
	pea 0
	_SetIntUse
@normal
*** end 19-Nov-91

	lda uZPToUse
	tcd


;
; EXP 1/25/89 see if we can allocate the shadowed screen, if so, do it!
; EXPERIMENT 1 aprox 10% speed increase

	ldx #512	; switch to qd dpage 2
	lda MasterSCB	; get the passed flags from the top of MasterSCB
	and #$4000	; strip off the high bit 14 ...
	beq @NoDirty
	lda #$8000
@NoDirty	sta <DirtyDPFlags,x	; and save this value...

	lda MasterSCB	; get the passed flags from the top of MasterSCB
	bpl EXP0020	; if negative clear, no shadowing!

	pha	; space for handl
	pha
	PushLong #$8000	; size of screen
	pei UserID
	PushWord #$C002	; fixed location, locked
	pea $0001
	pea $2000
	jsl NewHandleGlue
	pla	; discard this handle for now...
	plx
	bcs EXP0010	; if an error, then we didn't allocate Shadow screen

*** added 3-Feb-92 DAL -- copy E1 screen down to 01 screen if we got shadowing
	ldx #$2000
	pea $00e1
	phx	;src = $e1/2000
	pea $0001
	phx	;dest = $01/2000
	pea 0
	pea $7d00
	_BlockMove
*** end 3-Feb-92

; If we get this far, we have allocated a shadowed screen and we should now set
; the shadowing bit on for the SHR screen.
	sep #$20	; turn off long <A>
	longA Off
	lda >$E0C035	; load the shadow register
	and #$F7	; reset bit 3...
	sta >$E0C035	; and resave it!
	longA On
	REP #$20	; and turn back on long <A>
	bra EXP0020
EXP0010
; Shadowing didn't get allocated, lets change our bitflags here
	lda MasterSCB
;;;	and #$7FFF	; strip off the shadow flag
*** opt 3-Feb-92 DAL -- save a stoopid byte
	asl a
	lsr a
*** end 3-Feb-92
	sta MasterSCB	; to indicate we are not using shadowing.
EXP0020
; END

;
; Install the fast font if this is a big machine and their font
; is available.
;

***	lda >BigMachine	;removed 25-Sep-90 DAL
***	beq NoFastFont

	lda MasterSCB	; get the passed flags from the top of MasterSCB
	and #NoFastFontMask	; strip off the high bit 14 ...
	bne NoFastFont	; if that bit is set then don't load the fast font...
;
; Now install the fastfont stuff if we got enough memory
	Import DoFastSetup
	tdc
	pha
	pha
	jsl DoFastSetup
	pla
	ply

	bcs NoFastFont

	ldx #512
	sta FastRomFont,x
	sty FastRomFont+2,x
	phy
	pha
	_SetSysFont	; now set the system font




NoFastFont



;
; The old rom allocated the default port as locked rather than fixed,
; so we kill that first handle and allocate a new one that is fixed.
;
; Note:  no error checking is done here.  The closeport, dispose, newhandle
; and openport had all better work as promised.  If they don't the machine
; ain't working well engough to return an error anyway.
;

; Start by closing the current port

	pei PortRef+2
	pei PortRef
	_ClosePort

; now dispose of the memory for that port.
;
	ldx #256
	lda FirstPortHandle+2,x
	pha
	lda FirstPortHandle,x
	pha
	_DisposeHandle

;
; Get new memory for the port
;
	lda #0
	pha
	pha
	pha
	pea PortSize	; size of handle
	pei UserID	; userid to use
	pea #attrFixed	; attributes
	pha
	pha
	jsl NewHandleGlue
	pla
	ply
	ldx #256
	sta FirstPortHandle,x
	sty FirstPortHandle+2,x

; Deref the handle and open the port
;
	sta PortRef
	sty PortRef+2
	ldy #2
	lda [PortRef],y
	pha
	lda [PortRef]
	pha
	_OpenPort

;
; End change that allocates default port low instead of high
;

	jsl FixHandle2

	PushWord #CurUpdateRefNum	; install pointer to update
	PushLong #UpdateCursor 	; cursor routine
	_SetVector

	PushWord #ScanIntRefNum ; install pointer to
	PushLong #RefreshCursor ; cursor refresh routine
	_SetVector


Error	tax
	ldy #8
	pld
	jml ToStrip


OffToROM	jsl RomSTARTUP
	rtl

	ENDP



****************************************************************
*
* ClearScreen  (Color : integer);
*
* Clears the super hi-res screen, setting all words to the
* value passed.
*
*
* Modification History
*
*  12 Feb 89    DDG	   This routine now checks for shadowing
*
*
*  14 Feb 89    DDG	   Fixed a bug where I was reading the wrong
*	   word on the stack for the color.
*
* --------------
* 20-Nov-90	Dave Lyons
*
* Stole this from the ROM 3 source to patch ROM 1.  We need to
* clear the bank 1 screen if we're shadowing.
*
* Added check of DontClearScreenFlag for QDStartUp patch.
*
****************************************************************
	EXPORT ClearScreen
ClearScreen	PROC

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
ParmColor	equ RTL2+3

	jsr QDStart2	;RAM copy

	lda >DontClearScrnFlag
	bne @done
	lda #0
	sta >DontClearScrnFlag
	tdc

	jsl $fe3eaf	;HideCursor

	phb	; save bank register

	lda >$E0C035	; get the shadow register
	and #$0008	; test the shadowing flags!
	bne @1	; if zero, then shadowing is on
	pea $0101	; push on the shadowed bank
	bra @2
@1	pea $E1E1	; push this on stack
@2	plb	; set bank twice to
	plb	; clear stack

	lda ParmColor+1,s
	ldx #160*200-2
@Loop	sta $2000,x
	dex
	dex
	bpl @Loop

	plb	; get back bank address

	tdc	; fake out tool locator call
	jsl $fe3e87	;ShowCursor

@done	jml $feff60	;BusyEC2

	export DontClearScrnFlag
DontClearScrnFlag	dc.w 0

	EndP
****************************************************************
*
SetCursor	proc Export
*
* This patch checks the incoming WAP to see if QD is active.
* If QD is not active, we just report an error and quit.
*
* This patch is being made because two Activision Applications
* made calls to this routine before starting QuickDraw.  These
* Apps (DrawPlus and PaintWorks Plus) seemed to work fine
* until appletalk was activated (god knows how it worked).
*
* We discovered that activating Appletalk put different values
* at page one in bank zero which is used by Cursor routines
* if QD is not active.  Setting the cursor then trashed
* random memory depending on what values were in
* Page 1.
*
*
* Inputs:
*	Pointer to Cursor record (on stack)
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* Change History
*
* 27 May 88	Steven Glass
*
* Added today.
*
****************************************************************

StartofZP	equ CursorSTART

UseInterrupts	equ StartofZP
IntPending	equ UseInterrupts+2

MouseY	equ IntPending+2
MouseX	equ MouseY+2

NextMouseY	equ MouseX+2
NextMouseX	equ NextMouseY+2

CurHeight	equ NextMouseX+2	; Num scan lines high of cursor
CurWidth	equ CurHeight+2	; Num WORDS wide of	cursor

CursorRect	equ CurWidth+2
CursorY1	equ CursorRect
CursorX1	equ CursorY1+2
CursorY2	equ CursorX1+2
CursorX2	equ CursorY2+2

CursorMode	equ CursorX2+2
CursorRecPtr	equ CursorMode+2

CursorPtr	equ CursorRecPtr+4
MaskPtr	equ CursorPtr+4

CursorPtr1	equ MaskPtr+4
MaskPtr1	equ CursorPtr1+4
CursorPtr2	equ MaskPtr1+4
MaskPtr2	equ CursorPtr2+4
CursorPtr3	equ MaskPtr2+4
MaskPtr3	equ CursorPtr3+4
CursorPtr4	equ MaskPtr3+4
MaskPtr4	equ CursorPtr4+4
CursorPtr5	equ MaskPtr4+4
MaskPtr5	equ CursorPtr5+4
CursorPtr6	equ MaskPtr5+4
MaskPtr6	equ CursorPtr6+4
CursorPtr7	equ MaskPtr6+4
MaskPtr7	equ CursorPtr7+4

SaveHandle	equ MaskPtr7+4

SavePtr	equ SaveHandle+4
SaveSize	equ SavePtr+4

CursorRef	equ SaveSize+2
MaskRef	equ CursorRef+4
HotSpot	equ MaskRef+4

SaveRef	equ HotSpot+4
ScreenRef	equ SaveRef+4

CursorLevel	equ ScreenRef+2
ObscureFlag	equ CursorLevel+2

;	cmp #0	; is the a-reg zero
	tax
	bne @qdStarted	; we're active

	ldy #4
	ldx #NotInitialized
	jml ToStrip

@qdStarted
;;;	jml $FE3D89

*** Flickerless cursor stuff  5-Aug-91 DAL
*** If bit 31 of SetCursor value is set, don't undraw old cursor,
*** and don't let DrawCursor mess up SaveArea.
ROMNotVisible	equ $FE3D9F

	tay
	lda 9,s	;high word of cursor ptr
	tax
	asl a
	lsr a
	sta 9,s	;cleared bit 31
	tya	;A=preserved, X=high word of input

	jsr LOCALQDStart
	clc
	adc #$100
	tcd

	php	; save processor
	sei	; turn off interrupts to do this

	bit <CursorLevel
	bmi NotVisible

	bit <ObscureFlag
	bmi NotVisible

	txa
	bmi NoFlicker
	tdc
	jsl UnDrawCursor	; restore under cursor

NotVisible	jml ROMNotVisible

NoFlicker
	lda 10,s	;get pointer to cursor rec
	sta CursorRecPtr
	lda 10+2,s	;high word of new cursor rec
	sta CursorRecPtr+2

;	lda [CursorRecPtr]	; I move height and	width
;	sta CurHeight	; to zero page
;	ldy #2
;	lda [CursorRecPtr],y
;	sta CurWidth

	lda CursorRecPtr	; point to cursor image
	clc
	adc #4
	sta CursorPtr
	lda CursorRecPtr+2
	sta CursorPtr+2

	lda SaveSize	; get savesize in a
	sec	; get rid of extra word per line
	sbc CurHeight
	sec
	sbc CurHeight
	tay	; put copy in Y too
	clc
	adc CursorPtr
	sta MaskPtr
	lda CursorPtr+2
	sta MaskPtr+2

	lda [MaskPtr],y	; get hot spot
	sta HotSpot
	iny
	iny
	lda [MaskPtr],y
	sta HotSpot+2

;----------------------------------------------
;
; Update the appropriate pointers.
;
	lda SavePtr	; the first pointer	is savesize past
	clc	; saveptr.
	adc SaveSize
	sta CursorPtr1
	lda SavePtr+2
	adc #0
	sta CursorPtr1+2

	ldx #0
SetUpLoop	lda CursorPtr1,x
	clc
	adc SaveSize
	sta CursorPtr1+4,x
	lda CursorPtr1+2,x
	adc #0
	sta CursorPtr1+6,x
	inx
	inx
	inx
	inx
	cpx #13*4	; 52, 7 sets of two	pointers
	bcc SetUpLoop

;----------------------------------------------
;
; Now I must shift the cursor and mask into
; the appropriate places.
;
***	jsr ShiftStuff	;$FE3CE1 in ROM 1
	phk
	per @cont-1
	pea $0050-1	;$FE0050 is an RTL in ROM 1
	jml >$fe3ce1
@cont


;----------------------------------------------
;
; Now I can show the new cursor
;
	bit CursorLevel
	bmi DoNotShow
	bit ObscureFlag	; or should a set cursor unobscure it?
	bmi DoNotShow

*** This is really ugly and cruel.  Since there's already an old cursor on
*** the screen, which I -don't- want to get stuffed into the SaveArea, I
*** point SavePtr at the ROM around the call to DrawCursor.
	pei <SavePtr+2
	pei <SavePtr
	lda #$fefe
	sta <SavePtr+2
	sta <SavePtr
	jsl DrawCursor
	pla
	sta <SavePtr
	pla
	sta <SavePtr+2

DoNotShow	plp	; restore interrupt	status
	ldx #0
	pld
	ldy #4
	jml $e10180	;ToBusyStrip

	ENDP

*******************************************************
*
* InflateTextBuffer (patched 27-Nov-91 DAL)
*
* (Original is in QD:Text.asm.)
*
*******************************************************
MyInflateTextBuffer	PROC export

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
newHeight	equ RTL2+3
newWidth	equ newHeight+2

	jsr LocalQDStart

	lda newWidth,s
	sta <$56	;newFontWidth
	lda newHeight,s
	sta <$50	;newTBHeight

*** added 3-Dec-91 DAL -- preserve old DP values that we may need to restore
	ldx #256
	lda <fontWidth,x
	pha
	pei <textBufHeight
	pei <textBufRowWords
*** end 3-Dec-91

	jsl $fe6a8d	;InflateTB (ROM 1)

;;;	ldy #4
;;;	jmp BusyEC
*** added 3-Dec-91 DAL -- honor error code from InflateTB, and restore
***  DP values if we had an error (even though QD doesn't mess up the
***  values if it can't resize the buffer, we do mess them up if QD Aux
***  can't resize -its- buffers).
	tay	;error code to Y

	pla
	bcc @noStore1
	sta <textBufRowWords
@noStore1	pla
	bcc @noStore2
	sta <textBufHeight
@noStore2	pla
	bcc @noStore3
	ldx #256
	sta <fontWidth,x
@noStore3
	tyx	;error code to X
	pld
	ldy #4
	jml $e10180	;ToBusyStrip
*** end 3-Dec-91
	EndP

*******************************************************
*
* $DA04 Get640Colors():PatternTablePtr
*                      LONG
*
* Returns a pointer to a table of all the solid 640-
* mode dithered patterns (32 bytes of $00, 32 bytes of
* $11, ..., 32 bytes of $ff).
*
* The Menu and Window Managers use this to avoid having
* their own copies.
*
* New call 24-Sep-90 DAL for System Software 6.0
*
*******************************************************
Get640Colors	PROC
	import SolidColors

	lda #^SolidColors
	sta 9,s
	lda #SolidColors
	sta 7,s
	lda #0
	clc
	rtl

	EndP

*******************************************************
*
* $DB04  Set640Color(color)
*                    WORD
*
* New call 24-Sep-90 DAL for System Software 6.0
*
*******************************************************
Set640Color	PROC
	import SolidColors

	lda 7,s	;input color number
	and #$000f
	xba
	lsr a
	lsr a
	lsr a
	adc #SolidColors	;carry is guaranteed clear

	pea SolidColors>>16
	pha
	_SetPenPat
	tax	;error code
	ldy #2	;strip 2 bytes
	jml $e10184	;ToStrip

	EndP

SolidColors	proc export
 dc.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000
 dc.l $11111111,$11111111,$11111111,$11111111,$11111111,$11111111,$11111111,$11111111
 dc.l $22222222,$22222222,$22222222,$22222222,$22222222,$22222222,$22222222,$22222222
 dc.l $33333333,$33333333,$33333333,$33333333,$33333333,$33333333,$33333333,$33333333
 dc.l $44444444,$44444444,$44444444,$44444444,$44444444,$44444444,$44444444,$44444444
 dc.l $55555555,$55555555,$55555555,$55555555,$55555555,$55555555,$55555555,$55555555
 dc.l $66666666,$66666666,$66666666,$66666666,$66666666,$66666666,$66666666,$66666666
 dc.l $77777777,$77777777,$77777777,$77777777,$77777777,$77777777,$77777777,$77777777
 dc.l $88888888,$88888888,$88888888,$88888888,$88888888,$88888888,$88888888,$88888888
 dc.l $99999999,$99999999,$99999999,$99999999,$99999999,$99999999,$99999999,$99999999
 dc.l $AAAAAAAA,$AAAAAAAA,$AAAAAAAA,$AAAAAAAA,$AAAAAAAA,$AAAAAAAA,$AAAAAAAA,$AAAAAAAA
 dc.l $BBBBBBBB,$BBBBBBBB,$BBBBBBBB,$BBBBBBBB,$BBBBBBBB,$BBBBBBBB,$BBBBBBBB,$BBBBBBBB
 dc.l $CCCCCCCC,$CCCCCCCC,$CCCCCCCC,$CCCCCCCC,$CCCCCCCC,$CCCCCCCC,$CCCCCCCC,$CCCCCCCC
 dc.l $DDDDDDDD,$DDDDDDDD,$DDDDDDDD,$DDDDDDDD,$DDDDDDDD,$DDDDDDDD,$DDDDDDDD,$DDDDDDDD
 dc.l $EEEEEEEE,$EEEEEEEE,$EEEEEEEE,$EEEEEEEE,$EEEEEEEE,$EEEEEEEE,$EEEEEEEE,$EEEEEEEE
 dc.l $FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF
	endp


;*******************************************************
;*
;* $DC04 GetScanlineAddr(lineNum):@address
;*                       WORD     PTR
;*
;* Returns a pointer to a scanline ($01xxxx or $E1xxxx).
;*
;* New call Dave Lyons 22-Oct-90 for System 6.0
;*
;*******************************************************
;GetScanlineAddr	PROC
;
;	ldx #$0452	;anticipate badScanLine error
;	lda 7,s
;	cmp #200
;	bcs @error
;
;	ldx #$00e1	;anticipate bank $E1 (no shadowing)
;	lda >$E0C035	;shadow
;	and #$0008
;	bne @bank
;	ldx #$0001	;SHR shadowing
;@bank	txa
;	sta 11,s
;
;	lda 7,s
;	asl a
;	tax
;	lda >$ffbd74,x
;	sta 9,s
;
;	ldx #0
;@error	ldy #2	;strip 2 bytes
;	jml $e10184	;ToStrip
;
;
;	EndP


****************************************************************
*
QDCallTable2	PROC EXPORT
*
* Call table for QD patch.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
	Export eSetPort
	Export eSetPortLoc
	Export eSetPortRect
	Export eSetPortSize
	Export eMovePortTo
	Export eSetOrigin
	Export eHidePen
	Export eSetPenState
	Export eSetDrawMask
	Export ePenNormal
	Export eSolidPenPat
	Export eSolidBackPat
	Export eSolidPattern
	Export eSetGrafProcs
	Export RectCalls
	Export ePPToPort
	Export eScrollRect
	Export ePaintPixels
*
	longa on	; mode
	longi on
*
*
* Change History
*
* 14 Apr 89	Steven Glass
*
* Added entry points to all calls now patched only for BigQD.
* These include the rectangle drawing calls and the port
* mainipulation calls that need to muck with the dirty bits.
*
****************************************************************


TheStart	DC.L (TheEnd-TheStart)/4	; num calls + 1
	DC.L QDBootInit2-1	; 1
	DC.L QDStartup2-1	; 2
	DC.L QDShutDown2-1  ; 3
	DC.L 0	; 'CoreVersion-1'	         ; 4
	DC.L 0	; 'CoreReset-1'	         ; 5  QDReset
	DC.L 0	; 'QDStatus-1'	         ; 6  QDstatus
	DC.L 0	; 'oEndCall0-1'	         ; 7  spare
	DC.L 0	; 'oEndCall0-1'	         ; 8  spare


	DC.L 0	; 'GetAddress-1'

	DC.L 0	; 'GrafOn-1'
	DC.L 0	; 'GrafOff-1'
	DC.L 0	; 'GetStandardSCB-1'
	DC.L 0	; 'InitColorTable-1'
	DC.L 0	; 'SetColorTable-1'
	DC.L 0	; 'GetColorTable-1'
	DC.L 0	; 'SetColorEntry-1'
	DC.L 0	; 'GetColorEntry-1'
	DC.L 0	; 'SetSCB-1'
	DC.L 0	; 'GetSCB-1'
	DC.L 0	; 'SetAllSCBs-1'
	DC.L ClearScreen-1	;  patched 20-Nov-90 DAL
	DC.L 0	; 'SetMasterSCB-1'
	DC.L 0	; 'GetMasterSCB-1'
	DC.L OpenPort2-1
	DC.L InitPort2-1
	DC.L 0	; 'ClosePort-1'
eSetPort	DC.L 0	; 'SetPort-1'
	DC.L 0	; 'GetPort-1'
eSetPortLoc	DC.L 0	; 'SetPortLoc-1'
	DC.L 0	; 'GetPortLoc-1'
eSetPortRect	DC.L 0	; 'SetPortRect-1'
	DC.L 0	; 'GetPortRect-1'
eSetPortSize	DC.L 0	; 'SetPortSize-1'
eMovePortTo	DC.L 0	; 'MovePortTo-1'
eSetOrigin	DC.L 0	; 'SetOrigin-1'
	DC.L 0	; 'SetClip-1'
	DC.L 0	; 'GetClip-1'
	DC.L 0	; 'SetClipToRect-1'
eHidePen	DC.L 0	; 'HidePen-1'
	DC.L 0	; 'ShowPen-1'
	DC.L 0	; 'GetPen-1'
eSetPenState	DC.L 0	; 'SetPenState-1'
	DC.L 0	; 'GetPenState-1'
	DC.L 0	; 'PenSize-1'
	DC.L 0	; 'GetPenSize-1'
	DC.L 0	; 'PenMode-1'
	DC.L 0	; 'GetPenMode-1'
	DC.L 0	; 'PenPat-1'
	DC.L 0	; 'GetPenPat-1'
eSetDrawMask	DC.L 0	; 'SetDrawMask-1'
	DC.L 0	; 'GetDrawMask-1'
	DC.L 0	; 'BackPat-1'
	DC.L 0	; 'GetBackPat-1'
ePenNormal	DC.L 0	; 'PenNormal-1'
eSolidPenPat	DC.L 0	; 'SolidPenPat-1'
eSolidBackPat	DC.L 0	; 'SolidBackPat-1'
eSolidPattern	DC.L 0	; 'SolidPattern-1'
	DC.L 0	; 'MoveTo-1'
	DC.L 0	; 'Move-1'

	DC.L 0	; 'LineTo-1'
	DC.L 0	; 'Line-1'

	DC.L 0	; 'SetPicSave-1'
	DC.L 0	; 'GetPicSave-1'
	DC.L 0	; 'SetRgnSave-1'
	DC.L 0	; 'GetRgnSave-1'
	DC.L 0	; 'SetPolySave-1'
	DC.L 0	; 'GetPolySave-1'
eSetGrafProcs	DC.L 0	; 'SetGrafProcs-1'
	DC.L 0	; 'GetGrafProcs-1'
	DC.L 0	; 'SetUserField-1'
	DC.L 0	; 'GetUserField-1'
	DC.L 0	; 'SetSysField-1'
	DC.L 0	; 'GetSysField-1'

	DC.L 0	; 'SetRect-1'
	DC.L 0	; 'OffsetRect-1'
	DC.L 0	; 'InsetRect-1'
	DC.L 0	; 'SectRect-1'
	DC.L 0	; 'UnionRect-1'
	DC.L 0	; 'PtInRect-1'
	DC.L 0	; 'Pt2Rect-1'
	DC.L 0	; 'EqualRect-1'
	DC.L 0	; 'NotEmptyRect-1'
RectCalls	DC.L 0	; FrameRect-1
	DC.L 0	; PaintRect-1
	DC.L 0	; EraseRect-1
	DC.L 0	; InvertRect-1
	DC.L 0	; FillRect-1

	DC.L 0	; 'FrameOval-1'
	DC.L 0	; 'PaintOval-1'
	DC.L 0	; 'EraseOval-1'
	DC.L 0	; 'InvertOval-1'
	DC.L 0	; 'FillOval-1'

	DC.L 0	; 'FrameRRect-1'
	DC.L 0	; 'PaintRRect-1'
	DC.L 0	; 'EraseRRect-1'
	DC.L 0	; 'InvertRRect-1'
	DC.L 0	; 'FillRRect-1'

	DC.L 0	; 'FrameArc-1'
	DC.L 0	; 'PaintArc-1'
	DC.L 0	; 'EraseArc-1'
	DC.L 0	; 'InvertArc-1'
	DC.L 0	; 'FillArc-1'


	DC.L 0	; 'NewRgn-1'
	DC.L 0	; 'DisposeRgn-1'
	DC.L 0	; 'CopyRgn-1'
	DC.L 0	; 'SetEmptyRgn-1'
	DC.L 0	; 'SetRectRgn-1'
	DC.L 0	; 'RectRgn-1'
	DC.L 0	; 'OpenRgn-1'
	DC.L 0	; 'CloseRgn-1'
	DC.L 0	; 'OffsetRgn-1'
	DC.L 0	; 'InsetRgn-1'
	DC.L SectRgn-1	; 'SectRgn-1'
	DC.L UnionRgn-1	; 'UnionRgn-1'
	DC.L DiffRgn-1	; 'DiffRgn-1'
	DC.L XorRgn-1	; 'XorRgn-1'
	DC.L 0	; 'PtInRgn-1'
	DC.L RectInRgn2-1
	DC.L 0	; 'EqualRgn-1'
	DC.L 0	; 'EmptyRgn-1'

	DC.L 0	; 'FrameRgn-1'
	DC.L 0	; 'PaintRgn-1'
	DC.L 0	; 'EraseRgn-1'
	DC.L 0	; 'InvertRgn-1'
	DC.L 0	; 'FillRgn-1'

eScrollRect	DC.L 0	; ScrollRect-1
ePaintPixels	DC.L 0	; PaintPixels-1

	DC.L 0	; 'AddPt-1'
	DC.L 0	; 'SubPt-1'
	DC.L 0	; 'SetPt-1'
	DC.L 0	; 'EqualPt-1'
	DC.L 0	; 'LocalToGlobal-1'
	DC.L 0	; 'GlobalToLocal-1'

	DC.L 0	; 'Random-1'
	DC.L 0	; 'SetRandSeed-1'
	DC.L 0	; 'GetPixel-1'
	DC.L 0	; 'ScalePt-1'
	DC.L 0	; 'MapPt-1'
	DC.L 0	; 'MapRect-1'
	DC.L MapRgn2-1

	DC.L 0	; 'SetStdProcs-1'

	DC.L SetCursor-1	; patched on 27 May 88 SEG
	DC.L 0	; 'GetCursorAdr-1'
	DC.L 0	; 'HideCursor-1'
	DC.L 0	; 'ShowCursor-1'
	DC.L 0	; 'ObscureCursor-1'
	DC.L 0	; 'SetMouseLoc-1'

	DC.L 0	; 'SetFont-1'
	DC.L 0	; 'GetFont-1'
	DC.L 0	; 'GetFontInfo-1'
	DC.L GetFontGlobals-1
	DC.L 0	; 'SetFontFlags-1'
	DC.L 0	; 'GetFontFlags-1'
	DC.L 0	; 'TextFace-1'
	DC.L 0	; 'GetTextFace-1'
	DC.L 0	; 'TextMode-1'
	DC.L 0	; 'GetTextMode-1'
	DC.L 0	; 'SpaceExtra-1'
	DC.L 0	; 'GetSpaceExtra-1'
	DC.L 0	; 'SetForeColor-1'
	DC.L 0	; 'GetForeColor-1'
	DC.L 0	; 'SetBackColor-1'
	DC.L 0	; 'GetBackColor-1'

	DC.L 0	; 'DrawChar-1'
	DC.L 0	; 'DrawString-1'
	DC.L 0	; 'DrawCString-1'
	DC.L 0	; 'DrawText-1'
	DC.L 0	; 'CharWidth-1'
	DC.L 0	; 'StringWidth-1'
	DC.L 0	; 'CStringWidth-1'
	DC.L 0	; 'TextWidth-1'
	DC.L 0	; 'CharBounds-1'
	DC.L 0	; 'StringBounds-1'
	DC.L 0	; 'CStringBounds-1'
	DC.L 0	; 'TextBounds-1'

	DC.L 0	; 'SetArcRot-1'
	DC.L 0	; 'GetArcRot-1'

	DC.L 0	; 'SetSysFont-1'
	DC.L 0	; 'GetSysFont-1'

	DC.L 0	; 'SetVisRgn-1'
	DC.L 0	; 'GetVisRgn-1'

	DC.L 0	; 'SetIntUse-1'

	DC.L 0	; 'OpenPicture-1'
	DC.L 0	; 'PicComment-1'
	DC.L 0	; 'ClosePicture-1'
	DC.L 0	; 'DrawPicture-1'
	DC.L 0	; 'KillPicture-1'

	DC.L 0	; 'FramePoly-1'
	DC.L 0	; 'PaintPoly-1'
	DC.L 0	; 'ErasePoly-1'
	DC.L 0	; 'InvertPoly-1'
	DC.L 0	; 'FillPoly-1'

	DC.L 0	; 'OpenPoly-1'
	DC.L 0	; 'ClosePoly-1'
	DC.L 0	; 'KillPoly-1'
	DC.L 0	; 'OffsetPoly-1'
	DC.L 0	; 'MapPoly-1'

	DC.L 0	; 'SetClipHandle-1'
	DC.L 0	; 'GetClipHandle-1'
	DC.L 0	; 'SetVisHandle-1'
	DC.L 0	; 'GetVisHandle-1'

	DC.L 0	; 'UserInitCursor-1'

	DC.L 0	; 'SetBufDims-1'	  ; added may 9
	DC.L 0	; 'ForceBufDims-1'

	DC.L 0	; 'SaveBufDims-1'
	DC.L 0	; 'RestoreBufDims-1'

	DC.L 0	; GetFGSize-1

	DC.L 0	; 'SetFontID-1'
	DC.L 0	; 'GetFontID-1'
	DC.L 0	; 'SetTextSize-1'
	DC.L 0	; 'GetTextSize-1'
	DC.L 0	; 'SetCharExtra-1'
	DC.L 0	; 'GetCharExtra-1'

ePPToPort	DC.L 0	; PPToPort-1

	DC.L MyInflateTextBuffer-1  ;$D704 patched 27-Nov-91 DAL
	DC.L 0	; 'GetROMFont-1'
	DC.L GetFontLore-1
	DC.L Get640Colors-1	;$DA04 added 24-Sep-90 DAL
	DC.L Set640Color-1	;$DB04 added 24-Sep-90 DAL
***	dc.l GetScanlineAddr-1 ;$DC04 added 22-Oct-90 DAL
TheEnd
	ENDP

****************************************************************
*
* QDStart
*
* This is a local routine that increments the busy flag, saves
* the current direct register on the stack and transfers
* the a register to	the D register.
*
* This is meant to be called at the start of any QD entry point
* that requires zero page and the busy flag to be incremented.
*
* In Doing this we trash the X-Register.  Hopefully this will
* not cause anyone any problems.
*
* We do know that A	and Y must be untouched.  Y for PortWord
* and PortLong.  A for cursor routines that add $100 to A
*
****************************************************************
QDStart2	proc Export

	jsl IncBusyFlg

	phd	; push d on stack
	tcd	; set d
	lda 3,s	; getorig rts
	pha	; put on stack
	lda 3,s	; move orig d to on	top of rts
	sta 5,s
	pla	; pull rts off stack
	sta 1,s	; put over orig d
	tdc	; get QD D back in a
	rts	; done

	ENDP




****************************************************************
*
DirtyStuff	proc Export
*
* This procedure has all the quickdraw calls that have
* been patched to support the dirty flags.
*
* These calls make something dirty and then jump
* back into the ROM at 3 bytes past the orig entry.
*
* We jump at plus 3 because we don't want to call QDStartup
* twice.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
	Export SetPort
	Export SetPortLoc
	Export SetPortRect
	Export SetPortSize
	Export MovePortTo
	Export SetOrigin
	Export HidePen
	Export SetPenState
	Export SetDrawMask
	Export PenNormal
	Export SolidPenPat
	Export SolidBackPat
	Export SolidPattern
	Export SetGrafProcs
	Export PPToPort
	Export ScrollRect
	Export PaintPixels

*
	longa on	; mode
	longi on
*
****************************************************************


OrigSetPort	equ $FE13DF
OrigSetPortLoc	equ $FE13FE
OrigSetPortRect	equ $FE1430
OrigSetPortSize	equ $FE1472
OrigMovePortTo	equ $FE148E
OrigSetOrigin	equ $FE14B8
OrigHidePen	equ $FE15C3
OrigSetPenState	equ $FE161E
OrigPenPat	equ $FE163F
OrigSetDrawMask	equ $FE166D
OrigBackPat	equ $FE1689
OrigPenNormal	equ $FE174D
OrigSolidPenPat	equ $FE165B
OrigSolidBackPat	equ $FE16A5
OrigSolidPattern	equ $FE16B7
OrigSetGrafProcs	equ $FE17FC
OrigPPToPort	equ $FE33F2
OrigScrollRect	equ $FE3486
OrigPaintPixels	equ $FE3682


PPToPort
	jsr LocalQDStart
	DirtyPort
	jml OrigPPToPort+3

ScrollRect
	jsr LocalQDStart
	DirtyPort
	jml OrigScrollRect+3

PaintPixels
	jsr LocalQDStart
	DirtyPort
	jml OrigPaintPixels+3

SetPort
	jsr LocalQDStart
	DirtyPort
	jml OrigSetPort+3

SetPortLoc
	jsr LocalQDStart
	DirtyPort
	jml OrigSetPortLoc+3

SetPortRect
	jsr LocalQDStart
	DirtyPort
	jml OrigSetPortRect+3

SetPortSize
	jsr LocalQDStart
	DirtyPort
	jml OrigSetPortSize+3

MovePortTo
	jsr LocalQDStart
	DirtyPort
	jml OrigMovePortTo+3

SetOrigin
	jsr LocalQDStart
	DirtyPort
	jml OrigSetOrigin+3

HidePen
	jsr LocalQDStart
	DirtyDrawState
	jml OrigHidePen+3

SetPenState
	jsr LocalQDStart
	DirtyPort
	jml OrigSetPenState+3

SetDrawMask
	jsr LocalQDStart
	DirtyMask
	jml OrigSetDrawMask+3

PenNormal
	jsr LocalQDStart
	DirtyPort
	jml OrigPenNormal+3

SolidPenPat
	jsr LocalQDStart
	DirtyPatterns
	jml OrigSolidPenPat+3

SolidBackPat
	jsr LocalQDStart
	DirtyPatterns
	jml OrigSolidBackPat+3

SolidPattern
	jsr LocalQDStart
	DirtyPatterns
	jml OrigSolidPattern+3

SetGrafProcs	jsr LocalQDStartNoBusyFlag	; don't bump busy flag - Ben 7/30/90
	DirtyPort
	tdc		; restore a-reg
	pld		; and d-reg
	jml OrigSetGrafProcs	; this doesn't start with QDStart



	Export LOCALQDStart
	Export LOCALQDStartNoBusyFlag
LOCALQDStart

	pha	; inc busy flag
	lda >BusyFlag
	inc a
	sta >BusyFlag
	pla

LOCALQDStartNoBusyFlag	; alt entry which doesn't inc busy flag

	phd	; push d on stack
	tcd	; set d
	lda 3,s	; getorig rts
	pha	; put on stack
	lda 3,s	; move orig d to on	top of rts
	sta 5,s
	pla	; pull rts off stack
	sta 1,s	; put over orig d
	tdc	; get QD D back in a
	rts	; done

	ENDP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Patch/Patch2/rdf.asm b/IIGS.601.SRC/GSToolbox/Patch/Patch2/rdf.asm
new file mode 100644
index 0000000..bec2454
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Patch/Patch2/rdf.asm
@@ -0,0 +1 @@
+
;-----------------------------------------------
;
;   Imported address
;
;-----------------------------------------------

	IMPORT QDStart2




****************************************************************
*			   *
*              Patches to Routines that	do RgnDefs	   *
*	  for ROM Version 2.0	   *
*			   *
* System Disk 2.0			   *
*			   *
* May 9, 1987   Steven E. Glass		   *
*			   *
* System Disk 2.1			   *
*			   *
* June 1987   Steven Glass		   *
*			   *
*    PutRgn expect the rgn to be put in	RgnHandleA.  StdRgn	   *
*    expected it in	RgnHandleC.  The patch copies RgnHandleC   *
*    to RgnHandleA and then jumps back into ROM.	   *
*			   *
* System Disk 2.1  July 7, 1987  Steven	Glass & Art Cabral	   *
*			   *
*    InsetRgn did not work for negative	values on some	   *
*    regions.  Problem was in InsetScan	but to patch	   *
*    we have to patch out RgnOp.		   *
*			   *
* 6/7/89	Mensch
*
* Patched rgnOp so that it functions in low memory situations
* when there is not 10k available maxblock.
*
*
* 4/4/90	Mensch
*	Must rewrite entire DoRgnOp routine
*	because it has MANY insestuous quickdraw calls that can cause
*	handles to stay locked in many instances. I will take the original
*	code and try to work some sort of magic on it to insure that the
*	two regions passed it are always unlocked.
*
****************************************************************



****************************************************************
*			   *
*              Copyright (C) 1985-1987		   *
*              All Rights Reserved		   *
*              Apple Computer, Inc.		   *
*			   *
****************************************************************

	include 'all.macros'
	include 'special.macros'
	
	include ':::qd:qdequates:qd.data.asm'
	INCLUDE ':::qd:QDEquates:core.globals1'
	INCLUDE ':::qd:QDEquates:core.globals2'
	INCLUDE ':::qd:QDEquates:region.equs'
	INCLUDE ':::qd:QDEquates:rect.equs'
	INCLUDE ':::qd:QDEquates:slab.equs'


	INCLUDE ':::qd:QDEquates:rgndefs.equs'
	
	import LocalQDStart
	Entry DoRgnOp

*******************************************************************************
;
; Following is all ROM addresses needed by this file...
RgnBEmpty	equ $FE5EB2
RgnAEmpty	equ $FE5E9B
RgnSector	equ $FE5EC9
TheRTL	equ $FE5E7A	; address of an RTL in ROM 1
BusyErr12	equ $FEFF58
BusyEC12	equ $FEFF55
ROMNotEasy	equ $FE601A

	MACRO
&lab	ROMCALL &where
&lab	phk
	pea @1-1
	pea |TheRTL-1
	jml &where
@1
	MEND

****************************************************************
*
* Procedure SectRgn(
*   srcRgnA,srcRgnB,dstRgn:RgnHandle
*   )
*
*   Calculate the intersection of two regions.
*
****************************************************************
SectRgn	PROC Export

	jsr LocalQDStart

	lda #0	; op := Sect
	jmp DoRgnOp	; it does all the work

	ENDP

****************************************************************
*
* Procedure UnionRgn(
*   srcRgnA,srcRgnB,dstRgn:RgnHandle
*   )
*
*   Calculate the union of two regions.
*
****************************************************************
UnionRgn	PROC Export

	jsr LocalQDStart

	lda #4	; op := Union
	jmp DoRgnOp	; it does all the work

	ENDP

****************************************************************
*
* Procedure DiffRgn(
*   srcRgnA,srcRgnB,dstRgn:RgnHandle
*   )
*
*   Calculate the difference A-B of two	regions.
*
****************************************************************
DiffRgn	PROC Export

	jsr LocalQDStart

	lda #2	; op := Diff
	jmp DoRgnOp	; it does all the work

	ENDP

****************************************************************
*
* Procedure XorRgn(
*   srcRgnA,srcRgnB,dstRgn:RgnHandle
*   )
*
*   Calculate the exclusive or of two regions.
*
****************************************************************
XorRgn	PROC Export

	jsr LocalQDStart

	lda #6	; op := Xor
	jmp DoRgnOp	; it does all the work

	ENDP

****************************************************************
*
* Procedure DoRgnOp;
*
*   Computes the Intersection, Difference, Union, or Xor
*   of two regions.	 Enter with Op in A.
*
*    Sect = 0	A-B Diff = 2      Union = 4      Xor = 6
*
****************************************************************
	EXPORT DoRgnOp
DoRgnOp	PROC
*              using E0Vectors

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
DstRgn	equ RTL2+3
SrcRgnB	equ DstRgn+4
SrcRgnA	equ SrcRgnB+4

	sta Op	; save the operation
	
	lda SrcRgnA,s	; get low word of SrcRgnA
	sta RgnHandleA	; save it
	lda SrcRgnA+2,s	; get high word of SrcRgnA
	sta RgnHandleA+2	; save it

	lda SrcRgnB,s	; get low word of SrcRgnB
	sta RgnHandleB	; save it
	lda SrcRgnB+2,s	; get high word of SrcRgnB
	sta RgnHandleB+2	; save it
	jsr DerefAB

	lda [RgnPtrA]	; get size of one
	cmp [RgnPtrB]	; compare to size of other
	bne NotSame	; if not the same drop to the new rgnop...

	tay
	dey
	dey
Loop	lda [RgnPtrA],y
	cmp [RgnPtrB],y
	bne NotSame
	dey
	dey
	bne Loop

; was this...
;	pha	; room for result
;	lda SrcRgnA+4,s	; get high word
;	pha	; push it
;	lda SrcRgnA+4,s	; get low word
;	pha	; push it
;	lda SrcRgnA+4,s	; get high word
;	pha	; push it
;	lda SrcRgnA+4,s	; get low word
;	pha	; push it
;	_EqualRgn	; are they equal?
;	pla	; get boolean result
;	beq NotSame	; if 0 (false), we have more work
; NOTE: If we get here then the regions are the same...

	lda Op	; get op
	and #2	; and it with 2 (Diff and Xor bit)
	bne Zero	; zero it if Sect or Union

Copy	
; This routine copies rgn <A> to dest region...
	lda SrcRgnA+2,s	; get high word
	pha	; push it
	lda SrcRgnA+2,s	; get low word
	pha	; push it
	lda DstRgn+6,s	; get high word
	pha	; push it
	lda DstRgn+6,s	; get low word
	pha	; push it
	_CopyRgn	; copy it
	bcs T1

	brl DoUnlockABNoErr

Zero	lda DstRgn+2,s	; get high word
	pha	; push it
	lda DstRgn+2,s	; get low word
	pha	; push it
	_SetEmptyRgn	; zero the destination
	bcs T1
	brl DoUnlockABNoErr

T1	brl DoUnlockABError

* load the handles from the stack onto zero page and dereference them

NotSame	
; was this...
;	lda SrcRgnA,s	; get low word of SrcRgnA
;	sta RgnHandleA	; save it
;	lda SrcRgnA+2,s	; get high word of SrcRgnA
;	sta RgnHandleA+2	; save it
;	jsr DerefA
;
;	lda SrcRgnB,s	; get low word of SrcRgnB
;	sta RgnHandleB	; save it
;	lda SrcRgnB+2,s	; get high word of SrcRgnB
;	sta RgnHandleB+2	; save it
;	jsr DerefB

* If Op = Diff and RgnB is empty, copy RgnA into DstRgn

	lda #2	; get Diff opcode
	cmp Op	; is it Diff?
	bcc UniXor	; if Op > Diff then	Union or Xor
	bne BBoxes	; if Op <> Diff, it's Sect

* Op = Diff, so check RgnB for empty

	ROMCALL RgnBEmpty	; is RgnB empty
	bpl Copy	; if it's empty, CopyRgnA

* If Op = Sect or Diff, then intersect the bounding boxes.

BBoxes	ROMCALL RgnSector	; RgnY1..RgnX2 := RgnA * RgnB

	lda RgnX1
	cmp RgnX2	; compare to X2
	bpl Empty	; if X1=X2, it's empty
	lda RgnY1	; get top
	cmp RgnY2	; if Y1 >= Y2, it's empty
	bmi NotEmpty	; so do it

* The bounding boxes don't intersect.  If Op = Sect, then return empty.
* If Op = Diff, then copy RgnA into DstRgn

Empty	lda Op	; get op
	beq Zero	; if Sect, return empty
	jmp Copy	; no, copy SrcA into DstRgn

* If Op = Sect, then check for both inputs rectangular

NotEmpty	lda Op	; is op = Sect
	bne NotEasy	; no, continue
	lda #10	; get rectangular region size
	cmp [RgnPtrA]	; compare with RgnA	length
	bne NotEasy	; no, continue
	cmp [RgnPtrB]	; compare with RgnB	length
	bne NotEasy	; no, continue

* push dstrgn and address of temprect.	Could be bad news.

	lda DstRgn+2,s	; get high word
	pha	; push it
	lda DstRgn+2,s	; get low word
	pha	; push it
	clc
	lda #0	; it's in bank 0
	pha	; push high word
	tdc	; get direct register
	adc #RgnY1	; add in offset
	pha	; push low word
	_RectRgn	; RectRgn(dstRgn,tempRect)
	bcs T2
	brl DoUnlockABNoErr

T2	brl DoUnlockABError

UniXor	ROMCALL RgnBEmpty	; is RgnB empty?
	bmi T3	; yes, copy RgnA
	brl Copy
T3	ROMCALL RgnAEmpty	; is RgnA empty?
	bmi NotEasy	; yes, copy RgnB
	lda SrcRgnB+2,s	; get high word
	pha	; push it
	lda SrcRgnB+2,s	; get low word
	pha	; push it
	lda DstRgn+6,s	; get high word
	pha	; push it
	lda DstRgn+6,s	; get low word
	pha	; push it
	_CopyRgn	; copy it
	bcs DoUnlockABError
DoUnlockABNoErr	phx
	jsr UnlockAB
	plx
	JML BusyEC12

DoUnlockABError	pha
	jsr UnlockAB
	plx
	JML BusyErr12

NotEasy	clc	; clear carry for addition
	lda [RgnPtrA]	; get RgnA length
	adc [RgnPtrB]	; add RgnB length
	asl A	; double (Quickdraw	did ADD D4,D4)
	sta PtCount	; save it

* We've taken all the shortcuts we can.  Now we pass the buck to RgnOp to do
* the real work.  The source regions are still in RgnHandleA and RgnHandleB.
* PtCount contains the maximum size we should need.  Load X	with 0 since we
* have no horizontal offset to worry about (just for cleanliness).

	ldx #0	; unnecessary unless code changes
	jsl RgnOp	; do it
	bcs RgnOpError	; RgnOp propogates errors
	lda DstRgn,s
	sta RgnHandleA
	lda DstRgn+2,s
	sta RgnHandleA+2
	jsr DerefA	; nice shortcut...
	jsl PackRgn	; call it

	PushLong BufHandle	; push handle
	_DisposeHandle	; dispose of point buffer handle
	bcs DoUnlockABError
	brl DoUnlockABNoErr

RgnOpError	pha	; save error code

	lda BufHandle
	ora BufHandle+2
	beq DontDispose
	PushLong BufHandle
	_DisposeHandle
DontDispose	jsr UnlockAB
	plx	; get error code back
	jmp BusyErr12


UnlockAB	
; modified this routine to unblock the src rgns on the stack instead
; first save the direct page...
	phd
	plx	; in the <X> register...
	tsc	; and make the stack a direct page
	tcd
	ldy #4	; offset to the handle attributes
	lda [SrcRgnA+4],y	; unlock A (account for error and jsr)
	and #$7FFF
	sta [SrcRgnA+4],y
	lda [SrcRgnB+4],y	; unlock B
	and #$7FFF
	sta [SrcRgnB+4],y
	phx	; restore direct page
	pld	; to what it was before...
	rts

DeRefAB	
	ldy #4	; lock it
	lda [RgnHandleB],y
	ora #$8000
	sta [RgnHandleB],y
DerefA
	ldy #4	; lock it
	lda [RgnHandleA],y
	ora #$8000
	sta [RgnHandleA],y

	lda [RgnHandleA]	; deref it.
	sta RgnPtrA
	lda [RgnHandleB]	; deref it.
	sta RgnPtrB
	ldy #2
	lda [RgnHandleA],y
	sta RgnPtrA+2
	lda [RgnHandleB],y
	sta RgnPtrB+2
	rts

	ENDP

****************************************************************
*
* Function RectInRgn2
*
* Change History
*
* 06 May 87       Steven Glass
*
*    This code was not handling the Rectangular region
*    correctly.  It	was trying to dispose a handle that
*    was not there and returned a random error code.
*
*    The reason it tried to dispose of the handle that was
*    not there was it looked at the wrong variable to see
*    if had been allocated.
*
*    This patch zeros the wrong variable and jumps into the
*    original code.
*
****************************************************************
	EXPORT RectInRgn2
RectInRgn2	PROC

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
Rgn	equ RTL2+3
RectPtr	equ Rgn+4
Result	equ RectPtr+4

RgnFlag	equ PtCount+2

	jsr QDStart2

	stz BufPtr
	stz BufPtr+2


	jml $FE52cB

	ENDP
;                copy rdf.patch2/putrgn
*****************************************************************
*
* Procedure PutRgn
*
* Change History   9 Jun 87
*
* Input to PutRgn is RgnHandleA.  Unfortunately, input to
* StdRgn is RgnHandleC.
*
* This patch copies	RgnHandleC to RgnHandleA and jumps into	the
* old code.
*
****************************************************************
	EXPORT iPutRgn2
iPutRgn2	PROC

OldPutRgn	equ $FE5604

	lda RgnHandleC
	sta RgnHandleA
	lda RgnHandleC+2
	sta RgnHandleA+2

	jml OldPutRgn

	ENDP

;                copy rdf.patch2/rgnop
	EXPORT iRgnOp2
iRgnOp2	PROC

RgnOpInROM	equ $FE5CD4
RgnOpInROMAlt	equ $FE5D3F

MyRgnAttributes	equ 0

	lda Op
	cmp #8
	bne @1
	brl UsePatch
@1
	jsr MakeScratchHand	; make the scratch buffer the proper size...
	jml RgnOpInROMAlt	; jump in after the patch
	
;
MyFlag	ds.W 1	; used by MakeScratch
;
;---------------------------------------------------------------
; MakeScratchHand
; This routine will create a scratch handle for qd region ops
; this handle will be alocated with 10k first, but if 10k is too large
; it will try smaller handles till it gets one it can use,
; if it can not alocate a handle of any size, it exits with an error
MakeScratchHand
FakeA	equ 0	; offset to FakeA region
FakeB	equ FakeA+18	; offset to FakeB region
Scan	equ FakeB+18	; offset to start of scan buffers
ScratchSize	equ 10280	; 10 K of space, maximum
Partition	equ 2048	; size of one partition
SmallPartition	equ 768	; Size of low mem partitions!
ScratchMaxSize	equ 10280
ScratchMinSize	equ 10280-5120	; shrink it by 5 k

	stx DH	; save horizontal offset
	stz BufHandle	; zero handle to nil
	stz BufHandle+2
	stz outscan	; zero our flag
	
	lda >MyFlag	; test to see if we can try for more memory
	beq @tryBig
	and #$001F	; lower the flag by 1
	dec a
	sta >MyFlag
	nop	; for handy hand patching...
	nop
	nop
	nop
	lda #ScratchMinSize
	sta outscan
	bra @cont1
@tryBig
	lda #ScratchMaxSize
@cont1
	pha	; save the size on the stack
	
@Loop
	ldx #ScratchHandle	; offset
	lda 1,s	; length of new handle
	jsr LocalGetNewHandle ; new, deref, lock, set size
	bcc @gotIt
; if we get here the handle is not alocated yet...
	pla	; get the old size
	cmp #ScratchMaxSize	; first time?
	bne @NoRoomAtTheInn	; If not, just explode
	lda #10	; next 10 rgnops no allocate
	sta >MyFlag
	lda #ScratchMinSize	; shrink us by 5k
	sta outscan
	pha
	nop
	nop
	nop
	nop
	bra @Loop
@NoRoomAtTheInn	sec	; just exit here I guess
	lda #$0201
	rtl
@GotIt	ply	; discard the size of the handle
	ldy #2	; boy is this routine neutral...
;
; Now do the rest of the setup stuff
	sta Scratch	; save pointer
	stx Scratch+2
	lda PtCount	; get size of BufHandle
	ldx #BufHandle	; get offset
	jsr LocalGetNewHandle
	bcc T2	; if an error, return it
	brl MemError

T2	sta BufPtr
	stx BufPtr+2
	ldy #2
	lda #4
	sta [BufPtr],y	; initialize buffer	index

* Move RgnPtrA to FakeA and expand it to a 4 point packed region if rectangular

	jsr ExpandA	; expand FakeA
	jsr ExpandB	; expand FakeB

* Initialize assorted pointers

	sec	; prepare for subtract
	lda PtCount	; get size of BufHandle
	sbc #4	; remove length and	index bytes
	and #$FFF8	; truncate to an integral # of points
	clc	; prepare for add
	adc #4	; put length and index bytes back in
	sta ListMax	; biggest we can handle

	ldy #4	; offset to first buffer dest
	sty ListPtr	; save it

	ldy #Scan	; offset to first scan buffer
	lda #MaxInt	; get MaxInt
	sta [Scratch],y	; initialize ScanA to empty
	sty ScanA	; save it in ScanA

	ldy outscan	; test our flag
	beq @theOldWay	; do it the old way


	ldy #(Scan+SmallPartition) ; offset to second scan buffer
	sta [Scratch],y	; initialize ScanB to empty
	sty ScanB	; save it in ScanB

	ldy #(Scan+SmallPartition*2) ; offset to third scan buffer
	sta [Scratch],y	; initialize ScanC to empty
	sty ScanC	; save it in ScanC

	ldy #(Scan+SmallPartition*3) ; offset to fourth scan buffer
	sty TempScan	; save it in TempScan

	ldy #(Scan+SmallPartition*4) ; offset to fifth scan buffer
	sty OutScan	; save it in OutScan
	rts
@theOldWay

	ldy #(Scan+Partition) ; offset to second scan buffer
	sta [Scratch],y	; initialize ScanB to empty
	sty ScanB	; save it in ScanB

	ldy #(Scan+Partition*2) ; offset to third scan buffer
	sta [Scratch],y	; initialize ScanC to empty
	sty ScanC	; save it in ScanC

	ldy #(Scan+Partition*3) ; offset to fourth scan buffer
	sty TempScan	; save it in TempScan

	ldy #(Scan+Partition*4) ; offset to fifth scan buffer
	sty OutScan	; save it in OutScan

	rts

UsePatch		;
****************************************************************
*
* Procedure RgnOp;
*
*   Accepts two source regions in RgnHandleA and RgnHandleB	and
*   assumes they have been dereferenced	and locked down.  It
*   creates a buffer based on PtCount.	The horizontal offset
*   used in the event of and InsetRgn call is passed in register
*   X.  The operation to perform is passed in Op.
*
*   Computes the intersection, difference, union, or xor of
*   two regions or the horizontal inset	of one region, and stores
*   the result as an unpacked array of sorted inversion points
*   in bufHandle.  Returns the number of points in PtCount.
*   BufHandle will be grown only if more space is needed.  RgnOp
*   returns an error if one is returned	from the memory manager.
*
*    Sect = 0   A-B	Diff = 2   Union = 4   Xor = 6   HInset	= 8
*
* Change History
*
* 7 July 87    SEG	   (System Disk 2.1)
*
* This proc is patched to be able to get to InsetScan
* below.  This code	is only run when the operation to perform
* is inset.  Other operations go through ROM.
*
* The code here is almost identical to the code in ROM.  We	have
* removed references to code that will not be run.
*
* We also found a bug in a error handling path.  If a memory
* error occured, the MemError routine below did a JSR to
* GetRidOfS.  GetRidOfS ends in an RTL.	 This bug still
* exists in ROM and	can be encountered when doing operations
* other than Inset.
*
****************************************************************

* We generate some scratch space - an awful process but we have to get
* the memory we need from somewhere - might as well grab it	all at once.
* Here follows the usage of that memory.


;	stx DH	; save horizontal offset
;	stz BufHandle	; zero handle to nil
;	stz BufHandle+2;
;
;	ldx #ScratchHandle	; offset
;	lda #Scratchsize	; length of new handle
;	jsr LocalGetNewHandle ; new, deref, lock, set size
;	bcc T1
;	rtl	; leave, propogating error
	
	jsr MakeScratchHand	; call the local make scratch handle and other startup stuff


	Movelong Scratch,SrcBase1 ; initialize SrcBase1

	ldy PtrA	; get PtrA
	lda [PtrBaseA],y	; NextA := first vert in A
	sta NextA	; save it
	IncYWd	; bump y to next word
	sty PtrA	; save it

	ldy PtrB	; get PtrB
	lda [PtrBaseB],y	; NextB := first vert in B
	sta NextB	; save it
	IncYWd	; bump y to next word
	sty PtrB	; save it

	lda Op	; get Op
	cmp #8	; is it Inset
	bne NxtVert	; no, continue
	lda #MaxInt	; get maxint
	sta NextB	; save it in NextB

NxtVert	lda NextA	; get NextA
	cmp NextB	; set flags on NextA - NextB
	beq Both	; they're equal, bump both
	bpl UpdateB	; B, update RgnB only
	jsr UpdateA	; A, update RgnA only
	bra Calc

UpdateA	lda NextA	; get NextA
	sta Vert	; Vert := NextA
	Movelong PtrBaseA,SrcBase1 ; establish the source base pointer
	ldy PtrA	; get PtrA
	sty Src1	; Src1 := PtrA

	ldy ScanA	; get ScanA
	sty Src2	; Src2 := ScanA

	ldy TempScan	; get TempScan
	sty Dst	; Dst := TempScan

	jsr XorScan	; XorScan(PtrA,ScanA,TempScan)
	Movelong Scratch,SrcBase1 ; put it back	where it belongs

	ldy Src1	; get Src1; y is PtrA, bu
	lda [PtrBaseA],y	; get next vert
	sta NextA	; NextA := next Vert
	IncYWd	; bump y
	sty PtrA	; save it
	ldx TempScan	; get TempScan
	lda ScanA	; get ScanA
	stx ScanA	; swap them
	sta TempScan	; like so
	rts	; return to local caller

* When we get to Both, the A register contains the next vertical.  If it
* is Maxint, we're done.

XDone	jmp Done	; relay branch

Both	cmp #MaxInt	; is it Maxint?
	beq XDone	; if so, all done
	jsr UpdateA	; update RgnA
UpdateB	lda NextB	; vert := NextB
	sta Vert	; do it

	Movelong PtrBaseB,SrcBase1 ; establish the source base pointer
	lda PtrB	; get PtrB
	sta Src1	; Src1 := PtrB

	lda ScanB	; get ScanB
	sta Src2	; Src2 := ScanB

	lda TempScan	; get TempScan
	sta Dst	; Dst := TempScan

	jsr XorScan	; XorScan(PtrB,ScanB,TempScan)
	Movelong Scratch,SrcBase1 ; put it back	where it belongs

	ldy Src1	; get Src1
	lda [PtrBaseB],y	; get next vert
	sta NextB	; NextB := next vert
	IncYWd	; bump y
	sty PtrB	; PtrB := end of scan + 2
	ldx TempScan	; get temp scan
	lda ScanB	; get ScanB
	stx ScanB	; swap them
	sta TempScan	; like so

* Calculate sect, diff, union, xor, or inset into ScanC

Calc	lda ScanA	; get ScanA
	sta Src1	; Src1 := ScanA
	lda ScanB	; get ScanB
	sta Src2	; Src2 := ScanB
	lda TempScan	; get TempScan
	sta Dst	; Dst := TempScan
	ldx Op	; fetch Op (0,2,4,6,8)
	jsr (CaseTab,x)	; execute OpScan
	bra Changes	; jump around casetab

CaseTab	dc.w 0	; SectScan'          ; address of SectScan
	dc.w 0	; DiffScan'          ; address of DiffScan
	dc.w 0	; UnionScan'         ; address of UnionScan
	dc.w 0	; XorScan'           ; address of XorScan
	dc.w InsetScan	; address of InsetScan

Changes	lda TempScan	; get TempScan
	sta Src1	; Src1 := TempScan
	lda ScanC	; get ScanC
	sta Src2	; Src2 := ScanC
	ldy OutScan	; get offset to OutScan
	sty Dst	; Dst := OutScan
	jsr XorScan	; XorScan(TempScan,ScanC,OutScan)
	ldx TempScan	; get TempScan
	lda ScanC	; get ScanC
	stx ScanC	; swap them
	sta TempScan	; like so

	ldy OutScan	; where the data was placed
	sty Src1	; index we'll use to fetch it
	ldy ListPtr	; so the comparison	will work
	bra OutTest	; go to loop start

OutLoop	lda [Scratch],y	; get H coord from OutScan
	sta Temp	; save it
	IncYWd	; bump y to next H offset
	lda [Scratch],y	; get next H coord from OutScan
	sta Temp+2	; save it too
	IncYWd	; bump y again
	sty Src1	; tuck it away

	ldy ListPtr	; get output destination offset
	lda Vert	; get V back
	sta [BufPtr],y	; save it
	IncYWd	; bump y
	lda Temp	; get H
	sta [BufPtr],y	; save it
	IncYWd	; bump y
	lda Vert	; get V value
	sta [BufPtr],y	; save it
	IncYWd	; bump y
	lda Temp+2	; get H
	sta [BufPtr],y	; save it
	IncYWd	; bump y
	sty ListPtr	; save it

OutTest	cpy ListMax	; set flags on ListPtr-ListMax
	bcc SizeOk	; if ListMax > ListPtr, continue

* The point buffer is full.  Grow it if	Flags <> 0.

	lda ListMax	; get current useful size
	clc	; clear carry
	adc #256	; bump by 256 bytes
	sta ListMax	; the new value, already trimmed
	ldx #BufHandle	; get offset
	jsr LocalResizeHandle ; resize it, relock it
	bcs MemError
	sta BufPtr	; save new pointer
	stx BufPtr+2
SizeOk	ldy Src1	; get offset to next value from OutScan
	lda [Scratch],y	; get the next H coord
	cmp #MaxInt	; is it MaxInt?
	bne OutLoop	; no, go for more
	jmp NxtVert	; loop for next vert

MemError	pha	; save error
	jsl GetRidOfS
	pla	; get error back
	sec	; ensure error flag	is set
	rtl

Done	ldy #2	; offset to ListPtr	index
	lda ListPtr	; get size
	sta [BufPtr],y	; save size
	lsr A	; divide by 2
	lsr A	; divided by 4
	dea	; minus 1 to generate # of points
	sta PtCount	; update it
GetRidOfS
	pei ScratchHandle+2
	pei ScratchHandle
	_DisposeHandle	; get rid of it
	rtl	; get out of here




****************************************************************
*
* Procedure ExpandA
*
* Change History
*
* 7 July 87    SEG	   (System Disk 2.1)
*
* This proc is patched to be able to get to InsetScan
* below.  This code	is only run when the operation to perform
* is inset.  Other operations go through ROM.
*
****************************************************************
ExpandA

	lda #10	; size of rectangular region
	cmp [RgnPtrA]	; set flags on 10-length
	bne NotRectA	; if not Rect, deal	with that
	Movelong Scratch,PtrBaseA ; pointer to first fake region

	ldy #2
	lda [RgnPtrA],y	; BBox.Top
	sta [PtrBaseA]	; V 1
	ldy #4
	lda [RgnPtrA],y	; BBox.Left
	ldy #2
	sta [PtrBaseA],y	; H 1.1
	ldy #10
	sta [PtrBaseA],y	; H 2.1
	ldy #6
	lda [RgnPtrA],y	; BBox.Bottom
	ldy #8
	sta [PtrBaseA],y	; V 2
	lda [RgnPtrA],y	; BBox.RIght
	ldy #4
	sta [PtrBaseA],y	; H 1.2
	ldy #12
	sta [PtrBaseA],y	; H 2.2
	lda #MaxInt
	ldy #6
	sta [PtrBaseA],y	; store MaxInt
	ldy #14
	sta [PtrBaseA],y	; store MaxInt
	ldy #16
	sta [PtrBaseA],y	; store MaxInt
	stz PtrA	; zero PtrA
	rts	; get outa here

NotRectA	Movelong RgnPtrA,PtrBaseA ; use the actual pointer
	lda #10	; get offset to data
	sta PtrA	; save it
	rts	; get outa here


****************************************************************
*
* Procedure ExpandB
*
* Change History
*
* 7 July 87    SEG	   (System Disk 2.1)
*
* This proc is patched to be able to get to InsetScan
* below.  This code	is only run when the operation to perform
* is inset.  Other operations go through ROM.
*
****************************************************************
ExpandB

FakeOff	equ 18	; offset in Scratch	to FakeB

	lda #10	; size of rectangular region
	cmp [RgnPtrB]	; set flags on 10-length
	bne NotRectB	; if not Rect, deal	with that
	Movelong Scratch,PtrBaseB ; point us at	Scratch region

	ldy #2	; offset to BBox
	lda [RgnPtrB],y	; BBox.Top
	ldy #FakeOff
	sta [PtrBaseB],y	; V 1
	ldy #4
	lda [RgnPtrB],y	; BBox.Left
	ldy #2+FakeOff
	sta [PtrBaseB],y	; H 1.1
	ldy #10+FakeOff
	sta [PtrBaseB],y	; H 2.1
	ldy #6
	lda [RgnPtrB],y	; BBox.Bottom
	ldy #8+FakeOff
	sta [PtrBaseB],y	; V 2
	ldy #8
	lda [RgnPtrB],y	; BBox.RIght
	ldy #4+FakeOff
	sta [PtrBaseB],y	; H 1.2
	ldy #12+FakeOff
	sta [PtrBaseB],y	; H 2.2
	lda #MaxInt
	ldy #6+FakeOff
	sta [PtrBaseB],y	; store MaxInt
	ldy #14+FakeOff
	sta [PtrBaseB],y	; store MaxInt
	ldy #16+FakeOff
	sta [PtrBaseB],y	; store MaxInt
	lda #FakeOff	; get fake offset
	sta PtrB	; offset to B
	rts	; get outa here

NotRectB	Movelong RgnPtrB,PtrBaseB ; use the real region
	lda #10	; get offset to data
	sta PtrB	; save it
	rts	; get out here



****************************************************************
*
* Procedure InsetScan
*
*   Accepts offsets	into Scratch buffer	in Src1 and
*   Dst.  It then horizontally insets an inversion scan by DH.
*   The input scan is a sorted array of	integers terminated	by
*   MaxInt.  The output scan contains the inversion coordinates
*   for the inset.
*
* Change History
*
* 7 July 87    SEG	   (System Disk 2.1)
*
* When outsetting a	region, the region was getting disfigured
* when inversion points needed to cancel out.  The problem
* was a misplaced label below.  All the	rest of the
* code in this file	is here because it was necessary to
* perform the patch.
*
* 25 Jan 88    GCP	   (System Disk 3.2)
*
* We weren't checking for matching points when we did
* InsetScan.  We are now.
*
****************************************************************
InsetScan

	lda DH	; is dh negative?
	bmi Outset	; yes, outset
Inset	ldy Src1	; get first offset
	lda [SrcBase1],y	; get first value
	sta Temp	; save it
	cmp #MaxInt	; check for terminator
	beq DoneOutset	; quit when found

	IncYWd	; bump y
	lda [SrcBase1],y	; get second value
	IncYWd	; bump y again
	sty Src1	; save it

	sec	; prepare for subtract
	sbc DH	; subtract from right
	sta Temp+2	; save it also

	lda Temp	; get first back
	clc	; prepare for add
	adc DH	; add to left
	sta Temp	; save it
	cmp Temp+2	; set flags on left-right
	bpl Inset	; if left >= right,	skip both

	ldy Dst	; get destination offset
	sta [Scratch],y	; save first
	IncYWd	; bump y
	lda Temp+2	; get first back
	sta [Scratch],y	; save second
	IncYWd	; bump y
	sty Dst	; save pointer

	bra Inset	; loop entire scan

DoneOut	sty Src1	; update it
DoneOutset	ldy Dst	; get destination pointer
	lda #MaxInt	; get end of scan
	sta [Scratch],y	; mark it
	IncYWd	; bump y
	sty Dst	; there!
	rts	; All done!

* each pair of coords, outset them and cancel if they cross

Outset	lda #-MaxInt	; set oldright
OutsetLoop	sta OldRight	; to -Maxint
	ldy Src1	; get next offset
	lda [SrcBase1],y	; load next left value
	IncYWd	; bump it
	sta Temp	; save it
	cmp #MaxInt	; check for terminator
	beq DoneOut	; if it is, we're done
	lda [SrcBase1],y	; get right value
	IncYWd	; bump y
	sty Src1	; save it

	ldy Dst	; get ready for store
	sec	; prepare for subtract
	sbc DH	; right-DH
	sta Temp+2	; save it
	lda Temp	; get left back
	clc	; prepare for add
	adc DH	; add to left
	cmp OldRight	; is left <= OldRight
	beq DisposePoints	; added 25 Jan 88 GCP
	bpl OutOk	; no, continue
DisposePoints	DecYWd	; decrement Dst by 2
	bra OutOk2	; and continue
OutOk	sta [Scratch],y	; save left point
	IncYWd	; bump y

;
; this is the line that changed.  Label	OutOK2 moved from
; next line to this	one.
;
OutOK2	lda Temp+2	; get right back
	sta [Scratch],y	; save right point
	IncYWd	; bump y
	sty Dst	; save it
	bra OutsetLoop	; loop for entire scan



****************************************************************
*
* Procedure XorScan
*
*   Accepts offsets	into Scratch buffer	in Src1, Src2, and
*   Dst.  It then forms the exclusive or of two inversion scans.
*   Each input scan	is a sorted array of integers terminated by
*   MaxInt.  The output scan contains all input coordinates	from
*   each, but with duplicate pairs cancelled.  It also is
*   terminated by MaxInt.
*
* Change History
*
* 7 July 87    SEG	   (System Disk 2.1)
*
* This proc is patched to be able to get to InsetScan
* below.  This code	is only run when the operation to perform
* is inset.  Other operations go through ROM.
*
****************************************************************
XorScan

	ldy Src1	; get offset to A
	lda [SrcBase1],y	; get Next A
	sta Next1	; save it
	IncYWd	; bump y
	sty Src1	; save pointer

	ldy Src2	; get next B offset
	lda [Scratch],y	; get next B
	sta Next2	; save it
	IncYWd	; bump y
	sty Src2	; save it

Next	ldy Dst	; set up the y register
	lda Next2	; get second
	cmp Next1	; set flags on Next2-Next1
	beq Equal	; the same, so cancel
	bpl Less1	; if Next1 < Next2,	take from 1

Less2	sta [Scratch],y	; save the second value
	IncYWd	; bump Dst
	sty Dst	; and save it

	ldy Src2	; get offset to second
	lda [Scratch],y	; get next value
	sta Next2	; save it
	IncYWd	; bump y
	sty Src2	; save it

	Bra Next	; jump right in there

Less1	lda Next1	; get first back
	sta [Scratch],y	; put it
	IncYWd	; bump Dst
	sty Dst	; and save it

	ldy Src1	; get offset to first
	lda [SrcBase1],y	; get next value
	sta Next1	; save it
	IncYWd	; bump y
	sty Src1	; save it

	bra Next	; jump back in there

Equal	cmp #MaxInt	; all done?
	bne XorScan	; if so, we're cool
	sta [Scratch],y	; save terminator, y already = Dst
	IncYWd	; probably not necessary
	sty Dst	; nor this either
	rts	; go home
; go home


****************************************************************
*
* ResizeHandle
*
****************************************************************
LocalResizeHandle		;
* enter with pointer to handle on zero page in x

* Sample usage
*
*     lda NewHandleSize
*     ldx #RgnHandleA
*     jsr ResizeHandle
*     sta RgnPtrA
*     stx RgnPtrA+2

	pha	; push size (02)
	pea 0	; push 0 for high word of size (04)
	pha	; push low word of size (06)
	jsr LocalUnlockHandle ; pass X as pointer

* UnlockHandle leaves a copy of the handle in Temp for us.	Long word size
* is still on the stack

	pei Temp+2	; push handle high (08)
	pei Temp	; push handle low (0A)
	_SetHandleSize	; handle size is at	top of stack (02)
	bcs Error	; we found an error, A & X are invalid

NewEntry		;

	jsr LocalQuickDeref	; handle still in Temp, redereference it
	sta Temp	; pointer is in A &	X
	stx Temp+2
	pla	; get size back (00)
	sta [Temp]	; set size for regions, invpt buffers
	lda Temp	; pointer is in A &	X
	rts

Error	ply	; error in A, carry	is still set (00)
	ldx #$FFFF	; invalidate pointer
	rts


****************************************************************
*
* GetNewHandle
*
* This routine is not itdentical to what is in the ROM.
* It is different in that it does not branch to NEWEntry (a
* part of resize handle) since that is not in the patch.
*
* Instead, it has the part of NewENTRY that matters in line
* here.
*
****************************************************************
LocalGetNewHandle		;


* It accepts a size	in A and an offset to the zero page handle variable
* in X.  Upon return it has initialized	a new handle, dereferenced it,
* and set the first	two bytes of the handle data to the length of the
* handle, which is what regions and buffers want.  Because it sets the
* length it assumes	the size (in A) will never be less than	2 bytes.
* It puts a copy of	the new handle into	the location pointed at by X.
* The dereferenced pointer is returned in A and X.

	pha	; save size
	phx	; save offset
	pea 0	; make room for result
	pea 0
	pea 0	; high word of count
	pha	; push the requested size
	pei UserID
	pea MyRgnAttributes
	pea 0	; push location requirements
	pea 0
	_NewHandle	; allocate a new one
	ply
	sty Temp
	ply
	sty Temp+2
	bcs HandleError	; if an error, clean up

	plx	; get offset back
	sty 2,x	; save high word to	real handle
	ldy Temp	; get low word back
	sty 0,x	; save low word to real handle

* The size is still	on the stack.  This	now looks like we've just resized
* a handle, so branch upwards and use the code we've already written.
*
* This is where it branched to NewENTry

	jsr LocalQuickDeref	; handle still in Temp, redereference it
	sta Temp	; pointer is in A &	X
	stx Temp+2
	pla	; get size back (00)
	sta [Temp]	; set size for regions, invpt buffers
	lda Temp	; pointer is in A &	X
	rts

HandleError	ply	; discard offset
	ply	; discard size
	rts


****************************************************************
*
* DerefHandle
*
****************************************************************
LocalDerefHandle		;

* enter with zero page offset to src in	X

* sample usage:
*
*     ldx #RgnHandleA
*     jsr DerefHandle
*     sta RgnPtrA
*     stx RgnPtrA+2

	lda 0,x
	sta Temp
	lda 2,x
	sta Temp+2

LocalQuickDeref		; ; enter here if Temp has handle already

* sample usage:
*     jsr QuickDeref	; Temp still has handle
*     sta RgnPtrA
*     stx RgnPtrA+2

* handle is in Temp; lock it down

	ldy #4
	lda [Temp],y
	ora #$8000
	sta [Temp],y

* dereference it, leaving low word in A	and high word in X

	ldy #2
	lda [Temp],y
	tax
	lda [Temp]
	rts


****************************************************************
*
* Procedure UnlockHandle
*
****************************************************************
LocalUnlockHandle		;

* enter with zero page offset to handle	in x

* Sample usage
*
*     ldx #RgnHandleA
*     jsr UnlockHandle

	lda 0,x
	sta Temp
	lda 2,x
	sta Temp+2

* unlock it

	ldy #4
	lda [Temp],y
	and #$7FFF
	sta [Temp],y

* leave with Temp still holding the handle so related routines
* can use it

	rts



	ENDP
;                copy rdf.patch2/maprgn
****************************************************************
*
* MapRgn2
*
* 07 Jul 87    SEG
*
* Maprgn and PutRgn	did not agree on the location of where
* the input to putrgn should be.  This was because of a change
* made to the region drawing routines after put rgn was
* written.  This change puts a copy of the handle in
* RgnHandleA and RgnHandleC instead of just RgnHandleA.
* This should make PutRgn happy.
*
****************************************************************
	EXPORT MapRgn2
MapRgn2	PROC

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
ToRectPtr	equ RTL2+3
FromRectPtr	equ ToRectPtr+4
Rgn	equ FromRectPtr+4

IntoROM	equ $FE6248


	jsr QDStart2


	lda Rgn,s
	sta RgnHandleC
	lda Rgn+2,s
	sta RgnHandleC+2

	jml IntoROM

	ENDP

	END

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Patch/Patch2/sane.asm b/IIGS.601.SRC/GSToolbox/Patch/Patch2/sane.asm
new file mode 100644
index 0000000..ff7c098
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Patch/Patch2/sane.asm
@@ -0,0 +1 @@
+****************************************************************
*
*	Patch to SANE
*	for Version 2.0 of ROM
*
*
*	Copyright (C) 1987
*	All Rights Reserved
*	Apple Computer, Inc.
*
*
*
* System Disk 2.0
*
* Version 2.1    27	Apr 87    Kenton Hanson & Steven Glass
*
* 20-Dec-90	Dave Lyons
*
* Rolled version to $8300 without changing anything (making
* the ROM 1 vs. ROM 3 versions match for 6.0).
*
* 5-Feb-92	Dave Lyons
*
* Version $0300 for 6.0 final.
*
* 6-May-93	Jim Murphy
*
* Version $0301 for 6.0.1 final. Fixed classify bug in FXPWRI.
*
****************************************************************
*               keep sane2/sane2.obj


SaneVersionNum	equ $0301


ToBusyStrip	equ $E10180
ToStrip	equ $E10184



;                copy sane2/call.table
	EXPORT Sane2CallTable
Sane2CallTable	PROC
	import sanebootinit
	import saneversion
	import sanepatch
	import ElemsPatch

TheStart
	DC.L (TheEnd-TheStart)/4
	DC.L SaneBootInit-1
	DC.L 0	; SaneStartup-1'
	DC.L 0	; SaneShutdown-1'
	DC.L SaneVersion-1
	DC.L 0	; SaneReset-1'
	DC.L 0	; SaneStatus-1'
	DC.L 0	; SaneNotImp-1'
	DC.L 0	; SaneNotImp-1'

	DC.L SanePatch-1	; Eight16-1'
	DC.L 0	; DecStr-1'
	DC.L ElemsPatch-1	; Elems816-1

TheEnd

	ENDP
;                copy sane2/patch
****************************************************************
*
* SANEPatch
*
* Change history
*
* For System Disk 2.0
*
* Corrects a problem in Comp to X bug for certain large numbers, i.e.
* comps that require more than three words to represent their absolute
* integer value.  Fix simply zeros word	122 in SANE's zero page work area.
*
* Corrects Muls problem by replacing Muls (or any non MulX)	with a s2x
* followed by a mulx.
*
* Fir System Disk 2.1
*
* June 24, 1987  KLH
*
* Fix double rounding error in mulD patch.
*
****************************************************************
*SANEpatch      Private
SANEpatch	PROC

SANE_Code	equ $FEd3b8

OrigD	equ 1
RTL1	equ OrigD+2
RTL2	equ RTL1+3
opword	equ RTL2+3
LastArg	equ opword+2
MidArg	equ LastArg+4

x1	equ 246	; last ten bytes of	SANE's direct page

	phd	; push direct Register on stack
	tcd	; set direct page to SANE's
	stz 122	; initialize word in zero page

*******************************************************************
*
*        above statement corrects large	x to comp error
*
*******************************************************************

	lda opword,s	; get opword
	tax	; save in x
	and #$1f	; mask in operation
	cmp #$04	; check for multiply
	bne done	; not a multiply, done!

	txa	; get opword into 'a'
	and #$0700	; mask in source's numeric format 
	beq done	; mulX, done!

	tax	; save source's numeric format
	lda MidArg+2,s	; get the msb of the MidArg
	pha	; push it onto the stack
	lda MidArg+2,s	; get the lsb of the MidArg
	pha	; push it onto stack
	lda #0	; msb of temp extended address
	sta MidArg+6,s	; store it in stack	frame
	pha	; push it onto stack
	clc
	tdc	; Get SANE's direct page
	adc #x1	; add relative location in SANE's direct
	sta MidArg+6,s	; put lsb of address of x1 into MidArg
	pha	; push lsb of address of x1 onto stack
	txa	; get source format	code
	ora #$000E	; add opword for type to X
	pha
	lda #$04	; opcode of MulX
	sta opword+10,s	; put new opword into stack frame

; added to fix double rounding

	lda 28	; get enviornment word
	and #$C0C0	; mask out precision cntl and rounding
	sta 244	; save pc and rd
	eor 28	; zero pc and rd
	sta 28	; store in store in	env word

; end first part of	fix

	tdc	; restore 'a' register
	jsl ToSANE

; second part of fix to rounding

	lda 28	; get environment word
	ora 244	; restore pc and rd
	sta 28	; store in environment word.

; end fix.

done	tdc	; restore 'a' register
	pld	; restore direct Register
	jml SANE_Code

	ENTRY ToSANE
ToSANE		;
	jsl SANE_Code	; call the real routine
	rtl

	ENTRY ToSANECode
ToSANECode		;
	jsl SANE_Code	; call the real routine
	rtl

	ENDP

*** Added - 6-May-93 JCM

****************************************************************
*
* ElemsPatch
*
* Change History
*
* 6-May-93 JCM - New for System Disk 6.0.1
*
* Corrects a problem in FXPWRI where <Src_Class was being checked to
* see what the integer exponent was classified as without actually having
* it classified. This fixes the problem with lockups in the AWGS spreadsheet.
*
****************************************************************

ElemsPatch	PROC

Elems_Code01	equ $FEEF15	;Elem816 entry point in ROM 01 SANE

OrigD	equ 1
RTL1	equ OrigD+2
RTL2	equ RTL1+3
OpWord	equ RTL2+3
DstArg	equ opword+2
SrcArg	equ DstArg+4

SourceClass	equ $6A	;on SANE DP

	phd
	
	tcd	;swap in SANE's DP
	
	lda OpWord,s	;get opword
	and #$1F	;just get the operation
	cmp #$10	;is it FXPWRI?
	bne @doneElemPatch	; aparently not

* Assume that the integer exponent is normalized.

	ldy #0	;signal normalized

	lda SrcArg,s	;get the integer exponent so we can classify it
	bne @saveClass	; it's already classified as normalized	

	dey	;signal it's zero ($FF)

@saveClass	sty <SourceClass	;we overwrite Src_Sign, but it doesn't matter

@doneElemPatch	tdc	;let SANE know where its DP is

	pld

	jmp >Elems_Code01	;let SANE do all of the dirty work

	ENDP

*** End - 6-May-93 JCM


****************************************************************
*
* SaneVersion
*
****************************************************************
*SaneVersion    Private
SaneVersion	PROC

RTL1	equ 1
RTL2	equ RTL1+3
Result	equ RTL2+3

	lda #SaneVersionNum	; get MT version #
	sta Result,s	; pass to caller

****************************************************************
*
* SaneBootInit
*
****************************************************************
	entry SaneBootInit
SaneBootInit	lda #0
	clc
	rtl

	ENDP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Patch/Patch2/scheduler.pch b/IIGS.601.SRC/GSToolbox/Patch/Patch2/scheduler.pch
new file mode 100644
index 0000000..15b39a3
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Patch/Patch2/scheduler.pch
@@ -0,0 +1 @@
+**********************************************************************
*
* Scheduler Tool Patch
*
* Copyright (C) 1990 Apple Computer, Inc.
* All Rights Reserved.
*
**********************************************************************
*
* 20-Dec-90	Dave Lyons
*
* Created this file (scheduler was not patched on ROM 1 before).
* Changed version to $8300 so it can match ROM 3 for 6.0.
*
* 5-Feb-92	Dave Lyons
*
* Version $0300 for 6.0 final.
*
**********************************************************************

SchedulerVersion	equ $0300

****************************************************************
*
* CALL TABLE
*
****************************************************************
SchedCallTable	PROC EXPORT

	import SchVersion

TheStart	DC.L (TheEnd-TheStart)/4
	dc.L 0	;SchBootInit-1	; 1
	dc.L 0	;SchAppInit-1	; 2
	dc.L 0	;SchApTerm-1	; 3
	dc.L SchVersion-1		; 4
	dc.L 0	;SchReset-1	; 5
	dc.L 0	;SchStatus-1	; 6
	dc.L 0	;oEndCall0-1	; 7   reserved
	dc.L 0	;oEndCall0-1	; 8   reserved
	dc.L 0	;SchAddTask-1	; 9
	dc.L 0	;SchFlush-1	; 10
TheEnd
	EndP


SchVersion	proc export

	lda #SchedulerVersion
	sta 7,s
	lda #0
	clc
	rtl

	endp

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Patch/Patch2/slab.asm b/IIGS.601.SRC/GSToolbox/Patch/Patch2/slab.asm
new file mode 100644
index 0000000..d4d11b7
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Patch/Patch2/slab.asm
@@ -0,0 +1 @@
+	title 'QD Slab Patch        GS ROM 2 Patch'
****************************************************************
*
*	  Slab Patch for Rom2
*
*
* Contents:
*
* IntallSlabPatches
*
*
* Change History
*
* 09 May 87	Steven Glass
*
* First added to patch for system disk 2.0
*
* 05 Dec 88	Steven Glass
*
* Removed patch from file and just installed patch that
* is linked from rom source.
*
* 08 Dec 88	Steven Glass
*
* Patched additional routines.
*
****************************************************************


****************************************************************
*			   *
*              Copyright (C) 1985-1988		   *
*              All Rights Reserved		   *
*              Apple Computer, Inc.		   *
*			   *
****************************************************************


	include 'all.macros'


	INCLUDE ':::qd:QDEquates:core.globals1'
	INCLUDE ':::qd:QDEquates:core.globals2'
	INCLUDE ':::qd:QDEquates:region.equs'
	INCLUDE ':::qd:QDEquates:rect.equs'
	INCLUDE ':::qd:QDEquates:slab.equs'
	INCLUDE ':::qd:QDEquates:conics.equs'
	INCLUDE ':::qd:QDEquates:qd.data.asm'


****************************************************************
*
* StdRgn
*
* Common region routine that is central	point for
* all region drawing routines.
*
* When control gets	here, all inputs are on zero page.
*       TheRgn is kept at RgnC and is already locked and
*              dereferenced.
*       ThePat (if any) is in FillPat
*       WhatToDo is	in DrawVerb
*
*
* External Refs:
	import CommonSlabSetup
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* Change History
*
* 11 Dec 88	Steven Glass
*
* This is part of the patch because it is the only way to
* get at the routine DrawRgn.  DrawRgn is called by
* CommonSlabSetup.  Neither routine is vectored.
*
* DrawRgn needs to be patched so that it will call
* the new routines that set up the pattern and mask slices
* so the new slab routines can be used.
*
****************************************************************
iStdRgn	PROC EXPORT
	lda DrawVerb
	bne UseNewCode

	jml $FE42A1

UseNewCode

	lda #RgnNoun
	sta DrawNoun	; put on zp too!!!
	jsl PutPictStuff	; inputs on zp and in a-reg
	bcc NoPicErr
	rtl	; return the error

NoPicErr	jmp CommonSlabSetup

	ENDP


	END

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Patch/Patch2/sound.asm b/IIGS.601.SRC/GSToolbox/Patch/Patch2/sound.asm
new file mode 100644
index 0000000..144f71e
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Patch/Patch2/sound.asm
@@ -0,0 +1 @@
+****************************************************************
***			 ***
***          Sound Patch		 ***
***          For Version 2.0 of ROM		 ***
***          Copyright Apple Computer, Inc. 1985-1989	 ***
***          All Rights Reserved		 ***
***			 ***
***			 ***
*** Version 2.0 in ROM		 ***
***			 ***
*** Version 2.1 for	system.disk version	3.1	 ***
***    August 27, 1987		 ***
***    Gus Andrade			 ***
***			 ***
*** Version 2.2 for	system.disk 3.1.1		 ***
***    October 13, 1987		 ***
***    Steven Glass			 ***
***			 ***
***    Installation	code removed and patch linked with	 ***
***    other system	patches.		 ***
***			 ***
***    Dummy BootInit call placed in table so code	 ***
***    can init properly.		 ***
***			 ***
***    Duplicate equate for IRQ_Volume removed in	 ***
***    favor of value in sysEqus (E1Vectors)	 ***
***			 ***
*** Version 2.3 for system disk 3.2 		 ***
***     May 11, 1988		 ***
***     Don Marsh			 ***
***			 ***
***     Patched Sound Tools' BootInit call to initialize	 ***
***     the "MidiInputPoll" vector to an RTL.	 ***
***			 ***
***     June 15, 1988  Harry Yee		 ***
***			 ***
***     Prototype bit taken out of version number.	 ***
***			 ***
*** Version 2.4 for system disk 4.0		 ***
***			 ***
***     Changed location of midi poll vector.	 ***
***			 ***
***
***
*** Version 3.1 for system disk 5.0
*
*
*   20 May 89	Matt Denman
*
*       Patched out interrupt handler to fix two bugs:
*
*       1.  If used in swap mode and only 2 buffers, 2nd
*           was not played.
*
*       2.  If using stero and not balenced the last buffer
*           not played on right channel.
*
*       Re-orgainzed patch so that code in ROM is linked
*       rather than included.
*
*
*
* 2/7/90	Mark Cecys
*
* Above fix (#1) caused the 'LastBlock' to not be set when 'NextWave' is used.
*
* 2/20/90	Harry Yee
*
* MidiInputPoll for being defined wrong in the equate file E16.MIDI. We define
* it here correctly with the name NewMidiInputPoll.
*
* 3/6/90	Harry Yee
* Took out the above change. The culprit was in All.Macros with the macro
* _MidiInputPollVector. It was JSLing to the location $E11dd8, which belongs
* to the serial firmware. It now JSLs to $E101B2.
*
* 08 Aug 90	Braz
*
* Changed files StartSound.aii and StartPlaying.aii
* to fix problems playing sounds two buffers or less in length
* using FFSetUpSound and FFStartPlaying
*
****************************************************************

	Include 'all.macros'
	Include 'E16.MIDI'
	Include ':::Sound:Snd.Equ.aii'


;
;
****************************************************************
;
; spatch.equ    This module contains all of the equates used by
;               the	routines in the sound tools patch file
;
****************************************************************
;
		;  MIDI Tool Set
sgaddh	equ $C03F	; sound Glu address	high
;
	export osctable:equ
osctable	equ $FF40F0	; oscillator xlate table
	export gentable:equ
Gentable	equ $FF4100	; generator table.
	export gcb_xlate:equ
gcb_xlate	equ $FF4120	; gen. to gcb entry	addr xlate table
SndEndcall	equ $FF3E54	; EndCall entry point for sound tools
SndOEndcall	equ $FF3E55	; Endcall entry without PLD
;;;NewMidiInputPoll	equ $E11DD8
;

;-----------------------------------------------
;
;   Forward address	and entries
;
;-----------------------------------------------


*****************************************************************
*
* SoundCallTable
*
*****************************************************************
	EXPORT SoundCallTable
SoundCallTable	PROC


	Import SoundBootInit
	Import st_versin
	Import stopsound
	Import StartSound
	Import SetUpSound
	Import StartPlaying
	Import SetUpParam
	Import ReadParam
	Import SoundStartup


Funct_1	DC.L num_funct/4	; number of functions
	DC.L SoundBootInit-1 ; function 1
	DC.L SoundStartup-1	; function 2
	DC.L 00000000	; function 3
	DC.L st_versin-1	; function 4
	DC.L 00000000	; function 5
	DC.L 00000000	; function 6
	DC.L 00000000	; function 7
	DC.L 00000000	; function 8
	DC.L 00000000	; function 9
	DC.L 00000000	; function A
	DC.L 00000000	; function B
	DC.L 00000000	; function C
	DC.L 00000000	; function D
	DC.L StartSound-1	; function E
	DC.L stopsound-1	; function F
	DC.L 00000000	; function 10
	DC.L 00000000	; function 11
	DC.L 00000000	; function 12
	DC.L 00000000	; function 13
	DC.L 00000000	; function 14
	DC.L SetUpSound-1	; function 15 
	DC.L StartPlaying-1 ; function 16 
	DC.L SetUpParam-1	; function 17
	DC.L ReadParam-1	; function 18
;
num_funct	equ *-Funct_1	; number of functions
;
	ENDP


*****************************************************************
*
* SoundBootInit
*
* This routine is called by the tool locator when this patch
* is installed.
*
* Added 13 Oct 87	 Steven Glass
*
* 13 May 88	Harry Yee and Don Marsh
*
* Added initialization of MidiInputPoll vector.
*
*****************************************************************
	EXPORT SoundBootInit
SoundBootInit	PROC

	lda #$6B	; RTL
	sta MidiInputPoll
	
	lda #0
	clc
	rtl

	ENDP



SoundStartup	PROC
		
	Import Fsynth_irq

	tax	; save incoming WAP
	lda 7,s	; put input on stack again 
	pha
	txa	; get it back
	jsl callSoundStartUp
	pha	; save error code
	
	PushLong #fsynth_irq	; address of sound interrupt handler
	_SetSoundMIRQV
	
	plx	; get error code in x
	ldy #2	; strip 2
	jml ToStrip
	
callSoundStartUP
	jsl $FF3F89
	rtl
	
	ENDP
	
	

	EXPORT st_versin
st_versin	PROC
****************************************************************
*
* Version number tool returns the current Sound Tool
* version #.
*
*    Called:  pea 0	; return value placeholder
*             Toolcall 8,4
*
* Returns: X,Y unchanged.  Version on stack
*
*
****************************************************************
;
;
	longa on	;
	longi on
	lda #Version_patch	; get vers#
	sta $07,s	; place in stack
	ldy #0000	; jump to endcall in rom
	jmp >SndOEndcall	;
;
	ENDP
;
	
	END

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Patch/Patch2/special.macros b/IIGS.601.SRC/GSToolbox/Patch/Patch2/special.macros
new file mode 100644
index 0000000..373cb4e
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Patch/Patch2/special.macros
@@ -0,0 +1 @@
+ MACRO
&lab IncYWd
&lab iny
 iny
 MEND
 MACRO
&lab DecYWd
&lab dey
 dey
 MEND
 MACRO
&lab movelong &from,&to
&lab lda &from
 sta &to
 lda &from+2
 sta &to+2
 MEND
 
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Patch/Patch2/strip.asm b/IIGS.601.SRC/GSToolbox/Patch/Patch2/strip.asm
new file mode 100644
index 0000000..56cd17e
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Patch/Patch2/strip.asm
@@ -0,0 +1 @@
+**********************************************************************
*
* STRIP.ASM
*
* Copyright (C) 1988
* Apple Computer, Inc.
* All Rights Reserved
*
* Author:  Steven Glass
*
* This file contains the equates of the strip routines in 
* ROM 2.0
*
**********************************************************************

	include ':::sys.equs.asm'


	EXPORT OBUSYEC2:EQU
	EXPORT OBUSYEC4:EQU
	EXPORT OBUSYEC6:EQU
	EXPORT OBUSYEC8:EQU
	EXPORT OBUSYEC10:EQU
	EXPORT OBUSYEC12:EQU
	EXPORT OENDCALL2:EQU
	EXPORT OENDCALL4:EQU
	EXPORT OENDCALL6:EQU
	EXPORT OENDCALL8:EQU
	EXPORT OENDCALL10:EQU
	EXPORT OENDCALL12:EQU	; added 30 Mar 89
	EXPORT OENDCALL14:EQU
	EXPORT OENDCALL16:EQU
	EXPORT BUSYEC2:EQU
	EXPORT BUSYEC4:EQU
	EXPORT BUSYEC6:EQU
	EXPORT BUSYEC8:EQU
	EXPORT BUSYEC10:EQU
	EXPORT BUSYEC12:EQU
	EXPORT ENDCALL2:EQU
	EXPORT ENDCALL4:EQU
	EXPORT ENDCALL6:EQU
	EXPORT ENDCALL8:EQU
	EXPORT ENDCALL10:EQU
	EXPORT ENDCALL12:EQU
	EXPORT ENDCALL14:EQU
	EXPORT ENDCALL16:EQU
	EXPORT BUSYERR2:EQU
	EXPORT BUSYERR4:EQU
	EXPORT BUSYERR6:EQU
	EXPORT BUSYERR8:EQU
	EXPORT BUSYERR10:EQU
	EXPORT BUSYERR12:EQU
	EXPORT ERROUT2:EQU
	EXPORT ERROUT4:EQU
	EXPORT ERROUT6:EQU
	EXPORT ERROUT8:EQU
	EXPORT ERROUT10:EQU
	EXPORT ERROUT12:EQU		; added 30 Mar 89
	EXPORT ERROUT14:EQU
	EXPORT ERROUT16:EQU
	EXPORT OBUSYERR2:EQU
	EXPORT OBUSYERR4:EQU
	EXPORT OBUSYERR6:EQU
	EXPORT OBUSYERR8:EQU
	EXPORT OBUSYERR10:EQU
	EXPORT OBUSYERR12:EQU
	EXPORT OERROUT2:EQU
	EXPORT OERROUT4:EQU
	EXPORT OERROUT6:EQU
	EXPORT OERROUT8:EQU
	EXPORT OERROUT10:EQU
	EXPORT OERROUT14:EQU
	EXPORT OERROUT16:EQU

OBUSYEC2	equ $feff5f 
OBUSYEC4	equ $feff6a 
OBUSYEC6	equ $feff75 
OBUSYEC8	equ $feff80 
OBUSYEC10	equ $feff49 
OBUSYEC12	equ $feff54 
OENDCALL2	equ $feffb7 
OENDCALL4	equ $feffc2 
OENDCALL6	equ $feffcd 
OENDCALL8	equ $feffd8 
OENDCALL10	equ $feff96
OENDCALL12	equ $FEFFA1	; added 30 mar 89
OENDCALL14	equ $feffac 
OENDCALL16	equ $feffe9 
BUSYEC2	equ $feff60 
BUSYEC4	equ $feff6b 
BUSYEC6	equ $feff76 
BUSYEC8	equ $feff81 
BUSYEC10	equ $feff4a 
BUSYEC12	equ $feff55 
ENDCALL2	equ $feffb8 
ENDCALL4	equ $feffc3 
ENDCALL6	equ $feffce 
ENDCALL8	equ $feffd9 
ENDCALL10	equ $feff97 
ENDCALL12	equ $FEFFA2	; added 30 mar 89
ENDCALL14	equ $feffad 
ENDCALL16	equ $feffea 
BUSYERR2	equ $feff63 
BUSYERR4	equ $feff6e 
BUSYERR6	equ $feff79 
BUSYERR8	equ $feff84 
BUSYERR10	equ $feff4d 
BUSYERR12	equ $feff58 
ERROUT2	equ $feffbb 
ERROUT4	equ $feffc6 
ERROUT6	equ $feffd1 
ERROUT8	equ $feffdc 
ERROUT10	equ $feff9a
ERROUT12	equ $FEFFA5	; added 30 mar 89
ERROUT14	equ $feffb0 
ERROUT16	equ $feffed 
OBUSYERR2	equ $feff64 
OBUSYERR4	equ $feff6f 
OBUSYERR6	equ $feff7a 
OBUSYERR8	equ $feff85 
OBUSYERR10	equ $feff4e 
OBUSYERR12	equ $feff59 
OERROUT2	equ $feffbc 
OERROUT4	equ $feffc7 
OERROUT6	equ $feffd2 
OERROUT8	equ $feffdd 
OERROUT10	equ $feff9b 
OERROUT14	equ $feffb1 
OERROUT16	equ $feffee 


BusyEC0	proc EXPORT

	ldy #0
	tyx
	jml ToBusyStrip

	ENDP



	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Patch/Patch2/text.asm b/IIGS.601.SRC/GSToolbox/Patch/Patch2/text.asm
new file mode 100644
index 0000000..5320c7c
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Patch/Patch2/text.asm
@@ -0,0 +1 @@
+* This file is no longer needed since the code patched is created from the
* rom source.
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Patch/Patch2/text.tools.asm b/IIGS.601.SRC/GSToolbox/Patch/Patch2/text.tools.asm
new file mode 100644
index 0000000..f92c781
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Patch/Patch2/text.tools.asm
@@ -0,0 +1 @@
+**********************************************************************
*
* Patch to Text Tools (ROM 01)
*
* Copyright 1988-92 Apple Computer, Inc.
* All Rights Reserved
*
**********************************************************************
*
* 01 Aug 88	Steven Glass
*
* Bug discovered in InitTextDev.  Was not returning error after
* dispatching to device.
*
* 20-Dec-90	Dave Lyons
*
* Changed version to $8300 so we can match ROM 3 version for 6.0.
*
* 5-Nov-91	Dave Lyons
*
* Patched GetInputDevice, GetOutputDevice, GetErrorDevice to
* pre-zero the result space for the device type, since the Set
* calls do not tolerate the garbage in the high byte.  (Well,
* at least the ROM 3 versions don't tolerate it.  So let's be
* clean about the whole thing.)
*
* Version is $8301.
*
* 5-Feb-92	Dave Lyons
*
* Version $0301 for 6.0 final.
*
**********************************************************************
	include 'all.macros'
	include ':::sys.equs.asm'


TextVersionNumber	equ $0301

;-----------------------------------------------------------
;
; Equates for addresses in bank E1.
;

ANDin	equ $E115AA
ORin	equ ANDin+1
ANDout	equ ORin+1
ORout	equ ANDout+1
ANDerr	equ ORout+1
ORerr	equ ANDerr+1
DevType	equ ORerr+1
DevPtr	equ DevType+3
InDevPtr	equ DevPtr
OutDevPt	equ InDevPtr+4
ErrDevPt	equ OutDevPt+4
ErrHook	equ ErrDevPt+4


****************************************************************
*
TTCallTable	PROC EXPORT
*
* Contains the calls to patch in the text tools tool set.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
	import InitTextDev
	import TextVersion
	import TextBootInit
	import GetInDev
	import GetOutDev
	import GetErrDev
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


Here
	dc.L (TheEnd-Here)/4	; num calls +1
	dc.L TextBootInit-1 ;$010C TextBootInit
	dc.L 0	;$020C TextStartUp
	dc.L 0	;$030C TextShutDown
	dc.L TextVersion-1	;$040C TextVersion
	dc.L 0 	;$050C TextReset
	dc.L 0 	;$060C TextStatus
	dc.L 0 	;$070C
	dc.L 0 	;$080C
	dc.L 0 	;$090C SetInGlobals
	dc.L 0 	;$0A0C SetOutGlobals
	dc.L 0 	;$0B0C SetErrorGlobals
	dc.L 0 	;$0C0C GetInGlobals
	dc.L 0 	;$0D0C GetOutGlobals
	dc.L 0 	;$0E0C GetErrGlobals
	dc.L 0 	;$0F0C SetInputDevice
	dc.L 0 	;$100C SetOutputDevice
	dc.L 0	;$110C SetErrorDevice
	dc.L GetInDev-1	;$120C, patched 4-Nov-91 DAL
	dc.L GetOutDev-1	;$130C, patched 4-Nov-91 DAL
	dc.L GetErrDev-1	;$140C, patched 4-Nov-91 DAL
	dc.L InitTextDev-1	;$150C InitTextDev
	dc.L 0	;$160C CtlTextDev
	dc.L 0	;$170C StatusTextDev
	dc.L 0	;$180C WriteChar
	dc.L 0	;$190C ErrWriteChar
	dc.L 0	;$1A0C WriteLine
	dc.L 0	;$1B0C ErrWriteLine
	dc.L 0	;$1C0C WriteString
	dc.L 0	;$1D0C ErroWriteString
	dc.L 0	;$1E0C TextWriteBlock
	dc.L 0	;$1F0C ErrWriteBlock
	dc.L 0	;$200C WriteCString
	dc.L 0	;$210C ErrWriteCString
	dc.L 0	;$220C ReadChar
	dc.L 0	;$230C TextReadBlock
	dc.L 0	;$240C ReadLine
TheEnd

	ENDP



****************************************************************
*
StdTextCalls	PROC
*
* Contains the Version call and the boot init call
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
	ENTRY TextVersion
	ENTRY TextBootInit
*
	longa on	; mode
	longi on
*
****************************************************************

TextVersion	lda #TextVersionNumber
	sta 7,s

TextBootInit	lda #0
	clc
	rtl

	ENDP



****************************************************************
*
InitTextDev	PROC
*
* Init the specified text device.  Possible values are
*
*	      0 = Input device
*	      1 = Output device
*	      2 = Error output device	  
*
* If the device is a basic device, the I/O hooks are set
* to the init entry	for the device being called.
*
* Inputs:
*	Device to Init  : word
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* Modification History:
*
* 11 Sep 86    	Ray Montagne
* Updated to handle save/restore of I/O hooks when initing an 
* error device.
*
* 01 Aug 88    SEG      
*
* Added patch today to look for card firmware when using Basic 
* devices
*
* 02 Aug 88    SEG      
*
* Made patch work correctly.  Also check for pascal devices.
*
* 31 Oct 88    SEG
*
* Check for valid input.
*
****************************************************************
	DefineStack
RTL1	block 3
RTL2	block 3
WhichDevice	word


IntoROM	equ $FEA8CC


	lda WhichDevice,s	; use device as index into type array

	cmp #3	; make sure input is valid  SEG 31 Oct 88
	bcs BadDev


	tax
	lda >DevType,x
	and #$00FF
	cmp #2	; is it a ram driver?
	beq Continue	; yes

	txa	; no, make sure a ROM is switched in
	asl a	; (use devtype as index into pointer array)
	asl a	; (which holds slot number)
	tax

	lda >DevPtr,x	; read the slot number
	and #$000F	; turn this into a Cn00 space
	xba
	ora #$C000
	tax
	sep #$20
	longa off

	ldy #10
	lda >0,x	; read it once
	beq BadDev	; cant be a BRK
CheckFloatLoop	cmp >0,x	; read rom
	bne BadDev	; if not same, then	no device
	dey
	bpl CheckFloatLoop	; check a bunch of times

	rep #$20
	longa on
Continue	jml IntoROM



BadDev	rep #$20
	longa on
	ldx #$0C01
	ldy #2
	jml ToStrip

	ENDP

****************************************************************
*
* GetInDev, GetOutDev, GetErrDev
*
* Patched 5-Nov-91 DAL to pre-zero the device-type output word.
*
****************************************************************
GetInDev	proc export
	lda #0
	sta 11,s
	jml >$fea89b
	EndP

GetOutDev	proc export
	lda #0
	sta 11,s
	jml >$fea8c2
	EndP

GetErrDev	proc export
	lda #0
	sta 11,s
	jml >$fea8c7
	EndP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Patch/Patch2/tl.asm b/IIGS.601.SRC/GSToolbox/Patch/Patch2/tl.asm
new file mode 100644
index 0000000..15ca73e
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Patch/Patch2/tl.asm
@@ -0,0 +1 @@
+****************************************************************
****************************************************************
***			 ***
***			 ***
***	     Tool Locator		 ***
***	        Patch		 ***
***                For Version 2.0 ROM only	 ***  
***			 ***
***			 ***
***	     May 13, 1989		 ***
***	   Steven E. Glass		 ***
***			 ***
***			 ***
****************************************************************
****************************************************************


****************************************************************
*			   *
*	Copyright (C) 1985-1988	   *
*	All Rights Reserved		   *
*	Apple Computer, Inc.	   *
*			   *
****************************************************************


**********************************************************************
*
* Change History
*
* 24 Oct 88	Steven Glass
*
* Reorganized the patch code so that the patch could link to parts
* of the ROM.  The parts of TS2 that are identical to ROM 3.0 are
* made from the same source and object files.  This minimizes
* code maintenance.
*
* To make this work, this file now contains a copy of the bootinit
* routine, and entries to the equivalent to oEndCall0 and oBusyErr4.
*
*
* 13 May 89	Steven Glass
*
* So that the rom and ram patch could agree on certain addresses
* I use equates for DummyTable and UserDummyTable.  This way, the 
* calls that are patched and the calls that are not patched 
* use the same value.  I wonder what I was thinking before?
*
* This also saves code as the user dummy table does not need to
* be changed on boot init to prevent accidental disposal.
*
* 20-Sep-90	Dave Lyons
*
* Added some new call skeletons for 6.0.
*
* 25-Sep-90	Dave Lyons
*
* Added GetIndMessage.
*
* 17-Sep-91	Dave Lyons
*
* Moved some stuff to Tool.Setup.
*
**********************************************************************


	include ':::sys.equs.asm'


;
; Use this value in ROM rather than putting it in RAM.
;

	export DummyTable:equ
DummyTable	equ $FE01EB

	export UserDummyTable:equ
UserDummyTable	equ $FE01EF

****************************************************************
*
* TLTable
*
* This is the Function pointer Table (FPT) for the tool
* locator tool set.
*
*
****************************************************************
TLCallTable	proc EXPORT

	IMPORT TLBootInit
	IMPORT TLStartup
	IMPORT TLShutDown
	IMPORT TLVersion
	IMPORT TLMountVolume
	IMPORT TLTextMountVolume
	IMPORT SaveTextState
	IMPORT RestoreTextState
	IMPORT MessageCenter
	IMPORT SetDefaultTPT
	import MessageByName

TheBeginning
	dc.L (TheEnd-TheBeginning)/4 ; call count + 1

	dc.L TLBootInit-1		; (01)
	dc.L TLStartup-1		; (02)
	dc.L TLShutDown-1		; (03)
	dc.L TLVersion-1		; (04)
	dc.L 0		; TLReset    (05)	 
	dc.L 0		; TLStatus   (06)
	dc.L 0		; NotImp     (07)
	dc.L 0		; NotImp     (08)
	dc.L 0		; GetTSPtr   (09)
	dc.L 0		; SetTSPtr   (0A)
	dc.L 0		; GetFuncPtr (0B)
	dc.L 0		; GetWAP     (0C)
	dc.L 0		; SetWAP     (0D)
	dc.L 0	;[ts] LoadTools-1		; 0E01
	dc.L 0	;[ts] LoadOneTool-1		; 0F01
	dc.L 0	;[ts] UnloadOneTool-1 	; 1001
	dc.L TLMountVolume-1 	; 1101
	dc.L TLTextMountVolume-1 	; 1201
	dc.L SaveTextState-1 	; 1301
	dc.L RestoreTextState-1 	; 1401
	dc.L MessageCenter-1 	; 1501
	dc.L SetDefaultTPT-1 	; 1601
	dc.L MessageByName-1 	; 1701
	dc.L 0	;[ts] StartupTools-1 	; 1801
	dc.L 0	;[ts] ShutDownTools-1 	; 1901
*** New calls for 6.0
	dc.l 0	;[ts] GetMsgHandle-1	; 1A01 DAL 20-Sep-90
	dc.l 0	;[ts] AcceptRequests-1	; 1C01 DAL 20-Sep-90
	dc.l 0	;[ts] SendRequest-1		; 1D01 DAL 20-Sep-90
TheEnd

	ENDP
	
	
****************************************************************
*
TLBootInit	PROC
*
* This null routine is called when the patch is installed.
* it should never be called again.
*
* This routine is also the equivalent to oEndCall0.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
	EXPORT oEndCall0
*
	longa on	; mode
	longi on
*
*
* Change History
*
* 13 May 89	Steven Glass
*
* No longer store the address of user dummy table into
* U_TPTPtr.
*
****************************************************************

oEndCall0	lda #0
	clc
	rtl

	EndP

	END

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Patch/Patch3/ControlMgr.pch b/IIGS.601.SRC/GSToolbox/Patch/Patch3/ControlMgr.pch
new file mode 100644
index 0000000..98d7b41
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Patch/Patch3/ControlMgr.pch
@@ -0,0 +1 @@
+	title 'Menu Mgr Patch        GS ROM 3 Patch'
******************************************************************
*
*	Menu manager patches for ROM 3
*
* System Disk 5.0
*
*
* 21 May 89	Steven Glass
*
* The picture control defproc was not doing the right thing.
* on dispose.  Any picture loaded from a resource was not
* released.
*
* 31 May 89	Harry Yee
*
* Take out prototype bit in version number.
*
* 31 Aug 89	Harry Yee
*
* Fix static text control bug (BRC #51450) Init routine was not
* copying the justification field into the control record. 
*
* 26-Nov-90	Dave Lyons
*
* Rolled version to $8303.
* Changed CMUnloadSegments to BRK (used on ROM 1 only).
* NewControl patch: See if CreateList is creating a list control.
*   If it is, replace the ROM defproc $FCF0E9 with the real one, as
*   returned from GetListDefProc.
*
* 4-Jan-91	Dave Lyons
*
* Removed my obsolete NewControl patch (was used when CreateList
* calls NewControl from ROM, but I've discarded the ROM 3 List
* Manager).
*
* Patched Draw message to scroll bar defproc (old and extended)
* to check for a default color table and change it to my new one,
* which gets modified at CtlNewRes time based on the MasterSCB.
*
* Patched CtlNewRes to modify the new default scroll bar color
* table.
*
* Patched NewValue message to scroll bar defproc (old and
* extended) so it waits until it's been minScrollTicks ticks
* since the last time we set a scroll bar value--this maxes
* out the scrolling speed at something reasonable, even if
* folks have souped-up machines.
*
* 6-Jan-91	Dave Lyons
*
* Changed scroll bar delay thing to use WaitUntil (misc tools).
*
* 9-Jan-91	Dave Lyons
*
* Patched HiliteControl(xxx,0) so unhiliting the most-recently-
* hilited control waits until it's been 4 ticks since the hilite,
* using WaitUntil.
*
* 19-Jan-91	Dave Lyons
*
* Added three new function (linked in from TOOL016):
*   $3903 FindRadioButton
*   $3A03 SetLETextByID
*   $3B03 GetLETextByID
*
* 5-Apr-91	Dave Lyons
*
* Link in the whole StatTextProc from Control Manager; kill the
* weird patching stuff.  (New feature in the RAM-based StatTextProc
* is the draw-fast bit.)
*
* 8-Apr-91	Dave Lyons
*
* Added a missing BRA NotThisOne from LLToolboxVector.  Was making
* picture controls crash.
*
* 16-Apr-91	Dave Lyons
*
* Patched SendEventToCtl to ignore invisible controls.
*
* 22-Aug-91	Dave Lyons
*
* Patched MakeNextCtlTarget to allow cycling backwards.
*
* 15-Sep-91	Dave Lyons
*
* Pull in new CMLoadResource from ControlMgr.  New version
* sets SysPrefs to prompt for disk & never have a cancel button.
*
* 4-Dec-91	Dave Lyons
*
* CMLoadResource now clears the supress-one-button-dialogs SysPrefs
* bit, so the OS doesn't infinite-loop looking for the disk (imported
* from Tool016).
*
* 8-Dec-91	Dave Lyons
*
* Fixed LLToolboxVector to use linked-in RAM-based scroll_proc for
* all scroll bar stuff, instead of special-casing everything...this
* was becoming far too much of a pain.
*
* 9-Dec-91	Dave Lyons
*
* CtlNewRes calls ComputeScrollColor in ControlMgr:ControlMgr.asm.
* This cool new code calls RefreshDesktop if the scroll pattern
* changes.
*
* 15-Jan-92	Dave Lyons
*
* Linked in CtlShutDown from ControlMgr:ControlMgr.asm, so we can
* remove the refreshDeskTask from the Run Queue.
*
* 5-Feb-92	Dave Lyons
*
* Version $0303 for 6.0 final.
*
******************************************************************
*
* 3-Jun-92	Dave Lyons
*
* Changed version to $8304 for 6.0.1d5.
*
* Made CtlStartUp remove the RefreshDesktop run queue routine, to
* avoid redrawing everything once when starting an application in
* a different resolution.
*
* 15-Jul-92	Dave Lyons
*
* Suck in new calls from ControlMgr.asm:
*   SetCtlValueByID
*   GetCtlValueByID
*   InvalOneCtlByID
*   HiliteCtlByID
*
* 2-Apr-93 DAL
*
* Version $0304 for 6.0.1
*
**********************************************************************

****************************************************************
*			   *
*              Copyright Apple Computer, Inc. 1989-92	   *
*                     All Rights Reserved	   *
*			   *
****************************************************************
	Blanks off
	String asis
	
	include 'all.macros'

	include ':::ControlMgr:equates.asm'
	include ':::ControlMgr:superEquates.asm'
	include ':::sys.equs.asm'

CtlVersionNum	equ $0304	;2-Apr-93 DAL

;-----------------------------------------------------------
;
; Stack Fram Equates for control
;
	DefineStack
OrigD	WORD	; caller's saved direct page register
OrigB	byte	; caller's saved data bank register
TheCtlPtr	LONG	; pointer to control record
RtnAddr	block 3	; RTL address back to Control Manager
theCtlHandle	LONG	; handle to control record
CtlParam	LONG	; add'l parameter passed to DefProc
CtlCode	WORD	; operation to perform
ReturnValue	LONG	; space for return value to Ctl Mgr.



;====================================================================
;
;          Control Manager Function Table.
;
;====================================================================
ControlCallTable	PROC EXPORT
	import CtlVersion
	import CtlBootInit
	import NewControl2
	import CtlNewRes		;4-Jan-91 DAL
	import CtlStartUp		;4-Jan-91 DAL
	import HiliteControl	;9-Jan-91 DAL
	import FindRadioButton	;19-Jan-91 DAL
	import SetLETextByID	;19-Jan-91 DAL
	import GetLETextByID	;19-Jan-91 DAL
	import SendEventToCtl	;16-Apr-91 DAL
	import MakeNextControlActive	;22-Aug-91 DAL
	import CMLoadResource	;15-Sep-91 DAL
	import CtlShutDown		;15-Jan-92 DAL
	import SetCtlValueByID	;15-Jul-92 DAL
	import GetCtlValueByID	;15-Jul-92 DAL
	import InvalOneCtlByID	;15-Jul-92 DAL
	import HiliteCtlByID	;15-Jul-92 DAL

FPT	DC.L (ENDFPT-FPT)/4
	DC.L CtlBootInit-1			;1
	DC.L CtlStartup-1			;2
	DC.L CtlShutDown-1			;3 (patched 15-Jan-92 DAL)
	DC.L CtlVersion-1			;4
	DC.L 0	; CtlReset-1		;Shutdown, called from WindShutDown.
	DC.L 0	; CtlStatus-1		;6
	DC.L 0	; Reserved-1		;7
	DC.L 0	; Reserved-1		;8
	DC.L 0	; NewControl-1		;9
	DC.L 0	; DisposeControl-1		;A
	DC.L 0	; KillControls-1		;B
	DC.L 0	; SetCtlTitle-1		;C
	DC.L 0	; GetCtlTitle-1		;D
	DC.L 0	; HideControl-1		;E
	DC.L 0	; ShowControl-1		;F
	DC.L 0	; DrawControls-1		;10
	DC.L HiliteControl-1		;11 patched 9-Jan-91 DAL
	DC.L CtlNewRes-1			;12
	DC.L 0	; FindControl-1		;13
	DC.L 0	; TestControl-1		;14
	DC.L 0	; TrackControl-1		;15
	DC.L 0	; MoveControl-1		;16
	DC.L 0	; DragControl-1		;17
	DC.L 0	; SetCtlIcons-1		;18
	DC.L 0	; SetCtlValue-1		;19
	DC.L 0	; GetCtlValue-1		;1A
	DC.L 0	; SetCtlParam-1		;1B
	DC.L 0	; GetCtlParam-1		;1C
	DC.L 0	; WindDragRect-1		;Address may be patched by CtlStartup.
	DC.L 0	; GrowSize-1		;1E
	DC.L 0	; GetCtlzpage-1		;1F
	DC.L 0	; SetCtlAction-1		;20
	DC.L 0	; GetCtlAction-1		;21
	DC.L 0	; SetCtlRefCon-1		;22
	DC.L 0	; GetCtlRefCon-1		;23
	DC.L 0	; EraseControl-1		;24
	DC.L 0	; DrawOneCtl-1		;25
	DC.L 0	; FindActiveControl-1	;$26
	DC.L MakeNextControlActive-1		;$27 patched 22-Aug-91 DAL
	DC.L 0	; MakeThisCtlActive-1	;$28
	DC.L SendEventToCtl-1		;$29 patched 16-Apr-91 DAL
	DC.L 0	; GetCtlID-1		;$2A
	DC.L 0	; SetCtlID-1		;$2B
	DC.L 0	; CallDefProc-1		;$2C  (added oct 3 88)
	DC.L 0	; NotifyControls-1		;$2D  (added oct 3 88)
	DC.L 0	; GetCtlMoreFlags-1		;$2E
	DC.L 0	; SetCtlMoreFlags-1		;$2F
	DC.L 0	; GetHandleFromID-1		;$30
	DC.L NewControl2-1	;		;$31
	DC.L CMLoadResource-1 		;$32 patched 15-Sep-91 DAL
	DC.L 0	; CMReleaseResource-1	;$33  (added Oct 12 88)
	DC.L 0	; SetCtlParamPtr-1		;$34  (added Oct 21 88)
	DC.L 0	; GetCtlParamPtr-1		;$35  (added Oct 21 88)
	DC.L 0	; FutzCtls-1		;$36  (added Mar 28 89)
	DC.L 0	; InvalCtls-1		;$37  (added Nov 9 88)

	DC.L $fc0001-1	; CMUnloadSegments-1	;$38  (unused on ROM 3; make it BRK. DAL)
*** 6.0
	dc.l FindRadioButton-1		;$39 added 19-Jan-91 DAL for 6.0
	dc.l SetLETextByID-1		;$3A added 19-Jan-91 DAL
	dc.l GetLETextByID-1		;$3B added 19-Jan-91 DAL
*** 6.0.1
	dc.l SetCtlValueByID-1	;$3C added 15-Jul-92 DAL
	dc.l GetCtlValueByID-1	;$3D added 15-Jul-92 DAL
	dc.l InvalOneCtlByID-1	;$3E added 15-Jul-92 DAL
	dc.l HiliteCtlByID-1	;$3F added 15-Jul-92 DAL
ENDFPT
	ENDP



CtlVersion	PROC

	lda #CtlVersionNum
	sta 7,s

	ENTRY QuickExit
QuickExit
	lda #0
	clc
	rtl

	ENDP

*******************************************************************************
*
* CtlStartUp patch 4-Jan-91 DAL
*
* Modify the new default scroll bar color table based on the MasterSCB, and
* then go to the old CtlStartUp code in ROM.
*
*******************************************************************************
CtlStartUp	proc export
	import ComputeScrollColor,RemoveRefreshTask

*** added 9-Dec-91 DAL
	pha
	phy
	jsr ComputeScrollColor
	jsl RemoveRefreshTask	;3-Jun-92 DAL
	ply
	pla
*** end 9-Dec-91 DAL
@toRom	jml $fd9100	;original CtlStartUp entry point

	EndP


*******************************************************************************
*
* HiliteControl patch 9-Jan-91 DAL
*
* Call WaitUntil to wait 4 ticks since the last hilite, if we're hiliting
* the most-recently-hilited control to 0.
*
*******************************************************************************
HiliteControl	proc export

	pha
	phy

control	equ 11
newState	equ control+4

	ldx #0	;anticipate using 0 for DelayAmount
	lda control+2,s
	cmp >prevControl+2
	bne @different
	lda control,s
	cmp >prevControl
	bne @different

	lda newState,s
	bne @notZero

	ldx #$0040	;delay amount

@notZero
@different	lda control+2,s
	sta >prevControl+2
	lda control,s
	sta >prevControl

	pha	;result space
	lda >anchorTime
	pha
	phx	;delay amount
	_WaitUntil
	pla
	sta >anchorTime

@toROM	ply
	pla
	jml $fd94aa	;HiliteControl entry in ROM 3

prevControl	dc.l 0
anchorTime	dc.w 1

	EndP

*******************************************************************************
*
* CtlNewRes patch 4-Jan-91 DAL
*
* Modify the new default scroll bar color table based on the MasterSCB, and
* then go to the old CtlNewRes code in ROM.
*
*******************************************************************************
CtlNewRes	proc export
	import ComputeScrollColor
*** added 9-Dec-91 DAL
	phy
	pha
	jsr ComputeScrollColor
	pla
	ply
*** end 9-Dec-91 DAL
@toRom	jml $fd91d6	;original CtlNewRes entry point

	EndP


****************************************************************
*
SendEventToCtl	PROC EXPORT
*
* This call is used to send events to the active control and to
* any *visible* control including the active control.
*
* If the ActiveOnly flag is TRUE, then only the active control
* gets the event.
*
* If the Active flag is FALSE, then the following takes place.
* We perform a two part search for a control to take this event.
* First, we look for controls that want key strokes that are 
* not edit fields.  Each control is asked to take the event.
* If none of these controls wants hte event, the active
* edit field is asked to accept the event.
*
* If no control accepts the event, the output is FALSE.  If 
* one of the controls accepts the event, the output is TRUE.
* The handle of the accepting control is put into TaskDATA2 and
* the ItemID is put in TaskDATA3.
*
*
* Inputs:
*	ActiveOnlyFlag
*	WindowPtr
*	TaskRecPtr
*
* Outputs:
*	BooleanWord
*
* External Refs:
	import CMStartup
;	import UseThisWindPtr
;	import GetFirstSuperControl
;	import GetNextSuperControl
;	import FindActiveGuts
	import CMDispatch
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* Change History
*
* 04 Nov 88	Steven Glass
*
* The control ID was returned in the wrong place and the
* result from the DefPRoc was not returned at all.
*
* 17 Nov 88	Steven Glass
*
* Now use the specified window pointer instead of FrontWindow.
*
****************************************************************

	macro
&lab	jsrlFD &addr
&lab	phk
	per @returnHere-1
	pea $0392-1	;there is an RTL at $FD/0392 in ROM 3
	jml $FD0000+&addr
@returnHere
	mend

TaskRecPtr	equ Inputs
WindowPtr	equ TaskRecPtr+4
ActiveOnlyFlag	equ WindowPtr+4
BooleanResult	equ ActiveOnlyFlag+2

	jsr CMStartup

	stz BooleanResult		; assume the worst

	lda WindowPtr
	ldx WindowPtr+2
;	jsr UseThisWindPtr
	jsrlFD $bbbe		;UseThisWindPtr is $FD/BBBE
	bcs exit

	lda ActiveOnlyFlag
	bne TryActive

;	jsr GetFirstSuperControl
	jsrlFD $BB9C		;GetFirstSuperControl is $FD/BB9C
	bcs exit

Loop	ldy #NewCtlRecord.CtlMoreFlags	; if this one can be active, skip it for now
	lda [<CtlPtr],y
	and #FCtlCanBeActive
	bne SkipThisOne

	lda [<CtlPtr],y	; if the control does not want events, then
	and #FCtlWantEvents	; we skip it.
	beq SkipThisOne

*** 16-Apr-91 DAL -- if the control is invisible, ignore it
	ldy #NewCtlRecord.ctlFlag
	lda [<CtlPtr],y
	and #$0080
	bne SkipThisOne
*** end of 16-Apr-91 DAL

	jsr SendIt

	lda BooleanResult
	bne FinishUp
SkipThisOne
;	jsr GetNextSuperControl
	jsrlFD $BBA6		;GetNextSuperControl is $FD/BBA6
	bcc Loop

TryActive
;	jsr FindActiveGuts
	jsrlFD $BBE3		;FindActiveGuts is $FD/BBE3
	bcs Done

	jsr SendIt
	lda BooleanResult
	beq Done

FinishUp	jml $FDBA6C		;FinishUp in ROM
Done	jml $FDBA94		;Done in ROM
Exit	jml $FDBA97		;Exit in ROM

SendIt	jsrlFD $BA9A		;SendIt is $FD/BA9A
	rts

	ENDP



	title 'MakeNextControlActive'
****************************************************************
*
MakeNextControlActive PROC EXPORT
*
* This routine returns the handle to the newly activated
* super control.  A number of errors can be returned:
*
*   NOWIND_Err
*   NoCtlError
*   NoSuperCtlError
*   NoCtlToBeActiveError
*
* The newly activated control and the newly deactivated
* control are both sent activation messages so that
* they can change their display.
*
* This routine has the strange ability to return the
* same control as was originally active.  When this
* happens, no activation messages are sent.
*
* Note:  This call only works on the front window.
*
* Inputs:
*	none
*
* Outputs:
*	ControlHandle
*
* External Refs:
	import CMStartup
;	import FindActiveGuts2
;	import GetFirstSuperControl
;	import GetNextSuperControl
;	import CallIt
;	import CMDispatch

*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************
ResultH	equ Inputs

	jsr CMStartup		; link things in and start things up.

	stz work		; indicate that this is the first time in

	stz ResultH
	stz ResultH+2

;;;	jsr FindActiveGuts2		; get first active control in  
	jsrlFD $BBDE		;(ROM 3)
	bcc GotActive		; front window.

	PushLong #0		; nothing active, put 0 on stack
	jml >$fdb965		;TryFirst in ROM 3

GotActive	pei CtlHand+2		; this is the control that needs to
	pei CtlHand		; be made inactive

	ldy #NewCtlRecord.CtlMoreFlags	; Clear current active bit
	lda [<CtlPtr],y
	and #($FFFF-FCtlActive)
	sta [<CtlPtr],y

*** added 22-Aug-91 DAL -- check for Command key to cycle backwards
	lda >$E0C025
	and #$0080
	beq @cycleForward

; Find previous super control.
; <Work is the starting point.  If we get back there we're done.
; <Work+4 is the control we visited last, the one we want to make active.
	lda <ctlHand+2
	ldx <ctlHand
	sta <work+2
	stx <work

@keepAndSearch	lda <ctlHand+2		;this one would be okay, so remember it
	ldx <ctlHand
	sta <work+6
	stx <work+4

@search
;;;	jsr GetNextSuperControl
	jsrlFD $bba6		;FDBBA6 is GetNextSuperControl (ROM 3)
	bcc @gotOne
;;;	jsr GetFirstSuperControl
	jsrlFD $bb9c		;FDBB9C is GetFirstSuperControl (ROM 3)
@gotOne
	ldy #NewCtlRecord.CtlMoreFlags	; can this be active?
	lda [<CtlPtr],y
	and #FCtlCanBeActive
	beq @search		; no, go on

	ldy #NewCtlRecord.CtlFlag	; check if its visible or not
	lda [<CtlPtr],y
	bit #$0080
	bne @search		; no, go on

	lda <ctlHand+2		;are we back where we started yet?
	ldx <ctlHand
	cmp <work+2
	bne @keepAndSearch
	cpx <work
	bne @keepAndSearch
	lda <work+6
	ldx <work+4
	sta <ctlHand+2
	stx <ctlHand
	ldy #2
	lda [<ctlHand],y
	sta <ctlPtr+2
	lda [<ctlHand]
	sta <ctlPtr
	jml >$fdb948		;useThisControl

@cycleForward	jml >$fdb92f		;ROM 3

	EndP



	EJECT
*******************************************************************************
*
NewControl2	PROC
*
* Description:	Patch to set the grafport to the owners port field.
*
*
* Inputs:	Same as newcontrol2
*
* Outputs:	exit via ROM
*
* External Refs:
	import CMStartup
*
* Entry Points:
*
*******************************************************************************
*
* Variables used by NewControl2 and subroutines.
*
**********************************************************************
	DSECT Inputs
InputRef	long		;these are passed to us on the stack
InputVerb	word
TheWindow	long
ResultH	long


TemplatePtr	equ yRat	; this is not used at init time.
*
*
*********************************************************************************
BackToROM	equ $FDB62E
	jsr  CMStartup		;link things in and start things up.
;
; Always set port to owner port! Mensch
**	lda TheWindow+2
**	pha
**	lda TheWindow
**	pha
	pei TheWindow+2	;changed lda/pha to pei  26-Nov-90 DAL
	pei TheWindow	;changed lda/pha to pei  26-Nov-90 DAL
	_SetPort

	jml >BackToROM

	EndP

;====================================================================
;          Do setup	for tool call.
;
;   IN:    a+y = handle to data area.
;
;  OUT:    Carry clear if no error.
;          Carry set if null data pointer, y = error code.
;
;150=================================================================
CMstartup	proc EXPORT

	plx	Get return address.
;
	phd	Save caller's direct page.
	phb	Save caller's data page.
;
	phy	Save pointer to data area.
	pha
;
	phx
;
	pha	Space for result.
	pha
	_GetPort
	pla
	ply
	plx	Get return addess.
	phy	Save caller's port on stack.
	pha
;
	tsc	Allocate direct page on stack.
	sec
	sbc #DIRECTSIZE
	tcs
	tcd

;
	phx	Put return address back on stack.
;
	lda <data	Valid data area pointer passed.
	ora <data+2
	clc	Clear error flag.
	bne exit
;
	pea $1002	Control Manager not	started.
;;;	pea notInit>>16	Pass message.
;;;	pea notInit
*** 8-Dec-91 DAL
	pea $00FD	;$FD/A048 is "Control Manager not initialized, error $"
	pea $A048
*** end 8-Dec-91
	_SysFailMgr

*** 8-Dec-91 DAL -- This message is already in ROM, so let's save some bytes
;;;notInit	DC.B 40
;;;	DC.B 'Control Manager not initialized, error $'
*** end 8-Dec-91

exit	rts

	EndP

****************************************************************
*
CtlBootInit	PROC
*
* This replaces the LLToolboxVector vector with an address of
* our own.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
	import MyLLToolboxVector
	import OrigLLToolboxVector
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


	lda >LLToolboxVector
	sta >OrigLLToolboxVector
	lda >LLToolboxVector+2
	sta >OrigLLToolboxVector+2

	lda #MyLLToolboxVector
	sta >LLToolboxVector+1
	lda #>MyLLToolboxVector
	sta >LLToolboxVector+2

	brl QuickExit

	ENDP

****************************************************************
*
MyLLToolboxVector	PROC
*
* This code looks at the message to be sent to the defProc.
* if the message is a dispose, we see if it is for a picture control
* and route if off differently.
*
* (Actually we check for a bunch of other stuff now, too.  --DAL)
*
*
* Inputs:
*	a, x and y have sacred values
*	code is on top of stack
*
* X = 0 for CMDispatch (dispatching a message to a control)
*           (Not everything for old controls goes through here?)
* X = 2 for WMActivate
* X = 4 for WMDeactivate
*
* Outputs:
*	nothing may change unless we handle the
*	dispatch.
*
* External Refs:
*	none
*
* Entry Points:
	ENTRY OrigLLToolboxVector
*
	longa on	; mode
	longi on
*
****************************************************************

	import StatTextProc		;5-Apr-91 DAL
	import scroll_task_list	;8-Dec-91 DAL

	jmp (LLTable,x)

LLTable	dc.w isCMDispatch
	dc.w OrigLLToolboxVector
	dc.w OrigLLToolboxVector

isCMDispatch

;
; Now check the message and see if it's the ones we want to trap.
;
	pha	; save a-reg

*** added 5-Apr-91 DAL -- let's use the RAM-based static text control defproc
	phy
	ldy #NewCtlRecord.ctlProc+2
	lda [<ctlPtr],y
	cmp #$8100
	bne @notStatText

	ply
	pla

	ply	;Y now has the defproc message

	lda #StatTextProc
	ldx #>StatTextProc

;   IN:    y = task	number.
;          a = bytes 0 and 1 of defProc	address.
;          x = bytes 1 and 2 of defProc	address.
;          param = additional parameters.

	jml >$fd9c8c	;customDispatch in ROM 3

@notStatText	ply
*** end of 5-Apr-91 DAL

*** added 8-Dec-91 DAL -- use RAM copy of scroll_proc for (nearly) all Scroll Bar operations
*** (I believe everything other than the recSize messages vectors through here)
	phy
	ldy #NewCtlRecord.ctlProc+2
	lda [<ctlPtr],y
	asl a
	lsr a	;clear bit 15
	cmp #$0600	;$0600 or $8600 is Scroll Bar
	bne @notScrollBar

	ply
	pla

	ply	;Y now has the defproc message

	lda #@my_scroll_proc
	ldx #>@my_scroll_proc
	jml >$fd9c8c	;customDispatch in ROM 3
*
* my_scroll_proc -- gets called just like a custom control
*
* stack:
* 14,s = space for result
* 12,s = message
*  8,s = ctlParam
*  4,s = theControlHandle
*  1,s = RTL
*
@my_scroll_proc	lda 12,s
	cmp #ctlWinStateChange+1
	bcc @goForIt
	lda #0
	tax
	bra @ouch

@goForIt	asl a
	tax
	jsr (scroll_task_list,x)  ;returns value in XA
@ouch	sta 14,s
	txa
	sta 14+2,s
	lda 2,s
	sta 2+10,s
	lda 1,s
	sta 1+10,s	;copied RTL address
	pla
	pla
	pla
	pla
	pla	;stripped 10 bytes of input parameters
	rtl

@notScrollBar	ply
*** end 8-Dec-91


*** removed 8-Dec-91 DAL
;	lda 3,s	; check message being sent
;	bne LLnotDraw
;* got Draw message
;	phy
;	ldy #NewCtlRecord.ctlProc+2
;	lda [<ctlPtr],y
;	and #$7fff
;	cmp #$0600	;scroll bar?
;	bne @notScroll
;
;	ldy #$24	;offset to color table
;	lda [<ctlPtr],y
;	cmp #$a4a7
;	bne @notScroll
;	iny
;	iny
;	lda [<ctlPtr],y
;	cmp #$00fd
;	bne @notScroll
;	lda #^NewScrollColorTable
;	sta [<ctlPtr],y
;	dey
;	dey
;	lda #NewScrollColorTable
;	sta [<ctlPtr],y
;
;@notScroll	ply
;	brl NotThisOne
;
;	EXPORT NewScrollColorTable
;NewScrollColorTable	DC.W $0000	Outline.
;	DC.W $00F0	Arrow when normal.
;	DC.W $00F0	Arrow when selected.
;	DC.W $00F0	Arrow's box interior.
;	DC.W $00F0	Thumber when normal.
;	DC.W $0000	Not used and should	never be used.
;*****	DC.W $010F	Page region interior.
;	dc.w $00C0	Page region interior. (Gets stored over at CtlStartUp/CtlNewRes time)
;	DC.W $00F0	Interior color of inactive bar.
;
;
;LLnotDraw	cmp #newValue
;	bne LLnotNewValue
;;
;; 4-Jan-91 DAL
;;
;; Max out the scrolling speed to a fixed amount of time.
;; If it hasn't been minScrollTime since the last time we
;; moved the thumb, wait until it has.
;;
;	pha
;	phy
;	phx
;	ldy #NewCtlRecord.ctlProc+2
;	lda [<ctlPtr],y
;	and #$7fff
;	cmp #$0600	;scroll bar?
;	bne @notScroll
;
;	pha	;space for result
;	lda >lastScrollTime
;	pha
;	pea MinScrollDelay
;	_WaitUntil
;	pla
;	sta >lastScrollTime
;
;@notScroll	plx
;	ply
;	pla
;	brl NotThisOne
;
;lastScrollTime	dc.w 0
*** end of removed 8-Dec-91

LLnotNewValue
; end of 4-Jan-91 DAL
	cmp #dispCntl	; Is it the picture control bug?
	beq GotDispMessage

	bra NotThisOne	;GAWD, I'M STUPID!  THIS WAS MISSING ON 6.0D31.

;;; dead code 5-Apr-91 DAL
;	cmp #initCntl	; Is it the StatText bug?
;	bne NotThisOne
;
;* GotInitMessage
;	phy
;	ldy #NewCtlRecord.ctlProc+2
;	lda [ctlPtr],y
;	bpl NotRightControl	; not super control, so not static text control
;	
;	cmp #^StatTextControl
;	bne NotRightControl
;	dey
;	dey
;	lda [ctlPtr],y
;	bne NotRightControl
;	lda #1
;	sta 5,s	; this is now our new message code to be used later
;	brl GotControl

;
; This is it.  See if the defProc is the picture defProc.
;
GotDispMessage	phy
	ldy #NewCtlRecord.ctlProc+2
	lda [ctlPtr],y
	bpl NotRightControl	; not picture control

	cmp #^PictureControl
	bne NotRightControl
	dey
	dey
	lda [ctlPtr],y
	bne NotRightControl
	sta 5,s	; this is now our new message code to be used later (zero)
	brl GotControl

NotRightControl
	ply

NotThisOne	pla

OrigLLToolboxVector	dc.L 0


;
; It's a control/message that we need to patch
;
GotControl	ply
	pla

	plx

	pei <Ctlhand+2	Save current handle	of control.
	pei <Ctlhand
;
	pha	Space for return value.
	pha
;
	phx	Pass task number(which has been changed above).
;
	pei <param+2	Pass additional parameters.
	pei <param
;
	pei <Ctlhand+2	Pass control's handle.
	pei <Ctlhand
;
	jsl DoMoreCommon
	jml $FD9C9F	; back into ROM.


DoMoreCommon
	pha	; push on some room	for 'TheCtlPtr'
	pha

	phb	; save the Data Bank register
	phd	; save the Direct Page register

	phk	; switch data bank to program bank
	plb
	tsc	; switch Direct Page into stack
	tcd

	lda [<theCtlHandle]	; deref control handle
	sta <TheCtlPtr
	ldy #2
	lda [<theCtlHandle],y
	sta <TheCtlPtr+2
;
; ----- Now the stack is set up just like the defproc like it ---------------
;
	lda <ctlCode	; the ctlCode now is the offset to the table
	asl a	; of the bug we want to fix
	tax
	jsr (PatchTable,x)
 
	sta <ReturnValue		; save the return value
	stx <ReturnValue+2

;
; The Return Value has been stored on the stack, and it is time for us to
; return back to the Control Manager. Before we do so, however, we must
; remove the parameters that were passed to us on the stack. We do this
; by moving the RTL address up just below the Return Value, getting the
; stack pointer, and adding an amount to it so that we point to where
; the RTL address has been moved to. We can then simply RTL back to the
; Control Manager, and it will pick up the Return Value right off of the
; stack!
;
	lda <RtnAddr	; move the return address up
	sta <ReturnValue-3
	lda <RtnAddr+1
	sta <ReturnValue-2

	tsc	; Get the stack pointer

	pld	; restore caller's Data Bank and
	plb	; Direct Page registers

	clc	; Adjust the stack pointer to point to
	adc #ReturnValue-4	; the new location of the RTL address.
	tcs	; Put the stack pointer back.

	rtl	; back to the caller

PatchTable	dc.W PictBug	; picture control bug, not disposes picture resources
; dead 5-Apr-91 DAL	dc.W StatTextBug	; static text bug, justification field not looked at

;================================================================
;
; This routine fixes the picture control bug in TenSpeed ROMs.
; Any picture loaded from a resource was not being released.
;
;================================================================
PictBug
	IMPORT do_dispose

	jsr do_dispose

	rts

;;; dead code 5-Apr-91 DAL
;;================================================================
;;
;; This routine fixes the static text control bug in TenSpeed ROMs.
;; The init routine did not copy the justification field into the
;; control record. BRC #51450
;;
;;================================================================
;StatTextBug
;	IMPORT do_StatInit
;
;	jsr do_StatInit
;
;	rts


	ENDP


****************************************************************
*
PushCtlData	PROC EXPORT
*
* Utility routine used by do_dispose.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

	plx
	ldy #NewCtlRecord.ctlData+2
	lda [TheCtlPtr],y
	pha
	dey
	dey
	lda [TheCtlPtr],y
	pha
	phx
	rts

	ENDP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Patch/Patch3/Cursor.pch b/IIGS.601.SRC/GSToolbox/Patch/Patch3/Cursor.pch
new file mode 100644
index 0000000..073909c
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Patch/Patch3/Cursor.pch
@@ -0,0 +1 @@
+
	INCLUDE ':::qd:QDEquates:CORE.GLOBALS1'
	
	title 'Cursor Equates'

ScreenStart	equ $2000
ScreenHeight	equ 200	; number of scan lines
ScreenWidth	equ 160	; number of bytes

ScreenTable	equ $FE553C
ROMUnDrawCursor	equ $FE54B6
MaxWidth	equ 32	; max number of bytes containing
*		; single line of cursor image.

;-----------------------------------------------
;
; We start the cursor data on zero page	at the end
; of the stuff used	by the rest of quickdraw.
;
StartofZP	equ CursorSTART

UseInterrupts	equ StartofZP
IntPending	equ UseInterrupts+2

MouseY	equ IntPending+2
MouseX	equ MouseY+2

NextMouseY	equ MouseX+2
NextMouseX	equ NextMouseY+2

CurHeight	equ NextMouseX+2	; Num scan lines high of cursor
CurWidth	equ CurHeight+2	; Num WORDS wide of	cursor

CursorRect	equ CurWidth+2
CursorY1	equ CursorRect
CursorX1	equ CursorY1+2
CursorY2	equ CursorX1+2
CursorX2	equ CursorY2+2

CursorMode	equ CursorX2+2
CursorRecPtr	equ CursorMode+2

CursorPtr	equ CursorRecPtr+4
MaskPtr	equ CursorPtr+4

CursorPtr1	equ MaskPtr+4
MaskPtr1	equ CursorPtr1+4
CursorPtr2	equ MaskPtr1+4
MaskPtr2	equ CursorPtr2+4
CursorPtr3	equ MaskPtr2+4
MaskPtr3	equ CursorPtr3+4
CursorPtr4	equ MaskPtr3+4
MaskPtr4	equ CursorPtr4+4
CursorPtr5	equ MaskPtr4+4
MaskPtr5	equ CursorPtr5+4
CursorPtr6	equ MaskPtr5+4
MaskPtr6	equ CursorPtr6+4
CursorPtr7	equ MaskPtr6+4
MaskPtr7	equ CursorPtr7+4

SaveHandle	equ MaskPtr7+4

SavePtr	equ SaveHandle+4
SaveSize	equ SavePtr+4

CursorRef	equ SaveSize+2
MaskRef	equ CursorRef+4
HotSpot	equ MaskRef+4

SaveRef	equ HotSpot+4
ScreenRef	equ SaveRef+4

CursorLevel	equ ScreenRef+2
ObscureFlag	equ CursorLevel+2

StartWord	equ ObscureFlag+2

ScreenIndex	equ StartWord+2
SaveIndex	equ ScreenIndex+2
CurrentY	equ SaveIndex+2

ThisOut	equ CurrentY+2
LastOut	equ ThisOut+2
SrcRef	equ LastOut+2
DestRef	equ SrcRef+4
ThisWord	equ DestRef+4

HowManyWords	equ ThisWord+2
WordCount	equ HowManyWords+2
LineCount	equ WordCount+2
HowFarToShift	equ LineCount+2

CursorFlags	equ HowFarToShift+2
TempRect	equ CursorFlags+2
SaveRect	equ TempRect+8

ZZEndofCursor	equ SaveRect+8

Busy_M	equ $8000
Shielded_M	equ $4000
ForceU_M	equ $2000
***SetCursorFlag	equ $0100	; flag used to say don't refresh backsave..
SetCursorFlag	equ $2000

	title 'UndrawCursor'
****************************************************************
*
* iUndrawCursor
*
*
* 4/10/90	Mensch
*
* Added patch to allow for cursor handle being unlocked......
*
*
****************************************************************
iUndrawCursor	PROC EXPORT
	jsr ReCalcCursorPtrs
	jml ROMUnDrawCursor	; and recall the ROM undraw routine
	EndP
	
	title 'DrawCursor'
****************************************************************
*
* iDrawCursor
*
* What the hey, this draws the cursor at the position
* indicated on zp.
*
* Change History
*
* 21 Aug 86     SEG	     The calculation of the saveRect was
*        wrong.  A test for which mode branched
*        wrong for the 2 possible cases	making
*        the 320 mode save rect too big	and the
*        640 mode save rect too small.
*
*        There is a	calculation where I	must add
*        8 to a value.  I know the carry is set
*        so I saved	a byte and added 7 without
*        touching the carry.
*
* 2/1/89    Mensch
*
* Added support for	shadowed bank cursor...
*
* 4/6/90	Mensch
* Added support for non-flashing cursors
* This entails not redrawing the cursor if a certain bit is set in the cursor mode
* word...
*
****************************************************************
iDrawCursor	PROC EXPORT
	
;-------------------------------------------------
;
; First we set up the bank.

	phb	; save the current bank
	sta >$FE1234
;
; Now unlock the cursor handle...
	ldy #4
	lda [SaveHandle],y
	and #$7FFF
	sta [SaveHandle],y

	jsr ReCalcCursorPtrs
;
; Find out if we are shadowed...
	lda >$E0C035	; get the shadow register
	and #$0008	; test the shadowing flags!
	bne @1	; if zero, then shadowing is on
	pea $0101	; push on the shadowed bank
	bra @2

@1	pea $E1E1	; push this on stack
@2	plb	; set bank twice to
	plb	; clear stack


;-------------------------------------------------
;
; Next we set up the cursor rectangle

	lda MouseY
	sec
	sbc HotSpot
	sta CursorY1
	sta SaveRect
	sta CurrentY
	clc
	adc CurHeight
	sta CursorY2
	sta SaveRect+4

	lda MouseX
	sec
	sbc HotSpot+2
	sta CursorX1
	sta SaveRect+2

	lda CurWidth	; get width in words
	asl a	; make it  bytes
	asl a	; make it pixels for 320 mode

	bit CursorMode-1
	bpl Width320	; Fixed 21 Aug 86
	asl a
Width320	clc
	adc CursorX1
	sta CursorX2
	sta SaveRect+6


;-----------------------------------------------
;
; Now I calculate the real bounds of the 
; SaveRect.
;  
	clc	; clear carry for use later
	lda #%1111111111111100 ; load a with mask for 320 mode
	bit CursorMode-1	; check real mode
	bpl Still320	; if not 320 mode put one more
	asl a	; zero at low and and set carry!
Still320	tay	; put copy of mask in y
	and SaveRect+2	; and with left edge of rect
	sta SaveRect+2	; and save it
	tya	; get make back
	and SaveRect+6	; and with right edge
	bcs Still640	; if carry is clear	then we know
	adc #4	; that we were in 320 mode
	bra SaveRtEdge	; so add 4 and save	rt edge
Still640		; ; otherwise add 8	and save rt edge
	adc #7	; note that carry was set to get here
;       ; and adding 7 with carry set is like
;       ; adding 8.	(sorry to those who	follow)
;       ; This changed on
;       ;    Aug 21, 1986
;       ; by SEG

SaveRtEdge	sta SaveRect+6


;-------------------------------------------------
;
; Set up the StartWord (we don't use FinishWord) then 
; Figure out which preshifted image to use and put
; pointer to it in CursorRef and MaskRef.
;
	bit CursorMode-1
	bmi Mode640

	lda CursorX1	; make x value into	byte
	asl a	; get sign into c
	lda CursorX1
	ror a	; preserve sign
	and #$FFFE	; make even
	sta StartWord

	lda CursorX1	; which preshifted image do I use?
	and #3
	bra GetReady


Mode640		; 
	lda CursorX1	; make x value into	byte
	asl a	; get sign into c
	php	; and save it
	lda CursorX1
	ror a	; preserve sign
	plp
	ror a	; rotate again preserving sign
	and #$FFFE	; make even
	sta StartWord

	lda CursorX1	; determin which of	the preshifted
	and #7	; images to use

GetReady	asl a	; use number in a as index into
	asl a	; pointers on zp
	asl a
	tax

	lda CursorPtr,x
	sta CursorRef
	lda CursorPtr+1,x
	sta CursorRef+1

	lda MaskPtr,x
	sta MaskRef
	lda MaskPtr+1,x
	sta MaskRef+1

;-------------------------------------------------
;
; Set up other important vars for looping.
;

	lda SavePtr	; put the pointer to the beginning
	sta SaveRef	; of the save area into SaveRef
	lda SavePtr+1	; (which will be bumped for each 
	sta SaveRef+1	; scan line)


	lda CursorY1
	sta CurrentY

	lda CursorMode	; see if we should backsave the new data
	and #$0100
	beq @1
	
	lda CursorMode	; and take this oportunity to turn off this bit
	and #$FEFF	; strip just that bit...
	sta CursorMode
	
	lda #$FFFF
@1	sta HowFarToShift	; we reuse cursor <X> just for grins here

;-------------------------------------------------
;
; The Outer Loop
;
;    For each scan line (CursorY1 thru CursorY2)
;
OuterLoop		; 

	lda CurrentY
	bpl NotAbove
	jmp BumpVertCounters

NotAbove	cmp #ScreenHeight
	bmi NotBelow
	jmp AllDone

NotBelow	cmp CursorY2
	bmi YesDoIt
	jmp AllDone

YesDoIt		; 

;-------------------------------------------------
;
; Now I set up the loop to save the screen,
; or in the mask and eor in the cursor all in
; one loop
;
	lda CurWidth	; init the word count again (1 more
	dec a
	sta WordCount	; than before)

	lda StartWord	; Screen Index starts at start word
	sta ScreenIndex

	lda CurrentY	; ScreenRef is created from current
	asl a	; Y
	tax
	lda >ScreenTable,x
	sta ScreenRef

	stz SaveIndex	; Save index starts	at zero


DrawLoop	ldy ScreenIndex	; get screen index
	bmi OffScrnH	; and see if it points ot real
	cpy #ScreenWidth	; screen
	bpl OffScrnH

	lda (ScreenRef),y	; Save under cursor
	ldy SaveIndex	; put in save buffer
; put in code here to muffle the save if needed...
	bit HowFarToShift	; now contains our flag...
	bmi @1
	sta [SaveRef],y
@1
	ora [MaskRef],y	; NOTE: save some fancy <Y> shuffling
	tyx	; need to have this in <X>
	
; Was ...	lda [MaskRef],y	; get word from mask
;	tyx	; save this here for quick access
;	ldy ScreenIndex	; get this back
;	ora (ScreenRef),y	; or with screen
;	txy
	
	eor [CursorRef],y	; eor with rotated cursor
	ldy ScreenIndex
	sta (ScreenRef),y	; store in screen

	inx	; bump this now that is in a register
	inx	; register
	stx SaveIndex
	iny	; bump this now since it is in a
	iny	; register
	sty ScreenIndex

FinishLoop	dec WordCount	; dec the word count and
	bpl DrawLoop	; repeat till done
	bra BumpVertCounters ; now bump vert counters


OffScrnH	inc ScreenIndex	; These were not bumped
	inc ScreenIndex	; in loop since cursor was clipped
	inc SaveIndex
	inc SaveIndex
	bra FinishLoop


BumpVertCounters		; 
	inc CurrentY

	lda CurWidth	; use this to calc width
	asl a
	tax	; save in x
	clc	; add to cursor ref
	adc CursorRef
	sta CursorRef

	txa	; add to mask ref
	clc
	adc MaskRef
	sta MaskRef

	txa	; inc once and add to SaveRef
	inc a
	inc a
	clc
	adc SaveRef
	sta SaveRef


	jmp OuterLoop

AllDone

	plb	; restore stack
	rtl

	ENDP

ReCalcCursorPtrs	proc Export
;
; This routine can be called by the draw or erase routines to determine if the
; cursor ptrs are correctly set up, this will allow us to leave the cursor image
; unlocked once its created so that it can move whenever needed
; NOTE: This relies on savesize being set properly...
;
; First determine if the handle has moved since the last time...
	lda SavePtr
	cmp [SaveHandle]
	bne @DoRecalc
	ldy #2
	lda SavePtr+2
	cmp [SaveHandle],y
	bne @DoRecalc
	rts	; else, the pointers are set up just fine
@DoRecalc
	ldy #2
	lda [SaveHandle],y
	sta SavePtr+2
	lda [SaveHandle]
	sta SavePtr
	
	lda SavePtr	; the first pointer	is savesize past
	clc	; saveptr.
	adc SaveSize
	sta CursorPtr1
	lda SavePtr+2
	adc #0
	sta CursorPtr1+2

	ldx #0
SetUpLoop	lda CursorPtr1,x
	clc
	adc SaveSize
	sta CursorPtr1+4,x
	lda CursorPtr1+2,x
	adc #0
	sta CursorPtr1+6,x
	inx
	inx
	inx
	inx
	cpx #13*4	; 52, 7 sets of two	pointers
	bcc SetUpLoop
	rts
	
	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Patch/Patch3/Desk.pch b/IIGS.601.SRC/GSToolbox/Patch/Patch3/Desk.pch
new file mode 100644
index 0000000..aaa274b
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Patch/Patch3/Desk.pch
@@ -0,0 +1 @@
+	title 'Desk Mgr Patch        GS ROM 3 Patch'
******************************************************************
*
*	Desk manager patches for ROM 3
*
* System Disk 5.0
*
*
* 01 Jun 89	Steven Glass
*
* We just discovered that the NDA calls are re-entrant and when
* this occurs the nda handle list is unlocked by the second call
* but the first call doesn't know it.
*
* This leads us to use dangling handles.  To fix this we
* save the state of the handle before each call and restore
* it at the end.
*
* 28 Aug 89	Harry Yee
*
* Patch calls AddToRunQ and RemoveFromRunQ. These calls were
* calling DerefNDAList but never UnlockNDAList. This caused
* the NDAList handle to stay locked. BRC #52333.
*
* 17-Sep-90	Dave Lyons
*
* Removed dependency on all.macros.
*
* 19-Sep-90	Dave Lyons
*
* Added GetIndDAInfo and CallDeskAcc skeletons.
* Version number is $8304.
*
* 25-Nov-90	Dave Lyons
*
* Changed FixAppleMenu patch to call FixAppleMenu2 in Desk:NDACalls
* (this version conditionally sorts the names).
*
* 27-Nov-90	Dave Lyons
*
* Patch ChooseCDA to call SortCDAs.
*
* 3-Jan-91	Dave Lyons
*
* Changed SystemEvent so that Apple-w or Apple-W with a System
* window in front calls CloseNDAByWinPtr and returns TRUE, instead
* of letting the DA or the application handle the Apple-W.
*
* 12-Feb-91	Dave Lyons
*
* Patched ChooseCDA (into the Desk project) so it supports letter
* keys now (and uses a sane Event Mask on the GetNextEvent call).
*
* Made DABootInit store monkeyin in KeyInput for CDA menu.
*
* 19-Feb-91	Dave Lyons
*
* Moved GetIndDAInfo and CallDeskAcc into Desk:NDACalls.
* Added new call GetDeskGlobal to the call table.
*
* Killed local patches in favor of Desk:NDACalls for the
* following revised calls:  SystemClick, SystemEdit,
* SystemEvent, CloseNDAByWinPtr.
*
* Since we're calling stuff directly in NDACalls.asm now, I
* made DeskBootInit zero out $E01D6E, and StartUsUp and ShutUsDown
* increment and decrement it so that the NDACalls code doesn't
* unlock the NDAList handle when it shouldn't.
*
* 4-Mar-91	Dave Lyons
*
* Add SendRequest calls to DeskStartUp and DeskShutDown.
*
* 11-Mar-91	Dave Lyons
*
* Changed name of GetIndDAInfo to GetDeskAccInfo.
*
* 21-Apr-91	Dave Lyons
*
* Changed SystemTask to return with no error if GS/OS is busy.
*
* 2-May-91	Dave Lyons
*
* Patch CloseAllNDAs to close non-NDA system windows (code in
* Desk:NDACalls.asm).
*
* 20-May-91	Dave Lyons
*
* Changed to use SystemTask from Desk:NDACalls.asm to be just
* like ROM 1.
*
* 5-Aug-91	Dave Lyons
*
* Added paranoia check to DeskStartUp--checks for GS/OS and
* several tools; takes no action if they aren't here.
*
* 4-Sep-91	Dave Lyons
*
* Now calls the paranoid OpenNDA in NDACalls.asm (it sets the
* port to something safe around opening the NDA).
*
* 16-Sep-91	Dave Lyons
*
* DeskStartUp and DeskShutDown maintain RealDeskStatus, so that
* FixAppleMenu can use it.
*
* 17-Sep-91	Dave Lyons
*
* Moved a lot of calls to Tool.Setup.
*
* 5-Feb-92	Dave Lyons
*
* Version $0304 for 6.0 final.  DeskVersion no longer falls
* into DeskBootInit!
*
******************************************************************
*
* 7-Jul-92	Dave Lyons for 6.0.1
*
* DeskShutDown zeroes $00/07FC if slot 4 is set to Mouse.
* This should stop the mouse from freezing on exiting the
* CDA menu in a desktop application, after running an app
* (like ProTERM 3.0) that leaves a nonzero value in $07FC.
*
******************************************************************

****************************************************************
*			   *
*              Copyright (C) 1989-1992		   *
*              All Rights Reserved		   *
*              Apple Computer, Inc.		   *
*			   *
****************************************************************
	Blanks off
	String asis
	
	include 'all.macros'

	include ':::sys.equs.asm'
	include 'e16.memory'
	include ':::desk:Desk.Equates.asm'


	DefineStack
OrigD	word
TheHandle	long
RTL1	block 3
RTL2	block 3
TheInput	long


	import RemoveNDA
	import ChooseCDA

****************************************************************
*
DeskCallTable	PROC EXPORT
*
* Contains pointers to all the calls we are patching.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

TheBeginning
	DC.L (TheEnd-TheBeginning)/4 ; num calls + 1
	DC.L DABootInit-1	; 	  0105
	DC.L DAStartup-1		; 0205 patched 4-Mar-91 DAL
	DC.L DAShutdown-1		; 0305 patched 4-Mar-91 DAL
	DC.L DAVersion-1	; 	  0405
	DC.L 0	; DAReset-1	; 0505
	DC.L 0	; DAStatus-1	; 0605
	DC.L 0	; oEndCall0-1	; 0705     reserved
	DC.L 0	; oEndCall0-1	; 0805     reserved
	DC.L 0	; SaveScreen-1	; 0905
	DC.L 0	; RestScreen-1	; 0A05
	DC.L 0	; SaveAll-1	; 0B05
	DC.L 0	; RestAll-1	; 0C05
	DC.L 0	; oEndCall0-1	; 0D05
	DC.L InstallNDA-1		; 0E05
	DC.L 0	; instcda-1	; 0F05
	DC.L 0	; oEndCall0-1	; 1005
	DC.L 0	;[ts] ChooseCDA-1		; 1105
	DC.L 0	; oEndCall0-1	; 1205
	DC.L 0	; setdastrptr-1	; 1305
	DC.L 0	; getdastrptr-1	; 1405
	DC.L OpenNDAentry-1		; 1505
	DC.L CloseNDA-1		; 1605
	DC.L 0  ;[ts] SystemClick-1		; 1705
	DC.L 0  ;[ts] SystemEdit-1		; 1805
	DC.L 0  ;[ts] SystemTask-1		; 1905
	DC.L 0  ;[ts] SystemEvent-1	; 1A05
	DC.L GetNumNDAs-1		; 1B05
	DC.L 0  ;[ts] CloseNDAbyWinPtr-1 	; 1C05
	DC.L 0  ;[ts] CloseAllNDAs-1		; 1D05
	DC.L 0  ;[ts] FixAppleMenu-1		; 1E05
	DC.L AddToRunQ-1		; 1F05
	DC.L RemoveFromRunQ-1 	; 2005
	DC.L 0	; RemoveCDA-1	; 2105
	DC.L 0  ;[ts] RemoveNDA-1		; 2205
	dc.L 0  ;[ts] GetDeskAccInfo-1	; 2305  19-Sep-90 DAL
	dc.L 0  ;[ts] CallDeskAcc-1	; 2405  19-Sep-90 DAL
	dc.l 0  ;[ts] GetDeskGlobal-1	; 2505  19-Feb-91 DAL
TheEnd
	ENDP


****************************************************************
*
* DeskStartUp patch -- 4-Mar-91 DAL
*
* Call the ROM and then call SendRequest($0502)
*
****************************************************************
DAStartUp	proc

*** added 5-Aug-91 DAL -- if proper environment is not set up, do nothing
	pha
	phy

	lda >$e100bc	;OS_Kind
	and #$00ff
	dec a
	bne @error	;must be $01=GS/OS

	ldx #@neededToolsEnd-@neededTools
@checkOneTool	dex
	bmi @toolsAreHere
	phx
	lda >@neededTools,x
	and #$00FF
	ora #$0600	;compute xxxStatus function code
	tax
	pea 0
	jsl $e10000	;make the call
	pla
	plx
	tay
	bne @checkOneTool	;nonzero status --> go back for more

@error	ply
	pla
	lda #0
	clc
	rtl

@neededTools	dc.b $0E	;window
	dc.b $0F	;menu
	dc.b $10	;control
	dc.b $14	;line edit
	dc.b $15	;dialog
;;;	dc.b $16	;scrap (omitted...I'm feeling generous)
@neededToolsEnd

@toolsAreHere	ply
	pla
*** end 5-Aug-91 DAL

	jsl $fec70e
	pha

	lda #$ffff	;16-Sep-91 DAL
	sta >RealDeskStatus	;16-Sep-91 DAL

	pea $0502	;request code
	lda #0
	pha	;how = everybody
	pha
	pha	;target = nil
	pha
	pha	;dataIn = nil
	pha
	pha	;dataOut = nil
	_SendRequest

	pla
	cmp #1
	rtl

	EndP

****************************************************************
*
* DeskShutDown patch -- 4-Mar-91 DAL
*
* Call the ROM and then call SendRequest($0503)
*
****************************************************************
DAShutDown	proc

*** added 7-Jul-92 DAL
*** If slot 4 is internal then zap $07FC mouse mode
	pha
	sep #$20
	longa off
	lda >$E1C02D
	and #$10
	bne @external4
	lda #0
	sta >$0007FC
@external4	rep #$20
	longa on
	pla
*** end 7-Jul-92

	jsl $fec729
	pha

	lda #0	;16-Sep-91 DAL
	sta >RealDeskStatus	;16-Sep-91 DAL

	pea $0503	;request code for DeskShutDown
	lda #0
	pha	;how = everybody
	pha
	pha	;target = nil
	pha
	pha	;dataIn = nil
	pha
	pha	;dataOut = nil
	_SendRequest

	pla
	cmp #1
	rtl

;;;	export RealDeskStatus
;;;RealDeskStatus	dc.w 0

	EndP


****************************************************************
*
DAVersion	PROC
*
* Returns the version number of the desk manager
*
*
* Inputs:
*	none
*
* Outputs:
*	work : The patched version number
*
* External Refs:
*	Falls into the boot init code.
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

	lda #$0304	;5-Feb-92 DAL
	sta 7,s
*** added 5-Feb-92 DAL
	lda #0
	clc
	rtl
*** end 5-Feb-92

	ENDP


****************************************************************
*
DABootInit	PROC
*
* Simple routine to do nothing so when patch is installed,
* nothing bad happens.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

;;; Tool.Setup now inits keyinput (17-Sep-91 DAL)
;;;	import monkeyin
;;;
;;;	lda #monkeyin
;;;	sta >keyinput	;added 12-Feb-91 DAL

	lda #0
	sta >$e01d6e	;counts number of re-times Desk Mgr is
		;re-entrantly active (used in NDACalls)

***	lda #0	;already 0
	clc
	RTL

	ENDP


****************************************************************
*
StartUsUp	PROC
*
* This routine is used by all the patched nda calls to 
* save the lock status on the stack.
*
* It preserves a and y but trashes x.
*
* It also sets the d-page to the stack
*
*
* Inputs:
*	a & y have the handle to global data
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


	plx	; pull off the rts addr into x
	phy	; push y and a (the handle to the data area)
	pha
	phd	; save d-reg
	tsc	; turn stack into direct page
	tcd

	ldy #4	; save the lock status on the stack
	lda [TheHandle],y
	pha

	phx	; put back rts and 

*** added 19-Feb-91 DAL
	lda >$e01d6e
	inc a
	sta >$e01d6e
*** end of 19-Feb-91 DAL

	lda TheHandle	; restore the incoming WAP
	ldy TheHandle+2

	rts	; return.

	ENDP

****************************************************************
*
ShutUsDown	PROC
*
* Restores the lock status from the stack.  Cleans up the stack
* and calls the strip routine.
*
*
* Inputs:
*	on stack
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

	pla	; restore the lock status
	phy	; save the strip value
	ldy #4	; store the lock status
	sta [TheHandle],y
	ply	; restore the strip value.

*** added 19-Feb-91 DAL
	lda >$e01d6e
	dec a
	sta >$e01d6e
*** end of 19-Feb-91 DAL

	pld	; restore the d-page
	pla	; clean off the handle
	pla
	jml ToStrip	; use y and x to fall into stripping code

	ENDP


;****************************************************************
;*
;* ChooseCDA patch 27-Nov-90 DAL
;*
;* Call SortCDAs (in Desk:CDACalls.asm) to conditionally sort
;* the list before we display it.
;*
;MyChooseCDA	proc
;	import SortCDAs
;
;	jsr SortCDAs
;	jml $fed0cf	;doesn't use A/X/Y
;
;	EndP


****************************************************************
*
InstallNDA	PROC
*
*
	longa on	; mode
	longi on
*
****************************************************************


	jsr StartUsUp


	pei TheInput+2	; make the call
	pei TheInput
	jsl ToInstallNDA

	tax	; save error code in x

	ldy #4
	brl ShutUsDown

ToInstallNDA	jsl $00FEDA5E
	rtl

	ENDP

****************************************************************
*
OpenNDAentry	PROC
*
*
	longa on	; mode
	longi on
*
****************************************************************
	import OpenNDA

	jsr StartUsUp

	pha	; make the call
	pei TheInput
	jsl ToOpenNDA
	tax
	pla
	sta TheInput+2

	ldy #2
	brl ShutUsDown

;;ToOpenNDA	jsl $00FEDB1C
;;	rtl

ToOpenNDA	jsl OpenNDA
	rtl

	ENDP


****************************************************************
*
CloseNDA	PROC
*
*
	longa on	; mode
	longi on
*
****************************************************************


	jsr StartUsUp

	pei TheInput
	jsl ToCloseNDA
	tax

	ldy #2
	brl ShutUsDown

ToCloseNDA	jsl $00FEDBB7
	rtl

	ENDP


;****************************************************************
;*
;SystemClick	PROC
;*
;*
;	longa on	; mode
;	longi on
;*
;****************************************************************
;
;
;	jsr StartUsUp
;
;	pei TheInput+8
;	pei TheInput+6
;	pei TheInput+4
;	pei TheInput+2
;	pei TheInput
;	jsl ToSystemClick
;	tax
;
;	ldy #10
;	brl ShutUsDown
;
;ToSystemClick	jsl $00FEDD76
;	rtl
;
;	ENDP
;
;
;****************************************************************
;*
;SystemEdit	PROC
;*
;*
;	longa on	; mode
;	longi on
;*
;****************************************************************
;
;
;	jsr StartUsUp
;
;	pha	; make the call
;	pei TheInput
;	jsl ToSystemEdit
;	tax
;	pla
;	sta TheInput+2
;
;	ldy #2
;	brl ShutUsDown
;
;ToSystemEdit	jsl $00FEDEAF
;	rtl
;
;	ENDP


;****************************************************************
;*
;SystemTask	PROC
;*
;*
;	longa on	; mode
;	longi on
;*
;****************************************************************
;
;*** added 21-Apr-91 DAL -- make SystemTask take no action if GS/OS is busy
;	tax
;	lda >$e100be
;	bpl @1
;	clc
;	lda #0
;	rtl
;@1	txa
;*** end of 21-Apr-91 DAL
;
;	jsr StartUsUp
;
;	jsl ToSystemTask
;	tax
;
;	ldy #0
;	brl ShutUsDown
;
;ToSystemTask	jsl $00FEDC61
;	rtl
;
;	ENDP

*** old	****************************************************************
*** old	*
*** old	SystemEvent	PROC
*** old	*
*** old	*
*** old		longa on	; mode
*** old		longi on
*** old	*
*** old	****************************************************************
*** old	
*** old	
*** old		jsr StartUsUp
*** old	
*** old		pha
*** old		pei TheInput+14
*** old		pei TheInput+12
*** old		pei TheInput+10
*** old		pei TheInput+8
*** old		pei TheInput+6
*** old		pei TheInput+4
*** old		pei TheInput+2
*** old		pei TheInput
*** old		jsl ToSystemEvent
*** old		tax
*** old		pla
*** old		sta TheInput+16
*** old	
*** old		ldy #16
*** old		brl ShutUsDown
*** old	
*** old	ToSystemEvent	jsl $00FED8A3
*** old		rtl
*** old	
*** old		ENDP


;****************************************************************
;*
;SystemEvent	PROC
;*
;*
;* 12/6/89	Mensch
;* Added patch so that menu key equivs can be properly handled by desk accs.
;* Since this only affects the menu key stuff it should not change any other
;* behavior.
;* 
;* 3-Jan-91	Dave Lyons
;*
;* Resurrected this code and change it to only affect Apple-w and
;* Apple-W.  It just does a CloseNDAByWinPtr(FrontWindow) and
;* returns TRUE.
;*
;* NOTE: TB Ref Volume 1 has the SystemEvent input parameters listed
;* in reverse order.  Oops.
;*
;	longa on	; mode
;	longi on
;*
;****************************************************************
;
;	jsr StartUsUp
;	sta >deskWAP
;	tya
;	sta >deskWAP+2
;
;; Patch goes here...
;	lda TheInput+0	;eventWhat
;	cmp #$0005	; is it auto key down?
;	beq @isKey
;	cmp #$0003	; is it a key down?
;	bne @DoSysEvent
;@isKey	lda TheInput+14	; see if the modifiers key is down
;	and #$0100	; see if the apple key is down...
;	beq @DoSysEvent
;
;	lda TheInput+2	;eventMessage
;	and #$00ff
;	cmp #'w'
;	beq @DoCloseNDA
;	cmp #'W'
;	bne @DoSysEvent
;
;@DoCloseNDA	pha
;	pha
;	_FrontWindow
;	ply
;	pla
;	bne @aWindow
;	tyx
;	bne @aWindow
;	bra @DoSysEvent
;
;@aWindow	pha
;	pha
;	phy
;	_GetSysWFlag
;	pla
;	bpl @DoSysEvent
;	pha
;	pha
;	_FrontWindow
;	_CloseNDAByWinPtr
;
;	pea $ffff	;result = TRUE
;	lda #0	;error 0
;	bra @JustLeave	; and simply exit...
;@DoSysEvent
;	pha
;	pei TheInput+14
;	pei TheInput+12
;	pei TheInput+10
;	pei TheInput+8
;	pei TheInput+6
;	pei TheInput+4
;	pei TheInput+2
;	pei TheInput
;	lda >deskWAP+2
;	tay
;	lda >deskWAP
;	jsl ToSystemEvent
;@JustLeave	tax
;	pla
;	sta TheInput+16
;
;	ldy #16
;	brl ShutUsDown
;
;ToSystemEvent	jsl $00FED8A3
;	rtl
;
;deskWAP	dc.l 0
;
;	ENDP


****************************************************************
*
GetNumNDAs	PROC
*
*
	longa on	; mode
	longi on
*
****************************************************************


	jsr StartUsUp

	pha
	jsl ToGetNumNDAs
	tax
	pla
	sta TheInput

	ldy #0
	brl ShutUsDown

ToGetNumNDAs	jsl $00FEDF90
	rtl

	ENDP


;****************************************************************
;*
;CloseNDAByWinPtr	PROC
;*
;*
;	longa on	; mode
;	longi on
;*
;****************************************************************
;
;
;	jsr StartUsUp
;
;
;	pei TheInput+2	; make the call
;	pei TheInput
;	jsl ToCloseNDAByWinPtr
;
;	tax	; save error code in x
;
;	ldy #4
;	brl ShutUsDown
;
;ToCloseNDAByWinPtr	jsl $00FEDBDC
;	rtl
;
;	ENDP


;****************************************************************
;*
;CloseAllNDAs	PROC
;*
;*
;	longa on	; mode
;	longi on
;*
;****************************************************************
;
;	import CloseAllNDAs2
;
;	jsr StartUsUp
;
;	jsl ToCloseAllNDAs
;	tax
;
;	ldy #0
;	brl ShutUsDown
;
;;ToCloseAllNDAs	jsl $00FEDC02
;;	rtl
;
;ToCloseAllNDAs	jsl CloseAllNDAs2
;	rtl
;
;	ENDP


;****************************************************************
;*
;FixAppleMenu	PROC
;*
;*
;	longa on	; mode
;	longi on
;*
;****************************************************************
;
;
;	jsr StartUsUp
;
;	pei TheInput
;	jsl ToFixAppleMenu
;	tax
;
;	ldy #2
;	brl ShutUsDown
;
;*** ToFixAppleMenu	jsl $00FEDEDB
;***	rtl
;
;ToFixAppleMenu	jsl FixAppleMenu2	;in Desk:NDACalls.asm
;	rtl
;
;	ENDP


****************************************************************
*
AddToRunQ	PROC
*
*
	longa on	; mode
	longi on
*
****************************************************************

	jsr StartUsUp

	pei TheInput+2	; make the call
	pei TheInput
	jsl ToAddToRunQ

	tax	; save error code in x

	ldy #4
	brl ShutUsDown

ToAddToRunQ	jsl $00FEE0BD
	rtl

	ENDP


****************************************************************
*
RemoveFromRunQ	PROC
*
*
	longa on	; mode
	longi on
*
****************************************************************

	jsr StartUsUp

	pei TheInput+2	; make the call
	pei TheInput
	jsl ToRemoveFromRunQ

	tax	; save error code in x

	ldy #4
	brl ShutUsDown

ToRemoveFromRunQ	jsl $00FEE0E4
	rtl

	ENDP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Patch/Patch3/DialogMgr.pch b/IIGS.601.SRC/GSToolbox/Patch/Patch3/DialogMgr.pch
new file mode 100644
index 0000000..de3926e
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Patch/Patch3/DialogMgr.pch
@@ -0,0 +1 @@
+	title 'Dialog Mgr Patch        GS ROM 3 Patch'
******************************************************************
*
* Dialog manager patches for ROM 3
*
* System Disk 5.0
*
* 19 May 89	Steven Glass
*
* Patch to DialogStartup so that we startup anyway if it had
* been started before.
*
* 31 May 89	Harry Yee
*
* Take out prototype bit in version number. (Final version = 3.1 
* for System Disk 5.0)
*
* 9/7/89	Mensch
*
* Fixed handle allocation bug in startup. Handle was being allocated 
* as moveable, then derefed and turned into many pointers... it will now
* be allocated as locked.
*
* 24-Sep-90	Dave Lyons
*
* Version $8304.
*
* DialogStartup now calls ErrorSound(nil).
* ErrorSound(nil) uses new-and-improved standard sound procedure
* that calls SysBeep2 (8000=alert stage 0, 1..3 = stage 1..3, and
* 4 = clicked outside window).  The Carry flag is set on entry
* to the sound proc if the user clicked outside a window.
*
* 18-Feb-91	Dave Lyons
*
* Changed the default sound proc so that it uses bit 14 of SysBeep2
* intelligently (for deferring sounds until the next GetNextEvent).
*
* 5-Mar-91	Dave Lyons
*
* First cut at doing I-Beam cursor handling when bit 30 of the
* ModalDialog filter proc is set.  Patched ModalDialog.  No need
* to patch ModalDialog2, since it calls ModalDialog through the
* tool dispatcher.
*
* 7-Mar-91	Dave Lyons
*
* Second try at I-Beam cursor stuff.  It was a bad idea to set an
* arrow cursor on the way in and out of every ModalDialog call
* when they had the bit set.  Instead, now CloseDialog calls
* InitCursor if ModalDialog left the cursor as an I-Beam.
*
* 10-Jun-91 DAL
*
* Removed check for active editLine item from ModalDialogCursorPoll.
* Now we use an IBeam cursor over all editLines, even if they are
* inactive.
*
* Patched out NoteAlert, CautionAlert, and StopAlert to use some
* colorful icons, instead of boring black-and-white ones.  We jump
* back into ROM as soon as everything is set up.
*
* 26-Aug-91	Dave Lyons
*
* Added check in CreateIcon for dialog at odd X position.  If odd,
* we make the icon position (local coordinates) odd too, so the colors
* will be right.
*
* 13-Oct-91	Dave Lyons
*
* In 320 mode, NoteAlert, StopAlert, and CautionAlert were putting
* their icons at X=0 instead of X=20.  Oops, fixed.
*
* 5-Feb-92	Dave Lyons
*
* Version $0304 for 6.0 final.
*
******************************************************************
*
* BEGIN 6.0.1
*
* 26-Jan-93	Dave Lyons
*
* Changed version to $8305 to match TOOL021.  No other change;
* the TOOL021 bug did not affect us.
*
* 2-Apr-93 DAL
*
* Version $0305 for 6.0.1
*
******************************************************************

	import DialogStartup

****************************************************************
*			   *
*              Copyright (C) 1989-93		   *
*              All Rights Reserved		   *
*              Apple Computer, Inc.		   *
*			   *
****************************************************************
	Blanks off
	String asis
	
***	include 'm16.dialog'
	include 'all.macros'	;5-Mar-91 DAL

DialogCallTable	PROC EXPORT

	import DialogVersion
	import NewDialogStartup
	import ErrorSound
	import ModalDialog		;5-Mar-91 DAL
	import CloseDialog		;7-Mar-91 DAL
	import StopAlert		;10-Jun-91 DAL
	import NoteAlert		;10-Jun-91 DAL
	import CautionAlert		;10-Jun-91 DAL

FPT	DC.L (ENDFPT-FPT)/4
	DC.L 0	; DialogBootInit-1 	1
	DC.L NewDialogStartup-1 	2
	DC.L 0	; DialogShutDown-1 	3
	DC.L DialogVersion-1 	4
	DC.L 0	; DialogReset-1	5
	DC.L 0	; DialogStatus-1	6
	DC.L 0	; ErrorSound-1	7
	DC.L 0	; SetDAFont-1	8
	DC.L ErrorSound-1	; 9
	DC.L 0	; NewModalDialog-1 10
	DC.L 0	; NewModelessDialog-1 11
	DC.L CloseDialog-1	;	12 patched 7-Mar-91 DAL
	DC.L 0	; NewDItem-1	13
	DC.L 0	; RemoveItem-1	14
	DC.L ModalDialog-1	;	15 patched 5-Mar-91 DAL
	DC.L 0	; IsDialogEvent-1 	16
	DC.L 0	; DialogSelect-1	17
	DC.L 0	; DlgCut-1	18
	DC.L 0	; DlgCopy-1	19
	DC.L 0	; DlgPaste-1	20
	DC.L 0	; DlgDelete-1	21
	DC.L 0	; DrawDialog-1	22
	DC.L 0	; Alert-1	23
	DC.L StopAlert-1	;	24
	DC.L NoteAlert-1	;	25
	DC.L CautionAlert-1	;	26
	DC.L 0	; ParamText-1	27
	DC.L 0	; SetDAFont-1	28
	DC.L 0	; SetItemToControl-1 29
	DC.L 0	; GetControlDItem-1 30
	DC.L 0	; GetIText-1	31
	DC.L 0	; SetIText-1	32
	DC.L 0	; SelIText-1	33
	DC.L 0	; HideDItem-1	34
	DC.L 0	; ShowDItem-1	35
	DC.L 0	; FindDItem-1	36
	DC.L 0	; UpdateDialog-1	37
	DC.L 0	; GetItemType-1	38
	DC.L 0	; SetItemType-1	39
	DC.L 0	; GetItemBox-1	40
	DC.L 0	; SetItemBox-1	41
	DC.L 0	; GetFirstItem-1	42
	DC.L 0	; GetNextItem-1	43
	DC.L 0	; ModalDialog2-1	44
	DC.L 0	; RESERVED-1	45
	DC.L 0	; GetItemValue-1	46
	DC.L 0	; SetItemValue-1	47
	DC.L 0	; RESERVED-1	48
	DC.L 0	; RESERVED-1	49
	DC.L 0	; GetNewModalDialog-1 50
	DC.L 0	; GetNewDItem-1	51
	DC.L 0	; GetAlertStage-1	52
	DC.L 0	; ResetAlertStage-1 53
	DC.L 0	; DefaultFilter-1	54
	DC.L 0	; GetDefButton-1	55
	DC.L 0	; SetDefButton-1	56
	DC.L 0	; DisableDItem-1	57
	DC.L 0	; EnableDItem-1	58
ENDFPT
	ENDP

*************************************************************************
*
* DialogVersion patch
*
*************************************************************************
DialogVersion	PROC

	lda #$0305	;2-Apr-93 DAL
	sta 7,s
	lda #0
	clc
	rtl

	ENDP

**************************************************************************
*
* 24-Sep-90 DAL
*
* Now calls ErrorSound(nil) after calling the ROM startup function
*
* (The patch to load AY=nil before calling the ROM was already here.)
*
**************************************************************************
NewDialogStartup	PROC

	lda 7,s
	pha
	lda #0
	tay
	jsl @toStartup	;call with WAP=0
	bcs @exit
	lda #0
	pha
	pha
	_ErrorSound
@exit	tax
	ldy #2	;strip 2 bytes
	jml $e10184	;ToStrip

@toStartup	jsl DialogStartup
	rtl

	ENDP


**************************************************************************
*
* ErrorSound patch
*
* New patch 24-Sep-90 DAL
*
* ErrorSound(nil) defaults to nifty-new sound proc.
*
**************************************************************************
ErrorSound	PROC

	tax
	lda 7,s
	ora 9,s
	bne @toROM

	lda #^NewSoundProc
	sta 9,s
	lda #<NewSoundProc
	sta 7,s

@toROM	txa
	jml $fc67cf

*************************************************************************
*
* NewSoundProc--input is one word on stack (needs to be removed).
*
* If the carry is set, the user clicked outside a dialog window,
* so we need to call SysBeep2($0004).  If the carry is clear, the
* word on the stack is the alert stage (0..3).  Stage 0 makes no
* sound by default so we call SysBeep2($C000).  Stages 1..3 map to
* SysBeep2(4001..4003).
*
* (Setting bit 14 defers the sound until the next GetNextEvent call.)
*
NewSoundProc

*** Let's try this one more time, using bit 14 of SysBeep2 this time to delay
*** the beeps until GetNextEvent gets called.  17-Feb-91 DAL

	lda 1,s
	cmp #$7fa4
	bne @notOutsideWindow
	lda 2,s
	cmp #$fc7f
	bne @notOutsideWindow
	lda #$0004	;clicked outside dialog/alert
	bra @thisSound
@notOutsideWindow	lda 4,s
	beq @stage0
	ora #$4000	;stage 1..3: $4001..4003 (defer until GetNextEvent)
	bra @thisSound
@stage0	lda #$C000	;stage 0: no sound by default, defer until GNE
@thisSound	pha
	_SysBeep2
	lda 2,s
	sta 4,s
	lda 1,s
	sta 3,s
	pla
	rtl

	EndP


**************************************************************************
*
* CloseDialog patch
*
* New patch 7-Mar-91 DAL
*
* If ModalDialog left the cursor as an I-Beam, call InitCursor.
*
**************************************************************************
CloseDialog	proc export
	import IBeamFlag

	pha	;save WAP
	lda >IBeamFlag
	beq @notIBeam
	lda #0
	sta >IBeamFlag
	_InitCursor
@notIBeam	pla	;get WAP back
	jml >$fc6acb	;original ROM 3 CloseDialog

	EndP


**************************************************************************
*
* ModalDialog patch
*
* New patch 5-Mar-91 DAL
*
* Patch to support I-Beam stuff if they set bit 30 of the filter proc
* parameter.
*
* On the way in:	Call InitCursor if they set bit 30.
*	Initialize IBeamFlag.
*
* During the call:	Get control when ModalDialog calls GetNextEvent, so we
*	can fiddle with the cursor then.
*
* Afterwards:	If the cursor is an I-Beam, make it back into an arrow.
*
* Inputs:
*     WORD  space for result
*     LONG  filter proc pointer
*
**************************************************************************
ModalDialog	PROC

	pha	;save the WAP for a second

	lda 7+2,s
	sta >FilterProcCopy
	lda 7+2+2,s
	sta >FilterProcCopy+2

*** InitCursor on the way in is a bad idea (7-Mar-91 DAL)
;	and #$4000	;check bit 30
;	beq @noInit
;	_InitCursor
;@noInit

	lda #0
	sta >IBeamFlag

	plx	;old WAP

	lda 7+4,s
	pha	;push copy of resull space
	lda 7+4,s
	pha
	lda 7+4,s
	pha	;pushed copy of filter proc
	txa
	jsl @toROM
	tax	;save error code
	pla	;pull result from ROM code
	sta 11,s	;stored new result

;*** Setting the cursor on the way out of ModalDialog is a bad idea
;*** Fix up the cursor if necessary
;	phx	;error code
;	lda >IBeamFlag
;	beq @okay
;	_InitCursor
;@okay	plx	;restore error code

	ldy #4
	jml $e10184	;ToStrip

@toROM	jsl $fc7d55	;original ROM 3 ModalDialog
	rtl

	entry IBeamFlag
IBeamFlag	dc.w 0

	entry FilterProcCopy
FilterProcCopy	dc.l 0

	EndP


**************************************************************************
*
* ModalDialogCursorPoll -- new routine 5-Mar-91 DAL
*
* The GetNextEvent patch calls this routine when it sees it's being
* called from ModalDialog.
*
* We check filter proc bit 30 to see if we're supposed to mess with the
* cursor.  If we are, we need to get the cursor position and change the
* cursor to an arrow or I-Beam appropriately.
*
* Replaced most of this code 7-Mar-91 DAL because we can't call FindDItem;
* that makes an item think it's been clicked on.
*
* 22-Mar-91 DAL
*   Added missing CLC in ModalDialogCursorPoll.
*
**************************************************************************
ModalDialogCursorPoll proc export
	import IBeamFlag
	import FilterProcCopy

@event	equ $0
@where	equ 10	;offset into event record

	lda >filterProcCopy+2
	and #$4000
	bne @1
***	brl @veryBoring
	rtl
@1
; find the item the cursor is over

	pea 0
	tdc
	clc	;added 22-Mar-91 DAL
	adc #@event+@where
	pha
	_GlobalToLocal

	pha	;space for FindCursorCtl
	pushlong #theControlH
	pei <@event+@where+2
	pei <@event+@where
	pha
	pha
	_FrontWindow
	_FindCursorCtl
	pla	;part code
	beq @nonLineEdit

	pha
	pha	;space for GetCtlRefCon
	pushlong >theControlH
	_GetCtlRefCon
	pla	;dItem number
	pla
	and #$7fff	;dialog item type
	cmp #$0011	;Line Edit item?
	bne @nonLineEdit

@isLineEdit	lda >IBeamFlag
	bne @cursorOkay	;already an I-Beam cursor
	lda #1
	sta >IBeamFlag
	_IBeamCursor
	bra @cursorOkay

@nonLineEdit	lda >IBeamFlag
	beq @cursorOkay	;already an arrow cursor
	lda #0
	sta >IBeamFlag
	_InitCursor
@cursorOkay
@veryBoring	rtl

theControlH	dc.l 0

	EndP


**************************************************************************
*
* StopAlert patch 10-Jun-91 DAL for colored icons
*
**************************************************************************
StopAlert	proc export

	ldx #1
	bra GeneralAlert

**************************************************************************
*
* NoteAlert patch 10-Jun-91 DAL for colored icons
*
**************************************************************************
	entry NoteAlert
NoteAlert	ldx #2
	bra GeneralAlert

**************************************************************************
*
* CautionAlert patch 10-Jun-91 DAL for colored icons
*
**************************************************************************
	entry CautionAlert
CautionAlert	ldx #3

GeneralAlert

	import Icon320Table
	import Icon640Table


	MACRO
&lab	tlink &SizeInput,&SizeLocals
	lclc &SL
&SL	setc &DEFAULT(&SizeLocals,'0')
input	equ &SizeLocals+6
output	equ input+&SizeInput
&lab	tsc
	if &SL='0' GOTO .DontSubtract
	sec
	sbc #&SL
	tcs
.DontSubtract
	phd
	inc a
	tcd
	MEND

	MACRO
&lab	tunlink
&lab	pld
	tay
	lda input-1,s
	sta output-1,s
	lda input-3,s
	sta output-3,s
	lda input-5,s
	sta output-5,s
	tsc
	clc
	adc #output-6
	tcs
	tya
	cmp #1
	MEND

	macro
&lab	pushworddp &blah
&lab	pei &blah
	mend

	macro
&lab	pushlongdp &blah
&lab	pei &blah+2
	pei &blah
	mend

	MACRO
	PushZPtr &A
	pea  $0000
	tdc
	clc
	adc  #&A
	pha
	MEND

;
; Zero Page (shared	with Control Manager)
;
Signature	equ 128	; contains DlgSig if Dlg Mgr active
mmgrID	equ Signature+2	; ID to use with the Memory Manager
DialogFont	equ mmgrID+2	; handle to dialog font or 0 for system
AlertSoundProc	equ DialogFont+4	; pointer to custom	sound procedure
AlertStage	equ AlertSoundProc+4 ; current alert stage
LastAlertID	equ AlertStage+2	; ID of last called	alert
ParamString0	equ LastAlertID+2	; Param strings for	^0 to ^3
ParamString1	equ ParamString0+4
ParamString2	equ ParamString1+4
ParamString3	equ ParamString2+4
PartCodeHit	equ ParamString3+4	; Part Code Hit
MemHandle	equ PartCodeHit+2
WindowPointer	equ MemHandle+4
HandStruct	equ WindowPointer+4
***EndZeroPage	equ HandStruct+4
IBeamFlag	equ HandStruct+4	;5-Mar-91 DAL: nonzero = we called IBeamCursor
EndZeroPage	equ IBeamFlag+2	;5-Mar-91 DAL
;
; Alert Template
;
atBoundsRect	equ 0
atalertID	equ atBoundsRect+8
atstage1	equ atalertID+2
atstage2	equ atstage1+1
atstage3	equ atstage2+1
atstage4	equ atstage3+1
atitemlist	equ atstage4+1
*
* Local direct page stuff
*
theDialog	equ 0
ItemTemplate	equ theDialog+4
PortSave	equ ItemTemplate+4
Globals	equ PortSave+4
StageVector	equ Globals+4
IconID	equ StageVector+2
IconHandleStruct	equ IconID+2
SizeLocals	equ IconHandleStruct+4
;
; Icon Item Template
;
IconitemID	equ 0
IconitemRect	equ IconitemID+2
IconitemType	equ IconitemRect+8
IconitemDescr	equ IconitemType+2
IconitemValue	equ IconitemDescr+4
IconitemFlag	equ IconitemValue+2
IconitemColor	equ IconitemFlag+2

	tay	; save d-page in y

	tlink 8,SizeLocals

filterProc	equ input
AlertTemplate	equ filterProc+4

itemHit	equ output

	stx <IconID	; save Icon ID

;
; Get Dialog Manager Zero Page
;
	sty <Globals
	stz <Globals+2


	ldy #HandStruct
	lda [<Globals],y
	sta <IconHandleStruct
	iny
	iny
	lda [<Globals],y
	sta <IconHandleStruct+2

;
; Is it the same alert as the last alert
;
	ldy #atalertID
	lda [<AlertTemplate],y
	ldy #LastAlertID
	cmp [<Globals],y
	beq GetStage

;
; If not, set lastalertID to current alert, and reset alert	stage
;
	sta [<Globals],y	; a = AlertID, y = #LastAlertID

	lda #0
	ldy #AlertStage
	sta [<Globals],y

;
; Get the current stage of the alert
;
GetStage		; 
	ldy #AlertStage	; calculate offset to current stage
	lda [<Globals],y	; in the alert template
	clc
	adc #atstage1
	tay
	lda [<AlertTemplate],y
	and #$FF
	sta <StageVector

;
; Call the Sound Procedure
;
	and #%00000011	; get sound number in bits 0-1
	pha

	ldy #AlertSoundProc+1 ; look if there is a custom sound proc
	lda [<Globals],y	; (X = bits 8-23)
	dey	; Y = AlertSoundProc
	tax

*** There will always be a custom sound proc, because of ErrorSound/DialogStartUp
*** patches above.  10-Jun-91 DAL
;	bne CallCustomSound
;
;	lda [<Globals],y	; test now low word
;	bne CallCustomSound	; (A = bits 0-15)
;
;	clc	;24-Sep-90 DAL
;	jsl StdSoundProc	; call standard sound proc
;	bra CheckDrawn

CallCustomSound
	lda [<Globals],y	; X already=bits 8-23, Y=AlertSoundProc
	clc	;24-Sep-90 DAL
	jsl >$fc8952	;long_call ; and A = low byte of procedure address

;
; Look if alert box	should be drawn
;
CheckDrawn
	lda <StageVector
	and #%10000000	; boxdrawn is bit 7
	bne CreateDialog
	jml >$fc71f4	;IncAlertStage in ROM 3

;
; Creates modal dialog for alert by calling DialogFromTemplate
;
CreateDialog

	pushzptr <theDialog	; variable to store	dialog ptr in

	pushlongdp <AlertTemplate ; pointer to template

	pushword #1	; visible

	lda #0	; refcon = 0
	pha
	pha

	lda #atitemlist	; offset to item list
	pha

	jsl >$FC6B1F	;DialogFromTemplate--create dialog and set error status

	bcc AddIcon	; error!, exit

	jml >$fc7204	;exit in ROM 3

;
; Then add the alert icon
;
AddIcon	lda <IconID
	beq SetDef	; no icon

	dea	; compute index to icon pointer
	asl a
	asl a
	tax

;
; Assume we're in 640 mode
;
	lda >Icon640Table,x	; get icon pointer from 640 table
	sta [<IconHandleStruct] ; and store in fake handle
	lda >Icon640Table+2,x
	ldy #2
	sta [<IconHandleStruct],y

;
; See if we are in 320 or 640
;
	lda [<theDialog]	; get PortSCB
	and #$0080	; 0=320, 1=640
	bne CreateIcon

	lda >Icon320Table,x	; get icon pointer from 320 table
	sta [<IconHandleStruct] ; and store in fake handle
	lda >Icon320Table+2,x
	ldy #2
	sta [<IconHandleStruct],y

;;;;;CreateIcon	jml >$FC716E	;CreateIcon in ROM 3

CreateIcon	tsc	; make room on the stack for icon template
	sec
	sbc #24
	tcs

	inc a	; store starting address of icon template in x
	tax

	lda #-32768	; store icon ID
	sta iconitemID+1,s
	lda #5	; store icon boundaries
	sta iconitemRect+1,s
*** added 26-Aug-91 DAL -- if 640 and dialog is at odd location, compensate
	lda [<theDialog]
	and #$0080
*** added 13-Oct-91 DAL -- A was supposed to be 20 for 320 mode
	php
	lda #20
	plp
*** end 13-Oct-91
	beq @1	;320 is no problem
	ldy #10	;offset into port of boundsRect.x1
	lda [<theDialog],y
	lsr a
	lda #20	;used to always be 20, now can be 19 instead
	bcc @1	;it's even, no problem
	dec a	;A=19
@1
*** end 26-Aug-91
	jml >$fc7183

SetDef	jml >$fc71bf

	EndP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Patch/Patch3/EventMgr.pch b/IIGS.601.SRC/GSToolbox/Patch/Patch3/EventMgr.pch
new file mode 100644
index 0000000..4e53e48
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Patch/Patch3/EventMgr.pch
@@ -0,0 +1 @@
+**********************************************************************
*
* Event manager patch
*
* Copyright 1989-1992 Apple Computer, Inc.
* All Rights Reserved
*
**********************************************************************
*
* REVISION HISTORY
*
* 11/16/89	Mensch
*	Added this patch file to insure that the event manager
*	call table was in RAM. This is so the Dialog manager
*	can patch it on the fly...
*	Had to change a call so I made the version call patched.
*
* 23-Oct-90	Dave Lyons
*
* This file was not used before.  Changed version to $8301.
* Added GetNextEvent patch that checks to see if it was called by
* ModalDialog.  If so, we strip off app1-app4 events from the
* event mask.
*
* 11-Feb-91	Dave Lyons
*
* Added HandlePendingSysBeep2 routine for SysBeep2 requests that are
* deferred until the next GetNextEvent (this is useful for making a
* beep happen after a modal dialog is drawn).
*
* HandlePendinsSysBeep2 is exported to TS2.
*
* 25-Feb-91	Dave Lyons
*
* Patched EMStartUp and EMShutDown for preserving cursor position.
*
* 5-Mar-91	Dave Lyons
*
* Added a line in the GetNextEvent patch:  When it detects that the
* call is coming from ModalDialog, it now calls ModalDialogCursorPoll
* in Patch3:DialogMgr.pch.
*
* 9-Mar-91	Dave Lyons
*
* HandlePendingSysBeep2 now zeroes out the pending flag *before*
* calling SysBeep2, in case somebody calls GetNextEvent from within
* their SysBeep2 handler.
*
* 17-Sep-91	Dave Lyons
*
* Made PendingSysBeep2 a global so it can be shared between TS2/3
* and Tool.Setup (SysBeep2 is now in Tool.Setup, so I couldn't link).
*
* 5-Feb-92	Dave Lyons
*
* Version $0301 for 6.0 final.
*
**********************************************************************
*
* 3-Jun-92	Dave Lyons
*
* Version $8302 for 6.0.1d5 (changed UseCoolMousePos in em.asm).
*
* 2-Apr-93 DAL
*
* Version $0302 for 6.0.1
*
**********************************************************************
EMVerNum	equ $0302

	include 'all.macros'

PendingSysBeep2	equ $E1167E

****************************************************************
*
* CALL TABLE
*
****************************************************************
EMCallTable	PROC Export
	import EMVersion
	import GetNextEvent
	import EMStartUp	;25-Feb-91 DAL
	import EMShutDown	;25-Feb-91 DAL

	DC.L (TheEnd-EMCallTable)/4 ;num calls + 1
	DC.L 0	; EMBootInit-1
	DC.L EMStartUp-1	; 25-Feb-91 DAL
	DC.L EMShutDown-1	; 25-Feb-91 DAL
	DC.L EMVersion-1
	DC.L 0	; EMReset-1
	DC.L 0	; EMActive-1
	DC.L 0	; oEndCall0-1
	DC.L 0	; oEndCall0-1
	DC.L 0	; DoWindows-1
	DC.L GetNextEvent-1		; 23-Oct-90 DAL
	DC.L 0	; EventAvail-1
	DC.L 0	; GetMouse-1
	DC.L 0	; Button-1
	DC.L 0	; StillDown-1
	DC.L 0	; WaitMouseUp-1
	DC.L 0	; TickCount-1
	DC.L 0	; GetDblTime-1
	DC.L 0	; GetCaretTime-1
	DC.L 0	; SetSwitch-1
	DC.L 0	; PostEvent-1
	DC.L 0	; FlushEvents-1
	DC.L 0	; GetOSEvent-1
	DC.L 0	; OSEventAvail-1
	DC.L 0	; SetEventMask-1
	DC.L 0	; FakeMouse-1	; $1906
	DC.L 0	; SetAutoKeyLimit-1 ; $1A06
	DC.L 0	; GetKeyTranslation-1 ; $1B06
	DC.L 0	; SetKeyTranslation-1 ; $1C06
TheEnd
	ENDP

****************************************************************
*
* EMStartUp -- patched 25-Feb-91 DAL
*
* Sets the cursor position based on message #6, if it exists
* and QuickDraw is active.
*
****************************************************************
*
EMStartUp	PROC
*
* This routine calls the original EMStartup routine and then
* installs the keyboard interrupt handler
*
*
* Inputs:
*	dPageAddr : word
*	queueSize : word
*	xMinClamp : word
*	xMaxClamp : word
*	yMinClamp : word
*	yMaxClamp : word
*	userID : word
*
* Outputs:
*	none
*
****************************************************************
	import UseCoolMousePos	;24-Feb-91 DAL
	longa on
	longi on
****************************************************************
	DefineStack
RTL1	block 3
RTL2	block 3
origD	word
UserID	word
yMaxClamp	word
yMinClamp	word
xMaxClamp	word
xMinClamp	word
queueSize	word
dPageAddr	word


RealEMStartup	equ $FEE2A3	;ROM 3 EMStartUp

	tax	; save orig value of WAP in x
	phd
	tsc
	tcd
	
	pei dPageAddr	; push all the params again
	pei queueSize
	pei xMinClamp
	pei xMaxClamp
	pei yMinClamp
	pei yMaxClamp
	pei UserID
	txa	; get wap value back
	jsl ToRealEMStartup ; call the real startup code
	pha	; save any error code
	bcs AnError

*** added 24-Feb-91 DAL
	jsl UseCoolMousePos
*** end of 24-Feb-91 DAL

AnError	plx	; pull off the error code returned by orig startup call
AnError2	pld	; restore the direct page
	ldy #14	; strip the inputs off the stack
	jml $e10184	;ToStrip


ToRealEMstartup	jsl RealEMStartup
	rtl	

	ENDP


****************************************************************
*
* EMShutDown -- patched 25-Feb-91 DAL
*
* Creates MessageCenter message #6 recording the old cursor
* position.
*
****************************************************************
EMShutDown	proc
	import CreateMouseMessage	;24-Feb-91 DAL

	tax
	beq @notStarted
	pha	;save WAP for jumping to ROM
	jsl CreateMouseMessage
	pla
@notStarted	jml $fee4b7	;original ROM 3 EMShutDown

	EndP

****************************************************************
*
* EMVersion
*
****************************************************************
EMVersion	PROC Export
	lda #EMVerNum
	sta 7,s
	lda #0
	clc
	RTL
	ENDP

****************************************************************
*
* GetNextEvent patch
*
* 23-Oct-90 DAL
*
* See if ModalDialog called us.  If so, mask off app1-app4
* events.
*
****************************************************************
GetNextEvent	PROC Export
	import HandlePendingSysBeep2
	import ModalDialogCursorPoll

	jsr HandlePendingSysBeep2

	pha

	lda 4+2,s	;called from $fc7dd0?
	cmp #$7dd0+3
	bne @toROM
	lda 5+2,s
	cmp #$fc7d
	bne @toROM

	lda 11+2,s
	and #$0fff	;mask off app1-app4 events
	sta 11+2,s

	jsl ModalDialogCursorPoll  ;in Patch3:DialogMgr.pch (5-Mar-91 DAL)

@toROM	pla
	jml >$fee5cc

	EndP

****************************************************************
*
* HandlePendingSysBeep2
*
* 11-Feb-91 DAL
*
* If PendingSysBeep2 is nonzero, do the SysBeep2 call.
*
****************************************************************
HandlePendingSysBeep2 proc export
	pha
	phy
	lda 11+6,s
	and #$002A	;keydown, autokey, mousedown?
	beq @done	;nope, don't do the SysBeep2
	lda >PendingSysBeep2
	beq @done
	pha
	lda #0
	sta >PendingSysBeep2
	_SysBeep2
@done	ply
	pla
	rts

	EndP

	end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Patch/Patch3/FontMgr.pch b/IIGS.601.SRC/GSToolbox/Patch/Patch3/FontMgr.pch
new file mode 100644
index 0000000..d038074
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Patch/Patch3/FontMgr.pch
@@ -0,0 +1 @@
+	title 'Font Mgr Patch        GS ROM 3 Patch'
******************************************************************
*
* Font manager patches for ROM 3
*
* System Disk 5.0
*
* 5/18/89	Steven Glass
*
* 31 May 89	Harry Yee
*
* Take prototype bit out of version number.
*
* 6/12/89	Mensch
*
* fix font purging bug with install and installwithstats
*
* 11/14/89	Mensch
* Fix bug in FMStartup. If the font.list file is not properly created 
* it will npw be deleted. This should fix problems with bad font files
* on disk.
*
* 17-Sep-90	Dave Lyons
*
* Removed dependency on all.macros.
*
* 14-Nov-90	Dave Lyons
*
* Added a BEQ in FixFontList to fix the bug where having *only*
* the ROM font would go toasty.  FixFontList gets called by
* InstallFont and InstallWithStats, and it was comparing the ROM
* font handle against itself, deciding that it matched, and
* removing it, leaving us with zero fonts (treated as 65536 fonts
* by most code).  This was a bug only in the ROM 3 patch, and
* only when there were *no* RAM-based fonts (FastFont doesn't
* count).
*
* Put back all.macros (it assembles faster).
*
* 25-Nov-90 DAL
*
* Made FMStartUp return fmBadParmErr ($1b0d) if you pass zero
* for the user id or direct page address parameters.
*
* 17-Feb-91 DAL
*
* ABANDONING THIS PATCH FILE.  Haven't been using it lately, and
* it looks like it's going to stay that way.  It's not worth it
* to try salvaging the ROM 3 version of the Font Manager, so we're
* using it out of RAM instead.
*
******************************************************************

	include 'all.macros'

	MACRO
	PushZWord &A
	pei  &A
	MEND


	Import FinishSetPort
*---------------------------------------------------------------
* Constants Coppied from FM.asm directly...
*---------------------------------------------------------------
FMVerNum	equ $0302	
FMTSNum	equ $1B	;tool set num for Font Manager

InitErr	equ $1B01	;duplicate init call
ResetErr	equ $1B02	;can't reset Font Manager
ActiveErr	equ $1B03	;Font Manager not active
NoFamErr	equ $1B04	;family not found
NoFontErr	equ $1B05	;font not found
MemErr	equ $1B06	;font not in memory
PurgeErr	equ $1B07	;system font cannot	be purgeable
FamNumErr	equ $1B08	;illegal family number
SizeErr	equ $1B09	;illegal size
NameErr	equ $1B0A	;illegal name length
MenuErr	equ $1B0B	;FixFontMenu never called
;added 2/10/87 - BHM:
scaleSizeErr	equ $1B0C	;font can't be scaled that large
;(must match ScaleFont definition)
fmBadParmErr	equ $1b0d	;added 25-Nov-90 DAL (from FMStartUp)
;
ProDOS	equ $E100A8	;ProDOS/16 entry vector
StackProDOS	equ $E100B0	;ProDOS/16 stack-based entry vector
OpenCall	equ $10	;ProDOS/16 call number
ReadCall	equ $12	;           "
CloseCall	equ $14	;           "
SetMarkCall	equ $16	;           "
GetEOFCall	equ $19	;           "
CreateCall	equ $01	;           "
WriteCall	equ $13	;           "
SetEOFCall	equ $18	;           "
GDECall	equ $1C	;           "
DestroyCall	equ $02

ButtonItem	equ 10	;item type for dialog manager
StatTextItem	equ 15+$8000	;           "

KeyDownEvt	equ 3	;event code
ListPartCode	equ $88	;part code for list

Message	equ 2	;offset into TaskRec
Where	equ 10	;         "
Modifiers	equ 14	;         "
TaskMask	equ 20	;         "

DirNameLen	equ 14	;length of '*/SYSTEM/FONTS'
MaxNameLen	equ 25	;max length of font's family name
BlockSize	equ 512
Illegal	equ $FFFF	;illegal family number
FontType	equ $C8	;filetype for font files

MemOnlyBit	equ $0001	;FontSpecBits
RealOnlyBit	equ $0002
AnyFamBit	equ $0004
AnyStyleBit	equ $0008
AnySizeBit	equ $0010

MemBit	equ $0001	;FontStatBits
UnrealBit	equ $0002
ApFamBit	equ $0004
ApVarBit	equ $0008
PurgeBit	equ $0010
NotDiskBit	equ $0020
NotFoundBit	equ $8000

BaseOnlyBit	equ $0020	;FamSpecBits

;ApFamBit      equ $0004	;FamStatBits
NotBaseBit	equ $0020
;NotFoundBit   equ $8000

NotMemBit	equ $FFFE	;all bits set except MemBit
UnPurgeable	equ $FFEF	;all bits set except PurgeBit
;
;added 2/10/87 - BHM:
dontScaleBit	equ $0001	;(see scaleWord input in InstallFont)
currFlag	equ $0001	;make font current (see LoadTheFont)
notCurrFlag	equ $FFFE
newMemFlag	equ $0002	;(see LoadTheFont)
oldMemFlag	equ $0004	;(see LoadTheFont)
;
;                COPY new.cons
;
****************************************************************************
*			               *
*  file NEW.CONS			               *
*			               *
*    started 8/31/87		               *
*    Bennet Marks  x6245		               *
*			               *
*  This file contains some new constants needed by the FMStartUp speed-up  *
*  experiment.  Also included are offsets used to make ProDOS stack-based  *
*  calls.			               *
*			               *
****************************************************************************
;
***************************************
*	                  *
*  11/10/87  1:20 pm                  *
*  BHM  x6245	                  *
*	                  *
***************************************
;
;FONT.LISTS format version number:
;
FLVerHi	equ $0000
FLVerLo	equ $0001
;
;offsets to data in	the FONT.LISTS file:
;
oRomFamNum	equ 4
oRomStyle	equ oRomFamNum+2
oRomSize	equ oRomStyle+2
oIDCount	equ oRomSize+2
oFamCount	equ oIDCount+2
oIDListSize	equ oFamCount+2
oFamListSize	equ oIDListSize+2
oNameListSize	equ oFamListSize+2
oFileListSize	equ oNameListSize+2
oTimeListSize	equ oFileListSize+2
;
FLFileHeadLen	equ oTimeListSize+2
;
;and some other constants:
;
GDENameBufSize	equ 20	;for the name buffer
FileNotFound	equ $46
EndOfDir	equ $61
BinFile	equ $06
;
;
*---------------------------------------------------------------
* Font Manager Zero	Page
*---------------------------------------------------------------

FMZBase	equ 0

TempHandle	equ FMZBase	;the following handles must be in
FileHandle	equ TempHandle+4	;this order
IDHandle	equ FileHandle+4
FamHandle	equ IDHandle+4
NameHandle	equ FamHandle+4
FontHandle	equ NameHandle+4
BlockHandle	equ FontHandle+4
MDHandle	equ BlockHandle+4
ItemHandle	equ MDHandle+4
FMParamHandle	equ ItemHandle+4	;added 11/10/87 - BHM x6245

TempPtr	equ FMParamHandle+4	;the following pointers must be in
FilePtr	equ TempPtr+4	;this order
IDPtr	equ FilePtr+4
FamPtr	equ IDPtr+4
NamePtr	equ FamPtr+4
FontPtr	equ NamePtr+4
BlockPtr	equ FontPtr+4
MDPtr	equ BlockPtr+4
ItemPtr	equ MDPtr+4
FMParamPtr	equ ItemPtr+4	;added 11/10/87 - BHM x6245

SavedFilePtr	equ FMParamPtr+4	;the following pointers must be in
SavedIDPtr	equ SavedFilePtr+4	;this order
SavedFamPtr	equ SavedIDPtr+4
SavedNamePtr	equ SavedFamPtr+4

IDListSize	equ SavedNamePtr+4
FamListSize	equ IDListSize+2
NameListSize	equ FamListSize+2
ItemListSize	equ NameListSize+2	;** added 2-25-87 CAE **

IDCount	equ ItemListSize+2
FamCount	equ IDCount+2
;
****  CHANGED 11/4/87:
;all the Font Manager's ProDOS calls (except GetDirEntry) now share a common
;block of 0-page for their parameter blocks.  Note that the	reference numbers
;(OpenRef, ReadRef,	etc.) are actually the same 0-page location.  In partic-
;ular, after an OpenFile call is done, the new ref number is in the right
;position for a subsequent ReadFile call. - BHM  x6245  11/4/87
;
ProDOSParams	equ FamCount+2
;
;Open call:
OpenRef	equ ProDOSParams	;reference number
OpenPtr	equ OpenRef+2	;ptr to pathname
OpenBuf	equ OpenPtr+4	;unused by Font Manager

;Read call:
ReadRef	equ ProDOSParams	;reference number
ReadPtr	equ ReadRef+2	;ptr to data buffer
ReadSize	equ ReadPtr+4	;number of bytes to	read
ReadActual	equ ReadSize+4	;number of bytes actually read

;Close call (whew!):
CloseRef	equ ProDOSParams	;reference number

;GetEOF and SetEOF calls:
EOFRef	equ ProDOSParams	;reference number
EOFSize	equ EOFRef+2	;EOF (new or returned result)

;GetMark and SetMark calls:
MarkRef	equ ProDOSParams	;refernce number
MarkLoc	equ MarkRef+2	;mark (new or returned result)

;Write call:
WriteRef	equ ProDOSParams
WriteBuf	equ WriteRef+2
WriteReq	equ WriteBuf+4
WriteTrans	equ WriteReq+4

;Create call:
CRNamePtr	equ ProDOSParams
CRAccess	equ CRNamePtr+4
CRFileType	equ CRAccess+2
CRAuxType	equ CRFileType+2
CRStore	equ CRAuxType+4
CRDate	equ CRStore+2
CRTime	equ CRDate+2

;Destroy call:
KillNamePtr	equ ProDOSParams

;
****  end of changes to ProDOS parameter blocks - BHM  x6245  11/4/87
;
;note that the parameter blocks above all use less than 20 bytes
;
MenuMade	equ ProDOSParams+20	;so this is safe
StartingID	equ MenuMade+2
ProgID	equ StartingID+2
SysFontID	equ ProgID+2
RomFbrExtent	equ SysFontID+4
OldStats	equ RomFBRExtent+2	;added 12/16/87 - BHM  x6245
;(for use by InstallWithStats)
;added 1/11/88 - BHM  x6245
temp1Ptr	equ OldStats+2
temp2Ptr	equ temp1Ptr+4
;the following locations are used to hold information that,	in the RAM
;of this tool, were	kept in the data segment.  Some also subsume 0-page
;locations that used to be private to ChooseFont - BHM  x6245  1/25/88
ScreenMode	equ temp2Ptr+4
WindPtr	equ ScreenMode+2
LineHndl	equ WindPtr+4

Temp	equ LineHndl+4

;
; Equates for ChooseFont item ID's
MDListID	equ 1
SizeListID	equ 2
SizeEditID	equ 3
OKID	equ 4
CancelID	equ 5
; these next style ID's must be in order...
PlainSID	equ 6
BoldSID	equ 7
ItalicSID	equ 8
UnderSID	equ 9
OutlineSID	equ 10
ShadowSID	equ 11
LastSID	equ 12
;
stat1ID	equ 12
stat2ID	equ 13
stat3ID	equ 14
;
; RefCon Equates for ChooseFont controls
useNILHit	equ 0
useFontHit	equ 1
useSizeHit	equ 2
useOtherHit	equ 3
useOKHit	equ 4
useCancelHit	equ 5
usePlainHit	equ 6
useStyleHit	equ 7
*
*
****************************************************************
*			   *
*              Copyright (C) 1989-90		   *
*              All Rights Reserved		   *
*              Apple Computer, Inc.		   *
*			   *
****************************************************************
	Blanks off
	String asis
	
****************************************************************
*
* FONT MANAGER CALL	TABLE
*
****************************************************************

FMCallTable	PROC EXPORT
	import FMVersion
	import InstallFont
	import FMStartup
	import InstallWithStats


TheStart
	DC.L (TheEnd-TheStart)/4 ;num calls + 1
	DC.L 0	; FMBootInit-1
	DC.L FMStartup-1	; FMStartUp-1
	DC.L 0	; FMShutDown-1
	DC.L FMVersion-1
	DC.L 0	; FMReset-1
	DC.L 0	; FMStatus-1
	DC.L 0	; oStdEnd0-1
	DC.L 0	; oStdEnd0-1
	DC.L 0	; CountFamilies-1
	DC.L 0	; FindFamily-1
	DC.L 0	; GetFamInfo-1
	DC.L 0	; GetFamNum-1
	DC.L 0	; AddFamily-1
	DC.L InstallFont-1
	DC.L 0	; SetPurgeStat-1
	DC.L 0	; CountFonts-1
	DC.L 0	; FindFontStats-1
	DC.L 0	; LoadFont-1
	DC.L 0	; LoadSysFont-1
	DC.L 0	; AddFontVar-1
	DC.L 0	; FixFontMenu-1
	DC.L 0	; ChooseFont-1
	DC.L 0	; ItemID2FamNum-1
	DC.L 0	; FMSetSysFont-1
	DC.L 0	; FMGetSysFID-1
	DC.L 0	; FMGetCurFID-1
	DC.L 0	; FamNum2ItemID-1
	DC.L InstallWithStats-1
TheEnd

	ENDP


****************************************************************
*
FMVersion	PROC
*
* Returns version of patched font manager.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


	lda #FMVerNum
	sta 7,s
	lda #0
	clc
	rtl

	ENDP

	GBLA &MacroCnt
&MacroCnt	Seta 0

	Macro
&Lab	JSRL &Addr
	GBLA &MacroCnt
&MacroCnt	SETA &MacroCnt+1
	phk
	per theRTL&MacroCnt-1
	pea |LclRTL-1	;was PEA 24-Sep-90 DAL
	jml >&Addr
theRTL&MacroCnt
	MEND

	EJECT
*******************************************************************************
*
FMStartup	PROC Export
*
* Description:	This is a patched version of FM startup for the ROM 3 machine
*	Note all the really ungroovy JSRL's in the file
*
*
* Inputs:	None
*
* Outputs:	None
*
* External Refs:
* ROM Entry Points for use during the patching process...
*
LclRTL	equ $FC01C3
ROMFMStartup	equ $FCA094
oErrout	equ $FEFCB4
*SetUpFMParams	equ $FCA7E3
StdErr4	equ $FCC190
GetHandle	equ $FCBF49
LockBlock	equ $FCC121
GetListHandles	equ $FCA527
OpenFLFile	equ $FCA841
OpenFONTSDir	equ $FCA421
CheckFLFile	equ $FCA620
GetFileNames	equ $FCA448
SetUpFontInfo	equ $FCA1A7
UpdateFLFile	equ $FCA960
CloseFLFile	equ $FCA958
ROMWeAreDone	equ $FCA11A
ROMFLFileGood	equ $FCA110
UnlockFMParams	equ $FCC14B
LockFMParams	equ $FCC145
STDEnd4	equ $FCC189
ROMError4	equ $FCA14F
ROMError2a	equ $FCA152
ROMError2	equ $FCA155
ROMError1a	equ $FCA18C
ROMError1	equ $FCA197
CopyFileName	equ $FCBFD9
*
*
* Entry Points:
*
*******************************************************************************
EntryLength	equ Temp
EntriesInBlock	equ EntryLength+2
EntryCount	equ EntriesInBlock+2
NumFiles	equ EntryCount+2
NumFonts	equ NumFiles+2
FileCount	equ NumFonts+2
Mult2	equ FileCount+2
Mult8	equ Mult2+2
Mult16	equ Mult8+2

RomInfoRec	equ Mult16+2	;the following items MUST appear
RomFamNum	equ RomInfoRec	;in this order
RomStyle	equ RomFamNum+2
RomSize	equ RomStyle+2
RomFontHndl	equ RomSize+2
RomNamePtr	equ RomFontHndl+4
RomExtent	equ RomNamePtr+4
;
;added 8/31/87
fNamePtr	equ RomExtent+2
currFNamePtr	equ fNamePtr+4
;
fNameLen	equ currFNamePtr+4
currFNameLen	equ fNameLen+2
errCode	equ currFNameLen+2
FLFileRef	equ errCode+2
FONTSDirRef	equ FLFileRef+2
FileListSize	equ FONTSDirRef+2
NumFontFiles	equ FileListSize+2
;added 9/24/87
TimeListSize	equ NumFontFiles+2
TimeHandle	equ TimeListSize+2
TimePtr	equ TimeHandle+4
SavedTimePtr	equ TimePtr+4
fTimePtr	equ SavedTimePtr+4
;end of additions -	BHM  x6245
;
***	cmp #0	;already initialized?
	tax	;optimized 25-Nov-90 DAL
	beq @Doit	;no
	ldx #InitErr	;yes - so return error
@stupidErr	ldy #4	;param size
	jml oerrout

@Doit

*** added 25-Nov-90 DAL
*** Return fmBadParmErr if they passed 0 for user id or dp address
	ldx #fmBadParmErr
	lda 7,s
	beq @stupidErr
	lda 9,s
	beq @stupidErr
*** end of 25-Nov-90 DAL

	phd
	lda 9,s	;get zero page address
	tcd

	ldx #$FE
ZPLoop	stz <FMZBase,x	;clear zero page
	dex
	dex
	bpl ZPLoop

	lda 11,s	;get program ID
	sta <ProgID	;and save
;
;get RAM space for some mutable FM data, and move them in:
	jsr SetUpFMParams
	bcc GotFMParams
	tax	;error code
	jmp StdErr4
GotFMParams

;get a buffer for block reads:
	lda #BlockSize	;512 bytes
	JSRL GetHandle	;get space to do block reads into
	bcc GotMem
	sta <errCode
	brl Error1	;return the error

GotMem	sta <BlockHandle	;get handle to block
	stx <BlockHandle+2

	JSRL LockBlock

	JSRL GetListHandles
	bcc GotListHandles
	sta <errCode
	brl Error1a
GotListHandles


*****************************************************************************
*
*  Error-handling changed here and below so that ProDOS errors in handling
*  FONT.LISTS do not abort the start-up.  (In particular, trying to create
*  and/or update FONT.LISTS when the system disk is write-protected does not
*  generate an error; FONT.LISTS is just forgotten about is	those cases.)
*
*  Bennet Marks  x6245  1/7/88
*
*****************************************************************************

	JSRL OpenFLFile	;will also create it, if need be
	bcc GotFLFile
;some error condition - treat FONT.LISTS as invalid (i.e., useless)

	JSRL OpenFONTSDir
	bcc FLFileNotValid	;because it's empty
	sta <errCode
	brl Error2a

GotFLFile		;and it's open, too
	JSRL OpenFONTSDir
	bcc GotFONTSDir
	sta <errCode
	brl Error3

GotFONTSDir
	JSRL CheckFLFile
	bcc FLFileGood
;some error condition - FONT.LISTS useless

FLFileNotValid
;FONTS open, marked	at beginning & FONT.LISTS open, empty
;
;FONT.LISTS didn't pass its validity test, so we have to make
;the lists "the old-fashioned way"
;
	JSRL GetFileNames
	bcc GotFileNames
	brl Error5

GotFileNames
	JSRL SetUpFontInfo
	bcc FontListsOK
	sta <errCode
	brl Error6

FontListsOK
	JSRL UpdateFLFile
;ignore any errors - just because we can't
;update FONT.LISTS doesn't mean we should quit
;
; 11/13/89 Mensch
; But it does mean that the file that was written out is probably BAD!
; Since this could easily be the case, we test for errors here and delete the file
; if any errors occured in the process of writing the file.
; This should fix bugs where bad font.lists were being created 
	bcc FLFileDone
	JSR KillBadFLFile	; font list file somehow bad, kill it!
FLFileDone		;
	bra WeAreDone
;
;
FLFileGood		;
	JML ROMFLFileGood	;
WeAreDone
	JML ROMWeAreDone	;
;
Error8		;
Error7		;
Error6		;
Error5		;
Error4		;
	JML ROMError4
Error3		;
Error2a		;
	JML ROMError2a
Error2		;
	JML ROMError2	;
Error1a		;
	JML ROMError1a
Error1		;
	JML ROMError1

KillBadFLFile		;
;
; First close the file so that it can be destroyed...
	jsrL CloseFLFile


; Coppied this pre-amble from open file...
;
	lda <FMParamPtr
	clc
	adc #$63
	sta <FilePtr
	lda <FMParamPtr+2
	adc #0
	sta <FilePtr+2

;
	JSRL CopyFileName
;
	lda <FMParamPtr
	clc
	adc #$44
	sta <KillNamePtr
	lda <FMParamPtr+2
	adc #0
	sta <KillNamePtr+2
;
	jsr DestroyFile	; now call destroy...
	rts	; and exit the hell outta here...
DestroyFile

	pea 0	;high word of parameter block address

	tdc
	clc
	adc #ProDOSParams	;low word
	pha

	pea DestroyCall	;call number

	jsl StackProDOS	;ProDOS/16 stack-based entry vector

	tax	;error code (if any)
	rts

*****************************************************************************
*			                *
*  subroutine SetUpFMParams		                *
*			                *
*    started 8/26/87		                *
*    Bennet Marks  x6245		                *
*			                *
*  This subroutine obtains a block of RAM that the Font Manager can use     *
*  for parameters that it needs to alter, or may need to alter, such as     *
*  font file names (for the Open call, for example) and window parameters   *
*  (which are different in 320 and 640 mode).	                *
*			                *
*  When the Font Manager lived in RAM, this information/storage was kept    *
*  in-line.  We still have the defaults	in-line, but SetUpFMParams copies   *
*  them over into the RAM space it obtains.	                *
*			                *
*  SetUpFMParams has changed so much since its earlier incarnation (when    *
*  it was mainly used to get ProDOS parameter block space, which is now     *
*  mainly on 0-page) that we have changed its name from SetUpParams.  Does  *
*  this make it a born-again subroutine?	                *
*			                *
*  If the subroutine succeeds in allocating the space for the parameter     *
*  blocks, it returns with the carry clear.  Otherwise it returns with the  *
*  carry set (and the MM error code in the acc.).	                *
*			                *
*  As currently written, SetUpParams returns with an RTS and does not have  *
*  a separate entry	point.  It's just part of FMStartUp.                    *
*			                *
*****************************************************************************
;
***************************************
*	                  *
*  11/10/87 3:50 pm	                  *
*  BHM  x6245	                  *
*	                  *
***************************************
;
***********************************************************
*		                  *
*  major re-write, subroutine renamed -	                  *
*    BHM  x6245  11/10/87	                  *
*		                  *
***********************************************************

SetUpFMParams

FMParams	equ $FC9E92
EndOfFMParams	equ $FC9FFA
GDENameBuf	equ $FC9EC2
GDENameBufPtr	equ $FC9E9A
GDECreateTime	equ $FC9EAA


	lda #(EndOfFMParams-FMParams)
	JSRL GetHandle
	bcc GotFMParamMem
	rts
;
GotFMParamMem
	sta <FMParamHandle
	stx <FMParamHandle+2

	JSRL LockFMParams
;
;transfer default values (and a lot of needless zeros):
;
	lda #<FMParams
	sta <tempPtr
	lda #^FMParams
	sta <tempPtr+2
;
	ldy #(EndOfFMParams-FMParams-2)
;
NextParamWord
	lda [<tempPtr],y
	sta [<FMParamPtr],y
	dey
	bmi ParamsMoved
	dey
	bra NextParamWord
;
ParamsMoved
;
;set up a few needed pointers:
;GDE name buffer:
	lda <FMParamPtr
	clc
	adc #(GDENameBuf-FMParams)
	sta <tempPtr
	ldy #(GDENameBufPtr-FMParams)
	sta [<FMParamPtr],y
	lda <FMParamPtr+2
	bcc NoCarryb
	inc a
NoCarryb
	sta <tempPtr+2
	iny
	iny
	sta [<FMParamPtr],y
;
;we need easy access to the GDE file name string
	lda <tempPtr
	clc
	adc #3
;(that's a 3 to access the length byte we swap into place from
;the length word provided by GetDirEntry)
	sta <fNamePtr
	lda <tempPtr+2
	bcc NoCarryc
	inc a
NoCarryc
	sta <fNamePtr+2
;
;we also need a pointer to the times & dates within the GetDirEntry block:
	lda <FMParamPtr
	clc
	adc #(GDECreateTime-FMParams)
	sta <fTimePtr
	lda <FMParamPtr+2
	bcc NoCarryd
	inc a
	clc
NoCarryd
	sta <fTimePtr+2

	rts

	ENDP

****************************************************************
*
* Lock & unlock
*
****************************************************************

UnLockIDList	proc

	ldy #4
	lda [<IDHandle],y
	and #$7FFF	;set locked bit in attribute word
	sta [<IDHandle],y
	rts

	Entry LockIDList
LockIDList	
	
	ldy #4
	lda [<IDHandle],y
	ora #$8000	;set locked bit in attribute word
	sta [<IDHandle],y

	lda [<IDHandle]	;dereference handle	into correct ptr
	sta <IDPtr
	ldy #2
	lda [<IDHandle],y
	sta <IDPtr+2
	rts

	ENTRY IncIDPtr
IncIDPtr	

;Increment IDPtr to	point to the next entry in the ID list.

	clc
	lda <IDPtr
	adc #14
	sta <IDPtr
	lda <IDPtr+2
	adc #0
	sta <IDPtr+2
	rts
	ENDP

	EJECT
*******************************************************************************
*
FixFontList	PROC
*
* Description:	This routine will extract the last entry from the font list
*	and see if it is duplicated anywhere else in the list. If
*	it is, It will be moved to the lower entry, and the list will be
*	shortened
*
*
* Inputs:	NONE : Font mgr direct page should be setup...
*
* Outputs:	None
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
	jsr LockIDList	; lock the ID List down...
;
; First create a pointer to the last entry in the list...
; and save it in tempPtr
	lda <IDCount	; get the number of entries in the ID List
	dec a	; subtract 1 from it to get entry number...
	beq @Done	; *** added this line 14-Nov-90 DAL
	asl a	; A=IDCount*14
	pha
	asl a
	pha
	asl a
	clc
	adc 1,s
	adc 3,s
	ply 	; resave the data
	ply	; discard some crap...
;
; Now if the carry was set the IDlist is larger than 64k...
	bcc @1
	jmp @Done	; exit with an error
@1
	adc <IDPtr	; add to the IDPointer
	sta <tempPtr
	lda #0	; now do the high word
	adc <IDPtr+2
	sta <tempPtr+2

; Now that we have the two entries set up scan the list for duplicate
	ldx #1
	ldy #2
@Loop
	lda [<IDPtr]	; get the current ID
	cmp [<tempPtr]	; compare it with the new ID
	bne @NextID
	lda [<IDPtr],y	; get the style
	cmp [<tempPtr],y
	beq @FoundMatch	; if equal we found a match
@NextID	jsr IncIDPtr	; bump the pointer
	inx
	cpx <IDCount	; see if we are done
	blt @Loop	; be sure to skip the last one...
	
@Done	jsr UnLockIDList	; unlock the ID List
	rts	; and return
;
; We get tro here if the two ID's matched
; If this happens we have a duplicate entry, and the entry at IDPtr is bogus
; so replace the entry at IDPtr with the one at tempPtr and discard the handle
; of the first.
@FoundMatch
	ldy #12	; first discard the handle in IDPtr
	lda [<IDPtr],y
	pha
	ldy #10
	lda [<IDPtr],y
	pha
	_DisposeHandle	; throw away the old font handle.
;
; Now copy the new entry back into the list
	ldy #0	; we start at the start
@CopyLoop	lda [<tempPtr],y	; copy 14 bytes over...
	sta [<IDPtr],y
	iny
	iny
	cpy #14
	blt @CopyLoop

;
; Now cut the list itself back to where it belongs
	dec <IDCount	; this should do it!

	lda <IDListSize
	sec
	sbc #14
	sta <IDListSize

	bra @Done

	EndP

	EJECT
*******************************************************************************
*
NewInstallStats	PROC
*
* Description:	This is a new install font call that will be patched to get rid
*	of the orphan problem
*
*
* Inputs:	None
*
* Outputs:	None
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
FMDPage	equ 1
oldDPage	equ FMDPage+2
theRTLs	equ oldDPage+2
resultPtr	equ theRTLs+6
scaleWord	equ resultPtr+4
desiredID	equ scaleWord+2
;
; Set up the stack for the new call...

	phd	; save the current DPage
	pha	; save the FMDPage
	tsc	; get the stack pointer and make it
	tcd	; the current pdage

	lda #0	; zero our flag
	sta >KludgeFlag
; set up the parms for the call
@CallItAgainSam	pei desiredID+2
	pei desiredID
	pei ScaleWord
	pei ResultPtr+2
	pei ResultPtr
	jsl xInstallStat	; call the real install font
	tax
	bcc @skipKludge	; test if an error occured
	lda >KludgeFlag	; see if this is the second time thru
	bne @SkipKludge
	dec a	; if not set the second time thru flag and
	sta >KludgeFlag	; try it again!
	bra @CallItAgainSam	; and try it one more time...
@SkipKludge
	txa
	pld	; get the FMDPage back again
	bcs @anError	; an error occured so explode...
;
; No bugs here so lets get on with it....
	
	jsr FixFontList	; repair the font list
	lda #0
	clc
@AnError
	pld	; get the apps dpage back...
	tay	; save the error code in <Y>
	lda 1,s	; move the RTL's down 10 bytes
	sta 11,s
	lda 3,s
	sta 13,s
	lda 5,s
	sta 15,s
	pla	; discard 10 bytes of parms
	pla
	pla
	pla
	pla
	tya	; place error back into <A>
	cmp #1	; set error flag properly
	rtl	; and end...
xInstallStat
	lda <FMDPage	; font manager dpage in <A>
	jsl $FCB4D5	; call the real install font
	rtl

	ENTRY KludgeFlag
KludgeFlag	ds.W 1
	EndP
	


	EJECT
*******************************************************************************
*
NewInstallFont	PROC
*
* Description:	This is a new install font call that will be patched to get rid
*	of the orphan problem
*
*
* Inputs:	None
*
* Outputs:	None
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
FMDPage	equ 1
oldDPage	equ FMDPage+2
theRTLs	equ oldDPage+2
scaleWord	equ theRTLs+6
desiredID	equ scaleWord+2
;
; Set up the stack for the new call...
	phd	; save the current DPage
	pha	; save the FMDPage
	tsc	; get the stack pointer and make it
	tcd	; the current pdage

	lda #0	; init flag so only retry once.
	sta >KludgeFlag

@CallItAgainSam
; set up the parms for the call
	pei desiredID+2
	pei desiredID
	pei ScaleWord
	jsl xInstallFont	; call the real install font
	tax
	bcc @skipKludge	; test if an error occured
	lda >KludgeFlag	; see if this is the second time thru
	bne @SkipKludge
	dec a	; if not set the second time thru flag and
	sta >KludgeFlag	; try it again!
	bra @CallItAgainSam	; and try it one more time...
@SkipKludge
	txa
	pld	; get the FMDPage back again
	bcs @anError	; an error occured so explode...

;
; No bugs here so lets get on with it....
	
	jsr FixFontList	; repair the font list
	lda #0
	clc
@AnError
	pld	; get the apps dpage back...
	tay	; save the error code in <Y>
	lda 1,s	; move the RTL's down 6 bytes
	sta 7,s
	lda 3,s
	sta 9,s
	lda 5,s
	sta 11,s
	pla	; discard 6 bytes of parms
	pla
	pla
	tya	; place error back into <A>
	cmp #1	; set error flag properly
	rtl	; and end...
xInstallFont
	lda <FMDPage	; font manager dpage in <A>
	jsl $FCAD6F	; call the real install font
	rtl
	EndP
	

****************************************************************
*
FakeErrors	PROC
*
* Returns dispatcher errors for these calls if the 
* font manager is not active.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
	ENTRY InstallFont
	ENTRY InstallWithStats
*
	longa on	; mode
	longi on
*
****************************************************************


InstallFont
	cmp #0
	bne WereActive
	cpy #0
	bne WereActive

ReturnError	lda #2
	sec
	rtl


WereActive	jml NewInstallFont


InstallWithStats	cmp #0
	bne WereActive2
	cpy #0
	beq ReturnError


WereActive2	jml NewInstallStats

	ENDP

*********************************************************************************
*
DoADirtyDeed	Proc Export
*
* This procedure is the choosefont patch for ROM 3. It is called when setport detects
* a certain return address. This will be the proper place in choosefont to aply a patch
* This patch will first test to see if cancel was hit in the choosefont dialog, if so
* it will simply exit with no further code, if cancel was not hit, this patch will
* replace the second return address on the stack with one from a local end to the 
* choosefont routine. It will then resume setting the port, and setport will return 
* to me instead of the ROM.
*
*********************************************************************************
*
* The following are the addresses of important routines in ROM that we will be using
*
LclRTL	equ $FC01C3
UnlockFMParams	equ $FCC14B
ROMSetFontDone	equ $FCB85A
*
*********************************************************************************
*
* Choosefont direct page equates
TaskRec	equ Temp	;must be first!
TempStyle	equ TaskRec+24
CntlHndl	equ TempStyle+2
CntlHndls	equ CntlHndl+4	;these 3 items must	be in this order
PlainHndl	equ CntlHndls
StyleHndls	equ PlainHndl+4
LinePtr	equ StyleHndls+20
Count	equ LinePtr+4
Index	equ Count+2
CancelFlag	equ Index+2
CurNum	equ CancelFlag+2
CurStyle	equ CurNum+2
CurSize	equ CurStyle+2
MDCtlHandle	equ CurSize+2
SizeCtlHandle	equ MDCtlHandle+4
*
* STack Equates for the stack of setport...
*
SPRTL1	equ 1
SPRTL2	equ SPRTL1+3
thePortPtr	equ SPRTL2+3
*
* The code leading up to this point is...
*
*	PushZLong <WindPtr
*	_CloseWindow	;close window
*
*	PushZLong <MDHandle
*	_DisposeHandle	;dispose of MD list
*
*	jsr UnLockNameList
*	jsr UnlockFMParams
*
*	_SetPort	;restore port
*
* And now for the patch...
* Conveniently the direct page is already set up to the font manager dpage...
* Note: At this point we must preserve <X> and <Y>
*
	lda <CancelFlag	; test to see if cancel was hit
	beq OKWasHit	; if zero then the OK button was hit
	brl FinishSetPort	; at this stage the patch need not be applied so.. just quit
OKWasHit
; Now we fudge RTL1 to point back to us!
	lda >PatchEntry
	sta SPRTL2,s	
	lda >PatchEntry+1
	sta SPRTL2+1,s
; And we finish the setport call..
	brl FinishSetPort
*
PatchEntry	dc.L theDirtyDeed
*
* Now for the patch itself, it simply idles the cursor and calls choosefont the correct way...
* Code taken fron the font manager. Remember we are still in the font manager direct page at this point
theDirtyDeed	NOP	; added for rtl offsetting
	plb	;restore data bank register
; Don't have to test cancel any more...
;	lda <CancelFlag	;was Cancel hit?
;	bne Done	;yes

;compare selected fontID against original fontID

	lda <CurSize	;create style/size word
	xba
	ora <CurStyle
	tay	;and save
	cmp 13,s	;compare with original style/size
	bne InstallNew	;different so install new font
	lda <CurNum
	cmp 11,s	;compare fam #
	bne InstallNew	;different so install new font
	bra Done	;new font = old font, so no change

;new font is different from old font so	install it

InstallNew	phy	;style/size
	PushZWord <CurNum	;fam #
	PushWord #0	;enable scaling
	
;
; 1/5/90 Mensch
;
; Added code here that idle's the cursor for the instal font call.
; this puts up the watch cursor when needed.
;
	pha
	pha
	_GetCursorAdr
	pla
	sta <WindPtr	; use wind pointer to store temp value
	pla
	sta <WindPtr+2
	
	_WaitCursor	; put up the watch cursor...
	
	_InstallFont	;install font

	PushLong <WindPtr	; put the cursor back...
	_SetCursor
	
;return selected fontID

Done	JML ROMSetFontDone


	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Patch/Patch3/InitCode.pch b/IIGS.601.SRC/GSToolbox/Patch/Patch3/InitCode.pch
new file mode 100644
index 0000000..34a5c3b
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Patch/Patch3/InitCode.pch
@@ -0,0 +1 @@
+*******************************************************************************
* InitCode.Pch
*
* (C)  Copyright Apple Computer, Inc. 1990
* All rights reserved.
*
* by Jim Mensch
* 5/11/90
*
* This file will contain all the 1 time code required for the ts3 patch. This way
* It can all be unloaded at the same time.
*
*
* Modification History:
*
* Version 1.0	Mensch
*
* 24-Sep-90	Dave Lyons
*
* Added patch entries for new calls:  Get640Colors and Set640Color.
*
* 22-Oct-90	Dave Lyons
*
* Added patch entry for new call GetScanlineAddr ($DC04).
*
* 25-Nov-90	Dave Lyons
*
* Added TablePatch entries for MyClearScreen and MyQDShutDown.
*
* 14-Feb-91	Dave Lyons
*
* Removed GetScanlineAddress.
*
* 18-Feb-91	Dave Lyons
*
* Re-enabled the MySetCursor patch (by Mensch for animated-cursor support).
*
* 11-Mar-91	Dave Lyons
*
* Removed MySetCursor again.  Not that hot, and it seems to cause cursor
* wars with Video Keyboard.
*
* 5-Aug-91	Dave Lyons
*
* Patched SetCursor *again*...this time, it looks at bit 31 of the new
* cursor pointer.
*
* 27-Nov-91	Dave Lyons
*
* Added tablePatch for InflateTextBuffer.
*
*******************************************************************************

	include 'all.macros'

	include ':::qd:qdequates:qd.data.asm'
	INCLUDE ':::qd:QDEquates:CORE.GLOBALS1'
	INCLUDE ':::qd:QDEquates:core.globals2'
	INCLUDE ':::qd:QDEquates:region.equs'
	INCLUDE ':::qd:QDEquates:RECT.EQUS'
	INCLUDE ':::qd:QDEquates:SLAB.EQUS'
	INCLUDE ':::qd:QDEquates:rgndefs.equs'
	include 'e16.memory'
	Import iDrawCursor
	Import iunDrawCursor
	Import AnRTL
	import iSetStuffAdr
	import iBlowItUp
	import DoADirtyDeed		; from FontMgr.Pch
* re-enabled these 2 lines 17-Sep-90 DAL
	import DoADirtyDeed2	; from MenuMgr.Pch
	import DoADirtyDeed3	; from MenuMgr.Pch
*
	Import iSetUpScanPtrs
	import MyClearScreen	; from QD.pch
	import MyQDShutDown		; from QD.pch
	import MyInflateTextBuffer	; from QD.pch

*******************************************************************************
	MACRO
&lab	Patch &name
&lab	lda #<i&name
	sta |&name+1
	lda #>i&name
	sta |&name+2
	MEND

	MACRO
&Lab	TablePatch &RtnName,&CallNum
&Lab	ldy #&CallNum*4
	lda #&RtnName-1
	sta [LocalTemp],y
	iny
	iny
	lda #^&RtnName
	sta [LocalTemp],y
	MEND


****************************************************************
*
InstallQDPatch	PROC Export
*
* This routine installs the patches to QD's vectors and
* returns
*
*
* Inputs:
*	none
*
* Outputs:
*	all registers may be trashed.
*
* External Refs:
	import SetPort
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************
NumQDCalls	equ $DB		;22-Oct-90 DAL
CallTableSize	equ 4*(NumQDCalls+1)
LocalTemp	equ 0
SetPortOffset	equ $1B*4

*** re-enabled these 2 lines 17-Sep-90 DAL
SetForeColorOffset	equ $A0*4		; offset into call table for SetForeColor
PtInRectOffset	equ $4F*4		; offset into call table for PtInRect

	phb
	pea $E0E0
	plb
	plb

	Patch GimmeVersion
	Patch SetSlabAdr
	Patch SetSliceAdr
	Patch RotateMask
	Patch SeekRgn	; fix the scan up stuff in seek rgn
	Patch SetUpScanPtrs
;	patch DrawCursor	; removed for 5.0.3
;	patch unDrawCursor
	
	plb

;
; Get memory for the call table
;
	pha
	pha
	PushLong #CallTableSize
	pha
	_MMStartup
	PushWord #attrFixed+attrNoSpec
	pha
	pha
	_NewHandle

;
; Deref the handle put result in LocalTemp
; 
	pla
	sta LocalTemp
	pla
	sta LocalTemp+2

	ldy #2
	lda [LocalTemp],y
	tax
	lda [LocalTemp]
	sta LocalTemp
	stx LocalTemp+2

;
; Zero the call table
;

	ldy #CallTableSize-2
	lda #0
@Loop	sta [LocalTemp],y
	dey
	dey
	bpl @Loop


;
; Put the number of calls into the call table
;
	lda #NumQDCalls+1
	sta [LocalTemp]

;
; Point the boot init to an RTL
;
	lda #AnRTL-1
	ldy #4
	sta [LocalTemp],y
	iny
	iny
	lda #^AnRTL
	sta [LocalTemp],y

;
; Point SetPort to the patch
;
	ldy #SetPortOffset
	lda #SetPort-1
	sta [LocalTemp],y
	iny
	iny
	lda #^SetPort
	sta [LocalTemp],y

;
; Point SetForeColor to the patch
; (re-enabled this patch 17-Sep-90 DAL)
	ldy #SetForeColorOffset	;patch out _SetForeColor
	lda #SetForeColor-1
	sta [LocalTemp],y
	iny
	iny
	lda #^SetForeColor
	sta [LocalTemp],y
;
; Point PtInRect to the patch	
; (re-enabled this patch 17-Sep-90 DAL)
	ldy #PtInRectOffset		;patch out _PtInRect
	lda #PtInRect-1
	sta [LocalTemp],y
	iny
	iny
	lda #^PtInRect
	sta [LocalTemp],y
;
; And of course the rest of the patches...
	
	tablePatch SectRgn,$71
	tablePatch UnionRgn,$72
	tablePatch DiffRgn,$73
	tablePatch XorRgn,$74
	
	tablePatch MySetCursor,$8E	;re-enabled 5-Aug-91 DAL
	tablePatch MyStartup,$02

	tablePatch Get640Colors,$DA	;24-Sep-90 DAL
	tablePatch Set640Color,$DB	;24-Sep-90 DAL
	tablePatch MyClearScreen,$15	;25-Nov-90 DAL
	tablePatch MyQDShutDown,$03	;25-Nov-90 DAL
	tablePatch MyInflateTextBuffer,$D7	;27-Nov-91 DAL
;
; Install the patch
;
	PushWord #0
	PushWord #4
	pei LocalTemp+2
	pei LocalTemp
	_SetTSPtr

	RTL

	EndP

	End
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Patch/Patch3/IntMath.pch b/IIGS.601.SRC/GSToolbox/Patch/Patch3/IntMath.pch
new file mode 100644
index 0000000..f290789
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Patch/Patch3/IntMath.pch
@@ -0,0 +1 @@
+**********************************************************************
*
* Integer Math Tool Patch
*
* Copyright (C) 1992-93
* Apple Computer, Inc.
* All Rights Reserved.
*
**********************************************************************
*
* REVISION HISTORY
*
* Begin 6.0.1
*
* 5-Mar-92	Dave Lyons
*
* New file.  Version $8301 for 6.0.1d2.
*
* Patch Int2Dec and Long2Dec:  If stringPtr bit 31 is set and the
* buffer length is at least 5, return zero as "zero " instead of
* blanks followed by a "0".
*
* 25-Mar-93	Dave Lyons
*
* Patched Multiply to see if we're being called from the Menu Manager
* routine AllocateCache.  If we are, clip one of the parameters to
* 200 so we don't try to allocate huge amounts of memory, MOD 64K.
*
* 2-Apr-93 DAL
*
* Version $0301 for 6.0.1.
*
**********************************************************************

IntMathVersion	equ $0301

**********************************************************************
*
* CALL TABLE
*
**********************************************************************
IMCallTable	PROC EXPORT
	import Long2DecPatch,Int2DecPatch,MultiplyPatch
	import IMVersion

	DC.L (TheEnd-IMCallTable)/4
	DC.L 0     ;  oEndCall0-1	;power up init
	DC.L 0     ;  oEndCall0-1	;application startup
	DC.L 0     ;  oEndCall0-1	;application shutdown
	DC.L IMVersion-1
	DC.L 0     ;  oEndCall0-1	;reset
	DC.L 0     ;  IMActive-1
	DC.L 0     ;  oEndCall0-1	;reserved
	DC.L 0     ;  oEndCall0-1	;reserved
	DC.L MultiplyPatch-1	;patched 25-Mar-93 DAL
	DC.L 0     ;  SDivide-1
	DC.L 0     ;  UDivide-1
	DC.L 0     ;  LongMul-1
	DC.L 0     ;  LongDiv-1
	DC.L 0     ;  FixRatio-1
	DC.L 0     ;  FixMul-1
	DC.L 0     ;  FracMul-1
	DC.L 0     ;  FixDiv-1
	DC.L 0     ;  FracDiv-1
	DC.L 0     ;  FixRound-1
	DC.L 0     ;  FracSqrt-1
	DC.L 0     ;  FracCos-1
	DC.L 0     ;  FracSin-1
	DC.L 0     ;  FixATan2-1
	DC.L 0     ;  HiWord-1
	DC.L 0     ;  LoWord-1
	DC.L 0     ;  Long2Fix-1
	DC.L 0     ;  Fix2Long-1
	DC.L 0     ;  Fix2Frac-1
	DC.L 0     ;  Frac2Fix-1
	DC.L 0     ;  Fix2X-1
	DC.L 0     ;  Frac2X-1
	DC.L 0     ;  X2Fix-1
	DC.L 0     ;  X2Frac-1
	DC.L 0     ;  Int2Hex-1
	DC.L 0     ;  Long2Hex-1
	DC.L 0     ;  Hex2Int-1
	DC.L 0     ;  Hex2Long-1
	DC.L Int2DecPatch-1		;patched 5-Mar-92 DAL
	DC.L Long2DecPatch-1
	DC.L 0     ;  Dec2Int-1
	DC.L 0     ;  Dec2Long-1
	DC.L 0     ;  HexIt-1
TheEnd
	ENDP


**********************************************************************
*
* IMVersion
*
**********************************************************************
IMVersion	proc export

	lda #IntMathVersion
	sta 7,s
	lda #0
	clc
	rtl

	EndP

**********************************************************************
*
* MultiplyPatch -- 25-Mar-93 DAL
*
* See if we're being called from $FD/8086 in the ROM 3 Memory Manager.
* If we are, we must check the last parameter pushed and max it out
* at 201, so we don't cause the Memory Manager to allocate way too
* much memory, MOD 64K.  (If it tries to allocate 70K, then it only
* allocates 6K instead, and then trashes memory.)
*
**********************************************************************
MultiplyPatch	proc

boringRTL	equ 1	;always $fe/0137
usefulRTL	equ 4	;check against $fd/8086
lastOperand	equ 7	;word to clip to 201
firstOperand	equ 9	;word
resultSpace	equ 11	;long

	lda usefulRTL,s
	cmp #$8086
	bne @toROM
	lda usefulRTL+1,s
	cmp #$fd80
	bne @toROM

	lda lastOperand,s
	cmp #201
	bcc @toROM
	lda #201
	sta lastOperand,s
	sta <$EC	;store new value at <cHeight on Menu Mgr dp

@toROM	jml >$fef105	;original ROM 3 Multiply (doesn't need AXY)

	EndP

**********************************************************************
*
* Int2DecPatch -- 5-Mar-92 DAL
*
* Pre-patch the ROM to return "zero " if bit 31 of the string pointer
* is set, the buffer length is at least 5, and the value is zero.
*
**********************************************************************
Int2DecPatch	proc

signFlag	equ 7
buffLen	equ 9
stringPtr	equ 11
value	equ 15	;word

	lda value,s
	bne @toROM
	lda stringPtr+2,s
	bpl @toROM
	lda buffLen,s
	cmp >theZeroStringLen
	bcc @toROM

	jsr StuffZeroString ;using stringPtr
	jml >$fefc5a	;no error, strip 10 bytes

@toROM	jml $fef968	;old Int2Dec in ROM 3

*
* StuffZeroString -- needs stringPtr and buffLen buried on stack
*
	export StuffZeroString
StuffZeroString	phd
	tsc
	tcd
@buffLen	equ 13
@stringPtr	equ 15
	sep #$30
	longa off
	longi off
	lda >theZeroStringLen
	tax	;X counts backwards through source str
	dex

	ldy <@buffLen	;right-justify the "zero " in the field
	dey
@copy	lda >theZeroString,x
	sta [<@stringPtr],y
	dey
	dex
	bpl @copy

; pad dest string with blanks
	tya
	bmi @done
	lda #$20
@padBlanks	sta [<@stringPtr],y
	dey
	bpl @padBlanks
@done
	rep #$30
	longa on
	longi on
	pld
	rts

	export theZeroStringLen,theZeroString
theZeroStringLen	dc.w 5
theZeroString	dc.b 'zero '
	dc.b '****'	;space for internationalizing

	EndP


**********************************************************************
*
* Long2DecPatch -- 5-Mar-92 DAL
*
* Pre-patch the old patch to return "zero " if bit 31 of the string
* pointer is set, the buffer length is at least 5, and the value is
* zero.
*
**********************************************************************
Long2DecPatch	proc
	import StuffZeroString
	import theZeroStringLen,theZeroString

signFlag	equ 7
buffLen	equ 9
stringPtr	equ 11
value	equ 15	;long

	lda value,s
	ora value+2,s
	bne @toROM
	lda stringPtr+2,s
	bpl @toROM
	lda buffLen,s
	cmp >theZeroStringLen  ;long enough?
	bcc @toROM

	jsr StuffZeroString ;using stringPtr
	jml >$fefc65	;no error, strip 12 bytes

@toROM	jml >$fef9e5	;Long2Dec in ROM 3

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Patch/Patch3/LineEdit.pch b/IIGS.601.SRC/GSToolbox/Patch/Patch3/LineEdit.pch
new file mode 100644
index 0000000..fc1b6c8
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Patch/Patch3/LineEdit.pch
@@ -0,0 +1 @@
+
*********************************************************************************
*** THIS FILE IS NO LONGER USED.  System 6.0 uses Line Edit from RAM on ROM 3 ***
*********************************************************************************

	title 'LineEdit Patch        GS ROM 3 Patch'
******************************************************************
*
* LineEdit patches for ROM 3
*
* System Disk 5.0
*
* 12 Jun 89	Steven Glass
*
* Fix bug in LENew.  Wrong sized handle was being allocated for
* text buffer.
*
* 01 Sep 89	Yee
*
* Fix bug where LEFromScrap would trash a word of memory if the 
* desk scrap was empty. The word of memory that was trashed was
* located $FFFE from where the  line edit scrap is located.
*
* 17-Sep-90	Dave Lyons
*
* Removed dependency on all.macros.
*
* 22-Sep-90	Dave Lyons
*
* Rolled version to $8303.
* Patched LETextBox to clean up stack properly if Length=0.
*
* 24-Sep-90	Dave Lyons
*
* Added LEClick patch so we can do shift-clicking from a
* Line Edit Control.
*
* 28-Sep-90	Dave Lyons
*
* Fixed stupid LETextBox patch.  It was storing onto the
* wrong direct page (the caller's) instead of LE's.  Duh.
* 
*
******************************************************************

****************************************************************
*			   *
*              Copyright (C) 1989-90		   *
*              All Rights Reserved		   *
*              Apple Computer, Inc.		   *
*			   *
****************************************************************
	Blanks off
	String asis
	
	include 'm16.util2'
	include 'm16.memory'
	include 'm16.scrap'
	include 'm16.event'

	MACRO
	PushZWord &A
	pei  &A
	MEND

	include ':::LineEdit:LineEditEquates.asm'


****************************************************************
*
* LINE EDIT CALL TABLE
*
****************************************************************

LECallTable	PROC EXPORT
	import LENew
	import LEVersion
	import LEFromScrap
	import LETextBox
	import LEClick	;24-Sep-90 DAL
TheStart
	DC.L (TheEnd-TheStart)/4 ;num calls + 1
	dc.L 0	; LEBootInit-1
	dc.L 0	; LEStartUp-1
	dc.L 0	; LEShutDown-1
	dc.L LEVersion-1
	dc.L 0	; LEReset-1
	dc.L 0	; LEActive-1
	dc.L 0	; oStdEnd0-1
	dc.L 0	; oStdEnd0-1
	dc.L LENew-1
	dc.L 0	; LEDispose-1
	dc.L 0	; LESetText-1
	dc.L 0	; LEIdle-1
	dc.L LEClick-1
	dc.L 0	; LESetSelect-1
	dc.L 0	; LEActivate-1
	dc.L 0	; LEDeactivate-1
	dc.L 0	; LEKey-1
	dc.L 0	; LECut-1
	dc.L 0	; LECopy-1
	dc.L 0	; LEPaste-1
	dc.L 0	; LEDelete-1
	dc.L 0	; LEInsert-1
	dc.L 0	; LEUpdate-1
	dc.L LETextBox-1
	dc.L LEFromScrap-1
	dc.L 0	; LEToScrap-1
	dc.L 0	; LEScrapHandle-1
	dc.L 0	; LEGetScrapLen-1
	dc.L 0	; LESetScrapLen-1
	dc.L 0	; LESetHilite-1
	dc.L 0	; LESetCaret-1
	dc.L 0	; LETextBox2-1
	dc.L 0	; LESetJust-1
	dc.L 0	; LEGetTextHand-1
	dc.L 0	; LEGetTextLen-1
	dc.L 0	; FakeGetLEDefProc-1
TheEnd

	ENDP

****************************************************************
*
LEVersion	PROC
*
* Returns the version number of line edit
*
*
* Inputs:
*	none
*
* Outputs:
*	The patched version number
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

	lda #$8303	;22-Sep-90 DAL
	sta 7,s
	lda #0
	clc
	RTL

	ENDP



****************************************************************
*
* LENew
*
****************************************************************

	Export LENew
LENew	PROC
;		;LENew uses TempPtr1 and TempPtr2
	phd
	tcd

**	PushWord #0	;space for result
**	PushWord #0
	pha	;22-Sep-90 DAL
	pha	;22-Sep-90 DAL
	PushWord #0	;hi word of size
	PushWord #LERecSize	;lo word of size
	PushZWord <ProgID	;prog ID
	PushWord #0	;unpurgeable
**	PushWord #0
**	PushWord #0
	pha	;22-Sep-90 DAL (replaced above 2 lines
	pha	;22-Sep-90 DAL  with these 2)
	_NewHandle	;allocate mem for the edit record
	bcc GotMem
	tax	;xfer error code to	X
	jml $FC492A	; let ROM handle error

GotMem	pla	;get handle to mem
	sta <RecHandle	;save it
	sta 21,s	;and return it
	pla
	sta <RecHandle+2
	sta 21,s
	jsr LockRec

	lda #0
**	ldy #LERecSize
**	dey
**	dey
	ldy #LERecSize-2	;22-Sep-90 DAL (replaced above 3 lines)
ZLoop	sta [<RecPtr],y	;zero out record
	dey
	dey
	bpl ZLoop

	ldy #leMaxLength
	lda 9,s	;get maxtextlen parameter
	and #$7FFF
	cmp #MaxChars	;make sure it's not too big
	bcc OK
	lda #MaxChars
OK	sta [<RecPtr],y
	tax	; save in x for use below   FIXED SEG 12 Jun 89

	jml $FC4901	; jmp back into rom.
	


LockRec

	ldy #4
	lda [<RecHandle],y
	ora #$8000	;set locked bit in attribute word
	sta [<RecHandle],y
	ldy #2
	lda [<RecHandle]	;dereference handle
	sta <RecPtr
	lda [<RecHandle],y
	sta <RecPtr+2
	rts

	ENDP

****************************************************************
*
* LEClick(EventRecordPtr,LEHandle)
*
* 24-Sep-90	Dave Lyons
*
* This patch checks to see whether we're being called by the
* Line Edit Control defproc in ROM 3.  If we are, we call
* GetNextEvent to get some nice keyboard modifiers, since the
* ROM always tells us all the interesting modifiers were up.
* (We use EventMask = 0, so we aren't actually taking an event.)
*
* The Line Edit Control defproc calls us from $fc62e2, and the
* real entry point for LEClick is $fc4a97.
*
****************************************************************

LEClick	PROC EXPORT

	tax	;save WAP value
	lda 4,s
	cmp #$62e2+3
	bne @toROM
	lda 5,s
	cmp #$fc62
	bne @toROM
*
* We ARE being called from the defproc, so do a GetNextEvent
* on the Event Record being passed.
*
	phx
	pha	;space for result
	pea 0
	lda 19,s	;high word of event record ptr
	pha
	lda 19,s	;low word of event record ptr (Yes, 19 again)
	pha
	_GetNextEvent
	pla
	plx

	phd
	tsc
	tcd
	lda #1	;stuff a mouseDown into the What field
	sta [<13]
	pld

@toROM	txa	;restore WAP value to A
	jml $fc4a97

	EndP

****************************************************************
*
* LETextBox
*
* 22-Sep-90	Dave Lyons
*
* Fixed bug in LETextBox where it would remove a random amount
* of stuff from the stack on the short-cut exit when Length=0.
* Now it always removes 12 bytes.
*
****************************************************************

LETextBox	PROC EXPORT

	phx
	pha
	tax
	lda #12	;number of bytes to strip
	sta >$00005E,X
	pla
	plx
	jml $fc4f6d

	EndP

****************************************************************
*
* LEFromScrap
*
* 01 Sep 89	Yee
* Fix bug where LEFromScrap would trash a word of memory if the 
* desk scrap was empty. The word of memory that was trashed was
* located $FFFE from where the  line edit scrap is located.
*
****************************************************************

	Export LEFromScrap
LEFromScrap	PROC

	phd
	tcd

	PushLong #0	; space for result
	PushWord #ScrapType	; type = text
	_GetScrapSize
	bcs GotErr
	plx
	pla
	bne TooBig
	cpx #0	; make sure the desk scrap is not empty
	beq Fini	
	jml $FC509C	; jmp back into regular code path

GotErr	jml $FC50BB	; return error from GetSrapSize
TooBig	jml $FC50A1	; report Desk Scrap too big error
Fini	jml $FC576D	; go to StdEnd0

	ENDP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Patch/Patch3/ListMgr.pch b/IIGS.601.SRC/GSToolbox/Patch/Patch3/ListMgr.pch
new file mode 100644
index 0000000..b0cb6ae
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Patch/Patch3/ListMgr.pch
@@ -0,0 +1 @@
+	title 'List Mgr Patch        GS ROM 3 Patch'
******************************************************************
*
* List manager patches for ROM 3
*
* System Disk 5.0
*
* 5/18/89	Steven Glass
*
* 31 May 89	Harry Yee
*
* Take prototype bit out of version number. Final version = 3.1
* for System Disk 5.0.
*
* 12/19/89	Mensch
*
* Fixed new list II bug for monte.
*
* 26-Sep-90	Dave Lyons
*
* Version $8303.  (The list_disp procedure in ListMgr.asm
* has changed.)
*
* 25-Nov-90	Dave Lyons
*
* Add new ListKey function (code in the main ListMgr file).
*
* 4-Dec-90	Dave Lyons
*
* Abandoning the List patch--ROM 3 is going to use TOOL028 now.
*
******************************************************************

****************************************************************
*			   *
*              Copyright (C) 1989-90		   *
*              All Rights Reserved		   *
*              Apple Computer, Inc.		   *
*			   *
****************************************************************
	Blanks off
	String asis
	
	include ':::ListMgr:ListEquates.asm'


	MACRO
&lab	ROMCALL &where
&lab	phk
	pea @1-1
	pea |TheRTL-1
	jml &where
@1
	MEND



ListCallTable	PROC EXPORT
	import GetListDefProc
	import ListVersion
	import NewList2
	import ListKey	;from ListMgr:ListMgr.asm (25-Nov-90 DAL)

FPT	DC.L (ENDFPT-FPT)/4
	DC.L 0	; ListBootInit-1	$011C
	DC.L 0	; ListStartup-1	$021C
	DC.L 0	; ListShutDown-1	$031C
	DC.L ListVersion-1		$041C
	DC.L 0	; ListReset-1	$051C
	DC.L 0	; ListStatus-1	$061C
	DC.L 0	; Reserved-1	$071C
	DC.L 0	; Reserved-1	$081C
	DC.L 0	; CreateList-1	$091C
	DC.L 0	; SortList-1	$0A1C
	DC.L 0	; NextMember-1	$0B1C
	DC.L 0	; DrawMember-1	$0C1C
	DC.L 0	; SelectMember-1	$0D1C
	DC.L GetListDefProc-1 	$0E1C
	DC.L 0	; ResetMember-1	$0F1C
	DC.L 0	; NewList-1	$101C
;List Manager 2 calls
	DC.L 0	; DrawMember2-1	;$111C
	DC.L 0	; NextMember2-1	;$121C
	DC.L 0	; ResetMember2-1	;$131C
	DC.L 0	; SelectMember2-1 	;$141C
	DC.L 0	; SortList2-1	;$151C
	DC.L NewList2-1		;$161C
	dc.l ListKey-1		;$171C  added 25-Nov-90 DAL

ENDFPT		 
	ENDP




ListVersion	PROC

	lda #$8303	;26-Sep-90 DAL
	sta 7,s

	ENTRY QuickReturn
QuickReturn
	lda #0
	clc
	rtl

	ENDP


;==========================================================================
;
;	GetListDefProc
;
;         	Return the address of the list definition procedure.
;
;   IN:    None.
;
;  OUT:    Address of list definition procedure.
;==========================================================================
GetListDefProc	PROC
	import ListProc

TheResult	equ 7

	lda #ListProc>>16	Pass pointer to list control defProc.
	sta TheResult+2,s
	lda #ListProc
	sta TheResult,s

	bra QuickReturn
	
	ENDP



;==========================================================================
;
;          	ListProc.
;
;	List DefProc
;
;   IN:    PUSH:WORD - operation.
;          PUSH:LONG - operation parameter.
;          PUSH:LONG - handle of control.
;
;  OUT:    LONG - return operation parameter.
;
;==========================================================================
	ENTRY ListProc
ListProc	PROC

	import list_disp
	import list_value	;26-Nov-90 DAL
	import getListRect	;26-Nov-90 DAL

LockNLoad	equ $FCF993
TheRTL	equ $FCF195

BackIntoROMEarly	equ $FCF0F3
BackIntoROMAtEnd	equ $FCF149

	phd	Save original direct page.

	tsc	Allocate some work space on the stack.
	sec
	sbc #savezpage-1
	tcs
	tcd	Switch direct page into stack.

;
; --- Look at the operation code ---------------------------
;
	lda <operation

	cmp #newValue	;26-Nov-90 DAL
	bne @notNewListVal	;26-Nov-90 DAL
	brl DoFastListValue	;26-Nov-90 DAL

@notNewListVal	cmp #dispCntl	;is it the dispose command?
	beq @isListDispose

	jml BackIntoROMEarly

@isListDispose

;
; we now move the fields from the control record that are used by list_disp
; to direct page.
;

	ROMCall LockNLoad	Lock and derefence control's handle.

	ldy #CtlFlag	; we need the string type and
	lda [cptr],y
	and #1
	sta <strgType

	ldy #CtlData+2	; the data size
	lda [cptr],y
	sta <DataSize


	stz <result
	stz <result+2

	jsr list_disp

	jml BackIntoROMAtEnd


DoFastListValue	ROMCall LockNLoad	Lock and derefence control's handle.

	jsr getlistRect	crect = enclosing RECT.

	ldy #CtlMemHeight	Break out height of	members.
	lda [cptr],y
	sta <memHeight

	ldy #CtlData
	lda [cptr],y
	sta <ViewSize
	iny
	iny
	lda [cptr],y
	sta <DataSize

	ldy #CtlValue
	lda [cptr],y
	sta <DisplayTop

	ldy #CtlFlag
	lda [cptr],y
	and #1
	sta <strgType

	stz <result
	stz <result+2

	jsr list_value

	jml $fcf149	;SkipIntMess in ROM 3
	
	ENDP



;==========================================================================
;	
;	NewList2
;
;         	Put a new list in a list control.
;
;   IN: 	PUSH:LONG - DrawPtrR
;   	PUSH:WORD - ListStartR
;	PUSH:LONG - ListRefR
;	PUSH:WORD - ListRefDiscriptorR
;	PUSH:WORD - ListSizeR
;	PUSH:LONG - CtlHandle
;
;  OUT:    None.
;
; Change History
;
; 18 May 89	Steven Glass
;
; This code added to account for case found by Monte where we call
; NewList2 and the new list has fewer members.  So many fewer in
; fact that the original first seen is such that we run out of
; items before we re run out of space.
;
; The problem only occurs if we try to change the list and not
; the first seen.
;
;
; 12/19/89	Mensch
; This fixes the previous patch. Some times when the list grew the data would not
; be updated properly. This was causing problems. The solution is to only allow the
; fix to apply when the control shrinks.
;
;==========================================================================
	ENTRY NewList2
NewList2	PROC
CwrkPtr	equ 1
CtlPtr	equ CwrkPtr+4
dreg	equ CtlPtr+4
rtl1	equ dreg+2
rtl2	equ rtl1+3
CtlHandle	equ rtl2+3
ListSizeR	equ CtlHandle+4
ListRefDiscriptorR	equ ListSizeR+2
ListRefR	equ ListRefDiscriptorR+2
ListStartR	equ ListRefR+4
DrawPtrR	equ ListStartR+2


BackIntoROM	equ $FCEDAC

	phd
	pha	;space for CtlPtr
	pha

	pha	;space for CworkPtr
	pha
	
	tsc
	tcd
;
; Deref control handle
;
	ldy #2
	lda [CtlHandle],y
	sta <CtlPtr+2
	lda [CtlHandle]
	sta <CtlPtr

;
; Set the first item viewed in the list control and the 
; associated scroll bar.
;
	lda <ListStartR	
	cmp #$FFFF
	bne NoFutzingNeeded

; Monte does not want to change the first shown item.  So lets make
; sure that the current first shown item is valid.  If it is not,
; we must back it up one.  (This only happens is the new list
; is smaller than the old list and the first shown makes the old
; last item show.

	lda <ListSizeR	; see if the list size has changed...
	cmp #$FFFF
	beq NoFutzingNeeded	; list size did not change so... don't worry

	ldy #CtlData+2	; take the data size of existing list
	cmp [CtlPtr],y	; and see if it is larger than the new list size
	bge NoFutzingNeeded	; the new list is bigger so quit this..
; else... <A> has size from the new list
; so futz based on the new lists size...
	sec
	dey
	dey
	sbc [CtlPtr],y	; subtract the view size
	ldy #CtlValue
	cmp [CtlPtr],y	; and compare to the current value
	bpl NoFutzingNeeded

	lda [CtlPtr],y
	dec a
	bne @1
	lda #1
@1
	sta <ListStartR

NoFutzingNeeded	jml BackIntoROM

	ENDP


	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Patch/Patch3/Locator.pch b/IIGS.601.SRC/GSToolbox/Patch/Patch3/Locator.pch
new file mode 100644
index 0000000..84f62ab
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Patch/Patch3/Locator.pch
@@ -0,0 +1 @@
+	title 'Tool Locator Patch'
*******************************************************************
*
* Copyright 1990-1992 Apple Computer, Inc.
* All Rights Reserved
*
*******************************************************************
*
* Tool Locator patches for ROM 3
* 
* (Some routines are also used by the ROM 1 patch.)
*
*
* 17-Sep-90	Dave Lyons
*
* New file for 6.0.
*
* 25-Sep-90	Dave Lyons
*
* Added GetIndMessage call.
*
* 3..4-Oct-90	Dave Lyons
*
* Implemented AcceptRequests and most of SendRequest.
*
* 10-Oct-90	Dave Lyons
*
* Finish SendRequest (implement by-name substring matching).
*
* 16-Oct-90	Dave Lyons
*
* Add a NotifyProc to call SysBeep2 (AddTBNotifyProc).
*
* 14-Nov-90	Dave Lyons
*
* Removed the JSL AddTBNotifyProc from TLBootInit (moving it to
* Install.asm instead).
*
* Put back all.macros.
*
* 17-Nov-90	Dave Lyons
*
* Patched out StartUpTools and ShutDownTools.
* Patched out LoadOneTool and LoadTools for new version
* number bit handling.
*
* 14-Mar-91	Dave Lyons
*
* Forced a device scan through the new $01FCDC vector before
* adding the SysBeep2-calling NotifyProc; this way having a disk
* online during boot doesn't cause a SysBeep2 "insert" call.
*
* 22-Mar-91	Dave Lyons
*
* Changed the notify proc for insert/eject to check the DIB
* of the device & see if it's a 5.25 drive.  If it is, we don't
* call SysBeep2, because bogus inserts and ejects happen frequently
* for these drives.
*
* 29-Mar-91	Dave Lyons
*
* Only call SysBeep2 for inserts/ejects on devices that have
* removable media!  (Brilliant...thanks, Greg.)
*
* 16-Apr-91	Dave Lyons
*
* Added AddTBRequestHandler and UnknownDiskReqProc to this
* file.  This IDs unrecognized disks within HandleDiskInsert
* in the Window Manager.
*
* 18-Apr-91	Dave Lyons
*
* Changed the request number in UnknownDiskReqProc to $0002,
* systemSaysUnknownDisk.
*
* 23-Apr-91	Dave Lyons
*
* Edited the unknown-disk messages to contain actual installer
* script names.
*
* 30-Apr-91	Dave Lyons
*
* Unknown disk messages:  Changed "seems" to "appears" in all
* messages.  Changed "use" to "read" in ISO/HS message.
*
* 23-May-91	Dave Lyons
*
* Added a missing REP #$30 that would cause a tool call to be
* made in 8-bit accumulator, which is normally fine, but was
* accidental and caused a crash with old versions of GSBug.
*
* 6-Jun-91	Dave Lyons
*
* Patched TLShutDown to call SANEShutDown first thing.
*
* Patched Save/RestoreTextState to deal with text page 1
* shadowing.  RestoreTextState(NIL) now does nothing.
*
* 11-Jun-91	Dave Lyons
*
* Optimized stack setup and teardown on AcceptRequests.
*
* 1-Jul-91	Dave Lyons
*
* SendRequest now returns error $0122, invalidSendRequest, if
* you try to send a $8000+ request by sendToAll.
*
* 8-Jul-91	Dave Lyons
*
* The UnknownDisk request proc now accepts systemSaysDeskShutDown
* and systemSaysDeskStartUp.  On startup, it calls ShowBootInfo
* with StringPtr=$80000000 to reinitialize it.  On the first
* shutdown, it calls SysBeep2(sbSystemStartup+sbSilence).
*
* 14-Sep-91	Dave Lyons
*
* Made TLShutDown call QDAuxShutDown for some BONEHEADS who
* are making ShutDownTools shut down the tool locator, and
* *then* they are shutting down QuickDraw, which would have
* shut down QDAux for them, but it's already gone.  (They
* never asked for QDAux in the first place, but Window Mgr
* loaded it so AlertWindow could use icons.)
*
* 17-Sep-91	Dave Lyons
*
* Moved following functions to Tool.Setup instead of here:
*  LoadTools, LoadOneTool, UnloadOneTool, StartUpTools,
*  ShutDownTools, GetMsgHandle, AcceptRequests, SendRequest.
*  Also moved TBNotifyProc and AddTBRequestHandler/UnknownDiskProc.
*
* 18-Sep-91	Dave Lyons
*
* Added a placeholder proc to be linked into the very beginning
* of the Patches segment of Tool.Setup, so that no tool patch
* will start at the beginning of the segment, and therefore at
* the beginning of the bank (can't be dispatched to correctly).
*
* 23-Sep-91	Dave Lyons
*
* SendRequest, on dispatch to a request proc, sets D to $CCCC
* and Bank to $FE, to help catch request procs that mistakenly
* assume the B or D values are defined or useful.  They are not.
*
* 1-Oct-91	Dave Lyons
*
* Changed MS-DOS unrecognized-disk message.
*
* 13-Oct-91	Dave Lyons
*
* AcceptRequests--if NamePtr and ReqProc are both NIL, we remove
* all the procs registered under the specified UserID.
*
* 24-Oct-91	Dave Lyons
*
* UnknownDisk proc can identify UniDOS (DOS 3.3 on floppy) disks
* (reads block $0110 instead of $0088 looking for the VTOC).
*
* 2-Dec-91	Dave Lyons (for 6.0d60)
*
* Hack MessageCenter so that deleting message 1 (list of Pascal
* strings to Open/Print, from Finder) automatically deletes
* message $11 (new mesage, list of GS/OS strings to Open/Print
* from Finder). -- This is needed so that a new app doesn't
* accidentally act on message $11 after transferring out of
* an old application that didn't know about the new message.
*
* 27-Jan-92	Dave Lyons (for 6.0d66)
*
* SendRequest was failing to fill in the recvCount field of
* the output buffer, in the case that the stop-after-one flag
* is set and somebody accepts the request.  Fixed.
*
* 5-Feb-92	Dave Lyons
*
* Version $0301 for 6.0 final (linked into both TS2 and TS3).
*
******************************************************************
*
* 17-Feb-92	Dave Lyons
*
* Version $8302 for 6.0.1d1.
*
* Changed 6.0 to 6.1 in a couple of you-have-no-FST messaages.
*
* 9-Jun-92	Dave Lyons
*
* UnknownDisk procedure:  Updated some messages to read 6.0.1
* instead of 6.1.  Updated MS-DOS message to tell them to install
* the MS-DOS FST using the Installer.
*
* 18-Jan-93	Steve Stephenson
*
* Optimized IsThisTarget, mcGetFirstMessage, and mcGetNextMessage
* for speed (also shrunk them in size).
*
* 2-Apr-93 DAL
*
* Version $0302 for 6.0.1.
*
******************************************************************
******************************************************************

	include 'all.macros'
	include ':::sys.equs.asm'

incbusy	equ $e10064
MessNotFound	equ $0111	;error code
srqNameTooLong	equ $0113	;for AcceptRequests
reqNotAccepted	equ $0120	;SendRequest error code
duplicateName	equ $0121	;AcceptRequests duplicate string
invalidSendRequest	equ $0122	;can't send $8000+ to everybody

LocatorVersion	equ $0302	;2-Apr-93 DAL


****************************************************************
*
* GODDAMMIT, I need to put a NOP at the beginning of the
* Patches segment to prevent a tool patch from starting at the
* first byte of the segment & maybe the bank, where you can't
* dispatch to it.
*
****************************************************************
GODDAMMIT	PROC EXPORT
	nop
	Endp

****************************************************************
*
* TLTable
*
* This is the Function pointer Table (FPT) for the tool
* locator tool set.
*
* Note:  Functions marked with "[ts]" are already patched for
*        us in Tool.Setup.
*
****************************************************************
LocatorCallTable	proc EXPORT

	IMPORT TLBootInit
	IMPORT TLVersion
;	import AcceptRequests	;17-Sep-90 DAL
;	import SendRequest		;17-Sep-90 DAL
;	import GetMsgHandle		;25-Sep-90 DAL
;	import StartUpTools		;17-Nov-90 DAL
;	import ShutDownTools	;17-Nov-90 DAL
;	import LoadOneTool		;17-Nov-90 DAL
;	import LoadTools		;17-Nov-90 DAL
;	import UnloadOneTool	;25-Nov-90 DAL
	import TLShutDown		;6-Jun-91 DAL
	import SaveTextState	;6-Jun-91 DAL
	import RestoreTextState	;6-Jun-91 DAL
	import MessageCenter	;2-Dec-91 DAL

TheBeginning
	dc.L (TheEnd-TheBeginning)/4	; call count + 1

	dc.L TLBootInit-1		; TLBootInit (0101)
	dc.L 0		; TLStartUp  (0201)
	dc.L TLShutDown-1		; TLShutDwon (0301)
	dc.L TLVersion-1		; TLVersion  (0401)
	dc.L 0		; TLReset    (0501)
	dc.L 0		; TLStatus   (0601)
	dc.L 0		; NotImp     (0701)
	dc.L 0		; NotImp     (0801)
	dc.L 0		; GetTSPtr   (0901)
	dc.L 0		; SetTSPtr   (0A01)
	dc.L 0		; GetFuncPtr (0B01)
	dc.L 0		; GetWAP     (0C01)
	dc.L 0		; SetWAP     (0D01)
	dc.L 0	;[ts] LoadTools-1	; 0e01
	dc.L 0	;[ts] LoadOneTool-1	   ; 0f01
	dc.L 0	;[ts] UnloadOneTool-1  ; 1001
	dc.L 0 		; TLMountVolume     1101
	dc.L 0 		; TLTextMountVolume 1201
	dc.L SaveTextState-1 	; SaveTextState     1301
	dc.L RestoreTextState-1	; RestoreTextState  1401
	dc.L MessageCenter-1	; MessageCenter     1501 patched 2-Dec-91 DAL
	dc.L 0 		; SetDefaultTPT     1601
	dc.L 0 		; MessageByName     1701
	dc.L 0	;[ts] StartupTools-1    ; StartUpTools      1801
	dc.L 0	;[ts] ShutDownTools-1   ; ShutDownTools     1901
*** New calls for 6.0
	dc.l 0	;[ts] GetMsgHandle-1    ; 1A01  17-Sep-90 DAL
	dc.l 0	;[ts] AcceptRequests-1  ; 1B01  17-Sep-90 DAL
	dc.l 0	;[ts] SendRequest-1	    ; 1C01  17-Sep-90 DAL
TheEnd
	EndP


****************************************************************
*
* ROM 3 patch for TLVersion
*
****************************************************************
TLVersion	proc export
	export TLBootInit

	lda #LocatorVersion
	sta 7,s
*
* This null routine is called when the patch is installed.
* it should never be called again.
*
TLBootInit
	
oEndCall0	lda #0
	clc
	rtl

	EndP


****************************************************************
*
* SaveTextState -- new patch 6-Jun-91 DAL
*
* Call the ROM 3 SaveTextState code, and then stuff the text
* shadow bit into bit 0 of offset 1 in the resulting record,
* and enable text shadowing.
*
****************************************************************
SaveTextState	proc

	pha
	pha
	jsl ToROM
	tax	;keep error code
	lda 3,s
	sta 9+4,s
	lda 1,s
	sta 7+4,s

	lda 2,s
	beq @exit

	phx	;save error
	phd
	tsc
	tcd
	ldy #2
	lda [5],y
	tax
	lda [5]
	sta 5
	stx 7	;dereferenced result

	lda >$e0c035
	lsr a	;text state in Carry
	php
	ldy #1
	lda [5],y	;get old value from record, strip bit 0
	lsr a
	plp	;get text state back in Carry
	rol a	;put text state into bit 0
	sta [5],y

	pld
	plx	;restore error code

@exit	pla
	pla	;pop my temp result space

	lda >$e0c035
	lsr a
	asl a	;clear bit 0 = enable text shadowing
	sta >$e0c035

	txa
	cmp #1
	rtl

ToROM	jsl $fdc8d6
	rtl

	EndP


****************************************************************
*
* RestoreTextState -- new patch 6-Jun-91 DAL
*
* Check for a NIL state handle; do nothing if NIL.
*
* Set text shadowing bit from bit 0 of offset 1 in the state
* handle.
*
****************************************************************
RestoreTextState	proc

	lda 8,s	;check middle word of handle
	beq @nil

	phd
	lda 11,s
	pha
	lda 11,s
	pha
	tsc
	tcd

	ldy #2
	lda [1],y
	tax
	lda [1]
	sta 1
	stx 3
	dey	;Y=1 = offset into state record
	lda [1],y
	lsr a	;text state in Carry
	php
	lda >$e0c035
	lsr a
	plp	;text state back in Carry
	rol a
	sta >$e0c035

	pla
	pla
	pld

	jml >$fdca4c	;RestoreTextState in ROM

@nil	ldx #0
	ldy #4
	jml $e10184	;ToStrip

	EndP


****************************************************************
*
* MessageCenter -- new patch 2-Dec-91 DAL
*
* When deleting message 1, also automatically delete message $0011.
*
****************************************************************
MessageCenter	proc

sTheHandle	equ 7	;offsets into stack
sTheType	equ sTheHandle+4
sTheAction	equ sTheType+2

	lda sTheAction,s
	cmp #3	;delete
	bne @notKludge
	lda sTheType,s
	dec a
	bne @notKludge

	pea 3	;action=delete
	pea $0011	;message = new Types msg
	phx
	phx	;handle = ignored
	_MessageCenter

@notKludge	jml >$fdc13e	;MessageCenter in ROM 3
*** end 2-Dec-91


****************************************************************
*
* TLShutDown -- new patch 6-Jun-91 DAL
*
* In case the stoopid application left SANE started up, we'll
* shut it down for them.  This avoids, say, an NDA seeing that
* SANE is still started & using it, when it's actually using
* some memory that is no longer allocated (ouch!).
*
****************************************************************
TLShutDown	proc export

	_QDAuxShutDown	;added 14-Sep-91 DAL

	_SANEShutDown
	jml >$fe0342	;original ROM 3 TLShutDown

	EndP

****************************************************************
*
* GetMsgHandle for both ROM 1 and ROM 3
*
* $1A01 GetMsgHandle(Flags,MsgRef/4):Handle
*
* Inputs:
*
*     WORD Flags = %0000 0000 0000 00mm
*        mm 00 = get the MsgRef-th message
*        mm 01 = get message with Message Type of MsgRef
*        mm 10 = get message with name MsgRef points to
*        mm 11 = reserved
*
*     LONG MsgRef:
*        index or integer or pointer to Pascal string (depends on Flags)
*
* Outputs:
*     LONG Handle = handle belonging to the system (don't fiddle with it!)
*                   (NIL if error)
*
* Description:
*
****************************************************************
GetMsgHandle	proc export
	import mcGetFirstMessage
	import mcGetNextMessage
	import DerefYA

	DefineStack
temp	long
sizeLocals	EndLocals

saveDPage	word
RTL1	block 3
RTL2	block 3
MsgRef	long
Flags	word
ResultHandle	long

	jsl incbusy
	phd
	tsc
	sec
	sbc #sizeLocals
	tcs
	tcd

	jsr mcGetFirstMessage
	bcs @notFound

@next	sty <ResultHandle+2
	sta <ResultHandle
	jsr CheckMessage
	ldx #0	;anticipate success
	bcc @exit

	ldy <ResultHandle+2
	lda <ResultHandle
	jsr mcGetNextMessage
	bcc @next

@notFound	ldx #MessNotFound
	stz <ResultHandle+2
	stz <ResultHandle

@exit
	tsc	;get rid of local variables
	clc
	adc #sizeLocals
	tcs
	pld
	ldy #6	;strip 6 bytes
	jml ToBusyStrip

*
* CheckMessage
*
* Inputs:  YA = handle to a message to check
*               (also in ResultHandle)
*          Flags and MsgRef tell us what to check
*
* Outputs:
*          CLC if we found the message
*
CheckMessage	jsr DerefYA
	sty <temp+2
	sta <temp
	lda <flags
	and #%00000011
	asl a
	tax
	jmp (Filter,x)

Filter	dc.w byIndex,byType,byName,byReserved

byIndex	dec <MsgRef
	clc
	beq @found
	sec
@found	rts

byType	ldy #4	;offset to type
	lda [<temp],y
	cmp <MsgRef
	clc
	beq @found
	sec
@found	rts
*
* byName--return CLC if message at <temp was created by
*         MessageByName and the name matches <MsgRef
*
byName	ldy #4	;offset to type
	lda [<temp],y
	bpl @noMatch	;$8000+ = MessageByName types
	cmp #$b0b0	;Claris stole Msg Type $B0B0
	beq @noMatch
	clc
	lda <temp
	adc #8
	sta <temp
	bcc @ok
	inc <temp+2
@ok	sep #$30
	longa off
	longi off
	lda [<MsgRef]
	tay
@compare	lda [<MsgRef],y
	cmp [<temp],y
	bne @cmpFail
	dey
	bpl @compare
	longa on
	longi on
	rep #$30
	clc
	rts

@cmpFail	rep #$30
	longa on
	longi on	;fall into sec/rts
@noMatch
byReserved	sec
	rts

	EndP

********************************************************************
*
* Get YA=handle to first message (return SEC = none)
*
* The handle to the first message is stored in the
* Memory Manager's WAP.
*
****************************************************************
mcGetFirstMessage	proc export

;	pha
;	pha	;result space (long)
;	pea 0	;system tool
;	pea 2	;memory manager
;	_GetWAP
;	pla
;	ply
;	bne @ok
;	sec
;@ok	rts

*** optimized 18-Jan-93 SS
	import DerefYA

	lda >$e103c8+2
	tay
	lda >$e103c8	;get ptr to WAPT
	clc
	adc #2*4	;get Memory Mgr's WAP
	bcc @nohi
	iny
@nohi	jsr DerefYA	;dig out the handle
	rts
	
*** end 18-Jan-93
	
	EndP
	
*
* Advance YA to next message (return SEC = none)
*
mcGetNextMessage	proc export

	jsr DerefYA
	bcc DerefYA
	rts
	
*** optimized 15-Jan-93 SS

	export DerefYA
;DerefYA	phd
;	phy
;	pha
;	tsc
;	tcd
;	ldy #2
;	lda [1],y
;	pha
;	lda [1]
;	ply	;conditions Z for bne
;	clc
;	bne @notNIL
;	sec
;@notNIL	plx
;	plx
;	pld
;	rts

DerefYA	phb	;save B
	phy	;reset to Y bnk
	plb	;(invalid byte still on stk)
	tax	;addr lo
	lda |0,x
	ldy |2,x	;hi=0=end
	clc	
	bne @notNIL
	sec
@notNIL	plb	;pop garbage byte
	plb	;restore B
	rts
	
*** end 15-Jan-93

	endp


****************************************************************
*
* AcceptRequests for both ROM 1 and ROM 3
*
* $1B01 AcceptRequests(@NameStr,UserID,@ReqProc)
*
* Description:
*
* Uses MessageByName to create a message based on the
* input parameters.  The name is $FF ">" followed by
* the NameStr, and the UserID and ReqProc come after
* that.
*
* If ReqProc is NIL, removes the corresponding entry
* instead.
*
* Special case--if NamePtr and ReqProc are *both* NIL,
* then we remove all the procs registered under the
* specified UserID.
*
****************************************************************
AcceptRequests	proc export

	DefineStack

sizeLocals	EndLocals
saveDPage	word
RTL1	block 3
RTL2	block 3
ReqProc	long
UserID	word
NamePtr	long

	jsl incbusy
	phd

	tsc
	if sizeLocals<>0 then
	sec
	sbc #sizeLocals
	tcs
	endif

	tcd

	phb
	phk
	plb

*** added 13-Oct-91 DAL -- allow removing procs by ID
	lda <NamePtr+1
	ora <ReqProc+1
	bne @notRemoveByID
	lda <UserID
	jsr RemoveByUserID
	ldx #0
	brl @exit	;error code in X
@notRemoveByID
*** end 13-Oct-91

	ldx #srqNameTooLong	;anticipate name too long
	lda [NamePtr]
	and #$00ff
	cmp #63
	bcs @exit
	inc a
	inc a
	pha	;save length+2

	sep #$20
	sta msgString
	rep #$20

	tay
	beq @copied
@copy	lda [<NamePtr],y
	sta msgString+2,y
	dey
	bne @copy
@copied

	ply	;length+2
	lda <UserID
	sta msgString+1,y
	lda <ReqProc
	sta msgString+1+2,y
	lda <ReqProc+2
	sta msgString+1+4,y

	lda [<NamePtr]
	and #$00ff
	clc
	adc #11
	sta msgBuffer

	lda <ReqProc+1
	bne @Install

*** Remove

	ldy #0	;don't create
	jsr MessByName	;return A=flag, Y=ID, X=error
	pea 3	;delete message
	phy	;message id
	pha
	pha	;handle (ignored)
	_MessageCenter
	tax
	bra @exit

*** Install

@Install	ldy #0	;don't create msg
	jsr MessByName	;return A=flag, Y=ID, X=error
	ldx #duplicateName	;error
	bcc @exit	;no error?  Duplicate name!

	ldy #1	;okay to create msg
	jsr MessByName	;return A=flag, Y=ID, X=error

** X = error code

@exit	plb

	if sizeLocals<>0 then
	tsc	;get rid of local variables
	clc
	adc #sizeLocals
	tcs
	endif

	pld
	ldy #10	;strip 10 bytes
	jml ToBusyStrip

*** added 13-Oct-91 DAL
RemoveByUserID	sta IDToRemove
	phd
	pha
	pha
	pha
	pha
	tsc
	tcd
@ThisMsg	equ 1
@temp	equ 5

@RestartTheSearch	jsr mcGetFirstMessage
	bcs @removedByID
@remove1	sty <@ThisMsg+2
	sta <@ThisMsg
	jsr DerefYA
	sty <@temp+2
	sta <@temp
	ldy #4
	lda [<@temp],y	;get message type
	bpl @tryNext	;not a named message!
	ldy #9
	lda [<@temp],y	;check SendRequest signature
	cmp #$3EFF	;$FF ">" signature
	bne @tryNext

	ldy #8	;offset to name length
	lda [<@temp],y
	and #$00FF
	clc
	adc #9	;offset past end of name (to user id)
	tay
	lda [<@temp],y
	cmp IDToRemove
	bne @tryNext

	pea 3	;delete message
	ldy #4
	lda [<@temp],y
	pha	;pushed message number (type)
	pha
	pha	;handle (not used)
	_MessageCenter
	bcs @removedByID	;shouldn't happen (give up)
	bra @RestartTheSearch ;handle is invalid, start over

@tryNext	ldy <@ThisMsg+2
	lda <@ThisMsg
	jsr mcGetNextMessage
	bcc @remove1
@removedByID	pla
	pla
	pla
	pla
	pld
	rts

IDToRemove	dc.w 0
*** end 13-Oct-91

MessByName	pha	;space for result flag
	pha	;space for result ID
	phy	;CreateIt flag
	pushlong #MsgBuffer
	_MessageByName
	tax	;error code
	ply	;message ID created or found
	pla	;Created flag
	rts

msgBuffer	dc.w 0	;length = [NameStr]+11
msgString	dc.b 0	;length byte = [NameStr]+2
	dc.b $ff,'>'
	ds 63+2+4

	endp

****************************************************************
*
* SendRequest for both ROM 1 and ROM 3
*
* $1C01 SendRequest(ReqCode,How,Target/4,@In,@Out)
*
* Inputs:
*
* Outputs:
*
* Description:
*
****************************************************************
SendRequest	proc export

	import mcGetFirstMessage
	import mcGetNextMessage

	DefineStack
TempPtr	long
temp	long
count	word
sizeLocals	EndLocals
saveDPage	word
RTL1	block 3
RTL2	block 3
OutPtr	long
InPtr	long
Target	long
SendHow	word
ReqCode	word

	jsl incbusy
	phd
	tsc
	sec
	sbc #sizeLocals
	tcs
	tcd

	stz <count

*** added 1-Jul-91 DAL -- don't allow sendToAll + reqCode>=$8000
	lda <reqCode
	bpl @validSRQ
	lda <sendHow
	and #3
	bne @validSRQ
	ldx #invalidSendRequest
	bra @exit
@validSRQ
*** end of 1-Jul-91 DAL

	jsr mcGetFirstMessage
	bcs @triedAll

@next	sty <temp+2
	sta <temp
	jsr SendReq
	bcs @doNext

* request was accepted

	inc <count

	lda <SendHow
	bmi @noError	;stop when it's accepted

@doNext	ldy <temp+2
	lda <temp
	jsr mcGetNextMessage
	bcc @next

@triedAll

;** If there's an output buffer, fill in the acceptedCount field
;	lda <OutPtr+1
;	beq @noOutBuff
;	lda <count
;	sta [<OutPtr]
;@noOutBuff

	ldx #reqNotAccepted	;anticipate nobody accepted
	lda <count
	beq @exit

@noError	ldx #0
@exit
*** moved here 27-Jan-92 DAL from above--set the recvCount in dataOut
** If there's an output buffer, fill in the acceptedCount field
	lda <OutPtr+1
	beq @noOutBuff
	lda <count
	sta [<OutPtr]
@noOutBuff
*** end 27-Jan-92
	tsc	;get rid of local variables
	clc
	adc #sizeLocals
	tcs
	pld
	ldy #16	;strip 16 bytes
	jml ToBusyStrip

*
* SendReq
*
* YA are a message handle.  Try sending the request to this if it's a
* ReqProc message.
*
* Return carry clear if the message is accepted.
*
SendReq	jsr DerefYA
	sty <TempPtr+2
	sta <TempPtr
	
	ldy #4
	lda [<TempPtr],y
	bpl Noper	;not a $8000+ message type
	ldy #9
	lda [<TempPtr],y
	cmp #$3eff	;$FF ">" signature
	bne Noper

	jsr IsThisTarget
	bcs Noper1	;bypass redundant SEC (18-Jan-93 SS)

	ldy #8
	lda [<TempPtr],y
	and #$00ff
	clc
	adc #12	;offset to proc+1
	tay
	lda [<TempPtr],y
	tax
	dey
	lda [<TempPtr],y

	phb	;save B around reqProc (23-Sep-91 DAL)
	phd	;save D around reqProc (23-Sep-91 DAL)

	pea 0	;result space
	pei <ReqCode
	pei <InPtr+2
	pei <InPtr
	pei <OutPtr+2
	pei <OutPtr
	jsl JumpToProc
	pla

	pld	;restore our D (23-Sep-91 DAL)
	plb	;restore our B (23-Sep-91 DAL)

	eor #$8000
	asl a
	rts

Noper	sec
Noper1	rts

*
* IsThisTarget--return CLC if the message at <TempPtr is one
* we should call.  We already know it's a ReqProc message.
*
IsThisTarget	lda <SendHow
	and #%00000011
	bne @notToAll
@Yes	clc	;%00 = send to all
	rts

@notToAll	dec a
	bne @notByName	;%01 = send by name substring

* compare names: return CLC if Target is a substring of TempPtr+8 string
* (TempPtr+8 pstring has $FF $3E as the first two characters; we ignore
* them)
	
;	pei <TempPtr+2	;save old TempPtr
;	pei <TempPtr
;	clc
;	lda <TempPtr
;	adc #8	;offset to name
;	sta <TempPtr
;	bcc @1
;	inc <TempPtr+2
;@1
;	longa off
;	longi off
;	sep #$30
;	ldy #0
;@nextChar	tya
;	cmp [<Target]
;	bcs @decideYes	;run out of chars in Target: send
;	inc a
;	inc a
;	cmp [<TempPtr]
;	dec a
;	dec a
;	bcs @decideNo	;run out of chars in candidate: don't send
;	iny
;	lda [<Target],y
;	iny
;	iny
;	cmp [<TempPtr],y
;	php
;	dey
;	dey
;	plp
;	beq @nextChar	;keep looking
;
;@decideNo	sec
;	dc.b $24	;BIT <$xx hides next byte
;@decideYes	clc
;@decided	rep #$30
;	longa on
;	longi on
;	pla
;	sta <TempPtr
;	pla
;	sta <TempPtr+2
;	rts	;Return value = carry

*** optimized 18-Jan-93 SS

	clc	;(for both adc and nil case)
	lda [<Target]
	and #$00ff
	beq @defaultYes	;Target NIL is a match
	adc #8+2+1	;length + offset to str + first 2 chars + 1 past
	tay	;hold spot into TempPtr str where Target ends
	ldx <Target	;set X for start of str
	lda <Target+2
	phb	;save B
	pha	;reset to Target's B
	plb
	phy
	longa off
	sep #$20
	ldy #8
	lda [<TempPtr],y	;this Temp's length
	dec a	;minus 2 for the lead chars
	dec a
	cmp |0,x	;long enuf to encompass the Target?
	bcc @decideNo	; no, reject
	iny	; yes, step to first actual char
	iny
	iny
@nxtchar	lda [<TempPtr],y	;compare chars
	cmp |1,x
	bne @decideNo	;not same, reject
	inx
	iny	;bump indexes
	tya
	cmp 1,s	;at end of Target?
	beq @decideYes	; yes, got a match
	bcc @nxtchar	; not yet, keep checking
@decideNo	sec
	dc.b $90	;fake to skip over next byte
@decideYes	clc
	longa on
	rep #$20
	pla	;fix stack
	plb
	plb	;restore B
@defaultYes	rts
	
*** end 18-Jan-93

@notByName	dec a
	bne @dontSend	;%10 = send by MemID

* compare user IDs

	ldy #8	;offset to string length
	lda [<TempPtr],y
	and #$00ff
	clc
	adc #9	;offset to User ID
	tay	;added 20-Dec-90 DAL
	lda [<TempPtr],y
	cmp <Target
	bne @DontSend
	clc
	rts

@DontSend	sec
	rts

*
* JumpToProc--Long jump to address in XA
*
JumpToProc	phx
	phb	;just a scratch byte
	dec a
	sta 1,s
*** set up garbage values for undefined registers! (23-Sep-91 DAL)
	lda #$CCCC	;garbage D value
	tcd
	pea $FEFE
	plb
	plb	;set B to $FE (ROM)
*** end 23-Sep-91
	rtl

	EndP


****************************************************************
*
* AddTBNotifyProc for both ROM 1 and ROM 3
*
* Description:
*
* Adds a GS/OS Notify Proc that calls SysBeep2 in response
* to various OS events.  This makes it easy to customize sounds
* (or whatever) in the system.
*
****************************************************************
AddTBNotifyProc	proc export

*** Force a device scan so we get any "inserts" out of the way
*** before we start calling SysBeep2 for every insert.  Having
*** a disk online when you boot shouldn't count as an insert
*** for SysBeep2 purposes. (14-Mar-91 DAL)

*** 1-Apr-91 DAL -- use the Misc Tools call instead of the OS Service
	pha
	_ScanDevices
	pla

	_AddNotifyProcGS anpParms
	rtl

anpParms	dc.w 1
	dc.l TBNotifyProc

****************************************************************
*
* TBNotifyProc -- call SysBeep2 as appropriate
*
****************************************************************
TBNotifyProc	dc.l 0	;reserved
	dc.w 0	;reserved
	dc.w $A55A
	dc.l $0000003E	;shutdown, eject, insert, OS switches
EventCode	dc.l 0
ProcEntry

* Need to check for eject/insert Apple 5.25 device--don't call SysBeep2

	lda >EventCode
	cmp #$0008
	beq @isInsertEject
	cmp #$0010
	bne @notInsertEject

@isInsertEject	phd
	lda #$bd00	;hard-coded GS/OS direct page location
	tcd
	ldy #$0034	;offset of device_id in DIB
	lda [$20],y	;$20 points to current DIB
*** added 29-Mar-91 DAL
	beq @willSkip
; check for removable media now
	ldy #$0008	;offset of characteristics in DIB
	lda [$20],y	;$20 points to current DIB
	and #$0004	;bit 2 set for removable media
*** end of 29-Mar-91 DAL
@willSkip	pld
	tax
	beq @skipit	;device_id $0000 is AppleDisk 5.25 drive

@notInsertEject	lda >EventCode
	ldx #$8010-1	;beepType = $8010 + bit number
@findbit	inx
	lsr a
	bcc @findbit
	phx
	_SysBeep2
@skipit	rtl

	EndP


****************************************************************
****************************************************************
*
* AddTBRequestHandler -- install the toolbox's AcceptRequests
*	     routine.
*
****************************************************************
AddTBRequestHandler	proc export
	import UnknownDiskReqProc

	pushlong #myReqProcName
	pha
	_MMStartUp
	pushlong #UnknownDiskReqProc
	_AcceptRequests
	rtl

myReqProcName	dc.b 18,'Apple~UnknownDisk~'

	EndP

**************************************************************
*
* UnknownDiskReqProc
*
* by Dave Lyons, 13-Apr-91
*
* When this gets called, dataIn contains the device number
* of a disk on which the Volume call returned error $52, or
* possibly some other error that indicates no FST wanted to
* claim the thing.
*
* If we accept the request, we must put a return code at
* [dataOut],4:  0=eject the thing, 1=initialize, 2=erase,
* $ffff = leave the disk online and report no error.
*
**************************************************************
UnknownDiskReqProc	proc export

systemSaysUnknownDisk equ $0002

fsid_ProDOS	equ $0001
fsid_DOS33	equ $0002
fsid_DOS32	equ $0003
fsid_Pascal	equ $0004
fsid_MFS	equ $0005
fsid_HFS	equ $0006
fsid_Lisa	equ $0007
fsid_CPM	equ $0008
fsid_reserved	equ $0009
fsid_MSDOS	equ $000a
fsid_HighSierra	equ $000b
fsid_ISO9660	equ $000c
fsid_AppleShare	equ $000d
fakefsid_DOS33other	equ $000e	;not really a FSID (DOS 3.3 on unsupported device)

sig_MFS	equ $D7D2	;block 2 signature
sig_HFS	equ $4442	;block 2 signature

buffHandle	equ 1
buffPtr	equ buffHandle+4
oldDPage	equ buffPtr+4
RTL1	equ oldDPage+2
DataOut	equ RTL1+3
DataIn	equ DataOut+4
Request	equ DataIn+4
Result	equ Request+2
	
	phd
	pha
	pha	;space for buffPtr
	pha
	pha	;space for buffHandle
	tsc
	tcd
	
	phb
	phk
	plb

	stz <buffHandle+1

	lda <Request

*** 8-Jul-91 DAL -- handle systemSaysDeskStartUp and systemSaysDeskShutDown
	cmp #$0502	;systemSaysDeskStartUp
	bne @notDeskStart
	pea $8000
	lda #0
	pha	;StringPtr = $80000000
	pha
	pha	;IconPtr = nil
	_ShowBootInfo	;initialize ShowBootInfo!
	bra @didIt

@notDeskStart	cmp #$0503	;systemSaysDeskShutDown
	bne @notDeskShut

	lda >@FirstDeskShutDown
	bne @didIt
	inc a
	sta >@FirstDeskShutDown
	pea $8031	;sbSystemStartup+sbSilence
	_SysBeep2

@didIt	sec
	ror <Result
	bra @FastExit

@FirstDeskShutDown	dc.w 0

@notDeskShut
*** end of 8-Jul-91

	cmp #systemSaysUnknownDisk
	bne @FastExit

	lda <DataIn
	beq @exit

	jsr IdentifyTheDisk	;returns file system ID in A
	tay
	beq @exit

	jsr CheckForFST	;input = A; output = unchanged or zero
	tay
	beq @exit

	jsr AskWhatToDo	;returns SEC if [dataOut],4 is valid
	ror <result

@exit	lda <buffHandle+1
	beq @fastExit
	pei <buffHandle+2
	pei <buffHandle
	_DisposeHandle

@FastExit	plb
	pla
	pla	;removed buffHandle
	pla
	pla	;removed buffPtr
	pld
	lda 2,s
	sta 12,s
	lda 1,s
	sta 11,s
	ply
	ply
	ply
	ply
	ply
	rtl

***************************************************************
*
* IdentifyTheDisk
*
* Input:  A = device number
*
* Output: A = file system ID, 0 if unknown
*
* Allocates buffHandle if necessary.  Caller will dispose.
*
***************************************************************
IdentifyTheDisk	sta rbDevNum
	sta DInfoDevNum

	pushlong #DInfoParms
	pea $202c	;DInfo
	jsl $e100b0

	pha
	pha
	pea 0
	pea $0200	;block size
	pha
	_MMStartUp	;memory ID
	pea $c000	;attributes
	pha
	pha
	_NewHandle
	plx
	ply
	bcc @gotbuff
	brl @unknown
@gotbuff	sty <buffHandle+2
	stx <buffHandle
	ldy #2
	lda [<buffHandle]
	sta <buffPtr
	sta rbAddress
	lda [<buffHandle],y
	sta <buffPtr+2
	sta rbAddress+2

	lda #2
	sta rbBlockNum

@tryAgain	pushlong #rbParms
	pea $202f
	jsl $e100b0
	bcc @ok
	cmp #$002e	;disk switched?
	beq @tryAgain
	bra @block2failed

@ok	lda [buffPtr]
	ldx #fsid_MFS
	cmp #sig_MFS
	beq @returnX

	ldx #fsid_HFS
	cmp #sig_HFS
	beq @returnX

; check for Pascal
	jsr CheckForPascal
	ldx #fsid_Pascal
	bcc @returnX

; check for ProDOS
	jsr CheckForProDOS
	ldx #fsid_ProDOS
	bcc @returnX

@block2failed

; check for MS-DOS -- block 0 starts out $E9, or $EB $xx $90

	stz rbBlockNum
@zerotryAgain	pushlong #rbParms
	pea $202f
	jsl $e100b0
	bcc @ZeroOK
	cmp #$002e	;disk switched?
	beq @zeroTryAgain
	bra @block0failed

@ZeroOk	lda [buffPtr]
	and #$00ff

	ldx #fsid_MSDOS
	cmp #$00e9
	beq @returnX
	cmp #$00eb
	bne @notMSDOS
	ldy #2
	lda [buffPtr],y
	and #$00ff
	cmp #$0090
	beq @returnX
@notMSDOS
@block0failed

; check for DOS 3.3 (return CLC for DOS 3.3)
	jsr CheckForDOS33
	bcs @not33
	ldx #fsid_DOS33
	lda DeviceID
	beq @returnX
	ldx #fakefsid_DOS33other
	bra @returnX
@not33
; check for ISO/HighSierra
	jsr CheckForISOandHS
	bcc @returnX

; unknown disk

@unknown	ldx #0
@returnX	txa
	rts

***************************************************************
*
* CheckForDOS33
*
* Input: copy of block 2 in [buffPtr]
* Output: CLC if it's a DOS 3.3 disk (trashed buffer)
*
***************************************************************
CheckForDOS33	lda #17*8	;track 17, sector 0
	jsr @CheckForDOSBlkA
	bcs @tryUniDOS
	rts
@tryUniDOS	lda #17*16	;track 17, sector 0 for UniDOS
@CheckForDOSBlkA	sta rbBlockNum
@zerotryAgain	pushlong #rbParms
	pea $202f
	jsl $e100b0
	bcs @notDOS33

	sep #$30		;work with bytes
	LONGI OFF
	LONGA OFF

	ldx #id_tbl_end-id_values-1	;point to last entry in id tables
@loop1	lda id_offset,x		;get offset into VTOC
	tay
@loop2	lda [buffPtr],y		;get the actual value
	cmp id_values,x		;compare to the table value
	bne @false		;not the same

@loop3	dex
	bmi @confirmed		;table finished

	tya
	cmp id_offset,x		;skip over other entries for same position
	beq @loop3

	bra @loop1		;move on to next compare

@false	dex
	bmi @notDOS33

	tya
	cmp id_offset,x		;see if there's an alternate value for that offset
	beq @loop2		;yes, get a second chance

@notDOS33	rep #$30
	sec
	rts

@confirmed	rep #$30
	clc
	rts

	longa on
	longi on

id_offset		;these are offsets into the VTOC of bytes which are checked in order
		;to determine whether a disk is DOS 3.3 format:
	dc.b $3		;DOS release #
	dc.b $27	;# of T/S pairs per T/S list sector
	dc.b $36,$37	;# of bytes per sector
	dc.b $31,$31	;direction of track allocation (2 possible values)
	dc.b $34,$34	;# of tracks per disk (2 possible values??)
	dc.b $35,$35	;# of sectors per track (2 possible values??)


id_values		;these are the actual values required for a DOS 3.3 disk:
	dc.b 3		;DOS release #
	dc.b $7A	;# of T/S pairs per T/S list sector
	dc.b $00,$01	;# of bytes per sector
	dc.b $01,$FF	;direction of track allocation (2 possible values)
	dc.b 35,50	;# of tracks per disk (2 possible values??)
	dc.b 16,32	;# of sectors per track (2 possible values??)
id_tbl_end

***************************************************************
*
* CheckForPascal
*
* This is the id_block routine borrowed from the Pascal FST.
*
* Input: copy of block 2 in [buffPtr]
* Output: CLC if it's a Pascal disk
*
***************************************************************
io_file_count	equ $10		; offset to number of files on volume

CheckForPascal	ldy #$06
	lda [buffPtr],y
	and #$FF
	cmp #$08		; is the title of the volume <= 7 chars?
	bcs notPascal
	cmp #$01		; is the title at least 1 char?
	bcc notPascal

	clc		; add 7 to length so that I can
	adc #$07		; use g_volumeName as a max value for
	sta temp		; the y index register

loop	iny		; check to see that the name consists
	tya		; of legal chars only
	cmp temp
	bcs chkFileCnt
	lda [buffPtr],y
	and #$FF
checkDigit	cmp #$30		; is the char an ascii digit?
	bcc notPascal
	cmp #$3A
	bcs checkUpper
	bra loop
checkUpper	cmp #$41		; is the char upper case ascii?
	bcc notPascal
	cmp #$5b
	bcs checkLower
	bra loop
checkLower	cmp #$61		; is the char lower case ascii?
	bcc notPascal
	cmp #$7b
	bcs notPascal
	bra loop
	
chkFileCnt	ldy #io_file_count
	lda [buffPtr],y
	cmp #78		; are there <= 77 files in the directory?
	bcc isPascal
notPascal	sec
	rts
isPascal	clc
	rts


***************************************************************
*
* CheckForProDOS
*
* Return CLC if it's a ProDOS disk
*
***************************************************************
CheckForProDOS	pei <buffPtr+2
	pei <buffPtr
	jsr CheckProDOS2
	pla
	sta <buffPtr
	pla
	sta <buffPtr+2	;restore old buffPtr, return carry status from CheckProDOS2
	rts

CheckProDOS2	lda [buffPtr]		;load backward link
	bne notProDOS
	ldy #$0021		;offset to minimum version
	lda [buffPtr],y
	and #$00FF
	bne notProDOS

; Now that we have checked both the backward link and version we now
; need to adjust the pointer to point to the storage/name length field
; within the block.

	clc
	lda buffPtr
	adc #$0004
	sta buffPtr
	bcc ar
	inc buffPtr+2
		
ar	lda [buffPtr]		;load storage/name length
	tay	
	and #$00F0
	cmp #$00F0		;is it a volume directory type?
	bne notProDOS
	tya
	and #$000F		;isolate file name length
	beq notProDOS		;must be $01 to $0F
	tay
;
; Now we need to verify that the name is a valid ProDOS filename
;
ProNameLoop	lda [buffPtr],y
	and #$00FF
	cmp #'A'		
	bcc numeric
	cmp #'Z'+1
	bcs notProDOS
	dey
	bne ProNameLoop

; If we get here then we need to check both the entry length and
; entries per block.  If everything is OK then we will call a routine
; that will build a new vcr or mark the vcr as active

its_mine	ldy #$0023-4		;index to entry length
	lda [buffPtr],y
	cmp #$0D27		;both entry length and entry per blk
	bne notProDOS	
	clc		;it's a ProDOS disk
	rts

numeric	cmp #'0'		
	bcc period
	cmp #'9'+1
	bcs notProDOS
continue	dey
	bne ProNameLoop

notProDOS	sec
	rts

period	cmp #'.'		
	bne notProDOS
	bra continue


***************************************************************
*
* CheckForISOandHS
*
* Return: SEC if unrecognized
*         CLC and X=fsid if it's High Sierra or ISO 9660
*
***************************************************************
CheckForISOandHS

vol_id_end_0	equ 13	;Offset to end of 'CDROM' string.
vol_id_end_1	equ 5	;Offset to end of 'CD001' string.

	lda #64
	sta rbBlockNum
@zerotryAgain	pushlong #rbParms
	pea $202f
	jsl $e100b0
	bcs @notHS

*
* Ok, now look at the Volume Structure Standard Identifier.
* Is it 'CDROM' (High Sierra)?
*
	longa off	;Set 8 bit A.
	sep #$20

	ldx #4	;Point to end of string.
	ldy #vol_id_end_0	;Point to end of identifier.
@check_hs	lda [buffPtr],y	;Get byte.
	cmp hs_string,x	;Match?
	bne @iso	;Nope, so not High Sierra.
	dey	;Yes, done all?
	dex
	bpl @check_hs	;No, so loop.
	rep #$30
	ldx #fsid_HighSierra ;Yes, so it's High Sierra.
	clc
	rts
*
* No, is it 'CD001' (ISO)?
*
@iso	ldx #4	;Point to end of string.
	ldy #vol_id_end_1	;Point to end of identifier.
@check_iso	lda [buffPtr],y	;Get byte.
	cmp iso_string,x	;Match?
	bne @notHS	;Nope, so not ISO either.
	dey	;Yes, done all?
	dex
	bpl @check_iso	;No, so loop.
	rep #$30
	ldx #fsid_ISO9660
	clc
	rts

@notHS	rep #$30	;added REP #$30 23-May-91 DAL
	sec
	rts

	longa on

hs_string	DC.B 'CDROM'	;Must match this for High Sierra.
iso_string	DC.B 'CD001'	;Must match this for ISO.


***************************************************************

temp	dc.w 0	;used by ID-disk routines

rbParms	dc.w 6	;pcount
rbDevNum	dc.w 0	;device number
rbAddress	dc.l 0	;buffer address
	dc.l $200	;request count
rbBlockNum	dc.l 0	;starting block
	dc.w $200	;block size
	dc.l 0	;transfer count

DInfoParms	dc.w 8
DInfoDevNum	dc.w 0	;device number
	dc.l FormatDeviceBuffer
DInfoChar	dc.w 0
	dc.l 0	;total blocks
	dc.w 0	;slot num
	dc.w 0	;unit num
	dc.w 0	;version
DeviceID	dc.w 0	;dev_id

FormatDeviceBuffer	dc.w 36
devname
FormatDeviceName	ds.b 34

***************************************************************
*
* CheckForFST
*
* Input: file system ID in A
*
* Output: if FST not installed, unchanged file system ID in A
*         if FST installed, A=0
*
* This is used to prevent us from displaying a "please install
* fst Blah" when they already have it installed.
*
***************************************************************
CheckForFST	sta targetFST
	stz fstnum_FSTInfo
@search	inc fstnum_FSTInfo
	pushlong #ParBlock_FSTInfo
	pea $202b	;GetFSTInfo
	jsl $e100b0
	bcs @notFound
	lda fstID_FSTInfo
	cmp targetFST
	bne @search
	stz targetFST
@notFound	lda targetFST
	rts

targetFST	dc.w 0

ParBlock_FSTInfo	dc.w 2	;pCount=2
fstnum_FSTInfo	dc.w 0
fstID_FSTInfo	dc.w 0

***************************************************************
*
* AskWhatToDo
*
* Input:  A = file system ID (0=could not identify)
*         <dataIn = device number
*         DInfo call has been made on DInfoParms block
*
* Output: SEC if we handled the request & put a valid result
*         into [dataOut],4
*
***************************************************************
AskWhatToDo	tay
	beq @nothing

	lda FormatDeviceName
	xba
	sta FormatDeviceName

	pha
	pha
	phy
	pea 12	;3 substitution strings per fsid
	_Multiply
	plx
	pla

	pha	;space for AlertWindow result
	pea $0021	;button positions + Pascal sub strings
	pea subTable>>16
	txa
	clc
	adc #subTable
	pha
	pushlong #theMessage
	_InitCursor
	_AlertWindow
	pla	;button number
*** added 30-Apr-91 DAL
	beq @zero
; if they held down the Option key, turn the Init request into an Erase request
	tax
	lda >$e0c025
	and #$0040
	beq @notErase
	inx
@notErase	txa
@zero
*** end of 30-Apr-91 DAL
	ldy #4
	sta [<dataOut],y
	sec
	rts

@nothing	clc
	rts

theMessage	dc.b '74|The disk in device *0 appears to be in *1 format.  '
	dc.b '*2'			;informational string (no FST/use Installer...)
	dc.b '|^Eject|Initialize',0

***************************************************************

subTable	dc.l 0,0,0			;fsid_reserved
	dc.l devname+1,nameProDOS,msgProDOS		;fsid_ProDOS
	dc.l devname+1,nameDOS33,msgDOS33		;fsid_DOS33
	dc.l 0,0,0	;devname+1,nameDOS32,msgDOS32	;fsid_DOS32
	dc.l devname+1,namePascal,msgPascal		;fsid_Pascal
	dc.l devname+1,nameMFS,msgMFS		;fsid_MFS
	dc.l devname+1,nameHFS,msgHFS		;fsid_HFS
	dc.l 0,0,0	;devname+1,nameLisa,msgLisa	;fsid_Lisa
	dc.l 0,0,0	;devname+1,nameCPM,msgCPM	;fsid_CPM
	dc.l 0,0,0			;fsid_reserved (9)
	dc.l devname+1,nameMSDOS,msgMSDOS		;fsid_MSDOS
	dc.l devname+1,nameHighSierra,msgHighSeirra	;fsid_HighSierra
	dc.l devname+1,nameISO9660,msgISO9660		;fsid_ISO9660
	dc.l 0,0,0	;devname+1,nameAppleShare,msgAppleShare	;fsid_AppleShare
	dc.l devname+1,nameDOS33,msgDOS33other		;fakefsid_DOS33other

	string pascal
nameProDOS	dc.b 'ProDOS'
msgProDOS	dc.b 'Installing the ProDOS File System Translator allows GS/OS to use this disk.'

nameDOS33	dc.b 'Apple II DOS 3.3'
msgDOS33	dc.b 'Installing ÒFile System: DOS 3.3 FSTÓ (using the Installer) allows GS/OS to read this disk.'
msgDOS33other	dc.b 'The DOS 3.3 File System Translator in System 6.0.1 works only with 5.25" disks.'

;nameDOS32	dc.b 'Apple II DOS 3.2 or DOS 3.1'
;msgDOS32	dc.b 'System 6.0.1 cannot read DOS 3.2 or DOS 3.1 disks.'

namePascal	dc.b 'Apple II Pascal'
msgPascal	dc.b 'Installing ÒFile System: Pascal FSTÓ (using the Installer) allows GS/OS to read this disk.'

nameMFS	dc.b 'Macintosh MFS'
msgMFS	dc.b 'System 6.0.1 cannot read MFS disks, but it can use the newer HFS format.'

nameHFS	dc.b 'HFS'
msgHFS	dc.b 'Installing ÒFile System: HFS FSTÓ (using the Installer) allows GS/OS to use this disk.  HFS is used widely on the Macintosh.'

;nameLisa	dc.b 'Apple Lisa'
;msgLisa	dc.b 'System 6.0.1 cannot read Lisa disks.'

;nameCPM	dc.b 'CP/M'
;msgCPM	dc.b 'System 6.0.1 cannot read CP/M disks.'

nameMSDOS	dc.b 'MS-DOS'
;msgMSDOS	dc.b 'An MS-DOS File System Translator is required to use this disk.'
msgMSDOS	dc.b 'Installing ÒFile System: MS-DOS FSTÓ (using the Installer) allows GS/OS to read this disk.' ;9-Jun-92 DAL

nameHighSierra	dc.b 'High Sierra'
msgISO9660
msgHighSeirra	dc.b 'Installing ÒDrive: CD-ROMÓ (using the Installer) allows GS/OS to read this disk.'

nameISO9660	dc.b 'ISO 9660'

;nameAppleShare	dc.b 'AppleShare'
;msgAppleShare	dc.b 'Please re-install the AppleShare software.'

	string asis
***************************************************************

	EndP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Patch/Patch3/Memory.pch b/IIGS.601.SRC/GSToolbox/Patch/Patch3/Memory.pch
new file mode 100644
index 0000000..30d2b80
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Patch/Patch3/Memory.pch
@@ -0,0 +1 @@
+*******************************************************************************
* Memory.pch
*
* (C)  Copyright Apple Computer, Inc. 1989,1991-1992
* All rights reserved.
*
* by Jim Mensch
* 11/13/89
*
* This file contains patches to the memory manager for ROM 3
*
*
* Modification History:
*
* Version 1.0	mensch
*
* 11/13/89	Mensch
*	First patch in file for disposehandle, This should fix the
* 	memory hinting problem when you dispose a ungroovy handle
*
* 22-Jan-91	Dave Lyons
*
* Add new SetHandleID call (see MM:MM.asm for info and code).
* Version $8302.
*
* 12-Jun-91	Dave Lyons
*
* Added check to DisposeHandle to see if we're disposing of the very first
* handle.  This now returns error $0206, badHandle, instead of frying the
* handle chain.
*
* 14-Sep-91	Dave Lyons
*
* Fixed a bug in CheckRecent (see MM:MM.asm for description and scenario).
* Since this is in ROM on ROM 3 and is not vectorized, I have to patch
* all affected calls.
*
*   DisposeHandle, PurgeHandle, and SetHandleSize:  Head patch, clear hints
*   if they are equal.
*
*   DisposeAll, PurgeAll:  To keep hinting, would need to patch out the
*   loops because the hints could become equal at any time during the
*   calls.  Instead, I just zero out the hints as a head patch.  This
*   is kind of cool anyway, because after a DisposeAll/PurgeAll, there
*   are likely to be big area of free memory ready to use.
*
*   (By the way, ROM 1 was already zapping the hints on PurgeAll and
*   DisposeAll!)
*
* 21-Nov-91	Dave Lyons
*
* DisposeHandle on first handle now returns error 0 (for compatibility).
*
* 19-Dec-91	Dave Lyons
*
* Patched SearchFail vector ($E1/16A8) to return CLC (don't try again)
* when Retry gets out of range.  This fixes a problem where the retry
* count would escape & count from 7 to $FFFF (takes several minutes),
* and then hit 0 and crash.  (This happened only when an OOMQ routine
* freed up memory on the second pass, but the handle still could not
* be allocated.)
*
* 20-Dec-91	Dave Lyons
*
* Fixed the above to use MMPatcher to remove the patch on a reboot
* (command-control-reset, OSShutDown).
*
* 31-Jan-92	Dave Lyons
*
* Made NewMMPatcher disable interrupts and fix the ToBramSetup vector
* ($e10094).
*
* 5-Feb-92	Dave Lyons
*
* Version $0302 for 6.0 final.
*
*******************************************************************************

	title 'Memory Manager Patches'

MMVersionNum	equ $0302

	INCLUDE ':::mm:mm.equates.asm'


	Title 'Call Table'
****************************************************************
*
MMCallTable	PROC EXPORT
*
* References to all	calls that are patched.
*
*
* Inputs:
*   none
*
* Outputs:
*   none
*
* External Refs:
	import DisposeHandle
	import MMVersion
	import SetHandleID	;22-Jan-91 DAL
	import PurgeHandle	;14-Sep-91 DAL
	import PurgeAll	;14-Sep-91 DAL
	import SetHandleSize ;14-Sep-91 DAL
	import DisposeAll	;14-Sep-91 DAL
	import MMBootInit	;19-Dec-91 DAL
*
* Entry Points:
*   none
*
	longa on	; mode
	longi on
*
****************************************************************


	DC.L (TableEnd-mmCallTable)/4 ; # entries + 1

	DC.L MMBootInit-1	;01 Boot time call (patched 19-Dec-91 DAL)
	DC.L 0	;02 Application init call
	DC.L 0	;03 App quit
	DC.L MMVersion-1	;04 Version #
	DC.L 0	;05 Reset call
	DC.L 0	;               i4'MMStatus-1'         ;06 Active status
	DC.L 0	;               i4'NotImp-1'
	DC.L 0	;               i4'NotImp-1'

	DC.L 0	;               i4'NewHandle-1'        ;09 NewHandle
	DC.L 0	;               i4'ReallocHandle-1'    ;0A ReallocHandle
	DC.L 0	;               i4'RestoreHandle-1'    ;0B RestoreHandle
	DC.L 0	;
	DC.L 0	;
	DC.L 0	;               i4'NotImp-1'
	DC.L 0	;               i4'NotImp-1'

	DC.L DisposeHandle-1 ;$1002 DisposHandle
	DC.L DisposeAll-1	;$1102 patched 14-Sep-91 DAL
	DC.L PurgeHandle-1	;$1202 patched 14-Sep-91 DAL
	DC.L PurgeAll-1	;$1302 patched 14-Sep-91 DAL
	DC.L 0	;               i4'NotImp-1'
	DC.L 0	;               i4'NotImp-1'
	DC.L 0	;               i4'NotImp-1'
	DC.L 0	;               i4'NotImp-1'

	DC.L 0	;               i4'GetHandleSize-1'    ;18 GetHandleSize
	DC.L SetHandleSize-1 ;$1902 patched 14-Sep-91 DAL
	DC.L 0	;               i4'FindHandle-1'       ;1A FindHandle
	DC.L 0	;               i4'FreeMem-1'          ;1B FreeMem
	DC.L 0	;               i4'MaxBlock-1'         ;1C MaxBlock
	DC.L 0	;               i4'TotalMem-1'         ;1D TotalMem
	DC.L 0	;               i4'CheckHandle-1'      ;1E CheckHandle
	DC.L 0	;               i4'CompactMem-1'       ;1F CompactMem

	DC.L 0	;               i4'HLock-1'            ;20 HLock
	DC.L 0	;               i4'HLockAll-1'         ;21 HLockAll
	DC.L 0	;               i4'HUnlock-1'          ;22 HUnlock
	DC.L 0	;               i4'HUnlockAll-1'       ;23 HUnlockAll
	DC.L 0	;               i4'SetPurge-1'         ;24 SetPurge
	DC.L 0	;               i4'SetPurgeAll-1'      ;25 SetPurgeAll
	DC.L 0	;               i4'NotImp-1'           ;26 DeRef
	DC.L 0	;               i4'NotImp-1'

	DC.L 0	;               i4'PtrToHand-1'        ;28 PtrToHand
	DC.L 0	;               i4'HandToPtr-1'        ;29 HandToPtr
	DC.L 0	;               i4'HandToHand-1'       ;2A HandToHand
	DC.L 0	;               i4'BlockMove-1'        ;2B BlockMove
	DC.L 0	;               i4'NotImp-1'
	DC.L 0	;               i4'NotImp-1'
	DC.L 0	;               i4'NotImp-1'
	DC.L 0	; 2F RealFreeMem
	dc.l SetHandleID-1	; 30 SetHandleID 22-Jan-91 DAL
TableEnd


	ENDP


****************************************************************
*
* MMBootInit -- new patch 19-Dec-91 DAL for 6.0d62
*
* Patch the SearchFail vector (E1/16A8) if it isn't already
* patched.
*
****************************************************************
MMBootInit	proc export
	import mySearchFail

*** rewritten 20-Dec-91 DAL for d62+, modeled after Patch2:mm.asm
	phb
	pea $e1e1
	plb
	plb

	lda |SearchFail+1
	cmp #mySearchFail
	beq DoNothing

	php
	sei

; Save the MMPatcher vector
	lda |MMPatcher
	sta >OrigMMPatcher
	lda |MMPatcher+2
	sta >OrigMMPatcher+2

; Set the new MMPatcher vector
	lda #NewMMPatcher
	sta |MMPatcher+1
	lda #>NewMMPatcher
	sta |MMPatcher+2

; Save the SearchFail vector
	lda |SearchFail
	sta >OrigSearchFail
	lda |SearchFail+2
	sta >OrigSearchFail+2

; Set the new SearchFail vector
	lda #mySearchFail
	sta |SearchFail+1
	lda #>mySearchFail
	sta |SearchFail+2

	plp

DoNothing	plb
	lda #0
	clc
	rtl

OrigMMPatcher	ds.b 4
OrigSearchFail	ds.b 4


NewMMPatcher	phb
	pea $E1E1
	plb
	plb

	php	;added 31-Jan-92 DAL
	sei	;added 31-Jan-92 DAL

	lda >OrigMMPatcher
	sta |MMPatcher
	lda >OrigMMPatcher+2
	sta |MMPatcher+2

	lda >OrigSearchFail
	sta |SearchFail
	lda >OrigSearchFail+2
	sta |SearchFail+2

*** added 31-Jan-92 DAL -- fix the ToBramSetup vector ($e10094)
	lda #$ffbb	;high word of jmp >$ffbb7a
	sta |$0094+2
	lda #$7a5c	;low word of jmp >$ffbb7a
	sta |$0094

	plp
*** end 31-Jan-92

	plb
	rtl
*** end 20-Dec-91 DAL

	EndP

********************************************************************************
*
* SearchFail - Called when unable to find a segment
*              This	routine decides what sort of compaction, etc. to do
*              If in an interrupt, no compaction or purging	is done.
*
*  So what does it do?
*
*  First, we looke at the IRQActive flag.  If we are inside an interrupt,
*  we must not move or dispose of anything.  We can only fail.
*
*  If we can try and make room we look at the retry count:
*
*     1:  Let User try
*     2:  Compact
*     3:  Purge Level 3's
*     4:  Pugee Level 2's
*     5:  Purge Level 1's
*     6:  Let user try one last time.
*
*
*
* Output:      C = 1 if ok to retry
*
********************************************************************************
*
* Patched 19-Dec-91 DAL.  Original code is at $FC/1188 in ROM 3.
*
********************************************************************************
mySearchFail	proc export

	lda |$00CB	;IrqActive--In an interrupt?
	and #$00FF
	bne myGiveUp

	inc Retry	; bump the retry count and see how many times
	lda Retry	; we've been here
	cmp #7
	bcs myGiveUp

	jml >$fc119a	;back to ROM 3!

myGiveUp	clc
	rtl

	EndP


****************************************************************
*
MMVersion	PROC
*
* Returns the version number of the patched memory manager.
*
*
* Inputs:
*   none
*
* Outputs:
*   version number
*
* External Refs:
*   none
*
* Entry Points:
*   none
*
	longa on	; mode
	longi on
*
****************************************************************

	lda #MMVersionNum
	sta 7,s
	lda #0	;No error
	clc
	rtl

	ENDP


****************************************************************
*
DisposeHandle	PROC
*
* Patch the rom to make sure that handle being disposed is
* not the last one allocated.
*
****************************************************************
RealDisposeHandle	equ $FC062A
	import VerifyHandle,CheckForEqualHints

	jsr CheckForEqualHints  ;added 14-Sep-91 DAL

*** added 12-Jun-91 DAL -- disposing the very first handle is very bad!
;;MemList	equ $E11600	;List of used segments
	lda 7,s
	cmp >MemList
	bne @notFirstHandle
	lda 9,s
	cmp >MemList+2
	bne @notFirstHandle

;;;	ldx #$0206	;bad handle error
	ldx #0	;no error (21-Nov-91 DAL)
	ldy #4
	jml $e10184	;ToStrip (4 bytes)

@notFirstHandle
*** end of 12-Jun-91 DAL

	jsl Link
;
; mensch 11/13/89
; Fix BRC#53386 Disposehandle bug. Add the call to verifyHandle...
;
	jsr VerifyHandle	; added to insure that the passed handle is OK.
	jml RealDisposeHandle

	ENDP

****************************************************************
*
* DisposeAll patched 14-Sep-91 DAL to zap the hints.  The
* ROM 1 code is already doing this to reduce fragmentation.
*
* Also, I have to either zap the hints here or patch out the
* guts of the call, because the ROM 3 CheckRecent does not
* realize that the low and high hints can be equal. 
*
****************************************************************
DisposeAll	proc
	import ClearRecent

	jsr ClearRecent
	jml >$fc0643	;original DisposeAll entry

	EndP

****************************************************************
*
* PurgeHandle patched 14-Sep-91 DAL to zap the hints if they
* are equal, because ROM 3 CheckRecent does not realize they
* can be equal, so it screws up that case (leaves high hint
* pointing into the void).
*
****************************************************************
PurgeHandle	proc
	import CheckForEqualHints

	jsr CheckForEqualHints
	jml >$fc0680	;original PurgeHandle entry

	endp

****************************************************************
*
* PurgeAll patched 14-Sep-91 DAL to zap the hints.  The
* ROM 1 code is already doing this to reduce fragmentation.
*
* Also, I have to either zap the hints here or patch out the
* guts of the call, because the ROM 3 CheckRecent does not
* realize that the low and high hints can be equal. 
*
****************************************************************
PurgeAll	proc
	import ClearRecent

	jsr ClearRecent
	jml >$fc068e	;original PurgeAll entry

	endp

****************************************************************
*
* SetHandleSize patched 14-Sep-91 DAL to zap the hints if they
* are equal, because ROM 3 CheckRecent does not realize they
* can be equal, so it screws up that case (leaves high hint
* pointing into the void).
*
****************************************************************
SetHandleSize	proc
	import CheckForEqualHints

	jsr CheckForEqualHints
	jml >$fc06e3	;original SetHandleSize entry

	endp

****************************************************************
*
* ClearRecent
*
* Zeros the values in LastLowHandle and LastHighHandle
*
****************************************************************
ClearRecent	PROC

	lda #0
	sta >LastLowHandle
	sta >LastLowHandle+2
	sta >LastHighHandle
	sta >LastHighHandle+2
	rts

	EndP

****************************************************************
*
* CheckForEqualHints -- 14-Sep-91 DAL
*
* If the high and low hints are equal, zap them.  ROM 3
* CheckRecent is not prepared for them being equal.
*
****************************************************************
CheckForEqualHints	PROC

	pha
	lda >LastHighHandle
	cmp >LastLowHandle
	bne @exit
	lda >LastHighHandle+2
	cmp >LastLowHandle+2
	bne @exit
	jsr ClearRecent
@exit	pla
	rts

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Patch/Patch3/MenuMgr.pch b/IIGS.601.SRC/GSToolbox/Patch/Patch3/MenuMgr.pch
new file mode 100644
index 0000000..c133418
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Patch/Patch3/MenuMgr.pch
@@ -0,0 +1 @@
+****************************************************************
*			   *
*              Copyright (C) 1989-1992		   *
*              All Rights Reserved		   *
*              Apple Computer, Inc.		   *
*			   *
****************************************************************

	title 'Menu Mgr Patch        GS ROM 3 Patch'
******************************************************************
*
*	Menu manager patches for ROM 3
*
* System Disk 5.0
*
* 5/16/89	Everyone
*
* Patch to PopUpMenuSelect to fix two bugs.  First, there
* is a problem with the code that restores behind a popup
* if the popup falls off the screen.  It restores too much.
*
* Second, there was a field that was not initialized and the
* first rectangle drawn could be drawn in the wrong place.
*
* 19 May 89	Steven Glass
*
* HiliteMenu did not work if the input was 0 or FFFF, we now
* special case these and clean the stack instead of crashing.
*
* 23 May 89	Yee
*
* Take out patch to HiliteMenu because some applications 
* actually create menus with an ID of zero (which by the 
* way is not legal, i.e. of app is BounceIt)
*
* 25 May 89	Mensch and Yee (thanks for including me in the journey)
*
* Patched out a shit load of calls to fix the problem where
* the handle to menu caches were being orphaned.
* For all the calls that call the routines freeCache and
* everycachefree we patch those calls out. In the patch we save 
* all the caches to each menu and then make sure we return back to 
* the patch so we can compare each saved cache to the cache currently 
* in each menu if they differ then that handle is disposed of.
*
* 31 May 89	Mensch and Yee
* 
* Make menu manager patch scrambler proof. We were not dereferencing
* the menu bar handle before using it. (Change made in SaveAllCache,
* we deref right before calling GetMFirst)
*
* Take prototype bit out of version number. Final version = 3.1 for
* System Disk 5.0.
*
* 07 Sep 89	Yee
*
* Patch NewMenuBar2. When the menubar is a resource, the resource
* is not getting released properly. If the high word of the resource
* ID is non-zero then we crash. If the high word is zero then the 
* resource just doesn't get released. This has been fixed.
*
* 08 Mar 90	Yee
*
* Install patch for icon support. You can now have icons in menu items.
* Added the calls SetItemIcon and GetItemIcon. 
*
* 13 Mar 90 
*
* Added the following calls: SetItemStruct($490F), GetItemStruct($4A0F),
* RemoveItemStruct($4B0F), GetItemFlag2($4C0F), and SetItemFlag2($4D0F).
*
* Patched the following existing calls: SetMItem, GetMItem, SetMItemName,
* SetMItemName2, and CalcMenuSize.
*
* 21 Mar 90	Yee
* Fix bug in CalcMenuSize. Worksheet #MTLRAF013. I was referencing <itemptr
* when it hadn't been setup yet.
*
* 29 Mar 90	Yee
* Fix bug in DeleteMenu. The handle of the menu getting removed from 
* the menu list was not getting unlocked.
*
* 05 Apr 90	Yee
* Change the way the menu item icons are drawn. I now use DrawIcon instead
* of PPToPort to draw the icon. To use icons in menu items, the menu mgr
* now requires that QDAux be started. Also the icon structure use to look
* like a locInfo record, its now an icon structure as defined by rIcon.
*
* 17-Sep-90	Dave Lyons
*
* Changed e16.resource to e16.resources.  Removed all.macros.
* Version is $8303.
*
* 19-Sep-90	Dave Lyons
*
* Added GetMItemBlink call.
* Added code to MenuSelect patch to call InitCursor if the G_INITCURSOR
* bit is set in the Menu Global flags and the cursor doesn't seem to
* already be the arrow cursor.
*
* 22-Oct-90	Dave Lyons
*
* Patched EnableMItem and DisableMItem to return error $0001 if the
* Menu Manager isn't started up yet (for compatibility with a stupid
* third-party application).
*
* 10-Jan-91	Dave Lyons
*
* Adding InsertPathMItems call (see Menu Manager source).
*
* 17-Jan-91	Dave Lyons
*
* Patched PopUpMenuSelect to disable fastPorting, because the ROM
* Menu Mgr is stuffing a bunch of values into the grafPort & not
* letting QD know about it.  This was making items not always
* hilite properly in pop-ups, at least when the items had icons.
*
* 17-Feb-91	Dave Lyons
*
* Postpatched MenuStartUp to set item blink from BRAM $5E, bits 3-4.
*
* 3-Mar-91	Dave Lyons
*
* Patched MenuKey to call SendRequest($0F01) if no menu item is found
* matching the key.
*
* 14-Mar-91	Dave Lyons
*
* If the MenuKey SendRequest call succeeds, now I change the event
* into a null event so the caller doesn't try to handle it further.
*
* 15-May-91	Dave Lyons
*
* Fix InsertMenu to return dupMenuID on a duplicate menu ID being
* inserted.
*
* 21-May-91	Dave Lyons
*
* Mask off high byte of the SetPurge parameter for a pop-up.
* SetPurge was returning an error, since bit 31 is a flag here.
*
* 22-May-91	Dave Lyons
*
* Added a PHA I left out yesterday ("dumbshit move" sez Greg).
*
* 25-Jul-91	Dave Lyons
*
* Added restrictions to SendRequest($0F01=systemSaysMenuKey): Desk Manager must
* be active, CDA-events must be postable (for Installer when it disables use
* of DAs), and we must be dealing with the system menu bar.
*
* 2-Aug-91	Dave Lyons
*
* Fix above code--direct page wasn't set in this context (code was pasted in
* from TOOL015).
*
* 26-Aug-91	Dave Lyons
*
* HideMenuBar now messes only with SCBs 2 through 9, instead of setting them all
* to the MasterSCB.
*
* SendRequest(systemSaysMenuKey) now has stop-after-one flag set.
*
* 18-Sep-91	Dave Lyons
*
* Made HideMenuBar mess with SCBs 0..MenuBarHeight-1, instead of just 2..9.
* This is for HyperCard IIgs compatibility.
*
* ??-Dec-91	Dave Lyons
*
* Cleaned up some comments & dead text.
*
* 8-Feb-92	Dave Lyons
*
* Pre-patch MenuSelect to not pull down a menu so close to the
* bottom of the screen that we trash stuff past the end of screen
* memory.
*
* Patch PopUpMenuSelect so it correctly gives the mGetItemID
* message to custom pop-ups.
*
* Version $0303 for 6.0.
*
******************************************************************
*
* 13-Mar-92	Dave Lyons
*
* Version $8304 for 6.0.1.
*
* 2-Apr-93 DAL
*
* Version $0304 for 6.0.1.
*
******************************************************************
	Blanks off
	String asis
	
	include 'all.macros'	;16-Jan-91 DAL

	include 'e16.resources'
	include 'e16.qdaux'
	include ':::MenuMgr:MenuEquates.asm'

	import FinishSetForeColor
	import FinishPtInRect


dispCtl	EQU $0004	; DefProc - Dispose	command.

ToStrip	equ $E10184	; Jmp vector to 0ErrOut routine

UnlockMenuBar	equ $FD62C4
LockMenuHand	equ $FD62F1
UnlockMenuHand	equ $FD6303
DerefMenuHand	equ $FD6315
LockMenuBar	equ $FD628B
Cache	equ $FD7D33
MakeCache	equ $FD802F
AllocateCache	equ $FD8052
FreeCache	equ $FD80CF
DoWhiteSpace	equ $FD69D9
JustifyRight	equ $FD6F0D
JustifyLeft	equ $FD6EFB
AdjustBottom	equ $FD6B5F
AdjustTop	equ $FD6B12
AdjustRect	equ $FD6BAA
GetIFirst	equ $FD7425
Next_Item	equ $FD7437
Dispatch	equ $FD6FC5
InitStuff	equ $FD6A61
GetColor	equ $FD6376
SaveColor	equ $FD6A46
GetMFirst	equ $FD6235
Next_Menu	equ $FD6887
FixTextFace	equ $FD8104
PrintStrg	equ $FD7D1E
LoadnRelease	equ $FD5BC4
GetItemH	equ $FD740D
IntoSizeMenu	equ $FD711C
to_uport	equ $FD635C
to_myport	equ $FD6327
getmptr	equ $FD6238
hline	equ $FD7446
calcitem	equ $FD73AD
inside	equ $FD6CBD
getiptr	equ $FD79BF
badCache	equ $FD8092
parse_strg	equ $FD5CB4
growBlock	equ $FD7714

BackIntoRomSucker	equ $FD6DEC
PopEmptyInROM	equ $FD69B1
RightAfterPullDown2Call equ $FD6988


TheRTL	equ $FD577B

ROMMenuNewres	equ $FD57EB
ROMInsertMenu	equ $FD75E2
ROMSetMTitleStart	equ $FD781A
ROMSetMTitleWidth	equ $FD7883
ROMSetMenuTitle	equ $FD795D
ROMSetMenuTitle2	equ $FD7901
ROMCalcMenuSize	equ $FD74E6
ROMInsertMItem	equ $FD7564
ROMInsertMItem2	equ $FD753A
ROMDeleteMItem	equ $FD764F
ROMDeleteMenu	equ $FD76D7
;;;ROMMenuSelect	equ $FD6BBF

pop0Bytes	equ $FD8FA3
pop2Bytes	equ $FD8FAB
pop4Bytes	equ $FD8FB3
pop6Bytes	equ $FD8FBB
pop8Bytes	equ $FD8FC3
popABytes	equ $FD8FCB
epop2bytes	equ $FD8FAE
epop8bytes	equ $FD8FC6

	MACRO
&lab	ROMCALL &where
&lab	phk
	pea @1-1
	pea |TheRTL-1
	jml &where
@1
	MEND


;===========================================================================
;          Menu Manager function table.
;===========================================================================
MenuCallTable	PROC EXPORT
	import PopupMenuSelect
	import MenuVersion
	import MenuSelect
	import HiliteMenu
	import MenuNewRes
	import InsertMenu
	import SetMTitleStart
	import SetMTitleWidth
	import SetMenuTitle2
	import SetMenuTitle
	Import CalcMenuSize
	import InsertMItem
	import InsertMItem2
	import deleteMItem
	import DeleteMenu
	import MenuStartUp
	import MenuShutDown
	import GetPopupDefProc
	import NewMenuBar2
	import SetItemIcon
	import GetItemIcon
	import SetItemStruct
	import GetItemStruct
	import RemoveItemStruct
	import GetItemFlag2
	import SetItemFlag2
	import SetMItem
	import GetItem
	import SetMItemName
	import SetMItemName2
	import SetMItem2
	import GetItemWidth
	import GetMItemBlink
	import EnableMItem
	import DisableMItem
	import InsertPathMItems	;10-Jan-91 DAL
	import MenuKey		;3-Mar-91 DAL
	import HideMenuBar		;26-Aug-91 DAL

	ENTRY FPT
FPT	DC.L (ENDFPT-FPT)/4
	DC.L 0	 ;  MenuBootInit	$010F
	DC.L MenuStartUp-1	 ;  MenuStartUp	$020F
	DC.L MenuShutDown-1	 ;  MenuShutDown	$030F
	DC.L MenuVersion-1	 ;	$040F
	DC.L 0	 ;  MenuReset	$050F
	DC.L 0	 ;  MenuStatus	$060F
	DC.L 0	 ;  Reserved	$070F
	DC.L 0	 ;  Reserved	$080F
	DC.L MenuKey-1	;	$090F patched 3-Mar-91 DAL
	DC.L 0	 ;  GetMenuBar	$0A0F
	DC.L 0	 ;  MenuRefresh	$0B0F
	DC.L 0	 ;  FlashMenuBar	$0C0F
	DC.L InsertMenu-1	 ;  InsertMenu	$0D0F
	DC.L DeleteMenu-1	 ;  DeleteMenu	$0E0F
	DC.L InsertMItem-1	 ;  InsertMItem	$0F0F
	DC.L DeleteMItem-1	 ;  DeleteMItem	$100F
	DC.L 0	 ;  GetSysBar	$110F
	DC.L 0	 ;  SetSysBar	$120F
	DC.L 0	 ;  FixMenuBar	$130F
	DC.L 0	 ;  CountMItems	$140F
	DC.L 0	 ;  NewMenuBar	$150F
	DC.L 0	 ;  GetMHandle	$160F
	DC.L 0	 ;  SetBarColors	$170F
	DC.L 0	 ;  GetBarColors	$180F
	DC.L SetMTitleStart-1  ;  	$190F
	DC.L 0	 ;  GetMTitleStart 	$1A0F
	DC.L 0	 ;  GetMenuMgrPort 	$1B0F
	DC.L CalcMenuSize-1	 ;  CalcMenuSize	$1C0F
	DC.L SetMTitleWidth-1 	$1D0F
	DC.L 0	 ;  GetMTitleWidth 	$1E0F
	DC.L 0	 ;  SetMenuFlag	$1F0F
	DC.L 0	 ;  GetMenuFlag	$200F
	DC.L SetMenuTitle-1	 ;  SetMenuTitle	$210F
	DC.L 0	 ;  GetMenuTitle	$220F
	DC.L 0	 ;  MenuGlobal	$230F     Added 2/18/87
	DC.L SetMItem-1		$240F
	DC.L GetItem-1		$250F
	DC.L 0	 ;  SetMItemFlag	$260F
	DC.L 0	 ;  GetItemFlag	$270F
	DC.L 0	 ;  SetItemBlink	$280F
	DC.L MenuNewRes-1	 ;  MenuNewRes	$290F
	DC.L 0	 ;  DrawMenuBar	$2A0F
	DC.L MenuSelect-1	 ;  MenuSelect	$2B0F
	DC.L 0	 ;  HiliteMenu      $2C0F
	DC.L 0	 ;  NewMenu	$2D0F
	DC.L 0	 ;  DisposeMenu	$2E0F
	DC.L 0	 ;  InitPalette	$2F0F
	DC.L EnableMItem-1	 ;	$300F patched 22-Oct-90 DAL
	DC.L DisableMItem-1	 ;	$310F patched 22-Oct-90 DAL
	DC.L 0	 ;  CheckMItem	$320F
	DC.L 0	 ;  SetMItemMark	$330F
	DC.L 0	 ;  GetItemMark	$340F
	DC.L 0	 ;  SetMItemStyle 	$350F
	DC.L 0	 ;  GetItemStyle	$360F
	DC.L 0	 ;  SetMenuID	$370F
	DC.L 0	 ;  SetItemID	$380F
	DC.L 0	 ;  SetMenuBar	$390F
	DC.L SetMItemName-1		$3A0F
	
******* Adding new calls for System Disk 4.1 a.k.a. 5.0 *********

	DC.L GetPopUpDefProc-1	$3B0F
	DC.L PopUpMenuSelect-1	$3C0F
	DC.L 0	 ;  Hole	$3D0F used to be DrawPopUp call
	DC.L 0	 ;  NewMenu2	$3E0F
	DC.L InsertMItem2-1	 ;  InsertMItem2	$3F0F
	DC.L SetMenuTitle2-1 	$400F
	DC.L SetMItem2-1		$410F
	DC.L SetMItemName2-1	$420F
	DC.L NewMenuBar2-1		$430F
	DC.L 0	 ;  GetResMTitle 	$440F
	DC.L HideMenuBar-1		$450F patched 26-Aug-91 DAL
	DC.L 0	 ;  ShowMenuBar	$460F

*** new calls for System Disk 6.0 ***

	DC.L SetItemIcon-1		$470F New calls to support
	DC.L GetItemIcon-1		$480F icons in menu items.
	DC.L SetItemStruct-1	$490F
	DC.L GetItemStruct-1	$4A0F
	DC.L RemoveItemStruct-1	$4B0F
	DC.L GetItemFlag2-1		$4C0F
	DC.L SetItemFlag2-1		$4D0F
	DC.L GetItemWidth-1		$4E0F (Harry's call?? Added 19-Sep-90 DAL)
	DC.L GetMItemBlink-1	$4F0F Added 19-Sep-90 DAL
	dc.l InsertPathMItems-1	$500F Added 10-Jan-91 DAL
ENDFPT
	ENDP


****************************************************************
*
MenuVersion	Proc
*
* Returns the version number of the menu manager.
*
*
* Inputs:
*	none
*
* Outputs:
*	version number on stack
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


	lda #$0304	;2-Apr-93 DAL
	sta 7,s

	ENTRY QuickReturn
QuickReturn
	lda #0
	clc
	rtl

	ENDP


;===========================================================================
;
;        	MenuKey
;
;   IN:  Task Record, Menu Bar Handle
;
;  OUT:  none
;
; (New patch 3-Mar-91 DAL)
;
;===========================================================================
MenuKey	proc

	tax	;save WAP
	lda 13,s
	pha
	lda 13,s
	pha	;pushed copy of task record
	lda 13,s
	pha
	lda 13,s
	pha	;pushed copy of Menu Bar handle
	txa	;restore WAP
	jsl @toROM
	bcs @exit

	phd
	tsc
	tcd
@taskRec	equ 11+2
	ldy #$10	;offset to TaskData field
	lda [@taskRec],y
	bne @claimed
	ldy #$0E	;offset to modifiers
	lda [@taskRec],y
	and #$0100	;Apple key down?
	beq @noAppleKey

*** 25-Jul-91 DAL -- more restrictions on SendRequest($0F01):
***   Desk Manager must be active, CDA-events must be postable (for Installer),
***   and we must be dealing with the system menu bar
	pha
	_DeskStatus
	pla
	beq @notSafe

	pha
	pha
	pea 0
	pea 6	;Event Manager
	_GetWAP
	plx
	pla
	lda >$000022,x
	and #$0400	;check OS Event Mask
	beq @notSafe	;no CDA events allowed?

*** 2-Aug-91 DAL -- our direct page isn't set!  Use X.
	pha
	pha	;space for GetWAP
	pea 0	;system tool
	pea $0F	;Menu Manager
	_GetWAP
	plx
	pla

	lda >sysmenu,x
	cmp >barhand,x
	bne @notSafe
	lda >sysmenu+2,x
	cmp >barhand+2,x
	bne @notSafe
*** end 2-Aug-91
*** end 25-Jul-91 DAL

*** since Apple was down & no item was chosen, give SendRequest($0F01) a shot at it
	pea $0F01	;RequestCode for unclaimed MenuKey
	pea $8000	;How=$8000: send to everyone, stop after one (26-Aug-91 DAL)
	lda #0
	pha
	pha	;target=0 (reserved)
	pei <@taskRec+2
	pei <@taskRec	;data in = event pointer
	pha
	pha	;data out = nil
	_SendRequest
*** added 14-Mar-91 DAL--if a request proc takes the event, turn it into a null event
	bcs @notTaken
	sta [<@taskRec]	;zero it out
@notTaken
@notSafe
*** end of 14-Mar-91 DAL
@noAppleKey
@claimed	pld

	lda #0
@exit	tax
	ldy #8
	jml $e10184	;ToStrip

@toROM	jsl $fd6c38	;original ROM 3 MenuKey
	rtl

	EndP

;===========================================================================
;
;        	GetItemBlink
;
;   IN:  none
;
;  OUT:  blink value (word).
;
; (New call 19-Sep-90 DAL)
;
;===========================================================================
GetMItemBlink	PROC

result	equ 7

	tax	;point X at our direct page
	lda >blink,x	;loads from Blink on Menu Mgr DP
	sta result,s
	clc
	lda #0
	rtl

	ENDP


CacheFixData	record
NumCache	ds.W 1
LocalCache	ds.L 16
CountTemp	ds.W 1
NumInList	
MenuZPage	ds.W 1
	EndR
 
;===========================================================================
;
; SaveAllCache's
;
; This routine will save the handle to each of the menu caches that are current
; this routine should be called before any routine that disposes of menu cache
;
; The menu mgr's direct page should be set going into this routine
;
;============================================================================
SaveAllCache	proc
	With CacheFixData
	
	phb
	phk	; change to our databank...
	plb
	stz NumCache	; start with no cache allocated
	tdc	; save the menu mgr direct page
	sta MenuZPage

	ldy #2	; properly deref the menubar handle
	lda [<barHand],y
	sta <barPtr+2
	lda [<barHand]
	sta <barPtr

	ROMCall getmfirst	; get the first menu handle
	beq @done

@loop
	lda NumCache
	asl a
	asl a
	tax

	ldy #MenuFlag	; see if this menu is cached
	lda [<menuptr],y
	and #M_Cache
	beq @notCache	

	ldy #MenuCache	; if it is, get the cache handle and
	lda [<menuPtr],y	; save it for when the call is over
	sta localCache,x

	ldy #MenuCache+2
	lda [<menuPtr],y
	sta localCache+2,x

	bra @cont

@NotCache	stz localCache,x	; no cache , store zero's into our temp
	stz localcache+2,x
@cont
	
	inc NumCache	; bump the menu count
	ROMCall next_menu	; see if there are any more
	bne @Loop	; yes, save its handle
@Done
	plb	; now get out...
	rts
	endP

;===========================================================================
;
; DisposeCache's
;
; This routine will save the handle to each of the menu caches that are current
; this routine should be called before any routine that disposes of menu cache
;
; The menu mgr's direct page should be set going into this routine
;
;============================================================================
DisposeCache	proc
	With CacheFixData
; flag in <Y> says whether to purge all or not
	phd
	lda >MenuZPage	; switch to the menu mgr zpage
	tcd

	phb
	phk	; change to our databank...
	plb

	stz CountTemp

	lda NumCache	; start with no cache allocated
	beq @done	; if this is zero, purge none...
	
	sta NumInList

	cpy #$FFFF	; test the input flag to see if this call
	bne @notAll	; should have purged all the caches
	brl @purgeAll	; if so, just do it.
@notAll
	ldy #2
	lda [<barHand],y
	sta <barPtr+2
	lda [<barHand]
	sta <barPtr

	ROMCall getmfirst	; get the first menu handle
	beq @purgeAll	; if this is zero, then purge all
@loop
	lda CountTemp
	asl a
	asl a
	tax

	ldy #menuCache+1	; see if the current menu is the same
	lda [<menuPtr],y	; by comparing these two bytes...
	cmp localCache+1,x
	bne @Next	; if not the same leave us alone
	dey
	lda [<menuPtr],y
	cmp localCache,x
	bne @next

	stz localCache,x	; if the same don't dispose of this one
	stz LocalCache+2,x	
@Next
	inc CountTemp	;
	dec NumCache	; bump the menu count
	beq @purgeAll	; when done, exit...
	ROMCall next_menu	; see if there are any more
	bne @Loop	; yes, save its handle
@purgeAll
	stz NumCache

@purgeLoop	lda NumCache
	asl a
	asl a
	tax
	lda localCache+1,x
	beq @nextPurge
	lda localCache+2,x
	pha
	lda LocalCache,x
	pha
	_DisposeHandle
@NextPurge
	lda NumCache
	inc a
	sta NumCache
	cmp NumInList
	blt @purgeLoop

@Done
	plb	; now get out...
	pld

	rts
	endP

;
;
localsetCurrentBar	PROC

	lda input+2,s	Get menu bar pointer.
	sta <barhand
	lda input+4,s
	sta <barhand+2
	ora <barhand	Menu bar passed?
	bne exit

	ENTRY sys_current
sys_current		;       
	lda <sysmenu	Caller wants the system bar.
	sta <barhand
	lda <sysmenu+2
	sta <barhand+2
	
exit	
	rts


	ENDP

localStartup	proc
	jsl IncBusyFlg
	ply
	phd	; save d-reg
	phb	; save b-reg
	pea $FDFD	; set dbr to same as in ROM
	plb
	plb
	tcd	; set d-reg
	phy
	rts
	endP


;===========================================================================
;
;   MenuStartUp
;
; Patch to set the item blink from battery-RAM.
; 17-Feb-91 DAL
;===========================================================================
MenuStartUp	proc

	tax
	lda 9,s
	pha
	lda 9,s
	pha
	txa
	jsl @toROM
	tax	;error code
	bcs @exit

	pha
	pea $5E	;bram location
	_ReadBParam
	pla
	lsr a
	lsr a
	lsr a	;got bits 3-4 into 0-1
	and #3
	pha
	_SetMItemBlink
	tax	;error code
@exit	ldy #4	;clean up 4 bytes
	jml $e10184	;ToStrip

@toROM	jsl $fd5667	;ROM 3 original MenuStartUp entry
	rtl

	endp


;===========================================================================
;
;   MenuShutdown
;
; Patch to clean up purged handles
; 5/25/89 Mensch and Harry Yee
;===========================================================================
MenuShutdown	proc
	With CacheFixData
MenuShutDownEntry	equ $FD5793
MenuShutDownEntry3	equ $FD57c1

	cmp #0
	bne @Continue
	clc
	rtl
@Continue
	jsr localStartup
	lda <sysMenu+1
	beq NoBar

	jsr sys_current
	jsr saveAllCache

	ldy #$FFFF
	jsr DisposeCache

	jml MenuShutDownEntry

NoBar	jml MenuShutdownEntry3
	endp

;===========================================================================
;
;   MenuNewRes
;
; Patch to clean up purged handles
; 5/25/89 Mensch and Harry Yee
;===========================================================================
MenuNewRes	proc
	With CacheFixData

	jsr localStartup
	lda <sysMenu+1
	beq NoBar

	jsr sys_current
	jsr saveAllCache

	tdc
	jsl MenuNewResGlue

	ldy #$FFFF
	jsr DisposeCache
NoBar	jml pop0Bytes

MenuNewResGlue	jsl ROMMenuNewRes
	rtl
	endp
	

;===========================================================================
;
; 	myFreeCache
;
;===========================================================================
myFreeCache	PROC

	ldy #MenuFlag	Check if there can be a cahce.
	lda [<menuptr],y
	and #M_CACHE
	beq exit

	ldy #MenuCache+1	Is there a cache?
	lda [<menuptr],y
	beq exit

	iny
	lda [<menuptr],y
	pha	Put handle of cache to be disposed of on 
	dey	the stack
	dey
	lda [<menuptr],y
	pha
	
	ldy #MenuCache+1
	lda #0	Mark cache as gone.
	sta [<menuptr],y

	_DisposeHandle	Get rid of cache

exit	rts

	ENDP

;===========================================================================
;
; 	myEveryCacheFree
;
;===========================================================================
myEveryCacheFree	PROC

	ROMCALL getmfirst	Start with first menu.
	beq exit	Are there any menus?
	
lop1	jsr myFreeCache	Mark cache bad if menu has a cache.

	ROMCALL next_menu	Try next menu
	bne lop1

exit	rts

	ENDP
	
;===========================================================================
;
;   DeleteMenu
;
; Patch to clean up purged handles
; 5/25/89 Mensch and Harry Yee
;===========================================================================
DeleteMenu	PROC
	
menunum	equ input

	jsr localStartup
	ROMCALL lockMenuBar
	beq exit2
;
; --- Take menu out	of menu list ---------------------------------
;
	lda menunum,s	ID to match.
	ROMCALL getmptr	Find the menu.
	beq exit

	jsr myFreeCache	Release cache that may be allocated for this menu.
	
	ldy #4
	lda [<menuhand],y
	and #$7FFF	Unlock the handle of menu to be removed.
	sta [<menuhand],y
	
lop2	ROMCALL next_menu

	lda <menu_cnt
	sec
	sbc #8
	tay
	
	lda <menuhand
	sta [<barptr],y
	lda <menuhand+2
	iny
	iny
	sta [<barptr],y
	
	ora <menuhand	Any more menu's?
	bne lop2
	
;
; --- Shrink menu record for deleted item -------------------------------------
;	
	ldx <barhand+2	Pass menu bar's handle
	lda <barhand	
	ldy #$FFFC	Number of bytes to decrease.
	ROMCALL growBlock	Shrink the menu record.
	
	jsr myEveryCacheFree Menus may now be in different order.
	
exit	ROMCALL unlockMenuBar Leave menu bar & menus unlocked.

exit2	jml pop2bytes

	ENDP
	
;===========================================================================
;
;   DeleteMItem
;
; Patch to clean up purged handles
; 5/25/89 Mensch and Harry Yee
;===========================================================================
DeleteMItem	proc
	With CacheFixData

	jsr localStartup
	lda <barHand+1
	beq NoBar

	jsr saveAllCache

	tsc
	tcd
	pei Input
	lda >MenuZPage
	jsl DeleteMItemGlue

	ldy #$0000
	jsr DisposeCache
NoBar	jml pop2Bytes

DeleteMItemGlue	jsl ROMDeleteMItem
	rtl
	endp

;===========================================================================
;
;   InsertMItem
;
; Patch to clean up purged handles
; 5/25/89 Mensch and Harry Yee
;===========================================================================
InsertMItem	proc
	With CacheFixData

	jsr localStartup
	lda <barHand+1
	beq NoBar

	jsr saveAllCache

	tsc
	tcd
	pei Input+6
	pei Input+4
	pei Input+2
	pei Input
	lda >MenuZPage
	jsl InsertMItemGlue

	ldy #$0000
	jsr DisposeCache
NoBar	jml pop8Bytes

InsertMItemGlue	jsl ROMInsertMItem
	rtl
	endp


;===========================================================================
;
;   InsertMItem2
;
; Patch to clean up purged handles
; 5/25/89 Mensch and Harry Yee
;===========================================================================
InsertMItem2	proc
	With CacheFixData

	jsr localStartup
	lda <barHand+1
	beq NoBar

	jsr saveAllCache

	tsc
	tcd
	pei Input+8
	pei Input+6
	pei Input+4
	pei Input+2
	pei Input
	lda >MenuZPage
	jsl InsertMItem2Glue

	ldy #$0000
	jsr DisposeCache
NoBar	jml popABytes

InsertMItem2Glue	jsl ROMInsertMItem2
	rtl
	endp

;=======================================================================
;
;	GetStruct
;
;  IN: <itemptr pts to a valid item record
; OUT: <temptr contains data we're looking for
;
;=======================================================================
GetStruct	PROC

	ldy #ItemName
	lda [<itemptr],y
	sta <temptr
	ldy #ItemName+2
	lda [<itemptr],y
	sta <temptr+2
	
	ldy #ItemFlag
	lda [<itemptr],y
	and #$0300	Bits 8 and 9 tell us how structure is referenced.
	bne @ResOrHdl	If non-zero then structure is referenced as a hdl or resource
	brl doPointer
@ResOrHdl	cmp #I_STRUCTisHANDLE	
	bne @doRes
	brl doHandle
@doRes	ldy #rMyItemStruct
	brl doResource
	
	
;=======================================================================
;
; 	getrItemName
; 
;  IN:  <itemptr contains ptr current item record in menu 
; OUT:  a = low word of ptr to item name, x = high word of ptr
;
;=======================================================================
	ENTRY getrItemName
getrItemName
	ldy #ItemFlag	check if there is an additional structure associated with item
	lda [<itemptr],y
	and #I_NEWSTRUCTURE	
	beq OldWay	if not then field "ItemName" does indeed contain the item's name
	
	jsr GetStruct	Get the ptr to the new structure that now contains the
	ldy #ItemName2	item's name.
	lda [<temptr],y
	tax
	ldy #ItemName2+2
	lda [<temptr],y
	sta <temptr+2
	stx <temptr
	bra GetName	We now have the reference to the item's name in <temptr.

OldWay	ldy #ItemName
	lda [<itemptr],y
	tax
	iny
	iny
	lda [<itemptr],y
	sta <temptr+2
	stx <temptr
GetName
	ldy #ItemFlag
	lda [<itemptr],y
	and #FIRST_TWO_BITS
	bne @1
	brl doPointer	
@1	cmp #HANDLE_REF
	bne @2
	brl doHandle
@2	ldy #rPString	;was rString 17-Sep-90 DAL
	brl doResource


;=======================================================================
;
; 	getrItemIcon
; 
;  IN:  <itemptr contains ptr current item record in menu 
;       <temptr contains ptr to item's new structure
; OUT:  a = low word of ptr to item icon, x = high word of ptr
;       a & x = 0 if there is no icon associated with the icon
;
;=======================================================================
	ENTRY getrItemIcon
getrItemIcon
	ldy #ItemFlag2	; Extract flag from new structure that will tell us
	lda [<temptr],y	; how the icon will be referenced, i.e. ptr, hdl, resource
	pha	; Save flag from structure on the stack for now.
	
	ldy #ItemIcon	; Now extract the icon ref from this structure and put
	lda [<temptr],y	; reference in <temptr.
	tax
	ldy #ItemIcon+2
	lda [<temptr],y
	sta <temptr+2
	stx <temptr
	
	pla	; check flag from struct to see how icon will be referenced
	and #$0003	; Bits 8 and 9 tells us how the icon data will be referenced.
	beq doPointer	; Zero means its a ptr to the icon data.
@ResORHdl	cmp #$0001	
	beq doHandle	; Is the icon ref a handle?
@IconRefIsResource	ldy #rIcon
doResource	lda <temptr	; resource ID
	ldx <temptr+2
	ROMCALL LoadnRelease ; loads resource and releases it, then returns handle
	sta <temptr
	stx <temptr+2
	
doHandle	ldy #2
	lda [<temptr],y
	tax
	lda [<temptr]
	sta <temptr
	stx <temptr+2
	
doPointer	lda <temptr	; low word of ptr to menu title/item name/icon ref
	ldx <temptr+2	; high word of ptr to menu title/item name/icon ref
	
	rts


	ENDP	


;=======================================================================
;
; 	getistrg
;
;=======================================================================
getistrg	PROC

	jsr getrItemName	Put item's string pointer in 'strg_ptr'
	sta <strg_ptr
	stx <strg_ptr+2
	
	rts
	
	ENDP


;===========================================================================
;
;	GetIconInfo
;
;  IN: <itemptr contains ptr to current item in menu 
; OUT: a-reg contains width of icon, x-reg contains height of icon
;
;===========================================================================
getIconInfo	PROC


OrigD	equ 1
MyIconRect	equ OrigD+2
	
	ldy #ItemFlag	; first check to see if there is an icon
	lda [<itemptr],y	; associated with this item
	and #I_NEWSTRUCTURE
	beq NoIconFound
	
	jsr GetStruct	; then check if this new structure contains
	ldy #ItemFlag2	; an icon field
	lda [<temptr],y
	bmi GotIcon
	
NoIconFound	lda #0	; there's no icon so zero the appropriate output values
	ldx #0
	ldy #0
	bra OttaHere
GotIcon
	jsr getrItemIcon	; get the icon's ref

	phx	; put it on the stack so we can reference it easier
	pha
	phd	; save current direct page register
	tsc 	; turn stack into direct page
	tcd	

	ldy #oQDIconHeight	
	lda [<MyIconRect],y
	tax	; x-reg contains the icon's height
	ldy #oQDIconWidth
	lda [<MyIconRect],y	; a-reg contains the icon's width
	pld	; restore original direct page register
	ply	; clean up stack
	ply
	
	tay
	lda <ScreenMode
	beq @In320Mode
	tya
	asl a
	tay
@In320Mode	tya
	
OttaHere	rts
	
	ENDP


;===========================================================================
;
; mSizeDispatch
;
;===========================================================================
mSizeDispatch	PROC
	
	ldy #MenuProc+1
	lda [<menuptr],y
	beq notCustom
	brl Custom

notCustom	stz <rect+y2	Height accumulator.
	stz <rect+x2	Width accumulator.

; --- Set every item's height, max width, and menu's height	-----
;
	ROMCALL getifirst	Get pointer to first item.
	beq exit	Are there any items?

; ------- Find item's width --------------------
;
lop1	ROMCALL FixTextFace 

	pha	Space for result.
	jsr getistrg	Get pointer to item's string.
	phx	Pass high word.
	pha	Pass low word.
	_StringWidth	Get string's width.

	jsr GetIconInfo	a-reg contains width of icon
	tax
	beq @NoIcon	If a-reg is zero then there is no icon
	clc
	adc 1,s	Add width of item name and icon width.
	adc #5	Add in some additional slop for spacing between icon.
	sta 1,s	Put result back on the stack.
@NoIcon	
	lda <text_width	Add room for the check mark.
	clc	
	adc <text_width	
	adc <text_width
	tax
	ldy #ItemChar
	lda [<itemptr],y
	and #$00FF
	beq ok34
	lda <text_width	
	clc	Now add space for the keyboard equivalent, the apple key 
	ror a	and a chacracter, plus one extra for slop
	clc
	adc <text_width
	adc <text_width	1 1/2 for check mark, 2 for cmd-key-equiv,2 for space
	adc <text_width	
	adc <text_width
	adc <text_width
	tax
ok34	txa
	clc
	adc 1,s
	plx	Pull in x just to fix stack, a = value.

; ------- Keep the width of the widest item ----------------
;
	cmp <rect+x2	Is this the longest	item?
	bcc do_height
	sta <rect+x2	Save the longest width.

; ------- Accumulate item height ----------------------------
;
do_height	ROMCALL getitemh	Get the item's height.
	clc	Keep a running height total.
	adc <rect+y2
	sta <rect+y2

; ------- Next item	--------------------------------------------
;
	ROMCALL next_item
	bne lop1	Any more items?

	ROMCALL intoSizeMenu

exit	rts
	
custom	ldx #mSize
	ROMCALL Dispatch
	
	rts
	
	ENDP
	

;===========================================================================
;
;   CalcMenuSize
;
; Patch to clean up purged handles
; 5/25/89 Mensch and Harry Yee
;===========================================================================
CalcMenuSize	PROC

menunum	equ input
height	equ menunum+2
theWidth	equ height+2

	jsr localStartup	set DB to $FD and switch in MenuMgr d-page
	ROMCALL lockMenuBar	<barptr = (<barHand), bar & menus locked
	beq exit2	Is there a current menu bar?
	
	ROMCALL to_myport	Switch to menu mgr's port
	
	lda menunum,s	Get menu's ID.
	ROMCALL getmptr	Get ptr to menu record for this ID.
	beq exit	Was the menu found?
	
	jsr myFreeCache	Free menu's cache since size maybe wrong.
	
	ldy #MenuWidth	Set menu record with given parameters.
	lda theWidth,s	
	bpl ok1
	
	lda [<menuptr],y	Leave MenuWidth alone.
ok1	sta [<menuptr],y
	tax
	iny
	iny
	lda height,s
	bpl ok2
	
	lda [<menuptr],y	Leave MenuHeight alone.
ok2	sta [<menuptr],y
	beq calc_size	Asking for default height?
	txa
	bne exit	Asking for default width?
;
; --- Compute width and height -------------------------------------------
;
calc_size	jsr mSizeDispatch

exit	ROMCALL to_uport	Restore original port.
	ROMCALL unlockMenuBar Leave menu bar & menus unlocked.

exit2	jml pop6bytes

	ENDP

	
;===========================================================================
;
;   SetMenuTitle
;
; Patch to clean up purged handles
; 5/25/89 Mensch and Harry Yee
;===========================================================================
SetMenuTitle	proc
	With CacheFixData

	jsr localStartup
	lda <barHand+1
	beq NoBar

	jsr saveAllCache

	tsc
	tcd
	pei Input+4
	pei Input+2
	pei Input
	lda >MenuZPage
	jsl SetMenuTitleGlue

	ldy #$0000
	jsr DisposeCache
NoBar	jml pop6Bytes

SetMenuTitleGlue	jsl ROMSetMenuTitle
	rtl
	endp

;===========================================================================
;
;   SetMenuTitle2
;
; Patch to clean up purged handles
; 5/25/89 Mensch and Harry Yee
;===========================================================================
SetMenuTitle2	proc
	With CacheFixData

	jsr localStartup
	lda <barHand+1
	beq NoBar

	jsr saveAllCache

	tsc
	tcd
	pei Input+6
	pei Input+4
	pei Input+2
	pei Input
	lda >MenuZPage
	jsl SetMenuTitle2Glue

	ldy #$0000
	jsr DisposeCache
NoBar	jml pop8Bytes

SetMenuTitle2Glue	jsl ROMSetMenuTitle2
	rtl
	endp

;===========================================================================
;
;   SetMTitleWidth
;
; Patch to clean up purged handles
; 5/25/89 Mensch and Harry Yee
;===========================================================================
SetMTitleWidth	proc
	With CacheFixData

	jsr localStartup
	lda <barHand+1
	beq NoBar

	jsr saveAllCache

	tsc
	tcd
	pei Input+2
	pei Input
	lda >MenuZPage
	jsl SetMTitleWidthGlue

	ldy #$0000
	jsr DisposeCache
NoBar	jml pop4Bytes

SetMTitleWidthGlue	jsl ROMSetMTitleWidth
	rtl
	endp

;===========================================================================
;
;   SetMTitleSTart
;
; Patch to clean up purged handles
; 5/25/89 Mensch and Harry Yee
;===========================================================================
SetMTitleSTart	proc
	With CacheFixData

	jsr localStartup
	lda <barHand+1
	beq NoBar

	jsr saveAllCache

	tsc
	tcd
	pei Input
	lda >MenuZPage
	jsl SetMTitleSTartGlue

	ldy #$FFFF
	jsr DisposeCache
NoBar	jml pop2Bytes

SetMTitleSTartGlue	jsl ROMSetMTitleSTart
	rtl
	endp

;===========================================================================
;
;   InsertMenu
;
; Patch to clean up purged handles
; 5/25/89 Mensch and Harry Yee
;===========================================================================
InsertMenu	proc
	With CacheFixData

*** added 15-May-91 DAL -- make sure this isn't a duplicate menu ID
	pha
	phy

	phd
	lda 17,s
	pha
	lda 17,s
	pha
	tsc
	tcd
	ldy #2
	lda [1],y
	tax
	lda [1]
	sta 1
	stx 3
	lda [1]	;fetched menu id (first word in handle)
	plx
	plx
	pld	;A = menu ID (first word in menu handle)

	tax
	beq @notDuplicate	;I'm paranoid about the zero case

	pha
	pha	;space for GetMHandle result
	pha	;menu ID
	_GetMHandle
	plx
	plx
	beq @notDuplicate
	plx
	plx	;throw away saved YA
	ldy #6
	ldx #dupMenuID
	jml $e10184	;ToStrip
@notDuplicate	ply
	pla
*** end of 15-May-91 DAL

	jsr localStartup
	lda <barHand+1
	beq NoBar

	jsr saveAllCache

	tsc
	tcd
	pei Input+4
	pei Input+2
	pei Input
	lda >MenuZPage
	jsl InsertMenuGlue

	ldy #$0000
	jsr DisposeCache
NoBar	jml pop6Bytes

InsertMenuGlue	jsl ROMInsertMenu
	rtl
	endp

;===========================================================================
;
;   MenuSelect
;
; Patch to clean up purged handles
; 5/25/89 Mensch and Harry Yee
;
;===========================================================================
MenuSelect	proc
	With CacheFixData

	jsr localStartup

;***
;*** 19-Sep-90 DAL: the G_INITCURSOR bit in MenuGlobal makes MenuSelect call InitCursor
;***
;*** Direct page is already set to Menu Mgr direct page
;***
;	lda <globalFlag
;	and #G_INITCURSOR
;	beq @noInitCursor
;	_InitCursor
;@noInitCursor
;*** end of 19-Sep-90 DAL addition

	jsr localsetCurrentBar

	jsr SaveAllCache	; this is the fix

	tsc
	tcd
	pei Input+6
	pei Input+4
	pei Input+2
	pei Input
	lda >MenuZPage
	jsl MenuSelectGlue	; now call the real menu select

	bcs @error
	ldy #0
	jsr DisposeCache
	lda #0
	clc
@Error
	jml pop8Bytes	; now exit the call
	
;;;MenuSelectGlue	jsl ROMMenuSelect
;;;	rtl

*** added 8-Feb-92 DAL -- Patch beginning of MenuSelect to disallow pulling down
***   a menu too close to the bottom of the screen.

MenuSelectGlue	jsl DaveMenuSelectPatch
	rtl

eventPtr	equ $ea

DaveMenuSelectPatch	jsr localStartup
	jsr localSetCurrentBar  ;<barHand = passed menu bar
	ROMCALL lockMenuBar     ;<barPtr = (<barHand), bar & menus locked
	beq toExitMenu2

	lda $10-2,s
	sta <eventPtr
	lda $12-2,s
	sta <eventPtr+2	;get event pointer

	ldy #where	;get point of event
	lda [<eventptr],y
	sta <yrat
	iny
	iny
	lda [<eventptr],y
	sta <xrat

	ROMCALL to_myport

*** The new code -- If Top of menu bar >= 150, don't do anything, it's dangerous!
	pea 0	;dummy X value
	ldy #8	;offset to menu bar rect, top
	lda [<barptr],y
	pha	;local-coord top of menu bar
	tsc
	inc a
	pea 0	;high word of point ptr
	pha	;low word of point ptr
	_LocalToGlobal
	pla	;global Y value
	plx	;ignore X value
	cmp #150
	bcs toExit
*** end of the new code
	jml >$fd6bdd	;back into ROM 3!

toExitMenu2	jml >$fd6c2c

toExit	jml >$fd6c0a	;return menu/item = 0
*** end 8-Feb-92


	EndP


;===========================================================================
;
; NewMenuBar2
;
; 9/07/89	Yee
; When the menubar is defined as a resource, once we're done with the resource
; it's not being disposed of properly. When the high word of the resource ID
; is non-zero we crash.
;
;===========================================================================
NewMenuBar2	PROC

	DefineStack
menuBarPtr	long
theHandle	long
origMenuBarRef	long
count1	word
count2	word
mem_needed	word

OrigB	byte
OrigD	word
RTLAdr1	block 3
RTLAdr2	block 3
menuOwner	long
menuBarRef	long
refDescriptor	word
result	long

zPageSize	equ OrigB-menuBarPtr

	jsl IncBusyFlg

	phd
	phb
	pea $FDFD
	plb
	plb
	
	tsc
	sec 
	sbc #zPageSize
	tcs
	tcd	;switch direct page into stack

	stz <theHandle
	stz <theHandle+2
	stz <origMenuBarRef
	stz <origMenuBarRef+2
	stz <mem_needed
	
	pha	;space for menu bar handle
	pha	
	pei <menuOwner+2
	pei <menuOwner
	_NewMenuBar	;get a new menu bar
	
	pla	;store menu bar hdl in our direct page
	sta <result
	pla
	sta <result+2
	
	lda <refDescriptor
	asl a
	tax
	jmp (table,x)
	
table	dc.w pointer
	dc.w handle
	dc.w resourceID

resourceID	lda <menuBarRef	;save resource ID so we can use it to release this
	sta <origMenuBarRef	;resource later
	lda <menuBarRef+2
	sta <origMenuBarRef+2

	jml $FD5E5F	;jump back into the ROM

handle	jml $FD5E77	;jump back into the ROM

pointer	jml $FD5E93


	ENDP


;===========================================================================
;
; HideMenuBar -- ROM 3 patch 26-Aug-91 DAL
;
; HideMenuBar in ROM is setting all SCBs to the MasterSCB, which is overkill,
; and a couple developers complained.  So now it only sets the ones that
; InitPalette messes with (2 through 9).
;
; Original function is at $FD608B in ROM 3.
;
;===========================================================================
HideMenuBar	PROC

	macro
&lab	jsrlFD &addr
&lab	phk
	per @returnHere-1
	pea $0392-1	;there is an RTL at $FD/0392 in ROM 3
	jml $FD0000+&addr
@returnHere
	mend

	jsr localStartup

	lda <sysMenu+1	First check if there is a system menu bar
	beq exit1

	jsrlFD $6282	; sys_current; <barHand = <sysMen. Current = system
	jsrlFD $628B	; lockmenubar

	ldy #CtlFlag
	lda [<barptr],y
	tax
	and #$0080	First check if menu bar is already invisible
	bne ItsInvisible

	txa
	ora #$0080	Set invisible flag for menu bar
	sta [<barptr],y

	lda #1	Set Desktop operation for "toDesk", since we are hiding the
	sta <temp	menu bar we need to add the rect back to the desktop.
	jsrlFD $6114	; AddorSubRegion

	pha	Reset all the SCBs which were initially altered
	_GetMasterSCB	by InitPalette.
;;;	_SetAllSCBs
*** Newer way 19-Sep-91 DAL -- set SCBs 0..Height-1
	ldy #$000C	;offset to bottom om menu bar rect
	lda [<barPtr],y
	dec a
	tax
	pla	;A = SCB value
@setNextSCB	phx
	pha	;preserve A and X
	phx
	pha	;push SetSCB parameters
	_SetSCB
	pla
	plx
	dex
	bpl @setNextSCB
*** end 19-Sep-91 DAL

	jml >$fd60c0	;--> LDX <barptr+2, lda <barptr

exit1	jml >$fd60d7
ItsInvisible	jml >$fd60d4

	EndP


;===========================================================================
;
;   PopUpMenuSelect
;
;   Handle user interaction with pop-up menu. The bits M_CACHE and M_POPUP
;   must be set in the menu flag. Upon entering these bits are set and
;   restored to there original state when you exit.
;
;   IN:  PUSH:LONG - menuin: handle to menu
;        PUSH:WORD - popupflag: tells us what type of popup you want
;                                   $0001 = with white space
;        PUSH:WORD - yloc:   top of current selection
;        PUSH:WORD - xloc:   left side of "popped-up" menu
;        PUSH:WORD - itemnum:item ID of current selection
;
;  OUT:  WORD - item selected
;
;===========================================================================
PopUpMenuSelect	PROC

menuin	equ input
popupflag	equ menuin+4
yloc	equ popupflag+2
xloc	equ yloc+2
itemnum	equ xloc+2
return	equ itemnum+2

*
* New layer around PopUpMenuSelect patch, 16-Jan-91 DAL
*
* Disable fastPort during the call, since the ROM is plastering
* values back into the grafport during popPortData.
*
QDDirtyFlags	equ $02EC

	pha	;save our WAP (low word)

	pha
	pha
	pea 0
	pea 4 	;QuickDraw
	_GetWAP
	plx
	pla
	lda >QDDirtyFlags,x
	pha
	phx
	lda #0
	sta >QDDirtyFlags,x

InputParameters	equ 13	;xxx,s

	ldx #7	;push 7 words for the real call
@push	lda InputParameters+12,s
	pha
	dex
	bne @push

	lda 5+14,s	;get our WAP back (low word)
	jsl ToOldPatch
	tay	;error code

	pla
	sta InputParameters+12,s  ;put the result into the caller's result space

	plx
	pla
	and #$8000	;just restore the enable/disable fastPort status (nothing cached)
	sta >QDDirtyFlags,x

	pla	;throw out copy of our WAP
	tyx	;error code
	ldy #12
	jml $e10184	;ToStrip


ToOldPatch	jsl OldPopUpMenuSelectPatch
	rtl

OldPopUpMenuSelectPatch
	import pushPortData,popPortData
	import pull_down2
	
	jsr LocalStartup
	
	ROMCALL lockmenubar
		
	ROMCALL saveColor
	ROMCALL GetColor
	
	lda menuin,s
	sta <menuhand
	lda menuin+2,s
	sta <menuhand+2
	
	ROMCALL lockmenuhand
	ROMCALL derefmenuhand

	ldy #menuFlag
	lda [<menuptr],y
	pha	Save original menuFlag on the stack
	ora #M_POPUP	Set the bit that says this is a pop-up menu
	and #_M_CACHE	Clear cache bit, pop-up menus cannot be cached
	sta [<menuptr],y
	
	ROMCALL InitStuff	initialize some zero page equates
	
	ROMCALL getifirst	get first item in menu
checkNext	beq invalidItem	item not found, so return invalid item error
	inc <currentSel	offset of item in list
	cmp itemnum+2,s	have we found our initial selection?
	beq gotit
	ROMCALL next_item	
	bra checkNext

invalidItem	ldy #NumOfItems	make sure the menu is not empty before assigning init. sel 
	lda [<menuptr],y	to first item in the menu list
	bne @888
	lda #1
	sta <menurect+x1
	dec a
	sta <menurect+x2
	jml popEmptyInROM
@888	lda #1	If item ID is invalid then I default to the first 
	sta <currentSel	item in the menu list.
	
gotit	jsr mSizeDispatch	get menu width and height
	
;=============================================================================
; calculate pop-up rectangle
;
	lda yloc+2,s	
	dec a
	sta <menurect+y1	top of menu
	lda xloc+2,s
	sta <menurect+x1	left edge of menu
	
	ldy #menuwidth
	clc
	adc [<menuptr],y
	sta <menurect+x2	right edge of menu
	
	ldy #menuheight
	lda [<menuptr],y
	clc
	adc <menurect+y1	bottom of menu
	inc a	make room for drop shadow
	sta <menurect+y2
	
	lda popupflag+2,s
	and #FType2PopUp
	sta <saveY1
	
	lda <currentSel	a-reg contains input to adjust rect
	ROMCALL adjustRect	adjust rectangle to reflect current selection
	
	lda <currentSel	If the current selection is the first item in list then
	cmp #1	top of pop-up can't be adjusted any further.
	beq noAdjustTop
	
	ROMCALL adjustTop	current port rectangle
	
noAdjustTop	lda <currentSel	If the current selection is the last item in the menu then
	cmp <lastVisItem	the bottom cannot be adjusted any further.
	beq noAdjustBott
	inc a
	cmp <lastVisItem
	bne @99
	lda <saveY1
	beq noAdjustBott
	
@99
	ROMCALL adjustBottom

noAdjustBott	
	lda <portRect+x1
	bne CheckLeftSideFirst
	
	ldx <portRect+x1
	lda <portRect+x2
	ROMCALL justifyRight	;Move menu left if off right
	ROMCALL justifyLeft		;Move menu right if off left
	bra around

CheckLeftSideFirst
	ldx <portRect+x1
	lda <portRect+x2
	ROMCALL justifyLeft
	ldx <portRect+x1
	lda <portRect+x2
	ROMCALL justifyRight
	
around	
	lda <saveY1
	beq @222
	
	ROMCALL doWhiteSpace  ;user wants the pop-up with the white space
	
@222	inc <specialFlag	;flag that tells pull_down2 to just draw box and shadow
	jsr pushPortData	;save grafport vars...

;
; Init rect x1 and x2
;
	lda <menurect+x1
	clc 
	adc <vert_pen
	sta <rect+x1
	lda <menurect+x2
	sec
	sbc <vert_pen
	dec a	subtract right drop shadow, so that drop shadow
	dec a	is inside the menu rect
	ldx <screenmode
	beq storeit
	dec a
	dec a
storeit	sta <rect+x2

*** changed 8-Feb-92 DAL to patch out some more, down to jsr get_ids
;;;	pea |RightAfterPullDown2Call-1
;;;;	brl pull_down2	draw the pop-up box, drop shadow
;;;
;;;
;;;; It never comes back, the code jumps into ROM inside pull_down2
;;;
	ROMCALL pull_down2	;not ROM, but it jumps there, so this works.
*** copied from menumgr.asm 8-Feb-92
	dec <specialFlag	;in ROM 3, this was at $FD/6988

	lda <menurect+y1
	inc a
	pha
	lda <menurect+y2
	dec a
	pha

	lda <saveY2
	bne @333

	lda <menurect+y1
	clc
	adc <saveY1
	sta <menurect+y1
	bra saveWhite

@333	lda <menurect+y2
	sec
	sbc <saveY1
	sta <menurect+y2

saveWhite	pla
	sta <saveY2
	pla
	sta <saveY1

	lda <menurect+x1
	clc
	adc <vert_pen
	sta <rect+x1
	lda <menurect+x2
	sec
	sbc <vert_pen
	sta <rect+x2

	ROMCALL $fd6ece	;NeverMind
	bra SkipPopEmpty
popEmpty	jsr PushPortData
SkipPopEmpty
	ROMCALL $fd63da	;trackMenu2--track the mouse in the menu until a mouse up
	jsr popPortData	;restore this grafport
	lda <curselect	;get user selection and return it on the stack
	beq toNoSelection
*** 7-Dec-91 DAL -- call get_ids instead of loading [<itemptr] -- for custom pop-up support!
;;;	lda [<itemptr]	;get the ID
	ROMCALL $fd6878	;get_ids
*** end 7-Dec-91

toNoSelection	jml >$fd69c0	;back to noSelection in ROM 3

*** end of 8-Feb-92 changes

	ENDP
	
	
;------------------------------------------------------------------
;
;
;
pull_down2	PROC
	
	stz <sav_buff+2	Set 'no cache' flag	just in case.
	stz <sav_buff

	ldy #MenuFlag	Check if there can be a cache.
	lda [<menuptr],y
	and #M_CACHE
	bne cacheOK

	ROMCALL allocateCache
	bcc @GotCache
	brl noCache
@GotCache	phx	Save allocated cache.
	pha
	sta <sav_buff	Dereference cache.
	stx <sav_buff+2
	ldy #2
	lda [<sav_buff],y
	tay
	lda [<sav_buff]
	sta <sav_buff
	sty <sav_buff+2

	lda #0	Mark cache as BAD (not containing menu).
	sta [<sav_buff]

	pla	Put cache handle into sav_buff.
	sta <sav_buff
	pla
	ora #$8000	Set temp cache flag.
	sta <sav_buff+2
	bra saveScreen

cacheOK	ldy #MenuCache+1
	lda [<menuptr],y
	sta <sav_buff+1
	beq tryCache	Is there a cache?
	dey
	lda [<menuptr],y
	sta <sav_buff

	ldy #1	Has the cache been purged?
	lda [<sav_buff],y
	bne saveScreen

	jsr myfreeCache	Free purged cache.

tryCache	ROMCALL makeCache	Allocate a new cache for the menu.

	ldy #MenuCache
	lda [<menuptr],y
	sta <sav_buff
	iny
	lda [<menuptr],y
	sta <sav_buff+1
;
; --- Save screen to buffer ---------------------------------

saveScreen	lda <sav_buff+1
	beq noCache	Is there a cache?

	pea 0	Pass no purge flag.
***	pei <sav_buff+2	Pass cache handle.
*** fixed 21-May-91 DAL -- bit 31 is a flag, so let's mask it off
	lda <sav_buff+2
	and #$00ff
	pha	;added 22-May-91 DAL -- oops
*** end of 21-May-91 DAL
	pei <sav_buff
	_SetPurge	Make cache nonpurgeable for now.


;
; Fool cache to think bottom of menuRect is 200 or less
;
	lda <menurect+y2
	pha
	cmp #200
	bcc @1
	lda #200
@1	sta <menuRect+y2

	ROMCALL cache
;
; Put it all back
	plx
	stx <menurect+y2

NoCache
	jml BackIntoROMSucker

	EndP

*@@@
	if 0 then
*******************************************************************************
*
PushPortData	PROC
*
* Description:	This routine will push grafport variables that can be changed
*	by menuselect and popupmenuselect. This pushes:
*	BkPat
*	PnLoc
*	pnSize
*	pnMode
*	pnPat
*	pnMask
*	pnVis
*	fontHandle
*	fontID
*	fontFlags
*	txSize
*	txFace
*	txMode
*	spExtra
*	chExtra
*	fgColor
*	bgColor
*
*
* Inputs:	None
*
* Outputs:	All that stuff on the stack!
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
*
* Direct page equates for my stack frame, note that I will leave this data on the
* stack and take it off with popPortData
*
FrameSize	equ $74	; 70 bytes of data + grafport pointer
portPtr	equ 1	; the place we will use for our grafport pointer
LocalPortData	equ portPtr+4	; storage area for our port pointer
;
; First set up our stack frame...
	ply	; recover the return address and save it...
	tdc	; get the current dpage
	tax	; and save it in <X>

	tsc	; get the stack pointer
	sec
	sbc #FrameSize	; adjust the stack pointer
	tcs	; make it the new stack pointer and the new
	tcd	; direct page

	phy	; restore the return address
	phx	; and save the old dpage pointer

; Now get the current grafport pointer
	pha	; room for result
	pha
	_GetPort	;
	pla
	sta <portPtr	; and save the port pointer to our dpage
	pla
	sta <portPtr+2	;

; now copy $70 bytes of data to our localportdata area

	ldy #$8E	; last address to copy from
	ldx #$6E	; last data to copy
@CopyLoop	lda [<portPtr],y	; get the byte of data
	sta <LocalPortData,x ; and save it
	dey
	dey
	dex
	dex
	bpl @CopyLoop

; now that we are done, lets get the proper direct page off the stack and end...
	pld
	rts	; now leave

	EndP

	EJECT
*******************************************************************************
*
PopPortData	PROC
*
* Description:	This routine will pop grafport variables that can be changed
*	by MenuSelect and PopUpMenuSelect.
*
*             NOTE: You must have called PushPortData first, and the stack must
*	be set to what it was when pushPortData returned.
*
*        This pops:
*	BkPat
*	PnLoc
*	pnSize
*	pnMode
*	pnPat
*	pnMask
*	pnVis
*	fontHandle
*	fontID
*	fontFlags
*	txSize
*	txFace
*	txMode
*	spExtra
*	chExtra
*	fgColor
*	bgColor
*
*
* Inputs:	None
*
* Outputs:	All that stuff on the stack!
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
*
* Direct page equates for my stack frame, note that I will leave this data on the
* stack and take it off with popPortData
*
FrameSize	equ $74	; 70 bytes of data + grafport pointer
savedDPage	equ 1
Rtn1	equ savedDPage+2
portPtr	equ Rtn1+2	; the place we will use for our grafport pointer
LocalPortData	equ portPtr+4	; storage area for our port pointer
; first copy $70 bytes of data from our localportdata area to the port
	phd	; save the old dPage
	tsc	; now make the stack the dPage
	tcd

	ldy #$8E	; last address to copy from
	ldx #$6E	; last data to copy
@CopyLoop
	lda <LocalPortData,x ; and save it
	sta [<portPtr],y	; get the byte of data
	dey
	dey
	dex
	dex
	bpl @CopyLoop

; Now that we are finished, reset the old dPage and pull all the old shit
; off the stack

*** added 16-Jan-91 DAL to make this thing work with fastPort on!
*** Just set the port to what it already is to clear the fastPort
*** dirty flags & make items always hilite properly. BRC:MS902MSC.
	pha
	pha
	_GetPort
	_SetPort
*** end of 16-Jan-91 DAL fix

	pld	; restore the directpage
	ply	; save the return address for a sec...

	tsc	; now adjust the stack pointer
	clc
	adc #FrameSize
	tcs	; and resave the stack pointer
	phy	; restore the return address
	rts	; now leave

	ENDP

	endif
* @@@

;==========================================================================
;
;	GetPopUpDefProc
;
;         	Return the address of the pop-up definition procedure.
;
;   IN:    None.
;
;  OUT:    Address of list definition procedure.
;==========================================================================
GetPopUpDefProc	PROC
	import PopupProc

TheResult	equ 7

	lda #PopupProc>>16	Pass pointer to list control defProc.
	sta TheResult+2,s
	lda #PopupProc
	sta TheResult,s

	brl QuickReturn
	
	ENDP


;===========================================================================
;
; 	DrawItemIcon
;
;  IN: <itemptr pts to item record currently being worked on
;
; OUT: if item has an icon associated with it then we draw it, otherwise
;      we just return
;
;===========================================================================
DrawItemIcon	PROC

	jsr GetStruct
	ldy #itemflag2
	lda [<temptr],y
	bpl @noIcon
;
; Setup parameters for PPToPort to draw the icon.
;
	jsr getrItemIcon	x = high word of ref to icon record, a = low word
	phx	a & x contain pointer to icon structure.
	pha	
	
	pea 0	Display mode.
	
	lda <text_width
	clc	don't wan't any carry to be rotating in on us
	ror a
	clc
	adc <rect+x1
	adc <text_width	Ident 1 1/2 times the width of 'W' to make room for mark 
	pha	x coordinate of upper left corner of destination
	
;
; Center icon in <rect
;
	jsr GetIconInfo
	phx	get height of icon
	lda <rect+y2
	sec
	sbc <rect+y1	calculate the height of the item's rect
	sec
	sbc 1,s	subtract height of icon from height of item rect
	clc	
	ror a	take half of that to use to center icon
	sta 1,s
	lda <rect+y1	add this to the y1 coordinate of item rect  
	clc	to get the y coordinate of the upper left corner 
	adc 1,s	of the destination
	sta 1,s	
*** added 26-Mar-91 DAL to make the color right (stolen from MenuMgr.asm)
	lda 3,s
	and #$fffe
	sta 3,s
*** end of 26-Mar-91 DAL
	_DrawIcon
	bcc @noIcon
	cmp #$0002	QDAux not started?
	bne @noIcon
	
	tsc
	clc	Clean up stack.
	adc #10
	tcs
@noIcon
	rts
	
	ENDP

;==========================================================================
;
; DoADirtyDeed2
;
; Patches return address from SetForeColor call to return to the patch for
; routine text_guts.
;
;==========================================================================
DoADirtyDeed2	PROC EXPORT
RTL1	equ 1	; stack offsets from SetForeColor
MenuRTL	equ RTL1+3
theForeColor	equ MenuRTL+3

BackIntoTextGuts	equ $FD730C

; the code leading up to this point...
;
; 	ldy <norcolor	Normal color.
; 	tax	Is item selected?
; 	beq ok1
;	ldy <hiliteclr	If yes, use hilite color.
; ok1	tya
;	and #$000F
;	jsr pushSmearLow	Push smeared color
;	_SetForeColor
;

	lda >PatchEntry2
	sta MenuRTL,s
	lda >PatchEntry2+1
	sta MenuRTL+1,s
	brl FinishSetForeColor

PatchEntry2	dc.L theDirtyDeed2

theDirtyDeed2	NOP
	ldy #ItemFlag
	lda [<itemptr],y
	and #I_NEWSTRUCTURE
	bne doPatch
	jml BackIntoTextGuts
	
doPatch	ROMCALL FixTextFace

;
; --- Dividing line (not the same thing as an underline) -------------
;
	jsr getistrg
	
	lda [<strg_ptr] 	Get the first two bytes from the string
	cmp #$2D01	Dividing line flag?
	bne main_text

	lda <rect+y2	Center line in item.
	sec
	sbc <rect+y1
	lsr a
	clc
	adc <rect+y1
	tay
		
	lda <rect+x1	Draw from wall to wall.
	ldx <rect+x2
	dex	Not past right side.
	ROMCALL hline	Draw the dividing line and exit.
	bra ck_dim
	
;
; --- Print item's text ----------------------------------------------
;
main_text		; !!!! Font not defined yet !!!!
	lda <rect+y2	
	sec
	sbc <descent
	tay	Y = position to print item
	phy
	
	lda <text_width
	clc	don't want any carry to be rotating in on us
	ror a
	clc
	adc <rect+x1
	adc <text_width	Indent 1 1/2 times the width of "w" to make room for mark
	pha	x starting position of item's text
	jsr GetIconInfo
	tax
	beq @noIcon
	clc
	adc 1,s	Add in the width of the icon.
	adc #2	Add some extra slop for spacing in between the icon.
	sta 1,s
@noIcon	plx
	ply
	ROMCALL printstrg
	
	jsr DrawItemIcon	If the itemhas an icon this routine draws it, otherwise
;		it just returns
	jml $FD7340	Jump back into ROM (JSR ClearTextFace)
	
ck_dim	jml $FD7391	Jump back to label ck_dim in ROM.

	ENDP


;==========================================================================
;
; DoADirtyDeed3
;
; Patches return address from PtInRect call to return to the patch for
; routine choose_item. Patches call "INSIDE" which is called by Choose_Item.
;
;==========================================================================
DoADirtyDeed3	PROC EXPORT

tlRTL	equ 1
MenuMgrRTL	equ tlRTL+3
theRectPtr	equ MenuMgrRTL+3
thePointPtr	equ theRectPtr+4
theResult	equ thePointPtr+4

BackIntoINSIDE	equ $FD6CD1
; the code leading up to this point...
;	tay
;
;	pha	Space for result.
;
;	pea 0	Pass address of point to check.
;	tdc
;	clc
;	adc #yrat
;	pha
;
;	phx	Pass address of RECT to check.
;	phy
;	_PtInRect
	
	lda >PatchEntry3
	sta MenuMgrRTL,s
	lda >PatchEntry3+1
	sta MenuMgrRTL+1,s
	brl FinishPtInRect

PatchEntry3	dc.L theDirtyDeed3

theDirtyDeed3	NOP
	ldy #itemflag
	lda [<itemptr],y
	and #I_NEWSTRUCTURE
	bne @doPatch
	jml BackIntoINSIDE	Right after PtInRect call.
@doPatch
	pla	
	plx	Get rts from call to INSIDE off stack
	tax
	
	bne no_Scroller
	
lop5	inc <count	Next item
	lda <count
	ROMCALL calcitem	Get item's RECT and pointer.
	beq not_found	Off end of menu?
	
	ldx #0	Check if cursor is inside item.
	tdc
	clc
	adc #rect
	ROMCALL inside
	beq lop5
;
; --- Cursor over item --------------------------------------------
;
no_scroller	jsr getistrg	All this just to patch this routine.
	jml $FD70A1	

not_found	jml $FD70C4

	ENDP
	
	
;===========================================================================
;
;        	SetItemIcon
;
; This routine sets the ItemIcon field of the item structure referenced
; by the value now in the itemname field.
; The ItemFlag2 field in this structure is also set according to how 
; the icon will be referenced.
;
;   IN:  PUSH:WORD - refdescriptor for icon data
;        PUSH:LONG - reference to icon data
;        PUSH:WORD - item ID 
;
;  OUT:  None.
;
;===========================================================================
SetItemIcon	PROC

itemnum	equ input
iconRef	equ itemnum+2
iconVerb	equ iconRef+4

	jsr localstartup
	ROMCALL lockmenubar
	beq exit2

	lda itemnum,s	Get item's ID.
	ROMCALL getiptr	Now get its pointer.
	beq exit	Error?

	ldy #ItemFlag	First check if we've got our new style item record
	lda [<itemptr],y	that allows icons.
	and #I_NEWSTRUCTURE
	beq ERROR	If zero then item record not setup properly to handle icons.
	
	ROMCALL badCache
	
	jsr GetStruct	Get pointer to this new structure.
	ldy #ItemFlag2
	lda [<temptr],y
	and #$FFFC	Clear bits 0 and 1 which indicate how the icon will be
	ora iconVerb,s	referenced and "OR" in new verb.
	ora #I_NOICON	Set bit in flag that tells us there is an icon associated w/item.
	sta [<temptr],y
	
	ldy #ItemIcon	Store the icon ref in our structure.
	lda iconRef,s
	sta [<temptr],y
	ldy #ItemIcon+2
	lda iconRef+2,s
	sta [<temptr],y

exit	ROMCALL unlockmenubar

exit2	jml pop8bytes	no error

ERROR	ROMCALL unlockmenubar
	ldy #NoStruct	error, "Invalid access of new item structure."
	jml epop8bytes
	
	ENDP

;===========================================================================
;
;        	GetItemIcon
;
;   IN:  PUSH:LONG - result containing reference to item's icon
;        PUSH:WORD - item ID 
;
;  OUT:  LONG - Reference to item's icon. Result is zero if there is no icon.
;
;===========================================================================
GetItemIcon	PROC

itemnum	equ input
result	equ itemnum+2

	jsr localstartup
	ROMCALL lockmenubar
	beq exit2

	lda #0	Initialize result to zero.
	sta result,s
	sta result+2,s
	
	lda itemnum,s
	ROMCALL getiptr
	beq exit	item not found
	
	ldy #ItemFlag	Check if correct flags are set to indicate use of the 
	lda [<itemptr],y	new structure.
	and #I_NEWSTRUCTURE
	beq ERROR	If zero item record not setup to handle icons.
	
	jsr GetStruct	Get reference to new structure and put in <temptr.
	ldy #ItemFlag2	Make sure structure is using ItemIcon field. 
	lda [<temptr],y	
	and #I_NOICON
	beq exit	If not, then we're done.
	
	ldy #ItemIcon	 Get the reference to the icon and put in result.
	lda [<temptr],y
	sta result,s
	ldy #ItemIcon+2
	lda [<temptr],y
	sta result+2,s
		
exit	ROMCALL unlockmenubar
exit2	jml pop2bytes

ERROR	ROMCALL unlockmenubar
	ldy #NoStruct
	jml epop2bytes
	
	ENDP
	

;===========================================================================
;
;        	SetItemStruct
;
;   IN:  PUSH:WORD - ItemStructVerb, describes how STRUCT will be referenced
;        PUSH:LONG - ItemStructRef, ptr, hdl, resource ID to STRUCT
;        PUSH:WORD - ItemID, ID of item to set
;
;  OUT:  None.
;
; This call allows a menu item specified by ItemID to now be associated with
; a new structure. The ref. to this structure now resides in the ITEMNAME field
; of the item's record. Bits 10, 9, and 8 are automatically set. The ref to the
; item's name is then stored in this new structure.
;
;===========================================================================
SetItemStruct	PROC

itemnum	equ input
ItemStructRef	equ itemnum+2
ItemStructVerb	equ ItemStructRef+4

	jsr localstartup	
	ROMCALL lockmenubar
	beq exit2	If a reg is zero upon return then no menubar present.

	lda itemnum,s
	ROMCALL getiptr	Returns ptr to item record in <itemptr
	beq exit	If a reg is zero upon return then item not found.
	
	ROMCALL badCache
	
	ldy #ItemFlag	Set bit 10 in itemflag to indicate that the field
	lda ItemStructVerb,s itemname is now a Ref. to this new structure.
	xba	Also set bits 8 and 9 to reflect how this structure
	ora #I_NEWSTRUCTURE	will be referenced.
	ora [<itemptr],y
	sta [<itemptr],y
		
	ldy #ItemName+2	Save ref. to item's name on stack.
	lda [<itemptr],y
	pha
	ldy #ItemName
	lda [<itemptr],y
	pha
	
	lda ItemStructRef+4,s Now store the ref. to the struct in the itemname field.
	sta [<itemptr],y
	lda ItemStructRef+6,s
	iny
	iny
	sta [<itemptr],y
	
	jsr GetStruct	Returns a ptr to the new structure in <temptr.
	ldy #ItemName2	Store itemname in its new location.
	pla
	sta [<temptr],y
	pla
	iny
	iny
	sta [<temptr],y
	
exit	ROMCALL unlockmenubar
exit2	jml pop8bytes

	ENDP
	

;===========================================================================
;
;        	GetItemStruct
;
;   IN:  PUSH:LONG - Result, ref to item's struct is returned here
;        PUSH:WORD - ItemID, ID of item's struct you want
;
;  OUT:  None.
;
; If bit 10 is set, then this call returns the reference to the item's 
; structure.
;
;===========================================================================
GetItemStruct	PROC

itemnum	equ input
result	equ itemnum+2

	jsr localstartup
	ROMCALL lockmenubar
	beq exit2	If a-reg is zero upon return then no menubar present.
	
	lda #0	Initialize result to zero for time being.
	sta result,s
	sta result+2,s
	
	lda itemnum,s
	ROMCALL getiptr
	beq exit	If a-reg is zero upon return then item not found.
	
	ldy #ItemFlag	See if item has additional structure associated with it.
	lda [<itemptr],y
	and #I_NEWSTRUCTURE
	beq exit
	
	ldy #ItemName
	lda [<itemptr],y
	sta result,s
	iny
	iny
	lda [<itemptr],y
	sta result+2,s
	
exit	ROMCALL unlockmenubar
exit2	jml pop2bytes

	ENDP
	
	
;===========================================================================
;
;        	RemoveItemStruct
;
;   IN:  PUSH:WORD - ItemID, ID of item's struct you want removed
;
;  OUT:  None.
;
;===========================================================================
RemoveItemStruct	PROC

itemnum	equ input

	jsr localstartup
	ROMCALL lockmenubar
	beq exit2	If a-reg is zero upon return then no menubar present.
	
	lda itemnum,s
	ROMCALL getiptr
	beq exit	If a-reg is zero upon return then item not found.
	
	ldy #ItemFlag
	lda [<itemptr],y
	and #I_NEWSTRUCTURE	First check to make sure there is a structure.
	beq exit
	
	ROMCALL badCache
	
	jsr GetStruct	Move itemname ref from the structure back to the
	ldy #ItemName2+2	item's record.
	lda [<temptr],y
	tax
	ldy #ItemName2
	lda [<temptr],y
	ldy #ItemName
	sta [<itemptr],y
	iny
	iny
	txa
	sta [<itemptr],y
	
	ldy #ItemFlag
	lda [<itemptr],y
	and #$F8FF	Clear bits 10, 9, and 8.
	sta [<itemptr],y
	
exit	ROMCALL unlockmenubar
exit2	jml pop2bytes
	
	ENDP
	
;===========================================================================
;
;        	GetItemFlag2
;
;   IN:  PUSH:WORD - Result
;        PUSH:WORD - ItemID, ID of item that you want flag for.
;
;  OUT:  None.
;
;===========================================================================
GetItemFlag2	PROC

itemnum	equ input
result	equ itemnum+2

	jsr localstartup
	ROMCALL lockmenubar
	beq exit2	If a-reg is zero upon return then no menubar present.
	
	lda #0
	sta result,s
	
	lda itemnum,s
	ROMCALL getiptr
	beq exit	If a-reg is zero upon return then item not found.
	
	ldy #ItemFlag
	lda [<itemptr],y
	and #I_NEWSTRUCTURE
	beq exit
	
	jsr GetStruct
	ldy #ItemFlag2
	lda [<temptr],y
	sta result,s

exit	ROMCALL unlockmenubar
exit2	jml pop2bytes
	
	ENDP
	
	
;===========================================================================
;
;        	SetItemFlag2
;
;   IN:  PUSH:WORD - ItemFlag2, new value you want ItemFlag2 to be set to
;        PUSH:WORD - ItemID, ID of item that you want to set.
;
;  OUT:  None.
;
;===========================================================================
SetItemFlag2	PROC

itemnum	equ input
NewItemFlag2	equ ItemNum+2

	jsr localstartup
	ROMCALL lockmenubar
	beq exit2	If a-reg is zero upon return then no menubar present.
	
	lda itemnum,s
	ROMCALL getiptr
	beq exit	If a-reg is zero upon return then item not found.
	
	ldy #ItemFlag
	lda [<itemptr],y
	and #I_NEWSTRUCTURE
	beq exit
	
	ROMCALL badCache
	
	jsr GetStruct
	ldy #ItemFlag2
	lda NewItemFlag2,s
	sta [<temptr],y

exit	ROMCALL unlockmenubar
exit2	jml pop4bytes
	
	ENDP


;===========================================================================
;
;        	GetItemWidth
;
;   IN:  PUSH:WORD - ItemFlag2, new value you want ItemFlag2 to be set to
;        PUSH:WORD - ItemID, ID of item that you want to set.
;
;  OUT:  None.
;
;
; 21-Sep-90 Dave Lyons
;
; Harry added this to the Menu Manager tool, but not to the ROM 3 patch,
; so here's where it will be.
;
;===========================================================================
GetItemWidth	proc

	brk 0		;%%%
	
	EndP

;===========================================================================
;
;	SetMItem
;
;        	Set new item string.
;
;   IN:    PUSH:LONG - pointer to new string.
;          PUSH:WORD - item's ID.
;
;  OUT:    None.
;
;===========================================================================
SetMItem	PROC

itemnum	equ input
strg	equ itemnum+2

BackIntoSetMItem	equ $FD7A9A	Back into SetMItem call in ROM.

	jsr localstartup
	ROMCALL lockmenubar	<barptr = (<barHand), bar & menus locked.
	beq exit2
	
	lda itemnum,s	Get pointer to item's record and store in <itemptr.
	ROMCALL getiptr
	beq exit
	
	ldy #itemflag	Check if item has new structure associated with it.
	lda [<itemptr],y
	and #I_NEWSTRUCTURE
	bne @newWay
	
	jml BackIntoSetMItem
@newWay
	ROMCALL badCache	Set cache to bad if	menu has a cache.

	ldy #ItemFlag	Since the reference to the item name is a ptr to that name
	lda [<itemptr],y	we clear the first two bits of the item flag
	and #CLEAR_TWO_BITS
	sta [<itemptr],y
	
	lda strg,s	Pass pointer to string.
	sta <strg_ptr
	lda strg+2,s
	sta <strg_ptr+2

	ROMCALL parse_strg	Get and set length of string.
	
	jsr GetStruct	Get ptr to item's additional structure.
	ldy #itemName2
	lda <strg_ptr
	sta [<temptr],y
	lda <strg_ptr+2
	iny
	iny
	sta [<temptr],y
	
exit	ROMCALL unlockmenubar Leave menu bar & menus unlocked.

exit2	jml pop6bytes
	
	ENDP


;===========================================================================
;
;	GetItem
;
;        	Get item's string.
;
;   IN:  PUSH:WORD - item's ID.
;
;  OUT:  LONG - pointer to item's text.
;
;===========================================================================
GetItem	PROC

itemnum	equ input
result	equ itemnum+2

BackIntoGetItem1	equ $FD7AD3	Back into GetItem if item not found.
BackIntoGetItem2	equ $FD7ADC	Back into GetItem if item doesn't have new struct associated with it.

	jsr localstartup
	ROMCALL lockmenubar	<barptr = (<barHand), bar & menus locked.
	beq exit2
	
	lda itemnum,s	Get pointer to item's record and store in <itemptr.
	ROMCALL getiptr
	bne foundSomething
	jml BackIntoGetItem1
	
foundSomething	ldy #ItemFlag	First check is there is the new structure associated
	lda [<itemptr],y	with this item.
	and #I_NEWSTRUCTURE
	bne @newWay
	jml BackIntoGetItem2

@newWay	jsr GetStruct	Get ptr to item's additional structure.
	ldy #itemName2
	lda [<temptr],y
	sta result,s
	iny
	iny
	lda [<temptr],y
	sta result+2,s
	
	ROMCALL unlockmenubar
exit2	jml pop2bytes

	ENDP

;===========================================================================
;
; EnableMItem patch
;
; 22-Oct-90 Dave Lyons
;
; Return an error if the Menu Manager isn't started up, because some
; stupid application is calling this before it starts any tools.
;
;===========================================================================
EnableMItem	proc

	tay
	beq ReturnError0001
	jml >$fd7b62
	
	entry ReturnError0001
ReturnError0001	lda #1
	sec
	rtl

	endp


;===========================================================================
;
; DisableMItem patch
;
; 22-Oct-90 Dave Lyons
;
; Return an error if the Menu Manager isn't started up, because some
; stupid application is calling this before it starts any tools.
;
;===========================================================================
DisableMItem	proc
	import ReturnERror0001

	tay
	beq ReturnError0001
	jml >$fd7b76

	endp


;===========================================================================
;
;	SetMItemName
;
;        	Set item's string.
;
;   IN:    PUSH:LONG - pointer to pascal string.
;          PUSH:WORD - item's ID.
;
;  OUT:    None.
;
;===========================================================================
SetMItemName	PROC

itemnum	equ input
newName	equ itemnum+2

BackToSetMItemName	equ $FD7B42

	jsr localstartup	Do startup initialization for tool call.
	ROMCALL lockMenuBar	<barPtr = (<barHand), bar & menus locked.
	beq exit2	Is there a current menu bar?

	lda itemnum,s	Get item's ID.
	ROMCALL getiptr	Now get its pointer.
	beq exit	Error?

	ldy #ItemFlag	First check if item has new structure associated with it.
	lda [<itemptr],y
	and #I_NEWSTRUCTURE
	bne @newWay
	
	jml BackToSetMItemName
@newWay
	ROMCALL badCache	Set cache to bad if	menu has a cache.

	ldy #ItemFlag	Get flag of current item and clear the first two bits
	lda [<itemptr],y	We need to clear them because later on we're going to
	and #CLEAR_TWO_BITS 'OR' it with the new value
	sta [<itemptr],y
	
	jsr GetStruct	Get the ptr to the new structure
	ldy #itemName2	and store the ptr in <temptr.
	lda newName,s
	sta [<temptr],y
	iny
	iny
	lda newName+2,s
	sta [<temptr],y

exit	ROMCALL unlockMenuBar Leave menu bar & menus unlocked.

exit2	jml pop6bytes	no error

	ENDP
	

;===========================================================================
;
;	SetMItemName2
;
;  IN: PUSH:WORD - refdescriptor, describes what next long will be
;      PUSH:LONG - titleref, pointer, handle, or resource ID of title name
;      PUSH:WORD - menuitem, ID of item that will get new title
;
; OUT: None.
;
;===========================================================================
SetMItemName2	PROC

itemnum	equ input
titleref	equ itemnum+2	; ptr, hdl, resource ID of new item name
refdescriptor	equ titleref+4

BackToSetMItemName2	equ $FD7AFE
BackIntoCall	equ $FD7B0E

	jsr localstartup
	ROMCALL lockMenuBar
	beq exit2

	lda itemnum,s	Get item's ID.
	ROMCALL getiptr	Now get its pointer (in <itemptr).
	beq exit	Error?
	
	ldy #ItemFlag
	lda [<itemptr],y
	and #I_NEWSTRUCTURE
	bne @newWay
	
	jml BackToSetMItemName2

@newWay	ROMCALL badCache	Set cache to bad if	menu has a cache.

	jsr GetStruct	There is so get the ptr to the new structure
	ldy #itemName2	and store the ptr in <temptr.
	lda titleref,s
	sta [<temptr],y
	iny
	iny
	lda titleref+2,s
	sta [<temptr],y

	jml BackIntoCall

exit	ROMCALL unlockMenuBar	
	
exit2	jml pop8bytes
	
	ENDP




;===========================================================================
;
;	SetMItem2
;
;  IN: PUSH:WORD - refdescriptor, describes what next long is (0=ptr, 1=hdl, 2=res ID)
;      PUSH:LONG - titleref, pointer, handle or resource ID of a resource menu item
;      PUSH:WORD - item's ID
;
; OUT: None.
;
;===========================================================================
SetMItem2	PROC

itemnum	equ input
titleref	equ itemnum+2	; ptr, hdl, resource ID of new item name
refdescriptor	equ titleref+4

myTemp	equ work
newFlag	equ myTemp+4

BackInSetMItem2	equ $FD7A21

	jsr localstartup
	ROMCALL lockmenubar
	bne @FoundMenuBar
	brl exit2	
@FoundMenuBar
	lda itemnum,s	Is the item that we specified in any of the menus?
	ROMCALL getiptr	Put the ptr to the item record in <itemptr.
	bne @FoundItem
	brl exit	Item not found so just beat it.
@FoundItem	
	ldy #ItemFlag 	First check if the new structure is associated with this item.
	lda [<itemptr],y
	and #I_NEWSTRUCTURE
	bne @newWay
	
	jml BackInSetMItem2 Nothing new so just run the old code.
@newWay	
	ROMCALL badCache	Set cache to bad if menu has a cache
	
	ldy #ItemFlag	Get flag of current item and clear the first two bits
	lda [<itemptr],y	We need to clear them because latter on we're going to
	and #CLEAR_TWO_BITS 'OR' it with the new value
	sta [<itemptr],y
	
	lda titleref,s	
	sta <myTemp
	lda titleref+2,s
	sta <myTemp+2	
	
	lda refdescriptor,s	
	asl a
	tax
	jmp (table,x)
	
table	dc.w pointer
	dc.w handle
	dc.w resourceID
	
resourceID	lda titleref+2,s	Load the menu item resource and get the handle to it
	tax	
	lda titleref,s
	ldy #rMenuItem
	ROMCALL LoadnRelease
	sta <myTemp	Store handle back on my direct page
	stx <myTemp+2
	
handle	ldy #2	Dereference the menu item handle and put ptr back
	lda [<myTemp],y	into my direct page
	tax
	lda [<myTemp]
	sta <myTemp
	stx <myTemp+2
	
pointer	ldy #resItemFlag	Find out how the item name is being referenced, is it a
	lda [<myTemp],y	pointer, handle, or resource ID?
	and #FIRST_TWO_BITS
	sta <newFlag
	
	ldy #ItemFlag
	lda [<itemptr],y
	ora <newFlag
	sta [<itemptr],y	Update the item flag in our item record
	
	jsr GetStruct	Get the ptr to the new structure and store the ptr in <temptr.
	ldy #resItemName	Store new itemname in new structure.
	lda [<myTemp],y	
	ldy #ItemName2
	sta [<temptr],y
	ldy #resItemName+2
	lda [<myTemp],y
	ldy #ItemName+2
	sta [<temptr],y

exit	ROMCALL unlockmenubar

exit2	jml pop8bytes

	ENDP
	
	
	END
	
	
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Patch/Patch3/Misc.tools.pch b/IIGS.601.SRC/GSToolbox/Patch/Patch3/Misc.tools.pch
new file mode 100644
index 0000000..d8795c1
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Patch/Patch3/Misc.tools.pch
@@ -0,0 +1 @@
+**********************************************************************
*
* Patch to Misc.Tools
* For ROM 3.0
*
* Copyright 1985-1992
* Apple Computer, Inc.
* All Rights Reserved
*
**********************************************************************
*
* 17-Sep-90	Dave Lyons
*
* Changed version number to $8302 for 6.0.
* Fixed ConvSeconds to return carry clear on no error, and to return
*   an error when convVerb is too big by one.
* Added SysBeep2 skeleton.
*
* 1-Oct-90	Dave Lyons
*
* Finished SysBeep2.  Added the actual call to _SendRequest.
*
* 16-Oct-90	Dave Lyons
*
* Strip off bit 15 of the SysBeep2 parameter when sending it to
* SendRequest.  It's just a flag specifying whether to beep if
* nobody accepts the request.
*
* 5-Dec-90	Dave Lyons
*
* Added VersionString call to convert 32-bit version numbers into
* strings (12.3.4d56).
*
* 11-Dec-90	Dave Lyons
*
* Changed definition of Stage field in VersionString version number.
* "Final" is now distinct from "released."
*
* 6-Jan-91	Dave Lyons
*
* Added WaitUntil call for maxxing out the speed of repeated user-
* visible actions (like continuous scrolling, zoom-rect effects,
* menu item blinking, and control blinking).
*
* 9-Jan-91	Dave Lyons
*
* Made WaitUntil multiply the delay by BRAM $60 minus 1, unless the
* location is $00 or $FF (defaults for ROM 1 and ROM 3).  The wait
* maxxes out at $F00 ticks (64 seconds).
*
* 11-Feb-91	Dave Lyons
*
* Implemented bit 14 in SysBeep2 (defers the request until the next
* GetNextEvent which allows mouse presses or keypresses).
*
* 14-Feb-91	Dave Lyons
*
* Made bit 14 in SysBeep2 do nothing if the Event Manager isn't started.
*
* 16-Feb-91	Dave Lyons
*
* Patched GetROMResource so I can easily override the ChooseFont
* resources.  (I could just put them in Sys.Resources, but this way
* I can continue using pointers within the resources.)
*
* 4-Mar-91	Dave Lyons
*
* Added new call StringToText to translate "Shaston 8" style text into
* text-display text, with or without mousetext.  Total RAM about 1.25K.
*
* 9-Mar-91	Dave Lyons
*
* A SysBeep2 call with the defer-till-GNE bit set is now ignored if
* there is already one pending.
*
* 29-Mar-91	Dave Lyons
*
* Added new calls ScanDevices and ShowBootInfo.
*
* 1-Apr-91	Dave Lyons
*
* Added 2 scanlines to the top of the area that FillScreenBottom
* fills with $DDDD when we are about to run off the right edge.
*
* 2-Apr-91	Dave Lyons
*
* Change ShowBootInfo to draw to the Text screen or SHR screen,
* but not both.  Fix first-time-here logic accordingly.
*
* 14-Apr-91	Dave Lyons
*
* Change StringToText so that if the source text is contained in
* the result buffer, I make a separate copy of the source text
* before processing.  This is partly for the benefit of ProDOS
* JudgeName.
*
* Added a ResultFlags parameter to StringToText so the caller
* can tell if any changes were made to the string.
*
* 6-May-91	Dave Lyons
*
* Added parnoia check to ShowBootInfo so an icon can't get drawn
* past the bottom of the screen.
*
* 9-May-91	Dave Lyons
*
* Fixed lots of error handling in ConvSeconds.  Implemented the
* cool ProDOS 8 year scheme.
*
* 20-May-91	Dave Lyons
*
* Setting bit 31 of the iconPtr to ShowBootInfo makes it re-use
* the previous position (the icon that overprints it ought to be
* the same width!).
*
* Patched SysFailMgr to enable text page 1 shadowing.
*
* Changed ConvSeconds FromProDOS (verb 5) so it doesn't trash the
* input buffer.  Verb 11 (HC to Seconds) restores the input buffer.
*
* 2-Jul-91	Dave Lyons
*
* In ShowBootInfo, added check for bit 1 of BRAM location $5F.  If
* set, we don't draw the icon.
*
* SysBeep2 now sends to Apple~SoundCP~ before broadcasting the request.
*
* 8-Jul-91	Dave Lyons
*
* ShowBootInfo now does nothing if QuickDraw is started (in case some
* DA or CDev gets initialized at some time other than boot time).
* Also, bit 31 of the string pointer makes ShowBootInfo reinitialize
* itself.  (This happens at DeskStartUp time.)
*
* 22-Aug-91	Dave Lyons
*
* ShowBootInfo now prints a CR after printing a text string.
*
* 17-Sep-91	Dave Lyons
*
* Link some stuff into Tool.Setup instead of TS2/3.  Routines moved
* are:  UnPackBytes, ConvSeconds, SysBeep2, VersionString, WaitUntil,
* StringToText, ShowBootInfo, ScanDevices.
*
* 14-Oct-91	Dave Lyons
*
* Made StringToText return a reasonable length when possible even if
* it returns error $034F, buffer too small.
*
* 1-Nov-91	Dave Lyons
*
* Made MTBootInit zap E1/0196 and E1/0197, so that ReadMouse will
* return a valid Status byte.
*
* 16-Jan-92	Dave Lyons
*
* StringToText:  Changed translation of German "§" ($A7) to "ss".
* Made some optimizations, including making the translate table
* entries 5 bytes each instead of 6.  Added 32 new translations
* per Yvan Koenig.
*
* 21-Jan-92	Dave Lyons
*
* StringToText:  Fixed flags on the §-->ss translation to show
* that it's a lengthening translation.
*
* 27-Jan-92	Dave Lyons
*
* Added ToBramSetupPatch (sets bank to $00 around call).
*
* 30-Jan-92	Dave Lyons
*
* Fixed a problem in UnPackBytes where a %10xxxxxx packet was not
* correctly checking the remaining space in the output buffer (it
* was off by a factor of two).
*
* 5-Feb-92	Dave Lyons
*
* Version $0302 for 6.0 final.
*
* 6-Feb-92	Dave Lyons
*
* Oops, fixed bad compare in StringToText (introduced 16-Jan).
*
**********************************************************************
*
* Begin 6.0.1
*
* 12-Mar-92	Dave Lyons
*
* Version $8303.
*
* Make ShowBootInfo start a new row (higher) if the first one fills up.
*
* 23-Jun-92	Dave Lyons
*
* SysFailMgr now has better default messages for errors $0027 and $0201.
*
* 1-Jul-92	Dave Lyons
*
* Added message for SysFailMgr errors $0308, $0681, $0682.
*
* 18-Jul-92	Dave Lyons
*
* Made SysBeep2 send systemSaysForceUndim ($000D), for all codes except
* $006x (screen blanking, screen unblanking).
*
* 20-Aug-92	Dave Lyons
*
* New calls AlertMessage and DoSysPrefs.
*
* 1-Oct-92	Dave Lyons for 6.0.1d11
*
* DoSysPrefs result is the *old* prefs value, not the new one.
*
* 22-Oct-92	Dave Lyons for 6.0.1d12
*
* DoSysPrefs returns error $0301 (and a random result) if GS/OS
* is not the active operating system.
*
* 2-Apr-93 DAL
*
* Version $0303 for 6.0.1.
*
**********************************************************************

	entry MTInit
	entry MTVer
	entry GetAddr
	entry ConvSeconds
	entry SysBeep2	;17-Sep-90 DAL
	entry UnPackBytes	;23-Oct-90 DAL
	entry VersionString	;5-Dec-90 DAL
	entry WaitUntil	;6-Jan-91 DAL
	entry GetROMResource ; 16-Feb-91 DAL
	entry StringToText	;4-Mar-91 DAL
	entry ScanDevices	;29-Mar-91 DAL
	entry ShowBootInfo	;29-Mar-91 DAL
	entry NewSysFail	;20-May-91 DAL

MTVersionNumber	equ $0303	;2-Apr-93 DAL

	include ':::sys.equs.asm'
	include 'all.macros'

PendingSysBeep2	equ $E1167E

MTCallTable	PROC EXPORT
	
Here
	DC.L (TheEnd-Here)/4 ; num calls +1
	DC.L MTInit-1	; PowerUp Initialization
	DC.L 0	; application startup
	DC.L 0	; application shutdown
	DC.L MTVer-1	; version number
	DC.L 0	; Misc. Tools Reset
	DC.L 0	; MTStatus
	DC.L 0	; Reserved
	DC.L 0	; Reserved
	DC.L 0	; Write battery ram
	DC.L 0	; Read battery ram
	DC.L 0	; Write battery ram	parameter
	DC.L 0	; Read battery ram parameter
	DC.L 0	; read clock w/ hex	format
	DC.L 0	; write clock w/ hex format
	DC.L 0	; read clock w/ ascii format
	DC.L 0	; set interrupt vector
	DC.L 0	; get interrupt vector
	DC.L 0	; insert procedure in Heartbeat chain
	DC.L 0	; delete procedure from heartbeat chai
	DC.L 0	; clear heartbeat chain
	DC.L NewSysFail-1	; system death manager (patched 20-May-91 DAL)
	DC.L GetAddr-1	;  ???
	DC.L 0	; Read Mouse
	DC.L 0	; initialize mouse
	DC.L 0	; set mouse mode
	DC.L 0	; home mouse position to min. clamp
	DC.L 0	; clear mouse position to 0
	DC.L 0	; set both X and Y clamps
	DC.L 0	; get both X and Y clamps
	DC.L 0	; set mouse position
	DC.L 0	; service mouse interrupt
	DC.L 0	; get ID tag
	DC.L 0	; delete ID tag
	DC.L 0	; get ID tag status
	DC.L 0	; enable interrupt source
	DC.L 0	; Firmware entry points
	DC.L 0	; get tick counter contents
	DC.L 0	; Pack bytes
	DC.L 0  ;[ts] UnPackBytes-1	; UnPack dem dere bytes
	DC.L 0	; This routine munges strings
	DC.L 0	; returns IRQ enble	status
	DC.L 0	; set absolute device clamps
	DC.L 0	; get absolute device clamps
	DC.L 0	; 2C03 system beep

	dc.L 0	; 2D03 NewBasicInit	; added 07 sep 88

	DC.L 0	; 2E03 AddToQueue	; added 10 sep 88
	DC.L 0	; 2F03 RemoveFromQueue ; added 10 sep 88
	dc.L 0	; 3003 SetInterruptState added 24 Nov 88
	dc.L 0	; 3103 GetInterruptState added 24 Nov 88
	dc.L 0	; 3203 GetIntStateRecSize added 24 Nov 88

	dc.L 0	; 3303 ReadMouse2 Added 13 Jan 89
	dc.L 0	; 3403 GetCodeResConverter added 13 Jan 89 {$3403}
	dc.L GetROMResource-1 ; 3503 GetROMResource added 24 Jan 89 ($3503}
	dc.L 0	; 3603 ReleaseROMResource added 24 Jan 89 {$3603}
*** 5.0.3
	dc.L 0  ;[ts] ConvSeconds-1	; 3703 added 3/14/90
*** 6.0
	dc.L 0  ;[ts] SysBeep2-1	; 3808 added 17-Sep-90 DAL
	dc.L 0  ;[ts] VersionString-1 ;3903 added 5-Dec-90 DAL
	dc.l 0  ;[ts] WaitUntil-1	; 3A03 added 6-Jan-91 DAL
	dc.l 0  ;[ts] StringToText-1	; 3B03 added 3-Mar-91 DAL
	dc.l 0  ;[ts] ShowBootInfo-1	; 3C03 added 29-Mar-91 DAL
	dc.l 0  ;[ts] ScanDevices-1	; 3D03 added 29-Mar-91 DAL
*** 6.0.1
	dc.l 0  ;[ts] AlertMessage-1	; 3E03 added 20-Aug-92 DAL
	dc.l 0  ;[ts] DoSysPrefs-1	; 3F03 added 20-Aug-92 DAL
TheEnd

	ENDP

****************************************************************
*
* ToBramSetupPatch -- new for 6.0d66, DAL
*
* We never documented that you should set the bank to $00 when
* calling ToBramSetup ($E10094), so people call it with random
* banks, and the firmware trashes memory while trying to fiddle
* with softswitches ($C036 and $C02D).
*
* (This patch gets installed by CommonPatches in Tool.Setup.)
*
****************************************************************
ToBramSetupPatch	proc export
	export oldToBramSetupCall

	phb
	pea 0
	plb
	plb
oldToBramSetupCall	jsl >$777777
	plb
	rtl

	EndP

****************************************************************
*
MTVer	Proc
*
* Returns new version number
*
*
* Inputs:
*	none
*
* Outputs:
*	VersionNumber : word
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

	lda #MTVersionNumber
	sta 7,s

	lda #0
	clc
	rtl

	ENDP



****************************************************************
*
MTInit	PROC
*
* Dummy Init routine prevents real init routine from being
* called twice when this patch is installed.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

	lda #0
*** added 1-Nov-91 DAL -- zero out mouse mode byte, since ReadMouse
***  is returning some garbage.
	sta >$E10196	;zap MseStat and MseMode
*** end 1-Nov-91 DAL
	
	clc	;A is still zero
	rtl

	ENDP


****************************************************************
*
* NewSysFail -- ROM 03 patch for SysFailMgr (20-May-91 DAL)
*
* One fix to the ROM:  Enable text page 1 shadowing.
*
****************************************************************
NewSysFail	proc
	import ComputeDefaultFailMsg

	jsr ComputeDefaultFailMsg	;23-Jun-92 DAL

	lda >$e0c035
	and #$fffe
	sta >$e0c035
	jml >$feb03c

	EndP

****************************************************************
*
* ComputeDefaultFailMsg -- 23-Jun-92 DAL
*
* Called from SysFailMgr.  If the supplied string pointer is
* NIL (for "Fatal System Error " string) then use special
* messages for common error codes.
*
* The stack looks like this:
*
* 13-14:  error number
*  9-12:  message pointer
*   6-8:  RTL
*   3-5:  RTL
*   1-2:  RTS address
*
****************************************************************
ComputeDefaultFailMsg proc export

@msg	equ 9
@error	equ 13

	lda @msg,s
	ora @msg+2,s
	bne @cantTouchMe

	lda @error,s
	sta >codeTable
	ldx #msgTable-codeTable
@search	dex
	dex
	cmp >codeTable,x
	bne @search

	lda >msgTable,x
	sta @msg,s
	beq @stillNIL
	lda #ComputeDefaultFailMsg>>16
	sta @msg+2,s
@stillNIL

@cantTouchMe	rts

codeTable	dc.w $7777,$0027,$0201,$0308,$0681,$0682
msgTable	dc.w $0000,ioError,outOfMemory,trashError,trashError,trashError

ioError	dc.b ioErrorEnd-ioError-1
	dc.b 'Could not read or write disk.  The disk',13
	dc.b 'may be damaged.  Error $'
ioErrorEnd

outOfMemory	dc.b oomEnd-outOfMemory-1
	dc.b 'Out of memory (or required memory area',13
	dc.b 'was already in use).  Error $'
oomEnd

trashError	dc.b trashEnd-trashError-1
	dc.b 'Detected trashed memory--software bug',13
	dc.b 'or (less likely) bad RAM.  Error $'
trashEnd

	EndP


	title 'GetAddress'
****************************************************************
*
* Return Interrupt Status Address
*
* Input     word	     refnum
* Input     LongWord     Don't care
*
* Output    LongWord     Pointer
*
* Modification History
*
*    May 6, 1986	See 5 lines changed	below.
*
****************************************************************
GetAddr	PROC
ROMGetAddr	equ $FEB04B
ROMoEndCall2	equ $FEFBF7	
RTL1	equ 1
RTL2	equ RTL1+3
RefNum	equ RTL2+3
Ptr	equ RefNum+2

	lda RefNum,s	; get ref #
	cmp #$00FF	; index our special address? ?
	beq GetAddrSerial	;
	jml ROMGetAddr	; 

GetAddrSerial		; 
	tax	; get param. addr
	lda >Ptbl	; abs long,x addressing SEG 6 May 86
	sta Ptr,s
	lda >Ptbl+2	; abs long,x addressing SEG 6 May 86
	sta Ptr+2,s	; missing +2 SEG 6 May 86
	jml ROMoEndCall2	; uses oEndCall SEG	6 May 86

Ptbl		; 
	DC.L $E11dd8	; status of INTFLAG	at IRQ
PtblEnd		; 

	ENDP

	eject
	title 'Unpack bytes'
*
* Patched 23-Oct-90 DAL for System 6.0
*
* There's a small but deeply-buried bug in the ROM version (01 and 03).
*
************************************************************************
*			           *
*  FUNCTION UnPackBytes(    BufPtr : POINTER;	           *
*	        BufSize: INTEGER;	           *
*	    VAR PicPtr : POINTER;	           *
*	    VAR PicSize: INTEGER) : INTEGER;	           *
*			           *
*  Params:  BufPtr - pointer to area containing packed data	           *
*           BufSize- max size of area containing packed data           *
*           PicPtr - Pointer to start of area to unpack into           *
*           PicSize- Maximum space available for unpacked picture      *
*			           *
*  Returns: UnPackBytes return Value: Actual number of bytes unpacked  *
*           PicPtr:	Updated to one past	end of last byte unpacked      *
*           PicSize: reduced by number of bytes of picture generated   *
*			           *
*        ------------------------------------------------------        *
*			           *
*  Sample Calls:			           *
*			           *			           *
*        OpenFile;			           *
*        Mark:=StartofFile;		           *
*        PicSize:=$7d00;		           *
*        BufSize:=$400;		           *
*        REPEAT			           *
*          SetFileMark(Mark);		           *
*          Read(f,BufPtr,Bufsize);		           *
*          HowMuch:=UnPackBytes(BufPtr,BufSize,PicPtr,PicSize);        *
*          Mark:=Mark+HowMuch;		           *
*        UNTIL ( (PicSize=0) OR EOF(f) );	           *
*			           *
*     -----------------------------------------------------------      *
*			           *
*    Packed data encryption format:		           *
*			           *
*        %00xxxxxx : (xxxxxx : 0->63) =	1 to 64 bytes follow -         *
*		       All Different           *
*			           *
*        %01xxxxxx : (xxxxxx : 1,2,3,5,6,7) = 1,2,3,5,6,7 repeats -    *
*		       of next byte	           *
*			           *
*        %10xxxxxx : (xxxxxx : 0->63) =	1 to 64 repeats -	           *
*		       of next 4 bytes         *
*			           *
*        %11xxxxxx : (xxxxxx : 0->63) =	1 to 64 times 4 repeats -      *
*		       of next byte	           *
*			           *
*    -----------------------------------------------------------       *
*			           *
*  Written By: Eagle I. Berns		           *
*			           *
*  Modification History:		           *
*			           *
*  10-DEC-85   EIB		First coding begun	           *
*   5-Mar-87   SEG		Error code returned	is now 0   *
*		in both Pack and Unpack        *
*  23-Oct-90   DAL		Fixed low-probability compare  *
*		bug (see comments)             *
*			           *
************************************************************************

UnPackBytes	PROC export

from	equ 1
to	equ from+4
endbuf	equ to+4
temp	equ endbuf+4
count	equ temp+4
lf	equ count+2

Origdrct	equ lf+2

rtl1	equ origdrct+2
rtl2	equ rtl1+3

PicSizeP	equ rtl2+3
PicPtrP	equ PicSizeP+4
Bufsize	equ PicPtrP+4
BufPtr	equ BufSize+2
Result	equ BufPtr+4
;	  -> +2

	PHD	; SET UP STACK AS ZERO PAGE +PARMS
	TSC
	SEC
	SBC #ORIGDRCT-1
	TCS
	TCD

	LDA [PICPTRP]	; GET THE ARGS.
	TAX	; (PicPtrP needs dereference)
	LDY #2
	LDA [PICPTRP],Y
	STA TO+2
	STX TO

	LDA [PICSIZEP]
	STA COUNT

	LDA BUFPTR
	STA FROM
	CLC
	ADC BUFSIZE
	STA ENDBUF
	LDA BUFPTR+2
	STA FROM+2
	ADC #0
	STA ENDBUF+2

DoUnpack	LDY #0

	LDA [FROM],Y	; GET THE COMMAND
	STA TEMP
	AND #$3F
	TAX	; GET COUNT ONLY INTO X
	INC FROM	; BUMP TO FIRST BYTE TO TRANSFER
	BNE M1
	INC FROM+2
M1	BIT TEMP-1	; V & C BITS GIVE COMMAND
	BMI REP4
	BVS REP1	; 01xxxxxx -> REPEAT NEXT 1 BYTE
	BRA DIFF	; 00xxxxxx -> ALL DIFFERENT
REP4	BVS REP41	; 11xxxxxx -> REPEAT 4 OF NEXT 1 BYTE
	BRA REP44	; 10xxxxxx -> REPEAT OF NEXT 4 BYTES

OUTP	PLA
	JMP UDONE	; GO FINISH UP

*****************************************
*		*
* DIFF : 0 ->63 IN A MEANS  1->64	*
*   DIFFERENT BYTES	FOLLOW TO BE MOVED	*
*		*
*****************************************
DIFF	PHA	; WHEN WE GO TO COMMON CODE, WE NEED
;		  SOMETHING STACKED	(OTHER CALLS USE IT)
	BRA JOIN

*****************************************
*		*
* REP1 : 1,2,3,5,6,7 REPEATS OF FOLLOW-	*
*        ING BYTE.		*
*		*
*****************************************


REP1	LDA TEMP	; PUT BYTE IF LOW &	HIGH & ON STACK
	AND #$FF00
	PHA
	XBA
	ORA 1,S
	STA 1,S
	BRA JOIN	; JOIN UP, X=LEN IS	CORRECT STILL

*****************************************
*		*
* REP41 : IS SAME AS REP1 ABOVE, EXCEPT	*
*         COUNT IN X MUST BE 4 TIMES >	*
*		*
*****************************************
REP41	INX
	TXA
	ASL A
	ASL A
	TAX
	DEX
	BRA REP1

*****************************************
*		*
* REP44 : MUST SET UP FOR 2 STORES I.E.	*
*         4 BYTES WORTH, AND COUNT IS	*
*         DOUBLED (2 STORES EACH TIME)	*
*		*
*****************************************
REP44	INX
	TXA
	ASL A
*** added 30-Jan-92 DAL
	asl a	;actually, quadruple X
*** end 30-Jan-92
	TAX	; FIRST DOUBLE X
	DEX
	PHA	; MUST PUT SOMETHING ON STACK FOR
;		  OTHER CASES

*        BRA   JOIN		; WE FIND 4 BYTES AT [FROM],
* (FALL THROUGH TO JOIN)	; SO MUST REMEMBER TO FIND IT THERE

*****************************************
*		*
* JOIN : HERE, THE LOAD STORE SEQUENCE	*
*        OF DATA TRANSFER TAKES PLACE	*
*		*
*****************************************
JOIN	CPX COUNT	; BE SURE THERE'S ROOM
	BGE OUTP	; NO - DONE   (BUT PULL OFF EXTRA PUSH)

	LDA #1	; CHECK IF LENGTH WOULD GO OVER
	BIT TEMP-1	; DEPENDS ON TYPE OF CMD.
	BVS L1	; LEN=1 FOR %01 & %11
	BMI L4	; LEN=4 FOR %10
	TXA
	INC A	; LEN=N+1 FOR %00..N...
	BRA L1
L4	LDA #4
L1	CLC	; FROM+LEN .LT. ENDBUF MEANS NOT DONE
	ADC FROM
	PHA	; SAVE FOR COMPARE
	LDA FROM+2
	ADC #0
	CMP ENDBUF+2
	BCC NOTDONP
	bne WeAreDone	;added 23-Oct-90 DAL
	PLA
	CMP ENDBUF
	BLT NOTDON
	BEQ NOTDON
	BRA OUTP

WeAreDone	pla	;added 23-Oct-90 DAL
	bra OutP	;added 23-Oct-90 DAL

NOTDONP	PLA

NOTDON	CPX #0	; (NEEDED FOR 1ST ENTRY IN LOOP)
LOOP	BMI DOUPD	; YES


*****************************************
*		*
* MOVEIT : USED LOCALLY TO FETCH PROPER	*
*          INPUT, DEPENDING ON TYPE OF	*
*          CMD. BEING PROCESSED	*
*  NOTE: X<0 MEANS STORE 1 BYTE ONLY	*
*****************************************
	BIT TEMP-1	; THIS HAS THE FLAGS
	BMI MREP4
	BVS MREP1
	CPX #0	; IF NEG. IT'S ONE BYTE ONLY
	BEQ MSPEC
	LDA [FROM],Y
	STA [TO],Y
	INY
	INY
	JMP NDMOV

MSPEC	SEP #%00100000
	LDA [FROM],Y
	STA [TO],Y
	REP #%00100000
	INY
	JMP NDMOV

MREP1	CPX #0
	BEQ M2SPEC
	LDA 1,S
	STA [TO],Y
	INY
	INY
	JMP NDMOV

M2SPEC	SEP #%00100000
	LDA 1,S
	STA [TO],Y
	REP #%00100000
	INY
	JMP NDMOV

MREP4	BVS MREP1	;REP41 SAME AS REP1	BUT LARGER COUNT
	LDA [FROM]
	STA [TO],Y
	PHY	; HOLD Y A SEC
	LDY #2
	LDA [FROM],Y
	PLY
	INY
	INY
	STA [TO],Y
	INY
	INY
*** added 30-Jan-92 DAL -- corresponds to extra ASL A added above
	dex
	dex
*** end 30-Jan-92

******
NDMOV	DEX
	DEX
	BRA LOOP	; GO DO NEXT ONES

DOUPD	PLA	; GET RID OF EXTRA PUSH
	LDA TEMP	; UPDATE APPROPRIATE POINTERS
	AND #$3F
	INC A
	BIT TEMP-1
	BMI XREP4	; FROM DEPENDS ON TYPE
	BVC XDIFF	; FOR 00xxxxxx ADD LENGTH
FP1	LDA #1	; FOR 01xxxxxx ADD 1
XDIFF	CLC
	ADC FROM
	STA FROM
	LDA FROM+2
	ADC #0
	STA FROM+2
	BRA DOTO

XREP4	BVS FP1	; FOR 11xxxxxx ALSO	ADD 1
	LDA #4	; FOR 10xxxxxx ADD 4
	BRA XDIFF

DOTO	TYA	; Y IS OUTPUT COUNT
	CLC
	ADC TO
	STA TO
	LDA TO+2
	ADC #0
	STA TO+2
	TYA
	STA TEMP
	LDA COUNT
	SEC
	SBC TEMP
	STA COUNT
	JMP DOUNPACK

UDONE	LDA FROM
	SEC
	SBC BUFPTR
	DEC A
	STA RESULT	; SET RESULT LENGTH

	LDA TO
	SEC
	SBC [PICPTRP]
	PHA	; HOLD IT, NEED SIZE - IT
	LDA [PICSIZEP]
	SEC
	SBC 1,S
	STA [PICSIZEP]
	PLA

	LDA TO
	STA [PICPTRP]
	LDA TO+2
	LDY #2
	STA [PICPTRP],Y

	LDA ORIGDRCT
	TCD
	LDA RTL1,S	;FIX STACK UP CORRECTLY
	STA RESULT-6,S
	LDA RTL1+2,S
	STA RESULT-4,S
	LDA RTL1+4,S
	STA RESULT-2,S
	TSC
	CLC
	ADC #RESULT-7
	TCS
	LDA #0	; fix by SEG 5 March 87
	CLC	; fix by SEG 5 March 87
	RTL

	ENDP


	EJECT
*******************************************************************************
*
* ConvSeconds   $3703
*
* Description:	This routine converts number of seconds from 1904 to date or 
*	the passed date into seconds since 1904. It does so by cleverly
*	patching the toWriteTime and toReadTime vectors...
*
* Inputs:	Direction - Integer	tells whether to convert to or from
*	Seconds - Longint	the number of seconds since 1904 (to from)
*	Date - ptr	pointer to area to store the date...
*
* Outputs:	seconds - longint	the number of seconds returned (from into)
*
* Direction indicators are:
* 	0 - From Seconds to MiscTools hex time format
*	1 - From MiscTools hex time to seconds
*	2 - From Seconds to ASCII Time 
*	3 - NOT IMPLEMENTED
*	4 - From Seconds to ProDOS DateTime Record
*	5 - From ProDOS DateTime to Seconds
*	6 - Get Current seconds
*	7 - Set Current seconds
*	8 - ToMTFromProDOS
*	9 - ToProDOSFromMT
*	10 - From seconds to IdunaHexTime
*	11 - From IdunaHexTime to seconds
*
* Seconds Input - 	LongInteger representing the number of seconds since Jan 1 1904. This is
*	used in all From Seconds conversions and in Set Current Seconds.
*
* Date Input -	Pointer to a properly formated date for the direction indicated ASCII time
*	should have a 80 byte buffer.  Not used for GetSeconds.
*
* Seconds Output -	Contains the number of seconds since jan 1 1904 for all conversions. for
*	from seconds calls, this contains the seconds input. For to seconds calls
*	this contains the result of the call.
*
* Formats Used:
*
* ProDOS DateTime	Word	Date
*	  Bits 0-4	Day (1-31)
*	  Bits 5-8	Month (1-12)
*	  Bits 9-15	Year (year-1900)
*	Word	Time
*	  Bits 0-7	Minute (0-59)
*	  Bits 8-15	Hour (0-23)
*
* MTHex Format	Byte	Seconds (0-59)
*	Byte	Minute (0-59)
*	Byte	hour (0-23)
*	Byte	Year (year-1900)
*	Byte	day (0-30)
*	Byte	month (0-11)
*	byte	null (MUST be zero)
*	byte	weekday (1-7 1=sunday)
*
* IdunaHexTime	Byte	Seconds (0-59)
*	Byte	Minute (0-59)
*	Byte	hour (0-23)
*	Byte	Year (year-1900)
*	Byte	day (1-31)
*	Byte	month (1-12)
*	byte	null (MUST be zero)
*	byte	weekday (1-7 1=sunday)
*
*******************************************************************************
ConvSeconds	PROC Export

; Equates for the stack frame...
oldDPage	equ 1
oldPStatus	equ oldDPage+2
theRTL1	equ oldPStatus+1
TheRTL2	equ theRTL1+3
theDate	equ theRTL2+3
theSecs	equ theDate+4
theVerb	equ theSecs+4
result	equ theVerb+2

BadTimeVerb	equ $0390	; error for a bad time verb
BadTimeData	equ $0391	; input data was bad (Bad boy!)

	php
	phd	; set up our stack frame...
	tsc
	tcd

	lda <theVerb	; call the proper routine...
	asl a
	cmp #TimeTblSize	; are we out of bounds? (removed "+1" 17-Sep-90 DAL)
	bge @BadTime	; if so we have a bad verb
	tax
	jsr (timetbl,x)	; call the proper routine...
	bcs @Endit	;added 9-May-91 DAL -- each routine must return CLC or SEC/X=error
	ldx #0	; set the noerrorflag
	bra @EndIt

@BadTime	ldx #BadTimeVerb
@Endit	lda <theRTL1
	sta <theSecs
	lda <theRTL1+2
	sta <theSecs+2
	lda <theRTL1+4
	sta <theSecs+4
	
	pld
	plp
	
	pla	; pull off parameters
	pla
	pla
	pla
	pla
	
	txa 	; recover the error code..
	cmp #1	; was CMP #0 (17-Sep-90 DAL)
	rtl	; return to caller...
	
TimeTbl	dc.W ToMTHexFormat		;0
	dc.W fromMTHexFormat	;1
	dc.W ToASCIITimeFormat	;2
	dc.W TimeDummy		;3
	dc.W ToProDOS		;4  convert to ProDOS Date Time...
	dc.W FromProDOS		;5
	dc.W JustGetCurrent		;6
	dc.W JustSetCurrent		;7
	dc.W ToMTFromProDOS		;8
	dc.W ToProDOSFromMT		;9
	dc.W ToIdHexFormat		;10
	dc.W fromIDHexFormat	;11
TimeTblSize	equ *-TimeTbl

;-----------------------------------------------------------------------
;
ToIDHexFormat
; Special routine that bumps the output from the ToMTHexTime format
; routine, this is put in for the convenience of the Iduna guys...
;
	jsr ToMTHexFormat	; convert to the hex format...
	bcs @ErrorBad	; some form of error occured!
	ldy #4
	lda [theDate],y	; get the day/month word in...
	clc
	adc #$0101	; don't have to worry about an overflow!
	sta [theDate],y
; note: carry is clear
@ErrorBad
	rts
	
;-----------------------------------------------------------------------
;
FromIDHexFormat
; Special routine that bumps the output from the ToMTHexTime format
; routine, this is put in for the convenience of the Iduna guys...
;
	ldy #4	; perform the necessary subtraction..
	lda [theDate],y
	sec
	sbc #$0101
	sta [theDate],y
	jsr fromMTHexFormat	; convert to the hex format...
*** added 20-May-91 DAL -- put the user's buffer back how it was
	ldy #4
	lda [theDate],y
	clc
	adc #$0101
	sta [theDate],y
*** end of 20-May-91 DAL
	rts
	
;-----------------------------------------------------------------------
;
JustGetCurrent
;
; This routine gets the current time in seconds from the internal routine and 
; places it in the result...
	sep #$30
	jsl ToReadTime
	rep #$30
	bcc @GotTimeOK
;;;	ldx #$2403
	ldx #$0307	;firmTaskErr (carry is already set) [DAL]
	rts
@GotTimeOK
	lda >ClkRData
	sta <Result
	lda >ClkRData+2
	sta <Result+2
;;	ldx #0	; flag no error and return
	clc	;DAL
	rts

;----------------------------------------------------------------------
;
JustSetCurrent
; This routine sets the current time to the seconds you passed
;
	lda theSecs
	sta >ClkWData
	lda theSecs+2
	sta >ClkWData+2
	sep #$30
	Longa Off
	Longi Off
	phb	; save the old data bank
	lda #$E1	; and set proper bank for towritetime
	pha
	plb
	jsl ToWriteTime
	plb	; restore old data bank
	rep #$30
	Longa on
	LongI on
;	ldx #0
	clc	;DAL
	rts	; and finish
	
;--------------------------------------------------------------------
;
ToProDOS
; This routine converts seconds to ProDOS8 time format
; It leverages off of the MTHex converter for its proper use...
;
	jsr ToMTHexFormat	; get it in the MTHex format first...
; Time is now in misctools hex format, run it through the converter.
; its in [theDate] and must end up there...
ToProDOSFromMT	ldy #1
	lda [theDate],y	; load the minutes/hours and save em
	sta <theSecs+2	; save as the high word of the seconds parameter
	iny
	lda [theDate],y	; get the year back...
	and #$FF00	; strip it off by itself
*** ProDOS year 40..99 = 1940..1999, 0..39 = 2000..2039 (9-May-91 DAL)
*** We have A=$xx00, where XX = year-100.  If this is less than 40, clip to 40.
*** If this is more than 99, we need to subtract 100 and max out at 39.
	cmp #40*256
	bcc @clipTo1940
	cmp #100*256
	bcc @yearIsFine
	sbc #100*256	;carry was already set
	cmp #39*256
	bcc @yearIsFine
	lda #39*256
	bra @yearIsFine

@clipTo1940	lda #40*256
@yearIsFine
*** end of 9-May-91 DAL
	asl a	; rotate it to the proper bit position
	sta <theSecs	; and save it...
	ldy #4
	lda [theDate],y	; now get the day/month...
	tax	; save it for a second..
	and #$001F	; strip the day
	inc a	; add 1 for good measure
	ora <theSecs	; add it to the year
	sta <theSecs	; and cache it again
	txa
	and #$0F00	; strip the month off...
	xba
	inc a
	xba
	lsr a	; shift it over 3 bits right
	lsr a	; shift it over 3 bits right
	lsr a	; shift it over 3 bits right
	ora <theSecs	; add it to the rest of the pdos date
	sta [theDate]	; and put it in the returned record
	ldy #2
	lda <theSecs+2
	sta [theDate],y	; now store the pdos time in the record
	clc	; return no error (DAL)
	rts
	
;--------------------------------------------------------------------
;
FromProDOS
; This routine takes a ProDOS formatted datetime record and converts it
; to seconds. To do this it first converts it to MTHex format then it
; calls fromMTHexFormat to finish the call...
;

***	jsr ToMTFromProDOS	; put it in MTHex format first
***	bra FromMTHexFormat	; and now convert to to seconds

*** rewrite FromProDOS, 20-May-91 DAL
	pha
	pha
	ldy #2
	lda [<theDate],y
	pha
	lda [<theDate]
	pha
	tsc
	inc a
	sta <theDate
	stz <theDate+2	;point <theDate at 8 bytes on the stack
	jsr ToMTFromProDOS	; put it in MTHex format first
	jsr FromMTHexFormat	; and now convert to seconds
	pla
	pla
	pla
	pla	;got rid of 8 temporary bytes
	rts	;return Carry status from FromMTHexFormat
*** end of 20-May-91 DAL

ToMTFromProDOS	ldy #2	; first, suck up the timeword
	lda [theDate],y	; we now have the time word...
	tax	; save it in <X> for now
	lda [theDate]	; now get the DateWord
	sta <theVerb	; save the verb for a second
	lda #0	; be sure to set seconds to zero..
	sta [theDate]
	dey	; offset for MTHex Minutes/hours
	txa	; get the minutes/hours back...
	sta [theDate],y	; and save it
	lda <theVerb	; now extract the date data from ProDOS...
	and #$FE00	; strip the year
	lsr a	; make it a proper year
	xba

;; Clamp for pre 1904 dates here!
;	cmp #4
;	bge @yrOK
;	lda #4
;@YrOK
*** 9-May-91 DAL -- use new definition of 7-bit ProDOS year number (P8 Technical Note #28)
*** 40..99 = 1940..1999, 0..39 = 2000..2039
	cmp #40
	bcs @yearOK
	adc #100
@yearOK
*** end of 9-May-91 DAL

	ldy #3	; offset to the MTHexYear
	sta [theDate],y	; and stow the year...
	lda <theVerb
	and #$001F	; strip the day off...
	dec a	; convertit to MTHex base
	iny
	sta [theDate],y	; and now save the day...
	lda <theVerb
	and #$01E0	; finally strip the month..
	asl a	; rotate it over by 3
	asl a
	asl a	; (its now in bits 8-11)
	xba	; put it in the low word...
	dec a
	iny
	sta [theDate],y	; and stow it..
	clc	;return no error (DAL)
	rts	; and simply return (Weekday not set by this routine)
	
;--------------------------------------------------------------------
;
ToMTHexFormat
; This routine converts the seconds to MiscTools HexFormat
;
	php
	sei	; turn off interupts
	jsr FudgeTimeVectors
	jsr SetupToData
	jsr CallReadHex	; call readTimeHex
	jsr RestoreTimeVectors
	plp
	clc	; for now, no errors
	rts

;--------------------------------------------------------------------
;
ToASCIITimeFormat
; This routine converts the seconds to MiscTools HexFormat
;
	php
	sei	; turn off interupts
	jsr FudgeTimeVectors
	jsr SetupToData
	jsr CallReadASCII	; call readTimeHex
	jsr RestoreTimeVectors
	plp
	clc	;no error (DAL)
	rts

;---------------------------------------------------------------------
;
FromMTHexFormat
; This routine converts from MTHexFormat to seconds...
;
	php
	sei
	jsr FudgeTimeVectors
	jsr CallWriteHex
	jsr SetUpFromData
	jsr RestoreTimeVectors
	plp
	clc	; for now no errors!
	rts
	
TimeDummy	rts
FudgeTimeVectors
;
; First we patch both the toReadTime and toWriteTime vectors to do nothing but return
;
	lda >ToWriteTime
	sta >OldWriteTime
	lda >ToWriteTime+2
	sta >OldWriteTime+2
	lda >ToReadTime
	sta >OldReadTime
	lda >ToReadTime+2
	sta >OldReadTime+2
	
;; and save the old contents of ClockRTime and clockWTime
	lda >CLKRDATA
	sta >savedRData
	lda >CLKRDATA+2
	sta >savedRData+2
	lda >CLKRDATA+4
	sta >savedRData+4
	lda >CLKRDATA+6
	sta >savedRData+6
	
;
; Now patch in the new vectors, but first disable interupts...
	
	lda >MyDummyRtn
	sta >ToWriteTime
	sta >ToReadTime
	lda >MyDummyRtn+2
	sta >ToWriteTime+2
	sta >toReadTime+2
	rts
	
SetUpToData	lda <theSecs
	sta >CLKRDATA
	lda <theSecs+2
	sta >CLKRDATA+2
	rts
;	
SetUpFromData	lda >CLKWData
	sta <Result
	lda >CLKWDATA+2
	sta <Result+2
	rts
	
RestoreTimeVectors
	lda >SavedRData
	sta >CLKRDATA
	lda >SavedRData+2
	sta >CLKRDATA+2
	lda >SavedRData+4
	sta >CLKRDATA+4
	lda >SavedRData+6
	sta >CLKRDATA+6
	
;; restore the old vectors...
	lda >OldWriteTime
	sta >ToWriteTime
	lda >OldWriteTime+2
	sta >ToWriteTime+2
	lda >OldReadTime
	sta >ToReadTime
	lda >OldReadTime+2
	sta >ToReadTime+2
	rts

MyDummyVector	clc
	rtl
MyDummyRtn	JML MyDummyVector

;; Routine to call read time HEX
CallReadHex
	pha	; push on room for result
	pha
	pha
	pha
	_ReadTimeHex
	pla
	sta [theDate]
	pla
	ldy #2
	sta [theDate],y
	pla
	iny
	iny
	sta [theDate],y
	pla
	iny
	iny
	and #$FF00	; make the null byte really zero!
	sta [theDate],y
	rts	; and end...

;; Routine to call read time ASCII
CallReadASCII
	pei <theDate+2	; push the pointer to our output buffer
	pei <theDate
	_ReadASCIITime
	rts	; and end...

; routine to call write time HEX
CallWriteHex
	ldy #4
	lda [theDate],y
	pha
	dey
	dey
	lda [theDate],y
	cmp #$0400	; is the year less than 1904?
	bge @YrOK	; nope, its OK
	and #$00FF
	ora #$0400
@YrOK
	pha
	lda [theDate]
	pha
	_WriteTimeHex
	rts
		
oldReadTime	ds.L 1
OldWriteTime	ds.L 1
SavedRData	ds.L 2
	EndP


	EJECT
*******************************************************************************
*
* Description:	SysBeep2(beepType)
*
* New call 17-Sep-90 DAL
*
* Calls SendRequest to let anybody accepting requests decide what kind of sound
* to make, if any.
*
* If nobody accepts the request, then we do a regular SysBeep, or nothing,
* depending on bit 15 of the beepType.
*
* beepType:  bit 15: 1 = no sound if nobody accepts the request
*                    0 = SysBeep if nobody accepts the request
*            bit 14: 1 = do the beep on the next GetNextEvent
*                    0 = do it now
*            bits 13-0 = beep type
*
* Inputs:	beepType (word)
*
* Outputs:	None
*
* NOTE--This is used by the TS2 *and* TS3 files, so don't put any ROM-specific
*       stuff in this call!
*
*******************************************************************************
SysBeep2	PROC EXPORT

beepType	equ 7

	lda beepType,s
	and #$4000	;the GetNextEvent flag
	beq @doItNow

	pea 0
	_EMStatus
	pla
	beq @doItNow

	lda >PendingSysBeep2
	bne @toExit	;already have one pending, ignore
	lda beepType,s
	and #$BFFF	;mask out the GetNextEvent bit
	sta >PendingSysBeep2
@toExit	bra exit

@doItNow

*** added 18-Jul-92 DAL -- Tell screen dimmers to bring back the real screen
	lda beepType,s
	and #$3ff0
	cmp #$0060	;006x = dim screen, undim screen
	beq @noUndim
	ldx #0
	pea $000D	;srqForceUndim
	phx	;sendToAll
	phx
	phx	;target=NIL
	phx
	phx	;dataIn=NIL
	phx
	phx	;dataOut=NIL
	_SendRequest
@noUndim
*** end 18-Jul-92

*** Before broadcasting request, send to Sound Control Panel
	lda beepType,s
	and #$3fff
	pea 1	;systemSaysBeep
	pea $8001	;stop after one, sendToName
	pushlong #SoundCPName
	ldx #0
	phx	;dataIn high word (0)
	pha	;dataIn low word (beepType)
	phx
	phx	;dataOut = 0
	_SendRequest
	bcc exit

	lda beepType,s
	and #$3fff	;added 16-Oct-90 DAL
	pea 1	;systemSaysBeep
	pea $8000	;How = stop after first acceptance
	ldx #0
	phx
	phx	;Target=nil
	phx	;Data In high word = 0
	pha	;Data In low word = beepType
	phx
	phx	;nil OutPtr
	_SendRequest
	bcc exit

	lda beepType,s
	bmi exit
	cmp #2
	beq @two
	cmp #3
	bne @one
@three	_SysBeep
@two	_SysBeep
@one	_SysBeep

exit	ldx #0	;error code = 0
	ldy #2	;get rid of 2 bytes
	jml ToStrip

SoundCPName	dc.b 14,'Apple~SoundCP~'

	EndP


*****************************************************************
*
* NewSysBeep
*
* The new sysbeep routine.  This routine calls the old sysbeep
* routine if the volume is not set to zero and flashes the
* border when it is	set to zero.
*
* Inputs:  None
* Outputs: CLC if we completely handled the necessary beeping
* all registers preserved
* Called in any native mode--mode preserved.
*
*****************************************************************
OrigBellVector	proc Export
	dc.L 0
	ENDP

	EXPORT NewSysBeep
NewSysBeep	PROC
	phx	; preserve <X> and <Y> & <A> inside this routine
	phy
	pha
	php	; save m and x
	sep #$30	; 8 bit mode
	longa off
	longi off

	lda >IRQ_Volume	; look at the volume
	and #$0F
	beq ExitSEC	;the ROM can handle this already

	lda >$e102c0+$5E
	lsr a
	bcs ExitSEC	;the ROM can handle this too (no special blink)
	lda >IRQ_Volume
	pha
	lda #0
	sta >IRQ_Volume
	phb
	pea $e1e1
	plb
	plb
	phk
	per @returnHere-1
	pea $0083-1	;there's an RTL at $FF/0083
	sep #$30
	jml >$ff9a58	;ROM code will blink because volume=0
@returnHere	plb
	sep #$30
	pla
	sta >IRQ_Volume
	sta >$e1c03c

ExitSEC	plp	; nonzero so set carry and get out
	pla	
	ply	; restore <X> and <Y> & <A> here
	plx
	sec
	rtl

	longa on
	longi on

	ENDP


*******************************************************************************
*
* VersionString
*
* New call 5-Dec-90 DAL
*
* Description:	$3903 VersionString(flags,Version/4,@Buffer)
*
* flags = 0 (bits 15-0 reserved)
*
* Version = 32 bits:
*
*         _________________________________________________________________
* bit 31  |M|M|M|M|M|M|M|M|m|m|m|m|b|b|b|b|s|s|s|0|0|0|0|0|r|r|r|r|r|r|r|r|  bit 0
*         -----------------------------------------------------------------
*                         |               |               |
*
*           M = major version (2 digits, BCD)
*           m = minor version
*           b = bug version
*           s = stage (001=development, 010=alpha, 011=beta, 100=final, 101=released)
*           r = release (2 digits, BCD)
*
* Buffer points to a 10-character buffer to receive a Pascal string:
*   MM.m.bSrr
*
*******************************************************************************
VersionString	proc export

oldD	equ 1
rtl1	equ oldD+2
rtl2	equ rtl1+3
buffPtr	equ rtl2+3
theVersion	equ buffPtr+4
theFlags	equ theVersion+4

	phd
	tsc
	tcd

	lda #0
	sta [buffPtr]

	lda theVersion+3	;Major version byte
	jsr DoVersByte

	jsr AppendDot
	lda theVersion+2	;minor version
	jsr LSR4
	jsr DoVersNibble

	lda theVersion+2	;bug version
	and #$000f
	beq @noBug
	jsr AppendDot
	lda theVersion+2
	jsr DoVersNibble
@noBug

	lda theVersion
	cmp #$A000	;stage = 101
	beq @released

	lda theVersion+1
	and #$001f	;reserved bits
	beq @valid
	lda #0
	bra @WeirdStage

@Valid	lda theVersion+1
	and #$00e0
	jsr LSR4
	lsr a
@WeirdStage	tax
	lda >StageCharacters,x
	jsr AppendChar
	lda theVersion
	jsr DoVersByte

@released	pld
	ldx #0	;error code = 0
	ldy #10	;strip 10 bytes
	jml ToStrip

StageCharacters	dc.b '?dabf???'
	
LSR4	lsr a
	lsr a
	lsr a
	lsr a
	rts

DoVersByte	pha
	jsr LSR4
	jsr AppendNotZero
	pla
DoVersNibble	and #$000f
	ora #'0'
	cmp #'9'+1
	bcc AppendChar
	lda #'?'
	bra AppendChar

AppendNotZero	and #$000f
	bne DoVersNibble
	rts

AppendDot	lda #'.'
AppendChar	sep #$30
	pha
	lda [buffPtr]
	inc a
	sta [buffPtr]
	tay
	pla
	sta [buffPtr],y
	rep #$30
	rts

	EndP

*******************************************************************************
*
* WaitUntil
*
* New call 6-Jan-91 DAL
*
* Description:	$3A03  WaitUntil(WaitFromTime,DelayTime) --> returns NewTime
*
* WaitUntil is used for putting a maximum speed on repeated actions that the
* user can see.  (For example, menu item blinking, blinking a control in response
* to a keypress, continuous scrolling, and zoom-rect effects.)
*
* Time specifies the time to wait *from*.  Zero means to wait from the
* current time.  Other values should come from previous calls to WaitUntil.
*
* DelayTime specifies how long to wait from WaitFromTime, in units of approximately
* 1/16 of a tick.  Zero means to return right away, giving a valid NewTime value.
*
* WaitUntil multiplies the delay time by BRAM location $60 minus 1, unless the
* location is $00 or $FF (defaults for ROM 1 and ROM 3).  The wait maxxes out
* at $F00 ticks (64 seconds) to avoid wrap-around problems.
*
*******************************************************************************
WaitUntil	proc export

oldD	equ 1
rtl1	equ oldD+2
rtl2	equ rtl1+3
DelayTime	equ rtl2+3
WaitFromTime	equ DelayTime+2
NewTime	equ WaitFromTime+2

	phd
	tsc
	tcd

* If interrupts are disabled, get out of here.

	stz <NewTime
	php
	php
	pla
	and #4	;Interrupts disabled?
	bne Exit

* Multiply DelayTime based on battery-RAM location

	pha
	pea $60
	_ReadBParam
	pla
	beq @noMultiply
	cmp #$00ff
	beq @noMultiply

	pha
	pha	;result space for _Multiply
	dec a	;BRAM value - 1
	pha
	pei <DelayTime
	_Multiply
	pla
	plx
	bne @maxtime
	cmp #$f000
	bcc @storeTime
@maxtime	lda #$f000	;don't get too big, or we'll delay by accident
@storeTime	sta <DelayTime

@noMultiply
* If WaitFromTime is 0, use the current time.
	lda <WaitFromTime
	bne @haveFromTime
	jsr GetTime
	sta <WaitFromTime
@haveFromTime

@wait	jsr GetTime
	tay
	bne @1
	inc a
@1	sta <NewTime	;never return NewTime=0

	sec
	sbc <WaitFromTime
	cmp <DelayTime
	bcc @wait

Exit	pld
	ldx #0	;error code = 0
	ldy #4	;strip 4 bytes of input parameters
	jml ToStrip

*
* GetTime--return A = Now in 16ths of a tick
*
* For now, we just use the tick count.  Can be improved later.
*
GetTime	pha
	pha
	_GetTick
	pla
	ply
	asl a
	asl a
	asl a
	asl a
	rts

	EndP


*******************************************************************************
*
* $3B03 StringToText -- new call 4-Mar-91 DAL
*
* Inputs:  WORD  space for result flags
*          WORD  space for result length
*          WORD  input flags
*          LONG  pointer to input text
*          WORD  length of input text
*          LONG  pointer to result buffer (GS/OS result buffer)
*
* The output buffer is a GS/OS result buffer:
*   +000: buffer size (including the header fields)
*   +002: data length
*   +004: the actual data (up to buffer-size minus 4 bytes)
*
* The Flags input word:
*   bit 15: allow mousetext in result
*   bit 14: allow multi-character substitutions into result
*   bit 13: force language number (bits 2..0)
*   bit 12: translate weird characters to self instead of to null
*   bits 11-3: reserved (must be 0)
*   bits 2-0: language number
*      0=USA, 1=UK, 2=French, 3=Danish, 4=Spanish, 5=Italian,
*      6=German, 7=Swedish (just like bits 7-5 of $C02B)
*
* The ResultFlags word:
*   bit 15: 1=changes were made to the string, 0=no changes
*   bits 14-0: reserved (ignore)
*
*******************************************************************************
StringToText	proc export
	phb
	phk
	plb
	phd
	pha
	pha	;space for @out
	pha	;space for @spaceLeft
	pha	;space for @language
	lda #0
	pha
	pha	;space/value for @sourceHandle
	tsc
	tcd

@sourceHandle	equ 1
@language	equ @sourceHandle+4
@spaceLeft	equ @language+2
@out	equ @spaceLeft+2
@oldB	equ @out+4
@oldD	equ @oldB+1
@rtl	equ @oldD+2
@OutBuff	equ @rtl+6
@inputLen	equ @OutBuff+4
@input	equ @inputLen+2
@flags	equ @input+4
@PrintLength	equ @flags+2
@ResultFlags	equ @PrintLength+2	;added 15-Apr-91 DAL

	stz @PrintLength	;start with printable length = 0
	stz @ResultFlags

*** If source is inside output buffer, put it somewhere safe
	sec
	lda <@input
	sbc <@outBuff
	tax
	lda <@input+2
	sbc <@outBuff+2
	bcc @alreadySafe	;input<outbuff -- no overlap
	bne @alreadySafe	;input-outbuff > 64K -- no overlap
	txa
	cmp [@outBuff]	;input-outbuff > buffsize -- no overlap
	bcs @alreadySafe

	pha
	pha	;space for NewHandle result
	pea 0
	pei <@inputLen	;size needed
	pea $4003	;memory ID
	pea $8000	;attributes (locked)
	pha
	pha
	_NewHandle
	tax
	ply
	pla
	bcc @nhOK
	brl @exit
@nhOK	sta <@sourceHandle+2
	sty <@sourceHandle

	pei <@input+2
	pei <@input
	pha	;AY is still <@sourceHandle
	phy
	pea 0
	pei <@inputLen
	_PtrToHand

	ldy #2
	lda [<@sourceHandle],y
	sta <@input+2
	lda [<@sourceHandle]
	sta <@input
@alreadySafe

	lda [@OutBuff]
	sec
	sbc #4
	sta @spaceLeft
	bcc @tooSmall

*** Zero out the data size word in the result buffer
	ldy #2
	lda #0
	sta [@outBuff],y

*** start by assuming the language we want is what the character generator
*** is already using (bits 7-5 of LANGSEL, $C02B)
	lda >$E0C02B
	and #$00E0
	lsr a
	lsr a
	lsr a
	lsr a
	lsr a
	sta <@language

*** Check for pass-through flag
	lda <@flags
	and #$1000
	sta passThruFlag
	trb <@flags	;clear bit 12 in <@flags

	lda <@flags
	and #$2000	;bit 13 forces language number
	beq @noForceLang
	lda <@flags
	and #7
	sta <@language
@noForceLang

*** clear all the unwanted flag bits
	lda #$3FFF
	trb <@flags

*** @out = @OutBuff+4 (point to first result byte in the buffer)
	ldx <@OutBuff+2
	lda <@OutBuff
	clc
	adc #4
	sta <@out
	bcc @1
	inx
@1	stx <@out+2

	lda <@inputLen
	beq @storeLengthNoErr
@CharLoop	lda [<@input]
	and #$00ff
	jsr @EmitTranslation
	bcs @tooSmall
	inc <@input
	bne @2
	inc <@input+2
@2	dec <@inputLen
	bne @CharLoop

@storeLengthNoErr	ldx #0
	bra @storeLength

@tooSmall	ldx #$034F

@storeLength	sec	;error in X
	lda @out
	sbc @outBuff
	sec
	sbc #4
	ldy #2
	sta [<@outBuff],y

@exit
*** kill sourceHandle if we allocated one
	phx
	lda <@sourceHandle+1
	beq @noSourceHandle
	pei <@sourceHandle+2
	pei <@sourceHandle
	_DisposeHandle
@noSourceHandle	plx

	pla
	pla	;removed @sourceHandle
	pla	;removed @language
	pla	;removed @spaceLeft
	pla
	pla	;removed @out
	pld	;error in X
	plb
	ldy #12	;strip 12 bytes of input parameters
	jml $e10184	;ToStrip

*******************************************************************************
*
* EmitCharacter
*
* Input: Character in A
*
* Output: Decrements @spaceLeft, increments @Out
*
*******************************************************************************
@EmitCharacter	sec
	ldx @spaceLeft
	beq @full
	dec @spaceLeft
	sep #$20
	sta [@Out]
	rep #$20
	inc @Out
	bne @ok
	inc @Out+2
@ok	cmp #$0020	;printable character?
	bcc @noPrint
	inc @PrintLength
@noPrint	clc
@full	rts

*******************************************************************************
*
* EmitTranslation -- translate a single character
*
* Inputs: A = character to translate
*         @Language = language number
*         @Flags: bit 15 = allow mousetext, 14 = allow expansion
*
* Updates: @Out, @spaceLeft, @PrintLength
*
* Output: Returns SEC if the output buffer is full
*
*******************************************************************************
@EmitTranslation

*** Before we dive into the big table, let's weed out big ranges.
*** If bit 7 is on or it's one of the characters that gets remapped
*** across display languages or it's a control character, go for the
*** table.  Otherwise emit it as-is, as a printable character.

	cmp #$007b
	bcs @useTable
	cmp #$0061
	bcs @EmitCharacter
	cmp #$005B
	bcs @useTable
	cmp #$0041
	bcs @EmitCharacter
	cmp #$0023
	beq @useTable
	cmp #$0040
	beq @useTable
	cmp #$20
	bcs @EmitCharacter
;fall into @useTable

*******************************************************************************
*
* @useTable -- emit the translation for the character in A
*
*******************************************************************************
@useTable	sep #$20	;16-Jan-92 DAL
	sta XlateTable
	rep #$20	;16-Jan-92 DAL
	ldx #XlateEnd-XlateTable
@resumeSearch	lda XlateTable
@search	dex
	dex
	dex
	dex
	dex
	sep #$20
	cmp XlateTable,x
	rep #$20

	bne @search
*** If there are bits set in the translation flags that aren't in the caller's
*** flags, then this translation is no good, keep looking (mousetext or expansion)
	lda @flags
	eor #$C000	;top 2 bits
	and XlateTable+1,x	;16-Jan-92 DAL
	bne @resumeSearch
*** If this translation is for a particular language, make sure it's the one we need
	lda XlateTable+1,x	;16-Jan-92 DAL
	and #$2000	;one language?
	beq @match
	lda XlateTable+1,x	;16-Jan-92 DAL
	and #7
	cmp @language
	bne @resumeSearch

@match	lda XlateTable+3,x	;translation	;16-Jan-92 DAL
	beq @null
	inc a
	beq @default
	dec a
	tax

*** Set the Changed result-flag bit if it's changing
	lda XlateTable
	and #$00ff	;16-Jan-92 DAL
	xba
	inc a	;A = $cc01
	cmp |0,x
	beq @noChange	;substitution string exactly matches input character!

	lda #$8000
	tsb <@ResultFlags
@noChange

	lda |0,x
	and #$00ff
	tay	;number of characters in translation
@emitMultiple	inx
	lda |0,x
	and #$00ff
	phx
	jsr @EmitCharacter
	plx
	bcs @oopsFull
	dey
	bne @emitMultiple

	clc
@oopsFull	rts

@null
*** If passThruFlag is set, emit the character
	lda passThruFlag
	beq @oldWay
	lda XlateTable
	and #$00ff
	brl @EmitCharacter
@oldWay
	lda #$8000	;15-Apr-91 DAL
	tsb <@resultFlags
	clc
	rts

*
* @default -- character not in table, so emit it if it's printable
*
@default	lda XlateTable	;get the character back
	and #$00ff
	cmp #$0080
	bcs @null
	cmp #$0020
	bcc @null
	brl @EmitCharacter

*******************************************************************************
*
* XlateTable
*
* 5 bytes per translation entry:
*   +000: source character (byte)
*   +001: flags (15=MouseText, 14=expands, 13=one language only)
*   +003: pointer to replacement string (0=replace with null string, $FFFF=not found)
*
* Note that the table is searched from end to beginning, so higher-precedence
* translations must come later in the table.
*
*******************************************************************************

	macro
	trans &char,&flags,&ptr
	dc.b &char
	dc.w &flags,&ptr
	mend

XlateTable	trans $77,$0000,$FFFF	;character, flags, replace

*** generic foreign characters and other
*** last-resort things (must be searched after foreign language stuff)
	trans $7F,$0000,$0000	;kill DELs
	trans $80,$0000,aBigA	;umlat A
	trans $81,$0000,aBigA	;angstrom A
	trans $82,$0000,aBigC	;cedilla C
	trans $83,$0000,aBigE	;accent E
	trans $84,$0000,aBigN	;tilde N
	trans $85,$0000,aBigO	;umlat O
	trans $86,$0000,aBigU	;umlat U
	trans $87,$0000,aSmallA	;accent a
	trans $88,$0000,aSmallA	;grave a
	trans $89,$0000,aSmallA	;hat a
	trans $8A,$0000,aSmallA	;umlat a
	trans $8B,$0000,aSmallA	;tilde a
	trans $8C,$0000,aSmallA	;angstrom a
	trans $8D,$0000,asmallC	;cedilla c
	trans $8E,$0000,aSmallE	;accent e
	trans $8F,$0000,aSmallE	;grave e
	trans $90,$0000,aSmallE	;hat e
	trans $91,$0000,aSmallE	;umlat e
	trans $92,$0000,aSmalli	;accent i
	trans $93,$0000,aSmalli	;grave i
	trans $94,$0000,aSmalli	;hat i
	trans $95,$0000,aSmalli	;umlat i
	trans $96,$0000,aSmallN	;tilde n
	trans $97,$0000,aSmallO	;accent o
	trans $98,$0000,aSmallO	;grave o
	trans $99,$0000,aSmallO	;hat o
	trans $9A,$0000,aSmallO	;umlat o
	trans $9B,$0000,aSmallO	;tilde o
	trans $9C,$0000,aSmallU	;accent u
	trans $9D,$0000,aSmallU	;grave u
	trans $9E,$0000,aSmallU	;hat u
	trans $9F,$0000,aSmallU	;umlat u
	trans $A7,$4000,aSmallSS	;german "§" --> "ss" (21-Jan-92 DAL)
	trans $AE,$4000,aBigAE	;AE
	trans $AF,$0000,aZero	;big PHI
	trans $BE,$4000,aSmallAE	;ae
	trans $BF,$0000,aZero	;small PHI
	trans $C0,$0000,aQuestion	;"À"
	trans $C1,$0000,aBang	;"Á"
	trans $C9,$4000,anEllipsis	;"É"
	trans $CB,$0000,aBigA	;grave A
	trans $CC,$0000,aBigA	;tilde A
	trans $CD,$0000,aBigO	;tilde O
	trans $CE,$4000,aBigOE	;OE
	trans $CF,$4000,aSmallOE	;oe
	trans $D8,$0000,aSmallY	;umlat y

*** Translate unclaimed #, @, [, backsl, ], {, |, }, ~ (but not grave accent)
	trans $23,$0000,$0000
	trans $40,$0000,$0000
	trans $5B,$0000,aLeftParen
	trans $5C,$0000,$0000
	trans $5D,$0000,aRightParen
	trans $7B,$0000,aLeftParen
	trans $7C,$0000,$0000
	trans $7D,$0000,aRightParen
	trans $7E,$0000,$0000

*** Keep grave accent unless it's stolen by a foreign language
	trans $60,$0000,aGraveAccent

*** English--keep special characters #, @, [, backsl, ], `, {, |, }, ~
	trans $23,$2000,aPoundSign
	trans $40,$2000,anAtSign
	trans $5B,$2000,aLeftBracket
	trans $5C,$2000,aBackslash
	trans $5D,$2000,aRightBracket
	trans $7B,$2000,aLeftBrace
	trans $7C,$2000,aVertBar
	trans $7D,$2000,aRightBrace
	trans $7E,$2000,aTilde
*** U.K. English
	trans $A3,$2001,aPoundSign	;£
	trans $40,$2001,anAtSign
	trans $5B,$2001,aLeftBracket
	trans $5C,$2001,aBackslash
	trans $5D,$2001,aRightBracket
	trans $7B,$2001,aLeftBrace
	trans $7C,$2001,aVertBar
	trans $7D,$2001,aRightBrace
	trans $7E,$2001,aTilde
*** French
	trans $A3,$2002,aPoundSign	;£
	trans $88,$2002,anAtSign	;grave a
	trans $A1,$2002,aLeftBracket	;degree symbol
	trans $8D,$2002,aBackslash	;cedilla c
	trans $A4,$2002,aRightBracket	;paragraph symbol
	trans $8E,$2002,aLeftBrace	;accent e
	trans $9D,$2002,aVertBar	;grave u
	trans $8F,$2002,aRightBrace	;grave e
	trans $AC,$2002,aTilde	;umlat
*** Danish
	trans $23,$2003,aPoundSign
	trans $40,$2003,anAtSign
	trans $AE,$2003,aLeftBracket	;AE
	trans $AF,$2003,aBackslash	;big PHI
	trans $81,$2003,aRightBracket	;angstrom A
	trans $BE,$2003,aLeftBrace	;ae
	trans $BF,$2003,aVertBar	;small PHI
	trans $8C,$2003,aRightBrace	;angstrom a
	trans $7E,$2003,aTilde
*** Spanish
	trans $A3,$2004,aPoundSign	;£
	trans $A4,$2004,anAtSign	;paragraph
	trans $C1,$2004,aLeftBracket	;upside-down bang
	trans $84,$2004,aBackslash	;tilde N
	trans $C0,$2004,aRightBracket	;upside-down question
	trans $A1,$2004,aLeftBrace	;degree symbol
	trans $96,$2004,aVertBar	;tilde n
	trans $8D,$2004,aRightBrace	;cedilla c
	trans $7E,$2004,aTilde
*** Italian
	trans $A3,$2005,aPoundSign	;£
	trans $A4,$2005,anAtSign	;paragraph
	trans $A1,$2005,aLeftBracket	;degree symbol
	trans $8D,$2005,aBackslash	;cedilla c
	trans $8E,$2005,aRightBracket	;accent e
	trans $9D,$2005,aGraveAccent	;grave u
	trans $88,$2005,aLeftBrace	;grave a
	trans $8F,$2005,aVertBar	;grave e
	trans $98,$2005,aRightBrace	;grave o
	trans $93,$2005,aTilde	;grave i
	trans $60,$2005,aSingleQuote	;grave accent --> quote
*** German
	trans $23,$2006,aPoundSign
	trans $A4,$2006,anAtSign	;paragraph
	trans $80,$2006,aLeftBracket	;umlat A
	trans $85,$2006,aBackslash	;umlat O
	trans $86,$2006,aRightBracket	;umlat U
	trans $8A,$2006,aLeftBrace	;umlat a
	trans $9A,$2006,aVertBar	;umlat o
	trans $9F,$2006,aRightBrace	;umlat u
	trans $A7,$2006,aTilde	;"B"
*** Swedish
	trans $23,$2007,aPoundSign
	trans $40,$2007,anAtSign
	trans $80,$2007,aLeftBracket	;umlat A
	trans $85,$2007,aBackslash	;umlat O
	trans $81,$2007,aRightBracket	;angstrom A
	trans $8A,$2007,aLeftBrace	;umlat a
	trans $9A,$2007,aVertBar	;umlat o
	trans $8C,$2007,aRightBrace	;angstrom a
	trans $7E,$2007,aTilde

*** MouseText translations
	trans $11,$8000,mtOpenApple	;hollow Apple
	trans $12,$8000,mtCheckMark	;check mark
	trans $13,$8000,mtDiamont	;solid diamond
	trans $14,$8000,mtSolidApple	;solid Apple
	trans $7F,$8000,mtCheckerboard	;DEL --> checkerboard
	trans $C9,$8000,mtEllipsis	;ellipsis
	trans $D7,$8000,mtDiamond	;hollow diamond

*** Generic typographical things
	trans $A5,$0000,aBullet	;¥
	trans $A8,$4000,aRegistered	;¨
	trans $A9,$4000,aCopyright	;©
	trans $AA,$4000,aTrademark
	trans $AB,$0000,aSingleQuote	;forward-slant apostrophe
	trans $AD,$4000,aNotEqual	;­
	trans $B1,$4000,aPlusMinus	;±
	trans $B2,$4000,aLessEqual	;²
	trans $B3,$4000,aGreatEqual	;³
	trans $B5,$0000,aSmallU	;micro
	trans $C4,$0000,aSmallF	;Ä
	trans $C7,$4000,aLessLess	;<<
	trans $C8,$4000,aGreatGreat	;>>
	trans $CA,$0000,aBlank
	trans $D0,$0000,aHyphen	;Ð
	trans $D1,$0000,aHyphen	;if lengthening not allowed
	trans $D1,$4000,aDash	;Ñ
	trans $D2,$0000,aDoubleQuote	;Ò
	trans $D3,$0000,aDoubleQuote	;Ó
	trans $D4,$0000,aSingleQuote	;Ô
	trans $D5,$0000,aSingleQuote	;Õ

*** Things added at Yvan Koenig's request (characters above $D8 are a mystery to me)
	trans $A2,$0000,aSmallC	;cent
	trans $B4,$0000,aBigY	;Yen
	trans $BB,$0000,aSmallA	;ordFeminine
	trans $BC,$0000,aSmallO	;ordMasculine
	trans $BD,$0000,aBigO	;Omega
	trans $D9,$0000,aBigY	;Y dieresis
	trans $DA,$0000,aSlash	;Fraction
	trans $DB,$0000,aSmallO	;currency
	trans $DC,$0000,aSmaller	;guillsingleLeft
	trans $DD,$0000,aGreater	;guillsingleRight
	trans $DE,$4000,aFI		;fi
	trans $DF,$4000,aFL		;fl
	trans $E1,$0000,aPeriod	;periodCentered
	trans $E2,$0000,aComma	;quoteSingleBase
	trans $E3,$4000,aCommaPair	;quoteDblBase
	trans $E5,$0000,aBigA	;Acircumflex
	trans $E6,$0000,aBigE	;Ecircumflex
	trans $E7,$0000,aBigA	;Aacute
	trans $E8,$0000,aBigE	;Ecircumflex
	trans $E9,$0000,aBigE	;Egrave
	trans $EA,$0000,aBigI	;Iacute
	trans $EB,$0000,aBigI	;Icircumflex
	trans $EC,$0000,aBigI	;Idieresis
	trans $ED,$0000,aBigI	;Igrave
	trans $EE,$0000,aBigO	;Oacute
	trans $EF,$0000,aBigO	;Ocircumflex
	trans $F0,$8000,mtSolidApple
	trans $F1,$0000,aBigO	;Ograve
	trans $F2,$0000,aBigU	;Uacute
	trans $F3,$0000,aBigU	;Ucircumflex
	trans $F4,$0000,aBigU	;Ugrave
	trans $F5,$0000,aSmallI	;dotless i
XlateEnd

*** new entries 16-Jan-92 DAL
aUpperI	dc.b 1,'I'
aCommaPair	dc.b 2,',,'
aComma	dc.b 1,','
aPeriod	dc.b 1,'.'
aFL	dc.b 2,'fl'
aFI	dc.b 2,'fi'
aGreater	dc.b 1,'>'
aSmaller	dc.b 1,'<'
aSlash	dc.b 1,'/'
aBigY	dc.b 1,'Y'
aBigI	dc.b 1,'I'
*** end 16-Jan-92

aPoundSign	dc.b 1,'#'
anAtSign	dc.b 1,'@'
aLeftBracket	dc.b 1,'['
aBackslash	dc.b 1,'\'
aRightBracket	dc.b 1,']'
aGraveAccent	dc.b 1,'`'
aLeftBrace	dc.b 1,'{'
aVertBar	dc.b 1,'|'
aRightBrace	dc.b 1,'}'
aTilde	dc.b 1,'~'

aLeftParen	dc.b 1,'('
aRightParen	dc.b 1,')'

aBlank	dc.b 1,' '
aHyphen	dc.b 1,'-'
aDash	dc.b 2,'--'
aDoubleQuote	dc.b 1,$22
aSingleQuote	dc.b 1,$27
aQuestion	dc.b 1,'?'
aBang	dc.b 1,'!'
aSmallA	dc.b 1,'a'
aSmallC	dc.b 1,'c'
aSmallE	dc.b 1,'e'
aSmallF	dc.b 1,'f'
aSmalli	dc.b 1,'i'
aSmallN	dc.b 1,'n'
aSmallO	dc.b 1,'o'
aSmallU	dc.b 1,'u'
aSmallY	dc.b 1,'y'
aBigA	dc.b 1,'A'
;;;aBigB	dc.b 1,'B'
aSmallSS	dc.b 2,'ss'	;16-Jan-92 DAL
aBigC	dc.b 1,'C'
aBigE	dc.b 1,'E'
aBigN	dc.b 1,'N'
aBigO	dc.b 1,'O'
aBigU	dc.b 1,'U'
aSmallAE	dc.b 2,'ae'
aBigAE	dc.b 2,'AE'
aSmallOE	dc.b 2,'oe'
aBigOE	dc.b 2,'OE'
anEllipsis	dc.b 3,'...'
aLessLess	dc.b 2,'<<'
aGreatGreat	dc.b 2,'>>'
aPlusMinus	dc.b 2,'+-'
aLessEqual	dc.b 2,'<='
aGreatEqual	dc.b 2,'>='
aBullet	dc.b 1,'*'
aRegistered	dc.b 3,'(R)'
aCopyright	dc.b 3,'(C)'
aTrademark	dc.b 4,'(TM)'
aNotEqual	dc.b 2,'<>'
aZero	dc.b 1,'0'

mtOpenApple	dc.b 3,15,$41,14	;hollow Apple
mtCheckMark	dc.b 3,15,$44,14	;check mark (normal)
mtDiamont	dc.b 3,15,$5B,14	;solid diamond
mtSolidApple	dc.b 3,15,$40,14	;solid Apple
mtCheckerboard	dc.b 3,15,$56,14	;DEL --> checkerboard
mtEllipsis	dc.b 3,15,$49,14	;ellipsis
mtDiamond	dc.b 3,15,$5B,14	;hollow diamond

passThruFlag	dc.w 0	;16-Jan-92 DAL

	EndP


*******************************************************************************
*
GetROMResource	PROC EXPORT
*
* Description:	This call will return a 'handle' to the data requested by the
*	ROM routine. This will either be a fake handle that exists
*	only in ROM, or a real resource loaded from disk. The tool
*	should not treat this resouce any different from a handle, 
*	except that it is always to be treated as read only. The 
*	parameters of this call are identical to those of the
*	real resource manager. Please refer to then for further 
*	details.
*
*
* Inputs:	On Stack
*	|  previous contents  |
*	+---------------------+
*	|                     |
*	+--    LongSpace    --+ LONG Room for result
*	|                     |
*	+---------------------+
*	|   resource type     | WORD Type of resource to find
*	+---------------------+
*	|                     |
*	+--   resource ID   --+ LONG ID of resource to load
*	|                     |
*	+---------------------+
*	|  	  | <- SP
*
*	
*
* Outputs:	On Stack
*	|  previous contents  |
*	+---------------------+
*	|                     |
*	+--   Data Handle   --+ LONG Handle to data storage
*	|                     |
*	+---------------------+
*	|  	  | <- SP
*
*
* Errors:	Memory manager errors
*	$0310   Requested data does not exist
*	        This can only happen if a ROM version of the data
*	        does not already exist.
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
*
* Patched for ROM 3 16-Feb-91 DAL so I can replace the Font Manager resources
* but keep using the other ones from ROM.
*
*******************************************************************************
	import w320start,w640start  ;from ChooseFontStuff in misc tools ROMDataMgr
;
; Equates for use with our stack frame...
SaveDPage	equ 1
RetAddr1	equ SaveDPage+2
RetAddr2	equ RetAddr1+3
resID	equ RetAddr2+3
ResType	equ ResID+4
result	equ resType+2

	phd	; save the current dpage
	tsc	; get the stack pointer
	tcd	; and make it the direct page...
	
	stz <result	; first zero out the result
	stz <result+2
	
;
; Since this tool is going to work with the resource manager, we will first 
; test to see if the resource manager is running with the status call

	pea $0000	; room for result
	_ResourceStatus
	pla
	beq UseROMData	; if this is false, use the ROM data
	
;
; If the resource manager is running, try to load the resource that we want.

	pha	; room for result
	pha
	lda <ResType	; type of resource to load
	pha
	lda <ResID+2	; ID of resource to load
	pha
	lda <ResID
	pha
	_Loadresource	;attempt to load the resource from the file
	pla	; get the result for a second...
	plx
	bcs UseROMData	; if an error occured, us the ROM resource
;
; If we get this far then we have loaded the resource from the resource file,
; and we should just return its handle to the caller...

	sta <result	; store the result in result
	stx <result+2
	ldy #0	; error code ...
	brl GRRDone	; and end the call
	
;
UseROMData
; This routine will be called when the apropriate resource is not available, it will
; look thru the ROM data tables and pick out the proper handle from the list. If it
; can not find a proper resource in the list, it will simply bomb with a data not
; found error

	ldx #0	; init our counter
FindLoop	lda >TypeList,x	; load in the first type
	cmp <resType	; does it match our desired id?
	bne tryNext	; if not, try the next one
	lda >IDList,x	; next try the ID list
	cmp <ResID	; see if the ID matches
	bne tryNext	; if not try the next one
	lda >IDList+2,x	; now the high byte of the ID
	cmp <ResID+2
	bne tryNext
	bra FoundROMData	; if all tests match, then we found the ROM data
tryNext
	lda >TypeList,x	; test to see if we are at the end of the list
	ora >IDList,x	; by finding 0's in the type and ID field
	ora >IDList+2,x
	beq NoROMData	; if this is zero, then there is no ROM data
	txa	; bump our counter
	clc
	adc #SizeofEntry	; by the size of each entry
	tax	; and try the next one...
	bra FindLoop	
NoROMData
;
; This routine places an error into Y and ends
	ldy #$0310	; data not found error
	brl GRRDone
	
FoundROMData
;
; This routine sets up the proper result and returns it to the caller.
	txa	; put table offset into <A>
	clc	; and create a pointer to our pointer
	adc #HandleTbl
	sta <Result
	lda #0
	adc #HandleTbl>>16
	sta <Result+2
	ldy #0
;	
GRRDone
; This routine moves the return address on the stack and then tests <Y> for an
; error code, and returns.

	jml >$fdd898	;back into ROM

;	lda <RetAddr1	; move the return address
;	sta <ResID
;	lda <RetAddr1+2
;	sta <ResID+2
;	lda <RetAddr1+4
;	sta <ResID+4
;	
;	pld	; recover the direct page
;	plx	; remove 6 bytes of data
;	plx
;	plx
;	
;	tya	; put the return address into <A>
;	cmp #1	; set the carry
;	rtl	; and leave


SizeofEntry 	equ 10

TypeList	dc.W $FFFF	; first resource is a sample...
IDList	dc.L 1	; please don't remove...
HandleTbl	dc.L HandleTbl	; sampleData

; Entry for Font Manager ChooseFont templates here!
	dc.W $800E	; resource Type
	dc.L $0FFF1B01	; font manager window #1
	dc.L w320Start	; from misc tools ROMDataMgr ChooseFontStuff
	
	dc.W $800E	; res type
	dc.L $0FFF1B02	; font manager window #2
	dc.L w640Start	; from misc tools ROMDataMgr ChooseFontStuff
	
; Entry for Event manager
; Default ID is now $FF instead of $01
	dc.W $8021	; res Type Ktrans table
	dc.L $0FFF06FF	; ID Number
	dc.L $00FDD6BB	; default ktrans table in ROM 3
;
; END OF ID TABLE: DO NOT MODIFY THIS NEXT RECORD
	dc.W $0000
	dc.L $00000000
	dc.L $00000000

	EndP

**********************************************************************
*
* ScanDevices -- new call 29-Mar-91 DAL
*
* Inputs:
*   WORD  space for result
*
* Outputs:
*   WORD  device number of insertion (zero if none)
*
**********************************************************************
ScanDevices	proc export

DO_INSERT_SCAN	equ $01FCDC

	sep #$20
	longa off
	lda >$e0c068
	pha
	lda >$e0c08b
	lda >$e0c08b

*** Removed 20-Aug-92 DAL -- not needed
;;;	ldx #0	;anticipate OS vector missing
;;;	lda >DO_INSERT_SCAN
;;;	cmp #$5c
;;;	bne @notThere

	rep #$20
	longa on
	jsl DO_INSERT_SCAN	;do_insert_scan
	tax
@notThere	sep #$20
	pla
	sta >$e0c068
	rep #$20
	txa
	sta 7,s
	lda #0
	clc
	rtl

	EndP

**********************************************************************
*
* AlertMessage -- new call 20-Aug-92 DAL for 6.0.1
*
* Inputs:
*   WORD  space for result
*   LONG  pointer to message table (see below)
*   WORD  message number (0=first)
*   LONG  pointer to substitution table (Pascal strings)
*
* Behavior:
*   If GS/OS is not present, return error $0377.
*   Call s_toolbox_msg vector in GS/OS.
*
* The message table goes like this:
*    dc.w messageZeroText-*,messageZeroGraphics-*
*    dc.w messageOneText-*,messageOneGraphics-*
*    ...
*
* Each message is an AlertWindow string plus three characters to
* map the buttons into return values.  (The characters should be
* '0' to '9', indicating what values to return when the first,
* second, and third buttons are chosen.)
*
* Both string offsets can point to the same string if you want, but
* the text version does not do word wrapping for you.
*
* The text version does *0..*9 and "^" for default button, but
* it does not do the "#" CompileText substitutions like AlertWindow.
*
**********************************************************************
AlertMessage	proc export

IncBusy	equ $e10064
sys_prefs	equ $00b9f6	;GS/OS system preferences
s_toolbox_msg	equ $01fce0

	phd
	tsc
	tcd

@oldD	equ 1
@rtl	equ @oldD+2
@substitutions	equ @rtl+6
@msg_number	equ @substitutions+4
@table	equ @msg_number+2
@result	equ @table+4

	jsl IncBusy

	lda >sys_prefs
	pha
	and #$dfff	;don't supress messages!
	sta >sys_prefs

	lda #$ffff
	sta <@result

	ldx #$0377	;anticipate no-GS/OS error
	lda >OS_Kind	;$00=P8, $01 = GS/OS)
	and #$00ff
	beq @error

	sep #$20
	longa off
	lda >$e0c068
	pha
	lda >$e0c08b
	lda >$e0c08b
	rep #$20
	longa on

	pei <@msg_number
	pei <@substitutions+2
	pei <@substitutions
	ldx <@table	;set up YX = pointer to error msg table
	ldy <@table+2
	jsl s_toolbox_msg
	sta <@result

	sep #$20
	pla
	sta >$e0c068
	rep #$20

@exit	ldx #0	;error code
@error	pla
	sta >sys_prefs
	pld
	ldy #10	;bytes to strip
	jml $e10180	;ToBusyStrip

	EndP


**********************************************************************
*
* DoSysPrefs -- new call 20-Aug-92 DAL for 6.0.1
*
* Inputs:
*    WORD  space for result
*    WORD  bits to clear
*    WORD  bits to set
*
* Behavior:
*   Clears the specified GS/OS SysPrefs bits.
*   Sets the specified GS/OS SysPrefs bits.
*   Returns the new SysPrefs word.
*
**********************************************************************
DoSysPrefs	proc export

sys_prefs	equ $00b9f6	;GS/OS system preferences

@rtl	equ 1
@bitsToSet	equ @rtl+6
@bitsToClear	equ @bitsToSet+2
@result	equ @bitsToClear+2

*** added 22-Oct-92 DAL -- return error $0301 under ProDOS 8
	ldx #$0301	;anticipate error
	lda >$e100bc
	and #$00ff
	beq @error
*** end 22-Oct-92

	lda >sys_prefs
	sta @result,s	;1-Oct-92 DAL

	lda @bitsToClear,s
	eor #$ffff
	and >sys_prefs
	ora @bitsToSet,s
	sta >sys_prefs

	ldx #0
@error	ldy #4
	jml $e10184	;ToStrip

	EndP

**********************************************************************
*
* ShowBootInfo -- new call 29-Mar-91 DAL for 6.0
*
* Inputs:
*    LONG  Pascal string pointer or NIL
*            (Set bit 31 of string pointer to reinitialize ShowBootInfo)
*    LONG  Icon pointer (DrawIcon style) or NIL
*            (Set bit 31 of icon pointer to re-use previous location)
*
*
* The text-based splash screen has lines in this format:
*    "System Dispatch Table v04.00d4"
*    "ProDOS FST            v04.00"
*    (22 characters before the version)
*
* The input string should be in this format.
*
* Icon format:
*   +000: iconType
*   +002: icon size
*   +004: icon height
*   +006: icon width (in 4-bit pixels)
*
**********************************************************************
ShowBootInfo	proc export

;;;PlasterIconsHere	equ 174*160+$E12000
BottomRow	equ 174*160+$2000
RowDecrement	equ 26*160
TheScreen	equ $e12000

FirstIconPosition	equ 2	;horizontal byte offset

	phd
	pha
	pha	;space for @screen
	pha
	pha	;space for @mask
	pha
	pha	;space for @ptr
	tsc
	tcd

@ptr	equ 1
@mask	equ @ptr+4
@screen	equ @mask+4
@oldD	equ @screen+4
@rtl	equ @oldD+2
@icon	equ @rtl+6
@string	equ @icon+4

*** bit 31 of stringPtr = initialize self!
	lda <@string+2
	bpl @notInit
	lda #$ffff
	sta >FirstTextLine
	lda #FirstIconPosition
	sta >IconXPosition
	lda #BottomRow
	sta >PlasterIconsHere
@notInit

*** If QuickDraw is active, don't do anything (in something gets initted at
*** other than boot time!)
	pea 0
	_QDStatus
	pla
	bne @exit

	lda >$e0c029
	and #$0080
	bne @doTheIcon

@doTheString	lda <@string+1
	beq @noString

	lda >FirstTextLine
	bpl @notFirstTime
	lda #0
	sta >FirstTextLine
	ldx #$fd8e	;CROUT
	jsr call_fw
@notFirstTime

	ldy #0	;start at first byte to display
@charloop	lda [<@string],y	;pick up a character to display
	and #$00ff
	beq @done	;$00 is terminator
	ora #$0080	;set high bit in case someone forgot!!!
	phy	;save Y
	jsr call_cout	;output the character
	ply	;restore Y
	iny	;next character please
	bra @charloop	;fall out
@done
	ldx #$fd8e	;CROUT
	jsr call_fw
@noString	bra @exit


@doTheIcon	lda <@icon+1
	beq @noIcon
	jsl @DrawTheIcon
@noIcon

@exit	pla
	pla	;pulled @ptr
	pla
	pla	;pulled @mask
	pla
	pla	;pulled @screen
	pld
	ldx #0
	ldy #8
	jml $e10184	;ToStrip

@DrawTheIcon

*** If bit 1 of BRAM $5F is set, skip drawing the icon
@verifyBRAM	pha
	pea $5f
	_ReadBParam
	pla
	tax
	and #%11000000
	cmp #%10000000
	beq @okay
	pea $81	;Initialize toolbox location to default value ($81)
	pea $5F
	_WriteBParam
	bra @continueIcon

@okay	txa
	and #$0002	;bit 1 = disable icon drawing
	beq @continueIcon
	rtl
@continueIcon

*** If bit 31 is set, re-use the previous icon position
	lda <@icon+2
	bpl @nextPosition
	lda >oldIconXPosition
	sta >IconXPosition
@nextPosition
	clc
	lda <@icon
	adc #8
	sta <@ptr
	lda <@icon+2
	adc #0
	sta <@ptr+2

	ldy #2	;offset to icon size
	lda <@ptr
	adc [<@icon],y
	sta <@mask
	lda @ptr+2
	adc #0
	sta <@mask+2

	ldy #6
	lda [<@icon],y	;got the width (must be even)
	lsr a	;width in bytes
	adc >IconXPosition
	cmp #160
	bcc @ok
	jsr BeginNewRow
	lda #FirstIconPosition
	sta >IconXPosition
@ok

	lda #^TheScreen	;12-Mar-92 DAL
	sta <@screen+2
	lda >PlasterIconsHere  ;12-Mar-92 DAL
	clc
	adc >IconXPosition
	sta <@screen

	ldy #4
	lda [<@icon],y	;got height
@doOneLine	pha

	ldy #6
	lda [<@icon],y
	lsr a
	tax	;byte count
	ldy #0
	sep #$30
@doOneByte	lda [<@ptr],y
	eor [<@screen],y
	and [@mask],y
	eor [<@screen],y
	sta [<@screen],y
	iny
	dex
	bne @doOneByte
	rep #$30

*** advance to next row
	ldy #6
	lda [<@icon],y	;width (pixels)
	lsr a
	tax
	adc <@ptr
	sta <@ptr
	bcc @1
	inc <@ptr+2
@1	txa
	clc
	adc <@mask
	sta <@mask
	bcc @2
	inc <@mask+2
@2	clc
	lda <@screen
	adc #160
	sta <@screen
	tax	;6-May-91 DAL
	pla	;row counter
*** See if we hit the bottom of the screen yet
	cpx #$9d00
	bcs @hitBottom
	dec a
	bne @doOneLine

@hitBottom	
*** Keep previous icon position for later
	lda >IconXPosition
	sta >oldIconXPosition

	clc
	ldy #6
	lda [<@icon],y	;width (pixels)
	lsr a
	adc >IconXPosition
	adc #2
	sta >IconXPosition

	rtl

IconXPosition	dc.w FirstIconPosition
oldIconXPosition	dc.w FirstIconPosition   ;added 20-May-91 DAL
FirstTextLine	dc.w $ffff

PlasterIconsHere	dc.w BottomRow

;
; BeginNewRow
;
BeginNewRow	lda >PlasterIconsHere
	sec
	sbc #RowDecrement
	cmp #$20a0	;off the top?
	bcs @okay
	lda #BottomRow
@okay	sta >PlasterIconsHere
	rts

call_cout	ldx #$fded
call_fw	pha	;push space for result
	pha
	pha
	pha
	pha	;push A
	phx	;push X
	phy	;push Y
	phx	;address of routine to call
	_FWEntry
	pla	;ignore results
	pla
	pla
	pla
	rts

	EndP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Patch/Patch3/QD.pch b/IIGS.601.SRC/GSToolbox/Patch/Patch3/QD.pch
new file mode 100644
index 0000000..203fd23
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Patch/Patch3/QD.pch
@@ -0,0 +1 @@
+	title 'QD Patch        GS ROM 3 Patch'
******************************************************************
*
* QD patches for ROM 3
*
* Copyright 1989-1992 Apple Computer, Inc.
* All Rights Reserved
*
******************************************************************
*
* System Disk 5.0
*
* 5/18/89	Steven Glass
*
* 31 May 89	Harry Yee
*
* Take prototype bit out of version number. Final version = 3.1  
* for System Disk 5.0.
*
* 03/06/90	Harry Yee
*
* Patching SetForeColor to patch the Menu Manager. This patch adds
* icon support for menu items. All we are doing is patching the return
* address for the call if SetForeColor is being called by the Menu
* Manager at the place we want to patch out.
*
* 4/4/90	Mensch
*
* Patched the 4 rgnOp routines so that they will properly unlock the
* right region handles. OOOOps, guess I also speeded them up just a little
* sorry for that...
*
* 17-Sep-90	Dave Lyons
*
* Harry's FinishSetForeColor and FinishPtInRect pathces had been
* commented out.  I'm putting them back in for 6.0, since some other
* files are referencing them & preventing me from building TS3.
*
* 24-Sep-90	Dave Lyons
*
* Version $8306.
* Adding Get640Colors and Set640Color.
*
* 22-Oct-90	Dave Lyons
*
* Adding $DC04 GetScanlineAddr.
* Put all.macros back in.
*
* 24-Nov-90	Dave Lyons
*
* Patched QDStartUp to call FixHandle2 (stolen from TS2 Cursor.Patch.asm)
* to make the cursor images handle not cross a bank boundary.
*
* 25-Nov-90	Dave Lyons
*
* Changed version number to $8307, since 5.0.4 is going to be $0306.
*
* 25-Nov-90	Dave Lyons
*
* Changed QDStartUp to set DontClearScrnFlag if MasterSCB bit $0100
* is on and the SHR screen is already being displayed.
* Changed ClearScreen not to clear the screen if DontClearScrnFlag
* is set.
*
* 14-Feb-91	Dave Lyons
*
* Removed GetScanlineAddr because it isn't useful enough.
*
* 18-Feb-91	Dave Lyons
*
* Re-enabled Mensch's MySetCursor patch (had been commented out
* for 5.0.3 and 5.0.4).
*
* 19-Feb-91	Dave Lyons
*
* Fixed the ClearScreen patch to jump to ROM with the correct
* WAP value in A, instead of $0000.  Oops.
*
* 25-Feb-91	Dave Lyons
*
* QDStartUp now deletes Message #6 (the mouse position message)
* from the MessageCenter if the screen was off.  It only makes
* sense to preserve the mouse position on a true smooth launch.
*
* 11-Mar-91	Dave Lyons
*
* Removed MySetCursor patch.
*
* 7-Apr-91	Dave Lyons
*
* QDShutDown now shuts down QDAux first if it's started up (this
* is necessary because Standard File now starts up QD Aux).
*
* 5-Aug-91	Dave Lyons
*
* Resurrected SetCursor patch again.  This time it looks at bit
* 31 of the new cursor pointer; if set, it doesn't undraw the
* old cursor.
*
* 26-Aug-91	Dave Lyons
*
* QDStartUp leaves the MasterSCB $0100 (smooth launch) bit set
* until the call is done, so that CloseView can see the bit
* during its ClearScreen patch.
*
* 6-Sep-91	Dave Lyons
*
* QDShutDown now turns off linearization ($C029 bit 6) even
* if it leaves the SHR screen on.  It's evil to leave linear
* on, because it screws up double-hires!
*
* 19-Nov-91	Dave Lyons
*
* QDShutDown sets master SCB to $0080, inits color table zero,
* and sets all SCBs to $0080.
*
* QDStartUp checks bit 2 of BRAM $5F --> don't use scanline
* interrupts (for better compatibility with accelerators and
* VOCs).
*
* 27-Nov-91	Dave Lyons
*
* Patched InflateTextBuffer to return errors.
*
* 3-Dec-91	Dave Lyons
*
* Finished fixing above--on failure, it needs to restore a few direct page
* locations, so we don't think the buffer has been inflated when it hasn't.
* (Since QuickDraw Aux chains in *after* the main QD buffer-resize routines,
* QD already decided it was okay to store the new buffer size values when
* QD Aux found it could not resize its buffers, so we have to undo the damage.)
*
* 3-Feb-92	Dave Lyons
*
* Fixed QDStartUp patch to destroy message $0023 (FastFont message) if we
* fail to get FastFont.  Sometimes a stale message was left around and we
* tried to use somebody else's handle for FastFont (the system does not
* live very long in that state).
*
* Optimized error-exit for QDStartUp.
*
* Fixed QDStartUp to copy the E1 screen down to the 01 screen if
* we got shadowing.
*
* 5-Feb-92	Dave Lyons
*
* Version $0307 for 6.0 final.
*
******************************************************************
*
* 17-Feb-92	Dave Lyons
*
* Version $8308 for 6.0.1d1.
*
* 2-Apr-93 DAL
*
* Version $0308 for 6.0.1.
*
******************************************************************
	Blanks off
	String asis

	include 'all.macros'

	include ':::qd:qdequates:qd.data.asm'
	INCLUDE ':::qd:QDEquates:CORE.GLOBALS1'
	INCLUDE ':::qd:QDEquates:core.globals2'
	INCLUDE ':::qd:QDEquates:region.equs'
	INCLUDE ':::qd:QDEquates:RECT.EQUS'
	INCLUDE ':::qd:QDEquates:SLAB.EQUS'
	INCLUDE ':::qd:QDEquates:rgndefs.equs'

	include 'e16.memory'
	Import iDrawCursor
	Import iunDrawCursor
	Entry DoRgnOp

*******************************************************************************
;
; Following are all ROM addresses needed by this file
;
QDStart	equ $FE0FAA
RgnBEmpty	equ $FE75FE
RgnAEmpty	equ $FE75E7
RgnSector	equ $FE7615
TheROMRTL	equ $FE0125	; address of an RTL in ROM 1
BusyErr12	equ $FEFC74
BusyEC12	equ $FEFC71
ROMNotEasy	equ $FE7766
BusyFlag	equ $E100FF

	MACRO
&lab	ROMCALL &where
&lab	phk
	pea @1-1
	pea |TheROMRTL-1
	jml &where
@1
	MEND


SlabCopy	equ $00FE24D0
SLABOR	equ $00FE2568
SLABXOR	equ $00FE25F6
SLABBIC	equ $00FE2684


FASTSLABXOR	equ $00FE2721  
FASTSLABCOPY	equ $00FE2A26  
FASTSLABOR	equ $00FE2C90  
FASTSLABBIC	equ $00FE2D09  

GOREALLYFASTXOR	EQU $FE2796
FastSlabXorAlt	equ $FE2742
GOREALLYFASTCOPY	EQU $FE2A9F
FastSlabCopyAlt	equ $FE2A47

ROMFastBigLoop	equ $FE9171
ROMSlowBigLoop	equ $FE9233
ROMSetStuffAdr	equ $FE92E0
ROMConTable320	equ $FE6372
ROMConTable640	equ $FE6772
	
	import iSetStuffAdr
	import iBlowItUp

***	import DoADirtyDeed		; from FontMgr.Pch

** re-enabled these 2 lines 17-Sep-90 DAL
	import DoADirtyDeed2	; from MenuMgr.Pch
	import DoADirtyDeed3	; from MenuMgr.Pch

	MACRO
&lab	Patch &name
&lab	lda #<i&name
	sta |&name+1
	lda #>i&name
	sta |&name+2
	MEND

	MACRO
&Lab	TablePatch &RtnName,&CallNum
&Lab	ldy #&CallNum*4
	lda #&RtnName-1
	sta [LocalTemp],y
	iny
	iny
	lda #^&RtnName
	sta [LocalTemp],y
	MEND


	macro
	SwapMask
; This macro will test to see if the mask needs to be swapped and it will do so if 
; it needs it. 
	lda <StartWord	; get the starting word number
	and #$0002	; see if its an odd word or even word
	beq @NoSwapNeeded	; if zero, don't swap
	ldx <DrawMask
	lda <DrawMask+2
	sta <DrawMask
	stx <DrawMask+2
@NoSwapNeeded		; now continue
	ENDM	

	EJECT
*******************************************************************************
*
MyStartup	PROC Export
*
* Description:	This routine will post patch qdstartup so we can get rid of the
*	fastfont if needed...
*
*
* Inputs:	same as QDStartup.
*
* Outputs:	None
*
*******************************************************************************
ROMQDStartup	equ $FE0BB5
SystemFont	equ $FCDD1B
	Export AnRTL

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
TheUserID	equ RTL2+3
TheMaxWidth	equ TheUserID+2
TheMasterSCB	equ TheMaxWidth+2
PtrToZP	equ TheMasterSCB+2

; New MasterSCB Equates we can use
UseShadow	equ $8000
HiddenSpeed	equ $4000
***Avail1	equ $2000
NoFastFont	equ $1000
dontKillScreen	equ $0100	;25-Nov-90 DAL: Keep screen intact if already on

	import DontClearScrnFlag	;from ClearScreen patch

	tax	;save old WAP (24-Nov-90 DAL)
	phd	; save the dpage from harm
	tsc
	tcd

***	lda TheMasterSCB
***	and #NoFastFont
***	bne @MustFudgeFastFont
***	tdc	; added 24-Nov-90 DAL so we get alreadyStarted error
***	pld	; recover old user dpage 
***	jml >ROMQDStartup	; and simply jump into ROM
***
*** @MustFudgeFastFont
*** ; If we get here then the programmer set bit saying not to load fast font
*** ; and we better call qdstartup and then unload the thing...

*** added 25-Nov-90 DAL to avoid clearing screen if we can
	lda <TheMasterSCB
	and #dontKillScreen
	sta >DontClearScrnFlag

	lda >$E0C029
	and #$0080
	bne @1
	sta >DontClearScrnFlag
*** added 25-Feb-91 DAL: If the screen was off, kill the Event Manager mouse pos message
	phx
	pea 3	;delete message
	pea 6	;message type
	pha
	pha	;handle (ignored)
	_MessageCenter
	plx
*** end of 25-Feb-91 DAL
@1
;;;	lda #dontKillScreen	;removed 26-Aug-91 DAL
;;;	trb <TheMasterSCB	;removed 26-Aug-91 DAL
*** end of 25-Nov-90 DAL

	pei PtrToZP
	pei TheMasterSCB
	pei TheMaxWidth
	pei TheUserID
***	lda #0
	txa	;retrieve old WAP (24-Nov-90 DAL)
	jsl ROMStartupGlue	; call the real startup routine
	bcc @ItsOK

	pha	;25-Nov-90 DAL (4 lines)
	lda #0
	sta >DontClearScrnFlag
	pla

@QDSTartError	tax	; save the error code..
@UnZipThiscall	
;	tsc
;	tcd	; set up the proper dpage again...
;	lda RTL1+4	; move everything down by 8 bytes
;	sta RTL1+4+8
;	lda RTL1+2	; move everything down by 8 bytes
;	sta RTL1+2+8
;	lda RTL1	; move everything down by 8 bytes
;	sta RTL1+8
;	pld	; restore the old dpage..
;	pla	; yank off the 8 bytes of parameter
;	pla
;	pla
;	pla
;	txa	; recover any error code
;	cmp #1	; set the carry if error
;	rtl	; and return
*** opt 3-Feb-92 DAL -- save bytes by using ToStrip
	pld
	ldy #8
	jml $e10184	;ToStrip
*** end 3-Feb-92

@CallDone	ldx #0
	bra @UnZipThisCall
;
@ItsOK
*** added 3-Feb-92 DAL -- kill the FastFont message if we no longer have FastFont
	pha
	pha
	_GetSysFont
	pla
	pla
	bmi @haveFF

	pea 3	;delete
	pea $0023	;message type
	phx
	phx	;ignored
	_MessageCenter
@haveFF

	pha
	_GetMasterSCB
	pla
	bpl @noShadow

*** copy E1 screen down to 01 screen if we got shadowing
	ldx #$2000
	pea $00e1
	phx	;src = $e1/2000
	pea $0001
	phx	;dest = $01/2000
	pea 0
	pea $7d00
	_BlockMove
@noShadow
*** end 3-Feb-92

*** added 26-Aug-91 DAL -- clear MasterSCB $0100 here
	pha
	_GetMasterSCB
	pla
	and #$FEFF
	pha
	_SetMasterSCB
*** end 26-Aug-91 DAL

*** 24-Nov-90 DAL: call FixHandle2 to make the cursor image handle safe
	phd
	lda <PtrToZP
	tcd
	jsl FixHandle2
	pld
*** end 24-Nov-90

*** added 19-Nov-91 DAL -- check BRAM to disable scanline interrupt use
	pha
	pea $005F
	_ReadBParam
	pla
	and #$0004	;bit 2 = no scanline ints
	beq @normal
	pea 0
	_SetIntUse
@normal
*** end 19-Nov-91

	lda <TheMasterSCB	;added 24-Nov-90 DAL
	and #NoFastFont	;added 24-Nov-90 DAL
	beq @toCallDone	;added 24-Nov-90 DAL

	lda PtrToZP	; use quickdraw's dpage here
	tcd
	ldx #512	; first see if we have a fast font
	lda FastROMFont,x
	ora FastRomFont+2,x
	beq @toCallDone	; if zero fast font not loaded
	
	pea 2	; now set the fastfont as purgable...
	lda FastROMFont+2,x
	and #$00FF	; strip any flag data
	pha
	lda FastRomFont,x
	pha
	_SetPurge	; this way if by chance it is still needed...
	
	ldx #512	; first see if we have a fast font
	lda #0	; now signal that the fast rom font is not here
	sta FastROMFont,x
	sta FastRomFont+2,x
	
; reset the current system font so that it does not think it's the fastfont.	
	pea $00FC
	pea $DD1B
	pea $00FC
	pea $DD1B
	_SetSysFont
	_SetFont
@toCallDone	brl @CallDone	; and end the call with no problems

ROMStartupGlue	jsl >ROMQDStartup
AnRTL	rtl
	

***************************************************************
*
* FixHandle2: Stolen from Patch2:Cursor.patch.asm 24-Nov-90 DAL
*
***************************************************************
*
* FixHandle
*
* Added to Patch 22	May 87
*
* The cursor save area is the area of the screen under the
* cursor.  It is put into a buffer just	before the cursor
* is drawn.
*
* Unfortunately if the save buffer crosses a bank boundry,
* the code to write	into does not work and ends up
* trashing bytes at	the bottom of the bank the buffer
* starts in.
*
* This patch fixes the problem by working after the QDStartup
* call is complete.	 It looks on the QD	direct page for the
* handle to the save area and replaces it with a new handle
* having attributes	which do not allow it to cross a bank.
*
* 26 Feb 89	Steven Glass
*
* PHD at start.  PLD at end.
*
***************************************************************
FixHandle2	PROC EXPORT

SaveHandle	equ $b0

	phd
	tdc	; assume we enter with direct page
	clc	; set to quickdraw
	adc #$100
	tcd

	pha	; space for new handle below
	pha

	pha	; get the size of the current
	pha	; handle
	pei SaveHandle+2
	pei SaveHandle
	_GetHandleSize


	pei SaveHandle+2	; dispose of the current handle
	pei SaveHandle
	_DisposeHandle

	tdc	; at this point the	space for the
	sec	; handle and the size of the
	sbc #$100	; handle are on the	stack.  Now I
	tax	; add the user id and the attributes
	lda >UserID,x
	pha

	PushWord #%1000000000010000 ; locked, no bank cross

	pha	; finally the location info which is
	pha	; ignored
	_NewHandle

	pla
	sta SaveHandle
	pla
	sta SaveHandle+2

	pha
	pha
	_GetCursorAdr
	_SetCursor

	pld

	rtl

	ENDP

*****************************************************************
*
* ClearScreen patch 25-Nov-90 DAL
*
* If DontClearScrnFlag is set, clear it and don't do
* anything.  Otherwise jump to ROM.
*
*****************************************************************
MyClearScreen	proc export
	tax	;added 19-Feb-91 DAL
	lda >DontClearScrnFlag
	beq @toROM
	lda #0
	sta >DontClearScrnFlag
	tax
	ldy #2
	jml $e10184	;ToStrip

@toROM	txa	;added 19-Feb-91 DAL
	jml $fe16d8

	entry DontClearScrnFlag
DontClearScrnFlag	dc.w 0

	endp


*****************************************************************
*
* QDShutDown patch 25-Nov-90 DAL
*
* If Master SCB bit $0100 is set, then we leave the screen
* turned on.
*
MyQDShutDown	proc export
*
* Description:	This patch is very much like what ROM 3 already
*                   does, except it doesn't always turn off the
*                   screen.
*
* Inputs:	None
*
* Outputs:	None
*
* 19-Nov-90 DAL:  Sucked this code into TS2 from QD:Init.asm, routine
*                 CoreTerminate.
* 25-Nov-90 DAL:  Sucked this code into TS3 from TS2.
*
*******************************************************************************

DisposeHandleGlue	equ $fe1327	;for ROM 3
NewVideo	equ $e0c029

LclRTL	equ $fe0080	;for ROM 3
	Macro
&Lab	JSRL &Addr
	GBLA &MacroCnt
&MacroCnt	SETA &MacroCnt+1
	phk
	per theRTL&MacroCnt-1
	pea |LclRTL-1
	jml >&Addr
theRTL&MacroCnt
	MEND


* MyQDShutDown
	cmp #0
	bne @Continue
	jml >$fefbdf	;oEndCall0 (ROM 3)

@Continue	jsr LOCALQDStart

*** added 7-Apr-91 DAL
	pea 0
	_QDAuxStatus
	pla
	beq @noQDAux
	_QDAuxShutDown
@noQDAux
*** end of 7-Apr-91 DAL

*** added 19-Nov-91 DAL -- fix up the color tables and SCBs
	pha
	_GetMasterSCB
	pla
	and #$FFF0
	ora #$0080
	pha
	_SetMasterSCB
	pushlong #$E19E00
	_InitColorTable
	pea $0080
	_SetAllSCBs
*** end 19-Nov-91

	pea #2	; set the purge level to 2
	ldx #512	; on the fastfont...
	lda FastRomFont+2,x
	and #$00FF
	pha
	lda FastRomFont,x
	pha
	_SetPurge
*
* Deallocate rgn cache memory
*
	ldx #$02F4
	lda 2,x
	pha
	lda 0,x
	pha
	jsl DisposeHandleGlue

;-----------------------------------------------
;
; Close the first port and get rid of the memory
; it is in.
;
	ldx #256
	lda FirstPortHandle+2,x
	pha
	sta temp+2
	lda FirstPortHandle,x
	pha
	sta temp
	lda [temp]
	tax
	ldy #2
	lda [temp],y
	pha
	phx
	_ClosePort
	jsl DisposeHandleGlue

;-----------------------------------------------
;
; Get rid of text buffer
;
	pei TextBufHandle+2
	pei TextBufHandle
	jsl DisposeHandleGlue


;-----------------------------------------------
;
; Get rid of the buffer memory

	pei BufferHandle+2
	pei BufferHandle
	jsl DisposeHandleGlue

;-----------------------------------------------
; Get rid of shadowed ram here
; test for shadowing enabled, if it is, turn it off and 
; dispose of the screen...
	sep #$20	; turn off long <A>
	longA Off
	lda >$E0C035	; load the shadow register
	and #$08	; set bit 3... (turn screen shadow off)
	bne @NotShadowed
	longA On
	REP #$20	; and turn back on long <A>
	
	pha
	pha
	pea $0001	; find the shadowed screen memory
	pea $2000	; handle, shadowing was on...
	_FindHandle
	_DisposeHandle	; and throw it the hell away..
@NotShadowed
	longA On
	REP #$20
;-----------------------------------------------
;
; Now get rid of screen memory.  Cannot	do a find
; since we could be	called after a startup call
; that was aborted because screen was already
; owned.  We don't want to release someone
; else's memory.
;
	ldx #256
	lda ScreenHandle+2,x
	pha
	lda ScreenHandle,x
	pha
	jsl DisposeHandleGlue

;-----------------------------------------------
;
; Get rid of the memory used by cursor save
;
	jsrl $fe4fb2	;CursorShutDown (ROM 3)


;----------------------------------------------------
;
; Turn off graphics	and linearization in bank 1/E1
;

;	pha	;added 19-Nov-90 DAL
;	_GetMasterSCB	;added 19-Nov-90 DAL
;	pla	;added 19-Nov-90 DAL
;	and #$0100	;added 19-Nov-90 DAL
;	bne @1	;added 19-Nov-90 DAL
;
;	sep #$30	; go to 8 bit mode
;	longa off
;	longi off
;	lda >NewVideo
;	and #%00111111	; turn off graphics	and linearization
;	sta >NewVideo
;	rep #$30	; go back to 16
;	longi on
;	longa on
;@1		;added 19-Nov-90 DAL
*** added 6-Sep-91 DAL -- turn off linearization, or SHR+linearization
	pha
	_GetMasterSCB
	pla
	ldx #%00111111
	and #$0100	;bit 8 = leave SHR screen showing!
	beq @1	;turn off both
	ldx #%10111111	;turn off linear, leave screen on
@1	txa
	sep #$30
	and >NewVideo
	sta >NewVideo
	rep #$30
*** end of 6-Sep-91 DAL


;-----------------------------------------------
;
; Clear the entry in the WAPT
;
	lda #0	; not a user call (seed the a-reg
	pha	; to save bytes below
	PushWord #TSNumber	; Put TSNum on stack
	pha	; new value is zero	as set above.
	pha
	_SetWAP


;------------------------------------------------------
; Turn off shadowing for the SHR Screen
;
	sep #$20	; turn off long <A>
	longA Off
	lda >$E0C035	; load the shadow register
	ora #$08	; set bit 3... (turn screen shadow off)
	sta >$E0C035	; and resave it!
	longA On
	REP #$20	; and turn back on long <A>
	
	jml >$fefbea	;ROM 3

	EndP


****************************************************************
*
iGimmeVersion	PROC Export
*
* Vectored routine to return QD's version number
*
*
* Inputs:
*	none
*
* Outputs:
*	a-reg
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


	lda #$0308	;2-Apr-93 DAL
	rtl

	ENDP

	EJECT
*******************************************************************************
*
iSetUpScanPtrs	PROC Export
*
* Description:	this is to patch a bug in the firmware that does not properly
*	call init3Regions via the vector. This is so quickergraph can work
*	Currently the only offender is irgnblt
*
*
* Inputs:	This routine should be relatively non destructive, except that 
*	<A> and <X> can both be trashed if we want.
*
* Outputs:	None
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
ROMSetUpScanPtrs	equ $FE5C0A
ROMRgnBltOffsnder	equ $FE45D3
ROMGoodRgnBltRtn	equ $45D7

	jsl ROMSetUpScanPtrs

	lda 1,s	; look at the return address
	cmp #<ROMRgnBltOffsnder
	beq @1
@GoodCall	RTL	; not rgnblt we can simply return
@1	lda 2,s
	cmp #ROMRgnBltOffsnder>>8
	bne @goodcall
	jsl Init3Regions
	lda #ROMGoodRgnBltRtn
	sta 1,s
	RTL
	EndP
	

****************************************************************
*
iSeekRgn	Proc Export
*
* The state record for the region to seek is passed in StatePtr
*
* 3/19/90	Patched to set up the rgnptr properly from the
* 	stateptr data. This Should fix many crash/hang problems
*	with copybits and scrollrect
*
ROMItsRectangular	equ $FE60EA
ROMGoingDown	equ $FE6013
ROMGoingUp	equ $FE6124
*
****************************************************************
	lda [StatePtr]
	bpl @TestMore
	jml ROMItsRectangular
@TestMore	ldy #S_SeekDir
	lda [StatePtr],y
	bne @MustPatch
	jml ROMGoingDown
@MustPatch	
; If we get here we are going backwards and need to set up 
	ldy #s_RgnPtr	; get the pointer to the region
	lda [StatePtr],y	; add 10 and put result in the
	sta RgnPtr
	ldy #s_RgnPtr+2
	lda [StatePtr],y
	sta RgnPtr+2
	jml ROMGoingUp
	EndP

	EJECT
*******************************************************************************
*
iSetSliceAdr	PROC Export
*
* Description:	Patch all the backwards slices to properly set the <X>
* 	register for xShiftStay.	
*
*
* Inputs:	None
*
* Outputs:	None
*
* External Refs:
*
ROMSetSliceAdr	equ $FE4B0B
ROMBFCopySLice	equ $FE3B5C	; oops...
ROMBFORSlice	equ $FE3BCF
ROMBFXORSLICE	equ $FE3C3B
ROMBFBICSlice	equ $FE3CA7
XferMode	equ $E4	; equate from ROM
HorBackward	equ $CA	; equate from ROM
* Entry Points:
*
*******************************************************************************
	lda XFerMode	; take the tranfer mode
	and #$7F	; mask off not bit
	asl a	; double
	asl a	; and double again
	tax	; put in x


	lda HowFarToShift	; if i don't have to shift at all
	beq ToROM	; then I can use the fast slice routines

	bit HorBackward	; oh well so I use the slow ones.
	bpl ToROM

	lda >BackSliceAdrTable,x
	sta >ToSlice
	lda >BackSliceAdrTable+2,x
StoreIt	sta >ToSlice+2

	rtl
ToROM	JML ROMSetSliceAdr

BackSliceAdrTable

	jml ROMBFCopySlice
	jml BFORSlice
	jml BFXORSlice
	jml BFBICSlice

BFORSlice	
	ldx HowFarToShift
	jml ROMBFORSlice
BFXORSlice	
	ldx HowFarToShift
	jml ROMBFXORSlice
BFBICSlice	
	ldx HowFarToShift
	jml ROMBFBICSlice
	EndP


****************************************************************
*
* SetSlabAdr
*
* This routine sets	of the vector "ToSlab" in bank E0.  All
* drawing routines use this vector to get to their slab routine.
*
* If the clipping is non-rectangular or	the drawing mask is
* not all $FFFF's, then we use the normal slabs.  Otherwise
* we use the FAST SLABS.
*
* 2/28/89	Konstantin and Dave
* Also, returned in carry whether a fast slab is being used, and
* returned in <X> is the offset to the slab table. THIS SHOULD
* NOT CHANGE
****************************************************************
iSetSlabAdr	PROC EXPORT

	lda FillMode
	and #$7F
	asl a
	asl a
	tax

	lda NonRectRegions
	bne GoSlow

	ldy #o_PnMask	;go fast if there is no mask
	lda [PortRef],y
	ldy #o_PnMask+2
	and [PortRef],y
	ldy #o_PnMask+4
	and [PortRef],y
	ldy #o_PnMask+6
	and [PortRef],y
	inc a	;are they all $FFFF?
	beq  GoFast
GoSlow		; 


	lda >SlabTable,x
	sta >ToSlab
	lda >SlabTable+2,x
	sta >ToSlab+2
	sec	;we must go slow
	rtl

GoFast
	lda >FastSlabTable,x
	sta >ToSlab
	lda >FastSlabTable+2,x
	sta >ToSlab+2
	clc	;signals that we can go fast
	rtl

	ENDP



****************************************************************
*
* SlabTable
*
****************************************************************
SlabTable	PROC EXPORT

	jml OurSlabCopy
	jml OurSlabOR
	jml OurSlabXOR
	jml OurSlabBIC

	ENDP


****************************************************************
*
* FastSlabTable
*
****************************************************************
FastSlabTable	PROC EXPORT

	jml PatchSlabCopy
	jml FastSlabOR
	jml PatchSlabXOR
	jml FastSlabBIC

	ENDP


****************************************************************
*
PatchSlabXOR	PROC EXPORT
*
*
* 6/15/89	Mensch
*
* Drastically modified for slab entry for the patch
*
****************************************************************
;---------------------------------------------------------------
MaxWordsInRow	equ 80
MaxBytesInRow	equ MaxWordsInRow*2
;---------------------------------------------------------------

;---------------------------------------------------------------
	lda Pat	;if the patterns are equal go very fast
	cmp Pat+2
	beq tryReallyFast
exit1	jml FastSlabXOR	; if the pats are not equal use ROMslabs
tryReallyFast	
	lda FinishWord	;get the number of bytes to XOR into the
	sec	;..A-Reg
	sbc StartWord
	beq exit1	;if only one word, do a special case
	lsr a
	dec a	;if only two words,	then do another
	beq exit1	;..special case
	tax	;otherwise the count goes in X-Reg
	cmp #MaxWordsInRow	; do we hit the threshhold?
	bge exit2	; if less than max in rom do exit1
	jml GoReallyFastXOR
Exit2	jml FastSlabXORAlt	; else do the fast slab xor alt
	EndP

****************************************************************
*
PatchSlabCopy	PROC EXPORT
*
* 6/15/89	Mensch
*
* Made entry to fastslabcopy modified version for the patch
****************************************************************
;---------------------------------------------------------------
MaxWordsInRow	equ  80

;---------------------------------------------------------------
	lda Pat	;if the patterns are equal go very fast
	cmp Pat+2
	beq tryReallyFast
exit1	jml FastSlabCopy	; if the pats are not equal use ROMslabs
tryReallyFast	
	lda FinishWord	;get the number of bytes to XOR into the
	sec	;..A-Reg
	sbc StartWord
	beq exit1	;if only one word, do a special case
	lsr a
	dec a	;if only two words,	then do another
	beq exit1	;..special case
	tax	;otherwise the count goes in X-Reg
	cmp #MaxWordsInRow	; do we hit the threshhold?
	bge exit2	; if less than max in rom do exit1
	jml GoReallyFastCopy
Exit2	jml FastSlabCopyAlt	; else do the fast slab xor alt
	EndP


****************************************************************
*
OurSlabs	PROC
*
* These are the patched slabs.  The each swap the pen mask, call
* the old mask and swap it back.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


	ENTRY OurSlabCopy
OurSlabCopy
	SwapMask
	jsl SlabCopy
GetOut	SwapMask
	rtl

	ENTRY OurSlabOR
OurSlabOR
	SwapMask
	jsl SlabOR
	bra GetOut

	ENTRY OurSlabXOR
OurSlabXOR
	SwapMask
	jsl SlabXOR
	bra GetOut

	ENTRY OurSlabBIC
OurSlabBIC
	SwapMask
	jsl SlabBIC
	bra GetOut

	ENDP



****************************************************************
*
iRotateMask	PROC Export
*
* The code in rom does the wrong thing if the arcrot field
* has the high bit set.  So we skipp the bad code.
*
*
*
* Inputs:
*	a-reg has something important in it
*
* Outputs:
*	and its on the stack by the time
* 	we get to the new code.
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


BackIntoROM	equ $FE20AD


	pha
	jml BackIntoROM

	ENDP



	if 1 then

	EJECT
*******************************************************************************
*
MySetCursor	PROC Export
*
* Description:	This routine does exactly what the very start of
*	the real set cursor does except that it also tests the MasterSCB
*	to see if the SetCursNoDraw bit is set...
*
*
* Inputs:	None
*
* Outputs:	None
*
* External Refs:
ROMNotVisible	equ $FE50A4
;CursorLevel	equ $CC
;ObscureFlag	equ $CE
;CursorMode	equ $6A
*
*******************************************************************************
OrigP	equ 1
OrigDirect	equ OrigP+1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
TheCursorPtr	equ RTL2+3

StartofZP	equ CursorSTART

UseInterrupts	equ StartofZP
IntPending	equ UseInterrupts+2

MouseY	equ IntPending+2
MouseX	equ MouseY+2

NextMouseY	equ MouseX+2
NextMouseX	equ NextMouseY+2

CurHeight	equ NextMouseX+2	; Num scan lines high of cursor
CurWidth	equ CurHeight+2	; Num WORDS wide of	cursor

CursorRect	equ CurWidth+2
CursorY1	equ CursorRect
CursorX1	equ CursorY1+2
CursorY2	equ CursorX1+2
CursorX2	equ CursorY2+2

CursorMode	equ CursorX2+2
CursorRecPtr	equ CursorMode+2

CursorPtr	equ CursorRecPtr+4
MaskPtr	equ CursorPtr+4

CursorPtr1	equ MaskPtr+4
MaskPtr1	equ CursorPtr1+4
CursorPtr2	equ MaskPtr1+4
MaskPtr2	equ CursorPtr2+4
CursorPtr3	equ MaskPtr2+4
MaskPtr3	equ CursorPtr3+4
CursorPtr4	equ MaskPtr3+4
MaskPtr4	equ CursorPtr4+4
CursorPtr5	equ MaskPtr4+4
MaskPtr5	equ CursorPtr5+4
CursorPtr6	equ MaskPtr5+4
MaskPtr6	equ CursorPtr6+4
CursorPtr7	equ MaskPtr6+4
MaskPtr7	equ CursorPtr7+4

SaveHandle	equ MaskPtr7+4

SavePtr	equ SaveHandle+4
SaveSize	equ SavePtr+4

CursorRef	equ SaveSize+2
MaskRef	equ CursorRef+4
HotSpot	equ MaskRef+4

SaveRef	equ HotSpot+4
ScreenRef	equ SaveRef+4

CursorLevel	equ ScreenRef+2
ObscureFlag	equ CursorLevel+2


	tay
	lda 9,s	;high word of cursor ptr
	tax
	asl a
	lsr a
	sta 9,s	;cleared bit 31
	tya	;A=preserved, X=high word of input

	jsr LOCALQDStart
	clc
	adc #$100
	tcd

	php	; save processor
	sei	; turn off interrupts to do this

	bit <CursorLevel
	bmi NotVisible

	bit <ObscureFlag
	bmi NotVisible

	txa
	bmi NoFlicker
	tdc
	jsl UnDrawCursor	; restore under cursor

NotVisible	jml ROMNotVisible

NoFlicker
	lda 10,s	;get pointer to cursor rec
	sta CursorRecPtr
	lda 10+2,s	;high word of new cursor rec
	sta CursorRecPtr+2

;	lda [CursorRecPtr]	; I move height and	width
;	sta CurHeight	; to zero page
;	ldy #2
;	lda [CursorRecPtr],y
;	sta CurWidth

	lda CursorRecPtr	; point to cursor image
	clc
	adc #4
	sta CursorPtr
	lda CursorRecPtr+2
	sta CursorPtr+2

	lda SaveSize	; get savesize in a
	sec	; get rid of extra word per line
	sbc CurHeight
	sec
	sbc CurHeight
	tay	; put copy in Y too
	clc
	adc CursorPtr
	sta MaskPtr
	lda CursorPtr+2
	sta MaskPtr+2

	lda [MaskPtr],y	; get hot spot
	sta HotSpot
	iny
	iny
	lda [MaskPtr],y
	sta HotSpot+2

;----------------------------------------------
;
; Update the appropriate pointers.
;
	lda SavePtr	; the first pointer	is savesize past
	clc	; saveptr.
	adc SaveSize
	sta CursorPtr1
	lda SavePtr+2
	adc #0
	sta CursorPtr1+2

	ldx #0
SetUpLoop	lda CursorPtr1,x
	clc
	adc SaveSize
	sta CursorPtr1+4,x
	lda CursorPtr1+2,x
	adc #0
	sta CursorPtr1+6,x
	inx
	inx
	inx
	inx
	cpx #13*4	; 52, 7 sets of two	pointers
	bcc SetUpLoop

;----------------------------------------------
;
; Now I must shift the cursor and mask into
; the appropriate places.
;
***	jsr ShiftStuff	;$FE4FE6 in ROM 3
	phk
	per @cont-1
	pea $0080-1	;$FE0080 is an RTL in ROM 3
	jml >$fe4fe6
@cont


;----------------------------------------------
;
; Now I can show the new cursor
;
	bit CursorLevel
	bmi DoNotShow
	bit ObscureFlag	; or should a set cursor unobscure it?
	bmi DoNotShow

*** This is really ugly and cruel.  Since there's already an old cursor on
*** the screen, which I -don't- want to get stuffed into the SaveArea, I
*** point SavePtr at the ROM around the call to DrawCursor.
	pei <SavePtr+2
	pei <SavePtr
	lda #$fefe
	sta <SavePtr+2
	sta <SavePtr
	jsl DrawCursor
	pla
	sta <SavePtr
	pla
	sta <SavePtr+2

DoNotShow	plp	; restore interrupt	status
	jmp BusyEC4

	EndP

	EndIf
	
****************************************************************
*
SetPort	PROC Export
*
* If set port is called from a special place in ROM, there
* is a region we must dispose of.  This region is the temporary
* region allocated to do scrolling in the window manager and
* it is accidentily orphaned.  This patch kills it.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	
	Export FinishSetPort
*
	longa on	; mode
	longi on
*
****************************************************************

	DefineStack
RTL1	block 3
TheRTL	block 3
ThePortPtr	LONG


SpecialAddress	equ $FD4b20
*** SpecialAddress2	equ $FCB839
TempRgn	equ $19


	tax	; save the WAP in x

;
; Look at the RTL.  If its not the special address, ignore it.
;
	lda TheRTL,s
	cmp #<SpecialAddress-1
	bne NothingSpecial
	lda TheRTL+1,s
	cmp #>SpecialAddress-1
	bne NothingSpecial

;
; this is it, dispose of the region.
;

	phx	; save the wap on the stack

	pei TempRgn+2
	pei TempRgn
	_DisposeRgn

;
; Zero the region so it cannot be disposed again if this code 
; runs again.
;
	stz TempRgn+2
	stz TempRgn


	plx	; get WAP back off the stack
	bra FinishSetPort


NothingSpecial
; (killed, DAL)	lda TheRTL,s
;	cmp #<SpecialAddress2-1
;	bne FinishSetPort
;	lda TheRTL+1,s
;	cmp #>SpecialAddress2-1
;	bne FinishSetPort
;	brl DoADirtyDeed	; if this matches then do the font manager patch
FinishSetPort
	txa

;
; Jump back into ROM
;
	jml $FE1832

	ENDP



****************************************************************
*
SetForeColor	PROC Export
*
* If SetForeColor is being called from the Menu Manager at a
* specific location then we patch the return address back to
* the menu manager with our own address that patches out the
* routine text_guts. This is one of the routines that needed
* to be changed to support icons in menu items. Since this 
* routine is buried deep in the menu manager code it is easier
* to patch it this way.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	
	Export FinishSetForeColor
*
	longa on	; mode
	longi on
*
****************************************************************

	DefineStack
RTL1	block 3
TheRTL	block 3
TheColor	WORD

MyAddress1	equ $FD730C	; This is the return address to the next instruction after 
		; the SetForeColor call in the MenuMgr code.

	tax	; Save the WAP
	lda TheRTL,s
	cmp #<MyAddress1-1	
	bne FinishSetForeColor
	lda TheRTL+1,s
	cmp #>MyAddress1
	bne FinishSetForeColor
	brl DoADirtyDeed2	; This routine will now patch out the return address
		; back to the menu manager and will now return to the menu patch.

FinishSetForeColor	txa	; Put WAP back in a-reg.
	
	jml $FE1CB8	; Jump back to start of SetForeColor call.

	ENDP

****************************************************************
*
PtInRect	PROC Export
*
* If SetForeColor is being called from the Menu Manager at a
* specific location then we patch the return address back to
* the menu manager with our own address that patches out the
* routine text_guts. This is one of the routines that needed
* to be changed to support icons in menu items. Since this 
* routine is buried deep in the menu manager code it is easier
* to patch it this way.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	
	Export FinishPtInRect
*
	longa on	; mode
	longi on
*
****************************************************************

	DefineStack
RTL1	block 3
TheRTL	block 3
RectPtr	long
pointPtr	long
result	word
TheRTS	word

MyAddress2	equ $FD6CD1	; address of instruction after PtInRect call that we want to check
MyAddress3	equ $FD709C	; address of instruction after jsr to the routine
		; that calls PtInRect

	tax	; Save the WAP
	lda TheRTL,s
	cmp #<MyAddress2-1
	bne FinishPtInRect
	lda TheRTL+1,s
	cmp #>MyAddress2
	bne FinishPtInRect
	lda TheRTS,s
	cmp #<MyAddress3-1
	bne FinishPtInRect
	brl DoADirtyDeed3	; This routine will now patch out the return address
		; back to the menu manager.

FinishPtInRect	txa	; Put WAP back in a-reg.
	jml $FE220C	; Jump back to start of PtInRect call.
	

	ENDP

****************************************************************
*
* Procedure SectRgn(
*   srcRgnA,srcRgnB,dstRgn:RgnHandle
*   )
*
*   Calculate the intersection of two regions.
*
****************************************************************
SectRgn	PROC Export

	jsr LOCALQDStart

	lda #0	; op := Sect
	jmp DoRgnOp	; it does all the work

	ENDP

****************************************************************
*
* Procedure UnionRgn(
*   srcRgnA,srcRgnB,dstRgn:RgnHandle
*   )
*
*   Calculate the union of two regions.
*
****************************************************************
UnionRgn	PROC Export

	jsr LOCALQDStart

	lda #4	; op := Union
	jmp DoRgnOp	; it does all the work

	ENDP

****************************************************************
*
* Procedure DiffRgn(
*   srcRgnA,srcRgnB,dstRgn:RgnHandle
*   )
*
*   Calculate the difference A-B of two	regions.
*
****************************************************************
DiffRgn	PROC Export

	jsr LOCALQDStart

	lda #2	; op := Diff
	jmp DoRgnOp	; it does all the work

	ENDP

****************************************************************
*
* Procedure XorRgn(
*   srcRgnA,srcRgnB,dstRgn:RgnHandle
*   )
*
*   Calculate the exclusive or of two regions.
*
****************************************************************
XorRgn	PROC Export

	jsr LOCALQDStart

	lda #6	; op := Xor
	jmp DoRgnOp	; it does all the work

	ENDP

****************************************************************
*
* Procedure DoRgnOp;
*
*   Computes the Intersection, Difference, Union, or Xor
*   of two regions.	 Enter with Op in A.
*
*    Sect = 0	A-B Diff = 2      Union = 4      Xor = 6
*
****************************************************************
	EXPORT DoRgnOp
DoRgnOp	PROC
*              using E0Vectors

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
DstRgn	equ RTL2+3
SrcRgnB	equ DstRgn+4
SrcRgnA	equ SrcRgnB+4

	sta Op	; save the operation
	
	lda SrcRgnA,s	; get low word of SrcRgnA
	sta RgnHandleA	; save it
	lda SrcRgnA+2,s	; get high word of SrcRgnA
	sta RgnHandleA+2	; save it

	lda SrcRgnB,s	; get low word of SrcRgnB
	sta RgnHandleB	; save it
	lda SrcRgnB+2,s	; get high word of SrcRgnB
	sta RgnHandleB+2	; save it
	jsr DerefAB

	lda [RgnPtrA]	; get size of one
	cmp [RgnPtrB]	; compare to size of other
	bne NotSame	; if not the same drop to the new rgnop...

	tay
	dey
	dey
Loop	lda [RgnPtrA],y
	cmp [RgnPtrB],y
	bne NotSame
	dey
	dey
	bne Loop

; was this...
;	pha	; room for result
;	lda SrcRgnA+4,s	; get high word
;	pha	; push it
;	lda SrcRgnA+4,s	; get low word
;	pha	; push it
;	lda SrcRgnA+4,s	; get high word
;	pha	; push it
;	lda SrcRgnA+4,s	; get low word
;	pha	; push it
;	_EqualRgn	; are they equal?
;	pla	; get boolean result
;	beq NotSame	; if 0 (false), we have more work
; NOTE: If we get here then the regions are the same...

	lda Op	; get op
	and #2	; and it with 2 (Diff and Xor bit)
	bne Zero	; zero it if Sect or Union

Copy	
; This routine copies rgn <A> to dest region...
	lda SrcRgnA+2,s	; get high word
	pha	; push it
	lda SrcRgnA+2,s	; get low word
	pha	; push it
	lda DstRgn+6,s	; get high word
	pha	; push it
	lda DstRgn+6,s	; get low word
	pha	; push it
	_CopyRgn	; copy it
	bcs T1

	brl DoUnlockABNoErr

Zero	lda DstRgn+2,s	; get high word
	pha	; push it
	lda DstRgn+2,s	; get low word
	pha	; push it
	_SetEmptyRgn	; zero the destination
	bcs T1
	brl DoUnlockABNoErr

T1	brl DoUnlockABError

* load the handles from the stack onto zero page and dereference them

NotSame	
; was this...
;	lda SrcRgnA,s	; get low word of SrcRgnA
;	sta RgnHandleA	; save it
;	lda SrcRgnA+2,s	; get high word of SrcRgnA
;	sta RgnHandleA+2	; save it
;	jsr DerefA
;
;	lda SrcRgnB,s	; get low word of SrcRgnB
;	sta RgnHandleB	; save it
;	lda SrcRgnB+2,s	; get high word of SrcRgnB
;	sta RgnHandleB+2	; save it
;	jsr DerefB

* If Op = Diff and RgnB is empty, copy RgnA into DstRgn

	lda #2	; get Diff opcode
	cmp Op	; is it Diff?
	bcc UniXor	; if Op > Diff then	Union or Xor
	bne BBoxes	; if Op <> Diff, it's Sect

* Op = Diff, so check RgnB for empty

	ROMCALL RgnBEmpty	; is RgnB empty
	bpl Copy	; if it's empty, CopyRgnA

* If Op = Sect or Diff, then intersect the bounding boxes.

BBoxes	ROMCALL RgnSector	; RgnY1..RgnX2 := RgnA * RgnB

	lda RgnX1
	cmp RgnX2	; compare to X2
	bpl Empty	; if X1=X2, it's empty
	lda RgnY1	; get top
	cmp RgnY2	; if Y1 >= Y2, it's empty
	bmi NotEmpty	; so do it

* The bounding boxes don't intersect.  If Op = Sect, then return empty.
* If Op = Diff, then copy RgnA into DstRgn

Empty	lda Op	; get op
	beq Zero	; if Sect, return empty
	jmp Copy	; no, copy SrcA into DstRgn

* If Op = Sect, then check for both inputs rectangular

NotEmpty	lda Op	; is op = Sect
	bne NotEasy	; no, continue
	lda #10	; get rectangular region size
	cmp [RgnPtrA]	; compare with RgnA	length
	bne NotEasy	; no, continue
	cmp [RgnPtrB]	; compare with RgnB	length
	bne NotEasy	; no, continue

* push dstrgn and address of temprect.	Could be bad news.

	lda DstRgn+2,s	; get high word
	pha	; push it
	lda DstRgn+2,s	; get low word
	pha	; push it
	clc
	lda #0	; it's in bank 0
	pha	; push high word
	tdc	; get direct register
	adc #RgnY1	; add in offset
	pha	; push low word
	_RectRgn	; RectRgn(dstRgn,tempRect)
	bcs T2
	brl DoUnlockABNoErr

T2	brl DoUnlockABError

UniXor	ROMCALL RgnBEmpty	; is RgnB empty?
	bmi T3	; yes, copy RgnA
	brl Copy
T3	ROMCALL RgnAEmpty	; is RgnA empty?
	bmi NotEasy	; yes, copy RgnB
	lda SrcRgnB+2,s	; get high word
	pha	; push it
	lda SrcRgnB+2,s	; get low word
	pha	; push it
	lda DstRgn+6,s	; get high word
	pha	; push it
	lda DstRgn+6,s	; get low word
	pha	; push it
	_CopyRgn	; copy it
	bcs DoUnlockABError
DoUnlockABNoErr	phx
	jsr UnlockAB
	plx
	JML BusyEC12

DoUnlockABError	pha
	jsr UnlockAB
	plx
	JML BusyErr12

NotEasy	clc	; clear carry for addition
	lda [RgnPtrA]	; get RgnA length
	adc [RgnPtrB]	; add RgnB length
	asl A	; double (Quickdraw	did ADD D4,D4)
	sta PtCount	; save it

* We've taken all the shortcuts we can.  Now we pass the buck to RgnOp to do
* the real work.  The source regions are still in RgnHandleA and RgnHandleB.
* PtCount contains the maximum size we should need.  Load X	with 0 since we
* have no horizontal offset to worry about (just for cleanliness).

	ldx #0	; unnecessary unless code changes
	jsl RgnOp	; do it
	bcs RgnOpError	; RgnOp propogates errors
	lda DstRgn,s
	sta RgnHandleA
	lda DstRgn+2,s
	sta RgnHandleA+2
	jsr DerefA	; nice shortcut...
	jsl PackRgn	; call it

	PushLong BufHandle	; push handle
	_DisposeHandle	; dispose of point buffer handle
	bcs DoUnlockABError
	brl DoUnlockABNoErr

RgnOpError	pha	; save error code

	lda BufHandle
	ora BufHandle+2
	beq DontDispose
	PushLong BufHandle
	_DisposeHandle
DontDispose	jsr UnlockAB
	plx	; get error code back
	jmp BusyErr12

UnlockAB	
; modified this routine to unblock the src rgns on the stack instead
; first save the direct page...
	phd
	plx	; in the <X> register...
	tsc	; and make the stack a direct page
	tcd
	ldy #4	; offset to the handle attributes
	lda [SrcRgnA+4],y	; unlock A (account for error and jsr)
	and #$7FFF
	sta [SrcRgnA+4],y
	lda [SrcRgnB+4],y	; unlock B
	and #$7FFF
	sta [SrcRgnB+4],y
	phx	; restore direct page
	pld	; to what it was before...
	rts

DeRefAB	
	ldy #4	; lock it
	lda [RgnHandleB],y
	ora #$8000
	sta [RgnHandleB],y
DerefA
	ldy #4	; lock it
	lda [RgnHandleA],y
	ora #$8000
	sta [RgnHandleA],y

	lda [RgnHandleA]	; deref it.
	sta RgnPtrA
	lda [RgnHandleB]	; deref it.
	sta RgnPtrB
	ldy #2
	lda [RgnHandleA],y
	sta RgnPtrA+2
	lda [RgnHandleB],y
	sta RgnPtrB+2
	rts

	ENDP

LOCALQDStart	proc Export

	pha
	lda >BusyFlag
	inc a
	sta >BusyFlag
	pla
	phd	; push d on stack
	tcd	; set d
	lda 3,s	; getorig rts
	pha	; put on stack
	lda 3,s	; move orig d to on	top of rts
	sta 5,s
	pla	; pull rts off stack
	sta 1,s	; put over orig d
	tdc	; get QD D back in a
	rts	; done
	EndP


*******************************************************
*
* InflateTextBuffer (patched 27-Nov-91 DAL)
*
* (Original is in QD:Text.asm.)
*
*******************************************************
MyInflateTextBuffer	PROC export

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
newHeight	equ RTL2+3
newWidth	equ newHeight+2

	jsr LocalQDStart

	lda newWidth,s
	sta newFontWidth
	lda newHeight,s
	sta newTBHeight

*** added 3-Dec-91 DAL -- preserve old DP values that we may need to restore
	ldx #256
	lda <fontWidth,x
	pha
	pei <textBufHeight
	pei <textBufRowWords
*** end 3-Dec-91

	jsl $fe8741	;InflateTB (ROM 3)

;;;	ldy #4
;;;	jmp BusyEC
*** added 3-Dec-91 DAL -- honor error code from InflateTB, and restore
***  DP values if we had an error (even though QD doesn't mess up the
***  values if it can't resize the buffer, we do mess them up if QD Aux
***  can't resize -its- buffers).
	tay	;error code to Y

	pla
	bcc @noStore1
	sta <textBufRowWords
@noStore1	pla
	bcc @noStore2
	sta <textBufHeight
@noStore2	pla
	bcc @noStore3
	ldx #256
	sta <fontWidth,x
@noStore3
	tyx	;error code to X
	pld
	ldy #4
	jml $e10180	;ToBusyStrip
*** end 3-Dec-91

*******************************************************
*
* $DA04 Get640Colors():PatternTablePtr
*                      LONG
*
* Returns a pointer to a table of all the solid 640-
* mode dithered patterns (32 bytes of $00, 32 bytes of
* $11, ..., 32 bytes of $ff).
*
* New call 24-Sep-90 DAL for System Software 6.0
*
*******************************************************
Get640Colors	PROC export

SolidColors	equ $fd40f6

	lda #^SolidColors
	sta 9,s
	lda #<SolidColors
	sta 7,s
	lda #0
	clc
	rtl

	EndP

*******************************************************
*
* $DB04  Set640Color(color)
*                    WORD
*
* New call 24-Sep-90 DAL for System Software 6.0
*
*******************************************************
Set640Color	PROC export

SolidColors	equ $fd40f6

	lda 7,s	;input color number
	and #$000f
	xba
	lsr a
	lsr a
	lsr a
	adc #<SolidColors	;carry is guaranteed clear

	pea SolidColors>>16
	pha
	_SetPenPat
	tax	;error code
	ldy #2	;strip 2 bytes
	jml $e10184	;ToStrip

	EndP

;*******************************************************
;*
;* $DC04  GetScanlineAddr(lineNum):@address
;*                        WORD     PTR
;*
;* New call 22-Oct-90 DAL for System Software 6.0
;*
;*******************************************************
;GetScanlineAddr	proc export
;
;	ldx #$0452	;anticipate badScanLine error
;	lda 7,s
;	cmp #200
;	bcs @error
;
;	ldx #$00e1	;anticipate bank $E1 (no shadowing)
;	lda >$E0C035	;shadow
;	and #$0008
;	bne @bank
;	ldx #$0001	;SHR shadowing
;@bank	txa
;	sta 11,s
;
;	lda 7,s
;	asl a
;	tax
;	lda >$fe553c,x
;	sta 9,s
;
;	ldx #0
;@error	ldy #2	;strip 2 bytes
;	jml $e10184	;ToStrip
;
;	endp

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Patch/Patch3/QGRegions.pch b/IIGS.601.SRC/GSToolbox/Patch/Patch3/QGRegions.pch
new file mode 100644
index 0000000..63b6830
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Patch/Patch3/QGRegions.pch
@@ -0,0 +1 @@
+*******************************************************************************
* QGraf Region stuff
*
* (C)  Copyright Apple Computer, Inc. 1991
* All rights reserved.
*
* by Jim Mensch
* 2/8/91
*
* This here stuff should greatly speed several calls by reducing the time it takes to
* Seek regions. The secret is actually simple, all you gotta do is determine if all
* 3 regions are rectangular, and if so, if you can get rid of 1 or more by swapping them..
* I know that this sounds wierd, but trust me!
*
* Files:
*
*
*
* Modification History:
*
* Version 1.0	_Author_
*
* 3/7/91	Added 2 region region seeking to the test as well...
*
*******************************************************************************
	blanks off
	string asis
	
	include 'all.macros'

	include ':::qd:qdequates:qd.data.asm'
	INCLUDE ':::qd:QDEquates:CORE.GLOBALS1'
	INCLUDE ':::qd:QDEquates:core.globals2'
	INCLUDE ':::qd:QDEquates:region.equs'
	INCLUDE ':::qd:QDEquates:RECT.EQUS'
	INCLUDE ':::qd:QDEquates:SLAB.EQUS'
	INCLUDE ':::qd:QDEquates:rgndefs.equs'

	MACRO
&lab	BumpLongBy2 &adr
&lab	lda &adr
	ldx &adr+2
	inc a
	bne @1
	inx
@1	inc a
	bne @2
	inx
@2	sta &adr
	stx &adr+2
	MEND


	MACRO
&lab	MoveLong &From,&To
&lab	lda &From
	sta &To
	lda &From+2
	sta &To+2
	MEND

	MACRO
&lab	SwapLong &From,&To
&lab	ldx &From
	ldy &From+2
	lda &To
	sta &From
	lda &To+2
	sta &From+2
	stx &To
	sty &To+2
	MEND

	MACRO
&lab	IncLong &adr
&lab	inc &adr
	bne @1
	inc &adr+2
@1
	mend

;iFree3Regions	Proc Export
;	Import OldFree3Regions
;	Import SeekerDispatch
;	
;	pha
;	lda  #$0000
;	sta  >SeekerDispatch
;	pla
;	jml  OldFree3Regions
;	EndP
;	
;iFree2Regions	Proc Export
;	Import OldFree2Regions
;	Import SeekerDispatch
;
;	pha
;	lda  #$0000
;	sta  >SeekerDispatch
;	pla
;	jml  OldFree2Regions
;	EndP
	
	
iInit3Regions	PROC Export
	Import OldInit2Regions
	Import OldInit3Regions
	Export iInit2Regions
	Export SeekerDispatch
	
	jsl OldInit3Regions	; first, do the setup code here!
	stz StatePtr	; first, zero out our "Flag"
;---------------------------------------------------
; see if we "need" to seek all these regions!, for each region we do not need to seek
; set the correct bit for that region. Then the seek region code can do the rest...
;
	MoveLong RgnPtrA,RgnPtr	; set this up for the call
	jsr  TestIt
	bcc  @TryB
	lda  #$0002
	sta  StatePtr
	
@TryB
	MoveLong RgnPtrB,RgnPtr	; set this up for the call
	jsr  TestIt
	bcc  @TryC
	lda  #$0004
	ora  StatePtr
	sta  StatePtr
@TryC
	MoveLong RgnPtrC,RgnPtr	; set this up for the call
	jsr  TestIt
	bcc  @GotTheBugger
	lda  #$0008
	ora  StatePtr
	sta  StatePtr
@GotTheBugger	lda  StatePtr
;
; Now that we have our region dispatcher in StatePtr, lets just stow it in our seek3Global
; and switch the regions so that they contain the proper values...
	sta  >SeekerDispatch
	beq  @Done	; all 3 significant, we are finished..
	tax  	; table lookup the proper switcher routine
	jsr  (Swappers,x)
@Done
	RTL
iInit2Regions
; do the same as above but we are only conscerned with regions a and B...
	jsl OldInit2Regions	; first, do the setup code here!
	lda #0
	sta >SeekerDispatch		; zero means seek both regions
;---------------------------------------------------
; see if we "need" to seek all these regions!, for each region we do not need to seek
; set the correct bit for that region. Then the seek region code can do the rest...
;
	MoveLong RgnPtrA,RgnPtr	; set this up for the call
	jsr  TestIt
	bcc  @TryB
	jsr  SwapAB		; we always will be swapping these two in this case..
@BNotNeeded	lda  #$FFFF		; this means seek2regions seeks 1 region
	sta  >SeekerDispatch
	RTL		; we can just stop here...
@TryB
	MoveLong RgnPtrB,RgnPtr	; set this up for the call
	jsr  TestIt
	bcs  @BNotNeeded
	RTL		; else, don't swap and forget everything

			
;
; here we have the swapper stuff..
Swappers	dc.W NoSwap	;* all 3 regions are needed
	dc.W ClipA	;* need rgn B & C
	dc.W ClipB	;* need rgn A & C
	dc.W ClipAB	;* need rgn C only
	dc.W ClipC	;* need rgn A & B
	dc.W ClipAC	;* need rgn B Only
	dc.W ClipBC	;* need rgn A Only
	dc.W ClipABC	;* need none of them ????
NoSwap		; none of these routines need any swapping!
ClipC
ClipBC
ClipABC	RTS

ClipAB		; we do not need A or B so move C into A
ClipA		; We do not need region A so swap it with C
	SwapLong RgnPtrC,RgnPtrA
	SwapLong ScanPtrC,ScanPtrA
	SwapLong StatePtrC,StatePtrA
	rts

ClipB		; no need for rgnB so swap it with C
	SwapLong RgnPtrC,RgnPtrB
	SwapLong ScanPtrC,ScanPtrB
	SwapLong StatePtrC,StatePtrB
	rts

ClipAC		; no need for rgnA so swap it with B
SwapAB
	SwapLong RgnPtrB,RgnPtrA
	SwapLong ScanPtrB,ScanPtrA
	SwapLong StatePtrB,StatePtrA
	rts


SeekerDispatch	ds.L 1

TestIt
; This routine will see if the region that you are looking at is the wide open
; region. If so, then set the carry.
	lda  [RgnPtrA]
	cmp  #$000A	; are we rectangular?
	bne  @NotThisOne
; so far so good now test the rectangles...
	ldy  #0002
	lda  [RgnPtrA],y
	and  #$FFFE	; account for both wide open regions..
	cmp  #$C000
	bne  @NotThisOne
	ldy  #0004
	lda  [RgnPtrA],y
	and  #$FFFE	; account for both wide open regions..
	cmp  #$C000
	bne  @NotThisOne
	ldy  #0006
	lda  [RgnPtrA],y
	cmp  #$3FFF
	bne  @NotThisOne
	ldy  #0008
	lda  [RgnPtrA],y
	cmp  #$3FFF
	bne  @NotThisOne
	sec
	rts
@NotThisOne	clc
	rts
	
	
	ENDP

iSeek3Regions	PROC Export
	Export iSeek2Regions
; a faster way to seek 3 of em at a time.. This routine will dispatch to the proper "Local"
; region seeker...
	Import SeekerDispatch
	Import OldSeek3Regions
	Import OldSeek2Regions
	
	lda >SeekerDispatch
	tax
	jmp  (seekTable,x)
SeekTable
	dc.W seekum3	;* all 3 regions are needed
	dc.W Seekum2	;* need rgn B & C
	dc.W Seekum2	;* need rgn A & C
	dc.W Seekum1	;* need rgn C only
	dc.W Seekum2	;* need rgn A & B
	dc.W Seekum1	;* need rgn B Only
	dc.W Seekum1	;* need rgn A Only
	dc.W seekum1	;* need none of them so we seek 1 (just to make it happy!)
	
Seekum1	jml  seek1Region
Seekum2	jml  OldSeek2Regions
Seekum3	jml  OldSeek3Regions


iSeek2Regions
; This is the patch for this fine vector..
	lda  >SeekerDispatch
	beq  Seekum2	; zero means still seek both
	jml  Seek1Region
	EndP
	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Patch/Patch3/QuickerGraph.make b/IIGS.601.SRC/GSToolbox/Patch/Patch3/QuickerGraph.make
new file mode 100644
index 0000000..572c33b
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Patch/Patch3/QuickerGraph.make
@@ -0,0 +1 @@
+QuickerGraph		Ä			¶
	QuickerGraph.Make				¶
	:obj:QuickerGraph.pch.obj			¶
	:obj:Slice.pch.obj				¶
	:obj:QGRegions.pch.obj			¶
	:obj:TextDraw.Pch.Obj			¶
	:::QD:objs:Env.Asm.Obj			¶
	:::QD:objs:Shifts.Asm.Obj
	linkiigs  		¶
		-lseg:$2000 INIT	¶
			:obj:QuickerGraph.pch.obj ¶
		-lseg MAIN 					¶
			:obj:TextDraw.Pch.Obj			¶
			:obj:Slice.Pch.Obj			¶
			:obj:QGRegions.Pch.Obj			¶
			:::QD:objs:Env.Asm.Obj(EXTENDCOLORWORD)		¶
			:::QD:objs:Shifts.Asm.Obj(SHIFTSTAY,XSHIFTSTAY,SHIFTOUT,XSHIFTOUT)		¶
		-o QuickerGraph -t $B6 -at $0000
#	dup quickergraph :
	
### Dependancies for components
:obj:QuickerGraph.pch.obj		Ä	QuickerGraph.pch
	asmiigs QuickerGraph.Pch -o :obj:
:obj:TextDraw.Pch.Obj 		Ä	TextDraw.Pch
	asmiigs TextDraw.Pch -o :obj:   -unsafe -wi
:obj:Slice.Pch.Obj 		Ä	Slice.Pch
	asmiigs Slice.Pch -o :obj:   -unsafe -wi
:obj:QGRegions.Pch.Obj 		Ä	QGRegions.Pch
	asmiigs QGRegions.Pch -o :obj:   -unsafe -wi

### Dependencies for QuickDraw components that I'm borrowing
:::qd:objs:SHIFTS.asm.obj	Ä	:::qd:shifts.asm
	asmiigs :::qd:shifts.asm -o :::qd:objs:shifts.asm.obj -i :::qd:

:::qd:objs:ENV.asm.obj	Ä	:::qd:env.asm
	asmiigs :::qd:env.asm -o :::qd:objs:env.asm.obj -unsafe -wi -i :::qd:
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Patch/Patch3/QuickerGraph.pch b/IIGS.601.SRC/GSToolbox/Patch/Patch3/QuickerGraph.pch
new file mode 100644
index 0000000..a732c66
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Patch/Patch3/QuickerGraph.pch
@@ -0,0 +1 @@
+*******************************************************************************
* Quickergraph init by mensch
*
* (C)  Copyright Apple Computer, Inc. 1991
* All rights reserved.
*
* by Jim Mensch
* circa 1991
*
* get out of this source code you scum sucking pig.
*
* Files:
*
*
*
* Modification History:
*
* Version 1.0	Mensch
*
*******************************************************************************

	include 'all.macros'
	include ':::qd:qdequates:qd.data.asm'
	INCLUDE ':::qd:QDEquates:CORE.GLOBALS1'
	INCLUDE ':::qd:QDEquates:core.globals2'
	INCLUDE ':::qd:QDEquates:region.equs'
	INCLUDE ':::qd:QDEquates:RECT.EQUS'
	INCLUDE ':::qd:QDEquates:SLAB.EQUS'
	INCLUDE ':::qd:QDEquates:rgndefs.equs'
	include 'e16.memory'
	import iSetStuffAdr
	import iBlowItUp
	import iSetSliceAdr
	import iInit3Regions
	import iSeek3Regions
	import iInit2Regions
	import iSeek2Regions
	
	entry iGimmeVersion

	MACRO
&lab	Patch &name
&lab	
	lda |&name
	sta >old&Name
	lda |&Name+2
	sta >old&Name+2
	lda #<i&name
	sta |&name+1
	lda #>i&name
	sta |&name+2
	MEND

	MACRO
&Lab	TablePatch &RtnName,&CallNum
&Lab	ldy #&CallNum*4
	lda #&RtnName-1
	sta [LocalTemp],y
	iny
	iny
	lda #^&RtnName
	sta [LocalTemp],y
	MEND
	
; This macro will be used to switch in based on the current ROM version.
; 
	MACRO
&Lab	VersPatch &RtnName,&Address
&Lab	lda >ROM&Address,x
	sta >&RtnName+1
	lda >ROM&Address+1,x
	sta >&RtnName+2	
	MEND

	MACRO
&Lab	VersSPatch &RtnName,&Address
&Lab	lda >ROM&Address,x
	sta >&RtnName+1
	MEND

****************************************************************
*
InstallQDPatch	PROC Export
*
* This routine installs the patches to QD's vectors and
* returns
*
*
* Inputs:
*	none
*
* Outputs:
*	all registers may be trashed.
*
* External Refs:
	Import Cont16
	Import Cont26
	Import Cont36
	Import oFastBigLoop
	Import oSlowBigLoop
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************
NumQDCalls	equ $DB		;8-Mar-91 DAL
CallTableSize	equ 4*(NumQDCalls+1)	;(It should really determine this on the fly)
LocalTemp	equ 0
SetPortOffset	equ $1B*4


	phb
	pea $E0E0
	plb
	plb

;
; Call FWEntry to get the ROM version. (DAL)
; Do some patching for ROM 1 and ROM 3, but not for anything else.
;
	pha
	pha
	pha
	pha	;space for result (P,A,X,Y)
	pha	;input A (who cares)
	pha	;input X (who cares)
	pha	;input Y (who cares)
	pea $FE1F	;IDROUTINE
	_FWEntry
	ply	;returned ROM version (from Y register)
	pla	;returned X
	pla	;returned A
	pla	;returned P
	ldx #0	;anticipate ROM 1
	cpy #1
	beq @patchStuff
	ldx #ROMTableSize	;anticipate ROM 3
	cpy #3
	beq @patchStuff
	brl @noPatches

@patchStuff
;
; First do the ROM-independent patches (but only for ROMs that we
; know about (1 and 3).
;
	Patch GimmeVersion
		
	Patch BlowItUp
	Patch SetStuffAdr
	Patch SetSliceAdr
	Patch Seek3Regions
	Patch Init3Regions
	Patch Seek2Regions
	Patch Init2Regions
;
; Now do the ROM-specific patches
;

	VersPatch oFastBigLoop,FastBigLoop
	VersPatch oSlowBigLoop,SlowBigLoop

	VersPatch Cont16,ConTable640
	VersSPatch Cont26,ConTable640
	VersSPatch Cont36,ConTable640
	
@noPatches	plb
	RTL
	
	Export OldGimmeVersion
	Export OldBlowItUp
	Export OldSetStuffAdr
	Export OldSetSliceAdr
	Export OldSeek3Regions
	Export OldInit3Regions
	Export OldSeek2Regions
	Export OldInit2Regions
;
; Address tables for specific ROM routines that need to be called...
; ROM 2 tables first ("ROM 2" means "ROM 01")
;
ROMFastBigLoop	dc.L $FE734A	;searched for "LDA $A4, BNE +4, JSL Seek2Regions", found only one
ROMSlowBigLoop	dc.L $FE740C	;searched for "LDA $C6, STA $CC, LDA $BA, STA $2C, LDA $BC, STA $2A, JSL Seek2Regions"
ROMConTable320	dc.L $FE4C3B	;from GetAddress(2)
ROMConTable640	dc.L $FE503B	;from GetAddress(3)
ROMtableSize	equ *-ROMFastBigLoop
; ROM 3 tables here..
ROM3FastBigLoop	dc.L $FE9171	; 
ROM3SlowBigLoop	dc.L $FE9233	; 
ROM3ConTable320	dc.L $FE6372
ROM3ConTable640	dc.L $FE6772
;
; End of version patch data
;
; Call back table data
OldGimmeVersion	ds.L 1
OldBlowItUp	ds.L 1
OldSetStuffAdr	ds.L 1
OldSetSliceAdr	ds.L 1
OldSeek3Regions	ds.L 1
OldInit3Regions	ds.L 1
OldSeek2Regions	ds.L 1
OldInit2Regions	ds.L 1
	EndP

****************************************************************
*
iGimmeVersion	PROC Export
*
* Vectored routine to return QD's version number
*
*
* Inputs:
*	none
*
* Outputs:
*	a-reg
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************
	jsl  OldGimmeVersion
	ora  #$4000
	RTL

	ENDP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Patch/Patch3/Scrap.pch b/IIGS.601.SRC/GSToolbox/Patch/Patch3/Scrap.pch
new file mode 100644
index 0000000..5ecfbef
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Patch/Patch3/Scrap.pch
@@ -0,0 +1 @@
+	title 'Scrap Manager Patch      GS ROM 3 Patch'
****************************************************************
*			   *
*              Copyright (C) 1990		   *
*              All Rights Reserved		   *
*              Apple Computer, Inc.		   *
*			   *
****************************************************************

****************************************************************
*
* Scrap Manager patches for ROM 3
*
* System Software 6.0
*
****************************************************************
*
* 24-Sep-90	Dave Lyons
*
* New file.  Imports routines from the RAM-based scrap manager.
* So far we are patching ScrapVersion and UnloadScrap and adding
* GetIndScrap.
*
* 18-Nov-90	Dave Lyons
*
* UnloadScrap was a patch stub before.  Now it gets linked in
* from TOOL022.
*
* 3-Jan-91	Dave Lyons
*
* Patched ScrapStartUp to zero out Scrap State, because on ROM 3
* ScrapBootInit gets called before the OS is around, and it was
* deciding that the scrap was in memory when it was really on
* disk but inaccessible.
*
* 17-Feb-91 DAL
*
* ABANDONING THIS PATCH FILE.  Haven't been using it lately, and
* it looks like it's going to stay that way.  It's not worth it
* to try salvaging the ROM 3 version of the Scrap Manager, so we're
* using it out of RAM instead.
*
****************************************************************
	Blanks off
	String asis
	
	include 'm16.util2'
	include 'm16.memory'
	include 'm16.scrap'

*
* JSRL macro for calling RTS subroutines in ROM
*
	GBLA &MacroCnt
&MacroCnt	Seta 0

	Macro
&Lab	JSRL &Addr
	GBLA &MacroCnt
&MacroCnt	SETA &MacroCnt+1
	phk
	per theRTL&MacroCnt-1
	pea |LclRTL-1
	jml >&Addr
theRTL&MacroCnt
	MEND

LclRTL	equ $FC01C3


****************************************************************
*
* ScrapCallTable
*
****************************************************************
	EXPORT ScrapCallTable
ScrapCallTable	PROC

	import ScrapVersion
	import UnloadScrap
	import GetIndScrap
	import ScrapStartUp

TheBeginning	DC.L (TheEnd-TheBeginning)/4 	; call count + 1
	DC.L 0		;0116 ScrapBootInit
	DC.L ScrapStartUp-1		;0216 ScrapStartUp
	DC.L 0		;0316 ScrapShutDown
	DC.L ScrapVersion-1		;0416 ScrapVersion
	DC.L 0		;0516 ScrapReset
	DC.L 0		;0616 ScrapStatus
	DC.L 0		;0716 reserved
	DC.L 0		;0816 reserved
	DC.L UnloadScrap-1		;0916 UnloadScrap
	DC.L 0		;0A16 LoadScrap
	DC.L 0		;0B16 ZeroScrap
	DC.L 0		;0C16 PutScrap
	DC.L 0		;0D16 GetScrap
	DC.L 0		;0E16 GetScrapHandle
	DC.L 0		;0F16 GetScrapSize
	DC.L 0		;1016 GetScrapPath
	DC.L 0		;1116 SetScrapPath
	DC.L 0		;1216 GetScrapCount
	DC.L 0		;1316 GetScrapState
	DC.L GetIndScrap-1		;1416 GetIndScrap (added 24-Sep-90 DAL)
TheEnd
	EndP



;----------------------------------------------------
;
; Zero page equates.
;
ScrapTablePtr	equ 1	; offset 1 because the old data bank is	stored at 0 
OffsetToThisOne	equ ScrapTablePtr+4
PtrToThisOne	equ OffsetToThisOne+4
DestHandle	equ PtrToThisOne+4
DestPtr	equ DestHandle+4
WAPEntry	equ DestPtr+4
MemHandle	equ WAPEntry+4
MemPtr	equ MemHandle+4
OrigDirect	equ MemPtr+4
StdZPSize	equ OrigDirect-1

;----------------------------------------------------
;
; Scrap Record
;
o_ScrapType	equ 0
o_ScrapSize	equ 2
o_ScrapHandle	equ 6
ScrapRecSize	equ 10


;----------------------------------------------------
;
; ScrapAttributes for the memory I get
ScrapAttributes	equ $0008	; not special memory


;----------------------------------------------------
;
; File type for clipboard file.
;
ClipFileType	equ 0	; don't know yet
*ClipAuxType	equ 0

;-----------------------------------------------------------
;
; Error Codes we need to label.
;
FileNotFound	equ $46	; ProDOS error

NotImpError	equ $16FF
TypeError	equ $1610

;-----------------------------------------------------------
;
; Equates for OS entry points.
;
OS_ENTRY	equ $E100A8
OS_ENTRY2	equ $E100B0
OS_Zero	equ $E100BA
OS_Kind	equ $E100BC
OS_Boot	equ $E100BD

;-----------------------------------------------------------
;
; Memory Manager attributes
;
Attr_Locked	equ $8000	; 1 = Locked
Attr_Fixed	equ $4000	; 1 = Not movable
Attr_Purge	equ $0300	; 0 = No purge 1-3 purge level
Attr_NoCross	equ $0010	; 1 = May not cross	banks
Attr_NoSpec	equ $0008	; 1 = May not use special memory
Attr_Page	equ $0004	; 1 = Page Aligned
Attr_Addr	equ $0002	; 1 = Fixed address
Attr_Bank	equ $0001	; 1 = Fixed address


;-----------------------------------------------
;
;   Equates for Stack based ProDOS calls
;   and other memory locations that needed space
;   because code is	being made non-self	modifying
;
CreateCall	equ $01
DestroyCall	equ $02
GetFileInfo	equ $06
OpenCall	equ $10
ReadCall	equ $12
WriteCall	equ $13
CloseCall	equ $14

StackProDOS	equ $E100B0

;Open Call Parameters:
OpenParams	equ 0
OpenID	equ 0	; reference number assigned to file by the OPEN call
OpenPath	equ OpenID+2	; pointer to pathname of file to open
OpenBuf	equ OpenPath+4	; pointer to I/O buffer

;Read Call Parameters:
ReadParams	equ 0
ReadID	equ 0	; reference number assigned to file by the OPEN call
ReadTo	equ ReadID+2	; pointer to location of buffer where data is read into
ReadAmount	equ ReadTo+4	; the number of bytes to be transferred

;Write Call Parameters:
WriteParams	equ 0
WriteID	equ 0	; reference number assigned to file by the OPEN call
WriteFrom	equ WriteID+2	; pointer to location of where data is to be written to
WriteAmount	equ WriteFrom+4	; number of bytes to write

;Close Call Parameters:
CloseParams	equ 0
CloseRef	equ 0	; reference number assigned to file by the OPEN call

;Create Call Parameters:
CreateParams	equ ReadAmount+8
CreatePath	equ ReadAmount+8	; pointer to pathname of file to create
CreateAccess	equ CreatePath+4	; word value, how file may be accessed
CreateFileType	equ CreateAccess+2	; file type of file
CreateAuxType	equ CreateFileType+2 ; file's auxiliary type
CreateStType	equ CreateAuxType+4	; logical organization of file
CreateDate	equ CreateStType+2	; date which file was created
CreateTime	equ CreateDate+2	; time at which file was created

;Destroy Call Parameters:
DestroyParams	equ CreateTime+2
DestroyPath	equ CreateTime+2

HowMuchToWrite	equ DestroyParams+4
HowMuchToRead	equ HowMuchToWrite+4
NumEntries	equ HowMuchToRead+4	; used when reading	the clipboard file from disk
FirstScrapHandle	equ NumEntries+2
ScrapState	equ FirstScrapHandle+4 ; ScrapState indicates whether scrap	is currently in memory or on disk
ScrapCount	equ ScrapState+2	; ScrapCount is incremented each time zero scrap is called
ScrapHandle	equ ScrapCount+2
ScrapName	equ ScrapHandle+4	; Pointer to pathname of clipboard file.
FIParams	equ ScrapName+4
TotalMem	equ FIParams+29


;-----------------------------------------------
; 
;  System Equates
;
IncBusyFlg	equ $E10064
DecBusyFlg	equ $E10068


****************************************************************
*
* ScrapStartUP
*
* Zero out the Scrap State so we will look on disk again
*
* Dave Lyons, 3-Jan-91
*
****************************************************************
	ENTRY ScrapStartUp
	entry StartScrapCall
	entry EndScrapCall

ScrapStartUp	PROC

	phy
	pha

	jsr StartScrapCall

	ldy #ScrapState
	lda #0	;scrap is on disk
	sta [<MemPtr],y
	tax	;error 0

	jsr EndScrapCall

	pld
	ldy #0	;strip 6 bytes of parameters
	jml $e10180	;ToBusyStrip

	ENDP


****************************************************************
*
* ScrapVersion
*
* 24-Sep-90	Dave Lyons
*
****************************************************************
ScrapVersion	proc

ScrapVersionNum	equ $8301

	lda #ScrapVersionNum
	sta 7,s
	lda #0
	clc
	rtl

	EndP


****************************************************************
*
* GetIndScrap
*
* New call for 6.0   18-Sep-90 DAL
*
* Description:
*
* GetIndScrap(index,bufferPtr)
*              WORD      LONG
*
* Bits 24-31 of bufferPtr are reserved and must currently be 0.
*
* Fills the supplied 10-byte buffer with information on the
* Index-th scrap. The format of the buffer is:
*
*   +000 scrap type   (word)
*   +002 scrap handle (long)
*   +006 scrap size   (long)
*
****************************************************************
	ENTRY GetIndScrap
	entry StartScrapCall
	entry EndScrapCall
	
GetIndScrap	PROC export

ROMLoadTheScrap	equ $fc9a55
ROMDerefFirstHandle	equ $fc9949
ROMUnlockFirstHndl	equ $fc996c

WAPPointer	equ OrigDirect+2
RTL1	equ WAPPointer+4
RTL2	equ RTL1+3
BuffPtr	equ RTL2+3
IndexParm	equ BuffPtr+4

	phy
	pha

	jsr StartScrapCall

	ldy #ScrapState
	lda [<MemPtr],y
	bne @AlreadyInMem
	jsrl ROMLoadTheScrap
@AlreadyInMem

	jsrl ROMDerefFirstHandle
	lda IndexParm
	beq @notFound
	dec a
	cmp [<scrapTablePtr]
	bcs @notFound

	tay
	lda #2
	iny
@loop	dey
	beq @multiplied
	clc
	adc #ScrapRecSize
	bra @loop
@multiplied	tay

	clc
	tya
	adc <scrapTablePtr
	tay
	lda <scrapTablePtr+2
	adc #0
	pha
	phy
	pei <BuffPtr+2
	pei <BuffPtr
	pea 0
	pea ScrapRecSize
	_BlockMove

	lda #0	;no error
	bra @exit

@notFound	lda #typeError

* error in A
@exit	pha	;save error code
	jsrl ROMUnlockFirstHndl
	plx

	jsr EndScrapCall

	pld
	ldy #6	;strip 6 bytes of parameters
	jml $e10180	;ToBusyStrip

	ENDP

****************************************************************
*
* StartScrapCall
*
* This routine sets	up direct page, adjusts the stack and
* data bank, calls inc busy flag in preparation for the
* start of a Scrap Manager call.
*
****************************************************************
	ENTRY StartScrapCall
StartScrapCall	PROC

	ply	; get rts addr in y

	phd	; save direct reg
	tsc	; and get my zero page off stack
	sec
	sbc #StdZPSize
	tcs
	tcd

	phb	; save data bank
	phk	; set data bank to
	plb	; code bank

	lda StdZPSize+4,s
	sta <MemHandle
	lda StdZPSize+6,s
	sta <MemHandle+2

	phy	; put rts back on the stack

	ldy #4	; deref and lock MemHandle
	lda [<MemHandle],y
	ora #$8000
	sta [<MemHandle],y
	dey
	dey
	lda [<MemHandle],y
	tax
	lda [<MemHandle]
	sta <MemPtr
	stx <MemPtr+2

	jsl IncBusyFlg

	rts

	ENDP


****************************************************************
*
* EndScrapCall
*
* This routine restores direct page and	data bank, and adjusts
* adjusts the stack	to undo everything that startScrapCall
* did.
*
* Note:  DecBusyFlg	is done by the end call routine.
*
****************************************************************
	ENTRY EndScrapCall
EndScrapCall	PROC

	ldy #4	; unlock MemHandle
	lda [<MemHandle],y
	and #$7FFF
	sta [<MemHandle],y

	ply	; save rts addr in y

	plb
	tsc
	clc
	adc #StdZPSize
	tcs

	lda 1,s	; save direct page
	sta 5,s	; overwrite the high word of WAPEntry on stack
	pla	; get rid of direct	page still on stack	                
	pla	; get rid of low word of WAPEntry
	phy	; put rts back on stack

	rts

	ENDP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Patch/Patch3/Slabs.Pch b/IIGS.601.SRC/GSToolbox/Patch/Patch3/Slabs.Pch
new file mode 100644
index 0000000..a8c109c
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Patch/Patch3/Slabs.Pch
@@ -0,0 +1 @@
+*******************************************************************************
* ROM 3 Slab patches
*
* (C)  Copyright Apple Computer, Inc. 1989
* All rights reserved.
*
* by Jim Mensch
* 6/15/89
*
* Contains all that is needed to patch the ROM3 slabs to work properly
*
* Files:
*
*
*
* Modification History:
*
* Version 1.0	Mensch
*
*
*******************************************************************************
;
; ROM Addresses required for this to work
; for ROM 3
FastSlabOr	equ $FE2C90
FastSlabBIC	equ $FE2D09
FastSlabXor	equ $FE2721
FastSlabCopy	equ $FE2A26
ROMSETSLABADR	equ $FE2D92
GOREALLYFASTXOR	EQU $FE2796
FastSlabXorAlt	equ $FE2742
DoSingleWordXor	equ $FE2780
DoLastTwoXor	equ $FE2788
GOREALLYFASTCOPY	EQU $FE2A9F
FastSlabCopyAlt	equ $FE2A47
DoSingleWordCopy	equ $FE2A85
DoLastTwoCopy	equ $FE2A8F


****************************************************************
*
* SetSlabAdr post patch
*
* This routine sets	of the vector "ToSlab" in bank E0.  All
* drawing routines use this vector to get to their slab routine.
*
* 6/15/89	Mensch
* First post patch goes here...
*
****************************************************************
iSetSlabAdr	PROC EXPORT

	jsl ROMSETSLABADR
	bcs ItsGroovy
GoFast
	lda >FastSlabTable,x
	sta >ToSlab
	lda >FastSlabTable+2,x
	sta >ToSlab+2
	clc	;signals that we can go fast
ItsGroovy	rtl

FastSlabTable

	jml PatchSlabCopy
	jml FastSlabOR
	jml PatchSlabXOR
	jml FastSlabBIC
	EndP
	
	
	title 'PatchSlabXOR'
****************************************************************
*
PatchSlabXOR	PROC EXPORT
*
*
* 6/15/89	Mensch
*
* Drastically modified for slab entry for the patch
*
****************************************************************
;---------------------------------------------------------------
MaxWordsInRow	equ 80
MaxBytesInRow	equ MaxWordsInRow*2
;---------------------------------------------------------------

;---------------------------------------------------------------
	lda Pat	;if the patterns are equal go very fast
	cmp Pat+2
	beq tryReallyFast
exit1	jml FastSlabXOR	; if the pats are not equal use ROMslabs
tryReallyFast	
	lda FinishWord	;get the number of bytes to XOR into the
	sec	;..A-Reg
	sbc StartWord
	beq exit1	;if only one word, do a special case
	lsr a
	dec a	;if only two words,	then do another
	beq exit1	;..special case
	tax	;otherwise the count goes in X-Reg
	cmp #MaxWordsInRow	; do we hit the threshhold?
	bge exit2	; if less than max in rom do exit1
	jml GoReallyFastXOR
Exit2	jml FastSlabXORAlt	; else do the fast slab xor alt
	EndP

	title 'PatchSlabCopy'
****************************************************************
*
PatchSlabCopy	PROC EXPORT
*
* 6/15/89	Mensch
*
* Made entry to fastslabcopy modified version for the patch
****************************************************************
;---------------------------------------------------------------
MaxWordsInRow	equ  80

;---------------------------------------------------------------
	lda Pat	;if the patterns are equal go very fast
	cmp Pat+2
	beq tryReallyFast
exit1	jml ROMSlabFastCopy	; if the pats are not equal use ROMslabs
tryReallyFast	
	lda FinishWord	;get the number of bytes to XOR into the
	sec	;..A-Reg
	sbc StartWord
	beq exit1	;if only one word, do a special case
	lsr a
	dec a	;if only two words,	then do another
	beq exit1	;..special case
	tax	;otherwise the count goes in X-Reg
	cmp #MaxWordsInRow	; do we hit the threshhold?
	bge exit2	; if less than max in rom do exit1
	jml GoReallyFastCopy
Exit2	jml FastSlabCopyAlt	; else do the fast slab xor alt
	EndP


\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Patch/Patch3/Slice.pch b/IIGS.601.SRC/GSToolbox/Patch/Patch3/Slice.pch
new file mode 100644
index 0000000..38dfa94
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Patch/Patch3/Slice.pch
@@ -0,0 +1 @@
+*******************************************************************************
* mystuff...
*
* (C)  Copyright Apple Computer, Inc. 1990
* All rights reserved.
*
* by Jim Mensch
* _Date_
*
* _Description_
*
* Files:
*
*
*
* Modification History:
*
* Version 1.0	_Author_
*
*
*******************************************************************************
	include 'all.macros'
	
	include ':::qd:qdequates:qd.data.asm'
	INCLUDE ':::qd:QDEquates:CORE.GLOBALS1'
	INCLUDE ':::qd:QDEquates:core.globals2'
	INCLUDE ':::qd:QDEquates:region.equs'
	INCLUDE ':::qd:QDEquates:RECT.EQUS'
	INCLUDE ':::qd:QDEquates:Slice.EQUS'
	INCLUDE ':::qd:QDEquates:rgndefs.equs'	
	
iSetSliceAdr	PROC  Export
	Import oldSetSliceAdr
	Import FastSlicesLoop
	Import ToClipperSlice
	
	lda XFerMode	; take the tranfer mode
	and #$7F	; mask off not bit
	asl a	; double
	asl a	; and double again
	tax	; put in x
	
	lda HowFarToShift	; if i don't have to shift at all
	beq UseFastSlices	; then I can use the fast slice routines
;
; At this point it might be nice to determine if we are shifting >8 bits. If so, we
; might have a speed up we can do by decrementing the source address by 1..
;	sec
;	sbc #8
;	bmi @NotBy8
;	sta HowFarToSHift	; zero out how far to shift...
;	bne @ByMoreThan8
;	lda SrcRef
;	beq @NotBy8	; forget this case completely...
;	dec a
;	sta SrcRef	; subtract 1 from the source ref
;	bra UseFastSlices	; and do it the fast way bub...
@ByMorethan8
;	lda SrcRef	; bump lower source ref for grins sake..
;	beq @NotBy8	; forget this case completely...
;	dec a
;	sta SrcRef	; subtract 1 from the source ref 
@NotBy8
;
; Now see if we are being called  with AllRectRegions..
	lda NonRectRegions	; called for non-rectangular dudes?
	bne @UseClipping
	
; now see if we are using the mode copy dudes...
	Import ToClipperSlice
	bit HorBackward	; oh well so I use the slow ones.
	bpl @ClippLessForward

	lda >BackClipperTable+2,x
	sta >ToClipperSlice+2
	lda >BackClipperTable,x
	bra @StoreIt

@ClippLessForward		; 
	lda >SliceClipperTable+2,x
	sta >ToClipperSlice+2
	lda >SliceClipperTable,x
@StoreIt	sta >ToClipperSlice

	pla	; now skag off the retufn address
	phb	; add a byte that we can skank off 2
	pla
; now just return to the proper routine! he he he
	jmp FastSlicesLoop

@UseClipping
	bit HorBackward	; oh well so I use the slow ones.
	bpl SlowHorIsForward

	lda >BackSliceAdrTable,x
	sta >ToSlice
	lda >BackSliceAdrTable+2,x
	bra StoreIt

SlowHorIsForward		; 
	lda >SliceAdrTable,x
	sta >ToSlice
	lda >SliceAdrTable+2,x
StoreIt	sta >ToSlice+2

	rtl

UseFastSlices		; 
	jml OldSetSliceAdr	; jump back to the old routine here!

SliceAdrTable

	jml FCopySlice
	jml FORSlice
	jml FXORSlice
	jml FBICSlice

BackSliceAdrTable

	jml BFCopySlice
	jml BFORSlice
	jml BFXORSlice
	jml BFBICSlice
;
; NOTE:
; Removed jsr ability to clipper slices, since we don't want to burn the code to patch all the
; existing slices, instead what we will do is continue to jsl them. NOTE: These are NOT to be placed
; in toSlice ever!
;
SliceClipperTable

	jsl cFCopySlice
	jsl FORSlice
	jsl FXORSlice
	jsl FBICSlice

BackClipperTable

	jsl BFCopySlice
	jsl BFORSlice
	jsl BFXORSlice
	jsl BFBICSlice

	ENDP
	
	EJECT
*******************************************************************************
*
FastSlicesLoop	PROC Export
*
* Description:	This is the location we return to when we discover that we can
*	call the fast slices from rgnBlt. NOTE that this duplicates a
*	portion of the slices code and works with both ROMS...
*
*
* Inputs:	None
*
* Outputs:	None
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
	Export ToClipperSlice
	jsl Seek3Regions
PaintLoop
	plp	; get v flag back
	php	; save for later too

ToClipperSlice	jsl ToSLice

	lda CurrentY
	inc a
	cmp DestRect+4
	bpl TheEnd	; unsigned compare dummy 28 Mar 86

	sta CurrentY
	lda SrcWidth
	clc
	adc SrcRef
	sta SrcRef
	bcc NoCarrySrc	; must carry accross banks
	inc SrcRef+2
NoCarrySrc	lda DestWidth
	clc
	adc DestRef
	sta DestRef
	bcc NoCarryDest
	inc DestRef+2
	phb	; must also update the data bank
	lda DestRef+1	; register
	sta 0,s
	plb
NoCarryDest		; 

	bra PaintLoop
TheEnd	jsl UnShieldCursor

	plp	; clean up stack

AllDone	jsl Free3Regions

NeverMind	plb



	lda #0
	clc
	rtl
	EndP
	

;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

	IMPORT ShiftOut
	IMPORT ShiftStay
	IMPORT xShiftOut
	IMPORT xShiftStay

****************************************************************
* Clipper slices
* These are all the slices that do not require use of clipping
* ain't they grand?
****************************************************************
cFCopySlice	PROC Export
	Import OutTable
	Import StayTable
	
	stz ShiftTemp	; Zero this for later use

	ldy DestStartWord	; if start = finish
	sty DestIndex	; then combine masks

	ldx SrcStartWord	; get dest pointer into y
	stx SrcIndex	; initialize index here

	cpy #0
	bmi Loop	; dec it when it was 0

MaskFirstWord
	lda [ScanMaskRef],y
	cmp #$FFFF
	beq Loop

	jsr ClipThisWord
	bra BumpIndexes
Loop		; 
	ldy SrcIndex
	lda [SrcRef],y
	sta ThisWord
	iny
	iny
	sty SrcIndex
	ldx HowFarToShift
	jsr (OutTable,x)
	sta ShiftTemp2	; save it

	lda ThisWord
	jsr (StayTable,x)
	ora ShiftTemp

	bvc NotNot2	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot2	ldy DestIndex
	sta (DestRef),y	; and store it.
BumpIndexes		; 
	lda ShiftTemp2
	sta ShiftTemp
	iny
	iny
	sty DestIndex
	cpy DestFinishWord
	bcc Loop	; branch less than we keep...
	
	lda [ScanMaskRef],y
	cmp #$FFFF
	jsr ClipThisWord
	iny
	iny
	sty DestIndex
AllDone	rtl

ClipThisWord
	sta CombinedMask	; put in combined mask
	eor #$FFFF	; invert combined mask
	and (DestRef),y
	sta NotMaskAndDest	
	
	ldy SrcIndex	; Get source word
	lda [SrcRef],y
	sta ThisWord	; save for later
	iny
	iny
	sty SrcIndex
	ldx HowFarToShift
	jsr (OutTable,x)
	sta ShiftTemp2	; save it

	lda ThisWord
	jsr (StayTable,x)
	ora ShiftTemp

	bvc NotNot1	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot1	and CombinedMask	; and with combined	mask

	ora NotMaskAndDest	; merge with original part that stays
	ldy DestIndex
	bmi @end	; again if it was neg then special
	sta (DestRef),y	; and store it.
@end	rts

	ENDP

;                COPY SLICES/SLICES
****************************************************************
*
* Slices
*
* These are the lowest level pixel transfer routines.  They	copy
* pixels from one scan line to another using an appropriate
* transfer mode.
*
* Parameters are passed on "ZeroPage" and in the overflow
*   flag. (The overflow flag is used to	decide whether to
*   invert the source--set for invert, clear for leave
*   alone.)
* A predraw routine	must set up "ZeroPage" and the overflow
*   flag.
*
* The routines do not use shift tables.	 Instead I use the two
* shift subroutines.  This is faster than using shift tables
* and working only a byte at a time.
*
* The routines can handle scan lines as	long as 32K.  They do not
* care about scan line width and will overflow into next scan line
* if told to.
*
* The routines starting with "F" paint forwards (left to right)
* while routines starting with "B" paint backwards (right to left).
*
****************************************************************

	EXPORT FCopySlice
FCopySlice	PROC
	Import OutTable
	Import StayTable
	
	stz ShiftTemp	; Zero this for later use

	ldy DestStartWord	; if start = finish
	sty DestIndex	; then combine masks

	ldx SrcStartWord	; get dest pointer into y
	stx SrcIndex	; initialize index here

	cpy #0
	bmi SkipMask	; dec it when it was 0

Loop	lda [ScanMaskRef],y
	cmp #$FFFF
	beq FastWay

	sta CombinedMask	; put in combined mask


	eor #$FFFF	; invert combined mask
	and (DestRef),y
	sta NotMaskAndDest

SkipMask	
	
	ldy SrcIndex	; Get source word
	lda [SrcRef],y
	sta ThisWord	; save for later
	iny
	iny
	sty SrcIndex
	ldx HowFarToShift
	jsr (OutTable,x)
	sta ShiftTemp2	; save it

	lda ThisWord
	jsr (StayTable,x)
	ora ShiftTemp

	bvc NotNot1	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot1	and CombinedMask	; and with combined	mask

	ora NotMaskAndDest	; merge with original part that stays
	ldy DestIndex
	bmi BumpIndexes	; again if it was neg then special
	sta (DestRef),y	; and store it.

	bra BumpIndexes

FastWay		; 
	ldy SrcIndex
	lda [SrcRef],y
	sta ThisWord
	iny
	iny
	sty SrcIndex
	ldx HowFarToShift
	jsr (OutTable,x)
	sta ShiftTemp2	; save it

	lda ThisWord
	jsr (StayTable,x)
	ora ShiftTemp

	bvc NotNot2	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot2	ldy DestIndex
	sta (DestRef),y	; and store it.



BumpIndexes		; 

	lda ShiftTemp2
	sta ShiftTemp

	iny
	iny
	sty DestIndex

	cpy DestFinishWord

	bcc Loop
	beq Loop

AllDone	rtl

	ENDP

	EXPORT FOrSlice
FOrSlice	PROC
*              using CoreDATA

	stz ShiftTemp	; Zero this for later use

	ldy DestStartWord	; if start = finish
	sty DestIndex	; then combine masks

	ldx SrcStartWord	; get dest pointer into y
	stx SrcIndex	; initialize index here

	cpy #0	; if dest index is neg then we had to
	bmi SkipMask	; dec it when it was 0

Loop	lda [ScanMaskRef],y
	cmp #$FFFF
	beq FastWay

	sta CombinedMask	; put in combined mask

SkipMask	ldy SrcIndex	; Get source word
	lda [SrcRef],y
	sta ThisWord	; save for later
	iny
	iny
	sty SrcIndex
	jsl ShiftOut
	sta ShiftTemp2	; save it

	lda ThisWord
	jsl ShiftStay
	ora ShiftTemp

	bvc NotNot1	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot1	and CombinedMask	; and with combined	mask


	ldy DestIndex
	bmi BumpIndexes	; the special case again
	ora (DestRef),y
	sta (DestRef),y	; and store it.

	bra BumpIndexes

FastWay		; 
	ldy SrcIndex
	lda [SrcRef],y
	sta ThisWord
	iny
	iny
	sty SrcIndex
	jsl ShiftOut
	sta ShiftTemp2	; save it

	lda ThisWord
	jsl ShiftStay
	ora ShiftTemp

	bvc NotNot2	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot2	ldy DestIndex
	ora (DestRef),y
	sta (DestRef),y	; and store it.



BumpIndexes		; 

	lda ShiftTemp2
	sta ShiftTemp

	iny
	iny
	sty DestIndex

	cpy DestFinishWord

	bcc Loop
	beq Loop

AllDone	rtl

	ENDP




	EXPORT FXORSlice
FXORSlice	PROC
*              using CoreDATA

	stz ShiftTemp	; Zero this for later use

	ldy DestStartWord	; if start = finish
	sty DestIndex	; then combine masks

	ldx SrcStartWord	; get dest pointer into y
	stx SrcIndex	; initialize index here

	cpy #0	; if dest index is neg then we had to
	bmi SkipMask	; dec it when it was 0

Loop	lda [ScanMaskRef],y
	cmp #$FFFF
	beq FastWay

	sta CombinedMask	; put in combined mask

SkipMask	ldy SrcIndex	; Get source word
	lda [SrcRef],y
	sta ThisWord	; save for later
	iny
	iny
	sty SrcIndex
	jsl ShiftOut
	sta ShiftTemp2	; save it

	lda ThisWord
	jsl ShiftStay
	ora ShiftTemp

	bvc NotNot1	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot1	and CombinedMask	; and with combined	mask


	ldy DestIndex
	bmi BumpIndexes	; special case
	eor (DestRef),y
	sta (DestRef),y	; and store it.

	bra BumpIndexes

FastWay		; 
	ldy SrcIndex
	lda [SrcRef],y
	sta ThisWord
	iny
	iny
	sty SrcIndex
	jsl ShiftOut
	sta ShiftTemp2	; save it

	lda ThisWord
	jsl ShiftStay
	ora ShiftTemp

	bvc NotNot2	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot2	ldy DestIndex
	eor (DestRef),y
	sta (DestRef),y	; and store it.



BumpIndexes		; 

	lda ShiftTemp2
	sta ShiftTemp

	iny
	iny
	sty DestIndex

	cpy DestFinishWord

	bcc Loop
	beq Loop

AllDone	rtl

	ENDP



	EXPORT FBICSlice
FBICSlice	PROC
*              using CoreDATA

	stz ShiftTemp	; Zero this for later use

	ldy DestStartWord	; if start = finish
	sty DestIndex	; then combine masks

	ldx SrcStartWord	; get dest pointer into y
	stx SrcIndex	; initialize index here

	cpy #0	; if dest index is neg then we had to
	bmi SkipMask	; dec it when it was 0

Loop	lda [ScanMaskRef],y
	cmp #$FFFF
	beq FastWay

	sta CombinedMask	; put in combined mask

SkipMask	ldy SrcIndex	; Get source word
	lda [SrcRef],y
	sta ThisWord	; save for later
	iny
	iny
	sty SrcIndex
	jsl ShiftOut
	sta ShiftTemp2	; save it

	lda ThisWord
	jsl ShiftStay
	ora ShiftTemp

	bvc NotNot1	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot1	and CombinedMask	; and with combined	mask

	ldy DestIndex
	bmi BumpIndexes	; special case
	eor #$FFFF
	and (DestRef),y
	sta (DestRef),y	; and store it.

	bra BumpIndexes

FastWay		; 
	ldy SrcIndex
	lda [SrcRef],y
	sta ThisWord
	iny
	iny
	sty SrcIndex
	jsl ShiftOut
	sta ShiftTemp2	; save it

	lda ThisWord
	jsl ShiftStay
	ora ShiftTemp

	bvc NotNot2	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot2	ldy DestIndex
	eor #$FFFF
	and (DestRef),y
	sta (DestRef),y	; and store it.



BumpIndexes		; 

	lda ShiftTemp2
	sta ShiftTemp

	iny
	iny
	sty DestIndex

	cpy DestFinishWord

	bcc Loop
	beq Loop

AllDone	rtl

	ENDP
;                COPY SLICES/BACK.SLICES
****************************************************************
*
* Get Word
* ShiftStay and save it
*
* dec SrcIndex
* dec SrcIndex
*
* Get Word
* ShiftOut
* Or with Saved ShiftStay
* Save At Dest
*
* Dec DestIndex
* Dec DestIndex
*
* Compare DestIndex	with FirstWord
*       beq LeftEdge
*       bcs Loop
*
*       bra AllDone
*
* Change History
* 8/6/87 GCP   Now use x reg to hold HowFarToShift
*
****************************************************************

	EXPORT BFCopySlice
BFCopySlice	PROC
*              using CoreDATA


	ldy SrcFinishWord	; get dest pointer into y
	lda [SrcRef],y
	sta ThisWord
	dey
	dey
	sty SrcIndex	; initialize index here

	ldy DestFinishWord	; if start = finish
	sty DestIndex	; then combine masks

	ldx HowFarToShift	; set up x reg for shift calls


Loop		; 

	lda [ScanMaskRef],y
	cmp #$FFFF
	beq FastWay
	sta CombinedMask	; put in combined mask

	eor #$FFFF	; invert combined mask
	and (DestRef),y
	sta NotMaskAndDest


	lda ThisWord
	jsl xShiftStay
	sta ShiftTemp	; save it

	ldy SrcIndex
	lda [SrcRef],y	; get prior word
	sta ThisWord	; save for later
	dey
	dey
	sty SrcIndex
	jsl xShiftOut
	ora ShiftTemp

	bvc NotNot1	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot1	and CombinedMask	; and with combined	mask

	ora NotMaskAndDest	; merge with original part that stays
	ldy DestIndex
	sta (DestRef),y	; and store it.

	bra BumpIndexes

FastWay		; 
	lda ThisWord	; get from before
	jsl xShiftStay
	sta ShiftTemp	; save it

	ldy SrcIndex
	lda [SrcRef],y	; get prior word
	sta ThisWord	; save for later
	dey
	dey
	sty SrcIndex

	jsl xShiftOut
	ora ShiftTemp

	bvc NotNot2	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot2	ldy DestIndex
	sta (DestRef),y	; and store it.


BumpIndexes		; 

	dey
	dey
	bmi AllDone	; if this is neg then we had to dec
*		; start word when it was 0

	sty DestIndex

	cpy DestStartWord	; we are done if <=	StartWord
	bcs Loop


AllDone	rtl

	ENDP


	EXPORT BFORSlice
BFORSlice	PROC
*              using CoreDATA


	ldy SrcFinishWord	; get dest pointer into y
	lda [SrcRef],y
	sta ThisWord
	dey
	dey
	sty SrcIndex	; initialize index here

	ldy DestFinishWord	; if start = finish
	sty DestIndex	; then combine masks

Loop		; 

	lda [ScanMaskRef],y
	cmp #$FFFF
	beq FastWay
	sta CombinedMask	; put in combined mask

	lda ThisWord
	jsl xShiftStay
	sta ShiftTemp	; save it

	ldy SrcIndex
	lda [SrcRef],y	; get prior word
	sta ThisWord	; save for later
	dey
	dey
	sty SrcIndex
	jsl xShiftOut
	ora ShiftTemp

	bvc NotNot1	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot1	and CombinedMask	; and with combined	mask

	ldy DestIndex
	ora (DestRef),y
	sta (DestRef),y	; and store it.

	bra BumpIndexes

FastWay		; 
	lda ThisWord	; get from before
	jsl xShiftStay
	sta ShiftTemp	; save it

	ldy SrcIndex
	lda [SrcRef],y	; get prior word
	sta ThisWord	; save for later
	dey
	dey
	sty SrcIndex

	jsl xShiftOut
	ora ShiftTemp

	bvc NotNot2	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot2	ldy DestIndex
	ora (DestRef),y
	sta (DestRef),y	; and store it.


BumpIndexes		; 

	dey
	dey
	bmi AllDone	; if this is neg then we had to dec
*		; start word when it was 0
	sty DestIndex

	cpy DestStartWord	; we are done if <=	StartWord
	bcs Loop


AllDone	rtl

	ENDP



	EXPORT BFXORSlice
BFXORSlice	PROC
*              using CoreDATA


	ldy SrcFinishWord	; get dest pointer into y
	lda [SrcRef],y
	sta ThisWord
	dey
	dey
	sty SrcIndex	; initialize index here

	ldy DestFinishWord	; if start = finish
	sty DestIndex	; then combine masks

Loop		; 

	lda [ScanMaskRef],y
	cmp #$FFFF
	beq FastWay
	sta CombinedMask	; put in combined mask

	lda ThisWord
	jsl xShiftStay
	sta ShiftTemp	; save it

	ldy SrcIndex
	lda [SrcRef],y	; get prior word
	sta ThisWord	; save for later
	dey
	dey
	sty SrcIndex
	jsl xShiftOut
	ora ShiftTemp

	bvc NotNot1	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot1	and CombinedMask	; and with combined	mask

	ldy DestIndex
	eor (DestRef),y
	sta (DestRef),y	; and store it.

	bra BumpIndexes

FastWay		; 
	lda ThisWord	; get from before
	jsl xShiftStay
	sta ShiftTemp	; save it

	ldy SrcIndex
	lda [SrcRef],y	; get prior word
	sta ThisWord	; save for later
	dey
	dey
	sty SrcIndex

	jsl xShiftOut
	ora ShiftTemp

	bvc NotNot2	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot2	ldy DestIndex
	eor (DestRef),y
	sta (DestRef),y	; and store it.


BumpIndexes		; 

	dey
	dey
	bmi AllDone	; if this is neg then we had to dec
*		; start word when it was 0
	sty DestIndex

	cpy DestStartWord	; we are done if <=	StartWord
	bcs Loop


AllDone	rtl

	ENDP



	EXPORT BFBICSlice
BFBICSlice	PROC
*              using CoreDATA


	ldy SrcFinishWord	; get dest pointer into y
	lda [SrcRef],y
	sta ThisWord
	dey
	dey
	sty SrcIndex	; initialize index here

	ldy DestFinishWord	; if start = finish
	sty DestIndex	; then combine masks

Loop		; 

	lda [ScanMaskRef],y
	cmp #$FFFF
	beq FastWay
	sta CombinedMask	; put in combined mask

	lda ThisWord
	jsl xShiftStay
	sta ShiftTemp	; save it

	ldy SrcIndex
	lda [SrcRef],y	; get prior word
	sta ThisWord	; save for later
	dey
	dey
	sty SrcIndex
	jsl xShiftOut
	ora ShiftTemp

	bvc NotNot1	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot1	and CombinedMask	; and with combined	mask

	ldy DestIndex
	eor #$FFFF
	and (DestRef),y
	sta (DestRef),y	; and store it.

	bra BumpIndexes

FastWay		; 
	lda ThisWord	; get from before
	jsl xShiftStay
	sta ShiftTemp	; save it

	ldy SrcIndex
	lda [SrcRef],y	; get prior word
	sta ThisWord	; save for later
	dey
	dey
	sty SrcIndex

	jsl xShiftOut
	ora ShiftTemp

	bvc NotNot2	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot2	ldy DestIndex
	eor #$FFFF
	and (DestRef),y
	sta (DestRef),y	; and store it.


BumpIndexes		; 

	dey
	dey
	bmi AllDone	; if this is neg then we had to dec
*		; start word when it was 0
	sty DestIndex

	cpy DestStartWord	; we are done if <=	StartWord
	bcs Loop


AllDone	rtl

	ENDP
;                COPY SLICES/FSLICES
****************************************************************
*
* fSlices
*
* These are the lowest level pixel transfer routines.  They	copy
* pixels from one scan line to another using an appropriate
* transfer mode without shifting.  They	are only called if no
* shifting is needed.
*
* Parameters are passed on "ZeroPage" and in the overflow
*   flag. (The overflow flag is used to	decide whether to
*   invert the source--set for invert, clear for leave
*   alone.)
* A predraw routine	must set up "ZeroPage" and the overflow
*   flag.
*
* The routines do not use shift tables.	 Instead I use the two
* shift subroutines.  This is faster than using shift tables
* and working only a byte at a time.
*
* The routines can handle scan lines as	long as 32K.  They do not
* care about scan line width and will overflow into next scan line
* if told to.
*
* The routines starting with "F" paint forwards (left to right)
* while routines starting with "B" paint backwards (right to left).
*
****************************************************************
	EXPORT fFCopySlice
fFCopySlice	PROC
*              using CoreDATA


	ldy DestStartWord	; if start = finish
	sty DestIndex	; then combine masks

	ldx SrcStartWord	; get dest pointer into y
	stx SrcIndex	; initialize index here

	cpy #0	; if dest index is neg then we had to
	bmi SkipMask	; dec it when it was 0

Loop	lda [ScanMaskRef],y
	cmp #$FFFF
	beq FastWay

	sta CombinedMask	; put in combined mask


	eor #$FFFF	; invert combined mask
	and (DestRef),y
	sta NotMaskAndDest

SkipMask	ldy SrcIndex	; Get source word
	lda [SrcRef],y
	iny
	iny
	sty SrcIndex

	bvc NotNot1	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot1	and CombinedMask	; and with combined	mask

	ora NotMaskAndDest	; merge with original part that stays
	ldy DestIndex
	bmi BumpIndexes	; again if it was neg then special
	sta (DestRef),y	; and store it.

	bra BumpIndexes

FastWay		; 
	ldy SrcIndex
	lda [SrcRef],y
	iny
	iny
	sty SrcIndex

	bvc NotNot2	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot2	ldy DestIndex
	sta (DestRef),y	; and store it.



BumpIndexes		; 

	iny
	iny
	sty DestIndex

	cpy DestFinishWord

	bcc Loop
	beq Loop

AllDone	rtl

	ENDP





	EXPORT fFOrSlice
fFOrSlice	PROC
*              using CoreDATA

	ldy DestStartWord	; if start = finish
	sty DestIndex	; then combine masks

	ldx SrcStartWord	; get dest pointer into y
	stx SrcIndex	; initialize index here

	cpy #0	; if dest index is neg then we had to
	bmi SkipMask	; dec it when it was 0

Loop	lda [ScanMaskRef],y
	cmp #$FFFF
	beq FastWay

	sta CombinedMask	; put in combined mask

SkipMask	ldy SrcIndex	; Get source word
	lda [SrcRef],y
	iny
	iny
	sty SrcIndex

	bvc NotNot1	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot1	and CombinedMask	; and with combined	mask


	ldy DestIndex
	bmi BumpIndexes	; the special case again
	ora (DestRef),y
	sta (DestRef),y	; and store it.

	bra BumpIndexes

FastWay		; 
	ldy SrcIndex
	lda [SrcRef],y
	iny
	iny
	sty SrcIndex

	bvc NotNot2	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot2	ldy DestIndex
	ora (DestRef),y
	sta (DestRef),y	; and store it.

BumpIndexes		; 

	iny
	iny
	sty DestIndex

	cpy DestFinishWord

	bcc Loop
	beq Loop

AllDone	rtl

	ENDP




	EXPORT fFXORSlice
fFXORSlice	PROC
*              using CoreDATA

	ldy DestStartWord	; if start = finish
	sty DestIndex	; then combine masks

	ldx SrcStartWord	; get dest pointer into y
	stx SrcIndex	; initialize index here

	cpy #0	; if dest index is neg then we had to
	bmi SkipMask	; dec it when it was 0

Loop	lda [ScanMaskRef],y
	cmp #$FFFF
	beq FastWay

	sta CombinedMask	; put in combined mask

SkipMask	ldy SrcIndex	; Get source word
	lda [SrcRef],y
	iny
	iny
	sty SrcIndex

	bvc NotNot1	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot1	and CombinedMask	; and with combined	mask


	ldy DestIndex
	bmi BumpIndexes	; special case
	eor (DestRef),y
	sta (DestRef),y	; and store it.

	bra BumpIndexes

FastWay		; 
	ldy SrcIndex
	lda [SrcRef],y
	iny
	iny
	sty SrcIndex

	bvc NotNot2	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot2	ldy DestIndex
	eor (DestRef),y
	sta (DestRef),y	; and store it.

BumpIndexes		; 

	iny
	iny
	sty DestIndex

	cpy DestFinishWord

	bcc Loop
	beq Loop

AllDone	rtl

	ENDP



	EXPORT fFBICSlice
fFBICSlice	PROC
*              using CoreDATA

	ldy DestStartWord	; if start = finish
	sty DestIndex	; then combine masks

	ldx SrcStartWord	; get dest pointer into y
	stx SrcIndex	; initialize index here

	cpy #0	; if dest index is neg then we had to
	bmi SkipMask	; dec it when it was 0

Loop	lda [ScanMaskRef],y
	cmp #$FFFF
	beq FastWay

	sta CombinedMask	; put in combined mask

SkipMask	ldy SrcIndex	; Get source word
	lda [SrcRef],y
	iny
	iny
	sty SrcIndex

	bvc NotNot1	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot1	and CombinedMask	; and with combined	mask

	ldy DestIndex
	bmi BumpIndexes	; special case
	eor #$FFFF
	and (DestRef),y
	sta (DestRef),y	; and store it.

	bra BumpIndexes

FastWay		; 
	ldy SrcIndex
	lda [SrcRef],y
	iny
	iny
	sty SrcIndex

	bvc NotNot2	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot2	ldy DestIndex
	eor #$FFFF
	and (DestRef),y
	sta (DestRef),y	; and store it.


BumpIndexes		; 

	iny
	iny
	sty DestIndex

	cpy DestFinishWord

	bcc Loop
	beq Loop

AllDone	rtl

	ENDP
;                COPY SLICES/FBACK.SLICES
****************************************************************
* FastBackSlices
*
* These routine are	only called when a slice can be copied
* from one place to	another without shifting.  Without shifting,
* it works much faster since no calls to ShiftOut and ShiftSTay
* need to be made.
*
****************************************************************

****************************************************************
*
* fBFCOPYSlice
*
* Does a backwards COPY slice without shifting.
*
* Modification History
*
* June 4, 1986	 SEG
*
*     The first four lines were in the wrong order.  The y
*     register needs to be left with the dest index in it
*     rather than the source index.  Moreover, the Y-reg
*     was incorrectly set after the ScanMask word was read.
*
****************************************************************
	EXPORT fBFCopySlice
fBFCopySlice	PROC
*              using CoreDATA

	ldy SrcFinishWord	; get dest pointer into y
	sty SrcIndex

	ldy DestFinishWord	; if start = finish
	sty DestIndex	; then combine masks


Loop		; 

	lda [ScanMaskRef],y
	cmp #$FFFF
	beq FastWay
	sta CombinedMask	; put in combined mask

	eor #$FFFF	; invert combined mask
	and (DestRef),y
	sta NotMaskAndDest


	ldy SrcIndex	; Get Src Index !!!! SEG 4 Jun 86
	lda [SrcRef],y	; get word
	dey
	dey
	sty SrcIndex

	bvc NotNot1	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot1	and CombinedMask	; and with combined	mask

	ora NotMaskAndDest	; merge with original part that stays
	ldy DestIndex
	sta (DestRef),y	; and store it.

	bra BumpIndexes

FastWay		; 
	ldy SrcIndex	; Get SrcIndex !!! SEG 4 Jun 86
	lda [SrcRef],y	; get from before
	dey
	dey
	sty SrcIndex

	bvc NotNot2	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot2	ldy DestIndex
	sta (DestRef),y	; and store it.


BumpIndexes		; 

	dey
	dey
	bmi AllDone	; if this is neg then we had to dec
*		; start word when it was 0

	sty DestIndex

	cpy DestStartWord	; we are done if <=	StartWord
	bcs Loop


AllDone	rtl

	ENDP


****************************************************************
*
* fBFORSlice
*
* Does a backwards OR slice without shifting.
*
* June 4, 1986	 SEG
*
*     The first four lines were in the wrong order.  The y
*     register needs to be left with the dest index in it
*     rather than the source index.  Moreover, the FastWay
*     through this loop did not use the	right value of Y
*     for the source index.
*
****************************************************************
	EXPORT fBFORSlice
fBFORSlice	PROC
*              using CoreDATA


	ldy SrcFinishWord	; get dest pointer into y
	sty SrcIndex	; initialize index here

	ldy DestFinishWord	; if start = finish
	sty DestIndex	; then combine masks

Loop		; 

	lda [ScanMaskRef],y
	cmp #$FFFF
	beq FastWay
	sta CombinedMask	; put in combined mask

	ldy SrcIndex
	lda [SrcRef],y	; get prior word
	dey
	dey
	sty SrcIndex

	bvc NotNot1	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot1	and CombinedMask	; and with combined	mask

	ldy DestIndex
	ora (DestRef),y
	sta (DestRef),y	; and store it.

	bra BumpIndexes

FastWay		; 

	ldy SrcIndex	; Get Src Index !!!! SEG 4 Jun 86
	lda [SrcRef],y	; get prior word
	dey
	dey
	sty SrcIndex

	bvc NotNot2	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot2	ldy DestIndex
	ora (DestRef),y
	sta (DestRef),y	; and store it.


BumpIndexes		; 

	dey
	dey
	bmi AllDone	; if this is neg then we had to dec
*		; start word when it was 0
	sty DestIndex

	cpy DestStartWord	; we are done if <=	StartWord
	bcs Loop


AllDone	rtl

	ENDP


****************************************************************
*
* fBFXORSlice
*
* Does a backwards XOR slice without shifting.
*
* June 4, 1986	 SEG
*
*     The first four lines were in the wrong order.  The y
*     register needs to be left with the dest index in it
*     rather than the source index.  Moreover, the FastWay
*     through this loop did not use the	right value of Y
*     for the source index.
*
****************************************************************
	EXPORT fBFXORSlice
fBFXORSlice	PROC
*              using CoreDATA


	ldy SrcFinishWord	; get dest pointer into y
	sty SrcIndex	; initialize index here

	ldy DestFinishWord	; if start = finish
	sty DestIndex	; then combine masks

Loop		; 

	lda [ScanMaskRef],y
	cmp #$FFFF
	beq FastWay
	sta CombinedMask	; put in combined mask

	ldy SrcIndex
	lda [SrcRef],y	; get prior word
	dey
	dey
	sty SrcIndex

	bvc NotNot1	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot1	and CombinedMask	; and with combined	mask

	ldy DestIndex
	eor (DestRef),y
	sta (DestRef),y	; and store it.

	bra BumpIndexes

FastWay		; 

	ldy SrcIndex	; Get Src Index !!!! SEG 4 Jun 86
	lda [SrcRef],y	; get prior word
	dey
	dey
	sty SrcIndex

	bvc NotNot2	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot2	ldy DestIndex
	eor (DestRef),y
	sta (DestRef),y	; and store it.


BumpIndexes		; 

	dey
	dey
	bmi AllDone	; if this is neg then we had to dec
*		; start word when it was 0
	sty DestIndex

	cpy DestStartWord	; we are done if <=	StartWord
	bcs Loop


AllDone	rtl

	ENDP

****************************************************************
*
* fBFBICSlice
*
* Does a backwards BIC slice without shifting.
*
* June 4, 1986	 SEG
*
*     The first four lines were in the wrong order.  The y
*     register needs to be left with the dest index in it
*     rather than the source index.  Moverover, the FastWay
*     through this loop did not use the	right value of Y
*     for the source index.
*
****************************************************************
	EXPORT fBFBICSlice
fBFBICSlice	PROC
*              using CoreDATA


	ldy SrcFinishWord	; get dest pointer into y
	sty SrcIndex	; initialize index here

	ldy DestFinishWord	; if start = finish
	sty DestIndex	; then combine masks

Loop		; 

	lda [ScanMaskRef],y
	cmp #$FFFF
	beq FastWay
	sta CombinedMask	; put in combined mask

	ldy SrcIndex
	lda [SrcRef],y	; get prior word
	dey
	dey
	sty SrcIndex

	bvc NotNot1	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot1	and CombinedMask	; and with combined	mask

	ldy DestIndex
	eor #$FFFF
	and (DestRef),y
	sta (DestRef),y	; and store it.

	bra BumpIndexes

FastWay		; 

	ldy SrcIndex	; Get Src Index !!!! SEG 4 Jun 86
	lda [SrcRef],y	; get prior word
	dey
	dey
	sty SrcIndex

	bvc NotNot2	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot2	ldy DestIndex
	eor #$FFFF
	and (DestRef),y
	sta (DestRef),y	; and store it.


BumpIndexes		; 

	dey
	dey
	bmi AllDone	; if this is neg then we had to dec
*		; start word when it was 0
	sty DestIndex

	cpy DestStartWord	; we are done if <=	StartWord
	bcs Loop


AllDone	rtl


*******************************************************************************
* Parameters are passed on "ZeroPage" and in the overflow
*   flag. (The overflow flag is used to	decide whether to
*   invert the source--set for invert, clear for leave
*   alone.)
* A predraw routine	must set up "ZeroPage" and the overflow
*   flag.
*
* These special routine perform shifting at a geratly increased speed. This allows
* for added performance. These routines are used when the slice to copy is <$A0 bytes..
*
*
* The routines starting with "F" paint forwards (left to right)
* while routines starting with "B" paint backwards (right to left).
*
* SetUp so that
*  DestStartWord
*  DestFinishWord
*  SrcStartWord
*  
****************************************************************
ShiftyCopySlice	PROC 
*              using CoreDATA
	phb
	phk
	plb
	
	lda NumSrcWords
	sta DestIndex	; use this for the number of word to copy...
	
	jsr CopyEmIn	; read em in and weep brothers..
	lda HowFarToShift	; see if we need to shift farther..
	lsr a
	dec a
	dec a
	beq @MoveDone
	jsr MoveEmOnOver
@MoveDone
	jsr CopyEmOut
	
	plb
	rtl
ShiftArea	ds.B $0100	; make it 256 bytes, why not?
CopyEmIn
	ldy DestIndex	; preload the index..
@Looping	lda [SrcRef],y
	xba
	ror a
	sta ShiftArea,y
	dey
	dey
	bpl @Looping
	rts

MoveEmOnOver	tax 	; save the number of times to shift

@OuterLoop	ldy DestIndex
@Looping	lda ShiftArea,y
	ror a
	sta ShiftArea,y
	dey
	dey
	bpl @Looping
	dex
	bne @OuterLoop
	rts

CopyEmOut
; NOTE: Gotta fudge for thes source/dest inacuracy crap..

	lda DestStartWord	; get the start word of the destination mask and all..
;	bpl @ReadyToLoop
; Must adjust the pointers that I use
	
	ldy DestIndex	; preload the index again...
	php
@Looping	lda [ScanMaskRef],y
	cmp #$FFFF
	beq @FastWay
	sta CombinedMask
	eor #$FFFF
	and [DestRef],y
	sta NotMaskAndDest
	lda ShiftArea,y
	plp
	ror a
	php
	bvc @NotNot1	; check to see if should invert source
	eor #$FFFF	; invert source
@NotNot1	and CombinedMask	; and with combined	mask

	ora NotMaskAndDest	; merge with original part that stays
	sta (DestRef),y	; and store it.
	bra @LoopCont

@FastWay	
	lda ShiftArea,y
	plp
	ror a
	php

	sta [DestRef],y
	
@LoopCont	dey
	dey
	bpl @Looping
	plp
	rts

	EndP
	
StayTable	Proc Export
	DC.W Shift0
	DC.W Shift1
	DC.W Shift2
	DC.W Shift3
	DC.W Shift4
	DC.W Shift5
	DC.W Shift6
	DC.W Shift7
	DC.W Shift8
	DC.W Shift9
	DC.W Shift10
	DC.W Shift11
	DC.W Shift12
	DC.W Shift13
	DC.W Shift14
	DC.W Shift15



Shift15		; 
	rol a
	and #%0000000100000000
	rts

Shift14		; 
	rol a
	rol a
	and #%0000001100000000
	rts

Shift13		; 
	rol a
	rol a
	rol a
	and #%0000011100000000
	rts

Shift12		; 
	rol a
	rol a
	rol a
	rol a
	and #%0000111100000000
	rts

Shift11	xba
	lsr a
	lsr a
	lsr a
	and #%0001111100000000
	rts

Shift10	xba
	lsr a
	lsr a
	and #%0011111100000000
	rts

Shift9	xba
	lsr a
	and #%0111111100000000
	rts


Shift8	xba
	and #%1111111100000000
	rts

; 123456789ooooooo initial bits
; 9ooooooo12345678 initial word
; 123456789ooooooo swap to get bits in right order for shifting
; ooooooo123456789 shift
; 23456789ooooooo1 swap to get final word
; ooooooo123456789 final bits
	GOTO .skip

Shift7	xba	; 3
	lsr a	; 2
	lsr a	; 2
	lsr a	; 2
	lsr a	; 2
	lsr a	; 2
	lsr a	; 2
	lsr a	; 2
	xba	; 3
	rts
.skip

Shift7	clc	; 2
	adc #$8000	; 3 move high bit to carry
	rol a	; 2 rotate carry into low end
	and #%0000000111111111 ; 3
	xba	; 3
	rts


Shift6	xba
	lsr a
	lsr a
	lsr a
	lsr a
	lsr a
	lsr a
	xba
	rts

Shift5	xba
	lsr a
	lsr a
	lsr a
	lsr a
	lsr a
	xba
	rts


Shift4	xba
	lsr a
	lsr a
	lsr a
	lsr a
	xba
	rts


Shift3	xba
	lsr a
	lsr a
	lsr a
	xba
	rts


Shift2	xba
	lsr a
	lsr a
	xba
	rts


Shift1	xba
	lsr a
	xba
	rts


Shift0	rts

	ENDP



OutTable	Proc Export
	DC.W Shift0
	DC.W Shift1
	DC.W Shift2
	DC.W Shift3
	DC.W Shift4
	DC.W Shift5
	DC.W Shift6
	DC.W Shift7
	DC.W Shift8
	DC.W Shift9
	DC.W Shift10
	DC.W Shift11
	DC.W Shift12
	DC.W Shift13
	DC.W Shift14
	DC.W Shift15


Shift0	lda #0
	rts


;xxxxxxxxxxxxxxx1	  initial bits
;xxxxxxx1xxxxxxxx	  initial word
;oooooooo1ooooooo	  final word
;1xxxxxxxxxxxxxxx	  final bits
Shift1	ror a
	and #%0000000010000000
	rts


;xxxxxxxxxxxxxx12	   initial bits
;xxxxxx12xxxxxxxx
;xxxxxxxx12xxxxxx
;12xxxxxxxxxxxxxx	   final bits
Shift2	ror a
	ror a
	and #%0000000011000000
	rts

Shift3	ror a
	ror a
	ror a
	and #%0000000011100000
	rts

Shift4	ror a
	ror a
	ror a
	ror a
	and #%0000000011110000
	rts

; xxxxxxxxxxx12345
; xxx12345xxxxxxxx
; oooooooo12345ooo
; 12345xxxxxxxxxxx

Shift5	xba
	rol a
	rol a
	rol a
	and #%0000000011111000
	rts

Shift6	xba
	rol a
	rol a
	and #%0000000011111100
	rts

Shift7	xba
	rol a
	and #%0000000011111110
	rts

Shift8	xba
	and #%0000000011111111
	rts

; xxxxxxx123456789	  initial bits
; 23456789xxxxxxx1	  initial word
; 9ooooooo12345678	  final word
; 123456789xxxxxxx	  final bits
Shift9	xba	; 3
	ror a	; 2
	php	; 3
	asl a	; 2
	plp	; 4
	ror a	; 2
	and #%1000000011111111 ; 3
	rts

Shift10	xba
	asl a
	asl a
	asl a
	asl a
	asl a
	asl a
	xba
	rts

Shift11	xba
	asl a
	asl a
	asl a
	asl a
	asl a
	xba
	rts

Shift12	xba
	asl a
	asl a
	asl a
	asl a
	xba
	rts

Shift13	xba
	asl a
	asl a
	asl a
	xba
	rts

Shift14	xba
	asl a
	asl a
	xba
	rts

Shift15	xba
	asl a
	xba
	rts

	ENDP
	End
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Patch/Patch3/Sound.aii b/IIGS.601.SRC/GSToolbox/Patch/Patch3/Sound.aii
new file mode 100644
index 0000000..003ffdf
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Patch/Patch3/Sound.aii
@@ -0,0 +1 @@
+****************************************************************
***			 ***
***          Sound Patch		 ***
***          For Version 2.0 of ROM		 ***
***          Copyright Apple Computer, Inc. 1985-1989	 ***
***          All Rights Reserved		 ***
***			 ***
***			 ***
*** Version 2.0 in ROM		 ***
***			 ***
*** Version 2.1 for	system.disk version	3.1	 ***
***    August 27, 1987		 ***
***    Gus Andrade			 ***
***			 ***
*** Version 2.2 for	system.disk 3.1.1		 ***
***    October 13, 1987		 ***
***    Steven Glass			 ***
***			 ***
***    Installation	code removed and patch linked with	 ***
***    other system	patches.		 ***
***			 ***
***    Dummy BootInit call placed in table so code	 ***
***    can init properly.		 ***
***			 ***
***    Duplicate equate for IRQ_Volume removed in	 ***
***    favor of value in sysEqus (E1Vectors)	 ***
***			 ***
*** Version 2.3 for system disk 3.2 		 ***
***     May 11, 1988		 ***
***     Don Marsh			 ***
***			 ***
***     Patched Sound Tools' BootInit call to initialize	 ***
***     the "MidiInputPoll" vector to an RTL.	 ***
***			 ***
***     June 15, 1988  Harry Yee		 ***
***			 ***
***     Prototype bit taken out of version number.	 ***
***			 ***
*** Version 2.4 for system disk 4.0		 ***
***			 ***
***     Changed location of midi poll vector.	 ***
***			 ***
***
***
*** Version 3.1 for system disk 5.0
*
*
* 20 May 89	Matt Denman
*
*       Patched out interrupt handler to fix two bugs:
*
*       1.  If used in swap mode and only 2 buffers, 2nd
*           was not played.
*
*       2.  If using stero and not balenced the last buffer
*           not played on right channel.
*
*       Re-orgainzed patch so that code in ROM is linked
*       rather than included.
*
*
* 08 Aug 90	Braz
*
* Changed files StartSound.aii and StartPlaying.aii
* to fix problems playing sounds two buffers or less in length
* using FFSetUpSound and FFStartPlaying
*
* 17-Sep-90	Dave Lyons
*
* Removed all.macros dependency.
*
****************************************************************

***	Include 'all.macros'	;removed 17-Sep-90 DAL
	include 'm16.util2'

	Include 'E16.MIDI'
	Include ':::Sound:Snd.Equ.aii'


****************************************************************
;
; spatch.equ    This module contains all of the equates used by
;               the	routines in the sound tools patch file
;
****************************************************************
		;  MIDI Tool Set
sgaddh	equ $C03F	; sound Glu address	high


*****************************************************************
*
* SoundCallTable
*
*****************************************************************
	EXPORT SoundCallTable
SoundCallTable	PROC


	Import SoundBootInit
	Import st_versin
	Import StartSound
	Import SetUpSound
	Import SStartup
	IMPORT StartPlaying

Funct_1	DC.L num_funct/4	; number of functions
	DC.L SoundBootInit-1 ; function 1
	DC.L SStartup-1	; function 2
	DC.L 00000000	; function 3
	DC.L st_versin-1	; function 4
	DC.L 00000000	; function 5
	DC.L 00000000	; function 6
	DC.L 00000000	; function 7
	DC.L 00000000	; function 8
	DC.L 00000000	; function 9
	DC.L 00000000	; function A
	DC.L 00000000	; function B
	DC.L 00000000	; function C
	DC.L 00000000	; function D
	DC.L StartSound-1	; function E
	DC.L 00000000	; function F
	DC.L 00000000	; function 10
	DC.L 00000000	; function 11
	DC.L 00000000	; function 12
	DC.L 00000000	; function 13
	DC.L 00000000	; function 14
	DC.L SetUpSound-1	; function 15 
	DC.L StartPlaying-1 ; 16 Start specified generators running.
	DC.L 00000000	; function 17
	DC.L 00000000	; function 18

num_funct	equ *-Funct_1	; number of functions


	include ':::Sound:Tables.aii'
	
	ENDP


*****************************************************************
*
* SoundBootInit
*
* This routine is called by the tool locator when this patch
* is installed.
*
* Added 13 Oct 87	 Steven Glass
*
* 13 May 88	Harry Yee and Don Marsh
*
* Added initialization of MidiInputPoll vector.
*
*****************************************************************
	EXPORT SoundBootInit
SoundBootInit	PROC

	lda #$6B	; RTL
	sta MidiInputPoll
	
	lda #0
	clc
	rtl

	ENDP


	

	EXPORT st_versin
st_versin	PROC
****************************************************************
*
* Version number tool returns the current Sound Tool
* version #.
*
*    Called:  pea 0	; return value placeholder
*             Toolcall 8,4
*
* Returns: X,Y unchanged.  Version on stack
*
*
****************************************************************

	longa on
	longi on
	lda #Version_patch	; get vers#
	sta $07,s	; place in stack
	Oendc 0		; jump to endcall in rom

	ENDP
	
	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Patch/Patch3/TS3 b/IIGS.601.SRC/GSToolbox/Patch/Patch3/TS3
new file mode 100644
index 0000000..9753366
Binary files /dev/null and b/IIGS.601.SRC/GSToolbox/Patch/Patch3/TS3 differ
diff --git a/IIGS.601.SRC/GSToolbox/Patch/Patch3/Text.Tools.pch b/IIGS.601.SRC/GSToolbox/Patch/Patch3/Text.Tools.pch
new file mode 100644
index 0000000..f8cb059
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Patch/Patch3/Text.Tools.pch
@@ -0,0 +1 @@
+**********************************************************************
*
* Patch to Text Tools (ROM 03)
*
* Copyright 1991-1992 Apple Computer, Inc
* All Rights Reserved
*
**********************************************************************
*
* 5-Nov-91	Dave Lyons
*
* New file (started with skeleton from TS2 Text.Tools.asm).
*
* Patch TextVersion (version $8301).
*
* Patch GetInputDevice, GetOutputDevice, GetErrorDevice to pre-zero
* the result space for the device type, so we don't return garbage
* for the Set calls to choke on (at -least- for SetInputDevice, it's
* a problem to have device type $xx02, for a RAM-based driver).
*
* (By the way, this means that SaveTextState/RestoreTextState breaks
* under APW 2.0, since a RAM-based Text Tools driver is active.)
*
* 5-Feb-92	Dave Lyons
*
* Version $0301 for 6.0 final.
*
**********************************************************************
	include 'all.macros'
	include ':::sys.equs.asm'


TextVersionNumber	equ $0301

;-----------------------------------------------------------
;
; Equates for addresses in bank E1.
;

ANDin	equ $E115AA
ORin	equ ANDin+1
ANDout	equ ORin+1
ORout	equ ANDout+1
ANDerr	equ ORout+1
ORerr	equ ANDerr+1
DevType	equ ORerr+1
DevPtr	equ DevType+3
InDevPtr	equ DevPtr
OutDevPt	equ InDevPtr+4
ErrDevPt	equ OutDevPt+4
ErrHook	equ ErrDevPt+4


****************************************************************
*
TTCallTable	PROC EXPORT
*
* Contains the calls to patch in the text tools tool set.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
	import TextVersion
	import TextBootInit
	import GetInDev
	import GetOutDev
	import GetErrDev
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

Here
	dc.L (TheEnd-Here)/4	; num calls +1
	dc.L TextBootInit-1 ;$010C TextBootInit
	dc.L 0	;$020C TextStartUp
	dc.L 0	;$030C TextShutDown
	dc.L TextVersion-1	;$040C TextVersion
	dc.L 0 	;$050C TextReset
	dc.L 0 	;$060C TextStatus
	dc.L 0 	;$070C
	dc.L 0 	;$080C
	dc.L 0 	;$090C SetInGlobals
	dc.L 0 	;$0A0C SetOutGlobals
	dc.L 0 	;$0B0C SetErrorGlobals
	dc.L 0 	;$0C0C GetInGlobals
	dc.L 0 	;$0D0C GetOutGlobals
	dc.L 0 	;$0E0C GetErrGlobals
	dc.L 0 	;$0F0C SetInputDevice
	dc.L 0 	;$100C SetOutputDevice
	dc.L 0	;$110C SetErrorDevice
	dc.L GetInDev-1	;$120C, patched 4-Nov-91 DAL
	dc.L GetOutDev-1	;$130C, patched 4-Nov-91 DAL
	dc.L GetErrDev-1	;$140C, patched 4-Nov-91 DAL
	dc.L 0	;$150C InitTextDev
	dc.L 0	;$160C CtlTextDev
	dc.L 0	;$170C StatusTextDev
	dc.L 0	;$180C WriteChar
	dc.L 0	;$190C ErrWriteChar
	dc.L 0	;$1A0C WriteLine
	dc.L 0	;$1B0C ErrWriteLine
	dc.L 0	;$1C0C WriteString
	dc.L 0	;$1D0C ErroWriteString
	dc.L 0	;$1E0C TextWriteBlock
	dc.L 0	;$1F0C ErrWriteBlock
	dc.L 0	;$200C WriteCString
	dc.L 0	;$210C ErrWriteCString
	dc.L 0	;$220C ReadChar
	dc.L 0	;$230C TextReadBlock
	dc.L 0	;$240C ReadLine
TheEnd

	ENDP



****************************************************************
*
StdTextCalls	PROC
*
* Contains the Version call and the boot init call
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
	ENTRY TextVersion
	ENTRY TextBootInit
*
	longa on	; mode
	longi on
*
****************************************************************

TextVersion	lda #TextVersionNumber
	sta 7,s

TextBootInit	lda #0
	clc
	rtl

	ENDP


****************************************************************
*
* GetInDev, GetOutDev, GetErrDev
*
* Patched 5-Nov-91 DAL to pre-zero the device-type output word.
*
****************************************************************
GetInDev	proc export
	lda #0
	sta 11,s
	jml >$fec098
	EndP

GetOutDev	proc export
	lda #0
	sta 11,s
	jml >$fec0cd
	EndP

GetErrDev	proc export
	lda #0
	sta 11,s
	jml >$fec0d2
	EndP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Patch/Patch3/TextDraw.pch b/IIGS.601.SRC/GSToolbox/Patch/Patch3/TextDraw.pch
new file mode 100644
index 0000000..cf45024
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Patch/Patch3/TextDraw.pch
@@ -0,0 +1 @@
+*******************************************************************************
*
* TextDrawPatch
*
* (C)  Copyright Apple Computer, Inc. 1989
* All rights reserved.
*
* by Jim Mensch
* 11/17/89
*
* Patches to the text routines
*
* Files:
*
*
*
* Modification History:
*
* Version 1.0   	Mensch	11/17/89
*
*******************************************************************************
	include 'all.macros'
	include ':::qd:qdequates:qd.data.asm'
	INCLUDE ':::qd:QDEquates:CORE.GLOBALS1'
	INCLUDE ':::qd:QDEquates:core.globals2'
	INCLUDE ':::qd:QDEquates:region.equs'
	Include ':::qd:qdEquates:TextEquates'
	Include ':::qd:qdEquates:Fontequs'

	Import ExtendColorWord
	
ROMFastBigLoop	equ $FE9171
ROMSlowBigLoop	equ $FE9233
ConTable320	equ $FE6372
ConTable640	equ $FE6772
	
****************************************************************
*
* BlowItUp patched version
*
* This is the routine that takes the 1-bit per pixel text
* image in the text	buffer and paints it to the destination
* bit map as 2 or 4	bits per pixel with	the right
* foreground and background color in the right text mode.
*
* Several modes are	supported as follows
*
*        Mode
*        Code
*         0    Copies foreground and background into destination
*         1    OR's foreground and background with destination
*         2    XOR's foreground and background with destination
*         3    BIC's foreground and background with destination
*         4    Copies only the foreground into the destination
*	(background is untouched).
*         5    OR's foreground into destination (background is
*	untouched).
*         6    XOR's foreground into destination (background is
*	untouched).
*         7    BIC's foreground into destination (background is
*	untouched).
*
* Each mode is acheived by its own handler.  The first part	of SetItUp
* puts the vector to the handler in the	current JMP vector location
* in bank E0.
*
* There is no left and right mask as I rely on the MinRect to
* be set up correctly.  The right MinRect means that the left
* and right mask are already incorporated in the scan line
* buffer.
*
* Variables On zero	page that I use are:
*
*     CurPMByte	 ; a pointer in the	inner loop of BlowItUp
*     CurTBByte	 ; a pointer in the	inner loop of BlowItUP
*     WordCounter	 ; counter in the inner loop of BlowItUp
*     FG	 ; local copy of foreground color
*     BG	 ; local copy of background color
*     TextMode	 ; local copy of text mode
*
* Change History
*
* 18 Feb 87    Steven Glass
*
* Using font flag 2	(counting from zero) we decide if we should
* force the text color to be adjusted or not.  When I adjust
* the color I call ExtendColorWord which copies the lowest
* pixel into the other pixels of the word.  When I don't make
* this call, the programmer can have dithered color text in
* 640 mode or multi	colored text (a vertical striped pattern)
* in any mode.
*
* 11/17/89	Mensch
* Created the patched version and applied some speed improvements
*
****************************************************************
	EXPORT iBlowItUp
iBlowItUp	PROC

;-----------------------------------------------
;
; First setup the Text mode
;
	ldy #o_txmode
	lda [PortRef],y
	sta TextMode

;----------------------------------------------------------
;
; Check font flag 2	(numbered from zero) to see if the
; programmer wants me to force the color to be right or if
; s/he wants me to use the foreground and background colors
; as they are passed in the port.
;

	stz Temp
	ldy #o_FontFlags
	lda [PortRef],y
	and #%0000000000000100
	beq NotSpecial
	dec Temp
NotSpecial

	ldy #o_FGColor
	lda [PortRef],y
	bit Temp
	bmi UseAsIs1
	tax
	lda PortSCB
	jsr ExtendColorWord
UseAsIs1	sta FG

	ldy #o_BGColor
	lda [PortRef],y
	bit temp
	bmi UseAsIs2
	tax
	lda PortSCB
	jsr ExtendColorWord
UseAsIs2	sta BG

	jsl Init2Regions
	lda MinRect
	sta CurrentY

;--------------------------------------------------------
; SetStuffAdr gets moved here so we can take advantage of 
; the Init2Regions call and the color smearing...
;
;
	lda <textMode
	jsl SetStuffAdr

	jsl ShieldCursor

	lda NonRectRegions
	beq @tryRectLoop
@booRect
	lda TextMode
	and #$7FFF
	cmp #4
	bcs oFastBigLoop
	jmp oSlowBigLoop
	
@SpecialCase	lda fg
	inc a
	bne @boorect
	lda TextMode
	ora #$8000
	sta TextMode
*** added 8-Mar-91 DAL
; 3/11/91 Mensch
; nice try dave, but how about...
	inc <fg	; was $FFFF (white) we want $0000 Black
	dec <bg	; was $0000 (Black) we want $FFFF white
*** end DAL
	bra @UseRectLoop
@tryRectLoop
	lda bg	; now test to see if we are drawing black on white..
	beq @SpecialCase	; test for white on black...
	inc a
	bne @booRect
	lda fg
	bne @booRect
	
@UseRectLoop
	lda TextMode
	and #$7FFF
	cmp #4
	bcs oFastBigLoop
	phb	; be sure to set the data bank to bank $FE
	pea $FEFE
	plb
	plb
	jmp rSlowBigLoop
	
	Export oFastBigLoop
	Export oSlowBigLoop
oFastBigLoop	jml >ROMFastBigLoop
oSlowBigLoop	jml >ROMSlowBigLoop
	ENDP


****************************************************************
*
* rSlowBigLoop
*
* SlowBigLoop is used when the foreground and background are
* transfered.  The major difference between fast and slow is that
* in the fast loop we check each word, if it is zero, we bypass
* the stuff big code.  This saves lots of time.  Here we bypass
* nothing.
*
* 11/17/89	Mensch
* Modified this loop so that we can call it when the region is rectangular
* this will help to improve speed of mode copy text drawing...
*
****************************************************************
rSlowBigLoop	PROC Export
	jsl Seek2Regions

BigLoop
	lda tbStartByte
	sta CurTBByte
	lda pmStartByte
	sta CurPMByte
	
	lda NumOfWords	; set up the counters that the
	sta WordCounter	; inner loop uses

	lda TextMode	; see if we are mode copy...
	and #$7fff	;*** added this line 8-Mar-91 DAL
	bne NotCopyLoop	; skip to the faster word loop
	brl CopyLoop
;------------------------------------------------------
;
; See which of the two inner loops I should use.
;
NotCopyLoop
	bit TextMode
	bmi InvertLoop
;
Loop		; this loop is for standard xfer modes
	ldy CurTBByte
	lda [tbRowPtr],y
	jsl ToStuffBig
	ldy CurTBByte
	iny
	lda [tbRowPtr],y
	iny
	sty CurTBByte
	jsl ToStuffBig
	dec WordCounter
	bpl Loop
	bra NextRow


InvertLoop		;this loop is for the NOT xfer modes
	ldy CurTBByte
	lda [tbRowPtr],y
	eor #$FFFF
	jsl ToStuffBig
	ldy CurTBByte
	iny
	lda [tbRowPtr],y
	eor #$FFFF
	iny
	sty CurTBByte
	jsl ToStuffBig
	dec WordCounter
	bpl InvertLoop



NextRow
	lda tbRowPtr
	clc
	adc BufRowBytes
	sta tbRowPtr
	bcc NoCarry1
	inc tbRowPtr+2
NoCarry1

	lda pmRowPtr
	clc
	adc Width
	sta pmRowPtr
	bcc NoCarry2
	inc pmRowPtr+2
NoCarry2

	inc CurrentY

	dec RowCounter
	bpl BigLoop
Done
	plb	; recover the data bank register..
	jsl UnShieldCursor

	rtl
;
;
; --- special case loop to be used for mode copy...
; This only works if the region is a rectangle...
CopyLoop
	bit TextMode
	bpl CopyCont
	brl InvertLoop
	
CopyOuterLoop	lda tbStartByte
	sta CurTBByte
	lda pmStartByte
	sta CurPMByte
	
	lda NumOfWords	; set up the counters that the
	sta WordCounter	; inner loop uses
;
; First do the very first word...
CopyCont
	ldy CurTBByte
	lda [tbRowPtr],y
	pha
	jsl StuffBig0640	; call the routine directly...
	pla
	xba
	jsl StuffBig0640	; and do the next byte..
	lda WordCounter	; now dec the word counter
	dec a
	sta WordCounter
	bmi RowBump	; if we are done forget incrementing...
; If not done, compensate for that last bit of stuff
	ldy CurTBByte
	iny
	iny
	sty CurTBByte
	lda WordCounter
	beq DoLastWord
;
; This is the fast internal copy loop. it must be entered with word count in <A> and
; curTBByte in <Y>
FastCopyLoop		
	lda [tbRowPtr],y
	jsr StuffWordNoClip	; and stuff the whole word with no clipping..
	ldy CurTBByte
	iny
	iny
	sty CurTBByte
	lda WordCounter	; now dec the word counter
	dec a
	sta WordCounter
	beq DoLastWord	; if zero then do the last word...
	bpl FastCopyLoop
DoLastWord
; looks a lot like the code that did the first word ... he he he
	ldy CurTBByte
	lda [tbRowPtr],y
	pha
	jsl StuffBig0640	; call the routine directly...
	pla
	xba
	jsl StuffBig0640	; and do the next byte..
;
; Note, at this point Word counter is 
RowBump
	lda tbRowPtr
	clc
	adc BufRowBytes
	sta tbRowPtr
	bcc @NoCarry1
	inc tbRowPtr+2
@NoCarry1

	lda pmRowPtr
	clc
	adc Width
	sta pmRowPtr
	bcc @NoCarry2
	inc pmRowPtr+2
@NoCarry2

	dec RowCounter
	bpl CopyOuterLoop
	brl Done

	ENDP


****************************************************************
*
* SetStuffAdr
*
****************************************************************
iSetStuffAdr	PROC Export
	Import OldSetStuffAdr
; My patched setstuff routine...
iSetStuff
	bit <PortSCB-1	; test for 640 mode
	bpl jumptoROM	; if 320 mode, head to the ROM
	cmp #$0000	; see if the passed mode is copy...
	bne jumptoROM	; if not, just go to ROM...
	lda bg	; make sure background and foreground are right
	inc a
	bne jumpToROM1	; not black on white...
	lda fg
	bne jumptoROM1	; ... same ...
	
	lda >MyStuffBig0640
	sta >toStuffBig
	lda >MyStuffBig0640+2
	sta >toStuffBig+2
	rtl
jumptoROM1	lda textMode	; recover the text mode...
jumptoROM	JML OldSetStuffAdr	
MyStuffBig0640	JML >stuffBig0640
	ENDP


StuffWordNoClip	proc Export
	Export cont26
	Export Cont36
	sta <tempFG
	and #$00FF
	asl a
	tax
Cont26	lda |ConTable640,x
	eor #$FFFF
	ldy CurPMByte
	sta [pmRowPtr],y
	iny
	iny
	lda <tempFG
	xba
	and #$00FF
	asl a
	tax
Cont36	lda |ConTable640,x
	eor #$FFFF
	sta [pmRowPtr],y
	iny
	iny
	sty CurPMByte
	rts	; and return...
	EndP
	
StuffBig0640	proc Export
	Export Cont16
	and #$00FF	; deal with only one byte at a time
	asl a	; double the value so can index
*		; into conversion table
	tax
Cont16	lda >ConTable640,x
	eor #$FFFF
	sta tempFG

	ldy CurPMByte	; get index to dest
	lda [ScanMaskRef],y	; get mask for this	scan line
	eor #$FFFF	; invert it
	beq @SlamFast
	and [pmRowPtr],y	; and with orig dest
	sta NotMaskAndDest	; save this here
	lda [ScanMaskRef],y	; get mask back
	and tempFG	; and with rightly colored word
	ora NotMaskAndDest	; or with burned out dest
	sta [pmRowPtr],y	; and put it back!

	iny
	iny
	sty CurPMByte

	rtl
	
@SlamFast	lda tempFG
	sta [pmRowPtr],y
	iny
	iny
	sty CurPMByte
	rtl

	ENDP
;                copy text/stuffbig1
****************************************************************
*
* StuffBig1
*
* This is the routine that ORs into the	destination
* coloring the forground and background.
*
****************************************************************

;                copy text/stuffbig2
****************************************************************
*
* StuffBig2
*
* This is the routine that XORs into the destination with
* colored forground	and background.
*
****************************************************************
;                copy text/stuffbig3
****************************************************************
*
* StuffBig3
*
* This is the routine that BICs into the destination with
* colored forground	and background.
*
****************************************************************
****************************************************************
*
* StuffBig4
*
* This is the routine that copies only the foreground
* pixels into the destination.
*
****************************************************************
****************************************************************
*
* StuffBig5
*
* This is the routine that OR's the foreground into the dest.
* It is probably the fastest of the routines.
*
****************************************************************
;                copy text/stuffbig6
****************************************************************
*
* StuffBig6
*
* This is the routine that XOR's the foreground into the dest.
* It is one of the fastest of the routines.
*
****************************************************************
;                copy text/stuffbig7
****************************************************************
*
* StuffBig7
*
* This is the routine that BIC's the foreground into the dest.
* It is not as fast	as OR and XOR but is a lot faster than
* copy.
*
****************************************************************

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Patch/Patch3/WindMgr.pch b/IIGS.601.SRC/GSToolbox/Patch/Patch3/WindMgr.pch
new file mode 100644
index 0000000..7af6451
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Patch/Patch3/WindMgr.pch
@@ -0,0 +1 @@
+	title 'Window Mgr Patch   GS ROM 3 Patch'
*******************************************************************
*
*	Window manager patches for ROM 3
*
* System Disk 5.0
*
* 11 May 89	Mensch
*
* File first created.  Added call table and patch for GetWRefCon.
*
* 21 May 89	Steven Glass
*
* Added patch to TaskMaster and TaskMasterDA to fix bug
* in window DefProc.
*
* 22 May 89	Steven Glass
*
* Made TaskMaster patch work better.
*
* 25 May 89	Steven Glass
*
* Removed TaskMaster patch and put it in QD where it belongs.
* This makes it possible for tools like scrambler and callcheck
* to keep running.
*
* 31 May 89	Harry Yee
*
* Take prototype bit out of version number. Final version = 3.1
* for System Disk 5.0.
*
* 01 Jun 89	Harry Yee
*
* Fix WindStartUp. There are times when trying to grow the handle
* that it could fail.  Now we get a new handle before calling the
* real WindStartUp and then copy the old Data handle into the new,
* dispose of the old data handle and then dereference this new
* handle updating the Data ptr in the window mgr.
*
* Made sure to update any pointers in the data segment that
* pointed into the data segment.
*
* 19 Sep 89	Harry Yee
*
* Patch for TaskMaster which defines another task bit so that
* TaskMaster will not call GetNextEvent uses some equates that
* have not been defined. These are the equates used to access
* values on the stack frame for NewTaskMaster.
*
* 22-Sep-90	Dave Lyons
*
* Rolled version to $8303.
* Fixed ErrorWindow to return CLC on no error.
*
* 24-Sep-90	Dave Lyons
*
* Fixed WindStatus to return SEC/A=0 if it's started up but
* there's one or more BeginUpdate pending.  (Changed WindStatus,
* BeginUpdate, EndUpdate.)
*
* 17-Nov-90	Dave Lyons
*
* Put back all.macros.
* Sucked in new AlertWindow from TOOL014 source.
*
* 14-Feb-91	Dave Lyons
*
* Suck in GetAuxWindInfo, DoModalWindow, MWGetCtlPart, MWSetMenuProc,
* MWStdDrawProc, MWSetUpEditMenu, FindCursorCtl.
*
* 7?-Mar-91	Dave Lyons
*
* Added patch entry for ResizeInfoBar.
*
* 9-Mar-91	Dave Lyons
*
* Patch ErrorWindow to call SysBeep2.
*
* 25-Mar-91	Dave Lyons
*
* Brought ErrorWindow SysBeep2 logic up to date with Tool014 (calls
* SysBeep2($CEFF) for errors outside the 00..FF range).
*
* Patched FindWindow to return window-pointer = nil if the result
* is wInMenu.
*
* 12-Apr-91	Dave Lyons
*
* Sucked in HandleDiskInsert from WindMgr:NewCalls.asm.  Changed
* WindStartUp to call HandleDiskInsert(1,0) to initialize it.
*
* 18-Apr-91	Dave Lyons
*
* WindStartUp passes flags of $2000 to HandleDiskInsert instead
* of $0001 (devices initialized to current status instead of
* offline status).
*
* 15-May-91	Dave Lyons
*
* Fix GetSysWFlag/GetWKind(NIL) to always return False.
*
* 20-May-91	Dave Lyons
*
* Made WindStartUp try to load and start QDAux if it isn't
* already started, so that AlertWindow can use DrawIcon.
*
* 21-May-91	Dave Lyons
*
* Patched NewWindow2 for color table resource problem--now it
* changes handle- and resource-based color table references
* into locked+fixed pointers with bit 30 set.  CloseWindow and
* SetFrameColor dispose of the 10-byte color table handle if
* a standard window's color table pointer's bit 30 is set.
*
* 16-Sep-91	Dave Lyons
*
* Made WindStartUp prelocate the 320 and 640 disk-swap icons
* so AlertWindow can avoid a reentrant call to LoadResource.
*
* 12-Dec-91	Dave Lyons
*
* Post-patch Desktop(8) to call SendRequest systemSaysNewDeskMsg
* (8), and to free the WM's copy of the old desk message when
* it is no longer current.
*
* 5-Feb-92	Dave Lyons
*
* Version $0303 for 6.0 final.
*
******************************************************************
*
* 17-Feb-92	Dave Lyons
*
* Version $8304 for 6.0.1d1.
*
* Make WindStartUp do a BlockMove of a valid number of bytes
* from the old data handle to the new handle (it was moving
* garbage, which Big Brother traps on).  Moves $01F2 instead
* of $02D1.
*
* 6-Mar-92	Dave Lyons
*
* Add UpdateWindow call.
*
* 1-Dec-92	Dave Lyons
*
* Changed TaskMaster patch to make tmNoGetNextEvent work.  It
* jumped back into ROM too early and treated the bit as reserved.
* In 5.0.3, 5.0.4, and 6.0 this bit works on ROM 1 only.
*
* 2-Apr-93 DAL
*
* Version $0304 for 6.0.1.
*
******************************************************************

****************************************************************
*			   *
*              Copyright (C) 1989-1992		   *
*              All Rights Reserved		   *
*              Apple Computer, Inc.		   *
*			   *
****************************************************************

	Blanks off
	String asis
	
	include 'all.macros'
	include ':::windMgr:WindMgrEquates.asm'

WindVersionNum	equ $0304	;2-Apr-93 DAL

ToStrip	equ $E10184	; Jmp vector to 0ErrOut routine
SkipNormalStuffROM	equ $FD26BE	; for the taskmaster patch

	
;----------------------------------------------------------------
; Routines needed by the patch file from the main window manager
; code
	Import GetwRefCon
	import AlertWindow

	entry WindowUpdateCount
	Entry NewTaskMaster
	Entry GetFrameColor
	Entry NewStartup
	ENTRY WindVersion
	Entry ErrorWindow	;22-Sep-90 DAL
	Entry BeginUpdate	;24-Sep-90 DAL
	Entry EndUpdate	;24-Sep-90 DAL
	Entry WindStatus	;25-sep-90 DAL
	entry GrowWindow	;26-Nov-90 DAL
	entry CloseWindow	;28-Feb-91 DAL
	import GetAuxWindInfo	;14-Feb-91 DAL
	import DoModalWindow	;14-Feb-91 DAL
	import MWGetCtlPart		;14-Feb-91 DAL
	import MWSetMenuProc	;14-Feb-91 DAL
	import MWStdDrawProc	;14-Feb-91 DAL
	import MWSetUpEditMenu	;14-Feb-91 DAL
	import FindCursorCtl	;14-Feb-91 DAL
	import ResizeInfoBar	; 5-Mar-91 DAL
	entry FindWindow		;25-Mar-91 DAL
	import HandleDiskInsert	;12-Apr-91 DAL
	entry GetWKind2		;15-May-91 DAL
	entry NewWindow2		;21-May-91 DAL
	entry SetFrameColor		;21-May-91 DAL
	entry Desktop		;12-Dec-91 DAL
	import UpdateWindow		;6-Mar-92 DAL
	
WMCallTable	PROC EXPORT
	EXPORT FPT
FPT	DC.W (ENDFPT-FPT)/4
	DC.W 0
	dc.L 0	; WindBootInit $010E
	dc.L NewStartup-1	; WindStartup $020E
	dc.L 0	; WindShutDown $030E
	dc.L WindVersion-1 	; $040E
	dc.L 0	; WindReset $050E
	dc.L WindStatus-1	; $060E
	dc.L 0	; Reserved $070E
	dc.L 0	; Reserved $080E
	dc.L 0	; NewWindow $090E
	dc.L 0	; CheckUpdate $0A0E
	dc.L CloseWindow-1	; $0B0E (patched 28-Feb-91 DAL)
	dc.L Desktop-1	; $0C0E (patched 12-Dec-91 DAL)
	dc.L 0	; SetWTitle $0D0E
	dc.L 0	; GetWTitle $0E0E
	dc.L SetFrameColor-1 ; SetFrameColor $0F0E patched 21-May-91 DAL
	dc.L GetFrameColor-1 ; GetFrameColor $100E
	dc.L 0	; SelectWindow $110E
	dc.L 0	; HideWindow $120E
	dc.L 0	; ShowWindow $130E
	dc.L 0	; SendBehind $140E
	dc.L 0	; FrontWindow $150E
	dc.L 0	; SetInfoDraw $160E
	dc.L FindWindow-1	; $170E (patched 25-Mar-91 DAL)
	dc.L 0	; TrackGoAway $180E
	dc.L 0	; MoveWindow $190E
	dc.L 0	; DragWindow $1A0E
	dc.L GrowWindow-1	;            $1B0E
	dc.L 0	; SizeWindow $1C0E
	dc.L NewTaskMaster-1 ; $1D0E
	dc.L BeginUpdate-1	; $1E0E
	dc.L EndUpdate-1	; $1F0E
	dc.L 0	; GetWMgrPort $200E
	dc.L 0	; PinRect $210E
	dc.L 0	; HiliteWindow $220E
	dc.L 0	; ShowHide $230E
	dc.L 0	; BringToFront $240E
	dc.L 0	; WNewRes $250E
	dc.L 0	; TrackZoom $260E
	dc.L 0	; ZoomWindow $270E
	dc.L 0	; SetWRefCon $280E
	dc.L GetWRefCon-1	; GetWRefCon $290E
	dc.L 0	; GetNextWindow $2A0E
	dc.L GetWKind2-1	; GetWKind $2B0E patched 15-May-91 DAL
	dc.L 0	; GetWFrame $2C0E
	dc.L 0	; SetWFrame $2D0E
	dc.L 0	; GetStructRgn $2E0E
	dc.L 0	; GetContRgn $2F0E
	dc.L 0	; GetUpdateRgn $300E
	dc.L 0	; GetDefProc $310E
	dc.L 0	; SetDefProc $320E
	dc.L 0	; GetWControls $330E
	dc.L 0	; SetOrgnMask $340E
	dc.L 0	; GetInfoRefCon $350E
	dc.L 0	; SetInfoRefCon $360E
	dc.L 0	; GetZoomRect $370E
	dc.L 0	; SetZoomRect $380E
	dc.L 0	; Refresh $390E
	dc.L 0	; InvalRect $3A0E
	dc.L 0	; InvalRgn $3B0E
	dc.L 0	; ValidRect $3C0E
	dc.L 0	; ValidRgn $3D0E
	dc.L 0	; GetCOrigin $3E0E
	dc.L 0	; SetCOrigin $3F0E
	dc.L 0	; GetDataSize $400E
	dc.L 0	; SetDataSize $410E
	dc.L 0	; GetMaxGrow $420E
	dc.L 0	; SetMaxGrow $430E
	dc.L 0	; GetScroll $440E
	dc.L 0	; SetScroll $450E
	dc.L 0	; GetPage $460E
	dc.L 0	; SetPage $470E
	dc.L 0	; GetCDraw $480E
	dc.L 0	; SetCDraw $490E
	dc.L 0	; GetInfoDraw $4A0E
	dc.L 0	; SetSysWindow $4B0E
	dc.L GetWKind2-1	; GetSysWFlag $4C0E patched 15-May-91 DAL
	dc.L 0	; StartDrawing $4D0E
	dc.L 0	; SetWMgrIcons $4E0E
	dc.L 0	; GetRectInfo $4F0E
	dc.L 0	; StartInfoDraw $500E
	dc.L 0	; EndInfoDrawing $510E
	dc.L 0	; GetFirstWindow $520E added to version $8104
	dc.L 0	; WindDragRect $530E
	dc.L 0	; GetDragRect $540E not public.
	dc.L 0	; DrawInfoBar $550E
	dc.L 0	; WindowGlobal $560E added 02/19/87
	dc.L 0	; SetCOrigin2 $570E added 04/07/87
	dc.L 0	; GetWindowMgrGlobals $580E added 03/08/88
	dc.L AlertWindow-1
	dc.L 0	; StartFrameDrawing $5A0E added 03/15/88
	dc.L 0	; EndFrameDrawing $5B0E added 03/15/88
	dc.L 0	; ResizeWindow $5C0E added 03/15/88

	dc.L 0	; TaskMasterContent $5D0E  added 22 Sep 88  SEG
	dc.L 0	; TaskMasterKey $5E0E  added 28 Sep 88  SEG
	dc.L 0	; TaskMasterDA-1	; $5F0E  added 02 Oct 88  SEG
	dc.L 0	; CompileString $600E added 10/20/88 Dan O.
	dc.L NewWindow2-1	; NewWindow2 $610E patched 21-May-91 DAL
	dc.L ErrorWindow-1	; ErrorWindow patch 22-Sep-90 DAL
*** 6.0
	dc.l GetAuxWindInfo-1	;$630E added 14-Feb-91 DAL
	dc.l DoModalWindow-1	;$640E added 14-Feb-91 DAL
	dc.l MWGetCtlPart-1		;$650E added 14-Feb-91 DAL
	dc.l MWSetMenuProc-1	;$660E added 14-Feb-91 DAL
	dc.l MWStdDrawProc-1	;$670E added 14-Feb-91 DAL
	dc.l MWSetUpEditMenu-1	;$680E added 14-Feb-91 DAL
	dc.l FindCursorCtl-1	;$690E added 14-Feb-91 DAL
	dc.l ResizeInfoBar-1	;$6A0E added  5-Mar-91 DAL
	dc.l HandleDiskInsert-1	;$6B0E added 12-Apr-91 DAL
*** 6.1
	dc.l UpdateWindow-1		;$6C0E added 6-Mar-92 DAL

	EXPORT ENDFPT
ENDFPT 
	ENDP


********************************************************
*
* WindVersion patch
*
********************************************************

WindVersion	PROC

	lda #WindVersionNum
	sta 7,s
	lda #0
	clc
	rtl
	
	ENDP

********************************************************
*
* NewWindow2 patch for ROM 3 -- 21-May-91 DAL
*
* The ROM can't handle window color table handles, so
* if the color table is referenced by handle or resource
* we need to make a copy of the template and do an
* equivalent NewWindow2 call with a by-pointer copy of
* the color table.
*
********************************************************
;==================================================================
;	Create window from new template.
;	it can be fetched from a resource or be passed
;	by pointer or handle.
;
; Modified 12-dec-88 Mensch
;    Added support for input verbs so that NewWindow2 can use ptrs
;      and handles. Added Input verb to passed parms and template
;==================================================================
;
;   IN:  PUSH:LONG - space for result.
;        PUSH:LONG - window title.
;        PUSH:LONG - refCon.
;        PUSH:LONG - address of content draw routine, NIL if none.
;        PUSH:LONG - address of window defProc, NIL for standard.
;        PUSH:WORD - input verb defines what next long word is.
;        PUSH:LONG - ID of resource that is window parameter table template.
;        PUSH:WORD - type of resource that is window parameter table template.
;
;  OUT:  LONG - pointer to window graphPort, NIL if window not created.
;
NewWindow2	PROC EXPORT
;
; --- New window parameter list offsets.
;
p_length	equ 0	Number of bytes in parameter list.
p_wframe	equ p_length+2	Type of window, frame flags.
p_wtitle	equ p_wframe+2	Pointer to window's title.
p_wrefCon	equ p_wtitle+4	Reserved for application.
p_wfull	equ p_wrefCon+4	Size of window, used with ZoomWindow.
p_wcolor	equ p_wfull+8	Pointer to window's color table.
p_y_origin	equ p_wcolor+4	Content's vertical offset.
p_x_origin	equ p_y_origin+2	Content's horizontal offset.
p_data_h	equ p_x_origin+2	Height of total data area.
p_data_w	equ p_data_h+2	Width of total data	area.
p_wmaxheight	equ p_data_w+2
p_wmaxwidth	equ p_wmaxheight+2
p_vscroll	equ p_wmaxwidth+2	Amount to scroll vertically (arrows).
p_hscroll	equ p_vscroll+2	Amount to scroll horizonally (arrows).
p_vpage	equ p_hscroll+2	Amount to page vertically (page region).
p_hpage	equ p_vpage+2	Amount to page horizontally (page rgn).
p_wInfoText	equ p_hpage+2
p_wInfoH	equ p_wInfoText+4	Height of infomation bar.
p_wdefProc	equ p_wInfoH+2	NOT USED.
p_wInfoDraw	equ p_wdefProc+4	Address of routine to draw Info Bar.
p_updateDraw	equ p_wInfoDraw+4	Address of routine to draw content region.
p_position	equ p_updateDraw+4
p_behind	equ p_position+8
p_windrec	equ p_behind+4	control template 
p_wInVerbs	equ p_windrec+4	Input verbs describing title,color tbl, and ctl template
p_size	equ p_wInVerbs+2
;
;
; --- Resource types.
;
rPString	equ $8006
rWindParam1	equ $800E
rWindParam2	equ $800F
rWindColor	equ $8010
;
;
; --- Input verbEquates
resIDVAsPtr	equ 0
resIDVAsHandle	equ 1
resIDVAsResource	equ 2
;
; --- parmameter template verb word equates
; the first byte is the same as the verb for NewControl2 call
titleAsPtr	equ $0000
titleAsHandle	equ $0100
titleAsResource	equ $0200
colorAsPtr	equ $0000
colorAsHandle	equ $0400
colorAsResource	equ $0800
;
;
; --- Direct page offsets.
;
@ID	equ 1
@hand	equ @ID+4
@ptr	equ @hand+4
@paramPtr	equ @ptr+4
@memoryID	equ @paramPtr+4
;
@saveDbank	equ @memoryID+2
@saveDpage	equ @saveDbank+1
@retAddrs	equ @saveDpage+2
@resType	equ @retAddrs+6
@resID	equ @resType+2
@resIDVerb	equ @resID+4	; added 12/12/88 Mensch
@defProc	equ @resIDVerb+2
@contentDraw	equ @defProc+4
@refCon	equ @contentDraw+4
@title	equ @refCon+4
@result	equ @title+4
;
	jsl IncBusyFlg
	phd	;Save caller's direct page pointer.
	phb	;Save caller's data bank pointer.
;
	phk	;Switch data bank to program bank.
	plb
;
	tcd	;Switch to Window Manager's direct page.
;
	tsc
	pei <MyID	;Put memory ID on my page.
;
	sec	;Switch direct page into stack.
	sbc #@saveDbank-1
	tcs
	tcd
;
	stz <@result	;Start with no window, just in case.
	stz <@result+2
;
;
; --- Test InputVerb to determine the method of parm passing
;
	lda <@resIDVerb	;get the passed verb
	cmp #resIDVAsResource
	beq @ResIDIsRes	;If passed as resource, go load it 
; if neither of these, then passed by handle or pointer, first allocate temp storage
; to copy the users template into
	lda #p_size	;template size.
	ldy <@memoryID
	ldx #$8000	;pass attributes in <X> (Locked)
	jsr allocate3	;Allocate memory for template.
	sta <@hand
	stx <@hand+2
	lda [<@hand]	;deref the handle now...
	tax
	ldy #2
	lda [<@hand],y
	sta <@ParamPtr+2
	stx <@ParamPtr

	lda <@resIDVerb	;get the res ID verb again
	beq @ResIDIsPtr	;if pointer, then pass it...

; if it gets here the user passed us a handle, so copy the data now...
	pei <@resID+2	;Pass handle to copy from
	pei <@resID
	pei <@ParamPtr+2	;pass the handle to copy to
	pei <@ParamPtr
	pea $0000	;now pass the size
	pea p_size	;to copy
	_handToPtr
	brl @TD0010
;
; --- New template ref was passed by pointer, so just copy the pointer
;
@ResIDIsPtr
	pei <@ResID+2	;pointer to the source parm block
	pei <@ResID
	pei <@paramPtr+2	;pointer to destination
	pei <@paramPtr
	pea $0000
	pea p_size
	_BlockMove	;copy the data
	bra @TD0010	;and continue

; 
; --- Load new window parameter table resource.
;
@ResIDIsRes
	pha	;Space for result.
	pha
	pei <@resType	;Pass type.
	pei <@resID+2	;Pass ID.
	pei <@resID
	_LoadResource
	tay	;Possible error code in y.
	plx
	stx <@paramPtr
	plx
	stx <@paramPtr+2
	bcc @ok2	;Error?
@toExit2	brl @exit2	;Error.
@ok2
;
; Now, take the handle from resource mgr or passed by app and dereference it.
@TemplateDeref
	ldy #4	;Lock parameter table.
	lda [<@paramPtr],y
	ora #$8000
	sta [<@paramPtr],y
	dey	;Dereference the table.
	dey
	lda [<@paramPtr],y
	tay
	lda [<@paramPtr]
	sta <@paramPtr
	sty <@paramPtr+2
@TD0010
;
;
; --- Fix up parameter table.
;
	lda <@resType	;Which kind of parameter table?
	cmp #rWindParam1
	beq @doParam1
;
	jsr @fixParam2
	bra @done1
;
@doParam1	jsr @fixParam1
@done1	tya	;Place possible error code in A.
	bcs @errOut	;Error?
;
;
; --- Have NewWindow create the window.
;
; First adjust parameter list count back to new window size...
	lda [<@paramPtr]	;remove the input verb from the parm count
	dec a
	dec a
	sta [<@paramPtr]

	pha	;Save for result.
	pha
	pei <@paramPtr+2	;Pass pointer to parameter table.
	pei <@paramPtr
	_NewWindow
	ply	;Return window pointer.
	sty <@result
	ply
	sty <@result+2
	bcc @skip1	;Error? a = error code if any.
;
@errOut	pha	;Save error code.
;
	lda <@resType	;Free items allocated by me.
	cmp #rWindParam1
	bne @skip3	;Only for parameter table type 1.
;
	ldy #p_wtitle+2	;Free title if there is one.
	jsr @freeField
;
	ldy #p_wcolor+2	;Free the color table if there is one.
	jsr @freeField
;
@skip3	pla	;Restore error code.
;
;
; --- Free parameter table.
;
@skip1	pha	;Save error code.
;
	lda <@resIDVerb	;get the passed verb
	cmp #resIDVAsResource
	beq @DumpRes	;If passed as resource, release it...
; If not a resource, then I made a copy of the passed param block and I should 
; dispose of it right now...
	pha	;room for result
	pha
	pei <@paramPtr+2	;first get the handle back for the temp parm block
	pei <@paramPtr
	_FindHandle	;get the handle back
	_DisposeHandle	;and get rid of it.
	bra @MkCtrls
;
@DumpRes
	pea $FFFF	;Pass 'dispose' flag.
	pei <@resType	;Pass type.
	pei <@resID+2	;Pass ID.
	pei <@resID
	_ReleaseResource
;
;
; --- Create controls in window. Use the low order byte of the wInVerb as the
;     input verb for this call.
;
@MkCtrls
	lda <@ID	;Is there a control list?
	ora <@ID+2
	beq @skip2
;
	lda <@result	;Was a window created?
	ora <@result+2
	beq @skip2
;
	pha	;Space for result.
	pha
	pei <@result+2	;Pass window owner.
	pei <@result
	ldy #p_wInVerbs	;load the offset to the template verbs
	lda [<@paramPtr],y	;load in the input verb
	and #$00FF	;strip off the high byte, low byte for this call
	pha	;and pass it as inputverb for NewControl2
	pei <@ID+2	;Pass ID of item list.
	pei <@ID
	_NewControl2
	plx	;Don't need result.
	plx
	bcc @skip2	;Error?
	sta 1,s	;Replace saved error code with error from NewControl2.
;
@skip2	ply	;Restore error code from NewWindow.
;
;
; --- Clean up stack and exit.
;      mod 12/12/88 pull off 24 bytes parameter. Mensch
;
@exit2	tsc	;Free allocated direct page.
	clc
	adc #@saveDbank-1
	tcs
	ldx #24	;Number of bytes to pop.
	jml $fd9001	;"shutDown" in ROM 3

@desIndex	dc.w p_wrefCon,p_wdefProc,p_updateDraw
@srcIndex	dc.w @refCon,@defProc,@contentDraw


;-----------------------------------------------
;        Free handle in parameter table.
;-----------------------------------------------
;
;   IN: y = index to high word of field.  If highest bit set it is a handle to free.
;
@freeField	lda [<@paramPtr],y
	bpl @exit100
;
	and #$00FF
	pha
	dey
	dey
	lda [<@paramPtr],y
	pha
	_DisposeHandle
@exit100	rts
;
;
;---------------------------------------------------------------------
;	Fix up parameter table type 1.
;-200-----------------------------------------------------------------
;
;  OUT:  Carry set if error, y = error code.
;        <@ID = ID of control list, NIL if none.
;
@fixParam1	stz <@ID	;Start with no controls.
	stz <@ID+2
;
;
; --- Set window title in table.
;
	lda <@title	;Was a title passed?
	ora <@title+2
	beq @loadTitle	;Use the passed title if there is one.
;
;
; ------ Clone the given title.
;
@Clonetitle
	lda [<@title]	;Compute size of string,
	and #$00FF
	inc a	;including length byte.
	pha	;Save size.
	ldy <@memoryID
	jsr allocate1	;Allocate fixed memory for title.
	sta <@hand
	stx <@hand+2
;
	ply	;Restore size of string.
;
	pei <@title+2	;Pass source pointer.
	pei <@title
	phx	;Pass destination handle.
	pha
	pea 0	;Pass number of bytes to move.
	phy
	_PtrToHand	;Clone title.
;
	ldy #p_wtitle	;Store handle of title.
	lda <@hand
	sta [<@paramPtr],y
	iny
	iny
	lda <@hand+2
	ora #$8000	;Set bit that states this is a handle.
	sta [<@paramPtr],y
	brl @noTitle
;
;
; ------ Load title from wherever.
;
@loadTitle	ldy #p_wtitle+2	;Is there a title in the template?
	lda [<@paramPtr],y
	tax
	dey
	dey
	ora [<@paramPtr],y
	beq @noTitle
;
	ldy #p_wInVerbs	;get the input verbs
	lda [<@paramPtr],y	
	tay	;and save em for a second
	and #titleAsResource
	bne @LoadTByRes	;if by resource load it
	tya
	and #titleAsHandle
	bne @LoadTByHandle
	ldy #p_wtitle+2
	lda [<@paramPtr],y	;load the pointer
	sta <@title+2	;save it in the string pointer field
	dey
	dey
	lda [<@paramPtr],y
	sta <@title
	brl @Clonetitle	;now create a buffer and copy the title
@LoadTByHandle
	ldy #p_wtitle+2
	lda [<@paramPtr],y	;load the pointer
	sta <@title+2	;save it in the string pointer field
	dey
	dey
	lda [<@paramPtr],y
	sta <@title
	ldy #2
	lda [<@title],y
	tay
	lda [<@title]
	sta <@title
	sty <@title+2
	brl @Clonetitle
@LoadTByRes
	ldy #p_wtitle	
	pha	;Space for result.
	pha
	pea rPString	;Pass type.
	phx	;Pass ID.
	lda [<@paramPtr],y
	pha
	sta <@ID	;Remember ID.
	stx <@ID+2
	_LoadResource
	tay	;Posible error code.
	pla
	plx
	bcc @ok200	;Error?
@errOut200	rts	;Error.
@ok200
;
	ldy #p_wtitle	;Store handle of title.
	sta [<@paramPtr],y
	iny
	iny
	txa
	ora #$8000	;Set bit that states this is a handle.
	sta [<@paramPtr],y
;
	pea rPString	;Pass type.
	pei <@ID+2	;Pass ID.
	pei <@ID
	_DetachResource	;Unlink the title handle from resource.
;
@noTitle
;
;
; --- Set window color table pointer in table.
;
	ldy #p_wcolor+2	;Is there a color table resource?
	lda [<@paramPtr],y
	tax
	dey
	dey
	ora [<@paramPtr],y
	bne @LCT0005
	brl @noColor
;
@LCT0005
	ldy #p_wInVerbs	;get the input verbs
	lda [<@paramPtr],y	
	and #colorAsResource
	bne @LoadCByRes	;if by resource load it

@ColorTableHandle	;come back here when creating by resource
;
; If not passed by resource ID we will have to make a copy of the color table
; so first create a handle
	lda #$0000
	pha	;room for result
	pha
	pha	;zero for high word of size
	pea $000A	;room for a color table
	pei <@memoryID
***	pha	;zero for attributes
	pea $c000	;locked and fixed! (21-May-91 DAL)
	pha	;no specific location
	pha
	_NewHandle	;allocate the space 
	tay	;Possible error code.
	pla
	sta <@ID	;save the handle for a sec...
	pla
	sta <@ID+2
	bcs @errOut200	;Error?

	ldy #p_wcolor+2	;push ref of the color table.
	lda [<@paramPtr],y
	pha
	dey
	dey
	lda [<@paramPtr],y
	pha
	pei <@ID+2	;address to copy to
	pei <@ID
	pea $0000	;size to copy
	pea $000A
;
; Now that the parms are set up properly, let's copy the right way depending on
; the input verb
;
	ldy #p_wInVerbs	;get the input verbs
	lda [<@paramPtr],y	
***	and #colorAsHandle
	and #colorAsHandle+colorAsResource	;21-May-91 DAL
	bne @LoadCByHandle
	_PtrToHand	;copy the data from ptr to our handle
	bra @LCT0020
;
@LoadCByHandle
	_HandToHand	;copy the data from handle to handle
@LCT0020
*** 21-May-91 DAL -- deref ID into pointer
	ldy #2
	lda [<@ID],y
	tay
	lda [<@ID]
	sta <@ID
	sty <@ID+2
*** end of 21-May-91
	ldy #p_wcolor+2	;offset to high word of color table
	lda <@ID+2	;high byte of our handle
***	ora #$8000	;set high bit to indicate by handle
	ora #$4000	;set bit 30: ptr that we need to dispose (21-May-91 DAL)
	sta [<@paramPtr],y
	dey
	dey
	lda <@ID
	sta [<@paramPtr],y
	bra @noColor
@LoadCByRes
	ldy #p_wcolor
	pha	;Space for result.
	pha
	pea rWindColor	;Pass type.
	phx	;Pass ID.
	lda [<@paramPtr],y
	pha
	sta <@ID	;Remember ID.
	stx <@ID+2
	_LoadResource
	tay	;Possible error code.
	pla
	plx
	bcc @okByRes
	brl @errOut200	;Error.

*** added 21-May-91 DAL -- treat color table resource just like handle
@okByRes	ldy #p_wcolor
	sta [<@paramPtr],y
	txa
	iny
	iny
	sta [<@paramPtr],y
	brl @ColorTableHandle
*** end of 21-May-91 DAL

;@LCT0030
;	ldy #p_wcolor	;Store handle of the color table.
;	sta [<@paramPtr],y
;	iny
;	iny
;	txa
;	ora #$8000	;Set bit that states this is a handle.
;	sta [<@paramPtr],y
;
;	pea rWindColor	;Pass type.
;	pei <@ID+2	;Pass ID.
;	pei <@ID
;	_DetachResource	;Unlink color table handle from resource.

@noColor
;
;
; --- Store passed values in parameter table.
;
	ldx #4
@lop200	phx

	ldy |@desIndex,x
	lda |@srcIndex,x
	tax

	lda <0,x
	sta [<@paramPtr],y
	iny
	iny
	lda <2,x
	sta [<@paramPtr],y

	plx
	dex
	dex
	bpl @lop200

;
; --- Get ID of control list.
;
	ldx #0
	ldy #p_windrec
	lda [<@paramPtr],y	;Get the ID of the window's control list.
	sta <@ID
	txa
	sta [<@paramPtr],y	;Clear the windRec field also, window record to be 
	iny	;allocated.
	iny
	lda [<@paramPtr],y
	sta <@ID+2
	txa
	sta [<@paramPtr],y
	clc	;No error.
	rts


;---------------------------------------------------------------------
;	Fix up parameter table type 2.
;-300-----------------------------------------------------------------
;
;  OUT:  Carry set if error, y = error code.
;        <@ID = ID of control list, NIL if none.
;
@fixParam2
;
; --- New parameter	list offsets -----------------------------
;
@paramID	equ 0	;ID of parameter list.
@newDefProc	equ @paramID+2	;DefProc of window.
@newData	equ @newDefProc+4	;Additional data for new window.

	stz <@ID	;No control list.
	stz <@ID+2

	ldy #@newDefProc	;Store address of defProc.
	lda <@defProc
	sta [<@paramPtr],y
	iny
	iny
	lda <@defProc+2
	sta [<@paramPtr],y

	clc	;No error.
	rts

;==========================================================================
;
;          Allocate	a block of memory.
;
;   IN:    y = ID number.
;          a = number of bytes.
;
;  OUT:    Carry clear if handle allocated, a+x = handle.
;          Carry set if error, y = error returned by Memory	Manager.
;
;==========================================================================
allocate1	ldx #0	Anywhere, anyhow.
	bra allocate3

	EXPORT allocate2
allocate2	ldx #%0100000000010000 Fixed, May not cross bank boundary.

; = = = = = = = = =	= = = = = = = = = =	= = = = =
;          Allocate	a block of memory.
; = = = = = = = = =	= = = = = = = = = =	= = = = =
;
;   IN:    y = ID number.
;          x = attributes.
;          a = number of bytes.
;
;  OUT:    Carry clear if handle allocated, a+x = handle.
;          Carry set if error, y = error returned by Memory	Manager.
;
allocate3	pha	Space for returned handle.
	pha
	pea 0	High word of size.
	pha	Pass low word of size.
	phy	Pass ID number.
	phx	Pass attributes.
	pha	Address doesn't matter.
	pha
	_NewHandle
	tay	Return error code in Y.
	pla	Return handle in a+x.
	plx
	
	rts

	EndP


********************************************************
*
* ErrorWindow patch
*
* 22-Sep-90 DAL (new patch)
*
* Just need to make the carry be clear on exit if there
* was no error.  (The ROM is doing a CMP #0 when it meant
* to CMP #1, so the carry is always being returned set.)
*
********************************************************
ErrorWindow	PROC
;
; 9-Mar-91 DAL -- call SysBeep2 if the error code is 0..FF
; (25-Mar-91 DAL: sucked in the $CEFF thing from WindMgr.asm)
;
errorNum	equ 7	;stack-relative

	lda errorNum,s
	and #$ff00
	beq @inRange

	lda #$CEFF
	bra @thisBeep

@inRange	lda errorNum,s
	ora #$CE00	;default silent, defer to GNE, beep $0Exx
@thisBeep	pha
	_SysBeep2

; push a copy of the passed parameters
	ldx #5	;5 words to push (including result space)
@pushParms	lda 15,s
	pha
	dex
	bne @pushParms	
	jsl ToROMErrorWindow
	tax	;error code
	pla	;result: Button number
	sta 15,s
	ldy #8	;strip 8 bytes
	jml $e10184	;ToStrip (error code in X)

ToROMErrorWindow	jsl $fd385e	;doesn't need A/X/Y!
	rtl

	EndP

********************************************************
*
* CloseWindow patch
*
* 28-Feb-91 DAL (new patch)
*
* Pre-patch to kill the AuxWindInfo record for this
* window, if any.
*
********************************************************
CloseWindow	proc
	import KillAuxInfoRecord
	import KillColorTable

	phd	;save caller's direct page
	tcd	;and use ours

	lda 11,s
	ora 9,s
	beq @nil

	lda 11,s
	pha
	lda 11,s
	pha
	jsl KillAuxInfoRecord

*** added 21-May-91 DAL
	lda 11,s
	pha
	lda 11,s
	pha
	jsr KillColorTable
*** end of 21-May-91 DAL

@nil	tdc	;get direct page back in A
	pld	;restore caller's direct page
	jml $fd13ff	;ROM 3 CloseWindow

	EndP


********************************************************
*
* Desktop patch
*
* 12-Dec-91 DAL (new patch)
*
* Post-patch Desktop(8) (new desk message) to call
* SendRequest(systemSaysNewDeskMsg) (reqcode 8).
*
* Also, dispose of old desktop pic/patt handle if
* it changes.
*
* Stack:
*  1,s = rtl
*  4,s = rtl
*  7,s = param (long)
* 11,s = message (word)
* 13,s = result space (long, optional)
*
* The result space is used when message = 2, 3, 4.
*
********************************************************
;deskPatt	equ $92	;on WM direct page

Desktop	proc
	tax
	bne @started
	lda #2
	sec
	rtl

@started	sta >windDirPage
	lda >deskPatt+2,x
	sta >oldDeskPatt+2
	lda >deskPatt,x
	sta >oldDeskPatt

	ldy #5
@copyWord	lda 15,s
	pha
	dey
	bne @copyWord

	txa
	jsl @toROM
	sta >error

	plx	;x = result low
	ply	;y = result high

	lda 11,s
	cmp #2
	bcc @noResult
	cmp #4+1
	bcs @noResult
	txa
	sta 13,s
	tya
	sta 15,s
@noResult

*** If old desk patt was a handle & it changed, dispose it.
	lda >windDirPage
	tax
	lda >deskPatt,x
	cmp >oldDeskPatt
	bne @changed
	lda >deskPatt+2,x
	cmp >oldDeskPatt+2
	beq @noChange
@changed	lda >oldDeskPatt+2
	and #$ff00
	cmp #$0100
	bne @notHandle
	lda >oldDeskPatt+2
	and #$00ff
	pha
	lda >oldDeskPatt
	pha
	_DisposeHandle
@notHandle
@noChange

*** If this was a Desktop(8), inform everyone with SendRequest
	lda 11,s
	cmp #8
	bne @notNewMess

	pha	;reqCode = 8 = systemSaysNewDeskMsg
	ldx #0
	phx	;sendToAll
	phx
	phx	;target=NIL
	phx
	phx	;dataIn=NIL
	phx
	phx	;dataOut=NIL
	_SendRequest

@notNewMess	lda >error
	tax
	ldy #6
	jml $e10184	;ToStrip

@toROM	jsl $fd0924
	rtl

error	dc.w 0
oldDeskPatt	dc.l 0
windDirPage	dc.w 0

	EndP

********************************************************
*
* SetFrameColor patch
*
* 21-May-91 DAL (new patch)
*
* Pre-patch SetFrameColor to kill the old color table,
* if it's a standard window and the color table pointer
* has bit 30 set.
*
* SetFrameColor(@ColorTable,@Window)
*
* Note: Since we never documented anything about using
* SetFrameColor with bit 31 set to indicate a handle,
* I'm not going to try to support it, even though it
* works on ROM 1.
*
********************************************************
SetFrameColor	proc
	import KillColorTable

	pha

	lda 11,s
	pha
	lda 11,s
	pha
	jsr KillColorTable

	pla
	jml >$fd10e0	;original SetFrameColor in ROM

	EndP

********************************************************
*
* KillColorTable routine -- used by CloseWindow and
*                           SetFrameColor
*
* 21-May-91 DAL
*
* Input: window pointer on stack (removed on exit).
* Call by JSR.
*
* If the window is a *standard* window and it has a
* color table pointer with bit 30 set, then we must
* FindHandle/DisposeHandle it and set the field to 0.
*
********************************************************
KillColorTable	proc

	phd
	tsc
	tcd

@wind	equ 5	;direct page

	lda <@wind+1
	beq @boring	;NIL

	ldy #$AA+1	;check middle word of defproc
	lda [<@wind],y
	cmp #$fd43	;standard = $fd4352 on ROM 3
	bne @boring

	ldy #$E0+2
	lda [<@wind],y
	asl a
	bpl @boring	;bit 30 was clear

	pha
	pha	;space for FindHandle
	lda [<@wind],y
	and #$00ff
	pha
	dey
	dey
	lda [<@wind],y
	pha
	_FindHandle
	_DisposeHandle
	lda #0
	ldy #$E0+2
	sta [<@wind],y
	dey
	dey
	sta [<@wind],y

@boring	pld

	plx
	pla
	pla	;kill input window pointer
	phx	;restore return address
	rts

	EndP


	EJECT
*******************************************************************************
*
WMgrJsrGlue	PROC
*
* Description:	These glue routines will be used to call window manager routines
*	that are in ROM and end in an rts. This can be used for making
*	the patch files smaller.
*
*
* Inputs:	<A> Address of the routine to jump to in the window manager's
*	bank.
*
* Outputs:	None
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************

aWindowRTL	equ $FD0392	; an RTL in the window manager bank
CallProcRtn	equ $FD11C9	; call proc glue routine
Pop8Bytes	equ $FD8FC3	; pop 8 bytes from the stack
	
	Entry CallProcGlue
CallProcGlue
	pea <aWindowRTL-1	; push the low word of an RTL on the stack
	jml CallProcRtn	; call the setup routine
	
	Entry Pop8BytesGlue
Pop8BytesGlue
	jml Pop8Bytes
	EndP


	EJECT
*******************************************************************************
*
Setup	PROC
*
* Description:
*
*
* Inputs:	None
*
* Outputs:	None
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
;
;=======================================================
;        Switch to Window Manager's zero page,
;        and put input parameters into zero page.
;=======================================================
;
;  IN:   a = zero page to switch to.
;
;
	jsl IncBusyFlg

	plx	Get return address.
	phd	Save current zero page pointer.
	phx	Put return address back on stack.

	tcd	Switch to Window Manager's zero page.


	ENTRY pullparams
pullparams

	lda 15,s	Pull second to last	input parameter.
	sta <workptr
	lda 17,s
	sta <workptr+2

	ENTRY pullparam
pullparam

	lda 13,s	Pull last input parameter.
	tax
	lda 11,s
	ENDP


;============================================
;          Compute window pointer
;          from port pointer.
;============================================
;
;   IN:    a = low word of port pointer.
;          x = high	word of port pointer.
;
;  OUT:    wind = window pointer.
;          a = low word of window pointer.
;          x = high	word of window pointer.
;          y = trashed.
;
	EXPORT get_wptr
get_wptr	PROC

	tay
	bne ok1	Null pointer?
	txy
	beq store1

ok1	sec
	sbc #wport	Compute pointer to window record
	bcs store1	from pointer to window's port.
	dex
store1	sta <wind
	stx <wind+2

	rts
	ENDP


	EJECT
*******************************************************************************
*
NewStartup	PROC
*
* Description:	This routine will postpatch the window mgr startup call
*	so that the window globals area can be grown
*
*******************************************************************************
;WindStartup Stack
OldDPage	equ 1
NewDataHandle	equ OldDPage+2
RTL1	equ NewDataHandle+4
RTL2	equ RTL1+3
theID	equ RTL2+3

pSize	equ 2

RomStartup	equ $FD018C	; address of the old startup call

	lda #0		;added 24-Sep-90 DAL
	sta >WindowUpdateCount	;added 24-Sep-90 DAL

*** added 16-Sep-91 DAL -- pre-locate the disk-swap icons
	import DiskSwap640Hndl,DiskSwap320Hndl
	pha
	pha
	pea $8001	;rIcon
	pea $07ff
	pea $0006	;disk-swap 640
	_LoadResource
	pla
	sta >DiskSwap640Hndl
	pla
	sta >DiskSwap640Hndl+2

	pha
	pha
	pea $8001	;rIcon
	pea $07ff
	pea $0106	;disk-swap 320
	_LoadResource
	pla
	sta >DiskSwap320Hndl
	pla
	sta >DiskSwap320Hndl+2
*** end 16-Sep-91

*** added 12-Apr-91 DAL -- initialize HandleDiskInsert
	pha
	pha
	pea $2000	;18-Apr-91 DAL -- init everything to current status
	pea 0
	_HandleDiskInsert
	pla
	pla
*** end of 12-Apr-91 DAL

*** added 20-May-91 DAL -- try to load and start QDAux if it isn't already here
	pea 0
	_QDAuxStatus
	pla
	bne @haveQDAux
	pea $0012	;tool set = QDAux
	pea $0304	;version = 3.4
	_LoadOneTool
	_QDAuxStartUp
@haveQDAux
*** end of 20-May-91 DAL

	pha	; make room on the stack for new data handle
	pha

	phd	; save the users dpage
	tsc
	tcd	; use the stack as a dpage
	
	pha	; space for result
	pha
	PushLong #RAMSIZE
	pei theID
	pea $4010	; Fixed, May not cross bank boundary
	pha	; Address doesn't matter
	pha
	_NewHandle
	bcc Ok

	plx
	plx
	brl Error

Ok	pla
	sta NewDataHandle
	pla 
	sta NewDataHandle+2

	lda #0
	pei theID
	jsl StartupGlue
	bcs Error
	
	pha
	_DoWindows	; get our dpage 
	pld
	
; Now push the handle to our data area on stack
	pha
	pha
	pei <Data+2
	pei <Data
	_FindHandle	; find handle to window mgr's data area
	lda 3,s	; save extra copy of data handle so we can dispose
	pha	; of it after making a copy of the data in it
	lda 3,s
	pha
	lda 13,s	; get handle into which data will be copied into
	sta <Data+2	; get new handle into Data so we can use it to
	pha	; to deref in
	lda 13,s
	sta <Data
	pha
*** 17-Feb-92 DAL -- RAMSIZE is too big; only move the amount of data in the old handle.
;;;	PushLong #RAMSIZE
	pea 0
	pea $01F2	;size of old data
*** end 17-Feb-92
	_HandToHand
	_DisposeHandle	; get rid of old Data handle

	ldy #2
	lda [<Data],y ; dereference new data area and update 
	tax	  ; window manager's data ptr
	lda [<Data]
	sta <Data
	stx <Data+2
;
; Now we must reinitialize some of the data in our new data segment because
; they are pointers to within this data segment.
; 
	lda #scInfo	; address to calculate
	ldy #scrn2scrn+PP_SrcInfo ; where to store address
	jsr GetAndStoreAddress

	lda #scInfo
	ldy #scrn2scrn+PP_DesInfo
	jsr GetAndStoreAddress

	lda #blitsrc
	ldy #scrn2scrn+PP_SrcRect
	jsr GetAndStoreAddress

	lda #blitdes
	ldy #scrn2scrn+PP_DesRect
	jsr GetAndStoreAddress

	lda #fontHandle
	ldy #windIconFont
	jsr GetAndStoreAddress	

	lda #0	; no error

; Now that we are done, clean up and return
Error	tax	; save the error in <X>
	lda RTL1+4,s
	sta RTL1+4+pSize,s
	lda RTL1+2,s
	sta RTL1+2+pSize,s
	lda RTL1,s
	sta RTL1+pSize,s
	pld	; recover the direct page
	pla	; get rid of space for NewDataHandle
	pla
	pla	; pull off our parameter
	txa
	cmp #1	; set carry if error
	RTL
	
StartupGlue	jsl ROMStartup	; call the real startup routine
	rtl


;----------------------------------------------------------------
;
;  IN: a-reg contains offset of address we want to calculate
;      y-reg contains offset of where to store address
;
; OUT: nothing
;
;----------------------------------------------------------------
GetAndStoreAddress	
	clc 
	adc <Data
	sta [<Data],y
	iny
	iny
	lda <Data+2
	sta [<Data],y

	rts

	EndP

	
	EJECT
*******************************************************************************
*
GetFrameColor	PROC
*
* Description:	Patched version of the ROM based getframe color routine
* 	this routine must call many routines in the firmware, so
*	it must be patched in a special way. All jsr's have been 
*	replaced with JSL's to the proper routine
*
*
* Inputs:	Pointer to color table
*	Pointer to window
*
* Outputs:	None
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************

theWind	equ 9
desTable	equ theWind+4

	jsr setup

	lda #wGetColorTable	Ask defProc for color table pointer
	jsl callProcGlue
	sta <work	Store pointer to color table.
	stx <work+2	
; Modified 5/10/89 Mensch
; Add code here to detect if this is a handle or a pointer.
	txa	put high word into <A> to test for handle
	bpl @WorkOK	High bit clear, work ok.
	ldy #2	else, dereference it in place.
	lda [<work],y
	tax
	lda [<work]
	sta <work
	stx <work+2

@WorkOK
	lda desTable,s	Get pointer to destination table.
	sta <work+4
	lda desTable+2,s
	sta <work+6

	ldy #8	Clone color table into given table.
lop1	lda [<work],y
	sta [<work+4],y
	dey
	dey
	bpl lop1

	phb
	brl pop8bytesGlue
	ENDP

****************************************************************
*
* FindWindow patch (ROM 3) 25-Mar-91 DAL
*
* Pre-zero the <wind variable, so that if we return wInMenuBar
* we make sure to return NIL for the window pointer.  Besides
* being clean, this causes ModalDialog to beep if the user clicks
* in the menu bar.
*
****************************************************************
FindWindow	proc export

	tax
	lda #0
	sta >$0000A6,x	;zero out <wind
	sta >$0000A8,x	;zero out <wind+2
	txa
	jml >$fd1956	;original ROM 3 FindWindow

	EndP

****************************************************************
*
* GrowWindow patch (ROM 3) 26-Nov-90 DAL
*
* Patch around GrowWindow to preserve the old ZoomRect and
* frame bits (zoom state, at least) in the case that the
* window doesn't change size at all.
*
****************************************************************
GrowWindow	proc export

	sta >oldAcc
	pla
	sta >PrivateRTL
	pla
	sta >PrivateRTL+2
	pla
	sta >PrivateRTL+4

	lda 3,s
	sta >gwTheWindow+2
	tax
	lda 1,s
	sta >gwTheWindow

	pha	;space for GetWFrame
	phx
	pha	;window pointer
	_GetWFrame
	pla
	sta >gwTheFrame

	pha
	pha	;space for GetZoomRect
	lda >gwTheWindow+2
	pha
	lda >gwTheWindow
	pha
	_GetZoomRect
	pushlong #oldZoomRect
	pea 0
	pea 8
	_BlockMove

	lda >oldAcc
	jsl ToROM
	bcs @byebye
	lda 1,s
	ora 3,s
	bne @byeNoErr

	pushlong #oldZoomRect
	lda >gwTheWindow+2
	pha
	lda >gwTheWindow
	pha
	_SetZoomRect

	lda >gwTheFrame
	pha
	lda >gwTheWindow+2
	pha
	lda >gwTheWindow
	pha
	_SetWFrame

@byeNoErr	lda #0
	clc
@byebye	tax
	lda >PrivateRTL+4
	pha
	lda >PrivateRTL+2
	pha
	lda >PrivateRTL
	pha
	txa
	rtl

ToROM	jsl $fd1800
	rtl

PrivateRTL	ds.b 6
gwTheFrame	dc.w 0
gwTheWindow	dc.l 0
oldZoomRect	ds.b 8
oldAcc	dc.w 0

	EndP

	title 'TaskMaster'
****************************************************************
*
NewTaskMaster	PROC
*
* 9/7/89	Mensch
* Add tmNoGetNextEvent bit.
*
****************************************************************
	DefineStack
WindMgrD	word
ThisAction	word
TheTaskMask	LONG
WindPtr	LONG
DataPtr	LONG
CallingFlag	WORD
OrigB	BYTE
OrigD	word
RTL1	block 3
RTL2	block 3
InputTaskRecPtr	LONG
InputEventMask	WORD
OutputTaskCode	WORD


	phd	Save d-page and dbr on stack
	phb
	tcd	Switch in wmgr's dPage for a momment

	pea $0000	Push CallingFlag of zero to indicate call origin

	pei <Data+2	Push pointer to window mgr's globals
	pei <Data

	pha	Push space for Window Pointer
	pha

	pha	Push space for the task mask
	pha

	pea $0000	ThisAction starts as zero

	phd	Push window manager's direct page!

	tsc	Turn our stack into direct page
	tcd


	pha	Save the Port on the stack
	pha
	_GetPort

	bit CallingFlag
	bpl DoNormalStuff
	pei CallingFlag	; push a non-zero value so it looks like there was an event.
	bra SkipNormalStuff
DoNormalStuff
;
; Call System Task now and get it over with
;
; 8/24/89 Mensch
; Added code here to skip getNextEvent in the case where the tmNoGetNextEvent bit is set in the
; task mask.

	ldy #taskMask+2	; get high word of the task mask
	lda [InputTaskRecPtr],y
	and #tmNoGetNextEvent
	beq @getEvent	; if zero, get an event here
;
; If we get this far, then no call to get next event should be made,
; what we will do instead is get the taskwhat field and push it on the stack as the result of 
; getnextevent, so that we can proceed
;
	lda [InputTaskRecPtr] ; event what is first field
	pha
	bra SkipNormalStuff	  ; and continue with the rest of the call...

@getEvent

	_SystemTask	;Call Desk Manager so it can pass a tick

	pha
	pei InputEventMask
	pei InputTaskRecPtr+2
	pei InputTaskRecPtr
	_GetNextEvent

;;;; Now get back into the ROM with this here call!
;;;
;;;SkipNormalStuff	jml SkipNormalStuffROM
*** added 1-Dec-92 DAL -- make tmNoGetNextEvent work!
SkipNormalStuff
	jsl IncBusyFlg		Inc flag so that shared resources are in danger

;
; Put d-page and dbr in global data for use by w-def Procs.
; 13 Apr 89 SEG
	ldy #callerDPage
	lda OrigD
	sta [<dataPtr],y
	ldy #callerDataB		high byte must be valid
	lda OrigB-1
	sta [<DataPtr],y
; End Change

	lda [<InputTaskRecPtr]	Check this so we don't zero important data
	cmp #wInContent		for TaskMasterDA case
	beq SkipThisShit
	
	ldy #message		Clone message into TaskData just in case.
	lda [<InputTaskRecPtr],y
	tax
	iny
	iny
	lda [<InputTaskRecPtr],y
	ldy #TaskData+2
	sta [<InputTaskRecPtr],y
	dey
	dey
	txa
	sta [<InputTaskRecPtr],y

SkipThisShit
	ldy #TaskMask+2		Get TaskMask into a	zero page location.
	lda [<InputTaskRecPtr],y
	sta TheTaskMask+2
	and #$FF80		Bits 23-31 must be clear.

	jmp $fd26f5		;"beq mask_ok" in ROM 3
*** end 1-Dec-92
	EndP

*
* WindowUpdateCount--used by BeginUpdate, EndUpdate, WindStatus, WindStartUp
*
* 24-Sep-90 DAL
*
WindowUpdateCount	proc export
	dc.w 0
	EndP


********************************************************
*
* WindStatus patch
*
* 24-Sep-90 DAL (new patch)
*
* Now returns with the carry set if there are any windows
* being updated.
*
********************************************************
WindStatus	PROC

	sta 7,s	Return status

	lda >WindowUpdateCount
	cmp #1

	lda #0
	rtl

********************************************************
*
* BeginUpdate patch
*
* 24-Sep-90 DAL (new patch)
*
* Increments WindowUpdateCount and jumps back into ROM.
*
********************************************************
BeginUpdate	PROC

	tax
	lda >WindowUpdateCount
	inc a
	sta >WindowUpdateCount
	txa
	jml $fd0620

	EndP

********************************************************
*
* EndUpdate patch
*
* 24-Sep-90 DAL (new patch)
*
* Decrements WindowUpdateCount and jumps back into ROM.
*
********************************************************
EndUpdate	PROC

	tax
	lda >WindowUpdateCount
	dec a
	sta >WindowUpdateCount
	txa
	jml $fd0669

	EndP


********************************************************
*
* GetWKind2 patch
*
* 15-May-91 DAL (new patch)
*
* Checks for the NIL case and then jumps back to ROM.
*
********************************************************
GetWKind2	proc

	pha
	lda 7+1+2,s
	bne @notNIL
	sta 11+2,s	;zero out result word
	pla
	ldx #0	;no error
	ldy #4	;pop 4 bytes
	jml $e10184	;ToStrip

@notNIL	pla
	jml >$fd1042

	EndP


	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Patch/Patch3/install.asm b/IIGS.601.SRC/GSToolbox/Patch/Patch3/install.asm
new file mode 100644
index 0000000..28be057
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Patch/Patch3/install.asm
@@ -0,0 +1 @@
+****************************************************************
***			 ***
***	       Install		 ***
***	     Version 5.1		 ***
***	   March 3, 1989		 ***
***			 ***
***			 ***
***  This is the install routine for the patch to ROM 3.	 ***
***			 ***
****************************************************************

****************************************************************
***			 ***
***			 ***
***            Copyright (C) Apple Computer, Inc.	 ***
***            1985-1989		 ***
***            All Rights Reserved		 ***
***			 ***
***			 ***
****************************************************************
*
* 5/11/89	Mensch
*
* Code stolen from ts2 patch. Modified for ts3 patch Installed 
* the first patch that being the window manager stuff.
*
* 16 May 89	Steven Glass
*
* Added patch to menu manager.
*
* 18 May 89	Steven Glass
*
* Added patch to list manager.
*
* 11/16/89	Mensch
* Added Event manager patch.
*
* 23 Jan 90	Yee
* Remove Event manager patch.
*
* 2/22/90	mensch
* add misc tools patch for the first time
*
* 17-Sep-90	Dave Lyons
*
* Removed dependency on all.macros.
* Added Tool Locator patch.
*
* 24-Sep-90	Dave Lyons
*
* Added Scrap Manager patch.
* Replaced the series of SetTSPtr calls with a loop and a
* table.  This saves space.
*
* 23-Oct-90	Dave Lyons
*
* Added Event Manager to patch table.
*
* 14-Nov-90	Dave Lyons
*
* Added JSL AddTBNotifyProc.  Put back all.macros.
*
* 4-Dec-90	Dave Lyons
*
* Kill List Manager patch.
*
* 6-Jan-91	Dave Lyons
*
* For now, we're killing the ROM Font Manager in favor of
* TOOL027.  Probably I'll patch it later.
*
* 14-Jan-91	Dave Lyons
*
* For now, we're also killing the Scrap Manager in favor of
* TOOL022.  Will almost certainly bring it back later (there's
* a Close(0) bug in the ROM--can probably work around).
*
* 10-Mar-91	Dave Lyons
*
* Added FixSysBeep routine--I need to patch the bell vector now
* to support "give visual indication of sounds" bit in BRAM.
*
* 11-Mar-91	Dave Lyons
*
* Killed Line Edit in the patch table.  I'll put some of it
* back later, but for now we're using Tool020.
*
* 16-Apr-91	Dave Lyons
*
* Added call to AddTBRequestHandler (in Locator.pch).
*
* 17-Sep-91	Dave Lyons
*
* Moved AddTBNotifyProc and AddTBRequestProc to Tool.Setup.
*
* 5-Nov-91	Dave Lyons
*
* Now patches Text Tools (added one line in PatchTable).
*
****************************************************************
*
* Begin 6.0.1
*
* 5-Mar-92	Dave Lyons (6.0.1d_)
*
* Patch Integer Math.
*
* 24-Mar-93	Dave Lyons (6.0.1d15)
*
* So that we can use the disk-based scrap later, undo what
* the ROM-based ScrapBootInit did (dispose all $4201 memory
* and set the Scrap Manager's WAP to NIL).
*
* 6-May-93 	Jim Murphy (6.0.1 final)
*
* Added SANE to patch table.
*
****************************************************************

	blanks off
	string asis
	datachk off

	include 'all.macros'

	include ':::sys.equs.asm'

	import LocatorCallTable
	import SoundCallTable
	Import WMCallTable
	import MenuCallTable
*	import ListCallTable	;removed 4-Dec-90 DAL
	import InstallQDPatch
	import FMCallTable
	import DialogCallTable
	import ControlCallTable
	import DeskCallTable
	import LECallTable
	import MMCallTable
	import MTCallTable
	import ScrapCallTable
	import EMCallTable
	entry FixSysBeep		;10-Mar-91 DAL
	import AddTBNotifyProc
	import AddTBRequestHandler	;16-Apr-91 DAL
	import TTCallTable		;5-Nov-91 DAL
	import IMCallTable		;5-Mar-92 DAL
	import Sane2CallTable	;6-May-93 JCM

Install	PROC

;---------------------------------------------------
;
; Install the QD Patch (This one is special)
;
	jsl InstallQDPatch

*
* Do a bunch of SetTSPtrs from a table
*
* New routine 24-Sep-90 DAL
*
	phb
	phk
	plb
	ldx #0	;index into table
@patch1tool	lda PatchTable+2,x	;flag word
	bmi @done
	phx	;keep index into table

	pha	;push flag word
	lda PatchTable,x
	pha	;push toolset number
	lda PatchTable+6,x
	pha	;push high word of FPT
	lda PatchTable+4,x
	pha	;push low word of FPT
	_SetTSPtr

	pla	;retrieve index
	clc
	adc #8
	tax
	bra @patch1tool
@done	plb

	jsl FixSysBeep


*** added 24-Mar-93 DAL -- undo the nasty effects of the ROM-based ScrapBootInit
	lda #0
	pha	;System tool flag
	pea $0016	;Scrap Manager tool number
	pha
	pha	;NIL
	_SetWAP

	pea $4201	;Scrap Manager's ID
	_DisposeAll
*** end 24-Mar-93

;
; Now unload this segment of code be sure to do a jump instead
; of a jsl this way we don't have to worry about whether this code
; disappears...
;
	pha	; DAL 18-Sep-90
	_MMStartUp	; DAL 18-Sep-90
	plx	; DAL 18-Sep-90

	longa off
	sep #$20
	pla
	ply	; get the return address from the stack

*** Our ID isn't necessarily A002.  DAL 17-Sep-90
***	pea $A002
	phx	; DAL 18-Sep-90

	pea $0001	; and our file num...
	pea $0001	; even our segment number...
	phy
	pha	; put the return address back...
	longa On
	rep #$20
	ldx #$0C11	; and make the UnloadsegNumCall
	jml >$E10000	; and call the tool locator...

********************************************************************************
*
* PatchTable
*
* For each toolset to be patched, we have two Longs:
*
*	dc.l $000x00tt,xxxCallTable
*
* x is 1 if we need to do a "special" patch (tool 1 or 5 on ROM 3)
* tt is the toolset number toopatch
* xxxCallTable is the new call table
*
*
********************************************************************************
PatchTable	dc.l $00010001,LocatorCallTable	;Tool Locator (17-Sep-90 DAL)
	dc.l $00000002,MMCallTable	;Memory Manager
	dc.l $00000003,MTCallTable	;Misc Tools
	dc.l $00010005,DeskCallTable	;Desk Manager
	dc.l $00000006,EMCallTable	;Event Manager (23-Oct-90 DAL)
	dc.l $00000008,SoundCallTable	;Sound Tools
	dc.l $0000000A,Sane2CallTable	;SANE Tools (6-May-93 JCM)
	dc.l $0000000B,IMCallTable	;Integer Math (5-Mar-92 DAL for 6.1d2)
	dc.l $0000000C,TTCallTable	;Text Tools (5-Nov-91 DAL)
	dc.l $0000000E,WMCallTable	;Window Manager
	dc.l $0000000F,MenuCallTable	;Menu Manager
	dc.l $00000010,ControlCallTable	;Control Manager
*	dc.l $00000014,LECallTable	;Line Edit
	dc.l $00000014,$FE0265	;USE TOOL020 for now (11-Mar-91 DAL)
	dc.l $00000015,DialogCallTable	;Dialog Manager
*	dc.l $00000016,ScrapCallTable	;Scrap manager (24-Sep-90 DAL)
	dc.l $00000016,$FE0265	;Use RAM-based scrap mgr, 14-Jan-91 DAL
*	dc.l $0000001B,FMCallTable	;Font Manager
	dc.l $0000001B,$FE0265	;Font Manager DISABLED for now (6-Jan-91 DAL)
*	dc.l $0000001C,ListCallTable	;List Manager (removed 4-Dec-90 DAL)
	dc.l $0000001C,$FE0265	;List Manager (empty!) (4-Dec-90 DAL)
	dc.l $ffffffff

	EndP

*****************************************************************
*
* FixSysBeep.
*
* This routine copies the current contents of the
* sysbeep vector to	a location below and substitues the a
* address of NewSysBeep.
*
*****************************************************************
FixSysBeep	PROC Export
	import NewSysBeep
	Import OrigBellVector
	
	lda >BellVector
	sta >OrigBellVector
	lda >BellVector+2
	sta >OrigBellVector+2

	lda #NewSysBeep
	sta >BellVector+1
	lda #>NewSysBeep
	sta >BellVector+2

	rtl
	EndP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Patch/Patch3/makefile b/IIGS.601.SRC/GSToolbox/Patch/Patch3/makefile
new file mode 100644
index 0000000..b47c3e6
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Patch/Patch3/makefile
@@ -0,0 +1 @@
+### Dependancies for ts3
ts3		Ä			¶
	makefile				¶
	:obj:Locator.pch.obj		¶
#	:::tl:startstop.asm.obj		¶
#	:::tl:loading.asm.obj		¶
	:obj:QD.pch.obj			¶
#	:obj:TextDraw.Pch.Obj		¶
	:obj:Cursor.Pch.Obj			¶
	:::QD:objs:Env.Asm.Obj		¶
	:obj:install.asm.obj		¶
	:::WindMgr:WindMgr.asm.obj		¶
	:::WindMgr:NewCalls.asm.obj		¶
	:obj:WindMgr.pch.obj		¶
	:obj:ControlMgr.pch.obj		¶
	:::ControlMgr:ControlMgr.asm.obj	¶
	:::ControlMgr:PicProc.asm.obj 	¶
	:::ControlMgr:StatTextProc.asm.obj	¶
	:::ControlMgr:defprocs.asm.obj	¶
	:::MenuMgr:MenuMgr.asm.obj		¶
	:::MenuMgr:PopUpProc.asm.obj		¶
	:obj:MenuMgr.pch.obj		¶
	:obj:DialogMgr.pch.obj		¶
	:::DialogMgr:Dialog.asm.obj		¶
	:obj:Desk.pch.obj			¶
	:::Desk:NDACalls.asm.obj		¶
	:::Desk:CDAMenu.asm.obj		¶
	:::QD:QDAlone:Strip.asm.obj		¶
	:obj:Sound.aii.obj			¶
	:::Sound:obj:StartSound.aii.obj	¶
	:::Sound:obj:Fsynth_irq.aii.obj	¶
	:::Sound:obj:ServeGen.aii.obj		¶
	:::Sound:obj:SetGCB.aii.obj		¶
	:::Sound:obj:StartUp.aii.obj		¶
	:::Sound:obj:StartPlaying.aii.obj	¶
	:obj:Misc.tools.pch.obj		¶
	:::misc.tools:ROMDataMgr.asm.obj	¶
	:obj:Memory.pch.obj			¶
	:obj:InitCode.pch.obj		¶
	:::mm:mm.asm.obj			¶
	:obj:EventMgr.pch.obj		¶
	:::events:em.asm.obj		¶
	:obj:IntMath.pch.obj		¶
	:obj:Text.Tools.pch.obj		¶
	:obj:SANE.pch.obj
	linkiigs  		¶
		-lseg:$2000 INIT	¶
			:obj:install.asm.obj ¶
			:obj:InitCode.pch.obj¶
		-lseg MAIN 					¶
			:obj:Locator.pch.obj(LOCATORCALLTABLE,TLVERSION,SAVETEXTSTATE,RESTORETEXTSTATE,TLSHUTDOWN,MESSAGECENTER) ¶
#			:::tl:startstop.asm.obj			¶
#			:::tl:loading.asm.obj(LOADONETOOL,LOADTOOLS,LOADTHISTOOL,TLGETMEM,MAKEIDNUM,GETSPECIALFLAG,UNLOADONETOOL,UNLOADTOOLS,DUMMYTABLE)  ¶
#			:::tl:tl.asm.obj(TLMEMROUTINES,DUMMYTABLE)	¶
			:obj:WindMgr.pch.obj			¶
			:::WindMgr:WindMgr.asm.obj(GETWREFCON,LONGCALL) 	¶
			:::WindMgr:NewCalls.asm.obj(ALERTWINDOW,GETAUXWINDINFO,KILLAUXWINDINFO,DOMODALWINDOW,MWGETCTLPART,MWSETMENUPROC,MWSTDDRAWPROC,MWSETUPEDITMENU,FINDCURSORCTL,RESIZEINFOBAR,HANDLEDISKINSERT,FLUSHKEYEVENTS,DOINITCURSOR,UPDATEWINDOW) ¶
			:obj:ControlMgr.pch.obj			¶
			:::ControlMgr:ControlMgr.asm.obj(CTLSHUTDOWN,FINDRADIOBUTTON,SETLETEXTBYID,GETLETEXTBYID,CMLOADRESOURCE,GETANDSETPREFS,LOADRESOURCE,DRAWRECT,PUSHVVERT_PEN,STATICRAM,DEREFERENCE) ¶
			:::ControlMgr:ControlMgr.asm.obj(SET_PATT,SETVERTPEN,FRACTION,PUSHRECT2,PUSHVCTL_FONT,PUSHRECORD,READMOREFLAGS,ENTER470,SET_TEXTMODE,SMEAR,COMPUTESCROLLCOLOR,SETCTLVALUEBYID,GETCTLVALUEBYID,INVALONECTLBYID,HILITECTLBYID) ¶
			:::ControlMgr:StatTextProc.asm.obj		¶
			:::ControlMgr:PicProc.asm.obj(DO_DISPOSE) 	¶
			:::ControlMgr:defprocs.asm.obj(SCROLL_PROC,REC_SIZE,SCROLL_DRAW,NULL_RET,SCROLL_HIT,SCROLL_INIT,NEWVIEW,MOVE_BAR,INVAL_RECT,CHECKFORVIS,SETUPCOLOR,UP_BOX,DOWN_BOX,LEFT_BOX,RIGHT_BOX,DRAW_ARROW2,SET_PATT,CENTER_HOR,PRINT_ICON,SCROLLSTATE,SET_PENPOS) ¶
			:obj:MenuMgr.pch.obj			¶
			:::MenuMgr:MenuMgr.asm.obj(PUSHPORTDATA,POPPORTDATA,INSERTPATHMITEMS) ¶
			:::MenuMgr:PopUpProc.asm.obj			¶
			:obj:DialogMgr.pch.obj			¶
			:::DialogMgr:Dialog.asm.obj(DIALOGSTARTUP,QUIT2,DISPOSELOCALS,ALERTICONDATAS) ¶
			:obj:QD.pch.obj				¶
#			:obj:TextDraw.Pch.Obj			¶
			:obj:Cursor.Pch.Obj				¶
			:::QD:objs:Env.Asm.Obj(EXTENDCOLORWORD)		¶
			:obj:Desk.pch.obj				¶
			:::QD:QDAlone:strip.asm.obj			¶
###			:::Desk:CDAMenu.asm.obj(MONKEYIN,EVNTKEYIN) ¶
			:::Desk:NDACalls.asm.obj(STARTNDACALL,DESKUTILS,ENDNDACALL,OERROUT4,OPENNDA) ¶
			:::Desk:NDACalls.asm.obj(FUTZRESIDS,AREWETOP,SENDOPEN,SENDCLOSE,CHECKNDASTUFF,CALLCDAMENU,FINDTHISWINDOW,DOCLOSESTUFF,FRONTTOAX,SENDACTION,SENDINIT) ¶
			:obj:Sound.aii.obj				¶
			:::Sound:obj:StartSound.aii.obj		¶
			:::Sound:obj:Fsynth_irq.aii.obj		¶
			:::Sound:obj:ServeGen.aii.obj			¶
			:::Sound:obj:SetGCB.aii.obj			¶
			:::Sound:obj:StartPlaying.aii.obj		¶
			:::Sound:obj:StartUp.aii.obj(SSTARTUP)		¶
			:obj:memory.Pch.Obj				¶
			:::mm:mm.asm.obj(VERIFYHANDLE,SETHANDLEID)	¶
			:obj:Misc.tools.pch.obj(MTCALLTABLE,MTVER,MTINIT,NEWSYSFAIL,COMPUTEDEFAULTFAILMSG,GETADDR,ORIGBELLVECTOR,NEWSYSBEEP,GETROMRESOURCE)  ¶
			:::misc.tools:ROMDataMgr.asm.obj(CHOOSEFONTSTUFF)	¶
			:obj:EventMgr.pch.obj			¶
			:::events:em.asm.obj(USECOOLMOUSEPOS,CREATEMOUSEMESSAGE) ¶
			:obj:IntMath.pch.obj			¶
			:obj:Text.Tools.pch.obj			¶
			:obj:SANE.pch.obj				¶
		-o TS3 -t $BC -at $0000
	if {AutoDuplicate} == 1
		DuplicateIIGS -y -mac TS3 :
	End

### Dependancies for components
:obj:Locator.pch.obj		Ä	Locator.pch
	asmiigs Locator.Pch -o :obj:
:obj:InitCode.pch.obj		Ä	InitCode.pch
	asmiigs InitCode.Pch -o :obj:   -unsafe -wi
:obj:install.asm.obj		Ä	install.asm
	asmiigs install.asm  -o :obj:
:obj:Misc.Tools.Pch.obj		Ä	Misc.Tools.pch
	asmIIgs Misc.Tools.pch -o :obj:
:obj:WindMgr.pch.obj		Ä 	WindMgr.Pch
	asmiigs WindMgr.Pch -o :obj:
:obj:MenuMgr.pch.obj		Ä 	MenuMgr.Pch
	asmiigs MenuMgr.Pch -o :obj:
:obj:ControlMgr.pch.obj		Ä 	ControlMgr.Pch
	asmiigs ControlMgr.Pch -o :obj:
:obj:DialogMgr.pch.obj		Ä 	DialogMgr.Pch
	asmiigs DialogMgr.Pch -o :obj:
:obj:QD.pch.obj			Ä 	QD.Pch
	asmiigs QD.Pch -o :obj:   -unsafe -wi
#:obj:TextDraw.Pch.Obj 		Ä	TextDraw.Pch
#	asmiigs TextDraw.Pch -o :obj:   -unsafe -wi
:obj:Cursor.Pch.Obj 		Ä	Cursor.Pch
	asmiigs Cursor.Pch -o :obj:Cursor.Pch.Obj   -unsafe -wi  
:obj:Desk.pch.obj			Ä 	Desk.Pch    :::Desk:Desk.Equates.asm
	asmiigs Desk.Pch -o :obj:   -unsafe -wi
:obj:Memory.pch.obj			Ä	Memory.pch
	asmIIgs Memory.pch -o :obj:
:obj:EventMgr.pch.obj		Ä	EventMgr.pch
	asmiigs EventMgr.Pch -o :obj:
:obj:Sound.aii.obj			Ä 	Sound.aii
	asmiigs Sound.aii -o :obj:   
:::Sound:obj:StartSound.aii.obj		Ä 	:::Sound:StartSound.aii
	asmiigs :::Sound:StartSound.aii -o :::Sound:obj:   
:::Sound:obj:Fsynth_irq.aii.obj		Ä 	:::Sound:Fsynth_irq.aii
	asmiigs :::Sound:Fsynth_irq.aii -o :::Sound:obj:   
:::Sound:obj:ServeGen.aii.obj			Ä 	:::Sound:ServeGen.aii
	asmiigs :::Sound:ServeGen.aii -o :::Sound:obj:   
:::Sound:obj:SetGCB.aii.obj			Ä 	:::Sound:SetGCB.aii
	asmiigs :::Sound:SetGCB.aii -o :::Sound:obj:   
:::Sound:obj:StartUp.aii.obj			Ä 	:::Sound:StartUp.aii
	asmiigs :::Sound:StartUp.aii -o :::Sound:obj:   
:::Sound:obj:StartPlaying.aii.obj		Ä 	:::Sound:StartPlaying.aii
	asmiigs :::Sound:StartPlaying.aii -o :::Sound:obj:
:obj:IntMath.pch.obj Ä IntMath.pch
	asmiigs IntMath.pch -o :obj:
:obj:Text.Tools.pch.obj Ä Text.Tools.Pch
	asmiigs Text.Tools.pch -o :obj:
:obj:SANE.pch.obj Ä SANE.pch
	asmiigs SANE.pch -o :obj:

### Dependancies for exterior tool files...
:::tl:startstop.asm.obj		Ä	:::tl:startstop.asm
	directory :::tl
	asmiigs startstop.asm
	directory ::patch:patch3
:::tl:loading.asm.obj		Ä	:::tl:loading.asm
	directory :::tl
	asmiigs loading.asm
	directory ::patch:patch3
:::tl:tl.asm.obj			Ä	:::tl:tl.asm
	directory :::tl
	asmiigs tl.asm -d RAMVersion=0
	directory ::patch:patch3
:::misc.tools:ROMDataMgr.asm.obj	Ä	:::misc.tools:ROMDataMgr.asm
	Asmiigs	   :::misc.tools:ROMDataMgr.asm -o :::misc.tools: -d Big=1
:::WindMgr:WindMgr.asm.obj	Ä :::WindMgr:WindMgr.asm :::WindMgr:WindMgrEquates.asm
	asmiigs :::WindMgr:WindMgr.asm -i :::WindMgr:  -o :::WindMgr:
:::WindMgr:NewCalls.asm.obj	Ä :::WindMgr:NewCalls.asm :::WindMgr:WindMgrEquates.asm
	asmiigs :::WindMgr:NewCalls.asm -i :::WindMgr:  -o :::WindMgr:
:::MenuMgr:MenuMgr.asm.obj	Ä :::MenuMgr:MenuMgr.asm :::MenuMgr:MenuEquates.asm
	asmiigs :::MenuMgr:MenuMgr.asm  -i :::MenuMgr: -o :::MenuMgr:
:::MenuMgr:PopUpProc.asm.obj	Ä :::MenuMgr:PopUpProc.asm :::MenuMgr:MenuEquates.asm
	asmiigs :::MenuMgr:PopUpProc.asm  -i :::MenuMgr: -o :::MenuMgr:
:::ControlMgr:StatTextProc.asm.obj	Ä  :::ControlMgr:StatTextProc.asm   :::ControlMgr:Equates.asm
	asmiigs :::ControlMgr:StatTextProc.asm -i :::ControlMgr:  -o :::ControlMgr:
:::ControlMgr:PicProc.asm.obj	Ä :::ControlMgr:PicProc.asm   :::ControlMgr:Equates.asm
	asmiigs :::ControlMgr:PicProc.asm -i :::ControlMgr:  -o :::ControlMgr:
:::ControlMgr:ControlMgr.asm.obj	Ä :::ControlMgr:ControlMgr.asm   :::ControlMgr:Equates.asm
	asmiigs :::ControlMgr:ControlMgr.asm -unsafe -wi -i :::ControlMgr:  -o :::ControlMgr:
:::ControlMgr:DefProcs.asm.obj Ä :::ControlMgr:DefProcs.asm :::ControlMgr:SuperEquates.asm :::ControlMgr:Equates.asm
	Asmiigs :::ControlMgr:DefProcs.asm -wi -unsafe -i :::ControlMgr: -o :::ControlMgr:
:::DialogMgr:Dialog.asm.obj Ä :::Dialogmgr:Dialog.asm
	asmIIgs :::DialogMgr:Dialog.asm -i :::DialogMgr: -o :::DialogMgr:Dialog.asm.obj
:::QD:objs:Env.asm.obj Ä :::QD:Env.asm
	directory :::qd
	asmIIgs Env.asm -o :objs:Env.asm.obj -unsafe -wi
	directory ::patch:patch3	
:::mm:mm.asm.obj	Ä	:::mm:mm.asm
	directory :::mm
	asmiigs  mm.asm -d RAMVersion=0
	directory ::patch:patch3
:::Desk:NDACalls.asm.obj	Ä	:::Desk:NDACalls.asm
	asmiigs :::Desk:NDACalls.asm -unsafe -print nowarn -i :::Desk: -o :::Desk:
:::Desk:CDAMenu.asm.obj	Ä	:::Desk:CDAMenu.asm
	Asmiigs :::Desk:CDAMenu.asm -unsafe -print nowarn -i :::Desk: -o :::Desk:
:::QD:QDAlone:strip.asm.obj	Ä	:::QD:QDAlone:strip.asm
	asmiigs :::QD:QDAlone:strip.asm -i :::QD:QDAlone: -o :::QD:QDAlone:
:::events:em.asm.obj		Ä	:::events:em.asm :::events:EM.KBDStuff
	directory :::events
	asmiigs em.asm    -d MIDI=0
	directory ::patch:patch3
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Patch/Patch3/sane.pch b/IIGS.601.SRC/GSToolbox/Patch/Patch3/sane.pch
new file mode 100644
index 0000000..a3c2399
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Patch/Patch3/sane.pch
@@ -0,0 +1 @@
+****************************************************************
*
* Patch to SANE for Version 3.0 of ROM
*
* Copyright (C) 1993 Apple Computer, Inc. All Rights Reserved.
*
*
* System Disk 6.0.1
*
*  6-May-93 JCM - Version $0301 for 6.0.1 final. Added the Elems patch.
*
****************************************************************

SaneVersionNum	equ $0301

ToStrip	equ $E10184

	EXPORT Sane2CallTable
Sane2CallTable	PROC

	import SaneBootInit
	import SaneVersion
	import ElemsPatch

TheStart
	DC.L (TheEnd-TheStart)/4
	DC.L SaneBootInit-1
	DC.L 0	; SaneStartup-1'
	DC.L 0	; SaneShutdown-1'
	DC.L SaneVersion-1
	DC.L 0	; SaneReset-1'
	DC.L 0	; SaneStatus-1'
	DC.L 0	; SaneNotImp-1'
	DC.L 0	; SaneNotImp-1'

	DC.L 0	; Eight16-1'
	DC.L 0	; DecStr-1'
	DC.L ElemsPatch-1	; Elems816-1

TheEnd

	ENDP

****************************************************************
*
* ElemsPatch
*
* Change History
*
* 6-May-93 JCM - New for System Disk 6.0.1
*
* Corrects a problem in FXPWRI where <Src_Class was being checked to
* see what the integer exponent was classified as without actually having
* it classified. This fixes the problem with lockups in the AWGS spreadsheet.
*
****************************************************************

ElemsPatch	PROC

Elems_Code03	equ $FC375B	;Elem816 entry point in ROM 03 SANE

OrigD	equ 1
RTL1	equ OrigD+2
RTL2	equ RTL1+3
OpWord	equ RTL2+3
DstArg	equ opword+2
SrcArg	equ DstArg+4

SourceClass	equ $6A	;on SANE DP

	phd
	
	tcd	;swap in SANE's DP
	
	lda OpWord,s	;get opword
	and #$1F	;just get the operation
	cmp #$10	;is it FXPWRI?
	bne @doneElemPatch	; aparently not

* Assume that the integer exponent is normalized.

	ldy #0	;signal normalized

	lda SrcArg,s	;get the integer exponent so we can classify it
	bne @saveClass	; it's already classified as normalized	

	dey	;signal it's zero ($FF)

@saveClass	sty <SourceClass	;we overwrite Src_Sign, but it doesn't matter

@doneElemPatch	tdc	;let SANE know where its DP is

	pld

	jmp >Elems_Code03	;let SANE do all of the dirty work

	ENDP

****************************************************************
*
* SaneVersion
*
****************************************************************

SaneVersion	PROC

RTL1	equ 1
RTL2	equ RTL1+3
Result	equ RTL2+3

	lda #SaneVersionNum	; get SANE version #
	sta Result,s	; pass to caller

***   v v v   fall into SaneBootInit     v v v

****************************************************************
*
* SaneBootInit
*
****************************************************************
	entry SaneBootInit
SaneBootInit	lda #0	;no error
	clc
	rtl

	ENDP

	END

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Patch/Patch3/ts3.makeout b/IIGS.601.SRC/GSToolbox/Patch/Patch3/ts3.makeout
new file mode 100644
index 0000000..069e3e5
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Patch/Patch3/ts3.makeout
@@ -0,0 +1 @@
+Set Echo 1
asmiigs Locator.Pch -o :obj:
asmiigs QD.Pch -o :obj:   -unsafe -wi
asmiigs Cursor.Pch -o :obj:Cursor.Pch.Obj   -unsafe -wi  
directory :::qd
asmIIgs Env.asm -o :objs:Env.asm.obj -unsafe -wi
directory ::patch:patch3	
asmiigs install.asm  -o :obj:
asmiigs :::WindMgr:WindMgr.asm -i :::WindMgr:  -o :::WindMgr:
asmiigs :::WindMgr:NewCalls.asm -i :::WindMgr:  -o :::WindMgr:
asmiigs WindMgr.Pch -o :obj:
asmiigs ControlMgr.Pch -o :obj:
asmiigs :::ControlMgr:ControlMgr.asm -unsafe -wi -i :::ControlMgr:  -o :::ControlMgr:
asmiigs :::ControlMgr:PicProc.asm -i :::ControlMgr:  -o :::ControlMgr:
asmiigs :::ControlMgr:StatTextProc.asm -i :::ControlMgr:  -o :::ControlMgr:
Asmiigs :::ControlMgr:DefProcs.asm -wi -unsafe -i :::ControlMgr: -o :::ControlMgr:
asmiigs :::MenuMgr:MenuMgr.asm  -i :::MenuMgr: -o :::MenuMgr:
asmiigs :::MenuMgr:PopUpProc.asm  -i :::MenuMgr: -o :::MenuMgr:
asmiigs MenuMgr.Pch -o :obj:
asmiigs DialogMgr.Pch -o :obj:
asmIIgs :::DialogMgr:Dialog.asm -i :::DialogMgr: -o :::DialogMgr:Dialog.asm.obj
asmiigs Desk.Pch -o :obj:   -unsafe -wi
asmiigs :::Desk:NDACalls.asm -unsafe -print nowarn -i :::Desk: -o :::Desk:
Asmiigs :::Desk:CDAMenu.asm -unsafe -print nowarn -i :::Desk: -o :::Desk:
asmiigs :::QD:QDAlone:strip.asm -i :::QD:QDAlone: -o :::QD:QDAlone:
asmiigs Sound.aii -o :obj:   
asmiigs :::Sound:StartSound.aii -o :::Sound:obj:   
asmiigs :::Sound:Fsynth_irq.aii -o :::Sound:obj:   
asmiigs :::Sound:ServeGen.aii -o :::Sound:obj:   
asmiigs :::Sound:SetGCB.aii -o :::Sound:obj:   
asmiigs :::Sound:StartUp.aii -o :::Sound:obj:   
asmiigs :::Sound:StartPlaying.aii -o :::Sound:obj:
asmIIgs Misc.Tools.pch -o :obj:
Asmiigs	   :::misc.tools:ROMDataMgr.asm -o :::misc.tools: -d Big=1
asmIIgs Memory.pch -o :obj:
asmiigs InitCode.Pch -o :obj:   -unsafe -wi
directory :::mm
asmiigs  mm.asm -d RAMVersion=0
directory ::patch:patch3
asmiigs EventMgr.Pch -o :obj:
directory :::events
asmiigs em.asm    -d MIDI=0
directory ::patch:patch3
asmiigs IntMath.pch -o :obj:
asmiigs Text.Tools.pch -o :obj:
asmiigs SANE.pch -o :obj:
linkiigs  		¶
	-lseg:$2000 INIT	¶
		:obj:install.asm.obj ¶
		:obj:InitCode.pch.obj¶
	-lseg MAIN 					¶
		:obj:Locator.pch.obj(LOCATORCALLTABLE,TLVERSION,SAVETEXTSTATE,RESTORETEXTSTATE,TLSHUTDOWN,MESSAGECENTER) ¶
		:obj:WindMgr.pch.obj			¶
		:::WindMgr:WindMgr.asm.obj(GETWREFCON,LONGCALL) 	¶
		:::WindMgr:NewCalls.asm.obj(ALERTWINDOW,GETAUXWINDINFO,KILLAUXWINDINFO,DOMODALWINDOW,MWGETCTLPART,MWSETMENUPROC,MWSTDDRAWPROC,MWSETUPEDITMENU,FINDCURSORCTL,RESIZEINFOBAR,HANDLEDISKINSERT,FLUSHKEYEVENTS,DOINITCURSOR,UPDATEWINDOW) ¶
		:obj:ControlMgr.pch.obj			¶
		:::ControlMgr:ControlMgr.asm.obj(CTLSHUTDOWN,FINDRADIOBUTTON,SETLETEXTBYID,GETLETEXTBYID,CMLOADRESOURCE,GETANDSETPREFS,LOADRESOURCE,DRAWRECT,PUSHVVERT_PEN,STATICRAM,DEREFERENCE) ¶
		:::ControlMgr:ControlMgr.asm.obj(SET_PATT,SETVERTPEN,FRACTION,PUSHRECT2,PUSHVCTL_FONT,PUSHRECORD,READMOREFLAGS,ENTER470,SET_TEXTMODE,SMEAR,COMPUTESCROLLCOLOR,SETCTLVALUEBYID,GETCTLVALUEBYID,INVALONECTLBYID,HILITECTLBYID) ¶
		:::ControlMgr:StatTextProc.asm.obj		¶
		:::ControlMgr:PicProc.asm.obj(DO_DISPOSE) 	¶
		:::ControlMgr:defprocs.asm.obj(SCROLL_PROC,REC_SIZE,SCROLL_DRAW,NULL_RET,SCROLL_HIT,SCROLL_INIT,NEWVIEW,MOVE_BAR,INVAL_RECT,CHECKFORVIS,SETUPCOLOR,UP_BOX,DOWN_BOX,LEFT_BOX,RIGHT_BOX,DRAW_ARROW2,SET_PATT,CENTER_HOR,PRINT_ICON,SCROLLSTATE,SET_PENPOS) ¶
		:obj:MenuMgr.pch.obj			¶
		:::MenuMgr:MenuMgr.asm.obj(PUSHPORTDATA,POPPORTDATA,INSERTPATHMITEMS) ¶
		:::MenuMgr:PopUpProc.asm.obj			¶
		:obj:DialogMgr.pch.obj			¶
		:::DialogMgr:Dialog.asm.obj(DIALOGSTARTUP,QUIT2,DISPOSELOCALS,ALERTICONDATAS) ¶
		:obj:QD.pch.obj				¶
		:obj:Cursor.Pch.Obj				¶
		:::QD:objs:Env.Asm.Obj(EXTENDCOLORWORD)		¶
		:obj:Desk.pch.obj				¶
		:::QD:QDAlone:strip.asm.obj			¶
		:::Desk:NDACalls.asm.obj(STARTNDACALL,DESKUTILS,ENDNDACALL,OERROUT4,OPENNDA) ¶
		:::Desk:NDACalls.asm.obj(FUTZRESIDS,AREWETOP,SENDOPEN,SENDCLOSE,CHECKNDASTUFF,CALLCDAMENU,FINDTHISWINDOW,DOCLOSESTUFF,FRONTTOAX,SENDACTION,SENDINIT) ¶
		:obj:Sound.aii.obj				¶
		:::Sound:obj:StartSound.aii.obj		¶
		:::Sound:obj:Fsynth_irq.aii.obj		¶
		:::Sound:obj:ServeGen.aii.obj			¶
		:::Sound:obj:SetGCB.aii.obj			¶
		:::Sound:obj:StartPlaying.aii.obj		¶
		:::Sound:obj:StartUp.aii.obj(SSTARTUP)		¶
		:obj:memory.Pch.Obj				¶
		:::mm:mm.asm.obj(VERIFYHANDLE,SETHANDLEID)	¶
		:obj:Misc.tools.pch.obj(MTCALLTABLE,MTVER,MTINIT,NEWSYSFAIL,COMPUTEDEFAULTFAILMSG,GETADDR,ORIGBELLVECTOR,NEWSYSBEEP,GETROMRESOURCE)  ¶
		:::misc.tools:ROMDataMgr.asm.obj(CHOOSEFONTSTUFF)	¶
		:obj:EventMgr.pch.obj			¶
		:::events:em.asm.obj(USECOOLMOUSEPOS,CREATEMOUSEMESSAGE) ¶
		:obj:IntMath.pch.obj			¶
		:obj:Text.Tools.pch.obj			¶
		:obj:SANE.pch.obj				¶
	-o TS3 -t $BC -at $0000
if {AutoDuplicate} == 1
	DuplicateIIGS -y -mac TS3 :
End
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Patch/Setup/makefile b/IIGS.601.SRC/GSToolbox/Patch/Setup/makefile
new file mode 100644
index 0000000..45b373f
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Patch/Setup/makefile
@@ -0,0 +1 @@
+### Dependancies for Tool.Setup

Tool.Setup	Ä makefile ¶
	setup.asm.obj					¶
	::Patch3:obj:Locator.pch.obj	¶
	:::tl:startstop.asm.obj			¶
	:::tl:loading.asm.obj			¶
	:::tl:tl.asm.obj				¶
	common.asm.obj					¶
	::Patch3:obj:Misc.tools.pch.obj	¶
	:::desk:CDAMenu.asm.obj			¶
	:::desk:NDACalls.asm.obj
	linkiigs 				¶
		-lseg:$3000 main	¶
			setup.asm.obj  	¶
		-lseg patches	¶
			::Patch3:obj:Locator.pch.obj(GODDAMMIT,GETMSGHANDLE,MCGETFIRSTMESSAGE,MCGETNEXTMESSAGE,ACCEPTREQUESTS,SENDREQUEST,ADDTBNOTIFYPROC,ADDTBREQUESTHANDLER,UNKNOWNDISKREQPROC) ¶
			:::tl:startstop.asm.obj			¶
			:::tl:loading.asm.obj(LOADONETOOL,LOADTOOLS,LOADTHISTOOL,TLGETMEM,MAKEIDNUM,GETSPECIALFLAG,UNLOADONETOOL,UNLOADTOOLS,DUMMYTABLE,REPORTIFMISSING)  ¶
			:::tl:tl.asm.obj(TLMEMROUTINES,DUMMYTABLE)	¶
			common.asm.obj					¶
			::Patch3:obj:Misc.tools.pch.obj(UNPACKBYTES,CONVSECONDS,SYSBEEP2,VERSIONSTRING,WAITUNTIL,STRINGTOTEXT,SHOWBOOTINFO,SCANDEVICES,TOBRAMSETUPPATCH,ALERTMESSAGE,DOSYSPREFS) ¶
			:::Desk:CDAMenu.asm.obj(DAHANDLER,DOCDAMENU,SORTCDAS,CHOOSECDA,INITSTUFF,GOTRETURN,MONKEYIN,EVNTKEYIN,UPDATECDAMENU,PRINTDALIST,WRITEDANAME,SETUPTAB,OPENDA,DEREF,DISPLAYDATA,COUT,MYCOUT,MYWRITECSTRING,MYWRITELINE) ¶
			:::Desk:CDAMenu.asm.obj(SETSCREENLOC,DEREFCDAY,PANELACTIVE,GETCDANUM,SEARCHCDALETTER)  ¶
			:::Desk:NDACalls.asm.obj(SYSTEMEVENT,CALLCDAMENU,CHECKNDASTUFF,STARTNDACALL,DESKUTILS,AREWETOP,ENDNDACALL,FINDTHISWINDOW,SENDACTION,SENDOPEN,SENDINIT,SENDCLOSE,FUTZRESIDS,FRONTTOAX) ¶
			:::Desk:NDACalls.asm.obj(SYSTEMCLICK,SYSTEMEDIT,SYSTEMTASK,CLOSENDABYWINPTR,CLOSEALLNDAS2,DIEHORRIBLY,FIXAPPLEMENU2,REMOVENDA,GETDESKACCINFO,CALLDESKACC,GETDESKGLOBAL,DOCLOSESTUFF,EXECUTERUNITEM) ¶
		-o Tool.Setup -t $B6
	if {AutoDuplicate} == 1
		DuplicateIIGS -y -mac Tool.Setup :
	End


### Dependancies for setup.asm.obj
setup.asm.obj Ä setup.asm
	asmiigs setup.asm

common.asm.obj Ä :::common:common.asm
	asmiigs :::common:common.asm -o common.asm.obj

### Dependancies for exterior tool files...
:::tl:startstop.asm.obj		Ä	:::tl:startstop.asm
	directory :::tl
	asmiigs startstop.asm
	directory ::patch:Setup
:::tl:loading.asm.obj		Ä	:::tl:loading.asm
	directory :::tl
	asmiigs loading.asm
	directory ::patch:Setup
:::tl:tl.asm.obj			Ä	:::tl:tl.asm
	directory :::tl
	asmiigs tl.asm -d RAMVersion=0
	directory ::patch:Setup
::Patch3:obj:Locator.pch.obj		Ä	::Patch3:Locator.pch
	asmiigs ::Patch3:Locator.Pch -o ::Patch3:obj:

::Patch3:obj:Misc.Tools.Pch.obj		Ä	::Patch3:Misc.Tools.pch
	asmIIgs ::Patch3:Misc.Tools.pch -o ::Patch3:obj:

:::Desk:cdamenu.asm.obj		Ä	 	:::Desk:cdamenu.asm	:::Desk:desk.equates.asm
	Asmiigs :::Desk:cdamenu.asm -o :::desk:CDAMenu.asm.obj -unsafe -print nowarn -i :::Desk

:::Desk:NDACalls.asm.obj	Ä	:::Desk:NDACalls.asm
	asmiigs :::Desk:NDACalls.asm -unsafe -print nowarn -i :::Desk: -o :::Desk:
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Patch/Setup/setup.asm b/IIGS.601.SRC/GSToolbox/Patch/Setup/setup.asm
new file mode 100644
index 0000000..dd90b27
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Patch/Setup/setup.asm
@@ -0,0 +1 @@
+****************************************************************
***			 ***
***	       Setup		 ***
***			 ***
***			 ***
***  This is the master file for loading ROM patches.	 ***
***  This small file looks at the ROM version and	 ***
***  decides which patch file to load and execute.	 ***
***			 ***			 ***
****************************************************************


****************************************************************
***			 ***
***	      Version 3.0		 ***
***			 ***
***	    March 12, 1989		 ***
***			 ***
***			 ***
*** For version 2.0	or greater of the ROM.  This is	 ***
*** different from earlier versions in that the patches	 ***
*** are in different files and this file only loads them.	 ***
***			 ***
*** 29 Feb 88	Steven Glass		 ***
***			 ***
*** Added code to get and dispose of handles so that enough	 ***
*** master handles are made early.		 ***
***			 ***
***			 ***
*** 02 Dec 88	Steven Glass		 ***
***			 ***
*** Zeroed DefaultTPT before calling SetDefaultTPT.	 ***
***			 ***
***			 ***
***			 ***
*** 06 Feb 89	Mensch		 ***
***			 ***
*** Added test for system memory size. If the memorysize	 ***
*** of the system if <512K then we use patch file A	 ***
*** else we use patch file B		 ***
***			 ***
*** 24 Feb 89	Steven Glass		 ***
***			 ***
*** The SmallMemThreshold value was 8 but the compare was	 ***
*** for strictly less than.  I changed it to 9.	 ***
***			 ***
***			 ***
*** 12 Mar 89	Steven Glass		 ***
***			 ***
*** Asked GQuit to remove from memory.  Got different ID	 ***
*** for files that I load.  Removed code that looks for	 ***
*** TS2A and TS2B.  Only TS2 is used again.  Small mem	 ***
*** smarts are in TS2.		 ***
***			 ***
*** 30 Nov 89	Harry Yee		 ***
*** 			 ***
*** Put in fix for call GetNewID. It needs to be done here	 ***
*** because the patch file is not loaded soon enough. 	 ***
*** BRC #53470. The first ID reserved is always lost (this   ***
*** only happens on Tenspeed ROMs). So what we do is just    ***
*** call GetNewID with any main ID.		 ***
***			 ***
****************************************************************
*
* BEGIN 6.0
*
* 24-Sep-90	Dave Lyons
*
* Added a PurgeAll($A000) and CompactMem after calling the
* TSx patch.
*
* 27-Mar-91	Dave Lyons
*
* Added a real error message for failure to load the TSx
* file (it was just a BRK $FF before).
*
* 17-Sep-91	Dave Lyons
*
* Rolling patches common to both TS2 and TS3 into Tool.Setup.
* Strategy:  We call SetTSPtr on commonly-patched tool sets,
* and then we call TSx, which is guaranteed to call SetTSPtr
* again on all the tool sets we patched.  The FPTs contained
* in Tool.Setup are only needed temporarily.  When we're done,
* our main segment goes away (it loads in high memory).
*
* 27-Jan-92	Dave Lyons
*
* Added patch to $E10094 vector for both ROM 1 and ROM 3.
* The patch sets the bank register to $00 around the call,
* because we never documented that you had to do that, and
* 3rd-party software is trashing memory when the firmware
* winds up storing to RAM instead of softswitches. -- The
* patch code is in Patch3:Misc.tools.pch.
*
****************************************************************
*
* BEGIN 6.0.1
*
* 20-Aug-92	Dave Lyons
*
* Added entries for AlertMessage and DoSysPrefs.
*
****************************************************************

****************************************************************
***			 ***
***			 ***
***            Copyright (C) Apple Computer, Inc.	 ***
***            1985-1991		 ***
***            All Rights Reserved		 ***
***			 ***
***			 ***
****************************************************************

	eject

; This ROM patch file is an INIT file.	An init file is a file
; that GS/OS loads and runs before it runs any applications.
; This particular file is called Tool.Setup.  GS/OS loads and
; runs this file before any other init files.  If GS/OS cannot
; find this init file on the disk, it will not complete the
; boot process.


	include 'all.macros'
	include ':::sys.equs.asm'
	include ':::desk:Desk.Equates.asm'

PendingSysBeep2	equ $E1167E

Setup	PROC EXPORT
	import AddTBNotifyProc
	import AddTBRequestHandler
	import DoCommonPatches

;----------------------------------------------------
;
; Before anything else call this routine of Fern's
; to try and reinitialize certain Apple	Desk Top Bus
; devices since they don't seem to power up correctly.
;
;----------------------------------------------------

*** 27-Jan-92 DAL -- force Bank to 0
	phb
	pea 0
	plb
	plb
*** end 27-Jan-92
	sep #$30
	longa off
	longi off
;;;	lda >StateReg
	lda StateReg	;abs addr, 27-Jan-92 DAL
	pha
	lda #$0C
;;;	sta >StateReg
	sta StateReg	;abs addr, 27-Jan-92 DAL
	sec
	jsl $E10094	; Fern's vector
	pla
;;;	sta >StateReg
	sta StateReg	;abs addr, 27-Jan-92 DAL
	rep #$30
	longa on
	longi on
;;;	plb	;27-Jan-92 DAL -- restore bank, but optimize out
;;;
;;;	phb	; save data bank register
	phk
	plb

;-----------------------------------------------------
;
; Look at the version number of QuickDraw to decide
; what ROM this is.	 Based on this value load and
; execute the appropriate file.
;
;----------------------------------------------------

	pha
	_QDVersion
	pla
	and #$7F00

	cmp #$0100	; is this rom1?
	beq ItsOne

;
; Fix for GetNewID which always loses the first ID reserved, thus making it 
; possible for two programs to get the same ID. BRC #53470.
;
	pha	; space for result
	pea $5000	; any type is fine
	_GetNewID
	pla
	
	pha
	_TLVersion
	pla
	and #$7F00

	cmp #$0400	; if >= ROM 4 then don't patch.
	bcc ItsOne
	brl SkipPatch

ItsOne	xba	; take this value and make
	clc	; it into an ascci char
	adc #'0'
	sep #$30	; only put one byte	into patch
	sta LastDigit	; put char at end of path name
	sta ErrorMsgDigit
	rep #$30	; back to 16 bit mode


;-----------------------------------------------------------
;
; Get 200 handles now so that the launcher and most other
; apps will not run out.  
;
; This code was added on 29 Feb 88 to solve problem of 
; the launcher getting out of memory error when there was
; still memory available.  The memory was all special and
; no new handles could be made.
;
;
;----------------------------------------------------
SpecialIDForHandles	equ $4F01

	ldy #200
@1	phy
	pha	; space for handle
	pha
	PushLong #0	; size 0
	PushWord #SpecialIDForHandles
	PushWord #0
	pha
	pha
	_NewHandle
	plx
	plx
	bcc @dontDie
	brl Die
@dontDie	ply
	dey
	bpl @1

	PushWord #SpecialIDForHandles
	_DisposeAll

	jsr DoCommonPatches	;17-Sep-91 DAL

	pha	; get My userID
	PushWord #$A000
	_GetNewID
	pla
	sta patchID

	phx	; space for zp segment size
	phx	; space for zp segment starting address
	phx	; space for starting address
	phx
	phx	; space for userid
	pha	; Push the Tools userID
	PushLong #PatchName
	PushWord #$ffff	; Not in special memory
	_InitialLoad
	bcs Die

	ply	; don't need user id
	plx	; need starting addr in x,a
	pla	; (x has low, a has	high)
	ply	; don't need zp adr
	ply	; don't need zp seg size.

	stx SelfModCall+1
	sep #$20
	sta SelfModCall+3
	rep #$20

SelfModCall	jsl $777777

	pea $A000
	_PurgeAll
	_CompactMem

;-------------------------------------------------
;
; Call SetDefaultTPT to make the current TPT
; the default one.
;
; Note:  This may return an error but that's okay
; since stack is not hurt.
;
; Zero the DefaultTPT since this is the first time 
; it is referenced.
;
;----------------------------------------------------
	lda #0
	sta >DefaultTPTPtr
	sta >DefaultTPTPtr+2
	_SetDefaultTPT

SkipPatch
	jsl AddTBNotifyProc
	jsl AddTBRequestHandler

	plb	; restore dbr

;
; Now unload this segment of code be sure to do a jump instead
; of a jsl this way we don't have to worry about whether this code
; disappears...
;
	pha	; DAL 18-Sep-90
	_MMStartUp	; DAL 18-Sep-90
	plx	; DAL 18-Sep-90

	longa off
	sep #$20
	pla
	ply	; get the return address from the stack

	phx

	pea $0001	; and our file num...
	pea $0001	; even our segment number...
	phy
	pha	; put the return address back...
	longa On
	rep #$20
	ldx #$0C11	; and make the UnloadsegNumCall
	jml >$E10000	; and call the tool locator...


Die	pha
	pushlong #FailureMessage
	_SysFailMgr
	brk $FF

FailureMessage	dc.b FailMsgEnd-FailureMessage
	dc.b 'Could not load setup file: TS*',13
	dc.b 'Please use the Installer to set up your',13
	dc.b 'boot disk correctly for this GS',13,13
	dc.b 'Error='
FailMsgEnd
ErrorMsgDigit	equ FailureMessage+30

PatchID	ds.W 1
PatchName	str '*/System/System.Setup/TS*'
LastDigit	equ *-1
MemLevel	equ LastDigit+1

	ENDP


****************************************************************
*
* DoCommonPatches -- install patches common to ROM 1 and ROM 3
*
****************************************************************
DoCommonPatches	proc
	import LocatorCallTable,MTCallTable,DeskCallTable
	import ToBramSetupPatch,oldToBramSetupCall   ;from Misc Tools

*** added 27-Jan-92 DAL
	php
	sei
	lda >$e10094+1
	sta >oldToBramSetupCall+1
	lda >$e10094+2
	sta >oldToBramSetupCall+2
	lda #ToBramSetupPatch>>8
	sta >$e10094+2
	lda #ToBramSetupPatch
	sta >$e10094+1
	plp
*** end 27-Jan-92

	pea $0001	;special flag to patch TL on ROM 3
	pea $0001	;tool set = Tool Locator
	pushlong #LocatorCallTable
	_SetTSPtr

	pea $0000	;system tool
	pea $0003	;tool set = misc tools
	pushlong #MTCallTable
	_SetTSPtr

	pea $0001	;special flag to patch DM on ROM 3
	pea $0005	;tool set = Desk Manager
	pushlong #DeskCallTable
	_SetTSPtr

	rts

	EndP

****************************************************************
*
* Tool Locator call table -- patches common to ROM 1 and ROM 3
*
****************************************************************
LocatorCallTable	proc EXPORT

	import AcceptRequests	;17-Sep-90 DAL
	import SendRequest		;17-Sep-90 DAL
	import GetMsgHandle		;25-Sep-90 DAL
	import StartUpTools		;17-Nov-90 DAL
	import ShutDownTools	;17-Nov-90 DAL
	import LoadOneTool		;17-Nov-90 DAL
	import LoadTools		;17-Nov-90 DAL
	import UnloadOneTool	;25-Nov-90 DAL

TheBeginning
	dc.L (TheEnd-TheBeginning)/4	; call count + 1

	dc.L TLBootInit-1		; TLBootInit (0101)
	dc.L 0		; TLStartUp  (0201)
	dc.L 0		; TLShutDwon (0301)
	dc.L 0		; TLVersion  (0401)
	dc.L 0		; TLReset    (0501)
	dc.L 0		; TLStatus   (0601)
	dc.L 0		; NotImp     (0701)
	dc.L 0		; NotImp     (0801)
	dc.L 0		; GetTSPtr   (0901)
	dc.L 0		; SetTSPtr   (0A01)
	dc.L 0		; GetFuncPtr (0B01)
	dc.L 0		; GetWAP     (0C01)
	dc.L 0		; SetWAP     (0D01)
	dc.L LoadTools-1		;                   0e01
	dc.L LoadOneTool-1		;                   0f01
	dc.L UnloadOneTool-1	;                   1001
	dc.L 0 		; TLMountVolume     1101
	dc.L 0 		; TLTextMountVolume 1201
	dc.L 0	 	; SaveTextState     1301
	dc.L 0		; RestoreTextState  1401
	dc.L 0 		; MesasgeCenter     1501
	dc.L 0 		; SetDefaultTPT     1601
	dc.L 0 		; MessageByName     1701
	dc.L StartupTools-1 	; StartUpTools      1801
	dc.L ShutDownTools-1 	; ShutDownTools     1901
*** New calls for 6.0
	dc.l GetMsgHandle-1		; 1A01  17-Sep-90 DAL
	dc.l AcceptRequests-1	; 1B01  17-Sep-90 DAL
	dc.l SendRequest-1		; 1C01  17-Sep-90 DAL
TheEnd

TLBootInit	lda #0
	clc
	rtl

	EndP

****************************************************************
*
* Misc Tools call table -- patches common to ROM 1 and ROM 3
*
****************************************************************
MTCallTable	proc
	import UnPackBytes,ConvSeconds,SysBeep2,VersionString
	import WaitUntil,StringToText,ShowBootInfo,ScanDevices
	import AlertMessage,DoSysPrefs

Here 
	DC.L (TheEnd-Here)/4 ; num calls +1
	DC.L MTInit-1	; PowerUp Initialization
	DC.L 0	; application startup
	DC.L 0	; application shutdown
	DC.L 0	; version number
	DC.L 0	; Misc. Tools Reset
	DC.L 0	; MTStatus
	DC.L 0	; Reserved
	DC.L 0	; Reserved
	DC.L 0	; Write battery ram
	DC.L 0	; Read battery ram
	DC.L 0	; Write battery ram	parameter
	DC.L 0	; Read battery ram parameter
	DC.L 0	; read clock w/ hex	format
	DC.L 0	; write clock w/ hex format
	DC.L 0	; read clock w/ ascii format
	DC.L 0	; set interrupt vector
	DC.L 0	; get interrupt vector
	DC.L 0	; insert procedure in Heartbeat chain
	DC.L 0	; delete procedure from heartbeat chai
	DC.L 0	; clear heartbeat chain
	DC.L 0	; system death manager
	DC.L 0
	DC.L 0	; Read Mouse
	DC.L 0	; initialize mouse
	DC.L 0	; set mouse mode
	DC.L 0	; home mouse position to min. clamp
	DC.L 0	; clear mouse position to 0
	DC.L 0	; set both X and Y clamps
	DC.L 0	; get both X and Y clamps
	DC.L 0	; set mouse position
	DC.L 0	; service mouse interrupt
	DC.L 0	; get ID tag
	DC.L 0	; delete ID tag
	DC.L 0	; get ID tag status
	DC.L 0	; enable interrupt source
	DC.L 0	; Firmware entry points
	DC.L 0	; get tick counter contents
	DC.L 0	; Pack bytes
	DC.L UnPackBytes-1	; UnPack dem dere bytes
	DC.L 0	; This routine munges strings
	DC.L 0	; returns IRQ enble	status
	DC.L 0	; set absolute device clamps
	DC.L 0	; get absolute device clamps
	DC.L 0	; 2C03 system beep

	dc.L 0	; 2D03 NewBasicInit	; added 07 sep 88

	DC.L 0	; 2E03 AddToQueue	; added 10 sep 88
	DC.L 0	; 2F03 RemoveFromQueue ; added 10 sep 88
	dc.L 0	; 3003 SetInterruptState added 24 Nov 88
	dc.L 0	; 3103 GetInterruptState added 24 Nov 88
	dc.L 0	; 3203 GetIntStateRecSize added 24 Nov 88

	dc.L 0	; 3303 ReadMouse2 Added 13 Jan 89
	dc.L 0	; 3403 GetCodeResConverter added 13 Jan 89 {$3403}
	dc.L 0	; 3503 GetROMResource added 24 Jan 89 ($3503}
	dc.L 0	; 3603 ReleaseROMResource added 24 Jan 89 {$3603}
*** 5.0.3
	dc.L ConvSeconds-1	; 3703 added 3/14/90
*** 6.0
	dc.L SysBeep2-1	; 3808 added 17-Sep-90 DAL
	dc.L VersionString-1 ;3903 added 5-Dec-90 DAL
	dc.l WaitUntil-1	; 3A03 added 6-Jan-91 DAL
	dc.l StringToText-1	; 3B03 added 3-Mar-91 DAL
	dc.l ShowBootInfo-1	; 3C03 added 29-Mar-91 DAL
	dc.l ScanDevices-1	; 3D03 added 29-Mar-91 DAL
*** 6.0.1
	dc.l AlertMessage-1	; 3E03 added 20-Aug-92 DAL
	dc.l DoSysPrefs-1	; 3F03 added 20-Aug-92 DAL
TheEnd

MTInit	lda #0
	sta >PendingSysBeep2
	clc
	rtl

	EndP

****************************************************************
*
* Desk Manager call table -- patches common to ROM 1 and ROM 3
*
****************************************************************
DeskCallTable	proc
	import ChooseCDA
	import SystemClick,SystemEdit,SystemTask
	import SystemEvent,CloseNDAbyWinPtr,CloseAllNDAs2
	import FixAppleMenu2,RemoveNDA,GetDeskAccInfo
	import CallDeskAcc,GetDeskGlobal
	import MonKeyin

TheBeginning
	DC.L (TheEnd-TheBeginning)/4 ; num calls + 1
	DC.L DABootInit-1	; 	; 0105
	DC.L 0	;DAStartup-1	; 0205 patched 4-Mar-91 DAL
	DC.L 0	;DAShutdown-1	; 0305 patched 4-Mar-91 DAL
	DC.L 0	;DAVersion-1	; 	  0405
	DC.L 0	; DAReset-1	; 0505
	DC.L 0	; DAStatus-1	; 0605
	DC.L 0	; oEndCall0-1	; 0705     reserved
	DC.L 0	; oEndCall0-1	; 0805     reserved
	DC.L 0	; SaveScreen-1	; 0905
	DC.L 0	; RestScreen-1	; 0A05
	DC.L 0	; SaveAll-1	; 0B05
	DC.L 0	; RestAll-1	; 0C05
	DC.L 0	; oEndCall0-1	; 0D05
	DC.L 0	;InstallNDA-1	; 0E05
	DC.L 0	; instcda-1	; 0F05
	DC.L 0	; oEndCall0-1	; 1005
	DC.L ChooseCDA-1		; 1105
	DC.L 0	; oEndCall0-1	; 1205
	DC.L 0	; setdastrptr-1	; 1305
	DC.L 0	; getdastrptr-1	; 1405
	DC.L 0	;OpenNDAentry-1	; 1505
	DC.L 0	;CloseNDA-1	; 1605
	DC.L SystemClick-1		; 1705
	DC.L SystemEdit-1		; 1805
	DC.L SystemTask-1		; 1905
	DC.L SystemEvent-1		; 1A05
	DC.L 0	;GetNumNDAs-1	; 1B05
	DC.L CloseNDAbyWinPtr-1 	; 1C05
	DC.L CloseAllNDAs2-1	; 1D05
	DC.L FixAppleMenu2-1	; 1E05
	DC.L 0	;AddToRunQ-1	; 1F05
	DC.L 0	;RemoveFromRunQ-1 	; 2005
	DC.L 0	; RemoveCDA-1	; 2105
	DC.L RemoveNDA-1		; 2205
	dc.L GetDeskAccInfo-1	; 2305  19-Sep-90 DAL
	dc.L CallDeskAcc-1		; 2405  19-Sep-90 DAL
	dc.l GetDeskGlobal-1	; 2505  19-Feb-91 DAL
TheEnd

DABootInit	lda #0
	sta >RealDeskStatus

	lda #monkeyin
	sta >KeyInput

	clc
	rtl

	EndP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Patch/build b/IIGS.601.SRC/GSToolbox/Patch/build
new file mode 100644
index 0000000..918a342
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Patch/build
@@ -0,0 +1 @@
+#
# Build
#
# Builds the files Tool.Setup, TS1 and TS using the BuildProgram
# script that comes with MPW.
#
# Any options passed to build are passed on to build program.
#
# 14 Jul 88		Steven Glass
#
Directory setup
BuildProgram {parameters} Tool.Setup
Directory ::
#Directory patch1
#BuildProgram {parameters} TS1
#Directory ::
Directory patch2
BuildProgram {parameters} TS2
Directory ::
#
Directory patch3
BuildProgram {parameters} TS3
Directory ::
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrintMgr/PrintMgr.equ b/IIGS.601.SRC/GSToolbox/PrintMgr/PrintMgr.equ
new file mode 100644
index 0000000..27cd957
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrintMgr/PrintMgr.equ
@@ -0,0 +1 @@
+;----------------------------------------------------------------------------------
;
; Print Manager Equates
; (from procedure Tool)
;
; Copyright Apple Computer, Inc
; All Rights Reserved
;
;----------------------------------------------------------------------------------
;
; 5-Mar-91 DAL
;   Changed version to $8301.
;   Changed tab stop to 20.
;
;  5-Feb-92 DAL
;   Changed version to $0301.
;
; 18-Nov-92 DAL
;   Changed version to $8302.
;
; 1-Apr-93 SS
;   Changed version to $0302
;
;----------------------------------------------------------------------------------

VersionNb	equ $0302	;1-Apr-93 SS
Toolnum	equ 19

MissingDriver	equ $1301
PortNotOn	equ $1302
*** 18-Nov-92 DAL -- fixed BadParam to be $1309 (as documented); was $1308
BadParam	equ $1309	; for PMUnloadDriver and PMLoadDriver
CallNotSupported	equ $130A


True	equ $FFFF
False	equ $0000
True1	equ $8000

WriteProtected	equ $2B
InvalidRefNum	equ $43
FileNotFound	equ $46
VolumeNotFound	equ $45
FileLocked	equ $4E	; Access: file not write-enabled
US	equ 0
FR	equ 1
Pays	equ US

;------------------------------------------------------
;
; Zero page equates used by the LaserWriter and 
; ImageWriter drivers.
;
;------------------------------------------------------
Temp1	equ 0	; Temp values to dereference easily
Temp2	equ temp1+4
pAdrTable	equ temp2+4	; printer name list for choose printer
hPicList	equ temp2+4	; list used for pics in IW printing
pPicList	equ hPicList+4
Ourport	equ pPicList+4
hOurport	equ OurPort+2
hNewPic	equ hOurport+4
ourStatus	equ hNewPic+4
hStatus	equ ourStatus+2
hport	equ hStatus+4
UserId	equ hPort+4
hscreenport	equ userId+2
pscreenport	equ hscreenport+4
hprbuf	equ pscreenport+4
pprbuf	equ hprbuf+4

;------------------------------------------------------
;
; Zero page equates used by the Print Manager 
; Zero page space used for making the Print Manager rommable
; March 04, 1988	Harry
;
;------------------------------------------------------

PZ_PrStatus	equ $C0
PZ_pdevBuf	equ PZ_PrStatus+4
PZ_pPrPort	equ PZ_pdevBuf+4
PZ_hPrint	equ PZ_pPrPort+4

portsize	equ 172

; Printer Driver calls

oPrintDefault	equ 0*4
oPrValidate	equ 1*4
oPrStlDialog	equ 2*4
oPrJobDialog	equ 3*4
oPrDrvrVer	equ 4*4 
oPrOpenDoc	equ 5*4
oPrCloseDoc	equ 6*4
oPrOpenPage	equ 7*4
oPrClosePage	equ 8*4
oPrPicfile	equ 9*4
oPrControl	equ 10*4
oPrError	equ 11*4
oPrSetError	equ 12*4
oGetDeviceName	equ 13*4
oPrPixelMap	equ 14*4
oPrGetPrinterSpecs	equ 15*4
oPrGetPgOrientation	equ 16*4

; Port Driver calls

oDevPrChanged	equ 0*4
oDevStartup	equ 1*4
oDevShutdown	equ 2*4
oDevOpen	equ 3*4
oDevRead	equ 4*4
oDevWrite	equ 5*4
oDevClose	equ 6*4
oDevStatus	equ 7*4
oDevAsyncRead	equ 8*4
oDevWriteBack	equ 9*4
oPrPortVer	equ 10*4 
oDevIsItSafe	equ 11*4
oNextNewPortCall	equ 12*4	; NOTE: this is a place holder name only, use this
		; constant for the next new port driver call

lenentry	equ 20
Init	equ $01
RegisterName	equ $0E
RemoveName	equ $0F
LookUpName	equ $10
ConfirmName	equ $11
pTemp	equ $0

;------------------------------------------
;
; Equates from procedure ReadDirData
;
;------------------------------------------
ListEntrySize	equ 38	; 33 + 4 + 1

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrintMgr/dialogdata.asm b/IIGS.601.SRC/GSToolbox/PrintMgr/dialogdata.asm
new file mode 100644
index 0000000..b1e74aa
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrintMgr/dialogdata.asm
@@ -0,0 +1 @@
+****************************************************************
*
* Print Manager - dialog data
*
* Copyright Apple Computer, Inc. 1986-91
* All rights reserved.
*
* This data files contains the text strings, dialog box sizes,
* and positions of strings used in PrChooser and InsertDisk.
*
****************************************************************



	blanks off
	string asis

	include 'm16.util'
	include 'e16.dialog'

	include 'PrintMgr.equ'



	EXPORT DIALOGDATA
DIALOGDATA	PROC



	EXPORT OKButtonStr
OKButtonStr	str 'OK'

	EXPORT CancelButtonStr
CancelButtonStr	str 'Cancel'

	EXPORT InsertDiskStr
InsertDiskStr	str 'Insert the disk'



*
*SetupWriteErrMesg: AlertWindow definiton string:
*
	export SetupWriteErrMesg
SetupWriteErrMesg	dc.b '4'			;box size spec
	dc.b '2'			;icon spec "stop"
	dc.b '/'			;separator
	dc.b 'Changes made to the printer setup '
	dc.b 'file could not be saved to disk.  Current '
	dc.b 'printer and port driver settings '
	dc.b 'will be lost.'
	dc.b '/'			;separator
	dc.b '^#0'			;btn dflt "OK" 0
	dc.b 0			;terminator



*
*CantFindDrvrMesg: AlertWindow definition string:
*
	export CantFindDrvrMesg
CantFindDrvrMesg	dc.b '4'			;box size spec
	dc.b '2'			;icon spec "stop"
	dc.b '/'			;separator
	dc.b 'Please make sure a printer and a port '
	dc.b 'driver is selected in the Control Panel '
	dc.b 'desk accessory.'
	dc.b '/'			;separator
	dc.b '^#0'			;btn dflt "OK" 0
	dc.b 0			;terminator



*
*UseCtrlPanelMesg: AlertWindow definition string:
*
	export UseCtrlPanelMesg
UseCtrlPanelMesg	dc.b '3'			;box size spec
	dc.b '3'			;icon spec "note"
	dc.b '/'			;separator
	dc.b 'Please use the Control Panel desk '
	dc.b 'accessory to select a printer '
	dc.b 'and a port driver.'
	dc.b '/'			;separator
	dc.b '^#0'			;btn dflt "OK" 0
	dc.b 0			;terminator



	ENDP
	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrintMgr/makefile b/IIGS.601.SRC/GSToolbox/PrintMgr/makefile
new file mode 100644
index 0000000..d3ed7dd
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrintMgr/makefile
@@ -0,0 +1 @@
+### Dependencies for Print Manager
others	=	Special.macros ¶
			PrintMgr.equ

tool019					Ä		printmgr.asm.obj  dialogdata.asm.obj   
	linkiigs    printmgr.asm.obj dialogdata.asm.obj  ¶
				-t TOL  -o Tool019
	if {AutoDuplicate} == 1
		DuplicateIIGS -y -mac Tool019 :
	End

	
### Dependencies for components

PrintMgr.asm.obj 		Ä 		printmgr.asm  {others}
	AsmIIGS printmgr.asm
	
DialogData.asm.obj		Ä		dialogdata.asm  {others}
	AsmIIGS dialogdata.asm	
	
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrintMgr/prchooser.asm b/IIGS.601.SRC/GSToolbox/PrintMgr/prchooser.asm
new file mode 100644
index 0000000..1e37d0d
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrintMgr/prchooser.asm
@@ -0,0 +1 @@
+This source file is no longer being used.


	blanks off
	string asis

	include 'all.macros'
	include 'special.macros'
	include 'PrintMgr.equ'
	include 'e16.dialog'

;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

	IMPORT AppendString
	IMPORT AppleTalkOn
	IMPORT CancelButtonStr
	IMPORT CopyString
	IMPORT CurrentDriver
	IMPORT CurrentNetName
	IMPORT CurrentPort
	IMPORT CurrentPrinter
	IMPORT CurrentPrinter1
	IMPORT CurrentPrinter2
	IMPORT CurrentUser
	IMPORT CurrentZoneName
	IMPORT DefaultZone
	IMPORT DidPortChange
	IMPORT DidPrinterChange
	IMPORT EqualString
	IMPORT InitCursor
	IMPORT NoAppleTalk
	IMPORT NoZoneNameStr
	IMPORT NumPorts
	IMPORT NumPrinters
	IMPORT OKButtonStr
	IMPORT PortList
	IMPORT PostAlert
	IMPORT PrPortStr
	IMPORT PrTypeStr
	IMPORT PrinterHandle
	IMPORT PrinterList
	IMPORT PrNameStr
	IMPORT RadioString1
	IMPORT RadioString2
	IMPORT ReadSetupFile
	IMPORT SavedZoneName
	IMPORT SetCurrentDriver
	IMPORT SetCurrentPrinter
	IMPORT SomeThingFound
	IMPORT TempNetName
	IMPORT TempPrType
	IMPORT TempZone
	IMPORT TempZone2
	IMPORT TitleStr
	IMPORT TmpPrNameStr
	IMPORT UnloadCurrentPort
	IMPORT UnloadCurrentPrinter
	IMPORT UserNameStr
	IMPORT WaitCursor
	IMPORT WhereInModal
	IMPORT WriteSetupFile
	IMPORT ZoneButtonStr
	IMPORT ZoneHandle
	IMPORT ZoneNameStr

;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

	ENTRY ATAdrList
	ENTRY ATChooserFilter
	ENTRY ATChooserLeft
	ENTRY ATChooserRight
	ENTRY ATEntrySize
	ENTRY ATItem1
	ENTRY ATItem2
	ENTRY ATItem3
	ENTRY ATListCount
	ENTRY ATListRec
	ENTRY ATTemplate
	ENTRY AdrList1
	ENTRY AdrList2
	ENTRY CheckPort
	ENTRY ChooserFilter
	ENTRY ChooserLeft
	ENTRY ChooserRight
	ENTRY DerefAndLock
	ENTRY DiffZone
	ENTRY DisposeOfHandles
	ENTRY EntrySize1
	ENTRY EntrySize2
	ENTRY GetNewPrNames
	ENTRY GetNewPrString
	ENTRY GetPrinterNames
	ENTRY GetSelFromList
	ENTRY InitHandles
	ENTRY InitThisList
	ENTRY Item3
	ENTRY Item7
	ENTRY ListControl1
	ENTRY ListControl2
	ENTRY ListCount1
	ENTRY ListCount2
	ENTRY ListRec1
	ENTRY ListRec2
	ENTRY ListRefCon1
	ENTRY ListRefCon2
	ENTRY MyDraw
	ENTRY OrigPort
	ENTRY PutUpZoneModal
	ENTRY ScrollControl1
	ENTRY ScrollControl2
	ENTRY ScrollRefCon1
	ENTRY ScrollRefCon2
	ENTRY SetUpDCLists
	ENTRY SetupATLists
	ENTRY SetupScreen
	ENTRY ShowNewList
	ENTRY Template
	ENTRY VDialogPtr
	ENTRY item1
	ENTRY item10
	ENTRY item2
	ENTRY item4
	ENTRY item5
	ENTRY item6
	ENTRY item8
	ENTRY item9


****************************************************************
*
* PrChooser
*
*     ResultCode
*
* Returns True if user picks
*
****************************************************************
	EXPORT PrChooser
PrChooser	PROC

	definestack
OrigCursor	long
OrigB	byte
OrigD	word
RTL1	block 3
RTL2	block 3
Result	word

Handle	equ Temp1
Pointer	equ Temp2

	phd
	tcd
	phb

	phk
	plb
	
	pha
	pha
	_GetCursorAdr	; save original cursor on the stack

;		; must have at least one port and one
;		; printer driver.
	lda >NumPrinters	; if no print drivers, alert and leave
	beq DoAlert
	lda >NumPorts	; are there any port drivers
	bne DriversOK
	lda >NoAppleTalk	; if no port drivers then is AppleTalk
	beq DoAlert	; present, if not, alert and leave.
	inc AppleTalkOn	; make the AppleTalk screen appear if no
	bra DriversOK	; other port drivers found other than AppleTalk

DoAlert	lda #0
	sta result,s	; return with nothing changed
	
	PushWord #2	; put alert message saying you must have at
	jsl PostAlert	; least one printer and one port driver
	pla	; in the drivers folder.
	lda #MissingDriver
	sec
	brl TimeToGo

DriversOK		;
	pha
	pha
	_GetPort

	pla
	sta OrigPort
	pla
	sta OrigPort+2

	jsr WaitCursor

;----------------------------------------------------------
;
; Look at current quickdraw mode and decide where to put
; dialog.
;
	jsr InitHandles	; zero out space reserved for handles

	pha
	_GetMasterSCB
	pla
	and #$0080
	beq ModeIs320

	lda #160+(320-DialogWidth)/2
	sta ChooserLeft
	lda #160+(320-ATDialogWidth)/2
	sta ATChooserLeft
	lda #DialogWidth+160+(320-DialogWidth)/2
	sta ChooserRight
	lda #ATDialogWidth+160+(320-ATDialogWidth)/2
	sta ATChooserRight
	bra ItsSet

ModeIs320	lda #(320-DialogWidth)/2
	sta ChooserLeft
	lda #(320-ATDialogWidth)/2
	sta ATChooserLeft
	lda #DialogWidth+(320-DialogWidth)/2
	sta ChooserRight
	lda #ATDialogWidth+(320-ATDialogWidth)/2
	sta ATChooserRight

ItsSet		;

;----------------------------------------------------------
;
; Get new dialog
;
	pha
	pha
	PushLong #Template
	_GetNewModalDialog

	pla
	sta VDialogPtr
	pla
	sta VDialogPtr+2


	PushLong VDialogPtr	; set port to modal	dialog
	_SetPort

	jsr SetupScreen	; put up either appletalk or DC screen

	jsr SaveAndZeroRefCons
	jsr InitCursor
	
	lda #0
	sta >CheckPort
	sta >DiffZone

LoopModal	pha
	PushLong #ChooserFilter+$80000000
	_ModalDialog	; call modal dialog
	pla	; find out what user has clicked on
	asl a
	tax
	jmp (ModalTable,x)	; execute the appropriate item

ModalTable	DC.W 0
	DC.W DoAccept
	DC.W DoCancel
	DC.W DoZones
	DC.W DoTitleStr
	DC.W DoRect1Str
	DC.W DoRect2Str
	DC.W DoATRadio
	DC.W DoDCRadio
	DC.W DoUserNameStr
	DC.W DoEditItem

DoAccept	jmp WeAccepted

DoCancel	jmp JustCancel

DoZones	jsr WaitCursor
	jsr PutUpZoneModal
	jsr InitCursor
	jmp LoopModal

DoTitleStr	jmp LoopModal

DoRect1Str	jmp LoopModal

DoRect2Str	jmp LoopModal

DoATRadio	lda AppleTalkOn
	bne LoopModal
	jsr WaitCursor

	jsr UnloadCurrentPrinter
	jsr UnloadCurrentPort
	
	stz CheckPort

	PushLong #ListRec1	; save last selected printer driver
	PushWord EntrySize1	; from direct connect screen
	PushLong #CurrentPrinter2
	jsr GetSelFromList

	PushLong #ListRec2	; save last selected printer port
	PushWord EntrySize2	; from direct connect screen
	PushLong #CurrentPort
	jsr GetSelFromList

	stz ListCount2
	pea 0
	pea 0
	PushLong #ListRec2
	_NewList

	PushWord NumPrinters ; update printer driver list to reflect
	PushWord EntrySize1	; the new settings for the appletalk
	PushLong AdrList1	; screen
	PushLong #CurrentPrinter1
	jsr InitThisList

	PushLong #0
	PushLong #ListRec1
	_DrawMember

	jsl SetupATLists
	jsr ShowNewList

	jsr InitCursor
	jmp LoopModal

DoDCRadio	lda AppleTalkOn
	bne DCRadioHit
	brl LoopModal
	
DCRadioHit	jsr WaitCursor

	jsr UnloadCurrentPrinter
	jsr UnloadCurrentPort

	stz CheckPort

	PushLong VDialogPtr
	PushWord #6
	PushLong #PrPortStr
	_SetIText

	jsr DisposeOfHandles
	jsr InitHandles

	PushWord NumPrinters ; update printer type list to reflect
	PushWord EntrySize1	; new settings for the Direct Connect
	PushLong AdrList1	; screen
	PushLong #CurrentPrinter2
	jsr InitThisList

	pea 0
	pea 0
	PushLong #ListRec1
	_DrawMember

	jsl SetUpDCLists
	jsr ShowNewList

	jsr InitCursor
	jmp LoopModal

DoUserNameStr	jmp LoopModal

DoEditItem	jmp LoopModal

WeAccepted	jsr WaitCursor

	PushLong VDialogPtr	; get user's name
	PushWord #10
	PushLong #CurrentUser
	_GetIText

	lda AppleTalkOn
	bne SkipThisCrap

	PushLong #ListRec1
	PushWord EntrySize1
	PushLong #CurrentPrinter2
	jsr GetSelFromList

	PushLong #ListRec2
	PushWord EntrySize2
	PushLong #CurrentPort
	jsr GetSelFromList

SkipThisCrap	jsl WriteSetupFile

	jsr InitCursor

	lda #True
	sta result,s
	
	bra ReturnResult

JustCancel	jsl ReadSetupFile
	
	lda #0	; no changes to the printer/port drivers
	sta result,s

ReturnResult	jsr DisposeOfHandles

	jsr SetCurrentDriver
	jsr SetCurrentPrinter

Driver	jsr DidPortChange
	bcc NoChange1
	jsr UnloadCurrentPort

NoChange1	jsr DidPrinterChange
	bcc NoChange2
	jsr UnloadCurrentPrinter

NoChange2	PushLong OrigPort
	_SetPort	; restore the graph	port

;----------------------------------------------------------
;
; Unlock the printer list and the port list.
;
	movelong PrinterList,Temp1
	ldy #4
	lda [Temp1],y
	and #$7FFF
	sta [Temp1],y

	movelong PortList,Temp1
	ldy #4
	lda [Temp1],y
	and #$7FFF
	sta [Temp1],y

	PushLong VDialogPtr
	_CloseDialog	; close the dialog

	lda #0
	clc
	
TimeToGo	_SetCursor	; restore apps. original cursor
	plb	; error occurred, Missing Driver 6/23/88
	pld
		
	rtl

SaveAndZeroRefCons		;
	pha	; Get the ref con of the list
	pha	; control and save it
	PushLong ListControl1
	_GetCtlRefCon
	pla
	sta ListRefCon1
	pla
	sta ListRefCon1+2

	lda ListControl1	; now find the handle to the
	sta handle	; scroll bar control
	lda ListControl1+2	; (its at the end of the record
	sta Handle+2	; used by the list control)

	lda [Handle]
	sta Pointer
	ldy #2
	lda [Handle],y
	sta Pointer+2

	ldy #52
	lda [Pointer],y
	sta ScrollControl1
	iny
	iny
	lda [Pointer],y
	sta ScrollControl1+2

	pha	; use this to save and zero
	pha	; ref con of the Scroll bar control
	PushLong ScrollControl1
	_GetCtlRefCon
	pla
	sta ScrollRefCon1
	pla
	sta ScrollRefCon1+2

	pha	; Get the ref con of the list
	pha	; control and save it
	PushLong ListControl2
	_GetCtlRefCon
	pla
	sta ListRefCon2
	pla
	sta ListRefCon2+2

	lda ListControl2	; now find the handle to the
	sta handle	; scroll bar control
	lda ListControl2+2	; (its at the end of the record
	sta Handle+2	; used by the list control)

	lda [Handle]
	sta Pointer
	ldy #2
	lda [Handle],y
	sta Pointer+2

	ldy #52
	lda [Pointer],y
	sta ScrollControl2
	iny
	iny
	lda [Pointer],y
	sta ScrollControl2+2

	pha	; use this to save and zero
	pha	; ref con of the Scroll bar control
	PushLong ScrollControl2
	_GetCtlRefCon
	pla
	sta ScrollRefCon2
	pla
	sta ScrollRefCon2+2

	EXPORT ZeroRefCons
ZeroRefCons		;       
	PushLong #0	; zero the ref con of the list
	PushLong ListControl1 ; control
	_SetCtlRefCon

	PushLong #0
	PushLong ScrollControl1
	_SetCtlRefCon

	PushLong #0	; zero the ref con of the list
	PushLong ListControl2 ; control
	_SetCtlRefCon

	PushLong #0
	PushLong ScrollControl2
	_SetCtlRefCon

	rts

	EXPORT RestoreRefCons
RestoreRefCons		;       
	PushLong ListRefCon1 ; zero the ref con	of the list
	PushLong ListControl1 ; control
	_SetCtlRefCon

	PushLong ScrollRefCon1
	PushLong ScrollControl1
	_SetCtlRefCon

	PushLong ListRefCon2 ; zero the ref con	of the list
	PushLong ListControl2 ; control
	_SetCtlRefCon

	PushLong ScrollRefCon2
	PushLong ScrollControl2
	_SetCtlRefCon

	rts

	EXPORT OrigPort
OrigPort	DS.B 4

	EXPORT VDialogPtr
VDialogPtr	DS.B 4

	EXPORT ATDialogPtr
ATDialogPtr	DS.B 4

	EXPORT ListControl1
ListControl1	DS.B 4
	EXPORT ListRefCon1
ListRefCon1	DS.B 4
	EXPORT ScrollControl1
ScrollControl1	DS.B 4
	EXPORT ScrollRefCon1
ScrollRefCon1	DS.B 4

	EXPORT ListControl2
ListControl2	DS.B 4
	EXPORT ListRefCon2
ListRefCon2	DS.B 4
	EXPORT ScrollControl2
ScrollControl2	DS.B 4
	EXPORT ScrollRefCon2
ScrollRefCon2	DS.B 4

	EXPORT ATListControl
ATListControl	DS.B 4
	EXPORT ATListRefCon
ATListRefCon	DS.B 4
	EXPORT ATScrollControl
ATScrollControl	DS.B 4
	EXPORT ATScrollRefCon
ATScrollRefCon	DS.B 4


	ENDP

******************************************************************
*
* SetupScreen
*
* This proc sets up	items in the chooser dialog box that are common
* to both the appletalk and direct connect screens.
*
******************************************************************
	EXPORT SetupScreen
SetupScreen	PROC

	lda AppleTalkOn	; decide which screen to put up, AT/DC
	beq SetupDCDialog
	lda >NoAppleTalk	; if appletalk, check if driver present
	beq SetupDCDialog	; if not, put up direct connect screen
	jsl SetupATLists	; setup dialog window for appletalk
	bra SetupMore
SetupDCDialog	jsl SetupDCLists	; setup dialog window for direct connect

SetupMore	pha
	pha
	PushLong PrinterList
	jsr DerefAndLock
	pla
	sta AdrList1
	pla
	sta AdrList1+2
	lda >NumPrinters
	sta ListCount1
	lda #ListEntrySize
	sta EntrySize1

	pha	; create the printer drivers list
	pha
	PushLong VDialogPtr
	PushLong #ListRec1
	_CreateList
	pla
	sta ListControl1
	pla
	sta ListControl1+2

	PushWord ListCount1	; initialize the printer drivers list
	PushWord EntrySize1
	PushLong AdrList1
	PushLong #CurrentPrinter
	jsr InitThisList

	pha	; create either the	port drivers list or
	pha	; the printer names	list depending on
	PushLong VDialogPtr	; whether appletalk	or direct connect is
	PushLong #ListRec2	; selected
	_CreateList
	pla
	sta ListControl2
	pla
	sta ListControl2+2

	PushWord ListCount2	; initialize the port drivers or printer
	PushWord EntrySize2	; names list
	PushLong AdrList2
	lda AppleTalkOn
	beq ItsDirectC
	PushLong #CurrentNetName
	bra ScreenDone

ItsDirectC	PushLong #CurrentPort

ScreenDone	jsr InitThisList

	rts

	ENDP

******************************************************************
*
* SetupATLists
*
******************************************************************
	EXPORT SetupATLists
SetupATLists	PROC

	PushWord #1	; select the AppleTalk radio
	PushLong VDialogPtr	; button
	PushWord #7
	_SetDItemValue

	PushLong VDialogPtr	; make the zone button visible
	PushWord #3
	_ShowDItem
	
	lda >NumPorts	; if no other ports other than AppleTalk then
	bne DontDimDCRadio	; dim the Direct Connect radio button
	PushWord #255	; hilite state, 255=inactive
	pha	; result space for GetControlDItem call
	pha
	PushLong VDialogPtr
	PushWord Item8
	_GetControlDItem
	_HiliteControl	; make the radio button inactive
	
DontDimDCRadio	lda #True1
	sta AppleTalkOn

	jsr SetCurrentPrinter
	jsr SetCurrentDriver

	PushLong #CurrentZoneName
	PushLong #TempZone
	jsr CopyString

	PushLong #CurrentPrinter1
	PushLong #TempPrType
	jsr CopyString

	lda #0
	pha	; result space for handle to list of
	pha	; zones
	pha	; result space for # of zones found
	_GetZoneList
	pla
	sta ATListCount
	pla
	sta ZoneHandle
	pla
	sta ZoneHandle+2

	lda ATListCount	; if no zones then deactivate the zone
	beq DeActivateZone	; button else make it active
	PushWord #00	; HY 8/3/88
	bra ActivateIt
DeActivateZone	PushWord #255
ActivateIt	pha	; space for handle to control
	pha
	PushLong VDialogPtr
	PushWord Item3	; zone button
	_GetControlDItem
	_HiliteControl

	lda ATListCount	; skip this if there were zones found
	bne ZonesFound
	
	PushLong #DefaultZone
	PushLong #TempZone
	jsr CopyString

	brl SkipZoneStuff

ZonesFound	pha
	pha
	PushLong ZoneHandle
	jsr DerefAndLock
	pla
	sta ATAdrList
	pla
	sta ATAdrList+2
	lda #ListEntrySize
	sta ATEntrySize

	PushLong #CurrentZoneName
	PushLong #DefaultZone
	jsr EqualString
	bne SkipZoneStuff
	PushLong #CurrentZoneName
	_GetMyZone
	PushLong #CurrentZoneName
	PushLong #TempZone
	jsr CopyString

SkipZoneStuff	jsr GetNewPrString	; get title string for the printer names
;		; list
	jsr GetPrinterNames

	rtl

	ENDP

******************************************************************
*
* SetUpDCLists
*
******************************************************************
	EXPORT SetUpDCLists
SetUpDCLists	PROC

	PushLong VDialogPtr	; hide the zone button from the user
	PushWord #3	; since we are in the direct connect
	_HideDItem	; dialog screen

	PushWord #1	; select the direct	connect radio
	PushLong VDialogPtr	; button
	PushWord #8
	_SetDItemValue

	lda >NoAppleTalk
	bne MoveOn
	PushWord #255
	pha
	pha
	PushLong VDialogPtr
	PushWord Item7
	_GetControlDItem
	_HiliteControl

MoveOn	pha
	pha
	PushLong PortList
	jsr DerefAndLock
	pla
	sta AdrList2
	pla
	sta AdrList2+2
	lda >NumPorts
	sta ListCount2
	lda #ListEntrySize
	sta EntrySize2

	lda #False
	sta AppleTalkOn

	jsr SetCurrentPrinter
	jsr SetCurrentDriver

	rtl

	ENDP

******************************************************************
*
* GetPrinterNames
*
*
******************************************************************
	EXPORT GetPrinterNames
GetPrinterNames	PROC

	_GetDeviceName	; get device name of loaded printer drvr
	lda #0
	pha	; handle to list of	printer names
	pha
	pha	; number of printers found
	PushLong #TempZone
	_GetPrinterList
	pla
	sta ListCount2
	pla
	sta PrinterHandle
	pla
	sta PrinterHandle+2
	pha
	pha
	PushLong PrinterHandle
	jsr DerefAndLock
	pla
	sta AdrList2
	pla
	sta AdrList2+2

	lda #ListEntrySize
	sta EntrySize2

	rts

	ENDP

******************************************************************
*
* ShowNewList
*
*
******************************************************************
	EXPORT ShowNewList
ShowNewList	PROC

	PushLong VDialogPtr
	_SetPort

	pea 0
	pea 0
	PushLong #ListRec2
	_NewList

	PushWord ListCount2
	PushWord EntrySize2
	PushLong AdrList2
	lda AppleTalkOn
	beq DirectC
	PushLong #CurrentNetName
	bra InitIt

DirectC	PushLong #CurrentPort

InitIt	jsr InitThisList

	lda SomeThingFound
	beq NothingFound
	pea 0
	pea 0
	PushLong #ListRec2
	_DrawMember

NothingFound	rts

	ENDP

******************************************************************
*
* PutUpZoneModal
*
* This puts up a modal dialog that shows all the zones in network.
* This dialog only appears if there are	actually zones out there.
*
******************************************************************
	EXPORT PutUpZoneModal
PutUpZoneModal	PROC

Handle	equ Temp1
Pointer	equ Temp2

	PushLong #TempZone
	PushLong #SavedZoneName
	jsr CopyString

	pha
	pha
	PushLong #ATTemplate
	_GetNewModalDialog

	pla
	sta ATDialogPtr
	pla
	sta ATDialogPtr+2

	pha
	pha
	PushLong ZoneHandle
	jsr DerefAndLock
	pla
	sta ATAdrList
	pla
	sta ATAdrList+2
	lda #ListEntrySize	; size of the zone name + 5 for list mgr
	sta ATEntrySize

	pha
	pha
	PushLong ATDialogPtr
	PushLong #ATListRec
	_CreateList
	pla
	sta ATListControl
	pla
	sta ATListControl+2

	PushWord ATListCount
	PushWord ATEntrySize
	PushLong ATAdrList
	PushLong #TempZone
	jsr InitThisList

	jsr ATSaveAndZeroRefCons
	jsr InitCursor

	pha
	PushLong #ATChooserFilter+$80000000
	_ModalDialog	; call modal dialog
	pla
	cmp #1
	beq CloseIt

	PushLong #SavedZoneName
	PushLong #TempZone
	jsr CopyString
	jsr GetNewPrNames

CloseIt	jsr WaitCursor
	jsr GetNewPrString

	lda ZoneHandle
	sta Temp1
	lda ZoneHandle+2
	sta Temp1+2
	ldy #4
	lda [Temp1],y
	and #$7FFF
	sta [Temp1],y

	PushLong ATDialogPtr
	_CloseDialog

	rts

ATSaveAndZeroRefCons	;
	pha	; Get the ref con of the list
	pha	; control and save it
	PushLong ATListControl
	_GetCtlRefCon
	pla
	sta ATListRefCon
	pla
	sta ATListRefCon+2

	lda ATListControl	; now find the handle to the
	sta handle	; scroll bar control
	lda ATListControl+2	; (its at the end of the record
	sta Handle+2	; used by the list control)

	lda [Handle]
	sta Pointer
	ldy #2
	lda [Handle],y
	sta Pointer+2

	ldy #52
	lda [Pointer],y
	sta ATScrollControl
	iny
	iny
	lda [Pointer],y
	sta ATScrollControl+2

	pha	; use this to save and zero
	pha	; ref con of the Scroll bar control
	PushLong ATScrollControl
	_GetCtlRefCon
	pla
	sta ATScrollRefCon
	pla
	sta ATScrollRefCon+2

	EXPORT ATZeroRefCons
ATZeroRefCons		;       
	PushLong #0
	PushLong ATListControl
	_SetCtlRefCon

	PushLong #0
	PushLong ATScrollControl
	_SetCtlRefCon

	rts

	EXPORT ATRestoreRefCons
ATRestoreRefCons		;       
	PushLong ATListRefCon
	PushLong ATListControl
	_SetCtlRefCon

	PushLong ATScrollRefCon
	PushLong ATScrollControl
	_SetCtlRefCon

	rts

	ENDP

*****************************************************************
*
* ATChooserFilter
*
*
*****************************************************************
ATChooserFilter	PROC

oWhere	equ 10	; offset in event record

OrigD	equ 1
OrigB	equ OrigD+2
RTLAdr	equ OrigB+1
ItemHitPtr	equ RTLAdr+3
EventPtr	equ ItemHitPtr+4
DialogPtr	equ EventPtr+4
ReturnFlag	equ DialogPtr+4

	phd	; save d
	phb	; save b
	phk	; set b to our bank
	plb

	tsc	; turn stack into zp
	tcd

	stz ReturnFlag	; we always return false

	lda [EventPtr]
	cmp #1	; only care about mouse down
	beq ATKeepLooking1
	brl ATAllDone

ATKeepLooking1	pha
	PushLong #ATFoundControl
	ldy #oWhere+2
	lda [EventPtr],y
	pha
	dey
	dey
	lda [EventPtr],y
	pha
	PushLong ATDialogPtr
	_FindControl
	pla
	bne ATKeepLooking2
	brl ATAllDone

ATKeepLooking2	lda ATFoundControl
	cmp ATListControl
	bne NotList
	lda ATFoundControl+2
	cmp ATListControl+2
	beq ATDoIt

NotList	lda ATFoundControl
	cmp ATScrollControl
	bne NotScroll
	lda ATFoundControl+2
	cmp ATScrollControl+2
	beq ATDoIt

NotScroll	brl ATAllDone

ATDoIt	jsr ATRestoreRefCons

	pha
	ldy #oWhere+2
	lda [EventPtr],y
	pha
	dey
	dey
	lda [EventPtr],y
	pha
	PushLong #$FFFFFFFF
	PushLong ATFoundControl
	_TrackControl
	pla

	jsr ATZeroRefCons

	PushLong #ATListRec
	PushWord ATEntrySize
	PushLong #TempZone2
	jsr GetSelFromList

	PushLong #TempZone2
	PushLong #TempZone
	jsr EqualString

	beq ATAllDone

	jsr WaitCursor

	stz ListCount2
	pea 0
	pea 0
	PushLong #ListRec2
	_NewList

	PushLong #TempZone2
	PushLong #TempZone
	jsr CopyString
	
	PushLong #SavedZoneName	; was different zone choosen
	PushLong #TempZone		; if not then don't set flag
	jsr EqualString		; to check for same printer name
	
	beq SameZone
	
	lda #True		; set flag if zone has changed from 
	sta DiffZone		; the time the zone dialog first 
			; came up. 6/6/88 HY
SameZone	jsr GetNewPrNames
	
	stz DiffZone

	jsr InitCursor

ATAllDone	plb	; restore b
	pld	; restore d


	phb	; put extra byte on	stack
	pla	; pull long into x,a
	plx
	ply	; strip 6 words
	ply
	ply
	ply
	ply
	ply
	phx
	pha

	plb	; pull extra byte

	rtl	; done

ATFoundControl	DS.B 4


	ENDP

******************************************************************
*
* GetNewPrNames
*
*
******************************************************************
	EXPORT GetNewPrNames
GetNewPrNames	PROC

	PushLong PrinterHandle
	_DisposeHandle

	jsr GetPrinterNames

	jsr ShowNewList

NoNewZone	rts

	ENDP

*****************************************************************
*
* GetNewPrString
*
*
*****************************************************************
	EXPORT GetNewPrString
GetNewPrString	PROC

	PushLong VDialogPtr
	PushWord #6

	lda ATListCount
	bne ThereAreZones
	PushLong #NoZoneNameStr
	bra SetTheText

ThereAreZones	PushLong #TmpPrNameStr
	PushLong #PrNameStr
	jsr CopyString

	PushLong #PrNameStr
	PushLong #TempZone
	jsr AppendString

	PushLong #PrNameStr

SetTheText	_SetIText

	rts

	ENDP

*****************************************************************
*
* ChooserFilter
*
*
*****************************************************************
ChooserFilter	PROC

oWhere	equ 10	; offset in event record

OrigD	equ 1
OrigB	equ OrigD+2
RTLAdr	equ OrigB+1
ItemHitPtr	equ RTLAdr+3
EventPtr	equ ItemHitPtr+4
DialogPtr	equ EventPtr+4
ReturnFlag	equ DialogPtr+4

	phd	; save d
	phb	; save b
	phk	; set b to our bank
	plb

	tsc	; turn stack into zp
	tcd

	lda #0
	sta WhereInModal

	stz ReturnFlag	; we always return false

	lda [EventPtr]
	cmp #1	; only care about mouse down
	beq KeepLooking1
	brl AllDone

KeepLooking1	pha
	PushLong #FoundControl
	ldy #oWhere+2
	lda [EventPtr],y
	pha
	dey
	dey
	lda [EventPtr],y
	pha
	PushLong VDialogPtr
	_FindControl
	pla
	bne KeepLooking2
	brl AllDone

KeepLooking2	lda FoundControl
	cmp ListControl1
	bne NotList1
	lda FoundControl+2
	cmp ListControl1+2
	bne NotList1
	lda #1
	sta WhereInModal
	brl DoIt

NotList1	lda FoundControl
	cmp ListControl2
	bne NotList2
	lda FoundControl+2
	cmp ListControl2+2
	bne NotList2
	lda #2
	sta WhereInModal
	brl DoIt

NotList2	lda FoundControl
	cmp ScrollControl1
	bne NotScroll1
	lda FoundControl+2
	cmp ScrollControl1+2
	bne NotScroll1
	brl DoIt

NotScroll1	lda FoundControl
	cmp ScrollControl2
	bne NotScroll2
	lda FoundControl+2
	cmp ScrollControl2+2
	beq DoIt


NotScroll2	brl AllDone

DoIt	jsr RestoreRefCons

	pha
	ldy #oWhere+2
	lda [EventPtr],y
	pha
	dey
	dey
	lda [EventPtr],y
	pha
	PushLong #$FFFFFFFF
	PushLong FoundControl
	_TrackControl
	pla

	jsr ZeroRefCons

	lda WhereInModal
	cmp #1
	beq DoInTypeList
	cmp #2
	beq BranchLong
	brl AllDone
BranchLong		;
	brl DoInPrNameList

DoInTypeList		;
	lda >AppleTalkOn
	bne AppleTalkIsOn1
	brl AllDone

AppleTalkIsOn1	jsr WaitCursor

	PushLong #ListRec1
	PushWord EntrySize1
	PushLong #TempPrType
	jsr GetSelFromList

	PushLong #CurrentPrinter
	PushLong #TempPrType
	jsr EqualString
	bne PrinterChanged
	brl NoPrChange

PrinterChanged	jsr UnloadCurrentPrinter
	PushLong #TempPrType
	PushLong #CurrentPrinter
	jsr CopyString

	pha
	_DevIsItSafe
	pla
	beq SlotSevenNotAT

	stz ListCount2
	pea 0
	pea 0
	PushLong #ListRec2
	_NewList

	jsr GetNewPrNames

	PushLong #ListRec2
	PushWord EntrySize2
	PushLong #CurrentNetName
	jsr GetSelFromList

	bcs NothingSelected

	PushLong #CurrentPrinter
	PushLong #CurrentPrinter1
	jsr CopyString

	PushLong #TempZone
	PushLong #CurrentZoneName
	jsr CopyString

NothingSelected		;
SlotSevenNotAT		;
	jsr InitCursor
	brl AllDone

DoInPrNameList	jsr WaitCursor
	lda >AppleTalkOn
	bne AppleTalkIsOn2

	PushLong #ListRec2
	PushWord EntrySize2
	PushLong #CurrentPort
	jsr GetSelFromList

	PushLong #CurrentPort
	PushLong #CurrentDriver
	jsr EqualString

	bne PortChanged
	brl NoPrChange

PortChanged	lda #0
	sta CheckPort
	jsr UnloadCurrentPort
	PushLong #CurrentPort
	PushLong #CurrentDriver
	jsr CopyString
	brl NoPrChange

AppleTalkIsOn2	PushLong #CurrentNetName
	PushLong #TempNetName
	jsr CopyString

	PushLong #ListRec2
	PushWord EntrySize2
	PushLong #CurrentNetName
	jsr GetSelFromList

	PushLong #TempZone	; HY changed 6/6/88, now comparing zones instead of net name
	PushLong #CurrentZoneName ; fixes problem that arises when the net name is the
	jsr EqualString	; the same, but you are in a different zone. The previous
	bne GetNewZone	; way would never recognize the zone change.
	
	PushLong #CurrentNetName ; if no zone changed but printer name selection has 
	PushLong #TempNetName    ; changed then we also want to save the current 
	jsr EqualString	     ; printer driver change.
	bne GetNewZone
	
	bra NoPrChange

GetNewZone	PushLong #TempZone
	PushLong #CurrentZoneName
	jsr CopyString

	PushLong #TempPrType
	PushLong #CurrentPrinter1
	jsr CopyString

NoPrChange	jsr InitCursor

AllDone	lda >CheckPort
	bne ItsBeenChecked
	pha
	_DevIsItSafe

	pla
	bne ItsSafe
	
	lda >AppleTalkOn
	beq NotAT
	
	PushWord #4	; put up the 'AppleTalk not selected in the 
	jsl PostAlert	; control panel' message.
	pla
	bra ItsSafe

NotAT	pha
	pha
	_DevPrChanged

ItsSafe	lda #1
	sta >CheckPort
	jsr InitCursor

ItsBeenChecked	plb	; restore b
	pld	; restore d


	phb	; put extra byte on	stack
	pla	; pull long into x,a
	plx
	ply	; strip 6 words
	ply
	ply
	ply
	ply
	ply
	phx
	pha

	plb	; pull extra byte

	rtl	; done


FoundControl	DS.B 4


	ENDP


*****************************************************************
* DeRefandLock
*
* Space for pointer	    LONG
* Handle list	    LONG
*
* Lock the handle to the list and put pointer in list record
*
*****************************************************************
	EXPORT DerefandLock
DerefandLock	PROC

	DefineStack
origD	word
rts	word
Handle	long
Pointer	long

	phd
	tsc
	tcd

	ldy #$0004	; first lock the handle
	lda [Handle],y
	ora #$8000
	sta [Handle],y
	dey
	dey
	lda [Handle],y
	sta Pointer+2
	lda [Handle]
	sta Pointer

	pld	; restore direct
	pla	; save rts adr

	plx	; get rid of handle
	plx

	pha	; push rts adr back	on stack

	rts


	ENDP


******************************************************************
*
* InitThisList
*
*        Space for result
*        NumberofItems
*        ItemSize
*        PointerToFirstItem
*        PointerToCurrent selection
*   TOS  --
*
* Goes through the list set and clearing the selection bit
* as required.  Returns the flag to indicate if any are set
*
******************************************************************
	EXPORT InitThisList
InitThisList	PROC

	DefineStack
OrigD	word	1
Rts	word	3
CurrentPtr	LONG	5
ItemPtr	LONG	9
ItemSize	word
Counter	word


	phd
	tsc
	tcd

	lda #False
	sta SomeThingFound

	lda Counter
	bne NextItem
	brl AllIsWell

NextItem	lda ItemPtr
	clc
	adc #5
	tax
	lda ItemPtr+2
	adc #0
	pha
	phx
	PushLong CurrentPtr
	jsr EqualString

	beq ThisIsIt

SetNotSelectedBit	ldy #4
	lda [ItemPtr],y
	and #%1111111101111111
	sta [ItemPtr],y
	bra ItsSet

ThisIsIt	lda DiffZone
	bne SetNotSelectedBit
	
	lda #True1
	sta SomeThingFound

	ldy #4
	lda [ItemPtr],y
	ora #$0080
	sta [ItemPtr],y
	lda #$FFFF
	sta 5,s

ItsSet	dec Counter
	beq AllIsWell

	lda ItemPtr
	clc
	adc ItemSize
	sta ItemPtr
	lda ItemPtr+2
	adc #0
	sta ItemPtr+2

	bra NextItem

AllIsWell	pld	; restore direct
	pla	; save rts adr

	plx	; throw away 12 bytes
	plx
	plx
	plx
	plx
	plx

	pha	; put back rts
	rts


	ENDP


******************************************************************
*
* GetSelFromList
*
*    Pointer to List Record    LONG
*    Size of entry	           WORD
*    DestLoc for String        LONG
*
* This routine gets	the selected item from the specified list
* and puts it in the specified location.
*
* It moves entry size bytes to destination, not just the
* length of the string.
*
******************************************************************
	EXPORT GetSelFromList
GetSelFromList	PROC

	DefineStack
OrigD	word
RTS	word
DestPtr	LONG
EntrySize	WORD
ListPtr	LONG

	phd
	tsc
	tcd

	pha
	pha
	PushLong #0	; start at first member
	pei ListPtr+2
	pei ListPtr
	_NextMember

	lda 1,s
	ora 3,s
	bne FoundIt1
	pla
	pla
	sec
	bra SkipThisShit1

FoundIt1	pla
	clc
	adc #5
	sta ListPtr
	pla
	adc #0
	sta ListPtr+2

	sep #$30
	longa off
	longi off
	lda EntrySize
	sec
	sbc #6	; 5 for list mgr junk and 1 to
	tay	; be size - 1
Loop	lda [ListPtr],y
	sta [DestPtr],y
	dey
	bpl Loop
	rep #$30
	longa on
	longi on
	clc

SkipThisShit1	pld
	pla

	plx
	plx
	plx
	plx
	plx

	pha

	rts

	ENDP

******************************************************************
*
* InitHandles
*
*
******************************************************************
	EXPORT InitHandles
InitHandles	PROC

	stz ZoneHandle
	stz ZoneHandle+2
	stz PrinterHandle
	stz PrinterHandle+2

	rts

	ENDP

******************************************************************
*
* DisposeOfHandles
*
*
******************************************************************
	EXPORT DisposeOfHandles
DisposeOfHandles	PROC

; removed unlock before dispose

	PushLong PrinterHandle
	_DisposeHandle

	PushLong ZoneHandle
	_DisposeHandle

	rts

	ENDP

******************************************************************
*
* ChooserDATA
*
* The dialog looks something like:
*
*     Printer Type:		           - ATLine1
*
*     -------------------------------------------  - ATLine2
*     |		        |
*     |     Printer	Types List	        |
*     |		        |
*     -------------------------------------------  - ATLine3
*     Printer Names:	           - ATLine4
*
*     -------------------------------------------  - ATLine5
*     |		        |
*     |     Printer	Names List	        |
*     |		        |
*     -------------------------------------------  - ATLine6
*     AppleTalk Zones:	           - ATLine7
*
*     -------------------------------------------  - ATLine8
*     |		        |
*     |     AppleTalk Zones List	        |
*     |		        |
*     -------------------------------------------  - ATLine9
*     |--|Appletalk	          |--|Direct Connect   - ATLine10
*     |--|	          |--|
*		           - ATLine11
*     User Name:		           - ATLine12
*
*     |	     |  | Cancel | |   OK   |
*
******************************************************************
	EXPORT ChooserData
ChooserData	PROC

	EXPORT ATTemplate
ATTemplate	DC.W ATChooserTop	; top
	EXPORT ATChooserLeft
ATChooserLeft	DC.W ATChooserLeft	; left
	DC.W ATChooserTop+ATDialogHeight ; bottom
	EXPORT ATChooserRight
ATChooserRight	DC.W ATChooserLeft+ATDialogWidth ; right
	DC.W True1	; visible
	DC.L 0	; ref con
	DC.L ATItem1	; Ok button
	DC.L ATItem2	; Cancel button
	DC.L ATItem3	; Appletalk Zone string
	DC.L 0000

	EXPORT ATItem1
ATItem1	DC.W 1	; id
	DC.W ATLine5,ATOKStartX,ATLine6,ATOKStartX+ButSize
	DC.W ButtonItem	; type
	DC.L OKButtonStr	; item descreptor
	DC.W 00	; item value
	DC.W 0	; item flag
	DC.L 0	; item color

	EXPORT ATItem2
ATItem2	DC.W 2	; id
	DC.W ATLine5,ATCancelStartX,ATLine6,ATCancelStartX+ButSize
	DC.W ButtonItem	; type
	DC.L CancelButtonStr ; item descreptor
	DC.W 00	; item value
	DC.W 0	; item flag
	DC.L 0	; item color

	EXPORT ATItem3
ATItem3	DC.W 3	; id
	DC.W ATLine1,Margin,ATLine2,ATInnerBoxWidth
	DC.W StatText+$8000	; type
	DC.L ZoneNameStr	; item descreptor
	DC.W 00	; item value
	DC.W 0	; item flag
	DC.L 0	; item color

	EXPORT ATListRec
ATListRec	DC.W ATLine3,Margin,ATLine4,Margin+ATInnerBoxWidth ; Zone name record
	EXPORT ATListCount
ATListCount	DS.B 2	; number of members	in the list
	DC.W 04	; number seen at once
	DC.W $02	; list type single selection only
	DC.W 1	; list start (first	seen)
	DC.L 0	; space for control
	DC.L MyDraw	; list draw (pointer to draw routine)
	DC.W 10	; height of single item
	EXPORT ATEntrySize
ATEntrySize	DS.B 2	; size of list record
	EXPORT ATAdrList
ATAdrList	DS.B 4	; pointer to the list itself
	DC.L 0	; ref con
	DC.L 0	; adr of color table for control

	EXPORT Template
Template	DC.W ChooserTop	; top
	EXPORT ChooserLeft
ChooserLeft	DC.W ChooserLeft	; left
	DC.W ChooserTop+DialogHeight ; bottom
	EXPORT ChooserRight
ChooserRight		;
	DC.W ChooserLeft+DialogWidth ; right
	DC.W True1	; visible
	DC.L 0	; ref con
	DC.L item1	; Ok button
	DC.L item2	; Cancel button
	DC.L item3	; Zone... button
	DC.L item4	; Title String: Chooser Printer..
	DC.L item5	; Printer Type string
	DC.L item6	; Printer Port string
	DC.L item7	; AppleTalk radio button
	DC.L item8	; Direct Conect radio button
	DC.L item9	; 'User Name:' string
	DC.L item10	; edit line item
	DC.L 0000


	EXPORT item1
item1	DC.W 1	; id
	DC.W Line15,OKStartX,Line16,OKStartX+ButSize
	DC.W ButtonItem	; type
	DC.L OKButtonStr	; item descreptor
	DC.W 00	; item value
	DC.W 0	; item flag
	DC.L 0	; item color

	EXPORT item2
item2	DC.W 2	; id
	DC.W Line15,CancelStartX,Line16,CancelStartX+ButSize
	DC.W ButtonItem	; type
	DC.L CancelButtonStr ; item descreptor
	DC.W 00	; item value
	DC.W 0	; item flag
	DC.L 0	; item color

	EXPORT item3
item3	DC.W 3	; id
	DC.W Line15,ZoneStartX,Line16,ZoneStartX+ButSize
	DC.W ButtonItem	; type
	DC.L ZoneButtonStr	; item descreptor
	DC.W 00	; item value
	DC.W 0	; item flag
	DC.L 0	; item color

	EXPORT item4
item4	DC.W 4	; id
	DC.W Line1,TitleMargin,Line2,InnerBoxWidth
	DC.W StatText+$8000	; type
	DC.L TitleStr	; item descreptor
	DC.W 00	; item value
	DC.W 0	; item flag
	DC.L 0	; item color

	EXPORT item5
item5	DC.W 5	; id
	DC.W Line3,Margin,Line4,InnerBoxWidth
	DC.W StatText+$8000	; type
	DC.L PrTypeStr	; item descreptor
	DC.W 00	; item value
	DC.W 0	; item flag
	DC.L 0	; item color

	EXPORT item6
item6	DC.W 6	; id
	DC.W Line7,Margin,Line8,Margin+InnerBoxWidth+15
	DC.W StatText+$8000	; type
	DC.L PrPortStr	; item descreptor
	DC.W 00	; item value
	DC.W 0	; item flag
	DC.L 0	; item color

	EXPORT item7
item7	DC.W 7	; id
	DC.W Line11,Margin,Line12,CancelStartX-1
	DC.W RadioItem	; type
	DC.L RadioString1	; item descreptor (Appletalk rad. but)
	DC.W 00	; item value
	DC.W 0	; item flag
	DC.L 0	; item color

	EXPORT item8
item8	DC.W 8	; id
	DC.W Line11,CancelStartX+33,Line12,Margin+InnerBoxWidth+23
	DC.W RadioItem	; type
	DC.L RadioString2	; item descreptor (Direct Conn rad. but)
	DC.W 00	; item value
	DC.W 0	; item flag
	DC.L 0	; item color

	EXPORT item9
item9	DC.W 9	; id            
	DC.W Line13,Margin,Line14,Margin+79
	DC.W StatText+$8000	; type
	DC.L UserNameStr	; item descreptor
	DC.W 00	; item value
	DC.W 0	; item flag
	DC.L 0	; item color

	EXPORT item10
item10	DC.W 10	; id            
	DC.W Line13,Margin+80,Line14,Margin+InnerBoxWidth+18
	DC.W EditLine	; type
	DC.L CurrentUser	; item descreptor
	DC.W 15	; item value
	DC.W 0	; item flag
	DC.L 0	; item color

	EXPORT ListRec1
ListRec1	DC.W Line5,Margin,Line6,Margin+InnerBoxWidth ;Printer Type rect for direct Connect
	EXPORT ListCount1
ListCount1	DS.B 2	; number of members	in the list
	DC.W 04	; number seen at once
	DC.W $02	; list type single selection only
	DC.W 1	; list start (first	seen)
	DC.L 0	; space for control
	DC.L MyDraw	; list draw (pointer to draw routine)
	DC.W 10	; height of single item
	EXPORT EntrySize1
EntrySize1	DS.B 2	; size of list record
	EXPORT AdrList1
AdrList1	DS.B 4	; pointer to the list itself
	DC.L 0	; ref con
	DC.L 0	; adr of color table for control

	EXPORT ListRec2
ListRec2	DC.W Line9,Margin,Line10,Margin+InnerBoxWidth ; Printer Port rect for direct connect
	EXPORT ListCount2
ListCount2	DS.B 2	; number of members	in the list
	DC.W 04	; number seen at once
	DC.W $02	; list type single selection only
	DC.W 1	; list start (first	seen)
	DC.L 0	; space for control
	DC.L MyDraw	; list draw (pointer to draw routine)
	DC.W 10	; height of single item
	EXPORT EntrySize2
EntrySize2	DS.B 2	; size of list record
	EXPORT AdrList2
AdrList2	DS.B 4	; pointer to the list itself
	DC.L 0	; ref con
	DC.L 0	; adr of color table for control

	EXPORT CheckPort
CheckPort	DC.W 0

	EXPORT DiffZone
DiffZone	DC.W 0

; List Record Entry
;
; long reserved for	DAN
; byte reserved for	DAN (memflag)
; 16 bytes      for	me (driver name)
;

	ENDP

*****************************************************************
*
* MyDraw
*
* This routine draws the list item when	asked by the list mgr
*
*       Ptr to Bounding Rect
*       Ptr to member record
*       Handle to list Control record
*
*
*****************************************************************
MyDraw	PROC

OrigD	equ 1
RTLAdr	equ OrigD+2
CHandle	equ RTLAdr+3
MemberPtr	equ CHandle+4
RectPtr	equ MemberPtr+4

	phd
	tsc
	tcd
	phb
	phk
	plb

	pei RectPtr+2
	pei RectPtr
	_EraseRect

	ldy #2
	lda [RectPtr],y
	clc
	adc #2
	pha
	ldy #4
	lda [RectPtr],y
	dec a
	dec a
	pha
	_MoveTo

;-------------------------------------------------------------------
;
; Need to to set text colors because version 1.0 of list manager
; gets these wrong. 
;

	PushWord #0
	_SetForeColor

	PushWord #$000F
	_SetBackColor

;-------------------------------------------------------------------

	lda MemberPtr
	clc
	adc #5
	tax
	lda MemberPtr+2
	bcc NoCarry
	inc a
NoCarry	pha
	phx
	_DrawString

	ldy #4
	lda [MemberPtr],y
	and #$0080
	beq NotSelected

	pei RectPtr+2
	pei RectPtr
	_InvertRect

NotSelected		;

	plb
	pld
	lda 1,s
	sta 13,s
	lda 2,s
	sta 14,s
	tsc
	clc
	adc #12
	tcs
	rtl


	ENDP

	END

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrintMgr/printmgr.asm b/IIGS.601.SRC/GSToolbox/PrintMgr/printmgr.asm
new file mode 100644
index 0000000..c4ffc67
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrintMgr/printmgr.asm
@@ -0,0 +1 @@
+	title 'Print Manager'

**************************************************************************************
*
*	 Copyright Apple Computer, Inc. 1986-1989,1991
*	            All Rights Reserved
*
**************************************************************************************

**************************************************************************************
*
*	  The Print Manager
*	    Tool019
*
* Coding Started Summer 1986 by Luc Barthelet and VersionSoft
*
* 16 March 1987  Steven Glass
*
* Reorginize tool to be more the way we	like it.  Use list mgr
* for chooser to save code.
*
*
* Version 1.0   April 10, 1987   Steven	Glass
*
* Version 1.1   May	7, 1987    Suki Lee
*
*    Checks for boot disk before calling loader when loading
*    drivers so loader won't display insert disk message.
*
* Version 1.2   1987    Suki Lee
*
*    Added new tool	call PrBitMap to dump a bitmap to the
*    printer.
*
* Version 2.0d1  Nov 25, 1987    Harry Yee   (System Disk v3.2d3)
*
* Version 2.0d2  Dec 03, 1987    Harry Yee   (System Disk v3.2d4)
*
* Version 2.0d3
*   11 Dec 87    Rob Turner reported bug that MultiScribe would not boot.
*                The routines Dispatch and DPort were not setting the data
*                bank register. Because	the order of when and where drivers
*                were being loaded has changed from v1.0 of	the print mgr the
*                routines mentioned never had to set the data bank reg.
*
* Version 2.0    Mar 01, 1988    Harry Yee   (System Disk v3.1.1)
*
* Version 2.1d1	
*                Added code to check if AppleTalk selected in the control 
*                panel when in the AppleTalk chooser screen.
*
* Version 2.1d2  June 02, 1988   Harry Yee
*                Problem with editline item in Chooser Dialog. Editline length 
*                was 16 chars. yet the space allocated for it was only 15. 
*                Therefore if the user used all 16 chars. it would overwrite by
*                one byte what was allocated directly after the user name space,
*                which was the netname.  The max. allowable user name is now 15.
*
* Version 2.1d3  June 07, 1988    Harry Yee
*                Fixed problem of being able to select a printer in a different
*                zone, with the same name as the printer currently selected.
*                Choose Printer would, in the chooserfilter filterproc compare 
*                printer names, and if they didn't change I assumed the zone 
*                didn't change either. Now I check if the zones changed and if
*                they did and the user clicked in the printer names list, I 
*                record this new selection.
*
*                The result passed back from PrChoosePrinter is now correct. When
*                the user presses the 'OK' button the result is True, if the user
*                presses the 'Cancel' button the result is False. This works the 
*                same as it always had.(i.e. pressing 'OK' even though no driver
*                changes still returns True.)
*
* Version 2.1    June 14, 1988     Harry Yee
*                Changed string in dialogdata.asm from 'Choose Printer v2.1d3' to 
*                ' Choose Printer v2.1 '. Spaces left in so string stays the same 
*                length. PrinterMgr.equ version # changed from $8201 to $0201.
*
*                June 22, 1988     Harry Yee
*                In DummyPrinter routine changed a jsr PostAlert to a jsl PostAlert.
*
*                June 23, 1988     Harry Yee
*                Made change to PMStartup, if an error was returned from SetupDriverList
*                then that means while opening the Drivers folder ProDOS returned
*                an error, e.g. path not found, etc,...
*
*                If no printer or port drivers are in the Drivers folder then there 
*                is a chance that memory gets trashed. Two handles are allocated for 
*                the printer and port lists. e.g. if no port drivers are found then 
*                the list is empty. But in setting up the default values i.e. first 
*                driver in each list is selected when you get into the Choose Dialog,
*                I assume that there is at least one driver in each list.  So I go 
*                and find the first item in this empty list, getting a length byte 
*                which is some random value and then procede to copy it some storage 
*                location.  A large value would therefore trash more than was allocated 
*                for the location I am copying into to.
*                Checks are being made in DefaultPrinter and DefaultPort now to see if 
*                the printer or port lists are empty. If they are empty then I just 
*                return, since an empty list means there is not going to be a default value.
*
*                June 24, 1988     Harry Yee
*                When a driver call is made that particular driver is loaded by the print 
*                mgr. When a printer driver call is made the print mgr makes sure that there
*                is a corresponding port driver that has been selected. The check to see if 
*                this port driver existed failed if there was an empty driver list and the 
*                printer.setup had not been created yet. 
*
* Version 2.2d1  July 12, 1988     Harry Yee
*                Changed message in dialogdata.asm 'Disk is locked, so any changes made to 
*                the Choose Printer dialog will not be saved.' to a more general message, 
*                'Changes made to the Choose Printer dialog could not be saved to disk.'.
*                This message is put up whenever any ProDOS error is encountered during a 
*                _Write call to the Printer.setup file. Procedure WriteSetupFile changed
*                to not check for just 'Disk Locked' and 'Invalid Ref Num' errors. Any error
*                encountered will now put up an alert box.
*
*                Routine WriteSetupFile now checks for VolumeNotFound and FileNotFound errors
*                encountered during _Open. Insert disk message appears for VolumeNotFound 
*                error and for FileNotFound, a file is created if disk is unlocked and 
*                the appropriate selections are then saved to printer.setup. This fixes the
*                problem you get when, 1) there is no printer.setup file present already when 
*                PMStartup is called, 2) the disk is locked which ensures that the 
*                Printer.setup does not get created, 3) then you bring up Choose Printer
*                4) eject the system disk and then un-write protect it, insert the disk back
*                and click the 'OK' button, in the past the dialog 'Changes made to the 
*                Choose Printer dialog could not be saved to disk.' would appear whether
*                or not the disk was locked, now a printer.setup file is created and the
*                changes are then recorded.
*
* Version 2.2d2  July 25, 1988      Harry Yee	(for System Disk 4.0d14)
*                Put change in routine DefaultSetup. In past the direct connect screen would
*                always come up no matter what (i.e. if all the port drivers were missing
*                except for the AppleTalk port driver then the direct connect screen would
*                still come up). Now if AppleTalk is the only port driver found then the 
*                AppleTalk screen comes up. This same change was also put in PrChooser.asm.
*
*                July 26, 1988      Harry Yee	
*                In routine ReadSetupFile, I now make the call _Get_EOF. If the length of
*                the Printer.Setup file is not #EndSetupFileInfo-SetupFileInfo then I assume
*                that Printer.Setup file is an old printer.setup file or a corrupted one. 
*                The current Printer.Setup file is then deleted and a new one is created with
*                the default settings.
*
*                July 27, 1988      Harry Yee
*                Apps. cursor was not being restored correctly when Choose Printer was
*                being called.
*
* Version 2.2d3  July 22, 1988      Harry Yee	(for System Disk 4.0d15)
*                Was saving and restoring cursor in the wrong place. In routines Dispatch and 
*                DPort, saving and restoring of cursor was being done for every printer 
*                and port driver being made. This should have only been done if a driver needed
*                to be loaded.
*
* Version 2.2d4  August 3,1988      Harry Yee	(for System Disk 4.0d16)
*                Once zone button was de-activated it was never activated again. BRC #34687 Fixed. 
*
*                August 8,1988      Harry Yee
*                Changed GetPrNames so that it doesn't need to use any direct page. (BRC #34846)
*
* Version 3.0 
*   d1 November 29, 1988  Suki Lee
*      Added dispatching code for two new calls in the drivers: PrGetPrinterSpecs and 
*      PrGetPgOrientation. Two new constants, oPrGetPrinterSpecs and oPrGetPgOrientation,
*      are added to PrintMgr.equ for dispatching these new calls. Also added two new 
*      calls PMSetDocName and PMGetDocName to allow the application to set the name of
*      document to be printed and the printer driver to access that information.
*
*   d2 December 13, 1988  Suki Lee
*      Replaced PrChooser.asm with code in PrintMgr.asm to put up an alert asking the 
*      user to use the Control Panel desk accessory to select a printer. Modified the
*      Makefile to delete dependencies on PrChooser.asm. 
*
*      December 14, 1988  Suki Lee
*      Added error handling routines to DummyPrinter to handle the new printer driver 
*      calls PrGetPrinterSpecs and PrGetPgOrientation.
*
*      December 15, 1988  Suki Lee
*      Added code in Dispatch and Dport to check current driver to see if the call is 
*      supported before dispatching to it. New drivers which support new calls added 
*      for this release (PrGetPrinterSpecs and PrGetPgOrientation for printer drivers)  
*      and any subsequent new calls contains a header two words long: first word is 0  
*      followed by a call count word.
*
*      December 16, 1988  Suki Lee
*      DocumentNamePtr is initialized when the driver is loaded, and then it maintains
*      the value that the application or the driver sets. This poses a problem since
*      the tool is not reloaded each time an application is launched. Added initialization
*      of the pointer at PMStartup time.
*
*   d3 January 16, 1989   Suki Lee
*      Removed dispatch code and constants associated with the three calls that were
*      removed from the AppleTalk driver: GetPrinterList, GetMyZone and GetZoneList. 
*      These calls are no longer needed since the Choose Printer functionality has been
*      moved to the Control Panel.
*      Also removed code, constants and string data associated with the Choose Printer
*      dialog in this file, PrintMgr.equ and Dialogdata.asm.
*
*      January 18, 1989   Suki Lee
*      Added call to PrDevStartUp in LoadCurrentPort. This ensures that the start up code
*      is called each time a new port driver is loaded. Removed routine BuildNetName since
*      the PrDevStartUp call performs the same function.
*
*      January 24, 1989   Suki Lee
*      LoadCurrentPrinter and LoadCurrentPort are modified to read the current printer and 
*      port choices from the setup file and set up the internal data structure before 
*      loading, since this is now our only means of communications with the Control Panel's 
*      printer cDevs.
*
*   d4 March 30, 1989     Suki Lee
*      Added call to PrDevShutDown in UnloadCurrentPort to balance it with the PrDevStartUp
*      call made in LoadCurrentPort.
*
*   d5 April 3, 1989      Suki Lee
*      PrDevShutDown call was placed where it gets called after the port driver has been 
*      unloaded, causing the driver to be loaded again. Moved call to before unloading.
*
*      April 10, 1989     Suki Lee
*      Added code in PMGetNetworkName, PMGetUserName and PMGetZoneName to check if 
*      AppleTalk is selected before returning a string. If direct connect, then a NIL 
*      pointer is returned.
*
*   d6 May 19, 1989       Suki Lee
*      Since the prChooser dialog code was taken out, the result returned was false. But
*      some old apps rely on the result to be true, which meant OK was hit. Changed the
*      result to return true. BRC #49224
*
*      May 26, 1989       Suki Lee
*      Modified alert strings which still refer to the Choose Printer dialog to use 
*      "Control Panel".
*
*      June 1, 1989       Suki Lee
*      When an error occurs during loading of a driver, an internal flag is set to -1.
*      But the code which uses the flag treats -1 as if the driver had been loaded. Set
*      this flag to 0 to force a reload of the driver in the event that the user changed
*      the printer or port selection.
*
**************************************************************************************
**************************************************************************************
*
* Changes since first prototype release:
*
* If the setup file	is missing from the	drivers subdirectory,
* we create a default setup file.  This	has the first
* printer driver in	the list and the first port driver in the
* list.  The user name is John Q. Public and the network printer
* name is LASERWRITER.  (Does not display insert disk msg.)
*
* If there is an error on loading of the printer (or port )driver
* at startup time, I check to see if the error is file not
* found.  If it is we try the default printer (or port).  This
* can happen if user deletes current driver. (Does not display
* insert disk msg.)
*
* The Prchooser and	NetChooser both use	the list manager. Program
* must load list manager.
*
* After calling PRChooser, I only reload drivers if the drivers
* have changed.
*
* Code went from over 11K to just over 5K.
*
* (Above comments from Suki Lee, late 1988 -- Ben Koning)
*
**************************************************************************************
*
* BEGIN 6.0
*
* 5-Mar-91	Dave Lyons (for 6.0d28)
*
* Changed version number from $0300 to $8301 (in equates file).
* Killed a ton of stray semicolons.  They bug me.
*
* Adding support for Printer.Setup file being in the user's AppleShare user folder
* instead of always "*/System/Drivers/Printer.Setup".
*
* 7-Mar-91	DAL
*
* Got around to finishing the above stuff.  If we get an error trying to do a
* GetFileInfothe on the user's setup folder, then we use the "*:System:Drivers:
* Printer.Setup" path.
*
* The network path is ":xxx:Users:username:Setup:Printer.Setup"
*
* 15-Apr-91	Ben Koning
*
* Eliminated usage of 'all.macros'.
*
* Changed dialog boxes that pop up from using NoteAlert and StopAlert to AlertWindow,
* simplifying code and saving space.
*
**************************************************************************************
*
* Begin 6.0.1
*
* 18-Nov-92	Dave Lyons (6.0.1d12)
*
* Changed version number from $0301 to $8302.
*
* Fixed bad-parameter error code from PMLoadDriver/PMUnloadDriver to be $1309,
* as documented (was returning $1308 before).
*
* 1-Apr-93	Steve Stephenson (6.0.1d16)
*
* Changed version to $0302 for 6.0.1 (final)
*
**************************************************************************************

	blanks off
	string asis

	include 'm16.util2'
	include 'm16.locator'
	include 'm16.misctool'
	include 'm16.memory'
	include 'm16.prodos'
	include 'm16.gsos'
	include 'm16.loader'
	include 'm16.quickdraw'
	include 'm16.qdaux'
	include 'm16.list'
	include 'm16.window'
	include 'm16.dialog'
	include 'e16.dialog'

	include 'PrintMgr.equ'
	include 'special.macros'
	
;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------
	import OKButtonStr
	import CancelButtonStr
	import InsertDiskStr

	
;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------
	ENTRY AppendString
	ENTRY AppleTalkOn
	ENTRY AppleTalkStr
	ENTRY CloseID
	ENTRY CloseParams
	ENTRY CloseSetup
	ENTRY CloseSetupID
	ENTRY CloseSetupParams
	ENTRY CopyString
	ENTRY CreateSetupParams
	ENTRY CurrentDriver
	ENTRY CurrentNetName
	ENTRY CurrentPort
	ENTRY CurrentPrinter
	ENTRY CurrentPrinter1
	ENTRY CurrentPrinter2
	ENTRY CurrentUser
	ENTRY CurrentZoneName
	ENTRY DPort
	ENTRY DPortAdr
	ENTRY DefaultDocName
	ENTRY DefaultPort
	ENTRY DefaultPrinter
	ENTRY DefaultSetup
	ENTRY DefaultZone
	ENTRY DerefTemp1ToTemp2
	ENTRY DestroyParams
	ENTRY Die
	ENTRY DirPath
	ENTRY Dispatch
	ENTRY DispatchAdr
	ENTRY DisposePortList
	ENTRY DisposePrinterList
	ENTRY DocumentNamePtr
	ENTRY DriverError
	ENTRY DriverPath
	ENTRY DriverSubPath
	ENTRY DummyPort
	ENTRY DummyPrinter
	ENTRY EndSetupFileInfo
	ENTRY EntryAuxType
	ENTRY EntryName
	ENTRY EntryType
	ENTRY EqualString
	ENTRY Err0
	ENTRY Err10
	ENTRY Err12
	ENTRY Err2
	ENTRY Err4
	ENTRY Err4Plus
	ENTRY Err8
	ENTRY Err8Plus
	ENTRY Exit0
	ENTRY Exit2
	ENTRY Exit4
	ENTRY GetDirID
	ENTRY GetDirParams
	ENTRY GetEOFID
	ENTRY GetEOFParams
	ENTRY GetFileParams
	ENTRY GetMem
	ENTRY InitCursor
	ENTRY InsertPortList
	ENTRY InsertPrinterList
	ENTRY IsPortThere
	ENTRY Length
	ENTRY ListSize
	ENTRY LoadCurrentPort
	ENTRY LoadCurrentPrinter2
	ENTRY LoadSomething
	ENTRY NoAppleTalk
	ENTRY NumPorts
	ENTRY NumPrinters
	ENTRY OpenID
	ENTRY OpenParams
	ENTRY OpenSetup
	ENTRY OpenSetupID
	ENTRY OpenSetupParams
	ENTRY PMActive
	ENTRY PMBootInit
	ENTRY PMLoadDriver
	ENTRY PMReset
	ENTRY PMShutDown
	ENTRY PMStartup
	ENTRY PMUnloadDriver
	ENTRY PMVersion
	ENTRY PathBuffer
	ENTRY PmGetNetWorkName
	ENTRY PmGetPortName
	ENTRY PmGetPrinterName
	ENTRY PmGetUserName
	ENTRY PmGetZoneName
	ENTRY PmInsertDisk
	ENTRY PmSetNetWorkName
	ENTRY PmSetPortName
	ENTRY PmSetPrinterName
	ENTRY PmSetUserName
	ENTRY PmSetZoneName
	ENTRY PmSetDocName
	ENTRY PmGetDocName
	ENTRY PortDriverID
	ENTRY PortInMem
	ENTRY PortList
	ENTRY PortListSize
	ENTRY PostAlert
	ENTRY PrChooser
	ENTRY PrinterDriverID
	ENTRY PrinterInMem
	ENTRY PrinterList
	ENTRY PrinterListSize
	ENTRY ReadSetUpFile
	ENTRY ReadSetupID
	ENTRY ReadSetupParams
	ENTRY SetCurrentDriver
	ENTRY SetCurrentPrinter
	ENTRY SetupDriverLists
	ENTRY SetupFileInfo
	ENTRY SetupFileName
	ENTRY SizeOfFile
	ENTRY TheEntry
	ENTRY TransferCount
	ENTRY UnLoadCurrentPort
	ENTRY UnLoadCurrentPrinter
	ENTRY UnloadSomething
	ENTRY WaitCursor
	ENTRY WriteSetupFile
	ENTRY WriteSetupID
	ENTRY WriteSetupParams
	ENTRY insertdisk
	ENTRY loadCurrentPrinter
	ENTRY xDevAsyncRead
	ENTRY xDevClose
	ENTRY xDevWriteBack
	ENTRY xDevIsItSafe
	ENTRY xDevOpen
	ENTRY xDevPrChanged
	ENTRY xDevRead
	ENTRY xDevShutdown
	ENTRY xDevStartup
	ENTRY xDevStatus
	ENTRY xDevWrite
	ENTRY xGetDeviceName
	ENTRY xPrCloseDoc
	ENTRY xPrClosePage
	ENTRY xPrControl
	ENTRY xPrDrvrVer
	ENTRY xPrError
	ENTRY xPrJobDialog
	ENTRY xPrOpenDoc
	ENTRY xPrOpenPage
	ENTRY xPrPicfile
	ENTRY xPrPixelMap
	ENTRY xPrPortVer
	ENTRY xPrSetError
	ENTRY xPrStlDialog
	ENTRY xPrValidate
	ENTRY xPrintDefault
	ENTRY xPrGetPrinterSpecs
	ENTRY xPrGetPgOrientation
	entry BuildSetupPath	;7-Mar-91 DAL

**************************************************************************************
*
* The Call Table
*
**************************************************************************************

	EXPORT CallTable
CallTable	PROC
TheStart
	DC.L (TheEnd-TheStart)/4
	DC.L PMBootInit-1	      ; 1  $0113
	DC.L PMStartup-1	      ; 2  $0213
	DC.L PMShutDown-1	      ; 3  $0313
	DC.L PMVersion-1	      ; 4  $0413
	DC.L PMReset-1	      ; 5  $0513
	DC.L PMActive-1	      ; 6  $0613
	DC.L PMBootInit-1         ; 7  $0713  ; reserved
	DC.L PMBootInit-1         ; 8  $0813  ; reserved
	DC.L xPrintDefault-1      ; 9  $0913
	DC.L xPrValidate-1	      ;10  $0A13
	DC.L xPrStlDialog-1	      ;11  $0B13
	DC.L xPrJobDialog-1	      ;12  $0C13
	DC.L xPrPixelMap-1	      ;13  $0D13
	DC.L xPrOpenDoc-1	      ;14  $0E13
	DC.L xPrCloseDoc-1	      ;15  $0F13
	DC.L xPrOpenPage-1	      ;16  $1013
	DC.L xPrClosePage-1	      ;17  $1113
	DC.L xPrPicfile-1	      ;18  $1213
	DC.L xPrControl-1	      ;19  $1313
	DC.L xPrError-1	      ;20  $1413
	DC.L xPrSetError-1	      ;21  $1513
	DC.L PrChooser-1	      ;22  $1613

	DC.L xGetDeviceName-1     ;23  $1713
	DC.L xPrGetPrinterSpecs-1 ;24  $1813
	DC.L xDevPrChanged-1      ;25  $1913
	DC.L xDevStartup-1	      ;26  $1A13
	DC.L xDevShutdown-1	      ;27  $1B13
	DC.L xDevOpen-1	      ;28  $1C13
	DC.L xDevRead-1	      ;29  $1D13
	DC.L xDevWrite-1	      ;30  $1E13
	DC.L xDevClose-1	      ;31  $1F13
	DC.L xDevStatus-1	      ;32  $2013
	DC.L xDevAsyncRead-1      ;33  $2113
	DC.L xDevWriteBack-1      ;34  $2213
	DC.L xPrDrvrVer-1	      ;35  $2313
	DC.L xPrPortVer-1	      ;36  $2413
	
	DC.L PMGetZoneName-1      ;37  $2513 
	DC.L PMSetZoneName-1      ;38  $2613
	DC.L PMInsertDisk-1	      ;39  $2713
	DC.L PMGetPrinterName-1   ;40  $2813
	DC.L PMGetPortName-1      ;41  $2913
	DC.L PMGetUserName-1      ;42  $2A13
	DC.L PMGetNetWorkName-1   ;43  $2B13
	DC.L PMSetPrinterName-1   ;44  $2C13
	DC.L PMSetPortName-1      ;45  $2D13
	DC.L PMSetUserName-1      ;46  $2E13
	DC.L PMSetNetWorkName-1   ;47  $2F13
	
	DC.L xDevIsItSafe-1	      ;48  $3013
	DC.L PMBootInit-1	      ;49  $3113   ; unused
	DC.L PMBootInit-1	      ;50  $3213   ; unused
	DC.L PMBootInit-1	      ;51  $3313   ; unused
	
	DC.L PMUnloadDriver-1     ;52  $3413
	DC.L PMLoadDriver-1	      ;53  $3513
	DC.L PMGetDocName-1	      ;54  $3613
	DC.L PMSetDocName-1	      ;55  $3713
	DC.L xPrGetPgOrientation-1 ;56 $3813
TheEnd		
	ENDP


****************************************************************
*
* PMBootInit & PMReset
*
* Does nothing.
*
*****************************************************************
	EXPORT PMBootInit
PMBootInit	PROC
	EXPORT PMReset
PMReset		       
	lda #0
	clc
	rtl
	ENDP


*****************************************************************
*
* PMStartup
*
*       UserID	  word
*       DirectPage	  word
*
*****************************************************************
	EXPORT PMStartup
PMStartup	PROC

	DefineStack
OrigB	BYTE
OrigD	WORD
RTL1	BLOCK 3
RTL2	BLOCK 3
DPage	WORD
UID	WORD


	phd	; save direct
	phb	; save dbr

	phk	; set dbr
	plb

	lda DPage,s
	tcd	; switch it in

	lda UID,s
	sta UserId

;----------------------------------------------------------
;
; Setup Driver lists, read setup file and load
; appropriate drivers.
;
	pha
	_ListVersion	; check if list manager is loaded or not
;		; if not start it up just in case
;		; someone wants to select Choose Printer
	pla
	bcc AllIsWell

	PushWord #28
	PushWord #0
	_LoadOneTool

AllIsWell	lda #0000
	sta >PrinterDriverID ; 1= print driver loaded, 0= not loaded
	sta >PortDriverID	; 1= port driver loaded, 0= not loaded
	sta >NumPrinters	; number of printer	drivers found
	sta >NumPorts	; number of port drivers found
	sta >NoAppleTalk	; 1= AppleTalk driver found

	jsl SetupDriverLists ; find all the printer/port drivers in
		; the DRIVERS folder and put them in a
		; list for the list	manager to use
	bcs NoDriversFolder	; check if the Drivers folder was opened ok
		; if not then just return w/o setting up default
		; values or setting current printer etc,...

	jsl ReadSetUpFile	; get either the default settings for
		; the choose printer dialog or read the
		; printer.setup file for saved settings.
	jsr SetCurrentPrinter
	jsr SetCurrentDriver

;-----------------------------------------------------------
;
; Initialize the document name pointer to the default name of "Unknown"
; for cases where the application is not setting the document name. 
;

	lda #DefaultDocName
	sta DocumentNamePtr+0
	lda #^DefaultDocName
	sta DocumentNamePtr+2
	
;----------------------------------------------------------
;
; Set our WAP entry!
;
NoDriversFolder	pushword #$00	; system tool
	Pushword #Toolnum	; this tool
	pushword #0	; high word is zero
	phd	; low word is d-reg
	_SetWap

;----------------------------------------------------------
;
; We're done:  clean up stack, and quit.
;
	lda #$0000

	plb
	pld
	brl Exit4

	ENDP


*****************************************************************
*
* PMShutDown
*
* Shuts tool down.
*
*****************************************************************
	EXPORT PMShutDown
PMShutDown	PROC

	phd
	tcd
	phb

	phk
	plb

	jsr DisposePrinterList

	jsr DisposePortList

	jsr UnLoadCurrentPrinter
	jsr UnLoadCurrentPort

;----------------------------------------------------------
;
; Clear the WAP
;
	pushword #$00	; system tool
	Pushword #Toolnum	; this tool
	PushLong #0
	_SetWap

	lda #$0000

	plb
	pld
	brl Exit0


	ENDP

*****************************************************************
*
* PMActive
*
* Returns whether or not the print manager is active.
*
*****************************************************************
	EXPORT PMActive
PMActive	PROC
	DefineStack
RTL1	block 3
RTL2	block 3
ActiveResult	word

	cmp #0
	bne AmActive
	EXPORT FinishActive
FinishActive	sta ActiveResult,s
	lda #0
	clc
	rtl

AmActive	lda #True
	bra FinishActive


	ENDP

*****************************************************************
*
* PMVersion
*
* Returns version number
*
*****************************************************************
	EXPORT PMVersion
PMVersion	PROC

	lda #VersionNb
	bra FinishActive

	ENDP


*****************************************************************
*
* PMInsertDisk
*
* Routine that is used put up mount volume message.  This is an
* entry point so that the drivers can use the code in the main
* tool.
*
*****************************************************************
	EXPORT PmInsertDisk
PmInsertDisk	PROC

	phd
	phb
	phk
	plb
	jsr insertdisk
	plb
	pld
	lda #0
	brl exit0


	ENDP


*****************************************************************
*
* PMGetPrinterName
* PMGetPortName
* PMGetUserName
* PMGetNetworkName
*
* Returns a pointer	to the current name	on the stack
*
*****************************************************************
	EXPORT PmGetPrinterName
PmGetPrinterName	PROC
	jsr SetCurrentPrinter
	lda #CurrentPrinter
	ldx #^CurrentPrinter
	bra SetPtr

	EXPORT PMGetPortName
PMGetPortName	jsr SetCurrentDriver
	lda #CurrentDriver
	ldx #^CurrentDriver
	bra SetPtr

	EXPORT PMGetUserName
PMGetUserName	lda >AppleTalkOn	; if user selected direct connect, the 
	beq DirConnect	; name in the variable is not valid
	lda #CurrentUser
	ldx #^CurrentUser
	bra SetPtr

	EXPORT PMGetNetWorkName
PMGetNetWorkName	lda >AppleTalkOn	; if user selected direct connect, the 
	beq DirConnect	; name in the variable is not valid
	lda #CurrentNetName
	ldx #^CurrentNetName
	bra SetPtr

	EXPORT PMGetZoneName
PMGetZoneName	lda >AppleTalkOn	; if user selected direct connect, the 
	beq DirConnect	; name in the variable is not valid
	lda #CurrentZoneName
	ldx #^CurrentZoneName
	bra SetPtr
	
DirConnect	lda #0
	tax
SetPtr
	DEFINESTACK
RTL1	block 3
rtl2	block 3
PtrResult	LONG

	sta PtrResult,s
	txa
	sta PtrResult+2,s

	lda #$0000
	brl Exit0

	ENDP

*****************************************************************
*
* PMSetPrinterName
* PMSetPortName
* PMSetUserName
* PMSetNetName
*
*      PtrToNewName
*
*****************************************************************
	EXPORT PmSetPrinterName
PmSetPrinterName	PROC
	jsr SetCurrentPrinter
	ldx #CurrentPrinter	; printer setting for appletalk
	ldy #^CurrentPrinter

	bra SetName

	EXPORT PMSetPortName
PMSetPortName	jsr SetCurrentDriver
	ldx #CurrentPort
	ldy #^CurrentPort

	bra SetName

	EXPORT PMSetUserName
PMSetUserName	ldx #CurrentUser
	ldy #^CurrentUser

	bra SetName

	EXPORT PMSetNetWorkName
PMSetNetWorkName	ldx #CurrentNetName
	ldy #^CurrentNetName

	bra SetName

	EXPORT PMSetZoneName
PMSetZoneName	ldx #CurrentZoneName
	ldy #^CurrentZoneName


SetName
	DEFINESTACK
OrigB	BYTE
OrigD	WORD
RTL1	block 3
rtl2	block 3
NamePtr	LONG

	phd	; save d
	tcd	; set direct page to ours
	phb	; save dbr

	phk	; set dbr to k
	plb

	jsl ReadSetupFile	; read the setup file

	lda NamePtr,s
	sta Temp1
	lda NamePtr+2,s
	sta Temp1+2

	stx Temp2
	sty Temp2+2

	lda [Temp1]
	and #$00FF
	tay
	dey

	sep #%00100000
	longa off

NameLoop	lda [Temp1],y
	sta [Temp2],y
	dey
	bpl NameLoop

	rep #%00100000
	longa on

	jsl WriteSetupFile	; write it back out

	plb	; clean up and quit.
	pld
	lda #$0000
	brl Exit4

	ENDP


*****************************************************************
*
* PMLoadDriver
*
* This routine accepts as input a word value;
*   0 - load both the current printer and port driver
*   1 - load the current printer driver	only
*   2 - load the current port driver only
*
* The result is also a word value which	tells the caller whether the call was
* successful or not.
*
* If result was False then error was invalid parameter passed, else it is just
* the result of loader call _InitialLoad
*
*****************************************************************
	EXPORT PMLoadDriver
PMLoadDriver	PROC

	DEFINESTACK
OrigB	BYTE
OrigD	WORD
RTL1	block 3
RTL2	block 3
LoadWhat	WORD

	phd	; save d
	tcd	; set direct page to ours
	phb	; save dbr

	phk	; set dbr to k
	plb

	stz loadError
	
	lda LoadWhat,s	; what drivers do we unload
	bmi InvalidParam1	; negative number, not valid choice
	cmp #3
	bge InvalidParam1	; 3 or greater are not valid either

	cmp #2	; is it the port driver only?
	beq doPortDrvr	; yes
	
	lda >PrinterDriverID ; 0 or 1 indicates that printer driver should be loaded
	bne Xit1	; check if anything is loaded

	jsr LoadCurrentPrinter2
	sta LoadError
	
	lda LoadWhat,s	; is it both drivers?
	beq doPortdrvr	; yes, go do port also
	
	lda loadError	; Pass error, if any, back to caller
	bra ErrorExit	

doPortdrvr		; load the port driver
	lda >PortDriverID	; if not loaded already
	bne Xit1

	jsr LoadCurrentPort
	bcs ErrorExit	; Error from this load
	lda LoadError	; Error from loading printer driver, if any
	bra ErrorExit
	
Xit1	lda #0
ErrorExit	plb
	pld

	brl Exit2

InvalidParam1		;
	lda #BadParam	; if bad param. set	result to False
	bra ErrorExit	; go there instead of Xit1 (BK 11/7/89)

loadError	DS.B 2

	ENDP


*****************************************************************
*
* PMUnloadDriver
*
* This routine accepts as input a word value;
*   0 - unload both	the current printer	and port driver
*   1 - unload the current printer driver only
*   2 - unload the current port driver only
*
* The result is also a word value which	tells the caller whether the call was
* successful or not.
*
* If result was False then error was invalid parameter passed, else it is just
* the result of loader call _UserShutDown
*
*****************************************************************
	EXPORT PMUnloadDriver
PMUnloadDriver	PROC

	DefineStack
OrigB	BYTE
OrigD	WORD
RTL1	block 3
RTL2	block 3
UnloadWhat	WORD

	phd	; save d
	tcd	; set direct page to ours
	phb	; save dbr

	phk	; set dbr to k
	plb

	lda UnloadWhat,s	; what drivers do we unload
	bmi InvalidParam2	; negative number, not valid choice
	cmp #3
	bge InvalidParam2	; 3 or greater are not valid either

	cmp #2	; is it the port driver only?
	beq DoPort
	
	jsr UnloadCurrentPrinter
	sta UnloadError
	
	lda UnloadWhat,s	; is it both drivers?
	beq DoPort	; yes, go do port

	lda UnloadError
	bra Xit2
	
DoPort	jsr unloadCurrentPort
	bcs Xit2	; Error from this unload
	lda UnLoadError	; Error from unloading printer driver, if any

Xit2	plb
	pld

	brl Exit2

InvalidParam2	lda #BadParam	; if bad param. set	result to False
	bra Xit2

UnloadError	DS.B 2

	ENDP


*****************************************************************
*
* PMSetDocName
*
* input: ptr to name string (pString)
* output: none
*
*****************************************************************
	EXPORT PMSetDocName
PMSetDocName	PROC

	DefineStack
OrigB	BYTE
OrigD	WORD
RTL1	block 3
RTL2	block 3
DocNamePtr	LONG

	phd	; save d
	tcd	; set direct page to ours
	phb	; save dbr

	phk	; set dbr to k
	plb
	
	lda DocNamePtr,s	; get the name pointer off the stack
	sta DocumentNamePtr	; stores it locally
	
	lda DocNamePtr+2,s	; same for bank addr
	sta DocumentNamePtr+2 

	lda #0
	
	plb
	pld

	brl Exit4

	ENDP


*****************************************************************
*
* PMGetDocName
*
* input: result space 
* output: ptr to name string (pString)
*
*****************************************************************
	EXPORT PMGetDocName
PMGetDocName	PROC

	DefineStack
OrigB	BYTE
OrigD	WORD
RTL1	block 3
RTL2	block 3
DocNamePtr	LONG

	phd	; save d
	tcd	; set direct page to ours
	phb	; save dbr

	phk	; set dbr to k
	plb
	
	lda DocumentNamePtr	; get the name pointer 
	sta DocNamePtr,s	; return it on the stack as result
	
	lda DocumentNamePtr+2 ; same for bank addr
	sta DocNamePtr+2,s	

	lda #0
	
	plb
	pld

	brl Exit0

	ENDP
	

****************************************************************
*
* PrChooser
*
*     ResultCode
*
* Displays dialog directing user to the control panel chooser.
* Always returns true.
*
****************************************************************
	EXPORT PrChooser
PrChooser	PROC

	definestack
OrigB	byte
OrigD	word
RTL1	block 3
RTL2	block 3
Result	word

	phd		;set up environment
	tcd
	phb
	phk
	plb
	
	lda #True		;return true since OK hit,
	sta result,s		;some apps depend on this being true
	
	pha		;pass result space
	pushword #%000		;pass reference is ptr to cstring
	pushlong #0		;pass no substitution array
	import UseCtrlPanelMesg	;pass ptr to alert box def string
	pushlong #UseCtrlPanelMesg
	_AlertWindow
	pla		;get button that was hit and ignore
	
	lda #0		;return no error
	
	plb		;restore environment and exit
	pld
	brl Exit0

	ENDP

	
*****************************************************************
*
* Calls passed on to drivers!
*
*****************************************************************
	EXPORT Pass
Pass	PROC

;----------------------------------------------------------
;
; These calls are passed on to the current printer driver.
;

	EXPORT xPrintDefault
xPrintDefault	ldx #oPrintDefault
	jmp Dispatch
	
	EXPORT xPrValidate
xPrValidate	ldx #oPrValidate
	jmp Dispatch
	
	EXPORT xPrStlDialog
xPrStlDialog	ldx #oPrStlDialog
	jmp Dispatch
	
	EXPORT xPrJobDialog
xPrJobDialog	ldx #oPrJobDialog
	jmp Dispatch
	
	EXPORT xPrDrvrVer
xPrDrvrVer	ldx #oPrDrvrVer
	jmp Dispatch
	
	EXPORT xPrOpenDoc
xPrOpenDoc	ldx #oPrOpenDoc
	jmp Dispatch
	
	EXPORT xPrCloseDoc
xPrCloseDoc	ldx #oPrCloseDoc
	jmp Dispatch
	
	EXPORT xPrOpenPage
xPrOpenPage	ldx #oPrOpenPage
	jmp Dispatch
	
	EXPORT xPrClosePage
xPrClosePage	ldx #oPrClosePage
	jmp Dispatch
	
	EXPORT xPrPicfile
xPrPicfile	ldx #oPrPicfile
	jmp Dispatch
	
	EXPORT xPrControl
xPrControl	ldx #oPrControl
	jmp Dispatch
	
	EXPORT xPrError
xPrError	ldx #oPrError
	jmp Dispatch
	
	EXPORT xPrSetError
xPrSetError	ldx #oPrSetError
	jmp Dispatch
	
	EXPORT xGetDeviceName
xGetDeviceName	ldx #oGetDeviceName
	jmp Dispatch
	
	EXPORT xPrPixelMap
xPrPixelMap	ldx #oPrPixelMap
	jmp Dispatch

	EXPORT xPrGetPrinterSpecs
xPrGetPrinterSpecs	ldx #oPrGetPrinterSpecs
	jmp Dispatch
	
	EXPORT xPrGetPgOrientation
xPrGetPgOrientation	ldx #oPrGetPgOrientation
	jmp Dispatch
	
;----------------------------------------------------------
;
; The remaining calls are passed on to the port driver.
;

	EXPORT xDevPrChanged
xDevPrChanged	ldx #oDevPrChanged
	jmp DPort
	
	EXPORT xDevStartup
xDevStartup	ldx #oDevStartup
	jmp DPort
	
	EXPORT xDevShutdown
xDevShutdown	ldx #oDevShutdown
	jmp DPort
	
	EXPORT xDevOpen
xDevOpen	ldx #oDevOpen
	jmp DPort

	EXPORT xDevRead
xDevRead	ldx #oDevRead
	jmp DPort
	
	EXPORT xDevWrite
xDevWrite	ldx #oDevWrite
	jmp DPort
	
	EXPORT xDevClose
xDevClose	ldx #oDevClose
	jmp DPort
	
	EXPORT xDevStatus
xDevStatus	ldx #oDevStatus
	jmp DPort
	
	EXPORT xDevAsyncRead
xDevAsyncRead	ldx #oDevAsyncRead
	jmp DPort
	
	EXPORT xDevWriteBack
xDevWriteBack	ldx #oDevWriteBack
	jmp DPort
	
	EXPORT xPrPortVer
xPrPortVer	ldx #oPrPortVer
	jmp DPort
	
	EXPORT xDevIsItSafe
xDevIsItSafe	ldx #oDevIsItSafe
	jmp DPort
	
	ENDP


*****************************************************************
*
* Dispatch
*
* Dispatches control to the printer driver.
*
*****************************************************************
	EXPORT Dispatch
Dispatch	PROC

	definestack
ysave	word
asave	word
bsave	byte
dsave	word
rtladr	block 3

	pha	; get 3 bytes on stack
	phb

	phd	; save d
	tcd	; get ours
	
	phb	; switch d
	phk
	plb

	stx CallDispNum	; save x, we need it
	
	pha	; save a-reg
	phy	; save y-reg

	lda >PrinterDriverID
	bne NoPrinterChg

	pha 
	pha 
	_GetCursorAdr	; save current cursor
	
	jsr WaitCursor
	
	jsr loadCurrentPrinter
	
	_SetCursor	; restore original cursor

NoPrinterChg	lda >DispatchAdr+2
	sta Temp1+2
	lda >DispatchAdr
	sta Temp1
	
	lda [Temp1]	; set up a flag to indicate old or new driver
	and #$00FF	; only check first byte
	sta IsOldDriver	; 0 is new driver, nonzero is old driver
	
	lda CallDispNum
	cmp #oPrGetPrinterSpecs
	blt OldCalls
	
	lda IsOldDriver
	bne CallNotSupp
	
	ldy #2	; check the call count
	lda [Temp1],y
	dec a	; subtract 1 since the index begins with 0
	asl a
	asl a	; 4 bytes per address entry from jump table
	cmp CallDispNum
	blt CallNotSupp
	
	bra GoDispatchNew
	
OldCalls	
	lda IsOldDriver
	bne GoDispatch	; for old drivers, dispatch address is all set up
	
GoDispatchNew	lda Temp1
	clc
	adc #4	; new drivers has jmp table 4 bytes from start
	sta Temp1

	bra GoDispatch
CallNotSupp	
	lda #DummyPrinter
	sta Temp1
	lda #^DummyPrinter
	sta Temp1+2
	
	lda #CallNotSupported
	sta >DriverError

;-----------------------------------------------------------
;
; 
GoDispatch	lda Temp1+1
	sta rtladr+1,s
	lda Temp1
	dec a
	sta rtladr,s

	ldx CallDispNum	; restore x
	
	ply	; get y back
	pla	; get a back
	plb	; get data bank back
	pld	; get direct page back
	

	rtl	; dispatch

	EXPORT IsOldDriver
IsOldDriver	DS.B 2
	EXPORT CallDispNum
CallDispNum	DS.B 2

	ENDP


*****************************************************************
*
* DPort
*
* Dispatches control to the port driver.
*
*****************************************************************
	EXPORT DPort
DPort	PROC

	definestack
ysave	word
asave	word
bsave	byte
dsave	word
rtladr	block 3

	pha	; get 3 bytes on stack
	phb

	phd	; save d
	tcd	; get ours
	
	phb	; switch d
	phk
	plb

	stx CallDispNum	; save x, we need it
	
	pha	; save a-reg
	phy	; save y-reg

	lda >PortDriverID
	bne NoPortChange

	pha	; save current cursor
	pha
	_GetCursorAdr
	
	jsr WaitCursor
	
	lda CallDispNum
	pha	; save it since LoadCurrentPort will trash this value
	
	jsr LoadCurrentPort
	
	pla
	sta CallDispNum	; restore it
	
	_SetCursor

NoPortChange	
	lda >DPortAdr+2
	sta Temp1+2
	lda >DPortAdr
	sta Temp1
	
	lda [Temp1]	; set up a flag to indicate old or new driver
	and #$00FF	; only check first byte
	sta IsOldDriver	; 0 is new driver, nonzero is old driver
	
	lda CallDispNum
	cmp #oNextNewPortCall
	blt OldCalls
	
	lda IsOldDriver
	bne CallNotSupp
	
	ldy #2	; check the call count
	lda [Temp1],y
	dec a	; subtract 1 since the index begins with 0
	asl a
	asl a	; 4 bytes per address entry from jump table
	cmp CallDispNum
	blt CallNotSupp
	
	bra GoDispatchNew
	
OldCalls	
	lda IsOldDriver
	bne GoDispatch	; for old drivers, dispatch address is all set up
	
GoDispatchNew	lda Temp1
	clc
	adc #4	; new drivers has jmp table 4 bytes from start
	sta Temp1

	bra GoDispatch
CallNotSupp	
	lda #DummyPort
	sta Temp1
	lda #^DummyPort
	sta Temp1+2
	
	lda #CallNotSupported
	sta >DriverError

;-----------------------------------------------------------
;
; 
GoDispatch
	lda Temp1+1
	sta rtladr+1,s
	lda Temp1
	dec a
	sta rtladr,s


	ldx CallDispNum	; restore x
	
	ply	; get y back
	pla	; get a back
	plb	; get data bank back
	pld	; get direct page back
	
	rtl	; dispatch

	ENDP


;                copy    Driver.asm
******************************************************************
*
* SetCurrentPrinter
*
* A check is made to see if appletalk or direct connect is selected
* and then according to that selection the proper printer is
* made the CurrentPrinter.
*
******************************************************************
	EXPORT SetCurrentPrinter
SetCurrentPrinter	PROC

	lda >AppleTalkOn
	beq DConnectOn
	PushLong #CurrentPrinter1
	PushLong #CurrentPrinter
	jsr CopyString
	bra ATalkOn
DConnectOn	PushLong #CurrentPrinter2
	PushLong #CurrentPrinter
	jsr CopyString

ATalkOn	rts

	ENDP


******************************************************************
*
* SetCurrentDriver
*
* A check is made to see if appletalk or direct connect is selected
* and then according to that selection the proper port driver
* made the CurrentDriver
*
******************************************************************
	EXPORT SetCurrentDriver
SetCurrentDriver	PROC

	lda >AppleTalkOn
	beq NotATPort
	PushLong #AppleTalkStr
	PushLong #CurrentDriver
	jsr CopyString
	bra ATPortOn
NotATPort	PushLong #CurrentPort
	PushLong #CurrentDriver
	jsr CopyString

ATPortOn	rts

	ENDP

******************************************************************
*
* LoadCurrentPrinter
*
* Loads the current	printer driver.  Builds the path name we
* want and then calls LoadSomething which returns the userid
* in the a-register.  Returns address in x-reg and y-reg.
*
******************************************************************
	EXPORT LoadCurrentPrinter
LoadCurrentPrinter	PROC

	jsr IsPortThere
	bcs PrinterError

	EXPORT LoadCurrentPrinter2
LoadCurrentPrinter2

	jsl ReadSetupFile		; find out what user had picked
	
	jsr SetCurrentPrinter	; set the internal data structures accordingly

	PushLong #DriverSubPath
	PushLong #PathBuffer
	jsr CopyString

	PushLong #PathBuffer
	PushLong #CurrentPrinter
	jsr AppendString

	jsr LoadSomething
	bcs PrinterError

	sta >PrinterDriverID
	txa
	sta >DispatchAdr
	tya
	sta >DispatchAdr+2

	PushLong #CurrentPrinter
	PushLong #PrinterInMem
	jsr CopyString

	lda #0
	clc

	rts

PrinterError	tax
	
	lda #0
	sta >PrinterDriverID
	lda #DummyPrinter
	sta DispatchAdr
	lda #^DummyPrinter
	sta DispatchAdr+2
	lda #MissingDriver
	sta DriverError
	txa

	rts

	ENDP


******************************************************************
*
* LoadCurrentPort
*
* Loads the current	port driver.  Builds the path name we
* want and then calls LoadSomething which returns the userid
* in the a-register.  Returns address in x-reg and y-reg.
*
******************************************************************
	EXPORT LoadCurrentPort
LoadCurrentPort	PROC

	jsl ReadSetupFile	; find out what user had picked
	
	jsr SetCurrentDriver ; set the internal data structures accordingly

	PushLong #DriverSubPath
	PushLong #PathBuffer
	jsr CopyString

	PushLong #PathBuffer
	PushLong #CurrentDriver
	jsr AppendString

	jsr LoadSomething
	bcs PortError

	sta >PortDriverID
	txa
	sta >DPortAdr
	tya
	sta >DPortAdr+2

	PushLong #CurrentDriver
	PushLong #PortInMem
	jsr CopyString

;-----------------------------------------------------------
;
; Added January 17, 1989 to ensure that PrDevStartUp is called each time a port
; driver is loaded .
;

	_GetDeviceName
	PushLong #CurrentNetName
	PushLong #CurrentZoneName
	_PrDevStartup

	lda #0
	clc

	rts

PortError	tax
	
	lda #0
	sta >PortDriverID
	lda #DummyPort
	sta DPortAdr
	lda #^DummyPort
	sta DPortAdr+2
	txa

	rts


	ENDP

******************************************************************
*
* LoadSomething
*
* Loads the driver who's path name is in the path buffer
* Returns the UserID in a-reg and address of what was loaded
* in x-reg and y-reg.
*
******************************************************************
	EXPORT LoadSomething
LoadSomething	PROC

	_GetFileInfo FIParams
	bcs CheckForVol

	PushWord #0	; dir/page stack size
	PushWord #0	; dir/page stack loc
	PushLong #0	; starting address
	PushWord #0	; UserID assigned.
	PushWord #0	; UserID to use (for now let loader
;		; assign one.
	PushLong #PathBuffer ; pointer to path
	PushWord #0	; Not Special memory flag
	_initialLoad

	bcs ErrorOnLoad

	pla	; get userid in a-reg
	plx	; adr in x and y
	ply
	sta 3,s	; overstore the last piece of
	pla	; useless info and get
	pla	; user id back

	rts	; carry is clear when get here


ErrorOnLoad	plx	; remove space for id
	plx	; remove space for addr
	plx
	plx	; remove directpage	loc
	plx	; remove direct page size

CheckForVol	cmp #VolumeNotFound
	bne NotMissingDisk

	jsr InsertDisk
	bcc LoadSomething

NotMissingDisk	sec
	rts

FIParams	DC.L FIPath
	DS.B $30

FIPath	str '*/'

	ENDP

******************************************************************
*
* UnloadCurrentPrinter
*
******************************************************************
	EXPORT UnLoadCurrentPrinter
UnLoadCurrentPrinter PROC

	lda >PrinterDriverID
	beq NoDriverLoaded
	jsr UnloadSomething
	bcc PrDriverUnloaded
	tax	; save result of _initialLoad call
	lda #DummyPrinter
	sta DispatchAdr
	lda #^DummyPrinter
	sta DispatchAdr+2
	lda #MissingDriver
	sta DriverError
	lda #0
	sta >PrinterDriverID
	txa	; restore result of	loader call

	bra NoDriverLoaded

PrDriverUnloaded	lda #0
	sta >PrinterDriverID
	sta >PrinterInMem

NoDriverLoaded	rts

	ENDP


******************************************************************
*
* UnloadCurrentPort
*
******************************************************************
	EXPORT UnLoadCurrentPort
UnLoadCurrentPort	PROC

	lda >PortDriverID
	beq NoPortLoaded
	pha	; save A
	
	_PrDevShutDown	; shutdown port driver
	
	pla	; get A back
	jsr UnloadSomething
	bcc PortUnloaded

	tax	; save result of _userShutDown call
	lda #DummyPort
	sta DPortAdr
	lda #^DummyPort
	sta DPortAdr+2
	lda #0
	sta >PortDriverID
	txa	; restore result of	loader call
	rts

PortUnloaded	lda #0
	sta >PortDriverID
	sta >PortInMem
	
NoPortLoaded	rts

	ENDP


******************************************************************
*
* UnloadSomething
*
* Input: userID in A
*
******************************************************************
	EXPORT UnloadSomething
UnloadSomething	PROC
	
	PushWord #0
	pha
	PushWord #0
	_userShutdown
	plx
	
	rts


	ENDP


******************************************************************
*
* DriverChanges
*
* Return carry set if the Current driver string is not equal
* to the driver in memory string.
*
******************************************************************
	EXPORT DriverChanges
DriverChanges	PROC

	EXPORT DidPrinterChange
DidPrinterChange		       
	PushLong #CurrentPrinter
	PushLong #PrinterInMem
	jsr EqualString
	beq same
	sec
	rts
Same	clc

	rts

	EXPORT DidPortChange
DidPortChange		       
	PushLong #CurrentDriver
	PushLong #PortInMem
	jsr EqualString
	beq Same
	sec
	
	rts

	ENDP


******************************************************************
*
* IsPortThere
*
* This proc checks to make sure that when any printer driver is loaded
* there is corresponding port driver that has been selected and in the
* 'Drivers' folder.
*
******************************************************************
	EXPORT IsPortThere
IsPortThere	PROC

	lda >AppleTalkOn
	beq CheckDCDriver
	lda >NoAppleTalk
	beq OutAndSet
	bra EveryThingOK

CheckDCDriver	lda CurrentDriver
	and #$00FF	; check length byte, if zero then driver not there
	beq OutAndSet	; HY 7/27/88
	lda NumPorts	; check if there were any ports found 
	beq OutAndSet	; if not then we don't need to check any further
	
	PushLong #DriverSubPath
	PushLong #DriverPath
	jsr CopyString

	PushLong #DriverPath
	PushLong #CurrentDriver 
	jsr AppendString

	_GetFileInfo GetFileParams
	cmp #FileNotFound
	beq OutAndSet

EveryThingOK	lda #0
	clc
	rts

OutAndSet	sec
	rts

	ENDP


******************************************************************
*
* ReadSetupFile
*
* Reads the setup file if there is one.	 If there is not a setup
* file it creates one and sets up some default printer configuration.
* If the number of bytes to read in does not equal the number of bytes actually
* read the printer.setup file file format is not compatible	with this version
* of the print manager. Delete the old printer.setup file and create a new one
* with the correct format and using the	default values.
*
******************************************************************
	EXPORT ReadSetupFile
ReadSetupFile	PROC

CreateNewSetup	jsr OpenSetup

	_READ ReadSetupParams
	bcs ReadOK
	_Get_EOF GetEOFParams
	lda SizeOfFile
	cmp #EndSetupFileInfo-SetupFileInfo
	beq ReadOK
	jsr CloseSetup
	_DESTROY DestroyParams
	bra CreateNewSetup

ReadOK	jsr CloseSetup

	rtl

	ENDP


******************************************************************
*
* WriteSetupFile
*
* Writes the setup file information back out to the system disk.
*
******************************************************************
	EXPORT WriteSetupFile
WriteSetupFile	PROC

	_OPEN OpenSetupParams
	bcs GotError
	lda OpenSetupID
	sta ReadSetupID
	sta WriteSetupID
	sta CloseSetupID

DoWrite	_WRITE WriteSetupParams
	bcc NoErr

DoAlert	PushWord #1	; show message #1 (printer.setup write error)
	jsl PostAlert
	pla

NoErr	jsr CloseSetup

	rtl

GotError	cmp #FileNotFound	; do we need to create a printer.setup file?
	beq CreateNewFile
	
	cmp #VolumeNotFound	; if volume not found then put up 'Insert disk...'
	beq PutUpInsertDLog	; message

	bra DoAlert
	
CreateNewFile	_Create CreateSetupParams ; create new file, if error then put up
	bcs DoAlert	; alert saying no changes could be saved.
		
	bra WriteSetupFile	; else open new file and write out the changes.
	
PutUpInsertDLog	jsr InsertDisk
	bcc WriteSetupFile
	bcs DoAlert
	

	ENDP

******************************************************************
*
* OpenSetup
*
* Opens the setup file on system disk for reading or writing.
*
******************************************************************
	EXPORT OpenSetup
OpenSetup	PROC

	jsr BuildSetupPath		;7-Mar-91 DAL

	_OPEN OpenSetupParams
	bcs Error

	lda OpenSetupID
	sta ReadSetupID
	sta WriteSetupID
	sta CloseSetupID
	sta GetEOFID

	rts

Error	cmp #FileNotFound
	beq MakeFile

	cmp #VolumeNotFound
	beq Insert

SkipThis	jsr DefaultSetup

	clc
	rts

;----------------------------------------------------------
;
; When I make a file I create it and then write the
; default info into	it.
;
MakeFile	_Create CreateSetupParams
	bcs SkipThis

	jsr DefaultSetup

	jsl WriteSetupFile
	bra OpenSetup

;----------------------------------------------------------
;
; Here I ask for disk insertion.  If user presses cancel
; we skip this which gives us the default setup and
; then quits.

Insert	jsr InsertDisk
	bcc OpenSetup
	bcs SkipThis

	ENDP

******************************************************************
*
* BuildSetupPath (7-Mar-91 DAL)
*
* Computes either a network pathname or a local pathname for
* the Printer.Setup file.
*
* Result is a Pascal string in SetupFileName.
*
******************************************************************
BuildSetupPath	proc
	jsr BuildNetSetupPath
	bcc @ok

	pushlong #LocalPathname
	pushlong #SetupFileName
	pushlong #LocalPathEnd-LocalPathname
	_BlockMove
	
@ok	rts

LocalPathname	str '*:System:Drivers:Printer.Setup'
LocalPathEnd

******************************************************************
*
* BuildNetSetupPath (5-Mar-91 DAL)
*
* Builds the pathname of the user's setup folder on the AppleShare
* user volume, if possible.
*
* Returns SEC if they didn't boot over AppleShare
*         CLC if they booted from AppleShare
*             NetUserPath = class one path of the uesr's network
*                           Printer.Setup file
*
******************************************************************
BuildNetSetupPath
	import GetBootFileSystem

	jsr GetBootFileSystem
	cmp #$000D		;is it AppleShare?
	bne @notAppleShare

	_FSTSpecific gup_pblk	;get ptr to user path
	bcs @notAppleShare		;no user volume, or whatever

*** the returned pointer is to a class-one string with colon separators
*** and no trailing colon
	pushlong gup_pblk+6		;source
	pushlong #NetUserPath
	pushlong #128		;yeah, I'm lazy
	_BlockMove

*** Make sure the directory exists!
	_GetFileInfoGS gfi_parms
	bcs @notAppleShare		;user folder doesn't exist

*** append ":Setup:Printer.Setup" to the end of the pathname
	ldx #0
	ldy NetUserPath		;length word
@append	lda theFilename,x
	sta NetUserPath+2,y
	iny
	inx
	cpx #theFilenameLength-1
	bcc @append

	clc
	lda NetUserPath
	adc #theFilenameLength
	xba		;swap length word for Pascal string
	sta NetUserPath

	clc
	rts

@notAppleShare	sec
	rts

;
; String to append to the GetUserPath result to make a full pathname
;
theFilename	dc.b ':Setup:Printer.Setup'
theFilenameLength	equ *-theFilename

;
; parameter block to get user path from appleshare.
;
gup_pblk	dc.w 3	;3 parameters
	dc.w $000D	;id of the appleshare fst
	dc.w 8	;command for get user path
	dc.l NetUserPath	;ptr to pathname

gfi_parms	dc.w 2	;minimum parameter count for GetFileInfo
	dc.l NetUserPath
	dc.w 0	;result: access word

NetUserPath	ds.b 1	;NetUserPath is a GS/OS string
	export SetupFileName
SetupFileName	ds.b 128	;SetupFileName is a Pascal string

	EndP


******************************************************************
*
* GetBootFileSystem (5-Mar-91 DAL)
*
* Output:  $000D if the boot FST is AppleShare
*
******************************************************************
GetBootFileSystem	proc

	_DInfoGS infoParms	;get the device name for the boot device
	bcs oops
	_VolumeGS volParms	;now do a Volume call to get the ID of the boot FST
	bcs oops
	lda fst_id	;get the ID number of the boot FST
	rts

oops	lda #0
	rts

infoParms	dc.w 2	;pCount
	dc.w 1	;device number (boot device is ALWAYS device 1)
	dc.l devName	;pointer to result buffer for device name

devName	dc.w 36	;buffer length
devName2	dc.w 0	;string length
	ds.b 32	;buffer for device name

volParms	dc.w 5	;pCount
	dc.l devName2	;pointer to device name
	dc.l volname	;pointer to volume name buffer
	dc.l 0	;total blocks
	dc.l 0	;free blocks
fst_id	dc.w 0	;FST ID number

volname	dc.w 36	;buffer length
volname2	dc.w 0	;string length
	ds.b 32	;string buffer

	EndP


******************************************************************
*
* CloseSetup
*
* Closes the setup file that was opened	earlier.
*
******************************************************************
	EXPORT CloseSetup
CloseSetup	PROC

	_CLOSE CloseSetupParams
	rts

	ENDP


******************************************************************
*
* DefaultSetup
*
* This routine sets	up default SetupFile info for the case
* where there is no	SetupFile to read or the disk is not around.
*
* There are four things to setup:
*
*     CurrentPrinter
*     CurrentDriver	(Port)
*     CurrentUser (name)
*     CurrentNetName
*
* Important:  This must be called after	the driver lists are
* created.
*
******************************************************************
	EXPORT DefaultSetup
DefaultSetup	PROC

	jsr DefaultPrinter
	jsr DefaultPort

	lda #0	; set the default screen to be
	sta AppleTalkOn	; direct connect
	lda NumPorts	; were there any port drivers found other 
	bne SomeFound	; than AppleTalk
	lda NoAppleTalk	; is the appletalk driver present
	beq SomeFound
	inc AppleTalkOn	; make the appletalk screen come up since there
		; were no other port drivers found
	
SomeFound	sep #$30
	longa off
	longi off

	ldx DefaultUser
Loop3	lda DefaultUser,x
	sta CurrentUser,x
	dex
	bpl Loop3

	ldx DefaultNetName
Loop4	lda DefaultNetName,x
	sta CurrentNetName,x
	dex
	bpl Loop4

	ldx DefaultZoneName
Loop5	lda DefaultZoneName,x
	sta CurrentZoneName,x
	dex
	bpl Loop5

	rep #$30
	longa on
	longi on

	rts


DefaultUser	str 'John Q. Public'

DefaultNetName	str 'LASERWRITER'

DefaultZoneName	str '*'

	ENDP


******************************************************************
*
* DefaultPrinter
*
* Puts the first printer in the printer	list into
* CurrentPrinter.
*
******************************************************************
	EXPORT DefaultPrinter
DefaultPrinter	PROC

	lda >NumPrinters
	beq EmptyPrinterList
	
	movelong PrinterList,Temp1
	jsr DerefTemp1ToTemp2
	clc
	lda Temp2
	adc #5	; 5 for list mgr
	sta Temp2
	bcc NoCarry1
	inc Temp2+2
NoCarry1

	sep #$30
	longa off
	longi off
	lda [Temp2]
	tay
Loop1	lda [Temp2],y
	sta CurrentPrinter1,y ; first printer type in list is default
	sta CurrentPrinter2,y ; for AT and DC selections
	dey
	bpl Loop1
	rep #$30
	longa on
	longi on

	rts

EmptyPrinterList	lda #0
	sta CurrentPrinter1
	sta CurrentPrinter2
	 
	rts
	
	ENDP


******************************************************************
*
* DefaultPort
*
* Puts the first Port in the port list into
* CurrentDriver
*
******************************************************************
	EXPORT DefaultPort
DefaultPort	PROC

	lda >NumPorts
	beq EmptyPortList
	
	movelong PortList,Temp1
	jsr DerefTemp1ToTemp2
	clc
	lda Temp2
	adc #5	; 5 for list mgr
	sta Temp2
	bcc NoCarry2
	inc Temp2+2
NoCarry2
	sep #$30
	longa off
	longi off
	lda [Temp2]
	tay
Loop2	lda [Temp2],y
	sta CurrentPort,y
	dey
	bpl Loop2

	rep #$30
	longa on
	longi on

	rts

EmptyPortList	lda #0
	sta CurrentPort
	
	rts
	
	ENDP


******************************************************************
*
* PostAlert (Message:word)
*
* Puts up alert box	for what ever error	has occurred that needs to
* be brought to the	user's attention.  This routine uses the arrow
* cursor during its operation but restores the previous cursor upon
* exit.  The input parameter "Message" chooses which alert box
* definition string to use.
*
******************************************************************
	EXPORT PostAlert
PostAlert	PROC
	
	defineStack
OrigCursor	long
OrigB	byte
OrigD	word
RTLAdr	block 3
Message	word
	
	phd	;setup environment
	phb
	phk
	plb
	
	pha	;save original cursor address on stack
	pha
	_GetCursorAdr
	
	jsr InitCursor	;set cursor to arrow
	
	pha	;pass result space for AlertWindow call
	pushword #%000	;pass reference is ptr to cstring for AlertWindow call
	pushlong #0	;pass no substitution array for AlertWindow call
	
PMPtr	lda Message,s	;pass an alert box def string for AlertWindow call
	dea
	bne PMPtrItsMesg2
	import SetupWriteErrMesg
PMPtrItsMesg1	pushlong #SetupWriteErrMesg
	bra DonePMPtr
	import CantFindDrvrMesg
PMPtrItsMesg2	pushlong #CantFindDrvrMesg
DonePMPtr
	_AlertWindow
	pla	;get button that was hit and ignore
	
	_SetCursor	;restore cursor address from stack
	
	plb	;restore environment and exit
	pld
	rtl
	
	ENDP


*****************************************************************
*
* SetupDriverLists
*
* Makes the ProDOS call GetDirEntry and	finds all the port and printer
* drivers in the */system/drivers folder.  The values NumPrinters and
* NumPorts are incremented respectively	each time a driver is found.
*
* When a driver is found it is either put into the PrinterList or PortList
* to be used later by the list manager for displaying in the Choose Printer
* dialog.
*
*****************************************************************
	EXPORT SetUpDriverLists
SetUpDriverLists	PROC

	stz PrinterListSize
	stz PortListSize

	lda #ListEntrySize*10 ; enough for 10 entries
	jsr GetMem
	bcc NoErr0
	brl Error
NoErr0	sta PrinterList
	stx PrinterList+2

	lda #ListEntrySize*10 ; enough for 10 entries
	jsr GetMem
	bcc NoErr1
	brl Error
NoErr1	sta PortList
	stx PortList+2

OpenAgain	_Open OpenParams
	bcc OpenOK

	brl Error

OpenOK	lda OpenID
	sta GetDirID
	sta CloseID

NextEntry	_Get_Dir_Entry GetDirParams
	bcs Done

	lda Length
	xba
	sta Length
	lda EntryName	; is this a real entry?
	and #$00FF
	beq NextEntry

	lda EntryType	; is this a driver file?
	and #$00FF
	cmp #$00BB
	bne NextEntry

	lda EntryAuxType
	cmp #$0001	; is it a printer driver?
	bne NotPrinter

	inc NumPrinters
	jsl InsertPrinterList
	bra NextEntry

NotPrinter	cmp #$0002	; is it a port driver?
	bne NotPortDrvr

	inc NumPorts
	jsl InsertPortList
	bra NextEntry

NotPortDrvr	cmp #$0003	; is it the AppleTalk Driver?
	bne NextEntry

	inc NoAppleTalk
	PushLong #EntryName
	PushLong #AppleTalkStr
	jsr CopyString
	bra NextEntry

Done	_Close CloseParams

	lda #0
	clc

	rtl

Error	pha	; save error returned on stack

	jsr DisposePrinterList
	jsr DisposePortList

	pla	; get error back from stack
	sec
	rtl

	ENDP


*****************************************************************
*
* InsertPrinterList
*
*****************************************************************
	EXPORT InsertPrinterList
InsertPrinterList	PROC

	movelong PrinterList,Temp1
	lda PrinterListSize
	sta ListSize
	clc
	adc #ListEntrySize
	sta PrinterListSize
	bra InsertInList


	EXPORT InsertPortList
InsertPortList	movelong PortList,Temp1
	lda PortListSize
	sta ListSize
	clc
	adc #ListEntrySize
	sta PortListSize

InsertInList	jsr DerefTemp1ToTemp2

	pha
	pha
	PushLong Temp1
	_GetHandleSize

	pla
	plx
	cmp ListSize
	beq NoRoom
	bcs ThereIsRoom

NoRoom	clc
	adc #2*ListEntrySize ; create enough space for 2 more drivers
	phx
	pha
	PushLong Temp1
	_SetHandleSize
	jsr DerefTemp1ToTemp2

ThereIsRoom	lda EntryName
	and #$000F
	tax
	clc
	adc ListSize
	adc #5
	tay

	sep #%00100000
	longa off

NameLoop	lda EntryName,x
	sta [Temp2],y
	dey
	dex
	bne NameLoop

	lda EntryName
	and #$0F
	sta [Temp2],y

	dey	; now zero out the memflag byte.
	lda #0
	sta [Temp2],y

	rep #%00100000
	longa on


	rtl

	ENDP


*****************************************************************
*
* DerefTemp1ToTemp2
*
*****************************************************************
	EXPORT DerefTemp1ToTemp2
DerefTemp1ToTemp2	PROC

	lda [Temp1]
	sta Temp2
	ldy #$0002
	lda [Temp1],y
	sta Temp2+2

	rts

	ENDP


*****************************************************************
*
* GetMem
*
*****************************************************************
	EXPORT GetMem
GetMem	PROC

	pha	; space for result.
	pha
	pea 0	; block size
	pha
	PushWord UserID	; Owner.
	PushWord #00	; no restrictions
	pha	; invalid loc info
	pha
	_NewHandle
	bcs AnError

	pla
	plx
	rts

AnError	plx
	plx
	rts

	ENDP


;                copy    utils.asm
******************************************************************
*
* EqualString
*
*     Pointer1
*     Pointer2
*
* This returns result in zero flag:
*
*    set if equal and
*    clear if not equal
*
******************************************************************
	EXPORT EqualString
EqualString	PROC
	DefineStack
OrigD	word
RTS	word
Ptr1	LONG
Ptr2	LONG

	phd
	tsc
	tcd

	sep #$30
	longa off
	longi off
	lda [Ptr1]
	cmp [Ptr2]
	bne NotEqual


	tay
CompareLoop	lda [Ptr1],y
	jsr UpperCase
	sta [Ptr1],y
	lda [Ptr2],y
	jsr UpperCase
	cmp [Ptr1],y
	bne NotEqual
	dey
	bpl CompareLoop

Equal	rep #$30
	longa on
	longi on

	pld
	pla
	plx
	plx
	plx
	plx
	pha
	lda #0
	rts

NotEqual	rep #$30
	longa on
	longi on
	pld
	pla
	plx
	plx
	plx
	plx
	pha
	rts

;----------------------------------------------------------
;
; Uppercase routine
;
; runs in 8 bit mode.
;
	longa off
	longi off
UpperCase	cmp #'a'
	bcc NoChange
	cmp #'z'
	bcc ChangeIt
	beq ChangeIt

NoChange	rts

ChangeIt	sec
	sbc #$20
	rts

	longa on
	longi on
	ENDP



****************************************************************
*
* CopyString
*
* Input : Pointer To Source String
*       : Pointer to Dest String
*
* Ouput : none
*
****************************************************************
	EXPORT CopyString
CopyString	PROC
	DefineStack
OrigD	word
RTLAdr	word
DestPtr	LONG
SrcPtr	LONG

	phd
	tsc
	tcd

	lda #0
	sep #%00100000
	longa off


	lda [SrcPtr]
	tay
Loop	lda [SrcPtr],y
	sta [DestPtr],y
	dey
	bpl Loop

	rep #$30
	longa on
	longi on

	pld

	pla

	plx
	plx
	plx
	plx

	pha

	rts

	ENDP





****************************************************************
*
* AppendString
*
* Input : Pointer To Orig String
*       : Pointer to New String
*
* Ouput : none
*
* New string is appended to orig string
*
****************************************************************
	EXPORT AppendString
AppendString	PROC
	DefineStack
OrigD	word
RTLAdr	word
NewPtr	LONG
OrigPtr	LONG

	phd
	tsc
	tcd

	sep #%00110000
	longa off
	longi off

	lda [OrigPtr]	; get orig length and put in x
	tax
	ldy #$01	; start y at 1 for new string

Loop	tya	; See if we are done with new
	cmp [NewPtr]	; string by comparing with length
	beq OneMoreTime
	bcs Done
OneMoreTime	lda [NewPtr],y	; now done so get next char
	phy	; save y on stack
	txy	; get pointer to last char in orig str
	iny	; bump by 1
	sta [OrigPtr],y	; store char in orig str
	tyx	; put back in x
	ply	; get index to new off stack
	iny	; bump by 1 and try	again
	bra Loop

Done	txa	; now update new length pointer
	sta [OrigPtr]

	rep #$30
	longa on
	longi on

	pld

	pla

	plx
	plx
	plx
	plx

	pha

	rts

	ENDP


******************************************************************
*
* Cursor Stuff
*
* These are public entry points to these common routines that
* are used so often	that it pays to have a simple jsr entry	point
* to them rather than wasting 7 bytes every time they are called.
*
******************************************************************
	EXPORT CursorStuff
CursorStuff	PROC

	EXPORT WaitCursor
WaitCursor	_WaitCursor
	rts

	EXPORT InitCursor
InitCursor	_InitCursor
	rts

	ENDP


******************************************************************
*
* DisposeStuff
*
* Disposes the PrinterList handle and the PortList handle.
*
******************************************************************
	EXPORT DisposeStuff
DisposeStuff	PROC


	EXPORT DisposePrinterList
DisposePrinterList	lda PrinterList
	ora PrinterList+2
	beq Done

	PushLong PrinterList
	_DisposeHandle

	stz PrinterList
	stz PrinterList+2

Done	rts


	EXPORT DisposePortList
DisposePortList	lda PortList
	ora PortList+2
	beq Done

	PushLong PortList
	_DisposeHandle

	stz PortList
	stz PortList+2

	rts


	ENDP


;                copy    exits

	EXPORT Exit
Exit	PROC

	EXPORT exit20
exit20	tax
	lda 5,s
	sta 25,s
	lda 3,s
	sta 23,s
	lda 1,s
	sta 21,s
	tsc
	clc
	adc #20
	tcs
	txa
	brl exit0

	EXPORT Exit16
Exit16	tax
	lda 5,s
	sta 21,s
	lda 3,s
	sta 19,s
	lda 1,s
	sta 17,s
	tsc
	clc
	adc #16
	tcs
	txa
	brl Exit0

	EXPORT Exit14
Exit14	tax
	lda 5,s
	sta 19,s
	lda 3,s
	sta 17,s
	lda 1,s
	sta 15,s
	tsc
	clc
	adc #14
	tcs
	txa
	brl Exit0

	EXPORT Exit12
Exit12	tax
	lda 5,s
	sta 17,s
	lda 3,s
	sta 15,s
	lda 1,s
	sta 13,s
	tsc
	clc
	adc #12
	tcs
	txa
	bra Exit0

	EXPORT Exit10
Exit10	tax
	lda 5,s
	sta 15,s
	lda 3,s
	sta 13,s
	lda 1,s
	sta 11,s
	tsc
	clc
	adc #10
	tcs
	txa
	bra Exit0

	EXPORT Exit8
Exit8	tax	;Standard 8 bytes input exit
	lda 5,s
	sta 13,s
	lda 3,s
	sta 11,s
	lda 1,s
	sta 9,s
	pla
	pla
	pla
	pla
	txa
	brl Exit0

	EXPORT Exit6
Exit6	tax	;Standard 6 bytes input exit
	lda 5,s
	sta 11,s
	lda 3,s
	sta 9,s
	lda 1,s
	sta 7,s
	pla
	pla
	pla
	txa
	brl Exit0

	EXPORT Exit4
Exit4	tax	;Standart 4 bytes input exit
	lda 5,s
	sta 9,s
	lda 3,s
	sta 7,s
	lda 1,s
	sta 5,s
	pla
	pla
	txa
	brl Exit0

	EXPORT Exit2
Exit2	tax	;Standard 2 bytes input exit
	lda 5,s
	sta 7,s
	lda 3,s
	sta 5,s
	lda 1,s
	sta 3,s
	pla
	txa
	EXPORT Exit0
Exit0	cmp #1	;Standard 0 byte input exit
	rtl

	ENDP


;                copy    insertdisk.asm
******************************************************************
*
* InsertDisk
*
* This routine puts	up an insert system	disk dialog and allows
* the user to press	OK or CANCEL.
*
******************************************************************
	EXPORT InsertDisk
InsertDisk	PROC

	_GetBootVol BootVolParams

	_ObscureCursor

	pha
	PushWord StartX
	PushWord StartY
	PushLong #InsertDiskStr
	PushLong #VolNameStr
	PushLong #OKButtonStr
	PushLong #CancelButtonStr
	_TLMountVolume
	pla
	cmp #1
	bne Done
	clc

Done	rts

BootVolParams	DC.L VolNameStr

VolNameStr	DS.B 16

StartX	DC.W 10
StartY	DC.W 25

	ENDP

;                copy    DATA.ASM
*****************************************************************
*
* Hopefully, we will find a way to get rid of this.
*
*****************************************************************
	EXPORT SillyData
SillyData	PROC

	EXPORT DispatchAdr
DispatchAdr		; this is address of the
	DS.B 4	; printer driver in	memory
	EXPORT DPortAdr
DPortAdr		; this is address of port
	DS.B 4	; driver in memory
	EXPORT PrinterList
PrinterList		; this is handle to list of
	DS.B 4	; printers on disk
	EXPORT PortList
PortList		; this is handle to list of
	DS.B 4	; ports on disk.
	EXPORT PrinterHandle
PrinterHandle		; handle to list of printer names
	DS.B 4
	EXPORT ZoneHandle
ZoneHandle		; handle to list of zone names
	DS.B 4

;-----------------------------------------------------------
;
; Pointer to document name as specified by application. If not set, it defaults
; to "Unknown". PrCloseDoc of the printer drivers will set the doc name back to
; the default after each job
;

	EXPORT DocumentNamePtr
DocumentNamePtr	DC.L DefaultDocName	; pointer to document's name

	EXPORT DefaultDocName
DefaultDocName	str 'Unknown'	; defaults the name to "Unknown"

	ENDP


*****************************************************************
*
* ReadDirData
*
*****************************************************************
	EXPORT ReadDirData
ReadDirData	PROC


	EXPORT SavedZoneName
SavedZoneName	DS.B 33
	EXPORT TempZone
TempZone	DS.B 33
	EXPORT TempPrType
TempPrType	DS.B 33
	EXPORT TempNetName
TempNetName
	EXPORT TempZone2
TempZone2	DS.B 33
	EXPORT WhereInModal
WhereInModal	DC.W 0
	EXPORT SomeThingFound
SomeThingFound	DC.W 0

	EXPORT DefaultZone
DefaultZone	str '*'

	EXPORT CurrentPrinter
CurrentPrinter	DS.B 16
	
	EXPORT CurrentDriver
CurrentDriver	DS.B 16
	
	EXPORT AppleTalkStr
AppleTalkStr	DS.B 16

	EXPORT NoAppleTalk
NoAppleTalk	DS.B 2

	EXPORT NumPrinters
NumPrinters	DS.B 2

	EXPORT NumPorts
NumPorts	DS.B 2

	EXPORT ListSize
ListSize	DS.B 2

	EXPORT PrinterListSize
PrinterListSize	DS.B 2

	EXPORT PortListSize
PortListSize	DS.B 2


	EXPORT OpenParams
OpenParams
	EXPORT OpenID
OpenID	DC.W 00	; Refnumb output.
	DC.L DirPath	; Pathname Pointer.
	DC.L 00	; File's Buffer Output.

	EXPORT CloseParams
CloseParams
	EXPORT CloseID
CloseID	DS.B 2

	EXPORT GetEOFParams
GetEOFParams	
	EXPORT GetEOFID
GetEOFID	DS.B 2
	EXPORT SizeOfFile
SizeOfFile	DC.L 00	; result, logical size of the file

	EXPORT DirPath
DirPath	str '*/system/drivers'

	EXPORT DriverPath
DriverPath	DS.B 40

	EXPORT TheEntry
TheEntry	DC.W $21
	EXPORT Length
Length	DC.B 0
	EXPORT EntryName
EntryName	DS.B 33

	EXPORT GetDirParams
GetDirParams
	EXPORT GetDirID
GetDirID	DC.W 00	; RefNumb
	DC.W 00	; flags
	DC.W 01	; base
	DC.W 01	; displacement
	DC.L TheEntry	; name of file
	DC.W 00	; entry number
	EXPORT EntryType
EntryType	DC.W 00	; file type
	DC.L 00	; eof
	DC.L 00	; block count
	DCB.B 8,00	; create time/date
	DCB.B 8,00	; mod time/date
	DC.W 00	; access attribute
	EXPORT EntryAuxType
EntryAuxType	DC.L 00	; auxiliary type field
	DC.W 00	; file system identifier

	EXPORT GetFileParams
GetFileParams		;
	DC.L DriverPath	; pathname
	DS.B 24	; result space

	ENDP


******************************************************************
*
* SetupData
*
* Data used for reading, writing and creating the setup file.
*
******************************************************************
	EXPORT SetupData
SetupData	PROC

	EXPORT CreateSetupParams
CreateSetupParams	DC.L SetupFileName	; Path pointer
	DC.W $c3	; access bits
	DC.W $06	; file type
	DC.L 0	; aux type
	DC.W 1	; storage type (seedling)
	DC.W 0	; create date
	DC.W 0	; create time

	EXPORT OpenSetupParams
OpenSetupParams
	EXPORT OpenSetupID
OpenSetupID	DC.W 0
	DC.L SetupFileName
	DC.L 0

	EXPORT ReadSetupParams
ReadSetupParams
	EXPORT ReadSetupID
ReadSetupID	DC.W 0
	DC.L CurrentPrinter1
	DC.L EndSetupFileInfo-SetupFileInfo
	EXPORT TransferCount
TransferCount	DC.L 0

	EXPORT WriteSetupParams
WriteSetupParams
	EXPORT WriteSetupID
WriteSetupID	DC.W 0
	DC.L CurrentPrinter1
	DC.L EndSetupFileInfo-SetupFileInfo
	DC.L 0

	EXPORT CloseSetupParams
CloseSetupParams
	EXPORT CloseSetupID
CloseSetupID	DC.W 0

	EXPORT DestroyParams
DestroyParams	DC.L SetupFileName

***	EXPORT SetupFileName
***SetupFileName	str '*/system/drivers/printer.setup'


	EXPORT SetupFileInfo
SetupFileInfo
	EXPORT CurrentPrinter1
CurrentPrinter1		; printer driver selection for appletalk
	DS.B 33
	EXPORT CurrentPrinter2
CurrentPrinter2		; printer driver selection for direct
	DS.B 33	; connect
	EXPORT CurrentPort
CurrentPort		; port driver selection
	DS.B 33
	EXPORT CurrentUser
CurrentUser	DS.B 16
	EXPORT CurrentNetName
CurrentNetName		; PrinterName+DeviceName+ZoneName
	DS.B 33	; this name used to	open connection
	EXPORT CurrentZoneName
CurrentZoneName	DS.B 33
	EXPORT AppleTalkOn
AppleTalkOn		; AppleTalk or Direct Connect on
	DS.B 2	; 0 is direct connect, 1 is appletalk
	EXPORT EndSetupFileInfo
EndSetupFileInfo



	ENDP


******************************************************************
*
* LoadData
*
******************************************************************
	EXPORT LoadData
LoadData	PROC


	EXPORT PrinterDriverID
PrinterDriverID	DS.B 2
	EXPORT PortDriverID
PortDriverID	DS.B 2
	EXPORT DriverError
DriverError	DS.B 2



	EXPORT DriverSubPath
DriverSubPath	str '*/system/drivers/'
;	     12345678901234567
	EXPORT PathBuffer
PathBuffer	DS.B 40

	EXPORT PrinterInMem
PrinterInMem	DS.B 16
	EXPORT PortInMem
PortInMem	DS.B 16

	ENDP


*****************************************************************
*
* Dummy drivers to be installed after a	driver is unloaded just
* in case something	bad happens before an actual driver is loaded.
*
*****************************************************************

	EXPORT DummyPrinter
DummyPrinter	PROC

	jmp (ProcList,x)
	rtl

ProcList	DC.L Err4	; PrintDefault
	DC.L Err4	; PrValidate
	DC.L Err4Plus	; PrStlDialog
	DC.L Err4Plus	; PrJobDialog
	DC.L Err0	; PrDrvrVer
	DC.L Err8Plus	; PrOpenDoc
	DC.L Err4	; PrCloseDoc
	DC.L Err8	; PrOpenPage
	DC.L Err4	; PrClosePage
	DC.L Err12	; PrPicfile
	DC.L Die	; PrControl
	DC.L Err0	; PrError
	DC.L Err2	; PrSetError
	DC.L Err0	; PrChanged
	DC.L Err10	; PrPixelMap
	DC.L Err0	; PrGetPrinterSpecs
	DC.L Err0	; PrGetPgOrientation
	
	ENDP

	EXPORT DummyPort
DummyPort	PROC

	jmp (ProcList,x)
	rtl

ProcList	DC.L Err4	; DevPrChanged
	DC.L Err4	; DevStartup
	DC.L Err0	; DevShutDown
	DC.L Err8	; DevOpen
	DC.L Err8	; DevRead
	DC.L Err10	; DevWrite
	DC.L Err0	; DevClose
	DC.L Err4	; DevStatus
	DC.L Err10	; DevAsyncRead
	DC.L Err10	; DevWriteBack
	DC.L Err0	; PrPortVer
	DC.L Err0	; DevIsItSafe

	ENDP

	EXPORT Errs
Errs	PROC

	EXPORT Err0
Err0	lda >DriverError
	brl Exit0

	EXPORT Err2
Err2	lda >DriverError
	brl Exit2

	EXPORT Err4
Err4	lda >DriverError
	brl Exit4

	EXPORT Err4Plus
Err4Plus	PushWord #2	; display, check chooser printer
	jsl PostAlert	; selections, message
	pla
	lda >DriverError
	brl Exit4

	EXPORT Err8
Err8	lda >DriverError
	brl Exit8

	EXPORT Err8Plus
Err8Plus	PushWord #2
	jsl PostAlert
	pla
	lda >DriverError
	brl Exit8

	EXPORT Err10
Err10	lda >DriverError
	brl Exit10

	EXPORT Err12
Err12	lda >DriverError
	brl Exit12

	EXPORT Die
Die	lda >DriverError
	pha
	PushLong #0
	_SysFailMgr

	ENDP

	END

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrintMgr/special.macros b/IIGS.601.SRC/GSToolbox/PrintMgr/special.macros
new file mode 100644
index 0000000..19af835
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrintMgr/special.macros
@@ -0,0 +1 @@
+
 MACRO
&lab moveword &from,&to1,&to2
 LCLC &C
&C setc &substr(&from,1,1)
 IF &C='[' GOTO .zeropage
&lab lda &from
 sta &to1
 IF &to2='' GOTO .a
 sta &to2
.a
 MEXIT
.zeropage
 IF &to1='0' GOTO .b
&lab ldy #&to1
 lda &from,y
 sta &to2
 MEXIT
.b
&lab lda &from
 sta &to2
 MEND
 
 
 MACRO
&lab movelong &from,&to1,&to2
 LCLC &C
 LCLC &REST
&C setc &substr(&from,1,1)
&REST setc &substr(&from,2,&LEN(&from)-1)
 IF &C='[' GOTO .zeropage
 IF &to2='' GOTO .a
&lab moveword &from,&to1,&to2
 GOTO .b
.a
&lab moveword &from,&to1
.b
 IF &C='#' GOTO .immediate
 IF &to2='' GOTO .c
 moveword &from+2,&to1+2,&to2+2
 MEXIT
.c
 moveword &from+2,&to1+2
 MEXIT
.immediate
 IF &to2='' GOTO .d
 moveword #^&REST,&to1+2,&to2+2
 MEXIT
.d
 moveword #^&REST,&to1+2
 MEXIT
.zeropage
&lab moveword &from,&to1,&to2
 ldy #&to1+2
 lda &from,y
 sta &to2+2
 MEND

 MACRO
&lab _GetDeviceName
&lab ldx #$1713
 jsl $E10000
 MEND

 MACRO
&lab _PrDevStartup
&lab ldx #19+256*26
 jsl $E10000
 MEND

 MACRO
&lab _PrDevShutDown
&lab ldx #19+256*27
 jsl $E10000
 MEND

 MACRO
&lab _GETFILEINFO &params
&lab jsl $E100A8
	DC.W	6
	DC.L	&params
 MEND

 MACRO
&lab _GETBOOTVOL &params
&lab jsl $E100A8
	DC.W	$28
	DC.L	&params
 MEND
 
 MACRO
&lab _DevIsItSafe
&lab ldx #$3013
 jsl $E10000
 MEND
 
 MACRO
&lab _DevPrChanged
&lab ldx #$1913
 jsl $E10000
 MEND
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrintMgr/vars b/IIGS.601.SRC/GSToolbox/PrintMgr/vars
new file mode 100644
index 0000000..f925721
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrintMgr/vars
@@ -0,0 +1 @@
+###### For File PrintMgr.asm

ProDOS Calls:
Open
Close
Read 
Write
GetDirEntry
Get_File_Info
Create
Destroy

UserId		Word
InPrChooser	Word
PrinterDriverID		Word
PortDriverID	Word
NumPrinters		Word
NumPorts		Word
NoAppleTalk		Word
DispatchAdr		Long
DPortAdr	Long
PortInMem	Word
WhatMessage640	Word
WhatMessage320	Word
PrinterList		Long
PortList		Long
PrinterHandle	Long
ZoneHandle		Long
PrinterListSize	Word
PortListSize	Word
ListSize	Word
WhereInModal	Word
SomethingFound	Word
InPrChooser		Word



Get Memory for these variables:
SavedZoneName	ds.b	33
TempZone		ds.b	33
TempPrType		ds.b	33
TempNetName
TempZone2		ds.b	33
CurrentPrinter	ds.b	16
CurrentDriver	ds.b	16
AppleTalkStr	ds.b	16

SetupFileInfo:
CurrentPrinter1	ds.b	33
CurrentPrinter2	ds.b	33
CurrentPort		ds.b	33
CurrentUser		ds.b	16
CurrentNetName	ds.b	33
CurrentZoneName	ds.b	33
AppleTalkOn		ds.b	2
PathBuffer		ds.b	40
PrinterInMem	ds.b	16
PortInMem		ds.b	16



#### For File PrChooser.asm
OrigPort	Long
VDialogPtr	Long
ATDialogPtr	Long
ChooserLeft		Word
ChooserRight	Word
ATChooserLeft	Word
ATChooserRight	Word
CheckPort		Word
ListRefCon1		Long
ScrollControl1	Long
ScrollRefCon1	Long
ListRefCon2		Long
ScrollControl2	Long
ScrollRefCon2	Long
AdrList1		Long
ListCount1		Word
EntrySize1		Word
ListControl1	Long
AdrList2		Long
ListCount2		Word
EntrySize2		Word
ListControl2	Long
ATAdrList		Long
ATListCount		Word
ATEntrySize		Word
ATListControl	Long
ATListRefCon	Long
ATScrollControl Long
ATScrollRefCon	Long


#### For File DialogData.asm
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/AppleTalk/appletalk.asm b/IIGS.601.SRC/GSToolbox/PrinterDrivers/AppleTalk/appletalk.asm
new file mode 100644
index 0000000..62af816
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/AppleTalk/appletalk.asm
@@ -0,0 +1 @@
+	title 'Print Manager--AppleTalk Driver   Verison 3.1'
*****************************************************************
*
*	      The Print Manager
*	 Apple Talk Port Driver  v3.1
*
*
* Original Code by Luc Barthelet and Versionsoft.
* Summer, Fall and Winter 1986
*
* Rewritten by Steven E. Glass
* March 13, 1987
*
* Version 1.0      Apr 10, 1987	Steven E. Glass
*
* Version 1.1      May 7, 1987	Steven E. Glass & Suki Lee 
*    Error checking	is done in all routines and passed back	to
*    caller via completion routine. 
*
* Version 1.2      Jun 19, 1987	Suki Lee
*    DevOpen no longer calls PapInit based on warning from
*    Greg Seitz. PapInit should only be	called by ATInit at
*    system start up. We could have potentially reinitialized
*    all file servers on the network.
*    DevOpen, DevClose, DevRead, DevWrite and DevStatus has
*    been rewritten	to follow AppleTalk	rules.
*
* Version 2.0d1    Nov 25, 1987	Harry Yee
*
* Version 2.0d2    Dec 03, 1987	Harry Yee
*    Parameter block for appletalk call	GetInfo changed.
*    Call DevStartup puts together the network name a little differently due to
*    a change in the printer drivers reverting back to the way PrChanged
*    was originally	called in the 1.2 drivers.
*
* Version 2.1      Aug 4, 1988	Suki Lee
*    Added timer to	time out on async write if it does not return. If the printer
*    is in an error	state, e.g. out of paper, paper jam, an	async write will not
*    return since it has not completed.	We force a return if the timer expires
*    before the write completion.
*
* Version 2.1d2    Aug 14, 1988	Steven Glass
*    The DevRead made a PapRead call without setting the first
*    word of the parameter table.  If the last call
*    made was an ASyncRead, it will still be set this way.
*    we fixed this by always writing the read code into the
*    parameter table.
*
*    There was a bug in the DevAsyncRead call.  This routine
*    checks for a completion vector and if it is zero uses
*    a sync read call.  But the code wrote the async code into
*    the write param block.
*
* Version 3.0d1    Nov 17, 1988	Suki Lee
*    The AppleShare Programmer's Guide for the IIGS states that the flow quantum 
*    parameter in the PAPOpen param block should always be 1. This value indicate
*    the number of 512 byte buffers. For whatever reason, ours is set to 8. The
*    code works fine now since the current PAPOpen ignores what's passed and
*    always sets it to 1, according to Tim Harrington. But for future compatibility, 
*    this value should be set to 1 in our param block.
*
*    Added code to return end of file flag from a PAPRead in DevAsyncRead's
*    completion routine. This value is returned in Y. 
*
* d2               Dec 2, 1988          Suki Lee
*    The new ROM has AppleTalk in slots 1 or 2, freeing up slot 7. The IsItSafe
*    routine is modified to check ROM verison and look at the appropriate slot   
*    to determine if AppleTalk is turned on in the control panel.
* 
* d3               Dec 16, 1988         Suki Lee
*    Added new header to denote this as a driver which will support new calls.
*    This header is 2 words long: first word is 0 followed by a call count word.
*
* d4               Jan 16, 1989         Suki Lee
*    Removed 3 calls, GetZoneList, GetPrinterList and GetMyZone, that are no longer
*    used since the Choose Printer functionality has been moved to the Control Panel.
*    Added code to return 0 in A for DevPrChanged and DevStartUp and return the result
*    from PAPStatus call in DevStatus.
*
* d5               Apr 17, 1989	Suki Lee
*    AppleTalk PAP for printers is designed so that when an open is received, it waits
*    2 seconds for other opens, if any, and then accepts the one which has been waiting
*    the longest. During this time, the printer will not accept any other type of PAP 
*    commands. The user may decide to cancel the print job at this early stage, so we 
*    need to build in a 2 second wait loop to disallow closing of the connection during
*    that window.
* 
* Version 3.1d1    Dec 15, 1989	Suki Lee
*    Increased 2 second timer to 3 seconds for a work around to bug in AppleTalk Option
*    Card.
*
* 3.1d2 (?)	6-Apr-92	Mark Day
*    Changed the algorithm used to see if AppleTalk is on.  It now checks for the
*    presence of the AppleTalk main driver.  This should make it work with the
*    EtherTalk card.  Changed returned version number to 3.1.
*
* (branch)	24-Jul-92	Mark Day
*    Testing out a quick little hack: DevOpen copying the session refnum immediately
*    after making the PAPOpen.  I moved it until after its 3 second delay.  It's too
*    bad that it doesn't actually wait for the open to complete....
*
* 3.1d9	29-Jul-92	Dave Lyons and Mark Day
*    Removed dead code & cleaned up GetTick calls (uses subroutine GetTickA).
*    Changed PrDevOpen to wait forever for the PAPOpen to complete, or until
*      they hit Command-Period.  Always retries on $0808 error (server too
*      busy to respond).  Retries ten times on $0805 error (name not found).
*    Changed PrDevWrite to wait forever for the PAPWrite to complete, or
*      until they hit Command-Period.
*
*    If you equate Debugging to 1, you get the following run-time breaks to
*    step over when things go wrong:
*       BRK $81   A = error coming back from DevStatus
*       BRK $82   A = error coming back from DevOpen
*       BRK $83   A = error coming back from DevRead
*       BRK $84   A = error coming back from DevWrite
*       BRK $85   A = error coming back from DevClose
*       BRK $86   A = error coming back from DevAsyncRead
*       BRK $87   IsItSafe is returning False
*
*       Also, the border color does funky psychadelic things while the
*       ShouldWeKeepWaiting routine keeps waiting.
*
* 25-Mar-93 DAL
*
* Made DevStatus keep trying on an $0808 error (Server Not Responding).
*
*****************************************************************

Debugging	equ 0

*****************************************************************
*
*	 Copyright 1986-1993
*	 Apple Computer, Inc.
*	 All Rights Reserved
*
*****************************************************************

	include 'all.macros'
	include 'special.macros'


;------------------------------------------
;
; Equates from procedure AppleTalkPort
;
;------------------------------------------
VersionNb	equ $0302	; Version 3.2 (2-Apr-93 SS)
NetNameLength	equ 99
NameLength	equ 33
EntrySize	equ NameLength+5	; 5 bytes needed by	list manager
NoError1	equ 0	; No error
PortNotOn	equ $1302	; Port not active
True	equ $FFFF
False	equ $0000
Temp1	equ 0
Init	equ $01
RegisterName	equ $0E
RemoveName	equ $0F
LookUpName	equ $10
ConfirmName	equ $11
pTemp	equ $0

;-----------------------------------------------
;
;   Imports
;
;-----------------------------------------------

	IMPORT AlertTemp320
	IMPORT AlertTemp640


;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

	ENTRY ChoosedName
	ENTRY CopyString
	ENTRY DATA
	ENTRY DevAsyncRead
	ENTRY DevClose
	ENTRY DevIsItSafe
	ENTRY DevOpen
	ENTRY DevPrChanged
	ENTRY DevRead
	ENTRY DevShutDown
	ENTRY DevStartup
	ENTRY DevStatus
	ENTRY DevWrite
	ENTRY DevWriteBackGround
	ENTRY Device
	ENTRY EofRead
	ENTRY EofWrite
	ENTRY exit0
	ENTRY exit4
	ENTRY Exit6
	ENTRY Exit8
	ENTRY Exit10
	ENTRY IsItSafe
	ENTRY Marker
	ENTRY OurOpenCompletion
	ENTRY OurReadCompletion
	ENTRY OurWriteCompletion
	ENTRY PapCloseParms
	ENTRY PapOpenParms
	ENTRY PapReadParms
	ENTRY PapStatusBuff
	ENTRY PapStatusParms
	ENTRY PapWriteParms
	ENTRY PrPortVer
	ENTRY ReadAdrBuf
	ENTRY ReadBuffer
	ENTRY ReadLength
	ENTRY ResultClose
	ENTRY ResultOpen
	ENTRY ResultRead
	ENTRY ResultWrite
	ENTRY SessionRefClose
	ENTRY SessionRefOpen
	ENTRY SessionRefRead
	ENTRY SessionRefWrite
	ENTRY StatusBuffer
	ENTRY StatusResult
	ENTRY WriteAddress
	ENTRY WriteBuffer
	ENTRY WriteLength
	ENTRY Zone

	entry ShouldWeKeepTrying
	entry myEventRecord,myEventMessage,myEventModifiers



*****************************************************************
*
* Port Drivers start with a jump table.	 The call number comes
* in the x-register	and is used to index into the jump table.
*
*****************************************************************
AppleTalkPort	PROC

;-----------------------------------------------------------
;
; Header to denote new calls supported
;

	DC.W 0	; marker
	DC.W (EndProcList-ProcList)/4 ; count of calls supported

	jmp (ProcList,x)


	EXPORT ProcList
ProcList	DC.L DevPrChanged
	DC.L DevStartup
	DC.L DevShutDown
	DC.L DevOpen
	DC.L DevRead
	DC.L DevWrite
	DC.L DevClose
	DC.L DevStatus
	DC.L DevAsyncRead
	DC.L DevWriteBackGround
	DC.L PrPortVer
	DC.L DevIsItSafe
	
EndProcList
	ENDP

;                copy Device
********************************
*	           *
* Device	           *
*	           *
* Current Rev.  Jun	11, 1987   *
*	           *
********************************


;--------------------------------------------------------------
;
; All the device calls which uses AppleTalk PAP calls has its
; own completions routine which executes caller's completion
; routine and loads	the returned result	code in the A register.
; The pointer to the routine's completion routine is passed
; as a parameter to	the PAP calls. The caller can check the
; result code in the A register.
;


***************************************************************
*
* PrPortVer 
*
* Returns version #	of currently installed port
*
***************************************************************
	EXPORT PrPortVer
PrPortVer	PROC

	DefineStack

OrigD	Word 0
OrigB	Byte 0
Rtl1	Block 3
Rtl2	Block 3
Version	Word 0

	phd
	tcd
	phb
	phk
	plb

	lda #VersionNb
	sta Version,s

	lda #0
	plb
	pld
	brl exit0

	ENDP

****************************************************************
*
* Deref
*
* Space for pointer	    LONG
* Handle for list	    LONG
*
* Dereference handle and put pointer into Pointer
*
***************************************************************
	EXPORT Deref
Deref	PROC

	DefineStack
origD	word
RTSAdr	word
Pointer	long
Handle	long

	phd
	tsc
	tcd

	ldy #2
	lda [Handle],y
	sta Pointer+2
	lda [Handle]
	sta Pointer

	pld	; restore direct page

	rts

	EndP


*****************************************************************
*
* DevPrChanged
*
*
*
*****************************************************************
	EXPORT DevPrChanged
DevPrChanged	PROC

	DefineStack
OrigB	byte
OrigD	word
RTLAdr1	block 3
RTLAdr2	block 3
DeviceType	long

	phd	; for some reason we save D

	phb	; save dbr
	phk	; and set dbr to k
	plb

	tsc
	tcd

	lda DeviceType
	clc
	adc #2	; skip past first two bytes before
	tax	; getting to the device name
	lda DeviceType+2
	adc #0
	pha
	phx
	PushLong #Device
	ldy #NameLength-1
	jsr CopyString

	lda Device
	and #$00FF
	inc a
	clc
	adc #Device
	sta Zone
	lda #^Device
	adc #0
	sta Zone+2

	lda #0
	plb
	pld
	brl Exit4

	ENDP


*****************************************************************
*
* DevStartup
*
*     Pointer to Network Device Name
*
* This is called at	PMStartup to tell this driver what the
* network device is	to be.
*
*****************************************************************
	EXPORT DevStartup
DevStartup	PROC

	DefineStack
StartUp_DPage	word 0
StartUp_BReg	byte 0
StartUp_rtl1	block 3
StartUp_rtl2	block 3
Startup_ZoneName	long 0
StartUp_PrinterName	long 0

	jsr IsItSafe
	bcc Yes
	brl Exit8

Yes		; 
	phd	; save d
	phb	; save dbr
	phk	; set dbr to k
	plb

	tsc
	tcd
;----------------------------------------------------------
;
; Copy name into ChoosedName field in local data.
;

	PushLong Startup_PrinterName
	PushLong #ChoosedName
	lda [Startup_PrinterName]
	and #$00FF
	tay
	jsr CopyString

	lda [Startup_PrinterName]
	and #$00FF
	inc a
	clc
	adc #ChoosedName
	sta Marker
	lda #^ChoosedName
	adc #0
	sta Marker+2

	PushLong #Device
	PushLong Marker
	lda Device
	and #$00FF
	tay
	jsr CopyString

	lda Device
	and #$00FF
	inc a
	clc
	adc Marker
	sta Marker
	lda Marker+2
	adc #0
	sta Marker+2

	PushLong Startup_ZoneName
	PushLong Marker
	lda [Startup_ZoneName]
	and #$00FF
	tay
	jsr CopyString

	lda #0
	plb
	pld
	brl Exit8

	ENDP



*****************************************************************
*
* DevShutDown
*
* Does nothing.
*
*****************************************************************
	EXPORT DevShutDown
DevShutDown	PROC

	jsr IsItSafe
	brl Exit0

	ENDP

*****************************************************************
*
* DevOpen
*
*      OpenCompletionPtr    LONG
*      Reserved	        LONG
*
*****************************************************************
	EXPORT DevOpen
DevOpen	PROC

	DefineStack
DevOpen_DPage	word 0
DevOpen_BReg	byte 0
DevOpen_rtl1	block 3
DevOpen_rtl2	block 3
Reserved	long 0
OpenCompletion	long 0

	jsr IsItSafe
	bcc Yes
	brl Exit8

Yes	phd	; save d
	phb	; save dbr
	phk	; set dbr to k
	plb

*** added 29-Jul-92 DAL/MSD -- retry the open on name-not-found ($0805) this many times
	lda #10
	sta OpenRetries
*** end 29-Jul-92

;--------------------------------------------------------------------
;
; EofWrite is the EOF flag for PAPWrite, it should be set ONLY when
; the last Write is	issued. We do it in	PAPClose by issuing	a PAPWrite
; with no data and the EofWrite set.
;
	sep #$20
	stz EofWrite
	rep #$20

	stz CallersCompletion1 ; assume low word is zero
	lda OpenCompletion+2,s ; look at OpenCompletion (high word
	sta CallersCompletion1+2 ; set first word of pointer
	ora OpenCompletion,s ; if NIL then do syncOpen
	beq syncOpen

	lda #$2380	; $23 is command code for PAPOpen
	sta PapOpenParms	; $80 indicates async call

	lda OpenCompletion,s ; now put low word	in.
	sta CallersCompletion1

	bra MakeCall

SyncOpen		; 
	lda #$2300	; $00 indicates synchronous call
	sta PapOpenParms

MakeCall	_AppleTalk PapOpenParms

	lda PAPOpenParms
	cmp #$2300	; if sync, no need to wait
	beq GoOn

*** 29-Jul-92 DAL and MSD -- keep waiting unless the call completes or they want to abort
KeepWaiting	lda ResultOpen
	jsr ShouldWeKeepTrying
	bcc KeepWaiting
*** end 29-Jul-92

GoOn

*** added 29-Jul-92 DAL/MSD -- If it's $0808 (server not responding) keep trying
	lda ResultOpen
	cmp #$0808
	beq MakeCall

*** if error is $0805 (name not found) then keep trying, up to 10 times
	cmp #$0805
	bne @strangeError
	dec OpenRetries
	bne MakeCall

@strangeError

;
; 24-Jul-92 MSD: This code had been just before the lda PAPOpenParms (i.e.
; before the 3 second delay).  If the open was async, it's unlikely the refnum
; was returned that fast.
;

*** get result now in case it becomes valid right after we try using the session ref
	lda ResultOpen
	pha

	sep #$20
	longa off
	lda SessionRefOpen
	sta SessionRefClose
	sta SessionRefRead
	sta SessionRefWrite
	longa on
	rep #$20

	pla	;ResultOpen to return as error code

                if Debugging then
	beq @noOpenError
	brk $82
@noOpenError
                endif

	plb
	pld
	brl Exit8


OpenRetries	dc.w 0	;retry on $0805 error until this gets down to zero

	EXPORT CallersCompletion1
CallersCompletion1	DS.B 4

	EXPORT OurOpenCompletion
OurOpenCompletion		;       
	lda >CallersCompletion1 ; not an async call
	ora >CallersCompletion1+2
	beq SkipIt

	lda >CallersCompletion1+1 ; execute the	caller's
	pha	; completion routine.
	phb
	lda >CallersCompletion1
	dec a
	sta 1,s

	lda >ResultOpen	; load returned result in A

SkipIt	rtl


	ENDP



*****************************************************************
*
* DevRead
*
*    Space for bytes transfered    WORD
*    Ptr to buffer	               LONG
*    Bytes to Transfer             WORD
*
*****************************************************************
	EXPORT DevRead
DevRead	PROC

	DefineStack
DevRead_DPage	word 0
DevRead_BReg	byte 0
DevRead_rtl1	block 3
DevRead_rtl2	block 3
ReadRqd	word 0
PtrReadBuf	long 0
readTrnsfrd	word 0

	jsr IsItSafe
	bcc Yes
	brl Exit6

Yes	phd	; save d
	phb	; set b to k
	phk
	plb

	lda PtrReadBuf,s
	sta ReadAdrBuf
	lda PtrReadBuf+2,s
	sta ReadAdrBuf+2

	lda #$2500	; force the parameters to be sync read
	sta PapreadParms

	_AppleTalk PapReadParms

	lda ReadLength	; store actual length read in result
	sta ReadTrnsfrd,s

	lda ResultRead

                if Debugging then
	beq @noReadErr
	brk $83
@noReadErr
                endif

	plb
	pld
	brl Exit6

	ENDP

*****************************************************************
*
* DevWrite
*
*      WriteCompletion routine     LONG
*      Ptr to buffer               LONG
*      length of buffer            WORD
*
*****************************************************************
	EXPORT DevWrite
DevWrite	PROC

	DefineStack
DevWrite_DPage	word 0
DevWrite_BReg	byte 0
DevWrite_rtl1	block 3
DevWrite_rtl2	block 3
WriteLengthS	word 0
WritePtrBuff	long 0
WriteCompletion	long 0

	jsr IsItSafe
	bcc Yes
	brl Exit10

Yes	phd
	phb
	phk
	plb

	stz CallersCompletion2 ; assume that no	completion 
	lda WriteCompletion+2,s ; check for completion routine
	sta CallersCompletion2+2
	ora WriteCompletion,s
	beq syncWrite	; none

	lda #$2680
	sta PapWriteParms
	lda WriteCompletion,s
	sta CallersCompletion2
	bra MakeCall

SyncWrite	lda #$2600
	sta PapWriteParms

MakeCall	lda WritePtrBuff+2,s
	sta WriteAddress+2
	lda WritePtrBuff,s
	sta WriteAddress
	lda WriteLengths,s
	sta WriteLength

	_AppleTalk PapWriteParms

*** 29-Jul-92 DAL and MSD -- This was boneheaded.  Try really hard to succeed.
LoopWait	lda ResultWrite
	jsr ShouldWeKeepTrying
	bcc LoopWait
*** end 29-Jul-92

	lda ResultWrite

                if Debugging then
	beq @noWriteErr
	brk $84
@noWriteErr
                endif

	plb
	pld
	brl Exit10


	EXPORT CallersCompletion2
CallersCompletion2	DS.B 4

	EXPORT OurWriteCompletion
OurWriteCompletion
	lda >CallersCompletion2
	ora >CallersCompletion2+2
	beq SkipIt

	lda >CallersCompletion2+1
	pha
	phb
	lda >CallersCompletion2
	dec a
	sta 1,s

	lda >ResultWrite

SkipIt	rtl

	ENDP

*****************************************************************
*
* DevClose
*
*     No inputs.
*
*****************************************************************
	EXPORT DevClose
DevClose	PROC

	jsr IsItSafe
	bcc Yes
	brl Exit0

Yes	phd
	phb
	phk
	plb

;--------------------------------------------------------------
;
; Set EofWrite to indicate this is the last Write to be issued.
; Issues a PAPWrite	with no data to send only the EOF flag.
; 
	sep #$20
	longa off
	lda #$01
	sta EofWrite
	longa on
	rep #$20

	lda #$2600
	sta PapWriteParms

	stz WriteAddress+2
	stz WriteAddress
	stz WriteLength

	_AppleTalk PapWriteParms

;--------------------------------------------------------------
;
; Finally, make the	close call.


	_AppleTalk PapCloseParms

	lda ResultClose

                if Debugging then
	beq @noCloseErr
	brk $85
@noCloseErr
                endif

	plb
	pld
	brl Exit0

	ENDP

*****************************************************************
*
* DevStatus
*
*    Pointer to Input Status Buffer	LONG
*
*****************************************************************
	EXPORT DevStatus
DevStatus	PROC

	DefineStack
DevStatus_DPage	word 0
DevStatus_BReg	byte 0
DevStatus_rtl1	block 3
DevStatus_rtl2	block 3
AppStatusBuffer	long 0

	jsr IsItSafe
	bcc Yes
	brl Exit4

Yes	phd
	phb
	phk
	plb

	lda AppStatusBuffer,s
	sta PapStatusBuff
	lda AppStatusBuffer+2,s
	sta PapStatusBuff+2

@tryAgain	_AppleTalk PapStatusParms

*** added 25-Mar-93 DAL -- Be persistent!  I don't like those $0808 errors!
	lda statusResult
	cmp #$0808		;"Server Not Responding"
	bne @not0808

	lda #$00ff		;pretend it's not done
	jsr ShouldWeKeepTrying
	bcc @tryAgain
*** end 25-Mar-93

@not0808	lda statusResult

                if Debugging then
	beq @noPapError
	brk $81
@noPapError
                endif
	plb
	pld
	brl Exit4

	ENDP

*****************************************************************
*
* DevAsyncRead
*
*     Actual length	read             WORD
*     Ptr to completion routine      LONG
*     How much to read               WORD
*     Ptr to buffer	                 LONG
*
*****************************************************************
	EXPORT DevAsyncRead
DevAsyncRead	PROC

	DefineStack

AsyncRead_DPage	word 0
AsyncRead_BReg	byte 0
AsyncRead_rtl1	block 3
AsyncRead_rtl2	block 3
Buffer	long 0
DataLength	word 0
Completion	long 0
ActualLength	word 0

	jsr IsItSafe
	bcc Yes
	brl Exit10

Yes	phd
	phb
	phk
	plb

	stz CallersCompletion3 ; assume that no	completion 
	lda Completion+2,s	; check for completion routine
	sta CallersCompletion3+2
	ora Completion,s
	beq syncRead	; none

	lda #$2580
	sta PapReadParms
	lda Completion,s
	sta CallersCompletion3
	bra MakeCall

SyncRead	lda #$2500
	sta PapReadParms	; this was write SEG 14 Aug 88

MakeCall	lda Buffer+2,s
	sta ReadAdrBuf+2
	lda Buffer,s
	sta ReadAdrBuf

	_AppleTalk PapReadParms

;------------------------------------------------------------------
;
; Data from the next 3 lines of code are valid at this time	for
; sync Reads only
;

	ldx ResultRead	;get the result first in case it's not done (29-Jul-92 DAL/MSD)

	lda ReadLength	; store actual length read in result
	sta ActualLength,s

;;;	lda ResultRead
	txa	;29-Jul-92 DAL/MSD

                if Debugging then
	beq @noReadErr
	brk $86
@noReadErr
                endif

	plb
	pld
	brl Exit10

	EXPORT CallersCompletion3
CallersCompletion3	DS.B 4

	EXPORT OurReadCompletion
OurReadCompletion		;       
	lda >CallersCompletion3
	ora >CallersCompletion3+2
	beq SkipIt

	lda >CallersCompletion3+1 ; put completion routines address	on
	pha	; stack
	phb
	lda >CallersCompletion3
	dec a
	sta 1,s

	lda >ReadLength	; put actual length in X-reg
	tax

	lda >EofRead	; put end of file flag in Y-reg
	tay

	lda >ResultRead	; put error code in	A-reg

SkipIt	rtl	; make call by executing RTL

	ENDP


*****************************************************************
*
* DevWriteBackground
*
*      Pointer to CompletionProc	LONG
*      Buffer Size		WORD
*      Pointer to Buffer	LONG
*
* This one does not	seem to be implemented.
*
*****************************************************************
	EXPORT DevWriteBackground
DevWriteBackground	PROC

	jsr IsItSafe
	bcc Yes
	brl Exit10

Yes	phd
	phb
	phk
	plb

	plb
	pld
	brl Exit10

	ENDP


***************************************************************
*
* DevIsItSafe
*
*    Output:  Safety    WORD    boolean
*
* 
* EntryPoint to driver from outside.
*
* Safety is true if	it is safe, false if not.
* 
***************************************************************
	EXPORT DevIsItSafe
DevIsItSafe	PROC
	DefineStack
RTL1	block 3
RTL2	block 3
Result	word

	jsr IsItSafe
	bcc Yes

	lda #False
	sta Result,s

GetOut	lda #0
	brl Exit0

Yes	lda #True
	sta Result,s
	bra GetOut

	ENDP


***************************************************************
*
* IsItSafe
*
* Common routine to	see if the device we want to deal with
* is switched in.
*
* If it is safe, a-reg is set to zero and carry is clear.
* If it is NOT safe, a-reg is set to error code and carry is
*    set. 
* 
***************************************************************
	EXPORT IsItSafe
IsItSafe	PROC
	
;
; 6-Apr-92 MSD: Changed the algorithm used to determine whether AppleTalk
; is installed and running.  The supported way is to check for the
; presence of a device driver with deviceID = $1D.
;
AppleTalkMain	equ $001D	; AppleTalk main device driver deviceID

	lda #1	; start with first device in list
loop
	sta >devNum

	_DInfoGS DInfoPB
	bcs noAppleTalk	; assume it was invalid device number
	
	lda >deviceID
	cmp #AppleTalkMain
	beq yesAppleTalk	; we found it!
	
	lda >devNum
	ina	; try the next device
	bra loop

noAppleTalk
	sec
	lda #PortNotOn	; error is port not turned on

                if Debugging then
	brk $87
                endif
	bra exit
yesAppleTalk
	clc
	lda #0	; no error, we found it
exit
	rts


DInfoPB
	dc.w 8	; through deviceID
devNum	dc.w 0
	dc.l nameBuffer	; pointer to result buffer for name
	dc.w 0	; characteristics
	dc.l 0	; total blocks
	dc.w 0	; slot number
	dc.w 0	; unit number
	dc.w 0	; version
deviceID	dc.w 0

nameBuffer
	dc.w 35	; size of result buffer
	dc.w 0	; actual size of name
	ds.b 31	; room for name
	
;	pha
;	pha
;	pha
;	pha	; 4 word spaces for result
;	pha	; A reg value, don't care
;	pha	; x reg value, don't care
;	pha	; y reg value, don't care
;	lda #$FE1F	; the entry point to a routine which
;	pha	; returns system information
;	_FWEntry
;	pla	; Y register has ROM version
;	plx	; get unused values off stack
;	plx
;	plx	
;	and #$00FF	; in bits 7 - 0
;	cmp #3	; Version 3 or greater has AppleTalk
;	bge ROM3Plus	; in slots 1 or 2
;	
;	lda >$E0C02D	; Read slot state, lo byte has the info
;	and #$0080	; bit 7 set means external
;
;	beq ExitSafe
;NotOn	lda #PortNotOn	; set error to port	not turned on
;	bra ExitNotSafe
;	
;ROM3Plus
;	lda >$E101C0	; Read AppleTalk port location
;	and #$00FF	; lo byte only
;	beq NotOn 	; 0 means it's not on 
;
;ExitSafe		 
;	lda #0	; no problems
;ExitNotSafe	cmp #1
;	rts
;
;SafeError	DS.B 2

	ENDP



****************************************************************
*
* PortAlert
*
* Alert box to tell	user that the appropriate port is not turned
* on.
*
* no parameters on stack
*
****************************************************************
	EXPORT PortAlert
PortAlert	PROC


	_InitCursor	; restore cursor back to arrow

	pha	; make room for result
	_GetMasterSCB
	pla
	pha	; make room for result of alert call 
	and #$80	; check mode 
	beq mode320	; 320 mode

	pushlong #alerttemp640 ; use 640 mode template
	bra GoOn

mode320	pushlong #alerttemp320 ; use 320 mode template

GoOn	pushlong #$0000
	_StopAlert

;              jsr WaitCursor	; set to watch again

	pla	; get the item hit off stack

	rts


	ENDP




***************************************************************
*
* Data
* 
***************************************************************
	EXPORT Data
Data	PROC

	EXPORT PapOpenParms
PapOpenParms		; 
	DC.B $80	; sync flag  (modified in line
	DC.B $23	; depending on call
	EXPORT ResultOpen
ResultOpen	DC.W 0
	DC.L OurOpenCompletion ; completion pointer
	EXPORT SessionRefOpen
SessionRefOpen	DC.B 0
	EXPORT OpenName
OpenName	DC.L ChoosedName
	DC.B 1	; indicates one 512 byte buffer
	DC.L StatusBuffer


	EXPORT PapReadParms
PapReadParms		; 
	DC.B $00	; sync / async flag
	DC.B $25
	EXPORT ResultRead
ResultRead	DC.W 0
	DC.L OurReadCompletion ; completion routine pointer
	EXPORT SessionRefRead
SessionRefRead	DC.B 0
	EXPORT ReadLength
ReadLength	DC.W 0
	EXPORT ReadAdrBuf
ReadAdrBuf	DC.L ReadBuffer
	EXPORT EofRead
EofRead	DC.B 0


	EXPORT PapCloseParms
PapCloseParms		; 
	DC.B $00	; synchronous
	DC.B $24
	EXPORT ResultClose
ResultClose	DC.W 0
	DC.L 0
	EXPORT SessionRefClose
SessionRefClose	DC.B 0


	EXPORT PapWriteParms
PapWriteParms		; 
	DC.B $80	; sync / async flag
	DC.B $26
	EXPORT ResultWrite
ResultWrite	DC.W 0
	EXPORT papWriteProc
papWriteProc	DC.L OurWriteCompletion ; completion pointer
	EXPORT SessionRefWrite
SessionRefWrite	DC.B 0
	EXPORT WriteLength
WriteLength	DC.W 512
	EXPORT WriteAddress
WriteAddress	DC.L WriteBuffer
	EXPORT EofWrite
EofWrite	DC.B 0

	EXPORT PapStatusParms
PapStatusParms		; 
	DC.B $00	; sync
	DC.B $22
	EXPORT StatusResult
StatusResult	DC.W 0
	DC.L 0	; no completion pointer
	EXPORT StatusName
StatusName	DC.L ChoosedName
	EXPORT PapStatusBuff
PapStatusBuff	DC.L StatusBuffer




	EXPORT Device
Device	DS.B 65	; printers in a specified zone

	EXPORT Zone
Zone	DS.B 4	; contains address of where zone name
;	            ; is to	go in NameLookup structure
	EXPORT Marker
Marker	DS.B 4

	EXPORT ChoosedName
ChoosedName	DS.B 99	; contains the printer name, device name
;		; and zone name. Used by the Appletalk
;		; PAP calls to open	connection for
;		; printing.

	EXPORT StatusBuffer
StatusBuffer	DS.B 128	; Please keep the buffers
	EXPORT ReadBuffer
ReadBuffer	DS.B 512	; one after the other to
	EXPORT WriteBuffer
WriteBuffer	DS.B 512+8	; let them used by lookup


*** added 29-Jul-92 DAL
	export myEventRecord,myEventMessage,myEventModifiers
myEventRecord	dc.w 0	;what
myEventMessage	dc.l 0	;message
	dc.l 0	;when
	dc.w 0,0	;where
myEventModifiers	dc.w 0	;modifiers
*** end 29-Jul-92

	ENDP




;                copy DynamicExits
	EXPORT DynamicExits
DynamicExits	PROC
* in a Dynamic exit	we need to save 2 RTLs

	EXPORT exit20
exit20	tax
	lda 5,s
	sta 25,s
	lda 3,s
	sta 23,s
	lda 1,s
	sta 21,s
	tsc
	clc
	adc #20
	tcs
	txa
	brl exit0

	EXPORT Exit16
Exit16	tax
	lda 5,s
	sta 21,s
	lda 3,s
	sta 19,s
	lda 1,s
	sta 17,s
	tsc
	clc
	adc #16
	tcs
	txa
	brl Exit0

	EXPORT Exit14
Exit14	tax
	lda 5,s
	sta 19,s
	lda 3,s
	sta 17,s
	lda 1,s
	sta 15,s
	tsc
	clc
	adc #14
	tcs
	txa
	brl Exit0

	EXPORT Exit12
Exit12	tax
	lda 5,s
	sta 17,s
	lda 3,s
	sta 15,s
	lda 1,s
	sta 13,s
	tsc
	clc
	adc #12
	tcs
	txa
	bra Exit0

	EXPORT Exit10
Exit10	tax
	lda 5,s
	sta 15,s
	lda 3,s
	sta 13,s
	lda 1,s
	sta 11,s
	tsc
	clc
	adc #10
	tcs
	txa
	brl Exit0

	EXPORT Exit8
Exit8	tax	; Standard 8 bytes input exit
	lda 5,s
	sta 13,s
	lda 3,s
	sta 11,s
	lda 1,s
	sta 9,s
	pla
	pla
	pla
	pla
	txa
	brl Exit0

	EXPORT Exit6
Exit6	tax	; Standard 6 bytes input exit
	lda 5,s
	sta 11,s
	lda 3,s
	sta 9,s
	lda 1,s
	sta 7,s
	pla
	pla
	pla
	txa
	brl Exit0

	EXPORT Exit4
Exit4	tax	; Standard 4 bytes input exit
	lda 5,s
	sta 9,s
	lda 3,s
	sta 7,s
	lda 1,s
	sta 5,s
	pla
	pla
	txa
	brl Exit0

	EXPORT Exit2
Exit2	tax	; Standard 2 bytes input exit
	lda 5,s
	sta 7,s
	lda 3,s
	sta 5,s
	lda 1,s
	sta 3,s
	pla
	txa
	EXPORT Exit0
Exit0	cmp #1	; Standard 0 byte input exit
	rtl

	ENDP
;                copy utils.asm
****************************************************************
*
* CopyString
*
* Input : Pointer To Source String
*       : Pointer to Dest String
*
* Ouput : none
*
* Register Y contains the number of bytes to copy from the source
* pointer to the destination ptr.
*
****************************************************************
	EXPORT CopyString
CopyString	PROC
	DefineStack
OrigD	word
RTSAdr	word
DestPtr	LONG
SrcPtr	LONG

	phd
	tsc
	tcd

	lda #0
	sep #%00100000
	longa off

Loop	lda [SrcPtr],y
	sta [DestPtr],y
	dey
	bpl Loop

	rep #%01100000
	longa on
	longi on

	pld

	pla

	plx
	plx
	plx
	plx

	pha

	rts

	ENDP


****************************************************************
*
* ShouldWeKeepTrying (jsr)
*
* Input:
*   A = error word from an async AppleTalk call, $xxFF if incomplete
*
* Output:
*   SEC if we are done (the call completed or the user wants to
*       give up)
*   CLC if we should keep waiting (call is not complete and user
*       is being very patient and trusting)
*
****************************************************************
ShouldWeKeepTrying	proc

                if Debugging then
	pha
	sep #$20
	longa off
	lda >$e1c034
	eor #$0f
	sta >$e1c034
	rep #$20
	longa on
	pla
                endif

	and #$00ff	;still going if low byte is $ff
	cmp #$00ff
	bne StopWaiting

	pha	;space for EventAvail result
	pea $0008	;keyDown mask
	pushlong #myEventRecord
	_EventAvail
	pla
	beq KeepWaiting

	lda myEventMessage
	and #$00ff
	cmp #$002e	;Period
	bne notCmdPeriod
	lda myEventModifiers
	and #$0100	;Command key
	bne StopWaiting

*** They pressed a key, but not Command-period.  Grab it so we can see a new key next time.

notCmdPeriod	pha
	pea $0008
	pushlong #myEventRecord
	_GetNextEvent
	pla
KeepWaiting	clc
	rts

StopWaiting	sec
	rts

	EndP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/AppleTalk/dialogdata.asm b/IIGS.601.SRC/GSToolbox/PrinterDrivers/AppleTalk/dialogdata.asm
new file mode 100644
index 0000000..51ed11f
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/AppleTalk/dialogdata.asm
@@ -0,0 +1 @@
+			STRING ASIS
			BLANKS OFF
			
			MACRO
&lab		str &string
			EXPORT &lab						; export the label
			LCLC &EIB						; declare a temporary var to hold current string setting
&EIB		SETC &SETTING('STRING') 		; put current string setting into temp
			STRING PASCAL					; Set string type to pascal.
&lab		DC.B	&string 				; make the string
			STRING &EIB 					; restore orig string settings
			MEND


			include 'e16.dialog'


;------------------------------------------------------------
; AppleTalk Driver Version 3.1
; Copyright Apple Computer, Inc. 1986-88
; All rights reserved.
;------------------------------------------------------------

		EXPORT	DialogData     
DialogData     PROC


;------------------------------------------------------------
;
; data used by manual feed alert box
;

;------------------------------------------------------------
;
; 640 mode
; 


		EXPORT	alerttemp640
alerttemp640	DC.W	30,40,75,600	; bounds rect
				DC.W	1301			; id
				DC.B	$80
				DC.B	$80
				DC.B	$80
				DC.B	$80
				DC.L	item1_640		; Continue
				DC.L	item2_640		; text
				DC.L	0000


		EXPORT	item1_640
item1_640	DC.W	1				; id
			DC.W	22,470,0,0		; bounds rect for button
			DC.W	ButtonItem		; type
			DC.L	But1			; item descriptor - "Continue"
			DC.W	00				; item value
			DC.W	0				; item flag
			DC.L	0				; item color

		EXPORT	item2_640
item2_640	DC.W	2	; id
			DC.W	3,100,43,400		; bounds rect for button
			DC.W	LongStatText		; type
			DC.L	Msg1_640			; item descriptor
			DC.W	Len_Msg1_640		; item value
			DC.W	0					; item flag
			DC.L	0					; item color

But1        str 'OK'

		EXPORT	Msg1_640
Msg1_640	DC.B	$0d
			DC.B	'AppleTalk is not selected in the'
			DC.B	$0d
			DC.B	'Control Panel.'
Len_Msg1_640 equ *-Msg1_640

;------------------------------------------------------------
;
; 320 mode
; 
		EXPORT	alerttemp320
alerttemp320	DC.W	30,10,95,310	; bounds rect
	DC.W	1301						; id
	DC.B	$80
	DC.B	$80
	DC.B	$80
	DC.B	$80
	DC.L	item1_320					; Continue
	DC.L	item2_320					; text
	DC.L	0000		


		EXPORT	item1_320
item1_320	DC.W	1				; id
			DC.W	45,235,0,0		; bounds rect for button
			DC.W	ButtonItem		; type
			DC.L	But1			; item descriptor - "Continue"
			DC.W	00				; item value
			DC.W	0				; item flag
			DC.L	0				; item color

		EXPORT	item2_320
item2_320	DC.W	2				; id
			DC.W	3,55,63,225		; bounds rect for text
			DC.W	LongStatText	; type
			DC.L	Msg1_320		; item descriptor
			DC.W	Len_Msg1_320	; item value
			DC.W	0				; item flag
			DC.L	0				; item color
 

		EXPORT	Msg1_320
Msg1_320	DC.B	$0d
			DC.B	'AppleTalk is not'
			DC.B	$0D
			DC.B	'selected in the'
			DC.B	$0d
			DC.B	'Control Panel.'
Len_Msg1_320 equ *-Msg1_320


		ENDP

 		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/AppleTalk/makefile b/IIGS.601.SRC/GSToolbox/PrinterDrivers/AppleTalk/makefile
new file mode 100644
index 0000000..ab45cd2
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/AppleTalk/makefile
@@ -0,0 +1 @@
+appletalk		Ä		appletalk.asm.obj dialogdata.asm.obj ¶
						special.macros
	Linkiigs appletalk.asm.obj dialogdata.asm.obj -o appletalk -t $BB -at $0003
	

Appletalk.asm.obj	Ä		appletalk.asm  special.macros
	asmiigs appletalk.asm
	
DialogData.asm.obj	Ä		dialogdata.asm  special.macros
	asmiigs dialogdata.asm
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/AppleTalk/special.macros b/IIGS.601.SRC/GSToolbox/PrinterDrivers/AppleTalk/special.macros
new file mode 100644
index 0000000..42b6b43
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/AppleTalk/special.macros
@@ -0,0 +1 @@
+ MACRO
&Lab _SetDeviceName
&Lab ldx #19+256*24
 Jsl $e10000
 Mend
 MACRO
&Lab _PMGetUserName
&Lab ldx #19+256*42
 Jsl $E10000
 Mend
 MACRO
&Lab _PMGetZoneName
&Lab ldx #19+256*7
 Jsl $E10000
 Mend
 MACRO
&Lab _PMGetNetworkName
&Lab ldx #19+256*43
 Jsl $e10000
 Mend
 MACRO
&Lab _PrDevWrite
&Lab ldx #19+256*30
 Jsl $e10000
 Mend
 MACRO
&Lab _Appletalk &params
&Lab ldx #<&params
 ldy #^&params
 jsl $e11014
 Mend
 MACRO
&Lab _Names &MyName
 bra Skip&SysCnt
 dc i1'$42'
 dc i1'L:&MyName'
 msb on
 dc c'&MyName'
 msb off
Skip&SysCnt Anop
 Mend
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/DummyFile b/IIGS.601.SRC/GSToolbox/PrinterDrivers/DummyFile
new file mode 100644
index 0000000..af83f4e
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/DummyFile
@@ -0,0 +1 @@
+x
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/Epson/dialogdata.asm b/IIGS.601.SRC/GSToolbox/PrinterDrivers/Epson/dialogdata.asm
new file mode 100644
index 0000000..2b242e6
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/Epson/dialogdata.asm
@@ -0,0 +1 @@
+	STRING ASIS
	BLANKS OFF
	
;---------------------------------------------------------
;  Epson Driver Version 2.0
;  Copyright Apple Computer, Inc. 1986-1989
;  All rights reserved.
;---------------------------------------------------------


	MACRO
&lab	str &string
	EXPORT &lab	; export the label
	LCLC &EIB	; declare a temporary var to hold current string setting
&EIB	SETC &SETTING('STRING') ; put current string setting into temp
	STRING PASCAL	; Set string type to pascal.
&lab	DC.B &string	; make the string
	STRING &EIB	; restore orig string settings
	MEND

	INCLUDE 'e16.dialog'

;------------------------------------------
;
; Equates from procedure DialogData
;
;------------------------------------------
US	equ 0
FR	equ 1
Pays	equ US

nullevent	equ 0
mousedown	equ 1
mouseup	equ 2
keydown	equ 3
autokey	equ 5
updtevt	equ 6
activevt	equ 8
switchevt	equ 9
deskaccevt	equ 10
deviceevt	equ 11
vr	equ 8
hr	equ 10
StyleUPLy	equ 0
StyleUPLx	equ 0
StyleLWRy	equ 145
StyleLWRx	equ 300

;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

	IMPORT c
	IMPORT screenport

;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

	ENTRY But1
	ENTRY But2
	ENTRY Cancelrect
	ENTRY Cancelstr
	ENTRY ColorStr
	ENTRY DefaultCopie
	ENTRY DefaultFrom
	ENTRY DefaultTo
	ENTRY EndInfoStrDraft
	ENTRY EndInfoStrPrep
	ENTRY EndInfoStrPrint
	ENTRY EndWDef640
	ENTRY GapPageStr
	ENTRY JDIT1
	ENTRY JDIT10
	ENTRY JDIT11
	ENTRY JDIT12
	ENTRY JDIT13
	ENTRY JDIT2
	ENTRY JDIT3
	ENTRY JDIT4
	ENTRY JDIT5
	ENTRY JDIT6
	ENTRY JDIT7
	ENTRY JDIT8
	ENTRY JDIT9
	ENTRY Msg1_320
	ENTRY Msg1_640
	ENTRY Okstr
	ENTRY Orientstr
	ENTRY P1rect
	ENTRY P1str
	ENTRY P2rect
	ENTRY P2str
	ENTRY P3rect
	ENTRY P4rect
	ENTRY P5rect
	ENTRY PFeedstr
	ENTRY Pagestr
	ENTRY Paperstr
	ENTRY Pf1str
	ENTRY Pf2str
	ENTRY Pr1rect
	ENTRY Pr2Rect
	ENTRY Qstr
	ENTRY Spe1str
	ENTRY Spe2str
	ENTRY SpeStr
	ENTRY VSize2Str
	ENTRY Vsize1Str
	ENTRY VsizeStr
	ENTRY copstr
	ENTRY dstbitr1
	ENTRY dstbitr2
	ENTRY item1_320
	ENTRY item1_640
	ENTRY item2_320
	ENTRY item2_640
	ENTRY item3_320
	ENTRY item3_640
	ENTRY landsc_bit
	ENTRY landsc_p
	ENTRY landsc_r
	ENTRY okrect
	ENTRY p3str
	ENTRY p4str
	ENTRY p5str
	ENTRY pf1rect
	ENTRY pf2rect
	ENTRY portrait_bit
	ENTRY portrait_p
	ENTRY portrait_r
	ENTRY pr1str
	ENTRY pr2str
	ENTRY pr3str
	ENTRY q1Rect
	ENTRY q1str
	ENTRY q2Rect
	ENTRY q2str
	ENTRY q3Rect
	ENTRY q3str
	ENTRY releaseStr
	ENTRY s1rect
	ENTRY s2rect
	ENTRY v1rect
	ENTRY v2rect
	

	EXPORT DialogData
DialogData	PROC

*              using MainData


	IF  Pays=US	GOTO .US
	IF  Pays=FR	GOTO .FR
.US
	EXPORT SlashStr
SlashStr	str '/'
	EXPORT namestr
namestr	str 'Epson'
	EXPORT Paperstr
Paperstr	str 'Paper:'
	EXPORT P1str
P1str	str 'US Letter'
	EXPORT P2str
P2str	str 'US Legal'
	EXPORT p3str
p3str	str 'A4 Letter'
	EXPORT p4str
p4str	str 'International Fanfold'
	EXPORT p5str
p5str	str 'Computer Paper'
	EXPORT VsizeStr
VsizeStr	str 'Vertical Sizing:'
	EXPORT Vsize1Str
Vsize1Str	str 'Normal'
	EXPORT VSize2Str
VSize2Str	str 'Condensed'
	EXPORT SpeStr
SpeStr	str 'Printer Effects:'
	EXPORT Spe1str
Spe1str	str '50% Reduction'
	EXPORT Spe2str
Spe2str	str 'No Gaps Between'
	EXPORT GapPageStr
GapPageStr	str 'Pages'
	EXPORT Orientstr
Orientstr	str 'Orientation:'
	EXPORT Okstr
Okstr	str 'OK'
	EXPORT Cancelstr
Cancelstr	str 'Cancel'
	EXPORT ColorStr
ColorStr	str 'Darker'
	EXPORT releaseStr
releaseStr	str 'v2.0'
	EXPORT Qstr
Qstr	str 'Quality:'
	EXPORT q1str
q1str	str 'Better Text'
	EXPORT q2str
q2str	str 'Better Color'
	EXPORT q3str
q3str	str 'Draft'
	EXPORT Pagestr
Pagestr	str 'Page range:'
	EXPORT pr1str
pr1str	str 'All'
	EXPORT pr2str
pr2str	str 'From:'
	EXPORT pr3str
pr3str	str 'To:'
	EXPORT copstr
copstr	str 'Copies:'
	EXPORT PFeedstr
PFeedstr	str 'Paper Feed:'
	EXPORT Pf1str
Pf1str	str 'Automatic'
	EXPORT Pf2str
Pf2str	str 'Manual'
	EXPORT InfoStrPrep
InfoStrPrep	DC.B EndInfoStrPrep-InfoStrPrep-1
	DC.B 'Preparing Data ...'
	DC.B $0D
	EXPORT EndInfoStrPrep
EndInfoStrPrep		; 
	EXPORT InfoStrDraft
InfoStrDraft	DC.B EndInfoStrDraft-InfoStrDraft-1
	DC.B 'Printing in Draft mode ...'
	DC.B $0D
	EXPORT EndInfoStrDraft
EndInfoStrDraft		; 
	EXPORT Printprocess
Printprocess		; 
	EXPORT InfoStrPrint
InfoStrPrint	DC.B EndInfoStrPrint-InfoStrPrint-1
	DC.B 'Printing in progress ...'
	DC.B $0D
	EXPORT EndInfoStrPrint
EndInfoStrPrint		; 
	GOTO .suite

.FR
	EXPORT SlashStr
SlashStr	str '/'
	EXPORT namestr
namestr	str 'Epson'
	EXPORT Paperstr
Paperstr	str 'Papier:'
	EXPORT P1str
P1str	str 'Lettre US'
	EXPORT P2str
P2str	DC.B 8
	DC.B 'L'
	DC.B $8E
	DC.B 'gal US'
	EXPORT p3str
p3str	str 'Continu International'
	EXPORT p4str
p4str	str 'Format A4'
	EXPORT p5str
p5str	str 'Papier Informatique'
	EXPORT VsizeStr
VsizeStr	str 'Vertical Sizing:'
	EXPORT Vsize1Str
Vsize1Str	str 'Normal'
	EXPORT VSize2Str
VSize2Str	str 'Condensed'
	EXPORT SpeStr
SpeStr	str 'Printer Effects'
	EXPORT Spe1str
Spe1str	str 'Reduction 50 %'
	EXPORT Spe2str
Spe2str	str 'Pas de saut'
	EXPORT GapPageStr
GapPageStr	str 'de page'
	EXPORT Orientstr
Orientstr	str 'Orientation'
	EXPORT Okstr
Okstr	str 'OK'
	EXPORT Cancelstr
Cancelstr	str 'Annuler'
	EXPORT ColorStr
ColorStr	str 'Couleur'
	EXPORT releaseStr
releaseStr	str 'vF1-2.0'
	EXPORT Qstr
Qstr	DC.B 8
	DC.B 'Qualit'
	DC.B $8E
	DC.B ':'
	EXPORT q1str
q1str	str 'Superieure'	?
	EXPORT q2str
q2str	str 'Normale'	?
	EXPORT q3str
q3str	str 'Brouillon'
	EXPORT Pagestr
Pagestr	str 'Pages :'
	EXPORT pr1str
pr1str	str 'Toutes'
	EXPORT pr2str
pr2str	str 'De :'
	EXPORT pr3str
pr3str	DC.B 1
	DC.B $88
	EXPORT copstr
copstr	str 'Copies :'
	EXPORT PFeedstr
PFeedstr	str 'Chargement :'
	EXPORT Pf1str
Pf1str	str 'Automatique'
	EXPORT Pf2str
Pf2str	str 'Manuel'
	EXPORT InfoStrPrep
InfoStrPrep	DC.B EndInfoStrPrep-InfoStrPrep-1
	DC.B 'Preparation de l''impression ...'
	DC.B $0D
	EXPORT EndInfoStrPrep
EndInfoStrPrep		; 
	EXPORT InfoStrDraft
InfoStrDraft	DC.B EndInfoStrDraft-InfoStrDraft-1
	DC.B 'Impression en mode brouillon ...'
	DC.B $0D
	EXPORT EndInfoStrDraft
EndInfoStrDraft		; 
	EXPORT Printprocess
Printprocess		; 
	EXPORT InfoStrPrint
InfoStrPrint	DC.B EndInfoStrPrint-InfoStrPrint-1
	DC.B 'Impression en cours ...'
	DC.B $0D
	EXPORT EndInfoStrPrint
EndInfoStrPrint		; 
.suite

	EXPORT buttonstate
buttonstate	DS.B 28

	EXPORT eventrecord
eventrecord		; 
	EXPORT evtwhat
evtwhat	DS.B 2	;
	EXPORT evtmsg
evtmsg	DS.B 4
	EXPORT evtwhen
evtwhen	DS.B 4
	EXPORT evtwhere
evtwhere		; 
	EXPORT evty
evty	DS.B 2
	EXPORT evtx
evtx	DS.B 2
	EXPORT evtmods
evtmods	DS.B 2



	EXPORT StyleRect
StyleRect	DC.W 20,170,165,470

	EXPORT l1
l1	DC.W styleuply+15,styleuplx+6
	EXPORT l2
l2	DC.W styleuply+15,stylelwrx-6

	EXPORT P1rect
P1rect	DC.W styleUply+26-vr,styleUplx+72-5-hr,styleuply+28,styleUplx+250
	EXPORT P2rect
P2rect	DC.W styleUply+37-vr,styleUplx+72-5-hr,styleuply+39,styleUplx+250
	EXPORT P3rect
P3rect	DC.W styleUply+48-vr,styleUplx+72-5-hr,styleuply+50,styleUplx+250
	EXPORT P4rect
P4rect	DC.W styleUply+59-vr,styleUplx+72-5-hr,styleuply+61,styleUplx+250
	EXPORT P5rect
P5rect	DC.W styleUply+70-vr,styleUplx+72-5-hr,styleuply+72,styleUplx+250

	EXPORT v1rect
v1rect	DC.W styleUply+85-vr,styleUplx+25-hr,styleuply+87,styleUplx+150
	EXPORT v2rect
v2rect	DC.W styleUply+98-vr,styleUplx+25-hr,styleuply+100,styleUplx+150

	EXPORT s1rect
s1rect	DC.W styleUply+85-vr,styleUplx+158-hr,styleuply+87,styleUplx+310
	EXPORT s2rect
s2rect	DC.W styleUply+98-vr,styleUplx+158-hr,styleuply+100,styleUplx+310


	EXPORT o1rect
o1rect	DC.W styleuply+114,styleuplx+10,styleuply+143,styleuplx+40
	EXPORT o2rect
o2rect	DC.W styleuply+114,styleuplx+47,styleuply+143,styleuplx+77

;----------------------------------------
;
; Job Dialogs Template
;
;----------------------------------------
	EXPORT JobDTemplate
JobDTemplate		; 
	DC.W 20,170,165,470	;dialogs rectangle
	DC.W 1	;visible
	DC.L 0	;Refcon
	DC.L JDIT1	;Job dialogs item 1	 template
	DC.L JDIT2	;Job dialogs item 2	 template
	DC.L JDIT3	;Job dialogs item 3	 template
	DC.L JDIT4	;Job dialogs item 4	 template
	DC.L JDIT5	;Job dialogs item 5	 template
	DC.L JDIT6	;Job dialogs item 6	 template
	DC.L JDIT7	;Job dialogs item 7	 template
	DC.L JDIT8	;Job dialogs item 8	 template
	DC.L JDIT9	;Job dialogs item 9	 template
	DC.L JDIT10	;Job dialogs item 10 template
	DC.L JDIT11	;Job dialogs item 11 template
	DC.L JDIT12	;Job dialogs item 12 template
;	DC.L JDIT13	;Job dialogs item 13 template

	DC.L 0	;NIL pointer (terminator)
;----------------------------------------
;
; Job Dialog items list
;
;----------------------------------------
;
;Create the OK item
;
	EXPORT JDIT1
JDIT1		; 
	DC.W 1	;OK button (default	for CR)
	EXPORT okrect
okrect	DC.W StyleLwry-5-13,stylelwrx-65,StyleLwry-5,stylelwrx-9
	DC.W ButtonItem
	DC.L okstr
	DC.W 0
	DC.W 0
	DC.L 0
;
;Create CANCLE item
;
	EXPORT JDIT2
JDIT2		; 
	DC.W 2	;CANCLE button
	EXPORT Cancelrect
Cancelrect	DC.W StyleLwry-5-13,stylelwrx-145,StyleLwry-5,stylelwrx-75
	DC.W ButtonItem
	DC.L cancelstr
	DC.W 0
	DC.W 0
	DC.L 0
;
;Create radio item BEST quality
;
	EXPORT JDIT3
JDIT3		; 
	DC.W 3	;BEST quality
	EXPORT q1Rect
q1Rect	DC.W styleUply+26-vr,styleUplx+100-5-hr,styleUply+28,styleUplx+200-5
	DC.W RadioItem
	DC.L Q1str
	EXPORT JDRB0
JDRB0	DC.W 0
	DC.W 1
	DC.L 0
;
;Create radio item FASTER
;
	EXPORT JDIT4
JDIT4		; 
	DC.W 4	;FASTER quality
	EXPORT q2Rect
q2Rect	DC.W styleUply+37-vr,styleUplx+100-5-hr,styleUply+39,styleUplx+200-5
	DC.W RadioItem
	DC.L Q2str
	EXPORT JDRB1
JDRB1	DC.W 0
	DC.W 1
	DC.L 0
;
;Create radio button item DRAFT
;
	EXPORT JDIT5
JDIT5		; 
	DC.W 5	;DRAFT quality
	EXPORT q3Rect
q3Rect	DC.W styleUply+48-vr,styleUplx+100-5-hr,styleUply+50,styleUplx+200-5
	DC.W RadioItem
	DC.L Q3str
	EXPORT JDRB2
JDRB2	DC.W 0
	DC.W $1
	DC.L 0
;
;Create page range radio item ALL
;
	EXPORT JDIT6
JDIT6		; 
	DC.W 6	;page range - ALL
	EXPORT Pr1rect
Pr1rect	DC.W styleUply+70-vr,styleUplx+100-5-hr,styleUply+72,styleUplx+200-5
	DC.W RadioItem
	DC.L pr1str
	EXPORT JDRB3
JDRB3	DC.W 0
	DC.W $2
	DC.L 0
;
;Create page range (From:__ To:__) radio button item
;
	EXPORT JDIT7
JDIT7		; 
	DC.W 7	;page range - from-to
	EXPORT Pr2Rect
Pr2Rect	DC.W styleUply+84-vr,StyleUplx+100-5-hr,styleUply+86,125
	DC.W RadioItem
	DC.L pr2str
	EXPORT JDRB4
JDRB4	DC.W 0
	DC.W $2
	DC.L 0
;
;Create AUTOMATIC paper feed radio button item
;
	EXPORT JDIT8
JDIT8		; 
	DC.W 8	;AUTOMATIC paper feed

	IF  Pays=FR	GOTO .FRPF1
	EXPORT pf1rect
pf1rect	DC.W styleUply+112-vr,StyleUplx+100-5-hr,styleUply+114,StyleUplx+180
	GOTO .FRXPF1


.FRPF1
	EXPORT pf1rect
pf1rect	DC.W styleUply+112-vr,StyleUplx+105-5-hr,styleUply+114,StyleUplx+185
.FRXPF1

	DC.W RadioItem
	DC.L pf1str
	EXPORT JDRB5
JDRB5	DC.W 0
	DC.W $3
	DC.L 0
;
;Create HAND FEED paper feed radio button item
;
	EXPORT JDIT9
JDIT9		; 
	DC.W 9	;HAND FEED
	IF  Pays=FR	GOTO .FRPF2
	EXPORT pf2rect
pf2rect	DC.W styleUply+112-vr,StyleUplx+200-5-hr,styleUply+114,StyleUplx+300
	GOTO .FRXPF2

.FRPF2

	EXPORT pf2rect
pf2rect	DC.W styleUply+112-vr,StyleUplx+220-5-hr,styleUply+114,StyleUplx+310
.FRXPF2

	DC.W RadioItem
	DC.L pf2str
	EXPORT JDRB6
JDRB6	DC.W 0
	DC.W 3
	DC.L 0

* Draw the 3 edit lines
;
;Create the COPIES:	edit line item
;
	EXPORT JDIT10
JDIT10		; 
	DC.W 10
	EXPORT CopieRect
CopieRect	DC.W 87,60,87+15,60+40
	DC.W EditLine
	DC.L DefaultCopie
	DC.W 4
	DC.W 0
	DC.L 0
;
;Create the TO: edit line item
;
	EXPORT JDIT11
JDIT11		; 
	DC.W 11
	EXPORT ToRect
ToRect	DC.W 73,230,73+15,230+40
	DC.W EditLine
	DC.L DefaultTo
	DC.W 4
	DC.W 0
	DC.L 0
;
;Create the FROM edit line item
;
	EXPORT JDIT12
JDIT12		; 
	DC.W 12
	EXPORT FromRect
FromRect	DC.W 73,150,73+15,150+40
	DC.W EditLine
	DC.L DefaultFrom
	DC.W 4
	DC.W 0
	DC.L 0
;
;Create the COLOR check box item
;
	EXPORT JDIT13
JDIT13		; 
	DC.W 13
	EXPORT ColorRect
ColorRect	DC.W StyleLwry-5-13,StyleUPLx+6,StyleLwry-5,StyleUPLx+6+50
	DC.W CheckItem
	DC.L ColorStr
	EXPORT JDRB10
JDRB10	DC.W 0
	DC.W 0
	DC.L 0

;----------------------------------------


	EXPORT Istrnum
Istrnum	DC.W 6
	EXPORT Istrlist
Istrlist	DC.L releasestr
	DC.L paperstr
	DC.L vsizestr
	DC.L spestr
	DC.L gappagestr
	DC.L Orientstr

	EXPORT namepos
namepos	DC.W styleUPLy+13,StyleUplx+6
	EXPORT Iposlist
Iposlist		; 
	EXPORT releasepos
releasepos	DC.W styleUPLy+13,Stylelwrx-37 ;was -37
	EXPORT Paperpos
Paperpos	DC.W styleUply+26,StyleUplx+6
	EXPORT VSizepos
VSizepos	DC.W styleUply+73,StyleUplx+6
	EXPORT Spepos
Spepos	DC.W styleUply+73,StyleUplx+135
	EXPORT gappagepos
gappagepos	DC.W styleUply+108,StyleUplx+190
	EXPORT Orientpos
Orientpos	DC.W styleUply+110,StyleUplx+6

	EXPORT Astrnum
Astrnum	DC.W 9
	EXPORT Astrlist
Astrlist	DC.L p1str
	DC.L p2str
	DC.L p3str
	DC.L p4str
	DC.L p5str
	DC.L Vsize1str
	DC.L Vsize2str
	DC.L spe1str
	DC.L spe2str

	EXPORT ARectlist
ARectlist	DC.L p1Rect
	DC.L p2Rect
	DC.L p3Rect
	DC.L p4Rect
	DC.L p5Rect
	DC.L v1Rect
	DC.L v2Rect
	DC.L s1Rect
	DC.L s2Rect


	DC.L OkRect
	DC.L CancelRect

	DC.L Okstr
	DC.L Cancelstr

	EXPORT ptrList
ptrList	DS.B 4*14

	EXPORT Aposlist
Aposlist		; 
	EXPORT P1Pos
P1Pos	DC.W styleUply+26,styleUplx+72
	EXPORT P2Pos
P2Pos	DC.W styleUply+37,styleUplx+72
	EXPORT P3Pos
P3Pos	DC.W styleUply+48,styleUplx+72
	EXPORT P4Pos
P4Pos	DC.W styleUply+59,styleUplx+72
	EXPORT P5Pos
P5Pos	DC.W styleUply+70,styleUplx+72

	EXPORT Vsize1Pos
Vsize1Pos	DC.W styleUply+85,styleUplx+20
	EXPORT Vsize2Pos
Vsize2Pos	DC.W styleUply+98,styleUplx+20

	EXPORT Spe1Pos
Spe1Pos	DC.W styleUply+85,styleUplx+162
	EXPORT Spe2Pos
Spe2Pos	DC.W styleUply+98,styleUplx+162

	EXPORT OKpos
OKpos	DC.W styleUPLy+18,Stylelwrx-50
	EXPORT Cancelpos
Cancelpos	DC.W styleUPLy+38,Stylelwrx-60





	EXPORT JArectlist
JArectlist	DC.L q1rect	0
	DC.L q2rect	1
	DC.L q3rect	2
	DC.L pr1rect	3
	DC.L pr2rect	4
	DC.L pf1rect	5
	DC.L pf2rect	6

	EXPORT Jistrnum
Jistrnum	DC.W 6
	EXPORT Jistrlist
Jistrlist	DC.L releasestr
	DC.L Qstr
	DC.L pagestr
	DC.L pr3str
	DC.L copstr
	DC.L pFeedstr

	EXPORT JAstrnum
JAstrnum	DC.W 7
	EXPORT JAstrlist
JAstrlist	DC.L Q1str
	DC.L Q2str
	DC.L Q3str
	DC.L pr1str
	DC.L pr2str
	DC.L pf1str
	DC.L pf2str


	EXPORT Jnamepos
Jnamepos	DC.W styleUPLy+13,StyleUplx+6
	EXPORT JIposlist
JIposlist		; 
	EXPORT Jreleasepos
Jreleasepos	DC.W styleUPLy+13,Stylelwrx-37 ;was -37
	EXPORT Jqpos
Jqpos	DC.W styleUply+26,StyleUplx+6
	EXPORT JPagePos
JPagePos	DC.W styleUply+59,styleUplx+6
	EXPORT Jpr3Pos
Jpr3Pos	DC.W styleUply+84,styleUplx+200
	EXPORT JcopPos
JcopPos	DC.W styleUply+98,styleUplx+6
	EXPORT JPfeedPos
JPfeedPos	DC.W styleUply+112,styleUplx+6


	EXPORT DefaultFrom
DefaultFrom	DC.B 0
	DC.B ' '
	EXPORT DefaultTo
DefaultTo	DC.B 0
	DC.B ' '
	EXPORT DefaultCopie
DefaultCopie	DC.B 1
	DC.B '1'


	EXPORT pixel320
pixel320	DC.W 26
	EXPORT pixel640
pixel640	DC.W 52
	EXPORT pixelwidth
pixelwidth	DS.B 2
	EXPORT PP_portrait
PP_portrait		; 
	DC.L portrait_p
	DC.L screenport
	DC.L portrait_r
	DC.L dstbitr1
	DC.W 0
	DC.L 0

	EXPORT dstbitr1
dstbitr1	DC.W styleuply+116,styleuplx+12,styleuply+141,styleuplx+38+26
	EXPORT dstbitf1
dstbitf1	DC.W styleuply+115,styleuplx+10,styleuply+143,styleuplx+40+26
	EXPORT portrait_p
portrait_p	DC.W $80
	DC.L portrait_bit
	DC.W 13
	DC.W 0,0,25,52
	EXPORT portrait_r
portrait_r	DC.W 0,0,25,52

	EXPORT PP_landsc
PP_landsc		; 
	DC.L landsc_p
	DC.L screenport
	DC.L landsc_r
	DC.L dstbitr2
	DC.W 0
	DC.L 0

	EXPORT dstbitr2
dstbitr2	DC.W styleuply+116,styleuplx+49+26,styleuply+141,styleuplx+75+52
	EXPORT dstbitf2
dstbitf2	DC.W styleuply+115,styleuplx+47+26,styleuply+143,styleuplx+77+52
	EXPORT landsc_p
landsc_p	DC.W $80
	DC.L landsc_bit
	DC.W 13
	DC.W 0,0,25,52
	EXPORT landsc_r
landsc_r	DC.W 0,0,25,52

	EXPORT portrait_bit
portrait_bit		; 
	DC.B $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
	DC.B $FF,$F0,$00,$00,$00,$00,$00,$00,$0F,$FF,$FF,$FF,$FF
	DC.B $FF,$F0,$FF,$FF,$FF,$FF,$FF,$FF,$00,$FF,$FF,$FF,$FF
	DC.B $FF,$F0,$FF,$FF,$FF,$F0,$0F,$FF,$0F,$0F,$FF,$FF,$FF
	DC.B $FF,$F0,$FF,$FF,$FF,$0F,$F0,$FF,$0F,$F0,$FF,$FF,$FF
	DC.B $FF,$F0,$FF,$FF,$FF,$0F,$F0,$FF,$00,$00,$0F,$FF,$FF
	DC.B $FF,$F0,$FF,$FF,$FF,$F0,$0F,$FF,$FF,$FF,$0F,$FF,$FF
	DC.B $FF,$F0,$FF,$FF,$F0,$0F,$F0,$0F,$FF,$FF,$0F,$FF,$FF
	DC.B $FF,$F0,$FF,$FF,$0F,$FF,$FF,$F0,$FF,$FF,$0F,$FF,$FF
	DC.B $FF,$F0,$FF,$FF,$0F,$0F,$F0,$F0,$FF,$FF,$0F,$FF,$FF
	DC.B $FF,$F0,$FF,$FF,$0F,$0F,$F0,$F0,$FF,$FF,$0F,$FF,$FF
	DC.B $FF,$F0,$FF,$FF,$0F,$0F,$F0,$F0,$FF,$FF,$0F,$FF,$FF
	DC.B $FF,$F0,$FF,$FF,$0F,$0F,$F0,$F0,$FF,$FF,$0F,$FF,$FF
	DC.B $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	DC.B $0F,$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$F0,$F0
	DC.B $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$F0
	DC.B $0F,$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$F0,$F0
	DC.B $0F,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$F0,$00
	DC.B $0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF
	DC.B $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$FF
	DC.B $0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF
	DC.B $0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF
	DC.B $0F,$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF
	DC.B $0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF
	DC.B $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$FF

	EXPORT landsc_bit
landsc_bit		; 
	DC.B $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
	DC.B $FF,$F0,$00,$00,$00,$00,$00,$00,$0F,$FF,$FF,$FF,$FF
	DC.B $FF,$F0,$FF,$FF,$FF,$FF,$FF,$FF,$00,$FF,$FF,$FF,$FF
	DC.B $FF,$F0,$FF,$FF,$FF,$FF,$FF,$FF,$0F,$0F,$FF,$FF,$FF
	DC.B $FF,$F0,$00,$00,$00,$00,$FF,$FF,$0F,$F0,$FF,$FF,$FF
	DC.B $FF,$F0,$FF,$FF,$FF,$FF,$0F,$FF,$00,$00,$0F,$FF,$FF
	DC.B $FF,$F0,$00,$00,$00,$FF,$0F,$00,$FF,$FF,$0F,$FF,$FF
	DC.B $FF,$F0,$FF,$FF,$FF,$FF,$F0,$FF,$0F,$FF,$0F,$FF,$FF
	DC.B $FF,$F0,$FF,$FF,$FF,$FF,$F0,$FF,$0F,$FF,$0F,$FF,$FF
	DC.B $FF,$F0,$00,$00,$00,$FF,$0F,$00,$FF,$FF,$0F,$FF,$FF
	DC.B $FF,$F0,$FF,$FF,$FF,$FF,$0F,$FF,$FF,$FF,$0F,$FF,$FF
	DC.B $FF,$F0,$00,$00,$00,$00,$FF,$FF,$FF,$FF,$0F,$FF,$FF
	DC.B $FF,$F0,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$0F,$FF,$FF
	DC.B $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	DC.B $0F,$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$F0,$F0
	DC.B $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$F0
	DC.B $0F,$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$F0,$F0
	DC.B $0F,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$F0,$00
	DC.B $0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF
	DC.B $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$FF
	DC.B $0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF
	DC.B $0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF
	DC.B $0F,$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF
	DC.B $0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF
	DC.B $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$FF

* Data for the info	dialogs 640
	EXPORT infoWidth320
infoWidth320	DC.W 300
	EXPORT infowidth640
infowidth640	DC.W 600
	EXPORT infoDPort
infoDPort	DS.B 4
	EXPORT InfoStrRect
InfoStrRect	DC.W 10,20,20,500
	EXPORT AbortRect
AbortRect	DC.W 90,150,150,490
	EXPORT AbortDPort
AbortDPort	DS.B 4

	EXPORT IfCancelled
IfCancelled	DS.B 2
	EXPORT Stylewidth
Stylewidth	DS.B 2
	EXPORT SCBValue
SCBValue	DS.B 2

	EXPORT CopieFinalValue
CopieFinalValue	DS.B 6
	EXPORT FromFinalValue
FromFinalValue	DS.B 6
	EXPORT ToFinalValue
ToFinalValue	DS.B 6
	EXPORT InfoWindow
InfoWindow		; 
	EXPORT WinDef640
WinDef640		; 
	DC.W EndWDef640-WinDef640
	DC.W %0010000000100000 wFrame
	DC.L 0	wTitle
	EXPORT HdlDoc640
HdlDoc640	DC.L 0	wRefCon
	DC.W 0,0,0,0	wZoom
	DC.L 0	wColor
	DC.W 0	wYOrigin,wXOrigin
	DC.W 0
	DC.W 0	wDataH,wDataW
	DC.W 0
	DC.W 0	wMaxH,wMaxW
	DC.W 0
	DC.W 0	wScrollVer,wScrollHor
	DC.W 0
	DC.W 0	wPageVer,wPageHor
	DC.W 0
	DC.L 0	wInfoRefCon
	DC.W 0	wInfoHeight
	DC.L 0	wFrameDefProc
	DC.L 0	wInfoDefProc
	DC.L 0	wContDefProc
	EXPORT InfoRect
InfoRect	DC.W 30,40,60,600
	DC.L $FFFFFFFF	wPlane
	DC.L 0	wStorage
	EXPORT EndWDef640
EndWDef640		; 
	EXPORT InfoStrPos
InfoStrPos	DC.W 20,20
	EXPORT EraseInfoRect
EraseInfoRect	DC.W 0,00,30,640

	EXPORT InfoStrBuffer
InfoStrBuffer	DS.B 100

;------------------------------------------------------------
;
; data used by manual feed alert box
;

;------------------------------------------------------------
;
; 640 mode
; 
	EXPORT alerttemp640
alerttemp640	DC.W 30,40,75,600	; bounds rect
	DC.W 1301	; id
	DC.B $80
	DC.B $80
	DC.B $80
	DC.B $80
	DC.L item1_640	; Continue
	DC.L item2_640	; Cancel 
	DC.L item3_640	; text
	DC.L 0000


	EXPORT item1_640
item1_640	DC.W 1	; id
	DC.W 8,440,8+13,530	; bounds rect for button
	DC.W ButtonItem	; type
	DC.L But1	; item descriptor -	'Continue'
	DC.W 00	; item value
	DC.W 0	; item flag
	DC.L 0	; item color

	EXPORT item2_640
item2_640	DC.W 2	; id
	DC.W 27,440,27+13,530 ; bounds rect for	button
	DC.W ButtonItem	; type
	DC.L But2	; item descriptor -	'Cancel'
	DC.W 00	; item value
	DC.W 0	; item flag
	DC.L 0	; item color

	EXPORT item3_640
item3_640	DC.W 3	; id
	DC.W 3,35,43,400	; bounds rect for text
	DC.W ItemDisable+LongStatText ; type
	DC.L Msg1_640	; item descriptor
	DC.W Len_Msg1_640	; item value
	DC.W 0	; item flag
	DC.L 0	; item color

	EXPORT But1
But1	str 'Continue'
	EXPORT But2
But2	str 'Cancel'
	EXPORT Msg1_640
Msg1_640	DC.B $0D
	DC.B 'Please insert the next sheet of paper into the'
	DC.B $0D
	DC.B 'Epson, then click continue.'
Len_Msg1_640	equ *-Msg1_640

;------------------------------------------------------------
;
; 320 mode
; 
	EXPORT alerttemp320
alerttemp320	DC.W 30,10,95,310	; bounds rect
	DC.W 1301	; id
	DC.B $80
	DC.B $80
	DC.B $80
	DC.B $80
	DC.L item1_320	; Continue
	DC.L item2_320	; Cancel 
	DC.L item3_320	; text
	DC.L 0000


	EXPORT item1_320
item1_320	DC.W 1	; id
	DC.W 27,215,27+13,285 ; bounds rect for	button
	DC.W ButtonItem	; type
	DC.L But1	; item descriptor -	'Continue'
	DC.W 00	; item value
	DC.W 0	; item flag
	DC.L 0	; item color

	EXPORT item2_320
item2_320	DC.W 2	; id
	DC.W 45,215,45+13,285 ; bounds rect for	button
	DC.W ButtonItem	; type
	DC.L But2	; item descriptor -	'Cancel'
	DC.W 00	; item value
	DC.W 0	; item flag
	DC.L 0	; item color

	EXPORT item3_320
item3_320	DC.W 3	; id
	DC.W 3,15,63,225	; bounds rect for text
	DC.W ItemDisable+LongStatText ; type
	DC.L Msg1_320	; item descriptor
	DC.W Len_Msg1_320	; item value
	DC.W 0	; item flag
	DC.L 0	; item color


	EXPORT Msg1_320
Msg1_320	DC.B $0D
	DC.B 'Please insert the next'
	DC.B $0D
	DC.B 'sheet of paper into the'
	DC.B $0D
	DC.B 'Epson, then click'
	DC.B $0D
	DC.B 'Continue.'
Len_Msg1_320	equ *-Msg1_320

	ENDP

	END

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/Epson/epson.asm b/IIGS.601.SRC/GSToolbox/PrinterDrivers/Epson/epson.asm
new file mode 100644
index 0000000..c987401
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/Epson/epson.asm
@@ -0,0 +1 @@
+	STRING ASIS
	BLANKS OFF

*****************************************************************
*
*                     The Print Manager 
*                 Epson Driver  v2.0
*
* May 1988
*    This driver is originally developed by StyleWare, Inc. using the ImageWriter 
*    Driver v2.0 as its basis.
*
* v 1.0
* June 15, 1988           Suki Lee
*    Converted StyleWare's source from APW to MAX. 
*
* June 30, 1988	      Suki Lee
*    Made changes to this driver to reflect bug fixes and other modifications done
*    to the ImageWriter driver since 2.0 release.
*    These changes include:
*       - ReOrganized code so opening of the port is done only once at LLDStartUp 
*         time.
*       - Added the filtering of C cedilla in LLDText.
*
* July 25, 1988           Suki Lee  
*    Bug fix:
*       - The printer name string is "imagewriter". If AppleTalk is chosen, Image-
*         Writers on the network can be selected. Changed the string to "epson" so
*         no printers can be found, since Epson are not AppleTalk compatible.
*       - When printing in Better Text mode, some color text were not printed. Fixed
*         the logic in MakePattern, which calculates the dot pattern for color mapping,
*         so the correct branch is taken for 640 mode high resolution. Also changed
*         the names of some of the branch labels for clarity.
*
* August 5, 1988          Suki Lee
*    Bug fix:
*       - The "darker" checkbox in job dialog causes problem with some colors not
*         being printed. It was originally the color option in the ImageWriter driver.
*         Since Epsons have no color capability and "darker" doesn't really improve 
*         print quality, it is removed from the dialog. Also commented out code in 
*         StartLLD which checks the corresponding bit in the print record.
*       - Use GetCursorAd before the WaitCursor call and use SetCursor instead of 
*         InitCursor when done to restore the original cursor.
*
* -----------------------------------------------------------
* Version 2.0
*
* d1
* November 28, 1988        Suki Lee
*
*    Two new calls are added: PrGetPrinterSpecs, which returns the printer's type and
*    its characteristics (only color capability is defined for now) and PrGetPgOrientation
*    which returns either portrait or landscape. These calls are needed by IIGS HyperCard
*    printing.
*
* d2
* December 15, 1988    Suki Lee
*    Added new header to denote this as a driver which support the new calls PrGet-
*    PrinterSpecs and PrGetPgOrientation (and any subsequent new calls). This header
*    is 2 words long: first word is 0 followed by a call count word.
*     
*    Fixed the jump to an incorrect exit routine in PrPixelmap if unsafe to proceed.
*    The correct routine is Exit10, not Exit8.
* 
* d3
* January 19, 1989     Suki Lee
*    Added a new input parameter, handle to the print record, to PrGetPgOrientation.
* January 24, 1989     Suki Lee
*    Modified PrGetPgOrientation to use Exit4 instead of Exit0 since a long parameter
*    has been added.
*
* d4
* February 6, 1989     Suki Lee
*    Modified PrValidate so that it will no longer call CiXMetrics if the print record
*    is valid for the printer type and is the correct version. This was not necessary 
*    and caused problems for applications that want to modify fields in the record such
*    as the page rectangle. 
* February 8, 1989     Suki Lee
*    Added in code in PrPicFile to check the size of Quick Draw's buffer if Better Text
*    is requested. If the buffer is too small, we grow the buffer to what we need and 
*    restore it back to the original size.
* February 10, 1989    Suki Lee
*    Bug fix in PrValidate: the print record handle is now dereferenced before using.
* 
* d5 
* February 23, 1989    Suki Lee
*    Further bug fix in PrValidate: PtrToHand call is changed to BlockMove since the 
*    print record handle has been deferenced. An error was being returned from the
*    PtrToHand call, causing the code to display the dialogs to be skipped.
* 
* d6
* March 8, 1989        Suki Lee
*    Added code in PrValidate to copy the print record into the local data stroage area 
*    since the driver code works off the local copy of the print record.
*
* March 9, 1989        Suki Lee
*    Modified PrPicFile to use rPage data from PrInfo subrecord instead of PrInfoPt. 
*    The application may modify rPage between pages and since PrInfoPt is designated 
*    as reserved in the reference manual, the data there may not be accurate.
*
*    Added constant values for iHRes and iVRes in landscape mode. Added code to modify
*    these values based on page orientation in CiXmetrics.
*
* March 14, 1989       Suki Lee
*    Added initialization of two variables: ZeroPage and SCBValue in PrValidate. This is 
*    a measure to safeguard against cases where the application enters the print loop 
*    without calling PrDefault, PrStlDialog or PrJobDialog, where these variables are 
*    currently being initialized.
*    
* March 15, 1989       Suki Lee
*    Modified the horizontal print head movement code in MovePen to take in account the 
*    case where the counter for the loop to send spaces starts out at 0. This bug caused
*    draft mode to spit out blank pages when some documents are printed.
*
*
* d7
* March 21, 1989       Suki Lee
*    Modified MovePen code to adjust the movement of the print head. Epson printers do
*    not have paper reverse capabilities, so the code to reverse the paper is removed
*    and printing will occur on the current line. Also, the LX model does not support
*    absolute position of the print head, so movement to the right is simulated with 
*    spaces. The old code calculated the number of spaces based on the left margin
*    instead of at the end of the last printed string thus causing large gaps to appear.
*    Any movement to the left is ignored and will print from current horizontal position.
*
* March 29, 1989       Suki Lee
*    Modified band buffer allocation code to find MaxBlock and if it is larger than 64K,
*    we use 64K, else we use the maxblock size. This created a minor problem where an 
*    entire 8 1/2 x 11 page can fit inside of one band and the idleproc which checks for
*    cancel is called each band in the high level routines. A new routine LLDIdleProc is 
*    implemented so the idleproc can be called from the low level routines, taking care 
*    of D page swapping and proper stack clean up. This new routine also allows for 
*    cancelling of printing if there is a printer error.
*
* d8
* April 25, 1989       Suki Lee
*    Modified InsertPaperAlert to display arrow cursor instead of restoring the cursor
*    set by the application, since some applications set the watch cursor before entering
*    the print loop.
*
* d9
* May 2, 1989          Suki Lee
*    Revert PrValidate to recalculating the whole print record each time, so applications can 
*    modifiy one field and have the rest of the record be consistent. Change code in PrOpenDoc
*    to just look at the type and version field of the print record instead of calling 
*    PrValidate. This is needed for Iduna printing.
*
* d10
* May 15, 1989         Suki Lee
*    Idleproc pointer in the print record is not set up correctly with the default idleproc
*    in draft mode. Added set up code in PrOpenDoc and PrPixelMap. Similar to BRC #48527.
*    Also added error checking code so that PrPixelMap printing can use the LLDIdleProc to
*    cancel out print job. Similar to BRC #48936
*
* d11
* May 19, 1989         Suki Lee
*    Landscape prints garbage if the buffer size is larger than the standard size. Added code 
*    to use only standard buffer if landscape is selected. BRC #48937
*
* May 25, 1989         Suki Lee
*    Fixed a cut and paste error in PrPicfile where the wrong offset to the print record is used.
*
* June 2, 1989	   Suki Lee
*    Added code to pass the newly added ClosePicture error to the application.
*
* June 5, 1989	   Suki Lee
*    Added initialization of variable ZeroPage and SCBValue in PrOpenDoc as well, since some apps 
*    do not call anything else before the print loop. 
*
*****************************************************************

*****************************************************************
*
*                    Copyright 1986-1989
*                    Apple Computer, Inc.
*                    All Rights Reserved
*
*****************************************************************

	Print off
	INCLUDE 'all.macros'
	INCLUDE 'epson.macros'
	INCLUDE 'e16.Dialog'
	Print on

;------------------------------------------
;
; Equates from procedure 
;
;------------------------------------------
VersionNb	equ $0200	; Version 2.0
;
; error codes
;
PortNotOn	equ $1302
NoPrintRecord	equ $1303

;------------------------------------------------------------------------------
;
; Global and Zero Page Equates
;
;------------------------------------------------------------------------------
True	equ $FFFF
False	equ $0000
BTBuffSize	EQU 320	; the size we need the Quick Draw buffer to be
		; for Better Text is twice the scan line width	
mem64k	equ $FFFF	; 64 k bytes of memory

Temp1	equ 0	Temp values to dereference easily
Temp2	equ temp1+4	4
hPicList	equ temp2+4	a
pPicList	equ hPicList+4	e
Ourport	equ pPicList+4	12
hOurport	equ OurPort+2	14
hNewPic	equ hOurport+4	18
ourStatus	equ hNewPic+4	1c
hStatus	equ ourStatus+2	1e
hport	equ hStatus+4	22
UserId	equ hPort+4	26
hscreenport	equ userId+2	28
pscreenport	equ hscreenport+4	2c
hprbuf	equ pscreenport+4	30
pprbuf	equ hprbuf+4	34

PZ_PrStatus	equ $C0
PZ_pPrPort	equ PZ_PrStatus+4
PZ_hPrint	equ PZ_pPrPort+4

TPrintsize	equ 140
StatRecSize	equ 28

* Error Codes

noErr	equ 0
iIOAbort	equ -27
iMemFullErr	equ -108
iPrAbort	equ 128

;------------------------------------------
;
; Equates from procedure table
;
;------------------------------------------
HandleReal	equ $F4
PointerReal	equ $F8

;------------------------------------------------------------------------------
;
; Low Level Tables and Equates
;
;------------------------------------------------------------------------------

* Zero page equates	(While in Low Level	Driver) (Allocated at users +$100)
HandleDrvr	equ $00
MemoryDrvr	equ $04
Quality	equ $06
HandleColor	equ $08
HandleScreen	equ $0C
PtrBitMap	equ $10
PtrColor	equ $14
HandleIO	equ $18
PtrBlack	equ $20
PtrRed	equ $24
PtrBlue	equ $28
PtrYellow	equ $2C
PtrLocal	equ $30
PenPosH	equ $34
PenPosV	equ $36
NewPenPosH	equ $38
NewPenPosV	equ $3A
Lock	equ $3E
PageRectPtr	equ $40
PageRect	equ $44
PtrInfo	equ $4C
Stock	equ $50
Stock2	equ $52
PtrID	equ $54
Go	equ $5C
Status	equ $66
BackColor	equ $76
PtrRect	equ $96
MyStack	equ $9C
RealStack	equ $9E
SaveStack	equ $A0
JobPrint	equ $A2
StockWStr	equ $A4
StockWTxt	equ $A8
PageRectL	equ $AA
Stack	equ $AE
SaveStack2	equ $F0
MyId	equ $F2
Owner	equ $F4
HandleID	equ $F8
Error	equ $F6
;
; MyWap equates
;
NbUser	equ $0E
PID	equ $1E
PenPosVW	equ $18
IDBack	equ $1a
GraphP	equ $1c
IDWap	equ $16
Killer	equ $24
PMID	equ $0012

;----------------------------------------------------------------------
;
; QuickDraw II's zeropage equates
;
QdPort	equ $24
SrcPixelMapRef	equ $CE	; ptr to src pixel map
SrcWidth	equ $D2	; width of src pixel map
SrcBounds	equ $D4	; bounds rect of src pixel map
SrcRect	equ $DC
DestRect	equ $1C

DrawVerb	equ $38
TextPtr	equ $da
textLength	equ $d8
chartodraw	equ $d6

;-----------------------------------------------------------
;
; Equates from filter procs of Job and Style dialogs

inButtDwn	equ 1
KeyDown	equ 3
AutoKey	equ 5
ItemHit	equ 7
Event	equ ItemHit+4
TheDialog	equ Event+4
Result	equ TheDialog+4
TabKey	equ 9
ReturnKey	equ 13
deleteKey	equ 127

;------------------------------------------
;
; Equates from procedure PrtRecordEqu
;
;------------------------------------------

*****************************
*	        *
* PrtRecordEqu	        *
*	        *
*****************************
Top	equ 0
Left	equ 2
Bottom	equ 4
Right	equ 6

* offset for the TPrint record length =	140 bytes
iPrVersion	equ 0	Integer    Printing	manager version number
prInfo	equ 2	subrecord  Printer Info Subrecord
rPaper	equ 16	Rect
prStl	equ 24	SubRecord
prInfoPT	equ 42	SubRecord
prXInfo	equ 56	SubRecord
prJob	equ 80	SubRecord
printx	equ 100	Array[1..19] of integer (38 bytes)

* prInfo subrecord length = 14 bytes
idev	equ 0	Integer
iVRes	equ 2	Integer
iHRes	equ 4	Integer
rPage	equ 6	Rect

* iDev values
iDevIW	equ 1	ImageWriter I or II
iDevLQ	equ 2	ImageWriter LQ
iDevLW	equ 3	LaserWriter
iDevEpson	equ 4	Epson

* Printer Specs
CantDetermine	equ 0
MonochromeOnly	equ 1
ColorCapable	equ 2

* TPrJob subrecord length = 20 bytes
iFstPage	equ 0	Integer
iLstPage	equ 2	Integer
iCopies	equ 4	Integer
bjDocLoop	equ 6	Signed byte
fFromUsr	equ 7	signed byte
pIdleProc	equ 8	Long address
pFileName	equ 12	Long address
iFileVol	equ 16	Integer          ??? Unit number ???
bFileVers	equ 18	signed byte

* bjDocLoop values
bJobX	equ 19	signed byte       internal
bDraftLoop	equ 0
bSpoolLoop	equ 128

* TPrStl subrecord info length = 18 bytes
wDev	equ 0	Integer
iPageV	equ 2	nombres de points par page
iPageH	equ 4
bPort	equ 6	Refnum
feed	equ 8
PaperType	equ 10
CRwidth	equ 12

* valeur du feed
feedcut	equ 0
feedfanFold	equ 1

* values linked to wDev
f0	equ 1	hires
f1	equ 2	portrait
f2	equ 4	double vertical density
f3	equ 8	2x zoom
f4	equ 16	scroll
f5	equ 32	color/bw
f6	equ 64	Gap

* TprXInfo subrecord info length = 24 bytes
iRowBytes	equ 0	Integer
iBandV	equ 2	Integer
iBandH	equ 4	Integer
iDevBytes	equ 6	Integer
ibands	equ 8	Integer
bPatScale	equ 10	byte
bULThick	equ 11	byte
bULOffset	equ 12	byte
bULShadow	equ 13	byte
scan	equ 14	tscan
bXInfoX	equ 16	reserved
SCBList	equ 18	pointer to a list of modes.
scanTB	equ 0
scanBT	equ 1
scanLR	equ 2
scanRL	equ 3

* TPrStatus record length = 28 bytes
iTotPages	equ 0
iCurpage	equ 2
iTotCopies	equ 4
iCurCopy	equ 6
iTotBands	equ 8
iCurBand	equ 10
fPgDirty	equ 12
fImaging	equ 14
ShPrint	equ 16
pPrPort	equ 20
hPic	equ 24

;-----------------------------------------------------------
;
; PortOffset
;
	DSECT 0
o_PortSCB	WORD
o_ImageRef	LONG
o_Width 	WORD
o_BoundsRect	BLOCK 8

o_PortRect	BLOCK 8
o_ClipRgn	LONG
o_VisRgn	LONG

o_BkPat 	BLOCK 32

o_PnLoc 	BLOCK 4
o_PnSize	BLOCK 4
o_PnMode	WORD
o_PnPat 	BLOCK 32
o_PnMask	BLOCK 8
o_PnVis 	WORD

o_Font	LONG
o_FontID	LONG
o_FontFlags	WORD
o_TxSize	WORD
o_TxFace	WORD
o_TxMode	WORD
o_SpExtra	LONG
o_ChExtra	LONG
o_FGColor	WORD
o_BGColor	WORD

o_PicSave	LONG
o_RgnSave	LONG
o_PolySave	LONG
o_GrafProcs	LONG

o_ArcRot	WORD

o_UserField	LONG
o_SysField	LONG

PortSize	DSectSize
;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

	IMPORT AStrNum
	IMPORT ArectList
	IMPORT AstrList
	IMPORT CopieFinalValue
	IMPORT SCBValue
	IMPORT EraseInfoRect
	IMPORT EventRecord
	IMPORT EvtWhat
	IMPORT EvtWhere
	IMPORT FromFinalValue
	IMPORT Hook
	IMPORT IfCancelled
	IMPORT InfoRect
	IMPORT InfoStrBuffer
	IMPORT InfoStrDraft
	IMPORT InfoStrPos
	IMPORT InfoStrPrep
	IMPORT InfoWindow
	IMPORT Iposlist
	IMPORT Istrlist
	IMPORT Istrnum
	IMPORT JDRB0
	IMPORT JDRB10
	IMPORT JIposlist
	IMPORT JIstrlist
	IMPORT JIstrnum
	IMPORT JobDTemplate
	IMPORT OKrect
	IMPORT PP_Landsc
	IMPORT PP_portrait
	IMPORT Printprocess
	IMPORT Put
	IMPORT Save
	IMPORT SlashStr
	IMPORT StyleRect
	IMPORT Stylewidth
	IMPORT Take
	IMPORT ToFinalValue
	IMPORT Translate
	IMPORT Vis
	IMPORT alerttemp320
	IMPORT alerttemp640
	IMPORT buttonstate
	IMPORT cancelrect
	IMPORT cancelstr
	IMPORT dstbitf1
	IMPORT dstbitf2
	IMPORT dstbitr1
	IMPORT dstbitr2
	IMPORT evtmods
	IMPORT evtmsg
	IMPORT infoDPort
	IMPORT infowidth320
	IMPORT infowidth640
	IMPORT l1
	IMPORT l2
	IMPORT landsc_p
	IMPORT landsc_r
	IMPORT namepos
	IMPORT okstr
	IMPORT pixel320
	IMPORT pixel640
	IMPORT pixelwidth
	IMPORT portrait_p
	IMPORT portrait_r
	IMPORT ptrList
	IMPORT skip

;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

	ENTRY BandLoc
	ENTRY BandPort
	ENTRY BitMapShoot
	ENTRY CalcPiPo
	ENTRY CalcPoPi
	ENTRY CallIdleProc
	ENTRY CiXmetrics
	ENTRY CloseInfo
	ENTRY ContLine
	ENTRY ConvertEpson
	ENTRY CurrentDef
	ENTRY CurrentLine
	ENTRY DefIOHSpe
	ENTRY DefIoHandle
	ENTRY DerefColor
	ENTRY DrawPrintStr
	ENTRY DrvrBitMap
	ENTRY DrvrRect
	ENTRY EndOfPrinting
	ENTRY FinalPat
	ENTRY FlagB
	ENTRY FlagBlack
	ENTRY FlagT
	ENTRY FormFeed
	ENTRY GetColorT
	ENTRY HightLand
	ENTRY HookProc
	ENTRY InitSSC
	ENTRY InsertPaperAlert
	ENTRY JobFilter
	ENTRY LLDexit2
	ENTRY LLdExit0
	ENTRY LLdExit10
	ENTRY LLdExit4
	ENTRY LLdExit6
	ENTRY LLdExit8
	ENTRY LLDIdleProc
	ENTRY LandStock
	ENTRY LittleSkip
	ENTRY MakeBlankLine
	ENTRY MakeLine
	ENTRY MovePen
	ENTRY OpenInfoPrepare
	ENTRY OurGetHandle
	ENTRY Pattern
	ENTRY PrAbortCheck
	ENTRY PrChanged
	ENTRY PrCloseDoc
	ENTRY PrClosePage
	ENTRY PrDrvrVer
	ENTRY PrGetPrinterSpecs
	ENTRY PrGetPgOrientation
	ENTRY PrError
	ENTRY PrJobDialog
	ENTRY PrOpenDoc
	ENTRY PrOpenPage
	ENTRY PrPicFile
	ENTRY PrPixelMap
	ENTRY PrPrintit
	ENTRY PrSetError
	ENTRY PrStlDialog
	ENTRY PrValidate
	ENTRY PrintCheck
	ENTRY PrintDefault
	ENTRY Print_test
	ENTRY Required
	ENTRY ResetPrinter
	ENTRY ScreenPort
	ENTRY ScreenShoot
	ENTRY SendBPrep
	ENTRY SendBuff
	ENTRY SendRCLF
	ENTRY SendSingleCar
	ENTRY SetButtonValue
	ENTRY SetColor
	ENTRY SetColorT
	ENTRY SkipXLine
	ENTRY SpeDens
	ENTRY StatusLaser
	ENTRY StyleFilter
	ENTRY Vsizing
	ENTRY WasImage
	ENTRY WasImage1
	ENTRY WasImage2
	ENTRY destpoint
	ENTRY exit0
	ENTRY jobdialog
	ENTRY pPrint_test
	ENTRY showstatus
	ENTRY startLLD
	ENTRY styledialog
	ENTRY writestr
	ENTRY xCheckPrinter
	ENTRY xLLDBitMap
	ENTRY xLLDControl
	ENTRY xLLDGetTColor
	ENTRY xLLDHardCopy
	ENTRY xLLDSetColor
	ENTRY xLLDSetPageRect
	ENTRY xLLDSetPenPos
	ENTRY xLLDSetQuality
	ENTRY xLLDSetTColor
	ENTRY xLLDShutDown
	ENTRY xLLDStartUp
	ENTRY xLLDText
	ENTRY xNewPage
	ENTRY iPrErr


**********************************************************************
*
* Driver code starts here
*
**********************************************************************

;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;
;
; Vector to appropriate printer driver routine based on value passed in X-Reg.
;
;
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------

	EXPORT Epson
Epson	PROC

;-----------------------------------------------------------
;
; Header to denote new calls supported
;
 
	DC.W 0	; marker
	DC.W (EndPrProcList-PrProcList)/4 ; count of calls supported
			   

	jmp (PrProcList,x)	;Vector to correct routine

InvalidPr	rtl

PrProcList	DC.L PrintDefault	;_PrDefault
	DC.L PrValidate
	DC.L PrStlDialog
	DC.L PrJobDialog
	DC.L PrDrvrVer
	DC.L PrOpenDoc
	DC.L PrCloseDoc
	DC.L PrOpenPage
	DC.L PrClosePage
	DC.L PrPicFile
	DC.L PrError	;;;;;dummy for now;;;;;;
	DC.L PrError
	DC.L PrSetError
	DC.L PrChanged
	DC.L PrPixelMap
		; begin new calls
	DC.L PrGetPrinterSpecs
	DC.L PrGetPgOrientation

EndPrProcList
	jmp InvalidPr
	ENDP

* Low Level
;                copy    LLD.Main0

	EXPORT LLDSystem
LLDSystem	PROC

	EXPORT MyPID
MyPID	DC.W 0	42
	
	EXPORT CurHposInLine
CurHposInLine	DS.B 2	; current horizontal pos within a line

	EXPORT MyWAP
MyWAP		;       
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	ENDP
;                copy    LLD.Main1
;
;  Main LLD.
;

	EXPORT Cidrvr
Cidrvr	PROC
	
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;
;  NAME:       LLDStartUp
;
;  PURPOSE:    Starts up the low level routines
;
;  PASSED:     WORD		Zero Page
;              WORD		User ID
;
;  RETURNED:   (A-reg.)	=0, No Errors
;		=$1321, LLDStartup already made
;		=Memory Mgr. Errors	returned unchanged
;		NOTE: 'Error' retains error value
;
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------

;-----------------------------------------------
	EXPORT LLDStartUp
LLDStartUp		;       
	jsl xLLDStartUp
	rtl
;-----------------------------------------------
	EXPORT xLLDStartUp
xLLDStartUp		;       
;
* Stack: 1: Rtls
*        7: ID
*        9: ZeroPage
	phb	;save users bank
	phk	;get this programs bank
	plb	;set bank to programs bank
;Now see if this is	initial time
	lda MyWap+$16	;get ID
	bne JustStartUp	;branch if not first time
*
* Here zero page is	needed
*

	PushWord #0
	_MMStartUP	;make sure memory manager is started
	pla
	sta MyPID
	sta MyWap+$16	;save ID in MyWap


ok1		; 
	phd	;save D-reg.

; Stack: 1: Direct zero page
;        3: Plb
;        4: Rtls
;        10: ID
;        12: ZeroPage

	lda 12,s	;get passed direct page
	tcd	;use passed direct page

;
;This initlizes the	zero page values
;
ok6		; 

	ldy #3
	ldx #$18
LoopInitWap	stz MyWap,x	;init. MyWap table
	inx
	inx
	dey
	bne LoopInitWap


	pld	Put user zero-page
	plb	Put user data bank register

;
;Just startup (no initialization stuff)
;
JustStartUp		; 
	phd
	lda 11,s	One allowed zero-page !
	tcd
	sta MyWap	;Save zero page addess



* Stack: 1: ZeroPage application
*        3: Rtls
*        9: ID
*        11: ZeroPage

* Now the startup begins

* Clear this new zero-page
	ldx #$F6
loop	stz <0,x
	dex
	dex
	bpl loop

	lda MyWap+IDWap	;get Waps ID
	sta MyID	;put in zero page

* Stack: 1: ZeroPage application
*        3: Rtls
*        9: ID
*        11: ZeroPage

;
* Allocate memory for IOBuffer
;
	PushLong #0
	PushLong #$2800
	PushWord <MyID
	PushWord #%0000000000000000 No locked, no fixed, PurgeLvl0
	PushLong #0
	_NewHandle

	bcc OkIoBuff	;branch if no erros
	brl ErrorOpen

OkIoBuff	pla	;save Handle for IO	at 'HandleIO'
	sta <HandleIO
	pla
	sta <HandleIO+2

;
* Allocate memory for Color Table
;
	PushLong #0
	PushLong #$200
	PushWord <MyID
	PushWord #%0000000000000000 No locked, no fixed, PurgeLvl0
	PushLong #0
	_NewHandle

	bcc Lab1	;branch if no errors
	brl ErrorOpen

lab1		; 
	pla	;save handle for color table
	sta <HandleColor
	pla
	sta <HandleColor+2

* Init some default	value
	jsr DerefColor	;deref. the color table to <PtrColor

	phb	;save B-reg.
	phk	;get programs bank
	plb	;set data bank to programs bank

;
;Initilize the color table (16 palettes	x 16 tables)
;
	ldy #0
	stz ComptCol	;init. which table

LoopColor2	ldx #0	;for each palette

LoopColor	lda InitColor,x
	sta [<PtrColor],y
	iny
	iny
	inx
	inx
	cpx #$20
	bne LoopColor
	inc comptcol
	lda Comptcol
	cmp #16	;for sixteen palette tables
	bne LoopColor2

	PushLong <HandleColor
	_HUnLock	;unlock it

;
;Init. the Page Rectangles (Portrait and Landscape)
;
	stz <PageRectL	0 pixel at left margin landscape
	stz <PageRect	0 pixel at top margin
	stz <PageRect+2	0 pixel at left margin
	lda #1280	1280 pixels at right margin
	sta <PageRect+6
	lda #1584	1584 pixels at bottom margin
	sta <PageRectL+2
	lda #1584	1584 pixels at bottom margin
	sta <PageRect+4

;Init. the background color table
	ldx #$1E	Init BackGround Color
	lda #$10
LoopBackC	sta <BackColor,x
	dex
	dex
	bpl LoopBackC

	lda #$8000	Init Mode
	sta <JobPrint

	lda 10,s
	sta <Owner

	stz MyWap+PID
	stz MyWap+PID+2
	stz MyWap+PID+4
	
	stz CurHposInLine	; initialize horizontal pos counter

;Copy the hook procedures for (SSC) Super Serial Card to zero page at '<Go'
	ldx #20	Put all hooks to SSC in zero page
loopHook	lda HookProc,x
	sta <Go,x
	dex
	dex
	bpl LoopHook
	
	lda #1
	jsr initSSC

	plb
	lda #0	;indicate no errors	on return
	pld
	brl LLdExit4

;------------------------------------------------------------------------------
* Error on StartUp,	We simulate a ShutDown to finish
;-----------------------------------------------------------------------------
* Stack: 1: HandleIO
*        5: ZeroPage application
*        7: Rtls
*        13: ID
*        15: ZeroPage

ErrorOpen		; 
	ply
	ply
	sta <Error	Take ID for ShutDown
	lda 9,s

	jsr ShutDown

* Stack: 1: ZeroPage application
*        3: Rtls
*        9: ID
*        11: ZeroPage

NowKill	lda 13,s	Setup stack as for a real ShutDown
	sta 15,s
	lda 11,s
	sta 13,s
	lda 9,s
	sta 11,s
	lda 7,s
	sta 9,s
	lda 5,s
	sta 7,s
	lda 3,s
	sta 5,s
	lda 1,s
	sta 3,s
	pla
* Stack: 1: ZeroPage application
*        3: Rtls
*        9: ID
	brl KillLLD

ComptCol	DC.W 0	;Counter used in init. of color tables

InitColor	DC.W $0000	;Initial color palette values
	DC.W $0F00
	DC.W $00F0
	DC.W $000F
	DC.W $0088
	DC.W $0808
	DC.W $0066
	DC.W $0555
	DC.W $0AAA
	DC.W $0F80
	DC.W $08F8
	DC.W $0F88
	DC.W $0FF0
	DC.W $0F0F
	DC.W $00FF
	DC.W $0FFF


	
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;
;  NAME:       LLDShutDown
;
;  PURPOSE:    Shuts down the low level	stuff
;
;  PASSED:     WORD		User ID
;
;  RETURNED:   (A-reg.)	=zero, No errors
;		=$1108, Locked User
;
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;-----------------------------------------------
	EXPORT LLDShutDown
LLDShutDown		;       
	jsl xLLDShutDown
	rtl
;-----------------------------------------------
	EXPORT xLLDShutDown
xLLDShutDown		;       
	phd	Take user's ZeroPage
	lda MyWap	;get saved LLD zero	page addr.
	tcd	;use it

	Bit Lock	Check if locked User
	bmi ShutLock

	lda 9,s	User ID
	jsr ShutDown	ShutDown the user

;
;We arrive here when we need to kill a low level call
;
* Stack: 1: ZeroPage application
*        3: Rtls
*        9: ID
KillLLD		; 
* Now return to MicroLLD
	_PrDevClose
	
	stz MyWap+$16	;flag for next entry (done for now)
	pld
	lda #0
	brl LLDexit2

* Error for ShutDown
ShutLock		; 
	lda #$1108	Error: Locked User

SErrID		; 
	pld
	brl LLdExit2	Error: Unknown user
;------------------------------------------------------------------------------
;
;  NAME:       ShutDown
;
;  PURPOSE:    Subroutine which aids in	shutting down low level routines
;
;  PASSED:     (A-reg.)	User ID
;
;  RETURNED:   NONE
;
;------------------------------------------------------------------------------
* Real Shutdown. Entry: A ID
*	    D User zeroPage
ShutDown		; 
	sta <Stock

	PushLong <HandleIO
	_DisPoseHandle	;dispose of the IO buffer

	PushLong <HandleColor
	_DisposeHandle	;dispose of the color table

	sec
	rts
	
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;
;  NAME:       LLDBitMap
;
;  PURPOSE:    Prints Bit Maps
;
;  PASSED:     LONG		Pointer to the BitMap
;              LONG		Pointer to the Rectangle
;              WORD		UserID
;
;  RETURNED:   (A-reg.)	=0, No Errors
;
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;-----------------------------------------------
	EXPORT LLDBitMap
LLDBitMap		;       
	jsl xLLDBitMap
	rtl
;-----------------------------------------------
	EXPORT xLLDBitMap
xLLDBitMap		;       
	phd	Take user's ZeroPage
	lda MyWap	;get saved LLD zero	page addr.
	tcd	;use it

* Stack: 1: Application direct page
*        3: rtls
*        9: ID
*        11: ptr rect
*        15: Ptr BitMap


	jsr InitPrinting

;Get the pointer to	the bit map
	lda 15,s
	sta <PtrBitMap
	lda 17,s
	sta <PtrBitMap+2

;Get the rectangle
	lda 13,s
	sta <PtrRect+2
	lda 11,s
	sta <PtrRect

	jsr BitMapShoot	;print the bit map
	lda #0

ErrId1	pld
	brl LLdExit10

	
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;
;  NAME:       LLDText (alias TextStreaming)
;
;  PURPOSE:    Prints text.
;
;  PASSED:     LONG		Pointer to the text	to be printed
;              WORD		Length (no. of bytes) of the text
;              WORD		UserID
;
;  RETURNED:   (A-reg.)	=0, No Errors
;
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;-----------------------------------------------
	EXPORT LLDText
LLDText		;       
	jsl xLLDText
	rtl
;-----------------------------------------------
	EXPORT xLLDText
xLLDText		;       
	phd	Take user's ZeroPage
	lda MyWap	;get saved LLD zero	page addr.
	tcd	;use it

* Stack: 1: Application direct page
*        3: rtls
*        9: ID
*        11: length
*        13: Ptr Text

	lda 11,s	; get the length of this string
	asl a	; multiply by 8 (assuming 8 dot columns
	asl a	; per character)
	asl a
	clc	
	adc CurHposInLine	; add it to the current hpos
	sta CurHposInLine

	lda MyWap+$1c
	cmp #2
	beq FiltreText

	lda #3
	jsr InitSSC

;***********************************added by luc for foreign chars.***********
	bra FiltreText	; new procedure added by Luc to
		; filter out foreign characters
EndText	lda <Error
ErrId2	pld
	brl LLdExit8

FiltreText		; 
	lda 11,s
	beq EndText
	phd
	tsc
	tcd
	lda [15]	; zero page and stack are same
	pld	; at this point
	pha
	lda 15,s
	clc
	adc #1
	sta 15,s
	bcc easyInc
	lda 17,s
	ina
	sta 17,s
EasyInc		; 
	lda 13,s
	dea
	sta 13,s
	pla
	and #$ff
	cmp #$0d
	beq easyCar
	cmp #$0a
	beq easyCar
	cmp #$0c
	beq easyCar
	cmp #$20
	blt FiltreText
	cmp #$80
	bge Specialcar
easyCar	Jsr SendSingleCar
	brl FiltreText
Specialcar		; 
	pha
	lda SpeCarTable
	asl a
	tax
	pla
LoopSpe	cmp SpeCarTable,x
	beq FounditSpe
	dex
	dex
	bne LoopSpe
	brl FiltreText
FounditSpe	txa
	asl a
	tax
LoopExchg		; 
	lda #0
	sep #$20
	longa off
	lda ExchgCar,x
	rep #$20
	longa on
	and #$FFFF
	beq DoneSpe
	phx
	Jsr SendSingleCar
	plx
	inx
	bra LoopExchg
DoneSpe	brl FiltreText

ExchgCar	DC.B $00
	DC.B $00
	DC.B $00
	DC.B $00
	DC.B $5C	; c cedilla
	DC.B $00
	DC.B $00
	DC.B $00
	DC.B 'a'	; a circumflex
	DC.B $08
	DC.B $5e
	DC.B $00
	DC.B 'a'	; a acute
	DC.B $08
	DC.B $27
	DC.B $00
	DC.B 'a'	; a grave
	DC.B $08
	DC.B $60
	DC.B $00
	DC.B 'a'	; a dieresis
	DC.B $08
	DC.B $7e
	DC.B $00
	DC.B 'e'	; e circumflex
	DC.B $08
	DC.B $5e
	DC.B $00
	DC.B 'e'	; e acute
	DC.B $08
	DC.B $27
	DC.B $00
	DC.B 'e'	; e grave
	DC.B $08
	DC.B $60
	DC.B $00
	DC.B 'e'	; e dieresis
	DC.B $08
	DC.B $7e
	DC.B $00
	DC.B 'i'	; i curcumflex
	DC.B $08
	DC.B $5e
	DC.B $00
	DC.B 'i'	; i acute
	DC.B $08
	DC.B $27
	DC.B $00
	DC.B 'i'	; i grave
	DC.B $08
	DC.B $60
	DC.B $00
	DC.B 'i'	; i dieresis
	DC.B $08
	DC.B $7e
	DC.B $00
	DC.B 'o'	; o circumflex
	DC.B $08
	DC.B $5e
	DC.B $00
	DC.B 'o'	; o acute
	DC.B $08
	DC.B $27
	DC.B $00
	DC.B 'o'	; o grave
	DC.B $08
	DC.B $60
	DC.B $00
	DC.B 'o'	; o dieresis
	DC.B $08
	DC.B $7e
	DC.B $00	
	DC.B 'u'	; u circumflex
	DC.B $08
	DC.B $5e
	DC.B $00
	DC.B 'u'	; u acute
	DC.B $08
	DC.B $27
	DC.B $00
	DC.B 'u'	; u grave
	DC.B $08
	DC.B $60
	DC.B $00
	DC.B 'u'	; u dieresis
	DC.B $08
	DC.B $7e
	DC.B $00
	
SpeCarTable	DC.W 21
	DC.W $89	; a circonflex
	DC.W $87	; a Aigu
	DC.W $88	; a grave
	DC.W $8a	; a trema
	DC.W $8D	; c cedilla
	DC.W $90	; e circonflex
	DC.W $8e	; e Aigu
	DC.W $8f	; e grave
	DC.W $91	; e trema
	DC.W $94	; i circonflex
	DC.W $92	; i Aigu
	DC.W $93	; i grave
	DC.W $95	; i trema
	DC.W $99	; o circonflex
	DC.W $97	; o Aigu
	DC.W $98	; o grave
	DC.W $9a	; o trema
	DC.W $9e	; u circonflex
	DC.W $9c	; u Aigu
	DC.W $9d	; u grave
	DC.W $9f	; u trema
	
	
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;
;  NAME:       LLDHardCopy
;
;  PURPOSE:    Prints whats on the screen
;
;  PASSED:     NONE
;
;  RETURNED:   (A-reg.)	=0, No errors
;		=Memory Mgr. errors	returned unaltered
;
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;-----------------------------------------------
	EXPORT LLDHardCopy
LLDHardCopy		;       
	jsl xLLDHardCopy
	rtl
;-----------------------------------------------
	EXPORT xLLDHardCopy
xLLDHardCopy		;       
	phd	Take user's ZeroPage
	lda MyWap	;get saved LLD zero	page addr.
	tcd	;use it

	jsr InitPrinting	;initilize things for printing
	jsr ScreenShoot	;print the screen
ErrId3	pld
	brl LLdExit6


;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;
;  NAME:       NewPage
;
;  PURPOSE:    Causes a new page (page eject) to occur.
;
;  PASSED:     NONE
;
;  RETURNED:   NONE
;
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;-----------------------------------------------
	EXPORT NewPage
NewPage		;       
	jsl xNewPage
	rtl
;-----------------------------------------------
	EXPORT xNewPage
xNewPage		;       
	phd	Take user's ZeroPage
	lda MyWap	;get saved LLD zero	page addr.
	tcd	;use it


	lda #3
	jsr InitSSC

	jsr FormFeed	;do a form feed

ErrId14	pld
	brl LLdExit0
	
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;
;  NAME:       LLDControl (alias Control)
;
;  PURPOSE:    Performs low level print	commands
;
;  PASSED:     WORD		PrinterControlValue
;		=1 (reset printer)
;		=2 (cause form feed)
;		=3 (cause line feed)
;
;  RETURNED:   (A-reg.)	=0, No errors
;		=$1209, Invalid PrinterControlValue
;
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;-----------------------------------------------
	EXPORT LLDControl
LLDControl		;       
	jsl xLLDControl
	rtl
;-----------------------------------------------
	EXPORT xLLDControl
xLLDControl		;       
	phd	Take user's ZeroPage
	lda MyWap	;get saved LLD zero	page addr.
	tcd	;use it


	lda 9,s	;get control value
	cmp #1
	bne Lab70

;We arrive here if PrinterControlValue=1 (RESET PRINTER)
	lda #3	Reset printer
	jsr InitSSC	;reset the port

	jsr ResetPrinter	;send reset printer	command

	bra ErrId70

Lab70	cmp #2
	bne Lab71

;We arrive here if PrinterControlValue=2 (FORM FEED)
	jsl NewPage	New Page

	bra ErrId70

Lab71	cmp #3
	bne lab72

;We arrive here if PrinterControlValue=3 (LINE FEED)
	lda #3	LF
	jsr InitSSC
;	jsr SendRC	;send a line feed
	bra ErrId70

lab72	lda #$1209
ErrId70	pld
	brl LLdExit2


;------------------------------------------------------------------------------
;
;  NAME:       InitPrinting
;
;  PURPOSE:    Initializes things for printing
;
;  PASSED:     NONE
;
;  RETURNED:   NONE
;
;------------------------------------------------------------------------------
InitPrinting		; Check if new Init	or Zap Needed
	jsr PrintCheck

	lda #1
	jsr InitSSC

	lda <JobPrint
	sta <Quality	;set the quality

	bpl EndInit	;branch if Black and White

	lda MyWap+PID
	beq EndInit	Printer is off or unknown. Do nothing

	lda MyWap+PID+4	Check if printer has a color ribbon
	bmi EndInit	Color ribbon found

	lda #$7fff
	and <Quality
	sta <Quality

EndInit		; 
	rts

	
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;
;  NAME:       CheckPrinter
;
;  PURPOSE:    To check out which type of printing
;
;  PASSED:     LONG		Pointer to Info string
;
;  RETURNED:   (A-reg.)	=0, No Errors
;
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;-----------------------------------------------
	EXPORT CheckPrinter
CheckPrinter		;       
	jsl xCheckPrinter
	rtl
;-----------------------------------------------
	EXPORT xCheckPrinter
xCheckPrinter		;       
	phd	Take user's ZeroPage
	lda MyWap	;get saved LLD zero	page addr.
	tcd	;use it

	jsr PrintCheck	;get printers attributes

	lda 9,s
	sta <PtrInfo
	lda 11,s
	sta <PtrInfo+2

	ldx #0
	ldy #PID
	lda MyWap,y	;look at printers attribute string
	beq Emptystring	;branch if empty

	phy
	txy
	sta [<PtrInfo],y
	inx
	inx
	ply
	lda MyWap,y
	phy
	txy
	sta [<PtrInfo],y
	inx
	inx
	ply
	lda MyWap,y
	and #$8000
	beq NoColor	;branch if not color

	phy
	txy
	lda #$43	C for Color Rubbon
	sta [<PtrInfo],y
	inx
	ply

NoColor	lda MyWap,y
	and #$4000
	beq NoFeeder	;branch if no feeder
	phy
	txy
	lda #$46	F for Feeder
	sta [<PtrInfo],y
	inx
NoFeeder		; 

EmptyString	txy
	lda #$0D
	sta [<PtrInfo],y

	lda #0

ErrId19	pld
	brl LLdExit0
	
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;
;  NAME:       LLDSetQuality	(alias LLDSetMode)
;
;  PURPOSE:    to set the printing quality at JOBPRINT (called by StartLLD)
;
;  PASSED:     WORD		QUALITY
;              WORD		UserID
;
;  RETURNED:   (A-reg.)	=0, No Errors
;
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------

;-----------------------------------------------
	EXPORT LLDSetQuality
LLDSetQuality		;       
	EXPORT LLDSetMode
LLDSetMode		;       
	jsl xLLDSetQuality
	rtl
;-----------------------------------------------
	EXPORT xLLDSetQuality
xLLDSetQuality		;       
	phd	Take user's ZeroPage
	lda MyWap	;get saved LLD zero	page addr.
	tcd	;use it

* Stack: 1: Direct Page Application
*        3: rtls
*        9: ID user
*        11: Quality

	lda 11,s	;get quality
	sta <JobPrint
	lda #0

ErrId4	pld
	brl LLdExit4

	
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;
;  NAME:       LLDSetPenPos
;
;  PURPOSE:    Sets	the printer head position
;
;  PASSED:     WORD		Pens Horzontal Position
;              WORD		Pens Vertical Position
;              WORD		User ID
;
;  RETURNED:   (A-reg.)	=0, No Errors
;
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;-----------------------------------------------
	EXPORT LLDSetPenPos
LLDSetPenPos		;       
	jsl xLLDSetPenPos
	rtl
;-----------------------------------------------
	EXPORT xLLDSetPenPos
xLLDSetPenPos		;       
	phd	Take user's ZeroPage
	lda MyWap	;get saved LLD zero	page addr.
	tcd	;use it

* Stack: 1: Direct Page Application
*        3: rtls
*        9: User Id
*        11: NewPenPosV
*        13: NewPenPosH

	lda 11,s	;get the pens vertical position
	sta <NewPenPosV

	lda 13,s	;get the pens horizontal position
	sta <NewPenPosH

	jsr MovePen	;move the print head to location

	Lda #0
ErrID6	pld
	brl LLdExit6
	
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;
;  NAME:       LLDSetColor
;
;  PURPOSE:    To set one color palette	in the color palette table
;
;  PASSED:     LONG		Pointer to color palette values
;              WORD		Which color palette	in color table
;              WORD		User ID
;
;  RETURNED:   (A-reg.)	=0, No Errors
;
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;-----------------------------------------------
	EXPORT LLDSetColor
LLDSetColor		;       
	jsl xLLDSetColor
	rtl
;-----------------------------------------------
	EXPORT xLLDSetColor
xLLDSetColor		;       
	phd	Take user's ZeroPage
	lda MyWap	;get saved LLD zero	page addr.
	tcd	;use it

* Stack: 1: Direct Page
*        3: Rtls
*        9: ID
*        11: Color palette in color table
*        13: Ptr to	color palette

	jsr SetColor

	lda #0

ErrID17	pld
	brl LLdExit8
	
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;
;  NAME:       LLDSetTColor
;
;  PURPOSE:    Sets	the color palette table (whole table)
;
;  PASSED:     LONG		Pointer the new color palette table
;              WORD		User ID
;
;  RETURNED:   (A-reg.)	=0, No Errors
;
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
	EXPORT LLDSetTColor
LLDSetTColor		;       
;-----------------------------------------------
	jsl xLLDSetTColor
	rtl
;-----------------------------------------------
	EXPORT xLLDSetTColor
xLLDSetTColor		;       
	phd	Take user's ZeroPage
	lda MyWap	;get saved LLD zero	page addr.
	tcd	;use it

* Stack: 1: Direct Page
*        3: Rtls
*        9: ID
*        11: Ptr to	color palette

	jsr SetColorT	;set the color palette table

	lda #0

ErrID20	pld
	brl LLdExit6


;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;
;  NAME:       LLDGetTColor
;
;  PURPOSE:    Copies the color pallete	table to the specified location
;
;  PASSED:     LONG		Pointer to where to	store color table
;              WORD		User ID
;
;  RETURNED:   (A-reg.)	=0, No Errors
;
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
	EXPORT LLDGetTColor
LLDGetTColor		;       
;-----------------------------------------------
	jsl xLLDGetTColor
	rtl
;-----------------------------------------------
	EXPORT xLLDGetTColor
xLLDGetTColor		;       
	phd	Take user's ZeroPage
	lda MyWap	;get saved LLD zero	page addr.
	tcd	;use it

* Stack: 1: Direct Page
*        3: Rtls
*        9: ID
*        11: Ptr to	color palette

	jsr GetColorT	;get the color pallete

	lda #0

ErrID21	pld
	brl LLdExit6
	
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;
;  NAME:       LLDSetPageRect
;
;  PURPOSE:    Sets	the page rectangle
;
;  PASSED:     LONG		Pointer to page rectangle
;              WORD		User ID
;
;  RETURNED:   (A-reg.)	=0, No Errors
;
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
*
* Page Rect
*

	EXPORT LLDSetPageRect
LLDSetPageRect		;       
;-----------------------------------------------
	jsl xLLDSetPageRect
	rtl
;-----------------------------------------------
	EXPORT xLLDSetPageRect
xLLDSetPageRect		;       
	phd	Take user's ZeroPage
	lda MyWap	;get saved LLD zero	page addr.
	tcd	;use it


* Stack: 1: Direct Page Application
*        3: rtls
*        9: ID user
*        11: PageRect

	lda 11,s	;get the pointer to	the page rect.
	sta <PtrInfo
	lda 13,s
	sta <PtrInfo+2	;get the rest of the pointer

;Now copy the page rectangle
	ldy #6
LoopSetPage	lda [<PtrInfo],y
	tyx
	sta <PageRect,x
	dey
	dey
	bpl LoopSetPage

	lda <PageRect+2	Calc Landscape ratio
	sta <PageRectL

	lda <PageRect+6
	sta <PageRectL+2

	lda #0
ErrID10	pld
	brl LLdExit6

	ENDP


;                copy    LLD.HardCopy
	
*****************************
*	        *
* Lld.HardCopy	        *
*	        *
* Current Rev: Nov.	1987    *
*    Hard Copy	        *
*	        *
*****************************

	EXPORT HardCopy
HardCopy	PROC
;------------------------------------------------------------------------------
;
; NAME:        ScreenShoot
;
; PURPOSE:     To print the screen
;
; PASSED:      WORD		Type Flag
;		 =0 Whole screen
;		^=0 Top only
;              WORD		Background Flag (NOT USED)
;              WORD		User ID
;
; RETURNED:
;
;------------------------------------------------------------------------------
	EXPORT ScreenShoot
ScreenShoot		;       ;Make a screencopy
	phb
	phk
	plb

	lda #200
	sta BottomScreen	;set bottom of screen to 200
	stz ContLine	;init. counter

	stz RectScreen+2	;set left to zero
	lda #640
	sta RectScreen+6	;set right to 640
	lda #200
	sta RectScreen+4	;set bottom to 200
	stz RectScreen	;set top to zero

; Stack: 1 : plb
;        2 : rts
;        4 : User Zero page
;        6 : rtls
;        12 : ID
;        14 : Background flag
;        16 : Type flag
;
; Take TopWindow if	needed
;
	lda 16,s
	beq NoTop	;branch if not top only

	PushLong #0
	PushLong #0	The Front Window
	_FrontWindow

	_GetStructRgn	Vis region of TopWindow

	lda 1,s
	sta <PtrLocal	;save the regions handle
	lda 3,s
	sta <PtrLocal+2
;
; ============================================
; ===  WARNING FORBIDDEN BUT NEEDED ACTION ===
; ============================================
;  This region is a	rectangle. I need to dereference the region
;         Rectangle	Region: 0A 00 Top Left Bottom Right
;
	PushLong <PtrLocal
	_HLock	;lock the region
	ldy #2
	lda [<PtrLocal]
	tax
	lda [<PtrLocal],y
	stx <PtrLocal	;now we have the pointer
	sta <PtrLocal+2

	lda [<PtrLocal],y
	sta ContLine
	iny
	iny
	lda [<PtrLocal],y
	sta RectScreen+2
	iny
	iny
	lda [<PtrLocal],y
	sta BottomScreen
	iny
	iny
	lda [<PtrLocal],y
	sta RectScreen+6

	_HUnLock	;now unlock the region

NoTop		; 
;
; First we must save ColorTable of the user
; We ask for a handle for this purpose
;
	PushLong #0	Ask for handle for saving color table
	PushLong #$0200
	PushWord MyPID
	PushWord #%0000000000011100 Purge level0. Not locked, not fixed
	PushLong #0
	_NewHandle
;
;  If a memory manager error occurs, we	get out
;
	bcc NoError34
	brl ErrorH
;
;  Take the handle,	and dereference it
;
NoError34		; 
	pla	;first save the handle
	sta SaveHColorT
	pla
	sta SaveHColorT+2

	jsr DefColorTable	;dereference SaveHColorT to <PtrLocal
;
;  We save user table color and we put screen color table
;
	PushLong <PtrLocal
	PushWord <Owner	User ID
	jsl LLDGetTColor

	PushLong SaveHColorT
	_HUnLock	;Unlock it

;;               PushLong #$E19E00	  On met la palette	de couleur ecran
	pea $00E1	; (PushLong #$E19E00)
	pea $9E00
	PushWord <Owner	User ID
	jsl LLDSetTColor

Direct		; 
;
;  Init hardcopy. Save <JobPrint, and init PortLoc
;
	_HideCursor

	jsr Init	;initialize things
;
;  Put actual Screen address in PortLoc	($E1/2000)
;
	lda #$E1	Screen Address
	sta ScrLoc+4
	lda #$2000
	sta BeginScreen
;
;  Main loop for printing
;
loopdirect		; 
;
;  Ask the first change in the SCB table
;
	jsr CheckSCB	Make a BitMap Loc
;
;  Can't make a landscape screen shoot with changing SCB
;
	bcs ErrorLand
;
;  Do actual printing of a zone
;
	PushLong #ScrLoc
	PushLong #RectScreen
	PushWord <Owner
	jsl LLDBitMap	;print it
;
; Test if end of printing
;
	lda ContLine	;get current line we are on
	cmp BottomScreen	;Test for end of screen
	bne loopDirect	;loop until at bottom
;
; Close all handles. Restore user's color table, <Quality
;
	jsr CloseHard	Close all handle

	_ShowCursor	;display the cursor
;
;  Leave without errors
;
	lda #0
	plb
	rts

ErrPr	brk $C0
;
; We attempted to do landscape printing	with a changing SCB
;
ErrorLand		; 
	jsr CloseHard	Close all handle
;------------------------------------------------------------------------------
; NOTE: $1213
;------------------------------------------------------------------------------
	lda #$1213	Hardcopy in landscape impossible
	plb
	rts
;------------------------------------------------------------------------------
;  We arrive here with with an error on	_NewHandle for Handle color
;------------------------------------------------------------------------------
ErrorH		; Error on HandleColor
	plx
	plx
	plb
	rts
	
;------------------------------------------------------------------------------
;
; NAME:        CloseHard
;
; PURPOSE:     Shuts down things used by 'ScreenShoot'
;
; PASSED:      NONE
;
; RETURNED:    NONE
;
;------------------------------------------------------------------------------
CloseHard		; 
;
; Restore the users	saved color table
;
	jsr DefColorTable	;derefernce SaveHColorT to PtrLocal

	PushLong <PtrLocal
	PushWord <Owner
	jsl LLDSetTColor	;restore users color table

	PushLong SaveHColorT
	_DisposeHandle	;dispose of it
;
;  Restore <JobPrint
;
	lda SaveQuality
	sta <JobPrint

	rts

;------------------------------------------------------------------------------
;
; NAME:        Init
;
; PURPOSE:     Saves the Quality and inits the Srcloc values
;
; PASSED:      NONE
;
; RETURNED:    NONE
;
;------------------------------------------------------------------------------
; Save <Jobprint

Init		; 
	lda <JobPrint
	sta SaveQuality	;Save the quility

;
;  Init SrcLoc values
;
	stz ScrLoc+8	Boundsrect Top
	stz ScrLoc+10	Boundsrect Left
	stz ScrLoc	SCB
	lda #$a0
	sta ScrLoc+6	length of a line in	bytes
	rts
	
;------------------------------------------------------------------------------
;
; NAME:        CheckSCB
;
; PURPOSE:     Check SCB (Scan Control Block) until the first change
;
; PASSED:      NONE
;
; RETURNED:    (Carry Bit)	=0, If portrait mode or unchanged SCB's
;		=1, If landscape and changing SCB's
;
;------------------------------------------------------------------------------
CheckSCB		; 
;
; Calc beginning of	bitmap (current line times $a0)
;
	PushLong #0
	PushWord Contline	;current line
	PushWord #$A0
	_Multiply

	pla	;get result of multiply
	clc
	adc BeginScreen	;add in the beginning of screen
	sta ScrLoc+2
	pla
;
;  Look at the first SCB
;
	PushWord #0
	PushWord ContLine
	_GetSCB	;gets the SCB for that line

	lda 1,s
	and #$000F	;look only at color	table no.
	sta ScrLoc	;save it for now

	stz ContRect	;init counter
;
;  main loop for checking for changing SCB's
;
LoopCheck		; 
	inc ContRect
	inc ContLine	;look at current line
	lda ContLine
	cmp BottomScreen
	beq EndCheck	;branch if its at screens bottom

	PushWord #0
	PushWord ContLine
	_GetSCB	;get SCB of current	line
	pla

	and #$000F	;look only at color	table bits
	cmp ScrLoc	;see if different from first SCB's
	beq LoopCheck	;branch if same
;
; We arrive here if	at bottom or different SCB color table reference was found
;
EndCheck		; 
	pla	;get the first SCB that was checked
	and #$008F	;look only at color	table and mode bits
	sta ScrLoc

	lda ContRect
	sta ScrLoc+12	;save the line we ended with (bottom)

	lda <JobPrint	;assume 320 mode
	and #$FFFE	;so AND out bit for	320 mode
	sta <JobPrint

	ldx #320	;assume 320 mode
	lda ScrLoc
	and #$00F0
	beq OkMode	;branch if 320 mode

;We arrive here if its 640 mode
	ldx #640
	inc <JobPrint	;turn on 640 mode bit

OkMode	stx ScrLoc+14	;save mode (320 or 640)

	lda <JobPrint
	and #$4000	;look at landscape/portrait bit
	beq Xclc	;branch if portrait	(SCB doesn't matter)

	lda ContLine	;get line we stopped with
	cmp BottomScreen	;see if its bottom of screen
	beq Xclc	;branch if hit bottom
	sec	;else flag changing	SCB
	rts

;We arrive here when we are in portrait	mode or unchanging SCB's
Xclc	clc
	rts
	
;------------------------------------------------------------------------------
;
; NAME:        DefColorTable
;
; PURPOSE:     Dereferences SaveHColorT	(color table) to <PtrLocal
;
; PASSED:      NONE
;
; RETURNED:    NONE
;
;------------------------------------------------------------------------------
DefColorTable		; 
	PushLong SaveHColorT ;lock the handle
	_HLock

	lda SaveHColorT	;store handle to zero page temporary
	sta <NewPenPosH
	lda SaveHColorT+2
	sta <NewPenPosH+2

	ldy #2	;now dereference to	<PtrLocal
	lda [<NewPenPosH]
	sta <PtrLocal
	lda [<NewPenPosH],y
	sta <PtrLocal+2
	rts
	
;------------------------------------------------------------------------------
; Tables
;------------------------------------------------------------------------------
SaveHColorT	DS.B 4	;saved handle to the color table
SaveScreen	DS.B 4
ScrLoc	DS.B 16
SaveQuality	DS.B 2	;saved Quality
ContLine	DS.B 2	;current line
ContRect	DS.B 2
BeginScreen	DS.B 2	;beginning of screen
BottomScreen	DS.B 2	;bottom of screen
RectScreen	DS.B 8
	ENDP
;                copy    LLD.BitMap
*****************************
*	        *
* CiDrvr: Printer Driver IW *
*   bitmapDrvr	        *
*	        *
* Current Rev: Nov.	1987    *
*	        *
*****************************

* quality:     8000	=> B/W vs Color
*              4000	=> landscape vs portrait
*              2000	=> vertical sizing
*              0002	=> Hires vs Highcolor
*              0001	=> 640 vs 320

* From quality we set up other variables:

* spedens:     0	   if portrait or 320     
*              4000	   if landscape 640	lores
*              8000	   if landscape 640	hires  (144dpi)
* vsizing      8000	   if portrait and vsizing

* currentDef:  4	   if highcolor and	spedens=0
*              8	   other


	EXPORT BitMapDrvr
BitMapDrvr	PROC

;------------------------------------------------------------------------------
;
; NAME:        BitMapShoot
;
; PURPOSE:     Performs the actual printing of a bitmap image
;
; PASSED:      NONE
;
; RETURNED:    NONE
;
;------------------------------------------------------------------------------

*              using   DataBitMap

	EXPORT BitMapShoot
BitMapShoot		;       
	jsr Pattern	;setup the initial print patterns
	phb	Activate local Data	Bank Register
	phk
	plb

	stz SpeDens	;init. variables
	stz Vsizing

	lda <Quality	;look at quality
	and #$6002
	cmp #$2002
	bne noVsizing	;branch if no vert.	sizing
	sec
	ror Vsizing	;set vertical sizing high bit
noVSizing		; 

	lda <Quality
	and #$4000	;look at landscape vs portriat
	beq NoProblem	;branch if portrait

	lda <Quality
	and #$0003
	cmp #$1
	beq Problem1
	cmp #3
	bne NoProblem

	lda #$8000
	sta SpeDens	Landscape Quality 4	    
	bra NoProblem

Problem1	lda #$4000	LandScape Quality 2
	sta SpeDens

;Now copy the bitmap definition to DrvrBitMap
NoProblem	ldy #14	;Copy BitMap definition
Loop1	lda [<PtrBitMap],y
	sta DrvrBitMap,y
	dey
	dey
	bpl loop1

	stz ContLine	;init. current print buffer line

* I Check if Printed Rect was inside BoundsRect with QuickDraw
* With all LLD calling QuickDraw must be activate unless HardCopy.
* HardCopy make an internal calling to Print BitMap, then I	sure that Printed
* was inside BoundsRect.

	lda <PtrBitMap
	clc
	adc #8
	sta <PtrLocal
	lda <PtrBitMap+2
	adc #0
	sta <PtrLocal+2

	PushWord #0	Check if BoundsRect	is empty
	PushLong <PtrLocal
	_NotEmptyRect

	ldx #$1113	No possible intersection
	pla
	beq ErrorBit

	PushWord #0	Check if Printed Rect is empty
	PushLong <PtrRect
	_NotEmptyRect

	ldx #$1114	No possible intersection
	pla
	beq ErrorBit

	PushWord #0
	PushLong <PtrLocal	Calculate the Intersection between
	PushLong <PtrRect	Printed Rect and BoundsRect and
	PushLong #DrvrRect	the result is the real Printed Rect
	_SectRect

	ldx #$1115	No intersection
	pla
	bne L4

ErrorBit	stx <Error
	plb
	rts

l4	ldy #2	Make a translation of origin
loop13	lda DrvrBitMap+12,y	Top,Left of BoundsRect became 0,0
	sec	and all other coord. are calculated again
	sbc DrvrBitMap+8,y	with this new origin
	sta DrvrBitMap+12,y

	lda DrvrRect,y
	sec
	sbc DrvrBitMap+8,y
	sta DrvrRect,y

	lda DrvrRect+4,y
	sec
	sbc DrvrBitMap+8,y
	sta DrvrRect+4,y

	dey
	dey
	bpl loop13

	stz DrvrBitMap+8	Tb became 0
	stz DrvrBitMap+10	Lb became 0

	lda <Quality	;look at landscape vs portriat
	and #$4000
	beq L41	;branch if portriat

;------------------------------------------------------------------------------
* Landscape printing. We translate printed rect and boundsrect into other
* direction. Tb and	Lb are needed to be	equal 0
;------------------------------------------------------------------------------
	lda DrvrBitMap+12	Tb <- Tb
	ldy DrvrBitMap+14	Lb <- Lb
	sta DrvrBitMap+14	Bb <- Rb
	sty DrvrBitMap+12	Rb <- Bb

	lda DrvrRect+2	Tr <- Lr
	sta LandStock	Lr <- Bb-Br
	lda DrvrRect+6	Br <- Rr
	sta LandStock+2	Rr <- Bb-Tr

	lda DrvrRect+4
	sta HightLand

	lda DrvrBitMap+14
	sec
	sbc DrvrRect+4
	sta DrvrRect+2
	lda DrvrBitMap+14
	sec
	sbc DrvrRect
	sta DrvrRect+6

	lda LandStock
	sta DrvrRect
	lda LandStock+2
	sta DrvrRect+4

* If Printed Rect's and BoundsRect's Top and Bottom are not	equal, there are
* some blank lines at the beginning and	at the end of the picture


* If Printable paper is smaller than Printed Rect we must shrink Printed Rect

	lda <Quality
	and #$1
	tax

	lda <PageRectL	Left margin landscape
	sta <PageRectPtr

	lda <PageRectL+2	Right margin landscape
	sta <PageRectPtr+2

	bra Shrink


;------------------------------------------------------------------------------
; PORTRAIT
;------------------------------------------------------------------------------
L41		; 

	lda <PageRect+2	Left margin portrait
	sta <PageRectPtr	Left margin in pixel

	lda <PageRect+6	Right margin portrait
	sta <PageRectPtr+2	Right margin in pixel

Shrink		; 
	lda <Quality
	and #$3
	tax

	lda DrvrRect+6
	jsr CalcPoPi

	adc <PageRectPtr
	cmp <PageRectPtr+2
	bcc NoShrink

	lda <PageRectPtr+2
	jsr CalcPiPo
	sta DrvrRect+6

NoShrink		; 
* If landscape with	vertical sizing, then  multiply DrvrRect+6 by 2
	lda <quality
	and #$6000
	cmp #$6000
	bne noAsl
	asl DrvrRect+6	;times two

noasl		; 
	lda DrvrRect
	beq Equal1

	sta FlagT	Number of lines to skip at the top

Equal1	lda DrvrBitMap+12
	sec
	sbc DrvrRect+4
	beq L3

	sta FlagB	Number of lines to skip at the bottom

L3		; The Good rect is in DrvrRect 

	stz CurrentLine

	lda FlagT
	sta ContLine	Nb BitMap lines to skip at the top

	lda <Quality	ResVert=8 if single	horizontal line
	ldx #8	ResVest=4 if double	horizontal line
	and #$0002
	bne L1
	bit SpeDens	Quality 2 landscape
	bvs L1
	lda spedens
	ora Vsizing
	bmi willdo

	lda <quality
;Special case out 320 vertical condensed
	cmp #$6000	;see if landscape 320 (vert. condensed)
	beq willdo
	cmp #$E000	;see if color landscape 320 (vert. cnd)
	beq willdo

	and #$2000
	bne L1
willdo		; 
	ldx #4	Quality 1 and 2
;               asl	    FlagT	 Twice more sheet lines to skip at the top
;               asl	    FlagB	 idem at bottom

L1	stx CurrentDef
	bit Vsizing
	bmi Double
	bit SpeDens
	bpl NoDouble
Double		; 
	asl CurrentDef	Special vertical density
;------------------------------------------------------------------------------
;
; This is the actual print loop
;              1. Skip no. of lines from top
;              2. Make a buffer
;              3. Print a buffer
;              4. (loop for all buffers	for screen)
;              5. Skip no. of lines at bottom
;------------------------------------------------------------------------------
NoDouble	ldx FlagT	Skip lines at the top
	jsr SkipXLine
	jsr SendBPrep	;Send prep. stuff
	lda #1
	sta FlagBlack	;force first time to clear buffers

Suite		; 
	jsr MakeBuff	;make Buffer. Done if carry is set

Loop3	php	Save Carry
	jsr SendBuff	;send the buffer to	the printer
	jsl LLDIdleProc
	lda iPrErr
	beq @1
	plp
	bra ErrorExit

@1	plp	;restore carry
	bcs EOF2	;branch if done with rect.

	jsr SendRCLF	;perform a carriage	return, line feed

	jsl PrAbortCheck
	beq Suite

EOF2	jsr SkipBLine	;skip lines left at	bottom
ErrorExit	plb
	rts
	
;------------------------------------------------------------------------------
;
; NAME:        CalcPiPo
;
; PURPOSE:     Calculates a printer pixel to a point on the	screen
;
; PASSED:      (X-reg.)
;
; RETURNED:    (A-reg.)
;
;------------------------------------------------------------------------------
	EXPORT CalcPiPo
CalcPiPo		;       Translate Pixel Printer en Point
	bit SpeDens
	bmi divise2
	bvs Divise4

	cpx #3
	beq NoCalcPiPo

	cpx #0
	beq Divise4

	bra Divise2
Divise4	lsr a
Divise2	lsr a
NoCalcPiPo	rts

;------------------------------------------------------------------------------
;
; NAME:        CalcPoPi
;
; PURPOSE:     Calculates a point on the screen to a pixel
;
; PASSED:      (X-reg.)
;
; RETURNED:    (A-reg.)
;
;------------------------------------------------------------------------------
	EXPORT CalcPoPi
CalcPoPi		;       Translate Point Screen en Pixel
	bit Spedens
	bmi popimult2
	bvs PopiMult4

	cpx #3
	beq NoCalcPoPi

	cpx #0
	beq PoPiMult4
	bra PoPiMult2

PoPiMult4	asl a
PoPiMult2	asl a
NoCalcPoPi	rts
	
;------------------------------------------------------------------------------
;
; NAME:        SkipBLine
;
; PURPOSE:     Skip	lines left at the bottom of the page
;
; PASSED:      NONE
;
; RETURNED:    NONE
;
;------------------------------------------------------------------------------
SkipBLine		; 
	bit SpeDens
	bmi SkipBSpe
	bit Vsizing
	bmi SkipBSpe

	lda CurrentDef	;get current no. pixel lines per print
	cmp #$8
	beq l5

	asl DrvrRect+4

l5	lda DrvrRect+4
	and #$0007
	bne OkModulo
	lda #8
OkModulo	clc
	adc FlagB
	tax
	jsr SkipXLine	;skip no. of lines as per (X) reg.
	rts

;------------------------------------------------------------------------------
;
; NAME:        SkipXLine
;
; PURPOSE:     To cause the printer to skip (X) number of lines down the page.
;
; PASSED:      (X-reg.)	No. of lines to skip
;
; RETURNED:    NONE
;
;------------------------------------------------------------------------------
	EXPORT SkipXLine
SkipXLine		;       
	bit SpeDens
	bmi SkipXSpe
	bit Vsizing
	bmi SkipXSpe

	phx
	txa
	lsr a
	lsr a
	lsr a
	beq NoBlock	Nb block of 8 lines	to skip
	cmp #1
	bne nobeeper
	pha
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;              ldx #$2c03
;              jsl $e10000	;beeeeeeeeeeeeeeeeeep
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	pla
nobeeper		; 
	cmp #0

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;SPEED Enhancement;;;;;;;;;;;;;;;;;;;;;
MLFLoop		; 
	beq NoBlock	;branch if zero 8 lines left
	cmp #4	;see if more than 4	lines
	bcc LoopSkip2	;branch if 4 or less LF's
	pha
	PushLong #MultiLFC	;do multiple line feeds (4 of them)
	jsr writestr

	pla
	sec
	sbc #4	;inc. lines left by	4
	bra MLFLoop

LoopSkip2		; 
	tax
LoopSkip	phx
	jsr SendRCLF	Skip no of times 8 lines
	plx
	dex
	bne LoopSkip

NoBlock	pla
	and #$0007
	beq EndSkip
	asl a
	jsr LittleSkip	;skip no. of single	lines left

EndSkip	rts
MultiLFC	DC.B $02,$1f,$34	;Mulitple line feeds (4)
;------------------------------------------------------------------------------
; PURPOSE:     Skips bottom lines for special.
;------------------------------------------------------------------------------
SkipBSpe		; 
	lda DrvrRect+4
	and #$000f
	bne OkModS
	lda #$0010
OkModS	clc
	adc FlagB
	tax

;------------------------------------------------------------------------------
; PURPOSE:     Skip	number of lines as specified in (X-reg.). (Special)
;------------------------------------------------------------------------------
SkipXSpe		; 
	phx
	txa
	lsr a
	lsr a
	lsr a
	lsr a
	beq NoBlockS	Nb block of 8 lines	to skip

	tax
LoopSkipS	phx
	jsr SendRCLF	Skip X time 8 lines
	plx
	dex
	bne LoopSkipS

NoBlockS	pla
	and #$000f
	beq EndSkipS	;branch if no single lines left
	jsr LittleSkip	;skip single lines that are left

EndSkipS	rts

	
;------------------------------------------------------------------------------
;
; NAME:        MakeBuff
;
; PURPOSE:     Makes the actual print buffers which are to be printed
;
; PASSED:      NONE
;
; RETURNED:    NONE
;
;------------------------------------------------------------------------------

MakeBuff		; 

	phb	Activate local Data	Bank register
	phk
	plb
	jsr DefIoHandle
	stz WasImage	;clear image flags
	stz WasImage1
	stz WasImage2
;-----------------------------------------------------------------------------
;
; This clears the buffers with zeros
;
;-----------------------------------------------------------------------------
	ldy #$27fe	;assume color

	bit Quality	;see if color
	bmi NotSpClr	;branch if color

	ldy #$500	;its black and white
	bit Vsizing
	bmi IsSpClr	;branch if not special
	bit SpeDens
	bpl NotSpClr

IsSpClr		; 
	ldy #$a00

NotSpClr		; 
	lda FlagBlack
	beq LoopMakeP	;branch if buffer already clear
BWClean		; 
	lda #$0
	stz FlagBlack	;flag as clear
;
;This does the clearing of the actual print buffer
;
clean	sta [PtrYellow],y
	dey
	dey
	bpl clean
;
;Each pass thru is for a print line
;
;NOTE: There are two phases.  The first	phase is scan time for all white and
;      the second phase is imaging (if scan time found something to image.)

LoopMakeP		; 
	stz ImageTime	;init. to scan time
	lda ContLine	;save line were on
	sta ContSave
	lda DrvrBitMap+2	;save pointer to bitmap
	sta BMSave
	lda DrvrBitMap+4
	sta BMSave+2

LoopMake	jsr MakeLine

	lda WasImage	;see if an image was found
	beq Cont1	;branch if still scanning
	lda ImageTime
	bne Cont1	;branch if already imaging time
;We arrive here when we make the transition to imaging time
Trans2Im		; 
	lda ContSave	;get save line
	sta ContLine	;reset to start
	lda BMSave
	sta DrvrBitMap+2
	lda BMSave+2
	sta DrvrBitMap+4
	stz CurrentLine	;reset current line	in buffer
	inc ImageTime	;set to scan time
	bra LoopMake	;start over imaging

Cont1		; 
	bit Vsizing
	bmi DoSpeBuff
	bit SpeDens	;branch if special density
	bpl NoSpeBuff	;branch if normal

;We get here if its	special
DoSpeBuff		; 
;              lda	   WasImage
;              ora	   WasImage1	;or in flag
;              sta	   WasImage1
;              lda	   WasImage2	;get second flag
;              sta	   WasImage

	inc Contline
	jsr IncCurrentline
	jsr DefIOHSpe
	jsr MakeLine

	lda WasImage	;see if an image was found
	beq Cont2	;branch if still scanning
	lda ImageTime
	beq Trans2Im	;branch if found data

Cont2		; 
;              lda	   WasImage
;              ora	   WasImage2	;or in flag
;              sta	   WasImage2	;save flag
;              lda	   WasImage1	;restore first flag
;              sta	   WasImage

	jsr DefIOHandle

NoSpeBuff	inc ContLine
	lda ContLine
	cmp DrvrRect+4	Bottom of printed rect
	beq NoSpeBuff21

	jsr IncCurrentLine
	bcc LoopMake	;add blank lines

	plb	Dessactivate local Data Bank register
	clc	Not End of File
	rts

ContSave	DS.B 2	;place to save ContLine
ImageTime	DS.B 2	;0=Scanning, not zero=Imaging
BMSave	DS.B 4	;Bitmap save area
;------------------------------------------------------------------------------
;
; NAME:        LoopMakeBlank
;
; PURPOSE:     Makes a blank line
;
; PASSED:      NONE
;
; RETURNED:    NONE
;
;------------------------------------------------------------------------------

LoopMakeBlank	jsr MakeBlankLine
	bit Vsizing
	bmi DoSpeBuff2
	bit SpeDens
	bpl NoSpeBuff2
DoSpeBuff2		; 
	inc Contline
	jsr IncCurrentline
	jsr DefIOHSpe
	jsr MakeBlankLine
	jsr DefIOHandle

NoSpeBuff2	inc ContLine
NoSpeBuff21	jsr IncCurrentLine
	bcc LoopMakeBlank

	plb	Dessactivate local Data Bank register
	rts

;------------------------------------------------------------------------------
;
; NAME:        DefIoHandle
;
; PURPOSE:     Dereferences the IoHandle and calculates the	address' for the
;              different color buffers.
;
; PASSED:      NONE
;
; RETURNED:    NONE
;
;------------------------------------------------------------------------------

	EXPORT DefIoHandle
DefIoHandle		;       
	ldy #2
	lda [<HandleIo]
	sta PtrYellow	;Set as start of Yellow buffer
	lda [<HandleIo],y
	sta PtrYellow+2
	sta PtrRed+2
	sta PtrBlack+2
	sta PtrBlue+2

SpeIObis	lda PtrYellow
	clc
	adc #$a00	;add $a00 to arrive	at PtrRed
	sta PtrRed
	bcc NoCarryR
	inc PtrRed+2

NoCarryR	lda PtrYellow
	clc
	adc #$1400	;add $1400 to arrive at PtrBlue
	sta PtrBlue
	bcc NoCarryB
	inc PtrBlue+2

NoCarryB	lda PtrYellow
	clc
	adc #$1e00	;add $1e00 to arrive at PtrBlack
	sta PtrBlack
	bcc NoCarryN
	inc PtrBlack+2

NoCarryN	rts

;------------------------------------------------------------------------------
;
; NAME:        DefIoHSpe
;
; PURPOSE:     Dereferences the Io handle and calculates the address' for the
;              different color buffers.	(Special H.)
;
; PASSED:      NONE
;
; RETURNED:    NONE
;
;------------------------------------------------------------------------------
	EXPORT DefIoHSpe
DefIoHSpe		;       
	ldy #2
	lda [<HandleIo]
	sta PtrYellow
	lda [<HandleIo],y
	sta PtrYellow+2
	sta PtrRed+2
	sta PtrBlack+2
	sta PtrBlue+2

	lda PtrYellow
	clc
	adc #$500
	sta PtrYellow
	bcc SpeIObis
	inc PtrYellow+2
	bra SpeIObis

;------------------------------------------------------------------------------
;
; NAME:        IncCurrentLine
;
; PURPOSE:     Increments the current line
;
; PASSED:      NONE
;
; RETURNED:    Carry bit
;
;------------------------------------------------------------------------------

IncCurrentline		; 
	inc CurrentLine	;inc. current line in print buffer
	lda CurrentLine
	cmp CurrentDef	;compare with lines	per print buffer
	bcc IncOut
StopHere	sec
	stz CurrentLine	;reset current line	in print buffer
IncOut	rts

	ENDP

	EXPORT DataBitMap
DataBitMap	PROC

	EXPORT CurrentLine
CurrentLine	DC.W 0	;The current line
	EXPORT CurrentDef
CurrentDef	DC.W 0
	EXPORT ContLine
ContLine	DC.W 0
	EXPORT Back
Back	DC.W 0
	EXPORT FlagT
FlagT	DC.W 0	;Flag of Top
	EXPORT FlagB
FlagB	DC.W 0	;Flag of Bottom
	EXPORT CurrentPoint
CurrentPoint	DC.W 0	;The current Point

*		Nb of pixel per line
	EXPORT DrvrBitMap
DrvrBitMap	DS.B 16
	EXPORT DrvrRect
DrvrRect	DS.B 8
	EXPORT HightLand
HightLand	DC.W 0
	EXPORT LandStock
LandStock	DC.W 0
	DC.W 0

	EXPORT SpeDens
SpeDens	DC.W 0
	EXPORT Vsizing
Vsizing	DC.W 0

	ENDP
;                copy    LLD.Backgrnd
;------------------------------------------------------------------------------
;
; Primative routines to assist in talking to the port driver
;
;------------------------------------------------------------------------------
*****************************
*	        *
* The Low-Level Driver      *
*	        *
* Current Rev: Nov.	1987    *
*	        *
*****************************
	EXPORT BackGround
BackGround	PROC
;------------------------------------------------------------------------------
;
; NAME:        WriteStr (Short Subroutine)
;
; PURPOSE:     To write a string of text to the printer. (calls PrDevWrite
;              which will actually send	each character to the port.)
;
; PASSED:      LONG		       POINTER, to string to be printed
;
; RETURNED:    (NONE)
;
;------------------------------------------------------------------------------
	EXPORT WriteStr
WriteStr		;       
	plx
	stx <PtrColor	;save return address


NoBack9	pla	;get pointer
	sta <PtrLocal	;save pointer to string at PtrLocal
	clc
	adc #01	;to point to first byte of actual text
	sta S_Buffer	;for PrDevWrite
	pla	;get rest of pointer
	adc #00
	sta <PtrLocal+2
	sta S_Buffer+2	;for PrDevWrite

;Now get strings length byte
	lda [PtrLocal]	;get number of bytes in string
	and #$00ff	;only want 8-bit no. of bytes
	sta S_Length

	Jsr PrDevWrite2	;call to do the actual transfer

	lda <PtrColor	;restore return address
	pha
	rts
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;
; NAME:        WriteTxt
;
; PURPOSE:     To write a buffer of text
;
; PASSED:      LONG		POINTER, to text
;              WORD		Offset from start of text (0 if none)
;              WORD		Number of character	to print
;
; RETURNED:    (None)
;
;------------------------------------------------------------------------------
	EXPORT WriteTxt
WriteTxt		;       
	plx
	stx <PtrColor	;save return addr.

NoBack8	plx	;get length
	stx s_Length
	pla	;get offset
	clc
	adc 1,s	;add offset to start of text addr.
	sta s_Buffer	;for PrDevWrite2
	pla	;get first part of addr. off
	pla	;get second part of	addr. off
	adc #0
	sta s_Buffer+2

	Jsr PrDevWrite2	;output it

	lda <PtrColor
	pha	;restore return addr.
	rts
;------------------------------------------------------------------------------
;
; NAME:        PrDevWrite
;
; PURPOSE:     To write a string of text to the printer.
;
; PASSED:      WORD		Length of string
;              LONG		POINTER, to string
;              LONG		POINTER, to completion routine
;
; RETURNED:    (NONE)
;
;------------------------------------------------------------------------------

	EXPORT PrDevWrite
PrDevWrite		;       
	plx	;get return adresse
	pla	;get strings length
	sta s_Length
	pla
	sta s_Buffer	;get strings starting address
	pla
	sta s_Buffer+2
	pla
	pla	;(Assume) completion ptr=0 (Sync Call)
	phx	;restore return addr.

PrDevWrite2		; 
;
;This is the loop which will send each character to the port driver
;
Loop		; 
	lda s_Length	;get current strings length
	beq done	;branch if done

	cmp #$f0	;see if less then $f0 characters
	blt lastone	;branch if less than $f0 chars.
;
;We arrive here if there are $f0 or more characters left to	transfer
;
	PushLong #0
	PushLong s_buffer	;strings pointer addr.
	Pushword #$f0	;transfer $F0 chars.
	_PrDevWrite

	lda s_Length	;now increment $F0 strings length
	sec
	sbc #$f0
	sta s_Length

	lda s_buffer	;now increment $F0 strings addr.
	clc
	adc #$f0
	sta s_buffer
	bcc Loop
	inc s_buffer+2	;if to next bank, inc. bank
	bra Loop
;
;We arrive here when there are less than $F0 chars. to transfer
;
LastOne		; 
	pushLong #0	;no completion routine
	PushLong s_buffer	;strings text pointer
	PushWord s_Length	;strings length
	_PrDevWrite	;call to transfer the text to port

Done		; 
	rts

s_Length	DS.B 2	;temporary for strings length
s_Buffer	DS.B 4	;temporary pointer to strings text
s_Complete	DC.W 0


SetOutBuffer	DC.B 4
	DC.B $13
	DC.W 0
	DC.L 0
	DC.W 0

SendQueue	DC.B 4
	DC.B $18
	DC.W 0
	DC.W 0
	DC.A 0

	ENDP
;                copy    LLD.Color
*****************************
*	        *
* CiDrvr: Printer Driver IW *
*   Color Drvr	        *
*	        *
* Current Rev: Nov.	1987    *
*	        *
*****************************

;------------------------------------------------------------------------------
;
; NAME:        SetColor
;
; PURPOSE:     Copies to the location specified by the pointer, the color
;              palette table which is specified by the passed SCB byte.
;              (Called by LLDSetColor)
;
; PASSED:      LONG		Pointer to color palette
;              WORD		SCB (which defines palette table)
;              WORD		User ID
;
; RETURNED:    NONE
;
;------------------------------------------------------------------------------
	EXPORT ColorDrvr
ColorDrvr	PROC
	EXPORT SetColor
SetColor		;       

* Stack: 1: rts
*        3: Direct page
*        5: rtls
*        11: ID
*        13: Color palette
*        15: Ptr to	color palette

	jsr DerefColor	;dereference color table
	lda 13,s	;get SCB value
	and #$000F	;look only at color	table bits
	xba	;times $20 to correct palette table
	lsr a
	lsr a
	lsr a

	clc
	adc <PtrColor	;add to start of table
	sta <PtrColor
	lda <PtrColor+2
	adc #0
	sta <PtrColor+2

	lda 17,s
	pha
	lda 17,s
	pha
	PushLong <PtrColor
	PushLong #$20	;$20 bytes (16 palettes * 2 bytes per)
	_BlockMove	;move the color palettes to <PtrColor

	PushLong <HandleColor ;unlock the handle
	_HUnLock
	rts
	
;------------------------------------------------------------------------------
;
; NAME:        SetColorT
;
; PURPOSE:     Copies the users specified color table to the systems.
;              (Called by LLDSetTColor)
;
; PASSED:      (See	stack definition below)
;
; RETURNED:    NONE
;
;------------------------------------------------------------------------------
	EXPORT SetColorT
SetColorT		;       

* Stack: 1: rts
*        3: Direct page
*        5: rtls
*        11: ID
*        13: Ptr to	color palette

	jsr DerefColor	;deref. color tables to <PtrColor

	lda 15,s	;get users Color palette table ptr.
	pha
	lda 15,s
	pha

	PushLong <PtrColor
	PushLong #$200
	_BlockMove	;copy in the user color table

	PushLong <HandleColor
	_HUnLock	;unlock the color handle
	rts

;------------------------------------------------------------------------------
;
; NAME:        GetColorT
;
; PURPOSE:     Copies the system color table to the users specified address.
;              (Called by LLDGetTColor)
;
; PASSED:      (See	stack definition below)
;
; RETURNED:    NONE
;
;------------------------------------------------------------------------------
	EXPORT GetColorT
GetColorT		;       
* Stack: 1: rts
*        3: Direct page
*        5: rtls
*        11: ID
*        13: Ptr to	color palette

	jsr DerefColor	;deref. systems color table to <PtrColor

	PushLong <PtrColor	;system color table	ptr.
	lda 19,s	;users color table ptr
	pha
	lda 19,s
	pha
	PushLong #$200	;16 tables times $20 bytes
	_BlockMove

	PushLong <HandleColor
	_HUnLock	;Unlock the color table handle

	rts
	
;------------------------------------------------------------------------------
;
; NAME:        DerefColor
;
; PURPOSE:     Locks the systems color table handle and dereferences it to
;              <PtrColor.
;
; PASSED:      NONE
;
; RETURNED:    NONE
;
; NOTE: <HandleColor must contain the handle to the system color table.
;
;------------------------------------------------------------------------------
	EXPORT DerefColor
DerefColor		;       
	PushLong <HandleColor
	_HLock	;lock the system color table handle

	ldy #2	;deref. to <PtrColor
	lda [<HandleColor]
	sta <PtrColor
	lda [<HandleColor],y
	sta <PtrColor+2
	rts
	
;------------------------------------------------------------------------------
;
; NAME:        Pattern
;
; PURPOSE:     Builds the actual color print patterns
;
; PASSED:      NONE
;
; RETURNED:    NONE
;
;------------------------------------------------------------------------------
	EXPORT Pattern
Pattern		;      

	jsr derefColor	;dereference <HandleColor to <PtrColor

	lda [<PtrBitMap]	;get palette table no.
	and #$000F	Color Table
	asl a	*2
	asl a	*4
	asl a	*8
	asl a	*16
	asl a	*32
	clc
	adc <PtrColor	;add to start of palette table
	sta <PtrColor	Pointer to current palette
	lda #0
	adc <PtrColor+2
	sta <PtrColor+2	; now Points to current palette

	phb	Activate current Data Bank register
	phk
	plb

	ldy #$000F
Mainloop	phy

	lda [<PtrBitMap]	;get the  for this line
	and #$000F	;look only at Color	Table value
	asl a	;times 2 (word entries in color table)
	tax
	tya
	cmp <BackColor,x	;see if
	bne GoCalc

	stz YellowPrt	;init. all color pointers to zero
	stz RedPrt
	stz BluePrt
	stz BlackPrt
	bra EndCalc

GoCalc	jsr Encode	Code Color Algorithm

EndCalc	ply
	phy
	jsr MakePattern	Make a pattern
	ply
	dey
	bpl Mainloop

	plb	Deactivate current data bank register

	PushLong <HandleColor
	_HUnLock	;unlock the color handle
	rts
	
;------------------------------------------------------------------------------
;
; NAME:        Encode
;
; PURPOSE:     Color translation algorithm
;
; PASSED:      (Y-reg.)	= Current Color Index (byte index)
;
; RETURNED:    NONE
;
;------------------------------------------------------------------------------

*		Current Data Bank Register is on
*		Y= Current Color

Encode		; 
	tya
	asl a	;convert to word index
	tay

	lda [<PtrColor],y	;Get color palette value
;Now cut the palette value into 3 basic	colors
	sta Stock1	;save color palette	value for now
;Get BLUE component
	and #$000F	Blue vector
	sta BlueScr	;save blue componenet in 'BlueScr'
;Get GREEN component
	lda Stock1
	lsr a
	lsr a
	lsr a
	lsr a
	sta Stock1
	and #$000F	Green vector
	sta GreenScr	;save green componenet in 'GreenScr'
;Now get RED componenet
	lda Stock1
	and #$00F0
	lsr a
	lsr a
	lsr a
	lsr a
	sta RedScr	;save red componenet
*
* Intermediate step	(find minimum of RGB)
*
* RGB=Min (I,J,K)
	lda GreenScr
	cmp BlueScr
	bcc Jump1	Green < Blue
	lda BlueScr
	cmp RedScr
	bcc PutRGB	Blue < Red, Green
Jump2	lda RedScr
	bra PutRGB	Red < Blue, Green
Jump1	cmp RedScr
	bcs jump2	Red < Green, Blue
*		Green < Blue, Green
;We now know which is the minimum value
PutRGB	sta RGB	;save minimum in 'RGB'

;Now subtract the minimum from each of the color componenets and save at temps.
	sec
	lda GreenScr
	sbc RGB
	sta TempGreen	;green temp.

	lda BlueScr
	sbc RGB
	sta TempBlue	;blue temp.

	lda RedScr
	sbc RGB
	sta TempRed	;red temp.

;
;Now see if Green was the minimum value
;
*		Calc BG, RG, BR
	lda TempGreen
	bne jump3	;branch if not minimum
*		BG and RG = 0
	sta RG	;RG (Red Green) is zero
	sta BG	;BG (Blue Green) is	zero
;
;Now see which of the temps is smallest
	lda TempBlue
	cmp TempRed
	bcc PutBR	TempBlue < TempRed
	lda TempRed	TempRed  < TempBlue
PutBR	sta BR
	bra Jump4

;
;Now see if RED was	the minimum color
;
Jump3	lda TempRed
	bne jump5	BG and BR = 0
*		BR and RG = 0
	sta RG
	sta BR
	lda TempBlue
	cmp TempGreen
	bcc PutBG	TempBlue < TempGreen
	lda TempGreen	TempGreen< TempBlue
PutBG	sta BG
	bra Jump4
;
;Then it must of been BLUE that was the	minimum value
Jump5	
	stz BG	;Blue Green=0
	stz BR	;Blue Red = 0
	lda TempRed
	cmp TempGreen
	bcc PutRG	TempRed  < TempGreen
	lda TempGreen	TempGreen< TempRed
PutRG	sta RG

*		Calc R, B, G
Jump4	lda RedScr
	sec
	sbc RG
	sbc BR
	sbc RGB
	sta R	;RED

	lda GreenScr
	sec
	sbc BG
	sbc RG
	sbc RGB
	sta G	;GREEN

	lda BlueScr
	sec
	sbc BG
	sbc BR
	sbc RGB
	sta B	;BLUE

*
* Perform Matrix multiplication to convert RGB to CMY
*
	stz Cont1
	stz Cont3
loop4	stz Cont2
	lda #$3c
loop2	ldx Cont1
	ldy Matrix,x
	beq nul
	ldx Cont2
loop3	sec
	sbc RGB,x
	dey
	bne loop3
nul	inc Cont1
	inc Cont1
	inc Cont2
	inc Cont2
	ldx Cont2
	cpx #14
	bne loop2

	ldy Cont3
	lsr a
	lsr a
	sta YellowPrt,y

	inc Cont3
	inc Cont3
	ldy Cont3
	cpy #6
	bne loop4

	lda YellowPrt
	clc
	adc RedPrt
	adc BluePrt

	PushWord #0	Quotient area
	PushWord #0	Remainder area
	pha	Numerator
	PushWord #3	Denominator
	_UDivide
	pla	Quotient
	sta BlackPrt	;black
	pla	Remainder (not used)
	rts
	
;------------------------------------------------------------------------------
;
; NAME:        MakePattern
;
; PURPOSE:     Makes the print dot pattern for one given quality/color.
;
; PASSED:      (Y-reg.)	Current color index	(byte index)
;
; RETURNED:    NONE
;
;------------------------------------------------------------------------------
MakePattern		; 
	tya	;get color index
	asl a	;times 2
	asl a	;times 4
	asl a	;times 8
	pha
	
;-----------------------------------------------------------
;
; Quality values: 0 = 320 normal (better color)
;                 1 = 640 normal (better color)
;                 2 = 320 high res (better text)
;                 3 = 640 high res (better text)
;

	lda <Quality	;get quality
	and #$0003	;(look at Highres/HighColor,640/320)
	beq quality0	;branch if 320 normal

	cmp #1	;see if 640 normal
	bne l0
	brl quality1	;branch for 640 normal

l0	cmp #3
	bne quality2	;branch if 320 highres
	brl quality3	;branch if 640 highres

Quality2		; Quality 4 (320 highres)
	bit <quality
	bpl BW4	;branch if black and white

;Do YELLOW level
	lda YellowPrt	Yellow pattern
	asl a
	asl a
	asl a
	asl a
	and #$0080
	xba
	ply
	sta FinalPat,y

;Do RED level
	lda RedPrt	Red pattern
	asl a
	asl a
	asl a
	asl a
	and #$0080
	xba
	sta FinalPat+2,y

;Do BLUE level
	lda BluePrt	Blue pattern
	asl a
	asl a
	asl a
	asl a
	and #$0080
	xba
	sta FinalPat+4,y
	rts

;------------------------------------------------------------------------------
;
; 320 highres Black	& White
;
;------------------------------------------------------------------------------
BW4	lda BlackPrt
	asl a
	asl a
	asl a
	asl a
	and #$80
	xba
	ply
	sta FinalPat,y
	rts

;------------------------------------------------------------------------------
;
; 320 Normal
;
;------------------------------------------------------------------------------
Quality0		; 
	bit <quality	;look at color bit
	bpl BW1	;brach if black & white

	ply
;Yellow Level
	lda YellowPrt	Yellow level
	asl a
	tax
	lda Level7,x	0-6 level
	asl a
	tax
	lda Pat32,x	Pattern 3*2
	sta FinalPat,y

;Red Level
	lda RedPrt	Red level
	asl a
	tax
	lda Level7,x	0-6 level
	asl a
	tax
*              lda	   Pat32+18,x	Pattern 3*2
	lda Pat32,x	Pattern 3*2
	sta FinalPat+2,y

;Blue Level
	lda BluePrt	Blue level
	asl a
	tax
	lda Level7,x	0-6 level
	asl a
	tax
*              lda	   Pat32+36,x	Pattern 3*2
	lda Pat32,x	Pattern 3*2
	sta FinalPat+4,y
	rts

;------------------------------------------------------------------------------
;
;  320 Normal Black	& White
;
;------------------------------------------------------------------------------
Bw1	lda BlackPrt
	asl a
	tay
	lda Level7,y	0-6 level
	asl a
	tay
	lda Pat32,y	Pattern 3*2
	ply
	sta FinalPat,y
	rts

;------------------------------------------------------------------------------
;
; 640 Normal
;
;------------------------------------------------------------------------------
Quality1		; 
	bit <quality	;look at color bit
	bpl BW2	;branch if black & white

	ply
;Yellow level
	lda YellowPrt	Yellow level
	asl a
	tax
	lda Level5,x	0-4 level
	asl a
	tax
	lda Pat22,x	Pattern 2*2
	sta FinalPat,y

;Red level
	lda RedPrt	Red level
	asl a
	tax
	lda Level5,x	0-4 level
	asl a
	tax
	lda Pat22,x	Pattern 2*2
	sta FinalPat+2,y

;Blue level
	lda BluePrt	Blue level
	asl a
	tax
	lda Level5,x	0-4 level
	asl a
	tax
	lda Pat22,x	Pattern 2*2
	sta FinalPat+4,y
	rts

;------------------------------------------------------------------------------
;
; 640 Normal black & white
;
;------------------------------------------------------------------------------
Bw2	lda BlackPrt
	asl a
	tay
	lda Level5,y	0-4 level
	asl a
	tay
	lda Pat22,y	Pattern 2*2
	ply
	sta FinalPat,y
	rts

;------------------------------------------------------------------------------
;
; 640 Highres
;
;------------------------------------------------------------------------------
Quality3		; 
	bit <quality	;look at color bit
	bpl BW3	;branch if black & white

	ply
;Yellow level
	lda YellowPrt	Yellow level
	asl a
	tax
	lda Level3,x	0-2 level
	asl a
	tax
	lda Pat12,x	Pattern 1*2
	sta FinalPat,y

;Red level
	lda RedPrt	Red level
	asl a
	tax
	lda Level3,x	0-2 level
	asl a
	tax
	lda Pat12,x	Pattern 1*2
	sta FinalPat+2,y

;Blue level
	lda BluePrt	Blue level
	asl a
	tax
	lda Level3,x	0-2 level
	asl a
	tax
	lda Pat12,x	Pattern 1*2
	sta FinalPat+4,y
	rts

;------------------------------------------------------------------------------
;
; 640 Highres black	& white
;
;------------------------------------------------------------------------------
Bw3	lda BlackPrt
	asl a
	tay
	lda Level3,y	0-2 level
	asl a
	tay
	lda Pat12,y	Pattern 1*2
	ply
	sta FinalPat,y
	rts
	
;------------------------------------------------------------------------------
;
; PATTERNS & DATA TABLES
;
;------------------------------------------------------------------------------
Pat32		; 
	DC.W $0000	;Yellow level 0
	DC.W $8000	;Yellow level 1
	DC.W $8040	;Yellow level 2
	DC.W $80c0	;Yellow level 3
	DC.W $c060	;Yellow level 4
	DC.W $e0c0	;Yellow level 5
	DC.W $e070	;Yellow level 6
	DC.W $f070	;Yellow level 7
	DC.W $f0f0	;Yellow level 8

*              dc	   i'$0000'	;Red level 0       One kind of pattern
*              dc	   i'$4000'	;Red level 1       to have good
*              dc	   i'$4020'	;Red level 2       grey level
*              dc	   i'$4060'	;Red level 3
*              dc	   i'$6030'	;Red level 4
*              dc	   i'$7060'	;Red level 5
*              dc	   i'$70b0'	;Red level 6
*              dc	   i'$f0b0'	;Red level 7
*              dc	   i'$f0f0'	;Red level 8

*              dc	   i'$0000'	;Blue level 0
*              dc	   i'$1000'	;Blue level 1
*              dc	   i'$2010'	;Blue level 2
*              dc	   i'$2030'	;Blue level 3
*              dc	   i'$3090'	;Blue level 4
*              dc	   i'$30b0'	;Blue level 5
*              dc	   i'$b0d0'	;Blue level 6
*              dc	   i'$f0d0'	;Blue level 7
*              dc	   i'$f0f0'	;Blue level 8

Pat22	DC.W $0000	Yellow level 0
	DC.W $8000	Yellow level 1
	DC.W $9040	Yellow level 2
	DC.W $e080	Yellow level 3
	DC.W $f0c0	Yellow level 4

*              dc	   i'$0000'	Red level 0
*              dc	   i'$4000'	Red level 1
*              dc	   i'$6080'	Red level 2
*              dc	   i'$d040'	Red level 3
*              dc	   i'$f0c0'	Red level 4

*              dc	   i'$0000'	Blue level 0
*              dc	   i'$8000'	Blue level 1
*              dc	   i'$9040'	Blue level 2
*              dc	   i'$e080'	Blue level 3
*              dc	   i'$f0c0'	Blue level 4

Pat12	DC.W $0000	Yellow level 0
	DC.W $8000	Yellow level 1
	DC.W $C000	Yellow level 2

*              dc	   i'$0000'	Red level 0
*              dc	   i'$4000'	Red level 1
*              dc	   i'$C000'	Red level 2

*              dc	   i'$0000'	Blue level 0
*              dc	   i'$8000'	Blue level 1
*              dc	   i'$C000'	Blue level 2

Level7	DC.W 0,0,1,1,2,3,3,4,4,5,6,6,7,7,8,8
Level3	DC.W 0,0,0,0,0,1,1,1,1,1,2,2,2,2,2,2
Level5	DC.W 0,0,0,1,1,1,2,2,2,3,3,3,3,4,4,4

Matrix	DC.W 4,0,4,3,4,0,4
	DC.W 4,4,2,1,4,0,0
	DC.W 4,4,2,4,0,4,4

GreenScr	brk 00	;Screen green (K)
BlueScr	brk 00	;Screen blue  (J)
RedScr	brk 00	;Screen red   (I)
RGB	brk 00
RG	brk 00
BR	brk 00
BG	brk 00

R	brk 00
G	brk 00
B	brk 00
YellowPrt	brk 00	;Printer Yellow (y)
BluePrt	brk 00	;Printer Blue   (b)
RedPrt	brk 00	;Printer Red    (r)
BlackPrt	brk 00

TempBlue	brk 00	;Also Color0  (It's the last one
TempRed	brk 00	;then no conflit with Temp...)
TempGreen	brk 00

Stock1	brk 00
Cont1	brk 00
Cont2	brk 00
Cont3	brk 00
Cont	brk 00
	ENDP

	EXPORT FinalPat
FinalPat	PROC
	DCB.B 8,0	;Color0
	DCB.B 8,0	;Color1
	DCB.B 8,0	;Color2
	DCB.B 8,0	;Color3
	DCB.B 8,0	;Color4
	DCB.B 8,0	;Color5
	DCB.B 8,0	;Color6
	DCB.B 8,0	;Color7
	DCB.B 8,0	;Color8
	DCB.B 8,0	;Color9
	DCB.B 8,0	;Color10
	DCB.B 8,0	;Color11
	DCB.B 8,0	;Color12
	DCB.B 8,0	;Color13
	DCB.B 8,0	;Color14
	DCB.B 8,0	;Color15
	ENDP
;                copy    LLD.Point
*****************************
*	        *
* CiDrvr: Printer Driver IW *
*   bitmapDrvr	        *
*	        *
* Current Rev: Nov.	1987    *
*	        *
*****************************

	EXPORT PrintPoint
PrintPoint	PROC

*              using   DataBitMap
*              using   FinalPat
;------------------------------------------------------------------------------
;
; NAME:        MakeBlankLine
;
; PURPOSE:     To make a blank line
;
; PASSED:      NONE
;
; RETURNED:    NONE
;
;------------------------------------------------------------------------------
* Line Making process. Time is critical
	EXPORT MakeBlankLine
MakeBlankLine		;       
	stz BlankFlag
	bra commonMakeLine
BlankFlag	DS.B 2	;0= blank, $ffff=not blank

;------------------------------------------------------------------------------
;
; NAME:        MakeLine
;
; PURPOSE:     Makes one print line
;
; PASSED:      NONE
;
; RETURNED:    NONE
;
;------------------------------------------------------------------------------
*  Real line making. Time is critical

	EXPORT MakeLine
MakeLine		;       
	lda #$FFFF
	sta BlankFlag	;set flag indicating not a blank line

CommonMakeLine		; 

	lda DrvrRect+2	Current Left picture size
	sta CurrentPoint	;init current point	to left side
	ora <PageRectPtr
	beq NoBlank
	stz BlankFlag

NoBlank	lda DrvrBitMap+2	Take BitMap address
	sta <PtrBitMap
	lda DrvrBitMap+4
	sta <PtrBitMap+2

	lda <Quality	;see if portrait or	landscape
	and #$4000
	beq Portrait	;branch if portrait
	brl Landscape	;it must be landscape

;------------------------------------------------------------------------------
;
; PORTRAIT MODE
;
;------------------------------------------------------------------------------
Portrait		; Make all real points until the end of

	PushLong #0
	PushWord ContLine
	PushWord DrvrBitMap+6
	_Multiply	;Current line * bytes/line (RIGHT)

	pla
	clc
	adc <PtrBitMap	;add to start of bit map to get location
	sta <PtrBitMap
	pla
	adc <PtrBitMap+2
	sta <PtrBitMap+2

	lda <Quality	;get quality
	and #$03
	beq Mode380C	;branch if 320 mode	high color

	cmp #2
	beq Mode380W	;branch if 320 mode	high res
	brl Mode640	;else its 640 mode

;******************************************************************************
;
; 320 MODES
;
;******************************************************************************
;
; 320 mode (ALL BEST TEXT) (BEST COLOR,	50% red., 50% red. and vert. cond.)
;
Mode380W		; 
	lda #PutPoint3
	bra Stuff320
;
; 320 mode
;
Mode380C		; 
	lda <quality	;look at quality
	and #$2000	;look at vertical sizing bit
	beq x4	;branch if normal

; 320 mode (BEST COLOR, vert. condensed)
	lda #PutPoint2bis	printing Rect
	bra Stuff320

; 320 mode (BEST COLOR, normal)
X4		; 
	lda #PutPoint1

Stuff320	sta Stuff320A+1	;stuff the routines	address
	sta Stuff320AO+1	;stuff the odd address routines

	lda WasImage	;see if an image already was found
	beq Ck320P	;branch if no image	yet
	jmp Not320ClrX	;go image it
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Do a quick empty buffer check;;;;;;;;;
Ck320P		; 
;Now check that there are at least 12 points (any less is not worth doing)
	lda DrvrRect+6	;get right
	sec
	sbc DrvrRect+2	;subtract left
	cmp #13
	bcs Q320Clr
	jmp Not320Clr	;jump, not worth doing
;Now calculate the right word
Q320Clr		; 
	lda DrvrRect+6
	dec a	;because not included
	lsr a	;convert to byte address
	dec a	;back up to at least two full bytes
	dec a
	sta QLeft

;Now do partial word compares that are to the left
	lda DrvrRect+2	;get left
	lsr a
	tay
	bcc Q320Loop	;branch if starts out even
;The first left pixel is odd
	lda [<PtrBitmap],y
	and #$FF0F
	cmp #$FF0F
	bne Not320Clr	;branch if not clear
	iny
	iny

;This is the main routine which checks for all white (16 bits at a time)

Q320Loop		; 
	lda [<PtrBitmap],y
	cmp #$ffff
	bne Not320Clr	;branch if not clear
	iny
	iny
	cpy QLeft
	bcc Q320Loop

;Now check for partial words at the far	right
	lda Qleft
	dec a	;so we don't miss a byte
	asl a	;convert back to pixel address
	tax	;(X-reg. holds pixel address)

Ck320R		; 
	txa
	lsr a	;determine if even or odd pixel
	tay	;get byte address
	php	;save status of even or odd
	lda [<PtrBitmap],y	;get word with pixel in it
	plp
	bcs Qodd

;Look at even pixel	point
	and #$00f0
	cmp #$00f0
	bne Not320Clr
	bra Next320R

;Look at odd pixel point
Qodd		; 
	and #$000f
	cmp #$000f
	bne Not320Clr	;branch if not white

Next320R		; 
	inx
	cpx DrvrRect+6
	bne Ck320R

;We arrive here if all the pixel points	are WHITE
	rts

;We arrive here if the buffer isn't clear
Not320Clr		; 
	inc WasImage	;turn on image flag
	rts
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Not320ClrX		; 
;
;Now setup for the loop (figure out odd	or even)
;
	lda CurrentPoint	;get current point index
	lsr a
	lda CurrentPoint	;(need to start with current point)
	bcs XX320O	;branch if starts out odd

;This does the even	ones
XX320E		; 
	lsr a	;convert to byte address
	tay
	lda [<PtrBitmap],y	;get the byte with pixel in it
	and #$f0
	lsr a	;shift to 6-3
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;NOTE: The address portion of the following jsr instruction	is stuffed.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Stuff320A		; 
	jsr PutPoint1	printing Rect

	inc CurrentPoint	;inc. current point
	lda Currentpoint
	cmp DrvrRect+6	;see if to the far right
	beq XX320Done	;loop until far right

;This does the odd ones
XX320O		; 

	lsr a	;convert to byte address
	tay
	lda [<PtrBitmap],y	;get the byte with pixel in it
	and #$0f	;mask to get pixel only
	asl a
	asl a
	asl a
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;NOTE: The address portion of the following jsr instruction	is stuffed.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Stuff320AO		; 
	jsr PutPoint1	printing Rect

	inc CurrentPoint	;inc. current point
	lda Currentpoint
	cmp DrvrRect+6	;see if to the far right
	bne XX320E	;loop to even one

XX320Done		; 
	rts
	
;------------------------------------------------------------------------------
;
; NAME:        PutPoint3
;
; PURPOSE:     Takes the point and puts	down the correct pattern into the buffer
;              (for	3 levels) [2 print pixels]
;
; PASSED:      (A-reg.)	index into finalpat	(print patterns)
;
; RETURNED:    NONE
;
;------------------------------------------------------------------------------
PutPoint3		; 

	tax	Color point *8
	lda CurrentPoint	;get current point
	asl a	;times two (to which word)
	clc
	adc <PageRectPtr	;add to start
	tay	;use as an index to	data point

***************************************	End of 8 bit area
;
;We arrive here if its black and white
;
Black3		; 

	jsr InitPattern	;init. the pattern

************************************	Begin of 8 bit area	for speedy calc

	longa off
	sep #$20

;do a yellowsingle
	rol StockYellow+1
	lda [<PtrYellow],y
	rol a
	sta [<PtrYellow],y

;do a yellowsingle
	iny
	rol StockYellow+1
	lda [<PtrYellow],y
	rol a
	sta [<PtrYellow],y

	rep #$20
	rts

	longa on

***************************************	End of 8 bit area
;------------------------------------------------------------------------------
;
; NAME:        PutPoint4
;
; PURPOSE:     Takes the point and puts	down the correct pattern into the buffer
;              (Only one print point per pixel)
;
; PASSED:      (A-reg.)	index into finalpat
;
; RETURNED:    NONE
;
;------------------------------------------------------------------------------
PutPoint4		; 

	tax	Color point *8
	lda CurrentPoint
	clc
	adc <PageRectPtr
	tay

Black4		; 
	stz StockYellow
	lda BlankFlag
	beq zero4

	lda FinalPat,x	;get the print pattern
	sta StockYellow
zero4		; 
************************************	Begin of 8 bit area	for speedy calc

	longa off
	sep #$20

;do a yellowsingle
	rol StockYellow+1
	lda [<PtrYellow],y
	rol a
	sta [<PtrYellow],y

	rep #$20
	rts

	longa on

***************************************	End of 8 bit area
	
***************************************	NOTE: This code is in an 8-bit area
	longa off
;------------------------------------------------------------------------------
;
; NAME:        YRBSingle
;
; PURPOSE:     Rotates in a single YELLOW, RED, and BLUE pattern (1 level)
;
; PASSED:      (Y-reg.)	print buffer index
;
; RETURNED:    NONE
;
;------------------------------------------------------------------------------
YRBSingle		; 
	rol StockRed+1	;do RED
	lda [<PtrRed],y
	rol a
	sta [<PtrRed],y

	rol StockBlue+1	;do BLUE
	lda [<PtrBlue],y
	rol a
	sta [<PtrBlue],y
;do a yellow single
	rol StockYellow+1
	lda [<PtrYellow],y
	rol a
	sta [<PtrYellow],y
	rts

	longa on

***************************************	End of 8 bit area
;------------------------------------------------------------------------------
;
; NAME:        InitPattern
;
; PURPOSE:     Gets	the print pattern for each color (yellow, red, blue)
;
; PASSED:      (X-reg.)	index into finalpat	(print patterns)
;
; RETURNED:    NONE
;
;------------------------------------------------------------------------------
InitPattern		; 
	lda BlankFlag	;see if blank
	beq zeros

	lda FinalPat,x
	sta StockYellow	;set yellow pattern
	lda FinalPat+2,x
	sta StockRed	;set red pattern
	lda FinalPat+4,x
	sta StockBlue	;set blue pattern
	rts

zeros		; 
	stz StockRed	;red patterns
	stz StockBlue
	stz StockYellow
	rts
;------------------------------------------------------------------------------
;
; NAME:        PutPoint1
;
; PURPOSE:     Takes the point and puts	down the correct pattern into the buffer
;
; PASSED:      (A-reg.)	index into finalpat	(print patterns)
;
; RETURNED:    NONE
;
;------------------------------------------------------------------------------
PutPoint1		; 

	tax	Color point *8
	lda CurrentPoint
	asl a
	asl a
	clc
	adc <PageRectPtr
	tay

Black1		; 
	stz StockYellow	;init the pattern to zeros
	lda BlankFlag	;see if want blank line
	beq zero1	;branch blank

	lda FinalPat,x	;get pattern
	sta StockYellow	;init. pattern
zero1		; 

************************************	Begin of 8 bit area	for speedy calc

	longa off
	sep #$20

	asl StockYellow	;do PutYellow
	lda [<PtrYellow],y
	rol a
	asl StockYellow+1
	rol a
	sta [<PtrYellow],y

	iny
	asl StockYellow	;do PutYellow
	lda [<PtrYellow],y
	rol a
	asl StockYellow+1
	rol a
	sta [<PtrYellow],y

	iny
	asl StockYellow	;do PutYellow
	lda [<PtrYellow],y
	rol a
	asl StockYellow+1
	rol a
	sta [<PtrYellow],y

	iny
	asl StockYellow	;do PutYellow
	lda [<PtrYellow],y
	rol a
	asl StockYellow+1
	rol a
	sta [<PtrYellow],y

	rep #$20
	rts
	longa on
***************************************	End of 8 bit area
	
***************************************	NOTE: 8-bit speedy area
	longa off
;------------------------------------------------------------------------------
;
; NAME:        PutYRB
;
; PURPOSE:     Rotates in two bits of yellow, red, blue pattern to print buffer
;
; PASSED:      (Y-reg.)	print buffer index
;
; RETURNED:    NONE
;
;------------------------------------------------------------------------------
PutYRB		; 
	asl StockRed	;do RED bits
	lda [<PtrRed],y
	rol a
	asl StockRed+1
	rol a
	sta [<PtrRed],y

	asl StockBlue	;do BLUE bits
	lda [<PtrBlue],y
	rol a
	asl StockBlue+1
	rol a
	sta [<PtrBlue],y

	asl StockYellow	;do PutYellow
	lda [<PtrYellow],y
	rol a
	asl StockYellow+1
	rol a
	sta [<PtrYellow],y
	rts

	longa on

***************************************	End of 8 bit area
	
;******************************************************************************
;
; 640 MODES (Portrait)
;
;******************************************************************************
Mode640		; Mode 640
	cmp #1
	beq Mode640C
;
; 640 mode (All BEST TEXT) (BEST COLOR,	50% red., 50% red. and vert. cond.)
;
	lda #PutPoint4
	bra Stuff640R
;
; 640 mode
;
Mode640C		; 
	lda <quality
	and #$2000
	beq ii2

; 640 mode (BEST COLOR, vertical condensed)
	lda #PutPoint3
	bra Stuff640R

;640 mode (BEST COLOR, normal)
ii2		; 
	lda #PutPoint2

;This stuffs the correct routine into the jsr
Stuff640R		; 
	sta Stuff640+1
	sta Stuff641+1
	sta Stuff642+1
	sta Stuff643+1


	lda WasImage	;see if an image already was found
	beq Ck640P	;branch if no image	yet
	jmp Not640ClrX	;go image it

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Quick empty buffer	check
Ck640P		; 

;First check that there are at least 16	points (any less is	not worth checking)
	lda DrvrRect+6
	sec
	sbc DrvrRect+2
	cmp #25
	bcc NotQuicky2	;just image it

;Now do any partial	word compares which	are to the far right
	lda DrvrRect+6
	dec a
	lsr a
	lsr a	;divide by 4 (because 4 pixels/word)
	tay
	dey	;to get to full word of data

	lda [<PtrBitmap],y
	sta WhichData	;save the rightmost	word

	lda DrvrRect+6
	dec a
	and #$0003
	beq QRPixel0	;branch if pixel zero
	cmp #3	;see if full word
	beq Quicky	;branch if full word
	cmp #1
	beq QRPixel1	;branch if pixel one

QRPixel2		; 
	lda WhichData
	and #$fcff
	cmp #$fcff
	bne NotQuicky2
	bra StartRFull

QRPixel1		; 
	lda WhichData
	and #$f0ff
	cmp #$f0ff
	beq StartRFull
NotQuicky2	jmp NotQuicky

QRPixel0		; 
	lda WhichData
	and #$c0ff
	cmp #$c0ff
	bne NotQuicky2

StartRFull		; 
	dey
	dey

Quicky		; 
	lda DrvrRect+2
	lsr a
	lsr a
	ina	;inc. in case of partial at far left
	sta QLeft	;set left point

;This is the main routine which checks for all white (16 bits at a time)
QuickyL		; 
	lda [<PtrBitmap],y
	cmp #$ffff
	bne NotQuicky
	dey
	dey
	bmi QLDone
	cpy QLeft
	bcs QuickyL

QlDone		; 
;Now check for any partial words at the	far left
	ldy QLeft

;Double check word to the right to be sure its white
	lda [<PtrBitmap],y
	cmp #$ffff
	bne NotQuicky

;Now check the last	byte (or partial byte) for all white
	dey
	lda DrvrRect+2
	and #$0003
	beq QLPixel0
	cmp #1
	beq QLPixel1
	cmp #2
	beq QLPixel2

QLPixel3		; 
	lda [<PtrBitmap],y
	and #$ff03
	cmp #$ff03
	bne NotQuicky
	rts	;Was all white

QLPixel0		; 
	lda [<PtrBitmap],y
	cmp #$ffff
	bne NotQuicky
	rts	;Was all white

QLPixel1		; 
	lda [<PtrBitmap],y
	and #$ff3f
	cmp #$ff3f
	bne NotQuicky
	rts	;Was all white

QLPixel2		; 
	lda [<PtrBitmap],y
	and #$ff0f
	cmp #$ff0f
	bne NotQuicky
	rts	;Was all white

NotQuicky		; 
	inc WasImage	;indicate there was	an image
	rts

	EXPORT WasImage
WasImage		;       
	DS.B 2
	EXPORT WasImage1
WasImage1		;       
	DS.B 2
	EXPORT WasImage2
WasImage2		;       
	DS.B 2
Qleft	DS.B 2
Qcount	DS.B 2

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Not640ClrX		; 

	lda CurrentPoint
	lsr a
	lsr a
	sta WhichPtY
	lda [<PtrBitMap],y
	sta WhichData

	lda CurrentPoint
	and #3
	beq GetPt640X	;=0
	cpx #1
	beq GetPt641	;=1
	cpx #2
	beq GetPt642	;=2
	bra GetPt643	;=3

GetPt640		; 
	inc WhichPtY
GetPt640X		; 
	ldy WhichPtY
	lda [<PtrBitMap],y
	sta WhichData

	and #$C0
	lsr a
	lsr a
	lsr a
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;NOTE: The address portion of the following jsr instruction	is stuffed.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Stuff640	jsr PutPoint2	;put the pattern into the buffer
	inc CurrentPoint
	lda CurrentPoint
	cmp DrvrRect+6
	beq GetPtDone

GetPt641		; 
	lda WhichData
	and #$30
	ora #$40	For chip graphic column=1 mod(4)
	lsr a
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;NOTE: The address portion of the following jsr instruction	is stuffed.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Stuff641	jsr PutPoint2	put the pattern into the buffer
	inc CurrentPoint
	lda CurrentPoint
	cmp DrvrRect+6
	beq GetPtDone

GetPt642		; 
	lda WhichData
	and #$0C
	ora #$20	For chip graphic column=2 mod(4)
	asl a
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;NOTE: The address portion of the following jsr instruction	is stuffed.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Stuff642	jsr PutPoint2	put the pattern into the buffer
	inc CurrentPoint
	lda CurrentPoint
	cmp DrvrRect+6
	beq GetPtDone

GetPt643		; 
	lda WhichData
	and #$03
	ora #$0C	For chip graphic column=3 mod(4)
	asl a
	asl a
	asl a
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;NOTE: The address portion of the following jsr instruction	is stuffed.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Stuff643	jsr PutPoint2	printing Rect
	inc CurrentPoint
	lda CurrentPoint
	cmp DrvrRect+6
	bne GetPt640
GetPtDone		; 
	rts

WhichPtY	DC.W 0	;holds index into <PtrBitMap
WhichData	DC.W 0	;the actual data point
	
;------------------------------------------------------------------------------
;
; NAME:        PutPoint2
;
; PURPOSE:     Takes the point and lays	down the color print patterns
;
; PASSED:      (A-reg.)	index into finalpat	(print patterns)
;
; RETURNED:    NONE
;
;------------------------------------------------------------------------------
PutPoint2		; In A: Color*8
	tax	Current color pattern
	lda CurrentPoint
	asl a
	clc
	adc <PageRectPtr
	tay

Black2		; 
	stz StockYellow
	lda BlankFlag
	beq zero2

	lda FinalPat,x
	sta StockYellow
zero2		; 

************************************	Begin of 8 bit area	for speedy calc

	longa off
	lda [<PtrYellow],y
	sep #$20

	asl StockYellow	;do PutYellow
	rol a
	asl StockYellow+1
	rol a
	xba

	asl StockYellow	;do PutYellow
	rol a
	asl StockYellow+1
	rol a

	rep #$20
	xba
	sta [<PtrYellow],y
	rts

	longa on

***************************************	End of 8 bit area

	rts
	
;------------------------------------------------------------------------------
;
; NAME:        PutPoint2bis
;
; PURPOSE:     Takes the point and lays	down the color print patterns
;
; PASSED:      (A-reg.)	index into finalpat	(print patterns)
;
; RETURNED:    NONE
;
;------------------------------------------------------------------------------
PutPoint2bis		; In A: Color*8
	tax	Current color pattern
	lda CurrentPoint	;calculate address of point
	asl a
	asl a
	clc
	adc <PageRectPtr
	tay
Black2bis		; 
	stz StockYellow
	lda BlankFlag
	beq zero2b	;branch if want blank line

	lda FinalPat,x
	sta StockYellow	;set the print pattern
zero2b		; 

************************************	Begin of 8 bit area	for speedy calc

	longa off
	sep #$20

	rol StockYellow+1	;do a yellow single
	lda [<PtrYellow],y
	rol a
	sta [<PtrYellow],y

	iny
	rol StockYellow+1	;do a yellow single
	lda [<PtrYellow],y
	rol a
	sta [<PtrYellow],y

	iny
	rol StockYellow+1	;do a yellow single
	lda [<PtrYellow],y
	rol a
	sta [<PtrYellow],y

	iny
	rol StockYellow+1	;do a yellow single
	lda [<PtrYellow],y
	rol a
	sta [<PtrYellow],y

	rep #$20
	rts

	longa on

***************************************	End of 8 bit area

	rts
	
;------------------------------------------------------------------------------
;
; LANDSCAPE Mode
;
;------------------------------------------------------------------------------
LandScape		; 
	lda <Quality
	and #$0001
	beq its320	;branch if 320 landscape mode
	brl Land640	;branch if 640 landscape mode

;******************************************************************************
;
; 320 mode (Landscape)
;
;******************************************************************************
its320		; 
	PushLong #0
	PushWord DrvrBitMap+6
	PushWord HightLand
	_Multiply

	pla
	sta OffSetLand
	pla	Nothing

	lda ContLine	OffSet= Width*HightLand + ContLine/2
	lsr a	for mode 320
	clc
	adc OffSetland
	sta OffSetland

	lda <Quality	;look at quality
	and #$0003
	beq LoopLandC	;branch if color

;
; 320 landscape mode
;
LoopLandW		; 
	lda <quality
	and #$2000
	beq x6

; 320 mode landscape (BEST COLOR 50% and vert. cond., BEST TEXT vert. cond.,
; BEST TEXT vert. and 50% reduction)
x5		; 
	lda #PutPoint4
	bra LStuff320A

; 320 mode landscape (BEST COLOR 50% red., BEST TEXT normal, BEST TEXT 50% red.)
x6		; 
	lda #PutPoint3
	bra LStuff320A

;
; 320 mode landscape
;
LoopLandC		; 
	lda <quality
	and #$2000
	beq x8

; 320 mode landscape (BEST COLOR vertical condensed)
x7		; 
	lda #PutPoint2
	bra LStuff320A

; 320 mode landscape (BEST COLOR normal)
x8		; 
	lda #PutPoint1

;We now stuff the correct subroutines address
LStuff320A		; 
	sta LAddr3201+1
	sta LAddr3202+1

	lda WasImage	;see if an image already was found
	beq Ck320L	;branch if no image	yet
	jmp Not320XX	;go image it

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Do a quick check for empty buffer;;;;;;;;;;;;;;
Ck320L		; 
	lda OffSetLand
	sta Qleft
	lda CurrentPoint
	sta QCount
;Now determine if on an odd or even line
	Lda ContLine	;get current line
	lsr a
	bcs Ql3Odd	;branch if odd

;EVEN line
QL3Even		; 
	lda Qleft
	sec
	sbc DrvrBitMap+6	;subtract right
	sta Qleft
	tay
	lda [<PtrBitmap],y
	and #$00f0
	cmp #$00f0
	bne L320Image	;branch if an image
	inc QCount
	lda Qcount
	cmp DrvrRect+6
	bne QL3Even	;loop until done
;We arrive here if theres no image to print
	rts
;Its an ODD line
Ql3Odd		; 
	lda Qleft
	sec
	sbc DrvrBitMap+6	;subtract right
	sta Qleft
	tay
	lda [<PtrBitmap],y
	and #$000f
	cmp #$000f
	bne L320Image	;branch if an image
	inc QCount
	lda Qcount
	cmp DrvrRect+6
	bne QL3Odd	;loop until done
;We arrive here if theres no image to print
	rts

L320Image		; 
;We arrive here if the buffer has an image
	inc WasImage	;set flag to indicate an image present
	rts
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Not320XX		; 
;Now determine if on an odd or even line
	Lda ContLine	;get current line
	lsr a
	bcs LLoop8Odd	;branch if odd

;
;EVEN address
;
LLoop8		; 
	lda OffSetLand
	sec
	sbc DrvrBitMap+6
	sta OffSetLand

	tay
	lda [<PtrBitmap],y
	and #$00f0
	lsr a
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;NOTE: The address portion of the following jsr instruction	is stuffed.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
LAddr3201		; 
	jsr PutPoint1
	inc CurrentPoint
	lda Currentpoint
	cmp DrvrRect+6
	bne LLoop8
	rts
;
;ODD address
;
LLoop8Odd		; 
	lda OffSetLand
	sec
	sbc DrvrBitMap+6
	sta OffSetLand

	tay
	lda [<PtrBitmap],y
	and #$000f
	asl a
	asl a
	asl a
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;NOTE: The address portion of the following jsr instruction	is stuffed.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
LAddr3202		; 
	jsr PutPoint1
	inc CurrentPoint
	lda Currentpoint
	cmp DrvrRect+6
	bne LLoop8Odd
LLoopDone		; 
	rts

;******************************************************************************
;
; Landscape 640 mode
;
;******************************************************************************
Land640		; 
	PushLong #0
	PushWord DrvrBitMap+6
	PushWord HightLand
	_Multiply	;multiply RIGHT times height of bank

	pla
	sta OffSetLand	;result
	pla	Nothing

	lda ContLine	OffSet= Width*HightLand + ContLine/2
	lsr a	for mode 320
	lsr a
	clc
	adc OffSetland
	sta OffSetland

	lda <Quality	;look at quality
	and #$0002	;branch if BEST COLOR, normal or
	beq LoopL640C	;vertical condensed.

;
; 640 mode landscape
;
LoopL640W		; 
	lda <quality
	and #$2000	;look at vert. condensed bit
	beq i6	;branch if not vert. condensed

; 640 mode landscape (BEST COLOR 50% and vert. cond., BEST TEXT vert. cond.,
; BEST TEXT vert. and 50% reduction)
i5		; 
	lda #PutPoint4	;get address of correct subroutine
	bra LStuff640

; 640 mode landscape (BEST COLOR 50% red., BEST TEXT normal, BEST TEXT 50% red.)
i6		; 
	lda #PutPoint3	;get address of correct subroutine
	bra LStuff640

;
; 640 mode landscape
;
LoopL640C		; 
	lda <quality
	and #$2000	;look at vert. condensed bit
	beq i4	;branch if not condensed

; 640 mode landscape (BEST COLOR vertical condensed)
i3		; 
	lda #PutPoint3
	bra LStuff640

; 640 mode landscape (BEST COLOR normal)
i4		; 
	lda #PutPoint2bis
LStuff640		; 
	sta LAStuff60+1
	sta LAStuff61+1
	sta LAStuff62+1
	sta LAStuff63+1


	lda WasImage	;see if an image already was found
	beq Ck640L	;branch if no image	yet
	jmp Not640XX	;go image it

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Do a quick check for empty buffer;;;;;;;;;;;;;;
Ck640L		; 
	lda OffSetLand
	sta Qleft
	lda CurrentPoint
	sta QCount
;Now determine which line we are on and	vector to the correct routine
	Lda ContLine	;get current line
	and #3
	beq QL6Zero
	cmp #1
	beq QL6One
	cmp #2
	beq QL6Two

;Line (3)
QL6Three		; 
	lda Qleft
	sec
	sbc DrvrBitMap+6	;subtract right
	sta Qleft
	tay
	lda [<PtrBitmap],y
	and #$0003
	cmp #$0003
	bne L640Image	;branch if an image
	inc QCount
	lda Qcount
	cmp DrvrRect+6
	bne QL6Three	;loop until done
;We arrive here if theres no image to print
	bra QNoImage

;Line (2)
QL6Two		; 
	lda Qleft
	sec
	sbc DrvrBitMap+6	;subtract right
	sta Qleft
	tay
	lda [<PtrBitmap],y
	and #$000c
	cmp #$000c
	bne L640Image	;branch if an image
	inc QCount
	lda Qcount
	cmp DrvrRect+6
	bne QL6Two	;loop until done
;We arrive here if theres no image to print
QNoImage		; 
	rts

;Line (1)
QL6One		; 
	lda Qleft
	sec
	sbc DrvrBitMap+6	;subtract right
	sta Qleft
	tay
	lda [<PtrBitmap],y
	and #$0030
	cmp #$0030
	bne L640Image	;branch if an image
	inc QCount
	lda Qcount
	cmp DrvrRect+6
	bne QL6One	;loop until done
;We arrive here if theres no image to print
	bra QNoImage

;Line (0)
QL6Zero		; 
	lda Qleft
	sec
	sbc DrvrBitMap+6	;subtract right
	sta Qleft
	tay
	lda [<PtrBitmap],y
	and #$00c0
	cmp #$00c0
	bne L640Image	;branch if an image
	inc QCount
	lda Qcount
	cmp DrvrRect+6
	bne QL6Zero	;loop until done
;We arrive here if theres no image to print
	bra QNoImage

L640Image		; 
;We arrive here if the buffer has an image
	inc WasImage	;set flag to indicate an image present
	rts
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Not640XX		; 
;
;Now determine which line we are on and	vector to the correct routine
;
	Lda ContLine	;get current line
	and #3
	beq IL6Zero
	cmp #1
	beq IL6One
	cmp #2
	beq IL6Two

IL6Three		; 
	lda OffSetLand
	sec
	sbc DrvrBitMap+6
	sta OffSetLand
	tay	;use as index
	lda [<PtrBitmap],y
	and #$0003	;and out unwanted pixels
	ora #$000C	;or in correct palette base
	asl a
	asl a
	asl a
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;NOTE: The address portion of the following jsr instruction	is stuffed.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
LAStuff63		; 
	jsr PutPoint2bis
	inc CurrentPoint
	lda Currentpoint
	cmp DrvrRect+6
	bne IL6Three
	rts

IL6Two		; 
	lda OffSetLand
	sec
	sbc DrvrBitMap+6
	sta OffSetLand
	tay	;use as index
	lda [<PtrBitmap],y
	and #$000c
	ora #$0020	;or in correct pallete base
	asl a
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;NOTE: The address portion of the following jsr instruction	is stuffed.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
LAStuff62		; 
	jsr PutPoint2bis
	inc CurrentPoint
	lda Currentpoint
	cmp DrvrRect+6
	bne IL6Two
	rts

IL6One		; 
	lda OffSetLand
	sec
	sbc DrvrBitMap+6
	sta OffSetLand
	tay	;use as index
	lda [<PtrBitmap],y
	and #$0030
	ora #$0040	;or in correct pallete base
	lsr a
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;NOTE: The address portion of the following jsr instruction	is stuffed.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
LAStuff61		; 
	jsr PutPoint2bis
	inc CurrentPoint
	lda Currentpoint
	cmp DrvrRect+6
	bne IL6One
	rts

IL6Zero		; 
	lda OffSetLand
	sec
	sbc DrvrBitMap+6
	sta OffSetLand
	tay	;use as index
	lda [<PtrBitmap],y
	and #$00c0
	lsr a
	lsr a
	lsr a
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;NOTE: The address portion of the following jsr instruction	is stuffed.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
LAStuff60		; 
	jsr PutPoint2bis
	inc CurrentPoint
	lda Currentpoint
	cmp DrvrRect+6
	bne IL6Zero
	rts
	
;------------------------------------------------------------------------------
;
; NAME:        PointL320
;
; PURPOSE:     Gets	a landscape 320 mode pixel data point
;
; PASSED:      NONE
;
; RETURNED:    (A-reg.)	Current pixel point	in bit loc. 14-11
;		(index into finalpat {print patterns})
;
;------------------------------------------------------------------------------
PointL320		; 
	ldy OffSetLand
	lda [PtrBitmap],y
	tax
	Lda ContLine	;get current line
	and #$0001
	bne LEven

	txa
	and #$00F0
	lsr a
	rts

LEven	txa
	and #$000F
	asl a
	asl a
	asl a
	rts
	
;------------------------------------------------------------------------------
;
; NAME:        PointL640
;
; PURPOSE:     Gets	a landscape 640 mode pixel data point
;
; PASSED:      NONE
;
; RETURNED:    (A-reg.)	Current pixel point	in bit loc. 14-11
;		(index into finalpat {print patterns})
;
;------------------------------------------------------------------------------
PointL640		; 
	lda ContLine
	and #$0003
	tax
	ldy OffSetLand
	lda [PtrBitmap],y

;Now figure out which pixel it is (remember 640 mode has 4 pixels / byte)
CutQuart	cpx #0
	beq Q0	Quarter 0 or 1
	cpx #1
	beq Q1
	cpx #2
	beq Q2

;For pixel 3
	and #$03
	ora #$0C	;for correct color table base
	asl a
	asl a
	asl a
	rts

;For pixel 1
Q1	and #$30
	ora #$40	;for correct color table base
	lsr a
	rts

;For pixel 0
Q0		; 
	and #$C0
	lsr a
	lsr a
	lsr a
	rts

;For pixel 1
Q2	and #$0C
	ora #$20	;for correct color table base
	asl a
	rts

;------------------------------------------------------------------------------
;
; Variables
;
;------------------------------------------------------------------------------
OffSetLand	DC.W 0	;offset (landscape use)
StockYellow	DC.W 0	;current print pattern for yellow
StockRed	DC.W 0	;current print pattern for red
StockBlue	DC.W 0	;current print pattern for blue

	ENDP
;                copy    LLD.Port
*****************************
*	        *
* CiDrvr: Printer Driver IW *
*     SSCDrvr	        *
*	        *
* Current Rev: Nov.	1987    *
*	        *
*****************************


	EXPORT SendChar
SendChar	PROC
;------------------------------------------------------------------------------
;
; NAME:        InitSSC
;
; PURPOSE:     Initializes 'Super Serial Card'
;
; PASSED:      WORD		Request Command
;		 =0, same init. (do	nothing)
;		 =1, open port only
;		 =2, open port and reset printer
;		 =3, resets printer	only
;
; RETURNED:    NONE
;
;------------------------------------------------------------------------------
	EXPORT InitSSC
InitSSC		;       

	pha
	ldy #GraphP
	lda MyWap,y	;get last init. entry
	beq Reinit	;branch if it's first time through(=0)

	cmp 1,s
	beq EndInit	Same initialization

	tax	;save previous in x-reg.
	lda 1,s	No more init
	cmp #3
	beq EndInit	;branch if request=3

	cpx #3
	beq NoNeeded	;branch if previous	request=3

;We arrive here if we need to open the port
ReInit		; 

	PushLong #0
	PushLong #0
	_PrDevOpen	;open the port

NoNeeded	ldy #GraphP
	lda 1,s	;get the request
	sta MyWap,y	;save it for next time

	cmp #1
	bne EndInit	;branch if request=1

	PushLong #resetPrinter
	jsr WriteStr	;reset printer to its defaults

EndInit	pla
	rts

ResetPrinter	DC.B 4
	DC.B 27	;reset printer to its internal defaults
	DC.B '@'
	DC.B 27	; set to elite pitch, epsons deafult is pica
	DC.B 'M'	
	
*InitGraph      dc	    i1'16'
*               dc	    i1'09,67,68'	 disable line length
*               dc	    i1'09,84'	 disable basic tab
*               dc	    i1'09,70,68'	 disable keyboard input
*               dc	    i1'09,77,68'	 disable filtering LF
*               dc	    i1'09,76,68'	 disable LF after CF
*               dc	    i1'09,90'	 Final zap
	
;------------------------------------------------------------------------------
;
; NAME:        GoStatus
;
; PURPOSE:     Goes	and Gets the status
;
; PASSED:      NONE
;
; RETURNED:    (A-reg.)	Status
;
;------------------------------------------------------------------------------

	EXPORT GoStatus
GoStatus		;       
	sep #$30	0
	longa off
	longi off
	phb	2
	lda #0	3
	pha	5
	plb	6
	lda $C110	7
	sta <Status+4	10 (NOTE: Stuffs the addr. in hook proc)
	lda #$1	12 (Request code=1 (have input ready?)
	ldy #$10	14
	ldx #$c1	16
	jsl >0	18(NOTE: addr. is stuffed by MakeStatus)
	plb
	rep #$30
	longa on
	longi on
	and #1
	rts
;------------------------------------------------------------------------------
;
; NAME:        MakeStatus
;
; PURPOSE:     Stuffs the addr. of the routine that gets the status into
;              the routine 'GoStatus'.
;
; PASSED:      NONE
;
; RETURNED:    NONE
;
;------------------------------------------------------------------------------
	EXPORT MakeStatus
MakeStatus		;       
	phb
	phk
	plb
	pha
	tdc
	clc
	adc #<Status	;add the actual calling addr.
	sta GoStatus+19	;stuff the address of the routine
	pla
	plb
	rts
	
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;
; Hook Procedures (Gets copied to zero page '<GO' where it is executed)
;
; Switches to emulation mode and calls the SSC
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
	longi off
	longa off

;NOTE: This routine	is copied into zero	page at '<Go'
	EXPORT HookProc
HookProc		;       Hook to SSC
	sec	0  put into emulation mode
	xce	1
	phd	2  save D-reg.
	jsr $C100	3  Jump into SSC
	pld	6  restore D-reg.
	clc	7
	xce	8  back to 65816 mode
	rtl	9  Return

;NOTE: This routine	is copied into zero	page at '<Status'
;This routine gets the status and puts into the A-reg.
	sec	10
	xce	11  put into emulation mode
	phd	12  save d-reg.
	jsr $C100	13  jump SSC (NOTE:	this addr. is stuffed)
	php	16  save the status	bits
	pla	17  return with A-reg. = status bits
	pld	18  restore d-reg.
	clc	19
	xce	20  back to 65816 mode
	rtl	21
	longi on
	longa on
	ENDP
	
	EXPORT SendToIM2
SendToIM2	PROC
*              using   DataBitMap
;------------------------------------------------------------------------------
;
; NAME:        PrintCheck
;
; PURPOSE:     Get printers characteristics and set bits accordingly in 'PID'
;
; PASSED:      NONE
;
; RETURNED:    NONE
;
;------------------------------------------------------------------------------
	EXPORT PrintCheck
PrintCheck		;       
	phb
	phk
	plb

	lda #1
	jsr InitSSc

	plb
	rts



;------------------------------------------------------------------------------
;
; NAME:        ResetPrinter
;
; PURPOSE:     To reset the printer to its internal defaults and skip to start
;              of page.
;
; PASSED:      NONE
;
; RETURNED:    NONE
;
;------------------------------------------------------------------------------
	EXPORT ResetPrinter
ResetPrinter		;       

	PushLong #RPrinter	;send reset printer	command
	jsr WriteStr

	ldx <PageRect	;get page rect top
	jsr SkipLigne	;skip that many lines

	rts

RPrinter	DC.B 4
	DC.B 27,99	;reset printer to defaults
	DC.B $1b,$4e	;set char. pitch to	10 cpi (PICA)
;------------------------------------------------------------------------------
;
; NAME:        SendRCLF
;
; PURPOSE:     Sends carriage return/line feed until bottom	of page rect..  When
;              the bottom of page rect.	is reached, a form feed is sent
;
; PASSED:      NONE
;
; RETURNED:    NONE
;
;------------------------------------------------------------------------------
	EXPORT SendRCLF
SendRCLF		;       

	ldy #PenPosVW	;get the vertical pos.
	lda MyWap,y
	clc
	adc #$10	;add 16
	sta MyWap,y

	PushLong #RCLF	;send a carriage return line feed
	jsr WriteStr

	rts

RCLF	DC.B 2
	DC.B $0d,$0a	;carriage return, line feed chars.
;------------------------------------------------------------------------------
;
; NAME:        MovePen
;
; PURPOSE:     Moves the pen to the horz. and vertical location specified.
;
; PASSED:      NONE
;
; RETURNED:    NONE
;
;------------------------------------------------------------------------------
	EXPORT MovePen
MovePen		;       
	sec
	ldy #PenPosVW
	lda MyWap,y	;get current vertical position
	sbc NewPenPosV	;sub. new vert. position
	blt okPenPos	; go to move down the page if less than

	bra SameVPos	; this takes care of the case where we are
		; on the same line or when we are below the 
		; position we want to print on. Since the
		; Epsons cannot reverse, we print it on the 
		; same line.

;We arrive here if we need to move down	the page
OkPenPos
	stz CurHposInLine	; zero out the position within the line 

	lda NewPenPosV
	sec
	sbc MyWap,y	;calc. no. of lines	to skip down
	tax
	jsr SkipLigne	;skip correct lines	down page

	lda NewPenPosV
	ldy #PenPosVW
	sta MyWap,y	;update vert. positon to new position

SameVPos
;-----------------------------------------------------------
;
; Move the print head to the desired horizontal position. The LX, one of the
; printers supported by this driver, does not have absolute print head movement
; commands. We simulate it by using spaces. This scheme will not allow for going
; back to the left. But then, these printers can reverse paper vertically either.
;

	lda NewPenPosH	;get horz. position
	tay
	sec
	sbc CurHposInLine	; find the delta position
	bmi Exit	; it's to the left of where we are, ignore it
	sty CurHposInLine	; update variable
	inc a	; why add 1?
	lsr a	; divide by 8 (assume 8 dot columns per
	lsr a	; character)
	lsr a
	tax
LoopKRH		; x has number of spaces to add 
	phx 
	PushLong #movesp	; send a space
	jsr writeStr	;move the print head to horz. position
	plx
	beq Exit	; quit if it started out at 0
	dex
	bne LoopKRH
	
Exit	rts

ReverseFeed	DC.B 2
	DC.B 27,114	;line feeds go up the page

NormalFeed	DC.B 2
	DC.B 27,102	;line feeds go down	the page
	
;------------------------------------------------------------------------------
;
; NAME:        SkipLigne
;
; PURPOSE:     To skip lines down the page
;
; PASSED:      (X-reg.)	No. of lines to skip
;
; RETURNED:    NONE
;
;------------------------------------------------------------------------------
SkipLigne		; 
	phx	;save lines to skip
	txa
;;;;;;;;;;;;;;;;;;;;SPEED enhancement;;;;;;;;;;;;;;;;;;;;
L99Loop		; 
	cmp #96	;see if more than or equal to 99 lines
	blt Not99	;branch if less then 99
	PushLong #h96line	;set line height to	99 lines and LF
	jsr writestr
	pla	;get lines to skip
	sec
	sbc #96	;subtract 99 lines
	pha	;save it
	bra L99loop
Not99		; 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	lsr a	;div. by 16 (see how many 16 lines)
	lsr a
	lsr a
	lsr a
	beq NoBlock	;branch if not at least one 16 lines
	pha
	PushLong #hightline	;set line height to	16 lines
	jsr writestr
	plx
;This loop does line feeds (16 lines at	a time)
LoopASkip	phx
	PushLong #RCLF	;do a Carriage return/line feed
	jsr WriteStr
	plx
	dex	;dec. 16 line counter
	bne loopASkip

NoBlock	lda 1,s
	lsr a
	clc
	adc 1,s
	ply
	and #$f
	ora #$d00	;put cr in there

	lsr a	;even it round up
	bcc NI
	inc a
NI	clc
	asl a

	sta SkipL16+3

	pushlong #SkipL16
	jsr WriteStr

	pushlong #skipline
	jsr writestr
	
EndSkip	rts
;------------------------------------------------------------------------------
;
; NAME:        LittleSkip
;
; PURPOSE:     Skips the number of lines as specified in the A-register.
;              (skips only one line at a time)
;
; PASSED:      (A-reg.)
;
; RETURNED:    NONE
;
;------------------------------------------------------------------------------
	EXPORT LittleSkip
LittleSkip		;       
	tax
LoopSkip	phx

SuiteSkip	ldy #PenPosVW
	lda MyWap,y	;get current vert. postion
	clc
	adc #1
	sta MyWap,y	;inc. and update

	PushLong #SkipLine
	jsr WriteStr	;skip a line

	plx
	dex
	bne LoopSkip	;loop until at line	or hit bottom
	rts

;------------------------------------------------------------------------------
;
; NAME:        FormFeed
;
; PURPOSE:     Form	feed to the top of the page rect.
;
; PASSED:      NONE
;
; RETURNED:    NONE
;
;------------------------------------------------------------------------------
	EXPORT FormFeed
FormFeed		;       

	PushLong #P_Feed	;set for positive line feeds
	jsr WriteStr

	ldx #PenPosVW
	stz MyWap,x	;init. vert. pen pos. to zero

	ldx <PageRect	;skip to the top of	page rect.
	jsr SkipLigne

	rts
;------------------------------------------------------------------------------
;
; NAME:        TextShoot
;
; PURPOSE:     To transfer text to the printer
;
; PASSED:      LONG		Pointer to the text
;              WORD		Length of the text (in bytes)
;              WORD		USERID
;
; RETURNED:    NONE
;
;------------------------------------------------------------------------------
	EXPORT TextShoot
TextShoot		;       

* Stack: 1: rts
*        3: Direct page
*        5: Rtls
*        11: ID
*        13: length
*        15: Ptr Text

	lda 17,s	;get pointer to string
	pha
	lda 17,s
	pha
	PushWord #$0	;Use no offset into	text
	lda 19,s	;get length
	pha
	jsr WriteTxt	;write the text to the printer
	rts
;------------------------------------------------------------------------------
;
; NAME:        SendSingleCar
;
; PURPOSE:     To send a single character to the printer
;
; PASSED:      (A-reg.)	character to print (high byte)
;
; RETURNED:    NONE
;
;------------------------------------------------------------------------------
	EXPORT SendSingleCar
SendSingleCar		;       
	sta SingleCar	;stuff the character
	PushPtr SingleCar	;pointer to the text
	PushWord #$0	;no offset
	PushWord #$1	;Length is one
	jsr WriteTxt	;write the character
	rts

SingleCar	DC.B '  '	;char. to print
;------------------------------------------------------------------------------
;
; NAME:        SendBPrep
;
; PURPOSE:     Prepares the printer before SendBuff loop
;
; PASSED:      NONE
;
; RETURNED:    NONE
;
;------------------------------------------------------------------------------
	EXPORT SendBPrep
SendBPrep		;       
	lda <Quality
	and #$3
	tax
	lda DrvrRect+6
	jsr CalcPoPi

Suite2		; 
	clc
	adc <PageRectPtr
	cmp #$500
	blt oklong
	lda #$500
okLong		; 
	sta LongBuff
	lsr a
	sta Graphic+4

;              PushLong #P_LeftRight	;Set for UniDirectional printing only
;              jsr	   WriteStr

	PushLong #HightLine	;set line feed height to 16 lines
	jsr WriteStr

	rts
	
;------------------------------------------------------------------------------
;
; NAME:        SendBuff
;
; PURPOSE:     Prints the buffers for the different colors from one band
;
; PASSED:      NONE
;
; RETURNED:    NONE
;
;------------------------------------------------------------------------------
	EXPORT SendBuff
SendBuff		;       

	bit Vsizing
	bpl testmore
	brl SpeLand
testmore		; 
	bit SpeDens
	bpl Normal
	brl SpeLand
;
;Normal density (no	interlacing)
;
Normal		; 
;First check to see	if there was any image at all to print
	lda WasImage	;see if there was an image
	ora WasImage1
	ora WasImage2
	bne GoNormalP	;branch if image
	rts	;else no image to print

GoNormalP		; 
	lda #1
	sta FlagBlack	;flag to clear buffers next time
;-----------------------------------------------------------------------------
; This checks for an blank line (no data) and sets flagblack)
;-----------------------------------------------------------------------------
SendBW		; 

	jsr ConvertEpson

	PushLong #Graphic	;put into graphics mode
	jsr WriteStr

	PushLong <PtrRed
	PushWord #0
	lda LongBuff
	lsr a
	pha
	jsr WriteTxt

	PushLong #RC	Send a RC but no LF
	jsr WriteStr

	pushlong #NudgeBit
	jsr WriteStr

	PushLong #Graphic	;put into graphics mode
	jsr WriteStr

	PushLong <PtrBlue
	PushWord #0
	lda LongBuff
	lsr a
	pha
	jsr WriteTxt

	PushLong #RC	Send a RC but no LF
	jsr WriteStr

	bit <Quality
	bpl NoBW

	PushLong #Graphic	;put into graphics mode
	jsr WriteStr

	PushLong <PtrRed
	PushWord #0
	lda LongBuff
	lsr a
	pha
	jsr WriteTxt

	PushLong #RC	Send a RC but no LF
	jsr WriteStr

	pushlong #NudgeBit
	jsr WriteStr

	PushLong #Graphic	;put into graphics mode
	jsr WriteStr

	PushLong <PtrBlue
	PushWord #0
	lda LongBuff
	lsr a
	pha
	jsr WriteTxt

	PushLong #RC	Send a RC but no LF
	jsr WriteStr

NoBW	rts
EndLBuff	DC.W 0

	EXPORT ConvertEpson
ConvertEpson		;       
	ldy #0
	phy	;left on stack

CLoop		; 
	lda [<PtrYellow],y
	ply
	sta [<PtrRed],y
	xba
	sta [<PtrBlue],y
	iny
	phy
	tya
	asl a
	tay
	cmp LongBuff
	bcc CLoop

	ply	;fix stack

	rts


;------------------------------------------------------------------------------
;
; Special Modes (Interlaced)
;
;------------------------------------------------------------------------------
SpeLand		; 
;First see if there	was an image (do nothing if none)
	lda WasImage	;see if both interlaced have images
	ora WasImage1
	ora WasImage2
	bne GoSpeImgs	;branch if there was an image
	rts
GoSpeImgs		; 
	lda #1
	sta FlagBlack	;flag to clear buffers next time
;
;Interlaced black and white
;
SpeBW		; 

	jsr ConvertEpson

	PushLong #Graphic	;put into graphics mode
	jsr WriteStr

	PushLong <PtrRed
	PushWord #0
	lda LongBuff
	lsr a
	pha
	jsr WriteTxt

	PushLong #RC	Send a RC but no LF
	jsr WriteStr

	pushlong #NudgeBit
	jsr WriteStr

	PushLong #Graphic	;put into graphics mode
	jsr WriteStr

	PushLong <PtrBlue
	PushWord #0
	lda LongBuff
	lsr a
	pha
	jsr WriteTxt

	pushlong #RC
	jsr WriteStr

	bit <Quality
	bpl NoDouble

	PushLong #Graphic	;put into graphics mode
	jsr WriteStr

	PushLong <PtrRed
	PushWord #0
	lda LongBuff
	lsr a
	pha
	jsr WriteTxt

	PushLong #RC	Send a RC but no LF
	jsr WriteStr

	pushlong #NudgeBit
	jsr WriteStr

	PushLong #Graphic	;put into graphics mode
	jsr WriteStr

	PushLong <PtrBlue
	PushWord #0
	lda LongBuff
	lsr a
	pha
	jsr WriteTxt

	pushlong #RC
	jsr WriteStr

NoDouble		; 
	lda #1
	jsr LittleSkip	;skip down one print scan line

	jsr DefIOHSpe

	jsr ConvertEpson

	PushLong #Graphic	;put into graphics mode
	jsr WriteStr

	PushLong <PtrRed
	PushWord #0
	lda LongBuff
	lsr a
	pha
	jsr WriteTxt

	PushLong #RC	Send a RC but no LF
	jsr WriteStr

	pushlong #NudgeBit
	jsr WriteStr

	PushLong #Graphic	;put into graphics mode
	jsr WriteStr

	PushLong <PtrBlue
	PushWord #0
	lda LongBuff
	lsr a
	pha
	jsr WriteTxt

	PushLong #RC	Send a RC but no LF
	jsr WriteStr

	bit <Quality
	bpl NoDouble2

	PushLong #Graphic	;put into graphics mode
	jsr WriteStr

	PushLong <PtrRed
	PushWord #0
	lda LongBuff
	lsr a
	pha
	jsr WriteTxt

	PushLong #RC	Send a RC but no LF
	jsr WriteStr

	pushlong #NudgeBit
	jsr WriteStr

	PushLong #Graphic	;put into graphics mode
	jsr WriteStr

	PushLong <PtrBlue
	PushWord #0
	lda LongBuff
	lsr a
	pha
	jsr WriteTxt

	PushLong #RC	Send a RC but no LF
	jsr WriteStr

NoDouble2		; 
	jsr RevPaper

	rts

	
;------------------------------------------------------------------------------
;
; NAME:        RevPaper
;
; PURPOSE:     Reverses the paper a half print line
;
; PASSED:      NONE
;
; RETURNED:    NONE
;
;------------------------------------------------------------------------------
RevPaper		; 
	ldy #PenPosVW
	lda MyWap,y	;get the vertical pos.
	sec
	sbc #1	;dec. it by one
	sta MyWap,y

	PushLong #ReverseSpe ;reverse on half print line
	jsr WriteStr

	rts

;------------------------------------------------------------------------------
;
; NAME:        MakeBlack
;
; PURPOSE:     Determines the BLACK buffer bit values and sets each of the
;              color flags if there is data to be printed for that color.
;
; PASSED:      (Y)		Index into buffer to start at
;
; RETURNED:    NONE
;
;------------------------------------------------------------------------------
	EXPORT MakeBlack
MakeBlack		;       
	phx	;save x-reg.
	bra MakerBlack

LoopBlack	lda [<PtrYellow],y	Calculate black buffer by ANDing  on the
	and [<PtrRed],y	3 color buffers: Red+Yellow+Blue=Black
	and [<PtrBlue],y
	sta [<PtrBlack],y
	bne SomeBlack	;branch if some black bits

;We arrive here if there are no black bits
	lda [<PtrYellow],y	;look at the yellow	bits
	beq QQNoYellow	;branch if no yellow bits
	sta FlagYellow	;flag that we have some yellow

QQNoYellow	lda [<PtrRed],y	;look at the red bits
	beq QQNoRed	;branch if no red bits
	sta FlagRed

QQNoRed	lda [<PtrBlue],y	;look at the blue bits
	beq MakerBlack	;branch if no blue bits
	sta FlagBlue
	bra MakerBlack	;branch for next group of bits

;We arrive here if there are some black	bits
SomeBlack		; 
	sta FlagBlack	set FlagBlack.
	tax	;save black bits in	x-reg.

;		 For the other colors, if one bit is
	eor [<PtrYellow],y	Black, we must not print this bit in
	sta [<PtrYellow],y	the other color (EOR out that bit)
	beq QNoYellow	;branch if no yellow bits
	sta FlagYellow	;Set Yellow flag

QNoYellow		; 
	txa	;get black bits
	eor [<PtrRed],y	;EOR out red where there's black
	sta [<PtrRed],y
	beq QNoRed	;branch if no red bits
	sta FlagRed	;Set red flag

QNoRed		; 
	txa	;get black bits
	eor [<PtrBlue],y	;EOR out blue where	there's black
	sta [<PtrBlue],y
	beq MakerBlack	;branch if no blue bits
	sta FlagBlue	;Set blue flag

MakerBlack	dey
	dey
	bpl LoopBlack
	plx	;restore x-reg.
	rts
	

;Carriage Return
RC	DC.B 1	;epson
	DC.B $0d

;Sending Graphic data
Graphic	DC.B 5	;epson
	DC.B 27
	DC.B '*'
	DC.B 4,0,0

;Move print head to	horizontal position	specified
movesp	DC.B 1	;;epson
	DC.B ' '

;Set the line feed hight to 1, CR, LF
SkipLine	DC.B 4
	DC.B 27	;epson
	DC.B 'J'
	DC.B 1,13

;Set the line feed hight to 1, CR, LF
SkipL16	DC.B 4
	DC.B 27	;epson
	DC.B 'J'
	DC.B 1,13

NudgeBit	DC.B 6	;epson
	DC.B 27
	DC.B '*'
	DC.B 2,1,0,0

;Set the heigth of a line feed to 16 print lines
HightLine	DC.B 3
	DC.B 27,$33,24	;epson

;Set the heigth of a line feed to 144 print lines (for fast	vertical pos.)
;144/216 = 96/144
H96Line	DC.B 5	;epson
	DC.B 27
	DC.B '3'
	DC.B 144
	DC.B $0d,$0a	;carriage return, line feed

;Reverse up a half a line
ReverseSpe	DC.B 4	;epson
	DC.B 27	;set line feed to one print line
	DC.B 'j'
	DC.B 1
	DC.B $0d	;carriage return, line feed

;Do a form feed
P_Feed	DC.B 1	;epson
	DC.B 12

;UniDirectional printing
P_LeftRight	DC.B 2
	DC.B 27
	DC.B '<'

	EXPORT FlagBlack
FlagBlack		;       
	brk 00
FlagRed	brk 00
FlagYellow	brk 00
FlagBlue	brk 00
LongBuff	brk 00
	ENDP
;                copy    LLD.Exits

	EXPORT LldExits
LldExits	PROC
;------------------------------------------------------------------------------
;
; Low Level EXITS
;
;------------------------------------------------------------------------------
; NOTE: we need to save 2 RTL's

 if 0 then	;This isn't used by anything, is it?
;
; Take 12 bytes of parameters off the stack
;
	EXPORT LldExit12
LldExit12		;       
	tax
	lda 5,s
	sta 17,s
	lda 3,s
	sta 15,s
	lda 1,s
	sta 13,s
	pla
	pla
	pla
	pla
	pla
	pla
	bra LLDexitX
 endif

;
; Take 10 bytes of parameters off the stack
;
	EXPORT LldExit10
LldExit10		;       
	tax
	lda 5,s
	sta 15,s
	lda 3,s
	sta 13,s
	lda 1,s
	sta 11,s
	pla
	pla
	pla
	pla
	pla
	bra LLDexitX

;
; Take 8 bytes of parameters off the stack
;
	EXPORT LldExit8
LldExit8		;       
	tax
	lda 5,s
	sta 13,s
	lda 3,s
	sta 11,s
	lda 1,s
	sta 9,s
	pla
	pla
	pla
	pla
	bra LLDexitX

;
; Take 6 bytes of parameters off the stack
;
	EXPORT LldExit6
LldExit6		;       
	tax
	lda 5,s
	sta 11,s
	lda 3,s
	sta 9,s
	lda 1,s
	sta 7,s
	pla
	pla
	pla
	bra LLDexitX

;
; Take 4 bytes of parameters off the stack
;
	EXPORT LldExit4
LldExit4		;       
	tax
	lda 5,s
	sta 9,s
	lda 3,s
	sta 7,s
	lda 1,s
	sta 5,s
	pla
	pla
	bra LLDexitX

;
; Take 2 bytes of parameters off the stack
;
	EXPORT LldExit2
LldExit2		;       
	tax
	lda 5,s
	sta 7,s
	lda 3,s
	sta 5,s
	lda 1,s
	sta 3,s
	pla
LLDExitX		; 
	txa

;
; Take zero bytes of parameters off the	stack
;
	EXPORT LLDexit0
LLDexit0		;       
	cmp #1
	rtl
	ENDP

* high level
;                copy    DynamicExits
	EXPORT DynamicExits
DynamicExits	PROC
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;
; Dynamic Exits
;
;------------------------------------------------------------------------------
;-----------------------------------------------------------------------------

* NOTE:in a Dynamic	exit we need to save 2 RTLs

 if 0 then	;This isn't used by anything, is it?
;
; Take 20 bytes of parameters off the stack
;
	EXPORT exit20
exit20		;       
	tax
	lda 5,s
	sta 25,s
	lda 3,s
	sta 23,s
	lda 1,s
	sta 21,s
	tsc
	clc
	adc #20
	tcs
	txa
	bra exit0
 endif

 if 0 then	This isn't used by anything, is it?
;
; Take 16 bytes of parameters off the stack
;
	EXPORT Exit16
Exit16		;       
	tax
	lda 5,s
	sta 21,s
	lda 3,s
	sta 19,s
	lda 1,s
	sta 17,s
	tsc
	clc
	adc #16
	tcs
	txa
	bra Exit0
 endif

 if 0 then	;this isn't used by anything, is it?
;
; Take 14 bytes of parameters off the stack
;
	EXPORT Exit14
Exit14		;       
	tax
	lda 5,s
	sta 19,s
	lda 3,s
	sta 17,s
	lda 1,s
	sta 15,s
	tsc
	clc
	adc #14
	tcs
	txa
	bra Exit0
 endif

;
; Take 12 bytes of parameters off the stack
;
	EXPORT Exit12
Exit12		;       
	tax
	lda 5,s
	sta 17,s
	lda 3,s
	sta 15,s
	lda 1,s
	sta 13,s
	tsc
	clc
	adc #12
	tcs
	txa
	bra Exit0
;
; Take 10 bytes of parameters off the stack
;
	EXPORT Exit10
Exit10		;       
	tax
	lda 5,s
	sta 15,s
	lda 3,s
	sta 13,s
	lda 1,s
	sta 11,s
	pla
	pla
	pla
	pla
	pla
	txa
	bra exit0
;
; Take 8 bytes of parameters off the stack
;
	EXPORT Exit8
Exit8		;       
	tax	Standard 8 bytes input exit
	lda 5,s
	sta 13,s
	lda 3,s
	sta 11,s
	lda 1,s
	sta 9,s
	pla
	pla
	pla
	pla
	txa
	bra Exit0

 if 0 then	;this isn't used by anything, is it?
;
; Take 6 bytes of parameters off the stack
;
	EXPORT Exit6
Exit6		;       
	tax	Standard 6 bytes input exit
	lda 5,s
	sta 11,s
	lda 3,s
	sta 9,s
	lda 1,s
	sta 7,s
	pla
	pla
	pla
	txa
	bra Exit0
 endif

;
; Take 4 bytes of parametes off the stack
;
	EXPORT Exit4
Exit4		;       
	tax	Standard 4 bytes input exit
	lda 5,s
	sta 9,s
	lda 3,s
	sta 7,s
	lda 1,s
	sta 5,s
	pla
	pla
	txa
	bra Exit0
;
; Take 2 bytes of parameters off the stack
;
	EXPORT Exit2
Exit2		;       
	tax	Standard 2 bytes input exit
	lda 5,s
	sta 7,s
	lda 3,s
	sta 5,s
	lda 1,s
	sta 3,s
	pla
	txa
;
; Take no parameters off the stack
;
	EXPORT Exit0
Exit0		;       
	cmp #1	Standard 0 byte input exit
	rtl

	ENDP

;                copy    Maindata
*****************************
*	        *
* MainData	        *
*	        *
* Current Rev: Nov.	1987    *
*	        *
*****************************

	EXPORT MainData
MainData	PROC

	EXPORT ZeroPage
ZeroPage	DS.B 2
	EXPORT iPrErr
iPrErr	DS.B 2
	EXPORT iPageNum
iPageNum	DS.B 2
	EXPORT PicListCount
PicListCount	DS.B 2	; count of pages used in piclist 
	EXPORT iDocPage
iDocPage	DS.B 2
	EXPORT Method
Method	DS.B 2
	EXPORT hprint
hprint	DS.B 140	TPrintsize
	EXPORT showstatusflag
showstatusflag	DS.B 2
	EXPORT rBand
rBand	DS.B 8	rect
	EXPORT LinesLeftOnPage
LinesLeftOnPage	DS.B 2	; # of lines left to be printed
	EXPORT LinesPerPage
LinesPerPage	DS.B 2	; total # of lines on each page 
	EXPORT resolution
resolution	DS.B 2
	EXPORT MainUserID
MainUserID	DS.B 2
	EXPORT BandPort
BandPort	DS.B portsize
	EXPORT ScreenPort
ScreenPort	DS.B portsize
	EXPORT OurStatusRecord
OurStatusRecord	DS.B StatRecSize

	EXPORT CursorAd
CursorAd	DS.B 4 

	EXPORT StackLoc 	; used in lldidleproc to keep track of stack
StackLoc 	DS.B 2

	EXPORT BandLoc
BandLoc	DS.B 20

	EXPORT RectSize1
RectSize1	DC.W 0,0,$10,$10
	EXPORT RectSize2
RectSize2	DC.W 0,0,$20,$20

	EXPORT SizingRect
SizingRect	DS.B 8

	EXPORT hugeRect
hugeRect	DC.W 0,0,16382,16382
* you'd better not to be outside this hugeRect !!!


	EXPORT PPParms
PPParms		; 
	DC.L BandPort
	DC.L ScreenPort
	DC.L BandLoc+8
	DC.L destpoint
	DC.W 0	PenCopy
	DC.W 0	maskhandle
	DC.W 0

	EXPORT destpoint
destpoint	DC.W 0,0,32,320	home

	EXPORT Pt1
Pt1	DC.W 20,25
	EXPORT Pt2
Pt2	DC.W 110,60
	EXPORT Pt3
Pt3	DC.W 5,210

	EXPORT Printer_name
Printer_name		;       
	str '='
	str 'epson'
	str '*'

	EXPORT TESTRECT
TESTRECT	DC.W 15,20,100,200
	EXPORT white
white	DC.W $ffff
	DC.W $ffff
	DC.W $ffff
	DC.W $ffff
	DC.W $ffff
	DC.W $ffff
	DC.W $ffff
	DC.W $ffff
	DC.W $ffff
	DC.W $ffff
	DC.W $ffff
	DC.W $ffff
	DC.W $ffff
	DC.W $ffff
	DC.W $ffff
	DC.W $ffff
	EXPORT gris
gris	DC.W $8888
	DC.W $8888
	DC.W $8888
	DC.W $8888
	DC.W $8888
	DC.W $8888
	DC.W $8888
	DC.W $8888
	DC.W $8888
	DC.W $8888
	DC.W $8888
	DC.W $8888
	DC.W $8888
	DC.W $8888
	DC.W $8888
	DC.W $8888

	EXPORT LLD_PaperRect
LLD_PaperRect	DS.B 8
	ENDP
		

;                copy    PrtRecord.Dflt	  ;Default print record
*****************************
*	        *
* PrtRecordDflt	        *
*	        *
* Current Rev: Nov 1987     *
*	        *
*****************************


	EXPORT PrtRecordDflt
PrtRecordDflt	PROC
*             using	PrtRecordEqu

	EXPORT hPrint_test
hPrint_test	DC.L pPrint_test
	EXPORT pPrint_test
pPrint_test	DC.L Print_test


	EXPORT Print_test
Print_test		; 

* offset for the TPrint record length =	140 bytes

	DC.B $02,$00	*iPrVersion     equ	 0
*prInfo         equ	 2        subrecord	 Printer Info Subrecord
* prInfo subrecord length = 14 bytes
	DC.W iDevEpson	*idev           equ	 0
	DC.W 36	*iVRes          equ	 2
	DC.W 80	*iHRes          equ	 4
	DC.W 0,0,396,640	*rPage $$$$$    equ	 6

	DC.W -36,-20,752,660 *rPaper         equ  16

*prStl          equ	 24       SubRecord
* TPrStl subrecord info length = 18 bytes

;
; wDev is set initially to be normal quality, portrait, normal vertical
; density, no reduction, B/W, and with gap.
;
	DC.W f1+f2+f3+f6	wDev           equ	0
	DC.W 1320	iPageV         equ	2
	DC.W 1020	iPageH         equ	4
	DC.W 0	bPort          equ	6
	DC.W 1	feed           equ	8
	DC.W 0	PaperType      equ	10
	DC.W 960	CRwidth        equ	12
	DC.W 0	reserved
	DC.W 0

*prInfoPT       equ	 42       SubRecord
	DC.W iDevEpson	*idev           equ	 0
	DC.W 36	*iVRes          equ	 2
	DC.W 80	*iHRes          equ	 4
	DC.W 0,0,396,640	*rPage          equ	 6

*prXInfo        equ	 56       SubRecord

	DC.W 80	iRowBytes      equ	0
	DC.W 32	iBandV         equ	2
	DC.W 640	iBandH         equ	4
	DC.W 10240	iDevBytes      equ	6
	DC.W 12	ibands         equ	8

	DC.B 0	bPatScale      equ	10
	DC.B 1	bULThick       equ	11
	DC.B 1	bULOffset      equ	12
	DC.B 1	bULShadow      equ	13
	DC.B 0	scan           equ	14
	DC.B 0	bXInfoX        equ	16
	DCB.B 8,0	reserved

*prJob          equ	 80       SubRecord
* TPrJob subrecord length = 20 bytes

	DC.W 1	iFstPage       equ	0
	DC.W 9999	iLstPage       equ	2
	DC.W 1	iCopies        equ	4
	DC.B $80	bjDocLoop      equ	6
	DC.B 1	fFromUsr       equ	7
	DC.L 0	pIdleProc      equ	8
	DC.L 0	pFileName      equ	12
	DC.W 0	iFileVol       equ	16
	DC.B 0	bFileVers      equ	18
	DC.B 0	bJobX          equ	19


*printx         equ	 100      Array[1..19] of integer (38 bytes)

	DC.W 0	plus two reserved bytes
	DC.W 0
	DC.W 0
	DC.W 0
	DC.W 0
	DC.W 0
	DC.W 0
	DC.W 0
	DC.W 0
	DC.W 0
	DC.W 0
	DC.W 0
	DC.W 0
	DC.W 0
	DC.W 0
	DC.W 0
	DC.W 0
	DC.W 0
	DC.W 0
	DC.W 0

*TPrintsize     equ	 140

	EXPORT Gap
Gap	DC.W 0
	DC.W 60

	EXPORT PortVres
PortVres	DC.W 36

	EXPORT PortHres
PortHres	DC.W 40
	DC.W 80

	Export LandVres
LandVres	DC.W 40

	Export LandHres
LandHres	DC.W 36
	DC.W 72

	EXPORT PaperVsize
PaperVsize	DC.W 1320
	DC.W 1680
	DC.W 1400
	DC.W 1440

	EXPORT PaperHsize
PaperHsize	DC.W 1020
	DC.W 1020
	DC.W 990
	DC.W 990

	EXPORT CarriageWidth
CarriageWidth	DC.W 960
	DC.W 960
	DC.W 960
	DC.W 960

* US Letter/640 portrait gap:	    36 80 0 0 378 640  -9 -20 387 660
* US Letter/640 landscape gap:	    40 72 0 0 320 756 -10 -18 330 774


*DefaultFileName Str '*/System/Print.Temp'
	ENDP
;                copy    ErrorCalls.ASM	  ;_PrError, _PrSetError
;*****************************************************************************
;*****************************************************************************
;
;  NAME:       PrError
;
;  PURPOSE:    High	level printer routine '_PrError' which returns last error
;              that	has occured (iPrErr).
;
;  PASSED:     (None)
;
;  RETURNED:   LastError	WORD, last error that occured.
;
;*****************************************************************************
;*****************************************************************************

	EXPORT PrError
PrError	PROC
*              Using MainData

	DefineStack
* iPrErr
* parameters
* error value

Error_DPage	word 0
Error_BReg	byte 0
Error_rtl1	block 3
Error_rtl2	block 3
Error_Value	word 0

	phd
	tcd
	phb
	phk
	plb
	lda iPrErr	;get the error value
	sta Error_Value,s	;return it on the stack
	lda #0
	plb
	pld
	jmp exit0

	
;*****************************************************************************
;*****************************************************************************
;
;  NAME:       PrSetError
;
;  PURPOSE:    High	level printer routine '_PrSetError' which sets the error
;              value (iPrErr).
;
;  PASSED:     ErrorNumber	WORD, error number to be saved.
;
;  RETURNED:   (NONE)
;
;*****************************************************************************
;*****************************************************************************

	EXPORT PrSetError
PrSetError		;       
* parameters
* error value

	DefineStack
SetError_DPage	word 0
SetError_BReg	byte 0
SetError_rtl1	block 3
SetError_rtl2	block 3
SetError_value	word 0

	phd
	tcd
	phb
	phk
	plb
	lda SetError_value,s ;get the passed error value
	sta iPrErr	;save it at iPrErr
	lda #0
	plb
	pld
	jmp exit2
	ENDP
;                copy    PrChanged

	EXPORT PrChanged
PrChanged	PROC
*              Using Maindata
	phd
	phb
	phk
	plb
	tcd
	PushPtr Printer_Name
	_PrDevPrChanged
	plb
	pld
	jmp exit0
	ENDP

;                copy    DraftProcs
;******************************************************************************
;******************************************************************************
;**			                 **
;**			                 **
;**            I M M E D I A T E    M O	D E    P R O C S.	                 **
;**			                 **
;**			                 **
;******************************************************************************
;******************************************************************************

	EXPORT Draftprocs
Draftprocs	PROC
*              using MainData
*              using PrtRecordEqu
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;
;  Standard Pixel Procedure (Prints Pixel Maps)
;
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
	EXPORT Pixel
Pixel		;       


	phb
	phk
	plb

	lda iPrErr
	beq Continue
exitnow	brl ExitPixel

;----------------------------------------------------------------------
;
; Gets information about the source pixel map from QD's zero page.
;

Continue		; 

	lda [QdPort]	; SCB
	sta pixelLoc
	lda srcPixelMapRef	; pointer to the pixel map
	sta pixelLoc+2
	lda srcPixelMapRef+2
	sta pixelLoc+4

	lda SrcWidth	; width of pixel map
	sta pixelLoc+6

	ldx #6	; bounds rect
moveBounds	lda srcBounds,x
	sta PixelLoc+8,x
	dex
	dex
	bpl moveBounds

	PushWord #0	; Result
	PushWord #0	; bank address of zero page
	tdc	; transfer direct page into acc
	clc
	adc #srcBounds	; get actual address of srcBounds
	pha
	PushWord #0	; bank address of zero page
	tdc	; transfer direct page into acc
	clc
	adc #srcRect	; get actual address of srcRect
	pha
	PushLong #PixelRect	; intersected rect goes here
	_SectRect
	pla
	beq ExitPixel	; if false, no intersection

;---------------------------------------------------------------
;
; Look at the source rect.  If its upper/left corner is 0,0
; then no adjustment is necessary.  If it is not 0,0, we must
; adjust the pointer to the pixel map so that it points to
; the first pixel in the source rect.
;
; Note that this scheme does not work with source rects that
; do not have the first pixel to draw as the first pixel in
; a byte.
;
	lda PixelRect
	sec
	sbc PixelLoc+8
	beq NoAdjustmentY

	pha	; space for result
	pha
	pha	; Top of src rect
	PushWord PixelLoc+6	; width
	_Multiply
	pla
	clc
	adc PixelLoc+2
	sta PixelLoc+2
	pla
	adc PixelLoc+4
	sta PixelLoc+4

NoAdjustmentY		; 
	lda PixelRect+2
	sec
	sbc PixelLoc+10
	beq NoAdjustmentX

	lsr a
	bit PixelLoc-1
	bpl ModeWas320
	lsr a
ModeWas320	clc
	adc PixelLoc+2
	sta PixelLoc+2
	bcc NoCarryHere
	inc PixelLoc+4
NoCarryHere		; 
NoAdjustmentX		; 

	lda PixelRect
	sta PixelLoc+8
	lda PixelRect+2
	sta PixelLoc+10
	lda PixelRect+4
	sta PixelLoc+12
	lda PixelRect+6
	sta PixelLoc+14

;------------------------------------------------------------
;
; Call LLDBitMap using the adjusted (if	necessary) values in
; PixelLoc and PixelRect.
;

	pushptr PixelLoc	; source Loc info
	pushptr PixelRect	; source rect
	pushword MainUserID
	jsl LLDBitmap

	lda #0
ExitPixel	clc
	plb
	rtl

PixelLoc	DS.B 16	; changed from 8 to	16 by Suki 6/1/87
PixelRect	DS.B 8

;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;
; _StdText Procedure (Prints Standard Text)
;
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------

	EXPORT DraftText
DraftText		;       

	phb	;save data bank reg. on stack
	phk	;get program bank reg.
	plb	;use as data bank reg.

	PushPtr PenPos
	_GetPen	;current pen pos. -> PenPos

* here we move the printer head to penpos
	asl PenPos

	lda hPrint+prStl+wdev
	and #f2	; condensed?
	beq By2Only	; yes, skip the next multiply
	asl PenPos
* I think PenPos is	in 144 th/inch vertically.

By2Only	PushLong PenPos
	pushword MainUserID
	jsl LLDSetPenPos

	PushWord #0	;space for textwidth
;		;(for call to _TextWidth)

	lda DrawVerb	;get the DrawVerb
	beq DoCar	;if DrawVerb=0 then	DoCar

	cmp #1
	beq dotext2	;if DrawVerb=1 then	DoText2

;
;We get here if it's a 'C' string (DrawVerb=2)
;
DoCstring		; ; Cstrings are handles differently
	sep #$20	; since the string is terminated
	longa off	; by a 0 and no length is kept

;Search down through string looking for	terminator to calculate length
	ldy #0
KeepLooking	lda [TextPtr],y
	beq TheEnd
	iny
	bra KeepLooking
TheEnd	rep #$20
	longa on
	lda TextPtr+2
	pha	;push the pointer to string
	lda Textptr
	pha
	phy	;push the length of	string
	bra common

;
;We get here if it's just one character (DrawVerb=0)
;
DoCar		; 
	pushword #0
	tdc
	clc
	adc #chartodraw	;calculate addr. of	char.
	pha	;push addr. of character
	Pushword #1	;push length of one	char.
	bra common

;
;We get here if it's a string of text (DrawVerb=1)
;
DoText2		; 
	lda TextPtr+2
	pha	;push pointer to the string
	lda Textptr
	pha
	lda textLength
	pha	;push the strings length

common	lda 5,s	; Dup the last 3 words on the
	pha	; stack to be used with TextWidth
	lda 5,s
	pha
	lda 5,s
	pha
* here we send the text on the printer
	pushword MainUserID

;-----------------------------------------------------------------------
;
; The stack should look like this at this point:
;        ...
;        00 (result	space) --
;        TextPtr	        |   parameters for TextWidth
;        length	       --
;        TextPtr	       --
;        length	        |   parameters for PrText
;        UserID	       --
; sp ->

	jsl LLDText	;print the text

	_TextWidth	;get the texts width (DH)

	Pushword #0	;set (DV)=0
	_move	;move current pen location

ExitText	lda #0	;return with no errors
	clc
	plb	;restore data bank
	rtl

PenPos	DS.B 4
	ENDP



;                copy    Metrics	  ;_PrDefault, _PrValidate, _PrStlDialog
;		;_PrJobDialog
	EXPORT metrics
metrics	PROC
*              using PrtRecordEqu
*              using MainData
*              using PrtRecordDflt
*              using dialogdata

;*****************************************************************************
;*****************************************************************************
;
;  NAME:       PrDefault
;
;  PURPOSE:    High	level printer routine '_PrDefault' which fills the fields
;              of the specified print record with default values for this
;              particular printer.
;
;  PASSED:     PrintRecordHandle	LONG, Handle to print record.
;
;  RETURNED:   (None)
;
;*****************************************************************************
;*****************************************************************************
	DefineStack
	EXPORT PrDefault
PrDefault		;       
	EXPORT PrintDefault
PrintDefault		;       ;alias for PrDefault
* parameters
* hprint
Default_DPage	word 0
Default_BReg	byte 0
Default_rtl1	block 3
Default_rtl2	block 3
Default_hprint	long 0

	phd
	tcd
	phb
	phk
	plb
	sta ZeroPage

;See if user passed	a valid handle
	lda Default_hPrint,s
	ora Default_hPrint+2,s
	bne notNIL
;
;We arrive here if an invalid handle, we must flag as an error
;
	lda #NoPrintRecord
	bra Exit

notNil		; 
*		read the handle
;
;Copy the default print record 'Print_test' to internal hprint buffer
;
;
; Transfer the print record to the internal print record,
; this is necessary	because CiXmetrics expects the print
; record in hprint
;
	pushptr Print_test
	pushptr hprint
	pushlong #TPrintsize
	_blockmove

	jsr CiXmetrics	;set metrics from defaults

;
;Dereference the 'PrintRecordHandle' that was passed to Temp1
;
	lda Default_hPrint,s
	sta temp1
	lda Default_hPrint+2,s
	sta Temp1+2

	pushlong #hprint	; moves good values	into
	pushlong Temp1	; application's print record
	pushlong #TPrintSize
	_PtrToHand
	bcs Exit	; memory manager error

	lda #$0000
exit	plb
	pld
	jmp exit4

	
;*****************************************************************************
;*****************************************************************************
;
;  NAME:       PrValidate
;
;  PURPOSE:    High	level printer routine '_PrValidate' which checks the
;              specified print record for compatibility with the printer.
;              If the print record is valid, it returns FALSE, and if it
;              is invalid, it returns TRUE and adjusts the print record
;              values to the defaults.
;
;  PASSED:     PrintRecordHandle	LONG, Handle to the	print record.
;
;  RETURNED:   ChangeFlag	WORD, Boolean.
;
;*****************************************************************************
;*****************************************************************************


	EXPORT PrValidate
PrValidate		;       
* parameters
* results
* hPrint

	DefineStack
Validate_DPage	word 0	;Saved D-Page
Validate_BReg	byte 0	;Saved B-Reg.
Validate_rtl1	block 3
Validate_rtl2	block 3
Validate_hPrint	long 0	;Passed print record handle
Validate_Result	word 0	;returned changeflag

	phd	;save the d page reg.
	tcd
	phb
	phk
	plb

	lda #False	; assume no change to print
	sta Validate_Result,s ; record at start

	lda Validate_hPrint,s ; get the handle off the stack
	sta temp1	; and put into a temp location
	lda Validate_hPrint+2,s
	sta Temp1+2

	PushLong Temp1	; put in our local area
	PushPtr hPrint
	PushLong #TPrintSize
	_HandToPtr
	
;-----------------------------------------------------------------
;
; Test if correct printer type (1 = ImageWriter, 2 = IW LQ, 3 = LaserWriter,
; 4 = Epson) and correct version number.
;

	lda hPrint+prInfo+idev
	cmp #iDevEpson	; this is Epson driver
	bne WrongType
	lda hPrint+iPrVersion ; check if correct version
	xba	; swap since hi-lo bytes are
	cmp #VersionNb	; swapped during lda
	beq GoodType

WrongType	pushptr Print_test	; move default values in
	pushptr hprint
	pushlong #TPrintSize
	_blockmove

	lda #True	; set result to reflect a
	sta Validate_Result,s ; change in print	record
	
GoodType		; 
	jsr CiXmetrics

	pushptr hprint
	pushlong Temp1
	pushlong #TPrintSize
	_PtrToHand

	lda #0
ErrorExit	plb
	pld
	jmp exit4

	
;*****************************************************************************
;*****************************************************************************
;
;  NAME:       PrStlDialog
;
;  PURPOSE:    High	level printer routine '_PrStlDialog', which performs a
;              style dialog with the user.  The initial settings are taken
;              from	the print record.  If the user confirms	the dialog, the
;              results are saved in the	print record and '_PrValidate' is
;              called and the routine returns TRUE.  If not, the print record
;              is left unchanged and returns FALSE.
;
;  PASSED:     PrintRecordHandle	LONG, Handle to the	print record.
;
;  RETURNED:   ConfirmFlag	WORD, Boolean.
;
;*****************************************************************************
;*****************************************************************************

* buttonstate for Style
* +0    US Letter		Default
* +2*1  US Legal
* +2*2  Computer Paper
* +2*3  A4 Letter
* +2*4  International Fanfold
* +2*5  Condensed Vsizing
* +2*6  50% reduction
* +2*7  No Gaps Between Pages
* +2*8  Portrait
* +2*9  Landscape
* +2*10 Normal Vsizing

	EXPORT PrStlDialog
PrStlDialog		;       
* parameters
* results
* hPrint

	DefineStack
StlDialog_DPage	word 0
StlDialog_BReg	byte 0
StlDialog_rtl1	block 3
StlDialog_rtl2	block 3
StlDialog_hPrint	long 0	;PrintRecordHandle
StlDialog_result	word 0	;ConfirmFlag results

	phd
	tcd
	phb
	phk
	plb
	sta ZeroPage

;Copy the passed 'PrintRecordHandle' to	PZ_hprint and lock it
	lda StlDialog_hPrint,s
	sta PZ_hprint
	lda StlDialog_hPrint+2,s
	sta PZ_hprint+2
	pushlong PZ_hprint
	_hlock
	_ckError
;
; call PrValidate to check if printer type is same
;
	PushWord #0
	PushLong PZ_hprint
	_PrValidate	;validate the print	record
	plx
	bcc MoveOn
	brl ErrorExit1	; memory manager error
;
MoveOn	lda [PZ_hprint]
	tax
	ldy #2
	lda [PZ_hprint],y
	sta PZ_hprint+2	;dereferences
	stx PZ_hprint
;
;Copy the passed print record data to the internal print record 'hprint'.
;
	ldy #TPrintsize-2	pair
slooph	lda [PZ_hprint],y
	sta hprint,y
	dey
	dey
	bpl slooph
;
;Clear all the button states
;
	lda #$0000
	ldx #26
clrbtn	sta buttonstate,x
	dex
	dex
	bpl clrbtn

;
;Validate paper type and sets the appropriate button state
;
	lda hprint+prStl+PaperType
	cmp #4
	blt valid
;We get here if the	paper type is invalid (default to zero)
	stz hprint+prStl+PaperType
	lda #0
Valid		; what if the prtrecord
	asl a	never did go through
	tax	prdefault
;This sets the appropriate button state
	lda #$ffff
	sta buttonstate,x	; et voila pour le papier

;
;This initilizes the portrait/landscape	buttonstate
;
	lda hprint+prstl+wdev
	and #f1	;check for portrait	mode
	beq do9
	dec buttonstate+2*8	;set portrait
	bra over9
do9	dec buttonstate+2*9	;set landscape
over9		; 

;
;This initilizes the 50% reduction buttonstate
;
	lda hprint+prstl+wdev
	and #f3	;check for 50% reduction
	bne over6
	dec buttonstate+2*6	;set 50% reduction
over6		; 

;
;This initilizes the no GAP buttonstate
;
	lda hprint+prstl+wdev
	and #f6	;check for no GAP
	bne over7
	dec buttonstate+2*7	;set for no GAP
over7		; 
	lda hprint+prstl+wdev
	and #f2	2Vsize
	beq do5
	dec buttonstate+2*10
	bra over5
do5	dec buttonstate+2*5
over5		; 

;------------------------------------------------------------------------------
;Now call 'StyleDialog' to do the actual dialog work
;------------------------------------------------------------------------------
	jsr styledialog

	sta StlDialog_result,s ;save results on	stack
	bne okStyle	;branch if confirmed dialog
	brl outStyle	;branch if canceled	dialog
;
;We get here if the	user confirmed and we can update the print record
;
okStyle		; 
* +0    US Letter		Default
* +2*1  US Legal
* +2*2  International Fanfold
* +2*3  A4 Letter
* +2*4  Computer Paper
;
;Now figure out which paper size was selected
;
	ldx #0
	lda buttonstate+2*0	;see if US Letter
	bmi NewPaperSize
	inx
	lda buttonstate+2*1	;see if US legal
	bmi NewPaperSize
	inx
	lda buttonstate+2*2	;see if Internationl Fanfold
	bmi NewPaperSize
	inx
NewPaperSize	stx hprint+prStl+PaperType ;now set paper type
;
;Now see about vertical sizing
;
	lda #f2	2Vsize
	tsb hprint+prstl+wdev
	bit buttonstate+2*5
	bpl no2
	trb hprint+prstl+wdev
no2		; 

;
;Now see if GAP or NO GAP was selected
;
	lda #f6	Gap
	tsb hprint+prstl+wdev
	bit buttonstate+2*7
	bpl no6
	trb hprint+prstl+wdev
no6		; 

;
;Now see if 50% reduction was selected
;
	lda #f3	2x zoom
	tsb hprint+prstl+wdev
	bit buttonstate+2*6
	bpl no3
	trb hprint+prstl+wdev
no3		; 

;
;Now see which of portrait/landscape was selected
;
	lda #f1	portrait
	tsb hprint+prstl+wdev
	bit buttonstate+2*9
	bpl no1
	trb hprint+prstl+wdev
no1		; 

	Jsr CiXmetrics	;go calculate the metrics

;
;Now copy the internal print record to the users
;
	ldy #TPrintsize-2	pair
slooph2	lda hprint,y
	sta [PZ_hprint],y
	dey
	dey
	bpl slooph2

;
;We get here when we are done or the user canceled the dialog
;
OutStyle	lda #0
ErrorExit1	plb
	pld
	jmp exit4

	
;*****************************************************************************
;*****************************************************************************
;
;  NAME:       PrJobDialog
;
;  PURPOSE:    High	level printer routine '_PrStlDialog', which performs a
;              job dialog with the user.  The initial settings are taken
;              from	the print record.  If the user confirms	the dialog, the
;              results are saved in the	print record and '_PrValidate' is
;              called and the routine returns TRUE.  If not, the print record
;              is left unchanged and returns FALSE.
;
;  PASSED:     PrintRecordHandle	LONG, Handle to the	print record.
;
;  RETURNED:   ConfirmFlag	WORD, Boolean.
;
;*****************************************************************************
;*****************************************************************************

* buttonstate for JobDialog
* +0   best
* +2*1 faster
* +2*2 Draft
* +2*3 all pages
* +2*4 from pages
* +2*5 paper auto
* +2*6 paper hand
* +2*7 value for From
* +2*8 Value for To
* +2*9 value for Copies
* +2*10 color/bw

	EXPORT PrJobDialog
PrJobDialog		;       
* prarmeters
* results
* hPrint

	DefineStack
JobDialog_DPage	word 0
JobDialog_BReg	byte 0
JobDialog_rtl1	block 3
JobDialog_rtl2	block 3
JobDialog_hPrint	long 0	;passed PrintRecordHandle
JobDialog_result	word 0	;returned ConfirmFlag

;First save registers and setup environment
	phd
	tcd
	phb
	phk
	plb
	sta ZeroPage

;
;Make a copy of the	passed print record	handle at 'PZ_hprint' and lock it
;
	lda JobDialog_hPrint,s
	sta PZ_hprint
	lda JobDialog_hPrint+2,s
	sta PZ_hprint+2
	pushlong PZ_hprint
	_hlock	;lock the handle
	_ckError
;
; call PrValidate to check if printer type is same
;
	PushWord #0
	PushLong PZ_hprint
	_PrValidate
	plx
	bcc OnWard
	brl ErrorExit2	;memory manager error
;
;Dereferences the handle at 'PZ_hprint'
;
Onward	lda [PZ_hprint]
	tax
	ldy #2
	lda [PZ_hprint],y
	sta PZ_hprint+2	dereference
	stx PZ_hprint
;
;This copies the passed print record data to the internal print record 'hprint'
;
	ldy #TPrintsize-2	pair
looph	lda [PZ_hprint],y
	sta hprint,y
	dey
	dey
	bpl looph
;
;This initializes all the buttonstates to zero
;
	lda #$0000
	ldx #26
clrbtn2	sta buttonstate,x
	dex
	dex
	bpl clrbtn2
;
;This sets the correct buttonstate for print quality; BEST,	FASTER, DRAFT
;
	lda #$80
	and hprint+prJob+bjDocLoop
	bne BetOrFast
	dec buttonstate+2*2	;set DRAFT
	bra jover1
;We get here if it could be BEST or FASTER
BetOrFast		; 
	lda hprint+prstl+wdev
	and #f0
	beq jover0
	dec buttonstate+2*0	;set BEST
	bra jover1
jover0	dec buttonstate+2*1	;set FAST
jover1		; 
;
;This sets the correct buttonstate for paper feed; AUTOMATIC, HAND FEED
;
	lda hprint+prStl+feed
	cmp #feedfanfold
	beq doauto
	dec buttonstate+2*6	;set HAND FEED
	bra doHand
doauto	dec buttonstate+2*5	;set AUTOMATIC
doHand		; 
;
;This sets the COLOR/BW buttonstate
;
	lda hprint+prstl+wdev
	and #f5
	beq jover10
	dec buttonstate+2*10 ;set COLOR
jover10		; 
;
;This always initilizes the page range to ALL
;
	dec buttonstate+2*3	always all
;
;This sets FROM=1, COPIES=1 and TO=999
;
	lda #1
	sta buttonstate+2*7	;init. FROM to 1
	sta buttonstate+2*9	;init. COPIES to 1
	lda #999
	sta buttonstate+2*8	;init TO to 999

;------------------------------------------------------------------------------
;Now call 'JobDialog' to do the actual dialog work
;------------------------------------------------------------------------------
	jsr jobdialog
	sta JobDialog_result,s ;save results
	bne okJob	;branch if OK
	brl outJoB	;branch if CANCEL
okJob		; 

* we need to update	the quality values:
*
* prstl.wdev f0
* prXinfo.idevbytes	will be calculated by CiXmetrics
*

;
;This sets up the COLOR/BW bit appropriately
;
	lda #f5
	trb hprint+prstl+wdev ;clear the COLOR/BW bit
	bit buttonstate+2*10
	bpl no4
	tsb hprint+prstl+wdev ;set to COLOR
no4		; 

;
;This sets up the BEST bit appropriately
;
	lda #f0
	trb hprint+prstl+wdev ;clear the BEST bit
	bit buttonstate+2*0
	bpl no0
	tsb hprint+prstl+wdev ;set the BEST bit
no0		; 

;
;This sets up the DRAFT bit appropriately
;
	lda #$80
	tsb hprint+prJob+bjDocLoop ;clears the DRAFT bit
	bit buttonstate+2*2
	bpl notdraft
	trb hprint+prJob+bjDocLoop ;sets the DRAFT bit
notdraft		; 

* then the paper range
* PrJob.ifstpage, iLst page, iCopies
* if all then first	:= 1 ; last := 9999	; icopies := 1
* else user value
;
;This copies FROM, TO, and COPIES
;
	lda Buttonstate+2*7
	sta hprint+prjob+ifstpage
	lda Buttonstate+2*8
	sta hprint+prjob+ilstpage
	lda Buttonstate+2*9
	sta hprint+prjob+iCopies

* then the paperfeeding
* prStl.feed := feedfanfold (A) or feedcut         
;
;This sets paper feed
;
	lda #feedfanfold
	sta hprint+prStl+Feed ;assume AUTOMATIC
	lda buttonstate+2*5	;get buttonstate from dialog
	bmi no5_2	;branch if assumption was correct
	lda #feedcut	;else its HAND FEED
	sta hprint+prStl+Feed
no5_2		; 

	jsr CiXmetrics	;go calculate the metrics

;
;Now copy the internal print record to the users data area
;
	ldy #TPrintsize-2	pair
looph2	lda hprint,y
	sta [PZ_hprint],y
	dey
	dey
	bpl looph2

;
;We get here when we are done or the user canceled the dialog
;
OutJob	lda #0
ErrorExit2	plb
	pld
	Jmp exit4

	
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;
;  NAME:       CiXmetrics
;
;  PURPOSE:    Calculates metrics of page
;
;  PASSED:     (None)
;
;  RETURNED:   (None)
;
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
	EXPORT CiXmetrics
CiXmetrics		;       
;
;NOTE: print resolution is calculated in 120 dots per inch.
;
* first find out the resolution

	stz resolution	;init. to zero (assume 320)
	lda SCBValue
	and #$80
	beq r320
	inc resolution	;we get here if its	640
r320		; 

* Landscape (f1)	 { 0=landscape ; 1=Portrait }
* PaperType (0,1,2,3) { 0= Us Letter; 1= US Legal; 2= A4 Letter; 3= int'l fold}
* CarriageWidth (0,1,2,3) same
* Resolution (0,1)	  { 0=320 ; 1=640 }
* Gap (0,1)
* if 50% (f3) then all resolution are twice as big

* newVmargin: Landscape(Gap,f6:(PaperHsize,PaperType - CarriageWidth,paperType))
*             mul Landscape(Vres:Hres) div 240

* newHmargin: Landscape((PaperHsize,PaperType - CarriageWidth,paperType):Gap,f6)
*             mul Landscape(Hres:Vres),resolution div 240

* NewPaperVsize: Landscape(PaperVsize:CarriageWidth),PaperType 
*                Mul Landscape(Vres:Hres) div 120 - 2*newVmargin
*
* NewPaperHsize: Landscape(CarriageWidth:PaperVsize),PaperType
*                Mul Landscape(Hres:Vres),resolution div 120

* rPage := 0,0,NewPaperVsize,NewPaperHsize

* rPaper := -newVmargin,-newHmargin,NewPaperVsize+newVmargin,
*            NewPaperHsize+newHmargin

* go for it

;------------------------------------------------------------------------------
;
;Calculates TOP, LEFT, BOTTOM, RIGHT for papers rectangle 'rPaper'
;
;------------------------------------------------------------------------------
* newVmargin: Landscape(Gap,f6:(PaperHsize,PaperType - CarriageWidth,paperType))
*             mul Landscape(Vres:Hres) div 240

	lda resolution
	asl a	;times two
	tax	;use as index
	lda PortHres,x	;get horz. resolution
	sta hprint+prInfo+iHRes ;init horz. pixel resolution
	lda PortVres	; same value for 320 and 640 portrait
	sta hprint+prInfo+iVres ;init. vertical	pixel resolution

	stz TableIndex	;init index
;
;First see which mode (portrait or landscape)
;
	lda #f1	;see if landscape
	and hprint+prstl+wDev
	bne Portt	;branch if portrait

;We get here if landscape (set index to	landscape table entries)
	lda #IntLandVals-IntPortVals ;set index	to landscape values
	sta TableIndex

;-----------------------------------------------------------
;
; get the resolutions for portrait mode
;
	lda LandHRes,x	; X contains the resolution
	sta hPrint+prInfo+iHRes
	lda LandVRes
	sta hPrint+prInfo+iVRes

;Now take paper type and multiply by 10	because each entry is 10 bytes long
Portt		; 
	lda hprint+prStl+PaperType ;get paper size type
	asl a	;first mult. by 8 (10 byte table)
	asl a
	asl a
	clc
	adc hprint+prStl+PaperType ;times 9
	adc hprint+prStl+PaperType ;times 10
	adc TableIndex	;add in initial table index
	tax	;we now have the correct index

;
;Now move the initial paper values from	the table
;
	ldy #0	;init loop counter
MvIntVals		; 

	lda IntPortVals,X	;get initial values	from table
	sta Hprint+rPaper+Top,Y ;set 'rPaper' values
	inx
	inx
	iny
	iny
	cpy #8
	bne MvIntVals

	lda IntPortVals,X	;get initial assocaiated GAP value
	sta TableIndex	;save the GAP value	at TableIndex
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;Now see if 320 or 640 mode (because table were designed for 640 mode)
	lda resolution
	bne Rez640	;branch if 640 (no modification needed)
;With 320 mode, we need to modify
	sec
	ror Hprint+rPaper+Left ;divide by two (carry set for negative)
	lsr Hprint+rPaper+Right
Rez640		; 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;Now see if GAP
	lda #f6
	and hprint+prstl+wDev
	beq noGap1
;
;We Get here if GAP
;
	lda TableIndex	;get the GAP value
	bmi LandGAP	;if negative, its landscape GAP

;We get here if portrait GAP
	eor #$ffff	;first we must make	negative
	ina

	sta Hprint+rPaper+Top ;set 'rPaper' TOP	to GAP
	clc
	adc Hprint+rPaper+Bottom
	sta Hprint+rPaper+Bottom ;set 'rPaper' BOTTOM with GAP
	bra noGap1

;We get here if landscape GAP
LandGAP		; 
	sta Hprint+rPaper+Left ;set 'rPaper' LEFT to GAP
	clc
	adc Hprint+rPaper+Right
	sta Hprint+rPaper+Right ;Adjusted  'rPaper' Right with GAP

noGap1		; 

;
;Now see if 50% reduction (twice the resolution) was selected
;
	lda #f3
	and hprint+prStl+wDev
	bne notHalf1	;branch if no 50% reduction selected

;We get here if 50%	reduction (multiply	TOP, LEFT, BOTTOM, RIGHT by two)
	ldx #0
HalfResLoop		; 
	asl Hprint+rPaper+Top,X ;multiply by two
	inx	;go to next value
	inx
	cpx #8
	bne HalfResLoop

	asl hprint+prInfo+iHRes ;multiply horz.	pixel resolution by	2
	asl hprint+prInfo+iVRes ;multiply vertical pixel resolution	by 2

notHalf1		; 

;
;Now see if condensed vertical resolution was selected
;
	lda #f2
	and hprint+prstl+wDev
	bne NormVSize	;branch if normal vertical size

;We get here when condensed vertical size was selected
	asl Hprint+rPaper+Bottom
	asl Hprint+rPaper+Top

	asl hprint+prInfo+iVRes ;update rPage vRes

NormVSize		; 

;------------------------------------------------------------------------------
;
;Calculate the page	rectangle 'rPage'
;
;------------------------------------------------------------------------------
* update hprint+prInfo+rPage
	stz hprint+prInfo+rPage+Top ;init TOP to zero
	stz hprint+prInfo+rPage+Left ;init LEFT	to zero
	lda hprint+rPaper+Bottom
	clc
	adc hprint+rPaper+Top
	sta hprint+prInfo+rPage+Bottom ;set BOTTOM
	lda hprint+rPaper+Right
	clc
	adc hprint+rPaper+Left
	sta hprint+prInfo+rPage+Right ;set RIGHT

* now calculate iBandV ,iBandH ,iRowBytes and iDevBytes

* iBandV= landscape(32,hprint+prInfo+rPage+Bottom'*2 if best or 50%')
* iBandH= landscape(hprint+prInfo+rPage+Right'*2 if best or 50%',32)
* iRowBytes= iBandH	div (2:4),resolution
* iDevBytes = iBandV * iRowBytes


;
;This calculates the print bands vertical resolution
;
* iBandV= landscape(32,hprint+prInfo+rPage+Bottom'*2 if best or 50%')
	lda #f1
	and hprint+prstl+wDev
	bne Port5	;branch if portrait

	lda hprint+prInfo+rPage+Bottom ;get bottom
	pha

	lda #f3	;see if 50%
	and hprint+prstl+wDev
	bne testbest	;branch if not 50%
	pla
	asl a
	bra Land5

testbest		; 
	lda #f0	;see if BEST
	and hprint+prstl+wDev
	beq notbest	;branch if not BEST
	pla
	asl a
	bra Land5

notbest		; 
	pla
	bra Land5

Port5	lda #32
Land5		; 
	sta Hprint+PrXinfo+iBandV ;set the print bands vert. res.

;
;This calculates the print bands horizontal resolution
;
* iBandH= landscape(hprint+prInfo+rPage+Right'*2 if best or 50%',32)
	lda #f1
	and hprint+prstl+wDev
	beq Land6	;branch if landscape

	lda hprint+prInfo+rPage+Right ;get right
	pha

	lda #f3	;see if 50%
	and hprint+prstl+wDev
	bne testbest2	;branch if not best
	pla
;;;;;;;;;;;;;;;;;;;;;;;;;;;
	asl a
;;;;;;;;;;;;;;;;;;;;;;;;;;;
	bra Port6

testbest2		; 
	lda #f0	;see if BEST
	and hprint+prstl+wDev
	beq notbest2	;branch if not BEST
	pla
	asl a
	bra Port6

notbest2		; 
	pla
	bra Port6

Land6	lda #32
Port6		; 
	sta Hprint+PrXinfo+iBandH ;set the print bands Horz. res.

;
;This calculates the print bands bytes/row
;
* iRowBytes= iBandH	div (2:4),resolution
	lda Hprint+PrXinfo+iBandH
	lsr a
	ldx resolution
	beq done
	lsr a
done	sta Hprint+PrXinfo+iRowBytes ;set the bytes/row

;
;This calculates the total number of bytes (bytes per row times number of bands)
;
* iDevBytes = iBandV * iRowBytes
	PushLong #0
	lda Hprint+PrXinfo+iBandV
	pha
	lda Hprint+PrXinfo+iRowBytes
	pha
	_Multiply
	pla
	sta Hprint+PrXinfo+iDevBytes ;set the total no. of bytes
	pla

;
;Now copy the new calculated PrInfo subrecord to PrInfoPT subrecord
;
* Update the PrInfoPT record also
	ldy #12
UpdatePT	lda hprint+PrInfo,y
	sta hprint+PrInfoPT,y
	dey
	dey
	bpl UpdatePT

;
;Now determine physical papers resolution
;
	lda hprint+prStl+PaperType
	asl a
	tax
	lda PaperVsize,x
	sta hprint+PrStl+iPageV ;set pages vertical res.
	lda PaperHsize,x
	sta hPrint+PrStl+iPageH ;set pages horz. resolution
	lda CarriageWidth,x
	sta hPrint+PrStl+CRwidth ;set carriage width resolution

	rts

TableIndex	DS.B 2	;temporary

;NOTE: The Initial and Normal horz. resolution is 80 dots per inch.
;      The Initial and Normal vertical resolution is 36 dots per inch.
;      The carriage	is only 8 inches wide (therefore there are 1/4" margins.)
;
;NOTE: All values are relative to the carriages 0,0 value.

;------------------------------------------------------------------------------
; Initial Portrait rPage values
;------------------------------------------------------------------------------
IntPortVals		; 
;
;US normal 8.5' x 11'
;
	DC.W 0	;Top
	DC.W -20	;Left (-1/4" offset	from carriage zero)
	DC.W 396	;Bottom (11" times 36 dpi)
	DC.W 660	;Right (8' x 80 + 1/4' * 80)
	DC.W 9	;GAP top and bottom	(1/4" x 36)
;
;US Legal 8.5' x 14'
;
	DC.W 0	;Top
	DC.W -20	;Left (-1/4" offset	from carriage zero)
	DC.W 504	;Bottom (14" times 36 dpi)
	DC.W 660	;Right (8' x 80 + 1/4' * 80)
	DC.W 9	;GAP top and bottom	(1/4" x 36)
;
;A4 Letter 8.25' (210mm)  x 11 2/3' (297mm)   NOTE: 25.4mm/inch
;
	DC.W 0	;Top
	DC.W -10	;Left (-1/8" offset	from carriage zero)
	DC.W 420	;Bottom (11.6667" times 36 dpi)
	DC.W 650	;Right (8.25 x 80)
	DC.W 9	;GAP top and bottom	(1/4" x 36)
;
;International FanFold 8.25 (210mm) x 12"
;
	DC.W 0	;Top
	DC.W -10	;Left (-1/8" offset	from carriage zero)
	DC.W 432	;Bottom (12" times 36)
	DC.W 650	;Right (8.25 x 80)
	DC.W 9	;GAP top and bottom	(1/4" x 36dpi)

;------------------------------------------------------------------------------
; Initial Landscape	rPage values
;------------------------------------------------------------------------------

;NOTE: Normal and Initial vertical (in actuality horz. carriage) is 40 dpi.
;      Normal and Initial Horz. (in actuality vertical) is 72 dpi.
;      GAP must be negative for landscape (simplified programming).

IntLandVals		; 
;
;US normal 8.5' x 11'
;
	DC.W -10	;Top (1/4" x 80 offset from carriage 0)
	DC.W 0	;Left
	DC.W 330	;Bottom (8" x 40 + 1/4 * 40)
	DC.W 792	;Right (11" x 72)
	DC.W -18	;GAP (1/4" x 72) (neg. flags landscape)
;
;US LEGAL 8.5' x 14'
;
	DC.W -10	;Top (1/4" x 80 offset from carriage 0)
	DC.W 0	;Left
	DC.W 330	;Bottom (8" x 40 + 1/4 * 40)
	DC.W 1008	;Right (14" x 72)
	DC.W -18	;GAP (1/4" x 72) (neg. flags landscape)
;
;A4 Letter 8.25 x 11 2/3"
;
	DC.W -5	;Top (1/8" x 80 offset from carriage 0)
	DC.W 0	;Left
	DC.W 325	;Bottom (8 * 40 + 1/8 *40)
	DC.W 840	;Right (11.* 72 + 2/3 * 72)
	DC.W -18	;GAP (1/4" x 72) (neg. flags landscape)
;
;International FanFold 8.25 (210mm) x 12"
;
	DC.W -5	;Top (1/8" x 80 offset from carriage 0)
	DC.W 0	;Left
	DC.W 325	;Bottom (8 * 40 +1/8 * 40)
	DC.W 864	;Right (12 * 72)
	DC.W -18	;GAP (1/4" x 72) (neg. flags landscape)

	ENDP

;                copy    DocPage.Calls	  ;_PrOpenDoc, _PrCloseDoc, _PrOpenPage
;		;_PrClosePage

*****************************
*	        *
* DocPage.calls	        *
*	        *
* Current Rev: Nov.	1987    *
*	        *
*****************************

;------------------------------------------------------------------------------
;
; NAME:        PrDrvrVer
;
; PURPOSE:     Returns version # of currently installed driver
;
; PASSED:      WORD		Space for result
;
; RETURNED:    WORD		Driver Version
;
;------------------------------------------------------------------------------

	EXPORT PrDrvrVer
PrDrvrVer	PROC

	DefineStack
DVerOrigD	Word 0
DVerOrigB	Byte 0
DVer_Rtl1	Block 3
DVer_Rtl2	Block 3
Version	Word 0

	phd
	tcd
	phb
	phk
	plb

	lda #VersionNb
	sta Version,s

	lda #0
	plb
	pld
	jmp exit0

;-----------------------------------------------------------
;
; Returns the printer's type and its characteristics
;  type: 0 = undefined
;        1 = ImageWriter and ImageWriter II
;        2 = ImageWriter LQ
;        3 = LaserWriter family
;        4 = Epson
;
;  characteristics:
;    bits 15 - 2 : reserved
;          1 - 0 : 0 = can't determine
;                  1 = monochrome
;                  2 = capable of color
;

	EXPORT PrGetPrinterSpecs
PrGetPrinterSpecs		;       

	DefineStack
GetPSp_OrigD	Word 0
GetPSp_OrigB	Byte 0
GetPSp_Rtl1	Block 3
GetPSp_Rtl2	Block 3
PtrType	Word 0
PtrChar	Word 0

	phd
	tcd
	phb
	phk
	plb

	lda #iDevEpson 	; this is an Epson driver
	sta PtrType,s	; return it as result

	lda #MonochromeOnly	; printer is monochrome only
	sta PtrChar,s
	
	lda #0
	plb
	pld
	brl exit0

;-----------------------------------------------------------
;
; Returns the page orientation to the caller: 
; 0 = portrait, 1 = landscape
;

	EXPORT PrGetPgOrientation
PrGetPgOrientation		;       

	DefineStack
GetOr_OrigD	Word 0
GetOr_OrigB	Byte 0
GetOr_Rtl1	Block 3
GetOr_Rtl2	Block 3
PrintRecHandle	Long 0
Orientation	Word 0

	phd
	tcd
	phb
	phk
	plb

	lda printRecHandle,s
	sta Temp1
	lda PrintRecHandle+2,s
	sta Temp1+2
	
	lda [Temp1]
	tax
	ldy #2
	lda [Temp1],y
	sta Temp1+2
	stx Temp1
	
	ldy #prstl+wdev 	; get the offset to the correct field from
	lda [Temp1],y	; the print record
	and #f1	; look at bit 1
	lsr a	; to achieve the value as defined
	eor #1	; flip the sense of the bit since impact printers
		; define 0 as landscape and 1 as portrait
	sta Orientation,s	; return it as result

	lda #0
	plb
	pld
	brl exit4
	
	ENDP

;******************************************************************************
;******************************************************************************
;
;  NAME:       PrOpenDoc
;
;  PURPOSE:    High	level printer routine '_PrOpenDoc' which opens the document
;
;  PASSED:     (Space for Result)	POINTER
;              PrintRecordHandle	HANDLE, to print record
;              PrinterPortPtr	POINTER, to GrafPort, (zero indicates
;		to allocate new GrafPort).
;
;  RETURNED:   PrintrPortPtrRet	POINTER, pointer to	Grafport if
;		PrinterPortPtr was zero.
; 
;******************************************************************************
;******************************************************************************
	EXPORT PrOpenDoc
PrOpenDoc	PROC
*              using MainDATA
*              using PrtRecordEqu
*              using PortOffset 

	DefineStack
OrigD	word 0
OrigB	byte 0
rtl1	block 3
rtl2	block 3
UsersPortPtr	long 0
UsersPrintRecH	long 0
ResultPtr	long 0


	pha	; save value of d
;
;First see if the port is ON
;
	pha
	_DevIsItSafe	;see if port is working
	pla
	bne Yes	;branch if safe
;
;We get here when the port is not on and we can't proceed
;
	lda #PortNotOn	;get error no.
	sta >iPrErr	;save it
	plx
	jmp Exit8
;
;We arrive here when the port is ON
;
Yes		; 
	pla
	
;------------------------------------------------------------
;
; save the registers and set direct page and data bank
; 
	phd
	tcd
	phb
	phk
	plb
	sta ZeroPage
	
	pha
	_GetMasterSCB
	pla
	sta SCBValue
	
;------------------------------------------------------------
;
; Get the current cursor record's address and turn on the watch cursor.
;

	PushLong #0	; space for the address
	_GetCursorAdr
	pla
	sta CursorAd
	pla
	sta CursorAd+2

	_WaitCursor


;------------------------------------------------------------
;
; Verify the print record!
;
	lda UsersPrintRecH+2,s ; copy the print	record
	pha	; using HandToPtr
	lda UsersPrintRecH+2,s
	pha
	PushLong #hprint
	PushLong #Tprintsize
	_HandToPtr

;----------------------------------------------------------------------
;
; Test if correct printer type (1 = ImageWriter, 2 = IW LQ, 3 = LaserWriter,
; 4 = Epson) and correct version number.
;

	lda hPrint+prInfo+idev
	cmp #iDevEpson	; this is LaserWriter driver
	bne WrongType
	lda hPrint+iPrVersion ; check if correct version
	xba	; swap since hi-lo bytes
	cmp #VersionNb	; are swapped in lda
	beq goodPtype
WrongType
	lda UsersPrintRecH+2,s
	pha
	lda UsersPrintRecH+2,s
	pha
	_PrDefault
GoodPtype
;------------------------------------------------------------
;
; Clear the error code.  Move the user id.  Copy the users
; print record to our print record.
; 

	stz iPrErr	; zero error
	stz stackLoc	; stack loc used by idleproc
	
	lda UserId	; move user id
	sta MainUserID

;----------------------------------------------------------
;
; We look at the idle proc in the print	record.
; If it is NIL then	we put a pointer to	our IDLE proc
; in its place.
;

	lda hPrint+PrJob+pIdleProc
	ora hPrint+PrJob+pIdleProc+2
	bne useridle
	lda #<PrAbortCheck
	sta hPrint+PrJob+pIdleProc
	lda #^PrAbortCheck
	sta hPrint+PrJob+pIdleProc+2
useridle		;

;------------------------------------------------------------
;
; Lets look at the print method and set	the variable
; 'METHOD'.  Method	will be zero for draft printing and
; $8000 for spool printing. 
; 
	lda hprint+prJob+bjDocLoop
	and #$80
	xba
	sta method	;set the method


;------------------------------------------------------------
;
; Put up the dialog	that says preparing	data (or draft
; printing.
; 
	jsr OpenInfoPrepare

;------------------------------------------------------------
;
; Now we decide whether to use our own port or the user's
; port. 


	lda #false	; start by assuming	it
	sta ourport	; is the user's port.

	lda UsersPortPtr,s	; if port ptr is non zero
	ora UsersPortPtr+2,s ; we use theirs
	bne Portexist

;------------------------------------------------------------
;
; Damn, the user wants us to do all his	work for him/her.
; We get a handle for a port.
; 
	lda #PortSize	; size of handle
	ldx #%1000000000011000 ; attributes
	jsr OurGetHandle	;get a handle of port size

	sta temp1	;save handle at tem1
	stx temp1+2

	lda [Temp1]
	sta UsersPortPtr,s	;dereference handle	at UsersPortPtr
	ldy #2
	lda [Temp1],y
	sta UsersPortPtr+2,s

	lda #true	;set OURPORT true (remember)
	sta ourport

PortExist		; 
;------------------------------------------------------------
;
; Put copies of the	port pointer everywhere.
; 
	lda UsersPortPtr,s	;get port pointer
	sta ResultPtr,s	;save to be passed back
	sta hOurPort
	sta PZ_pPrPort
	lda UsersPortPtr+2,s
	sta ResultPtr+2,s
	sta hOurPort+2
	sta PZ_pPrPort+2

;------------------------------------------------------------
;
; Open the grafport.
; 
	pei PZ_pPrPort+2
	pei PZ_pPrPort
	_OpenPort	;open the grafport

;------------------------------------------------------------
;
; Initialize these page number varibles.
;

	stz iPageNum	; init page num
	stz iDocPage	; init. document pages
	stz PicListCount	; page count of hPicList

;------------------------------------------------------------
;
; Look at the printing method.  If it is deferred, get a handle
; to enough memory to contain list of pictures for the number
; of pages asked by	the application to be printed.
;

	lda method
	bpl draftOpenDoc	;branch if immediate mode (draft)

;------------------------------------------------------------------------------
;
; DEFERRED Mode Code
;
;------------------------------------------------------------------------------
;-------------------------------------------------------------
;
; We'll begin with a piclist for 20 pages. In PrOpenPage, we'll
; check if this is enough, if not, we get more in 20 page increments
;  
	lda #20*4	; start with 20 pages worth
	ldx #%0000000000000000 ; nothing special
	jsr OurGetHandle	;get a handle

	sta hPicList	;save it at hPicList
	stx hPicList+2

;
;We get here with no errors and its time to exit PrOpenDoc
;
NoErrExit	lda #0
exitOpenDoc	plb
	pld
	jmp Exit8

;------------------------------------------------------------------------------
;
; IMMEDIATE Mode Code
;
;------------------------------------------------------------------------------
draftOpenDoc		; 
	jsr startLLD	; start up the LLD

	bra NoErrExit

	ENDP
	
;******************************************************************************
;******************************************************************************
;
;  NAME:       PrCloseDoc
;
;  PURPOSE:    High	level printer routine '_PrCloseDoc' which closes the doc.
;
;  PASSED:     PrinterGrafPortPtr	POINTER, to printer	graf port.
;
;  RETURNED:   (NONE)
;
;******************************************************************************
;******************************************************************************
	EXPORT PrCloseDoc
PrCloseDoc	PROC
*              using MainDATA
*              using PrtRecordEqu

	DEFINESTACK
OrigD	word 0
OrigB	byte 0
rtl1	block 3
rtl2	block 3
PortPtr	long 0

	pha
	lda >iPrErr	;see if any errors
	cmp #PortNotOn	;see if port-not-on	error
	bne Continue	;branch if not
	plx
	jmp Exit4
;
;Save registers and	setup environment
;
Continue		; 
	pla
	phd
	tcd
	phb
	phk
	plb


;------------------------------------------------------------
;
; Close the port.
; 

	lda PortPtr+2,s
	pha
	lda PortPtr+2,s
	pha
	_ClosePort	;close the graf port

;------------------------------------------------------------
;
; If the port is our's (created in PrOpenDoc), we must get rid of the memory we
; allocated for it.
; 
	lda ourPort	;see if ours
	cmp #true
	bne userport	;branch if not ours

	pha	; first find the handle to
	pha	; memory that port is in.
	lda PortPtr+4+2,s
	pha
	lda PortPtr+4+2,s
	pha
	_FindHandle	; find the handle to pointer
	_DisposeHandle	; then dispose it.

userport		; 
	lda method
	bmi NoErrorExit	;branch if immediate mode

;------------------------------------------------------------------------------
;
; IMMEDIATE Mode
;
;------------------------------------------------------------------------------
;------------------------------------------------------------
;
; If we are doing immediate (draf)t printing, we need to shut down.
; 
CloseDocDraft		; 
	pushword UserID
	jsl LLDShutDown

	PushLong CursorAd
	_SetCursor

;------------------------------------------------------------------------------
;
; DEFERRED Mode
;
;------------------------------------------------------------------------------

;------------------------------------------------------------
;
; We're done.
; 
NoErrorExit		; 
	jsr CloseInfo	; get rid of info dialog box
	
	lda #0
	plb
	pld
	jmp Exit4

	ENDP
	
;******************************************************************************
;******************************************************************************
;
;  NAME:       PrOpenPage
;
;  PURPOSE:    High	level printer routine '_PrOpenDoc' which opens the document
;
;  PASSED:     GrafPortPtr	POINTER, to grafport
;              PageFramePtr	POINTER, to scaling	parameter (zero if
;		none.)
;
;  RETURNED:   (NONE)
;
;******************************************************************************
;******************************************************************************
	EXPORT PrOpenPage
PrOpenPage	PROC
*              using MainDATA
*              using PrtRecordEqu
*              using PortOffset

	DefineStack
OrigD	word 0
OrigB	byte 0
rtl1	block 3
rtl2	block 3
PageFramePtr	long 0
PortPtr	long 0

	pha
	lda >iPrErr	;see if any errors
	beq SallRight	;branch if none
	plx
	jmp Exit8

SallRight		; 
	pla	;save registers and	setup environment
	phd
	tcd
	phb
	phk
	plb

;------------------------------------------------------------
;
; First we set the port to the port that is passed.
;

	lda PortPtr+2,s
	pha
	lda PortPtr+2,s
	pha
	_Initport

;------------------------------------------------------------
;
; Zero the bounds rect.  This prevents any drawing: even
; if user makes the	pen visible.
; 
	lda #0
	ldy #o_BoundsRect
ZeroLoop	sta [PZ_pPrPort],y
	iny
	iny
	cpy #o_BoundsRect+8
	bcc ZeroLoop

;------------------------------------------------------------
;
; Now we bump the page counter and look	at the method.  If it
; is draft printing	then do something, else we open a picture.
;

	inc iDocPage	;increment the document page

	lda method	;get the printing method
	bmi spoolPage	;branch if deferred
	brl OpenPageDraft	;branch if immediate

;------------------------------------------------------------------------------
;
; DEFERRED Mode
;
;------------------------------------------------------------------------------
spoolPage	stz hNewPic	; start by zeroing handle to
	stz hNewPic+2	; picture.

	lda iDocPage	; look at page number.
	cmp hprint+prjob+ifstpage ; are we in range?
	blt exitnow	; no, get out now
	dea
	cmp hprint+prjob+ilstpage ; yes-start a	picture
	blt continue
;
;We get here when we are out of page range
;
exitnow	brl NoErrorExit

continue		; 

;-----------------------------------------------------------
;
; Lets look at the page frame pointer that was passed.  If it is NIL,
; we replace it with a pointer to rPage.
;
	lda PageFramePtr,s	;get passed pointer
	ora PageFramePtr+2,s
	bne UserHasFramePtr	;branch if NIl

	lda #hprint+prInfoPT+rpage
	sta PageFramePtr,s
	lda #^hprint+prInfoPT+rpage
	sta PageFramePtr+2,s

UserHasFramePtr		; 

	pha
	pha
	lda PageFramePtr+4+2,s ;get PageFramePointer from stack
	pha
	lda PageFramePtr+4+2,s
	pha
	_openpicture	;open a picture


;------------------------------------------------------------
;
; We leave result of open picture on stack until we deref
; the pic list below.
; 
;
; Bump the picture list counter to reflect current page
;

	inc PicListCount


;------------------------------------------------------------
;
; PicListCount is used to test if hPicList is large to enough
; to hold the number of pages in the document. It counts from
; 1 to 20, since we	increase memory 20 pages at a time. This
; variable is initialised in PrOpenDoc.
; 

	lda PicListCount
	cmp #21	; run out of allocated memory?
	blt EnoughMem	; not yet

	pha	; space for size
	pha
	PushLong hPicList
	_GetHandleSize	; get current block	size

	pla	; current size
	clc
	adc #20*4	; increase it by another 20 pages
	pha	; new size
	PushLong hPicList
	_SetHandleSize	; set new block size

EnoughMem	lda [hPicList]	; deref the pic list
	sta pPicList
	ldy #2
	lda [hPicList],y
	sta pPicList+2

	lda iPagenum	; use iPageNum as index into
	asl a	; pic list
	asl a
	tay
	pla	; now put picture handle into
	sta [pPicList],y	; pic list
	sta hNewPic	; and in hNewPic
	iny
	iny
	pla	; (high word too)
	sta [pPicList],y
	sta hNewPic+2


;----------------------------------------------------------
;
; Set the cliprgn and visrgn to the sizing Framing rect
;
	lda PageFramePtr+2,s
	pha
	lda PageFramePtr+2,s
	pha
	_cliprect

	pushlong #0	; and the vis rect!
	_getcliphandle
	_setvisrgn


;------------------------------------------------------------
;
; Bump the page number
; 
	inc ipagenum

;------------------------------------------------------------
;
; We are done.
;

NoErrorExit		; 
	lda #0
	plb
	pld
	jmp Exit8

;------------------------------------------------------------------------------
;
; IMMEDIATE Mode
;
;------------------------------------------------------------------------------
OpenPageDraft		; 
;-----------------------------------------------------------
;
; If this is a page	that will be printed, then we install
; printing procs.
;
	lda iDocPage	; look at page number.
	cmp hprint+prjob+ifstpage ; are we in range?
	blt NoErrorExit	; no, get out now
	dea
	cmp hprint+prjob+ilstpage ; yes-start a	picture
	bge NoErrorExit

	PushLong #ProcsTable ; put std procs in	table
	_SetStdProcs

	lda #<Drafttext-1	; Put our text proc	in table
	sta ProcsTable
	lda #^Drafttext-1
	sta ProcsTable+2
	lda #<Pixel-1	; Put our pixel proc in table
	sta ProcsTable+$20
	lda #^Pixel-1
	sta ProcsTable+$22

	PushLong #ProcsTable ; put pointer to our table in
	_SetGrafProcs	; the graf port

	bra NoErrorExit

;------------------------------------------------------------
;
; Here's where we keep the proc table.
;
ProcsTable	DS.B 16*4


	ENDP
	
;******************************************************************************
;******************************************************************************
;
;  NAME:       PrClosePage
;
;  PURPOSE:    High	level printer routine '_PrClosePage' which closes the page
;
;  PASSED:     PrinterGrafPortPtr	POINTER, to GrafPort to be used
;
;  RETURNED:   (NONE)
;
;******************************************************************************
;******************************************************************************
	EXPORT PrClosePage
PrClosePage	PROC
*              using MainDATA
*              using PrtRecordEqu

	DefineStack
OrigD	word 0
OrigB	byte 0
rtl1	block 3
rtl2	block 3
PortPtr	long 0

	pha
	lda >iPrErr	;see if any errors
	beq Continue	;branch if none

	cmp #PortNotOn	;see if port-not-on	error
	bne Continue	;branch if none
	plx
	jmp Exit4

Continue		; ;save registers and setup environment
	pla
	phd
	tcd
	phb
	phk
	plb


;------------------------------------------------------------
;
; Look at method and go to correct routine.
;

	lda method	;look at method
	bpl ClosePageDraft	;branch if immediate mode

;------------------------------------------------------------------------------
;
; DEFERRED Mode
;
;------------------------------------------------------------------------------
	lda hNewPic	; if there is no picture then
	ora hNewPic+2	; we are done.
	beq NoErrorExit	;branch if no picture

	lda PortPtr+2,s
	pha
	lda PortPtr+2,s
	pha
	_SetPort	;set the graf port

	_ClosePicture	;close the picture
	bcs ErrorExit

NoErrorExit	lda #0
ErrorExit	sta iPrErr
	plb
	pld
	jmp Exit4

;------------------------------------------------------------------------------
;
; IMMEDIATE Mode
;
;------------------------------------------------------------------------------

ClosePageDraft		; 
;------------------------------------------------------------
;
; For draft printing we make LLD new page call. (unless
; we've reached the end of the pages to print.
; 

	lda iDocPage
	cmp hprint+prjob+ifstpage
	blt exitclosenow
	dea
	cmp hprint+prjob+ilstpage
	bge exitclosenow
	jsl newpage
exitclosenow	bra NoErrorExit

	ENDP
	
;------------------------------------------------------------------------------
*
* NAME:        OurGetHandle
*
* PURPOSE:     Gets	a handle to memory.
*
* PASSED:      (A-reg.)	size passed in a-reg.
*              (X-reg.)	attributes passed in x-register.
*
* RETURNED:    A Handle is returned in A & X registers unless there is a
*              memory manager error (carry set) in which case the error
;              number returns in the A-reg.
* 
;------------------------------------------------------------------------------
	EXPORT OurGetHandle
OurGetHandle	PROC

	pha
	pha
	pea 0
	pha
	PushWord UserID	your ID
	phx
	pha
	pha
	_NewHandle	result on the stack
	bcs AnError

	pla
	plx
	rts

;We get here if an error occured trying	to get a handle
AnError	plx
	plx
	rts

	ENDP
;                copy    JobDialog
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;
;  NAME:       JobDialog
;
;  PURPOSE:    Does	most of the work for '_PrJobDialog'
;
;  PASSED:     (None)
;
;  RETURNED:   (None)
;
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------

* buttonstate for JobDialog
* +0   best
* +2*1 faster
* +2*2 Draft
* +2*3 all pages
* +2*4 from pages
* +2*5 paper auto
* +2*6 paper hand
* +2*7 value for From
* +2*8 Value for To
* +2*9 value for Copies
* +2*10 color/bw

	EXPORT JobDialog
JobDialog	PROC
*              using dialogdata
*              using MainData
;
;Get the pointer to	the current grafport
;
	PushLong #0
	_getport

;
;Calculate the dialog boxes width
;
	lda StyleRect+6
	sec
	sbc StyleRect+2
	sta Stylewidth
;
;Get the master SCB
;
	pha
	_GetMasterSCB	;get the SCB
	pla
	sta SCBValue	;save it
;
;This calculates the dialog boxes LEFT and RIGHT (depending	on 320 or 640 mode)

	and #$80	;look at mode ($0=320, $80=640)
	beq loc320
	lda #640	;get 640
	bne loc640
loc320		; 
	lda #320	;get 320
loc640		; 
	sec
	sbc StyleWidth
	lsr a
	sta StyleRect+2	;adjust job dialogs	LEFT
	sta JobDTemplate+2	;DAN H. adjust template
	clc
	adc StyleWidth
	sta StyleRect+6	;adjust job dialogs	RIGHT
	sta JobDTemplate+6	;DAN H. adjust template

;
;This inits. the button item states
;
	ldy #2*6	;init. buttonstate index
	ldx #6*24	;init. JDRB template index
IBitemState		; 
	stz JDRB0,x	;init. state to off
	lda buttonstate,y	;get button state
	bpl IsOff1
	lda #1
	sta JDRB0,x	;set state to on
IsOff1		; 
	txa	;get y-index
	sec
	sbc #24	;move to next item template
	tax
	dey
	dey
	bpl IBitemState

;Do COLOR check box	differently
	stz JDRB10	;init. to off
	lda buttonstate+2*10 ;get buttonstate for color
	bpl over10	;branch if off
	lda #$ffff	;set to selected
	sta JDRB10
over10		; 

;
;This starts the modal dialog
;
	PushLong #0
	Pushptr JobDTemplate ;The dialogs template
	_GetNewModalDialog	;creates a new modal dialog

	pla
	sta pScreenport	;save the dialogs handle
	pla
	sta pScreenport+2
;
;Set the dialog as the current port and	set the origin to zero
;
	pushlong pscreenport
	_Setport
	pushlong #0
	_setOrigin
;
; draw the upper line
;
	pushlong l1
	_moveto
	pushlong l2
	_lineto
;
* let's draw the inactive strings (printers name/ports name)
;

	PushLong namepos	;move to where to put printer name
	_moveto
	PushLong #0
	_PmGetPrinterName	;get the printer types name
	_DrawString	;draw it
	PushPtr SlashStr
	_DrawString	;draw a '/'
	PushLong #0
	_PmGetPortName	;get the ports name
	_DrawString	;draw it

;------------------------------------------------------------------------------
;This draws the inactive strings using tables
;------------------------------------------------------------------------------
	lda JIstrnum	;get number of strings to draw
	dea
	asl a
	asl a
	tax	;use as an index

strloop	phx	;save index
	lda JIposlist+2,x	;get position to draw at
	pha
	lda JIposlist,x
	pha
	_moveto	;move to the position
	plx
	phx
	lda JIstrlist+2,x	;get address of text to draw
	pha
	lda JIstrlist,x
	pha
	_drawstring	;draw the text
	plx
	dex
	dex
	dex
	dex
	bpl strloop	;loop for all strings in table

;------------------------------------------------------------------------------
;
; This is the modal	dialog loop
;
;------------------------------------------------------------------------------
loopModal		; 
	PushWord #0
	PushLong #JobFilter+$80000000 ;use filter proc. and standard
	_modalDialog
	pla
	beq loopModal	;loop until a response from user

	cmp #14	;see if valid item selected
	bge loopModal	;branch if invalid
;
;Convert item selected and vector to appropriate routine to	handle it
;
	asl a	;convert itme to index
	tax
	jmp (Action-2,x)	;vector to routine to handle item

Action		; 

	DC.W S_OkEvent	;1
	DC.W S_Cancelevent	;2 (Cancel button)
	DC.W S_Qual	;3
	DC.W S_Qual	;4
	DC.W S_Qual	;5
	DC.W S_Page	;6 (ALL radio button)
	DC.W S_Page	;7 (FROM radio button)
	DC.W S_Copie	;8
	DC.W S_Copie	;9
	DC.W S_Copies	;10
	DC.W S_To	;11 (TO line edit box)
	DC.W S_From	;12 (FROM line edit	box)
	DC.W S_Color	;13 (Color check box)
;
;We vector here on OK button
;
S_okEvent		; 
	pushword #0
	Pushlong pScreenPort
	Pushword #13
	_getDItemValue
	pla
	sta buttonstate+2*10
	PushLong pscreenport
	PushWord #10
	PushPtr CopieFinalValue
	_GetIText
	pushword #0
	pushptr CopieFinalValue+1
	lda CopieFinalValue
	and #$07
	pha
	pushword #0
	_Dec2int
	pla
	sta Buttonstate+2*9

	lda buttonstate+2*3	; check if all is on, if so, do not
	bmi nopageupdate	; update 'from' & 'to' in buttonstate
	PushLong pscreenport
	PushWord #12
	PushPtr FromFinalValue
	_GetIText
	lda FromFinalValue
	and #7
	beq nofrom

	pushword #0
	pushptr FromFinalValue+1
	lda FromFinalValue
	and #$07
	pha
	pushword #0
	_Dec2int
	pla
	sta Buttonstate+2*7
nofrom		; 
	PushLong pscreenport
	PushWord #11
	PushPtr ToFinalValue
	_GetIText
	lda ToFinalValue
	and #$07
	beq nopageupdate

	pushword #0
	pushptr ToFinalValue+1
	lda ToFinalValue
	and #$07
	pha
	pushword #0
	_Dec2int
	pla
	sta Buttonstate+2*8
nopageupdate		; 
	lda #$ffff
	sta IfCancelled
	brl fin

;
;We vector here on CANCEL button
;
S_CancelEvent		; 
	stz IfCancelled	;set if cancelled
	brl fin

;
;We vector here on a print quality radio button selection
;
S_Qual		; 
	sec
	sbc #6
	tax
	lda buttonState,x	Give me the item
	bmi PaperDone
	phx

* clear the current	one
	ldx #0
searchmore	lda buttonState,x
	bmi clearit
	inx
	inx
	cpx #3*2
	bne searchmore
	bra PaperDone
clearit	stz buttonState,x
	txa
	lsr a
	clc
	adc #3
	tax
	pushword #0
	Pushlong pScreenPort
	phx
	_setDItemValue
* Mark the new one

	plx
	phx
	lda #$FFFF
	sta buttonstate,x
	pla
	lsr a
	clc
	adc #3
	tax
	pushword #1
	Pushlong pScreenPort
	phx
	_setDItemValue

PaperDone	brl LoopModal

;
;We vector here on page button
;
S_Page		; 
	tay
	sec
	sbc #6
	tax
	lda buttonState,x	Give me the item
	bmi PaperDone
	cpx #2*3	* button n 4
	beq doall

S_Page2		; 
	cpy #16	;value has been doubled by now
	bge ToBox	;'To or From' clicked, dont select text

	Pushlong pScreenPort
	PushWord #12	;id of From edit item box
	PushWord #0	;start
	PushWord #4	;stop
	_SelectIText	;select the FROM edit item box

* do from to.
ToBox	pushword #1
	Pushlong pScreenPort
	Pushword #7
	_setDItemValue	;ON with FROM radio	button

	pushword #0
	Pushlong pScreenPort
	Pushword #6
	_setDItemValue	;OFF with ALL radio	button

	lda #0
	ldx #2*3
	sta buttonstate,x
	inx
	inx
	dea
	sta buttonstate,x
	brl LoopModal
doAll		; 
	pushword #0
	Pushlong pScreenPort
	Pushword #7
	_setDItemValue
	pushword #1
	Pushlong pScreenPort
	Pushword #6
	_setDItemValue
	lda #$ffff
	ldx #2*3
	sta buttonstate,x
	inx
	inx
	ina
	sta buttonstate,x
CopieDone	brl LoopModal

;
;We vector here on a paper feed radio button (AUTOMATIC, HAND FEED)
S_Copie		; 
	sec
	sbc #6
	tax
	lda buttonState,x	Give me the item
	bmi CopieDone
	cpx #2*5	* button n 6
	beq doAuto

;We get here when its a HAND FEED
	pushword #1
	Pushlong pScreenPort
	Pushword #9
	_setDItemValue
	pushword #0
	Pushlong pScreenPort
	Pushword #8
	_setDItemValue
	lda #0
	ldx #2*5
	sta buttonstate,x
	inx
	inx
	dea
	sta buttonstate,x
	brl LoopModal

;We arrive here when its an AUTOMATIC
doAuto		; 
	pushword #1
	Pushlong pScreenPort
	Pushword #8
	_setDItemValue
	pushword #0
	Pushlong pScreenPort
	Pushword #9
	_setDItemValue
	lda #$ffff
	ldx #2*5
	sta buttonstate,x
	inx
	inx
	ina
	sta buttonstate,x
	brl LoopModal

;
;We vector here on COLOR check box selection
;
S_Color		; 
	pushword #0
	Pushlong pScreenPort
	Pushword #13
	_getDItemValue
	pla
	eor #$ffff
	pha
	Pushlong pScreenPort
	Pushword #13
	_setDItemValue
	Brl LoopModal

;
;We vector here on a COPIES edit item
;
S_Copies		; 
	brl LoopModal

;
;We vector here on a FROM or TWO edit item selection
;
S_To		; 
S_From		; 
	tay
	lda #14
	brl S_Page2

;
;We go here when the user is done and has selected either OK or CANCEL
;
fin	pushlong pscreenport
	_CloseDialog
	_setport
	lda IfCancelled
	rts
	ENDP
;                copy    JobFilter
;------------------------------------------------------------------------------
;
;  NAME:       JobFilter
;
;  PURPOSE:    _PrJobDialog's filter procedure.
;
;  PASSED:     Result	WORD, (space for result)
;              TheDialog	LONG, pointer to the dialog's grafport
;              Event	LONG, pointer to the event
;              ItemHit	LONG, pointer to the item hit
;
;  RETURNED:   IgnoreFlag	WORD, boolean, TRUE	if event is to be
;		      ignored, FALSE if calling routine
;		      should handle	event.
;
;------------------------------------------------------------------------------
	EXPORT Jobfilter
Jobfilter	PROC
*              using MainData
*              using dialogdata

	phd
	phb
	phk
	plb
	tsc
	tcd

	stz result	;init. result to true
;
;Copy the event record
;
	ldy #14
copyEvent	lda [Event],y
	sta EventRecord,y
	dey
	dey
	bpl CopyEvent

	lda ZeroPage
	tcd	;get zero page

	lda EvtWhat	;see what type of event
	cmp #KeyDown	;do KeyDown events
	beq dokey
	cmp #AutoKey	;do AutoKey events
	beq dokey
	brl notDown	;all other events pass thru.
;
;We get here when we have either a KeyDown or AutoKey events
;
Dokey		; 
	lda evtmsg
	cmp #TabKey	;do tab key
	beq KeyAllowed
	cmp #returnKey	;do return key
	beq KeyAllowed
	cmp #DeleteKey	;do delete key
	beq KeyAllowed
	cmp #$30
	blt notallowed
	cmp #$3a
	bge notallowed
	bra KeyAllowed
;
;We get here when we get an event that we don't want
;
notallowed		; 
	lda #-1
	sta result,s	;set results for false

KeyAllowed		; 
notDown		; 
	plb
	pld
	lda 0,s
	sta 12,s
	lda 2,s
	sta 14,s
	pla
	pla
	pla
	pla
	pla
	pla
	rtl
	ENDP
;                copy    StyleDialog
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;
;  NAME:       StyleDialog
;
;  PURPOSE:    Does	most of the work for '_PrStlDialog'
;
;  PASSED:     (None)
;
;  RETURNED:   (A-reg.)=0 OK, =$ffff CANCEL
;
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------

* buttonstate for Style
* +0    US Letter
* +2*1  US Legal
* +2*2  A4 Letter
* +2*3  International Fanfold
* +2*4  Reserved for Computer Paper
* +2*5  Reserved for Tall Adjusted
* +2*6  Reserved for 50% reduction
* +2*7  No Gaps Between Pages
* +2*8  Portrait
* +2*9  Landscape

	EXPORT StyleDialog
StyleDialog	PROC
*              using dialogdata
*              using MainData
;
;Get the pointer to	the current grafport
;
	pushlong #0
	_getport	;get the current port

;
;Calculate the dialogs boxs width
;
	lda StyleRect+6
	sec
	sbc StyleRect+2
	sta Stylewidth	;save width of dialog box

;
;Get the master SCB
;
	pha
	_GetMasterSCB	;get the SCB
	pla
	sta SCBValue	;save SCB

;
;This calculates the dialog boxes LEFT and RIGHT (depending	on 320 or 640 mode)
;
	and #$80	;look at mode (0=320, 1=640)
	sta landsc_p
	sta portrait_p
	beq loc320	;branch if 320 mode
	lda #640	;get 640
	bne loc640
loc320		; 
	lda #320	;get 320
loc640		; 
	sec
	sbc StyleWidth
	lsr a
	sta StyleRect+2	;adjust style dialogs LEFT
	clc
	adc StyleWidth
	sta StyleRect+6	;adjust style dialogs RIGHT

;
;This sets the appropriate pixel width for the portrait/landscape image
;
* update the bitmap	for 320/640
	lda SCBValue	;get save SCB
	and #$80	;look at mode bit
	beq w320	;branch if 320
	lda pixel640	;get the pixel width for 640
	bne ww
w320	lda pixel320	;get the pixel width for 320
ww	sta pixelwidth	;set the pixel width
	sta portrait_p+14	;set the portriat
	sta landsc_p+14	;set the landscape
	sta portrait_r+6	;set the portriat rectangle
	sta landsc_r+6	;set the landscape rectangle
	clc
	adc dstbitr1+2
	sta dstbitr1+6

;
;?????????
;
	lda pixelwidth
	clc
	adc #4
	adc dstbitf1+2
	sta dstbitf1+6

;
;????????????
;
	lda pixelwidth
	clc
	adc dstbitr2+2
	sta dstbitr2+6
	lda pixelwidth
	clc
	adc #4
	adc dstbitf2+2
	sta dstbitf2+6


;
;This starts the modal dialog
;
	PushLong #0
	Pushptr StyleRect	;stylerect defines the dialog box
	Pushword #1
	PushLong #0
	_NewModalDialog	;get a new modal dialog
	pla
	sta pScreenport	;save the dialog boxes handle
	pla
	sta pScreenport+2
;
;Set the dialog as the current port and	set the origin to 0
;
	pushlong pScreenport
	_Setport	;set the current port to the dialog
	pushlong #0
	_setOrigin	;set the origin to zero
;
* draw the upper line
;
	pushlong l1
	_moveto
	pushlong l2
	_lineto
;
*let's draw the inactive strings (printers name/ports name)
;

	PushLong namepos	;move to where to put printer name
	_moveto
	PushLong #0
	_PmGetPrinterName	;get the printer types name
	_DrawString	;draw it
	PushPtr SlashStr
	_DrawString	;draw a '/' char.
	PushLong #0
	_PmGetPortName	;get the ports name
	_DrawString	;draw it

;------------------------------------------------------------------------------
;This draws the inactive strings using tables
;------------------------------------------------------------------------------
	lda Istrnum	;get number of strings to draw
	dea
	asl a
	asl a
	tax	;use as an index

strloop	phx	;save index
	lda Iposlist+2,x	;get position to draw at
	pha
	lda Iposlist,x
	pha
	_moveto	;move to position
	plx
	phx
	lda Istrlist+2,x	;get address of text to draw
	pha
	lda Istrlist,x
	pha
	_drawstring	;draw the text
	plx
	dex	;adjust index to next string
	dex
	dex
	dex
	bpl strloop	;loop for all strings in table

;
* create the OK Item
;
	PushLong pScreenPort
	Pushword #1	;OK button (default	for CR)
	Pushptr OKrect
	Pushword #ButtonItem
	Pushptr okstr
	PushWord #0
	PushWord #0
	PushLong #0
	_newDItem

;
;Create the CANCEL button
;
	PushLong pScreenPort
	Pushword #2	cancel
	Pushptr cancelrect
	Pushword #ButtonItem
	Pushptr cancelstr
	PushWord #0
	PushWord #0
	PushLong #0
	_newDItem

;
;* create the radio	items
;
	lda #0
Radioloop	pha
	asl a
	asl a
	tax	;X-reg. points to correct item in list

	PushLong pScreenport ;dialogs port

	lda 5,s	;get the current item count off stack
	clc
	adc #3	;start at 3 (1 is ok, 2 is cancel)
	pha	;push the Id
	lda ArectList+2,x	;push the items bounds rectangle
	pha
	lda ArectList,x
	pha
	cpx #7*4	;special case out type of item
	blt rad
	pushword #CheckItem	;we get here for a check item
	bra com
rad		; 
	pushword #radioItem	;we get here for a radio item
com		; 
	lda AstrList+2,x	;push the items descriptor
	pha
	lda AstrList,x
	pha
	PushWord #0	;Items value

	cpx #5*4	; If done with paper radio button
	blt Family0	; then change family # to 1 for
	PushWord #1	; VSize radio buttons
	bra Next

Family0	PushWord #0	;Items flag
Next	PushLong #0	;Items color
	_newDItem	;Create the new item
	pla	;get the saved counter
	cmp #3
	bne nojump	;do first four items

	ina	skip 50% reduction
nojump		; 
	ina	;goto NO GAPS
	cmp AStrNum
	bne Radioloop
;
;* draw the bitmaps	for portrait/landscape
;
	pushlong #0
	_getport
	pla
	sta PP_portrait+4
	sta PP_Landsc+4
	pla
	sta PP_portrait+6
	sta PP_Landsc+6

	Pushptr PP_portrait
	_paintPixels	;paint portrait
	Pushptr PP_Landsc
	_paintPixels	;paint landscape

	pushptr dstbitf1
	_framerect	;frame portrait
	pushptr dstbitf2
	_framerect	;frame landscape

;
;Now determine invert the current selected mode for portriat/landscape
;
	lda buttonstate+2*8	;get portraits button state
	bpl startLands	;branch if not selected
;
;we get here if portriat
;
	Pushptr dstbitf1
	_invertRect	;invert the portrait image
	pushptr dstbitf1
	_framerect	;frame the portrait	image
	bra startport
;
;We get here if landscape
;
startLands		; 
	Pushptr dstbitf2
	_invertRect	;invert the landscape image
	pushptr dstbitf2
	_framerect	;frame the landscape image

;
;This gets the pointers to the control items
;
startPort		; 
	lda #1
GetptrLoop	pha
	tay
	pushlong #0
	pushlong pScreenPort
	Phy
	_getcontrolDItem
	lda 5,s
	asl a
	asl a
	tax
	pla
	sta ptrList,x	;save the pointer in list
	pla
	sta ptrList+2,x
	pla
	ina
	cmp #11+1
	bne GetptrLoop
;
;This activates the	radio buttons
;
	lda #3
looop	pha
	asl a
	tax
	lda buttonstate-6,x
	bpl forgetthisone
	pla
	pha
	asl a
	asl a
	tax
	ldy #1
	jsr SetButtonValue
forgetthisone	pla
	ina
	cmp #8
	bne looop	; items 8 - 11 are not as normal

	lda buttonstate+2*10 ; Normal Vsize
	bpl Onto9	; Not selected
	ldx #8*4	; item #8 is the oddest
	ldy #1	; ON
	jsr SetButtonValue

Onto9	lda #9	; Items 9 - 11
loop1	pha	; offset to buttonstate are
	asl a	; different than that of 3 - 7
	tax
	lda buttonstate-8,x
	bpl SkipIt
	pla
	pha
	asl a
	asl a
	tax
	ldy #1
	jsr SetbuttonValue
SkipIt	pla
	ina
	cmp #12
	bne loop1

;------------------------------------------------------------------------------
;
;This is the modal dialog loop
;
;------------------------------------------------------------------------------
loopModal		; 
	PushWord #0
	PushLong #StyleFilter+$80000000 ;handles portrait/lands. images
	_modalDialog
	pla
	beq loopModal	;loop until a response

	cmp #12	;see if valid item
	bge loopModal	;branch if not
;
;Now vector to correct routine to handle the item
;
	asl a	;convert item number to index
	tax
	jmp (Action-2,x)	;vector to routine to handle item

Action		; 

	DC.W S_OkEvent	1
	DC.W S_Cancelevent	2
	DC.W S_Paper	3 - US Letter
	DC.W S_Paper	4 - US Legal
	DC.W S_Paper	5 - A4 Letter
	DC.W S_Paper	6 - International fanfold
	DC.W S_Paper	7 - Reserved for computer paper
	DC.W S_Vsize	8 - Normal VSize
	DC.W S_Vsize	9 - Condensed VSize
	DC.W S_Spe	10 - 50%
	DC.W S_Spe	11 - No Gap

;
;We vector here on OK button
;
S_okEvent		; 
	lda #$ffff
	sta IfCancelled	;clear if cancled flag
	brl fin
;
;We vector here on CANCEL button
;
S_CancelEvent		; 
	stz IfCancelled	;set if cancled flag
	brl fin

;
;We vector here on a paper radio button	selection
;
S_paper		; 
	sec
	sbc #6
	tax
	lda buttonState,x	Give me the item
	bmi PaperDone
	phx

* clear the current	one
	ldx #0
searchmore	lda buttonState,x
	bmi clearit
	inx
	inx
	cpx #5*2
	bne searchmore
	bra PaperDone
clearit	stz buttonState,x
	txa
	lsr a
	clc
	adc #3
	asl a
	asl a
	tax
	ldy #0
	jsr SetButtonValue

* Mark the new one

	plx
	phx
	lda #$FFFF
	sta buttonstate,x
	pla
	lsr a
	clc
	adc #3
	asl a
	asl a
	tax
	ldy #1
	jsr SetButtonValue

PaperDone	brl LoopModal

;
; We vector here on	a special size selection
;
S_VSize	cmp #16	; is it 2 x 8?
	beq SetNormal	; yes, user picked normal

	lda #0	; user picked condensed - 9
	sta buttonstate+2*10 ; normal off
	dec a
	sta buttonstate+2*5	; condensed on
	ldx #9*4	; offset for condensed
	ldy #1	; ctrl value in y, we want ON now
	jsr SetButtonValue

	ldx #8*4	; offset for normal
	ldy #0	; now we want OFF
	jsr SetButtonValue

	brl LoopModal

SetNormal		; 
	lda #0	; user picked normal - 8
	sta buttonstate+2*5	; condensed on
	dec a
	sta buttonstate+2*10 ; normal off
	ldx #9*4	; offset for condensed
	ldy #0	; ctrl value in y, we want OFF now
	jsr SetButtonValue

	ldx #8*4	; offset for normal
	ldy #1	; now we want ON
	jsr SetButtonValue

	brl LoopModal

S_Spe		; 
	pha
	sec
	sbc #8
	tax
	lda buttonState,x	Give me the item
	eor #$ffff
	sta buttonstate,x
	pla
	asl a
	tax
	phx
	pushword #0
	lda PtrList+2,x
	pha
	lda PtrList,x
	pha
	_GetCtlValue
	pla
	plx
	and #1
	eor #1
	tay
	jsr SetbuttonValue
	brl LoopModal
;
;We go here when the user has selected OK or CANCEL
;
fin	pushlong pscreenport
	_CloseDialog	;close the dialog box
	_setport	;set back to the previous port
	lda IfCancelled	;get the OK/CANCEL flag
	rts
;------------------------------------------------------------------------------
;
; NAME:        SetButtonValue
;
; PURPOSE:     Sets	the control value to the value passed in Y-reg.
;
; PASSED:      (Y-reg.)	0 = clear, 1= set
;              (X-reg.)	offset to the table	of handles
;
; RETURNED:    NONE
;
;------------------------------------------------------------------------------
	EXPORT SetButtonValue
SetButtonValue		;       

	phy
	lda PtrList+2,x	; get handle to control
	pha
	lda PtrList,x
	pha
	_SetCtlValue	; set it

	rts

	ENDP
;                copy    StyleFilter
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;
;  NAME:       StyleFilter
;
;  PURPOSE:    Filter procedure for 'StyleDialog' to detect	when a button down
;              event has occured on one	of the portrait/landscape picture
;              bitmaps.
;
;  PASSED:     Result	WORD, (space for result)
;              TheDialog	LONG, pointer to the dialog's grafport
;              Event	LONG, pointer to the event
;              ItemHit	LONG, pointer to the item hit
;
;  RETURNED:   IgnoreFlag	WORD, boolean, TRUE	if event is to be
;		      ignored, FALSE if calling routine
;		      should handle	event.
;
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------

	EXPORT Stylefilter
Stylefilter	PROC
*              using MainData
*              using dialogdata

;Save registers and	setup environment
	phd
	phb
	phk
	plb
	tsc
	tcd

	stz result	;init result to true

;Copy Event record
	ldy #14
copyEvent	lda [Event],y
	sta EventRecord,y
	dey
	dey
	bpl CopyEvent

	lda ZeroPage
	tcd

;Now see what kind of event it was
	lda EvtWhat	;get kind of event
	cmp #inButtDwn	;see if it was a button down
	beq down
	brl notDown	;exit if not
;
;We get here when we have a button down	event
;
Down		; 

;Now see if it was in one of the bitmap	images
	PushLong pScreenPort
	_setPort
	PushWord #0
	PushWord #0
	_setOrigin
	pushptr EvtWhere
	_globaltolocal
	pha
	pushptr EvtWhere
	Pushptr dstbitf1
	_ptInrect	;see if it is in the portrait bitmap
	pla
	beq NotIn1	;branch if not
;
;We get here if it was a button down event in the portrait bitmap image
;
	ldx #2*8
	lda buttonstate,x	;get the current state
	bpl invertthem	;branch if changed
	brl notdown	;branch if no change
;
;We now test for in	the landscape bitmap image
;
NotIn1		; 
	pha	;for result
	pushptr EvtWhere
	Pushptr dstbitf2
	_ptInrect
	pla	;get result
	beq NotDown	;branch if not in landscape bitmap
;
;We get here if it was a button down event in the landscape	bitmap image
;
	ldx #2*9
	lda buttonstate,x	;look at the current state
	bpl invertthem	;branch if changed
	brl notdown	;branch if no change
;
;We get here when we need to change the	portrait/landscape images
;
invertThem		; 
	ldx #2*8
	lda buttonstate,x	;get the current portrait state
	eor #$ffff
	sta buttonstate,x	;invert it
	inx
	inx
	lda buttonstate,x	;get the current landscape state
	eor #$ffff
	sta buttonstate,x	;invert it

	Pushptr dstbitf1
	_invertRect	;invert portrait image
	pushptr dstbitf1
	_framerect	;frame portrait image
	Pushptr dstbitf2
	_invertRect	;invert landscape image
	pushptr dstbitf2
	_framerect	;frame landscape image
;
;We get here when we are done or it wasn't a button down event
;
notDown		; 
	plb
	pld
	lda 0,s
	sta 12,s
	lda 2,s
	sta 14,s
	pla
	pla
	pla
	pla
	pla
	pla
	rtl
	ENDP
;                copy    InfoDialogs
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;
; INFORMATION DIALOG ROUTINES
;
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------


	EXPORT InfoDialogs
InfoDialogs	PROC
*              using Dialogdata
*              Using MainData
;------------------------------------------------------------------------------
;
;  NAME:       OpenInfoPrepare
;
;  PURPOSE:    Brings up window which indicates what is about to happen.
;                IMMEDIATE MODE: 'Printing in Draft mode ...'
;                DEFERRED MODE:  'Preparing Data ...'
;
;  PASSED:     NONE
;
;  RETURNED:   NONE
;
;------------------------------------------------------------------------------

	EXPORT OpenInfoPrepare
OpenInfoPrepare		;       
	PushLong #0
	_getport	;get current port and save it

	pha
	_GetMasterSCB	; check mode from SCB
	pla
	and #$80	;see which mode
	beq loc320	;branch if 320 mode
;
;We get here if its	640 mode
;
	lda infowidth640
	sta StyleWidth	;set the style width for 640
	lda #640	;get 640
	bne loc640	;branch
;
;We get here if its	320 mode
;
loc320		; 
	lda infowidth320
	sta StyleWidth	;set the style width for 320
	lda #320	;get 320
;
;Remember: (A-reg. is 320 or 640 depending on mode)
;
loc640		; 
	sec
	sbc StyleWidth
	lsr a
	sta InfoRect+2	;set left
	clc
	adc StyleWidth
	sta InfoRect+6	;set right

	PushLong #0
	PushPtr InfoWindow
	_NewWindow	;bring up a new window

	pla
	sta infoDPort	;save it
	pla
	sta infoDPort+2

	pushlong infoDPort
	_setPort	;set it as current port

	Pushlong InfoStrPos	;move to strings starting position
	_moveto

	lda method	;get method (immediate, deferred)
	bpl draftStr	;branch if immediate

;------------------------------------------------------------------------------
; Deferred Mode
;------------------------------------------------------------------------------
	pushptr InfoStrPrep	;get string 'Preparing Data ...'
	bra DrawIt

;------------------------------------------------------------------------------
; Immediate Mode
;------------------------------------------------------------------------------
draftStr		; 
	pushptr InfoStrDraft ;get string 'Printing in Draft mode ...'

DrawIt	_drawString	;draw the string in	the window

	_setPort	;restore the old port

	rts
;------------------------------------------------------------------------------
;
;  NAME:       CloseInfo
;
;  PURPOSE:    Closes the info window.
;
;  PASSED:     NONE
;
;  RETURNED:   NONE
;
;------------------------------------------------------------------------------

	EXPORT CloseInfo
CloseInfo		;       
	PushLong infoDPort
	_closeWindow
	rts
	ENDP
;------------------------------------------------------------------------------
;
;  NAME:       OpenInfoPrinting
;
;  PURPOSE:    Prepares and draws the opening info window
;
;  PASSED:     NONE
;
;  RETURNED:   NONE
;
;------------------------------------------------------------------------------

	EXPORT OpenInfoPrinting
OpenInfoPrinting	PROC
*              using Dialogdata
*              Using MainData

	pha
	_GetMasterSCB	; check mode
	pla
	and #$80
	beq loc320	;branch if 320 mode

;We arrive here if its 640 mode
	lda infowidth640
	sta StyleWidth	;set the width
	lda #640
	bra loc640

;We arrive here if its 320 mode
loc320		; 
	lda infowidth320
	sta StyleWidth	;set the width
	lda #320

loc640		; 
	sec
	sbc StyleWidth
	lsr a
	sta InfoRect+2	;set left
	clc
	adc StyleWidth
	sta InfoRect+6	;set right

	PushLong #0
	PushPtr InfoWindow
	_NewWindow	;bring up the window
	pla
	sta infoDPort
	pla
	sta infoDPort+2

	jsl DrawPrintStr	;draw in the text string
	rts
	
;------------------------------------------------------------------------------
;
;  NAME:       DrawPrintStr
;
;  PURPOSE:    Draws the string into the info window
;
;  PASSED:     NONE
;
;  RETURNED:   NONE
;
;------------------------------------------------------------------------------
	EXPORT DrawPrintStr
DrawPrintStr		;       
	PushLong #0	; get current port
	_getport	; leave ptr on stack
	pushlong infoDPort
	_setPort	; set info port to be current
	Pushlong InfoStrPos
	_moveto
	pushptr Printprocess
	_drawString	; draw 'Printing in progress ...'
	_setPort
	jsr showstatus
	rtl

;------------------------------------------------------------------------------
;
;  NAME:       ShowStatus
;
;  PURPOSE:    Checks for new status and sets 'ShowStatusFlag' appropriately.
;
;  PASSED:     NONE
;
;  RETURNED:   NONE
;
;------------------------------------------------------------------------------
	EXPORT ShowStatus
ShowStatus		;       
	Jsr StatusLaser	;see if its time to	status device
	bcc doit
	rts

doit		; 
	dec ShowStatusFlag	;dec. the show status flag
	rts

;------------------------------------------------------------------------------
;
;  NAME:       DrawStatus
;
;  PURPOSE:    Draws the status string when 'ShowStatusFlag' is not zero
;
;  PASSED:     NONE
;
;  RETURNED:   NONE
;
;------------------------------------------------------------------------------
	EXPORT DrawStatus
DrawStatus		;       
	lda ShowStatusFlag	;get the status flag
	bne Required	;do nothing if not zero
	rts

	EXPORT Required
Required		;       
	PushLong #0
	_getport	;get current port
	PushLong infoDPort
	_setPort	;set to info. dialog port

	PushPtr EraseInfoRect
	_eraseRect	;erase whats already there
	Pushlong InfoStrPos
	_moveto	;move to where to draw text
	pushptr InfoStrBuffer+4
	_drawString	;draw the text from	InfoStrBuffer

	_setPort	;restore the port
	stz ShowStatusFlag	;clear the flag
	rts

;------------------------------------------------------------------------------
;
;  NAME:       StatusLaser
;
;  PURPOSE:    Gets	the status from the	device
;
;  PASSED:     NONE
;
;  RETURNED:   (Carry Flag) CLEAR= device was statused, SET=device not statused?
;
;------------------------------------------------------------------------------
	EXPORT StatusLaser
StatusLaser		;       
	PushLong #0
	_TickCount	;get the system tick count
	plx
	pla
	cmp newdate+2
	beq testlower
	blt ExitStatus
testLower	txa
	cmp NewDate
	blt ExitStatus

	PushLong #0
	_TickCount
	pla
	clc
	adc #60*5
	sta NewDate
	pla
	adc #0
	sta NewDate+2
;
;We get here when its time to restatus the device
;
	PushPtr InfoStrBuffer
	_PrDevStatus	;get the status of the device
	clc	;clear carry
	Rts

ExitStatus		; 
	sec	;set carry
	Rts

NewDate	DS.B 4
	ENDP
;                copy    PrPicFile
*****************************
*	        *
* PrPicFile	        *
*	        *
* Current Rev: Nov.	1987    *
*	        *
*****************************

;------------------------------------------------------------------------------
*
* NAME:        PrPicFile
*
* PURPOSE:     To print a picture file
*
* PASSED:      Users Print Record     LONG     Handle to print record
*              PortPtr                LONG     Pointer to graf port
*              PRStatus               LONG     Pointer to status record
*
* RETURNED:    NONE
*
* NOTE:PortPtr cannot be same one returned by OpenDOC if we
* allocated it ourselves.
*
* PortPtr can be zero. 
* 
******************************************************************
	EXPORT PrPicFile
PrPicFile	PROC
*              using   PrtRecordEqu
*              using   MainData
*              using   PrtRecordDflt

	DefineStack
OrigD	word 0
OrigB	byte 0
rtl1	block 3
rtl2	block 3
UsersStatusPtr	long 0
UsersPortPtr	long 0
UsersPrintRecH	long 0

* we need to get memory for everything.
*
* If the application gave us pPrPort, we will use it,
* otherwise we will	use our.

	pha
	lda >iPrErr	;see if any errors
	beq Continue	;branch if no errors
	cmp #PortNotOn	;see if port was not on
	bne Continue
	plx
	jmp Exit12

Continue		; 
	pla
	phd
	tcd
	phb save	bank reg
	phk
	plb use	our bank


;--------------------------------------------------------------
;
; Look at the error	code again.  If it is zero we go and print.
; if it is none zero, we do not allocate anything for printing
; and we dispose of	things already allocated.
; 
	lda iPrErr
	beq GoAheadAndMakeMyDay

	jmp PortDone

GoAheadAndMakeMyDay		; 

	lda method
	bmi spoolPrt

	brl Exit	; in draft printing	we do nothing.

spoolprt		; 
	jsr OpenInfoPrinting ; put up dialog

;------------------------------------------------------------
;
; Bring inputs to zero page.
; 
	lda UsersStatusPtr,s
	sta PZ_PrStatus
	lda UsersStatusPtr+2,s
	sta PZ_PrStatus+2

	lda UsersPrintRecH,s
	sta PZ_hPrint
	lda UsersPrintRecH+2,s
	sta PZ_hPrint+2

	lda UsersPortPtr,s
	sta PZ_pPrPort
	lda UsersPortPtr+2,s
	sta PZ_pPrPort+2

;------------------------------------------------------------
;
; Look at port pointer.  If it is nil, get our own.
; 

	lda #false
	sta ourport

	lda PZ_pPrPort
	ora PZ_pPrPort+2
	bne userPort
	lda #true
	sta ourport

	lda #PortSize
	ldx #%1000000000011000 ; locked and dont cross bank
	jsr OurGetHandle
	sta PZ_pPrPort
	stx PZ_pPrPort+2

	lda [PZ_pPrPort]
	tax
	ldy #2
	lda [PZ_pPrPort],y
	sta PZ_pPrPort+2
	stx PZ_pPrPort

userPort		; 
	pei PZ_pPrPort+2
	pei PZ_pPrPort
	_OpenPort


;------------------------------------------------------------
;
; Now look at status record pointer
;

	lda #false
	sta ourStatus

	lda PZ_PrStatus
	ora PZ_PrStatus+2
	bne userStatus

	lda #OurStatusRecord
	sta PZ_PrStatus
	lda #^OurStatusRecord
	sta PZ_PrStatus+2

	lda #true
	sta ourStatus

UserStatus		; 
;------------------------------------------------------------
;
; Initialize the status record
; 
	ldy #StatRecSize-2	; first zero it
	lda #0
ZeroLoop	sta [PZ_PrStatus],y
	dey
	dey
	bpl ZeroLoop

	lda PZ_PrStatus	; put pointer to port in status rec
	ldy #pPrPort
	sta [PZ_PrStatus],y
	iny
	iny
	lda PZ_PrStatus+2
	sta [PZ_PrStatus],y

	lda PZ_hPrint	; put handle to print record
	ldy #shPrint	; into status record.
	sta [PZ_PrStatus],y
	iny
	iny
	lda PZ_hPrint+2
	sta [PZ_PrStatus],y


;------------------------------------------------------------
;
; Transfer the print record to the internal print record.
;
	PushLong PZ_HPrint
	PushLong #HPrint
	PushLong #TPrintSize
	_HandToPtr

;-----------------------------------------------------------
;
; Check if landscape is selected. Garbage is printed if we use more than the
; standard size. Quick and dirty fix.
;

	lda hPrint+PrStl+wDev
	and #f1
	bne @1
	lda hPrint+PrXinfo+iDevBytes
	bra UseStandard

;------------------------------------------------------------
;
; Get memory for the print buffer.
; 
@1	pha
	pha
	_MaxBlock	; find out the largest block available
	pla
	sta AvailMemBlock
	pla
	bne MoreThan64K
	
	lda hPrint+PrXinfo+iDevBytes
	cmp AvailMemBlock	; If mem available is <= std size,
	bge UseStandard	; then just use standard 
	bra FindBandHeight	; else use the available
	
;-----------------------------------------------------------
;
; There's more than the standard amount of memory needed, go calculate the new band
; size.
;

MoreThan64K	lda #Mem64K	; we'll just use up to 64K
	sta AvailMemBlock
	
FindBandHeight	pha	; space for remainder	
	pha	; space for quotient	
	lda AvailMemBlock	; memory available
	pha
	lda hPrint+PrXinfo+iRowBytes
	pha	; divided by # of bytes per row
	_UDivide
	pla
;
; 6/14/89 Mensch and Steve Glass think that the low level print drivers can not handle
; having a band buffer that is not a multiple of 8 rows. We feel this is the case because 
; of the way the printer creates empty lines for the end of a band. This small change should
; fix the problem if this was the bug.
;
	and #$FFF8

	sta hPrint+PrXinfo+iBandV
	pla	; ignore remainder
	
	lda AvailMemBlock
	
UseStandard		; size for buffer is in A
	ldx #%1000000000011000 ; locked and dont cross bank
	jsr OurGetHandle
	bcc @1
	sta iPrErr
	bra CleanUp
@1	sta hprbuf
	stx hprbuf+2

	lda [hprbuf]
	sta pPrBuf
	ldy #2
	lda [hprbuf],y
	sta pPrBuf+2


;------------------------------------------------------------
;
; lit la valeur dans le buffer de la picture.
; (initialize the page number field of status record?) 

	lda ipagenum
	ldy #itotpages
	sta [PZ_PrStatus],y

;-----------------------------------------------------------
;
; In order to use better text mode, Quick Draw's buffer will need to be twice as big
; since we double the size. Check to see if we got enough room.
;

	stz NuBuffSize
				
	lda hprint+prStl+wDev ; is it better text mode?
	and #f0					;
	beq MoveOn				; nah, we're OK
				
	PushPtr SizeInfo	; get the information from Quick Draw
	_SaveBufDims
	
	lda #BTBuffSize	; the size we need is twice the scan line width	
	cmp maxWidth
	blt MoveOn				; we got enough or more
		
	pha						; required size is in A
	PushWord TextBufHeight
	PushWord fontWidth
	_SetBufDims				; set it to 
	
	dec NuBuffSize
			
MoveOn

;-----------------------------------------------------------
;
; Now go do setup and actually print the document
;

	jsr PrPrintit	; parameters are shared in zero page

	lda NuBuffSize	; did we change the size of the buffer?
	beq NoRestore	; nope
				
	PushPtr SizeInfo	; yep, restore it back to original values
	_RestoreBufDims
	
NoRestore

;------------------------------------------------------------
;
; Close the port.
; 
CleanUp
	pushLong PZ_pPrPort
	_closePort

	lda ourport
	cmp #true
	bne portdone

	pha
	pha
	PushLong PZ_pPrPort
	_FindHandle
	_disposehandle

	jsr CloseInfo	; get rid of window	dialog

Portdone		; 

;----------------------------------------------------------
;
; Kill each of the pictures in the piclist, using ifstpage
; ilstpage as start	and end points.
;
	lda [hPicList]	; first deref the pic list
	sta pPiclist
	ldy #2
	lda [hPicList],y
	sta pPicList+2

	ldx #0	; start at 0
KillNextPic	cpx iPageNum	; check against total pages
	bcs KillPicList	; no more if >= pagenum
	txa
	asl a	; mult by 4
	asl a
	tay	; use as index into	table
	lda [pPicList],y
	sta hnewPic
	iny
	iny
	lda [pPicList],y
	sta hNewPic+2

	phx	; save counter

	PushLong hNewPic	; Dispose of this picture
	_KillPicture

	plx	; get X back
	inx	; bump count

	bra KillNextPic

;------------------------------------------------------------------
;
; Now we can get rid of the picList itself
;

KillPicList	PushLong hPicList
	_DisposeHandle

	PushLong CursorAd
	_SetCursor

Exit		; 
	lda iPrErr	this will be the normal exit
	plb
	pld
	jmp exit12

SizeInfo								; size info record return from SaveBufDims
maxWidth	DS.B 2
TextBufHeight	DS.B 2
TextBufWidth	DS.B 2
fontWidth	DS.B 2
NuBuffSize	DS.B 2					; flag to indicate we messed with the buffer size
AvailMemBlock	DS.B 2	; size of available memory block, up to 64K

	ENDP

;------------------------------------------------------------------------------
*
* NAME:        PrPixelMap
*
* PURPOSE:     Prints out the pixel map
*
* PASSED:      SrcLocPtr	LONG, ptr to source	LocInfo
*              SrcRectPtr	LONG, ptr to source	rect
*              ColorFlag	WORD, 0 = B/W, else	Color
*
* RETUNED:     NONE
*
;------------------------------------------------------------------------------

	EXPORT PrPixelMap
PrPixelMap	PROC

*              using MainData
*              using PortOffset
*              using PrtRecordEqu

	DefineStack
OrigD	word 0
OrigB	byte 0
rtl1	block 3
rtl2	block 3
ColorFlag	word 0
SrcRectPtr	long 0
SrcLocPtr	long 0


	pha	; save value of d

	pha
	_DevIsItSafe
	pla
	bne Yes
	lda #PortNotOn
	sta >iPrErr
	plx
	jmp Exit10
Yes		; 
	pla

;------------------------------------------------------------
;
; save the registers and set direct page and data bank
; 
	phd
	tcd
	phb
	phk
	plb

;------------------------------------------------------------
;
; Get the current port's pointer and leave it on the stack
; for restoring just before returning.
;
	pha
	pha
	_GetPort

;------------------------------------------------------------
;
; Get the current cursor record's address and turn on the watch cursor.
;

	PushLong #0	; space for the address
	_GetCursorAdr
	pla
	sta CursorAd
	pla
	sta CursorAd+2

	_WaitCursor

;------------------------------------------------------------
;
; Clear the error code.
; 

	stz iPrErr	; zero error
	stz stackLoc	; stack loc used by idleproc

;------------------------------------------------------------
;
; Get new handle for print record. This	is necessary because
; StartLLD uses the	values in the print	record to set up
; parameter such as	page rectangle, color and quality for
; the printer.
;

	lda #TPrintSize	; size of handle
	ldx #%1000000000011000 ; attributes
	jsr OurGetHandle

	sta PrintRecord
	stx PrintRecord+2

	PushLong PrintRecord
	_PrDefault

;------------------------------------------------------------
;
; Check if the application asked for color. If so, set bit
; 5 of wdev in prStl of the print record.
;

	lda ColorFlag+4,s
	beq BlackWhite
	lda hprint+prStl+wDev
	ora #f5
	sta hprint+prStl+wDev

BlackWhite		; 

;----------------------------------------------------------
;
; Put a pointer to our IDLE proc in the print record
;

	lda #<PrAbortCheck
	sta hPrint+PrJob+pIdleProc
	lda #^PrAbortCheck
	sta hPrint+PrJob+pIdleProc+2

;------------------------------------------------------------
;
; Get a handle for a grafport.
; 
	lda #PortSize	; size of handle
	ldx #%1000000000011000 ; attributes
	jsr OurGetHandle

	sta temp1
	stx temp1+2
	lda [Temp1]
	sta PZ_pPrPort
	ldy #2
	lda [Temp1],y
	sta PZ_pPrPort+2

;------------------------------------------------------------
;
; Open the grafport.
; 
	pei PZ_pPrPort+2
	pei PZ_pPrPort
	_OpenPort

;-----------------------------------------------------------
;
; Start up the low level driver
;

	jsr startLLD

;------------------------------------------------------------
;
; Get source bitmap	information off the	stack into local area
;

	lda SrcLocPtr+4,s
	sta temp1	; temp1 has Ptr to SrcLoc
	lda SrcLocPtr+2+4,s
	sta temp1+2

	ldy #14
MoveLoc	lda [temp1],y
	sta LocalLoc,y
	dey
	dey
	bpl MoveLoc

	lda temp1
	clc
	adc #8
	sta LocalBoundsPtr	; this ptr used for	intersection call
	lda temp1+2
	adc #0
	sta LocalBoundsPtr+2

	lda SrcRectPtr+4,s
	sta temp2	; temp2 is ptr to source rect
	lda SrcRectPtr+2+4,s
	sta temp2+2

	PushWord #0	; Result
	PushLong LocalBoundsPtr
	PushLong temp2
	PushLong #LocalRect	; intesected rect goes here
	_SectRect
	pla
	beq NoIntersection	; if false, no intersection

;---------------------------------------------------------------
;
; Look at the source rect.  If its upper/left corner is 0,0
; then no adjustment is necessary.  If it is not 0,0, we must
; adjust the pointer to the pixel map so that it points to
; the first pixel in the source rect.
;
; Note that this scheme does not work with source rects that
; do not have the first pixel to draw as the first pixel in
; a byte.
;
	lda LocalRect
	sec
	sbc LocalLoc+8
	beq NoAdjustmentY

	pha	; space for result
	pha
	pha	; Top of src rect
	PushWord LocalLoc+6	; width
	_Multiply
	pla
	clc
	adc LocalLoc+2
	sta LocalLoc+2
	pla
	adc LocalLoc+4
	sta LocalLoc+4

NoAdjustmentY		; 
	lda LocalRect+2
	sec
	sbc LocalLoc+10
	beq NoAdjustmentX

	lsr a
	bit LocalLoc-1
	bpl ModeWas320
	lsr a
ModeWas320	clc
	adc LocalLoc+2
	sta LocalLoc+2
	bcc NoCarryHere
	inc LocalLoc+4
NoCarryHere		; 
NoAdjustmentX		; 

	lda LocalRect
	sta LocalLoc+8
	lda LocalRect+2
	sta LocalLoc+10
	lda LocalRect+4
	sta LocalLoc+12
	lda LocalRect+6
	sta LocalLoc+14

;------------------------------------------------------------
;
; Call LLDBitMap using the adjusted (if	necessary) values in
; LocalLoc and LocalRect.
;

	PushLong #LocalLoc
	PushLong #LocalRect
	PushWord UserID
	jsl LLDBitMap

	jsl NewPage	; spit out paper when we're done


;------------------------------------------------------------
;
; Close the grafport.
;

NoIntersection		; 

	pei PZ_pPrPort+2
	pei PZ_pPrPort
	_ClosePort

;------------------------------------------------------------
;
; Get rid of the memory we allocated for grafport and print
; record.
; 
	pha	; first find the handle to
	pha	; memory that port is in.
	pei PZ_pPrPort+2
	pei PZ_pPrPort
	_FindHandle
	_DisposeHandle	; then dispose it.

	PushLong PrintRecord
	_DisposeHandle

;------------------------------------------------------------
;
; We need to shut down low level driver.
; 
	pushword UserID
	jsl LLDShutDown

;------------------------------------------------------------
;
; Turn off the watch cursor.

	PushLong CursorAd
	_SetCursor

;------------------------------------------------------------
;
; Restore the user's last current port, the pointer to it was
; left on the stack	at the beginning of	this routine.
;
	_SetPort

;------------------------------------------------------------
;
; We are done.
;

	lda #0
	plb
	pld
	jmp Exit10


PrintRecord	DS.B 4
LocalBoundsPtr	DS.B 4
LocalLoc	DS.B 16
LocalRect	DS.B 8

	ENDP
;                copy    PrPrintIt
;------------------------------------------------------------------------------
*
* NAME:        PrPrintIt
*
* PURPOSE:     Prints one page (an internal routine called by PrPicFile.)
*              (All	parameters are passed via zero page and	in memory.)
*
* PASSED:      NONE
*
* RETURNED:    NONE
*
;------------------------------------------------------------------------------
	EXPORT PrPrintit
PrPrintit	PROC

	tsc	; keep the current stack location around for
	sta StackLoc	; use in LLDIdleProc
		
;----------------------------------------------------------
;
; We look at the idle proc in the print	record.
; If it is NIL then	we put a pointer to	our IDLE proc
; in its place.
;

	lda hPrint+PrJob+pIdleProc
	ora hPrint+PrJob+pIdleProc+2
	bne useridle
	lda #<PrAbortCheck
	sta hPrint+PrJob+pIdleProc
	lda #^PrAbortCheck
	sta hPrint+PrJob+pIdleProc+2
	
useridle		; 

;----------------------------------------------------------
;
; Start up the low level driver.
;
	jsr startLLD

	jsl CallIdleProc	; does not come back if quits

;-------------------------------------------------------------------
;
; Set up the initial conditions for the	mode
;

	stz BandModeNum
	lda SCBValue
	and #$80
	sta newSCB
	sta oldSCB

;----------------------------------------------------------
;
; Set the imaging flag to false in the status record.
;
	lda #false
	ldy #fImaging
	sta [PZ_PrStatus],y

;----------------------------------------------------------
;
; Put total copies into the status record.
;
	lda hPrint+PrJob+iCopies
	ldy #iTotCopies
	sta [PZ_PrStatus],y

;----------------------------------------------------------
;
; Calculate the number of bands it will	take to print
; one page.  This number is calculated by taking the
; number of vertical lines on the page,	adding the band
; height, subtracting one and dividing this total
; by the band height.
;
;   NumBands = (NumLines + BandHeight -	1 ) div BandHeight
;
; The number of lines depends on whether or not we are
; in portrait or landscape mode.  In portrait mode, the
; number of lines is the bottom of rpage.  In landscape
; mode, the number of lines is the right of rpage.
;
; For some reason, the mode also plays a role in here.
; In best mode the height is twice that	of the rectangle
; shown above.
;
;----------------------------------------------------------
;
; User choose landscape.
;
;    ---------------------------------------------
;   |     |     |	  |     |     |	|     |   |
;   |     |     |	  |     |     |	|     |   |
;   |     |     |	  |     |     |	|     |   |
;   |     |     |	  |     |     |	|     |   |
;   |     |     |	  |     |     |	|     |   |
;   |     |     |	  |     |     |	|     |   |
;   |     |     |	  |     |     |	|     |   |
;   |     |     |	  |     |     |	|     |   |
;    ---------------------------------------------
;     Bands ...		        Partial Band

;----------------------------------------------------------
;
; User selected portrait.
;
;    ---------------------------------
;   |	                  |
;   |	                  |	 Band
;   |	                  |
;    ---------------------------------
;   |	                  |
;   |	                  |	 Band
;   |	                  |
;    ---------------------------------
;   |	                  |
;   |	                  |	 Band
;   |	                  |
;    ---------------------------------
;   |	                  |
;   |	                  |	 Band
;   |	                  |
;    ---------------------------------
;   |	                  |	 Partial Band
;    ---------------------------------
; 
;

	pha	; Space udivide for	result
	pha

	lda hprint+prStl+wDev ; look at portrait vs landscape mode
	and #f1
	bne use_v	; its portrait mode
	lda hprint+PrInfo+rpage+right
	pha
	lda hprint+PrXInfo+ibandH
	bra GotBandSize
use_v	lda hprint+PrInfo+rpage+bottom
	pha
	lda hprint+PrXInfo+ibandV
GotBandSize	pha


	lda hprint+prStl+wDev ; test if 50% first
	and #f3	;
	beq normal
	lda hprint+prStl+wDev ; now look at best vs faster mode
	and #f0	;
	beq normal
	lda 3,s	; for best mode we double size
	asl a
	sta 3,s
normal		; 
	lda 3,s
	sta LinesPerPage	; store total # per	page
	clc
	adc 1,s
	dec a
	sta 3,s
	_Udivide
	pla
	plx

	sta hPrint+PrXinfo+iBands ; and store result in print rec
	ldy #itotbands	; and in the status	record.
	sta [PZ_PrStatus],y


;----------------------------------------------------------
;
; on joue un peu aussi a mettre au point les qualites d'impression
; en triturant wDev	avec f0 f1 f2 f3 f4	...
;
; mise a jour de CiDev a faire
;

;----------------------------------------------------------
;
; Set the curcopy field in the status record to one.
;

	lda #1
	ldy #icurcopy
	sta [PZ_PrStatus],y



;----------------------------------------------------------
;
; Start the outer loop for copies.
;
newCopy		; 


;----------------------------------------------------------
;
; Set the value of current page in the status record.
; ( demarre une nouvelle page )
;
	lda #1
	ldy #icurpage
	sta [PZ_PrStatus],y


;----------------------------------------------------------
;
; Start the new page loop
;
XnewPage		; 
	ldy #iCurPage
	lda [PZ_PrStatus],y
	jsr CalcPageBandNum
	lda PageBandnum
	sta BandModeNum

	jsl CallIdleProc

;----------------------------------------------------------
;
; Get the handle to	the picture associated with the current
; page.
;
	lda [hPicList]	; first deref the pic list
	sta pPiclist
	ldy #2
	lda [hPicList],y
	sta pPicList+2

	ldy #iCurpage	; now get the current page number
	lda [PZ_PrStatus],y
	dec a	; dec by one and mult by 4
	asl a
	asl a
	tay	; use as index into	table
	lda [pPicList],y
	sta hnewPic
	iny
	iny
	lda [pPicList],y
	sta hNewPic+2

;----------------------------------------------------------
;
; Set the dirty flag in the status record to false.
;
	lda #false
	ldy #fPgDirty
	sta [PZ_PrStatus],y

;----------------------------------------------------------
;
; Check the paper feed type, if user chose manual feed,
; put up the alert to insert the next sheet of paper
;
	lda hprint+PrStl+Feed
	cmp #feedcut
	bne NoAsk	; automatic feed

	jsr InsertPaperAlert ; put up alert for	manual feed
	cpx #2	; item hit is returned in X reg
	bne ReDraw	; 2 is ID of Cancel
	brl EndOfPrinting

ReDraw	jsl DrawPrintStr	; redraws 'Printing in Progress...'

NoASK		; 


;------------------------------------------------------------
;
; Call the idle proc again.
; 
	jsl CallIdleProc


;----------------------------------------------------------
;
; Calculate the first band rect. The top and left of this
; band is top and left of rPage, bottom	is top plus iBandH,
; and right is left	plus iBandV. iBandH	and iBandV is pre-
; calculated in CiXmetrics based on portrait or landscape.
;
* Top
	lda hPrint+PrInfo+rPage+Top
	sta rBand+Top

* Bottom
	clc
	adc hPrint+PrXInfo+iBandV
	sta rBand+Bottom

* left
	lda hPrint+PrInfo+rPage+Left
	sta rBand+Left

* right
	clc
	adc hPrint+PrXInfo+iBandH
	sta rBand+Right

	lda hprint+PrStl+Wdev ; test is we are in 50% landscape
	and #f3
	bne nocorrection
	lda hprint+PrStl+Wdev
	and #f1
	bne nocorrection
	lsr rBand+top	;should be 0 however
	lsr rBand+Bottom	;to be consistent with CiMetrics
nocorrection		; 

;----------------------------------------------------------
;
; Now we really setup the band loop and	get to it.
;
; Set current band to one in status record.
;
	lda #1
	ldy #iCurBand
	sta [PZ_PrStatus],y

	lda LinesPerPage
	sta LinesLeftOnPage	; initialize # of line to be printed	            
	sta Page_remain
	jsr CalcModeRemain

;----------------------------------------------------------
;
; New Band Loop
;
newMode		; 
newBand		; 

;------------------------------------------------------------
;
; This seems to be the only place inside the printing loop
; that we call idle	proc.  Why do we bother with the
; dirty flag and imaging flag if there is no way idle proc
; can see them?
; 


	jsl CallIdleProc

;----------------------------------------------------------
;
; Set imaging and dirty page flags in status record.
;
	lda #True
	ldy #fImaging
	sta [PZ_PrStatus],y
	ldy #fPgDirty
	sta [PZ_PrStatus],y

;----------------------------------------------------------
;
; Open the band port.
;
	PushLong #BandPort
	_OpenPort

;------------------------------------------------------------
;
; Start adjusting the fields in the loc	info.
;

	lda SCBValue
	and #$80
	sta BandLoc
	lda pPrBuf
	sta BandLoc+2
	lda pPrBuf+2
	sta BandLoc+4
	lda hPrint+PrXInfo+iRowBytes
	sta BandLoc+6

;----------------------------------------------------------
;
; Look at the number of lines left on the page.
; If it is less than the size of a band, we must
; reduce the size of the band rect.
;
; We use the variable LinesLeftOnPage to tell us how
; many lines are left on the page.  It was intialized
; above when we calculated the number of bands.
;
; So even if we do not adjust the band rect, we
; update LinesLeftOnPage for next time through the
; loop.
;
	lda hPrint+prStl+wDev
	and #f1
	bne trans0	; Portrait

; landscape
	lda LinesLeftOnPage	; look at num lines	remaining
	cmp hprint+prXinfo+ibandH ; compare to band height
	bge sub_1	; its bigger so no adjustment
	lda LinesLeftOnPage	; Use LinesLeftOnPage to adjust
	clc	; the right of the band rect
	adc rBand+left
	sta rBand+right
Sub_1	lda LinesLeftOnPage	; now we adjust LinesLeftOnPage
	sec	; by subtracting the number of
	sbc hprint+prXInfo+ibandH ; lines we will print for
	sta LinesLeftOnPage	; this band.
	bra trans

; Portrait        
trans0	lda LinesLeftOnPage	; look at num lines	remaining
	cmp hprint+prXinfo+ibandV ; compare to band width
	blt sub_2	; its bigger so no adjustment
	lda hprint+prXinfo+ibandV ; compare to band width
Sub_2	clc	; the bottom of the	band rect.
	adc rBand+top
	sta rBand+bottom
	lda LinesLeftOnPage	; now we adjust LinesLeftOnPage
	sec	; by subtracting the number
	sbc hprint+prXInfo+ibandV ; of lines we	will print
	sta LinesLeftOnPage	; for this band.
trans		; 

;----------------------------------------------------------
;
; Prepare the sizing rect based on the mode: best or faster
;
	MoveRect hPrint+PrInfo+rPage,SizingRect
	lda hprint+prStl+wdev ; check if 50% is	on first
	and #f3	; cuz we don't care about the
	beq NormalSize	; resolution at this point
	lda hprint+prStl+wdev ; if not, then we	look at
	and #f0	; whether Better Text or Color
	beq NormalSize
	asl SizingRect+4
	asl SizingRect+6
NormalSize		; 

;----------------------------------------------------------
;
; Copy the band rect to the bounds rect	of the LocInfo.
;

	ldx #6
tbandrect	lda rband,x
	sta BandLoc+8,x
	dex
	dex
	bpl tbandrect

;----------------------------------------------------------
;
; Set various and interesting fields in	the band
; graf port.
;
	PushPtr BandLoc	; Set the loc info
	_SetportLoc

;----------------------------------------------------------
;
; Set the PortRect to the band rect too.
;

	PushLong #rBand
	_setportrect

;----------------------------------------------------------
;
; Set the cliprgn and visrgn to the sizing rect.
;
	PushLong #SizingRect ; set clip rgn to
	_cliprect

	pushlong #0	; and the vis rect!
	_getcliphandle
	_setvisrgn

;----------------------------------------------------------
;
; Fill the band rect with white.
;
	PushLong #rBand	; fill the band with white.
	PushLong #White
	_FillRect
;----------------------------------------------------------
;
; Draw the picture
;
	PushLong hNewPic
	PushLong #SizingRect
	_drawpicture


;----------------------------------------------------------
;
; Print it.
;
	pushptr bandport
	PushLong #rBand
	pushword UserID
	jsl LLDBitmap


;----------------------------------------------------------
;
; Close the band port.
;

	PushPtr BandPort
	_ClosePort


;----------------------------------------------------------
;
; Clear the imaging	flag.
;

	lda #false
	ldy #fImaging
	sta [PZ_PrStatus],y

;----------------------------------------------------------
;
; Calculate the next band position.  Different for
; portrait vs landscape.
;
	lda hPrint+prStl+wDev
	and #f1
	bne addv

; Landscape
	lda rBand+left
	clc
	adc hPrint+PrXInfo+iBandH
	sta rBand+left

	lda rBand+right
	clc
	adc hPrint+PrXInfo+iBandH
	sta rBand+right

	bra Added

; Portrait
addV		; 
	lda rBand+Bottom
	sta rBand+Top
added		; 


;----------------------------------------------------------
;
; See if we are done.
;


	ldy #iCurband	; bump cur band and	put back
	lda [PZ_PrStatus],y
	inc a
	sta [PZ_PrStatus],y

;            dec  a	                  ;	dec by one
;            ldy  #iTotBands          ;	and compare to total bands
;            cmp  [PZ_PrStatus],y
;            bcs  noMoreBands         ;	greater or equal and we are done.
	lda linesleftonpage
	beq nomoreBands
	bmi nomoreBands
	brl NewBand	; else new band

nomoreBands		; 
	jsr detectnewmode
	bcc alldone
	brl newmode
alldone		; 
;----------------------------------------------------------
;
; Check if printing	with gap or no gap,	don't send form feed
; if no gap is chosen 

	lda hPrint+prStl+wDev
	and #f6
	beq NoFormFeed	; 0 is no gap

	jsl newpage

;----------------------------------------------------------
;
; Bump page count
;

NoFormFeed	ldy #iCurPage	; bump curpage
	lda [PZ_PrStatus],y
	inc a
	sta [PZ_PrStatus],y	; and put back

	dec a
	ldy #iTotPages	; look at total pages
	cmp [PZ_PrStatus],y	; compare to curpage
	bcs NoMorePages
	brl XnewPage
NoMorePages		; 

;----------------------------------------------------------
;
; Bump copy count.
;
	ldy #iCurCopy
	lda [PZ_PrStatus],y
	inc a
	sta [PZ_PrStatus],y

	dec a
	ldy #iTotCopies
	cmp [PZ_PrStatus],y
	bcs NoMoreCopies

	brl newCopy
nomoreCopies		; 


;----------------------------------------------------------
;
; This is where we go if idle proc gets	tells us to quit.
;
	EXPORT EndOfPrinting
EndOfPrinting		;       

	pushword UserID
	jsl LLDShutDown

	rts

hNewPalette	DC.L paletteData
paletteData	DS.B $20

Page_Remain	DS.B 2
BandModeNum	DS.B 2
nextbottom	DS.B 2
newSCB	DS.B 2
oldSCB	DS.B 2
PageBandNum	DS.B 2

	EXPORT CurLLDMode
CurLLDMode		;       
	DS.B 2
	
;------------------------------------------------------------------------------
;
; NAME:        CalcModeRemain
;
; PURPOSE:     Calculate the mode that remains
;
; PASSED:      NONE
;
; RETURNED:    NONE
;
;------------------------------------------------------------------------------
*= set up a new band remain for the current mode.
* update also the page remain by the difference.

CalcModeRemain		; 
	lda newscb	;get the new scan control byte
	eor #$0f
	sta oldScb	;update as the old one
	jsr detectnewmode	;see if its a new mode
	rts

;------------------------------------------------------------------------------
;
; NAME:        DetectNewMode
;
; PURPOSE:     Detects if a mode change	occurs and sets things up appropriately
;
; PASSED:      NONE
;
; RETURNED:    (Carry)	CLEAR, no change or	done
;		SET, change
;
;------------------------------------------------------------------------------
detectnewmode		; 
; si BandModeNum= num de la list
; ou pas de list
; ou landscape
; alors clc
; sinon setup the new values and return	sec.

	lda hprint+prStl+wDev
	and #f1
	beq EscapeDone
; ok it is portrait 
	lda Page_remain
	beq EscapeDone
; test if there is a SCBList
	lda hPrint+PrXInfo+SCBList
	sta Temp1
	lda hPrint+PrXInfo+SCBList+2
	sta Temp1+2
	ora Temp1
	beq EscapeDone
	lda BandModeNum
	cmp [Temp1]
	blt goodenough
EscapeDone	clc
	rts
EscapeDone1	pla
	clc
	rts

goodenough		; 
	pha
	pha
	pha
	lda #$24	;each entry is $24
	pha
	_multiply
	ply
	pla
	iny	;pass over the length
	iny
	lda [Temp1],y
	sta nextbottom
	iny
	iny
	lda [Temp1],y
	phy
	tax
	xba
	and #$ff
	ldy #icurpage
	cmp [PZ_PrStatus],y
	bne EscapeDone1
	txa
	and #$ff
	sta newSCB
; read palette.
	ply
	iny
	iny

	ldx #0
looppall	lda [Temp1],y
	sta palettedata,x
	iny
	iny
	inx
	inx
	cpx #$20
	bne looppall

; compare with old scb and update width	and lld mode
	lda newscb
	eor oldSCB
	and #$80
	beq setPalette
; we changed mode (320-640)
; update LLD
	lda CurLLDMode
	ora #1	;set 640
	ldx NewSCB
	cpx #$80
	bge ok640
	and #$fffe
ok640	pha
	pushword UserID
	jsl LldSetQuality	;set the mode
; update the Width.
	lda NewScb
	cmp #$80
	bge do640
; now 320
	lsr hPrint+PrXInfo+iBandH
	bra setpalette
do640	asl hPrint+PrXInfo+iBandH
setpalette		; 
	Pushlong hNewPalette
	Pushword #0
	Pushword UserId
	jsl lldsetcolor

; ok now calculate the new BandRemain.
	inc BandModeNum
; test if double sized, so double new bottom.
	lda hprint+prStl+wDev
	and #f0
	beq easy1
	asl nextbottom
easy1		; 
	lda nextbottom
	sec
	sbc rband+top
	beq goAgain
	bge more1
goAgain	brl detectnewmode
more1	cmp Page_Remain
	blt more2
	lda Page_Remain
more2	sta linesleftonpage
	lda Page_Remain
	sec
	sbc linesleftonpage
	sta Page_Remain
; update old SCB
	lda newSCB
	sta oldSCB
	sec
	rts
	
;------------------------------------------------------------------------------
;
; NAME:        CalcPageBandNum
;
; PURPOSE:     Calculates the number of	page bands
;
; PASSED:      NONE
;
; RETURNED:    NONE
;
;------------------------------------------------------------------------------
CalcPageBandNum		; 
	pha
	stz PageBandNum	;default is failed
	lda hPrint+PrXInfo+SCBList
	sta Temp1
	lda hPrint+PrXInfo+SCBList+2
	sta Temp1+2
	ora Temp1
	beq Loose
; on va parcourir la list et s'arreter sur la premiere valeur
; correspondant a cette page.
	lda [temp1]
	bne win
loose	pla
	rts

win		; 
	tax
	lda Temp1
	clc
	adc #2
	sta Temp1
	bcc noInc2
	inc Temp1+2
noInc2		; 
	txa
loop		; 
	pha
	ldy #2
	lda [temp1],y
	xba
	and #$ff
	cmp 3,s
	blt more
	beq found
	pla
	pla
	rts	;page num too big

found	pla
	pla
	rts
more		; 
	lda Temp1
	clc
	adc #$24
	sta Temp1
	bcc noInc
	inc Temp1+2
noInc	inc PageBandNum
	pla
	dea
	bne loop
	pla
	rts

	ENDP
	
;------------------------------------------------------------------------------
*
* NAME:        StartLLD
*
* PURPOSE:     Shared routine to startup the low level routines.
*
* PASSED:      NONE
*
* RETURNED:    NONE
*
;------------------------------------------------------------------------------
	EXPORT startLLD
startLLD	PROC
*              using   PrtRecordEqu
*              using   MainData
*              using   PrtRecordDflt

;
;First calculate zero page area for low	level routines.
;
	tdc	give lld our zero page
	clc
	adc #$100	;add $100 for next zero page
;NOTE: low level zero page is $100 above current zero page
	pha
	pushword UserID
	jsl LLDStartup	;startup low level routines

* set paper rect for the LLD
	stz LLD_PaperRect	;zero it
	stz LLD_PaperRect+2

	PushLong #0
	PushLong #0
	lda hPrint+PrStl+iPageV
	pha
	lda #6
	pha
	_multiply
	pla
	plx
	pha
	lda #5
	pha
	_Udivide
	pla
	sta LLD_PaperRect+4
	pla

	PushLong #0
	PushLong #0
	lda hPrint+PrStl+CRwidth
	pha
	lda #4
	pha
	_multiply
	pla
	plx
	pha
	lda #3
	pha
	_Udivide
	pla
	sta LLD_PaperRect+6	;equals CRwidth*4/3
	pla
;
;Set the low level Page Rectangle
;
	pushptr LLD_PaperRect
	pushword UserID
	jsl LLDSetPageRect

* set quality for the printer

	pushword #%0000000000000001 high color
	lda hprint+prStl+wdev ;see if 2x zoom
	and #f3
	beq hires	;branch if 2x

	lda hprint+prStl+wdev ;see if high resolution
	and #f0
	beq size2	;branch if not high	resolution
hires	pla
	pushword #%0000000000000011 high res

size2		; 
	lda hPrint+prStl+wDev ;see if portrait
	and #f1
	bne portrait2	;branch if portrait
	pla
	ora #$4000	landscape
	pha
portrait2		; 
;------------------------------------------------------------------------
;
; Check if Condensed vertically
;
	lda hprint+prstl+wdev
	and #f2
	bne Vsizing	; yes
	pla
	ora #$2000
	pha

Vsizing		; 
	lda SCBValue
	and #$80
	bne lld640
	pla
	and #$fffe	mode320 for lld
	pha

lld640

; ignore color stuff
; 
;	lda hPrint+prStl+wDev ;see if color/bw
;	and #f5
;	bne Color	;branch if color
;	pla
;	and #$7fff	;is b/w
;	pha
;Color		; 
	
	lda 1,s	;get mode
	sta curLLDMode	;save for CurLLDMode

	pushword UserID
	jsl LldSetMode	;set low level mode

	Pushlong hpalette
	Pushword #0
	Pushword UserId
	jsl lldsetcolor	;set the color

	rts

hpalette	DC.L $e19e00

	ENDP

	
;------------------------------------------------------------------------------
*
* NAME:        PrAbortCheck
*
* PURPOSE:     This	is the routine that	is the default idel	proc. if the user
*              doesn't specifiy one in the print record.
*
* PASSED:      NONE
*
* RETURNED:    NONE
*
;------------------------------------------------------------------------------
	EXPORT PrAbortCheck
PrAbortCheck	PROC	;should be in scc68k
*              using   MainData
*              Using DialogData

more		; 
	PushWord #0
	PushWord #$0408	KeyDown
	PushPtr EventRecord
	_getNextEvent
	pla
	beq bye
	lda evtmsg
	cmp #$2E
	bne more
	lda evtmods
	and #$0100
	beq more

	lda #iPrAbort
	sta iPrErr
bye	rtl

	ENDP
;------------------------------------------------------------------------------
*
* NAME:        CallIdleProc
*
* PURPOSE:
* This routine calls the idle proc given in the print record.
* Upon return, it checks iPrErr.  If it	is not zero we do not
* return to calling	routine.
*
* PASSED:      NONE
*
* RETURNED:    NONE
*
;------------------------------------------------------------------------------
	EXPORT CallIdleProc
CallIdleProc	PROC

	jsl CallIt	;actually call the idle proc routine
	lda iPrErr
	beq Done

;--------------------------------------------------------------
;
; If user wanted to	quit we should eject current page if nothing
; has been printed on it yet.
;
	ldy #fPgDirty
	lda [PZ_PrStatus],y
	beq dontEject	; if not dirty, don't eject

	jsl NewPage

dontEject	phb	; 3 bytes on stack this makes 4
	plx	; now pull off 4
	plx
	brl EndOfPrinting

Done	rtl
	
;------------------------------------------------------------------------------
;
; NAME:        CallIt
;
; PURPOSE:     This	routine sets up the	stack so that it will rtl to the
;              idle	proc (which was specified in the print record, or the
;              default one).
;
; PASSED:      NONE
;
; RETURNED:    NONE
;
;------------------------------------------------------------------------------
	EXPORT Callit

CallIt		; 
	lda hPrint+PrJob+pIdleProc+1 ;get the idel proc. addr.
	pha	;push onto the stack
	phb
	lda hPrint+PrJob+pIdleProc
	dec a
	sta 1,s	;push the rest of the addr.
	rtl	;rtl to the idle proc. routine

	ENDP
	
;------------------------------------------------------------------------------
*
* NAME:         LLDIdleProc
*
* PURPOSE:
* This routine calls the idle proc given in the print record from low level
* routines. Upon return, it checks iPrErr. If it is not zero we do not
* return to calling	routine. This routine does more work than CallIdleProc
* since D page swapping and proper stack cleanup is handled here.
*
* PASSED:       NONE
*
* RETURNED:  NONE
*
;------------------------------------------------------------------------------
LLDIdleProc	PROC EXPORT

	phd	; save direct page 
	lda ZeroPage	; switch in high level driver's
	tcd
	
	jsl CallIt	;actually call the idle proc routine
	lda iPrErr
	beq Done

;--------------------------------------------------------------
;
; If user wanted to	quit we should eject current page if something
; has been printed on it already.
;
	ldy #fPgDirty
	lda [PZ_PrStatus],y
	beq dontEject	; if not dirty, don't eject

	jsl NewPage	; spit out page
dontEject	
	lda stackLoc	; if stackloc is zero, then we are in draft
	beq Done	; or PrPixelMap, go out normally
	plx	; we already have high level driver's D page
	tcs	; put stack pointer back to the same level as if
	brl EndOfPrinting	; this was called in the high level and go away

Done	pld	; restore direct page
	rtl
	
	ENDP

;------------------------------------------------------------------------------
*
* NAME:        InsertPaperAlert
*
* PURPOSE:     Alert Box for manual feed; to let user know the next sheet of
*              paper should be inserted.
*
* PASSED:      NONE
*
* RETURNED:    NONE
*
;------------------------------------------------------------------------------
	EXPORT InsertPaperAlert
InsertPaperAlert	PROC
 
	_InitCursor	; set cursor to arrow

	pha	; make room for result
	_GetMasterSCB
	pla
	pha	; make room for result of alert call 
	and #$80	; check mode 
	beq mode320	; 320 mode

	pushlong #alerttemp640 ; use 640 mode template
	bra GoOn

mode320	pushlong #alerttemp320 ; use 320 mode template

GoOn	pushlong #$0000
	_Alert

;------------------------------------------------------------
;
; Get the current cursor record's address and turn on the watch cursor.
;

	PushLong #0	; space for the address
	_GetCursorAdr
	pla
	sta CursorAd
	pla
	sta CursorAd+2

	_WaitCursor	; set to watch again

	plx	; get the item hit off stack

	rts


	ENDP

	END

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/Epson/epson.macros b/IIGS.601.SRC/GSToolbox/PrinterDrivers/Epson/epson.macros
new file mode 100644
index 0000000..846e3f1
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/Epson/epson.macros
@@ -0,0 +1 @@
+ MACRO
&Lab _Names &MyName
 bra Skip&SysCnt
 dc i1'$42'
 dc i1'L:&MyName'
 msb on
 dc c'&MyName'
 msb off
Skip&SysCnt Anop
 Mend
 MACRO
&lab _PmGetPrinterName
&lab ldx #19+256*40
 jsl $E10000
 MEND
 MACRO
&lab _PmGetPortName
&lab ldx #19+256*41
 jsl $E10000
 MEND
 MACRO
&lab _PrDevPrChanged
&lab ldx #19+256*25
 jsl $E10000
 MEND
 MACRO
&lab _PrDevOpen
&lab ldx #19+256*28
 jsl $E10000
 MEND
 MACRO
&lab _PrDevRead
&lab ldx #19+256*29
 jsl $E10000
 MEND
 MACRO
&lab _PrDevWrite
&lab ldx #19+256*30
 jsl $E10000
 MEND
 MACRO
&lab _PrDevClose
&lab ldx #19+256*31
 jsl $E10000
 MEND
 MACRO
&lab _PrDevStatus
&lab ldx #19+256*32
 jsl $E10000
 MEND
 MACRO
&lab _PrDevInitBack
&lab ldx #19+256*33
 jsl $E10000
 MEND
 MACRO
&lab _PrDevFillBack
&lab ldx #19+256*34
 jsl $E10000
 MEND
 MACRO
&lab _ckError
&lab bcc @1
 dc.b 0,$4c			; brk $4c
@1
 mend
 MACRO
&lab _DevIsItSafe
&lab ldx #19+256*48
 jsl $E10000
 MEND
 MACRO
&lab MoveRect &Src,&Dest
&lab lda &Src
 sta &Dest
 lda &Src+2
 sta &Dest+2 
 lda &Src+4
 sta &Dest+4
 lda &Src+6
 sta &Dest+6
 MEND

	MACRO
&lab	PushPtr &addr
&lab
	dc.B $F4
	dc.W (&addr)>>16
	dc.B $F4
	dc.W &addr
	MEND

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/Epson/makefile b/IIGS.601.SRC/GSToolbox/PrinterDrivers/Epson/makefile
new file mode 100644
index 0000000..b49497f
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/Epson/makefile
@@ -0,0 +1 @@
+### Dependancies for Epson driver
epson			Ä		epson.asm.obj			¶
							dialogdata.asm.obj
	LINKIIGS epson.asm.obj dialogdata.asm.obj -o epson -t $BB -at $0001
							
### Dependancies for epson.asm.obj
epson.asm.obj 			Ä 		epson.asm				
	ASMIIGS  epson.asm
	
### Dependancies for dialogdata.asm.OBJ
dialogdata.asm.obj	Ä		dialogdata.asm
	ASMIIGS dialogdata.asm
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/GraphiCard/dialogdata.asm b/IIGS.601.SRC/GSToolbox/PrinterDrivers/GraphiCard/dialogdata.asm
new file mode 100644
index 0000000..05f54ac
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/GraphiCard/dialogdata.asm
@@ -0,0 +1 @@
+	STRING ASIS
	BLANKS OFF

**********************************************************************
*
*	GraphiCard Driver version 2.0
*   	Copyright Apple Computer, Inc. 1986-1989
*	All rights reserved.
*
**********************************************************************

	MACRO
&lab	str &string
	EXPORT &lab						; export the label
	LCLC &EIB						; declare a temporary var to hold current string setting
&EIB	SETC &SETTING('STRING') ; put current string setting into temp
	STRING PASCAL					; Set string type to pascal.
&lab	DC.B	&string 				; make the string
	STRING &EIB 					; restore orig string settings
	MEND

;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

	ENTRY But1
	ENTRY Msg1_320
	ENTRY Msg1_640
	ENTRY item1_320
	ENTRY item1_640
	ENTRY item2_320
	ENTRY item2_640
	
	INCLUDE 'e16.dialog'

	EXPORT DialogData
DialogData	PROC
;------------------------------------------------------------
;
; data used by manual feed alert box
;

;------------------------------------------------------------
;
; 640 mode
; 
	EXPORT alerttemp640
alerttemp640	DC.W 30,40,75,600	; bounds rect
	DC.W 1301	; id
	DC.B $80
	DC.B $80
	DC.B $80
	DC.B $80
	DC.L item1_640	; Continue
	DC.L item2_640	; text
	DC.L 0000


	EXPORT item1_640
item1_640	DC.W 1	; id
	DC.W 22,470,0,0	; bounds rect for button
	DC.W ButtonItem	; type
	DC.L But1	; item descriptor -	'Continue'
	DC.W 00	; item value
	DC.W 0	; item flag
	DC.L 0	; item color

	EXPORT item2_640
item2_640	DC.W 2	; id
	DC.W 3,100,43,400	; bounds rect for button
	DC.W LongStatText	; type
	DC.L Msg1_640	; item descriptor
	DC.W Len_Msg1_640	; item value
	DC.W 0	; item flag
	DC.L 0	; item color


	EXPORT But1
But1	str 'OK'
	EXPORT Msg1_640
Msg1_640	DC.B $0d
	DC.B 'The Print Manager cannot find a parallel'
	DC.B $0d
	DC.B 'card with which it can work.'
Len_Msg1_640	equ *-Msg1_640

;------------------------------------------------------------
;
; 320 mode
; 
	EXPORT alerttemp320
alerttemp320	DC.W 30,10,95,310	; bounds rect
	DC.W 1301	; id
	DC.B $80
	DC.B $80
	DC.B $80
	DC.B $80
	DC.L item1_320	; Continue
	DC.L item2_320	; text
	DC.L 0000


	EXPORT item1_320
item1_320	DC.W 1	; id
	DC.W 45,235,0,0	; bounds rect for button
	DC.W ButtonItem	; type
	DC.L But1	; item descriptor -	'Continue'
	DC.W 00	; item value
	DC.W 0	; item flag
	DC.L 0	; item color

	EXPORT item2_320
item2_320	DC.W 2	; id
	DC.W 3,55,63,225	; bounds rect for text
	DC.W LongStatText	; type
	DC.L Msg1_320	; item descriptor
	DC.W Len_Msg1_320	; item value
	DC.W 0	; item flag
	DC.L 0	; item color


	EXPORT Msg1_320
Msg1_320	DC.B $0d
	DC.B 'The Print Manager'
	DC.B $0d
	DC.B 'cannot find a parallel'
	DC.B $0d
	DC.B 'card with which it'
	DC.B $0d
	DC.B 'can work.'
	DC.B $0d
Len_Msg1_320	equ *-Msg1_320



	ENDP


	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/GraphiCard/graphicard.asm b/IIGS.601.SRC/GSToolbox/PrinterDrivers/GraphiCard/graphicard.asm
new file mode 100644
index 0000000..cb5cd1c
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/GraphiCard/graphicard.asm
@@ -0,0 +1 @@
+	STRING ASIS
	BLANKS OFF
	
*****************************************************************
*
*                     The Print Manager 
*                  GraphiCard Driver  V2.0
*
* May 1988
*    This driver is originally developed by StyleWare, Inc. using 
*    the Printer Port Driver v1.0 as its basis.
*
* v 1.0
* June 16, 1988         Suki Lee
*    Converted StyleWare's source from APW to MAX.
*    
* June 30, 1988         Suki Lee
*    Changed macros _ReadBlock and _WriteBlock to their new names:
*    _TextReadBlock and _TextWriteBlock. Eliminated need to use
*    Special.Macros.
*
* July 13, 1988         Suki Lee
*    Bug fix:
*       The routine IsItSafe checks the wrong bit for the card's
*       signature. Slot 1 always qualifies because the bit being
*       checked is for a device type of printer. The routine will
*       now look for $14, the specific signature of the GraphiCard.
*
* v2.0
* October 10, 1988    Suki Lee
*    Fixed DevStartUp to remove two pointers off the stack since the
*    same call in the AppleTalk driver uses two pointers as input.
*
* October 12, 1988    Eric Soldan
*    Changed driver to be as general and non-assuming as
*    possible.  There may be cards that can not be set such that
*    they do not try to interpret $89's as a special control
*    character.  If there is such a card, then part of the buffer
*    will be sent, then the control character will be changed
*    from an $89 to an $81, and then the process will be
*    repeated until an $81 is encountered.  This process is
*    repeated until the buffer is entirely sent.  After the
*    buffer is sent, then the special character is set back to
*    an $89.
*
* The "recommended way" to ID pascal and BASIC devices is:
*
* Pascal I.D bytes           CN05=38  CN07=18  CN0B=01  CN0C=ci
* Apple parallel intf card:  CN05=48  CN07=48
*
* December 16, 1988   Suki Lee
*    Added new header to denote this as a driver which will support 
*    new calls. This header is 2 words long: first word is 0 
*    followed by a call count word.
*
* January 18, 1989     Suki Lee
*    Removed DevInitBack since none of the code is used. Replaced it with DevAsyncRead
*    with the corrected number of parameters, 4 instead of 3. Renamed DevFillBack to
*    DevWriteBack and corrected the number of parameters from 2 to 3. Both these calls
*    currently do nothing and are not used by the printer drivers.
*    
* February 24, 1989    Suki Lee
*    Added code to check if the slot is set to external before checking its protocol
*    for Basic or Pascal device.
*
*****************************************************************

*****************************************************************
*
*                    Copyright 1986-1989
*                    Apple Computer, Inc.
*                    All Rights Reserved
*
*****************************************************************

;------------------------------------------
;
; Equates from procedure 
;
;------------------------------------------
VersionNb	equ $0200	; Version 2.0
NoError	equ 0	; No error
PortNotOn	equ $1302	; Port not active
True	equ $FFFF
False	equ $0000

ch	equ $24	; For ApplePic card.
ourch	equ $57B
cardFlags	equ $0778
col	equ $07F8

;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

	IMPORT alerttemp320
	IMPORT alerttemp640

;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

	ENTRY DevPrChanged
	ENTRY DevStartup
	ENTRY DevShutDown
	ENTRY DevOpen
	ENTRY DevRead
	ENTRY DevWrite
	ENTRY DevClose
	ENTRY DevStatus
	ENTRY DevAsyncRead
	ENTRY DevWriteBack
	ENTRY PrPortVer
	ENTRY DevIsItSafe

	ENTRY myTextWriteBlock
	ENTRY CallCompletion
	ENTRY Completion
	ENTRY IsItSafe
	ENTRY PortAlert
	ENTRY Exit10
	ENTRY Exit8
	ENTRY Exit6
	ENTRY Exit4
	ENTRY Exit0


	INCLUDE 'all.macros'

; private macro definition
	MACRO
&lab	PushPtr &addr
&lab
	dc.B $F4
	dc.W (&addr)>>16
	dc.B $F4
	dc.W &addr
	MEND



	EXPORT parallelCard
parallelCard	PROC

;-----------------------------------------------------------
;
; Header to denote new calls supported
;

	DC.W 0	; marker
	DC.W (EndProcList-ProcList)/4 ; count of calls supported

	jmp (ProcList,x)
	rtl
	
ProcList	DC.L DevPrChanged
	DC.L DevStartup
	DC.L DevShutDown
	DC.L DevOpen
	DC.L DevRead
	DC.L DevWrite
	DC.L DevClose
	DC.L DevStatus
	DC.L DevAsyncRead
	DC.L DevWriteBack
	DC.L PrPortVer
	DC.L DevIsItSafe	; new call added 16	apr 87
EndProcList

	EXPORT configedFlag
	EXPORT configSlot
	EXPORT sendAsIs
	EXPORT whichSlot
	EXPORT applePicCard
	EXPORT initGraphics
	EXPORT ApplePic
	EXPORT graphiCard

ConfigData
configedFlag	DC.W 0	;Configured flag.
configSlot	DC.W 0	;0 means scan.
whichSlot	DC.W 0	;The slot DevStartup determined.
applePicCard	DC.W 0

sendAsIs	DC.W 1	;Some cards MAY not recognize any special chrs.
initGraphics	DC.B 8
	DC.B 9
	DC.B 'N'
	DC.B 9
	DC.B 'K'
	DC.B 09	;8-bits
	DC.B 'H'
	DC.B 09	;Transparent mode.
	DC.B 'T'
	DC.L 0,0

ApplePIC	DC.W 0
	DC.B 7
	DC.B 9
	DC.B '2'
	DC.B '5'
	DC.B '5'
	DC.B 'N'
	DC.B 9
	DC.B 'K'
graphiCard	DC.W 1	;Grappler cards work with this.
	DC.B 8
	DC.B 9
	DC.B 'N'
	DC.B 9
	DC.B 'K'
	DC.B 09
	DC.B 'H'
	DC.B 09
	DC.B 'T'

	ENDP





***************************************************************
***************************************************************





***************************************************************
*
* DevPrChanged
* 
* Called by Printer	driver when it has been changed.  Gives
* us chance to tell	user there may be a	problem.
* 
***************************************************************
	EXPORT DevPrChanged
DevPrChanged	PROC

	jsr IsItSafe
	bcc Safe

	pha
	jsr PortAlert	; put up alert
	pla

Safe	jmp Exit4

	ENDP










***************************************************************
*
* DevStartup
*
*        LONG??? 
*
* Seems to do nothing.
* 
***************************************************************
	EXPORT DevStartup
DevStartup	PROC

	jsr IsItSafe
	jmp Exit8

	ENDP










***************************************************************
*
* DevShutDown
*
* Does even less than startup since it takes no inputs.
* 
***************************************************************
	EXPORT DevShutDown
DevShutDown	PROC

	jsr IsItSafe
	jmp Exit0

	ENDP










***************************************************************
*
* DevOpen
*
*     OpenCompletion   LONG
*     Reserved	   LONG
* 
***************************************************************
	EXPORT DevOpen
DevOpen	PROC
	DefineStack
DevOpen_DPage	word 0
DevOpen_BReg	byte 0
DevOpen_rtl1	block 3
DevOpen_rtl2	block 3
Reserved	long 0
OpenCompletion	long 0

	jsr IsItSafe
	bcc OpenSafe
	jmp Exit8

OpenSafe
	phd
	phb
	phk
	plb

	sta @slot

	lda OpenCompletion,s
	sta Completion
	lda OpenCompletion+2,s
	sta Completion+2
	PushWord #0
	PushLong @slot
	_setOutputDevice

	PushWord #$ffff
	PushWord #0
	_setoutGlobals

	PushWord #1
	_inittextDev
	PushPtr InitGraphics+1
	pushword #0
	lda InitGraphics
	and #$00ff
	pha
	_TextWriteBlock
	lda applePicCard
	beq @a
	ldx whichSlot
	lda >cardFlags,x
	and #$FF7F	; Turn off vid-also.
	sta >cardFlags,x
@a	jsl CallCompletion
	plb
	pld
	jmp Exit8

@slot	DS.B 4

	ENDP










***************************************************************
*
* DevRead
*
*    Input
*       PtrToBuffer	  LONG
*       MaxToXfer	  WORD
*
*    Output
*       XferCount	  WORD
*
***************************************************************
	EXPORT DevRead
DevRead	PROC
	DefineStack
DevRead_DPage	word 0
DevRead_BReg	byte 0
DevRead_rtl1	block 3
DevRead_rtl2	block 3
ReadRqd	word 0	10
PtrReadBuf	long 0	12
readTrnsfrd	word 0	16

	jsr IsItSafe
	bcc ReadSafe
	jmp Exit6

ReadSafe 
	phd
	phb
	phk
	plb
	lda PtrReadBuf+2,s	;high word of buff addr
	pha
	lda PtrReadBuf+2,s	;low word
	pha
	lda PtrReadBuf+2,s
	tax
	lda #0
	pha	;offset
	phx	;size
	pha	;echo flag
	_TextReadBlock
	plb
	pld
	jmp Exit6

	ENDP










***************************************************************
*
* DevWrite
*
*      WriteCompletion   LONG
*      SrcBufPtr	     LONG
*      Length	     WORD
* 
***************************************************************
	EXPORT DevWrite
DevWrite	PROC
	DefineStack
DevWrite_DPage	word 0
DevWrite_BReg	byte 0
DevWrite_rtl1	block 3
DevWrite_rtl2	block 3
WriteLengths	word 0
WritePtrBuff	long 0
WriteCompletion	long 0

	jsr IsItSafe
	bcc WriteSafe
	jmp Exit10

WriteSafe 
	phd
	phb
	phk
	plb
	lda WriteCompletion,s
	sta Completion
	lda WriteCompletion+2,s
	sta Completion+2
	lda WritePtrBuff+2,s
	pha
	lda WritePtrBuff+2,s
	pha
	lda WriteLengths+4,s
	tax
	lda #0
	pha
	phx
	jsr myTextWriteBlock
	jsl CallCompletion
	plb
	pld
	jmp Exit10

	ENDP










***************************************************************
*
* DevClose
*
* Yet another useful routine. 
* 
***************************************************************
	EXPORT DevClose
DevClose	PROC

	jsr IsItSafe
	jmp Exit0

	ENDP










***************************************************************
*
* DevStatus
*
* Another highly functional call.
* 
***************************************************************
	EXPORT DevStatus
DevStatus	PROC

	jsr IsItSafe
	jmp Exit4

	ENDP



***************************************************************
*
* DevAsyncRead
*
*   CompletionRoutine   LONG
*   DataLength	    WORD
*   PtrToBuffer	    LONG
*
* output:
*    actual length read WORD
*
* Another really useful routine!
* 
***************************************************************
	EXPORT DevAsyncRead
DevAsyncRead	PROC
	DefineStack
AsyncRead_DPage	word 0
AsyncRead_BReg	byte 0
AsyncRead_rtl1	block 3
AsyncRead_rtl2	block 3
ReadBuffer	long 0
ReadLength	word 0
ReadComplete	long 0
ActualLength	word 0

	jsr IsItSafe
	bcc Yes 
	jmp Exit10

Yes	
	lda #0
	sta actualLength,s
			   
	jmp Exit10

	ENDP





***************************************************************
*	THIS FUNCTION NOT SUPPORTED YET !!!
*
* DevWriteBack
* 
*      Completion routine ptr   LONG
*      BufferSize	            WORD
*      BufferAddress            LONG
*
***************************************************************
	EXPORT DevWriteBack
DevWriteBack	PROC
	DefineStack
	
	jsr IsItSafe
	jmp Exit10 

	ENDP










***********************************
*
* PrPortVer 
*
* Returns version #	of currently installed port
*
************************************************************
	EXPORT PrPortVer
PrPortVer	PROC
	DefineStack
Rtl1	Block 3
Rtl2	Block 3
Version	Word 0

	lda #VersionNb
	sta Version,s

	lda #0
	jmp Exit0

	ENDP










***************************************************************
*
* DevIsItSafe
*
*    Output:  Safety    WORD    boolean
*
* 
* EntryPoint to driver from outside.
*
* Safety is true if	it is safe, false if not.
* 
***************************************************************
	EXPORT DevIsItSafe
DevIsItSafe	PROC
	DefineStack
RTL1	block 3
RTL2	block 3
Result	word

	jsr IsItSafe
	bcc Yes

	lda #False
	sta Result,s

GetOut	lda #0
	jmp Exit0

Yes	lda #True
	sta Result,s
	bra GetOut

	ENDP





***************************************************************
***************************************************************
***************************************************************
***************************************************************
***************************************************************
***************************************************************
***************************************************************
***************************************************************





	EXPORT myTextWriteBlock
myTextWriteBlock	PROC
strLen	equ 1
strOffset	equ strLen+2
textPtr	equ strOffset+2

	pla	;Handle stack frame rather oddly.
	sta @keepRts
	tdc
	sta @keepDirReg
	tsc
	tcd

	lda sendAsIs
	bne @dumpRest

	lda #$89
	sta @currentEsc

@dumpHunk	ldy strOffset
	ldx #0
@dh0	cpx strlen
	beq @dumpRest
	cpx #16	;There is a limit in the firmware -- 
	bcs @dumpAndSwitch	;  don't know why.
	lda [textPtr],y
	eor @currentEsc
	and #$007F	;Detect $09 or $89.
	beq @dumpAndSwitch
	inx
	iny
	bra @dh0

@dumpAndSwitch	ldy #4
@cloneStkFrame	lda 7,s
	pha
	dey
	bne @cloneStkFrame
	txa
	sta strLen,s	;Length for this segment.
	clc
	adc strOffset
	sta strOffset	;Next segment will start here.

	lda strLen
	sec
	sbc strLen,s
	sta strLen	;# of characters remaining for next pass.

	lda #0	;Don't let card think that we are
	sta >ch	;  printing a long line.
	ldx whichSlot
	sta >col,x

	_TextWriteBlock	;Dump...
	lda @currentEsc
	pha
	_WriteChar
	lda @currentEsc
	eor #8
	sta @currentEsc
	pha
	_WriteChar
	bra @dumpHunk

@dumpRest	_TextWriteBlock
	tay	;Keep error code.

	lda sendAsIs
	bne @exit

	lda @currentEsc
	cmp #$89
	beq @exit
	pha
	_WriteChar
	pea #$89
	_WriteChar

@exit	lda @keepDirReg
	tcd
	ldx @keepRts
	phx
	tya	;Error code.
	rts
@keepRts	DC.W 0
@keepDirReg	DC.W 0
@currentEsc	DC.W 0

	ENDP



	EXPORT CallCompletion
CallCompletion	PROC       
	lda Completion
	ora Completion+2
	bne doit
	Rtl
Doit 
	lda Completion+1
	pha
	phb
	pla
	lda Completion
	sec
	sbc #1
	pha
	rtl



	EXPORT Completion
Completion       
	DS.B 4

	ENDP





***************************************************************
*
* IsItSafe
*
* Common routine to	see if the device we want to deal with
* is switched in.
*
* If it is safe, a-reg is xet to zero and carry is clear.
* If it is NOT safe, a-reg is set to error code and carry is
*    set. 
* 
***************************************************************

	EXPORT IsItSafe
IsItSafe	PROC

	phb	;Save data bank reg.
	phk
	plb

	stz whichSlot	;To be determined.
	stz applePicCard	;Special stuff for our card.

	lda #$0002	; set the mask for slot 1 to start
	sta slotNumMask
	
* It seems that DevStartup should determine what slot, etc.,
* but it is currently not the first function to be called.
* DevIsItSafe is the first function.  If this is to change,
* then this function is the only safe place to put this
* initialization code, even though it will get done much
* more than necessary.

	ldx configSlot
	bne SLoop	;User says it is here.
	inx	;Do a scan for it.

SLoop	lda >$E0C02D	; slot state soft switch
	and slotNumMask	; check appropriate bit
	beq Internal	; bit cleared means internal, so move on
	
		; We're here, slot must be set to "Your Card"
	lda #0	;Shift slot # to high byte.
	txa
	xba
	tax

	sep #%00100000	; no full native mode
	longa off

	lda >$E0C005,x
	cmp #$48	;Basic device I.D.
	bne tryPascal
	cmp >$E0C007,x
	bne NotSlot
	inc applePicCard
	ldy #(ApplePic-ApplePic)

IsSlot	phx
	ldx #0
@s0	lda ApplePic,y
	sta sendAsIs,x
	iny
	inx
	cpx #11
	bcc @s0
	rep #%00100000	;Back to full native mode.
	longa on
	pla
	xba	;Put slot in acc
	tax
	sta whichSlot
	clc
	plb
	rts	;It is safe.

	longa off	;Branched to not in full native.
tryPascal	cmp #$38
	bne NotSlot
	lda >$E0C007,x
	cmp #$18
	bne NotSlot
	ldy #(graphiCard-ApplePIC)
	lda >$E0C00B,x
	cmp #1
	beq IsSlot	;This is a pascal device.

NotSlot	rep #%00100000	;Back to full native mode.
	longa on
	txa
	xba
	ldx configSlot
	bne NotSafe	;User said which slot to try.
	tax
Internal	asl slotNumMask	; adjust the mask for the next slot
	inx
	cpx #8
	bcc SLoop

NotSafe	sec
	plb
	rts


slotNumMask	DS.B 2	; mask for the slot soft switch

	ENDP




****************************************************************
*
* PortAlert
*
* Alert box to tell	user that the appropriate port is not turned
* on.
*
* no parameters on stack
*
****************************************************************
	EXPORT PortAlert
PortAlert	PROC

		;using DialogData

	_InitCursor	; restore cursor back to arrow

	pha	; make room for result
	_GetMasterSCB
	pla
	pha	; make room for result of alert call 
	and #$80	; check mode 
	beq mode320	; 320 mode

	pushlong #alerttemp640 ; use 640 mode template
	bra GoOn

mode320	pushlong #alerttemp320 ; use 320 mode template

GoOn	pushlong #$0000
	_StopAlert

;              jsr WaitCursor	; set to watch again

	pla	; get the item hit off stack

	rts


	ENDP





exitRoutines	PROC

	EXPORT Exit10
Exit10       
	tax
	lda 5,s
	sta 15,s
	lda 3,s
	sta 13,s
	lda 1,s
	sta 11,s
	tsc
	clc
	adc #10
	tcs
	bra exitZZ


	EXPORT Exit8
Exit8       
	tax	Standart 8 bytes input exit
	lda 5,s
	sta 13,s
	lda 3,s
	sta 11,s
	lda 1,s
	sta 9,s
	pla
	pla
	pla
	pla
	bra exitZZ


	EXPORT Exit6
Exit6       
	tax	Standart 6 bytes input exit
	lda 5,s
	sta 11,s
	lda 3,s
	sta 9,s
	lda 1,s
	sta 7,s
	pla
	pla
	pla
	bra exitZZ


	EXPORT Exit4
Exit4       
	tax	Standart 4 bytes input exit
	lda 5,s
	sta 9,s
	lda 3,s
	sta 7,s
	lda 1,s
	sta 5,s
	pla
	pla
exitZZ	txa

	EXPORT Exit0
Exit0       
	cmp #1	Standart 0 byte input exit
	rtl

	ENDP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/GraphiCard/makefile b/IIGS.601.SRC/GSToolbox/PrinterDrivers/GraphiCard/makefile
new file mode 100644
index 0000000..fbd2233
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/GraphiCard/makefile
@@ -0,0 +1 @@
+Parallel.Card		Ä		GraphiCard.asm.obj dialogdata.asm.obj ¶
						
	Linkiigs GraphiCard.asm.obj dialogdata.asm.obj -o Parallel.Card -t $BB -at $0002
	

GraphiCard.asm.obj	Ä		GraphiCard.asm 
	asmiigs GraphiCard.asm
	
DialogData.asm.obj	Ä		dialogdata.asm 
	asmiigs dialogdata.asm
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/GraphiCard/special.macros b/IIGS.601.SRC/GSToolbox/PrinterDrivers/GraphiCard/special.macros
new file mode 100644
index 0000000..3cd0ee4
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/GraphiCard/special.macros
@@ -0,0 +1 @@
+ MACRO
&lab _WriteBlock
&lab ldx #$1E0C
 jsl $e10000
 MEND
 MACRO
&lab _ReadBlock
&lab ldx #$230C
 jsl $e10000
 MEND
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/HP.DESKJET/README b/IIGS.601.SRC/GSToolbox/PrinterDrivers/HP.DESKJET/README
new file mode 100644
index 0000000..8c11144
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/HP.DESKJET/README
@@ -0,0 +1 @@
+
APPLE IIGS HP/TABASCO PRINTER DRIVER 1.0 	--		TECHNICAL DESCRIPTION (ERS)

Written by Ben Koning

August 1990



This is a printer driver for the HP DeskJet Plus (2277A).  It is a feature-
reduced printer driver, written in a very short time in order to get a driver out
to the public as soon as possible.

This driver contains all of the features of previous dumb-printer drivers, with
the following important exceptions:

	* No color, and arbitrary grayscale support.  Standard black and standard
		white must exist in standard color palette locations; otherwise, color
		to black/white mapping will be incorrect.
		
	* No landscape mode.
	
	* No draft ("text only") mode.
	
	* No reduction ("66% reduction", "33% reduction", etc) modes.
	
	* The PrPixelMap call does not support printing of a subset of a pixelmap.
		Only the LocInfo structure is considered; the source rect is ignored.



This driver breaks several rules which legitimate drivers must obide by:

	* It has a very minimal feature set.  Portrait only, no reduction modes, only
		one (high) quality mode.  Other printer drivers devote much code space,
		bug risks, and performance degradation in order to provide all permutations
		of features implied by any and all options on the printer.
		
	* It does not support Appletalk.  However, it does go through the print manager
		to access any direct-connect port driver that is installed.
		
	* It does not support color.
	
	* There is no notion of a separate Page Setup and Print Job Dialog.  Whether
		the application calls PrStlDialog or PrJobDialog, the same dialog, which
		includes a minimal set of options, appears.
	
	* It does not support Text/Draft Mode.  This mode is a fallacy; applications
		have no control over it anyway and it is ill-fitting in the toolbox
		environment.  Much code in other printer drivers is devoted to it.
		
	* It does not save up an entire document's PICT definitions just prior to
		playing it back during the PrPicFile call.  Pages are printed at PrClosePage
		time.
		
	* It looks at the internal structure of the PICT definition and attempts to
		relieve the DrawPicture call of the burden of clipping an entire page into
		the imaging buffer.
	
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/HP.DESKJET/RELEASE.NOTES b/IIGS.601.SRC/GSToolbox/PrinterDrivers/HP.DESKJET/RELEASE.NOTES
new file mode 100644
index 0000000..b38969f
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/HP.DESKJET/RELEASE.NOTES
@@ -0,0 +1 @@
+

APPLE IIGS
HP DESKJET PLUS PRINTER DRIVER
TESTING
CURRENT AND PREVIOUS RELEASE NOTES
BEN KONING





-----





D6		9-Aug-90		On System Disk 5.0.3D17 Final Candidate

The first time, and only the first time during the time the driver is
loaded into memory (until the app quits), a note alert is displayed
before the either the page setup or print job dialog (whichever is
selected the very first time by the user).

A4 paper metrics size was wrong, causing wraparound graphics on right
hand size.  Horizontal size was 132 16ths, changed to 136.





D5		8-Aug-90

Unable to fix clip/wraparound in some cases in AWGS/MSGS with
Megafonts document.  This is a fundamental problem with apps not
following the model correctly.  All major word processing applications
are not paginating based on the rPage/rPaper/iH/iVRes fields in the
print record; rather they paginate based on the printer type (iDev)
and paper type fields, assuming that the output device will always be
80x72 dpi, or an integer multiple thereof.  For the LaserWriter, which
isn't an even multiple of 80x72 dpi, the scaling is no problem, because
PostScript scales everything perfectly.  But for dumb printers which
have a scaling model other than 80x72 dpi, the scaling must be done
with QuickDraw.  When we try this, we're asking QuickDraw to scale
everything to 0.9375 of 1X/2X/4X.  The font manager gets it all wrong;
many bad things happen: text overwriting, missing data, etc.  The real
solution is of applications to be written correctly.  In the mean time,
I recommend we do NOT scale to 0.9375, and require that the user
adjust his right margin manually in order to prevent clipping off the
right side of the paper.  The other alternative is not to ship the
driver, but there won't be a fix forthcoming, not for 6.0, not ever.

An alert dialog box comes up after "OK" hit on PrJobDialog if 300dpi
has been selected on a machine with low memory.  The check is done with
the RealFreeMem call.  The dialog can appear after either the Job or the
Setup dialogs.  Threshold set on RealFreeMem < 512K.





D4		7-Aug-90

Fixed blank line in between every DrawPicture rendering-page-image
band.  Was due to us assuming that we can do band-align-by-1 just
because the HP can raster a single line at a time (not limited to at
least 16 or 24 like the IW or LQ).  However, QD patterns that alternate
also require alignment.  Therefore, the alignment factor has been
increased set at 8 instead of 1.





D3		6-Aug-90		Alpha candidate (with current feature set)

Source code has been included in projector source control system so as
to appear on system disk builds.  Added to build script and added to
installer scripts.

Most of the many different paper types have been removed.  The four
paper types that will be supported are US Letter, US Legal, European
A4 Letter, and #10 Envelope.

The vertical condense dialog box popup text has been changed slightly.

A hardcoded vertical line feed of 1/8" is now being performed to
vertically center the printed page, since we don't support gap/no gap.

There is a very serious problem where the printing model breaks down
because 75 dpi is not an even number.  In our metrics model, we must
provide the app with a value of 37.5 for iVRes.  Due to integer
calculations, we are giving 37 for this value.  This causes vertical
page metrics to be off: in DrawPlus, the vertical margins count up
too high, and it would be possible to go select VCondense and draw an
object which is flush to the bottom of the logical print area, and have
an unwanted page pop up.  "Fixed" by rounding iVRes down all the time.
This may be just a DrawPlus problem, and I have to see how the Laser-
Writer driver deals with this issue.

The imager is now aware of different paper types, including envelopes,
by means of ImagerSetPaperType call.

Fixed bug where we got an extra blank page in most cases.  Problem
was if the number of banding buffer passes in high level printloop is
greater than one, then we would get the extra page.  First, we weren't
initializing the Gap bit in wDev anymore--fixed; second, we weren't
calling ImagerSetLocInfo during the high level printloop's last-band
special-case set and during the restore ("lastbandheight")--fixed.

Limited PrPixelMap call testing has been performed.  This driver will
not support printing a subset of the given pixelmap; but no application
that I know of does this.  The one app I know of that uses PrPixelMap
is "Geometry".  (The PrPixelMap call is a way to cause printing other
than the standard printing loop--almost no one uses it).

Graytones in 320 mode have been improved by treating a 4-bit 320-pixel
as two concatenated 640-pixel.  Pure-black and pure-white still work
correctly, and for the values in between, an automatic dithering takes
place.  Result: arbitrary 320 graytones that look just as good as the
640 graytones.

Smart DrawPicture text clipping implemented.  Much less time spent in
"Rendering page image"; 72% speed improvement on a typical page full
of text.





D2		30-Jul-90		Developmental

This driver will be an HP DeskJet PLUS driver.  At the present time,
it seems impossible to communicate with Tabasco from a 'GS reliably
through straightforward means.

A competing driver seems to have come out from Bill Heineman.  His
version 0.8 appears to be very slow and does not seem to print 'GS
fonts at 300 dpi (effective).  However, it *is* full-featured, and
it is possible that a later version will print true 300 dpi effective.

Trivial imager calls complete and imager interface fully defined.

Imager pixel conversion/color pixel mapping method worked out,
implemented, and tested.  Dithering for non-black/white colors will
need some improvement.

Imager white-scanning and main converter loop implemented and tested.
All imager calls fully operational.

Imager compress-and-send routine implemented and tested.  The algorithm
seems to work perfectly, yet throughput is somewhat disappointing.

Code has been fully sanitized to be the HP DeskJet PLUS driver.

Next perfomance task is smart high-level quickdraw DrawPicture text
clipping.





E1		14-Jul-90		Experimental

New-model printloop calls, which manage high-level interface that
the application sees is working.  Verified operation with dummy imager.
Everything related to old drivers except incorrect-dev-dialog code/data
has been removed.  Imager interface fully defined.





E0		23-Jun-90		Experimental

See the file README for description.  This is an unauthorized skunk-
works project at this time.

Code converted over and much unnecessary stuff blindly removed.  All
code needs to be gone over carefully in time.

We need to: 1)establish 56K baud communication routines in the
communication.aii source file and test; 2) theoretically define the
structure in the printloop.aii source file; 3) begin to write the
imager.

It has now been decided to write this, at least first, as an HP
DeskJet driver.  Tabasco will only do 56K baud and it will be a while
until a 19.2K baud card is available for it.  Project seems to have
some semblance of blessing.  We will use the normal printer port
drivers, but network won't be supported.

It is unclear whether it is really possible to talk to Tabasco;
investigation will happen.  Project investigation now has backing.

User interface is complete.
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/HP.DESKJET/dialog.aii b/IIGS.601.SRC/GSToolbox/PrinterDrivers/HP.DESKJET/dialog.aii
new file mode 100644
index 0000000..5dfcbdd
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/HP.DESKJET/dialog.aii
@@ -0,0 +1 @@
+
******************************************************************************************
*                                                                                        *
*		Apple IIgs Printer Driver                                                        *
*                                                                                        *
*		File: dialog.aii -- Doing dialog boxes, thereby modifying user's print record    *
*                                                                                        *
*		Written by Ben Koning                                                            *
*		Copyright (C) 1990 Apple Computer, Inc.                                          *
*                                                                                        *
******************************************************************************************







							include		'equates.aii'



							include		'm16.util'
							include		'e16.quickdraw'
							include		'm16.quickdraw'
							include		'm16.qdaux'
							include		'e16.control'
							include		'm16.control'
							include		'e16.window'
							include		'm16.window'
							include		'm16.lineedit'
							include		'm16.intmath'
							include		'm16.dialog'
							include		'm16.menu'
							include		'e16.print'
							include		'm16.misctool'
							include		'm16.event'
							include		'm16.memory'



DialogProc					proc		export





*
*STATUS MESSAGE ROUTINES: StartStatusMessage/FinishStatusMessage/StatusMessage/StatusManFeedPrompt:
*
*These routines can display messages for the user.  After calling StartStatusMessage, calling
*StatusMessage with ACC pointing to a string will cause that string to be shown, centered,
*in a centered dialog box (640/320 mode automatically taken care of).  It is assumed that the
*message string resides in the current bank.
*
*StatusManFeedPrompt will put up a caution alert asking the user to insert the next sheet, to be
*numbered with the value given in ParamWordA.  Call FinishStatusMessage when done, erasing the
*dialog box.
*





*
*STARTSTATUSMESSAGE: Draw box used by "StatusMessage"; calc to prepare for "StatusMesgFeedPrompt":
*
							export		StartStatusMessage
StartStatusMessage			_WaitCursor							;put up wait cursor
							import		StatusWindowCoordX2		;modify dialog coordinates
							lda			StatusWindowCoordX2
							sec
							import		StatusWindowCoordX1
							sbc			StatusWindowCoordX1		;calc size (silly at runtime)
							sta			StatusWindowWidth		;save size
							pha									;result space for scb
							_GetMasterSCB
							pla
							ldx			#640					;assume 640 mode for a sec
							and			#$80					;look at mode bit (1=640, 0=320)
							bne			StMeMode640
							ldx			#320					;change assumption made above
StMeMode640					txa
							sec
							sbc			StatusWindowWidth		;acc now has [320|640] - (X2-X1)
							lsr a								;divide by two
							sta			StatusWindowCoordX1		;this is left coordinate of box
							import		ManFeedAlertTempCoordX1
							sta			ManFeedAlertTempCoordX1	;also for man feed alert template
							clc
							adc			StatusWindowWidth		;maintain proper size of box
							sta			StatusWindowCoordX2		;this is right coordinate of box
							import		ManFeedAlertTempCoordX2
							sta			ManFeedAlertTempCoordX2	;also for man feed alert template
							pha									;result space for window grafport...
							pha
							import		StatusWindowTemp
							pushlong	#StatusWindowTemp		;draw window from template
							_NewWindow							;this does NOT set current grafport!
							pulllong	StatusWindowPtr			;save our ticket to access the box
							lda			#1						;indicate it's ok to use it now
							sta			StatusWindowExists
							rts
														




*
*FINISHSTATUSMESSAGE: Removes the box displayed above; won't crash if called alone; normal cursor:
*
							export		FinishStatusMessage
FinishStatusMessage			lda			StatusWindowExists		;was it ever really drawn?
							beq			FiStExit				;if not, don't do CloseWindow
							pushlong	StatusWindowPtr			;erase window and dispose memory
							_CloseWindow
							_InitCursor							;remove wait cursor
							stz			StatusWindowExists		;it's gone now
FiStExit					rts





*
*STATUSMESSAGE: Draws centered string pointed to by ACC into above-opened message box; uninit-proof:
*
							export		StatusMessage
StatusMessage				sta			StMeStringPtr+0			;setup string pointer lo word
							phk
							shortm
							pla
							sta			StMeStringPtr+2			;setup string pointer hi word
							longm
							lda			StatusWindowExists		;was window ever drawn?
							beq			StMeExit				;if not, abort this routine
							pha									;result space...
							pha
							_GetPort							;save old grafport on stack
							pushlong	StatusWindowPtr			;set grafport to box's port...
							_SetPort
							pushlong	#StMeBigRect			;clear box contents...
							_EraseRect
							pha									;result space
							pushlong	StMeStringPtr			;push pointer to our messgae
							_StringWidth						;ask what size it will be
							lda			StatusWindowWidth		;leave result on stack
							sec									;for subtract right on the stack
							sbc			1,s						;acc now has (X2-X1) - width
							lsr a								;divide by two; acc now has X coord
							sta 		1,s						;this is start X coordinate for text
							import		StatusWindowTextY
							pushword	StatusWindowTextY		;this is start Y coordinate for text
							_MoveTo								;move the pen to pushed coordinates
							pushlong	StMeStringPtr			;and draw the string...
							_DrawString
							_SetPort							;restore old grafport from stack
StMeExit					rts
*
StMeBigRect					dc.w		0,0,50,320				;rect to clear status box contents
StMeStringPtr				dc.l		0						;pointer to text string





*
*STATUSMESGFEEDPROMPT: Prompts to insert the page # given in ACC; call after "StartStatusMessage";
*This routine exits with carry set if cancel option was selected by user:
*
							export		StatusMesgFeedPrompt
StatusMesgFeedPrompt		ldx			StatusWindowExists		;make sure status box is already up
							beq			StFeExit
							pha									;pass int to be converted to string
							import		ManFeedAlertTempPageNo
							pushlong	#ManFeedAlertTempPageNo	;pass where number ascii data goes
							pushword	#5						;pass length
							pushword	#0						;pass that it's unsigned
							_Int2Dec							;convert and store it in template
							pha									;result space
							import		ManFeedAlertTemp
							pushlong	#ManFeedAlertTemp		;pass template
							pushlong	#0						;pass no filter proc
							_NoteAlert
							pla									;get item ID that was selected
							cmp			#mesgFeedPromptNGButtID	;set carry only if cancel selected
							beq			StFeExit
							clc
StFeExit					rts






*
*DATA: Maintains status message box's window grafport, size, and status across print driver calls:
*
StatusWindowPtr				dc.l		0
StatusWindowWidth			dc.w		0
StatusWindowExists			dc.w		0						;must be 0 initially

							



							
*
*CHECKANDDOABOUTBOX: If Shift-Apple-Option keys are down, display an about box with credits:
*
							export		CheckAndDoAboutBox
CheckAndDoAboutBox			pha									;check if Shift-Option keys down...
							pushword	#0						;don't remove anything from queue
							pushlong	#AbBoEventRecord		;store information here
							_GetNextEvent
							pla									;will ignore this
							lda			AbBoEventModifierKeys	;check modifier flags
							and			#$0B00					;shift+apple+option must be set...
							cmp			#$0B00
							bne			AbBoExit				;no, so exit
							import		AboutControlTemp		;else, draw dialog box...
							lda			#AboutControlTemp
							sta			ParamLongA+0
							lda			#^AboutControlTemp
							sta			ParamLongA+2
							jsr			StartDialog
AbBoWaitLoop				pha									;loop checking for any event...
							pushword	#$004A					;check keydown, mousedown, or update
							pushlong	#AbBoEventRecord
							_GetNextEvent
							pla
							beq			AbBoWaitLoop
							lda			AbBoEventWhat
							cmp			#6						;update event?
							bne			AbBoDumpBox				;no, it was another event, so exit
							pushlong	DialogWindowPtr			;yes, redraw and continue waiting
							_BeginUpdate
							jsr			RedrawDialog
							pushlong	DialogWindowPtr
							_EndUpdate
							bra			AbBoWaitLoop
AbBoDumpBox					jsr			FinishDialog			;remove about box and exit...
AbBoExit					rts

*Storage for event record to be filled in by GetNextEvent:
AbBoEventRecord:
AbBoEventWhat				dc.w		0						;event.what
							dc.l		0						;event.message
							dc.l		0						;event.when
							dc.w		0,0						;event.where
AbBoEventModifierKeys		dc.w		0						;event.modifiers





*
*CHECKANDDOMETRICSALERT: Dialog about metrics.  Only works the first time, until driver reloaded:
*
							export		CheckAndDoMetricsAlert
CheckAndDoMetricsAlert
							lda			MeAlIsNotFirstTime		;if we already did this, exit,
							bne			MeAlExit				;otherwise, set it now and go on
							inc			MeAlIsNotFirstTime
							
							pha									;pass result space
							pushword	#%000					;pass reference is ptr to cstring
							pushlong	#0						;pass no substitution array
							import		MeAlAlertBoxString		;pass ptr to alert box def string
							pushlong	#MeAlAlertBoxString
							_AlertWindow
							pla									;retrieve button hit, we don't care
							
MeAlExit					rts

MeAlIsNotFirstTime			dc.w		0						;clear upon loading, but set here





*
*CHECKANDDOLOWMEMALERT: Dialog if low mem and pr rec has high-qual select.  0/1 if Cancel/OK->ACC:
*
							export		CheckAndDoLowMemAlert
CheckAndDoLowMemAlert
							import		GetQuality				;high quality has to be selected
							jsr			GetQuality				;if not then exit
							cmp			#2
							bne			LoMeExitWith1
							
							pha									;total physical memory has to be
							pha									;greater than a thresh (ie, 1.5M)
							_RealFreeMem
							pla									;ignore lo word
							pla									;cmp hi word to threshold
							cmp			#LowMemAlertThresh		;if more than thresh then exit
							bcs			LoMeExitWith1
							
							pha									;pass result space
							pushword	#%000					;pass reference is ptr to cstring
							pushlong	#0						;pass no substitution array
							import		LoMeAlertBoxString		;pass ptr to alert box def string
							pushlong	#LoMeAlertBoxString
							_AlertWindow
							pla									;retrieve button that was hit in ACC
LoMeExit					rts									;exit with ACC 0 or 1 if Cancel/OK

LoMeExitWith1				lda			#1						;exit with ACC 1 always if we
							rts									;didn't have to put up the alert





*
*CONDUCTJOBSTYLEDIALOG: Do dialogs/metrics/change pr rec.  On exit, ACC is set if OK was selected:
*
							export		ConductJobStyleDialog
ConductJobStyleDialog
*Fill in the name of the current port driver:
							jsr			GetOutputPortName

*Make dialogdata contain values from print record EXCEPT page range and number of copies:
							import		GetPaper
							jsr			GetPaper
							clc
							adc			#paperTypeUsaLtrItemID
							import		paperTypeInitValue
							sta			paperTypeInitValue
*
							import		GetQuality
							jsr			GetQuality
							clc
							adc			#printQualityLoResItemID
							import		printQualityInitValue
							sta			printQualityInitValue
*
							import		GetVSize
							jsr			GetVSize
							clc
							adc			#effectsCondensedNoItemID
							import		effectsCondensedInitValue
							sta			effectsCondensedInitValue							
*
							import		GetFeed
							jsr			GetFeed
							php
							ldy			#pageFeedManualItemID
							plp
							beq			CoJoSetIt2
							iny
							import		pageFeedInitValue
CoJoSetIt2					sty			pageFeedInitValue

*Set default page range and copies just like in what PrDefault would do:
							lda			#1
							sta			OptionA
							lda			#32767
							sta			OptionB
							import		SetPageRange
							jsr			SetPageRange
							import		SetCopies
							jsr			SetCopies

*Now set up the LE boxes, and set the All/From-To radio button states:
							import		pagesFromBoxString
							import		pagesToBoxString
							import		copiesBoxString
							shortm
							stz			pagesFromBoxString		;reset from/to LE box lengths to zero
							stz			pagesToBoxString
							lda			#'1'					;but put "1" in #-of-copies LE box
							sta			copiesBoxString+1
							lda			#1
							sta			copiesBoxString
							import		pagesAllInitValue
							import		pagesRangeInitValue
							sta			pagesAllInitValue		;set default "All" pages radio button
							stz			pagesRangeInitValue
							longm

*Now draw the window with all the controls:
							import		JobStyleControlTemp
							lda			#JobStyleControlTemp	;get address of control template
							sta			ParamLongA+0
							lda			#^JobStyleControlTemp
							sta 		ParamLongA+2
							jsr 		StartDialog				;draw window with controls

*Setup TaskMask not to handle keyboard events:
							lda			#^DialogTaskMaskNoKeys	;need change hi word only...
							sta			DialogTaskMask+2

*Get LineEdit (LE) handle ready for Copies item and then go to event loop.  LE ctl's handles in plA:
							pha
							pha
							pushlong	DialogWindowPtr
							pushlong	#copiesBoxItemID
							_GetCtlHandleFromID
							pulllong	ParamLongA				;"Copies" item's handle in ParamLongA
							brl			CoJoSetLEAndGotoLoop	;go get LE hdl and go to event loop

*Event loop which gets mouseclicks/keys and control animation.  LE control handles in ParamLongA:
CoJoEventLoop				pushlong	ParamLongA				;blink a cursor
							_LEIdle
CoJoDoTasks					pha									;result space
							pushword	#$FFFF					;event mask
							pushlong	#DialogTaskRecord		;where to stuff event data
							_TaskMaster							;do events
							pla

*Do redrawing of controls for update event, if necessary:
							cmp			#6						;update event?
							bne			CoJoNotUpdate
							ldx			DialogWindowPtr+0		;check if it's our window
							cpx			DialogTaskData+0
							bne			CoJoNotUpdate
							ldy			DialogWindowPtr+2
							cpy			DialogTaskData+2
							bne			CoJoNotUpdate
							phy									;redraw all contents
							phx
							_BeginUpdate
							jsr			RedrawDialog
							pushlong	DialogWindowPtr
							_EndUpdate
							bra			CoJoEventLoop
CoJoNotUpdate
							
*Check for mousedown in a control or if a key was hit:
							cmp			#$0021					;wInControl?
							bne			CoJoNotInCtrl
							brl			CoJoCheckCtrls
CoJoNotInCtrl				cmp			#$0003					;keyDownEvt?
							bne			CoJoEventLoop

*A key has been hit; do OK/Cancel hilite ourselves if selected because not going thru taskmaster:
							lda			DialogMessage
							import		okItemKeyEquiv
							cmp			#okItemKeyEquiv
							bne			CoJoNotKeyOk
							pha
							pha
							pushlong	DialogWindowPtr
							pushlong	#okItemID
							_GetCtlHandleFromID
							pulllong	ParamLongA				;clobber this, but we're out anyway
							pushword	#1
							pushlong	ParamLongA
							_HiliteControl
							pushword	#0
							pushlong	ParamLongA
							_HiliteControl
							brl			CoJoOk
							import		cancelItemKeyEquiv
CoJoNotKeyOk				cmp			#cancelItemKeyEquiv
							bne			CoJoNotKeyCancel
							pha
							pha
							pushlong	DialogWindowPtr
							pushlong	#cancelItemID
							_GetCtlHandleFromID
							pulllong	ParamLongA				;clobber this, but we're out anyway
							pushword	#1
							pushlong	ParamLongA
							_HiliteControl
							pushword	#0
							pushlong	ParamLongA
							_HiliteControl
							brl			CoJoCancel
CoJoNotKeyCancel

*If TAB and proper LEHandle, try to move insertion point to another box:
							cmp			#9						;TAB key?
							bne			CoJoNotKeyTab			;not TAB key
							pushlong	ParamLongA				;save old LE handle on stack
*							
							pha									;get "From" ctl hdl in ParamLongA
							pha
							pushlong	DialogWindowPtr
							pushlong	#pagesFromBoxItemID
							_GetCtlHandleFromID
							pulllong	ParamLongA
*		
							lda			[ParamLongA]			;cmp to see if old LEH == "From" LEH
							tax
							ldy			#2
							lda			[ParamLongA],y
							sta			ParamLongA+2
							stx			ParamLongA+0
							ldy			#octlData				;offset into ctrl rec for LE handle
							lda			[ParamLongA],y			;lo order word of LE handle
							cmp			1,s						;cmp to current LE handle lo
							bne			CoJoNotKeyTabLEH
							iny
							iny
							lda			[ParamLongA],y			;hi order word of LE handle
							cmp			3,s						;cmp to current LE handle hi
							bne			CoJoNotKeyTabLEH
*
							pla									;yes, in "From" so yank old LE handle
							pla
*
							pha									;and make "To" box the active one
							pha
							pushlong	DialogWindowPtr
							pushlong	#pagesToBoxItemID
							_GetCtlHandleFromID
							pulllong	ParamLongA				;get "To" ctl hdl in ParamLongA
							pushlong	ParamLongA				;do screen animation
							_MakeThisCtlTarget
							brl			CoJoSetLEAndGotoLoop	;get LE hdl from ctl hdl and loop
*
CoJoNotKeyTabLEH			pulllong	ParamLongA				;didn't match, restore old LE handle
CoJoNotKeyTab

*Not OK/Cancel/TAB, so if we have LEHandle, filter out '0'..'9'/LE cmd keys and call LEKey:
							lda			DialogMessage			;look at keystroke ascii code
							shortm
							shortx
							ldy			#15
CoJoCheckKeyLoop			cmp			CoJoLEKeyTable,y		;is it a key we should handle?
							beq			CoJoLEKey
							dey
							bpl			CoJoCheckKeyLoop
							longm
							longx
							brl			CoJoEventLoop
CoJoLEKeyTable				dc.b		8,21,127,6,24,25,'0','1','2','3','4','5','6','7','8','9'
CoJoLEKey					longm
							longx
							pushword	DialogMessage
							pushword	DialogModifiers
							pushlong	ParamLongA
							_LEKey
							brl 		CoJoEventLoop

*Check if any new LE text boxes were selected; also change All/From-To radio buttons:							
CoJoCheckCtrls				lda			DialogTaskData4			;get lo order control item ID
							cmp			#pagesFromBoxItemID
							beq			CoJoFromToBox
CoJoNotFromBox				cmp			#pagesToBoxItemID
							bne			CoJoNotToBox
CoJoFromToBox				pushword	#0						;switch All/From-To radio button
							pha
							pha
							pushlong	DialogWindowPtr
							pushlong	#pagesAllItemID
							_GetCtlHandleFromID
							_SetCtlValue						;turn "All" radio button off
							pushword	#1
							pha
							pha
							pushlong	DialogWindowPtr
							pushlong	#pagesRangeItemID
							_GetCtlHandleFromID
							_SetCtlValue						;turn the other radio button on
							bra			CoJoItsBox
CoJoNotToBox				cmp			#copiesBoxItemID
							bne			CoJoNoLEBoxes

*We selected a box; get its LE handle:
CoJoItsBox					lda			DialogTaskData2+0		;get handle to control record
							sta			ParamLongA+0
							lda			DialogTaskData2+2
							sta			ParamLongA+2

*Get LE handle from ctl handle and then go to event loop:
CoJoSetLEAndGotoLoop		lda			[ParamLongA]
							tax
							ldy			#2
							lda			[ParamLongA],y
							sta			ParamLongA+2
							stx			ParamLongA+0
							ldy			#octlData				;offset into ctrl rec for LE handle
							lda			[ParamLongA],y			;lo order word of LE handle
							tax
							iny
							iny
							lda			[ParamLongA],y			;hi order word of LE handle
							sta			ParamLongA+2
							stx			ParamLongA+0			;ParamLongA now has LE handle
							brl			CoJoEventLoop

*If no boxes were clicked, since we got wInControl, check other possibilities:
CoJoNoLEBoxes

*Exit without affecting print record if Cancel select:
							cmp			#cancelItemID
							bne			CoJoNotCancel
CoJoCancel					jsr			FinishDialog			;dump dialog box
							lda			#0						;confirmFlag will be false
							rts

*If OK select, save data in print record; else resume event handling:
CoJoNotCancel				cmp			#okItemID
							beq			CoJoOk
							brl			CoJoEventLoop
CoJoOk
*
							lda			#paperTypeItemID
							jsr			GetControlValue
							sec
							sbc			#paperTypeUsaLtrItemID
							sta			OptionA
							import		SetPaper
							jsr			SetPaper
*
							lda			#printQualityItemID
							jsr			GetControlValue
							sec
							sbc			#printQualityLoResItemID
							sta			OptionA
							import		SetQuality
							jsr			SetQuality
*
							lda			#effectsCondensedItemID
							jsr			GetControlValue
							sec
							sbc			#effectsCondensedNoItemID
							sta			OptionA
							import		SetVSize
							jsr			SetVSize
*
							lda			#pageFeedItemID
							jsr			GetControlValue
							sec
							sbc			#pageFeedManualItemID
							sta			OptionA
							import		SetFeed
							jsr			SetFeed

*Initially assume default values for both parts of the page range:
							lda			#1
							sta			OptionA
							lda			#32767
							sta			OptionB

*If "All" page range option selected, skip the following few sections:
							lda			#pagesAllItemID
							jsr			GetControlValue
							cmp			#1
							beq			CoJoSetPageRange
							
*"All" not selected, so get each part of the page range only if nonzero.  Pin on upper limit:
							lda			#pagesFromBoxItemID			;convert "From" string to number
							jsr			GetBoxValue
							cmp			#0							;if zero, keep our default
							beq			CoJoDontConsiderPgRngA
							cmp			#32768						;pin to largest value and store
							bcc			CoJoConsiderPgRngA
							lda			#32767
CoJoConsiderPgRngA			sta			OptionA
CoJoDontConsiderPgRngA
							lda			#pagesToBoxItemID			;convert "To" string to number
							jsr			GetBoxValue
							cmp			#0							;if zero, keep our default
							beq			CoJoDontConsiderPgRngB
							cmp			#32768						;pin to largest value and store
							bcc			CoJoConsiderPgRngB
							lda			#32767
CoJoConsiderPgRngB			sta			OptionB
CoJoDontConsiderPgRngB

*With first page in OptionA and last page in OptionB, see if backwards:
							lda			OptionB
							cmp			OptionA						;check page range
							bcs			CoJoPageRangeNotBackwards	;at it's least not backwards
							ldx			OptionA						;else exchange A,B...
							sta			OptionA
							stx			OptionB
CoJoPageRangeNotBackwards

*With sane values for first page in OptionA and last page in OptionB, set the page range:
							import		SetPageRange
CoJoSetPageRange			jsr			SetPageRange

*Set number of copies, pinning to largest possible value and ensuring nonzero:
							lda			#copiesBoxItemID			;convert "Copies" str to number
							jsr			GetBoxValue
							cmp			#32768						;pin within range 1..32767...
							bcc			CoJoNoPinCopies1
							lda			#32767
CoJoNoPinCopies1			cmp			#0
							bne			CoJoNoPinCopies2
							lda			#1
CoJoNoPinCopies2			sta			OptionA
							import		SetCopies
							jsr			SetCopies

*Dump dialog box, validate print record because it changed, and exit with ACC set:
							jsr			FinishDialog				;dump the box
							import		CalcMetrics					;make sure it's self-consistent
							jsr			CalcMetrics
							lda			#1							;confirmFlag will be true
							rts







*
*SUBROUTINES: Used by routines above to perform various setup/shutdown and repeated tasks:
*





*
*STARTDIALOG: Draws our standard dialog window; fills with control list given by "ParamLongA":
*
StartDialog					pha									;result space for old grafport
							pha	
							_GetPort
							pulllong	OldGrafPortPtr			;save old grafport pointer

*Modify coordinates of dialog window to suit 320/640 mode:
							import		WindowCoordX2			;get ready to modify dialog coords
							lda			WindowCoordX2
							sec
							import		WindowCoordX1
							sbc			WindowCoordX1			;calc box size (silly at runtime)
							sta			ParamWordA				;save size
							pha									;result space for scb
							_GetMasterSCB
							pla
							ldx			#640					;assume 640 mode for a sec
							and			#$80					;look at mode bit (1=640, 0=320)
							bne			StDiMode640
							ldx			#320					;change assumption made above
StDiMode640					txa
							sec
							sbc			ParamWordA				;a-reg now has [320|640] - (X2-X1)
							lsr a								;divide by two
							sta			WindowCoordX1			;this is left coordinate of box
							clc
							adc			ParamWordA				;maintain proper box size
							sta			WindowCoordX2			;this is right coordinate of box

*Draw the window on the screen and set as current port:
							pushlong	#0						;result space for window grafportptr
							import		WindowTemp
							pushlong	#WindowTemp
							_NewWindow							;draw window from template
							lda 		1,s						;keep on stack for SetPort only
							sta 		DialogWindowPtr+0		;and also save it away
							lda 		3,s
							sta 		DialogWindowPtr+2
							_SetPort							;set our window as current port
							
*Create (but don't draw yet) the controls in the window using the given control template:
							pushlong	#0						;result space
							pushlong	DialogWindowPtr			;window's grafport to draw in
							pushword	#3						;ptrToPtr input reference
							pushlong	ParamLongA				;get desired control template
							_NewControl2
							pla									;we don't need these zeros
							pla
							
*Draw the controls and exit:
							jsr			RedrawDialog
							rts





*
*REDRAWDIALOG: Call this routine to redraw contents of window (during update event, for example):
*
RedrawDialog				pushlong	DialogWindowPtr
							_DrawControls						;fill window with controls...
							pushword	#1						;draw horizontal adornment line...
							pushword	#2
							_SetPenSize
							import		WindowLineY
							import		WindowLineX1
							import		WindowLineX2
							pushword	#WindowLineX1
							pushword	#WindowLineY
							_MoveTo
							pushword	#WindowLineX2
							pushword	#WindowLineY
							_LineTo
							_InitCursor							;ensure arrow cursor...
							rts




							
*
*FINISHDIALOG: Call this routine when done with dialog; erases window/controls and releases memory:
*
FinishDialog				pushlong	DialogWindowPtr
							_KillControls						;dispose control memory
							pushlong	DialogWindowPtr
							_CloseWindow						;erase window and dispose memory
							pushlong	OldGrafPortPtr			;get old port pointer
							_SetPort							;restore it
							rts





*
*GETOUTPUTPORTNAME: Routine which sets up "XXX" part in "printername/XXX" in dialog data:
*
GetOutputPortName			pha
							pha
							ldx			#$2913						;get pointer to str w/ port name
							jsl			$E10000						;_PMGetPortName
							pulllong	ParamLongA
							shortm
							shortx
							lda			[ParamLongA]
							tay
							clc
							import		PortTitleLenOrig
							adc			#PortTitleLenOrig			;store correct length of full...
							import		PortTitleLen				;ie, "IMAGEWRITER LQ/PRINTER"...
							sta			PortTitleLen				;...port title...
GePoNaStrCpy				lda			[ParamLongA],y				;and copy PRINTER, etc., string
							import		PortTitleStr
							sta			PortTitleStr-1,y
							dey
							bne			GePoNaStrCpy
							longm
							longx
							rts





*
*GETCONTROLVALUE: Obtains control state. Put ID lo order word -> ACC; on exit, ACC -> control value:
*
GetControlValue				sta			ParamWordA					;save for use in a second
							pha										;result space for GetCtlValue
							pha										;result space...
							pha										;...for GetCtlHandleFromID
							pushlong	DialogWindowPtr				;pass window pointer
							pushword	#0							;pass hi order word of ID
							pushword	ParamWordA					;pass lo order word of ID
							_GetCtlHandleFromID						;get handle
							_GetCtlValue							;use handle to get value
							pla										;leave value in accumulator
							rts
							


							
							
*
*GETBOXVALUE: Gets integer from LineEdit control.  Put ID lo order -> ACC; on exit, ACC -> integer:
*
GetBoxValue					sta			ParamWordA					;save for use in a second
							pha										;result space for GetCtlValue...
							pha										;...result space
							pushlong	DialogWindowPtr				;pass window pointer
							pushword	#0							;pass hi order word of ID
							pushword	ParamWordA					;pass lo order word of ID
							_GetCtlHandleFromID						;get handle to control record
							pulllong	ParamLongA					;get it off stack into dp
							lda			[ParamLongA]				;dereference the handle
							tax
							ldy			#2
							lda			[ParamLongA],y
							sta			ParamLongA+2
							stx			ParamLongA					;ParamLongA is now a pointer
							ldy			#octlData					;offset ctrl rec for LE handle
							lda			[ParamLongA],y
							tax
							iny
							iny
							lda			[ParamLongA],y				;a,x now has LE handle
							pha										;result space for LEGetTextHand
							pha										;result space for LEGetTextHand
							pha										;hi LE handle for LEGetTextHand
							phx										;lo LE handle for LEGetTextHand
							pha										;result space for LEGetTextLen
							pha										;hi LE handle for LEGetTextLen
							phx										;lo LE handle for LEGetTextLen
							_LEGetTextLen							;get length of our text line
							pullword	ParamWordA					;save length for use in a sec
							_LEGetTextHand							;get handle to our text line
							pulllong	ParamLongA					;get it off stack into dp
							lda			[ParamLongA]				;dereference the handle again
							tax
							ldy			#2
							lda			[ParamLongA],y
							sta			ParamLongA+2
							stx			ParamLongA					;we now have pointer to string!
							pha										;result space
							pushlong	ParamLongA					;pass the pointer
							pushword	ParamWordA					;pass string length
							pushword	#0							;pass that this is unsigned
							_Dec2Int								;convert ascii to word
							pla										;get result in accumulator
							rts
							
		
							


*
*DATA: Extended task record used by dialogs into which TaskMaster dumps data and gets parameters:
*
DialogTaskRecord:
DialogWhat					dc.w		0
DialogMessage				dc.l		0
DialogWhen					dc.l		0
DialogWhere					dc.w		0,0
DialogModifiers				dc.w		0
DialogTaskData				dc.l		0
DialogTaskMask				dc.l		DialogTaskMaskYesKeys
DialogLastClickTick			dc.l	    0
DialogClickCount			dc.w		0
DialogTaskData2				dc.l		0
DialogTaskData3				dc.l		0
DialogTaskData4				dc.l		0
DialogLastClickPt			dc.w		0,0
							;			 10987654321098765432109876543210
DialogTaskMaskYesKeys		equ			%00000000000100110000000000000100
DialogTaskMaskNoKeys		equ			%00000000000100010000000000000100





							endproc
							end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/HP.DESKJET/dialogdata.aii b/IIGS.601.SRC/GSToolbox/PrinterDrivers/HP.DESKJET/dialogdata.aii
new file mode 100644
index 0000000..c19d694
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/HP.DESKJET/dialogdata.aii
@@ -0,0 +1 @@
+
******************************************************************************************
*                                                                                        *
*		Apple IIgs Printer Driver                                                        *
*                                                                                        *
*		File: dialogdata.aii -- User-interface text strings and dialog layout            *
*                                                                                        *
*		Written by Ben Koning                                                            *
*		Copyright (C) 1990 Apple Computer, Inc.                                          *
*                                                                                        *
******************************************************************************************







							include		'equates.aii'



							include		'm16.util'
							include		'e16.control'
							include		'e16.window'
							include		'e16.dialog'



DialogDataRec				record		export





*
*STATUSWINDOWTEMP: Window template for status box:
*
							export		StatusWindowTemp
StatusWindowTemp			dc.w		StatusWindowTempEnd-StatusWindowTemp	;paramLength Word
							dc.w		fAlert+fQContent+fVis					;wFrameBits Word
							dc.l		0										;wTitle Pointer
							dc.l		0										;wRefCon Long 
							dc.w		0,0,0,0									;wZoom	Rect
							dc.l		0										;wColor WindColorPtr
							dc.w		0										;wYOrigin Integer
							dc.w		0										;wXOrigin Integer
							dc.w		200										;wDataH Word 
							dc.w		640										;wDataW Word 
							dc.w		200										;wMaxH Word 
							dc.w		640										;wMaxW Word
							dc.w		0										;wScrollVer Word
							dc.w		0										;wScrollHor Word
							dc.w		0										;wPageVer Word
							dc.w		0										;wPageHor Word 
							dc.l		0										;wInfoRefCon Long
							dc.w		0										;wInfoHeight Word
							dc.l		0										;wFrameDefProc Pointer
							dc.l		0 										;wInfoDefProc Pointer
							dc.l		0 										;wContDefProc Pointer
							dc.w		20										;wPosition Rect Y1
							export		StatusWindowCoordX1						;for 320/640 mod
StatusWindowCoordX1			dc.w		12										;wPosition Rect X1
							dc.w		20+25									;wPosition Rect Y2
							export		StatusWindowCoordX2						;for 320/640 mod
StatusWindowCoordX2			dc.w		308										;wPosition Rect X2
							dc.l		$FFFFFFFF								;wPlane GrafPortPtr
							dc.l		0										;wStorage WindRecPtr
StatusWindowTempEnd:
							export		StatusWindowTextY						;Y1 local text coord
StatusWindowTextY			dc.w		15





*
*MANFEEDALERTTEMP: Alert template for manual feed status dialog:
*
							export		ManFeedAlertTemp
ManFeedAlertTemp			dc.w		20										;boundsRect Y1
							export		ManFeedAlertTempCoordX1
ManFeedAlertTempCoordX1		dc.w		12										;boundsRect X1
							dc.w		20+50									;boundsRect Y2
							export		ManFeedAlertTempCoordX2
ManFeedAlertTempCoordX2		dc.w		308										;boundsRect X2
							dc.w		mesgFeedPromptID						;alertID
							dc.b		$80										;stage 1 - no beep
							dc.b		$80										;stage 2 - no beep
							dc.b		$80										;stage 3 - no beep
							dc.b		$80										;stage 4 - no beep
							dc.l		ManFeedAlertTempOKButtItem				;item #1
							dc.l		ManFeedAlertTempNGButtItem				;item #2
							dc.l		ManFeedAlertTempStringItem				;item #3
							dc.l		0										;terminator
							
ManFeedAlertTempOKButtItem	dc.w		mesgFeedPromptOKButtID					;itemID
							dc.w		28,180,0,0								;coords
							dc.w		buttonItem								;itemType
							dc.l		ManFeedAlertTempOKButtStr				;itemDescriptor
							dc.w		0										;itemValue
							dc.w		0										;itemFlag
							dc.l		0										;itemColor
ManFeedAlertTempOKButtStr	str			'Continue'

ManFeedAlertTempNGButtItem	dc.w		mesgFeedPromptNGButtID					;itemID
							dc.w		28,85,0,0								;coords
							dc.w		buttonItem								;itemType
							dc.l		ManFeedAlertTempNGButtStr				;itemDescriptor
							dc.w		0										;itemValue
							dc.w		0										;itemFlag
							dc.l		0										;itemColor
ManFeedAlertTempNGButtStr	str			'Cancel'

ManFeedAlertTempStringItem	dc.w		mesgFeedPromptStringID					;itemID
							dc.w		9,84,200,640							;coords
							dc.w		statText+itemDisable					;itemType/disabled
							dc.l		ManFeedAlertTempStringStr				;itemDescriptor
							dc.w		0										;itemValue
							dc.w		0										;itemFlag
							dc.l		0										;itemColor
ManFeedAlertTempStringStr	dc.b		ManFeedAlertTempStrE-ManFeedAlertTempStrB
ManFeedAlertTempStrB		dc.b		'Insert sheet for page: '
							export		ManFeedAlertTempPageNo					;for modification
ManFeedAlertTempPageNo		dc.b		'XXXXX'
ManFeedAlertTempStrE





*
*Status messages used in the status box during the progress of the printing loop:
*
							export		StMeMallocMesg							;during bandbuff get
StMeMallocMesg				str			'Allocating imaging memory'

							export		StMePrinterResetMesg					;during pr reset cmd
StMePrinterResetMesg		str			'Setting up printer'

							export		StMePrepRxPgDataMesg					;on out of openpage
StMePrepRxPgDataMesg		str			'Ready to receive page data'

							export		StMeRxCurrentPgMesg						;MUST be 30 chars!
StMeRxCurrentPgMesg			str			'Receiving data for page: XXXXX'

							export		StMePrCurrentPgMesg						;MUST be 30 chars!
StMePrCurrentPgMesg			str			'Printing a copy of page: XXXXX'

							export		StMeRenderingMesg						;during DrawPicture
StMeRenderingMesg			str			'Rendering page image'

							export		StMeCancellingMesg						;during abort ops
StMeCancellingMesg			str			'Cancelling'

							export		StMeWrongDevMesg						;if not our printer
StMeWrongDevMesg			str			'Device not a DeskJet Plus'






*
*WINDOWTEMP: Window template for both of our dialogs (we just make the controls fit one size box):
*
							export		WindowTemp
WindowTemp					dc.w		WindowTempEnd-WindowTemp				;paramLength Word
							dc.w		fAlert+fQContent+fVis					;wFrameBits Word
							dc.l		0										;wTitle Pointer
							dc.l		0										;wRefCon Long 
							dc.w		0,0,0,0									;wZoom	Rect
							dc.l		0										;wColor WindColorPtr
							dc.w		0										;wYOrigin Integer
							dc.w		0										;wXOrigin Integer
							dc.w		200										;wDataH Word 
							dc.w		640										;wDataW Word 
							dc.w		200										;wMaxH Word 
							dc.w		640										;wMaxW Word
							dc.w		0										;wScrollVer Word
							dc.w		0										;wScrollHor Word
							dc.w		0										;wPageVer Word
							dc.w		0										;wPageHor Word 
							dc.l		0										;wInfoRefCon Long
							dc.w		0										;wInfoHeight Word
							dc.l		0										;wFrameDefProc Pointer
							dc.l		0 										;wInfoDefProc Pointer
							dc.l		0 										;wContDefProc Pointer
							dc.w		20										;wPosition Rect Y1
							export		WindowCoordX1							;for 320/640 mod
WindowCoordX1				dc.w		12										;wPosition Rect X1
							dc.w		180										;wPosition Rect Y2
							export		WindowCoordX2							;for 320/640 mod
WindowCoordX2				dc.w		308										;wPosition Rect X2
							dc.l		$FFFFFFFF								;wPlane GrafPortPtr
							dc.l		0										;wStorage WindRecPtr
WindowTempEnd:





*
*Coordinates for adornment line separating title/version info from controls in the dialog boxes:
*
							export		WindowLineY:equ
							export		WindowLineX1:equ
							export		WindowLineX2:equ
WindowLineY					equ			14
WindowLineX1				equ			7
WindowLineX2				equ			287
			




*
*JOBSTYLECONTROLTEMP: Control templates for the dialog window:
*
							export		JobStyleControlTemp
JobStyleControlTemp			dc.l		printQualityItem
							dc.l		effectsCondensedItem
							dc.l		paperTypeItem
							dc.l		pageFeedItem
							dc.l		pagesToBoxItem
							dc.l		pagesFromToSeparatorItem
							dc.l		pagesFromBoxItem
							dc.l		pagesRangeItem
							dc.l		pagesAllItem
							dc.l		pagesTitleItem
							dc.l		copiesBoxItem
							dc.l		copiesTitleItem
							dc.l		titleItem
							dc.l		versionItem
							dc.l		cancelItem
							dc.l		okItem
							dc.l		0

							export		PortTitleLen							;"printername/XXX"...
							export		PortTitleStr							;... set Len & Str
							export		PortTitleLenOrig:equ					;... for information
titleItem					dc.w		8										;pCount
							dc.l		titleItemID								;ID
							dc.w		3,6,13,258								;Rect
							dc.l		statTextControl							;ProcRef
							dc.w		1										;Flags
							dc.w		$1000									;MoreFlags
							dc.l		0										;RefCon
							dc.l		TiItStart								;TextRef
PortTitleLen				dc.w		PortTitleLenOrig						;space for len byte
TiItStart					dc.b		'DeskJet PLUS / '
TiItEnd:
PortTitleStr				dc.b		'XXXXXXXXXXXXXXX'						;space for portname
PortTitleLenOrig			equ			TiItEnd-TiItStart						;for computations
			
versionItem					dc.w		8										;pCount
							dc.l		versionItemID							;ID
							dc.w		3,258,13,298							;Rect
							dc.l		statTextControl							;ProcRef
							dc.w		1										;Flags
							dc.w		$1000									;MoreFlags
							dc.l		0										;RefCon
							dc.l		@VeTiStart								;TitleRef
							dc.w		@VeTiEnd-@VeTiStart						;Use "VersionID"...
@VeTiStart					dc.b		'v'										;...equate to...
							dc.b		('0'+(VersionID/256))					;...generate code...
							dc.b		'.'										;...for version...
							dc.b		('0'+(VersionID//256))					;...string
@VeTiEnd:
			
							export		cancelItemKeyEquiv:equ
cancelItem					dc.w		9										;pCount
							dc.l		cancelItemID							;ID
							dc.w		143,124,143+11,124+70					;Rect
							dc.l		simpleButtonControl						;ProcRef
							dc.w		0										;Flags
							dc.w		$3000									;MoreFlags
							dc.l		0										;RefCon
							dc.l		@Title									;TitleRef
							dc.l		0										;ColorTableRef
							dc.b		cancelItemKeyEquiv						;KeyEquiv
							dc.b		cancelItemKeyEquiv
							dc.w		0
							dc.w		0
@Title						str			'Cancel'
cancelItemKeyEquiv			equ			27										;escape key equiv
			
							export		okItemKeyEquiv:equ
okItem						dc.w		9										;pCount
							dc.l		okItemID								;ID
							dc.w		143,208,143+11,208+68					;Rect
							dc.l		simpleButtonControl						;ProcRef
							dc.w		1										;Flags
							dc.w		$3000									;MoreFlags
							dc.l		0										;RefCon
							dc.l		@Title									;TitleRef
							dc.l		0										;ColorTableRef
							dc.b		okItemKeyEquiv							;KeyEquiv
							dc.b		okItemKeyEquiv
							dc.w		0
							dc.w		0
@Title						str			'OK'
okItemKeyEquiv				equ			13										;return key equiv
										
paperTypeItem				dc.w		9										;pCount
							dc.l		paperTypeItemID							;ID
							dc.w		88,7,0,0								;Rect
							dc.l		popUpControl							;ProcRef
							dc.w		32										;Flags
							dc.w		$1004									;MoreFlags
							dc.l		0										;RefCon
							dc.w		92										;TitleWidth
							dc.l		paperTypePopUpMenu						;MenuRef
							export		paperTypeInitValue
paperTypeInitValue			dc.w		paperTypeUsaLtrItemID					;InitialValue
paperTypePopUpMenu			dc.b		'$$Paper Type:\H'
							dc.w		paperTypeItemID
							dc.b		0
*							
							dc.b		'--US Letter.......8.5"x11"\H'
							dc.w		paperTypeUsaLtrItemID
							dc.b		0
*							
							dc.b		'--US Legal.........8.5"x14"\H'
							dc.w		paperTypeUsaLglItemID
							dc.b		0
*							
							dc.b		'---\N256D',0
*							
							dc.b		'--European A4.......8"x12"\H'
							dc.w		paperTypeEurA4ItemID
							dc.b		0
*							
							dc.b		'--Envelope (#10)...9"x4"\H'
							dc.w		paperTypeEnvNo10ItemID
							dc.b		0
*
							dc.b		'.'
			
printQualityItem			dc.w		9										;pCount
							dc.l		printQualityItemID						;ID
							dc.w		120,7,0,0								;Rect
							dc.l		popUpControl							;ProcRef
							dc.w		32										;Flags
							dc.w		$1004									;MoreFlags
							dc.l		0										;RefCon
							dc.w		92										;TitleWidth
							dc.l		printQualityPopUpMenu					;TitleRef
							export		printQualityInitValue
printQualityInitValue		dc.w		printQualityLoResItemID					;InitialValue
printQualityPopUpMenu		dc.b		'$$Quality:\H'
							dc.w		printQualityItemID
							dc.b		0
							dc.b		'--75 DPI   (1x)\H'
							dc.w		printQualityLoResItemID
							dc.b		0
							dc.b		'--150 DPI (2x)\H'
							dc.w		printQualityMeResItemID
							dc.b		0
							dc.b		'--300 DPI (4x)\H'
							dc.w		printQualityHiResItemID
							dc.b		0
							dc.b		'.'

effectsCondensedItem		dc.w		9										;pCount
							dc.l		effectsCondensedItemID					;ID
							dc.w		104,7,0,0								;Rect
							dc.l		popUpControl							;ProcRef
							dc.w		32										;Flags
							dc.w		$1004									;MoreFlags
							dc.l		0										;RefCon
							dc.w		92										;TitleWidth
							dc.l		effectsCondensedPopUpMenu				;TitleRef
							export		effectsCondensedInitValue
effectsCondensedInitValue	dc.w		effectsCondensedNoItemID				;InitialValue
effectsCondensedPopUpMenu	dc.b		'$$Height:\H'
							dc.w		effectsCondensedItemID
							dc.b		0
							dc.b		'--Normal (Graphics)\H'
							dc.w		effectsCondensedNoItemID
							dc.b		0
							dc.b		'--Condensed (Text)\H'
							dc.w		effectsCondensedYesItemID
							dc.b		0
							dc.b		'.'

pageFeedItem				dc.w		9										;pCount
							dc.l		pageFeedItemID							;ID
							dc.w		67,7,0,0								;Rect
							dc.l		popUpControl							;ProcRef
							dc.w		32										;Flags
							dc.w		$1004									;MoreFlags
							dc.l		0										;RefCon
							dc.w		92										;TitleWidth
							dc.l		pageFeedPopUpMenu						;MenuRef
							export		pageFeedInitValue
pageFeedInitValue			dc.w		pageFeedAutoItemID						;InitialValue
pageFeedPopUpMenu			dc.b		'$$Sheet Feed:\H'
							dc.w		pageFeedItemID
							dc.b		0
							dc.b		'--Automatic\H'
							dc.w		pageFeedAutoItemID
							dc.b		0
							dc.b		'--Manual\H'
							dc.w		pageFeedManualItemID
							dc.b		0
							dc.b		'.'
			
pagesTitleItem				dc.w		8										;pCount
							dc.l		pagesTitleItemID						;ID
							dc.w		40,7,40+12,7+50							;Rect
							dc.l		statTextControl							;ProcRef
							dc.w		1										;Flags
							dc.w		$1000									;MoreFlags
							dc.l		0										;RefCon
							dc.l		@TitleStart								;TitleRef
							dc.w		@TitleEnd-@TitleStart					;TextSize
@TitleStart					dc.b		'Pages:'
@TitleEnd:

pagesAllItem				dc.w		8										;pCount
							dc.l		pagesAllItemID							;ID
							dc.w		39,99,39+12,99+20						;Rect
							dc.l		radioControl							;ProcRef
							dc.w		0										;Flags
							dc.w		$1000									;MoreFlags
							dc.l		0										;RefCon
							dc.l		pagesAllTitle							;TitleRef
							export		pagesAllInitValue			
pagesAllInitValue			dc.w		0										;InitialValue
pagesAllTitle				str			'All'
			
pagesRangeItem				dc.w		8										;pCount
							dc.l		pagesRangeItemID						;ID
							dc.w		52,99,52+12,99+36						;Rect
							dc.l		radioControl							;ProcRef
							dc.w		0										;Flags
							dc.w		$1000									;MoreFlags
							dc.l		0										;RefCon
							dc.l		pagesRangeTitle							;TitleRef
							export		pagesRangeInitValue
pagesRangeInitValue			dc.w		0										;InitialValue
pagesRangeTitle				str			''

							export		pagesFromBoxString
pagesFromBoxItem			dc.w		8										;pCount
							dc.l		pagesFromBoxItemID						;ID
							dc.w		51,125,51+13,125+57						;Rect
							dc.l		$83000000								;"lineEditControl"
							dc.w		0										;Flags
							dc.w		$7000									;MoreFlags
							dc.l		0										;RefCon
							dc.w		5										;MaxSize
							dc.l		pagesFromBoxString						;DefaultRef
pagesFromBoxString			str			'XXXXX'
			
							export		pagesToBoxString
pagesToBoxItem				dc.w		8										;pCount
							dc.l		pagesToBoxItemID						;ID
							dc.w		51,210,51+13,210+57						;Rect
							dc.l		$83000000								;"lineEditControl"
							dc.w		0										;Flags
							dc.w		$7000									;MoreFlags
							dc.l		0										;RefCon
							dc.w		5										;MaxSize
							dc.l		pagesToBoxString						;DefaultRef
pagesToBoxString			str			'XXXXX'

pagesFromToSeparatorItem	dc.w		8										;pCount
							dc.l		pagesFromToSeparatorItemID				;ID
							dc.w		53,188,53+12,188+50						;Rect
							dc.l		statTextControl							;ProcRef
							dc.w		1										;Flags
							dc.w		$1000									;MoreFlags
							dc.l		0										;RefCon
							dc.l		@TitleStart								;TitleRef
							dc.w		@TitleEnd-@TitleStart					;TextSize
@TitleStart					dc.b		'--'
@TitleEnd:

copiesTitleItem				dc.w		8										;pCount
							dc.l		copiesTitleItemID						;ID
							dc.w		26,7,26+12,7+50							;Rect
							dc.l		statTextControl							;ProcRef
							dc.w		1										;Flags
							dc.w		$1000									;MoreFlags
							dc.l		0										;RefCon
							dc.l		@TitleStart								;TitleRef
							dc.w		@TitleEnd-@TitleStart					;TextSize
@TitleStart					dc.b		'Copies:'
@TitleEnd:
			
							export		copiesBoxString
copiesBoxItem				dc.w		8										;pCount
							dc.l		copiesBoxItemID							;ID
							dc.w		24,99,24+13,99+57						;Rect
							dc.l		$83000000								;PR: lineEditControl
							dc.w		0										;Flags
							dc.w		$7000									;MoreFlags
							dc.l		0										;RefCon
							dc.w		5										;MaxSize
							dc.l		copiesBoxString							;DefaultRef
copiesBoxString				str			'XXXXX'





*
*MEALALERTBOXSTRING: AlertWindow template string for 75 vs 80 dpi horizontal metrics warning:
*
							export		MeAlAlertBoxString
MeAlAlertBoxString			dc.b		'5'										;box size spec
							dc.b		'3'										;icon spec "Note"
							dc.b		'/'										;separator
							dc.b		'Device and screen resolutions do not'	;message text...
							dc.b		' match.  Margin adjustment may be'
							dc.b		' required.'
							dc.b		'/'										;separator
							dc.b		'^#0'									;btn dflt "OK" id=0
							dc.b		0										;terminator
							




*
*LOMEALERTBOXSTRING: AlertWindow template string for low-memory warning:
*
							export		LoMeAlertBoxString
LoMeAlertBoxString			dc.b		'5'										;box size spec
							dc.b		'3'										;icon spec "Note"
							dc.b		'/'										;separator
							dc.b		'Text and other objects may not be'		;message text...
							dc.b		' rendered properly due to low memory.'
							dc.b		'/'										;separator
							dc.b		'#1'									;btn "Cancel" id=0
							dc.b		'/'										;separator
							dc.b		'^#0'									;btn dflt "OK" id=1
							dc.b		0										;terminator
							




*
*ABOUTCONTROLTEMP: Control template for the about box, using some of the items from dialogs above:
*
							export		AboutControlTemp
AboutControlTemp			dc.l		aboutLineItem4
							dc.l		aboutLineItem3
							dc.l		aboutLineItem2
							dc.l		aboutLineItem1
							dc.l		versionItem
							dc.l		aboutTitleItem
							dc.l		0
							
aboutTitleItem				dc.w		8										;pCount
							dc.l		0										;ID
							dc.w		3,6,13,258								;Rect
							dc.l		statTextControl							;ProcRef
							dc.w		1										;Flags
							dc.w		$1000									;MoreFlags
							dc.l		0										;RefCon
							dc.l		TiItStart								;TitleRef--use above
							dc.w		(TiItEnd-TiItStart)-3					;TextSize--chop " / "

aboutLineItem1				dc.w		9										;pCount
							dc.l		0										;ID
							dc.w		59,0,59+10,296							;Rect
							dc.l		statTextControl							;ProcRef
							dc.w		1										;Flags
							dc.w		$1000									;MoreFlags
							dc.l		0										;RefCon
							dc.l		@TitleStart								;TitleRef
							dc.w		@TitleEnd-@TitleStart					;TextSize
							dc.w		1 										;Justification
@TitleStart					dc.b		'Printer Driver'
@TitleEnd:

aboutLineItem2				dc.w		9										;pCount
							dc.l		0										;ID
							dc.w		74,0,74+10,296							;Rect
							dc.l		statTextControl							;ProcRef
							dc.w		1										;Flags
							dc.w		$1000									;MoreFlags
							dc.l		0										;RefCon
							dc.l		@TitleStart								;TitleRef
							dc.w		@TitleEnd-@TitleStart					;TextSize
							dc.w		1 										;Justification
@TitleStart					dc.b		'by'
@TitleEnd:

aboutLineItem3				dc.w		9										;pCount
							dc.l		0										;ID
							dc.w		89,0,89+10,296							;Rect
							dc.l		statTextControl							;ProcRef
							dc.w		1										;Flags
							dc.w		$1000									;MoreFlags
							dc.l		0										;RefCon
							dc.l		@TitleStart								;TitleRef
							dc.w		@TitleEnd-@TitleStart					;TextSize
							dc.w		1 										;Justification
@TitleStart					dc.b		'Ben Koning'
@TitleEnd:

aboutLineItem4				dc.w		9										;pCount
							dc.l		0										;ID
							dc.w		143,0,143+10,296						;Rect
							dc.l		statTextControl							;ProcRef
							dc.w		1										;Flags
							dc.w		$1000									;MoreFlags
							dc.l		0										;RefCon
							dc.l		@TitleStart								;TitleRef
							dc.w		@TitleEnd-@TitleStart					;TextSize
							dc.w		1 										;Justification
@TitleStart					dc.b		'Copyright 1990 Apple Computer'
@TitleEnd:




							endr
							end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/HP.DESKJET/entry.aii b/IIGS.601.SRC/GSToolbox/PrinterDrivers/HP.DESKJET/entry.aii
new file mode 100644
index 0000000..96d0140
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/HP.DESKJET/entry.aii
@@ -0,0 +1 @@
+
******************************************************************************************
*                                                                                        *
*		Apple IIgs Printer Driver                                                        *
*                                                                                        *
*		File: entry.aii -- Entry Points; environment (D/B) setup; dispatch to routines   *
*                                                                                        *
*		Written by Ben Koning                                                            *
*		Copyright (C) 1990 Apple Computer, Inc.                                          *
*                                                                                        *
******************************************************************************************







							include		'equates.aii'



							include		'm16.util'
							include		'e16.print'



EntryProc					proc		export





*
*New (Apple IIgs System Disk 5.0 and later), re-entrant, driver entry point:
*
Entry						dc.w		0
							dc.w		(DispatchEnd-DispatchBegin)/4
*
*Save/Set Bank and Direct registers (D page; B=K), assume no errors, dispatch to routines:
*
							phb									;Save B byte for later restore
							phd									;Save D word for later restore
							cpx			#((17-1)*4)+1			;See if call # is in range
							bcc			Entry1
							brk			#$BB					;Should never happen
Entry1						tsc
							sec
							sbc			#DPSize					;Stack frame for small direct page
							tcs
StackParam					equ			1+3+3+1+2+DPSize		;1 + RTL1 + RTL2 + B + D + StackFrame
							ina
							tcd									;Set our D to our stack frame
							phk
							plb									;Set our B; now can use abs addr
							stz			errNo					;Assume no error unless set later on
							jmp			(DispatchBegin,x)		;Go do one of our routines


														
*
*Dispatch table:
*
DispatchBegin				
							dc.l		BK_PrDefault			;PrDefault - initialize print record
							dc.l		BK_PrValidate			;PrValidate - sanitize print record
							dc.l		BK_PrJobStlDialog		;PrStlDialog - user interface
							dc.l		BK_PrJobStlDialog		;PrJobDialog - user interface
							dc.l		BK_PrDriverVer			;PrDriverVer - version number
							dc.l		BK_PrOpenDoc			;PrOpenDoc - alloc printing resources
							dc.l		BK_PrCloseDoc			;PrCloseDoc - dealloc pr resources
							dc.l		BK_PrOpenPage			;PrOpenPage - define start of page
							dc.l		BK_PrClosePage			;PrClosePage - causes page to print
							dc.l		BK_PrPicFile			;PrPicFile - call after PrCloseDoc
							dc.l		BK_Reserved				;Reserved
							dc.l		BK_PrError				;PrError - get current print status
							dc.l		BK_PrSetError			;PrSetError - set print status/abort
							dc.l		BK_PrChanged			;PrChanged - report NBP driver name
							dc.l		BK_PrPixelMap			;PrPixelMap - allow full res access
							dc.l		BK_PrGetPrinterSpecs	;PrGetPrinterSpecs - get self-id info
							dc.l		BK_PrGetPgOrientation	;PrGetPgOrientation - port/land mode
DispatchEnd



*
*Embedded credit message:
*
							dc.b		'HP DESKJET DRIVER - Ben Koning - (C) Apple'


							
*
*EXIT: Jump here when done doing driver call.
*After removing direct page stack frame, this routine moves 9 bytes at bottom of stack X number
*of bytes up, restores D/B, leaves A and carry with error status, and RTLs.  Note that 2 RTLs are
*assumed to be on the stack.
*
Exit						tsc									;Get rid of our little scratch area
							clc
							adc			#DPSize
							tcs
	 						cpx			#0						;Have to do this compare for 0
							beq			Exit3
							stx			TmpNumMov
							tsc
							sta			Exit1+1
							clc
							adc			TmpNumMov
							sta			Exit2+1
							push1		#0
							plb									;Our data bank is 0 at this point
							ldy			#8						;9+(0 because we're JMPed-to) - 1
Exit1						lda			$FFFF,y
Exit2						sta			$FFFF,y
							dey
							dey
							bpl			Exit1
							phk
							plb
							lda			Exit2+1
							tcs									;S restored
Exit3						lda			errNo					;get errNo for use in a sec...
							pld									;D restored--no more direct addrs
							plb									;B restored--no more absolute addrs
							cmp			#1						;ACC has err... set carry if nonzero
							rtl									;Exit back to print manager
*
TmpNumMov					dc.w		0						;Temporary storage used above






****************************************************************************************************





*
*The following routines do all the work of the printer driver, or at least contain JSRs to
*routines in other files.  The following has happened on entry to these routines:
*
*		* The caller's D/B registers have been saved
*		* The D register is the same as the K register so absolute adressing can be used
*		* The B register points to DPSize free bytes on the stack for scratch usage
*		* "errNo" has been set to zero, assuming no errors from the routine
*		* Since caller's environment was saved on stack, the driver is re-entrant.
*
*These routines should do their work by:
*
*		* Accessing input/output parameters on the stack by means of LDx/STx StackParam+N,s,
*		  where the N refers to the relative offset (ie, 0,2,4 would be 3 words on the stack)
*		* Using our small direct page area, JSRing to other assembly files, using the stack
*		* Changing "errNo" to be nonzero if error flagging is desired
*		* Calling routines in this driver if desired (some port driver calls actually do this)
*		* LDX #N, where N is the number of input parameter bytes used by the routine
*		* JMP/BRL Exit.
*
*The exit routine will then:
*
*		* Dump our small direct page off of the stack
*		* Dump input parameters off of the stack
*		* Restore the caller's D/B registers from stack
*		* Set the A register with value of "errNo" and set the carry if nonzero
*		* Exit via RTL.
*






****************************************************************************************************
BK_Reserved					ldx			#2						;$0002 - Tool Locator func not found
							stx			errNo
*
							ldx			#0						;assume no bytes to strip off stack
							brl			Exit
****************************************************************************************************







****************************************************************************************************
BK_PrDefault				lda			StackParam+0,s			;This routine fills in the user's
							sta			printRecordHandle+0		;area of memory with a default
							lda			StackParam+2,s			;print record with standard options
							sta			printRecordHandle+2
*
							import		InitPrintRecord
							jsr			InitPrintRecord			;Metrics routine
*
							ldx			#4						;# of input param bytes to strip
							brl			Exit
****************************************************************************************************
							
							





****************************************************************************************************
BK_PrValidate				lda			StackParam+0,s			;This routine checks to make sure
							sta			printRecordHandle+0		;the user's print record is
							lda			StackParam+2,s			;self-consistent and up to date,
							sta			printRecordHandle+2		;and changes it if necessary
*
							import		GetOkOurDriver
							jsr			GetOkOurDriver			;Metrics: Same driver as last time?
							beq			PrVaAllCorrect			;wow, this print record is perfect
							import		InitPrintRecord
							jsr			InitPrintRecord			;take over print record for us
							lda			#1						;recAdjustFlag := true
							bra			PrVaExit
							import		CalcMetrics
PrVaAllCorrect				jsr			CalcMetrics				;make sure self-consistent
							lda			#0						;recAdjustFlag := false
*
PrVaExit					sta			StackParam+4,s			;store recAdjustFlag result
							ldx			#4						;# of input param bytes to strip
							brl			Exit
****************************************************************************************************







****************************************************************************************************
BK_PrJobStlDialog			lda			StackParam+0,s			;This routine uses data in the
							sta			printRecordHandle+0		;user's print record to properly
							lda			StackParam+2,s			;draw a dialog, and allows the
							sta			printRecordHandle+2		;user to modify that data
*
							import		GetOkOurDriver			;ensure a valid rec for this driver
							jsr			GetOkOurDriver			;Metrics: Same driver as last time?
							beq			PrDiAllCorrect			;wow, this print record is perfect
							import		InitPrintRecord			;not same driver as last time, so...
							jsr			InitPrintRecord			;...take over print record for us
							import		CalcMetrics
PrDiAllCorrect				jsr			CalcMetrics				;make sure self-consistent, though
*
							import		CheckAndDoAboutBox		;do about box if requested
							jsr			CheckAndDoAboutBox
*
							import		CheckAndDoMetricsAlert	;do metrics alert box if needed
							jsr			CheckAndDoMetricsAlert
*
							import		ConductJobStyleDialog	;go do the dialog, ACC will have
							jsr			ConductJobStyleDialog	;value of T/F if OK/Cancel
							cmp			#0						;did user select cancel?
							beq			PrDiDone				;if so, return to caller with 0
							import		CheckAndDoLowMemAlert	;else, OK selected, so do low-mem
							jsr			CheckAndDoLowMemAlert	;alert, ACC will have T/F if OK/Cncl
*
PrDiDone					sta			StackParam+4,s			;return confirmFlag to user
							ldx			#4						;# of input param bytes to strip
							brl			Exit
****************************************************************************************************







****************************************************************************************************
BK_PrDriverVer				lda			#VersionID				;This routine returns the version
							sta			StackParam+0,s			;number of this particular driver
*
							ldx			#0						;# of input param bytes to strip
							brl			Exit
****************************************************************************************************







****************************************************************************************************
BK_PrOpenDoc				lda			StackParam+0,s			;This routine clears error status,
							sta			printGrafPortPtr+0		;and initializes and sets a GrafPort
							lda			StackParam+2,s			;with boundsrect, etc., configured
							sta			printGrafPortPtr+2		;for the resolution of the printer.
							lda			StackParam+4,s			;If printGrafPtr is NIL, we allocate
							sta			printRecordHandle+0		;our own space, else we use the
							lda			StackParam+6,s			;caller's GrafPort and configure it.
							sta			printRecordHandle+2
*
							import		OpenDoc
							jsr			OpenDoc					;print loop routine
*
							lda			printGrafPortPtr+0		;pass GrafPort back to user,
							sta			StackParam+8,s			;in case we allocated it here...
							lda			printGrafPortPtr+2
							sta			StackParam+10,s
							ldx			#8						;# of input param bytes to strip
							brl			Exit
****************************************************************************************************







****************************************************************************************************
BK_PrCloseDoc				lda			StackParam+0,s			;this routine closes the printing
							sta			printGrafPortPtr+0		;grafport, frees its memory if the
							lda			StackParam+2,s			;caller passed NIL during OpenDoc,
							sta			printGrafPortPtr+2		;restores grafport and stops spooling
*
							import		CloseDoc
							jsr			CloseDoc				;print loop routine
*
							ldx			#4						;# of input param bytes to strip
							brl			Exit
****************************************************************************************************







****************************************************************************************************
BK_PrOpenPage				lda			StackParam+0,s			;This routine keeps track of #pages
							sta			pageFramePtr+0			;and works only if within page range
							lda			StackParam+2,s			;this routine calls OpenPicture with
							sta			pageFramePtr+2			;pageframe of rPage or user-select
							lda			StackParam+4,s			;the current (print) grafport is
							sta			printGrafPortPtr+0		;re-initialized, and SpoolPut is
							lda			StackParam+6,s			;called explicitly to store initial
							sta			printGrafPortPtr+2		;info PutPic doesn't get called for
*
							import		OpenPage
							jsr			OpenPage				;print loop routine
*
							ldx			#8						;# of input param bytes to strip
							brl			Exit
****************************************************************************************************







****************************************************************************************************
							import		ClosePage				;This routine terminates a page
BK_PrClosePage				jsr			ClosePage				;print loop routine
*
							ldx			#4						;# of input param bytes to strip
							brl			Exit					;(we didn't need input parameters)
****************************************************************************************************







****************************************************************************************************
BK_PrPicFile				ldx			#12						;Does nothing; we only do imm mode
							brl			Exit					;# of input param bytes to strip
****************************************************************************************************







****************************************************************************************************
							import		GetPrintLoopError
BK_PrError					jsr			GetPrintLoopError		;err in acc from print loop routine
							sta			StackParam+0,s
							ldx			#0						;# of input param bytes to strip
							brl			Exit
****************************************************************************************************







****************************************************************************************************
							import		SetPrintLoopError
BK_PrSetError				lda			StackParam+0,s			;get in acc
							jsr			SetPrintLoopError		;print loop routine
							ldx			#2						;# of input param bytes to strip
							brl			Exit
****************************************************************************************************







****************************************************************************************************
BK_PrChanged				pushlong	#PrChDevNameStr			;Informs port driver of type of
							ldx			#$1913					;device; important for networking
							jsl			$E10000					;_PrDevPrChanged
							ldx			#0						;# of input param bytes to strip
							brl			Exit					;we're done
PrChDevNameStr				str			'='						;ID string in appletalk NBP format
							str			'HP DeskJet'			;even though appletalk is not
							str			'*'						;supported in this driver
****************************************************************************************************







****************************************************************************************************
BK_PrPixelMap				pha									;Abort if no port. Result space...
							ldx			#$3013					;ask currently installed port driver
							jsl			$E10000					;_DevIsItSafe
							pla
							bne			PiMaOKDevice			;true result: no error
							lda			#portNotOn				;else: return with tool error
							sta			errNo
							bra			PiMaExit
PiMaOKDevice
*
							import		ImagerOpen				;start the imager
							jsr			ImagerOpen
							lda			StackParam+6,s			;get srcLocPtr lo in X
							tax
							lda			StackParam+8,s			;get srcLocPtr hi in Y
							tay
							import		ImagerSetLocInfo		;tell imager about the locinfo
							jsr			ImagerSetLocInfo
							import		ImagerReset				;prepare to print
							jsr			ImagerReset
							import		ImagerPrint				;print the bitmap
							jsr			ImagerPrint
							import		ImagerClose				;stop the imager
							jsr			ImagerClose
*
PiMaExit					ldx			#10						;# of input param bytes to strip
							brl			Exit
****************************************************************************************************







****************************************************************************************************
BK_PrGetPrinterSpecs		lda			#DeviceID		 		;pass our device identification
							sta			StackParam+0,s
							lda			#1						;pass "1" -- black/white only
							sta			StackParam+2,s
							ldx			#0						;# of input param bytes to strip
							brl			Exit
****************************************************************************************************







****************************************************************************************************
BK_PrGetPgOrientation		lda			StackParam+0,s			;This routine returns the value
							sta			printRecordHandle+0		;of the orientation setting just
							lda			StackParam+2,s			;to try to keep the application out
							sta			printRecordHandle+2		;of the print record
*
							lda			#0						;Orientation is always portrait
							sta			StackParam+4,s
*
							ldx			#4						;# of input param bytes to strip
							brl			Exit
****************************************************************************************************







							endproc
							end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/HP.DESKJET/equates.aii b/IIGS.601.SRC/GSToolbox/PrinterDrivers/HP.DESKJET/equates.aii
new file mode 100644
index 0000000..8de378a
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/HP.DESKJET/equates.aii
@@ -0,0 +1 @@
+
******************************************************************************************
*                                                                                        *
*		Apple IIgs Printer Driver                                                        *
*                                                                                        *
*		File: equates.aii -- Common direct page labels and equates for all to use        *
*                                                                                        *
*		Written by Ben Koning                                                            *
*		Copyright (C) 1990 Apple Computer, Inc.                                          *
*                                                                                        *
******************************************************************************************







*
*Device and configuration information:
*
DeviceID					equ			5							;iDev: 1=IW, 2=LQ, 3=LW, 4=Epson
VersionID					equ			$0100						;Version ID word: $XXYY ==> X.Y



*
*Memory allocation performance potentiometers:
*
UserIDType					equ			$1000						;UID for mem alloc calls, etc.
LowMemAlertThresh			equ			(512)/64					;no alert if > (K) RealFreeMem



*
*Imager fine-tuning potentiometers:
*
ImagerIPAFrequencyMask		equ			$3F							;idleproc/abort every 64 lines
ImagerRLEThreshold			equ			3							;run-length-encoding threshold
ImagerQDPattVAlignFactor	equ			8							;allow for v align of QD patterns



*
*QuickDraw-dependent equates:
*
QDMaxPixBuff				equ			$FFFF						;Maximum LocInfo.PtrToPixImage
QDAuxTheKindDPLoc			equ			$A6							;contains kind of PicComment
QDAuxTheSizeDPLoc			equ			$A8							;contains size of PicComment
QDAuxTheHandleDPLoc			equ			$AA							;contains hdl to PicComment data
QDDrawVerbDPLoc				equ			$38							;"DrawVerb" quickdraw equate
QDTextPtrDPLoc				equ			$DA							;"TextPtr" quickdraw equate
QDTextLengthDPLoc			equ			$D8							;"TextLength" quickdraw equate
QDCharToDrawDPLoc			equ			$D6							;"CharToDraw" quickdraw equate
QDRectPtrDPLoc				equ			$D2
QDDrawCharVerbEqu			equ			0							;"DrawCharVerb" quickdraw equate
QDDrawTextVerbEqu			equ			1							;"DrawTextVerb" quickdraw equate
QDDrawCStrVerbEqu			equ			2							;"DrawCStrVerb" quickdraw equate
ov1							equ			0							;Point data structure element
oh1							equ			2							;Point data structure element
ov2							equ			4							;Point data structure element
oh2							equ			6							;Point data structure element



*
*Dumb-printer-driver wDev imaging definition bits:
*
wDevGap						equ 		%0000000001000000			;6	1=normal 0=no vert gap
wDevColor					equ			%0000000000100000			;5	1=color 0=grayscale
wDevReduction				equ			%0000000000001000			;3	1=normal 0=50% reduction
wDevVSize					equ			%0000000000000100			;2	1=normal 0=vert condense
wDevOrientation				equ			%0000000000000010			;1	1=portrait 0=landscape
wDevBetterText				equ			%0000000000000001			;0	1=high resolution printing



*
*New print record definitions for new (>4.0) drivers, placed where "oprintX" used to be:
*
opFileBlockSize				equ			$64+0						;Granularity of spool mallocs
opFileMemLimit				equ			$64+4						;When to start spooling to disk
opCTable					equ			$64+8						;Color table for imaging
opSCBList					equ			$64+12						;SCB list for imaging
owQuality					equ			$64+16						;New print quality definitions
owPaperCrWidth				equ			$64+18						;Variable internal crWidth value
owResScaling				equ			$64+20						;Blow-up amount for Bett quality



*
*Imaging routine/printer maximum resolutions.  These are starting points for metrics calculations:
*
maxResPortraitX				equ			300							;Printer pixels per inch (dpi)
maxResPortraitY				equ			300							;in both hor & vert directions
printTopMargin				equ			9							;Top margin in 1/72" units
printLineMargin				equ			4							;Left line margin in 1/16" units
pixMapCallCrWidth			equ			8*maxResPortraitX			;Carriage width for PrPixMap call
pixMapCallPaperLength		equ			11*maxResPortraitY/2		;Paper tallness for PrPixMap call
prRecCrWidth				equ			960							;Historical value apps expect



*
*The following paper dimensions are in 1/16th inch units--they are 16 times too big (for accuracy):
*
paperTypeUsaLetter			equ			0							;8.5" 1/4" mrg x 11" 1/4" gap
paperSizeUsaLetterX			equ			136							;US Letter MUST be type 0
paperSizeUsaLetterY			equ			176
paperSizeUsaLetterGap		equ			4

paperTypeUsaLegal			equ			1							;8.5" 1/4" mrg x 14" 1/4" gap
paperSizeUsaLegalX			equ			136							;US Legal MUST be type 1
paperSizeUsaLegalY			equ			224
paperSizeUsaLegalGap		equ			4

paperTypeEurA4				equ			2							;210mm 1/8" mrg x 297mm 1/4" gap
paperSizeEurA4X				equ			136							;Eur A4 MUST be type 2
paperSizeEurA4Y				equ			187
paperSizeEurA4Gap			equ			4

paperTypeEnvNo10			equ			3							;9.5" 1/4" mrg x 4.125" 1/4" gap
paperSizeEnvNo10X			equ			152							;Intl FF is supposed to
paperSizeEnvNo10Y			equ			66							;be type 3, but this printer
paperSizeEnvNo10Gap			equ			4							;can't support it

maxPaperTypeID				equ			paperTypeEnvNo10			;NOTE: LENGTH OF THIS LIST!



*
*Dialog boxes' item ID numbers... MUST be consecutive within groupings:
*
mesgFeedPromptID			equ			10000						;for status message alert
mesgFeedPromptOKButtID		equ			1							;for default <CR> action
mesgFeedPromptNGButtID		equ			10001
mesgFeedPromptStringID		equ			10002

titleItemID					equ			10100						;for combo Job/Style dialog...
versionItemID				equ			10101
cancelItemID				equ			10102
okItemID					equ			10103

paperTypeItemID				equ			11000
paperTypeUsaLtrItemID		equ			12000+paperTypeUsaLetter
paperTypeUsaLglItemID		equ			12000+paperTypeUsaLegal
paperTypeEurA4ItemID		equ			12000+paperTypeEurA4
paperTypeEnvNo10ItemID		equ			12000+paperTypeEnvNo10

pageFeedItemID				equ			13000
pageFeedManualItemID		equ			13001
pageFeedAutoItemID			equ			13002
pagesTitleItemID			equ			13003
pagesAllItemID				equ			13004
pagesRangeItemID			equ			13005
pagesFromTitleItemID		equ			13006
pagesToTitleItemID			equ			13007
copiesTitleItemID			equ			13008
pagesFromBoxItemID			equ			13009
pagesToBoxItemID			equ			13010
pagesFromToSeparatorItemID	equ			13011
copiesBoxItemID				equ			13012
effectsCondensedItemID		equ			13013
effectsCondensedNoItemID	equ			13014
effectsCondensedYesItemID	equ			13015
printQualityItemID			equ			13016
printQualityLoResItemID		equ			13017
printQualityMeResItemID		equ			13018
printQualityHiResItemID		equ			13019



*
*Temporary direct-page storage which is NOT maintained across driver calls or driver re-entries:
*
ParamWordA					equ			0					;word		;parameter passing between
ParamWordB					equ			2					;word		;subroutines and temporary
ParamWordC					equ			4					;word		;storage use...
ParamWordD					equ			6					;word
ParamWordE					equ			8					;word
ParamWordF					equ			10					;word
ParamLongA					equ			12					;long
ParamLongB					equ			16					;long
ParamLongC					equ			20					;long
ParamLongD					equ			24					;long
OptionA						equ			28					;word		;for passing input params
OptionB						equ			30					;word		;to metrics routines
errNo						equ			32					;word		;tool error output from us
DialogWindowPtr				equ			34					;long		;gp ptr during job/stl dlog
OldGrafPortPtr				equ			38					;long		;saving gp behind dlog
printRecordHandle			equ			42					;long		;usr inp; need for metrics
printGrafPortPtr			equ			46					;long		;user input
pageFramePtr				equ			50					;long		;user input
statusRecPtr				equ			54					;long		;user input

DPSize						equ			58+1				;DP size on stack; <256 b/c stack params!
DPSizeParamOnly				equ			28+1				;DP size for just using some params only


\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/HP.DESKJET/imager.aii b/IIGS.601.SRC/GSToolbox/PrinterDrivers/HP.DESKJET/imager.aii
new file mode 100644
index 0000000..a159279
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/HP.DESKJET/imager.aii
@@ -0,0 +1 @@
+
******************************************************************************************
*                                                                                        *
*		Apple IIgs Printer Driver                                                        *
*                                                                                        *
*		File: imager.aii -- Low Level Driver: Pixmap > ESC Codes > Communications        *
*                                                                                        *
*		Written by Ben Koning                                                            *
*		Copyright (C) 1990 Apple Computer, Inc.                                          *
*                                                                                        *
******************************************************************************************







							include		'equates.aii'
							
							
							
							include		'm16.util'
							include		'm16.intmath'
							include		'm16.event'
							include		'm16.misctool'
							include		'e16.quickdraw'



ImagerProc					proc		export







*
*IMAGER: LOW-LEVEL PRINTER DRIVER ROUTINES
*
*These routines are the only ones which communicate with the printer device.  They are
*capable of providing paper motion control and a process of marking the paper with the
*image of a bitmap supplied by the caller, in various resolutions (that is, various
*sizes).  It is the intention that the caller request that the imager mark the page in
*a high resolution with a large bitmap, the latter compensating for the former so that
*the resulting image appears at the correct size, but with increased resolution.
*
*This particular imager is feature-reduced and does not support color.  In fact, it
*does not support grayscale very well either.  Instead, it is optimized for speed
*performance by means of white space skipping, direct source pixel to printer pixel
*conversion, and data compression.
*
*The following entry points are supported:
*
*	ImagerOpen				Establishes unique connection to printer
*	ImagerClose				Releases unique connection to printer
*	ImagerSetPaperType		Sets up physical paper type
*	ImagerSetLocInfo		Sets up locinfo struct of bitmap and sets up our color map table
*	ImagerSetResolution		Sets up dpi-quality (size of each printer pixel)
*	ImagerSetVCondense		Sets up double or single vertical stretching
*	ImagerSetIdleProc		Sets up idle proc to be called periodically
*	ImagerSetAbortPoll		Sets up address to listen for to cause abort
*	ImagerGetVAlignFactor	Returns vertical size to which bitmap must be aligned
*	ImagerGetDeviceID		Confirms identity of printer
*	ImagerReset				Resets printer mechanics to default values
*	ImagerFormfeed			Outputs a form feed character
*	ImagerLinefeed			Moves the paper down by a specified distance
*	ImagerPrint				Images, compresses, and sends a graphics bitmap
*
*The imager, like other modules of the print driver, uses "ParamXXXXY" direct
*page variables defined in the equates module.
*
*Entry points that require pointers should be called with the low word in X
*and the high word in Y.  Entry points that require input values should be
*called with the A register set.  Output, if any, is given in the A register
*and carry flag.
*
*If something other than NIL is passed for the IdleProc, that location will
*be JSL-ed to with our environment saved.  The Command-Period printing
*interrupt request from the user is checked for even if an IdleProcPtr is
*given (Command-Period causes the imager to abort and return $80 status).
*The address given in ImagerSetAbortPoll is checked after the idleproc is
*executed; this allows a high-level driver to allow the idleproc to set
*a global variable such as PrSetError.
*
*The coordinates given in ImagerSetLocInfo must be such that Y1<Y2 and
*X1<X2.  The X coordinates should be byte-aligned.  Mixed 640-and-320
*modes within the same bitmap is not supported.  This call initializes
*values used during printing, such as the color pixel conversion table
*which maps screen pixels into printer pixels.
*
*Within the chunky color pixels of the bitmap, the color table entries for
*%00 or %0000 are assumed to be pure black and those for %11 or %1111 are
*assumed to be pure white.  A pure black and a pure white should always
*exist in the standard color table entries.  If this is not the case, then
*those pixels in the bitmap which refer to %00/%0000 or %11/%1111 will be
*incorrectly printed black or white, respectively.  Also, if there are
*pure black/white colors, but assigned to nonstandard locations in the
*color table, then printing may also be incorrect.
*
*Notes on terminology: In these routines, "band" refers to one scan of the
*print head.  Do not confuse this with the printing bands into which the
*high-level driver print loop routines split up each page due to possible
*memory constraints.  Also, note the distinctions made in the comments
*between "source" and "printer" pixels.  "Source" pixels are the input to
*the imager (and are in fact usually in an off-screen buffer), and "printer"
*pixels are the dots which are sent to the printer device.
*







*
*IMAGEROPEN: Establishes unique connection with printer and initializes the imager:
*
							export ImagerOpen
ImagerOpen
							stz AbortFlag						;zero our abort flag
							stz Resolution						;default 75 dpi
							stz PaperType						;default USLetter paper type
							stz VerticalCondenseFlag			;default no vertical condense
							stz IdleProcPtr+0					;default no idle procedure
							stz IdleProcPtr+2
							stz AbortPollPtr+0					;default no abort poll location
							stz AbortPollPtr+2
							
							pushlong #0							;ask port driver to open connection
							pushlong #0
							ldx #$1C13							;_PrDevOpen
							jsl $E10000
							rts







*
*IMAGERCLOSE: Releases unique connection with printer and terminates the imager:
*
							export ImagerClose
ImagerClose
							ldx #$1F13							;_PrDevClose
							jsl $E10000
							rts







*
*IMAGERGETVALIGNFACTOR: Returns vert align needed for some printers with band print models -> ACC:
*
							export ImagerGetVAlignFactor
ImagerGetVAlignFactor
							lda #ImagerQDPattVAlignFactor		;any-vertical-size bitmap is ok, but
							rts									;allow for quickdraw patterns







*
*IMAGERGETDEVICEID: Finds out if we're connected to correct device.  A/carry set if correct device:
*
							export ImagerGetDeviceID
ImagerGetDeviceID
							lda #1								;always return true; we could not
							sec									;obtain a reliable response and it
							rts									;is not documented







*
*IMAGERSETPAPERTYPE: Informs imager of physical paper type to set during reset.  Pass type -> ACC:
*
*The types supported by the printer are: 0=USLetter, 1=USLegal, 2=A4Letter, 3=#10Envelope
*
							export ImagerSetPaperType
ImagerSetPaperType
							and #%11							;do rudamentary range clip for 0..3
							sta PaperType						;set our global variable
							rts







*
*IMAGERSETLOCINFO: Informs us of bitmap dims with locinfo/inits color map table.  Ptr lo->X, hi->Y:
*
							export ImagerSetLocInfo
ImagerSetLocInfo
							stx ParamLongA+0					;access caller's locinfo struct
							sty ParamLongA+2
							ldy #oportSCB						;obtain the current graphics mode
							lda [ParamLongA],y					;and store as $00/$80 in static var
							and #$0080
							sta SourceMode
							
							ldy #optrToPixImage					;obtain pointer to caller's bitmap
							lda [ParamLongA],y					;and store in our static variable
							sta SourcePixPtr+0
							iny
							iny
							lda [ParamLongA],y
							sta SourcePixPtr+2
							
							ldy #owidth							;obtain byte-width and store
							lda [ParamLongA],y
							sta SourceByteWidth
							
							ldy #oboundsRect+ov1				;store beginning and ending raster
							lda [ParamLongA],y					;lines of the source bitmap; note
							sta SourceYLineBegin				;that Y1 must be smaller than Y2
							ldy #oboundsRect+ov2
							lda [ParamLongA],y
							sta SourceYLineEnd
							
							ldy #oboundsRect+oh1				;convert beginning X coordinate to
							lda [ParamLongA],y					;byte offset and store
							lsr a
							ldx SourceMode						;320: 2 pix/byte, 640: 4 pix/byte
							beq SeLoDivX1Its320
SeLoDivX1Its640				lsr a
SeLoDivX1Its320				sta SourceXByteBegin

							ldy #oboundsRect+oh2				;convert ending X coordinate to
							lda [ParamLongA],y					;byte offset and store
							lsr a
							ldx SourceMode						;320: 2 pix/byte, 640: 4 pix/byte
							beq SeLoDivX2Its320
SeLoDivX2Its640				lsr a
SeLoDivX2Its320				sta SourceXByteEnd

							brl BuildPixConvertTable			;build default pix cvt table; exit







*
*IMAGERSETRESOLUTION: Sets size of each printer pixel to 75/150/300 dpi.  Pass 0/1/2 -> ACC:
*
							export ImagerSetResolution
ImagerSetResolution
							and #%11							;do rudamentary range clip
							sta Resolution						;store it in global static var
							rts







*
*IMAGERSETVCONDENSE: Sets up 2x/1x-vert-size to compensate for GS fonts.  Pass 0/1: no/yes -> ACC:
*
							export ImagerSetVCondense
ImagerSetVCondense
							and #%1								;make sure it's only 0 or 1
							sta VerticalCondenseFlag			;store it in global static var
							rts







*
*IMAGERSETIDLEPROC: Sets proc to be called during printing.  Pass ptr or NIL lo->X, hi->Y:
*
							export ImagerSetIdleProc
ImagerSetIdleProc
							stx IdleProcPtr+0
							sty IdleProcPtr+2
							rts







*
*IMAGERSETABORTPOLL: Sets adrs; if goes non-0 during print, we abort.  Pass ptr/NIL lo->X, hi->Y:
*
							export ImagerSetAbortPoll
ImagerSetAbortPoll
							stx AbortPollPtr+0
							sty AbortPollPtr+2
							rts







*
*IMAGERRESET: Resets the printer logic and mechanics to default or printer-control-panel settings:
*
							export ImagerReset
ImagerReset
							lda #ImReResetCommand				;main printer reset command
							jsr WriteShort
							
							ldx PaperType						;setup values for paper type command
							bne ImRe1							;based on PaperType == 0,1,2,3
ImReItsLtr					lda	#ImRePaperTypeCommandLtr
							bra ImReDoPaperType
ImRe1						dex
							bne ImRe2
ImReItsLgl					lda #ImRePaperTypeCommandLgl
							bra ImReDoPaperType
ImRe2						dex
							bne ImReItsEnv
ImReItsA4					lda #ImRePaperTypeCommandA4
							bra ImReDoPaperType
ImReItsEnv					lda #ImRePaperTypeCommandEnv
ImReDoPaperType				jsr WriteShort						;paper size command

							lda #ImRePerfSkipCommandOff			;vertical perforation skip command
							jsr WriteShort

							lda #ImRePaperFeedCommandTray		;arrange to feed envelope if necc
							ldx PaperType
							cpx #3
							bne ImReDoPaperFeed
							lda #ImRePaperFeedCommandEnv
ImReDoPaperFeed				jsr WriteShort						;paper feed source command

							rts
							
ImReResetCommand			dc.b 2
							dc.b $1B,$45
							
ImRePaperTypeCommandLtr		dc.b 5
							dc.b $1B,$26,$6C,$32,$41
							
ImRePaperTypeCommandLgl		dc.b 5
							dc.b $1B,$26,$6C,$33,$41
							
ImRePaperTypeCommandA4		dc.b 6
							dc.b $1B,$26,$6C,$32,$36,$41
							
ImRePaperTypeCommandEnv		dc.b 6
							dc.b $1B,$26,$6C,$38,$31,$41
							
ImRePerfSkipCommandOff		dc.b 5
							dc.b $1B,$26,$6C,$30,$4C

ImRePaperFeedCommandTray	dc.b 5
							dc.b $1B,$26,$6C,$31,$48
							
ImRePaperFeedCommandEnv		dc.b 5
							dc.b $1B,$26,$6C,$33,$48







*
*IMAGERFORMFEED: Causes the printer to eject the current page:
*
							export ImagerFormfeed
ImagerFormfeed
							lda #ImFfFormfeedCommand
							brl WriteShort

ImFfFormfeedCommand			dc.b 5
							dc.b $1B,$26,$6C,$30,$48







*
*IMAGERLINEFEED: Moves the paper down by a specified distance.  Pass distance in 1/72ths -> ACC:
*
							export ImagerLinefeed
ImagerLinefeed
							sta ParamWordA						;multiply by 10 to get 1/720ths...
							asl a								;*2
							asl a								;*4
							asl a								;*8
							clc
							adc ParamWordA						;*9
							clc
							adc ParamWordA						;*10
							pha									;pass number of 1/720ths
							pushlong #ImLfLineFeedCommandNum	;pass where to put ascii number
							pushword #4							;ascii number space is 4 digits long
							pushword #0							;the number is unsigned
							_Int2Dec							;convert and store into command str
							lda #ImLfLineFeedCommand			;output command string and exit
							brl WriteShort
							
ImLfLineFeedCommand			dc.b 9								;command to move current print
							dc.b $1B,$26,$61,$2B				;position down by number of
ImLfLineFeedCommandNum		dc.b 'XXXX'							;1/720th inches
							dc.b $56







*
*IMAGERPRINT: Converts/compresses/sends bitmap referred by locinfo.  ACC/c -> Abort status:
*
*This routine converts the bitmap that has been previously specified with the set-locinfo call
*into printer-ready pixels and causes it to be printed.  In doing so, we employ a fast white
*scanner and utilize the pixel conversion table that was set up with the BuildPixConverTable
*routine.  CompressSend is called each time after the printer-pix-buffer has been filled by the
*completed processing of the current raster line.  After many CompressSend calls, we also
*periodically call IdleProcAbortCheck and terminate the imaging process if necessary.
*
*Variables used within the scope of doing all lines:
*	ParamLongD has pointer to beginning of current source line; it is inc by source width
*	ParamWordE has count of number of source lines that have been processed so far
*
*Variables within the scope of each line:
*	Y register has index into next byte position of source-pixel-buffer from ParamLongD
*	ParamWordF has index into next available byte of printer-pixel-buffer
*
							export ImagerPrint
ImagerPrint

*Send printer commands to initiate the proper graphics modes:
							ldx Resolution						;send command to select one of the
							beq ImPr_res75						;resolution modes; the higher the
							dex									;resolution, the smaller the pr pix
							beq ImPr_res150
ImPr_res300					lda	#ImPrGraphics300DPICommand
							bra ImPr_res_set
ImPr_res150					lda #ImPrGraphics150DPICommand
							bra ImPr_res_set
ImPr_res75					lda #ImPrGraphics75DPICommand
ImPr_res_set				jsr WriteShort

							lda #ImPrGraphicsStartCommand		;send start-of-graphics command
							jsr WriteShort
							
							lda #ImPrGraphicsCompactCommand		;send select-compact-mode command
							jsr WriteShort

*Initialize vertical loop counters:
							pha									;setup plD with address of starting
							pha									;source raster line by doing
							pushword SourceYLineBegin			;(y1 * raster_width) + pix_map_base
							pushword SourceByteWidth
							_Multiply
							clc									;prepare to add
							pla									;get lo word of multiply result
							adc SourcePixPtr+0					;add to pix map base and store lo
							sta ParamLongD+0
							pla									;get hi word of multiply result
							adc SourcePixPtr+2					;add to pix map base and store hi
							sta ParamLongD+2
							
							lda SourceYLineBegin				;reset vertical line counter in pwE
							sta ParamWordE

*Head of vertical loop for doing all raster lines:
ImPr_vertical_loop

*Init for converting one horizontal source-pixel line into a printer-pixel line:
							stz ParamWordF						;reset print-pix-buffer index in pwF
							jsr ClearPrintPixBuffer				;zero the print-pix-buffer itself
							lda SourceXByteEnd					;reset end-of-source-line terminator
							sta ImPr_white_eoln+1				;in the white-elimination loop
							ldy SourceXByteBegin				;reset source-pix-line index in Y
							
*Do fast loop which scans across white space a word at a time:
ImPr_white_loop				lda [ParamLongD],y					;get a word-full of source pixels
							cmp #$FFFF							;compare for all-std-white pixels
							bne ImPr_not_white					;go mark the pr buffer if not white
ImPr_white_next				inc ParamWordF						;increment index into pr pix buffer
							iny									;increment for getting next src word
							iny
ImPr_white_eoln				cpy #$0000							;NOTE: operand is stuffed
							bcc ImPr_white_loop					;loop until out of bytes in src line
							bra ImPr_done_converting			;branch if done with all bytes

*A source pixel word containing at least one non-white pixel has been encountered:
ImPr_not_white

*Convert word-full of source pix in ACC to a byte-full of printer pix and store in pr-pix-buffer:
							phy									;save 16-bit Y which has src h index
							sep #$20+$10						;set shortm+shortx: 8 bit mem/A/X/Y
							tax									;left src byte in A, right in B
							lda SourceToPrintPixLookup,x		;lo src byte -> 4 bits of pr pixels
							asl a								;shift into position; lo src byte's
							asl a								;pr pix nibble will be the high
							asl a								;nibble of the pr pix byte that we're
							asl a								;currently forming
							sta ParamWordA						;this will become lo nibble of pr pix
							xba									;now get high (right) source byte
							tax									;get 8 bits of source pixels in X
							lda SourceToPrintPixLookup,x		;hi src byte -> 4 bits of pr pixels
							ora ParamWordA						;bring in low nibble already obtained
							rep #$10							;longx; back to 16-bit for buff index
							ldx ParamWordF						;get current index into line buffer
							sta PrintPixBuffer,x				;store 8 bits of print pixels
							rep #$20							;longm; now everything back to 16-bit
							ply									;restore 16-bit Y with src h index
							bra	ImPr_white_next					;inc/loop back to white or this again

*Done with converting a single raster.  We now have a full line of printer-ready pixels:
ImPr_done_converting

*Compress and send data to printer:
							lda VerticalCondenseFlag			;send pr-line-buff data as compacted
							bne ImPr_vert_1X					;if vertical condense is on, then
ImPr_vert_2X				jsr CompressSend					;every single src line prints as one
ImPr_vert_1X				jsr CompressSend					;line, else, prints as two pr lines

*Periodically run idleproc and also see if the user wants to abort the printing process:
							lda ParamWordE						;use vertical counter and mask off
							and #ImagerIPAFrequencyMask			;with all 1's so that we get all-0
							bne ImPr_done_iproc_exec			;periodically (ie, every 64 lines)
							jsr IdleProcAbortCheck				;do iproc/monitor/cmd-period activity
ImPr_done_iproc_exec

*If the abort flag is set, for any reason, abort at this time:
							lda AbortFlag
							bne ImPr_exit
							
*Increment vertical counters and loop back:
							clc									;add the byte-width of the source
							lda ParamLongD+0					;bitmap to our current pointer, so
							adc SourceByteWidth					;as to point it to the next line
							sta ParamLongD+0
							lda ParamLongD+2
							adc #0
							sta ParamLongD+2
							
							inc ParamWordE						;increment vertical counter
							lda ParamWordE						;compare against last value
							cmp SourceYLineEnd					;loop if not done
							bcc ImPr_vertical_loop

*Exclusive exit point; terminate graphics mode and exit with status in ACC/carry:
ImPr_exit					lda #ImPrGraphicsFinishCommand
							jsr WriteShort
							lda AbortFlag
							cmp #1
							rts

*Graphics mode commands sent to printer:
ImPrGraphicsStartCommand	dc.b 5								;start raster graphics
							dc.b $1B,$2A,$72,$30,$41
							
ImPrGraphicsFinishCommand	dc.b 4								;end raster graphics
							dc.b $1B,$2A,$72,$42
							
ImPrGraphicsCompactCommand	dc.b 5								;select data compress mode 2
							dc.b $1B,$2A,$62,$32,$4D
							
ImPrGraphics75DPICommand	dc.b 6								;select 75 dpi size
							dc.b $1B,$2A,$74,$37,$35,$52
							
ImPrGraphics150DPICommand	dc.b 7								;select 150 dpi size
							dc.b $1B,$2A,$74,$31,$35,$30,$52
							
ImPrGraphics300DPICommand	dc.b 7								;select 300 dpi size
							dc.b $1B,$2A,$74,$33,$30,$30,$52







*
*COMPRESSSEND: Sends data in the print-pix-buffer to port driver (printer) in compacted format:
*
*This routine analyzes the data in the PrintPixBuffer and then writes into the CompressPixBuffer
*a compressed version of the data, according to the format of compacted-mode-2.  The total length
*of the data sequence is inserted into a raster-transfer command sequence, and then this command
*sequence, followed by the compressed data, is output to the port driver with a single write call.
*Two subroutines, COMPRESSSENDADDDATANOR and COMPRESSSENDADDDATARLE, are used by this routine.
*They add a discrete-data-block or a repeating-data-block to the output CompressPixBuffer; if these
*routines are asked to add a block that is greater than the maximum-allowed length, then they
*fullfill the request by adding several smaller such blocks.
*
CompressSend				stz cs_curr_pos						;init logical positions for scan:
							stz cs_nor_start					;normal-run start and end, repeat-
							stz cs_nor_end						;run start, repeat counter, and
							stz cs_rle_start					;state: 0=normal, 1=maybe rle,
							stz cs_curr_stat					;2=definetely rle; init for counting
							stz cs_rept_ctr						;the length of the entire compressed
							stz cs_outbuff_pos					;output ready for sending
							
							lda PrintPixBuffer+0				;init "last group" to be always
							ina									;different from first group
							sta cs_last_group+0
							
							ldx Resolution						;make sure we know when to stop
							beq cs_res75						;scanning pr pix buffer, whose used
							dex									;length depends on resolution setting
							beq cs_res150
cs_res300					lda	#300							;300 dpi * 8" / 8 dots/byte = 300
							bra cs_res_set
cs_res150					lda #150							;150 dpi * 8" / 8 dots/byte = 150
							bra cs_res_set
cs_res75					lda #75								;75  dpi * 8" / 8 dots/byte = 75
cs_res_set					sta cs_end_pos
		   
cs_test						ldy cs_curr_pos						;head of scanning loop
							shortm								;cmp current byte against last byte
							lda PrintPixBuffer,y
							cmp cs_last_group
							longm
							bne cs_diff
		   
cs_same						lda cs_curr_stat					;curr byte is == to byte last time,
							cmp #2								;so dispatch to sameness handlers
							beq cs_next							;if state=2, do nothing
							cmp #1								;if state=1, go to its handler
							bne cs_same_0						;else, if state=0, go to its handler
		   
cs_same_1					inc cs_rept_ctr						;inc rept cnt; if < thresh, continue
							lda cs_rept_ctr						;repeat counter can make us go from
							cmp #ImagerRLEThreshold-2			;state 1 to state 2 if >= thresh
							bcc cs_next
							lda #2								;we have beginning of a run, so
							sta cs_curr_stat					;go to state 2 and do normal output
							ldx cs_nor_start					;do normal add-data from nor_start
							ldy cs_nor_end						;to nor_end-1 and then continue scan
							jsr CompressSendAddDataNor
							bra cs_next
		   
cs_same_0					lda #1								;same as last time and in state 0, so
							sta cs_curr_stat					;go to state 1, clr repeat ctr, set
							stz cs_rept_ctr						;possible repeat-run start position
							lda cs_curr_pos
							dea
							sta cs_rle_start
							bra cs_next
		   
cs_diff						lda cs_curr_stat					;curr byte not == to byte last time,
							bne cs_diff_12						;so go to non-equal state handlers
		   
cs_diff_0					lda cs_curr_pos						;different and in state 0: state
							sta cs_nor_end						;stays 0, and track nor_end with
							bra cs_next							;curr_pos and continue scan
		   
cs_diff_12					cmp #1
							bne cs_diff_2
		   
cs_diff_1					stz cs_curr_stat					;diff and in state 1: state goes
							stz cs_rept_ctr						;to 0, clear repeat counter,
							lda cs_curr_pos						;and track nor_end with
							sta cs_nor_end						;curr_pos and continue scan
							bra cs_next
		   
cs_diff_2					stz cs_curr_stat					;diff and in state 2: state goes
							lda cs_curr_pos						;to 0, reset normal start/end,
							sta cs_nor_start					;do run-length output
							sta cs_nor_end
							ldx cs_rle_start					;do rle output from rle_start
							ldy cs_curr_pos						;to curr_pos-1, and then
							jsr CompressSendAddDataRle			;drop thru to cs_next

cs_next						ldy cs_curr_pos						;next position: set last_group,
							shortm								;increment pos, see if done
							lda PrintPixBuffer,y				;copy 1 byte from pr pix buffer
							sta cs_last_group					;so we can compare to next one
							longm
		   
cs_next_inc					inc cs_curr_pos						;increment current position,
							lda cs_curr_pos						;loop until out of bytes used
							cmp cs_end_pos						;in pr pix buff for current
							bcs cs_flush						;resolution setting
							brl cs_test							;go to top of loop or to end-flush

cs_flush					lda cs_curr_stat					;final flush: check state
							cmp #2
							beq cs_flush2
		   
cs_flush01					ldx cs_nor_start					;flush/state=0 or 1: do normal
							ldy cs_curr_pos						;output from nor_start to curr_pos-1
							jsr CompressSendAddDataNor			;and then go send output command
							bra cs_send_cmd

cs_flush2					ldx cs_rle_start					;flush/state=2: do rle output from
							ldy cs_curr_pos						;rle_start to curr_pos-1
							jsr CompressSendAddDataRle			;and drop into send-output-command

cs_send_cmd					pushword cs_outbuff_pos				;put length of data in cmd sequence
							pushlong #CompressXferCmdLength		;pass where to put ascii number
							pushword #4							;pass that it's 4 digits long
							pushword #0							;pass that it's unsigned
							_Int2Dec
							
cs_send_cmd_xmit			lda cs_outbuff_pos					;xmit bytes for entire cmd and exit
							clc
							adc #CompressXferCmdEnd-CompressXferCmdBegin
							ldx #CompressXferCmdBegin
							ldy #^CompressXferCmdBegin
							brl WriteLong						;length in A, ptr in X and Y



*Subroutine to add non-repeating graphics data to data in compress-pix-buffer (from->X, to->Y):
CompressSendAddDataNor		stx cs_addbuff_from					;save the "from" pos in pr pix buff
							dey									;save the "to"-1 pos in pr pix buff
							sty cs_addbuff_to
							tya									;compute ("to"-1) - "from"
							sec
							sbc cs_addbuff_from
							cmp #$FFFF							;if this result is -1 then exit
							beq cs_nor_exit
							ina									;A now has number of bytes to do
							sta cs_addbuff_num					;store it

cs_nor_check_len			cmp #128							;cs_addbuff_num in A, check if not
							bcc cs_nor_do_add					;too long: if ok, add it and exit
							
							pha									;else save cs_addbuff_num total len
							pushword cs_addbuff_to				;and save total "to" value
							lda #127							;we'll do a chunk of 127 bytes
							sta cs_addbuff_num
							dea									;set chunk's "to":=127+total"from"-1
							clc									;so that we're going from "from"
							adc cs_addbuff_from					;to ("from" plus 127) bytes
							sta cs_addbuff_to
							jsr cs_nor_do_add					;go do a chunk of 127 bytes
							lda cs_addbuff_to					;set "from" to our "to"+1, so that we
							ina									;can continue next chunk where the
							sta cs_addbuff_from					;one we just did left off
							pullword cs_addbuff_to				;restore original total "to" value
							pla									;restore total cs_addbuff_num length
							sec									;we've done 127 bytes of it
							sbc #127							;so subtract 127 and store and
							sta cs_addbuff_num					;also leave the new value in A
							bra cs_nor_check_len				;try again, with cs_addbuff_num in A

cs_nor_do_add				shortm								;going to deal with 8-bit bytes
							lda cs_addbuff_num					;build the +0..+127 opcode in A
							dea									;do len-1 because #bytes pr is len+1
							ldy cs_addbuff_from					;get "from" pr pix buff pos in Y
							ldx cs_outbuff_pos					;get current out-buff position in X
							sta CompressPixBuffer,x				;store the opcode byte in out-buff
							inx									;and increment out-buff position
cs_nor_copy_loop			lda PrintPixBuffer,y				;get discrete data byte from pr pix
							sta CompressPixBuffer,x				;buff and store into out-buff
							inx									;increment our out-buff posn in X
							iny									;increment our pr pix buff posn
							cpy cs_addbuff_to					;loop for all pr pix bytes to copy
							bcc cs_nor_copy_loop				;up to and including the pr pix buff
							beq cs_nor_copy_loop				;position given by the "to" value
							stx cs_outbuff_pos					;update output-buff position var
							longm								;done dealing with 8-bit bytes
cs_nor_exit					rts



*Subroutine to add repeating graphics data to data in compress-pix-buffer (from->X, to->Y):
CompressSendAddDataRle		stx cs_addbuff_from					;save the "from" pos in pr pix buff
							dey									;save the "to"-1 pos in pr pix buff
							sty cs_addbuff_to
							tya									;compute ("to"-1) - "from"
							sec
							sbc cs_addbuff_from
							beq cs_rle_exit						;if this result is 0 or -1 then exit
							cmp #$FFFF
							beq cs_rle_exit
							ina									;A now has number of bytes to do
							sta cs_addbuff_num					;store it

cs_rle_check_len			cmp #128							;cs_addbuff_num in A, check if not
							bcc cs_rle_do_add					;too long: if ok, add it and exit
							
							pha									;else save cs_addbuff_num total len
							pushword cs_addbuff_to				;and save total "to" value
							lda #127							;we'll do a chunk of 127 bytes
							sta cs_addbuff_num
							dea									;set chunk's "to":=127+total"from"-1
							clc									;so that we're going from "from"
							adc cs_addbuff_from					;to ("from" plus 127) bytes
							sta cs_addbuff_to
							jsr cs_rle_do_add					;go do a chunk of 127 bytes
							lda cs_addbuff_to					;set "from" to our "to"+1, so that we
							ina									;can continue next chunk where the
							sta cs_addbuff_from					;one we just did left off
							pullword cs_addbuff_to				;restore original total "to" value
							pla									;restore total cs_addbuff_num length
							sec									;we've done 127 bytes of it
							sbc #127							;so subtract 127 and store and
							sta cs_addbuff_num					;also leave the new value in A
							bra cs_rle_check_len				;try again, with cs_addbuff_num in A

cs_rle_do_add				shortm								;going to deal with 8-bit bytes
							lda #1								;build the -1..-127 opcode in A
							sec									;do 1-length because #bytes actually
							sbc cs_addbuff_num					;printed is (-1*length)+1
							ldy cs_addbuff_from					;get "from" pr pix buff pos in Y
							ldx cs_outbuff_pos					;get current out-buff position in X
							sta CompressPixBuffer,x				;store the opcode byte in out-buff
							inx									;and increment out-buff position
							lda PrintPixBuffer,y				;get the repeatable pr pix data byte
							sta CompressPixBuffer,x				;and store it into out-buff
							inx									;increment our out-buff posn in X
							stx cs_outbuff_pos					;update output-buff position var
							longm								;done dealing with 8-bit bytes
cs_rle_exit					rts



*Variables needed by CompressSend and its subroutines:
cs_curr_pos					dc.w 0								;current logical position in scan
cs_end_pos					dc.w 0								;ending posn (#bytes in pr pix buff)
cs_curr_stat				dc.w 0								;state: 0=normal; 1=candidate; 2=rle
cs_nor_start				dc.w 0								;logical posn of start of normal data
cs_nor_end					dc.w 0								;logical posn of end of normal data
cs_rle_start				dc.w 0								;logical posn of start of run for rle
cs_rept_ctr					dc.w 0								;rept count for run-length candidate
cs_last_group				dc.w 0								;value of previous prpix byte
cs_outbuff_pos				dc.w 0								;total length of compressed data
cs_addbuff_from				dc.w 0								;save "from" param, in add buff subr
cs_addbuff_to				dc.w 0								;save "to" param, in add buff subr
cs_addbuff_num				dc.w 0								;save "to-from+1", in add buff subr







*
*BUILDPIXCONVERTTABLE: Inits default source-to-printer pixel conversion lookup table:
*
*The table has a domain of 8 bits and a range of 4 bits (stored in 8-bit bytes).  The table
*is designed to be accessed with 8 bits of source (screen) pixel data (2 or 4 pixels if 320/640),
*and returns a nibble full of printer-ready pixels.  In 640 mode, 4 source pixels are mapped into
*4 printer pixels.  In 320 mode, 2 source pixels are doubled and are also mapped into 4 printer
*pixels.  Since we initialize the table for either mode at this time, the imaging loop itself
*need only use this table and need not decide on the fly which mode is in effect.  Furthermore,
*since all possible values of screen pixels in the positions in a byte are enumerated in the
*table, it is possible to map non-black/white pixels into a dither pattern.  Two subroutines,
*MAP640PIXEL and MAP320PIXEL, are employed to perform the actual mapping of a source pixel.  These
*routines are passed the source pixel bits in A, must return printer pixel bits in A, must
*preserve Y, and may use X as a dither counter.
*
BuildPixConvertTable		ldy #0								;Y has count, X used by map routines

bt_loop						lda SourceMode						;branch on 320/640 mode
							beq bt_its320
							
bt_its640					tya									;get a possible byte full of src pix
							jsr Map640Pixel						;rightmost src pix in b0,b1 -> pr b0
							sta ParamWordA						;init, pwA will build pr pixels byte
							
							tya									;convert 3rd source pix -> pr pix
							lsr a								;source pix b2,b3 -> print pix b1
							lsr a
							jsr Map640Pixel
							asl a
							ora ParamWordA
							sta ParamWordA
							
							tya									;convert 2nd source pix -> pr pix
							lsr a								;source pix b4,b5 -> print pix b2
							lsr a
							lsr a
							lsr a
							jsr Map640Pixel
							asl a
							asl a
							ora ParamWordA
							sta ParamWordA
							
							tya									;convert leftmost src pix -> pr pix
							lsr a								;source pix b6,b7 -> print pix b3
							lsr a
							lsr a
							lsr a
							lsr a
							lsr a
							jsr Map640Pixel
							asl a
							asl a
							asl a
							ora ParamWordA
							bra bt_next
							
bt_its320					tya									;convert rightmost pix in byte
							jsr Map320Pixel						;source b0-b3 -> print b0 and b1
							sta ParamWordA
							
							tya									;convert leftmost pix in byte
							lsr a								;source b4-b7 -> print b2 and b3
							lsr a
							lsr a
							lsr a
							jsr Map320Pixel
							asl a
							asl a
							ora ParamWordA
							
bt_next						shortm								;nibble-full of print pix in ACC
							sta SourceToPrintPixLookup,y		;store into a table entry byte
							longm
							iny									;goto next possibility of src byte
							cpy #256							;go create all possible values of
							bne bt_loop							;source byte; when done, exit
							rts



*Subroutine to convert 640-mode pix in ACC b0-b1 -> one print pixel in b0; must preserve Y, uses X:
Map640Pixel					and #%11							;look at a 640 chunky pix in lo bits
							beq m6_its_black					;branch if source is pure black
							cmp #%11							;compare for pure white
							beq m6_its_white					;branch if source is pure white
							inx									;else it's in between, so alternate
							txa									;increment wild count, consider as
							and #%1								;alternating black/white if even/odd
							beq m6_its_black
m6_its_white				lda #%0								;white source pix -> no ink pr pix
							rts
m6_its_black				lda #%1								;black source pix -> yes ink pr pix
							rts



*Subroutine to convert 320-mode pix in ACC b0-b3 -> two pr pixels in b0-b1; must preserve Y, uses X:
Map320Pixel					pha									;look at a 320 chunky pix in lo bits
							jsr Map640Pixel						;consider this 4-bit pixel as if
							sta m3_temp							;it were two 640-mode pixels next to
							pla									;each other; this will still produce
							lsr a								;correct black/white response and
							lsr a								;will automatically impose a halftone
							jsr Map640Pixel						;pattern on those 4-bit values which
							asl a								;have 2-bit sequences other than
							ora m3_temp							;"00" or "11", and we also double the
							rts									;horizontal size in the process

m3_temp						dc.w 0







*
*CLEARPRINTPIXBUFFER: Zeroes the printer-ready-pixel line buffer:
*
ClearPrintPixBuffer			ldx #(PrintPixBufferEnd-PrintPixBuffer)-2
							lda #0
cl_loop						sta PrintPixBuffer,x				;WARNING: the line buffer length
							dex									;must be even for this loop to
							dex									;terminate correctly!
							bpl cl_loop
							rts







*
*IDLEPROCABORTCHECK: IdleProc caller/command-period/abort address assert check.  May set abort flag:
*
IdleProcAbortCheck			lda IdleProcPtr+0					;(1) call user's idle proc, if any
							tax									;if NIL, didn't specify idleproc
							ora IdleProcPtr+2					;else build JSL instruction
							beq ia_done_iproc
							stx ia_goto_user+1
							lda IdleProcPtr+2
							shortm
							sta ia_goto_user+3
							longm
							phb									;save env, call user, restore
							phd
ia_goto_user				jsl $FFFFFF							;NOTE: operand is stuffed
							pld
							plb
ia_done_iproc
							lda AbortPollPtr+0					;(2) check user's abort address
							tax									;if NIL, didn't specify abort adrs
							ora AbortPollPtr+2					;else build LDA instruction
							beq ia_done_abaddr
							stx ia_poll_user+1
							lda AbortPollPtr+2
							shortm
							sta ia_poll_user+3
							longm
ia_poll_user				lda >$FFFFFF						;NOTE: operand is stuffed
							bne ia_assert_abort					;if user flag nonzero, set our abort
ia_done_abaddr
							pha									;(3) check for command-period press
							pushword #$0008						;pass keyDownMask
							pushlong #ia_eventrec				;pass event record
							_GetNextEvent
							pla
							beq ia_done_event
							lda ia_event_msg					;check event message for period
							and #$00FF
							cmp #'.'
							bne ia_done_event
							lda ia_event_mod					;check event modifiers for appleKey
							and #$0100
							beq ia_done_event
				
ia_assert_abort				lda #$0080							;assert the abort flag
							sta AbortFlag
ia_done_event
							rts

ia_eventrec:
ia_event_what				dc.w 0
ia_event_msg				dc.l 0
ia_event_when				dc.l 0
ia_event_where				dc.l 0
ia_event_mod				dc.w 0







*
*WRITESHORT: Immediately outputs pstr (len byte + data).  Pass 16-bit pointer->ACC:
*
WriteShort					tax									;save address from being clobbered
							pushlong #0							;pass NIL for completion routine
							push1 #0							;pass hi byte of hi word of adrs
							phb									;pass lo byte of hi word of adrs
							inx									;point adrs to data beyond len byte
							phx 								;pass lo word of address
							dex									;restore adrs to point at len byte
							lda |$0000,x						;obtain word with length byte
							and #$00FF							;isolate the length byte
							pha									;pass the length
							ldx #$1E13							;_PrDevWrite
							jsl $E10000
							rts







*
*WRITELONG: Immediately outputs data pointed to by lo->X, hi->Y, and of length->ACC:
*
WriteLong					pushlong #0							;pass NIL for completion routine
							phy									;pass hi word of address
							phx									;pass lo word of address
							pha									;pass the length
							ldx #$1E13							;_PrDevWrite
							jsl $E10000
							rts







*
*GLOBAL DATA: Variables and data that may be kept across imager calls:
*
PaperType					dc.w 0								;0..3 if Ltr,Lgl,A4,Env paper size
Resolution					dc.w 0								;0/1/2 if 75/150/300 dpi
VerticalCondenseFlag		dc.w 0								;0 if v 2x (~cond) scaling; 1 if 1x

IdleProcPtr					dc.l 0								;ptr to user routine to call or NIL
AbortPollPtr				dc.l 0								;ptr to adrs to poll for abort or NIL

SourceMode					dc.w 0								;$00/$80 if 320/640 mode
SourcePixPtr				dc.l 0								;pointer to source bitmap
SourceByteWidth				dc.w 0								;# of horiz BYTES in a source line

SourceXByteBegin			dc.w 0								;source bitmap X start loop value
SourceXByteEnd				dc.w 0								;source bitmap X end loop value
SourceYLineBegin			dc.w 0								;source bitmap Y start loop value
SourceYLineEnd				dc.w 0								;source bitmap Y end loop value

AbortFlag					dc.w 0								;if nonzero causes our abort







*
*DATA TABLES: Lookup tables and buffers needed during the imaging process:
*
SourceToPrintPixLookup		ds.b 256							;lookup table: source pix -> pr pix

PrintPixBuffer				ds.b 300+8							;one raster of pr pix; MUST be even!
PrintPixBufferEnd

CompressXferCmdBegin		dc.b $1B,$2A,$62					;command sequence and accompanying
CompressXferCmdLength		dc.b 'XXXX'							;data to print one raster of
CompressXferCmdTerm			dc.b $57							;compacted printer pixel data in
CompressXferCmdEnd												;compacted mode 2 (run-length-coding)
CompressPixBuffer			ds.b 600+8







							endproc
							end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/HP.DESKJET/makefile b/IIGS.601.SRC/GSToolbox/PrinterDrivers/HP.DESKJET/makefile
new file mode 100644
index 0000000..b14fea5
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/HP.DESKJET/makefile
@@ -0,0 +1 @@
+
#***********************************************************************************
#                                                                                  *
#		Apple IIgs Printer Driver                                                  *
#                                                                                  *
#		File: makefile -- Compilation and linking script                           *
#                                                                                  *
#		Written by Ben Koning                                                      *
#		Copyright (C) 1990 Apple Computer, Inc.                                    *
#                                                                                  *
#***********************************************************************************



#Division of files:
#		README			Delta description of this driver compared to others
#		RELEASE.NOTES	Developmental revision history
#		makefile		Compilation and linking script
#		equates			Header file with equates and direct page definitions
#		entry			Entry vectors, environment setup/restore, routine dispatch
#		printloop		High level print model interface
#		imager		 	Converting pixel map to escape codes for printer
#		metrics			Print record access and	printer dimension calculations
#		dialog		 	Dialog box and other user-interface implementation
#		dialogdata  	Dialog box layout and text



EQU =	equates.aii
OBJ =	:obj:entry.aii.obj :obj:printloop.aii.obj :obj:metrics.aii.obj ¶
		:obj:dialog.aii.obj :obj:dialogdata.aii.obj :obj:imager.aii.obj
NAM =	DeskJet.Plus
PRN =	print -r -h -hs 12 -hf times -md -f courier -s 9



PRINT Ä
		{PRN} imager.aii
		{PRN} dialogdata.aii
		{PRN} dialog.aii
		{PRN} metrics.aii
		{PRN} printloop.aii
		{PRN} entry.aii
		{PRN} equates.aii
		{PRN} makefile
		{PRN} README
		{PRN} RELEASE.NOTES
		files -l | {PRN}
		
		
	
CLEAN Ä
		delete -i {OBJ}



{NAM} Ä {EQU} {OBJ}
		delete -i {NAM}
		linkiigs -t $BB -at $0001 {OBJ} -o {NAM}


	
DEBUG Ä {EQU} {OBJ}
		delete -i {NAM}
		linkiigs -t $BB -at $0001 {OBJ} -o {NAM}
		files -n -x b {NAM}
		beep 2a,4,255
		duplicateiigs -m -y {NAM} :


	
:obj:entry.aii.obj Ä {EQU} entry.aii
		asmiigs	entry.aii -o :obj:entry.aii.obj

:obj:printloop.aii.obj Ä {EQU} printloop.aii
		asmiigs	printloop.aii -o :obj:printloop.aii.obj

:obj:metrics.aii.obj Ä {EQU} metrics.aii
		asmiigs	metrics.aii -o :obj:metrics.aii.obj

:obj:dialog.aii.obj Ä {EQU} dialog.aii
		asmiigs	dialog.aii -o :obj:dialog.aii.obj

:obj:dialogdata.aii.obj Ä {EQU} dialogdata.aii
		asmiigs dialogdata.aii -o :obj:dialogdata.aii.obj

:obj:imager.aii.obj Ä {EQU} imager.aii
		asmiigs	imager.aii -o :obj:imager.aii.obj

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/HP.DESKJET/metrics.aii b/IIGS.601.SRC/GSToolbox/PrinterDrivers/HP.DESKJET/metrics.aii
new file mode 100644
index 0000000..5b81dd5
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/HP.DESKJET/metrics.aii
@@ -0,0 +1 @@
+
******************************************************************************************
*                                                                                        *
*		Apple IIgs Printer Driver                                                        *
*                                                                                        *
*		File: metrics.aii -- Exclusive print record access and dimension calculations    *
*                                                                                        *
*		Written by Ben Koning                                                            *
*		Copyright (C) 1990 Apple Computer, Inc.                                          *
*                                                                                        *
******************************************************************************************







							include		'equates.aii'



							include		'm16.util'
							include		'e16.print'
							include		'm16.intmath'
							include		'e16.quickdraw'
							include		'm16.quickdraw'



MetricsProc					proc		export






*
*METRICS (PAGE MEASUREMENT) MODEL AND IMPLEMENTATION:
*
*All information related to page size, print quality, etc., options is stored in a data
*structure called the Print Record, the memory for which is the application's responsibility
*(a print record should be maintained with each document enacted on by an application so that
*page setup information stays with a letter, drawing, etc.), and the contents of which are
*the responsibility of the currently selected printer driver.
*
*The routines in this module seek to isolate the rest of this printer driver from the specifics
*of the contents of the user's print record.  They also arbitrate between the realms of page
*measurements in inches and rectangle sizes in pixels.
*
*There are a set of GetXXX and SetXXX routines below, which must be called rather than
*modifying the print record directly.  Before a SetXXX completes, it causes a calculation
*routine to be called which ensures that the print record stays self-consistent.
*
*The calculation routine uses the paper type and selected sizing options to find values for
*several rectangles, used by applications as well as the rest of this driver, and stores them.
*
*From the paper type, its paper dimensions are looked up from a table.  This information is
*stored in the rPaper rectangle.  Thus dimensions could be different for Letter, Legal,
*Envelope, etc.  The vertical dimension is used, for example, to set the page length so that
*form feed works correctly.  rPaper is given in pixels.
*
*Margins are subtracted from the rPaper rectangle to create the rPage rectangle, the actual
*printable area inside a sheet of paper.  The first point of rPage is made the origin, so
*that the first point of rPaper is negative.  rPage is given in pixels.
*
*Note that the sizing settings (Vertical Condense, Reduction, Page Gap) actually increase the
*effective printing area.  They are not just effects settings which would affect only the
*outcome of the printing.  In other words, selecting 50%-size means that the application can
*give the user more drawing space, for example.  Also, Landscape means that the paper is still
*inserted normally into the printer; just that the X & Y dimensions that the application sees
*are reversed.  In other words, selecting Landscape means that a drawing application's rulers
*show 11" left to right and 8" top to bottom for 8x11" paper.
*
*The metrics calculations usually proceed as follows:
*
*		Get resolution in pixels/inch from equates based on port/land orientation setting
* 		If vertical condense, double y resolution
* 		If reduction, multiply x,y resolutions accordingly
* 		If 320 mode, half x resolution
* 		Divide x,y resolutions by 2 to convert from Imaging resolution to rPage res (see below)
* 		Get paper_x, paper_y, paper_gap size in inches from table based on paper type setting
* 		Multiply dimensions by resolutions to convert dimensions to pixels
* 		rPaper gets physical page dimensions with rPage first point as origin
* 		rPage gets page dimensions minus a border based horizontally on equates and vertically
* 			on the paper_gap and the page gap setting
* 		Landscape orientation causes rPaper and rPage to have x & y exchanged
*
*For this particular printer driver, reduction and landscape modes are not supported.
*
*In addition to providing the application with information about the printable area, the rPage
*rectangle is used as the source rectangle during picture recording (QDAux's OpenPicture,
*ClosePicture, DrawPicture, etc).  When DrawPicture is called, the playback rectangle may be
*the same size or may be bigger to allow for higher quality printing (the GetImagingSize routine
*returns the playback size based on rPage and the quality setting).
*
*Two pixel-level units are defined for internal use: "rPage" units and "Imaging" units.  RPage
*dimensions change with respect to the option settings which increase printable area real estate,
*as described above, but remain constant with respect to the Standard or Better quality mode
*setting.  Imaging units, on the other hand, are equal to rPage units with a scaling factor
*applied to facilitate higher resolution when printing at denser dot pitches.  For example, if
*rPage.X2 is "100" and the quality is "standard", then ImagingSize.X2 would be "100".  But if
*rPage.X2 is "100" and the quality is "better", then ImagingSize.X2 could be "200".  Two
*routines, "ConvertImgToRPageSize" and "ConvertRPageToImgSize", are provided as the exclusive
*converters between these two units.  These routines are especially exempt from DP/print record
*availability restrictions, because they may need to be called from within our QD bottleprocs,
*for example.  Thus, in summary: rPage is the amount of pixels that the application sees for the
*positioning of QD objects, while the Imaging size is the amount of pixels that the driver has
*to deal with when playing back the picture containing these objects, thus obtaining high reso-
*lution on the printed paper since there "are more dots" in QD objects, causing smoother curves.
*







*
*STARTPRH: Call to use print record from hdl; sets up ParamLongA, allows pr rec access without hdl:
*
StartPRH					ldy			#4						;lock handle
							lda			[printRecordHandle],y
							ora			#$8000
							sta			[printRecordHandle],y
							lda			[printRecordHandle]		;deref to get ptr in ParamLongA
							sta			ParamLongA+0
							ldy			#2
							lda			[printRecordHandle],y
							sta			ParamLongA+2
							lda			printRecordHandle+0		;save pr rec hdl for later use
							sta			MostRecentPRH+0
							lda			printRecordHandle+2
							sta			MostRecentPRH+2
							rts
							
*Static variable holding recent pr rec handle so routines w/o prrec access can look anyway:
MostRecentPRH				dc.l		0						;most recent print record handle
		
							
							
*
*FINISHPRH: Call this when done working with print record handle:
*
FinishPRH					ldy			#4
							lda			[printRecordHandle],y
							and			#$7FFF
							sta			[printRecordHandle],y
							rts
	
	
	
*
*InitPrintRecord: Fills user's print record with default values, for both ex- and internal use.
*On entry, printRecordHandle should be set.
*
							export		InitPrintRecord
InitPrintRecord				jsr			SetMiscNil				;advanced features to default NIL
							lda			#paperTypeUsaLetter		;standard paper size
							sta			OptionA
							jsr			SetPaper
							stz			OptionA					;default print style options...
							jsr			SetQuality
							jsr			SetVSize				;normal vertical size
							lda			#1
							sta			OptionA
							lda			#32767
							sta			OptionB
							jsr			SetPageRange			;print all pages
							jsr			SetFeed					;automatic sheet feed
							brl			SetCopies				;one copy
							



*
*OPTION SETTING ROUTINES: These modify the user's print record in DP variable "printRecord". They
*are called as a result of default, validate, style, or job calls.  They leave the print record in
*an uncorrupted state.  Unlike the old driver, we rely only on the offsets provided in the include
*file, for future portability.  The parameter to be set is passed in the DP variables "OptionA" and
*"OptionB".  For boolean values (such as portrait/landscape, etc), 0 means the default option:
*
*NOTE: These routines should be the only entities within this driver to modify the print record.
*An internal coding, which makes sense by using 0 for default values, etc., is used to refer to
*values of print record settings, and backward compatiblity may demand that certain values be stored
*in a reverse or bizarre sense in the print record.  It is the purpose of these Get/Set routines
*to perform any such translation.
*

*SETMISCNIL: Initializes nonuser option switches and normally-nil fields:
							export		SetMiscNil
SetMiscNil					jsr			StartPRH
							ldy			#oprVersion					;Version ID
							lda			#VersionID
							sta			[ParamLongA],y
*
							ldy			#oprInfo+oiDev				;Device ID
							lda			#DeviceID					;(1=IW 2=LQ 3=LW 4=Epson)
							sta			[ParamLongA],y
*
							lda			#0							;0,0 first coords of rPage
							ldy			#oprInfo+orPage+oh1
							sta			[ParamLongA],y
							ldy			#oprInfo+orPage+ov1
							sta			[ParamLongA],y
*
							ldy			#oprStl+owDev				;set initial wDev to defaults
							lda			#wDevGap+wDevReduction+wDevVSize+wDevOrientation
							sta			[ParamLongA],y
*
							shortm
							ldy			#oprJob+obJDocLoop
							lda			#$00						;Set byte for immediate method
							sta			[ParamLongA],y
*
							ldy			#oprJob+ofFromUser
							lda			#$01						;Set the from-user field byte
							sta			[ParamLongA],y
							longm
*
							ldy			#owResScaling				;Setup the blow-up amount value
							lda			#4
							sta			[ParamLongA],y
*
							lda			#0
*
							ldy			#oprJob+opIdleProc
							sta			[ParamLongA],y				;Default NIL idleproc
							iny
							iny
							sta			[ParamLongA],y
*
							brl			CalcAndFinishPRH

*SETQUALITY: Sets print loop method and imaging size determinant (0/1/2==75/150/300dpi):
							export		SetQuality
SetQuality					jsr			StartPRH
							lda			OptionA
							ldy			#owQuality			;put code in new quality word...
							sta			[ParamLongA],y
							ldy			#oprStl+owDev		;now ensure wDev Better bit set right...
							lda			[ParamLongA],y
							and			#ÅwDevBetterText
							sta			[ParamLongA],y
							ldx			OptionA
							cpx			#2
							bne			SeQuSetBJD
							lda			[ParamLongA],y
							ora			#wDevBetterText
							sta			[ParamLongA],y
SeQuSetBJD					lda			#$00				;ensure bJDocLoop set to 0 because this
							ldy			#oprJob+obJDocLoop	;printer driver works in immediate-mode
							shortm
							sta			[ParamLongA],y
							longm
							brl			CalcAndFinishPRH

*SETPAPER: Sets the paper type, used for calculating printable area dimensions:
							export		SetPaper
SetPaper					jsr 		StartPRH
							ldy			#oprStl+opaperType
							lda			OptionA
							sta			[ParamLongA],y
							brl			CalcAndFinishPRH

*SETVSIZE: Sets vertical sizing, normal or 50% ("condensed") for correct font aspect ratio:
							export		SetVSize
SetVSize					jsr			StartPRH
							ldy			#oprStl+owDev
							lda			[ParamLongA],y
							ldx			OptionA
							bne			@ClearIt								;reverse sense!
							ora			#wDevVSize
							bra			@StoreIt
@ClearIt					and			#ÅwDevVSize
@StoreIt					sta			[ParamLongA],y
							brl			CalcAndFinishPRH

*SETFEED: Sets manual page feed interrupt dialog enable flag:
							export		SetFeed
SetFeed						jsr			StartPRH
							ldy			#oprStl+ofeed
							lda			OptionA
							sta			[ParamLongA],y
							brl			CalcAndFinishPRH

*SETPAGERANGE: Sets range of pages to be processed (others are ignored and not recorded):							
							export		SetPageRange				;OptionA/B = first/last 1..x
SetPageRange				jsr			StartPRH
							ldy			#oprJob+oiFstPage
							lda			OptionA
							sta			[ParamLongA],y
							ldy			#oprJob+oiLstPage
							lda			OptionB
							sta			[ParamLongA],y
							brl			CalcAndFinishPRH

*SETCOPIES: Sets number of copies to produce for each page:							
							export		SetCopies					;OptionA = # copies 1..x
SetCopies					jsr			StartPRH
							ldy			#oprJob+oiCopies
							lda			OptionA
							sta			[ParamLongA],y
							brl			CalcAndFinishPRH
							
CalcAndFinishPRH			jsr			CalcMetrics					;Common exit sequence
							brl			FinishPRH





*
*INFORMATION INQUIRY ROUTINES: These routines return (possibly processed) info about pr rec items:
*NOTE: These routines return data in EITHER accumulator OR zero flag status OR X/Y registers.
*NOTE: These routines return 0 for the common default settings; may be inverse of wDev.
*

*GETOKOURDRIVER: Sets zero flag (BEQ test) if DeviceID AND VersionID came from our driver:
							export		GetOkOurDriver
GetOkOurDriver				jsr			StartPRH					;get and lock handle
							ldy			#oprInfo+oiDev				;DeviceID offset
							lda			[ParamLongA],y				;get it
							cmp			#DeviceID					;zero flag set/clr if yes/no ours
							bne			InqExitZFlag				;nope, was different printer
							ldy			#oprVersion					;VersionID offset
							lda			[ParamLongA],y				;get it
							cmp			#VersionID					;zero flag set/clr if yes/no ours
InqExitZFlag				php										;zero flag set on exit
							jsr			FinishPRH					;unlock handle
							plp										;zero flag valid again
							rts										;exit
							
*GETPAPER: Returns the paper type in the accumulator:
							export		GetPaper
GetPaper					jsr			StartPRH
							ldy			#oprStl+opaperType
							lda			[ParamLongA],y
InqExitACC					pha
							jsr			FinishPRH
							pla
							rts
							
*GETQUALITY: Gets quality mode in ACC (0=75dpi(1x), 1=150dpi(2x), 2=300dpi(3x)):
							export		GetQuality
GetQuality					jsr			StartPRH					;lock and dereference
							ldy			#oprStl+owDev				;if wDev.Better=0 AND
							lda			[ParamLongA],y				;our wQuality=2 -> force to 0...
							and			#wDevBetterText
							bne			GeQuForceTo2				;(if wDev.Better=1 -> force to 2)
							ldy			#owQuality
							lda			[ParamLongA],y
							cmp			#2
							bne			GeQuGetQuality
							lda			#0							;plA still points to wQuality
							sta			[ParamLongA],y
							bra			GeQuGetQuality
GeQuForceTo2				lda			#2
							ldy			#owQuality
							sta			[ParamLongA],y
GeQuGetQuality				ldy			#owQuality					;now get info from new place
							lda			[ParamLongA],y
							brl			InqExitACC					;unlock and exit with ACC set
							
*GETVSIZE: Gets vertical sizing (normal or condensed) 0/1 in the accumulator:
							export		GetVSize
GetVSize					jsr			StartPRH
							ldy			#oprStl+owDev
							lda			[ParamLongA],y
							and			#wDevVSize
							eor			#wDevVSize					;reverse sense of wDev bit!
							beq			GetVSizeDone
							lda			#1
GetVSizeDone				brl			InqExitACC
							
*GETFEED: Gets manual page feed option in zero flag (BEQ if manual page feed):
							export		GetFeed
GetFeed						jsr			StartPRH
							ldy			#oprStl+oFeed
							lda			[ParamLongA],y
							brl			InqExitZFlag
							
*GETPAGERANGE: Gets page range (First Page -> X; Last Page -> Y):
							export		GetPageRange
GetPageRange				jsr			StartPRH
							ldy			#oprJob+oiFstPage
							lda			[ParamLongA],y
							pha
							ldy			#oprJob+oiLstPage
							lda			[ParamLongA],y
							pha
							jsr			FinishPRH
							ply
							plx
							rts

*GETCOPIES: Gets number of copies to be printed in accumulator:
							export		GetCopies
GetCopies					jsr			StartPRH
							ldy			#oprJob+oiCopies
							lda			[ParamLongA],y
							brl			InqExitACC
							
*GETIDLEPROC: Gets optional user-select IdleProc called during imaging (lo->X, hi->Y, carry):
							export		GetIdleProc
GetIdleProc					jsr			StartPRH
							ldy			#oprJob+opIdleProc
InqExitWithYpXYPtrData		lda			[ParamLongA],y				;exit with pointer given in
							pha										;print record field at offset
							iny										;in y in lo->x, hi->y, and
							iny										;set carry if non-nil...
							lda			[ParamLongA],y
							pha
							jsr			FinishPRH
							ply
							plx
							stx			ParamLongA
							tya
							ora			ParamLongA
							cmp			#1
							rts
							
*GETRPAGESIZE: Gets bottom right coordinates of last calculated rPage field in pixels (->X,Y):
							export		GetRPageSize
GetRPageSize				jsr			StartPRH
							ldy			#oprInfo+orPage+oh2
							lda			[ParamLongA],y
							pha
							ldy			#oprInfo+orPage+ov2
							lda			[ParamLongA],y
							pha
							jsr			FinishPRH
							ply
							plx
							rts

*GETIMAGINGSIZE: Gets bottom right coordinates of how big the offscrn pix buff should be (->X,Y):
							export		GetImagingSize
GetImagingSize				jsr			StartPRH					;lock print rec struct & deref
							ldy			#oprInfo+orPage+oh2			;copy values first...
							lda			[ParamLongA],y
							sta			GeImSzX
							ldy			#oprInfo+orPage+ov2
							lda			[ParamLongA],y
							sta			GeImSzY
							lda			GeImSzX						;and then convert them...
							jsr			ConvertRPageToImgSize
							sta			GeImSzX
							lda			GeImSzY
							jsr			ConvertRPageToImgSize
							sta			GeImSzY
GeImSzDone					jsr			FinishPRH					;release print record
							ldx			GeImSzX						;get results
							ldy			GeImSzY
							rts
GeImSzX						dc.w		0
GeImSzY						dc.w		0

*GETCRWIDTH: Gets our own internal calc abs right margin, always in max res printer pixels (->ACC):
							export		GetCrWidth
GetCrWidth					jsr			StartPRH
							ldy			#owPaperCrWidth
							lda			[ParamLongA],y
							brl			InqExitACC
							
*GETMODEBYTE: Gets 320/640 mode byte at the time of print record formation (->ACC):
							export		GetModeByte
GetModeByte					jsr			StartPRH
							ldy			#oprStl+ointernA
							lda			[ParamLongA],y
							brl			InqExitACC





*
*METRICS UNITS CONVERSION ROUTINES: These routines convert between application-level ("rPage")
*and imaging-level ("Imaging") (which are possibly double-size) coordinate units.  These routines
*do not assume any environment, such as a valid "printRecordHandle", or D/B environment, so they
*can be called anywhere.  These routines should be the exclusive converters betwen these units.
*



*CONVERTRPAGETOIMGSIZE: rPage -> Img [pict.source (small) -> pict.dest (big)] (input/output in ACC):
							export		ConvertRPageToImgSize
ConvertRPageToImgSize		phb										;save/setup B...
							phk
							plb
							sta			CoRpCoordValue				;save input given in A
							phd										;save/setup D...
							pha
							pha
							tsc
							ina
							tcd
*
							lda			MostRecentPRH+0				;deref pr rec handle...
							sta			<0
							lda			MostRecentPRH+2
							sta			<2
							lda			[0]
							tax
							ldy			#2
							lda			[0],y
							sta			<2
							stx			<0
							ldy			#owQuality					;get quality setting: 0,1,2
							lda			[0],y
*
							beq			CoRpIts1x					;0=1x(75), 1=2x(150), 3=4x(300)
							dea
							beq			CoRpIts2x
CoRpIts4x					asl			CoRpCoordValue
CoRpIts2x					asl			CoRpCoordValue
CoRpIts1x
*							
							pla										;restore D...
							pla
							pld
							lda			CoRpCoordValue				;get result in A
							plb										;restore B
							rts										;exit with A set
*
CoRpCoordValue				dc.w		0							;storage for input/output param
							




*CONVERTIMGTORPAGESIZE: Img -> rPage [pict.dest (big) -> pict.source (small)] (input/output in ACC):
							export		ConvertImgToRPageSize
ConvertImgToRPageSize		phb										;save/setup B...
							phk
							plb
							sta			CoImCoordValue				;save input given in A
							phd										;save/setup D...
							pha
							pha
							tsc
							ina
							tcd
*
							lda			MostRecentPRH+0				;deref pr rec handle...
							sta			<0
							lda			MostRecentPRH+2
							sta			<2
							lda			[0]
							tax
							ldy			#2
							lda			[0],y
							sta			<2
							stx			<0
							ldy			#owQuality					;get quality setting
							lda			[0],y
*
							beq			CoImIts1x					;0=1x(75),1=1/2x(150),3=1/4x(300)
							dea
							beq			CoImIts2x
CoImIts4x					lsr			CoImCoordValue
CoImIts2x					lsr			CoImCoordValue
CoImIts1x
*
							pla										;restore D...
							pla
							pld
							lda			CoImCoordValue				;get result in A
							plb										;restore B
							rts										;exit with A set
*
CoImCoordValue				dc.w		0							;storage for input/output param







*
*CALCMETRICS: This routine sets iH/Vres, crWidth, rPage and rPaper in print record based
*on the option bit and page type settings in the print record.
*
*NOTE: This is the only routine other than the Get/Set routines which may access the print record
*directly, and thus is subject to backward print record flag compatibility issues.
*
							export		CalcMetrics

*Lock and dereference the user's print record:
CalcMetrics					jsr			StartPRH					;lock/deref

*Save wDev field for repeated use:
							ldy			#oprStl+owDev				;get & save wDev for use...
							lda			[ParamLongA],y
							pha
							
*Start with max possible resolution; equates assume Better/V.Condensed/640:
							ldx			#maxResPortraitX			;assume portrait orientation
							stx			CaMeRawAcrossResolution		;P: for crWidth calc later
							ldy			#maxResPortraitY/2			;P: default not V.Condensed
							stx			ParamWordA					;pwA & pwB will build iH/VRes
							sty			ParamWordB
							
*Double Y resolution if Vertical Condense mode is on (increases printable area):
							pla										;get wDev...
							pha
							and			#wDevVSize
							bne			CalcMetricsNotCondensed
							asl			ParamWordB					;double Y resolution if VC
CalcMetricsNotCondensed

*1/2 X res if 320 mode.  Also, store mode bit in "internA" for future band buff alloc calc:
							pha
							_GetMasterSCB
							pla
							and			#$80
							ldy			#oprStl+ointernA
							sta			[ParamLongA],y				;320/640 mode -> oprStl.internA
							cmp			#$80
							beq			CalcMetricsNot320			;branch if 640 mode active
							lsr			ParamWordA					;half X resolution if 320 mode
CalcMetricsNot320

*1/4 of X & Y resolution always; pixel addressability is always as if not in Better mode:
							lsr			ParamWordA					;divide X by 4
							lsr			ParamWordA
							lsr			ParamWordB					;divide Y by 4
							lsr			ParamWordB
							dec			ParamWordB					;round uneven Y down
							
*We now have effective iHres and iVres that will be produced by imager in printer-pixels per inch:
							ldy			#oprInfo+oiHres
							lda			ParamWordA
							sta			[ParamLongA],y
							ldy			#oprInfo+oiVres
							lda			ParamWordB
							sta			[ParamLongA],y
							
*Now that we have iH&Vres, we will calculate rPage&rPaper&crWidth in inch*16 based on paper type:
*Get dimensions of current paper type:
							ldy			#oprStl+opaperType
							lda			[ParamLongA],y				;get paper type ID
							cmp			#maxPaperTypeID+1			;make sure it's in range
							bcc			CalcMetricsPtOk
							lda			#0							;else assume type 0
							sta			[ParamLongA],y
CalcMetricsPtOk				asl	a									;paper type * 6
							asl a
							clc
							adc			[ParamLongA],y
							clc
							adc			[ParamLongA],y
							tax										;index into paper dimension table
							lda			CalcMetricsPtTbl+0,x		;get X dimension in 1/16th inches
							sta			CaMeRawPaperWidth			;save paper real estate dimension
							sta			ParamWordC					;paper X size in ParamWordC
							lda			CalcMetricsPtTbl+2,x		;get Y dimension
							sta			ParamWordD					;paper Y size in ParamWordD
							lda			CalcMetricsPtTbl+4,x		;get -GAP value
							sta			ParamWordE					;paper -GAP size in ParamWordE
							
*If Gap option is turned off, zero our looked-up page -1*GAP value (~GAP increases printable area):
							pla										;get wDev...
							pha
							and			#wDevGap
							bne			CalcMetricsYesGap			;branch if we DO have vert gap
							stz			ParamWordE					;else, no gap: zero gap value
CalcMetricsYesGap

*Calc internal and external versions of crWidth abs right margin, used for landscp right limit, etc:
							ldx			CaMeRawAcrossResolution		;get physical resolution
							lda			CaMeRawPaperWidth			;get amount of paper under head
							sec
							sbc			#(2*printLineMargin)		;...minus left&right margins
							jsr			CalcMetricsConvert			;do (acc*x)/16
							ldy			#owPaperCrWidth				;now store it in print record...
							sta			[ParamLongA],y
							lda			#prRecCrWidth				;also store the constant crWidth
							ldy			#oprStl+ocrWidth			;value which apps have come to
							sta			[ParamLongA],y				;expect in the print record...
							
*rPaper.X1 = 0 - printLineMargin (black mark on bail) (rPage.X1.Y1=0,0 is origin) (assuming Portrt):
							lda			#((ÅprintLineMargin)+1)		;-1*printLineMargin always
							ldy			#orPaper+oh1				;store it
							sta			[ParamLongA],y
							
*rPaper.X2 = rPaper.X1 + paper_size.X (rPage.X1.Y1=0,0 is origin) (assuming Portrait):
							clc										;X1 still in acc
							adc			ParamWordC					;add X size of paper type
							ldy			#orPaper+oh2				;store it
							sta			[ParamLongA],y
							
*rPaper.Y1 = 0 - GAP (rPage.X1.Y1=0,0 is origin) (assuming Portrait):
							lda			ParamWordE					;get -1*GAP for current paper
							ldy			#orPaper+ov1				;store it
							sta			[ParamLongA],y
							
*rPaper.Y2 = rPaper.Y1 + paper_size.Y (rPage.X1.Y1=0,0 is origin) (assuming Portrait):
							clc										;Y1 still in acc
							adc			ParamWordD					;add Y size of paper type
							ldy			#orPaper+ov2				;store it
							sta			[ParamLongA],y
							
*rPage.X1 and rPage.Y1 are both zero and are the origin for all other rPage/rPaper coordinates:
							lda			#0
							ldy			#oprInfo+orPage+oh1
							sta			[ParamLongA],y
							ldy			#oprInfo+orPage+ov1
							sta			[ParamLongA],y
							
*rPage.X2 = paper_size.X - 2*printLineMargin (black mark on bail) (assuming Portrait):
							lda			ParamWordC					;get X size of paper type
							sec										;subtract for left&right border
							sbc			#2*printLineMargin
							ldy			#oprInfo+orPage+oh2			;store it
							sta			[ParamLongA],y
							
*rPage.Y2 = paper_size.Y - 2*GAP value (assuming Portrait):
							lda			ParamWordE					;get gap value (-1*GAP or 0)
							clc
							adc			ParamWordE					;now it's -2*GAP
							clc										;add Y size of paper type; now...
							adc			ParamWordD					;...we've done paperY-2*GAP
							ldy			#oprInfo+orPage+ov2			;store it
							sta			[ParamLongA],y
							
*Right now, rPage/rPaper are in values of inch*16. Now convert all of these to the printing pixels
*that the application sees by signed multiply by our internal iHres/iVres and signed divide by 16:
							ldy			#orPaper+oh1				;get value just computed above...
							lda			[ParamLongA],y				;in a-reg. This is negative!
							eor			#$FFFF						;negate it...
							clc										;...so the unsigned convert...
							adc			#1							;...will work correctly
							ldx			ParamWordA					;get resolution A)iHres B)iVres
							jsr			CalcMetricsConvert			;convert rPaper X1
							eor			#$FFFF						;negate it...
							clc										;...again...
							adc			#1							;...back to negative
							ldy			#orPaper+oh1				;store value just converted...
							sta			[ParamLongA],y				;back into print record
*							
							ldy			#orPaper+ov1
							lda			[ParamLongA],y
							eor			#$FFFF						;negate -> positive
							clc
							adc			#1
							ldx			ParamWordB
							jsr			CalcMetricsConvert			;convert rPaper Y1
							eor			#$FFFF						;negate -> negative
							clc
							adc			#1
							ldy			#orPaper+ov1
							sta			[ParamLongA],y
*							
							ldy			#orPaper+oh2				;all others are all positive...
							lda			[ParamLongA],y
							ldx			ParamWordA
							jsr			CalcMetricsConvert			;convert rPaper X2
							ldy			#orPaper+oh2
							sta			[ParamLongA],y
*							
							ldy			#orPaper+ov2
							lda			[ParamLongA],y
							ldx			ParamWordB
							jsr			CalcMetricsConvert			;convert rPaper Y2
							ldy			#orPaper+ov2
							sta			[ParamLongA],y
*							
							ldy			#oprInfo+orPage+oh2
							lda			[ParamLongA],y
							ldx			ParamWordA
							jsr			CalcMetricsConvert			;convert rPage X2
							ldy			#oprInfo+orPage+oh2
							sta			[ParamLongA],y
*							
							ldy			#oprInfo+orPage+ov2
							lda			[ParamLongA],y
							ldx			ParamWordB
							jsr			CalcMetricsConvert			;convert rPage Y2
							ldy			#oprInfo+orPage+ov2
							sta			[ParamLongA],y
							
*Copy the PrInfo subrecord to PrInfoPT for compatibility reasons:
							ldy			#oprInfo+12					;source: prInfo offset
							ldx			#oprInfoPT+12				;destination: prInfoPT offset
CaMeCopyPrInfoLp			lda			[ParamLongA],y				;length: 14 bytes
							phy
							txy
							sta			[ParamLongA],y
							ply
							dex
							dex
							dey
							dey
							cpy			#oprInfo
							bcs			CaMeCopyPrInfoLp
*Exit:
							pla										;get rid of wDev on stack
							brl			FinishPRH					;return via lock routine
							
*Static variables:
CaMeRawAcrossResolution		dc.w		0							;for crWidth calculation
CaMeRawPaperWidth			dc.w		0							;for crWidth calculation





*
*The following routine does AREG := (AREG*XREG)/16 with unsigned arithmetic:
*
CalcMetricsConvert			pha										;Space for multiply result...
							pha										;...longspace
							pha										;A REG: value to be converted
							phx										;X REG: resolution iHres/iVres
							_Multiply
							pulllong	ParamLongB					;get hi and lo words
							lsr			ParamLongB+2				;divide by 2 hi word
							ror			ParamLongB+0				;divide by 2 lo word	=/2
							lsr			ParamLongB+2				;divide by 2 hi word
							ror			ParamLongB+0				;divide by 2 lo word	=/4
							lsr			ParamLongB+2				;divide by 2 hi word
							ror			ParamLongB+0				;divide by 2 lo word	=/8
							lsr			ParamLongB+2				;divide by 2 hi word
							ror			ParamLongB+0				;divide by 2 lo word	=/16
							lda			ParamLongB+0				;get lo word only in ACC
							rts										;we're done




							
*
*Lookup table containing physical dimensions (in inch * 16) of different types of paper:
*
CalcMetricsPtTbl			dc.w		paperSizeUsaLetterX			;indexed if paper type == 0
							dc.w		paperSizeUsaLetterY			;type 0 must be US Letter
							dc.w		-1*paperSizeUsaLetterGap

							dc.w		paperSizeUsaLegalX			;indexed if paper type == 1
							dc.w		paperSizeUsaLegalY			;type 1 must be US Legal
							dc.w		-1*paperSizeUsaLegalGap
							
							dc.w		paperSizeEurA4X				;indexed if paper type == 2
							dc.w		paperSizeEurA4Y				;type 2 must be A4 Letter
							dc.w		-1*paperSizeEurA4Gap
							
							dc.w		paperSizeEnvNo10X			;indexed if paper type == 3
							dc.w		paperSizeEnvNo10Y
							dc.w		-1*paperSizeEnvNo10Gap







							endproc
							end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/HP.DESKJET/printloop.aii b/IIGS.601.SRC/GSToolbox/PrinterDrivers/HP.DESKJET/printloop.aii
new file mode 100644
index 0000000..9d5a83d
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/HP.DESKJET/printloop.aii
@@ -0,0 +1 @@
+
******************************************************************************************
*                                                                                        *
*		Apple IIgs Printer Driver                                                        *
*                                                                                        *
*		File: printloop.aii -- High-level interactive interface for imaging              *
*                                                                                        *
*		Written by Ben Koning                                                            *
*		Copyright (C) 1990 Apple Computer, Inc.                                          *
*                                                                                        *
******************************************************************************************







							include		'equates.aii'



							include		'm16.util'
							include		'e16.quickdraw'
							include		'm16.quickdraw'
							include		'm16.qdaux'
							include		'm16.memory'
							include		'e16.print'
							include		'm16.intmath'
							include		'm16.misctool'
							include		'm16.event'



PrintLoopProc				proc		export





*
*HIGH-LEVEL PRINT LOOP CALLS: High-Level printing loop management calls implementing
*the old Macintosh Printing Manager print model, but breaking several rules for performance.
*The functionality of the calls implemented below can be summarized as follows:
*
*	OPENDOC		Allocates offscreen buffer for DrawPicture, establishes I/O, initializes variables
*	OPENPAGE	Resets variables, begins pict recording
*	CLOSEPAGE	Stops pict recording; for each copy, redraws and prints a page in slices
*	CLOSEDOC	Deallocates all buffers, resets QD globals, closes I/O
*
*GETPRINTLOOPERROR and SETPRINTLOOPERROR allow access to the global PrError error status.  There
*are also a few other routines in this module which are used by the high level routines above.
*
*In this driver, the page definitions of the entire document are not saved during the OpenDoc/
*CloseDoc sequence for playback during PicFile; rather, the copy(s) of each page are printed
*from inside ClosePage; this is why there is no PicFile call.  Draft/Text mode is not supported.
*Color is not supported.  The page definition is pre-clipped to ease the CPU horsepower burden on
*QuickDraw's DrawPicture call.  Only portrait orientation is supported; very limited print scaling
*options are supported.
*







*
*OPENDOC: Allocates and prepares resources for printing.  Performs the following tasks:
*
*	Clear error status
*	Put up box for status messages
*	Initialize our global variables using information from print record
*	Save the user's current grafport for later restore
*	Allocate as much memory as possible for banding buffer and calculate its size in pixels
*	Open and setup a grafport to draw the bands, using the memory obtained above
*	Set up QuickDraw globals to handle increased drawing size requirements
*	Open, setup, and make current the grafport that the app will see for recording pict definition;
*	note that this is a different grafport than the one used to manage the banding buffer
*	Open communication channel with printer
*	Confirm the identity of the printer; if incorrect, then set abort status
*	Cause the printer to reset
*	Configure the imager/printer with information about our band buffer, resolution settings, etc.
*

							export		OpenDoc
OpenDoc

*Clear error status which can be set to render most of the print loop calls ineffective:
							stz			OpDoErrorStatus
							
*Make setup level 0.  We inc whenever we start something up, to facilitate legal shutdown:
							stz			OpDoSetupLevel

*Clear the logical-page counter which is later used to see if we're in page range:
							stz			OpDoPageCounter

*Put up box for status messages, which also changes to the wait cursor:
							import		StartStatusMessage
							jsr			StartStatusMessage

*Save data from print record needed by Open/Close-Page, which can't access print record:
							import		GetPageRange			;page range (from..to) bounds
							jsr			GetPageRange
							stx			OpDoPageRange1st
							sty			OpDoPageRangeLst
*
							import		GetCopies				;number of copies of each page
							jsr			GetCopies
							sta			OpDoTotalCopies
*
							stz			OpDoIsManFeed			;manual or automatic sheet feed
							import		GetFeed
							jsr			GetFeed
							bne			OpDoItsAutoFeed
							inc			OpDoIsManFeed
OpDoItsAutoFeed
*
							import		GetRPageSize			;rPage calculation results
							jsr			GetRPageSize
							stx			OpDoRPageX2
							sty			OpDoRPageY2
*
							import		GetImagingSize			;scaled-up page size calc results
							jsr			GetImagingSize
							stx			OpDoImgSzX2
							sty			OpDoImgSzY2

*Put up message to show that we're now going to be allocating banding memory:
							import		StMeMallocMesg
							lda			#StMeMallocMesg
							import		StatusMessage
							jsr			StatusMessage
							
*Save current caller's grafport for restore by CloseDoc routine:
							pha
							pha
							_GetPort
							pulllong	OpDoOldUserGrafPortPtr

*Starting to create locinfo to be used by off-screen banding grafport.  Store band tallness/width:
							import		GetImagingSize			;get the scaled-up size of the page
							jsr			GetImagingSize			;image, given current quality setting
							stx			OpDoLocInfoRect+oh2		;store X2; will be modified
							sty			OpDoLocInfoRect+ov2		;store Y2; will be modified

*Begin loop to figure out maximum Y size for banding, with many constraints:
							bra			OpDoAlignBandSize		;go align first to begin with

**Get smaller band by cutting Y size in half, and align Y size to an even-imager-multiple:
OpDoTrySmallerBand			lsr			OpDoLocInfoRect+ov2		;port: try smaller Y band size
OpDoAlignBandSize			pha									;align to multiple for pr head pins
							pha
							pushword	OpDoLocInfoRect+ov2
							import		ImagerGetVAlignFactor
							jsr			ImagerGetVAlignFactor	;obtain vertical align factor in ACC
							pha
							_UDivide
							pla									;ignore quotient from divide
							pullword	ParamWordA				;get remainder
							lda			OpDoLocInfoRect+ov2		;subtract to align it...
							sec
							sbc			ParamWordA
							bcc			OpDoCantGetBandMem		;can't make it any smaller...
							beq			OpDoCantGetBandMem
							sta			OpDoLocInfoRect+ov2
							bra			OpDoCalcLocInfoWidth
OpDoCantGetBandMem			lda			#$0201					;abort with memory full tool err...
OpDoExitAbortErrInACC		sta			errNo
							sta			OpDoErrorStatus
							rts

**Figure out loc info width based on mode (320/640) in effect at recording time and loc info X size:
							import		GetModeByte				;metrics to obtain 320/640 mode
OpDoCalcLocInfoWidth		jsr			GetModeByte				;for finding number pixels per byte
							sta			OpDoLocInfoSCB			;also put mode byte in locinfo
							and			#$80					;check 320/640 mode bit...
							cmp			#1						;...set carry if 640 mode
							lda			OpDoLocInfoRect+oh2		;get rPage X2 in ACC
							bcc			OpDoIts320				;320, so only divide rPageX2 by 2
							lsr	a								;divide by 4 (640 mode), or...
OpDoIts320					lsr	a								;by 2 (320 mode) -> # bytes per line
							sta			OpDoLocInfoWidth		;store band width in bytes

**Figure out how big the band buffer will be, given the above (width still in ACC):
							pha									;result space for multiply...
							pha
							pha									;locinfo.width (bytes) still in acc
							lda			OpDoLocInfoRect+ov2		;times number of lines...
							ina
							pha
							_Multiply
							pulllong	ParamLongB				;plB now has pix buff size we want
							
**Check if buffer size would be greater than the amount of free memory:
OpDoCmpFreeMem				pha
							pha
							_RealFreeMem
							plx
							pla
							lsr a
							tay
							txa
							ror	a
							tax
							tya
							lsr a
							tay
							txa
							ror a								;now have free_mem/4 lo->A, hi->Y
							cpy			ParamLongB+2			;cmp hi words
							beq			OpDoCmpFreeMem1
							bcs			OpDoCmpFreeMemOk
							brl			OpDoTrySmallerBand		;too big, try smaller
OpDoCmpFreeMem1				cmp			ParamLongB+0			;cmp lo words
							bcs			OpDoCmpFreeMemOk
							brl			OpDoTrySmallerBand		;too big, try smaller
OpDoCmpFreeMemOk

**Check if buffer size would be greater than maximum QD-allowed pix buffer size:
OpDoCmpMaxPixBuff			lda			ParamLongB+2			;cmp hi words
							cmp			#QDMaxPixBuff/65536
							beq			OpDoCmpMaxPixBuff1
							bcc			OpDoCmpMaxPixBuffOk
							brl			OpDoTrySmallerBand		;too big, try smaller
OpDoCmpMaxPixBuff1			lda			ParamLongB+0			;cmp lo words
							cmp			#QDMaxPixBuff//65536
							bcc			OpDoCmpMaxPixBuffOk
							brl			OpDoTrySmallerBand		;too big, try smaller
OpDoCmpMaxPixBuffOk

**Try asking for the memory for imaging bands and also obtain a PID for later mallocs/deallocs:
OpDoDoBandMalloc			pha									;result space
							pushword	#UserIDType				;type of process requesting ID
							_GetNewID							;obtain PID
							pullword	OpDoMemPID				;get it
							pha									;result space...
							pha
							pushlong	ParamLongB				;pass size of block requested
							pushword	OpDoMemPID				;pass PID
							pushword	#$C000					;pass attr: locked/fixed
							pha									;pass dummy location
							pha
							_NewHandle
							pulllong	ParamLongA				;get handle, if we got one
							bcc			OpDoOKBandMalloc		;go on if we got one
							pushword	OpDoMemPID				;didn't get handle, try again...
							_DeleteID
							brl			OpDoTrySmallerBand
OpDoOKBandMalloc			inc			OpDoSetupLevel			;bump the setup level to "1"

*Dereference the handle and put the pointer in our locinfo:
							lda			[ParamLongA]
							sta			OpDoLocInfoPixPtr+0
							ldy			#2
							lda			[ParamLongA],y
							sta			OpDoLocInfoPixPtr+2

*Start banding gport.  This gp is one "band" into which slices of pictures are drawn & printed:
							pushlong	#OpDoBandGrafPort		;init fields of grafport, alloc clip
							_OpenPort							;and make it the current gp for now
							bcc			OpDoOKOpenBandPort		;check for error
							brl			OpDoExitAbortErrInACC
OpDoOKOpenBandPort

*The locinfo was prepared above, so now use it:
							pushlong	#OpDoLocInfo			;attach our locinfo to our grafport
							_SetPortLoc

*Set QuickDraw's global internal clip buffers to handle the bigger size of our offscreen bitmap:
							pushlong	#OpDoOldQDBuffRec		;save original buffer widths
							_SaveBufDims
*
							lda			OpDoLocInfoWidth		;buff size for horiz num of bytes...
							cmp			OpDoOldQDBuffMWid		;but never ever smaller!
							bcs			OpDoSetBufDims1
							lda			OpDoOldQDBuffMWid
OpDoSetBufDims1				pha									;pass it to SetBufDims
*
							lda			OpDoOldQDBuffTxHi		;buff size height for font stuff...
							lsr a
							lsr a
							clc
							adc			OpDoOldQDBuffTxHi
							pha									;pass it to SetBufDims
*
							lda			OpDoOldQDBuffFBRx		;buff size for font style mods...
							pha									;pass it to SetBufDims
*
							_SetBufDims							;ask QD for bigger buffers
							bcc			OpDoOKSetBufDims
							brl			OpDoExitAbortErrInACC	;if err, abort pr loop and tool err
OpDoOKSetBufDims			inc			OpDoSetupLevel			;if ok, bump setup level to "2"

*Set port rect, clip rgn, and vis rgn of band gp to now-known rect instead of screen-sized defaults:
							pushlong	#OpDoLocInfoRect		;(1) set main grafport rect
							_SetPortRect
							pushlong	#OpDoLocInfoRect		;(2) set clip region
							_ClipRect
							pha									;(3) set vis region
							pha
							_GetVisHandle						;leave hdl on stack for SetRectRgn
							pushword	OpDoLocInfoRect+oh1
							pushword	OpDoLocInfoRect+ov1
							pushword	OpDoLocInfoRect+oh2
							pushword	OpDoLocInfoRect+ov2
							_SetRectRgn
							
*Install our own bottleproc into the band buffer grafport and save the addresses of real procs:
							pushlong	#OpDoOldQDProcs			;save addresses of the real procs
							_SetStdProcs						;and also get list for our
							pushlong	#OpDoNewQDProcs			;modification and then install into
							_SetStdProcs						;our band port; will get called
							lda			#(PutText-1)			;from inside DrawPicture
							sta			OpDoNewQDProcs+ostdText+0
							lda			#^(PutText-1)
							sta			OpDoNewQDProcs+ostdText+2
							pushlong	#OpDoNewQDProcs
							_SetGrafProcs
														
*Calculate # of band passes needed: (Imaging Y Size) / Band Y Size, rounded up, with remainder:
							import		GetImagingSize			;get size of offscreen buffer we
							jsr			GetImagingSize			;would have liked... will compare
							tya									;portrait mode: get Y size in acc
							ldx			OpDoLocInfoRect+ov2		;now ACC & X valid, go calc
							stx			OpDoLastBandHeight		;ACC has imgsize,   ;initialize this
							pha									;X has bandsize     ;result space
							pha									;result space
							pha									;pass tallness of pic to be printed
							phx									;pass tallness of our band buffer
							_UDivide
							pla									;get quotient (# whole bands) in ACC
							plx									;get remainder (# lines) in X
							beq			OpDoCalcPassesStore		;skip next few lines if no remainder
							stx			OpDoLastBandHeight		;if non-0 rem thn its sz of lst band,
							ina									;and inc, must do 1 more smaller band
OpDoCalcPassesStore			sta			OpDoTotalBands			;now store number of passes needed

*Now that we have a banding buffer and its grafport, set up memory for a 2nd gp for pict recording:
							lda			printGrafPortPtr+0		;first copy the user-given parameter
							sta			OpDoCalcGrafPortPtr+0	;to our own ptr-storage. if not nil,
							lda			printGrafPortPtr+2		;then we'll use it; else, we point
							sta			OpDoCalcGrafPortPtr+2	;our pointer at our storage and also
							ora			printGrafPortPtr+0		;return the address of our storage
							bne			OpDoMallocCalcGPDone	;back to the caller...
							lda			#OpDoCalcGrafPort
							sta			printGrafPortPtr+0
							sta			OpDoCalcGrafPortPtr+0
							lda			#^OpDoCalcGrafPort
							sta			printGrafPortPtr+2
							sta			OpDoCalcGrafPortPtr+2
OpDoMallocCalcGPDone

*Open the calc/record gp and make *it* the curr gp.  OpenPage will re-init it for each new page:
							pushlong	OpDoCalcGrafPortPtr		;now use user's or our memory
							_OpenPort							;as a grafport and alloc clip rgns
							bcc			OpDoNoPortErr
							brl			OpDoExitAbortErrInACC	;if err exit with acc set
OpDoNoPortErr				_HidePen							;this port will never draw on screen
							
*Put up message to show that we're sending setup commands to the printer:
							import		StMePrinterResetMesg
							lda			#StMePrinterResetMesg
							import		StatusMessage
							jsr			StatusMessage
							
*Initialize the imager and obtain unique communication connection with device:
							import		ImagerOpen
							jsr			ImagerOpen
							
*Confirm the identity of the device; if incorrect, then put up message and cause print loop abort:
							import		ImagerGetDeviceID
							jsr			ImagerGetDeviceID
							bcs			OpDoDeviceOK
							lda			#prAbort
							sta			OpDoErrorStatus
							import		StMeWrongDevMesg
							lda			#StMeWrongDevMesg
							import		StatusMessage
							jsr			StatusMessage
							rts
OpDoDeviceOK
							
*Configure the imager with bandbuffer locinfo, quality, mode, idleproc, and other settings:
							ldx			#OpDoLocInfo
							ldy			#^OpDoLocInfo			;pass pointer to our band buffer
							import		ImagerSetLocInfo		;locinfo struct to imager:
							jsr			ImagerSetLocInfo		;lo->X, hi->Y
*
							import		GetPaper				;get 0..3 physical paper size in
							jsr			GetPaper				;print record in A and pass to
							import		ImagerSetPaperType		;imager in A, so that form feeds
							jsr			ImagerSetPaperType		;will work correctly
*
							import		GetQuality				;get res setting from quality setting
							jsr			GetQuality				;in print record in A and pass to
							import		ImagerSetResolution		;imager in A; imgr will print smaller
							jsr			ImagerSetResolution		;to compensate for our blown-up image
*
							import		GetVSize				;get vert 50% reduction setting from
							jsr			GetVSize				;print record: A=0/1 if 100%v/50%v
							import		ImagerSetVCondense		;pass this information back in A
							jsr			ImagerSetVCondense		;to the imager
*
							import		GetIdleProc				;get idleproc pointer from print
							jsr			GetIdleProc				;record: lo->X, hi->Y
							import		ImagerSetIdleProc		;pass idleproc pointer to
							jsr			ImagerSetIdleProc		;imager: lo->X, hi->Y
*
							ldx			#OpDoErrorStatus		;provide imager with the address of
							ldy			#^OpDoErrorStatus		;the global prError status so that
							import		ImagerSetAbortPoll		;it can abort if it ever goes nonzero
							jsr			ImagerSetAbortPoll		;lo->X, hi->Y
							
*Request that the imager initialize the device for printing:
							import		ImagerReset
							jsr			ImagerReset
							
*Put up message to show that we're out of opendoc (many apps take quite a while after this):
							import		StMePrepRxPgDataMesg
							lda			#StMePrepRxPgDataMesg
							import		StatusMessage
							jsr			StatusMessage
							
*Exit from tool call; current grafport is the rec/calc gp; next expected call will be OpenPage:
							rts



*Static memory for holding QuickDraw's GrafPort drawing-environment-context data structures:
OpDoBandGrafPort			ds.b		$AA						;port to manage banding buffer
OpDoCalcGrafPort			ds.b		$AA						;port for calc/recording; app sees
OpDoOldUserGrafPortPtr		dc.l		0						;user's currnt port before print loop
OpDoCalcGrafPortPtr			dc.l		0						;pointer to our or user's calc port

*User ID for mallocing memory during this routine for banding buffer, etc:
OpDoMemPID					dc.w		0

*GrafPort.LocInfo record describing banding buffer (offscreen pixelmap):
OpDoLocInfo:
OpDoLocInfoSCB				dc.w		0						;portSCB
OpDoLocInfoPixPtr			dc.l		0						;ptrToPixImage ptr to imaging buffer
OpDoLocInfoWidth			dc.w		0						;width of one scan line in bytes
OpDoLocInfoRect				dc.w		0,0,0,0					;boundsRect in pixels

*Further information about the bands into which the page image will be rendered:
OpDoTotalBands				dc.w		0						;number of bands page is split into
OpDoLastBandHeight			dc.w		0						;height of special-case last band

*Area for patching our bottleprocs into the banding-buffer-playback grafport and saving old procs:
OpDoOldQDProcs				ds.b		$38						;bottleneck proc pointers
OpDoNewQDProcs				ds.b		$38						;bottleneck proc pointers

*QuickDraw global buffer size information record storage:
OpDoOldQDBuffRec:												;to save/alter/restore QD buffers
OpDoOldQDBuffMWid			dc.w		0
OpDoOldQDBuffTxHi			dc.w		0
OpDoOldQDBuffTxWi			dc.w		0
OpDoOldQDBuffFBRx			dc.w		0

*Setup-status used to shut things down correctly and global print-loop-error ("PrError") status:
OpDoErrorStatus				dc.w		0						;our global error status
OpDoSetupLevel				dc.w		0						;0)mesg box 1)band malloc 2)bufdims

*Information obtained from metrics calls needed later which require print record presence:
OpDoTotalCopies				dc.w		0						;number of copies requested
OpDoPageRange1st			dc.w		0						;first page number requested
OpDoPageRangeLst			dc.w		0						;last page number requested
OpDoIsManFeed				dc.w		0						;GetFeed call result @ OpenDoc
OpDoRPageX2					dc.w		0						;from rPage from metrics
OpDoRPageY2					dc.w		0						;from rPage from metrics
OpDoImgSzX2					dc.w		0						;from get-imaging-size from metrics
OpDoImgSzY2					dc.w		0						;from get-imaging-size from metrics

*Keeping track of the number of times OpenPage/ClosePage pair is called:
OpDoPageCounter				dc.w		0







*
*OPENPAGE: Designates beginning of page definition.  Performs the following tasks:
*
*	Exit if error status
*	Ensure that we are using our or the user's grafport memory for the recording grafport
*	Init, and make current, the recording grafport to all default penwidth, fonts, colors, etc.
*	Inc page count and check to make sure we're inside page range: exit if no, set flag if yes
*	Begin picture recording; all subsequent application's QuickDraw commands will be recorded
*

							export		OpenPage
OpenPage

*Check to make sure no print error exists; if so, disable this routine:
							lda			OpDoErrorStatus
							beq			OpPaDontDisable
OpPaExit1					rts
OpPaDontDisable

*Ensure that our pointer to the calculation/recording grafport is up to date if owned by caller:
							lda			printGrafPortPtr+0
							tax
							ora			printGrafPortPtr+2
							beq			OpPaDoneUpdateCalcGPPtr
							stx			OpDoCalcGrafPortPtr+0
							lda			printGrafPortPtr+2
							sta			OpDoCalcGrafPortPtr+2
OpPaDoneUpdateCalcGPPtr

*Init the recording gp to all-default settings for new page, and set it as the current grafport:
							lda			OpDoCalcGrafPortPtr+2	;get a copy of the calc grafport ptr
							sta			ParamLongA+2			;and also pass it on the stack...
							pha
							lda			OpDoCalcGrafPortPtr+0
							sta			ParamLongA+0
							pha
							_InitPort							;init and set as current gp
							lda			#0						;zero the bounds rect so that
							ldy			#oBoundsRect			;no physical drawing occurs; we do
OpPaZeroBoundsRectLoop1		sta			[ParamLongA],y			;this here even if we're not in
							iny									;page range
							iny
							cpy			#oBoundsRect+8
							bne			OpPaZeroBoundsRectLoop1

*Increment abs pg count so we can compare it against user-selected pg range; first number is 1:
							inc			OpDoPageCounter

*Show message in box that says we are dealing with, but not yet printing, the current page number:
							import		StMeRxCurrentPgMesg
							lda			#StMeRxCurrentPgMesg
							jsr			ShowStatusWithPgNo		;string will be modified with page#

*Assume we're not in page range; this flag may be modified in a moment:
							stz			OpPaInPageRange

*Check page range, we want no action if this page isn't to be printed, so exit if out of pg range:
							ldx			OpDoPageRange1st		;see if we're going to do anything...
							ldy			OpDoPageRangeLst		;at all... 1stpage->X Lstpage->Y
							cpx			OpDoPageCounter			;cmp current page# with first page#
							bcc			OpPaItsInRange1st		;current page# >= first page#...
							bne			OpPaExit1				;abort if out of page range
OpPaItsInRange1st			cpy			OpDoPageCounter			;cmp current page# with last page#
							bcc			OpPaExit1				;if not current page# <= last page#

*Tell ClosePage that we're really going to be recording a page for printing:
							lda			#1
							sta			OpPaInPageRange

*Fill in X2,Y2 in rectangle/data used several times in a few moments:
							lda			OpDoRPageX2				;get calculated size
							sta			OpPaPicFrameX2			;store into our rect's X2,Y2...
							lda			OpDoRPageY2
							sta			OpPaPicFrameY2

*But if user passed a non-NIL picture frame (scaling) rectangle, use it instead of ours:
							lda			pageFramePtr+0			;check user picture frame for NIL...
							ora			pageFramePtr+2
							beq			OpPaDoneCpUsrPicFrame	;branch away if user passed NIL
							ldy			#0						;else copy their rect...
OpPaCpUsrPicFrameLoop1		lda			[pageFramePtr],y
							sta			OpPaPicFrame,y
							iny
							iny
							cpy			#8
							bne			OpPaCpUsrPicFrameLoop1
OpPaDoneCpUsrPicFrame

*Set all clipping settings to rPage rect or user's rect:
							pushlong	#OpPaPicFrame			;(1) set main grafport rect
							_SetPortRect
							pushlong	#OpPaPicFrame			;(2) set clip region
							_ClipRect
							pha									;(3) set vis region
							pha
							_GetVisHandle						;leave hdl on stack for SetRectRgn
							pushword OpPaPicFrame+oh1
							pushword OpPaPicFrame+ov1
							pushword OpPaPicFrame+oh2
							pushword OpPaPicFrame+ov2
							_SetRectRgn

*Tell QuickDraw to start making drawing commands go into picture definition and not to screen:
							pha									;result space...
							pha
							pushlong	#OpPaPicFrame			;user's or our picframe
							_OpenPicture						;has effect of a "_HidePen"
							pulllong	OpPaPictureHdl			;save this even though we do bprocs

*Done; current gp is the rec/calc port; app will do qd commands now which will be recorded:
OpPaExit					rts



*Picture frame rectangle for passing to OpenPicture and to ClipRect:
OpPaPicFrame				dc.w		0,0						;Y1,X1
OpPaPicFrameY2				dc.w		0						;Y2
OpPaPicFrameX2				dc.w		0						;X2

*Handle to the picture containing the definition of the current page:
OpPaPictureHdl				dc.l		0						;handle from/for QD pict calls

*Flag to indicate whether we are actually recording and printing the current page:
OpPaInPageRange				dc.w		0						;are we really doing a page







*
*CLOSEPAGE: Designates end of page definition.  Performs the following tasks:
*
*	Exit if error or abort status, or if we weren't in selected from..to page range
*	Finish the picture recording process
*	Loop for all copies
*	Do manual sheet-feed dialog, if necessary; allow abort request
*	Loop for all bands
*	Call DrawPicture to render marks within the band for which we have memory, at blown-up size
*	Call Imager to cause the printer to mark the paper with the data in banding memory
*	Disable the print loop if abort is requested by application or user
*

							export		ClosePage
ClosePage

*Check print loop status; if set, then disable this routine:
							lda			OpDoErrorStatus
							beq			ClPaDontDisable
ClPaExit1					rts
ClPaDontDisable

*Check if currently in page range, ie, check if OpenPage really recorded a page for us:
							lda			OpPaInPageRange
							beq			ClPaExit1
							
*We've obtained a pict defining current page contents, so stop recording:
							_ClosePicture
							
*Now switch from the recording grafport to the playback/banding grafport:
							pushlong	#OpDoBandGrafPort
							_SetPort

**Initialize for looping through multiple copies of the current page:
							lda			#1						;we'll count real-copy-numbers
							sta			ClPaCurrentCopy			;from 1..TotalCopies

**Head of code to print one copy:
ClPaPrintOneMoreCopy		

**Do manual-sheet-feed dialog with user if necessary; allow cancel option:
							lda			OpDoIsManFeed			;find out if we have to do dialog
							beq			ClPaManFeedDiDone		;don't do dialog if auto feed
							_InitCursor							;arrow cursor
							lda			OpDoPageCounter			;get curr pg in ACC so that we can
							import		StatusMesgFeedPrompt	;put up the dialog until the user
							jsr			StatusMesgFeedPrompt	;hits ok or cancel (if carry set)
							bcc			ClPaManFeedDiNotCancel
							brl			ClPaAbortPrintLoop		;if cancel hit, go terminate
ClPaManFeedDiNotCancel		_WaitCursor							;back to watch cursor
ClPaManFeedDiDone
							
**Display message that we are actually printing the current page number:
							import		StMePrCurrentPgMesg
							lda			#StMePrCurrentPgMesg
							jsr			ShowStatusWithPgNo

**Advance paper vertically to provide top margin:
							lda			#printTopMargin			;do hardcoded vertical space since
							import		ImagerLinefeed			;we don't support gap/no gap option
							jsr			ImagerLinefeed

***Initialize for looping through bands to print the picture a slice at a time:
							lda			#1						;real-band-numbers starting at 1
							sta			ClPaCurrentBand			;we'll stop at OpDoTotalBands

***Head of code to print one band:
ClPaPrintOneMoreBand

***Get the scaled-up picture-playback size:
							lda			OpDoImgSzX2				;store as 0,0,Y2,X2...
							sta			ClPaDestRect+oh2
							lda			OpDoImgSzY2
							sta			ClPaDestRect+ov2
							stz			ClPaDestRect+oh1
							stz			ClPaDestRect+ov1

***Calculate offset to play back the next part of picture into the banding buffer:
ClPaCalcOffset				ldx			OpDoLocInfoRect+ov2
							lda			ClPaCurrentBand			;get current band number index
							dea									;minus one to get start index at 0
							pha									;result space
							pha
							pha									;pass current band
							phx									;pass band size
							_Multiply							;multiply to get destrect offset
							pullword	ParamWordA				;save for subtracts in a minute
							pla									;ignore result hi word

***Subtract the offset obtained above from Y1 & Y2:
							lda			ClPaDestRect+ov1		;destrect.y1 -= band height * band#
							sec
							sbc			ParamWordA
							sta			ClPaDestRect+ov1
							lda			ClPaDestRect+ov2		;destrect.y2 -= band height * band#
							sec
							sbc			ParamWordA
							sta			ClPaDestRect+ov2

***Clear the band buffer to white using our (unmodified default white) band grafport background:
							pushlong	#OpDoLocInfoRect
							_EraseRect

***Display message indicating that DrawPicture is creating image of current page:
							import		StMeRenderingMesg
							lda			#StMeRenderingMesg
							import		StatusMessage
							jsr			StatusMessage

***Call DrawPicture to draw upscaled page image, showing only a slice into banding/imaging buffer:
							pushlong	OpPaPictureHdl			;pass handle to page description
							pushlong	#ClPaDestRect			;translation and scaling rect
							_DrawPicture						;BOTTLEPROCS/PICCOMMENTS RUN NOW!

***Change current message display (back) to the current-page message:
							import		StMePrCurrentPgMesg
							lda			#StMePrCurrentPgMesg
							jsr			ShowStatusWithPgNo

***Save current band's height because we might modify it next:
							ldy			OpDoLocInfoRect+ov2
							sty			ClPaCurrBandHeightSave

***If last band, adjust bandsize here at the last minute because it might be shorter:
ClPaAdjBand					lda			OpDoTotalBands			;get total # of bands to be done
							cmp			#1						;no adjust if doing it all in 1 band
							beq			ClPaDoneAdjBand			;(because LastBandHeight is 0)
							cmp			ClPaCurrentBand			;now compare to curr band we're on
							bne			ClPaDoneAdjBand			;no adjust if not last band
							ldy			OpDoLastBandHeight
							sty			OpDoLocInfoRect+ov2
							ldx			#OpDoLocInfo			;make sure that the imager is
							ldy			#^OpDoLocInfo			;informed of the new band size
							import		ImagerSetLocInfo
							jsr			ImagerSetLocInfo
ClPaDoneAdjBand

***Call imager to convert pixelmap in band buffer to pr cmd sequences and transmit; exec idleproc:
							import		ImagerPrint
							jsr			ImagerPrint				;err status returned in ACC/carry

***Check for imager errors and check the print loop status; if so, arrange to terminate:
							bcc			ClPaNoAbort				;continue if nothing exceptional
							cmp			#$0080					;did the user type command-period?
							beq			ClPaAbortPrintLoop		;if so, arrange to terminate
							lda			OpDoErrorStatus			;did idleproc do PrSetError?
							beq			ClPaNoAbort				;if not, we're ok; else, terminate
							
***Imager err/command-period.  Do mesg/FF/set error status to render print loop ineffective:
ClPaAbortPrintLoop			lda			#prAbort				;ensure that this flag is set so
							sta			OpDoErrorStatus			;we will do no further printing
							import		StMeCancellingMesg		;put up the cancelling message in
							lda			#StMeCancellingMesg		;the box because it will take time
							import		StatusMessage			;for the app to continue calling
							jsr			StatusMessage			;our high-level print loop calls
							import		ImagerFormfeed			;eject the page and exit...
							jsr			ImagerFormfeed
							brl			ClPaAbortExit
							
***Continue normally if there is no reason to abort:
ClPaNoAbort

***Restore bandsize in case it was modified if this was last band:
							ldy			ClPaCurrBandHeightSave	;restore band size in struct and
							sty			OpDoLocInfoRect+ov2		;make sure the imager is informed
							ldx			#OpDoLocInfo
							ldy			#^OpDoLocInfo
							import		ImagerSetLocInfo
							jsr			ImagerSetLocInfo

***Tail of do-one-band code.  See if we need to do another band:
							lda			ClPaCurrentBand			;get current band number index
							cmp			OpDoTotalBands			;compare with total bands needed
							bcs			ClPaOutOfBandsLoop		;if we're done, break out of loop
							ina									;else increment and store back
							sta			ClPaCurrentBand			;store it
							brl			ClPaPrintOneMoreBand	;loop back
ClPaOutOfBandsLoop

**Tail of do-one-copy code.  Do form feed to advance to next sheet:
							import		ImagerFormfeed
							jsr			ImagerFormfeed

**Tail of do-one-copy code.  See if we need to print another copy:
							lda			ClPaCurrentCopy			;get current copy number index
							cmp			OpDoTotalCopies			;compare with total copies needed
							bcs			ClPaOutOfCopiesLoop		;if we're done, break out of loop
							ina									;else increment and store back
							sta			ClPaCurrentCopy			;store it
							brl			ClPaPrintOneMoreCopy	;loop back
ClPaOutOfCopiesLoop

*Now done printing copies of current page or we need to abort:
ClPaAbortExit

*Deallocate storage for definition of this page:
							pha									;save (undocumented) error, if any
							pushlong	OpPaPictureHdl			;dealloc QD's mem for pict recording
							_KillPicture						;we took care of recording ourselves
							pla									;restore error from ClosePicture
							beq			ClPaNoClosePictErr		;if error, return as tool-error
							sta			errNo
ClPaNoClosePictErr

*Exit; next expected print loop call is OpenPage:
							rts



*Status variables needed during loop to print copies of the current page:
ClPaCurrentBand				dc.w		0
ClPaCurrentCopy				dc.w		0

*Inflated and translated picture playback rectangle:
ClPaDestRect				dc.w		0,0,0,0

*Temporary save area for band height for restore after special-case-last-band modification:
ClPaCurrBandHeightSave		dc.w		0






*
*CLOSEDOC: Designates end of all printing operation.  Performs the following tasks:
*
*	Close communication connection with printer
*	Ensure that we are using our or the user's grafport memory for the recording grafport
*	Close recording grafport and banding grafport (releases memory), set old pre-OpenDoc grafport
*	Deallocate banding memory
*	Restore QuickDraw global clip buffer sizes back to pre-OpenDoc values
*	Remove status message box
*

							export		CloseDoc
CloseDoc

*Close port connection to printer as one of the first steps:
							import		ImagerClose
							jsr			ImagerClose

*Ensure that our pointer to the calculation/recording grafport is up to date if owned by caller:
							lda			printGrafPortPtr+0
							tax
							ora			printGrafPortPtr+2
							beq			ClDoDoneUpdateCalcGPPtr
							stx			OpDoCalcGrafPortPtr+0
							lda			printGrafPortPtr+2
							sta			OpDoCalcGrafPortPtr+2
ClDoDoneUpdateCalcGPPtr

*Restore previous grafport and close calculation and banding grafports:
							pushlong	OpDoOldUserGrafPortPtr	;restore pre-pr-loop grafport first
							_SetPort
							lda			OpDoSetupLevel			;make sure we don't deallocate
							cmp			#1						;unallocated resources...
							bcc			ClDoDontDeallocPorts
							pushlong	OpDoCalcGrafPortPtr		;clean up both of our grafports,
							_ClosePort							;thus deallocating clip/vis rgn mem
							pushlong	#OpDoBandGrafPort
							_ClosePort
							
*Deallocate banding memory attached to our locinfo attached to our grafport:
							pha									;dump our band mem	;result space
							pha														;result space
							pushlong	OpDoLocInfoPixPtr							;didn't keep hdl
							_FindHandle												;so find from ptr
							_DisposeHandle											;hdl on stack
							pushword	OpDoMemPID				;dump our user ID
							_DeleteID
ClDoDontDeallocPorts

*Set QuickDraw global internal clip buffers back to previous size:
							lda			OpDoSetupLevel			;make sure we don't deallocate
							cmp			#2						;unallocated resources...
							bcc			ClDoDontResetBufDims
							pushlong	#OpDoOldQDBuffRec
							_RestoreBufDims
ClDoDontResetBufDims

*Finally, remove the status box as one of the last steps:
							import		FinishStatusMessage
							jsr			FinishStatusMessage
							
*Get rid of stray keystroke events and exit:
							pha									;flush other keyboard events
							pushword	#%0000000000001110
							pushword	#0
							_FlushEvents
							pla

*Exit; we are done with the print job; PrPicFile will be called but it need do nothing:
ClDoExit					rts







*
*GETPRINTLOOPERROR: This routine returns the value of the status variable in ACC:
*
							export		GetPrintLoopError
GetPrintLoopError			lda			OpDoErrorStatus
							rts







*
*SETPRINTLOOPERROR: This routine stores the value of ACC into the status variable:
*
							export		SetPrintLoopError
SetPrintLoopError			sta			OpDoErrorStatus
							rts







*
*SHOWSTATUSWITHPGNO: Displays string at adrs in ACC, with ASCII of OpDoPageCounter at posn 26:
*
ShowStatusWithPgNo			pha									;save original string address
							ldx			OpDoPageCounter			;int to be converted to string
							phx									;pass value to Int2Dec
							clc									;compute lo word of where number goes
							adc			#26
							tax
							phk									;compute hi word of where number goes
							phk
							pla
							and			#$00FF
							pha									;pass hi word where # goes to Int2Dec
							phx									;pass lo word where # goes to Int2Dec
							pushword	#5						;pass length to Int2Dec
							pushword	#0						;pass "unsigned" to Int2Dec
							_Int2Dec
							pla									;restore original string address
							import		StatusMessage
							brl			StatusMessage			;exit through StatusMessage







*
*PUTTEXT (QuickDraw BottleProc):
*
*This is the patched-in text bottleproc, called during picture playback from within DrawPicture.
*This routine attempts to censor certain text objects from being drawn, thus speeding up the
*DrawPicture call, by preventing the normal text drawing code from executing if a text string does
*not intersect with the banding buffer.  Only the vertical coordinates are checked, since we
*only implement portrait orientation.
*

PutText						phb									;save QD's bank setting
							phk									;we'll have direct-page set to QD's
							plb									;and data-bank set to this driver

PuTeSaveQDVars				pushword	QDDrawVerbDPLoc			;save QD variables because they
							pushlong	QDTextPtrDPLoc			;will be altered if we do any
							pushword	QDTextLengthDPLoc		;reentrant QD calls here (because
							pushword	QDCharToDrawDPLoc		;we *are* inside a QD call now)
							pushlong	QDRectPtrDPLoc
							
PuTeObtainString			lda			QDDrawVerbDPLoc			;obtain pointer and length to
							cmp			#QDDrawCharVerbEqu		;current string and pass them on
							bne			PuTeNotSingleChar		;stack for TextBounds call, despite
PuTeItsSingleChar			lda			QDCharToDrawDPLoc		;the silly way in which the high-
							sta			PuTeChar				;level QD routines have neglected
							pushlong	#PuTeChar				;to deal with the three different
							pushword	#1						;types: char, cstring, pstring
							bra			PuTeDoTxBoundsCall1
PuTeNotSingleChar			cmp			#QDDrawCStrVerbEqu
							bne			PuTeItsPString
PuTeItsCString				ldy			#0
							shortm
PuTeCStrLenLoop				lda			[QDTextPtrDPLoc],y
							beq			PuTeCStrLenLoopDone
							iny
							cpy			#256
							bne			PuTeCStrLenLoop
PuTeCStrLenLoopDone			longm
							pushlong	QDTextPtrDPLoc
							phy
							bra			PuTeDoTxBoundsCall1
PuTeItsPString				pushlong	QDTextPtrDPLoc
							pushword	QDTextLengthDPLoc
							
PuTeDoTxBoundsCall1			pushlong	#PuTeTextRect			;reentrant QD call to figure out
							_TextBounds							;a bounding rect around our string
							
PuTeRestoreQDVars			pulllong	QDRectPtrDPLoc			;restore QD variables that were
							pullword	QDCharToDrawDPLoc		;altered because of the reentrant
							pullword	QDTextLengthDPLoc		;TextBounds call above
							pulllong	QDTextPtrDPLoc
							pullword	QDDrawVerbDPLoc

PuTeCompareIntersect_y1top	lda			PuTeTextRect+ov1		;see if text.y1 is below top of band
							sec									;do signed compare
							sbc			OpDoLocInfoRect+ov1		;text may be inside band if true that
							beq			PuTeCmpItsIn_y1top		;text.y1 is >= band.y1
							bvs			PuTeCmpInv_y1top
							bmi			PuTeCmpDone_y1
							bra			PuTeCmpItsIn_y1top
PuTeCmpInv_y1top			bpl			PuTeCmpDone_y1
PuTeCmpItsIn_y1top

PuTeCompareIntersect_y1bot	lda			PuTeTextRect+ov1		;see if text.y1 is above botm of band
							sec									;do signed compare
							sbc			OpDoLocInfoRect+ov2		;text may be inside band if true that
							beq			PuTeCmpItsIn_y1bot		;text.y1 is <= band.y2
							bvs			PuTeCmpInv_y1bot
							bmi			PuTeCmpItsIn_y1bot
							bra			PuTeCmpDone_y1
PuTeCmpInv_y1bot			bmi			PuTeCmpDone_y1
PuTeCmpItsIn_y1bot

							bra			PuTeDontCensorText		;text.y1 is inside so don't censor
PuTeCmpDone_y1													;text.y1 is not inside, go check y2

PuTeCompareIntersect_y2top	lda			PuTeTextRect+ov2		;see if text.y2 is below top of band
							sec									;do signed compare
							sbc			OpDoLocInfoRect+ov1		;text may be inside band if true that
							beq			PuTeCmpItsIn_y2top		;text.y2 is >= band.y1
							bvs			PuTeCmpInv_y2top
							bmi			PuTeCmpDone_y2
							bra			PuTeCmpItsIn_y2top
PuTeCmpInv_y2top			bpl			PuTeCmpDone_y2
PuTeCmpItsIn_y2top

PuTeCompareIntersect_y2bot	lda			PuTeTextRect+ov2		;see if text.y2 is above botm of band
							sec									;do signed compare
							sbc			OpDoLocInfoRect+ov2		;text may be inside band if true that
							beq			PuTeCmpItsIn_y2bot		;text.y2 is <= band.y2
							bvs			PuTeCmpInv_y2bot
							bmi			PuTeCmpItsIn_y2bot
							bra			PuTeCmpDone_y2
PuTeCmpInv_y2bot			bmi			PuTeCmpDone_y2
PuTeCmpItsIn_y2bot

							bra			PuTeDontCensorText		;text.y2 is inside so don't censor
PuTeCmpDone_y2													;text.y2 is not inside, go censor

PuTeCensorText				plb									;neither text.y1|y2 were inside band
							lda			#0						;restore QD's bank and exit no error
							clc									;exit with rtl instead of branching
							rtl									;to the real text drawing routines

PuTeDontCensorText			lda 		OpDoOldQDProcs+ostdtext+0
							ina
							sta			PuTeGotoQDStdText+1
							lda			OpDoOldQDProcs+ostdtext+2
							shortm
							sta			PuTeGotoQDStdText+3		;either text.y1|y2 were inside band
							longm								;so restore QD's bank and continue
							plb									;execution of normal QD code
							lda			#0
							clc
PuTeGotoQDStdText			jmp			>$FFFFFF				;NOTE: operand is stuffed

*Variables needed by this routine:
PuTeChar					dc.w		0						;storage for one-char text if needed
PuTeTextRect				dc.w		0,0,0,0					;calculated bounding rect of string







							endproc
							end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/IW/IW.ASM b/IIGS.601.SRC/GSToolbox/PrinterDrivers/IW/IW.ASM
new file mode 100644
index 0000000..ad3d8ef
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/IW/IW.ASM
@@ -0,0 +1 @@
+	STRING ASIS
	BLANKS OFF



*****************************************************************
*
*	  The Print Manager 
*                 ImageWriter Driver  v3.0
*
* Coding Started Summer 1986 by Luc Barthelet and VersionSoft
*
* Version 1.0    April 22, 1987       Suki Lee
*-------------------------------------------------------------------------------
*
* Version 1.1    May 7, 1987          Suki Lee
*
*    fPgDirty flag in status is updated	correctly and is used to
*    check if a form feed should be used when user aborts.
*-------------------------------------------------------------------------------
*
* Version 1.2    June 3, 1987         Suki Lee
*
*    Fixed bug in 50% Better Text mode and 50% Landscape.
*    New features added: Condensed
*	     PrPixelMap - prints pixel maps
*	     mixed modes and color palettes on same
*	        page (Not tested)
*-------------------------------------------------------------------------------
*
* Version 1.3    July 13, 1987        Suki Lee
*
*    New style dialog - vertical sizing	is now a separate section
*    with radial buttons rather than a check box under printer
*    effects.
*    Fixed line spacing bug in draft text in condensed mode.
*
*-------------------------------------------------------------------------------
* Version 2.0    November 1987        Dan Hitchens
*
*   Major revision of code.
*     -Source code was gone through and	commented.
*     -Low level routines were modified, restructured or even eliminated.
*     -Elimination of access to low level routines by user
*     -Speed enhancements were incorporated (Primarily in LLD.POINT)
*     -rPage (vRes)	now reflects vertical condensed printing
*     -Bugs were fixed:
*              -320	mode landscape with	vertical condensed was fixed.
*              -Landscape (with vertical condensed) was always imaging off the
*               page (image was too high causing it to be chopped at the top)
*              -The	Job dialogs FROM and TO line edit items	were not always
*               displaying or setting the insertion point correctly.
*
* Version 2.0d5  February 10, 1988     Harry Yee & Steve Glass
*   The procedure PrintCheck and its corresponding routines	have been commented	out
*   because none of	this code was really being used and it caused problems while
*   printing to a spooler.
*
* Version 2.0d6  March 1, 1988         Suki Lee & Steve Glass
*   Bug fix: Move the code to initialize the port and to reset the printer from 
*   LLDText to LLDStartUp. Deleted the same code from InitPrinting (called at the
*   beginning of LLDBitMap). Now the port is initialized only once at startup time 
*   and not each time LLDText and LLDBitMap is called.
*   Commented out CheckPrinter routine since it is not being called by anyone.
*   Also commented out InitSSC and replaced calls to it with calls to ResetPrinter
*   since the two functions similarly.
*   The escapes codes for resetting the	printer has been modified to used the 
*   default character, Elite, rather than Pica since the printer is optimized to 
*   print in Elite.
*
* Version 2.0d7   March 25, 1988	Suki Lee
*   Bug fix: 
added	filtering of c cedilla in LLDText so the character will be
*   printed in draft mode.
*-------------------------------------------------------------------------------
*
* Version 2.1d2   May 5, 1988        Suki Lee
*   Bug fix: 
*   - Added code to	check status of AppleTalk connected printer. Puts up
*     appropriate message to warn user of condition.
*   - LQ no longer ejects an extra page	for each page printed.

* Version 2.1d3   May 9, 1988        Suki Lee
*   Bug fix: 
*   - Added code to	ask the printer for	an ID which indicates if a color ribbon
*     is installed.	If printing to an ImageWriter I or if no color ribbon is 
*     installed, the color selection on	the job dialog is overridden. The routine
*     CheckPrinter which was removed in	2.0d6 has been modified and added back.
*
* Version 2.1d4   June 8, 1988       Suki Lee
*   Bug fix:
*   - Added error checking for opening connection to device.
*
* Version 2.1d5   June 24, 1988      Suki Lee
*   Bug fix:
*   - Took out branch for background printing in LLDStartup	which doesn't clean 
*     up the stack properly.
*-------------------------------------------------------------------------------
*
* Version 2.2d1   July 25, 1988      Suki Lee
*   Bug fix:
*   - Added a flag to indicate when not	to display status message, as in the case 
*     of PrPixelMap	where the dialog box is not put up.
*
* Version 2.2d2   July 26, 1988      Suki Lee
*   Bug fix:
*   - When printing	in Better Text mode, some color text were not printed when
*     color is not selected, no color ribbon is installed in an ImageWriter II,
*     or printing to an ImageWriter I. Fixed the logic in MakePattern, which 
*     calculates the dot pattern for color mapping, so the correct branch is taken
*     for 640 mode high resolution. Also changed the names of some of the branch
*     labels for clarity.
*
* Version 2.2d3   August 5, 1988     Suki Lee
*   Bug fix:
*   - AppleTalk will not return from a synchronous write if	something happened to 
*     the device while the write is in progress. This poses	a problem for error 
*     conditions such as out of paper for an AppleTalk connected ImageWriter. As 
*     per Greg Seitz, recovery is possible if asynchronous writes are used. This 
*     change is made in the subroutine PrDevWrite. Also rewrote the loop logic in 
*     this routine because it was wasteful.
*   - Use GetCursorAd before the WaitCursor call and use SetCursor instead of
*     InitCursor when done to restore the original cursor.
*
*-------------------------------------------------------------------------------
* Version 3.0
* d1 November 28, 1988     Suki Lee
*    Two new calls are added: PrGetPrinterSpecs, which returns the printer's  
*    type and its characteristics (only	color capability is	defined for now) and
*    PrGetPageOrientation which returns	either portrait or landscape.These calls
*    are needed by IIGS HyperCard printing.
*   
* d2 December 15, 1988    Suki Lee
*    Added new header to denote this as	a driver which support the new calls 
*    PrGetPrinterSpecs and PrGetPgOrientation (and any subsequent new calls).
*    This header is	2 words long: first	word is 0 followed by a call count word.
*     
*    Fixed the jump	to an incorrect exit routine in PrPixelmap if unsafe to 
*    proceed. The correct routine is Exit10, not Exit8.
* 
* d3 January 19, 1989     Suki Lee
*    Added a new input parameter, handle to the print record, to PrGetPgOrientation.
*
*    January 24, 1989     Suki Lee
*    Modified PrGetPgOrientation to use	Exit4 instead of Exit0 since a long parameter
*    has been added.
*
* d4 Februray 6,1989      Suki Lee
*    Modified PrValidate so that it will no longer call CiXMetrics if the print	record
*    is valid for the printer type and is the correct version. This was not necessary
*    and caused problems for applications that want to modify fields in the record such
*    as the page rectangle. 
*
*    February 8, 1989     Suki Lee
*    Added in code in PrPicFile to check the size of Quick Draw's buffer if Better Text
*    is requested. If the buffer is too small, we grow the buffer to what we need and 
*    restore it back to the original size.
*
*    February 10, 1989    Suki Lee
*    Bug fix in PrValidate: the print record handle is now dereferenced before using.
*
* d5 February 23, 1989    Suki Lee
*    Further bug fix in PrValidate: PtrToHand call is changed to BlockMove since the 
*    print record handle has been deferenced. An error was being returned from the
*    PtrToHand call, causing the code to display the dialogs to be skipped.
*
* d6 March 8, 1989        Suki Lee
*    Added code in PrValidate to copy the print record into the local data stroage area 
*    since the driver code works off the local copy of the print record.
* 
*    Modified status display code to use LETextBox2 instead of DrawString, so text will
*    be wrapped, especially for 320 mode.
*
*    March 9, 1989        Suki Lee
*    Modified PrPicFile to use rPage data from PrInfo subrecord instead of PrInfoPt. 
*    The application may modify rPage between pages and since PrInfoPt is designated 
*    as reserved in the reference manual, the data there may not be accurate.
*
*    Added constant values for iHRes and iVRes in landscape mode. Added code to modify
*    these values based on page orientation in CiXmetrics.
*
*    March 14, 1989       Suki Lee
*    Added initialization of two variables: ZeroPage and SCBValue in PrValidate. This is 
*    a measure to safeguard against cases where the application enters the print loop 
*    without calling PrDefault, PrStlDialog or PrJobDialog, where these variables are 
*    currently being initialized.
*    
* d7 March 29, 1989       Suki Lee
*    Modified band buffer allocation code to find MaxBlock and if it is larger than 64K,
*    we use 64K, else we use the maxblock size. This created a minor problem where an 
*    entire 8 1/2 x 11 page can fit inside of one band and the idleproc which checks for
*    cancel is called each band in the high level routines. A new routine LLDIdleProc is 
*    implemented so the idleproc can be called from the low level routines, taking care 
*    of D page swapping and proper stack clean up. This new routine also allows for 
*    cancelling of printing if there is a printer error.
*
* d8 April 11, 1989       Suki Lee
*    Added error checking in status calls. If status returns error indicating printer is
*    not available (e.g. turned off), then we avoid any further reads or writes. BRC # 
*    47474-47478.
*
* d9 April 25, 1989       Suki Lee
*    Modified InsertPaperAlert to display arrow cursor instead of restoring the cursor
*    set by the application, since some applications set the watch cursor before entering
*    the print loop.
*   
*    Bug fix: Idleproc pointer in the print record is not set up correctly with the 
*    defalut idle proc in draft mode. Added set up code in PrOpenDoc and PrPixelMap.
*
* d10 May 2, 1989         Suki Lee
*    Revert PrValidate to recalculating the whole print record each time, so applications can 
*    modifiy one field and have the rest of the record be consistent. Change code in PrOpenDoc
*    to just look at the type and version field of the print record instead of calling 
*    PrValidate. This is needed for Iduna printing.
* 
*    Bug fix: Added error checking code so that draft and PrPixelMap printing can use the
*    LLDIdleProc to cancel out print job. BRC #48936
*
* d11 May 19, 1989         Suki Lee
*    Landscape prints garbage if the buffer size is larger than the standard size. Added code 
*    to use only standard buffer if landscape is selected. BRC #48528
*
* d12 May 22, 1989         Suki Lee
*    Added code to go around a potential AppleTalk PAP bug where the system will hang trying
*    to open a connection with a printer that is offline. The printer's status is now checked
*    before making any PAP calls. BRC #47477 revisited
*
*
*    May 25, 1989          Suki Lee
*    Fixed a cut and paste error in PrPicfile where the wrong offset to the print record is 
*    used.
*
*    June 2, 1989	       Suki Lee
*    Added code to pass the newly added ClosePicture error to the application.
*
*    June 5, 1989	       Suki Lee
*    Added initialization of variable ZeroPage and SCBValue in PrOpenDoc as well, since some 
*    apps do not call anything else before the print loop. 
*
*    June 14, 1989         Mensch and Steve Glass 
*    We think that the low level print drivers can not handle having a band buffer that is not
*    a multiple of 8 rows. We feel this is the case because of the way the printer creates empty 
*    lines for the end of a band. When the height of the band is being calculated, the low 3 bits
*    are masked off the ensure a multiple of 8.
*
*-------------------------------------------------------------------------------
* Version 3.1
* d1 December 15, 1989     Suki Lee
*    AppleWorks GS had problems with printing a multipage document to an AppleTalked
*    ImageWriter. The job would hang, but not always at the same page of the job. Tim
*    Harrington helped narrow it down to an old bug in the AppleTalk Option Card. The
*    card throws away data that is not picked up by the receiver after a given amount 
*    of time. Since AppleWorks GS prints each page as a job, it ran into this timing 
*    problem. Added code in LLDStartUp to issue an async read and code in CheckPrinter
*    to retrieve data read. Also had to add provisions for direct connecting since the
*    printer and modem port drivers does nothing for an async read call.
*
* d2 January 3, 1990       Ben Koning
*    Added capability to allow mid-document imaging color table changes by listening for
*    a special type of PicComment while playing back the picture(s).  Also changed certain
*    label and macro names to stay compatible with the ever changing include files.
*    The format of the PicComment (should be done by app while recording picture) is:
*
*	PicComment Type=251
*	   word         version         0
*	   word         signature       $A55A
*	   word         colortableno    0..15
*	   word [16]    colortable
*	   long         reserved
*
* d3 January 25, 1990      Ben Koning
*    Fixed command-period bug #59501 (hitting command-period right after OK in job dialog crash).
*    PrDevClose was being called without PrDevOpen having been called.  Fixed/kludged by having a
*    flag called "IProcAbortEnable" to disable command-period action in the default idleproc until
*    LLDStartUp has returned successfully.
*
*    Added a "fix" for busy flag bug #55874 by calling DecBusyFlag in PrPicFile if Draft Mode.
*    CDAs should now work after printing in draft mode for apps which don't use event manager.
*
* d4 February 6, 1990      Ben Koning      Yet another KLUDGE
*    Added a "fix" for case in MultiScribeGS/"MegaFonts" in Better+Condensed where the green text
*    "Some Observations" would stutter vertically.  "Fixed" by commenting out two lines in the
*    MakeBuff routine in the low-level driver which are intended to save time by bypassing the
*    imaging algorithm output buffer in some cases.  This should add about 100 msec of time to
*    each head scan, causing an 8.5x11" page to print perhaps about 4 sec slower.
*
*****************************************************************

*****************************************************************
*
*	 Copyright 1986-1989
*	 Apple Computer, Inc.
*	 All Rights Reserved
*
*****************************************************************


*               Absaddr on
*               Keep   IW
;               MCOPY  iw.macros

	Print off
	include 'all.macros'
	include 'iw.macros'
	Print on

;------------------------------------------------------------
;
; Global Equates
;

US	EQU 0
FR	EQU 1
Pays	EQU US

VersionNb	EQU $0300	; Version 3.0

;------------------------------------------------------------
;
; error codes
;

PortNotOn	EQU $1302
NoPrintRecord	EQU $1303
PntrConFailed	EQU $1308

True	EQU $FFFF
False	EQU $0000

BTBuffSize	EQU 320	; the size we need the Quick Draw buffer to be
		; for Better Text is twice the scan line width 
Mem64K	EQU $FFFF	; 64 K bytes of memory

	ENTRY PrintDefault	;_PrDefault
	ENTRY PrValidate
	ENTRY PrStlDialog
	ENTRY PrJobDialog
	ENTRY PrDrvrVer
	ENTRY PrOpenDoc
	ENTRY PrCloseDoc
	ENTRY PrOpenPage
	ENTRY PrClosePage
	ENTRY PrPicFile
	ENTRY PrError	;;;;;dummy for now;;;;;;
	ENTRY PrError
	ENTRY PrSetError
	ENTRY PrChanged
	ENTRY PrPixelMap
	ENTRY PrPixelMap	;;;;;dummy for now;;;;;;;

	ENTRY PrGetPgOrientation
	ENTRY PrGetPrinterSpecs



	ENTRY LLDBitMap
	ENTRY LLDSetPenPos
	ENTRY LLDText
	ENTRY LLDBitMap
	ENTRY LLDSetPenPos
	ENTRY LLDText
	ENTRY LLDShutDown
	ENTRY LLDSetQuality
	ENTRY LLDSetColor
	ENTRY LLDStartup
	ENTRY LLDSetPageRect
	ENTRY LLDSetMode

	ENTRY Print_Test
	ENTRY OpenInfoPrepare
	ENTRY OurGetHandle
	ENTRY StartLLD
	ENTRY CloseInfo
	ENTRY NewPage
	ENTRY JobFilter
	ENTRY StyleDialog
	ENTRY JobDialog
	ENTRY StyleFilter
	ENTRY PrPrintIt
	ENTRY PrAbortCheck
	ENTRY CallIdleProc
	ENTRY LLDIdleProc
	ENTRY InsertPaperAlert
	ENTRY NoShowMessage
	ENTRY GetStatus
	ENTRY PStatus
	ENTRY iPrErr

	IMPORT INFORECT
	IMPORT ALERTTEMP320
	IMPORT ALERTTEMP640
	IMPORT EVTMODS
	IMPORT INFOSTRBUFFER
	IMPORT ERASEINFORECT
	IMPORT PRINTPROCESS
	IMPORT INFODPORT
	IMPORT INFOSTRDRAFT
	IMPORT INFOSTRPREP
	IMPORT INFOSTRPOS
	IMPORT INFOPORT
	IMPORT INFOWINDOW
	IMPORT INFORECT320
	IMPORT INFORECT640
	IMPORT INFOWIDTH320
	IMPORT INFOWIDTH640
	IMPORT EVTWHERE
	IMPORT PTRLIST
	IMPORT PP_LANDSC
	IMPORT PP_PORTRAIT
	IMPORT ASTRNUM
	IMPORT JDRB0
	IMPORT ASTRLIST
	IMPORT ARECTLIST
	IMPORT CANCELSTR
	IMPORT CANCELRECT
	IMPORT OKSTR
	IMPORT OKRECT
	IMPORT ISTRLIST
	IMPORT IPOSLIST
	IMPORT ISTRNUM
	IMPORT PIXELWIDTH
	IMPORT JISTRLIST
	IMPORT JIPOSLIST
	IMPORT JISTRNUM
	IMPORT DSTBITF2
	IMPORT DSTBITR2
	IMPORT DSTBITF1
	IMPORT DSTBITR1
	IMPORT LANDSC_R
	IMPORT PORTRAIT_R
	IMPORT PIXEL320
	IMPORT PIXEL640
	IMPORT PORTRAIT_P
	IMPORT LANDSC_P
	IMPORT EVTMSG
	IMPORT EVTWHAT
	IMPORT IWEVENTRECORD
	IMPORT IFCANCELLED
	IMPORT TOFINALVALUE
	IMPORT FROMFINALVALUE
	IMPORT COPIEFINALVALUE
	IMPORT J1STRLIST
	IMPORT J1STRNUM
	IMPORT SLASHSTR
	IMPORT NAMEPOS
	IMPORT L2
	IMPORT L1
	IMPORT JDRB10
	IMPORT JDRBO
	IMPORT JOBDTEMPLATE
	IMPORT STYLEWIDTH
	IMPORT STYLERECT
	IMPORT SCBVALUE
	IMPORT BUTTONSTATE
	IMPORT JIPosList
	IMPORT CoverOpenStr
	IMPORT OffLineStr
	IMPORT PaperJamStr
	IMPORT PaperOutStr


;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;
;
; Vector to appropriate printer driver routine based on value passed in X-Reg.
;
;
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
IWD	PROC

;-----------------------------------------------------------
;
; Header to denote new calls supported
;

	DC.W 0	; marker
	DC.W (EndPrProcList-PrProcList)/4 ; count of calls supported

	jmp (PrProcList,x)	;Vector to correct routine


PrProcList	DC.L PrintDefault	;_PrDefault
	DC.L PrValidate
	DC.L PrStlDialog
	DC.L PrJobDialog
	DC.L PrDrvrVer
	DC.L PrOpenDoc
	DC.L PrCloseDoc
	DC.L PrOpenPage
	DC.L PrClosePage
	DC.L PrPicFile
	DC.L PrError	;;;;;dummy for now;;;;;;
	DC.L PrError
	DC.L PrSetError
	DC.L PrChanged
	DC.L PrPixelMap
		; begin new calls
	DC.L PrGetPrinterSpecs
	DC.L PrGetPgOrientation
EndPrProcList

InvalidPr	rtl



	ENDP

	include 'e16.dialog'

	include 'LLD.ASM'
	include 'HLD.ASM'




	END




\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/IW/dialogdata.asm b/IIGS.601.SRC/GSToolbox/PrinterDrivers/IW/dialogdata.asm
new file mode 100644
index 0000000..309f375
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/IW/dialogdata.asm
@@ -0,0 +1 @@
+			
			
			STRING ASIS
			BLANKS OFF
			
;---------------------------------------------------------
;  ImageWriter Driver Version 3.1
;  Copyright Apple Computer, Inc. 1986-1989
;  All rights reserved.
;---------------------------------------------------------

			
			MACRO
&lab		str &string
			EXPORT &lab						; export the label
			LCLC &EIB						; declare a temporary var to hold current string setting
&EIB		SETC &SETTING('STRING') 		; put current string setting into temp
			STRING PASCAL					; Set string type to pascal.
&lab		DC.B	&string 				; make the string
			STRING &EIB 					; restore orig string settings
			MEND


			include 'e16.dialog'


US			equ 1
FR			equ 2
Pays		equ US


				IMPORT ScreenPort

DialogData		PROC EXPORT



				IF Pays=US GOTO .US
				IF Pays=FR GOTO .FR
.US 		
SlashStr		str	 '/'
namestr 		str	 'ImageWriter'
Paperstr		str	 'Paper:'
P1str			str	 'US Letter'
P2str			str	 'US Legal'
p3str			str	 'A4 Letter'
p4str			str	 'International Fanfold'
p5str			str	 'Computer Paper'
VsizeStr		str	 'Vertical Sizing:'
Vsize1Str		str	 'Normal'
VSize2Str		str	 'Condensed'
SpeStr			str	 'Printer Effects:'
Spe1str 		str	 '50% Reduction'
Spe2str 		str	 'No Gaps Between'
GapPageStr		str	 'Pages'
Orientstr		str	 'Orientation:'
Okstr			str	 'OK'
Cancelstr		str	 'Cancel'
ColorStr		str	 'Color'
releaseStr		str	 'v3.1'							
Qstr			str	 'Quality:'
q1str			str	 'Better Text'
q2str			str	 'Better Color'
q3str			str	 'Draft'
Pagestr 		str	 'Page range:'
pr1str			str	 'All'
pr2str			str	 'From:'
pr3str			str	 'To:'
copstr			str	 'Copies:'
PFeedstr		str	 'Paper Feed:'
Pf1str			str	 'Automatic'
Pf2str			str	 'Manual'

				Export	InfoStrPrep
InfoStrPrep		DC.B	EndInfoStrPrep-InfoStrPrep-1
				DC.B	'Preparing Data ...'
				DC.B	$0D
EndInfoStrPrep	;
				EXPORT	InfoStrDraft
InfoStrDraft	DC.B	EndInfoStrDraft-InfoStrDraft-1
				DC.B	'Printing in Draft mode ...'
				DC.B	$0D
EndInfoStrDraft ;
				EXPORT	PrintProcess
Printprocess	;
				EXPORT	InfoStrPrint
InfoStrPrint	DC.B	EndInfoStrPrint-InfoStrPrint-1
				DC.B	'Printing in progress ...'
				DC.B	$0D
EndInfoStrPrint ;
				GOTO .suite
.FR
SlashStr		str	 '/'
namestr 		str	 'ImageWriter'
Paperstr		str	 'Papier:'
P1str			str	 'Lettre US'
				EXPORT	P2str
P2str			DC.B	8
				DC.B	'L'
				DC.B	$8E
				DC.B	'gal US'
p3str			str	 'Continu International'
p4str			str	 'Format A4'
p5str			str	 'Papier Informatique'
VsizeStr		str	 'Vertical Sizing:'
Vsize1Str		str	 'Normal'
VSize2Str		str	 'Condensed'
SpeStr			str	 'Printer Effects'
Spe1str 		str	 'Reduction 50 %'
Spe2str 		str	 'Pas de saut'
GapPageStr		str	 'de page'
Orientstr		str	 'Orientation'
Okstr			str	 'OK'
Cancelstr		str	 'Annuler'
ColorStr		str	 'Couleur'
releaseStr		str	 'vF1-3.1'		
				EXPORT	Qstr
Qstr			DC.B	8
				DC.B	'Qualit'
				DC.B	$8E
				DC.B	':'
q1str			str	 'Superieure'		?
q2str			str	 'Normale'			?
q3str			str	 'Brouillon'
Pagestr 		str	 'Pages :'
pr1str			str	 'Toutes'
pr2str			str	 'De :'
				EXPORT	pr3str
pr3str			DC.B	1
				DC.B	$88
copstr			str	 'Copies :'
PFeedstr		str	 'Chargement :'
Pf1str			str	 'Automatique'
Pf2str			str	 'Manuel'
				EXPORT	InfoStrPrep
InfoStrPrep 	DC.B	EndInfoStrPrep-InfoStrPrep-1
				DC.B	'Preparation de l'	'impression ...',h'0D'

EndInfoStrPrep	;
				EXPORT	InfoStrDraft
InfoStrDraft	DC.B	EndInfoStrDraft-InfoStrDraft-1
				DC.B	'Impression en mode brouillon ...'
				DC.B	$0D
EndInfoStrDraft ;
				EXPORT	PrintProcess
Printprocess	;
				EXPORT	InfoStrPrint
InfoStrPrint	DC.B	EndInfoStrPrint-InfoStrPrint-1
				DC.B	'Impression en cours ...'
				DC.B	$0D
EndInfoStrPrint ;
.suite

				EXPORT	PaperOutStr
PaperOutStr		DC.B	EndPaperOutStr-PaperOutStr-1
				DC.B	'The ImageWriter is out of paper.'
				DC.B	$0D
EndPaperOutStr ;

				EXPORT	CoverOpenStr
CoverOpenStr	DC.B	EndCoverOpenStr-CoverOpenStr-1
				DC.B	'The cover of the ImageWriter is open.'
				DC.B	$0D
EndCoverOpenStr ;
				EXPORT	PaperjamStr
PaperjamStr		DC.B	EndPaperjamStr-PaperjamStr-1
				DC.B	'The paper is jammed in the ImageWriter.'
				DC.B	$0D
EndPaperjamStr ;
				EXPORT	OffLineStr
OffLineStr		DC.B	EndOffLineStr-OffLineStr-1
				DC.B	'The select switch is off on the ImageWriter.'
				DC.B	$0D
EndOffLineStr ;

				EXPORT ButtonState
buttonstate 	DS.B 28

				EXPORT IWEventRecord
				EXPORT EvtWhat
				EXPORT EvtMsg
				EXPORT EvtWhen
				EXPORT EvtWhere
				EXPORT EvtY
				EXPORT EvtX
				EXPORT EvtMods
IWeventrecord
evtwhat 		DS.B 2
evtmsg			DS.B 4
evtwhen 		DS.B 4
evtwhere
evty			DS.B 2
evtx			DS.B 2
evtmods 		DS.B 2

nullevent		equ 0
mousedown		equ 1
mouseup 		equ 2
keydown 		equ 3
autokey 		equ 5
updtevt 		equ 6
activevt		equ 8
switchevt		equ 9
deskaccevt		equ 10
deviceevt		equ 11

vr				equ	8
hr				equ	10

StyleUPLy		equ	0
StyleUPLx		equ	0
StyleLWRy		equ	145
StyleLWRx		equ	300



				EXPORT	StyleRect
StyleRect		DC.W	20,170,165,470

				EXPORT	l1
l1				DC.W	styleuply+15,styleuplx+6
				EXPORT	l2
l2				DC.W	styleuply+15,stylelwrx-6

				EXPORT	P1rect
P1rect			DC.W	styleUply+26-vr,styleUplx+72-5-hr,styleuply+28,styleUplx+250
				EXPORT	P2rect
P2rect			DC.W	styleUply+37-vr,styleUplx+72-5-hr,styleuply+39,styleUplx+250
				EXPORT	P3rect
P3rect			DC.W	styleUply+48-vr,styleUplx+72-5-hr,styleuply+50,styleUplx+250
				EXPORT	P4rect
P4rect			DC.W	styleUply+59-vr,styleUplx+72-5-hr,styleuply+61,styleUplx+250
				EXPORT	P5rect
P5rect			DC.W	styleUply+70-vr,styleUplx+72-5-hr,styleuply+72,styleUplx+250

				EXPORT	v1rect
v1rect			DC.W	styleUply+85-vr,styleUplx+25-hr,styleuply+87,styleUplx+150
				EXPORT	v2rect
v2rect			DC.W	styleUply+98-vr,styleUplx+25-hr,styleuply+100,styleUplx+150

				EXPORT	s1rect
s1rect			DC.W	styleUply+85-vr,styleUplx+158-hr,styleuply+87,styleUplx+310
				EXPORT	s2rect
s2rect		DC.W	styleUply+98-vr,styleUplx+158-hr,styleuply+100,styleUplx+310


				EXPORT	o1rect
o1rect			DC.W	styleuply+114,styleuplx+10,styleuply+143,styleuplx+40
				EXPORT	o2rect
o2rect			DC.W	styleuply+114,styleuplx+47,styleuply+143,styleuplx+77

;----------------------------------------
;
; Job Dialogs Template
;
;----------------------------------------
				EXPORT JobDTemplate
JobDTemplate	;
				DC.W	20,170,165,470		;dialogs rectangle
				DC.W	1					;visible
				DC.L	0					;Refcon
				DC.L	JDIT1				;Job dialogs item 1  template
				DC.L	JDIT2				;Job dialogs item 2  template
				DC.L	JDIT3				;Job dialogs item 3  template
				DC.L	JDIT4				;Job dialogs item 4  template
				DC.L	JDIT5				;Job dialogs item 5  template
				DC.L	JDIT6				;Job dialogs item 6  template
				DC.L	JDIT7				;Job dialogs item 7  template
				DC.L	JDIT8				;Job dialogs item 8  template
				DC.L	JDIT9				;Job dialogs item 9  template
				DC.L	JDIT10				;Job dialogs item 10 template
				DC.L	JDIT11				;Job dialogs item 11 template
				DC.L	JDIT12				;Job dialogs item 12 template
				DC.L	JDIT13				;Job dialogs item 13 template
				DC.L	0					;NIL pointer (terminator)
;----------------------------------------
;
; Job Dialog items list
;
;----------------------------------------
;
;Create the OK item
;
JDIT1	;
				DC.W	1	;OK button (default for CR)
				EXPORT	okrect
okrect			DC.W	StyleLwry-5-13,stylelwrx-65,StyleLwry-5,stylelwrx-9
				DC.W	ButtonItem
				DC.L	okstr
				DC.W	0
				DC.W	0
				DC.L	0
;
;Create CANCLE item
;
JDIT2	;
				DC.W	2	;CANCLE button
				EXPORT	Cancelrect
Cancelrect		DC.W	StyleLwry-5-13,stylelwrx-145,StyleLwry-5,stylelwrx-75
				DC.W	ButtonItem
				DC.L	cancelstr
				DC.W	0
				DC.W	0
				DC.L	0
;
;Create radio item BEST quality
;
JDIT3	;
				DC.W	3	;BEST quality
				EXPORT	q1Rect
q1Rect			DC.W	styleUply+26-vr,styleUplx+100-5-hr,styleUply+28,styleUplx+200-5
				DC.W	RadioItem
				DC.L	Q1str
				EXPORT	JDRB0
JDRB0			DC.W	0
				DC.W	1
				DC.L	0
;
;Create radio item FASTER
;
JDIT4	;
				DC.W	4	;FASTER quality
				EXPORT	q2Rect
q2Rect			DC.W	styleUply+37-vr,styleUplx+100-5-hr,styleUply+39,styleUplx+200-5
				DC.W	RadioItem
				DC.L	Q2str
				EXPORT	JDRB1
JDRB1			DC.W	0
				DC.W	1
				DC.L	0
;
;Create radio button item DRAFT
;
JDIT5	;
				DC.W	5	;DRAFT quality
				EXPORT	q3Rect
q3Rect			DC.W	styleUply+48-vr,styleUplx+100-5-hr,styleUply+50,styleUplx+200-5
				DC.W	RadioItem
				DC.L	Q3str
				EXPORT	JDRB2
JDRB2			DC.W	0
				DC.W	$1
				DC.L	0
;
;Create page range radio item ALL
;
JDIT6	;
				DC.W	6	;page range - ALL
				EXPORT	Pr1rect
Pr1rect DC.W	styleUply+70-vr,styleUplx+100-5-hr,styleUply+72,styleUplx+200-5
				DC.W	RadioItem
				DC.L	pr1str
				EXPORT	JDRB3
JDRB3			DC.W	0
				DC.W	$2
				DC.L	0
;
;Create page range (From:__ To:__) radio button item
;
JDIT7	;
				DC.W	7	;page range - from-to
				EXPORT	Pr2Rect
Pr2Rect DC.W	styleUply+84-vr,StyleUplx+100-5-hr,styleUply+86,125
				DC.W	RadioItem
				DC.L	pr2str
				EXPORT	JDRB4
JDRB4			DC.W	0
				DC.W	$2
				DC.L	0
;
;Create AUTOMATIC paper feed radio button item
;
JDIT8	;
				DC.W	8	;AUTOMATIC paper feed

				IF Pays=FR GOTO .FRPF1
				EXPORT	pf1rect
pf1rect DC.W	styleUply+112-vr,StyleUplx+100-5-hr,styleUply+114,StyleUplx+180
				GOTO .FRXPF1

.FRPF1
				EXPORT	pf1rect
pf1rect DC.W	styleUply+112-vr,StyleUplx+105-5-hr,styleUply+114,StyleUplx+185
.FRXPF1

				DC.W	RadioItem
				DC.L	pf1str
				EXPORT	JDRB5
JDRB5			DC.W	0
				DC.W	$3
				DC.L	0
;
;Create HAND FEED paper feed radio button item
;
JDIT9	;
				DC.W	9	;HAND FEED
				IF Pays=FR GOTO .FRPF2
				EXPORT	pf2rect
pf2rect DC.W	styleUply+112-vr,StyleUplx+200-5-hr,styleUply+114,StyleUplx+300
				GOTO .FRXPF2
.FRPF2

				EXPORT	pf2rect
pf2rect DC.W	styleUply+112-vr,StyleUplx+220-5-hr,styleUply+114,StyleUplx+310
.FRXPF2

				DC.W	RadioItem
				DC.L	pf2str
				EXPORT	JDRB6
JDRB6			DC.W	0
				DC.W	3
				DC.L	0

* Draw the 3 edit lines
;
;Create the COPIES: edit line item
;
JDIT10	;
				DC.W	10
				EXPORT	CopieRect
CopieRect		DC.W	87,60,87+15,60+40
				DC.W	EditLine
				DC.L	DefaultCopie
				DC.W	4
				DC.W	0
				DC.L	0
;
;Create the TO: edit line item
;
JDIT11	;
				DC.W	11
				EXPORT	ToRect
ToRect			DC.W	73,230,73+15,230+40
				DC.W	EditLine
				DC.L	DefaultTo
				DC.W	4
				DC.W	0
				DC.L	0
;
;Create the FROM edit line item
;
JDIT12	;
				DC.W	12
				EXPORT	FromRect
FromRect		DC.W	73,150,73+15,150+40
				DC.W	EditLine
				DC.L	DefaultFrom
				DC.W	4
				DC.W	0
				DC.L	0
;
;Create the COLOR check box item
;
JDIT13	;
				DC.W	13
				EXPORT	ColorRect
ColorRect		DC.W	StyleLwry-5-13,StyleUPLx+6,StyleLwry-5,StyleUPLx+6+50
				DC.W	CheckItem
				DC.L	ColorStr
				EXPORT	JDRB10
JDRB10			DC.W	0
				DC.W	0
				DC.L	0

;----------------------------------------


				EXPORT	Istrnum
Istrnum DC.W	6
				EXPORT	Istrlist
Istrlist		DC.L	releasestr
				DC.L	paperstr
				DC.L	vsizestr
				DC.L	spestr
				DC.L	gappagestr
				DC.L	Orientstr

				EXPORT	namepos
namepos DC.W	styleUPLy+13,StyleUplx+6
				EXPORT	IPosList
Iposlist	;
				EXPORT	releasepos
releasepos		DC.W	styleUPLy+13,Stylelwrx-37	;use -37 for final release, -50 for with "dx" version number 
				EXPORT	Paperpos
Paperpos		DC.W	styleUply+26,StyleUplx+6
				EXPORT	VSizepos
VSizepos		DC.W	styleUply+73,StyleUplx+6
				EXPORT	Spepos
Spepos			DC.W	styleUply+73,StyleUplx+135
				EXPORT	gappagepos
gappagepos		DC.W	styleUply+108,StyleUplx+190
				EXPORT	Orientpos
Orientpos		DC.W	styleUply+110,StyleUplx+6

				EXPORT	Astrnum
Astrnum DC.W	9
				EXPORT	Astrlist
Astrlist		DC.L	p1str
				DC.L	p2str
				DC.L	p3str
				DC.L	p4str
				DC.L	p5str
				DC.L	Vsize1str
				DC.L	Vsize2str
				DC.L	spe1str
				DC.L	spe2str

				EXPORT	ARectlist
ARectlist		DC.L	p1Rect
				DC.L	p2Rect
				DC.L	p3Rect
				DC.L	p4Rect
				DC.L	p5Rect
				DC.L	v1Rect
				DC.L	v2Rect
				DC.L	s1Rect
				DC.L	s2Rect


				DC.L	OkRect
				DC.L	CancelRect

				DC.L	Okstr
				DC.L	Cancelstr


				EXPORT PtrList
ptrList 		DS.B 4*14

Aposlist	;
				EXPORT	P1Pos
P1Pos			DC.W	styleUply+26,styleUplx+72
				EXPORT	P2Pos
P2Pos			DC.W	styleUply+37,styleUplx+72
				EXPORT	P3Pos
P3Pos			DC.W	styleUply+48,styleUplx+72
				EXPORT	P4Pos
P4Pos			DC.W	styleUply+59,styleUplx+72
				EXPORT	P5Pos
P5Pos			DC.W	styleUply+70,styleUplx+72

				EXPORT	Vsize1Pos
Vsize1Pos		DC.W	styleUply+85,styleUplx+20
				EXPORT	Vsize2Pos
Vsize2Pos		DC.W	styleUply+98,styleUplx+20

				EXPORT	Spe1Pos
Spe1Pos DC.W	styleUply+85,styleUplx+162
				EXPORT	Spe2Pos
Spe2Pos DC.W	styleUply+98,styleUplx+162

				EXPORT	OKpos
OKpos			DC.W	styleUPLy+18,Stylelwrx-50
				EXPORT	Cancelpos
Cancelpos		DC.W	styleUPLy+38,Stylelwrx-60





				EXPORT	JArectlist
JArectlist		DC.L	q1rect	0
				DC.L	q2rect	1
				DC.L	q3rect	2
				DC.L	pr1rect 3
				DC.L	pr2rect 4
				DC.L	pf1rect 5
				DC.L	pf2rect 6


				EXPORT	Jistrnum
Jistrnum		DC.W	6
				EXPORT	Jistrlist
Jistrlist		DC.L	releasestr
				DC.L	Qstr
				DC.L	pagestr
				DC.L	pr3str
				DC.L	copstr
				DC.L	pFeedstr

				EXPORT	JAstrnum
JAstrnum		DC.W	7
				EXPORT	JAstrlist
JAstrlist		DC.L	Q1str
				DC.L	Q2str
				DC.L	Q3str
				DC.L	pr1str
				DC.L	pr2str
				DC.L	pf1str
				DC.L	pf2str


				EXPORT	Jnamepos
Jnamepos		DC.W	styleUPLy+13,StyleUplx+6
				EXPORT	JIPosList
JIposlist	;
				EXPORT	Jreleasepos
Jreleasepos 	DC.W	styleUPLy+13,Stylelwrx-37	;use -37 for final release w/o "d1" version number
				EXPORT	Jqpos
Jqpos			DC.W	styleUply+26,StyleUplx+6
				EXPORT	JPagePos
JPagePos		DC.W	styleUply+59,styleUplx+6
				EXPORT	Jpr3Pos
Jpr3Pos 		DC.W	styleUply+84,styleUplx+200
				EXPORT	JcopPos
JcopPos 		DC.W	styleUply+98,styleUplx+6
				EXPORT	JPfeedPos
JPfeedPos		DC.W	styleUply+112,styleUplx+6


				EXPORT	DefaultFrom
DefaultFrom 	DC.B	0
				DC.B	' '
				EXPORT	DefaultTo
DefaultTo		DC.B	0
				DC.B	' '
				EXPORT	DefaultCopie
DefaultCopie	str 	'1'


				EXPORT	pixel320
pixel320		DC.W	26
				EXPORT	pixel640
pixel640		DC.W	52
				EXPORT 	PixelWidth
pixelwidth		DS.B 2

				EXPORT	PP_portrait
PP_portrait ;
				DC.L	portrait_p
				DC.L	screenport
				DC.L	portrait_r
				DC.L	dstbitr1
				DC.W	0
				DC.L	0

				EXPORT	dstbitr1
dstbitr1		DC.W	styleuply+116,styleuplx+12,styleuply+141,styleuplx+38+26
				EXPORT	dstbitf1
dstbitf1		DC.W	styleuply+115,styleuplx+10,styleuply+143,styleuplx+40+26
				EXPORT	portrait_p
portrait_p		DC.W	$80
				DC.L	portrait_bit
				DC.W	13
				DC.W	0,0,25,52
				EXPORT	portrait_r
portrait_r		DC.W	0,0,25,52

				EXPORT	PP_Landsc
PP_landsc	;
				DC.L	landsc_p
				DC.L	screenport
				DC.L	landsc_r
				DC.L	dstbitr2
				DC.W	0
				DC.L	0

				EXPORT	dstbitr2
dstbitr2		DC.W	styleuply+116,styleuplx+49+26,styleuply+141,styleuplx+75+52
				EXPORT	dstbitf2
dstbitf2		DC.W	styleuply+115,styleuplx+47+26,styleuply+143,styleuplx+77+52
				EXPORT	landsc_p
landsc_p		DC.W	$80
				DC.L	landsc_bit
				DC.W	13
				DC.W	0,0,25,52
				EXPORT	landsc_r
landsc_r		DC.W	0,0,25,52

				EXPORt Portrait_Bit
portrait_bit	;
				DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
				DC.B	$FF,$F0,$00,$00,$00,$00,$00,$00,$0F,$FF,$FF,$FF,$FF
				DC.B	$FF,$F0,$FF,$FF,$FF,$FF,$FF,$FF,$00,$FF,$FF,$FF,$FF
				DC.B	$FF,$F0,$FF,$FF,$FF,$F0,$0F,$FF,$0F,$0F,$FF,$FF,$FF
				DC.B	$FF,$F0,$FF,$FF,$FF,$0F,$F0,$FF,$0F,$F0,$FF,$FF,$FF
				DC.B	$FF,$F0,$FF,$FF,$FF,$0F,$F0,$FF,$00,$00,$0F,$FF,$FF
				DC.B	$FF,$F0,$FF,$FF,$FF,$F0,$0F,$FF,$FF,$FF,$0F,$FF,$FF
				DC.B	$FF,$F0,$FF,$FF,$F0,$0F,$F0,$0F,$FF,$FF,$0F,$FF,$FF
				DC.B	$FF,$F0,$FF,$FF,$0F,$FF,$FF,$F0,$FF,$FF,$0F,$FF,$FF
				DC.B	$FF,$F0,$FF,$FF,$0F,$0F,$F0,$F0,$FF,$FF,$0F,$FF,$FF
				DC.B	$FF,$F0,$FF,$FF,$0F,$0F,$F0,$F0,$FF,$FF,$0F,$FF,$FF
				DC.B	$FF,$F0,$FF,$FF,$0F,$0F,$F0,$F0,$FF,$FF,$0F,$FF,$FF
				DC.B	$FF,$F0,$FF,$FF,$0F,$0F,$F0,$F0,$FF,$FF,$0F,$FF,$FF
;				EXPORT Dummy1
;Dummy1				
				DC.B	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
				DC.B	$0F,$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$F0,$F0
				DC.B	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$F0
				DC.B	$0F,$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$F0,$F0
				DC.B	$0F,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$F0,$00
				DC.B	$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF
				DC.B	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$FF
				DC.B	$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF
				DC.B	$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF
				DC.B	$0F,$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF
				DC.B	$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF
				DC.B	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$FF

				EXPORT Landsc_Bit
landsc_bit	;
				DC.B	$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
				DC.B	$FF,$F0,$00,$00,$00,$00,$00,$00,$0F,$FF,$FF,$FF,$FF
				DC.B	$FF,$F0,$FF,$FF,$FF,$FF,$FF,$FF,$00,$FF,$FF,$FF,$FF
				DC.B	$FF,$F0,$FF,$FF,$FF,$FF,$FF,$FF,$0F,$0F,$FF,$FF,$FF
				DC.B	$FF,$F0,$00,$00,$00,$00,$FF,$FF,$0F,$F0,$FF,$FF,$FF
				DC.B	$FF,$F0,$FF,$FF,$FF,$FF,$0F,$FF,$00,$00,$0F,$FF,$FF
				DC.B	$FF,$F0,$00,$00,$00,$FF,$0F,$00,$FF,$FF,$0F,$FF,$FF
				DC.B	$FF,$F0,$FF,$FF,$FF,$FF,$F0,$FF,$0F,$FF,$0F,$FF,$FF
				DC.B	$FF,$F0,$FF,$FF,$FF,$FF,$F0,$FF,$0F,$FF,$0F,$FF,$FF
				DC.B	$FF,$F0,$00,$00,$00,$FF,$0F,$00,$FF,$FF,$0F,$FF,$FF
				DC.B	$FF,$F0,$FF,$FF,$FF,$FF,$0F,$FF,$FF,$FF,$0F,$FF,$FF
				DC.B	$FF,$F0,$00,$00,$00,$00,$FF,$FF,$FF,$FF,$0F,$FF,$FF
				DC.B	$FF,$F0,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$0F,$FF,$FF
;				EXPORT Dummy2
;Dummy2				
				DC.B	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
				DC.B	$0F,$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$F0,$F0
				DC.B	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$F0
				DC.B	$0F,$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$F0,$F0
				DC.B	$0F,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$F0,$00
				DC.B	$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF
				DC.B	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$FF
				DC.B	$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF
				DC.B	$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF
				DC.B	$0F,$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF
				DC.B	$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF
				DC.B	$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$FF

* Data for the info dialogs 640
				EXPORT	infoWidth320
infoWidth320	DC.W	300
				EXPORT	infowidth640
infowidth640	DC.W	600
				EXPORT	InfoDPort
infoDPort		DS.B 4
				EXPORT	InfoStrRect
InfoStrRect 	DC.W	10,20,20,500
				EXPORT	AbortRect
AbortRect		DC.W	90,150,150,490
				EXPORT	AbortDPort
AbortDPort		DS.B 4

				EXPORT	IfCancelled
IfCancelled 	DS.B 2
				EXPORT	StyleWidth
Stylewidth		DS.B 2
				EXPORT	SCBValue
SCBValue 		DS.B 2

				EXPORT	CopieFinalValue
CopieFinalValue DS.B 6
				EXPORT	FromFinalValue
FromFinalValue	DS.B 6
				EXPORT	ToFinalValue
ToFinalValue	DS.B 6
				EXPORT	InfoWindow
InfoWindow	;
				EXPORT	WinDef640
WinDef640	;
				DC.W	EndWDef640-WinDef640
				DC.W	%0010000000100000			; wFrame
				DC.L	0							; wTitle
				EXPORT	HdlDoc640
HdlDoc640		DC.L	0							; wRefCon
				DC.W	0,0,0,0 					; wZoom
				DC.L	0							; wColor
				DC.W	0							; wYOrigin,wXOrigin
				DC.W	0
				DC.W	0							; wDataH,wDataW
				DC.W	0
				DC.W	0							; wMaxH,wMaxW
				DC.W	0
				DC.W	0							; wScrollVer,wScrollHor
				DC.W	0
				DC.W	0							; wPageVer,wPageHor
				DC.W	0
				DC.L	0							; wInfoRefCon
				DC.W	0							; wInfoHeight
				DC.L	0							; wFrameDefProc
				DC.L	0							; wInfoDefProc
				DC.L	0							; wContDefProc
				EXPORT	InfoRect
InfoRect		DC.W	30,40,60,600
				DC.L	$FFFFFFFF					; wPlane
				DC.L	0							; wStorage

EndWDef640	;
				EXPORT	InfoStrPos
InfoStrPos		DC.W	20,20

				EXPORT	InfoStrBuffer
InfoStrBuffer	DS.B 100

				EXPORT	InfoRect640
InfoRect640		DC.W	8,10,35,560

				EXPORT	InfoRect320
InfoRect320		DC.W	8,5,35,280

;------------------------------------------------------------
;
; data used by manual feed alert box
;

;------------------------------------------------------------
;
; 640 mode
;
				EXPORT	alerttemp640
alerttemp640	DC.W	30,40,75,600	; bounds rect
				DC.W	1301	; id
				DC.B	$80
				DC.B	$80
				DC.B	$80
				DC.B	$80
				DC.L	item1_640	; Continue
				DC.L	item2_640	; Cancel
				DC.L	item3_640	; text
				DC.L	0000


				EXPORT	item1_640
item1_640		DC.W	1	; id
				DC.W	8,440,8+13,530	; bounds rect for button
				DC.W	ButtonItem	; type
				DC.L	But1	; item descriptor - "Continue"
				DC.W	00	; item value
				DC.W	0	; item flag
				DC.L	0	; item color

				EXPORT	item2_640
item2_640		DC.W	2	; id
				DC.W	27,440,27+13,530	; bounds rect for button
				DC.W	ButtonItem	; type
				DC.L	But2	; item descriptor - "Cancel"
				DC.W	00	; item value
				DC.W	0	; item flag
				DC.L	0	; item color



				EXPORT	Msg1_640
Msg1_640		DC.B	$0D
				DC.B	'Please insert the next sheet of paper into the'
				DC.B	$0D
				DC.B	'ImageWriter, then click continue.'
Len_Msg1_640	equ *-Msg1_640


				EXPORT	item3_640
item3_640		DC.W	3	; id
				DC.W	3,35,43,400 				; bounds rect for text
				DC.W	ItemDisable+LongStatText	; type
				DC.L	Msg1_640					; item descriptor
				DC.W	Len_Msg1_640				; item value
				DC.W	0							; item flag
				DC.L	0							; item color

But1			str 'Continue'
But2			str 'Cancel'

;------------------------------------------------------------
;
; 320 mode
;
				EXPORT	alerttemp320
alerttemp320	DC.W	30,10,95,310				; bounds rect
				DC.W	1301						; id
				DC.B	$80
				DC.B	$80
				DC.B	$80
				DC.B	$80
				DC.L	item1_320					; Continue
				DC.L	item2_320					; Cancel
				DC.L	item3_320					; text
				DC.L	0000


				EXPORT	item1_320
item1_320		DC.W	1	; id
				DC.W	27,215,27+13,285			; bounds rect for button
				DC.W	ButtonItem					; type
				DC.L	But1						; item descriptor - "Continue"
				DC.W	00							; item value
				DC.W	0							; item flag
				DC.L	0							; item color

				EXPORT	item2_320
item2_320		DC.W	2							; id
				DC.W	45,215,45+13,285			; bounds rect for button
				DC.W	ButtonItem					; type
				DC.L	But2						; item descriptor - "Cancel"
				DC.W	00							; item value
				DC.W	0							; item flag
				DC.L	0							; item color



				EXPORT	Msg1_320
Msg1_320		DC.B	$0D
				DC.B	'Please insert the next'
				DC.B	$0D
				DC.B	'sheet of paper into the'
				DC.B	$0D
				DC.B	'ImageWriter, then click'
				DC.B	$0D
				DC.B	'Continue.'
Len_Msg1_320	equ *-Msg1_320


				EXPORT	item3_320
item3_320		DC.W	3							; id
				DC.W	3,15,63,225 				; bounds rect for text
				DC.W	ItemDisable+LongStatText	; type
				DC.L	Msg1_320					; item descriptor
				DC.W	Len_Msg1_320				; item value
				DC.W	0							; item flag
				DC.L	0							; item color



	ENDP


	END

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/IW/hld.asm b/IIGS.601.SRC/GSToolbox/PrinterDrivers/IW/hld.asm
new file mode 100644
index 0000000..9d5835e
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/IW/hld.asm
@@ -0,0 +1 @@
+* high level
;    DynamicExits


;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;
; Dynamic Exits
;
;
; Each dynamic exit	takes 2 RTS and moves them some number of bytes up the
; stack.
;
;------------------------------------------------------------------------------
;-----------------------------------------------------------------------------

DynamicExits	PROC EXPORT
	EXPORT exit20
exit20
	tax
	lda 5,s
	sta 25,s
	lda 3,s
	sta 23,s
	lda 1,s
	sta 21,s
	tsc
	clc
	adc #20
	tcs
	txa
	brl exit0

	EXPORT Exit16
Exit16
	tax
	lda 5,s
	sta 21,s
	lda 3,s
	sta 19,s
	lda 1,s
	sta 17,s
	tsc
	clc
	adc #16
	tcs
	txa
	brl Exit0

	EXPORT Exit14
Exit14
	tax
	lda 5,s
	sta 19,s
	lda 3,s
	sta 17,s
	lda 1,s
	sta 15,s
	tsc
	clc
	adc #14
	tcs
	txa
	bra Exit0

	EXPORT Exit12
Exit12
	tax
	lda 5,s
	sta 17,s
	lda 3,s
	sta 15,s
	lda 1,s
	sta 13,s
	tsc
	clc
	adc #12
	tcs
	txa
	bra Exit0



	EXPORT Exit10
Exit10
	tax
	lda 5,s
	sta 15,s
	lda 3,s
	sta 13,s
	lda 1,s
	sta 11,s
	pla
	pla
	pla
	pla
	pla
	txa
	bra exit0


	EXPORT Exit8
Exit8
	tax
	lda 5,s
	sta 13,s
	lda 3,s
	sta 11,s
	lda 1,s
	sta 9,s
	pla
	pla
	pla
	pla
	txa
	bra Exit0



	EXPORT Exit6
Exit6
	tax
	lda 5,s
	sta 11,s
	lda 3,s
	sta 9,s
	lda 1,s
	sta 7,s
	pla
	pla
	pla
	txa
	bra Exit0


	EXPORT Exit4
Exit4
	tax
	lda 5,s
	sta 9,s
	lda 3,s
	sta 7,s
	lda 1,s
	sta 5,s
	pla
	pla
	txa
	bra Exit0


	EXPORT Exit2
Exit2
	tax
	lda 5,s
	sta 7,s
	lda 3,s
	sta 5,s
	lda 1,s
	sta 3,s
	pla
	txa



	EXPORT Exit0
Exit0
	cmp #1
	rtl




	ENDP




;-----------------------------------------------------------
;
; PortOffset
;
; This is the offset to fields in the grafport.
;
	DSECT 0
o_PortSCB	WORD
o_ImageRef	LONG
o_Width	WORD
o_BoundsRect	BLOCK 8

o_PortRect	BLOCK 8
o_ClipRgn	LONG
o_VisRgn	LONG

o_BkPat	BLOCK 32

o_PnLoc	BLOCK 4
o_PnSize	BLOCK 4
o_PnMode	WORD
o_PnPat	BLOCK 32
o_PnMask	BLOCK 8
o_PnVis	WORD

o_Font	LONG
o_FontID	LONG
o_FontFlags	WORD
o_TxSize	WORD
o_TxFace	WORD
o_TxMode	WORD
o_SpExtra	LONG
o_ChExtra	LONG
o_FGColor	WORD
o_BGColor	WORD

o_PicSave	LONG
o_RgnSave	LONG
o_PolySave	LONG
o_GrafProcs	LONG

o_ArcRot	WORD

o_UserField	LONG
o_SysField	LONG

PortSize	DSectSize



;   ZP Equates

;------------------------------------------------------------------------------
;
; Global and Zero Page Equates
;
;------------------------------------------------------------------------------


Temp1	equ 0	Temp values to dereference easily
Temp2	equ temp1+4	4
hPicList	equ temp2+4	a
pPicList	equ hPicList+4	e
Ourport	equ pPicList+4	12
hOurport	equ OurPort+2	14
hNewPic	equ hOurport+4	18
ourStatus	equ hNewPic+4	1c
hStatus	equ ourStatus+2	1e
hport	equ hStatus+4	22
UserId	equ hPort+4	26
hscreenport	equ userId+2	28
pscreenport	equ hscreenport+4	2c
hprbuf	equ pscreenport+4	30
pprbuf	equ hprbuf+4	34

PZ_PrStatus	equ $C0
PZ_pPrPort	equ PZ_PrStatus+4
PZ_hPrint	equ PZ_pPrPort+4

TPrintsize	equ 140
StatRecSize	equ 28


* Error Codes

noErr	equ 0
iIOAbort	equ -27
iMemFullErr	equ -108
iPrAbort	equ 128




;    PrtRecord.equ


*****************************
*	        *
* PrtRecordEqu	        *
*	        *
* Current Rev: Nov.	1987    *
*	        *
*****************************

Top	equ 0
Left	equ 2
Bottom	equ 4
Right	equ 6


* offset for the TPrint record length =	140 bytes

iPrVersion	equ 0	Integer    Printing	manager version number
prInfo	equ 2	subrecord  Printer Info Subrecord
rPaper	equ 16	Rect
prStl	equ 24	SubRecord
prInfoPT	equ 42	SubRecord
prXInfo	equ 56	SubRecord
prJob	equ 80	SubRecord
printx	equ 100	Array[1..19] of integer (38 bytes)

* prInfo subrecord length = 14 bytes

idev	equ 0	Integer
iVRes	equ 2	Integer
iHRes	equ 4	Integer
rPage	equ 6	Rect

* iDev values

iDevIW	equ 1	ImageWriter I or II
iDevLQ	equ 2	ImageWriter LQ
iDevLW	equ 3	LaserWriter
iDevEpson	equ 4	Epson

* Printer Specs
CantDetermine	equ 0
MonochromeOnly	equ 1
ColorCapable	equ 2

* TPrJob subrecord length = 20 bytes

iFstPage	equ 0	Integer
iLstPage	equ 2	Integer
iCopies	equ 4	Integer
bjDocLoop	equ 6	Signed byte
fFromUsr	equ 7	signed byte
pIdleProc	equ 8	Long address
pFileName	equ 12	Long address
iFileVol	equ 16	Integer          ??? Unit number ???
bFileVers	equ 18	signed byte
bJobX	equ 19	signed byte        internal

* bjDocLoop values

bDraftLoop	equ 0
bSpoolLoop	equ 128

* TPrStl subrecord info length = 18 bytes

wDev	equ 0	Integer
iPageV	equ 2	nombres de points par page
iPageH	equ 4
bPort	equ 6	Refnum
feed	equ 8
PaperType	equ 10
CRwidth	equ 12

* valeur du feed
feedcut	equ 0
feedfanFold	equ 1

* values linked to wDev
f0	equ 1	hires
f1	equ 2	portrait
f2	equ 4	double vertical density
f3	equ 8	2x zoom
f4	equ 16	scroll
f5	equ 32	color/bw
f6	equ 64	Gap

* TprXInfo subrecord info length = 24 bytes

iRowBytes	equ 0	Integer
iBandV	equ 2	Integer
iBandH	equ 4	Integer
iDevBytes	equ 6	Integer
ibands	equ 8	Integer

bPatScale	equ 10	byte
bULThick	equ 11	byte
bULOffset	equ 12	byte
bULShadow	equ 13	byte
scan	equ 14	tscan
bXInfoX	equ 16	reserved
SCBList	equ 18	pointer to a list of modes.

scanTB	equ 0
scanBT	equ 1
scanLR	equ 2
scanRL	equ 3

* TPrStatus record length = 28 bytes

iTotPages	equ 0
iCurpage	equ 2
iTotCopies	equ 4
iCurCopy	equ 6
iTotBands	equ 8
iCurBand	equ 10
fPgDirty	equ 12
fImaging	equ 14
ShPrint	equ 16
pPrPort	equ 20
hPic	equ 24



;    PrtRecord.Dflt	;Default print record

*****************************
*	        *
* PrtRecordDflt	        *
*	        *
* Current Rev: Nov 1987     *
*	        *
*****************************


PrtRecordDflt	PROC EXPORT

	Export hPrint_test
hPrint_test	DC.L pPrint_test
	Export pPrint_test
pPrint_test	DC.L Print_test

	EXPORT PRINT_TEST
Print_test

* offset for the TPrint record length =	140 bytes

	DC.B $03,$00	*iPrVersion     equ	 0

*prInfo         equ	 2	    subrecord  Printer Info Subrecord
* prInfo subrecord length = 14 bytes
	if  LQ=1	goto .notimagewriter1
	DC.W iDevIW	*idev           equ	 0
	goto .notlq1

.notimagewriter1
	DC.W iDevLQ	*idev           equ	 0
.notlq1

	DC.W 36	*iVRes          equ	 2
	DC.W 80	*iHRes          equ	 4
	DC.W 0,0,396,640	*rPage $$$$$    equ	 6
	DC.W -36,-20,752,660 *rPaper         equ  16


*		    *prStl	equ  24       SubRecord


* TPrStl subrecord info length = 18 bytes
;
; wDev is set initially to be normal quality, portrait, normal vertical
; density, no reduction, B/W, and with gap.
;
	DC.W f1+f2+f3+f6	wDev            equ	0
	DC.W 1320	iPageV          equ	2
	DC.W 1020	iPageH          equ	4
	DC.W 0	bPort           equ	6
	DC.W 1	feed            equ	8
	DC.W 0	PaperType       equ	10
	DC.W 960	CRwidth         equ	12
	DC.W 0	reserved
	DC.W 0

*prInfoPT       equ	 42       SubRecord
	if  LQ=1	goto .notimagewriter2
	DC.W iDevIW	*idev           equ	 0
	goto .notlq2

.notimagewriter2
	DC.W iDevLQ	*idev           equ	 0
.notlq2
	DC.W 36	*iVRes          equ	 2
	DC.W 80	*iHRes          equ	 4
	DC.W 0,0,396,640	*rPage          equ	 6


*prXInfo        equ	 56       SubRecord

	DC.W 80	iRowBytes       equ	0
	DC.W 32	iBandV          equ	2
	DC.W 640	iBandH          equ	4
	DC.W 10240	iDevBytes       equ	6
	DC.W 12	ibands          equ	8
	DC.B 0	bPatScale       equ	10
	DC.B 1	bULThick        equ	11
	DC.B 1	bULOffset       equ	12
	DC.B 1	bULShadow       equ	13
	DC.B 0	scan            equ	14
	DC.B 0	bXInfoX         equ	16
	DCB.B 8,0	reserved


*prJob          equ	 80       SubRecord
* TPrJob subrecord length = 20 bytes

	DC.W 1	iFstPage        equ	0
	DC.W 9999	iLstPage        equ	2
	DC.W 1	iCopies         equ	4
	DC.B $80	bjDocLoop       equ	6
	DC.B 1	fFromUsr        equ	7
	DC.L 0	pIdleProc       equ	8
	DC.L 0	pFileName       equ	12
	DC.W 0	iFileVol        equ	16
	DC.B 0	bFileVers       equ	18
	DC.B 0	bJobX           equ	19



*printx         equ	 100      Array[1..19] of integer (38 bytes)

	DC.W 0	plus two reserved bytes
	DC.W 0
	DC.W 0
	DC.W 0
	DC.W 0
	DC.W 0
	DC.W 0
	DC.W 0
	DC.W 0
	DC.W 0
	DC.W 0
	DC.W 0
	DC.W 0
	DC.W 0
	DC.W 0
	DC.W 0
	DC.W 0
	DC.W 0
	DC.W 0
	DC.W 0

*TPrintsize     equ	 140

	Export Gap
Gap	DC.W 0
	DC.W 60

	Export PortVres
PortVres	DC.W 36

	Export PortHres
PortHres	DC.W 40
	DC.W 80

	Export LandVres
LandVres	DC.W 40

	Export LandHres
LandHres	DC.W 36
	DC.W 72

	Export PaperVsize
PaperVsize	DC.W 1320
	DC.W 1680
	DC.W 1400
	DC.W 1440

	Export PaperHsize
PaperHsize	DC.W 1020
	DC.W 1020
	DC.W 990
	DC.W 990

	Export CarriageWidth
CarriageWidth	DC.W 960
	DC.W 960
	DC.W 960
	DC.W 960

* US Letter/640 portrait gap:	    36 80 0 0 378 640  -9 -20 387 660
* US Letter/640 landscape gap:	    40 72 0 0 320 756 -10 -18 330 774


	ENDP




;    Maindata

*****************************
*	        *
* MainData	        *
*	        *
* Current Rev: Nov.	1987    *
*	        *
*****************************
MainData	PROC EXPORT

   	export IProcAbortEnable	;Command-Period Bug Fix - Ben 1/25/90
IProcAbortEnable 	dc.w 0

	Export ZeroPage
ZeroPage	DS.B 2
	Export iPrErr
iPrErr	DS.B 2
	Export iPageNum
iPageNum	DS.B 2
	Export PicListCount
PicListCount	DS.B 2	; count of pages used in piclist 
	Export iDocPage
iDocPage	DS.B 2
	Export Method
Method	DS.B 2
	Export hPrint
hprint	DS.B 140	TPrintsize
	Export rBand
rBand	DS.B 8	rect
	Export LinesLeftOnPage
LinesLeftOnPage	DS.B 2	; # of lines left to be printed
	Export LinesPerPage
LinesPerPage	DS.B 2	; total # of lines on each page
	Export resolution
resolution	DS.B 2
	Export MainUserID
MainUserID	DS.B 2
	Export BandPort
BandPort	DS.B portsize
	Export ScreenPort
ScreenPort	DS.B portsize
	Export OurStatusRecord
OurStatusRecord	DS.B StatRecSize
;
; flag to indicated	if status or progress messages can be displayed, set to
; false by PrPixelMap since it doesn't put up a window
;
	EXPORT NoShowMessage
NoShowMessage	DS.B 2

	EXPORT PStatus
PStatus	DS.B 2	; printer status: 0	= OK

	EXPORT StatusError
StatusError	DS.B 2	; error returned from status call

	EXPORT CursorAd
CursorAd	DS.B 4
	
	EXPORT StackLoc	; used in LLDIdleProc to keep track of stack
StackLoc	DS.B 2	

	Export BandLoc
BandLoc	DS.B 20

	Export RectSize1
RectSize1	DC.W 0,0,$10,$10
	Export RectSize2
RectSize2	DC.W 0,0,$20,$20

	Export SizingRect
SizingRect	DS.B 8

	Export hugeRect
hugeRect	DC.W 0,0,16382,16382
* you'd better not to be outside this hugeRect !!!

	Export PPParms
PPParms	DC.L BandPort
	DC.L ScreenPort
	DC.L BandLoc+8
	DC.L destpoint
	DC.W 0	; PenCopy
	DC.W 0	; maskhandle
	DC.W 0

	Export destpoint
destpoint	DC.W 0,0,32,320	home


	Export Pt1
Pt1	DC.W 20,25
	Export Pt2
Pt2	DC.W 110,60
	Export Pt3
Pt3	DC.W 5,210

	if  LQ=1	goto .notimagewriter3
	EXPORT Printer_name
Printer_name	str '='
	str 'ImageWriter'
	str '*'
	goto .notlq3

.notimagewriter3

	EXPORT Printer_name
Printer_name	str '='
	str 'LQ'
	str '*'
.notlq3

	Export TESTRECT
TESTRECT	DC.W 15,20,100,200

	Export white
white	DC.W $ffff
	DC.W $ffff
	DC.W $ffff
	DC.W $ffff
	DC.W $ffff
	DC.W $ffff
	DC.W $ffff
	DC.W $ffff
	DC.W $ffff
	DC.W $ffff
	DC.W $ffff
	DC.W $ffff
	DC.W $ffff
	DC.W $ffff
	DC.W $ffff
	DC.W $ffff

	Export LLD_PaperRect
LLD_PaperRect	DS.B 8

	ENDP

;    ErrorCalls.ASM	;_PrError, _PrSetError

;*****************************************************************************
;*****************************************************************************
;
;  NAME:        PrError
;
;  PURPOSE:  High level printer routine	"_PrError" which returns last error
;               that has occured (iPrErr).
;
;  PASSED:      (None)
;
;  RETURNED:    LastError	WORD, last error that occured.
;
;*****************************************************************************
;*****************************************************************************

PrError	PROC EXPORT

	DefineStack
* iPrErr
* parameters
* error value

Error_DPage	word 0
Error_BReg	byte 0
Error_rtl1	block 3
Error_rtl2	block 3
Error_Value	word 0

	phd
	tcd
	phb
	phk
	plb
	lda iPrErr	;get the error value
	sta Error_Value,s	;return it on the stack
	lda #0
	plb
	pld
	jmp exit0

;*****************************************************************************
;*****************************************************************************
;
;  NAME:        PrSetError
;
;  PURPOSE:  High level printer routine	"_PrSetError" which	sets the error
;               value (iPrErr).
;
;  PASSED:      ErrorNumber	WORD, error number to be saved.
;
;  RETURNED:    (NONE)
;
;*****************************************************************************
;*****************************************************************************

	EXPORT PrSetError
PrSetError
* parameters
* error value

	DefineStack
SetError_DPage	word 0
SetError_BReg	byte 0
SetError_rtl1	block 3
SetError_rtl2	block 3
SetError_value	word 0

	phd
	tcd
	phb
	phk
	plb
	lda SetError_value,s ;get the passed error value
	sta iPrErr	;save it at iPrErr
	lda #0
	plb
	pld
	jmp exit2

	ENDP

;*****************************************************************************
;*****************************************************************************
;
;  NAME:        PrChanged
;
;  PURPOSE:  This routine calls the port driver with the name and type
;            of this printer (IMAGEWRITER).
;
;  PASSED:      <None>
;
;  RETURNED:    (NONE)
;
;*****************************************************************************
;*****************************************************************************
PrChanged	PROC EXPORT

	phd
	phb
	phk
	plb
	tcd
	pushlong #Printer_Name
	_PrDevPrChanged
	plb
	pld
	jmp exit0

	ENDP



;    DraftProcs


;******************************************************************************
;******************************************************************************
;**			                 **
;**			                 **
;**             I M	M E D I A T E   M O	D E  P R O C S.	                 **
;**			                 **
;**			                 **
;******************************************************************************
;******************************************************************************

Draftprocs	PROC EXPORT
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;
;  Standard Pixel Procedure (Prints Pixel Maps)
;
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
	EXPORT Pixel
Pixel

;----------------------------------------------------------------------
;
; QuickDraw II's zeropage equates
;

QdPort	equ $24
SrcPixelMapRef	equ $CE	; ptr to src pixel map
SrcWidth	equ $D2	; width of src pixel map
SrcBounds	equ $D4	; bounds rect of src pixel map
SrcRect	equ $DC
DestRect	equ $1C

DrawVerb	equ $38
TextPtr	equ $da
textLength	equ $d8
chartodraw	equ $d6


	phb
	phk
	plb

	lda iPrErr
	beq Continue
	brl ExitPixel

;----------------------------------------------------------------------
;
; Gets information about the source pixel map from QD's zero page.
;

Continue		;

	lda [QdPort]	; SCB
	sta pixelLoc
	lda srcPixelMapRef	; pointer to the pixel map
	sta pixelLoc+2
	lda srcPixelMapRef+2
	sta pixelLoc+4

	lda SrcWidth	; width of pixel map
	sta pixelLoc+6

	ldx #6	; bounds rect
moveBounds	lda srcBounds,x
	sta PixelLoc+8,x
	dex
	dex
	bpl moveBounds

	PushWord #0	; Result
	PushWord #0	; bank address of zero page
	tdc	; transfer direct page into acc
	clc
	adc #srcBounds	; get actual address of srcBounds
	pha
	PushWord #0	; bank address of zero page
	tdc	; transfer direct page into acc
	clc
	adc #srcRect	; get actual address of srcRect
	pha
	PushLong #PixelRect	; intersected rect goes here
	_SectRect
	pla
	beq ExitPixel	; if false, no intersection

;---------------------------------------------------------------
;
; Look at the source rect.  If its upper/left corner is 0,0
; then no adjustment is necessary.  If it is not 0,0, we must
; adjust the pointer to the pixel map so that it points to
; the first pixel in the source rect.
;
; Note that this scheme does not work with source rects that
; do not have the first pixel to draw as the first pixel in
; a byte.
;
	lda PixelRect
	sec
	sbc PixelLoc+8
	beq NoAdjustmentY

	pha	; space for result
	pha
	pha	; Top of src rect
	PushWord PixelLoc+6	; width
	_Multiply
	pla
	clc
	adc PixelLoc+2
	sta PixelLoc+2
	pla
	adc PixelLoc+4
	sta PixelLoc+4

NoAdjustmentY		;
	lda PixelRect+2
	sec
	sbc PixelLoc+10
	beq NoAdjustmentX

	lsr a
	bit PixelLoc-1
	bpl ModeWas320
	lsr a
ModeWas320	clc
	adc PixelLoc+2
	sta PixelLoc+2
	bcc NoCarryHere
	inc PixelLoc+4
NoCarryHere		;
NoAdjustmentX		;

	lda PixelRect
	sta PixelLoc+8
	lda PixelRect+2
	sta PixelLoc+10
	lda PixelRect+4
	sta PixelLoc+12
	lda PixelRect+6
	sta PixelLoc+14

;------------------------------------------------------------
;
; Call LLDBitMap using the adjusted (if	necessary) values in
; PixelLoc and PixelRect.
;

	pushlong #PixelLoc	; source Loc info
	pushlong #PixelRect	; source rect
	pushword MainUserID
	jsl LLDBitmap

	lda #0
ExitPixel	cmp #1
	plb
	rtl

PixelLoc	DS.B 16	; changed from 8 to	16 by Suki 6/1/87
PixelRect	DS.B 8

;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;
; _StdText Procedure (Prints Standard Text)
;
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------

	EXPORT DraftText
DraftText

	phb	;save data bank reg. on stack
	phk	;get program bank reg.
	plb	;use as data bank reg.

	lda iPrErr
	beq Continue1
	brl ExitText

Continue1	pushlong #PenPos
	_GetPen	;current pen pos. -> PenPos

* here we move the printer head to penpos
	asl PenPos

	lda hPrint+prStl+wdev
	and #f2	; condensed?
	beq By2Only	; yes, skip the next multiply
	asl PenPos
* I think PenPos is	in 144 th/inch vertically.

By2Only	PushLong PenPos
	pushword MainUserID
	jsl LLDSetPenPos

	PushWord #0	;space for textwidth
;		;(for call to _TextWidth)

	lda DrawVerb	;get the DrawVerb
	beq DoCar	;if DrawVerb=0 then	DoCar

	cmp #1
	beq dotext2	;if DrawVerb=1 then	DoText2

;
;We get here if it's a "C" string (DrawVerb=2)
;
DoCstring		;	        ; Cstrings are handled differently
	sep #$20	; since the string is terminated
	longa off	; by a 0 and no length is kept

;Search down through string looking for	terminator to calculate length
	ldy #0
KeepLooking	lda [TextPtr],y
	beq TheEnd
	iny
	bra KeepLooking
TheEnd	rep #$20
	longa on
	lda TextPtr+2
	pha	;push the pointer to string
	lda Textptr
	pha
	phy	;push the length of	string
	bra common

;
;We get here if it's just one character (DrawVerb=0)
;
DoCar		;
	pushword #0
	tdc
	clc
	adc #chartodraw	;calculate addr. of	char.
	pha	;push addr. of character
	Pushword #1	;push length of one	char.
	bra common

;
;We get here if it's a string of text (DrawVerb=1)
;
DoText2		;
	lda TextPtr+2
	pha	;push pointer to the string
	lda Textptr
	pha
	lda textLength
	pha	;push the strings length

common	lda 5,s	; Dup the last 3 words on the
	pha	; stack to be used with TextWidth
	lda 5,s
	pha
	lda 5,s
	pha
* here we send the text on the printer
	pushword MainUserID

;-----------------------------------------------------------------------
;
; The stack should look like this at this point:
;        ...
;        00 (result	space) --
;        TextPtr	        |   parameters for TextWidth
;        length	        --
;        TextPtr	        --
;        length	        |   parameters for PrText
;        UserID	        --
; sp ->

	jsl LLDText	;print the text

	_TextWidth	;get the texts width (DH)

	Pushword #0	;set (DV)=0
	_move	;move current pen location

	lda #0	;return with no errors
ExitText	cmp #1
	plb	;restore data bank
	rtl

PenPos	DS.B 4


	ENDP



;
;    Metrics	  ;_PrDefault, _PrValidate, _PrStlDialog
;		;_PrJobDialog

metrics	PROC EXPORT

;*****************************************************************************
;*****************************************************************************
;
;  NAME:        PrDefault
;
;  PURPOSE:  High level printer routine	"_PrDefault" which fills the fields
;               of the specified print record with default values for this
;               particular printer.
;
;  PASSED:      PrintRecordHandle	LONG, Handle to print record.
;
;  RETURNED:    (None)
;
;*****************************************************************************
;*****************************************************************************
	EXPORT PrDefault
PrDefault
	EXPORT PrintDefault	;alias for PrDefault
PrintDefault
* parameters
* hprint
	DefineStack
Default_DPage	word 0
Default_BReg	byte 0
Default_rtl1	block 3
Default_rtl2	block 3
Default_hprint	long 0

	phd
	tcd
	phb
	phk
	plb
	sta ZeroPage

	pha
	_GetMasterSCB	;get the SCB
	pla
	sta SCBValue	;save SCB

;See if user passed	a valid handle
	lda Default_hPrint,s
	ora Default_hPrint+2,s
	bne notNIL
;
;We arrive here if an invalid handle, we must flag as an error
;
	lda #NoPrintRecord
	bra Exit

notNil		;
*		read the handle
;
;Copy the default print record "Print_test" to internal hprint buffer
;
;
; Transfer the print record to the internal print record,
; this is necessary	because CiXmetrics expects the print
; record in hprint
;
	pushlong #Print_test
	pushlong #hprint
	pushlong #TPrintsize
	_blockmove

	jsr CiXmetrics	;set metrics from defaults

;
;Dereference the "PrintRecordHandle" that was passed to Temp1
;
	lda Default_hPrint,s
	sta temp1
	lda Default_hPrint+2,s
	sta Temp1+2

	pushlong #hprint	; moves good values	into
	pushlong Temp1	; application's print record
	pushlong #TPrintSize
	_PtrToHand
	bcs Exit	; memory manager error

	lda #$0000
exit	plb
	pld
	jmp exit4

;*****************************************************************************
;*****************************************************************************
;
;  NAME:        PrValidate
;
;  PURPOSE:  High level printer routine	"_PrValidate" which	checks the
;               specified print record for compatibility with the printer.
;               If the print record is valid, it returns FALSE, and if it
;               is invalid, it returns TRUE and adjusts the	print record
;               values to the defaults.
;
;  PASSED:      PrintRecordHandle	LONG, Handle to the	print record.
;
;  RETURNED:    ChangeFlag	WORD, Boolean.
;
;*****************************************************************************
;*****************************************************************************


	EXPORT PrValidate
PrValidate
* parameters
* results
* hPrint

	DefineStack
Validate_DPage	word 0	;Saved D-Page
Validate_BReg	byte 0	;Saved B-Reg.
Validate_rtl1	block 3
Validate_rtl2	block 3
Validate_hPrint	long 0	;Passed print record handle
Validate_Result	word 0	;returned changeflag

	phd	;save the d page reg.
	tcd
	phb
	phk
	plb
	sta ZeroPage

	pha
	_GetMasterSCB	;get the SCB
	pla
	sta SCBValue	;save SCB

	lda #False	; assume no change to print
	sta Validate_Result,s ; record at start

	lda Validate_hPrint,s ; get the handle off the stack
	sta temp1	; and put into a temp location
	lda Validate_hPrint+2,s
	sta Temp1+2

	PushLong Temp1	; put in our local area
	pushlong #hPrint
	PushLong #TPrintSize
	_HandToPtr

;-----------------------------------------------------------------
;
; Test if correct printer type (1 = ImageWriter, 2 = IW LQ,	3 = LaserWriter,
; 4 = Epson) and correct version number.
;
	lda hPrint+prInfo+idev

	if  LQ=1	goto .notimagewriter4
	cmp #iDevIW	; this is ImageWriter driver
	goto .notlq4

.notimagewriter4
	cmp #iDevLQ	; this is ImageWriter LQ driver
.notlq4

	bne WrongType
	lda hprint+iPrVersion ; check if correct version
	xba	; swap since hi-lo bytes are
	cmp #VersionNb	; swapped during lda
	beq GoodType

WrongType	pushlong #Print_test	; move default values in
	pushlong #hprint
	pushlong #TPrintSize
	_blockmove

	lda #True	; set result to reflect a
	sta Validate_Result,s ; change in print	record
	
GoodType		;
	jsr CiXmetrics

	pushlong #hprint
	pushlong Temp1
	pushlong #TPrintSize
	_PtrToHand

	lda #0
ErrorExit	plb
	pld
	jmp exit4

;*****************************************************************************
;*****************************************************************************
;
;  NAME:        PrStlDialog
;
;  PURPOSE:  High level printer routine	"_PrStlDialog", which performs a
;               style dialog with the user. The initial settings are taken
;               from the print record.	If the user confirms the dialog, the
;               results are saved in the print record and "_PrValidate" is
;               called and the routine returns TRUE.  If not, the print record
;               is left unchanged and returns FALSE.
;
;  PASSED:      PrintRecordHandle	LONG, Handle to the	print record.
;
;  RETURNED:    ConfirmFlag	WORD, Boolean.
;
;*****************************************************************************
;*****************************************************************************

* buttonstate for Style
* +0    US Letter		Default
* +2*1  US Legal
* +2*2  Computer Paper
* +2*3  A4 Letter
* +2*4  International Fanfold
* +2*5  Condensed Vsizing
* +2*6  50% reduction
* +2*7  No Gaps Between Pages
* +2*8  Portrait
* +2*9  Landscape
* +2*10 Normal Vsizing

	EXPORT PrStlDialog
PrStlDialog
* parameters
* results
* hPrint

	DefineStack
StlDialog_DPage	word 0
StlDialog_BReg	byte 0
StlDialog_rtl1	block 3
StlDialog_rtl2	block 3
StlDialog_hPrint	long 0	;PrintRecordHandle
StlDialog_result	word 0	;ConfirmFlag results

	phd
	tcd
	phb
	phk
	plb
	sta ZeroPage

;Copy the passed "PrintRecordHandle" to	PZ_hprint and lock it
	lda StlDialog_hPrint,s
	sta PZ_hprint
	lda StlDialog_hPrint+2,s
	sta PZ_hprint+2
	pushlong PZ_hprint
	_hlock
	_IWerror
;
; call PrValidate to check if printer type is same
;
	PushWord #0
	PushLong PZ_hprint
	_PrValidate	;validate the print	record
	plx
	bcc MoveOn
	brl ErrorExit1	; memory manager error
;
MoveOn	lda [PZ_hprint]
	tax
	ldy #2
	lda [PZ_hprint],y
	sta PZ_hprint+2	;dereferences
	stx PZ_hprint
;
;Copy the passed print record data to the internal print record "hprint".
;
	ldy #TPrintsize-2	pair
slooph	lda [PZ_hprint],y
	sta hprint,y
	dey
	dey
	bpl slooph
;
;Clear all the button states
;
	lda #$0000
	ldx #26
clrbtn	sta buttonstate,x
	dex
	dex
	bpl clrbtn

;
;Validate paper type and sets the appropriate button state
;
	lda hprint+prStl+PaperType
	cmp #4
	blt valid
;We get here if the	paper type is invalid (default to zero)
	stz hprint+prStl+PaperType
	lda #0
Valid
		; what if the prtrecord
	asl a	; never did go through
	tax	; prdefault
;This sets the appropriate button state
	lda #$ffff
	sta buttonstate,x	; et voila pour le papier

;
;This initilizes the portrait/landscape	buttonstate
;
	lda hprint+prstl+wdev
	and #f1	;check for portrait	mode
	beq do9
	dec buttonstate+2*8	;set portrait
	bra over9
do9	dec buttonstate+2*9	;set landscape
over9		;

;
;This initilizes the 50% reduction buttonstate
;
	lda hprint+prstl+wdev
	and #f3	;check for 50% reduction
	bne over6
	dec buttonstate+2*6	;set 50% reduction
over6		;

;
;This initilizes the no GAP buttonstate
;
	lda hprint+prstl+wdev
	and #f6	;check for no GAP
	bne over7
	dec buttonstate+2*7	;set for no GAP
over7		;
	lda hprint+prstl+wdev
	and #f2	2Vsize
	beq do5
	dec buttonstate+2*10
	bra over5
do5	dec buttonstate+2*5
over5		;

;------------------------------------------------------------------------------
;Now call "StyleDialog" to do the actual dialog work
;------------------------------------------------------------------------------
	jsr styledialog

	sta StlDialog_result,s ;save results on	stack
	bne okStyle	;branch if confirmed dialog
	brl outStyle	;branch if canceled	dialog
;
;We get here if the	user confirmed and we can update the print record
;
okStyle		;
* +0    US Letter		Default
* +2*1  US Legal
* +2*2  International Fanfold
* +2*3  A4 Letter
* +2*4  Computer Paper
;
;Now figure out which paper size was selected
;
	ldx #0
	lda buttonstate+2*0	;see if US Letter
	bmi NewPaperSize
	inx
	lda buttonstate+2*1	;see if US legal
	bmi NewPaperSize
	inx
	lda buttonstate+2*2	;see if Internationl Fanfold
	bmi NewPaperSize
	inx
NewPaperSize	stx hprint+prStl+PaperType ;now set paper type
;
;Now see about vertical sizing
;
	lda #f2	2Vsize
	tsb hprint+prstl+wdev
	bit buttonstate+2*5
	bpl no2
	trb hprint+prstl+wdev
no2		;

;
;Now see if GAP or NO GAP was selected
;
	lda #f6	Gap
	tsb hprint+prstl+wdev
	bit buttonstate+2*7
	bpl no6
	trb hprint+prstl+wdev
no6		;

;
;Now see if 50% reduction was selected
;
	lda #f3	2x zoom
	tsb hprint+prstl+wdev
	bit buttonstate+2*6
	bpl no3
	trb hprint+prstl+wdev
no3		;

;
;Now see which of portrait/landscape was selected
;
	lda #f1	portrait
	tsb hprint+prstl+wdev
	bit buttonstate+2*9
	bpl no1
	trb hprint+prstl+wdev
no1		;

	Jsr CiXmetrics	;go calculate the metrics

;
;Now copy the internal print record to the users
;
	ldy #TPrintsize-2	pair
slooph2	lda hprint,y
	sta [PZ_hprint],y
	dey
	dey
	bpl slooph2

;
;We get here when we are done or the user canceled the dialog
;
OutStyle	lda #0
ErrorExit1	plb
	pld
	jmp exit4

	
;*****************************************************************************
;*****************************************************************************
;
;  NAME:        PrJobDialog
;
;  PURPOSE:  High level printer routine	"_PrStlDialog", which performs a
;               job	dialog with the user.  The initial settings are taken
;               from the print record.	If the user confirms the dialog, the
;               results are saved in the print record and "_PrValidate" is
;               called and the routine returns TRUE.  If not, the print record
;               is left unchanged and returns FALSE.
;
;  PASSED:      PrintRecordHandle	LONG, Handle to the	print record.
;
;  RETURNED:    ConfirmFlag	WORD, Boolean.
;
;*****************************************************************************
;*****************************************************************************

* buttonstate for JobDialog
* +0    best
* +2*1 faster
* +2*2 Draft
* +2*3 all pages
* +2*4 from pages
* +2*5 paper auto
* +2*6 paper hand
* +2*7 value for From
* +2*8 Value for To
* +2*9 value for Copies
* +2*10 color/bw

	EXPORT PrJobDialog
PrJobDialog
* prarmeters
* results
* hPrint

	DefineStack
JobDialog_DPage	word 0
JobDialog_BReg	byte 0
JobDialog_rtl1	block 3
JobDialog_rtl2	block 3
JobDialog_hPrint	long 0	;passed PrintRecordHandle
JobDialog_result	word 0	;returned ConfirmFlag

;First save registers and setup environment
	phd
	tcd
	phb
	phk
	plb
	sta ZeroPage

;
;Make a copy of the	passed print record	handle at "PZ_hprint" and lock it
;
	lda JobDialog_hPrint,s
	sta PZ_hprint
	lda JobDialog_hPrint+2,s
	sta PZ_hprint+2
	pushlong PZ_hprint
	_hlock	;lock the handle
	_IWerror
;
; call PrValidate to check if printer type is same
;
	PushWord #0
	PushLong PZ_hprint
	_PrValidate
	plx
	bcc OnWard
	brl ErrorExit2	;memory manager error
;
;Dereferences the handle at "PZ_hprint"
;
Onward	lda [PZ_hprint]
	tax
	ldy #2
	lda [PZ_hprint],y
	sta PZ_hprint+2	dereference
	stx PZ_hprint
;
;This copies the passed print record data to the internal print record "hprint"
;
	ldy #TPrintsize-2	pair
looph	lda [PZ_hprint],y
	sta hprint,y
	dey
	dey
	bpl looph
;
;This initializes all the buttonstates to zero
;
	lda #$0000
	ldx #26
clrbtn2	sta buttonstate,x
	dex
	dex
	bpl clrbtn2
;
;This sets the correct buttonstate for print quality; BEST,	FASTER, DRAFT
;
	lda #$80
	and hprint+prJob+bjDocLoop
	bne BetOrFast
	dec buttonstate+2*2	;set DRAFT
	bra jover1
;We get here if it could be BEST or FASTER
BetOrFast		;
	lda hprint+prstl+wdev
	and #f0
	beq jover0
	dec buttonstate+2*0	;set BEST
	bra jover1
jover0	dec buttonstate+2*1	;set FAST
jover1		;
;
;This sets the correct buttonstate for paper feed; AUTOMATIC, HAND FEED
;
	lda hprint+prStl+feed
	cmp #feedfanfold
	beq doauto
	dec buttonstate+2*6	;set HAND FEED
	bra doHand
doauto	dec buttonstate+2*5	;set AUTOMATIC
doHand		;
;
;This sets the COLOR/BW buttonstate
;
	lda hprint+prstl+wdev
	and #f5
	beq jover10
	dec buttonstate+2*10 ;set COLOR
jover10		;
;
;This always initilizes the page range to ALL
;
	dec buttonstate+2*3	always all
;
;This sets FROM=1, COPIES=1 and TO=999
;
	lda #1
	sta buttonstate+2*7	;init. FROM to 1
	sta buttonstate+2*9	;init. COPIES to 1
	lda #999
	sta buttonstate+2*8	;init TO to 999

;------------------------------------------------------------------------------
;Now call "JobDialog" to do the actual dialog work
;------------------------------------------------------------------------------
	jsr jobdialog
	sta JobDialog_result,s ;save results
	bne okJob	;branch if OK
	brl outJoB	;branch if CANCEL
okJob		;

* we need to update	the quality values:
*
* prstl.wdev f0
* prXinfo.idevbytes	will be calculated by CiXmetrics
*

;
;This sets up the COLOR/BW bit appropriately
;
	lda #f5
	trb hprint+prstl+wdev ;clear the COLOR/BW bit
	bit buttonstate+2*10
	bpl no4
	tsb hprint+prstl+wdev ;set to COLOR
no4		;

;
;This sets up the BEST bit appropriately
;
	lda #f0
	trb hprint+prstl+wdev ;clear the BEST bit
	bit buttonstate+2*0
	bpl no0
	tsb hprint+prstl+wdev ;set the BEST bit
no0		;

;
;This sets up the DRAFT bit appropriately
;
	lda #$80
	tsb hprint+prJob+bjDocLoop ;clears the DRAFT bit
	bit buttonstate+2*2
	bpl notdraft
	trb hprint+prJob+bjDocLoop ;sets the DRAFT bit
notdraft		;

* then the paper range
* PrJob.ifstpage, iLst page, iCopies
* if all then first	:= 1 ; last := 9999	; icopies := 1
* else user value
;
;This copies FROM, TO, and COPIES
;
	lda Buttonstate+2*7
	sta hprint+prjob+ifstpage
	lda Buttonstate+2*8
	sta hprint+prjob+ilstpage
	lda Buttonstate+2*9
	sta hprint+prjob+iCopies

* then the paperfeeding
* prStl.feed := feedfanfold (A) or feedcut      
;
;This sets paper feed
;
	lda #feedfanfold
	sta hprint+prStl+Feed ;assume AUTOMATIC
	lda buttonstate+2*5	;get buttonstate from dialog
	bmi no5_2	;branch if assumption was correct
	lda #feedcut	;else its HAND FEED
	sta hprint+prStl+Feed
no5_2		;

	jsr CiXmetrics	;go calculate the metrics

;
;Now copy the internal print record to the users data area
;
	ldy #TPrintsize-2	pair
looph2	lda hprint,y
	sta [PZ_hprint],y
	dey
	dey
	bpl looph2

;
;We get here when we are done or the user canceled the dialog
;
OutJob	lda #0
ErrorExit2	plb
	pld
	Jmp exit4

	
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;
;  NAME:        CiXmetrics
;
;  PURPOSE:  Calculates metrics of page
;
;  PASSED:      (None)
;
;  RETURNED:    (None)
;
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
	EXPORT CiXmetrics
CiXmetrics
;
;NOTE: print resolution is calculated in 120 dots per inch.
;
* first find out the resolution

	stz resolution	;init. to zero (assume 320)
	lda SCBValue
	and #$80
	beq r320
	inc resolution	;we get here if its	640
r320		;

* Landscape (f1)	 { 0=landscape ; 1=Portrait }
* PaperType (0,1,2,3) { 0= Us Letter; 1= US Legal; 2= A4 Letter; 3= int'l fold}
* CarriageWidth (0,1,2,3) same
* Resolution (0,1)	  { 0=320 ; 1=640 }
* Gap (0,1)
* if 50% (f3) then all resolution are twice as big

* newVmargin: Landscape(Gap,f6:(PaperHsize,PaperType - CarriageWidth,paperType))
*             mul Landscape(Vres:Hres) div 240

* newHmargin: Landscape((PaperHsize,PaperType - CarriageWidth,paperType):Gap,f6)
*             mul Landscape(Hres:Vres),resolution div 240

* NewPaperVsize: Landscape(PaperVsize:CarriageWidth),PaperType
*                Mul Landscape(Vres:Hres) div 120 - 2*newVmargin
*
* NewPaperHsize: Landscape(CarriageWidth:PaperVsize),PaperType
*                Mul Landscape(Hres:Vres),resolution div 120

* rPage := 0,0,NewPaperVsize,NewPaperHsize

* rPaper := -newVmargin,-newHmargin,NewPaperVsize+newVmargin,
*            NewPaperHsize+newHmargin

* go for it

;------------------------------------------------------------------------------
;
;Calculates TOP, LEFT, BOTTOM, RIGHT for papers rectangle "rPaper"
;
;------------------------------------------------------------------------------
* newVmargin: Landscape(Gap,f6:(PaperHsize,PaperType - CarriageWidth,paperType))
*             mul Landscape(Vres:Hres) div 240

	lda resolution
	asl a	;times two
	tax	;use as index
	lda PortHres,x	;get horz. resolution
	sta hprint+prInfo+iHRes ;init horz. pixel resolution
	lda PortVres	; same value for 320 and 640 portrait
	sta hprint+prInfo+iVres ;init. vertical	pixel resolution

	stz TableIndex	;init index
;
;First see which mode (portrait or landscape)
;
	lda #f1	;see if landscape
	and hprint+prstl+wDev
	bne Portt	;branch if portrait

;We get here if landscape (set index to	landscape table entries)
	lda #IntLandVals-IntPortVals ;set index	to landscape values
	sta TableIndex

;-----------------------------------------------------------
;
; get the resolutions for portrait mode
;
	lda LandHRes,x	; X contains the resolution
	sta hPrint+prInfo+iHRes
	lda LandVRes
	sta hPrint+prInfo+iVRes

;Now take paper type and multiply by 10	because each entry is 10 bytes long
Portt		;
	lda hprint+prStl+PaperType ;get paper size type
	asl a	;first mult. by 8 (10 byte table)
	asl a
	asl a
	clc
	adc hprint+prStl+PaperType ;times 9
	adc hprint+prStl+PaperType ;times 10
	adc TableIndex	;add in initial table index
	tax	;we now have the correct index

;
;Now move the initial paper values from	the table
;
	ldy #0	;init loop counter
MvIntVals		;

	lda IntPortVals,X	;get initial values	from table
	sta Hprint+rPaper+Top,Y ;set "rPaper" values
	inx
	inx
	iny
	iny
	cpy #8
	bne MvIntVals

	lda IntPortVals,X	;get initial assocaiated GAP value
	sta TableIndex	;save the GAP value	at TableIndex
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;Now see if 320 or 640 mode (because table were designed for 640 mode)
	lda resolution
	bne Rez640	;branch if 640 (no modification needed)
;With 320 mode, we need to modify
	clc	; do a signed divide by 2 because left may be
	lda HPrint+rPaper+Left ; negative in portrait mode.
	bpl @1
	sec
@1	ror HPrint+rPaper+Left

	lsr Hprint+rPaper+Right ; (right never negative so can do unsigned div)
Rez640		;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;Now see if GAP
	lda #f6
	and hprint+prstl+wDev
	beq noGap1
;
;We Get here if GAP
;
	lda TableIndex	;get the GAP value
	bmi LandGAP	;if negative, its landscape GAP

;We get here if portrait GAP
	eor #$ffff	;first we must make	negative
	ina

	sta Hprint+rPaper+Top ;set "rPaper" TOP	to GAP
	clc
	adc Hprint+rPaper+Bottom
	sta Hprint+rPaper+Bottom ;set "rPaper" BOTTOM with GAP
	bra noGap1

;We get here if landscape GAP
LandGAP		;
	sta Hprint+rPaper+Left ;set "rPaper" LEFT to GAP
	clc
	adc Hprint+rPaper+Right
	sta Hprint+rPaper+Right ;Adjusted  "rPaper" Right with GAP

noGap1		;

;
;Now see if 50% reduction (twice the resolution) was selected
;
	lda #f3
	and hprint+prStl+wDev
	bne notHalf1	;branch if no 50% reduction selected

;We get here if 50%	reduction (multiply	TOP, LEFT, BOTTOM, RIGHT by two)
	ldx #0
HalfResLoop		;
	asl Hprint+rPaper+Top,X ;multiply by two
	inx	;go to next value
	inx
	cpx #8
	bne HalfResLoop

	asl hprint+prInfo+iHRes ;multiply horz.	pixel resolution by	2
	asl hprint+prInfo+iVRes ;multiply vertical pixel resolution	by 2

notHalf1		;

;
;Now see if condensed vertical resolution was selected
;
	lda #f2
	and hprint+prstl+wDev
	bne NormVSize	;branch if normal vertical size

;We get here when condensed vertical size was selected
	asl Hprint+rPaper+Bottom
	asl Hprint+rPaper+Top

	asl hprint+prInfo+iVRes ;update rPage vRes

NormVSize		;

;------------------------------------------------------------------------------
;
;Calculate the page	rectangle "rPage"
;

;------------------------------------------------------------------------------
;
; update hprint+prInfo+rPage for now, prInfoPT will be updated later
;

	stz hprint+prInfo+rPage+Top ;init TOP to zero
	stz hprint+prInfo+rPage+Left ;init LEFT	to zero
	lda hprint+rPaper+Bottom
	clc
	adc hprint+rPaper+Top
	sta hprint+prInfo+rPage+Bottom ;set BOTTOM
	lda hprint+rPaper+Right
	clc
	adc hprint+rPaper+Left
	sta hprint+prInfo+rPage+Right ;set RIGHT

* now calculate iBandV ,iBandH ,iRowBytes and iDevBytes

* iBandV= landscape(32,hprint+prInfo+rPage+Bottom'*2 if best or 50%')
* iBandH= landscape(hprint+prInfo+rPage+Right'*2 if best or 50%',32)
* iRowBytes= iBandH	div (2:4),resolution
* iDevBytes = iBandV * iRowBytes


;
;This calculates the print bands vertical resolution
;
* iBandV= landscape(32,hprint+prInfo+rPage+Bottom'*2 if best or 50%')
	lda #f1
	and hprint+prstl+wDev
	bne Port5	;branch if portrait

	lda hprint+prInfo+rPage+Bottom ;get bottom
	pha

	lda #f3	;see if 50%
	and hprint+prstl+wDev
	bne testbest	;branch if not 50%
	pla
	asl a
	bra Land5

testbest		;
	lda #f0	;see if BEST
	and hprint+prstl+wDev
	beq notbest	;branch if not BEST
	pla
	asl a
	bra Land5

notbest		;
	pla
	bra Land5

Port5	lda #32
Land5		;
	sta Hprint+PrXinfo+iBandV ;set the print bands vert. res.

;
;This calculates the print bands horizontal resolution
;
* iBandH= landscape(hprint+prInfo+rPage+Right'*2 if best or 50%',32)
	lda #f1
	and hprint+prstl+wDev
	beq Land6	;branch if landscape

	lda hprint+prInfo+rPage+Right ;get right
	pha

	lda #f3	;see if 50%
	and hprint+prstl+wDev
	bne testbest2	;branch if not best
	pla
;;;;;;;;;;;;;;;;;;;;;;;;;;;
	asl a
;;;;;;;;;;;;;;;;;;;;;;;;;;;
	bra Port6

testbest2		;
	lda #f0	;see if BEST
	and hprint+prstl+wDev
	beq notbest2	;branch if not BEST
	pla
	asl a
	bra Port6

notbest2		;
	pla
	bra Port6

Land6	lda #32
Port6		;
	sta Hprint+PrXinfo+iBandH ;set the print bands Horz. res.

;
;This calculates the print bands bytes/row
;
* iRowBytes= iBandH	div (2:4),resolution
	lda Hprint+PrXinfo+iBandH
	lsr a
	ldx resolution
	beq done
	lsr a
done	sta Hprint+PrXinfo+iRowBytes ;set the bytes/row

;
;This calculates the total number of bytes (bytes per row times number of bands)
;
* iDevBytes = iBandV * iRowBytes
	PushLong #0
	lda Hprint+PrXinfo+iBandV
	pha
	lda Hprint+PrXinfo+iRowBytes
	pha
	_Multiply
	pla
	sta Hprint+PrXinfo+iDevBytes ;set the total no. of bytes
	pla

;
;Now copy the new calculated PrInfo subrecord to PrInfoPT subrecord
;
* Update the PrInfoPT record also
	ldy #12
UpdatePT	lda hprint+PrInfo,y
	sta hprint+PrInfoPT,y
	dey
	dey
	bpl UpdatePT

;
;Now determine physical papers resolution
;
	lda hprint+prStl+PaperType
	asl a
	tax
	lda PaperVsize,x
	sta hprint+PrStl+iPageV ;set pages vertical res.
	lda PaperHsize,x
	sta hPrint+PrStl+iPageH ;set pages horz. resolution
	lda CarriageWidth,x
	sta hPrint+PrStl+CRwidth ;set carriage width resolution

	rts

TableIndex	DS.B 2	;temporary

;NOTE: The Initial and Normal horz. resolution is 80 dots per inch.
;       The Initial	and Normal vertical	resolution is 36 dots per inch.
;       The carriage is only 8 inches wide (therefore there	are 1/4" margins.)
;
;NOTE: All values are relative to the carriages 0,0 value.

;------------------------------------------------------------------------------
; Initial Portrait rPaper values
;------------------------------------------------------------------------------
IntPortVals		;
;
;US normal 8.5" x 11"
;
	DC.W 0	;Top
	DC.W -20	;Left (-1/4" offset	from carriage zero)
	DC.W 396	;Bottom (11" times 36 dpi)
	DC.W 660	;Right (8" x 80 + 1/4" * 80)
	DC.W 9	;GAP top and bottom	(1/4" x 36)
;
;US Legal 8.5" x 14"
;
	DC.W 0	;Top
	DC.W -20	;Left (-1/4" offset	from carriage zero)
	DC.W 504	;Bottom (14" times 36 dpi)
	DC.W 660	;Right (8" x 80 + 1/4" * 80)
	DC.W 9	;GAP top and bottom	(1/4" x 36)
;
;A4 Letter 8.25" (210mm)  x 11 2/3" (297mm) NOTE: 25.4mm/inch
;
	DC.W 0	;Top
	DC.W -10	;Left (-1/8" offset	from carriage zero)
	DC.W 420	;Bottom (11.6667" times 36 dpi)
	DC.W 650	;Right (8.25 x 80)
	DC.W 9	;GAP top and bottom	(1/4" x 36)
;
;International FanFold 8.25 (210mm) x 12"
;
	DC.W 0	;Top
	DC.W -10	;Left (-1/8" offset	from carriage zero)
	DC.W 432	;Bottom (12" times 36)
	DC.W 650	;Right (8.25 x 80)
	DC.W 9	;GAP top and bottom	(1/4" x 36dpi)

;------------------------------------------------------------------------------
; Initial Landscape	rPage values
;------------------------------------------------------------------------------

;NOTE: Normal and Initial vertical (in actuality horz. carriage) is 40 dpi.
;       Normal and Initial Horz. (in actuality vertical) is	72 dpi.
;       GAP must be	negative for landscape (simplified programming).

IntLandVals		;
;
;US normal 8.5" x 11"
;
	DC.W -10	;Top (1/4" x 40 offset from carriage 0)
	DC.W 0	;Left
	DC.W 330	;Bottom (8" x 40 + 1/4 * 40)
	DC.W 792	;Right (11" x 72)
	DC.W -18	;GAP (1/4" x 72) (neg. flags landscape)
;
;US LEGAL 8.5" x 14"
;
	DC.W -10	;Top (1/4" x 40 offset from carriage 0)
	DC.W 0	;Left
	DC.W 330	;Bottom (8" x 40 + 1/4 * 40)
	DC.W 1008	;Right (14" x 72)
	DC.W -18	;GAP (1/4" x 72) (neg. flags landscape)
;
;A4 Letter 8.25 x 11 2/3"
;
	DC.W -5	;Top (1/8" x 40 offset from carriage 0)
	DC.W 0	;Left
	DC.W 325	;Bottom (8 * 40 + 1/8 *40)
	DC.W 840	;Right (11.* 72 + 2/3 * 72)
	DC.W -18	;GAP (1/4" x 72) (neg. flags landscape)
;
;International FanFold 8.25 (210mm) x 12"
;
	DC.W -5	;Top (1/8" x 40 offset from carriage 0)
	DC.W 0	;Left
	DC.W 325	;Bottom (8 * 40 +1/8 * 40)
	DC.W 864	;Right (12 * 72)
	DC.W -18	;GAP (1/4" x 72) (neg. flags landscape)

	ENDP


;    DocPage.Calls	  ;_PrOpenDoc, _PrCloseDoc, _PrOpenPage
;		;_PrClosePage

*****************************
*	        *
* DocPage.calls	        *
*	        *
* Current Rev: Nov.	1987    *
*	        *
*****************************

;------------------------------------------------------------------------------
;
; NAME:         PrDrvrVer
;
; PURPOSE:      Returns version # of currently installed driver
;
; PASSED:       WORD	Space for result
;
; RETURNED:  WORD	                Driver Version
;
;------------------------------------------------------------------------------

PrDrvrVer	PROC EXPORT


	DefineStack
DVerOrigD	Word 0
DVerOrigB	Byte 0
DVer_Rtl1	Block 3
DVer_Rtl2	Block 3
Version	Word 0

	phd
	tcd
	phb
	phk
	plb

	lda #VersionNb
	sta Version,s

	lda #0
	plb
	pld
	jmp exit0

;-----------------------------------------------------------
;
; Returns the printer's type and its characteristics
;  type: 0 = undefined
;        1 = ImageWriter and ImageWriter II
;        2 = ImageWriter LQ
;        3 = LaserWriter family
;        4 = Epson
;
;  characteristics:
;    bits 15 - 2 : reserved
;          1 - 0 : 0 = can't determine
;                  1 = monochrome
;                  2 = capable of color
;

	EXPORT PrGetPrinterSpecs
PrGetPrinterSpecs

	DefineStack
GetPSp_OrigD	Word 0
GetPSp_OrigB	Byte 0
GetPSp_Rtl1	Block 3
GetPSp_Rtl2	Block 3
PtrType	Word 0
PtrChar	Word 0

	phd
	tcd
	phb
	phk
	plb

	if  LQ=1	goto .notimagewriter5

	lda #iDevIW	; this is a ImageWriter driver
	sta PtrType,s	; return it as result

	lda #CantDetermine	; since the driver can be used by IW I's as well
	sta PtrChar,s	; as IW II's, we can't determine its color capability

	goto .notlq5

.notimagewriter5

	lda #iDevLQ	; this is an LQ driver
	sta PtrType,s	; return it as result

	lda #ColorCapable	; printer is capable of color
	sta PtrChar,s

.notlq5

	lda #0
	plb
	pld
	brl exit0

;-----------------------------------------------------------
;
; Returns the page orientation to the caller: 
; 0 = portrait, 1 =	landscape
;

	EXPORT PrGetPgOrientation
PrGetPgOrientation

	DefineStack
GetOr_OrigD	Word 0
GetOr_OrigB	Byte 0
GetOr_Rtl1	Block 3
GetOr_Rtl2	Block 3
PrintRecHandle	Long 0
Orientation	Word 0

	phd
	tcd
	phb
	phk
	plb

	lda PrintRecHandle,s
	sta Temp1
	lda PrintRecHandle+2,s
	sta Temp1+2

	lda [Temp1]
	tax
	ldy #2
	lda [Temp1],y
	sta Temp1+2
	stx Temp1

	ldy #prstl+wdev	; get the offset to	the correct field from
	lda [Temp1],y	; the print record
	and #f1	; look at bit 1
	lsr a	; to achieve the correct value as defined
	eor #1	; flip the sense of	the bit since impact printers
		; define 0 as landscape and 1 as portrait
	sta Orientation,s	; return it as result

	lda #0
	plb
	pld
	brl exit4

	ENDP

;******************************************************************************
;******************************************************************************
;
;  NAME:        PrOpenDoc
;
;  PURPOSE:  High level printer routine	"_PrOpenDoc" which opens the document
;
;  PASSED:      (Space for Result)	POINTER
;               PrintRecordHandle	HANDLE, to print record
;               PrinterPortPtr	POINTER, to GrafPort, (zero indicates
;		to allocate new GrafPort).
;
;  RETURNED:    PrintrPortPtrRet	POINTER, pointer to	Grafport if
;		PrinterPortPtr was zero.
;
;******************************************************************************
;******************************************************************************
	Export PrOpenDoc
PrOpenDoc	PROC

	DefineStack
OrigD	word 0
OrigB	byte 0
rtl1	block 3
rtl2	block 3
UsersPortPtr	long 0
UsersPrintRecH	long 0
ResultPtr	long 0


	pha	; save value of d
;
;First see if the port is ON
;
	pha
	_DevIsItSafe	;see if port is working
	pla
	bne Yes	;branch if safe
;
;We get here when the port is not on and we can't proceed
;
	lda #PortNotOn	;get error no.
	sta >iPrErr	;save it
	plx
	jmp Exit8
;
;We arrive here when the port is ON
;
Yes		;
	pla
	
;------------------------------------------------------------
;
; save the registers and set direct page and  data bank
;
	phd
	tcd
	phb
	phk
	plb
	sta ZeroPage
	
	pha
	_GetMasterSCB
	pla
	sta SCBValue
	
;------------------------------------------------------------
;
; Get the current cursor record's address and turn on the watch cursor.
;

	PushLong #0	; space for the address
	_GetCursorAdr
	pla
	sta CursorAd
	pla
	sta CursorAd+2

	_WaitCursor

;------------------------------------------------------------
;
; Verify the print record!
;
	lda UsersPrintRecH+2,s ; copy the print	record
	pha	; using HandToPtr
	lda UsersPrintRecH+2,s
	pha
	PushLong #hprint
	PushLong #Tprintsize
	_HandToPtr

;----------------------------------------------------------------------
;
; Test if correct printer type (1 = ImageWriter, 2 = IW LQ, 3 = LaserWriter,
; 4 = Epson) and correct version number.
;

	lda hPrint+prInfo+idev
	if  LQ=1	goto .notimagewriter4
	cmp #iDevIW	; this is ImageWriter driver
	goto .notlq5

.notimagewriter4
	cmp #iDevLQ	; this is ImageWriter LQ driver
.notlq5

	bne WrongType
	lda hPrint+iPrVersion ; check if correct version
	xba	; swap since hi-lo bytes
	cmp #VersionNb	; are swapped in lda
	beq goodPtype
WrongType
	lda UsersPrintRecH+2,s
	pha
	lda UsersPrintRecH+2,s
	pha
	_PrDefault
GoodPtype
;------------------------------------------------------------
;
; Initialize some variables.  Move the user id.  
;

	stz iPrErr	; zero error
	stz PStatus	; and printer status
	stz stackLoc	; stack loc used by idleproc

	lda UserId	; move user id
	sta MainUserID

;----------------------------------------------------------
;
; We look at the idle proc in the print	record.
; If it is NIL then	we put a pointer to	our IDLE proc
; in its place.
;

	lda hPrint+PrJob+pIdleProc
	ora hPrint+PrJob+pIdleProc+2
	bne useridle
	lda #<PrAbortCheck
	sta hPrint+PrJob+pIdleProc
	lda #^PrAbortCheck
	sta hPrint+PrJob+pIdleProc+2
useridle		;

;------------------------------------------------------------
;
; Lets look at the print method and set	the variable
; "METHOD".  Method	will be zero for draft printing and
; $8000 for spool printing. 
;
	lda hprint+prJob+bjDocLoop
	and #$80
	xba
	sta method	;set the method


;------------------------------------------------------------
;
; Put up the dialog	that says preparing	data (or draft
; printing.
;
	stz NoShowMessage	; enable message display

	jsr OpenInfoPrepare

;------------------------------------------------------------
;
; Now we decide whether to use our own port or the user's
; port. 


	lda #false	; start by assuming	it
	sta ourport	; is the user's port.

	lda UsersPortPtr,s	; if port ptr is non zero
	ora UsersPortPtr+2,s ; we use theirs
	bne Portexist

;------------------------------------------------------------
;
; Damn, the user wants us to do all his	work for him/her.
; We get a handle for a port.
;
	lda #PortSize	; size of handle
	ldx #%1000000000011000 ; attributes
	jsr OurGetHandle	;get a handle of port size

	sta temp1	;save handle at tem1
	stx temp1+2

	lda [Temp1]
	sta UsersPortPtr,s	;dereference handle	at UsersPortPtr
	ldy #2
	lda [Temp1],y
	sta UsersPortPtr+2,s

	lda #true	;set OURPORT true (remember)
	sta ourport

PortExist		;
;------------------------------------------------------------
;
; Put copies of the	port pointer everywhere.
;
	lda UsersPortPtr,s	;get port pointer
	sta ResultPtr,s	;save to be passed back
	sta hOurPort
	sta PZ_pPrPort
	lda UsersPortPtr+2,s
	sta ResultPtr+2,s
	sta hOurPort+2
	sta PZ_pPrPort+2

;------------------------------------------------------------
;
; Open the grafport.
;
	pei PZ_pPrPort+2
	pei PZ_pPrPort
	_OpenPort	;open the grafport

;------------------------------------------------------------
;
; Initialize these page number varibles.
;

	stz iPageNum	; init page num
	stz iDocPage	; init. document pages
	stz PicListCount	; page count of hPicList

;------------------------------------------------------------
;
; Look at the printing method.  If it is deferred, get a handle
; to enough memory to contain list of pictures for the number
; of pages asked by	the application to be printed.
;

	lda method
	bpl draftOpenDoc	;branch if immediate mode (draft)

;------------------------------------------------------------------------------
;
; DEFERRED Mode Code
;
;------------------------------------------------------------------------------
;-------------------------------------------------------------
;
; We'll begin with a piclist for 20 pages. In PrOpenPage, we'll
; check if this is enough, if not, we get more in 20 page increments
;
	lda #20*4	; start with 20 pages worth
	ldx #%0000000000000000 ; nothing special
	jsr OurGetHandle	;get a handle

	sta hPicList	;save it at hPicList
	stx hPicList+2

;
;We get here with no errors and its time to exit PrOpenDoc
;
	lda #0
exitOpenDoc
	sta iPrErr	; Added by Suki 5/25/88
	plb
	pld
	jmp Exit8

;------------------------------------------------------------------------------
;
; IMMEDIATE Mode Code
;
;------------------------------------------------------------------------------
draftOpenDoc		;
	jsr startLLD	; start up the LLD

	bra ExitOpenDoc

	ENDP
	
;******************************************************************************
;******************************************************************************
;
;  NAME:        PrCloseDoc
;
;  PURPOSE:  High level printer routine	"_PrCloseDoc" which	closes the doc.
;
;  PASSED:      PrinterGrafPortPtr	POINTER, to printer	graf port.
;
;  RETURNED:    (NONE)
;
;******************************************************************************
;******************************************************************************
PrCloseDoc	PROC EXPORT

	DEFINESTACK
OrigD	word 0
OrigB	byte 0
rtl1	block 3
rtl2	block 3
PortPtr	long 0

	pha
	lda >iPrErr	;see if any errors
	cmp #PortNotOn	;see if port-not-on	error
	bne Continue	;branch if not
	plx
	jmp Exit4
;
;Save registers and	setup environment
;
Continue		;
	pla
	phd
	tcd
	phb
	phk
	plb


;------------------------------------------------------------
;
; Close the port.
;

	lda PortPtr+2,s
	pha
	lda PortPtr+2,s
	pha
	_ClosePort	;close the graf port

;------------------------------------------------------------
;
; If the port is our's (created in PrOpenDoc), we must get rid of the memory we
; allocated for it.
;
	lda ourPort	;see if ours
	cmp #true
	bne userport	;branch if not ours

	pha	; first find the handle to
	pha	; memory that port is in.
	lda PortPtr+4+2,s
	pha
	lda PortPtr+4+2,s
	pha
	_FindHandle	; find the handle to pointer
	_DisposeHandle	; then dispose it.

userport		;
	lda method
	bmi NoErrorExit	; not draft
	
;------------------------------------------------------------------------------
;
; IMMEDIATE Mode
;
;------------------------------------------------------------------------------
;------------------------------------------------------------
;
; If we are doing immediate (draft) printing, we need to shut down.
;

	pushword UserID
	jsl LLDShutDown

	PushLong CursorAd
	_Setcursor

;------------------------------------------------------------------------------
;
; DEFERRED Mode
;
;------------------------------------------------------------------------------

;------------------------------------------------------------
;
; We're done.
;
NoErrorExit		;
	jsr CloseInfo	; get rid of info dialog box
	
	lda #0
	plb
	pld
	jmp Exit4

	ENDP
	
;******************************************************************************
;******************************************************************************
;
;  NAME:        PrOpenPage
;
;  PURPOSE:  High level printer routine	"_PrOpenDoc" which opens the document
;
;  PASSED:      GrafPortPtr	POINTER, to grafport
;               PageFramePtr	POINTER, to scaling	parameter (zero if
;		none.)
;
;  RETURNED:    (NONE)
;
;******************************************************************************
;******************************************************************************
PrOpenPage	PROC EXPORT

	DefineStack
OrigD	word 0
OrigB	byte 0
rtl1	block 3
rtl2	block 3
PageFramePtr	long 0
PortPtr	long 0

	pha
	lda >iPrErr	;see if any errors
	beq SallRight	;branch if none
	plx
	jmp Exit8

SallRight		;
	pla	;save registers and	setup environment
	phd
	tcd
	phb
	phk
	plb

;------------------------------------------------------------
;
; First we set the port to the port that is passed.
;

	lda PortPtr+2,s
	pha
	lda PortPtr+2,s
	pha
	_Initport

;------------------------------------------------------------
;
; Zero the bounds rect.  This prevents any drawing: even
; if user makes the	pen visible.
;
	lda #0
	ldy #o_BoundsRect
ZeroLoop	sta [PZ_pPrPort],y
	iny
	iny
	cpy #o_BoundsRect+8
	bcc ZeroLoop

;------------------------------------------------------------
;
; Now we bump the page counter and look	at the method.  If it
; is draft printing	then do something, else we open a picture.
;

	inc iDocPage	;increment the document page

	lda method	;get the printing method
	bmi spoolPage	;branch if deferred
	brl OpenPageDraft	;branch if immediate

;------------------------------------------------------------------------------
;
; DEFERRED Mode
;
;------------------------------------------------------------------------------
spoolPage	stz hNewPic	; start by zeroing handle to
	stz hNewPic+2	; picture.

	lda iDocPage	; look at page number.
	cmp hprint+prjob+ifstpage ; are we in range?
	blt exitnow	; no, get out now
	dea
	cmp hprint+prjob+ilstpage ; yes-start a	picture
	blt continue
;
;We get here when we are out of page range
;
exitnow	brl NoErrorExit

continue		;

;-----------------------------------------------------------
;
; Lets look at the page frame pointer that was passed.  If it is NIL,
; we replace it with a pointer to rPage.
;
	lda PageFramePtr,s	;get passed pointer
	ora PageFramePtr+2,s
	bne UserHasFramePtr	;branch if NIl

	lda #hprint+prInfoPT+rpage
	sta PageFramePtr,s
	lda #^hprint+prInfoPT+rpage
	sta PageFramePtr+2,s

UserHasFramePtr		;

	pha
	pha
	lda PageFramePtr+4+2,s ;get PageFramePointer from stack
	pha
	lda PageFramePtr+4+2,s
	pha
	_openpicture	;open a picture
	


;------------------------------------------------------------
;
; We leave result of open picture on stack until we deref
; the pic list below.
;
;
; Bump the picture list counter to reflect current page
;

	inc PicListCount


;------------------------------------------------------------
;
; PicListCount is used to test if hPicList is large to enough
; to hold the number of pages in the document. It counts from
; 1 to 20, since we	increase memory 20 pages at a time. This
; variable is initialised in PrOpenDoc.
;

	lda PicListCount
	cmp #21	; run out of allocated memory?
	blt EnoughMem	; not yet

	pha	; space for size
	pha
	PushLong hPicList
	_GetHandleSize	; get current block	size

	pla	; current size
	clc
	adc #20*4	; increase it by another 20 pages
	pha	; new size
	PushLong hPicList
	_SetHandleSize	; set new block size

EnoughMem	lda [hPicList]	; deref the pic list
	sta pPicList
	ldy #2
	lda [hPicList],y
	sta pPicList+2

	lda iPagenum	; use iPageNum as index into
	asl a	; pic list
	asl a
	tay
	pla	; now put picture handle into
	sta [pPicList],y	; pic list
	sta hNewPic	; and in hNewPic
	iny
	iny
	pla	; (high word too)
	sta [pPicList],y
	sta hNewPic+2


;----------------------------------------------------------
;
; Set the cliprgn and visrgn to the sizing Framing rect
;
	lda PageFramePtr+2,s
	pha
	lda PageFramePtr+2,s
	pha
	_cliprect

	pushlong #0	; and the vis rect!
	_getcliphandle
	_setvisrgn

;-----------------------------------------------------------
;
; Lets set the port	rect to this frameing rect too.
;
	lda PageFramePtr+2,s
	pha
	lda PageFramePtr+2,s
	pha
	_SetPortRect



;------------------------------------------------------------
;
; Bump the page number
;
	inc ipagenum

;------------------------------------------------------------
;
; We are done.
;

NoErrorExit		;
	lda #0
	plb
	pld
	jmp Exit8

;------------------------------------------------------------------------------
;
; IMMEDIATE Mode
;
;------------------------------------------------------------------------------
OpenPageDraft		;
;-----------------------------------------------------------
;
; If this is a page	that will be printed, then we install
; printing procs.
;
	lda iDocPage	; look at page number.
	cmp hprint+prjob+ifstpage ; are we in range?
	blt NoErrorExit	; no, get out now
	dea
	cmp hprint+prjob+ilstpage ; yes-start a	picture
	bge NoErrorExit

	PushLong #ProcsTable ; put std procs in	table
	_SetStdProcs

	lda #<Drafttext-1	; Put our text proc	in table
	sta ProcsTable
	lda #^Drafttext-1
	sta ProcsTable+2
	lda #<Pixel-1	; Put our pixel proc in table
	sta ProcsTable+$20
	lda #^Pixel-1
	sta ProcsTable+$22

	PushLong #ProcsTable ; put pointer to our table in
	_SetGrafProcs	; the graf port

	bra NoErrorExit

;------------------------------------------------------------
;
; Here's where we keep the proc table.
;
ProcsTable	DS.B 16*4


	ENDP
	
;******************************************************************************
;******************************************************************************
;
;  NAME:        PrClosePage
;
;  PURPOSE:  High level printer routine	"_PrClosePage" which closes the page
;
;  PASSED:      PrinterGrafPortPtr	POINTER, to GrafPort to be used
;
;  RETURNED:    (NONE)
;
;******************************************************************************
;******************************************************************************
PrClosePage	PROC EXPORT

	DefineStack
OrigD	word 0
OrigB	byte 0
rtl1	block 3
rtl2	block 3
PortPtr	long 0

	pha
	lda >iPrErr	;see if any errors
	beq Continue	;branch if none

	cmp #PortNotOn	;see if port-not-on	error
	bne Continue	;branch if none
	plx
	jmp Exit4

Continue		;save registers and setup environment
	pla
	phd
	tcd
	phb
	phk
	plb


;------------------------------------------------------------
;
; Look at method and go to correct routine.
;

	lda method	;look at method
	bpl ClosePageDraft	;branch if immediate mode

;------------------------------------------------------------------------------
;
; DEFERRED Mode
;
;------------------------------------------------------------------------------
	lda hNewPic	; if there is no picture then
	ora hNewPic+2	; we are done.
	beq NoErrorExit	;branch if no picture

	lda PortPtr+2,s
	pha
	lda PortPtr+2,s
	pha
	_SetPort	;set the graf port

	_ClosePicture	;close the picture
	bcs ErrorExit

NoErrorExit	lda #0
ErrorExit	sta iPrErr
	plb
	pld
	jmp Exit4

;------------------------------------------------------------------------------
;
; IMMEDIATE Mode
;
;------------------------------------------------------------------------------

ClosePageDraft		;
;------------------------------------------------------------
;
; For draft printing we make LLD new page call. (unless
; we've reached the end of the pages to print.
;

	lda iDocPage
	cmp hprint+prjob+ifstpage
	blt exitclosenow
	dea
	cmp hprint+prjob+ilstpage
	bge exitclosenow
	
	lda PStatus	; printer error, forget ejecting
	bne dontEject
	
	jsl NewPage	; spit out page
dontEject	
exitclosenow	bra NoErrorExit

	ENDP
	
;------------------------------------------------------------------------------
*
* NAME:         OurGetHandle
*
* PURPOSE:      Gets a handle to memory.
*
* PASSED:       (A-reg.)	size passed in a-reg.
*               (X-reg.)	attributes passed in x-register.
*
* RETURNED:  A Handle is returned in A & X registers unless	there is a
*               memory manager error (carry set) in which case the error
;               number returns in the A-reg.
*
;------------------------------------------------------------------------------
OurGetHandle	PROC EXPORT

	pha
	pha
	pea 0
	pha
	PushWord UserID	your ID
	phx
	pha
	pha
	_NewHandle	result on the stack
	bcs AnError

	pla
	plx
	rts

;We get here if an error occured trying	to get a handle
AnError	plx
	plx
	rts

	ENDP


;    JobDialog

;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;
;  NAME:        JobDialog
;
;  PURPOSE:  Does most of the work for "_PrJobDialog"
;
;  PASSED:      (None)
;
;  RETURNED:    (None)
;
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------

* buttonstate for JobDialog
* +0    best
* +2*1 faster
* +2*2 Draft
* +2*3 all pages
* +2*4 from pages
* +2*5 paper auto
* +2*6 paper hand
* +2*7 value for From
* +2*8 Value for To
* +2*9 value for Copies
* +2*10 color/bw

JobDialog	PROC EXPORT
;
;Get the pointer to	the current grafport
;
	PushLong #0
	_getport

;
;Calculate the dialog boxes width
;
	lda StyleRect+6
	sec
	sbc StyleRect+2
	sta Stylewidth
;
;Get the master SCB
;
	pha
	_GetMasterSCB	;get the SCB
	pla
	sta SCBValue	;save it
;
;This calculates the dialog boxes LEFT and RIGHT (depending	on 320 or 640 mode)

	and #$80	;look at mode ($0=320, $80=640)
	beq loc320
	lda #640	;get 640
	bne loc640
loc320		;
	lda #320	;get 320
loc640		;
	sec
	sbc StyleWidth
	lsr a
	sta StyleRect+2	;adjust job dialogs	LEFT
	sta JobDTemplate+2	;DAN H. adjust template
	clc
	adc StyleWidth
	sta StyleRect+6	;adjust job dialogs	RIGHT
	sta JobDTemplate+6	;DAN H. adjust template

;
;This inits. the button item states
;
	ldy #2*6	;init. buttonstate index
	ldx #6*24	;init. JDRB template index
IBitemState		;
	stz JDRB0,x	;init. state to off
	lda buttonstate,y	;get button state
	bpl IsOff1
	lda #1
	sta JDRB0,x	;set state to on
IsOff1		;
	txa	;get y-index
	sec
	sbc #24	;move to next item template
	tax
	dey
	dey
	bpl IBitemState

;Do COLOR check box	differently
	stz JDRB10	;init. to off
	lda buttonstate+2*10 ;get buttonstate for color
	bpl over10	;branch if off
	lda #$ffff	;set to selected
	sta JDRB10
over10		;

;
;This starts the modal dialog
;
	PushLong #0
	pushlong #JobDTemplate ;The dialogs template
	_GetNewModalDialog	;creates a new modal dialog

	pla
	sta pScreenport	;save the dialogs handle
	pla
	sta pScreenport+2
;
;Set the dialog as the current port and	set the origin to zero
;
	pushlong pscreenport
	_Setport
	pushlong #0
	_setOrigin
;
; draw the upper line
;
	pushlong l1
	_moveto
	pushlong l2
	_lineto
;
* let's draw the inactive strings (printers name/ports name)
;

	PushLong namepos	;move to where to put printer name
	_moveto
	PushLong #0
	_PmGetPrinterName	;get the printer types name
	_DrawString	;draw it
	pushlong #SlashStr
	_DrawString	;draw a "/"
	PushLong #0
	_PmGetPortName	;get the ports name
	_DrawString	;draw it

;------------------------------------------------------------------------------
;This draws the inactive strings using tables
;------------------------------------------------------------------------------
	lda JIstrnum	;get number of strings to draw
	dea
	asl a
	asl a
	tax	;use as an index

strloop	phx	;save index
	lda JIposlist+2,x	;get position to draw at
	pha
	lda JIposlist,x
	pha
	_moveto	;move to the position
	plx
	phx
	lda JIstrlist+2,x	;get address of text to draw
	pha
	lda JIstrlist,x
	pha
	_drawstring	;draw the text
	plx
	dex
	dex
	dex
	dex
	bpl strloop	;loop for all strings in table

;------------------------------------------------------------------------------
;
; This is the modal	dialog loop
;
;------------------------------------------------------------------------------
loopModal		;
	PushWord #0
	PushLong #JobFilter+$80000000 ;use filter proc. and standard
	_modalDialog
	pla
	beq loopModal	;loop until a response from user

	cmp #14	;see if valid item selected
	bge loopModal	;branch if invalid
;
;Convert item selected and vector to appropriate routine to	handle it
;
	asl a	;convert itme to index
	tax
	jmp (Action-2,x)	;vector to routine to handle item

Action		;

	DC.W S_OkEvent	;1
	DC.W S_Cancelevent	;2 (Cancel button)
	DC.W S_Qual	;3
	DC.W S_Qual	;4
	DC.W S_Qual	;5
	DC.W S_Page	;6 (ALL radio button)
	DC.W S_Page	;7 (FROM radio button)
	DC.W S_Copie	;8
	DC.W S_Copie	;9
	DC.W S_Copies	;10
	DC.W S_To	;11 (TO line edit box)
	DC.W S_From	;12 (FROM line edit	box)
	DC.W S_Color	;13 (Color check box)
;
;We vector here on OK button
;
S_okEvent		;
	pushword #0
	Pushlong pScreenPort
	Pushword #13
	_GetDItemValue
	pla
	sta buttonstate+2*10
	PushLong pscreenport
	PushWord #10
	pushlong #CopieFinalValue
	_GetIText
	pushword #0
	pushlong #CopieFinalValue+1
	lda CopieFinalValue
	and #$07
	pha
	pushword #0
	_Dec2int
	pla
	sta Buttonstate+2*9

	lda buttonstate+2*3	; check if all is on, if so, do not
	bmi nopageupdate	; update 'from' & 'to' in buttonstate
	PushLong pscreenport
	PushWord #12
	pushlong #FromFinalValue
	_GetIText
	lda FromFinalValue
	and #7
	beq nofrom

	pushword #0
	pushlong #FromFinalValue+1
	lda FromFinalValue
	and #$07
	pha
	pushword #0
	_Dec2int
	pla
	sta Buttonstate+2*7
nofrom		;
	PushLong pscreenport
	PushWord #11
	pushlong #ToFinalValue
	_GetIText
	lda ToFinalValue
	and #$07
	beq nopageupdate

	pushword #0
	pushlong #ToFinalValue+1
	lda ToFinalValue
	and #$07
	pha
	pushword #0
	_Dec2int
	pla
	sta Buttonstate+2*8
nopageupdate		;
	lda #$ffff
	sta IfCancelled
	brl fin

;
;We vector here on CANCEL button
;
S_CancelEvent		;
	stz IfCancelled	;set if cancelled
	brl fin

;
;We vector here on a print quality radio button selection
;
S_Qual		;
	sec
	sbc #6
	tax
	lda buttonState,x	Give me the item
	bmi PaperDone
	phx

* clear the current	one
	ldx #0
searchmore	lda buttonState,x
	bmi clearit
	inx
	inx
	cpx #3*2
	bne searchmore
	bra PaperDone
clearit	
	stz buttonState,x
	txa
	lsr a
	clc
	adc #3
	tax
	pushword #0
	Pushlong pScreenPort
	phx
	_SetDItemValue
* Mark the new one

	plx
	phx
	lda #$FFFF
	sta buttonstate,x
	pla
	lsr a
	clc
	adc #3
	tax
	pushword #1
	Pushlong pScreenPort
	phx
	_SetDItemValue

PaperDone	brl LoopModal

;
;We vector here on page button
;
S_Page		;
	tay
	sec
	sbc #6
	tax
	lda buttonState,x	Give me the item
	bmi PaperDone
	cpx #2*3	* button n 4
	beq doall

S_Page2		;
	cpy #16	;value has been doubled by now
	bge ToBox	;"To or From" clicked, dont select text

	Pushlong pScreenPort
	PushWord #12	;id of From edit item box
	PushWord #0	;start
	PushWord #4	;stop
	_SelectIText	;select the FROM edit item box

* do from to.
ToBox	pushword #1
	Pushlong pScreenPort
	Pushword #7
	_SetDItemValue	;ON with FROM radio	button

	pushword #0
	Pushlong pScreenPort
	Pushword #6
	_SetDItemValue	;OFF with ALL radio	button

	lda #0
	ldx #2*3
	sta buttonstate,x
	inx
	inx
	dea
	sta buttonstate,x
	brl LoopModal
doAll		;
	pushword #0
	Pushlong pScreenPort
	Pushword #7
	_SetDItemValue
	pushword #1
	Pushlong pScreenPort
	Pushword #6
	_SetDItemValue
	lda #$ffff
	ldx #2*3
	sta buttonstate,x
	inx
	inx
	ina
	sta buttonstate,x
CopieDone	brl LoopModal

;
;We vector here on a paper feed radio button (AUTOMATIC, HAND FEED)
S_Copie		;
	sec
	sbc #6
	tax
	lda buttonState,x	Give me the item
	bmi CopieDone
	cpx #2*5	* button n 6
	beq doAuto

;We get here when its a HAND FEED
	pushword #1
	Pushlong pScreenPort
	Pushword #9
	_SetDItemValue
	pushword #0
	Pushlong pScreenPort
	Pushword #8
	_SetDItemValue
	lda #0
	ldx #2*5
	sta buttonstate,x
	inx
	inx
	dea
	sta buttonstate,x
	brl LoopModal

;We arrive here when its an AUTOMATIC
doAuto		;
	pushword #1
	Pushlong pScreenPort
	Pushword #8
	_SetDItemValue
	pushword #0
	Pushlong pScreenPort
	Pushword #9
	_SetDItemValue
	lda #$ffff
	ldx #2*5
	sta buttonstate,x
	inx
	inx
	ina
	sta buttonstate,x
	brl LoopModal

;
;We vector here on COLOR check box selection
;
S_Color		;
	pushword #0
	Pushlong pScreenPort
	Pushword #13
	_GetDItemValue
	pla
	eor #$ffff
	pha
	Pushlong pScreenPort
	Pushword #13
	_SetDItemValue
	Brl LoopModal

;
;We vector here on a COPIES edit item
;
S_Copies		;
	brl LoopModal

;
;We vector here on a FROM or TWO edit item selection
;
S_To		;
S_From		;
	tay
	lda #14
	brl S_Page2

;
;We go here when the user is done and has selected either OK or CANCEL
;
fin	pushlong pscreenport
	_CloseDialog
	_setport
	lda IfCancelled
	rts
	ENDP


;    JobFilter

;------------------------------------------------------------------------------
;
;  NAME:        JobFilter
;
;  PURPOSE:  _PrJobDialog's filter procedure.
;
;  PASSED:      Result	WORD, (space for result)
;               TheDialog	LONG, pointer to the dialog's grafport
;               Event	LONG, pointer to the event
;               ItemHit	LONG, pointer to the item hit
;
;  RETURNED:    IgnoreFlag	WORD, boolean, TRUE	if event is to be
;		      ignored, FALSE if calling routine
;		      should handle	event.
;
;------------------------------------------------------------------------------
	Export Jobfilter
Jobfilter	PROC
inButtDwn	equ 1
KeyDown	equ 3
AutoKey	equ 5
ItemHit	equ 7
Event	equ ItemHit+4
TheDialog	equ Event+4
Result	equ TheDialog+4
TabKey	equ 9
ReturnKey	equ 13
deleteKey	equ 127

	phd
	phb
	phk
	plb
	tsc
	tcd

	stz result	;init. result to true
;
;Copy the event record
;
	ldy #14
copyEvent	lda [Event],y
	sta IWEventRecord,y
	dey
	dey
	bpl CopyEvent

	lda ZeroPage
	tcd	;get zero page

	lda EvtWhat	;see what type of event
	cmp #KeyDown	;do KeyDown events
	beq dokey
	cmp #AutoKey	;do AutoKey events
	beq dokey
	brl notDown	;all other events pass thru.
;
;We get here when we have either a KeyDown or AutoKey events
;
Dokey		;
	lda evtmsg
	cmp #TabKey	;do tab key
	beq KeyAllowed
	cmp #returnKey	;do return key
	beq KeyAllowed
	cmp #DeleteKey	;do delete key
	beq KeyAllowed
	cmp #$30
	blt notallowed
	cmp #$3a
	bge notallowed
	bra KeyAllowed
;
;We get here when we get an event that we don't want
;
notallowed		;
	lda #-1
	sta result,s	;set results for false

KeyAllowed		;
notDown		;
	plb
	pld
	lda 0,s
	sta 12,s
	lda 2,s
	sta 14,s
	pla
	pla
	pla
	pla
	pla
	pla
	rtl
	ENDP


;    StyleDialog

;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;
;  NAME:        StyleDialog
;
;  PURPOSE:  Does most of the work for "_PrStlDialog"
;
;  PASSED:      (None)
;
;  RETURNED:    (A-reg.)=0 OK, =$ffff CANCEL
;
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------

* buttonstate for Style
* +0    US Letter
* +2*1  US Legal
* +2*2  A4 Letter
* +2*3  International Fanfold
* +2*4  Reserved for Computer Paper
* +2*5  Reserved for Tall Adjusted
* +2*6  Reserved for 50% reduction
* +2*7  No Gaps Between Pages
* +2*8  Portrait
* +2*9  Landscape

	Export StyleDialog
StyleDialog	PROC
;
;Get the pointer to	the current grafport
;
	pushlong #0
	_getport	;get the current port

;
;Calculate the dialogs boxs width
;
	lda StyleRect+6
	sec
	sbc StyleRect+2
	sta Stylewidth	;save width of dialog box

;
;Get the master SCB
;
	pha
	_GetMasterSCB	;get the SCB
	pla
	sta SCBValue	;save SCB

;
;This calculates the dialog boxes LEFT and RIGHT (depending	on 320 or 640 mode)
;
	and #$80	;look at mode (0=320, 1=640)
	sta landsc_p
	sta portrait_p
	beq loc320	;branch if 320 mode
	lda #640	;get 640
	bne loc640
loc320		;
	lda #320	;get 320
loc640		;
	sec
	sbc StyleWidth
	lsr a
	sta StyleRect+2	;adjust style dialogs LEFT
	clc
	adc StyleWidth
	sta StyleRect+6	;adjust style dialogs RIGHT

;
;This sets the appropriate pixel width for the portrait/landscape image
;
* update the bitmap	for 320/640
	lda SCBValue	;get save SCB
	and #$80	;look at mode bit
	beq w320	;branch if 320
	lda pixel640	;get the pixel width for 640
	bne ww
w320	lda pixel320	;get the pixel width for 320
ww	sta pixelwidth	;set the pixel width
	sta portrait_p+14	;set the portriat
	sta landsc_p+14	;set the landscape
	sta portrait_r+6	;set the portriat rectangle
	sta landsc_r+6	;set the landscape rectangle
	clc
	adc dstbitr1+2
	sta dstbitr1+6

;
;Adjust the left and right of the destination rectangle?
;
	lda pixelwidth
	clc
	adc #4
	adc dstbitf1+2
	sta dstbitf1+6

;
;????????????
;
	lda pixelwidth
	clc
	adc dstbitr2+2
	sta dstbitr2+6
	lda pixelwidth
	clc
	adc #4
	adc dstbitf2+2
	sta dstbitf2+6


;
;This starts the modal dialog
;
	PushLong #0
	pushlong #StyleRect	;stylerect defines the dialog box
	Pushword #1
	PushLong #0
	_NewModalDialog	;get a new modal dialog
	pla
	sta pScreenport	;save the dialog boxes handle
	pla
	sta pScreenport+2
;
;Set the dialog as the current port and	set the origin to 0
;
	pushlong pScreenport
	_Setport	;set the current port to the dialog
	pushlong #0
	_setOrigin	;set the origin to zero
;
* draw the upper line
;
	pushlong l1
	_moveto
	pushlong l2
	_lineto
;
*let's draw the inactive strings (printers name/ports name)
;

	PushLong namepos	;move to where to put printer name
	_moveto
	PushLong #0
	_PmGetPrinterName	;get the printer types name
	_DrawString	;draw it
	pushlong #SlashStr
	_DrawString	;draw a "/" char.
	PushLong #0
	_PmGetPortName	;get the ports name
	_DrawString	;draw it

;------------------------------------------------------------------------------
;This draws the inactive strings using tables
;------------------------------------------------------------------------------
	lda Istrnum	;get number of strings to draw
	dea
	asl a
	asl a
	tax	;use as an index

strloop	phx	;save index
	lda Iposlist+2,x	;get position to draw at
	pha
	lda Iposlist,x
	pha
	_moveto	;move to position
	plx
	phx
	lda Istrlist+2,x	;get address of text to draw
	pha
	lda Istrlist,x
	pha
	_drawstring	;draw the text
	plx
	dex	;adjust index to next string
	dex
	dex
	dex
	bpl strloop	;loop for all strings in table

;
* create the OK Item
;
	PushLong pScreenPort
	Pushword #1	;OK button (default	for CR)
	pushlong #OKrect
	Pushword #ButtonItem
	pushlong #okstr
	PushWord #0
	PushWord #0
	PushLong #0
	_newDItem

;
;Create the CANCEL button
;
	PushLong pScreenPort
	Pushword #2	cancel
	pushlong #cancelrect
	Pushword #ButtonItem
	pushlong #cancelstr
	PushWord #0
	PushWord #0
	PushLong #0
	_newDItem

;
;* create the radio	items
;
	lda #0
Radioloop	pha
	asl a
	asl a
	tax	;X-reg. points to correct item in list

	PushLong pScreenport ;dialogs port

	lda 5,s	;get the current item count off stack
	clc
	adc #3	;start at 3 (1 is ok, 2 is cancel)
	pha	;push the Id
	lda ArectList+2,x	;push the items bounds rectangle
	pha
	lda ArectList,x
	pha
	cpx #7*4	;special case out type of item
	blt rad
	pushword #CheckItem	;we get here for a check item
	bra com
rad		;
	pushword #radioItem	;we get here for a radio item
com		;
	lda AstrList+2,x	;push the items descriptor
	pha
	lda AstrList,x
	pha
	PushWord #0	;Items value

	cpx #5*4	; If done with paper radio button
	blt Family0	; then change family # to 1 for
	PushWord #1	; VSize radio buttons
	bra Next

Family0	PushWord #0	;Items flag
Next	PushLong #0	;Items color
	_newDItem	;Create the new item
	pla	;get the saved counter
	cmp #3
	bne nojump	;do first four items

	inc a	;skip 50% reduction
nojump		;
	inc a	;goto NO GAPS
	cmp AStrNum
	bne Radioloop
;
;* draw the bitmaps	for portrait/landscape
;
	pushlong #0
	_getport
	pla
	sta PP_portrait+4
	sta PP_Landsc+4
	pla
	sta PP_portrait+6
	sta PP_Landsc+6

	pushlong #PP_portrait
	_paintPixels	;paint portrait
	pushlong #PP_Landsc
	_paintPixels	;paint landscape

	pushlong #dstbitf1
	_framerect	;frame portrait
	pushlong #dstbitf2
	_framerect	;frame landscape

;
;Now determine invert the current selected mode for portriat/landscape
;
	lda buttonstate+2*8	;get portraits button state
	bpl startLands	;branch if not selected
;
;we get here if portriat
;
	pushlong #dstbitf1
	_invertRect	;invert the portrait image
	pushlong #dstbitf1
	_framerect	;frame the portrait	image
	bra startport
;
;We get here if landscape
;
startLands		;
	pushlong #dstbitf2
	_invertRect	;invert the landscape image
	pushlong #dstbitf2
	_framerect	;frame the landscape image

;
;This gets the pointers to the control items
;
startPort		;
	lda #1
GetptrLoop	pha
	tay
	pushlong #0
	pushlong pScreenPort
	Phy
	_GetControlDItem
	lda 5,s
	asl a
	asl a
	tax
	pla
	sta ptrList,x	;save the pointer in list
	pla
	sta ptrList+2,x
	pla
	ina
	cmp #11+1
	bne GetptrLoop
;
;This activates the	radio buttons
;
	lda #3
looop	pha
	asl a
	tax
	lda buttonstate-6,x
	bpl forgetthisone
	pla
	pha
	asl a
	asl a
	tax
	ldy #1
	jsr SetButtonValue
forgetthisone	pla
	ina
	cmp #8
	bne looop	; items 8 - 11 are not as normal

	lda buttonstate+2*10 ; Normal Vsize
	bpl Onto9	; Not selected
	ldx #8*4	; item #8 is the oddest
	ldy #1	; ON
	jsr SetButtonValue

Onto9	lda #9	; Items 9 - 11
loop1	pha	; offset to buttonstate are
	asl a	; different than that of 3 - 7
	tax
	lda buttonstate-8,x
	bpl SkipIt
	pla
	pha
	asl a
	asl a
	tax
	ldy #1
	jsr SetbuttonValue
SkipIt	pla
	ina
	cmp #12
	bne loop1

;------------------------------------------------------------------------------
;
;This is the modal dialog loop
;
;------------------------------------------------------------------------------
loopModal		;   
	PushWord #0
	PushLong #StyleFilter+$80000000 ;handles portrait/lands. images
	_modalDialog
	pla
	beq loopModal	;loop until a response

	cmp #12	;see if valid item
	bge loopModal	;branch if not
;
;Now vector to correct routine to handle the item
;
	asl a	;convert item number to index
	tax
	jmp (Action-2,x)	;vector to routine to handle item

Action		;

	DC.W S_OkEvent	1
	DC.W S_Cancelevent	2
	DC.W S_Paper	3 - US Letter
	DC.W S_Paper	4 - US Legal
	DC.W S_Paper	5 - A4 Letter
	DC.W S_Paper	6 - International fanfold
	DC.W S_Paper	7 - Reserved for computer paper
	DC.W S_Vsize	8 - Normal VSize
	DC.W S_Vsize	9 - Condensed VSize
	DC.W S_Spe	10 - 50%
	DC.W S_Spe	11 - No Gap


;
;We vector here on OK button
;
S_okEvent		;
	lda #$ffff
	sta IfCancelled	;clear if cancled flag
	brl fin
;
;We vector here on CANCEL button
;
S_CancelEvent		;
	stz IfCancelled	;set if cancled flag
	brl fin

;
;We vector here on a paper radio button	selection
;
S_paper		;
	sec
	sbc #6
	tax
	lda buttonState,x	Give me the item
	bmi PaperDone
	phx

* clear the current	one
	ldx #0
searchmore	lda buttonState,x
	bmi clearit
	inx
	inx
	cpx #5*2
	bne searchmore
	bra PaperDone
clearit	
	stz buttonState,x
	txa
	lsr a
	clc
	adc #3
	asl a
	asl a
	tax
	ldy #0
	jsr SetButtonValue

* Mark the new one

	plx
	phx
	lda #$FFFF
	sta buttonstate,x
	pla
	lsr a
	clc
	adc #3
	asl a
	asl a
	tax
	ldy #1
	jsr SetButtonValue

PaperDone	brl LoopModal

;
; We vector here on	a special size selection
;
S_VSize	cmp #16	; is it 2 x 8?
	beq SetNormal	; yes, user picked normal

	lda #0	; user picked condensed - 9
	sta buttonstate+2*10 ; normal off
	dec a
	sta buttonstate+2*5	; condensed on
	ldx #9*4	; offset for condensed
	ldy #1	; ctrl value in y, we want ON now
	jsr SetButtonValue

	ldx #8*4	; offset for normal
	ldy #0	; now we want OFF
	jsr SetButtonValue

	brl LoopModal

SetNormal		;
	lda #0	; user picked normal - 8
	sta buttonstate+2*5	; condensed on
	dec a
	sta buttonstate+2*10 ; normal off
	ldx #9*4	; offset for condensed
	ldy #0	; ctrl value in y, we want OFF now
	jsr SetButtonValue

	ldx #8*4	; offset for normal
	ldy #1	; now we want ON
	jsr SetButtonValue

	brl LoopModal

S_Spe		;
	pha
	sec
	sbc #8
	tax
	lda buttonState,x	Give me the item
	eor #$ffff
	sta buttonstate,x
	pla
	asl a
	tax
	phx
	pushword #0
	lda PtrList+2,x
	pha
	lda PtrList,x
	pha
	_GetCtlValue
	pla
	plx
	and #1
	eor #1
	tay
	jsr SetbuttonValue
	brl LoopModal
;
;We go here when the user has selected OK or CANCEL
;
fin	pushlong pscreenport
	_CloseDialog	;close the dialog box
	_setport	;set back to the previous port
	lda IfCancelled	;get the OK/CANCEL flag
	rts


	
;------------------------------------------------------------------------------
;
; NAME:         SetButtonValue
;
; PURPOSE:      Sets the control value to the value passed in Y-reg.
;
; PASSED:       (Y-reg.)	0 = clear, 1= set
;               (X-reg.)	offset to the table	of handles
;
; RETURNED:  NONE
;
;------------------------------------------------------------------------------
	EXPORT SetButtonValue
SetButtonValue

	phy
	lda PtrList+2,x	; get handle to control
	pha
	lda PtrList,x
	pha
	_SetCtlValue	; set it

	rts

	ENDP


;    StyleFilter

;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;
;  NAME:        StyleFilter
;
;  PURPOSE:  Filter	procedure for "StyleDialog" to detect when a button down
;               event has occured on one of the portrait/landscape picture
;               bitmaps.
;
;  PASSED:      Result	WORD, (space for result)
;               TheDialog	LONG, pointer to the dialog's grafport
;               Event	LONG, pointer to the event
;               ItemHit	LONG, pointer to the item hit
;
;  RETURNED:    IgnoreFlag	WORD, boolean, TRUE	if event is to be
;		      ignored, FALSE if calling routine
;		      should handle	event.
;
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------

Stylefilter	PROC EXPORT
inButtDwn	equ 1
ItemHit	equ 7
Event	equ ItemHit+4
TheDialog	equ Event+4
Result	equ TheDialog+4

;Save registers and	setup environment
	phd
	phb
	phk
	plb
	tsc
	tcd

	stz result	;init result to true

;Copy Event record
	ldy #14
copyEvent	lda [Event],y
	sta IWEventRecord,y
	dey
	dey
	bpl CopyEvent

	lda ZeroPage
	tcd

;Now see what kind of event it was
	lda EvtWhat	;get kind of event
	cmp #inButtDwn	;see if it was a button down
	beq down
	brl notDown	;exit if not
;
;We get here when we have a button down	event
;
Down		;

;Now see if it was in one of the bitmap	images
	PushLong pScreenPort
	_setPort
	PushWord #0
	PushWord #0
	_setOrigin
	pushlong #EvtWhere
	_globaltolocal
	pha
	pushlong #EvtWhere
	pushlong #dstbitf1
	_ptInrect	;see if it is in the portrait bitmap
	pla
	beq NotIn1	;branch if not
;
;We get here if it was a button down event in the portrait bitmap image
;
	ldx #2*8
	lda buttonstate,x	;get the current state
	bpl invertthem	;branch if changed
	brl notdown	;branch if no change
;
;We now test for in	the landscape bitmap image
;
NotIn1		;
	pha	;for result
	pushlong #EvtWhere
	pushlong #dstbitf2
	_ptInrect
	pla	;get result
	beq NotDown	;branch if not in landscape bitmap
;
;We get here if it was a button down event in the landscape	bitmap image
;
	ldx #2*9
	lda buttonstate,x	;look at the current state
	bpl invertthem	;branch if changed
	brl notdown	;branch if no change
;
;We get here when we need to change the	portrait/landscape images
;
invertThem		;
	ldx #2*8
	lda buttonstate,x	;get the current portrait state
	eor #$ffff
	sta buttonstate,x	;invert it
	inx
	inx
	lda buttonstate,x	;get the current landscape state
	eor #$ffff
	sta buttonstate,x	;invert it

	pushlong #dstbitf1
	_invertRect	;invert portrait image
	pushlong #dstbitf1
	_framerect	;frame portrait image
	pushlong #dstbitf2
	_invertRect	;invert landscape image
	pushlong #dstbitf2
	_framerect	;frame landscape image
;
;We get here when we are done or it wasn't a button down event
;
notDown		;
	plb
	pld
	lda 0,s
	sta 12,s
	lda 2,s
	sta 14,s
	pla
	pla
	pla
	pla
	pla
	pla
	rtl
	ENDP

	
;    InfoDialogs

;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;
; INFORMATION DIALOG ROUTINES
;
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------

InfoDialogs	PROC EXPORT

;------------------------------------------------------------------------------
;
;  NAME:        OpenInfoPrepare
;
;  PURPOSE:  Brings	up window which indicates what is about	to happen.
;                IMMEDIATE MODE: "Printing in Draft mode ..."
;                DEFERRED MODE:  "Preparing Data ..."
;
;  PASSED:      NONE
;
;  RETURNED:    NONE
;
;------------------------------------------------------------------------------

	EXPORT OpenInfoPrepare
OpenInfoPrepare
	PushLong #0
	_getport	;get current port and save it

	pha
	_GetMasterSCB	; check mode from SCB
	pla
	and #$80	;see which mode
	beq loc320	;branch if 320 mode
;
;We get here if its	640 mode
;
	lda infowidth640
	sta StyleWidth	;set the style width for 640
	lda #640	;get 640
	bne loc640	;branch
;
;We get here if its	320 mode
;
loc320		;
	lda infowidth320
	sta StyleWidth	;set the style width for 320
	lda #320	;get 320
;
;Remember: (A-reg. is 320 or 640 depending on mode)
;
loc640		;
	sec
	sbc StyleWidth
	lsr a
	sta InfoRect+2	;set left
	clc
	adc StyleWidth
	sta InfoRect+6	;set right

	PushLong #0
	pushlong #InfoWindow
	_NewWindow	;bring up a new window

	pla
	sta infoDPort	;save it
	pla
	sta infoDPort+2

	pushlong infoDPort
	_setPort	;set it as current port

	Pushlong InfoStrPos	;move to strings starting position
	_moveto

	lda method	;get method (immediate, deferred)
	bpl draftStr	;branch if immediate

;------------------------------------------------------------------------------
; Deferred Mode
;------------------------------------------------------------------------------
	pushlong #InfoStrPrep	;get string "Preparing Data ..."
	bra DrawIt

;------------------------------------------------------------------------------
; Immediate Mode
;------------------------------------------------------------------------------
draftStr		;
	pushlong #InfoStrDraft ;get string "Printing in Draft mode ..."

DrawIt	_drawString	;draw the string in	the window

	_setPort	;restore the old port

	rts

	
;------------------------------------------------------------------------------
;
;  NAME:        CloseInfo
;
;  PURPOSE:  Closes	the info window.
;
;  PASSED:      NONE
;
;  RETURNED:    NONE
;
;------------------------------------------------------------------------------

	EXPORT CloseInfo
CloseInfo
	PushLong infoDPort
	_closeWindow
	rts
	ENDP


	
;------------------------------------------------------------------------------
;
;  NAME:        OpenInfoPrinting
;
;  PURPOSE:  Prepares and draws the opening info window
;
;  PASSED:      NONE
;
;  RETURNED:    NONE
;
;------------------------------------------------------------------------------

OpenInfoPrinting	PROC Export

;StatText       equ	15
;ButtonItem     equ	10

ByteOffset	equ 5	; since bitOffset is 40
ColorRibbon	equ $0080
SheetFeeder	equ $0040
PaperOut	equ $0020
CoverOpen	equ $0010
OffLine	equ $0008
ShtFdrEmpty	equ $0044
PaperJam	equ $0004
PrinterFault	equ $0002
HeadMoving	equ $0001
PrinterBusy	equ $8000


	pha
	_GetMasterSCB	; check mode
	pla
	and #$80
	beq loc320	;branch if 320 mode

;We arrive here if its 640 mode
	lda infowidth640
	sta StyleWidth	;set the width
	lda #640
	bra loc640

;We arrive here if its 320 mode
loc320		;
	lda infowidth320
	sta StyleWidth	;set the width
	lda #320

loc640		;
	sec
	sbc StyleWidth
	lsr a
	sta InfoRect+2	;set left
	clc
	adc StyleWidth
	sta InfoRect+6	;set right

	PushLong #0
	pushlong #InfoWindow
	_NewWindow	;bring up the window
	pla
	sta infoDPort
	pla
	sta infoDPort+2

	lda #PrintProcess	; go draw the string
	ldx #^PrintProcess
	jsr ShowString

	rts
	

;------------------------------------------------------------------------------
;
;  NAME:        GetStatus
;
;  PURPOSE:  Checks	for new status and displays the approapriate status message.
;
;  PASSED:      NONE
;
;  RETURNED:    NONE
;
;  status buffer structure:
;   bytes 0-3 : system stuff
;   byte 4    : length byte of string
;   byte 5    : status bits
;               0: color	$0080
;               1: sheetfeeder	$0040
;               2: out of paper	$0020   
;               3: cover open	$0010
;               4: printer off line	$0008
;               5: paper jam	$0004
;               6: printer fault	$0002
;               7: print head is moving	$0001
;   byte 6      : more status bits
;               0: printer is busy	$8000
;
; Special note:	ShtFdrEmpty equ $0044
; If a sheetfeeder is installed, it send back "paper jam" when it is out of paper
; not the usual "out of paper" error. 
;
;------------------------------------------------------------------------------
	EXPORT GetStatus
GetStatus
	Jsr StatusPrinter	;see if its time to	status device
	bcc doit
	lda StatusError
	sta PStatus
AllsClear	rts

doit
	ldx #byteOffset	; pick up the status bytes
	lda InfoStrBuffer,x
	tay	; save for further use
	and #PaperOut	; mask out other bits
	beq PaperNotOut
PaperOutMsg	lda #1
	sta PStatus	; non zero indicates error
	lda #PaperOutStr	; set up for the appropriate
	ldx #^PaperOutStr	; string
	bra ShowString	; go and display it

PaperNotOut
	tya
	and #CoverOpen
	beq CoverNotOpen
	lda #1
	sta PStatus	; non zero indicates error
	lda #CoverOpenStr
	ldx #^CoverOpenStr
	bra ShowString

CoverNotOpen
	tya
	and #PaperJam
	beq PaperNotJam
	tya
	and #ShtFdrEmpty
	cmp #PaperJam
	bne PaperOutMsg
	lda #1
	sta PStatus	; non zero indicates error
	lda #PaperJamStr
	ldx #^PaperJamStr
	bra ShowString

PaperNotJam
	tya
	and #OffLine
	beq NoProblem
	lda #1
	sta PStatus	; non zero indicates error
	lda #OffLineStr
	ldx #^OffLineStr
	bra ShowString

NoProblem	stz PStatus
	lda #PrintProcess
	ldx #^PrintProcess

	EXPORT ShowString
ShowString
	ldy NoShowMessage	; do we need to show the status?
	bne ExitShowStatus	; non zero says no
	
	sta Temp1
	stx Temp1+2

	PushLong #0
	_getport	;get current port
	PushLong infoDPort
	_setPort	;set to info. dialog port
	
	lda Temp1+2
	pha
	lda Temp1
	inc a
	pha
	lda [Temp1]	; length of the text
	and #$00FF	; lo byte only
	pha
	lda SCBValue	; check the mode we are in
	and #$0080
	beq IsMode320
	pushlong #InfoRect640	; use 640 mode rectangle
	bra GoOn
IsMode320	pushlong #InfoRect320	; use 320 mode rectangle
GoOn	lda #0
	pha	; left justification
	_LETextBox2

	_setPort	;restore the port

ExitShowStatus	rts

;------------------------------------------------------------------------------
;
;  NAME:        StatusPrinter
;
;  PURPOSE:  Gets the status from the device
;
;  PASSED:      NONE
;
;  RETURNED:    (Carry Flag) CLEAR= device was statused, SET=device not statused?
;
;------------------------------------------------------------------------------
	EXPORT StatusPrinter
StatusPrinter
;               PushLong #0
;               _TickCount	;get the system tick count
;               plx
;               pla
;               cmp	newdate+2
;               beq	testlower
;               blt	ExitStatus
;testLower      txa
;               cmp	NewDate
;               blt	ExitStatus

;               PushLong #0
;               _TickCount
;               pla
;               clc
;               adc	#60*5
;               sta	NewDate
;               pla
;               adc	#0
;               sta	NewDate+2

;
;We get here when its time to restatus the device
;

	ldx #4	; zero out the length in byte 5
	stz InfoStrBuffer,x

LoopStatus	pushlong #InfoStrBuffer
	_PrDevStatus	;get the status of the device
	sta StatusError
	bcs Exit

	ldx #5
	lda InfoStrBuffer,x	; the printer tends	to randomly
	and #$00FF	; return $FF
	cmp #$00FF
	beq LoopStatus

	clc	;clear carry
Exit	Rts

ExitStatus
	sec	;set carry
	Rts

NewDate	DS.B 4

	ENDP

;    PrPicFile

*****************************
*	        *
* PrPicFile	        *
*	        *
* Current Rev: Nov.	1987    *
*	        *
*****************************

;------------------------------------------------------------------------------
*
* NAME:         PrPicFile
*
* PURPOSE:      To print a picture file
*
* PASSED:       Users Print Record    LONG      Handle to print record
*               PortPtr               LONG      Pointer to graf port
*               PRStatus              LONG      Pointer to status record
*
* RETURNED:  NONE
*
* NOTE:PortPtr cannot be same one returned by OpenDOC if we
* allocated it ourselves.
*
* PortPtr can be zero.
*
******************************************************************
PrPicFile	PROC EXPORT

	DefineStack
OrigD	word 0
OrigB	byte 0
rtl1	block 3
rtl2	block 3
UsersStatusPtr	long 0
UsersPortPtr	long 0
UsersPrintRecH	long 0

* we need to get memory for everything.
*
* If the application gave us pPrPort, we will use it,
* otherwise we will	use our.

	pha
	lda >iPrErr	;see if any errors
	beq Continue	;branch if no errors
	cmp #PortNotOn	;see if port was not on
	bne Continue
	plx
	jmp Exit12

Continue		;
	pla
	phd
	tcd
	phb	;save bank reg
	phk
	plb	;use our bank


;--------------------------------------------------------------
;
; Look at the error	code again.  If it is zero we go and print.
; if it is none zero, we do not allocate anything for printing
; and we dispose of	things already allocated.
;
	import IProcAbortEnable	;Command-Period Bug Fix - Ben 1/25/90
	lda #0
	sta >IProcAbortEnable

	lda iPrErr
	beq GoAheadAndMakeMyDay

	jmp PortDone

GoAheadAndMakeMyDay		;

	lda method
	bmi spoolPrt

	jsl $E10068	; in draft printing we do nothing, except perhaps dec the
	brl Exit	; busy flag as a kludge fix for BRC#55874... Ben 1/25/90

spoolprt		;
	jsr OpenInfoPrinting ; put up dialog
	
;------------------------------------------------------------
;
; Bring inputs to zero page.
;

	lda UsersStatusPtr,s
	sta PZ_PrStatus
	lda UsersStatusPtr+2,s
	sta PZ_PrStatus+2

	lda UsersPrintRecH,s
	sta PZ_hPrint
	lda UsersPrintRecH+2,s
	sta PZ_hPrint+2

	lda UsersPortPtr,s
	sta PZ_pPrPort
	lda UsersPortPtr+2,s
	sta PZ_pPrPort+2

;------------------------------------------------------------
;
; Look at port pointer.  If it is nil, get our own.
;

	lda #false
	sta ourport

	lda PZ_pPrPort
	ora PZ_pPrPort+2
	bne userPort
	lda #true
	sta ourport

	lda #PortSize
	ldx #%1000000000011000 ; locked and dont cross bank
	jsr OurGetHandle
	sta PZ_pPrPort
	stx PZ_pPrPort+2

	lda [PZ_pPrPort]
	tax
	ldy #2
	lda [PZ_pPrPort],y
	sta PZ_pPrPort+2
	stx PZ_pPrPort

userPort		;
	pei PZ_pPrPort+2
	pei PZ_pPrPort
	_OpenPort


;------------------------------------------------------------
;
; Now look at status record pointer
;

	lda #false
	sta ourStatus

	lda PZ_PrStatus
	ora PZ_PrStatus+2
	bne userStatus

	lda #OurStatusRecord
	sta PZ_PrStatus
	lda #^OurStatusRecord
	sta PZ_PrStatus+2

	lda #true
	sta ourStatus

UserStatus		;
;------------------------------------------------------------
;
; Initialize the status record
;
	ldy #StatRecSize-2	; first zero it
	lda #0
ZeroLoop	sta [PZ_PrStatus],y
	dey
	dey
	bpl ZeroLoop

	lda PZ_PrStatus	; put pointer to port in status rec
	ldy #pPrPort
	sta [PZ_PrStatus],y
	iny
	iny
	lda PZ_PrStatus+2
	sta [PZ_PrStatus],y

	lda PZ_hPrint	; put handle to print record
	ldy #shPrint	; into status record.
	sta [PZ_PrStatus],y
	iny
	iny
	lda PZ_hPrint+2
	sta [PZ_PrStatus],y


;------------------------------------------------------------
;
; Transfer the print record to the internal print record.
;
	PushLong PZ_HPrint
	PushLong #HPrint
	PushLong #TPrintSize
	_HandToPtr

;-----------------------------------------------------------
;
; Check if landscape is selected. Garbage is printed if we use more than the
; standard size. Quick and dirty fix.
;

	lda hPrint+PrStl+wDev
	and #f1
	bne @1
	lda hPrint+PrXinfo+iDevBytes
	bra UseStandard

;------------------------------------------------------------
;
; Get memory for the print buffer. First check to see what is available.
;
@1	pha
	pha
	_MaxBlock	; find out the largest block available
	pla
	sta AvailMemBlock
	pla
	bne MoreThan64K
	
	lda hPrint+PrXinfo+iDevBytes
	cmp AvailMemBlock	; If mem available is <= std size,
	bge UseStandard	; then just use standard 
	bra FindBandHeight	; else use the available
	
;-----------------------------------------------------------
;
; There's more than the standard amount of memory needed, go calculate the new band
; size.
;

MoreThan64K	lda #Mem64K	; we'll just use up to 64K
	sta AvailMemBlock
	
FindBandHeight	pha	; space for remainder	
	pha	; space for quotient	
	lda AvailMemBlock	; memory available
	pha
	lda hPrint+PrXinfo+iRowBytes
	pha	; divided by # of bytes per row
	_UDivide
	pla
;
; 6/14/89 Mensch and Steve Glass think that the low level print drivers can not handle
; having a band buffer that is not a multiple of 8 rows. We feel this is the case because 
; of the way the printer creates empty lines for the end of a band. This small change should
; fix the problem if this was the bug.
;
	and #$FFF8
	sta hPrint+PrXinfo+iBandV
	pla	; ignore remainder
	
	lda AvailMemBlock
	
UseStandard		; size for buffer is in A
	ldx #%1000000000011000 ; locked and dont cross bank
	jsr OurGetHandle
	bcc @1
	sta iPrErr
	bra CleanUp	; fail to get memory
@1	sta hprBuf
	stx hprbuf+2
	
	lda [hprbuf]
	sta pPrBuf
	ldy #2
	lda [hprbuf],y
	sta pPrBuf+2


;------------------------------------------------------------
;
; lit la valeur dans le buffer de la picture.
; (initialize the page number field of status record?)

	lda ipagenum
	ldy #itotpages
	sta [PZ_PrStatus],y

;-----------------------------------------------------------
;
; In order to use better text mode, Quick Draw's buffer will need to be twice as big
; since we double the size. Check to see if we got enough room.
;

	stz NuBuffSize

	lda hprint+prStl+wDev ; is it better text mode?
	and #f0	;
	beq MoveOn	; nah, we're OK

	pushlong #SizeInfo	; get the information from Quick Draw
	_SaveBufDims

	lda #BTBuffSize	; the size we need is twice the scan line width 
	cmp maxWidth
	blt MoveOn	; we got enough or more

	pha	; required size is in A
	PushWord TextBufHeight
	PushWord fontWidth
	_SetBufDims	; set it to 

	dec NuBuffSize

MoveOn

;-----------------------------------------------------------
;
; Now go do setup and actually print the document
;

	jsr PrPrintit	; parameters are shared in zero page

	lda NuBuffSize	; did we change the	size of the buffer?
	beq NoRestore	; nope

	pushlong #SizeInfo	; yep, restore it back to original values
	_RestoreBufDims

NoRestore
;------------------------------------------------------------
;
; maintenant libere	les buffers si ce sont les notres
; Or (now free the buffers that we own.)
;
	pushlong hprbuf
	_disposehandle

;------------------------------------------------------------
;
; Close the port.
;
CleanUp
	pushLong PZ_pPrPort
	_closePort

	lda ourport
	cmp #true
	bne portdone

	pha
	pha
	PushLong PZ_pPrPort
	_FindHandle
	_disposehandle

	jsr CloseInfo	; get rid of window	dialog

Portdone		;

;----------------------------------------------------------
;
; Kill each of the pictures in the piclist, using ifstpage
; ilstpage as start	and end points.
;
	lda [hPicList]	; first deref the pic list
	sta pPiclist
	ldy #2
	lda [hPicList],y
	sta pPicList+2

	ldx #0	; start at 0
KillNextPic	cpx iPageNum	; check against total pages
	bcs KillPicList	; no more if >= pagenum
	txa
	asl a	; mult by 4
	asl a
	tay	; use as index into	table
	lda [pPicList],y
	sta hnewPic
	iny
	iny
	lda [pPicList],y
	sta hNewPic+2

	phx	; save counter

	PushLong hNewPic	; Dispose of this picture
	_KillPicture

	plx	; get X back
	inx	; bump count

	bra KillNextPic

;------------------------------------------------------------------
;
; Now we can get rid of the picList itself
;

KillPicList	PushLong hPicList
	_DisposeHandle

	PushLong CursorAd
	_SetCursor

Exit		;
	lda iPrErr	this will be the normal exit
	plb
	pld
	jmp exit12


SizeInfo		; size info record return from SaveBufDims
maxWidth	DS.B 2
TextBufHeight	DS.B 2
TextBufWidth	DS.B 2
fontWidth	DS.B 2
NuBuffSize	DS.B 2	; flag to indicate we messed with the buffer size
AvailMemBlock	DS.B 2	; size of available memory block, up to 64K

	ENDP
	

;------------------------------------------------------------------------------
*
* NAME:         PrPixelMap
*
* PURPOSE:      Prints out the pixel map
*
* PASSED:       SrcLocPtr	LONG, ptr to source	LocInfo
*               SrcRectPtr	LONG, ptr to source	rect
*               ColorFlag	WORD, 0 = B/W, else	Color
*
* RETUNED:      NONE
*
;------------------------------------------------------------------------------
PrPixelMap	PROC EXPORT


	DefineStack
OrigD	word 0
OrigB	byte 0
rtl1	block 3
rtl2	block 3
ColorFlag	word 0
SrcRectPtr	long 0
SrcLocPtr	long 0


	pha	; save value of d

	pha
	_DevIsItSafe
	pla
	bne Yes
	lda #PortNotOn
	sta >iPrErr
	plx
	jmp Exit10
Yes		;
	pla

;------------------------------------------------------------
;
; save the registers and set direct page and data bank
;
	phd
	tcd
	phb
	phk
	plb

;------------------------------------------------------------
;
; Get the current port's pointer and leave it on the stack
; for restoring just before returning.
;
	pha
	pha
	_GetPort

;------------------------------------------------------------
;
; Get the current cursor record's address and turn on the watch cursor.
;

	PushLong #0	; space for the address
	_GetCursorAdr
	pla
	sta CursorAd
	pla
	sta CursorAd+2

	_WaitCursor

;------------------------------------------------------------
;
; Clear the error code and stack location variable used by idleproc and 
; disallow status display
;

	stz iPrErr	; zero error
	stz stackLoc	; stack loc used by idleproc

	lda #True
	sta NoShowMessage

;------------------------------------------------------------
;
; Get new handle for print record. This	is necessary because
; StartLLD uses the	values in the print	record to set up
; parameter such as	page rectangle, color and quality for
; the printer.
;

	lda #TPrintSize	; size of handle
	ldx #%1000000000011000 ; attributes
	jsr OurGetHandle

	sta PrintRecord
	stx PrintRecord+2

	PushLong PrintRecord
	_PrDefault

;------------------------------------------------------------
;
; Check if the application asked for color. If so, set bit
; 5 of wdev in prStl of the print record.
;

	lda ColorFlag+4,s
	beq BlackWhite
	lda hprint+prStl+wDev
	ora #f5
	sta hprint+prStl+wDev

BlackWhite		;

;----------------------------------------------------------
;
; Put a pointer to our IDLE proc in the print record
;

	lda #<PrAbortCheck
	sta hPrint+PrJob+pIdleProc
	lda #^PrAbortCheck
	sta hPrint+PrJob+pIdleProc+2

;------------------------------------------------------------
;
; Get a handle for a grafport.
;
	lda #PortSize	; size of handle
	ldx #%1000000000011000 ; attributes
	jsr OurGetHandle

	sta temp1
	stx temp1+2
	lda [Temp1]
	sta PZ_pPrPort
	ldy #2
	lda [Temp1],y
	sta PZ_pPrPort+2

;------------------------------------------------------------
;
; Open the grafport.
;
	pei PZ_pPrPort+2
	pei PZ_pPrPort
	_OpenPort

;-----------------------------------------------------------
;
; Start up the low level driver
;

	jsr startLLD
	bcc Continue	; error checking added

	sta iPrErr	; by Suki 5/25/88
	brl ErrorExit

;------------------------------------------------------------
;
; Get source bitmap	information off the	stack into local area
;

Continue
	lda SrcLocPtr+4,s
	sta temp1	; temp1 has Ptr to SrcLoc
	lda SrcLocPtr+2+4,s
	sta temp1+2

	ldy #14
MoveLoc	lda [temp1],y
	sta LocalLoc,y
	dey
	dey
	bpl MoveLoc

	lda temp1
	clc
	adc #8
	sta LocalBoundsPtr	; this ptr used for	intersection call
	lda temp1+2
	adc #0
	sta LocalBoundsPtr+2

	lda SrcRectPtr+4,s
	sta temp2	; temp2 is ptr to source rect
	lda SrcRectPtr+2+4,s
	sta temp2+2

	PushWord #0	; Result
	PushLong LocalBoundsPtr
	PushLong temp2
	PushLong #LocalRect	; intesected rect goes here
	_SectRect
	pla
	beq NoIntersection	; if false, no intersection

;---------------------------------------------------------------
;
; Look at the source rect.  If its upper/left corner is 0,0
; then no adjustment is necessary.  If it is not 0,0, we must
; adjust the pointer to the pixel map so that it points to
; the first pixel in the source rect.
;
; Note that this scheme does not work with source rects that
; do not have the first pixel to draw as the first pixel in
; a byte.
;
	lda LocalRect
	sec
	sbc LocalLoc+8
	beq NoAdjustmentY

	pha	; space for result
	pha
	pha	; Top of src rect
	PushWord LocalLoc+6	; width
	_Multiply
	pla
	clc
	adc LocalLoc+2
	sta LocalLoc+2
	pla
	adc LocalLoc+4
	sta LocalLoc+4

NoAdjustmentY		;
	lda LocalRect+2
	sec
	sbc LocalLoc+10
	beq NoAdjustmentX

	lsr a
	bit LocalLoc-1
	bpl ModeWas320
	lsr a
ModeWas320	clc
	adc LocalLoc+2
	sta LocalLoc+2
	bcc NoCarryHere
	inc LocalLoc+4
NoCarryHere		;
NoAdjustmentX		;

	lda LocalRect
	sta LocalLoc+8
	lda LocalRect+2
	sta LocalLoc+10
	lda LocalRect+4
	sta LocalLoc+12
	lda LocalRect+6
	sta LocalLoc+14

;------------------------------------------------------------
;
; Call LLDBitMap using the adjusted (if	necessary) values in
; LocalLoc and LocalRect.
;

	PushLong #LocalLoc
	PushLong #LocalRect
	PushWord UserID
	jsl LLDBitMap

	jsl NewPage	; spit out paper when we're done


;------------------------------------------------------------
;
; Close the grafport.
;

NoIntersection		;
;------------------------------------------------------------
;
; We need to shut down low level driver.
;
	pushword UserID
	jsl LLDShutDown


ErrorExit
	pei PZ_pPrPort+2
	pei PZ_pPrPort
	_ClosePort

;------------------------------------------------------------
;
; Get rid of the memory we allocated for grafport and print
; record.
;
	pha	; first find the handle to
	pha	; memory that port is in.
	pei PZ_pPrPort+2
	pei PZ_pPrPort
	_FindHandle
	_DisposeHandle	; then dispose it.

	PushLong PrintRecord
	_DisposeHandle

;------------------------------------------------------------
;
; Turn off the watch cursor.

	PushLong CursorAd
	_SetCursor

;------------------------------------------------------------
;
; Restore the user's last current port, the pointer to it was
; left on the stack	at the beginning of	this routine.
;
	_SetPort

;------------------------------------------------------------
;
; We are done.
;

	lda iPrErr
	plb
	pld
	jmp Exit10


PrintRecord	DS.B 4
LocalBoundsPtr	DS.B 4
LocalLoc	DS.B 16
LocalRect	DS.B 8

	ENDP
	

;    PrPrintIt
;------------------------------------------------------------------------------
*
* NAME:         PrPrintIt
*
* PURPOSE:      Prints one page (an internal routine called	by PrPicFile.)
*               (All parameters are passed via zero page and in memory.)
*
* PASSED:       NONE
*
* RETURNED:  NONE
*
;------------------------------------------------------------------------------
PrPrintit	PROC EXPORT

	tsc	; keep the current stack location around for
	sta StackLoc	; use in LLDIdleProc
		
;----------------------------------------------------------
;
; We look at the idle proc in the print	record.
; If it is NIL then	we put a pointer to	our IDLE proc
; in its place.
;

	lda hPrint+PrJob+pIdleProc
	ora hPrint+PrJob+pIdleProc+2
	bne useridle
	lda #<PrAbortCheck
	sta hPrint+PrJob+pIdleProc
	lda #^PrAbortCheck
	sta hPrint+PrJob+pIdleProc+2
useridle		;

LoopWait	jsr GetStatus
	jsl CallIdleProc
	lda PStatus
	bne LoopWait

;----------------------------------------------------------
;
; Start up the low level driver.
;
	jsr startLLD
	bcc Continue	; error checking added

	sta iPrErr	; by Suki 5/25/88
	brl Exit


;-----------------------------------------------------------
;
; Gather and show status of printer
;

Continue	jsr GetStatus

	jsl CallIdleProc	; does not come back if quits

;-------------------------------------------------------------------
;
; Set up the initial conditions for the	mode
;

	stz BandModeNum
	lda SCBValue
	and #$80
	sta newSCB
	sta oldSCB

;----------------------------------------------------------
;
; Set the imaging flag to false in the status record.
;
	lda #false
	ldy #fImaging
	sta [PZ_PrStatus],y

;----------------------------------------------------------
;
; Put total copies into the status record.
;
	lda hPrint+PrJob+iCopies
	ldy #iTotCopies
	sta [PZ_PrStatus],y

;----------------------------------------------------------
;
; Calculate the number of bands it will	take to print
; one page.  This number is calculated by taking the
; number of vertical lines on the page,	adding the band
; height, subtracting one and dividing this total
; by the band height.
;
;   NumBands = (NumLines + BandHeight -	1 ) div BandHeight
;
; The number of lines depends on whether or not we are
; in portrait or landscape mode.  In portrait mode, the
; number of lines is the bottom of rpage.  In landscape
; mode, the number of lines is the right of rpage.
;
; For some reason, the mode also plays a role in here.
; In best mode the height is twice that	of the rectangle
; shown above.
;
;----------------------------------------------------------
;
; User choose landscape.
;
;    ---------------------------------------------
;   |     |     |	  |     |     |	|     | |
;   |     |     |	  |     |     |	|     | |
;   |     |     |	  |     |     |	|     | |
;   |     |     |	  |     |     |	|     | |
;   |     |     |	  |     |     |	|     | |
;   |     |     |	  |     |     |	|     | |
;   |     |     |	  |     |     |	|     | |
;   |     |     |	  |     |     |	|     | |
;    ---------------------------------------------
;     Bands ...		        Partial Band

;----------------------------------------------------------
;
; User selected portrait.
;
;    ---------------------------------
;   |	                  |
;   |	                  |	 Band
;   |	                  |
;    ---------------------------------
;   |	                  |
;   |	                  |	 Band
;   |	                  |
;    ---------------------------------
;   |	                  |
;   |	                  |	 Band
;   |	                  |
;    ---------------------------------
;   |	                  |
;   |	                  |	 Band
;   |	                  |
;    ---------------------------------
;   |	                  |	 Partial Band
;    ---------------------------------
;
;

	pha	; Space udivide for	result
	pha

	lda hprint+prStl+wDev ; look at portrait vs landscape mode
	and #f1
	bne use_v	; its portrait mode
	lda hprint+PrInfo+rpage+right
	pha
	lda hprint+PrXInfo+ibandH
	bra GotBandSize
use_v	lda hprint+PrInfo+rpage+bottom
	pha
	lda hprint+PrXInfo+ibandV
GotBandSize	pha


	lda hprint+prStl+wDev ; test if 50% first
	and #f3	;
	beq normal
	lda hprint+prStl+wDev ; now look at best vs faster mode
	and #f0	;
	beq normal
	lda 3,s	; for best mode we double size
	asl a
	sta 3,s
normal		;
	lda 3,s
	sta LinesPerPage	; store total # per	page
	clc
	adc 1,s
	dec a
	sta 3,s
	_Udivide
	pla
	plx

	sta hPrint+PrXinfo+iBands ; and store result in print rec
	ldy #itotbands	; and in the status	record.
	sta [PZ_PrStatus],y


;----------------------------------------------------------
;
; on joue un peu aussi a mettre au point les qualites d'impression
; en triturant wDev	avec f0 f1 f2 f3 f4	...
;
; mise a jour de CiDev a faire
;

;----------------------------------------------------------
;
; Set the curcopy field in the status record to one.
;

	lda #1
	ldy #icurcopy
	sta [PZ_PrStatus],y



;----------------------------------------------------------
;
; Start the outer loop for copies.
;
newCopy		;


;----------------------------------------------------------
;
; Set the value of current page in the status record.
; ( demarre une nouvelle page )
;
	lda #1
	ldy #icurpage
	sta [PZ_PrStatus],y


;----------------------------------------------------------
;
; Start the new page loop
;
XnewPage

;-----------------------------------------------------------
;
; Gather and show status of printer
;

	jsr GetStatus

	jsl CallIdleProc

	ldy #iCurPage
	lda [PZ_PrStatus],y
	jsr CalcPageBandNum
	lda PageBandnum
	sta BandModeNum


;----------------------------------------------------------
;
; Get the handle to	the picture associated with the current
; page.
;
	lda [hPicList]	; first deref the pic list
	sta pPiclist
	ldy #2
	lda [hPicList],y
	sta pPicList+2

	ldy #iCurpage	; now get the current page number
	lda [PZ_PrStatus],y
	dec a	; dec by one and mult by 4
	asl a
	asl a
	tay	; use as index into	table
	lda [pPicList],y
	sta hnewPic
	iny
	iny
	lda [pPicList],y
	sta hNewPic+2

;----------------------------------------------------------
;
; Set the dirty flag in the status record to false.
;
	lda #false
	ldy #fPgDirty
	sta [PZ_PrStatus],y

;----------------------------------------------------------
;
; Check the paper feed type, if user chose manual feed,
; put up the alert to insert the next sheet of paper
;
	lda hprint+PrStl+Feed
	cmp #feedcut
	bne NoAsk	; automatic feed

	jsr InsertPaperAlert ; put up alert for	manual feed
	cpx #2	; item hit is returned in X reg
	bne ReDraw	; 2 is ID of Cancel
	brl EndOfPrinting

ReDraw	lda #PrintProcess
	ldx #^PrintProcess
	jsr ShowString	; redraws "Printing	in Progress..."

NoASK		;


;------------------------------------------------------------
;
; Call the idle proc again.
;
	jsl CallIdleProc


;----------------------------------------------------------
;
; Calculate the first band rect. The top and left of this
; band is top and left of rPage, bottom	is top plus iBandH,
; and right is left	plus iBandV. iBandH	and iBandV is pre-
; calculated in CiXmetrics based on portrait or landscape.
;
* Top
	lda hPrint+PrInfo+rPage+Top
	sta rBand+Top

* Bottom
	clc
	adc hPrint+PrXInfo+iBandV
	sta rBand+Bottom

* left
	lda hPrint+PrInfo+rPage+Left
	sta rBand+Left

* right
	clc
	adc hPrint+PrXInfo+iBandH
	sta rBand+Right

	lda hprint+PrStl+Wdev ; test is we are in 50% landscape
	and #f3
	bne nocorrection
	lda hprint+PrStl+Wdev
	and #f1
	bne nocorrection
	lsr rBand+top	;should be 0 however
	lsr rBand+Bottom	;to be consistent with CiMetrics
nocorrection		;

;----------------------------------------------------------
;
; Now we really setup the band loop and	get to it.
;
; Set current band to one in status record.
;
	lda #1
	ldy #iCurBand
	sta [PZ_PrStatus],y

	lda LinesPerPage
	sta LinesLeftOnPage	; initialize # of line to be printed	            
	sta Page_remain
	jsr CalcModeRemain

;----------------------------------------------------------
;
; New Band Loop
;
newMode		;
newBand		;

;------------------------------------------------------------
;
; This seems to be the only place inside the printing loop
; that we call idle	proc.  Why do we bother with the
; dirty flag and imaging flag if there is no way idle proc
; can see them?
;


	jsl CallIdleProc

;----------------------------------------------------------
;
; Set imaging and dirty page flags in status record.
;
	lda #True
	ldy #fImaging
	sta [PZ_PrStatus],y
	ldy #fPgDirty
	sta [PZ_PrStatus],y

;----------------------------------------------------------
;
; Open the band port.
;
	PushLong #BandPort
	_OpenPort

;----------------------------------------------------------
;
; Install our own piccomment bottleproc, to be called during DrawPicture,
; which will allow mid-document imaging color table changes.  This is a
; temporary fix to quickly retrofit a feature which will appear in the
; brand new LQ and IW drivers.  See main header comment for details.
; Ben Koning 1/3/90.
;

*Install our handler and go on:

	pushlong #QDBottleProcs	;obtain QD's pointer table
	_SetStdProcs
	lda #IWPicComment-1		;modify it
	sta QDBottleProcs+36+0
	lda #^(IWPicComment-1)
	sta QDBottleProcs+36+2
	pushlong #QDBottleProcs	;write it back to curr grafport
	_SetGrafProcs
	lda #0		;clear fast white scan disable flag
	sta >IWDisableWhiteSkip
	brl ContAfterBProc
	
QDBottleProcs	ds.b $38		;storage space


*Code for our handler, called by QuickDrawAux, with its dp and bank active:

IWPicComment	lda $A6		;QD dp: kind of piccomment
	cmp #251		;kind must match
	bne IWPiCoExit
	ldy #0		;get contents of piccomment data
	lda [$AA],y		;QD dp: handle to piccomment
	sta IWPiCoReadComment+1
	iny
	iny
	lda [$AA],y
	shortm
	sta >IWPiCoReadComment+3
	longm
	ldx $A8		;QD dp: size of piccomment
	cpx #42		;size must match
	bne IWPiCoExit
	shortm
	dex
IWPiCoReadComment	lda >$FFFFFF,x		;NOTE: stuffed operand
	sta >IWPiCoCommentData,x
	dex
	bpl IWPiCoReadComment
	longm
	lda >IWPiCoCommentData+0	;version field must be 0
	bne IWPiCoExit
	lda >IWPiCoCommentData+2
	cmp #$A55A		;signature field must be $A55A
	bne IWPiCoExit
	
*We've established that the piccomment is ours, so now do the work of changing a color table entry:
*IWPiCoCommentData+4 has table number, +6 has table entries

	lda #1		;set flag to disable fast white skip
	sta >IWDisableWhiteSkip
	phb		;save current B and set to ours
	phk
	plb
	lda #^(IWPiCoCommentData+6)	;pass long ptr to new color table
	pha
	lda #IWPiCoCommentData+6
	pha
	pushword IWPiCoCommentData+4	;pass word color table number
	pushword #0		;this routine ignores this userID param
	jsl LLDSetColor		;this routine sets/restores its own DP
	plb		;restore original B
	
*Exit from this piccomment handler back to quickdraw:

IWPiCoExit	lda #0		;exit with no error
	clc
	rtl

	export IWDisableWhiteSkip
IWDisableWhiteSkip	dc.w 0

IWPiCoCommentData	ds.b 44
   

ContAfterBProc


;------------------------------------------------------------
;
; Start adjusting the fields in the loc	info.
;

	lda SCBValue
	and #$80
	sta BandLoc
	lda pPrBuf
	sta BandLoc+2
	lda pPrBuf+2
	sta BandLoc+4
	lda hPrint+PrXInfo+iRowBytes
	sta BandLoc+6

;----------------------------------------------------------
;
; Look at the number of lines left on the page.
; If it is less than the size of a band, we must
; reduce the size of the band rect.
;
; We use the variable LinesLeftOnPage to tell us how
; many lines are left on the page.  It was intialized
; above when we calculated the number of bands.
;
; So even if we do not adjust the band rect, we
; update LinesLeftOnPage for next time through the
; loop.
;
	lda hPrint+prStl+wDev
	and #f1
	bne trans0	; Portrait

; landscape
	lda LinesLeftOnPage	; look at num lines	remaining
	cmp hprint+prXinfo+ibandH ; compare to band height
	bge sub_1	; its bigger so no adjustment
	lda LinesLeftOnPage	; Use LinesLeftOnPage to adjust
	clc	; the right of the band rect
	adc rBand+left
	sta rBand+right
Sub_1	lda LinesLeftOnPage	; now we adjust LinesLeftOnPage
	sec	; by subtracting the number of
	sbc hprint+prXInfo+ibandH ; lines we will print for
	sta LinesLeftOnPage	; this band.
	bra trans

; Portrait      
trans0	lda LinesLeftOnPage	; look at num lines	remaining
	cmp hprint+prXinfo+ibandV ; compare to band width
	blt sub_2	; its bigger so no adjustment
	lda hprint+prXinfo+ibandV ; compare to band width
Sub_2	clc	; the bottom of the	band rect.
	adc rBand+top
	sta rBand+bottom
	lda LinesLeftOnPage	; now we adjust LinesLeftOnPage
	sec	; by subtracting the number
	sbc hprint+prXInfo+ibandV ; of lines we	will print
	sta LinesLeftOnPage	; for this band.
trans		;

;----------------------------------------------------------
;
; Prepare the sizing rect based on the mode: best or faster
;
	MoveRect hPrint+PrInfo+rPage,SizingRect
	lda hprint+prStl+wdev ; check if 50% is	on first
	and #f3	; cuz we don't care about the
	beq NormalSize	; resolution at this point
	lda hprint+prStl+wdev ; if not, then we	look at
	and #f0	; whether Better Text or Color
	beq NormalSize
	asl SizingRect+4
	asl SizingRect+6
NormalSize		;

;----------------------------------------------------------
;
; Copy the band rect to the bounds rect	of the LocInfo.
;

	ldx #6
tbandrect	lda rband,x
	sta BandLoc+8,x
	dex
	dex
	bpl tbandrect

;----------------------------------------------------------
;
; Set various and interesting fields in	the band
; graf port.
;
	pushlong #BandLoc	; Set the loc info
	_SetportLoc

;----------------------------------------------------------
;
; Set the PortRect to the band rect too.
;

	PushLong #rBand
	_setportrect

;----------------------------------------------------------
;
; Set the cliprgn and visrgn to the sizing rect.
;
	PushLong #SizingRect ; set clip rgn to
	_cliprect

	pushlong #0	; and the vis rect!
	_getcliphandle
	_setvisrgn

;----------------------------------------------------------
;
; Fill the band rect with white.
;
	PushLong #rBand	; fill the band with white.
	PushLong #White
	_FillRect
;----------------------------------------------------------
;
; Draw the picture
;
	PushLong hNewPic
	PushLong #SizingRect
	_drawpicture

;-----------------------------------------------------------
;
; Gather and show status of printer
;

	jsr GetStatus

	jsl CallIdleProc

;----------------------------------------------------------
;
; Print it.
;
	pushlong #bandport
	PushLong #rBand
	pushword UserID
	jsl LLDBitmap


;-----------------------------------------------------------
;
; Gather and show status of printer
;

;               jsr	GetStatus

;               jsl	CallIdleProc

;----------------------------------------------------------
;
; Close the band port.
;

	pushlong #BandPort
	_ClosePort


;----------------------------------------------------------
;
; Clear the imaging	flag.
;

	lda #false
	ldy #fImaging
	sta [PZ_PrStatus],y

;----------------------------------------------------------
;
; Calculate the next band position.  Different for
; portrait vs landscape.
;
	lda hPrint+prStl+wDev
	and #f1
	bne addv

; Landscape
	lda rBand+left
	clc
	adc hPrint+PrXInfo+iBandH
	sta rBand+left

	lda rBand+right
	clc
	adc hPrint+PrXInfo+iBandH
	sta rBand+right

	bra Added

; Portrait
addV		;
	lda rBand+Bottom
	sta rBand+Top
added		;


;----------------------------------------------------------
;
; See if we are done.
;


	ldy #iCurband	; bump cur band and	put back
	lda [PZ_PrStatus],y
	inc a
	sta [PZ_PrStatus],y

;            dec  a	                  ;	dec by one
;            ldy  #iTotBands          ;	and compare to total bands
;            cmp  [PZ_PrStatus],y
;            bcs  noMoreBands         ;	greater or equal and we are done.

	lda linesleftonpage
	beq nomoreBands
	bmi nomoreBands
	brl NewBand	; else new band

nomoreBands		;
	jsr detectnewmode
	bcc alldone
	brl newmode
alldone		;
;----------------------------------------------------------
;
; Check if printing	with gap or no gap,	don't send form feed
; if no gap is chosen

	lda hPrint+prStl+wDev
	and #f6
	beq NoFormFeed	; 0 is no gap

	jsl newpage

;----------------------------------------------------------
;
; Bump page count
;

NoFormFeed	ldy #iCurPage	; bump curpage
	lda [PZ_PrStatus],y
	inc a
	sta [PZ_PrStatus],y	; and put back

	dec a
	ldy #iTotPages	; look at total pages
	cmp [PZ_PrStatus],y	; compare to curpage
	bcs NoMorePages
	brl XnewPage
NoMorePages		;

;----------------------------------------------------------
;
; Bump copy count.
;
	ldy #iCurCopy
	lda [PZ_PrStatus],y
	inc a
	sta [PZ_PrStatus],y

	dec a
	ldy #iTotCopies
	cmp [PZ_PrStatus],y
	bcs NoMoreCopies

	brl newCopy
nomoreCopies		;


;----------------------------------------------------------
;
; This is where we go if idle proc gets	tells us to quit.
;
	EXPORT EndOfPrinting
EndOfPrinting

	pushword UserID
	jsl LLDShutDown

Exit	rts

	Export hNewPalette
hNewPalette	DC.L paletteData
paletteData	DS.B $20

Page_Remain	DS.B 2
BandModeNum	DS.B 2
nextbottom	DS.B 2
newSCB	DS.B 2
oldSCB	DS.B 2
PageBandNum	DS.B 2

	EXPORT CurLLDMode
CurLLDMode
	DS.B 2
	
;------------------------------------------------------------------------------
;
; NAME:         CalcModeRemain
;
; PURPOSE:      Calculate the mode that	remains
;
; PASSED:       NONE
;
; RETURNED:  NONE
;
;------------------------------------------------------------------------------
*= set up a new band remain for the current mode.
* update also the page remain by the difference.

	EXPORT CalcModeRemain
CalcModeRemain
	lda newscb	;get the new scan control byte
	eor #$0f
	sta oldScb	;update as the old one
	jsr detectnewmode	;see if its a new mode
	rts

;------------------------------------------------------------------------------
;
; NAME:         DetectNewMode
;
; PURPOSE:      Detects if a mode change occurs and sets things up appropriately
;
; PASSED:       NONE
;
; RETURNED:  (Carry)	CLEAR, no change or	done
;		SET, change
;
;------------------------------------------------------------------------------
detectnewmode		;
; si BandModeNum= num de la list
; ou pas de list
; ou landscape
; alors clc
; sinon setup the new values and return	sec.

	lda hprint+prStl+wDev
	and #f1
	beq EscapeDone
; ok it is portrait 
	lda Page_remain
	beq EscapeDone
; test if there is a SCBList
	lda hPrint+PrXInfo+SCBList
	sta Temp1
	lda hPrint+PrXInfo+SCBList+2
	sta Temp1+2
	ora Temp1
	beq EscapeDone
	lda BandModeNum
	cmp [Temp1]
	blt goodenough
EscapeDone	clc
	rts
EscapeDone1	pla
	clc
	rts

goodenough		;
	pha
	pha
	pha
	lda #$24	;each entry is $24
	pha
	_multiply
	ply
	pla
	iny	;pass over the length
	iny
	lda [Temp1],y
	sta nextbottom
	iny
	iny
	lda [Temp1],y
	phy
	tax
	xba
	and #$ff
	ldy #icurpage
	cmp [PZ_PrStatus],y
	bne EscapeDone1
	txa
	and #$ff
	sta newSCB
; read palette.
	ply
	iny
	iny

	ldx #0
looppall	lda [Temp1],y
	sta palettedata,x
	iny
	iny
	inx
	inx
	cpx #$20
	bne looppall

; compare with old scb and update width	and lld mode
	lda newscb
	eor oldSCB
	and #$80
	beq setPalette
; we changed mode (320-640)
; update LLD
	lda CurLLDMode
	ora #1	;set 640
	ldx NewSCB
	cpx #$80
	bge ok640
	and #$fffe
ok640	pha
	pushword UserID
	jsl LldSetQuality	;set the mode
; update the Width.
	lda NewScb
	cmp #$80
	bge do640
; now 320
	lsr hPrint+PrXInfo+iBandH
	bra setpalette
do640	asl hPrint+PrXInfo+iBandH
setpalette		;
	Pushlong hNewPalette
	Pushword #0
	Pushword UserId
	jsl lldsetcolor

; ok now calculate the new BandRemain.
	inc BandModeNum
; test if double sized, so double new bottom.
	lda hprint+prStl+wDev
	and #f0
	beq easy1
	asl nextbottom
easy1		;
	lda nextbottom
	sec
	sbc rband+top
	beq goAgain
	bge more1
goAgain	brl detectnewmode
more1	cmp Page_Remain
	blt more2
	lda Page_Remain
more2	sta linesleftonpage
	lda Page_Remain
	sec
	sbc linesleftonpage
	sta Page_Remain
; update old SCB
	lda newSCB
	sta oldSCB
	sec
	rts
	
;------------------------------------------------------------------------------
;
; NAME:         CalcPageBandNum
;
; PURPOSE:      Calculates the number of page bands
;
; PASSED:       NONE
;
; RETURNED:  NONE
;
;------------------------------------------------------------------------------
CalcPageBandNum		;
	pha
	stz PageBandNum	;default is failed
	lda hPrint+PrXInfo+SCBList
	sta Temp1
	lda hPrint+PrXInfo+SCBList+2
	sta Temp1+2
	ora Temp1
	beq Loose
; on va parcourir la list et s'arreter sur la premiere valeur
; correspondant a cette page.
	lda [temp1]
	bne win
loose	pla
	rts

win		;
	tax
	lda Temp1
	clc
	adc #2
	sta Temp1
	bcc noInc2
	inc Temp1+2
noInc2		;
	txa
loop		;
	pha
	ldy #2
	lda [temp1],y
	xba
	and #$ff
	cmp 3,s
	blt more
	beq found
	pla
	pla
	rts	;page num too big

found	pla
	pla
	rts
more		;
	lda Temp1
	clc
	adc #$24
	sta Temp1
	bcc noInc
	inc Temp1+2
noInc	inc PageBandNum
	pla
	dea
	bne loop
	pla
	rts

	ENDP
	
;------------------------------------------------------------------------------
*
* NAME:         StartLLD
*
* PURPOSE:      Shared routine to startup the low level routines.
*
* PASSED:       NONE
*
* RETURNED:  NONE
*
;------------------------------------------------------------------------------
startLLD	PROC EXPORT

;
;First calculate zero page area for low	level routines.
;

	tdc	;give lld our zero page
	clc
	adc #$100	;add $100 for next zero page
;NOTE: low level zero page is $100 above current zero page
	pha
	pushword UserID
	jsl LLDStartup	;startup low level routines
	
	pha		;Command-Period Bug Fix - Ben 1/25/90
	import IProcAbortEnable
	lda #1
	sta >IProcAbortEnable
	pla

;-----------------------------------------------------------
;
; Added error checking code. Suki Lee  May 25, 1988
;

	bcc @1
	rts

@1	jsr GetStatus	; what state is printer in?

* set paper rect for the LLD
	stz LLD_PaperRect	;zero it
	stz LLD_PaperRect+2

	PushLong #0
	PushLong #0
	lda hPrint+PrStl+iPageV
	pha
	lda #6
	pha
	_multiply
	pla
	plx
	pha
	lda #5
	pha
	_Udivide
	pla
	sta LLD_PaperRect+4
	pla

	PushLong #0
	PushLong #0
	lda hPrint+PrStl+CRwidth
	pha
	lda #4
	pha
	_multiply
	pla
	plx
	pha
	lda #3
	pha
	_Udivide
	pla
	sta LLD_PaperRect+6	;equals CRwidth*4/3
	pla
;
;Set the low level Page Rectangle
;
	pushlong #LLD_PaperRect
	pushword UserID
	jsl LLDSetPageRect

* set quality for the printer

	pushword #%1000000000000001 high color
	lda hprint+prStl+wdev ;see if 2x zoom
	and #f3
	beq hires	;branch if 2x

	lda hprint+prStl+wdev ;see if high resolution
	and #f0
	beq size2	;branch if not high	resolution
hires	pla
	pushword #%1000000000000011 high res

size2		;
	lda hPrint+prStl+wDev ;see if portrait
	and #f1
	bne portrait2	;branch if portrait
	pla
	ora #$4000	landscape
	pha
portrait2		;
;------------------------------------------------------------------------
;
; Check if Condensed vertically
;
	lda hprint+prstl+wdev
	and #f2
	bne Vsizing	; yes
	pla
	ora #$2000
	pha

Vsizing		;
	lda SCBValue
	and #$80
	bne lld640
	pla
	and #$fffe	mode320 for lld
	pha

lld640		;
;-----------------------------------------------------------
;
; Check the printer	info string for presence of color ribbon. The format of
; this string for the ImageWriter II is: IW10CF 
;	               where IW = ImageWriter II
;		 10 = carriage width
;		  C = if color ribbon installed
;		  F = if sheet feeder installed
;
; string format for	the ImageWriter LQ is: LQ1CFEnP
;	               where LQ = ImageWriter LQ
;		  1 = 15" carriage width
;		  C = if color ribbon installed
;		  F = if sheet feeder installed, no envelope
;		  E = if sheet feeder w/envelope installed
;		  n = # of sheet feeders
;		  P = if in pull tractor mode
;
; The string is terminated by a carriage return
; Note: An ImageWriter I will not respond to the query.
;

	ldx #8
LoopZero	stz PtrType,x	; makes sure the string is clean
	dex
	dex
	bpl loopZero

	pushlong #PtrType
	jsl CheckPrinter	; go get its type

	lda PtrType	; no reponse --> IW	I
	beq BW
	ldx #4	; assume Imagewriter II for now
	cmp #$514C	; see if it's an LQ
	bne LWII
	ldx #3	; it's an LQ
LWII	lda PtrType,x
	and #$00FF
	cmp #$0043	; letter C?
	bne BW

	lda hPrint+prStl+wDev ;see if color/bw
	and #f5
	bne Color	;branch if color
BW	pla
	and #$7fff	;is b/w
	pha

Color		;
	lda 1,s	;get mode
	sta curLLDMode	;save for CurLLDMode
	pushword UserID
	jsl LldSetMode	;set low level mode

	Pushlong hpalette
	Pushword #0
	Pushword UserId
	jsl lldsetcolor	;set the color

	lda #0

ErrorExit	rts

	Export hpalette
hpalette	DC.L $e19e00

	Export PtrType
PtrType	DS.B 10

	ENDP

	
;------------------------------------------------------------------------------
*
* NAME:         PrAbortCheck
*
* PURPOSE:      This is the routine that is the default idel proc. if the user
*               doesn't specifiy one in the print record.
*
* PASSED:       NONE
*
* RETURNED:  NONE
*
;------------------------------------------------------------------------------
PrAbortCheck	PROC EXPORT	should be in scc68k

more		;
	PushWord #0
	PushWord #$0408	KeyDown
	pushlong #IWEventRecord
	_getNextEvent
	pla
	beq bye
	lda evtmsg
	cmp #$2E
	bne more
	lda evtmods
	and #$0100
	beq more

	lda #iPrAbort
	sta iPrErr
bye	rtl

	ENDP
;------------------------------------------------------------------------------
*
* NAME:         CallIdleProc
*
* PURPOSE:
* This routine calls the idle proc given in the print record from high level 
* routines. Upon return, it checks iPrErr. If it is not zero we do not return
* to calling the routine.
*
* PASSED:       NONE
*
* RETURNED:  NONE
*
;------------------------------------------------------------------------------
CallIdleProc	PROC EXPORT
	
	jsl CallIt	;actually call the idle proc routine
	
	import IProcAbortEnable	;Command-Period Bug Fix - Ben 1/25/90
	lda >IProcAbortEnable
	beq Done
	
	lda iPrErr
	beq Done

;--------------------------------------------------------------
;
; If user wanted to	quit we should eject current page if something
; has been printed on it already.
;
	ldy #fPgDirty
	lda [PZ_PrStatus],y
	beq dontEject	; if not dirty, don't eject

	jsl NewPage

dontEject	
	phb	; 3 bytes on stack this makes 4
	plx	; now pull off 4
	plx
	brl EndOfPrinting

Done	rtl
	
;------------------------------------------------------------------------------
;
; NAME:         CallIt
;
; PURPOSE:      This routine sets up the stack so that it will rtl to the
;               idle proc (which was specified in the print	record, or the
;               default one).
;
; PASSED:       NONE
;
; RETURNED:  NONE
;
;------------------------------------------------------------------------------
	EXPORT Callit
CallIt		;
	lda hPrint+PrJob+pIdleProc+1 ;get the idel proc. addr.
	pha	;push onto the stack
	phb
	lda hPrint+PrJob+pIdleProc
	dec a
	sta 1,s	;push the rest of the addr.
	rtl	;rtl to the idle proc. routine

	ENDP

;------------------------------------------------------------------------------
*
* NAME:         LLDIdleProc
*
* PURPOSE:
* This routine calls the idle proc given in the print record from low level
* routines. Upon return, it checks iPrErr. If it is not zero we do not
* return to calling	routine. This routine does more work than CallIdleProc
* since D page swapping and proper stack cleanup is handled here.
*
* PASSED:       NONE
*
* RETURNED:  NONE
*
;------------------------------------------------------------------------------
LLDIdleProc	PROC EXPORT

	phd	; save direct page 
	lda ZeroPage	; switch in high level driver's
	tcd
	
	jsl CallIt	;actually call the idle proc routine
	
	import IProcAbortEnable	;Command-Period Bug Fix - Ben 1/25/90
	lda >IProcAbortEnable
	beq Done
	
	lda iPrErr
	beq Done

;--------------------------------------------------------------
;
; If user wanted to	quit we should eject current page if something
; has been printed on it already.
;
	ldy #fPgDirty
	lda [PZ_PrStatus],y
	beq dontEject	; if not dirty, don't eject

	lda PStatus	; printer error, forget ejecting
	bne dontEject
	
	jsl NewPage	; spit out page

dontEject	

;???????? 

	lda stackLoc	; if stackloc is zero, then we are in draft
	beq Done	; or PrPixelMap, go out normally
	plx	; we already have high level driver's D page
	tcs	; put stack pointer back to the same level as if
	brl EndOfPrinting	; this was called in the high level and go away

Done	pld	; restore direct page
	rtl
	
	ENDP
	
;------------------------------------------------------------------------------
*
* NAME:         InsertPaperAlert
*
* PURPOSE:      Alert Box for manual feed; to let user know	the next sheet of
*               paper should be inserted.
*
* PASSED:       NONE
*
* RETURNED:  NONE
*
;------------------------------------------------------------------------------
InsertPaperAlert	PROC EXPORT

	_InitCursor	; set to arrow
	
	pha	; make room for result
	_GetMasterSCB
	pla
	pha	; make room for result of alert call
	and #$80	; check mode
	beq mode320	; 320 mode

	pushlong #alerttemp640 ; use 640 mode template
	bra GoOn

mode320	pushlong #alerttemp320 ; use 320 mode template

GoOn	pushlong #$0000
	_Alert

;------------------------------------------------------------
;
; Get the current cursor record's address and turn on the watch cursor.
;

	PushLong #0	; space for the address
	_GetCursorAdr
	pla
	sta CursorAd
	pla
	sta CursorAd+2

	_WaitCursor	; set to watch again

	plx	; get the item hit off stack

	rts


	ENDP


\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/IW/iw.macros b/IIGS.601.SRC/GSToolbox/PrinterDrivers/IW/iw.macros
new file mode 100644
index 0000000..02e0129
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/IW/iw.macros
@@ -0,0 +1 @@
+ MACRO
&Lab _Names &MyName
 bra Skip&SysCnt
 dc i1'$42'
 dc i1'L:&MyName'
 msb on
 dc c'&MyName'
 msb off
Skip&SysCnt Anop
 Mend
 MACRO
&lab _PmGetPrinterName
&lab ldx #19+256*40
 jsl $E10000
 MEND
 MACRO
&lab _PmGetPortName
&lab ldx #19+256*41
 jsl $E10000
 MEND
 MACRO
&lab _PrDevPrChanged
&lab ldx #19+256*25
 jsl $E10000
 MEND
 MACRO
&lab _PrDevOpen
&lab ldx #19+256*28
 jsl $E10000
 MEND
 MACRO
&lab _PrDevRead
&lab ldx #19+256*29
 jsl $E10000
 MEND
 MACRO
&lab _PrDevWrite
&lab ldx #19+256*30
 jsl $E10000
 MEND
 MACRO
&lab _PrDevClose
&lab ldx #19+256*31
 jsl $E10000
 MEND
 MACRO
&lab _PrDevStatus
&lab ldx #19+256*32
 jsl $E10000
 MEND
 MACRO
&lab _PrDevAsyncRead
&lab ldx #19+256*33
 jsl $E10000
 MEND
 MACRO
&lab _PrDevWriteBackGround
&lab ldx #19+256*34
 jsl $E10000
 MEND
 MACRO
&lab _IWerror
&lab bcc @1
 dc.b 0,$4c			; brk $4c
@1
 mend
 MACRO
&lab _DevIsItSafe
&lab ldx #19+256*48
 jsl $E10000
 MEND
 MACRO
&lab MoveRect &Src,&Dest
&lab lda &Src
 sta &Dest
 lda &Src+2
 sta &Dest+2 
 lda &Src+4
 sta &Dest+4
 lda &Src+6
 sta &Dest+6
 MEND
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/IW/lld.asm b/IIGS.601.SRC/GSToolbox/PrinterDrivers/IW/lld.asm
new file mode 100644
index 0000000..2ca89ff
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/IW/lld.asm
@@ -0,0 +1 @@
+
	ENTRY DerefColor
	ENTRY HookProc
	ENTRY LLDExit4
	ENTRY LLDExit2
	ENTRY LLDExit10
	ENTRY LLDExit8
	ENTRY ScreenShoot
	ENTRY LLDExit6
	ENTRY FormFeed
	ENTRY LLDExit0
	ENTRY ResetPrinter
;   ENTRY PrintCheck
	ENTRY MovePen
	ENTRY SetColor
	ENTRY SetColorT
	ENTRY GetColorT
	ENTRY Pattern
	ENTRY SpeDens
	ENTRY VSizing
	ENTRY DrvrBitMap
	ENTRY ContLine
	ENTRY DrvrRect
	ENTRY LandStock
	ENTRY HightLand
	ENTRY FlagT
	ENTRY FlagB
	ENTRY CurrentLine
	ENTRY ContLine
	ENTRY VSizing
	ENTRY CurrentDef
	ENTRY FlagBlack
	ENTRY SendBuff
	ENTRY SendRCLF
	ENTRY LittleSkip
	ENTRY WasImage
	ENTRY WasImage1
	ENTRY WasImage2
	ENTRY MakeLine
	ENTRY MakeBlankLine
	ENTRY FinalPat
	ENTRY BitMapShoot
	ENTRY SendSingleCar
	ENTRY SendBPrep
	ENTRY WriteStr

; LLD.MAIN0

;------------------------------------------------------------------------------
;
; Low Level Tables and Equates
;
;------------------------------------------------------------------------------

HandleReal	EQU $F4
PointerReal	EQU $F8

LLDSystem	PROC EXPORT

	EXPORT MyPID
MyPID	DC.W 0	42

	EXPORT MyWAP
MyWAP	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0

	ENDP


; LLD.MAIN1

;
;  Main LLD.
;


* Zero page equates	(While in Low Level	Driver) (Allocated at users +$100)

HandleDrvr	EQU $00
MemoryDrvr	EQU $04
Quality	EQU $06
HandleColor	EQU $08
HandleScreen	EQU $0C
PtrBitMap	EQU $10
PtrColor	EQU $14
HandleIO	EQU $18
PtrBlack	EQU $20
PtrRed	EQU $24
PtrBlue	EQU $28
PtrYellow	EQU $2C
PtrLocal	EQU $30
PenPosH	EQU $34
PenPosV	EQU $36
NewPenPosH	EQU $38
NewPenPosV	EQU $3A
Lock	EQU $3E
PageRectPtr	EQU $40
PageRect	EQU $44
PtrInfo	EQU $4C
Stock	EQU $50
Stock2	EQU $52
PtrID	EQU $54
Temp       	EQU $58
Go	EQU $5C
Status	EQU $66
;FlagRecharge   gequ    $74
BackColor	EQU $76
PtrRect	EQU $96
;BackFlag       gequ    $9A
MyStack	EQU $9C
RealStack	EQU $9E
SaveStack	EQU $A0
JobPrint	EQU $A2
StockWStr	EQU $A4
StockWTxt	EQU $A8
PageRectL	EQU $AA
Stack	EQU $AE
SaveStack2	EQU $F0
MyId	EQU $F2
Owner	EQU $F4
HandleID	EQU $F8
Error	EQU $F6

;
; MyWap equates
;
NbUser	EQU $0E
PID	EQU $1E
PenPosVW	EQU $18
IDBack	EQU $1a
GraphP	EQU $1c
IDWap	EQU $16
Killer	EQU $24

PMID	EQU $0012

	

	Export Cidrvr
Cidrvr	PROC


;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;
;  NAME:        LLDStartUp
;
;  PURPOSE:  Starts	up the low level routines
;
;  PASSED:      WORD	Zero Page
;               WORD	User ID
;
;  RETURNED:    (A-reg.)	=0, No Errors
;		=$1308: error in establishing connection 
;		        with the printer (Suki 5/25/88)
;		=$1321, LLDStartup already made
;		=Memory Mgr. Errors	returned unchanged
;		NOTE: 'Error' retains error value
;
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------

;-----------------------------------------------
	EXPORT LLDStartUp
LLDStartUp	jsl xLLDStartUp
	rtl
;-----------------------------------------------
	EXPORT xLLDStartUp
xLLDStartUp
;
* Stack: 1: Rtls
*        7: ID
*        9: ZeroPage
	phb	;save users bank
	phk	;get this programs bank
	plb	;set bank to programs bank
;-----------------------------------------------------------
;
; commented out the	following branch since it is not taken in 
; normal conditions, and if taken, the stack is not cleaned	up 
; properly.   Suki Lee 6/24/88
;

;Now see if this is	initial time
;               lda	MyWap+$16	;get ID
;               bne	JustStartUp	;branch if not first time
*
* Here zero page is	needed
*

	PushWord #0
	_MMStartUP	;make sure memory manager is started
	pla
	sta MyPID
	sta MyWap+$16	;save ID in MyWap


ok1		;
	phd	;save D-reg.

; Stack: 1: Direct zero page
;        3: Plb
;        4: Rtls
;        10: ID
;        12: ZeroPage

	lda 12,s	;get passed direct page
	tcd	;use passed direct page

;
;This initlizes the	zero page values
;
ok6		;

	ldy #3
	ldx #$18
LoopInitWap	stz MyWap,x	;init. MyWap table
	inx
	inx
	dey
	bne LoopInitWap


	pld	;Put user zero-page
	plb	;Put user data bank	register

;
;Just startup (no initialization stuff)
;
JustStartUp		;
	phd
	lda 11,s	;One allowed zero-page !
	tcd
	sta MyWap	;Save zero page addess



* Stack: 1: ZeroPage application
*        3: Rtls
*        9: ID
*        11: ZeroPage

* Now the startup begins

* Clear this new zero-page
	ldx #$F6
loop	stz <0,x
	dex
	dex
	bpl loop

	lda MyWap+IDWap	;get Waps ID
	sta MyID	;put in zero page

* Stack: 1: ZeroPage application
*        3: Rtls
*        9: ID
*        11: ZeroPage

;
* Allocate memory for IOBuffer
;
	PushLong #0
	PushLong #$2800
	PushWord <MyID
	PushWord #%0000000000000000 No locked, no fixed, PurgeLvl0
	PushLong #0
	_NewHandle

	bcc OkIoBuff	;branch if no erros
	brl ErrorOpen

OkIoBuff	pla	;save Handle for IO	at 'HandleIO'
	sta <HandleIO
	pla
	sta <HandleIO+2

;
* Allocate memory for Color Table
;
	PushLong #0
	PushLong #$200
	PushWord <MyID
	PushWord #%0000000000000000 No locked, no fixed, PurgeLvl0
	PushLong #0
	_NewHandle

	bcc Lab1	;branch if no errors
	brl ErrorOpen

lab1		;
	pla	;save handle for color table
	sta <HandleColor
	pla
	sta <HandleColor+2

* Init some default	value
	jsr DerefColor	;deref. the color table to <PtrColor

	phb	;save B-reg.
	phk	;get programs bank
	plb	;set data bank to programs bank

;
;Initilize the color table (16 palettes	x 16 tables)
;
	ldy #0
	stz ComptCol	;init. which table

LoopColor2	ldx #0	;for each palette

LoopColor	lda InitColor,x
	sta [<PtrColor],y
	iny
	iny
	inx
	inx
	cpx #$20
	bne LoopColor
	inc comptcol
	lda Comptcol
	cmp #16	;for sixteen palette tables
	bne LoopColor2

	PushLong <HandleColor
	_HUnLock	;unlock it

;
;Init. the Page Rectangles (Portrait and Landscape)
;
	stz <PageRectL	0 pixel at left margin landscape
	stz <PageRect	0 pixel at top margin
	stz <PageRect+2	0 pixel at left margin
	lda #1280	1280 pixels at right margin
	sta <PageRect+6
	lda #1584	1584 pixels at bottom margin
	sta <PageRectL+2
	lda #1584	1584 pixels at bottom margin
	sta <PageRect+4

;Init. the background color table
	ldx #$1E	Init BackGround Color
	lda #$10
LoopBackC	sta <BackColor,x
	dex
	dex
	bpl LoopBackC

	lda #$8000	Init Mode
	sta <JobPrint

	lda 10,s
	sta <Owner

	stz MyWap+PID
	stz MyWap+PID+2
	stz MyWap+PID+4

;Copy the hook procedures for (SSC) Super Serial Card to zero page at '<Go'
	ldx #20	Put all hooks to SSC in zero page
loopHook	lda HookProc,x
	sta <Go,x
	dex
	dex
	bpl LoopHook

;-----------------------------------------------------------
;
; Added call to open port and reset printer.
;
; (Suki Lee 1 Mar 88)
;
LoopWait
	jsr GetStatus
	jsl lldIdleProc
	lda iPrErr
	bne Exit1
	lda PStatus
	bne LoopWait

	lda #0
	pha
	pha
	pha
	pha
	_PrDevOpen

;-----------------------------------------------------------
;
; Added error checking code. Suki Lee  May 25, 1988
;
	bcc AllsWell	; no problems

Exit1	lda 9,s	; application's ID
	jsr ShutDown	; dispose handles already allocated

	lda iPrErr
	bne Exit
	lda #PntrConFailed
	bra Exit

AllsWell

; Following code is added to go around a bug in AppleTalk Option cards

	stz ReadingDone
	stz ReadingLength

	PushWord #0	; space for actual length
	pushlong #MyCompletion
	PushWord #10	; the response to self ID is no more than 10 bytes
	pushlong #ReadBuffer
	_PrDevAsyncRead
	pla	; this value is invalid at this
		; point in time since this is an
		; async read call

	
	
	jsr ResetPrinter

	lda #0	;indicate no errors	on return
Exit	plb
	pld
	brl LLdExit4

;------------------------------------------------------------------------------
* Error on StartUp,	We simulate a ShutDown to finish
;-----------------------------------------------------------------------------
* Stack: 1: HandleIO
*        5: ZeroPage application
*        7: Rtls
*        13: ID
*        15: ZeroPage

ErrorOpen		;
	ply
	ply

	sta <Error	Take ID for ShutDown
	lda 9,s

	jsr ShutDown

* Stack: 1: ZeroPage application
*        3: Rtls
*        9: ID
*        11: ZeroPage

NowKill	lda 13,s	Setup stack as for a real ShutDown
	sta 15,s
	lda 11,s
	sta 13,s
	lda 9,s
	sta 11,s
	lda 7,s
	sta 9,s
	lda 5,s
	sta 7,s
	lda 3,s
	sta 5,s
	lda 1,s
	sta 3,s
	pla
* Stack: 1: ZeroPage application
*        3: Rtls
*        9: ID
	brl KillLLD

;--------------------------------------------------------------
;
; Completion routine for PAPRead which saves error returned
; and sets done flag
;

	EXPORT MyCompletion
MyCompletion		;       

	sta >ReadError
	txa
	sta >ReadingLength	; actual length read

	lda #True
	sta >ReadingDone

	rtl

	EXPORT ReadError
ReadError	DS.B 2

	EXPORT ReadingDone
ReadingDone	DS.B 2

	EXPORT ReadingLength
ReadingLength	DS.B 2

	EXPORT ReadBuffer
ReadBuffer	DS.B 10

	Export ComptCol
ComptCol	DC.W 0	;Counter used in init. of color tables

	Export InitColor
InitColor	DC.W $0000	;Initial color palette values
	DC.W $0F00
	DC.W $00F0
	DC.W $000F
	DC.W $0088
	DC.W $0808
	DC.W $0066
	DC.W $0555
	DC.W $0AAA
	DC.W $0F80
	DC.W $08F8
	DC.W $0F88
	DC.W $0FF0
	DC.W $0F0F
	DC.W $00FF
	DC.W $0FFF


	
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;
;  NAME:        LLDShutDown
;
;  PURPOSE:  Shuts down the low level stuff
;
;  PASSED:      WORD	User ID
;
;  RETURNED:    (A-reg.)	=zero, No errors
;		=$1108, Locked User
;
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;-----------------------------------------------
	EXPORT LLDShutDown
LLDShutDown	jsl xLLDShutDown
	rtl
;-----------------------------------------------
	EXPORT xLLDShutDown
xLLDShutDown	phd	;Take user's ZeroPage
	lda MyWap	;get saved LLD zero	page addr.
	tcd	;use it

	Bit Lock	;Check if locked User
	bmi ShutLock

	lda 9,s	;User ID
	jsr ShutDown	;ShutDown the user

;
;We arrive here when we need to kill a low level call
;
* Stack: 1: ZeroPage application
*        3: Rtls
*        9: ID
KillLLD		;
* Now return to MicroLLD

	_PrDevClose
	
	stz MyWap+$16	;flag for next entry (done for now)
	pld
	lda #0
	brl LLDexit2

* Error for ShutDown
ShutLock		;
	lda #$1108	Error: Locked User

SErrID		;
	pld
	brl LLdExit2	Error: Unknown user
;------------------------------------------------------------------------------
;
;  NAME:        ShutDown
;
;  PURPOSE:  Subroutine which aids in shutting down low level routines
;
;  PASSED:      (A-reg.)	User ID
;
;  RETURNED:    NONE
;
;------------------------------------------------------------------------------
* Real Shutdown. Entry: A ID
*	    D User zeroPage
ShutDown		;
	sta <Stock

	PushLong <HandleIO
	_DisPoseHandle	;dispose of the IO buffer

	PushLong <HandleColor
	_DisposeHandle	;dispose of the color table

	sec
	rts
	
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;
;  NAME:        LLDBitMap
;
;  PURPOSE:  Prints	Bit Maps
;
;  PASSED:      LONG	Pointer to the BitMap
;               LONG	Pointer to the Rectangle
;               WORD	UserID
;
;  RETURNED:    (A-reg.)	=0, No Errors
;
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;-----------------------------------------------
	EXPORT LLDBitMap
LLDBitMap	jsl xLLDBitMap
	rtl
;-----------------------------------------------
	EXPORT xLLDBitMap
xLLDBitMap	phd	;Take user's ZeroPage
	lda MyWap	;get saved LLD zero	page addr.
	tcd	;use it

* Stack: 1: Application direct page
*        3: rtls
*        9: ID
*        11: ptr rect
*        15: Ptr BitMap


	jsr InitPrinting

;Get the pointer to	the bit map
	lda 15,s
	sta <PtrBitMap
	lda 17,s
	sta <PtrBitMap+2

;Get the rectangle
	lda 13,s
	sta <PtrRect+2
	lda 11,s
	sta <PtrRect

	jsr BitMapShoot	;print the bit map
	lda #0

ErrId1	pld
	brl LLdExit10

	
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;
;  NAME:        LLDText (alias TextStreaming)
;
;  PURPOSE:  Prints	text.
;
;  PASSED:      LONG	Pointer to the text	to be printed
;               WORD	Length (no. of bytes) of the text
;               WORD	UserID
;
;  RETURNED:    (A-reg.)	=0, No Errors
;
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;-----------------------------------------------
	EXPORT LLDText
LLDText	jsl xLLDText
	rtl
;-----------------------------------------------
	EXPORT xLLDText
xLLDText	phd	;Take user's ZeroPage
	lda MyWap	;get saved LLD zero	page addr.
	tcd	;use it

* Stack: 1: Application direct page
*        3: rtls
*        9: ID
*        11: length
*        13: Ptr Text


;-----------------------------------------------------------
;
; comment out on Mar 25, 1988. There's no use for this check since the next
; two statements has been commented out.
;
;               lda	    MyWap+$1c
;               cmp	    #2
;               beq	    LL1

;-----------------------------------------------------------
;
; commented out on 1 Mar 88
; Suki Lee
;               lda	    #2
;               jsr	    InitSSC

LL1		;
;               lda	    11,s
;               bne	    BText
;               bra	    EndText	; filter out foreign chars
;BText          jsr	    BackText

;***********************************added by luc for foreign chars.***********
FiltreText		;
	lda 11,s
	bne @1
	brl EndText

@1	phd
	tsc
	tcd
	lda [15]	; zero page and stack are same
	pld	; at this point
	pha
	lda 15,s
	clc
	adc #1
	sta 15,s
	bcc easyInc
	lda 17,s
	ina
	sta 17,s
EasyInc		;
	lda 13,s
	dea
	sta 13,s
	pla
	and #$ff
	cmp #$0d	; All characters whose ASCII code is less
	beq easyCar	; than $20 is ignores except for $0A (line 
	cmp #$0a	; feed), $0C(formfeed), and $0D (carriage
	beq easyCar	; return)
	cmp #$0c
	beq easyCar
	cmp #$20
	blt FiltreText
	cmp #$80	; $80 and up contains special characters 
	bge Specialcar	; that we will filter
easyCar	Jsr SendSingleCar	; otherwise, send it as normal character
	brl FiltreText

Specialcar		;
	pha
	lda SpeCarTable	; start from the botoom of the table
	asl a	; and check to see if this character
	tax	; deserves special handling
	pla
LoopSpe	cmp SpeCarTable,x
	beq FounditSpe	; if it is, then go	off and do it
	dex
	dex
	bne LoopSpe
	brl FiltreText
FounditSpe	txa
	asl a
	tax
LoopExchg		;
	lda #0
	sep #$20
	longa off
	lda ExchgCar,x	; substitute with the character from
	rep #$20	; the table
	longa on
	and #$FFFF
	beq DoneSpe	; 0 indicates it's done
	phx
	Jsr SendSingleCar
	plx
	inx
	bra LoopExchg
DoneSpe	brl FiltreText

EndText	lda <Error
	pld
	brl LLdExit8



	Export ExchgCar
ExchgCar	DC.B $00
	DC.B $00
	DC.B $00
	DC.B $00
	DC.B $5C	; c cedilla
	DC.B $00
	DC.B $00
	DC.B $00
	DC.B 'a'	; a circumflex
	DC.B $08
	DC.B $5e
	DC.B $00
	DC.B 'a'	; a acute
	DC.B $08
	DC.B $27
	DC.B $00
	DC.B 'a'	; a grave
	DC.B $08
	DC.B $60
	DC.B $00
	DC.B 'a'	; a dieresis
	DC.B $08
	DC.B $7e
	DC.B $00
	DC.B 'e'	; e circumflex
	DC.B $08
	DC.B $5e
	DC.B $00
	DC.B 'e'	; e acute
	DC.B $08
	DC.B $27
	DC.B $00
	DC.B 'e'	; e grave
	DC.B $08
	DC.B $60
	DC.B $00
	DC.B 'e'	; e dieresis
	DC.B $08
	DC.B $7e
	DC.B $00
	DC.B 'i'	; i circumflex
	DC.B $08
	DC.B $5e
	DC.B $00
	DC.B 'i'	; i acute
	DC.B $08
	DC.B $27
	DC.B $00
	DC.B 'i'	; i grave
	DC.B $08
	DC.B $60
	DC.B $00
	DC.B 'i'	; i dieresis
	DC.B $08
	DC.B $7e
	DC.B $00
	DC.B 'o'	; o circumflex
	DC.B $08
	DC.B $5e
	DC.B $00
	DC.B 'o'	; o acute
	DC.B $08
	DC.B $27
	DC.B $00
	DC.B 'o'	; o grave
	DC.B $08
	DC.B $60
	DC.B $00
	DC.B 'o'	; o dieresis
	DC.B $08
	DC.B $7e
	DC.B $00
	DC.B 'u'	; u circumflex
	DC.B $08
	DC.B $5e
	DC.B $00
	DC.B 'u'	; u acute
	DC.B $08
	DC.B $27
	DC.B $00
	DC.B 'u'	; u grave
	DC.B $08
	DC.B $60
	DC.B $00
	DC.B 'u'	; u dieresis
	DC.B $08
	DC.B $7e
	DC.B $00


	Export SpeCarTable
SpeCarTable	DC.W 21
	DC.W $89	; a circonflex
	DC.W $87	; a Aigu
	DC.W $88	; a grave
	DC.W $8a	; a trema
	DC.W $8D	; c cedilla
	DC.W $90	; e circonflex
	DC.W $8e	; e Aigu
	DC.W $8f	; e grave
	DC.W $91	; e trema
	DC.W $94	; i circonflex
	DC.W $92	; i Aigu
	DC.W $93	; i grave
	DC.W $95	; i trema
	DC.W $99	; o circonflex
	DC.W $97	; o Aigu
	DC.W $98	; o grave
	DC.W $9a	; o trema
	DC.W $9e	; u circonflex
	DC.W $9c	; u Aigu
	DC.W $9d	; u grave
	DC.W $9f	; u trema
	
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;
;  NAME:        LLDHardCopy
;
;  PURPOSE:  Prints	whats on the screen
;
;  PASSED:      NONE
;
;  RETURNED:    (A-reg.)	=0, No errors
;		=Memory Mgr. errors	returned unaltered
;
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;-----------------------------------------------
	EXPORT LLDHardCopy
LLDHardCopy	jsl xLLDHardCopy
	rtl
;-----------------------------------------------
	EXPORT xLLDHardCopy
xLLDHardCopy	phd	;Take user's ZeroPage
	lda MyWap	;get saved LLD zero	page addr.
	tcd	;use it

	jsr InitPrinting	;initilize things for printing
	jsr ScreenShoot	;print the screen
ErrId3	pld
	brl LLdExit6


;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;
;  NAME:        NewPage
;
;  PURPOSE:  Causes	a new page (page eject) to occur.
;
;  PASSED:      NONE
;
;  RETURNED:    NONE
;
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;-----------------------------------------------
	EXPORT NewPage
NewPage	jsl xNewPage
	rtl
;-----------------------------------------------
	EXPORT xNewPage
xNewPage	phd	;Take user's ZeroPage
	lda MyWap	;get saved LLD zero	page addr.
	tcd	;use it


;-----------------------------------------------------------
;
; Changed to use reset the printer by Suki and Steve
; 1 Mar 88
;
;               lda	    #3
;               jsr	    InitSSC
;               jsr	    ResetPrinter


	jsr FormFeed	;do a form feed

ErrId14	pld
	brl LLdExit0
	
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;
;  NAME:        LLDControl (alias Control)
;
;  PURPOSE:  Performs low level print commands
;
;  PASSED:      WORD	PrinterControlValue
;		=1 (reset printer)
;		=2 (cause form feed)
;		=3 (cause line feed)
;
;  RETURNED:    (A-reg.)	=0, No errors
;		=$1209, Invalid PrinterControlValue
;
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;-----------------------------------------------
	EXPORT LLDControl
LLDControl	jsl xLLDControl
	rtl
;-----------------------------------------------
	EXPORT xLLDControl
xLLDControl	phd	;Take user's ZeroPage
	lda MyWap	;get saved LLD zero	page addr.
	tcd	;use it


	lda 9,s	;get control value
	cmp #1
	bne Lab70

;We arrive here if PrinterControlValue=1 (RESET PRINTER)
;-----------------------------------------------------------
;
;-----------------------------------------------------------
;
; Removed by Suki and Steve since it is	redundant 
; 1 Mar 88
;
;               lda	    #3
;               jsr	    InitSSC

	jsr ResetPrinter	;send reset printer	command

	bra ErrId70

Lab70	cmp #2
	bne Lab71

;We arrive here if PrinterControlValue=2 (FORM FEED)
	jsl NewPage	New Page

	bra ErrId70

Lab71	cmp #3
	bne lab72

;We arrive here if PrinterControlValue=3 (LINE FEED)
;-----------------------------------------------------------
;
; Changed to use reset the printer by Suki and Steve
; 1 Mar 88
;
;               lda	    #3
;               jsr	    InitSSC
	jsr ResetPrinter
;	jsr SendRC	;send a line feed
	bra ErrId70

lab72	lda #$1209
ErrId70	pld
	brl LLdExit2


;------------------------------------------------------------------------------
;
;  NAME:        InitPrinting
;
;  PURPOSE:  Initializes things for printing
;
;  PASSED:      NONE
;
;  RETURNED:    NONE
;
;------------------------------------------------------------------------------
InitPrinting		;Check if new Init or Zap Needed


;-----------------------------------------------------------
;
; 5 lines removed by Suki Lee
; 1 mar 88
;
;               lda	#3
;               jsr	InitSSC

;               jsr	    PrintCheck

;               lda	    #1
;               jsr	    InitSSC

	lda <JobPrint
	sta <Quality	;set the quality

	bpl EndInit	;branch if Black and White

	lda MyWap+PID
	beq EndInit	Printer is off or unknown. Do nothing

	lda MyWap+PID+4	Check if printer has a color ribbon
	bmi EndInit	Color ribbon found

	lda #$7fff
	and <Quality
	sta <Quality

EndInit		;
	rts

	
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;
;  NAME:        CheckPrinter
;
;  PURPOSE:  To check out which type of	printer
;
;  PASSED:      LONG	Pointer to Info string
;
;  RETURNED:    (A-reg.)	=0, No Errors
;
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;-----------------------------------------------
	EXPORT CheckPrinter
CheckPrinter	jsl xCheckPrinter
	rtl
;-----------------------------------------------
	EXPORT xCheckPrinter
xCheckPrinter	phd	;Take user's ZeroPage
	lda MyWap	;get saved LLD zero	page addr.
	tcd	;use it

	lda 9,s	; get the buffer pointer off the stack
	sta <PtrInfo
	lda 11,s
	sta <PtrInfo+2

SendIDComm	PushLong #P_SelfID
	jsr WriteStr
	bcc @1
	brl ExitCk
	
@1	pha	; find out how we are connected
	pha
	_PMGetPortName
	pla
	sta temp
	pla
	sta temp+2	
	
	lda [temp]
	and #$00FF
	cmp #9	; length of string "AppleTalk" ?
	bne DirectCon
	
;-----------------------------------------------------------
;
; Need to do the following differently for AppleTalk connection 
; to go around a bug in the AppleTalk connection card.
;

	PushLong #0	; set initial value for the 5 second timer
	_GetTick
	pla
	sta Timer	
	pla	; ignore high word

LoopWait1
	jsr GetStatus	; need to check if the printer is offline
	jsl lldIdleProc	; and if the user cancels
	lda iPrErr	; user cancelled
	bne ExitCk	; let's split now
	lda PStatus	; printer not responding
	bne LoopWait1	; wait til user corrects problem, or cancels

LoopRead	lda ReadingDone	; wait until async read completes
	bmi GotIt
	
	PushLong #0	; check if 5 seconds has passed since
	_GetTick	; the self ID command is sent
	pla
	plx	; we need not deal with high word
	sec
	sbc Timer	; subtract starting	value
	bcs NoBorrow	; if borrow is needed, a wrap had 
	adc #$FFFF	; occurred. We'll add $10000 to get
	adc #1	; the positive value and compare to 	
NoBorrow	cmp #300	; 5 secs (60 ticks/sec * 5 sec = 300)
	blt LoopRead

	bra SendIDComm	; No response after 5 seconds, go resent the
		; the command, as recommand by Tim Harrington

GotIt	lda ReadError	; check error
	bne ExitCk	; exit now if there	is one

;----------------------------------------------------------------
;
; Moves the data returned in the read buffer into the buffer
; passed by the caller.


	pushlong #ReadBuffer
	lda <PtrInfo+2
	pha
	lda <PtrInfo
	pha
	PushWord #0	; high byte of long	word is always 0
	PushWord ReadingLength ; since the length is 512 max
	_BlockMove
	bra ExitCk

;-----------------------------------------------------------
;
; If we're direct connect, just issue a read to get the printer ID
;

DirectCon	pha	; space for actual read count
	lda <PtrInfo+2	; pointer to passed	buffer
	pha
	lda <PtrInfo
	pha
	lda #10	; request 10 bytes
	pha

LoopWait2
	jsr GetStatus
	jsl lldIdleProc
	lda iPrErr
	bne ExitCk
	lda PStatus
	bne LoopWait2

	_PrDevRead
	pla

ExitCk	pld
	brl LLdExit4

	Export P_SelfID
P_SelfID	DC.B 2	;Command to ask for	printers self ID
	DC.B $1b,$3F

Timer	DS.B 2
PortName	DS.B 4
;               
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;
;  NAME:        LLDSetQuality	(alias LLDSetMode)
;
;  PURPOSE:  to set	the printing quality at JOBPRINT (called by StartLLD)
;
;  PASSED:      WORD	QUALITY
;               WORD	UserID
;
;  RETURNED:    (A-reg.)	=0, No Errors
;
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------

;-----------------------------------------------
	EXPORT LLDSetQuality
LLDSetQuality
	EXPORT LLDSetMode
LLDSetMode	jsl xLLDSetQuality
	rtl
;-----------------------------------------------
	EXPORT xLLDSetQuality
xLLDSetQuality	phd	;Take user's ZeroPage
	lda MyWap	;get saved LLD zero	page addr.
	tcd	;use it

* Stack: 1: Direct Page Application
*        3: rtls
*        9: ID user
*        11: Quality

	lda 11,s	;get quality
	sta <JobPrint
	lda #0

ErrId4	pld
	brl LLdExit4

	
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;
;  NAME:        LLDSetPenPos
;
;  PURPOSE:  Sets the printer head position
;
;  PASSED:      WORD	Pens Horzontal Position
;               WORD	Pens Vertical Position
;               WORD	User ID
;
;  RETURNED:    (A-reg.)	=0, No Errors
;
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;-----------------------------------------------
	EXPORT LLDSetPenPos
LLDSetPenPos	jsl xLLDSetPenPos
	rtl
;-----------------------------------------------
	EXPORT xLLDSetPenPos
xLLDSetPenPos	phd	;Take user's ZeroPage
	lda MyWap	;get saved LLD zero	page addr.
	tcd	;use it

* Stack: 1: Direct Page Application
*        3: rtls
*        9: User Id
*        11: NewPenPosV
*        13: NewPenPosH

	lda 11,s	;get the pens vertical position
	sta <NewPenPosV

	lda 13,s	;get the pens horizontal position
	sta <NewPenPosH

	jsr MovePen	;move the print head to location

	Lda #0
ErrID6	pld
	brl LLdExit6
	
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;
;  NAME:        LLDSetColor
;
;  PURPOSE:  To set	one color palette in the color palette table
;
;  PASSED:      LONG	Pointer to color palette values
;               WORD	Which color palette	in color table
;               WORD	User ID
;
;  RETURNED:    (A-reg.)	=0, No Errors
;
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;-----------------------------------------------
	EXPORT LLDSetColor
LLDSetColor	jsl xLLDSetColor
	rtl
;-----------------------------------------------
	EXPORT xLLDSetColor
xLLDSetColor	phd	;Take user's ZeroPage
	lda MyWap	;get saved LLD zero	page addr.
	tcd	;use it

* Stack: 1: Direct Page
*        3: Rtls
*        9: ID
*        11: Color palette in color table
*        13: Ptr to	color palette

	jsr SetColor

	lda #0

ErrID17	pld
	brl LLdExit8
	
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;
;  NAME:        LLDSetTColor
;
;  PURPOSE:  Sets the color palette table (whole table)
;
;  PASSED:      LONG	Pointer the new color palette table
;               WORD	User ID
;
;  RETURNED:    (A-reg.)	=0, No Errors
;
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
	EXPORT LLDSetTColor
LLDSetTColor
;-----------------------------------------------
	jsl xLLDSetTColor
	rtl
;-----------------------------------------------
	EXPORT xLLDSetTColor
xLLDSetTColor	phd	;Take user's ZeroPage
	lda MyWap	;get saved LLD zero	page addr.
	tcd	;use it

* Stack: 1: Direct Page
*        3: Rtls
*        9: ID
*        11: Ptr to	color palette

	jsr SetColorT	;set the color palette table

	lda #0

ErrID20	pld
	brl LLdExit6


;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;
;  NAME:        LLDGetTColor
;
;  PURPOSE:  Copies	the color pallete table to the specified location
;
;  PASSED:      LONG	Pointer to where to	store color table
;               WORD	User ID
;
;  RETURNED:    (A-reg.)	=0, No Errors
;
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
	EXPORT LLDGetTColor
LLDGetTColor
;-----------------------------------------------
	jsl xLLDGetTColor
	rtl
;-----------------------------------------------
	EXPORT xLLDGetTColor
xLLDGetTColor
	phd	;Take user's ZeroPage
	lda MyWap	;get saved LLD zero	page addr.
	tcd	;use it

* Stack: 1: Direct Page
*        3: Rtls
*        9: ID
*        11: Ptr to	color palette

	jsr GetColorT	;get the color pallete

	lda #0

ErrID21	pld
	brl LLdExit6
	
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;
;  NAME:        LLDSetPageRect
;
;  PURPOSE:  Sets the page rectangle
;
;  PASSED:      LONG	Pointer to page rectangle
;               WORD	User ID
;
;  RETURNED:    (A-reg.)	=0, No Errors
;
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
*
* Page Rect
*

	EXPORT LLDSetPageRect
LLDSetPageRect
;-----------------------------------------------
	jsl xLLDSetPageRect
	rtl
;-----------------------------------------------
	EXPORT xLLDSetPageRect
xLLDSetPageRect
	phd	;Take user's ZeroPage
	lda MyWap	;get saved LLD zero	page addr.
	tcd	;use it


* Stack: 1: Direct Page Application
*        3: rtls
*        9: ID user
*        11: PageRect

	lda 11,s	;get the pointer to	the page rect.
	sta <PtrInfo
	lda 13,s
	sta <PtrInfo+2	;get the rest of the pointer

;Now copy the page rectangle
	ldy #6
LoopSetPage	lda [<PtrInfo],y
	tyx
	sta <PageRect,x
	dey
	dey
	bpl LoopSetPage

	lda <PageRect+2	Calc Landscape ratio
	sta <PageRectL

	lda <PageRect+6
	sta <PageRectL+2

	lda #0
ErrID10	pld
	brl LLdExit6

	ENDP




; LLD.HardCopy

	
*****************************
*	        *
* Lld.HardCopy	        *
*	        *
* Current Rev: Nov.	1987    *
*    Hard Copy	        *
*	        *
*****************************

HardCopy	PROC EXPORT
;------------------------------------------------------------------------------
;
; NAME:         ScreenShoot
;
; PURPOSE:      To print the screen
;
; PASSED:       WORD	Type Flag
;		 =0 Whole screen
;		^=0 Top only
;               WORD	Background Flag (NOT USED)
;               WORD	User ID
;
; RETURNED:
;
;------------------------------------------------------------------------------
	EXPORT ScreenShoot	;Make a screencopy
ScreenShoot	phb
	phk
	plb

	lda #200
	sta BottomScreen	;set bottom of screen to 200
	stz ContLine	;init. counter

	stz RectScreen+2	;set left to zero
	lda #640
	sta RectScreen+6	;set right to 640
	lda #200
	sta RectScreen+4	;set bottom to 200
	stz RectScreen	;set top to zero

; Stack: 1 : plb
;        2 : rts
;        4 : User Zero page
;        6 : rtls
;        12 : ID
;        14 : Background flag
;        16 : Type flag
;
; Take TopWindow if	needed
;
	lda 16,s
	beq NoTop	;branch if not top only

	PushLong #0
	PushLong #0	The Front Window
	_FrontWindow

	_GetStructRgn	Vis region of TopWindow

	lda 1,s
	sta <PtrLocal	;save the regions handle
	lda 3,s
	sta <PtrLocal+2
;
; ============================================
; ===  WARNING FORBIDDEN BUT NEEDED ACTION ===
; ============================================
;  This region is a	rectangle. I need to dereference the region
;         Rectangle	Region: 0A 00 Top Left Bottom Right
;
	PushLong <PtrLocal
	_HLock	;lock the region
	ldy #2
	lda [<PtrLocal]
	tax
	lda [<PtrLocal],y
	stx <PtrLocal	;now we have the pointer
	sta <PtrLocal+2

	lda [<PtrLocal],y
	sta ContLine
	iny
	iny
	lda [<PtrLocal],y
	sta RectScreen+2
	iny
	iny
	lda [<PtrLocal],y
	sta BottomScreen
	iny
	iny
	lda [<PtrLocal],y
	sta RectScreen+6

	_HUnLock	;now unlock the region

NoTop		;
;
; First we must save ColorTable of the user
; We ask for a handle for this purpose
;
	PushLong #0	Ask for handle for saving color table
	PushLong #$0200
	PushWord MyPID
	PushWord #%0000000000011100 Purge level0. Not locked, not fixed
	PushLong #0
	_NewHandle
;
;  If a memory manager error occurs, we	get out
;
	bcc NoError34
	brl ColorError
;
;  Take the handle,	and dereference it
;
NoError34		;
	pla	;first save the handle
	sta SaveHColorT
	pla
	sta SaveHColorT+2

	jsr DefColorTable	;dereference SaveHColorT to <PtrLocal
;
;  We save user table color and we put screen color table
;
	PushLong <PtrLocal
	PushWord <Owner	User ID
	jsl LLDGetTColor

	PushLong SaveHColorT
	_HUnLock	;Unlock it

;;;;;;;;;;;;;;;;PushLong #$E19E00	;On met la palette de couleur ecran
	pea $00E1	; (PushLong #$E19E00)
	pea $9E00
	PushWord <Owner	;User ID
	jsl LLDSetTColor

Direct		;
;
;  Init hardcopy. Save <JobPrint, and init PortLoc
;
	_HideCursor

	jsr Init	;initialize things
;
;  Put actual Screen address in PortLoc	($E1/2000)
;
	lda #$E1	Screen Address
	sta ScrLoc+4
	lda #$2000
	sta BeginScreen
;
;  Main loop for printing
;
loopdirect		;
;
;  Ask the first change in the SCB table
;
	jsr CheckSCB	Make a BitMap Loc
;
;  Can't make a landscape screen shoot with changing SCB
;
	bcs ErrorLand
;
;  Do actual printing of a zone
;
	PushLong #ScrLoc
	PushLong #RectScreen
	PushWord <Owner
	jsl LLDBitMap	;print it
;
; Test if end of printing
;
	lda ContLine	;get current line we are on
	cmp BottomScreen	;Test for end of screen
	bne loopDirect	;loop until at bottom
;
; Close all handles. Restore user's color table, <Quality
;
	jsr CloseHard	Close all handle

	_ShowCursor	;display the cursor
;
;  Leave without errors
;
	lda #0
	plb
	rts

ErrPr	dc.b 0,$C0	;brk        $C0
;
; We attempted to do landscape printing	with a changing SCB
;
ErrorLand		;
	jsr CloseHard	Close all handle
;------------------------------------------------------------------------------
; NOTE: $1213
;------------------------------------------------------------------------------
	lda #$1213	Hardcopy in landscape impossible
	plb
	rts
;------------------------------------------------------------------------------
;  We arrive here with with an error on	_NewHandle for Handle color
;------------------------------------------------------------------------------
ColorError		;	    Error on HandleColor
	plx
	plx
	plb
	rts
	
;------------------------------------------------------------------------------
;
; NAME:         CloseHard
;
; PURPOSE:      Shuts down things used by 'ScreenShoot'
;
; PASSED:       NONE
;
; RETURNED:  NONE
;
;------------------------------------------------------------------------------
CloseHard		;
;
; Restore the users	saved color table
;
	jsr DefColorTable	;derefernce SaveHColorT to PtrLocal

	PushLong <PtrLocal
	PushWord <Owner
	jsl LLDSetTColor	;restore users color table

	PushLong SaveHColorT
	_DisposeHandle	;dispose of it
;
;  Restore <JobPrint
;
	lda SaveQuality
	sta <JobPrint

	rts

;------------------------------------------------------------------------------
;
; NAME:         Init
;
; PURPOSE:      Saves the Quality and inits the Srcloc values
;
; PASSED:       NONE
;
; RETURNED:  NONE
;
;------------------------------------------------------------------------------
; Save <Jobprint

Init		;
	lda <JobPrint
	sta SaveQuality	;Save the quility

;
;  Init SrcLoc values
;
	stz ScrLoc+8	Boundsrect Top
	stz ScrLoc+10	Boundsrect Left
	stz ScrLoc	SCB
	lda #$a0
	sta ScrLoc+6	length of a line in	bytes
	rts
	
;------------------------------------------------------------------------------
;
; NAME:         CheckSCB
;
; PURPOSE:      Check SCB (Scan Control	Block) until the first change
;
; PASSED:       NONE
;
; RETURNED:  (Carry	Bit)	=0, If portrait mode or unchanged SCB's
;		=1, If landscape and changing SCB's
;
;------------------------------------------------------------------------------
CheckSCB		;
;
; Calc beginning of	bitmap (current line times $a0)
;
	PushLong #0
	PushWord Contline	;current line
	PushWord #$A0
	_Multiply

	pla	;get result of multiply
	clc
	adc BeginScreen	;add in the beginning of screen
	sta ScrLoc+2
	pla
;
;  Look at the first SCB
;
	PushWord #0
	PushWord ContLine
	_GetSCB	;gets the SCB for that line

	lda 1,s
	and #$000F	;look only at color	table no.
	sta ScrLoc	;save it for now

	stz ContRect	;init counter
;
;  main loop for checking for changing SCB's
;
LoopCheck		;
	inc ContRect
	inc ContLine	;look at current line
	lda ContLine
	cmp BottomScreen
	beq EndCheck	;branch if its at screens bottom

	PushWord #0
	PushWord ContLine
	_GetSCB	;get SCB of current	line
	pla

	and #$000F	;look only at color	table bits
	cmp ScrLoc	;see if different from first SCB's
	beq LoopCheck	;branch if same
;
; We arrive here if	at bottom or different SCB color table reference was found
;
EndCheck		;
	pla	;get the first SCB that was checked
	and #$008F	;look only at color	table and mode bits
	sta ScrLoc

	lda ContRect
	sta ScrLoc+12	;save the line we ended with (bottom)

	lda <JobPrint	;assume 320 mode
	and #$FFFE	;so AND out bit for	320 mode
	sta <JobPrint

	ldx #320	;assume 320 mode
	lda ScrLoc
	and #$00F0
	beq OkMode	;branch if 320 mode

;We arrive here if its 640 mode
	ldx #640
	inc <JobPrint	;turn on 640 mode bit

OkMode	stx ScrLoc+14	;save mode (320 or 640)

	lda <JobPrint
	and #$4000	;look at landscape/portrait bit
	beq Xclc	;branch if portrait	(SCB doesn't matter)

	lda ContLine	;get line we stopped with
	cmp BottomScreen	;see if its bottom of screen
	beq Xclc	;branch if hit bottom
	sec	;else flag changing	SCB
	rts

;We arrive here when we are in portrait	mode or unchanging SCB's
Xclc	clc
	rts
	
;------------------------------------------------------------------------------
;
; NAME:         DefColorTable
;
; PURPOSE:      Dereferences SaveHColorT (color table) to <PtrLocal
;
; PASSED:       NONE
;
; RETURNED:  NONE
;
;------------------------------------------------------------------------------
DefColorTable		;
	PushLong SaveHColorT ;lock the handle
	_HLock

	lda SaveHColorT	;store handle to zero page temporary
	sta <NewPenPosH
	lda SaveHColorT+2
	sta <NewPenPosH+2

	ldy #2	;now dereference to	<PtrLocal
	lda [<NewPenPosH]
	sta <PtrLocal
	lda [<NewPenPosH],y
	sta <PtrLocal+2
	rts
	
;------------------------------------------------------------------------------
; Tables
;------------------------------------------------------------------------------
SaveHColorT	DS.B 4	;saved handle to the color table
SaveScreen	DS.B 4
ScrLoc	DS.B 16
SaveQuality	DS.B 2	;saved Quality
ContLine	DS.B 2	;current line
ContRect	DS.B 2
BeginScreen	DS.B 2	;beginning of screen
BottomScreen	DS.B 2	;bottom of screen
RectScreen	DS.B 8


	ENDP


; LLD.BitMap

*****************************
*	        *
* CiDrvr: Printer Driver IW *
*   bitmapDrvr	        *
*	        *
* Current Rev: Nov.	1987    *
*	        *
*****************************

* quality:      8000 => B/W vs Color
*               4000 => landscape vs portrait
*               2000 => vertical sizing
*               0002 => Hires vs Highcolor
*               0001 => 640 vs 320

* From quality we set up other variables:

* spedens:      0	    if portrait or 320  
*               4000     if landscape 640 lores
*               8000     if landscape 640 hires  (144dpi)
* vsizing       8000     if portrait and vsizing

* currentDef:   4	    if highcolor and spedens=0
*               8	    other


BitMapDrvr	PROC EXPORT

;------------------------------------------------------------------------------
;
; NAME:         BitMapShoot
;
; PURPOSE:      Performs the actual printing of a bitmap image
;
; PASSED:       NONE
;
; RETURNED:  NONE
;
;------------------------------------------------------------------------------


	EXPORT BitMapShoot
BitMapShoot
	jsr Pattern	;setup the initial print patterns
	phb	;Activate local Data Bank Register
	phk
	plb

	stz SpeDens	;init. variables
	stz Vsizing

	lda <Quality	;look at quality
	and #$6002
	cmp #$2002
	bne noVsizing	;branch if no vert.	sizing
	sec
	ror Vsizing	;set vertical sizing high bit
noVSizing		;

	lda <Quality
	and #$4000	;look at landscape vs portriat
	beq NoProblem	;branch if portrait

	lda <Quality
	and #$0003
	cmp #$1
	beq Problem1
	cmp #3
	bne NoProblem

	lda #$8000
	sta SpeDens	Landscape Quality 4	    
	bra NoProblem

Problem1	lda #$4000	LandScape Quality 2
	sta SpeDens

;Now copy the bitmap definition to DrvrBitMap
NoProblem	ldy #14	;Copy BitMap definition
Loop1	lda [<PtrBitMap],y
	sta DrvrBitMap,y
	dey
	dey
	bpl loop1

	stz ContLine	;init. current print buffer line

* I Check if Printed Rect was inside BoundsRect with QuickDraw
* With all LLD calling QuickDraw must be activate unless HardCopy.
* HardCopy make an internal calling to Print BitMap, then I	sure that Printed
* was inside BoundsRect.

	lda <PtrBitMap
	clc
	adc #8
	sta <PtrLocal
	lda <PtrBitMap+2
	adc #0
	sta <PtrLocal+2

	PushWord #0	Check if BoundsRect	is empty
	PushLong <PtrLocal
	_NotEmptyRect

	ldx #$1113	No possible intersection
	pla
	beq ErrorBit

	PushWord #0	Check if Printed Rect is empty
	PushLong <PtrRect
	_NotEmptyRect

	ldx #$1114	No possible intersection
	pla
	beq ErrorBit

	PushWord #0
	PushLong <PtrLocal	Calculate the Intersection between
	PushLong <PtrRect	Printed Rect and BoundsRect and
	PushLong #DrvrRect	the result is the real Printed Rect
	_SectRect

	ldx #$1115	No intersection
	pla
	bne L4

ErrorBit	stx <Error
	plb
	rts

l4	ldy #2	;Make a translation	of origin
loop13	lda DrvrBitMap+12,y	;Top,Left of BoundsRect became 0,0
	sec	;and all other coord. are calculated again
	sbc DrvrBitMap+8,y	;with this new origin
	sta DrvrBitMap+12,y

	lda DrvrRect,y
	sec
	sbc DrvrBitMap+8,y
	sta DrvrRect,y

	lda DrvrRect+4,y
	sec
	sbc DrvrBitMap+8,y
	sta DrvrRect+4,y

	dey
	dey
	bpl loop13

	stz DrvrBitMap+8	Tb became 0
	stz DrvrBitMap+10	Lb became 0

	lda <Quality	;look at landscape vs portriat
	and #$4000
	beq L41	;branch if portriat

;------------------------------------------------------------------------------
* Landscape printing. We translate printed rect and boundsrect into other
* direction. Tb and	Lb are needed to be	equal 0
;------------------------------------------------------------------------------
	lda DrvrBitMap+12	Tb <- Tb
	ldy DrvrBitMap+14	Lb <- Lb
	sta DrvrBitMap+14	Bb <- Rb
	sty DrvrBitMap+12	Rb <- Bb

	lda DrvrRect+2	Tr <- Lr
	sta LandStock	Lr <- Bb-Br
	lda DrvrRect+6	Br <- Rr
	sta LandStock+2	Rr <- Bb-Tr

	lda DrvrRect+4
	sta HightLand

	lda DrvrBitMap+14
	sec
	sbc DrvrRect+4
	sta DrvrRect+2
	lda DrvrBitMap+14
	sec
	sbc DrvrRect
	sta DrvrRect+6

	lda LandStock
	sta DrvrRect
	lda LandStock+2
	sta DrvrRect+4

* If Printed Rect's and BoundsRect's Top and Bottom are not	equal, there are
* some blank lines at the beginning and	at the end of the picture


* If Printable paper is smaller than Printed Rect we must shrink Printed Rect

	lda <Quality
	and #$1
	tax

	lda <PageRectL	Left margin landscape
	sta <PageRectPtr

	lda <PageRectL+2	Right margin landscape
	sta <PageRectPtr+2

	bra Shrink


;------------------------------------------------------------------------------
; PORTRAIT
;------------------------------------------------------------------------------
L41		;

	lda <PageRect+2	Left margin portrait
	sta <PageRectPtr	Left margin in pixel

	lda <PageRect+6	Right margin portrait
	sta <PageRectPtr+2	Right margin in pixel

Shrink		;
	lda <Quality
	and #$3
	tax

	lda DrvrRect+6
	jsr CalcPoPi

	adc <PageRectPtr
	cmp <PageRectPtr+2
	bcc NoShrink

	lda <PageRectPtr+2
	jsr CalcPiPo
	sta DrvrRect+6

NoShrink		;
* If landscape with	vertical sizing, then  multiply DrvrRect+6 by 2
	lda <quality
	and #$6000
	cmp #$6000
	bne noAsl
	asl DrvrRect+6	;times two

noasl		;
	lda DrvrRect
	beq Equal1

	sta FlagT	Number of lines to skip at the top

Equal1	lda DrvrBitMap+12
	sec
	sbc DrvrRect+4
	beq L3

	sta FlagB	Number of lines to skip at the bottom

L3		;	    The Good rect is in DrvrRect 

	stz CurrentLine

	lda FlagT
	sta ContLine	Nb BitMap lines to skip at the top

	lda <Quality	ResVert=8 if single	horizontal line
	ldx #8	ResVest=4 if double	horizontal line
	and #$0002
	bne L1
	bit SpeDens	Quality 2 landscape
	bvs L1
	lda spedens
	ora Vsizing
	bmi willdo

	lda <quality
;Special case out 320 vertical condensed
	cmp #$6000	;see if landscape 320 (vert. condensed)
	beq willdo
	cmp #$E000	;see if color landscape 320 (vert. cnd)
	beq willdo

	and #$2000
	bne L1
willdo		;
	ldx #4	Quality 1 and 2
;               asl	    FlagT	 Twice more sheet lines to skip at the top
;               asl	    FlagB	 idem at bottom

L1	stx CurrentDef
	bit Vsizing
	bmi Double
	bit SpeDens
	bpl NoDouble
Double		;
	asl CurrentDef	Special vertical density
;------------------------------------------------------------------------------
;
; This is the actual print loop
;               1. Skip no. of lines from top
;               2. Make a buffer
;               3. Print a buffer
;               4. (loop for all buffers for screen)
;               5. Skip no. of lines at	bottom
;------------------------------------------------------------------------------
NoDouble	ldx FlagT	Skip lines at the top
	jsr SkipXLine
	jsr SendBPrep	;Send prep. stuff
	lda #1
	sta FlagBlack	;force first time to clear buffers

Suite	jsr MakeBuff	;make Buffer. Done if carry is set

Loop3	php	;Save Carry
	jsr SendBuff	;send the buffer to	the printer
	jsl LLDIdleProc
	lda iPrErr
	beq @1
	plp
	bra ErrorExit

@1	plp	;restore carry
	bcs EOF2	;branch if done with rect.

	jsr SendRCLF	;perform a carriage	return, line feed
	bra Suite

EOF2	jsr SkipBLine	;skip lines left at	bottom
ErrorExit	plb
	rts
	
;------------------------------------------------------------------------------
;
; NAME:         CalcPiPo
;
; PURPOSE:      Calculates a printer pixel to a point on the screen
;
; PASSED:       (X-reg.)
;
; RETURNED:  (A-reg.)
;
;------------------------------------------------------------------------------
	EXPORT CalcPiPo	Translate Pixel Printer en Point
CalcPiPo	bit SpeDens
	bmi divise2
	bvs Divise4

	cpx #3
	beq NoCalcPiPo

	cpx #0
	beq Divise4

	bra Divise2
Divise4	lsr a
Divise2	lsr a
NoCalcPiPo	rts

;------------------------------------------------------------------------------
;
; NAME:         CalcPoPi
;
; PURPOSE:      Calculates a point on the screen to a pixel
;
; PASSED:       (X-reg.)
;
; RETURNED:  (A-reg.)
;
;------------------------------------------------------------------------------
	EXPORT CalcPoPi	Translate Point Screen en Pixel
CalcPoPi	bit Spedens
	bmi popimult2
	bvs PopiMult4

	cpx #3
	beq NoCalcPoPi

	cpx #0
	beq PoPiMult4
	bra PoPiMult2

PoPiMult4	asl a
PoPiMult2	asl a
NoCalcPoPi	rts
	
;------------------------------------------------------------------------------
;
; NAME:         SkipBLine
;
; PURPOSE:      Skip lines left at the bottom of the page
;
; PASSED:       NONE
;
; RETURNED:  NONE
;
;------------------------------------------------------------------------------
SkipBLine		;
	bit SpeDens
	bmi SkipBSpe
	bit Vsizing
	bmi SkipBSpe

	lda CurrentDef	;get current no. pixel lines per print
	cmp #$8
	beq l5

	asl DrvrRect+4

l5	lda DrvrRect+4
	and #$0007
	bne OkModulo
	lda #8
OkModulo	clc
	adc FlagB
	tax
	jsr SkipXLine	;skip no. of lines as per (X) reg.
	rts

;------------------------------------------------------------------------------
;
; NAME:         SkipXLine
;
; PURPOSE:      To cause the printer to	skip (X) number of lines down the page.
;
; PASSED:       (X-reg.)	No. of lines to skip
;
; RETURNED:  NONE
;
;------------------------------------------------------------------------------
	EXPORT SkipXLine
SkipXLine	bit SpeDens
	bmi SkipXSpe
	bit Vsizing
	bmi SkipXSpe

	phx
	txa
	lsr a
	lsr a
	lsr a
	beq NoBlock	Nb block of 8 lines	to skip
	cmp #1
	bne nobeeper
	pha
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;               ldx	#$2c03
;               jsl	$e10000	;beeeeeeeeeeeeeeeeeep
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	pla
nobeeper		;
	cmp #0

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;SPEED Enhancement;;;;;;;;;;;;;;;;;;;;;
MLFLoop		;
	beq NoBlock	;branch if zero 8 lines left
	cmp #4	;see if more than 4	lines
	bcc LoopSkip2	;branch if 4 or less LF's
	pha

	PushLong #MultiLFC	;do multiple line feeds (4 of them)
	jsr writestr

	pla
	sec
	sbc #4	;inc. lines left by	4
	bra MLFLoop

LoopSkip2		;
	tax
LoopSkip	phx
	jsr SendRCLF	Skip no of times 8 lines
	plx
	dex
	bne LoopSkip

NoBlock	pla
	and #$0007
	beq EndSkip
	asl a
	jsr LittleSkip	;skip no. of single	lines left

EndSkip	rts
	Export MultiLFC
MultiLFC	DC.B 8,$1B,$54,$39,$36 ; set to 96/144th inch distance
	DC.B $0D,$0A	; CRLF
	DC.B $1B,$41	; reset to 24/144th

;MultiLFC   DC.B	$02,$1f,$34 ;Mulitple line feeds (4)
;------------------------------------------------------------------------------
; PURPOSE:      Skips bottom lines for special.
;------------------------------------------------------------------------------
SkipBSpe		;
	lda DrvrRect+4
	and #$000f
	bne OkModS
	lda #$0010
OkModS	clc
	adc FlagB
	tax

;------------------------------------------------------------------------------
; PURPOSE:      Skip number of lines as	specified in (X-reg.). (Special)
;------------------------------------------------------------------------------
SkipXSpe		;
	phx
	txa
	lsr a
	lsr a
	lsr a
	lsr a
	beq NoBlockS	Nb block of 8 lines	to skip

	tax
LoopSkipS	phx
	jsr SendRCLF	Skip X time 8 lines
	plx
	dex
	bne LoopSkipS

NoBlockS	pla
	and #$000f
	beq EndSkipS	;branch if no single lines left
	jsr LittleSkip	;skip single lines that are left

EndSkipS	rts

	
;------------------------------------------------------------------------------
;
; NAME:         MakeBuff
;
; PURPOSE:      Makes the actual print buffers which are to	be printed
;
; PASSED:       NONE
;
; RETURNED:  NONE
;
;------------------------------------------------------------------------------

MakeBuff		;

	phb	;Activate local Data Bank register
	phk
	plb
	jsr DefIoHandle
	stz WasImage	;clear image flags
	stz WasImage1
	stz WasImage2
;-----------------------------------------------------------------------------
;
; This clears the buffers with zeros
;
;-----------------------------------------------------------------------------
	ldy #$27fe	;assume color

	bit Quality	;see if color
	bmi NotSpClr	;branch if color

	ldy #$500	;its black and white
	bit Vsizing
	bmi IsSpClr	;branch if not special
	bit SpeDens
	bpl NotSpClr

IsSpClr		;
	ldy #$a00

NotSpClr		;
	;;;lda FlagBlack	;DISABLED: NOW ALWAYS CLEAR ENTIRE BUFFER - Ben 2/7/90
	;;;beq LoopMakeP	;fixes "stuttering" garbage print in better+condensed
BWClean		;kludge, not good fix but it's all gonna be new anyway
	lda #$0
	stz FlagBlack	;flag as clear
;
;This does the clearing of the actual print buffer
;
clean	sta [PtrYellow],y
	dey
	dey
	bpl clean
;
;Each pass thru is for a print line
;
;NOTE: There are two phases.  The first	phase is scan time for all white and
;       the second phase is imaging (if	scan time found something to image.)

LoopMakeP		;
	stz ImageTime	;init. to scan time
	lda ContLine	;save line were on
	sta ContSave
	lda DrvrBitMap+2	;save pointer to bitmap
	sta BMSave
	lda DrvrBitMap+4
	sta BMSave+2

LoopMake	jsr MakeLine

	lda WasImage	;see if an image was found
	beq Cont1	;branch if still scanning
	lda ImageTime
	bne Cont1	;branch if already imaging time
;We arrive here when we make the transition to imaging time
Trans2Im		;
	lda ContSave	;get save line
	sta ContLine	;reset to start
	lda BMSave
	sta DrvrBitMap+2
	lda BMSave+2
	sta DrvrBitMap+4
	stz CurrentLine	;reset current line	in buffer
	inc ImageTime	;set to scan time
	bra LoopMake	;start over imaging

Cont1		;
	bit Vsizing
	bmi DoSpeBuff
	bit SpeDens	;branch if special density
	bpl NoSpeBuff	;branch if normal

;We get here if its	special
DoSpeBuff		;
;               lda	    WasImage
;               ora	    WasImage1	;or in flag
;               sta	    WasImage1
;               lda	    WasImage2	;get second flag
;               sta	    WasImage

	inc Contline
	jsr IncCurrentline
	jsr DefIOHSpe
	jsr MakeLine

	lda WasImage	;see if an image was found
	beq Cont2	;branch if still scanning
	lda ImageTime
	beq Trans2Im	;branch if found data

Cont2		;
;               lda	    WasImage
;               ora	    WasImage2	;or in flag
;               sta	    WasImage2	;save flag
;               lda	    WasImage1	;restore first flag
;               sta	    WasImage

	jsr DefIOHandle

NoSpeBuff	inc ContLine
	lda ContLine
	cmp DrvrRect+4	;Bottom of printed rect
	beq NoSpeBuff21

	jsr IncCurrentLine
	bcc LoopMake	;add blank lines

	plb	;Dessactivate local	Data Bank register
	clc	;Not End of File
	rts

ContSave	DS.B 2	;place to save ContLine
ImageTime	DS.B 2	;0=Scanning, not zero=Imaging
BMSave	DS.B 4	;Bitmap save area
;------------------------------------------------------------------------------
;
; NAME:         LoopMakeBlank
;
; PURPOSE:      Makes a blank line
;
; PASSED:       NONE
;
; RETURNED:  NONE
;
;------------------------------------------------------------------------------

LoopMakeBlank	jsr MakeBlankLine
	bit Vsizing
	bmi DoSpeBuff2
	bit SpeDens
	bpl NoSpeBuff2
DoSpeBuff2		;
	inc Contline
	jsr IncCurrentline
	jsr DefIOHSpe
	jsr MakeBlankLine
	jsr DefIOHandle

NoSpeBuff2	inc ContLine
NoSpeBuff21	jsr IncCurrentLine
	bcc LoopMakeBlank

	plb	; Dessactivate local Data Bank register
	rts

;------------------------------------------------------------------------------
;
; NAME:         DefIoHandle
;
; PURPOSE:      Dereferences the IoHandle and calculates the address' for the
;               different color buffers.
;
; PASSED:       NONE
;
; RETURNED:  NONE
;
;------------------------------------------------------------------------------

	EXPORT DefIoHandle
DefIoHandle	ldy #2
	lda [<HandleIo]
	sta PtrYellow	;Set as start of Yellow buffer
	lda [<HandleIo],y
	sta PtrYellow+2
	sta PtrRed+2
	sta PtrBlack+2
	sta PtrBlue+2

SpeIObis	lda PtrYellow
	clc
	adc #$a00	;add $a00 to arrive	at PtrRed
	sta PtrRed
	bcc NoCarryR
	inc PtrRed+2

NoCarryR	lda PtrYellow
	clc
	adc #$1400	;add $1400 to arrive at PtrBlue
	sta PtrBlue
	bcc NoCarryB
	inc PtrBlue+2

NoCarryB	lda PtrYellow
	clc
	adc #$1e00	;add $1e00 to arrive at PtrBlack
	sta PtrBlack
	bcc NoCarryN
	inc PtrBlack+2

NoCarryN	rts

;------------------------------------------------------------------------------
;
; NAME:         DefIoHSpe
;
; PURPOSE:      Dereferences the Io handle and calculates the address' for the
;               different color buffers. (Special H.)
;
; PASSED:       NONE
;
; RETURNED:  NONE
;
;------------------------------------------------------------------------------
	EXPORT DefIoHSpe
DefIoHSpe	ldy #2
	lda [<HandleIo]
	sta PtrYellow
	lda [<HandleIo],y
	sta PtrYellow+2
	sta PtrRed+2
	sta PtrBlack+2
	sta PtrBlue+2

	lda PtrYellow
	clc
	adc #$500
	sta PtrYellow
	bcc SpeIObis
	inc PtrYellow+2
	bra SpeIObis

;------------------------------------------------------------------------------
;
; NAME:         IncCurrentLine
;
; PURPOSE:      Increments the current line
;
; PASSED:       NONE
;
; RETURNED:  Carry bit
;
;------------------------------------------------------------------------------

IncCurrentline		;
	inc CurrentLine	;inc. current line in print buffer
	lda CurrentLine
	cmp CurrentDef	;compare with lines	per print buffer
	bcc IncOut
	stz CurrentLine	;reset current line	in print buffer
IncOut	rts

	ENDP

DataBitMap	PROC EXPORT

	Export CurrentLine
CurrentLine	DC.W 0	;The current line
	Export CurrentDef
CurrentDef	DC.W 0
	Export ContLine
ContLine	DC.W 0
	Export Back
Back	DC.W 0
	Export FlagT
FlagT	DC.W 0	;Flag of Top
	Export FlagB
FlagB	DC.W 0	;Flag of Bottom
	Export CurrentPoint
CurrentPoint	DC.W 0	;The current Point

*		Nb of pixel per line
	Export DrvrBitMap
DrvrBitMap	DS.B 16
	Export DrvrRect
DrvrRect	DS.B 8
	Export HightLand
HightLand	DC.W 0
	Export LandStock
LandStock	DC.W 0
	DC.W 0

	Export SpeDens
SpeDens	DC.W 0
	Export Vsizing
Vsizing	DC.W 0

	ENDP


; LLD.Backgrnd

;------------------------------------------------------------------------------
;
; Primative routines to assist in talking to the port driver
;
;------------------------------------------------------------------------------

*****************************
*	        *
* The Low-Level Driver      *
*	        *
* Current Rev: Nov.	1987    *
*	        *
*****************************
BackGround	PROC EXPORT
;------------------------------------------------------------------------------
;
; NAME:         WriteStr (Short Subroutine)
;
; PURPOSE:      To write a string of text to the printer. (calls PrDevWrite
;               which will actually send each character to the port.)
;
; PASSED:       LONG	        POINTER, to	string to be printed
;
; RETURNED:  (NONE)
;
;------------------------------------------------------------------------------
	EXPORT WriteStr
WriteStr	plx
	stx <PtrColor	;save return address


NoBack9	pla	;get pointer
	sta <PtrLocal	;save pointer to string at PtrLocal
	clc
	adc #01	;to point to first byte of actual text
	sta S_Buffer	;for PrDevWrite
	pla	;get rest of pointer
	adc #00
	sta <PtrLocal+2
	sta S_Buffer+2	;for PrDevWrite

;Now get strings length byte
	lda [PtrLocal]	;get number of bytes in string
	and #$00ff	;only want 8-bit no. of bytes
	sta S_Length

	Jsr PrDevWrite	;call to do the actual transfer

	ldx <PtrColor	;restore return address
	phx

	cmp #1
	rts
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;
; NAME:         WriteTxt
;
; PURPOSE:      To write a buffer of text
;
; PASSED:       LONG	POINTER, to text
;               WORD	Offset from start of text (0 if none)
;               WORD	Number of character	to print
;
; RETURNED:  (None)
;
;------------------------------------------------------------------------------
	EXPORT WriteTxt
WriteTxt	plx
	stx <PtrColor	;save return addr.

NoBack8	plx	;get length
	stx s_Length
	pla	;get offset
	clc
	adc 1,s	;add offset to start of text addr.
	sta s_Buffer	;for PrDevWrite
	pla	;get first part of addr. off
	pla	;get second part of	addr. off
	adc #0
	sta s_Buffer+2

	Jsr PrDevWrite	;output it

	ldx <PtrColor
	phx	;restore return addr.

	cmp #1
	rts

;------------------------------------------------------------------------------
;
; NAME:         PrDevWrite
;
; PURPOSE:      To write a string of text to the printer.
;
; PASSED:       WORD	Length of string
;               LONG	POINTER, to string
;               LONG	POINTER, to completion routine
;
; RETURNED:  (NONE)
;
;------------------------------------------------------------------------------

	EXPORT PrDevWrite
PrDevWrite
;
;This is the loop which will send each character to the port driver
;
;
; Suki Lee  July 11, 1988
; This loop was rewritten to be more efficient on code space
;

Loop		;
	ldx #$00F0	; assume a full buffer for now
	lda s_Length	; get current strings length
	bne @1
	brl done	; branch if nothing	left in the buffer

@1	cmp #$00F0	; see if more than $f0 characters
	bge FullBuff
	ldx s_Length	; if not, send all that's left
FullBuff	stx WriteLength

	pushlong #CompleteWrite
	PushLong s_buffer	;strings pointer addr.
	Pushword WriteLength
	_PrDevWrite
	bcc AllsWell

LoopWait
	jsr GetStatus
	jsl lldIdleProc
	lda iPrErr
	bne ErrorExit
	lda PStatus
	bne LoopWait


AllsWell	lda s_Length	; adjust buffer length by the amount
	sec	; we just sent
	sbc WriteLength
	sta s_Length

	lda s_buffer	; increment buffer pointer accordingly 
	clc
	adc WriteLength
	sta s_buffer
	bcs @1
	brl Loop
@1	inc s_buffer+2	;if to next bank, inc. bank
	brl Loop

Done	lda #0	; all's cool
ErrorExit	cmp #1
	rts

;--------------------------------------------------------------
;
; Completion routine for PAPWrite which	does nothing since we won't
; return from port driver till the write is done.
;

CompleteWrite	rtl


	Export s_Length
s_Length	DS.B 2	;temporary for strings length
	Export s_Buffer
s_Buffer	DS.B 4	;temporary pointer to strings text

WriteError	DS.B 2
WriteLength	DS.B 2

	ENDP


; LLD.Color

*****************************
*	        *
* CiDrvr: Printer Driver IW *
*   Color Drvr	        *
*	        *
* Current Rev: Nov.	1987    *
*	        *
*****************************

;------------------------------------------------------------------------------
;
; NAME:         SetColor
;
; PURPOSE:      Copies to the location specified by the pointer, the color
;               palette table which is specified by the passed SCB byte.
;               (Called by LLDSetColor)
;
; PASSED:       LONG	Pointer to color palette
;               WORD	SCB (which defines palette table)
;               WORD	User ID
;
; RETURNED:  NONE
;
;------------------------------------------------------------------------------
ColorDrvr	PROC EXPORT
	EXPORT SetColor
SetColor

* Stack: 1: rts
*        3: Direct page
*        5: rtls
*        11: ID
*        13: Color palette
*        15: Ptr to	color palette

	jsr DerefColor	;dereference color table
	lda 13,s	;get SCB value
	and #$000F	;look only at color	table bits
	xba	;times $20 to correct palette table
	lsr a
	lsr a
	lsr a

	clc
	adc <PtrColor	;add to start of table
	sta <PtrColor
	lda <PtrColor+2
	adc #0
	sta <PtrColor+2

	lda 17,s
	pha
	lda 17,s
	pha
	PushLong <PtrColor
	PushLong #$20	;$20 bytes (16 palettes * 2 bytes per)
	_BlockMove	;move the color palettes to <PtrColor

	PushLong <HandleColor ;unlock the handle
	_HUnLock
	rts
	
;------------------------------------------------------------------------------
;
; NAME:         SetColorT
;
; PURPOSE:      Copies the users specified color table to the systems.
;               (Called by LLDSetTColor)
;
; PASSED:       (See stack definition below)
;
; RETURNED:  NONE
;
;------------------------------------------------------------------------------
	EXPORT SetColorT
SetColorT

* Stack: 1: rts
*        3: Direct page
*        5: rtls
*        11: ID
*        13: Ptr to	color palette

	jsr DerefColor	;deref. color tables to <PtrColor

	lda 15,s	;get users Color palette table ptr.
	pha
	lda 15,s
	pha

	PushLong <PtrColor
	PushLong #$200
	_BlockMove	;copy in the user color table

	PushLong <HandleColor
	_HUnLock	;unlock the color handle
	rts

;------------------------------------------------------------------------------
;
; NAME:         GetColorT
;
; PURPOSE:      Copies the system color	table to the users specified address.
;               (Called by LLDGetTColor)
;
; PASSED:       (See stack definition below)
;
; RETURNED:  NONE
;
;------------------------------------------------------------------------------
	EXPORT GetColorT
GetColorT
* Stack: 1: rts
*        3: Direct page
*        5: rtls
*        11: ID
*        13: Ptr to	color palette

	jsr DerefColor	;deref. systems color table to <PtrColor

	PushLong <PtrColor	;system color table	ptr.
	lda 19,s	;users color table ptr
	pha
	lda 19,s
	pha
	PushLong #$200	;16 tables times $20 bytes
	_BlockMove

	PushLong <HandleColor
	_HUnLock	;Unlock the color table handle

	rts
	
;------------------------------------------------------------------------------
;
; NAME:         DerefColor
;
; PURPOSE:      Locks the systems color	table handle and dereferences it to
;               <PtrColor.
;
; PASSED:       NONE
;
; RETURNED:  NONE
;
; NOTE: <HandleColor must contain the handle to the system color table.
;
;------------------------------------------------------------------------------
	EXPORT DerefColor
DerefColor
	PushLong <HandleColor
	_HLock	;lock the system color table handle

	ldy #2	;deref. to <PtrColor
	lda [<HandleColor]
	sta <PtrColor
	lda [<HandleColor],y
	sta <PtrColor+2
	rts
	
;------------------------------------------------------------------------------
;
; NAME:         Pattern
;
; PURPOSE:      Builds the actual color	print patterns
;
; PASSED:       NONE
;
; RETURNED:  NONE
;
;------------------------------------------------------------------------------
	EXPORT Pattern
Pattern

	jsr derefColor	;dereference <HandleColor to <PtrColor

	lda [<PtrBitMap]	;get palette table no.
	and #$000F	Color Table
	asl a	*2
	asl a	*4
	asl a	*8
	asl a	*16
	asl a	*32
	clc
	adc <PtrColor	;add to start of palette table
	sta <PtrColor	Pointer to current palette
	lda #0
	adc <PtrColor+2
	sta <PtrColor+2	; now Points to current palette

	phb	;Activate current Data Bank register
	phk
	plb

	ldy #$000F
Mainloop	phy

	lda [<PtrBitMap]	;get the  for this line
	and #$000F	;look only at Color	Table value
	asl a	;times 2 (word entries in color table)
	tax
	tya
	cmp <BackColor,x	;see if
	bne GoCalc

	stz YellowPrt	;init. all color pointers to zero
	stz RedPrt
	stz BluePrt
	stz BlackPrt
	bra EndCalc

GoCalc	jsr Encode	Code Color Algorithm

EndCalc	ply
	phy
	jsr MakePattern	Make a pattern
	ply
	dey
	bpl Mainloop

	plb	;Deactivate current	data bank register

	PushLong <HandleColor
	_HUnLock	;unlock the color handle
	rts
	
;------------------------------------------------------------------------------
;
; NAME:         Encode
;
; PURPOSE:      Color translation algorithm
;
; PASSED:       (Y-reg.)	= Current Color Index (byte index)
;
; RETURNED:  NONE
;
;------------------------------------------------------------------------------

*		Current Data Bank Register is on
*		Y= Current Color

Encode		;
	tya
	asl a	;convert to word index
	tay

	lda [<PtrColor],y	;Get color palette value
;Now cut the palette value into 3 basic	colors
	sta Stock1	;save color palette	value for now
;Get BLUE component
	and #$000F	Blue vector
	sta BlueScr	;save blue componenet in "BlueScr"
;Get GREEN component
	lda Stock1
	lsr a
	lsr a
	lsr a
	lsr a
	sta Stock1
	and #$000F	Green vector
	sta GreenScr	;save green componenet in "GreenScr"
;Now get RED componenet
	lda Stock1
	and #$00F0
	lsr a
	lsr a
	lsr a
	lsr a
	sta RedScr	;save red componenet
*
* Intermediate step	(find minimum of RGB)
*
* RGB=Min (I,J,K)
	lda GreenScr
	cmp BlueScr
	bcc Jump1	Green < Blue
	lda BlueScr
	cmp RedScr
	bcc PutRGB	Blue < Red, Green
Jump2	lda RedScr
	bra PutRGB	Red < Blue, Green
Jump1	cmp RedScr
	bcs jump2	Red < Green, Blue
*		Green < Blue, Green
;We now know which is the minimum value
PutRGB	sta RGB	;save minimum in "RGB"

;Now subtract the minimum from each of the color componenets and save at temps.
	sec
	lda GreenScr
	sbc RGB
	sta TempGreen	;green temp.

	lda BlueScr
	sbc RGB
	sta TempBlue	;blue temp.

	lda RedScr
	sbc RGB
	sta TempRed	;red temp.

;
;Now see if Green was the minimum value
;
*		Calc BG, RG, BR
	lda TempGreen
	bne jump3	;branch if not minimum
*		BG and RG = 0
	sta RG	;RG (Red Green) is zero
	sta BG	;BG (Blue Green) is	zero
;
;Now see which of the temps is smallest
	lda TempBlue
	cmp TempRed
	bcc PutBR	TempBlue < TempRed
	lda TempRed	TempRed  < TempBlue
PutBR	sta BR
	bra Jump4

;
;Now see if RED was	the minimum color
;
Jump3	lda TempRed
	bne jump5	BG and BR = 0
*		BR and RG = 0
	sta RG
	sta BR
	lda TempBlue
	cmp TempGreen
	bcc PutBG	TempBlue < TempGreen
	lda TempGreen	TempGreen< TempBlue
PutBG	sta BG
	bra Jump4
;
;Then it must of been BLUE that was the	minimum value
Jump5	
	stz BG	;Blue Green=0
	stz BR	;Blue Red = 0
	lda TempRed
	cmp TempGreen
	bcc PutRG	TempRed  < TempGreen
	lda TempGreen	TempGreen< TempRed
PutRG	sta RG

*		Calc R, B, G
Jump4	lda RedScr
	sec
	sbc RG
	sbc BR
	sbc RGB
	sta R	;RED

	lda GreenScr
	sec
	sbc BG
	sbc RG
	sbc RGB
	sta G	;GREEN

	lda BlueScr
	sec
	sbc BG
	sbc BR
	sbc RGB
	sta B	;BLUE

*
* Perform Matrix multiplication to convert RGB to CMY
*
	
	stz Cont1
	stz Cont3
loop4	stz Cont2
	lda #$3c
loop2	ldx Cont1
	ldy Matrix,x
	beq nul
	ldx Cont2
loop3	sec
	sbc RGB,x
	dey
	bne loop3
nul	inc Cont1
	inc Cont1
	inc Cont2
	inc Cont2
	ldx Cont2
	cpx #14
	bne loop2

	ldy Cont3
	lsr a
	lsr a
	sta YellowPrt,y

	inc Cont3
	inc Cont3
	ldy Cont3
	cpy #6
	bne loop4

	lda YellowPrt
	clc
	adc RedPrt
	adc BluePrt

	PushWord #0	;Quotient area
	PushWord #0	;Remainder area
	pha	;Numerator
	PushWord #3	;Denominator
	_UDivide
	pla	;Quotient
	sta BlackPrt	;black
	pla	;Remainder (not used)
	rts
	
;------------------------------------------------------------------------------
;
; NAME:         MakePattern
;
; PURPOSE:      Makes the print dot pattern for one given quality/color.
;
; PASSED:       (Y-reg.)	Current color index	(byte index)
;
; RETURNED:  NONE
;
;------------------------------------------------------------------------------
MakePattern		;
	tya	;get color index
	asl a	;times 2
	asl a	;times 4
	asl a	;times 8
	pha

;-----------------------------------------------------------
;
; Quality values: 0	= 320 normal (better color)
;                 1	= 640 normal (better color)
;                 2	= 320 high res (better text)
;                 3	= 640 high res (better text)
;

	lda <Quality	;get quality
	and #$0003	;(look at Highres/HighColor,640/320)
	beq quality0	;branch if 320 normal

	cmp #1	;see if 640 normal
	bne l0
	brl quality1	;branch for 640 normal

l0	cmp #3
	bne quality2	;branch if 320 highres
	brl quality3	;branch if 640 highres

Quality2		;Quality 2 (320 highres)
	bit <quality
	bpl BW2	;branch if black and white

;Do YELLOW level
	lda YellowPrt	Yellow pattern
	asl a
	asl a
	asl a
	asl a
	and #$0080
	xba
	ply
	sta FinalPat,y

;Do RED level
	lda RedPrt	Red pattern
	asl a
	asl a
	asl a
	asl a
	and #$0080
	xba
	sta FinalPat+2,y

;Do BLUE level
	lda BluePrt	Blue pattern
	asl a
	asl a
	asl a
	asl a
	and #$0080
	xba
	sta FinalPat+4,y
	rts

;------------------------------------------------------------------------------
;
; 320 highres Black	& White
;
;------------------------------------------------------------------------------
BW2	lda BlackPrt
	asl a
	asl a
	asl a
	asl a
	and #$80
	xba
	ply
	sta FinalPat,y
	rts

;------------------------------------------------------------------------------
;
; 320 Normal
;
;------------------------------------------------------------------------------
Quality0		;
	bit <quality	;look at color bit
	bpl BW0	;brach if black & white

	ply
;Yellow Level
	lda YellowPrt	Yellow level
	asl a
	tax
	lda Level7,x	0-6 level
	asl a
	tax
	lda Pat32,x	Pattern 3*2
	sta FinalPat,y

;Red Level
	lda RedPrt	Red level
	asl a
	tax
	lda Level7,x	0-6 level
	asl a
	tax
*               lda	    Pat32+18,x	Pattern 3*2
	lda Pat32,x	Pattern 3*2
	sta FinalPat+2,y

;Blue Level
	lda BluePrt	Blue level
	asl a
	tax
	lda Level7,x	0-6 level
	asl a
	tax
*               lda	    Pat32+36,x	Pattern 3*2
	lda Pat32,x	Pattern 3*2
	sta FinalPat+4,y
	rts

;------------------------------------------------------------------------------
;
;  320 Normal Black	& White
;
;------------------------------------------------------------------------------
Bw0	lda BlackPrt
	asl a
	tay
	lda Level7,y	0-6 level
	asl a
	tay
	lda Pat32,y	Pattern 3*2
	ply
	sta FinalPat,y
	rts

;------------------------------------------------------------------------------
;
; 640 Normal
;
;------------------------------------------------------------------------------
Quality1		;
	bit <quality	;look at color bit
	bpl BW1	;branch if black & white

	ply
;Yellow level
	lda YellowPrt	Yellow level
	asl a
	tax
	lda Level5,x	0-4 level
	asl a
	tax
	lda Pat22,x	Pattern 2*2
	sta FinalPat,y

;Red level
	lda RedPrt	Red level
	asl a
	tax
	lda Level5,x	0-4 level
	asl a
	tax
	lda Pat22,x	Pattern 2*2
	sta FinalPat+2,y

;Blue level
	lda BluePrt	Blue level
	asl a
	tax
	lda Level5,x	0-4 level
	asl a
	tax
	lda Pat22,x	Pattern 2*2
	sta FinalPat+4,y
	rts

;------------------------------------------------------------------------------
;
; 640 Normal black & white
;
;------------------------------------------------------------------------------
Bw1	lda BlackPrt
	asl a
	tay
	lda Level5,y	0-4 level
	asl a
	tay
	lda Pat22,y	Pattern 2*2
	ply
	sta FinalPat,y
	rts

;------------------------------------------------------------------------------
;
; 640 Highres
;
;------------------------------------------------------------------------------
Quality3		;
	bit <quality	;look at color bit
	bpl BW3	;branch if black & white

	ply
;Yellow level
	lda YellowPrt	Yellow level
	asl a
	tax
	lda Level3,x	0-2 level
	asl a
	tax
	lda Pat12,x	Pattern 1*2
	sta FinalPat,y

;Red level
	lda RedPrt	Red level
	asl a
	tax
	lda Level3,x	0-2 level
	asl a
	tax
	lda Pat12,x	Pattern 1*2
	sta FinalPat+2,y

;Blue level
	lda BluePrt	Blue level
	asl a
	tax
	lda Level3,x	0-2 level
	asl a
	tax
	lda Pat12,x	Pattern 1*2
	sta FinalPat+4,y
	rts

;------------------------------------------------------------------------------
;
; 640 Highres black	& white
;
;------------------------------------------------------------------------------
Bw3	lda BlackPrt
	asl a
	tay
	lda Level3,y	0-2 level
	asl a
	tay
	lda Pat12,y	Pattern 1*2
	ply
	sta FinalPat,y
	rts
	
;------------------------------------------------------------------------------
;
; PATTERNS & DATA TABLES
;
;------------------------------------------------------------------------------
Pat32		;
	DC.W $0000	;Yellow level 0
	DC.W $8000	;Yellow level 1
	DC.W $8040	;Yellow level 2
	DC.W $80c0	;Yellow level 3
	DC.W $c060	;Yellow level 4
	DC.W $e0c0	;Yellow level 5
	DC.W $e070	;Yellow level 6
	DC.W $f070	;Yellow level 7
	DC.W $f0f0	;Yellow level 8

*               dc	    i'$0000'	;Red level 0	One kind of pattern
*               dc	    i'$4000'	;Red level 1	to have good
*               dc	    i'$4020'	;Red level 2	grey level
*               dc	    i'$4060'	;Red level 3
*               dc	    i'$6030'	;Red level 4
*               dc	    i'$7060'	;Red level 5
*               dc	    i'$70b0'	;Red level 6
*               dc	    i'$f0b0'	;Red level 7
*               dc	    i'$f0f0'	;Red level 8

*               dc	    i'$0000'	;Blue level 0
*               dc	    i'$1000'	;Blue level 1
*               dc	    i'$2010'	;Blue level 2
*               dc	    i'$2030'	;Blue level 3
*               dc	    i'$3090'	;Blue level 4
*               dc	    i'$30b0'	;Blue level 5
*               dc	    i'$b0d0'	;Blue level 6
*               dc	    i'$f0d0'	;Blue level 7
*               dc	    i'$f0f0'	;Blue level 8

	Export Pat22
Pat22	DC.W $0000	Yellow level 0
	DC.W $8000	Yellow level 1
	DC.W $9040	Yellow level 2
	DC.W $e080	Yellow level 3
	DC.W $f0c0	Yellow level 4


*               dc	    i'$0000'	Red level 0
*               dc	    i'$4000'	Red level 1
*               dc	    i'$6080'	Red level 2
*               dc	    i'$d040'	Red level 3
*               dc	    i'$f0c0'	Red level 4

*               dc	    i'$0000'	Blue level 0
*               dc	    i'$8000'	Blue level 1
*               dc	    i'$9040'	Blue level 2
*               dc	    i'$e080'	Blue level 3
*               dc	    i'$f0c0'	Blue level 4

	Export Pat12
Pat12	DC.W $0000	Yellow level 0
	DC.W $8000	Yellow level 1
	DC.W $C000	Yellow level 2


*               dc	    i'$0000'	Red level 0
*               dc	    i'$4000'	Red level 1
*               dc	    i'$C000'	Red level 2

*               dc	    i'$0000'	Blue level 0
*               dc	    i'$8000'	Blue level 1
*               dc	    i'$C000'	Blue level 2

	Export Level7
Level7	DC.W 0,0,1,1,2,3,3,4,4,5,6,6,7,7,8,8
	Export Level3
Level3	DC.W 0,0,0,0,0,1,1,1,1,1,2,2,2,2,2,2
	Export Level5
Level5	DC.W 0,0,0,1,1,1,2,2,2,3,3,3,3,4,4,4

	Export Matrix
Matrix	DC.W 4,0,4,3,4,0,4
	DC.W 4,4,2,1,4,0,0
	DC.W 4,4,2,4,0,4,4

GreenScr	brk 00	;Screen green (K)
BlueScr	brk 00	;Screen blue  (J)
RedScr	brk 00	;Screen red (I)
RGB	brk 00
RG	brk 00
BR	brk 00
BG	brk 00

R	brk 00
G	brk 00
B	brk 00
YellowPrt	brk 00	;Printer Yellow (y)
BluePrt	brk 00	;Printer Blue   (b)
RedPrt	brk 00	;Printer Red    (r)
BlackPrt	brk 00

TempBlue	brk 00	;Also Color0  (It's the last one
TempRed	brk 00	;then no conflit with Temp...)
TempGreen	brk 00

Stock1	brk 00
Cont1	brk 00
Cont2	brk 00
Cont3	brk 00
Cont	brk 00
	ENDP

	EXPORT FinalPat
FinalPat	PROC
	ds.b 8	;Color0
	ds.b 8	;Color1
	ds.b 8	;Color2
	ds.b 8	;Color3
	ds.b 8	;Color4
	ds.b 8	;Color5
	ds.b 8	;Color6
	ds.b 8	;Color7
	ds.b 8	;Color8
	ds.b 8	;Color9
	ds.b 8	;Color10
	ds.b 8	;Color11
	ds.b 8	;Color12
	ds.b 8	;Color13
	ds.b 8	;Color14
	ds.b 8	;Color15
	ENDP


; LLD.Point

*****************************
*	        *
* CiDrvr: Printer Driver IW *
*   bitmapDrvr	        *
*	        *
* Current Rev: Nov.	1987    *
*	        *
*****************************

PrintPoint	PROC EXPORT

;------------------------------------------------------------------------------
;
; NAME:         MakeBlankLine
;
; PURPOSE:      To make a blank line
;
; PASSED:       NONE
;
; RETURNED:  NONE
;
;------------------------------------------------------------------------------
* Line Making process. Time is critical
	EXPORT MakeBlankLine
MakeBlankLine	stz BlankFlag
	bra commonMakeLine
BlankFlag	DS.B 2	;0= blank, $ffff=not blank

;------------------------------------------------------------------------------
;
; NAME:         MakeLine
;
; PURPOSE:      Makes one print line
;
; PASSED:       NONE
;
; RETURNED:  NONE
;
;------------------------------------------------------------------------------
*  Real line making. Time is critical

	EXPORT MakeLine
MakeLine	lda #$FFFF
	sta BlankFlag	;set flag indicating not a blank line

CommonMakeLine		;

	lda DrvrRect+2	Current Left picture size
	sta CurrentPoint	;init current point	to left side
	ora <PageRectPtr
	beq NoBlank
	stz BlankFlag

NoBlank	lda DrvrBitMap+2	;Take BitMap address
	sta <PtrBitMap
	lda DrvrBitMap+4
	sta <PtrBitMap+2

	lda <Quality	;see if portrait or	landscape
	and #$4000
	beq Portrait	;branch if portrait
	brl Landscape	;it must be landscape

;------------------------------------------------------------------------------
;
; PORTRAIT MODE
;
;------------------------------------------------------------------------------
Portrait		;	    Make all real points until the end of

	PushLong #0
	PushWord ContLine
	PushWord DrvrBitMap+6
	_Multiply	;Current line * bytes/line (RIGHT)

	pla
	clc
	adc <PtrBitMap	;add to start of bit map to get location
	sta <PtrBitMap
	pla
	adc <PtrBitMap+2
	sta <PtrBitMap+2

	lda <Quality	;get quality
	and #$03
	beq Mode380C	;branch if 320 mode	high color

	cmp #2
	beq Mode380W	;branch if 320 mode	high res
	brl Mode640	;else its 640 mode

;******************************************************************************
;
; 320 MODES
;
;******************************************************************************
;
; 320 mode (ALL BEST TEXT) (BEST COLOR,	50% red., 50% red. and vert. cond.)
;
Mode380W		;
	lda #PutPoint3
	bra Stuff320
;
; 320 mode
;
Mode380C		;
	lda <quality	;look at quality
	and #$2000	;look at vertical sizing bit
	beq x4	;branch if normal

; 320 mode (BEST COLOR, vert. condensed)
	lda #PutPoint2bis	printing Rect
	bra Stuff320

; 320 mode (BEST COLOR, normal)
X4		;
	lda #PutPoint1

Stuff320	sta Stuff320A+1	;stuff the routines	address
	sta Stuff320AO+1	;stuff the odd address routines

	lda WasImage	;see if an image already was found
	beq Ck320P	;branch if no image	yet
	jmp Not320ClrX	;go image it
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Do a quick empty buffer check;;;;;;;;;
Ck320P		;
;Now check that there are at least 12 points (any less is not worth doing)
	lda DrvrRect+6	;get right
	sec
	sbc DrvrRect+2	;subtract left
	cmp #13
	bcs Q320Clr
	jmp Not320Clr	;jump, not worth doing
;Now calculate the right word
Q320Clr		;
	lda DrvrRect+6
	dec a	;because not included
	lsr a	;convert to byte address
	dec a	;back up to at least two full bytes
	dec a
	sta QLeft

;Now do partial word compares that are to the left
	lda DrvrRect+2	;get left
	lsr a
	tay
	bcc Q320Loop	;branch if starts out even
;The first left pixel is odd
	lda [<PtrBitmap],y
	and #$FF0F
	cmp #$FF0F
	bne Not320Clr	;branch if not clear
	iny
	iny

;This is the main routine which checks for all white (16 bits at a time)

Q320Loop	;
	import IWDisableWhiteSkip
	lda >IWDisableWhiteSkip	;always fail if flag set
	bne Not320Clr

	lda [<PtrBitmap],y
	cmp #$ffff
	bne Not320Clr		;branch if not clear
	iny
	iny
	cpy QLeft
	bcc Q320Loop

;Now check for partial words at the far	right
	lda Qleft
	dec a	;so we don't miss a byte
	asl a	;convert back to pixel address
	tax	;(X-reg. holds pixel address)

Ck320R		;
	txa
	lsr a	;determine if even or odd pixel
	tay	;get byte address
	php	;save status of even or odd
	lda [<PtrBitmap],y	;get word with pixel in it
	plp
	bcs Qodd

;Look at even pixel	point
	and #$00f0
	cmp #$00f0
	bne Not320Clr
	bra Next320R

;Look at odd pixel point
Qodd		;
	and #$000f
	cmp #$000f
	bne Not320Clr	;branch if not white

Next320R		;
	inx
	cpx DrvrRect+6
	bne Ck320R

;We arrive here if all the pixel points	are WHITE
	rts

;We arrive here if the buffer isn't clear
Not320Clr		;
	inc WasImage	;turn on image flag
	rts
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Not320ClrX		;
;
;Now setup for the loop (figure out odd	or even)
;
	lda CurrentPoint	;get current point index
	lsr a
	lda CurrentPoint	;(need to start with current point)
	bcs XX320O	;branch if starts out odd

;This does the even	ones
XX320E		;
	lsr a	;convert to byte address
	tay
	lda [<PtrBitmap],y	;get the byte with pixel in it
	and #$f0
	lsr a	;shift to 6-3
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;NOTE: The address portion of the following jsr instruction	is stuffed.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Stuff320A		;
	jsr PutPoint1	printing Rect

	inc CurrentPoint	;inc. current point
	lda Currentpoint
	cmp DrvrRect+6	;see if to the far right
	beq XX320Done	;loop until far right

;This does the odd ones
XX320O		;

	lsr a	;convert to byte address
	tay
	lda [<PtrBitmap],y	;get the byte with pixel in it
	and #$0f	;mask to get pixel only
	asl a
	asl a
	asl a
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;NOTE: The address portion of the following jsr instruction	is stuffed.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Stuff320AO		;
	jsr PutPoint1	printing Rect

	inc CurrentPoint	;inc. current point
	lda Currentpoint
	cmp DrvrRect+6	;see if to the far right
	bne XX320E	;loop to even one

XX320Done		;
	rts
	
;------------------------------------------------------------------------------
;
; NAME:         PutPoint3
;
; PURPOSE:      Takes the point and puts down the correct pattern into the buffer
;               (for 3 levels) [2 print	pixels]
;
; PASSED:       (A-reg.)	index into finalpat	(print patterns)
;
; RETURNED:  NONE
;
;------------------------------------------------------------------------------
PutPoint3		;

	tax	;Color point *8
	lda CurrentPoint	;get current point
	asl a	;times two (to which word)
	clc
	adc <PageRectPtr	;add to start
	tay	;use as an index to	data point

	bit <Quality	;look at color/bw
	bpl Black3	;branch if bw

	jsr InitPattern	;get the print pattern

************************************	Begin of 8 bit area	for speedy calc

	longa off
	sep #$20

	jsr YRBSingle	;do yellow, red and	blue single
	iny
	jsr YRBSingle
	rep #$20
	rts

	longa on

***************************************	End of 8 bit area
;
;We arrive here if its black and white
;
Black3		;

	jsr InitPattern	;init. the pattern

************************************	Begin of 8 bit area	for speedy calc

	longa off
	sep #$20

;do a yellowsingle
	rol StockYellow+1
	lda [<PtrYellow],y
	ror a
	sta [<PtrYellow],y

;do a yellowsingle
	iny
	rol StockYellow+1
	lda [<PtrYellow],y
	ror a
	sta [<PtrYellow],y

	rep #$20
	rts

	longa on

***************************************	End of 8 bit area
;------------------------------------------------------------------------------
;
; NAME:         PutPoint4
;
; PURPOSE:      Takes the point and puts down the correct pattern into the buffer
;               (Only one print point per pixel)
;
; PASSED:       (A-reg.)	index into finalpat
;
; RETURNED:  NONE
;
;------------------------------------------------------------------------------
PutPoint4		;

	tax	;Color point *8
	lda CurrentPoint
	clc
	adc <PageRectPtr
	tay
	bit <Quality
	bpl Black4

	jsr InitPattern

************************************	Begin of 8 bit area	for speedy calc

	longa off
	sep #$20
	jsr YRBSingle	;do yellow, red, and blue
	rep #$20
	longa on
***********************************	End of 8 bit area
	rts

Black4		;
	stz StockYellow
	lda BlankFlag
	beq zero4

	lda FinalPat,x	;get the print pattern
	sta StockYellow
zero4		;
************************************	Begin of 8 bit area	for speedy calc

	longa off
	sep #$20

;do a yellowsingle
	rol StockYellow+1
	lda [<PtrYellow],y
	ror a
	sta [<PtrYellow],y

	rep #$20
	rts

	longa on

***************************************	End of 8 bit area
	
***************************************	NOTE: This code is in an 8-bit area
	longa off
;------------------------------------------------------------------------------
;
; NAME:         YRBSingle
;
; PURPOSE:      Rotates in a single YELLOW, RED, and BLUE pattern (1 level)
;
; PASSED:       (Y-reg.)	print buffer index
;
; RETURNED:  NONE
;
;------------------------------------------------------------------------------
YRBSingle		;
	rol StockRed+1	;do RED
	lda [<PtrRed],y
	ror a
	sta [<PtrRed],y

	rol StockBlue+1	;do BLUE
	lda [<PtrBlue],y
	ror a
	sta [<PtrBlue],y
;do a yellow single
	rol StockYellow+1
	lda [<PtrYellow],y
	ror a
	sta [<PtrYellow],y
	rts

	longa on

***************************************	End of 8 bit area
;------------------------------------------------------------------------------
;
; NAME:         InitPattern
;
; PURPOSE:      Gets the print pattern for each color (yellow, red, blue)
;
; PASSED:       (X-reg.)	index into finalpat	(print patterns)
;
; RETURNED:  NONE
;
;------------------------------------------------------------------------------
InitPattern		;
	lda BlankFlag	;see if blank
	beq zeros

	lda FinalPat,x
	sta StockYellow	;set yellow pattern
	lda FinalPat+2,x
	sta StockRed	;set red pattern
	lda FinalPat+4,x
	sta StockBlue	;set blue pattern
	rts

zeros		;
	stz StockRed	;red patterns
	stz StockBlue
	stz StockYellow
	rts
;------------------------------------------------------------------------------
;
; NAME:         PutPoint1
;
; PURPOSE:      Takes the point and puts down the correct pattern into the buffer
;
; PASSED:       (A-reg.)	index into finalpat	(print patterns)
;
; RETURNED:  NONE
;
;------------------------------------------------------------------------------
PutPoint1		;

	tax	;Color point *8
	lda CurrentPoint
	asl a
	asl a
	clc
	adc <PageRectPtr
	tay

	bit <Quality
	bpl Black1	;branch if blank and white

	jsr InitPattern	;init. the print patterns

************************************	Begin of 8 bit area	for speedy calc

	longa off
	sep #$20

	jsr PutYRB	;do yellow, red, blue bits
	iny
	jsr PutYRB
	iny
	jsr PutYRB
	iny
	jsr PutYRB

	rep #$20
	rts
	longa on
****************************************** End of 8 bit area

Black1		;
	stz StockYellow	;init the pattern to zeros
	lda BlankFlag	;see if want blank line
	beq zero1	;branch blank

	lda FinalPat,x	;get pattern
	sta StockYellow	;init. pattern
zero1		;

************************************	Begin of 8 bit area	for speedy calc

	longa off
	sep #$20

	asl StockYellow	;do PutYellow
	lda [<PtrYellow],y
	ror a
	asl StockYellow+1
	ror a
	sta [<PtrYellow],y

	iny
	asl StockYellow	;do PutYellow
	lda [<PtrYellow],y
	ror a
	asl StockYellow+1
	ror a
	sta [<PtrYellow],y

	iny
	asl StockYellow	;do PutYellow
	lda [<PtrYellow],y
	ror a
	asl StockYellow+1
	ror a
	sta [<PtrYellow],y

	iny
	asl StockYellow	;do PutYellow
	lda [<PtrYellow],y
	ror a
	asl StockYellow+1
	ror a
	sta [<PtrYellow],y

	rep #$20
	rts
	longa on
***************************************	End of 8 bit area
	
***************************************	NOTE: 8-bit speedy area
	longa off
;------------------------------------------------------------------------------
;
; NAME:         PutYRB
;
; PURPOSE:      Rotates in two bits of yellow, red, blue pattern to print buffer
;
; PASSED:       (Y-reg.)	print buffer index
;
; RETURNED:  NONE
;
;------------------------------------------------------------------------------
PutYRB		;
	asl StockRed	;do RED bits
	lda [<PtrRed],y
	ror a
	asl StockRed+1
	ror a
	sta [<PtrRed],y

	asl StockBlue	;do BLUE bits
	lda [<PtrBlue],y
	ror a
	asl StockBlue+1
	ror a
	sta [<PtrBlue],y

	asl StockYellow	;do PutYellow
	lda [<PtrYellow],y
	ror a
	asl StockYellow+1
	ror a
	sta [<PtrYellow],y
	rts

	longa on

***************************************	End of 8 bit area
	
;******************************************************************************
;
; 640 MODES (Portrait)
;
;******************************************************************************
Mode640		;	    Mode 640
	cmp #1
	beq Mode640C
;
; 640 mode (All BEST TEXT) (BEST COLOR,	50% red., 50% red. and vert. cond.)
;
	lda #PutPoint4
	bra Stuff640R
;
; 640 mode
;
Mode640C		;
	lda <quality
	and #$2000
	beq ii2

; 640 mode (BEST COLOR, vertical condensed)
	lda #PutPoint3
	bra Stuff640R

;640 mode (BEST COLOR, normal)
ii2		;
	lda #PutPoint2

;This stuffs the correct routine into the jsr
Stuff640R		;
	sta Stuff640+1
	sta Stuff641+1
	sta Stuff642+1
	sta Stuff643+1


	lda WasImage	;see if an image already was found
	beq Ck640P	;branch if no image	yet
	jmp Not640ClrX	;go image it

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Quick empty buffer	check
Ck640P		;

;First check that there are at least 16	points (any less is	not worth checking)
	lda DrvrRect+6
	sec
	sbc DrvrRect+2
	cmp #25
	bcc NotQuicky2	;just image it

;Now do any partial	word compares which	are to the far right
	lda DrvrRect+6
	dec a
	lsr a
	lsr a	;divide by 4 (because 4 pixels/word)
	tay
	dey	;to get to full word of data

	lda [<PtrBitmap],y
	sta WhichData	;save the rightmost	word

	lda DrvrRect+6
	dec a
	and #$0003
	beq QRPixel0	;branch if pixel zero
	cmp #3	;see if full word
	beq Quicky	;branch if full word
	cmp #1
	beq QRPixel1	;branch if pixel one

QRPixel2		;
	lda WhichData
	and #$fcff
	cmp #$fcff
	bne NotQuicky2
	bra StartRFull

QRPixel1		;
	lda WhichData
	and #$f0ff
	cmp #$f0ff
	beq StartRFull
NotQuicky2	jmp NotQuicky

QRPixel0		;
	lda WhichData
	and #$c0ff
	cmp #$c0ff
	bne NotQuicky2

StartRFull		;
	dey
	dey

Quicky		;
	lda DrvrRect+2
	lsr a
	lsr a
	ina	;inc. in case of partial at far left
	sta QLeft	;set left point

;This is the main routine which checks for all white (16 bits at a time)
QuickyL	;
	import IWDisableWhiteSkip
	lda >IWDisableWhiteSkip	;always fail if flag set
	bne NotQuicky
	
	lda [<PtrBitmap],y
	cmp #$ffff
	bne NotQuicky
	dey
	dey
	bmi QLDone
	cpy QLeft
	bcs QuickyL

QlDone		;
;Now check for any partial words at the	far left
	ldy QLeft

;Double check word to the right to be sure its white
	lda [<PtrBitmap],y
	cmp #$ffff
	bne NotQuicky

;Now check the last	byte (or partial byte) for all white
	dey
	lda DrvrRect+2
	and #$0003
	beq QLPixel0
	cmp #1
	beq QLPixel1
	cmp #2
	beq QLPixel2

QLPixel3		;
	lda [<PtrBitmap],y
	and #$ff03
	cmp #$ff03
	bne NotQuicky
	rts	;Was all white

QLPixel0		;
	lda [<PtrBitmap],y
	cmp #$ffff
	bne NotQuicky
	rts	;Was all white

QLPixel1		;
	lda [<PtrBitmap],y
	and #$ff3f
	cmp #$ff3f
	bne NotQuicky
	rts	;Was all white

QLPixel2		;
	lda [<PtrBitmap],y
	and #$ff0f
	cmp #$ff0f
	bne NotQuicky
	rts	;Was all white

NotQuicky		;
	inc WasImage	;indicate there was	an image
	rts

	EXPORT WasImage
WasImage	DS.B 2
	EXPORT WasImage1
WasImage1	DS.B 2
	EXPORT WasImage2
WasImage2	DS.B 2
	Export QLeft
Qleft	DS.B 2
	Export QCount
Qcount	DS.B 2

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Not640ClrX		;

	lda CurrentPoint
	lsr a
	lsr a
	sta WhichPtY
	lda [<PtrBitMap],y
	sta WhichData

	lda CurrentPoint
	and #3
	beq GetPt640X	;=0
	cpx #1
	beq GetPt641	;=1
	cpx #2
	beq GetPt642	;=2
	bra GetPt643	;=3

GetPt640		;
	inc WhichPtY
GetPt640X		;
	ldy WhichPtY
	lda [<PtrBitMap],y
	sta WhichData

	and #$C0
	lsr a
	lsr a
	lsr a
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;NOTE: The address portion of the following jsr instruction	is stuffed.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Stuff640	jsr PutPoint2	;put the pattern into the buffer
	inc CurrentPoint
	lda CurrentPoint
	cmp DrvrRect+6
	beq GetPtDone

GetPt641		;
	lda WhichData
	and #$30
	ora #$40	For chip graphic column=1 mod(4)
	lsr a
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;NOTE: The address portion of the following jsr instruction	is stuffed.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Stuff641	jsr PutPoint2	put the pattern into the buffer
	inc CurrentPoint
	lda CurrentPoint
	cmp DrvrRect+6
	beq GetPtDone

GetPt642		;
	lda WhichData
	and #$0C
	ora #$20	For chip graphic column=2 mod(4)
	asl a
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;NOTE: The address portion of the following jsr instruction	is stuffed.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Stuff642	jsr PutPoint2	put the pattern into the buffer
	inc CurrentPoint
	lda CurrentPoint
	cmp DrvrRect+6
	beq GetPtDone

GetPt643		;
	lda WhichData
	and #$03
	ora #$0C	For chip graphic column=3 mod(4)
	asl a
	asl a
	asl a
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;NOTE: The address portion of the following jsr instruction	is stuffed.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Stuff643	jsr PutPoint2	printing Rect
	inc CurrentPoint
	lda CurrentPoint
	cmp DrvrRect+6
	bne GetPt640
GetPtDone		;
	rts

	Export WhichPtY
WhichPtY	DC.W 0	;holds index into <PtrBitMap
	Export WhichData
WhichData	DC.W 0	;the actual data point
	
;------------------------------------------------------------------------------
;
; NAME:         PutPoint2
;
; PURPOSE:      Takes the point and lays down the color print patterns
;
; PASSED:       (A-reg.)	index into finalpat	(print patterns)
;
; RETURNED:  NONE
;
;------------------------------------------------------------------------------
PutPoint2		;	    In A: Color*8
	tax	;Current color pattern
	lda CurrentPoint
	asl a
	clc
	adc <PageRectPtr
	tay

	bit <Quality
	bpl Black2

	jsr InitPattern

************************************	Begin of 8 bit area	for speedy calc

	longa off
	sep #$20

	jsr PutYRB	;do yellow, red, and blue
	iny
	jsr PutYRB	;do yellow, red, and blue

	rep #$20
	rts

	longa on

***************************************	End of 8 bit area

Black2		;
	stz StockYellow
	lda BlankFlag
	beq zero2

	lda FinalPat,x
	sta StockYellow
zero2		;

************************************	Begin of 8 bit area	for speedy calc

	longa off
	lda [<PtrYellow],y
	sep #$20

	asl StockYellow	;do PutYellow
	ror a
	asl StockYellow+1
	ror a
	xba

	asl StockYellow	;do PutYellow
	ror a
	asl StockYellow+1
	ror a

	rep #$20
	xba
	sta [<PtrYellow],y
	rts

	longa on

***************************************	End of 8 bit area

	rts
	
;------------------------------------------------------------------------------
;
; NAME:         PutPoint2bis
;
; PURPOSE:      Takes the point and lays down the color print patterns
;
; PASSED:       (A-reg.)	index into finalpat	(print patterns)
;
; RETURNED:  NONE
;
;------------------------------------------------------------------------------
PutPoint2bis		;	    In A: Color*8
	tax	;Current color pattern
	lda CurrentPoint	;calculate address of point
	asl a
	asl a
	clc
	adc <PageRectPtr
	tay

	bit <Quality
	bpl Black2bis

	jsr InitPattern

************************************	Begin of 8 bit area	for speedy calc

	longa off
	sep #$20

	jsr YRBSingle	;do yellow, red, and blue single
	iny
	jsr YRBSingle	;do yellow, red, and blue single
	iny
	jsr YRBSingle	;do yellow, red, and blue single
	iny
	jsr YRBSingle	;do yellow, red, and blue single


	rep #$20
	rts

	longa on

***************************************	End of 8 bit area

;
; Black and white
;
Black2bis		;
	stz StockYellow
	lda BlankFlag
	beq zero2b	;branch if want blank line

	lda FinalPat,x
	sta StockYellow	;set the print pattern
zero2b		;

************************************	Begin of 8 bit area	for speedy calc

	longa off
	sep #$20

	rol StockYellow+1	;do a yellow single
	lda [<PtrYellow],y
	ror a
	sta [<PtrYellow],y

	iny
	rol StockYellow+1	;do a yellow single
	lda [<PtrYellow],y
	ror a
	sta [<PtrYellow],y

	iny
	rol StockYellow+1	;do a yellow single
	lda [<PtrYellow],y
	ror a
	sta [<PtrYellow],y

	iny
	rol StockYellow+1	;do a yellow single
	lda [<PtrYellow],y
	ror a
	sta [<PtrYellow],y

	rep #$20
	rts

	longa on

***************************************	End of 8 bit area

	rts
	
;------------------------------------------------------------------------------
;
; LANDSCAPE Mode
;
;------------------------------------------------------------------------------
LandScape		;
	lda <Quality
	and #$0001
	beq its320	;branch if 320 landscape mode
	brl Land640	;branch if 640 landscape mode

;******************************************************************************
;
; 320 mode (Landscape)
;
;******************************************************************************
its320		;
	PushLong #0
	PushWord DrvrBitMap+6
	PushWord HightLand
	_Multiply

	pla
	sta OffSetLand
	pla	;Nothing

	lda ContLine	;OffSet= Width*HightLand + ContLine/2
	lsr a	;for mode 320
	clc
	adc OffSetland
	sta OffSetland

	lda <Quality	;look at quality
	and #$0003
	beq LoopLandC	;branch if color

;
; 320 landscape mode
;
LoopLandW		;
	lda <quality
	and #$2000
	beq x6

; 320 mode landscape (BEST COLOR 50% and vert. cond., BEST TEXT vert. cond.,
; BEST TEXT vert. and 50% reduction)
x5		;
	lda #PutPoint4
	bra LStuff320A

; 320 mode landscape (BEST COLOR 50% red., BEST TEXT normal, BEST TEXT 50% red.)
x6		;
	lda #PutPoint3
	bra LStuff320A

;
; 320 mode landscape
;
LoopLandC		;
	lda <quality
	and #$2000
	beq x8

; 320 mode landscape (BEST COLOR vertical condensed)
x7		;
	lda #PutPoint2
	bra LStuff320A

; 320 mode landscape (BEST COLOR normal)
x8		;
	lda #PutPoint1

;We now stuff the correct subroutines address
LStuff320A		;
	sta LAddr3201+1
	sta LAddr3202+1

	lda WasImage	;see if an image already was found
	beq Ck320L	;branch if no image	yet
	jmp Not320XX	;go image it

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Do a quick check for empty buffer;;;;;;;;;;;;;;
Ck320L		;
	lda OffSetLand
	sta Qleft
	lda CurrentPoint
	sta QCount
;Now determine if on an odd or even line
	Lda ContLine	;get current line
	lsr a
	bcs Ql3Odd	;branch if odd

;EVEN line
QL3Even		;
	lda Qleft
	sec
	sbc DrvrBitMap+6	;subtract right
	sta Qleft
	tay
	lda [<PtrBitmap],y
	and #$00f0
	cmp #$00f0
	bne L320Image	;branch if an image
	inc QCount
	lda Qcount
	cmp DrvrRect+6
	bne QL3Even	;loop until done
;We arrive here if theres no image to print
	rts
;Its an ODD line
Ql3Odd		;
	lda Qleft
	sec
	sbc DrvrBitMap+6	;subtract right
	sta Qleft
	tay
	lda [<PtrBitmap],y
	and #$000f
	cmp #$000f
	bne L320Image	;branch if an image
	inc QCount
	lda Qcount
	cmp DrvrRect+6
	bne QL3Odd	;loop until done
;We arrive here if theres no image to print
	rts

L320Image		;
;We arrive here if the buffer has an image
	inc WasImage	;set flag to indicate an image present
	rts
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Not320XX		;
;Now determine if on an odd or even line
	Lda ContLine	;get current line
	lsr a
	bcs LLoop8Odd	;branch if odd

;
;EVEN address
;
LLoop8		;
	lda OffSetLand
	sec
	sbc DrvrBitMap+6
	sta OffSetLand

	tay
	lda [<PtrBitmap],y
	and #$00f0
	lsr a
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;NOTE: The address portion of the following jsr instruction	is stuffed.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
LAddr3201		;
	jsr PutPoint1
	inc CurrentPoint
	lda Currentpoint
	cmp DrvrRect+6
	bne LLoop8
	rts
;
;ODD address
;
LLoop8Odd		;
	lda OffSetLand
	sec
	sbc DrvrBitMap+6
	sta OffSetLand

	tay
	lda [<PtrBitmap],y
	and #$000f
	asl a
	asl a
	asl a
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;NOTE: The address portion of the following jsr instruction	is stuffed.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
LAddr3202		;
	jsr PutPoint1
	inc CurrentPoint
	lda Currentpoint
	cmp DrvrRect+6
	bne LLoop8Odd
LLoopDone		;
	rts

;******************************************************************************
;
; Landscape 640 mode
;
;******************************************************************************
Land640		;
	PushLong #0
	PushWord DrvrBitMap+6
	PushWord HightLand
	_Multiply	;multiply RIGHT times height of bank

	pla
	sta OffSetLand	;result
	pla	;Nothing

	lda ContLine	;OffSet= Width*HightLand + ContLine/2
	lsr a	;for mode 320
	lsr a
	clc
	adc OffSetland
	sta OffSetland

	lda <Quality	;look at quality
	and #$0002	;branch if BEST COLOR, normal or
	beq LoopL640C	;vertical condensed.

;
; 640 mode landscape
;
LoopL640W		;
	lda <quality
	and #$2000	;look at vert. condensed bit
	beq i6	;branch if not vert. condensed

; 640 mode landscape (BEST COLOR 50% and vert. cond., BEST TEXT vert. cond.,
; BEST TEXT vert. and 50% reduction)
i5		;
	lda #PutPoint4	;get address of correct subroutine
	bra LStuff640

; 640 mode landscape (BEST COLOR 50% red., BEST TEXT normal, BEST TEXT 50% red.)
i6		;
	lda #PutPoint3	;get address of correct subroutine
	bra LStuff640

;
; 640 mode landscape
;
LoopL640C		;
	lda <quality
	and #$2000	;look at vert. condensed bit
	beq i4	;branch if not condensed

; 640 mode landscape (BEST COLOR vertical condensed)
i3		;
	lda #PutPoint3
	bra LStuff640

; 640 mode landscape (BEST COLOR normal)
i4		;
	lda #PutPoint2bis
LStuff640		;
	sta LAStuff60+1
	sta LAStuff61+1
	sta LAStuff62+1
	sta LAStuff63+1


	lda WasImage	;see if an image already was found
	beq Ck640L	;branch if no image	yet
	jmp Not640XX	;go image it

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Do a quick check for empty buffer;;;;;;;;;;;;;;
Ck640L		;
	lda OffSetLand
	sta Qleft
	lda CurrentPoint
	sta QCount
;Now determine which line we are on and	vector to the correct routine
	Lda ContLine	;get current line
	and #3
	beq QL6Zero
	cmp #1
	beq QL6One
	cmp #2
	beq QL6Two

;Line (3)
QL6Three		;
	lda Qleft
	sec
	sbc DrvrBitMap+6	;subtract right
	sta Qleft
	tay
	lda [<PtrBitmap],y
	and #$0003
	cmp #$0003
	bne L640Image	;branch if an image
	inc QCount
	lda Qcount
	cmp DrvrRect+6
	bne QL6Three	;loop until done
;We arrive here if theres no image to print
	bra QNoImage

;Line (2)
QL6Two		;
	lda Qleft
	sec
	sbc DrvrBitMap+6	;subtract right
	sta Qleft
	tay
	lda [<PtrBitmap],y
	and #$000c
	cmp #$000c
	bne L640Image	;branch if an image
	inc QCount
	lda Qcount
	cmp DrvrRect+6
	bne QL6Two	;loop until done
;We arrive here if theres no image to print
QNoImage		;
	rts

;Line (1)
QL6One		;
	lda Qleft
	sec
	sbc DrvrBitMap+6	;subtract right
	sta Qleft
	tay
	lda [<PtrBitmap],y
	and #$0030
	cmp #$0030
	bne L640Image	;branch if an image
	inc QCount
	lda Qcount
	cmp DrvrRect+6
	bne QL6One	;loop until done
;We arrive here if theres no image to print
	bra QNoImage

;Line (0)
QL6Zero		;
	lda Qleft
	sec
	sbc DrvrBitMap+6	;subtract right
	sta Qleft
	tay
	lda [<PtrBitmap],y
	and #$00c0
	cmp #$00c0
	bne L640Image	;branch if an image
	inc QCount
	lda Qcount
	cmp DrvrRect+6
	bne QL6Zero	;loop until done
;We arrive here if theres no image to print
	bra QNoImage

L640Image		;
;We arrive here if the buffer has an image
	inc WasImage	;set flag to indicate an image present
	rts
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Not640XX		;
;
;Now determine which line we are on and	vector to the correct routine
;
	Lda ContLine	;get current line
	and #3
	beq IL6Zero
	cmp #1
	beq IL6One
	cmp #2
	beq IL6Two

IL6Three		;
	lda OffSetLand
	sec
	sbc DrvrBitMap+6
	sta OffSetLand
	tay	;use as index
	lda [<PtrBitmap],y
	and #$0003	;and out unwanted pixels
	ora #$000C	;or in correct palette base
	asl a
	asl a
	asl a
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;NOTE: The address portion of the following jsr instruction	is stuffed.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
LAStuff63		;
	jsr PutPoint2bis
	inc CurrentPoint
	lda Currentpoint
	cmp DrvrRect+6
	bne IL6Three
	rts

IL6Two		;
	lda OffSetLand
	sec
	sbc DrvrBitMap+6
	sta OffSetLand
	tay	;use as index
	lda [<PtrBitmap],y
	and #$000c
	ora #$0020	;or in correct pallete base
	asl a
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;NOTE: The address portion of the following jsr instruction	is stuffed.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
LAStuff62		;
	jsr PutPoint2bis
	inc CurrentPoint
	lda Currentpoint
	cmp DrvrRect+6
	bne IL6Two
	rts

IL6One		;
	lda OffSetLand
	sec
	sbc DrvrBitMap+6
	sta OffSetLand
	tay	;use as index
	lda [<PtrBitmap],y
	and #$0030
	ora #$0040	;or in correct pallete base
	lsr a
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;NOTE: The address portion of the following jsr instruction	is stuffed.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
LAStuff61		;
	jsr PutPoint2bis
	inc CurrentPoint
	lda Currentpoint
	cmp DrvrRect+6
	bne IL6One
	rts

IL6Zero		;
	lda OffSetLand
	sec
	sbc DrvrBitMap+6
	sta OffSetLand
	tay	;use as index
	lda [<PtrBitmap],y
	and #$00c0
	lsr a
	lsr a
	lsr a
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;NOTE: The address portion of the following jsr instruction	is stuffed.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
LAStuff60		;
	jsr PutPoint2bis
	inc CurrentPoint
	lda Currentpoint
	cmp DrvrRect+6
	bne IL6Zero
	rts
	
;------------------------------------------------------------------------------
;
; NAME:         PointL320
;
; PURPOSE:      Gets a landscape 320 mode pixel data point
;
; PASSED:       NONE
;
; RETURNED:  (A-reg.)               Current pixel point in bit loc. 14-11
;		(index into finalpat {print patterns})
;
;------------------------------------------------------------------------------
PointL320		;
	ldy OffSetLand
	lda [PtrBitmap],y
	tax
	Lda ContLine	;get current line
	and #$0001
	bne LEven

	txa
	and #$00F0
	lsr a
	rts

LEven	txa
	and #$000F
	asl a
	asl a
	asl a
	rts
	
;------------------------------------------------------------------------------
;
; NAME:         PointL640
;
; PURPOSE:      Gets a landscape 640 mode pixel data point
;
; PASSED:       NONE
;
; RETURNED:  (A-reg.)               Current pixel point in bit loc. 14-11
;		(index into finalpat {print patterns})
;
;------------------------------------------------------------------------------
PointL640		;
	lda ContLine
	and #$0003
	tax
	ldy OffSetLand
	lda [PtrBitmap],y

;Now figure out which pixel it is (remember 640 mode has 4 pixels / byte)
CutQuart	cpx #0
	beq Q0	Quarter 0 or 1
	cpx #1
	beq Q1
	cpx #2
	beq Q2

;For pixel 3
	and #$03
	ora #$0C	;for correct color table base
	asl a
	asl a
	asl a
	rts

;For pixel 1
Q1	and #$30
	ora #$40	;for correct color table base
	lsr a
	rts

;For pixel 0
Q0		;
	and #$C0
	lsr a
	lsr a
	lsr a
	rts

;For pixel 1
Q2	and #$0C
	ora #$20	;for correct color table base
	asl a
	rts

;------------------------------------------------------------------------------
;
; Variables
;
;------------------------------------------------------------------------------
	Export OffSetLand
OffSetLand	DC.W 0	;offset (landscape use)
	Export StockYellow
StockYellow	DC.W 0	;current print pattern for yellow
	Export StockRed
StockRed	DC.W 0	;current print pattern for red
	Export StockBlue
StockBlue	DC.W 0	;current print pattern for blue

	ENDP


; LLD.Port

*****************************
*	        *
* CiDrvr: Printer Driver IW *
*     SSCDrvr	        *
*	        *
* Current Rev: Nov.	1987    *
*	        *
*****************************


SendChar	PROC EXPORT


	goto .skipssc

;------------------------------------------------------------------------------
;
; NAME:         InitSSC
;
; PURPOSE:      Initializes "Super Serial Card"
;
; PASSED:       WORD	Request Command
;		 =0, same init. (do	nothing)
;		 =1, open port only
;		 =2, open port and reset printer
;		 =3, resets printer	only
;
; RETURNED:  NONE
;
;------------------------------------------------------------------------------
	EXPORT InitSSC
InitSSC	pha
	ldy #GraphP
	lda MyWap,y	;get last init. entry
	beq Reinit	;branch if it's first time through(=0)

	cmp 1,s
	beq EndInit	Same initialization

	tax	;save previous in x-reg.
	lda 1,s	No more init
	cmp #3
	beq EndInit	;branch if request=3

	cpx #3
	beq NoNeeded	;branch if previous	request=3

;We arrive here if we need to open the port
ReInit		;

	PushLong #0
	PushLong #0
	_PrDevOpen	;open the port

NoNeeded	ldy #GraphP
	lda 1,s	;get the request
	sta MyWap,y	;save it for next time

	cmp #1
	bne EndInit	;branch if request=1

	Entry ResetPrinterCodes
	PushLong #resetPrinterCodes
	jsr WriteStr	;reset printer to its defaults

EndInit	pla
	rts

ResetPrinterCodes	DC.B 4
	DC.B 27,99	;reset printer to its internal defaults
	DC.B $1b,$4e	;set to 10 cpi (PICA)

*InitGraph      dc	    i1'16'
*               dc	    i1'09,67,68'	 disable line length
*               dc	    i1'09,84'	 disable basic tab
*               dc	    i1'09,70,68'	 disable keyboard input
*               dc	    i1'09,77,68'	 disable filtering LF
*               dc	    i1'09,76,68'	 disable LF after CF
*               dc	    i1'09,90'	 Final zap

.skipssc
	
;------------------------------------------------------------------------------
;
; NAME:         GoStatus
;
; PURPOSE:      Goes and Gets the status
;
; PASSED:       NONE
;
; RETURNED:  (A-reg.)               Status
;
;------------------------------------------------------------------------------

	EXPORT GoStatus
GoStatus	sep #$30	;0
	longa off
	longi off
	phb	;2
	lda #0	;3
	pha	;5
	plb	;6
	lda $C110	;7
	sta <Status+4	;10 (NOTE: Stuffs the addr. in hook proc)
	lda #$1	;12 (Request code=1	(have input ready?)
	ldy #$10	;14
	ldx #$c1	;16
	jsl >0	;18(NOTE: addr. is stuffed by MakeStatus)
	plb
	rep #$30
	longa on
	longi on
	and #1
	rts
;------------------------------------------------------------------------------
;
; NAME:         MakeStatus
;
; PURPOSE:      Stuffs the addr. of the	routine that gets the status into
;               the	routine "GoStatus".
;
; PASSED:       NONE
;
; RETURNED:  NONE
;
;------------------------------------------------------------------------------
	EXPORT MakeStatus
MakeStatus	phb
	phk
	plb
	pha
	tdc
	clc
	adc #<Status	;add the actual calling addr.
	sta GoStatus+19	;stuff the address of the routine
	pla
	plb
	rts
	
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
;
; Hook Procedures (Gets copied to zero page "<GO" where it is executed)
;
; Switches to emulation mode and calls the SSC
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
	longi off
	longa off

;NOTE: This routine	is copied into zero	page at "<Go"
	EXPORT HookProc	Hook to SSC
HookProc	sec	;0 put into emulation mode
	xce	;1
	phd	;2 save D-reg.
	jsr $C100	;3 Jump into SSC
	pld	;6 restore D-reg.
	clc	;7
	xce	;8 back to 65816 mode
	rtl	;9 Return

;NOTE: This routine	is copied into zero	page at "<Status"
;This routine gets the status and puts into the A-reg.
	sec	;10
	xce	;11  put into emulation mode
	phd	;12  save d-reg.
	jsr $C100	;13  jump SSC (NOTE: this addr. is stuffed)
	php	;16  save the status bits
	pla	;17  return with A-reg. = status bits
	pld	;18  restore d-reg.
	clc	;19
	xce	;20  back to 65816 mode
	rtl	;21
	longi on
	longa on
	ENDP
	


SendToIM2	PROC EXPORT

;-----------------------------------------------------------
;
; This routine no longer used.  Commented out by Harry and
; Steve on 10 Feb 88
;

	GOTO .skipprintcheck

;------------------------------------------------------------------------------
;
; NAME:         PrintCheck
;
; PURPOSE:      Get	printers characteristics and set bits accordingly in 'PID'
;
; PASSED:       NONE
;
; RETURNED:  NONE
;
;------------------------------------------------------------------------------
	EXPORT PrintCheck
PrintCheck	phb
	phk
	plb
;First init. printer
	lda #3	Needed just init SSC
	jsr InitSSC


	jsr MakeStatus

	stz LengthStr	;init string length

	PushLong #P_SelfId	;ask for ImageWriter ID
	jsr WriteStr

*               jsr	    WaitStr	 Wait the anwser

	lda LengthStr	ImageWriter 2 send at least 5 chars
	cmp #$5
	bcc rate

	lda Version	First and second char must be IW
	cmp #$5749
	bne rate
;Now get the version number from the printer
	ldy #PID
	sta MyWap,y	then 3rd and 4th is	version
	lda Version+2
	iny
	iny
	sta MyWap,y

	iny
	iny
	lda #$0	Init attribut
	sta MyWap,y

;Now scan looking for other features until terminating character
	ldx #3

LoopC	lda Version+1,x
	and #$00FF
	cmp #$0d	End of the string
	beq EndC
;Now check for color ribbon
	cmp #$43	C for color rubbon
	bne NoColorC
	lda MyWap,y
	ora #$8000
	sta MyWap,y	;or in color ribbon	bit
	bra NoFeeder
;Now check for sheet feeder
NoColorC	cmp #$46	F for sheed feeder
	bne NoFeeder
	lda MyWap,y
	ora #$4000	;or in sheet feeder	bit
	sta MyWap,y

NoFeeder	inx	;go to next char.
	cpx LengthStr	;see if at end of string
	bne loopC

Rate		;
EndC	plb
	rts


;------------------------------------------------------------------------------
;
; NAME:         WaitStr
;
; PURPOSE:      Gets the printers ID string from the printer
;
; PASSED:       NONE
;
; RETURNED:  NONE
;
;------------------------------------------------------------------------------
WaitStr		;
	lda #$40
	sta count	;set repeat counter

LoopWait		;
	tsc
	sta <SaveStack2	;save the stack pointer
	and #$00FF
	ora #$0100
	tcs
	jsr GoStatus	;get printers status
	bne ReadChar
	lda <SaveStack2
	tcs	;restore the stack pointer
	dec count	;dec. the counter
	bne loopwait	;loop
	rts
;------------------------------------------------------------------------------
; We arrive here when we have received a character from the	printer.
;
; This recieves the	charater and builds	the ID string.
;------------------------------------------------------------------------------
ReadChar		;
	lda <SaveStack2
	tcs	;restore the stack
	PushWord #0
	PushWord #0
	_ReadChar	;read the character	from the printer
	pla
	ldx LengthStr	;get the current string byte pointer
	sep #$20
	sta Version,x	;store the byte in the string
	rep #$20
	inc LengthStr	;inc. to the next byte locaton
	cpx #15	;if 15 chars., done
	bne WaitStr
	rts

	Export LengthStr
LengthStr	DC.W 0	;length of string
	EXPORT Version
Version	DS.B 16	;Imagewriters self ID bytes
	Export Count
Count	DC.W 0	;counter

	Export P_SelfId
P_SelfId	DC.B 2	;Command to ask for	printers self ID
	DC.B $1b,$3F

.skipprintcheck

;------------------------------------------------------------------------------
;
; NAME:         ResetPrinter
;
; PURPOSE:      To reset the printer to	its internal defaults and skip to start
;               of page.
;
; PASSED:       NONE
;
; RETURNED:  NONE
;
;------------------------------------------------------------------------------
	EXPORT ResetPrinter
	
ResetPrinter	PushLong #RPrinter	;send reset printer	command
	jsr WriteStr

	ldx <PageRect	;get page rect top
	jsr SkipLigne	;skip that many lines

	rts
;-------------------------------------------------------------------------------
;
; Removed the code to set character to 10 cpi Pica. Elite, which is the default,
; is faster.

	Export RPrinter
RPrinter	DC.B 2
	DC.B 27,99	;reset printer to defaults

;------------------------------------------------------------------------------
;
; NAME:         SendRCLF
;
; PURPOSE:      Sends carriage return/line feed until bottom of page rect.. When
;               the	bottom of page rect. is reached, a form	feed is sent
;
; PASSED:       NONE
;
; RETURNED:  NONE
;
;------------------------------------------------------------------------------
	EXPORT SendRCLF
SendRCLF	ldy #PenPosVW	;get the vertical pos.
	lda MyWap,y
	clc
	adc #$10	;add 16
	sta MyWap,y

	PushLong #RCLF	;send a carriage return line feed
	jsr WriteStr

	rts

	Export RCLF
RCLF	DC.B 2
	DC.B $0d,$0a	;carriage return, line feed chars.

;------------------------------------------------------------------------------
;
; NAME:         MovePen
;
; PURPOSE:      Moves the pen to the horz. and vertical location specified.
;
; PASSED:       NONE
;
; RETURNED:  NONE
;
;------------------------------------------------------------------------------
	EXPORT MovePen
MovePen	sec
	ldy #PenPosVW
	lda MyWap,y	;get current vertical position
	sbc NewPenPosV	;sub. new vert. position
	blt okPenPos	;branch if less than
	beq FinPenPos	;branch if already there

;We arrive here if we are below vertical position we want to be at
	pha	;push vert. difference
	PushLong #ReverseFeed ;set to reverse line feeds
	jsr WriteStr

	plx
	jsr SkipLigne	;line feed back that many lines

	PushLong #NormalFeed
	jsr WriteStr	;put back to normal	line feed

	bra FinPenPos

;We arrive here if we need to move down	the page
OkPenPos		;
	lda NewPenPosV
	sec
	sbc MyWap,y	;calc. no. of lines	to skip down
	tax
	jsr SkipLigne	;skip correct lines	down page

FinPenPos		;
	lda NewPenPosV
	ldy #PenPosVW
	sta MyWap,y	;update vert. positon to new position

	lda NewPenPosH	;get horz. position
	pha
	PushLong #Hmove+3
	PushWord #4
	PushWord #0
	_int2dec	;convert to 4 decimal digits

	lda Hmove+3
	ora #$1010
	sta Hmove+3	;convert to ASCII
	lda Hmove+5
	ora #$1010	;convert to ASCII
	sta Hmove+5
	PushLong #Hmove
	jsr writeStr	;move the print head to horz. position
	rts

	Export ReverseFeed
ReverseFeed	DC.B 2
	DC.B 27,114	;line feeds go up the page

	Export NormalFeed
NormalFeed	DC.B 2
	DC.B 27,102	;line feeds go down	the page
	


;------------------------------------------------------------------------------
;
; NAME:         SkipLigne
;
; PURPOSE:      To skip lines down the page
;
; PASSED:       (X-reg.)	No. of lines to skip
;
; RETURNED:  NONE
;
;------------------------------------------------------------------------------
SkipLigne		;
	phx	;save lines to skip
	txa
;;;;;;;;;;;;;;;;;;;;SPEED enhancement;;;;;;;;;;;;;;;;;;;;
L99Loop		;
	cmp #99	;see if more than or equal to 99 lines
	blt Not99	;branch if less then 99
	PushLong #h99line	;set line height to	99 lines and LF
	jsr writestr
	pla	;get lines to skip
	sec
	sbc #99	;subtract 99 lines
	pha	;save it
	bra L99loop
Not99		;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	lsr a	;div. by 16 (see how many 16 lines)
	lsr a
	lsr a
	lsr a
	beq NoBlock	;branch if not at least one 16 lines
	pha
	PushLong #hightline	;set line height to	16 lines
	jsr writestr
	plx
;This loop does line feeds (16 lines at	a time)
LoopASkip	phx
	PushLong #RCLF	;do a Carriage return/line feed
	jsr WriteStr
	plx
	dex	;dec. 16 line counter
	bne loopASkip

NoBlock	pla
	and #$000F	;now look only at lines less than 16
	beq EndSkip	;branch if no residual lines to do

	tax

;This loop does line feeds of only one line
LoopLSkip	phx
	PushLong #SkipLine	;set line heigth to	one and LF
	jsr WriteStr
	plx
	dex	;dec. single line counter
	bne LoopLSkip

EndSkip	rts
;------------------------------------------------------------------------------
;
; NAME:         LittleSkip
;
; PURPOSE:      Skips the number of lines as specified in the A-register.
;               (skips only one line at	a time)
;
; PASSED:       (A-reg.)
;
; RETURNED:  NONE
;
;------------------------------------------------------------------------------
	EXPORT LittleSkip
LittleSkip	tax
LoopSkip	phx

SuiteSkip	ldy #PenPosVW
	lda MyWap,y	;get current vert. postion
	clc
	adc #$1
	sta MyWap,y	;inc. and update		;

	PushLong #SkipLine
	jsr WriteStr	;skip a line

	plx
	dex
	bne LoopSkip	;loop until at line	or hit bottom
	rts


;------------------------------------------------------------------------------
;
; NAME:         FormFeed
;
; PURPOSE:      Form feed to the top of	the page rect.
;
; PASSED:       NONE
;
; RETURNED:  NONE
;
;------------------------------------------------------------------------------
	EXPORT FormFeed
FormFeed	PushLong #P_Feed	;set for positive line feeds
	jsr WriteStr

	ldx #PenPosVW
	stz MyWap,x	;init. vert. pen pos. to zero

	ldx <PageRect	;skip to the top of	page rect.
	jsr SkipLigne

	rts

;------------------------------------------------------------------------------
;
; NAME:         SendSingleCar
;
; PURPOSE:      To send a single character to the printer
;
; PASSED:       (A-reg.)	character to print (high byte)
;
; RETURNED:  NONE
;
;------------------------------------------------------------------------------
	EXPORT SendSingleCar
SendSingleCar	sta SingleCar	;stuff the character
	pushlong #SingleCar	;pointer to the text
	PushWord #$0	;no offset
	PushWord #$1	;Length is one
	jsr WriteTxt	;write the character
	rts

	Export SingleCar
SingleCar	DC.B '  '	;char. to print
;------------------------------------------------------------------------------
;
; NAME:         SendBPrep
;
; PURPOSE:      Prepares the printer before SendBuff loop
;
; PASSED:       NONE
;
; RETURNED:  NONE
;
;------------------------------------------------------------------------------
	EXPORT SendBPrep
SendBPrep	lda <Quality
	and #$3
	tax

	lda DrvrRect+6
	jsr CalcPoPi

Suite2		;
	clc
	adc <PageRectPtr
	cmp #$500
	blt oklong
	lda #$500
okLong		;
	sta LongBuff
	pha
	PushLong #Graphic+3
	PushWord #4
	PushWord #0
	_Int2Dec

	lda Graphic+3	To convert space ($20) into Zero ($30)
	ora #$1010	All other digits are between $30 and
	sta Graphic+3	$39
	lda Graphic+5
	ora #$1010
	sta Graphic+5

	PushLong #P_LeftRight ;Set for UniDirectional printing only
	jsr WriteStr

	PushLong #P_EliteProp 160 pixels per inch
	jsr WriteStr

	PushLong #HightLine	;set line feed height to 16 lines
	jsr WriteStr

	rts
	
;------------------------------------------------------------------------------
;
; NAME:         SendBuff
;
; PURPOSE:      Prints the buffers for the different colors	from one band
;
; PASSED:       NONE
;
; RETURNED:  NONE
;
;------------------------------------------------------------------------------
	EXPORT SendBuff
SendBuff	bit Vsizing
	bpl testmore
	brl SpeLand
testmore		;               
	bit SpeDens
	bpl Normal
	brl SpeLand
;
;Normal density (no	interlacing)
;
Normal		;
;First check to see	if there was any image at all to print
	lda WasImage	;see if there was an image
	ora WasImage1
	ora WasImage2
	bne GoNormalP	;branch if image
	rts	;else no image to print

GoNormalP		;
	lda #1
	sta FlagBlack	;flag to clear buffers next time
	bit <Quality
	bmi SendColor	;branch if color
	brl SendBW	;branch if BW
;We arrive here if its color
SendColor		;
	ldy LongBuff	Init Color Flag. Before printing

	stz FlagBlack	if flag=0 must not print this color
	stz FlagRed
	stz FlagYellow
	stz FlagBlue

	jsr MakeBlack	Calc black buff

	lda FlagYellow	If no Yellow we not	print in yellow
	beq NoYellow

	jsr SendYellow

	PushLong #RC	Send a RC but no LF
	jsr WriteStr

NoYellow	lda FlagRed	Check if red characters
	beq NoRed

	jsr SendRed

	PushLong #RC	Send a RC but no LF
	jsr WriteStr

NoRed	lda FlagBlue	Check if Blue characters
	beq NoBlue

	jsr SendBlue

	PushLong #RC	Send a RC but no LF
	jsr WriteStr

NoBlue	lda FlagBlack	Check if Black characters
	beq NoBlack

	jsr SendBlack

	PushLong #RC	Send a RC but no LF
	jsr WriteStr

NoBlack	bit quality
	bpl noBlackstr3

	PushLong #P_Black	Send Print in Black	to IW2
	jsr WriteStr
noBlackstr3		;
	rts
;-----------------------------------------------------------------------------
; This checks for an blank line (no data) and sets flagblack)
;-----------------------------------------------------------------------------
SendBW		;
;               ldy	    LongBuff

;loopBW         lda	    [<PtrYellow],y	 ;look at buffer
;               bne	    SBWxx	 ;branch if data
;               dey
;               dey
;               bpl	    loopBW
;               lda	    #0	 ;if we get here, it was blank
;SBWxx          anop
;               sta	    FlagBlack
;               lda	    FlagBlack
;               beq	    NoBW	 ;branch if nothing	to print

	bit quality
	bpl noBlackstr2

	PushLong #P_Black	Send Print in Black	to IW2
	jsr WriteStr
noBlackstr2		;

	PushLong #Graphic	;put into graphics mode
	jsr WriteStr

	PushLong <PtrYellow	Send Black Buffer
	PushWord #0
	PushWord LongBuff
	jsr WriteTxt

	PushLong #RC	Send a RC but no LF
	jsr WriteStr

NoBW	rts


	Export EndLBuff
EndLBuff	DC.W 0
;------------------------------------------------------------------------------
;
; Special Modes (Interlaced)
;
;------------------------------------------------------------------------------
SpeLand		;
;First see if there	was an image (do nothing if none)
	lda WasImage	;see if both interlaced have images
	ora WasImage1
	ora WasImage2
	bne GoSpeImgs	;branch if there was an image
	rts
GoSpeImgs		;
	lda #1
	sta FlagBlack	;flag to clear buffers next time

	PushLong #P_EliteProp
	jsr WriteStr

	bit <Quality
	bpl SpeBW
	brl SpeColor
;
;Interlaced black and white
;
SpeBW		;

	bit quality
	bpl noBlackstr8

	PushLong #P_Black	Send Print in Black	to IW2
	jsr WriteStr
noBlackstr8		;

	PushLong #Graphic
	jsr WriteStr

	PushLong <PtrYellow	Send Black Buffer
	PushWord #0
	PushWord LongBuff
	jsr WriteTxt

	lda #1
	jsr LittleSkip	;skip down one print scan line

	jsr DefIOHSpe

	bit quality
	bpl noBlackstr9

	PushLong #P_Black	Send Print in Black	to IW2
	jsr WriteStr
noBlackstr9		;

	PushLong #Graphic	;print the second line interlaced
	jsr WriteStr

	PushLong <PtrYellow	Send Black Buffer
	PushWord #0
	PushWord LongBuff
	jsr WriteTxt

	jsr DefIOHandle

	jsr RevPaper	;reverse the paper back up 1 scan line

	brl NoBlacks

;
;We arrive here if its COLOR with 50% reduction or vert. condensed (interlaced)
;
SpeColor		;
	ldy LongBuff	Init Color Flag. Before printing

	stz FlagBlack	if flag=0 must not print this color
	stz FlagRed
	stz FlagYellow
	stz FlagBlue

	jsr MakeBlack	Calc black buff

	jsr DefIOHSpe

	ldy LongBuff
	jsr MakeBlack

	jsr DefIOHandle

	lda FlagYellow	If no Yellow we not	print in yellow
	beq NoYellowS

	jsr SendYellow

	lda #1
	jsr LittleSkip

	jsr DefIOHSpe

	jsr SendYellow

	jsr DefIOHandle

	jsr RevPaper

NoYellowS	lda FlagRed	Check if red characters
	beq NoRedS

	jsr SendRed

	lda #1
	jsr LittleSkip

	jsr DefIOHSpe

	jsr SendRed

	jsr DefIOHandle

	jsr RevPaper

NoRedS	lda FlagBlue	Check if Blue characters
	beq NoBlueS

	jsr SendBlue

	lda #1
	jsr LittleSkip

	jsr DefIOHSpe

	jsr SendBlue

	jsr DefIOHandle

	jsr RevPaper

NoBlueS	lda FlagBlack	Check if Black characters
	beq NoBlackS

	jsr SendBlack

	lda #1
	jsr LittleSkip

	jsr DefIOHSpe

	jsr SendBlack

	jsr DefIOHandle

	jsr RevPaper

NoBlackS	bit quality
	bpl noBlackstr4

	PushLong #P_Black	Send Print in Black	to IW2
	jsr WriteStr
noBlackstr4		;
	PushLong #HightLine	;set the line feed to 16 print lines
	jsr WriteStr

	rts
	
;------------------------------------------------------------------------------
;
; NAME:         RevPaper
;
; PURPOSE:      Reverses the paper a half print line
;
; PASSED:       NONE
;
; RETURNED:  NONE
;
;------------------------------------------------------------------------------
RevPaper		;
	ldy #PenPosVW
	lda MyWap,y	;get the vertical pos.
	sec
	sbc #1	;dec. it by one
	sta MyWap,y

	PushLong #ReverseSpe ;reverse on half print line
	jsr WriteStr

	rts

;------------------------------------------------------------------------------
;
; NAME:         MakeBlack
;
; PURPOSE:      Determines the BLACK buffer bit values and sets each of the
;               color flags if there is	data to be printed for that color.
;
; PASSED:       (Y)		Index into buffer to start at
;
; RETURNED:  NONE
;
;------------------------------------------------------------------------------
	EXPORT MakeBlack
MakeBlack	phx	;save x-reg.
	bra MakerBlack

LoopBlack	lda [<PtrYellow],y	Calculate black buffer by ANDing  on the
	and [<PtrRed],y	3 color buffers: Red+Yellow+Blue=Black
	and [<PtrBlue],y
	sta [<PtrBlack],y
	bne SomeBlack	;branch if some black bits

;We arrive here if there are no black bits
	lda [<PtrYellow],y	;look at the yellow	bits
	beq QQNoYellow	;branch if no yellow bits
	sta FlagYellow	;flag that we have some yellow

QQNoYellow	lda [<PtrRed],y	;look at the red bits
	beq QQNoRed	;branch if no red bits
	sta FlagRed

QQNoRed	lda [<PtrBlue],y	;look at the blue bits
	beq MakerBlack	;branch if no blue bits
	sta FlagBlue
	bra MakerBlack	;branch for next group of bits

;We arrive here if there are some black	bits
SomeBlack		;
	sta FlagBlack	set FlagBlack.
	tax	;save black bits in	x-reg.

;		 For the other colors, if one bit is
	eor [<PtrYellow],y	Black, we must not print this bit in
	sta [<PtrYellow],y	the other color (EOR out that bit)
	beq QNoYellow	;branch if no yellow bits
	sta FlagYellow	;Set Yellow flag

QNoYellow		;
	txa	;get black bits
	eor [<PtrRed],y	;EOR out red where there's black
	sta [<PtrRed],y
	beq QNoRed	;branch if no red bits
	sta FlagRed	;Set red flag

QNoRed		;
	txa	;get black bits
	eor [<PtrBlue],y	;EOR out blue where	there's black
	sta [<PtrBlue],y
	beq MakerBlack	;branch if no blue bits
	sta FlagBlue	;Set blue flag

MakerBlack	dey
	dey
	bpl LoopBlack
	plx	;restore x-reg.
	rts
	
;------------------------------------------------------------------------------
;
; NAME:         SendYellow
;
; PURPOSE:      Prints the yellow buffer
;
; PASSED:       NONE
;
; RETURNED:  NONE
;
;------------------------------------------------------------------------------
SendYellow		;
	PushLong #P_Yellow	Send Print in Yellow to IW2
	jsr WriteStr

	PushLong #Graphic	;Sending graphic chars.
	jsr WriteStr

	PushLong <PtrYellow	Send Yellow Buffer
	PushWord #0
	PushWord LongBuff
	jsr WriteTxt
	rts
;------------------------------------------------------------------------------
;
; NAME:         SendRed
;
; PURPOSE:      Prints the red buffer
;
; PASSED:       NONE
;
; RETURNED:  NONE
;
;------------------------------------------------------------------------------
SendRed		;
	PushLong #P_Red	Send Print in red to IW2
	jsr WriteStr

	PushLong #Graphic	;sending graphics chars.
	jsr WriteStr

	PushLong <PtrRed	Send red Buffer
	PushWord #$0
	PushWord LongBuff
	jsr WriteTxt
	rts
	
;------------------------------------------------------------------------------
;
; NAME:         SendBlue
;
; PURPOSE:      Prints the blue buffer
;
; PASSED:       NONE
;
; RETURNED:  NONE
;
;------------------------------------------------------------------------------
SendBlue		;
	PushLong #P_Blue	Send Print in Blue to IW2
	jsr WriteStr

	PushLong #Graphic
	jsr WriteStr

	PushLong <PtrBlue	Send Blue Buffer
	PushWord #$0
	PushWord LongBuff
	jsr WriteTxt
	rts
;------------------------------------------------------------------------------
;
; NAME:         SendBlack
;
; PURPOSE:      Sends the Black buffer
;
; PASSED:       NONE
;
; RETURNED:  NONE
;
;------------------------------------------------------------------------------
SendBlack		;
	bit quality
	bpl noBlackstr
	PushLong #P_Black	Send Print in Black	to IW2
	jsr WriteStr
noBlackstr		;
	PushLong #Graphic
	jsr WriteStr	;sending graphics chars.

	PushLong <PtrBlack	Send Black Buffer
	PushWord #$0
	PushWord LongBuff
	jsr WriteTxt
	rts

	
;Carriage Return
	Export RC
RC	DC.B 1
	DC.B $0d

;Sending Graphic data
	Export Graphic
Graphic	DC.B 6
	DC.B 27,71,00,00,00,00

;Move print head to	horizontal position	specified
	Export Hmove
Hmove	DC.B 6
	DC.B 27,70,00,00,00,00

;Set the line feed hight to 1, CR, LF
	Export SkipLine
SkipLine	DC.B 6
	DC.B 27,84,$30,$31,$0d,$0a

;Set the heigth of a line feed to 16 print lines
	Export HightLine
HightLine	DC.B 4
	DC.B 27,84,$31,$36
**********************************************************************
* Note from Suki Lee   5/5/1988
* The comment here and the usage of this command is incorrect. This 
* command sets the distance between lines to be 99/144th of	an inch,
* not 99 lines. The	default distance is	24/144th (6 lines per inch),
* this command roughly quadruples the line feed distance.
*
;Set the heigth of a line feed to 99 print lines (for fast vertical pos.)

	Export H99Line
H99Line	DC.B 6
	DC.B 27,84,$39,$39	;set line feed to 99 print lines
	DC.B $0d,$0a	;carriage return, line feed

;Reverse up a half a line
	Export ReverseSpe
ReverseSpe	DC.B 10
	DC.B 27,114	;reverse line feed
	DC.B 27,84,30,31	;set line feed to one print line
	DC.B $0d,$0a	;carriage return, line feed
	DC.B 27,102	;forward line feed

;Do a form feed
	Export P_Feed
P_Feed	DC.B 1
	DC.B 12

;UniDirectional printing
	Export P_LeftRight
P_LeftRight	DC.B 2
	DC.B 27,62

;Elite printing (160 dpi)
	Export P_EliteProp
P_EliteProp	DC.B 2
	DC.B 27,80

;Print in Black
	Export P_Black
P_Black	DC.B 3
	DC.B 27,75,48

;Select yellow ribbon
	Export P_Yellow
P_Yellow	DC.B 3
	DC.B 27,75,49

;Select red ribbon
	Export P_Red
P_Red	DC.B 3
	DC.B 27,75,50

;Select blue ribbon
	Export P_Blue
P_Blue	DC.B 3
	DC.B 27,75,51

	EXPORT FlagBlack
FlagBlack	brk 00
FlagRed	brk 00
FlagYellow	brk 00
FlagBlue	brk 00
LongBuff	brk 00


	ENDP


; LLD.Exits


LldExits	PROC EXPORT
;------------------------------------------------------------------------------
;
; Low Level EXITS
;
;------------------------------------------------------------------------------
; NOTE: we need to save 2 RTL's

;
; Take 12 bytes of parameters off the stack
;
	EXPORT LldExit12
LldExit12	tax
	lda 5,s
	sta 17,s
	lda 3,s
	sta 15,s
	lda 1,s
	sta 13,s
	pla
	pla
	pla
	pla
	pla
	pla
	bra LLDexitX

;
; Take 10 bytes of parameters off the stack
;
	EXPORT LldExit10
LldExit10	tax
	lda 5,s
	sta 15,s
	lda 3,s
	sta 13,s
	lda 1,s
	sta 11,s
	pla
	pla
	pla
	pla
	pla
	bra LLDexitX

;
; Take 8 bytes of parameters off the stack
;
	EXPORT LldExit8
LldExit8	tax
	lda 5,s
	sta 13,s
	lda 3,s
	sta 11,s
	lda 1,s
	sta 9,s
	pla
	pla
	pla
	pla
	bra LLDexitX

;
; Take 6 bytes of parameters off the stack
;
	EXPORT LldExit6
LldExit6	tax
	lda 5,s
	sta 11,s
	lda 3,s
	sta 9,s
	lda 1,s
	sta 7,s
	pla
	pla
	pla
	bra LLDexitX

;
; Take 4 bytes of parameters off the stack
;
	EXPORT LldExit4
LldExit4	tax
	lda 5,s
	sta 9,s
	lda 3,s
	sta 7,s
	lda 1,s
	sta 5,s
	pla
	pla
	bra LLDexitX

;
; Take 2 bytes of parameters off the stack
;
	EXPORT LldExit2
LldExit2	tax
	lda 5,s
	sta 7,s
	lda 3,s
	sta 5,s
	lda 1,s
	sta 3,s
	pla
LLDExitX		;
	txa

;
; Take zero bytes of parameters off the	stack
;
	EXPORT LLDexit0
LLDexit0	cmp #1
	rtl

	ENDP




\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/IW/makefile b/IIGS.601.SRC/GSToolbox/PrinterDrivers/IW/makefile
new file mode 100644
index 0000000..813bc36
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/IW/makefile
@@ -0,0 +1 @@
+### Dependencies for building both the imagewriter and imagewriter.lq drivers.

all				Ä	imagewriter  imagewriter.lq

### Dependancies for IW
imagewriter			Ä		iw.asm.obj			¶
							dialogdata.asm.obj
	LINKIIGS iw.asm.obj dialogdata.asm.obj -o imagewriter -t $BB -at $0001

#Commented out since all of we have a real LQ driver now.  Also, all of this code is going away
#soon.
#imagewriter.lq			Ä		lq.asm.obj			¶
#							dialogdata.asm.obj
#	LINKIIGS lq.asm.obj dialogdata.asm.obj -o imagewriter.lq -t $BB -at $0001
	
	
### Dependancies for iw.asm.obj
### Setting the variable lq to 0 will build the regular Imagewriter driver
iw.ASM.obj 			Ä 		iw.asm				¶
							hld.asm				¶
							lld.asm
	ASMIIGS -d lq=0 iw.asm
	
	
### Dependencies for lq.asm.obj  
### Setting the variable lq to 1 will build the Imagewriter LQ driver
lq.asm.obj			Ä		iw.asm				¶
							hld.asm				¶
							lld.asm
	ASMIIGS -d lq=1 iw.asm -o lq.asm.obj


### Dependancies for dialogdata.asm.OBJ
dialogdata.asm.obj	Ä		dialogdata.asm
	ASMIIGS dialogdata.asm
	
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/IWEm/BuildIWEm b/IIGS.601.SRC/GSToolbox/PrinterDrivers/IWEm/BuildIWEm
new file mode 100644
index 0000000..61f4780
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/IWEm/BuildIWEm
@@ -0,0 +1 @@
+#
#	BuildIWEm
#
#   This scripts strips all unnecessary characters from the IWEm source file
#   using the following steps:
#
#	8 Removing comments
#	7 Replacing	tabs with spaces
#	6 Removing duplicate spaces
#	5 Removing spaces next to carriage returns
#	4 Removing spaces next to special characters
#	3 Removing carriage returns next to special characters
#	2 Removing	duplicate carriage returns
#	1 Inserting	PostScript identifiers
#
# Ver 1.1 and prior     Networking Group
#
# Ver 1.2   September 23, 1988       Suki Lee
#     Added step #3 to reduce the size of the file.
#           December 19, 1988        Suki Lee
#     Added -d option to duplicate statement so the new file is not read-only.
#     SCM cannot build since the IWEm.src file is read-only from Projector.
# Ver 1.3   May 23, 1989			 Suki Lee
#     Removed standard file call and sys beep at the end.
# Ver 1.4	June 6, 1991			Wes Johnson
#		Added Removing carriage returns next to special characters
#		Made all changes repetitive until no more occurences of pattern.
# Ver 1.5	Feb 6, 1992				Wes Johnson
#	Problem:
#		Due to some changes in the IIgs the imaging area was reduced
#		to allow grayscale to operate in its minimal configuration.
#		This causes a side-effect of characters on the outside edges
#		to be lost.
#	Bug fix:
#		When the IWEmDict is invoked it will execute the letter command.
#		The letter command should cause most printers to default to the
#		standard letter size imaging area.
#	Note:
#		This fix will not help the LaserWriter IIf with 2 meg (minimum config)
#		The only solution is to upgrade it to 5 meg, then it will work like the IIg.
#

unalias
set echo 0
set exit 0
set casesensitive 0
set file ""
set exitstatus 0
		set file "IWEm.src"
		set newfile "IWEm"
		echo "## BuildIWEm (Ver 1.5) - `date -a`";
		echo
		
		# Make sure this window is closed so we can duplicate to it.
		close -n "{newfile}" > Dev:Null ³ Dev:Null	
		
		echo "## Duplicating '{file}' to '{newfile}'."
		
		duplicate -y -d {file} "{newfile}"
		set mystatus {status}
		if ({mystatus} == 2)
			Begin
				echo "# Can't Duplicate file: '{file}'  - Usage Err";
				echo "# Usage - BuildIWEm [File]";
				exit {mystatus}
			End
		else
			Begin
				echo "## Opening file '{newfile}'";
				open "{newfile}"
				echo "## Squeezing '{newfile}'"
				echo

				target "{newfile}"
								
				echo "#	8 Removing	comments"		
					find ¥
					Replace -c ° /%Ŷn/ " "
		
				echo "#	7 Replacing	tabs with spaces"
					Loop
					find ¥
					Replace -c ° /¶t/ " "
						Break If {Status} !=0;
					End
		
				echo "#	6 Removing	duplicate spaces"
					Loop
						find ¥
						Replace -c ° /"  "/ " "
						Break If {Status} !=0;
					End
		
				echo "#	5 Removing	spaces next to carriage returns"
					Loop
					find ¥
					Replace -c ° /¶n / " "
						Break If {Status} !=0;
					End
					Loop
					find ¥
					Replace -c ° / ¶n/ ¶n
						Break If {Status} !=0;
					End
		
				echo "#	4 Removing spaces next to special characters"
					Loop
					find ¥
					Replace -c ° /" ("/ "("
						Break If {Status} !=0;
					End
					Loop
					find ¥
					Replace -c ° /") "/ ")"
						Break If {Status} !=0;
					End
					Loop
					find ¥
					Replace -c ° /" <"/ "<"
						Break If {Status} !=0;
					End
					Loop
					find ¥
					Replace -c ° /"< "/ "<"
						Break If {Status} !=0;
					End
					Loop
					find ¥
					Replace -c ° /" >"/ ">"
						Break If {Status} !=0;
					End
					Loop
					find ¥
					Replace -c ° /"> "/ ">"
						Break If {Status} !=0;
					End
					Loop
					find ¥
					Replace -c ° /" ["/ "["
						Break If {Status} !=0;
					End
					Loop
					find ¥
					Replace -c ° /"[ "/ "["
						Break If {Status} !=0;
					End
					Loop
					find ¥
					Replace -c ° /" ]"/ "]"
						Break If {Status} !=0;
					End
					Loop
					find ¥
					Replace -c ° /"] "/ "]"
						Break If {Status} !=0;
					End
					Loop
					find ¥
					Replace -c ° /" ¶{"/ "¶{"
						Break If {Status} !=0;
					End
					Loop
					find ¥
					Replace -c ° /"¶{ "/ "¶{"
						Break If {Status} !=0;
					End
					Loop
					find ¥
					Replace -c ° /" ¶}"/ "¶}"
						Break If {Status} !=0;
					End
					Loop
					find ¥
					Replace -c ° /"¶} "/ "¶}"
						Break If {Status} !=0;
					End
					Loop
					find ¥
					Replace -c ° /" ¶/"/ "¶/"
						Break If {Status} !=0;
					End
#					Loop
#					find ¥
#					Replace -c ° /"¶/ "/ "¶/"
#						Break If {Status} !=0;
#					End
					
				echo "#	3 Removing carriage returns next to special characters"
					Loop
					find ¥
					Replace -c ° /")¶n"/ ")"
						Break If {Status} !=0;
					End
					Loop
					find ¥
					Replace -c ° /"¶n)"/ ")"
						Break If {Status} !=0;
					End
					Loop
					find ¥
					Replace -c ° /"¶n("/ "("
						Break If {Status} !=0;
					End
					Loop
					find ¥
					Replace -c ° /">¶n"/ ">"
						Break If {Status} !=0;
					End
					Loop
					find ¥
					Replace -c ° /"¶n>"/ ">"
						Break If {Status} !=0;
					End
					Loop
					find ¥
					Replace -c ° /"<¶n"/ "<"
						Break If {Status} !=0;
					End
					Loop
					find ¥
					Replace -c ° /"¶n<"/ "<"
						Break If {Status} !=0;
					End
					Loop
					find ¥
					Replace -c ° /"[¶n"/ "["
						Break If {Status} !=0;
					End
					Loop
					find ¥
					Replace -c ° /"¶n["/ "["
						Break If {Status} !=0;
					End
					Loop
					find ¥
					Replace -c ° /"]¶n"/ "]"
						Break If {Status} !=0;
					End
					Loop
					find ¥
					Replace -c ° /"¶n]"/ "]"
						Break If {Status} !=0;
					End
					Loop
					find ¥
					Replace -c ° /"¶}¶n"/ "¶}"
						Break If {Status} !=0;
					End
					Loop
					find ¥
					Replace -c ° /"¶n¶}"/ "¶}"
						Break If {Status} !=0;
					End
					Loop
					find ¥
					Replace -c ° /"¶{¶n"/ "¶{"
						Break If {Status} !=0;
					End
					Loop
					find ¥
					Replace -c ° /"¶n¶{"/ "¶{"
						Break If {Status} !=0;
					End
#					Loop
#					find ¥
#					Replace -c ° /"¶n¶/"/ "¶/"
#						Break If {Status} !=0;
#					End
					
				echo "#	2 Removing	duplicate carriage returns"
					Loop
						find ¥
						Replace -c ° /¶n¶n/ ¶n
						Break If {Status} !=0;
					End
		
				echo "#	1 Inserting	PostScript identifiers" 
					find ¥
					replace -c 1 ¤ "%!PS-Adobe-2.0¶n%%BeginProcSet ¶"IWEM¶"¶n"
					replace -c 1 /setfont / "setfont¶n%%Begin ExitServer¶n"
					find °
					replace -c 1 ¤ "¶n¶n%%End ExitServer¶n%%EndProcSet ¶n"

				echo
				echo "## Saving file '{newfile}'";
				close -y "{newfile}"
				echo
				echo "## BuildIWEm Done - `date -a`";
			End
End
Exit {exitstatus}
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/IWEm/IWEm b/IIGS.601.SRC/GSToolbox/PrinterDrivers/IWEm/IWEm
new file mode 100644
index 0000000..e033738
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/IWEm/IWEm
@@ -0,0 +1 @@
+%!PS-Adobe-2.0
%%BeginProcSet "IWEM"
/Ver(ImageWriter Emulator Version 1.6)def
/bdf{bind def}bind def
/xdf{exch def}bdf
/IWEmDict 150 dict def
/_WBJ_{IWEmDict  begin letter save makefonts 1 1 scale  printfile  restore end}bdf
IWEmDict begin/Version(ImageWriter Emulator Version 1.6)def/inch{72 mul}bdf
/PersonalLen{10.63 inch}bdf
/NormalLen{10.75 inch}bdf
/Personal?{statusdict begin product end(Personal)search{pop pop pop true}{pop false}ifelse}bdf
/ImageLen{Personal?{PersonalLen}{NormalLen}ifelse}bdf
/charsize{Personal?{11.5}{11.7}ifelse}bdf/USA 0 def/Italy 1 def/Denmark 2 def/England 3 def/Germany 4 def/Sweden 5 def/France 6 def/Spain 7 def
/defaultcountry USA def
/country defaultcountry def/BuildCharDict 20 dict def
/MouseFont 20 dict def
MouseFont begin/FontType 3 def/FontMatrix[1 0 0 1 0 0]def/FontBBox[0 0 1 1]def/Encoding 256 array def 0 1 255{Encoding exch/.notdef put}for
/closedApple/openApple/arrow/hourGlass/check1/check2/invcrArrow
/menubar/leftArrow/elipsis/downArrow/upArrow/overScore/crArrow
/solidRect/lScrollArrow/rScrollArrow/dScrollArrow/uScrollArrow
/midScore/lLeftCorner/rightArrow/grayRect1/grayRect2/lFolder
/rFolder/rBar/diamond/horLines/cross/button/lBar  Encoding 64 32 getinterval astore pop
/CharacterDefs 33 dict def
CharacterDefs/.notdef{}put
CharacterDefs/closedApple{8 8 true[8 0 0 -8 0 8]{<08 10 6c fe fc fc 7e 6c>}imagemask}put
CharacterDefs/openApple{8 8 true[8 0 0 -8 0 8]{<08 10 6c 82 84 84 52 6c>}imagemask}put
CharacterDefs/arrow{8 8 true[8 0 0 -8 0 8]{<00 00 40 60 70 78 6c 42>}imagemask}put
CharacterDefs/hourGlass{8 8 true[8 0 0 -8 0 8]{<fe 44 28 10 10 28 54 fe>}imagemask}put
CharacterDefs/check1{8 8 true[8 0 0 -8 0 8]{<00 02 04 88 50 20 20 00>}imagemask}put
CharacterDefs/check2{8 8 true[8 0 0 -8 0 8]{<00 02 04 88 50 20 20 00>}imagemask}put
CharacterDefs/invcrArrow{8 8 true[8 0 0 -8 0 8]{<02 02 02 22 62 fe 60 20>}imagemask}put
CharacterDefs/menubar{8 8 true[8 0 0 -8 0 8]{<ff 00 ff 00 ff 00 00 ff>}imagemask}put
CharacterDefs/leftArrow{8 8 true[8 0 0 -8 0 8]{<10 20 40 ff 40 20 10 00>}imagemask}put
CharacterDefs/elipsis{8 8 true[8 0 0 -8 0 8]{<00 00 00 00 00 00 00 54>}imagemask}put
CharacterDefs/downArrow{8 8 true[8 0 0 -8 0 8]{<10 10 10 10 92 54 38 10>}imagemask}put
CharacterDefs/upArrow{8 8 true[8 0 0 -8 0 8]{<10 38 54 92 10 10 10 10>}imagemask}put
CharacterDefs/overScore{8 8 true[8 0 0 -8 0 8]{<ff 00 00 00 00 00 00 00>}imagemask}put
CharacterDefs/crArrow{8 8 true[8 0 0 -8 0 8]{<02 02 02 22 62 fe 60 20>}imagemask}put
CharacterDefs/solidRect{8 8 true[8 0 0 -8 0 8]{<ff ff ff ff ff ff ff ff>}imagemask}put
CharacterDefs/lScrollArrow{8 8 true[8 0 0 -8 0 8]{<c9 18 38 7e 38 18 08 f7>}imagemask}put
CharacterDefs/rScrollArrow{8 8 true[8 0 0 -8 0 8]{<93 18 1c fe 1c 18 10 ef>}imagemask}put
CharacterDefs/dScrollArrow{8 8 true[8 0 0 -8 0 8]{<81 89 08 7f 3e 1c 89 81>}imagemask}put
CharacterDefs/uScrollArrow{8 8 true[8 0 0 -8 0 8]{<81 89 1c 3e 7f 08 89 81>}imagemask}put
CharacterDefs/midScore{8 8 true[8 0 0 -8 0 8]{<00 00 00 ff 00 00 00 00>}imagemask}put
CharacterDefs/lLeftCorner{8 8 true[8 0 0 -8 0 8]{<80 80 80 80 80 80 80 ff>}imagemask}put
CharacterDefs/rightArrow{8 8 true[8 0 0 -8 0 8]{<10 08 04 fe 04 08 10 00>}imagemask}put
CharacterDefs/grayRect1{8 8 true[8 0 0 -8 0 8]{<55 aa 55 aa 55 aa 55 aa>}imagemask}put
CharacterDefs/grayRect2{8 8 true[8 0 0 -8 0 8]{<55 aa 55 aa 55 aa 55 aa>}imagemask}put
CharacterDefs/lFolder{8 8 true[8 0 0 -8 0 8]{<00 1f 21 20 20 20 3f 00>}imagemask}put
CharacterDefs/rFolder{8 8 true[8 0 0 -8 0 8]{<00 00 f8 04 04 04 fc 00>}imagemask}put
CharacterDefs/rBar{8 8 true[8 0 0 -8 0 8]{<01 01 01 01 01 01 01 01>}imagemask}put
CharacterDefs/diamond{8 8 true[8 0 0 -8 0 8]{<10 38 7c fe 7c 38 10 00>}imagemask}put
CharacterDefs/horLines{8 8 true[8 0 0 -8 0 8]{<ff 00 00 00 00 00 00 ff>}imagemask}put
CharacterDefs/cross{8 8 true[8 0 0 -8 0 8]{<28 28 ee 00 ee 28 28 00>}imagemask}put
CharacterDefs/button{8 8 true[8 0 0 -8 0 8]{<fe 02 02 32 32 02 02 fe>}imagemask}put
CharacterDefs/lBar{8 8 true[8 0 0 -8 0 8]{<80 80 80 80 80 80 80 80>}imagemask}put
/BuildChar{BuildCharDict begin/char xdf/fontdict xdf/charname fontdict/Encoding get char get def/charproc fontdict/CharacterDefs get charname get def 1 0 0 0 1 1 setcachedevice gsave charproc grestore end}bdf
end
/Inverse[0 128 64 192 32 160 96 224 16 144 80 208 48 176 112 240 8 136 72 200 40 168 104 232 24 152 88 216 56 184 120 248 4 132 68 196 36 164 100 228 20 148 84 212 52 180 116 244 12 140 76 204 44 172 108 236 28 156 92 220 60 188 124 252 2 130 66 194 34 162 98 226 18 146 82 210 50 178 114 242 10 138 74 202 42 170 106 234 26 154 90 218 58 186 122 250 6 134 70 198 38 166 102 230 22 150 86 214 54 182 118 246 14 142 78 206 46 174 110 238 30 158 94 222 62 190 126 254 1 129 65 193 33 161 97 225 17 145 81 209 49 177 113 241 9 137 73 201 41 169 105 233 25 153 89 217 57 185 121 249 5 133 69 197 37 165 101 229 21 149 85 213 53 181 117 245 13 141 77 205 45 173 109 237 29 157 93 221 61 189 125 253 3 131 67 195 35 163 99 227 19 147 83 211 51 179 115 243 11 139 75 203 43 171 107 235 27 155 91 219 59 187 123 251 7 135 71 199 39 167 103 231 23 151 87 215 55 183 119 247 15 143 79 207 47 175 111 239 31 159 95 223 63 191 127 255]def
/mirror{Inverse exch get}bdf
/BuildCharDict 20 dict def
/GrafFont 20 dict def
GrafFont begin/FontType 3 def/FontMatrix[1 0 0 1 0 0]def/FontBBox[0 0 1 8]def/Encoding[/char0/char1/char2/char3/char4/char5/char6/char7
/char8/char9/char10/char11/char12/char13/char14/char15
/char16/char17/char18/char19/char20/char21/char22/char23
/char24/char25/char26/char27/char28/char29/char30/char31
/char32/char33/char34/char35/char36/char37/char38/char39
/char40/char41/char42/char43/char44/char45/char46/char47
/char48/char49/char50/char51/char52/char53/char54/char55
/char56/char57/char58/char59/char60/char61/char62/char63
/char64/char65/char66/char67/char68/char69/char70/char71
/char72/char73/char74/char75/char76/char77/char78/char79
/char80/char81/char82/char83/char84/char85/char86/char87
/char88/char89/char90/char91/char92/char93/char94/char95
/char96/char97/char98/char99/char100/char101/char102/char103
/char104/char105/char106/char107/char108/char109/char110/char111
/char112/char113/char114/char115/char116/char117/char118/char119
/char120/char121/char122/char123/char124/char125/char126/char127
/char128/char129/char130/char131/char132/char133/char134/char135
/char136/char137/char138/char139/char140/char141/char142/char143
/char144/char145/char146/char147/char148/char149/char150/char151
/char152/char153/char154/char155/char156/char157/char158/char159
/char160/char161/char162/char163/char164/char165/char166/char167
/char168/char169/char170/char171/char172/char173/char174/char175
/char176/char177/char178/char179/char180/char181/char182/char183
/char184/char185/char186/char187/char188/char189/char190/char191
/char192/char193/char194/char195/char196/char197/char198/char199
/char200/char201/char202/char203/char204/char205/char206/char207
/char208/char209/char210/char211/char212/char213/char214/char215
/char216/char217/char218/char219/char220/char221/char222/char223
/char224/char225/char226/char227/char228/char229/char230/char231
/char232/char233/char234/char235/char236/char237/char238/char239
/char240/char241/char242/char243/char244/char245/char246/char247
/char248/char249/char250/char251/char252/char253/char254/char255]def
/String1 1 string def
/CharProc{0 1 translate 0 0 moveto -90 rotate  String1 0 3 -1 roll mirror put 8 1 true[8 0 0 -1 0 1]{String1}imagemask}bdf
/BuildChar{BuildCharDict begin .2 1 scale .75 0 0 0 1 1 setcachedevice gsave exch begin CharProc end grestore end}bdf
end/strokewidth 40 def
/halfsw strokewidth 2 div round cvi def
/overshoot 15 def
/capheight 563 halfsw sub def
/capover capheight overshoot add def
/baseline halfsw def
/bover baseline overshoot sub def
/xheight 417 halfsw sub def
/xover xheight overshoot add def
/ascend 604 halfsw sub def
/aover ascend overshoot add def
/descend -187 halfsw add def
/ExpandFont{exch dup length dict begin{1 index/FID eq{pop pop}{def}ifelse}forall currentdict/UniqueID known{/UniqueID UniqueID 16#800000 xor def}if CharStrings length add dict begin CharStrings{def}forall currentdict end/CharStrings xdf currentdict end}bdf
/Max{2 copy lt{exch}if pop}bdf
/Min{2 copy gt{exch}if pop}bdf
/courierdefs{}bdf
/UpdateBBox{5 -1 roll begin 3 -1 2{/FontBBox load exch get Max 4 1 roll}for 1 -1 0{/FontBBox load exch get Min 4 1 roll}for 4 array astore/FontBBox xdf end}bdf
/Courier findfont 2 ExpandFont begin
CharStrings begin
/AE{pop 600 0 0 -251 600 700 setcachedevice
/strokewidth 40 store
/halfsw strokewidth 2 div round cvi store
/overshoot 15 store
/capheight 563 halfsw sub store
/capover capheight overshoot add store
/baseline halfsw store
/bover baseline overshoot sub store
/xheight 417 halfsw sub store
/xover xheight overshoot add store
/ascend 604 halfsw sub store
/aover ascend overshoot add store
/descend -187 halfsw add store
newpath 30 baseline moveto 150 baseline lineto  90 baseline moveto 235 capheight lineto 550 403 moveto 550 capheight lineto 140 capheight lineto 320 capheight moveto 320 baseline lineto 240 baseline moveto 570 baseline lineto 570 140 lineto 165 208 moveto 320 208 lineto 320 292 moveto 440 292 lineto 440 347 moveto 440 237 lineto 1 setlinecap strokewidth 2 div setlinewidth stroke}bdf
/ae{pop 600 0 0 -251 600 700 setcachedevice
/strokewidth 40 store
/halfsw strokewidth 2 div round cvi store
/overshoot 15 store
/capheight 563 halfsw sub store
/capover capheight overshoot add store
/baseline halfsw store
/bover baseline overshoot sub store
/xheight 417 halfsw sub store
/xover xheight overshoot add store
/ascend 604 halfsw sub store
/aover ascend overshoot add store
/descend -187 halfsw add store newpath 300 217 moveto 270 229 230 238 185 238 curveto 130 238 30 192 30 160 curveto 30 bover 38 add 100 bover 165 bover curveto 210 bover 255 bover 38 add 300 104 curveto 300 baseline moveto 300 308 lineto 300 364 250 xover 200 xover curveto 165 xover 130 xheight 90 379 curveto 560 67 moveto 516 bover 28 add 473 bover 430 bover curveto 360 bover 300 102 300 219 curveto 300 xover 100 sub 360 xover 430 xover curveto 500 xover 560 xover 100 sub 560 219 curveto 300 219 lineto 1 setlinecap strokewidth 2 div setlinewidth stroke}bdf
end
currentdict 0 -251 600 700 UpdateBBox/Encoding Encoding 256 array copy def Encoding 140/AE put Encoding 143/ae put currentdict
end
/Courier-E exch definefont pop
/Courier-Bold findfont 2 ExpandFont begin
CharStrings begin
/AE{pop 600 0 0 -251 600 700 setcachedevice
/strokewidth 100 store
/halfsw strokewidth 2 div round cvi store
/overshoot 15 store
/capheight 583 halfsw sub store
/capover capheight overshoot add store
/baseline halfsw store
/bover baseline overshoot sub store
/xheight 437 halfsw sub store
/xover xheight overshoot add store
/ascend 624 halfsw sub store
/aover ascend overshoot add store
/descend -207 halfsw add store
newpath 30 baseline moveto 150 baseline lineto  90 baseline moveto 235 capheight lineto 550 403 moveto 550 capheight lineto 140 capheight lineto 320 capheight moveto 320 baseline lineto 240 baseline moveto 570 baseline lineto 570 140 lineto 165 208 moveto 320 208 lineto 320 292 moveto 440 292 lineto 440 347 moveto 440 237 lineto 1 setlinecap 75 setlinewidth stroke}bdf
/ae{pop 600 0 0 -251 600 700 setcachedevice
/strokewidth 100 store
/halfsw strokewidth 2 div round cvi store
/overshoot 15 store
/capheight 583 halfsw sub store
/capover capheight overshoot add store
/baseline halfsw store
/bover baseline overshoot sub store
/xheight 437 halfsw sub store
/xover xheight overshoot add store
/ascend 624 halfsw sub store
/aover ascend overshoot add store
/descend -207 halfsw add store newpath 300 217 moveto 270 229 230 238 185 238 curveto 130 238 30 192 30 160 curveto 30 bover 38 add 100 bover 165 bover curveto 210 bover 255 bover 38 add 300 104 curveto 300 baseline moveto 300 308 lineto 300 364 250 xover 200 xover curveto 165 xover 130 xheight 90 379 curveto 560 67 moveto 516 bover 28 add 473 bover 430 bover curveto 360 bover 300 102 300 219 curveto 300 xover 100 sub 360 xover 430 xover curveto 500 xover 560 xover 100 sub 560 219 curveto 300 219 lineto 1 setlinecap 75 setlinewidth stroke}bdf
end
currentdict 0 -251 600 700 UpdateBBox/Encoding Encoding 256 array copy def Encoding 140/AE put Encoding 143/ae put currentdict
end
/Courier-Bold-E exch definefont pop/reencsmalldict 5 dict def
/ReEncodeSmall{reencsmalldict begin/newcodesandnames xdf/newfontname xdf/basefontname xdf/basefontdict basefontname findfont def/newfont basefontdict maxlength dict def basefontdict{exch dup/FID ne{dup/Encoding eq{exch dup length array copy newfont 3 1 roll put}{exch newfont 3 1 roll put}ifelse}{pop pop}ifelse}forall newfont/FontName newfontname put newcodesandnames aload pop  newcodesandnames length 2 idiv{newfont/Encoding get 3 1 roll put}repeat newfontname newfont definefont pop end}bdf
/CourierVectors[129/sterling 130/section 132/ring 133/ccedilla 134/eacute 135/ugrave 136/agrave 137/ograve 138/egrave 139/igrave 141/Oslash 142/Aring 144/oslash 145/aring 146/Adieresis 147/Odieresis 148/Udieresis 149/adieresis 150/odieresis 151/udieresis 152/germandbls 153/agrave 154/ugrave 155/dieresis 156/exclamdown 157/Ntilde 158/questiondown 159/ntilde]def
/TimesVectors[129/sterling 130/section 132/ring 133/ccedilla 134/eacute 135/ugrave 136/agrave 137/ograve 138/egrave 139/igrave 140/AE 141/Oslash 142/Aring 143/ae 144/oslash 145/aring 146/Adieresis 147/Odieresis 148/Udieresis 149/adieresis 150/odieresis 151/udieresis 152/germandbls 153/agrave 154/ugrave 155/dieresis 156/exclamdown 157/Ntilde 158/questiondown 159/ntilde]def
/makefonts{/Courier-Bold-E/My-Courier-Bold CourierVectors ReEncodeSmall/Courier-E/My-Courier CourierVectors ReEncodeSmall/Times-Roman/My-Times-Roman TimesVectors ReEncodeSmall/Times-Bold/My-Times-Bold TimesVectors ReEncodeSmall/MouseText MouseFont definefont pop/theGrafFont GrafFont definefont pop}bdf
/BoldFont{/My-Courier-Bold findfont}bdf
/RomanFont{/My-Courier findfont}bdf
/PropRoman{/My-Times-Roman findfont}bdf
/PropBold{/My-Times-Bold findfont}bdf/xst{exch store}bdf
/oursave{/ourstate save def/CRonly? xst/autoLF? xst/fonttype xst/subflag xst/newcountry? xst/charct xst/debug? xst/hidig xst/lowdig xst/bitmask xst/slash0? xst/LM xst/dotspace xst/CR+LF? xst/open? xst/double? xst/prop? xst/graf? xst/lf? xst tabs astore pop/TopOfPage xst/LnHt xst/dpi xst/bold? xst/plain? xst/underline? xst}bdf
/ourrestore{underline?  plain? bold? dpi LnHt TopOfPage tabs aload pop lf? graf? prop? double? open? CR+LF? dotspace LM slash0? bitmask lowdig hidig debug? charct newcountry? subflag  fonttype autoLF? CRonly? ourstate restore}bdf
/printfile{initjob CmdDict begin initpage{currentfile read{/NewPage? false store graf? not debug? not and{bitmask and}if printchar}{NewPage? not CleanPage? not and{showpage ourstate restore}if exit}ifelse}loop popCmdStack end}bdf
/tabs 33 array def/tabindex 0 def/current_tab 0 def
/reset_tabs{0 1 32{tabs exch 999 put}for/tabindex 0 store/current_tab 0 store}bdf
/InitVariables{/underline? false def/plain? true def/bold? false def/dpi 96 def/LnHt charsize store/TopOfPage{ImageLen}store/linect 8 def reset_tabs/lf? true def/graf? false def/prop? false def/double? false def/open? false def/CR+LF? false def/dotspace 0 def/LM 18 store/slash0? false def/bitmask 127 def/LastString( )def/hexstring(0123456789ABCDEF)def/lowdig 0 def/hidig 0 def/debug? false def/str( )def/charct 1 def/NewPage? false def/CleanPage? false def/newcountry? false def/subflag false def/fonttype 0 def/autoLF? false def/CRonly? false def}bdf
/ResetPrinter{/underline? false store/plain? true store/bold? false store/dpi 96 store/LnHt charsize store/TopOfPage{ImageLen}store reset_tabs/lf? true store/graf? false store/prop? false store/double? false store/open? false store/CR+LF? false store/dotspace 0 store/LM 18 store/slash0? false store/bitmask 127 store/lowdig 0 store/hidig 0 store/debug? false store/charct 1 store/NewPage? false store/CleanPage? false store/newcountry? false store/subflag false store/fonttype 0 store/autoLF? false store/CRonly? false store}bdf
/strip{bitmask and}bdf
/getchar{currentfile read pop strip}bdf
/initjob{InitVariables/CmdDictBase countdictstack 1 add def}bdf
/initpage{/ourstate save def doFont LM TopOfPage moveto}bdf
/printchar{debug?{dup hexout}{dup cmd? graf? not and{doCmd}{/CleanPage? false store emit}ifelse}ifelse}bdf
/hexout{dup 15 and hexstring exch get/lowdig exch store 240 and 16 idiv hexstring exch get/hidig exch store str 0 hidig put str show str 0 lowdig put str show( )show/charct charct 1 add store
charct 25 eq{/charct 1 store CR CR+LF? not{LF}if}if}bdf
/cmd?{currentdict exch known}bdf
/doCmd{load exec}bdf
/swapUSA{mark 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20  21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37  38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54  55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71  72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104  105 106 107 108 109 110 111 112 113 114 115 116 117  118 119 120 121 122 123 124 125 126 127 129 -1 roll 127 exch sub index  129 1 roll cleartomark}bdf
/swapItaly{mark 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20  21 22 23 24 25 26 27 28 29 30 31 32 33 34 129 36 37  38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54  55 56 57 58 59 60 61 62 63 130 65 66 67 68 69 70 71  72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 132 133 134 94 95 135 97 98 99 100 101 102 103 104  105 106 107 108 109 110 111 112 113 114 115 116 117  118 119 120 121 122 136 137 138 139 127 129 -1 roll 127 exch sub index  129 1 roll cleartomark}bdf
/swapDenmark{mark 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20  21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37  38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54  55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71  72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 140 141 142 94 95 96 97 98 99 100 101 102 103 104  105 106 107 108 109 110 111 112 113 114 115 116 117  118 119 120 121 122 143 144 145 126 127 129 -1 roll 127 exch sub index  129 1 roll cleartomark}bdf
/swapEngland{mark 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20  21 22 23 24 25 26 27 28 29 30 31 32 33 34 129 36 37  38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54  55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71  72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104  105 106 107 108 109 110 111 112 113 114 115 116 117  118 119 120 121 122 123 124 125 126 127 129 -1 roll 127 exch sub index  129 1 roll cleartomark}bdf
/swapGermany{mark 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20  21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37  38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54  55 56 57 58 59 60 61 62 63 130 65 66 67 68 69 70 71  72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 146 147 148 94 95 96 97 98 99 100 101 102 103 104  105 106 107 108 109 110 111 112 113 114 115 116 117  118 119 120 121 122 149 150 151 152 127 129 -1 roll 127 exch sub index  129 1 roll cleartomark}bdf
/swapSweden{mark 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20  21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37  38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54  55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71  72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 146 147 142 94 95 96 97 98 99 100 101 102 103 104  105 106 107 108 109 110 111 112 113 114 115 116 117  118 119 120 121 122 149 150 145 126 127 129 -1 roll 127 exch sub index  129 1 roll cleartomark}bdf
/swapFrance{mark 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20  21 22 23 24 25 26 27 28 29 30 31 32 33 34 129 36 37  38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54  55 56 57 58 59 60 61 62 63 153 65 66 67 68 69 70 71  72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 132 133 130 94 95 96 97 98 99 100 101 102 103 104  105 106 107 108 109 110 111 112 113 114 115 116 117  118 119 120 121 122 134 154 138 155 127 129 -1 roll 127 exch sub index  129 1 roll cleartomark}bdf
/swapSpain{mark 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20  21 22 23 24 25 26 27 28 29 30 31 32 33 34 129 36 37  38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54  55 56 57 58 59 60 61 62 63 130 65 66 67 68 69 70 71  72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 156 157 158 94 95 96 97 98 99 100 101 102 103 104  105 106 107 108 109 110 111 112 113 114 115 116 117  118 119 120 121 122 132 159 133 126 127 129 -1 roll 127 exch sub index  129 1 roll cleartomark}bdf
/swapchar{mark/swapSpain/swapFrance/swapSweden/swapGermany/swapEngland/swapDenmark/swapItaly/swapUSA country index counttomark 1 add 1 roll cleartomark cvx exec}bdf
/RMtest{dup str xdf str stringwidth pop currentpoint pop add RM gt{CR}if}bdf
/emit{graf? not{swapchar}if( )dup 0 4 -1 roll put dup RMtest show prop?{currentpoint exch dotspace add exch moveto}if underline?{dup doUnderline}if  dup(0)eq{prop? not{slash0?{dup doslsh0}if}if}if/LastString exch store}bdf
/doslsh0{stringwidth pop currentpoint 3 1 roll exch sub exch moveto(/)show}bdf
/printable?{dup 0 get 32 ge}bdf
/doUnderline{printable?{stringwidth pop dup currentpoint 3 sub 3 1 roll exch sub exch gsave 0 setlinewidth newpath moveto 0 rlineto stroke grestore}{pop}ifelse}bdf
/CmdError{popCmdStack emit}bdf
/popCmdStack{countdictstack CmdDictBase sub{end}repeat}bdf
/NUL{}bdf
/CR{/current_tab 0 store  LM currentpoint exch pop moveto  CR+LF?{LF}if}bdf
/LF{CRonly? not{linect MaxLineCt LnHt sub ge{FF}{autoLF?{/current_tab 0 store  LM currentpoint exch pop moveto}if/linect linect LnHt lf?{add}{sub}ifelse store currentpoint LnHt lf?{sub}{add}ifelse moveto}ifelse}if}bdf
/FF{CRonly? not{showpage ourrestore oursave doFont LM TopOfPage moveto/linect 8 store/current_tab 0 store/NewPage? true store/CleanPage? true store}if}bdf
/BS{LastString stringwidth pop currentpoint 3 1 roll exch sub exch moveto}bdf/LM 18 def/RM 594 def/LnHt charsize def/TopOfPage{ImageLen}def/MaxLineCt TopOfPage def
/HT{HTDict begin tabs current_tab get dup 999 lt{1 sub(n)stringwidth pop mul LM add currentpoint exch pop moveto/current_tab current_tab 1 add store}{pop}ifelse end}bdf/CmdDict 30 dict def CmdDict begin 0{graf?{0 emit}{NUL}ifelse}bdf 8{graf?{8 emit}{BS}ifelse}bdf 9{graf?{9 emit}{HT}ifelse}bdf
10{graf?{10 emit}{LF}ifelse}bdf
12{graf?{12 emit}{FF}ifelse}bdf
13{graf?{13 emit}{CR}ifelse}bdf
27{graf?{27 emit}{ESC}ifelse}bdf
14{graf?{14 emit}{/double? true store changeFontWidth}ifelse}bdf
15{graf?{15 emit}{/double? false store changeFontWidth}ifelse}bdf
/changeFontWidth{fonttype 0 eq{doFont}{fonttype 1 eq{doMouseText}{gf}ifelse}ifelse}bdf
/printfile
/Elite{/prop? true store/dpi 160 store doFont}bdf
/Pica{/prop? true store/dpi 144 store doFont}bdf
/doFont{/fonttype 0 store dpi prop?{160 eq{10}{12}ifelse bold?{PropBold}{PropRoman}ifelse}{8 div 72 exch div 1.65 mul bold?{BoldFont}{RomanFont}ifelse}ifelse  exch double?{2 mul}if 0 0 charsize 0 0 matrix astore makefont setfont}bdf
/string4 4 string def
/get4{string4 dup 0 getchar put dup 1 getchar put dup 2 getchar put dup 3 getchar put}bdf
/inverse{255 exch sub}bdf
/string3 3 string def
/get3{string3  dup 0 getchar put dup 1 getchar put dup 2 getchar put}bdf
/HTDict 20 dict def
HTDict begin
/add_a_tab{tabs tabindex 3 -1 roll put/tabindex tabindex 1 add store}bdf
/get_tabs{{get3 cvi add_a_tab getchar 46 eq{exit}if}loop}bdf
/swap?{2 copy gt{exch true}{false}ifelse}bdf
/if_sort?{2 copy 2 copy 1 add get 3 1 roll get exch swap?{4 1 roll 3 1 roll 2 copy 5 -1 roll put 1 add 3 -1 roll put true}{pop pop pop pop false}ifelse}bdf
/sort_once{false 0 1 31{tabs exch if_sort?{pop true exit}if}for}bdf
/sort_tabs{sort_once{sort_tabs}if/current_tab 0 store{tabs current_tab get 999 eq{exit}{/current_tab current_tab 1 add store}ifelse}loop}bdf
/set_up_tabs{reset_tabs get_tabs  sort_tabs/current_tab 0 store}bdf
/remove_a_tab{0{dup tabs exch get 2 index eq{tabs exch 999 put exit}{1 add}ifelse}loop}bdf
/remove_tabs{{get3 cvi remove_a_tab getchar 46 eq{exit}if}loop sort_tabs/current_tab 0 store}bdf
end
/EscDict 100 dict def
/ESC{EscDict begin}bdf
EscDict begin
/subscript{currentpoint LnHt 6 div sub moveto/subflag true store}bdf
/superscript{currentpoint LnHt 6 div add moveto/subflag false store}bdf
/de-sub{currentpoint LnHt 6 div  subflag{add}{sub}ifelse moveto}bdf
/emit{CmdError}bdf
/hDot{get4 cvi dpi div 72 mul LM add currentpoint exch pop moveto}bdf
/ignore{{currentfile read{pop}if}repeat popCmdStack}bdf
/aStr 1 string def
/replicate{get3 cvi getchar dup 32 ge{aStr 0 3 -1 roll put{aStr show}repeat}{dup cmd?{{doCmd}repeat}{pop pop}ifelse}ifelse}bdf
/doMouseText{/fonttype 1 store dpi prop?{160 eq{12}{10}ifelse}{8 div 72 exch div}ifelse/MouseText findfont  exch double?{2 mul}if 0 0 8 0 0 matrix astore makefont setfont}bdf
/gf{/fonttype 2 store dpi  8 div 72 exch div .828125 mul/theGrafFont findfont  exch double?{2 mul}if 0 0 8 0 0 matrix astore makefont setfont}bdf
/gprint{/graf? true store gf{currentfile read pop printchar 1 sub dup 0 eq{pop exit}if}loop/graf? false store doFont}bdf
/g4{get4 cvi gprint}bdf
/g3*8{get3 cvi 8 mul gprint}bdf
/repeatGraphic{/graf? true store get4 cvi gsave gf aStr 0 currentfile read pop put{aStr show}repeat grestore/graf? false store doFont}bdf
/dps{pop}bdf
/string2 2 string def
/get2{string2 dup 0 getchar put dup 1 getchar put}bdf
/aChar 1 string def
/FixCR+LF{aChar dup 0 getchar put cvi  1 eq{/CR+LF? true store}{/CR+LF? false store}ifelse}bdf
/SetMargin{get3 cvi dpi  prop?{160 eq{80}{72}ifelse}if 8 div 72 exch div mul 18 add/LM exch store}bdf
/ChangeSwitch{currentfile read pop dup 128 and 128 eq{open?{/CR+LF? false store}{/CR+LF? true store}ifelse}if
dup  64 and 64 eq{open?{/CRonly? true store}{/CRonly? false store}ifelse}if
dup 32 and 32 eq{open?{/bitmask 255 store}{/bitmask 127 store}ifelse}if
dup 4 and 4 eq{open?{/country country 3 and store}{/country country 4 or store}ifelse/newcountry? true store}if
dup 2 and 2 eq{open?{/country country 5 and store}{/country country 2 or store}ifelse/newcountry? true store}if  1 and 1 eq{open?{/country country 6 and store}{/country country 1 or store}ifelse/newcountry? true store}if  currentfile read pop  1 and 1 eq{open?{/slash0? false store}{/slash0? true store}ifelse}if newcountry?{doFont/newcountry? false store}if}bdf
/changeLnHt{get2 cvi 2 div/LnHt exch store}bdf
/makedotspace{aChar dup 0 getchar put cvi dpi 72 exch div mul/dotspace exch store}bdf
/movedot{dpi 72 exch div mul 0 rmoveto}bdf  33{/bold? true store doFont popCmdStack}bdf 34{/bold? false store doFont popCmdStack}bdf 36{doFont popCmdStack}bdf 38{doMouseText popCmdStack}bdf 39{0 ignore}bdf 40{HTDict begin set_up_tabs end popCmdStack}bdf 41{HTDict begin remove_tabs end popCmdStack}bdf 42{0 ignore}bdf 43{0 ignore}bdf 45{0 ignore}bdf 48{HTDict begin reset_tabs end popCmdStack}bdf 49{1 movedot popCmdStack}bdf 50{2 movedot popCmdStack}bdf 51{3 movedot popCmdStack}bdf 52{4 movedot popCmdStack}bdf 53{5 movedot popCmdStack}bdf 54{6 movedot popCmdStack}bdf 60{0 ignore}bdf 62{0 ignore}bdf 63{0 ignore}bdf 65{/LnHt charsize store popCmdStack}bdf 66{/LnHt 9 store popCmdStack}bdf 68{/open? false store ChangeSwitch popCmdStack}bdf  69{/dpi 96 store/prop? false store doFont popCmdStack}bdf 70{hDot popCmdStack}bdf 71{g4 popCmdStack}bdf 72{4 ignore}bdf 73{0 ignore}bdf 75{1 ignore}bdf  76{SetMargin popCmdStack}bdf 77{0 ignore}bdf 78{/dpi 80 store/prop? false store doFont popCmdStack}bdf 79{0 ignore}bdf 80{Elite popCmdStack}bdf 81{/dpi 136 store/prop? false store doFont popCmdStack}bdf 82{replicate popCmdStack}bdf 83{g4 popCmdStack}bdf 84{changeLnHt popCmdStack}bdf 86{repeatGraphic popCmdStack}bdf 87{0 ignore}bdf 88{/underline? true store popCmdStack}bdf 89{/underline? false store popCmdStack}bdf 90{/open? true store ChangeSwitch popCmdStack}bdf 97{1 ignore}bdf 99{ResetPrinter popCmdStack}bdf 101{/dpi 107.2 store/prop? false store doFont popCmdStack}bdf 102{/lf? true store popCmdStack}bdf 103{g3*8 popCmdStack}bdf 108{/autoLF? getchar 48 sub 0 eq store popCmdStack}bdf 109{0 ignore}bdf  110{/dpi 72 store/prop? false store doFont popCmdStack}bdf 111{0 ignore}bdf  112{Pica popCmdStack}bdf 113{/dpi 120 store/prop? false store doFont popCmdStack}bdf 114{/lf? false store popCmdStack}bdf 115{makedotspace popCmdStack}bdf 117{HTDict begin get3 add_a_tab sort_tabs popCmdStack}bdf 118{0 ignore}bdf 119{0 ignore}bdf 120{superscript popCmdStack}bdf 121{subscript popCmdStack}bdf 122{de-sub popCmdStack}bdf end
end end  

%%End ExitServer
%%EndProcSet 
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/IWEm/IWEm Release Notes b/IIGS.601.SRC/GSToolbox/PrinterDrivers/IWEm/IWEm Release Notes
new file mode 100644
index 0000000..358f319
Binary files /dev/null and b/IIGS.601.SRC/GSToolbox/PrinterDrivers/IWEm/IWEm Release Notes differ
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/IWEm/IWEm.Src b/IIGS.601.SRC/GSToolbox/PrinterDrivers/IWEm/IWEm.Src
new file mode 100644
index 0000000..2213ab5
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/IWEm/IWEm.Src
@@ -0,0 +1 @@
+%!PS-Adobe-2.0
%%BeginProcSet "IWEM"
%
%  Imagewriter //  Emulator Version 1.1.2	4/27/87
%    patterned after "DaisyEm.ps" by Adobe Systems
%  Bill Judd  Apple Peripheral Systems and Products
%  Copyright Apple Computer, Inc. 1986
%  All Rights Reserved
%---------------------------------------
%   Modification  History
%   5/31/86 wbj  First Release
%   6/09/86 wbj  Strip off high bit for Apple // printing
%   7/02/86 wbj  Fix graphic-printing bug
%   --
%
%   7/10/86 Pete Mc Donald (PMM) adjusted Topofpage and LnHt, and Linect
%                                to compensate for page only really being 10.92"
%   7/12/86 PMM Add code to slash 0's (default in resetprinter else
%               use set switch commands to change default)      
%   7/17/86 PMM Add code to handle ignore/use bit 8. Default in Reset printer,
%               else use set switch commands to change default)
%   7/17/86 PMM Add code to handle Backspace.
%   7/24/86 PMM Add code to do Hex Dumps of recieved data. Mode is controlled by
%               a flag in reset printer, called debug? When true it will print
%               all recieved characters as hexadecimal else it has no effect.
%   7/25/86 PMM fix bug in ChangeSwitches, where certain operations were under
%               the wrong switch number
%	--
%
%   9/05/86 wbj fix blank-page-after-last-page bug
%   9/11/86 wbj fix AW last-page bug
%  10/04/86 wbj Let's go international! Imagewriter international character-
%				switching function added
%  11/03/86 wbj Added bdf proc: won some VM and some speed
%  11/04/86 wbj modified Moustext generation code; moved Mousetext and
%               graphic font generation to runtime
%  11/05/86 wbj changed to table-lookup for internatonal char switching;
%				cut # of fonts from 32 to 4
%  11/07/86 wbj added procs to add AE and ae to Courier fonts
%  11/10/86	wbj added subscript and superscript
%  11/19/86 wbj headline-text function fixed
%  11/25/86 wbj htabs problem fixed
%  11/26/86 wbj international release today
%  02/09/87 wbj fix NULL (ascii zero) bug today
%  04/26/87 wbj fix graphic bug introduced with in't'l chars
%
% Modified by Wesley S. Johnson
%
%  01/22/88 WSJ	Replaced mirror code with table lookup code to fix 
%		(offending error caused by the idev command)
%  01/26/88 WSJ	Put in RMtest to wrap-around very long strings of characters.
%
%  Imagewriter //  Emulator Version 1.2		1/27/88
%
%  04/06/88 WSJ changed Esc-S to use same entry point as Esc-G
%		(takes care of Bitmap Graphics bug, discovered in Vers 1.2)
%
%  Imagewriter //  Emulator Version 1.2.1	4/18/88
%
%
%  Imagewriter //  Emulator Version 1.3
%
%  d1
%  Sept 23, 1988    Suki Lee       
%  Added save in "initpage" and restore after showpage in "printfile" and
%    "FF" (form feed) to recover the virtual memory used for each page. Also
%    enhanced buildIWEm script to strip out unnecessary spaces around 
%  PostScript's special delimiter characters: (,),{,},[,],<,>,/,% to reduce
%    file size by almost 1K bytes.
%
%  Sept 27, 1988    Suki Lee
%  Defined xdf (exch def) and use whenever necessary. Substituted bdf where 
%    necessary, since this variable is already defined.
%  Eliminated the procedure "inch" which was mainly used for defining margins.
%    Hard coded the margin values in points and show the calculations in the 
%    comments since arithmetic calculations are costly in PostScript.
%  Rewrote the Encoding vector definitions to be more efficient.
%
%  d2
%  May 19, 1989     Suki Lee
%  Added two new procs: oursave and ourrestore which uses the stack to transfer
%    necessary variables across save and restore pairs. Modified FF to make use 
%    of these procs and makes a doFont call to keep font styles consistent across
%    pages.
%  Bug fix: In EscDict, 3 procs were defined using the incorrect decimal equivalent
%    of the command: ESC- should be 45, not 44; ESC> should be 62, not 61; ESC? should
%    be 63, not 62. Also the comment for ESC+ and ESC- are swapped.
%  Added call to popCmdDict in ignore since all commands which use ignore needs to
%    pop the dict off the stack. 
%
%  May 20, 1989 	Suki Lee
%  Bug fix: In EscDict, ESC g (103) is defined to use procedure gr3*4; but in the actual
%    definition of the procedure, the name is defined as g3*4. Changed dict to use g3*4.
%  Bug fix: Removed check for prop? in gf since that flag has effect only on text and not
%    graphics. Graphics only need the dpi value. BRC# 45926
%  Bug fix: Removed gsave and grestore in gprint. Grapics were being printed on top of
%    each other since the current point is always restored to where the first graphic
%    call begins. BRC #47016 & #48241(this reports the identical bug)
%
%  May 21, 1989     Suki Lee
%  Change variable cpi to dpi to better reflect its purpose.
%  Moved font set up from initjob to initpage. Moved call to initpage from initjob to 
%    printfile. This is done to maintain font consistency across pages.
%
%
%  Imagewriter //  Emulator Version 1.4
%
%	June 5, 1991	Wes Johnson
%	Re-Instated the "inch" procedure, since some values might not be known until runtime.
%	New Feature:
%		Added new Version checking code to allow later versions to overwrite currently
%			installed IWEm.
%		Added check for dostartpage.  If (dostartpage) showpage
%	Bug fix:
%		Added some variables which are used to set TopOfPage and LnHt during IWEm runtime.
%		These variables will deal with the smaller imaging area of the Personal LaserWriter NT.
%		Still allows 66 lines of text per page on a Personal LaserWriter NT.
%		replaced some hard coded values with variables to reflect changes in imaging
%			size of the Personal LaserWriter NT.
%
%	Feb 6, 1992	Wes Johnson
%	Problem:
%		Due to some changes in the IIgs the imaging area was reduced
%		to allow grayscale to operate in its minimal configuration.
%		This causes a side-effect of characters on the outside edges
%		to be lost.
%	Bug fix:
%		When the IWEmDict is invoked it will execute the letter command.
%		The letter command should cause most printers to default to the
%		standard letter size imaging area.
%	Note:
%		This fix will not help the LaserWriter IIf with 2 meg (minimum config)
%		The only solution is to upgrade it to 5 meg, then it will work like the IIg.
%
%    Version 1.5
%	Feb 11, 1992	Greg Branche
%		Changed version number to 1.5, since 1.4 was shipped with the
%		LC //E Card software v2.0 without our knowledge.
%
%    Version 1.6d1
%	Apr 24, 1992	Wes Johnson
%		Changed version number to 1.6d1.  Changed check for Personal
%		Laserwriter NT to also include the NTR (actually, and product
%		with "Personal" in its name).  Changed copyright to include
%		1992.
%
%   Version 1.6
%	2-Apr-93 DAL
%		Changed version to 1.6.
%
%-----------------------------------------------------------------------------
/Ver (ImageWriter Emulator Version 1.6)def	% Note change /Version to match this string
/IWEmDict where
{
	pop
	IWEmDict /Version known
	{
	IWEmDict begin Version end /Version exch def
	Ver Version le
		{
		Version print ( already loaded.)print <0d> print flush
		stop
		}if
	}if
} if

%% setup startup page
newpath
40 40 moveto
40 750 lineto
580 750 lineto
580 40 lineto
40 40 lineto
closepath
.25 setlinewidth
stroke
(Downloading )print Ver print<0d>print flush
/Courier findfont 12 scalefont setfont

%%Begin ExitServer goes here
serverdict begin
statusdict begin
0 checkpassword
{
	dostartpage 	% if dostartpage true then we will execute showpage
	{
	160 400 moveto Ver show( installed.)show
	160 380 moveto(Copyright(c)1986-1992 Apple Computer, Inc.)show showpage
	} if
	0 exitserver
}
{
	100 400 moveto(Bad Password cannot load ImageWriter Emulator!!!)show showpage
	stop
}ifelse

/bdf {bind def} bind def
/xdf {exch def} bdf

/IWEmDict 150 dict def

/_WBJ_ 
   {IWEmDict 
     begin
     letter	% letter command should restore a normal letter imaging area
     save
	  makefonts
      1 1 scale 
      printfile 
     restore
  end} 
bdf


IWEmDict begin %---------------------------------------------------------

%
% This Version string must coincide with "Ver" defined 
%
/Version (ImageWriter Emulator Version 1.6)def	% Note change /Ver to match this string
%
% Personal LaserWriter NT support
% These calculations only occur 1 time.
% The values will be based on the result of the product string.
%
/inch 			{72 mul} bdf
/PersonalLen		{10.63 inch} bdf
/NormalLen		{10.75 inch} bdf
/Personal?		{statusdict begin product end (Personal) search
				{pop pop pop true} {pop false} ifelse} bdf	
/ImageLen		{Personal? {PersonalLen}{NormalLen} ifelse} bdf
/charsize		{Personal? {11.5}{11.7} ifelse} bdf

% Setting the default language: you may change the default country by
% choosing a country from the following list and replacing "USA" with
% the chosen country in the command line below.  Do not include the "/".
% To change the default to French characters, for example, change the
% command line to: /defaultcountry France def
% Then, when the IWEM is loaded into a Laserwriter printer, the 
% selected international characters will be the default characters.
  
% country list: DO NOT CHANGE !!!

    /USA 0 def
    /Italy 1 def
    /Denmark 2 def
    /England 3 def
    /Germany 4 def
    /Sweden 5 def
    /France 6 def
    /Spain 7 def

/defaultcountry USA def		% <- this is the line to change

/country defaultcountry def

% ==============  MouseFont ====================
/BuildCharDict 20 dict def
/MouseFont 20 dict def
MouseFont begin
  /FontType 3 def
  /FontMatrix [1 0 0 1 0 0] def
  /FontBBox [0 0 1 1] def
  /Encoding 256 array def
 0 1 255 {Encoding exch /.notdef put} for
/closedApple /openApple /arrow /hourGlass /check1 /check2 /invcrArrow 
/menubar /leftArrow /elipsis /downArrow /upArrow /overScore /crArrow 
/solidRect /lScrollArrow /rScrollArrow /dScrollArrow /uScrollArrow 
/midScore /lLeftCorner /rightArrow /grayRect1 /grayRect2 /lFolder 
/rFolder /rBar /diamond /horLines /cross /button /lBar 
 Encoding 64 32 getinterval astore pop
 
/CharacterDefs 33 dict def

CharacterDefs /.notdef {} put


CharacterDefs /closedApple
 { 8 8 true [ 8 0 0 -8 0 8]
 {<08 10 6c fe fc fc 7e 6c>} imagemask } put
CharacterDefs /openApple
 { 8 8 true [ 8 0 0 -8 0 8]
 {<08 10 6c 82 84 84 52 6c>} imagemask } put
CharacterDefs /arrow
 { 8 8 true [ 8 0 0 -8 0 8]
 {<00 00 40 60 70 78 6c 42>} imagemask } put
CharacterDefs /hourGlass
 { 8 8 true [ 8 0 0 -8 0 8]
 {<fe 44 28 10 10 28 54 fe>} imagemask } put
CharacterDefs /check1
 { 8 8 true [ 8 0 0 -8 0 8]
 {<00 02 04 88 50 20 20 00>} imagemask } put
CharacterDefs /check2
 { 8 8 true [ 8 0 0 -8 0 8]
 {<00 02 04 88 50 20 20 00>} imagemask } put
CharacterDefs /invcrArrow
 { 8 8 true [ 8 0 0 -8 0 8]
 {<02 02 02 22 62 fe 60 20>} imagemask } put
CharacterDefs /menubar
 { 8 8 true [ 8 0 0 -8 0 8]
 {<ff 00 ff 00 ff 00 00 ff>} imagemask } put
CharacterDefs /leftArrow
 { 8 8 true [ 8 0 0 -8 0 8]
 {<10 20 40 ff 40 20 10 00>} imagemask } put
CharacterDefs /elipsis
 { 8 8 true [ 8 0 0 -8 0 8]
 {<00 00 00 00 00 00 00 54>} imagemask } put
CharacterDefs /downArrow
 { 8 8 true [ 8 0 0 -8 0 8]
 {<10 10 10 10 92 54 38 10>} imagemask } put
CharacterDefs /upArrow
 { 8 8 true [ 8 0 0 -8 0 8]
 {<10 38 54 92 10 10 10 10>} imagemask } put
CharacterDefs /overScore
 { 8 8 true [ 8 0 0 -8 0 8]
 {<ff 00 00 00 00 00 00 00>} imagemask } put
CharacterDefs /crArrow
 { 8 8 true [ 8 0 0 -8 0 8]
 {<02 02 02 22 62 fe 60 20>} imagemask } put
CharacterDefs /solidRect
 { 8 8 true [ 8 0 0 -8 0 8]
 {<ff ff ff ff ff ff ff ff>} imagemask } put
CharacterDefs /lScrollArrow
 { 8 8 true [ 8 0 0 -8 0 8]
 {<c9 18 38 7e 38 18 08 f7>} imagemask } put
CharacterDefs /rScrollArrow
 { 8 8 true [ 8 0 0 -8 0 8]
 {<93 18 1c fe 1c 18 10 ef>} imagemask } put
CharacterDefs /dScrollArrow
 { 8 8 true [ 8 0 0 -8 0 8]
 {<81 89 08 7f 3e 1c 89 81>} imagemask } put
CharacterDefs /uScrollArrow
 { 8 8 true [ 8 0 0 -8 0 8]
 {<81 89 1c 3e 7f 08 89 81>} imagemask } put
CharacterDefs /midScore
 { 8 8 true [ 8 0 0 -8 0 8]
 {<00 00 00 ff 00 00 00 00>} imagemask } put
CharacterDefs /lLeftCorner
 { 8 8 true [ 8 0 0 -8 0 8]
 {<80 80 80 80 80 80 80 ff>} imagemask } put
CharacterDefs /rightArrow
 { 8 8 true [ 8 0 0 -8 0 8]
 {<10 08 04 fe 04 08 10 00>} imagemask } put
CharacterDefs /grayRect1
 { 8 8 true [ 8 0 0 -8 0 8]
 {<55 aa 55 aa 55 aa 55 aa>} imagemask } put
CharacterDefs /grayRect2
 { 8 8 true [ 8 0 0 -8 0 8]
 {<55 aa 55 aa 55 aa 55 aa>} imagemask } put
CharacterDefs /lFolder
 { 8 8 true [ 8 0 0 -8 0 8]
 {<00 1f 21 20 20 20 3f 00>} imagemask } put
CharacterDefs /rFolder
 { 8 8 true [ 8 0 0 -8 0 8]
 {<00 00 f8 04 04 04 fc 00>} imagemask } put
CharacterDefs /rBar
 { 8 8 true [ 8 0 0 -8 0 8]
 {<01 01 01 01 01 01 01 01>} imagemask } put
CharacterDefs /diamond
 { 8 8 true [ 8 0 0 -8 0 8]
 {<10 38 7c fe 7c 38 10 00>} imagemask } put
CharacterDefs /horLines 
 { 8 8 true [ 8 0 0 -8 0 8]
 {<ff 00 00 00 00 00 00 ff>} imagemask } put
CharacterDefs /cross
 { 8 8 true [ 8 0 0 -8 0 8]
 {<28 28 ee 00 ee 28 28 00>} imagemask } put
CharacterDefs /button
 { 8 8 true [ 8 0 0 -8 0 8]
 {<fe 02 02 32 32 02 02 fe>} imagemask } put
CharacterDefs /lBar
 { 8 8 true [ 8 0 0 -8 0 8]
 {<80 80 80 80 80 80 80 80>} imagemask } put

/BuildChar
  {BuildCharDict begin
    /char xdf
    /fontdict xdf
    /charname fontdict /Encoding get char get def
    /charproc fontdict /CharacterDefs get charname get def
    1 0 0 0 1 1 setcachedevice
    gsave charproc grestore
  end } bdf
end

% ============== End of MouseFont Definition ================
%@@@@@@@@@ Begin Old Mirror Code @@@@@@@@@@@@@
%@/log2 128 def
%@
%@/mirror % n1 -- n2  reverse bits of 8-bit byte
%@  { /log2 128 store
%@	  0 exch					% -- 0 n
%@		{ dup 2 mod 1 eq			% odd? -- 0 n f
%@			{exch log2 add exch } if	% -- ans n
%@			/log2 log2 2 idiv store
%@			2 idiv
%@			dup 0 eq { pop exit} if
%@		} loop
%@		1 idiv } def
%@@@@@@@@@ End Old Mirror Code @@@@@@@@@@@@@@

%################# Begin New Mirror Code ######################
%
%	Due to a problem in the LaserWriter versions 3.0+ the (Old mirror cmd) will not work any more
%	it now offends the laser writer when an (idev) command is issued.
%

/Inverse	%Inverse Image of each character
	[						%Begin Array
% Inverse Images of 00-0F
	0	% Inverse of 00000000
	128	% Inverse of 00000001
	64	% Inverse of 00000010
	192	% Inverse of 00000011
	32	% Inverse of 00000100
	160	% Inverse of 00000101
	96	% Inverse of 00000110
	224	% Inverse of 00000111
	16	% Inverse of 00001000
	144	% Inverse of 00001001
	80	% Inverse of 00001010
	208	% Inverse of 00001011
	48	% Inverse of 00001100
	176	% Inverse of 00001101
	112	% Inverse of 00001110
	240	% Inverse of 00001111
% Inverse Images of 10-1F
	8	% Inverse of 00010000
	136	% Inverse of 00010001
	72	% Inverse of 00010010
	200	% Inverse of 00010011
	40	% Inverse of 00010100
	168	% Inverse of 00010101
	104	% Inverse of 00010110
	232	% Inverse of 00010111
	24	% Inverse of 00011000
	152	% Inverse of 00011001
	88	% Inverse of 00011010
	216	% Inverse of 00011011
	56	% Inverse of 00011100
	184	% Inverse of 00011101
	120	% Inverse of 00011110
	248	% Inverse of 00011111
% Inverse Images of 20-2F
	4	% Inverse of 00100000
	132	% Inverse of 00100001
	68	% Inverse of 00100010
	196	% Inverse of 00100011
	36	% Inverse of 00100100
	164	% Inverse of 00100101
	100	% Inverse of 00100110
	228	% Inverse of 00100111
	20	% Inverse of 00101000
	148	% Inverse of 00101001
	84	% Inverse of 00101010
	212	% Inverse of 00101011
	52	% Inverse of 00101100
	180	% Inverse of 00101101
	116	% Inverse of 00101110
	244	% Inverse of 00101111
% Inverse Images of 30-3F
	12	% Inverse of 00110000
	140	% Inverse of 00110001
	76	% Inverse of 00110010
	204	% Inverse of 00110011
	44	% Inverse of 00110100
	172	% Inverse of 00110101
	108	% Inverse of 00110110
	236	% Inverse of 00110111
	28	% Inverse of 00111000
	156	% Inverse of 00111001
	92	% Inverse of 00111010
	220	% Inverse of 00111011
	60	% Inverse of 00111100
	188	% Inverse of 00111101
	124	% Inverse of 00111110
	252	% Inverse of 00111111
% Inverse Images of 40-4F
	2	% Inverse of 01000000
	130	% Inverse of 01000001
	66	% Inverse of 01000010
	194	% Inverse of 01000011
	34	% Inverse of 01000100
	162	% Inverse of 01000101
	98	% Inverse of 01000110
	226	% Inverse of 01000111
	18	% Inverse of 01001000
	146	% Inverse of 01001001
	82	% Inverse of 01001010
	210	% Inverse of 01001011
	50	% Inverse of 01001100
	178	% Inverse of 01001101
	114	% Inverse of 01001110
	242	% Inverse of 01001111
% Inverse Images of 50-5F
	10	% Inverse of 01010000
	138	% Inverse of 01010001
	74	% Inverse of 01010010
	202	% Inverse of 01010011
	42	% Inverse of 01010100
	170	% Inverse of 01010101
	106	% Inverse of 01010110
	234	% Inverse of 01010111
	26	% Inverse of 01011000
	154	% Inverse of 01011001
	90	% Inverse of 01011010
	218	% Inverse of 01011011
	58	% Inverse of 01011100
	186	% Inverse of 01011101
	122	% Inverse of 01011110
	250	% Inverse of 01011111
% Inverse Images of 60-6F
	6	% Inverse of 01100000
	134	% Inverse of 01100001
	70	% Inverse of 01100010
	198	% Inverse of 01100011
	38	% Inverse of 01100100
	166	% Inverse of 01100101
	102	% Inverse of 01100110
	230	% Inverse of 01100111
	22	% Inverse of 01101000
	150	% Inverse of 01101001
	86	% Inverse of 01101010
	214	% Inverse of 01101011
	54	% Inverse of 01101100
	182	% Inverse of 01101101
	118	% Inverse of 01101110
	246	% Inverse of 01101111
% Inverse Images of 70-7F
	14	% Inverse of 01110000
	142	% Inverse of 01110001
	78	% Inverse of 01110010
	206	% Inverse of 01110011
	46	% Inverse of 01110100
	174	% Inverse of 01110101
	110	% Inverse of 01110110
	238	% Inverse of 01110111
	30	% Inverse of 01111000
	158	% Inverse of 01111001
	94	% Inverse of 01111010
	222	% Inverse of 01111011
	62	% Inverse of 01111100
	190	% Inverse of 01111101
	126	% Inverse of 01111110
	254	% Inverse of 01111111
% Inverse Images of 80-8F
	1	% Inverse of 10000000
	129	% Inverse of 10000001
	65	% Inverse of 10000010
	193	% Inverse of 10000011
	33	% Inverse of 10000100
	161	% Inverse of 10000101
	97	% Inverse of 10000110
	225	% Inverse of 10000111
	17	% Inverse of 10001000
	145	% Inverse of 10001001
	81	% Inverse of 10001010
	209	% Inverse of 10001011
	49	% Inverse of 10001100
	177	% Inverse of 10001101
	113	% Inverse of 10001110
	241	% Inverse of 10001111
% Inverse Images of 90-9F
	9	% Inverse of 10010000
	137	% Inverse of 10010001
	73	% Inverse of 10010010
	201	% Inverse of 10010011
	41	% Inverse of 10010100
	169	% Inverse of 10010101
	105	% Inverse of 10010110
	233	% Inverse of 10010111
	25	% Inverse of 10011000
	153	% Inverse of 10011001
	89	% Inverse of 10011010
	217	% Inverse of 10011011
	57	% Inverse of 10011100
	185	% Inverse of 10011101
	121	% Inverse of 10011110
	249	% Inverse of 10011111
% Inverse Images of A0-AF
	5	% Inverse of 10100000
	133	% Inverse of 10100001
	69	% Inverse of 10100010
	197	% Inverse of 10100011
	37	% Inverse of 10100100
	165	% Inverse of 10100101
	101	% Inverse of 10100110
	229	% Inverse of 10100111
	21	% Inverse of 10101000
	149	% Inverse of 10101001
	85	% Inverse of 10101010
	213	% Inverse of 10101011
	53	% Inverse of 10101100
	181	% Inverse of 10101101
	117	% Inverse of 10101110
	245	% Inverse of 10101111
% Inverse Images of B0-BF
	13	% Inverse of 10110000
	141	% Inverse of 10110001
	77	% Inverse of 10110010
	205	% Inverse of 10110011
	45	% Inverse of 10110100
	173	% Inverse of 10110101
	109	% Inverse of 10110110
	237	% Inverse of 10110111
	29	% Inverse of 10111000
	157	% Inverse of 10111001
	93	% Inverse of 10111010
	221	% Inverse of 10111011
	61	% Inverse of 10111100
	189	% Inverse of 10111101
	125	% Inverse of 10111110
	253	% Inverse of 10111111
% Inverse Images of C0-CF
	3	% Inverse of 11000000
	131	% Inverse of 11000001
	67	% Inverse of 11000010
	195	% Inverse of 11000011
	35	% Inverse of 11000100
	163	% Inverse of 11000101
	99	% Inverse of 11000110
	227	% Inverse of 11000111
	19	% Inverse of 11001000
	147	% Inverse of 11001001
	83	% Inverse of 11001010
	211	% Inverse of 11001011
	51	% Inverse of 11001100
	179	% Inverse of 11001101
	115	% Inverse of 11001110
	243	% Inverse of 11001111
% Inverse Images of D0-DF
	11	% Inverse of 11010000
	139	% Inverse of 11010001
	75	% Inverse of 11010010
	203	% Inverse of 11010011
	43	% Inverse of 11010100
	171	% Inverse of 11010101
	107	% Inverse of 11010110
	235	% Inverse of 11010111
	27	% Inverse of 11011000
	155	% Inverse of 11011001
	91	% Inverse of 11011010
	219	% Inverse of 11011011
	59	% Inverse of 11011100
	187	% Inverse of 11011101
	123	% Inverse of 11011110
	251	% Inverse of 11011111
% Inverse Images of E0-EF
	7	% Inverse of 11100000
	135	% Inverse of 11100001
	71	% Inverse of 11100010
	199	% Inverse of 11100011
	39	% Inverse of 11100100
	167	% Inverse of 11100101
	103	% Inverse of 11100110
	231	% Inverse of 11100111
	23	% Inverse of 11101000
	151	% Inverse of 11101001
	87	% Inverse of 11101010
	215	% Inverse of 11101011
	55	% Inverse of 11101100
	183	% Inverse of 11101101
	119	% Inverse of 11101110
	247	% Inverse of 11101111
% Inverse Images of F0-FF
	15	% Inverse of 11110000
	143	% Inverse of 11110001
	79	% Inverse of 11110010
	207	% Inverse of 11110011
	47	% Inverse of 11110100
	175	% Inverse of 11110101
	111	% Inverse of 11110110
	239	% Inverse of 11110111
	31	% Inverse of 11111000
	159	% Inverse of 11111001
	95	% Inverse of 11111010
	223	% Inverse of 11111011
	63	% Inverse of 11111100
	191	% Inverse of 11111101
	127	% Inverse of 11111110
	255	% Inverse of 11111111
	] def						%End Array

/mirror		% n1 -- n2  reverse bits of 8-bit byte (Lookup Inverse Ascii table)
  { Inverse exch get } bdf

%#################  End New Mirror Code #######################

% ============== GrafFont =====================

/BuildCharDict 20 dict def
/GrafFont 20 dict def
GrafFont begin
  /FontType 3 def
  /FontMatrix [1 0 0 1 0 0] def
  /FontBBox [0 0 1 8] def
  /Encoding
[/char0	 /char1	  /char2   /char3   /char4   /char5   /char6   /char7
/char8	 /char9	  /char10  /char11  /char12  /char13  /char14  /char15
/char16	 /char17  /char18  /char19  /char20  /char21  /char22  /char23
/char24	 /char25  /char26  /char27  /char28  /char29  /char30  /char31
/char32	 /char33  /char34  /char35  /char36  /char37  /char38  /char39
/char40	 /char41  /char42  /char43  /char44  /char45  /char46  /char47
/char48	 /char49  /char50  /char51  /char52  /char53  /char54  /char55
/char56	 /char57  /char58  /char59  /char60  /char61  /char62  /char63
/char64	 /char65  /char66  /char67  /char68  /char69  /char70  /char71
/char72	 /char73  /char74  /char75  /char76  /char77  /char78  /char79
/char80	 /char81  /char82  /char83  /char84  /char85  /char86  /char87
/char88	 /char89  /char90  /char91  /char92  /char93  /char94  /char95
/char96	 /char97  /char98  /char99  /char100 /char101 /char102 /char103
/char104 /char105 /char106 /char107 /char108 /char109 /char110 /char111
/char112 /char113 /char114 /char115 /char116 /char117 /char118 /char119
/char120 /char121 /char122 /char123 /char124 /char125 /char126 /char127
/char128 /char129 /char130 /char131 /char132 /char133 /char134 /char135
/char136 /char137 /char138 /char139 /char140 /char141 /char142 /char143
/char144 /char145 /char146 /char147 /char148 /char149 /char150 /char151
/char152 /char153 /char154 /char155 /char156 /char157 /char158 /char159
/char160 /char161 /char162 /char163 /char164 /char165 /char166 /char167
/char168 /char169 /char170 /char171 /char172 /char173 /char174 /char175
/char176 /char177 /char178 /char179 /char180 /char181 /char182 /char183
/char184 /char185 /char186 /char187 /char188 /char189 /char190 /char191
/char192 /char193 /char194 /char195 /char196 /char197 /char198 /char199
/char200 /char201 /char202 /char203 /char204 /char205 /char206 /char207
/char208 /char209 /char210 /char211 /char212 /char213 /char214 /char215
/char216 /char217 /char218 /char219 /char220 /char221 /char222 /char223
/char224 /char225 /char226 /char227 /char228 /char229 /char230 /char231
/char232 /char233 /char234 /char235 /char236 /char237 /char238 /char239
/char240 /char241 /char242 /char243 /char244 /char245 /char246 /char247
/char248 /char249 /char250 /char251 /char252 /char253 /char254 /char255] def

/String1 1 string def
/CharProc { 0 1 translate 0 0 moveto -90 rotate 
            String1 0 3 -1 roll  mirror put
            8 1 true [8 0 0 -1 0 1] {String1} imagemask } bdf
/BuildChar
  {BuildCharDict begin
    .2 1 scale
    .75 0 0 0 1 1 setcachedevice
    gsave exch begin CharProc end grestore
  end } bdf
end

% ====================== End of GrafFont Definition ======================

% ------- Code to add Missing Characters to Courier Fonts ----------------
/strokewidth 40 def
/halfsw strokewidth 2 div round cvi def
/overshoot 15 def
/capheight 563 halfsw sub def
/capover capheight overshoot add def
/baseline halfsw def
/bover baseline overshoot sub def
/xheight 417 halfsw sub def
/xover xheight overshoot add def
/ascend 604 halfsw sub def
/aover ascend overshoot add def
/descend -187 halfsw add def

/ExpandFont		% add two chars to Courier
		{ exch dup length dict begin
				{ 1 index /FID eq
						{pop pop} {def} ifelse
				} forall
		currentdict /UniqueID known
		{/UniqueID UniqueID 16#800000 xor def} if
		CharStrings length add dict begin
						CharStrings {def} forall
						currentdict
				end
		/CharStrings xdf
		currentdict
	end
} bdf

/Max {2 copy lt {exch} if pop}bdf 
/Min {2 copy gt {exch} if pop}bdf

/courierdefs
{ 
} bdf

/UpdateBBox
	{ 	5 -1 roll begin
		3 -1 2
		{/FontBBox load exch get Max 4 1 roll} for
		1 -1 0
		{/FontBBox load exch get Min 4 1 roll} for
		4 array astore
		/FontBBox xdf
		end
	}bdf


/Courier findfont 2 ExpandFont begin

CharStrings begin

/AE
{ pop 600 0 0 -251 600 700 setcachedevice
/strokewidth 40 store
/halfsw strokewidth 2 div round cvi store
/overshoot 15 store
/capheight 563 halfsw sub store
/capover capheight overshoot add store
/baseline halfsw store
/bover baseline overshoot sub store
/xheight 417 halfsw sub store
/xover xheight overshoot add store
/ascend 604 halfsw sub store
/aover ascend overshoot add store
/descend -187 halfsw add store
newpath
	30 baseline moveto 150 baseline lineto 
	90 baseline moveto 235 capheight lineto
	550 403 moveto 550 capheight lineto
	140 capheight lineto
	320 capheight moveto
	320 baseline lineto
	240 baseline moveto
	570 baseline lineto
	570 140 lineto
	165 208 moveto
	320 208 lineto
	320 292 moveto
	440 292 lineto
	440 347 moveto
	440 237 lineto
	1 setlinecap
	strokewidth 2 div setlinewidth
	stroke
} bdf

/ae
{ pop 600 0 0 -251 600 700 setcachedevice
/strokewidth 40 store
/halfsw strokewidth 2 div round cvi store
/overshoot 15 store
/capheight 563 halfsw sub store
/capover capheight overshoot add store
/baseline halfsw store
/bover baseline overshoot sub store
/xheight 417 halfsw sub store
/xover xheight overshoot add store
/ascend 604 halfsw sub store
/aover ascend overshoot add store
/descend -187 halfsw add store
	newpath
	300 217 moveto
	270 229 230 238 185 238 curveto
	130 238 30 192 30 160 curveto
	30 bover 38 add 100 bover 165 bover curveto
	210 bover 255 bover 38 add 300 104 curveto
	300 baseline moveto
	300 308 lineto
	300 364 250 xover 200 xover curveto
	165 xover 130 xheight 90 379 curveto
	560 67 moveto
	516 bover 28 add 473 bover 430 bover curveto
	360 bover 300 102 300 219 curveto
	300 xover 100 sub 360 xover 430 xover curveto
	500 xover 560 xover 100 sub 560 219 curveto
	300 219 lineto
	1 setlinecap
	strokewidth 2 div setlinewidth
	stroke
} bdf

end

currentdict 0 -251 600 700 UpdateBBox
	/Encoding Encoding 256 array copy def
	Encoding 140 /AE put
	Encoding 143 /ae put
	currentdict 
end

/Courier-E exch definefont pop 


/Courier-Bold findfont 2 ExpandFont begin

CharStrings begin

/AE
{ pop 600 0 0 -251 600 700 setcachedevice
/strokewidth 100 store
/halfsw strokewidth 2 div round cvi store
/overshoot 15 store
/capheight 583 halfsw sub store
/capover capheight overshoot add store
/baseline halfsw store
/bover baseline overshoot sub store
/xheight 437 halfsw sub store
/xover xheight overshoot add store
/ascend 624 halfsw sub store
/aover ascend overshoot add store
/descend -207 halfsw add store
newpath
	30 baseline moveto 150 baseline lineto 
	90 baseline moveto 235 capheight lineto
	550 403 moveto 550 capheight lineto
	140 capheight lineto
	320 capheight moveto
	320 baseline lineto
	240 baseline moveto
	570 baseline lineto
	570 140 lineto
	165 208 moveto
	320 208 lineto
	320 292 moveto
	440 292 lineto
	440 347 moveto
	440 237 lineto
	1 setlinecap
	75 setlinewidth
	stroke
} bdf

/ae
{ pop 600 0 0 -251 600 700 setcachedevice
/strokewidth 100 store
/halfsw strokewidth 2 div round cvi store
/overshoot 15 store
/capheight 583 halfsw sub store
/capover capheight overshoot add store
/baseline halfsw store
/bover baseline overshoot sub store
/xheight 437 halfsw sub store
/xover xheight overshoot add store
/ascend 624 halfsw sub store
/aover ascend overshoot add store
/descend -207 halfsw add store
	newpath
	300 217 moveto
	270 229 230 238 185 238 curveto
	130 238 30 192 30 160 curveto
	30 bover 38 add 100 bover 165 bover curveto
	210 bover 255 bover 38 add 300 104 curveto
	300 baseline moveto
	300 308 lineto
	300 364 250 xover 200 xover curveto
	165 xover 130 xheight 90 379 curveto
	560 67 moveto
	516 bover 28 add 473 bover 430 bover curveto
	360 bover 300 102 300 219 curveto
	300 xover 100 sub 360 xover 430 xover curveto
	500 xover 560 xover 100 sub 560 219 curveto
	300 219 lineto
	1 setlinecap
	75 setlinewidth
	stroke
} bdf

end

currentdict 0 -251 600 700 UpdateBBox
	/Encoding Encoding 256 array copy def
	Encoding 140 /AE put
	Encoding 143 /ae put
	currentdict 
end

/Courier-Bold-E exch definefont pop 

% ------- Code to add international character mapping --------------------
/reencsmalldict 5 dict def
/ReEncodeSmall
  { reencsmalldict begin
    /newcodesandnames xdf
    /newfontname xdf
    /basefontname xdf
    /basefontdict basefontname findfont def
    /newfont basefontdict maxlength dict def
    basefontdict
      { exch dup /FID ne
          { dup /Encoding eq
            { exch dup length array copy
                newfont 3 1 roll put }
            { exch newfont 3 1 roll put }
            ifelse }
          { pop pop }
          ifelse
       } forall

    newfont /FontName newfontname put

    newcodesandnames aload pop
	
    newcodesandnames length 2 idiv
	
      { newfont /Encoding get 3 1 roll put}
      repeat
    newfontname newfont definefont pop
    end
   } bdf
/CourierVectors			%	Ita	Den	Uk	Ger	Swe	Fr	Spa
  [ 129 /sterling		%	 35		 35			 35	 35
	130 /section 		%	 64			 64		 93	 64
	132 /ring  		%	 91					 91	123
	133 /ccedilla		%	 92					 92	125
	134 /eacute		%	 93					123
	135 /ugrave		%	 96
	136 /agrave		%	123
	137 /ograve		%	124
	138 /egrave		%	125					125
	139 /igrave		%	126
%	140 /AE			%		 91
	141 /Oslash		%		 92
	142 /Aring  		%		 93			 93	    
%	143 /ae			%		123
	144 /oslash		%		124
	145 /aring 		%		125			125
	146 /Adieresis		%				 91	 91
	147 /Odieresis		%				 92	 92
	148 /Udieresis		%				 93
	149 /adieresis		%				123	123
	150 /odieresis		%				124	124
	151 /udieresis		%				125
	152 /germandbls		%				126
	153 /agrave		%						 64
	154 /ugrave		%						124
	155 /dieresis 		%						126
	156 /exclamdown 	%							 91
	157 /Ntilde 		%							 92
	158 /questiondown	%							 93
	159 /ntilde  		%							124
  ] def
 
/TimesVectors			%	Ita	Den	Uk	Ger	Swe	Fr	Spa
  [ 129 /sterling		%	 35		 35			 35	 35
	130 /section 		%	 64			 64		 93	 64
	132 /ring  		%	 91					 91	123
	133 /ccedilla		%	 92					 92	125
	134 /eacute		%	 93					123
	135 /ugrave		%	 96
	136 /agrave		%	123
	137 /ograve		%	124
	138 /egrave		%	125					125
	139 /igrave		%	126
	140 /AE			%		 91
	141 /Oslash		%		 92
	142 /Aring  		%		 93			 93	    
	143 /ae			%		123
	144 /oslash		%		124
	145 /aring 		%		125			125
	146 /Adieresis		%				 91	 91
	147 /Odieresis		%				 92	  92
	148 /Udieresis		%				 93
	149 /adieresis		%				123	123
	150 /odieresis		%				124	124
	151 /udieresis		%				125
	152 /germandbls		%				126
	153 /agrave		%						 64
	154 /ugrave		%						124
	155 /dieresis		%						126
	156 /exclamdown 	%							 91
	157 /Ntilde 		%							 92
	158 /questiondown	%							 93
	159 /ntilde  		%							124
  ] def

/makefonts   % make all variations of international fonts, MouseText, Graphics
{
	/Courier-Bold-E /My-Courier-Bold 	CourierVectors  ReEncodeSmall
	/Courier-E /My-Courier CourierVectors  ReEncodeSmall  
	/Times-Roman /My-Times-Roman     TimesVectors  ReEncodeSmall
	/Times-Bold /My-Times-Bold 	TimesVectors  ReEncodeSmall

	/MouseText MouseFont definefont pop
	/theGrafFont GrafFont definefont pop
} bdf    

/BoldFont 
 {/My-Courier-Bold findfont } bdf

/RomanFont   
 { /My-Courier findfont } bdf 

/PropRoman   
 { /My-Times-Roman findfont } bdf 

/PropBold
 { /My-Times-Bold findfont } bdf

% --------------------------------
% Our own save proc which save the current state, then pulls the values off the stack
% and sets the appropriate variables; settings are saved across page boundaries
% (across a save and restore pair).
/xst {exch store}bdf
/oursave  		
 {/ourstate save def
  /CRonly? xst
  /autoLF? xst
  /fonttype xst
  /subflag xst
  /newcountry? xst
  /charct xst
  /debug? xst
  /hidig xst
  /lowdig xst
  /bitmask xst      
  /slash0? xst
  /LM xst
  /dotspace xst
  /CR+LF? xst
  /open? xst
  /double? xst
  /prop? xst
  /graf? xst
  /lf? xst
  tabs astore pop
  /TopOfPage xst
  /LnHt xst
  /dpi xst
  /bold? xst 
  /plain? xst  
  /underline? xst
} bdf

% Our own restore proc which put the variable values on the stack, then restores to the 
% previous state

/ourrestore  						
 {
  underline? 
  plain?
  bold?
  dpi
  LnHt
  TopOfPage
  tabs aload pop
  lf?
  graf?
  prop?
  double?
  open?
  CR+LF?
  dotspace
  LM
  slash0?
  bitmask
  lowdig
  hidig
  debug?
  charct
  newcountry?
  subflag 
  fonttype
  autoLF?
  CRonly?
  ourstate restore
} bdf

/printfile   %main job loop
 { initjob
  CmdDict  begin
   initpage
    {  currentfile read  % read one byte at a time
              % be sure not to send ^c,^d,^t,^s,^q
      { /NewPage? false store
        graf? not debug? not and {bitmask and} if  % if not EOF, strip hi-bit
       printchar}    %    & handle char
  % if we got here then we're done. 
      { NewPage? not  CleanPage? not and 
                    % Do we need to flush the current page? 
					% not if nothing is on the page.
         {showpage ourstate restore} if   % 9/23/88 Suki Lee  Added restore to recover VM
        exit}
     ifelse
    } loop              % repeat until EOF causes exit
    popCmdStack
   end  %CmdDict
 } bdf
 
/tabs 33 array def             	% allocate 33-element array
/tabindex 0 def                	% point the index to the first element
/current_tab 0 def          	% zero the current_tab pointer

/reset_tabs                          % re-initialize the tab-setting array
   {  0 1 32 {tabs exch 999 put} for % put 999 in each array element
      /tabindex 0 store                % point the index to the first element
      /current_tab 0 store           % zero the current_tab pointer
   } bdf

/InitVariables  % default printer
 { /underline? false def  % plain print
   /plain? true def  
  /bold? false def  
  /dpi 96 def         % 12 chars per inch (elite) 
  /LnHt charsize store		% LnHt is determined by product
  /TopOfPage {ImageLen} store	% TopOfPage is determined by product
  /linect 8 def
  reset_tabs            % no tabs set
  /lf? true def % linefeed direction switch T/F = forward/reverse
  /graf? false def
  /prop? false def
  /double? false def
  /open? false def
  /CR+LF? false def
  /dotspace 0 def
  /LM 18 store			% 1/4 in => .25 inch * 72 pts/inch = 18 pts
  /slash0? false def
  /bitmask 127 def      
  /LastString ( ) def
  /hexstring (0123456789ABCDEF) def
  /lowdig 0 def
  /hidig 0 def
  /debug? false def
  /str ( ) def
  /charct 1 def
  /NewPage? false def
  /CleanPage? false def
  /newcountry? false def
  /subflag false def
  /fonttype 0 def
  /autoLF? false def
  /CRonly? false def
} bdf

/ResetPrinter  % default printer
 { /underline? false store  % plain print
   /plain? true store  
  /bold? false store  
  /dpi 96 store         % 12 chars per inch (elite)
  /LnHt charsize store		% LnHt is determined by product
  /TopOfPage {ImageLen} store	% TopOfPage is determined by product
  reset_tabs            % no tabs set
  /lf? true store % linefeed direction switch T/F = forward/reverse
  /graf? false store
  /prop? false store
  /double? false store
  /open? false store
  /CR+LF? false store
  /dotspace 0 store
  /LM 18 store			% 1/4 in => .25 inch * 72 pts/inch = 18 pts
  /slash0? false store
  /bitmask 127 store      
  /lowdig 0 store
  /hidig 0 store
  /debug? false store
  /charct 1 store
  /NewPage? false store
  /CleanPage? false store
  /newcountry? false store
  /subflag false store
  /fonttype 0 store
  /autoLF? false store
  /CRonly? false store
} bdf

/strip {bitmask and}bdf

/getchar {currentfile read pop strip}bdf

/initjob
  { InitVariables
    /CmdDictBase countdictstack 1 add def
  } bdf
 
/initpage
 { /ourstate save def		% 5/17/89 Suki Lee  Added for use with our version of save/restore
   doFont					% 5/21/89 Suki Lee  Font Management should be done for the page
   LM TopOfPage moveto		% 9/23/88 Suki Lee  Added save to recover VM
 } bdf

% Caution => this program stacks dictionaries.  Use "store" rather than 
% "def" to assign new values to old variables.

/printchar  % ( n -- ) this routine actually does the emulation
 {
   debug? 
   		{dup hexout}
   		{dup cmd? graf? not and
   			{doCmd } { /CleanPage? false store emit} ifelse
		} ifelse
 } bdf
 
/hexout {
 dup 15 and hexstring exch get  %convert low nble to int (asc of hex)
/lowdig exch store              %save result of conversion
 240 and 16 idiv hexstring exch get %Convert High Nibble to Int(asc of hex)
/hidig exch store               %Save result of conversion.
str 0 hidig put str show        %convert Int(asc) to string and show it
str 0 lowdig put str show       %again for low Nibble
 ( ) show                       %Show a space
/charct charct 1 add store
charct 25 eq { /charct 1 store CR CR+LF? not {LF} if }if
        } bdf

/cmd?   % ( n -- b ) looks for command only in topmost dictionary
 { currentdict exch known} bdf
 
/doCmd  % as per the topmost dictionary, since doCmd is only invoked
     % if cmd? finds the command in the topmost dict.
     % default top dict: CmdDict
 {load exec } bdf

/swapUSA  % n -- n
{	mark								% n mark
	1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 
	21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 
	38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 
	55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 
	72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88
	89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 
	105 106 107 108 109 110 111 112 113 114 115 116 117 
	118 119 120 121 122 123 124 125 126 127				% n mark 1..127
	129 -1 roll 127 exch sub
	index									
	129 1 roll cleartomark
}bdf

/swapItaly
{
	mark
	1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 
	21 22 23 24 25 26 27 28 29 30 31 32 33 34 129 36 37 
	38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 
	55 56 57 58 59 60 61 62 63 130 65 66 67 68 69 70 71 
	72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88
	89 90 132 133 134 94 95 135 97 98 99 100 101 102 103 104 
	105 106 107 108 109 110 111 112 113 114 115 116 117 
	118 119 120 121 122 136 137 138 139 127
	129 -1 roll 127 exch sub
	index									
	129 1 roll cleartomark
}bdf

/swapDenmark
{
	mark
	1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 
	21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 
	38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 
	55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 
	72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88
	89 90 140 141 142 94 95 96 97 98 99 100 101 102 103 104 
	105 106 107 108 109 110 111 112 113 114 115 116 117 
	118 119 120 121 122 143 144 145 126 127
	129 -1 roll 127 exch sub
	index									
	129 1 roll cleartomark
}bdf

/swapEngland
{
	mark
	1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 
	21 22 23 24 25 26 27 28 29 30 31 32 33 34 129 36 37 
	38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 
	55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 
	72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88
	89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 
	105 106 107 108 109 110 111 112 113 114 115 116 117 
	118 119 120 121 122 123 124 125 126 127
	129 -1 roll 127 exch sub
	index									
	129 1 roll cleartomark
}bdf


/swapGermany
{
	mark
	1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 
	21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 
	38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 
	55 56 57 58 59 60 61 62 63 130 65 66 67 68 69 70 71 
	72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88
	89 90 146 147 148 94 95 96 97 98 99 100 101 102 103 104 
	105 106 107 108 109 110 111 112 113 114 115 116 117 
	118 119 120 121 122 149 150 151 152 127
	129 -1 roll 127 exch sub
	index									
	129 1 roll cleartomark
}bdf


/swapSweden
{
	mark
	1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 
	21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 
	38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 
	55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 
	72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88
	89 90 146 147 142 94 95 96 97 98 99 100 101 102 103 104 
	105 106 107 108 109 110 111 112 113 114 115 116 117 
	118 119 120 121 122 149 150 145 126 127
	129 -1 roll 127 exch sub
	index									
	129 1 roll cleartomark
}bdf


/swapFrance
{
	mark
	1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 
	21 22 23 24 25 26 27 28 29 30 31 32 33 34 129 36 37 
	38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 
	55 56 57 58 59 60 61 62 63 153 65 66 67 68 69 70 71 
	72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88
	89 90 132 133 130 94 95 96 97 98 99 100 101 102 103 104 
	105 106 107 108 109 110 111 112 113 114 115 116 117 
	118 119 120 121 122 134 154 138 155 127
	129 -1 roll 127 exch sub
	index									
	129 1 roll cleartomark
}bdf


/swapSpain
{
	mark
	1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 
	21 22 23 24 25 26 27 28 29 30 31 32 33 34 129 36 37 
	38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 
	55 56 57 58 59 60 61 62 63 130 65 66 67 68 69 70 71 
	72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88
	89 90 156 157 158 94 95 96 97 98 99 100 101 102 103 104 
	105 106 107 108 109 110 111 112 113 114 115 116 117 
	118 119 120 121 122 132 159 133 126 127
	129 -1 roll 127 exch sub
	index									
	129 1 roll cleartomark
}bdf


/swapchar	% replace chars where needed 
{
	mark 					% n m			
	/swapSpain /swapFrance 			% n m c7 c6
	/swapSweden /swapGermany 		% n m c7 c6 c5 c4
	/swapEngland /swapDenmark 		% n m c7 c6 c5 c4 c3 c2
	/swapItaly /swapUSA			% n m c7 c6 c5 c4 c3 c2 c1 c0
	country	index				% n m c7 c6 c5 c4 c3 c2 c1 c0 cn
	counttomark				% n m c7 c6 c5 c4 c3 c2 c1 c0 cn num
	1 add 1 roll				% n cn m c7 c6 c5 c4 c3 c2 c1 c0
	cleartomark				% n cn
	cvx exec					% n
} bdf

/RMtest			%Stack: c		(Char on Stack)
{ dup			%Stack: c c		(Make working char)
str xdf		%		str := c	(Make char into str)
str stringwidth pop	%Stack: c w		(find pixel width)
currentpoint pop		%Stack: c w x		(get current X coord, Y discarded)
add			%Stack: c X		(calc new X coord)
RM gt {CR} if		%Stack: c		(if New X > RM then CR)
} bdf

/emit   % ( n -- ) convert ascii code to printable char, and show it.
 {	graf? not { swapchar } if % swap standard ascii for "local ascii"
 	( ) dup 0 4 -1 roll put dup  RMtest show %RM Test
   	prop?
    	{ currentpoint exch dotspace add exch moveto} if
  	underline?
   		{dup doUnderline} if 
   	dup (0) eq {prop? not {slash0? {dup doslsh0} if } if} if
  	/LastString exch store
}bdf

/doslsh0 % ( c -- ) char on stack is a zero now slash it.
 {           % stack shown AFTER operations
  stringwidth pop %  ( -- w )   get width of 0 in current font
  currentpoint      %  ( --  w x y ) get current cursor
  3 1 roll exch sub   %  ( -- y x )   back to the start of the 0
  exch         %  ( -- x y )   fix stack for moveto
   moveto (/) show % move and show a slash on top of the 0
 } bdf

/printable? % ( c -- c b ) is char in range (32..127)
	{ dup 0 get
	  32 ge	
	} bdf
/doUnderline % ( c -- ) last-printed char is on stack. Now underline it.
 {           % stack shown AFTER operations
 	printable? 
  		{stringwidth pop dup %  ( -- w w )   get width of char in current font
  		 currentpoint      %  ( -- w w x y ) get current cursor
  		 3 sub        %  ( -- w w x y ) y-position for underline
  		 3 1 roll exch sub   %  ( -- w y x )   line below character
  		 exch         %  ( -- w x y )   set up for moveto
  		 gsave 0 setlinewidth % save graphic state & set pen width
  		 newpath moveto    %  ( -- w )     start the path
  		 0 rlineto stroke % ( x y ) stroke the line
  		grestore       % restore old graphic state puts us back where we were.
		}
		{pop} ifelse
 } bdf
 
/CmdError  % to handle errors during multi-character command sequences,
      % "emit" is redefined, thanks to dictionary stacking and 
      % late-binding.  See /EscDict below
 { popCmdStack  emit } bdf

/popCmdStack % clean up dict stack after completion of, or inturruption of,
       % multi-character command sequences.
       % CmdDictBase was defined in initjob.
       % CmdDict is never popped off the dict stack.
 {  countdictstack CmdDictBase sub {end} repeat} bdf
  
 
% routines to assist page handling --------------------------------------

/NUL {} bdf

/CR  % cr only (no linefeed)
 {  /current_tab 0 store 
    LM currentpoint exch pop moveto 
   CR+LF? {LF} if }bdf

/LF  % linefeed without cr -- ff if needed
   % linect was def'ed in initjob
   { CRonly? not
 		{ linect MaxLineCt LnHt sub ge 
  			{FF}
  			{ autoLF?
  				{	/current_tab 0 store 
   					LM currentpoint exch pop moveto 
				} if
   			/linect linect LnHt lf? { add } { sub } ifelse  store
   			currentpoint LnHt  lf? { sub } { add } ifelse moveto
  		}
  		ifelse
	}if
 } bdf
 
/FF  % showpage and formfeed
{ CRonly? not
 	{  showpage
		ourrestore				% 9/23/88 Suki Lee  Added restore to recover VM
    	oursave					% 5/17/89 Suki Lee  Modified to use our own version of
		doFont					% save and restore which saves needed variables on the
		LM TopOfPage moveto		% stack
  		/linect 8 store 		
    	/current_tab 0 store 
    	/NewPage? true store
    	/CleanPage? true store
	} if
 } bdf

/BS  %do a backspace. Like real imagewriter , only works one char back.
{
 LastString       % last string we printed
  stringwidth pop %  ( -- w )   get it't width in current font
  currentpoint      %  ( --  w x y ) get current cursor
  3 1 roll exch sub   %  ( -- y x )   back to the start of the last char
  exch         %  ( -- x y )   fix stack for moveto
  moveto
} bdf



%=========================================================================
/LM	18 def			% 1/4 in => .25 inch * 72 pts/inch = 18 pts
/RM	594 def			% 8 1/4 in => 8.25 inch * 72 pts/inch = 594 pts
/LnHt	charsize   def		% LnHt is determined by product
/TopOfPage  {ImageLen} def	% TopOfPage is determined by product
/MaxLineCt  TopOfPage    def


/HT 
{ 	HTDict begin
     	tabs current_tab get				% -- t get char tab position rel to left mar.
    	dup 999 lt            					% -- t b      if t < 999 then valid tab
    		{	1 sub				% -- t  adjusted
      			(n) stringwidth pop mul		% -- p  converted to points
     			LM add currentpoint		% -- ap x y  ap = absloute points
     			exch pop moveto
     			/current_tab current_tab 1 add store
			}
    		{	pop	}
    		ifelse
     end
  } bdf

%-------------------------------------------------------------------------
/CmdDict  30 dict  def % May need to be enlarged if you add a lot to it.
   CmdDict begin    % Store the defs in CmdDict, rather than clutter
            % IWEmDict with all this stuff.
 0 {graf? {0 emit}  {NUL} ifelse} bdf
 8 {graf? {8 emit}  {BS} ifelse} bdf
 9 {graf? {9 emit}  {HT} ifelse} bdf
10 {graf? {10 emit} {LF} ifelse} bdf
12 {graf? {12 emit} {FF} ifelse} bdf
13 {graf? {13 emit} {CR} ifelse} bdf
27 {graf? {27 emit} {ESC} ifelse} bdf

14 { graf?
   		{ 14 emit}
   		{/double? true store changeFontWidth}
   			ifelse
   } bdf
  
15 { graf?
   		{ 15 emit}
   		{ /double? false store changeFontWidth}
    		ifelse
   } bdf

/changeFontWidth
{fonttype 0 eq
	{doFont}
	{fonttype 1 eq
		{doMouseText}
		{gf} ifelse
	}ifelse
 } bdf
   
/printfile   %main job loop

/Elite 
  { /prop? true store /dpi 160  store doFont} bdf
/Pica
  { /prop? true store /dpi 144  store doFont} bdf


/doFont     %   scale selected font to appropriate "dpi" and make current

 {   /fonttype 0 store
 	 dpi     % ( -- n )
     prop?
     	{ 160 eq { 10 } { 12 } ifelse
       	   	bold?
      			{PropBold} {PropRoman} ifelse
     	}
    	{ 8 div 72 exch div 1.65 mul
        	bold?
        		{BoldFont} {RomanFont} ifelse
    	} 
	ifelse
    
	exch % ( -- font n ) get current font dict on stack
	double? { 2 mul }if
	0 0 charsize 0 0     %  load stack with matrix elements, height is determined by product
	matrix astore  % ( -- font n elems matrix ) make font-transform matrix 
	makefont setfont 
} bdf

/string4 4 string def

/get4 % reads next 4 chars from input stream and
   % leaves them in string on stack
  { string4            % -- s  create 4 char string on stack
    dup 0 getchar put    % -- s put 1st char in str
    dup 1 getchar put    % -- s put 2nd char in str
    dup 2 getchar put    % -- s put 3rd char in str
    dup 3 getchar put    % -- s put 4th char in str
  } bdf

/inverse {255 exch sub } bdf

/string3 3 string def

/get3 % reads next 3 chars from input stream and
  { string3            
    dup 0 getchar put    % -- s put 1st char in str
    dup 1 getchar put    % -- s put 2nd char in str
    dup 2 getchar put    % -- s put 3rd char in str
  } bdf
  

/HTDict 20 dict def 

HTDict begin


 
/add_a_tab   % put into next sequential position in tabs array
   { tabs tabindex  	% str -- int array index
     3 -1 roll          % int array index -- array index int 
     put                % array index int -- 
     /tabindex tabindex 1 add store % make index point to next array slot
   } bdf

/get_tabs
{
   { get3 cvi add_a_tab 			% take the first three chars as a tab
     getchar 				% the next char is either a , or a .
	 46 eq	
	 	{exit} if			% if it's a . then exit
	}loop
} bdf 

/swap?	% (n1 n2 -- n1 n2 b)     if n1 > n2 then swap and put true on stack
	%                                   else put false on stack
  { 2 copy gt
      { exch true }
      { false }
    ifelse
  } bdf

/if_sort?  % (array index -- bool) compares array[index] and array[index+1] 
           % and leave bool on stack:
           %   if array[index] < array[index+1] then swap & leave true
           %                                 otherwise leave false
   { 
     2 copy 2 copy  % a i -- a i a i a i
     1 add          % -- a i a i a i+1
     get            % -- a i a i n2
     3 1 roll       % -- a i n2 a i
     get exch       % -- a i n1 n2
     swap?          % -- a i n1 n2 b
     { 4 1 roll     % -- n2 a i n1
       3 1 roll     % -- n2 n1 a i
       2 copy       % -- n2 n1 a i a i
       5 -1 roll    % -- n2 a i a i n1
       put 1 add    % -- n2 a i+1
       3 -1 roll    % -- a i+1 n2
       put true }   % -- true
     { pop pop pop pop false } % a i n1 n2 -- false
     ifelse
   } bdf

/sort_once % sort array once; leave true if a swap was done, else false
   { false                            % -- false
        0 1 31 { tabs exch if_sort?   % false -- false bool
               { pop true exit } if
               } for
    } bdf

/sort_tabs   % keep doing sort_once until flag is false
             % tabs array will end up like:
       % [n1,n2,n3,...,999,999,999] where n1<=n2<=n3<999
       % current_tab will be set to first elem = 999, ie next
       % 'empty' tab slot
  {sort_once { sort_tabs} if % do until return flag is false
  /current_tab 0 store      % start with tab[0]
  { tabs current_tab get 999 eq % n = 999?
   { exit } {/current_tab current_tab 1 add store } ifelse} loop
  } bdf
       
/set_up_tabs    
  { 
  	reset_tabs  %  define tabs array and set each element to 999
                %  set array indexes to 0
	get_tabs 
	sort_tabs  	% make sure tabs are in ascending sequence
	/current_tab 0 store	% and make the first tab is the current one
  } bdf
    

/remove_a_tab  % nnn --   the tab to remove
   { 0							% nnn index   start by looking at tabs[0]
   	 	{ dup tabs exch get			% nnn index element
	      2 index 					% nnn index element nnn
		  eq					% nnn index b
		  	{ tabs exch	999		% tabs index 999
			  put exit
			}
			{ 1 add }			% nnn index+1
			ifelse
		}loop
   } bdf 

/remove_tabs    % convert following string into integers and remove
                % remove tabs from tab array
        		% then sort remaining tabs in ascending order
{
   { get3 cvi remove_a_tab 			% take the first three chars as a tab
     getchar 				% the next char is either a , or a .
	 46 eq	
	 	{exit} if			% if it's a . then exit
	}loop
    sort_tabs				% after array has changed, sort it
	/current_tab 0 store		% and make the first tab is the current one
} bdf 

end % HTDict



/EscDict 100 dict def  % may need to be enlarged

/ESC          % handle multi-character "escape" sequences
 { EscDict begin } bdf
 
EscDict begin   %-------------------------------------

/subscript
	{	currentpoint LnHt 6 div sub moveto
		/subflag true store
	}bdf

/superscript
	{	currentpoint LnHt 6 div add moveto
		/subflag false store
	}bdf

/de-sub
	{	currentpoint LnHt 6 div 
		subflag {add} {sub} ifelse
		moveto
	} bdf
/emit { CmdError }  bdf
/hDot % next 4 chars are dot position to move to
    { get4 cvi                            % i | convert to integer
    dpi div 72 mul                        % convert to user-space units
   LM add
   currentpoint exch pop
   moveto
  } bdf

/ignore  % ( n -- | drop next n chars from input stream)
    { {currentfile read {pop} if} repeat popCmdStack} bdf

/aStr 1 string def                 % make a str 1 char long 

/replicate % ( nnn c -- ) repeat next char nnn times
   {  get3 cvi  					% times to repeat
	  getchar dup 				% t c c
	  32 ge 					% t c b
	  	{	aStr 0 			% t c s 0	if it is a character,
			3 -1 roll			% t s 0 c	print it 
			put 			%	the requested number of times
			{aStr show} repeat			
		}				%	otherwise,
		{ dup cmd? 			% t c b is it a command?
			{{doCmd} repeat}	%if so, execute it t times
			{pop pop}		%otherwise, it's not printable
				ifelse
		}ifelse
} bdf

/doMouseText
 {  /fonttype 1 store
 	 dpi     % ( -- n )
     prop?
     { 160 eq { 12 } { 10 } ifelse }
    { 8 div 72 exch div} ifelse
     /MouseText findfont 
     exch % ( -- font n ) get current font dict on stack
	 double? {2 mul} if
     0 0 8 0 0     %  load stack with matrix elements
     matrix astore  % ( -- font n elems matrix ) make font-transform matrix 
     makefont setfont } bdf

/gf  % print graphic bytes
 {  /fonttype 2 store
     dpi     
     8 div 72 exch div			% 5/20/89 Suki Lee  Removed check for prop? since that
    .828125 mul					% flag does not effect graphics, only the dpi matters here
     /theGrafFont findfont 
     exch % ( -- font n ) get current font dict on stack
	 double? {2 mul} if
     0 0 8 0 0		%  load stack with matrix elements
     matrix astore		% ( -- font n elems matrix #) make font-transform matrix 
     makefont setfont 
	 } bdf
  
/gprint   						% 5/20/89 Suki Lee removed gsave and grestore
 { /graf? true store
  gf
  { currentfile read pop printchar
      1 sub dup 0 eq
    {pop exit} if
  } loop
  /graf? false store doFont } bdf

/g4 { get4 cvi gprint} bdf

/g3*8 { get3 cvi 8 mul gprint} bdf

/repeatGraphic
  { /graf? true store
    get4 cvi % -- # times to print char
	gsave
   gf
    aStr 0 currentfile read pop put
   { aStr show} repeat
   grestore
  /graf? false store doFont } bdf 

/dps { pop  } bdf % proportional dot spacing

/string2 2 string def

/get2 % reads next 2 chars from input stream and
   % leaves them in string on stack
  { string2            % -- s  create 2 char string on stack
    dup 0 getchar put    % -- s put 1st char in str
    dup 1 getchar put    % -- s put 2nd char in str
  } bdf
/aChar 1 string def
/FixCR+LF  % LF after CR ??
 { aChar
    dup 0 getchar put    % -- s put 1st char in str
  cvi 
  1 eq {/CR+LF? true store} {/CR+LF? false store} ifelse 
 } bdf
  
/SetMargin 
 { get3 cvi
   dpi 
   prop? 
   	{ 160 eq 
		{80} {72} ifelse	% proportional "look-alikes"
	}if
	8 div
	72 exch div
    mul
   18 add					% 1/4 in => .25 inch * 72 pts/inch = 18 pts
  /LM exch store} bdf

	
/ChangeSwitch
 {currentfile read pop  %Switch number 1
dup
   128 and 128 eq
     {open?
        {/CR+LF? false store}           %SW 1-8 yes or no linefeed + cr
        {/CR+LF? true store}
        ifelse
     } if
dup 
   64 and 64 eq							
	{ open?
		{/CRonly? true store}			%SW 1-7 CR only or CR,LF,VT,FF
		{/CRonly? false store}
		ifelse
	} if
dup
   32 and 32 eq
    {open?
       {/bitmask 255 store}             %SW 1-6 yes or no ignore bit 8
       {/bitmask 127 store}
       ifelse
    } if

dup
   4 and 4 eq
    {open?
        {/country country 3 and store}         %SW 1-3 Language selector
        {/country country 4 or store} 
     ifelse
     /newcountry? true store
    } if       
dup
   2 and 2 eq
    {open?
        {/country country 5 and store}         %SW 1-2 Language selector
        {/country country 2 or store} 
     ifelse
     /newcountry? true store
    } if       

   1 and 1 eq
    {open?
        {/country country 6 and store}         %SW 1-1 Language selector
        {/country country 1 or store} 
     ifelse
     /newcountry? true store
    } if       

  currentfile read pop		%switch number 2


   1 and 1 eq
    {open?
       {/slash0? false store}
       {/slash0? true store}		%SW 2-1 Slash 0's yes or no.
       ifelse
    } if

 newcountry?
 	{   doFont 
		/newcountry? false store 
	} if
 } bdf

/changeLnHt
  { get2 cvi 2 div /LnHt exch store } bdf
 
/makedotspace 
 { aChar
    dup 0 getchar put    % -- s put 1st char in str
  cvi
   dpi 72 exch div mul
  /dotspace exch store } bdf

/movedot
  {dpi 72 exch div mul 0 rmoveto} bdf
  
% ESC !    1B 21    Start Bold Print
 33 { /bold? true store doFont popCmdStack } bdf
% ESC "    1B 22    End Bold Print
 34 { /bold? false store doFont popCmdStack } bdf
% ESC $    1B 24    Select 96 ASCII Characters
  36  {doFont  popCmdStack} bdf
% ESC &    1B 26    Select MouseText Characters
  38  {doMouseText popCmdStack } bdf
% ESC '    1B 27    Select Down-loaded Characters
 39 { 0 ignore } bdf
% ESC (    1B 28    Set Horizontal Tab
  40  { HTDict begin set_up_tabs end popCmdStack} bdf
% ESC )    1B 29    Clear Horizontal Tab
  41  { HTDict begin remove_tabs  end popCmdStack } bdf
% ESC *    1B 2A    Select Down-loaded Characters
 42 { 0 ignore } bdf
% ESC +    1B 2B    Down load 16-dot-wide characters
 43 { 0 ignore } bdf
% ESC -    1B 2D    Down load 8-dot-wide characters
 45 { 0 ignore } bdf
% ESC 0    1B 30    Clear All Horizontal Tabs
 48 { HTDict begin reset_tabs end popCmdStack} bdf
% ESC 1    1B 31    1-dot proportional spacing
 49 { 1 movedot popCmdStack } bdf
% ESC 2    1B 32    2-dot proportional spacing
 50 { 2 movedot popCmdStack } bdf
% ESC 3    1B 33    3-dot proportional spacing
 51 { 3 movedot popCmdStack } bdf
% ESC 4    1B 34    4-dot proportional spacing
 52 { 4 movedot popCmdStack } bdf
% ESC 5    1B 35    5-dot proportional spacing
 53 { 5 movedot popCmdStack } bdf
% ESC 6    1B 36    6-dot proportional spacing
 54 { 6 movedot popCmdStack } bdf
% ESC <    1B 3C    Bi-directional Printing
 60  { 0 ignore} bdf
% ESC >    1B 3E    Uni-directional Printing
  62  { 0 ignore} bdf
% ESC ?    1B 3F    Self ID
  63  { 0 ignore} bdf
% ESC A    1B 41    Set 1/6" line spacing
  65  { /LnHt charsize store popCmdStack} bdf	% LnHt is determined by product
% ESC B    1B 42    Set 1/8" line spacing
  66  { /LnHt 9 store popCmdStack} bdf
% ESC D dd   1B 44 dd   Reset switches to closed
  68  {/open? false store ChangeSwitch popCmdStack} bdf 
% ESC E    1B 45    Select 12 cpi text, 96 dpi graphics
  69  { /dpi 96 store /prop? false store doFont  popCmdStack} bdf
% ESC F nnnn  1B 46 dddd Begin printing at dot-position nnnn
  70  { hDot popCmdStack} bdf
% ESC G nnnn  1B 47 dddd Next nnnn bytes to be printed as bit-image graphics
 71 { g4 popCmdStack } bdf
% ESC H nnnn  1B 48 nnnn Set forms length in 1/144" increments
  72  {4 ignore} bdf
% ESC I    1B 49    Begin character download sequence
  73  {0 ignore} bdf
% ESC K n   1B 4B n   Select color n
  75 { 1 ignore} bdf  
% ESC L nnn  1B 4C nnn  Set left margin nnn
  76 { SetMargin popCmdStack} bdf
% ESC M    1B 4D    Select NLQ font
 77 { 0 ignore } bdf
% ESC N    1B 4E    Select 10 cpi text, 80 dpi graphics
 78 { /dpi 80 store /prop? false store doFont popCmdStack } bdf
% ESC O    1B 4F    Overide paper-out sensor
 79 { 0 ignore } bdf
% ESC P    1B 50    Select elite proportional text, 160 dpi graphics
 80  { Elite popCmdStack} bdf
% ESC Q    1B 51    Select 17 cpi text, 136 dpi graphics
 81 { /dpi 136 store /prop? false store doFont popCmdStack } bdf
% ESC R nnn  1B 52 nnn  Repeat next character nnn times
  82  { replicate popCmdStack } bdf
% ESC S nnnn  1B 53 nnnn Next nnnn bytes to be printed as bit-image graphics
  83   {g4 popCmdStack} bdf
% ESC T nn   1B 54 nn  Set nn/144" line spacing
 84 { changeLnHt popCmdStack} bdf
% ESC V nnnn  1B 56 nnnn Repeat following 1 byte dot pattern nnnn times
 86 {repeatGraphic popCmdStack} bdf
% ESC W    1B 57    Select full-height characters
 87 { 0 ignore } bdf
% ESC X    1B 58    Start underline
 88 { /underline? true store  popCmdStack} bdf
% ESC Y    1B 59    Stop underline
  89 { /underline? false store popCmdStack} bdf
% ESC Z dd   1B 5A dd  Reset switches to OPEN
 90 {/open? true store ChangeSwitch popCmdStack} bdf
% ESC a n    1B 61 n   Select font n
 97 { 1 ignore } bdf
% ESC c    1B 63    Software RESET
 99 { ResetPrinter popCmdStack} bdf
% ESC e    1B 65    Select 13.4 cpi text, 107.2 dpi graphics
  101 { /dpi 107.2 store /prop? false store doFont  popCmdStack} bdf
% ESC f    1B 66    Select forward linefeed
 102 { /lf? true store popCmdStack} bdf
% ESC g nnn  1B 67 nnn  Next (nnn * 8) bytes to be printed as bit-image graphics
 103 { g3*8 popCmdStack} bdf
% ESC l n   1B 6C n   Disable (n=0) / Enable (n=1) optional linefeed
 108 { /autoLF? getchar 48 sub 0 eq store popCmdStack} bdf
% ESC m     1B 6D    Select Standard font
 109 { 0 ignore } bdf 
% ESC n    1B 6E    Select 9 cpi text, 72 dpi graphics
  110 { /dpi 72 store /prop? false store doFont popCmdStack } bdf
% ESC o    1B 6F    Enable paper-out sensor
 111 { 0 ignore } bdf 
% ESC p    1B 70    Select pica proportional text, 144 dpi graphics
 112 { Pica popCmdStack} bdf
% ESC q    1B 71    Select 15 cpi text, 120 dpi graphics
  113 { /dpi 120 store /prop? false store doFont popCmdStack } bdf
% ESC r    1B 72    Select reverse linefeed
 114 { /lf? false store popCmdStack} bdf
% ESC s    1B 73 n   set proportional spacing to n
  115 { makedotspace popCmdStack } bdf
% ESC u    1B 75    Set additional tabs
  117 { HTDict begin get3 add_a_tab sort_tabs popCmdStack } bdf
% ESC v    1B 76    Set Top-of-Form
 118 { 0 ignore } bdf
% ESC w    1B 77    Select half-height characters
 119 { 0 ignore } bdf
% ESC x    1B 78    Select superscript characters
 120 { superscript popCmdStack } bdf
% ESC y    1B 79    Select subscript characters
 121 { subscript popCmdStack } bdf
% ESC z    1B 7A    De-select super/sub characters
 122 { de-sub popCmdStack} bdf


    end  % EscDict --------------------------------
    
end  % CmdDict
end  % IWEmDict     % end of program "IWEM"

%%EndProcSet 
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/IWEm/makefile b/IIGS.601.SRC/GSToolbox/PrinterDrivers/IWEm/makefile
new file mode 100644
index 0000000..c563991
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/IWEm/makefile
@@ -0,0 +1 @@
+### Dependancies for Print Manager

IWEm					Ä		IWEm.src   
	BuildIWEm
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/LQ/README b/IIGS.601.SRC/GSToolbox/PrinterDrivers/LQ/README
new file mode 100644
index 0000000..34b4b12
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/LQ/README
@@ -0,0 +1 @@
+
APPLE IIGS IMAGEWRITER LQ PRINTER DRIVER 4.2 	--		TECHNICAL DESCRIPTION (ERS)



High-level driver and low level speed optimizations written by Ben Koning

Low-level imager originally written by Jason Harper



June 1991



GENERAL

The ImageWriter LQ printer driver, initial version 4.0, is a genuine
Apple IIGS printer driver which takes full advantage of the resolution
inherent in the 'LQ.  It should be installed with the following pathname
and type:

*/SYSTEM/DRIVERS/IMAGEWRITER.LQ		type=$BB	auxtype=$0001

This driver contains the new type of entry point (starting with the zero
byte), and uses pop-up menus and the improved Control Manager tool set.
Therefore, it will only operate on System Disk 5.0 or later.

A new call, PrGetPrinterSpecs, is supported, which checks to see if the
device connected is really an ImageWriter LQ and returns information regarding
the existence of a color or black/white ribbon.



DIALOGS AND USER COMMUNICATION

Existence or nonexistence of the Cut Sheet Feeder and Color Ribbon options
is manifested by enabled or disabled (dimmed) items in the Job Dialog, even
if printer over a direct-connect port driver; the printer is actually polled
to check for these items.  WARNING: A new version of the various port drivers,
which offer nonblocking I/O to direct-connect devices, should be available.
Otherwise, if no printer is on-line, selecting the Job Dialog will cause the
system to hang.  If a port driver which does support nonblocking I/O (such as
AppleTalk) and the printer isn't on line, the Job Dialog call issues an alert
and returns the portNotOn tool error code.

Pop-up menus and the new control manager calls are used; better progress
indicators showing the number of sheets left to print, printer port error
messages with priority, etc., have been implemented.  All text is located
within one source code file for easy localization.

If the Shift-Option-Apple keys are down while the PrStlDialog or PrJobDialog
is being called, an about box will appear.

If bit 15 of wDev is set in the print record (by an application), then the
status message box usually displayed during the printing process is not shown.
The cursor is still changed to WaitCursor/InitCursor, however, and the manual
feed dialog box is still shown if required.



NEW DRAFT (TEXT) PRINTING FEATURES

For draft printing, a mini-spooling method (see below for the actual spooling
methodology) has been implemented which allows multiple-copy draft-mode printing
to work (most applications do not print more than one copy when requested in
draft mode when the ImageWriter II driver is selected).  Applications which
repeat the printing loop in order to print the extra copies should set the
oiCopies field of the print record to 1 before executing the printing loop(s).
In addition, this methodology allows top-to-bottom printing, so that reverse
paper feed (which isn't possible because of the way the Cut Sheet Feeder works)
is not necessary.

In draft printing, font attributes such as boldface, underline, italic, point
size, and font name, as well as special international characters, are all
considered dynamically while selecting an appropriate native 'LQ ASCII
characters.  The code is optimized so that characters are sent to the printer
in blocks.  These blocks are flushed when an international character is printed
or when the end of a QuickDraw string is reached.  Thus, printing many small
strings or many consecutive international characters will result in lower
speed performance.



"SPOOL" (GRAPHICS) PRINTING FEATURES

Standard-resolution graphics printing and 3X Letter-Quality graphics printing
are offered, with 50% vertical condense and 100/66/33-% life size scaling
options, in portrait or landscape orientations.  Unidirectional head scan
and boldface are also supported.

In the 3X high-quality ("Better") graphics mode, the off-screen graphics are
drawn at 300% life size, resulting in improved resolution for mathematically
defined QuickDraw objects such as ovals, rects, roundrects, etc., as well as
fonts, provided large font sizes are installed in the current system.  The 'LQ
then prints them using 3 times the number of printer pixels/inch, resulting in
an image with the same measurements at three times the resolution for near-
laser printer quality.

Thus, the meanings of the names in the Print Quality dialog item are as follows:

Name				Meaning
----				-------
Draft Mode		ASCII text only; however, 'LQ has really nice-looking fonts
Standard			Graphics; Drawn offscreen at 1X and printed at LQ or IW resolution
Better			Graphics; Drawn offscreen at 3X and printed at LQ resolution



SPEED PERFORMANCE ENHANCEMENTS

The pixelmap-to-printer-graphics-command code (the heart of the imager) has
been modified to support ImageWriter II - style graphics command output if a
certain internal bit is set.  This mode is enabled by the higher level print
driver routines whenever Standard Mode, Portrait Orientation, Fullsize Reduction,
and not Darker has been selected.  Its advantage is much greater speed.

While converting pixels from the offscreen bitmap to printer-ready graphics data,
a trivial-white-space elimination catalyst algorithm has been implemented.  It
attemps to determine the value of a 2-byte word full of white pixels, in order to
skip over large white areas very quickly.  A very general-case version of this
algorithm is in place in portrait mode and a limited version (with more
restrictions) is in place in landscape mode.

For certain very special (but common) cases (640-mode portrait with hscaling=1),
pure black/white pixels whose RGB values come from standard color table locations
are imaged especially quickly.

Before the printer-ready pixel data is sent to the port driver, it is broken up
into chunks of zero, nonzero repeating, and nonzero nonrepeating head-fire byte
groups, and the 'LQ's positioning, print-repeating-graphics, and print-non-
repeating-graphics commands are issued accordingly.  This run-length-encoding
scheme greatly improves speed performance while improving compactness of data to
be sent across communication channels or stored up in a background printing
spooler.



DATA SPOOLING METHODOLOGY

The new psuedo-"virtual memory" spool method is used by both the Draft (text)
and Standard/Better (graphics, or "spool") printing modes.

For spool printing, memory is allocated to memory and then disk virtually,
thus allowing arbitrary-length documents to be spooled, assuming enough disk
space is available, unlike the older ImageWriter driver. During the actual
printing, the band buffer size is also dynamically allocated; in many cases,
only one band and banding pass is necessary.  Still, the standard (Command-Period
abort) and user-installed idle procedure is called at least four times as often
as in the older printer driver, resulting in better abort-command response time.

During print spooling, memory is allocated a block at a time, optionally
controllable by setting pFileBlockSize in the print record.  When total memory
in the system becomes less than a certain threshold, optionally controllable by
setting pFileMemLimit in the print record, the entire spool file in memory is
flushed to disk, and the memory space already allocated is subsequently used as
a buffer which is repeatedly flushed to disk when it fills up.  Memory is
allocated with a user ID whose "type" field is $1000.

If spooling to disk becomes necessary, the default pathname, optionally
controllable by modifying pFileName (which is set to long 0 by default)
in the print record, is:

*/SYSTEM/DRIVERS/TMP.XXXX		type=$00	auxtype=$0000 access=%Drb---WR

where the trailing X's are replaced by a random hexadecimal number.  If such
a filename already exists, then a different random suffix is used.  If the
user supplies its own filename, then no such unique suffix addition is done;
supplying one's own filename is not recommended due to possible filename
collisions when using shared volumes.  When disk spool playback is finished,
the file is deleted, whether or not it was supplied by the user.



COMMAND-PERIOD/IDLE PROCEDURE

The internal Command-Period-abort idle procedure is always executed in addition
to any user-installed idle procedure, unlike earlier drivers.



NEW PRINT RECORD FIELDS

Several new fields have been defined in the print record.  Most are set to
default (0) values during print record initialization (PrDefault); they may
be left alone or modified by the advanced user:

New Field Name		Offset		Offset	Size		Description
--------------		------		------	----		-----------
internA				prStl+2		$1A		word		MasterSCB during PrValidate
pFileBlockSize		printX+0		$64		long		Chunkiness of spool mallocs
pFileMemLimit		printX+4		$68		long		Spool min mem left in system
pCTable				printX+8		$6C		long		Color table for imaging
pSCBList				printX+12	$70		long		SCB list for imaging
wQuality				printX+16	$74		word		Internal quality mode selection
wPaperCrWidth		printX+18	$76		word		Variable crWidth value
wResScaling			printX+20	$78		word		Blow-up amount for Better quality

pFileBlockSize and pFileMemLimit are discussed in the section about the data
spooling algorithm above.  internA is examined by PrPicFile during banding buffer
memory allocation, for example.

If pCTable and PSCBList are left alone, the PrPicFile call will print with
the current screen color table and SCB list.  Alternatively, the user may
write their own pointers at these locations in the print record, so as to
avoid having to change screen colors.  Note that this will affect the entire
document being printed, however (unless they were changed in the recorded
picture definition by certain PicComments; see the section "COLOR CONTROL").

The following table describes the behavior of wQuality, along with two other
data in the print record which define the current print quality/method selection:

Name			wDev "Better" (bit)	bJDocLoop (byte)	wQuality (word)	Internal code
----			-------------------	----------------	---------------	-------------
Draft Mode	%0							$00					0						0
Standard		%0							$80					1						1
Better		%1							$80					2						2

Since it appears that most applications expect the "crWidth" field, in the
print record at offset oprStl+ocrWidth, to contain a constant value of 960 for
historical reasons, the new wPaperCrWidth field will contain actual carriage
width information based on the current paper type in use.  One of the uses of
this new field is to communicate from the metrics calculations to the imager in
order to inform the latter of where the right margin is for doing landscape, etc.,
based on the width of the current paper type.

The wResScaling is a constant which describes how much this printer driver scales
up the image (just prior to scaled-down printing at finer dot pitch) in order to
obtain higher resolution.



COLOR CONTROL WITHIN DOCUMENT

The SCBs/Color Tables used during the imaging of each page are taken from the
current screen values unless overridden by certain actions taken by the applica-
tion.  None of these actions will ever affect the colors on the display screen.

The colors used for imaging are taken from the following sources, starting with
the highest priority:

		1. pCTable/pSCBList print record fields, if not set to 0 (see above)
		2. PicComments (see below)
		3. Current screen values

Since PicComments are recorded as part of a picture definition, inserting these
PicComments provides a method of changing colors on the fly in a document.
Following the convention that all grafport settings are reset to default values
when each _PrOpenPage is called, all colors are assumed to be the current screen
values unless overridden by a PicComment unless overridden by field in the print
record.

Thus, for custom colors, the following PicComment should be made right after each
_PrOpenPage call, before doing any drawing:


		PICCOMMENT KIND=251 -- Fill A Color Table With New Values

		version			WORD			set to 0
		signature		WORD			set to $A55A
		tableno			WORD			set to 0..15 -- the table to be modified
		table				WORDS [16]	set to the new values for the color table
		reserved			LONG			set to 0
		
		
		
In order to use these different colors, an application must also be able to
modify the SCB's for each line from their screen-default ($80 or $00) values.
This can be accomplished by issuing another type of PicComment:


		PICCOMMENT KIND=252 -- Change A (Range) Of SCB Values
		
		version			WORD			set to 0
		signature		WORD			set to $A55A
		Y1					WORD			line no. of first SCB to change (0..rPage.Y2)
		Y2					WORD			line no. of last SCB to change (0..rPage.Y2)
		SCBvalue			WORD			scanline-control-byte
		reserved			LONG			set to 0
		


The driver internally uses a PicComment of its own, to keep track of where a
new page starts within the spooled data area filled with picture definitions
representing a page each.  For reference only, it looks like this:
		
		
		
		PICCOMMENT KIND=250 -- End Of Page Marker (Internal Driver Use Only)
		
		version			WORD			set to 0
		signature		WORD			set to $A55A

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/LQ/RELEASE.NOTES b/IIGS.601.SRC/GSToolbox/PrinterDrivers/LQ/RELEASE.NOTES
new file mode 100644
index 0000000..1227eb7
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/LQ/RELEASE.NOTES
@@ -0,0 +1 @@
+

APPLE IIGS
IMAGEWRITER LQ DRIVER
TESTING
CURRENT AND PREVIOUS RELEASE NOTES
BEN KONING





-----

For easiest testing on the system disk, rename the file
"ImageWriter.LQ.Dxx" to "ImageWriter.LQ" while transferring from the
Macintosh to the Apple IIGS into the */SYSTEM/DRIVERS directory.  This
way you don't have to modify the "AT ImageWriter LQ" CDEV.

The PRINTER and MODEM port drivers had a bug which caused the LQ driver
to print garbage on certain occasions (when $89 or $09 sent to port
driver by printer driver).  Please install the new versions in the
DRIVERS directory.

The PRINTER and MODEM port drivers have been modified to be capable of
true 19.2K baud output rates.  Running the LQ at 19.2K baud will now
result in a 75% speed improvement over 9600 baud, unlike before. 

The PRINTER and MODEM port driver have been modified so that response
is much quicker if the printer is unconnected.

-----





System Disk 6.0 ships here.





F49		8-Jan-92

Removed WaitCursor/InitCursor calls from status message routines.  Most applications
put up their own (wait) cursors anyway, and our WaitCursor call was causing problems
with applications such as HyperCard which do cursor animation with hi-bit-set
cursor record pointers.





F48		10-Dec-91

Paper sizes for International A4 and International Fanfold changed as per customer
request: X size increased from 132 to 136 80-dpi-pixels.  Untested.





F47		4-Dec-91

Radio button hit area is now set to 0,0 so that it's set correctly by the toolbox.





F46		15-Nov-91

PrJobDialog dialog box line edit field tabbing now works right.





F45		23-Aug-91

Set language to American upon s_reset (ESC c); fixes bug where setting non-American
settings for the language-select DIP switches would cause incorrect text mode
operation with nonmapped characters.

Now storing zeros in our-picframe X1 and Y1 before we allow the user-supplied rect
(if any) to be copied in.  Retrofix bug fix from SW driver.





F44		20-Jun-91

Changed back to say "Rendering page image" because Bob didn't like it the other way.





F43		19-Jun-91

Cosmetics: changed line edit box sizes and saying "Rasterizing page image".

If bit 15 of wDev is set to 1 (by app) then during-printing status box won't show.





F42		15-Apr-91

Incremented version number to 4.2.

Job dialog box no longer updates twice when first drawn.  Style dialog still
redraws twice because of its funky portrait/landscape controls, however.

Command-Period works (as well as ESC) as key-equivalent for Cancel in both
Setup and Job dialog boxes.

Saved code space by converting NotCorrectDevDialog to AlertWindow usage.

Saved code space by converting CheckAndDoAboutBox to AlertWindow usage.

Saved code space by using WaitUntil in ShowPrinterErrorStatus routine.





System Disk 5.0.4 ships here.





F41		2-Dec-90 6:30pm

The printer communication error (IW) and resending of imager-call-band
(LQ) is happening when it shouldn't.  Probably bug in appletalk PAP
code; "fixed" by calling PrDevStatus (PAPStatus) a second time if a tool
error occurred.  In other words, PAPStatus, is returning an error
($805-Name Not Found) and when it's called immediately after, it returns
no error.  This bug manifests itself by resending a band of graphics
data or by displaying printer communications error message while
printing draft/text mode.





F40		30-Nov-90 7:15pm

Modification to end of CloseDoc code to ensure that the SpoolFinishGET
is always called if there is a print loop error, to ensure that spool
memory or files are deallocated/removed (note that unique printer
connection is not an issue here since the printer connection open/close
is all in PicFile).




Lost sync bug determined to be in and fixed in AppleShare FST.





F39		28-Nov-90 2:20pm

Made network spooling work correctly; lost sync bug still exists.





F38		27-Nov-90

TJ089 bug remains an issue, presumably SpoolPut lost sync.

Added code so that if spooling-to-disk happens while the boot volume is
appleshare, the TMP.XXXX file gets written out to the appropriate USER
directory.

Added error passing around PutGetExit in printloop's GetPic/PutPic
bottleprocs so that QD is better notified upon SpoolGet error.





F37		24-Nov-90

Added space on either side of slash which divides the printer driver
name and the port driver name at the top of both dialog boxes.

Crashing bug was found to be bank-wrap-around problem in ROM 3 QD
cursor handling code.





F36		19-Nov-90

We discovered that the latest crashing bug is caused by two things:
1) QDaux has a problem with running out of memory during the DrawPicture
process: it has an internal stack imbalance problem and crashes.  This
has been fixed in 6.0.  We need to put in this change--only--for 5.0.4.
2) In the IW and in the LQ drivers, we were not checking for tool error
after drawpicture; now, if tool error after DrawPicture, the PrPicFile
tool error is set, the print loop error (PrError) is set, and we exit.





F35		13-Nov-90

Changed version ID from 4.0 to 4.1.

In SpoolPut, there was no error checking on the SetHandleSize call (we
relied on the RealFreeMem call just above)!  "BCS PutNoMoreMemory" added
just after SetHandleSize (found by Mensch).





5.0.3 System Disk shipped around 1-Nov-90.





F34		13-Aug-90

Text-mode font mapping now handles case where GetTextSize call returns
a zero.  Fixes "Nexus" application quirk.





B33		9-Aug-90

Upon the PrDevWrite call, we don't treat $08FF as an error, because it
could be simply PAP saying that the printer's appletalk buffer is full.
Fixes Iduna choking after several cards bug.





B32		18-Jul-90

OpenDoc no longer saves individual values from the print record
that are needed by OpenPage/ClosePage--it saves the value of the user's
print record handle instead.  Fix for apps which modify rPage and other
fields between OpenDoc and OpenPage.  Impact on testing is on manual
feed, idleproc, number of copies, and page range correctness.






B31		30-Jun-90

Added field to print record "wResScaling" at printX+20 ($78 absolute)
offset in the print record.  The wResScaling is a constant which
describes how much this printer driver scales up the image (just prior
to scaled-down printing at finer dot pitch) in order to obtain higher
resolution.  This field has been added for the application's information.
It always has a constant value of 3 for the ImageWriter LQ.

Job Dialog user interface line edit box fix:  Wherever the line edit
cursor is blinking, no matter in which of the 3 boxes, typing is
possible, even if a non-line edit control was just selected.  Fixed by
removing ParamWordA-flag restriction in ConductJobDialog; the LE handle
that is kept around is now always valid.

No changes to color/density dither pattern handling in Standard mode
at this time.  Unlike the IW driver, this remains at 80 hdpi.  This is
a policy decision.  We can either take the fast mode out or make it
another option in one of the two dialog boxes.  Std-640-red comes out
ok in my tests, but then again, the dither pattern is very coarse so a
red object with some kind of pattern may get cancelled out.





B30		25-Jun-90

The self-ID code is now takes advantage of the network PrDevStatus
(PAPStatus) call if possible.  Responsiveness improvement for the
PrGetPrinterSpecs call and PrJobDialog.  Appletalk error handling needs
to be retested.





B29		20-Jun-90

Changed names of quality modes to the following: Text Only,
Standard, and Best.

In 320 mode+Black/White, the color saturation is no longer doubled.
It was previously being doubled in *all* cases (to increase color
saturation), but this would cause black/white images to look too dense.
Test case: DeluxePaint/King Tut Black/White+Standard.

In PrOpenPage, we forgot to skip over the OpenPicture call and the
related spool-beginning code just above it if in Text/Draft mode.
Therefore, spooling memory as well as a picture handle was created
inadvertently if in Draft/Text mode.  Fixed by adding some new
branching at end of OpenPage and at beginning of ClosePage code, as well
as change in order of first two things at beginning of CloseDoc code,
so that dialog is removed *after* if-draft-PrinterClose code.





B28		6-Jun-90

Fixed PutText text-mode recording bottleproc so that a text string
beginning at a coordinate that is outside the current clipping region
is not recorded and hence not printed during ClosePage.  Prevents
drawing-on-second-page DrawPlus bug and Iduna text-at-bottom bug.





B27		1-Jun-90

The PRINTER and MODEM port driver have been modified so that response
is much quicker if the printer is unconnected.

Inside PrClosePage is the ClosePicture call.  If this call returns an
error, as it would if our bottleprocs failed (due to full disk during
spooling-to-disk, etc) during page data recording, that error is now
returned out of the PrClosePage call as a tool error.

Iduna's command-period abort was not working.  After the imaging routine
call (during which the IdleProc runs) we now check the print loop
error (PrError/PrSetError) status.  It was already being done at the
beginning of each sheet; now it is done after every imager call.
AppleTalk error message handling needs retesting!

The 8K RGB to KCMY conversion table is no longer used in the original
sense.  A conversion lookup table is now used, which is parallel in
structure to the standard 16 16-entry color palettes table.  Only
those color palettes which are referenced by an SCB are calculated.
Result: less time spent (no delay after "Positioning print head"
anymore) and about a 7.4K reduction in memory footprint.

A much smaller direct-page stack frame is used for the GetPic/PutPic
bottleprocs, as per suggestion by Mensch.  This may or may not have
any effect on low-memory bugs, but makes for better coding practice.

The code in source file "imager.aii" has been made more readable.





B26		14-May-90

NOTE: Many of these retrofit changes, induced by the debugging process
of the new IW driver, will have to be tested rigorously before this
driver graduates from beta status.

New label sizes added for 3.5" and 5.25" floppy disks, with 1/4 gaps
in between the labels.  Gap-size needs to be fixed in IW driver.

We're now remembering the handle from the OpenPicture call in the
OpenPage routine and passing it to KillPicture in the ClosePage
routine.  We were leaving one small handle per page around!

Small, dormant bug fix: imager.aii/"its_intl": doing AND #$FF after
longm just before add to "lang_tbl" base address; garbage could have
been in upper accumulator.

Potentially serious dormant bug fix: PiFiCalcBandPasses: PiFiLast-
BandHeight could be zero and would be *used* as such if the wanted-band
size is an even multiple (no remainder).  Fixed by preinitializing
PiFiLastBandHeight to the band buffer height and modifying it only if
there was a nonzero remainder from the divide.  Thus it is always a
true indicator the last band's height, in all situations.

In metrics.aii/GetQuality, if our internal wQuality field in the
print record is set to Better but the wDev Better bit is unasserted,
then we force our wQuality field to Standard.  Thus the wDev Better
bit is now tracked truly, either way.





B25		4-May-90

Selecting land+vc+bett+manual feed would cause crash.  Crash was in
_NoteAlert, because in PrPicFile's setbufdims code, we blindly set the
number of horizontal bytes to our bandbuffer locinfo's number of
scanline bytes.  During landscape printing, our bandbuffer is very tall
and skinny--a small number of horizontal scanline bytes, thus messing
quickdraw functions other than our imaging up very badly.  Fixed by
ensuring that PrPicFile's setbufdims code can only make the qd bufdims
bigger, and never smaller.





B24		3-May-90

Added "Allocating imaging memory" status message.

Removed two cases of CheckHandle in entry code.

Interchanged paper types for European B5 and International Fanfold.
The IntlFanFold is now (correctly) type=3, and European B5 is type=4.

Changed label "ChunkSize" to "OutputFlowQuantum".

Text-mode bug fix: cmp #$20 for control chars couldn't work because
of garbage in high 8 bits of long accumulator.

Text-mode bug fix: garbage in high 8 bits of long accumulator near
imager text-mode section to select one of the built-in fonts.

Text-mode bug fix: there was a word-store to "n_textfont", which
is a byte.  Must be retrofitted to IW.

Spooler now uses GS/OS calls and RealFreeMem; changed its
fine-tuning equates.

Some of the low-memory "fixes" from the new IW driver have been
incorporated: 1) Removed MaxBlock check-after-NewHandle in picfile
band malloc code; 2) Added RealFreeMem check before NewHandle in
picfile band malloc code; 3) 1.25X BufDims text height and 1X port
loc info width.





B23		12-Apr-90

Space Improvement #2: Building RGB to KCMY conversion lookup table at
runtime; saves 8K (on disk only).

Superior "Lwht" landscape white elimination speed improvement, which
operates even on head scan bands which are partially filled (speed#9).

Changed "50% Vertical Size" to "Vertical Condense".

Light-yellow-640 not showing up bug has been fixed for both portrait
and landscape (actually, in landscape the bug didn't manifest itself
for the LQ, but it was still there).





B22		19-Mar-90

Job Dialog From/To box interpretation has been improved.  All previous
error checking still exists, plus it's now possible to fill-in only one
box and have the results come out as expected.  For example, selecting
"From: 5" and leaving "To:" blank will cause printing from 5..doclength.
Likewise, one could fill-in only "To: 8", leaving "From:" blank, for
example, thus causing only pages 1..8 to be printed.





B21		7-Mar-90

During out of memory conditions, the proper error ($0201) is now
always returned.

"Black & White" has been renamed to "Black/White" to be consistent
with new ImageWriter driver in the PrJobDialog box.

Update events are now handled properly.  Was causing problems with
windoid-using processes such as Video Keyboards.





B20		27-Feb-90

If text/draft mode selected, the following metrics settings are now
reset to their default values: 100%, VertGap, Darker, Bidirectional,
Portrait.  The others are left alone, since text mode can deal suc-
cessfully with different paper sizes and 50% vertical condense.





B19		22-Feb-90

The horizontal dialog box line code has been changed to not rely on
the underline of the Shaston 8 font; about box now uses StaticText
centering.  Dialogs look better in TopDraw, which doen't use Shaston 8.

Attempt at producing better colors in Better mode resulted in
realization that it'll be very hard to do since 640-mode is dithered.
This causes 640-mode colors which are dithered with black to produce
a pure black RGB->CMY dot on the paper right next to a bright CMY dot;
the pure black just kills the color.  Could be fixed by taking two
640-mode pixels into account at a time when calculating the CMY color.
Might be an improvement for later system disk release.

Text/draft-mode horizontal positioning has been fine-tuned slightly.
There are still possibilities for overlap.

About-box has been changed slightly.

Changed code around SetBufDims call in PrPicFile.  MultiScribeGS on a
1M machine now prints, but it still hangs afterwards.





A18		16-Feb-90		Pre-Beta

Draft/text-mode horizontal positioning bugs fixed.  The wrong print-head
position command was being used and was being executed after the
horizontal-spacing-for-the-native-font-select command was issued, thus
rendering its results random.  There is still some overlapping, which
can perhaps be fixed by some tedious fine-tuning.





A17		15-Feb-90		Pre-Beta

The lost-data-under-MultiScribe-landscape-33-labels bug is actually a
MultiScribe bug, provable by running with the test "iwlq.ms.bug" driver.
MultiScribe is not recording any picture elements into page two.

Large Oval/RoundRect vertical (with Better mode) clipping bug seems
to have gone away.  Don't know why; could be due to 5.0.3d3 or to fix
for 0-length-spool-requests in A16 release.

Spooling cases for to-disk only and to-memory-with-tiny-blocks have
both been tested.  Spooling now back to normal (to-memory 5K blocks
until it runs out (<128K maxblock), then to disk).  Needs testing with
huge documents under low memory conditions.  Also, PrPicFile-low-
memory-error-return is set for maxblock <32K.

Sheet feeder has been made slightly more reliable.  The command to use
a new bin is issued only if it differed from the last time.

Changed Job dialog text to reflect the fact that the sheet feeder
selection pertains to the current PAGE, not the current COPY.  Selecting
Bin 2 on a one-page document and asking for 15 copies results in 15
sheets being pulled from Bin 2, for example.  But a two-page document
could have all of its 15 copies of its first page come from Bin 2, and
all of its 15 second pages from Bin 3, for example.

Job dialog box LineEdit boxes ("Copies", "From", and "To") were fixed
a long time ago to be very robust... except checking for 0.  Fixed.
Different and wierd number entries in these boxes needs retesting.

Got rid of need to use source file "m16.portdriver".

Text (draft) mode 2nd page text string in DrawPlus is application-
related and not a driver bug.





A16		12-Feb-90		Pre-Beta

Forced spooling-to-disk remains in place for test purposes.

Fixed bug in spool routines so as to handle zero-length getpic/putpic
requests.  Caused AppleWorksGS to say abort printing after just one page
when spooling to disk.  Modified spool routines to use GetTick instead
of QD Random for the random filename suffix.

Careless tiny bug introduced in last release fixed.  In
IdleProcAbortErrCheck, on direct connect port driver would store to
PrError.





A15		12-Feb-90		Pre-Beta

To test spooling performance, spooling to disk has been forced, just
for this release.

Fixed bug in ID string interpretation routine.  Apparently there are
several different versions of the LQ firmare out.  Changed device-not
lq status alert box a little bit since it is called now whenever
something's not right, like out-of-paper, etc, at Job dialog time.

Fixed bug where (network) LQ with sheet feeder got confused about
paper height (unnecessary top-of-form commands in FF len set code).

Added a status message about rendering current page image (displayed
during call to DrawPicture).

Added a "Cancel" item to the manual sheet feed dialog box.  Works for
both draft/nondraft, with "Cancelling" in status box for draft mode
delay problem where the app still has to go through its printing-loop.

Status message handling is more robust.  On the network, the out-of-
paper, select-is-off, etc., work better now.  Added "printer is in use"
status message upon someone else using printer; also, the note alert
(which already exists for non-LQ-connected situations) is put up upon
Job dialog with busy printer rather than hanging until the other users
are done.  However, interrupting a job in the middle of a page still
causes repeating data to be sent.





A14		2-Feb-90	Not Yet Beta Candidate

The makefile has been changed to not do beep/duplicateiigs during
official builds.  The output file "ImageWriter.LQ" now appears at the
top level of the directory.

Status box text says "Recording picture data" and starts out with
"Preparing to record data" during the printing loop.

The way in which the 100/66/33% reduction values are encoded in the
print record's wDev location has been changed to remain compatible with
those applications which modify wDev themselves.  Internally, the
0..2 coding for 100/66/33% still holds, however.  Also, the GetConvert-
QualBits routine has been redone.  Fixes DesignerPrints bug.

A would-be bug has been detected theoretically which could have caused
stepping on memory.  In several places where a NewHandle memory request
size is being calculated, the size requested is too small because of
natural number/counting number confusion (ie, if y2-y1=N, alloc N+1 !!).

The memory-left-limits for banding buffer allocation and spool-to-disk
threshold-defaults have been distinguished from one another.  The band
buffer alloc out-of-memory error remains at MaxBlock result < 32K, while
the spool-to-disk-default has been increased to go to disk if Maxblock
result < 100K.  Both of these can now be independently changed for easy
performance tuning.

For Iduna, the Change-A-Range-Of-SCB-Values (ChSCB) PicComment has been
implemented and superficially tested.  This PicComment, together with
the Change-Color-Table-Entry (ChCTBL) PicComment already implemented,
allow the application full control over colors everywhere in the
document to be recorded ("spooled") and printed.

The ChSCB PicComment changes have exposed two bugs in the Landscape
speed improvement #6 qualification code.  Fixed.

A metrics bug caused 66% DrawPicture scaling to be too small.  It
has been fixed without re-introducing the 66%-imaging-too-much/big-
using 2-pages when 1-page needed bug.  CalcMetrics now causes 100/66/33
to create 1/1.5/3 times printable area to apps while two new routines
(ConvertImgToRPage/ConvertRPageToImg) do 100/66/33 3/2/1 times scaling
if Better is selected.  Should fix test matrix bug #79, #167? and
maybe others.

Dither patterns have been improved for 320-mode/Standard (If IW & 320
then colortemp*2).  Has drawback of maxing out on dark colors.  Makes
IW-mode graphics look much less infantile because only the denser half
of the pattern table is used.





A13		12-Jan-90

Speed Improvement #5 has been implemented (no big deal).  It is active
whenever Portrait is selected, standard color tables/scb's are used,
hscaling=1 (which happens during Better/any% or during Standard/33%),
and 640 mode only.  It speeds up black/white-only imaging by at least
10% (not really enough to be noticable).

A waiting-to-happen-but-unerupted bug has been found and fixed in the
color table pure white scanning loop for speed#3.

Speed Improvement #6 has been implemented.  Whitespace elimination in
landscape modes with significant restrictions.  Great speed improvement
for all-white lines (columns) (but not partial-white (like portrait
white elimination)).




						
D12		8-Dec-89

The Paper Type popup menu in the _PrStlDialog call was displaying
inverse-question-mark characters while in AppleWorksGS.  We were
relying on $E7 character being a narrow space character.  Fixed,
though the menu items don't line up as nicely.

A dialog appears for if something other than an ImageWriter LQ is
connected instead of just doing a SysBeep.  This is checked for at
PrJobDialog time just before the job box appears.

Sheets-Left-To-Print message in the status box during printing would
not work correctly when printing a multi-copy, multi-page document
(incorrect logic to do sheets*pages each time, so now there is a
decrementing counter that's initialized to sheets*pages).  Fixed.

PrPixelMap call has been given a quick test, a bug was fixed, and now
seems to work correctly.  This call is not made by many applications.

A PicComment end-of-page marker handling bug has been fixed, even
though it "worked", that is, multipage documents could be printed
correctly, albeit for the wrong reason (the PicComment routine was
not exiting with A=0/c=0 and thus THAT was terminating the DrawPicture
process, and not the code in GetPic which checked the end-of-page flag,
even though that code actually never checked the flag anyway!  Every-
thing is now completely fixed).  Multipage and multicopy document
printing needs to be tested VERY thorougly.

Fixed dispatch code bug (entry.aii); the last call in the list
(_PrGetPgOrientation) was incorrectly considered illegal and caused
a planned breakpoint (BRK #$BB) to occur.

Draft vertical positioning has been improved: no matter what the
vertical condense setting, the Y coordinates are always correct for
text all the way down the page.

If banding buffer size exactly equalled the imaging size (a possible
but uncommon occurrence), nothing would be printed (PiFiLastBandHeight,
which would be 0, would be used to adjust the last band even if there
was only one band).  Symptom: DrawPlus, Land, No Gaps, Color.Picture,
my particular system/memory configuration would just recalibrate the
printer, do all sheets-left-to-print box messages, and exit without
printing.  Fixed.

Medley didn't seem to want to print multipage documents.  Fixed by
changing code in the two places where we set the clip regions to rPage
size instead of screen-sized default to use SetRectRgn for setting
the visrgn instead of just setting it to the same handle as the cliprgn.
Other programs are apparently unaffected, either way.

The bits in the wDev field of the print record listed below use reverse
logic; a "1" setting indicates a default setting rather than a "0".
We were using positive logic when setting/reading these.  This didn't
cause any problems except for those few applications which read/write
these bits themselves, such as Medley and Iduna.  The driver is now
compatible with the accepted way of handling these bits (although in-
ternally, 0 still means portrait rather than landscape, etc.).  The
bits with reverse logic are (see GS Toolbox Reference I-15-13):

	print record.wdev.Bit 1	Orientation		0=land	1=port (default)
	print record.wdev.Bit 2	Vert Condense	0=cond	1=norm (default)
	print record.wdev.Bit 6	Vert Page Gap	0=no 	1=yes  (default)
	
The PicComment (for end-of-page mark and new stuff) handling has been
made more robust by checking for a signature and version number.  See
the README file for specific information.

The _PrPicFile routine is now sensitive to a certain PicComment type
which allows mid-document color changes.  See the README file for
specific information (this has been done for Iduna).
	




D11		22-Nov-89

The vertical line feed (LF) spacing is now reset to default 6 lines/inch,
as a courtesy to older applications using the printer after the driver
is done with it (page length and TOF was already being reset).

At PrJobDialog time, we now check if the device connected is really
an ImageWriter LQ.  If not, then SysBeep and exit with error ($1308
pntrConFailed).

Major PrJobDialog text and formatting changes; minor PrStlDialog text
and formatting changes.





D10		20-Nov-89

Trivial white space elimination algorithm has been installed, effective
for all portrait modes.  Major speed improvement, especially for
sparsely dirtied areas of pages, especially for Better mode.

QuickDraw wasn't informed of the need for larger clipping buffers, by
using the SetBufDims call.  Fixed.  HodgePodge/Picture windows, paint
applications, and others using PPToPort don't crash anymore in Better
mode.

Faster quality mode has been eliminated as a choice for the user.  If
user choices permit, however, the ImageWriterII output mode is still
invoked, thus keeping the tremendous speed gain.

1/4" Vertical page gaps were not produced properly.  An application's
printout would start right at the top edge of the paper, even if the
no-vertical-page-gaps option was off.  Fixed.

Formfeed now works correctly regardless of the paper type installed.
This means that Option-Period abort will eject even legal, envelopes,
etc., correctly.  It also means that very diverse types of pin-fed
paper can be printed correctly.  For example, one can select a mailing
label paper type, draw the label in an application, and the number of
copies selected will be the number of labels printed out.  This did
not work correctly in the older printer drivers.

Page breaks in applications would always be one line off.  Fixed.

DrawPlus would not line up lines inscribed within ovals or rects.
Discovered to be DrawPlus bug; DTS notified.

Many new diverse paper types have been added to the paper type popup,
including several wide paper sizes to take advantage of the wide
carriage and labels and envelopes to take advantage of the new better
formfeed handling.

Internal band buffer allocation changed so that very small paper types
such as labels can be used (doesn't start out dividing band memory by
two; does align-24 first).

When the Print Job dialog box appears, the Copies line edit box is
active.  Immediately typing a number will cause the number and inser-
tion point cursor to appear in the Copies box.

TAB now moves cursor from "From" to "To" line edit box in Job dialog.

If "From" > "To" in Job dialog, the two values are exchanged.  Also,
range checking is now more robust.

The OpenPage call now always leaves the current GrafPort set to the
"printing" (spool recording) GrafPort.  The OpenDoc call also does this,
but some applications apparently change the GrafPort between the OpenDoc
and OpenPage calls.  For example, selecting From=2, To=3 in the Job
dialog and then printing a 4-page document from Writer's Choice Elite
caused garbage on the screen from the rendering of the unprinted
pages 1 and 4.

The PrPicFile call now handles zero-length spool recordings correctly.
This means, for example, that specifying a page range from 3 to 5 when
there is only 1 page in the document won't cause problems.





D9		13-Oct-89

Added "B5 Letter" (176x250 mm) to "Paper Type" menu, upon noticing it
in the toolbox reference manual.  Was easy to add; the more the merrier.

Fixed freezing-in-Medley bug.  Also found serious bug in Medley, which
is being fixed by the author.  Medley wasn't looking at "iDev" in the
print record correctly (2 means LQ; it was doing cmp for non-1).  Also,
the "crWidth" field in the print record now always has the value of 960,
since several apps seem to expect that value.  The real, dynamic carriage
width value, which the driver needs for internal purposes, is now stored
elsewhere in the print record.

Fixed no-printing-in-DeluxePaintII bug.  It was expecting a copy of the
"prInfo" subrecord of the print record in "prInfoPT" (which it should
not do, but I'm not using that space anyway).  A copy of those 14 bytes
is now maintained there.

Next release next week.  Priorities, in order: Paint programs/HodgePodge
picture window crashing (QD bug); Stepping on memory (if that's the
case); Speed improvement #3 (the final frontier in performance); Issues
resultant from matrix; Other QD bugs causing anomalies in Better mode.





D8		6-Oct-89

Many bugs are still under investigation; the driver won't be an
alpha candidate again until next release (next week).

A bug (in QuickDraw) has been found whenever any app uses PPToPort
inside its printing loop.  Bad news for HodgePodge pictures and paint
applications, which will crash.

Spooling/Banding buffer memory problems (when apps just bail and
refuse to print at all) have yet to be addressed.

Medley still freezes on page setup dialog.

No more data is being lost on Multiscribe/land/66/"megafont".  I was
doing metrics scaling *2 when I should have been doing *3/2 in
GetImagingSize.  However, it's still feeding an unneeded empty page.

Several bugs fixed for draft mode (imager now doesn't ever do posn
anymore on null string; imager now outputs CR at end of every string).
This shouldn't fix the last-line-in-drawplustest-draft-mode bug,
however.

A tiny bug in the run-length-encoding scheme (posn+1) is fixed.
Graphics would appear horizontally misaligned.

When manual page feed was selected, its dialog would appear at wrong
times (jsr -> brl in PrinterFormFeed).  Fixed.





D7		29-Sep-89

Metrics code has undergone some major revisions.  All metrics bugs
ever detected must be retested.  Also, because run-length-encoding of
printer-ready output is now implemented, be on the lookout for small
glitches around the edges of solid graphics.

All metrics code is now contained in the source file "metrics.aii";
no more metrics-like code in "printloop.aii".  Metrics code has been
greatly simplified and sanitized; no more voodoo code exists.

Whenever a reduction-type of option is selected in the Page Setup
dialog, such as 33% or Std.Point Size, the application should see a
greater document area.  That was fixed last time.  But, in addition,
this larger document area is now imaged and printed and may now
be used.  Thus, the bug where the third "!" wasn't showing up in
the DrawPlus document "drawplus.test" on landscape or 33%, etc., is
fixed.

The lost-data-bug in landscape/no-page-gaps with "drawplus.test", due
to one of the fallacies in the old metrics code, is fixed.

Run-length encoding has been implemented at the output of the imager,
just before the data is sent to the printer.  Instead of merely sending
a single command to print graphics followed by the graphics data for
an entire head scan, the data is broken up into chunks of zero, nonzero
repeating, and nonzero nonrepeating wire-strike groups, and the 'LQ's
positioning, print-repeating-graphics, and print-non-repeating-graphics
commands are issued accordingly.  This has resulted in an average 2-3X
speed improvement in all nondraft quality modes.

Currently being addressed: Memory problems (where it doesn't print at
all), any other metrics problems, and then another speed improvement
(caching of calculation results or trivial-blanks elimination while
imaging from off-screen pixels to printer-pixels).





D6		15-Sep-89

Several remaining metrics bugs have been fixed.  These were all due
to the fact that (possibly) incorrect data was returned in the rPage,
rPaper, iHVRes, and crWidth fields in the print record, in conjunction
with Reduction settings and/or Landscape.  An application knows how
big a page is in inches by doing rPage divided by iHVRes.  If a
document is created that fills the entire 8x10.5" of a USLetter, for
example, and then the user selects Landscape mode, then that document
must be printed on two pages.  That part was correct.  But select a
reduction size, like 33%, and that document is still printed to two
pages because the rPaper, etc., data structures weren't being changed
(nor should they really be...).  So the bug fix is as follows:  Selecting
33% or 66% (or Standard Point Size) really increases the bigness of the
"paper" to be printed on, and this can be noticed by the fact that the
scroll bar thumbs get smaller in an application such as DrawPlus.  Yes,
the ImageWriterII driver works this way as well.

Thus, BRC # 52033, 52034, 52035 are claimed to be fixed.

A potentially serious problem exists in that I could not get Medley 1.1
to work (it froze).  I will speak with Eric Soldan (author) about this
to see what the problem is (it IS an 'LQ driver problem).

Any remaining metrics bugs (such as the Medley problem) now have highest
priority.  Otherwise, I will be implementing the 2X speed improvement.





D5		8-Sep-89

Sheet feeder usage in conjunction with appletalk was not working very
well due to the peculiar way in which the 'LQ's appletalk firmware
reports page empty status when a sheet feeder is installed.  It
has been worked around in a compromising sort of way.

Too many form feeds were happening at end of print job.  Fixed.
This bug was related to a wrong policy decision last release with
respect to the "No Gaps" option.  Currently, form feed happens
at the end of all sheets ("sheets" means pages and/or copies), but
only if the "No Gaps" option is disabled.  Form feed also always
happens upon command-period user-interrupt.  Form feed will not
happen anymore in any other case.

The "crWidth" field in the print record is now being set correctly.
Last release it was accidentally being set to 1/2 the required value,
causing artifacts such as landscape printing not being right-justified
on the page.

Coming up:  Run-length encoding analysis of imaged data in an attempt
to exploit the 'LQ's "print repeating graphics columns" command;
nominal speed improvement will be around 2X in all nondraft modes.





D4		1-Sep-89

Part of the code related to Draft Mode (the stdText quickdraw
bottleproc) was carelessly overwriting an internal data structure.
Draft mode font mapping needs to be retested.

The CompactMem call has been taken out of the spooler initialization
call.  This was causing HodgePodge to crash.  This is really a Hodge-
Podge bug (select font: Shaston 3; print draft; select other font;
system will crash next mousedown in menu bar); but I'm not sure if
CompactMem should have been called by me anyway.

Standard Point Size (alias V.Condense) now causes the application to
know about the entire page (ie, it's now possible to print a page full
of text, rather than only being able to use 1/2 the page).

The source compiles with the latest official DSG equates.

Blank horizontal bands/image-part skipping is fixed (BRC # 52036).

Formfeed now happens on command-period even if in one of the non-draft
print quality modes.

Formfeed happens appropriately at end of print job even if "No Vertical
Gaps" is enabled.

Much code has been cleaned up.

Serious problems still exist in metrics, manifested particularly by
feeding extra sheets of paper (now even on all-default print options),
left-edge clipping on landscape, incorrect right-edge positioning on
landscape.  Also, the linker decided to make the driver 10K too big.
In addition, cut sheet feeder selection doesn't work over appletalk.





D3		25-Aug-89

Draft mode international characters needs to be tested very thoroughly,
both over direct connect and appletalk.  Lines should be written
starting and/or ending and/or mixed with international characters.

BRC # 52029 (0's preceding text) is fixed.  BRC # 52030 (incorrect
draft mode (horizontal) positioning) is greatly improved for now; the
final word on this is kind of a policy decision.

BRC # 52031 (landscape draft prints as portrait) will never really be
fixed.  Landscape draft mode won't be supported.  The main problem is
to figure out a way to do this: ie, should the the Portrait icon be
automatically hilited when the user selected draft mode?  But then
what about other features that might cause certain modes to have
different effects, such as selecting Faster and then printing in, say,
33% reduction (causing it to print as Standard because Faster only
supports 320/640/Std.PointSize options)?  Some thinking has to be done
about these issues.

With the new MODEM and PRINTER printer port drivers installed, all bugs
which deal with garbage being printed should be fixed.  This includes
BRC # 52032, 52036, 52037 and just maybe even parts of BRC # 52033,
52034, 52035.

These last three bugs, plus other that I know of, are the result of
metrics bugs (the rPage/rPaper/iHRes/iVRes fields of the print record
aren't being set correctly depending on chosen paper type, etc).  This
is the next area of concentration; after that, several bugs related to
printed images not being scaled correctly will be investigated.





D2		18-Aug-89

BRC # 52038 and 52032 are claimed to be fixed. 

A new, much better README file has been written.  Also, most of this
week was spent doing a print spooler feasability investigation.

A dispatch table bug has been fixed (if an application made a
PrGetPgOrientation call it would never have worked).

A new, much faster printing mode has been added.  It is called "Faster"
in the Print Quality menu.  The old "Faster" mode is now called
"Standard".

In the print record (test this!), a new field has been defined (this
is in the new README file): wQuality, at printX+16, or $74 offset from
the start of the print record.  Its values are 0=Draft, 1=Faster, 
2=Standard, 3=Better.  The old print quality indicators (the Better
Text bit in the wDev field in the print record and the bJDocLoop byte
field in the print record) should still always remain valid, however
(test this).  The purpose of adding the new field is becaue the new
"Faster" mode setting needs to be remembered by the print record.

The new Faster mode operates the ImageWriter LQ just as if it were
an ImageWriter II.  Since it is nearly impossible to get the metrics
right otherwise, the only non-default print options are 320/640 mode
and vertical condense ("Standard Point Size").  If you tried to print
in Faster mode, say, with 66% reduction, or in Landscape, etc., the
document will print as if Standard mode were selected.

The new Faster mode prints lighter.  When the Darker option is selected,
it will be darker--as dark as the Standard mode.

No new features will be added after this release!  This (limited)
feature was added solely due to its great speed performance advantage.





D1		7-Aug-89

All memory allocation (NewHandle) calls use user-id of type $10xx.
This number can be changed with an equate in the source.

AppleTalk is supported.

AppleTalk error messages are supported, with Apple-Period Quit still
working even while error condition.

Apple-Period works in addition to IdleProc.  This goes against
documentation, but this way is better.

Draft mode font sizes/styles/types are considered while selecting a
native IW LQ font.  Underline and Boldface work as expected; Times,
Courier, and Shaston are assigned special native LQ fonts; point
sizes over 14 yield double-wide print; point sizes less than 8 yield
super-small print.

Draft mode international characters (accented letters, etc) work.
Not all international characters are supported by the LQ; therefore,
some map to spaces, others to the same character without the accent
mark.

Lots and lots of internal code cleanup.

Draft mode speed improvement to recover speed lost by adding of inter-
national character feature above.  Printing international mixed with
normal characters needs to be tested thoroughly.



D0		17-Jul-89

First release of ImageWriter LQ driver to testing.  Pre-Alpha stage;
fully functional in the application interface but lacking several
features (appletalk with error recovery is the main one), containing
bugs mostly due to integration of features, and lacking several
performance improvement enhancements.
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/LQ/dialog.aii b/IIGS.601.SRC/GSToolbox/PrinterDrivers/LQ/dialog.aii
new file mode 100644
index 0000000..15a7b36
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/LQ/dialog.aii
@@ -0,0 +1 @@
+
******************************************************************************************
*                                                                                        *
*		Apple IIgs ImageWriter LQ Printer Driver                                         *
*                                                                                        *
*		File: dialog.aii -- Doing dialog boxes, thereby modifying user's print record    *
*                                                                                        *
*		Written by Ben Koning                                                            *
*		Copyright (C) 1989 Apple Computer, Inc.                                          *
*                                                                                        *
******************************************************************************************






							include		'equates.aii'
					
							
							include		'm16.util'
							include		'e16.quickdraw'
							include		'm16.quickdraw'
							include		'm16.qdaux'
							include		'e16.control'
							include		'm16.control'
							include		'e16.window'
							include		'm16.window'
							include		'm16.lineedit'
							include		'm16.intmath'
							include		'm16.dialog'
							include		'm16.menu'
							include		'e16.print'
							include		'm16.misctool'
							include		'm16.event'



DialogProc					proc		export





*
*STATUS MESSAGE ROUTINES: StartStatusMessage/FinishStatusMessage/StatusMessage/StatusManFeedPrompt
*
*These routines can display messages for the user.  After calling StartStatusMessage, calling
*StatusMessage with ParamLongA pointing to a string will cause that string to be shown, centered,
*in a centered dialog box (640/320 mode automatically taken care of).  StatusManFeedPrompt will
*put up a caution alert asking the user to insert the next sheet, to be numbered with the value
*given in ParamWordA.  Call FinishStatusMessage when done, erasing the dialog box.  If the
*StartStatusMessage routine is called with A set to true, then the message box will not be
*drawn, but the show-message routines may be called as usual, and the manual-feed box will still
*always appear.
*





*
*STARTSTATUSMESSAGE: Call this before any other status message calls (0/1 -> A):
*
*Normally, this routine draws an empty status box, ready to be filled in by other status
*message calls.  If A = 1, then the status message box is not drawn, but status message drawing
*routines may still be called, although their messages won't be visible.  The manual feed dialog
*routine may also still be called in this case; however, it will always be visible.
*
							export		StartStatusMessage
StartStatusMessage
							
*Save input parameter:
							pha
							
*Clear the status-window-exists flag initially:
							stz			StatusWindowExists
							
*Calculate horizontal size for status and manfeed message boxes:
							import		StatusWindowCoordX2		;modify dialog coordinates
							lda			StatusWindowCoordX2
							sec
							import		StatusWindowCoordX1
							sbc			StatusWindowCoordX1		;calc size (silly at runtime)
							sta			StatusWindowWidth		;save size
							pha									;result space for scb
							_GetMasterSCB
							pla
							ldx			#640					;assume 640 mode for a sec
							and			#$80					;look at mode bit (1=640, 0=320)
							bne			StMeMode640
							ldx			#320					;change assumption made above
StMeMode640					txa
							sec
							sbc			StatusWindowWidth		;acc now has [320|640] - (X2-X1)
							lsr a								;divide by two
							sta			StatusWindowCoordX1		;this is left coordinate of box
							import		ManFeedAlertTempCoordX1
							sta			ManFeedAlertTempCoordX1	;also for man feed alert template
							clc
							adc			StatusWindowWidth		;maintain proper size of box
							sta			StatusWindowCoordX2		;this is right coordinate of box
							import		ManFeedAlertTempCoordX2
							sta			ManFeedAlertTempCoordX2	;also for man feed alert template
							
*Do not put up wait cursor; let application take care of it:
							
*Restore input parameter; if we were called with A set, exit before drawing status window, etc:
							pla
							beq			StMeDoneInvisible
							rts
StMeDoneInvisible

*Draw the empty status box:
							pha									;result space
							pha
							import		StatusWindowTemp
							pushlong	#StatusWindowTemp		;draw window from template
							_NewWindow							;this does NOT set current grafport!
							pulllong	StatusWindowPtr			;save our ticket to access the box
							
*Assert the status-window-exists flag so the other routines know:
							lda			#1						;indicate it's ok to use it now
							sta			StatusWindowExists
							
*Exit:
							rts
														




*
*FINISHSTATUSMESSAGE: Removes the box displayed above; won't crash if called alone:
*
							export		FinishStatusMessage
FinishStatusMessage

*Do not remove wait cursor here; let application take care of it:
							
							lda			StatusWindowExists		;was it ever really drawn?
							beq			FiStExit				;if not, don't do CloseWindow
							
							pushlong	StatusWindowPtr			;erase window and dispose memory
							_CloseWindow
							stz			StatusWindowExists		;it's gone now
							
FiStExit					rts





*
*STATUSMESSAGE: Draws centered string at "ParamLongA" into above-opened message box; uninit-proof:
*
							export		StatusMessage
StatusMessage				lda			StatusWindowExists		;was window ever drawn?
							beq			StMeExit				;if not, abort this routine
							pha									;result space...
							pha
							_GetPort							;save old grafport on stack
							pushlong	StatusWindowPtr			;set grafport to box's port...
							_SetPort
							pushlong	#StMeBigRect			;clear box contents...
							_EraseRect
							pha									;result space
							pushlong	ParamLongA				;push pointer to our messgae
							_StringWidth						;ask what size it will be
							lda			StatusWindowWidth		;leave result on stack
							sec									;for subtract right on the stack
							sbc			1,s						;acc now has (X2-X1) - width
							lsr a								;divide by two; acc now has X coord
							sta 		1,s						;this is start X coordinate for text
							import		StatusWindowTextY
							pushword	StatusWindowTextY		;this is start Y coordinate for text
							_MoveTo								;move the pen to pushed coordinates
							pushlong	ParamLongA				;and draw the string...
							_DrawString
							_SetPort							;restore old grafport from stack
StMeExit					rts
*Big rectangle to clear status box contents:
StMeBigRect					dc.w		0,0,200,320





*
*STATUSMESGFEEDPROMPT: Prompts to insert "ParamWordA"-th page; call after "StartStatusMessage":
*This routine exits with carry set if cancel option was selected by user.
*
							export		StatusMesgFeedPrompt
StatusMesgFeedPrompt
							pushword	ParamWordA				;int to be converted to string
							import		ManFeedAlertTempPageNo
							pushlong	#ManFeedAlertTempPageNo	;where number ascii data goes
							pushword	#5						;length
							pushword	#0						;unsigned
							_Int2Dec							;convert and store it
							pha									;result space
							import		ManFeedAlertTemp
							pushlong	#ManFeedAlertTemp		;template
							pushlong	#0						;no filter proc
							_InitCursor							;change cursor; params still on stack
							_NoteAlert							;conduct modal dialog
							_WaitCursor							;change cursor back; params on stack
							pla									;get item id that was selected
							cmp			#mesgFeedPromptNGButtID	;set carry only if cancel selected
							beq			StFeExit
							clc
StFeExit					rts






*
*DATA: Maintains status message box's window grafport, size, and status across print driver calls:
*
StatusWindowPtr				dc.l		0
StatusWindowWidth			dc.w		0
StatusWindowExists			dc.w		0						;must be 0 initially





*
*NOTCORRECTDEVDIALOG: Displays message about correct printer not being connected; call anytime:
*
							export		NotCorrectDevDialog
NotCorrectDevDialog			pha									;pass result space
							pushword	#%000					;pass reference is ptr to cstring
							pushlong	#0						;pass no substitution array
							import		DevAlertString			;pass ptr to alert box def string
							pushlong	#DevAlertString
							_AlertWindow
							pla									;retrieve button hit, we don't care
							rts



							
*
*CHECKANDDOABOUTBOX: If Shift-Apple-Option keys are down, display an about box with credits:
*
							export		CheckAndDoAboutBox
CheckAndDoAboutBox			
							pha									;check if Shift-Option keys down
							pushword	#0						;don't remove anything from queue
							pushlong	#AbBoEventRecord		;store information here
							_GetNextEvent
							pla									;will ignore this
							lda			AbBoEventModifierKeys	;check modifier flags
							and			#$0B00					;shift+apple+option must be set
							cmp			#$0B00
							bne			AbBoExit				;no, so exit; else, drop through
							
							pha									;pass result space
							pushword	#%000					;pass reference is ptr to cstring
							pushlong	#0						;pass no substitution array
							import		AboutAlertString
							pushlong	#AboutAlertString
							_AlertWindow
							pla									;retrieve button hit, we don't care
							
AbBoExit					rts

*Storage for event record to be filled in by GetNextEvent:
AbBoEventRecord:
AbBoEventWhat				dc.w		0						;event.what
							dc.l		0						;event.message
							dc.l		0						;event.when
							dc.w		0,0						;event.where
AbBoEventModifierKeys		dc.w		0						;event.modifiers





*
*CONDUCT-DIALOG-ROUTINES: These routines handle the dialog boxes for gathering the information
*to modify the print record.
*




							
*
*CONDUCTSTYLEDIALOG: Does Start/FinishDialog/TaskMaster, does metrics routines to change
*print record. On exit, accumulator is set/cleared depending on OK/Cancel selection:
*
							export		ConductStyleDialog
*Modify dialog data to reflect settings of current print record:  This would be much more elegant
*if only the dialog ID's could be the same as the data in the print record...

ConductStyleDialog			jsr			GetOutputPortName			;complete "IMAGEWRITER LQ/XXX"
*
							import		GetPaper
							jsr			GetPaper
							clc
							adc			#paperTypeUsaLtrItemID		;convert id # to dialog id
							import		paperTypeInitValue
							sta			paperTypeInitValue
*
							import		GetReduction
							jsr			GetReduction
							clc
							adc			#reductionFullSizeItemID	;convert to dialog id
							import		reductionInitValue
							sta			reductionInitValue
*
							import		effectsNoGapsInitValue
							stz			effectsNoGapsInitValue
							import		GetPageGap
							jsr			GetPageGap
							beq			CoStNext1
							lda			#1
							sta			effectsNoGapsInitValue
*
							import		effectsCondensedInitValue
CoStNext1					stz			effectsCondensedInitValue
							import		GetVSize
							jsr			GetVSize
							beq			CoStNext2
							lda			#1
							sta			effectsCondensedInitValue
*
							import		effectsDarkerInitValue
CoStNext2					stz			effectsDarkerInitValue
							import		GetDarker
							jsr			GetDarker
							beq			CoStNext3
							lda			#1
							sta			effectsDarkerInitValue
*
							import		effectsUnidirectInitValue
CoStNext3					stz			effectsUnidirectInitValue
							import		GetHeadScan
							jsr			GetHeadScan
							beq			CoStNext4
							lda			#1
							sta			effectsUnidirectInitValue
*							
							import		GetOrientation
CoStNext4					jsr			GetOrientation
							sta			CoStOrientationState		;we do this ourselves

*Now go draw the window with all the controls:
							import		StyleControlTemp
							lda			#StyleControlTemp			;get address of control template
							sta			ParamLongA+0				;list for this dialog box
							lda			#^StyleControlTemp
							sta			ParamLongA+2
							jsr			StartDialog					;draw dialog window and controls

*Setup TaskMask to handle keyboard events:
							lda			#^DialogTaskMaskYesKeys		;need change hi word only...
							sta			DialogTaskMask+2

*Take events until OK or CANCEL:
CoStEventLoop				pha										;result space
							pushword	#$FFFF						;event mask for taskmaster
							pushlong	#DialogTaskRecord			;where to stuff event data
							_TaskMaster								;go handle events in window
							pla										;get result code
							
*Redraw ctls for update evt.  Rely on at least 1 update event @ first to invert apt port/land icon:
							cmp			#6							;update event?
							beq			CoStIsUpdate1
							brl			CoStNotUpdate
CoStIsUpdate1				ldx			DialogWindowPtr+0			;check if it's our window
							cpx			DialogTaskData+0
							beq			CoStIsUpdate2
							brl			CoStNotUpdate
CoStIsUpdate2				ldy			DialogWindowPtr+2
							cpy			DialogTaskData+2
							beq			CoStIsUpdate3
							brl			CoStNotUpdate
CoStIsUpdate3
*
							phy										;prepare to redraw all controls
							phx
							_BeginUpdate
*
							pushlong	DialogWindowPtr				;recreate all control handles
							_KillControls							;because port/land were deleted
							pha
							pha
							pushlong	DialogWindowPtr
							pushword	#3
							pushlong	#StyleControlTemp
							_NewControl2
							pla
							pla
*
							jsr			RedrawDialog				;do redrawing
*
							pha										;dump port/land so won't track
							pha
							pushlong	DialogWindowPtr
							pushlong	#orientationPortraitItemID
							_GetCtlHandleFromID
							_DisposeControl
							pha
							pha
							pushlong	DialogWindowPtr
							pushlong	#orientationLandscapeItemID
							_GetCtlHandleFromID
							_DisposeControl
*
							lda			CoStOrientationState		;do initial invert of port/land
							cmp			#1
							beq			CoStRedrawIItsLand
							import		orientationPortraitRect
CoStRedrawIItsPort			pushlong	#orientationPortraitRect
							bra			CoStRedrawInvert
							import		orientationLandscapeRect
CoStRedrawIItsLand			pushlong	#orientationLandscapeRect
CoStRedrawInvert			_InvertRect
*
							pushlong	DialogWindowPtr				;done redrawing all controls
							_EndUpdate
*
							brl			CoStEventLoop				;go handle another event
CoStNotUpdate

*Begin check for our own manual "icon radio buttons":
							cmp			#wInContent					;mouse down on icon(?) event yet?
							beq			CoStCheckIconButtons		;yes, so check icon buttons
							brl			CoStCheckOtherCtrl			;no, check other events

*Do our "icon radio buttons" entirely ourselves:
CoStCheckIconButtons		pushlong	#DialogWhere				;modify mouse coordinates...
							_GlobalToLocal							;...to window coordinates
							pha										;result space
							pushlong	#DialogWhere				;check our point...
							pushlong	#orientationPortraitRect	;...against portrait icon
							_PtInRect
							pla
							beq			CoStNotPortrait				;it's not in portrait icon
							lda			CoStOrientationState		;mouse is now down in portrait
							bne			CoStFlipOrientation			;flip 'em
							brl			CoStEventLoop				;forget it, already in portrait
*
CoStNotPortrait				pha										;result space
							pushlong	#DialogWhere				;check our point...
							pushlong	#orientationLandscapeRect	;...against landscape icon
							_PtInRect
							pla
							beq			CoStCheckOtherCtrl			;it's not in landscape icon
							lda			CoStOrientationState		;mouse is now down in landscape
							beq			CoStFlipOrientation
							brl			CoStEventLoop
CoStFlipOrientation			eor			#1							;flip bit
							sta			CoStOrientationState		;remember it
							pushlong	#orientationPortraitRect	;invert both icons, thus moving
							_InvertRect								;the highlight to the other one
							pushlong	#orientationLandscapeRect
							_InvertRect
							brl 		CoStEventLoop				;were done; go for more

*Handle other control events:
CoStCheckOtherCtrl

*Check for key-equivalent Key2-with-Command-key:
							tax
							cmp			#$0003						;keyDown event?
							bne			CoStDoneKeyDown
							lda			DialogMessage				;Key1 equivalent is already
							import		cancelItemKey2Equiv			;being handled by taskmaster
							cmp			#cancelItemKey2Equiv		;also do cancel if Key2 is
							bne			CoStDoneKeyDown				;down at the same time with
							lda			DialogModifiers				;the Command key
							and			#$0100
							beq			CoStDoneKeyDown
CoStItsKey2Cancel			pha										;do hilite and go cancel
							pha
							pushlong	DialogWindowPtr
							pushlong	#cancelItemID
							_GetCtlHandleFromID
							pulllong	ParamLongA
							pushword	#1
							pushlong	ParamLongA
							_HiliteControl
							pushword	#0
							pushlong	ParamLongA
							_HiliteControl
							bra			CoStItsCancel
CoStDoneKeyDown				txa

*Check for mousedown in a control such as a button, else loop back:
							cmp			#$0021						;wInControl event yet?
							beq			CoStGotCtrl
							brl			CoStEventLoop				;...loop until such event
CoStGotCtrl					lda			DialogTaskData4				;get lo order control item ID

*Just get out if Cancel selected:
							cmp			#cancelItemID				;if Cancel, let's exit
							bne			CoStNotCancel
CoStItsCancel				jsr			FinishDialog				;dump dialog box
							lda			#0							;confirmFlag will be false
							rts

*Resume event handling if OK was not selected:
CoStNotCancel				cmp			#okItemID					;if OK, go save stuff & exit
							beq			CoStOkSelected
							brl			CoStEventLoop				;else resume event handling

*Save stuff in print record before leaving if OK selected:
CoStOkSelected				lda			CoStOrientationState		;do this one first; it's unique
							sta			OptionA
							import		SetOrientation
							jsr			SetOrientation
*
							lda			#paperTypeItemID
							jsr			GetControlValue
							sec
							sbc			#paperTypeUsaLtrItemID		;normalize
							sta			OptionA
							import		SetPaper
							jsr			SetPaper
*
							lda			#reductionItemID
							jsr			GetControlValue
							sec
							sbc			#reductionFullSizeItemID	;normalize
							sta			OptionA
							import		SetReduction
							jsr			SetReduction
*
							lda			#effectsNoGapsItemID
							jsr			GetControlValue
							sta			OptionA
							import		SetPageGap
							jsr			SetPageGap
*
							lda			#effectsCondensedItemID
							jsr			GetControlValue
							sta			OptionA
							import		SetVSize
							jsr			SetVSize
*
							lda			#effectsDarkerItemID
							jsr			GetControlValue
							sta			OptionA
							import		SetDarker
							jsr			SetDarker
*
							lda			#effectsUnidirectItemID
							jsr			GetControlValue
							sta			OptionA
							import		SetHeadScan
							jsr			SetHeadScan

*Now get rid of box, validate print record because it changed, and exit with ACC set:
							jsr			FinishDialog				;dump dialog box
							import		CalcMetrics					;make sure it's self-consistent
							jsr			CalcMetrics
							lda			#1							;confirmFlag will be true
							rts
							
*DATA: Keeping track of port/land icon buttons which we do ourselves:
CoStOrientationState		dc.w		0							;0=portrait; 1=landscape





*
*CONDUCTJOBDIALOG: Does dialogs/TaskMaster, metrics/change print record, checks installed options
*by communicating to printer.  If error happens during communication, returns with tool error set.
*On exit, ACC is set if OK was selected:
*
							export		ConductJobDialog

ConductJobDialog			jsr			GetOutputPortName			;complete "IMAGEWRITER LQ/XXX"

*Make dialogdata contain values from print record EXCEPT page range and number of copies:
							import		GetQuality
							jsr			GetQuality
							clc
							adc			#printQualityDraftItemID
							import		printQualityInitValue
							sta			printQualityInitValue
*							
							import		GetColor
							jsr			GetColor
							php
							ldy			#chromaMonochromeItemID
							plp
							beq			CoJoSetIt2
							iny
							import		chromaInitValue
CoJoSetIt2					sty			chromaInitValue
*
							import		GetFeed
							jsr			GetFeed
							php
							ldy			#pageFeedManualItemID
							plp
							beq			CoJoSetIt3
							iny
							import		pageFeedInitValue
CoJoSetIt3					sty			pageFeedInitValue
*
							import		GetFeedFirstPage
							jsr			GetFeedFirstPage
							clc
							adc			#firstPageBin1ItemID
							import		firstPageInitValue
							sta			firstPageInitValue
*
							import		GetFeedOtherPages
							jsr			GetFeedOtherPages
							clc
							adc			#otherPagesBin1ItemID
							import		otherPagesInitValue
							sta			otherPagesInitValue

*Check color ribbon/sheet feeder options. If not available, set default and disable apt ctl items:
							stz			CoJoFlagToDisableColor	;assume we won't
							stz			CoJoFlagToDisableFeeder	;have to do this
							_WaitCursor							;inquiry might take a second
							pushlong	#0						;find out   ;dummy pix locinfo ptr
							pushlong	#0						;installed  ;dummy pix-pr rect ptr
							pushlong	#0						;printer    ;dummy color table ptr
							pushlong	#0						;options... ;dummy scb list ptr
							pushword	#0						;			;dummy carriage width
							pushword	#0						;			;dummy paper length
							pushword	#%0000000010100001		;ask for ID only
							pushword	#0						;dummy QualityBits (feature select)
							pushlong	#0						;no idleproc; quit stat ignored here
							import		Imager					;call imager, sends command to
							jsl			Imager					;printer and gets info or err code
							pha									;save result from inquiry
							_InitCursor							;restore/force arrow cursor
							pla									;restore result from inquiry
							cmp			#$0080					;check if inquiry_result or if error
							bcc			CoJoGotInfoOk			;go on if < $80: inquiry_result
							lda			#portNotOn				;otherwise, we don't have info, so:
CoJoAbortErr				sta			errNo					;...return tool error code
							jsr			NotCorrectDevDialog		;...issue complaining dialog
							lda			#0						;...clear exit stat (==>confirmFlag)
							rts									;...and exit
CoJoGotInfoOk				tax									;save ID state for re-use...
							and			#%0000000000000001		;is it really an ImageWriterLQ?
							bne			CoJoIsReallyLQ			;yes, so go on
							lda			#pntrConFailed			;not really LQ, so abort and clear
							bra			CoJoAbortErr			;exit stat so app knows not to print
CoJoIsReallyLQ				txa
							and			#%0000000000000010		;color ribbon?
							bne			CoJoHasFeature1			;yes, so go on, check the other one
							lda			#chromaMonochromeItemID	;else: 1: set to only possible option
							import		chromaInitValue
							sta			chromaInitValue
							lda			#1
							sta			CoJoFlagToDisableColor	;2: we'll disable other ctl item(s)
CoJoHasFeature1				txa
							and			#%0000000000000100		;sheet feeder(s)?
							bne			CoJoHasFeature2			;yes, so go on
							lda			#firstPageBin1ItemID	;else: 1: set to only possible option
							import		firstPageInitValue
							sta			firstPageInitValue
							lda			#otherPagesBin1ItemID
							import		otherPagesInitValue
							sta			otherPagesInitValue
							lda			#1
							sta			CoJoFlagToDisableFeeder	;2: we'll disable other ctl item(s)

*Set default page range and copies just like in PrDefault:
CoJoHasFeature2				lda			#1
							sta			OptionA
							lda			#32767
							sta			OptionB
							import		SetPageRange
							jsr			SetPageRange
							import		SetCopies
							jsr			SetCopies

*Now set up the LE boxes, and set the All/From-To radio button states:
							import		pagesFromBoxString
							import		pagesToBoxString
							import		copiesBoxString
							shortm
							stz			pagesFromBoxString		;reset from/to LE box lengths to zero
							stz			pagesToBoxString
							lda			#'1'					;but put "1" in #-of-copies LE box
							sta			copiesBoxString+1
							lda			#1
							sta			copiesBoxString
							import		pagesAllInitValue
							import		pagesRangeInitValue
							sta			pagesAllInitValue		;set default "All" pages radio button
							stz			pagesRangeInitValue
							longm

*Now draw the window with all the controls:
							import		JobControlTemp
							lda			#JobControlTemp			;get address of control template
							sta			ParamLongA+0
							lda			#^JobControlTemp
							sta 		ParamLongA+2
							jsr 		StartDialog				;draw window with controls

*Dim the appropriate popup menu items as determined above while checking installed options:
							lda			CoJoFlagToDisableColor
							beq			CoJoDontDisableColor
							lda			#chromaItemID
							sta			ParamWordA
							lda			#chromaColorItemID
							sta			ParamWordB
							jsr			DimPopUpItem
CoJoDontDisableColor		lda			CoJoFlagToDisableFeeder
							beq			CoJoDontDisableFeeder
							lda			#firstPageItemID
							sta			ParamWordA
							lda			#firstPageBin2ItemID
							sta			ParamWordB
							jsr			DimPopUpItem
							inc			ParamWordB
							jsr			DimPopUpItem
							lda			#otherPagesItemID
							sta			ParamWordA
							lda			#otherPagesBin2ItemID
							sta			ParamWordB
							jsr			DimPopUpItem
							inc			ParamWordB
							jsr			DimPopUpItem

*Setup TaskMask not to handle keyboard events:
CoJoDontDisableFeeder		lda			#^DialogTaskMaskNoKeys	;need change hi word only...
							sta			DialogTaskMask+2
							
*Setup our flag to ignore very first update event:
							lda			#1
							sta			DialogIsFirstUpdateFlag

*Get LineEdit (LE) handle ready for Copies item and then go to event loop:
							pha
							pha
							pushlong	DialogWindowPtr
							pushlong	#copiesBoxItemID
							_GetCtlHandleFromID
							pulllong	ParamLongA				;"Copies" item's handle in ParamLongA
							brl			CoJoSetLEAndGotoLoop	;go get LE hdl and go to event loop

*Event loop which gets mouseclicks/keys and controls animation:
CoJoEventLoop				pushlong	ParamLongA				;blink a cursor
							_LEIdle
CoJoDoTasks					pha									;result space
							pushword	#$FFFF					;event mask
							pushlong	#DialogTaskRecord		;where to stuff event data
							_TaskMaster							;do events
							pla
							
*Do redrawing of controls for update event, if necessary:
							cmp			#6						;update event?
							bne			CoJoNotUpdate
							ldx			DialogWindowPtr+0		;check if it's our window
							cpx			DialogTaskData+0
							bne			CoJoNotUpdate
							ldy			DialogWindowPtr+2
							cpy			DialogTaskData+2
							bne			CoJoNotUpdate
							phy									;redraw all contents
							phx
							_BeginUpdate
							lda			DialogIsFirstUpdateFlag	;is it 1st update event this time?
							stz			DialogIsFirstUpdateFlag	;clear flag for next update event
							bne			CoJoDontRedrawUpdate	;if 1st update then ignore
							jsr			RedrawDialog
CoJoDontRedrawUpdate		pushlong	DialogWindowPtr
							_EndUpdate
							bra			CoJoEventLoop
CoJoNotUpdate
							
*Check for mousedown in a control or if a key was hit:
							cmp			#$0021					;wInControl?
							bne			CoJoNotInCtrl
							brl			CoJoCheckCtrls
CoJoNotInCtrl				cmp			#$0003					;keyDownEvt?
							bne			CoJoEventLoop

*A key has been hit; do OK/Cancel hilite ourselves if selected because not going thru taskmaster:
							lda			DialogMessage
							import		okItemKeyEquiv
							cmp			#okItemKeyEquiv
							bne			CoJoNotKeyOk
							
CoJoItsKeyOk				pha
							pha
							pushlong	DialogWindowPtr
							pushlong	#okItemID
							_GetCtlHandleFromID
							pulllong	ParamLongA				;clobber this, but we're out anyway
							pushword	#1
							pushlong	ParamLongA
							_HiliteControl
							pushword	#0
							pushlong	ParamLongA
							_HiliteControl
							brl			CoJoOk
							
							import		cancelItemKey1Equiv
							import		cancelItemKey2Equiv
CoJoNotKeyOk				tax
							cmp			#cancelItemKey1Equiv	;do cancel if either Key1 (ESC) or
							beq			CoJoItsKeyCancel		;Key2 (.) with Command-key down
							cmp			#cancelItemKey2Equiv
							bne			CoJoNotKeyCancel
							lda			DialogModifiers
							and			#$0100
							bne			CoJoItsKeyCancel
CoJoNotKeyCancel			txa
							bra			CoJoDoneKeyEquiv
							
CoJoItsKeyCancel			pha
							pha
							pushlong	DialogWindowPtr
							pushlong	#cancelItemID
							_GetCtlHandleFromID
							pulllong	ParamLongA				;clobber this, but we're out anyway
							pushword	#1
							pushlong	ParamLongA
							_HiliteControl
							pushword	#0
							pushlong	ParamLongA
							_HiliteControl
							brl			CoJoCancel
CoJoDoneKeyEquiv

*If TAB and proper LEHandle, try to move insertion point to another box:
							cmp			#9						;TAB key?
							bne			CoJoNotKeyTab			;not TAB key
							
							pha
							pha
							_MakeNextCtlTarget
							pulllong	DialogTaskData2
							bra			CoJoFromToBox			;get new LE hdl, switch buttons
CoJoNotKeyTab

*Not OK/Cancel/TAB, so if we have LEHandle, filter out '0'..'9'/LE cmd keys and call LEKey:
							lda			DialogMessage			;look at keystroke ascii code
							shortm
							shortx
							ldy			#15
CoJoCheckKeyLoop			cmp			CoJoLEKeyTable,y		;is it a key we should handle?
							beq			CoJoLEKey
							dey
							bpl			CoJoCheckKeyLoop
							longm
							longx
							brl			CoJoEventLoop
CoJoLEKeyTable				dc.b		8,21,127,6,24,25,'0','1','2','3','4','5','6','7','8','9'
CoJoLEKey					longm
							longx
							pushword	DialogMessage
							pushword	DialogModifiers
							pushlong	ParamLongA
							_LEKey
							brl 		CoJoEventLoop

*Check if any new LE text boxes were selected; also change All/From-To radio buttons:
CoJoCheckCtrls				lda			DialogTaskData4			;get lo order control item ID
							cmp			#pagesFromBoxItemID
							beq			CoJoFromToBox
CoJoNotFromBox				cmp			#pagesToBoxItemID
							bne			CoJoNotFromToBox
CoJoFromToBox
							pushword	#0						;switch All/From-To radio button
							pha
							pha
							pushlong	DialogWindowPtr
							pushlong	#pagesAllItemID
							_GetCtlHandleFromID
							_SetCtlValue						;turn "All" radio button off
							pushword	#1
							pha
							pha
							pushlong	DialogWindowPtr
							pushlong	#pagesRangeItemID
							_GetCtlHandleFromID
							_SetCtlValue						;turn the other radio button on
							bra			CoJoItsBox
CoJoNotFromToBox			
							cmp			#copiesBoxItemID
							bne			CoJoNoLEBoxes

*We selected a box; get its LE handle:
CoJoItsBox					lda			DialogTaskData2			;get handle to control record
							sta			ParamLongA+0
							lda			DialogTaskData2+2
							sta			ParamLongA+2

*Get LE handle from ctl handle and then go to event loop:
CoJoSetLEAndGotoLoop		lda			[ParamLongA]			;this section transforms a control
							tax									;handle to a LE control into a
							ldy			#2						;LE record handle
							lda			[ParamLongA],y
							sta			ParamLongA+2
							stx			ParamLongA+0
							ldy			#octlData				;offset into ctrl rec for LE handle
							lda			[ParamLongA],y			;lo order word of LE handle
							tax
							iny
							iny
							lda			[ParamLongA],y			;hi order word of LE handle
							sta			ParamLongA+2
							stx			ParamLongA+0			;ParamLongA now has LE handle
							brl			CoJoEventLoop

*If no boxes were clicked, since we got wInControl, check for other possibilities:
CoJoNoLEBoxes

*Exit without affecting print record if Cancel select:
							cmp			#cancelItemID
							bne			CoJoNotCancel
CoJoCancel					jsr			FinishDialog			;dump dialog box
							lda			#0						;confirmFlag will be false
							rts

*If OK select, save data in print record; else resume event handling:
CoJoNotCancel				cmp			#okItemID
							beq			CoJoOk
							brl			CoJoEventLoop
*
CoJoOk						lda			#printQualityItemID
							jsr			GetControlValue
							sec
							sbc			#printQualityDraftItemID	;normalize
							sta			OptionA
							import		SetQuality
							jsr			SetQuality
*
							lda			#chromaItemID
							jsr			GetControlValue
							sec
							sbc			#chromaMonochromeItemID		;normalize
							sta			OptionA
							import		SetColor
							jsr			SetColor
*
							lda			#pageFeedItemID
							jsr			GetControlValue
							sec
							sbc			#pageFeedManualItemID		;normalize
							sta			OptionA
							import		SetFeed
							jsr			SetFeed
*
							lda			#firstPageItemID
							jsr			GetControlValue
							sec
							sbc			#firstPageBin1ItemID		;normalize
							sta			OptionA
							import		SetFeedFirstPage
							jsr			SetFeedFirstPage
*
							lda			#otherPagesItemID
							jsr			GetControlValue
							sec
							sbc			#otherPagesBin1ItemID		;normalize
							sta			OptionA
							import		SetFeedOtherPages
							jsr			SetFeedOtherPages
							
*Initially assume default values for both parts of the page range:
							lda			#1
							sta			OptionA
							lda			#32767
							sta			OptionB

*If "All" page range option selected, skip the following few sections:
							lda			#pagesAllItemID
							jsr			GetControlValue
							cmp			#1
							beq			CoJoSetPageRange
							
*"All" not selected, so get each part of the page range only if nonzero.  Pin on upper limit:
							lda			#pagesFromBoxItemID			;convert "From" string to number
							jsr			GetBoxValue
							cmp			#0							;if zero, keep our default
							beq			CoJoDontConsiderPgRngA
							cmp			#32768						;pin to largest value and store
							bcc			CoJoConsiderPgRngA
							lda			#32767
CoJoConsiderPgRngA			sta			OptionA
CoJoDontConsiderPgRngA
							lda			#pagesToBoxItemID			;convert "To" string to number
							jsr			GetBoxValue
							cmp			#0							;if zero, keep our default
							beq			CoJoDontConsiderPgRngB
							cmp			#32768						;pin to largest value and store
							bcc			CoJoConsiderPgRngB
							lda			#32767
CoJoConsiderPgRngB			sta			OptionB
CoJoDontConsiderPgRngB

*With first page in OptionA and last page in OptionB, see if backwards:
							lda			OptionB
							cmp			OptionA						;check page range
							bcs			CoJoPageRangeNotBackwards	;at it's least not backwards
							ldx			OptionA						;else exchange A,B...
							sta			OptionA
							stx			OptionB
CoJoPageRangeNotBackwards

*With sane values for first page in OptionA and last page in OptionB, set the page range:
							import		SetPageRange
CoJoSetPageRange			jsr			SetPageRange

*Set number of copies, pinning to largest possible value and ensuring nonzero:
							lda			#copiesBoxItemID			;convert "Copies" str to number
							jsr			GetBoxValue
							cmp			#32768						;pin within range 1..32767...
							bcc			CoJoNoPinCopies1
							lda			#32767
CoJoNoPinCopies1			cmp			#0
							bne			CoJoNoPinCopies2
							lda			#1
CoJoNoPinCopies2			sta			OptionA
							import		SetCopies
							jsr			SetCopies

*Dump dialog box, validate print record because it changed, and exit with ACC set:
							jsr			FinishDialog				;dump the box
							import		CalcMetrics					;make sure it's self-consistent
							jsr			CalcMetrics
							lda			#1							;confirmFlag will be true
							rts

*Static variables:
CoJoFlagToDisableColor		dc.w		0
CoJoFlagToDisableFeeder		dc.w		0






*
*SUBROUTINES: Used by routines above to perform various setup/shutdown and repeated tasks:
*





*
*STARTDIALOG: Draws our standard dialog window; fills with control list given by "ParamLongA":
*
StartDialog					pha									;result space for old grafport
							pha	
							_GetPort
							pulllong	OldGrafPortPtr			;save old grafport pointer

*Modify coordinates of dialog window to suit 320/640 mode:
							import		WindowCoordX2			;get ready to modify dialog coords
							lda			WindowCoordX2
							sec
							import		WindowCoordX1
							sbc			WindowCoordX1			;calc box size (silly at runtime)
							sta			ParamWordA				;save size
							pha									;result space for scb
							_GetMasterSCB
							pla
							ldx			#640					;assume 640 mode for a sec
							and			#$80					;look at mode bit (1=640, 0=320)
							bne			StDiMode640
							ldx			#320					;change assumption made above
StDiMode640					txa
							sec
							sbc			ParamWordA				;a-reg now has [320|640] - (X2-X1)
							lsr a								;divide by two
							sta			WindowCoordX1			;this is left coordinate of box
							clc
							adc			ParamWordA				;maintain proper box size
							sta			WindowCoordX2			;this is right coordinate of box

*Draw the window on the screen and set as current port:
							pushlong	#0						;result space for window grafportptr
							import		WindowTemp
							pushlong	#WindowTemp
							_NewWindow							;draw window from template
							lda 		1,s						;keep on stack for SetPort only
							sta 		DialogWindowPtr+0		;and also save it away
							lda 		3,s
							sta 		DialogWindowPtr+2
							_SetPort							;set our window as current port
							
*Create (but don't draw yet) the controls in the window using the given control template:
							pushlong	#0						;result space
							pushlong	DialogWindowPtr			;window's grafport to draw in
							pushword	#3						;ptrToPtr input reference
							pushlong	ParamLongA				;get desired control template
							_NewControl2
							pla									;we don't need these zeros
							pla
							
*Draw the controls and exit:
							jsr			RedrawDialog
							rts





*
*REDRAWDIALOG: Call this routine to redraw the contents of window (during update event, for example):
*
RedrawDialog				pushlong	DialogWindowPtr
							_DrawControls						;fill window with controls...
							pushword	#1						;draw horizontal adornment line...
							pushword	#2
							_SetPenSize
							import		WindowLineY
							import		WindowLineX1
							import		WindowLineX2
							pushword	#WindowLineX1
							pushword	#WindowLineY
							_MoveTo
							pushword	#WindowLineX2
							pushword	#WindowLineY
							_LineTo
							_InitCursor							;ensure arrow cursor...
							rts




							
*
*FINISHDIALOG: Call this routine when done with dialog; erases window/controls and releases memory:
*
FinishDialog				pushlong	DialogWindowPtr
							_KillControls						;dispose control memory
							pushlong	DialogWindowPtr
							_CloseWindow						;erase window and dispose memory
							pushlong	OldGrafPortPtr			;get old port pointer
							_SetPort							;restore it
							rts




				
*
*GETOUTPUTPORTNAME: Routine which sets up "XXX" part in "IMAGEWRITER LQ/XXX" in dialog data:
*
GetOutputPortName			pha
							pha
							ldx			#$2913						;get pointer to str w/ port name
							jsl			$E10000						;_PMGetPortName
							pulllong	ParamLongA
							shortm
							shortx
							lda			[ParamLongA]
							tay
							clc
							import		PortTitleLenOrig
							adc			#PortTitleLenOrig			;store correct length of full...
							import		PortTitleLen				;ie, "IMAGEWRITER LQ/PRINTER"...
							sta			PortTitleLen				;...port title...
GePoNaStrCpy				lda			[ParamLongA],y				;and copy PRINTER, etc., string
							import		PortTitleStr
							sta			PortTitleStr-1,y
							dey
							bne			GePoNaStrCpy
							longm
							longx
							rts





*
*DIMPOPUPITEM: Dims pop-up menu item. Menu_ctl_ID -> ParamWordA, Menu_ctl_item_ID -> ParamWordB:
*
DimPopUpItem				pha										;save menu bar hdl on stack...
							pha
							_GetMenuBar
							pha										;result space...
							pha										;...for GetCtlHandleFromID
							pushlong	DialogWindowPtr				;pass window pointer
							pushword	#0							;pass hi order word of ID
							pushword	ParamWordA					;pass lo order word of ID
							_GetCtlHandleFromID						;get pop-up control handle...
							_SetMenuBar								;...and set as current menu bar
							pushword	ParamWordB					;now that menu mgr knows about
							_DisableMItem							;our control, disable item
							_SetMenuBar								;...restore menu bar from stack
							rts





*
*GETCONTROLVALUE: Obtains control state. Put ID lo order word -> ACC; on exit, ACC -> control value:
*
GetControlValue				sta			ParamWordA					;save for use in a second
							pha										;result space for GetCtlValue
							pha										;result space...
							pha										;...for GetCtlHandleFromID
							pushlong	DialogWindowPtr				;pass window pointer
							pushword	#0							;pass hi order word of ID
							pushword	ParamWordA					;pass lo order word of ID
							_GetCtlHandleFromID						;get handle
							_GetCtlValue							;use handle to get value
							pla										;leave value in accumulator
							rts
							


							
							
*
*GETBOXVALUE: Gets integer from LineEdit control.  Put ID lo order -> ACC; on exit, ACC -> integer:
*
GetBoxValue					sta			ParamWordA					;save for use in a second
							pha										;result space for GetCtlValue...
							pha										;...result space
							pushlong	DialogWindowPtr				;pass window pointer
							pushword	#0							;pass hi order word of ID
							pushword	ParamWordA					;pass lo order word of ID
							_GetCtlHandleFromID						;get handle to control record
							pulllong	ParamLongA					;get it off stack into dp
							lda			[ParamLongA]				;dereference the handle
							tax
							ldy			#2
							lda			[ParamLongA],y
							sta			ParamLongA+2
							stx			ParamLongA					;ParamLongA is now a pointer
							ldy			#octlData					;offset ctrl rec for LE handle
							lda			[ParamLongA],y
							tax
							iny
							iny
							lda			[ParamLongA],y				;a,x now has LE handle
							pha										;result space for LEGetTextHand
							pha										;result space for LEGetTextHand
							pha										;hi LE handle for LEGetTextHand
							phx										;lo LE handle for LEGetTextHand
							pha										;result space for LEGetTextLen
							pha										;hi LE handle for LEGetTextLen
							phx										;lo LE handle for LEGetTextLen
							_LEGetTextLen							;get length of our text line
							pullword	ParamWordA					;save length for use in a sec
							_LEGetTextHand							;get handle to our text line
							pulllong	ParamLongA					;get it off stack into dp
							lda			[ParamLongA]				;dereference the handle again
							tax
							ldy			#2
							lda			[ParamLongA],y
							sta			ParamLongA+2
							stx			ParamLongA					;we now have pointer to string!
							pha										;result space
							pushlong	ParamLongA					;pass the pointer
							pushword	ParamWordA					;pass string length
							pushword	#0							;pass that this is unsigned
							_Dec2Int								;convert ascii to word
							pla										;get result in accumulator
							rts
							
		
							


*
*DATA: Extended task record for TaskMaster usage, etc:
*
DialogTaskRecord:
DialogWhat					dc.w		0
DialogMessage				dc.l		0
DialogWhen					dc.l		0
DialogWhere					dc.w		0,0
DialogModifiers				dc.w		0
DialogTaskData				dc.l		0
DialogTaskMask				dc.l		DialogTaskMaskYesKeys
DialogLastClickTick			dc.l	    0
DialogClickCount			dc.w		0
DialogTaskData2				dc.l		0
DialogTaskData3				dc.l		0
DialogTaskData4				dc.l		0
DialogLastClickPt			dc.w		0,0
							;			 10987654321098765432109876543210
DialogTaskMaskYesKeys		equ			%00000000000100110000000000000110
DialogTaskMaskNoKeys		equ			%00000000000100010000000000000110

DialogIsFirstUpdateFlag		dc.w		0




							endproc
							end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/LQ/dialogdata.aii b/IIGS.601.SRC/GSToolbox/PrinterDrivers/LQ/dialogdata.aii
new file mode 100644
index 0000000..8c9464b
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/LQ/dialogdata.aii
@@ -0,0 +1 @@
+
******************************************************************************************
*                                                                                        *
*		Apple IIgs ImageWriter LQ Printer Driver                                         *
*                                                                                        *
*		File: dialogdata.aii -- Dialog box text and layout                               *
*                                                                                        *
*		Written by Ben Koning                                                            *
*		Copyright (C) 1989 Apple Computer, Inc.                                          *
*                                                                                        *
******************************************************************************************






							include		'equates.aii'
	
							
							include		'm16.util'
							include		'e16.control'
							include		'e16.window'
							include		'e16.dialog'
					

DialogDataRec				record		export





*
*STATUSWINDOWTEMP: Window template for status box:
*
							export		StatusWindowTemp
StatusWindowTemp			dc.w		StatusWindowTempEnd-StatusWindowTemp	;paramLength Word
							dc.w		fAlert+fQContent+fVis					;wFrameBits Word
							dc.l		0										;wTitle Pointer
							dc.l		0										;wRefCon Long 
							dc.w		0,0,0,0									;wZoom	Rect
							dc.l		0										;wColor WindColorPtr
							dc.w		0										;wYOrigin Integer
							dc.w		0										;wXOrigin Integer
							dc.w		200										;wDataH Word 
							dc.w		640										;wDataW Word 
							dc.w		200										;wMaxH Word 
							dc.w		640										;wMaxW Word
							dc.w		0										;wScrollVer Word
							dc.w		0										;wScrollHor Word
							dc.w		0										;wPageVer Word
							dc.w		0										;wPageHor Word 
							dc.l		0										;wInfoRefCon Long
							dc.w		0										;wInfoHeight Word
							dc.l		0										;wFrameDefProc Pointer
							dc.l		0 										;wInfoDefProc Pointer
							dc.l		0 										;wContDefProc Pointer
							dc.w		20										;wPosition Rect Y1
							export		StatusWindowCoordX1						;for 320/640 mod
StatusWindowCoordX1			dc.w		12										;wPosition Rect X1
							dc.w		20+25									;wPosition Rect Y2
							export		StatusWindowCoordX2						;for 320/640 mod
StatusWindowCoordX2			dc.w		308										;wPosition Rect X2
							dc.l		$FFFFFFFF								;wPlane GrafPortPtr
							dc.l		0										;wStorage WindRecPtr
StatusWindowTempEnd:
							export		StatusWindowTextY						;Y1 local text coord
StatusWindowTextY			dc.w		15





*
*MANFEEDALERTTEMP: Alert template for manual feed status dialog:
*
							export		ManFeedAlertTemp
ManFeedAlertTemp			dc.w		20										;boundsRect Y1
							export		ManFeedAlertTempCoordX1
ManFeedAlertTempCoordX1		dc.w		12										;boundsRect X1
							dc.w		20+50									;boundsRect Y2
							export		ManFeedAlertTempCoordX2
ManFeedAlertTempCoordX2		dc.w		308										;boundsRect X2
							dc.w		mesgFeedPromptID						;alertID
							dc.b		$80										;stage 1 - no beep
							dc.b		$80										;stage 2 - no beep
							dc.b		$80										;stage 3 - no beep
							dc.b		$80										;stage 4 - no beep
							dc.l		ManFeedAlertTempOKButtItem				;item #1
							dc.l		ManFeedAlertTempNGButtItem				;item #2
							dc.l		ManFeedAlertTempStringItem				;item #3
							dc.l		0										;terminator
							
ManFeedAlertTempOKButtItem	dc.w		mesgFeedPromptOKButtID					;itemID
							dc.w		28,180,0,0								;coords
							dc.w		buttonItem								;itemType
							dc.l		ManFeedAlertTempOKButtStr				;itemDescriptor
							dc.w		0										;itemValue
							dc.w		0										;itemFlag
							dc.l		0										;itemColor
ManFeedAlertTempOKButtStr	str			'Continue'

ManFeedAlertTempNGButtItem	dc.w		mesgFeedPromptNGButtID					;itemID
							dc.w		28,85,0,0								;coords
							dc.w		buttonItem								;itemType
							dc.l		ManFeedAlertTempNGButtStr				;itemDescriptor
							dc.w		0										;itemValue
							dc.w		0										;itemFlag
							dc.l		0										;itemColor
ManFeedAlertTempNGButtStr	str			'Cancel'

ManFeedAlertTempStringItem	dc.w		mesgFeedPromptStringID					;itemID
							dc.w		9,84,200,640							;coords
							dc.w		statText+itemDisable					;itemType/disabled
							dc.l		ManFeedAlertTempStringStr				;itemDescriptor
							dc.w		0										;itemValue
							dc.w		0										;itemFlag
							dc.l		0										;itemColor
ManFeedAlertTempStringStr	dc.b		ManFeedAlertTempStrE-ManFeedAlertTempStrB
ManFeedAlertTempStrB		dc.b		'Insert sheet for page: '
							export		ManFeedAlertTempPageNo					;for modification
ManFeedAlertTempPageNo		dc.b		'XXXXX'
ManFeedAlertTempStrE





*
*DEVALERTSTRING: Alert string for if improper device is connected or device error:
*
							export		DevAlertString
DevAlertString				dc.b		'3'										;box size spec
							dc.b		'3'										;icon spec "note"
							dc.b		'/'										;separator
							dc.b		'Device not an ImageWriter LQ, '
							dc.b		'not ready, or out of paper.'
							dc.b		'/'										;separator
							dc.b		'^#1'									;btn dflt "Cancel" 0
							dc.b		0										;terminator





*
*Status messages used in the status box during printing:
*
							export		StMePrinterOpenMesg						;during PrinterOpen
StMePrinterOpenMesg			str			'Establishing communication'
							export		StMePrinterResetMesg					;during PrinterReset
StMePrinterResetMesg		str			'Positioning print head'
							export		StMeFirstProgressMesg					;first mesg in box
StMeFirstProgressMesg		str			'Preparing to receive page data'
							export		StMeSpoolProgressMesg					;MUST be 30 chars!
StMeSpoolProgressMesg		str			'Recording data for page: XXXXX'
							export		StMeDraftProgressMesg					;MUST be 30 chars!
StMeDraftProgressMesg		str			'Currently printing page: XXXXX'
							export		StMeSheetsLeftMesg						;MUST be 30 chars!
StMeSheetsLeftMesg			str			'Sheets  left  to  print: XXXXX'
							export		StMeMallocMesg							;during bandbuff get
StMeMallocMesg				str			'Allocating imaging memory'
							export		StMeRenderingMesg						;during DrawPicture
StMeRenderingMesg			str			'Rendering page image'
							export		StMeCancellingMesg						;during abort ops
StMeCancellingMesg			str			'Cancelling'
							export		StMeCommunicationMesg					;for if status error
StMeCommunicationMesg		str			'Printer communications error'
							export		StMeOutOfPaperMesg						;for if status error
StMeOutOfPaperMesg			str			'Printer is out of paper'
							export		StMePaperJamMesg						;for if status error
StMePaperJamMesg			str			'Printer paper is jammed'
							export		StMeCoverOpenMesg						;for if status error
StMeCoverOpenMesg			str			'Printer cover is open'
							export		StMeSelectOffMesg						;for if status error
StMeSelectOffMesg			str			'Printer select is off'
							export		StMeInUseMesg							;for if status error
StMeInUseMesg				str			'Printer is in use'






*
*WINDOWTEMP: Window template for both of our dialogs (we just make the controls fit one size box):
*
							export		WindowTemp
WindowTemp					dc.w		WindowTempEnd-WindowTemp				;paramLength Word
							dc.w		fAlert+fQContent+fVis					;wFrameBits Word
							dc.l		0										;wTitle Pointer
							dc.l		0										;wRefCon Long 
							dc.w		0,0,0,0									;wZoom	Rect
							dc.l		0										;wColor WindColorPtr
							dc.w		0										;wYOrigin Integer
							dc.w		0										;wXOrigin Integer
							dc.w		200										;wDataH Word 
							dc.w		640										;wDataW Word 
							dc.w		200										;wMaxH Word 
							dc.w		640										;wMaxW Word
							dc.w		0										;wScrollVer Word
							dc.w		0										;wScrollHor Word
							dc.w		0										;wPageVer Word
							dc.w		0										;wPageHor Word 
							dc.l		0										;wInfoRefCon Long
							dc.w		0										;wInfoHeight Word
							dc.l		0										;wFrameDefProc Pointer
							dc.l		0 										;wInfoDefProc Pointer
							dc.l		0 										;wContDefProc Pointer
							dc.w		20										;wPosition Rect Y1
							export		WindowCoordX1							;for 320/640 mod
WindowCoordX1				dc.w		12										;wPosition Rect X1
							dc.w		180										;wPosition Rect Y2
							export		WindowCoordX2							;for 320/640 mod
WindowCoordX2				dc.w		308										;wPosition Rect X2
							dc.l		$FFFFFFFF								;wPlane GrafPortPtr
							dc.l		0										;wStorage WindRecPtr
WindowTempEnd:





*
*Coordinates for adornment line separating title/version info from controls in the dialog boxes:
*
							export		WindowLineY:equ
							export		WindowLineX1:equ
							export		WindowLineX2:equ
WindowLineY					equ			14
WindowLineX1				equ			7
WindowLineX2				equ			287





*
*STYLECONTROLTEMP: Control templates for the style dialog window for PrStlDialog call:
*
							export		StyleControlTemp
StyleControlTemp			dc.l		orientationLandscapeItem
							dc.l		orientationPortraitItem
							dc.l		orientationTitleItem
							dc.l		effectsUnidirectItem
							dc.l		effectsDarkerItem
							dc.l		effectsTitle2Item
							dc.l		effectsCondensedItem
							dc.l		effectsNoGapsItem
							dc.l		effectsTitle1Item
							dc.l		reductionItem
							dc.l		paperTypeItem
							dc.l		titleItem								;these are common
							dc.l		versionItem								;items, shared by
							dc.l		cancelItem								;the other dialog
							dc.l		okItem									;boxes
							dc.l		0
					
							export		PortTitleLen							;"IMAGEWRITER/XXX"...
							export		PortTitleStr							;... set Len & Str
							export		PortTitleLenOrig:equ					;... for information
titleItem					dc.w		8										;pCount
							dc.l		titleItemID								;ID
							dc.w		3,6,13,258								;Rect
							dc.l		statTextControl							;ProcRef
							dc.w		1										;Flags
							dc.w		$1000									;MoreFlags
							dc.l		0										;RefCon
							dc.l		TiItStart								;TextRef
PortTitleLen				dc.w		PortTitleLenOrig						;space for len byte
TiItStart					dc.b		'ImageWriter LQ / '
TiItEnd:
PortTitleStr				dc.b		'XXXXXXXXXXXXXXX'						;space for portname
PortTitleLenOrig			equ			TiItEnd-TiItStart						;for computations
			
versionItem					dc.w		8										;pCount
							dc.l		versionItemID							;ID
							dc.w		3,258,13,298							;Rect
							dc.l		statTextControl							;ProcRef
							dc.w		1										;Flags
							dc.w		$1000									;MoreFlags
							dc.l		0										;RefCon
							dc.l		@VeTiStart								;TitleRef
							dc.w		@VeTiEnd-@VeTiStart						;Use "VersionID"...
@VeTiStart					dc.b		'v'										;...equate to...
							dc.b		('0'+(VersionID/256))					;...generate code...
							dc.b		'.'										;...for version...
							dc.b		('0'+(VersionID//256))					;...string
@VeTiEnd:
			
							export		cancelItemKey1Equiv:equ
							export		cancelItemKey2Equiv:equ
cancelItem					dc.w		9										;pCount
							dc.l		cancelItemID							;ID
							dc.w		128,220,128+11,284						;Rect
							dc.l		simpleButtonControl						;ProcRef
							dc.w		0										;Flags
							dc.w		$3000									;MoreFlags
							dc.l		0										;RefCon
							dc.l		@Title									;TitleRef
							dc.l		0										;ColorTableRef
							dc.b		cancelItemKey1Equiv						;KeyEquiv
							dc.b		cancelItemKey1Equiv						;both Key1
							dc.w		0
							dc.w		0
@Title						str			'Cancel'
cancelItemKey1Equiv			equ			27										;escape key equiv
cancelItemKey2Equiv			equ			'.'										;cmd-'.' key equiv
			
							export		okItemKeyEquiv:equ
okItem						dc.w		9										;pCount
							dc.l		okItemID								;ID
							dc.w		143,220,143+11,284						;Rect
							dc.l		simpleButtonControl						;ProcRef
							dc.w		1										;Flags
							dc.w		$3000									;MoreFlags
							dc.l		0										;RefCon
							dc.l		@Title									;TitleRef
							dc.l		0										;ColorTableRef
							dc.b		okItemKeyEquiv							;KeyEquiv
							dc.b		okItemKeyEquiv
							dc.w		0
							dc.w		0
@Title						str			'OK'
okItemKeyEquiv				equ			13										;return key equiv
			
paperTypeItem				dc.w		9										;pCount
							dc.l		paperTypeItemID							;ID
							dc.w		22,7,0,0								;Rect
							dc.l		popUpControl							;ProcRef
							dc.w		32										;Flags
							dc.w		$1004									;MoreFlags
							dc.l		0										;RefCon
							dc.w		95										;TitleWidth
							dc.l		paperTypePopUpMenu						;MenuRef
							export		paperTypeInitValue
paperTypeInitValue			dc.w		paperTypeUsaLtrItemID					;InitialValue
paperTypePopUpMenu			dc.b		'$$Paper Type:\H'
							dc.w		paperTypeItemID
							dc.b		0
*							
							dc.b		'--US Letter......8.5"x11"\H'
							dc.w		paperTypeUsaLtrItemID
							dc.b		0
*							
							dc.b		'--US Legal........8.5"x14"\H'
							dc.w		paperTypeUsaLglItemID
							dc.b		0
*							
							dc.b		'--US Stmnt.......5.5"x8.5"\H'
							dc.w		paperTypeUsaStmtItemID
							dc.b		0
*							
							dc.b		'---\N256D',0
*							
							dc.b		'--European A4......8"x12"\H'
							dc.w		paperTypeEurA4ItemID
							dc.b		0
*							
							dc.b		'--European B5......7"x10"\H'
							dc.w		paperTypeEurB5ItemID
							dc.b		0
*							
							dc.b		'--Intl Fanfold....8"x12"\H'
							dc.w		paperTypeEurIntlFFItemID
							dc.b		0
*							
							dc.b		'---\N256D',0
*							
							dc.b		'--Wide Fanfold..14"x11"\H'
							dc.w		paperTypeBigCompItemID
							dc.b		0
*							
							dc.b		'--Wide Ledger....11"x17"\H'
							dc.w		paperTypeBigLgrItemID
							dc.b		0
*							
							dc.b		'--Wide A3............12"x17"\H'
							dc.w		paperTypeBigIntlA3ItemID
							dc.b		0
*							
							dc.b		'--Newspaper......14"x23"\H'
							dc.w		paperTypeBigNewsItemID
							dc.b		0
*
							dc.b		'---\N256D',0
*							
							dc.b		'--Envelope (#10)..9"x4"\H'
							dc.w		paperTypeEnvNo10ItemID
							dc.b		0
*							
							dc.b		'--Envelope (#9)....9"x4"\H'
							dc.w		paperTypeEnvNo9ItemID
							dc.b		0
*							
							dc.b		'--Envelope (#6)....7"x4"\H'
							dc.w		paperTypeEnvNo6ItemID
							dc.b		0
*							
							dc.b		'---\N256D',0
*
							dc.b		'--Label (Small)....3"x1"\H'
							dc.w		paperTypeLblSmlItemID
							dc.b		0
*
							dc.b		'--Label (Medium)..4"x1"\H'
							dc.w		paperTypeLblMedItemID
							dc.b		0
*
							dc.b		'--Label (Large)....4"x2"\H'
							dc.w		paperTypeLblLrgItemID
							dc.b		0
*
							dc.b		'--Label (Pkg)........4"x3"\H'
							dc.w		paperTypeLblPackingItemID
							dc.b		0
*
							dc.b		'--Label (3" Dsk)...3"x3"\H'
							dc.w		paperTypeLblDisk35ItemID
							dc.b		0
*
							dc.b		'--Label (5" Dsk)...5"x1"\H'
							dc.w		paperTypeLblDisk525ItemID
							dc.b		0
*
							dc.b		'.'
						
reductionItem				dc.w		9										;pCount
							dc.l		reductionItemID							;ID
							dc.w		41,7,0,0								;Rect
							dc.l		popUpControl							;ProcRef
							dc.w		32										;Flags
							dc.w		$1004									;MoreFlags
							dc.l		0										;RefCon
							dc.w		95										;TitleWidth
							dc.l		reductionPopUpMenu						;MenuRef
							export		reductionInitValue
reductionInitValue			dc.w		reductionFullSizeItemID					;InitialValue
reductionPopUpMenu			dc.b		'$$Reduction:\H'
							dc.w		reductionItemID
							dc.b		0
							dc.b		'--Full Size\H'
							dc.w		reductionFullSizeItemID
							dc.b		0
							dc.b		'--66% Life Size\H'
							dc.w		reduction33ItemID
							dc.b		0
							dc.b		'--33% Life Size\H'
							dc.w		reduction66ItemID
							dc.b		0
							dc.b		'.'
										
effectsTitle1Item			dc.w		8										;pCount
							dc.l		effectsTitle1ItemID						;ID
							dc.w		60,7,60+10,7+60							;Rect
							dc.l		statTextControl							;ProcRef
							dc.w		1										;Flags
							dc.w		$1000									;MoreFlags
							dc.l		0										;RefCon
							dc.l		@TitleStart								;TitleRef
							dc.w		@TitleEnd-@TitleStart					;TextSize
@TitleStart					dc.b		'Height:'
@TitleEnd:
			
effectsTitle2Item			dc.w		8										;pCount
							dc.l		effectsTitle2ItemID						;ID
							dc.w		87,7,87+10,7+60							;Rect
							dc.l		statTextControl							;ProcRef
							dc.w		1										;Flags
							dc.w		$1000									;MoreFlags
							dc.l		0										;RefCon
							dc.l		@TitleStart								;TitleRef
							dc.w		@TitleEnd-@TitleStart					;TextSize
@TitleStart					dc.b		'Options:'
@TitleEnd:
			
effectsNoGapsItem			dc.w		8										;pCount
							dc.l		effectsNoGapsItemID						;ID
							dc.w		60,102,0,0								;Rect
							dc.l		checkControl							;ProcRef
							dc.w		0										;Flags
							dc.w		$1000									;MoreFlags
							dc.l		0										;RefCon
							dc.l		effectsNoGapsTitle						;TitleRef
							export		effectsNoGapsInitValue
effectsNoGapsInitValue		dc.w		0										;InitialValue
effectsNoGapsTitle			str			'No Vertical Gaps'
			
effectsCondensedItem		dc.w		8										;pCount
							dc.l		effectsCondensedItemID					;ID
							dc.w		72,102,0,0								;Rect
							dc.l		checkControl							;ProcRef
							dc.w		0										;Flags
							dc.w		$1000									;MoreFlags
							dc.l		0										;RefCon
							dc.l		effectsCondensedTitle					;TitleRef
							export		effectsCondensedInitValue
effectsCondensedInitValue	dc.w		0										;InitialValue
effectsCondensedTitle		str			'Vertical Condense'
			
effectsDarkerItem			dc.w		8										;pCount
							dc.l		effectsDarkerItemID						;ID
							dc.w		87,102,0,0								;Rect
							dc.l		checkControl							;ProcRef
							dc.w		0										;Flags
							dc.w		$1000									;MoreFlags
							dc.l		0										;RefCon
							dc.l		effectsDarkerTitle						;TitleRef
							export		effectsDarkerInitValue
effectsDarkerInitValue		dc.w		0										;InitialValue
effectsDarkerTitle			str			'Darker'
			
effectsUnidirectItem		dc.w		8										;pCount
							dc.l		effectsUnidirectItemID					;ID
							dc.w		99,102,0,0								;Rect
							dc.l		checkControl							;ProcRef
							dc.w		0										;Flags
							dc.w		$1000									;MoreFlags
							dc.l		0										;RefCon
							dc.l		effectsUnidirectTitle					;TitleRef
							export		effectsUnidirectInitValue
effectsUnidirectInitValue	dc.w		0										;InitialValue
effectsUnidirectTitle		str			'Unidirectional'
			
orientationTitleItem		dc.w		8										;pCount
							dc.l		orientationTitleItemID					;ID
							dc.w		112,7,112+10,7+90						;Rect
							dc.l		statTextControl							;ProcRef
							dc.w		1										;Flags
							dc.w		$1000									;MoreFlags
							dc.l		0										;RefCon
							dc.l		@TitleStart								;TitleRef
							dc.w		@TitleEnd-@TitleStart					;TextSize
@TitleStart					dc.b		'Orientation:'
@TitleEnd:

							export		orientationPortraitRect
							export		portraitIcon
orientationPortraitItem		dc.w		7										;pCount
							dc.l		orientationPortraitItemID				;ID
orientationPortraitRect		dc.w		125+0,20+0,125+32,20+72					;Rect
							dc.l		iconButtonControl						;ProcRef
							dc.w		2										;Flag
							dc.w		$9000									;MoreFlags
							dc.l		0										;RefCon
							dc.l		portraitIcon							;IconRef
portraitIcon				dc.w		0										;iconType
							dc.w		325										;iconSize
							dc.w		25										;iconHeight
							dc.w		26										;iconWidth
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$F0,$00,$00,$00,$00,$00,$00,$0F,$FF,$FF,$FF,$FF
							dc.b		$FF,$F0,$FF,$FF,$FF,$FF,$FF,$FF,$00,$FF,$FF,$FF,$FF
							dc.b		$FF,$F0,$FF,$FF,$FF,$F0,$0F,$FF,$0F,$0F,$FF,$FF,$FF
							dc.b		$FF,$F0,$FF,$FF,$FF,$0F,$F0,$FF,$0F,$F0,$FF,$FF,$FF
							dc.b		$FF,$F0,$FF,$FF,$FF,$0F,$F0,$FF,$00,$00,$0F,$FF,$FF
							dc.b		$FF,$F0,$FF,$FF,$FF,$F0,$0F,$FF,$FF,$FF,$0F,$FF,$FF
							dc.b		$FF,$F0,$FF,$FF,$F0,$0F,$F0,$0F,$FF,$FF,$0F,$FF,$FF
							dc.b		$FF,$F0,$FF,$FF,$0F,$FF,$FF,$F0,$FF,$FF,$0F,$FF,$FF
							dc.b		$FF,$F0,$FF,$FF,$0F,$0F,$F0,$F0,$FF,$FF,$0F,$FF,$FF
							dc.b		$FF,$F0,$FF,$FF,$0F,$0F,$F0,$F0,$FF,$FF,$0F,$FF,$FF
							dc.b		$FF,$F0,$FF,$FF,$0F,$0F,$F0,$F0,$FF,$FF,$0F,$FF,$FF
							dc.b		$FF,$F0,$FF,$FF,$0F,$0F,$F0,$F0,$FF,$FF,$0F,$FF,$FF
							dc.b		$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
							dc.b		$0F,$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$F0,$F0
							dc.b		$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$F0
							dc.b		$0F,$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$F0,$F0
							dc.b		$0F,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$F0,$00
							dc.b		$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF
							dc.b		$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$FF
							dc.b		$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF
							dc.b		$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF
							dc.b		$0F,$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF
							dc.b		$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF
							dc.b		$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$FF
*Icon Mask							
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
			
							export		orientationLandscapeRect
							export		landscapeIcon
orientationLandscapeItem	dc.w		7										;pCount
							dc.l		orientationLandscapeItemID				;ID
orientationLandscapeRect	dc.w		125+0,98+0,125+32,98+72					;Rect
							dc.l		iconButtonControl						;ProcRef
							dc.w		2										;Flags
							dc.w		$9000									;MoreFlags
							dc.l		0										;RefCon
							dc.l		landscapeIcon							;IconRef
landscapeIcon				dc.w		0										;iconType
							dc.w		325										;iconSize
							dc.w		25										;iconHeight
							dc.w		26										;iconWidth
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$F0,$00,$00,$00,$00,$00,$00,$0F,$FF,$FF,$FF,$FF
							dc.b		$FF,$F0,$FF,$FF,$FF,$FF,$FF,$FF,$00,$FF,$FF,$FF,$FF
							dc.b		$FF,$F0,$FF,$FF,$FF,$FF,$FF,$FF,$0F,$0F,$FF,$FF,$FF
							dc.b		$FF,$F0,$00,$00,$00,$00,$FF,$FF,$0F,$F0,$FF,$FF,$FF
							dc.b		$FF,$F0,$FF,$FF,$FF,$FF,$0F,$FF,$00,$00,$0F,$FF,$FF
							dc.b		$FF,$F0,$00,$00,$00,$FF,$0F,$00,$FF,$FF,$0F,$FF,$FF
							dc.b		$FF,$F0,$FF,$FF,$FF,$FF,$F0,$FF,$0F,$FF,$0F,$FF,$FF
							dc.b		$FF,$F0,$FF,$FF,$FF,$FF,$F0,$FF,$0F,$FF,$0F,$FF,$FF
							dc.b		$FF,$F0,$00,$00,$00,$FF,$0F,$00,$FF,$FF,$0F,$FF,$FF
							dc.b		$FF,$F0,$FF,$FF,$FF,$FF,$0F,$FF,$FF,$FF,$0F,$FF,$FF
							dc.b		$FF,$F0,$00,$00,$00,$00,$FF,$FF,$FF,$FF,$0F,$FF,$FF
							dc.b		$FF,$F0,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$0F,$FF,$FF
							dc.b		$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
							dc.b		$0F,$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$F0,$F0
							dc.b		$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$F0
							dc.b		$0F,$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$F0,$F0
							dc.b		$0F,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$F0,$00
							dc.b		$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF
							dc.b		$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$FF
							dc.b		$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF
							dc.b		$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF
							dc.b		$0F,$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF
							dc.b		$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF
							dc.b		$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$FF
*Icon Mask							
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
			




*
*JOBCONTROLTEMP: Control templates for the job dialog window for PrJobDialog call:
*
							export		JobControlTemp
JobControlTemp				dc.l		otherPagesItem
							dc.l		firstPageItem
							dc.l		pageFeedItem
							dc.l		chromaItem
							dc.l		printQualityItem
							dc.l		pagesToBoxItem
							dc.l		pagesToTitleItem
							dc.l		pagesFromBoxItem
							dc.l		pagesFromTitleItem
							dc.l		pagesRangeItem
							dc.l		pagesAllItem
							dc.l		pagesTitleItem
							dc.l		copiesBoxItem
							dc.l		copiesTitleItem
							dc.l		titleItem								;use same title,
							dc.l		versionItem								;version, cancel
							dc.l		cancelItem								;and ok items as...
							dc.l		okItem									;the other dialog
							dc.l		0
										
printQualityItem			dc.w		9										;pCount
							dc.l		printQualityItemID						;ID
							dc.w		81,7,0,0								;Rect
							dc.l		popUpControl							;ProcRef
							dc.w		32										;Flags
							dc.w		$1004									;MoreFlags
							dc.l		0										;RefCon
							dc.w		108										;TitleWidth
							dc.l		printQualityPopUpMenu					;MenuRef
							export		printQualityInitValue
printQualityInitValue		dc.w		printQualityStandardItemID				;InitialValue
printQualityPopUpMenu		dc.b		'$$Quality:\H'
							dc.w		printQualityItemID
							dc.b		0
							dc.b		'--Text Only\H'
							dc.w		printQualityDraftItemID
							dc.b		0
							dc.b		'--Standard\H'
							dc.w		printQualityStandardItemID
							dc.b		0
							dc.b		'--Best\H'
							dc.w		printQualityBetterItemID
							dc.b		0
							dc.b		'.'
							
chromaItem					dc.w		9										;pCount
							dc.l		chromaItemID							;ID
							dc.w		95,7,0,0								;Rect
							dc.l		popUpControl							;ProcRef
							dc.w		32										;Flags
							dc.w		$1004									;MoreFlags
							dc.l		0										;RefCon
							dc.w		108										;TitleWidth
							dc.l		chromaPopUpMenu							;MenuRef
							export		chromaInitValue
chromaInitValue				dc.w		chromaMonochromeItemID					;InitialValue
chromaPopUpMenu				dc.b		'$$Chroma:\H'
							dc.w		chromaItemID
							dc.b		0
							dc.b		'--Black/White\H'
							dc.w		chromaMonochromeItemID
							dc.b		0
							dc.b		'--Color\H'
							dc.w		chromaColorItemID
							dc.b		0
							dc.b		'.'
			
pageFeedItem				dc.w		9										;pCount
							dc.l		pageFeedItemID							;ID
							dc.w		113,7,0,0								;Rect
							dc.l		popUpControl							;ProcRef
							dc.w		32										;Flags
							dc.w		$1004									;MoreFlags
							dc.l		0										;RefCon
							dc.w		108										;TitleWidth
							dc.l		pageFeedPopUpMenu						;MenuRef
							export		pageFeedInitValue
pageFeedInitValue			dc.w		pageFeedAutoItemID						;InitialValue
pageFeedPopUpMenu			dc.b		'$$Sheet Feed:\H'
							dc.w		pageFeedItemID
							dc.b		0
							dc.b		'--Automatic\H'
							dc.w		pageFeedAutoItemID
							dc.b		0
							dc.b		'--Manual\H'
							dc.w		pageFeedManualItemID
							dc.b		0
							dc.b		'.'
			
firstPageItem				dc.w		9										;pCount
							dc.l		firstPageItemID							;ID
							dc.w		127,7,0,0								;Rect
							dc.l		popUpControl							;ProcRef
							dc.w		32										;Flags
							dc.w		$1004									;MoreFlags
							dc.l		0										;RefCon
							dc.w		108										;TitleWidth
							dc.l		firstPagePopUpMenu						;MenuRef
							export		firstPageInitValue
firstPageInitValue			dc.w		firstPageBin1ItemID						;InitialValue
firstPagePopUpMenu			dc.b		'$$First Page:\H'
							dc.w		firstPageItemID
							dc.b		0
							dc.b		'--Bin 1\H'
							dc.w		firstPageBin1ItemID
							dc.b		0
							dc.b		'--Bin 2\H'
							dc.w		firstPageBin2ItemID
							dc.b		0
							dc.b		'--Bin 3\H'
							dc.w		firstPageBin3ItemID
							dc.b		0
							dc.b		'.'
			
otherPagesItem				dc.w		9										;pCount
							dc.l		otherPagesItemID						;ID
							dc.w		141,7,0,0								;Rect
							dc.l		popUpControl							;ProcRef
							dc.w		32										;Flags
							dc.w		$1004									;MoreFlags
							dc.l		0										;RefCon
							dc.w		108										;TitleWidth
							dc.l		otherPagesPopUpMenu						;MenuRef
							export		otherPagesInitValue
otherPagesInitValue			dc.w		otherPagesBin1ItemID					;InitialValue
otherPagesPopUpMenu			dc.b		'$$Other Pages:\H'
							dc.w		otherPagesItemID
							dc.b		0
							dc.b		'--Bin 1\H'
							dc.w		otherPagesBin1ItemID
							dc.b		0
							dc.b		'--Bin 2\H'
							dc.w		otherPagesBin2ItemID
							dc.b		0
							dc.b		'--Bin 3\H'
							dc.w		otherPagesBin3ItemID
							dc.b		0
							dc.b		'.'
			
pagesTitleItem				dc.w		8										;pCount
							dc.l		pagesTitleItemID						;ID
							dc.w		37,7,37+12,7+50							;Rect
							dc.l		statTextControl							;ProcRef
							dc.w		1										;Flags
							dc.w		$1000									;MoreFlags
							dc.l		0										;RefCon
							dc.l		@TitleStart								;TitleRef
							dc.w		@TitleEnd-@TitleStart					;TextSize
@TitleStart					dc.b		'Pages:'
@TitleEnd:

pagesAllItem				dc.w		8										;pCount
							dc.l		pagesAllItemID							;ID
							dc.w		37,115,0,0								;Rect
							dc.l		radioControl							;ProcRef
							dc.w		0										;Flags
							dc.w		$1000									;MoreFlags
							dc.l		0										;RefCon
							dc.l		pagesAllTitle							;TitleRef
							export		pagesAllInitValue			
pagesAllInitValue			dc.w		0										;InitialValue
pagesAllTitle				str			'All'
			
pagesRangeItem				dc.w		8										;pCount
							dc.l		pagesRangeItemID						;ID
							dc.w		37,180,0,0								;Rect
							dc.l		radioControl							;ProcRef
							dc.w		0										;Flags
							dc.w		$1000									;MoreFlags
							dc.l		0										;RefCon
							dc.l		pagesRangeTitle							;TitleRef
							export		pagesRangeInitValue
pagesRangeInitValue			dc.w		0										;InitialValue
pagesRangeTitle				str			'Range'
		
pagesFromTitleItem			dc.w		8										;pCount
							dc.l		pagesFromTitleItemID					;ID
							dc.w		50,74,50+12,74+36						;Rect
							dc.l		statTextControl							;ProcRef
							dc.w		1										;Flags
							dc.w		$1000									;MoreFlags
							dc.l		0										;RefCon
							dc.l		@TitleStart								;TitleRef
							dc.w		@TitleEnd-@TitleStart					;TextSize
@TitleStart					dc.b		'From'
@TitleEnd:

							export		pagesFromBoxString
pagesFromBoxItem			dc.w		8										;pCount
							dc.l		pagesFromBoxItemID						;ID
							dc.w		49,115,49+13,115+52						;Rect
							dc.l		$83000000								;PR: lineEditControl
							dc.w		0										;Flags
							dc.w		$7000									;MoreFlags
							dc.l		0										;RefCon
							dc.w		5										;MaxSize
							dc.l		pagesFromBoxString						;DefaultRef
pagesFromBoxString			str			'XXXXX'
			
pagesToTitleItem			dc.w		8										;pCount
							dc.l		pagesToTitleItemID						;ID
							dc.w		64,74,64+12,74+20						;Rect
							dc.l		statTextControl							;ProcRef
							dc.w		1										;Flags
							dc.w		$1000									;MoreFlags
							dc.l		0										;RefCon
							dc.l		@TitleStart								;TitleRef
							dc.w		@TitleEnd-@TitleStart					;TextSize
@TitleStart					dc.b		'To'
@TitleEnd:

							export		pagesToBoxString			
pagesToBoxItem				dc.w		8										;pCount
							dc.l		pagesToBoxItemID						;ID
							dc.w		63,115,63+13,115+52						;Rect
							dc.l		$83000000								;PR: lineEditControl
							dc.w		0										;Flags
							dc.w		$7000									;MoreFlags
							dc.l		0										;RefCon
							dc.w		5										;MaxSize
							dc.l		pagesToBoxString						;DefaultRef
pagesToBoxString			str			'XXXXX'

copiesTitleItem				dc.w		8										;pCount
							dc.l		copiesTitleItemID						;ID
							dc.w		21,7,21+12,7+50							;Rect
							dc.l		statTextControl							;ProcRef
							dc.w		1										;Flags
							dc.w		$1000									;MoreFlags
							dc.l		0										;RefCon
							dc.l		@TitleStart								;TitleRef
							dc.w		@TitleEnd-@TitleStart					;TextSize
@TitleStart					dc.b		'Copies:'
@TitleEnd:
			
							export		copiesBoxString
copiesBoxItem				dc.w		8										;pCount
							dc.l		copiesBoxItemID							;ID
							dc.w		20,115,20+13,115+52						;Rect
							dc.l		$83000000								;PR: lineEditControl
							dc.w		0										;Flags
							dc.w		$7000									;MoreFlags
							dc.l		0										;RefCon
							dc.w		5										;MaxSize
							dc.l		copiesBoxString							;DefaultRef
copiesBoxString				str			'XXXXX'
							




*
*ABOUTALERTSTRING: About-box content definition:
*
							export		AboutAlertString
AboutAlertString			dc.b		'6'										;box size spec
							dc.b		'3'										;icon spec "note"
							dc.b		'/'										;separator
							dc.b		'ImageWriter LQ printer driver '
							dc.b		'by Ben Koning.  Imaging code '
							dc.b		'originally by Jason '
							dc.b		'Harper.  Copyright 1991 Apple '
							dc.b		'Computer.'
							dc.b		'/'										;separator
							dc.b		'^#0'									;btn dflt "OK" 0
							dc.b		0										;terminator





							endr
							end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/LQ/entry.aii b/IIGS.601.SRC/GSToolbox/PrinterDrivers/LQ/entry.aii
new file mode 100644
index 0000000..a3abe2a
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/LQ/entry.aii
@@ -0,0 +1 @@
+
******************************************************************************************
*                                                                                        *
*		Apple IIgs ImageWriter LQ Printer Driver                                         *
*                                                                                        *
*		File: entry.aii -- Entry Points; environment (D/B) setup; dispatch to routines   *
*                                                                                        *
*		Written by Ben Koning                                                            *
*		Copyright (C) 1989 Apple Computer, Inc.                                          *
*                                                                                        *
******************************************************************************************






							include		'equates.aii'
							
							
							include		'm16.util'
							include		'm16.memory'
							include		'e16.print'
							
							
EntryProc					proc		export



*
*New (Apple IIgs System Disk 5.0 and later), re-entrant, driver entry point:
*
Entry						dc.w		0
							dc.w		(DispatchEnd-DispatchBegin)/4
*
*Save/Set Bank and Direct registers (D page; B=K), assume no errors, dispatch to routines:
*
							phb									;Save B byte for later restore
							phd									;Save D word for later restore
							cpx			#((17-1)*4)+1			;See if call # is in range
							bcc			Entry1
							brk			#$BB					;Should never happen
Entry1						tsc
							sec
							sbc			#DPSize					;Stack frame for small direct page
							tcs
StackParam					equ			1+3+3+1+2+DPSize		;1 + RTL1 + RTL2 + B + D + StackFrame
							ina
							tcd									;Set our D to our stack frame
							phk
							plb									;Set our B; now can use abs addr
							stz			errNo					;Assume no error unless set later on
							jmp			(DispatchBegin,x)		;Go do one of our routines


														
*
*Dispatch table:
*
DispatchBegin				
							dc.l		LQ_PrDefault
							dc.l		LQ_PrValidate
							dc.l		LQ_PrStlDialog
							dc.l		LQ_PrJobDialog
							dc.l		LQ_PrDriverVer
							dc.l		LQ_PrOpenDoc
							dc.l		LQ_PrCloseDoc
							dc.l		LQ_PrOpenPage
							dc.l		LQ_PrClosePage
							dc.l		LQ_PrPicFile
							dc.l		LQ_Reserved				;Reserved
							dc.l		LQ_PrError
							dc.l		LQ_PrSetError
							dc.l		LQ_PrChanged			;Internal call (not from app)
							dc.l		LQ_PrPixelMap
							dc.l		LQ_PrGetPrinterSpecs
							dc.l		LQ_PrGetPgOrientation
DispatchEnd



*
*EXIT: Jump here when done doing driver call.
*After removing direct page stack frame, this routine moves 9 bytes at bottom of stack X number
*of bytes up, restores D/B, leaves A and carry with error status, and RTLs.  Note that 2 RTLs are
*assumed to be on the stack.
*
Exit						tsc									;Get rid of our little scratch area
							clc
							adc			#DPSize
							tcs
	 						cpx			#0						;Have to do this compare for 0
							beq			Exit3
							stx			TmpNumMov
							tsc
							sta			Exit1+1
							clc
							adc			TmpNumMov
							sta			Exit2+1
							push1		#0
							plb									;Our data bank is 0 at this point
							ldy			#8						;9+(0 because we're JMPed-to) - 1
Exit1						lda			$FFFF,y
Exit2						sta			$FFFF,y
							dey
							dey
							bpl			Exit1
							phk
							plb
							lda			Exit2+1
							tcs									;S restored
Exit3						lda			errNo					;get errNo for use in a sec...
							pld									;D restored--no more direct addrs
							plb									;B restored--no more absolute addrs
							cmp			#1						;ACC has err... set carry if nonzero
							rtl									;Exit back to print manager
*
TmpNumMov					dc.w		0						;Temporary storage used above






****************************************************************************************************





*
*The following routines do all the work of the printer driver, or at least contain JSRs to
*routines in other files.  The following has happened on entry to these routines:
*
*		* The caller's D/B registers have been saved
*		* The D register is the same as the K register so absolute adressing can be used
*		* The B register points to DPSize free bytes on the stack for scratch usage
*		* "errNo" has been set to zero, assuming no errors from the routine
*		* Since caller's environment was saved on stack, the driver is re-entrant.
*
*These routines should do their work by:
*
*		* Accessing input/output parameters on the stack by means of LDx/STx StackParam+N,s,
*		  where the N refers to the relative offset (ie, 0,2,4 would be 3 words on the stack)
*		* Using our small direct page area, JSRing to other assembly files, using the stack
*		* Changing "errNo" to be nonzero if error flagging is desired
*		* Calling routines in this driver if desired (some port driver calls actually do this)
*		* LDX #N, where N is the number of input parameter bytes used by the routine
*		* JMP/BRL Exit.
*
*The exit routine will then:
*
*		* Dump our small direct page off of the stack
*		* Dump input parameters off of the stack
*		* Restore the caller's D/B registers from stack
*		* Set the A register with value of "errNo" and set the carry if nonzero
*		* Exit via RTL.
*






****************************************************************************************************
LQ_Reserved					ldx			#2						;$0002 - Tool Locator func not found
							stx			errNo
*
							ldx			#0						;assume no bytes to strip off stack
							brl			Exit
****************************************************************************************************







****************************************************************************************************
LQ_PrDefault				lda			StackParam+0,s			;This routine fills in the users
							sta			printRecordHandle+0		;area of memory with a default
							lda			StackParam+2,s			;print record with standard options
							sta			printRecordHandle+2
*
							import		InitPrintRecord
							jsr			InitPrintRecord			;Metrics routine
*
							ldx			#4						;# of input param bytes to strip
							brl			Exit
****************************************************************************************************
							
							
							




****************************************************************************************************
LQ_PrValidate				lda			StackParam+0,s			;This routine checks to make sure
							sta			printRecordHandle+0		;the user's print record is
							lda			StackParam+2,s			;self-consistent and up to date,
							sta			printRecordHandle+2		;and changes it if necessary
*
							import		GetOkOurDriver
							jsr			GetOkOurDriver			;Metrics: Same driver as last time?
							beq			PrVaAllCorrect			;wow, this print record is perfect
							import		InitPrintRecord
							jsr			InitPrintRecord			;take over print record for us
							lda			#1						;recAdjustFlag := true
							bra			PrVaExit
							import		CalcMetrics
PrVaAllCorrect				jsr			CalcMetrics				;make sure self-consistent
							lda			#0						;recAdjustFlag := false
*
PrVaExit					sta			StackParam+4,s			;store recAdjustFlag result
							ldx			#4						;# of input param bytes to strip
							brl			Exit
****************************************************************************************************







****************************************************************************************************
LQ_PrStlDialog				lda			StackParam+0,s			;This routine uses data in the
							sta			printRecordHandle		;user's print record to properly
							lda			StackParam+2,s			;draw a dialog, and allows the
							sta			printRecordHandle+2		;user to modify that data
*
							import		GetOkOurDriver			;ensure a valid rec for this driver
							jsr			GetOkOurDriver			;Metrics: Same driver as last time?
							beq			PrStAllCorrect			;wow, this print record is perfect
							import		InitPrintRecord			;not same driver as last time, so...
							jsr			InitPrintRecord			;...take over print record for us
							import		CalcMetrics
PrStAllCorrect				jsr			CalcMetrics				;make sure self-consistent, though
*
							import		CheckAndDoAboutBox		;do about box if requested...
							jsr			CheckAndDoAboutBox
							import		ConductStyleDialog		;go do the dialog, ACC will have...
							jsr			ConductStyleDialog		;value for confirmFlag
*
							sta			StackParam+4,s			;return confirmFlag to user
							ldx			#4						;# of input param bytes to strip
							brl			Exit
****************************************************************************************************






****************************************************************************************************
LQ_PrJobDialog				lda			StackParam+0,s			;This routine is like PrStlDialog,
							sta			printRecordHandle		;but should be called just before
							lda			StackParam+2,s			;doing the print loop.
							sta			printRecordHandle+2
*
							import		GetOkOurDriver			;ensure a valid rec for this driver
							jsr			GetOkOurDriver			;Metrics: Same driver as last time?
							beq			PrJoAllCorrect			;wow, this print record is perfect
							import		InitPrintRecord			;not same driver as last time, so...
							jsr			InitPrintRecord			;...take over print record for us
							import		CalcMetrics
PrJoAllCorrect				jsr			CalcMetrics				;make sure self-consistent, however
*
							import		CheckAndDoAboutBox		;do about box if requested...
							jsr			CheckAndDoAboutBox
							import		ConductJobDialog		;do it, ACC will have value...
							jsr			ConductJobDialog		;for confirmFlag
*
							sta			StackParam+4,s			;return confirmFlag to user
							ldx			#4						;# of input param bytes to strip
							brl			Exit
****************************************************************************************************






****************************************************************************************************
LQ_PrDriverVer				lda			#VersionID				;This routine returns the version
							sta			StackParam+0,s			;number of this particular driver
*
							ldx			#0						;# of input param bytes to strip
							brl			Exit
****************************************************************************************************






****************************************************************************************************
LQ_PrOpenDoc				lda			StackParam+0,s			;This routine clears error status,
							sta			printGrafPortPtr		;and initializes and sets a GrafPort
							lda			StackParam+2,s			;with boundsrect, etc., configured
							sta			printGrafPortPtr+2		;for the resolution of the printer.
							lda			StackParam+4,s			;If printGrafPtr is NIL, we allocate
							sta			printRecordHandle		;our own space, else we use the
							lda			StackParam+6,s			;caller's GrafPort and configure it.
							sta			printRecordHandle+2
*
							import		OpenDoc
							jsr			OpenDoc					;print loop routine
*
							lda			printGrafPortPtr		;pass GrafPort back to user,
							sta			StackParam+8,s			;in case we allocated it here...
							lda			printGrafPortPtr+2
							sta			StackParam+10,s
							ldx			#8						;# of input param bytes to strip
							brl			Exit
****************************************************************************************************






****************************************************************************************************
LQ_PrCloseDoc				lda			StackParam+0,s			;this routine closes the printing
							sta			printGrafPortPtr		;grafport, frees its memory if the
							lda			StackParam+2,s			;caller passed NIL during OpenDoc,
							sta			printGrafPortPtr+2		;restores grafport and stops spooling
*
							import		CloseDoc
							jsr			CloseDoc				;print loop routine
*
							ldx			#4						;# of input param bytes to strip
							brl			Exit
****************************************************************************************************






****************************************************************************************************
LQ_PrOpenPage				lda			StackParam+0,s			;this routine keeps track of #pages
							sta			pageFramePtr			;and works only if within page range
							lda			StackParam+2,s			;this routine calls OpenPicture with
							sta			pageFramePtr+2			;pageframe of rPage or user-select
							lda			StackParam+4,s			;the current (print) grafport is
							sta			printGrafPortPtr		;re-initialized, and SpoolPut is
							lda			StackParam+6,s			;called explicitly to store initial
							sta			printGrafPortPtr+2		;info PutPic doesn't get called for
*
							import		OpenPage
							jsr			OpenPage				;print loop routine
*
							ldx			#8						;# of input param bytes to strip
							brl			Exit
****************************************************************************************************






****************************************************************************************************
							import		ClosePage				;This routine terminates a page
LQ_PrClosePage				jsr			ClosePage				;print loop routine
*
							ldx			#4						;# of input param bytes to strip
							brl			Exit					;(we didn't need input parameters)
****************************************************************************************************






****************************************************************************************************
LQ_PrPicFile				lda			StackParam+0,s			;This routine plays back the
							sta			statusRecPtr			;spooled QD picture, one page at
							lda			StackParam+2,s			;a time (handling all inter-page
							sta			statusRecPtr+2			;activities) to the correct bin,
							lda			StackParam+4,s			;doing PixelMap.
							sta			printGrafPortPtr
							lda			StackParam+6,s	
							sta			printGrafPortPtr+2
							lda			StackParam+8,s
							sta			printRecordHandle
							lda			StackParam+10,s
							sta			printRecordHandle+2
*
							import		PicFile
							jsr			PicFile					;print loop routine
*
							ldx			#12						;# of input param bytes to strip
							brl			Exit
****************************************************************************************************






****************************************************************************************************
							import		GetPrintLoopError
LQ_PrError					jsr			GetPrintLoopError		;err in acc from print loop routine
							sta			StackParam+0,s
							ldx			#0						;# of input param bytes to strip
							brl			Exit
****************************************************************************************************






****************************************************************************************************
							import		SetPrintLoopError
LQ_PrSetError				lda			StackParam+0,s			;get in acc
							jsr			SetPrintLoopError		;print loop routine
							ldx			#2						;# of input param bytes to strip
							brl			Exit
****************************************************************************************************






****************************************************************************************************
LQ_PrChanged				pushlong	#DeviceNameStr			;Informs port driver of type of
							ldx			#$1913					;device; important for networking
							jsl			$E10000					;_PrDevPrChanged
							ldx			#0						;# of input param bytes to strip
							brl			Exit					;we're done
DeviceNameStr				str			'='						;ID string in appletalk NBP format
							str			'LQ'
							str			'*'
****************************************************************************************************






****************************************************************************************************
LQ_PrPixelMap				lda			StackParam+0,s			;get...			;This routine calls
							sta			ParamWordA				;colorFlag		;the imaging routine
							lda			StackParam+2,s			;get...			;without any hi-level
							sta			ParamLongA				;srcRectPtr lo	;support of printing
							lda			StackParam+4,s			;get...			;loop; just chooses
							sta			ParamLongA+2			;srcRectPtr hi	;default options ex-
							lda			StackParam+6,s			;get...			;cept color/BW, and
							sta			ParamLongB				;srcLocPtr lo	;prints "srcRectPtr"
							lda			StackParam+8,s			;get...			;part of the caller's
							sta			ParamLongB+2			;srcLocPtr hi	;pxmap in "srcLocPtr"
*
							pha									;Abort if no port. Result space...
							ldx			#$3013					;ask currently installed port driver
							jsl			$E10000					;_DevIsItSafe
							pla
							bne			PiMaOkDevice			;true result: no error
							lda			#portNotOn				;else: return with tool error
							sta			errNo
							bra			PiMaExit
PiMaOkDevice				pushlong	ParamLongB				;pass srcLocP
							pushlong	ParamLongA				;pass srcRectP
							pushlong	#$E19E00				;hardcoded colortbl. better way?!!
							pushlong	#$E19D00				;hardcoded scb's. better way?!!
							pushword	#pixMapCallCrWidth		;carriage width
							pushword	#pixMapCallPaperLength	;paper length
							;			  5432109876543210
							pushword	#%0000010000000000		;default ActionBits except IW=on
							lda			#0						;default QualityBits except...
							ldx			ParamWordA				;get color flag
							beq			PiMaNoColor				;if zero no color
							ora			#%1000000000000000		;set color option in QualityBits	
PiMaNoColor					pha									;pass QualityBits
							pushlong	#0						;default idleproc
							import		Imager
							jsl			Imager					;go print
							bcc			PiMaExit				;no error happened; exit
							sta			errNo					;return error as tool call error
*
PiMaExit					ldx			#10						;# of input param bytes to strip
							brl			Exit
****************************************************************************************************






****************************************************************************************************
LQ_PrGetPrinterSpecs		pushlong	#0						;find out   ;dummy pix locinfo ptr
							pushlong	#0						;whether we ;dummy pix-pr rect ptr
							pushlong	#0						;have       ;dummy color table ptr
							pushlong	#0						;color      ;dummy scb list ptr
							pushword	#0						;ribbon...  ;dummy carriage width
							pushword	#0						;			;dummy paper length
							pushword	#%0000000010100001		;ActionBits: ask for ID only
							pushword	#0						;dummy QualityBits (feature select)
							pushlong	#0						;no idleproc; quit stat ignored here
							import		Imager					;call imager, sends command to
							jsl			Imager					;printer
							tax									;save ID state for a second...
							and			#%0000000000000001		;if bit 0 set then it's an LQ
							beq			PrSpPassPrType			;if cleared, return zero
							lda			#DeviceID		 		;else, our LQ device identification
PrSpPassPrType				sta			StackParam+0,s			;pass printerType to application
							txa									;recover ID state again...
							and			#%0000000000000010		;if bit 1 set then has color ribbon
							bne			PrSpPassColorCap		;if set, return two
							lda			#1						;else, return one
PrSpPassColorCap			sta			StackParam+2,s			;pass characteristics to application
							ldx			#0						;# of input param bytes to strip
							brl			Exit
****************************************************************************************************






****************************************************************************************************
LQ_PrGetPgOrientation		lda			StackParam+0,s			;This routine returns the value
							sta			printRecordHandle		;of the orientation setting just
							lda			StackParam+2,s			;to try to keep the application out
							sta			printRecordHandle+2		;of the print record
*
							import		GetOrientation
							jsr			GetOrientation			;Metrics routine
							sta			StackParam+4,s
*
							ldx			#4						;# of input param bytes to strip
							brl			Exit
****************************************************************************************************



							endproc
							end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/LQ/equates.aii b/IIGS.601.SRC/GSToolbox/PrinterDrivers/LQ/equates.aii
new file mode 100644
index 0000000..af241fa
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/LQ/equates.aii
@@ -0,0 +1 @@
+
******************************************************************************************
*                                                                                        *
*		Apple IIgs ImageWriter LQ Printer Driver                                         *
*                                                                                        *
*		File: equates.aii -- Common direct page labels and equates for all to use        *
*                                                                                        *
*		Written by Ben Koning                                                            *
*		Copyright (C) 1989 Apple Computer, Inc.                                          *
*                                                                                        *
******************************************************************************************






*
*Device and configuration information:
*
DeviceID					equ			2							;Device type (2=LQ, 1=IW, 3=LW)
VersionID					equ			$0402						;Version ID word: $XXYY ==> X.Y



*
*Human interface potentiometers:
*
StatusMesgDelay				equ			150							;Time of err status mesg (ticks)



*
*Memory allocation performance potentiometers:
*
UserIDType					equ			$1000						;UID for mem alloc calls, etc.
SpoolMemIncDefault			equ			2*1024						;Spool granularity of mallocs
SpoolMemLeftLimitDefault	equ			135*1024					;Spool->Mem or Disk threshold



*
*Communication performance potentiometers:
*
OutputFlowQuantum			equ			510							;imager max data to PrDevWrite
RunLenEncodeThreshIW		equ			8							;# groups at which rle is advant
RunLenEncodeThreshLQ		equ			4							;# groups at which rle is advant



*
*QuickDraw-dependent equates:
*
QDMaxPixBuff				equ			$FFFF						;Maximum LocInfo.PtrToPixImage
QDAuxTheKindDPLoc			equ			$A6							;contains kind of PicComment
QDAuxTheSizeDPLoc			equ			$A8							;contains size of PicComment
QDAuxTheHandleDPLoc			equ			$AA							;contains hdl to PicComment data
QDDrawVerbDPLoc				equ			$38							;"DrawVerb" quickdraw equate
QDTextPtrDPLoc				equ			$DA							;"TextPtr" quickdraw equate
QDTextLengthDPLoc			equ			$D8							;"TextLength" quickdraw equate
QDCharToDrawDPLoc			equ			$D6							;"CharToDraw" quickdraw equate
QDDrawCharVerbEqu			equ			0							;"DrawCharVerb" quickdraw equate
QDDrawTextVerbEqu			equ			1							;"DrawTextVerb" quickdraw equate
QDDrawCStrVerbEqu			equ			2							;"DrawCStrVerb" quickdraw equate
ov1							equ			0							;Point data structure element
oh1							equ			2							;Point data structure element
ov2							equ			4							;Point data structure element
oh2							equ			6							;Point data structure element



*
*QuickDraw PicComments that this driver listens to:
*
EndOfPagePicCommentKind		equ			250							;For marking next pic in spool
ChangeCTBLPicCommentKind	equ			251							;For if app wants new color tbl
ChangeSCBPicCommentKind		equ			252							;For if app wants new SCB(s)





*
*Imagewriter LQ metrics and low-level driver features:
*Note that the wDev definition below is somewhat different from "QualBits" in the imager routine.
*This was done to maintain some bit-compatibility with the ImageWriter:
*
										;5432109876543210
wDevNoStatusBox				equ			%1000000000000000			;15 1=no status mesg 0=normal
wDevDarker					equ			%0001000000000000			;12 1=boldface printing
wDevFirstBinMsb				equ			%0000100000000000			;11 Cut sheet bin selection for...
wDevFirstBinLsb				equ			%0000010000000000			;10 first page printed 0..2
wDevNextBinMsb				equ			%0000001000000000			;9  Cut sheet bin selection for...
wDevNextBinLsb				equ			%0000000100000000			;8  ...remaining pages 0..2
wDevUnidirectional			equ			%0000000010000000			;7  1=unidrectional printing
wDevGap						equ 		%0000000001000000			;6	1=normal 0=no vert gap
wDevColor					equ			%0000000000100000			;5	1=color 0=grayscale
wDevReductionMsb			equ			%0000000000010000			;4	H/V reduction in 1/3 size...
wDevReductionLsb			equ			%0000000000001000			;3	...inc, 0=fullsize, 0..2
wDevVSize					equ			%0000000000000100			;2	1=normal 0=vert condense
wDevOrientation				equ			%0000000000000010			;1	1=portrait 0=landscape
wDevBetterText				equ			%0000000000000001			;0	1=high resolution printing



*
*New print record definitions for this driver, placed where "oprintX" used to be:
*
opFileBlockSize				equ			$64+0						;Granularity of spool mallocs
opFileMemLimit				equ			$64+4						;When to start spooling to disk
opCTable					equ			$64+8						;Color table for imaging
opSCBList					equ			$64+12						;SCB list for imaging
owQuality					equ			$64+16						;New print quality definitions
owPaperCrWidth				equ			$64+18						;Variable internal crWidth value
owResScaling				equ			$64+20						;Scaling amount for Bett quality



*
*Imaging routine/printer maximum resolutions.  These are starting points for metrics calculations:
*
maxResPortraitX				equ			240							;Printer pixels per inch (")
maxResPortraitY				equ			216
maxResLandscapeX			equ			216
maxResLandscapeY			equ			192
printLineMargin				equ			4							;Left line margin in 1/16" units
pixMapCallCrWidth			equ			1920						;8.0"*maxResPortraitX
pixMapCallPaperLength		equ			792							;11.0"*72(eff.Y.resolution)
prRecCrWidth				equ			960							;historical value apps expect



*
*The following paper dimensions are in 1/16th inch units--they are 16 times too big (for accuracy):
*
paperTypeUsaLetter			equ			0							;8.5 x 11"		1/4" gap
paperSizeUsaLetterX			equ			136							;US Letter MUST be type 0
paperSizeUsaLetterY			equ			176
paperSizeUsaLetterGap		equ			4

paperTypeUsaLegal			equ			1							;8.5 x 14"		1/4" gap
paperSizeUsaLegalX			equ			136							;US Legal MUST be type 1
paperSizeUsaLegalY			equ			224
paperSizeUsaLegalGap		equ			4

paperTypeEurA4				equ			2							;210 x 197mm	1/4" gap
paperSizeEurA4X				equ			136							;Eur A4 MUST be type 2
paperSizeEurA4Y				equ			187
paperSizeEurA4Gap			equ			4

paperTypeEurIntlFanfold		equ			3							;210 mm x 12"	1/4" gap
paperSizeEurIntlFanfoldX	equ			136							;Intl FF MUST be type 3
paperSizeEurIntlFanfoldY	equ			192
paperSizeEurIntlFanfoldGap	equ			4

paperTypeEurB5				equ			4							;176 x 250mm	1/4" gap
paperSizeEurB5X				equ			110
paperSizeEurB5Y				equ			157
paperSizeEurB5Gap			equ			4

paperTypeBigComputer		equ			5							;14 x 11"		1/4" gap
paperSizeBigComputerX		equ			224
paperSizeBigComputerY		equ			176
paperSizeBigComputerGap		equ			4

paperTypeBigLedger			equ			6							;11 x 17"		1/4" gap
paperSizeBigLedgerX			equ			176
paperSizeBigLedgerY			equ			272
paperSizeBigLedgerGap		equ			4

paperTypeBigIntlA3			equ			7							;297 x 429mm	1/4" gap
paperSizeBigIntlA3X			equ			187
paperSizeBigIntlA3Y			equ			264
paperSizeBigIntlA3Gap		equ			4

paperTypeUsaStatement		equ			8							;5.5 x 8.5"		1/4" gap
paperSizeUsaStatementX		equ			88
paperSizeUsaStatementY		equ			136
paperSizeUsaStatementGap	equ			4

paperTypeBigNews			equ			9							;13.75 x 23"	1" gap
paperSizeBigNewsX			equ			220
paperSizeBigNewsY			equ			368
paperSizeBigNewsGap			equ			16

paperTypeEnvNo10			equ			10							;9.5 x 4.125"	1/4" gap
paperSizeEnvNo10X			equ			152
paperSizeEnvNo10Y			equ			66
paperSizeEnvNo10Gap			equ			4

paperTypeEnvNo9				equ			11							;8.875 x 3.875"	1/4" gap
paperSizeEnvNo9X			equ			142
paperSizeEnvNo9Y			equ			62
paperSizeEnvNo9Gap			equ			4

paperTypeEnvNo6				equ			12							;6.5 x 3.625"	1/4" gap
paperSizeEnvNo6X			equ			104
paperSizeEnvNo6Y			equ			58
paperSizeEnvNo6Gap			equ			4

paperTypeLblSml				equ			13							;3 x 0.9375"	1/4" gap
paperSizeLblSmlX			equ			48
paperSizeLblSmlY			equ			15+1						;+1/16" space b/w labels
paperSizeLblSmlGap			equ			4

paperTypeLblMed				equ			14							;3.5 x 0.9375"	1/4" gap
paperSizeLblMedX			equ			56
paperSizeLblMedY			equ			15+1						;+1/16" space b/w labels
paperSizeLblMedGap			equ			4

paperTypeLblLrg				equ			15							;4 x 1.4375"	1/4" gap
paperSizeLblLrgX			equ			64
paperSizeLblLrgY			equ			23+1						;+1/16" space b/w labels
paperSizeLblLrgGap			equ			4

paperTypeLblPacking			equ			16							;4 x 2.9375"	1/4" gap
paperSizeLblPackingX		equ			64
paperSizeLblPackingY		equ			47+1						;+1/16" space b/w labels
paperSizeLblPackingGap		equ			4

paperTypeLblDisk35			equ			17							;2.75 x 2.75"	1/4" gap
paperSizeLblDisk35X			equ			44
paperSizeLblDisk35Y			equ			44+4						;+1/4" space b/w labels
paperSizeLblDisk35Gap		equ			4

paperTypeLblDisk525			equ			18							;4.75 x 1.25"	1/4" gap
paperSizeLblDisk525X		equ			76
paperSizeLblDisk525Y		equ			20+4						;+1/4" space b/w labels
paperSizeLblDisk525Gap		equ			4

maxPaperTypeID				equ			paperTypeLblDisk525			;NOTE: LENGTH OF THIS LIST!



*
*Dialog boxes' item ID numbers... MUST be consecutive within groupings:
*
mesgFeedPromptID			equ			10000						;for status message alert
mesgFeedPromptOKButtID		equ			1							;for default <CR> action
mesgFeedPromptNGButtID		equ			10001
mesgFeedPromptStringID		equ			10002

titleItemID					equ			10100						;for both Job and Style dialogs
versionItemID				equ			10101
cancelItemID				equ			10102
okItemID					equ			10103

paperTypeItemID				equ			11000						;for Style dialog
paperTypeUsaLtrItemID		equ			12000+paperTypeUsaLetter	;these are not in num. order
paperTypeUsaLglItemID		equ			12000+paperTypeUsaLegal
paperTypeUsaStmtItemID		equ			12000+paperTypeUsaStatement
paperTypeEurA4ItemID		equ			12000+paperTypeEurA4
paperTypeEurB5ItemID		equ			12000+paperTypeEurB5
paperTypeEurIntlFFItemID	equ			12000+paperTypeEurIntlFanfold
paperTypeBigCompItemID		equ			12000+paperTypeBigComputer
paperTypeBigLgrItemID		equ			12000+paperTypeBigLedger
paperTypeBigIntlA3ItemID	equ			12000+paperTypeBigIntlA3
paperTypeBigNewsItemID		equ			12000+paperTypeBigNews
paperTypeEnvNo10ItemID		equ			12000+paperTypeEnvNo10
paperTypeEnvNo9ItemID		equ			12000+paperTypeEnvNo9
paperTypeEnvNo6ItemID		equ			12000+paperTypeEnvNo6
paperTypeLblSmlItemID		equ			12000+paperTypeLblSml
paperTypeLblMedItemID		equ			12000+paperTypeLblMed
paperTypeLblLrgItemID		equ			12000+paperTypeLblLrg
paperTypeLblPackingItemID	equ			12000+paperTypeLblPacking
paperTypeLblDisk35ItemID	equ			12000+paperTypeLblDisk35
paperTypeLblDisk525ItemID	equ			12000+paperTypeLblDisk525

reductionItemID				equ			13000						;for Style dialog
reductionFullSizeItemID		equ			13001
reduction33ItemID			equ			13002
reduction66ItemID			equ			13003
effectsNoGapsItemID			equ			13004
effectsCondensedItemID		equ			13005
effectsDarkerItemID			equ			13006
effectsUnidirectItemID		equ			13007
orientationTitleItemID		equ			13008
orientationPortraitItemID	equ			13009
orientationLandscapeItemID	equ			13010
effectsTitle1ItemID			equ			13011
effectsTitle2ItemID			equ			13012

printQualityItemID			equ			14000						;for Job dialog...
printQualityDraftItemID		equ			14001
printQualityStandardItemID	equ			14002
printQualityBetterItemID	equ			14003
chromaItemID				equ			15000
chromaMonochromeItemID		equ			15001
chromaColorItemID			equ			15002
pageFeedItemID				equ			15003
pageFeedManualItemID		equ			15004
pageFeedAutoItemID			equ			15005
firstPageItemID				equ			15006
firstPageBin1ItemID			equ			15007
firstPageBin2ItemID			equ			15008
firstPageBin3ItemID			equ			15009
otherPagesItemID			equ			15010
otherPagesBin1ItemID		equ			15011
otherPagesBin2ItemID		equ			15012
otherPagesBin3ItemID		equ			15013
pagesTitleItemID			equ			15014
pagesAllItemID				equ			15015
pagesRangeItemID			equ			15016
pagesFromTitleItemID		equ			15017
pagesToTitleItemID			equ			15018
copiesTitleItemID			equ			15019
pagesFromBoxItemID			equ			15020
pagesToBoxItemID			equ			15021
copiesBoxItemID				equ			15022



*
*Temporary zero page storage which is NOT maintained across driver calls or driver re-entries:
*
ParamWordA					equ			0					;general purpose and parameter passing
ParamWordB					equ			2
ParamWordC					equ			4
ParamWordD					equ			6
ParamWordE					equ			8
ParamLongA					equ			10
ParamLongB					equ			14
ParamLongC					equ			18
DialogWindowPtr				equ			22					;grafport pointer for job/style dialogs
OldGrafPortPtr				equ			26					;saving grafport behind job/style dialogs
errNo						equ			30					;tool err returned from our driver calls
printRecordHandle			equ			32					;must be valid for calling metrics code
printGrafPortPtr			equ			36					;paper-sized grafport used for printing
pageFramePtr				equ			40					;page frame passed by user for scaling
statusRecPtr				equ			44					;status rec updated during PrPicFile
OptionA						equ			48					;for passing options to metrics routines
OptionB						equ			50
ImagerDP					equ			52					;Imager routine needs 74b direct page
															;Total DP Size: 74+52=126 < 128
														
DPSize						equ			127+1				;DP size on stack; <256 b/c stack params!
DPSizeParamOnly				equ			DialogWindowPtr+1	;DP size for just using some params only
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/LQ/imager.aii b/IIGS.601.SRC/GSToolbox/PrinterDrivers/LQ/imager.aii
new file mode 100644
index 0000000..53eb6a0
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/LQ/imager.aii
@@ -0,0 +1 @@
+
******************************************************************************************
*                                                                                        *
*		Apple IIgs ImageWriter LQ Printer Driver                                         *
*                                                                                        *
*		File: imager.aii -- Low Level Driver: Pixmap > RGB->CMY > ESC Codes > Port       *
*                           All communication with printer port drivers is handled here  *
*                                                                                        *
*		Originally written by Jason Harper                                               *
*		I/O code, text mode, IW mode, speed and memory optimizations by Ben Koning       *
*		Copyright (C) 1989 Apple Computer, Inc.                                          *
*                                                                                        *
******************************************************************************************






				include		'equates.aii'
							
							
				include		'm16.util'
				include		'm16.intmath'
				include		'm16.event'
				include		'm16.misctool'
				include		'e16.quickdraw'


ImagerProc		proc		export




*********************************************************************************
*                                                                               *
*  ImageWriter LQ imaging routine for the Apple IIgs                            *
*                                                                               *
*  Written by Jason Harper under contract for Apple Computer, Inc.              *
*  Modified for use by ImageWriter LQ driver by Ben Koning                      *
*                                                                               *
*  On entry             16-bit full native mode                                 *
*                       DP points to 1 page of Bank 0 for routine's use         *
*  |previous contents|  DBR is not assumed to point to any particular bank      *
*  |-----------------|                                                          *
*  |                 |                                                          *
*  |-   SrcLocPtr   -|  LONG: pointer to LocInfo record describing pixelmap     *
*  |                 |        or pointer to first char in string for text       *
*  |-----------------|                                                          *
*  |                 |  LONG: pointer to rectangle to be printed                *
*  |-  SrcRectPtr   -|        or coordinates for text:                          *
*  |                 |        +0: Rel Y, down only; +2: Abs X for print head    *
*  |-----------------|                                                          *
*  |                 |                                                          *
*  |-   CTablePtr   -|  LONG: pointer to color tables to be used                *
*  |                 |        or length of string for text                      *
*  |-----------------|                                                          *
*  |                 |  LONG: pointer to list of ScanlineControlBytes to use    *
*  |-  SCBListPtr   -|        for each line (1 byte each), must not be NIL!     *
*  |                 |        or bit vector giving text mode print options      *
*  |-----------------|                                                          *
*  |  CarriageWidth  |  WORD: rightmost pr limit; right margin for landscape    *
*  |-----------------|                                                          *
*  |   PaperLength   |  WORD: tallness of paper so formfeed works correctly     *
*  |-----------------|                                                          *
*  |   ActionBits    |  WORD: bit vector giving mechanical motion options       *
*  |-----------------|                                                          *
*  |   QualityBits   |  WORD: bit vector giving print method/density options    *
*  |-----------------|                                                          *
*  |                 |                                                          *
*  |-  IdleProcPtr  -|  LONG: pointer to idleproc to call or NIL for none       *
*  |                 |                                                          *
*  |-----------------|                                                          *
*  |  RTL3  |  RTL2  |                                                          *
*  |--------+--------'                                                          *
*  |  RTL1  |                                                                   *
*  '--------' <- SP                                                             *
*                                                                               *
*  On exit              A norm 0, nonzero if exit status/Option-Period press    *
*                       Carry set if nonzero A (see above)                      *
*                       X,Y trashed                                             *
*                       DP unchanged                                            *
*  |previous contents|  DBR restored to original value                          *
*  |-----------------|                                                          *
*  |  RTL3  |  RTL2  |                                                          *
*  |--------+--------'                                                          *
*  |  RTL1  |                                                                   *
*  '--------' <- SP                                                             *
*                                                                               *
*  Definition of ActionBits (setting to all zero causes default action):        *
*                                                                               *
*    Bit 0:  0=Output form feed (FF) when finished; 1=Don't do form feed        *
*    Bit 1:  0=Init, recalibrate head, set paper length, set TOF; 1=Don't       *
*    Bit 2:  0=Don't do sheet feeder select; 1=Cause sheet feeder selection     *
*    Bit 3:  Least significant bit of sheet feeder to use, 0..2                 *
*    Bit 4:  Most significant bit of sheet feeder to use, 0..2                  *
*    Bit 5:  0=Do imaging (graphics/text); 1=Don't (only init/bin select)       *
*    Bit 6:  0=Print graphics; 1=Move paper/head and print text string          *
*            If Bit 6 set, set SrcLocPtr to address of string                   *
*            If Bit 6 set, set CTablePtr to length of string                    *
*            If Bit 6 set, set SrcRectPtr+0 delta_Y (down only); +2 to abs_X    *
*            If Bit 6 set, set SCBListPtr+0 to text font 0..3                   *
*                 0=NLQ, 1=draft, 2=NLQ, 3=LQ                                   *
*            If Bit 6 set, set SCBListPtr+1 to text size 0..7                   *
*                 0=9, 1=10, 2=12, 3=13.4, 4=15, 5=17 cpi, 6=prop1, 7=prop2     *
*	         If Bit 6 set, set SCBListPtr+2 to text style 0..2                  *
*	              Bit 0=bold; Bit 1=underline; Bit 2=double-w; Bit 3=half-h     *
*    Bit 7:  0=Normal; 1=Ask printer to identify itself and installed options   *
*            If Bit 7 set, on exit ACC bit 0 set if printer is ImageWriter LQ   *
*            If Bit 7 set, on exit ACC bit 1 set if printer has color ribbon    *
*            If Bit 7 set, on exit ACC bit 2 set if printer has sheet feeder    *
*    Bit 8:  0=Open port connection before sending (PrDevOpen); 1=Don't         *
*    Bit 9:  0=Close port connection after sending (PrDevClose); 1=Don't        *
*    Bit 10: 0=normal; 1=Try to use IW_II print command (faster) (see below)    *
*                                                                               *
*  Definition of QualityBits (equivalent to wDev field in print record):        *
*                                                                               *
*    Bit 0:  "Better Text"  If set, print at 1/3 size using LQ resolution       *
*    Bit 1:  0=Portrait orientation; 1=Landscape orientation                    *
*    Bit 2:  "Condensed"  If set, print 1/2 vertical size                       *
*    Bit 3:  Lsb of print output size (horizontal & vertical)                   *
*    Bit 4:  Msb of print output size (horizontal & vertical)                   *
*            If Bit 4,3 = 00, print 3/3 life size (no reduction  - 100% size)   *
*            If Bit 4,3 = 01, print 2/3 life size (33% reduction -  66% size)   *
*            If Bit 4,3 = 10, print 1/3 life size (66% reduction -  33% size)   *
*    Bit 7:  0=Vertical gap at end of sheet; 1=No gap between sheets            *
*    Bit 13: "Darker" If set, boldface mode is selected                         *
*    Bit 14: 0=Bidirectional; 1=Unidirectional                                  *
*    Bit 15: 0=Grayscale (colors mapped); 1=Color (CMY process)                 *
*                                                                               *
*  Definition of exit error code in accumulator:                                *
*                                                                               *
*    $0080:  User typed command-period (this err has precedence over others)    *
*    $008X:  Status err (only works over network) (in certain precedence):      *
*            $81: Network error  $82: No paper    $83: Paper jam                *
*            $84: Cover open     $85: Select off  $8F: Printer busy (in use)    *
*    $000X:  If ActionBits set for self-id, result code (see above)             *
*                                                                               *
*  The Better Text bit causes everything to be printed at 1/3 size: the         *
*  higher-level routines should generate the bitmap at 3x (full size), 2x       *
*  (33% reduction), or 1x (66% reduction) magnification to produce a properly   *
*  sized image.                                                                 *
*                                                                               *
*  The "use IW_II print command" bit is a suggestion to the imager to try to    *
*  use the ImageWriter II compatible graphics printing command if possible.     *
*  In several cases, printing will be much faster (but also lighter).           *
*  If the IW mode is not supported for a certain QualityBits setting, then      *
*  the IW mode bit is internally turned off and printing will be as normal.     *
*  For example, currently IW mode is only supported if Better=0, Portrait,      *
*  Fullsize, Darker=0.  Anything else will force IW mode off as if it hadn't    *
*  been selected in the first place.                                            *
*                                                                               *
*  CrWidth should be passed in units of 240 horizontal pixels per inch, and     *
*  PaperLength should be passed in units of 72 vertical pixels per inch.  The   *
*  X and Y displacements for printing text strings should be passed in terms    *
*  of 80 pix/inch horizontal and 72 pix/inch vertical (which coincides with     *
*  the effective resolution with the Better bit off).                           *
*                                                                               *
*  Note on terminology: In these routines, "band" refers to one scan of the     *
*  print head.  Do not confuse this with the printing bands into which the      *
*  high-level driver print loop routines split up each page due to possible     *
*  memory constraints.                                                          *
*                                                                               *
*  If something other than NIL is passed for IdleProcPtr, that location will    *
*  be JSL-ed to with our environment saved.  The Command-Period printing        *
*  interrupt request from the user is checked for even if an IdleProcPtr is     *
*  given.  (Command-Period causes the imager to abort and return an error.)     *
*                                                                               *
*  In portrait mode, a 16-bit-wise white scanning algorithm is employed to      *
*  improve speed performance.  It is enabled only if a color table entry that   *
*  is pure white is found.  This algorithm quickly recognizes large areas of    *
*  white even in between nonwhite areas and saves time by not processing those  *
*  areas.  A similar but much more restricted algorithm exists in landscape     *
*  mode: an entire line (column) must be completely blank and the pure white    *
*  color must exist in standard color table entries.                            *
*                                                                               *
*  In portrait/640/hscaling=1 mode only, a special-case imaging algorithm is    *
*  employed to improve speed performance.  It is enabled only if pure black     *
*  and pure white colors exist in their standard color table entries.   Like    *
*  the portrait mode white scanning algorithm, this shortcut is also able to    *
*  operate on parts of a line.                                                  *
*                                                                               *
*  Just before the printer-ready graphics data is output, it is analyzed and    *
*  broken up into sequences of print-discrete-data, print-repeating-data, and   *
*  position-print-head packets, so as to send less data to the printer and      *
*  to improve speed performance.                                                *
*                                                                               *
*  To improve disk/memory space efficiency, the RGB to KCMY conversion table    *
*  is built at runtime, on an as-needed basis based on the number of color      *
*  tables "needed" by the given SCBs.                                           *
*                                                                               *
*********************************************************************************



						

IdleProcPtr		equ		ImagerDP+4				;long	;input parameter storage
QualBits   		equ 	ImagerDP+8				;word
ActionBits 		equ 	ImagerDP+10				;word
PaperLength		equ		ImagerDP+12				;word
CarriageWidth	equ		ImagerDP+14				;word
SCBListPtr 		equ 	ImagerDP+16				;long
CTablePtr  		equ 	ImagerDP+20				;long
SrcRectPtr 		equ 	ImagerDP+24				;long
SrcLocPtr  		equ 	ImagerDP+28				;long
SizeInputs      equ 	(ImagerDP+32)-IdleProcPtr

PixMapBase		equ		ImagerDP+32				;long	;addr of pixelmap to print
PixMapHigh		equ		ImagerDP+36				;word	;height/pixels
PixMapWide		equ		ImagerDP+38				;word	;width/640 mode pixels
PixMapLeft		equ		ImagerDP+40				;word	;pixels to skip at left edge
leftskip		equ		ImagerDP+42				;word	;counter for PixMapLeft
SCBTabBase		equ		ImagerDP+44				;word	;offset from SCBListPtr for pixelmap
MasterMode		equ		ImagerDP+46				;word	;mode ($00/$80) from SrcLocInfo
MasterPal		equ		ImagerDP+48				;word	;palette ($0..$F) from SrcLocInfo
LineDirty		equ		ImagerDP+50				;word	;linebuffer contains non-0 values
lineoffset		equ		ImagerDP+52				;word	;offset into linebuffer
pixelbits		equ		ImagerDP+54				;word	;linebuffer bit mask for curr. pixel
ThisLMode		equ		ImagerDP+56				;word	;mode ($00/$80) for this line
ThisLPal		equ		ImagerDP+58				;word	;palette ($0..$F) for this line
horpcount		equ		ImagerDP+60				;word	;horizontal pixel count
DitherH			equ		ImagerDP+62				;word	;horizontal dither matrix index
colorstr		equ		ImagerDP+64				;word	;word_ptr to setup string for this band
linebase		equ		ImagerDP+66				;word	;starting offset into linebuffer
colortemp		equ		ImagerDP+68				;long	;multiuse temp for RGB/grayscale conversion





*
*Equates defining QualityBits:
*
;					 5432109876543210
qbColor			equ %1000000000000000
qbUnidir		equ %0100000000000000
qbDarker		equ %0010000000000000
qbNoGap			equ %0000000010000000
qbCndnsd		equ %0000000000000100
qbLandMode		equ %0000000000000010
qbBetter		equ %0000000000000001
;					 5432109876543210



*
*Equates defining ActionBits:
*
;					 5432109876543210
abNoFeed		equ %0000000000000001
abNoInit		equ %0000000000000010
abDoBinSel		equ %0000000000000100
abBinLsb		equ %0000000000001000
abBinMsb		equ %0000000000010000
abDoImage		equ %0000000000100000
abTextMode		equ %0000000001000000
abGetID			equ %0000000010000000
abNoOpen		equ %0000000100000000
abNoClose		equ %0000001000000000
abIWMode		equ %0000010000000000
;					 5432109876543210





*******************************************************************************





				export Imager
		   
Imager:
				phb							;save orig DBR
				
				pea $0000					;set DBR to bank 0 to access stack
				plb
				plb
				
				tsc							;copy parms into DP locations
				tay
				ldx #0
copyparms 
				lda |5,y
				sta IdleProcPtr,x
				iny
				iny
				inx
				inx
				cpx #SizeInputs
				blt copyparms
				
				phk							;set DBR to program bank
				plb
				
				stz prError					;clear this before starting
				
				jsr LQstartup
				jsr LQPrPixmapOrText
				jsr LQshutdown
				
LQexit
				ldx prError					;we'll return this on exit
				plb							;restore orig DBR
				lda 1,s
				sta SizeInputs+1,s
				lda 2,s
				sta SizeInputs+2,s
				clc
				tsc
				adc #SizeInputs
				tcs
				txa							;set ACC and carry if user-abort or error
				cmp #1
				rtl





*******************************************************************************





*
*WRITESHORT: Routine to output string to printer; 16-bit address of pascal-type string -> ACC:
*
writeshort:
				tax
				inc a
				sta ws_addr					;low byte of address
				phb
				phb
				pla
				and #$00FF
				sta ws_addr+2				;high byte = PBR
				lda |0,x					;get string length
				and #$00FF
				tax
				
ws_write		stz ws_done					;clr completion/error flag. Enter here w/ ws_addr & X
				pushlong #ws_cmpl			;completion routine to be called when write is done
				pushlong ws_addr			;address
				phx							;length still in X
				ldx #$1E13					;this call will return immediately
				jsl $E10000					;_PrDevWrite
				bcc ws_wait					;check if no error on immediate return
				cmp #$08FF					;make sure we don't count buffer-full as an error
				beq ws_wait
ws_goterr		lda #$0081					;if error, set global flag and exit
				sta prError
				jsr IdleProcAbortErrCheck	;try to find out a specific err other than $81
				rts
ws_wait			lda ws_done					;wait until done or error
				beq ws_wait
				bmi ws_goterr
				rts

ws_addr			ds.l 1
ws_done			ds.w 1

ws_cmpl			ldx #$0001					;we're here so done.  if no err, done_flag gets $0001
				cmp #0						;check ACC for error code
				beq ws_cmpl1
				lda >is_network				;if not on network, done_flag also always gets $0001
				beq ws_cmpl1
				ldx #$FFFF					;if err and on network, done_flag gets $FFFF
ws_cmpl1		txa							;store error code...
				sta >ws_done
ws_cmpl2		rtl





*
*WRITELONG: Routine to output long blocks of data to printer; Ptr.LO -> ACC, Ptr.HI -> X, Count -> Y:
*
writelong:
				sta wl_adr+0				;use params to init our running pointers
				stx wl_adr+2				;we will output long data in flow-quantum pieces
				sty wl_len
				
wl_donext		lda wl_len					;if all data is now less than quantum just do last chunk
				cmp #OutputFlowQuantum+1
				bcc wl_dolast
				
				lda wl_adr					;else, write one chunk at a time...
				sta ws_addr					;set up ws_addr and X and go output a chunk
				lda wl_adr+2
				sta ws_addr+2
				ldx #OutputFlowQuantum
				jsr ws_write
				
				clc							;...and advance pointer and decrease length...
				lda wl_adr
				adc #OutputFlowQuantum		;our_address.L += OutputFlowQuantum.W
				sta wl_adr
				lda wl_adr+2
				adc #0
				sta wl_adr+2
				sec
				lda wl_len
				sbc #OutputFlowQuantum		;our_length.W -= OutputFlowQuantum.W
				sta wl_len
				bra wl_donext				;...and go send next chunk
				
wl_dolast		lda wl_adr					;set up ws_addr and X and go output last chunk and exit
				sta ws_addr
				lda wl_adr+2
				sta ws_addr+2
				ldx wl_len
				brl ws_write
					   
wl_adr			ds.l 1						;running pointer to data to be sent for a chunk
wl_len			ds.w 1						;running decreasing count of data left to be sent





*******************************************************************************





LQStartUp:
				lda #0
				pha							;always see if on a networked port device, because
				pha							;we'll need to know whether we can do asyncronous I/O
				ldx #$2B13					;_PMGetNetworkName
				jsl $E10000
				pla
				sta is_network
				pla
				ora is_network
				sta is_network				;anyone in the imager may now check is_network
				
				beq lqs_not_netid			;if on network and servicing self-id request, go
				lda ActionBits				;to the id-on-network section below, since its not
				and #abGetID				;necessary to open/read/close, which takes time on net
				beq lqs_not_netid
				
do_id_network	stz status_buff+5			;begin of code to obtain self-id info from network
				pushlong #status_buff		;do status inquiry with port driver (PAPStatus)
				ldx #$2013					;_PrDevStatus
				jsl $E10000
				lda status_buff+5			;status buff was cleared above in case not supported
				tax
				;	  5432109876543210
				ldy #%0000000000000001		;begin by indicating that it's an LQ (but we're not sure)
do_id_net_0		and #%0000000010000000		;status bit 7 indicates color capability
				beq do_id_net_1
				tya
				;	  5432109876543210
				ora #%0000000000000010		;indicate color capability by setting bit 1 in result
				tay
do_id_net_1		txa
				;	  5432109876543210
				and #%0000000001000000		;status bit 6 indicates sheet feeder presence
				beq do_id_net_done
				tya
				;	  5432109876543210
				ora #%0000000000000100		;indicate sheet feeder by setting bit 2 in result
				tay
do_id_net_done	sty PrError					;store result and exit
				rts



lqs_not_netid

				lda ActionBits				;see if execution of open request is desired
				and #abNoOpen
				bne dont_open
				
				jsr IdleProcAbortErrCheck	;check if port driver connection request has any chance
				lda prError					;and also allow user to hit command-period...
				beq do_open					;abort on cmd-".", DevStatus err, status result buff err
abort_open		rts

do_open			pushlong #0					;request connection from port driver -- hog printer
				pushlong #0
				ldx #$1C13
				jsl $E10000					;_PrDevOpen
				lda #1						;set flag indicating that we have an exclusive connection
				sta is_our_conn
				
dont_open		lda ActionBits				;see if printer/feature identification is desired
				and #abGetID
				bne do_id
				brl dont_id
				
do_id			ldy #6						;zero out the receive buffer before starting
				lda #0
id_clear		sta r_idstring,y
				dey
				dey
				bpl id_clear
				
				lda is_network				;setup async read only if on network
				beq req_id
				stz is_complete
				pha
				pushlong #read_cmpl
				pushword #8
				pushlong #r_idstring
				ldx #$2113					;_PrDevAsyncRead
				jsl $E10000
				pla
				
req_id			lda #s_selfid				;send self-id request
				jsr writeshort				;response will be: [garbage_chr] LQ1 [C] [E] [F] [1|2|3] <cr>
				
				lda is_network				;do sync read if not on network
				bne wait_cmpl
				pha
				pushlong #r_idstring
				pushword #8
				ldx #$1D13
				jsl $E10000					;_PrDevRead
				pullword r_idlength
				bra ana_id
				
wait_cmpl		lda is_complete
				beq wait_cmpl

ana_id			stz PrError					;init result bits: 0=is_lq, 1=has_color, 2=has_feeder
				ldy #0						;init index into string
				lda r_idstring,y 			;look at first 2 bytes of string (16-bit LDA) ("LQ")
				cmp #'L'+('Q'*256)
				beq id_match				;matches first try; don't adjust Y index, continue
				iny							;will try rest of matching offset by one
				lda r_idstring,y			;look for those two characters (16-bit LDA) ("LQ") AGAIN!
				cmp #'L'+('Q'*256)
				bne id_done					;string is not "LQ______" nor is it "_LQ______"; reject
id_match		lda r_idstring+1,y			;look at next two characters of string ("Q1")
				cmp #'Q'+('1'*256)
				bne id_done
				lda #%0000000000000001		;indicate it's at least a wide carriage LQ
				sta PrError
				iny							;now search thru string and set other bits until end...
				iny							;set index to next character after "LQ1"
				iny
new_id_chr		cpy r_idlength				;go until end of number of chars we got as id result
				bcs id_done
				shortm						;get a character out of the id string
				lda r_idstring,y
				longm
				tax
				cpx #'E'					;envelope attachment?
				bne no_env
its_feeder		lda PrError					;indicate envelope or sheet feeder
				ora #%0000000000000100
				sta PrError
				bra nxt_id_chr
no_env			cpx #'F'					;sheet feeder?
				beq its_feeder
				cpx #'C'					;color ribbon?
				bne nxt_id_chr
				lda PrError					;indicate color ribbon
				ora #%0000000000000010
				sta PrError
nxt_id_chr		iny
				bra new_id_chr
id_done			rts



dont_id			lda ActionBits				;init printer mechanics/recalibrate head, if desired
				and #abNoInit
				bne LQnoprinit
				
				lda #s_reset				;reset printer (does head recalibration)
				jsr writeshort
					   
				lda PaperLength				;set vert paper len to PaperLength param (given in 72ths)
				asl a
				pha
				pushlong #n_paperlen
				pushword #4
				pushword #0
				_Int2Dec
				lda #s_paperlen
				jsr writeshort				;do paper length command in 144ths
				lda #$FFFF					;ensure sheet-feeder-set-request always done first time
				sta last_bin



LQnoprinit
				lda ActionBits				;select cut sheet feeder, if desired
				and #abDoBinSel
				beq LQnobinselect
				
				lda ActionBits				;get bin number from its field
				lsr a
				lsr a
				lsr a
				and #3						;now have bin number: 0..2
				cmp last_bin				;do feeder command only if request is for different bin
				beq dont_bin
				sta last_bin
				ora #$30					;now have last part of bin command: $3X, X=0..2
				shortm
				sta n_binselect				;store the byte into command string
				longm
				lda #s_binselect			;issue the command
				jsr writeshort
dont_bin
		   
		   
LQnobinselect
				stz prError					;clear any error status now for loop
				rts



read_cmpl		txa							;routine called by async read: A->err, X->len, Y->eof
				sta >r_idlength
				lda #1
				sta >is_complete
				rtl



s_reset			dc.b	6					;reset printer to defaults and set language to american
				dc.b	$1B,$63
				dc.b	$1B,$5A,$07,$00
			
s_paperlen		dc.b	6					;set vertical paper length for formfeed operation
				dc.b	$1B,$48
n_paperlen		dc.b	'0000'				;units are XXXX/144 inch

s_binselect		dc.b    3  					;select cut sheet feeder bin
				dc.b    $1B,$40
n_binselect		dc.b	$30
			
s_selfid 		dc.b	6   				;enable ribbon sensor and request ID string
				dc.b	$1B,$5A,$00,$02  
				dc.b	$1B,$3F
			
is_our_conn 	dc.w	0					;static do-we-have-an-exclusive-connection-to-printer flag
last_bin		dc.w	0					;static last-sheet-feeder-bin-selected flag

is_network  	dc.w	0					;on-network/not-on-network status
is_complete 	dc.w	0					;async read completion flag
r_idlength		dc.w	0					;length of returned ID string
r_idstring		ds.b	8					;storage for returned ID string; 8 characters max





*******************************************************************************





LQShutDown:

				lda ActionBits				;do form feed, if desired
				and #abNoFeed+abGetID
				bne dont_feed
				lda #s_formfeed
				jsr writeshort
dont_feed

				lda ActionBits				;close port connection, if desired
				and #abNoClose
				bne dont_close
				
				lda is_our_conn				;close coneection with printer only if we opened it
				beq dont_close
				
				lda #s_close				;set basic options which were modified back to normal
				jsr writeshort
				ldx #$1F13					;close connection with printer, freeing it for others
				jsl $E10000					;_PrDevClose
				stz is_our_conn				;clear our flag indicating exclusive connection status
dont_close

				rts



s_formfeed		dc.b	1					;form feed
				dc.b	$0C
			
s_close			dc.b	8					;set printer vertical options back to sane values
				dc.b	$1B,$48				;...set-page-length command to 1584/144"=11"
				dc.b	'1584'
				dc.b	$1B,$41				;...set line feed (LF) to default 6 lines/inch





*******************************************************************************





*
*LQMODESET: Sets up printer modes for graphics printing:
*
LQModeSet:
				lda ActionBits				;if IW mode selected and we can't do it, turn it off:
				and #abIWMode
				beq iwq_done
				lda QualBits
				;     5432109876543210
				and #%0010000000011011		;check if any of Better,Land,Reduction,Darker are set
				beq iwq_yes					;none set, so IW mode is supported for selected QualBits
iwq_no			lda ActionBits				;else, clear IW mode bit at this time!
				and #ÅabIWMode
				sta ActionBits
				bra iwq_done
iwq_yes			lda QualBits				;force boldface on if IW mode is desired and authorized
				;     5432109876543210
				ora #%0010000000000000
				sta QualBits
iwq_done
				
				lda QualBits				;get scalings according to QualityBits from lookup table
				and #$1F
				tax
				lda vscaletab,x
				and #$00FF
				sta vScaling
				lda hscaletab,x
				and #$00FF
				sta hScaling
				
				lda ActionBits				;check if IW graphics mode
				and #abIWMode
				beq not_iw_hs
				lda #1						;if IW mode, will do 1X6 print pixels for full size
				sta hscaling
				
not_iw_hs		lda QualBits				;set pitch (horiz print pixel size) diff if port/land
				and #qbLandMode
				bne islandscap
				
isportrait
				lda ActionBits				;check if IW graphics mode
				and #abIWMode
				beq not_iw_sp
				lda #s_iw_port				;if IW/Portrait mode, pick 80 pix/inch pitch
				jsr writeshort
				bra gotmode
				
not_iw_sp		lda #s_lq_port				;if LQ/Portrait mode, pick 240 h pix/inch pitch
				jsr writeshort
				bra gotmode
				
islandscap
				lda #s_lq_land				;if LQ/Landscape mode, pick 192 h pix/inch pitch
				jsr writeshort
				
gotmode
				lda CarriageWidth			;get crWidth from input parameter
				sta crWidth
				
				lda crWidth					;generate crWidth * 3
				asl a
				clc
				adc crWidth
				sta crWidthX3
				
				lda QualBits				;set unidirectional mode if requested
				and #qbUnidir
				beq notunidir
				lda #s_unidir
				jsr writeshort
				
notunidir
				lda QualBits				;set darker printing (boldface mode) if requested
				and #qbDarker
				beq notdarker
				lda #s_darker
				jsr writeshort
				
notdarker
				rts



s_lq_port		dc.b	2					;Condensed (240 dpi)
				dc.b	$1B,$71
			
s_lq_land		dc.b	2					;Elite (192 dpi)
				dc.b	$1B,$45
			
s_iw_port		dc.b	2					;Pica (80 dpi if IW graphics print command used)
				dc.b	$1B,$4E
			
s_unidir		dc.b	2					;unidirectional printing
				dc.b	$1B,$3E
			
s_darker		dc.b	2					;enable boldface mode
				dc.b	$1B,$21





*******************************************************************************





*
*LQADDRCALC: Obtains screen-buffer pixel increment values for imaging loops:
*
LQAddrCalc:
				
				ldy #oportSCB				;get mode info from SrcLoc
				lda [SrcLocPtr],y
				and #$0080
				sta MasterMode
				lda [SrcLocPtr],y
				and #$000F
				sta MasterPal
				
				ldy #optrToPixImage			;get pixmap address from SrcLoc
				lda [SrcLocPtr],y
				sta PixMapBase+0
				iny
				iny
				lda [SrcLocPtr],y
				sta PixMapBase+2
				
				sec                 		;get offset from top to start printing
				ldy #0						;top
				lda [SrcRectPtr],y
				ldy #oboundsRect+0
				sbc [SrcLocPtr],y
				bpl gotvskip
				lda #0
				
gotvskip									;adjust pixmap addr to top print line
				sta SCBTabBase
				pha
				pha
				PHA
				ldy #owidth
				lda [SrcLocPtr],y
				pha
				_Multiply
				clc
				pla
				adc PixMapBase
				sta PixMapBase
				pla
				adc PixMapBase+2
				sta PixMapBase+2
				sec         				;calculate height of print area
				ldy #4
				lda [SrcRectPtr],y
				ldy #0
				sbc [SrcRectPtr],y
				sta PixMapHigh
				sec
				ldy #oboundsRect+4
				lda [SrcLocPtr],y
				ldy #oboundsRect+0
				sbc [SrcLocPtr],y
				sec
				ldy #0
				sbc [SrcRectPtr],y
				cmp PixMapHigh
				bge clipatbot
				sta PixMapHigh
clipatbot
				sec   						;get offset from left edge to print
				ldy #2           			;left
				lda [SrcRectPtr],y
				ldy #oboundsRect+2
				sbc [SrcLocPtr],y
				bpl gothskip
				lda #0
gothskip									;adjust pixmap addr to left edge...
				ldx MasterMode    			;accurate to 1 byte (max 3 pixels off)
				bne gothskip1
				asl a
gothskip1
				tax
				and #$03
				sta PixMapLeft
				txa
				lsr a
				lsr a
				clc
				adc PixMapBase
				sta PixMapBase
				lda PixMapBase+2
				adc #0
				sta PixMapBase+2
				
				sec              			;calculate width of print area
				ldy #6
				lda [SrcRectPtr],y
				ldy #2
				sbc [SrcRectPtr],y
				sta PixMapWide
				sec
				ldy #oboundsRect+6
				lda [SrcLocPtr],y
				ldy #oboundsRect+2
				sbc [SrcLocPtr],y
				sec
				ldy #2
				sbc [SrcRectPtr],y
				cmp PixMapWide
				bge clipright
				sta PixMapWide
clipright
				ldx MasterMode				;double if 320 b/c 2 prpix/scrnpix done below if 320
				bne gotwide
				asl PixMapWide
gotwide
				rts





*******************************************************************************





*
*CLEARLINE: Zeros the buffer which holds the printer-pixels that is built up during imaging loops:
*
ClearLine:
				
				lda LineDirty    			;don't bother to clear the line
				bne cl_enable				;unless there's already some data in it
				rts
				
cl_enable
				lda crWidthX3         		;note that this may write one byte
				dec a             			;beyond the end of the buffer
				and #$FFFE
				tax
				lda #0
				
cl_loop			sta linebuffer,x
				dex
				dex
				bpl cl_loop
				
				stz LineDirty				;reset this flag
				rts





*******************************************************************************





*
*FILLRGBTOKCMY: Fills-in only those color convert tables that are needed by the given SCB list.
*
*There are 16 color conversion tables; only those which are referenced by an SCB in the given
*SCB list are made valid by this routine.  Table entries are of the form $KCMY with 4-bit nibbles
*for each color, and should be indexed by (SCB# 0..15) * 32 + (pixel 0..15) * 2.
*
*Entries are calculated as follows: C=15-R; M=15-G; Y=15-B; K=min(C,M,Y); C=C-K; M=M-K; Y=Y-K;
*and finally M=M*(1-(C/60)).  The last step compensates for incorrect cyan ribbon color.
*

FILLRGBTOKCMY:

				ldy #0						;zero all 16 is-valid-conversion-table flags
				tya							;these flags will be used during the upcoming
				shortm						;conversion-table-fill loop to see if a color
icmy_zloop		sta KCMY_valid,y			;table has alreay been computed
				iny
				cpy #15+1
				bne icmy_zloop
				longm

				ldy PixMapHigh				;prepare for outer loop for all SCB values given by user
				lda QualBits				;find out how tall (how many entries long) the list is
				and #qbBetter				;infer SCB list size from tallness of pixmap
				beq icmy_adjscbdone			;and scale tallness down if Better modes
				lda QualBits				;to compensate for scaled-up pixmap
				and #%00011000
				beq icmy_adjscbdiv3
				cmp #%00001000
				bne icmy_adjscbdone
icmy_adjscbdiv2	tya							;/2 if Better & 66%
				lsr a
				tay
				bra icmy_adjscbdone
icmy_adjscbdiv3	pha							;/3 if Better & 100%
				pha
				phy
				pushword #3
				_UDivide
				ply
				pla
icmy_adjscbdone

*

icmy_DoAllSCBs								;do outer loop for all SCB's given by user
				phy							;Y has SCB # index that we're doing, save for looping

				lda [SCBListPtr],y			;obtain an SCB value
				and #$000F					;only get color table select part of the SCB *byte*
				tay							;Y now has # of one of the tables that will be needed
				lda KCMY_valid,y			;have we already computed entries for this table?
				and #$00FF					;(the KCMY-valid table is a table of bytes)
				bne icmy_next1scb			;yes, we already did this table, so go on
				
				lda #1						;else: we didn't compute this table yet, so mark it
				shortm						;as computed and drop into the compute code below
				sta KCMY_valid,y			;Y still has the table #
				longm
				
				tya							;ready to compute: construct start adrs of RGB colr tbl
				asl a						;each table is 32 bytes long, so do table # * 32
				asl a						;this computed start address will point to the beginning
				asl a						;of the current color table that we're converting, and
				asl a						;is valid for both the user's list of (RGB) tables and
				asl a						;our in-progress list of (KCMY) tables
				sta icmy_ctblbase

***
				lda #30						;compute KCMY entries for all 16 RGB words in this table
icmy_fill1tbl	pha							;save loop counter/index within this table
				clc							;add to base address of this SCB's table
				adc icmy_ctblbase
				tay
				phy							;save base address+color entry index of this SCB's table
				lda [CTablePtr],y			;access user's RGB value within user's table
				jsr icmy_ConvertOne			;convert $0RGB nibbles in A to $KCMY nibbles in A
				ply							;restore saved base address+color entry index
				sta KCMY_lookup,y			;use it to store KCMY into our parallel table
				pla							;restore loop counter/index
				dea							;going backwards from end to beginning
				dea
				bpl icmy_fill1tbl
***
				
icmy_next1scb	ply							;bottom of loop for all SCBs, restore SCB # index
				dey							;we're going backwards up to and including 0
				cpy #$FFFF					;exit back to caller when done
				bne icmy_DoAllSCBs
				rts
				




icmy_ConvertOne:							;subr to calc KCMY from RGB nibbles (input/output in ACC)

				eor #$0FFF					;subtract R,G,B values from 15 each in place
											;$0RGB   ->   $ [0] [$F-R] [$F-G] [$F-B]
				tax
				and #$000F					;normalize values in the nibbles into static vars
				sta icmy_valueY				;so we can do manipulations on them
				txa
				lsr a
				lsr a
				lsr a
				lsr a
				and #$000F
				sta icmy_valueM
				txa
				xba
				and #$000F
				sta icmy_valueC
				
				lda icmy_valueC				;do K = min (C,M,Y)
				sta icmy_valueK
icmy_min1		cmp icmy_valueM
				bcc icmy_min2
				lda icmy_valueM
				sta icmy_valueK
icmy_min2		cmp icmy_valueY
				bcc icmy_min3
				lda icmy_valueY
				sta icmy_valueK
icmy_min3
				sec							;subtract K value from each of C,M,Y values
				lda icmy_valueC
				sbc icmy_valueK
				sta icmy_valueC
				sec
				lda icmy_valueM
				sbc icmy_valueK
				sta icmy_valueM
				sec
				lda icmy_valueY
				sbc icmy_valueK
				sta icmy_valueY

				lda #60						;do fudge factor to M
				sec							;M = M * (1 - (C/60)), done as 60M=M(60-C) in int math
				sbc icmy_valueC				;this has the effect of reducing the value for M by
				pha							;0..25% for C values of 0..100%
				pha
				pha
				pushword icmy_valueM
				_Multiply
				pla
				plx
				phx
				phx
				pha
				pushword #60
				_UDivide
				pla
				plx
				sta icmy_valueM
				
				lda icmy_valueM				;assemble nibble values into $KCMY word
				asl a
				asl a
				asl a
				asl a
				ora icmy_valueY
				sta colortemp
				lda icmy_valueC
				xba
				ora colortemp
				sta colortemp
				lda icmy_valueK
				xba
				asl a
				asl a
				asl a
				asl a
				ora colortemp
				
				rts							;exit this subroutine with $KCMY-word in ACC
				



				
icmy_valueK		dc.w 0						;normalized value for black print intensity 0..15
icmy_valueC		dc.w 0						;normalized value for cyan print intensity 0..15
icmy_valueM		dc.w 0						;normalized value for magenta print intensity 0..15
icmy_valueY		dc.w 0						;normalized value for yellow print intensity 0..15

icmy_ctblbase	dc.w 0						;start offset of a single 16-entry, 32-byte color table

KCMY_valid		ds.b 16						;is-valid indicator flags for each color convert table
KCMY_lookup		ds.w 16*16					;16 convert tables of 16 $KCMY-word entries each





*******************************************************************************





LQPrPixMapOrText:
				
				lda ActionBits				;see if user wants us to print graphics or text at all
				and #abDoImage+abGetID
				beq goPrint
				rts
				
goPrint			lda ActionBits				;see if want to print native text instead of graphics
				and #abTextMode
				bne goPrintText
				brl goPrintPix




		   
*
*Start of code to print string using printer's native text mode (for "Draft Printing"):
*
goPrintText:
				
				jsr IdleProcAbortErrCheck	;call once before sending string
				lda prError					;give user a chance to exit before even printing anything
				beq prtext_ln				;if error or user exit, don't go on
				rts
				
prtext_ln		lda CTablePtr				;check length: if null string, don't go on
				bne prtext_ok
				rts
				
prtext_ok		pha							;div delta y to do 1)coarse, 2)fine y posn to save time
				pha
				pushword SrcRectPtr+0
				pushword #18/2				;number of y positions to do at a time to save time
				_UDivide
				pullword coarse_num_lf
				pullword fine_num_lf
				
				ldy coarse_num_lf			;do coarse delta y (move down only)
				beq done_ypos1
loop_ypos1		phy
				lda #s_movedown_c
				jsr writeshort
				ply
				dey
				bne loop_ypos1
done_ypos1

				ldy fine_num_lf				;do fine delta y (move down only)
				beq done_ypos2
loop_ypos2		phy
				lda #s_movedown_f
				jsr writeshort
				ply
				dey
				bne loop_ypos2
done_ypos2
				
				lda SrcRectPtr+2			;do absolute x (printer pix position to move head to)
				pha
				pushlong #n_moveacross
				pushword #4
				pushword #0
				_Int2Dec
				lda #s_moveacross
				jsr writeshort
				
				lda #$30					;select one of the printer's built-in fonts
				shortm
				ora SCBListPtr+0
				sta n_textfont
				longm
				lda #s_textfont
				jsr writeshort
				
				shortm						;select one of the printer's built-in text sizes
				lda SCBListPtr+1
				longm
				and #%111
				asl a
				asl a
				clc
				adc #s_textsize_tbl
				jsr writeshort
				
				lda #s_textstlreset			;select one of the printer's built-in text styles
				jsr writeshort
				shortm
				lda SCBListPtr+2
				longm
				pha
				and #%00000001
				beq textstl_1
				lda #s_boldface
				jsr writeshort
textstl_1		pla
				pha
				and #%00000010
				beq textstl_2
				lda #s_underline
				jsr writeshort
textstl_2		pla
				pha
				and #%00000100
				beq textstl_3
				lda #s_doublewidth
				jsr writeshort
textstl_3		pla
				and #%00001000
				beq textstl_4
				lda #s_halfheight
				jsr writeshort
textstl_4
				
				ldy #0						;loop through string; will cache until intl char
				sty last_intl
				sty last_posn
				
loop_char		sty curr_posn				;get an ascii character...
				lda [SrcLocPtr],y
				and #$00FF
				sta stor_char
				
				cmp #$0020					;convert to space and go on if control character...
				bcs not_ctrl
				lda #$0020
				shortm
				sta [SrcLocPtr],y			;current position still in Y
				longm
				bra next_char
				
not_ctrl		lda stor_char				;check if the char is international while normalizing...
				sec
				sbc #$0080
				bpl its_intl				;go to next section if intl char with ACC $00..$7F
				stz last_intl				;else keep this flag clear and go on...
				bra next_char
				
its_intl		pha							;current char is international; save normalized intl char
				lda last_intl				;check if last char was intl...
				bne do_conv					;if so then don't flush previous chars
				jsr out_flush				;if not then flush
				lda #1						;set flag for next time
				sta last_intl
do_conv			pla							;restore $00..$7F normalized intl char code
				asl a						;form index into intl char translation table
				tax
				shortm						;intl tbl entries: {byte new_char; byte lang_tbl_offset}
				lda intl_tbl+0,x
				sta stor_char				;overwrite our idea of the character code
				lda intl_tbl+1,x			;now get the language it's in from language table
				longm
				and #$FF
				clc							;lang tbl entries consist of writeshort command strings
				adc #lang_tbl				;add base address of table
				jsr writeshort				;set printer to the language
				
				lda #stor_char				;output character...
				ldx #^stor_char
				ldy #1
				jsr writelong
				lda #lang_tbl				;set language back to american...
				jsr writeshort
				lda curr_posn				;keep last_posn initted in case next char not intl...
				ina
				sta last_posn
				
next_char		ldy curr_posn
				iny
				cpy CTablePtr				;length was passed in lo word of CTablePtr
				bne loop_char
				
				lda last_intl				;if last char was output using intl method, no flush...
				bne skip_fflsh		   
				inc curr_posn				;else make sure our entire string is out...
				jsr out_flush
skip_fflsh		lda #s_textstlreset			;always reset printer setup
				jsr writeshort
				lda #s_cr					;do carriage return so next string can be to the left
				brl writeshort				;and exit
				
out_flush		sec							;write source=SrcLoc+last_posn, count=curr_posn-last_posn
				lda curr_posn				;note this actually is one char too few
				sbc last_posn
				beq no_flush				;if count would be zero, don't do this
				pha							;save count
				clc							;compute SrcLoc.LONG + last_posn.WORD...
				lda SrcLocPtr
				adc last_posn
				tay
				lda SrcLocPtr+2
				adc #0
				tax							;X gets hi word
				tya							;A gets lo word
				ply							;Y gets count restored from above
				jsr writelong				;write from=A,X count=Y
				lda curr_posn				;set marker for next time...
				sta last_posn
no_flush		rts



last_intl		dc.w 0
last_posn		dc.w 0
curr_posn		dc.w 0
stor_char		dc.w 0
coarse_num_lf	dc.w 0
fine_num_lf		dc.w 0



s_newln			dc.b 2						;output line feed and carriage return
          		dc.b $0A,$0D
		   
s_textfont		dc.b 3						;select built-in fonts
				dc.b $1B,$61
n_textfont  	dc.b $30					;$3N, where N=0..3

s_textsize_tbl	dc.b 2						;select built-in font sizes
				dc.b $1B,$6E,0
				dc.b 2
				dc.b $1B,$4E,0
				dc.b 2
				dc.b $1B,$45,0
				dc.b 2
				dc.b $1B,$65,0
				dc.b 2
				dc.b $1B,$71,0
				dc.b 2
				dc.b $1B,$51,0
				dc.b 2
				dc.b $1B,$70,0
				dc.b 2
				dc.b $1B,$50,0
				
				
				
s_textstlreset	dc.b 7						;turn off bold, underline, doublewidth, halfheight
				dc.b $1B,$22
				dc.b $1B,$59
				dc.b $0F
				dc.b $1B,$57
				
s_boldface		dc.b 2						;turn on boldface text mode
    			dc.b $1B,$21

s_underline		dc.b 2						;turn on underline text mode
       			dc.b $1B,$58
			   
s_doublewidth	dc.b 1						;turn on doublewidth text mode
      			dc.b $0E

s_halfheight	dc.b 2						;turn on halfheight text mode
    			dc.b $1B,$77


			   
s_movedown_c	dc.b	5					;coarse y posn: LF=18/144", do LF
				dc.b	$1B,$54
				dc.b	'18'
	 			dc.b	$0A

s_movedown_f	dc.b	5					;fine y posn: LF=2/144" (=1/72 match low-qual gr print)
	      		dc.b	$1B,$54
				dc.b	'02'
	 			dc.b	$0A

s_moveacross	dc.b 8						;move head N_MOVEACROSS ascii # of std resolution units
       			dc.b $1B,$4E				;set hor resolution to 80 dpi
    			dc.b $1B,$46				;set position
n_moveacross	dc.b '0000'



lang_tbl		dc.b 4					;American - offset=00	;lang sel cmds for intl chars...
				dc.b $1B,$5A,$07,$00							;indexed by offsets from intl_tbl
				dc.b 8					;British  - offset=05	;table entries: writeshort commands
				dc.b $1B,$5A,$04,$00
				dc.b $1B,$44,$03,$00
				dc.b 8					;Danish   - offset=14
				dc.b $1B,$5A,$05,$00
				dc.b $1B,$44,$02,$00
				dc.b 8					;French   - offset=23
				dc.b $1B,$5A,$01,$00
				dc.b $1B,$44,$06,$00
				dc.b 8					;German   - offset=32
				dc.b $1B,$5A,$03,$00
				dc.b $1B,$44,$04,$00
				dc.b 8					;Italian  - offset=41
				dc.b $1B,$5A,$06,$00
				dc.b $1B,$44,$01,$00
				dc.b 8					;Swedish  - offset=50
				dc.b $1B,$5A,$02,$00
				dc.b $1B,$44,$05,$00
				dc.b 4					;Spanish  - offset=59
				dc.b $1B,$44,$07,$00

intl_tbl		dc.b $5B,50 , $5D,50 , $43,00 , $45,00			;mapping intl chars to chars+cmds...
				dc.b $5C,59 , $5C,50 , $5D,32 , $61,00			;indexed by ascii $80..$FF
				dc.b $7B,41 , $61,00 , $7B,50 , $61,00			;table entries: new_ascii,offset
				dc.b $7D,50 , $5C,23 , $7B,23 , $7D,23			;into the language table above
				dc.b $65,00 , $65,00 , $69,00 , $7E,41
				dc.b $69,00 , $69,00 , $7C,59 , $6F,00
				dc.b $7C,41 , $6F,00 , $7C,50 , $6F,00
				dc.b $75,00 , $7C,23 , $75,00 , $7D,32
				dc.b $2A,00 , $7B,59 , $63,00 , $23,05
				dc.b $40,59 , $7B,59 , $50,00 , $7E,32
				dc.b $20,00 , $20,00 , $20,00 , $27,00
				dc.b $7E,23 , $23,00 , $5B,14 , $5C,14
				dc.b $7E,00 , $7E,00 , $20,00 , $20,00
				dc.b $59,00 , $75,00 , $64,00 , $45,00
				dc.b $50,00 , $70,00 , $40,59 , $61,00
				dc.b $6F,00 , $5A,00 , $7B,14 , $7C,14
				dc.b $5D,59 , $5B,59 , $7E,00 , $20,00
				dc.b $66,00 , $7E,00 , $64,00 , $22,00
				dc.b $22,00 , $2E,00 , $41,00 , $41,00
				dc.b $4F,00 , $20,00 , $20,00 , $20,00
				dc.b $20,00 , $22,00 , $22,00 , $27,00
				dc.b $27,00 , $2F,00 , $20,00 , $79,00
				dc.b $20,00 , $20,00 , $20,00 , $20,00
				dc.b $20,00 , $20,00 , $20,00 , $20,00
				dc.b $20,00 , $20,00 , $20,00 , $20,00
				dc.b $20,00 , $20,00 , $20,00 , $20,00
				dc.b $20,00 , $20,00 , $20,00 , $20,00
				dc.b $20,00 , $20,00 , $20,00 , $20,00
				dc.b $20,00 , $20,00 , $20,00 , $20,00
				dc.b $20,00 , $20,00 , $20,00 , $20,00
				dc.b $20,00 , $20,00 , $20,00 , $20,00
				dc.b $20,00 , $20,00 , $20,00 , $20,00





********************************************************************************





*
*Start of code to print pixel map using printer's graphics mode (for "Spool Printing"):
*
goPrintPix:
				
				import Dithmatrix
				
				jsr LQmodeset				;set printer modes; boldface, character pitch, etc
				
				lda #1            			;make sure linebuffer gets cleared
				sta LineDirty
				
				jsr LQaddrcalc				;calculate scrn-pix increment values for looping
				
				jsr FillRGBtoKCMY			;calculate color system conversion tables
				
				lda QualBits				;go do one of the two imaging loops
				and #qbLandMode
				beq Pbandloop
				brl Lbandloop
				
				
				
				
				
Pbandloop									;*** PORTRAIT MODE PRINTING LOOP ***
				
				lda PixMapHigh        		;see if any more to print
				beq allPbands
				jsr IdleProcAbortErrCheck	;caller's idle proc or our option-period abort check
				lda prError
				bne allPbands
				lda QualBits
				bmi Pcolorband
				
Pbwband										;print a grayscale band
				lda #s_printBW
				jsr onePband
				bra nextPband
				
Pcolorband									;print the color bands
				jsr saveinfo     			;the 'restinfo' calls undo the
				lda #s_printyel    			;pointer advances done by
				jsr onePband         		;onePband, so all the color
				jsr restinfo        		;bands print from the same data
				lda #s_printmag
				jsr onePband
				jsr restinfo
				lda #s_printcyn
				jsr onePband
				jsr restinfo
				lda #s_printblk
				jsr onePband
				
nextPband
				lda #s_lf             		;advance printer 1/9"
				jsr writeshort
				bra Pbandloop
allPbands									;portrait mode printing done
				rts





**********

saveinfo									;save all variables modified by
				lda PixMapBase+0  			;...the band print routine
				sta savearea+0
				lda PixMapBase+2
				sta savearea+2
				lda PixMapHigh
				sta savearea+4
				lda SCBTabBase
				sta savearea+6
				lda PixMapWide
				sta savearea+8
				rts
				
savearea		ds.b 10

restinfo									;restore variables modified by the
				lda savearea+0      		;...band print routine
				sta PixMapBase
				lda savearea+2
				sta PixMapBase+2
				lda savearea+4
				sta PixMapHigh
				lda savearea+6
				sta SCBTabBase
				lda savearea+8
				sta PixMapWide
				rts
				
**********





onePband									;print one portrait mode band
				
				sta colorstr     			;remember what color it is
				jsr clearline  				;clear the line buffer
				stz linebase				;zero pix line base
				
				lda ActionBits				;skip next section if not IW graphics mode
				and #abIWMode
				beq lq_PBand
				
				lda QualBits
				and #qbCndnsd
				bne iw_PLX1
				
iw_PLX2			lda #%00000011				;IW mode: 4 rows of scrn pixels per 8-dot IW print band
				jsr onePline
				jsr nextPline
				lda #%00001100
				jsr onePline
				jsr nextPline
				lda #%00110000
				jsr onePline
				jsr nextPline
				lda #%11000000
				jsr onePline
				jsr nextPline
				brl pbanddone
				
iw_PLX1			lda #%00000001				;IW mode: 8 rows of scrn pixels per 8-dot IW print band
				jsr onePline
				jsr nextPline
				lda #%00000010
				jsr onePline
				jsr nextPline
				lda #%00000100
				jsr onePline
				jsr nextPline
				lda #%00001000
				jsr onePline
				jsr nextPline
				lda #%00010000
				jsr onePline
				jsr nextPline
				lda #%00100000
				jsr onePline
				jsr nextPline
				lda #%01000000
				jsr onePline
				jsr nextPline
				lda #%10000000
				jsr onePline
				jsr nextPline
				brl pbanddone
				
lq_PBand		lda vScaling   				;branch based on vertical scaling
				dec a                 		;each possibility (1,2,3,4,6)
				dec a                 		;is done individually
				bmi goPlineX1
				beq goPlineX2
				dec a
				dec a
				bmi PlineX3
				beq PlineX4
				
PlineX6										;vScaling=6: full size
				lda #%0000000000111111   	;1
				jsr onePline
				jsr nextPline
				lda #%0000111111000000    	;2
				jsr onePline
				jsr nextPline
				inc linebase
				lda #%0000001111110000     	;3
				jsr onePline
				jsr nextPline
				lda #%1111110000000000    	;4 rows of pixels per 24-dot print head band scan
				jsr onePline
				jsr nextPline
				brl Pbanddone
				
goPlineX1		brl PlineX1           		;extend out-of-range branches
goPlineX2		brl PlineX2

PlineX4										;vScaling=4: 2/3 size
				lda #%00001111          	;6 pixel lines per band
				jsr onePline
				jsr nextPline
				lda #%11110000
				jsr onePline
				jsr nextPline
				inc linebase
				lda linebase
				cmp #3
				blt PlineX4
				brl Pbanddone
				
PlineX3										;vScaling=3: full size condensed
				lda #%0000000000000111   	;8 pixel lines per band
				jsr onePline
				jsr nextPline
				lda #%0000000000111000
				jsr onePline
				jsr nextPline
				lda #%0000000111000000
				jsr onePline
				jsr nextPline
				lda #%0000111000000000
				jsr onePline
				jsr nextPline
				lda #%0111000000000000
				jsr onePline
				inc linebase
				jsr nextPline
				lda #%0000001110000000
				jsr onePline
				jsr nextPline
				lda #%0001110000000000
				jsr onePline
				jsr nextPline
				lda #%1110000000000000
				jsr onePline
				jsr nextPline
				brl Pbanddone
				
PlineX2										;vScaling=2: 1/3 size, 2/3 condensed
				lda #%00000011       		;12 pixel lines per band
				jsr onePline
				jsr nextPline
				lda #%00001100
				jsr onePline
				jsr nextPline
				lda #%00110000
				jsr onePline
				jsr nextPline
				lda #%11000000
				jsr onePline
				jsr nextPline
				inc linebase
				lda linebase
				cmp #3
				blt PlineX2
				brl Pbanddone
				
PlineX1										;vScaling=1: 1/3 size condensed
				lda #%00000001        		;24 pixel lines per band
PlineX1a
				jsr onePline
				jsr nextPline
				lda pixelbits
				asl a
				sta pixelbits
				cmp #$0100
				blt PlineX1a
				inc linebase
				lda linebase
				cmp #3
				bge Pbanddone
				lda #%00000001
				bra PlineX1a
				
Pbandexit									;nextPline has aborted this band
				pla
Pbanddone
				jsr LQsendbuff  			;band is generated, now send it to LQ
				rts



nextPline									;common routine to advance to next
				clc                  		;pixel line
				ldy #owidth
				lda [SrcLocPtr],y
				adc PixMapBase+0
				sta PixMapBase+0
				lda PixMapBase+2
				adc #0
				sta PixMapBase+2
				inc SCBTabBase
				dec PixMapHigh        		;if at bottom of pixelmap, pull RTS
				beq Pbandexit      			;addr from stack and abort onePline
				rts
				
				
				
**********



onePline									;generate band data for one pixel line
				sta pixelbits            	;A=bit mask for this line
				lda linebase
				sta lineoffset
				stz DitherH
				lda PixMapLeft
				sta leftskip
				lda MasterMode
				sta ThisLMode
				lda MasterPal
				sta ThisLPal
				lda SCBListPtr+0        	;if a SCBList was specified, as it must be, get
				ora SCBListPtr+2       		;the mode/palette for this line from it
				beq gothePmode
				ldy SCBTabBase
				lda QualBits         		;if in Better Text mode, we must
				and #qbBetter        		;scale the SCBList index down by the
				beq gotPindex        		;same amount the printer driver
				lda QualBits          		;scaled the pixelmap up
				and #%00011000
				beq Pdivby3
				cmp #%00001000
				bne gotPindex   			;1/3 size: no scaling
Pdivby2										;2/3 size: scaled by a factor of 2
				tya
				lsr a
				tay
				bra gotPindex
				
Pdivby3										;full size: scaled by a factor of 3
				pha
				pha
				phy
				pushword #3
				_UDivide
				ply
				pla
				
gotPindex
				lda [SCBListPtr],y
				and #$0080
				sta ThisLMode
				lda [SCBListPtr],y
				and #$000F
				sta ThisLPal
				
gothePmode
				lda ThisLPal				;shift color table select value to transform 0..15
				asl a						;into start address of 16-word (32-byte) color table
				asl a
				asl a
				asl a
				asl a
				sta ThisLPal       			;it's now offset of the colortable for this line
				
				stz Pbw6_enabl				;see if we can enable std-black/white-pixel-value imaging
				lda ThisLMode				;mode must be 640
				cmp #$0080
				bne Pnot_bw6
				lda hscaling				;hscaling must be 1
				cmp #1
				bne Pnot_bw6
				lda leftskip				;leftskip must be 0
				bne Pnot_bw6
				lda ActionBits				;IW mode must be off
				and #abIWmode
				bne Pnot_bw6
				ldy ThisLPal				;check all first minipallette entries for pure black...
				ldx #4
Pch1_bw6		lda [CTablePtr],y
				bne Pnot_bw6
				tya
				clc
				adc #8
				tay
				dex
				bne Pch1_bw6
				lda ThisLPal				;check all fourth minipallette entries for pure white...
				clc
				adc #6
				tay
				ldx #4
Pch2_bw6		lda [CTablePtr],y
				cmp #$0FFF
				bne Pnot_bw6
				tya
				clc
				adc #8
				tay
				dex
				bne Pch2_bw6
				lda #1						;enable if above requirements are all met
				sta Pbw6_enabl
Pnot_bw6
				
				ldy #owidth					;obtain byte-width of scanlines for white-scan loop
				lda [SrcLocPtr],y
				sta Pwht_btend+1
				
				stz Pwht_enabl				;see if we have a white color table entry; we'll
				lda ThisLPal				;figure out what a word full of white pixels looks like
				clc
				adc #$1E
				tay
Pfndwhite		lda [CTablePtr],y			;look for first pure white color table entry
				cmp #$0FFF
				beq Ppalwhite
				dey
				dey
				tya
				cmp ThisLPal				;loop for all 32 bytes in this color table
				bpl Pfndwhite
				brl Pdonwhite
				
Ppalwhite		tya
				sec
				sbc ThisLPal
				tay
				lda ThisLMode
				and #$0080
				bne Ppalwh640
				
Ppalwh320		lda #1						;found white color entry and we're in 320 mode
				sta Pwht_enabl				;enable white-scanning
				tya
				lsr a
				and #$F
				sta Pwht_model+1			;build white model word -- what 2 bytes of white in 320
				asl a						;mode (4 pixels) would look like in memory
				asl a
				asl a
				asl a
				ora Pwht_model+1
				sta Pwht_model+1
				xba
				ora Pwht_model+1
				sta Pwht_model+1
				bra Pdonwhite
				
Ppalwh640		cpy #$18					;in 640 mode -- all other 3 minipall must also be white,
				bcc Pdonwhite				;else don't enable white scanning
				tyx
				lda #$0FFF
				dey
				dey
				dey
				dey
				dey
				dey
				dey
				dey
				cmp [CTablePtr],y
				bne Pdonwhite
				dey
				dey
				dey
				dey
				dey
				dey
				dey
				dey
				cmp [CTablePtr],y
				bne Pdonwhite
				dey
				dey
				dey
				dey
				dey
				dey
				dey
				dey
				cmp [CTablePtr],y
				bne Pdonwhite
				lda #1						;yes we're ok to enable white-scanning
				sta Pwht_enabl
				txa							;build a white model word -- what 2 bytes of white in 640
				lsr a						;mode (8 pixels) would look like in memory
				and #%11
				sta Pwht_model+1
				asl a
				asl a
				ora Pwht_model+1
				sta Pwht_model+1
				asl a
				asl a
				asl a
				asl a
				ora Pwht_model+1
				sta Pwht_model+1
				xba
				ora Pwht_model+1
				sta Pwht_model+1
Pdonwhite  									;finished with search for white pixel values
				
				lda PixMapWide				;initialize for horizontal pixel countdown
				sta horPcount
				
				ldx hScaling				;precalculate linebuffer index inc for PwhtNonWht
				stx Pwht_lbinc				;Pwht_lbinc = hScaling * [3|1] if [LQ|IW]...
				lda ActionBits
				and #abIWmode
				bne Pnolbinc1
				txa
				asl a
				clc
				adc hScaling
				sta Pwht_lbinc
Pnolbinc1		lda Pwht_lbinc				;...then Pwht_lbinc *= [8|8] if [320|640] (same because
				asl a						;horizontal pairs of prpix are done below if 320 mode)
				asl a
				asl a						
				sta Pwht_lbinc				;Pwht_lbinc now has linebuffer_index_inc per screen_word
				
				
				
**********



				ldy #0						;initialize byte counter
Pbyteloop									;head of loop for bytes in this pixel line
				
				lda Pwht_enabl				;see if we can do white pixel word elimination
				beq Pbytepxls
				
				sty Pwht_oldbp				;save old line byte position
PwhtScan		lda [PixMapBase],y			;try to eliminate whole words of white pixels at time
Pwht_model		cmp #$0000					;NOTE: operand for this instruction is stuffed
				bne PwhtNonWht
				lda lineoffset				;lineoffset += Pwht_lbinc calculated before loop above
				clc
				adc Pwht_lbinc
				sta lineoffset
				iny
				iny
Pwht_btend		cpy #$0000					;NOTE: operand for this instruction is stuffed
				bcc PwhtScan
PwhtExit		rts							;exit here if we ran out of bytes in current line
		   
		   
		   
PwhtNonWht		cpy Pwht_oldbp				;skip this part quick if we couldn't scan any white words
				beq Pbytepxls
				
				tya							;here we are if a word is found to be nonwhite
				sec							;figure out how many pixels we skipped, leaving Y intact
				sbc Pwht_oldbp				;now have number of bytes we skipped
				asl a						;4 pix/byte if 640 mode; also for 320 b/c prpix doubled
				asl a
				
				tax							;faking changes that would have occurred if we did pixels
				lda horPcount				;horPcount -= num_pix_skipped
				stx horPcount
				sec
				sbc horPcount
				sta horPcount
				beq PwhtExit				;exit here if horPcount <= 0
				bcc PwhtExit
				stz leftskip				;leftskip=0 since we are sure to be byte-aligned now
				
				
				
Pbytepxls		lda ThisLMode				;here we start picking pixels out of an (off)-screen byte
				bne Pbyte640
		   
		   
		   
Pbyte320									;doing an off-scrn byte full of 320-mode pixels
				lda [PixMapBase],y        	;320 mode generates pairs of identical
				lsr a						;pixels, for compatibility with 640
				lsr a
				lsr a
				lsr a
				jsr onePpixel         		;left pixel in byte
				lda [PixMapBase],y
				lsr a
				lsr a
				lsr a
				lsr a
				jsr onePpixel           	;left pixel in byte, again
				lda [PixMapBase],y
				jsr onePpixel            	;right pixel in byte
				lda [PixMapBase],y
				jsr onePpixel            	;right pixel in byte, again
				iny							;do next byte full of pixmap pixels
				bra Pbyteloop
				
				
				
Pbyte640									;doing an off-scrn byte full of 640-mode pixels
				lda Pbw6_enabl				;see if ok to do std-black/white-quick-imaging
				bne Pbw6_ok1
				brl Pbw6_gen
Pbw6_ok1		lda colorstr				;see if we're on the b/w band, else don't do quick-img
				cmp #s_printBW
				beq Pbw6_ok2
				brl Pbw6_gen
Pbw6_ok2		lda [PixMapBase],y
				cmp #%11111111
				beq Pbw6_ndty				;should we set dirty flag? no, this byte is all white
				ldx #1						;not all-white: set dirty flag
				stx LineDirty
Pbw6_ndty		phy
				pha
				ldy lineoffset
				ldx pixelbits
				
				and #%11000000				;leftmost pixel in 640 mode byte
				beq Pbw6_B0
				cmp #%11000000
				bne Pbw6_cant
				bra Pbw6_W0
Pbw6_B0			txa
				ora LineBuffer,y
				sta LineBuffer,y
Pbw6_W0			iny
				iny
				iny
				
				lda 1,s						;second pixel in 640 mode byte
				and #%00110000
				beq Pbw6_B1
				cmp #%00110000
				bne Pbw6_cant
				bra Pbw6_W1
Pbw6_B1			txa
				ora LineBuffer,y
				sta LineBuffer,y
Pbw6_W1			iny
				iny
				iny
				
				lda 1,s						;third pixel in 640 mode byte
				and #%00001100
				beq Pbw6_B2
				cmp #%00001100
				bne Pbw6_cant
				bra Pbw6_W2
Pbw6_B2			txa
				ora LineBuffer,y
				sta LineBuffer,y
Pbw6_W2			iny
				iny
				iny
				
				lda 1,s						;rightmost pixel in 640 mode byte
				and #%00000011
				beq Pbw6_B3
				cmp #%00000011
				bne Pbw6_cant
				bra Pbw6_W3
Pbw6_B3			txa
				ora LineBuffer,y
				sta LineBuffer,y
Pbw6_W3			iny
				iny
				iny
				
				lda horPcount				;decrement/exit-on-zero horizontal pixelmap pixel count
				sec							;we did four pixels in this byte
				sbc #4
				sta horPcount
				beq Pbw6_exit
				bcc Pbw6_exit
				
Pbw6_next		sty lineoffset				;we're not exitting because of horPcount, update counters
				pla							;clean up stack which had saved pixmap byte
				ply							;restore pixelmap byte index
				iny							;do next pixmap byte full of pixels now
				brl Pbyteloop
				
Pbw6_exit		pla							;end of horPcount, clean stack and exit this prpix line
				ply
				rts
				
Pbw6_cant		pla							;turned out byte wasn't all-B/W, clean up stack, restore
				ply							;pixmap byte index and drop into general-case code



Pbw6_gen		lda [PixMapBase],y			;general-case 640-mode pixel handling, if we can't do
				asl a						;the quick method above
				asl a
				xba
				and #%0011
				jsr onePpixel         		;first pixel in byte
				lda [PixMapBase],y
				lsr a
				lsr a
				lsr a
				lsr a
				and #%0011
				ora #%0100
				jsr onePpixel         		;second pixel in byte
				lda [PixMapBase],y
				lsr a
				lsr a
				and #%0011
				ora #%1000
				jsr onePpixel           	;third pixel in byte
				lda [PixMapBase],y
				ora #%1100
				jsr onePpixel     			;last pixel in byte
				iny							;do next byte full of pixmap pixels
				brl Pbyteloop



**********



onePpixel									;do stack pointer -2 to exit current line
				dec leftskip          		;do nothing if we are skipping pixels
				bmi rightonP           		;...at the left edge (max 3)
				rts
				
rightonP
				phy                			;save index into pixel line
				and #$000F					;pixel value is given in ACC
				asl a                		;convert pixel into colortable index
				ora ThisLPal				;and add SCB palette-select-value for this scrn line
				tay							;Y now has offset into color table for current pixel
				
				ldx colorstr            	;branch based on color/grayscale mode
				cpx #s_printBW
				bne colorPpix
				
bwPpix										;convert RGB to grayscale:
				lda [CTablePtr],y			;obtain RGB value from colortable
				and #$0FFF					;if it's white, save some work
				cmp #$0FFF
				bne bwPpx_nwht
				brl isPzero
bwPpx_nwht		xba
				and #$000F              	;R
				sta colortemp
				asl a
				asl a                     	;4R
				adc colortemp
				sta colortemp           	;5R
				lda [CTablePtr],y
				lsr a
				and #%01111000        		;8G
				clc
				adc colortemp          		;5R+8G
				tax
				lda [CTablePtr],y
				and #$000F                 	;B
				sta colortemp
				txa
				eor #$FF               		;255-5R-8G
				sec
				sbc colortemp          		;255-5R-8G-B
				sbc colortemp            	;255-5R-8G-2B
				sbc colortemp            	;255-5R-8G-3B
				and #%11110000				;do adjustment to avoid destructive interference
				beq bwPpix_fin				;between our and 640's dithering
				ldx thisLmode
				beq bwPpix_fin
				cmp #%00110000
				bne bwPpix_fin
				lda #%10100000
bwPpix_fin		ldx #0
				brl gotPvalue

colorPpix
				lda KCMY_lookup,y			;convert $0RGB to $KCMY with table
				ldy colorstr         		;branch on the color being printed and
				cpy #s_printyel       		;extract proper K, C, M, or Y nibble
				beq yelPpix
				cpy #s_printmag
				beq magPpix
				cpy #s_printcyn
				beq cynPpix
blkPpix
				xba
				ldx #0
				bra gotPvalue
				
cynPpix
				lsr a
				lsr a
				lsr a
				lsr a
				ldx #3
				bra gotPvalue
				
magPpix
				ldx #3
				bra gotPvalue
				
yelPpix
				asl a
				asl a
				asl a
				asl a
				ldx #3
				
				
				
gotPvalue									;A=print density, 0..15 * 16 (in upper nibble)
				and #$F0               		;X=dither pattern offset, 0=blk 3=CMY
				sta colortemp         		;(keeps black from overprinting color)
				bne isPnonzero
isPzero										;save some work if density is 0
				clc                    		;fake the changes that would be made
				lda DitherH          		;if we continued with this pixel
				adc hScaling
				sta DitherH
				lda lineoffset
				clc
				adc hScaling
				sta lineoffset
				lda ActionBits
				and #abIWMode
				bne Ppixeldone
				lda lineoffset
				clc
				adc hScaling
				adc hScaling
				sta lineoffset
				bra Ppixeldone
				
isPnonzero									;nonzero density, print it into linebuffer
				lda ActionBits
				and #abIWMode				;check if IW-mode & 320-mode & color-mode are in effect
				beq isPnz_no2i
				lda ThisLMode
				bne isPnz_no2i
				lda QualBits
				bpl isPnz_no2i
				asl colortemp				;do 2x density, compensate for wider-spread printer dots
				lda colortemp				;and pin overflow
				and #$FF00
				beq isPnz_no2i
				lda #$F0
				sta colortemp
isPnz_no2i		lda #1
				sta LineDirty
				txa                     	;calculate dithmatrix offset based on
				clc                 		;...density & offset
				adc DitherH					;add DitherH value, which just increases all the time
				and #%0111					;take only least significan bits and make into word index
				asl a
				ora colortemp          		;select density level; now have offset into dithmatrix
				tax
				ldy hScaling            	;call the pixel plot routine based on
				dey                  		;the horizontal scaling
				dey
				bmi PpixelX1
				beq PpixelX2
PpixelX3		jsr onePpixel1        		;hScaling=3: full size
PpixelX2		jsr onePpixel1            	;hScaling=2: 2/3 size
PpixelX1		jsr onePpixel1          	;hScaling=1: 1/3 size
Ppixeldone
				dec horPcount         		;see if more pixels to print
				bne stillonP             	;if not, stop caller (onePline) by pulling
				ply                     	;RTS address from stack
stillonP
				ply							;restore index into pixel line
				rts



**********



onePpixel1									;do stack pointer -6 to exit the current line
				inc DitherH               	;X=dithmatrix offset
				lda dithmatrix,x           	;get dither pattern
				inx							;advance to next word of dither pattern
				inx
				and pixelbits           	;apply mask for this pixel line
				ldy lineoffset           	;get offset into linebuffer
				cpy crWidthX3             	;make sure we're not at end
				bge offPend
				ora linebuffer,y      		;OR masked pattern into buffer
				sta linebuffer,y
				iny							;increase line buffer position by 1 for IW mode
				lda ActionBits
				and #abIWMode
				bne oneppix_iw
				iny							;increase line buffer position by 3 for LQ mode
				iny
oneppix_iw		sty lineoffset
				txa                     	;move to next byte of 8x8 pattern
				and #$0F
				bne Pxisok                	;see if we wrapped to next dith. level
				sec                    		;if so, go back to beginning of this
				txa                    		;...dither density level
				sbc #$10
				tax
Pxisok
				rts

offPend										;at end of linebuffer: stop caller caller (onePline)
				pla                    		;by pulling 2 RTS addresses and a
				pla                     	;pushed Y from the stack
				pla
				rts
				
				
				
s_printyel		dc.b	3	           		;select ribbon band
				dc.b	$1B,$4B,$31
s_printcyn		dc.b	3
				dc.b	$1B,$4B,$33
s_printmag		dc.b	3
				dc.b	$1B,$4B,$32
s_printblk		dc.b	3
				dc.b	$1B,$4B,$30
s_printBW		dc.b	1	         		;nothing to do in grayscale printing
				dc.b	$00
	
s_lf			dc.b	5	                ;LF=16/144", do LF
	   			dc.b	$1B,$54
	   			dc.b	'16'
	   			dc.b	$0A
			
Pwht_enabl		dc.w	0					;white-elim: enable scan (ie, pure white is present)
Pwht_oldbp		dc.w	0					;white-elim: old byte position before scan
Pwht_lbinc		dc.w	0					;white-elim: linebuffer index increment during scan

Pbw6_enabl		dc.w	0					;black/white-img: enable (ie, pure b/w in std locations)





********************************************************************************





Lbandloop									;*** LANDSCAPE MODE PRINTING LOOP ***

LwhtQualfy		stz Lwht_enabl				;attempt to see if conditions permit white-elim shortcut
				stz Lwht_maxce				;clear enable and init maximum color table entry used
				
				lda SCBListPtr+0
				ora SCBListPtr+2
				bne LwhtCkSCB				;if SCB list was specified, as it must be, go check it
				lda MasterMode				;else skip SCB list test - use master mode and 0 maxce
				sta Lwht_mode
				bra LwhtFndWht
				
LwhtCkSCB		lda [SCBListPtr]			;all SCB list entries must be the same mode
				and #$0080					;find out which mode
				sta Lwht_mode
				
				ldy PixMapHigh				;get ready to search the rest of SCB list...
				lda QualBits				;infer SCB list size from tallness of pixmap
				and #qbBetter				;and scale tallness down if Better mode
				beq LwhtCkSCBs
				lda QualBits
				and #%00011000
				beq LwhtCkDiv3
				cmp #%00001000
				bne LwhtCkSCBs
LwhtCkDiv2		tya							;/2 if Better & 66%
				lsr a
				tay
				bra LwhtCkSCBs
LwhtCkDiv3		pha							;/3 if Better & 100%
				pha
				phy
				pushword #3
				_UDivide
				ply
				pla
				
LwhtCkSCBs		dey							;do search SCB list, y has length of list, from y-1 to 0
				cpy #$FFFF
				beq LwhtCkSCBx
LwhtCkSCBa		lda [SCBListPtr],y
				tax
				and #$0080					;each line must be same mode
				cmp Lwht_mode
				bne LwhtCant
				txa
				and #$000F					;find out maximum color table entry used
				cmp Lwht_maxce
				bcc LwhtCkSCBs
				sta Lwht_maxce
				bra LwhtCkSCBs
LwhtCkSCBx

LwhtFndWht		lda Lwht_maxce				;check for pure white in standard color table entries...
				asl a						;set white-checking-loops range-limits to lastmost item
				asl a						;in the last color table used by any of the lines/SCBs
				asl a						;(max_color_entry_used_0_to_15 * 32) + 30
				asl a
				asl a
				clc
				adc #30
				sta LwhtFndW6l+1
				sta LwhtFndW3l+1
				lda Lwht_mode				;go do appropriate white-checker...
				beq LwhtFndW3
				
LwhtFndW6		ldy #3*2					;640-mode pure-std-white test
LwhtFndW6s		lda [CTablePtr],y			;test last of all 4 minipallettes of all 16 ctbl entries
				cmp #$FFF
				bne LwhtCant
LwhtFndW6l		cpy #$0000					;NOTE: this operand is stuffed
				beq LwhtItsOk
				tya
				clc
				adc #8
				tay
				bra LwhtFndW6s
				
LwhtFndW3		ldy #15*2					;320-mode pure-std-white test
LwhtFndW3s		lda [CTablePtr],y			;test last palette of all 16 ctbl entries
				cmp #$FFF
				bne LwhtCant
LwhtFndW3l		cpy #$0000					;NOTE: this operand is stuffed
				beq LwhtItsOk
				tya
				clc
				adc #32
				tay
				bra LwhtFndW3s
				
LwhtItsOk		lda #1						;here if all tests passed and it's ok to take shortcut
				sta Lwht_enabl
		   
LwhtCant									;here if any Lwht test failed



**********



Lbandloops		lda PixMapWide      		;check if more columns to print
				beq allLbands
				jsr IdleProcAbortErrCheck 	;caller's idle proc or our option-period abort check
				lda prError
				bne allLbands
				lda QualBits
				bmi Lcolorband
Lbwband
				lda #s_printBW         		;print one grayscale band
				jsr oneLband
				bra nextLband
				
Lcolorband									;print the color bands
				jsr saveinfo
				lda #s_printyel
				jsr oneLband
				jsr restinfo
				lda #s_printmag
				jsr oneLband
				jsr restinfo
				lda #s_printcyn
				jsr oneLband
				jsr restinfo
				lda #s_printblk
				jsr oneLband
				
nextLband
				lda #s_lf            		;advance printer 1/9"
				jsr writeshort
				bra Lbandloops
				
allLbands
				rts



**********



oneLband									;print one landscape mode band
				sta colorstr          		;remember what color it is
				jsr clearline
				lda crWidthX3
				sta linebase
				lda hScaling         		;branch based on hor. scaling
				dec a
				dec a
				bmi goLlineX1
				beq LlineX2
				
LlineX3										;hScaling=3: full size
				lda #%0000000000000111    	;2 bytes of pixel data per 24-dot band
				sta Lpixmask1            	;3 dots per 640-mode pixel
				lda #%0000000000111000
				ldx #%0000000111000000
				ldy #%0000111000000000
				jsr oneLline
				jsr nextLline
				inc linebase
				lda #%0000000001110000
				sta Lpixmask1
				lda #%0000001110000000
				ldx #%0001110000000000
				ldy #%1110000000000000
				jsr oneLline
				jsr nextLline
				brl Lbanddone
				
goLlineX1		brl LlineX1      			;extend branch range

LlineX2										;hScaling=2: 2/3 size
				lda #%00000011            	;3 bytes of pixel data per band
				sta Lpixmask1            	;2 dots per 640 pixel
				lda #%00001100
				ldx #%00110000
				ldy #%11000000
				jsr oneLline
				jsr nextLline
				inc linebase
				lda linebase
				dec a
				dec a
				dec a
				cmp crWidthX3
				blt LlineX2
				bra Lbanddone
				
LlineX1										;hScaling=1: 1/3 size
				lda #%00000001        		;6 bytes of pixel data per band
				sta Lpixmask1            	;1 dot per 640 pixel
				lda #%00000010
				ldx #%00000100
				ldy #%00001000
				jsr oneLline
				jsr nextLline
				lda #%00010000
				sta Lpixmask1
				lda #%00100000
				ldx #%01000000
				ldy #%10000000
				jsr oneLline
				jsr nextLline
				inc linebase
				lda linebase
				dec a
				dec a
				dec a
				cmp crWidthX3
				blt LlineX1
				bra Lbanddone
				
Lbandexit									;nextLline has aborted this band
				pla
Lbanddone
				jsr LQsendbuff           	;band generated, send it to the LQ
				rts



nextLline									;common routine to advance to next
				inc PixMapBase+0      		;...column of pixmap bytes
				bne noinchiL
				inc PixMapBase+2
noinchiL
				dec PixMapWide          	;abort oneLband if at right edge
				beq Lbandexit
				dec PixMapWide
				beq Lbandexit
				dec PixMapWide
				beq Lbandexit
				dec PixMapWide
				beq Lbandexit
				rts



**********

Lpixmask1		ds.b 2						;masks for the 4 pixels per pixmap byte
Lpixmask2		ds.b 2
Lpixmask3		ds.b 2
Lpixmask4		ds.b 2

Lwht_enabl		dc.w 0						;flag if conditions permit white-elim shortcut
Lwht_mode		dc.w 0						;320/640-mode indicator for white-elim shortcut
Lwht_maxce		dc.w 0						;max-found ctbl-select among SCBs for white-elim shortcut

**********



oneLline									;generate data for one column of bytes
				sta Lpixmask2
				stx Lpixmask3
				sty Lpixmask4
				lda linebase
				sta lineoffset
				stz DitherH
				stz horPcount



				ldy #oWidth					;set up byte-increment-factor for code below
				lda [SrcLocPtr],y
				sta Lwht_btinc+1
				pha							;result space
				pha							;result space
				pha							;pass pixmap width
				pushword PixMapHigh			;pass pixmap tallness
				_Multiply
				pla							;set up byte-end-value with lo word of width*tall
				sta Lwht_btend+1
				pla
				lda vScaling				;set up scaling factors for code below
				sta Lwht_dhinc+1			;for updating "DitherH" value
				asl a
				clc
				adc vScaling
				sta Lwht_lodec+1			;for updating "lineoffset value"
					
				ldy #0						;init byte counter at top of (off-) screen column



**********



Lbyteloop 									;looping vert down for bytes within column; Y valid
				lda Lwht_enabl				;see if ctbl/scb conditions permit quick-white-checking
				beq LwhtDoImg
				
LwhtScan		lda [PixMapBase],y			;try to quickly eliminate bytes as all-std-white
				and #$00FF
				cmp #%11111111				;320 (2 pix) or 640 (4 pix) all-std-white check
				bne LwhtDoImg				;break off search as soon as we get nonwhite
				lda lineoffset				;update counter used for linebuffer indexing
Lwht_lodec		sbc #$0000					;NOTE: carry always set here, NOTE: operand is stuffed
				sta lineoffset
				lda DitherH					;update counter so as not to interrupt patterns
				clc
Lwht_dhinc		adc #$0000					;NOTE: this operand is stuffed
				sta DitherH
				inc horPcount				;update counter used for scb indexing
				tya							;update Y-reg counter used for scrn pix byte access
				clc
Lwht_btinc		adc #$0000					;NOTE: this operand is stuffed
				tay
Lwht_btend		cpy #$0000					;NOTE: this operand is stuffed
				bne LwhtScan
				rts							;if we got this far, exit without having done imaging



LwhtDoImg
				lda MasterMode         		;goes top to bottom
				sta ThisLMode          		;(right to left in linebuffer)
				lda MasterPal
				sta ThisLPal
				lda SCBListPtr+0         	;if SCBList was specified, as it must be, get mode &
				ora SCBListPtr+2          	;palette number from it
				beq gotheLmode
				phy
				clc
				lda SCBTabBase
				adc horPcount
				tay
				lda QualBits            	;if in Better Text mode, we must
				and #qbBetter             	;scale the SCBList index down by the
				beq gotLindex            	;same amount the printer driver
				lda QualBits            	;scaled the pixelmap up
				and #%00011000
				beq Ldivby3
				cmp #%00001000
				bne gotLindex            	;1/3 size: no scaling
Ldivby2										;2/3 size: scaled by a factor of 2
				tya
				lsr a
				tay
				bra gotLindex

Ldivby3										;full size: scaled by a factor of 3
				pha
				pha
				phy
				PushWord #3
				_UDivide
				ply
				pla
gotLindex
				lda [SCBListPtr],y
				and #$0080
				sta ThisLMode
				lda [SCBListPtr],y
				and #$000F
				sta ThisLPal
				ply
gotheLmode
				lda ThisLPal
				asl a
				asl a
				asl a
				asl a
				asl a
				sta ThisLPal
				lda lineoffset
				sta saveoffset
				lda DitherH
				sta savedither
				lda ThisLMode          		;branch based on pixel line's mode
				bne Lbyte640
		   
Lbyte320
				lda Lpixmask1           	;OR together masks for two 640 pixels
				ora Lpixmask2            	;to get mask for one 320 pixel
				tax
				lda [PixMapBase],y
				lsr a
				lsr a
				lsr a
				lsr a
				jsr oneLpixel           	;left pixel
				lda PixMapWide         		;abort if right edge of pixmap is in
				cmp #3                    	;the middle of a byte
				blt goLbdonelt
				jsr restpixel
				lda Lpixmask3             	;OR together other two 640 mode masks
				ora Lpixmask4
				tax
				lda [PixMapBase],y
				jsr oneLpixel            	;right pixel
				bra nextLbyte
				
Lbyte640
				lda [PixMapBase],y
				asl a
				asl a
				xba
				and #%0011
				ldx Lpixmask1
				jsr oneLpixel       		;first 640 mode pixel
				lda PixMapWide      		;abort if at pixmap right edge
				cmp #2
goLbdonelt		blt Lbytedone
				jsr restpixel
				lda [PixMapBase],y
				lsr a
				lsr a
				lsr a
				lsr a
				and #%0011
				ora #%0100
				ldx Lpixmask2
				jsr oneLpixel            	;second pixel
				lda PixMapWide          	;abort if at right edge
				cmp #3
				blt Lbytedone
				jsr restpixel
				lda [PixMapBase],y
				lsr a
				lsr a
				and #%0011
				ora #%1000
				ldx Lpixmask3
				jsr oneLpixel           	;third pixel
				lda PixMapWide          	;abort if at right edge
				cmp #4
				blt Lbytedone
				jsr restpixel
				lda [PixMapBase],y
				ora #%1100
				ldx Lpixmask4
				jsr oneLpixel           	;last pixel
		   
nextLbyte									;advance to next byte in column
				tya
				ldy #owidth
				clc
				adc [SrcLocPtr],y
				tay
				inc horPcount
				lda horPcount            	;see if at bottom of column
				cmp PixMapHigh
				bge Lbytedone
				lda lineoffset        		;or at bottom of linebuffer
				bmi Lbytedone
				brl Lbyteloop
				
Lbytedone
				rts



saveoffset		ds.b 2
savedither		ds.b 2



restpixel									;undo variable changes made by all
				lda saveoffset       		;pixels within a byte except the last
				sta lineoffset
				lda savedither
				sta DitherH
				rts



**********



oneLpixel									;generating data for one pixel
				phy                      	;save offset into pixelmap
				stx pixelbits           	;X=mask for this pixel within buffer
				and #$000F					;A=pixel value
				asl a                   	;convert into colortable index
				ora ThisLPal				;and add SCB palette-select-value
				tay							;Y now has offset into color table for current pixel
				
				ldx colorstr            	;branch based on color/grayscale mode
				cpx #s_printBW
				bne colorLpix
				
bwLpix										;convert RGB to grayscale:
				lda [CTablePtr],y			;obtain RGB value
				and #$0FFF
				xba
				and #$000F                 	;R
				sta colortemp
				asl a
				asl a                   	;4R
				adc colortemp
				sta colortemp          		;5R
				lda [CTablePtr],y
				lsr a
				and #%01111000            	;8G
				clc
				adc colortemp            	;5R+8G
				tax
				lda [CTablePtr],y
				and #$000F               	;B
				sta colortemp
				txa
				eor #$FF                 	;255-5R-8G
				sec
				sbc colortemp             	;255-5R-8G-B
				sbc colortemp           	;255-5R-8G-2B
				sbc colortemp              	;255-5R-8G-3B
				and #%11110000				;do adjustment to avoid destructive interference
				beq bwLpix_fin				;between our and 640's dithering
				ldx thisLmode
				beq bwLpix_fin
				cmp #%00110000
				bne bwLpix_fin
				lda #%10100000
bwLpix_fin		ldx #0
				brl gotLvalue

colorLpix
				lda KCMY_lookup,y			;convert $0RGB to $KCMY with table
				ldy colorstr              	;branch based on color being printed
				cpy #s_printyel           	;and get proper K, C, M, or Y nibble
				beq yelLpix
				cpy #s_printmag
				beq magLpix
				cpy #s_printcyn
				beq cynLpix
		   
blkLpix
				xba
				ldx #0
				bra gotLvalue
				
cynLpix
				lsr a
				lsr a
				lsr a
				lsr a
				ldx #3
				bra gotLvalue
				
magLpix
				ldx #3
				bra gotLvalue
				
yelLpix
				asl a
				asl a
				asl a
				asl a
				ldx #3
				
gotLvalue									;A=print density, 0..15
				and #$F0                  	;X=dither matrix offset, blk=0 CMY=3
				sta colortemp            	;(keeps black from overprinting color)
				bne isLnonzero
isLzero										;save some work if density is zero
				clc                       	;fake changes that would have been
				lda DitherH                	;made if this pixel printed
				adc vScaling
				sta DitherH
				lda lineoffset
				sec
				sbc vScaling
				sec
				sbc vScaling
				sec
				sbc vScaling
				sta lineoffset
				bra Lpixeldone
				
isLnonzero
				lda #1
				sta LineDirty
				txa                    		;calculate index into dither matrix
				clc
				adc DitherH
				and #%0111
				asl a
				ora colortemp           	;A=offset into dithmatrix
				tax
				ldy vScaling             	;branch based on vertical scaling
				dey
				dey
				bmi LpixelX1
				beq LpixelX2
				dey
				dey
				bmi LpixelX3
				beq LpixelX4
LpixelX6		jsr oneLpixel1         		;vScaling=6: full size
				jsr oneLpixel1
LpixelX4		jsr oneLpixel1             	;vScaling=4: 2/3 size
LpixelX3		jsr oneLpixel1            	;vScaling=3: full size condensed
LpixelX2		jsr oneLpixel1            	;vScaling=2: 1/3 size, 2/3 condensed
LpixelX1		jsr oneLpixel1       		;vScaling=1: 1/3 size condensed
Lpixeldone
				ply
				rts



oneLpixel1									;do stack pointer -6 to exit current line
				inc DitherH              	;X=dithmatrix offset
				lda dithmatrix,x     		;get dither pattern based on desired
				inx                     	;density and offset
				inx
				and pixelbits        		;apply mask for this pixel
				ldy lineoffset          	;get offset into linebuffer
				dey
				dey
				dey
				bmi Lxisok            		;make sure we're still within buffer
				ora linebuffer,y   			;OR masked pattern into buffer
				sta linebuffer,y
				sty lineoffset
				txa
				and #$0F
				bne Lxisok          		;see if we wrapped to next dith. level
				sec                 		;if so, go back to 1st pattern for
				txa                 		;...this dither density level
				sbc #$10
				tax
Lxisok
				rts





*******************************************************************************





*
*LQSENDBUFF/COMPRESSEND: Run-length-encoding data compression and transmission:
*
*The following routine sends data in line buffer to printer appropriately whether the IW or
*LQ resolution mode is selected.  The IW or LQ print-graphics commands are interspersed with
*positioning and/or run-length-encoding commands: if a run of N or more identical groups of
*byte(s) is detected, then the print-multiple-graphics-columns command is used for nonzero
*data, while the position-print-head command is used for a run of zero data.
*



LQSendBuff:

				lda LineDirty       		;if no data, don't bother printing
				beq noline
				stz LineDirty				;initialize did-we-use-ink-yet flag
				jsr CompressSend
				lda LineDirty          		;if no data was found, don't do CR
				beq noline
				lda #s_cr             		;return to left margin for next band
				jsr writeshort
noline			rts



CompressSend:
				
				shortx						;set up printer commands for selected resolution mode
				lda ActionBits
				and #abIWMode
				beq cs_lqmode
				ldx #$46					;IW mode command setup...
				stx poscommand
				ldx #7
				stx rptcommand1
				ldx #$56
				stx rptcommand2
				ldx #$47
				stx grcommand
				ldx #RunLenEncodeThreshIW-2
				stx cs_rept_thresh+0
				bra cs_fimode
cs_lqmode		ldx #$68					;LQ mode command setup...
				stx poscommand
				ldx #9
				stx rptcommand1
				ldx #$55
				stx rptcommand2
				ldx #$43
				stx grcommand
				ldx #RunLenEncodeThreshLQ-2
				stx cs_rept_thresh+0
cs_fimode		longx

cs_init			stz cs_curr_pos				;initialize logical head positions for scan...
				stz cs_nor_start
				stz cs_nor_end
				stz cs_rle_start
				stz cs_curr_stat			;init state: 0=norm data, 1=maybe rle, 2=definetely rle
				stz cs_rept_ctr				;init repeat counter for going from state 1 to state 2
				lda LineBuffer+0			;init "last group" to be always diff from first group...
				ina
				sta cs_last_group+0
				
cs_test			lda ActionBits				;cmp curr group w/ last group, separate for iw/lq modes
				and #abIWmode
				bne cs_test_iw
				
cs_test_lq		lda cs_curr_pos				;curr_pos*3 if LQ mode for buff index (3 bytes per group)
				asl a
				clc
				adc cs_curr_pos
				tay
				lda LineBuffer+0,y			;do 3-BYTE (we're in 16 bit mode right now) compare...
				cmp cs_last_group+0
				bne cs_diff
				shortm
				lda LineBuffer+2,y
				cmp cs_last_group+2
				longm
				bne cs_diff
				beq cs_same
				
cs_test_iw		ldy cs_curr_pos				;do 1-BYTE (in 16 bit mode now) compare...
				shortm
				lda LineBuffer,y
				cmp cs_last_group
				longm
				bne cs_diff
				
cs_same 		lda cs_curr_stat			;current group is equal to group from last time...
				cmp #2						;if state=2, do nothing
				beq cs_next
				cmp #1						;if state=1, see if time to -> state 2 and do norm output
				bne cs_same_0
				
cs_same_1		inc cs_rept_ctr				;inc repeat counter; if less than thresh, get next group
				lda cs_rept_ctr
				cmp cs_rept_thresh
				bcc cs_next
				lda #2						;else, go to state 2 and do normal output
				sta cs_curr_stat
				ldx cs_nor_start			;do normal output from nor_start to nor_end-1...
				ldy cs_nor_end
				jsr cs_do_output_nor
				bra cs_next
				
cs_same_0		lda #1						;goto state 1, clr repeat ctr, set possible rept start...
				sta cs_curr_stat
				stz cs_rept_ctr
				lda cs_curr_pos
				dea
				sta cs_rle_start
				bra cs_next
				
cs_diff			lda cs_curr_stat			;current group is not equal to group from last time...
				bne cs_diff_12				;we handle state 0 first since it's most common:
		   
cs_diff_0		lda cs_curr_pos				;diff/state 0: state stays 0, track nor_end with curr_pos
				sta cs_nor_end
				bra cs_next
				
cs_diff_12		cmp #1
				bne cs_diff_2
		   
cs_diff_1		stz cs_rept_ctr				;diff/state 1: state=0, clr ctr, track nor_end as above
				stz cs_curr_stat
				lda cs_curr_pos
				sta cs_nor_end
				bra cs_next
				
cs_diff_2		stz cs_curr_stat			;diff/state 2: state=0, reset nor start/end, do rle out
				lda cs_curr_pos
				sta cs_nor_start
				sta cs_nor_end
				ldx cs_rle_start			;do rle output from rle_start to curr_pos-1...
				ldy cs_curr_pos
				jsr cs_do_output_rle		;do it, then drop thru to cs_next
				
cs_next			lda ActionBits				;next position: set last_group, increment, see if done...
				and #abIWmode
				bne cs_next_iw
				
cs_next_lq		lda cs_curr_pos				;form index into line buffer and copy 3 BYTES...
				asl a
				clc
				adc cs_curr_pos
				tay
				lda LineBuffer+0,y			;copy first two bytes
				sta cs_last_group+0
				shortm						;copy third byte
				lda LineBuffer+2,y
				sta cs_last_group+2
				longm
				bra cs_next_in
				
cs_next_iw		ldy cs_curr_pos				;copy 1 BYTE from line buffer...
				shortm
				lda LineBuffer,y
				sta cs_last_group
				longm
				
cs_next_in		inc cs_curr_pos				;increment current position, loop until = crWidth...
				lda cs_curr_pos
				cmp crWidth
				bcs cs_flush
				brl cs_test
					   
cs_flush		lda cs_curr_stat			;final flush: check status...
				cmp #2
				beq cs_flush2
				
cs_flush01		ldx cs_nor_start			;flush/status=0 or 1: nor out fr nor_start to curr_pos-1
				ldy cs_curr_pos
				jsr cs_do_output_nor
				rts							;and exit
				
cs_flush2		ldx cs_rle_start			;flush/status=2: rle output from rle_start to curr_pos-1
				ldy cs_curr_pos
				jsr cs_do_output_rle
				rts							;and exit



*
*Normal printer output command subroutine for CompressSend (from -> X, to -> Y):
*

cs_do_output_nor:							;from -> X, to -> Y
				stx cs_num_output			;1) to=to-1   2) cs_num_output=to-from   3) if -1 exit
				stx cs_frm_output
				dey
				tya
				sec
				sbc cs_num_output
				cmp #$FFFF
				beq cs_nor_xit
				ina
				sta cs_num_output
				
				lda LineDirty				;have we ever printed yet on this head scan?
				bne cs_nor_dty				;yes we have, so skip next few lines
				lda #1						;else, mark for next time because we're about to use ink
				sta LineDirty
				lda colorstr				;also, select proper color before printing first time
				jsr writeshort
				
cs_nor_dty		pushword cs_num_output		;convert cs_num_output (the length) to ascii for command
				pushlong #grstr
				pushword #4
				pushword #0
				_Int2Dec
				
				lda #s_graphics				;send command to print nonrepeating graphics...
				jsr writeshort
				
				lda ActionBits				;if LQ mode, triple cs_num_output so can use it to index
				and #abIWmode
				bne cs_nor_blt
				lda cs_num_output
				asl a
				clc
				adc cs_num_output
				sta cs_num_output
				lda cs_frm_output			;also triple cs_frm_input so we can use it to index
				asl a
				clc
				adc cs_frm_output
				sta cs_frm_output
				
cs_nor_blt		lda #LineBuffer				;send gr data, from=LB+cs_frm_output; len=cs_num_output
				ldx #^LineBuffer
				clc
				adc cs_frm_output			;assuming no bank cross here
				ldy cs_num_output
				jsr writelong
		   
cs_nor_xit		rts



*
*Run-length-encoding-posn pr output cmd subroutine for CompressSend (from -> X, to -> Y):
*

cs_do_output_rle:							;from -> X, to -> Y
				stx cs_num_output			;1) to=to-1   2) num_output=to-from   3) if 0 or -1 exit
				stx cs_frm_output
				dey
				tya
				sec
				sbc cs_num_output
				beq cs_rle_xit
				cmp #$FFFF
				beq cs_rle_xit
				ina
				sta cs_num_output
				
				lda ActionBits				;check which mode is in effect
				and #abIWmode
				bne cs_rle_iw
				
cs_rle_lq		lda cs_frm_output			;triple "from" value to form index
				asl a
				clc
				adc cs_frm_output
				tax
				lda LineBuffer+0,x			;check to see if all 3 BYTES of the start group are zero
				ora LineBuffer+1,x
				beq cs_rle_psn				;all zero, so do positioning instead of graphics output
				bra cs_rle_rpt
				
cs_rle_iw		shortm						;check to see if first BYTE of the start group is zero
				lda LineBuffer,x
				longm
				beq cs_rle_psn				;zero, so do positioning instead of graphics output
		   
cs_rle_rpt		lda LineBuffer+0,x			;store 3 rept group bytes in cmd seq regardless of mode
				sta rptdata+0
				shortm
				lda LineBuffer+2,x
				sta rptdata+2
				longm
				
				lda LineDirty				;have we ever printed yet on this head scan?
				bne cs_rle_dty				;yes we have, so skip next few lines
				lda #1						;else, mark for next time because we're about to use ink
				sta LineDirty
				lda colorstr				;also, select proper color before printing first time
				jsr writeshort
				
cs_rle_dty		pushword cs_num_output		;convert number of prpix to print to ascii...
				pushlong #rptstr
				pushword #4
				pushword #0
				_Int2Dec
				
				lda #s_repeating			;send command to print repeating graphics
				jsr writeshort
		   
cs_rle_xit		rts

cs_rle_psn		iny							;move print head to "to" prpix posn still in Y:
				cpy crWidth					;if about to do posn to crWidth-1, don't do it; it is
				beq cs_rle_xit				;inefficient and it doesn't like posn followed by nothing
				phy							;convert to ascii; doing posn to "to"+1...
				pushlong #posstr
				pushword #4
				pushword #0
				_Int2Dec
				
				lda #s_position				;send command to do head position
				jsr writeshort
				rts



*
*Variables for CompressSend:
*

cs_curr_pos		dc.w	0					;curr headscan posn (logical posn; NOT LineBuffer index)
cs_curr_stat	dc.w	0					;curr state: 0=normal; 1=rle candidate; 2=confirmed rle
cs_nor_start	dc.w	0					;headscan logical posn of start of normal (non-rle) data
cs_nor_end		dc.w	0					;headscan logical posn of end of normal data
cs_rle_start	dc.w	0					;headscan logical posn of start of run for run-len-encode
cs_rept_ctr		dc.w	0					;repeat count for run-length-encoding candidate
cs_rept_thresh	dc.w	0					;threshold of when to start doing a run-len-encode
cs_num_output	dc.w	0					;number of prpix to output, used by output subroutines
cs_frm_output	dc.w	0					;value of "from" parameter, used by output subroutines
cs_last_group	ds.b	3					;last group of 1 or 3 bytes representing last pins fire



*
*Printer command sequences for CompressSend:
*

s_position		dc.b	6					;position-print-head command sequence
				dc.b	$1B
poscommand		dc.b	$68					;$68 for IW_LQ positioning; $46 for IW_II positioning
posstr			dc.b	'0000'



s_repeating 								;print-repeat-graphics command sequence
rptcommand1		dc.b	9					;9 for IW_LQ repeating; 7 for IW_II repeating
				dc.b    $1B
rptcommand2		dc.b	$55					;$55 for IW_LQ repeating; $56 for IW_II repeating
rptstr			dc.b	'0000'
rptdata			dc.b	0,0,0



s_graphics		dc.b	6					;print-graphics command sequence (is followed by data)
				dc.b	$1B
grcommand		dc.b	$43					;$43 for IW_LQ gr (slow); $47 for IW_II gr (fast)
grstr			dc.b	'0000'



s_cr			dc.b	1					;output-carriage-return command sequence
				dc.b	$0D





*******************************************************************************





*
*IDLEPROCABORTERRCHECK: Periodically-called status checker:
*
*Printer status, user abort, and idleproc caller. Should be called before any long data blast, after
*unsuccessful I/O, or any request for change in connection status (such as PrDevOpen/Close calls):
*
*1. Does PrDevStatus call, and if (network) port driver error condition, sets prError and exits.
*2. If the imager was passed a non-NIL idleproc, then save enviroment and execute it.  Note
*   that the Option-Period-check will still execute after the idleproc finishes.
*3. Check for Option-Period; if pressed, set prError and exit.  Note that this kind of exit
*   code has precedence over (will override) any errors from the PrDevStatus call.
*

IdleProcAbortErrCheck:
				
				stz status_buff+5			;clear status buff word which is checked below to be safe
				
				pushlong #status_buff		;(1) do status call, which works best on networks...
				ldx #$2013
				jsl $E10000					;_PrDevStatus
				bcc e_notdstat
				
				pushlong #status_buff		;if error, try status call one more time
				ldx #$2013
				jsl $E10000					;_PrDevStatus
				bcc e_notdstat
				
				lda #$0081					;if err, exit with our communications-err result code
				bra e_strerr
e_notdstat
				
				lda status_buff+5			;get the status word, if any, from bytes 5,6... this info
				tax							;comes from atalk board in the printer, else it's zero
				
				txa							;*** Printer Busy? ***
				;     5432109876543210
				and #%1000000000000000		;printer-busy flag
				beq e_notbusy
				lda is_our_conn				;printer busy AND we're not connected yet?
				bne e_notbusy				;if so then someone else is using it
				lda #$008F
				bra e_strerr				;if so then exit with our printer-is-busy result code
e_notbusy
				
				txa							;*** Out Of Paper? ***
				;     5432109876543210
				and #%0000000000100000		;out-of-paper flag
				beq e_notpapr
				txa
				;     5432109876543210
				and #%0000000001000000		;has-feeder flag: if no paper b/c sheet feeder, no err
				bne e_notpapr
				lda #$0082
				bra e_strerr
e_notpapr
				
				txa							;*** Paper Jammed? ***
				;     5432109876543210
				and #%0000000000000100		;paper-jam flag
				beq e_notjam
				lda #$0083
				bra e_strerr
e_notjam
				
				txa							;*** Cover Open? ***
				;     5432109876543210
				and #%0000000000010000		;cover-open flag
				beq e_notcvr
				lda #$0084
				bra e_strerr
e_notcvr
				
				txa							;*** Select Switch Off? ***
				;     5432109876543210
				and #%0000000000001000		;select-off flag
				beq e_ckidle
				lda #$0085
				
e_strerr		sta prError
		   
e_ckidle		lda IdleProcPtr+0			;(2) if NIL, user didn't specify idleproc
				ora IdleProcPtr+2
				beq no_iproc
				
				lda IdleProcPtr+0			;else build JSL instruction to user...
				sta goto_user+1
				lda IdleProcPtr+2
				shortm
				sta goto_user+3
				longm
				
				phb							;save environment
				phd
				
goto_user		jsl $FFFFFF					;goto user procedure; I can't believe I'm doing this...
				
				pld							;restore env; drop through to our command-period check
				plb
				
no_iproc		pha							;(3) now check if command-period was pressed
				pushword #$0008           	;keyDownMask
				pushlong #eventrec
				_GetNextEvent
				pla
				beq noevent
				
				lda eventmsg
				and #$00FF
				cmp #'.'					;period
				bne noevent
				
				lda eventmod
				and #$0100            		;appleKey
				beq noevent
				
				lda #$0080					;this will overwrite/override any error obtained above
				sta prError
noevent
				rts



eventrec
eventwhat		ds.b 2
eventmsg		ds.b 4
eventwhen		ds.b 4
eventwhere		ds.b 4
eventmod		ds.b 2
status_buff		ds.b 256					;yes, it has to be this big (we only get 2 bytes from it)
											;status_buff+5 contains the following bits:
											;0=head moving, 1=fault, 2=jam, 3=off line,
											;4=cover open, 5=out of paper, 6=has feeder, 7=has color
											;15=printer busy





*******************************************************************************





crWidth			ds.b 2           			;carriage width in printer dots
crWidthX3		ds.b 2          			;crWidth times 3
vScaling		ds.b 2          			;printer dots per vertical pixel
hScaling		ds.b 2           			;printer dots per horizontal pixel
prError			ds.b 2            			;error status ($80=abort; other codes possible)



linebuffer		ds.b 3*3264+2+24    		;max 13.6", 240 DPI, 3 bytes/column + BW6 alg overrun





*
*Printer-pixel scaling lookup tables; entries are printer pixels per 640-mode
*off-scrn pixels, indexed by low 5 bits of QualityBits:
*



vscaletab:
* Better ------>       x   x   x   x
* Landscape --->         x x     x x
* Condensed --->             x x x x
			dc.b	 6,2,6,2,3,1,3,1	;full size
			dc.b	 4,2,4,2,2,1,2,1	;2/3 size
			dc.b	 2,2,2,2,1,1,1,1	;1/3 size



hscaletab:
* Better ------>       x   x   x   x
* Landscape --->         x x     x x
* Condensed --->             x x x x
			dc.b	 3,1,3,1,3,1,3,1	;full size
			dc.b	 2,1,2,1,2,1,2,1	;2/3 size
			dc.b	 1,1,1,1,1,1,1,1	;1/3 size





*******************************************************************************





				endproc
				end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/LQ/imagerdata.aii b/IIGS.601.SRC/GSToolbox/PrinterDrivers/LQ/imagerdata.aii
new file mode 100644
index 0000000..2641acd
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/LQ/imagerdata.aii
@@ -0,0 +1 @@
+
******************************************************************************************
*                                                                                        *
*		Apple IIgs ImageWriter LQ Printer Driver                                         *
*                                                                                        *
*		File: imagerdata.aii -- Density dither patterns                                  *
*                                                                                        *
*		Written by Jason Harper                                                          *
*		Copyright (C) 1989 Apple Computer, Inc.                                          *
*                                                                                        *
******************************************************************************************







ImagerDataRec				record		export

							export		Dithmatrix


	
Dithmatrix:

							;level0 
							DC.B	%00000000,%00000000
							DC.B	%00000000,%00000000
							DC.B	%00000000,%00000000
							DC.B	%00000000,%00000000
							DC.B	%00000000,%00000000
							DC.B	%00000000,%00000000
							DC.B	%00000000,%00000000
							DC.B	%00000000,%00000000
							
							;level1 
							DC.B	%10000000,%10000000
							DC.B	%00000000,%00000000
							DC.B	%00000000,%00000000
							DC.B	%00000000,%00000000
							DC.B	%00000000,%00000000
							DC.B	%00000000,%00000000
							DC.B	%00000000,%00000000
							DC.B	%00000000,%00000000
							
							;level2 
							DC.B	%10000000,%10000000
							DC.B	%00000000,%00000000
							DC.B	%00000000,%00000000
							DC.B	%00000000,%00000000
							DC.B	%00001000,%00001000
							DC.B	%00000000,%00000000
							DC.B	%00000000,%00000000
							DC.B	%00000000,%00000000
							
							;level3 
							DC.B	%10000000,%10000000
							DC.B	%00000000,%00000000
							DC.B	%00000000,%00000000
							DC.B	%00000000,%00000000
							DC.B	%10001000,%10001000
							DC.B	%00000000,%00000000
							DC.B	%00000000,%00000000
							DC.B	%00000000,%00000000
							
							;level4 
							DC.B	%10001000,%10001000
							DC.B	%00000000,%00000000
							DC.B	%00000000,%00000000
							DC.B	%00000000,%00000000
							DC.B	%10001000,%10001000
							DC.B	%00000000,%00000000
							DC.B	%00000000,%00000000
							DC.B	%00000000,%00000000
							
							;level5 
							DC.B	%10001000,%10001000
							DC.B	%00000000,%00000000
							DC.B	%00100000,%00100000
							DC.B	%00000000,%00000000
							DC.B	%10001000,%10001000
							DC.B	%00000000,%00000000
							DC.B	%00000000,%00000000
							DC.B	%00000000,%00000000
							
							;level6 
							DC.B	%10001000,%10001000
							DC.B	%00000000,%00000000
							DC.B	%00100000,%00100000
							DC.B	%00000000,%00000000
							DC.B	%10001000,%10001000
							DC.B	%00000000,%00000000
							DC.B	%00000010,%00000010
							DC.B	%00000000,%00000000
							
							;level7 
							DC.B	%10001000,%10001000
							DC.B	%00000000,%00000000
							DC.B	%00100000,%00100000
							DC.B	%00000000,%00000000
							DC.B	%10001000,%10001000
							DC.B	%00000000,%00000000
							DC.B	%00100010,%00100010
							DC.B	%00000000,%00000000
							
							;level8 
							DC.B	%10001000,%10001000
							DC.B	%00000000,%00000000
							DC.B	%00100010,%00100010
							DC.B	%00000000,%00000000
							DC.B	%10001000,%10001000
							DC.B	%00000000,%00000000
							DC.B	%00100010,%00100010
							DC.B	%00000000,%00000000
							
							;level9 
							DC.B	%10001000,%10001000
							DC.B	%01000000,%01000000
							DC.B	%00100010,%00100010
							DC.B	%00000000,%00000000
							DC.B	%10001000,%10001000
							DC.B	%00000100,%00000100
							DC.B	%00100010,%00100010
							DC.B	%00000000,%00000000
							
							;levelA 
							DC.B	%10001000,%10001000
							DC.B	%01000100,%01000100
							DC.B	%00100010,%00100010
							DC.B	%00000000,%00000000
							DC.B	%10001000,%10001000
							DC.B	%01000100,%01000100
							DC.B	%00100010,%00100010
							DC.B	%00000000,%00000000
							
							;levelB 
							DC.B	%10001000,%10001000
							DC.B	%01000100,%01000100
							DC.B	%00100010,%00100010
							DC.B	%00010000,%00010000
							DC.B	%10001000,%10001000
							DC.B	%01000100,%01000100
							DC.B	%00100010,%00100010
							DC.B	%00000001,%00000001
							
							;levelC 
							DC.B	%10001000,%10001000
							DC.B	%01000100,%01000100
							DC.B	%00100010,%00100010
							DC.B	%00010001,%00010001
							DC.B	%10001000,%10001000
							DC.B	%01000100,%01000100
							DC.B	%00100010,%00100010
							DC.B	%00010001,%00010001
							
							;levelD 
							DC.B	%10001000,%10001000
							DC.B	%01000100,%01000100
							DC.B	%10101010,%10101010
							DC.B	%00010001,%00010001
							DC.B	%10001000,%10001000
							DC.B	%01000100,%01000100
							DC.B	%10101010,%10101010
							DC.B	%00010001,%00010001
							
							;levelE 
							DC.B	%10101010,%10101010
							DC.B	%01000100,%01000100
							DC.B	%10101010,%10101010
							DC.B	%00010001,%00010001
							DC.B	%10101010,%10101010
							DC.B	%01000100,%01000100
							DC.B	%10101010,%10101010
							DC.B	%00010001,%00010001
							
							;levelF 
							DC.B	%11111111,%11111111
							DC.B	%11111111,%11111111
							DC.B	%11111111,%11111111
							DC.B	%11111111,%11111111
							DC.B	%11111111,%11111111
							DC.B	%11111111,%11111111
							DC.B	%11111111,%11111111
							DC.B	%11111111,%11111111
							

	
	
	
							endr
							end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/LQ/makefile b/IIGS.601.SRC/GSToolbox/PrinterDrivers/LQ/makefile
new file mode 100644
index 0000000..11cc5df
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/LQ/makefile
@@ -0,0 +1 @@
+
#***********************************************************************************
#                                                                                  *
#		Apple IIgs ImageWriter LQ Printer Driver                                   *
#                                                                                  *
#		File: makefile -- Compilation and linking script                           *
#                                                                                  *
#		High-level driver written by Ben Koning                                    *
#		Imaging routines originally written by Jason Harper                        *
#		Copyright (C) 1989 Apple Computer, Inc.                                    *
#                                                                                  *
#***********************************************************************************



#Division of source files:
#		equates			Header file with equates and direct page definitions
#		entry			Entry vectors, environment setup/restore, routine dispatch
#		metrics			Print record access and	printer dimension calculations
#		dialog		 	PrStlDialog and PrJobDialog dialog box implementation
#		dialogdata  	Dialog box layout and text
#		spool	 		Routines to spool data to disk and/or memory
#		printloop		High level interface from application to spooler and imager
#		imager		 	Converting pixel map to escape codes for printer
#		imagerdata 	 	Tables for computing RGB->CMY and density dither patterns



EQU =	equates.aii
OBJ =	:obj:entry.aii.obj :obj:printloop.aii.obj :obj:metrics.aii.obj ¶
		:obj:dialog.aii.obj :obj:dialogdata.aii.obj :obj:spool.aii.obj ¶
		:obj:imager.aii.obj :obj:imagerdata.aii.obj
NAM =	ImageWriter.LQ
PRN =	print -r -h -hs 12 -hf times -md -f courier -s 9



PRINT Ä
		{PRN} imagerdata.aii
		{PRN} imager.aii
		{PRN} spool.aii
		{PRN} dialogdata.aii
		{PRN} dialog.aii
		{PRN} metrics.aii
		{PRN} printloop.aii
		{PRN} entry.aii
		{PRN} equates.aii
		{PRN} makefile
		{PRN} README
		{PRN} RELEASE.NOTES
		files -l | {PRN}
		
		
	
CLEAN Ä
		delete -i {OBJ}



{NAM} Ä {EQU} {OBJ}
		delete -i {NAM}
		linkiigs -t $BB -at $0001 {OBJ} -o {NAM}


	
DEBUG Ä {EQU} {OBJ}
		delete -i {NAM}
		linkiigs -t $BB -at $0001 {OBJ} -o {NAM}
		files -n -x b {NAM}
		beep 2a,4,255
		duplicateiigs -m -y {NAM} :


	
:obj:entry.aii.obj Ä {EQU} entry.aii
		asmiigs	entry.aii -o :obj:entry.aii.obj

:obj:printloop.aii.obj Ä {EQU} printloop.aii
		asmiigs	printloop.aii -o :obj:printloop.aii.obj

:obj:metrics.aii.obj Ä {EQU} metrics.aii
		asmiigs	metrics.aii -o :obj:metrics.aii.obj

:obj:dialog.aii.obj Ä {EQU} dialog.aii
		asmiigs	dialog.aii -o :obj:dialog.aii.obj

:obj:dialogdata.aii.obj Ä {EQU} dialogdata.aii
		asmiigs dialogdata.aii -o :obj:dialogdata.aii.obj

:obj:spool.aii.obj Ä {EQU} spool.aii
		asmiigs	spool.aii -o :obj:spool.aii.obj

:obj:imager.aii.obj Ä {EQU} imager.aii
		asmiigs	imager.aii -o :obj:imager.aii.obj

:obj:imagerdata.aii.obj Ä {EQU} imagerdata.aii
		asmiigs	imagerdata.aii -o :obj:imagerdata.aii.obj

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/LQ/metrics.aii b/IIGS.601.SRC/GSToolbox/PrinterDrivers/LQ/metrics.aii
new file mode 100644
index 0000000..abbdd8d
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/LQ/metrics.aii
@@ -0,0 +1 @@
+
******************************************************************************************
*                                                                                        *
*		Apple IIgs ImageWriter LQ Printer Driver                                         *
*                                                                                        *
*		File: metrics.aii -- Exclusive print record access and dimension calculations    *
*                                                                                        *
*		Written by Ben Koning                                                            *
*		Copyright (C) 1989 Apple Computer, Inc.                                          *
*                                                                                        *
******************************************************************************************






							include		'equates.aii'
							
							
							include		'm16.util'
							include		'e16.print'
							include		'm16.intmath'
							include		'e16.quickdraw'
							include		'm16.quickdraw'
							
											
MetricsProc					proc		export






****************************************************************************************************
*                                                                                                  *
* METRICS (PAGE MEASUREMENT) MODEL AND IMPLEMENTATION                                              *
*                                                                                                  *
* All information related to page size, print quality, etc., options is stored in a data           *
* structure called the Print Record, the memory for which is the application's responsibility      *
* (a print record should be maintained with each document enacted on by an application so that     *
* page setup information stays with a letter, drawing, etc.), and the contents of which are        *
* the responsibility of the currently selected printer driver.                                     *
*                                                                                                  *
* The routines in this module seek to isolate the rest of this printer driver from the specifics   *
* of the contents of the user's print record.  They also arbitrate between the realms of page      *
* measurements in inches and rectangle sizes in pixels.                                            *
*                                                                                                  *
* There are a set of GetXXX and SetXXX routines below, which must be called rather than            *
* modifying the print record directly.  Before a SetXXX completes, it causes a calculation         *
* routine to be called which ensures that the print record stays self-consistent.                  *
*                                                                                                  *
* The calculation routine uses the paper type and selected sizing options to find values for       *
* several rectangles, used by applications as well as the rest of this driver, and stores them.    *
*                                                                                                  *
* From the paper type, its paper dimensions are looked up from a table.  This information is       *
* stored in the rPaper rectangle.  Thus dimensions could be different for Letter, Legal,           *
* Envelope, etc.  The vertical dimension is used, for example, to set the page length so that      *
* form feed works correctly (as returned by the GetPaperLength routine, for example).              *
* rPaper is given in pixels.                                                                       *
*                                                                                                  *
* Margins are subtracted from the rPaper rectangle to create the rPage rectangle, the actual       *
* printable area inside a sheet of paper.  The first point of rPage is made the origin, so         *
* that the first point of rPaper is negative.  rPage is given in pixels.                           *
*                                                                                                  *
* Note that the sizing settings (Vertical Condense, Reduction, Page Gap) actually increase the     *
* effective printing area.  They are not just effects settings which would affect only the         *
* outcome of the printing.  In other words, selecting 33%-size means that the application can      *
* give the user more drawing space, for example.  Also, Landscape means that the paper is still    *
* inserted normally into the printer; just that the X & Y dimensions that the application sees     *
* are reversed.  In other words, selecting Landscape means that a drawing application's rulers     *
* show 11" left to right and 8" top to bottom for 8x11" paper.                                     *
*                                                                                                  *
* The metrics calculations proceed as follows:                                                     *
*                                                                                                  *
* 		Get resolution in pixels/inch from equates based on port/land orientation setting          *
* 		If vertical condense, double y resolution                                                  *
* 		If reduction, multiply x,y resolutions accordingly                                         *
* 		If 320 mode, half x resolution                                                             *
* 		Divide x,y resolutions by 3 to convert from Imaging resolution to rPage res (see below)    *
* 		Get paper_x, paper_y, paper_gap size in inches from table based on paper type setting      *
* 		Multiply dimensions by resolutions to convert dimensions to pixels                         *
* 		rPaper gets physical page dimensions with rPage first point as origin                      *
* 		rPage gets page dimensions minus a border based horizontally on equates and vertically     *
* 			on the paper_gap and the page gap setting                                              *
* 		Landscape orientation causes rPaper and rPage to have x & y exchanged                      *
*                                                                                                  *
* In addition to providing the application with information about the printable area, the rPage    *
* rectangle is used as the source rectangle during picture recording (QDAux's OpenPicture,         *
* ClosePicture, DrawPicture, etc).  When DrawPicture is called, the playback rectangle may be      *
* the same size or may be bigger to allow for higher quality printing (the GetImagingSize routine  *
* returns the playback size based on rPage and the quality setting).                               *
*                                                                                                  *
* Two pixel-level units are defined for internal use: "rPage" units and "Imaging" units.  RPage    *
* dimensions change with respect to the option settings which increase printable area real estate, *
* as described above, but remain constant with respect to the Standard or Better quality mode      *
* setting.  Imaging units, on the other hand, are equal to rPage units with a scaling factor       *
* applied to facilitate higher resolution when printing at denser dot pitches.  For example, if    *
* rPage.X2 is "100" and the quality is "standard", then ImagingSize.X2 would be "100".  But if     *
* rPage.X2 is "100" and the quality is "better", then ImagingSize.X2 could be "300".  Two          *
* routines, "ConvertImgToRPageSize" and "ConvertRPageToImgSize", are provided as the exclusive     *
* converters between these two units.  These routines are especially exempt from DP/print record   *
* availability restrictions, because they may need to be called from within our QD bottleprocs,    *
* for example.  Thus, in summary: rPage is the amount of pixels that the application sees for the  *
* positioning of QD objects, while the Imaging size is the amount of pixels that the driver has    *
* to deal with when playing back the picture containing these objects, thus obtaining high reso-   *
* lution on the printed paper since there "are more dots" in QD objects, causing smoother curves.  *
*                                                                                                  *
****************************************************************************************************






*
*STARTPRH: Call to use print record from hdl; sets up ParamLongA, allows pr rec access without hdl:
*
StartPRH					ldy			#4						;lock handle
							lda			[printRecordHandle],y
							ora			#$8000
							sta			[printRecordHandle],y
							lda			[printRecordHandle]		;deref to get ptr in ParamLongA
							sta			ParamLongA+0
							ldy			#2
							lda			[printRecordHandle],y
							sta			ParamLongA+2
							lda			printRecordHandle+0		;save pr rec hdl for later use
							sta			MostRecentPRH+0
							lda			printRecordHandle+2
							sta			MostRecentPRH+2
							rts
*Static variable holding recent pr rec handle so routines w/o prrec access can look anyway:
MostRecentPRH				dc.l		0						;most recent print record handle
		
							
							
*
*FINISHPRH: Call this when done working with print record handle:
*
FinishPRH					ldy			#4
							lda			[printRecordHandle],y
							and			#$7FFF
							sta			[printRecordHandle],y
							rts
	
	
	
*
*InitPrintRecord: Fills user's print record with default values, for both ex- and internal use.
*On entry, printRecordHandle should be set.
*
							export		InitPrintRecord
InitPrintRecord				jsr			SetMiscNil				;advanced features to default NIL
							lda			#paperTypeUsaLetter		;standard paper size
							sta			OptionA
							jsr			SetPaper
							stz			OptionA					;default print style options...
							jsr			SetVSize				;normal vertical size
							jsr			SetReduction			;no reduction
							jsr			SetPageGap				;no vertical page gap
							jsr			SetOrientation			;portrait mode
							jsr			SetHeadScan				;unidirectional printing
							jsr			SetDarker				;no printer-boldface
							jsr			SetColor				;no color
							jsr			SetFeedFirstPage		;select first sheets feeder bin
							jsr			SetFeedOtherPages		;select other sheets feeder bin
							lda			#1
							sta			OptionA
							lda			#32767
							sta			OptionB
							jsr			SetPageRange			;print all pages
							jsr			SetFeed					;automatic sheet feed
							jsr			SetCopies				;one copy
							brl			SetQuality				;standard print quality
							



*
*OPTION SETTING ROUTINES: These modify the user's print record in DP variable "printRecord". They
*are called as a result of default, validate, style, or job calls.  They leave the print record in
*an uncorrupted state.  Unlike the IW driver, we rely only on the offsets provided in the include
*file, for future portability.  The parameter to be set is passed in the DP variables "OptionA" and
*"OptionB".  For boolean values (such as portrait/landscape, etc), 0 means the default option:
*
*NOTE: These routines should be the only entities within this driver to modify the print record.
*An internal coding, which makes sense by using 0 for default values, etc., is used to refer to
*values of print record settings, and backward compatiblity may demand that certain values be stored
*in a reverse or bizarre sense in the print record.  It is the purpose of these Get/Set routines
*to perform any such translation.
*

*SETMISCNIL: Initializes nonuser option switches and normally-nil fields:
							export		SetMiscNil
SetMiscNil					jsr			StartPRH
							ldy			#oprVersion					;Version ID
							lda			#VersionID
							sta			[ParamLongA],y
*
							ldy			#oprInfo+oiDev				;Device ID
							lda			#DeviceID					;2=LQ (1=IW 3=LW)
							sta			[ParamLongA],y
*
							lda			#0							;0,0 first coords of rPage
							ldy			#oprInfo+orPage+oh1
							sta			[ParamLongA],y
							ldy			#oprInfo+orPage+ov1
							sta			[ParamLongA],y
*
							ldy			#oprStl+owDev				;also 0 for initial wDev
							sta			[ParamLongA],y
*
							shortm
							ldy			#oprJob+obJDocLoop
							lda			#$80						;Set byte for spool print method
							sta			[ParamLongA],y
*
							ldy			#oprJob+ofFromUser
							lda			#1							;Set from-user field byte
							sta			[ParamLongA],y
							longm
*
							ldy			#owResScaling				;setup scaling info word to 3
							lda			#3
							sta			[ParamLongA],y
*
							lda			#0
*
							ldy			#oprJob+opIdleProc
							sta			[ParamLongA],y				;Default NIL idleproc
							iny
							iny
							sta			[ParamLongA],y
*
							ldy			#oprJob+opFileName
							sta			[ParamLongA],y				;(ACC 0) NIL pFileName
							iny
							iny
							sta			[ParamLongA],y
*
							ldy			#opFileBlockSize
							sta			[ParamLongA],y				;(ACC 0) NIL NEW pFileBlockSize
							iny
							iny
							sta			[ParamLongA],y
*
							ldy			#opFileMemLimit
							sta			[ParamLongA],y				;(ACC 0) NIL NEW pFileMemLimit
							iny
							iny
							sta			[ParamLongA],y
*
							ldy			#opCTable
							sta			[ParamLongA],y				;(ACC 0) NIL NEW pCTable
							iny
							iny
							sta			[ParamLongA],y
*
							ldy			#opSCBList
							sta			[ParamLongA],y				;(ACC 0) NIL NEW pSCBList
							iny
							iny
							sta			[ParamLongA],y
*
							brl			CalcAndFinishPRH

*SETPAPER: Sets the paper type, used for calculating printable area dimensions:							
							export		SetPaper
SetPaper					jsr 		StartPRH
							ldy			#oprStl+opaperType
							lda			OptionA
							sta			[ParamLongA],y
							brl			CalcAndFinishPRH

*SETVSIZE: Sets vertical sizing, normal or 50% ("condensed") for correct font aspect ratio:
							export		SetVSize
SetVSize					jsr			StartPRH
							ldy			#oprStl+owDev
							lda			[ParamLongA],y
							ldx			OptionA
							bne			@ClearIt								;reverse sense!
							ora			#wDevVSize
							bra			@StoreIt
@ClearIt					and			#ÅwDevVSize
@StoreIt					sta			[ParamLongA],y
							brl			CalcAndFinishPRH

*SETREDUCTION: Sets 100/66/33% reduction in IW-compatible way using intern code 0/1/2, respectively:
							export		SetReduction							;encoded in wierd way
SetReduction				jsr			StartPRH								;as 01/00/10 in prrec
							ldy			#oprStl+owDev							;access wDev
							lda			[ParamLongA],y
							and			#Å(wDevReductionLsb+wDevReductionMsb)	;clear reduction bits
							sta			[ParamLongA],y							;store with clr bits
							lda			OptionA									;get option 0..2
							bne			SetReduction1
*
SetReductionIts100			ldx			#0										;"0"  -> %reduction
							lda			#wDevReductionLsb						;"01" -> wDev bits
							bra			SetReductionSet
*
SetReduction1				cmp			#1
							bne			SetReductionIts33
*
SetReductionIts66			ldx			#33										;"33" -> %reduction
							lda			#0										;"00" -> wDev bits
							bra			SetReductionSet
*
SetReductionIts33			ldx			#66										;"66" -> %reduction
							lda			#wDevReductionMsb						;"10" -> wDev bits
*
SetReductionSet				ora			[ParamLongA],y							;store wDev bits...
							sta			[ParamLongA],y							;"wDev" offset in Y
							ldy			#oprStl+oreduction						;store %reduction...
							txa
							sta			[ParamLongA],y
							brl			CalcAndFinishPRH

*SETPAGEGAP: Sets page gap (formfeed at end-of-page or run across perforation) setting:
							export		SetPageGap
SetPageGap					jsr			StartPRH
							ldy			#oprStl+owDev
							lda			[ParamLongA],y
							ldx			OptionA
							bne			@ClearIt								;reverse sense!
							ora			#wDevGap
							bra			@StoreIt
@ClearIt					and			#ÅwDevGap
@StoreIt					sta			[ParamLongA],y
							brl			CalcAndFinishPRH

*SETORIENTATION: Sets portrait or landscape setting:
							export		SetOrientation
SetOrientation				jsr			StartPRH
							ldy			#oprStl+owDev
							lda			[ParamLongA],y
							ldx			OptionA
							bne			@ClearIt								;reverse sense!
							ora			#wDevOrientation
							bra			@StoreIt
@ClearIt					and			#ÅwDevOrientation
@StoreIt					sta			[ParamLongA],y
							brl			CalcAndFinishPRH

*SETQUALITY: Sets print loop method and imaging size determinant:
							export		SetQuality
SetQuality					jsr			StartPRH
							lda			OptionA				;(0=draft,1=std,2=better)
							ldy			#owQuality			;put code in new quality word...
							sta			[ParamLongA],y
							ldy			#oprStl+owDev		;now ensure wDev Better bit set right...
							lda			[ParamLongA],y
							and			#ÅwDevBetterText
							sta			[ParamLongA],y
							ldx			OptionA
							cpx			#2
							bne			SeQuSetBJD
							lda			[ParamLongA],y
							ora			#wDevBetterText
							sta			[ParamLongA],y
SeQuSetBJD					lda			#$80				;now ensure bJDocLoop set right...
							ldx			OptionA
							bne			SeQuStoreBJD
							lda			#$00
SeQuStoreBJD				ldy			#oprJob+obJDocLoop
							shortm
							sta			[ParamLongA],y
							longm
							jsr			CalcAndFinishPRH
							lda			OptionA				;if 0(draft), force some settings...
							bne			SeQuExit
							jsr			SetReduction		;100%		;(OptionA is zero)
							jsr			SetPageGap			;dfl vgap	;draft mode can deal with
							jsr			SetDarker			;bold off	;other options, such as
							jsr			SetHeadScan			;bidirect	;paper size and 50% VC
							jsr			SetOrientation		;portrait
SeQuExit					rts

*SETCOLOR: Sets color printing or grayscale conversion method:
							export		SetColor
SetColor					jsr			StartPRH
							ldy			#oprStl+owDev
							lda			[ParamLongA],y
							ldx			OptionA
							beq			@ClearIt
							ora			#wDevColor
							bra			@StoreIt
@ClearIt					and			#ÅwDevColor
@StoreIt					sta			[ParamLongA],y
							brl			CalcAndFinishPRH

*SETDARKER: Sets boldface enable flag:							
							export		SetDarker
SetDarker					jsr			StartPRH
							ldy			#oprStl+owDev
							lda			[ParamLongA],y
							ldx			OptionA
							beq			@ClearIt
							ora			#wDevDarker
							bra			@StoreIt
@ClearIt					and			#ÅwDevDarker
@StoreIt					sta			[ParamLongA],y
							brl			CalcAndFinishPRH

*SETHEADSCAN: Sets unidirectional enable flag:							
							export		SetHeadScan
SetHeadScan					jsr			StartPRH
							ldy			#oprStl+owDev
							lda			[ParamLongA],y
							ldx			OptionA
							beq			@ClearIt
							ora			#wDevUniDirectional
							bra			@StoreIt
@ClearIt					and			#ÅwDevUniDirectional
@StoreIt					sta			[ParamLongA],y
							brl			CalcAndFinishPRH

*SETFEED: Sets manual page feed interrupt dialog enable flag:
							export		SetFeed
SetFeed						jsr			StartPRH
							ldy			#oprStl+ofeed
							lda			OptionA
							sta			[ParamLongA],y
							brl			CalcAndFinishPRH

*SETFEEDFIRSTPAGE: Sets cut sheet feeder select for first sheet:							
							export		SetFeedFirstPage			;OptionA = 0..2 (Bin #-1)
SetFeedFirstPage			jsr			StartPRH
							lda			OptionA
							xba
							asl a									;Shift into position b10-11. NOTE:
							asl a									;NOT EQUATE-INDEPENDENT!!
							and			#wDevFirstBinMsb+wDevFirstBinLsb
							tax
							ldy			#oprStl+owDev
							lda			[ParamLongA],y
							and			#Å(wDevFirstBinMsb+wDevFirstBinLsb)
							sta			[ParamLongA],y
							txa
							ora			[ParamLongA],y
							sta			[ParamLongA],y
							brl			CalcAndFinishPRH

*SETFEEDOTHERPAGES: Sets cut sheet feeder select for nonfirst sheets:							
							export		SetFeedOtherPages			;OptionA = 0..2 (Bin #-1)
SetFeedOtherPages			jsr			StartPRH
							lda			OptionA
							xba										;NOT EQUATE-INDEPENDENT!! b8-b9.
							and			#wDevNextBinMsb+wDevNextBinLsb
							tax
							ldy			#oprStl+owDev
							lda			[ParamLongA],y
							and			#Å(wDevNextBinMsb+wDevNextBinLsb)
							sta			[ParamLongA],y
							txa
							ora			[ParamLongA],y
							sta			[ParamLongA],y
							brl			CalcAndFinishPRH

*SETPAGERANGE: Sets range of pages to be processed (others are ignored and not recorded):							
							export		SetPageRange				;OptionA/B = first/last 1..x
SetPageRange				jsr			StartPRH
							ldy			#oprJob+oiFstPage
							lda			OptionA
							sta			[ParamLongA],y
							ldy			#oprJob+oiLstPage
							lda			OptionB
							sta			[ParamLongA],y
							brl			CalcAndFinishPRH

*SETCOPIES: Sets number of copies to produce for each page:							
							export		SetCopies					;OptionA = # copies 1..x
SetCopies					jsr			StartPRH
							ldy			#oprJob+oiCopies
							lda			OptionA
							sta			[ParamLongA],y
							brl			CalcAndFinishPRH
							
CalcAndFinishPRH			jsr			CalcMetrics					;Common exit sequence
							brl			FinishPRH
							
	
							
*
*INFORMATION INQUIRY ROUTINES: These routines return (possibly processed) info about pr rec items:
*NOTE: These routines return data in EITHER accumulator OR zero flag status OR X/Y registers.
*NOTE: These routines return 0 for the common default settings; may be inverse of wDev.
*

*GETOKOURDRIVER: Sets zero flag (BEQ test) if DeviceID AND VersionID came from our driver:
							export		GetOkOurDriver
GetOkOurDriver				jsr			StartPRH					;get and lock handle
							ldy			#oprInfo+oiDev				;DeviceID offset
							lda			[ParamLongA],y				;get it
							cmp			#DeviceID					;zero flag set/clr if yes/no ours
							bne			InqExitZFlag				;nope, was different printer
							ldy			#oprVersion					;VersionID offset
							lda			[ParamLongA],y				;get it
							cmp			#VersionID					;zero flag set/clr if yes/no ours
InqExitZFlag				php										;zero flag set on exit
							jsr			FinishPRH					;unlock handle
							plp										;zero flag valid again
							rts										;exit
							
*GETPAPER: Returns the paper type in the accumulator:
							export		GetPaper
GetPaper					jsr			StartPRH
							ldy			#oprStl+opaperType
							lda			[ParamLongA],y
InqExitACC					pha
							jsr			FinishPRH
							pla
							rts
							
*GETVSIZE: Gets vertical sizing (normal or condensed) in the zero flag (BEQ if normal size):
							export		GetVSize
GetVSize					jsr			StartPRH
							ldy			#oprStl+owDev
							lda			[ParamLongA],y
							and			#wDevVSize
							eor			#wDevVSize					;reverse sense of wDev bit!
							brl			InqExitZFlag
							
*GETREDUCTION: Gets reduction value (100/66/33 => 0/1/2) in ACC from wierd IW-compatible encoding:
							export		GetReduction				;stored in a wierd way for IW II
GetReduction				jsr			StartPRH					;compatibility: stored as
							ldy			#oprStl+owDev				;100/66/33 => 01/00/10
							lda			[ParamLongA],y
							and			#wDevReductionLsb+wDevReductionMsb
							bne			GetReduction1
							lda			#1							;00 => 66% => return "1"
							bra			InqExitACC
GetReduction1				cmp			#wDevReductionMsb
							bne			GetReduction2
							lda			#2							;10 => 33% => return "2"
							bra			InqExitACC
GetReduction2				lda			#0							;01 (or 11) => 100% => return "0"
							bra			InqExitACC
							
*GETPAGEGAP: Gets page gap yes/no in the zero flag (BEQ if normal page gap, BNE if no gap):
							export		GetPageGap
GetPageGap					jsr			StartPRH
							ldy			#oprStl+owDev
							lda			[ParamLongA],y
							and			#wDevGap
							eor			#wDevGap					;reverse sense of wDev bit!
							brl			InqExitZFlag
							
*GETORIENTATION: Returns 1 in ACC if landscape, 0 if normal portrait:
							export		GetOrientation
GetOrientation				jsr			StartPRH
							ldy			#oprStl+owDev
							lda			[ParamLongA],y
							and			#wDevOrientation
							eor			#wDevOrientation			;reverse sense of wDev bit!
							beq			GetOrientation1
							lda			#1
GetOrientation1				brl			InqExitACC

*GETQUALITY: Gets quality mode in ACC (0=draft(diff meth), 1=std, 2=better(3X)):
							export		GetQuality
GetQuality					jsr			StartPRH					;lock and dereference
							ldy			#oprStl+owDev				;if wDev.Better=0 AND
							lda			[ParamLongA],y				;our wQuality=2 -> force to 1
							and			#wDevBetterText
							bne			GeQuForceTo2				;(if wDev.Better=1 -> force to 2)
							ldy			#owQuality
							lda			[ParamLongA],y
							cmp			#2
							bne			GeQuCheckBJD
GeQuForceTo1				lda			#1							;plA still points to wQuality
							sta			[ParamLongA],y
							bra			GeQuCheckBJD
GeQuForceTo2				lda			#2
							ldy			#owQuality
							sta			[ParamLongA],y
GeQuCheckBJD				ldy			#oprJob+obJDocLoop			;if bjDocLoop=0 -> force to 0
							lda			[ParamLongA],y
							and			#$FF
							cmp			#0
							bne			GeQuGetQuality
							lda			#0
							ldy			#owQuality
							sta			[ParamLongA],y
GeQuGetQuality				ldy			#owQuality					;now get info from new place
							lda			[ParamLongA],y
							brl			InqExitACC
							
*GETDARKER: Gets darker print option in zero flag (BEQ if default no):
							export		GetDarker
GetDarker					jsr			StartPRH
							ldy			#oprStl+owDev
							lda			[ParamLongA],y
							and			#wDevDarker
							brl			InqExitZFlag
							
*GETCOLOR: Gets color option in zero flag (BEQ if default no, we don't want color):
							export		GetColor
GetColor					jsr			StartPRH
							ldy			#oprStl+owDev
							lda			[ParamLongA],y
							and			#wDevColor
							brl			InqExitZFlag
							
*GETHEADSCAN: Gets unidirectional head scan option in z flag (BEQ if normal BI-directional printing):
							export		GetHeadScan
GetHeadScan					jsr			StartPRH
							ldy			#oprStl+owDev
							lda			[ParamLongA],y
							and			#wDevUniDirectional
							brl			InqExitZFlag
							
*GETFEED: Gets manual page feed option in zero flag (BEQ if manual page feed):
							export		GetFeed
GetFeed						jsr			StartPRH
							ldy			#oprStl+oFeed
							lda			[ParamLongA],y
							brl			InqExitZFlag
							
*GETFEEDFIRSTPAGE: Gets Sheet Feeder Bin Number where first page printed should go (0..2 -> ACC):
							export		GetFeedFirstPage
GetFeedFirstPage			jsr			StartPRH
							ldy			#oprStl+owDev
							lda			[ParamLongA],y
							and			#wDevFirstBinLsb+wDevFirstBinMsb
							xba
							lsr a								;WARNING: Not Equate-Independent!
							lsr a
							brl			InqExitACC
							
*GETFEEDOTHERPAGES: Gets Sheet Feeder Bin Number where other pages printed should go (0..2 -> ACC):
							export		GetFeedOtherPages
GetFeedOtherPages			jsr			StartPRH
							ldy			#oprStl+owDev
							lda			[ParamLongA],y
							and			#wDevNextBinLsb+wDevNextBinMsb
							xba			;WARNING: Not Equate-Independent!
							brl			InqExitACC
							
*GETPAGERANGE: Gets page range (First Page -> X; Last Page -> Y):
							export		GetPageRange
GetPageRange				jsr			StartPRH
							ldy			#oprJob+oiFstPage
							lda			[ParamLongA],y
							pha
							ldy			#oprJob+oiLstPage
							lda			[ParamLongA],y
							pha
							jsr			FinishPRH
							ply
							plx
							rts

*GETCOPIES: Gets number of copies to be printed in accumulator:
							export		GetCopies
GetCopies					jsr			StartPRH
							ldy			#oprJob+oiCopies
							lda			[ParamLongA],y
							brl			InqExitACC
														
*GETSPOOLFILENAMEPTR: Gets optional user-select spool filename ptr (lo->X, hi->Y, carry if not NIL):
							export		GetSpoolFileNamePtr
GetSpoolFileNamePtr			jsr			StartPRH
							ldy			#oprJob+opFileName
InqExitWithXYPtrData		lda			[ParamLongA],y
							pha
							iny
							iny
							lda			[ParamLongA],y
							pha
							jsr			FinishPRH
							ply
							plx
							stx			ParamLongA
							tya
							ora			ParamLongA
							cmp			#1							;set carry if not NIL pointer
							rts

*GETSPOOLMEMINC: Gets optional user-selectable mem inc value for spooling (lo->X, hi->Y, carry):
							export		GetSpoolMemInc
GetSpoolMemInc				jsr			StartPRH
							ldy			#opFileBlockSize
							bra			InqExitWithXYPtrData

*GETSPOOLMEMLEFTLIMIT: Gets optional user-selectable to-disk spool threshold (lo->X, hi->Y, carry):
							export		GetSpoolMemLeftLimit
GetSpoolMemLeftLimit		jsr			StartPRH
							ldy			#opFileMemLimit
							bra			InqExitWithXYPtrData
							
*GETIMAGERCTABLE: Gets optional user-select color table pointer for imaging (lo->X, hi->Y, carry):
							export		GetImagerCTable
GetImagerCTable				jsr			StartPRH
							ldy			#opCTable
							bra			InqExitWithXYPtrData

*GETIMAGERSCBLIST: Gets optional user-select SCB list pointer for imaging (lo->X, hi->Y, carry):
							export		GetImagerSCBList
GetImagerSCBList			jsr			StartPRH
							ldy			#opSCBList
							bra			InqExitWithXYPtrData
							
*GETIDLEPROC: Gets optional user-select IdleProc called during imaging (lo->X, hi->Y, carry):
							export		GetIdleProc
GetIdleProc					jsr			StartPRH
							ldy			#oprJob+opIdleProc
							bra			InqExitWithXYPtrData
							
*GETRPAGESIZE: Gets bottom right coordinates of last calculated rPage field in pixels (->X,Y):
							export		GetRPageSize
GetRPageSize				jsr			StartPRH
							ldy			#oprInfo+orPage+oh2
							lda			[ParamLongA],y
							pha
							ldy			#oprInfo+orPage+ov2
							lda			[ParamLongA],y
							pha
							jsr			FinishPRH
							ply
							plx
							rts

*GETIMAGINGSIZE: Gets bottom right coordinates of how big the offscrn pix buff should be (->X,Y):
							export		GetImagingSize
GetImagingSize				jsr			StartPRH					;lock print rec struct & deref
							ldy			#oprInfo+orPage+oh2			;copy values first...
							lda			[ParamLongA],y
							sta			GeImSzX
							ldy			#oprInfo+orPage+ov2
							lda			[ParamLongA],y
							sta			GeImSzY
							lda			GeImSzX						;and then convert them...
							jsr			ConvertRPageToImgSize
							sta			GeImSzX
							lda			GeImSzY
							jsr			ConvertRPageToImgSize
							sta			GeImSzY
GeImSzDone					jsr			FinishPRH					;release print record
							ldx			GeImSzX						;get results
							ldy			GeImSzY
							rts
GeImSzX						dc.w		0
GeImSzY						dc.w		0

*GETCRWIDTH: Gets our own internal calc abs right margin, always in max res printer pixels (->ACC):
							export		GetCrWidth
GetCrWidth					jsr			StartPRH
							ldy			#owPaperCrWidth
							lda			[ParamLongA],y
							brl			InqExitACC
							
*GETPAPERLENGTH: Gets vertical size of paper in draft-text-mode (72 vert dpi) pixels (->ACC):
							export		GetPaperLength
GetPaperLength				jsr			StartPRH
							ldy			#oprStl+opaperType			;generate index for curr paper
							lda			[ParamLongA],y
							asl a
							asl a
							clc
							adc			[ParamLongA],y
							clc
							adc			[ParamLongA],y
							tax
							lda			CalcMetricsPtTbl+2,x		;get paper type's vert size
							ldx			#72							;do *72 and then /16
							jsr			CalcMetricsConvert
							brl			InqExitACC
							
*GETVGAPSIZE: Gets vertical gap size in draft-text-mode (72 vert dpi) pixels (->ACC):
							export		GetVGapSize
GetVGapSize					jsr			StartPRH
							ldy			#oprStl+opaperType			;doing (-1*(-GAP)*72)/16...
							lda			[ParamLongA],y				;generate index for curr paper
							asl a
							asl a
							clc
							adc			[ParamLongA],y
							clc
							adc			[ParamLongA],y
							tax
							lda			#0							;got index, now do 0 - (-GAP)
							sec
							sbc			CalcMetricsPtTbl+4,x		;got GAP...
							tax
							ldy			#oprStl+owDev				;...but zero if "no gaps" is on
							lda			[ParamLongA],y
							and			#wDevGap					;prrec setting is reverse sense
							bne			GetVGapSize1
							ldx			#0
GetVGapSize1				txa
							ldx			#72							;do *72 and then /16
							jsr			CalcMetricsConvert
							brl			InqExitACC
							
*GETMODEBYTE: Gets 320/640 mode byte at the time of print record formation (->ACC):
							export		GetModeByte
GetModeByte					jsr			StartPRH
							ldy			#oprStl+ointernA
							lda			[ParamLongA],y
							brl			InqExitACC
							
*GETSTATMESGDISABLE: Gets if status message box is enabled/disabled, 0/1 respectively, in A:
							export		GetStatMesgDisable
GetStatMesgDisable			jsr			StartPRH
							ldy			#oprStl+owDev
							lda			[ParamLongA],y
							and			#wDevNoStatusBox
							beq			GeMdDone
							lda			#1
GeMdDone					brl			InqExitACC
							
*GETCONVERTQUALBITS: Converts print record information into QualityBits for imaging routine (->ACC):
							export		GetConvertQualBits
GetConvertQualBits			lda			#0							;start all bits clr for ORA's
							pha
*
GetConvertQualBits0			jsr			GetQuality					;check Better mode
							cmp			#2
							bne			GetConvertQualBits1
							pla
							;			  5432109876543210
							ora			#%0000000000000001			;set imager_qbit 0: 1=Better
							pha
*
GetConvertQualBits1			jsr			GetOrientation				;check orientation mode
							cmp			#1
							bne			GetConvertQualBits2
							pla
							;			  5432109876543210
							ora			#%0000000000000010			;set imager_qbit 1: 1=Landscape
							pha
*
GetConvertQualBits2			jsr			GetVSize					;check Vertical Condense mode
							beq			GetConvertQualBits3
							pla
							;			  5432109876543210
							ora			#%0000000000000100			;set imager_qbit 2: 1=VCondense
							pha
*
GetConvertQualBits3			jsr			GetReduction				;check Reduction value
							asl a
							asl a
							asl a
							ora 1,s
							sta 1,s									;set imager_qbits 4,3: 00/01/10
*
GetConvertQualBits4			jsr			GetPageGap					;check Gap setting
							beq			GetConvertQualBits5
							pla
							;			  5432109876543210
							ora			#%0000000010000000			;set imager_qbit 7: 1=No gap
							pha
*
GetConvertQualBits5			jsr			GetDarker					;check Darker setting
							beq			GetConvertQualBits6
							pla
							;			  5432109876543210
							ora			#%0010000000000000			;set imager_qbit 13: 1=Darker
							pha
*
GetConvertQualBits6			jsr			GetHeadScan					;check Headscan setting
							beq			GetConvertQualBits7
							pla
							;			  5432109876543210
							ora			#%0100000000000000			;set imager_qbit 14: 1=Unidirect
							pha
*
GetConvertQualBits7			jsr			GetColor					;check Color setting
							beq			GetConverQualBitsDone
							pla
							;			  5432109876543210
							ora			#%1000000000000000			;set imager_qbit 15: 1=Color
							pha
*
GetConverQualBitsDone		pla
							brl			InqExitACC					;exit with QualityBits in ACC





*
*METRICS UNITS CONVERSION ROUTINES: These routines convert between application-level ("rPage")
*and imaging-level ("Imaging") (which are possibly 3X-size) coordinates.  These routines do not
*assume any environment, such as a valid "printRecordHandle", so they can be called anywhere.
*



*CONVERTRPAGETOIMGSIZE: rPage -> Img [pict.source (small) -> pict.dest (big)] (input/output in ACC):
							export		ConvertRPageToImgSize
ConvertRPageToImgSize		phb										;save/setup B...
							phk
							plb
							sta			CoRpCoordValue				;save input given in A
							phd										;save/setup D...
							pha
							pha
							tsc
							ina
							tcd
*
							lda			MostRecentPRH+0				;deref pr rec handle...
							sta			<0
							lda			MostRecentPRH+2
							sta			<2
							lda			[0]
							tax
							ldy			#2
							lda			[0],y
							sta			<2
							stx			<0
							ldy			#oprStl+owDev				;get wDev data...
							lda			[0],y
*
							tax										;do nothing if Better not set
							and			#wDevBetterText
							beq			CoRpDidAdjRed
							txa
*
							and			#wDevReductionLsb+wDevReductionMsb
							beq			CoRpIts66					;compare for "00" => 66%
							cmp			#wDevReductionMsb			;compare for "10" => 33%
							beq			CoRpIts33					;else ("01" or ill "11") => 100%
CoRpIts100					lda			CoRpCoordValue				;100%: triple...
							asl a
							clc
							adc			CoRpCoordValue
							sta			CoRpCoordValue
							bra			CoRpDidAdjRed
CoRpIts66					asl			CoRpCoordValue				;66%: double...
CoRpIts33															;33%: leave alone...
CoRpDidAdjRed
*							
							pla										;restore D...
							pla
							pld
							lda			CoRpCoordValue				;get result in A
							plb										;restore B
							rts										;exit with A set
*
CoRpCoordValue				dc.w		0							;storage for input/output param
							




*CONVERTIMGTORPAGESIZE: Img -> rPage [pict.dest (big) -> pict.source (small)] (input/output in ACC):
							export		ConvertImgToRPageSize
ConvertImgToRPageSize		phb										;save/setup B...
							phk
							plb
							sta			CoImCoordValue				;save input given in A
							phd										;save/setup D...
							pha
							pha
							tsc
							ina
							tcd
*
							lda			MostRecentPRH+0				;deref pr rec handle...
							sta			<0
							lda			MostRecentPRH+2
							sta			<2
							lda			[0]
							tax
							ldy			#2
							lda			[0],y
							sta			<2
							stx			<0
							ldy			#oprStl+owDev				;get wDev data...
							lda			[0],y
*
							tax										;do nothing if Better not set
							and			#wDevBetterText
							beq			CoImDidAdjRed
							txa
*
							and			#wDevReductionLsb+wDevReductionMsb
							beq			CoImIts66					;compare for "00" => 66%
							cmp			#wDevReductionMsb			;compare for "10" => 33%
							beq			CoImIts33					;else ("01" or ill "11") => 100%
CoImIts100					pha										;100%: third (undo triple)...
							pha
							pushword	CoImCoordValue
							pushword	#3
							_UDivide
							pullword	CoImCoordValue
							pla
							bra			CoImDidAdjRed
CoImIts66					lsr			CoImCoordValue				;66%: halve (undo double)...
CoImIts33															;33%: leave alone...
CoImDidAdjRed
*
							pla										;restore D...
							pla
							pld
							lda			CoImCoordValue				;get result in A
							plb										;restore B
							rts										;exit with A set
*
CoImCoordValue				dc.w		0							;storage for input/output param







*
*CALCMETRICS: This routine sets iH/Vres, crWidth, rPage and rPaper in print record based
*on the option bit and page type settings in the print record.
*
*NOTE: This is the only routine other than the Get/Set routines which may access the print record
*directly, and thus is subject to backward print record flag compatibility issues.
*
							export		CalcMetrics
CalcMetrics					jsr			StartPRH					;lock and dereference
*Save wDev field for repeated use:
							ldy			#oprStl+owDev				;get & save wDev for use...
							lda			[ParamLongA],y
							pha
*Start with max possible port/land resolutions; equates assume Better/V.Condensed/100%/640:
							ldx			#maxResPortraitX			;assume portrait orientation
							stx			CaMeRawAcrossResolution		;P: for crWidth calc later
							ldy			#maxResPortraitY/2			;P: default not V.Condensed
							and			#wDevOrientation			;wDev still in acc
							bne			CalcMetricsGotRawRes
							ldx			#maxResLandscapeX			;no, it's landscape
							ldy			#maxResLandscapeY			;L: for crWidth calc later
							sty			CaMeRawAcrossResolution
							ldy			#maxResLandscapeY/2			;L: default not V.Condensed
CalcMetricsGotRawRes		stx			ParamWordA					;pwA & pwB will build iH/VRes
							sty			ParamWordB
*1 | 1.5 | 3 times h & v resolutions if 100 | 66 | 33% life size (increases printable area):
							pla										;get wDev & isolate red bits...
							pha
							and			#wDevReductionLsb+wDevReductionMsb
							beq			CalcMetricsIts66			;compare for "00" => 66%
							cmp			#wDevReductionMsb			;compare for "10" => 33%
							beq			CalcMetricsIts33
							bra			CalcMetricsDidAdjRed		;else ("01" or ill "11") => 100%
CalcMetricsIts66			lda			ParamWordA					;66%: triple and halve...
							asl a
							clc
							adc			ParamWordA
							lsr a
							sta			ParamWordA
							lda			ParamWordB
							asl a
							clc
							adc			ParamWordB
							lsr a
							sta			ParamWordB
							bra			CalcMetricsDidAdjRed
CalcMetricsIts33			lda			ParamWordA					;33%: triple...
							asl a
							clc
							adc			ParamWordA
							sta			ParamWordA
							lda			ParamWordB
							asl a
							clc
							adc			ParamWordB
							sta			ParamWordB
CalcMetricsDidAdjRed
*2 times vertical resolution if Vertical Condense mode is on (increases printable area):
							pla										;get wDev...
							pha
							and			#wDevVSize
							bne			CalcMetricsNotCondensed
							asl			ParamWordB					;double Y resolution if VC
CalcMetricsNotCondensed
*1/2 X res if 320 mode.  Also, store mode bit in "internA" for future band buff alloc calc:
							pha
							_GetMasterSCB
							pla
							and			#$80
							ldy			#oprStl+ointernA
							sta			[ParamLongA],y				;320/640 mode -> oprStl.internA
							cmp			#$80
							beq			CalcMetricsNot320			;branch if 640 mode active
							lsr			ParamWordA					;half X resolution if 320 mode
CalcMetricsNot320
*1/3 of X & Y resolution always; pixel addressability is always as if not in Better mode:
							pha										;divide X by 3...
							pha
							pushword	ParamWordA
							pushword	#3
							_UDivide
							pullword	ParamWordA
							pla
							pha										;divide Y by 3...
							pha
							pushword	ParamWordB
							pushword	#3
							_UDivide
							pullword	ParamWordB
							pla
*We now have effective iHres and iVres that will be produced by imager in printer-pixels per inch:
							ldy			#oprInfo+oiHres
							lda			ParamWordA
							sta			[ParamLongA],y
							ldy			#oprInfo+oiVres
							lda			ParamWordB
							sta			[ParamLongA],y
*Now that we have iH&Vres, we will calculate rPage&rPaper&crWidth in inch*16 based on paper type:
*Get dimensions of current paper type:
							ldy			#oprStl+opaperType
							lda			[ParamLongA],y				;get paper type ID
							cmp			#maxPaperTypeID+1			;make sure it's in range
							bcc			CalcMetricsPtOk
							lda			#0							;else assume type 0
							sta			[ParamLongA],y
CalcMetricsPtOk				asl	a									;paper type * 6
							asl a
							clc
							adc			[ParamLongA],y
							clc
							adc			[ParamLongA],y
							tax										;index into paper dimension table
							lda			CalcMetricsPtTbl+0,x		;get X dimension in 1/16th inches
							sta			CaMeRawPaperWidth			;save paper real estate dimension
							sta			ParamWordC					;paper X size in ParamWordC
							lda			CalcMetricsPtTbl+2,x		;get Y dimension
							sta			ParamWordD					;paper Y size in ParamWordD
							lda			CalcMetricsPtTbl+4,x		;get -GAP value
							sta			ParamWordE					;paper -GAP size in ParamWordE
*If Gap option is turned off, zero our looked-up page -1*GAP value (GAP increases printable area):
							pla										;get wDev...
							pha
							and			#wDevGap
							bne			CalcMetricsYesGap			;branch if we DO have vert gap
							stz			ParamWordE					;else, no gap: zero gap value
CalcMetricsYesGap
*Calc internal and external versions of crWidth abs right margin, used for landscp right limit, etc:
							ldx			CaMeRawAcrossResolution		;get physical resolution
							lda			CaMeRawPaperWidth			;get amount of paper under head
							sec
							sbc			#(2*printLineMargin)		;...minus left&right margins
							jsr			CalcMetricsConvert			;do (acc*x)/16
							ldy			#owPaperCrWidth				;now store it in print record...
							sta			[ParamLongA],y
							lda			#prRecCrWidth				;also store the constant crWidth
							ldy			#oprStl+ocrWidth			;value which apps have come to
							sta			[ParamLongA],y				;expect in the print record...
*rPaper.X1 = 0 - printLineMargin (black mark on bail) (rPage.X1.Y1=0,0 is origin) (assuming Portrt):
							lda			#((ÅprintLineMargin)+1)		;-1*printLineMargin always
							ldy			#orPaper+oh1				;store it
							sta			[ParamLongA],y
*rPaper.X2 = rPaper.X1 + paper_size.X (rPage.X1.Y1=0,0 is origin) (assuming Portrait):
							clc										;X1 still in acc
							adc			ParamWordC					;add X size of paper type
							ldy			#orPaper+oh2				;store it
							sta			[ParamLongA],y
*rPaper.Y1 = 0 - GAP (rPage.X1.Y1=0,0 is origin) (assuming Portrait):
							lda			ParamWordE					;get -1*GAP for current paper
							ldy			#orPaper+ov1				;store it
							sta			[ParamLongA],y
*rPaper.Y2 = rPaper.Y1 + paper_size.Y (rPage.X1.Y1=0,0 is origin) (assuming Portrait):
							clc										;Y1 still in acc
							adc			ParamWordD					;add Y size of paper type
							ldy			#orPaper+ov2				;store it
							sta			[ParamLongA],y
*rPage.X1 and rPage.Y1 are both zero and are the origin for all other rPage/rPaper coordinates:
							lda			#0
							ldy			#oprInfo+orPage+oh1
							sta			[ParamLongA],y
							ldy			#oprInfo+orPage+ov1
							sta			[ParamLongA],y
*rPage.X2 = paper_size.X - 2*printLineMargin (black mark on bail) (assuming Portrait):
							lda			ParamWordC					;get X size of paper type
							sec										;subtract for left&right border
							sbc			#2*printLineMargin
							ldy			#oprInfo+orPage+oh2			;store it
							sta			[ParamLongA],y
*rPage.Y2 = paper_size.Y - 2*GAP value (assuming Portrait):
							lda			ParamWordE					;get gap value (-1*GAP or 0)
							clc
							adc			ParamWordE					;now it's -2*GAP
							clc										;add Y size of paper type; now...
							adc			ParamWordD					;...we've done paperY-2*GAP
							ldy			#oprInfo+orPage+ov2			;store it
							sta			[ParamLongA],y
*If Landscape orientation, rotate&mirror by exchanging rPage&rPaper X and Y coordinates:
							pla										;get wDev...
							pha
							and			#wDevOrientation			;if portrait, leave coords alone
							bne			CalcMetricsNoFlip			;else flip them:
*
							ldy			#orPaper+ov1				;rPaper.X1 <-> Y1...
							lda			[ParamLongA],y
							tax
							ldy			#orPaper+oh1
							lda			[ParamLongA],y
							ldy			#orPaper+ov1
							sta			[ParamLongA],y
							txa
							ldy			#orPaper+oh1
							sta			[ParamLongA],y
*
							ldy			#orPaper+ov2				;rPaper.X2 <-> Y2...
							lda			[ParamLongA],y
							tax
							ldy			#orPaper+oh2
							lda			[ParamLongA],y
							ldy			#orPaper+ov2
							sta			[ParamLongA],y
							txa
							ldy			#orPaper+oh2
							sta			[ParamLongA],y
*
							ldy			#oprInfo+orPage+ov2			;rPage.X2 <-> Y2...
							lda			[ParamLongA],y
							tax
							ldy			#oprInfo+orPage+oh2
							lda			[ParamLongA],y
							ldy			#oprInfo+orPage+ov2
							sta			[ParamLongA],y
							txa
							ldy			#oprInfo+orPage+oh2
							sta			[ParamLongA],y
CalcMetricsNoFlip
*Right now, rPage/rPaper are in values of inch*16. Now convert all of these to the printing pixels
*that the application sees by signed multiply by iHres/iVres and signed divide by 16:
							ldy			#orPaper+oh1				;get value just computed above...
							lda			[ParamLongA],y				;in a-reg. This is negative!
							eor			#$FFFF						;negate it...
							clc										;...so the unsigned convert...
							adc			#1							;...will work correctly
							ldx			ParamWordA					;get resolution A)iHres B)iVres
							jsr			CalcMetricsConvert			;convert rPaper X1
							eor			#$FFFF						;negate it...
							clc										;...again...
							adc			#1							;...back to negative
							ldy			#orPaper+oh1				;store value just converted...
							sta			[ParamLongA],y				;back into print record
*							
							ldy			#orPaper+ov1
							lda			[ParamLongA],y
							eor			#$FFFF						;negate -> positive
							clc
							adc			#1
							ldx			ParamWordB
							jsr			CalcMetricsConvert			;convert rPaper Y1
							eor			#$FFFF						;negate -> negative
							clc
							adc			#1
							ldy			#orPaper+ov1
							sta			[ParamLongA],y
*							
							ldy			#orPaper+oh2				;all others are all positive...
							lda			[ParamLongA],y
							ldx			ParamWordA
							jsr			CalcMetricsConvert			;convert rPaper X2
							ldy			#orPaper+oh2
							sta			[ParamLongA],y
*							
							ldy			#orPaper+ov2
							lda			[ParamLongA],y
							ldx			ParamWordB
							jsr			CalcMetricsConvert			;convert rPaper Y2
							ldy			#orPaper+ov2
							sta			[ParamLongA],y
*							
							ldy			#oprInfo+orPage+oh2
							lda			[ParamLongA],y
							ldx			ParamWordA
							jsr			CalcMetricsConvert			;convert rPage X2
							ldy			#oprInfo+orPage+oh2
							sta			[ParamLongA],y
*							
							ldy			#oprInfo+orPage+ov2
							lda			[ParamLongA],y
							ldx			ParamWordB
							jsr			CalcMetricsConvert			;convert rPage Y2
							ldy			#oprInfo+orPage+ov2
							sta			[ParamLongA],y
*Copy the PrInfo subrecord to PrInfoPT for compatibility reasons:
							ldy			#oprInfo+12					;source: prInfo offset
							ldx			#oprInfoPT+12				;destination: prInfoPT offset
CaMeCopyPrInfoLp			lda			[ParamLongA],y				;length: 14 bytes
							phy
							txy
							sta			[ParamLongA],y
							ply
							dex
							dex
							dey
							dey
							cpy			#oprInfo
							bcs			CaMeCopyPrInfoLp
*Exit:
							pla										;get rid of wDev on stack
							brl			FinishPRH					;return via lock routine
*Static variables:
CaMeRawAcrossResolution		dc.w		0							;for crWidth calculation
CaMeRawPaperWidth			dc.w		0							;for crWidth calculation





*
*The following routine does AREG := (AREG*XREG)/16 with unsigned arithmetic:
*
CalcMetricsConvert			pha										;Space for multiply result...
							pha										;...longspace
							pha										;A REG: value to be converted
							phx										;X REG: resolution iHres/iVres
							_Multiply
							pulllong	ParamLongB
							lsr			ParamLongB+2				;divide by 2 hi word
							ror			ParamLongB					;divide by 2 lo word	=/2
							lsr			ParamLongB+2				;divide by 2 hi word
							ror			ParamLongB					;divide by 2 lo word	=/4
							lsr			ParamLongB+2				;divide by 2 hi word
							ror			ParamLongB					;divide by 2 lo word	=/8
							lsr			ParamLongB+2				;divide by 2 hi word
							ror			ParamLongB					;divide by 2 lo word	=/16
							lda			ParamLongB					;get lo word only
							rts										;we're done




							
*
*Lookup table containing physical dimensions (in inch * 16) of different types of paper:
*
CalcMetricsPtTbl			dc.w		paperSizeUsaLetterX			;indexed if paper type == 0
							dc.w		paperSizeUsaLetterY			;type 0 must be US Letter
							dc.w		-1*paperSizeUsaLetterGap

							dc.w		paperSizeUsaLegalX			;indexed if paper type == 1
							dc.w		paperSizeUsaLegalY			;type 1 must be US Legal
							dc.w		-1*paperSizeUsaLegalGap
							
							dc.w		paperSizeEurA4X				;indexed if paper type == 2
							dc.w		paperSizeEurA4Y				;type 2 must be A4 Letter
							dc.w		-1*paperSizeEurA4Gap
							
							dc.w		paperSizeEurIntlFanfoldX	;indexed if paper type == 3
							dc.w		paperSizeEurIntlFanfoldY	;type 3 must be Intl Fanfold
							dc.w		-1*paperSizeEurIntlFanfoldGap

							dc.w		paperSizeEurB5X				;indexed if paper type == 4
							dc.w		paperSizeEurB5Y
							dc.w		-1*paperSizeEurB5Gap

							dc.w		paperSizeBigComputerX		;indexed if paper type == 5
							dc.w		paperSizeBigComputerY
							dc.w		-1*paperSizeBigComputerGap

							dc.w		paperSizeBigLedgerX			;indexed if paper type == 6
							dc.w		paperSizeBigLedgerY
							dc.w		-1*paperSizeBigLedgerGap

							dc.w		paperSizeBigIntlA3X			;indexed if paper type == 7
							dc.w		paperSizeBigIntlA3Y
							dc.w		-1*paperSizeBigIntlA3Gap

							dc.w		paperSizeUsaStatementX		;indexed if paper type == 8
							dc.w		paperSizeUsaStatementY
							dc.w		-1*paperSizeUsaStatementGap
							
							dc.w		paperSizeBigNewsX			;indexed if paper type == 9
							dc.w		paperSizeBigNewsY
							dc.w		-1*paperSizeBigNewsGap

							dc.w		paperSizeEnvNo10X			;indexed if paper type == 10
							dc.w		paperSizeEnvNo10Y
							dc.w		-1*paperSizeEnvNo10Gap

							dc.w		paperSizeEnvNo9X			;indexed if paper type == 11
							dc.w		paperSizeEnvNo9Y
							dc.w		-1*paperSizeEnvNo9Gap

							dc.w		paperSizeEnvNo6X			;indexed if paper type == 12
							dc.w		paperSizeEnvNo6Y
							dc.w		-1*paperSizeEnvNo6Gap

							dc.w		paperSizeLblSmlX			;indexed if paper type == 13
							dc.w		paperSizeLblSmlY
							dc.w		-1*paperSizeLblSmlGap

							dc.w		paperSizeLblMedX			;indexed if paper type == 14
							dc.w		paperSizeLblMedY
							dc.w		-1*paperSizeLblMedGap

							dc.w		paperSizeLblLrgX			;indexed if paper type == 15
							dc.w		paperSizeLblLrgY
							dc.w		-1*paperSizeLblLrgGap
							
							dc.w		paperSizeLblPackingX		;indexed if paper type == 16
							dc.w		paperSizeLblPackingY
							dc.w		-1*paperSizeLblPackingGap
							
							dc.w		paperSizeLblDisk35X			;indexed if paper type == 17
							dc.w		paperSizeLblDisk35Y
							dc.w		-1*paperSizeLblDisk35Gap
							
							dc.w		paperSizeLblDisk525X		;indexed if paper type == 18
							dc.w		paperSizeLblDisk525Y
							dc.w		-1*paperSizeLblDisk525Gap





							endproc
							end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/LQ/printloop.aii b/IIGS.601.SRC/GSToolbox/PrinterDrivers/LQ/printloop.aii
new file mode 100644
index 0000000..427c6a9
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/LQ/printloop.aii
@@ -0,0 +1 @@
+
******************************************************************************************
*                                                                                        *
*		Apple IIgs ImageWriter LQ Printer Driver                                         *
*                                                                                        *
*		File: printloop.aii -- High-level interactive interface to spooling/imaging      *
*                                                                                        *
*		Written by Ben Koning                                                            *
*		Copyright (C) 1989 Apple Computer, Inc.                                          *
*                                                                                        *
******************************************************************************************






							include		'equates.aii'
							
							
							include		'm16.util'
							include		'e16.quickdraw'
							include		'm16.quickdraw'
							include		'm16.qdaux'
							include		'm16.memory'
							include		'e16.print'
							include		'm16.intmath'
							include		'm16.misctool'
							include		'm16.event'


PrintLoopProc				proc		export





*
*PRINT LOOP CALLS: High-Level Spool and Draft Mode printing calls implementing the Macintosh
*Printing Manager print model, for better and (mainly) for worse.
*





*
*OPENDOC: Setup vars, init grafport with bottleprocs and boundsrect, start spooling, show status box:
*
							export		OpenDoc

*Clear error status; clear setup level until everything has been started up correctly:
OpenDoc						stz			PrintLoopErrorStatus	;err stat for our use and user's
							stz			PrintLoopSetupLevel		;so we know *what* is started up

*Abort if no output port is currently possible:
							pha									;Abort if no port. Result space...
							ldx			#$3013					;ask currently installed port driver
							jsl			$E10000					;_DevIsItSafe
							pla
							bne			OpDoOkDevice			;true result: no error
							lda			#portNotOn				;else: return with tool error
							bra			OpDoExitErr
OpDoOkDevice

*Put up wait cursor and box for status message:
							import		GetStatMesgDisable		;get A=0/1 if enable/disable
							jsr			GetStatMesgDisable
							import		StartStatusMessage		;pass 0/1 to open mesg box routine
							jsr			StartStatusMessage
							import		StMeFirstProgressMesg	;show something in box initially
							lda			#StMeFirstProgressMesg
							sta			ParamLongA+0
							lda			#^StMeFirstProgressMesg
							sta			ParamLongA+2
							import		StatusMessage
							jsr			StatusMessage

*Check if draft mode, and if so set flag so we'll know later:
							stz			PrintLoopIsDraft		;assume not draft mode
							import		GetQuality
							jsr			GetQuality				;find out print loop mode
							cmp			#0						;quality level returned in acc
							bne			OpDoInitSpool			;if not zero it's not draft mode
							lda			#1						;else, set flag indicating draft
							sta			PrintLoopIsDraft

*Also if draft mode, setup static var so we know if vert condense is in effect:
							stz			PrintLoopIsDraftVC
							import		GetVSize
							jsr			GetVSize
							beq			OpDoNotDraftVC
							lda			#1
							sta			PrintLoopIsDraftVC
OpDoNotDraftVC

*Also if draft mode, initialize printer and skip start_spooling part:
							jsr			PrinterOpen				;get unique connection to printer
							jsr			PrinterReset			;and get it ready for printing
							bra			OpDoDoPrGrafPort		;and skip next part

*Initialize for spooling here if not draft; abort if error:
							import		SpoolStartPut			;Allow app optional spool control:
OpDoInitSpool				jsr			SpoolStartPut			;get spooler ready with its defaults
							cmp			#0						;check for errors...
							beq			OpDoOkSpoolStart
OpDoExitErr					sta			errNo					;error exit; doesn't set out params
							sta			PrintLoopErrorStatus	;and set our own error status
							rts
OpDoOkSpoolStart			lda			#1						;indicate that we got this far...
							sta			PrintLoopSetupLevel		;...so CloseDoc can abort correctly
							import		GetSpoolFileNamePtr		;metrics call looks at print record
							jsr			GetSpoolFileNamePtr		;see if user wants their own filename
							bcc			OpDoNoCustFile			;lo->X, hi->Y, carry if not NIL ptr
							import		SpoolFileNamePtr		;user does want their own filename
							stx			SpoolFileNamePtr+0
							sty			SpoolFileNamePtr+2
							import		GetSpoolMemInc
OpDoNoCustFile				jsr			GetSpoolMemInc			;see if user wants own spool mem inc
							bcc			OpDoNoCustMemInc		;no
							import		SpoolMemInc				;yes, change data in spooling land
							stx			SpoolMemInc+0
							sty			SpoolMemInc+2
							import		GetSpoolMemLeftLimit
OpDoNoCustMemInc			jsr			GetSpoolMemLeftLimit	;see if user wants own mem left limit
							bcc			OpDoDoPrGrafPort		;no
							import		SpoolMemLeftLimit		;yes, change it
							stx			SpoolMemLeftLimit+0
							sty			SpoolMemLeftLimit+2

*Get memory for printing grafport data structure if needed:
OpDoDoPrGrafPort			jsr			OpDoMallocGrafPort
							bra			OpDoSetupGrafPort

*The following is a very specific "subroutine" which gets print grafport memory space:
OpDoMallocGrafPort			lda			printGrafPortPtr+0		;check to see if this is NIL...
							ora			printGrafPortPtr+2		;if so, then user wants us to malloc
							bne			OpDoMallocGrafPortDone	;non-NIL: use their memory
							lda			#OpDoGrafPortSpace		;NIL: use our memory...
							sta			printGrafPortPtr+0
							lda			#^OpDoGrafPortSpace
							sta			printGrafPortPtr+2
OpDoMallocGrafPortDone		rts									;exit to caller

*Save current caller's grafport for restore by closedoc:
OpDoSetupGrafPort			pha									;result space...
							pha
							_GetPort
							pulllong	PrintLoopOldGrafPortPtr	;save it

*Setup grafport for printing loop, making it current port. OpenPage will customize it later:
							pushlong	printGrafPortPtr		;now setup user's or our grafport
							_OpenPort
							bcc			OpDoNoPortErr
							brl			OpDoExitErr				;if err exit with acc set
OpDoNoPortErr				_HidePen							;this port will never draw on screen
							lda			#2						;indicate that we got this far...
							sta			PrintLoopSetupLevel		;so CloseDoc can abort correctly

*Save value of current print record handle so that we can access it during OpenPage/ClosePage:
							lda			printRecordHandle+0
							sta			PrintLoopPrRecHdl+0
							lda			printRecordHandle+2
							sta			PrintLoopPrRecHdl+2

*Clear actual page counters:
							stz			PrintLoopPageCounter	;reset logical page counter
							stz			PrintLoopNumActualPages	;reset actual pages stored/spooled
							rts									;exit without setting tool error

*Static memory for holding GrafPort data structure for interpreting user QD calls:
OpDoGrafPortSpace			ds.b		$AA






							
*
*CLOSEDOC: Remove status box, stop spooling, restore original grafport, dealloc if our grafport:
*
							export		CloseDoc

*If draft mode, close port connection to printer:
CloseDoc					lda			PrintLoopIsDraft
							beq			ClDoDontPrClose
							jsr			PrinterClose
ClDoDontPrClose

*Remove waitcursor/status box, no matter what happened:
							import		FinishStatusMessage		;StatusMessage routines are...
							jsr			FinishStatusMessage		;...un-init proof

*Now shut down only the things that were started up:
ClDoCheckSetupLevel			lda			PrintLoopSetupLevel		;let's see how far OpenDoc got...
							cmp			#1						;1: only spooling started up right
							beq			ClDoDumpSpool
							cmp			#2						;2: everything + grafport
							bne			ClDoExit				;if not 2, then 0: nothing started up

*Restore previous grafport:
							pushlong	PrintLoopOldGrafPortPtr	;restore pre-print loop grafport...
							_SetPort
							pushlong	printGrafPortPtr		;clean up stuff used by print port
							_ClosePort

*Stop the spooling process here if not draft, which could still generate an error:
ClDoDumpSpool				lda			PrintLoopIsDraft		;don't do here if draft
							bne			ClDoExit
							
							lda			PrintLoopErrorStatus	;nondraft: is error status pending?
							beq			ClDoNoPrError
							import		SpoolFinishPut			;if error, finish the entire
							jsr			SpoolFinishPut			;spool call sequence to ensure that
							import		SpoolStartGet			;memory/disk resources are properly
							jsr			SpoolStartGet			;deallocated
							import		SpoolFinishGet
							jsr			SpoolFinishGet
							rts
ClDoNoPrError
							
							import		SpoolFinishPut			;nondraft+all ok: stop spooling
							jsr			SpoolFinishPut
							cmp			#1						;error?
							bcc			ClDoExit				;if no
							lda			#prAbort				;if yes, set err for PicFile later
							sta			PrintLoopErrorStatus
							
ClDoExit					rts







*
*OPENPAGE: If in pg range and no err, start pict recording (spool) or start spooling strings (draft):
*
							export		OpenPage

*Check to make sure no print error exists:
OpenPage					lda			PrintLoopErrorStatus
							beq			OpPaNoErrStat
OpPaExit1					rts
OpPaNoErrStat

*Set our print record handle to the saved value from OpenDoc so we can use metrics calls:
							lda			PrintLoopPrRecHdl+0
							sta			printRecordHandle+0
							lda			PrintLoopPrRecHdl+2
							sta			printRecordHandle+2

*Increment abs pg count so we can compare it against user-selected pg range; first number is 1:
							inc			PrintLoopPageCounter

*Be sure that even out-of-range pages, where we don't do "OpenPicture", don't show on screen:
							pushlong	printGrafPortPtr
							_InitPort
							_HidePen

*Change the message in the informational status box, slightly different for spool or draft:
							lda			PrintLoopIsDraft
							beq			OpPaNoDraftMessage
							import		StMeDraftProgressMesg
							ldx			#StMeDraftProgressMesg
							ldy			#^StMeDraftProgressMesg
							bra			OpPaShowMessage
							import		StMeSpoolProgressMesg
OpPaNoDraftMessage			ldx			#StMeSpoolProgressMesg
							ldy			#^StMeSpoolProgressMesg
OpPaShowMessage				stx			ParamLongA+0
							sty			ParamLongA+2
							jsr			ShowStatusWithPgNo		;string will be modified

*Assume we're not in page range; this flag may be modified if we finish successfully:
							stz			PrintLoopInPageRange

*Check page range, no draft or spool if this page isn't to be printed, so exit if out of range:
							import		GetPageRange			;metrics call needs valid pr rec h
							jsr			GetPageRange			;get page range: 1st->X, Lst->Y
							cpx			PrintLoopPageCounter	;cmp current page# with first page#
							bcc			OpPaInRange1st			;current page# >= first page#...
							bne			OpPaExit1				;abort if out of page range
OpPaInRange1st				cpy			PrintLoopPageCounter	;cmp current page# with last page#
							bcc			OpPaExit1				;if not current page# <= last page#

*We are in page range, so proceed.  Increment actual-number-of-pages count:
							inc			PrintLoopNumActualPages

*If draft mode, setup for "spooling" upcoming page text ascii:
							lda			PrintLoopIsDraft		;draft mode?
							beq			OpPaDoneDraftBWStuff	;no, skip this part
							import		SpoolStartPut
							jsr			SpoolStartPut			;start string recording process

*Fill in X2,Y2 in rectangle/data used several times in a few moments:
OpPaDoneDraftBWStuff		
							import		GetRPageSize			;metrics call needs valid pr rec h
							jsr			GetRPageSize			;get X2->X, Y2->Y
							stx			OpPaPicFrameX2			;store into our rect's X2,Y2...
							sty			OpPaPicFrameY2
							stz			OpPaPicFrameX1			;also store zero X1,Y1 in case it
							stz			OpPaPicFrameY1			;was modified last time

*But if user passed a non-NIL picture frame (scaling) rectangle, use it instead of ours:
							lda			pageFramePtr+0			;check user picture frame for NIL...
							ora			pageFramePtr+2
							beq			OpPaSetUpPort			;branch away if user passed NIL
							ldy			#0						;else copy their rect...
OpPaCpUsrPicFrame			lda			[pageFramePtr],y
							sta			OpPaPicFrame,y
							iny
							iny
							cpy			#8
							bne			OpPaCpUsrPicFrame

*Init grafport for picture recording, setting everything to defaults, and set as current port:
OpPaSetUpPort				pushlong	printGrafPortPtr		;reset and set as current port
							_InitPort

*Set all clipping settings to rPage rect or user's rect:
							pushlong	#OpPaPicFrame			;(1) set main grafport rect
							_SetPortRect
							pushlong	#OpPaPicFrame			;(2) set clip region
							_ClipRect
							pha									;(3) set vis region
							pha
							_GetVisHandle						;leave hdl on stack for SetRectRgn
							pushword OpPaPicFrame+oh1
							pushword OpPaPicFrame+ov1
							pushword OpPaPicFrame+oh2
							pushword OpPaPicFrame+ov2
							_SetRectRgn

*Set locinfo with boundsrect for printer dimensions/page setup options; won't use a pixel buffer:
							pushlong	#OpPaLocInfo			;fill our LocInfo with defaults
							_GetPortLoc
							stz			OpPaLocInfoRect+oh1		;X1 = 0
							stz			OpPaLocInfoRect+ov1		;Y1 = 0
							import		GetRPageSize
							jsr			GetRPageSize			;get rpage X2->X, Y2->Y
							stx			OpPaLocInfoRect+oh2		;X2 = rpage's x2
							sty			OpPaLocInfoRect+ov2		;Y2 = rpage's y2
							pushlong	#OpPaLocInfo			;custom LocInfo has printer dims but
							_SetPortLoc							;points to screen memory we won't use

*Prepare to install our own bottleprocs into grafport:
							pushlong	#OpPaQDProcs
							_SetStdProcs						;fill our QDProcs with defaults

*If spool mode, set put-picture bottleproc to our own so we can capture the picture definition:
							lda			PrintLoopIsDraft
							bne			OpPaSetDraftProc
OpPaSetPutPicProc			lda			#PutPic-1				;customize the PutPic bottleproc
							sta			OpPaQDProcs+ostdPutPic+0
							lda			#^(PutPic-1)
							sta			OpPaQDProcs+ostdPutPic+2
							bra			OpPaSetProcs

*Else, draft mode, so set bottleproc so that we can handle QD text commands ourselves:
OpPaSetDraftProc			lda			#PutText-1				;customize the PutText bottleproc
							sta			OpPaQDProcs+ostdText+0
							lda			#^(PutText-1)
							sta			OpPaQDProcs+ostdText+2

*Install our bottleprocs into our grafport:
OpPaSetProcs				pushlong	#OpPaQDProcs
							_SetGrafProcs						;setup with our customized procs

*If draft mode, we are done at this point; don't begin a picture definition, and don't touch screen:
							lda			PrintLoopIsDraft
							beq			OpPaStartPictInfo
							_HidePen
							bra			OpPaExitAssertInPgRng

*If not draft, compensate for quirk were we  must store first part of bottlepatched-pict explicitly:
OpPaStartPictInfo			pha									;result space
							_GetMasterSCB						;figure the mode only to...
							pullword	OpPaPicSetupStuff		;...store it into picture start stuff
							lda			#10						;length: ten bytes in all...
							sta			ParamLongB+0
							stz			ParamLongB+2
							lda			#OpPaPicSetupStuff		;source location: our 10 bytes...
							sta			ParamLongC+0
							lda			#^OpPaPicSetupStuff
							sta			ParamLongC+2
							import		SpoolPut				;go store the beginning bytes...
							jsr			SpoolPut				;...rest will be stored by our PutPic
							cmp			#1						;error?
							bcc			OpPaOpenPict			;no
							sta			errNo					;we'll return spool err as tool err
							lda			#prAbort				;also set abort error...
							sta			PrintLoopErrorStatus
							bra			OpPaExit				;abort this routine

*Tell QuickDraw to start making drawing commands go into picture definition and not to screen:
OpPaOpenPict				pha									;result space...
							pha
							pushlong	#OpPaPicFrame			;user's or our picframe
							_OpenPicture						;has effect of a "_HidePen"
							pulllong	PrintLoopUnusedPictHdl	;save this even though we do bprocs

*Tell ClosePage we're really doing a page:
OpPaExitAssertInPgRng		lda			#1
							sta			PrintLoopInPageRange	;we got this far we must be in range

*Done; app will do drawing commands now which will call bottleprocs:
OpPaExit					rts

*Start of picture stuff / Picture frame for passing to OpenPicture / Rectangle for ClipRect:
OpPaPicSetupStuff			dc.w		0						;SCB
OpPaPicFrame				
OpPaPicFrameY1				dc.w		0						;Y1
OpPaPicFrameX1				dc.w		0						;X1
OpPaPicFrameY2				dc.w		0						;Y2
OpPaPicFrameX2				dc.w		0						;X2

*LocInfo record to be attached to printing grafport:
OpPaLocInfo					dc.w		0						;portSCB
							dc.l		0						;ptrToPixImage
							dc.w		0						;width
OpPaLocInfoRect				dc.w		0,0,0,0					;boundsRect

*Area for patching in our bottleprocs:
OpPaQDProcs					ds.b		$38						;bottleneck proc pointers







*
*CLOSEPAGE: If in page range, put stop-pict mark (spool) or do multicopy text printing (draft):
*
							export		ClosePage

*Check conditions:
ClosePage					lda			PrintLoopErrorStatus	;if an error has occurred...
							bne			ClPaExit1				;don't do this routine

*Continue condition checking:
							lda			PrintLoopInPageRange	;if OpenPage didn't say yes...
							beq			ClPaExit1				;exit if not doing this page

*Set our print record handle to the saved value from OpenDoc so we can use metrics calls:
							lda			PrintLoopPrRecHdl+0
							sta			printRecordHandle+0
							lda			PrintLoopPrRecHdl+2
							sta			printRecordHandle+2
							
*If draft mode, go to the code that prints copy(s) of this current just-recorded entire page:
							lda			PrintLoopIsDraft
							bne			ClPaItsDraft

*If not draft, put mark in pict separating this pict (page) from next and close/dealloc pict mem:
							pushword	#EndOfPagePicCommentKind
							pushword	#4						;pass length
							pushlong	#ClPaEOPFakeHandle		;pass "handle" with comment data
							_PicComment							;place marker at end of picture
							_ClosePicture						;stop picture recording
							pha									;save (undocumented) error, if any
							pushlong	PrintLoopUnusedPictHdl	;dealloc QD's mem for pict recording
							_KillPicture						;we took care of recording ourselves
							pla									;restore error from ClosePicture
							beq			ClPaNoClosePictErr		;if error, return as tool-error
							sta			errNo
ClPaNoClosePictErr

*Common exit:
ClPaExit1					rts

*Else, new-style draft mode: print top to bottom (no reverse feed!); print multiple copies (new!):
ClPaItsDraft

*Save a few of the values from the print record for upcoming loop:
							import		GetCopies				;metrics calls need valid pr rec h
							jsr			GetCopies
							sta			ClPaNumCopies
							import		GetCrWidth
							jsr			GetCrWidth
							sta			ClPaCrWidth
							import		GetIdleProc
							jsr			GetIdleProc
							stx			ClPaIdleProc+0
							sty			ClPaIdleProc+2

*Change state of the spooler from recording mode to playback mode:
							import		SpoolFinishPut
							jsr			SpoolFinishPut			;stop strings recording process
							import		SpoolStartGet
							jsr			SpoolStartGet			;start strings playback process
							import		SpoolMarkGet
							jsr			SpoolMarkGet			;arrange to be able to repeat

**Loop for number of copies requested; count kept on stack:
							ldy			#0						;init, for 0..NumCopies-1
ClPaDraftOneMoreCopy		phy

**Do start-of-copy (start of paper) printer stuff and dialogs:
							lda			PrintLoopPageCounter	;get page # being draft-printed...
							sta			ParamWordA				;do manfeed dialog, binselect, etc...
							jsr			PrinterNewPage
							lda			PrintLoopErrorStatus	;arrange to abort if manfeed cancel
							beq			ClPaDraftNoManFeedCncl	;or some other reason for err stat
							brl			ClPaDraftNextCopy
ClPaDraftNoManFeedCncl
							import		StMeDraftProgressMesg
							lda			#StMeDraftProgressMesg	;restore current page message box
							sta			ParamLongA
							lda			#^StMeDraftProgressMesg
							sta			ParamLongA+2
							jsr			ShowStatusWithPgNo

***Doing one copy. First, find first print line, in preparation for down-the-page draft printing:
							import		SpoolReturnToMarkGet	;back to start of string list
							jsr			SpoolReturnToMarkGet
							lda			#$FFFF					;initialize for least-Y-coord search
							sta			ClPaCurrentY
ClPaDraftFirstYLoop			jsr			ClPaDraftGetSpoolPacket	;get text/position data for a string
							bcs			ClPaDraftPrintLoopBegin	;break out if looked at all strings
							lda			ClPaPacketHeaderPos+ov1	;look at a string's Y position
							cmp			ClPaCurrentY			;cmp against current-smallest Y
							bcs			ClPaDraftFirstYLoop		;if greater, ignore, get next string
							sta			ClPaCurrentY			;else store newly-found smallest Y
							bra			ClPaDraftFirstYLoop	

***Specialized routine to get string packet from spool and store in statics. Carry -> End-Of-Data:
ClPaDraftGetSpoolPacket		lda			#ClPaPacketHeaderEnd-ClPaPacketHeaderBegin
							sta			ParamLongB
							stz			ParamLongB+2
							lda			#ClPaPacketHeaderBegin	;will store in our data area
							sta			ParamLongC
							lda			#^ClPaPacketHeaderBegin
							sta			ParamLongC+2
							import		SpoolGet
							jsr			SpoolGet				;(1.1) read header from spool
							cmp			#1						;set carry if err or end data
							bcs			ClPaDraftEndData
							lda			PrintLoopIsDraftVC		;(1.2) *2 Y coord if not vert cond
							bne			ClPaDraftGetPackNotVC
							asl			ClPaPacketHeaderPos+ov1
ClPaDraftGetPackNotVC		lda			ClPaPacketHeaderLen		;(1.3) text len is given in header
							sta			ParamLongB
							stz			ParamLongB+2
							lda			#PrintLoopRoutineData	;will store in our data area
							sta			ParamLongC
							lda			#^PrintLoopRoutineData
							sta			ParamLongC+2
							import		SpoolGet
							jsr			SpoolGet				;(2) read text from spool
							cmp			#1						;set carry if err or end data
ClPaDraftEndData			rts

***End of specialized routine. Now have CurrentY @ first Y on page. Print down page in one pass:
ClPaDraftPrintLoopBegin		stz			ClPaLastVertPaperPos	;init our idea of paper position
ClPaDraftPrintLoop			stz			ClPaWePrinted			;set to false, used to detect end
							lda			#$FFFF					;init to BIG, for finding next...
							sta			ClPaNextCurrentY		;...line while printing strings
							import		SpoolReturnToMarkGet	;return to start of strings...
							jsr			SpoolReturnToMarkGet
ClPaDraftGetNextPacket		jsr			ClPaDraftGetSpoolPacket	;get a string candidate
							bcc			ClPaDraftGotPacket		;not end of strings yet

***End of strings in spool. See if we're done. If not, set new CurrentY and repeat:
							lda			ClPaWePrinted			;did we ever print anything this...
							bne			ClPaYesWeStillPrinted	;past loop? Yes, so hope for this pg
							brl			ClPaDraftPrintLoopDone	;No, so exit THIS loop
ClPaYesWeStillPrinted		lda			ClPaNextCurrentY		;else, new CurrentY and repeat; maybe
							sta			ClPaCurrentY			;there is more left to print on
							bra			ClPaDraftPrintLoop		;this current sheet...

***Continuation after getting new string packet:
ClPaDraftGotPacket			lda			ClPaPacketHeaderPos+ov1	;look at its Y coordinate; we're...
							cmp			ClPaCurrentY			;...looking for the next-greater one
							bcc			ClPaDraftCheckIfPrint	;it's less than current, ignore
							beq			ClPaDraftCheckIfPrint	;it's equal to current, also ignore
							cmp			ClPaNextCurrentY		;ok, but is it NEXT(least)-greater?
							bcs			ClPaDraftCheckIfPrint	;no, we've seen better
							sta			ClPaNextCurrentY		;now have better next Y coordinate
ClPaDraftCheckIfPrint		cmp			ClPaCurrentY			;string's Y at current level on page?
							bne			ClPaDraftGetNextPacket	;no, so go fetch next string

***Set still-active-printing-flag:
							lda			#1						;set flag so we know that we still
							sta			ClPaWePrinted			;found something to print this time

***Call imager to send text, not graphics, to printer:
ClPaDraftCallImager			pushlong	#PrintLoopRoutineData	;pixel loc info gets ptr to chars
							pushword	ClPaPacketHeaderPos+oh1	;pixel rect ptr hi gets abx X coord
							lda			ClPaPacketHeaderPos+ov1	;get wanted Y position
							sec
							sbc			ClPaLastVertPaperPos	;wanted Y - current Y; get delta
							pha									;pixel rect ptr lo gets rel Y coord
							pushword	#0						;color table ptr gets length: hi word
							pushword	ClPaPacketHeaderLen		;color table ptr gets length: lo word
							pushlong	ClPaPacketHeaderStyle	;scb list ptr gets style settings
							pushword	ClPaCrWidth				;pass crWidth obtained from OpenDoc
							pushword	#0 						;pass dummy paper length
							;			  5432109876543210
							pushword	#%0000001101000011		;FF/Init:N, Text:Y Open/Close:N
							pushword	#0						;dummy QualityBits (feature select)
							pushlong	ClPaIdleProc			;pass idleproc obtained from OpenDoc
							import		Imager					;call imager, print string
							jsl			Imager
							bcs			ClPaDraftPrErr
							lda			ClPaPacketHeaderPos+ov1	;success: save wanted Y as new...
							sta			ClPaLastVertPaperPos	;...current Y position
							brl			ClPaDraftGetNextPacket	;go on if no error nor option-period

**Error was reported by the imager. Deal with it if it was user-abort (command-period) or an error:
ClPaDraftPrErr				cmp			#$0080					;$80 means imager detected cmd-period
							beq			ClPaDraftSetPrErr		;if so, set err which will stop loop
							jsr			ShowPrinterErrorStatus	;pass ACC to put stat mesg in box
							import		StMeDraftProgressMesg	;restore current page mesg in box...
							lda			#StMeDraftProgressMesg
							sta			ParamLongA
							lda			#^StMeDraftProgressMesg
							sta			ParamLongA+2
							jsr			ShowStatusWithPgNo
							bra			ClPaDraftCallImager		;...and try again...
ClPaDraftSetPrErr			lda			#prAbort				;render pr loop inactive...
							sta			PrintLoopErrorStatus	;and drop through...

**End draft print, because nothing left or user abort.  Do formfeed:
ClPaDraftPrintLoopDone		jsr			PrinterFormFeed

**End of loop for number of copies requested; count kept on stack:
ClPaDraftNextCopy			ply									;inc copy count and check if done yet
							iny
							cpy			ClPaNumCopies
							bcs			ClPaExit
							lda			PrintLoopErrorStatus	;don't go on if abort or err happened
							bne			ClPaExit
							brl			ClPaDraftOneMoreCopy

*Done; either OpenPage will be next for another draft run or CloseDoc, which removes dialogs/ports:
							import		SpoolFinishGet
ClPaExit					jsr			SpoolFinishGet			;deallocate resources
							rts

*"Handle" and PicComment data for if nondraft mode to mark end-of-page:
ClPaEOPFakeHandle			dc.l		ClPaEOPCommentData
							ds.b		20
ClPaEOPCommentData			dc.w		0						;version
							dc.w		$A55A					;signature

*Values from print record needed by code which prints draft down the page:
ClPaNumCopies				dc.w		0
ClPaCrWidth					dc.w		0
ClPaIdleProc				dc.l		0

*Static variables needed by code which prints draft down the page:
ClPaCurrentY				dc.w		0						;where we are down the page
ClPaNextCurrentY			dc.w		0						;calc next CurrentY while in loop
ClPaWePrinted				dc.w		0						;flag to know when to stop loop
ClPaLastVertPaperPos		dc.w		0						;for calculating delta Y for imager

*Space for information header from spool:
ClPaPacketHeaderBegin			
ClPaPacketHeaderPos			dc.w		0,0
ClPaPacketHeaderLen			dc.w		0
ClPaPacketHeaderStyle		dc.l		0
ClPaPacketHeaderEnd







*
*PICFILE: If spooled, prints mult copies of recorded pages, does gap, bin select, status box, etc:
*
							export		PicFile

*If draft mode or print loop error status, don't do this routine:
PicFile						lda			PrintLoopIsDraft		;nonzero if draft
							ora			PrintLoopErrorStatus	;nonzero if error
							beq			PiFiGo1					;both zero, so go on
							rts									;else, exit but don't return error
PiFiGo1

*Prepare to retrieve spooled picture (page) definitions, if error, don't do this routine:
							import		SpoolStartGet
							jsr			SpoolStartGet			;try to start up spooler
							cmp			#1						;accumulator free of errors?
							bcc			PiFiGo2					;yes, so go on with this routine
							sta			errNo					;no, so set tool error
							rts									;and exit
PiFiGo2

*If there really weren't any pages recorded (maybe we were never in page range), also abort:
							lda			PrintLoopNumActualPages
							bne			PiFiGo3
							import		SpoolFinishGet			;dealloc spool resources even
							jsr			SpoolFinishGet			;though mostly empty
							rts									;and exit
PiFiGo3

*Put up dialog box to show status as well as to allow manual page feed alerts:
							import		GetStatMesgDisable		;get A=0/1 if enable/disable
							jsr			GetStatMesgDisable
							import		StartStatusMessage		;pass 0/1 to open mesg box routine
							jsr			StartStatusMessage

*Put up the first message to show we're allocating banding memory:
							import		StMeMallocMesg
							lda			#StMeMallocMesg
							sta			ParamLongA+0
							lda			#^StMeMallocMesg
							sta			ParamLongA+2
							import		StatusMessage
							jsr			StatusMessage

*Allocate memory for struct grafport for imaging (NOT same as for print loop above) or use user's:
							jsr			OpDoMallocGrafPort

*Start print port. This port is one "band" into which slices of spooled pictures are drawn & printed:
							pha									;result space...
							pha
							_GetPort
							pulllong	OldGrafPortPtr			;save current grafport...
							pushlong	printGrafPortPtr		;init a new grafport for us...
							_OpenPort							;and make it the current grafport
							
*Creating locinfo to be used by off-screen imaging grafport. Setting up band tallness and width:
							import		GetImagingSize
							jsr			GetImagingSize			;get X & Y dimensions for imaging
							stx			PiFiLocInfoRect+oh2		;store X2; will be modified
							sty			PiFiLocInfoRect+ov2		;store Y2; will be modified

*Do loop to figure out maximum X or Y size for banding, with many constraints:
							import		GetOrientation			;decide to work on X or Y size
							jsr			GetOrientation			;we go align X or Y to begin with...
							cmp			#1
							beq			PiFiAlignBandLand		;go align 1st to start land mem alloc
							bra			PiFiAlignBandPort		;go align 1st to start port mem alloc

**Get smaller band by cutting X or Y size in half, and align X or Y size to a multiple of 24:
							import		GetOrientation
PiFiTrySmallerBand			jsr			GetOrientation			;decide to work on X or Y size
							cmp			#1
							beq			PiFiTrySmallerBandLand
PiFiTrySmallerBandPort		lsr			PiFiLocInfoRect+ov2		;port: try smaller Y band size
PiFiAlignBandPort			pha									;align mult 24 for pr head pins...
							pha
							pushword	PiFiLocInfoRect+ov2
							pushword	#24
							_UDivide
							pla									;ignore quotient from divide
							pullword	ParamWordA				;get remainder
							lda			PiFiLocInfoRect+ov2		;subtract to align it...
							sec
							sbc			ParamWordA
							bcc			PiFiCantGetBandMem		;can't make it any smaller...
							beq			PiFiCantGetBandMem
							sta			PiFiLocInfoRect+ov2
							bra			PiFiCalcLocInfoWidth
PiFiCantGetBandMem			lda			#$0201					;abort mem full tool error...
							sta			errNo
							brl			PiFiAbortNoBandMemAlloc
PiFiTrySmallerBandLand		lsr			PiFiLocInfoRect+oh2		;land: try smaller X band size
PiFiAlignBandLand			pha									;align mult 24 for pr head pins...
							pha
							pushword	PiFiLocInfoRect+oh2
							pushword	#24
							_UDivide
							pla									;ignore quotient from divide
							pullword	ParamWordA				;get remainder
							lda			PiFiLocInfoRect+oh2		;subtract to align it...
							sec
							sbc			ParamWordA
							bcc			PiFiCantGetBandMem		;can't make it any smaller...
							beq			PiFiCantGetBandMem
							sta			PiFiLocInfoRect+oh2

**Figure out loc info width based on mode (320/640) in effect at recording time and loc info X size:
							import		GetModeByte				;metrics to obtain 320/640 mode
PiFiCalcLocInfoWidth		jsr			GetModeByte				;for finding number pixels per byte
							sta			PiFiLocInfo+0			;also put mode byte in locinfo
							and			#$80					;check 320/640 mode bit...
							cmp			#1						;...set carry if 640 mode
							lda			PiFiLocInfoRect+oh2		;get rPage X2 in ACC
							bcc			PiFiIts320				;320, so only divide rPageX2 by 2
							lsr	a								;divide by 4 (640 mode), or...
PiFiIts320					lsr	a								;by 2 (320 mode) -> # bytes per line
							sta			PiFiLocInfoWidth		;store band width in bytes

**Figure out how big the band buffer will be, given the above (width still in ACC):
							pha									;result space for multiply...
							pha
							pha									;locinfo.width (bytes) still in acc
							lda			PiFiLocInfoRect+ov2		;times number of lines...
							ina
							pha
							_Multiply
							pulllong	ParamLongB				;plB now has pix buff size we want
							
**Check if buffer size would be greater than the amount of free memory:
PiFiCmpFreeMem				pha
							pha
							_RealFreeMem
							plx
							pla
							lsr a
							tay
							txa
							ror a
							tax
							tya
							lsr a
							tay
							txa
							ror a								;now have free_mem/4 lo->A, hi->Y
							cpy			ParamLongB+2			;cmp hi words
							beq			PiFiCmpFreeMem1
							bcs			PiFiCmpFreeMemOk
							brl			PiFiTrySmallerBand		;too big, try smaller
PiFiCmpFreeMem1				cmp			ParamLongB+0			;cmp lo words
							bcs			PiFiCmpFreeMemOk
							brl			PiFiTrySmallerBand		;too big, try smaller
PiFiCmpFreeMemOk

**Check to see if size would be greater than maximum allowed pix buffer size:
PiFiCmpMaxPixBuff			lda			ParamLongB+2
							cmp			#QDMaxPixBuff/65536
							beq			PiFiCmpMaxPixBuff1
							bcc			PiFiCmpMaxPixBuffOk
							brl			PiFiTrySmallerBand		;too big, try smaller
PiFiCmpMaxPixBuff1			lda			ParamLongB+0
							cmp			#QDMaxPixBuff//65536
							bcc			PiFiCmpMaxPixBuffOk
							brl			PiFiTrySmallerBand		;too big, try smaller
PiFiCmpMaxPixBuffOk

**Try asking for the memory for imaging bands and also obtain a PID for later mallocs/deallocs:
PiFiDoBandMalloc			pha									;result space
							pushword	#UserIDType				;type of process requesting ID
							_GetNewID							;obtain PID
							pullword	PiFiMemPID				;get it
							pha									;result space...
							pha
							pushlong	ParamLongB				;pass size of block requested
							pushword	PiFiMemPID				;pass PID
							pushword	#$C000					;pass attr: locked/fixed
							pha									;pass dummy location
							pha
							_NewHandle
							pulllong	ParamLongA				;get handle, if we got one
							bcc			PiFiDoBandMallocOk		;go on if we got one
PiFiDelIDTrySmallerBand		pushword	PiFiMemPID				;didn't get handle, try again...
							_DeleteID
							brl			PiFiTrySmallerBand
PiFiDoBandMallocOk

*Dereference the handle and put it in our locinfo:
PiFiUseBandMem				lda			[ParamLongA]
							sta			PiFiLocInfoPixPtr+0
							ldy			#2
							lda			[ParamLongA],y
							sta			PiFiLocInfoPixPtr+2

*Finally, the locinfo is complete, so use it:
PiFiUseBandLoc				pushlong	#PiFiLocInfo			;attach our locinfo to our grafport
							_SetPortLoc

*Set QuickDraw's global internal clip buffers to handle the huge size of our offscreen bitmap:
							pushlong	#PiFiOldQDBuffRec		;save original buffer widths
							_SaveBufDims
*
							lda			PiFiLocInfoWidth		;buff size for horiz num of bytes...
							cmp			PiFiOldQDBuffMaxWidth	;but never smaller! (ie, landscape)
							bcs			PiFiSetBufDims1
							lda			PiFiOldQDBuffMaxWidth
PiFiSetBufDims1				pha
*							
							lda			PiFiOldQDBuffTxtHeight	;buff size height for font stuff...
							lsr a
							lsr a
							clc
							adc			PiFiOldQDBuffTxtHeight
							pha
*
							lda			PiFiOldQDBuffMFBREx		;buff size for font style mods...
							pha
*
							_SetBufDims							;ask QD for bigger buffers
							bcc			PiFiNoBufDimErr			;if error, exit with tool error
							sta			errNo
							brl			PiFiOutOfPagesLoopNoSCB
PiFiNoBufDimErr

*Set port rect, clip rgn, and vis rgn to now-known bounds rect instead of screen-sized defaults:
							pushlong	#PiFiLocInfoRect		;(1) set main grafport rect
							_SetPortRect
							pushlong	#PiFiLocInfoRect		;(2) set clip region
							_ClipRect
							pha									;(3) set vis region
							pha
							_GetVisHandle						;leave hdl on stack for SetRectRgn
							pushword	PiFiLocInfoRect+oh1
							pushword	PiFiLocInfoRect+ov1
							pushword	PiFiLocInfoRect+oh2
							pushword	PiFiLocInfoRect+ov2
							_SetRectRgn

*Setup our own getpic/piccomment bottleprocs for retrieving the spooled picture definition:
 							pushlong	#OpPaQDProcs
 							_SetStdProcs
							lda			#GetPic-1				;customize GetPic bottleproc
							sta			OpPaQDProcs+ostdGetPic
							lda			#^(GetPic-1)
							sta			OpPaQDProcs+ostdGetPic+2
							lda			#PicComment-1			;customize PicComment bottleproc
							sta			OpPaQDProcs+ostdComment
							lda			#^(PicComment-1)
							sta			OpPaQDProcs+ostdComment+2
							pushlong	#OpPaQDProcs			;attach our procs to our grafport
							_SetGrafProcs

*Alloc mem for offscreen SCB list as tall as our banding buffer, one byte for each vertical line:
							stz			ParamLongA+2			;request size of hdl is 0..Y2 bytes
							lda			PiFiLocInfoRect+ov2
							import		ConvertImgToRPageSize	;metrics routine to convert from
							jsr			ConvertImgToRPageSize	;scaled-up units to const rPage units
							ina
							sta			ParamLongA+0
							pha									;result space...
							pha
							pushlong	ParamLongA				;pass request size
							pushword	PiFiMemPID				;pass our user id
							pushword	#$C000					;request static block of memory
							pha									;dummy loc ptr...
							pha
							_NewHandle
							pulllong	ParamLongA				;obtain handle result
							bcc			PiFiGotSCBMem
							lda			#$0201					;memfull tool err
							sta			errNo					;if problem do exit with tool err...
							brl			PiFiOutOfPagesLoopNoSCB	;try to shut down gracefully
PiFiGotSCBMem				lda			[ParamLongA]			;deref static hdl to get ptr...
							sta			PiFiSCBListPtr+0
							ldy			#2
							lda			[ParamLongA],y
							sta			PiFiSCBListPtr+2

*Init for first time end-of-page flag repeatedly used by our PicComment and GetPic bottleprocs:
							stz			PrintLoopEndOfPageDetect

*If user passed NIL for statusRecPtr, use our own private memory:
							lda			statusRecPtr			;check to see if this is NIL...
							ora			statusRecPtr+2			;if so, then user wants us to alloc
							bne			PiFiFillStatRec			;it's not NIL, so we use user's space
							lda			#PiFiStatusRecord		;set statrecptr to our own space...
							sta			statusRecPtr
							lda			#^PiFiStatusRecord
							sta			statusRecPtr+2

*Fill the "print status record" with values that won't change in the upcoming nested loops:
PiFiFillStatRec				lda			PrintLoopNumActualPages	;store actual number of pages...
							ldy			#oiTotPages
							sta			[statusRecPtr],y
							import		GetCopies				;store # of each pg to be printed...
							jsr			GetCopies
							ldy			#oiTotCopies
							sta			[statusRecPtr],y
							lda			printRecordHandle		;store handle to print record...
							ldy			#ohPrint
							sta			[statusRecPtr],y
							lda			printRecordHandle+2
							ldy			#ohPrint+2
							sta			[statusRecPtr],y
							lda			printGrafPortPtr		;store ptr to our grafport...
							ldy			#opPrPort
							sta			[statusRecPtr],y
							lda			printGrafPortPtr+2
							ldy			#opPrPort+2
							sta			[statusRecPtr],y

*Initialize the sheets-left-to-print decrementing counter used to show user in status box:
							pha
							pha
							pushword	PrintLoopNumActualPages
							import		GetCopies
							jsr			GetCopies
							pha
							_Multiply
							pullword	PiFiSheetsLeftToPrint	;init to #pages * #copies
							pla

*Calculate # of band passes needed: (Imaging[X|Y]Size) / Band[X|Y]Size, rounded up, with remainder:
							import		GetImagingSize			;get size of offscreen buffer we
PiFiCalcBandPasses			jsr			GetImagingSize			;would have liked... will compare
							phx									;to the one we actually got...
							phy
							import		GetOrientation
							jsr			GetOrientation
							cmp			#1
							beq			PiFiCalcPassesLand		;branch if landscape mode on
PiFiCalcPassesPort			pla									;portrait mode: get Y size in acc
							plx									;ignore X size here
							ldx			PiFiLocInfoRect+ov2		;now ACC & X valid, go calc
							bra			PiFiCalcPassesCalc
PiFiCalcPassesLand			ply									;landscape mode: ignore Y size
							pla									;get X size in acc
							ldx			PiFiLocInfoRect+oh2		;now ACC & X valid, go calc
PiFiCalcPassesCalc			stx			PiFiLastBandHeight		;ACC has picsize,	;initialize this
							pha									;X has bandsize		;result space...
							pha									;result space...
							pha									;pass tallness of pic to be printed
							phx									;pass tallness of our band buffer
							_UDivide
							pla									;get quotient in acc
							plx									;check for nonzero remainder
							beq			PiFiCalcPassesStore		;skip next few lines if no remainder
							stx			PiFiLastBandHeight		;if non-0 rem thn its sz of lst band,
							ina									;and inc, must do 1 more smaller band
PiFiCalcPassesStore			ldy			#oiTotBands				;now store number of passes needed...
							sta			[statusRecPtr],y

*Initialize counter for looping through all pages in document:
							lda			#1						;we'll count index to pages in spool
							ldy			#oiCurPage				;initialize page counter
							sta			[statusRecPtr],y		;we'll stop at "iTotPages" field

*Initialize printer communication/mechanics once for this print job:
							jsr			PrinterOpen				;open connection (hog the printer)
							jsr			PrinterReset			;recalibrate print head, etc.

**Head of code to print one page.  Set spool mark for playing same picture during copy/band loops:
							import		SpoolMarkGet
PiFiPrintOneMorePage		jsr			SpoolMarkGet

**Initialize for looping through multiple copies of the current page:
							lda			#1						;we'll count real-copy-numbers
							ldy			#oiCurCopy				;initialize copy counter
							sta			[statusRecPtr],y		;we'll stop at "iTotCopies" field

***Head of code to print one copy. Intersheet stuff; manual sheet feed dialog, sheet feeder, etc:
PiFiPrintOneMoreCopy		ldy			#oiCurPage				;get current page being printed...
							lda			[statusRecPtr],y
							sta			ParamWordA
							jsr			PrinterNewPage			;do inter-sheet activities
							
***Opportunity to exit if PrError set, by PrinterNewPage (manfeed cancel select), idleproc, etc:
							lda			PrintLoopErrorStatus
							beq			PiFiNoPrErrStat
							brl			PiFiOutOfPagesLoop		;if set, dealloc/shutdown and exit
PiFiNoPrErrStat

***Display # of SHEETS (Copies and Pages) left to print in status box:
							lda			PiFiSheetsLeftToPrint	;"PageCounter" must be valid
							sta			PrintLoopPageCounter	;for status print in a sec...
							import		StMeSheetsLeftMesg
							lda			#StMeSheetsLeftMesg		;use "ParamLongA" var as param...
							sta			ParamLongA
							lda			#^StMeSheetsLeftMesg
							sta			ParamLongA+2
							jsr			ShowStatusWithPgNo		;print message in the status box

***Initialize for looping through bands to print the picture a slice at a time:
							lda			#1						;real-band-numbers starting at 1
							ldy			#oiCurBand				;initialize band counter
							sta			[statusRecPtr],y		;we'll stop at "iTotBands" field

***Initialize the page-dirty flag:
							lda			#0
							ldy			#ofPgDirty
							sta			[statusRecPtr],y

***Advance paper vertically by GAP_size (if any) to provide top margin:
							pushlong	#PiFiSpaceChar			;we do null text output to do posn
							pushword	#0						;abs X
							import		GetVGapSize
							jsr			GetVGapSize				;get GAP size, is 0 if no_gaps is on
							pha									;rel Y: move paper GAP size down
							pushlong	#1						;text length
							pushlong	#0						;text attributes
							pushword	#240					;dummy crWidth
							pushword	#0						;dummy paper length
							;			  5432109876543210
							pushword	#%0000001101000011		;ActionBits cmd to do text call
							pushword	#0						;QualityBits
							pushlong	#0						;IdleProc
							import		Imager
							jsl			Imager

****Head of code to print one band.  Recue spool playback to start of current picture:
							import		SpoolReturnToMarkGet
PiFiPrintOneMoreBand		jsr			SpoolReturnToMarkGet

****Get spool picture-playback size:
							import		GetImagingSize			;get pixel size of imaged page
							jsr			GetImagingSize
							stx			PiFiDestRect+oh2		;store as 0,0,Y2,X2...
							sty			PiFiDestRect+ov2
							stz			PiFiDestRect+oh1
							stz			PiFiDestRect+ov1

****Calculate offset to play back the next part of picture into the banding buffer:
							import		GetOrientation
PiFiCalcOffset				jsr			GetOrientation
							cmp			#1
							beq			PiFiCalcOffsetLand		;branch if landscape mode on
PiFiCalcOffsetPort			ldx			PiFiLocInfoRect+ov2
							bra			PiFiCalcOffset1
PiFiCalcOffsetLand			ldx			PiFiLocInfoRect+oh2
PiFiCalcOffset1				ldy			#oiCurBand				;get current band number index...
							lda			[statusRecPtr],y
							dea									;minus one to get start index at 0
							pha									;result space
							pha
							pha									;pass current band
							phx									;pass band size
							_Multiply							;multiply to get destrect offset
							pullword	ParamWordE				;save for subtracts in a minute
							pla									;ignore result hi word

****Subtract the offset obtained above from Y1 & Y2 (portrait) or X1 & X2 (landscape):
							import		GetOrientation
							jsr			GetOrientation
							cmp			#1
							beq			PiFiSubOffLand			;if landscape mode on
PiFiSubOffPort				lda			PiFiDestRect+ov1		;destrect.y1 -= ParamWordE...
							sec
							sbc			ParamWordE
							sta			PiFiDestRect+ov1
							lda			PiFiDestRect+ov2		;destrect.y2 -= ParamWordE...
							sec
							sbc			ParamWordE
							sta			PiFiDestRect+ov2
							bra			PiFiDoneSubOff
PiFiSubOffLand				lda			PiFiDestRect+oh1		;destrect.x1 -= ParamWordE...
							sec
							sbc			ParamWordE
							sta			PiFiDestRect+oh1
							lda			PiFiDestRect+oh2		;destrect.x2 -= ParamWordE...
							sec
							sbc			ParamWordE
							sta			PiFiDestRect+oh2
PiFiDoneSubOff

****Clear the band buffer to all-white using our (unmodified default white) grafport background:
PiFiClearBandBuff			pushlong	#PiFiLocInfoRect		;clear entire band buffer...
							_EraseRect

****Screen colors -> our color table; may be mod by PicComments during upcoming DrawPicture call:
							pushlong	#$E19E00				;screen color table
							pushlong	#PrintLoopRoutineData	;fill our data area
							pushlong	#512					;16 palettes of 16 2-byte words
							_BlockMove

****Imaging port's portSCB -> fill our SCB tbl; may be mod by PicComments during DrawPicture call:
							lda			PiFiSCBListPtr+0		;setup ParamLongA with address
							sta			ParamLongA+0			;of our SCB list...
							lda			PiFiSCBListPtr+2
							sta			ParamLongA+2
							lda			PiFiLocInfoRect+ov2		;setup with length of
							import		ConvertImgToRPageSize	;our SCB list...
							jsr			ConvertImgToRPageSize
							sta			PiFiFillSCBListLimit+1
							ldy			#0
							lda			PiFiLocInfo+0			;obtain our portSCB
							shortm								;store as BYTEs
PiFiFillSCBListLoop			sta			[ParamLongA],y
							iny
PiFiFillSCBListLimit		cpy			#$FFFF					;NOTE: operand is stuffed
							beq			PiFiFillSCBListLoop
							bcc			PiFiFillSCBListLoop
							longm

****Display message indicating that DrawPicture is creating image of current page:
							import		StMeRenderingMesg
							lda			#StMeRenderingMesg
							sta			ParamLongA+0
							lda			#^StMeRenderingMesg
							sta			ParamLongA+2
							import		StatusMessage
							jsr			StatusMessage

****Call DrawPicture to draw entire page image, showing only a slice into banding/imaging buffer:
							pushlong	#1						;bogus, unused, non-NIL pichandle
							pushlong	#PiFiDestRect			;translation and scaling rect
							_DrawPicture						;BOTTLEPROCS/PICCOMMENTS RUN NOW!
							bcc			PiFiNoDPError			;if any error occured, terminate
							sta			errNo
							sta			PrintLoopErrorStatus
							brl			PiFiOutOfPagesLoop
PiFiNoDPError

****Change current message display (back) to the sheets-left-to-print message:
							lda			PiFiSheetsLeftToPrint
							sta			PrintLoopPageCounter
							import		StMeSheetsLeftMesg
							lda			#StMeSheetsLeftMesg
							sta			ParamLongA+0
							lda			#^StMeSheetsLeftMesg
							sta			ParamLongA+2
							jsr			ShowStatusWithPgNo

****Save last band's height because we might modify it next:
							import		GetOrientation
							jsr			GetOrientation
							ldx			PiFiLocInfoRect+oh2
							ldy			PiFiLocInfoRect+ov2
							cmp			#1
							beq			PiFiSaveBandLand
							sty			ParamWordE
							bra			PiFiAdjBand
PiFiSaveBandLand			stx			ParamWordE

****If last band, adjust bandsize here at the last minute because it might be shorter:
PiFiAdjBand					ldy			#oiTotBands				;get total # of bands to be done
							lda			[statusRecPtr],y
							cmp			#1						;no adjust if doing it all in 1 band
							beq			PiFiDoneAdjBand			;(because PiFiLastBandHeight is 0)
							ldy			#oiCurBand				;now compare to curr band we're on
							cmp			[statusRecPtr],y
							bne			PiFiDoneAdjBand			;no adjust if not last band
							import		GetOrientation
							jsr			GetOrientation
							ldy			PiFiLastBandHeight
							cmp			#1
							beq			PiFiAdjBandLand			;if landscape mode on
							sty			PiFiLocInfoRect+ov2
							bra			PiFiDoneAdjBand
PiFiAdjBandLand				sty			PiFiLocInfoRect+oh2
PiFiDoneAdjBand

****Call imager to convert pixelmap in band buffer to escape sequences and send to printer:
PiFiImagerCall				pushlong	#PiFiLocInfo			;pass our locinfo with pixmap ptr
							pushlong	#PiFiLocInfoRect		;pass clipped rect ptr to band
 							import		GetImagerCTable			;get wanted color table, carry...
							jsr			GetImagerCTable			;will be set if was nil => default
							bcs			PiFiNotDefaultCTable	;branch if user has own color table
							ldx			#PrintLoopRoutineData	;else use our color table...
							ldy			#^PrintLoopRoutineData
PiFiNotDefaultCTable		phy									;pass hi/lo words of colr tbl ptr...
							phx
							import		GetImagerSCBList		;get wanted SCB list, carry...
							jsr			GetImagerSCBList		;will be set if was nil => default
							bcs			PiFiNotDefaultSCBList	;branch if user has own SCB list
							ldx			PiFiSCBListPtr+0		;else use our piccomment-modifyable
							ldy			PiFiSCBListPtr+2		;...SCB list
PiFiNotDefaultSCBList		phy									;pass hi/lo words of scb list ptr...
							phx
							import		GetCrWidth				;get crWidth from metrics; crWidth
							jsr			GetCrWidth				;is super-right-margin; for example,
							pha									;it determines landscape rmargin
							pushword	#0						;pass dummy paper length
							;			  5432109876543210		;pass action bits: FF:N,Init:N,
							pushword	#%0000011100000011		;BinSel:N,Img:Y,Op/Cl:N,IW:Y
							import		GetConvertQualBits		;get wanted feature select for imager
							jsr			GetConvertQualBits
							pha									;pass image routine feature select
							import		GetIdleProc				;get wanted idle procedure or NIL
							jsr			GetIdleProc
							phy									;pass hi/lo words of idle proc ptr...
							phx
							import		Imager					;transfer control to the low-level
							jsl			Imager					;driver, which also does idleproc
							bcs			PiFiImagerExitStatusSet	;exit status nonzero, go check it
							
****Check print loop error status, which the user may have modified during the idleproc:
							lda			PrintLoopErrorStatus	;if the PrError status is zero,
							beq			PiFiImagedSuccessfully	;then go on, else, assume abort; no
							bra			PiFiUserWantsAbort		;other user access to error allowed

****Error or user-abort happened during imaging, so deal with it depending on type of error:
PiFiImagerExitStatusSet		cmp			#$0080					;did user type command-period?
							beq			PiFiUserWantsAbort		;if so, set error and stop printing
							jsr			ShowPrinterErrorStatus	;else, show mesg in ACC for a sec...
							lda			PiFiSheetsLeftToPrint	;restore sheets-left message...
							sta			PrintLoopPageCounter
							import		StMeSheetsLeftMesg
							lda			#StMeSheetsLeftMesg
							sta			ParamLongA+0
							lda			#^StMeSheetsLeftMesg
							sta			ParamLongA+2
							jsr			ShowStatusWithPgNo
							brl			PiFiImagerCall			;...and try again...

****If user typed command-period, do FF and exit as if we finished print job:
PiFiUserWantsAbort			lda			#prAbort				;user did cmd-'.': set abort flag
							sta			PrintLoopErrorStatus	;(but don't set tool exit error)
							jsr			PrinterFormfeed			;eject the page always
							brl			PiFiOutOfPagesLoop		;clean up and abort

****Restore bandsize in case it was modified if this was last band:
							import		GetOrientation
PiFiImagedSuccessfully		jsr			GetOrientation
							ldy			ParamWordE
							cmp			#1
							beq			PiFiRestBandLand		;landscape mode on
							sty			PiFiLocInfoRect+ov2
							bra			PiFiRestBandDone
PiFiRestBandLand			sty			PiFiLocInfoRect+oh2
PiFiRestBandDone

****Indicate that we've used ink (even if we haven't).  FYI for whoever's looking at status rec:
							lda			#1
							ldy			#ofPgDirty
							sta			[statusRecPtr],y

****Tail of do-one-band code. See if we need to do another band:
							ldy			#oiCurBand				;get current band number index...
							tyx									;save this index for use below
							lda			[statusRecPtr],y		;get it
							ldy			#oiTotBands				;compare with total bands needed...
							cmp			[statusRecPtr],y		;compare it
							bcs			PiFiOutOfBandsLoop		;if we're done, break out of loop
							ina									;else increment and store back...
							txy									;restore oiCurBand index
							sta			[statusRecPtr],y		;store it
							brl			PiFiPrintOneMoreBand	;loop back
PiFiOutOfBandsLoop

***Tail of do-one-copy code.  1) Do form feed (if not "no gaps") to advance to next sheet:
							import		GetPageGap				;if no_gaps, then there is more
							jsr			GetPageGap				;imaging area so there is more
							bne			PiFiDontFFBetweenSheets	;printed area, and thus no need for
							jsr			PrinterFormfeed			;formfeed to skip to next page
PiFiDontFFBetweenSheets

***Tail of do-one-copy code.  2) Decrement sheets-left-to-print user display counter:
							dec			PiFiSheetsLeftToPrint

***Tail of do-one-copy code.  3) See if we need to print another copy:
							ldy			#oiCurCopy				;get current copy number index...
							tyx									;save this index for use below
							lda			[statusRecPtr],y		;get it
							ldy			#oiTotCopies			;compare with total copies needed...
							cmp			[statusRecPtr],y		;compare it
							bcs			PiFiOutOfCopiesLoop		;if we're done, break out of loop
							ina									;else increment and store back...
							txy									;restore oiCurCopy index
							sta			[statusRecPtr],y		;store it
							brl			PiFiPrintOneMoreCopy	;loop back

**Tail of do-one-page code. See if we need to print another page:
PiFiOutOfCopiesLoop			ldy			#oiCurPage				;get current page number index...
							tyx									;save this index for use below
							lda			[statusRecPtr],y		;get it
							ldy			#oiTotPages				;compare with total pages needed...
							cmp			[statusRecPtr],y		;compare it
							bcs			PiFiOutOfPagesLoop		;if we're done, break out of loop
							ina									;else increment and store back...
							txy									;restore oiCurPage index
							sta			[statusRecPtr],y		;store it
							brl			PiFiPrintOneMorePage	;loop back

*Done with print job.  Release banding mem attached to our locinfo attached to our grafport.
*This is where resources are terminated for graceful exits during error conditions:
PiFiOutOfPagesLoop			pha									;dump our SCB mem	;result space
							pha														;result space
							pushlong	PiFiSCBListPtr								;didn't keep hdl
							_FindHandle												;so find from ptr
							_DisposeHandle											;hdl on stack
PiFiOutOfPagesLoopNoSCB		pha									;dump our band mem	;result space
							pha														;result space
							pushlong	PiFiLocInfoPixPtr							;didn't keep hdl
							_FindHandle												;so find from ptr
							_DisposeHandle											;hdl on stack
							pushword	PiFiMemPID				;dump our user ID
							_DeleteID

*Set QuickDraw global internal clip buffers back to previous size:
							pushlong	#PiFiOldQDBuffRec
							_RestoreBufDims

*Restore previous grafport and close our printing grafport:
PiFiAbortNoBandMemAlloc		pushlong	OldGrafPortPtr			;restore caller's grafport first...
							_SetPort
							pushlong	printGrafPortPtr		;close our grafport, which also...
							_ClosePort							;deallocs clip/vis rgn memory

*Terminate the spooling process:
							import		SpoolFinishGet
							jsr			SpoolFinishGet
							cmp			#1						;check for error in acc
							bcc			PiFiNoFinishGetErr
							sta			errNo					;if nonzero, make *it* the tool err

*Terminate communication with the printer:
PiFiNoFinishGetErr			jsr			PrinterClose			;stop hogging the printer

*Remove the status box in any case:
							import		FinishStatusMessage
							jsr			FinishStatusMessage

*Get rid of stray keystroke events and exit:
							pha									;flush other keyboard events
							pushword	#%0000000000001110
							pushword #0
							_FlushEvents
							pla
							rts

*During-printing status record space to use if user passed NIL:
PiFiStatusRecord			ds.b		$1C

*User ID for mallocing memory during this routine for banding buffer, SCB list, etc:
PiFiMemPID					dc.w		0

*GrafPort.LocInfo record describing banding buffer (offscreen pixelmap):
PiFiLocInfo					dc.w		0						;portSCB
PiFiLocInfoPixPtr			dc.l		0						;ptrToPixImage ptr to imaging buffer
PiFiLocInfoWidth			dc.w		0						;width of one scan line in bytes
PiFiLocInfoRect				dc.w		0,0,0,0					;boundsRect in pixels

*Destination scaling rectangle for DrawPicture picture playback:
PiFiDestRect				dc.w		0,0,0,0

*Last band may be smaller than all other bands to print what's left, for bands are Y-size aligned:
PiFiLastBandHeight			dc.w		0						;height of special-case last band

*Storage for decrementing computed number of sheets left to print (pages*copies):
PiFiSheetsLeftToPrint		dc.w		0

*QuickDraw buffer size information record storage:
PiFiOldQDBuffRec:												;to save/alter/restore QD buffers
PiFiOldQDBuffMaxWidth		dc.w		0
PiFiOldQDBuffTxtHeight		dc.w		0
PiFiOldQDBuffTxtWidth		dc.w		0
PiFiOldQDBuffMFBREx			dc.w		0

*Dummy character used for imager vertical positioning call:
PiFiSpaceChar				dc.b		' '

*Ptr to malloced memory holding application-piccomment-modifyable SCB list for curr imager call:
PiFiSCBListPtr				dc.l		0







*
*GETPRINTLOOPERROR: This routine returns the value of the status variable in ACC:
*
							export		GetPrintLoopError
GetPrintLoopError			lda			PrintLoopErrorStatus
							rts
							



							
							
*
*SETPRINTLOOPERROR: This routine stores the value of ACC into the status variable:
*
							export		SetPrintLoopError
SetPrintLoopError			sta			PrintLoopErrorStatus
							rts






*
*PRIVATE ROUTINES: Called by the high-level print model routines above:
*



*
*PRINTERIMAGERSVCCALL: Calls imager with all dummy params except ActionBits -> ACC; ACC/c -> Error:
*
PrinterImagerSvcCall		ldx			#0						;we'll pass zeroes
							phx									;dummy pix loc info ptr hi
							phx									;dummy pix loc info ptr lo
							phx									;dummy pix pr rect ptr hi
							phx									;dummy pix pr rect ptr lo
							phx									;dummy color tbl ptr hi
							phx									;dummy color tbl ptr lo
							phx									;dummy scb list ptr hi
							phx									;dummy scb list ptr lo
							phx									;dummy carriage width
							phx									;dummy paper length
							pha									;pass ActionBits given in ACC
							phx									;dummy quality bits
							phx									;dummy idle proc hi
							phx									;dummy idle proc lo
							import		Imager
							jsl			Imager
							rts									;exit RTS, leaving ACC/carry set



*
*PRINTEROPEN: Called once per job, before all printing. Opens and hogs connection, may set prError:
*If it returns w/o error, it has an exclusive connection so nobody else can interfere.
*
							import		StMePrinterOpenMesg		;put up message because it might
PrinterOpen					lda			#StMePrinterOpenMesg	;take a few seconds...
							sta			ParamLongA+0
							lda			#^StMePrinterOpenMesg
							sta			ParamLongA+2
							import		StatusMessage
							jsr			StatusMessage
							;			  5432109876543210
							lda			#%0000001000100011		;FF:N,Init:N,BinSel:N,Img:N,Op:Y,Cl:N
							jsr			PrinterImagerSvcCall	;ask imager to do the open
							cmp			#0						;did any error at all occur?
							beq			PrOpExit				;no, open was completely successful
							cmp			#$0080					;did user hit control-period already?
							beq			PrOpSetPrAbort			;if so, set print loop error to abort
							jsr			ShowPrinterErrorStatus	;else put message in the box...
							bra			PrinterOpen				;...and try again
PrOpSetPrAbort				lda			#prAbort
							sta			PrintLoopErrorStatus
PrOpExit					rts



*
*PRINTERCLOSE: Terminates exclusive connection to printer, freeing it for other users:
*
							;			  5432109876543210
PrinterClose				lda			#%0000000100100011		;FF:N,Init:N,BinSel:N,Img:N,Op:N,Cl:Y
							brl			PrinterImagerSvcCall	;exit through this routine



*
*PRINTERRESET: Called once/job: Mesg, calibrate, set sheet len.  NOTE: PrRec, Status box assumed:
*
PrinterReset				lda			PrintLoopErrorStatus	;do only if no pending err already
							bne			PrReExit
							import		StMePrinterResetMesg	;show message indicating that
							lda			#StMePrinterResetMesg	;printer mechanics are happening...
							sta			ParamLongA				;NOTE: Assumes presence of box!
							lda			#^StMePrinterResetMesg
							sta			ParamLongA+2
							import		StatusMessage
							jsr			StatusMessage
							pushlong	#0						;dummy pix loc info
							pushlong	#0						;dummy pix pr rect ptr
							pushlong	#0						;dummy color tbl ptr			
							pushlong	#0						;dummy scb list ptr
							pushword	#0						;dummy carriage width
							import		GetPaperLength			;obtain length of current paper type
							jsr			GetPaperLength			;NOTE: Assumes PrintRecordHandle!
							pha									;pass sheet length to be set...
							;			  5432109876543210		;pass action bits:
							pushword	#%0000001100100001		;FF:N,Init:Y,BinSel:N,Img:N,Op/Cl:N
							pushword	#0						;dummy quality bits
							pushlong	#0						;dummy idle proc
							import		Imager
							jsl			Imager
PrReExit					rts



*
*PRINTERFORMFEED: Causes printer to do form feed:
*
							;			  5432109876543210
PrinterFormfeed				lda			#%0000001100100010		;FF:Y,Init:N,BinSel:N,Img:N,Opn/Cls:N
							brl			PrinterImagerSvcCall	;exit through this routine



*
*PRINTERNEWPAGE: Do beginpage. Man-feed dialog, sheet feeder select. Pass curr pg -> ParamWordA:
*This routine has the side-effect of setting PrintLoopErrorStatus if manfeed with "cancel" selected.
*On exit, status box contents are erased, except if manfeed cancel it puts up message.
*Valid current print record handle is necessary.
*
PrinterNewPage
*Do manual feed dialog if necessary:
							pushword	ParamWordA				;save passed page number
							import		GetFeed
							jsr			GetFeed					;set zero flag if manual page feed
							bne			NewPgNotManFeed			;don't do dialog if auto feed
							import		StatusMesgFeedPrompt	;ParamWordA (page#) already set...
							jsr			StatusMesgFeedPrompt	;put up the dialog until select
							bcc			NewPgNotCancel
							lda			#prAbort				;if manfeed+cancel hit, set PrError
							sta			PrintLoopErrorStatus
							import		StMeCancellingMesg		;and also show user what's happening
							lda			#StMeCancellingMesg
							sta			ParamLongA+0
							lda			#^StMeCancellingMesg
							sta			ParamLongA+2
							import		StatusMessage
							jsr			StatusMessage
NewPgNotCancel
NewPgNotManFeed
*Select requested sheet feeder bin:
							pla									;restore passed page number
							cmp			#1						;if it's "first" page...
							bne			NewPgNotFirstPage		;skip if current page isn't 1st one
							import		GetFeedFirstPage		;find out which bin 1st page goes
							jsr			GetFeedFirstPage		;get 0..2 in acc
							bra			NewPgDoFeederSelect		;go do it with bin # in acc
							import		GetFeedOtherPages		;else find which bin for other pages
NewPgNotFirstPage			jsr			GetFeedOtherPages		;get 0..2 in acc
NewPgDoFeederSelect			asl a								;shift into position to bits 3 & 4
							asl a
							asl a
							;			  5432109876543210		;printer cmd's for each new page... 
							ora			#%0000001100100111		;FF:N,Init:N,BinSel:Y,Img:N,Opn/Cls:N
							brl			PrinterImagerSvcCall	;exit through this routine



*
*SHOWPRINTERERRORSTATUS: Displays mesg about pr status code (received from imager) given in ACC:
*
ShowPrinterErrorStatus		cmp			#$0081
							bne			ShPrEr1
							import		StMeCommunicationMesg
							ldx			#StMeCommunicationMesg
							bra			ShPrErDisplayIt
ShPrEr1						cmp			#$0082
							bne			ShPrEr2
							import		StMeOutOfPaperMesg
							ldx			#StMeOutOfPaperMesg
							bra			ShPrErDisplayIt
ShPrEr2						cmp			#$0083
							bne			ShPrEr3
							import		StMePaperJamMesg
							ldx			#StMePaperJamMesg
							bra			ShPrErDisplayIt
ShPrEr3						cmp			#$0084
							bne			ShPrEr4
							import		StMeCoverOpenMesg
							ldx			#StMeCoverOpenMesg
							bra			ShPrErDisplayIt
ShPrEr4						cmp			#$0085
							bne			ShPrEr5
							import		StMeSelectOffMesg
							ldx			#StMeSelectOffMesg
							bra			ShPrErDisplayIt
ShPrEr5						cmp			#$008F
							bne			ShPrErHuh
							import		StMeInUseMesg
							ldx			#StMeInUseMesg
							
ShPrErDisplayIt				stx			ParamLongA
							import		StMeCommunicationMesg	;assuming all messages are in
							ldx			#^StMeCommunicationMesg	;the same bank...
							stx			ParamLongA+2
							import		StatusMessage			;show the message
							jsr			StatusMessage
							
							pha									;wait a few seconds...
							pushword	#0						;anchor value
							pushword	#StatusMesgDelay*16		;number of 16ths of ticks to wait
							ldx			#$3A03					;_WaitUntil
							jsl			$E10000
							pla									;ignore new anchor result
							
ShPrErHuh					rts



*
*SHOWSTATUSWITHPGNO: Displays string at ParamLongA, with ASCII of PrintLoopPageCounter at posn 26:
*
ShowStatusWithPgNo			pushword	PrintLoopPageCounter	;int to be converted to string
							clc
							lda			ParamLongA
							adc			#26						;this routine always puts number
							tax									;at 26th position in the string!
							lda			ParamLongA+2
							adc			#0
							pha									;hi word of where number goes
							phx									;lo word of where number goes
							pushword	#5						;length
							pushword	#0						;unsigned
							_Int2Dec
							import		StatusMessage
							brl			StatusMessage			;exit through StatusMessage






*
*BOTTLEPROCS: Our custom QuickDraw bottle-neck procedures (called by QuickDraw):
*



*
*PUTPIC: Our PutPic bottleproc called as "void PutPic (ptr,count) word *ptr word count"; err->c,acc:
*
PutPic						phb									;save bank register on stack
							phd									;save direct page register on stack
							phk									;B=K so we can use abs addressing...
							plb
							tsc									;allocate space on stack for...
							sec									;our direct page...
							sbc			#DPSizeParamOnly
							tcs
							ina
							tcd									;set D so we can use dp addressing
PuPiStackParam				equ			1+3+1+2+DPSizeParamOnly	;1 + RTL + B + D + StackFrame
							lda			PuPiStackParam+0,s		;count word -> ParamLongB...
							sta			ParamLongB+0
							stz			ParamLongB+2
							lda			PuPiStackParam+2,s		;ptr long -> ParamLongC...
							sta			ParamLongC+0
							lda			PuPiStackParam+4,s
							sta			ParamLongC+2

*Done saving environment; now do the work:
							import		SpoolPut				;go spool it
							jsr			SpoolPut
							cmp			#1						;did any error happen?
							bcc			PutGetNoError			;if no
PutGetError					sta			PrintLoopErrorStatus	;if yes set global static var
							tax									;and always notify QD
							bra			PutGetExit
PutGetNoError				ldx			#0						;clean exit point here

*Now restore previous environment and exit with status in X in ACC/carry:
PutGetExit					tsc									;deallocate stack frame...
							clc
							adc			#DPSizeParamOnly
							tcs
							pld									;restore direct reg off stack
							plb									;restore bank reg off stack
							lda			0,s						;move the RTL up, cleaning the...
							sta			6,s						;six input param bytes off...
							lda			2,s
							sta			8,s
							tsc									;now add 6 to S to move it up...
							clc									;can't do above since B/D on stack
							adc			#6
							tcs
							txa									;X has err, -> ACC/Carry
							cmp			#1
							rtl
							
							



							
*
*GETPIC: Our GetPic bottleproc called as "void GetPic (ptr,count) word *ptr word count"; err->c,acc:
*
GetPic						phb									;save bank register on stack
							phd									;save direct page register on stack
							phk									;B=K so we can use abs addressing...
							plb
							tsc									;allocate space on stack for...
							sec									;our direct page...
							sbc			#DPSizeParamOnly
							tcs
							ina
							tcd									;set D so we can use dp addressing
GePiStackParam				equ			1+3+1+2+DPSizeParamOnly	;1 + RTL + B + D + StackFrame
							lda			GePiStackParam+0,s		;count word -> ParamLongB...
							sta			ParamLongB+0
							stz			ParamLongB+2
							lda			GePiStackParam+2,s		;ptr long -> ParamLongC...
							sta			ParamLongC+0
							lda			GePiStackParam+4,s
							sta			ParamLongC+2

*Done saving environment; now do the work:
							ldx			PrintLoopEndOfPageDetect
							bne			GetPicItsEndOfPage		;our end-of-page PicComment happened
							import		SpoolGet				;else get data from spool
							jsr			SpoolGet
							cmp			#$FFFF					;end of all spool data?
							beq			GetPicItsEndOfPage
							cmp			#1						;error during spool operation?
							bcc			PutGetNoError			;if not, exit clean
							bcs			PutGetError				;if yes, set pr err and notify QD
GetPicItsEndOfPage			stz			PrintLoopEndOfPageDetect
							ldx			#$1210					;clear end-of-page flag and tell QD
							bra			PutGetExit				;to stop drawing with "PicEmpty" err






*
*PICCOMMENT: Our bottleproc that informs us of end-of-picture and allows mid-document color changes
*This routine is called from inside DrawPicture and thus runs just before each imager call:
*
PicComment					ldy			#0							;get contents of comment data...
							lda			[QDAuxTheHandleDPLoc],y
							sta			>PiCoReadComment+1
							iny
							iny
							lda			[QDAuxTheHandleDPLoc],y
							shortm
							sta			>PiCoReadComment+3
							longm
							ldx			QDAuxTheSizeDPLoc
							cpx			#4							;min size of our comments is 4
							bcc			PiCoExit
							cpx			#42+1						;max size of our comments is 42
							bcs			PiCoExit
							shortm									;copy to local static storage...
							dex
PiCoReadComment				lda			>$FFFFFF,x					;NOTE: stuffed operand
							sta			>PiCoCommentData,x
							dex
							bpl			PiCoReadComment
							longm
*
							lda			>PiCoCommentData+0			;ensure version field is 0
							bne			PiCoExit
							lda			>PiCoCommentData+2			;ensure sig field is $A55A
							cmp			#$A55A
							bne			PiCoExit
*
							lda			QDAuxTheKindDPLoc			;get kind of comment...
							cmp			#EndOfPagePicCommentKind	;our end-of-page marker?
							beq			PiCoEndOfPage
							cmp			#ChangeCTBLPicCommentKind	;app's color tbl change cmd?
							beq			PiCoChangeCTBL
							cmp			#ChangeSCBPicCommentKind	;app's scb change cmd?
							beq			PiCoChangeSCB
*
PiCoExit					lda			#0							;exit clean, no error status
							clc
							rtl
*
*End-Of-Page PicComment handler:
*
PiCoEndOfPage				lda			#1							;set flag so we'll know
							sta			>PrintLoopEndOfPageDetect	;about end-of-page/picture
							bra			PiCoExit					;done with end-of-page-set-flag
*
*Change-A-Color-Table-Entry PicComment handler:
*
PiCoChangeCTBL				pushlong	#PiCoCommentData+6			;pass "source" for BlockMove
							lda			>PiCoCommentData+4			;get table# field
							asl a									;*32 to get index into color tbl
							asl a
							asl a
							asl a
							asl a
							clc										;+address of our color tbl
							adc			#PrintLoopRoutineData
							tax
							lda			#0
							adc			#^PrintLoopRoutineData
							pha										;pass "dest" for BlockMove
							phx
							pushlong	#32							;pass "length" for BlockMove
							_BlockMove
							bra			PiCoExit					;done with change-color-table
*
*Change-One-Or-More-SCB-Value(s) PicComment handler:
*
PiCoChangeSCB				phb										;do set our B
							phk
							plb
*
							sec										;find out the range of y coords
							lda			#0							;that we're imaging currently
							sbc			PiFiDestRect+ov1			;these will be in imaging units
							sta			PiCoChSCB_curr_img_y1
							clc
							adc			PiFiLocInfoRect+ov2
							sta			PiCoChSCB_curr_img_y2
*
							lda			PiCoChSCB_curr_img_y1		;convert from imaging units to
							import		ConvertImgToRPageSize		;rPage units
							jsr			ConvertImgToRPageSize
							sta			PiCoChSCB_curr_img_y1
							lda			PiCoChSCB_curr_img_y2
							import		ConvertImgToRPageSize
							jsr			ConvertImgToRPageSize
							sta			PiCoChSCB_curr_img_y2
*
							lda			PiFiSCBListPtr+0			;setup adrs of our-scb-list
							sta			PiCoChSCBSto+1				;in preparation for access
							lda			PiFiSCBListPtr+2
							shortm
							sta			PiCoChSCBSto+3
							longm
*
							ldx			PiCoCommentData+4			;get "Y1" from ChSCB piccomment
PiCoChSCBLoop				cpx			PiCoChSCB_curr_img_y1		;check to see if this SCB falls
							bcc			PiCoChSCBDoNext				;within the limits of the
							cpx			PiCoChSCB_curr_img_y2		;current banding/imaging buffer
							beq			PiCoChSCBInRange
							bcs			PiCoChSCBDoNext
PiCoChSCBInRange
*
							txy										;normalize from rPage-based Y
							txa										;coordinate to bandbuff-based Y
							sec
							sbc			PiCoChSCB_curr_img_y1
							tax
							lda			PiCoCommentData+8			;get "SCB" from ChSCB piccomment
							shortm
PiCoChSCBSto				sta			>$FFFFFF,x					;NOTE: operand is stuffed
							longm
							tyx
*
PiCoChSCBDoNext				inx										;try to modify another SCB
							cpx			PiCoCommentData+6			;until "Y2" from ChSCB piccomment
							beq			PiCoChSCBLoop
							bcc			PiCoChSCBLoop
*
							plb										;restore old B
							brl			PiCoExit					;done with change-scb(s)
*
PiCoChSCB_curr_img_y1		dc.w		0							;1st line of current band buffer
PiCoChSCB_curr_img_y2		dc.w		0							;lst line of current band buffer
*
PiCoCommentData				ds.b		44							;buffer holding PicComment data






*
*PUTTEXT: Our Text bottleproc which is used during draft printing using printer's native text mode:
*This routine attempts to map a quickdraw screen font/style into a native ascii font/style:
*
PutText						phb									;save QD bank reg on stack
							phd									;save QD direct reg on stack
							phk									;set bank reg to our code...
							plb
							lda			QDDrawVerbDPLoc			;get info off QD direct page
							sta			PuTeDrawVerb			;and save them here...
							lda			QDTextPtrDPLoc
							sta			PuTeTextPtr
							lda			QDTextPtrDPLoc+2
							sta			PuTeTextPtr+2
							lda			QDTextLengthDPLoc
							sta			PuTeTextLength
							lda			QDCharToDrawDPLoc
							sta			PuTeCharToDraw
							tsc									;allocate space on stack for...
							sec									;our direct page...
							sbc			#DPSize
							tcs
							ina
							tcd									;set D so we now have direct page

*Done setting up environment; now do work.  Handle case for a single character of text:
							lda			PuTeDrawVerb
							cmp			#QDDrawCharVerbEqu		;single character?
							bne			PuTeItsString			;no, must be a string
							lda			#1						;length is one
							sta			PuTeStrLen
							lda			#PuTeCharToDraw			;location of character
							sta			PuTeTextPtr+0
							lda			#^PuTeCharToDraw
							sta			PuTeTextPtr+2
							bra			PuTeGotString

*Handle case for pascal string:
PuTeItsString				lda			PuTeDrawVerb
							cmp			#QDDrawTextVerbEqu		;pascal string?
							bne			PuTeNotPString			;no, not pascal string
							lda			PuTeTextLength			;get length 0..255 in word
							sta			PuTeStrLen				;store it
							bra			PuTeGotString

*Handle case for c string:
PuTeNotPString				cmp			#QDDrawCStrVerbEqu		;c string?
							beq			PuTeItsCString			;yes
							brl			PuTeExitErrorInACC		;no, error...
PuTeItsCString				lda			PuTeTextPtr				;will need [dp] addressing...
							sta			ParamLongA
							lda			PuTeTextPtr+2
							sta			ParamLongA+2
							ldy			#0						;count to get length
							shortm
PuTeCountCLen				lda			[ParamLongA],y
							beq			PuTeGotCLen
							iny
							bne			PuTeCountCLen
							longm
							lda			#-1
							brl			PuTeExitErrorInACC
PuTeGotCLen					longm
							sty			PuTeStrLen				;store length

*Now text at PuTeTextPtr, len at PuTeStrLen.  Now also get current Y,X coordinates:
PuTeGotString				pushlong	#PuTePenPos				;pass ptr where to store coords
							_GetPen								;PuTePenPos now has Y,X coords
							
*Don't continue if the string begins outside of current clipping settings:
PuTeClip					pha									;result space for PtInRgn
							pushlong	#PuTePenPos				;pass pen posn for PtInRgn
							pha									;result space for GetClipHandle
							pha									;result space for GetClipHandle
							_GetClipHandle						;stack now has space, penpos, cliphdl
							_PtInRgn							;note that we had set the grafport's
							pla									;clip region in OpenPage, and it
							bne			PuTeDontClip			;is also possible that the user has
							brl			PuTeExitUpdatePosn		;since modified it
PuTeDontClip

*Now get current font name/size/style information and arbitrarily map into LQ native text modes:
							shortm
							stz			PuTeNativeLQFont		;set defaults...
							lda			#2
							sta			PuTeNativeLQSpacing
							stz			PuTeNativeLQAttributes
							longm
							pha									;get current font ID...
							pha
							_GetFontID
							pla
							plx
							cmp			#$FFFE					;if not shaston, diff font/spacing...
							beq			PuTeLookAtSize
							shortx
							ldx			#0
							stx			PuTeNativeLQFont
							ldx			#7
							stx			PuTeNativeLQSpacing
							longx
							cmp			#$0016					;if courier, special font/spacing...
							bne			PuTeNotCourier
							shortx
							ldx			#0
							stx			PuTeNativeLQFont
							ldx			#3
							stx			PuTeNativeLQSpacing
							longx
							bra			PuTeLookAtSize
PuTeNotCourier				cmp			#$0014					;if times, special font/spacing...
							bne			PuTeLookAtSize
							shortx
							ldx			#3
							stx			PuTeNativeLQFont
							ldx			#7
							stx			PuTeNativeLQSpacing
							longx
PuTeLookAtSize				pha									;get current font size...
							_GetTextSize
							pla
							beq			PuTeNotTinyText			;if 0, don't change size...
							cmp			#8						;if < 8pt, do half-height/pitch...
							bcs			PuTeNotTinyText
							shortm
							lda			#5
							sta			PuTeNativeLQSpacing
							longm
							lda			#%00001000
							bra			PuTeModSizeAttr
PuTeNotTinyText				cmp			#16						;if >= 16pt, do double-width...
							bcc			PuTeNotBigText
							lda			#%00000100
PuTeModSizeAttr				shortm
							ora			PuTeNativeLQAttributes
							sta			PuTeNativeLQAttributes
							longm
PuTeNotBigText				pha									;get current font style...
							_GetTextFace
							pla
							tax
							and			#%00000001				;if bold, do boldface...
							beq			PuTeNotBold
							lda			#%00000001
							shortm
							ora			PuTeNativeLQAttributes
							sta			PuTeNativeLQAttributes
							longm
PuTeNotBold					txa
							and			#%00000100				;if underline, do underline...
							beq			PuTeNotUnderline
							lda			#%00000010
							shortm
							ora			PuTeNativeLQAttributes
							sta			PuTeNativeLQAttributes
							longm
PuTeNotUnderline			txa
							and			#%00000010				;if italic, set light font...
							beq			PuTeStoreHeader
							shortm
							lda			#1
							sta			PuTeNativeLQFont
							longm

*(1): Store above-obtained information for this string in spool, for playing back during ClosePage:
PuTeStoreHeader				lda			#PuTeInfoHeaderEnd-PuTeInfoHeaderBegin
							sta			ParamLongB
							stz			ParamLongB+2
							lda			#PuTeInfoHeaderBegin
							sta			ParamLongC
							lda			#^PuTeInfoHeaderBegin
							sta			ParamLongC+2
							import		SpoolPut
							jsr			SpoolPut
							cmp			#1
							bcs			PuTeExitErrorInACC

*(2): Store the actual text for current string in spool file, for playing back during ClosePage:
PuTeStoreString				lda			PuTeStrLen
							sta			ParamLongB+0
							stz			ParamLongB+2
							lda			PuTeTextPtr+0
							sta			ParamLongC+0
							lda			PuTeTextPtr+2
							sta			ParamLongC+2
							import		SpoolPut
							jsr			SpoolPut
							cmp			#1
							bcs			PuTeExitErrorInACC

*Do TextWidth and Move calls to update horizontal pen position just like normal StdText bottleproc:
PuTeExitUpdatePosn			pha									;result space for horizontal width
							pushlong	PuTeTextPtr				;pass ptr to text string
							pushword	PuTeStrLen				;pass length of text string
							_TextWidth							;calc; now hor displacement on stack
							pushword	#0						;no vertical displacement
							_Move								;adjust pen position

*Now restore previous environment and exit:
							lda			#0						;normally no error status
PuTeExitErrorInACC			tax									;save error status for a sec
							tsc									;deallocate our stack frame...
							clc
							adc			#DPSize
							tcs
							pld									;restore QD direct reg off stack
							plb									;restore QD bank reg off stack
							txa									;exit with error status in ACC/c...
							cmp			#1
							rtl

*Variables to store values retrieved from QD direct page:
PuTeDrawVerb				dc.w		0						;type of string
PuTeCharToDraw				dc.w		0						;character if string type is char
PuTeTextPtr					dc.l		0						;where actual text from QD resides
PuTeTextLength				dc.w		0						;length of text from QD

*Info header packet written to spool before text data, in this order:
PuTeInfoHeaderBegin
PuTePenPos					dc.w		0,0						;pen position on page
PuTeStrLen					dc.w		0						;our calculated string length
PuTeNativeLQFont			dc.b		0						;our mapped font type
PuTeNativeLQSpacing			dc.b		0						;our mapped font size
PuTeNativeLQAttributes		dc.b		0						;our mapped font face
							dc.b		0
PuTeInfoHeaderEnd







*
*DATA: Global static variables used by print loop routines that must be kept across driver calls:
*
PrintLoopErrorStatus		dc.w		0						;our global error status
PrintLoopSetupLevel			dc.w		0						;err was: 0)usr;1)spool on;2)port on
PrintLoopOldGrafPortPtr		dc.l		0						;user's grafport before OpenDoc
PrintLoopPrRecHdl			dc.l		0						;value of pr rec handle at OpenDoc
PrintLoopUnusedPictHdl		dc.l		0						;unused handle from qd pict calls
PrintLoopIsDraft			dc.w		0						;indicate print loop method
PrintLoopIsDraftVC			dc.w		0						;for draft, if vert cond selected
PrintLoopPageCounter		dc.w		0						;OpenPage/ClosePage counter
PrintLoopNumActualPages		dc.w		0						;number of pages actually spooled
PrintLoopInPageRange		dc.w		0						;are we really spooling a page
PrintLoopEndOfPageDetect	dc.w		0						;piccomment->getpic bottleprocs data



*
*DATA: For use during, but not across, print loop routines:
*
PrintLoopRoutineData		ds.b		512						;used for text, color tables, etc.






							endproc
							end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/LQ/spool.aii b/IIGS.601.SRC/GSToolbox/PrinterDrivers/LQ/spool.aii
new file mode 100644
index 0000000..de1674f
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/LQ/spool.aii
@@ -0,0 +1 @@
+
******************************************************************************************
*                                                                                        *
*		Apple IIgs ImageWriter LQ Printer Driver                                         *
*                                                                                        *
*		File: spool.aii -- Routines to store/retrieve data to disk or memory as needed   *
*                                                                                        *
*		Written by Ben Koning                                                            *
*		Copyright (C) 1989 Apple Computer, Inc.                                          *
*                                                                                        *
******************************************************************************************






							include		'equates.aii'
							
							
							include		'm16.util'
							include		'm16.memory'
							include		'e16.GSOS'
							include		'm16.GSOS'
							include		'm16.misctool'
							include		'm16.intmath'
							

SpoolProc					proc		export





*
*DATA SPOOLING ROUTINES: These routines spool data away to disk, memory, or both.  The
*six entry points defined below should remain the same no matter where the data is spooled to.
*These routines maintain their own globals in static memory, because their values must be
*preserved across print manager calls into this driver.  The author has attempted to keep
*these calls as generic (ie, un-printer-driver-specific) as possible.
*
*The entry points SPOOLSTARTPUT/SPOOLPUT/SPOOLFINISHPUT and SPOOLSTARTGET/SPOOLGET/SPOOLFINISHGET
*are self-explanatory.  On entry "ParamLongB" should have the number of bytes to save/restore,
*and "ParamLongC" should have a pointer of where the data will be read/written to.  The accumulator
*will be nonzero if an error occurred.  SPOOLGET returns an $FFFF error code if end of data; in
*other cases the error code will be that which was returned from a tool call or GS/OS call.
*
*The two routines SPOOLMARKGET/SPOOLRETURNTOMARKGET allow the caller to arrange for the SPOOLGET
*routine to repeatedly return to the same point.  A typical scenario would involve a few SPOOLGET
*calls, then a SPOOLMARKGET, some more SPOOLGET calls, and then a SPOOLRETURNTOMARKGET which would
*cause the next SPOOLGET to retrieve data from the afore-marked position in the spool data.
*
*The spooling strategy is as follows:  Data will be stored in memory until memory starts to
*run out, at which time data will be stored to disk, using the memory already allocated as a buffer.
*If more memory should become available, it will be used.  While storing data to memory, the Memory
*Manager is called at pre-defined intervals (8K, for example) as more memory is needed, using
*SetHandleSize.  Before SetHandleSize is called, we see if memory is getting full;
*if memory size is a value less than an pre-defined threshold (32K, for example), then
*memory is considered to be running out.  This strategy will hopefully avoid memory compaction
*and keep tools and other drivers alive.  When the decision to go to disk has been made, a flag
*indicating this fact will be set, the entire range of memory used for spooling so far will be
*written out, and the spool process will continue, using the amount of memory obtained as a
*buffer, which, when full, will be written out to disk.  The disk pathname is "*/SYSTEM/DRIVERS/
*TMP.XXXX", where the trailing X's are replaced by a random number.  If such a pathname already
*exists, then we try to generate a new name.  If the caller is using their own pathname, then
*no such suffix-appending-and-retrying will be done.  If the amount of data to be spooled exceeds
*even the size of the big buffer we now have in memory, then it will be written to disk directly.
*If the boot volume's FST is AppleShare, then the temporary file is written to the directory
*pointed to by the GetUserPath call.
*
*If the caller wants to use its own spool filename, it must store a pointer to its filename in
*"SpoolFileNamePtr".  This is done by PrOpenDoc in order to allow the user to specify their own
*spool file.  This must be done AFTER calling "SpoolStartPut", which installs a default
*filename, which "SpoolPut" later makes sure is unique by trying random suffixes.  Once a filename
*has been chosen (by virtue of "SpoolPut" having been called), the rest of the routines will deal
*only with that filename, and it should not be modified.  This means that PrPicFile cannot be
*called standalone, with an arbitrary filename stuck in the print record, at some arbitrary
*time, without first having gone through the PrOpenDoc/PrCloseDoc printing loop.  This limitation
*is due to the fact that this is a dynamic, hybrid memory and disk-based spooler.  This limitation
*could easily be lifted if the entire document were always spooled entirely to disk.
*
*In a similar fashion, if the caller wants to set their own handle-increment and memory-limit-
*threshold values, it must modify the globals "SpoolMemInc" and/or "SpoolMemLeftLimit" AFTER
*doing the "SpoolStartPut" call, which installs default values into these static variables.
*





*
*SPOOLSTARTPUT: Prepare to store data. Call before using SPOOLPUT; ACC->Err:
*
							export		SpoolStartPut
							
*Assume standard spool name in case we have to spool to disk:
SpoolStartPut				lda			#SpoolFileName				;assume our standard file name
							sta			SpoolFileNamePtr+0			;the user can modify this
							lda			#^SpoolFileName				;after this call is completed,
							sta			SpoolFileNamePtr+2			;since it doesn't yet open it
							
*Assume standard handle-grow size policy:
							lda			#SpoolMemIncDefault//65536
							sta			SpoolMemInc+0
							lda			#SpoolMemIncDefault/65536
							sta			SpoolMemInc+2
							
*Assume standard memory-left-go-to-disk threshold policy:
							lda			#SpoolMemLeftLimitDefault//65536
							sta			SpoolMemLeftLimit+0
							lda			#SpoolMemLeftLimitDefault/65536
							sta			SpoolMemLeftLimit+2
							
*Assume we don't have to go to disk:
							stz			SpoolToDisk
							
*Zero our length and pointer variables:
							stz			SpoolDataLen+0
							stz			SpoolDataLen+2
							stz			SpoolHandlePos+0
							stz			SpoolHandlePos+2
							
*Try to get a handle; the first block:
							pha										;result space for GetNewID
							pushword	#UserIDType					;who is requesting memory
							_GetNewID
							plx										;save ID in x reg
							stx			SpoolPID					;save ID for later disposal
							bcs			StartPutRts					;if error, exit with acc set
							pha										;result space for NewHandle
							pha										;...result space
							pushlong	SpoolMemInc					;allocate desired size
							phx										;user ID just obtained
							pushword	#0							;can be anywhere, move anywhere
							pha										;location ptr...
							pha										;...will be ignored
							_NewHandle
							
*Store handle for repeated use:
							plx
							ply
							stx			SpoolHandle+0				;save handle in static variable
							sty			SpoolHandle+2				;...while preserving acc
							bcs			StartPutRts					;if error, exit with acc set

*Initialize space left in handle:
							lda			SpoolMemInc
							sta			SpoolHandleFree
							lda			SpoolMemInc+2
							sta			SpoolHandleFree+2

*Get out:
							lda			#0							;no error happened
StartPutRts					rts





*
*SPOOLFINISHPUT: Done storing data. Call after done using SPOOLPUT; ACC->Err:
*
							export		SpoolFinishPut

*If we never went to disk, don't do anything:
SpoolFinishPut				lda			SpoolToDisk
							beq			FinishPutRts				;exit with acc=0

*Flush last chunk out to disk:
							jsr			PutDoFlushSubr				;inside "SpoolPut"

*Deallocate our user ID and handle:
							pushlong	SpoolHandle
							_DisposeHandle
							pha										;save error status
							pushword	SpoolPID					;also remove user ID
							_DeleteID

*Close our file:
							lda			SpoolFileDescriptor			;put ref_num in param block
							sta			FinishPutCloseParamsRefNum
							_CloseGS	FinishPutCloseParams		;do the OS call
							bcs			FinishPutDiskError			;branch if disk error
							pla										;else remember MM error status
FinishPutRts				rts										;acc will have error status
FinishPutDiskError			plx										;who cares-disk err important
							rts
							
*Close-call parameter block for GS/OS:
FinishPutCloseParams		dc.w		1							;pCount
FinishPutCloseParamsRefNum	dc.w		0							;refNum: input






*
*SPOOLPUT: Spools data to disk or memory. Where->ParamLongC; NumBytes->ParamLongB; ACC->Err:
*
							export		SpoolPut
							
*Skip most of this code if request is for zero bytes:
SpoolPut					lda			ParamLongB+0
							ora			ParamLongB+2
							bne			PutTryStore
							rts												;exit with 0 in ACC

*Compare amount of data-requested-to-be-stored with current space left in handle:
PutTryStore					lda			ParamLongB+2						;hi order word of request
							cmp			SpoolHandleFree+2					;hi order word of free
							bcc			PutStoreMemSuccess					;less: it will fit!
							beq			PutTryStore1						;equal: test lo words...
							bcs			PutTryGrowHandle					;greater: won't fit!
PutTryStore1				lda			ParamLongB							;lo order word of request
							cmp			SpoolHandleFree						;lo order word of free
							beq			PutStoreMemSuccess					;equal: it will fit!
							bcc			PutStoreMemSuccess					;less: it will fit!
							bra			PutTryGrowHandle					;(greater): won't fit!

*Data will fit in current handle!  Deref, add handlepos, store, inc handlepos, dec handlefree:
PutStoreMemSuccess			lda			SpoolHandle							;dereference...
							sta			ParamLongA
							lda			SpoolHandle+2
							sta			ParamLongA+2
							clc
							lda			[ParamLongA]						;get pointer lo word
							adc			SpoolHandlePos						;add handle position lo
							tax
							ldy			#2
							lda			[ParamLongA],y						;get pointer hi word
							adc			SpoolHandlePos+2					;add handle position hi
							sta			ParamLongA+2
							stx			ParamLongA							;now ptr to data space
							pushlong	ParamLongC							;source
							pushlong	ParamLongA							;destination
							pushlong	ParamLongB							;count
							_BlockMove
							clc												;inc handlepos...
							lda			SpoolHandlePos
							adc			ParamLongB
							sta			SpoolHandlePos
							lda			SpoolHandlePos+2
							adc			ParamLongB+2
							sta			SpoolHandlePos+2
							sec												;dec handlefree...
							lda			SpoolHandleFree
							sbc			ParamLongB
							sta			SpoolHandleFree
							lda			SpoolHandleFree+2
							sbc			ParamLongB+2
							sta			SpoolHandleFree+2

*Increment length of data and exit:
PutIncDataLenSuccess		clc												;inc datalen...
							lda			SpoolDataLen
							adc			ParamLongB
							sta			SpoolDataLen
							lda			SpoolDataLen+2
							adc			ParamLongB+2
							sta			SpoolDataLen+2

*Exit without error:
							lda			#0
							rts

*Data won't fit in current handle, so see if we have enough space left to enlarge it:
PutTryGrowHandle			pha												;result space...
							pha
							_RealFreeMem
							pla
							sta			ParamLongA+0
							pla
							sta			ParamLongA+2
							cmp			SpoolMemLeftLimit+2
							bcc			PutNoMoreMemory						;less: no more room!
							beq			PutTryGrowHandle1					;equal: test lo word...
							bra			PutDoGrowHandle						;(greater): ok to grow!
PutTryGrowHandle1			lda			ParamLongA							;compare lo words...
							cmp			SpoolMemLeftLimit+0
							bcc			PutNoMoreMemory						;less: no more room!
							beq			PutNoMoreMemory						;equal: no more room!

*We have enough memory left in the system, so grow our handle by a chunk:
PutDoGrowHandle				pha												;result space...
							pha
							pushlong	SpoolHandle
							_GetHandleSize
							clc												;add memory increment...
							lda			SpoolMemInc+0						;... right on stack
							adc			1,s
							sta			1,s
							lda			SpoolMemInc+2
							adc			3,s
							sta			3,s
							pushlong	SpoolHandle
							_SetHandleSize									;allocate more memory
							bcs			PutNoMoreMemory						;ensure call didn't fail
							clc												;also inc handlefree...
							lda			SpoolHandleFree+0
							adc			SpoolMemInc+0
							sta			SpoolHandleFree+0
							lda			SpoolHandleFree+2
							adc			SpoolMemInc+2
							sta			SpoolHandleFree+2

*Now see if we can store our data in our newly grown memory area:
							brl			PutTryStore

*Case where can't grow handle bigger, so see if disk flag is set (ie, we have been writing to disk):
PutNoMoreMemory				lda			SpoolToDisk
							beq			PutTryOpenFile						;not yet, so go open file
							brl			PutDoFlush							;yes, so write to disk

*Check if user's filename or using our default; do NOT go here after network name-stuff below:
PutTryOpenFile				lda			#1
							sta			ParamWordA							;assume user filename
							lda			SpoolFileNamePtr+0					;theirs or ours?
							cmp			#SpoolFileName
							beq			PutTryOpenItsOurFileName1
							brl			PutTryCreateFile					;its theirs
PutTryOpenItsOurFileName1	lda			SpoolFileNamePtr+2
							cmp			#^SpoolFileName
							beq			PutTryOpenItsOurFileName2
							brl			PutTryCreateFile					;its theirs
PutTryOpenItsOurFileName2	stz			ParamWordA							;it must be ours!
							
*If it's our default name, we guarantee uniqueness by repeatedly trying random suffixes:
PutTrySuffix				pha												;result space...
							pha
							_GetTick										;get random number
							pla
							plx												;use lo word only
							phx												;result space...
							phx
							pha												;pass rnd
							_HexIt
							pulllong	SpoolFileNameUnique					;store ascii suffix

*Also if it's our default name, check if on network; if so modify the path to use USER's directory:
PutGenNetName				_DInfoGS	PutDInfoParams						;get boot-dev name
							bcs			PutGenNetNameAssNotNetwork
							_VolumeGS	PutVolumeParams						;get boot FST ID
							bcs			PutGenNetNameAssNotNetwork
							lda			PutVolumeParamsFstID
							cmp			#$000D								;is it appleshare FST?
							beq			PutGenNetNameGoOn					;yes, so continue
PutGenNetNameAssNotNetwork	brl			PutDoneModForNetwork				;no, so continue
PutGenNetNameGoOn			_FSTSpecific PutGetUsrPathParams				;do FSTSpecific call
							bcs			PutGenNetNameAssNotNetwork
							
							lda			PutGetUsrPathParamsPfxPtr+0			;access pathname
							sta			ParamLongA+0
							lda			PutGetUsrPathParamsPfxPtr+2
							sta			ParamLongA+2
							
							lda			[ParamLongA]						;copy pathname...
							sta			SpoolNetFileName+0					;copy length word first
							shortm
							ldy			#2									;y starts beyond len wrds
							ldx			#0									;x is count of len
PutGenNetNameCopy			lda			[ParamLongA],y						;copy a byte
							sta			SpoolNetFileName,y
							iny												;bump address
							inx												;bump string count
							cpx			SpoolNetFileName+0					;go until length
							bne			PutGenNetNameCopy
							longm											;y points to next index
							
							shortm											;add ':' separator
							lda			#':'
							sta			SpoolNetFileName,y
							longm
							iny
							
							lda			#'T'+('M'*256)						;add 'TMP.'
							sta			SpoolNetFileName,y
							iny
							iny
							lda			#'P'+('.'*256)
							sta			SpoolNetFileName,y
							iny
							iny												;y points to next index
							sty			ParamLongA+0						;save y for below
							
							pha												;result space
							pha												;result space
							_GetTick										;get random number
							pla
							plx												;use lo word only
							phx												;result space
							phx												;result space
							pha												;pass rnd, cvt to ascii,
							_HexIt											;leaves 2 words on stack
							
							ldy			ParamLongA+0						;restore y from above
							pla												;store 'XXXX' rnd digits
							sta			SpoolNetFileName,y
							iny
							iny
							pla
							sta			SpoolNetFileName,y					;not maintain y anymore
							
							lda			SpoolNetFileName+0					;we added ':TMP.XXXX',
							clc												;9 characters, so adjust
							adc			#9									;the string length
							sta			SpoolNetFileName+0
														
							lda			#SpoolNetFileName					;now make sure everyone
							sta			SpoolFileNamePtr+0					;uses the built-up name
							lda			#^SpoolNetFileName
							sta			SpoolFileNamePtr+2
PutDoneModForNetwork

*Now try to create a file for writing for the first time:
PutTryCreateFile			lda			SpoolFileNamePtr+0					;loc of name -> block...
							sta			PutCreateParamsFileNamePtr+0
							lda			SpoolFileNamePtr+2
							sta			PutCreateParamsFileNamePtr+2
							_CreateGS	PutCreateParams
							bcc			PutCreateSuccess					;go on if successful
							ldx			ParamWordA							;was it their filename?
							bne			PutExit1							;yes(+err): barf & die
							cmp			#dupPathName						;(no): not unique name?
							bne			PutExit1							;if some other err, exit
							brl			PutTrySuffix						;else, try another name
PutExit1					rts												;err in acc, exit

*File has been created on disk; now open it for writing and set To-Disk flag:
PutCreateSuccess			lda			SpoolFileNamePtr+0					;loc of name -> block...
							sta			PutOpenParamsFileNamePtr+0
							lda			SpoolFileNamePtr+2
							sta			PutOpenParamsFileNamePtr+2
							_OpenGS		PutOpenParams
							bcs			PutExit1							;err shouldn't happen
							lda			PutOpenParamsRefNum					;save ref_num...
							sta			SpoolFileDescriptor
							lda			#1									;we're now disk-based!
							sta			SpoolToDisk

*Flush out to disk our filled-up handle memory:
PutDoFlush					jsr			PutDoFlushSubr
							bcs			PutExit1							;err if disk full?!!
							bra			PutContAfterFlush					;else, continue

*The following is a subroutine so it can also be used by SpoolFinishPut:
PutDoFlushSubr				lda			SpoolFileDescriptor					;ref_num -> block...
							sta			PutWriteParamsRefNum
							lda			SpoolHandle+0						;deref handle -> block...
							sta			ParamLongA+0
							lda			SpoolHandle+2
							sta			ParamLongA+2
							lda			[ParamLongA]						;get ptr lo word...
							sta			PutWriteParamsDataPtr+0
							ldy			#2									;get ptr hi word...
							lda			[ParamLongA],y
							sta			PutWriteParamsDataPtr+2
							ldy			#4									;lock for OS call...
							lda			[ParamLongA],y
							ora			#$8000
							sta			[ParamLongA],y
							lda			SpoolHandlePos+0					;pos (length) -> block...
							sta			PutWriteParamsDataLen+0
							lda			SpoolHandlePos+2
							sta			PutWriteParamsDataLen+2
							_WriteGS	PutWriteParams
							pha												;save acc error status
							ldy			#4									;unlock handle...
							lda			[ParamLongA],y
							and			#$7FFF
							sta			[ParamLongA],y
							pla												;restore err status
							cmp			#1									;restore carry too
							rts

*Set our pointers to reflect that we can re-use our handle memory now:
PutContAfterFlush			stz			SpoolHandlePos						;pos = 0...
							stz			SpoolHandlePos+2
							pha												;free = GetHandleSize...
							pha
							pushlong	SpoolHandle
							_GetHandleSize
							pulllong	SpoolHandleFree

*If we have enough memory to handle store-request into our now-reusable handle-memory, do it:
							lda			ParamLongB+2						;how much we need hi word
							cmp			SpoolHandleFree+2					;cmp with what we have
							beq			PutTryStoreII1						;equal: test lo words
							bcs			PutDirectToDisk						;greater: still not enuf
PutTryStoreIIOk				brl			PutStoreMemSuccess					;less: go store it!
PutTryStoreII1				lda			ParamLongB							;how much we need lo word
							cmp			SpoolHandleFree						;cmp with what we have
							bcc			PutTryStoreIIOk						;less: go store it!

*We flushed our buffer to disk but still can't handle data store request; so save directly to disk:
PutDirectToDisk				lda			SpoolFileDescriptor					;ref_num -> block...
							sta			PutWriteParamsRefNum
							lda			ParamLongC+0						;user's ptr -> block...
							sta			PutWriteParamsDataPtr+0
							lda			ParamLongC+2
							sta			PutWriteParamsDataPtr+2
							lda			ParamLongB+0						;user's len -> block...
							sta			PutWriteParamsDataLen+0
							lda			ParamLongB+2
							sta			PutWriteParamsDataLen+2
							_WriteGS	PutWriteParams
							bcs			PutExit2							;err, exit with acc set			
							brl			PutIncDataLenSuccess				;inc and exit no err
PutExit2					rts

*Create-call parameter block for GS/OS:
PutCreateParams				dc.w		2									;pCount
PutCreateParamsFileNamePtr	dc.l		0									;pathnm ptr: input
							dc.w		%10000011							;access: --------Drb--iWR
							
*Open-call parameter block for GS/OS:
PutOpenParams				dc.w		2									;pCount
PutOpenParamsRefnum			dc.w		0									;ref_num: result
PutOpenParamsFileNamePtr	dc.l		0									;pathnm ptr: input

*Write-call parameter block for GS/OS:
PutWriteParams				dc.w		5									;pCount
PutWriteParamsRefNum		dc.w		0									;ref_num: input
PutWriteParamsDataPtr		dc.l		0									;data_buffer: input
PutWriteParamsDataLen		dc.l		0									;request_count: input
							dc.l		0									;transfer_count: result
							dc.w		0									;cache_priority: input
							
*DInfo-call parameter block for GS/OS:
PutDInfoParams				dc.w		2									;pCount
							dc.w		1									;dev_num: input: 1=boot
							dc.l		PutDevName							;dev_name outbuff: input
							
*Device name storage buffer:
PutDevName					dc.w		36									;buffer length
PutDevName2					dc.w		0									;string length
							ds.b		32									;buffer for device name

*Volume-call parameter block for GS/OS:
PutVolumeParams				dc.w		5									;pCount
							dc.l		PutDevName2							;dev_name: input
							dc.l		PutVolName							;vol_name outbuff: input
							dc.l		0									;total blocks: result
							dc.l		0									;free blocks: result
PutVolumeParamsFstID		dc.w		0									;fst_id: result

*Volume name storage buffer:
PutVolName					dc.w		36									;buffer length
PutVolName2					dc.w		0									;string length
							ds.b		32									;buffer for volume name

*FST-specific GetUserPath parameter block for GS/OS:
PutGetUsrPathParams			dc.w		3									;pCount
							dc.w		$000D								;fst_id: inp: appleshare
							dc.w		8									;cmd: input: getuserpath
PutGetUsrPathParamsPfxPtr	dc.l		0									;prefix_ptr: result

							









*
*SPOOLSTARTGET: Prepare to retrieve data. Call this before using SPOOLGET; ACC->Err:
*
							export		SpoolStartGet

*SpoolHandlePos = 0; Will be used for offset into handle if spooled to memory:
SpoolStartGet				stz			SpoolHandlePos+0			;this will be used for offset...
							stz			SpoolHandlePos+2			;into handle, if not to-disk

*SpoolHandleFree = SpoolDataLen; Will be used to check space left in playback:
							lda			SpoolDataLen+0				;this wil be used for making...
							sta			SpoolHandleFree+0			;sure caller doesn't request...
							lda			SpoolDataLen+2				;more data than stored. note...
							sta			SpoolHandleFree+2			;"misuse" of SpoolHandleFree

*If we never went to disk, done:
							lda			SpoolToDisk					;did we ever go to disk?
							beq			StartGetInitMark			;no, and leave 0 in acc for exit

*We spooled, so open the current file for reading:
							lda			SpoolFileNamePtr+0			;put pointer to pathname
							sta			StartGetOpenParamsNamePtr+0	;...into parameter block.  This
							lda			SpoolFileNamePtr+2			;pathname might be ours or
							sta			StartGetOpenParamsNamePtr+2	;the user's
							_OpenGS		StartGetOpenParams
							bcs			StartGetExitError			;exit with acc set if error
							lda			StartGetOpenParamsRefNum	;get ref_num (file descriptor)
							sta			SpoolFileDescriptor
							lda			#0							;error didn't happen
StartGetInitMark			brl			SpoolMarkGet				;exit to init mark/restore call
StartGetExitError			rts

*Open-call parameter block for GS/OS:
StartGetOpenParams			dc.w		2							;pCount
StartGetOpenParamsRefNum	dc.w		0							;ref_num: result
StartGetOpenParamsNamePtr	dc.l		0							;pathname ptr: input






*
*SPOOLFINISHGET: Finished retrieving data. Call when done using SPOOLGET; ACC->Err:
*
							export		SpoolFinishGet

*Decide if we went to disk or memory:
SpoolFinishGet				lda			SpoolToDisk
							bne			FinishGetWentDisk

*Went to memory only, so deallocate handle and user ID:
							pushlong	SpoolHandle
							_DisposeHandle
							pha										;save error status if any
							pushword	SpoolPID
							_DeleteID
							pla										;restore error status
							rts										;exit with error status in acc

*Went to disk, so close the file:
FinishGetWentDisk			lda			SpoolFileDescriptor			;put refnum -> block
							sta			FinishGetCloseParamsRefNum
							_CloseGS	FinishGetCloseParams		;make the OS call
							pha										;save error status

*Now delete the file:
							lda			SpoolFileNamePtr+0			;put filename ptr -> block
							sta			FinishGetDestParamsFNameP+0
							lda			SpoolFileNamePtr+2
							sta			FinishGetDestParamsFNameP+2
							_DestroyGS	FinishGetDestParams			;make the OS call
							bcs			FinishGetDestroyErr			;branch if error from DESTROY
							pla										;else remember CLOSE err status
							rts										;and exit
FinishGetDestroyErr			plx										;dump CLOSE err status
							rts										;and exit with DESTROY err status
							
*Close-call parameter block for GS/OS:
FinishGetCloseParams		dc.w		1							;pCount
FinishGetCloseParamsRefNum	dc.w		0							;refNum: input

*Destroy-call parameter block for GS/OS:
FinishGetDestParams			dc.w		1							;pCount
FinishGetDestParamsFNameP	dc.l		0							;pathname: input






*
*SPOOLGET: Retrieves data. Where->ParamLongC; NumBytesWanted->ParamLongB; ACC->Err ($FFFF=end data):
*
							export		SpoolGet
							
*Skip most of this code if the request is for zero bytes:
SpoolGet					lda			ParamLongB+0
							ora			ParamLongB+2
							bne			GetGo1
							rts											;exit with 0 in ACC

*Make sure there is enough data left to handle the caller's request:
GetGo1						lda			ParamLongB+2					;compare hi words
							cmp			SpoolHandleFree+2
							beq			GetCmpLo						;equal, go compare lo words
							bcc			GetCheckSource					;less, go do it
GetEndOfData				lda			#$FFFF							;our signal for end of data
							rts
GetCmpLo					lda			ParamLongB						;compare lo words
							cmp			SpoolHandleFree
							beq			GetCheckSource					;equal, ok
							bcs			GetEndOfData					;greater, not ok

*Decide if the data is on disk or in memory:
GetCheckSource				lda			SpoolToDisk
							bne			GetFromDisk

*Data in memory; deref+add offset and blockmove the data; no need to lock because no OS calls:
							lda			SpoolHandle						;dereference...
							sta			ParamLongA
							lda			SpoolHandle+2
							sta			ParamLongA+2
							clc
							lda			[ParamLongA]					;get pointer lo word
							adc			SpoolHandlePos					;add handle position lo
							tax
							ldy			#2
							lda			[ParamLongA],y					;get pointer hi word
							adc			SpoolHandlePos+2				;add handle position hi
							pha											;hi word source
							phx											;lo word source
							pushlong	ParamLongC						;destination
							pushlong	ParamLongB						;count
							_BlockMove
							clc											;inc handlepos...
							lda			SpoolHandlePos
							adc			ParamLongB
							sta			SpoolHandlePos
							lda			SpoolHandlePos+2
							adc			ParamLongB+2
							sta			SpoolHandlePos+2
							bra			GetDecExitSuccess

*Data on disk; just read requested bytes.  GS/OS's caching will help performance here:
GetFromDisk					lda			SpoolFileDescriptor				;ref_num...
							sta			GetReadParamsRefNum				;-> block
							lda			ParamLongC+0					;request buffer...
							sta			GetReadParamsBuffPtr+0			;-> block
							lda			ParamLongC+2
							sta			GetReadParamsBuffPtr+2
							lda			ParamLongB+0					;request length...
							sta			GetReadParamsCount+0			;-> block
							lda			ParamLongB+2
							sta			GetReadParamsCount+2
							_ReadGS		GetReadParams
							bcs			GetRts1							;err, exit with acc set

*Successful exit in both cases; dec SpoolHandleFree, which is relevant even if reading from disk:
GetDecExitSuccess			sec
							lda			SpoolHandleFree					;subtract lo word
							sbc			ParamLongB
							sta			SpoolHandleFree
							lda			SpoolHandleFree+2				;subtract hi word
							sbc			ParamLongB+2
							sta			SpoolHandleFree+2
							lda			#0								;no error
GetRts1						rts

*Read-call parameter block for GS/OS:
GetReadParams				dc.w		5								;pCount
GetReadParamsRefNum			dc.w		0								;ref_num: input
GetReadParamsBuffPtr		dc.l		0								;data_buffer: input
GetReadParamsCount			dc.l		0								;request_count: input
							dc.l		0								;transfer_count: result
							dc.w		1								;cache_priority






*
*SPOOLMARKGET: Sets mark in spool data to which we can come back later.  Use only during playback:
*
							export		SpoolMarkGet

*Save current position:
SpoolMarkGet				lda			SpoolHandlePos+0
							sta			SpoolMarkHandlePos+0
							lda			SpoolHandlePos+2
							sta			SpoolMarkHandlePos+2

*Save current space left:
							lda			SpoolHandleFree+0
							sta			SpoolMarkHandleFree+0
							lda			SpoolHandleFree+2
							sta			SpoolMarkHandleFree+2

*If we didn't go to disk, we're done:
							lda			SpoolToDisk
							beq			MarkGetDone

*Save current file pointer location:
							lda			SpoolFileDescriptor
							sta			MarkGetParamsRefNum
							_GetMarkGS	MarkGetParams
							lda			MarkGetParamsPosition+0
							sta			SpoolMarkDiskPos+0
							lda			MarkGetParamsPosition+2
							sta			SpoolMarkDiskPos+2

*Exit:							
MarkGetDone					rts

*GetMark-call parameter block for GS/OS:
MarkGetParams				dc.w		2								;pCount
MarkGetParamsRefNum			dc.w		0								;ref_num: input
MarkGetParamsPosition		dc.l		0								;position: result







*
*SPOOLRETURNTOMARKGET: Restores position to mark set above. Only for playback:
*
							export		SpoolReturnToMarkGet

*Restore previous position:
SpoolReturnToMarkGet		lda			SpoolMarkHandlePos+0
							sta			SpoolHandlePos+0
							lda			SpoolMarkHandlePos+2
							sta			SpoolHandlePos+2

*Restore previous space left:
							lda			SpoolMarkHandleFree+0
							sta			SpoolHandleFree+0
							lda			SpoolMarkHandleFree+2
							sta			SpoolHandleFree+2

*If we didn't go to disk, we're done:
							lda			SpoolToDisk
							beq			MarkReturnDone

*Restore previous file pointer location:
							lda			SpoolFileDescriptor
							sta			MarkReturnParamsRefNum
							lda			SpoolMarkDiskPos+0
							sta			MarkReturnParamsPosition+0
							lda			SpoolMarkDiskPos+2
							sta			MarkReturnParamsPosition+2
							_SetMarkGS	MarkReturnParams

*Exit:							
MarkReturnDone				rts

*SetMark-call parameter block for GS/OS:
MarkReturnParams			dc.w		3								;pCount
MarkReturnParamsRefNum		dc.w		0								;ref_num: input
							dc.w		0								;base: input
MarkReturnParamsPosition	dc.l		0								;position: input

							




							
*
*DATA: Static globals which needs to be preserved across calls to these routines:
*Note: SpoolDataSize is kept valid even if spooling is going to disk!
*
							export		SpoolFileNamePtr					;user modifyable
							export		SpoolMemInc							;user modifyable
							export		SpoolMemLeftLimit					;user modifyable
SpoolDataLen				dc.l		0									;total length of data
SpoolHandle					dc.l		0									;handle to data
SpoolHandleFree				dc.l		0									;space left in handle
SpoolHandlePos				dc.l		0									;current data position
SpoolMarkHandlePos			dc.l		0									;for mark/return
SpoolMarkHandleFree			dc.l		0									;for mark/return
SpoolMarkDiskPos			dc.l		0									;for mark/return
SpoolMemInc					dc.l		0									;amount to grow handle
SpoolMemLeftLimit			dc.l		0									;go-to-disk threshold
SpoolToDisk					dc.w		0									;1=if spooling to disk
SpoolFileDescriptor			dc.w		0									;"ref_num" for GS/OS
SpoolPID					dc.w		0									;user ID for malloc calls
SpoolFileNamePtr			dc.l		0									;ptr to actual spool name

SpoolFileName				dc.w		SpoolFileNameEnd-SpoolFileNameStart	;our default spool name
SpoolFileNameStart			dc.b		'*/SYSTEM/DRIVERS/TMP.'				;this part stays same
SpoolFileNameUnique			dc.b		'XXXX'								;this gets rand suffix
SpoolFileNameEnd

SpoolNetFileName			dc.w		0									;gets built-up name
							ds.b		80




							
							endproc
							end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/LW/dialogdata.asm b/IIGS.601.SRC/GSToolbox/PrinterDrivers/LW/dialogdata.asm
new file mode 100644
index 0000000..0fed03b
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/LW/dialogdata.asm
@@ -0,0 +1 @@
+	STRING ASIS
	BLANKS OFF
	
	include 'm16.util'
	include 'e16.dialog'


;---------------------------------------------------------
;  Laserwriter Driver Version 3.3
;  Copyright Apple Computer, Inc. 1986-92
;  All rights reserved.
;---------------------------------------------------------

*******************************************************************************
*
* Revision history (none of these files have one!)
*
* Before 7/2/93 -- everyone else
* Everything else
*
*******************************************************************************
*
* BEGIN 6.0.1
*
* 7/3/92	Matt Deatherage
*
* Added "JobNameStr", "NoNetworkStr" and "CloseQuoteStr" so we can draw
* the name of the chosen printer in the Job dialog so Greg Branche will
* be happy.  The French strings are in English because I don't speak French.
*
* 9-Jul-92 DAL
*
* Changed JobNameStr to have 33 bytes after it so we can build the rest
* of the string  LaserWriter ÒblahÓ there.
*
*******************************************************************************



;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

	IMPORT screenport

;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------



US	equ 1
FR	equ 2
Pays	equ US




	EXPORT DialogData     
DialogData	PROC
	EXPORT OKSTR
	EXPORT NAMESTR
	EXPORT CANCELSTR
	EXPORT P1STR
	EXPORT P2STR
	EXPORT P3STR
	EXPORT P3STR
	EXPORT P4STR
	EXPORT P4STR
	EXPORT SPE1STR
	EXPORT SPE1STR
	EXPORT SPE2STR
	EXPORT SPE2STR
	EXPORT VS1STR
	EXPORT VS1STR
	EXPORT VS2STR
	EXPORT VS2STR
	EXPORT VS3STR
	EXPORT VS3STR
	EXPORT NAMESTR
	EXPORT NAMESTR
	export colonstr
	EXPORT OKSTR
	EXPORT OKSTR
	EXPORT CANCELSTR
	EXPORT CANCELSTR
	EXPORT PR1STR
	EXPORT PR1STR
	EXPORT PR2STR
	EXPORT PR2STR
	EXPORT PF1STR
	EXPORT PF1STR
	EXPORT PF2STR
	EXPORT PF2STR
	EXPORT DEFAULTCOPIE
	EXPORT DEFAULTCOPIE
	 
	EXPORT JobNameStr
	EXPORT CloseQuoteStr
	EXPORT NoNetworkStr

nullevent	equ 0
mousedown	equ 1
mouseup	equ 2
keydown	equ 3
autokey	equ 5
updtevt	equ 6
activevt	equ 8
switchevt	equ 9
deskaccevt	equ 10
deviceevt	equ 11
vr	equ  8
hr	equ  10
StyleUPLy	equ  0
StyleUPLx	equ  0
StyleLWRy	equ  145
JobLWRy	equ  145-33
StyleLWRx	equ  300

 
	IF Pays=US GOTO .US
	IF Pays=FR GOTO .fr
			   
	   
.US

	EXPORT BrText
BrText	DC.B $0D,$0D
	DC.B 'The value for Reduction is'
	DC.B $0D
	DC.B 'out-of-range; it will be replaced'
	DC.B $0D
	DC.B 'with the closest allowed value.'
	DC.B $0D
	EXPORT BrTextEnd
BrTextEnd

SlashStr	str '/'
colonstr	str ':'
namestr	str 'LaserWriter'

JobNameStr	str 'LaserWriter Ò'
	ds.b 33
NoNetworkStr	str 'No networkÑnot supported'
CloseQuoteStr	str 'Ó'

Paperstr	str 'Paper:'
P1str	str 'US Letter'
P2str	str 'US Legal'
p3str	str 'A4 Letter'
p4str	str 'B5 Letter'
SpeStr	str 'Printer Effects:'
Spe1str	str 'Smoothing?'
Spe2str	str 'Font Substitution?'
VertSizeStr	str 'Vertical Sizing:'
VS1str	str 'Normal'
VS2str	str 'Intermediate'
VS3str	str 'Condensed'
Orientstr	str 'Orientation:'
Okstr	str 'OK'
Cancelstr	str 'Cancel'
ReduceStr	str 'Reduce or'
EnlargeStr	str 'Enlarge:'
pcentStr	str '%'
releaseStr	str 'v3.3'
Pagestr	str 'Pages:'
pr1str	str 'All'
pr2str	str 'From:'
pr3str	str 'To:'
copstr	str 'Copies:'
PFeedstr	str 'Paper Source:'
Pf1str	str 'Paper Tray'
Pf2str	str 'Manual Feed'

	EXPORT InfoStrPrep
InfoStrPrep	DC.B EndInfoStrPrep-InfoStrPrep-1
	DC.B 'Preparing Data ...'
	DC.B $0D
	EXPORT EndInfoStrPrep
EndInfoStrPrep 
	EXPORT CreatePSStr
CreatePSStr	DC.B EndCreatePSStr-CreatePSStr-1
	DC.B 'Creating PostScript file ...'
	DC.B $0D
	EXPORT EndCreatePSStr
EndCreatePSStr
	GOTO .suite

.FR
	EXPORT BrText
BrText	DC.B $0D,$0D
	DC.B 'The value for Reduction is'
	DC.B $0D
	DC.B 'out-of-range; it will be replaced'
	DC.B $0D
	DC.B 'with the closest allowed value.'
	DC.B $0D
	EXPORT BrTextEnd
BrTextEnd

SlashStr	str '/'
namestr	str 'LaserWriter'

Jobnamestr	str 'LaserWriter Ò'
	ds.b 33
NoNetworkStr	str 'No networkÑnot supported'	;Translate to French!

CloseQuoteStr	str 'Ó'
Paperstr	str 'Papier:'
P1str	str 'Letter US'
P2str	str 'Legal US'
p3str	str 'Letter A4'
p4str	str 'Lettre B5'
SpeStr	str 'Effets speciaux:'
Spe1str	str 'Lissage ?'
Spe2str	str 'Substitution des Fonts ?'
VertSizeStr	str 'Ajustement Vertical:'
VS1str	str 'Normal'
	EXPORT VS2str
VS2str	DC.B 9
	DC.B 'Compress'
	DC.B $8e
	EXPORT VS3str
VS3str	DC.B 14
	DC.B $88
	DC.B ' la Macintosh'
Orientstr	str 'Orientation'
Okstr	str 'OK'
Cancelstr	str 'Annuler'
ReduceStr	str 'Reduire ou'
EnlargeStr	str 'Elargir:'
pcentStr	str '%'
releaseStr	str 'v3.3'
Pagestr	str 'Pages:'
pr1str	str 'Toutes'
pr2str	str 'De:'
	EXPORT pr3str
pr3str	DC.B 1
	DC.B $88
copstr	str 'Copies:'
PFeedstr	str 'Provenance du papier:'
Pf1st	str 'Cassette'
Pf2str	str 'Manuelle'
	EXPORT InfoStrPrep
InfoStrPrep	DC.B EndInfoStrPrep-InfoStrPrep-1
	DC.B 'Preparation de l''impression...'
	DC.B $0D
	EXPORT EndInfoStrPrep
EndInfoStrPrep
	EXPORT CreatePSStr
CreatePSStr	DC.B EndCreatePSStr-CreatePSStr-1
	DC.B 'Creating PostScript file ...'
	DC.B $0D
	EXPORT EndCreatePSStr
EndCreatePSStr

.suite

	EXPORT buttonstate
buttonstate	DS.B 2*16
	EXPORT eventrecord
eventrecord
	EXPORT evtwhat
evtwhat	DS.B 2
	EXPORT evtmsg
evtmsg	DS.B 4
	EXPORT evtwhen
evtwhen	DS.B 4
	EXPORT evtwhere
evtwhere
	EXPORT evty
evty	DS.B 2
	EXPORT evtx
evtx	DS.B 2
	EXPORT evtmods
evtmods	DS.B 2

	EXPORT StyleRect
StyleRect	DC.W 20,170,165,470
	EXPORT StyleRect2
StyleRect2	DC.W 20,170,165,470
	EXPORT JobRect
JobRect	DC.W 20,170,165-33,470

	EXPORT BPOKrect
BPOKrect	DC.W 100-20,300-72,100-6,300-16

	EXPORT pBadRedPort
pBadRedPort	DS.B 4

	EXPORT BrTextLength
BrTextLength	DC.W BrTextEnd-BrText

	EXPORT BPTextRect
BPTextRect	DC.W 4,6,100-20-4,300-6
	EXPORT BadReduRect
BadReduRect	DC.W 20,10,20+100,310

	EXPORT l1
l1	DC.W 15,6
	EXPORT l2
l2	DC.W 15,stylelwrx-6

	EXPORT P1rect
P1rect	DC.W 27-vr,72-5-hr,29,160
	EXPORT P2rect
P2rect	DC.W 38-vr,72-5-hr,40,160
	EXPORT P3rect
P3rect	DC.W 27-vr,172-5-hr,29,290
	EXPORT P4rect
P4rect	DC.W	38-vr,172-5-hr,40,290

	EXPORT s1rect
s1rect	DC.W stylelwry-32-vr,6,stylelwry-30,150
	EXPORT s2rect
s2rect	DC.W stylelwry-21-vr,6,stylelwry-19,150
	EXPORT VS1rect
VS1rect	DC.W 56,155,66,300
	EXPORT VS2rect
VS2rect	DC.W 67,155,77,300
	EXPORT VS3rect
VS3rect	DC.W 78,155,88,300

	EXPORT o1rect
o1rect	DC.W 48,10,48+29,40
	EXPORT o2rect
o2rect	DC.W 48,47,48+29,77

	EXPORT okrect
okrect	DC.W StyleLwry-5-13,stylelwrx-65,StyleLwry-5,stylelwrx-9
	EXPORT Cancelrect
Cancelrect	DC.W StyleLwry-5-13,stylelwrx-145,StyleLwry-5,stylelwrx-75

	EXPORT Istrnum
Istrnum	DC.W 8
	EXPORT Istrlist
Istrlist	DC.L releasestr
	DC.L paperstr
	DC.L spestr
	DC.L Orientstr
	DC.L VertSizeStr
	DC.L ReduceStr
	DC.L EnlargeStr
	DC.L PcentStr

	export namepos
namepos	dc.w 13,6


	EXPORT Iposlist
Iposlist

	EXPORT releasepos
releasepos	DC.W 13,Stylelwrx-37
	EXPORT Paperpos
Paperpos	DC.W 27,6
	EXPORT Spepos
Spepos	DC.W Stylelwry-46,6
	EXPORT Orientpos
Orientpos	DC.W 50,6
	EXPORT VSPos
VSPos	DC.W 50,140
	EXPORT ReducePos
ReducePos	DC.W Stylelwry-41,stylelwrx-130
	EXPORT EnlargePos
EnlargePos	DC.W Stylelwry-32,stylelwrx-130
	EXPORT PcentPos
PcentPos	DC.W Stylelwry-35,stylelwrx-14

	EXPORT ReduceRect
ReduceRect	DC.W Stylelwry-33-15,stylelwrx-17-38,Stylelwry-33,stylelwrx-17

	EXPORT Astrnum
Astrnum	DC.W 10
	EXPORT Astrlist
Astrlist	DC.L p1str
	DC.L p2str
	DC.L p3str
	DC.L p4str
	DC.L spe1str
	DC.L spe2str
	DC.L VS1str
	DC.L VS2str
	DC.L Vs3str

	EXPORT ARectlist
ARectlist	DC.L p1Rect
	DC.L p2Rect
	DC.L p3Rect
	DC.L p4Rect
	DC.L s1Rect
	DC.L s2Rect
	DC.L vs1Rect
	DC.L vs2Rect
	DC.L vs3Rect

	EXPORT ptrList
ptrList	DS.B 4*16


	EXPORT JArectlist
JArectlist	DC.L pr1rect	3
	DC.L pr2rect	4
	DC.L pf1rect	5
	DC.L pf2rect	6

	EXPORT Jistrnum
Jistrnum	DC.W 5
	EXPORT Jistrlist
Jistrlist	DC.L releasestr
	DC.L pagestr
	DC.L pr3str
	DC.L copstr
	DC.L pFeedstr

	EXPORT JAstrnum
JAstrnum	DC.W 3
	EXPORT JAstrlist
JAstrlist	DC.L pr1str
	DC.L pr2str
	DC.L pf1str
	DC.L pf2str


	EXPORT Jnamepos
Jnamepos	DC.W 13,6

	EXPORT JIposlist
JIposlist
	EXPORT Jreleasepos
Jreleasepos	DC.W 13,Stylelwrx-37
	EXPORT JPagePos
JPagePos	DC.W 59-33,6
	EXPORT Jpr3Pos
Jpr3Pos	DC.W 84-44,200
	EXPORT JcopPos
JcopPos	DC.W 87-33,6
	EXPORT JPfeedPos
JPfeedPos	DC.W 100-33,6

	EXPORT FromRect
FromRect	DC.W 73-44,150,73-44+15,150+40
	EXPORT ToRect
ToRect	DC.W 73-44,230,73-44+15,230+40
	EXPORT CopieRect
CopieRect	DC.W 87-44,60,87-44+15,60+40
	EXPORT jokrect
jokrect	DC.W JobLwry-5-13,stylelwrx-65,JobLwry-5,stylelwrx-9
	EXPORT jCancelrect
jCancelrect	DC.W JobLwry-5-13,stylelwrx-145,JobLwry-5,stylelwrx-75

DefaultCopie	str '1'

	EXPORT Pr1rect
Pr1rect	DC.W 70-44-vr,100-5-hr,72-44,125
	EXPORT Pr2Rect
Pr2Rect	DC.W 84-44-vr,100-5-hr,86-44,125
	EXPORT pf1rect
pf1rect	DC.W 112-33-vr,100-5-hr,114-33,250
	EXPORT pf2rect
pf2rect	DC.W 123-33-vr,100-5-hr,125-33,250

	EXPORT pixel320
pixel320	DC.W 26
	EXPORT pixel640
pixel640	DC.W 52
	EXPORT pixelwidth
pixelwidth	DS.B 2
	EXPORT PP_portrait
PP_portrait	DC.L portrait_p
	DC.L screenport
	DC.L portrait_r
	DC.L dstbitr1
	DC.W 0
	DC.L 0

	EXPORT dstbitr1
dstbitr1	DC.W 59,12,59+25,38+26
	EXPORT dstbitf1
dstbitf1	DC.W 59-1,12-2,59+25+2,38+26+2
	EXPORT portrait_p
portrait_p	DC.W $80
	DC.L portrait_bit
	DC.W 13
	DC.W 0,0,25,52
	EXPORT portrait_r
portrait_r	DC.W 0,0,25,52

	EXPORT PP_landsc
PP_landsc	DC.L landsc_p
	DC.L screenport
	DC.L landsc_r
	DC.L dstbitr2
	DC.W 0
	DC.L 0

	EXPORT dstbitr2
dstbitr2	DC.W 59,49+26,59+25,75+52
	EXPORT dstbitf2
dstbitf2	DC.W 59-1,49+26-2,59+25+2,75+52+2
	EXPORT landsc_p
landsc_p	DC.W $80
	DC.L landsc_bit
	DC.W 13
	DC.W 0,0,25,52
	EXPORT landsc_r
landsc_r	DC.W 0,0,25,52

	EXPORT portrait_bit
portrait_bit	DC.B $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
	DC.B $FF,$F0,$00,$00,$00,$00,$00,$00,$0F,$FF,$FF,$FF,$FF
	DC.B $FF,$F0,$FF,$FF,$FF,$FF,$FF,$FF,$00,$FF,$FF,$FF,$FF
	DC.B $FF,$F0,$FF,$FF,$FF,$F0,$0F,$FF,$0F,$0F,$FF,$FF,$FF
	DC.B $FF,$F0,$FF,$FF,$FF,$0F,$F0,$FF,$0F,$F0,$FF,$FF,$FF
	DC.B $FF,$F0,$FF,$FF,$FF,$0F,$F0,$FF,$00,$00,$0F,$FF,$FF
	DC.B $FF,$F0,$FF,$FF,$FF,$F0,$0F,$FF,$FF,$FF,$0F,$FF,$FF
	DC.B $FF,$F0,$FF,$FF,$F0,$0F,$F0,$0F,$FF,$FF,$0F,$FF,$FF
	DC.B $FF,$F0,$FF,$FF,$0F,$FF,$FF,$F0,$FF,$FF,$0F,$FF,$FF
	DC.B $FF,$F0,$FF,$FF,$0F,$0F,$F0,$F0,$FF,$FF,$0F,$FF,$FF
	DC.B $FF,$F0,$FF,$FF,$0F,$0F,$F0,$F0,$FF,$FF,$0F,$FF,$FF
	DC.B $FF,$F0,$FF,$FF,$0F,$0F,$F0,$F0,$FF,$FF,$0F,$FF,$FF
	DC.B $FF,$F0,$FF,$FF,$0F,$0F,$F0,$F0,$FF,$FF,$0F,$FF,$FF
	DC.B $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	DC.B $0F,$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$F0,$F0
	DC.B $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$F0
	DC.B $0F,$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$F0,$F0
	DC.B $0F,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$F0,$00
	DC.B $0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF
	DC.B $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$FF
	DC.B $0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF
	DC.B $0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF
	DC.B $0F,$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF
	DC.B $0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF
	DC.B $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$FF

	EXPORT landsc_bit
landsc_bit	DC.B $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
	DC.B $FF,$F0,$00,$00,$00,$00,$00,$00,$0F,$FF,$FF,$FF,$FF
	DC.B $FF,$F0,$FF,$FF,$FF,$FF,$FF,$FF,$00,$FF,$FF,$FF,$FF
	DC.B $FF,$F0,$FF,$FF,$FF,$FF,$FF,$FF,$0F,$0F,$FF,$FF,$FF
	DC.B $FF,$F0,$00,$00,$00,$00,$FF,$FF,$0F,$F0,$FF,$FF,$FF
	DC.B $FF,$F0,$FF,$FF,$FF,$FF,$0F,$FF,$00,$00,$0F,$FF,$FF
	DC.B $FF,$F0,$00,$00,$00,$FF,$0F,$00,$FF,$FF,$0F,$FF,$FF
	DC.B $FF,$F0,$FF,$FF,$FF,$FF,$F0,$FF,$0F,$FF,$0F,$FF,$FF
	DC.B $FF,$F0,$FF,$FF,$FF,$FF,$F0,$FF,$0F,$FF,$0F,$FF,$FF
	DC.B $FF,$F0,$00,$00,$00,$FF,$0F,$00,$FF,$FF,$0F,$FF,$FF
	DC.B $FF,$F0,$FF,$FF,$FF,$FF,$0F,$FF,$FF,$FF,$0F,$FF,$FF
	DC.B $FF,$F0,$00,$00,$00,$00,$FF,$FF,$FF,$FF,$0F,$FF,$FF
	DC.B $FF,$F0,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$0F,$FF,$FF
	DC.B $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	DC.B $0F,$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$F0,$F0
	DC.B $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$F0
	DC.B $0F,$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$F0,$F0
	DC.B $0F,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$F0,$00
	DC.B $0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF
	DC.B $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$FF
	DC.B $0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF
	DC.B $0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF
	DC.B $0F,$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF
	DC.B $0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF
	DC.B $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$FF

* Data for the info dialogs 640
	EXPORT infoWidth320
infoWidth320	DC.W 300
	EXPORT infowidth640
infowidth640	DC.W 600
	EXPORT infoDPort
infoDPort	DS.B 4
	EXPORT InfoStrRect
InfoStrRect	DC.W 10,20,20,500
	EXPORT InfoStrPrint
InfoStrPrint	DC.B EndInfoStrPrint-InfoStrPrint-1
	DC.B '^0'
	DC.B $0D
	EXPORT EndInfoStrPrint
EndInfoStrPrint
	EXPORT InfoRect640
InfoRect640	DC.W 8,10,35,560
	EXPORT InfoRect320
InfoRect320	DC.W 4,5,35,280

	EXPORT AbortRect
AbortRect	DC.W 90,150,150,490
	EXPORT AbortDPort
AbortDPort	DS.B 4
	EXPORT IfCancelled
IfCancelled	DS.B 2
	EXPORT InfoWindow
InfoWindow
	EXPORT WinDef640
WinDef640	DC.W EndWDef640-WinDef640
	DC.W %0010000000100000  wFrame
	DC.L 0	wTitle
	EXPORT HdlDoc640
HdlDoc640	DC.L 0	wRefCon
	DC.W 0,0,0,0	wZoom
	DC.L 0	wColor
	DC.W 0	wYOrigin,wXOrigin
	DC.W 0
	DC.W 0	wDataH,wDataW
	DC.W 0
	DC.W 0	wMaxH,wMaxW
	DC.W 0
	DC.W 0	wScrollVer,wScrollHor
	DC.W 0
	DC.W 0	wPageVer,wPageHor
	DC.W 0
	DC.L 0	wInfoRefCon
	DC.W 0	wInfoHeight
	DC.L 0	wFrameDefProc
	DC.L 0	wInfoDefProc
	DC.L 0	wContDefProc
	EXPORT	InfoRect
InfoRect	DC.W 30,40,65,600
	DC.L $FFFFFFFF	wPlane
	DC.L 0	wStorage
	EXPORT EndWDef640
EndWDef640

	EXPORT CopieFinalValue
CopieFinalValue	DS.B 6
	EXPORT FromFinalValue
FromFinalValue	DS.B 6
	EXPORT ToFinalValue
ToFinalValue	DS.B 6
	EXPORT reduceFinalValue
reduceFinalValue	DS.B 6
	EXPORT Reducedefault
Reducedefault	DS.B 6


	ENDP

 	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/LW/gs.dict b/IIGS.601.SRC/GSToolbox/PrinterDrivers/LW/gs.dict
new file mode 100644
index 0000000..fce859e
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/LW/gs.dict
@@ -0,0 +1 @@
+**************************************************************************
*
* Miscellaneous notes and thoughts
*
**************************************************************************

; All procedures called from the driver requiring coordinates as input
;    parameters accepts them in y x order because that's how QuickDraw II
;    specifies them

; Advantage of listing all the fonts used at the beginning of the document:
;    font coordination only need to happen once for the entire document,
;    rather than being done each page it is used due to save and restores.


**************************************************************************
*
* Set up stuff
*
**************************************************************************
;-------------------------------------------------------------------------
; Set the packing capability if it exists on the printer
;
; is the key setpacking in the system dictionary?
; execute the array if packing capability exists
; save the current packing mode of the system for restoration when we're
;  done with our job
; turn on packing
;
systemdict /setpacking known
{/svpack currentpacking def
 true setpacking
}if

; ------------------------------------------------------------------------
; create our 200 entry dictionary and put all definition into our dict
;
/GSd 200 dict def
 GSd begin


*****************************************************************
*
* Global variables
*
*****************************************************************
;------------------------------------------------------------------------
; temp strings
; 
; 75 characters long
; 40 characters long
; 1 character long, initialized with a space
;
/tstr 75 string def
/ct 40 string def
/s1( )def

;------------------------------------------------------------------------
; temp matrices
;
/mtx matrix def
/mx1 matrix def

;------------------------------------------------------------------------
; temp arrays
; 
; 16 elements in array
;
/colorarray 16 array def

;------------------------------------------------------------------------
;
; Initialize flags and other variables
;
; Encode with Apple Encooding Vector flag, used in font building procedures
; screen length, used in line layout
; printer length, used in line layout
; 
/Fav T def
/snl 0 def
/prl 0 def


*****************************************************************
*
* Redefinition of PostScript operators for faster transmission
* or error recovery
*
*****************************************************************
; ------------------------------------------------------------------------
; Booleans
;
/T true def
/F false def

; ------------------------------------------------------------------------
; Definition procedures
;
/bdf {
      bind def
     } bind def
/xdf {
      exch def
     } bdf
/ldf {
      load def
     } bdf

; ------------------------------------------------------------------------
; Redefine divide to avoid dividing by zero
; operands are the same as those for the PostScript div
;
/dv {
      dup 0 ne
      {div}{pop}ifelse
     } bdf

*****************************************************************
*
* Status
*
*****************************************************************

; ------------------------------------------------------------------------
; LaserWriter:  -- "LW" T (remainder of string) or F
; checks if printer is a member of the LaserWriter family
;
; save the current state of VM
; look in the status dictionary for the printer type
; anchorsearch leaves both the remainder of the string and the pattern
;  on the stack if matched and the pattern if not matched, 
; make a copy of the boolean
; if matched, get rid of the pattern, leaving the boolean and remainder 
;  of string on the stack and move the savelevel to the top of stack
; if not, get rid of the original string and leave the boolean, and
;  move the savelevel to the top of stack
;
/LW {
     save
     statusdict /product get
     (LaserWriter)anchorsearch dup
      {exch pop 3 -1 roll}
      {exch pop exch}ifelse
     restore
    } bdf

;-----------------------------------------------------------
; Classic: -- "CL" boolean
; 
; return true if printer is a 23.0 ROM LaserWriter Classic
;
; find out if LaserWriter family
; if so, the string returned should be empty if it's classic, and
;  not empty if others. Leave this boolean on the stack as the result
; if not LaserWriter family, return false
;
/CL {
     LW
	  {length 0 eq}
	  {F}ifelse
	} bdf
	 
;-----------------------------------------------------------
; Plus: -- "PL" boolean
; 
; return true if printer is LaserWriter Plus
;
; find out if LaserWriter family
; if so, search the string for Plus
; make a copy of the boolean
; if it's found, get rid of the substrings that are returned and leave
;  true on the stack
; if not found, get rid of the original string and leave the false on stack
; if not LaserWriter family, return false
;
/PL {
     LW
	 {(Plus) search 
	  dup
	  {4 1 roll pop pop pop}
	  {exch pop}ifelse}
	 {F}ifelse
	} bdf

;-----------------------------------------------------------
; II family: (type str) "II" boolean
; 
; return true if printer is a LaserWriter II of the requested type NT or NTX
;
; find out if LaserWriter family
; if so, search for the requested type
;  if found, get rid of the pre string and the pattern
;  whether the post string is empty gives the real result
;  (NOTE: NT is found in NTX, but the post string is not empty, thus false)
;  if not found, get rid of the original string and leave the false on stack
; if not LaserWriter family, return false
;
/II {
     LW
	 {exch search
	  {pop pop 
	   length 0 eq}
	  {pop F}ifelse}
	 {pop F}ifelse
	} bdf

; ------------------------------------------------------------------------
; FreeVMemoryCheck: -- "vm" --
; checks amount of free virtual memory
;
; save the state of things
; get the status of the virtual memory results return are: level of save
;  nestings, bytes currently in used, and maximum bytes available
; maximum - used = free
; is free less than 50000 bytes?
; send a warning message if so
; get rid of level
; put things back the way we found it
;
/vm {
     save
     vmstatus
     exch sub
     50000 lt
      {(%%[Warning: The current document may exceed printer memory capacity.]%%)=
       flush}if
     pop
     restore
    } bdf

;-------------------------------------------------------------------------
; SpotFunction: gets the spot function for this printer's implementation
;
; get information involved with the current screen
; defines "spf" as spot function
; gets rid of angle and frequency returned from "currentscreen" call
;
; 7/3/92	MD	"currentscreen" on most level 2 printers returns a
;				halftone dictionary, which won't do as a function.
;				Instead, if 'currentscreen' returns a dictionary, we
;				check the type and extract the spotting function if
;				it's type 1.  If not, we use a default spotting function
;				we have hard-coded since we don't know where to get
;				the printer's.
;
; 11/13/92	MD  After calling currentscreen, we need a "dup" so the "eq"
;				test doesn't destroy the function on the stack.  Now we
;				have one.
;
mark
currentscreen dup type /dicttype eq      %% is the current screen a dictionary?

 { currentscreen begin HalftoneType 1 eq  %% if so, is HalfTone type == 1?

   { currentscreen /SpotFunction get end }  %% Yup, so get the spot function and end

   { {abs exch abs 2 copy add 1 gt 
     {1 sub dup mul exch 1 sub dup mul add 1 sub}
     {dup mul exch dup mul add 1 exch sub}
      ifelse} }                         %% no dict, so use this hard-coded default
	                                    %% spotting function from the Personal
										%% LaserWriter NTR proto board

	ifelse
  } if
  
/spf xdf                                %% store the function in /spf
cleartomark                             %% restore the PostScript stack

**************************************************************************
*
* Printing loop
*
**************************************************************************
;-------------------------------------------------------------------
;
; OpenDoc: -- "od" --				!!!!!!!!!!!!!!!!!
;
; calls page setup
; and transpose page
;
; leave these values on the stack for now
; get the current matrix
; use the values to do a transform
; swap x and y and get the arc tangent
; define "pa" as the angle
; ...
;
/od {
     psu
     tx
     1 0 mtx defaultmatrix dtransform exch atan
     /pa xdf
     newpath
     clippath
     mark
     {transform{itransform moveto}}
     {transform{itransform lineto}}
     {6 -2 roll transform
      6 -2 roll transform
      6 -2 roll transform
      {itransform 6 2 roll
       itransform 6 2 roll
       itransform 6 2 roll curveto}}
     {{closepath}}pathforall
     newpath
     counttomark array astore
     /gc xdf
     pop
     ct 39 0 put
    } bdf

;-------------------------------------------------------------------
; OpenPage: -- "op" --
;
; saves the current state of the virtual memory into the variable "ols"
; translate the origin to 0 0
; set the pen to 1 in vertical and horizontal direction
; move current point to 0 0
;;
/op {
     /ols save def
     0 0 translate
     1 1 pen
     0 0 moveto
     } bdf

;-------------------------------------------------------------------
; ClosePage: -- "cp" --
;
; calls showpage
; restores VM to original state saved in "ols"
;
/cp {
     showpage
     ols restore
    } bdf

;-------------------------------------------------------------------
; CloseDoc - not implemented, since it doesn't do anything at this
; time
;

**************************************************************************
*
* State saving stuff
*
**************************************************************************
;-------------------------------------------------------------------
; Move Up -- "up" --             !!!!!!!!!!!!
; Moves current state up one level, or rather, back one state
; 
;
		/up{currentpoint currentgray currentlinewidth currentlinecap
		 currentlinejoin currentdash snl prl pnsv pnsh colorarray
		 aload pop mtx currentmatrix aload pop mx1 aload pop fz fs
		 ols restore/fs
		 xdf/fz xdf mx1 astore pop}bdf
	
;-------------------------------------------------------------------
; Move Down -- "dn" --			!!!!!!!!!!!!!!
; Moves current state down one level, or rather, forward one state
; 
;
		/dn{/ols save def mx1 setmatrix newpath 0 0 moveto ct dup 39
		 get 0 exch getinterval cvx exec mtx astore setmatrix colorarray
		 astore pop/pnsh xdf/pnsv xdf/prl xdf/snl xdf setdash
		 setlinejoin setlinecap setlinewidth setgray moveto}bdf

**************************************************************************
*
* Page characteristics
*
**************************************************************************
; ------------------------------------------------------------------------
; PageSetUp: #copies manualFeedFlag smoothFlag portraitFlag paperRect scale
;  x&yResolution pageSizeSelection "psu" --
; Sets values for number of copies, manual or auto paper feed, smoothing,
; portrait or landscape, paper rectangle, x and y scaling, and page size.
;
; pgs - page selection size, 120th of inch
; pys, pxs - scale factors in y and x
;  .72 * scale / yRes
;  scale / xRes * .72
; ppr - paper rectangle, 4 element array
; Fpr - portrait flag
; Fsm - smoothing flag
; if manual feed is requested, turn manual feed on
; check if we dealing with an NTX,
;  (NOTE: NTX rev 1 boards print garbage if timer is set to anything more 
;   than 60 seconds)
; if not, set the timer to wait 5 minutes
; if so, do nothing, leave timer at default of 60 seconds
; set the wait timer to 1 hour before giving up on the user
; skip all this if auto feed
; store the given # of copies in /#copies in the userdict
;
/psu {
      /pgs xdf
      2 index .72 mul exch dv /pys xdf
      dv .72 mul /pxs xdf
      4 array astore /ppr xdf
      /Fpr xdf
      /Fsm xdf
      {statusdict begin
	   /manualfeed T def
	   (NTX)II not
	    {/manualfeedtimeout 300 def}if
	   end}if      
      userdict /#copies 3 -1 roll put
     } bdf

; ------------------------------------------------------------------------
; Transpose: -- "tx" --
; Transposes the current page into the correct position and orientation as
; defined by the global values set in psu.
; These are the various page sizes known.
;
; check if the paper size "note" is defined
; if pgs = 1680 (legal) and "note" is defined, then call PostScript's
;  legal paper definition
; if pgs = 1212 (B5) and "note" is defined, then call PostScript's note
;  paper definition and translate
;   otherwise just do the translation
; find out if "a4small" is defined
; if pgs = 1403 (A4) and "a4small" is defined, then call the a4small paper
;  definition
; if pgs = 1320 (letter) and "note" is defined, then call PostScript's note
;  definition
; scale by pxs and pys
; put paper rectangle on stack
; is portrait flag on?
; yep, translate to upper left corner of page, using -left and bottom
;  dimension of paper rectangle
; otherwise translate to upper right corner and rotate so that corner
;  becomes the top left
; do a 1 -1 scale so positive y is down the page
; put statusdict on dict stack
; check if waittimeout is less than 300 seconds
; if so, set it to 300 seconds
; pop the statusdict off the dict stack
;
/tx {
     userdict /note known
     pgs 1680 eq
     1 index and
     {legal}if
     pgs 1212 eq
     {dup {note}if
      54 32.4 translate}if
     pgs 1403 eq
     userdict /a4small known and
     {a4small}if
     pgs 1320 eq and
     {note}if
     pxs pys scale
     ppr aload pop
     Fpr
     {pop exch neg exch translate pop}
     {translate pop pop 270 rotate}ifelse
     1 -1 scale
     statusdict begin
     waittimeout 300 lt
     {/waittimeout 300 def}if
     end
     } bdf

;-------------------------------------------------------------------
; FramingRect: framingrectangle "fr" --
; Takes a framing rectangle and scales the current page into this rectangle
; (or vise versa depending on how you think about it).
;
; move origin to top left
; put paper rectangle on stack
; T L B R are elements of paper rectangle
; T' L' B' R' are elements of framing rectangle
; (R + L / (R' - L')) (B + T / (B' - T')) scale
;
/fr {
     3 index 3 index neg exch neg translate
     ppr aload pop
     3 -1 roll add
     3 1 roll
     exch add
     6 2 roll
     3 -1 roll sub
     3 1 roll
     exch sub
     3 1 roll
     exch 3 -1 roll dv
     3 1 roll
     dv
     exch
     scale
    } bdf

;-------------------------------------------------------------------
; Clip: (string) "kp" --				!!!!!!!!!!!!
;
; put the temp string ct on the stack
; leave the value 0 on the stack also
; move a copy of the parameter string to top of stack
; get its length
; move a copy of ct to top of stack
; put 39 on the stack
; move a copy of length to top of stack
; put the value length into the 39th element of the string ct
; get the substring of ct from 0 to the length
; copy the parameter string into this substring
; convert the string to be executable
; and execute it
;

/kp {
     ct
     0
     2 index
     length
     2 index
     39
     2 index
     put
     getinterval
     copy
     cvx
     exec
	 mx1 currentmatrix pop
    } bdf

/nc{currentpoint initclip newpath gc{dup type dup/arraytype eq
exch/packedarraytype eq or{exec}if}forall clip newpath moveto}bdf

;-------------------------------------------------------------------
; ExchangeTranslate: y x "xl" --
;
; negate x since the page has been set up with the origin at the top
;  left corner
; swap it to be the first parameter
; negate y
; do the translation of the origin
;
/xl {
     neg
     exch
     neg
     translate
    } bdf

;-------------------------------------------------------------------
; MoveTo: y x "mto" --
; executes PostScript "moveto" in the correct parameter order
;
; swap the y and x
; do a "moveto"
;
/mto {
      exch
      moveto
     } bdf

;-------------------------------------------------------------------
; PenMultiplier: =
; used to determine linewidth
;
; set default value to 1
;
/pnm 1 def

;-------------------------------------------------------------------
; SetPen: v h "pen" --
; sets linewidth as specified by x and pen multiplier
;
; multiply given x by multiplier
; make a copy of the result and use it to set the linewidth
; keep it in variable called pnsh (horizontal pen size)
; multiply given y by multiplier
; keep it in variable called pnsv (vertical pen size)
;
/pen {
      pnm mul
      dup setlinewidth
      /pnsh xdf
      pnm mul
      /pnsv xdf
     } bdf


*****************************************************************
*
* Font stuff
*
*****************************************************************
; ------------------------------------------------------------------------
; redefine for faster transmission
;
/ff /findfont ldf

; ------------------------------------------------------------------------
; Apple Encoding Vector:
; Font encoding vector for PostScript fonts to match Apple character set
;
; define the name "blank" as the same character as the Times-Roman "space"
;  CharStrings is a dictionary in the font dictionary
; define AVec as a 256 element array
; ???????????
; ???????????
; stores the previous two lines of stuff into the first 32 elements of array
; gets the next 96 elements out of the Times-Roman encoding dictionary of
;  the font and puts it in the corresponding spots in AVec
; puts quotesingle in 39th element and grave in the 96th
; the next 16 lines of 8 characters are the names of characters to go
;  into AVec
; put these 128 characters into the array starting at the 128th place
;
/blank /Times-Roman findfont /CharStrings get /space get def
/AVec 256 array def
/NUL/SOH/STX/ETX/EOT/ENQ/ACK/BEL/BS/HT/LF/VT/FF/CR/SO/SI
/DLE/DC1/DC2/DC3/DC4/NAK/SYN/ETB/CAN/EM/SUB/ESC/FS/GS/RS/US
AVec 0 32 getinterval astore pop
AVec 32/Times-Roman findfont/Encoding get
32 96 getinterval putinterval
AVec dup 39/quotesingle put 96/grave put
/Adieresis/Aring/Ccedilla/Eacute/Ntilde/Odieresis/Udieresis/aacute
/agrave/acircumflex/adieresis/atilde/aring/ccedilla/eacute/egrave
/ecircumflex/edieresis/iacute/igrave/icircumflex/idieresis/ntilde/oacute
/ograve/ocircumflex/odieresis/otilde/uacute/ugrave/ucircumflex/udieresis
/dagger/degree/cent/sterling/section/bullet/paragraph/germandbls
/registered/copyright/trademark/acute/dieresis/notequal/AE/Oslash
/infinity/plusminus/lessequal/greaterequal/yen/mu/partialdiff/summation
/product/pi/integral/ordfeminine/ordmasculine/Omega/ae/oslash
/questiondown/exclamdown/logicalnot/radical/florin/approxequal/Delta/guillemotleft
/guillemotright/ellipsis/blank/Agrave/Atilde/Otilde/OE/oe
/endash/emdash/quotedblleft/quotedblright/quoteleft/quoteright/divide/lozenge
/ydieresis/Ydieresis/fraction/currency/guilsinglleft/guilsinglright/fi/fl
/daggerdbl/periodcentered/quotesinglbase/quotedblbase/perthousand/Acircumflex/Ecircumflex/Aacute
/Edieresis/Egrave/Iacute/Icircumflex/Idieresis/Igrave/Oacute/Ocircumflex
/apple/Ograve/Uacute/Ucircumflex/Ugrave/dotlessi/circumflex/tilde
/macron/breve/dotaccent/ring/cedilla/hungarumlaut/ogonek/caron
AVec 128 128 getinterval astore pop

; ------------------------------------------------------------------------
; Re-encodeFont: newFontName oldFont AppleEncodeFlag "rf"
; re-encodes and renames a font to the given name
; All the fonts will need to be coordinated to have the Apple encoding.
;
; put bool param in Fav
; find the font
; is new name already in directory
; if so, clean stack and that's it
; if not, we've got work to do: find the size of this font's dictionary
;  def tmp to be same length as oldfont
;  call cf to copy all but /FID into new font dict and put Apple encoding
;   vector in
;  give the font the new name and put new font into the directory
;
;  support routines that have been incorporate into rf in line
;/du{FontDirectory 2 index known{pop pop F}
;   {dup length dict /tmp xdf cf T}ifelse}bdf
;/nf{{tmp definefont pop}if}bdf
;
/rf {
     /Fav xdf
	 ff
     FontDirectory 2 index known
     {pop pop}
     {dup length dict /tmp xdf
      cf
      tmp definefont pop}ifelse
    } bdf

; ------------------------------------------------------------------------
; CopyFont: fontdict "cf" --
; copies everything in the given font except for FontID into tmp
;
; check each key in the font to see if equal to FID
; if not FID, then copy it and its value to tmp
; if it is then clean stack
; checks to see if we want Apple encoding
; do so if true
;
/cf {
    {1 index /FID ne
     {tmp 3 1 roll put}
     {pop pop}ifelse}forall
    Fav
    {tmp /Encoding AVec put}if
    } bdf

; ------------------------------------------------------------------------
; GetFont: fontName "gf" --
; make a font using the specified font name and current size, sets it
; current
;
; get the font dictionary
; call msf (make and set font)
;
/gf {
     dup ff
     msf
    } bdf

; ------------------------------------------------------------------------
; Make and Set Font: fontName fontDict "msf" --
;
; convert the font name to a string object
; see if this string contains Shaston, i.e., a style of Shaston such as
;  bold, italics, etc.
; if it is Shaston, then use [1.75 0 "obl" -1 0 0], any other font uses
;  [1 0 "obl" -1 0 0]. "obl" is the angle used to create an italics, set 
;  at 0.212557. Note: There are three pops if true because "search"
;  leaves the substring before the matched, the matched substring and the
;  substring after the matched on the stack; whereas if no match is found,
;  only the original string is left on the stack.
; multiply the font size with the appropriate matrix
; use the matrix that is on the stack now to make a new font
; set this font current
;
/msf {exch tstr cvs
     (Shaston) search
     {pop pop pop [1.75} {pop [1} ifelse
     fz mul 0 obl fz neg 0 0]
     makefont setfont
    } bdf

; ------------------------------------------------------------------------
; SetFontStyle (and size): fontStyle fontSize "sfs"
;
; sets font style and size variables
;
/sfs {
      /fz xdf /fs xdf
     } bdf

; ------------------------------------------------------------------------
; Known (our version): fontName "kwn" fontName (T OR F) {true proc} 
; our own implemetation of known to put stuff we need on the stack
;
; make a copy of the name
; check to see if this font is the FontDirectory
; leaving the resulting boolean on the stack, put on the stack the proc to
;  be excuted if true; the proc gets the font dictionary
;
/kwn {
      dup
      FontDirectory exch known
      {ff}
     } bdf

; ------------------------------------------------------------------------
; InverseGray: -- "ig" --
; Sets the gray level to be the inverse of the current level
;
; 1 - currentgray --> if black, then white and vice versa; everything in
;  between will be in the same proportion but at the oppposite end of the
;  scale.
; set this level to be the current gray level
;
/ig {
     1 currentgray sub
     setgray
    } bdf

; ------------------------------------------------------------------------
; ConvertToString: fontName "cts" string string
; converts the given font name to a string object
;
; converts font name into a string object
; make a copy of the object
;
/cts {
      tstr cvs
      dup
     } bdf

; ------------------------------------------------------------------------
; ConvertToName: string index char(int) "ctn" fontName
; converts the string back into a name object
;
; put the character into the appropriate spot in the string
; convert to name object
;
/ctn {
      put
      cvn
     } bdf

; ------------------------------------------------------------------------
; SetxStyle: fontName(in form of /|______name) "sxs" fontName(with style)
; the following six procs sets the appropriate char in the font name
;
; converts the name to string
; specifies the index into the string and the integer representation of
;  the character
; convert string back to a name
;
/scs {cts 3 67 put dup 0 95 ctn}bdf     ; C in 3rd position and replaces
                                        ; | with _; for outline Adobe fonts
/sbs{cts 1 66 ctn}bdf                   ; B in 1st position -- Bold
/sis{cts 2 73 ctn}bdf                   ; I in 2nd position -- Italic
/sob{cts 2 79 ctn}bdf                   ; O in 2nd position -- Outline Italic
/sos{cts 3 79 ctn}bdf                   ; O in 3rd position -- Outline
/sss{cts 4 83 ctn}bdf                   ; S in 4th position -- Shadow

; ------------------------------------------------------------------------
; StylesMoveandCopy: string x y "smc" string
; used by routine which create new font styles
;
; moveto the specified x and y
; make a copy of the string
; show the string (actually a char)
;
/smc {
      moveto
      dup
      show
     } bdf

; ------------------------------------------------------------------------
; temporary font dictionaries
;
/wd 16 dict def

/mfont 14 dict def

; ------------------------------------------------------------------------
; AdobeOutlineShadow: fontName shadowFlag "aos" --
; makes an outline, or shadow if shadowFlag is true, font from an Adobe
; outlineable font
;
; store shadowFlag
; set the Apple encoding flag true
; make another copy of the font name
; check if shadow is requested and modified the name with the style
;  character accordingly
; check to see if we made this font already
; if so, find the font and get rid of the extra copy of the name (see "kwn")
; if not, make a copy of the unmodified name
;  call "ac" to create a copy of the Adobe font with new values for
;   PaintType and StrokeWidth
;  put the naming procedure: get the Adobe outline font and call in df2
;  and the BuildChar proc on the stack and call MakeModified (see "mm")
; call msf to get the right size font and set it current
;
/aos {
     /sh xdf
     /fav T def
     dup
     sh {sss} {sos} ifelse
     kwn
     {1 index dup
      ac
      {scs ff /df2 xdf}
      {aosc} mm
     } ifelse
     msf
    } bdf

; ------------------------------------------------------------------------
; AdobeCopy: fontName "ac" --
; create a font which is a copy of the given Adobe font and modify its
;  values for PaintType and StrokeWidth
;
; make a copy of the font name and modified it with the style character
; check to see if it has been defined
; if so, find the font and be done with
; otherwise, get the old name, get the font dictionary and define "ofd"
;  as the base font dictionary
;  define a temporary dict with the size of the old base font + 1
;  copies the old base font into tmp
;  put 3 copies of tmp on the stack
;  StrokeWidth will be defined as:
;   .24 (natural line width) * 1000 / yscale / fontsize
;  check to see if the number is less than 12
;  if so, use 12 instead
;  PaintType will be 2, meaning outline characters
;  make this font known to the font machinery and get rid of the resulting
;   font
;
/ac {
     dup scs
     kwn
      {exch /ofd exch ff def
       /tmp ofd maxlength 1 add dict def
       ofd cf
       tmp dup dup
       /StrokeWidth
       240 pys dv fz dv
       dup 12 lt
       {pop 12} if put
       /PaintType 2 put
       definefont pop} ifelse
    } bdf

; ------------------------------------------------------------------------
; AdobeOutlineShadowChar: curFontDict charCode(int) "aosc" --
; the heart of BuildChar proc for outline and shadow styles of Adobe fonts
;
; "fd" is define by the BuildChar in "mm" as the current font dict
; get the base font and make it current
; within a graphics save and restore, get the width in x and y of the
;  character
; if shadow, add .05 to the x value
; use these values to set the char width, but does not put the character in
;  the font cache
; if shadow, show the character at .06 units to the right, this is the
;  shadow portion of the character
;  move the origin up .05 units to draw the main part of the character
; set the gray level to the inverse of the current
; show the character; this is the part that is inside the outline
; make the outline copy of the font current
; set the gray level to the way it was
; go back to the original spot
; and show the outline of the character
;
/aosc {
      fd /df get setfont
      gsave cs wi
      sh{exch .05 add exch}if grestore
      setcharwidth
      cs
      sh{.06 0 smc
         0 .05 translate}if
      ig
      0 0 smc
      ig
      fd /df2 get setfont
      0 0 moveto
      show
     } bdf

; ------------------------------------------------------------------------
; MakeModified: fontName {naming proc} {BuildCharProc} "mm" fontDict
; defines a new font for building stylized fonts
;
; create a temp dictionary; this needs to be done each time since once it
;  is used, it becomes read only
; make it the current dict
; set the FontMatrix to be 1 unit
; declare this font user defined
; use the Apple encoding vector
; define "df" to be the basefont's dictionary
; set the font bounding box to 1 unit
; define "mbc" as the given BuildChar proc
; define a BuildChar in this dictionary to set the condition to use the
;  given proc: use the temp dict "wd"
;  leave the name "cs" around, we'll use it soon
;  put the temp string on the stack and make a copy
;  put the charCode into the temp string
;  define this temp string to be "cs"
;  make a copy of current font dictionary
;  define it as "fd"
;  get our BuildChar proc and execute it
;  and quit using "wd"
; execute the naming proc, which is to define a dict named "df2" which is
;  a copy of the Adobe font with StrokeWidth and PaintType modified
; finish the definitions for "tmf"
; make this font legit with definefont
;
/mm {
     /tmf 10 dict def
     tmf begin
     /FontMatrix [1 0 0 1 0 0] def
     /FontType 3 def
     /Encoding AVec def
     /df 3 index ff def
     /FontBBox [0 0 1 1] def
     /mbc xdf
     /BuildChar
      {wd begin
      /cs
      s1 dup
      0 5 -1 roll put
      def
      dup
      /fd xdf
      /mbc get exec
      end } def
     exec
     end
     tmf definefont
    } bdf


		/mdf{mfont wcheck not{/mfont 14 dict def}if mfont begin
		 xdf end}bdf
			
		/mywidth{bitwidth 3 lt{3}{bitwidth}ifelse}bdf
		
		/bmbc{exch begin wd begin/cr xdf save CharTable cr 6 mul
		 6 getinterval{}forall/bitheight xdf/bitwidth xdf .96 div
		/width xdf Gkernmax add/XOffset xdf Gdescent add/YOffset
		 xdf/rowbytes xdf rowbytes 255 eq{0 0 0 0 0 0 setcachedevice}
		{Gnormsize dup scale width 0 XOffset YOffset bitwidth
		 XOffset add bitheight YOffset add setcachedevice rowbytes
		 0 ne{XOffset YOffset translate newpath 0 0 moveto
		 bitwidth bitheight scale rowbytes 3 bitshift bitheight
		 true[bitwidth 0 0 bitheight neg 0 bitheight]
		{CharData cr get}imagemask}if}ifelse restore end end}bdf
			
 		/bb{.96 fz div/Gnormsize mdf 2 index/Gkernmax mdf 1
		 index/Gdescent mdf 3 index div 4 1 roll 2 index div 1. 5
		 2 roll exch div 4 1 roll 4 array astore/FontBBox mdf}bdf
		
		/cdf{mfont/CharData get 3 1 roll put}bdf
		
		/bf{mfont begin/FontType 3 def/FontMatrix[1 0 0 1 0 0]def
		/Encoding AVec def/BuildChar/bmbc ldf end mfont
		 definefont pop}bdf
		 
	/si{/obl 0.212557 fz mul def}bdf
	
	/ci{/obl 0 def}bdf
		

	/mb{dup sbs kwn{exch{}{bbc}mm}ifelse msf}bdf
	/mo{dup sos kwn{exch{}{boc}mm}ifelse msf}bdf
	/ms{dup sss kwn{exch{}{bsc}mm}ifelse msf}bdf


	/bbc{/da .03 def 
	fd /df get setfont
	gsave cs wi exch 
	da add exch grestore setcharwidth
	cs 
	0 0 smc da 0 smc da da smc 0 da 
	moveto show}bdf

	/boc{/da 1 fz div def
	fd /df get setfont
	gsave cs wi exch
	da add exch grestore setcharwidth
	cs 
	0 0 smc da 0 smc da da smc 0 da 
	smc 1 currentgray sub setgray da 2. div dup 
	moveto show}bdf

	/bsc{/da 1 fz div def
	/ds .05 def /da2 da 2. div def 
	fd /df get setfont
	gsave cs wi exch 
	ds add da2 add exch grestore setcharwidth
	cs 
	ds da2 add .01 add 0 smc 0 ds da2 sub translate 
	0 0 smc da 0 smc da da smc 0 da 
	smc 1 currentgray sub setgray da 2. div dup 
	moveto show}bdf


; ------------------------------------------------------------------------
; Underline: desiredlength "ul" --
; does the underlining of text; Shadow and outline fonts are special case
; to perform the extra work it needs
;
; Note: Built in Adobe fonts contain additional entries in the font
;       dictionary. One of which is a FontInfo dictionary containing
;       information such as UnderlinePosition and UnderlineThickness.
;
; save the graphics state at this time since we want to do the underlining
;  independent of the text printing
; this 0 is used later as the change in y for "rlineto"
; "sif" does a look up of the name given in the current font dictionary.
;   See full explanation below.
; if UnderlinePosition is found, call "ty" to transform y by the y
;  component of the matrix, otherwise div the font size by 10
; now go look for the thickness of the underline
; if it exists, call "ty" (see above); if not, divide the font size by 15
; set the line thickness based on the value from the last calculation
; get the current position of the pen
; move the underline position up to the top of the stack and add it to
;  the y pos of the current position and move the pen to it
; check bit 4 of the font style to see if this is a shadow font, make
;  copy of the result of the and for use later
; if so, save the graphic state (again, this should be independent)
;  take half the current line width
;  make a copy and use these values as the delta for rmoveto, i.e.,
;   drop the line by half its width and the same amount to the right
;   to create the shadow
;  translate the origin to the current point
;  make a copy of x (desired length) and y (0) value of the line and
;   do a relative move to; the code actually copies 3 elements and
;   then get rid of the top one, which is the value left on the stack
;   after the checking of font style for shadow; this is done to save
;   code and time since this value is used again later
;  paint the line; up until now, we were only creating paths, this
;   actually draws it
;  put the graphics state back to what it was
; check bit 3 of the font style to see if this may be an outline font
; we have the copy of the result when we looked at bit 4 earlier, or
;  these two values
; move the result of the or down in the stack
; get a copy of if and put it on top of the stack
; if either of the styles is chosen (true from the or) then we do the
;  customary saving of the graphics state
;  set the gray level to its inverse
;  get copy of the x y values and do the relative line
;  paint the line
;  restore the graphic state
; create the path of the underline for all font styles
; if outline or shadow font then, create an outline around the inverse
;  gray line
; set the line width to .24 times the y scale factor
; paint the line
; and finally restore graphics stats back to the way it was before any
;  underlining
;
/ul {
     gsave
     0
     /UnderlinePosition sif
     {ty} {fz 10 div} ifelse
     /UnderlineThickness sif
     {ty} {fz 15 div} ifelse
     setlinewidth
     currentpoint
     3 -1 roll add moveto
     fs 16 and dup 0 ne
     {gsave
      currentlinewidth 2. div
      dup rmoveto
      currentpoint translate
      3 copy pop rlineto
      stroke
      grestore}if
     fs 8 and
     or 0 ne
     3 1 roll
     2 index
     {gsave
      1 currentgray sub setgray
      2 copy rlineto
      stroke
      grestore}if
      rlineto
     {strokepath
      .24 pys div setlinewidth}if
      stroke
      grestore
    } bdf

;------------------------------------------------------------------------
; SafeGet: dict /name "sg" [value true] or [false]
; does make a get call if the name does not exist in the dictionary
;
/sg {
     2 copy known
     {get T} {pop pop F} ifelse
    } bdf

;-------------------------------------------------------------------------
; SpecialIf: /name "sif" [value FontMatrix true] OR [false] 
; Finds /name in currentfont and returns its value and FontMatrix otherwise
; just returns false
;
; get the current font and make a copy
; get the FontMatrix value and leave it on the stack
; swap with the copy of the current font
; try to get the FontInfo dictionary
; if it exists, leave it and true on the stack for later use
; if it doesn't, get the current font
;  try to get a dictionary called df
;  if df exists, then make a copy and try to get its FontInfo dict
;   if FontInfo exists in this dict, then use the copy of df and get
;    the FontMatrix from it
;    concatenate this matrix with the FontMatrix already on the stack
;     to form a FontMatrix
;    swap with FontInfo and leave a true on the stack
;   if FontInfo doesn't exist here either, pop everything off the stack
;    and leave a false
;  if df is unknown, then pop previous stuff off the stack and leave a
;   false
; if the top element on the stack at this point is a true, then FontInfo
;  has been found one way or another; use it to get the value of the
;  name which was given as a parameter
;  swap it and the matrix and leave a true to put the stack in the output
;   format we want
;  if that name is not found, pop the matrix and leave a false
; if the top element is a false, then we just leave a false on the stack;
;  the stack at this time should already have been cleaned up
;
/sif {
      currentfont dup
      /FontMatrix get
      exch
      /FontInfo sg
      {T}
      {currentfont
       /df sg
       {dup /FontInfo sg
        {3 1 roll /FontMatrix get
         mtx concatmatrix
         exch T}
        {pop pop pop F} ifelse
       }
       {pop pop F} ifelse
      } ifelse
      {3 -1 roll sg
       {exch T}
       {pop F} ifelse
      } {F} ifelse
     } bdf
        
; ------------------------------------------------------------------------
; TransformY: yVal matrix "ty" yTransformed
; transforms y by the y component of the matrix
;
; put x value of 0 on stack
; put this value in the right place on the stack for the correct order of
;  parameters for the tranform operator
; get rid of x
;
/ty {
     0
     3 1 roll transform
     exch pop
    } bdf

**************************************************************************
*
* Text merging
*
**************************************************************************
; ------------------------------------------------------------------------
; BeginText: -- "bt" [
; signals the beginning of a bunch of text that may need justification.
;
; Initialize printer length
; and screen length
; leave on the stack a mark
;
/bt {
     /pl 0 def
     /sl 0 def
     [
    } bdf

; ------------------------------------------------------------------------
; MergeText: (string) screenlength "mt" (string) printerlength {proc}
; put the text and its font changes onto the stack to be used by EndText
;
; increase total screen length of this line by the screen length of this
;  fragment
; store it back into total screen length variable
; make another copy of the string and find out its printer length, the
;  "pop" gets rid of the y component of stringwidth
; make a copy of the printer length and add it to total printer length,
;  note that one copy of the printer length for this fragment is still on
;  the stack
; store back into total printer length variable
; put the text layout procedure on the stack
;
/mt {
     sl add
     /sl xdf
     dup wi pop
     dup pl add
     /pl xdf
     {lot}
    } bdf

; ------------------------------------------------------------------------
; LayOutText: (string) printerlength "lot" --
; this procedure actually sits on the stack on top of its input values
; until "et" is called, at that time actual execution occurs.
;
; multiply the printer length of this fragment by the adj frag length
;  to get the desired length
; check to see if underlining is requested
; if so, make a copy of the desired length and call the underline proc
; get the adjustment value: printerlength - desired length
; if the absolute value is less than .5
; don't bother with any layout
; otherwise, the fun begins: move a copy of the string to the top of stack
; make a copy of string, get the character count and leave it on the stack
; put a counter underneath it on the stack
; look at each char of the string and check if it's a space
; if so, increment the counter
; check if the space count is 0
; or if the adjustment is negative
; if either, get rid of the count
; get the adjustment for each char by dividing adj by the character count
; put 0 on stack for y component of value
; roll the string to the top of the stack and call ashow to spread the
;  adjustment across each character of the string
; if the space count is nonzero and the adjustment is positive, then
;  spread 50% of the adj across the spaces and 50% across all characters
;  for short string fragments and for longer string fragments,
;  90% of the adjustment will be spread across the spaces and 10%
;  across the remainder of the characters.
;  for each char (including spaces): adj / (10 * #spaces) + #chars
;  for each space : 10 * adj for each char
;  criteria for short fragment: 2 or less spaces, 10 or more characters
; is space count 2 or less?
; is character count 10 or more?
; define a variable "fac" to be the weight factor (# of times more than
;  other characters) of spaces: 10 for long strings and 2 for short
;  strings and make a copy of this values to be used later
; multiply the space count by the weight factor
; add the previous two values together
; divide adj by that sum and make a copy
; multiply by the weight factor for the value to be used on spaces
; push 0 for the y component of the value and 32 for the space char
; roll the value to be used for all characters on top
; push 0 for the y component of that value
; roll the string on top and call awidthshow to spread the specified
;  amounts over spaces and all the chacracters
;
/lot {
      dup afl mul
      fs 4 and 0 ne
      {dup ul}if
      exch sub
      dup abs .5 lt
      {pop show}
      {1 index
       dup length exch
       0 exch
       {32 eq
        {1 add}if
       } forall
       dup 0 eq
       3 index 0 le or
       {pop
        dv
        0
        3 -1 roll ashow}
       {dup 2 le
        2 index 10 ge
        and
        {2}
        {10} ifelse
        dup /fac xdf
        mul
        add
        dv dup
        fac mul
        0 32
        4 -1 roll
        0
        6 -1 roll awidthshow
       }ifelse
      }ifelse
     } bdf

; ------------------------------------------------------------------------
; EndText: -- "et" --
; time to figure out the correct spacing necessary for the entire line of
; text to achieve same length as on screen
;
; get a count of the string fragment stuff on the stack and create an
;  array that size
; store the stuff into the array
; move the mark to the top of the stack and get rid of it
; calculate and store away the adjusted fractional length
;  adjusted fractional length = total screen length / total printer length
; save the state of the virtual memory; anything we do for this line of
;  text should be independent of the rest of the page
; move the array on top of the stack so we can work on it
; for each element of the array, find out its type and make another copy
; check if it's an array
; or a packedarray
; if it is (it's our text layout procedure), execute it; otherwise leave
;  it on the stack. We purposely do not pop the elements off after the
;  check because the layout procedure needs them there
; get the current point, which should be at the end of the line of text
; get the save object on top of the stack and restore
; move the currentpoint to the end of the text and life goes on
;  note: After the restore, the currentpoint is at the place where we
;        did the save, i.e. before the text is laid out. That's why the
;        "currentpoint" call occurs inside the save/restore to get
;        the point at where the text ended and the "moveto" done after
;        the restore to put it in respect of the pre-text layout world.
;
/et {
     counttomark array
     astore
     exch pop
     /afl sl pl dv def
     save
     exch
     {dup type dup
      /arraytype eq exch
      /packedarraytype eq or
      {exec} if
     } forall
     currentpoint
     3 -1 roll restore
     moveto
    } bdf

; ------------------------------------------------------------------------
; Width: string "wi" width(x) width(y)
; this procedure is a precaution against a known problem with original
; LaserWriters in that "show" is called by some of the fonts' BuildChar 
; procs by setting the clippath to 0 and calling stringwidth if it is a 
; LaserWriter. If LW+ or LW II, then just stringwidth is called.
;
; find out if printer is LW classic
; if so, save the graphic state
;  set a 0 clippath by creating a full path at 0,0 and clip to it
; call stringwidth
; restore graphic state
; if not, then call stringwidth as is
; bind for efficiency
;
/wi
   CL
   {{gsave
     0 0 moveto 0 0 lineto 0 0 lineto 0 0 lineto closepath clip
     stringwidth
     grestore }
     bind } 
	 {/stringwidth load}ifelse
   def


**************************************************************************
*
* QuickDarw II objects:
*     Nouns:    Line
*               Arc
*               Oval
*               Rect
*               RoundRect
*
*     Verbs:    Frame
*               Paint
*               Erase
*               Invert
*               Fill
*
**************************************************************************
;-------------------------------------------------------------------
; Pop4: -- "pop4" --
; pops 4 objects off the stack
;
/pop4 {
       pop
       pop
       pop
       pop
      } bdf

;-------------------------------------------------------------------
; FindPen: -- "fp" T or F
; checks if pen size is nonzero in both vertical and horizontal
;  components
;
; check if horizontal component of pen is 0
; check if vertical component of pen is 0
; are they both nonzero?
;
/fp {
     pnsh 0 ne
     pnsv 0 ne
     and
    } bdf

;-------------------------------------------------------------------
; Verb:
; array of procedures to implement QuickDraw verbs:
;  (frame, paint, erase, invert, fill)
;
; frame: 
;  find out if pen is visible
;  if so, save graphic state
;   clip to the existing path, (framing occur within the shape boundary)
;   set line width to 1
;   scale by twice the pen size (PostScript strokes with half the line
;    width on each side of the path, the outer half is clipped and the 
;    inner half is the original pen size)
;   stroke the path
;   put things back the way we found it
;  start a new path
; paint:
;  fill with pen pattern/color
; erase:
;  same as paint, fill with background pattern/color
; invert:
;  not supported
; fill:
;  same as paint, fill with fill pattern
; ?:
; clip:
;  clip and start new path
;
/vrb [
      {fp
	  {gsave 
	   clip
	   1 setlinewidth 
	   pnsh 2 mul pnsv 2 mul scale 
	   stroke 
	   grestore}if 
	   newpath}bind
	   
      /eofill load
	  
	  dup
	  
      /newpath load
	  
      2 index
	  
      dup
	  
      {clip newpath}bind
	  
      {}bind
      dup
      2 copy
     ] def

;-------------------------------------------------------------------
; DoOperation: drawverb(int) "doop" --
; performs the QuickDraw verbs
;
; put QD verb array on stack and swap with the drawverb
; using drawverb as index, get the appropriate procedure
; and executes it
;
/doop {
       vrb exch
       get
       exec
      } bdf

;-------------------------------------------------------------------
; Line: y x "lin" --
; draws a line from the current pen position to the given point,
;  making compensations to achieve QuickDraw style lines where the
;  pen is to the right and below of the current position as opposed
;  to PostScript where pen is half above and half below the current
;  position.
;
; swap coordinates
; save current point in temp variables
; save graphics state
; start a new path
; temp variables: @1 -- specified y
;                 @2 -- specified x
; if the pen is visible, then is current x < specified x
;  (line from left to right)
;  if so, is current y > specified y (line from up to down)
;   if so, move to current point
;    draw a line to the specified point
;    draw a line from here to hereX+penWidth and hereY+0
;    then a line from here to hereX+0 and hereY+penHeight
;    draw a line to curX+penWidth and curY+penHeight
;    then a line from here to hereX-penWidth and hereY+0
;   if not, (line from down to up) move to current point
;    draw a line from here to hereX+penWidth and hereY+0
;    draw a line to specifiedX+penWidth and specifiedY
;    draw a line from here to hereX+0 and hereY+penHeight
;    draw a line from here to hereX-penWidth and hereY+0
;    draw a line to curX and curY+penHeight
;  if not, (line from right to left), is current y > specified y
;    (line from up to down)
;   if so, move to specified point
;    draw a line from here to hereX+penWidth and hereY+0
;    draw a line to curX+penWidth and curY
;    draw a line from here to hereX+0 and hereY+penHeight
;    draw a line from here to hereX-penWidth and hereY+0
;    draw a line to specified x and specifiedY+penHeight
;   if not, (line from down to up) move to current point
;    draw a line from here to hereX+penWidth and hereY+0
;    draw a line from here to hereX+0 and hereY+penHeight
;    draw a line to specifiedX+penWidth and specifiedY+penHeight
;    draw a line from here to hereX-penWidth and hereY+0
;    draw a line from here to hereX+0 and hereY-penHeight
;  call closepath to finish off any details
;  fill with current pattern
; put the end points of the line on the stack
; restore graphics state
; put the point at the end of the drawn QuickDraw line
;
/lin {
      exch
      currentpoint /pnlv xdf /pnlh xdf
      gsave
      newpath
      /@1 xdf
      /@2 xdf
      fp { pnlh @2 lt
          { pnlv @1 ge
           { pnlh pnlv moveto
             @2 @1 lineto
             pnsh 0 rlineto
             0 pnsv rlineto
             pnlh pnsh add pnlv pnsv add lineto
             pnsh neg 0 rlineto }
           { pnlh pnlv moveto
             pnsh 0 rlineto
             @2 pnsh add @1 lineto
             0 pnsv rlineto
             pnsh neg 0 rlineto
             pnlh pnlv pnsv add lineto }
           ifelse }
          { pnlv @1 gt
           { @2 @1 moveto
             pnsh 0 rlineto
             pnlh pnsh add pnlv lineto
             0 pnsv rlineto
             pnsh neg 0 rlineto
             @2 @1 pnsv add lineto }
           { pnlh pnlv moveto
             pnsh 0 rlineto
             0 pnsv rlineto
             @2 pnsh add @1 pnsv add lineto
             pnsh neg 0 rlineto
             0 pnsv neg rlineto }
           ifelse
          } ifelse
          closepath fill
         } if
      @2 @1
      grestore
      moveto
     } bdf

;-------------------------------------------------------------------
; BasicArc: top left bottom right startAngle stopAngle drawVerb
;  newpathFlag "barc" --
; core of the arc drawing routine
;
; temp variables: @1 -- newpathFlag
;                 @2 -- drawVerb
;                 @3 -- stopAngle
;                 @4 -- startAngle
;                 @5 -- right
;                 @6 -- bottom
;                 @7 -- left
;                 @8 -- top
; save the graphics state
; right + left / 2
; top + bottom / 2
; move the coordinate system to the middle of the rect specified
; start a newpath
; set current point at origin
; right - left
; bottom - top
; store current matrix in "mtx" and get rid of copy on stack
; scale by rectangle size
; call newpath if flag indicates so
; call the "arc" operator with x and y of 0, radius of .5 and start
;  and start and stop angle as specified
; find the difference of the angles
; if it is greater than or equal to 360, then call closepath to
;  complete a circle or oval
; set the current matrix back to the one as saved
; call "doop" to perform the verb
; restore the graphics state
;
/barc {
       /@1 xdf
       /@2 xdf
       /@3 xdf
       /@4 xdf
       /@5 xdf
       /@6 xdf
       /@7 xdf
       /@8 xdf
       gsave
       @5 @7 add 2 div
       @6 @8 add 2 div
       translate
       newpath
       0 0 moveto
       @5 @7 sub
       @6 @8 sub
       mtx currentmatrix pop
       scale
       @1 {newpath} if
       0 0 0.5 @4 @3 arc
       @4 @3 sub
       abs 360 ge {closepath} if
       mtx setmatrix
       @2 doop
       grestore
      } bdf

;-------------------------------------------------------------------
; Arc: top left bottom right startAngle stopAngle drawVerb "ar" --
; draws an arc
;
; make a copy of the drawverb
; check if it's frame?
; leave result on the stack as newpathflag and call the basic arc
;  procedure
;
/ar {
     dup
     0 eq
     barc
    } bdf

;-------------------------------------------------------------------
; Oval: top left bottom right drawVerb "ov" --
; draws an oval
;
; use 0 as start angle and switch positions with drawverb
; use 360 as stop angle and switch its position with drawverb
; use true as newpathflag
; call basic are procedure
;
/ov {
     0 exch
     360 exch
     true
     barc
    } bdf

;-------------------------------------------------------------------
; Rectangle: top left bottom right drawVerb "rc" --
; draws a rectangle
;
; save the draw verb in a temp variable
; save the current point on the stack
; move these two values to the bottom of the stack, after the rect
; start a newpath
; move top and left points to top of the stack
; swap x and y and move the current point to the upper left corner
; roll the top point to top of stack, stack now looks like:
;    top
;    right
;    bottom
;    right
;    bottom
;    left
; draws a line from the upper left to the upper right corner
; then to the lower right
; and then to the lower left
; call closepath to finish it up
; perform the verb
; put the current point back where we found it
;
/rc {
     /@t xdf
     currentpoint
     6 2 roll
     newpath
     4 copy
     4 2 roll
     exch moveto
     6 -1 roll
     lineto
     lineto
     lineto
     closepath
     @t doop
     moveto
    } bdf

;-------------------------------------------------------------------
; RoundRectangle: top left bottom right ovalHeight ovalWidth drawVerb
;  "rr" --
; draws a round rectangle
;
; temp variables: @1 -- drawVerb
;                 @2 -- ovalWidth / 2
;                 @3 -- ovalHeight / 2
;                 @4 -- right
;                 @5 -- bottom
;                 @6 -- left
;                 @7 -- top
;                 @8 -- radius of arc
;                       = sqrt[(ovalht*ovalht)+(ovalwd*ovalwd)]/2
; is top = bottom?
; is left = right?
; get half of pen's width
; less than ovalWidth/2 ?
; get half of pen's height
; less than ovalHeight/2 ?
; in summary, if any of these conditions:
;  top = bottom
;  left = right
;  penWidth/2 < ovalWidth/2
;  penHeight/2 < ovalHeight/2
; are true, then treat it a regular rectangle
; else the fun begins; right - left / 2
;  make a copy
;  is it less than ovalWidth/2
;   if so, redefine @2 as this value
;   otherwise get rid of the copy
;  bottom - top / 2
;  make a copy
;  is it less than ovalHeight/2
;   if so, redefine @3 as this value
;   otherwise get rid of the copy
;  is frame the verb?
;   if so, leave the "@2" variable name and its value on the stack
;   penWidth / 2
;   make copy each of ovalWidth/2 and penWidth/2
;   is ovalWidth > penWidth?
;    if so, redefine @2 to be ovalWidth/2 - penWidth/2
;    else clean up stack
;   leave the "@3" variable name and its value on the stack
;   penHeight / 2
;   make copy each of ovalHeight/2 and penHeight/2
;   is ovalHeight > penHeight?
;    if so, redefine @2 to be ovalHeight/2 - penHeight/2
;    else clean up stack;  save the current point on the stack
;  start a newpath
;  right + left / 2
;  move to the top middle of the rect
;  calculate radius:
;   ovalWidth squared
;   ovalHeight squared
;   add together
;   take the square root
;   divide by 2
;   define this value to be @8
;  call "arcto" with x1 y1 x2 y2 r where:
;   currentpoint and x1 y1 forms one tangent line
;   x1 y1 and x2 y2 forms the other tangent line
;   and r is radius
;  right top right bottom ovalWidth/2 and get rid of stuff returned
;  right bottom left bottom ovalWidth/2 and get rid of stuff returned
;  left bottom left top ovalWidth/2 and get rid of stuff returned
;  left top right top ovalWidth/2 and get rid of stuff returned
;  call closepath to finish our dirty work
;  perform the verb
;  and put the point back where we found it
;
/rr {
     /@1 xdf
     2. div /@2 xdf
     2. div /@3 xdf
     /@4 xdf
     /@5 xdf
     /@6 xdf
     /@7 xdf
     @7 @5 eq
     @6 @4 eq
     @2 pnsh 2 div
     le
     @3 pnsv 2 div
     le
     or or or
     {@7 @6 @5 @4 @1 rc}
     {@4 @6 sub 2. div
      dup
      @2 lt
      {/@2 xdf}
      {pop} ifelse
      @5 @7 sub 2. div
      dup
	  @3 lt
	  {/@3 xdf}
	  {pop} ifelse 
      @1 0 eq
      {/@2 @2
       pnsh 2 div
       2 copy
       gt
       {sub def}
       {0 pop4} ifelse 
	   /@3 @3 
	   pnsv 2 div 
	   2 copy
	   gt
	   {sub def}
	   {0 pop4} ifelse } if
      currentpoint
      newpath
      @4 @6 add 2. div @7 moveto
	  @2 @2 mul 
	  @3 @3 mul 
	  add 
	  sqrt 
	  2. div
	  /@8 xdf
      @4 @7 @4 @5 @8 arcto pop4
      @4 @5 @6 @5 @8 arcto pop4
      @6 @5 @6 @7 @8 arcto pop4
      @6 @7 @4 @7 @8 arcto pop4
      closepath
      @1 doop
      moveto } ifelse
    } bdf

;-------------------------------------------------------------------
; StartPolygon: -- "sp" --
; signifies the start of a polygon definition, which is to be
;  painted or filled
;
; save the current pen position on the stack, this is done before the
;  newpath call because newpath zaps the currentpoint
; newpath gets rid any other path currently active and begins a new
;  one, namely that of the polygon
; moveto to the point specified on the stack (first point of the
;  polygon)
;
/sp {
     currentpoint
     newpath
     moveto
    } bdf

;-------------------------------------------------------------------
; PolyLine:  y x "pl" --
; generates the path which defines the polygon; different from "lin"
;  in that this proc does not do any drawing
;
; swap coordinates
; generate a line to this point
;
/pl {
     exch
     lineto
    } bdf

;-------------------------------------------------------------------
; EndPolygon: -- "ep" --
; signifies the end of the polygon definition and executes the paint
;  or fill
;
; save the current graphics state
; do a fill using the current color; "eofill" applies the even-odd
;  rule to determine insideness
; save the currentpoint (last point of the polygon) on the stack
; call "fp" to see if pen is visible
; if so, call "pathforall" to do whatever it does
;  go back to the original graphics state
;  save the currentpoint on the stack
;  zap the existing path and start a new one
;  set the currentpoint to the old saved one
; if not, restore the existing graphics state and start a new path
; set the currentpoint at the last point of the polygon
;
/ep { gsave
      gsave eofill grestore
      currentpoint
      fp
      {{moveto}{exch lin}{}
       {(%%[Warning: A polygon close path call is issued.]%%)=flush}pathforall
       grestore
       currentpoint
       newpath
       moveto}
      {grestore newpath} ifelse
      moveto
    } bdf


*****************************************************************
*
* Patterns
*
*****************************************************************
;----------------------------------------------------------------
; AddOne
;
/addone {
         dup 0 eq {exit} if
         1 sub
         exch 1 index dup
         mode640{addone640}{addone320}ifelse
         colorarray exch get add exch
        } bdf


;----------------------------------------------------------------
; AddOne (320 mode)
;
/addone320 {
            2 div cvi xarray exch get
            exch cvi 1 and 4 mul cvi 4 sub bitshift 15 and
           } bdf


;----------------------------------------------------------------
; AddOne (640 mode)
;
/addone640 {
            cvi 3 and 4 mul exch
            dup 4 div cvi
            xarray exch get
            exch cvi 3 and 2 mul cvi 6 sub
            bitshift 3 and add cvi
           } bdf


;----------------------------------------------------------------
; Pixel (320 mode)
;
/pixel320 {
           exch dup 3 copy pop exch
           1 add 4 mul cvi 4 mul
           exch 1 add 2 mul cvi
           add xarray exch get
           exch 1 add 4 mul cvi 1 and 4 mul cvi 4 sub
           bitshift 15 and
           colorarray exch get
          } bdf


;----------------------------------------------------------------
; Pixel (640 mode)
;
/pixel640 {
           exch 2 copy exch
           1 add 4 mul cvi 2 mul
           exch 1 add cvi
           add xarray exch get
           1 index 1 add 2 mul cvi 4 mul exch
           2 index 1 add 4 mul
           cvi 3 and 2 mul cvi 6 sub
           bitshift 3 and add cvi
           colorarray exch get
          } bdf

;----------------------------------------------------------------
; Pattern
;
/pat {
      /mode640 xdf
      exch /xarray xdf
      {15}{9.375}ifelse
      pa Fpr not{90 add}if
      {mode640{pixel640}{pixel320}ifelse
      45 exch sub 45 div /temp xdf
      1 add 4 mul dup cvi sub 2 mul 1 sub
      exch 1 add 4 mul dup cvi sub 2 mul 1 sub
      1 sub temp mul 1 add
      exch 1 sub temp mul 1 add spf} setscreen
      0 64 {addone} loop pop 45 div 64. div setgray
     } bdf


**************************************************************************
*
* Clean up stuff
*
**************************************************************************
;-------------------------------------------------------------------
; End our own dictionary - GSd
;
end

;-------------------------------------------------------------------
; Restore packing capability
;
; if packing is available,
; restore to the way it was
;
systemdict /setpacking known
{svpack setpacking}if
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/LW/laserwriter b/IIGS.601.SRC/GSToolbox/PrinterDrivers/LW/laserwriter
new file mode 100644
index 0000000..1162a6b
Binary files /dev/null and b/IIGS.601.SRC/GSToolbox/PrinterDrivers/LW/laserwriter differ
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/LW/lw.asm b/IIGS.601.SRC/GSToolbox/PrinterDrivers/LW/lw.asm
new file mode 100644
index 0000000..fc2907d
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/LW/lw.asm
@@ -0,0 +1 @@
+
*****************************************************************************************************
*
*     The Print Manager
*            LaserWriter Driver using AppleTalk
*
* Copyright 1986-1993 Apple Computer, Inc.
* All Rights Reserved
*
*****************************************************************************************************
*
* Coding Started Summer 1986 by Luc Barthelet and VersionSoft
*
* Version 1.0
*
* May 07, 1987    Suki Lee
*
* Version 1.1
*
* Jul 02, 1987    Suki Lee
*
*    Major rewrite of routines which deal with PAP calls for AppleTalk. New alert box
*    is added to allow user to restart LaserWriter without physically turning it off
*    and on.
*
*    Fixed paper size in points in PrtRecord.Dflt for US Legal and A4 Letter.
*
*    New call: PrPixelMap - prints given pixel map
*              input: SrcLocPtr   - LONG
*     	  SrcRectPtr  - LONG
*                     ColorFlag   - WORD - 0 = B/W; else color
*              output: none
*
*    Status updated	each time a PAPWrite is issued. All custom QD calls now save and
*    restore values on QD's zero page to ensure that they have not been trashed by
*    the changing of the current port by the status update.
*
* Version 2.0
*
* Feb 01, 1988    Suki Lee
*
*    Major revision	of the code to use a different PostScript dictionary than that
*    use by the Macintosh. This dictionary is no longer a separate text file as
*    before but rather a dynamic segment. The driver downloads the needed procedures
*    with each print job. Nothing permanent remains in the printer, so there's no
*    problem with version collision or running low on virtual memory.
*
*    Added capability to print using resident LaserWriter Plus fonts.
*
*    Implemented routines to process PicComments dealing with encapsulating PostScript.
*
*    Bug Fixes:
*
*     - String buffer used to hold parsed printer status string is increased from 50
*       to 100 characters.
*     - In text, if	drawverb is drawchar, the string length	is not checked.
*     - The insertion point moves to the "From" box when the "From" button is clicked.
*     - Rectangular	clip regions are now implemented as specified in ERS.
*     - Reorganized	zero page to avoid collisions with QD's zero page since some
*       routines are called with either zero page in effect, e.g. Color,
*       AddStrToWBuff, etc.
*
* Version 2.1
*
* June 8, 1988    Suki Lee
*
*    Added back capability to download bitmap fonts which has missing since V 1.0
*    release.
*
*    Added Command-F command to redirect PostScript to a file. This file is named
*    'PostScript.GS' and is put in the /system/drivers directory of boot disk.
*
*    PrPixelMap works once again.
*
*    Bug Fixes:
*
*     - Safeguards against pixel maps whose width is not on	a byte boundary.
*     - Consistent reporting of error conditions reported from the printer, such
*       as out of paper or font not found. (This was underlying cause of problem
*       printing to non-plus LaserWriters.)
*     - Added default values for flags in prepfile
*     - Complete characters of downloaded bitmap fonts are now printed.
*     - Italics flag was not defined for Courier font causing PostScript errors.
*     - ZapfDingBats and Symbol fonts can now be printed.
*     - Clean up PostScript stack after outline or shadow styles are made.
*     - Corrected modified names used in fonts' entry into PostScript's FontDirectory
*       after a style modification.
*     - Findfont call was moved to the rf call to decrease the amount of PostScript
*       sent with each font change. The code for handling the Shaston font has now
*       modified accordingly to deal with that change.
*     - Extended the procs "up" and "dn" to save global and graphics state variables
*       across the save and restore.
*
*
* Version 2.2
*
* July 27, 1988    Suki Lee
*
*    Added filtering of user abort error returning from OpenLaser.
*
*    Added clearing of PicComment flag in PrCloseDoc in case of an error condition
*    occuring before PostScriptEnd comment is called.
*
*    Modified the cursor handling code to use GetCursorAd to get original cursor
*    and use SetCursor to restore after printing.
*
*    Bug Fixes:
*
*     - The source rectangle of the image was being used to set the scale of the
*       image on the page, resulting in pictures not being scaled. The destination
*       rectangle is now being used, as should be.
*     - Added capability to handle downloaded bitmap fonts whose characters' image
*       are wider than 32 bits. These include some 36 point fonts and most 48 and
*       larger point fonts.
*     - Modified status display code to use LETextBox2 so longer strings will be
*       word wrapped. Problem was especially noticeable in 320 mode when printing
*       to a spooler.
*     - At start of each print job, zeros out the NewInterval variable used as the
*       5 second timer for status calls. Status can be skipped if the timer is not
*       zeroed each time.
*     - EraseRect was printing a black rectangle instead of white. The code was
*       behaving as if it were a fill. Modified to use PostScript's newpath call,
*       which draws nothing. This is the same as filling with background color
*       since background is white on paper.
*
* Version 3.0 on system disk 5.0, 5.0.1, 5.0.2
*
* d1
* October 20, 1988    Suki Lee
*
*    Eliminated some old PostScript strings that are no longer used.
*
*    Added code in MakeBMFont to check for the case where the height of the image
*    is negative (this can happen if the imagewidth is nonzero but all the bits in
*    the font strike are 0) and marks it as undefined so as not to print garbage.
*
*    Added capability to set the jobname in the LaserWriter's status dictionary so
*    AppleTalk can use it to report status.
*
*    Modified error checking after OpenFile call in DownLoadFile to pass ProDOS
*    errors to application instead of TLMountVolume call.
*
* November 11, 1988    Suki Lee
*
*    Modified references of FontID to FontFamNum where appropriate. Also modified
*    the naming of downloaded fonts to use its family name instead of its family
*    number. This is the start of a move away from using font family numbers as
*    identifiers for fonts.
*
* d2
* November 29, 1988    Suki Lee
*
*    Added constant for AppleTalk's flow quantum.
*
*    Added code to query the LaserWriter's FontDirectory and read the data into
*    a buffer. Two tables, one for length of the names and one for offsets into
*    the buffer, are stuffed by parsing the buffer.
*
*    Two new calls are added: PrGetPrinterSpecs, which returns the printer's type
*    and its characteristics (only color capability is defined for now) and
*    PrGetPageOrientation which returns either portrait or landscape. These calls
*    are needed by IIGS HyperCard printing.
*
*    Added call to Print Manager to get document's name to provide a more complete
*    status message. The message now appears as: "job: User - user name, Document
*    - doc name; status: busy; source: AppleTalk." PrCloseDoc resets the name to
*    the default string "Unknown", making the name valid for the duration of the
*    job only.
*
* d3
* December 12, 1988    Suki Lee
*
*    Refined the logic to search the LaserWriter's font directory for the existence
*    of the current font. A table is used to look up style modifications to compose
*    a full font name to be used for string matches with the directory.
*
* December 15, 1988    Suki Lee
*    Added new header to denote this as a driver which support the new calls
*    PrGetPrinterSpecs and PrGetPgOrientation (and any subsequent new calls). This
*    header is 2 words long: first word is 0 followed by a call count word.
*
*    Fixed the jump to an incorrect exit routine in PrPixelmap if unsafe to proceed.
*    The correct routine is Exit10, not Exit8.
*
*    The offset table used by font directory search was allocated using the address,
*    rather than the contents, of the variable (lda # instead of lda) as the size.
*
* d4
* January 3, 1989     Suki Lee
*    Added back in font substitution code which got lost when the code was restructured
*    for the adding of LaserWriter font query code.
*
* January 4, 1989     Suki Lee
*    Modified code to check if font requested is built-in for the LaserWriter being
*    used, if so, no search is needed to see if the font is resident in the printer.
*
*    Modified the PostScript procedure 'LW' in prepfile.asm to return 0 for LW, 1
*    for LW+ or II and 2 for non-LW.
*
*    Modified status window size and status string placement in dialogdata.asm to
*    accommodate the longer status string (due to addition of the job name field).
*    Took out CR at the beginning of the status string so the message starts toward
*    the top of the box instead of in the middle.
*
* d5
* January 19, 1989     Suki Lee
*    Added a new input parameter, handle to the print record, to PrGetPgOrientation.
*
* d6
* February 1, 1989     Suki Lee
*    Added in query comments so printing to spoolers will work once again. Two queries,
*    one for printer specs and one for font list, are used. The spooler uses canned
*    PostScript code to perform each query. In order to simplify things, the same PostScript
*    code is used when printing directly to a printer. Code to read the response and the
*    stuffing of the buffer had to be modified accordingly. Removed the "fdir" procedure
*    from Prepfile.asm.
*
* February 3, 1989     Suki Lee
*    Modified PrValidate so that it will no longer call CiXMetrics if the print record is
*    valid for the printer type and is the correct version. This was not necessary and
*    caused problems for applications that want to modify fields in the record such as the
*    page rectangle.
*    Also modified the values for the horizontal resolution from 42 to 40 in 320 mode and
*    from 84 to 80 in 640 mode. The incorrect values cause margin sizes to be wrong.
*
* February 10, 1989    Suki Lee
*    Converted all file calls from ProDOS to GS/OS class 1. Added ability to create mutiple
*    files for PostScript output using Command-F. The files will be named PostScript.GSxx
*    where xx is 00-99 numbered sequentially in the order created.
*
*    Bug fix in PrValidate: the print record handle is now dereferenced before using.
*
* d7
* February 23, 1989    Suki Lee
*    Further bug fix in PrValidate: PtrToHand call is changed to BlockMove since the print
*    record handle has been deferenced. An error was being returned from the PtrToHand call,
*    causing the code to display the dialogs to be skipped.
*
*    Moved the memory disposal code for the handles used in SetUpNameTables so that disposal
*    only happens if the memory has been allocated. The old way could cause screen refresh
*    problems if the print job is cancelled at the early part of the job.
*
*    Added GetStatus call in the wait loop of OpenLaser. This enables the status box to
*    reflect the status of the LaserWriter even before the connection is established.
*
* d8
* March 1, 1989        Suki Lee
*    Rev 1 of NTX boards prints garbage if the manualfeed timer is set to anything higher
*    than the default 60 seconds. (Printer Testing Group of SQA is investigating the cause
*    as of this writing.) Added PostScript code in PrepFile.asm to check the product
*    entry of the printer to leave that timer alone if it's an NTX. For all other models,
*    the timer is set to wait 5 minutes.
*
* March 7, 1989        Suki Lee
*    Modified bitmap font downloading code to use pointers to the various parts of the
*    font record on QuickDraw's zero page. This is necessary due to changes in the Font
*    Manager - font strike larger than 64K and in QuickDraw - FastFonts.
*
* March 8, 1989        Suki Lee
*    Added code in PrValidate to copy the print record into the local data stroage area
*    since the driver code works off the local copy of the print record.
*
* March 14,1989        Suki Lee
*    Added initialization of two variables: ZeroPage and SCBValue in PrValidate. This is
*    a measure to safeguard against cases where the application enters the print loop
*    without calling PrDefault, PrStlDialog or PrJobDialog, where these variables are
*    currently being initialized.
*
* d9
* April 3, 1989        Suki Lee
*    Fixed bug in QD verb erase to fill with background pattern or color. Currently, white
*    is used to fill. Procedure vrb in Prepfile.asm is modified to just do an eofill.
*
* April 4, 1989        Suki Lee
*    Rewrote CheckVerb to be more compact.
*
* April 17, 1989       Suki Lee
*    Added flag to indicate error on a status call. If there is such an error, most likely
*    the printer is off line or problem with connection, and we exit at that point.
*
*    Added new routine to send foreground color as a solid pattern for text printing. There
*    was a bug before where the pen pattern was used for text.
*
*    Added error checking in MakeBMFont's loops which sends data to the printer, in case of
*    connection errors to the printer as well as user cancel.
*
* April 18, 1989       Suki Lee
*    Modified AddTextToWBuff and AddStrToWBuff to eliminate a 255 character text length limit.
*    This effected mainly PicComments. This bug was reported by Claris.
*
* d10
* April 21, 1989       Suki Lee
*    Fixed bug in RoundRect where the OvalWidth and OvalHeight parameters were swapped. Also
*    modified PostScript procedure to use both height and width of the oval to calculate the
*    radius of the arc. 640 mode corners look squished due to the 1:2 (x:y) scale factor.
*    This bug was reported by Claris.
*
* d11
* April 25, 1989       Suki Lee
*    Fixed bug in framing of objects where part of the frame was outside the boundary of the
*    shape. The shape is now used as a clipping path, and the pen size is doubled, so the
*    outer half is clipped and inner half is equal to the pen size requested.  This bug was
*    reported by Claris.
*
* d12
* April 27, 1989       Suki Lee
*    Bug fix: Index to the font name buffer is off by 1 so the lengths were stored on top of
*    the last character of the previous name. Also the index to this buffer was not updated
*    in the loop which calculates the length and the offset. These conditions caused resident
*    fonts to not match with the font being printed. BRC #48609
*
* d13
* May 2, 1989          Suki Lee
*    Revert PrValidate to recalculating the whole print record each time, so applications can
*    modifiy one field and have the rest of the record be consistent. Change code in PrOpenDoc
*    to just look at the type and version field of the print record instead of calling
*    PrValidate. This is needed for Iduna printing.
*
* d14
* May 16, 1989         Suki Lee
*    Add additional error checking for status calls so that no other PAP calls will be issued
*    if the printer is not responding. Currently, it looks like AppleTalk is stuck in an
*    infinite loop if a name look up happens while another is in progress. Tim Harrington is
*    investigating if the problem is a bug or as designed. BRC #49183 + 47473 & 47474 revisited.
*
* May 24, 1989	   Suki Lee
*    Fixed cut and paste error in PrValidate which caused the style dialog to contain incorrect
*    default value when switching from a different printer.
*
* June 5, 1989	   Suki Lee
*    Modified constants for Hres and Vres so the page sizes and margins are more accurate. For
*    next release, make use of the additional built in predefined sizes in LW+ and LW II.
*
*    Added initialization of variables ZeroPage and SCBValue in PrOpenDoc as well, since some
*    apps do not call anything else before the print loop.
*
* June 14, 1989        Suki Lee
*    Expanded buffer used by PAPStatus from 128 to 260 bytes, according to errata sheet to
*    AppleShare Programmer's Guide to the IIGS. 4 bytes unused + 1 byte length + 255 bytes data.
*
* June 16, 1989        Suki Lee
*    Bug fix:
*      - If the pattern of color is set to white, then a pixelmap is printed, the internal array
*        is set to black. But due to the save/restore around pixelmaps, the currentgray is still
*        white, causing any black objects not to be printed. Removed the jsr to setBlack since
*        currentgray does not affect images.
*
*      - The procedure to set the screen back to normal after a pat call is incorrect. This causes
*        the screen dots to be too large when a pixelmap is printed after a pattern or color change.
*        Added currentscreen call in dictionary to set up variables with the initial conditions so
*        that we can use them to set the screen back to normal in setBlack. BRC #50891
*
* June 17, 1989        Suki Lee
*     Added call to set screen back to default before doing a pixelmap. Should not affect the world
*     since it happens inside a save/restore.
*
*
* Version 3.1 on system disk 5.0.3
*
* August 16, 1990      Ben Koning
*     Brought QD equates that were included from elsewhere into this source file.  This is
*     very bad if the QD equates ever change, but makes it much easier to build.  Also does not
*     use all.macros file nor the pushptr macro anymore.  This should be changed back.
*
* October 12, 1990     Ben Koning	Desperate bug fixes:
*     Wes Johnson found postscript syntax error in error messages for /ep and /vm ps routines:
*     the code fragments should end in '= flush' and not '=flush'.  Fixed in prepfile.asm.
*
*     Changed version ID (appears in print record init, dialog boxes, etc) to $0301.  Changed it
*     in all places, including where it is set to default with a ds.b (caused bug!).
*
*     PrOpenDoc now calls OpenLaser a second time in trying to open a PAP connection.  Some LW
*     models won't communicate at all if a page from the previous job is still ejecting.  This
*     can cause problems for those apps which treat each page as a new document.
*
*     The GetStatus routine, called very often before/after reading/writing, had two lines
*     commented out without comment or apparent cause.  The two lines have been re-activated.
*     These two lines checked a 'allowstatus' flag which would cause it to not execute the
*     StatusLaser routine.  The StatusLaser routine always does a papread.  It also does a
*     papstatus every 5 seconds.  The papreads were apparently interfering with the reading-in of
*     the printer's font list during PrOpenDoc.  It is not clear why these two lines were
*     commented out, but in fact it seems safer to have them activated, both to fix this bug,
*     and for other GetStatus invocations as well.
*
*     Fixed AddStrToWBuff so that it can now handle (ie, do nothing) on zero-length pstrings.
*     NOTE:  What should really be done is that the username be called "Unknown" or something
*     to that effect, either here locally in the LW driver, or, better yet, in other code such
*     as the print manager or the print network CDEVs or elsewhere.
*
* August 27, 1991	   Ben Koning	Bug fixes for system disk 6.0:
*     Fixed job and style dialog not updating (ie, with video keyboard) problem.
*
*     Incremented version number to $0302 (3.2).
*
*     In job dialog, Command-M toggles manual/auto feed.
*
*     In job and style dialog, ESC is now a key equivalent for Cancel.
*
*     Command-period abort key hit right after job dialog OK caused hang.  Fixed by checking if
*     iPrErr is nonzero just before ReadLaser calls (the ReadLaser call went into an infinite loop
*     if there was an error because the command that was supposed to be sent might not have
*     completely sent and thus no response will ever happen from the device.
*
*     Some (but not all) special extended hi-ascii characters don't work: not fixing this.
*
*     In job and style dialog, Cancel key equivalent now hilites correctly and Command-Period is
*     works in addition to ESC.
*
*****************************************************************************************************
*
* BEGIN 6.0.1
*
* July 3..4, 1992	    Matt Deatherage
*     Changed PostScript definition of /spf (the spotting function) to get it
*     defined correctly on level 2 printers, using a hard-coded default spot
*     function for when the dictionary isn't of HalfToneType 1.
*
*     Incremented version number to $0303 (3.3).  Changed copyright to include 1992.
*
*     Changed drawing of job dialog to include a call to PrGetNetworkName so we
*     can draw the chosen printer's name in the job dialog.  If there is no
*     network printer (PrGetNetworkName returns NIL), we draw "No network - not
*     supported".  Either Dave or I will change this to DrawStringWidth soon and
*     relayout the job dialog because it just doesn't fit well. (Search 7/3/92)
*
*     When we bypass the code that sets up the name tables and sends queries to the
*     printer (because we're creating a PS file), we now explictly set the LWType
*     variable to 1, indicating a LaserWriter Plus or II.  Now the code can find
*     all the standard 35N fonts in the built-in name tables, instead of just the
*     four faces used in LaserWriters plus Sonata, Carta and Shaston.  This means
*     you can now dump PS files that work correctly with styled variants of the
*     35N fonts.
*
* July 9, 1992	Dave Lyons
*     Changed the printer-name-in-job-dialog thing to use DrawStringWidth when
*     running under 6.0.1 or later (it uses DrawString in 6.0 and earlier, in case
*     we want to tell people they can use this driver under old systems).
*
*     Cleaned up a lot of stray semicolons & stuff.  Normalized DEA to DEC A,
*     INA to INC A.  Fixed capitalization of tool call macros.  Optimized pushing
*     result space in some places (PHA PHA instead of PushLong #0).
*
* November 13, 1992	    Matt Deatherage
*     Oops -- making level 2 color printing work broke level 1 color printing.
*     The test to see if currentscreen returns a function destroys the function
*     on the stack.  Now we 'dup' it first so it's still there after the 'eq.'
*     Adds four more bytes, big deal.
*
* 18-Feb-93	Dave Lyons
*     Changed AddStrToWBuff so a NIL pointer doesn't add anything to the output.
*     This way we don't get a garbage username in the file when PMGetUsername
*     returns NIL because we have no network connection (see also October 12,
*     1990 for related fix).
*
* 25-Mar-93	Dave Lyons
*
* Added 3 lines in CkPrinterStatus to nuke an infinite loop.  If our session
* timed out we start getting error $0806 from ReadLaser, but we didn't care.
*
*****************************************************************************************************
*
* THINGS TO DO
*
* Easy things:
*   Change many PushWord #0 and PushLong #0 to PHAs or LDA/PHAs.
*   Change lots of NewDItem calls to be table based
*   Make a subroutine for FindHandle+DisposeHandle sequence (pass pointer in XA)
*
* Hard things:
*   Print with better fonts (higher quality bitmaps and/or hook for other kinds of fonts)
*
*****************************************************************************************************

	include 'm16.util2'
	include 'm16.misctool'
	include 'm16.memory'
	include 'm16.event'
	include 'm16.quickdraw'
	include 'm16.qdaux'
	include 'm16.font'
	include 'm16.intmath'
	include 'm16.window'
	include 'm16.dialog'
	include 'm16.lineedit'
	include 'm16.control'
	include 'm16.print'
	include 'm16.loader'
	include 'm16.gsos'
	include 'special.macros'
	include 'e16.dialog'
	include 'e16.QuickDraw'

	blanks off
	string asis

US	equ 0
FR	equ 1
Pays	equ US

VersionNb	equ $0303	; Version 3.2
VersionMaj	equ $03	; Version 3.X
VersionMin	equ $03	; Vertion X.2


;----------------------------------------------
;
; Important equates
;
TRUE           	equ $FFFF
FALSE         	equ $0000

EOFError	equ $004C	; GS/OS error
DupPathName	equ $0047	; GS/OS error

NameNotFound	equ $0805	; AppleTalk error
SessionClosed	equ $0806	; AppleTalk error
ATFlowQuantum	equ 512	; flow quantum of AppleTalk

;----------------------------------------------
;
; Error Codes
;
PortNotOn	equ $1302
NoPrintRecord	equ $1303
;BadLaserPrep	equ $1304	; LaserPrep in LaserWriter is incompatible
;BadLPFile	equ $1305	; LaserPrep file in	Drivers dir is incompatible
PAPConnNotOpen	equ $1306	; Connection to LaserWriter is not open
PAPReadWriteErr	equ $1307	; AppleTalk PAP read or write error


;                copy ZeroPage

XTemp1	equ $0000	; $00 Print Manager uses these temp locations
XTemp2	equ XTemp1+4	; $04 This driver mostly uses QD_Tempx
PtrLocTable	equ Xtemp2+4	; $08
PtrOWTable	equ PtrLocTable+4	; $0C
Ourport	equ $0010	; $10
RawBuffHdl	equ OurPort+2	; $12
RawBuffPtr	equ RawBuffHdl+4	; $16
LengTabPtr	equ RawBuffPtr+4	; $1A
OffTabPtr	equ LengTabPtr+4	; $1E
		; $22
LW_UserID	equ $0024	; $24
pscreenport	equ LW_UserID+2	; $26
QD_Temp1	equ $002A	; $2A
QD_Temp2	equ QD_Temp1+4	; $2E
PtrCharTable	equ QD_Temp2+4	; $32
PtrMacRec	equ PtrCharTable+4	; $36
PtrBitImage	equ PtrMacRec+4	; $3A
PtrWorkingBit	equ PtrBitImage+4	; $3E

PZ_PrStatus	equ $00C0
PZ_pPrPort	equ PZ_PrStatus+4
PZ_hPrint	equ PZ_pPrPort+4


* Error Codes

noErr	equ 0
iIOAbort	equ -27
iMemFullErr	equ -108
iPrAbort	equ 128

;-----------------------------------------------------------
;
; Quick Draw equates
;
SetUpFontInfo	equ $E01F64	; vector to a routine in QD

y1	equ $00A6
x1	equ y1+2
y2	equ x1+2
x2	equ y2+2
ScratchPtr1	equ $002A
ScratchPtr2	equ ScratchPtr1+4

; Pixels
QdPort	equ $0024
SrcSCB	equ $00CC
SrcPixelMapRef	equ $00CE
SrcWidth	equ $00D2
SrcBounds	equ $00D4
SrcRect	equ $00DC
DestRect	equ $001C


FrameVerb	equ 0
PaintVerb	equ 1
EraseVerb	equ 2
InvertVerb	equ 3
FillVerb	equ 4

; Ovals
OvalTop	equ 0
Ovalheight	equ 8
OvalWidth	equ 10

; Arcs
ArcAngle	equ $00D2
StartAngle	equ $00D4

; Comments
TheKind	equ $00A6
TheSize	equ $00A8
TheHandle	equ $00AA

; Text
DrawCharVerb	equ 0
DrawTextVerb	equ 1



;-----------------------------------------------------------
;
; QuickDraw and Font Manager direct page addresses:
;
	;	CAUTION: This driver references QD and FM direct-page

EndOfGlobals	equ $4C	;NOTE: QuickDraw undocumented internal equates
ScanMaskRef    	equ EndOfGlobals
RgnHandleA     	equ ScanMaskRef+4
RgnPtrA        	equ RgnHandleA+4

TheFillPat     	equ $0E	;current QD pattern used by "FillXXX" draw commands
DrawVerb       	equ $38	;what to draw
TextPtr	equ $DA	;pointer to text, as in during text bottleproc
TextLength	equ $D8	;length to text, as in during text bottleproc
CharToDraw	equ $D6	;single char of text, as in during text bottleproc

endOfPtrs	equ $84	;NOTE: Font Manager undocumented internal equates
ascent         	equ endOfPtrs 	;font ascent
rowBytes	equ ascent+2  	;width of font strike in bytes
firstChar      	equ rowBytes+2	;first defined character in font
lastChar       	equ firstChar+2	;last defined character in font
kernMax        	equ lastChar+2	;font's max left kern, as a negative

fontHeadPtr	equ $70	;NOTE: Font Manager undocumented internal equates
fontRecPtr     	equ fontHeadPtr+4   ;to start of Mac-style font part
strikePtr      	equ fontRecPtr+4	;pointer to beginning of font strike
locTPtr       	equ strikePtr+4	;to beginning of font location table
owTPtr         	equ locTPtr+4	;beginning of font offset/width table

FBBDX          	equ 12	;fRectMax
FBBDY	equ 14	;chHeight
FDescent       	equ 20	;descent



;-----------------------------------------------------------
;
; Used by filter procs of Job and Style	dialog
;

inButtDwn	equ 1
KeyDown	equ 3
AutoKey	equ 5
ItemHit	equ 7
Event	equ ItemHit+4
TheDialog	equ Event+4
Result	equ TheDialog+4

Tab	equ $09	; ASCII values of keys
LineFeed	equ $0A
CReturn	equ $0D
Delete	equ $7F

;-----------------------------------------------------------
;
; Stack offsets for	the procedure SpecialWrite
;

DBR	equ 1	; stack offsets
RTL	equ 2
Count	equ 5
Ptr	equ 7

;-----------------------------------------------------------
;
; Font family numbers equates for Text procedure
;

Courier_Num	equ 1	; where these fonts appear in the
Symbol_Num	equ 4	; FN Tables
Sonata_Num	equ 5
Carta_Num	equ 6
ZapfDingbats_Num	equ 7


;-----------------------------------------------------------
;
; Equates used in MakeBMFont, the bitmap font downloading routine
;

CTableSize	equ 256*6	; size of the character table

oRowbytes	equ 0
oYoffset	equ 1
oXoffset	equ 2
oChWidth	equ 3
oImageWidth	equ 4
oImageHeight	equ 5

;-----------------------------------------------------------
;
; PicComment equates
;

PostScriptBegin	equ 190
PostScriptEnd	equ 191
PostScriptHandle	equ 192
PostScriptFile	equ 193
PostScriptText	equ 194



;         copy    PrtRecord.equ
*****************************
*
* PrtRecord.equ
*
* Current Rev: Mar 12, 1987
*
*****************************

Top	equ 0
Left	equ 2
Bottom	equ 4
Right	equ 6

* offset for the TPrint record length =	140 bytes

iPrVersion	equ 0	Integer    Printing	manager version number
prInfo	equ 2	subrecord  Printer Info Subrecord
rPaper	equ 16	Rect
prStl	equ 24	SubRecord
prInfoPT	equ 42	SubRecord
prXInfo	equ 56	SubRecord
prJob	equ 80	SubRecord
printx	equ 100	Array[1..19] of integer (38 bytes)
*             or printX
TPrintsize	equ 140
* prInfo subrecord length = 14 bytes

idev	equ 0	Integer
iVRes	equ 2	Integer
iHRes	equ 4	Integer
rPage	equ 6	Rect

* iDev values

iDevIW	equ 1	ImageWriter I or II
iDevLQ	equ 2	ImageWriter LQ
iDevLW	equ 3	LaserWriter
iDevEpson	equ 4	Epson

* Printer Specs
CantDetermine	equ 0
MonochromeOnly	equ 1
ColorCapable	equ 2

* TPrJob subrecord length = 20 bytes

iFstPage	equ 0	Integer
iLstPage	equ 2	Integer
iCopies	equ 4	Integer
bjDocLoop	equ 6	Signed byte
fFromUsr	equ 7	signed byte
pIdleProc	equ 8	Long address
pFileName	equ 12	Long address
iFileVol	equ 16	Integer          ??? Unit number ???
bFileVers	equ 18	signed byte
bJobX	equ 19	signed byte       internal

* bjDocLoop values

bDraftLoop	equ 0
bSpoolLoop	equ 1

* TPrStl subrecord info length = 18 bytes

wDev	equ 0	Integer
iPageV	equ 2	nombres de points par page
iPageH	equ 4
bPort	equ 6	Refnum
feed	equ 8
PaperType	equ 10
Vsizing	equ 12
Reduced	equ 14

* valeur du feed
feedcut	equ 0
feedfanFold	equ 1

* values linked to wDev
f0	equ 1	???
f1	equ 2	portrait
f2	equ 4	Smoothing
f3	equ 8	font substitution
f4	equ 16	???

* TprXInfo subrecord info length = 24 bytes

iRowBytes	equ 0	Integer
iBandV	equ 2	Integer
iBandH	equ 4	Integer
iDevBytes	equ 6	Integer
ibands	equ 8	Integer

bPatScale	equ 10	byte
bULThick	equ 11	byte
bULOffset	equ 12	byte
bULShadow	equ 13	byte
scan	equ 14	tscan
bXInfoX	equ 16	reserved

scanTB	equ 0
scanBT	equ 1
scanLR	equ 2
scanRL	equ 3

* printx record for	LaserWriter
PrFlag1	equ 0	word of flag
iZoomMin	equ 2	integer
iZoomMax	equ 4	integer
hDocName	equ 6	StringHandle to docname


;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

	IMPORT Action
;	IMPORT AddinFontlist
	IMPORT AllSame
	IMPORT BPOKrect
	IMPORT BPTextRect
	IMPORT Bold
	IMPORT BoldItalic
	IMPORT BoldOblique
	IMPORT Book
	IMPORT BookOblique
	IMPORT BotmOfImage
	IMPORT BoundingBox
	IMPORT BrText
	IMPORT BrTextLength
	IMPORT C_OkEvent
	IMPORT CharBitsDone
	IMPORT CharDone
	IMPORT CharNotDefined
	IMPORT CommentTable
	IMPORT Continue2
	IMPORT Continue3
	IMPORT Continue4
	IMPORT Continue5
	IMPORT Continue6
	IMPORT CopieFinalValue
	IMPORT CopieRect
	IMPORT CreatePSStr
	IMPORT CreationDate
	IMPORT Creator
	IMPORT DefaultCopie
	IMPORT Demi
	IMPORT DemiItalic
	IMPORT DemiOblique
	IMPORT DoArc
	IMPORT DoLine
	IMPORT DoOval
	IMPORT DoPAPErrors
	IMPORT DoPixel
	IMPORT DoRrect
	IMPORT EndComments
	IMPORT EndProlog
	IMPORT InfoRect640
	IMPORT InfoRect320
	IMPORT EventRecord
	IMPORT EvtWhat
	IMPORT EvtWhere
	IMPORT ExitArc
	IMPORT ExitComment
	IMPORT ExitLine
	IMPORT ExitOval
	IMPORT ExitPixel
	IMPORT ExitPixelMap
	IMPORT ExitPoly
	IMPORT ExitRect
	IMPORT ExitRrect
	IMPORT ExitText
	IMPORT FontTable
	IMPORT For
	IMPORT Frame1
	IMPORT Frame2
	IMPORT Frame25
	IMPORT Frame3
	IMPORT Frame4
	IMPORT Frame45
	IMPORT FromFinalValue
	IMPORT FromRect
	IMPORT GoToNextChar
	IMPORT Helvetica
	IMPORT IfCancelled
	IMPORT InfoRect
	IMPORT InfoStrPrep
	IMPORT InfoWindow
	IMPORT Iposlist
	IMPORT Istrlist
	IMPORT Istrnum
	IMPORT Italic
	IMPORT JIposlist
	IMPORT JIstrlist
	IMPORT JIstrnum
	IMPORT JobRect
	IMPORT Landscape
	IMPORT LaserOpened
	IMPORT Light
	IMPORT LightItalic
	IMPORT LoopCharBits
	IMPORT LoopCharTable
	IMPORT LoopChars
	IMPORT LoopOpen
	IMPORT LoopSpe
	IMPORT LoopTop
	IMPORT LoopWrite
	IMPORT MediumItalic
	IMPORT Narrow
	IMPORT NewPaperSize
	IMPORT NextRow
	IMPORT NoInstall
	IMPORT NoScale
	IMPORT NormalFonts
	IMPORT Not640
	IMPORT NotIn1
	IMPORT OKToContinue
	IMPORT OKrect
	IMPORT Oblique
	IMPORT Only1Word
	IMPORT P1rect
	IMPORT P1str
	IMPORT P2rect
	IMPORT P2str
	IMPORT P3rect
	IMPORT P3str
	IMPORT P4rect
	IMPORT P4str
	IMPORT PP_Landsc
	IMPORT PP_portrait
	IMPORT PSBegin
	IMPORT PSEnd
	IMPORT PSFile
	IMPORT PSHandle
	IMPORT PSText
	IMPORT Page
	IMPORT PageBoundingBox
	IMPORT Pages
	IMPORT ParamOpen
	IMPORT Portexist
	IMPORT ReduceRect
	IMPORT Reducedefault
	IMPORT Roman
	IMPORT S1rect
	IMPORT S2rect
	IMPORT S_Cancelevent
	IMPORT S_Copies
	IMPORT S_From
	IMPORT S_OkEvent
	IMPORT S_Page
	IMPORT S_Paper
	IMPORT S_Spe
	IMPORT S_To
	IMPORT SallRight
	IMPORT SendCStr
	IMPORT SendCharTable
	IMPORT SendOneChar
	IMPORT SendText
	IMPORT SendThePrep
	IMPORT Spe1str
	IMPORT Spe2str
	IMPORT StartWith1stLine
	IMPORT StyleRect
	IMPORT SystemF2
	IMPORT TestPat320
	IMPORT TestPat640
	IMPORT Times
	IMPORT Title
	IMPORT Tneq320
	IMPORT Tneq640
	IMPORT ToFinalValue
	IMPORT ToRect
	IMPORT TopOfImage
	IMPORT Trailer
	IMPORT UserPort
	IMPORT VSize
	IMPORT Yes
	IMPORT addOneCar
	IMPORT again
	IMPORT badreduRect
	IMPORT buttonstate
	IMPORT cancelrect
	IMPORT cancelstr
	IMPORT checkPat
	IMPORT checkmode
	IMPORT closefile
	IMPORT currentfile
	IMPORT def
	IMPORT doAuto
	IMPORT doCourier
	IMPORT doFonts
	IMPORT doLWFonts
	IMPORT doRect
	IMPORT doShaston
	IMPORT doall
	IMPORT dokey
	IMPORT dontreduce
	IMPORT dotext
	IMPORT down
	IMPORT dstbitf1
	IMPORT dstbitf2
	IMPORT dstbitr1
	IMPORT dstbitr2
	IMPORT endCstr
	IMPORT evtmods
	IMPORT evtmsg
	IMPORT finish
	IMPORT giveSelect
	IMPORT good
	IMPORT goodPtype
	IMPORT goodsize
	IMPORT goodtype
	IMPORT hm
	IMPORT infoDPort
	IMPORT infowidth320
	IMPORT infowidth640
	IMPORT invertthem
	IMPORT itsAllBlack
	IMPORT itsAllWhite
	IMPORT jOKrect
	IMPORT jcancelrect
	IMPORT l1
	IMPORT l2
	IMPORT landsc_p
	IMPORT landsc_r
	IMPORT loc320
	IMPORT loc640
	IMPORT loopModal
	IMPORT low
	IMPORT more
	IMPORT moreline
	IMPORT nameStr
	IMPORT namepos
	IMPORT nc
	IMPORT newOrigin
	IMPORT newPat
	IMPORT newPat640
	IMPORT no1
	IMPORT no2
	IMPORT no3
	IMPORT nofrom
	IMPORT nopageupdate
	IMPORT notNIL
	IMPORT notShaston
	IMPORT notallowed
	IMPORT nox2
	IMPORT off
	IMPORT okJob
	IMPORT okStyle
	IMPORT okstr
	IMPORT onemore
	IMPORT openfile
	IMPORT os
	IMPORT over0
	IMPORT over1
	IMPORT over11
	IMPORT over2
	IMPORT over3
	IMPORT over4
	IMPORT over5
	IMPORT over6
	IMPORT over7
	IMPORT over8
	IMPORT pBadRedPort
	IMPORT paramclose
	IMPORT paramread
	IMPORT pf1rect
	IMPORT pf1str
	IMPORT pf2rect
	IMPORT pf2str
	IMPORT pixel320
	IMPORT pixel640
	IMPORT pixelwidth
	IMPORT portrait_p
	IMPORT portrait_r
	IMPORT pr1rect
	IMPORT pr1str
	IMPORT pr2rect
	IMPORT pr2str
	IMPORT ptrList
	IMPORT putppat640
	IMPORT r320
	IMPORT readfile
	IMPORT reduceFinalValue
	IMPORT sameorigin
	IMPORT sendourpat
	IMPORT smallenough
	IMPORT tobedone
	IMPORT useridle
	IMPORT vs1rect
	IMPORT vs1str
	IMPORT vs2rect
	IMPORT vs2str
	IMPORT vs3rect
	IMPORT vs3str

	IMPORT JobNameStr
	IMPORT CloseQuoteStr
	IMPORT NoNetworkStr

;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

	ENTRY AddHexByte
	ENTRY AddHexWord
	ENTRY AddStrToWBuff
	ENTRY AddSpeToWBuff
	ENTRY AddTextToWBuff
	ENTRY AllowStatus
	ENTRY AppleFontPrefix
	ENTRY Arc
	ENTRY ArrayStr1
	ENTRY ArrayStr2
	ENTRY AvantGardeB
	ENTRY AvantGardeBI
	ENTRY AvantGardeI
	ENTRY AvantGardeP
	ENTRY BadReduce
	ENTRY BeginDict
	ENTRY OrigScreen
	ENTRY BookmanB
	ENTRY BookmanBI
	ENTRY BookmanI
	ENTRY BookmanP
	ENTRY ClipStrEnd
	ENTRY ClipStrStart
	ENTRY CloseBracket
	ENTRY CloseCurly
	ENTRY CloseDoc
	ENTRY CloseHex
	ENTRY CloseID
	ENTRY CloseInfo
	ENTRY CloseLaser
	ENTRY ClosePage
	ENTRY Comment
	ENTRY Comments
	ENTRY CompleteWrite
	ENTRY CoorFontStr
	ENTRY CourierB
	ENTRY CourierBI
	ENTRY CourierI
	ENTRY CourierP
	ENTRY CurClipRect
	ENTRY CurFontFamNum
	ENTRY CurTxSize
	ENTRY CurTxStyle
	ENTRY CursorStuff
	ENTRY DefaultProcs
	ENTRY DefPicStr
	ENTRY DoOutlineStr
	ENTRY DoShadowStr
	ENTRY DownLoadFile
	ENTRY DynamicExits
	ENTRY EndPoly
	ENTRY EndString
	ENTRY Exit0
	ENTRY Exit2
	ENTRY Exit4
	ENTRY FalseStr
	ENTRY FontList
	ENTRY GetStatus
	ENTRY HMargin
	ENTRY HelveticaB
	ENTRY HelveticaBI
	ENTRY HelveticaI
	ENTRY HelveticaNwB
	ENTRY HelveticaNwBI
	ENTRY HelveticaNwI
	ENTRY HelveticaNwP
	ENTRY HelveticaP
	ENTRY RestoreCursor
	ENTRY InstallProcs
	ENTRY JobFilter
	ENTRY LW
	ENTRY LWData
	ENTRY LaserProcs
	ENTRY Levelstr
	ENTRY Line
	ENTRY LineTo
	ENTRY LocalBuffer
	ENTRY LWType
	ENTRY MainData
	ENTRY MakeBMFont
	ENTRY MoveTo
	ENTRY MyCompletion
	ENTRY MyIdleProc
	ENTRY NewCenturyB
	ENTRY NewCenturyBI
	ENTRY NewCenturyI
	ENTRY NewCenturyP
	ENTRY NoShowMessage
	ENTRY NumEntriesX2
	ENTRY OpenBracket
	ENTRY OpenCurly
	ENTRY OpenDoc
	ENTRY OpenDocHeader
	ENTRY OpenFileName
	ENTRY OpenHex
	ENTRY OpenID
	ENTRY OpenInfoPrinting
	ENTRY OpenLaser
	ENTRY OpenPage
	ENTRY OurGetHandle
	ENTRY OurOrigin
	ENTRY OurPat
	ENTRY OurPnMode
	ENTRY OurPnPos
	ENTRY OurPnSize
	ENTRY Oval
	ENTRY PSBeginStr
	ENTRY PSEndStr
	ENTRY PalatinoB
	ENTRY PalatinoBI
	ENTRY PalatinoI
	ENTRY PalatinoP
	ENTRY PaperHsize
	ENTRY PaperVsize
	ENTRY PatStr
	ENTRY PatternInstalled
	ENTRY PatternType
	ENTRY PenPos
	ENTRY PenStr
	ENTRY PicStr
	ENTRY Pixel
	ENTRY PixelInstalled
	ENTRY Poly
	ENTRY PortOffset
	ENTRY PortOpened
	ENTRY PostScriptStr
	ENTRY PrAbortCheck
	ENTRY PrChanged
	ENTRY PrCloseDoc
	ENTRY PrClosePage
	ENTRY PrDrvrVer
	ENTRY PrGetPrinterSpecs
	ENTRY PrGetPgOrientation
	ENTRY PrError
	ENTRY PrJobDialog
	ENTRY PrOpenDoc
	ENTRY PrOpenPage
	ENTRY PrPicfile
	ENTRY PrPixelMap
	ENTRY PrSetError
	ENTRY PrStlDialog
	ENTRY PrValidate
	ENTRY PrintDefault
	ENTRY Printer_Name
	ENTRY ProcImage
	ENTRY ProcsTable
	ENTRY PrtRecordDflt
	ENTRY PSFileName
	ENTRY QMark
	ENTRY ReadBuffer
	ENTRY ReadingDone
	ENTRY ReadLaser
	ENTRY Rect
	ENTRY Resolution
	ENTRY RestorePtr
	ENTRY Rrect
	ENTRY SaveDrawVerb
	ENTRY SaveStuff
	ENTRY SaveX1
	ENTRY SaveX2
	ENTRY SaveY1
	ENTRY SaveY2
	ENTRY Scale
	ENTRY ScaleFr
	ENTRY ScaleStr
	ENTRY ScreenPort
	ENTRY SemiColon
	ENTRY SetFont
	ENTRY SetGray
	ENTRY SetUpNameTables
	ENTRY ShastonTable
	ENTRY ShastonB
	ENTRY ShastonBI
	ENTRY ShastonI
	ENTRY ShastonP
	ENTRY ShowProgress
	ENTRY ShowStatus
	ENTRY ShowStatusFlag
	ENTRY Slash
	ENTRY SpaceChar
	ENTRY SpecialWrite
	ENTRY StartPoly
	ENTRY StartString
	ENTRY StatusBuffer
	ENTRY StatusLaser
	ENTRY StdPnState
	ENTRY StyleFilter
	ENTRY Stylewidth
	ENTRY TestSave
	ENTRY Textbt
	ENTRY Textet
	ENTRY Textgf
	ENTRY Textmt
	ENTRY Textsfs
	ENTRY Timer
	ENTRY TimesB
	ENTRY TimesBI
	ENTRY TimesI
	ENTRY TimesP
	ENTRY Translate
	ENTRY TranslateStr
	ENTRY TrueStr
	ENTRY VMargin
	ENTRY VRes
	ENTRY WaitCursor
	ENTRY WriteBuffer
	ENTRY WriteID
	ENTRY WriteLaser
	ENTRY WriteLen
	ENTRY WriteLength
	ENTRY ZapfChancery
	ENTRY ZeroPage
	ENTRY addCoordinate
	ENTRY addacc
	ENTRY bbStr
	ENTRY checkport
	ENTRY color
	ENTRY SCBValue
	ENTRY drawArc
	ENTRY drawRect
	ENTRY drawRrect
	ENTRY drawoval
	ENTRY fPSFile
	ENTRY hPrint_test
	ENTRY hRes
	ENTRY hprint
	ENTRY iPageNum
	ENTRY iPrErr
	ENTRY jobdialog
	ENTRY metrics
	ENTRY numstr
	ENTRY pPrint_test
	ENTRY pagesizeselection
	ENTRY polyLine
	ENTRY readinglength
	ENTRY restoreStr
	ENTRY return
	ENTRY saveStr
	ENTRY styledialog
	ENTRY text
	ENTRY utilities
	ENTRY xEndPnState
	ENTRY xLocStart
	ENTRY xlstr
	ENTRY newInterval


**********************************************************************
*
* LaserWriter Driver
*
* Starts here.
*
**********************************************************************
	EXPORT LW
LW	PROC

;-----------------------------------------------------------
;
; Header to denote new calls supported
;

	DC.W 0	; marker
	DC.W (EndProcList-ProcList)/4 ; count of calls supported

	jmp (ProcList,x)
;;;	rtl	;dead code (9-Jul-92 DAL)

PrControl	lda #0
	brl exit0

ProcList	DC.L PrintDefault
	DC.L PrValidate
	DC.L PrStlDialog
	DC.L PrJobDialog
	DC.L PrDrvrVer
	DC.L PrOpenDoc
	DC.L PrCloseDoc
	DC.L PrOpenPage
	DC.L PrClosePage
	DC.L PrPicfile
	DC.L PrControl
	DC.L PrError
	DC.L PrSetError
	DC.L PrChanged
	DC.L PrPixelMap
		; begin new calls
	DC.L PrGetPrinterSpecs
	DC.L PrGetPgOrientation

EndProcList
	ENDP



;                copy    Maindata
*****************************
*           	        *
* Maindata  	        *
*                           *
* Current Rev: Jan 25, 1988 *
*                           *
*****************************

	EXPORT MainData
MainData	PROC

	EXPORT AllowStatus
AllowStatus	DS.B 2
	EXPORT ZeroPage
ZeroPage	DS.B 2
	EXPORT iPrErr
iPrErr	DS.B 2
	EXPORT iPageNum
iPageNum	DS.B 2
	EXPORT hprint
hprint	DS.B 140	TPrintsize

;
; flag to indicate if OpenPort has been	called in PrOpenDoc, so a ClosePort
; can be called in PrCloseDoc.
;
	EXPORT PortOpened
PortOpened	DS.B 2
;
; flag to indicated	if status or progress messages can be displayed, set to
; false by PrPixelMap since it doesn't put up a window
;
	EXPORT NoShowMessage
NoShowMessage	DS.B 2

	EXPORT Timer
Timer	DS.B 2	; tick count of first attempt

	EXPORT ScreenPort
ScreenPort	DS.B portsize

	EXPORT fPSFile
fPSFile	DS.B 2	; flag to indicate if printing or writing
		; PostScript to a file
	EXPORT CursorAd
CursorAd	DS.B 4	; ptr to cursor record

	EXPORT OurPnSize
OurPnSize	DS.B 4
	EXPORT OurPnMode
OurPnMode	DS.B 2
	EXPORT OurPat
OurPat	DS.B 32
	EXPORT OurPnPos
OurPnPos	DS.B 4
	EXPORT OurOrigin
OurOrigin	DS.B 4
	EXPORT PatternType
PatternType	DC.W 0	Black Pat
	EXPORT CurClipRect
CurClipRect	DS.B 8	; current clipping rectangle

; PicComments in effect?: 0 = not in effect  1 = PostScriptText  -1 = others
	EXPORT Comments
Comments	DC.W 0	; defaults to no

	EXPORT Printer_Name
Printer_Name	DC.B 1
	DC.B '='
	DC.B 11

	EXPORT ProductName
ProductName	DC.B 'LaserWriter'
	DC.B 1
	DC.B '*'

	EXPORT OpenFileName
OpenFileName	DS.B 258	; length word + 256 bytes for path name

	EXPORT Stylewidth
Stylewidth	DS.B 2
	EXPORT SCBValue
SCBValue	DS.B 2
	EXPORT PatternInstalled
PatternInstalled	DS.B 2
	EXPORT PixelInstalled
PixelInstalled	DS.B 2
	EXPORT ShowStatusFlag
ShowStatusFlag	DS.B 2
	EXPORT Resolution
Resolution	DS.B 2
;
; Used in Text
;
	EXPORT CurFontFamNum
CurFontFamNum	DC.W -1
	EXPORT CurFontName
CurFontName	DS.B 26	; Pstring of 25 characters
	EXPORT CurTxSize
CurTxSize	DC.W -1
	EXPORT CurTxStyle
CurTxStyle	DC.W -1

;
; Used in Text and Rect
;
	EXPORT PenPos
PenPos	DS.B 4
	EXPORT numstr
numstr	DS.B 5
	EXPORT SaveDrawVerb
SaveDrawVerb	DS.B 2
	EXPORT SaveY1
SaveY1	DS.B 2
	EXPORT SaveX1
SaveX1	DS.B 2
	EXPORT SaveY2
SaveY2	DS.B 2
	EXPORT SaveX2
SaveX2	DS.B 2

	ENDP

**********************************************************************

	EXPORT LWData
LWData	PROC

	EXPORT WriteLength
WriteLength	DS.B 2

	EXPORT StatusBuffer
StatusBuffer	DS.B 260
	EXPORT readinglength
readinglength	DS.B 2
	EXPORT StatusError
StatusError	DS.B 2
	EXPORT EndofRead
EndofRead	DS.B 2
	EXPORT ReadBuffer
ReadBuffer	DS.B ATFlowQuantum
	EXPORT LocalBuffer
LocalBuffer	DS.B ATFlowQuantum	; used to free up ReadBuffer for
		; the next PAPRead
	EXPORT LocalBufSize
LocalBufSize	DS.B 2
	EXPORT BufferIndex
BufferIndex	DS.B 2
	EXPORT WriteBuffer
WriteBuffer	DS.B ATFlowQuantum+8

	EXPORT CreateGSParams
CreateGSParams	DC.W 3	; param count
	DC.L PSFileName	; path name pointer
	DC.W $00C3	; access bits
	DC.W $04	; file type - text

	EXPORT OpenGSParams
OpenGSParams	DC.W 2	; param count
	EXPORT OpenID
OpenID	DC.W 0	; ref num
	DC.L PSFileName	; path name pointer


	EXPORT PSFileName	; GS/OS class 1 string
PSFileName	DC.W PSFileNameEnd-PSFileName-2
	DC.B '*/system/drivers/PostScript.GS00'
PSFileNameEnd


	EXPORT WriteGSParams
WriteGSParams	DC.W 4	; param count
	EXPORT WriteID
WriteID	DC.W 0	; ref num
	DC.L WriteBuffer	; data buffer
	EXPORT WriteLen
WriteLen	DC.L 0	; request count
	DC.L 0	; actual count


	EXPORT CloseGSParams
CloseGSParams	DC.W 1	; param count
	EXPORT CloseID
CloseID	DC.W 0	; ref num

	ENDP

*****************************
*           	        *
* Current Rev: Sep 25, 1987 *
*                           *
*****************************


	EXPORT PrtRecordDflt
PrtRecordDflt	PROC

	EXPORT hPrint_test
hPrint_test	DC.L pPrint_test
	EXPORT pPrint_test
pPrint_test	DC.L Print_test


	EXPORT Print_test
Print_test

* offset for the TPrint record length =	140 bytes

	dc.b VersionMaj,VersionMin	*iPrVersion	equ 0
*prInfo         equ	 2        subrecord	 Printer Info Subrecord
* prInfo subrecord length = 14 bytes
	DC.W iDevLW	*idev           equ	 0
	DC.W 72	*iVRes          equ	 2
	DC.W 80	*iHRes          equ	 4
	DC.W 0,0,396,640	*rPage          equ	 6

	DC.W -36,-20,752,660 *rPaper         equ  16

*prStl          equ	 24       SubRecord
* TPrStl subrecord info length = 18 bytes

	DC.W $0	wDev           equ	0
	DC.W 1320	iPageV         equ	2
	DC.W 1020	iPageH         equ	4
	DC.W 0	bPort          equ	6
	DC.W 1	feed           equ	8
	DC.W 0	Printer type if Laser equ 10
	DC.W 0	V sizing if LaserWriter
	DC.W 100	reduce size
	DC.W 0	reserved

*prInfoPT       equ	 42       SubRecord
	DC.W iDevLW	*idev           equ	 0
	DC.W 72	*iVRes          equ	 2
	DC.W 80	*iHRes          equ	 4
	DC.W 0,0,396,640	*rPage          equ	 6

*prXInfo        equ	 56       SubRecord

	DC.W 80	iRowBytes      equ	0
	DC.W 32	iBandV         equ	2
	DC.W 640	iBandH         equ	4
	DC.W 10240	iDevBytes      equ	6
	DC.W 12	ibands         equ	8

	DC.B 0	bPatScale      equ	10
	DC.B 1	bULThick       equ	11
	DC.B 1	bULOffset      equ	12
	DC.B 1	bULShadow      equ	13
	DC.B 0	scan           equ	14
	DC.B 0	bXInfoX        equ	16
	DCB.B 8,0	reserved

*prJob          equ	 80       SubRecord
* TPrJob subrecord length = 20 bytes

	DC.W 1	iFstPage       equ	0
	DC.W 999	iLstPage       equ	2
	DC.W 1	iCopies        equ	4
	DC.B 1	bjDocLoop      equ	6
	DC.B 1	fFromUsr       equ	7
	DC.L 0	pIdleProc      equ	8
	DC.L 0	pFileName      equ	12
	DC.W 0	iFileVol       equ	16
	DC.B 0	bFileVers      equ	18
	DC.B 0	bJobX          equ	19


*printx         equ	 100      Array[1..19] of integer (38 bytes)
	DC.W 0
	DC.W 25
	DC.W 400
	DC.L 0	Nil
	DC.W 0	; should be a total	of 20 integers
	DC.W 0
	DC.W 0
	DC.W 0
	DC.W 0
	DC.W 0
	DC.W 0
	DC.W 0
	DC.W 0
	DC.W 0
	DC.W 0
	DC.W 0
	DC.W 0
	DC.W 0
	DC.W 0



	EXPORT VRes
VRes	DC.W 36
	DC.W 54
	DC.W 72

	EXPORT hRes
hRes	DC.W 40
	DC.W 80

	EXPORT VMargin
VMargin	DC.W 18
	DC.W 36
	DC.W 54
	DC.W 0

	EXPORT HMargin
HMargin	DC.W 18
	DC.W 29
	DC.W 21
	DC.W 0

	EXPORT PaperVsize
PaperVsize	DC.W 792
	DC.W 1008
	DC.W 842
	DC.W 709

	EXPORT PaperHsize
PaperHsize	DC.W 612
	DC.W 612
	DC.W 596
	DC.W 499

	EXPORT pagesizeselection
pagesizeselection	DC.W 1320
	DC.W 1680
	DC.W 1403
	DC.W 1212

	ENDP

;              copy	   PostScript.Str
*****************************************************************
*
* PostScript strings
*
* Current Rev. Jan 19, 1988
*
*****************************************************************
	EXPORT PostScriptStr
PostScriptStr	PROC

	EXPORT TrueStr
	EXPORT FalseStr
	EXPORT QMark
	EXPORT SpaceChar
	EXPORT Slash
	EXPORT OpenBracket
	EXPORT CloseBracket
	EXPORT OpenCurly
	EXPORT CloseCurly
	EXPORT OpenHex
	EXPORT CloseHex
	EXPORT StartString
	EXPORT EndString
	EXPORT SemiColon

TrueStr	str ' T '
FalseStr	str ' F '
QMark	str '?'
SpaceChar	str ' '
Slash	str '/'
OpenBracket	str '['
CloseBracket	str ']'
OpenCurly	str '{'
CloseCurly	str '}'
OpenHex	str '<'
CloseHex	str '>'
SemiColon	str ';'
StartString	str '('
EndString	str ')'


	EXPORT return
return	DC.B 1
	DC.B $0D

	EXPORT saveStr
saveStr	DC.B 5
	DC.B 'save'
	DC.B $0D
	EXPORT restoreStr
restoreStr	DC.B 8
	DC.B 'restore'
	DC.B $0D

	EXPORT JobTitleComment
JobTitleComment	DC.B JobTitleCommentEnd-JobTitleComment-1
	DC.B '%!PS-Adobe-2.0'
	DC.B $0D
	DC.B '%%Title: '
JobTitleCommentEnd

	EXPORT ForUserComment
ForUserComment	DC.B ForUserCommentEnd-ForUserComment-1
	DC.B $0D
	DC.B '%%For: '
ForUserCommentEnd

	EXPORT HeaderComment
HeaderComment	DC.B HeaderCommentEnd-HeaderComment-1
	DC.B $0D
	DC.B '%%Creator: '
	DC.B $0D
	DC.B '%%CreationDate: '
	DC.B $0D
	DC.B '%%Pages: (atend)'
	DC.B $0D
	DC.B '%%BoundingBox: ? ? ? ?'
	DC.B $0D
	DC.B '%%PageBoundingBox: ? ? ? ?'
	DC.B $0D
	DC.B '%%EndComments'
	DC.B $0D
	EXPORT HeaderCommentEnd
HeaderCommentEnd

	EXPORT EndPrologComment
EndPrologComment	DC.B EndPrologCommentEnd-EndPrologComment-1
	DC.B '%%EndProlog'
	DC.B $0D
EndPrologCommentEnd

	EXPORT PageComment
PageComment	DC.B PageCommentEnd-PageComment-1
	DC.B '%%Page: ? '
PageCommentEnd

	EXPORT TrailerComment
TrailerComment	DC.B TrailerCommentEnd-TrailerComment-1
	DC.B '%%Trailer'
	DC.B $0D
TrailerCommentEnd

	EXPORT PagesComment
PagesComment	DC.B PagesCommentEnd-PagesComment-1
	DC.B '%%Pages: '
PagesCommentEnd

	EXPORT EOFComment
EOFComment	DC.B EOFCommentEnd-EOFComment-1
	DC.B ' 0'
	DC.B $0D
	DC.B '%%EOF'
EOFCommentEnd

	EXPORT BeginDict
BeginDict	DC.B BeginDictEnd-BeginDict-1
	DC.B 'GSd begin'
	DC.B $0D
	EXPORT BeginDictEnd
BeginDictEnd
	EXPORT Queries
Queries	DC.B QueriesEnd-Queries-1
	DC.B '%!PS-Adobe-2.0 Query'
	DC.B $0D
	DC.B '%%?BeginPrinterQuery'
	DC.B $0D
	DC.B 'statusdict begin revision == version == product == end flush'
	DC.B $0D
	DC.B '%%?EndPrinterQuery: Unknown'
	DC.B $0D
	DC.B '%%?BeginFontListQuery'
	DC.B $0D
	DC.B 'FontDirectory{pop = flush}forall/* = flush'
	DC.B $0D
	DC.B '%%?EndFontListQuery: /*'
	DC.B $0D
	DC.B '%%EOF'
	DC.B $0D
	EXPORT QueriesEnd
QueriesEnd

	EXPORT JobName1
JobName1	str 'statusdict/jobname(User - '

	EXPORT JobName2
JobName2	str ', Document - '

	EXPORT JobName3
JobName3	DC.B 5
	DC.B ')put'
	DC.B $0D

	EXPORT OpenDoc
OpenDoc	DC.B 4
	DC.B ' od'
	DC.B $0D
	EXPORT CloseDoc
CloseDoc	DC.B 4
	DC.B 'end'
	DC.B $0D
	EXPORT OpenPage
OpenPage	DC.B 3
	DC.B 'op'
	DC.B $0D
	EXPORT ClosePage
ClosePage	DC.B 3
	DC.B 'cp'
	DC.B $0D

	EXPORT UpVmStr
UpVmStr	DC.B 6
	DC.B 'up vm'
	DC.B $0D

	EXPORT DnStr
DnStr	DC.B 3
	DC.B 'dn'
	DC.B $0D

	EXPORT ClipStrStart
ClipStrStart	DC.B 4
	DC.B '(nc '
	EXPORT ClipStrEnd
ClipStrEnd	DC.B 9
	DC.B ' 6 rc)kp'
	DC.B $0D

	EXPORT MoveTo
MoveTo	DC.B 5
	DC.B ' mto'
	DC.B $0D
	EXPORT xlstr
xlstr	DC.B 4
	DC.B ' xl'
	DC.B $0D
	EXPORT PenStr
PenStr	DC.B 5
	DC.B ' pen'
	DC.B $0D

	EXPORT LineTo
LineTo	DC.B 5
	DC.B ' lin'
	DC.B $0D
	EXPORT drawRect
drawRect	DC.B 4
	DC.B ' rc'
	DC.B $0D
	EXPORT drawRrect
drawRrect	DC.B 4
	DC.B ' rr'
	DC.B $0D
	EXPORT drawoval
drawoval	DC.B 4
	DC.B ' ov'
	DC.B $0D
	EXPORT drawArc
drawArc	DC.B 4
	DC.B ' ar'
	DC.B $0D
	EXPORT StartPoly
StartPoly	DC.B 3
	DC.B 'sp'
	DC.B $0D
	EXPORT EndPoly
EndPoly	DC.B 3
	DC.B 'ep'
	DC.B $0D
	EXPORT polyLine
polyLine	DC.B 4
	DC.B ' pl'
	DC.B $0D

	EXPORT PatStr
PatStr	DC.B 4
	DC.B 'pat'
	DC.B $0D

	EXPORT ScaleFr
ScaleFr	DC.B 4
	DC.B ' fr'
	DC.B $0D
	EXPORT Textgf
Textgf	DC.B 4
	DC.B ' gf'
	DC.B $0D
	EXPORT Textbt
Textbt	DC.B 3
	DC.B 'bt'
	DC.B $0D
	EXPORT Textmt
Textmt	DC.B 4
	DC.B ' mt'
	DC.B $0D
	EXPORT Textet
Textet	DC.B 3
	DC.B 'et'
	DC.B $0D
	EXPORT Textsfs
Textsfs	DC.B 5
	DC.B ' sfs'
	DC.B $0D

	EXPORT DoOutlineStr
DoOutlineStr	DC.B 7
	DC.B ' F aos'
	DC.B $0D
	EXPORT DoShadowStr
DoShadowStr	DC.B 7
	DC.B ' T aos'
	DC.B $0D


	EXPORT ClrItalics
ClrItalics	str ' ci'
	EXPORT SetItalics
SetItalics	str ' si'

	EXPORT makeBoldStr
makeBoldStr	DC.B 4
	DC.B ' mb'
	DC.B $0D
	EXPORT makeOutlineStr
makeOutlineStr	DC.B 4
	DC.B ' mo'
	DC.B $0D
	EXPORT makeShadowStr
makeShadowStr	DC.B 4
	DC.B ' ms'
	DC.B $0D

	EXPORT AppleFontPrefix
AppleFontPrefix	str '/|______'

	EXPORT CoorFontStr
CoorFontStr	DC.B 3
	DC.B 'rf'
	DC.B $0D

	EXPORT SetFont
SetFont	DC.B 12
	DC.B '/|______Font'

	EXPORT bbStr
bbStr	DC.B 4
	DC.B ' bb'
	DC.B $0D

	EXPORT bfStr
bfStr	DC.B 4
	DC.B ' bf'
	DC.B $0D

	EXPORT cdfStr
cdfStr	DC.B 4
	DC.B 'cdf'
	DC.B $0D

	EXPORT CharDataStr
CharDataStr	DC.B 21
	DC.B ' array /CharData mdf'
	DC.B $0D

	EXPORT CharTableStr
CharTableStr	DC.B 15
	DC.B '/CharTable mdf'
	DC.B $0D


	EXPORT ShastonTable
ShastonTable	DC.L ShastonP
	DC.L ShastonB
	DC.L ShastonI
	DC.L ShastonBI

	EXPORT ShastonP
	EXPORT ShastonB
	EXPORT ShastonI
	EXPORT ShastonBI

ShastonP	str 'Shaston'
ShastonB	str 'Shaston-Bold'
ShastonI	str 'Shaston-Oblique'
ShastonBI	str 'Shaston-BoldOblique'

	EXPORT AvantGardeP
	EXPORT AvantGardeB
	EXPORT AvantGardeI
	EXPORT AvantGardeBI
	EXPORT BookmanP
	EXPORT BookmanB
	EXPORT BookmanI
	EXPORT BookmanBI
	EXPORT CourierP
	EXPORT CourierB
	EXPORT CourierI
	EXPORT CourierBI
	EXPORT HelveticaP
	EXPORT HelveticaB
	EXPORT HelveticaI
	EXPORT HelveticaBI
	EXPORT HelveticaNwP
	EXPORT HelveticaNwB
	EXPORT HelveticaNwI
	EXPORT HelveticaNwBI
	EXPORT NewCenturyP
	EXPORT NewCenturyB
	EXPORT NewCenturyI
	EXPORT NewCenturyBI
	EXPORT PalatinoP
	EXPORT PalatinoB
	EXPORT PalatinoI
	EXPORT PalatinoBI
	EXPORT TimesP
	EXPORT TimesB
	EXPORT TimesI
	EXPORT TimesBI
	EXPORT ZapfChancery

	EXPORT ArrayStr1


AvantGardeP	str 'AvantGarde-Book'
AvantGardeB	str 'AvantGarde-Demi'
AvantGardeI	str 'AvantGarde-BookOblique'
AvantGardeBI	str 'AvantGarde-DemiOblique'
BookmanP	str 'Bookman-Light'
BookmanB	str 'Bookman-Demi'
BookmanI	str 'Bookman-LightItalic'
BookmanBI	str 'Bookman-DemiItalic'
CourierP	str 'Courier'
CourierB	str 'Courier-Bold'
CourierI	str 'Courier-Oblique'
CourierBI	str 'Courier-BoldOblique'
HelveticaP	str 'Helvetica'
HelveticaB	str 'Helvetica-Bold'
HelveticaI	str 'Helvetica-Oblique'
HelveticaBI	str 'Helvetica-BoldOblique'
HelveticaNwP	str 'Helvetica-Narrow'
HelveticaNwB	str 'Helvetica-Narrow-Bold'
HelveticaNwI	str 'Helvetica-Narrow-Oblique'
HelveticaNwBI	str 'Helvetica-Narrow-BoldOblique'
NewCenturyP	str 'NewCenturySchlbk-Roman'
NewCenturyB	str 'NewCenturySchlbk-Bold'
NewCenturyI	str 'NewCenturySchlbk-Italic'
NewCenturyBI	str 'NewCenturySchlbk-BoldItalic'
PalatinoP	str 'Palatino-Roman'
PalatinoB	str 'Palatino-Bold'
PalatinoI	str 'Palatino-Italic'
PalatinoBI	str 'Palatino-BoldItalic'
TimesP	str 'Times-Roman'
TimesB	str 'Times-Bold'
TimesI	str 'Times-Italic'
TimesBI	str 'Times-BoldItalic'
ZapfChancery	str 'ZapfChancery-MediumItalic'

ArrayStr1	str '/colorarray['
	EXPORT ArrayStr2
ArrayStr2	DC.B 5
	DC.B ']def'
	DC.B $0D
	EXPORT Levelstr
Levelstr	DC.B LevelstrEnd-Levelstr-1
	DC.B '{15 mul 0.5 add cvi colorarray exch'
	DC.B ' get 45 div}settransfer'
	DC.B $0D
	EXPORT LevelstrEnd
LevelstrEnd
	EXPORT PicStr
PicStr	str '/picstr '
	EXPORT DefPicStr
DefPicStr	DC.B DefPicStrEnd-DefPicStr-1
	DC.B ' string def'
	DC.B $0D
	EXPORT DefPicStrEnd
DefPicStrEnd
	EXPORT ProcImage
ProcImage	DC.B ProcimageEnd-Procimage-1
	DC.B '{currentfile picstr readhexstring pop}image'
	DC.B $0D
	EXPORT ProcImageEnd
ProcImageEnd
	EXPORT ScaleStr
ScaleStr	DC.B 7
	DC.B ' scale'
	DC.B $0D
	EXPORT TranslateStr
TranslateStr	DC.B 11
	DC.B ' translate'
	DC.B $0D

	EXPORT PSBeginStr
PSBeginStr	DC.B 13
	DC.B '/os save def'
	DC.B $0D
	EXPORT PSEndStr
PSEndStr	DC.B 11
	DC.B 'os restore'
	DC.B $0D



;---------------------------------------------------------------------



	EXPORT OrigScreen
OrigScreen	DC.B OrigScreenEnd-OrigScreen-1
	DC.B 'sfreq sang /sproc load setscreen'
	DC.B $0D
	EXPORT OrigScreenEnd
OrigScreenEnd

	EXPORT SetGray
SetGray	DC.B 9
	DC.B ' setgray'
	DC.B $0D

	ENDP


;                Copy    DevCalls
**************************
*                        *
* Devcalls               *
*                        *
* Last Rev. Apr 27, 1988 *
*        	     *
**************************

*****************************************************************
*
* Opens PAP connections to the LaserWriter
*
*****************************************************************

	EXPORT OpenLaser
OpenLaser	PROC

;              PushLong #0
;              _TickCount   ; get starting tick count
;              pla
;              sta timer    ; keep low word
;              pla	    ; discard high word

	lda fPSFile	; are we writing to file?
	beq Retry	; nope, go open connection to LW

;-----------------------------------------------------------
;
; PostScript output file name format: PostScript.GSxx, where xx are numbers from 00 to 99
;

	stz Number	; start off with 00
TryAgain
	PushWord Number
	pushlong #NumberStr
	PushWord #2
	_Int2Hex	; convert to ASCII
	bcc @1
	brl Error
@1	ldx PSFileName
	lda NumberStr	; two byte string
	sta PSFileName,x	; replace the last two characters

	_CreateGS CreateGSParams ; create the file
	bcc GoOn
	cmp #DupPathName
	beq @2
	brl Error
@2	inc Number	; try next increment
	bra TryAgain

GoOn	_OpenGS OpenGSParams ; and open it
	bcc @1
	brl Error

@1	lda OpenID	; update the useful IDs
	sta WriteID
	sta CloseID

	stz writelength
	brl Exit

Retry	stz ReadingDone	; ensures that read buffer is not
	jsr GetStatus	; dealt with at this time 4/27/88
	lda StatusError	; if an error on status, we've got problems
	bne UserAbort	; with the printer

	stz OpenDone
	pushlong #CompleteOpen
	pushlong #0
	_PrDevOpen

LoopOpen	lda Opendone	; is open complete?
	bmi Opened

	jsl MyIdleProc
	lda iPrErr	; don't bother waiting till connection
	bne UserAbort	; is opened if user	cancels

	jsr GetStatus
	lda StatusError	; if an error on status, we've got problems
	bne UserAbort	; with the printer
	jsr ShowStatus

	bra LoopOpen	; sit and wait

;----------------------------------------------------------------
;
; Next section commented out till new AppleTalk code with PAPOpen
; bug fix is available.
;
;----------------------------------------------------------------
;
; LaserWriter does not respond while it	is in a warm up cycle.
; We cannot always tell if the LaserWriter is not on the network,
; not turned on or has just been turned	on and is warming up.
; Experiments have shown that the magic	number for warming up is
; about 2 minutes. So we check the tick	count each time we get a
; NameNotFound error and keep trying for 2 minutes from the	time
; of the first attempt.
;

;              lda OpenError    ; get error from open
;              beq OpenOK   ; no problem opening
;              cmp #NameNotFound    ; oops, can't find LaserWriter by name
;              bne UserAbort    ; do no	more if other errors occur

;              PushLong #0
;              _TickCount
;              pla
;              plx	    ; again, get rid of high word
;              sec
;              sbc timer    ; check against starting count
;              cmp #3600*2  ; 2 minutes	passed?
;              bge LWNotThere   ; yep, guess LW is not available

;              bra Retry

;LWNotThere     lda	OpenError
;              bra UserAbort

Opened

;--------------------------------------------------------------------
;
; Get rid of the next two lines when we	have the new Appletalk code.
;
	lda OpenError	; get error from open
	bne UserAbort	; do no more if error occurs

OpenOK	lda NoShowMessage	; True if PrPixelMap is calling
	bne NoShow	; this routine
	dec ShowStatusFlag	; enable status to be shown
	jsr ShowStatus	; display PAPOpen status

NoShow	stz writelength	; Nothing to write yet

;-----------------------------------------------------------------------
;
; Issues a PAPRead now so that there will be one pending when we begin
; the session.
;

	stz ReadingDone
	stz ReadingLength

	PushWord #0	; space for actual length
	pushlong #MyCompletion
	PushWord #ATFlowQuantum
	pushlong #ReadBuffer
	_PrDevAsyncRead
	pla	; this value is invalid at this
		; point in time since this is an
		; async read call

;
; There should not be any read errors until read is completed.
;

Exit	lda #0
Error
UserAbort	cmp #1
	rts

	EXPORT OpenDone
OpenDone	DS.B 2	; flag indicating open is completed
OpenError	DS.B 2	; error returned from PAPOpen call
Timer	DS.B 2	; tick count of first open attempt
Number	DS.B 2	; number for appending to end of PS output file
NumberStr	DC.B $30,$30	; start with 00

;---------------------------------------------------------------
;
; Completion routine for PAPOpen which sets the done flag and
; saves error returned.
;

	EXPORT CompleteOpen
CompleteOpen	sta >OpenError

	lda #True
	sta >OpenDone

	rtl

	ENDP

*****************************************************************
*
* Closes PAP connections to the LaserWriter
*
*****************************************************************

	EXPORT CloseLaser
CloseLaser	PROC

	lda fPSFile	; are we writing to file?
	beq CloseLW	; nope, go close connection to LW

	_CloseGS CloseGSParams ; close the PostScript file
	rts

CloseLW	_PrDevClose
	rts

	ENDP

*****************************************************************
*
* Reads the buffer with data from the LaserWriter
*
*****************************************************************

	EXPORT ReadLaser
ReadLaser	PROC

LoopRead	lda ReadingDone
	bpl LoopRead

	lda ReadError	; check error
	bne ExitRead	; exit now if there	is one

;----------------------------------------------------------------
;
; Moves the data returned in the read buffer into a local buffer
; since the read buffer will be destroyed when the next read is
; issued.
;

	pushlong #ReadBuffer
	pushlong #LocalBuffer
	PushWord #0	; high byte of long	word is always 0
	PushWord ReadingLength ; since the length is 512 max
	_BlockMove

	lda ReadingLength
	sta LocalBufSize	; set up this variable for use later

;---------------------------------------------------------------------
;
; Issue another read, so there will always be one pending.
;

	stz ReadingDone
	stz ReadingLength

	PushWord #0	; space for actual length
	pushlong #MyCompletion
	PushWord #ATFlowQuantum
	pushlong #ReadBuffer
	_PrDevAsyncRead

	pla	; this value is invalid at this
		; point in time since this is an
		; async read call

	lda #0
ExitRead	cmp #1
	rts


;--------------------------------------------------------------
;
; Completion routine for PAPRead which saves error returned
; and sets done flag
;

	EXPORT MyCompletion
MyCompletion	sta >ReadError
	txa
	sta >ReadingLength	; actual length read
	tya
	sta >EndofRead	; true if nonzero

	lda #True
	sta >ReadingDone

	rtl

ReadError	DS.B 2
	EXPORT ReadingDone
ReadingDone	DS.B 2

	ENDP

*****************************************************************
*
* Writes the contents of the buffer to the LaserWriter
*
*****************************************************************

	EXPORT WriteLaser
WriteLaser	PROC

	lda iPrErr
	beq GoOn	; no problems
	brl Exit

GoOn	lda fPSFile	; are we writing to file?
	beq Continue	; nope, go deal with LW

	lda WriteLength
	sta WriteLen	; update value in param block

	_WriteGS WriteGSParams

	stz writelength
	lda #0
	bra Exit

Continue	stz WriteDone

	pushlong #CompleteWrite
	pushlong #WriteBuffer
	Pushword WriteLength
	_PrDevWrite


	jsr GetStatus	; gathers status
	lda StatusError	; if an error on status, we've got problems
	bne Exit	; with the printer

	lda NoShowMessage
	bne DontShow

	jsr ShowStatus

DontShow	stz writelength	; reinits buffer content size to 0

LoopWrite		;
	jsr GetStatus	; gathers status
	lda StatusError	; if an error on status, we've got problems
	bne Exit	; with the printer

	jsl MyIdleProc
	lda iPrErr	; Don't bother waiting till write
	bne Exit	; is done if user cancels

	lda WriteDone
	bpl LoopWrite

	lda WriteError

Exit	cmp #1


	rts

WriteDone	DS.B 2
WriteError	DS.B 2

;--------------------------------------------------------------
;
; Completion routine for PAPWrite which	saves error returned
; and sets done flag
;
	EXPORT CompleteWrite
CompleteWrite

	sta >WriteError

	lda #True
	sta >WriteDone
	rtl

	ENDP

*****************************************************************
*
* Asks the status of the LaserWriter, at 5 second intervals
*
*****************************************************************

	EXPORT StatusLaser
StatusLaser	PROC

;-----------------------------------------------------------
;
; This chunk of code is moved from WriteLaser 4/27/88
;

CkPrinterErr	lda ReadingDone
	bpl Continue

	lda ReadingLength
	pha

	jsr ReadLaser

*** added 25-Mar-93 DAL to nuke an infinite loop.  If our session times out we start getting
***   error $0806 from ReadLaser, but we didn't care!
	bcc @continue
	pla
	bra ExitStatus
@continue
*** end 25-Mar-93

	pla
	beq Continue

	dec a	; last character is a control char
		; which we do not want shown
	tay	; set up Y as the length of string
	tax	; move to x for indexing

	lda NoShowMessage
	bne CkPrinterErr

;----------------------------------------------------------------------
;
; Copy the string from the buffer into local area.
;

	sep #$30	; go into 8 bit mode
	longa off

Loop	lda LocalBuffer,x
	sta String+1,x	; save byte 0 for carriage return
	dex
	bpl Loop

	lda #CReturn	; pad the string with carriage
	sta string	; return

	longa on	; get back to 16 bit mode
	rep #$30

	lda #String	; go display the string
	ldx #^String
	iny	; y already has the length but
		; need to add one due to padding
	jsr ShowProgress

	bra CkPrinterErr	; see if any other errors
		; occurred in the meanwhile

;
; End of code moved
;
Continue	pha
	pha	; get tick count
	_TickCount
	plx
	pla
	cmp NewInterval+2	; check if high word is changed
	beq testlower	; no, go check low word
	blt ExitStatus	; otherwise, exit

testLower	txa	; is low word greater than last look
	cmp NewInterval
	blt ExitStatus

	pha
	pha	; yep, get tick count
	_TickCount
	pla
	clc
	adc #60*5	; add 5 seconds for	the next time
	sta NewInterval
	pla
	adc #0
	sta NewInterval+2

	pushlong #StatusBuffer ; issue a PAPstatus
	_PrDevStatus
	sta StatusError

	clc	; carry is cleared if status issued
	rts

ExitStatus	sec	; carry is set if no status call
	rts

	EXPORT NewInterval
NewInterval	DS.B 4
	EXPORT String
String	DS.B 100

	ENDP

;                copy    BadReduce

	EXPORT BadReduce
BadReduce	PROC

	pha
	pha
	_GetPort

	lda badreduRect+6
	sec
	sbc badreduRect+2
	sta StyleWidth

	pha
	_GetMasterSCB
	pla
	and #$0080
	beq loc320
	lda #640
	bne loc640
loc320	lda #320
loc640	sec
	sbc StyleWidth
	lsr a
	sta badreduRect+2
	clc
	adc StyleWidth
	sta badreduRect+6

	PushLong #0
	pushlong #badreduRect
	Pushword #1
	PushLong #0
	_NewModalDialog
	pla
	sta pBadRedPort
	pla
	sta pBadRedPort+2

	pushlong pBadRedPort
	_SetPort
	pushlong #0
	_SetOrigin

	PushLong pBadRedPort
	Pushword #1	OK
	pushlong #BPOKrect
	Pushword #ButtonItem
	pushlong #okstr
	PushWord #0
	PushWord #0
	PushLong #0
	_NewDItem
	pushlong #BrText
	PushWord BrTextLength
	pushlong #BPTextRect
	PushWord #0
	_LETextBox
loopModal
	PushWord #0
	PushLong #0
	_ModalDialog
	pla
	beq loopModal
	cmp #2
	bge loopModal
	asl a
	tax
	jmp (Action-2,x)

Action	DC.W C_OkEvent	;1

C_OkEvent	pushlong pBadRedPort
	_CloseDialog
	_SetPort
	rts

	ENDP
;                Copy    InfoDialogs
******************************
*                            *
* InfoDialogs	         *
*                            *
*    Last Rev: Jun 22, 1987  *
*                            *
******************************


*****************************************************************
*
* CloseInfo
*
*    Closes the status window
*
*****************************************************************

	EXPORT CloseInfo
CloseInfo	PROC

	PushLong infoDPort
	_CloseWindow

	rts

	ENDP

*****************************************************************
*
* OpenInfoPrinting
*
*    Puts a window to display status of	the print job
*
*****************************************************************

	EXPORT OpenInfoPrinting
OpenInfoPrinting	PROC

	lda SCBValue	; find out mode
	and #$0080
	beq loc320	; 320 mode

	lda infowidth640	; 640 mode
	sta StyleWidth	; use 640 size window
	lda #640
	bne loc640

loc320	lda infowidth320	; use 320 size window
	sta StyleWidth
	lda #320

loc640	sec	; fiqure out the x positions
	sbc StyleWidth	; of the upper and lower edges
	lsr a	; of the info rectangle
	sta InfoRect+2
	clc
	adc StyleWidth
	sta InfoRect+6

	stz NoShowMessage	; allow message to be shown

	PushLong #0
	pushlong #InfoWindow
	_NewWindow	; creat a new window
	pla
	sta infoDPort
	pla
	sta infoDPort+2

	lda fPSFile
	beq Normal

	lda #CreatePSStr+1
	ldx #^CreatePSStr+1
	ldy CreatePSStr
	jsr ShowProgress
	bra bye

Normal	lda #InfoStrPrep+1	; address of string	to display
	ldx #^InfoStrPrep+1
	ldy InfoStrPrep
	jsr ShowProgress

Bye	rts

	ENDP

*****************************************************************
*
* GetStatus
*
*    Gets the status of the printer.
*
*****************************************************************

	EXPORT GetStatus
GetStatus	PROC

*The following two lines were commented out before 10/23/90.  Why?  Apparently causes problems with
*reading in the font list during PrOpenDoc, so these two lines have been activated again.  At
*the present time it does not seem that this affects anything else.

	lda allowstatus	; if status not allowed
	bne ExitGet	; don't do statuslaser (which does a papread)

	jsr StatusLaser	; go see if time to	issue status calls
	bcs ExitGet	; if no status call	made, leave
		; background note: StatusLaser always does a papread,
		; and then also does a papstatus every 5 seconds

	dec ShowStatusFlag	; enable showing of	status

ExitGet	rts

	ENDP

*****************************************************************
*
* ShowStatus
*
*    Displays status of the printer.
*
*****************************************************************

	EXPORT ShowStatus
ShowStatus	PROC
	EXPORT ShowProgress

	ldy ShowStatusFlag
	beq ExitStatus

	stz ShowStatusFlag
;-----------------------------------------------------------
;
; Bytes 0 - 3 of the buffer contains AppleTalk stuff that we don't
; need. The actual status string begins at byte 4 with a length
;

	ldy StatusBuffer+4	; get the length of the buffer
	tyx	; set up loop counter for below
;	iny	; and bump by one due to padding

;-----------------------------------------------------------
;
; Switch modes and copy the status string into local area
;
;
	sep #$0030	; go into 8 bit mode
	longa off

Loop	lda StatusBuffer+5,x
	sta String,x	; save byte 0 for carriage return
	dex
	bpl Loop

;	lda #CReturn	; pad the string with carriage
;	sta string	; return

	longa on	; get back to 16 bit mode
	rep #$0030

	lda #String	; go display the string
	ldx #^String

ShowProgress
	sta StringAddr	; store address in local variable
	stx StringAddr+2
	sty textLeng

	PushLong #0	; otherwise display	it
	_GetPort	; save current port	ptr on stack

	PushLong infoDPort
	_SetPort	; set our port current


	PushLong StringAddr	; address of the string
	lda textleng	; length of the text
	and #$00FF	; lo byte only
	pha
	lda SCBValue	; check the mode we are in
	and #$0080
	beq IsMode320
	pushlong #InfoRect640	; use 640 mode rectangle
	bra GoOn
IsMode320	pushlong #InfoRect320	; use 320 mode rectangle
GoOn	lda #0
	pha	; left justification
	_LETextBox2

	_SetPort	; put back old port

ExitStatus	rts

StringAddr	DS.B 4
textLeng	DS.B 2

	ENDP

;                copy    ErrorCalls

	EXPORT PrError
PrError	PROC

	DefineStack

* iPrErr
* parameters:
* return error value

Error_DPage	word 0
Error_BReg	byte 0
Error_rtl1	block 3
Error_rtl2	block 3
Error_Value	word 0

	phd
	tcd
	phb
	phk
	plb
	lda iPrErr
	sta Error_Value,s
	lda #0
	plb
	pld
	brl exit0

	EXPORT PrSetError
PrSetError
* parameters:
* error value

	DSect 1
SetError_DPage	word 0
SetError_BReg	byte 0
SetError_rtl1	block 3
SetError_rtl2	block 3
SetError_value	word 0

	phd
	tcd
	phb
	phk
	plb
	lda SetError_value,s
	sta iPrErr
	lda #0
	plb
	pld
	brl exit2

	ENDP
;                Copy    DynamicExits
	EXPORT DynamicExits
DynamicExits	PROC
* in a Dynamic exit	we need to save 2 RTLs

	EXPORT Exit12
Exit12	tax
	lda 5,s
	sta 17,s
	lda 3,s
	sta 15,s
	lda 1,s
	sta 13,s
	tsc
	clc
	adc #12
	tcs
	txa
	bra Exit0

	EXPORT Exit10
Exit10	tax
	lda 5,s
	sta 15,s
	lda 3,s
	sta 13,s
	lda 1,s
	sta 11,s
	pla
	pla
	pla
	pla
	pla
	txa
	brl exit0

	EXPORT Exit8
Exit8	tax 	;Standard 8 bytes input exit
	lda 5,s
	sta 13,s
	lda 3,s
	sta 11,s
	lda 1,s
	sta 9,s
	pla
	pla
	pla
	pla
	txa
	brl Exit0


	EXPORT Exit4
Exit4	tax	;Standard 4 bytes input exit
	lda 5,s
	sta 9,s
	lda 3,s
	sta 7,s
	lda 1,s
	sta 5,s
	pla
	pla
	txa
	brl Exit0

	EXPORT Exit2
Exit2	tax	;Standard 2 bytes input exit
	lda 5,s
	sta 7,s
	lda 3,s
	sta 5,s
	lda 1,s
	sta 3,s
	pla
	txa
	EXPORT Exit0
Exit0	cmp #1	;Standard 0 byte input exit
	rtl

	ENDP

;                copy    PrPicFile

*****************************
*                           *
* PrPicFile                 *
*                           *
* Current Rev: Mar 02, 1988 *
*                           *
*****************************

*****************************************************************
*
* PrPicFile
*
* This call does nothing in the LaserWriter Driver.
*
*****************************************************************


	EXPORT PrPicFile
PrPicFile	PROC

	lda #0000	;this will be the normal exit
	brl exit12

	ENDP


*****************************************************************
*
* PrPixelMap
*              SrcLocPtr      LONG   ptr to source LocInfo
*              SrcRectPtr     LONG   ptr to source rect
*              ColorFlag      WORD   0 = B/W, else color
*
*****************************************************************

	EXPORT PrPixelMap
PrPixelMap	PROC

	DefineStack
OrigD	word 0
OrigB	byte 0
rtl1	block 3
rtl2	block 3
ColorFlag	word 0
SrcRectPtr	long 0
SrcLocPtr	long 0


	pha	; save value of d

	pha
	_DevIsItSafe
	pla
	bne Yes
	lda #PortNotOn
	sta >iPrErr
	plx
	brl Exit10
Yes
	pla

;------------------------------------------------------------
;
; save the registers and set direct page and data bank
;
	phd
	tcd
	phb
	phk
	plb

;------------------------------------------------------------
;
; Get the current port's pointer and leave it on the stack
; for restoring just before returning.
;
	pha
	pha
	_GetPort

;------------------------------------------------------------
;
; Turn on the watch	cursor.

	jsr WaitCursor

;------------------------------------------------------------
;
; Clear the error code and disallow message display.
;

	stz iPrErr	; zero error

	lda #True
	sta NoShowMessage

;------------------------------------------------------------
;
; Get source bitmap	information off the	stack into local area
;

	lda SrcLocPtr+4,s
	sta QD_Temp1	; QD_Temp1 has Ptr to SrcLoc
	lda SrcLocPtr+2+4,s
	sta QD_Temp1+2

	ldy #14
MoveLoc	lda [QD_Temp1],y
	sta LocalLoc,y
	dey
	dey
	bpl MoveLoc

	lda QD_Temp1
	clc
	adc #8
	sta LocalBoundsPtr	; this ptr used for	intersection call
	lda QD_Temp1+2
	adc #0
	sta LocalBoundsPtr+2

	lda SrcRectPtr+4,s
	sta QD_Temp2	; QD_Temp2 is ptr to source rect
	lda SrcRectPtr+2+4,s
	sta QD_Temp2+2

	PushWord #0	; Result
	PushLong LocalBoundsPtr
	PushLong QD_Temp2
	PushLong #LocalRect	; intersected rect goes here
	_SectRect
	pla
	bne ItsOK
	brl NoIntersection	; if false, no intersection

;------------------------------------------------------------
;
; Get new handle for print record. This	is necessary because
; the values in the	print record are used to set up parameters
; for the printer.
;

ItsOK	lda #TPrintSize	; size of handle
	ldx #%1000000000011000 ; attributes
	jsr OurGetHandle
	bcc @1
	sta iPrErr
	brl NoIntersection

@1	sta PrintRecord
	stx PrintRecord+2

	PushLong PrintRecord
	_PrDefault

;------------------------------------------------------------
;
; Check if the the application gave us a background procedure,
; if so, we use it,	otherwise we use PrAbortCheck, which polls
; the keyboard for command-period.
;

	lda hPrint+PrJob+pIdleProc
	ora hPrint+PrJob+pIdleProc+2
	bne useridle

	lda #<PrAbortCheck
	sta hPrint+PrJob+pIdleProc
	lda #^PrAbortCheck
	sta hPrint+PrJob+pIdleProc+2

useridle

;------------------------------------------------------------
;
; Open the connection to the LaserWriter and send our PostScript dictionary
;

	jsr OpenLaser	; opens connection
	bcc LaserOpened	; open successful?
	cmp #iPrAbort
	beq @1
	lda #PAPConnNotOpen	; Nope, set error
	sta iPrErr
@1	brl ExitPixelMap	; and quit

LaserOpened	lda fPSFile	; non zero means writing to a file
	beq @NoFile
	lda #1
	sta LWType	; if writing to a file, assume LW Plus or II
	bra GotNames	; no need to set up tables

@NoFile	jsr SetUpNameTables
	bcc GotNames
	sta iPrErr
	brl ExitPixelMap1	; error, most likely memory problems

GotNames
;-----------------------------------------------------------
;
; Send PostScript header comments
;

	pushlong #JobTitleComment
	jsr AddstrToWBuff

	PushLong #0
	_PMGetDocName	; result is left on stack for
	jsr AddStrToWBuff	; this call

	pushlong #ForUserComment
	jsr AddstrToWBuff

	PushLong #0	; NIL may be important! (18-Feb-93 DAL)
	_PMGetUserName	; get pointer and leave it on
	jsr AddStrToWBuff	; stack for this call

	pushlong #HeaderComment ; the rest of the stuff we don't deal with now
	jsr AddstrToWBuff

	jsr WriteLaser	; send everything in buffer now

	jsl SendThePrep
	bcc GoUnload	; no error
	lda iPrErr	; check if error is	a user cancel
	cmp #iPrAbort
	beq GoUnload	; yep
	lda #PAPReadWriteErr ; otherwise it's a PAP error
	sta iPrErr

GoUnload	pha
	pha
	pha	; space for results
	phx
	phy
	_UnloadSeg	; unload the dynamic segment
	plx
	plx
	plx	; ignore results

	lda iPrErr
	beq GoOn
	brl ExitPixelMap1

GoOn
	pushlong #EndPrologComment
	jsr AddStrToWBuff

;------------------------------------------------------------
;
; Get a handle for a grafport.
;

	lda #PortSize	; size of handle
	ldx #%1000000000011000 ; attributes
	jsr OurGetHandle
	bcc OK2
	sta iPrErr
	brl ExitPixelMap1

OK2	sta QD_Temp1
	stx QD_Temp1+2
	lda [QD_Temp1]
	sta PZ_pPrPort
	ldy #2
	lda [QD_Temp1],y
	sta PZ_pPrPort+2

;------------------------------------------------------------
;
; Open the grafport.
;
	pei PZ_pPrPort+2
	pei PZ_pPrPort
	_OpenPort

;------------------------------------------------------------
;
; Initial variable to indicate pixel has not been defined yet
; in PostScript and	set to page 1.
;

	stz PixelInstalled

	lda #01
	sta iPageNum

;------------------------------------------------------------
;
; Install our own grafproc for pixel, so we can make QD call
; PPToPort and use the pixel code as is.
;

	pushlong #DefaultProcs ; set up the two tables with
	_SetStdProcs	; standard proc pointers
	pushlong #ProcsTable
	_SetStdProcs

	lda #<Pixel-1	; put our pointer into table
	sta ProcsTable+$20
	lda #^Pixel-1
	sta ProcsTable+$22

	pushlong #ProcsTable	; install it
	_SetGrafProcs

;------------------------------------------------------------
;
; Send header and other vital information at start of a
; document.
;
	jsr OpenDocHeader

;-----------------------------------------------------------
;
; Send stuff for the page
;

	pushlong #PageComment	; page comment
	jsr AddStrToWBuff
	lda iPageNum
	jsr addacc
	pushlong #Return
	jsr AddStrToWBuff

	pushlong #OpenPage
	jsr AddStrToWBuff

;------------------------------------------------------------
;
; Make the PPToPort	call
;

	pushlong #LocalLoc
	pushlong #LocalRect
	lda #0
	pha
	pha
	pha
	_PPToPort

;-----------------------------------------------------------
;
; Time to close the	page (send PostScript ShowPage operator)
;

	pushlong #ClosePage
	jsr AddStrToWBuff

;------------------------------------------------------------
;
; and close the document: send trailer information and close
; the connection to	the LaserWriter.
;

	pushlong #TrailerComment
	jsr AddStrToWBuff

	pushlong #CloseDoc
	jsr AddStrToWBuff

	pushlong #PagesComment
	jsr AddStrToWBuff
	lda iPageNum
	jsr addacc
	pushlong #EOFComment
	jsr AddStrToWBuff

	jsr WriteLaser	; write the last of	the stuff in
		; the buffer

;------------------------------------------------------------
;
; Close the grafport.
;
	pei PZ_pPrPort+2
	pei PZ_pPrPort
	_ClosePort

;------------------------------------------------------------
;
; Get rid of the memory we allocated for grafport and print
; record and font list buffers.
;
	pha	; first find the handle to
	pha	; memory that port is in.
	pei PZ_pPrPort+2
	pei PZ_pPrPort
	_FindHandle
	_DisposeHandle	; then dispose it.

ExitPixelMap1
	lda fPSFile	; are we writing to file?
	bne ExitPixelMap

	lda RawBuffHdl+2	; yep, skip the disposal since the following
	pha	; buffers were never allocated
	lda RawBuffHdl
	pha
	_DisposeHandle

	pha
	pha
	lda LengTabPtr+2
	pha
	lda LengTabPtr
	pha
	_FindHandle
	_DisposeHandle

	pha
	pha
	lda OffTabPtr+2
	pha
	lda OffTabPtr
	pha
	_FindHandle
	_DisposeHandle

ExitPixelMap

	PushLong PrintRecord
	_DisposeHandle

;------------------------------------------------------------
;
; Close the connection to the LaserWriter.
;

	jsr CloseLaser

;------------------------------------------------------------
;
; Turn off the watch cursor.

	jsr RestoreCursor

;------------------------------------------------------------
;
; Restore the user's last current port, the pointer to it was
; left on the stack	at the beginning of	this routine.
;
	_SetPort

;------------------------------------------------------------
;
; We are done.
;

	lda iPrErr
NoIntersection	plb
	pld
	brl Exit10


PrintRecord	DS.B 4
LocalBoundsPtr	DS.B 4
LocalLoc	DS.B 16
LocalRect	DS.B 8

	ENDP
;                copy    PrChanged

	EXPORT PrChanged
PrChanged	PROC

	phd
	phb
	phk
	plb
	tcd
	pushlong #Printer_Name
	_PrDevPrChanged
	plb
	pld
	brl exit0
	ENDP


;                copy    Metrics
*****************************
*
* Metrics
*
* Current Rev: Aug 17, 1987
*
*****************************

	EXPORT metrics
metrics	PROC

	DefineStack

;------------------------------------------------------------------------
;
; Returns version #	of currently installed driver
;

	EXPORT PrDrvrVer
PrDrvrVer

DVerOrigD	Word 0
DVerOrigB	Byte 0
DVer_Rtl1	Block 3
DVer_Rtl2	Block 3
Version	Word 0

	phd
	tcd
	phb
	phk
	plb

	lda #VersionNb
	sta Version,s

	lda #0
	plb
	pld
	brl exit0

;-----------------------------------------------------------
;
; Returns the printer's type and its characteristics
;  type: 0 = undefined
;        1 = ImageWriter and ImageWriter II
;        2 = ImageWriter LQ
;        3 = LaserWriter family
;        4 = Epson
;
;  characteristics:
;    bits 15 - 2 : reserved
;          1 - 0 : 0 = can't determine
;                  1 = monochrome
;                  2 = capable of color
;

	EXPORT PrGetPrinterSpecs
PrGetPrinterSpecs
	DefineStack
GetPSp_OrigD	Word 0
GetPSp_OrigB	Byte 0
GetPSp_Rtl1	Block 3
GetPSp_Rtl2	Block 3
PtrType	Word 0
PtrChar	Word 0

	phd
	tcd
	phb
	phk
	plb

	lda #iDevLW 	; this is a LaserWriter driver
	sta PtrType,s	; return it as result

	lda #MonochromeOnly	; printer is monochrome only
	sta PtrChar,s

	lda #0
	plb
	pld
	brl exit0

;-----------------------------------------------------------
;
; Returns the page orientation to the caller:
; 0 = portrait, 1 = landscape
;

	EXPORT PrGetPgOrientation
PrGetPgOrientation

	DefineStack
GetOr_OrigD	Word 0
GetOr_OrigB	Byte 0
GetOr_Rtl1	Block 3
GetOr_Rtl2	Block 3
PrintRecHandle	Long 0
Orientation	Word 0

	phd
	tcd
	phb
	phk
	plb

	lda printRecHandle,s
	sta QD_Temp1
	lda PrintRecHandle+2,s
	sta QD_Temp1+2

	lda [QD_Temp1]
	tax
	ldy #2
	lda [QD_Temp1],y
	sta QD_Temp1+2
	stx QD_Temp1

	ldy #prstl+wdev 	; get the offset to the correct field from
	lda [QD_Temp1],y	; the print record
	and #f1	; look at bit 1
	lsr a	; to achieve the value as defined
	sta Orientation,s	; return it as result

	lda #0
	plb
	pld
	brl exit4

	EXPORT PrintDefault
PrintDefault

* parameters:
* hPrint

	DSect 1
Default_DPage	word 0
Default_BReg	byte 0
Default_rtl1	block 3
Default_rtl2	block 3
Default_hPrint	long 0

	phd
	tcd
	phb
	phk
	plb
	sta ZeroPage

	pha
	_GetMasterSCB
	pla
	sta SCBValue

	lda Default_hprint,s
	ora Default_hprint+2,s
	bne notNIL

	lda #NoPrintRecord
	bra Exit

notNil	pushlong #Print_test	; moves defaults into internal
	pushlong #hprint	; print record
	pushlong #TPrintSize
	_BlockMove

	jsr CiXmetrics

	lda Default_hPrint,s ; get the handle off the stack
	sta QD_Temp1
	lda Default_hPrint+2,s
	sta QD_Temp1+2

	pushlong #hPrint	; moves good values	into the
	pushlong QD_Temp1	; application's print record
	pushlong #TPrintSize
	_PtrToHand
	bcs Exit	; memory manager error

	lda #0
exit	plb
	pld
	brl exit4

	EXPORT PrValidate
PrValidate
* parameters:
* result
* hPrint

	DSect 1
Validate_DPage	word 0
Validate_BReg	byte 0
Validate_rtl1	block 3
Validate_rtl2	block 3
Validate_hPrint	long 0
Validate_Result	word 0

	phd
	tcd
	phb
	phk
	plb
	sta ZeroPage

	pha
	_GetMasterSCB
	pla
	sta SCBValue

	lda #False
	sta Validate_Result,s ; assume no change at start

	lda Validate_hPrint,s ; get the handle off the stack
	sta QD_temp1
	lda Validate_hPrint+2,s
	sta QD_temp1+2

	PushLong QD_Temp1
	pushlong #hPrint
	PushLong #TPrintSize
	_HandToPtr

;----------------------------------------------------------------------
;
; Test if correct printer type (1 = ImageWriter, 2 = IW LQ, 3 = LaserWriter,
; 4 = Epson) and correct version number.
;

	lda hPrint+prInfo+idev
	cmp #iDevLW	; this is LaserWriter driver
	bne WrongType
	lda hPrint+iPrVersion ; check if correct version
	xba	; swap since hi-lo bytes
	cmp #VersionNb	; are swapped in lda
	beq goodPtype

WrongType	pushlong #Print_test	; put in default values
	pushlong #hprint
	pushlong #TPrintSize
	_BlockMove

	lda #True	; set result to reflect
	sta Validate_Result,s ; change in print	record

goodPtype
	jsr CiXmetrics

	pushlong #hprint
	PushLong QD_Temp1
	PushLong #TPrintSize
	_PtrToHand

	lda #0
ErrorExit	plb
	pld
	brl exit4

**********************************************************************

	EXPORT PrStlDialog
PrStlDialog

* parameters:
* result
* hPrint

	DSect 1
PrStl_DPage	word 0
PrStl_BReg	byte 0
PrStl_rtl1	block 3
PrStl_rtl2	block 3
PrStl_hPrint	long 0
PrStl_Result	word 0

* parameters through ButtonState

* +2*0         US Letter
* +2*1         US Legal
* +2*2         A4 Letter
* +2*3         B5 Letter
* +2*4         Smoothing
* +2*5         Font	Substitution
* +2*6         Normal
* +2*7         Compressed
* +2*8         Macintosh Like
* +2*9         Reduce
* +2*10        Portrait
* +2*11        Landscape

	phd
	tcd
	phb
	phk
	plb
	sta ZeroPage
	lda PrStl_hPrint,s
	sta PZ_hprint
	lda PrStl_hPrint+2,s
	sta PZ_hprint+2
	pushlong PZ_hprint
	_hlock
;
; call PrValidate to check if printer type is same
;
	PushWord #0
	PushLong PZ_hprint
	_PrValidate
	plx
	bcc MoveOn
	brl ErrorExit1	; memory manager error
;

MoveOn	lda [PZ_hprint]
	tax	; store in x temporarily till high
	ldy #2	; word is done
	lda [PZ_hprint],y
	sta PZ_hprint+2	;dereference
	stx PZ_hprint

	ldy #TPrintsize-2	;pair
slooph	lda [PZ_hprint],y
	sta hprint,y
	dey
	dey
	bpl slooph

	lda #False
	ldx #24
clrbtn	sta buttonstate,x
	dex
	dex
	bpl clrbtn

	lda hprint+prStl+PaperType
	cmp #4
	blt goodtype
	lda #0
goodtype	asl a
	tax
	lda #True
	sta buttonstate,x

	lda hprint+prStl+Vsizing
	cmp #3
	blt goodsize
	lda #0
goodsize	asl a
	tax
	lda #True
	sta buttonstate+2*6,x
	lda #f3	;Font Substitution
	and hprint+prstl+wdev
	bne over5
	dec Buttonstate+2*5
over5	lda #f2	;smoothing
	and hprint+prstl+wdev
	bne over4
	dec Buttonstate+2*4
over4	lda #f1	;portrait
	and hprint+prstl+wdev
	bne over10
	dec Buttonstate+2*10
	bra over11
over10	dec Buttonstate+2*11
over11	lda hprint+prstl+reduced
	sta Buttonstate+2*9

	jsr styledialog
	sta PrStl_result,s
	bne okStyle
	brl outStyle
okStyle

* Update PaperType Field
	lda Buttonstate+2*9
	sta hprint+prstl+reduced
	ldx #0
	lda buttonstate+2*0
	bmi NewPaperSize
	inx
	lda buttonstate+2*1
	bmi NewPaperSize
	inx
	lda buttonstate+2*2
	bmi NewPaperSize
	inx
NewPaperSize	stx hprint+prStl+PaperType

* update the Vsizing Field

	ldx #0
	lda buttonstate+2*6
	bmi normal
	inx
	lda buttonstate+2*7
	bmi normal
	inx
normal	stx hprint+prStl+Vsizing

* update Font substitution

	lda #f3	;Font Substitution
	tsb hprint+prstl+wdev
	bit buttonstate+2*5
	bpl no3

	trb hprint+prstl+wdev

no3	lda #f2	;Smoothing
	tsb hprint+prstl+wdev
	bit buttonstate+2*4
	bpl no2

	trb hprint+prstl+wdev

no2	lda #f1	;Portrait
	tsb hprint+prstl+wdev

	bit buttonstate+2*10
	bpl no1

	trb hprint+prstl+wdev

no1	jsr CiXmetrics
	ldy #TPrintsize-2	;pair
slooph2	lda hprint,y
	sta [PZ_hprint],y
	dey
	dey
	bpl slooph2


outStyle	lda #0
ErrorExit1	plb
	pld
	brl exit4

	EXPORT PrJobDialog
PrJobDialog

* parameters:
* result
* hPrint

	DSect 1
PrJob_DPage	word 0
PrJob_BReg	byte 0
PrJob_rtl1	block 3
PrJob_rtl2	block 3
PrJob_hPrint	long 0
PrJob_result	word 0

* buttonstate for the jobdialog
* +2*0 Page all
* +2*1 Page From
* +2*2 Paper Cassette
* +2*3 Manual Feed
* +2*4 Copies
* +2*5 From
* +2*6 To
	phd
	tcd
	phb
	phk
	plb
	sta ZeroPage
	lda PrJob_hPrint,s
	sta PZ_hprint
	lda PrJob_hPrint+2,s
	sta PZ_hprint+2
	pushlong PZ_hprint
	_HLock
;
; call PrValidate to check if printer type is same
;
	PushWord #0
	PushLong PZ_hprint
	_PrValidate
	plx
	bcc Onward
	brl ErrorExit2	; memory manager error
;
Onward	lda [PZ_hprint]
	tax	; store in x temporarily till high
	ldy #2	; word is done
	lda [PZ_hprint],y
	sta PZ_hprint+2	;dereference
	stx PZ_hprint

	ldy #TPrintsize-2	;pair
looph	lda [PZ_hprint],y
	sta hprint,y
	dey
	dey
	bpl looph
	lda #False
	ldx #18
clrbtn2	sta buttonstate,x
	dex
	dex
	bpl clrbtn2
	dec Buttonstate+2*0
	dec Buttonstate+2*2
	lda #1
	sta buttonstate+2*4
	sta buttonstate+2*5
	lda #999
	sta buttonstate+2*6

	jsr jobdialog
	sta PrJob_result,s
	bne okJob
	brl outJoB
okJob

* we need to update	the quality values:
*
* prstl.wdev f0
* prXinfo.idevbytes	will be calculated by CiXmetrics
*

* then the paper range
* PrJob.ifstpage, iLst page, iCopies
* if all then first	:= 1 ; last := 999 ; icopies := 1
* else user value

	lda buttonstate+2*4
	sta hprint+prjob+iCopies
	lda buttonstate+2*5
	sta hprint+prjob+ifstpage
	lda buttonstate+2*6
	sta hprint+prjob+ilstpage

* then the paperfeeding
* prStl.feed := feedfanfold (A) or feedcut

	lda #feedfanfold
	sta hprint+prStl+Feed
	lda buttonstate+2*2
	bmi nox2
	lda #feedcut
	sta hprint+prStl+Feed
nox2	jsr CiXmetrics

	ldy #TPrintsize-2	pair
looph2	lda hprint,y
	sta [PZ_hprint],y
	dey
	dey
	bpl looph2


outJoB	lda #0
ErrorExit2	plb
	pld
	brl exit4

*****************************************************************
*
* CiXMetrics
*
* This routine does	a bunch of calculations on page sizes using
* the information in Hprint. It puts the newly calculated values
* back into Hprint.
*
* To get rPaper+top:
*        - (margin x 100 / reduction x Vres ( indexed by Vsize) / 72)
*        (VMargin for portrait, HMargin	for landscape)
* To get rPaper+left:
*        - (margin x 100 / reduction x Hres ( indexed by mode) / 72)
*        (HMargin for portrait, VMargin	for landscape)
* To get rPaper+bottom:
*        papersize x 100 / reduction x Vres ( indexed by Vsize) / 72 + top
*        (Vsize for	portrait, Hsize for	landscape)
* To get rPaper+right:
*        papersize x 100 / reduction x Hres ( indexed by mode) / 72 + left
*        (Hsize for	portrait, Vsize for	landscape)
*
* rPage: 0, 0, rPaper+top + rPaper+bottom, rPaper+left + rPaper+right
*
* iHres: indexed by	mode
* iVres: indexed by	Vsize
*
*****************************************************************

	EXPORT CiXmetrics
CiXmetrics

* 0) assure reduce is within the values	iZoomMin iZoomMax

	lda hprint+prstl+reduced
	cmp hprint+printx+iZoomMin
	bge bigenough
	lda hprint+printx+iZoomMin
	sta hprint+prstl+reduced
bigenough	cmp hprint+printx+iZoomMax
	beq smallenough
	blt smallenough
	lda hprint+printx+iZoomMax
	sta hprint+prstl+reduced
smallenough

* We need to know:

* Landscape (f1)	 { 0=landscape ; 1=Portrait }
* PaperType (0,1,2,3) { 0= Us Letter; 1= US Legal; 2= A4 Letter; 3= B5 Letter }
* Vsizing (0,1,2)	  { 0= Normal; 1= Compressed; 2= Mac Like }
* Resolution (0,1)	  { 0=320 ; 1=640 }

* newVmargin: landscape(Vmargin:Hmargin),PaperType mul Vres,VSizing div 72

* newHmargin: landscape(Hmargin:Vmargin),PaperType mul Hres,Resolution div 72

* NewPaperVsize: landscape(PaperVsize:PaperHsize),PaperType	mul
*                Vres,VSizing div 72 - newVmargin

* NewPaperHsize: landscape(PaperHsize:PaperVsize),PaperType	mul
*                Hres,Resolution div 72	- newHmargin

* rPage := 0,0,NewPaperVsize-newVmargin,NewPaperHsize-newHmargin

* rPaper := -newVmargin,-newHmargin,NewPaperVsize,NewPaperHsize


* 1) get resolution

	stz resolution
	lda SCBValue
	and #$0080
	beq r320
	inc resolution
r320

* 2) Calculate hprint+rPaper+Top
	PushLong #0	Result for Divide
	PushLong #0	Result for Multiply
	PushLong #0	Result for Divide
	PushLong #0	Result for Divide
	PushLong #0	Result for Multiply
	lda hprint+prStl+PaperType
	asl a
	tax
	lda hprint+prstl+wdev
	and #f1
	bne Land1
	lda VMargin,x
	bra Port1
Land1	Lda HMargin,x
Port1	Pha
	lda #100
	pha
	_Multiply
	lda #0
	pha
	lda hprint+prstl+reduced
	pha
	_LongDivide
	pla
	plx
	plx
	plx
	pha
	lda hprint+prStl+Vsizing
	asl a
	tax
	lda Vres,x
	pha
	_Multiply
	pla
	plx
	pha
	lda #72
	pha
	_UDivide
	pla
	plx
	eor #True
	inc a
	sta hprint+rPaper+Top
* calculate hprint+rPaper+Left
	PushLong #0	Result for Divide
	PushLong #0	Result for Multiply
	PushLong #0	Result for Divide
	PushLong #0	Result for Divide
	PushLong #0	Result for Multiply
	lda hprint+prStl+PaperType
	asl a
	tax
	lda hprint+prstl+wdev
	and #f1
	bne Land2
	lda HMargin,x
	bra Port2
Land2	Lda VMargin,x
Port2	Pha
	lda #100
	pha
	_Multiply
	lda #0
	pha
	lda hprint+prstl+reduced
	pha
	_LongDivide
	pla
	plx
	plx
	plx
	pha
	lda resolution
	asl a
	tax
	lda Hres,x
	pha
	_Multiply
	pla
	plx
	pha
	lda #72
	pha
	_UDivide
	pla
	plx
	eor #True
	inc a
	sta hprint+rPaper+Left
* calculate calculate hprint+rPaper+Bottom
	PushLong #0
	PushLong #0	Result for Divide
	PushLong #0	Result for Multiply
	PushLong #0	Result for Divide
	PushLong #0	Result for Divide
	PushLong #0	Result for Multiply
	lda hprint+prStl+PaperType
	asl a
	tax
	lda hprint+prstl+wdev
	and #f1
	bne Land3
	lda PaperVsize,x
	bra Port3
Land3	Lda PaperHsize,x
Port3	Pha
	lda #100
	pha
	_Multiply
	lda #0
	pha
	lda hprint+prstl+reduced
	pha
	_LongDivide
	pla
	plx
	plx
	plx
	pha
	lda hprint+prStl+Vsizing
	asl a
	tax
	lda Vres,x
	pha
	_Multiply
	lda #0
	pha
	lda #72
	pha
	_LongDivide
	pla
	plx
	plx
	plx
	clc
	adc hprint+rPaper+Top
	sta hprint+rPaper+Bottom

* calculate calculate hprint+rPaper+Right
	PushLong #0
	PushLong #0	Result for Divide
	PushLong #0	Result for Multiply
	PushLong #0	Result for Divide
	PushLong #0	Result for Divide
	PushLong #0	Result for Multiply
	lda hprint+prStl+PaperType
	asl a
	tax
	lda hprint+prstl+wdev
	and #f1
	bne Land4
	lda PaperHsize,x
	bra Port4
Land4	Lda PaperVsize,x
Port4	Pha
	lda #100
	pha
	_Multiply
	lda #0
	pha
	lda hprint+prstl+reduced
	pha
	_LongDivide
	pla
	plx
	plx
	plx
	pha
	lda resolution
	asl a
	tax
	lda Hres,x
	pha
	_Multiply
	lda #0
	pha
	lda #72
	pha
	_LongDivide
	pla
	plx
	plx
	plx
	clc
	adc hprint+rPaper+Left
	sta hprint+rPaper+Right

* update hprint+prInfo+rPage and hprint+prInfoPT+rPage

	stz hprint+prInfo+rPage+Top
	stz hprint+prInfo+rPage+Left
	lda hprint+rPaper+Bottom
	clc
	adc hprint+rPaper+Top
	sta hprint+prInfo+rPage+Bottom
	sta hprint+prInfoPT+rPage+Bottom

	lda hprint+rPaper+Right
	clc
	adc hprint+rPaper+Left
	sta hprint+prInfo+rPage+Right
	sta hprint+prInfoPT+rPage+Right

* update hprint+prInfo iHres et iVres

	lda resolution
	asl a
	tax
	lda Hres,x
	sta hprint+prInfo+iHRes
	lda hprint+prStl+Vsizing
	asl a
	tax
	lda Vres,x
	sta hprint+prInfo+iVRes

* Update the PrInfoPT record also

	ldy #12
UpdatePT	lda hprint+PrInfo,y
	sta hprint+PrInfoPT,y
	dey
	dey
	bpl UpdatePT

	rts

	ENDP

;                copy    StyleDialog


	EXPORT StyleDialog
StyleDialog	PROC

* parameters through ButtonState

* +2*0         US Letter
* +2*1         US Legal
* +2*2         A4 Letter
* +2*3         B5 Letter
* +2*4         Smoothing
* +2*5         Font	Substitution
* +2*6         Normal
* +2*7         Compressed
* +2*8         Macintosh Like
* +2*9         Reduce
* +2*10        Portrait
* +2*11        Landscape

	lda buttonstate+2*9
	pha
	ldx #2
	cmp #100
	blt twodigit
	ldx #3
twodigit	stx Reducedefault
	pushlong #Reducedefault+1
	pushword Reducedefault
	pushword #0
	_Int2Dec

	pushlong #0
	_GetPort

	lda StyleRect+6
	sec
	sbc StyleRect+2
	sta Stylewidth

	pha
	_GetMasterSCB
	pla
	sta SCBValue
	and #$0080
	sta landsc_p
	sta portrait_p
	and #$0080
	beq loc320
	lda #640
	bne loc640
loc320	lda #320
loc640	sec
	sbc StyleWidth
	lsr a
	sta StyleRect+2
	clc
	adc StyleWidth
	sta StyleRect+6

* update the bitmap	for 320/640

	lda SCBValue
	and #$0080
	beq w320
	lda pixel640
	bne ww
w320	lda pixel320
ww	sta pixelwidth
	sta portrait_p+14
	sta landsc_p+14
	sta portrait_r+6
	sta landsc_r+6
	clc
	adc dstbitr1+2
	sta dstbitr1+6
	lda pixelwidth
	clc
	adc #4
	adc dstbitf1+2
	sta dstbitf1+6

	lda pixelwidth
	clc
	adc dstbitr2+2
	sta dstbitr2+6
	lda pixelwidth
	clc
	adc #4
	adc dstbitf2+2
	sta dstbitf2+6


	PushLong #0
	pushlong #StyleRect
	Pushword #1
	PushLong #0
	_NewModalDialog
	pla
	sta pScreenport+0
	pla
	sta pScreenport+2

	pushlong pscreenport
	_SetPort
	pushlong #0
	_SetOrigin

	jsr StyleDiEtcToDraw	;draw non-control strings and stuff
	brl StyleDiContinue



	export StyleDiEtcToDraw
StyleDiEtcToDraw
	pushlong l1		;draw the upper line
	_MoveTo
	pushlong l2
	_LineTo

	PushLong namepos		;draw inactive strings
	_MoveTo
	pushlong #nameStr
	_DrawString

	lda Istrnum
	dec a
	asl a
	asl a
	tax
StyleDiETD_strloop	phx
	lda Iposlist+2,x
	pha
	lda Iposlist,x
	pha
	_MoveTo
	plx
	phx
	lda Istrlist+2,x
	pha
	lda Istrlist,x
	pha
	_DrawString
	plx
	dex
	dex
	dex
	dex
	bpl StyleDiETD_strloop

	pha		;draw bitmaps for landsc/portrt buttons
	pha
	_GetVisHandle
	pulllong PP_portrait+$12
	lda PP_portrait+$12+0
	sta PP_landsc+$12+0
	lda PP_portrait+$12+2
	sta PP_landsc+$12+2
	pushlong #0
	_GetPort
	pla
	sta PP_portrait+4
	sta PP_Landsc+4
	pla
	sta PP_portrait+6
	sta PP_Landsc+6

	pushlong #PP_portrait
	_PaintPixels
	pushlong #PP_Landsc
	_PaintPixels
	pushlong #dstbitf1
	_FrameRect
	pushlong #dstbitf2
	_FrameRect

	lda buttonstate+2*10
	bpl orientlandscape

	pushlong #dstbitf1
	_InvertRect
	pushlong #dstbitf1
	_FrameRect
	bra orientdone
orientlandscape
	pushlong #dstbitf2
	_InvertRect
	pushlong #dstbitf2
	_FrameRect
orientdone
	rts



StyleDiContinue
* create the ok and cancel items

	PushLong pScreenPort
	Pushword #1	OK
	pushlong #OKrect
	Pushword #ButtonItem
	pushlong #okstr
	PushWord #0
	PushWord #0
	PushLong #0
	_NewDItem

	PushLong pScreenPort
	Pushword #2	cancel
	pushlong #cancelrect
	Pushword #ButtonItem
	pushlong #cancelstr
	PushWord #0
	PushWord #0
	PushLong #0
	_NewDItem

* create the radio items
	PushLong pScreenPort
	Pushword #3
	pushlong #P1rect
	Pushword #RadioItem
	pushlong #P1str
	PushWord #0
	lda buttonstate+2*0
	bpl over0
	lda #1
	sta 1,s
over0	PushWord #1
	PushLong #0
	_NewDItem

	PushLong pScreenPort
	Pushword #4
	pushlong #P2rect
	Pushword #RadioItem
	pushlong #P2str
	PushWord #0
	lda buttonstate+2*1
	bpl over1
	lda #1
	sta 1,s
over1	PushWord #1
	PushLong #0
	_NewDItem

	PushLong pScreenPort
	Pushword #5
	pushlong #P3rect
	Pushword #RadioItem
	pushlong #P3str
	PushWord #0
	lda buttonstate+2*2
	bpl over2
	lda #1
	sta 1,s
over2	PushWord #1
	PushLong #0
	_NewDItem

	PushLong pScreenPort
	Pushword #6
	pushlong #P4rect
	Pushword #RadioItem
	pushlong #P4str
	PushWord #0
	lda buttonstate+2*3
	bpl over3
	lda #1
	sta 1,s
over3	PushWord #1
	PushLong #0
	_NewDItem

* check items
	PushLong pScreenPort
	Pushword #7
	pushlong #S1rect
	Pushword #CheckItem
	pushlong #Spe1str
	PushWord #0
	lda buttonstate+2*4
	bpl over4
	lda #1
	sta 1,s
over4	PushWord #0
	PushLong #0
	_NewDItem

	PushLong pScreenPort
	Pushword #8
	pushlong #S2rect
	Pushword #CheckItem
	pushlong #Spe2str
	PushWord #0
	lda buttonstate+2*5
	bpl over5
	lda #1
	sta 1,s
over5	PushWord #0
	PushLong #0
	_NewDItem

* draw the last radioitems
	PushLong pScreenPort
	Pushword #9
	pushlong #vs1rect
	Pushword #RadioItem
	pushlong #vs1str
	PushWord #0
	lda buttonstate+2*6
	bpl over6
	lda #1
	sta 1,s
over6	PushWord #2
	PushLong #0
	_NewDItem
	PushLong pScreenPort
	Pushword #10
	pushlong #vs2rect
	Pushword #RadioItem
	pushlong #vs2str
	PushWord #0
	lda buttonstate+2*7
	bpl over7
	lda #1
	sta 1,s
over7	PushWord #2
	PushLong #0
	_NewDItem
	PushLong pScreenPort
	Pushword #11
	pushlong #vs3rect
	Pushword #RadioItem
	pushlong #vs3str
	PushWord #0
	lda buttonstate+2*8
	bpl over8
	lda #1
	sta 1,s
over8	PushWord #2
	PushLong #0
	_NewDItem

	PushLong pScreenPort
	Pushword #12
	pushlong #ReduceRect
	Pushword #EditLine
	pushlong #ReduceDefault
	PushWord #3
	PushWord #0
	PushLong #0
	_NewDItem

* recupere les pointeurs des control
	lda #1
GetptrLoop	pha
	tay
	pushlong #0
	pushlong pScreenPort
	phy
	_GetControlDItem
	lda 5,s
	asl a
	asl a
	tax
	pla
	sta ptrList,x
	pla
	sta ptrList+2,x
	pla
	inc a
	cmp #11+1
	bne GetptrLoop

	stz IsStlCancelKey
	lda #1
	sta IsStlFirstUpdate

loopModal	PushWord #0
	PushLong #StyleFilter
	plx
	pla
	ora #$8000
	pha
	phx
	_ModalDialog
	lda IsStlCancelKey
	beq DoneCheckCancel
	pla
	brl S_CancelEvent
DoneCheckCancel
	pla
	beq loopModal
	cmp #12
	bge loopModal
	asl a
	tax
	jmp (Action-2,x)

	export IsStlCancelKey
IsStlCancelKey	dc.w 0
	export IsStlFirstUpdate
IsStlFirstUpdate	dc.w 0


Action	DC.W S_OkEvent	;1
	DC.W S_CancelEvent	;2
	DC.W S_Paper	;3
	DC.W S_Paper	;4
	DC.W S_Paper	;5
	DC.W S_Paper	;6
	DC.W S_Spe	;7
	DC.W S_Spe	;8
	DC.W VSize	;9
	DC.W VSize	;10
	DC.W VSize	;11

S_okEvent	PushLong pscreenport
	PushWord #12
	pushlong #reduceFinalValue
	_GetIText
	pushword #0
	pushlong #reduceFinalValue+1
	lda reduceFinalValue
	and #$0007
	pha
	pushword #0
	_Dec2Int
	pla
	cmp hprint+printx+iZoomMin
	blt dontreduce
	cmp hprint+printx+iZoomMax
	beq stillok
	bge dontreduce
stillok	sta Buttonstate+2*9
	lda #True
	sta IfCancelled
	brl fin

dontreduce	pha
	jsr BadReduce
	pla
	cmp hprint+printx+iZoomMin
	bge g1
	lda hprint+printx+iZoomMin
g1	cmp hprint+printx+iZoomMax
	blt g2
	lda hprint+printx+iZoomMax
g2	sta Buttonstate+2*9
	lda #True
	sta IfCancelled
	brl fin

S_CancelEvent	lda #0
	sta IfCancelled
	brl fin

S_paper	sec
	sbc #6
	tax
	lda buttonState,x	;Give me the item
	bmi PaperDone
	phx

* clear the current	one
	ldx #0
searchmore	lda buttonState,x
	bmi clearit
	inx
	inx
	cpx #4*2
	bne searchmore
	bra PaperDone
clearit	lda #0
	sta buttonState,x
	txa
	lsr a
	clc
	adc #3
	asl a
	asl a
	tax
	pushword #0
	lda PtrList+2,x
	pha
	lda PtrList,x
	pha
	_SetCtlValue

* Mark the new one

	plx
	phx
	lda #True
	sta buttonstate,x
	pla
	lsr a
	clc
	adc #3
	asl a
	asl a
	tax
	pushword #1
	lda PtrList+2,x
	pha
	lda PtrList,x
	pha
	_SetCtlValue

PaperDone	brl LoopModal

S_Spe	pha
	sec
	sbc #6
	tax
	lda buttonState,x
	eor #True
	sta buttonState,x
	pla
	asl a
	tax
	phx
	pushword #0
	lda PtrList+2,x
	pha
	lda PtrList,x
	pha
	_GetCtlValue
	pla
	plx
	and #1
	eor #1
	pha
	lda PtrList+2,x
	pha
	lda PtrList,x
	pha
	_SetCtlValue
	brl LoopModal

Vsize	sec
	sbc #6
	tax
	lda buttonState,x	Give me the item
	bmi VsizeDone
	phx

* clear the current	one
	ldx #2*6
searchmore2	lda buttonState,x
	bmi clearit2
	inx
	inx
	cpx #9*2
	bne searchmore2
	bra VsizeDone
clearit2	lda #0
	sta buttonState,x
	txa
	lsr a
	clc
	adc #3
	asl a
	asl a
	tax
	pushword #0
	lda PtrList+2,x
	pha
	lda PtrList,x
	pha
	_SetCtlValue

* Mark the new one

	plx
	phx
	lda #True
	sta buttonstate,x
	pla
	lsr a
	clc
	adc #3
	asl a
	asl a
	tax
	pushword #1
	lda PtrList+2,x
	pha
	lda PtrList,x
	pha
	_SetCtlValue

VSizeDone	brl LoopModal

fin	pushlong pscreenport
	_CloseDialog
	_SetPort
	lda IfCancelled
	rts
	ENDP
;                Copy    StyleFilter

	EXPORT Stylefilter
Stylefilter	PROC

	phd
	phb
	phk
	plb
	tsc
	tcd
	lda #0
	sta result
	ldy #14
copyEvent	lda [Event],y
	sta EventRecord,y
	dey
	dey
	bpl CopyEvent
	lda ZeroPage
	tcd
	lda EvtWhat
	cmp #inButtDwn
	beq down
	brl notDown

Down	PushLong pScreenPort
	_SetPort
	PushWord #0
	PushWord #0
	_SetOrigin
	pushlong #EvtWhere
	_GlobalToLocal
	pha
	pushlong #EvtWhere
	pushlong #dstbitf1
	_PtInRect
	pla
	beq NotIn1
	ldx #2*10
	lda buttonstate,x
	bpl invertthem
	brl notdown

NotIn1	pha
	pushlong #EvtWhere
	pushlong #dstbitf2
	_PtInRect
	pla
	beq NotDown
	ldx #2*11
	lda buttonstate,x
	bpl invertthem
	brl notdown

invertThem	ldx #2*10
	lda buttonstate,x
	eor #True
	sta buttonstate,x
	inx
	inx
	lda buttonstate,x
	eor #True
	sta buttonstate,x
	pushlong #dstbitf1
	_InvertRect
	pushlong #dstbitf1
	_FrameRect
	pushlong #dstbitf2
	_InvertRect
	pushlong #dstbitf2
	_FrameRect

notDown	cmp #6		;check if update event
	bne doneupdate		;if so, redraw non-control "items"
	import IsStlFirstUpdate
	lda IsStlFirstUpdate
	stz IsStlFirstUpdate
	bne doneupdate
	pushlong pScreenPort
	_BeginUpdate
	import StyleDiEtcToDraw
	jsr StyleDiEtcToDraw
	pushlong pscreenport
	pha
	pha
	pushlong pscreenport
	_GetUpdateRgn
	_UpdateDialog
	pushlong pscreenport
	_EndUpdate
	bra donestylefilter
doneupdate
	cmp #KeyDown
	beq dokey
	cmp #AutoKey
	beq dokey
	bra donestylefilter

Dokey	lda evtmsg
	cmp #27	;escape
	beq HereIfStlCancelKey

	cmp #'.'	;command-period
	bne DoneStlCancelKey
	tax
	lda evtmods
	and #$0100
	bne HereIfStlCancelKey
	txa
	bra DoneStlCancelKey

HereIfStlCancelKey	ldx #1
	import IsStlCancelKey
	stx IsStlCancelKey
	pha
	pha
	pushlong pscreenport
	pushword #2	;cancel dialog item id
	_GetControlDItem
	plx
	ply
	phy
	phx
	pushword #1
	phy
	phx
	_HiliteControl
	plx
	ply
	phy
	phx
	pushword #0
	phy
	phx
	_HiliteControl
	pla
	pla
DoneStlCancelKey
	cmp #Tab
	beq KeyAllowed
	cmp #CReturn
	beq KeyAllowed
	cmp #Delete
	beq KeyAllowed
	cmp #'0'
	blt notallowed
	cmp #':'
	bge notallowed
KeyAllowed	bra donestylefilter

notallowed	lda #-1
	sta result,s

donestylefilter	plb
	pld
	lda 0,s
	sta 12,s
	lda 2,s
	sta 14,s
	pla
	pla
	pla
	pla
	pla
	pla
	rtl
	ENDP
;                copy    JobDialog

* buttonstate for the jobdialog
* +2*0 Page all
* +2*1 Page From
* +2*2 Paper Cassette
* +2*3 Manual Feed
* +2*4 Copies
* +2*5 from
* +2*6 to

	EXPORT JobDialog
JobDialog	PROC

	IMPORT JobNameStr
	IMPORT CloseQuoteStr
	IMPORT NoNetworkStr

	pha
	pha
	_GetPort

	lda JobRect+6
	sec
	sbc JobRect+2
	sta Stylewidth

	pha
	_GetMasterSCB
	pla
	sta SCBValue
	and #$0080
	beq loc320
	lda #640
	bne loc640
loc320	lda #320
loc640	sec
	sbc StyleWidth
	lsr a
	sta JobRect+2
	clc
	adc StyleWidth
	sta JobRect+6

	PushLong #0
	pushlong #JobRect
	Pushword #1
	PushLong #0
	_NewModalDialog
	pla
	sta pScreenport+0
	pla
	sta pScreenport+2

	pushlong pscreenport
	_SetPort
	pushlong #0
	_SetOrigin

;	jsr JobDiEtcToDraw	;draw non-control adornment items and strings
	brl JobDiContinue


	export JobDiEtcToDraw
JobDiEtcToDraw
	pushlong l1	;draw the upper line
	_MoveTo
	pushlong l2
	_LineTo

;
; 7/3/92, (MD) -- Changed this part to use "Jobnamestr" instead of "namestr"
; and added a call to PrGetNetworkName to get the name of the chosen printer.
; We now display the name as:
;
; LaserWriter ÒYour printer name hereÓ
;
; Even though we don't support it, some people try to use this directly
; connected, so if there's no network printer name, it shows up as:
;
; LaserWriter ÒNo network - not supportedÓ
;
; Just to drive the point home.  :)

	PushLong namepos	;draw driver name string (LaserWriter)
	_MoveTo
;*** OLD WAY
;	pushlong #Jobnamestr
;	_DrawString
;	pha
;	pha	; space for result
;	_PrGetNetworkName
;	lda 1,s
;	ora 3,s	; is it a NIL pointer?
;	bne @GotString
;
;@NoNetwork	pla
;	pla
;	pushlong #NoNetworkStr
;
;@GotString	_DrawString
;
;	pushlong #CloseQuoteStr
;	_DrawString
;*** end OLD WAY

*** Modified 9-Jul-92 DAL to build the Pascal string "LaserWriter ÒblahÓ" and
***                       then draw it with either DrawString or DrawStringWidth

	lda JobNameStr	;save original string length
	pha

	pha
	pha
	_PrGetNetworkName
	lda 2,s
	bne @gotName
	lda #NoNetworkStr>>16
	sta 3,s
	lda #NoNetworkStr
	sta 1,s
@gotName	jsr AppendToJobStr

	pushlong #CloseQuoteStr
	jsr AppendToJobStr

	pha
	_QDVersion
	pla
	and #$0fff
	cmp #$0308
	bcs @got601

	pushlong #JobNameStr
	_DrawString
	bra @drawn

@got601	pea $4000	;flags (pstring ptr, compress, truncate in the middle)
	pushlong #JobNameStr
	pea 251	;available width in pixels
;	_DrawStringWidth
	ldx #$1512
	jsl $e10000

@drawn	pla
	sta JobNameStr
*** end 9-Jul-92 DAL

;
; End 7/3/92 changes -- MD
;


	lda JIstrnum	;drawing other inactive strings...
	dec a
	asl a
	asl a
	tax
JobDiETD_strloop	phx
	lda JIposlist+2,x
	pha
	lda JIposlist,x
	pha
	_MoveTo
	plx
	phx
	lda JIstrlist+2,x
	pha
	lda JIstrlist,x
	pha
	_DrawString
	plx
	dex
	dex
	dex
	dex
	bpl JobDiETD_strloop
	rts

*** added 9-Jul-92 DAL
;
; AppendToJobStr
;
; Take pstring pointer on stack and append the string
; to JobNameStr.
;
AppendToJobStr	phd
	tsc
	tcd
@ptr	equ 5	;above PHD and JSR

	sep #$30
	longa off
	longi off

	ldy #0
@next	tya
	cmp [<@ptr]
	bcs @done
	iny
	lda [<@ptr],y
	inc JobNameStr
	ldx JobNameStr
	sta JobNameStr,x
	bra @next

@done	rep #$30
	longa on
	longi on

	pld
	plx	;yank RTS address
	pla
	pla	;remove pointer from stack
	phx	;restore RTS address
	rts
*** end 9-Jul-92


JobDiContinue

* create the ok and	Cancel Item
	PushLong pScreenPort
	Pushword #1	OK
	pushlong #jOKrect
	Pushword #ButtonItem
	pushlong #okstr
	PushWord #0
	PushWord #0
	PushLong #0
	_NewDItem

	PushLong pScreenPort
	Pushword #2	cancel
	pushlong #jcancelrect
	Pushword #ButtonItem
	pushlong #cancelstr
	PushWord #0
	PushWord #0
	PushLong #0
	_NewDItem

* create the radio items

	PushLong pScreenPort
	Pushword #3	All
	pushlong #pr1rect
	Pushword #RadioItem
	pushlong #pr1str
	PushWord #1
	PushWord #1
	PushLong #0
	_NewDItem

	PushLong pScreenPort
	Pushword #4	From
	pushlong #pr2rect
	Pushword #RadioItem
	pushlong #pr2str
	PushWord #0
	PushWord #1
	PushLong #0
	_NewDItem

	PushLong pScreenPort
	Pushword #5	Paper Tray
	pushlong #pf1rect
	Pushword #RadioItem
	pushlong #pf1str
	PushWord #1
	PushWord #2
	PushLong #0
	_NewDItem

	PushLong pScreenPort
	Pushword #6	Manual Feed
	pushlong #pf2rect
	Pushword #RadioItem
	pushlong #pf2str
	PushWord #0
	PushWord #3
	PushLong #0
	_NewDItem

* draw the 3 edit line

	PushLong pScreenport
	PushWord #7
	pushlong #CopieRect
	PushWord #EditLine
	pushlong #DefaultCopie
	PushWord #3
	PushWord #0
	PushLong #0
	_NewDItem

	PushLong pScreenport
	PushWord #8
	pushlong #ToRect
	PushWord #EditLine
	PushLong #0
	PushWord #3
	PushWord #0
	PushLong #0
	_NewDItem

	PushLong pScreenport
	PushWord #9
	pushlong #FromRect
	PushWord #EditLine
	PushLong #0
	PushWord #3
	PushWord #0
	PushLong #0
	_NewDItem

	stz IsJobCancelKey

loopModal	PushWord #0
	PushLong #JobFilter
	plx
	pla
	ora #$8000
	pha
	phx
	_ModalDialog
	lda IsJobCancelKey
	beq DoneCancelKey
	pla
	brl S_CancelEvent

DoneCancelKey	pla
	beq loopModal
	cmp #10
	bge loopModal
	asl a
	tax
	jmp (Action-2,x)

Action	DC.W S_OkEvent	;1
	DC.W S_CancelEvent	;2
	DC.W S_Page	;3
	DC.W S_Page	;4
	DC.W S_Paper	;5
	DC.W S_Paper	;6
	DC.W S_Copies	;7
	DC.W S_To	;8
	DC.W S_From	;9

S_okEvent	PushLong pscreenport
	PushWord #7
	pushlong #CopieFinalValue
	_GetIText
	pushword #0
	pushlong #CopieFinalValue+1
	lda CopieFinalValue
	and #$0007
	pha
	pushword #0
	_Dec2int
	pla
	sta Buttonstate+2*4

	lda buttonstate+2*0
	bmi nopageupdate
	PushLong pscreenport
	PushWord #9
	pushlong #FromFinalValue
	_GetIText
	lda FromFinalValue
	and #7
	beq nofrom
	pushword #0
	pushlong #FromFinalValue+1
	lda FromFinalValue
	and #$0007
	pha
	pushword #0
	_Dec2Int
	pla
	sta Buttonstate+2*5
nofrom	PushLong pscreenport
	PushWord #8
	pushlong #ToFinalValue
	_GetIText
	lda ToFinalValue
	and #$0007
	beq nopageupdate
	pushword #0
	pushlong #ToFinalValue+1
	lda ToFinalValue
	and #$0007
	pha
	pushword #0
	_Dec2Int
	pla
	sta Buttonstate+2*6
nopageupdate	lda #True
	sta IfCancelled
	brl fin

S_CancelEvent	lda #0
	sta IfCancelled
	brl fin
paperdone	brl loopmodal

S_Page	tay	; fake out the test	below
S_Page2	sec
	sbc #6
	tax
	lda buttonState,x	Give me the item
	bmi PaperDone
	cpx #2*0	* button n 4
	beq doall
* do from to.
	cpy #16	; value has been doubled by now
	bge Box	; "From:" or "To:" box clicked,
	PushLong pScreenPort ; don't select text
	PushWord #9
	PushWord #0
	PushWord #4
	_SelIText

Box	pushword #1
	Pushlong pScreenPort
	Pushword #4
	_SetDItemValue
	pushword #0
	Pushlong pScreenPort
	Pushword #3
	_SetDItemValue
	lda #0
	ldx #2*0
	sta buttonstate,x
	inx
	inx
	dec a
	sta buttonstate,x
	brl LoopModal

doAll	pushword #0
	Pushlong pScreenPort
	Pushword #4
	_SetDItemValue
	pushword #1
	Pushlong pScreenPort
	Pushword #3
	_SetDItemValue
	lda #True
	ldx #2*0
	sta buttonstate,x
	inx
	inx
	inc a
	sta buttonstate,x
CopieDone	brl LoopModal

S_Paper	sec
	sbc #6
	tax
	lda buttonState,x	Give me the item
	bmi CopieDone
	cpx #2*2	* button n 6
	beq doAuto
* do Hand
	pushword #1
	Pushlong pScreenPort
	Pushword #6
	_SetDItemValue
	pushword #0
	Pushlong pScreenPort
	Pushword #5
	_SetDItemValue
	lda #0
	ldx #2*2
	sta buttonstate,x
	inx
	inx
	dec a
	sta buttonstate,x
	brl LoopModal

doAuto	pushword #1
	Pushlong pScreenPort
	Pushword #5
	_SetDItemValue
	pushword #0
	Pushlong pScreenPort
	Pushword #6
	_SetDItemValue
	lda #True
	ldx #2*2
	sta buttonstate,x
	inx
	inx
	inc a
	sta buttonstate,x
	brl LoopModal

S_Copies	brl LoopModal

S_To
S_From	tay
	lda #8
	brl S_Page2

fin	pushlong pscreenport
	_CloseDialog
	_SetPort
	lda IfCancelled
	rts

	export IsJobCancelKey
IsJobCancelKey	dc.w 0

	ENDP

;                copy    JobFilter

	EXPORT Jobfilter
Jobfilter	PROC

	phd
	phb
	phk
	plb
	tsc
	tcd
	lda #0
	sta result
	ldy #14
copyEvent	lda [Event],y
	sta EventRecord,y
	dey
	dey
	bpl CopyEvent
	lda ZeroPage
	tcd

	lda EvtWhat

	cmp #6	;check if update event, and if so redraw
	bne notUpdate	;our non-dialog-control stuff that is in the box
doUpdate
	pushlong pscreenport
	_BeginUpdate
	import JobDiEtcToDraw
	jsr JobDiEtcToDraw
	pushlong pscreenport
	pha
	pha
	pushlong pscreenport
	_GetUpdateRgn
	_UpdateDialog
	pushlong pscreenport
	_EndUpdate
	brl doneJobFilter

notUpdate	cmp #KeyDown	;check if key down or repeating keys
	beq dokey
	cmp #AutoKey
	beq dokey
	brl doneJobFilter

dokey	lda evtmsg
	cmp #27	;escape
	beq HereIfJobEsc

	cmp #'.'	;command-period
	bne DoneJobEsc
	tax
	lda evtmods
	and #$0100
	bne HereIfJobEsc
	txa
	bra DoneJobEsc

HereIfJobEsc	ldx #1
	import IsJobCancelKey
	stx IsJobCancelKey
	pha
	pha
	pushlong pscreenport
	pushword #2	;cancel dialog item id
	_GetControlDItem
	plx
	ply
	phy
	phx
	pushword #1
	phy
	phx
	_HiliteControl
	plx
	ply
	phy
	phx
	pushword #0
	phy
	phx
	_HiliteControl
	pla
	pla

DoneJobEsc	cmp #'m'
	beq itsM
	cmp #'M'
	bne doneCmdMkey
itsM	lda evtmods
	and #$0100	;command
	beq doneCmdMkey
itsCM	lda buttonstate+2*2	;get setting of autofeed button
	bne WasAutoIsMan
WasManIsAuto	dec a	;was manual, setting to auto
	sta buttonstate+2*2 ;store $FFFF in autofeed button
	stz buttonstate+2*3 ;store $0000 in manfeed button
	bra AlterFeedCtl
WasAutoIsMan	sta buttonstate+2*3 ;was auto, setting to man; store $FFFF in manfeed button
	stz buttonstate+2*2 ;store $0000 in autofeed button
AlterFeedCtl	lda buttonstate+2*2 ;now update auto/man buttons; get state of auto button
	and #1	;turn into 0/1
	pha	;save it for a moment on stack
	pha	;pass new auto button value
	pushlong pscreenport ;pass dialog gport ptr
	pushword #5	;pass id of auto button
	_SetDItemValue	;redraw auto button control
	pla	;restore 0/1 auto button state from stack
	eor #1	;flip it
	pha	;pass new man button value
	pushlong pscreenport ;pass dialog gport ptr
	pushword #6	;pass id of man button
	_SetDItemValue	;redraw man button control
	bra doneJobFilter

doneCmdMkey	cmp #Tab
	beq KeyAllowed
	cmp #CReturn
	beq KeyAllowed
	cmp #Delete
	beq KeyAllowed
	cmp #'0'
	blt notallowed
	cmp #':'
	bge notallowed
KeyAllowed	bra doneJobFilter
notallowed	lda #-1
	sta result,s

doneJobFilter	plb
	pld
	lda 0,s
	sta 12,s
	lda 2,s
	sta 14,s
	pla
	pla
	pla
	pla
	pla
	pla
	rtl
	ENDP


*************************************************************
*              			*
* DocPage      			*
*              			*
* Current Rev: Jan 27, 1988       	 	*
*              			*
* Revised to use new PostScript - GSPrep       	*
*              			*
*************************************************************

***************************************************************
*
* PrOpenDoc
*
* parameters:     result        returns	ptr to printing grafport
*                 UserhPrint    handle to print record
*                 pPrPort       ptr to printing grafport, if
*                               Nil, it will be allocated
*
***************************************************************

	EXPORT PrOpenDoc
PrOpenDoc	PROC

	DefineStack
DPage	word 0
BReg	byte 0
rtl1	block 3
rtl2	block 3
SpPrPort	long 0
UserhPrint	long 0
SResult	long 0

	pha	; save value of d

	pha
	_DevIsItSafe
	pla
	bne Yes
	lda #PortNotOn
	sta >iPrErr
	plx
	brl Exit8

Yes	pla

	phd
	tcd
	phb
	phk
	plb
	sta ZeroPage

	pha
	_GetMasterSCB
	pla
	sta SCBValue

	jsr WaitCursor

	stz iPrErr	; noErr
	stz fPSFile	; printing, not write to file

* verify hPrint
	lda UserhPrint+2,s 	; get the handle off the stack
	pha
	lda UserhPrint+2,s
	pha
	pushlong #hPrint
	PushLong #TPrintSize
	_HandToPtr	; copy it to our local area

;----------------------------------------------------------------------
;
; Test if correct printer type (1 = ImageWriter, 2 = IW LQ, 3 = LaserWriter,
; 4 = Epson) and correct version number.
;

	lda hPrint+prInfo+idev
	cmp #iDevLW	; this is LaserWriter driver
	bne WrongType
	lda hPrint+iPrVersion ; check if correct version
	xba	; swap since hi-lo bytes
	cmp #VersionNb	; are swapped in lda
	beq goodPtype
WrongType
	lda UserhPrint+2,s
	pha
	lda UserhPrint+2,s
	pha
	_PrDefault
GoodPtype
* if Print.PrJob.pIdleProc==NIL
* Then Print.PrJob.pIdleProc:=@PrAbortCheck

	lda hPrint+PrJob+pIdleProc+0
	ora hPrint+PrJob+pIdleProc+2
	bne useridle
	lda #<PrAbortCheck
	sta hPrint+PrJob+pIdleProc+0
	lda #^PrAbortCheck
	sta hPrint+PrJob+pIdleProc+2
useridle

* update the port

	stz allowstatus
	stz PortOpened	; Port not opened to start
	stz NewInterval+0	; initialize timer used by
	stz NewInterval+2	; status call

	jsl myIdleProc

	jsr OpenInfoPrinting

	jsr OpenLaser	; try open PAP conn while show status and allowing user exit
	bcc LaserOpened	; go on if successful
	cmp #iPrAbort	; exit if user-cancel
	beq @1

	jsr OpenLaser	; try opening one additional time; some LW won't communicate
	bcc LaserOpened	; if they are in the process of ejecting a page, etc
	cmp #iPrAbort
	beq @1

	lda #PAPConnNotOpen	; if we couldn't establish communication then set error
	sta iPrErr
@1	brl ExitOpenDoc	; and exit

LaserOpened

;-----------------------------------------------------------
;
; Get the user name from the Print Manager and use it to set up the
; jobname field in the LaserWriter's status dictionary.  AppleTalk
; uses this information in its status message.
; This is done even before the prep file is downloaded is so that the
; status during the sending of the prep file shows the user name.
;
	pushlong #JobName1
	jsr AddStrToWBuff

	PushLong #0	; NIL may be important (18-Feb-93 DAL)
	_PMGetUserName	; get pointer and leave it on
	jsr AddStrToWBuff	; stack for this call

	pushlong #JobName2
	jsr AddStrToWBuff

	PushLong #0
	_PMGetDocName	; result is left on stack for
	jsr AddStrToWBuff	; this call

	pushlong #JobName3
	jsr AddStrToWBuff

	jsr WriteLaser	; Send this now because SendThePrep will
		; start filling the buffer from the
		; beginning, wiping out everything else

	lda fPSFile	; non zero means writing to a file
	beq @NoFile
	lda #1
	sta LWType	; when writing to file, assume LW Plus or II
	bra GotNames	; no need to set up tables

@NoFile	jsr SetUpNameTables
	bcc GotNames
	brl ExitOpenDoc	; error, most likely memory problems

GotNames

;-----------------------------------------------------------
;
; Send PostScript header comments
;
	pushlong #JobTitleComment
	jsr AddstrToWBuff

	PushLong #0
	_PMGetDocName	; result is left on stack for
	jsr AddStrToWBuff	; this call

	pushlong #ForUserComment
	jsr AddstrToWBuff

	PushLong #0	; NIL may be important (18-Feb-93 DAL)
	_PMGetUserName	; get pointer and leave it on
	jsr AddStrToWBuff	; stack for this call

	pushlong #HeaderComment ; the rest of the stuff we don't deal with now
	jsr AddstrToWBuff

	jsr WriteLaser	; send everything in buffer now

	jsl SendThePrep	; call to the dynamic segment to send
	bcc GoUnload	; the prep stuff
	lda iPrErr	; check if error is	a user cancel
	cmp #iPrAbort
	beq GoUnload	; yep

	lda #PAPReadWriteErr ; otherwise it's a PAP error
	sta iPrErr

GoUnload	pha
	pha
	pha	; space for results
	phx
	phy
	_UnloadSeg	; unload the dynamic segment
	plx
	plx
	plx	; ignore results

	lda iPrErr
	beq ErrorFree
	brl ExitOpenDoc

ErrorFree
	pushlong #EndPrologComment
	jsr AddStrToWBuff

	lda #false
	sta ourport

	lda SpPrPort,s
	ora SpPrPort+2,s
	bne Portexist

* get a new Handle
	lda #portsize		;size required
	ldx #%1000000000011000 	;locked and dont cross bank
	jsr OurGetHandle		;result on the stack
	bcc @1
	sta iPrErr
	brl exitOpenDoc

@1	sta QD_Temp1
	stx QD_Temp1+2
	lda [QD_Temp1]
	sta SpPrPort,s
	ldy #2
	lda [QD_Temp1],y
	sta SpPrPort+2,s

	lda #true
	sta ourport

PortExist	lda SpPrPort,s		;update result
	sta SResult,s
	sta PZ_pPrPort
	tax
	lda SpPrPort+2,s
	sta SResult+2,s
	sta PZ_pPrPort+2

* we open the port

	pushlong PZ_pPrport
	_OpenPort
	bcc OK2
	sta iPrErr
	brl exitOpenDoc

OK2	dec PortOpened	; port has been opened

	jsr installProcs

* set portbits.boundsrect to 0,0,0,0

	lda PZ_pPrPort
	clc
	adc #16
	tax
	lda PZ_pPrPort+2
	adc #0
	pha
	phx
	lda #0
	pha
	pha
	pha
	pha
	_SetRect

	stz iPageNum	;init page num

* and open the file
*
* reset the fonts
	lda #0
	sta FontList
	sta PatternInstalled
	dec a
	sta curFontFamNum
	sta curTxSize
	sta curTxStyle

* send the Header

	jsr OpenDocHeader

* set the pattern to black as default
* it is possible that this small initialization will move
* in openpage later, I don't know if "op" reset the grey level
* in the laserprep.

	lda #0
	ldy #30
blkloop	sta ourPat,y
	dey
	dey
	bpl blkloop
	stz PatternType

	lda iPrErr	; should be 0 if alls well
exitOpenDoc	plb
	pld
	brl Exit8

	ENDP

**************************************************************
*
* SpecialWrite  (SrcLoc : Long , Size :	word)
*
* Routine called back from LoadThePrep to call the local
* routine WriteLaser
*
* This routine is called with 6 bytes of input on stack
* which are stripped off on exit.
*
**************************************************************
	EXPORT SpecialWrite
SpecialWrite	PROC

	phb	; save dbr and set to this bank
	phk
	plb

	lda Ptr+2,s	; copy the source to write buff
	pha
	lda Ptr+2,s
	pha
	PushLong #WriteBuffer
	lda Count+8,s
	PushWord #0
	pha
	_BlockMove

	lda Count,s	; put count into write length
	sta WriteLength

	jsr WriteLaser	; writelaser and save status in y
	php
	php
	ply

	lda RTL,s	; clean the stack
	sta RTL+6,s
	lda RTL+1,s
	sta RTL+6+1,s

	plb	; restore dbr

	pla	; more stack cleaning
	pla
	pla

	phy	; restore status
	plp
	plp

	rtl	; done


	ENDP

*****************************************************************
*
* SetUpNameTables - reads in list of available font names
*
* inputs: none
* outputs: none; returns with carry set if error (or user abort status)
*
*****************************************************************
	EXPORT SetUpNameTables
SetUpNameTables	PROC

	phd	; save QuickDraw's direct page
	lda ZeroPage
	tcd	; use our own

;-----------------------------------------------------------
;
; Allocate a buffer of 512 bytes (flow quantum of AppleTalk) to begin with,
; grow by 512 bytes as needed.
;

	lda #ATFlowQuantum+1 ; size of handle+1
	sta rawBuffSize	; current size of the buffer+1 for easier compare
	dec a	; back to actual size of ATFlowQuantum
	ldx #%1000000000011000 ; locked, nonpurgeable, don't cross
	jsr OurGetHandle	; bank boundaries, don't use special mem
	bcc @1
	sta iPrErr
	brl ErrorExit

@1	sta RawBuffHdl	; put the handle on zero page
	stx RawBuffHdl+2

	lda [RawBuffHdl]	; dereference the handle
	sta RawBuffPtr
	ldy #2
	lda [RawBuffHdl],y
	sta RawBuffPtr+2

	stz BufferIndex	; start at beginning of buffer

	dec allowstatus	; disable status gathering so no read is done
		; background note: WriteLaser makes status calls
		; which makes read calls

	pushlong #Queries	; ask questions
	jsr AddStrToWBuff
	jsr WriteLaser

	stz NumEntriesX2	; intialize the count

;-----------------------------------------------------------
;
; First we deal with the response to the printer query
;
	lda iPrErr	; make sure no error pending => safe to do ReadLaser
	beq OkToRead1	; this is because if err there might never be a response
	brl ErrorExit	; BAK 9/16/91
OkToRead1
  	jsr ReadLaser

;-----------------------------------------------------------
;
; Response format:
;    1 LF(47.0)LF(product name)LF
;
; The product name string can be any of the following:
;     (LaserWriter)		; length = 14
;     (LaserWriter Plus)	; length = 19
;     (LaserWriter II NT)	; length = 20
;     (LaserWriter II NTX)	; length = 21
;
; We are interested in separating the product names into 3 catagories: non-LaserWriter,
; LaserWriter, or LaserWriter Plus or LaserWriter II's.
;

	lda #LocalBuffer	; place where we have the printer type
	clc
	adc #11	; move pointer to start of product name string, not
	sta destPtr	; including "("
	lda #^LocalBuffer
	sta destPtr+2
	lda localBufSize	; the length of it
	sec
	sbc #11	; set to actual length of product name
	sta destLen

	pha
	pushlong #destPtr
	pushlong #destLen
	pushlong #ProductName	; our search pattern
	pushWord #11		; the length of target
	PushLong #0		; no replacement string
	PushWord #0
	pushlong #Padding		; bogus pad char
	_Munger
	pla	; find the word LaserWriter?
	bne NotLWFamily	; nope, not one of ours

	ldx #1	; assume LW Plus or LW IIs
	lda destLen
	cmp #2	; if more than 2 chars ")LF" left, then
	bne WeBeDone	; must be Plus or II

	dex	; 0 = classic LW
	bra WeBeDone

NotLWFamily	ldx #2	; 2 = non LW family

WeBeDone	stx LWType

;-----------------------------------------------------------
;
; Now we get to the font list response
;

ReadLoop
	lda iPrErr	; make sure no error pending => safe to do ReadLaser
	beq OkToRead2	; this is because if err there might never be a response
	brl ErrorExit	; BAK 9/16/91
OkToRead2
	jsr ReadLaser	; read the data via AppleTalk

	lda LocalBufSize
	cmp #2	; did we only read 2 chars -- "* LF"?
	bne Continue	; no, keep going

	lda LocalBuffer	; if we got 2 chars, then it may be the terminating
	and #$00FF	; char "*" and its accompanied LF
	cmp #'*'
	bne Continue
	brl BufferDone

Continue	inc NumEntriesX2

	lda LocalBufSize
	dec a	; we don't need the LF after the name
	sta LocalBufSize	; this is now the actual length of the string
	clc
	adc BufferIndex
	cmp rawBuffSize
	blt BigEnough

;-----------------------------------------------------------
;
; We'll need to grow the buffer to handle more data
;

	PushLong RawBuffHdl	; that's where our handle still is
	_HUnLock	; first we unlock it

	pha	; space for size
	pha
	PushLong RawBuffHdl
	_GetHandleSize	; get current block size
	pla
	clc
	adc #ATFlowQuantum+1 ; increase it by another bufferful
	sta RawBuffSize
	dec a	; real size of ATFlowQuantum
	pha	; new size
	PushLong RawBuffHdl
	_SetHandleSize	; set new block size
	bcc @1
	sta iPrErr
	brl ErrorExit

@1	PushLong RawBuffHdl	; then we lock it back
	_HLock

	lda [RawBuffHdl]	; derefernce the handle
	sta RawBuffPtr
	ldy #2
	lda [RawBuffHdl],y
	sta RawBuffPtr+2

BigEnough	ldy BufferIndex	; store the length byte
	lda LocalBufSize	; note: high byte will be taken care of when we store
	sta [RawBuffPtr],y	; the name
	iny	; bump index by 1

	pushlong #LocalBuffer	; move the data to our own buffer
	lda RawBuffPtr+2
	pha
	tya	; Y has BufferIndex
	clc
	adc RawBuffPtr
	pha
	PushWord #0	; high byte of long	word is always 0
	lda LocalBufSize 	; since buffer size is 512 max
	pha
	_BlockMove

	lda LocalBufSize
	clc
	adc BufferIndex
	inc a
	sta BufferIndex	; advance the index

	brl ReadLoop

BufferDone
	stz allowStatus	; enable status again

	lda NumEntriesX2	; multiply by two for easier indexing
	asl a
	sta NumEntriesX2

;-----------------------------------------------------------
;
; Parse the raw data buffer and set up length and offset tables accordingly
;
; The remainder of the table is length followed by name string.
; Get memory for two tables, each with NumEntriesX2 bytes.
;
		; size is already in A
	ldx #%1000000000011000 ; locked, nonpurgeable, don't cross
	jsr OurGetHandle	; bank boundaries, don't use special mem
	bcc @1
	sta iPrErr
	brl ErrorExit

@1	sta LengTabPtr	; put the handle on zero page
	stx LengTabPtr+2

	lda [LengTabPtr]	; dereference
	tax	; store in x temporarily till high
	ldy #2	; word is done
	lda [LengTabPtr],y
	sta LengTabPtr+2
	stx LengTabPtr

	lda NumEntriesX2	; size of handle
	ldx #%1000000000011000 ; locked, nonpurgeable, don't cross
	jsr OurGetHandle	; bank boundaries, don't use special mem
	bcc @2
	sta iPrErr
	brl ErrorExit

@2	sta OffTabPtr	; put the handle on zero page
	stx OffTabPtr+2

	lda [OffTabPtr]
	tax	; store in x temporarily till high
	ldy #2	; word is done
	lda [OffTabPtr],y
	sta OffTabPtr+2
	stx OffTabPtr

;-----------------------------------------------------------
;
; Loop to disect the buffer to sort out the length and calculate an
; offset to each name. Stuffs the tables accordingly.
;

	ldy #0	; initialize the indexes
	sty EntryIndex	; the table index
	sty buffIndex	; index currently is pointing at the length char
		; of the first name entry

loopGet	lda [RawBuffPtr],y
	and #$00FF	; get length byte

	ldy EntryIndex	; get the table index
	sta [LengTabPtr],y	; put the length in its table
	tax	; temporary holding tank
	lda buffIndex
	inc a	; move pass length byte
	sta [OffTabPtr],y	; buffIndex now points at the beginning of the name
		; store this in the offset table
	iny	; bump the table index
	iny
	cpy NumEntriesX2	; check if we're done
	beq AllDone	; yep
	sty EntryIndex	; update index
	txa	; put length back in A
	clc	; advance the buffer index to the end of
	adc buffIndex	; the name
	inc a
	sta buffIndex
	tay	; put it in y for use

	bra loopGet

AllDone	lda #0

ErrorExit	pld	; put QuickDraw's direct page back
	cmp #1
	rts



	EXPORT NumEntriesX2
NumEntriesX2	DS.B 2	; 2X total number of entries in the Font Directory
		; size of the length and offset tables
EntryIndex	DS.B 2	; index to the name length and offset tables
BuffIndex	DS.B 2	; index to the name buffer
rawBuffSize	DS.B 2	; current size of raw buffer+1
	EXPORT LWType
LWType	DS.B 2	; LaserWriter type: 0 = LW, 1 = LW+ or II,
		;             	2 = not LW family
destPtr	DS.B 4
destLen	DS.B 2
Padding	DS.B 2


	ENDP

***************************************************************
*
* PrCloseDoc
*
* parameters:     pPrPort        ptr to	printing grafport
*
*
***************************************************************

	EXPORT PrCloseDoc
PrCloseDoc	PROC

	DefineStack
DPage	word 0
BReg	byte 0
rtl1	block 3
rtl2	block 3
SpPrPort	long 0


	pha	; save value of d
	lda >iPrErr
	cmp #PortNotOn
	bne OKToContinue
	plx
	brl Exit4

OKToContinue	pla
	phd
	tcd
	phb
	phk
	plb

;-----------------------------------------------------------
;
; Put us back into QuickDraw mode in case the application forgets
; or errors out before it gets a chance to send the PostScriptEnd
; PicComment.
;

	stz comments

;------------------------------------------------------------------
;
; Check the flag to	see if we got as far as OpenPort in PrOpenDoc
; without an error.	If not opened, no need to close it
;

	lda PortOpened
	bne @1
	brl UserPort

* close the file here

@1
	pushlong #TrailerComment
	jsr AddStrToWBuff

	pushlong #CloseDoc
	jsr AddStrToWBuff

	pushlong #PagesComment
	jsr AddStrToWBuff
	lda iPageNum
	jsr addacc

	pushlong #EOFComment
	jsr AddStrToWBuff

	jsr WriteLaser	; send all the information in
		; the write buffer now

	bcc WriteOK
	lda iPrErr
	cmp #iPrAbort
	beq WriteOK

	lda #PAPReadWriteErr
	sta iPrErr

* close the port first

WriteOK	lda SpPrPort+2,s
	pha
	lda SpPrPort+2,s
	pha
	_ClosePort
	bcc @1
	sta iPrErr
	brl exitCloseDoc

@1
	lda fPSFile	; are we writing to file?
	bne DispNotNeeded	; yep, skip the disposal since the following
		; buffers were never allocated
	lda RawBuffHdl+2
	pha
	lda RawBuffHdl
	pha
	_DisposeHandle

	pha
	pha
	lda LengTabPtr+2
	pha
	lda LengTabPtr
	pha
	_FindHandle
	_DisposeHandle

	pha
	pha
	lda OffTabPtr+2
	pha
	lda OffTabPtr
	pha
	_FindHandle
	_DisposeHandle

DispNotNeeded
	lda ourPort
	cmp #true
	bne userport

	pha
	pha	; FindHandle result
	lda SpPrPort+4+2,s
	pha
	lda SpPrPort+4+2,s
	pha
	_FindHandle
	_DisposeHandle
	sta iPrErr

userport	jsr CloseLaser	; close the PAP connection

	pushlong #DefaultDocName
	_PMSetDocName	; reset the document name to default

	jsr CloseInfo	; close status message box

	jsr RestoreCursor

	lda iPrErr
ExitCloseDoc	plb
	pld
	brl Exit4

DefaultDocName	str 'Unknown'	; defaults the name to "Unknown"

	ENDP

***************************************************************
*
* PrOpenPage
*
* parameter:   pPrPort         ptr to printing grafport
*              pPageFrame      ptr to rectangle for scaling
*
***************************************************************

	EXPORT PrOpenPage
PrOpenPage	PROC

	DefineStack
DPage	word 0
BReg	byte 0
rtl1	block 3
rtl2	block 3
pPageFrame	long 0
SpPrPort	long 0

	pha	; save value of d
	lda >iPrErr
	beq SallRight
	plx
	brl Exit8

SallRight	pla
	phd
	tcd
	phb
	phk
	plb

;--------------------------------------------------------------------
;
; Reinitialize the grafport for each new page
;

	lda SpPrPort+2,s
	pha
	lda SpPrPort+2,s
	pha
	_Setport	; this doen't need to be an InitPort
	bcc @1	; as in ImageWriter	driver
	sta iPrErr
	brl exitOpenPage

@1	inc iPageNum
	lda iPrErr
	beq Continue
pseudoExit	brl ExitNow

Continue	lda ipagenum
	cmp hprint+prjob+ifstpage
	blt pseudoExit
	dec a
	cmp hprint+prjob+ilstpage
	bge pseudoExit

	pushlong #PageComment
	jsr AddStrToWBuff
	lda iPageNum
	jsr addacc
	pushlong #Return
	jsr AddStrToWBuff

	lda #1
	sta OurPnSize
	sta OurPnSize+2

	stz Ourorigin
	stz Ourorigin+2
	stz OurPnPos
	stz OurPnPos+2

	stz PixelInstalled	; initialize each page for pixel maps

;
; initialize these variables so that font information is sent for each
; new page
;
	lda #$FFFF
	sta curFontFamNum
	sta CurTxSize
	sta CurTxStyle

	pushlong #OpenPage
	jsr AddStrToWBuff

;---------------------------------------------------------------------
;
; Send the rPage rectangle to be used as the clip region at	start of
; a page.
;

	pushlong #ClipStrStart
	jsr AddStrToWBuff

	lda hprint+prInfo+rPage+Top
	sta CurClipRect+Top
	jsr addacc

	lda hprint+prInfo+rPage+Left
	sta CurClipRect+Left
	jsr addacc

	lda hprint+prInfo+rPage+Bottom
	sta CurClipRect+Bottom
	jsr addacc

	lda hprint+prInfo+rPage+Right
	sta CurClipRect+Right
	jsr addacc

	pushlong #ClipStrEnd
	jsr AddStrToWBuff

	lda pPageFrame,s
	sta QD_Temp2
	ora pPageFrame+2,s
	beq NoScale

	lda pPageFrame+2,s
	sta QD_Temp2+2
	ldy #0
loop	lda [QD_Temp2],y
	phy
	jsr addacc
	ply
	iny
	iny
	cpy #8
	blt loop

	pushlong #ScaleFr
	jsr AddStrToWBuff

NoScale
;               pushlong #OpenPage1
;               jsr	AddStrToWBuff
;               pushlong #BuStr
;               jsr	AddStrToWBuff

;               pushlong #BnStr
;               jsr	AddStrToWBuff

	jsr color	; send the palette for the page

	jsr ShowStatus

ExitNow	lda #0
exitOpenPage	plb
	pld
	brl Exit8

	ENDP

****************************************************************
*
* PrClosePage
*
* parameter:   pPrPort         ptr to printing grafport
*
****************************************************************

	EXPORT PrClosePage
PrClosePage	PROC

	pha	; save value of d
	lda >iPrErr
	beq GoOn
	plx
	brl Exit4

GoOn

	pla
	phd
	tcd
	phb
	phk
	plb


	lda ipagenum
	cmp hprint+prjob+ifstpage
	blt exitnow2
	dec a
	cmp hprint+prjob+ilstpage
	bge exitnow2

* ok call showpage now
	pushlong #ClosePage
	jsr AddStrToWBuff

	jsr WriteLaser
	bcc ExitNow2

	lda iPrErr
	cmp #iPrAbort
	beq ExitClosePage

	lda #PAPReadWriteErr
	sta iPrErr
	bra ExitClosePage

Exitnow2	lda #0
ExitClosePage	plb
	pld
	brl Exit4

	ENDP

*****************************************************************
*
* Default abort procedure: polls keyboard for Command-period.
*
* Also checks for Command-F which redirects the PostScript to a
* file.
*
*****************************************************************

	EXPORT PrAbortCheck
PrAbortCheck	PROC	; should be in scc68k

more	pushword #0
	pea %0000010000101000
	pushlong #EventRecord
	_GetNextEvent
	pla
	beq bye

	lda evtmsg
	cmp #'.'	; Check for Period
	beq Abort

	cmp #'F'	; Command-F ?
	beq PSFile
	cmp #'f'
	bne more

PSFile	lda evtmods	; command
	and #$0100
	beq more

	inc fPSFile
	bra bye

Abort	lda evtmods	; command
	and #$0100
	beq more

	lda #iPrAbort
	sta iPrErr
bye	rtl

	ENDP

*****************************************************************
*
* Calls the idle procedure
*
*****************************************************************

	EXPORT MyIdleProc
MyIdleProc	PROC	; should be in scc68k

	lda hPrint+PrJob+pIdleProc+1
	pha
	phb
	pla
	lda hPrint+PrJob+pIdleProc
	sec
	sbc #1
	pha
	rtl

	ENDP

*****************************************************************
*
* OpenDocHeader
*              no parameters on stack
*
* Sends PostScript's conforming header information and infomation
* needed to set up a document for printing on the LaserWriter.
*
*****************************************************************

	EXPORT OpenDocHeader
OpenDocHeader	PROC

;
; Put our PostScript dictionary on the stack for use with this document
;
	pushlong #BeginDict
	jsr AddStrToWBuff

;
; The following code sends the parameters necessary for the	page setup
; procedure
;
; number of copies
; allowing 999 copies as max, anything greater is set to 1 copy
;
	lda hprint+prjob+iCopies
	cmp #1000	; the user doesn't really want
	blt GoOn	; that many copies,	does he?
	lda #1	; set copies to 1
GoOn	jsr AddAcc

;
; test if manual feed is requested
;
	lda hprint+prStl+feed
	beq ManualFeed
	pushlong #FalseStr
	bra Continue
ManualFeed	pushlong #TrueStr
Continue	jsr AddStrToWBuff

;
; test if Smoothing	is requested
;
	lda #f2	Smoothing
	and hprint+prstl+wdev
	beq trueSmooth
	pushlong #FalseStr
	bra FalseSmooth
trueSmooth	pushlong #TrueStr
FalseSmooth	jsr AddStrToWBuff

;
; test if Portrait
;
	lda #f1	Portrait
	and hprint+prstl+wdev
	beq truePortrait
	bra Landscape
truePortrait	pushlong #TrueStr
	jsr AddStrToWBuff
;
; rPaper, the paper	rectangle
;
	lda hprint+rPaper+Top
	jsr addacc

	lda hprint+rPaper+Left
	jsr addacc

	lda hprint+rPaper+Bottom
	jsr addacc

	lda hprint+rPaper+Right
	jsr addacc
;
; reduction
;
	lda hprint+prstl+reduced
	jsr addacc
;
; iHres
;
	lda hprint+prInfo+iHRes
	jsr addacc
;
; iVres
;
	lda hprint+prInfo+iVRes
	jsr addacc
	bra giveSelect

Landscape	pushlong #FalseStr
	jsr AddStrToWBuff
;
; rpaper, the paper	rectangle
;
	lda hprint+rPaper+Top
	jsr addacc

	lda hprint+rPaper+Left
	jsr addacc

	lda hprint+rPaper+Bottom
	jsr addacc

	lda hprint+rPaper+Right
	jsr addacc
;
; reduction
;
	lda hprint+prstl+reduced
	jsr addacc
;
; iVres
	lda hprint+prInfo+iVRes
	jsr addacc
;
; iHres
;
	lda hprint+prInfo+iHRes
	jsr addacc

giveSelect

;-----------------------------------------------------------------
;
; send the page size selection which is	given in 120th of an inch,
; borrowed from the	Mac
;
	pushlong #SpaceChar
	jsr AddStrToWBuff

	lda hprint+prStl+PaperType
	asl a
	tax
	lda pagesizeselection,x
	jsr addacc

	pushlong #OpenDoc
	jsr AddStrToWBuff

	rts

	ENDP

**********************************************************************

	EXPORT DownLoadFile
DownLoadFile	PROC

	dec allowstatus	; don't allow status gathering

	stz GSOSError	; reinitialize temp	variable

	_OpenGS ParamOpen
	bcs Exit

	lda OpenRef
	sta ReadRef	; put file refNum into parameter
	sta CloseRef	; blocks for read and close
again	_ReadGS ParamRead	; read file
	bcs storeTemp

	lda CarReaded	; if no char read, then done
	beq finish
	sta WriteLength	; else set length of buffer content
	jsr WriteLaser	; and sent to LaserWriter
	bcs DoPAPErrors
	bra again	; go read some more

StoreTemp	cmp #EOFError
	beq finish	; EOF is not a real	error
	sta GSOSError	; put Read error in temp variable for later

finish	_CloseGS ParamClose	; close up the file

	lda GSOSError	; put error back in A-reg
Exit	stz allowstatus
	cmp #1
	rts

DoPAPErrors
	lda iPrErr
	sta GSOSError	; preserve the error for later
	cmp #iPrAbort	; user cancel?
	beq Finish	; go close file and leave

	lda #PAPReadWriteErr; some other PAP error
	sta iPrErr
	bra Finish	; go close file and leave

;------------------------------------------------------------------
;
; Parameter blocks for open, read and close
;

ParamOpen	DC.W 2
OpenRef	DC.W 0	; ref num
	DC.L OpenFileName	; path name

ParamRead	DC.W 4
ReadRef	DC.W 0	; ref num
	DC.L WriteBuffer	; data buffer pointer
	DC.L 512	; bytes to be read
CarReaded	DC.L 0	; actual bytes read

ParamClose	DC.W 1
CloseRef	DC.W 0	; ref num

GSOSError	DS.B 2
	ENDP

;                Copy    Color

	EXPORT color
color	PROC

	pushlong #arraystr1
	jsr AddStrToWBuff
	stz cpt
loop	lda #$9E00
	sta QD_Temp2
	lda #$00E1
	sta QD_Temp2+2
	lda cpt
	asl a
	tay
	lda [QD_Temp2],y
	and #$0FFF
	pha
	and #$000F
	sta val
	pla
	lsr a
	lsr a
	lsr a
	lsr a
	pha
	and #$000F
	clc
	adc val
	sta val
	pla
	lsr a
	lsr a
	lsr a
	lsr a
	and #$000F
	clc
	adc val
	jsr addacc
	inc cpt
	lda cpt
	cmp #16
	bne loop
	pushlong #Arraystr2
	jsr AddStrToWBuff
	rts

cpt	DS.B 2
Val	DS.B 2

	ENDP




;                copy    LaserProcs
	EXPORT LaserProcs
LaserProcs	PROC
	EXPORT installProcs
installProcs
* the user better hooks after the openpage
*
* we put them in the current port

	pushlong #DefaultProcs
	_SetStdProcs
	pushlong #ProcsTable
	_SetStdProcs

	lda #<text-1
	sta ProcsTable
	lda #^text-1
	sta ProcsTable+2
	lda #<Line-1
	sta ProcsTable+4
	lda #^Line-1
	sta ProcsTable+6
	lda #<Rect-1
	sta ProcsTable+8
	lda #^Rect-1
	sta ProcsTable+10
	lda #<Rrect-1
	sta ProcsTable+12
	lda #^Rrect-1
	sta ProcsTable+14
	lda #<Oval-1
	sta ProcsTable+16
	lda #^Oval-1
	sta ProcsTable+18
	lda #<Arc-1
	sta ProcsTable+20
	lda #^Arc-1
	sta ProcsTable+22
	lda #<Poly-1
	sta ProcsTable+24
	lda #^Poly-1
	sta ProcsTable+26
	lda #<Pixel-1
	sta ProcsTable+32
	lda #^Pixel-1
	sta ProcsTable+34
	lda #<Comment-1
	sta ProcsTable+36
	lda #^Comment-1
	sta ProcsTable+38

	pushlong #ProcsTable
	_SetGrafProcs
	rts

	EXPORT ProcsTable
ProcsTable	DS.B 16*4
	EXPORT DefaultProcs
DefaultProcs	DS.B 16*4
	ENDP



;                Copy    PortOffset
	EXPORT PortOffset
PortOffset	PROC
	EXPORT StandardPort
StandardPort

	EXPORT xLocStart
xLocStart	DC.W 0	; PortSCB
	DC.L $E12000	; ImageRef
	DC.W 160	; Width
	DC.W 0,0,200,320	; BoundsRect
	EXPORT xLocEnd
xLocEnd

	DC.W 0,0,200,320	; PortRect

	DC.L 0	; ClipRef
	DC.L 0	; VisRef

	DC.B $FF	; BkPat
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF

	EXPORT StdPnState
StdPnState	DC.W 0,0	; PnLoc
	DC.W 1,1	; PnSize
	DC.W 0	; PnMode
	DC.B 0	; PnPat
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B $FF	; PnMask
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	EXPORT xEndPnState
xEndPnState	DC.W 0	; PnVis


	DC.L 0	; FontHandle
	DC.L 0	; FontID
	DC.W 0	; FontFlags
	DC.W 0	; TxSize
	DC.W 0	; TxFace
	DC.W 0	; TxMode
	DC.L 0	; SpaceExtra is a fixed pt value
	DC.L 0	; CharExtra is a fixed pt value
	DC.W 0	; FGColor
	DC.W $FFFF	; BGColor

	DC.L 0	; PicSave
	DC.L 0	; RgnSave
	DC.L 0	; PolySave
	DC.L 0	; GrafProcs

	DC.W 0	; ArcRot

	DC.L 0	; UserField

	DC.L 0	; SystemField

	EXPORT EndStandardPort
EndStandardPort

	ENDP



;                copy    checkport
	EXPORT checkport
checkport	PROC

;-----------------------------------------------------------------
;
; QDport should still be valid even after a status update, since
; restoring the saved port will restore	that pointer. The fill
; pattern should also be valid, since the drawstring call used in
; status update will not trash the pattern. DrawVerb is the	only
; value in danger and it has been saved	before entering this routine.
;
; First check if origin has changed

	ldy #8
	lda [Qdport],y
	cmp ourOrigin
	bne newOrigin
	iny
	iny
	lda [Qdport],y
	cmp ourOrigin+2
	beq sameorigin

NewOrigin	ldy #8
	lda [Qdport],y
	sec
	sbc OurOrigin
	jsr addacc
	pushlong #SpaceChar
	jsr AddStrToWBuff
	ldy #8+2
	lda [Qdport],y
	sec
	sbc OurOrigin+2
	jsr addacc
	pushlong #xlstr
	jsr AddStrToWBuff
	ldy #8
	lda [Qdport],y
	sta OurOrigin
	iny
	iny
	lda [Qdport],y
	sta OurOrigin+2

;----------------------------------------------------------------------
;
; Then check if any	clipping is to occur. Only rectangular clipping
; regions are supported at this time.
;

sameorigin	ldy #oClipRgn
	lda [QDPort],y	; get the handle to	the clip rgn
	sta ScratchPtr1
	iny
	iny
	lda [QDPort],y
	sta ScratchPtr1+2

	lda ScratchPtr1
	ora ScratchPtr1+2
	beq NoClipping

	lda [ScratchPtr1]	; dereference
	sta ScratchPtr2
	ldy #2
	lda [ScratchPtr1],y
	sta ScratchPtr2+2

	lda [ScratchPtr2]
	cmp #10	; size for a rectangular clip region
	bne NoClipping	; is 10 (2 byte size, 8 byte rect)

;-----------------------------------------------------------------------
;
; Check the clip region for two things:	is it the humongous	rect set at
; the time when port is created and has	it changed from the last time?
; CurClipRect is initialized at OpenPage time to rPage.
;

	stz SameClip	; initialize the flag
	ldy #02
LoopCheck	lda [ScratchPtr2],y
	cmp hPrint+prInfo+rPage-2,y
	beq InsideRpage	; equal or less than rpage?
	blt InsideRpage
	lda hPrint+prInfo+rPage-2,y ; use rpage	if not
InsideRpage	sta LocalRect-2,y	; keep a local copy
	cmp CurClipRect-2,y	; same as current clip rect?
	beq isSameClip
	inc SameClip	; not the same, so set flag
isSameClip	iny
	iny
	cpy #10
	blt LoopCheck

	lda SameClip
	beq NoClipping

NewClip	pushlong #ClipStrStart
	jsr AddStrToWBuff

	ldy #0	; send the rectangle
loop	phy	; hide the count on	the stack
	lda LocalRect,y
	sta CurClipRect,y	; save a copy in current clip rect
	jsr AddAcc	; this routine trashes both x and y
	ply	; get the count back
	iny	; bump it
	iny
	cpy #08
	blt loop

	pushlong #ClipStrEnd
	jsr AddStrToWBuff

NoClipping	rts

SameClip	DS.B 2
LocalRect	DS.B 8

	EXPORT CheckVerb
CheckVerb	ldx #32	; assume 320 mode to start
	lda [Qdport]	; check SCB
	and #$0080
	beq GoOn	; 320, all set
	ldx #16	; it's 640 mode
GoOn	stx limit

	lda SaveDrawVerb
	cmp #FillVerb
	bne nofill

;-----------------------------------------------------------
;
; For a Fill, we check if the fill pattern is the same as the one that is already
; in use. If so, we do nothing, otherwise we send the new pattern.
;

	ldx #0	; loop to check the pattern
LoopFillPat	phd
	tdc
	clc
	adc #$0100	; TheFillPat is on QuickDraw's 2nd D page
	tcd
	lda TheFillPat,x
	cmp ourPat,x
	bne SendFillPat
	pld
	inx
	inx
	cpx limit	; limit is set based on the SCB
	bne LoopFillPat
	rts

SendFillPat	pld

	ldx #0	; loop to send the new pattern
LoopSendFill	phd
	tdc
	clc
	adc #$0100
	tcd
	lda TheFillPat,x
	sta ourPat,x
	pld
	inx
	inx
	cpx limit
	bne LoopSendFill
	jsr sendourpat
	rts

NoFill	cmp #EraseVerb
	bne noErase

;-----------------------------------------------------------
;
; For an Erase, we check if the background pattern is the same as the one that is
; already in use. If so, we do nothing, otherwise we send the new pattern.
;

	ldx #0	; loop to check the pattern
	ldy #oBkPat
LoopBkPat	lda [QDPort],y
	cmp ourpat,x
	bne SendBkPat
	inx
	inx
	iny
	iny
	cpx limit	; limit is set based on the SCB
	bne LoopBkPat
	rts

SendBkPat	ldx #0	; loop to send the new pattern
	ldy #oBkPat
LoopSendBk	lda [QDPort],y
	sta ourPat,x
	inx
	inx
	iny
	iny
	cpx limit
	bne LoopSendBk
	jsr SendOurPat
	rts

noErase	cmp #InvertVerb	; do nothing for invert
	beq leave
	jsr wCheckPen	; do this for frame and paint

leave	rts

limit	DS.B 2

;-----------------------------------------------------------
;
;

	EXPORT wCheckPen
wCheckPen	ldy #oPnSize
	lda [QDPort],y
	cmp OurPnSize-oPnSize,y
	bne NewSize
	iny
	iny
	lda [QDPort],y
	cmp OurPnSize-oPnSize,y
	beq checkmode
NewSize	ldy #oPnSize	;height
	lda [QDPort],y
	sta OurPnSize-oPnSize,y update our port
	jsr addacc
	ldy #oPnSize+2	;width
	lda [QDPort],y
	sta OurPnSize-oPnSize,y update our port
	jsr addacc
	pushlong #PenStr
	jsr AddStrToWBuff
CheckMode	ldy #oPnmode
	lda [QDPort],y
	cmp OurPnMode-oPnmode,y
	beq checkPat
	ldy #oPnmode
	lda [QDPort],y
	sta OurPnMode-oPnmode,y update our port

checkPat	ldx #32	; assume 320 mode to start
	lda [Qdport]	; check SCB
	and #$0080
	beq GoOn1	; 320, all set
	ldx #16	; it's 640 mode
GoOn1	stx limit

	ldx #0	; loop to check the pattern
	ldy #oPnPat
LoopPnPat	lda [QDPort],y
	cmp ourpat,x
	bne SendPnPat
	inx
	inx
	iny
	iny
	cpx limit	; limit is set based on the SCB
	bne LoopPnPat
	rts

SendPnPat	ldx #0	; loop to send the new pattern
	ldy #oPnPat
LoopSendPn	lda [QDPort],y
	sta ourPat,x
	inx
	inx
	iny
	iny
	cpx limit
	bne LoopSendPn
	jsr SendOurPat
	rts

;-----------------------------------------------------------
;
; CheckForeGroundColor: used by text routine only
;

	EXPORT CheckFgColor
checkFgColor	ldx #32	; assume 320 mode to start
	lda [Qdport]	; check SCB
	and #$0080
	beq GoOn2	; 320, all set
	ldx #16	; it's 640 mode
GoOn2	stx limit

	ldx #0	; loop to check foreground color
	ldy #oFgColor
	lda [QDPort],y
LoopCkFgColor	cmp ourpat,x
	bne SendFgColor
	inx
	inx
	cpx limit	; limit is set based on the SCB
	bne LoopCkFgColor
	rts

SendFgColor	ldx #0	; loop to send the new foreground color
	ldy #oFgColor	; as a solid pattern
	lda [QDPort],y
LoopSendFgColor	sta ourPat,x
	inx
	inx
	cpx limit
	bne LoopSendFgColor
	jsr SendOurPat
	rts

;-----------------------------------------------------------
;
;

	EXPORT setblack
setblack
doblack	lda #0
	ldy #30
blkloop	sta ourPat,y
	dey
	dey
	bpl blkloop
	lda PatternType
	cmp #2
	bne alreadyBlk
	pushlong #OrigScreen
	jsr AddStrToWBuff
alreadyBlk	lda #0
	jsr addacc
	pushlong #SetGray
	jsr AddStrToWBuff
	stz PatternType
	rts

	EXPORT setWhite
setWhite
doWhitez	lda #$00FF
	ldy #30
whtloop	sta ourPat,y
	dey
	dey
	bpl whtloop
	lda PatternType
	cmp #2
	bne alreadyWht
	pushlong #OrigScreen
	jsr AddStrToWBuff
alreadyWht	lda #1
	jsr addacc
	pushlong #SetGray
	jsr AddStrToWBuff
	lda #1
	sta PatternType
	rts

sendourpat
* test Black first
	ldy #30	; 32 byte pattern for 320 mode
	lda [QDPort]
	and #$0080
	beq SOP320
	ldy #14	; only 16 bytes for	640 mode
SOP320	phy	; tug away twice, once for later use
	phy
	lda #$0000
SOPLoop1	ora OurPat,y
	dey
	dey
	bpl SOPLoop1
	and #$FFFF
	beq itsAllBlack
	ply
	lda #$FFFF
SOPLoop2	and OurPat,y
	dey
	dey
	bpl SOPLoop2
	cmp #$FFFF
	beq itsAllWhite
	lda #2
	sta PatternType

	stz solidPat	; assume solid till	proven otherwise

	pushlong #OpenHex
	jsr AddStrToWBuff
	ply	; get the index we hid earlier on stack
	ldx #0
SOPLoop3	lda ourpat,x
	cmp ourpat	; match this word to the first word of
	beq same	; the pattern
	inc solidPat	; if not same, pattern is not solid
same	phx
	phy
	jsr addHexWord
	ply
	plx
	inx
	inx
	dey
	dey
	bpl SOPLoop3
	pushlong #CloseHex	; mark the end of the hex string
	jsr AddStrToWBuff

;---------------------------------------------------------------------
;
; Check to see if the pattern is a solid color or a real honest to
; goodness pattern
;

	lda solidPat
	beq solid
	pushlong #FalseStr
	bra onward
solid	pushlong #TrueStr
onward	jsr AddStrToWBuff

	lda [QDPort]
	and #$0080	; is it 320 mode
	beq M320
	pushlong #TrueStr	; nope, it's 640
	bra DoIt
M320	pushlong #FalseStr	; yep, 320
DoIt	jsr AddStrToWBuff

	pushlong #PatStr
	jsr AddStrToWBuff
	rts

itsAllBlack	ply
	ply
	brl doBlack

itsAllWhite	ply
	brl doWhitez

solidPat	DS.B 2

	ENDP




****************************************************************
*
* Rect (arc, oval, poly, etc.)
*
* Current Rev: Dec 14, 1987
*
* Revised to use new PostScript - GSPrep
*
****************************************************************

	EXPORT Rect
Rect	PROC

	jsr testSave
	beq doRect

	lda >DefaultProcs+9
	pha
	phb
	pla
	lda >DefaultProcs+8
	pha

	rtl

Dorect	phb
	phk
	plb
	lda iPrErr
	beq Continue
exitnow	brl ExitRect
Continue

;------------------------------------------------------------------------
;
; It is necessary to check page range here, since each page's QuickDraw
; calls are processed regardless of the	range of pages to be printed. For
; efficiency sake, we try not to send any unnecessary PostScript code to
; the LaserWriter.
;
	lda iPageNum
	cmp hPrint+prJob+iFstPage
	blt ExitNow
	dec a
	cmp hPrint+prJob+iLstPage
	bge ExitNow

	ldy #opnVis
	lda [Qdport],y
	bmi exitnow

	jsr SaveStuff	; go save DrawVerb and Rect1

	jsr checkport
	jsr CheckVerb

	pushlong #return	;start with a return
	jsr AddStrToWBuff
	lda SaveY1	;then top
	jsr AddAcc
	pushlong #SpaceChar
	jsr AddStrToWBuff
	lda SaveX1	;left
	jsr AddAcc
	pushlong #SpaceChar	;space
	jsr AddStrToWBuff
	lda SaveY2	;bottom
	jsr AddAcc
	pushlong #SpaceChar
	jsr AddStrToWBuff
	lda SaveX2	;right
	jsr AddAcc

	lda SaveDrawVerb	;Verb
	jsr addacc

	pushlong #drawrect	;rc
	jsr AddStrToWBuff

ExitRect	lda #0
	clc
	plb
	rtl

	ENDP

*****************************************************************

	EXPORT Line
Line	PROC

	jsr testSave
	beq DoLine
	lda >DefaultProcs+5
	pha
	phb
	pla
	lda >DefaultProcs+4
	pha
	rtl

DoLine	phb
	phk
	plb
	lda iPrErr
	beq Continue2
exitnow2	brl ExitLine
Continue2

;------------------------------------------------------------------------
;
; It is necessary to check page range here, since each page's QuickDraw
; calls are processed regardless of the	range of pages to be printed. For
; efficiency sake, we try not to send any unnecessary PostScript code to
; the LaserWriter.
;
	lda iPageNum
	cmp hPrint+prJob+iFstPage
	blt ExitNow2
	dec a
	cmp hPrint+prJob+iLstPage
	bge ExitNow2

	ldy #opnVis
	lda [Qdport],y
	bmi exitnow2

	jsr SaveStuff	; go save DrawVerb and Rect1

	jsr checkport	; check if origin has changed
	jsr wcheckpen	; check if pen size	has changed

	lda SaveX1
	sta penpos+2	; borrowing penpos to use as a
	lda SaveY1	; temp variable
	sta penpos

	pushlong penpos
	jsr addCoordinate

	pushlong #Moveto
	jsr AddStrToWBuff

	lda SaveX2
	sta penpos+2
	lda SaveY2
	sta penpos

	pushlong penpos
	jsr addCoordinate

	pushlong #Lineto
	jsr AddStrToWBuff

ExitLine	lda #0
	clc
	plb
	rtl

	ENDP

*****************************************************************

	EXPORT oval
oval	PROC

	jsr testSave
	beq DoOval
	lda >DefaultProcs+17
	pha
	phb
	pla
	lda >DefaultProcs+16
	pha
	rtl

DoOval	phb
	phk
	plb
	lda iPrErr
	beq Continue3
ExitNow3	brl ExitOval
Continue3

;------------------------------------------------------------------------
;
; It is necessary to check page range here, since each page's QuickDraw
; calls are processed regardless of the	range of pages to be printed. For
; efficiency sake, we try not to send any unnecessary PostScript code to
; the LaserWriter.
;
	lda iPageNum
	cmp hPrint+prJob+iFstPage
	blt ExitNow3
	dec a
	cmp hPrint+prJob+iLstPage
	bge ExitNow3

	ldy #opnVis
	lda [Qdport],y
	bmi exitnow3

	jsr SaveStuff	; go save DrawVerb and Rect1

	jsr checkport
	jsr checkVerb

	pushlong #return	;start with a return
	jsr AddStrToWBuff
	lda SaveY1	;then top
	jsr AddAcc
	pushlong #SpaceChar
	jsr AddStrToWBuff
	lda SaveX1	;left
	jsr AddAcc
	pushlong #SpaceChar	;space
	jsr AddStrToWBuff
	lda SaveY2	;bottom
	jsr AddAcc
	pushlong #SpaceChar
	jsr AddStrToWBuff
	lda SaveX2	;right
	jsr AddAcc

	lda SaveDrawVerb	;Verb
	jsr addacc
	pushlong #drawoval	;ov
	jsr AddStrToWBuff

ExitOval	lda #0
	clc
	plb
	rtl

	ENDP

*****************************************************************

	EXPORT Rrect
Rrect	PROC

	jsr testSave
	beq DoRrect
	lda >DefaultProcs+13
	pha
	phb
	pla
	lda >DefaultProcs+12
	pha
	rtl

DoRrect	phb
	phk
	plb
	lda iPrErr
	beq Continue4
ExitNow4	brl ExitRrect
Continue4

;------------------------------------------------------------------------
;
; It is necessary to check page range here, since each page's QuickDraw
; calls are processed regardless of the	range of pages to be printed. For
; efficiency sake, we try not to send any unnecessary PostScript code to
; the LaserWriter.
;
	lda iPageNum
	cmp hPrint+prJob+iFstPage
	blt ExitNow4
	dec a
	cmp hPrint+prJob+iLstPage
	bge ExitNow4

	ldy #opnVis
	lda [Qdport],y
	bmi exitnow4

	jsr SaveStuff	; go save DrawVerb and Rect1
	ldx #$0200
	lda OvalWidth,x	; save these values	too
	sta SaveOvlWidth
	lda OvalHeight,x
	sta SaveOvlHeight

	jsr checkport
	jsr CheckVerb

	pushlong #return	;start with a return
	jsr AddStrToWBuff
	lda SaveY1	;then top
	jsr AddAcc
	pushlong #SpaceChar
	jsr AddStrToWBuff
	lda SaveX1	;left
	jsr AddAcc
	pushlong #SpaceChar	;space
	jsr AddStrToWBuff
	lda SaveY2	;bottom
	jsr AddAcc
	pushlong #SpaceChar
	jsr AddStrToWBuff
	lda SaveX2	;right
	jsr AddAcc
	lda SaveOvlHeight
	jsr addacc
	lda SaveOvlWidth
	jsr addacc
	lda SaveDrawVerb	;Verb
	jsr addacc
	pushlong #drawrrect	;rc
	jsr AddStrToWBuff

ExitRrect	lda #0
	clc
	plb
	rtl


SaveOvlWidth	DS.B 2
SaveOvlHeight	DS.B 2
	ENDP

*****************************************************************

	EXPORT Arc
Arc	PROC

	jsr testSave
	beq DoArc
	lda >DefaultProcs+21
	pha
	phb
	pla
	lda >DefaultProcs+20
	pha
	rtl

DoArc	phb
	phk
	plb
	lda iPrErr
	beq Continue5
Exitnow5	brl ExitArc
Continue5

;------------------------------------------------------------------------
;
; It is necessary to check page range here, since each page's QuickDraw
; calls are processed regardless of the	range of pages to be printed. For
; efficiency sake, we try not to send any unnecessary PostScript code to
; the LaserWriter.
;
	lda iPageNum
	cmp hPrint+prJob+iFstPage
	blt ExitNow5
	dec a
	cmp hPrint+prJob+iLstPage
	bge ExitNow5

	ldy #opnVis
	lda [Qdport],y
	bmi exitnow5

	jsr SaveStuff	; go save DrawVerb and Rect1
	lda StartAngle	; save these values	too
	sta SaveStartAngle
	lda ArcAngle
	sta SaveArcAngle

	jsr checkport
	jsr CheckVerb

	pushlong #return	;start with a return
	jsr AddStrToWBuff
	lda SaveY1	;then top
	jsr AddAcc
	pushlong #SpaceChar
	jsr AddStrToWBuff
	lda SaveX1	;left
	jsr AddAcc
	pushlong #SpaceChar	;space
	jsr AddStrToWBuff
	lda SaveY2	;bottom
	jsr AddAcc
	pushlong #SpaceChar
	jsr AddStrToWBuff
	lda SaveX2	;right
	jsr AddAcc
	lda SaveStartAngle
	sec
	sbc #90
	jsr addacc
	lda SaveStartAngle
	sec
	sbc #90
	clc
	adc SaveArcAngle
	jsr addacc
	lda SaveDrawVerb	;Verb
	jsr addacc
	pushlong #drawArc	;rc
	jsr AddStrToWBuff

ExitArc	lda #0
	clc
	plb
	rtl

SaveStartAngle	DS.B 2
SaveArcAngle	DS.B 2

	ENDP

*****************************************************************

	EXPORT Poly
Poly	PROC

	phb
	phk
	plb
	lda iPrErr
	beq Continue6
exitnow6	brl ExitPoly
Continue6

;------------------------------------------------------------------------
;
; It is necessary to check page range here, since each page's QuickDraw
; calls are processed regardless of the	range of pages to be printed. For
; efficiency sake, we try not to send any unnecessary PostScript code to
; the LaserWriter.
;
	lda iPageNum
	cmp hPrint+prJob+iFstPage
	blt ExitNow6
	dec a
	cmp hPrint+prJob+iLstPage
	bge ExitNow6

	ldy #opnVis
	lda [Qdport],y
	bmi exitnow6

	jsr SaveStuff	; go save DrawVerb and Rect1
	lda RgnHandleA	; save the region handle
	sta SaveRgnHandleA
	lda RgnHandleA+2
	sta SaveRgnHandleA+2

	jsr checkport
	jsr CheckVerb

	lda SaveRgnHandleA	; restore handle
	sta RgnHandleA
	lda SaveRgnHandleA+2
	sta RgnHandleA+2

	lda [RgnHandleA]
	sta RgnPtrA
	sta SaveRgnPtrA	; save a copy locally
	ldy #2
	lda [RgnHandleA],y
	sta RgnPtrA+2
	sta SaveRgnPtrA+2

	lda [RgnPtrA]
	sta PolySize
	cmp #$0012
	bge bigenough
	brl exitpoly

bigenough	ldy #$000C	;first point
	sty CurPoint
	lda [RgnPtrA],y
	pha
	dey
	dey
	lda [RgnPtrA],y
	pha
	jsr addCoordinate
	pushlong #Moveto
	jsr AddStrToWBuff

* first move to completed

	lda Curpoint
	clc
	adc #4
	sta Curpoint

	lda SaveDrawVerb	;just allow the framerect
	beq Frame1
	pushlong #StartPoly
	jsr AddStrToWBuff
Frame1

onemore

	lda SaveRgnPtrA	; restore pointer before using
	sta RgnPtrA
	lda SaveRgnPtrA+2
	sta RgnPtrA+2

	ldy CurPoint
	lda [RgnPtrA],y
	pha
	dey
	dey
	lda [RgnPtrA],y
	pha
	jsr addCoordinate

	lda SaveDrawVerb
	beq Frame2
	pushlong #PolyLine
	jsr AddStrToWBuff
	bra Frame25
Frame2
	pushlong #LineTo
	jsr AddStrToWBuff
Frame25
	lda Curpoint
	clc
	adc #4
	sta Curpoint
	cmp PolySize
	blt onemore

	lda SaveRgnPtrA+0	; restore pointer before using
	sta RgnPtrA+0
	lda SaveRgnPtrA+2
	sta RgnPtrA+2

	ldy #$000C	;first point again
	lda [RgnPtrA],y
	pha
	dey
	dey
	lda [RgnPtrA],y
	pha
	jsr addCoordinate
	lda SaveDrawVerb
	beq Frame4
	pushlong #PolyLine
	jsr AddStrToWBuff
	bra Frame45
Frame4
	pushlong #LineTo
	jsr AddStrToWBuff
Frame45


	lda SaveDrawVerb
	beq Frame3
	pushlong #EndPoly
	jsr AddStrToWBuff
Frame3

ExitPoly	lda #0
	clc
	plb
	rtl

PolySize	DS.B 2
CurPoint	DS.B 2
SaveRgnHandleA	DS.B 4
SaveRgnPtrA	DS.B 4

	ENDP

*****************************************************************
*
* SaveStuff
*
* Saves DrawVerb and Rect1 (y1,x1,y2,x2) in local variables
*
*****************************************************************

	EXPORT SaveStuff
SaveStuff	PROC

	lda DrawVerb
	sta SaveDrawVerb

	ldx #06	; moves 8 bytes of the rectangle
LoopSave	lda y1,x
	sta SaveY1,x
	dex
	dex
	bpl LoopSave

	rts

	ENDP




*************************************************************
*              			*
* Text             			*
*              			*
* Revised to use new PostScript - PrepFile     	*
* Also new format for downloading bitmap fonts     	*
*             	 		*
*************************************************************

	EXPORT Text
Text	PROC

	phb
	phk
	plb

	lda iPrErr
	beq Continue
ExitNow	brl ExitText
Continue

;------------------------------------------------------------------------
;
; It is necessary to check page range here, since each page's QuickDraw
; calls are processed regardless of the	range of pages to be printed. For
; efficiency sake, we try not to send any unnecessary PostScript code
; to the LaserWriter.
;
	lda iPageNum
	cmp hPrint+prJob+iFstPage
	blt ExitNow
	dec a
	cmp hPrint+prJob+iLstPage
	bge ExitNow

;-----------------------------------------------------------
;
; Set up quickdraw's direct page with the proper font info
;

	lda #0	; always use fontmgr info when zero
	jsl SetUpFontInfo

;----------------------------------------------------------------------
;
; Check if any PicComments are being used
;


	lda Comments
	bmi exitNow	; -1 denotes some comment in use
		; that text doesn't care about
	cmp #1	; if it's 0, go on as usual
	bne NoComments

;----------------------------------------------------------------------
;
; 1 denotes that PSText is in effect, so we need to deal with it
;
	lda DrawVerb
	bne NextCheck

	jsr SendOneChar	; Draw verb = 0: DrawChar
	bra SendNow

NextCheck	cmp #DrawTextVerb
	beq NormText

	jsr SendCStr	; Draw verb = 2: DrawCString
	bra SendNow

NormText	jsr SendText	; Draw verb = 1: normal string

SendNow	jsr AddTextToWBuff
	brl exitText

;----------------------------------------------------------------------
;
; PicComments not used, business as usual
;

NoComments	ldy #opnVis
	lda [Qdport],y
	bmi ExitNow

;----------------------------------------------------------------------
;
; If drawverb is either drawtext or drawCstring then check if the
; string is empty, if so, skip this routine to save time and grief
; We look at the QD's DrawVerb to see if normal string or CString.
; If normal, we check if textlength is 0, if Cstring, we need to loop
; till the end to find out if empty.
;
	lda DrawVerb
	beq dotext	; if drawchar, then	go on
	cmp #2	; normal strings are 1
	blt checklength

	sep #$20
	longa off

	ldy #0	; start the Cstring	loop
OnceAgain	lda [textPtr],y
	beq endCstr	; last char of Cstring is 0
	iny
	bra OnceAgain
EndCstr

	rep #$20
	longa on

	cpy #0	; Cstring length 0?
	beq ExitNow	; yep, we quit
	bne doText	; nope, we go do the text
CheckLength	lda textLength	; check text length	in QD's data
	beq ExitNow

dotext

;---------------------------------------------------------------
;
; Save all the necessary values from QD's zero page into local
; variables. These local variables will	be used throughout the
; code, with the exception of TextPtr. It needs to be restored
; each time before use because it's used for indirect indexed
; addressing off zero page.
;

	lda DrawVerb
	sta SaveDrawVerb	; this var declared	in MainData
	lda textLength
	sta SaveTextLength
	lda CharToDraw
	sta SaveCharToDraw

	lda textPtr+0
	sta SaveTextPtr+0
	lda textPtr+2
	sta SaveTextPtr+2


	jsr checkPort
	jsr CheckFgColor	; text is effected by foreground color

	pushlong #PenPos	; get current pen position
	_GetPen

               ;jsr	setblack     ; ????? Cause of StyleWare's complaint
		; about text in all black ???


	ldy #oFontID
	lda [QdPort],y	; only checking the family number portion
	cmp curFontFamNum	; of the font ID
	bne NotSame

	ldy #oTxSize
	lda [QdPort],y
	and #$00FF
	cmp curTxSize
	bne NotSame

	ldy #oTxFace
	lda [QdPort],y
	and #$00FF
	cmp curTxStyle
	bne NotSame

	brl SameFont

NotSame	ldy #oTxFace
	lda [QdPort],y
	and #$00FF
	sta curTxStyle
	jsr addacc

	ldy #oTxSize
	lda [QdPort],y
	and #$00FF
	sta curTxSize
	bne good	; force it to 8 if 0 font size
	lda #8
good
	jsr addacc
	pushlong #Textsfs
	jsr AddStrToWBuff

	ldy #oFontID	; get the family number portion of fontID
	lda [QDPort],y
	sta curFontFamNum

	pha	; result
	pha	; family number
	pushlong #ModName	; put the name in this string temporarily
	_GetFamInfo
	pla	; ignore the famStatBits for now

;-----------------------------------------------------------
;
; copy the name from the temp string to curFontName, stripping spaces along the way.
;
	ldx #1	; start with first char of string
	ldy #1

	sep #$0030
	longa off

loopStrip	lda modName,x
	cmp #' '	; see if it is a space
	beq SkipSpace	; if so, skip it
	sta curFontName,y	; if not space, store it in curFontName string
	iny	; bump destination index
SkipSpace	inx	; bump source index
	cpx modName	; whole string done?
	blt loopStrip	; not if less than length
	beq loopStrip	; and not if equal to length

	dey	; length is one less
	sty curFontName	; update source's length

	longa on
	rep #$0030

;-----------------------------------------------------------
;
; Check and handle font substitution: check curfontname for the three fonts that can
; be substituted:
;            New York -- Times
;            Geneva -- Helvetica
;            Monaco -- Courier
;

	lda #f3	; check if font substitution is requested
	and hPrint+prStl+wDev
	bne NoSubstitute	; none requested, go the normal route

;-----------------------------------------------------------
;

	lda curFontName
	and #$00FF
	tax	; use length as index
	cmp #8
	bge NoSubstitute	; font name is too long
	cmp #6
	blt NoSubstitute	; too short

	sep #$0020
	longa off

	beq loopCheckMonaco	; if font name is 6 chars long, go check for
		; Geneva or Monaco, else check if New York

loopCheckNY	lda curFontName,x
	cmp NewYorkStr,x
	bne NotSubFont
	dex
	bne loopCheckNY

	lda TimesStr	; substitute Times for New York
	and #$00FF
	tax
loopSubNY	lda TimesStr,x
	sta curFontName,x
	dex
	bpl loopSubNY

	lda #3	; Times' position in the Font Name table
	sta FNTabIndex

	bra MovingAlong

loopCheckMonaco	lda curFontName,x
	cmp MonacoStr,x
	bne NotMonaco
	dex
	bne loopCheckMonaco

	lda CourierStr	; substitute Courier for Monaco
	and #$00FF
	tax
loopSubMonaco	lda CourierStr,x
	sta curFontName,x
	dex
	bpl loopSubMonaco

	lda #1	; Courier's position in the Font Name table
	sta FNTabIndex

	bra MovingAlong

NotMonaco	ldx #6

loopCheckGeneva	lda curFontName,x
	cmp GenevaStr,x
	bne NotSubFont
	dex
	bne loopCheckGeneva

	lda HelveticaStr	; substitute Helvetica for Geneva
	and #$00FF
	tax
loopSubGeneva	lda HelveticaStr,x
	sta curFontName,x
	dex
	bpl loopSubGeneva

	lda #2	; Helvetica's position in the Font Name table
	sta FNTabIndex

MovingAlong
	longa on
	rep #$0020

	bra GotAMatch	; go do style mods

NotSubFont
	longa on
	rep #$0020

;-----------------------------------------------------------
;
; Check to see if this is a font we know about. We keep a table of LaserWriter+
; fonts, Shaston (made with Helvetica), and Sonata & Carta, graphics fonts which
; doesn't need reencoding.
;

NoSubstitute
	lda #-1
	sta FNTabIndex	; assume a font that we don't know about

	ldx #8	; assume we are working with an old LW which only
		; has 4 built-in fonts, plus Shaston, our ROM font,
		; and the graphic fonts: Sonata, Carta, Zapf Dingbats
	lda LWType	; what kind of LaserWriter are we dealing with
	beq checkEm

	ldx #14	; it's a LW+ or a LW II, with 11 built-in fonts,
		; and Shaston, our ROM font, and Sonata & Carta
checkEm	stx limit	; use to determine when to stop looking

	ldx #0 	; start at beginning of table

	sep #$0020
	longa off

	lda curFontName	; first check the length
loopCheckLeng	cmp FNLengTable,x
	bne KeepOnLooking	; not same length, not same string

	longa on
	rep #$0020
		; same length, maybe a match
	stx FNTabIndex	; this index will come in handy again later

	tay	; put curFontName's length in Y for later use
	txa
	asl a
	asl a	; 4 bytes for each address entry
	tax
	lda FNAddrTable,x	; put the pointer to the string on zero page
	sta QD_Temp1
	lda FNAddrTable+2,x
	sta QD_Temp1+2

	sep #$0020
	longa off

loopCheckStr	lda [QD_Temp1],y	; check string for a match
	cmp curFontName,y
	bne NotThisFont	; oops, false alarm
	dey
	bne loopCheckStr	; keep checking
	bra GotAMatch	; till whole string is matched

NotThisFont	lda curFontName	; set up the conditions again for
	ldx FNTabIndex	; another time through
	ldy #-1	; reinitialize this value, since we
	sty FNTabIndex	; have no match
KeepOnLooking	inx
	cpx limit	; end of table yet?
	blt loopCheckLeng

GotAMatch
	longa on
	rep #$0020

	lda FNTabIndex
	bmi NotKnownFonts	; it's not a font we special case on

	asl a
	asl a
	asl a
	asl a	; 4 styles at 4 bytes each
	sta FontStlIndex	; index to the first style of this font

;-----------------------------------------------------------
;
; Bits 0 and 1 of curTxStyle determines	one of 4 LaserWriter typefaces
; of each font to use.
; 00 -- plain
; 01 -- bold
; 10 -- italic
; 11 -- bold italic
;
	lda curTxStyle	; use the bold and italics bits to
	and #03	; calculate an index within the 4 styles
	asl a	; 4 bytes per entry
	asl a
	clc
	adc FontStlIndex	; add to first style to get the true index
	tax
	lda StyleTable,x
	sta QD_Temp1	; put in zero page for indirect addr for leng
	inc a	; bump it to point to the start of string
	sta FullFNPtr	; and store it in pointer
	lda StyleTable+2,x
	sta FullFNPtr+2
	sta QD_Temp1+2

	lda [QD_Temp1]	; get the length of the string
	and #$00FF
	sta FullFNLeng

	bra BufferSearch	; all set up, go search the buffer

;-----------------------------------------------------------
;
; Got a font we're not familiar with, attempt to make it generic by attaching
; a general style mod to the name
;

NotKnownFonts
	lda curTxStyle	; check the bold and italics bits
	and #03
	asl a	; 4 bytes per entry
	asl a
	tax	; use as index to style mod table
	lda StyleModTable,x
	sta QD_Temp1
	lda StyleModTable+2,x
	sta QD_Temp1+2

	lda [QD_Temp1]
	and #$00FF
	tay	; use leng as index to chars of style mod string
	clc
	adc curFontName	; update length of name string
	and #$00FF
	sta modName
	sta FullFNLeng	; set up full name string length
	tax	; new leng as index to name string

	sep #$0020
	longa off

	cpy #0	; if style mod string is 0, no suffix is needed
	beq LoopName

LoopMod	lda [QD_Temp1],y	; start from the end of the string and copy
	sta modName,x	; the style mod first
	dex
	dey
	bne LoopMod
		; and then the name itself
LoopName	lda curFontName,x	; x should be the length of the name itself
	sta modName,x	; at this point
	dex
	bne LoopName

	longa on
	rep #$0020

	lda #modName+1	; set up pointer
	sta FullFNPtr
	lda #^modName
	sta FullFNPtr+2

;-----------------------------------------------------------
;
; Now, match the composed name to the names in the LaserWriter's font directory
;

BufferSearch
	lda fPSFile	; non zero means writing to a file
	beq @1	; no need to search tables
	brl NoTabSearch

@1	lda FNTabIndex
	bmi DoSearch	; an unknown font, should always search buff
	cmp #Sonata_Num	; Any font whose index is less than Sonata is a
	bge @2	; built-in LaserWriter font, so no buffer search
	brl NoTabSearch	; is needed

@2	cmp #ZapfDingbats_Num ; everything else in the table are LaserWriter
	blt DoSearch	; Plus built-in fonts
	lda LWType	; if we are dealing with a LaserWriter+ or II, no
	cmp #1	; search is needed
	beq NoTabSearch

DoSearch	phd	; save QD's zero page
	lda ZeroPage	; use our own
	tcd

	jsr DoBuffSearch
	bcc GotIt

;-----------------------------------------------------------
;
; IF we get here, it means we found nothing in the buffer to match the style modified
; name. Try again using the unmodified name to find the plain font. The output is
; of better quality if we let PostScript make the style mod than if we use the bitmap.
;

	lda curTxStyle	; check if we need any style mods
	and #03
	beq MakeIt	; nope, and the plain font is not found,
		; go use the bitmap

	lda curFontName	; use the plain name
	and #$00FF
	sta FullFNLeng	; set up length
	lda #curFontName+1	; set up pointer
	sta FullFNPtr
	lda #^curFontName
	sta FullFNPtr+2

	jsr DoBuffSearch	; search again
	bcs MakeIt	; found nothing, use bitmap

	pld	; get QD's zero page back

	pushlong #UpVmStr	; we found the plain font so we use it
	jsr AddStrToWBuff

	pushlong #AppleFontPrefix
	jsr AddStrToWBuff
	pushlong #curFontName
	jsr AddStrToWBuff

	pushlong #Slash
	jsr AddStrToWBuff
	pushlong #curFontName
	jsr AddStrToWBuff

	pushlong #TrueStr
	jsr AddStrToWBuff

	pushlong #CoorFontStr
	jsr AddStrToWBuff

	brl SendFontName	; the rest is the same as if we made the
		; font from a bitmap

MakeIt	pld	; get QD's zero page back
	brl doMakeFont

;-----------------------------------------------------------
;
; IF we get here, it means we found the font in the buffer. Sort out a few special
; cases and send the appropriate PostScript.
;

GotIt	pld	; get QD's zero page back
NoTabSearch	pushlong #UpVmStr
	jsr AddStrToWBuff

	pushlong #AppleFontPrefix
	jsr AddStrToWBuff
	lda FNTabIndex
	bne NotShaston1	; 0 = Shaston

	lda curTxStyle	; check the bold and italics bits
	and #03
	asl a	; 4 bytes per entry
	asl a
	tax	; use as index to style mod table
	lda ShastonTable+2,x ; get Shaston's name
	pha
	lda ShastonTable,x
	pha
	bra ToContinue1

NotShaston1	lda FullFNPtr+2	; name of font
	pha
	lda FullFNPtr
	dec a	; so it now points at length byte
	pha
ToContinue1	jsr AddStrToWBuff

	pushlong #Slash
	jsr AddStrToWBuff
	lda FullFNPtr+2
	pha
	lda FullFNPtr
	dec a	; so it now points at length byte
	pha
	jsr AddStrToWBuff

	lda FNTabIndex	; Symbol, ZapfDingbats, Sonata and Carta are
	cmp #Symbol_Num	; graphics fonts which do not need to be
	blt Reencode	; reencoded with the Apple's own encoding
	cmp #ZapfDingbats_Num+1	; vector
	bge Reencode
	pushlong #FalseStr
	bra SendBool

Reencode	pushlong #TrueStr
SendBool	jsr AddStrToWBuff

	pushlong #CoorFontStr
	jsr AddStrToWBuff

	pushlong #AppleFontPrefix
	jsr AddStrToWBuff
	lda FNTabIndex
	bne NotShaston2	; 0 = Shaston

	lda curTxStyle	; check the bold and italics bits
	and #03
	asl a	; 4 bytes per entry
	asl a
	tax	; use as index to style mod table
	lda ShastonTable+2,x ; send Shaston's name
	pha
	lda ShastonTable,x
	pha
	bra ToContinue2

NotShaston2	lda FullFNPtr+2	; font name
	pha
	lda FullFNPtr
	dec a	; so it now points at length byte
	pha
ToContinue2	jsr AddStrToWBuff

;-----------------------------------------------------------
;
; Some more special casing for style modifications for Courier; it needs only
; outline and shadow, bold and italics is already built in.
;

	lda FNTabIndex
	cmp #Courier_Num	; is this Courier?
	bne OutlineFont	; nope, treat as normal Adobe
		; outline font

	pushlong #ClrItalics	; no italics
	jsr AddStrToWBuff

	brl MakeOutlines

OutlineFont

;-------------------------------------------------------------------
;
; CurTxStyle's value determines what font definition procedure in the prep file
; to call:
;      0 - 7  -- gf, defines a filled font (bit 3 not set, so call "gf" (get font and make current))
;      8 - 15 -- F aos, defines a outline font (bit 3 set, so call "aos" with arg=false)
;     16 - 31 -- T aos, defines a shadow font (bit 4 set, so call "aos" with arg=true)
;

	pushlong #ClrItalics	; clear the italics flag, not
	jsr AddStrToWBuff		; needed for LW fonts

	lda curTxStyle
	cmp #16		; shadow fonts are from 16 - 31
	blt NotShadow
	pushlong #DoShadowStr
	bra SendIt
NotShadow	cmp #8		; outline fonts are	from 8 - 15
	blt NotOutline
	pushlong #DoOutlineStr
	bra SendIt
NotOutline	pushlong #Textgf
SendIt	jsr AddStrToWBuff

AllSame
	pushlong #DnStr
	jsr AddStrToWBuff

SameFont
	lda penpos+2
	pha
	lda penpos+0
	pha
	jsr addCoordinate		; ps cmd to move currentpoint there
	pushlong #Moveto
	jsr AddStrToWBuff

;               pushlong #TextBNPW
;               jsr	AddStrToWBuff



	pushlong #Textbt		; call "begin text" ps routine from prep
	jsr AddStrToWBuff

	pushlong #StartString	; ps openparen -- starts string
	jsr AddStrToWBuff

;-------------------------------------------------------------------
;
; Restore CharToDraw, TextPtr and TextLength at this time
;

	lda SaveCharToDraw
	sta CharToDraw
	lda SaveTextPtr+0
	sta textPtr+0
	lda SaveTextPtr+2
	sta textPtr+2
	lda SaveTextLength
	sta textLength

;--------------------------------------------------------------------
;
; We treat the text	being sent differently depending on its	type:
; Char, C String or	Text
;

	pushword #0
	lda SaveDrawVerb
	bne CheckDrawVerb

	jsr SendOneChar		; Draw verb = 0: DrawChar
	bra Common		; routine puts adrs and length on stack

CheckDrawVerb	cmp #DrawTextVerb
	beq doNormText

	jsr SendCStr		; Draw verb = 2: DrawCString
	bra Common		; routine puts adrs and length on stack

doNormText	jsr SendText		; Draw verb = 1: normal (pascal) string
			; routine puts adrs and length on stack

Common	lda 5,s		; Dup the last 3 words
	pha 		; in the stack
	lda 5,s
	pha
	lda 5,s
	pha
	jsr addSpeToWBuff
	pushlong #EndString		; ps closeparen -- ends string
	jsr AddStrToWBuff

	_TextWidth		; get width of text block in scrn pixels
	pla		; get it and save it
	pha

	pha		; pass delta_X for QD pen posn
	pushword #0		; pass no delta_Y for QD pen posn
	_Move		; update QD pen posn to go right of text

	pla		; restore delta_X
	jsr addacc
	pushlong #Textmt		; call ps "merge text" routine with dX
	jsr AddStrToWBuff		; and with "("string")"

	pushlong #Textet		; call ps "end text" routine
	jsr AddStrToWBuff

ExitText
	lda #0
ErrorExitText
	cmp #1
	plb
	rtl		; exit Text bproc -- return back to QD

*



;------
;Subroutines to put the length and address of different formats of strings on the stack:
;

SendCStr	plx	; save return address

	sep #$20
	longa off

	ldy #0
KeepLooking	lda [textPtr],y
	beq TheEnd	; end of string is we hit 0
	iny
	bra KeepLooking

TheEnd	rep #$20
	longa on

	lda textPtr+2
	pha
	lda textPtr
	pha
	phy	; y has the string length

	phx	; restore return address

	rts

SendOneChar	plx	; save return address

	pushword #0	; direct page bank address
	tdc
	clc
	adc #CharToDraw	; get address of character
	pha
	Pushword #1	; length

	phx	; put back return address

	rts

SendText	plx	; save return address
	lda textPtr+2
	pha
	lda textPtr+0
	pha
	lda textLength
	pha

	phx	; restore return address

	rts

;-----------------------------------------------------------
;
; Subroutine to search the font directory buffer for a match of the font name.
; All inputs are local parameters and returns carry clear if name is found.
;

DoBuffSearch	ldy NumEntriesX2	; start by matching lengths of the strings
	dey
	dey	; subtract 2 for indexing
	lda FullFNLeng
loopLengCheck	cmp [LengTabPtr],y
	bne KeepSearching

	sty OffsetIndex	; this index will come in handy again later
	tax	; save length for use later

	pha
	pushlong #FullFNPtr	; destination
	pushlong #FullFNLeng
	lda RawBuffPtr+2	; target
	pha
	lda [OffTabPtr],y
	clc
	adc RawBuffPtr
	pha
	phx	; the length of target
	PushLong #0	; no replacement string
	PushWord #0
	pushlong #PadChar	; bogus pad char
	_Munger
	pla	; did it match?
	beq FoundIt

;-----------------------------------------------------------
;
; If we get here, it means we've had a false alarm, same length but wrong name,
; so go try again.
;

	lda FullFNLeng	; set up the conditions again for
	ldy OffsetIndex	; another time through
KeepSearching	dey
	dey
	bpl loopLengCheck

	sec	; no match found
	rts

FoundIt	clc
	rts

;-----------------------------------------------------------------------
;
; It's time to make a font! Actually we download the bitmap to the printer.
; First check an internal list of fam nums of fonts already downloaded, so
; we don't duplicate any efforts.
; 10/18/88 Suki Lee  Rewrote portions of this routine to make it smaller
; 	 and easier to follow. Eliminated a jsr to TestInFontList.
;

doMakeFont
	lda curFontFamNum	; get the font fam num of font in use
	ldy FontList	; get the list size
	tyx	; put it in X also
	beq AddinFontlist	; if 0, then this is our first

Search
	cmp FontList,y	; start from end of list
	beq SystemF2	; if a match is found, then use it
	dey	; else keep looking
	dey
	bne Search	; till beginning of list

AddinFontlist	 	; we get here if the font is not downloaded yet
	sta FontList+2,x	; store the fam num at the end of list
	inx
	inx
	stx FontList	; update size

	jsr MakeBMFont
	bcc SystemF2
	brl ErrorExitText

SystemF2
	pushlong #UpVmStr
	jsr AddStrToWBuff

SendFontName	pushlong #AppleFontPrefix
	jsr AddStrToWBuff
	pushlong #curFontName
	jsr AddStrToWBuff

MakeOurOwnStyles	lda curTxStyle
	and #02
	beq NotItalics

	pushlong #SetItalics	; set italics flag
	bra SendStr

NotItalics	pushlong #ClrItalics	; no italics
SendStr	jsr AddStrToWBuff

	lda curTxStyle
	cmp #8	; if outline or shadow, then skip
	bge MakeOutlines	; bold. Mac does it this way.
	and #01	; check if bold is needed
	beq MakeOutlines

	pushlong #MakeBoldStr
	jsr AddStrToWBuff
	brl AllSame

MakeOutlines
	lda curTxStyle
	cmp #16	; shadow fonts are from 16 - 31
	blt IsNotShadow
	pushlong #MakeShadowStr
	bra JustSendIt
IsNotShadow	cmp #8	; outline fonts are	from 8 - 15
	blt IsNotOutline
	pushlong #MakeOutlineStr
	bra JustSendIt
IsNotOutline	pushlong #Textgf
JustSendIt	jsr AddStrToWBuff
	brl AllSame

;-----------------------------------------------------------
;
; Local variables
;

SaveTextLength	DS.B 2	; save variables
SaveCharToDraw	DS.B 2
SaveTextPtr	DS.B 4

FontStlIndex	DS.B 2	; index for font style tables
	EXPORT FontList
FontList	DS.B 64

OffsetIndex		; these are needed at different times as temp
limit	DS.B 2	; locations, but never together
FNTabIndex	DS.B 2
FullFNPtr	DS.B 4
FullFNLeng	DS.B 2
ModName	DS.B 37	; style modified font name: GS font names are 25
		; chars max + worst case mod of 11 chars + leng byte
padChar	DS.B 2

NewYorkStr	str 'NewYork'	; fonts that may be substituted
MonacoStr	str 'Monaco'
GenevaStr	str 'Geneva'

ShastonStr	str 'Shaston'	; 0
CourierStr	str 'Courier'	; 1
HelveticaStr	str 'Helvetica'	; 2
TimesStr	str 'Times'	; 3
SymbolStr	str 'Symbol'	; 4
SonataStr	str 'Sonata'	; 5
CartaStr	str 'Carta'	; 6
ZapfDingbatsStr	str 'ZapfDingbats'	; 7
AvantGardeStr	str 'AvantGarde'	; 8
BookmanStr	str 'Bookman'	; 9
HelveticaNwStr	str 'NHelveticaNarrow' ; 10
NewCenturyStr	str 'NewCenturySchlbk' ; 11
PalatinoStr	str 'Palatino'	; 12
ZapfChanceryStr	str 'ZapfChancery'	; 13

FNLengTable	DC.B 7	; Shaston - 0
	DC.B 7	; Courier - 1
	DC.B 9	; Helvetica - 2
	DC.B 5	; Times - 3
	DC.B 6	; Symbol - 4
	DC.B 6	; Sonata - 5
	DC.B 5	; Carta - 6
	DC.B 12	; ZapfDingbats - 7
	DC.B 10	; AvantGarde - 8
	DC.B 7	; Bookman - 9
	DC.B 16	; NHelveticaNarrow - 10
	DC.B 16	; NewCenturySchlbk - 11
	DC.B 8	; Palatino - 12
	DC.B 12	; ZapfChancery - 13

FNAddrTable	DC.L ShastonStr
	DC.L CourierStr
	DC.L HelveticaStr
	DC.L TimesStr
	DC.L SymbolStr
	DC.L SonataStr
	DC.L CartaStr
	DC.L ZapfDingbatsStr
	DC.L AvantGardeStr
	DC.L BookmanStr
	DC.L HelveticaNwStr
	DC.L NewCenturyStr
	DC.L PalatinoStr
	DC.L ZapfChanceryStr

StyleTable
	DC.L HelveticaP	; Shaston is made with Helvetica
	DC.L HelveticaB
	DC.L HelveticaI
	DC.L HelveticaBI
	DC.L CourierP
	DC.L CourierB
	DC.L CourierI
	DC.L CourierBI
	DC.L HelveticaP
	DC.L HelveticaB
	DC.L HelveticaI
	DC.L HelveticaBI
	DC.L TimesP
	DC.L TimesB
	DC.L TimesI
	DC.L TimesBI
	DC.L SymbolStr
	DC.L SymbolStr
	DC.L SymbolStr
	DC.L SymbolStr
	DC.L SonataStr
	DC.L SonataStr
	DC.L SonataStr
	DC.L SonataStr
	DC.L CartaStr
	DC.L CartaStr
	DC.L CartaStr
	DC.L CartaStr
	DC.L ZapfDingbatsStr
	DC.L ZapfDingbatsStr
	DC.L ZapfDingbatsStr
	DC.L ZapfDingbatsStr
	DC.L AvantGardeP
	DC.L AvantGardeB
	DC.L AvantGardeI
	DC.L AvantGardeBI
	DC.L BookmanP
	DC.L BookmanB
	DC.L BookmanI
	DC.L BookmanBI
	DC.L HelveticaNwP
	DC.L HelveticaNwB
	DC.L HelveticaNwI
	DC.L HelveticaNwBI
	DC.L NewCenturyP
	DC.L NewCenturyB
	DC.L NewCenturyI
	DC.L NewCenturyBI
	DC.L PalatinoP
	DC.L PalatinoB
	DC.L PalatinoI
	DC.L PalatinoBI
	DC.L ZapfChancery
	DC.L ZapfChancery
	DC.L ZapfChancery
	DC.L ZapfChancery

NoSuffix	DC.B 0
Bold	str '-Bold'
Italic	str '-Italic'
BoldItalic	str '-BoldItalic'

StyleModTable	DC.L NoSuffix
	DC.L Bold
	DC.L Italic
	DC.L BoldItalic

	ENDP

*****************************************************************
*
* MakeBMFont  (new version)
*
* parameters on stack: Long handle to the font
*
*****************************************************************
	EXPORT MakeBMFont
MakeBMFont	PROC

	pushlong #UpVmStr	; neccessary saves and memory checking
	jsr AddStrToWBuff	; in the printer

;---------------------------------------------------------------------
;
; Send bounding box information
;

	lda ascent
	jsr addacc

	lda kernMax
	jsr addacc

	lda #0
	ldy #FDescent
	sec
	sbc [fontRecPtr],y
	jsr addacc

	ldy #FBBDX	; fRectWidth
	lda [fontRecPtr],y
	jsr addacc

	pushlong #bbstr
	jsr AddStrToWBuff

;----------------------------------------------------------------
;
; Create a PostScript array big enough for FirstChar to LastChar + 1
; elements for the character bitmap data.
;

	lda LastChar
	inc a
	inc a
	jsr AddAcc

	pushlong #ChardataStr
	jsr AddStrToWBuff

;------------------------------------------------------------------------
;
; While we still have QD's zero page, set up some local variables from values
; on QD's zero page
;

	lda firstChar
	sta OurFirstChar

	lda lastChar
	sta OurLastChar

	lda rowBytes	; width in bytes
	sta RowWidth

;-----------------------------------------------------------
;
; Move the necessary pointers to our own zero page via the stack.
;

	phd	; save QuickDraw's direct page

	lda fontRecPtr+2	; pointer to the Mac-style part of the record
	pha
	lda fontRecPtr
	pha

	lda strikePtr+2	; pointer to the bit image
	pha
	lda strikePtr
	pha

	lda locTPtr+2	; pointer to the location table
	pha
	lda locTPtr
	pha

	lda OWTPtr+2	; pointer to the offset/ width table
	pha
	lda OWTPtr
	pha

	lda ZeroPage
	tcd	; use our own zero page

	pla 	; put the pointer in our own zero page
	sta PtrOWTable
	pla
	sta PtrOWTable+2

	pla
	sta PtrLocTable
	pla
	sta PtrLocTable+2

	pla
	sta PtrBitImage
	sta PtrWorkingBit
	pla
	sta PtrBitImage+2
	sta PtrWorkingBit+2

	pla
	sta PtrMacRec
	pla
	sta PtrMacRec+2

;--------------------------------------------------------------------
;
; Get memory to build a local table of the character table.
;

	lda #CTableSize	; 256 characters @ 6 bytes each = 1536
	ldx #%1000000000011000 ; locked and dont cross bank
	jsr OurGetHandle
	bcc GotMemory
	brl ErrorExit

GotMemory	sta PtrCharTable
	stx PtrCharTable+2

	lda [PtrCharTable]
	tax
	ldy #2
	lda [PtrCharTable],y
	sta PtrCharTable+2
	stx PtrCharTable

;--------------------------------------------------------------------
;
; Calculate the necessary values for Character Table data in the
; form of : rowbytes Yoffset Xoffset width imagewidth imageheight
;
;    rowbytes - of the character image
;    Yoffset - # of	pixels from last row of bit image to bottom
;              of character rectangle
;    Xoffset - # of	pixels from the left edge of the bit image to
;              the left edge of the char rectangle
;              is kept in high byte of OwTable value
;    width - # of pixels from this characters's origin to the next's
;            is kept in low byte of OwTable
;    imagewidth - width of character image
;               = next char's offset - this char's offset in LocTable
;    imageheight - height of character image
;                  # of non zero rows in character image
; Note: Image height is used instead of	font height to save	space in
; the font cache of	the LaserWriter.
;

	pushlong #OpenHex
	jsr AddStrToWBuff

;---------------------------------------------------------------------
;
; Set up table index and locOffset as the pointer to the beginning of this
; character's 6 byte entry
;

	stz TableIndex
	stz locOffset

;----------------------------------------------------------------------
;
; The loop to stuff	the table
;

LoopCharTable

	lda TableIndex
	cmp OurFirstChar
	bge @1
	brl CharNotDefined	; Char IDs less than FirstChar or

@1	lda OurLastChar	; greater than LastChar+1 are not
	inc a	; defined
	cmp TableIndex
	bge @2
	brl CharNotDefined

;----------------------------------------------------------------------
;
; Calulate CharIndex from TableIndex
; TableIndex ranges	from 0 to 256, use for indexing CharTable
; CharIndex ranges from (TableIndex-FirstChar) to (TableIndex-(LastChar+1)),
; use for indexing the OWTable and locTable
;

@2
	lda TableIndex
	sec
	sbc OurFirstChar	; this index will be used for
	asl a	; locTable and OWTable, multiply
	sta CharIndex	; by two for indexing bytes

;----------------------------------------------------------------------
;
; Calculate imagewidth
;

	tay
	iny	; get next char's offset
	iny
	lda [PtrLocTable],y	; pointer to LocTable
	sec
	dey	; set index back to	this char
	dey
	sbc [PtrLocTable],y	; subtract to get the imagewidth
	sta tempWidth	; save for use later
	tax	; temporarily move the value to x
	lda #oImageWidth	; add the offset to	the offset of
	clc	; this character's chunk
	adc locOffset
	tay	; use it as an index
	txa	; get the real value back

	sep #$0020
	longa off

	sta [PtrCharTable],y ; store in the proper place

	longa on
	rep #$0020

;-------------------------------------------------------------------
;
; Calculate rowbytes using imagewidth in accumulator
;   divide imagewidth by the number of pixels in a word (16)
;   if no remainder, then everything fit in the number of words
;     reflected in the quotient
;   if there is a remainder, then increase the quotient by 1
;   finally, multiply quotient by 2 to get # of bytes
;

	pha	; space for remainder
	pha	; space for quotient
	pha	; numerator, which is imagewidth
	lda #16	; 2 bytes, keep on word boundary
	pha	; denominator
	_UDivide
	plx	; get quotient
	pla	; check remainder
	beq AsIs	; if none then quotient is rowwords
	inx	; otherwise bump by	one
AsIs
	txa	; move rowWords
	asl a	; translate into # of bytes

	ldy locOffset	; rowBytes is offset 0

	sep #$0020
	longa off

	sta [PtrCharTable],y

	longa on
	rep #$0020

;------------------------------------------------------------------------
;
; Figure out YOffset
; First we need to figure out the top and bottom of the smallest
; rectangle that will enclose all of the character's image. In other
; words, the # of all zero rows at top and bottom of the image. Yoffset
; is the same as the value for bottom.
;

	stz cTop
	stz cBottom

	cmp #0	; was rowbyte 0?
	bne MovingAlong	; no, keep going
	brl BotmOfImage	; otherwise, skip the rest of this section
MovingAlong
	ldy CharIndex
	lda [PtrLocTable],y
	pha	; space for remainder
	pha	; space for quotient
	pha
	lda #16
	pha
	_UDivide
	pla	; get quotient
	asl a
	sta charStart	; offset from start of strike, save for now
	clc
	adc PtrBitImage
	sta PtrWorkingBit
	lda PtrBitImage+2
	adc #0
	sta PtrWorkingBit+2

;-----------------------------------------------------------
;
; The remainder from the division is the bit offset from the nearest word
; boundary. Use this value to index the mask table to get rid of bits on
; left that don't belong
;

	pla	; now the remainder
	sta remain
	asl a	; double to be used as word index
	tax	; into left mask table
	lda LW_LeftMask,x
	sta mask

	stz imageOffset

;-----------------------------------------------------------
;
; Find out if the right side needs masking also. Determine how many of the
; character's bits are in this word and how many (if any) are in the next
; word. There may also be bits that don't belong on the right if the
; character width is small.
;

	lda #16	; 16 (bits in a word) - remainder
	sec	; will tell how many bits is used
	sbc remain	; up in this word
	sta leftOver
	lda tempWidth
	sec
	sbc leftOver	; see how much is left in next word(s)
	sta leftOver	; save for now
	bpl loopTop	; the bits either fits perfectly, or
		; overflows into the next word(s) so
		; no right mask is needed

	clc	; some unwanted bits on right side
	adc #16	; get an index for a right mask
	asl a
	tax	; to get rid of it
	lda LW_RightMask,x
	and mask
	sta mask

LoopTop		; mask off the unwanted stuff
	lda [PtrWorkingBit]
	xba
	and mask
	beq @4
	brl TopOfImage

@4	stz leftOver2

;-----------------------------------------------------------
;
; Now for the next word: if no leftover, then life is simpler. Otherwise,
; need to find out if everything that's left fits into the next word, If
; it doesn't then life is way more complicated.
;
; All the bits of the character need to be left justified before sending.
; In the simple case where all the bits are in one word, we just shift
; left. But if the bits span two words, then we need to shift left for
; second word and rotate left for first word. This procdure needs to be
; done twice if the bits span three words.
;

	lda leftOver	; are we done yet?
	bpl @1	; if > 0, then do some more work
@2	brl ThisRowDone	; if <= 0, then done
@1	beq @2

	ldy #2	; if we're here, we should be
	sty ImageOffset	; on word 2

	pha	; remainder
	pha	; quotient
	pha	; dividend already in A
	lda #16
	pha
	_UDivide
	pla	; get quotient
	bne @3

	pla
	lda leftOver	; less than 16
	asl a
	tax	; save this for next word as index
	lda LW_RightMask,x	; Note: if leftOver is 16, it'll grab
	sta mask1	; the first entry of LW_LeftMask (FFFF)
	lda #1
	sta wholeWords	; this is to fool the loop count check
	bra TOneMoreWord

@3	sta wholeWords	; save for later use
	pla	; get remainder
	sta leftOver2
	lda #$FFFF
	sta mask1	; use the whole word

TOneMoreWord	ldy ImageOffset
	lda [PtrWorkingBit],y
	xba
	and mask1
	bne TopOfImage

	lda imageOffset
	inc a
	inc a
	sta imageOffset

	lda wholeWords
	dec a
	sta wholeWords
	bne TOneMoreWord

	lda leftOver2	; nothing in third word
	beq ThisRowDone

	asl a
	tax	; use leftover value for getting
	lda LW_RightMask,x	; the right mask
	sta mask2

	ldy imageOffset	; get the next next word
	lda [PtrWorkingBit],y
	xba
	and mask2
	bne TopOfImage

ThisRowDone	inc cTop	; otherwise increment count
	lda PtrWorkingBit	; adjust pointer for next row
	clc	; add the width of the font strike
	adc RowWidth	; to get to the next row
	sta PtrWorkingBit
	lda PtrWorkingBit+2
	adc #0
	sta PtrWorkingBit+2
	brl LoopTop

TopOfImage
	lda TableIndex	; we've finally hit the top of the bits
	asl a
	tax	; ????
	lda cTop

;	sep #$0020
;	longa off

	sta TopTable,x	; store only once outside the loop.

;	longa on
;	rep #$0020

;----------------------------------------------------------------------
;
; The last row of the character image is at offset of:
;   fRectHeight-1 *	rowWidth
; from the start of	the image
; the next row up from that is at offset-rowWidth
;
	pha
	pha	; result of multiply
	ldy #FBBDY	; fRectHeight
	lda [PtrMacRec],y
	dec a
	pha
	lda rowWidth
	pha
	_Multiply
	pla	; use as index to last row
	clc
	adc charStart	; add to beginning of the char
	adc PtrBitImage	; within the font strike
	sta PtrWorkingBit
	pla	; get the high word
	adc PtrBitImage+2	; and add in the bank address of the strike
	sta PtrWorkingBit+2

	stz imageOffset

LoopBottom
	lda [PtrWorkingBit]
	xba
	and mask
	beq @4
	brl BotmOfImage

@4	stz leftOver2

;-----------------------------------------------------------
;
; Now for the next word: if no leftover, then life is simpler. Otherwise,
; need to find out if everything that's left fits into the next word, If
; it doesn't then life is way more complicated.
;
; All the bits of the character need to be left justified before sending.
; In the simple case where all the bits are in one word, we just shift
; left. But if the bits span two words, then we need to shift left for
; second word and rotate left for first word. This procdure needs to be
; done twice if the bits span three words.
;

	lda leftOver	; are we done yet?
	bpl @1	; if > 0, then do some more work
@2	brl Done	; if <= 0, then done
@1	beq @2

	ldy #2	; if we're here, we should be
	sty ImageOffset	; on word 2

	pha	; remainder
	pha	; quotient
	pha	; dividend already in A
	lda #16
	pha
	_UDivide
	pla	; get quotient
	bne @3

	pla
	lda leftOver	; less than 16
	asl a
	tax	; save this for next word as index
	lda LW_RightMask,x	; Note: if leftOver is 16, it'll grab
	sta mask1	; the first entry of LW_LeftMask (FFFF)
	lda #1
	sta wholeWords	; this is to fool the loop count check
	bra BOneMoreWord

@3	sta wholeWords	; save for later use
	pla	; get remainder
	sta leftOver2
	lda #$FFFF
	sta mask1	; use the whole word

BOneMoreWord	ldy ImageOffset
	lda [PtrWorkingBit],y
	xba
	and mask1
	bne BotmOfImage

	lda imageOffset
	inc a
	inc a
	sta imageOffset

	lda wholeWords
	dec a
	sta wholeWords
	bne BOneMoreWord

	lda leftOver2	; nothing in third word
	beq Done

	asl a
	tax	; use leftover value for getting
	lda LW_RightMask,x	; the right mask
	sta mask2

	ldy imageOffset	; get the next next word
	lda [PtrWorkingBit],y
	xba
	and mask2
	bne BotmOfImage

Done	inc cBottom	; otherwise increment count
	lda PtrWorkingBit	; adjust index for next row upwards
	sec	; subtract the width of the font strike
	sbc RowWidth	; to get to the next row up
	sta PtrWorkingBit
	lda PtrWorkingBit+2
	sbc #0
	sta PtrWorkingBit+2
	brl LoopBottom

BotmOfImage
	lda #oYoffset
	clc
	adc locOffset
	tay
	lda cBottom

	sep #$0020
	longa off

	sta [PtrCharTable],y

	longa on
	rep #$0020


;----------------------------------------------------------------------
;
; Get Xoffset and width from the owTable
;

	ldy CharIndex
	lda [PtrOWTable],y
	bmi CharNotDefined	; value of -1 indicates character
		; is not defined
	xba	; swap so Xoffset go first

	tax	; temporarily move the value to x
	lda #oXoffset	; add the offset to	the offset of
	clc	; this character's chunk
	adc locOffset
	tay	; use it as an index
	txa	; get the real value back

* Special Note: not	necessary to change	modes since we're storing a whole
* word this time.

	sta [PtrCharTable],y ; store in the proper place

;---------------------------------------------------------------------
;
; Figure out imageWidth and imageHeight
; imageWidth had been calculated earlier
; imageHeight = fRectHeight - Top - Bottom
;

	ldy #FBBDY	; fRectHeight
	lda [PtrMacRec],y
	sec
	sbc cTop
	sbc cBottom
	bmi CharNotDefined	; if imageheight is negative, something
		; is wrong with the char image, consider
		; it undefined, rather than sending garbage

	tax	; temporarily move the value to x
	lda #oImageHeight	; add the offset to	the offset of
	clc	; this character's chunk
	adc locOffset
	tay	; use it as an index
	txa	; get the real value back

	sep #$0020
	longa off

	sta [PtrCharTable],y ; store in the proper place

	longa on
	rep #$0020


;-----------------------------------------------------------
;
; Increment the necessary indexes to get ready for the next	character
;

NextChar	lda TableIndex
	inc a
	sta TableIndex
	cmp #$0100	; 256 chars done?
	bge SendCharTable	; all done

	lda locOffset
	clc
	adc #6
	sta locOffset

	brl LoopCharTable

;---------------------------------------------------------------------
;
; Character is not defined, we can send	$FF as the rowbyte value and
; 0s for the rest since the BuildChar procedure ignores these values
; if rowbytes = $FF
;

CharNotDefined

	ldy locOffset	; set rowbytes to FF to denote an
	lda #$00FF	; undefined character
	sta [PtrCharTable],y
	iny
	iny
	lda #$0000	; 0's for the next 4 bytes
	sta [PtrCharTable],y
	iny
	iny
	sta [PtrCharTable],y

	brl NextChar

;----------------------------------------------------------------------
;
; Now that we've stuffed the table, it's time to send it
;

SendCharTable
	ldy #0
	ldx #0
LoopCTable
	lda [PtrCharTable],y
	phy
	phx
	jsr AddHexWord
	lda iPrErr
	beq @3
	pla	; get rid of stuff on stack
	pla
	brl ErrorExit1
@3	plx
	inx
	cpx #3	; done 3 words yet
	bne @1	; nope

	pushlong #Return	; add a carriage return
	jsr AddStrToWBuff

	ldx #0	; start count all over again

@1	ply
	iny
	iny
	cpy #CTableSize	; to the end yet?
	blt LoopCTable

	pushlong #closeHex
	jsr AddStrToWBuff
	pushlong #CharTableStr
	jsr AddStrToWBuff


*****************************************************************
* to get bit image of a character:


;-----------------------------------------------------------
;
; TableIndex was being incremented during the stuffing of the CharTable
; it should be equal to 256 at this time.
;

	dec TableIndex	; start from the back at 255
	lda #255*6
	sta locOffset	; reset the local offset variable

	lda PtrBitImage+2
	sta PtrWorkingBit+2	; reset the bit image pointer bank address

;----------------------------------------------------------------
;
; The big loop: send the bits for each character's image
;

LoopChars

	ldy locOffset
	lda [PtrCharTable],y ; get rowbyte from CharTable
	and #$00FF	; in low byte
	bne @1	; rowbyte of 0 means no bits
	brl GoToNextChar
@1
	cmp #$00FF	; rowbyte of $FF indicates missing char
	bne @2
	brl GoToNextChar	; no bits to be sent

@2
	lda TableIndex
	cmp OurFirstChar
	bge @3
	brl CharNotDefined	; Char IDs less than FirstChar or

@3	lda OurLastChar	; greater than LastChar+1 are not
	inc a	; defined
	cmp TableIndex
	bge @4
	brl CharNotDefined

@4
	lda TableIndex
	tay	; save it in Y for now
	sec	; figure out the index to be used
	sbc OurFirstChar	; for locTable
	asl a
	sta CharIndex

	tya	; TableIndex is the	char ID
	jsr AddAcc	; send the character ID

	pushlong #OpenHex	; "<" to begin hex data
	jsr AddStrToWBuff

* Top and Bottom is	reused here as a row counter and ImageHeight respectively

	stz cTop	; initialize a counter of rows

	lda #oImageWidth
	clc
	adc locOffset
	tay
	lda [PtrCharTable],y ; get the imageWidth from the CharTable
	tax	; save a copy
	and #$00FF
	sta tempWidth	; low byte is the width
	txa
	xba	; swap hi - lo
	and #$00FF
	sta cBottom	; high byte is height

;-----------------------------------------------------------------
;
; Loop for sending the bits for the character image
;
;-----------------------------------------------------------
;
; Need to play with	the bits here since	most of the characters will not start
; and/or end on a word boundary. Two mask tables, one for masking the right
; and one for the left, is used.
;

;-----------------------------------------------------------
;
; Get the starting location of the bit image in pixels, dividing this by 16
; will give us the word offset from beginning of the strike. But the actual
; non zero row of the image begins at locTable(char) + (top*rowWidth) where
; top = # of rows of zero at the top of image.
;

	ldy CharIndex
	lda [PtrLocTable],y
	pha	; space for remainder
	pha	; space for quotient
	pha
	lda #16
	pha
	_UDivide
	pla	; get quotient
	asl a	; gives us byte offset from start
	sta charStart	; of strike, save for now

;-----------------------------------------------------------
;
; The remainder from the division is the bit offset from the nearest word
; boundary. Use this value to index the mask table to get rid of bits on
; left that don't belong
;

	pla	; now the remainder
	sta remain
	asl a	; double to be used as word index
	tax	; into left mask table
	lda LW_LeftMask,x
	sta mask

;-----------------------------------------------------------
;
; Further adjustment needed to get to the nonzero bits of the character
;

	pha
	pha	; result space
	lda TableIndex
	asl a	; ????
	tax
	lda TopTable,x	; get top

;	and #$00FF	; one byte only

	pha
	lda rowWidth
	pha
	_Multiply
	pla
	clc
	adc charStart
	adc PtrBitImage
	sta PtrWorkingBit
	pla
	adc PtrBitImage+2	; from beginning of strike
	sta PtrWorkingBit+2	; the adjusted start

	stz ImageOffset

;-----------------------------------------------------------
;
; Find out if the right side needs masking also. Determine how many of the
; character's bits are in this word and how many (if any) are in the next
; word. There may also be bits that don't belong on the right if the
; character width is small.
;

	lda #16	; 16 (bits in a word) - remainder
	sec	; will tell how many bits is used
	sbc remain	; up in this word
	sta leftOver
	lda tempWidth
	sec
	sbc leftOver	; see how much is left in next word(s)
	sta leftOver	; save for now
	bpl LoopCharBits	; the bits either fits perfectly, or
		; overflows into the next word(s) so
		; no right mask is needed

	clc	; some unwanted bits on right side
	adc #16	; get an index for a right mask
	asl a
	tax	; to get rid of it
	lda LW_RightMask,x
	and mask
	sta mask

LoopCharBits
	lda [PtrWorkingBit]
	xba
	and mask	; mask off the unwanted stuff
	sta scratch

	stz leftOver2

;-----------------------------------------------------------
;
; Now for the next word: if no leftover, then life is simpler. Otherwise,
; need to find out if everything that's left fits into the next word, If
; it doesn't then life is way more complicated.
;
; All the bits of the character need to be left justified before sending.
; In the simple case where all the bits are in one word, we just shift
; left. But if the bits span two words, then we need to shift left for
; second word and rotate left for first word. This procdure needs to be
; done twice if the bits span three words.
;

	lda leftOver
	bpl @1
@2	brl WeBeDone
@1	beq @2

	ldy #2	; if we're here, we should be
	sty ImageOffset	; on word 2

	pha	; remainder
	pha	; quotient
	pha	; dividend already in A
	lda #16
	pha
	_UDivide
	pla	; get quotient
	bne @3

	pla	; ignore the remainder in this case
	lda leftOver	; less than 16
	asl a
	tax	; save this for next word as index
	lda LW_RightMask,x	; Note: if leftOver is 16, it'll grab
	sta mask1	; the first entry of LW_LeftMask (FFFF)
	lda #1
	sta wholeWords	; this is to fool the loop count check
	bra OneMoreWord

@3	sta wholeWords	; save for later use
	pla	; get remainder
	sta leftOver2
	lda #$FFFF
	sta mask1	; use the whole word

OneMoreWord	ldy ImageOffset
	lda [PtrWorkingBit],y
	xba
	and mask1

	ldx remain
	beq NoShift

loop1	asl a
	rol scratch
	dex
	bne loop1

NoShift	sta scratch1

	lda scratch
	xba
	jsr AddHexWord
	lda iPrErr
	beq @1
	brl ErrorExit1

@1	stz scratch	; start it off clean

	lda #16	; figure out how many bits need
	sec	; to be put into scratch for
	sbc remain	; more merging
	tax
	lda scratch1

loopx	asl a
	rol scratch
	dex
	bne loopx

	lda imageOffset
	inc a
	inc a
	sta imageOffset

	lda wholeWords
	dec a
	sta wholeWords
	bne oneMoreWord

	lda leftOver2	; nothing in third word
	beq ThatsAll

	asl a
	tax	; use leftover value for getting
	lda LW_RightMask,x	; the right mask
	sta mask2

	ldy ImageOffset	; get the next next word
	lda [PtrWorkingBit],y
	xba
	and mask2

	ldx remain	; merge whatever is left
	beq ShiftNotNeeded
loop4	asl a
	rol scratch
	dex
	bne loop4
ShiftNotNeeded	sta scratch1

	lda scratch
	xba
	jsr AddHexWord
	lda iPrErr
	beq @1
	brl ErrorExit1

@1	lda leftOver2
	sec
	sbc remain
	bpl @2
	bra NextRow
@2	beq NextRow
	lda scratch1
	bra SendIt

ThatsAll	lda scratch1	; something good left?
	bne SendIt	; yeah, send it off
	ldx tempWidth	; only 0's left
	cpx #17	; check if wide word
	blt NextRow	; if not, skip it

	bra SendIt	; already have 0's shifted in

WeBeDone	lda scratch
	ldx remain
	beq SendIt	; bits start on word boundary, no
		; shifting needed
loop2	asl a	; shift bits to left side of word
	dex
	bne loop2

SendIt	xba
	jsr AddHexWord	; send it now
	lda iPrErr
	beq NextRow
	brl ErrorExit1
NextRow

	pushlong #return	; this will make the hex a bit more
	jsr AddStrToWBuff	; readable

	lda cTop	; count started at 0
	inc a
	cmp cBottom	; reach the last row yet
	beq CharBitsDone
	sta cTop

	stz imageOffset

	lda PtrWorkingBit
	clc
	adc rowWidth
	sta PtrWorkingBit
	lda PtrWorkingBit+2
	adc #0
	sta PtrWorkingBit+2	; bump bank address if we cross banks
	brl LoopCharBits

CharBitsDone
	pushlong #CloseHex	; ">" to end hex data
	jsr AddStrToWBuff
	pushlong #cdfStr
	jsr AddStrToWBuff


GoToNextChar
	lda TableIndex
	dec a	; work backwards
	bmi CharDone	; All Done!
	sta TableIndex	; only store back if not through yet

	lda locOffset	; move the local offset back 1 char
	sec
	sbc #6
	sta locOffset

	brl LoopChars

CharDone

;---------------------------------------------------------------------
;
; Now associate this font with the name |______xxxx where xxxx is
; the font family name.
;


	pushlong #AppleFontPrefix
	jsr AddStrToWBuff
	pushlong #curFontName
	jsr AddStrToWBuff
	pushlong #bfStr
	jsr AddStrToWBuff

	pushlong #DnStr
	jsr AddStrToWBuff

;---------------------------------------------------------------------
;
; All done, time to	go back but we clean up first
;

ErrorExit1	pha
	pha	; result space
	pei PtrCharTable+2
	pei PtrCharTable	; find back the handle we allocated
	_FindHandle	; for the CharTable
	_DisposeHandle	; now get rid of it

	lda iPrErr

ErrorExit	pld	; put QuickDraw's direct page back

	cmp #1
	rts

;-----------------------------------------------------------
;
; Table of masks for character bits
;

LW_RightMask	DC.W $0000	; 0
	DC.W $8000	; 1
	DC.W $C000	; 2
	DC.W $E000	; 3
	DC.W $F000	; 4
	DC.W $F800	; 5
	DC.W $FC00	; 6
	DC.W $FE00	; 7
	DC.W $FF00	; 8
	DC.W $FF80	; 9
	DC.W $FFC0	; 10
	DC.W $FFE0	; 11
	DC.W $FFF0	; 12
	DC.W $FFF8	; 13
	DC.W $FFFC	; 14
	DC.W $FFFE	; 15

LW_LeftMask	DC.W $FFFF	; 0
	DC.W $7FFF	; 1
	DC.W $3FFF	; 2
	DC.W $1FFF	; 3
	DC.W $0FFF	; 4
	DC.W $07FF	; 5
	DC.W $03FF	; 6
	DC.W $01FF	; 7
	DC.W $00FF	; 8
	DC.W $007F	; 9
	DC.W $003F	; 10
	DC.W $001F	; 11
	DC.W $000F	; 12
	DC.W $0007	; 13
	DC.W $0003	; 14
	DC.W $0001	; 15

;---------------------------------------------------------------------
;
; Local variables, many used as local copies of fields from	the font
; record to save indexing.
;

LocOffset	DS.B 2	; points at the beginning of the char's 6 bytes
		; entry in the CharTable
TableIndex	DS.B 2	; index to the local character table
CharIndex	DS.B 2	; Char's ASCII code used as index
OurFirstChar	DS.B 2	; local copy of firstChar
OurLastChar	DS.B 2	; local copy of lastChar
rowWidth	DS.B 2	; width of font strike in bytes
cTop	DS.B 2	; # of nonzero rows	on top of image
cBottom	DS.B 2	; # of nonzero rows	on bottom of image
charStart	DS.B 2	; starting location of char's image
charTop	DS.B 2	; loc of first byte of image for each row
charBottom	DS.B 2	; starting loc of last row of image
tempWidth	DS.B 2	; temp variable for	imageWidth
TopTable	DS.B 512	; table of top values
remain	DS.B 2	; bit offset within a word
scratch	DS.B 2	; temp buffer
scratch1	DS.B 2	; ditto
mask	DS.B 2	; masks for getting rid of unwanted bits
mask1	DS.B 2
mask2	DS.B 2
leftOver	DS.B 2	; overflow into next word
leftOver2	DS.B 2	; overflow into next next word
imageOffset	DS.B 2	; offset of bytes within the image
wholeWords	DS.B 2	; number of whole words that the image spans

	ENDP


;                copy    Pixel
****************************************************************
*              			   *
* Pixel           			   *
*              			   *
*              			   *
* Revised to use new PostScript - GSPrep      	   *
*              			   *
****************************************************************

	EXPORT pixel
pixel	PROC

	jsr testSave
	beq DoPixel
	lda >DefaultProcs+$21
	pha
	phb
	pla
	lda >DefaultProcs+$20
	pha
	rtl

DoPixel	phb
	phk
	plb

* we need to send xscale,yscale (72* final size)
* then Xloc Yloc are the destpoint
* rowbytes must be even
* xwidth and ywidth	are the actual size	in points
*
	lda iPrErr
	beq Continue
exitnow	brl ExitPixel
Continue

;------------------------------------------------------------------------
;
; It is necessary to check page range here, since each page's QuickDraw
; calls are processed regardless of the	range of pages to be printed. For
; efficiency sake, we wouldn't try not to send any unnecessary PostScript
; code to LaserWriter
;
	lda iPageNum
	cmp hPrint+prJob+iFstPage
	blt ExitNow
	dec a
	cmp hPrint+prJob+iLstPage
	bge ExitNow

	ldy #opnVis
	lda [Qdport],y
	bmi exitnow

;-----------------------------------------------------------------
;
; Save stuff that we need from QD's zero page in local variables.
; QD's zero page gets changed each time we reset the current port
; during status update. We will restore	the pointers each time they
; are used, and will use the local copy	for other variables.
;

	lda QDPort	; port pointer
	sta SaveQDPort
	lda Qdport+2
	sta SaveQDPort+2

	ldx #06	; dest rect
LoopSaveDest	lda DestRect,x
	sta SaveDestRect,x
	dex
	dex
	bpl LoopSaveDest

	ldx #22	; SrcSCB, SrcPixelMapRef, SrcWidth,
LoopSave	lda SrcSCB,x	; SrcBounds and SrcRect are all
	sta SaveSCB,x	; contiguous on zero page
	dex
	dex
	bpl LoopSave

;-----------------------------------------------------------------------
;
; We will need to define a string to be	used to read hex data from the
; pixel map, its size is:  (sample/line) * (bits/sample) / 8 (bits/byte)
; What we need to know is the ideal # of characters we need to put all
; the bits on one line into the string. (1 char = 1 byte)
;    for 640 mode: bits/sample is 2 -->	denominator = 4
;    for 320 mode: bits/sample is 4 -->	denominator = 2
; Problems will arise if the pixel map has a sample/line value that is
; not divisible by the denominator, so we safegaurd against	this case
; by increasing the	string size:
;     640 mode: add	3, and with $FFFC before dividing
;     320 mode: add	1, and with $FFFE before dividing
;

	lda SaveRect+6	; find out the width of the pixel
	sec	; map (samples/line)
	sbc SaveRect+2
	sta xwidth
	tax	; temporary stashing

	lda SaveSCB	; check mode
	and #$0080
	beq IsMode320

	txa	; get it back
	clc
	adc #0003
	and #$FFFC
	lsr a	; divide by 4, by two here
	bra GoOn

IsMode320	txa
	inc a
	and #$FFFE
GoOn	lsr a	; divide by 2
	sta newWidth	; use to define the	string size

	lda SaveRect+4
	sec
	sbc SaveRect
	sta ywidth	; height of pixel map

	jsr checkPort

	lda PixelInstalled
	bne NoInstall

	dec PixelInstalled

;               pushlong #BuStr
;               jsr	AddStrToWBuff

	jsr color

NoInstall

	pushlong #saveStr
	jsr AddStrToWBuff

	pushlong #OrigScreen
	jsr AddStrToWBuff

;-----------------------------------------------------------------------
;
; Define the PostScript string for reading hex data, this string is used
; by the procedure called by the image operator
;

	pushlong #PicStr
	jsr AddStrToWBuff

	lda newWidth
	jsr AddAcc

	pushlong #DefPicStr
	jsr AddStrToWBuff

;               pushlong #BNstr
;               jsr	AddStrToWBuff

;	jsr setBlack

	pushlong #Levelstr
	jsr AddStrToWBuff

	lda SaveDestRect+2
	pha
	lda SaveDestRect
	pha
	jsr translate

	lda SaveDestRect+6	; find out the width of the rectangle
	sec	; to scale image to
	sbc SaveDestRect+2
	pha
	lda SaveDestRect+4	; find out the height of the rectangle
	sec	; to scale image to
	sbc SaveDestRect
	pha
	jsr scale

	lda xwidth
	jsr addacc
	pushlong #SpaceChar
	jsr AddStrToWBuff

	lda ywidth
	jsr addacc
	pushlong #SpaceChar
	jsr AddStrToWBuff

	lda SaveSCB	; check mode for sending value
	and #$0080	; for bits/sample
	beq mod320

	lda #2	; 2 bits/sample for	640 mode
	bra suite

mod320	lda #4	; 4 bits/sample for	320 mode
suite	jsr addacc

	pushlong #openbracket
	jsr AddStrToWBuff

	lda xwidth
	jsr addacc
	pushlong #SpaceChar
	jsr AddStrToWBuff
	lda #0
	jsr addacc
	pushlong #SpaceChar
	jsr AddStrToWBuff
	lda #0
	jsr addacc
	pushlong #SpaceChar
	jsr AddStrToWBuff

	lda ywidth
	jsr addacc
	pushlong #SpaceChar
	jsr AddStrToWBuff
	lda #0
	jsr addacc
	pushlong #SpaceChar
	jsr AddStrToWBuff
	lda #0
	jsr addacc

	pushlong #closebracket
	jsr AddStrToWBuff

	pushlong #procimage
	jsr AddStrToWBuff

;----------------------------------------------------
;
; Now we adjust SrcPixelMapRef to point	to the first
; byte in the pixel	map.
;
	jsr RestorePtr	; first, restore the original
;       ; SrcPixelMapRef

	pea 0	; result of multiply
	pea 0

	lda SaveRect
	sec
	sbc SaveBounds
	beq StartWith1stLine

	pha
	PushWord SaveWidth
	_Multiply

StartWith1stLine	lda SaveRect+2
	sec
	sbc SaveBounds+2
	lsr a
	bit SaveSCB-1
	bpl Not640
	lsr a
Not640	clc
	adc 1,s
	sta 1,s
	bcc NoCarry
	lda 3,s
	inc a
	sta 3,s
NoCarry	pla
	clc
	adc SrcPixelMapRef
	sta LocalPixelMapRef
	pla
	adc SrcPixelMapRef+2
	sta LocalPixelMapRef+2

* ok now we add the	bits...

	lda #0

moreline	pha
	tay

	lda LocalPixelMapRef
	sta SrcPixelMapRef
	lda LocalPixelMapRef+2
	sta SrcPixelMapRef+2

	lda [SrcPixelMapRef],y
	jsr AddHexByte
	pla
	inc a
	cmp newWidth
	blt moreline

* endLine

	pushlong #return
	jsr AddStrToWBuff

	lda LocalPixelmapRef
	clc
	adc SaveWidth
	sta LocalPixelmapRef
	lda LocalPixelMapRef+2
	adc #0
	sta LocalPixelMapRef+2
	lda #0
	dec yWidth
	bne moreline

	pushlong #restoreStr
	jsr AddStrToWBuff

;-------------------------------------------------------------------
;
; Restore original stuff back onto QD zero page
;

	lda SaveQDPort	; port pointer
	sta QDPort
	lda SaveQDport+2
	sta QDPort+2

	ldx #06	; dest rect
LoopResDest	lda SaveDestRect,x
	sta DestRect,x
	dex
	dex
	bpl LoopResDest

	ldx #22	; SrcSCB, SrcPixelMapRef, SrcWidth,
LoopRestore	lda SaveSCB,x	; SrcBounds and SrcRect are all
	sta SrcSCB,x	; contiguous on zero page
	dex
	dex
	bpl LoopRestore

Exitpixel	lda #0
	clc
	plb
	rtl

newWidth	DS.B 2
xwidth	DS.B 2
ywidth	DS.B 2

;Local storage for original zero page values

SaveQDport	DS.B 4	; QDPort
SaveDestRect	DS.B 8	; DestRect
SaveSCB	DS.B 2	; SrcSCB
	EXPORT SavePtr
SavePtr	DS.B 4	; SrcPixelMapRef
SaveWidth	DS.B 2	; SrcWidth
SaveBounds	DS.B 8	; SrcBounds
SaveRect	DS.B 8	; SrcRect
LocalPixelMapRef	DS.B 4	; recalculated SrcPixleMapRef

	ENDP

*****************************************************************
*
* RestorePtr
*
* Restores SrcPixelMapRef. Called before SrcPixelMapRef is used
* for indirect indexed addressing each time.
*
*****************************************************************

	EXPORT RestorePtr
RestorePtr	PROC

	lda saveptr
	sta SrcPixelMapRef
	lda saveptr+2
	sta SrcPixelMapRef+2

	rts

	ENDP
;                copy    Comment
****************************************************************
*
* Comment: picture comments
*
* Current Rev: Jan 08, 1988
*
****************************************************************

	EXPORT Comment
Comment	PROC

	phb
	phk
	plb
	lda iPrErr
	beq Continue
exitnow	brl ExitComment
Continue

;------------------------------------------------------------------------
;
; It is necessary to check page range here, since each page's QuickDraw
; calls are processed regardless of the	range of pages to be printed. For
; efficiency sake, we try not to send any unnecessary PostScript code to
; the LaserWriter.
;
	lda iPageNum
	cmp hPrint+prJob+iFstPage
	blt ExitNow
	dec a
	cmp hPrint+prJob+iLstPage
	bge ExitNow

	ldy #opnVis
	lda [Qdport],y
	bmi exitnow

;----------------------------------------------------------------------
;
; Saves the important stuff in local variables from QuickDraw's zero
; page.
;

	lda TheKind
	sta SaveKind
	lda TheSize
	sta SaveSize

	lda TheHandle	; use temp locations on QD's
	sta ScratchPtr1	; zero page for dereferencing
	lda TheHandle+2
	sta ScratchPtr1+2

	ldy #2	; dereference and store in local
	lda [ScratchPtr1],y	; pointer
	sta PSptr+2
	lda [ScratchPtr1]
	sta PSptr

;---------------------------------------------------------------------
;
; Determine what kind of comment this is
;

	lda SaveKind
	cmp #PostScriptBegin
	blt CleanExit	; we currently do not recognize anything
	cmp #PostScriptText+1 ; other than the five comments used
	bge CleanExit	; for encapsulated PostScript
	sec
	sbc #PostScriptBegin ; get an index beginning at zero
	asl a
	tax
	jmp (CommentTable,x)

CommentTable	DC.W PSBegin	; 190
	DC.W PSEnd	; 191
	DC.W PSHandle	; 192
	DC.W PSFile	; 193
	DC.W PSText	; 194

CleanExit	lda #0
ExitComment	cmp #1
	plb
	rtl

;---------------------------------------------------------------------
;
; Comments:  0  -- none
;            1  -- PostScript text
;           -1  -- other comments
;

;---------------------------------------------------------------------
;
; Comment 190 : PostScript Begin
;
; Switch from QuickDraw mode to PostScript mode
;

PSBegin	lda Comments	; cannot begin unless none were in
	bne CleanExit	; effect to start with

	dec Comments	; signify PostScript mode

	pushlong #PSBeginStr
	jsr AddStrToWBuff

	bra CleanExit

;---------------------------------------------------------------------
;
; Comment 191 : PostScript End
;
; Switch from PostScript mode to QuickDraw mode
;

PSEnd	lda Comments	; don't end unless it's been begun
	beq CleanExit

	stz Comments	; put things back to QD mode

	pushlong #PSEndStr
	jsr AddStrToWBuff

	bra CleanExit

;---------------------------------------------------------------------
;
; Comment 192 : PostScript Handle
;
; PostScript text is pointed to by handle
;

PSHandle	lda Comments	; don't do anything if begin
	beq CleanExit	; hasn't been called

	lda PSptr+2	; pointer to the text
	pha
	lda PSptr
	pha
	lda SaveSize	; length of text
	pha
	jsr AddTextToWBuff

	bra CleanExit

;---------------------------------------------------------------------
;
; Comment 193 : PostScript File
;
; PostScript text is contained in file whose name is pointed to by
; handle
;

PSFile	lda Comments	; don't do anything if begin
	beq CleanExit	; hasn't been called

	jsr WriteLaser	; send the stuff in	write buffer since
		; downloadfile will kill it
	lda PSptr+2
	pha
	lda PSptr
	pha
	pushlong #OpenFileName+2
	PushWord #0
	lda SaveSize
	pha
	_BlockMove

	lda SaveSize	; stick the size in	the beginning
	sta OpenFileName	; of the string

	jsr downloadfile

	brl ExitComment	; A should have either 0 or the error

;---------------------------------------------------------------------
;
; Comment 194 : PostScript Text
;
; QuickDraw text is	actual PostScript
;

PSText	lda Comments	; don't do anything if begin
	bpl CleanExit	; hasn't been called

	lda #1	; let the text routine know it should
	sta Comments	; send the text as PostScript

	brl CleanExit


SaveKind	DS.B 2
SaveSize	DS.B 2
PSptr	DS.B 4

	ENDP


;                Copy    utilities
	EXPORT utilities
utilities	PROC

	EXPORT TestSave
TestSave	ldy #oRgnSave
	lda [Qdport],y
	iny
	iny
	ora [Qdport],y
	iny
	iny
	ora [Qdport],y
	iny
	iny
	ora [Qdport],y
	rts

	EXPORT scale
scale	lda 5,s
	jsr addacc
	pushlong #SpaceChar	; force a space between the two
	jsr AddStrToWBuff	; scale factors
	lda 3,s
	jsr addacc
	pushlong #scalestr
	jsr AddStrToWBuff
	plx
	pla
	pla
	phx
	rts

	EXPORT translate
translate	lda 5,s
	jsr addacc
	pushlong #SpaceChar	; force a space between the two
	jsr AddStrToWBuff	; translation factors
	lda 3,s
	jsr addacc
	pushlong #translatestr
	jsr AddStrToWBuff
	plx
	pla
	pla
	phx
	rts

* we Have a ptr to a String255 on the stack and we want to add it
* to the write buffer

	EXPORT AddTextToWBuff
AddTextToWBuff	lda 5,s
	sec
	sbc #1
	sta QD_Temp1
	lda 7,s
	sbc #0
	sta QD_Temp1+2
	lda 3,s
	jsr Common
	bcc doneText
	jsr WriteLaser
	bcc AddTextToWBuff

	lda iPrErr
	cmp #iPrAbort
	beq DoneText

	lda #PAPReadWriteErr
	sta iPrErr

doneText	ply	; get return address off stack
	pla	; get rid of parameters passed
	pla
	pla
	phy	; put return address back on
	rts

;--------------------------------------------------------------------
;
; Appends the incoming string into the write buffer if there is room.
; If the existing length plus the new string length is greater than the
; flow quantum, 512 bytes, then issue a PAPWrite to free up the buffer,
; and then put string in.
;

	EXPORT AddStrToWBuff
AddStrToWBuff	lda 3,s	; get pointer off stack
	sta QD_Temp1+0	; and put into zero	page
	lda 5,s
	sta QD_Temp1+2
*** added 18-Feb-93 DAL -- if pointer is NIL, don't append (PMGetUserName returns NIL on direct-connect)
	ora 3,s
	beq DoneStr
*** end 18-Feb-93
	lda [QD_Temp1]	; get the first word
	and #$00FF	; get the length in	the low byte
	beq DoneStr	; if length is zero then do nothing
	jsr common	; go to common code	to check for space
	bcc donestr	; carry clear, string is in buffer
	jsr WriteLaser	; else issue a write
	bcc AddStrToWBuff

	lda iPrErr
	cmp #iPrAbort
	beq DoneStr

	lda #PAPReadWriteErr
	sta iPrErr

DoneStr	ply	; temporarily take return addr off
	pla	; get rid of ptr which was an input
	pla
	phy	; put back the return address
	rts	; and split

Common	tay	; store in Y for later indexing use
	clc	; add new string length to the
	adc WriteLength	; current buffer length
	cmp #ATFlowQuantum	; is it larger than	512 (flow quantum)
	blt smallEnough	; nope
	sec	; yes, set carry, buffer not big enough
	rts	; and return

SmallEnough	sta WriteLength	; update buffer length
	dec a	; minus 1
	tax	; put into X for indexing

	sep #$0020
	longa off
transloop	lda [QD_Temp1],y	; move the string elements one at
	sta WriteBuffer,x	; a time to the buffer
	dex
	dey
	bne transloop
	longa on
	rep #$0020

	clc	; clear carry, buffer able to hold
	rts	; the entire string

	EXPORT AddHexWord
AddHexWord	pha
	jsr addHexByte
	pla
	ldx iPrErr
	bne Error
	xba
	jsr addHexByte
Error	rts

	EXPORT AddHexByte
AddHexByte	pha
	lsr a
	lsr a
	lsr a
	lsr a
	jsr ConvToASCII
	sta Hexb+1
	pla
	jsr ConvToASCII
	sta Hexb+2
	pushlong #Hexb
	jsr AddStrToWBuff
	rts

	EXPORT ConvToASCII
ConvToASCII	and #$000F
	clc
	adc #'0'
	cmp #'9'+1
	blt g1
	clc
	adc #7
g1	rts

hexb	DC.B 2
	DS.B 3

	EXPORT addSpeToWBuff
addSpeToWBuff	stz LocPos
LoopSpe	lda 5,s
	sta QD_Temp1
	lda 7,s
	sta QD_Temp1+2
	lda 3,s
	cmp LocPos
	beq finspe
	ldy LocPos
	lda [QD_Temp1],y
	and #$00FF
	cmp #'\'
	beq spe
	cmp #'('
	beq spe
	cmp #')'
	beq spe
	jsr addOneCar
	inc LocPos
	bra LoopSpe
spe	pha
	lda #'\'
	jsr addoneCar
	pla
	jsr addoneCar
	inc LocPos
	bra LoopSpe
finspe	ply
	pla
	pla
	pla
	phy
	rts

LocPos	DS.B 2
addoneCar	pha	; put character on stack for later
	lda WriteLength
	cmp #511	; buffer full?
	blt easy	; nope
	jsr WriteLaser	; yep, sent it
	bcc easy

	lda iPrErr
	cmp #iPrAbort
	beq GetOut

	lda #PAPReadWriteErr
	sta iPrErr
GetOut	plx	; get the character	off the stack
	bra Exit

easy	ldx WriteLength
	pla	; get character off	stack
	sta Writebuffer,x	; store into buffer
	inc WriteLength	; bump length
Exit	rts

	ENDP

*****************************************************************

	EXPORT addCoordinate
addCoordinate	PROC

	ply	; remove return address for now
	pla
	sta penPos	; get pointer off stack
	pla
	sta penpos+2
	phy	; put return address back

	lda PenPos
	jsr AddAcc
	lda PenPos+2
	jsr AddAcc
	rts

	ENDP

*****************************************************************

	EXPORT AddAcc
AddAcc	PROC

	ldy #0
	and #$FFFF
	bpl plus
	dey
plus	phy
	pha
	pushlong #numstr
	pushWord #5	; changed from 4 to	5 by Suki
	Pushword #$FFFF	; 5/5/87 for safeguard reasons
	_Long2dec

	pushlong #SpaceChar	; separate each entry with a space
	jsr AddStrToWBuff

	pushlong #numstr
	pushWord #5	; also changed on 5/5/87
	jsr AddTextToWBuff
	rts

	ENDP

******************************************************************
*
* OurGetHandle
*
* Gets a handle to memory of size passed in a-reg with
* attributes passed	in x-register.
*
* Handle is returned in A & X registers	unless there is a
* memory manager error where error returns in a-reg.
*
******************************************************************
	EXPORT OurGetHandle
OurGetHandle	PROC


	pha
	pha
	pea 0
	pha
	PushWord LW_UserID	; your ID
	phx
	pha
	pha
	_NewHandle 	; result on the stack
	bcs AnError

	pla
	plx

	rts

AnError	plx
	plx
	rts

	ENDP


******************************************************************
*
* CursorStuff
*
* Has tool calls for wait and setcursor.
*
******************************************************************
	EXPORT CursorStuff
CursorStuff	PROC

	EXPORT WaitCursor
WaitCursor
;------------------------------------------------------------
;
; Get the current cursor record's address and turn on the watch cursor.
;

	pha
	pha	; space for the address
	_GetCursorAdr
	pla
	sta CursorAd
	pla
	sta CursorAd+2

	_WaitCursor
	rts

	EXPORT RestoreCursor
RestoreCursor	PushLong CursorAd
	_SetCursor

	rts

	ENDP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/LW/makefile b/IIGS.601.SRC/GSToolbox/PrinterDrivers/LW/makefile
new file mode 100644
index 0000000..a6ef5c9
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/LW/makefile
@@ -0,0 +1 @@
+### Dependancies for LW
laserwriter			Ä		Lw.asm.obj			¶
							dialogdata.asm.obj	¶
							prepfile.asm.obj
	linkiigs   ¶
		-lseg MAIN		¶
			lw.asm.obj	¶
			dialogdata.asm.obj	¶
		-lseg:Dynamic PREPFILE	¶
			prepfile.asm.obj	¶
		-o laserwriter -t $BB -at $0001		
### Dependancies for iw.asm.obj
### Setting the variable lq to 0 will build the regular Imagewriter driver
Lw.ASM.obj 			Ä 		Lw.asm				
	ASMIIGS  Lw.asm
### Dependancies for dialogdata.asm.OBJ
dialogdata.asm.obj	Ä		dialogdata.asm
	ASMIIGS dialogdata.asm
### Dependancies for prepfile.asm.OBJ
prepfile.asm.obj	Ä		prepfile.asm
	ASMIIGS prepfile.asm
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/LW/prepfile.asm b/IIGS.601.SRC/GSToolbox/PrinterDrivers/LW/prepfile.asm
new file mode 100644
index 0000000..5f8bd4b
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/LW/prepfile.asm
@@ -0,0 +1 @@
+				STRING ASIS
				BLANKS OFF

;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

	IMPORT	SpecialWrite

;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

	ENTRY	EndData
	ENTRY	Prepfile
	ENTRY	SizePrepFile

	include 'm16.util'

;---------------------------------------------------------
;  Laserwriter Driver Version 3.3
;  Copyright Apple Computer, Inc. 1986-90
;  All rights reserved.
;---------------------------------------------------------

***************************************************************
*
* SendThePrep
*
* Sends the prepdata to the laser printer.
* Returns with the address of the of this routine in the
* a & x registers.
*
* Calls a routine in the main driver to send data.
*
*    SpecialAdd (Ptr : LONG; Count : word);
*
***************************************************************

		EXPORT	SendThePrep    
SendThePrep    PROC
*              using PrepFile
*              using LWData

               phb
               phk
               plb

               stz CurOffset

SendMore	; 

               lda CurOffset            ; call subroutine to send text
               jsr Send512              ; starting from the current offset
               bcs Bye

               lda CurOffset
               clc
               adc #512                 ; add 512 (size of buffer)
               sta CurOffset
               cmp SizePrepFile         ; exceeds end of file?
               bcc SendMore             ; nope, send some more

               lda #0                   ; no errors

Bye            ldy #SendThePrep         ; send the address of this segment
               ldx #^SendThePrep        ; back to caller for unloading

               plb

               cmp #1
               rtl


Send512	; 

               pha                      ; hide offset for now
               lda SizePrepFile         ; subtract the offset
               sec
               sbc 1,s
               cmp #512                 ; if less than 512 bytes left
               bcc Less512              ; send all that's left
               lda #512                 ; otherwise send 512
Less512        tay                      ; stick the move count in y for now
               pla                      ; get the offset back

               pushlong #Prepfile
               clc
               adc 1,s                  ; add offset to the address of text
               sta 1,s
               phy                      ; put count on stack
               jsl SpecialWrite

               rts

CurOffset		DS.B 2

		ENDP


		EXPORT	PrepFile        
PrepFile        PROC

		EXPORT	StartData
StartData	; 
	DC.B	'systemdict/setpacking known{/svpack currentpacking def'
	DC.B	' true setpacking}if'
	DC.B	$0D
	DC.B	'/GSd 200 dict def'
	DC.B	$0D
	DC.B	'GSd begin'
	DC.B	$0D
	DC.B	'/tstr 75 string def'
	DC.B	$0D
	DC.B	'/ct 40 string def'
	DC.B	$0D
	DC.B	'/s1( )def'
	DC.B	$0D
	DC.B	'/mtx matrix def'
	DC.B	$0D
	DC.B	'/mx1 matrix def'
	DC.B	$0D
	DC.B	'/colorarray 16 array def'
	DC.B	$0D
	DC.B	'/T true def'
	DC.B	$0D
	DC.B	'/F false def'
	DC.B	$0D
	DC.B	'/Fav T def'
	DC.B	$0D
	DC.B	'/snl 0 def'
	DC.B	$0D
	DC.B	'/prl 0 def'
	DC.B	$0D
	DC.B	'/bdf{bind def}bind def'
	DC.B	$0D
	DC.B	'/xdf{exch def}bdf'
	DC.B	$0D
	DC.B	'/ldf{load def}bdf'
	DC.B	$0D
	DC.B	'/dv{dup 0 ne{div}{pop}ifelse}bdf'
	DC.B	$0D
	DC.B	'/LW{save statusdict/product get(LaserWriter)anchorsearch'
	DC.B	' dup{exch pop 3 -1 roll}{exch pop exch}ifelse restore}bdf'
	DC.B	$0D
	DC.B	'/CL{LW{length 0 eq}{F}ifelse}bdf'
	DC.B	$0D
	DC.B	'/PL{LW{(Plus)search dup{4 1 roll pop pop pop}{exch pop}'
	DC.B	'ifelse}{F}ifelse}bdf'
	DC.B	$0D
	DC.B	'/II{LW{exch search{pop pop length 0 eq}{pop F}ifelse}'
	DC.B	'{pop F}ifelse}bdf'
	DC.B	$0D
	DC.B	'/vm{save vmstatus exch sub 50000 lt{(%%[Warning: The'
	DC.B	' current document may exceed printer memory capacity.'
	DC.B	']%%)= flush}if pop restore}bdf'
	DC.B	$0D

;
; 7/3/92	MD	Changed /spf definition to work for level 2 printers if they
; 				return a Halftone dictionary.  See gs.dict for details.
;
; 11/13/92	MD	Changed this again so level 1 color printing works.  See
;				gs.dict for details.
;

	DC.B	'mark'
	DC.B	$0D
	DC.B	'currentscreen dup type /dicttype eq'
	DC.B	$0D
	DC.B	'{ currentscreen begin HalftoneType 1 eq '
	DC.B	'{ currentscreen /SpotFunction get end } '
	DC.B	'{ {abs exch abs 2 copy add 1 gt '
	DC.B	'{1 sub dup mul exch 1 sub dup mul add 1 sub} '
	DC.B	'{dup mul exch dup mul add 1 exch sub} '
	DC.B	'ifelse} } '
	DC.B	'ifelse} if '
	DC.B	$0D
	DC.B	'/spf xdf '
	DC.B	$0D
	DC.B	'cleartomark'
	DC.B	$0D
	
; End of 7/3/92 changes -- MD

	DC.B	'/od{psu tx 1 0 mtx defaultmatrix dtransform exch atan/pa'
	DC.B	' xdf newpath clippath mark{transform{itransform'
	DC.B	' moveto}}{transform{itransform lineto}}{6 -2 roll'
	DC.B	' transform 6 -2 roll transform 6 -2 roll transform'
	DC.B	'{itransform 6 2 roll itransform 6 2 roll itransform 6 2'
	DC.B	' roll curveto}}{{closepath}}pathforall newpath'
	DC.B	' counttomark array astore/gc xdf pop ct 39 0 put}'
	DC.B	'bdf'
	DC.B	$0D
	DC.B	'/op{/ols save def 0 0 translate 1 1 pen 0 0 moveto}bdf'
	DC.B	$0D
	DC.B	'/cp{showpage ols restore}bdf'
	DC.B	$0D
	DC.B	'/up{currentpoint currentgray currentlinewidth currentlinecap'
	DC.B	' currentlinejoin currentdash snl prl pnsv pnsh colorarray'
	DC.B	' aload pop mtx currentmatrix aload pop mx1 aload pop fz fs'
	DC.B	' ols restore/fs'
	DC.B	' xdf/fz xdf mx1 astore pop}bdf'
	DC.B	$0D
	DC.B	'/dn{/ols save def mx1 setmatrix newpath 0 0 moveto ct dup 39'
	DC.B	' get 0 exch getinterval cvx exec mtx astore setmatrix colorarray'
	DC.B	' astore pop/pnsh xdf/pnsv xdf/prl xdf/snl xdf setdash'
	DC.B	' setlinejoin setlinecap setlinewidth setgray moveto}bdf'
	DC.B	$0D
	DC.B	'/psu{/pgs xdf 2 index .72 mul exch dv/pys xdf dv .72'
	DC.B	' mul/pxs xdf 4 array astore/ppr xdf/Fpr xdf/Fsm xdf'
	DC.B	'{statusdict begin/manualfeed T def(NTX)II not{/manualfeedtimeout' 
	DC.B	' 300 def}if end}if userdict/#copies 3 -1 roll put}bdf'
	DC.B	$0D
	DC.B	'/tx{userdict/note known pgs 1680 eq 1 index and{legal}if'
	DC.B	' pgs 1212 eq{dup{note}if 54 32.4 translate}if pgs 1403'
	DC.B	' eq userdict/a4small known and{a4small}if pgs 1320 eq'
	DC.B	' and{letter}if pxs pys scale ppr aload pop Fpr{pop exch'
	DC.B	' neg exch translate pop}{translate pop pop 270 rotate}'
	DC.B	'ifelse 1 -1 scale statusdict begin waittimeout 300 lt'
	DC.B	'{/waittimeout 300 def}if end}bdf'
	DC.B	$0D
	DC.B	'/fr{3 index 3 index neg exch neg translate ppr aload pop'
	DC.B	' 3 -1 roll add 3 1 roll exch add 6 2 roll 3'
	DC.B	' -1 roll sub 3 1 roll exch sub 3 1 roll exch 3 -1 roll'
	DC.B	' dv 3 1 roll dv exch scale}bdf'
	DC.B	$0D
	DC.B	'/nc{currentpoint initclip newpath gc{dup type dup'
	DC.B	'/arraytype eq exch/packedarraytype eq or{exec}if}forall'
	DC.B	' clip newpath moveto}bdf'
	DC.B	$0D
	DC.B	'/kp{ct 0 2 index length 2 index 39 2 index put'
	DC.B	' getinterval copy cvx exec mx1 currentmatrix pop}bdf'
	DC.B	$0D
	DC.B	'/xl{neg exch neg translate}bdf'
	DC.B	$0D
	DC.B	'/mto{exch moveto}bdf'
	DC.B	$0D
	DC.B	'/pnm 1 def'
	DC.B	$0D
	DC.B	'/pen{pnm mul dup setlinewidth/pnsh xdf pnm mul/pnsv xdf'
	DC.B	'}bdf'
	DC.B	$0D
	DC.B	'/ff/findfont ldf'
	DC.B	$0D
	DC.B	'/blank/Times-Roman findfont/CharStrings get/space get'
	DC.B	' def'
	DC.B	$0D
	DC.B	'/AVec 256 array def'
	DC.B	$0D
	DC.B	'/NUL/SOH/STX/ETX/EOT/ENQ/ACK/BEL/BS/HT/LF/VT/FF/CR/SO/SI'
	DC.B	'/DLE/DC1/DC2/DC3/DC4/NAK/SYN/ETB/CAN/EM/SUB/ESC/FS/GS/RS'
	DC.B	'/US'
	DC.B	$0D
	DC.B	'AVec 0 32 getinterval astore pop'
	DC.B	$0D
	DC.B	'AVec 32/Times-Roman findfont/Encoding get 32 96'
	DC.B	' getinterval putinterval'
	DC.B	$0D
	DC.B	'AVec dup 39/quotesingle put 96/grave put'
	DC.B	$0D
	DC.B	'/Adieresis/Aring/Ccedilla/Eacute/Ntilde/Odieresis'
	DC.B	'/Udieresis/aacute'
	DC.B	$0D
	DC.B	'/agrave/acircumflex/adieresis/atilde/aring/ccedilla'
	DC.B	'/eacute/egrave'
	DC.B	$0D
	DC.B	'/ecircumflex/edieresis/iacute/igrave/icircumflex'
	DC.B	'/idieresis/ntilde/oacute'
	DC.B	$0D
	DC.B	'/ograve/ocircumflex/odieresis/otilde/uacute/ugrave'
	DC.B	'/ucircumflex/udieresis'
	DC.B	$0D
	DC.B	'/dagger/degree/cent/sterling/section/bullet/paragraph'
	DC.B	'/germandbls'
	DC.B	$0D
	DC.B	'/registered/copyright/trademark/acute/dieresis/notequal'
	DC.B	'/AE/Oslash'
	DC.B	$0D
	DC.B	'/infinity/plusminus/lessequal/greaterequal/yen/mu'
	DC.B	'/partialdiff/summation'
	DC.B	$0D
	DC.B	'/product/pi/integral/ordfeminine/ordmasculine/Omega/ae'
	DC.B	'/oslash'
	DC.B	$0D
	DC.B	'/questiondown/exclamdown/logicalnot/radical/florin'
	DC.B	'/approxequal/Delta/guillemotleft'
	DC.B	$0D
	DC.B	'/guillemotright/ellipsis/blank/Agrave/Atilde/Otilde/OE'
	DC.B	'/oe'
	DC.B	$0D
	DC.B	'/endash/emdash/quotedblleft/quotedblright/quoteleft'
	DC.B	'/quoteright/divide/lozenge'
	DC.B	$0D
	DC.B	'/ydieresis/Ydieresis/fraction/currency/guilsinglleft'
	DC.B	'/guilsinglright/fi/fl'
	DC.B	$0D
	DC.B	'/daggerdbl/periodcentered/quotesinglbase/quotedblbase'
	DC.B	'/perthousand/Acircumflex/Ecircumflex/Aacute'
	DC.B	$0D
	DC.B	'/Edieresis/Egrave/Iacute/Icircumflex/Idieresis/Igrave'
	DC.B	'/Oacute/Ocircumflex'
	DC.B	$0D
	DC.B	'/apple/Ograve/Uacute/Ucircumflex/Ugrave/dotlessi'
	DC.B	'/circumflex/tilde'
	DC.B	$0D
	DC.B	'/macron/breve/dotaccent/ring/cedilla/hungarumlaut/ogonek'
	DC.B	'/caron'
	DC.B	$0D
	DC.B	'AVec 128 128 getinterval astore pop'
	DC.B	$0D
	DC.B	'/rf{/Fav xdf ff FontDirectory 2 index known{pop pop}{dup'
	DC.B	' length dict/tmp xdf cf tmp definefont pop}ifelse}'
	DC.B	'bdf'
	DC.B	$0D
	DC.B	'/cf{{1 index/FID ne{tmp 3 1 roll put}{pop pop}ifelse}'
	DC.B	'forall Fav{tmp/Encoding AVec put}if}bdf'
	DC.B	$0D
	DC.B	'/gf{dup ff msf}bdf'
	DC.B	$0D
	DC.B	'/msf{exch tstr cvs(Shaston)search{pop pop pop[1.75}'
	DC.B	'{pop[1}ifelse fz mul 0 obl fz neg 0 0]makefont setfont}'
	DC.B	'bdf'
	DC.B	$0D
	DC.B	'/sfs{/fz xdf/fs xdf}bdf'
	DC.B	$0D
	DC.B	'/kwn{dup FontDirectory exch known{ff}}bdf'
	DC.B	$0D
	DC.B	'/ig{1 currentgray sub setgray}bdf'
	DC.B	$0D
	DC.B	'/cts{tstr cvs dup}bdf'
	DC.B	$0D
	DC.B	'/ctn{put cvn}bdf'
	DC.B	$0D
	DC.B	'/scs{cts 3 67 put dup 0 95 ctn}bdf'
	DC.B	$0D
	DC.B	'/sbs{cts 1 66 ctn}bdf'
	DC.B	$0D
	DC.B	'/sis{cts 2 73 ctn}bdf'
	DC.B	$0D
	DC.B	'/sob{cts 2 79 ctn}bdf'
	DC.B	$0D
	DC.B	'/sos{cts 3 79 ctn}bdf'
	DC.B	$0D
	DC.B	'/sss{cts 4 83 ctn}bdf'
	DC.B	$0D
	DC.B	'/smc{moveto dup show}bdf'
	DC.B	$0D
	DC.B	'/wd 16 dict def'
	DC.B	$0D
	DC.B	'/mfont 14 dict def'
	DC.B	$0D
	DC.B	'/aos{/sh xdf/fav T def dup sh{sss}{sos}ifelse kwn'
	DC.B	'{1 index dup ac{scs ff/df2 xdf}{aosc}mm}ifelse msf}bdf'
	DC.B	$0D
	DC.B	'/ac{dup scs exch/ofd exch ff def/tmp ofd maxlength 1'
	DC.B	' add dict def ofd cf tmp dup dup/StrokeWidth 240 pys dv'
	DC.B	' fz dv dup 12 lt{pop 12}if put/PaintType 2 put'
	DC.B	' definefont pop}bdf'
	DC.B	$0D
	DC.B	'/aosc{fd/df get setfont gsave cs wi sh{exch .05 add'
	DC.B	' exch}if grestore setcharwidth cs sh{.06 0 smc 0 .05'
	DC.B	' translate}if ig 0 0 smc ig fd/df2 get setfont 0 0'
	DC.B	' moveto show}bdf'
	DC.B	$0D
	DC.B	'/mm{/tmf 10 dict def tmf begin/FontMatrix[1 0 0 1 0 0]'
	DC.B	'def/FontType 3 def/Encoding AVec def/df 3 index ff def'
	DC.B	'/FontBBox [0 0 1 1] def/mbc xdf/BuildChar{wd begin/cs s1'
	DC.B	' dup 0 5 -1 roll put def dup/fd xdf/mbc get exec end}def'
	DC.B	' exec end tmf definefont}bdf'
	DC.B	$0D
	DC.B	'/mdf{mfont wcheck not{/mfont 14 dict def}if mfont begin'
	DC.B	' xdf end}bdf'
	DC.B	$0D	
	DC.B	'/mywidth{bitwidth 3 lt{3}{bitwidth}ifelse}bdf'
	DC.B	$0D
	DC.B	'/bmbc{exch begin wd begin/cr xdf save CharTable cr 6 mul'
	DC.B	' 6 getinterval{}forall/bitheight xdf/bitwidth xdf .96 div'
	DC.B	'/width xdf Gkernmax add/XOffset xdf Gdescent add/YOffset'
	DC.B	' xdf/rowbytes xdf rowbytes 255 eq{0 0 0 0 0 0 setcachedevice}'
	DC.B	'{Gnormsize dup scale width 0 XOffset YOffset bitwidth'
	DC.B	' XOffset add bitheight YOffset add setcachedevice rowbytes'
	DC.B	' 0 ne{XOffset YOffset translate newpath 0 0 moveto'
	DC.B	' bitwidth bitheight scale rowbytes 3 bitshift bitheight'
	DC.B	' true[bitwidth 0 0 bitheight neg 0 bitheight]'
	DC.B	'{CharData cr get}imagemask}if}ifelse restore end end}bdf'
	DC.B	$0D	
 	DC.B	'/bb{.96 fz div/Gnormsize mdf 2 index/Gkernmax mdf 1'
	DC.B	' index/Gdescent mdf 3 index div 4 1 roll 2 index div 1. 5'
	DC.B	' 2 roll exch div 4 1 roll 4 array astore/FontBBox mdf}bdf'
	DC.B	$0D
	DC.B	'/cdf{mfont/CharData get 3 1 roll put}bdf'
	DC.B	$0D
	DC.B	'/bf{mfont begin/FontType 3 def/FontMatrix[1 0 0 1 0 0]def'
	DC.B	'/Encoding AVec def/BuildChar/bmbc ldf end mfont definefont'
	DC.B	' pop}bdf'
	DC.B	$0D
	DC.B	'/si{/obl 0.212557 fz mul def}bdf'
	DC.B	$0D
	DC.B	'/ci{/obl 0 def}bdf'
	DC.B	$0D
	DC.B	'/mb{dup sbs kwn{1 index{pop}{bbc}mm}ifelse msf}bdf'
	DC.B	$0D
	DC.B	'/mo{dup sos kwn{1 index{pop}{boc}mm}ifelse msf}bdf'
	DC.B	$0D
	DC.B	'/ms{dup sss kwn{1 index{pop}{bsc}mm}ifelse msf}bdf'
	DC.B	$0D
	DC.B	'/bbc{/da .03 def fd/df get setfont gsave cs wi exch da add'
	DC.B	' exch grestore setcharwidth cs 0 0 smc da 0 smc da da smc 0' 
	DC.B	' da moveto show}bdf'
	DC.B	$0D
	DC.B	'/boc{/da 1 fz div def fd/df get setfont gsave cs wi exch'
	DC.B	' da add exch grestore setcharwidth cs 0 0 smc da 0 smc da'
	DC.B	' da smc 0 da smc 1 currentgray sub setgray da 2. div dup' 
	DC.B	' moveto show}bdf'
	DC.B	$0D
	DC.B	'/bsc{/da 1 fz div def/ds .05 def/da2 da 2. div def fd/df'
	DC.B	' get setfont gsave cs wi exch ds add da2 add exch grestore'
	DC.B	' setcharwidth cs ds da2 add .01 add 0 smc 0 ds da2 sub'
	DC.B	' translate 0 0 smc da 0 smc da da smc 0 da smc 1 currentgray'
	DC.B	' sub setgray da 2. div dup moveto show}bdf'
	DC.B	$0D
	DC.B	'/ul{gsave 0/UnderlinePosition sif{ty}{fz 10 div}ifelse'
	DC.B	'/UnderlineThickness sif{ty}{fz 15 div}ifelse'
	DC.B	' setlinewidth currentpoint 3 -1 roll add moveto fs 16'
	DC.B	' and dup 0 ne{gsave currentlinewidth 2. div dup rmoveto'
	DC.B	' currentpoint translate 3 copy pop rlineto stroke'
	DC.B	' grestore}if fs 8 and or 0 ne 3 1 roll 2 index{gsave ig'
	DC.B	' 2 copy rlineto stroke grestore}if rlineto{strokepath'
	DC.B	' .24 pys div setlinewidth}if stroke grestore}bdf'
	DC.B	$0D
	DC.B	'/sg{2 copy known{get T}{pop pop F}ifelse}bdf'
	DC.B	$0D
	DC.B	'/sif{currentfont dup/FontMatrix get exch/FontInfo sg{T}'
	DC.B	'{currentfont/df sg{dup/FontInfo sg{3 1 roll/FontMatrix'
	DC.B	' get mtx concatmatrix exch T}{pop pop pop F}ifelse}{pop'
	DC.B	' pop F}ifelse}ifelse{3 -1 roll sg{exch T}{pop F}ifelse}'
	DC.B	'{F}ifelse}bdf'
	DC.B	$0D
	DC.B	'/ty{0 3 1 roll transform exch pop}bdf'
	DC.B	$0D
	DC.B	'/bt{/prl 0 def/snl 0 def[}bdf'
	DC.B	$0D
	DC.B	'/mt{snl add/snl xdf dup wi pop dup prl add/prl xdf{lot}}'
	DC.B	'bdf'
	DC.B	$0D
	DC.B	'/lot{dup afl mul fs 4 and 0 ne{dup ul}if exch sub dup'
	DC.B	' abs .5 lt{pop show}{1 index dup length exch 0 exch{32'
	DC.B	' eq{1 add}if}forall dup 0 eq 3 index 0 le or{pop dv 0 3'
	DC.B	' -1 roll ashow}{dup 2 le 2 index 10 ge and{2}{10}ifelse'
	DC.B	' dup/fac xdf mul add dv dup fac mul 0 32 4 -1 roll 0 6'
	DC.B	' -1 roll awidthshow}ifelse}ifelse}bdf'
	DC.B	$0D
	DC.B	'/et{counttomark array astore exch pop/afl snl prl dv def'
	DC.B	' save exch{dup type dup/arraytype eq exch/packedarraytype'
	DC.B	' eq or{exec}if}forall currentpoint 3 -1 roll restore'
	DC.B	' moveto}bdf'
	DC.B	$0D
	DC.B	'/wi CL{{gsave 0 0 moveto 0 0 lineto 0 0 lineto 0 0 lineto'
	DC.B	' closepath clip stringwidth grestore}bind}{/stringwidth'
	DC.B	' load}ifelse def'
	DC.B	$0D
	DC.B	'/pop4{pop pop pop pop}bdf'
	DC.B	$0D
	DC.B	'/fp{pnsh 0 ne pnsv 0 ne and}bdf'
	DC.B	$0D
	DC.B	'/vrb['
	DC.B	$0D
	DC.B	'{fp{gsave clip 1 setlinewidth pnsh 2 mul pnsv 2 mul scale'
	DC.B	' stroke grestore}if newpath}bind'
	DC.B	$0D
	DC.B	'/eofill load'
	DC.B	$0D
	DC.B	'dup'
	DC.B	$0D
	DC.B	'/newpath load'
	DC.B	$0D
	DC.B	'2 index'
	DC.B	$0D
	DC.B	'dup'
	DC.B	$0D
	DC.B	'{clip newpath}bind'
	DC.B	$0D
	DC.B	'{}bind'
	DC.B	$0D
	DC.B	'dup'
	DC.B	$0D
	DC.B	'2 copy'
	DC.B	$0D
	DC.B	']def'
	DC.B	$0D
	DC.B	'/doop{vrb exch get exec}bdf'
	DC.B	$0D
	DC.B	'/lin{exch currentpoint/pnlv xdf/pnlh xdf gsave newpath'
	DC.B	'/@1 xdf/@2 xdf fp{pnlh @2 lt{pnlv @1 ge{pnlh pnlv moveto'
	DC.B	' @2 @1 lineto pnsh 0 rlineto 0 pnsv rlineto pnlh pnsh'
	DC.B	' add pnlv pnsv add lineto pnsh neg 0 rlineto}{pnlh pnlv'
	DC.B	' moveto pnsh 0 rlineto @2 pnsh add @1 lineto 0 pnsv'
	DC.B	' rlineto pnsh neg 0 rlineto pnlh pnlv pnsv add lineto}'
	DC.B	'ifelse}{pnlv @1 gt{@2 @1 moveto pnsh 0 rlineto pnlh pnsh'
	DC.B	' add pnlv lineto 0 pnsv rlineto pnsh neg 0 rlineto @2 @1'
	DC.B	' pnsv add lineto}{pnlh pnlv moveto pnsh 0 rlineto 0 pnsv'
	DC.B	' rlineto @2 pnsh add @1 pnsv add lineto pnsh neg 0 rlineto'
	DC.B	' 0 pnsv neg rlineto}ifelse}ifelse closepath fill}if @2'
	DC.B	' @1 grestore moveto}bdf'
	DC.B	$0D
	DC.B	'/barc{/@1 xdf/@2 xdf/@3 xdf/@4 xdf/@5 xdf/@6 xdf/@7 xdf'
	DC.B	'/@8 xdf gsave @5 @7 add 2 div @6 @8 add 2 div translate'
	DC.B	' newpath 0 0 moveto @5 @7 sub @6 @8 sub mtx'
	DC.B	' currentmatrix pop scale @1{newpath}if 0 0 0.5 @4 @3 arc'
	DC.B	' @4 @3 sub abs 360 ge{closepath}if mtx setmatrix @2 doop'
	DC.B	' grestore}bdf'
	DC.B	$0D
	DC.B	'/ar{dup 0 eq barc}bdf'
	DC.B	$0D
	DC.B	'/ov{0 exch 360 exch true barc}bdf'
	DC.B	$0D
	DC.B	'/rc{/@t xdf currentpoint 6 2 roll newpath 4 copy 4 2'
	DC.B	' roll exch moveto 6 -1 roll lineto lineto lineto'
	DC.B	' closepath @t doop moveto}bdf'
	DC.B	$0D
	DC.B	'/rr{/@1 xdf 2. div/@2 xdf 2. div/@3 xdf/@4 xdf/@5 xdf/@6'
	DC.B	' xdf/@7 xdf @7 @5 eq @6 @4 eq @2 pnsh 2 div le @3'
	DC.B	' pnsv 2 div le or or or{@7 @6 @5 @4 @1 rc}{@4 @6 sub 2.'
	DC.B	' div dup @2 lt{/@2 xdf}{pop}ifelse @5 @7 sub 2. div dup'
	DC.B	' @3 lt{/@3 xdf}{pop}ifelse @1 0 eq{/@2 @2 pnsh 2 div 2'
	DC.B	' copy gt{sub def}{0 pop4}ifelse/@3 @3 pnsv 2 div 2 copy'
	DC.B	' gt{sub def}{0 pop4}ifelse}if currentpoint newpath'
	DC.B	' @4 @6 add 2. div @7 moveto'
	DC.B	' @2 @2 mul @3 @3 mul add sqrt 2 div/@8 xdf'
	DC.B	' @4 @7 @4 @5 @8 arcto pop4'
	DC.B	' @4 @5 @6 @5 @8 arcto pop4'
	DC.B	' @6 @5 @6 @7 @8 arcto pop4'
	DC.B	' @6 @7 @4 @7 @8 arcto pop4'
	DC.B	' closepath @1 doop moveto}ifelse}bdf'
	DC.B	$0D
	DC.B	'/sp{currentpoint newpath moveto}bdf'
	DC.B	$0D
	DC.B	'/pl{exch lineto}bdf'
	DC.B	$0D
	DC.B	'/ep{gsave gsave eofill grestore currentpoint fp{{moveto}'
	DC.B	'{exch lin}{}{(%%[Warning: A polygon close path call is'
	DC.B	' issued.]%%)= flush}pathforall grestore currentpoint'
	DC.B	' newpath moveto}{grestore newpath}ifelse moveto}bdf'
	DC.B	$0D
	DC.B	'/addone{dup 0 eq{exit}if 1 sub exch 1 index dup mode640'
	DC.B	'{addone640}{addone320}ifelse colorarray exch get add'
	DC.B	' exch}bdf'
	DC.B	$0D
	DC.B	'/addone320{2 div cvi xarray exch get exch cvi 1 and 4'
	DC.B	' mul cvi 4 sub bitshift 15 and}bdf'
	DC.B	$0D
	DC.B	'/addone640{cvi 3 and 4 mul exch dup 4 div cvi xarray'
	DC.B	' exch get exch cvi 3 and 2 mul cvi 6 sub bitshift 3 and'
	DC.B	' add cvi}bdf'
	DC.B	$0D
	DC.B	'/pixel320{exch dup 3 copy pop exch 1 add 4 mul cvi 4 mul'
	DC.B	' exch 1 add 2 mul cvi add xarray exch get exch 1 add 4'
	DC.B	' mul cvi 1 and 4 mul cvi 4 sub bitshift 15 and'
	DC.B	' colorarray exch get}bdf'
	DC.B	$0D
	DC.B	'/pixel640{exch 2 copy exch 1 add 4 mul cvi 2 mul exch 1'
	DC.B	' add cvi add xarray exch get 1 index 1 add 2 mul cvi 4'
	DC.B	' mul exch 2 index 1 add 4 mul cvi 3 and 2 mul cvi 6 sub'
	DC.B	' bitshift 3 and add cvi colorarray exch get}bdf'
	DC.B	$0D
	DC.B	'/pat{/mode640 xdf exch/xarray xdf{15}{9.375}ifelse pa'
	DC.B	' Fpr not{90 add}if{mode640{pixel640}{pixel320}ifelse 45'
	DC.B	' exch sub 45 div/temp xdf 1 add 4 mul dup cvi sub 2 mul'
	DC.B	' 1 sub exch 1 add 4 mul dup cvi sub 2 mul 1 sub 1 sub'
	DC.B	' temp mul 1 add exch 1 sub temp mul 1 add spf}setscreen'
	DC.B	' 0 64{addone}loop pop 45 div 64. div setgray}bdf'
	DC.B	$0D
	DC.B	'currentscreen /sproc xdf /sang xdf /sfreq xdf'
	DC.B	$0D
	DC.B	'end'
	DC.B	$0D
	DC.B	'systemdict/setpacking known{svpack setpacking}if'
	DC.B	$0D
		EXPORT	EndData
EndData	; 

		EXPORT	SizePrepFile
SizePrepFile	DC.W	EndData-StartData

		ENDP

		END
		
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/LW/special.macros b/IIGS.601.SRC/GSToolbox/PrinterDrivers/LW/special.macros
new file mode 100644
index 0000000..1337afa
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/LW/special.macros
@@ -0,0 +1 @@
+ MACRO
&lab _PmInsertDisk
&lab ldx #19+256*39
 jsl $E10000
 MEND
 MACRO
&lab _PrDevPrChanged
&lab ldx #19+256*25
 jsl $E10000
 MEND
 MACRO
&lab _PrDevOpen
&lab ldx #19+256*28
 jsl $E10000
 MEND
 MACRO
&lab _PrDevWrite
&lab ldx #19+256*30
 jsl $E10000
 MEND
 MACRO
&lab _PrDevClose
&lab ldx #19+256*31
 jsl $E10000
 MEND
 MACRO
&lab _PrDevStatus
&lab ldx #19+256*32
 jsl $E10000
 MEND
 MACRO
&lab _PrDevAsyncRead
&lab ldx #19+256*33
 jsl $E10000
 MEND
 MACRO
&lab _DevIsItSafe
&lab ldx #19+256*48
 jsl $E10000
 MEND
 MACRO
&lab _PMGetUserName
&lab ldx #19+256*42
 jsl $E10000
 MEND
 MACRO
&lab _PMGetDocName
&lab ldx #19+256*54
 jsl $E10000
 MEND
 MACRO
&lab _PMSetDocName
&lab ldx #19+256*55
 jsl $E10000
 MEND
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/Modem/dialogdata.asm b/IIGS.601.SRC/GSToolbox/PrinterDrivers/Modem/dialogdata.asm
new file mode 100644
index 0000000..b2469f7
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/Modem/dialogdata.asm
@@ -0,0 +1 @@
+			STRING ASIS
			BLANKS OFF
			
**********************************************************************
*
*	Modem Port Driver version 2.1
*   Copyright Apple Computer, Inc. 1986-1988
*	All rights reserved.
*
**********************************************************************

			MACRO
&lab		str &string
			EXPORT &lab						; export the label
			LCLC &EIB						; declare a temporary var to hold current string setting
&EIB		SETC &SETTING('STRING') 		; put current string setting into temp
			STRING PASCAL					; Set string type to pascal.
&lab		DC.B	&string 				; make the string
			STRING &EIB 					; restore orig string settings
			MEND


			include 'e16.dialog'

 
		EXPORT	DialogData     
DialogData     PROC
;------------------------------------------------------------
;
; data used by port not active alert box
;

;------------------------------------------------------------
;
; 640 mode
; 
		EXPORT	alerttemp640
alerttemp640	DC.W	30,40,75,600	; bounds rect
				DC.W	1301			; id
				DC.B	$80
				DC.B	$80
				DC.B	$80
				DC.B	$80
				DC.L	item1_640		; Continue
				DC.L	item2_640		; text
				DC.L	0000


		EXPORT	item1_640
item1_640	DC.W	1	; id
			DC.W	22,470,0,0		; bounds rect for button
			DC.W	ButtonItem		; type
			DC.L	But1			; item descriptor - "Continue"
			DC.W	00				; item value
			DC.W	0				; item flag
			DC.L	0				; item color

		EXPORT	item2_640
item2_640	DC.W	2	; id
			DC.W	3,100,43,400	; bounds rect for button
			DC.W	LongStatText	; type
			DC.L	Msg1_640		; item descriptor
			DC.W	Len_Msg1_640	; item value
			DC.W	0				; item flag
			DC.L	0				; item color


But1           str 'OK'

		EXPORT	Msg1_640
Msg1_640	DC.B	$0d
			DC.B	'The modem port is not selected'
			DC.B	$0d
			DC.B	'in the Control Panel.'
Len_Msg1_640 equ *-Msg1_640
			
;------------------------------------------------------------
;
; 320 mode
; 
		EXPORT	alerttemp320
alerttemp320	DC.W	30,10,95,310	; bounds rect
				DC.W	1301			; id
				DC.B	$80
				DC.B	$80
				DC.B	$80
				DC.B	$80
				DC.L	item1_320		; Continue
				DC.L	item2_320		; text
				DC.L	0000

		EXPORT	item1_320
item1_320	DC.W	1	; id
			DC.W	45,235,0,0		; bounds rect for button
			DC.W	ButtonItem		; type
			DC.L	But1			; item descriptor - "Continue"
			DC.W	00				; item value
			DC.W	0				; item flag
			DC.L	0				; item color

		EXPORT	item2_320
item2_320	DC.W	2	; id
			DC.W	3,55,63,225			; bounds rect for text
			DC.W	LongStatText		; type
			DC.L	Msg1_320			; item descriptor
			DC.W	Len_Msg1_320		; item value
			DC.W	0					; item flag
			DC.L	0					; item color
 

		EXPORT	Msg1_320
Msg1_320	DC.B	$0d
			DC.B	'The modem port is not'
			DC.B	$0d
			DC.B	'selected in the Control'
			DC.B	$0d
			DC.B	'Panel.'
Len_Msg1_320 equ *-Msg1_320

 
		ENDP

 
		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/Modem/makefile b/IIGS.601.SRC/GSToolbox/PrinterDrivers/Modem/makefile
new file mode 100644
index 0000000..23f2758
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/Modem/makefile
@@ -0,0 +1 @@
+modem		Ä		modem.asm.obj dialogdata.asm.obj 
    Linkiigs modem.asm.obj dialogdata.asm.obj -o modem -t $BB -at $0002
	

Modem.asm.obj	Ä		Modem.asm
	asmiigs Modem.asm
	
DialogData.asm.obj	Ä		dialogdata.asm
	asmiigs dialogdata.asm
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/Modem/modem.asm b/IIGS.601.SRC/GSToolbox/PrinterDrivers/Modem/modem.asm
new file mode 100644
index 0000000..a5bee7d
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/Modem/modem.asm
@@ -0,0 +1 @@
+*****************************************************************
*
*                     The Print Manager 
*                     Modem Port Driver
*
* Coding Started Summer 1986 by Luc Barthelet and VersionSoft
*
* Current Rev
*
* V1.0    May 06, 1987        Suki Lee
*
* V1.1    Aug 06, 1987        Suki Lee
* Added code to initialize printer in DevOpen. Some file were
* not able to be printed without the initialization.
*
* Version 1.2d1    May 9, 1988       Suki Lee
*
*	Added capability to read data from the printer, so we can get the ID from it.
*   In DevOpen, added calls to set the printer as input device as well. In DevRead,
*   added wait and status mechanisms, and changed call from ReadBlock to ReadLine.
* 
*
* Version 1.3
*
* June 30, 1988         Suki Lee
*    Changed macro _WriteBlock to its new name: _TextWriteBlock. 
*    Eliminated need to use Special.Macros.
*
* August 2, 1988        Suki Lee
*    Bug Fix:
*    - In system disk 4.0, the ID string from the LQ arrives sooner than the firm-
*      ware is ready to read it (due to interrupts). I/O buffering will have to be
*      enabled right after initialization rather than just before a read. Moved the
*      buffer enable code from DevRead to DevOpen. Also took out call to GetModeBits
*      to check if buffering is already on since it doesn't hurt to have it on.
*
* August 12, 1988
*    Bug FIx:
*    - Carry was not set correctly after DevWrite, causing problems in the ImageWriter 
*      driver when printing in draft mode.
*
* v2.0
* d1 October 10, 1988      Suki Lee
*    Fixed DevStartUp to remove two pointers off the stack since the same call in
*    the AppleTalk driver uses two pointers as input.
*
* d2 December 2, 1988      Suki Lee
*    The new ROM allows slot 1 and 2 to be selectable among 3 options: Printer 
*    (or Modem), AppleTalk, or Your Card. The present code checks the slot state
*    to determine if the slot is internal or external. This will not work for new
*    ROMs since AppleTalk is considered internal. The code is modified to check
*    ROM version number and check the appropriate location to determine if the slot
*    is configured correctly.
*
* d3 December 16, 1988     Suki Lee
*    Added new header to denote this as a driver which will support new calls.
*    This header is 2 words long: first word is 0 followed by a call count word.
*
* d4 January 6, 1989      Suki Lee
*    Buffering in the firmware is enabled so we can read the self ID response from 
*    the printer. There is problem with handshaking with the printer if the buffer
*    is turned off so we left it on. AppleWorks GS ran into a problem where the 
*    reset for the next page happens before last part of the page is finished, 
*    losing the remaining data. Mike Askins suggests adding code to query the output  
*    queue to make sure it is empty before the next firmware reset. Also added a 
*    flag to skip the query if the firmware has not been initialized.
*
* d5 January 18, 1989     Suki Lee
*    Removed DevInitBack since none of the code is used. Replaced it with DevAsyncRead
*    with the corrected number of parameters, 4 instead of 3. Renamed DevFillBack to
*    DevWriteBack and corrected the number of parameters from 2 to 3. Both these calls
*    currently do nothing and are not used by the printer drivers.
*
*    January 25, 1989     Suki Lee
*    Added code to reset firmware after printing so the firmware's buffers will be 
*    deallocated. Also added code to remember and reset the output redirection back 
*    to the way we found it.
*    
*    May 25, 1989         Suki Lee
*    Moved the code which queries the output buffer from DevOpen to DevClose, just 
*    before the firmware init call. The firmware was being initialized before the  
*    buffer is cleared causing the system to hang in DevOpen for the next job, waiting 
*    for a buffer which has been deallocated to clear.
*
*    August 22, 1989      Ben Koning
*    Added a zap ("Ignore all subsequent ^I commands") command to DevOpen, so that
*    ^I's ($09 or $89) in the data stream won't be interpreted and filtered out by
*    the firmware.  Removed similar zap code from DevRead.
*
*
* v2.1
*
* d1 December 15, 1989      Suki Lee
*    Modified the stack offset for DevAsyncRead to not include dpage and bank address
*    since the call never switches dpage.
*
* d2 January 2, 1990        Ben Koning
*    Modified to not use pushptr macro.
*
* d3 May 3, 1990			Ben Koning
*    If the Battery-RAM parameters indicate 19.2K baud with all other default settings, we
*    bypass the texttool/serial-firmware and communicate with the SCC chip directly in the
*    DevWrite call only.  This allows true 19.2K baud output until a better SCC driver
*    is written.  2X perfomance gain; important for high resolution printers such as LQ, which
*    becomes about 72% faster.
*
* d4 May 26, 1990			Ben Koning
*    Same change as in PRINTER port driver: If the current printer driver is version 4.0 or
*    greater then the timeout delay in PrDevRead is about 2 seconds, instead of about 45
*    seconds.  Critical for backward compatibility with old IW driver, which does head
*    recalibration just before doing a read and so must have a longer timeout delay.
*
* d5 June 4, 1990			Ben Koning
*    In the 19.2K baud handling code, the DCD and DSR handshake lines weren't being checked.
*
*****************************************************************

*****************************************************************
*
*                    Copyright 1986-1990
*                    Apple Computer, Inc.
*                    All Rights Reserved
*
*****************************************************************

;------------------------------------------
;
; Equates from procedure 
;
;------------------------------------------
VersionNb      equ $0201               ; Version 2.1
NoError        equ 0                   ; No error
PortNotOn      equ $1302               ; Port not active 
True           equ $FFFF
False          equ $0000

;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

	IMPORT	alerttemp320
	IMPORT	alerttemp640

;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

	ENTRY	CallCompletion
	ENTRY	Completion
	ENTRY	DevAsyncRead
	ENTRY	DevClose
	ENTRY	DevWriteBack
	ENTRY	DevIsItSafe
	ENTRY	DevOpen
	ENTRY	DevPrChanged
	ENTRY	DevRead
	ENTRY	DevShutDown
	ENTRY	DevStartup
	ENTRY	DevStatus
	ENTRY	DevWrite
	ENTRY	Exit10
	ENTRY	Exit4
	ENTRY	Exit6
	ENTRY	Exit8
	ENTRY	IsItSafe
	ENTRY	PortAlert
	ENTRY	PrPortVer
	ENTRY	exit0

*               Absaddr on
*               Keep   modem
		include 'all.macros'
		
 
		EXPORT	Modmeport   
Modmeport   PROC

;-----------------------------------------------------------
;
; Header to denote new calls supported
;

	DC.W 0							; marker
	DC.W (EndProcList-ProcList)/4 ; count of calls supported

               jmp (ProcList,x)
               rtl

		EXPORT	ProcList
ProcList	DC.L	DevPrChanged
			DC.L	DevStartup
			DC.L	DevShutDown
			DC.L	DevOpen
			DC.L	DevRead
			DC.L	DevWrite
			DC.L	DevClose
			DC.L	DevStatus
			DC.L	DevAsyncRead
			DC.L	DevWriteBack
			DC.L	PrPortVer
			DC.L	DevIsItSafe
EndProcList

		ENDP
;                Copy Device.mod
***************************************************************
*
* PrPortVer 
*
* Returns version # of currently installed port
* 
***************************************************************
		EXPORT	PrPortVer      
PrPortVer      PROC
               DefineStack
Rtl1           Block 3
Rtl2           Block 3
Version        Word 0
 
               lda #VersionNb
               sta Version,s

               lda #0 
               jmp exit0
 
		ENDP

 
***************************************************************
*
* DevPrChanged
*
*     PtrToName    LONG
*
*  
* 
***************************************************************
		EXPORT	DevPrChanged   
DevPrChanged   PROC


               jsr IsItSafe
               bcc Yes

               pha
               jsr PortAlert
               pla

Yes            jmp Exit4

		ENDP


***************************************************************
*
* DevStartup
*
*        LONG	pointer to printer name
*        LONG	pointer to zone name
*
* call does nothing for serial ports
* 
***************************************************************
		EXPORT	DevStartup     
DevStartup     PROC
 
               jsr IsItsafe
               jmp Exit8

		ENDP
 
***************************************************************
*
* DevShutDown
*
*    no inputs
* 
***************************************************************
		EXPORT	DevShutDown    
DevShutDown    PROC

               jsr IsItSafe
               jmp Exit0

		ENDP
 
***************************************************************
*
* DevOpen
*
*     OpenCompletion    LONG
*     Reserved          LONG
* 
***************************************************************
		EXPORT	DevOpen        
DevOpen        PROC
               DefineStack
DevOpen_DPage  word 0
DevOpen_BReg   byte 0
DevOpen_rtl1   block 3
DevOpen_rtl2   block 3
Reserved       long 0
OpenCompletion long 0

               jsr IsItSafe
               bcc Yes
               jmp Exit8

		EXPORT	Yes
Yes	; 

               phd
               phb
               phk       
               plb
               lda OpenCompletion,s
               sta Completion
               lda OpenCompletion+2,s
               sta Completion+2



;-----------------------------------------------------------
;
; Find out what printer driver is requesting our services.  If v4.0 or greater, then
; setup for shorter read-call timeout delay.
;
               stz IsNewPrDrvrFlag
			   pha
			   _PrDriverVer
			   pla
			   cmp #$0400
			   bcc isnewpr_no
			   lda #1
			   sta IsNewPrDrvrFlag
isnewpr_no


			   
;-----------------------------------------------------------
;
; Need to save all old settings for input and output device for restoring later
; in DevClose.
;

				lda #0
				pha					; word space
				pha
				pha					; long space
				_GetInputDevice
				pla
				sta InputSlot
				pla					; high word
				sta InputSlot+2
				pla
				sta InputType
				
				lda #0
				pha					; two word spaces
				pha
				_GetInGlobals
				pla
				sta InOrMask
				pla
				sta InAndMask
				
				lda #0
				pha					; word space
				pha
				pha					; long space
				_GetOutputDevice
				pla
				sta OutputSlot
				pla					; high word
				sta OutputSlot+2
				pla
				sta OutputType
				
				lda #0
				pha					; two word spaces
				pha
				_GetOutGlobals
				pla
				sta OutOrMask
				pla
				sta OutAndMask
				
;-----------------------------------------------------------
;
; Set it up for our use now
;

               PushWord #1
               PushLong #2
               _setInputDevice

               PushWord #$ffff
               PushWord #0
               _setInGlobals

               PushWord #0
               _inittextDev
			   
               PushWord #1
               PushLong #2
               _setOutputDevice

               PushWord #$ffff
               PushWord #0
               _setoutGlobals

               PushWord #1
               _inittextDev

               pushlong #InitGraph+1      ; newly added
               pushword #0
               lda InitGraph
               and #$00ff
               pha
               _TextWriteBlock

;-----------------------------------------------------------
;
; We need to enable the buffering for input characters via the firmware.
; Experience has shown that if the input buffering is disabled, we can 
; only get two characters from the ReadLine call. 
;
			   
			   pushlong #BuffEnable			; turn I/O buffering on
			   _WriteString
			   
;-----------------------------------------------------------
;
; Finally, make sure that no characters are interpreted by the firmware
; as commands (ie, send all data RAW).
;

			   pushlong #Zap					; ignore all subsequent ^I commands
			   _WriteString



;-----------------------------------------------------------
;
; Check to see if the Battery-RAM settings for slot 2 imply 19.2K baud/"printer connected"
; with all other default options.  If so, then set flag to allow direct
; SCC communication/firware bypass kludge for greater speed.
;

NKBaudQualify

				stz NKBaudEnableFlag			;clear enable flag; assume not defaults/19.2KB

				ldy #0							;prepare to loop to check BRAM against our table
NKBaudQualLoop	phy								;save Y = index into tables
				lda NKBaudBattRAMLocs,y			;find out a BRAM parameter that we should check
				pha								;result space
				pha								;pass BRAM param no.
				_ReadBParam
				pla								;obtain BRAM value
				ply								;restore Y = index into tables
				cmp NKBaudBattRAMVals,y			;compare BRAM value against table
				bne NKBaudQualDone				;break off the search as soon as one doesn't match
				iny								;else continue checking
				iny
				cpy #NKBaudBattRAMLen
				bne NKBaudQualLoop
				lda #1							;all BRAM params are as we want, so set enable flag
				sta NKBaudEnableFlag
				
NKBaudQualDone



;-----------------------------------------------------------
;
; Call user's completion routine, if any, and exit.
			   
               jsl CallCompletion
               plb
               pld
               jmp Exit8

		EXPORT	CallCompletion
CallCompletion		;		
               lda Completion
               ora Completion+2
               bne doit
               Rtl
		EXPORT	Doit
Doit	; 
               lda Completion+1
               pha
               phb
               pla
               lda Completion
               sec
               sbc #1
               pha
               rtl
		EXPORT	Completion
Completion		;		
		DS.B 4
 
		EXPORT	InitGraph
InitGraph	DC.B	14
	DC.B	09,67,68				; disable line length
	DC.B	09,84					; disable basic tab
	DC.B	09,70,68				; disable keyboard input
	DC.B	09,77,68				; disable filtering LF
	DC.B	09,76,68				; disable LF after CF

Zap				DC.B 2
				DC.B $09
				DC.B 'Z'	;  zap

BuffEnable		DC.B 3		; length
				DC.B $09	; Control-I
				DC.B 'BE'	; Enable buffer



						export	IsNewPrDrvrFlag
IsNewPrDrvrFlag			dc.w	0				



NKBaudBattRAMLen		equ		2*11
NKBaudBattRAMLocs		dc.w	$14,$12,$0D,$13,$0E,$0F,$11,$10,$15,$16,$17
NKBaudBattRAMVals		dc.w	2,14,0,6,0,0,0,0,1,1,0

						export	NKBaudEnableFlag
NKBaudEnableFlag		dc.w	0



			EXPORT InputSlot
InputSlot	DS.B 4
			EXPORT InputType
InputType	DS.B 2
			EXPORT InOrMask
InOrMask	DS.B 2
			EXPORT InAndMask
InAndMask	DS.B 2
			EXPORT OutputSlot
OutputSlot	DS.B 4
			EXPORT OutputType
OutputType	DS.B 2
			EXPORT OutOrMask
OutOrMask	DS.B 2
			EXPORT OutAndMask
OutAndMask	DS.B 2
							
		ENDP

 
***************************************************************
*
* DevRead
*
*    Input:    PutToBuffer  LONG
*              Max to Xfer  WORD
*
*    Output:   Bytes read   WORD 
* 
***************************************************************
		EXPORT	DevRead        
DevRead        PROC
               DefineStack
DevRead_DPage  word 0
DevRead_BReg   byte 0
DevRead_rtl1   block 3
DevRead_rtl2   block 3
ReadRqd        word 0
PtrReadBuf     long 0
readTrnsfrd    word 0


               jsr IsItSafe
               bcc Yes
               jmp Exit6

Yes	; 

               phd
               phb
               phk
               plb

			   lda PtrReadBuf+2,s
			   sta readBuf+2
			   lda PtrReadBuf,s
			   sta readBUf
			   lda ReadRqd,s
			   sta requestCount

;-----------------------------------------------------------
;
; Aug 2, 1988 Suki Lee
; Moved buffer enable code to DevOpen. Also removed extended interface call 
; to firmware to check if buffer is enabled
;

;-----------------------------------------------------------
;
; This read routine has a timeout delay.  In the old printer drivers (<4.0),
; the status-query read is done right after the given command to perform
; head recalibration.
;
; The ImageWriter II will not respond while the print head is moving. 
; Since we always reset the printer for each print job, it means that
; the head is always moving.  The only difference is the distance it has
; to travel to the left edge.  This counter value will work for the worst
; case of when the printer was at the right edge when it was reset.  The
; wait is noticable on ImageWriter I's since it has to wait out the whole
; count.
;
; The above will now happen only if the current printer driver version is
; less than 4.0; otherwise, a much shorter timeout value is used.
;
			   
			   lda #$FFFF				; wait loop counter = $FFFF if old printer driver (~45 s)
			   import IsNewPrDrvrFlag
			   ldx IsNewPrDrvrFlag
			   beq setup_counter
			   lda #$0B00				; wait loop counter is less if new printer driver (~2 s)
setup_counter  sta counter
			   
LoopStatus
			   lda #0
			   pha
			   pha
			   pha
			   pha						; result spaces
			   inc a					; A reg: input request = 1
			   pha						
			   lda #$00C2				; X reg
			   pha
			   lda #$0020				; Y reg
			   pha
			   lda >$00C210				; status offset
			   clc
			   adc #$C200				; entry point
			   pha
			   _FWEntry
			   pla
			   pla
			   pla
			   pla						; get processor status
			   xba						; only high byte is valid
			   and #$0001				; check the carry bit
			   bne TimeToRead			; 0 means not ready yet
			   lda counter
			   dec a
			   beq Exit
			   sta counter
			   bra loopStatus

TimeToRead	   pha						; result: actual read count
			   PushLong readBuf
			   lda requestCount			; amount to be read
			   pha
			   lda #$0D					; EOL char = carriage return
			   pha
			   lda #0
			   pha						; don't echo
			   _ReadLine
			   pla
Exit		   sta ReadTrnsfrd,s
			
;-----------------------------------------------------------
;
; The following two line of code were taken out because it cause some
; problem with handshaking between the firmware and the printer. Mike 
; Askins is unsure of the exact cause at this point and this code is
; left here so a test case can be recreated for him
;
			   
;			   pushlong #BuffDisable		; we did, so we turn it back off
;			   _WriteString
			   
			   plb
               pld
               jmp Exit6


readBuf			DS.B 4
requestCount	DS.B 2
counter			DS.B 2

		ENDP

***************************************************************
*
* DevWrite
*
*   Writecompletion    LONG
*   PtrToBuffer        LONG
*   Length             WORD
* 
***************************************************************
		EXPORT	DevWrite       
DevWrite       PROC
               DefineStack
DevWrite_DPage word 0
DevWrite_BReg  byte 0
DevWrite_rtl1  block 3
DevWrite_rtl2  block 3
WriteLengths   word 0
WritePtrBuff   long 0
WriteCompletion long 0



                jsr IsItSafe
                bcc WriteSafe
                brl Exit10 

WriteSafe
                phd							;save D, save B, do B=K
                phb
                phk
                plb
                lda WriteCompletion,s		;setup so we can call user's completion routine
                sta Completion+0
                lda WriteCompletion+2,s
                sta Completion+2


			   
				import NKBaudEnableFlag		;check to see if default/19.2KBaud is selected
				lda NKBaudEnableFlag		;if so then do our fast shortcut kludge
				beq WriteNKBNo				;otherwise write the data through the firmware

WriteNKBYes
				lda WritePtrBuff+0,s		;writing the data out directly to the SCC chip...
				sta WriteNKBGetData+1		;set up stuffed operands
				lda WritePtrBuff+2,s
				shortm
				sta WriteNKBGetData+3
				longm
				lda WriteLengths,s
				sta WriteNKBCmpLen+1

				ldx #0						;init counter into user's data, set 8-bit mode
				shortm
WriteNKBLoop	lda >$E0C038				;poll SCC ch. B command register bit, see if chip ready
				tay
				bit #%00000100				;check: b5)DSR, b3)DCD, b2)TxBuffer ready
				beq WriteNKBLoop
				tya
				bit #%00100000
				beq WriteNKBLoop
				tya
				bit #%00001000
				beq WriteNKBLoop
WriteNKBGetData	lda >$FFFFFF,x				;NOTE: operand is stuffed.  get a byte from user
				sta >$E0C03A				;write into SCC ch. B data register
				inx							;advance our pointer into user's data
WriteNKBCmpLen	cpx #$FFFF					;NOTE: operand is stuffed
				bcc WriteNKBLoop
				longm						;reset to 16-bit mode when done
				
				jsl CallCompletion			;call user's routine, restore B/D, exit no error
				lda #0
				plb
				pld
				brl Exit10
				
WriteNKBNo


			   
                lda WritePtrBuff+2,s		;writing the data out through the serial firmware...
                pha
                lda WritePtrBuff+2,s
                pha
                lda WriteLengths+4,s
                tax
                lda #0
                pha
                phx
                _TextWriteBlock				;text tool call, calls serial firmware
				
			    pha							;exiting: save error
                jsl CallCompletion			;call user's routine
			    pla 						;restore error in A
                plb							;restore B, restore D, and exit
                pld
                brl Exit10
				


				ENDP




***************************************************************
*
* DevClose
* 
* no parameters
*
***************************************************************
		EXPORT	DevClose       
DevClose       PROC

               jsr IsItSafe
			   bcc CloseSafe
               Jmp Exit0

CloseSafe      
               phd
               phb
               phk
               plb

			   php			   
			   sei				; disable interrupts
			   
				lda #0
				pha
				pha
				pha
				pha					; result spaces
				lda #GetModeBitsParam
				tax	
				and #$00FF			; A reg: low byte of address of parameters
				pha				
				txa 				; X reg: mid byte of address
				xba
				and #$00FF
				pha
				lda #^GetModeBitsParam ; Y reg: high byte of address
				and #$00FF
				pha
				lda >$00C212		; extended interface offset
				clc
				adc #$C200			; entry point
				pha
				_FWEntry
				pla
				pla
				pla
				pla	

				lda GetModeBits
				sta SetModeBits
				lda GetModeBits+2
				and #$FF7F			; clear the zap bit
				sta SetModeBits+2	

				lda #0
				pha
				pha
				pha
				pha					; result spaces
				lda #SetModeBitsParam
				tax	
				and #$00FF			; A reg: low byte of address of parameters
				pha				
				txa 				; X reg: mid byte of address
				xba
				and #$00FF
				pha
				lda #^SetModeBitsParam ; Y reg: high byte of address
				and #$00FF
				pha
				lda >$00C212		; extended interface offset
				clc
				adc #$C200			; entry point
				pha
				_FWEntry
				pla
				pla
				pla
				pla	
				
				plp				; reenable interrupt
				
				lda #0
				pha
				pha
				pha
				pha					; result spaces
				lda #GetOutBufferParam
				tax	
				and #$00FF			; A reg: low byte of address of parameters
				pha				
				txa 				; X reg: mid byte of address
				xba
				and #$00FF
				pha
				lda #^GetOutBufferParam ; Y reg: high byte of address
				and #$00FF
				pha
				lda >$00C212		; extended interface offset
				clc
				adc #$C200			; entry point
				pha
				_FWEntry
				pla
				pla
				pla
				pla	
	
loopQuery		lda #0
				pha
				pha
				pha
				pha					; result spaces
				lda #OutQStatusParam
				tax	
				and #$00FF			; A reg: low byte of address of parameters
				pha				
				txa 				; X reg: mid byte of address
				xba
				and #$00FF
				pha
				lda #^OutQStatusParam ; Y reg: high byte of address
				and #$00FF
				pha
				lda >$00C212		; extended interface offset
				clc
				adc #$C200			; entry point
				pha
				_FWEntry
				pla
				pla
				pla
				pla					
				lda BufferLeng
				dec a				
				cmp SpaceLeft
				bne loopQuery
	
;-----------------------------------------------------------
;
; Reset the firmware so the buffer will be disposed of
;

			   pushlong #ResetFW
			   _WriteString
			   
			   
;-----------------------------------------------------------
;
; Reset the input and output devices to whatever it was before we changed it.
;

			   PushWord InputType	; Pascal device type
               PushLong InputSlot	; slot number
               _setInputDevice

               PushWord InAndMask
               PushWord InOrMask
               _setInGlobals

               PushWord #0
               _inittextDev
			   
               PushWord OutputType	; Pascal device type
               PushLong OutputSlot	; slot number
               _setOutputDevice

               PushWord OutAndMask
               PushWord OutOrMask
               _setoutGlobals

               PushWord #1
               _inittextDev
			    
               plb
               pld
               jmp Exit0
			   

GetModeBitsParam	
			DC.B $03		; parameter count
			DC.B $00		; command code for GetModeBits
			DS.B 2			; result code
GetModeBits	DS.B 4			; Mode bits
			
SetModeBitsParam	
			DC.B $03		; parameter count
			DC.B $01		; command code for SetModeBits
			DS.B 2			; result code
SetModeBits	DS.B 4			; Mode bits
			
GetOutBufferParam	
			DC.B $04	; parameter count
			DC.B $11	; command code for GetOutBuffer
			DS.B 2		; result code
			DS.B 4		; buffer address
BufferLeng	DS.B 2		; buffer length
			
OutQStatusParam	
			DC.B $04	; parameter count
			DC.B $17	; command code for OutQStatus
			DS.B 2		; result code
SpaceLeft	DS.B 2		; number of char in output queue
			DS.B 2		; reserved
				
ResetFW		DC.B 3			; length
			DC.B $09		; Control-I
			DC.B 'R'		; Reset firmware
			DC.B $0D		; carriage return

		ENDP

 
***************************************************************
*
* DevStatus
*
*     ???????   LONG 
* 
***************************************************************
		EXPORT	DevStatus      
DevStatus      PROC

               jsr IsItSafe
               jmp Exit4
 
		ENDP

***************************************************************
*
* DevAsyncRead
*
*    CompletionRoutine   LONG
*    RequestCount        WORD
*    PtrToBuffer         LONG
* 
* output:
*    actual length read	 WORD
*
***************************************************************
		EXPORT	DevAsyncRead   
DevAsyncRead   PROC
               DefineStack

AsyncRead_rtl1 block 3
AsyncRead_rtl2 block 3
ReadBuffer     long 0
ReadLength     word 0
ReadComplete   long 0
ActualLength	word 0

               jsr IsItSafe
               bcc Yes 
               jmp Exit10

Yes	; 
			   lda #0
			   sta actualLength,s
			   
               jmp Exit10


		ENDP



***************************************************************
*
* DevWriteBack 
*    Completion routine ptr
*    BufferSize
*    BufferAddress
*
***************************************************************
		EXPORT	DevWriteBack    
DevWriteBack    PROC

               jsr IsItSafe
               jmp Exit10 

		ENDP

***************************************************************
*
* DevIsItSafe
* 
*    Output:  Safety    WORD    boolean
*
* 
* EntryPoint to driver from outside.
*
* Safety is true if it is safe, false if not.
* 
***************************************************************
		EXPORT	DevIsItSafe    
DevIsItSafe    PROC
               DefineStack
Rtl1           block 3
Rtl2           block 3
Result         word

               jsr IsItSafe
               bcc Yes

               lda #False
               sta Result,s

Join           lda #0
               jmp Exit0

Yes            lda #True
               sta Result,s
               bra Join

		ENDP

 

****************************************************************
*
* PortAlert
*
* Alert box to tell user that the appropriate port is not turned
* on.
*
* no parameters on stack
*
****************************************************************
		EXPORT	PortAlert      
PortAlert      PROC

 
               _InitCursor              ; restore cursor back to arrow

               pha                      ; make room for result
               _GetMasterSCB
               pla
               pha                      ; make room for result of alert call 
               and #$80                 ; check mode 
               beq mode320              ; 320 mode

               pushlong #alerttemp640   ; use 640 mode template
               bra GoOn

mode320        pushlong #alerttemp320   ; use 320 mode template

GoOn           pushlong #$0000
               _StopAlert

;              jsr WaitCursor           ; set to watch again
 
               pla                      ; get the item hit off stack

               rts


		ENDP
 
***************************************************************
*
* IsItSafe
*
* Returns carry set if and a-reg with error code if it is
* not safe.
*
* A-reg is clear and carry clear if it is safe.
* 
* 
***************************************************************
		EXPORT	IsItSafe       
IsItSafe       PROC
 
				lda >$E0C02D            ; Read slot state.
				and #$0004           	; bit 2 set means external
				bne NotOn
 
				pha						; it's internal, so find out if it's
				pha						; AppleTalk or serial firmware
				pha
				pha						; 4 word spaces for result
				pha						; A reg value, don't care
				pha						; x reg value, don't care
				pha						; y reg value, don't care
				lda #$FE1F				; the entry point to a routine which
				pha						; returns system information
				_FWEntry
				pla						; Y register has ROM version
				plx						; get unused values off stack
				plx
				plx	
				and #$00FF				; in bits 7 - 0
				cmp #3					; Version 3 or greater has AppleTalk
				blt ExitSafe			; in slots 1 or 2
 
				lda >$E101C0			; Read AppleTalk port location
				and #$00FF				; lo byte only
				cmp #2					; AppleTalk is in Slot 2
				bne ExitSafe 

NotOn			lda #PortNotOn          ; set error to port not turned on
				bra ExitNotSafe

ExitSafe 
				lda #0					; no problems
ExitNotSafe		cmp #1
				rts
		ENDP
 
;                Copy DynamicExits
		EXPORT	DynamicExits    
DynamicExits    PROC
* in a Dynamic exit we need to save 2 RTLs

		EXPORT	exit20
exit20		;		
               tax
               lda  5,s
               sta  25,s
               lda  3,s
               sta  23,s
               lda  1,s
               sta  21,s
               tsc
               clc
               adc  #20
               tcs
               txa
               brl  exit0

		EXPORT	Exit16
Exit16		;		
               tax
               lda 5,s
               sta 21,s
               lda 3,s
               sta 19,s
               lda 1,s
               sta 17,s
               tsc
               clc
               adc #16
               tcs
               txa
               brl Exit0

		EXPORT	Exit14
Exit14		;		
               tax
               lda 5,s
               sta 19,s
               lda 3,s
               sta 17,s
               lda 1,s
               sta 15,s
               tsc
               clc
               adc #14
               tcs
               txa
               brl Exit0

		EXPORT	Exit12
Exit12		;		
               tax
               lda 5,s
               sta 17,s
               lda 3,s
               sta 15,s
               lda 1,s
               sta 13,s
               tsc
               clc
               adc #12
               tcs
               txa
               bra Exit0

		EXPORT	Exit10
Exit10		;		
               tax
               lda 5,s
               sta 15,s
               lda 3,s
               sta 13,s
               lda 1,s
               sta 11,s
               tsc
               clc
               adc #10
               tcs
               txa
               brl Exit0

		EXPORT	Exit8
Exit8		;		
               tax                      ; Standart 8 bytes input exit
               lda 5,s
               sta 13,s
               lda 3,s
               sta 11,s
               lda 1,s
               sta 9,s
               pla
               pla
               pla
               pla
               txa
               brl Exit0

		EXPORT	Exit6
Exit6		;		
               tax                      ; Standard 6 bytes input exit
               lda 5,s
               sta 11,s
               lda 3,s
               sta 9,s
               lda 1,s
               sta 7,s
               pla
               pla
               pla
               txa
               brl Exit0

		EXPORT	Exit4
Exit4		;		
               tax                      ; Standard 4 bytes input exit
               lda 5,s
               sta 9,s
               lda 3,s
               sta 7,s
               lda 1,s
               sta 5,s
               pla
               pla
               txa
               brl Exit0

		EXPORT	Exit2
Exit2		;		
               tax                      ; Standard 2 bytes input exit
               lda 5,s
               sta 7,s
               lda 3,s
               sta 5,s
               lda 1,s
               sta 3,s
               pla
               txa
		EXPORT	Exit0
Exit0		;		
               cmp #1              	 	; Standard 0 byte input exit
               rtl

		ENDP
		
		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/Modem/special.macros b/IIGS.601.SRC/GSToolbox/PrinterDrivers/Modem/special.macros
new file mode 100644
index 0000000..3cd0ee4
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/Modem/special.macros
@@ -0,0 +1 @@
+ MACRO
&lab _WriteBlock
&lab ldx #$1E0C
 jsl $e10000
 MEND
 MACRO
&lab _ReadBlock
&lab ldx #$230C
 jsl $e10000
 MEND
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/NEW.IW/README b/IIGS.601.SRC/GSToolbox/PrinterDrivers/NEW.IW/README
new file mode 100644
index 0000000..797d1e2
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/NEW.IW/README
@@ -0,0 +1 @@
+
APPLE IIGS IMAGEWRITER PRINTER DRIVER 4.2 	--		TECHNICAL DESCRIPTION (ERS)

Written by Ben Koning

Based on ImageWriter LQ driver by Ben Koning

Partially based on original ImageWriter LQ low-level driver by Jason Harper

June 1991



GENERAL

The ImageWriter printer driver, version 4.0, is a fully rewritten Apple IIgs
printer driver based on the new "4.0" printer driver for the ImageWriter LQ,
thus taking advantage of the latter driver's numerous speed and feature
enhancements.  It should be installed with the following pathname and type:

*/SYSTEM/DRIVERS/IMAGEWRITER		type=$BB	auxtype=$0001

This driver contains the new type of entry point (starting with the zero
byte), and uses pop-up menus and the improved Control Manager tool set.
Therefore, it will only operate on System Disk 5.0 or later.

A new call, PrGetPrinterSpecs, is supported, which checks to see if the
device connected is really an ImageWriter and returns information regarding
the existence of a color or black/white ribbon.



DIALOGS AND USER COMMUNICATION

Existence or nonexistence of the Cut Sheet Feeder and Color Ribbon options
is manifested by enabled or disabled (dimmed) items in the Job Dialog, even
if printer over a direct-connect port driver; the printer is actually polled
to check for these items.  WARNING: A new version of the various port drivers,
which offer nonblocking I/O to direct-connect devices, should be available.
Otherwise, if no printer is on-line, selecting the Job Dialog will cause the
system to hang.  If a port driver which does support nonblocking I/O (such as
AppleTalk) and the printer isn't on line, the Job Dialog call issues an alert
and returns the portNotOn tool error code.

Pop-up menus and the new control manager calls are used; better progress
indicators showing the number of sheets left to print, printer port error
messages with priority, etc., have been implemented.  All text is located
within one source code file for easy localization.

If the Shift-Option-Apple keys are down while the PrStlDialog or PrJobDialog
is being called, an about box will appear.

If bit 15 of wDev is set in the print record (by an application), then the
status message box usually displayed during the printing process is not shown.
The cursor is still changed to WaitCursor/InitCursor, however, and the manual
feed dialog box is still shown if required.



NEW DRAFT (TEXT) PRINTING FEATURES

For draft printing, a mini-spooling method (see below for the actual spooling
methodology) has been implemented which allows multiple-copy draft-mode printing
to work (most applications do not print more than one copy when requested in
draft mode when the old ImageWriter II driver is selected).  Applications which
repeat the printing loop in order to print the extra copies should set the
oiCopies field of the print record to 1 before executing the printing loop(s).
In addition, this methodology allows top-to-bottom printing, so that reverse
paper feed (which isn't possible because of the way the Cut Sheet Feeder works)
is not necessary.

In draft printing, font attributes such as boldface, underline, italic, point
size, and font name, as well as special international characters, are all
considered dynamically while selecting an appropriate native ASCII
characters.  The code is optimized so that characters are sent to the printer
in blocks.  These blocks are flushed when an international character is printed
or when the end of a QuickDraw string is reached.  Thus, printing many small
strings or many consecutive international characters will result in lower
speed performance.



"SPOOL" (GRAPHICS) PRINTING FEATURES

Standard-resolution graphics printing and 2X high resolution graphics printing
are offered, with 50% vertical condense and 100/50% life size scaling
options, in portrait or landscape orientations.  A fast mode which is Standard
resolution without enabling boldface and unidirectional printing is also
supported.

In the 2X high-quality ("Better") graphics mode, the off-screen graphics are
drawn at 200% life size, resulting in improved resolution for mathematically
defined QuickDraw objects such as ovals, rects, roundrects, etc., as well as
fonts, provided large font sizes are installed in the current system.  The IW
then prints them using 2 times the number of printer pixels/inch, resulting in
an image with the same measurements at double resolution.

Thus, the meanings of the names in the Print Quality dialog item are as follows:

Name				Meaning
----				-------
Text Mode		ASCII text only; with approximate font mapping
Faster			Graphics, Drawn offscreen at 1X and printed unbold/bidirectional
Standard			Graphics; Drawn offscreen at 1X and printed bold/unidirectional
Best				Graphics; Drawn offscreen at 2X and printed bold/unidirectional

Because the 2X resolution at 144 pixels/inch in the vertical direction can only
be achieved by a method of interlaced printing (the minimum sheet feed distance
is half (1/144") of the spacing of the print head striker wires (1/72")), double
print passes and 1/144" reverse line feeds are performed in some cases.

The "Faster" mode is the only 1X mode that is actually printed at 80x72 dpi; the
"Standard" mode is actually printed at 160x72 dpi, so as to facilitate high
horizontal resolution in the halftone patterns.



SPEED PERFORMANCE ENHANCEMENTS

The new "Faster" mode prints in unbold/bidirectional.  However, Standard is the
default mode for user-expectation compatibility with the old IW driver.

While converting pixels from the offscreen bitmap to printer-ready graphics data,
a trivial-white-space elimination catalyst algorithm has been implemented.  It
attemps to determine the value of a 2-byte word full of white pixels, in order to
skip over large white areas very quickly.  A very general-case version of this
algorithm is in place in portrait mode and a limited version (with much more
severe restrictions, such as the white having to be in standard color table
locations) is in place in landscape mode.

For certain very special (but common) cases (640-mode portrait with hscaling=1),
pure black/white pixels whose RGB values come from standard color table locations
are imaged especially quickly by bypassing color system conversion in an unwound
loop.

Before the printer-ready pixel data is sent to the port driver, it is broken up
into chunks of zero, nonzero repeating, and nonzero nonrepeating head-fire byte
groups, and the printer's positioning, print-repeating-graphics, and print-non-
repeating-graphics commands are issued accordingly.  This run-length-encoding
scheme greatly improves speed performance while improving compactness of data to
be sent across communication channels or stored up in a background printing
spooler.

After the run-length-encoding scheme described above, the data is cached (in
most cases) before it is sent out to the current print manager port driver.
It is cached to never send packets smaller than an equate-defined limit (ie, 32)
and never larger than another equate-defined limit (510--dictated by appletalk
maximum packet size).



DATA SPOOLING METHODOLOGY

The new psuedo-"virtual memory" spool method is used by both the Draft (text)
and Standard/Better (graphics, or "spool") printing modes.

For spool printing, memory is allocated to memory and then disk virtually,
thus allowing arbitrary-length documents to be spooled, assuming enough disk
space is available, unlike the older ImageWriter driver. During the actual
printing, the band buffer size is also dynamically allocated; in many cases,
only one band and banding pass is necessary.

During print spooling, memory is allocated a block at a time, optionally
controllable by setting pFileBlockSize in the print record.  When total memory
in the system becomes less than a certain threshold, optionally controllable by
setting pFileMemLimit in the print record, the entire spool file in memory is
flushed to disk, and the memory space already allocated is subsequently used as
a buffer which is repeatedly flushed to disk when it fills up.  Memory is
allocated with a user ID whose "type" field is $1000.

If spooling to disk becomes necessary, the default pathname, optionally
controllable by modifying pFileName (which is set to long 0 by default)
in the print record, is:

*/SYSTEM/DRIVERS/TMP.XXXX		type=$00	auxtype=$0000 access=%Drb---WR

where the trailing X's are replaced by a random hexadecimal number.  If such
a filename already exists, then a different random suffix is used.  If the
user supplies its own filename, then no such unique suffix addition is done;
supplying one's own filename is not recommended due to possible filename
collisions when using shared volumes.  When disk spool playback is finished,
the file is deleted, whether or not it was supplied by the user.



COMMAND-PERIOD/IDLE PROCEDURE

The internal Command-Period-abort idle procedure is always executed in addition
to any user-installed idle procedure, unlike earlier drivers.



NEW PRINT RECORD FIELDS

Several new fields have been defined in the print record.  Most are set to
default (0) values during print record initialization (PrDefault); they may
be left alone or modified by the advanced user:

New Field Name		Offset		Offset	Size		Description
--------------		------		------	----		-----------
internA				prStl+2		$1A		word		MasterSCB during PrValidate
pFileBlockSize		printX+0		$64		long		Chunkiness of spool mallocs
pFileMemLimit		printX+4		$68		long		Spool min mem left in system
pCTable				printX+8		$6C		long		Color table for imaging
pSCBList				printX+12	$70		long		SCB list for imaging
wQuality				printX+16	$74		word		Internal quality mode selection
wPaperCrWidth		printX+18	$76		word		Variable crWidth value
wResScaling			printX+20	$78		word		Blow-up amount for Better quality

pFileBlockSize and pFileMemLimit are discussed in the section about the data
spooling algorithm above.  internA is examined by PrPicFile during banding buffer
memory allocation, for example.

If pCTable and PSCBList are left alone, the PrPicFile call will print with
the current screen color table and SCB list.  Alternatively, the user may
write their own pointers at these locations in the print record, so as to
avoid having to change screen colors.  Note that this will affect the entire
document being printed, however (unless they were changed in the recorded
picture definition by certain PicComments; see the section "COLOR CONTROL").

The following table describes the behavior of wQuality, along with two other
data in the print record which define the current print quality/method selection:

Name			wDev "Better" (bit)	bJDocLoop (byte)	wQuality (word)	Internal code
----			-------------------	----------------	---------------	-------------
Draft Mode	%0							$00					0						0
Faster		%0							$80					1						1
Standard		%0							$80					2						2
Better		%1							$80					3						3

Since it appears that most applications expect the "crWidth" field, in the
print record at offset oprStl+ocrWidth, to contain a constant value of 960 for
historical reasons, the new wPaperCrWidth field will contain actual carriage
width information based on the current paper type in use.  One of the uses of
this new field is to communicate from the metrics calculations to the imager in
order to inform the latter of where the right margin is for doing landscape, etc.,
based on the width of the current paper type.

The wResScaling is a constant which describes how much this printer driver scales
up the image (just prior to scaled-down printing at finer dot pitch) in order to
obtain higher resolution.



COLOR CONTROL WITHIN DOCUMENT

The SCBs/Color Tables used during the imaging of each page are taken from the
current screen values unless overridden by certain actions taken by the applica-
tion.  None of these actions will ever affect the colors on the display screen.

The colors used for imaging are taken from the following sources, starting with
the highest priority:

		1. pCTable/pSCBList print record fields, if not set to 0 (see above)
		2. PicComments (see below)
		3. Current screen values

Since PicComments are recorded as part of a picture definition, inserting these
PicComments provides a method of changing colors on the fly in a document.
Following the convention that all grafport settings are reset to default values
when each _PrOpenPage is called, all colors are assumed to be the current screen
values unless overridden by a PicComment unless overridden by field in the print
record.

Thus, for custom colors, the following PicComment should be made right after each
_PrOpenPage call, before doing any drawing:


		PICCOMMENT KIND=251 -- Fill A Color Table With New Values

		version			WORD			set to 0
		signature		WORD			set to $A55A
		tableno			WORD			set to 0..15 -- the table to be modified
		table				WORDS [16]	set to the new values for the color table
		reserved			LONG			set to 0
		
		
		
In order to use these different colors, an application must also be able to
modify the SCB's for each line from their screen-default ($80 or $00) values.
This can be accomplished by issuing another type of PicComment:


		PICCOMMENT KIND=252 -- Change A (Range) Of SCB Values
		
		version			WORD			set to 0
		signature		WORD			set to $A55A
		Y1					WORD			line no. of first SCB to change (0..rPage.Y2)
		Y2					WORD			line no. of last SCB to change (0..rPage.Y2)
		SCBvalue			WORD			scanline-control-byte
		reserved			LONG			set to 0
		


The driver internally uses a PicComment of its own, to keep track of where a
new page starts within the spooled data area filled with picture definitions
representing a page each.  For reference only, it looks like this:
		
		
		
		PICCOMMENT KIND=250 -- End Of Page Marker (Internal Driver Use Only)
		
		version			WORD			set to 0
		signature		WORD			set to $A55A

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/NEW.IW/RELEASE.NOTES b/IIGS.601.SRC/GSToolbox/PrinterDrivers/NEW.IW/RELEASE.NOTES
new file mode 100644
index 0000000..0c51fd7
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/NEW.IW/RELEASE.NOTES
@@ -0,0 +1 @@
+

APPLE IIGS
IMAGEWRITER DRIVER
TESTING
CURRENT AND PREVIOUS RELEASE NOTES
BEN KONING





-----

For easiest testing on the system disk, rename the file
"ImageWriter.Dxx" to "ImageWriter" while transferring from the
Macintosh to the Apple IIGS into the */SYSTEM/DRIVERS directory.  This
way you don't have to modify the "AT ImageWriter" CDEV.

The PRINTER and MODEM port drivers had a bug which caused the LQ driver
to print garbage on certain occasions (when $89 or $09 sent to port
driver by printer driver).  Please install the new versions in the
DRIVERS directory.

The PRINTER and MODEM have also been modified to support true 19.2K
baud output rate for the ImageWriter LQ.

The PRINTER and MODEM port drivers have been modified so that
response is much quicker if the printer was unconnected or in
recognizing that an ImageWriter I is connected.

-----





System Disk 6.0 ships here.





F38		8-Jan-92

Removed WaitCursor/InitCursor calls from status message routines.  Most applications
put up their own (wait) cursors anyway, and our WaitCursor call was causing problems
with applications such as HyperCard which do cursor animation with hi-bit-set
cursor record pointers.





F37		10-Dec-91

Paper sizes for International A4 and International Fanfold changed as per customer
request: X size increased from 132 to 136 80-dpi-pixels.  Untested.





F36		4-Dec-91

Dialog box radio buttons hit area now set to 0,0 so it's computed by toolbox.





F35		15-Nov-91

Dialog box tabbing for PrJobDialog works to all three LineEdit boxes.





F34		23-Aug-91

Printer soft reset command now includes setting the language to American.  Fixes
bug in text mode where our-nonmapped iw-mappable characters ("#", etc) would be
erroneously mapped if the DIP switches were set for any language other than American
(WE map everything and want the iw to not do any mapping of its own!).

Now storing zeros in our-picframe X1 and Y1 before we allow the user-supplied rect
(if any) to be copied in.  Retrofix bug fix from SW driver.





F33		20-Jun-91

Saying "Rendering page image" again; Bob doesn't like "Rasterizing".  Geez!





F32		19-Jun-91

Cosmetic: changed LineEdit box bounding rectangles and say "Rasterizing page image".

Added wDev bit 15: If set (by app), then during-printing status box is not shown.





F31		13-Apr-91

Got rid of commented-out stuff in spool.aii source file.

Incremented version number to 4.2.

Job dialog box no longer updates twice when first drawn.  Style dialog still
redraws twice because of its funky portrait/landcape controls.

Command-Period works (as well as ESC) as key-equivalent for Cancel in
both Setup and Job dialog boxes.

Saved code space by converting NotCorrectDevDialog to AlertWindow usage.

Saved code space by converting CheckAndDoAboutBox to AlertWindow usage; added
Bob Haven's name to about box.

Saved code space by using WaitUntil in ShowPrinterErrorStatus routine.





System Disk 5.0.4 ships here.





F30		2-Dec-90 6pm

The printer communication error (IW) and resending of imager-call-band (LQ)
is happening when it shouldn't.  Probably bug in appletalk PAP code; "fixed"
by calling PrDevStatus (PAPStatus) a second time if a tool error occurred.
In other words, PAPStatus, is returning an error ($805-Name Not Found) and
when it's called immediately after, it returns no error.





F29		30-Nov-90 5:30pm

Modification to end of CloseDoc code to ensure that the SpoolFinishGET is
always called if there is a print loop error, to ensure that spool memory or
files are deallocated/removed (note that unique printer connection is not an
issue here since the printer connection open/close is all in PicFile).





F28		29-Nov-90 7pm

TJ089 bug found by Mensch/Dave.  AppleShare interaction, messing with QD
direct page.  Was going to work around this problem by doing save/restore
around all OS calls; but found that it wasn't effective enough.  Thus
appleshare FST is now being revved to save/restore QD around its calls to
ShieldCursor.  The routines to work around this problem have been left and
commented out.






F27		28-Nov-90 2:15pm

SpoolPut code now works; lost sync bug still exists.





F26		27-Nov-90

The TJ089 bug still exists.  Lost sync, presumably during SpoolPut.

Added code to SpoolPut: when it is opening a file to spool to because
memory is running low, we check to see if we booted over a network,
and if so, we try to write the temporary file into the correct entry
of the USERS directory; the same 'TMP.XXXX'-style file is created there.
This needs to be tested thoroughly.

The above changes in the spooler are to be cut-pasted directly from the
IW driver to the LQ driver since the spoolers/entry points are identical;
did "equal" anyway to check to make sure first.

Near the "PutGetExit" code in printloop.aii, the exit accumulator/carry
error status was not always being set if there was an error returned from
SpoolGet (or SpoolPut, for that matter).  This was at first thought to
create the above DrawPicture crashing bug, but this fix is good enough to
be left in anyway.





F25		24-Nov-90

Added space on either side of slash which divides the printer driver
name and the port driver name at the top of both dialog boxes.

Crashing bug was found to be bank-wrap-around problem in ROM 3 QD
cursor handling code.





F24		19-Nov-90

We discovered that the latest crashing bug is caused by two things:
1) QDaux has a problem with running out of memory during the DrawPicture
process: it has an internal stack imbalance problem and crashes.  This
has been fixed in 6.0.  We need to put in this change--only--for 5.0.4.
2) In both the IW and in the LQ drivers, we were not checking for
tool error after DrawPicture; now, upon any DrawPicture error, both the
tool call error from PrPicFile and the print loop error (PrError) are
set.





F23		13-Nov-90

Incremented version number from 4.0 to 4.1.

In SpoolPut, there was no error checking on the SetHandleSize call (we
relied on the RealFreeMem call just above)!  "BCS PutNoMoreMemory" added
just after SetHandleSize (found by Mensch).

Allowed Iduna to exit better when just starting PrPicFile; Iduna patches
out event manager so we need to rely on polling the PrError and we should
be executing the IdleProc to give Iduna the chance to set the PrError.
We were doing this in the normal imaging routines but not from within
the PrinterOpen routine in printloop.  Fixed: PrinterOpen now calls
BufferIdleProc right at the very beginning and exits if PrintLoopError-
Status is set; and PrPicFile now checks PrintLoopErrorStatus and
allows exit right after its PrinterOpen call.





5.0.3 System Disk is Golden Master and has shipped around 1-Nov-90.





F22		13-Aug-90

Text-mode font mapping now handles case where GetTextSize call returns
a zero.  Fixes "Nexus" applicaton quirk.





B21		9-Aug-90

Upon the PrDevWrite call, we don't treat $08FF as an error, because it
could be simply PAP saying that the printer's appletalk buffer is full.
Retrofit from LQ's Iduna choking after several cards bug.  





B20		7-Aug-90		For System Disk 5.0.3 D17 Final Candidate

Iduna and other apps which repeat the print loop were only able to
print the first page in color, because the self-ID for IW-I/II is
checked at each PrinterOpen internal call and if the printer is busy
then we erroneously assume IW-I.  Fixed by only allowing the IW-I/II
flag to change--one way or the other--the first time PrinterOpen
happens.  The only way it will happen again is if we're reloaded.
This works as long as the user does not use both an IW I and an IW II
during the same sitting in the same application.

Iduna draft printing didn't work anymore, due to a misguided "bug fix"
in B16 to "fix" "nonworking" PaintWorks Gold problem.  PWG and Iduna
both work perfectly fine; it's just that PWG tries to print graphics
in Draft mode, which is supported by the old IW driver but not by the
new driver.  It was thus a big mistake to change GetQuality in B16.
Fixed by making GetQuality once again responsive to the bjDocLoop field
(negating the change in B16).  This makes Iduna but breaks PaintWorks
Gold (which doesn't work without a patch of 5.0+ systems anyway).  The
fundamental question is if we need to support graphics in Draft mode.





B19		24-Jul-90

The PrPixelMap call was not working correctly when connected to an
ImageWriter-One.  Problem showed up as leading 0's to the left of lines
of print.  Fixed by making sure that CompressSend does not send color
ribbon select commands if abIsIWOne actionbit is set.  Also, added
IW-One/Two check in the entry code for PrPicFile (done by a reentrant
PrGetPrinterSpecs call).





B18		19-Jul-90

Imager is now able to monitor PrError during the actual process of
printing.  Allows Iduna abort response to be much better.  This is
done herein only for non-draft and is implemented by giving the imager
our own idleproc which in turn calls the user idleproc.  The imager's
own abort flag--PrError--has been made an exported global to facilitate
this.  Should be retrofitted to LQ after raising confidence level.





B17		18-Jul-90

OpenDoc no longer saves individual values from the print record
that are needed by OpenPage/ClosePage--it saves the value of the user's
print record handle instead.  Fix for apps which modify rPage and other
fields between OpenDoc and OpenPage.  Impact on testing is on manual
feed, idleproc, number of copies, and page range correctness.





B16		16-Jul-90

Made the internal metrics GetQuality routine insensitive to the setting
of the bjDocLoop field in the print record.  This field is normally
set to 0 if in text mode.  GetQuality thus gets that piece of
information exclusively from our new wQuality print record field.
Fixes/works around a "bug" with PaintWorks Gold.





B15		5-Jul-90

Got rid of now-unused "s_dfl_lf" and "s_dfl_paplen" strings.

ImageWriter-One carriage return speed: no change.  Tried going to
unbold and lesser-resolution modes for either carriage return or
line feed only; made no difference in timing tests.  Perhaps a character
needs to be output for this to be effective, but even a cursory try
at that proved ineffective.

OldIW compared to NewIW speed in Better+Color (has nothing to do with
appletalk): no change.  It's a policy decision to turn boldface off if
in Better with color, but then things wouldn't look as nice with (or
without) a less-than-brand-new ribbon.  Plus, for bitmapped drawings
the (faster) Standard mode looks just as good or better.  Plus, we have
the Faster mode, which really rips.  My recommendation is to leave the
current boldface/no-boldface scheme as-is, even if that means that
non-interlaced, better mode color images print somewhat slower.





B14		28-Jun-90

Added field to print record "wResScaling" at printX+20 ($78 absolute)
offset in the print record.  The wResScaling is a constant which
describes how much this printer driver scales up the image (just prior
to scaled-down printing at finer dot pitch) in order to obtain higher
resolution.  This field has been added for the application's information.
It always has a constant value of 2 for the ImageWriter.

Job Dialog user interface line edit box fix:  Wherever the line edit
cursor is blinking, no matter in which of the 3 boxes, typing is
possible, even if a non-line edit control was just selected.  Fixed by
removing ParamWordA-flag restriction in ConductJobDialog; the LE handle
that is kept around is now always valid.





B13		27-Jun-90

Added lda #0 to pha's just before GetNetworkName in imager to be sure.
Retrofit from LQ driver.

The printer would not respond in many situations with a cut sheet feeder
attached.  We were setting default printer options in imager's
IWShutDown routine on the way out.  This caused problems with the sheet
feeder because those commands would be buffered up, and the printer
would then not respond to the next self-id, which could be immediately
after a PrJobDialog (preventing printing), or just before it (causing
the driver to erroneously assume IW-One).  Fixed.





A12		27-Jun-90		on system disk 503d15

Colors have been make to contain just a bit more magenta; makes the
periwinkleblue640 screen background color a bit purpler.

If Better+Color+640+noninterlaced+nonnotunibo ("Fast"), then boldface
is turned off during the black band print.  This is done in Portrait
mode only, because Landscape is always interlacing in the Better modes.
This makes 640 Better colors much less muddy.  Too bad it isn't
possible to put this in LQ driver.

Slight problem fixed in 640 black/white graytone assignment with
light yellow and periwinkle blue.

PurgeAll/CompactMem have been taken out.  It can still gag applications
with these two things installed.  Bufdims break taken out.  Still left
to do are more lowmem tests, sheet feeder, and final-breakers.




A11		19-Jun-90

This is a release for checking if all the imager modes all still work
correctly and verify that color handling is better.

The Text Mode text-recording-bottleproc now does not record a string if
its origin is outside of the current clipping region.  The current clip
region was set by OpenPage but may be modified by advanced applications
such as Iduna.  Fixes DrawPlus extra-line-of-text-on-second-page bug
and similar Iduna bug.  Must be retrofitted to LQ driver.

Previously, in 320-mode, KCMY values were doubled in density between
being calculated from RGB and being stored in the linebuffer.  This made
colors look brighter but made Black/White printing horrible.  Now the
KCMY values are doubled only if 320-mode AND color-mode.  King Tut,
the girl on the bike, and other 320-mode scanned pictures look much
better.  Should be retrofitted to LQ driver.

In PrOpenPage, we forgot to skip over the OpenPicture call and the
related spool-beginning code just above it if in Text/Draft mode.
Therefore, spooling memory as well as a picture handle was created
inadvertently if in Draft/Text mode.  Fixed by adding some new
branching at end of OpenPage and at beginning of ClosePage code, as well
as change in order of first two things at beginning of CloseDoc code,
so that dialog is removed *after* if-draft-PrinterClose code.  Must be
retrofitted to LQ driver.

Changed names of quality modes as follows: Text Only, Fast, Standard,
and Best.  Should be retrofitted to LQ driver.

The RGB to KMCY conversion formula has been changed slightly to render
colors that are a little more red (for 640-periwinkle blue, for
example).

The dither patterns have been painstakingly redone, yielding a
smoother gray scale.

320-mode color-density doubling in imager has been removed; it is no
longer necessary with the new dither patterns (in 160 hdpi mode).

Black/White 640-mode handling has been changed to maintain correctness
even upon encountering light yellow (which could not show up as
anything otherwise).

In all modes except Fast--even Standard--the horizontal resolution of
the halftone dither density patterns is now 160 hdpi.  The single
exception to this rule is that in the case of Standard+640 mode+Color,
the 80 hdpi mode is used anyway.  Results: better graphics patterns
with fewer artifacts, no more juvenile-looking patterns in 340 mode,
and more.  Disadvantages: there are still some artifacts in 640
Black/White rendition of a color image, and doing this makes the
Standard mode slower.  By the way, this is the way that the old
ImageWriter does it.  Note that Fast still prints at 80hdpi, and note
that the patterns in Fast mode have actually become uglier--but
we don't care.  It is implemented as imager-qbit#14, set by GetConvert-
QualBits if mode=Fast.  Thus now it is possible to have an object with
jaggedy edges, effectively at 80 hdpi, while the pattern inside is
smooth because its pixels are 160-hdpi-small.  Works for Portrait and
Landscape.  All different Port/Land/640/320/VC/Reduction/Fast/Std/Bett
modes must be retested.

If 640+standard+color, then the imager forces the (old) 80 hdpi
patterns, since the 640-screen-dithering would otherwise make the colors
way too muddy.

DIAGNOSTICS: PurgeAll/CompactMem is happening at beginning of OpenDoc
and end of PrPicFile.  This crashes AppleWorks GS.  Also, the
SetBufDims breakpoint ($BD) is still in place.





A10		30-May-90

The PRINTER and MODEM port drivers have been modified so that
response is much quicker if the printer was unconnected or in
recognizing that an ImageWriter I is connected.

Inside PrClosePage is the ClosePicture call.  If this call returns an
error, as it would if our bottleprocs failed (due to full disk, etc)
during page data recording, that error is now returned out of the
PrClosePage call as a tool error.  Must be retrofitted to LQ driver.

The 8K RGB to KCMY conversion table is no longer used.  Instead, a
conversion lookup table which is parallel in structure to the standard
16-entry color table is used.  Only those color palettes which are
referenced by an SCB are calculated.  Results in practical elimination
of delay for calculating an entire 4096-entry lookup table, and about a
7.4K reduction in memory footprint.  Everything on earth having to do
with standard or nonstandard color tables as well as the new color
model PicComments needs retesting.  Could be retrofitted to LQ driver.

Iduna's command-period abort was not working.  After the imaging
routine call, during which the IdleProc runs, we now check the print
loop error (PrError/PrSetError) status.  It was already being done
at the beginning of each sheet; now it is done every after every
imager call.  AppleTalk error message handling needs retesting!
Must be retrofitted to LQ driver.





A9		23-May-90

Fixed disk label sizes for 1/4" vert spacing b/w labels.

Change-Color-Table and Change-Range-Of-SCB's PicComment operation has
been tested.

It's been determined that crashing under HP/std/pict-window was
happening due to too many DAs/INITs/etc taking up memory and the Loader
could not load a QDAux segment.  Therefore simply another example of
low-mem situation.

Changed the RGB to KCMY conversion table-building routines to allow
it to be a true handle, rather than a big DS.B segment.  The handle is
actually unlocked when the imager is not active, thus allowing its 8K to
be moved around by the Memory Manager if necessary.  Also saves 8K-on-
disk for FST's that don't handle sparse files (unlike ProDOS but like
HFS, for example).  In actual practice right now, the handle usually
resides in another bank than the loaded driver, thus easing its foot-
print in fragmented memory space.  Can be retrofitted to LQ driver as
needed.

A much smaller direct-page stack frame is used for the GetPic/PutPic
bottleprocs, as per suggestion by Mensch.  This may or may not have any
effect on low-memory bugs, but makes for better coding practice.

For next release, we may investigate a new spooler which breaks up the
to-memory big movable block into many little separate movable blocks,
making it easier to survive in a memory-fragmented system.





D8		11-May-90		Alpha candidate

Text-mode bug fix: there was a word-store to "n_textfont", which
should be a byte.

Manual page feed crashing bug.  Selecting land+vc+bett+manual feed would
cause crash.  Crash was in _NoteAlert, because in PrPicFile's setbufdims
code, we blindly set the number of horizontal bytes to our bandbuffer
locinfo's number of scanline bytes.  During landscape printing, our
bandbuffer is very tall and skinny--a small number of horizontal
scanline bytes, thus messing quickdraw functions other than our imaging
up very badly.  Fixed by ensuring that PrPicFile's setbufdims code can
only make the qd bufdims bigger, and never smaller.  This would also
cause many other wierd printing problems in any landscape mode.

Very slight modifications to text-mode font mapping; less overlap.

We're now remembering the handle from the OpenPicture call in the
OpenPage routine and passing it to KillPicture in the ClosePage
routine.  We were leaving one small handle per page around.  Must be
retrofitted to LQ driver.

Added new paper types: "3.5 Disk" label (2-3/4 x 2-3/4 inch) and 
"5.25 Disk" label (4-3/4 x 1-1/4 inch).  These pin-fed labels are on
order for testing.  Should be retrofitted to LQ driver.

Discovered and fixed small dormant bug: near imager.aii/"next_intl",
should insert AND #$FF after longm just before adding to "lang_tbl".
Should be retrofitted to LQ driver.

Symptom: TopDraw/50%/"US Statement"-paper-size/print lab machine #1
wouldn't print all the way down the page (it wouldn't print all bands).
Logic bug fixed in band buffer size allocation code.  "PiFiLastBand-
Height" would be zero and *used* as last band's height when the paper
size with metrics settings happened to be an even multiple of the
current band buffer size, given the current memory conditions.  Fixed
by preinitializing PiFiLastBandHeight to the band buffer height and
modifying it only if there was a nonzero remainder from the divide call.
In this way, PiFiLastBandHeight is always a true indicator of the last
band's tallness in all possible situations.  Must be retrotitted to LQ
driver.

Symptom: In PaintworksPlus, selecting Better would cause the driver to
print half too small and do a too-short formfeed.  The application is
trying to force Standard mode in all cases; and thus even with the fix
the quality is still Standard.  Also, the fix should correct the partial
formfeed problems which appear in same tests.  Fix is two changes in
metrics "GetQuality" routine: 1) AND #$FF instead of wrong longm/shortm,
and 2) added code to force our internal quality rendition ("wQuality")
to 2 (standard) if (old wQuality == 3) AND (wDev better bit == 0).  This
fixes any temporal discrepancy between better/not-better status obtained
directly from wDev or by means of GetQuality call.  Must be retrofitted,
in an appropriate way, to LQ driver, which only has 0..2 quality types.





D7		1-May-90

Some measures have been taken to do grafport handling more like the old
driver; this seems to alleviate some of the hanging problems.  NOTE:
This release DOES NOT purport to be the final low-memory fix, it is
a release intended to recieve feedback on this sticky problem.  A
breakpoint (BRK #$BD) has been left in on purpose (QD bufdims alloc).

Removed PurgeAll/CompactMem at beginning of OpenPage.

Fixed dialog layout of "Copies:" title item (moved it up a little).

Removed paper sizes that are impossible on the ImageWriter from table
and popup menu (> 8.5" horizontal size).

Interchanged paper types for European B5 and IntlFanFold.  The
IntlFanFold is now (correctly) type=3, European B5 is type=4.  Must
be retrofitted to LQ driver.

The spooler now uses RealFreeMem in the memory/disk decision code.

Removed two cases of CheckHandle call in "entry.aii".

Despite run-length-encoding, Appletalk printing is/was slow.  There is a
tremendous overhead for sending many short PAP write requests and
doing PAPStatus requests.  Therefore, by adding caching capability to
the "writeshort"/"writelong" routines, Appletalk printing speeds should
improve greatly.  Will simplify text-mode intl char routine; might be
retrofitted to LQ.

Made equates for both mix/max flow quantum (min ==> writeshort cache
size).

Made alternate call entry point "IdleProcAbortCheck" which doesn't do
PrDevStatus but does do the command-period/idleproc; this alternate
entry point is used during the imaging loops.  Done because PrDevStatus/
PAPStatus is very slow.  This means that the network error reporting
time granularity is greater (only at beginning near "goPrintPix").
All the calls inside the banding loops, except at beginning/open/etc
code have been changed to the quicker "IdleProcAbortCheck" instead
of "IdleProcAbortErrCheck".

Text-mode international char caching removed because no longer necessary
with our generalized output caching (IW only).

Text-mode bug fix: (imager/text output/cmp #$20 for ctrl-char can't
work; must do AND #$00FF to get rid of garbage in upper 8 bits of ACC).
Must be retrofitted to LQ driver.

Appletalk self-id is now always done using PrDevStatus.  It is more
reliable and somewhat faster.  Affects code all over in "IWStartup"
and "IWShutdown", adds case to "abDoImage" check, affects "PrinterOpen".
Should be retrofitted to LQ driver.  Appletalk PrClosePage FREEZES at
end of job with a sheet feeder, however!

The above exposed a two nasty but simple text-mode bugs: near the code
to "select one of the printer's built-in text fonts/sizes" in the
imager text-mode section no AND was being done on SCBListPtr+1 and
SCBListPtr+0.  Very bad, because the former is used to index a lookup
table of writeshort-strings!





D6		18-Apr-90

I have determined that the long IW I ID delay also occurs in the old
IW driver (but it does it only once, right after head recalibration, so
it doesn't appear to be as bad).  In order to fix this problem properly
for the new drivers, the PRINTER and MODEM port drivers will have to be
changed; and the change required would be incompatible with the old
driver.  Also, a new speed improvement possiblity has been discussed
(important for LQ).  Therefore, a skunk-works new-port-driver project
is underway.

The portrait color vertical interlace code was printing the same data
for the 2nd pass interlace bands, because it was doing "restinfo" calls
to rewind pointers to pre-"nextPline"-call data.  Fixed.  One visible
effect of this, for example: In portrait+color+better+vc, the effective
vertical resolution on the paper would be half, compared to same
settings but with black/white.  Color patterns looked bad as well.

Density dither patterns have been much improved; far fewer artifacts
are exhibited.

"Allocating imaging memory" status message added.  Will be retrofitted
to the LQ driver.

The spooler now uses GS/OS class 1 calls so that it can cache during
picture playback, resulting in fewer disk seeks.  Will be retrofitted
to the LQ driver.

Several changes have been made to address low-memory-during-DrawPicture
(Memory potentiometers, RealFreeMem call, no more MaxBlock call, Set-
BufDims value changes, Purge/Compact @ before OpenDoc time).  It seems
to work now--with a 1M ROM 03 with a 64K RAM disk and a LOT (~250K) of
CDA's and NDA's, running MultiScribe--MOST of the time.  It's still
possible to make it perform poorly, by loading up the system with even
more stuff; but such is also possible with the old driver.  Comparison
testing needs to be done.  Will be retrofitted to the LQ driver when
the confidence level from all these changes rises.





D5		11-Apr-90

Changed "50% Vertical Size" string in dialog box to "Vertical
Condense".  Which is better?

Final source code cleanup; much documentation has been added.

Landscape with 320-mode vertical interlace imaging scaling was wrong
(2x too tall).  Fixed; now each 320-mode pixel counts for two pin fires.

Landscape 320-mode color saturation doubled like as in Portrait.

Reduced word-wise dithmatrix table to byte-wise table since the print
head is only 8 bits (pins) tall.  Fixed dithmatrix table accessing for
its new format.  Saves space/cleaner code.

The dither patterns have been redone with increased density.  Color and
B/W patterns look much better in 320 mode; color patterns look much
better in 640 mode.  B/W/640 mode has dither beating problmes (screen
dithering is beating against print driver dithering), and the new
patterns are probably a bit too dark.  But all colors, and even subtle
shades of different colors, look much truer.

The Yellow/640 grayscale conversion bug, where the standard 640 light
yellow color comes out as white (ie, nothing) on paper, has been fixed
by virtue of the denser dither patterns.  Exists in and must be fixed
by some other means in the LQ driver (Test case: the "S" in Matt's
"crystals" document won't show in B/W mode).

A measure has been taken against 640-dithering beating against our
dithering in B/W mode (port/land) (limit dith tbl access in "bwP/Lpix").

All told, the grayscale/color patterns look much better now.  The only
thing that remains is perhaps a restructuring of the bits for some of
the dither matrix entries so as to reduce 320-mode pattern artifacts.

The RGB to KCMY conversion table is now built in memory rather than
being hardcoded and carried along so as to save abour 8K of disk space
(Space Improvement #1).  Should be retrofitted to LQ driver.

Command-period quit responsiveness has been improved somewhat (one
disadvantage of our run-length-encoding is the printer buffer filling,
and that is what's mostly responsible for the slower-than-old-driver
command-period response).  Also, IdleProc execution and network error
checking is being done more frequently.  Needs to be retrofitted to LQ
driver.

Landscape speed improvement (Speed#8): superior "Lwht" white scanning
algorithm.  The qualifications are still the same (std white in std
ctbl locations), but instead of an all-or-nothing whole-headscan-line-
eliminate, it is now able to operate on parts of a headscan line.
It may or may not be possible to successfully retrofit to LQ driver.

White horizontal line banding if color vertical interlace on some
ImageWriterII's.  Fixed: instead of doing yellow, then yellow-interlace,
then magenta, magenta interlace, etc., and backward 1/144" linefeeds
between colors, we now do all 4 colors, forward 1/144", then all 4
colors again.  Done for both portrait and landscape code.  Also saves
code space, code looks better, and makes linefeeds smoother.

ImageWriter I ID sequence (there *is* no sequence since the IW I
has no self-ID command) is now recognized.  The old driver did the ID
request only after PrJobDialog (from within PrPicFile), since it didn't
need to dim color/sheet feeder buttons.  Therefore, there is a very
long delay when calling up PrJobDialog, due to one of several severe
limitations of the PRINTER/MODEM direct-connect printer-port drivers
which need to be fixed.

The ImageWriter I feature set does not include all of the ImageWriter II
features, so a framework and code has been added to not try to use such
features.  Before doing any draft/nondraft printing, the printer is
asked for ID (ie, from within PrPicFile) so that we know which printer
is connected.  This must be done because an application might call
PrPicFile without first calling PrJobDialog (ie, Iduna).  Because of
these code changes, printer error handling needs to be retested.





D4		29-Mar-90

All landscape modes are tentatively working.  Rigorous testing is
very necessary.  Unlike with portrait, 320/640 mode handling is
critical during vertical interlacing.

Dither pattern handling need to be improved; landscape/interlace only
draws patterns on one pass because of 640-dithering.

Color patterns need to be improved; 640-mode double-pixel pair
interpretation of screen dither technique would be very nice to have
so that 640 colors would not look so muddy.

When other bugs are finished, a speed improvement might be implemented
for the landcape modes.

Source code has been projectorized so that it will appear on System
Disk releases.





D3		22-Mar-90

On No-Gaps with Better, there would be unprinted whitespace areas.
Fixed.  This was due to vertical imager-head-misalignment due to two
reasons: PrPicFile routine's band buffer allocation routines did
vertical align-24 instead of align-16 and the Imager Portrait code's
"onePband" was doing double "nextPline" even at last pin if interlacing.

Landscape mode next release.





D2		19-Mar-90		Developmental

Not-printing-in-color bug was a symptom of mechanical translation for
the very first (E0) release and has been fixed.

Job Dialog From/To box interpretation has been improved.  All previous
error checking still exists, plus it's now possible to fill-in only one
box and have the results come out as expected.  For example, selecting
"From: 5" and leaving "To:" blank will cause printing from 5..doclength.
Likewise, one could fill in only "To: 8", leaving "From:" blank, for
example, thus causing only pages 1..8 to be printed.  Needs to be
retrofitted to LQ driver.

All portrait modes working: Faster+Standard, Better, || 50% reduction,
|| 50% vertical condense.  This has involed the introduction of an
interlace technique in which every print head scan is done twice in some
cases, because maximum vertical resolution on the ImageWriter must be
achieved in this way.

Boldface (only) is turned off during any interlace mode to compensate
for increased density.

Final portrait mode anti-LQ sanitization: BW6 algorithm works again
(13% gain for ~200 bytes code space); speed tests indicate about
400% improvement over old IW driver in Better mode.  SCBs are supposed
to track correctly but has not been tested.





E1		9-Mar-90

Official backing has been obtained for this project, to be finished
by April 1990.

Obtained metrics print record hex dump for all cases with old IW driver,
for compatiblity testing in the very near future.

Note that, in general, the size of the driver will be decreasing as new
releases come out!

Many preliminaries of converting the new LQ driver to the new IW driver
have been taken care of.  Among the highlights: First pass metrics:
changed metrics scaling service routines from 3X to 2X.  Removed all
LQ-specific code pertaining to sheet feeder and other things.  Removed
big paper sizes.  Eased bufdims allocation to 2X.  First pass of dialog/
dialogdata/imager/metrics which describe fully the options specific to
what features the ImageWriter II imaging routine will/must have, such
as 50% reduction, single sheet feeder, etc.  Changed PAP NBP string.
Changed all relevant user-interface strings.  Changed all relevant ID
equates and ID service routines.  Changed all applicable documentation.

The old IW driver always had boldface and unidirectional turned on.
Since 1) we want to maintain a consistent default user interface with
the old driver, 2) it is awkward to have negative-logic check boxes in
the page setup dialog (such as "lighter" and "bidirectional"), and
3) boldface/unidirectional options are orthogonal across all modes,
there will be four Print Quality modes:

	NAME:		PRINT METHOD:				ALGORITHM:		DEFAULT:
	Text Mode	changes on the fly			text approx
	Faster		non-boldface/bidirectional	graphics 1X
	Standard	boldface/unidirectional		graphics 1X		default
	Best		boldface/unidirectional		graphics 2X

Dialog boxes' art layout has been redone because items were removed.

The run-length-encoding compression algorithm has been changed from
being able to handle 8-pin as well as 24-pin models to being able to
handle 8-pin head fire model only, which is all that is needed here.

Upon NewHandle error conditions, the real memory-full tool error
($0201) is returned instead of the value given by the "e16.print"
equate "memFullErr" ($FF80).  Has been retrofitted to LQ driver.

For all 3 newcontrol2 dialog boxes, update events are now handled to
work correctly with windoids such as Video Keyboard.  Has been
retrofitted to LQ driver.

Next release (hopefully D2): fix color-not-working, first pass portrait,
first pass Better mode/50% reduction.





E0		21-Feb-90		Experimental

Started doing the brand-new ImageWriter driver as a "skunk_works"
project on author's own time.  The purpose for doing this is that all
the benefits of the LQ driver will be inherited and will yield 2-3X
speed improvements over the old driver.  See the README file, which
is almost identical across the two drivers.

All of the initial, obvious name/date/etc changes have been made to
both the contents and comments of all the source files.  It is up
and running.
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/NEW.IW/dialog.aii b/IIGS.601.SRC/GSToolbox/PrinterDrivers/NEW.IW/dialog.aii
new file mode 100644
index 0000000..9af3da5
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/NEW.IW/dialog.aii
@@ -0,0 +1 @@
+
******************************************************************************************
*                                                                                        *
*		Apple IIgs New ImageWriter Printer Driver                                        *
*                                                                                        *
*		File: dialog.aii -- Doing dialog boxes, thereby modifying user's print record    *
*                                                                                        *
*		Written by Ben Koning                                                            *
*		Copyright (C) 1990 Apple Computer, Inc.                                          *
*                                                                                        *
******************************************************************************************






							include		'equates.aii'
					
							
							include		'm16.util'
							include		'e16.quickdraw'
							include		'm16.quickdraw'
							include		'm16.qdaux'
							include		'e16.control'
							include		'm16.control'
							include		'e16.window'
							include		'm16.window'
							include		'm16.lineedit'
							include		'm16.intmath'
							include		'm16.dialog'
							include		'm16.menu'
							include		'e16.print'
							include		'm16.misctool'
							include		'm16.event'



DialogProc					proc		export





*
*STATUS MESSAGE ROUTINES: StartStatusMessage/FinishStatusMessage/StatusMessage/StatusManFeedPrompt
*
*These routines can display messages for the user.  After calling StartStatusMessage, calling
*StatusMessage with ParamLongA pointing to a string will cause that string to be shown, centered,
*in a centered dialog box (640/320 mode automatically taken care of).  StatusManFeedPrompt will
*put up a caution alert asking the user to insert the next sheet, to be numbered with the value
*given in ParamWordA.  Call FinishStatusMessage when done, erasing the dialog box.  If the
*StartStatusMessage routine is called with A set to true, then the message box will not be
*drawn, but the show-message routines may be called as usual, and the manual-feed box will still
*always appear.
*





*
*STARTSTATUSMESSAGE: Call this before any other status message calls (0/1 -> A):
*
*Normally, this routine draws an empty status box, ready to be filled in by other status
*message calls, and changes the cursor to the wait cursor.  If A = 1, then the status
*message box is not drawn, but status message drawing routines may still be called,
*although their messages won't be visible.  The manual feed dialog routine may also still
*be called in this case; however, it will always be visible.
*
							export		StartStatusMessage
StartStatusMessage
							
*Save input parameter:
							pha
							
*Clear the status-window-exists flag initially:
							stz			StatusWindowExists
							
*Calculate horizontal size for status and manfeed message boxes:
							import		StatusWindowCoordX2		;modify dialog coordinates
							lda			StatusWindowCoordX2
							sec
							import		StatusWindowCoordX1
							sbc			StatusWindowCoordX1		;calc size (silly at runtime)
							sta			StatusWindowWidth		;save size
							pha									;result space for scb
							_GetMasterSCB
							pla
							ldx			#640					;assume 640 mode for a sec
							and			#$80					;look at mode bit (1=640, 0=320)
							bne			StMeMode640
							ldx			#320					;change assumption made above
StMeMode640					txa
							sec
							sbc			StatusWindowWidth		;acc now has [320|640] - (X2-X1)
							lsr a								;divide by two
							sta			StatusWindowCoordX1		;this is left coordinate of box
							import		ManFeedAlertTempCoordX1
							sta			ManFeedAlertTempCoordX1	;also for man feed alert template
							clc
							adc			StatusWindowWidth		;maintain proper size of box
							sta			StatusWindowCoordX2		;this is right coordinate of box
							import		ManFeedAlertTempCoordX2
							sta			ManFeedAlertTempCoordX2	;also for man feed alert template
							
*Do not put up wait cursor; let application take care of it:

*Restore input parameter; if we were called with A set, exit before drawing status window, etc:
							pla
							beq			StMeDoneInvisible
							rts
StMeDoneInvisible

*Draw the empty status box:
							pha									;result space
							pha
							import		StatusWindowTemp
							pushlong	#StatusWindowTemp		;draw window from template
							_NewWindow							;this does NOT set current grafport!
							pulllong	StatusWindowPtr			;save our ticket to access the box
							
*Assert the status-window-exists flag so the other routines know:
							lda			#1						;indicate it's ok to use it now
							sta			StatusWindowExists
							
*Exit:
							rts
														




*
*FINISHSTATUSMESSAGE: Removes the box displayed above; won't crash if called alone; normal cursor:
*
							export		FinishStatusMessage
FinishStatusMessage

*Do not remove wait cursor here; let application take care of it:
							
							lda			StatusWindowExists		;was it ever really drawn?
							beq			FiStExit				;if not, don't do CloseWindow
							
							pushlong	StatusWindowPtr			;erase window and dispose memory
							_CloseWindow
							stz			StatusWindowExists		;it's gone now
							
FiStExit					rts





*
*STATUSMESSAGE: Draws centered string at "ParamLongA" into above-opened message box; uninit-proof:
*
							export		StatusMessage
StatusMessage				lda			StatusWindowExists		;was window ever drawn?
							beq			StMeExit				;if not, abort this routine
							pha									;result space...
							pha
							_GetPort							;save old grafport on stack
							pushlong	StatusWindowPtr			;set grafport to box's port...
							_SetPort
							pushlong	#StMeBigRect			;clear box contents...
							_EraseRect
							pha									;result space
							pushlong	ParamLongA				;push pointer to our messgae
							_StringWidth						;ask what size it will be
							lda			StatusWindowWidth		;leave result on stack
							sec									;for subtract right on the stack
							sbc			1,s						;acc now has (X2-X1) - width
							lsr a								;divide by two; acc now has X coord
							sta 		1,s						;this is start X coordinate for text
							import		StatusWindowTextY
							pushword	StatusWindowTextY		;this is start Y coordinate for text
							_MoveTo								;move the pen to pushed coordinates
							pushlong	ParamLongA				;and draw the string...
							_DrawString
							_SetPort							;restore old grafport from stack
StMeExit					rts
*Big rectangle to clear status box contents:
StMeBigRect					dc.w		0,0,200,320





*
*STATUSMESGFEEDPROMPT: Prompts to insert "ParamWordA"-th page; call after "StartStatusMessage":
*This routine exits with carry set if cancel option was selected by user.
*
							export		StatusMesgFeedPrompt
StatusMesgFeedPrompt		pushword	ParamWordA				;int to be converted to string
							import		ManFeedAlertTempPageNo
							pushlong	#ManFeedAlertTempPageNo	;where number ascii data goes
							pushword	#5						;length
							pushword	#0						;unsigned
							_Int2Dec							;convert and store it
							pha									;result space
							import		ManFeedAlertTemp
							pushlong	#ManFeedAlertTemp		;template
							pushlong	#0						;no filter proc
							_NoteAlert
							pla									;get item id that was selected
							cmp			#mesgFeedPromptNGButtID	;set carry only if cancel selected
							beq			StFeExit
							clc
StFeExit					rts






*
*DATA: Maintains status message box's window grafport, size, and status across print driver calls:
*
StatusWindowPtr				dc.l		0
StatusWindowWidth			dc.w		0
StatusWindowExists			dc.w		0						;must be 0 initially





*
*NOTCORRECTDEVDIALOG: Displays message about correct printer not being connected; call anytime:
*
							export		NotCorrectDevDialog
NotCorrectDevDialog			pha									;pass result space
							pushword	#%000					;pass reference is ptr to cstring
							pushlong	#0						;pass no substitution array
							import		DevAlertString			;pass ptr to alert box def string
							pushlong	#DevAlertString
							_AlertWindow
							pla									;retrieve button hit, we don't care
							rts




							
*
*CHECKANDDOABOUTBOX: If Shift-Apple-Option keys are down, display an about box with credits:
*
							export		CheckAndDoAboutBox
CheckAndDoAboutBox			
							pha									;check if Shift-Option keys down
							pushword	#0						;don't remove anything from queue
							pushlong	#AbBoEventRecord		;store information here
							_GetNextEvent
							pla									;will ignore this
							lda			AbBoEventModifierKeys	;check modifier flags
							and			#$0B00					;shift+apple+option must be set
							cmp			#$0B00
							bne			AbBoExit				;no, so exit; else, drop through
							
							pha									;pass result space
							pushword	#%000					;pass reference is ptr to cstring
							pushlong	#0						;pass no substitution array
							import		AboutAlertString
							pushlong	#AboutAlertString
							_AlertWindow
							pla									;retrieve button hit, we don't care
							
AbBoExit					rts

*Storage for event record to be filled in by GetNextEvent:
AbBoEventRecord:
AbBoEventWhat				dc.w		0						;event.what
							dc.l		0						;event.message
							dc.l		0						;event.when
							dc.w		0,0						;event.where
AbBoEventModifierKeys		dc.w		0						;event.modifiers





*
*CONDUCT-DIALOG-ROUTINES: These routines handle the dialog boxes for gathering the information
*to modify the print record.
*




							
*
*CONDUCTSTYLEDIALOG: Does Start/FinishDialog/TaskMaster, does metrics routines to change
*print record. On exit, accumulator is set/cleared depending on OK/Cancel selection:
*
							export		ConductStyleDialog
*Modify dialog data to reflect settings of current print record:  This would be much more elegant
*if only the dialog ID's could be the same as the data in the print record...

ConductStyleDialog			jsr			GetOutputPortName			;fill-in "IMAGEWRITER/XXX" string
*
							import		GetPaper
							jsr			GetPaper
							clc
							adc			#paperTypeUsaLtrItemID		;convert id # to dialog id
							import		paperTypeInitValue
							sta			paperTypeInitValue
*
							import		GetReduction
							jsr			GetReduction
							clc
							adc			#reductionFullSizeItemID	;convert to dialog id
							import		reductionInitValue
							sta			reductionInitValue
*
							import		effectsNoGapsInitValue
							stz			effectsNoGapsInitValue
							import		GetPageGap
							jsr			GetPageGap
							beq			CoStNext1
							lda			#1
							sta			effectsNoGapsInitValue
*
							import		effectsCondensedInitValue
CoStNext1					stz			effectsCondensedInitValue
							import		GetVSize
							jsr			GetVSize
							beq			CoStNext2
							lda			#1
							sta			effectsCondensedInitValue
							
							import		GetOrientation
CoStNext2					jsr			GetOrientation
							sta			CoStOrientationState		;we do this ourselves

*Now go draw the window with all the controls:
							import		StyleControlTemp
							lda			#StyleControlTemp			;get address of control template
							sta			ParamLongA+0				;list for this dialog box
							lda			#^StyleControlTemp
							sta			ParamLongA+2
							jsr			StartDialog					;draw dialog window and controls
 
*Setup our TaskMask to handle keyboard events:
							lda			#^DialogTaskMaskYesKeys		;need change hi word only
							sta			DialogTaskMask+2

*Take events until OK or CANCEL:
CoStEventLoop				pha										;result space
							pushword	#$FFFF						;event mask for taskmaster
							pushlong	#DialogTaskRecord			;where to stuff event data
							_TaskMaster								;go handle events in window
							pla										;get result code
							
*Redraw ctls for update evt.  Rely on at least 1 update event @ first to invert apt port/land icon:
							cmp			#6							;update event?
							beq			CoStIsUpdate1
							brl			CoStNotUpdate
CoStIsUpdate1				ldx			DialogWindowPtr+0			;check if it's our window
							cpx			DialogTaskData+0
							beq			CoStIsUpdate2
							brl			CoStNotUpdate
CoStIsUpdate2				ldy			DialogWindowPtr+2
							cpy			DialogTaskData+2
							beq			CoStIsUpdate3
							brl			CoStNotUpdate
CoStIsUpdate3
*
							phy										;prepare to redraw all contents
							phx
							_BeginUpdate
*
							pushlong	DialogWindowPtr				;recreate all control handles
							_KillControls							;because port/land were deleted
							pha
							pha
							pushlong	DialogWindowPtr
							pushword	#3
							pushlong	#StyleControlTemp
							_NewControl2
							pla
							pla
*
							jsr			RedrawDialog				;do redrawing
*
							pha										;dump port/land so won't track
							pha
							pushlong	DialogWindowPtr
							pushlong	#orientationPortraitItemID
							_GetCtlHandleFromID
							_DisposeControl
							pha
							pha
							pushlong	DialogWindowPtr
							pushlong	#orientationLandscapeItemID
							_GetCtlHandleFromID
							_DisposeControl
*				
							lda			CoStOrientationState		;do inverting of port/land
							cmp			#1
							beq			CoStRedrawIItsLand
							import		orientationPortraitRect
CoStRedrawIItsPort			pushlong	#orientationPortraitRect
							bra			CoStRedrawInvert
							import		orientationLandscapeRect
CoStRedrawIItsLand			pushlong	#orientationLandscapeRect
CoStRedrawInvert			_InvertRect
*
							pushlong	DialogWindowPtr				;done redrawing all contents
							_EndUpdate
*
							brl			CoStEventLoop				;go handle another event
CoStNotUpdate

*Begin check for our own manual "icon radio buttons":
							cmp			#wInContent					;mouse down on icon(?) event yet?
							beq			CoStCheckIconButtons		;yes, so check icon buttons
							brl			CoStCheckOtherCtrl			;no, check other events

*Do our "icon radio buttons" entirely ourselves:
CoStCheckIconButtons		pushlong	#DialogWhere				;modify mouse coordinates...
							_GlobalToLocal							;... to window coordinates
							pha										;result space
							pushlong	#DialogWhere				;check our point...
							pushlong	#orientationPortraitRect	;...against portrait icon
							_PtInRect
							pla
							beq			CoStNotPortrait				;it's not in portrait icon
							lda			CoStOrientationState		;mouse is now down in portrait
							bne			CoStFlipOrientation			;we were in landscape, flip 'em
							brl			CoStEventLoop				;forget it, already in portrait
*
CoStNotPortrait				pha										;result space
							pushlong	#DialogWhere				;check our point...
							pushlong	#orientationLandscapeRect	;...against landscape icon
							_PtInRect
							pla
							beq			CoStCheckOtherCtrl			;it's not in landscape icon
							lda			CoStOrientationState		;mouse is now down in landscape
							beq			CoStFlipOrientation
							brl			CoStEventLoop
CoStFlipOrientation			eor			#1							;flip bit
							sta			CoStOrientationState		;remember it
							pushlong	#orientationPortraitRect	;invert both icons, thus moving
							_InvertRect								;the highlight to the other one
							pushlong	#orientationLandscapeRect
							_InvertRect
							brl 		CoStEventLoop				;were done; go for more

*Handle other control events:							
CoStCheckOtherCtrl

*Check for key-equivalent Key2-with-Command-key:
							tax
							cmp			#$0003						;keyDown event?
							bne			CoStDoneKeyDown
							lda			DialogMessage				;Key1 equivalent is already
							import		cancelItemKey2Equiv			;being handled by taskmaster
							cmp			#cancelItemKey2Equiv		;also do cancel if Key2 is
							bne			CoStDoneKeyDown				;down at the same time with
							lda			DialogModifiers				;the Command key
							and			#$0100
							beq			CoStDoneKeyDown
CoStItsKey2Cancel			pha										;do hilite and go cancel
							pha
							pushlong	DialogWindowPtr
							pushlong	#cancelItemID
							_GetCtlHandleFromID
							pulllong	ParamLongA
							pushword	#1
							pushlong	ParamLongA
							_HiliteControl
							pushword	#0
							pushlong	ParamLongA
							_HiliteControl
							bra			CoStItsCancel
CoStDoneKeyDown				txa

*Check for mousedown in a control such as a button, else loop back:
							cmp			#$0021						;wInControl event yet?
							beq			CoStGotCtrl
							brl			CoStEventLoop				;...loop until such event
CoStGotCtrl					lda			DialogTaskData4				;get lo order control item ID

*Get out if Cancel selected, else go on:
							cmp			#cancelItemID				;if Cancel, let's exit
							bne			CoStNotCancel
CoStItsCancel				jsr			FinishDialog				;dump dialog box
							lda			#0							;confirmFlag will be false
							rts
CoStNotCancel

*Resume event handling if OK was not selected:
							cmp			#okItemID					;if OK, go save stuff & exit
							beq			CoStOkSelected
							brl			CoStEventLoop				;else resume event handling

*Save stuff in print record before leaving if OK selected:
CoStOkSelected				lda			CoStOrientationState		;do this one first; it's unique
							sta			OptionA
							import		SetOrientation
							jsr			SetOrientation
*
							lda			#paperTypeItemID
							jsr			GetControlValue
							sec
							sbc			#paperTypeUsaLtrItemID		;normalize
							sta			OptionA
							import		SetPaper
							jsr			SetPaper
*
							lda			#reductionItemID
							jsr			GetControlValue
							sec
							sbc			#reductionFullSizeItemID	;normalize
							sta			OptionA
							import		SetReduction
							jsr			SetReduction
*
							lda			#effectsNoGapsItemID
							jsr			GetControlValue
							sta			OptionA
							import		SetPageGap
							jsr			SetPageGap
*
							lda			#effectsCondensedItemID
							jsr			GetControlValue
							sta			OptionA
							import		SetVSize
							jsr			SetVSize

*Now get rid of box, validate print record because it changed, and exit with ACC set:
							jsr			FinishDialog				;dump dialog box
							import		CalcMetrics					;make sure it's self-consistent
							jsr			CalcMetrics
							lda			#1							;confirmFlag will be true
							rts
							
*DATA: Keeping track of the "icon radio buttons" which we are doing ourselves:
CoStOrientationState		dc.w		0							;0=portrait; 1=landscape





*
*CONDUCTJOBDIALOG: Does dialogs/TaskMaster, metrics/change print record, checks installed options
*by communicating to printer.  If error happens during communication, returns with tool error set.
*On exit, ACC is set if OK was selected:
*
							export		ConductJobDialog

ConductJobDialog			jsr			GetOutputPortName			;fill-in "IMAGEWRITER/XXX" string

*Make dialogdata contain values from print record EXCEPT page range and number of copies:
							import		GetQuality
							jsr			GetQuality
							clc
							adc			#printQualityDraftItemID
							import		printQualityInitValue
							sta			printQualityInitValue
*							
							import		GetColor
							jsr			GetColor
							php
							ldy			#chromaMonochromeItemID
							plp
							beq			CoJoSetIt2
							iny
							import		chromaInitValue
CoJoSetIt2					sty			chromaInitValue
*
							import		GetFeed
							jsr			GetFeed
							php
							ldy			#pageFeedManualItemID
							plp
							beq			CoJoSetIt3
							iny
							import		pageFeedInitValue
CoJoSetIt3					sty			pageFeedInitValue

*Check color ribbon status. If not available, set default and disable apt ctl items:
							stz			CoJoFlagToDisableColor	;assume we won't have to do this
							_WaitCursor							;inquiry might take a second
							pushlong	#0						;find out   ;dummy pix locinfo ptr
							pushlong	#0						;installed  ;dummy pix-pr rect ptr
							pushlong	#0						;printer    ;dummy color table ptr
							pushlong	#0						;options... ;dummy scb list ptr
							pushword	#0						;			;dummy carriage width
							pushword	#0						;			;dummy paper length
							;			  5432109876543210
							pushword	#%0000000010100001		;ask for ID only
							pushword	#0						;dummy QualityBits (feature select)
							pushlong	#0						;no idleproc; quit stat ignored here
							import		Imager					;call imager, sends command to
							jsl			Imager					;printer and gets info or err code
							pha									;save result from inquiry
							_InitCursor							;restore/force arrow cursor
							pla									;restore result from inquiry
							cmp			#$0080					;check if inquiry_result or if error
							bcc			CoJoGotInfoOk			;go on if < $80: inquiry_result
							lda			#portNotOn				;otherwise, we don't have info, so:
CoJoAbortErr				sta			errNo					;...return tool error code
							jsr			NotCorrectDevDialog		;...issue complaining dialog
							lda			#0						;...clear exit stat (==>confirmFlag)
							rts									;...and exit
CoJoGotInfoOk				tax									;save ID state for re-use...
							and			#%0000000000000001		;is it really an ImageWriter?
							bne			CoJoIsReallyIW			;yes, so go on
							lda			#pntrConFailed			;not really IW, so abort and clear
							bra			CoJoAbortErr			;exit stat so app knows not to print
CoJoIsReallyIW				txa
							and			#%0000000000000010		;color ribbon?
							bne			CoJoHasFeature1			;yes, so go on
							lda			#chromaMonochromeItemID	;else: 1: set to only possible option
							import		chromaInitValue
							sta			chromaInitValue
							lda			#1
							sta			CoJoFlagToDisableColor	;2: we'll disable other ctl item(s)
CoJoHasFeature1

*Set default page range and copies just like in what PrDefault would do:
							lda			#1
							sta			OptionA
							lda			#32767
							sta			OptionB
							import		SetPageRange
							jsr			SetPageRange
							import		SetCopies
							jsr			SetCopies

*Now set up the LE boxes, and set the All/From-To radio button states:
							import		pagesFromBoxString
							import		pagesToBoxString
							import		copiesBoxString
							shortm
							stz			pagesFromBoxString		;reset from/to LE box lengths to zero
							stz			pagesToBoxString
							lda			#'1'					;but put "1" in #-of-copies LE box
							sta			copiesBoxString+1
							lda			#1
							sta			copiesBoxString
							import		pagesAllInitValue
							import		pagesRangeInitValue
							sta			pagesAllInitValue		;set default "All" pages radio button
							stz			pagesRangeInitValue
							longm

*Now draw the window with all the controls:
							import		JobControlTemp
							lda			#JobControlTemp			;get address of control template
							sta			ParamLongA+0
							lda			#^JobControlTemp
							sta 		ParamLongA+2
							jsr 		StartDialog				;draw window with controls

*Dim the appropriate popup menu items as determined above while checking installed options:
							lda			CoJoFlagToDisableColor
							beq			CoJoDontDisableColor
							lda			#chromaItemID
							sta			ParamWordA
							lda			#chromaColorItemID
							sta			ParamWordB
							jsr			DimPopUpItem
CoJoDontDisableColor

*Setup TaskMask not to handle keyboard events:
							lda			#^DialogTaskMaskNoKeys	;need change hi word only...
							sta			DialogTaskMask+2

*Set our flag to ignore very first update event:
							lda			#1
							sta			DialogIsFirstUpdateFlag

*Get LineEdit (LE) handle ready for Copies item and then go to event loop.  ParamLongA has LE handle:
							pha
							pha
							pushlong	DialogWindowPtr
							pushlong	#copiesBoxItemID
							_GetCtlHandleFromID
							pulllong	ParamLongA				;"Copies" item's handle in ParamLongA
							brl			CoJoSetLEAndGotoLoop	;go get LE hdl and go to event loop

*Event loop which gets mouseclicks/keys and controls animation:
CoJoEventLoop				pushlong	ParamLongA				;blink a cursor
							_LEIdle
CoJoDoTasks					pha									;result space
							pushword	#$FFFF					;event mask
							pushlong	#DialogTaskRecord		;where to stuff event data
							_TaskMaster							;do events
							pla

*Do redrawing of controls for update event, if necessary:
							cmp			#6						;update event?
							bne			CoJoNotUpdate
							ldx			DialogWindowPtr+0		;check if it's our window
							cpx			DialogTaskData+0
							bne			CoJoNotUpdate
							ldy			DialogWindowPtr+2
							cpy			DialogTaskData+2
							bne			CoJoNotUpdate
							phy									;redraw all contents
							phx
							_BeginUpdate
							lda			DialogIsFirstUpdateFlag	;is it 1st update event this time?
							stz			DialogIsFirstUpdateFlag	;clear flag for next update event
							bne			CoJoDontRedrawUpdate	;if 1st update then ignore
							jsr			RedrawDialog
CoJoDontRedrawUpdate		pushlong	DialogWindowPtr
							_EndUpdate
							bra			CoJoEventLoop
CoJoNotUpdate
							
*Check for mousedown in a control or if a key was hit:
							cmp			#$0021					;wInControl?
							bne			CoJoNotInCtrl
							brl			CoJoCheckCtrls
CoJoNotInCtrl				cmp			#$0003					;keyDownEvt?
							bne			CoJoEventLoop

*A key has been hit; do OK/Cancel hilite ourselves if selected because not going thru taskmaster:
							lda			DialogMessage
							import		okItemKeyEquiv
							cmp			#okItemKeyEquiv
							bne			CoJoNotKeyOk
							
CoJoItsKeyOk				pha
							pha
							pushlong	DialogWindowPtr
							pushlong	#okItemID
							_GetCtlHandleFromID
							pulllong	ParamLongA				;clobber this, but we're out anyway
							pushword	#1
							pushlong	ParamLongA
							_HiliteControl
							pushword	#0
							pushlong	ParamLongA
							_HiliteControl
							brl			CoJoOk
							
							import		cancelItemKey1Equiv
							import		cancelItemKey2Equiv
CoJoNotKeyOk				tax
							cmp			#cancelItemKey1Equiv	;do cancel if either Key1 (ESC) or
							beq			CoJoItsKeyCancel		;Key2 (.) with Option-key down
							cmp			#cancelItemKey2Equiv
							bne			CoJoNotKeyCancel
							lda			DialogModifiers
							and			#$0100
							bne			CoJoItsKeyCancel
CoJoNotKeyCancel			txa
							bra			CoJoDoneKeyEquiv
							
CoJoItsKeyCancel			pha
							pha
							pushlong	DialogWindowPtr
							pushlong	#cancelItemID
							_GetCtlHandleFromID
							pulllong	ParamLongA				;clobber this, but we're out anyway
							pushword	#1
							pushlong	ParamLongA
							_HiliteControl
							pushword	#0
							pushlong	ParamLongA
							_HiliteControl
							brl			CoJoCancel
CoJoDoneKeyEquiv

*If TAB and proper LEHandle, try to move insertion point to another box:
							cmp			#9						;TAB key?
							bne			CoJoNotKeyTab			;not TAB key
							
							pha
							pha
							_MakeNextCtlTarget
							pulllong	DialogTaskData2
							bra			CoJoFromToBox			;go extract new LE hdl, set buttons
CoJoNotKeyTab

*Not OK/Cancel/TAB, so if we have LEHandle, filter out '0'..'9'/LE cmd keys and call LEKey:
							lda			DialogMessage			;look at keystroke ascii code
							shortm
							shortx
							ldy			#15
CoJoCheckKeyLoop			cmp			CoJoLEKeyTable,y		;is it a key we should handle?
							beq			CoJoLEKey
							dey
							bpl			CoJoCheckKeyLoop
							longm
							longx
							brl			CoJoEventLoop
CoJoLEKeyTable				dc.b		8,21,127,6,24,25,'0','1','2','3','4','5','6','7','8','9'
CoJoLEKey					longm
							longx
							pushword	DialogMessage
							pushword	DialogModifiers
							pushlong	ParamLongA
							_LEKey
							brl 		CoJoEventLoop

*Check if any new LE text boxes were selected; also change All/From-To radio buttons:
CoJoCheckCtrls				lda			DialogTaskData4			;get lo order control item ID
							cmp			#pagesFromBoxItemID
							beq			CoJoFromToBox
CoJoNotFromBox				cmp			#pagesToBoxItemID
							bne			CoJoNotFromToBox

CoJoFromToBox				pushword	#0						;switch All/From-To radio button
							pha
							pha
							pushlong	DialogWindowPtr
							pushlong	#pagesAllItemID
							_GetCtlHandleFromID
							_SetCtlValue						;turn "All" radio button off
							pushword	#1
							pha
							pha
							pushlong	DialogWindowPtr
							pushlong	#pagesRangeItemID
							_GetCtlHandleFromID
							_SetCtlValue						;turn the other radio button on
							bra			CoJoItsBox
							
CoJoNotFromToBox			cmp			#copiesBoxItemID
							bne			CoJoNoLEBoxes

*We selected a box; get its LE handle:
CoJoItsBox					lda			DialogTaskData2+0		;get handle to control record
							sta			ParamLongA+0			;and drop into next section below
							lda			DialogTaskData2+2
							sta			ParamLongA+2

*Get LE handle from ctl handle and then go to event loop:
CoJoSetLEAndGotoLoop		lda			[ParamLongA]			;this section transforms the control
							tax									;handle of a LE item into a valid
							ldy			#2						;LE handle for that item
							lda			[ParamLongA],y
							sta			ParamLongA+2
							stx			ParamLongA+0
							ldy			#octlData				;offset into ctrl rec for LE handle
							lda			[ParamLongA],y			;lo order word of LE handle
							tax
							iny
							iny
							lda			[ParamLongA],y			;hi order word of LE handle
							sta			ParamLongA+2
							stx			ParamLongA+0			;ParamLongA now has LE handle
							brl			CoJoEventLoop

*If no boxes were clicked, since we got wInControl, check for other possibilities:
CoJoNoLEBoxes

*Exit without affecting print record if Cancel select:
							cmp			#cancelItemID
							bne			CoJoNotCancel
CoJoCancel					jsr			FinishDialog			;dump dialog box
							lda			#0						;confirmFlag will be false
							rts

*If OK select, save data in print record; else resume event handling:
CoJoNotCancel				cmp			#okItemID
							beq			CoJoOk
							brl			CoJoEventLoop
*
CoJoOk						lda			#printQualityItemID
							jsr			GetControlValue
							sec
							sbc			#printQualityDraftItemID	;normalize
							sta			OptionA
							import		SetQuality
							jsr			SetQuality
*
							lda			#chromaItemID
							jsr			GetControlValue
							sec
							sbc			#chromaMonochromeItemID		;normalize
							sta			OptionA
							import		SetColor
							jsr			SetColor
*
							lda			#pageFeedItemID
							jsr			GetControlValue
							sec
							sbc			#pageFeedManualItemID		;normalize
							sta			OptionA
							import		SetFeed
							jsr			SetFeed

*Initially assume default values for both parts of the page range:
							lda			#1
							sta			OptionA
							lda			#32767
							sta			OptionB

*If "All" page range option selected, skip the following few sections:
							lda			#pagesAllItemID
							jsr			GetControlValue
							cmp			#1
							beq			CoJoSetPageRange
							
*"All" not selected, so get each part of the page range only if nonzero.  Pin on upper limit:
							lda			#pagesFromBoxItemID			;convert "From" string to number
							jsr			GetBoxValue
							cmp			#0							;if zero, keep our default
							beq			CoJoDontConsiderPgRngA
							cmp			#32768						;pin to largest value and store
							bcc			CoJoConsiderPgRngA
							lda			#32767
CoJoConsiderPgRngA			sta			OptionA
CoJoDontConsiderPgRngA
							lda			#pagesToBoxItemID			;convert "To" string to number
							jsr			GetBoxValue
							cmp			#0							;if zero, keep our default
							beq			CoJoDontConsiderPgRngB
							cmp			#32768						;pin to largest value and store
							bcc			CoJoConsiderPgRngB
							lda			#32767
CoJoConsiderPgRngB			sta			OptionB
CoJoDontConsiderPgRngB

*With first page in OptionA and last page in OptionB, see if backwards:
							lda			OptionB
							cmp			OptionA						;check page range
							bcs			CoJoPageRangeNotBackwards	;at it's least not backwards
							ldx			OptionA						;else exchange A,B...
							sta			OptionA
							stx			OptionB
CoJoPageRangeNotBackwards

*With sane values for first page in OptionA and last page in OptionB, set the page range:
							import		SetPageRange
CoJoSetPageRange			jsr			SetPageRange

*Set number of copies, pinning to largest possible value and ensuring nonzero:
							lda			#copiesBoxItemID			;convert "Copies" str to number
							jsr			GetBoxValue
							cmp			#32768						;pin within range 1..32767...
							bcc			CoJoNoPinCopies1
							lda			#32767
CoJoNoPinCopies1			cmp			#0
							bne			CoJoNoPinCopies2
							lda			#1
CoJoNoPinCopies2			sta			OptionA
							import		SetCopies
							jsr			SetCopies

*Dump dialog box, validate print record because it changed, and exit with ACC set:
							jsr			FinishDialog				;dump the box
							import		CalcMetrics					;make sure it's self-consistent
							jsr			CalcMetrics
							lda			#1							;confirmFlag will be true
							rts

*Static variables:
CoJoFlagToDisableColor		dc.w		0






*
*SUBROUTINES: Used by routines above to perform various setup/shutdown and repeated tasks:
*





*
*STARTDIALOG: Draws our standard dialog window; fills with control list given by "ParamLongA":
*
StartDialog					pha									;result space for old grafport
							pha	
							_GetPort
							pulllong	OldGrafPortPtr			;save old grafport pointer

*Modify coordinates of dialog window to suit 320/640 mode:
							import		WindowCoordX2			;get ready to modify dialog coords
							lda			WindowCoordX2
							sec
							import		WindowCoordX1
							sbc			WindowCoordX1			;calc box size (silly at runtime)
							sta			ParamWordA				;save size
							pha									;result space for scb
							_GetMasterSCB
							pla
							ldx			#640					;assume 640 mode for a sec
							and			#$80					;look at mode bit (1=640, 0=320)
							bne			StDiMode640
							ldx			#320					;change assumption made above
StDiMode640					txa
							sec
							sbc			ParamWordA				;a-reg now has [320|640] - (X2-X1)
							lsr a								;divide by two
							sta			WindowCoordX1			;this is left coordinate of box
							clc
							adc			ParamWordA				;maintain proper box size
							sta			WindowCoordX2			;this is right coordinate of box

*Draw the window on the screen and set as current port:
							pushlong	#0						;result space for window grafportptr
							import		WindowTemp
							pushlong	#WindowTemp
							_NewWindow							;draw window from template
							lda 		1,s						;keep on stack for SetPort only
							sta 		DialogWindowPtr+0		;and also save it away
							lda 		3,s
							sta 		DialogWindowPtr+2
							_SetPort							;set our window as current port
							
*Create (but don't draw yet) the controls in the window using the given control template:
							pushlong	#0						;result space
							pushlong	DialogWindowPtr			;window's grafport to draw in
							pushword	#3						;ptrToPtr input reference
							pushlong	ParamLongA				;get desired control template
							_NewControl2
							pla									;we don't need these zeros
							pla
							
*Draw the controls and exit:
							jsr			RedrawDialog
							rts





*
*REDRAWDIALOG: Call this routine to redraw contents of window (during update event, for example):
*
RedrawDialog				pushlong	DialogWindowPtr
							_DrawControls						;fill window with controls...
							pushword	#1						;draw horizontal adornment line...
							pushword	#2
							_SetPenSize
							import		WindowLineY
							import		WindowLineX1
							import		WindowLineX2
							pushword	#WindowLineX1
							pushword	#WindowLineY
							_MoveTo
							pushword	#WindowLineX2
							pushword	#WindowLineY
							_LineTo
							_InitCursor							;ensure arrow cursor...
							rts




							
*
*FINISHDIALOG: Call this routine when done with dialog; erases window/controls and releases memory:
*
FinishDialog				pushlong	DialogWindowPtr
							_KillControls						;dispose control memory
							pushlong	DialogWindowPtr
							_CloseWindow						;erase window and dispose memory
							pushlong	OldGrafPortPtr			;get old port pointer
							_SetPort							;restore it
							rts




				
*
*GETOUTPUTPORTNAME: Routine which sets up "XXX" part in "IMAGEWRITER/XXX" in dialog data:
*
GetOutputPortName			pha
							pha
							ldx			#$2913						;get pointer to str w/ port name
							jsl			$E10000						;_PMGetPortName
							pulllong	ParamLongA
							shortm
							shortx
							lda			[ParamLongA]
							tay
							clc
							import		PortTitleLenOrig
							adc			#PortTitleLenOrig			;store correct length of full...
							import		PortTitleLen				;ie, "IMAGEWRITER LQ/PRINTER"...
							sta			PortTitleLen				;...port title...
GePoNaStrCpy				lda			[ParamLongA],y				;and copy PRINTER, etc., string
							import		PortTitleStr
							sta			PortTitleStr-1,y
							dey
							bne			GePoNaStrCpy
							longm
							longx
							rts





*
*DIMPOPUPITEM: Dims pop-up menu item. Menu_ctl_ID -> ParamWordA, Menu_ctl_item_ID -> ParamWordB:
*
DimPopUpItem				pha										;save menu bar hdl on stack...
							pha
							_GetMenuBar
							pha										;result space...
							pha										;...for GetCtlHandleFromID
							pushlong	DialogWindowPtr				;pass window pointer
							pushword	#0							;pass hi order word of ID
							pushword	ParamWordA					;pass lo order word of ID
							_GetCtlHandleFromID						;get pop-up control handle...
							_SetMenuBar								;...and set as current menu bar
							pushword	ParamWordB					;now that menu mgr knows about
							_DisableMItem							;our control, disable item
							_SetMenuBar								;...restore menu bar from stack
							rts





*
*GETCONTROLVALUE: Obtains control state. Put ID lo order word -> ACC; on exit, ACC -> control value:
*
GetControlValue				sta			ParamWordA					;save for use in a second
							pha										;result space for GetCtlValue
							pha										;result space...
							pha										;...for GetCtlHandleFromID
							pushlong	DialogWindowPtr				;pass window pointer
							pushword	#0							;pass hi order word of ID
							pushword	ParamWordA					;pass lo order word of ID
							_GetCtlHandleFromID						;get handle
							_GetCtlValue							;use handle to get value
							pla										;leave value in accumulator
							rts
							


							
							
*
*GETBOXVALUE: Gets integer from LineEdit control.  Put ID lo order -> ACC; on exit, ACC -> integer:
*
GetBoxValue					sta			ParamWordA					;save for use in a second
							pha										;result space for GetCtlValue...
							pha										;...result space
							pushlong	DialogWindowPtr				;pass window pointer
							pushword	#0							;pass hi order word of ID
							pushword	ParamWordA					;pass lo order word of ID
							_GetCtlHandleFromID						;get handle to control record
							pulllong	ParamLongA					;get it off stack into dp
							lda			[ParamLongA]				;dereference the handle
							tax
							ldy			#2
							lda			[ParamLongA],y
							sta			ParamLongA+2
							stx			ParamLongA					;ParamLongA is now a pointer
							ldy			#octlData					;offset ctrl rec for LE handle
							lda			[ParamLongA],y
							tax
							iny
							iny
							lda			[ParamLongA],y				;a,x now has LE handle
							pha										;result space for LEGetTextHand
							pha										;result space for LEGetTextHand
							pha										;hi LE handle for LEGetTextHand
							phx										;lo LE handle for LEGetTextHand
							pha										;result space for LEGetTextLen
							pha										;hi LE handle for LEGetTextLen
							phx										;lo LE handle for LEGetTextLen
							_LEGetTextLen							;get length of our text line
							pullword	ParamWordA					;save length for use in a sec
							_LEGetTextHand							;get handle to our text line
							pulllong	ParamLongA					;get it off stack into dp
							lda			[ParamLongA]				;dereference the handle again
							tax
							ldy			#2
							lda			[ParamLongA],y
							sta			ParamLongA+2
							stx			ParamLongA					;we now have pointer to string!
							pha										;result space
							pushlong	ParamLongA					;pass the pointer
							pushword	ParamWordA					;pass string length
							pushword	#0							;pass that this is unsigned
							_Dec2Int								;convert ascii to word
							pla										;get result in accumulator
							rts
							
		
							


*
*DATA: Extended task record for TaskMaster usage, etc:
*
DialogTaskRecord:
DialogWhat					dc.w		0
DialogMessage				dc.l		0
DialogWhen					dc.l		0
DialogWhere					dc.w		0,0
DialogModifiers				dc.w		0
DialogTaskData				dc.l		0
DialogTaskMask				dc.l		DialogTaskMaskYesKeys
DialogLastClickTick			dc.l	    0
DialogClickCount			dc.w		0
DialogTaskData2				dc.l		0
DialogTaskData3				dc.l		0
DialogTaskData4				dc.l		0
DialogLastClickPt			dc.w		0,0
							;			 10987654321098765432109876543210
DialogTaskMaskYesKeys		equ			%00000000000100110000000000000100
DialogTaskMaskNoKeys		equ			%00000000000100010000000000000100

DialogIsFirstUpdateFlag		dc.w		0





							endproc
							end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/NEW.IW/dialogdata.aii b/IIGS.601.SRC/GSToolbox/PrinterDrivers/NEW.IW/dialogdata.aii
new file mode 100644
index 0000000..b389f94
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/NEW.IW/dialogdata.aii
@@ -0,0 +1 @@
+
******************************************************************************************
*                                                                                        *
*		Apple IIgs New ImageWriter Printer Driver                                        *
*                                                                                        *
*		File: dialogdata.aii -- Dialog box text and layout and all message strings       *
*                                                                                        *
*		Written by Ben Koning                                                            *
*		Copyright (C) 1990 Apple Computer, Inc.                                          *
*                                                                                        *
******************************************************************************************






							include		'equates.aii'
	
							
							include		'm16.util'
							include		'e16.control'
							include		'e16.window'
							include		'e16.dialog'
					

DialogDataRec				record		export





*
*STATUSWINDOWTEMP: Window template for status box:
*
							export		StatusWindowTemp
StatusWindowTemp			dc.w		StatusWindowTempEnd-StatusWindowTemp	;paramLength Word
							dc.w		fAlert+fQContent+fVis					;wFrameBits Word
							dc.l		0										;wTitle Pointer
							dc.l		0										;wRefCon Long 
							dc.w		0,0,0,0									;wZoom	Rect
							dc.l		0										;wColor WindColorPtr
							dc.w		0										;wYOrigin Integer
							dc.w		0										;wXOrigin Integer
							dc.w		200										;wDataH Word 
							dc.w		640										;wDataW Word 
							dc.w		200										;wMaxH Word 
							dc.w		640										;wMaxW Word
							dc.w		0										;wScrollVer Word
							dc.w		0										;wScrollHor Word
							dc.w		0										;wPageVer Word
							dc.w		0										;wPageHor Word 
							dc.l		0										;wInfoRefCon Long
							dc.w		0										;wInfoHeight Word
							dc.l		0										;wFrameDefProc Pointer
							dc.l		0 										;wInfoDefProc Pointer
							dc.l		0 										;wContDefProc Pointer
							dc.w		20										;wPosition Rect Y1
							export		StatusWindowCoordX1						;for 320/640 mod
StatusWindowCoordX1			dc.w		12										;wPosition Rect X1
							dc.w		20+25									;wPosition Rect Y2
							export		StatusWindowCoordX2						;for 320/640 mod
StatusWindowCoordX2			dc.w		308										;wPosition Rect X2
							dc.l		$FFFFFFFF								;wPlane GrafPortPtr
							dc.l		0										;wStorage WindRecPtr
StatusWindowTempEnd:
							export		StatusWindowTextY						;Y1 local text coord
StatusWindowTextY			dc.w		15





*
*MANFEEDALERTTEMP: Alert template for manual feed status dialog:
*
							export		ManFeedAlertTemp
ManFeedAlertTemp			dc.w		20										;boundsRect Y1
							export		ManFeedAlertTempCoordX1
ManFeedAlertTempCoordX1		dc.w		12										;boundsRect X1
							dc.w		20+50									;boundsRect Y2
							export		ManFeedAlertTempCoordX2
ManFeedAlertTempCoordX2		dc.w		308										;boundsRect X2
							dc.w		mesgFeedPromptID						;alertID
							dc.b		$80										;stage 1 - no beep
							dc.b		$80										;stage 2 - no beep
							dc.b		$80										;stage 3 - no beep
							dc.b		$80										;stage 4 - no beep
							dc.l		ManFeedAlertTempOKButtItem				;item #1
							dc.l		ManFeedAlertTempNGButtItem				;item #2
							dc.l		ManFeedAlertTempStringItem				;item #3
							dc.l		0										;terminator
							
ManFeedAlertTempOKButtItem	dc.w		mesgFeedPromptOKButtID					;itemID
							dc.w		28,180,0,0								;coords
							dc.w		buttonItem								;itemType
							dc.l		ManFeedAlertTempOKButtStr				;itemDescriptor
							dc.w		0										;itemValue
							dc.w		0										;itemFlag
							dc.l		0										;itemColor
ManFeedAlertTempOKButtStr	str			'Continue'

ManFeedAlertTempNGButtItem	dc.w		mesgFeedPromptNGButtID					;itemID
							dc.w		28,85,0,0								;coords
							dc.w		buttonItem								;itemType
							dc.l		ManFeedAlertTempNGButtStr				;itemDescriptor
							dc.w		0										;itemValue
							dc.w		0										;itemFlag
							dc.l		0										;itemColor
ManFeedAlertTempNGButtStr	str			'Cancel'

ManFeedAlertTempStringItem	dc.w		mesgFeedPromptStringID					;itemID
							dc.w		9,84,200,640							;coords
							dc.w		statText+itemDisable					;itemType/disabled
							dc.l		ManFeedAlertTempStringStr				;itemDescriptor
							dc.w		0										;itemValue
							dc.w		0										;itemFlag
							dc.l		0										;itemColor
ManFeedAlertTempStringStr	dc.b		ManFeedAlertTempStrE-ManFeedAlertTempStrB
ManFeedAlertTempStrB		dc.b		'Insert sheet for page: '
							export		ManFeedAlertTempPageNo					;for modification
ManFeedAlertTempPageNo		dc.b		'XXXXX'
ManFeedAlertTempStrE





*
*DEVALERTSTRING: Alert string for if improper device is connected or device error:
*
							export		DevAlertString
DevAlertString				dc.b		'3'										;box size spec
							dc.b		'3'										;icon spec "note"
							dc.b		'/'										;separator
							dc.b		'Device is not an ImageWriter, '
							dc.b		'not ready, or out of paper.'
							dc.b		'/'										;separator
							dc.b		'^#1'									;btn dflt "Cancel" 0
							dc.b		0										;terminator





*
*Status messages used in the status box during printing:
*
							export		StMePrinterOpenMesg						;during PrinterOpen
StMePrinterOpenMesg			str			'Establishing communication'

							export		StMePrinterResetMesg					;during PrinterReset
StMePrinterResetMesg		str			'Positioning print head'

							export		StMeFirstProgressMesg					;first mesg in box
StMeFirstProgressMesg		str			'Preparing to receive page data'

							export		StMeSpoolProgressMesg					;MUST be 30 chars!
StMeSpoolProgressMesg		str			'Recording data for page: XXXXX'

							export		StMeDraftProgressMesg					;MUST be 30 chars!
StMeDraftProgressMesg		str			'Currently printing page: XXXXX'

							export		StMeSheetsLeftMesg						;MUST be 30 chars!
StMeSheetsLeftMesg			str			'Sheets  left  to  print: XXXXX'

							export		StMeMallocMesg							;during bandbuff get
StMeMallocMesg				str			'Allocating imaging memory'

							export		StMeRenderingMesg						;during DrawPicture
StMeRenderingMesg			str			'Rendering page image'

							export		StMeCancellingMesg						;during abort ops
StMeCancellingMesg			str			'Cancelling'

							export		StMeCommunicationMesg					;for if status error
StMeCommunicationMesg		str			'Printer communications error'

							export		StMeOutOfPaperMesg						;for if status error
StMeOutOfPaperMesg			str			'Printer is out of paper'

							export		StMePaperJamMesg						;for if status error
StMePaperJamMesg			str			'Printer paper is jammed'

							export		StMeCoverOpenMesg						;for if status error
StMeCoverOpenMesg			str			'Printer cover is open'

							export		StMeSelectOffMesg						;for if status error
StMeSelectOffMesg			str			'Printer select is off'

							export		StMeInUseMesg							;for if status error
StMeInUseMesg				str			'Printer is in use'






*
*WINDOWTEMP: Window template for both of our dialogs (we just make the controls fit one size box):
*
							export		WindowTemp
WindowTemp					dc.w		WindowTempEnd-WindowTemp				;paramLength Word
							dc.w		fAlert+fQContent+fVis					;wFrameBits Word
							dc.l		0										;wTitle Pointer
							dc.l		0										;wRefCon Long 
							dc.w		0,0,0,0									;wZoom	Rect
							dc.l		0										;wColor WindColorPtr
							dc.w		0										;wYOrigin Integer
							dc.w		0										;wXOrigin Integer
							dc.w		200										;wDataH Word 
							dc.w		640										;wDataW Word 
							dc.w		200										;wMaxH Word 
							dc.w		640										;wMaxW Word
							dc.w		0										;wScrollVer Word
							dc.w		0										;wScrollHor Word
							dc.w		0										;wPageVer Word
							dc.w		0										;wPageHor Word 
							dc.l		0										;wInfoRefCon Long
							dc.w		0										;wInfoHeight Word
							dc.l		0										;wFrameDefProc Pointer
							dc.l		0 										;wInfoDefProc Pointer
							dc.l		0 										;wContDefProc Pointer
							dc.w		20										;wPosition Rect Y1
							export		WindowCoordX1							;for 320/640 mod
WindowCoordX1				dc.w		12										;wPosition Rect X1
							dc.w		180										;wPosition Rect Y2
							export		WindowCoordX2							;for 320/640 mod
WindowCoordX2				dc.w		308										;wPosition Rect X2
							dc.l		$FFFFFFFF								;wPlane GrafPortPtr
							dc.l		0										;wStorage WindRecPtr
WindowTempEnd:





*
*Coordinates for adornment line separating title/version info from controls in the dialog boxes:
*
							export		WindowLineY:equ
							export		WindowLineX1:equ
							export		WindowLineX2:equ
WindowLineY					equ			14
WindowLineX1				equ			7
WindowLineX2				equ			287





*
*STYLECONTROLTEMP: Control templates for the style dialog window for PrStlDialog call:
*
							export		StyleControlTemp
StyleControlTemp			dc.l		orientationLandscapeItem
							dc.l		orientationPortraitItem
							dc.l		orientationTitleItem
							dc.l		effectsCondensedItem
							dc.l		effectsNoGapsItem
							dc.l		effectsTitle1Item
							dc.l		reductionItem
							dc.l		paperTypeItem
							dc.l		titleItem								;these are common
							dc.l		versionItem								;items, shared by
							dc.l		cancelItem								;the other dialog
							dc.l		okItem									;boxes
							dc.l		0
					
							export		PortTitleLen							;"IMAGEWRITER/XXX"...
							export		PortTitleStr							;... set Len & Str
							export		PortTitleLenOrig:equ					;... for information
titleItem					dc.w		8										;pCount
							dc.l		titleItemID								;ID
							dc.w		3,6,13,258								;Rect
							dc.l		statTextControl							;ProcRef
							dc.w		1										;Flags
							dc.w		$1000									;MoreFlags
							dc.l		0										;RefCon
							dc.l		TiItStart								;TextRef
PortTitleLen				dc.w		PortTitleLenOrig						;space for len byte
TiItStart					dc.b		'ImageWriter / '
TiItEnd:
PortTitleStr				dc.b		'XXXXXXXXXXXXXXX'						;space for portname
PortTitleLenOrig			equ			TiItEnd-TiItStart						;for computations
			
versionItem					dc.w		8										;pCount
							dc.l		versionItemID							;ID
							dc.w		3,258,13,298							;Rect
							dc.l		statTextControl							;ProcRef
							dc.w		1										;Flags
							dc.w		$1000									;MoreFlags
							dc.l		0										;RefCon
							dc.l		@VeTiStart								;TitleRef
							dc.w		@VeTiEnd-@VeTiStart						;Use "VersionID"...
@VeTiStart					dc.b		'v'										;...equate to...
							dc.b		('0'+(VersionID/256))					;...generate code...
							dc.b		'.'										;...for version...
							dc.b		('0'+(VersionID//256))					;...string
@VeTiEnd:
			
							export		cancelItemKey1Equiv:equ
							export		cancelItemKey2Equiv:equ
cancelItem					dc.w		9										;pCount
							dc.l		cancelItemID							;ID
							dc.w		128,220,128+11,284						;Rect
							dc.l		simpleButtonControl						;ProcRef
							dc.w		0										;Flags
							dc.w		$3000									;MoreFlags
							dc.l		0										;RefCon
							dc.l		@Title									;TitleRef
							dc.l		0										;ColorTableRef
							dc.b		cancelItemKey1Equiv						;KeyEquiv
							dc.b		cancelItemKey1Equiv						;both Key1
							dc.w		0
							dc.w		0
@Title						str			'Cancel'
cancelItemKey1Equiv			equ			27										;escape key equiv
cancelItemKey2Equiv			equ			'.'										;cmd-'.' key equiv
			
							export		okItemKeyEquiv:equ
okItem						dc.w		9										;pCount
							dc.l		okItemID								;ID
							dc.w		143,220,143+11,284						;Rect
							dc.l		simpleButtonControl						;ProcRef
							dc.w		1										;Flags
							dc.w		$3000									;MoreFlags
							dc.l		0										;RefCon
							dc.l		@Title									;TitleRef
							dc.l		0										;ColorTableRef
							dc.b		okItemKeyEquiv							;KeyEquiv
							dc.b		okItemKeyEquiv
							dc.w		0
							dc.w		0
@Title						str			'OK'
okItemKeyEquiv				equ			13										;return key equiv
			
paperTypeItem				dc.w		9										;pCount
							dc.l		paperTypeItemID							;ID
							dc.w		28,7,0,0								;Rect
							dc.l		popUpControl							;ProcRef
							dc.w		32										;Flags
							dc.w		$1004									;MoreFlags
							dc.l		0										;RefCon
							dc.w		92										;TitleWidth
							dc.l		paperTypePopUpMenu						;MenuRef
							export		paperTypeInitValue
paperTypeInitValue			dc.w		paperTypeUsaLtrItemID					;InitialValue
paperTypePopUpMenu			dc.b		'$$Paper Type:\H'
							dc.w		paperTypeItemID
							dc.b		0
*							
							dc.b		'--US Letter......8.5"x11"\H'
							dc.w		paperTypeUsaLtrItemID
							dc.b		0
*							
							dc.b		'--US Legal........8.5"x14"\H'
							dc.w		paperTypeUsaLglItemID
							dc.b		0
*							
							dc.b		'--US Stmnt.......5.5"x8.5"\H'
							dc.w		paperTypeUsaStmtItemID
							dc.b		0
*							
							dc.b		'---\N256D',0
*							
							dc.b		'--European A4......8"x12"\H'
							dc.w		paperTypeEurA4ItemID
							dc.b		0
*							
							dc.b		'--European B5......7"x10"\H'
							dc.w		paperTypeEurB5ItemID
							dc.b		0
*							
							dc.b		'--Intl Fanfold....8"x12"\H'
							dc.w		paperTypeEurIntlFFItemID
							dc.b		0
*
							dc.b		'---\N256D',0
*							
							dc.b		'--Envelope (#6)....7"x4"\H'
							dc.w		paperTypeEnvNo6ItemID
							dc.b		0
*							
							dc.b		'---\N256D',0
*
							dc.b		'--Label (Small)....3"x1"\H'
							dc.w		paperTypeLblSmlItemID
							dc.b		0
*
							dc.b		'--Label (Medium)..4"x1"\H'
							dc.w		paperTypeLblMedItemID
							dc.b		0
*
							dc.b		'--Label (Large)....4"x2"\H'
							dc.w		paperTypeLblLrgItemID
							dc.b		0
*
							dc.b		'--Label (Pkg)........4"x3"\H'
							dc.w		paperTypeLblPackingItemID
							dc.b		0
*
							dc.b		'--Label (3" Dsk)...3"x3"\H'
							dc.w		paperTypeLblDisk35ItemID
							dc.b		0
*
							dc.b		'--Label (5" Dsk)...5"x1"\H'
							dc.w		paperTypeLblDisk525ItemID
							dc.b		0
*
							dc.b		'.'
						
reductionItem				dc.w		9										;pCount
							dc.l		reductionItemID							;ID
							dc.w		53,7,0,0								;Rect
							dc.l		popUpControl							;ProcRef
							dc.w		32										;Flags
							dc.w		$1004									;MoreFlags
							dc.l		0										;RefCon
							dc.w		92										;TitleWidth
							dc.l		reductionPopUpMenu						;MenuRef
							export		reductionInitValue
reductionInitValue			dc.w		reductionFullSizeItemID					;InitialValue
reductionPopUpMenu			dc.b		'$$Reduction:\H'
							dc.w		reductionItemID
							dc.b		0
							dc.b		'--Full Size\H'
							dc.w		reductionFullSizeItemID
							dc.b		0
							dc.b		'--50% Life Size\H'
							dc.w		reduction50ItemID
							dc.b		0
							dc.b		'.'
										
effectsTitle1Item			dc.w		8										;pCount
							dc.l		effectsTitle1ItemID						;ID
							dc.w		78,7,78+10,7+60							;Rect
							dc.l		statTextControl							;ProcRef
							dc.w		1										;Flags
							dc.w		$1000									;MoreFlags
							dc.l		0										;RefCon
							dc.l		@TitleStart								;TitleRef
							dc.w		@TitleEnd-@TitleStart					;TextSize
@TitleStart					dc.b		'Height:'
@TitleEnd:
			
effectsNoGapsItem			dc.w		8										;pCount
							dc.l		effectsNoGapsItemID						;ID
							dc.w		78,99,0,0								;Rect
							dc.l		checkControl							;ProcRef
							dc.w		0										;Flags
							dc.w		$1000									;MoreFlags
							dc.l		0										;RefCon
							dc.l		effectsNoGapsTitle						;TitleRef
							export		effectsNoGapsInitValue
effectsNoGapsInitValue		dc.w		0										;InitialValue
effectsNoGapsTitle			str			'No Vertical Gaps'
			
effectsCondensedItem		dc.w		8										;pCount
							dc.l		effectsCondensedItemID					;ID
							dc.w		91,99,0,0								;Rect
							dc.l		checkControl							;ProcRef
							dc.w		0										;Flags
							dc.w		$1000									;MoreFlags
							dc.l		0										;RefCon
							dc.l		effectsCondensedTitle					;TitleRef
							export		effectsCondensedInitValue
effectsCondensedInitValue	dc.w		0										;InitialValue
effectsCondensedTitle		str			'Vertical Condense'
			
orientationTitleItem		dc.w		8										;pCount
							dc.l		orientationTitleItemID					;ID
							dc.w		110,7,110+10,7+90						;Rect
							dc.l		statTextControl							;ProcRef
							dc.w		1										;Flags
							dc.w		$1000									;MoreFlags
							dc.l		0										;RefCon
							dc.l		@TitleStart								;TitleRef
							dc.w		@TitleEnd-@TitleStart					;TextSize
@TitleStart					dc.b		'Orientation:'
@TitleEnd:

							export		orientationPortraitRect
							export		portraitIcon
orientationPortraitItem		dc.w		7										;pCount
							dc.l		orientationPortraitItemID				;ID
orientationPortraitRect		dc.w		123+0,20+0,123+32,20+72					;Rect
							dc.l		iconButtonControl						;ProcRef
							dc.w		2										;Flags
							dc.w		$9000									;MoreFlags
							dc.l		0										;RefCon
							dc.l		portraitIcon							;IconRef
portraitIcon				dc.w		0										;iconType
							dc.w		325										;iconSize
							dc.w		25										;iconHeight
							dc.w		26										;iconWidth
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$F0,$00,$00,$00,$00,$00,$00,$0F,$FF,$FF,$FF,$FF
							dc.b		$FF,$F0,$FF,$FF,$FF,$FF,$FF,$FF,$00,$FF,$FF,$FF,$FF
							dc.b		$FF,$F0,$FF,$FF,$FF,$F0,$0F,$FF,$0F,$0F,$FF,$FF,$FF
							dc.b		$FF,$F0,$FF,$FF,$FF,$0F,$F0,$FF,$0F,$F0,$FF,$FF,$FF
							dc.b		$FF,$F0,$FF,$FF,$FF,$0F,$F0,$FF,$00,$00,$0F,$FF,$FF
							dc.b		$FF,$F0,$FF,$FF,$FF,$F0,$0F,$FF,$FF,$FF,$0F,$FF,$FF
							dc.b		$FF,$F0,$FF,$FF,$F0,$0F,$F0,$0F,$FF,$FF,$0F,$FF,$FF
							dc.b		$FF,$F0,$FF,$FF,$0F,$FF,$FF,$F0,$FF,$FF,$0F,$FF,$FF
							dc.b		$FF,$F0,$FF,$FF,$0F,$0F,$F0,$F0,$FF,$FF,$0F,$FF,$FF
							dc.b		$FF,$F0,$FF,$FF,$0F,$0F,$F0,$F0,$FF,$FF,$0F,$FF,$FF
							dc.b		$FF,$F0,$FF,$FF,$0F,$0F,$F0,$F0,$FF,$FF,$0F,$FF,$FF
							dc.b		$FF,$F0,$FF,$FF,$0F,$0F,$F0,$F0,$FF,$FF,$0F,$FF,$FF
							dc.b		$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
							dc.b		$0F,$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$F0,$F0
							dc.b		$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$F0
							dc.b		$0F,$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$F0,$F0
							dc.b		$0F,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$F0,$00
							dc.b		$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF
							dc.b		$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$FF
							dc.b		$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF
							dc.b		$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF
							dc.b		$0F,$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF
							dc.b		$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF
							dc.b		$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$FF
*Icon Mask							
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
			
							export		orientationLandscapeRect
							export		landscapeIcon
orientationLandscapeItem	dc.w		7										;pCount
							dc.l		orientationLandscapeItemID				;ID
orientationLandscapeRect	dc.w		123+0,98+0,123+32,98+72					;Rect
							dc.l		iconButtonControl						;ProcRef
							dc.w		2										;Flags
							dc.w		$9000									;MoreFlags
							dc.l		0										;RefCon
							dc.l		landscapeIcon							;IconRef
landscapeIcon				dc.w		0										;iconType
							dc.w		325										;iconSize
							dc.w		25										;iconHeight
							dc.w		26										;iconWidth
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$F0,$00,$00,$00,$00,$00,$00,$0F,$FF,$FF,$FF,$FF
							dc.b		$FF,$F0,$FF,$FF,$FF,$FF,$FF,$FF,$00,$FF,$FF,$FF,$FF
							dc.b		$FF,$F0,$FF,$FF,$FF,$FF,$FF,$FF,$0F,$0F,$FF,$FF,$FF
							dc.b		$FF,$F0,$00,$00,$00,$00,$FF,$FF,$0F,$F0,$FF,$FF,$FF
							dc.b		$FF,$F0,$FF,$FF,$FF,$FF,$0F,$FF,$00,$00,$0F,$FF,$FF
							dc.b		$FF,$F0,$00,$00,$00,$FF,$0F,$00,$FF,$FF,$0F,$FF,$FF
							dc.b		$FF,$F0,$FF,$FF,$FF,$FF,$F0,$FF,$0F,$FF,$0F,$FF,$FF
							dc.b		$FF,$F0,$FF,$FF,$FF,$FF,$F0,$FF,$0F,$FF,$0F,$FF,$FF
							dc.b		$FF,$F0,$00,$00,$00,$FF,$0F,$00,$FF,$FF,$0F,$FF,$FF
							dc.b		$FF,$F0,$FF,$FF,$FF,$FF,$0F,$FF,$FF,$FF,$0F,$FF,$FF
							dc.b		$FF,$F0,$00,$00,$00,$00,$FF,$FF,$FF,$FF,$0F,$FF,$FF
							dc.b		$FF,$F0,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$0F,$FF,$FF
							dc.b		$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
							dc.b		$0F,$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$F0,$F0
							dc.b		$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$F0
							dc.b		$0F,$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$F0,$F0
							dc.b		$0F,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$F0,$00
							dc.b		$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF
							dc.b		$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$FF
							dc.b		$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF
							dc.b		$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF
							dc.b		$0F,$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF
							dc.b		$0F,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$F0,$FF
							dc.b		$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$FF
*Icon Mask							
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
							dc.b		$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
			




*
*JOBCONTROLTEMP: Control templates for the job dialog window for PrJobDialog call:
*
							export		JobControlTemp
JobControlTemp				dc.l		pageFeedItem
							dc.l		chromaItem
							dc.l		printQualityItem
							dc.l		pagesToBoxItem
							dc.l		pagesToTitleItem
							dc.l		pagesFromBoxItem
							dc.l		pagesFromTitleItem
							dc.l		pagesRangeItem
							dc.l		pagesAllItem
							dc.l		pagesTitleItem
							dc.l		copiesBoxItem
							dc.l		copiesTitleItem
							dc.l		titleItem								;use same title,
							dc.l		versionItem								;version, cancel
							dc.l		cancelItem								;and ok items as...
							dc.l		okItem									;the other dialog
							dc.l		0
										
printQualityItem			dc.w		9										;pCount
							dc.l		printQualityItemID						;ID
							dc.w		95,7,0,0								;Rect
							dc.l		popUpControl							;ProcRef
							dc.w		32										;Flags
							dc.w		$1004									;MoreFlags
							dc.l		0										;RefCon
							dc.w		92										;TitleWidth
							dc.l		printQualityPopUpMenu					;MenuRef
							export		printQualityInitValue
printQualityInitValue		dc.w		printQualityStandardItemID				;InitialValue
printQualityPopUpMenu		dc.b		'$$Quality:\H'
							dc.w		printQualityItemID
							dc.b		0
							dc.b		'--Text Only\H'
							dc.w		printQualityDraftItemID
							dc.b		0
							dc.b		'--Fast\H'
							dc.w		printQualityFasterItemID
							dc.b		0
							dc.b		'--Standard\H'
							dc.w		printQualityStandardItemID
							dc.b		0
							dc.b		'--Best\H'
							dc.w		printQualityBetterItemID
							dc.b		0
							dc.b		'.'
							
chromaItem					dc.w		9										;pCount
							dc.l		chromaItemID							;ID
							dc.w		110,7,0,0								;Rect
							dc.l		popUpControl							;ProcRef
							dc.w		32										;Flags
							dc.w		$1004									;MoreFlags
							dc.l		0										;RefCon
							dc.w		92										;TitleWidth
							dc.l		chromaPopUpMenu							;MenuRef
							export		chromaInitValue
chromaInitValue				dc.w		chromaMonochromeItemID					;InitialValue
chromaPopUpMenu				dc.b		'$$Chroma:\H'
							dc.w		chromaItemID
							dc.b		0
							dc.b		'--Black/White\H'
							dc.w		chromaMonochromeItemID
							dc.b		0
							dc.b		'--Color\H'
							dc.w		chromaColorItemID
							dc.b		0
							dc.b		'.'
			
pageFeedItem				dc.w		9										;pCount
							dc.l		pageFeedItemID							;ID
							dc.w		131,7,0,0								;Rect
							dc.l		popUpControl							;ProcRef
							dc.w		32										;Flags
							dc.w		$1004									;MoreFlags
							dc.l		0										;RefCon
							dc.w		92										;TitleWidth
							dc.l		pageFeedPopUpMenu						;MenuRef
							export		pageFeedInitValue
pageFeedInitValue			dc.w		pageFeedAutoItemID						;InitialValue
pageFeedPopUpMenu			dc.b		'$$Sheet Feed:\H'
							dc.w		pageFeedItemID
							dc.b		0
							dc.b		'--Automatic\H'
							dc.w		pageFeedAutoItemID
							dc.b		0
							dc.b		'--Manual\H'
							dc.w		pageFeedManualItemID
							dc.b		0
							dc.b		'.'
			
pagesTitleItem				dc.w		8										;pCount
							dc.l		pagesTitleItemID						;ID
							dc.w		47,7,47+12,7+50							;Rect
							dc.l		statTextControl							;ProcRef
							dc.w		1										;Flags
							dc.w		$1000									;MoreFlags
							dc.l		0										;RefCon
							dc.l		@TitleStart								;TitleRef
							dc.w		@TitleEnd-@TitleStart					;TextSize
@TitleStart					dc.b		'Pages:'
@TitleEnd:

pagesAllItem				dc.w		8										;pCount
							dc.l		pagesAllItemID							;ID
							dc.w		47,99,0,0								;Rect
							dc.l		radioControl							;ProcRef
							dc.w		0										;Flags
							dc.w		$1000									;MoreFlags
							dc.l		0										;RefCon
							dc.l		pagesAllTitle							;TitleRef
							export		pagesAllInitValue			
pagesAllInitValue			dc.w		0										;InitialValue
pagesAllTitle				str			'All'
			
pagesRangeItem				dc.w		8										;pCount
							dc.l		pagesRangeItemID						;ID
							dc.w		47,164,0,0								;Rect
							dc.l		radioControl							;ProcRef
							dc.w		0										;Flags
							dc.w		$1000									;MoreFlags
							dc.l		0										;RefCon
							dc.l		pagesRangeTitle							;TitleRef
							export		pagesRangeInitValue
pagesRangeInitValue			dc.w		0										;InitialValue
pagesRangeTitle				str			'Range'
		
pagesFromTitleItem			dc.w		8										;pCount
							dc.l		pagesFromTitleItemID					;ID
							dc.w		61,58,61+12,58+36						;Rect
							dc.l		statTextControl							;ProcRef
							dc.w		1										;Flags
							dc.w		$1000									;MoreFlags
							dc.l		0										;RefCon
							dc.l		@TitleStart								;TitleRef
							dc.w		@TitleEnd-@TitleStart					;TextSize
@TitleStart					dc.b		'From'
@TitleEnd:

							export		pagesFromBoxString
pagesFromBoxItem			dc.w		8										;pCount
							dc.l		pagesFromBoxItemID						;ID
							dc.w		60,99,60+13,99+52						;Rect
							dc.l		$83000000								;PR: lineEditControl
							dc.w		0										;Flags
							dc.w		$7000									;MoreFlags
							dc.l		0										;RefCon
							dc.w		5										;MaxSize
							dc.l		pagesFromBoxString						;DefaultRef
pagesFromBoxString			str			'XXXXX'
			
pagesToTitleItem			dc.w		8										;pCount
							dc.l		pagesToTitleItemID						;ID
							dc.w		75,58,75+12,58+20						;Rect
							dc.l		statTextControl							;ProcRef
							dc.w		1										;Flags
							dc.w		$1000									;MoreFlags
							dc.l		0										;RefCon
							dc.l		@TitleStart								;TitleRef
							dc.w		@TitleEnd-@TitleStart					;TextSize
@TitleStart					dc.b		'To'
@TitleEnd:

							export		pagesToBoxString
pagesToBoxItem				dc.w		8										;pCount
							dc.l		pagesToBoxItemID						;ID
							dc.w		74,99,74+13,99+52						;Rect
							dc.l		$83000000								;PR: lineEditControl
							dc.w		0										;Flags
							dc.w		$7000									;MoreFlags
							dc.l		0										;RefCon
							dc.w		5										;MaxSize
							dc.l		pagesToBoxString						;DefaultRef
pagesToBoxString			str			'XXXXX'

copiesTitleItem				dc.w		8										;pCount
							dc.l		copiesTitleItemID						;ID
							dc.w		28,7,28+12,7+50							;Rect
							dc.l		statTextControl							;ProcRef
							dc.w		1										;Flags
							dc.w		$1000									;MoreFlags
							dc.l		0										;RefCon
							dc.l		@TitleStart								;TitleRef
							dc.w		@TitleEnd-@TitleStart					;TextSize
@TitleStart					dc.b		'Copies:'
@TitleEnd:
			
							export		copiesBoxString
copiesBoxItem				dc.w		8										;pCount
							dc.l		copiesBoxItemID							;ID
							dc.w		27,99,27+13,99+52						;Rect
							dc.l		$83000000								;PR: lineEditControl
							dc.w		0										;Flags
							dc.w		$7000									;MoreFlags
							dc.l		0										;RefCon
							dc.w		5										;MaxSize
							dc.l		copiesBoxString							;DefaultRef
copiesBoxString				str			'XXXXX'
							




*
*ABOUTALERTSTRING: About-box content definition:
*
							export		AboutAlertString
AboutAlertString			dc.b		'6'										;box size spec
							dc.b		'3'										;icon spec "note"
							dc.b		'/'										;separator
							dc.b		'ImageWriter printer driver '
							dc.b		'written by Ben Koning.  Testing '
							dc.b		'by Bob Haven.  Copyright '
							dc.b		'1991 Apple Computer.'
							dc.b		'/'										;separator
							dc.b		'^#0'									;btn dflt "OK" 0
							dc.b		0										;terminator





							endr
							end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/NEW.IW/entry.aii b/IIGS.601.SRC/GSToolbox/PrinterDrivers/NEW.IW/entry.aii
new file mode 100644
index 0000000..17243ed
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/NEW.IW/entry.aii
@@ -0,0 +1 @@
+
******************************************************************************************
*                                                                                        *
*		Apple IIgs New ImageWriter Printer Driver                                        *
*                                                                                        *
*		File: entry.aii -- Entry Points; environment (D/B) setup; dispatch to routines   *
*                                                                                        *
*		Written by Ben Koning                                                            *
*		Copyright (C) 1990 Apple Computer, Inc.                                          *
*                                                                                        *
******************************************************************************************






							include		'equates.aii'
							
							
							include		'm16.util'
							include		'm16.memory'
							include		'e16.print'
							
							
EntryProc					proc		export



*
*New (Apple IIgs System Disk 5.0 and later), re-entrant, driver entry point:
*
Entry						dc.w		0
							dc.w		(DispatchEnd-DispatchBegin)/4
*
*Save/Set Bank and Direct registers (D page; B=K), assume no errors, dispatch to routines:
*
							phb									;Save B byte for later restore
							phd									;Save D word for later restore
							cpx			#((17-1)*4)+1			;See if call # is in range
							bcc			Entry1
							brk			#$BB					;Should never happen
Entry1						tsc
							sec
							sbc			#DPSize					;Stack frame for small direct page
							tcs
StackParam					equ			1+3+3+1+2+DPSize		;1 + RTL1 + RTL2 + B + D + StackFrame
							ina
							tcd									;Set our D to our stack frame
							phk
							plb									;Set our B; now can use abs addr
							stz			errNo					;Assume no error unless set later on
							jmp			(DispatchBegin,x)		;Go do one of our routines


														
*
*Dispatch table:
*
DispatchBegin				
							dc.l		IW_PrDefault
							dc.l		IW_PrValidate
							dc.l		IW_PrStlDialog
							dc.l		IW_PrJobDialog
							dc.l		IW_PrDriverVer
							dc.l		IW_PrOpenDoc
							dc.l		IW_PrCloseDoc
							dc.l		IW_PrOpenPage
							dc.l		IW_PrClosePage
							dc.l		IW_PrPicFile
							dc.l		IW_Reserved				;Reserved
							dc.l		IW_PrError
							dc.l		IW_PrSetError
							dc.l		IW_PrChanged			;Internal call (not from app)
							dc.l		IW_PrPixelMap
							dc.l		IW_PrGetPrinterSpecs
							dc.l		IW_PrGetPgOrientation
DispatchEnd



*
*EXIT: Jump here when done doing driver call.
*After removing direct page stack frame, this routine moves 9 bytes at bottom of stack X number
*of bytes up, restores D/B, leaves A and carry with error status, and RTLs.  Note that 2 RTLs are
*assumed to be on the stack.
*
Exit						tsc									;Get rid of our little scratch area
							clc
							adc			#DPSize
							tcs
	 						cpx			#0						;Have to do this compare for 0
							beq			Exit3
							stx			TmpNumMov
							tsc
							sta			Exit1+1
							clc
							adc			TmpNumMov
							sta			Exit2+1
							push1		#0
							plb									;Our data bank is 0 at this point
							ldy			#8						;9+(0 because we're JMPed-to) - 1
Exit1						lda			$FFFF,y
Exit2						sta			$FFFF,y
							dey
							dey
							bpl			Exit1
							phk
							plb
							lda			Exit2+1
							tcs									;S restored
Exit3						lda			errNo					;get errNo for use in a sec...
							pld									;D restored--no more direct addrs
							plb									;B restored--no more absolute addrs
							cmp			#1						;ACC has err... set carry if nonzero
							rtl									;Exit back to print manager
*
TmpNumMov					dc.w		0						;Temporary storage used above






****************************************************************************************************





*
*The following routines do all the work of the printer driver, or at least contain JSRs to
*routines in other files.  The following has happened on entry to these routines:
*
*		* The caller's D/B registers have been saved
*		* The D register is the same as the K register so absolute adressing can be used
*		* The B register points to DPSize free bytes on the stack for scratch usage
*		* "errNo" has been set to zero, assuming no errors from the routine
*		* Since caller's environment was saved on stack, the driver is re-entrant.
*
*These routines should do their work by:
*
*		* Accessing input/output parameters on the stack by means of LDx/STx StackParam+N,s,
*		  where the N refers to the relative offset (ie, 0,2,4 would be 3 words on the stack)
*		* Using our small direct page area, JSRing to other assembly files, using the stack
*		* Changing "errNo" to be nonzero if error flagging is desired
*		* Calling routines in this driver if desired (some port driver calls actually do this)
*		* LDX #N, where N is the number of input parameter bytes used by the routine
*		* JMP/BRL Exit.
*
*The exit routine will then:
*
*		* Dump our small direct page off of the stack
*		* Dump input parameters off of the stack
*		* Restore the caller's D/B registers from stack
*		* Set the A register with value of "errNo" and set the carry if nonzero
*		* Exit via RTL.
*






****************************************************************************************************
IW_Reserved					ldx			#2						;$0002 - Tool Locator func not found
							stx			errNo
*
							ldx			#0						;assume no bytes to strip off stack
							brl			Exit
****************************************************************************************************







****************************************************************************************************
IW_PrDefault				lda			StackParam+0,s			;This routine fills in the user's
							sta			printRecordHandle+0		;area of memory with a default
							lda			StackParam+2,s			;print record with standard options
							sta			printRecordHandle+2
*
							import		InitPrintRecord
							jsr			InitPrintRecord			;Metrics routine
*
							ldx			#4						;# of input param bytes to strip
							brl			Exit
****************************************************************************************************
							
							
							




****************************************************************************************************
IW_PrValidate				lda			StackParam+0,s			;This routine checks to make sure
							sta			printRecordHandle+0		;the user's print record is
							lda			StackParam+2,s			;self-consistent and up to date,
							sta			printRecordHandle+2		;and changes it if necessary
*
							import		GetOkOurDriver
							jsr			GetOkOurDriver			;Metrics: Same driver as last time?
							beq			PrVaAllCorrect			;wow, this print record is perfect
							import		InitPrintRecord
							jsr			InitPrintRecord			;take over print record for us
							lda			#1						;recAdjustFlag := true
							bra			PrVaExit
							import		CalcMetrics
PrVaAllCorrect				jsr			CalcMetrics				;make sure self-consistent
							lda			#0						;recAdjustFlag := false
*
PrVaExit					sta			StackParam+4,s			;store recAdjustFlag result
							ldx			#4						;# of input param bytes to strip
							brl			Exit
****************************************************************************************************







****************************************************************************************************
IW_PrStlDialog				lda			StackParam+0,s			;This routine uses data in the
							sta			printRecordHandle		;user's print record to properly
							lda			StackParam+2,s			;draw a dialog, and allows the
							sta			printRecordHandle+2		;user to modify that data
*
							import		GetOkOurDriver			;ensure a valid rec for this driver
							jsr			GetOkOurDriver			;Metrics: Same driver as last time?
							beq			PrStAllCorrect			;wow, this print record is perfect
							import		InitPrintRecord			;not same driver as last time, so...
							jsr			InitPrintRecord			;...take over print record for us
							import		CalcMetrics
PrStAllCorrect				jsr			CalcMetrics				;make sure self-consistent, though
*
							import		CheckAndDoAboutBox		;do about box if requested...
							jsr			CheckAndDoAboutBox
							import		ConductStyleDialog		;go do the dialog, ACC will have...
							jsr			ConductStyleDialog		;value for confirmFlag
*
							sta			StackParam+4,s			;return confirmFlag to user
							ldx			#4						;# of input param bytes to strip
							brl			Exit
****************************************************************************************************






****************************************************************************************************
IW_PrJobDialog				lda			StackParam+0,s			;This routine is like PrStlDialog,
							sta			printRecordHandle		;but should be called just before
							lda			StackParam+2,s			;doing the print loop.
							sta			printRecordHandle+2
*
							import		GetOkOurDriver			;ensure a valid rec for this driver
							jsr			GetOkOurDriver			;Metrics: Same driver as last time?
							beq			PrJoAllCorrect			;wow, this print record is perfect
							import		InitPrintRecord			;not same driver as last time, so...
							jsr			InitPrintRecord			;...take over print record for us
							import		CalcMetrics
PrJoAllCorrect				jsr			CalcMetrics				;make sure self-consistent, however
*
							import		CheckAndDoAboutBox		;do about box if requested...
							jsr			CheckAndDoAboutBox
							import		ConductJobDialog		;do it, ACC will have value...
							jsr			ConductJobDialog		;for confirmFlag
*
							sta			StackParam+4,s			;return confirmFlag to user
							ldx			#4						;# of input param bytes to strip
							brl			Exit
****************************************************************************************************






****************************************************************************************************
IW_PrDriverVer				lda			#VersionID				;This routine returns the version
							sta			StackParam+0,s			;number of this particular driver
*
							ldx			#0						;# of input param bytes to strip
							brl			Exit
****************************************************************************************************






****************************************************************************************************
IW_PrOpenDoc				lda			StackParam+0,s			;This routine clears error status,
							sta			printGrafPortPtr		;and initializes and sets a GrafPort
							lda			StackParam+2,s			;with boundsrect, etc., configured
							sta			printGrafPortPtr+2		;for the resolution of the printer.
							lda			StackParam+4,s			;If printGrafPtr is NIL, we allocate
							sta			printRecordHandle		;our own space, else we use the
							lda			StackParam+6,s			;caller's GrafPort and configure it.
							sta			printRecordHandle+2
*
							import		OpenDoc
							jsr			OpenDoc					;print loop routine
*
							lda			printGrafPortPtr		;pass GrafPort back to user,
							sta			StackParam+8,s			;in case we allocated it here...
							lda			printGrafPortPtr+2
							sta			StackParam+10,s
							ldx			#8						;# of input param bytes to strip
							brl			Exit
****************************************************************************************************






****************************************************************************************************
IW_PrCloseDoc				lda			StackParam+0,s			;this routine closes the printing
							sta			printGrafPortPtr		;grafport, frees its memory if the
							lda			StackParam+2,s			;caller passed NIL during OpenDoc,
							sta			printGrafPortPtr+2		;restores grafport and stops spooling
*
							import		CloseDoc
							jsr			CloseDoc				;print loop routine
*
							ldx			#4						;# of input param bytes to strip
							brl			Exit
****************************************************************************************************






****************************************************************************************************
IW_PrOpenPage				lda			StackParam+0,s			;this routine keeps track of #pages
							sta			pageFramePtr			;and works only if within page range
							lda			StackParam+2,s			;this routine calls OpenPicture with
							sta			pageFramePtr+2			;pageframe of rPage or user-select
							lda			StackParam+4,s			;the current (print) grafport is
							sta			printGrafPortPtr		;re-initialized, and SpoolPut is
							lda			StackParam+6,s			;called explicitly to store initial
							sta			printGrafPortPtr+2		;info PutPic doesn't get called for
*
							import		OpenPage
							jsr			OpenPage				;print loop routine
*
							ldx			#8						;# of input param bytes to strip
							brl			Exit
****************************************************************************************************






****************************************************************************************************
							import		ClosePage				;This routine terminates a page
IW_PrClosePage				jsr			ClosePage				;print loop routine
*
							ldx			#4						;# of input param bytes to strip
							brl			Exit					;(we didn't need input parameters)
****************************************************************************************************






****************************************************************************************************
IW_PrPicFile				lda			StackParam+0,s			;This routine plays back the
							sta			statusRecPtr			;spooled QD picture, one page at
							lda			StackParam+2,s			;a time (handling all inter-page
							sta			statusRecPtr+2			;activities) to the correct bin,
							lda			StackParam+4,s			;doing PixelMap.
							sta			printGrafPortPtr
							lda			StackParam+6,s	
							sta			printGrafPortPtr+2
							lda			StackParam+8,s
							sta			printRecordHandle
							lda			StackParam+10,s
							sta			printRecordHandle+2
*
							import		PicFile
							jsr			PicFile					;print loop routine
*
							ldx			#12						;# of input param bytes to strip
							brl			Exit
****************************************************************************************************






****************************************************************************************************
							import		GetPrintLoopError
IW_PrError					jsr			GetPrintLoopError		;err in acc from print loop routine
							sta			StackParam+0,s
							ldx			#0						;# of input param bytes to strip
							brl			Exit
****************************************************************************************************






****************************************************************************************************
							import		SetPrintLoopError
IW_PrSetError				lda			StackParam+0,s			;get in acc
							jsr			SetPrintLoopError		;print loop routine
							ldx			#2						;# of input param bytes to strip
							brl			Exit
****************************************************************************************************






****************************************************************************************************
IW_PrChanged				pushlong	#DeviceNameStr			;Informs port driver of type of
							ldx			#$1913					;device; important for networking
							jsl			$E10000					;_PrDevPrChanged
							ldx			#0						;# of input param bytes to strip
							brl			Exit					;we're done
DeviceNameStr				str			'='						;ID string in appletalk NBP format
							str			'ImageWriter'
							str			'*'
****************************************************************************************************






****************************************************************************************************
IW_PrPixelMap				lda			StackParam+0,s			;get...			;This routine calls
							sta			ParamWordA				;colorFlag		;the imaging routine
							lda			StackParam+2,s			;get...			;without any hi-level
							sta			ParamLongA+0			;srcRectPtr lo	;support of printing
							lda			StackParam+4,s			;get...			;loop; just chooses
							sta			ParamLongA+2			;srcRectPtr hi	;default options ex-
							lda			StackParam+6,s			;get...			;cept color/BW, and
							sta			ParamLongB+0			;srcLocPtr lo	;prints "srcRectPtr"
							lda			StackParam+8,s			;get...			;part of the caller's
							sta			ParamLongB+2			;srcLocPtr hi	;pxmap in "srcLocPtr"
*
							pha									;Abort if no port. Result space...
							ldx			#$3013					;ask currently installed port driver
							jsl			$E10000					;_DevIsItSafe
							pla
							bne			PiMaOkDevice			;true result: no error
							lda			#portNotOn				;else: return with tool error
							sta			errNo
							bra			PiMaExit
PiMaOkDevice
*
							stz			ParamWordB				;begin building ActionBits...
							pha									;find out if we're on an IW-One
							pha
							ldx			#$1813					;_PrGetPrinterSpecs (below)
							jsl			$E10000
							pla									;ignore printer type
							pla									;get color capability: %10 == yes
							cmp			#%10
							beq			PiMaIsColorDevice
							;			  5432109876543210		;not color: treat always as if IW-One
							lda			#%0000000000000100
							sta			ParamWordB
PiMaIsColorDevice
*
							pushlong	ParamLongB				;pass srcLocP
							pushlong	ParamLongA				;pass srcRectP
							pushlong	#$E19E00				;hardcoded colortbl. better way?!!
							pushlong	#$E19D00				;hardcoded scb's. better way?!!
							pushword	#pixMapCallCrWidth		;carriage width
							pushword	#pixMapCallPaperLength	;paper length
							;			  5432109876543210
							pushword	ParamWordB				;pass ActionBits that we've built
							lda			#0						;default QualityBits except...
							ldx			ParamWordA				;get color flag
							beq			PiMaNoColor				;if zero no color
							;			  5432109876543210
							ora			#%1000000000000000		;set color option in QualityBits	
PiMaNoColor					pha									;pass QualityBits
							pushlong	#0						;default idleproc
							import		Imager
							jsl			Imager					;go print
							bcc			PiMaExit				;no error happened; exit
							sta			errNo					;return error as tool call error
*
PiMaExit					ldx			#10						;# of input param bytes to strip
							brl			Exit
****************************************************************************************************






****************************************************************************************************
IW_PrGetPrinterSpecs		pushlong	#0						;find out   ;dummy pix locinfo ptr
							pushlong	#0						;whether we ;dummy pix-pr rect ptr
							pushlong	#0						;have       ;dummy color table ptr
							pushlong	#0						;color      ;dummy scb list ptr
							pushword	#0						;ribbon...  ;dummy carriage width
							pushword	#0						;			;dummy paper length
							;			  5432109876543210
							pushword	#%0000000010100001		;ActionBits: ask for ID only
							pushword	#0						;dummy QualityBits (feature select)
							pushlong	#0						;no idleproc; quit stat ignored here
							import		Imager					;call imager, sends command to
							jsl			Imager					;printer
							tax									;save ID state for a second...
							and			#%0000000000000001		;if bit 0 set then it's an IW
							beq			PrSpPassPrType			;if cleared, return zero
							lda			#DeviceID		 		;else, our IW-device identification
PrSpPassPrType				sta			StackParam+0,s			;pass printerType to application
							txa									;recover ID state again...
							and			#%0000000000000010		;if bit 1 set then has color ribbon
							bne			PrSpPassColorCap		;if set, return two ("10")
							lda			#1						;else, return one ("01")
PrSpPassColorCap			sta			StackParam+2,s			;pass characteristics to application
							ldx			#0						;# of input param bytes to strip
							brl			Exit
****************************************************************************************************






****************************************************************************************************
IW_PrGetPgOrientation		lda			StackParam+0,s			;This routine returns the value
							sta			printRecordHandle+0		;of the orientation setting just
							lda			StackParam+2,s			;to try to keep the application out
							sta			printRecordHandle+2		;of the print record
*
							import		GetOrientation
							jsr			GetOrientation			;Metrics routine
							sta			StackParam+4,s
*
							ldx			#4						;# of input param bytes to strip
							brl			Exit
****************************************************************************************************



							endproc
							end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/NEW.IW/equates.aii b/IIGS.601.SRC/GSToolbox/PrinterDrivers/NEW.IW/equates.aii
new file mode 100644
index 0000000..e3173ff
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/NEW.IW/equates.aii
@@ -0,0 +1 @@
+
******************************************************************************************
*                                                                                        *
*		Apple IIgs New ImageWriter Printer Driver                                        *
*                                                                                        *
*		File: equates.aii -- Common direct page labels and equates for all to use        *
*                                                                                        *
*		Written by Ben Koning                                                            *
*		Copyright (C) 1990 Apple Computer, Inc.                                          *
*                                                                                        *
******************************************************************************************






*
*Device and configuration information:
*
DeviceID					equ			1							;Device type (2=LQ, 1=IW, 3=LW)
VersionID					equ			$0402						;Version ID word: $XXYY ==> X.Y



*
*Human interface potentiometers:
*
StatusMesgDelay				equ			150							;Time of err status mesg (ticks)



*
*Memory allocation performance potentiometers:
*
UserIDType					equ			$1000						;UID for mem alloc calls, etc.
SpoolMemIncDefault			equ			2*1024						;Spool granularity of mallocs
SpoolMemLeftLimitDefault	equ			135*1024					;Spool->Mem or Disk threshold



*
*Communication performance potentiometers:
*
OutputFlowQuantumMin 		equ			25							;imager min # data to PrDevWrite
OutputFlowQuantumMax 		equ			510							;imager max # data to PrDevWrite
RunLenEncodeThreshIW		equ			8							;# groups at which rle is advant



*
*QuickDraw-dependent equates:
*
QDMaxPixBuff				equ			$FFFF						;Maximum LocInfo.PtrToPixImage
QDAuxTheKindDPLoc			equ			$A6							;contains kind of PicComment
QDAuxTheSizeDPLoc			equ			$A8							;contains size of PicComment
QDAuxTheHandleDPLoc			equ			$AA							;contains hdl to PicComment data
QDDrawVerbDPLoc				equ			$38							;"DrawVerb" quickdraw equate
QDTextPtrDPLoc				equ			$DA							;"TextPtr" quickdraw equate
QDTextLengthDPLoc			equ			$D8							;"TextLength" quickdraw equate
QDCharToDrawDPLoc			equ			$D6							;"CharToDraw" quickdraw equate
QDDrawCharVerbEqu			equ			0							;"DrawCharVerb" quickdraw equate
QDDrawTextVerbEqu			equ			1							;"DrawTextVerb" quickdraw equate
QDDrawCStrVerbEqu			equ			2							;"DrawCStrVerb" quickdraw equate
ov1							equ			0							;Point data structure element
oh1							equ			2							;Point data structure element
ov2							equ			4							;Point data structure element
oh2							equ			6							;Point data structure element



*
*QuickDraw PicComments that this driver listens to:
*
EndOfPagePicCommentKind		equ			250							;For marking next pic in spool
ChangeCTBLPicCommentKind	equ			251							;For if app wants new color tbl
ChangeSCBPicCommentKind		equ			252							;For if app wants new SCB(s)





*
*Imagewriter metrics and low-level driver features:
*Note that the wDev definition below is somewhat different from "QualBits" in the imager routine.
*This was done to maintain some bit-compatibility with the old ImageWriter driver:
*
										;5432109876543210
wDevNoStatusBox				equ			%1000000000000000			;15 1=no stat mesg box 0=normal
wDevGap						equ 		%0000000001000000			;6	1=normal 0=no vert gap
wDevColor					equ			%0000000000100000			;5	1=color 0=grayscale
wDevReduction				equ			%0000000000001000			;3	1=normal 0=50% reduction
wDevVSize					equ			%0000000000000100			;2	1=normal 0=vert condense
wDevOrientation				equ			%0000000000000010			;1	1=portrait 0=landscape
wDevBetterText				equ			%0000000000000001			;0	1=high resolution printing



*
*New print record definitions for this driver, placed where "oprintX" used to be:
*
opFileBlockSize				equ			$64+0						;Granularity of spool mallocs
opFileMemLimit				equ			$64+4						;When to start spooling to disk
opCTable					equ			$64+8						;Color table for imaging
opSCBList					equ			$64+12						;SCB list for imaging
owQuality					equ			$64+16						;New print quality definitions
owPaperCrWidth				equ			$64+18						;Variable internal crWidth value
owResScaling				equ			$64+20						;Better-quality scaling value



*
*Imaging routine/printer maximum resolutions.  These are starting points for metrics calculations:
*
maxResPortraitX				equ			160							;Printer pixels per inch (dpi)
maxResPortraitY				equ			144
maxResLandscapeX			equ			144
maxResLandscapeY			equ			160
printLineMargin				equ			4							;Left line margin in 1/16" units
pixMapCallCrWidth			equ			8*maxResPortraitX			;Carriage width for PrPixMap call
pixMapCallPaperLength		equ			11*maxResPortraitY/2		;Paper tallness for PrPixMap call
prRecCrWidth				equ			960							;historical value apps expect



*
*The following paper dimensions are in 1/16th inch units--they are 16 times too big (for accuracy):
*
paperTypeUsaLetter			equ			0							;8.5 x 11"		1/4" gap
paperSizeUsaLetterX			equ			136							;US Letter MUST be type 0
paperSizeUsaLetterY			equ			176
paperSizeUsaLetterGap		equ			4

paperTypeUsaLegal			equ			1							;8.5 x 14"		1/4" gap
paperSizeUsaLegalX			equ			136							;US Legal MUST be type 1
paperSizeUsaLegalY			equ			224
paperSizeUsaLegalGap		equ			4

paperTypeEurA4				equ			2							;210 x 197mm	1/4" gap
paperSizeEurA4X				equ			136							;Eur A4 MUST be type 2
paperSizeEurA4Y				equ			187
paperSizeEurA4Gap			equ			4

paperTypeEurIntlFanfold		equ			3							;210 mm x 12"	1/4" gap
paperSizeEurIntlFanfoldX	equ			136							;Intl FF MUST be type 3
paperSizeEurIntlFanfoldY	equ			192
paperSizeEurIntlFanfoldGap	equ			4

paperTypeEurB5				equ			4							;176 x 250mm	1/4" gap
paperSizeEurB5X				equ			110
paperSizeEurB5Y				equ			157
paperSizeEurB5Gap			equ			4

paperTypeUsaStatement		equ			5							;5.5 x 8.5"		1/4" gap
paperSizeUsaStatementX		equ			88
paperSizeUsaStatementY		equ			136
paperSizeUsaStatementGap	equ			4

paperTypeEnvNo6				equ			6							;6.5 x 3.625"	1/4" gap
paperSizeEnvNo6X			equ			104
paperSizeEnvNo6Y			equ			58
paperSizeEnvNo6Gap			equ			4

paperTypeLblSml				equ			7							;3 x 0.9375"	1/4" gap
paperSizeLblSmlX			equ			48
paperSizeLblSmlY			equ			15+1						;+1/16" space b/w labels
paperSizeLblSmlGap			equ			4

paperTypeLblMed				equ			8							;3.5 x 0.9375"	1/4" gap
paperSizeLblMedX			equ			56
paperSizeLblMedY			equ			15+1						;+1/16" space b/w labels
paperSizeLblMedGap			equ			4

paperTypeLblLrg				equ			9							;4 x 1.4375"	1/4" gap
paperSizeLblLrgX			equ			64
paperSizeLblLrgY			equ			23+1						;+1/16" space b/w labels
paperSizeLblLrgGap			equ			4

paperTypeLblPacking			equ			10							;4 x 2.9375"	1/4" gap
paperSizeLblPackingX		equ			64
paperSizeLblPackingY		equ			47+1						;+1/16" space b/w labels
paperSizeLblPackingGap		equ			4

paperTypeLblDisk35			equ			11							;2.75 x 2.75"	1/4" gap
paperSizeLblDisk35X			equ			44
paperSizeLblDisk35Y			equ			44+4						;+1/4" space b/w labels
paperSizeLblDisk35Gap		equ			4

paperTypeLblDisk525			equ			12							;4.75 x 1.25"	1/4" gap
paperSizeLblDisk525X		equ			76
paperSizeLblDisk525Y		equ			20+4						;+1/4" space b/w labels
paperSizeLblDisk525Gap		equ			4

maxPaperTypeID				equ			paperTypeLblDisk525			;NOTE: LENGTH OF THIS LIST!



*
*Dialog boxes' item ID numbers... MUST be consecutive within groupings:
*
mesgFeedPromptID			equ			10000						;for status message alert
mesgFeedPromptOKButtID		equ			1							;for default <CR> action
mesgFeedPromptNGButtID		equ			10001
mesgFeedPromptStringID		equ			10002

titleItemID					equ			10100						;for both Job and Style dialogs
versionItemID				equ			10101
cancelItemID				equ			10102
okItemID					equ			10103

paperTypeItemID				equ			11000						;for Style dialog
paperTypeUsaLtrItemID		equ			12000+paperTypeUsaLetter
paperTypeUsaLglItemID		equ			12000+paperTypeUsaLegal
paperTypeEurA4ItemID		equ			12000+paperTypeEurA4
paperTypeEurIntlFFItemID	equ			12000+paperTypeEurIntlFanfold
paperTypeEurB5ItemID		equ			12000+paperTypeEurB5
paperTypeUsaStmtItemID		equ			12000+paperTypeUsaStatement
paperTypeEnvNo6ItemID		equ			12000+paperTypeEnvNo6
paperTypeLblSmlItemID		equ			12000+paperTypeLblSml
paperTypeLblMedItemID		equ			12000+paperTypeLblMed
paperTypeLblLrgItemID		equ			12000+paperTypeLblLrg
paperTypeLblPackingItemID	equ			12000+paperTypeLblPacking
paperTypeLblDisk35ItemID	equ			12000+paperTypeLblDisk35
paperTypeLblDisk525ItemID	equ			12000+paperTypeLblDisk525

reductionItemID				equ			13000						;for Style dialog
reductionFullSizeItemID		equ			13001
reduction50ItemID			equ			13002
effectsNoGapsItemID			equ			13003
effectsCondensedItemID		equ			13004
orientationTitleItemID		equ			13005
orientationPortraitItemID	equ			13006
orientationLandscapeItemID	equ			13007
effectsTitle1ItemID			equ			13008

printQualityItemID			equ			14000						;for Job dialog
printQualityDraftItemID		equ			14001
printQualityFasterItemID	equ			14002
printQualityStandardItemID	equ			14003
printQualityBetterItemID	equ			14004
chromaItemID				equ			15000
chromaMonochromeItemID		equ			15001
chromaColorItemID			equ			15002
pageFeedItemID				equ			15003
pageFeedManualItemID		equ			15004
pageFeedAutoItemID			equ			15005
pagesTitleItemID			equ			15006
pagesAllItemID				equ			15007
pagesRangeItemID			equ			15008
pagesFromTitleItemID		equ			15009
pagesToTitleItemID			equ			15010
copiesTitleItemID			equ			15011
pagesFromBoxItemID			equ			15012
pagesToBoxItemID			equ			15013
copiesBoxItemID				equ			15014



*
*Temporary zero page storage which is NOT maintained across driver calls or driver re-entries:
*
ParamWordA					equ			0					;general purpose and parameter passing
ParamWordB					equ			2
ParamWordC					equ			4
ParamWordD					equ			6
ParamWordE					equ			8
ParamLongA					equ			10
ParamLongB					equ			14
ParamLongC					equ			18
DialogWindowPtr				equ			22					;grafport pointer for job/style dialogs
OldGrafPortPtr				equ			26					;saving grafport behind job/style dialogs
errNo						equ			30					;tool err returned from our driver calls
printRecordHandle			equ			32					;must be valid for calling metrics code
printGrafPortPtr			equ			36					;paper-sized grafport used for printing
pageFramePtr				equ			40					;page frame passed by user for scaling
statusRecPtr				equ			44					;status rec updated during PrPicfile
OptionA						equ			48					;for passing options to metrics routines
OptionB						equ			50
ImagerDP					equ			52					;Imager routine needs 74 bytes dpage
															;Total DP Size: 74+52=126 < 128

DPSize						equ			127+1				;DP size on stack; <256 b/c stack params!
DPSizeParamOnly				equ			DialogWindowPtr+1	;DP size for just using some params only


\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/NEW.IW/imager.aii b/IIGS.601.SRC/GSToolbox/PrinterDrivers/NEW.IW/imager.aii
new file mode 100644
index 0000000..ef02204
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/NEW.IW/imager.aii
@@ -0,0 +1 @@
+
******************************************************************************************
*                                                                                        *
*		Apple IIgs New ImageWriter Printer Driver                                        *
*                                                                                        *
*		File: imager.aii -- Low Level Driver: Pixmap > RGB->CMY > ESC Codes > Port       *
*                           All communication with printer port drivers is handled here  *
*                                                                                        *
*		Written by Ben Koning based on original design by Jason Harper                   *
*		Copyright (C) 1990 Apple Computer, Inc.                                          *
*                                                                                        *
******************************************************************************************







							include		'equates.aii'
							
							
							include		'm16.util'
							include		'm16.intmath'
							include		'm16.event'
							include		'm16.misctool'
							include		'e16.quickdraw'


ImagerProc					proc		export




*********************************************************************************
*                                                                               *
*  ImageWriter I/II imaging routine for the Apple IIgs                          *
*                                                                               *
*  Written by Ben Koning                                                        *
*  Based on the design of the ImageWriter LQ imager by Jason Harper             *
*                                                                               *
*  On entry             16-bit full native mode                                 *
*                       D points to 1 page of Bank 0 for routine's use          *
*  |previous contents|  B is not assumed to point to any particular bank        *
*  |-----------------|                                                          *
*  |                 |                                                          *
*  |-   SrcLocPtr   -|  LONG: pointer to LocInfo record describing pixelmap     *
*  |                 |        or pointer to first char in string for text       *
*  |-----------------|                                                          *
*  |                 |  LONG: pointer to rectangle to be printed                *
*  |-  SrcRectPtr   -|        or coordinates for text:                          *
*  |                 |        +0: Rel Y, down only; +2: Abs X for print head    *
*  |-----------------|                                                          *
*  |                 |                                                          *
*  |-   CTablePtr   -|  LONG: pointer to color tables to be used                *
*  |                 |        or length of string for text                      *
*  |-----------------|                                                          *
*  |                 |  LONG: pointer to list of ScanlineControlBytes to use    *
*  |-  SCBListPtr   -|        for each line (1 byte each), must NOT be NIL!     *
*  |                 |        or bit vector giving text mode print options      *
*  |-----------------|                                                          *
*  |  CarriageWidth  |  WORD: rightmost pr limit; right margin for landscape    *
*  |-----------------|                                                          *
*  |   PaperLength   |  WORD: tallness of paper so formfeed works correctly     *
*  |-----------------|                                                          *
*  |   ActionBits    |  WORD: bit vector giving mechanical motion options       *
*  |-----------------|                                                          *
*  |   QualityBits   |  WORD: bit vector giving print method/density options    *
*  |-----------------|                                                          *
*  |                 |                                                          *
*  |-  IdleProcPtr  -|  LONG: pointer to idleproc to call or NIL for none       *
*  |                 |                                                          *
*  |-----------------|                                                          *
*  |  RTL3  |  RTL2  |                                                          *
*  |--------+--------'                                                          *
*  |  RTL1  |                                                                   *
*  '--------' <- SP                                                             *
*                                                                               *
*  On exit              A norm 0, nonzero if exit status/Option-Period press    *
*                       Carry set if nonzero A (see above)                      *
*                       X,Y trashed                                             *
*                       D unchanged                                             *
*  |previous contents|  B restored to original value                            *
*  |-----------------|                                                          *
*  |  RTL3  |  RTL2  |                                                          *
*  |--------+--------'                                                          *
*  |  RTL1  |                                                                   *
*  '--------' <- SP                                                             *
*                                                                               *
*  The static variable PrError is an exported global; setting it to a non-zero  *
*  value (from inside an idleproc) will cause the imager to abort.              *
*                                                                               *
*  Definition of ActionBits (setting to all zero causes default action):        *
*                                                                               *
*    Bit 0:  0=Output form feed (FF) when finished; 1=Don't do form feed        *
*    Bit 1:  0=Init/calibrate head, set paper len/TOF, calc color tbl; 1=Don't  *
*    Bit 2:  0=Normal, 1=Try to avoid using IW-II-specific commands             *
*    Bit 3:  Unused                                                             *
*    Bit 4:  Unused                                                             *
*    Bit 5:  0=Do imaging (graphics/text); 1=Don't (only init)                  *
*    Bit 6:  0=Print graphics; 1=Move paper/head and print text string          *
*            If Bit 6 set, set SrcLocPtr to address of string                   *
*            If Bit 6 set, set CTablePtr to length of string                    *
*            If Bit 6 set, set SrcRectPtr+0 delta_Y (down only); +2 to abs_X    *
*            If Bit 6 set, set SCBListPtr+0 to text font 0..3                   *
*                 0=NLQ, 1=draft, 2=NLQ, 3=LQ                                   *
*            If Bit 6 set, set SCBListPtr+1 to text size 0..7                   *
*                 0=9, 1=10, 2=12, 3=13.4, 4=15, 5=17 cpi, 6=prop1, 7=prop2     *
*	         If Bit 6 set, set SCBListPtr+2 to text style 0..2                  *
*	              Bit 0=bold; Bit 1=underline; Bit 2=double-w; Bit 3=half-h     *
*    Bit 7:  0=Normal; 1=Ask printer to identify itself (+ exit immediately)    *
*            If Bit 7 set, on exit ACC bit 0 set if device is ImageWriterI/II   *
*            If Bit 7 set, on exit ACC bit 1 set if device has color ribbon     *
*            If Bit 7 set, on exit ACC bit 2 set if device has sheet feeder     *
*            If Bit 7 set, on exit ACC bit 3 set if device is ImageWriter I     *
*    Bit 8:  0=Open port connection before sending (PrDevOpen); 1=Don't         *
*    Bit 9:  0=Close port connection after sending (PrDevClose); 1=Don't        *
*                                                                               *
*  Definition of QualityBits (equivalent to wDev field in print record):        *
*                                                                               *
*    Bit 0:  "Better".  If set, print at 1/2 size using double resolution       *
*    Bit 1:  0=Portrait orientation; 1=Landscape orientation                    *
*    Bit 2:  "Condensed".  If set, print 1/2 vertical size                      *
*    Bit 3:  0=Normal; 1=50% horizonal & vertical reduction                     *
*    Bit 7:  0=Vertical gap at end of sheet; 1=No gap between sheets            *
*    Bit 13: 0=Normal 1=Don't set boldface+unidirectional (faster)              *
*    Bit 14: 0=Do 160hdpi halftone (even if not Better); 1=80hdpi (faster)      *
*    Bit 15: 0=Grayscale (colors mapped); 1=Color (BCMY process)                *
*                                                                               *
*  Definition of exit error code in accumulator:                                *
*                                                                               *
*    $0080:  User typed command-period (this err has precedence over others)    *
*    $008X:  Status err (only works over network) (in certain precedence):      *
*            $81: Network error  $82: No paper    $83: Paper jam                *
*            $84: Cover open     $85: Select off  $8F: Printer busy (in use)    *
*    $000X:  If ActionBits set for self-id, result code (see above)             *
*                                                                               *
*  The "Better" bit causes everything to be printed at 1/2 size: the            *
*  higher-level routines should generate the bitmap at 2x (full size) or        *
*  1x (50% reduction) magnification to produce a properly sized image.          *
*                                                                               *
*  Boldface and unidirectional printing modes are set by default.  If the       *
*  don't-set-boldface-unidirectional bit is set, however, this won't be done,   *
*  resulting in speed improvement at the expense of density and registration.   *
*  Also, boldface (but not unidirect) is internally disabled for modes that     *
*  require interlaced printing, because interlacing results in darker output.   *
*                                                                               *
*  All halftone dither density patterns are printed at 160 horizontal dpi,      *
*  unless the use-80-dpi-patterns bit is set.  The latter case is faster but    *
*  results in rather ugly and macroscopic density patterns.                     *
*                                                                               *
*  CarriageWidth must be given in units of 160 (port) or 144 (land) horiz dpi;  *
*  PaperLength should be passed in units of 72 vertical pixels per inch.  The   *
*  X and Y displacements for printing text strings should be passed in terms    *
*  of 80 pix/inch horizontal and 72 pix/inch vertical (which coincides with     *
*  the effective resolution with the Better bit off).                           *
*                                                                               *
*  If something other than NIL is passed for IdleProcPtr, that location will    *
*  be JSL-ed to with our environment saved.  The Command-Period printing        *
*  interrupt request from the user is checked for even if an IdleProcPtr is     *
*  given.  (Command-Period causes the imager to abort and return $80 status)    *
*  An idleproc may set the global PrError to be non-zero to abort the imager.   *
*                                                                               *
*  Notes on terminology: In these routines, "band" refers to one scan of the    *
*  print head.  Do not confuse this with the printing bands into which the      *
*  high-level driver print loop routines split up each page due to possible     *
*  memory constraints.  Also, note the distinctions made in the comments        *
*  between "screen" and "printer" pixels.  "Screen" pixels are the input to     *
*  the imager (and are in fact usually in an off-screen buffer), and "printer"  *
*  pixels are the dots which are sent to the printer device.                    *
*                                                                               *
*  For modes that require 144 dpi vertical print head resolution, a vertical    *
*  interlace technique is employed: even vertical dots are printed, the paper   *
*  is advanced 1/144", and then odd vertical dots are printed.                  *
*                                                                               *
*  In portrait mode, a 16-bit-wise white scanning algorithm is employed to      *
*  improve speed performance.  It is enabled only if a color table entry that   *
*  is pure white is found.  This algorithm quickly recognizes large areas of    *
*  white even in between nonwhite areas and saves time by not processing those  *
*  areas.  A similar but more restricted algorithm exists in landscape mode:    *
*  the pure-white color table entry must be in a standard location, and any     *
*  particular column must have the same 320/640 mode bit value.                 *
*                                                                               *
*  In portrait/640/hscaling=1 mode only, a special-case imaging algorithm is    *
*  employed to improve speed performance.  It is enabled only if pure black     *
*  and pure white colors exist in their standard color table entries.   Like    *
*  the portrait mode white scanning algorithm, this shortcut is also able to    *
*  operate on parts of a line.                                                  *
*                                                                               *
*  Just before the printer-ready graphics data is output, it is analyzed and    *
*  broken up into sequences of print-discrete-data, print-repeating-data, and   *
*  position-print-head packets, so as to send less data to the printer and      *
*  to improve speed performance.                                                *
*                                                                               *
*  Just before any output data/commands are sent back to the print manager en   *
*  route to a port driver, it is buffered and thus subjected to maximum and     *
*  minimum flow quanta.                                                         *
*                                                                               *
*  To improve disk/memory space efficiency, the RGB to KCMY conversion table    *
*  is built at runtime, on an as-needed basis based on the number of color      *
*  tables "needed" by the given SCBs.                                           *
*                                                                               *
*  In general, the imager should always be called in an Open/Init/print/Close   *
*  sequence (as given by ActionBits commands).  This is so that various         *
*  resources, such as memory for tables, unique network connections, etc, are   *
*  deallocated properly.                                                        *
*                                                                               *
*********************************************************************************





*
*Direct-page usage:
*

IdleProcPtr		equ		ImagerDP+4					;long	;input parameter storage
QualBits   		equ 	ImagerDP+8					;word
ActionBits 		equ 	ImagerDP+10					;word
PaperLength		equ		ImagerDP+12					;word
CarriageWidth	equ		ImagerDP+14					;word
SCBListPtr 		equ 	ImagerDP+16					;long
CTablePtr  		equ 	ImagerDP+20					;long
SrcRectPtr 		equ 	ImagerDP+24					;long
SrcLocPtr  		equ 	ImagerDP+28					;long
SizeInputs      equ 	(ImagerDP+32)-IdleProcPtr

PixMapBase		equ		ImagerDP+32					;long	;addr of pixelmap to print
PixMapHigh		equ		ImagerDP+36					;word	;height/pixels
PixMapWide		equ		ImagerDP+38					;word	;width/640 mode pixels
PixMapLeft		equ		ImagerDP+40					;word	;pixels to skip at left edge
leftskip		equ		ImagerDP+42					;word	;counter for PixMapLeft
SCBTabBase		equ		ImagerDP+44					;word	;offset from SCBListPtr for pixelmap
MasterMode		equ		ImagerDP+46					;word	;mode ($00/$80) from SrcLocInfo
MasterPal		equ		ImagerDP+48					;word	;palette ($0..$F) from SrcLocInfo
LineDirty		equ		ImagerDP+50					;word	;linebuffer contains non-0 values
lineoffset		equ		ImagerDP+52					;word	;offset into linebuffer
pixelbits		equ		ImagerDP+54					;word	;linebuffer bit mask for curr. pixel
ThisLMode		equ		ImagerDP+56					;word	;mode ($00/$80) for this line
ThisLPal		equ		ImagerDP+58					;word	;palette ($0..$F) for this line
horpcount		equ		ImagerDP+60					;word	;horizontal pixel count
DitherH			equ		ImagerDP+62					;word	;horizontal dither matrix index
colorstr		equ		ImagerDP+64					;word	;word_ptr to setup string for this band
linebase		equ		ImagerDP+66					;word	;starting offset into linebuffer
colortemp		equ		ImagerDP+68					;long	;multipurpose temp for RGB->KCMY convert



*
*Equates defining QualityBits:
*

;					 5432109876543210
qbColor			equ %1000000000000000
qbRoughPatt		equ %0100000000000000
qbNoUniBo		equ %0010000000000000
qbNoGap			equ %0000000010000000
qbReduct		equ %0000000000001000
qbCndnsd		equ %0000000000000100
qbLandMode		equ %0000000000000010
qbBetter		equ %0000000000000001
;					 5432109876543210



*
*Equates defining ActionBits:
*

;					 5432109876543210
abNoFeed		equ %0000000000000001
abNoInit		equ %0000000000000010
abIsIWOne		equ %0000000000000100
abDoImage		equ %0000000000100000
abTextMode		equ %0000000001000000
abGetID			equ %0000000010000000
abNoOpen		equ %0000000100000000
abNoClose		equ %0000001000000000
;					 5432109876543210





*******************************************************************************





*
*IMAGER: Main entry point; copies stack params and calls startup/main/shutdown and returns:
*
				export Imager
		   
Imager:
				phb							;save orig B

				pea $0000					;set B to bank 0 to access stack
				plb
				plb

				tsc							;copy params into D locations
				tay
				ldx #0
copyparms
				lda |5,y
				sta IdleProcPtr,x
				iny
				iny
				inx
				inx
				cpx #SizeInputs
				blt copyparms

				phk							;set B to program bank
				plb
		   
				stz prError					;clear error status before starting
				stz wrbuff_enable			;clear output cache enable before starting
		   	
				jsr IWStartUp				;do open/self-id/printer setup/etc
				jsr StartWrBuff				;begin caching output
				jsr IWPrPixmapOrText		;do either text or graphics, causes much output
				jsr FinishWrBuff			;terminate output caching
				jsr IWShutDown				;do etc/reset options/formfeed/close

				ldx prError					;we'll return this on exit
				plb							;restore orig B
				lda 1,s
				sta SizeInputs+1,s
				lda 2,s
				sta SizeInputs+2,s
				clc
				tsc
				adc #SizeInputs
				tcs
				txa							;set ACC and carry if user-abort or error
				cmp #1
				rtl





*******************************************************************************





*
*WRITESHORT/WRITELONG/STARTWRBUFF/FINISHWRBUFF:
*
*These are routines to manage printer driver output to the currently selected port driver.
*WRITESHORT should be used for short command strings whose length is guaranteed to be below the
*flow quantum size; WRITELONG should be used for potentially much larger amounts of data.
*Surrounding WRITESHORT and WRITELONG calls with STARTWRBUFF and FINISHWRBUFF will cause the
*output to be buffered, thus improving performance, especially with network port drivers,
*especially when there are many short paper motion commands, as with interlaced printing.
*
*Two constants are used.  In no case will a WRITELONG call result to more than
*"OutputFlowQuantumMax" number of bytes be sent (it will be broken up into chunks); and, if
*buffering is enabled, an attempt is made to avoid sending less than "OutputFlowQuantumMin"
*number of bytes.  "OutputFlowQuantumMax" must be greater than "OutputFlowQuantumMin".
*





*
*WRITESHORT: Outputs short string to printer; 16-bit address of pascal-type string -> ACC:
*
writeshort		tax
 				inc a
				sta ws_addr+0				;low byte of address
				phb
				phb
 				pla
  				and #$00FF
 				sta ws_addr+2  				;high byte of address = PBR
				lda |0,x      				;get string length
				and #$00FF
				tax							;now ws_addr & X valid with address and length
				
				lda wrbuff_enable			;check if buffering is enabled
				beq ws_write				;if not, proceed to the main write routine
				
ws_bwrite		txa							;BUFFERED WRITE: Enter w/ ws_addr & X (X must be < buff)
				clc							;add buff ptr to request count
				adc wrbuff_cptr
				cmp #OutputFlowQuantumMin	;check if it would overflow the buffer
				bcs ws_bw_flush				;branch if that is the case
				sta wrbuff_cptr				;else, update ptr to next unused byte,
				dea
				tay							;Y now has last-byte-to-add-to-cache
				txa							;get write-request length
				clc
				adc ws_addr+0				;turn it into a 16-bit address to the data
				dea
				tax							;X now has 16-bit ptr to last byte in caller's string
				shortm						;now copy the data from ws_addr address to cache
ws_bcpy_loop	phk
				lda ws_addr+2
				pha
				plb
				lda |0,x
				plb
				sta wrbuff_cache,y
				dey							;dec ptr to caller's data
				dex							;dec ptr to our buffer
				cpx ws_addr+0				;until we're right at beginning of caller's string
				bcs ws_bcpy_loop			;copy back to and including 1st char of caller's string
				longm
				rts							;exit without having done actual write
				
ws_bw_flush		phx							;write request would overflow, so flush cache first
				lda ws_addr+0				;save X and ws_addr address
				pha
				lda ws_addr+2
				pha
				jsr ws_flush				;flush contents of cache
				pla							;restore X and ws_addr
				sta ws_addr+2
				pla
				sta ws_addr+0
				plx
				bra ws_bwrite				;now put write request contents into the cache
				
ws_flush		lda #wrbuff_cache			;FLUSH SUBR: Flushes entire cache contents
				sta ws_addr+0
				lda #^wrbuff_cache
				sta ws_addr+2				;put address of cache in ws_addr
				ldx wrbuff_cptr				;put length of data in cache in X
				stz wrbuff_cptr				;reset cache ptr back to beginning, drop into real write

ws_write		cpx #0						;REAL WRITE: Enter w/ ws_addr & X. Clr compl/err flag
				beq ws_exit
				stz ws_done					;clear completion flag
				pushlong #ws_cmpl			;completion routine to be called when write is done
				pushlong ws_addr			;address
				phx							;length still in X
				ldx #$1E13					;this call will return immediately
				jsl $E10000					;_PrDevWrite
				bcc ws_wait					;check if no error on immediate return
				cmp #$08FF					;make sure we don't count PAP buffer busy as an error
				beq ws_wait
ws_goterr		lda #$0081					;if error, set global flag and exit
 				sta prError
				jsr IdleProcAbortErrCheck	;try to find out a specific err other than $81
  				rts
ws_wait			lda ws_done					;wait until done or error
 				beq ws_wait
				bmi ws_goterr
ws_exit			rts

ws_addr			ds.l 1
ws_done			ds.w 1

ws_cmpl			ldx #1						;here so we're done.  if no err, done_flag gets set
  				cmp #0						;check ACC for error code
				beq ws_cmpl1
				lda >is_network				;if not on network, done_flag also always gets set
				beq ws_cmpl1
				ldx #$FFFF					;if err and on network, done_flag gets $FFFF
ws_cmpl1		txa							;store error code...
    			sta >ws_done
ws_cmpl2		rtl






*
*WRITELONG: Outputs long blocks of data to printer; Ptr.LO -> ACC, Ptr.HI -> X, Count -> Y:
*
writelong		sta wl_adr+0				;use params to init our running pointers
				stx wl_adr+2				;this routine will output long data in pieces
				sty wl_len
				
				lda wrbuff_enable			;check if we can buffer this data
				beq wl_nobuff				;buff must be enabled and this must be a short request
				cpy #OutputFlowQuantumMin-5
				bcc wl_yesbuff
				
wl_cantbuff		jsr ws_flush				;else: buffering on but request too large: flush and
				bra wl_nobuff				;then output the data without buffering
											
wl_yesbuff		tyx							;doing buffered write: setting up X with length and
				lda wl_adr+0				;ws_addr with address of write-request
				sta ws_addr+0
				lda wl_adr+2
				sta ws_addr+2
				brl ws_bwrite
wl_nobuff

wl_donext		lda wl_len					;if total data is now less than a piece do last chunk
				cmp #OutputFlowQuantumMax+1
				bcc wl_dolast
		   
				lda wl_adr					;else, write one chunk at a time...
				sta ws_addr					;set up ws_addr and X and go output a chunk
				lda wl_adr+2
				sta ws_addr+2
				ldx #OutputFlowQuantumMax
				jsr ws_write
		   
				clc							;...and advance pointer and decrease length...
				lda wl_adr
				adc #OutputFlowQuantumMax	;our_address.L += PortDrvrFlowQuantum.W
				sta wl_adr
				lda wl_adr+2
				adc #0
				sta wl_adr+2
				sec
				lda wl_len
				sbc #OutputFlowQuantumMax	;our_length.W -= PortDrvrFlowQuantum.W
				sta wl_len
				bra wl_donext				;...and go send next chunk
		   
wl_dolast		lda wl_adr					;set up ws_addr and X and go output last chunk and exit
 				sta ws_addr
				lda wl_adr+2
				sta ws_addr+2
				ldx wl_len
				brl ws_write
		   		   
wl_adr			ds.l 1						;running pointer to data to be sent for a chunk
wl_len			ds.w 1						;running decreasing count of data left to be sent





*
*STARTWRBUFF: Begins buffering of output.  Call before many successive WRITELONG/WRITESHORT calls:
*
startwrbuff		lda #1						;set flag so the write routines can act accordingly
				sta wrbuff_enable
				stz wrbuff_cptr				;init the ptr, points to next byte
				rts
				




*
*FINISHWRBUFF: Terminates buffering and flushes.  Must be called to balance STARTWRBUFF:
*
finishwrbuff	jsr ws_flush				;flush the cache
				stz wrbuff_enable			;clear flag so write routines will work normally again
				rts





wrbuff_enable	dc.w 0						;buffering-enable flag
wrbuff_cptr		dc.w 0						;cache pointer, points to next available byte
wrbuff_cache	ds.b OutputFlowQuantumMin	;small hardcoded cache, less than maximum flow quantum





*******************************************************************************





*
*IWSTARTUP: Gets unique connection, does ID request, resets printer, sets paper length, inits tables:
*
IWStartUp:		
				lda #0
				pha							;always see if we are on a networked port device, because
				pha							;we'll need to know whether we can do asyncronous I/O
				ldx #$2B13					;_PMGetNetworkName
				jsl $E10000
				pla
				sta is_network
				pla
				ora is_network
				sta is_network				;anyone in the imager may now check is_network

				beq iws_not_netid			;if on network and servicing self-id request, go
				lda ActionBits				;to the id-on-network section below, since it is not
				and #abGetID				;necessary to open a connection in this case
				beq iws_not_netid
				
do_id_network	stz status_buff+5			;begin of code to obtain self-id if on network
				pushlong #status_buff		;we can do self-id without having to open connection
				ldx #$2013					;do status inquiry to port driver
				jsl $E10000					;_PrDevStatus
				lda status_buff+5			;status buff was cleared above in case not supported
				tax
				;     5432109876543210
				ldy #%0000000000000001		;clr bits, and we already know: it's IW + it's not IW_I
do_id_net_0		and #%0000000010000000		;status bit 7 indicates color capability
				beq do_id_net_1
				tya
				;     5432109876543210
				ora #%0000000000000010		;indicate color by setting bit 1 in result
				tay
do_id_net_1		txa
				;     5432109876543210
				and #%0000000001000000		;status bit 6 indicates sheet feeder presence
				beq do_id_net_done
				tya
				;     5432109876543210
				ora #%0000000000000100		;indicate sheet feeder by setting bit 2 in result
				tay
do_id_net_done	sty PrError					;store result
				rts
				
iws_not_netid

				lda ActionBits				;see if execution of open request is desired
				and #abNoOpen
				bne dont_open
		   
				jsr IdleProcAbortErrCheck	;check if port driver connection request has any chance
				lda prError					;and also allow user to hit command-period...
				beq do_open					;abort on cmd-".", DevStatus err, status result buff err
abort_open		rts

do_open			pushlong #0					;request connection from port driver -- hog printer
				pushlong #0
				ldx #$1C13
				jsl $E10000					;_PrDevOpen
				lda #1						;set flag indicating that we have an exclusive connection
				sta is_our_conn
		   
dont_open		lda ActionBits				;see if printer/feature identification is desired
				and #abGetID				;for the direct-connect case
				bne do_id_notnet
				brl dont_id
		   				
do_id_notnet	ldy #6						;begin of code to obtain self-id if not on network
				lda #0						;zero out the receive buffer before starting
id_clear		sta r_idstring,y
				dey
				dey
				bpl id_clear
		   	
req_id			lda #s_selfid				;send self-id request
				jsr writeshort				;IW II response will be: [garbage_chr] IW10 [C] [F] <cr>
				
				pha							;do sync read (we're not on network)
				pushlong #r_idstring
				pushword #8
				ldx #$1D13
				jsl $E10000					;_PrDevRead
				pullword r_idlength

ana_id			stz PrError					;zero all result output bits before starting
				lda r_idlength				;if zero characters were returned from the read,
				bne ana_id_go				;assume it's an ImageWriter I with no color/no feeder
				;     5432109876543210
				lda #%0000000000001001
				sta PrError
				lda ActionBits				;set this so we don't issue ill commands on the way out
				ora #abIsIWOne
				sta ActionBits
				rts
ana_id_go		ldy #0						;we did get some ID chars; init index into string
				lda r_idstring,y 			;look at first 2 bytes of string (16-bit LDA) ("IW")
				cmp #'I'+('W'*256)
				beq id_match				;matches first try; don't adjust Y index, continue
				iny							;will try rest of matching offset by one
				lda r_idstring,y			;look for those two chars (16-bit LDA) ("IW") AGAIN!
				cmp #'I'+('W'*256)
				bne id_done					;string is not "IW10____" nor is it "_IW10____"; reject
id_match		lda r_idstring+2,y			;look at next two characters of string ("10")
				cmp #'1'+('0'*256)
				bne id_done
				;     5432109876543210
				lda #%0000000000000001		;indicate that it's at least a 10"-carriage IW_II
				sta PrError
				iny							;now search thru string and set other bits until end...
				iny							;set index to next character after "IW10"
				iny
				iny
new_id_chr		cpy r_idlength				;go until end of number of chars we got as id result
				bcs id_done
				shortm						;get a character out of the id string
				lda r_idstring,y
				longm
				tax
				cpx #'F'					;sheet feeder?
				bne not_feeder
				lda PrError					;indicate sheet feeder
				;     5432109876543210
				ora #%0000000000000100
				sta PrError
				bra nxt_id_chr
not_feeder		cpx #'C'					;color ribbon?
				bne nxt_id_chr
				lda PrError					;indicate color ribbon
				ora #%0000000000000010
				sta PrError
nxt_id_chr		iny
				bra new_id_chr
id_done			rts



dont_id			lda ActionBits				;init printer mechanics/recalibrate head, if desired
				and #abNoInit
				bne init_dont
				
				lda #s_reset				;reset printer (head recalibration and default options)
				jsr writeshort
						
				lda ActionBits				;prepare to set v paper length (not supported for IW I)
				and #abIsIWOne
				bne setpaplen_dont
				lda PaperLength				;set vert paper len to PaperLength param (given in 72ths)
				asl a
				pha
				pushlong #n_paperlen
				pushword #4
				pushword #0
				_Int2Dec
				lda #s_paperlen
				jsr writeshort				;do paper length command in 144ths
setpaplen_dont

init_dont
				stz prError					;clear any err status now before doing any print output
				rts


s_reset			dc.b	6					;reset printer to defaults and set american language
				dc.b	$1B,$63
				dc.b	$1B,$5A,$07,$00
			
s_paperlen		dc.b	6					;set vertical paper length for formfeed operation
				dc.b	$1B,$48
n_paperlen		dc.b	'0000'				;units are XXXX/144 inch

s_selfid		dc.b	2	  				;request ID string
				dc.b	$1B,$3F
			
is_our_conn		dc.w	0					;static do-we-have-exclusive-connection-to-printer flag

is_network		dc.w	0					;on-network/not-on-network status
r_idlength		dc.w	0					;length of returned ID string
r_idstring		ds.b	8					;storage for returned ID string; 8 characters max





*******************************************************************************





*
*IWSHUTDOWN: Closes unique connection to printer after doing formfeed, etc:
*
IWShutDown:
				lda ActionBits				;do form feed, if desired
				and #abNoFeed+abGetID		;don't do if not requested or if doing self-id
				bne dont_feed
				lda #s_formfeed
				jsr writeshort
dont_feed

				lda ActionBits				;close port connection and reset printer, if desired
				and #abNoClose
				bne dont_close
								
				lda is_our_conn				;close connection with printer only if we opened it
				beq dont_close
				ldx #$1F13
				jsl $E10000					;_PrDevClose
				stz is_our_conn				;clear our flag indicating exclusive connection status
dont_close

				rts



s_formfeed		dc.b	1					;form feed
				dc.b	$0C





*******************************************************************************





*
*IWMODESET: Sets up printer modes and scaling settings in response to desired output format:
*
IWModeSet:
ms_adj640color	lda QualBits				;if color and 640 and not Better, use rough patterns
				bpl ms_notcb640
				and #qbBetter
				bne ms_notcb640
				ldy #oportSCB				;get mode info from SrcLoc to see if 640
				lda [SrcLocPtr],y
				and #$0080
				beq ms_notcb640
				lda #qbRoughPatt			;assert the bit inside the QualityBits word
				ora QualBits
				sta QualBits
ms_notcb640

				lda CarriageWidth			;get crWidth from input parameter
				sta crWidth
				
				lda QualBits                ;get scalings according to QualityBits from lookup table
				and #%1111					;use low 4 bits: b0=bett, b1=land, b2=vcond, b3=reduct
				tax
				
ms_setVscale	lda vscaletbl,x				;get # of vertical printer dots to produce for each pix
				and #$00FF					;get a byte, not word from one of these byte-wise tables
				sta vScaling
				
ms_setVintlace	lda vintertbl,x				;get yes/no if to do vertical 2x resolution interlace
				and #$00FF
				sta vInterlace
				
ms_setHscale	lda hscaletbl,x				;get # of hor printer dots to produce for each pix
				and #$00FF
				sta hScaling
				
ms_setHpitch	lda QualBits				;check if rough 80hdpi patters desired
				and #qbRoughPatt			;if not, go on and use hscale table entries as-is
				beq ms_is160				;else, if (hdpi==160 AND hscale>1) then we can do
				lda hScaling				;80 hdpi and hScaling/=2 instead for speed but bad patt
				lsr a
				beq ms_is160
ms_is80			sta hScaling
				lsr crWidth					;80 hdpi: set pr mode and also do crWidth /= 2 because
				lda #s_iw_80dpi				;it's always given in better-resolution-units
				bra ms_dosetpitch
ms_is160		lda #s_iw_160dpi			;160 hdpi: set printer mode
ms_dosetpitch	jsr writeshort

ms_setBoldUni	lda QualBits				;select pr head scan unidirect/bidirect and bold/no bold
				and #qbNoUniBo				;set normal uni+bold unless the do-faster bit is set
				beq ms_ubyes
ms_ubno			lda #s_unibo_no
				bra ms_ubsel
ms_ubyes		lda #s_unibo_yes
ms_ubsel		jsr writeshort

				lda vInterlace				;if interlace is enabled, force no boldface; the vertical
				beq ms_boldok				;space will be sufficiently close to make the result dark
				lda #s_bold_no
				jsr writeshort
ms_boldok

				rts



s_iw_80dpi		dc.b	2					;"Pica" -- 80 horizontal dpi for graphics
				dc.b	$1B,$4E
			
s_iw_160dpi		dc.b	2					;"Elite Proportional" -- 160 horizontal dpi for graphics
				dc.b	$1B,$50
			
s_unibo_yes		dc.b	4					;unidirectional + boldface
				dc.b	$1B,$3E
				dc.b	$1B,$21

s_unibo_no		dc.b	4					;bidirectional + no boldface
				dc.b	$1B,$3C
				dc.b	$1B,$22

s_bold_no		dc.b	2					;no boldface
				dc.b	$1B,$22



vscaletbl								;v pr pix per 640 mode scrn pix indexed by low 4 QualityBits
* Better ------>	   x   x   x   x	;bit 0 (1=better resolution)
* Landscape --->	     x x     x x	;bit 1 (1=landscape orientation)	;table entries are
* Condensed ---> 	         x x x x	;bit 2 (1=vertical 50% condensed)	;the number of printer
			dc.b	 2,1,1,1,1,1,1,1	;bit 3 cleared (full size)			;pixels vertically
			dc.b	 1,1,1,1,1,1,1,1	;bit 3 set (half size)



vintertbl								;vertical interlace enable indexed by low 4 QualityBits
* Better ------>	   x   x   x   x	;bit 0 (1=better resolution)
* Landscape --->	     x x     x x	;bit 1 (1=landscape orientation)	;table entries are
* Condensed --->	         x x x x	;bit 2 (1=vertical 50% condensed)	;vertical 2x interlace:
			dc.b	 0,0,0,1,0,1,0,1	;bit 3 cleared (full size)			;0=disable, 1=enable
			dc.b	 0,0,1,1,1,1,1,1	;bit 3 set (half size)



hscaletbl								;h pr pix per 640 mode scrn pix indexed by low 4 QualityBits
* Better ------>	   x   x   x   x	;bit 0 (1=better resolution)
* Landscape --->	     x x     x x	;bit 1 (1=landscape orientation)	;table entries are
* Condensed --->	         x x x x	;bit 2 (1=vertical 50% condensed)	;the number of printer
			dc.b	 2,1,4,2,2,1,2,1	;bit 3 cleared (full size)			;pixels horizontally
			dc.b	 1,1,2,2,1,1,1,1	;bit 3 set (half size)
			




*******************************************************************************





IWAddrCalc:

				ldy #oportSCB				;get mode info from SrcLoc
				lda [SrcLocPtr],y
				and #$0080
				sta MasterMode
				lda [SrcLocPtr],y
				and #$000F
				sta MasterPal
				
				ldy #optrToPixImage			;get pixmap address from SrcLoc
				lda [SrcLocPtr],y
				sta PixMapBase
				iny
				iny
				lda [SrcLocPtr],y
				sta PixMapBase+2
				
				sec							;get offset from top to start printing
				ldy #0						;top
				lda [SrcRectPtr],y
				ldy #oboundsRect+0
				sbc [SrcLocPtr],y
				bpl gotvskip
				lda #0
gotvskip		 							;adjust pixmap addr to top print line
				sta SCBTabBase
				pha
				pha
				PHA
				ldy #owidth
				lda [SrcLocPtr],y
				pha
				_Multiply
				clc
				pla
				adc PixMapBase+0
				sta PixMapBase+0
				pla
				adc PixMapBase+2
				sta PixMapBase+2
				sec                          ;calculate height of print area
				ldy #4
				lda [SrcRectPtr],y
				ldy #0
				sbc [SrcRectPtr],y
				sta PixMapHigh
				sec
				ldy #oboundsRect+4
				lda [SrcLocPtr],y
				ldy #oboundsRect+0
				sbc [SrcLocPtr],y
				sec
				ldy #0
				sbc [SrcRectPtr],y
				cmp PixMapHigh
				bge clipatbot
				sta PixMapHigh
clipatbot		 	
				sec                          ;get offset from left edge to print
				ldy #2                       ;left
				lda [SrcRectPtr],y
				ldy #oboundsRect+2
				sbc [SrcLocPtr],y
				bpl gothskip
				lda #0
gothskip									;adjust pixmap addr to left edge...
				ldx MasterMode				;accurate to 1 byte (max 3 pixels off)
				bne gothskip1
				asl a
gothskip1 
				tax
				and #$03
				sta PixMapLeft
				txa
				lsr a
				lsr a
				clc
				adc PixMapBase+0
				sta PixMapBase+0
				lda PixMapBase+2
				adc #0
				sta PixMapBase+2
				
				sec                          ;calculate width of print area
				ldy #6
				lda [SrcRectPtr],y
				ldy #2
				sbc [SrcRectPtr],y
				sta PixMapWide
				sec
				ldy #oboundsRect+6
				lda [SrcLocPtr],y
				ldy #oboundsRect+2
				sbc [SrcLocPtr],y
				sec
				ldy #2
				sbc [SrcRectPtr],y
				cmp PixMapWide
				bge clipright
				sta PixMapWide
clipright 
				ldx MasterMode				;double if 320 because 2 prpix/scrnpix done below if 320
				bne gotwide
				asl PixMapWide
gotwide 
				rts





*******************************************************************************





*
*CLEARLINE: Zeroes the printer-ready-pixel linebuffer if dirty flag set:
*

ClearLine:
				lda LineDirty				;don't bother to clear the line...
				bne cl_go					;unless there's already some data in it
				rts
				
cl_go			ldx #(LineBufferEnd-LineBuffer)-2	;linebuffer length must be even!
				lda #0
cl_loop			sta LineBuffer,x
				dex
				dex
				bpl cl_loop

				stz LineDirty				;after clearing reset dirty flag
				rts





********************************************************************************





*
*FILLRGBTOKCMY: Fills-in only those color convert tables that are needed by the given SCB list.
*
*There are 16 color conversion tables; only those which are referenced by an SCB in the given
*SCB list are made valid by this routine.  Table entries are of the form $KCMY with 4-bit nibbles
*for each color, and should be indexed by (SCB# 0..15) * 32 + (pixel 0..15) * 2.
*
*Entries are calculated as follows: C=15-R; M=15-G; Y=15-B; K=min(C,M,Y); C=C-K; M=M-K; Y=Y-K;
*and finally M=M*(1-(C/g)).  The last step compensates for incorrect cyan ribbon color.
*

FILLRGBTOKCMY:

				ldy #0						;zero all 16 is-valid-conversion-table flags
				tya							;these flags will be used during the upcoming
				shortm						;conversion-table-fill loop to see if a color
icmy_zloop		sta KCMY_valid,y			;table has alreay been computed
				iny
				cpy #15+1
				bne icmy_zloop
				longm

				ldy PixMapHigh				;prepare for outer loop for all SCB values given by user
				lda QualBits				;find out how tall (how many entries long) the list is
				and #qbBetter				;infer SCB list size from tallness of pixmap
				beq icmy_nothalfscb			;and scale tallness down (/2) if Better+100% modes
				lda QualBits				;to compensate for scaled-up pixmap
				and #qbReduct
				bne icmy_nothalfscb
				tya
				lsr a
				tay
icmy_nothalfscb

*

icmy_DoAllSCBs								;do outer loop for all SCB's given by user
				phy							;Y has SCB # index that we're doing, save for looping

				lda [SCBListPtr],y			;obtain an SCB value
				and #$000F					;only get color table select part of the SCB *byte*
				tay							;Y now has # of one of the tables that will be needed
				lda KCMY_valid,y			;have we already computed entries for this table?
				and #$00FF					;(the KCMY-valid table is a table of bytes)
				bne icmy_next1scb			;yes, we already did this table, so go on
				
				lda #1						;else: we didn't compute this table yet, so mark it
				shortm						;as computed and drop into the compute code below
				sta KCMY_valid,y			;Y still has the table #
				longm
				
				tya							;ready to compute: construct start adrs of RGB colr tbl
				asl a						;each table is 32 bytes long, so do table # * 32
				asl a						;this computed start address will point to the beginning
				asl a						;of the current color table that we're converting, and
				asl a						;is valid for both the user's list of (RGB) tables and
				asl a						;our in-progress list of (KCMY) tables
				sta icmy_ctblbase

***
				lda #30						;compute KCMY entries for all 16 RGB words in this table
icmy_fill1tbl	pha							;save loop counter/index within this table
				clc							;add to base address of this SCB's table
				adc icmy_ctblbase
				tay
				phy							;save base address+color entry index of this SCB's table
				lda [CTablePtr],y			;access user's RGB value within user's table
				jsr icmy_ConvertOne			;convert $0RGB nibbles in A to $KCMY nibbles in A
				ply							;restore saved base address+color entry index
				sta KCMY_lookup,y			;use it to store KCMY into our parallel table
				pla							;restore loop counter/index
				dea							;going backwards from end to beginning
				dea
				bpl icmy_fill1tbl
***
				
icmy_next1scb	ply							;bottom of loop for all SCBs, restore SCB # index
				dey							;we're going backwards up to and including 0
				cpy #$FFFF					;exit back to caller when done
				bne icmy_DoAllSCBs
				rts
				




icmy_ConvertOne:							;subr to calc KCMY from RGB nibbles (input/output in ACC)

				eor #$0FFF					;subtract R,G,B values from 15 each in place
											;$0RGB   ->   $ [0] [$F-R] [$F-G] [$F-B]
				tax
				and #$000F					;normalize values in the nibbles into static vars
				sta icmy_valueY				;so we can do manipulations on them
				txa
				lsr a
				lsr a
				lsr a
				lsr a
				and #$000F
				sta icmy_valueM
				txa
				xba
				and #$000F
				sta icmy_valueC
				
				lda icmy_valueC				;do K = min (C,M,Y)
				sta icmy_valueK
icmy_min1		cmp icmy_valueM
				bcc icmy_min2
				lda icmy_valueM
				sta icmy_valueK
icmy_min2		cmp icmy_valueY
				bcc icmy_min3
				lda icmy_valueY
				sta icmy_valueK
icmy_min3
				sec							;subtract K value from each of C,M,Y values
				lda icmy_valueC
				sbc icmy_valueK
				sta icmy_valueC
				sec
				lda icmy_valueM
				sbc icmy_valueK
				sta icmy_valueM
				sec
				lda icmy_valueY
				sbc icmy_valueK
				sta icmy_valueY

icmy_g			equ 20						;M density reduction factor: bigger =>> more magenta
				lda #icmy_g					;do fudge factor to M
				sec							;M = M * (1 - (C/g)), done as gM=M(g-C) in int math
				sbc icmy_valueC				;this has the effect of reducing the value for M by
				pha							;0..(15/g)*100% for C values of 0..100%
				pha
				pha
				pushword icmy_valueM
				_Multiply
				pla
				plx
				phx
				phx
				pha
				pushword #icmy_g
				_UDivide
				pla
				plx
				sta icmy_valueM
				
				lda icmy_valueM				;assemble nibble values into $KCMY word
				asl a
				asl a
				asl a
				asl a
				ora icmy_valueY
				sta colortemp
				lda icmy_valueC
				xba
				ora colortemp
				sta colortemp
				lda icmy_valueK
				xba
				asl a
				asl a
				asl a
				asl a
				ora colortemp
				
				rts							;exit this subroutine with $KCMY-word in ACC
				



				
icmy_valueK		dc.w 0						;normalized value for black print intensity 0..15
icmy_valueC		dc.w 0						;normalized value for cyan print intensity 0..15
icmy_valueM		dc.w 0						;normalized value for magenta print intensity 0..15
icmy_valueY		dc.w 0						;normalized value for yellow print intensity 0..15

icmy_ctblbase	dc.w 0						;start offset of a single 16-entry, 32-byte color table

KCMY_valid		ds.b 16						;is-valid indicator flags for each color convert table
KCMY_lookup		ds.w 16*16					;16 convert tables of 16 $KCMY-word entries each





*******************************************************************************





IWPrPixMapOrText:

				lda ActionBits				;see if want to print graphics or text at all
				and #abDoImage+abGetID
				beq goPrint
				rts
		   
goPrint			lda ActionBits				;see if want to print native text instead of graphics
				and #abTextMode
				bne goPrintText
				brl goPrintPix


		   
*
*Start of code to print string using printer's native text mode (for "Draft Printing"):
*
goPrintText:
				jsr IdleProcAbortErrCheck	;call once before sending string
				lda prError					;give user chance to exit before even printing anything
				beq prtext_ln				;if user exit, don't go on
				rts
		   
prtext_ln		lda CTablePtr				;check length: if null string, don't go on
				bne prtext_ok
				rts
		   
prtext_ok		pha							;div delta y to do 1)coarse, then 2)fine y posn/save time
				pha
				pushword SrcRectPtr+0
				pushword #18/2				;number of y positions to do at a time to save time
				_UDivide
				pullword coarse_num_lf
				pullword fine_num_lf
				
				ldy coarse_num_lf			;do coarse delta y (move down only)
				beq done_ypos1
loop_ypos1		phy
				lda #s_movedown_c
				jsr writeshort
				ply
				dey
				bne loop_ypos1
done_ypos1

				ldy fine_num_lf				;do fine delta y (move down only)
				beq done_ypos2
loop_ypos2		phy
				lda #s_movedown_f
				jsr writeshort
				ply
				dey
				bne loop_ypos2
done_ypos2

				lda SrcRectPtr+2			;do absolute x (printer pix position to move head to)
				pha
				pushlong #n_moveacross
				pushword #4
				pushword #0
				_Int2Dec
				lda #s_moveacross
				jsr writeshort
				
				lda ActionBits				;selecting one of the printer's built-in text fonts
				and #abIsIWOne				;don't select a font not supported on the IW I
				bne textfont_no
				lda #$30					;else select one of the printer's built-in fonts
				shortm
				ora SCBListPtr+0
				sta n_textfont
				longm
				lda #s_textfont
				jsr writeshort
textfont_no
				
				shortm						;select one of the printer's built-in text sizes
				lda SCBListPtr+1
				longm
				and #%111
				asl a
				asl a
				clc
				adc #s_textsize_tbl
				jsr writeshort
		   
				lda #s_textstlreset			;select one of the printer's built-in text styles
				jsr writeshort
				shortm
				lda SCBListPtr+2
				longm
				pha
				and #%00000001
				beq textstl_1
				lda #s_boldface
				jsr writeshort
textstl_1		pla
				pha
				and #%00000010
				beq textstl_2
				lda #s_underline
				jsr writeshort
textstl_2		pla
				pha
				and #%00000100
				beq textstl_3
				lda #s_doublewidth
				jsr writeshort
textstl_3		pla
				and #%00001000
				beq textstl_4
				lda #s_halfheight
				jsr writeshort
textstl_4



				ldy #0						;String output loop.  get ready to loop through string
		   
loop_char		sty curr_posn				;get an ascii character from caller...
				lda [SrcLocPtr],y
				and #$00FF
				sta stor_char
				
				cmp #$20					;skip if control character...
				bcc next_char

				sec							;check if the char is international while normalizing
				sbc #$80					;from $80..$FF to $00..$7F; branch based on if intl...
				bpl its_intl
				
				lda #stor_char				;output this printable std ascii character and loop...
				ldx #^stor_char
				ldy #1
				jsr writelong

next_char		ldy curr_posn				;increment current position within string...
				iny
				cpy CTablePtr+0				;length was passed in lo word of CTablePtr
				bne loop_char				;not done, get another one
				lda #s_textstlreset			;done, always reset printer setup
				jsr writeshort
				lda #s_cr					;do carriage return so next string can be to the left
				brl writeshort				;and exit

its_intl		asl a						;current char is international normalized to $00..$7F
				tax							;form index into intl char translation table
				shortm						;intl_tbl entries: {byte new_char; byte lang_tbl_offset}
				lda intl_tbl+0,x
				sta stor_char				;overwrite our idea of the character code
				lda intl_tbl+1,x			;now get the language it's in from language table
				longm
				and #$FF
				clc							;lang tbl entries consist of writeshort command strings
				adc #lang_tbl				;add base address of table
				jsr writeshort				;set printer to the language
		   
				lda #stor_char				;output the character...
				ldx #^stor_char
				ldy #1
				jsr writelong
				
				lda #lang_tbl				;set language back to american and loop...
				jsr writeshort
				bra next_char
				


curr_posn		dc.w 0						;saved current position within string
stor_char		dc.w 0						;char storage required by our output routines

coarse_num_lf	dc.w 0						;number of computed big line feeds to get rough posn
fine_num_lf		dc.w 0						;number of little line feeds to then get precise posn

s_newln			dc.b 2						;output line feed and carriage return
				dc.b $0A,$0D
		   
s_textfont		dc.b 3						;select built-in fonts
				dc.b $1B,$61
n_textfont		dc.b $30					;$3N, where N=0..3

s_textsize_tbl	dc.b 2						;select built-in font sizes
				dc.b $1B,$6E,0
				dc.b 2
				dc.b $1B,$4E,0
				dc.b 2
				dc.b $1B,$45,0
				dc.b 2
				dc.b $1B,$65,0
				dc.b 2
				dc.b $1B,$71,0
				dc.b 2
				dc.b $1B,$51,0
				dc.b 2
				dc.b $1B,$70,0
				dc.b 2
				dc.b $1B,$50,0

s_textstlreset	dc.b 7						;turn off bold, underline, doublewidth, halfheight
				dc.b $1B,$22
				dc.b $1B,$59
				dc.b $0F
				dc.b $1B,$57
			   
s_boldface		dc.b 2						;turn on boldface text mode
				dc.b $1B,$21

s_underline		dc.b 2						;turn on underline text mode
				dc.b $1B,$58
			   
s_doublewidth	dc.b 1						;turn on doublewidth text mode
				dc.b $0E

s_halfheight	dc.b 2						;turn on halfheight text mode
				dc.b $1B,$77
			   
s_movedown_c	dc.b 5						;coarse y posn: LF=18/144", do LF
				dc.b $1B,$54
				dc.b '18'
				dc.b $0A

s_movedown_f	dc.b 5						;fine y posn: LF=2/144" (=1/72 match low-qual gr print)
				dc.b $1B,$54
				dc.b '02'
				dc.b $0A

s_moveacross	dc.b 8						;move head N_MOVEACROSS ascii # of std res units
				dc.b $1B,$4E				;set hor resolution to 80 dpi
				dc.b $1B,$46				;set position
n_moveacross	dc.b '0000'

lang_tbl		dc.b 4					;American - offset=00	;lang sel cmds for intl chars...
				dc.b $1B,$5A,$07,$00							;indexed by offsets from intl_tbl
				dc.b 8					;British  - offset=05	;table entries: writeshort strings
				dc.b $1B,$5A,$04,$00
				dc.b $1B,$44,$03,$00
				dc.b 8					;Danish   - offset=14
				dc.b $1B,$5A,$05,$00
				dc.b $1B,$44,$02,$00
				dc.b 8					;French   - offset=23
				dc.b $1B,$5A,$01,$00
				dc.b $1B,$44,$06,$00
				dc.b 8					;German   - offset=32
				dc.b $1B,$5A,$03,$00
				dc.b $1B,$44,$04,$00
				dc.b 8					;Italian  - offset=41
				dc.b $1B,$5A,$06,$00
				dc.b $1B,$44,$01,$00
				dc.b 8					;Swedish  - offset=50
				dc.b $1B,$5A,$02,$00
				dc.b $1B,$44,$05,$00
				dc.b 4					;Spanish  - offset=59
				dc.b $1B,$44,$07,$00

intl_tbl		dc.b $5B,50 , $5D,50 , $43,00 , $45,00			;mapping intl chars to chars+cmds...
				dc.b $5C,59 , $5C,50 , $5D,32 , $61,00			;indexed by ascii $80..$FF
				dc.b $7B,41 , $61,00 , $7B,50 , $61,00			;table entries: new_ascii,offset
				dc.b $7D,50 , $5C,23 , $7B,23 , $7D,23			;into the language table above
				dc.b $65,00 , $65,00 , $69,00 , $7E,41
				dc.b $69,00 , $69,00 , $7C,59 , $6F,00
				dc.b $7C,41 , $6F,00 , $7C,50 , $6F,00
				dc.b $75,00 , $7C,23 , $75,00 , $7D,32
				dc.b $2A,00 , $7B,59 , $63,00 , $23,05
				dc.b $40,59 , $7B,59 , $50,00 , $7E,32
				dc.b $20,00 , $20,00 , $20,00 , $27,00
				dc.b $7E,23 , $23,00 , $5B,14 , $5C,14
				dc.b $7E,00 , $7E,00 , $20,00 , $20,00
				dc.b $59,00 , $75,00 , $64,00 , $45,00
				dc.b $50,00 , $70,00 , $40,59 , $61,00
				dc.b $6F,00 , $5A,00 , $7B,14 , $7C,14
				dc.b $5D,59 , $5B,59 , $7E,00 , $20,00
				dc.b $66,00 , $7E,00 , $64,00 , $22,00
				dc.b $22,00 , $2E,00 , $41,00 , $41,00
				dc.b $4F,00 , $20,00 , $20,00 , $20,00
				dc.b $20,00 , $22,00 , $22,00 , $27,00
				dc.b $27,00 , $2F,00 , $20,00 , $79,00
				dc.b $20,00 , $20,00 , $20,00 , $20,00
				dc.b $20,00 , $20,00 , $20,00 , $20,00
				dc.b $20,00 , $20,00 , $20,00 , $20,00
				dc.b $20,00 , $20,00 , $20,00 , $20,00
				dc.b $20,00 , $20,00 , $20,00 , $20,00
				dc.b $20,00 , $20,00 , $20,00 , $20,00
				dc.b $20,00 , $20,00 , $20,00 , $20,00
				dc.b $20,00 , $20,00 , $20,00 , $20,00
				dc.b $20,00 , $20,00 , $20,00 , $20,00
				dc.b $20,00 , $20,00 , $20,00 , $20,00





*
*Start of code to print pixel map using printer's graphics mode (for non-draft printing):
*
goPrintPix:
				jsr IdleProcAbortErrCheck	;allow at least one full error/cmd-period check
				lda PrError
				beq goPrintPixOk
				rts
goPrintPixOk	
				jsr IWModeSet				;set printer modes; boldface, character pitch, etc
				
				lda #1						;make sure linebuffer gets cleared
				sta LineDirty
				
				jsr IWAddrCalc				;calculate scrn-pix increment values for looping
				
				jsr FillRGBtoKCMY			;calculate color system conversion tables
				
doBandLoop		lda QualBits				;go do one of the two imaging loops
				and #qbLandMode
				beq Pbandloop
				brl Lbandloop





********************************************************************************





allPbands		rts							;portrait print loop exit point
		   
Pbandloop									;********** PORTRAIT MODE PRINTING LOOP **********

				lda PixMapHigh				;see if any more to print
				beq allPbands
				jsr IdleProcAbortCheck		;do idle procedure/option-period abort/status check
				lda prError					;if abort or error, exit
				bne allPbands
				lda QualBits				;branch color/grayscale mode
				bmi Pcband
				
Pbwband			lda vInterlace				;branch interlace/no interlace
				beq Pbwband_noint
		   
Pbwband_int									;printing an interlaced grayscale band...
				jsr saveinfo				;save pointer information so we can rewind back
				lda #s_printBW				;go image and print one grayscale band
				jsr onePband
				lda #s_lf_1					;advance paper 1/144"
				jsr writeshort
				jsr restinfo				;rewind pointers
				jsr nextPline				;but also advance one (off-) screen pixel line down
				lda #s_printBW				;go image and print the interlaced grayscale band
				jsr onePband
				bra nextPbandI				;advance paper 15/144" and loop
						   
Pbwband_noint								;printing a non-interlaced grayscale band...
				lda #s_printBW
				jsr onePband
				
nextPbandN									;advance paper 16/144" (one full head height)
				lda #s_lf_16
				jsr writeshort
				bra Pbandloop

Pcband										;printing four color bands...
				jsr saveinfo				;save values for pointer rewinds
				jsr Pcband_do4
				lda vInterlace				;if no vertical interlace, then advance paper and loop
				beq nextPbandN
Pcband_isint	jsr restinfo				;printing 2nd pass of four color bands...
				lda #s_lf_1					;rewind ptrs, adv paper 1/144", select odd lines, print
				jsr writeshort
				jsr nextPline
				jsr saveinfo				;save for ptr rew after "nextPline" to keep its effect
				jsr Pcband_do4
				
nextPbandI									;advance paper 15/144" (head height minus 1/144"
				lda #s_lf_15				;because we advanced 1/144" for the 2nd interlace pass)
				jsr writeshort
				bra Pbandloop



Pcband_do4		lda #s_printyel				;subroutine to print 4 color bands, doing a "restinfo"
				jsr onePband				;after each color band except the last
				jsr restinfo
				lda #s_printmag
				jsr onePband
				jsr restinfo
				lda #s_printcyn
				jsr onePband
				jsr restinfo
				lda #s_printblk
				brl onePband





**********



saveinfo		 							;save all variables modified by
				lda PixMapBase+0			;the band print routine
				sta savearea+0
				lda PixMapBase+2
				sta savearea+2
				lda PixMapHigh
				sta savearea+4
				lda SCBTabBase
				sta savearea+6
				lda PixMapWide
				sta savearea+8
				rts

savearea		ds.b 10

restinfo									;restore variables modified by
				lda savearea+0				;the band print routine
				sta PixMapBase+0
				lda savearea+2
				sta PixMapBase+2
				lda savearea+4
				sta PixMapHigh
				lda savearea+6
				sta SCBTabBase
				lda savearea+8
				sta PixMapWide
				rts



**********



onePband									;image one portrait mode band...

				sta colorstr				;remember what color it is
				jsr clearline				;clear the line buffer
				stz linebase				;zero pix line base
				
				ldx #7						;the following assumes that vScaling is either 1 or 2
				ldy #%00000001				;if vScaling==1, then do 8 scrn pix lines of 1 bit each,
				lda vScaling				;if vScaling==2, then do 4 scrn pix lines of 2 bits each,
				cmp #2						;where "bit" refers to a vertical head striker wire
				bne opb_setup
				ldx #3
				ldy #%00000011
opb_setup
				stx opb_count
				sty opb_vbits
opb_loop 
				lda opb_vbits				;bitmask indicates number/posn of striker wires to fire
				jsr onePline				;generate line(s) of pr pixels from 1 line of scrn pix
				jsr nextPline				;advance pointers to next screen line
				
				lda vInterlace				;if vertical interlace enabled,
				beq opb_nointr
				lda opb_count				;and if not at bottom print head wire,
				beq opb_nointr
				jsr nextPline				;adv one more so every-other scrn line used for each wire
opb_nointr
				asl opb_vbits				;advance bitmask to next group of striker wire(s) down
				lda vScaling				;if vertical scaling is 2 then advance again because
				cmp #2						;the striker pattern is two wires tall
				bne opb_novbt2
				asl opb_vbits
opb_novbt2
				dec opb_count				;go all the way down the print head, then done with band
				bpl opb_loop
				bra Pbanddone



Pbandexit									;here if nextPline has aborted this band
				pla							;do print command and abort by return to caller's caller
				bra Pbanddone_go

Pbanddone									;one band (head scan) of printer-pixels is now ready
				jsr IdleProcAbortCheck		;check abort, exec idleproc, etc.
				lda prError
				beq Pbanddone_go
				pla							;if error status, abort by return to caller's caller
				rts
				
Pbanddone_go								;a line of printer-ready pixels has now been generated
				lda colorstr				;go send it, unless we are in the following situation:
				cmp #s_printblk				;blackband+better+color+640+~notunibo+~vinterlace,
				bne Pbanddone_go2			;in which case, turn boldface off temporarily so that
				lda QualBits				;640's black dithering does not make the colors muddy
				bit #qbNoUniBo
				bne Pbanddone_go2
				and #qbBetter+qbColor
				cmp #qbBetter+qbColor
				bne Pbanddone_go2
				lda MasterMode
				beq Pbanddone_go2
				lda vInterlace
				bne Pbanddone_go2
				
Pbanddone_go1	lda #s_bold_no
				jsr writeshort
				jsr SendBuff
				lda #s_boldface
				brl writeshort
				
Pbanddone_go2	brl SendBuff



nextPline									;common routine to advance to next pixel line...
				clc							;works by doing PixMapBase += pixmapwidth (bytes)
				ldy #owidth
				lda [SrcLocPtr],y
				adc PixMapBase+0
				sta PixMapBase+0
				lda PixMapBase+2
				adc #0
				sta PixMapBase+2
				inc SCBTabBase				;also inc the part of the SCB table we're looking at
				dec PixMapHigh				;if at bottom of pixelmap, pull RTS
				beq Pbandexit				;...addr from stack and abort onePline
				rts



opb_count		dc.w 0						;# of groups counter variable for onePband loop above
opb_vbits		dc.w 0						;changing bit mask variable for onePband loop above



**********



onePline									;generate band data for one pixel line
				sta pixelbits				;A=bit mask for this line
				lda linebase
				sta lineoffset
				stz DitherH
				lda PixMapLeft
				sta leftskip
				lda MasterMode
				sta ThisLMode
				lda MasterPal
				sta ThisLPal
				lda SCBListPtr+0			;if a SCBList was specified, as always, get
				ora SCBListPtr+2			;the mode/palette for this line from it
				beq gothePmode
				ldy SCBTabBase
				lda QualBits				;if in Better Text mode, must scale the scb list index
				and #qbBetter				;down by same amount the driver scaled the pixmap up
				beq gotPindex				;if not better, we don't have to scale scb list
				lda QualBits
				and #qbReduct				;if better+reduction, we don't have to scale scb list
				bne gotPindex

Pscbdiv2		tya							;better+full size: divide scb index by 2
				lsr a
				tay

gotPindex	 
				lda [SCBListPtr],y
				and #$0080
				sta ThisLMode
				lda [SCBListPtr],y
				and #$000F
				sta ThisLPal
gothePmode	 
				lda ThisLPal				;shift color table select value to transform 0..15
				asl a						;into start address of 16-word (32-byte) color table
				asl a
				asl a
				asl a
				asl a
				sta ThisLPal				;it's now offset of the colortable for this line
		   
				stz Pbw6_enabl				;see if we can enable std-black/white-pixel-value imaging
				lda ThisLMode				;mode must be 640
				cmp #$0080
				bne Pnot_bw6
				lda hscaling				;hscaling must be 1
				cmp #1
				bne Pnot_bw6
				lda leftskip				;leftskip must be 0
				bne Pnot_bw6
				ldy ThisLPal				;check all first minipallette entries for pure black...
				ldx #4
Pch1_bw6		lda [CTablePtr],y
				bne Pnot_bw6
				tya
				clc
				adc #8
				tay
				dex
				bne Pch1_bw6
				lda ThisLPal				;check all fourth minipallette entries for pure white...
				clc
				adc #6
				tay
				ldx #4
Pch2_bw6		lda [CTablePtr],y
				cmp #$0FFF
				bne Pnot_bw6
				tya
				clc
				adc #8
				tay
				dex
				bne Pch2_bw6
				lda #1						;enable only if above requirements are all met
				sta Pbw6_enabl
Pnot_bw6
		   
				ldy #owidth					;obtain byte-width of scanlines for white-scan loop
				lda [SrcLocPtr],y
				sta Pwht_btend+1
				
				stz Pwht_enabl				;see if we have a white color table entry; we'll
				lda ThisLPal				;figure out what a word full of white pixels looks like
				clc
				adc #$1E
				tay
Pfndwhite		lda [CTablePtr],y			;look for first pure white color table entry
				cmp #$0FFF
				beq Ppalwhite
				dey
				dey
				tya
				cmp ThisLPal				;loop for all 32 bytes in this color table
				bpl Pfndwhite
				brl Pdonwhite
		   
Ppalwhite		tya
				sec
				sbc ThisLPal
				tay
				lda ThisLMode
				and #$0080
				bne Ppalwh640
		   
Ppalwh320		lda #1						;found white color entry and we're in 320 mode
				sta Pwht_enabl				;enable white-scanning
				tya
				lsr a
				and #$F
				sta Pwht_model+1			;build white model word -- what 2 bytes of white in 320
				asl a						;mode (4 pixels) would look like in memory
				asl a
				asl a
				asl a
				ora Pwht_model+1
				sta Pwht_model+1
				xba
				ora Pwht_model+1
				sta Pwht_model+1
				bra Pdonwhite
		   
Ppalwh640		cpy #$18					;in 640 mode -- all other 3 minipall must also be white,
				bcc Pdonwhite				;else don't enable white scanning
				tyx
				lda #$0FFF
				dey
				dey
				dey
				dey
				dey
				dey
				dey
				dey
				cmp [CTablePtr],y
				bne Pdonwhite
				dey
				dey
				dey
				dey
				dey
				dey
				dey
				dey
				cmp [CTablePtr],y
				bne Pdonwhite
				dey
				dey
				dey
				dey
				dey
				dey
				dey
				dey
				cmp [CTablePtr],y
				bne Pdonwhite
				lda #1						;yes we're ok to enable white-scanning
				sta Pwht_enabl
				txa							;build a white model word -- what 2 bytes of white in 640
				lsr a						;mode (8 pixels) would look like in memory
				and #%11
				sta Pwht_model+1
				asl a
				asl a
				ora Pwht_model+1
				sta Pwht_model+1
				asl a
				asl a
				asl a
				asl a
				ora Pwht_model+1
				sta Pwht_model+1
				xba
				ora Pwht_model+1
				sta Pwht_model+1
Pdonwhite  									;finished with search for white pixel values



				lda PixMapWide				;initialize for horizontal pixel countdown
				sta horPcount
				
				lda #8						;initialize line buffer offset increment factor
				sta Pwht_lbinc+1			;set to 8 if hor scaling is 1, set to 16 if hor
				lda hScaling				;scaling is 2; this is the amount by which the
				dea							;printer-ready-pixel buffer pointer is advanced for
				beq Pdonelbisetup			;every whole word full of white pixels scanned
				asl Pwht_lbinc+1
Pdonelbisetup

				ldy #0						;initialize screen-byte counter



Pbyteloop									;head of loop for bytes in this pixel line

				lda Pwht_enabl				;see if we can do white pixel word elimination
				beq Pbytepxls

				sty Pwht_oldbp				;save old line byte position		   
PwhtScan		lda [PixMapBase],y			;try to eliminate whole words of white pixels at time
Pwht_model		cmp #$0000					;NOTE: operand for this instruction is stuffed
				bne PwhtNonWht
				lda lineoffset				;increment printer-pixel-line-buffer offset always by
				clc							;8|16: hscale always 1|2, and == # pr pix for 320/640
Pwht_lbinc		adc #$0000					;NOTE: operand for this instruction is stuffed
				sta lineoffset				;so that we're elim 8 scrn pix -> 8|16 pr pix at a time
				iny
				iny
Pwht_btend		cpy #$0000					;NOTE: operand for this instruction is stuffed
				bcc PwhtScan
PwhtExit		rts							;exit here if we ran out of bytes in current line
		   
PwhtNonWht		cpy Pwht_oldbp				;skip this part quick if we couldn't do any white words
				beq Pbytepxls
		   
				tya							;here we are if a word is found to be nonwhite
				sec							;figure out how many pixels we skipped, leaving Y intact
				sbc Pwht_oldbp				;now have number of bytes we skipped
				asl a						;4 pix/byte if 640 mode; also for 320 b/c prpix doubled
				asl a

				tax							;faking changes that would occur if we did pixels
				lda horPcount				;horPcount -= num_pix_skipped
				stx horPcount
				sec
				sbc horPcount
				sta horPcount
				beq PwhtExit				;exit here if horPcount <= 0
				bcc PwhtExit
				stz leftskip				;leftskip=0 since guaranteed to be byte-aligned now

Pbytepxls		lda ThisLMode				;here we start picking pixels out of an (off)-screen byte
				bne Pbyte640
Pbyte320									;320 mode generates pairs of identical
				lda [PixMapBase],y			;...pixels, for compatibility with 640
				lsr a
				lsr a
				lsr a
				lsr a
				jsr onePpixel				;left pixel in byte
				lda [PixMapBase],y
				lsr a
				lsr a
				lsr a
				lsr a
				jsr onePpixel				;left pixel in byte, again
				lda [PixMapBase],y
				jsr onePpixel				;right pixel in byte
				lda [PixMapBase],y
				jsr onePpixel				;right pixel in byte, again
				iny							;do next byte full of pixmap pixels
				bra Pbyteloop


Pbyte640
				lda Pbw6_enabl				;see if ok to do std-black/white-quick-imaging shortcut
				bne Pbw6_ok1
				brl Pbw6_gen
Pbw6_ok1		lda colorstr				;see if on the b/w band, else don't do quick-imaging
				cmp #s_printBW
				beq Pbw6_ok2
				brl Pbw6_gen
Pbw6_ok2		lda [PixMapBase],y
				cmp #%11111111
				beq Pbw6_ndty				;should we set dirty flag? no, this byte is all white
				ldx #1						;not all-white: set dirty flag
				stx LineDirty
Pbw6_ndty		phy							;prepare for quick, unwound, in-line imaging of one byte
				pha							;the code groups that follow do a byte full of screen
				ldy lineoffset				;pixels directly to printer pixels, providing they have
				ldx pixelbits				;no colors other than black and white
		   
				and #%11000000				;leftmost pixel in 640 mode byte
				beq Pbw6_B0
				cmp #%11000000
				bne Pbw6_cant
				bra Pbw6_W0
Pbw6_B0			txa
				ora LineBuffer,y
				sta LineBuffer,y
Pbw6_W0			iny
		   
				lda 1,s						;second pixel in 640 mode byte
				and #%00110000
				beq Pbw6_B1
				cmp #%00110000
				bne Pbw6_cant
				bra Pbw6_W1
Pbw6_B1			txa
				ora LineBuffer,y
				sta LineBuffer,y
Pbw6_W1			iny
		   
				lda 1,s						;third pixel in 640 mode byte
				and #%00001100
				beq Pbw6_B2
				cmp #%00001100
				bne Pbw6_cant
				bra Pbw6_W2
Pbw6_B2			txa
				ora LineBuffer,y
				sta LineBuffer,y
Pbw6_W2			iny
		   
				lda 1,s						;rightmost pixel in 640 mode byte
				and #%00000011
				beq Pbw6_B3
				cmp #%00000011
				bne Pbw6_cant
				bra Pbw6_W3
Pbw6_B3			txa
				ora LineBuffer,y
				sta LineBuffer,y
Pbw6_W3			iny
		   
				lda horPcount				;decrement/exit-on-zero horizontal pixelmap pixel count
				sec							;we did four pixels in this byte
				sbc #4
				sta horPcount
				beq Pbw6_exit
				bcc Pbw6_exit
		   
Pbw6_next		sty lineoffset				;we're not exitting because of horPcount, update counters
				pla							;clean up stack which had saved pixmap byte
				ply							;restore pixelmap byte index
				iny							;do next pixmap byte full of pixels now
				brl Pbyteloop
		   
Pbw6_exit		pla							;end of horPcount, clean stack and exit this prpix line
				ply
				rts

Pbw6_cant		pla							;turned out byte wasn't all-B/W, clean up stack, restore
				ply							;pixmap byte index and drop into general-case code
	
Pbw6_gen		lda [PixMapBase],y
				asl a
				asl a
				xba
				and #%0011
				jsr onePpixel				;first pixel in byte
				lda [PixMapBase],y
				lsr a
				lsr a
				lsr a
				lsr a
				and #%0011
				ora #%0100
				jsr onePpixel				;second pixel in byte
				lda [PixMapBase],y
				lsr a
				lsr a
				and #%0011
				ora #%1000
				jsr onePpixel				;third pixel in byte
				lda [PixMapBase],y
				ora #%1100
				jsr onePpixel				;last pixel in byte
				iny							;do next byte full of pixmap pixels
				brl Pbyteloop



**********



onePpixel									;do stack pointer -2 to exit current line
				dec leftskip				;do nothing if we are skipping pixels
				bmi rightonP				;...at the left edge (max 3)
				rts

rightonP		
				phy							;save index into pixel line
				and #$000F					;pixel value is given in ACC
				asl a						;convert pixel into colortable index
				ora ThisLPal				;and add SCB palette-select-value for this line
				tay							;Y now has offset into color table for current pixel
				
				ldx colorstr				;branch based on color/grayscale mode
				cpx #s_printBW
				bne colorPpix
				
bwPpix										;convert RGB to grayscale:
				lda [CTablePtr],y			;obtain RGB value from colortable
				and #$0FFF					;if it's white, save some work
				cmp #$0FFF
				bne bwPpix_nwht
				brl isPzero
bwPpix_nwht		xba
				and #$000F					;R
				sta colortemp
				asl a
				asl a						;4R
				adc colortemp
				sta colortemp				;5R
				lda [CTablePtr],y
				lsr a
				and #%01111000				;8G
				clc
				adc colortemp				;5R+8G
				tax
				lda [CTablePtr],y
				and #$000F					;B
				sta colortemp
				txa
				eor #$FF					;255-5R-8G
				sec
				sbc colortemp				;255-5R-8G-B
				sbc colortemp				;255-5R-8G-2B
				sbc colortemp				;255-5R-8G-3B
				and #%11110000
				lsr a						;set A bits 3..6 to density value of 0..15 for patt plot
				beq bwPpix_finish			;if zero, don't do 640-adjust below
				ldx thisLmode				;check if 640 mode, if 640 (and black/white), use only
				beq bwPpix_finish			;few of the levels to avoid beating with 640's dithering
				cmp #%01111000				;if full density, don't do 640-adjust
				beq bwPpix_finish
				cmp #%00011000				;compare for light yellow
				beq bwPpix_adj
				cmp #%01101000				;compare for std screen light blue
				bne bwPpix_finish
bwPpix_adj		lda #%00101000				;substitute density for better
				ldx hScaling
				dex
				beq bwPpix_finish1
				lda #%00111000				;substitute density for standard
bwPpix_finish	ldx #0						;set X to 0 for pattern plot
bwPpix_finish1	brl gotPvalue

colorPpix		
				lda KCMY_lookup,y			;convert $0RGB to $KCMY with table
				ldy colorstr				;branch on the color being printed and
				cpy #s_printyel				;extract proper K, C, M, or Y nibble
				beq yelPpix
				cpy #s_printmag
				beq magPpix
				cpy #s_printcyn
				beq cynPpix

blkPpix			
				xba
				lsr a						;set A bits 3..6 to density value
				ldx #0						;set X for pattern plot routine
				bra gotPvalue

cynPpix			
				xba
				asl a
				asl a
				asl a						;set A bits 3..6 to density value
				ldx #3						;set X for pattern plot routine
				bra gotPvalue
				
magPpix			
				lsr a						;set A bits 3..6 to density value
				ldx #3						;set X for pattern plot routine
				bra gotPvalue

yelPpix			
				asl a
				asl a
				asl a						;set A bits 3..6 to density value
				ldx #3						;set X for pattern plot routine


				
gotPvalue									;A=print density, 0..15 * 8 (in bits %.XXXX...)
				and #%01111000				;X=dither pattern offset, 0=blk 3=CMY
				sta colortemp				;(keeps black from overprinting color)
				bne isPnonzero
isPzero										;save some work if density is 0
				clc							;fake the changes that would be made
				lda DitherH					;if we continued with this pixel
				adc hScaling
				sta DitherH
				lda lineoffset
				clc
				adc hScaling
				sta lineoffset
				bra Ppixeldone

isPnonzero									;nonzero density, so "print" it into linebuffer...
				lda #1						;prep to write piece of density patt into linebuffer...
				sta LineDirty
				txa							;calculate dithmatrix offset based on
				clc							;density and offset
				adc DitherH					;add DitherH value, which just increases all the time
				and #%111					;take only least 3 significant bits to make 0..7 index
				ora colortemp				;select density level; now have offset into dithmatrix
				tax							;have density level in X for pr patt pix plot routine

				lda hScaling
				dea
				beq PpixelX1
PpixelX2		jsr onePpixel1
PpixelX1		jsr onePpixel1				;call plotter; hor scale always 1 for IW portrait modes

Ppixeldone
				dec horPcount				;see if more pixels to print
				bne stillonP				;if not, stop caller (onePline) by pulling
				ply							;...RTS address from stack
stillonP
				ply							;restore index into pixel line
				rts



**********



onePpixel1									;do stack pointer -6 to exit current line
				inc DitherH					;entered with X=dithmatrix offset
				import Dithmatrix
				lda Dithmatrix,x			;get dither pattern
				inx							;advance to next byte of dither pattern
				and pixelbits				;apply mask for this pixel line
				ldy lineoffset				;get offset into linebuffer
				cpy crWidth					;make sure we're not at end
				bge offPend
				ora LineBuffer,y			;OR masked pattern into buffer
				sta LineBuffer,y
				iny							;increase line buffer position by 1 for IW 8-pin
				sty lineoffset
				txa							;move to next byte of pattern
				and #%111
				bne Pxisok					;see if we need to wrap to next dither level
				sec							;if so, go back to beginning of this
				txa							;dither density level
				sbc #8
				tax
Pxisok			 
				rts

offPend										;at end of linebuffer: stop caller's caller (onePline)
				pla							;by pulling 2 RTS addresses and a
				pla							;pushed Y from the stack
				pla
				rts



s_printyel		dc.b	3	                ;select yellow ribbon band
				dc.b	$1B,$4B,$31
			
s_printmag		dc.b	3					;select magenta ("red") ribbon band
				dc.b	$1B,$4B,$32
			
s_printcyn		dc.b	3					;select cyan ("blue") ribbon band
				dc.b	$1B,$4B,$33
			
s_printblk		dc.b	3					;select black ribbon band
				dc.b	$1B,$4B,$30
			
s_printBW		dc.b	1	                ;nothing to do in grayscale printing
				dc.b	$00
	
s_lf_16			dc.b	5	                ;LF=16/144", do LF (for advancing one vert head scan)
	   			dc.b	$1B,$54
	   			dc.b	'16'
	   			dc.b	$0A
						
s_lf_15			dc.b	5					;LF=15/144", do LF (adv vert head scan - interlace dist)
	   			dc.b	$1B,$54
	   			dc.b	'15'
	   			dc.b	$0A
			
s_lf_1			dc.b	5	                ;LF=1/144", do LF (for advancing during vert interlace)
	   			dc.b	$1B,$54
	   			dc.b	'01'
	   			dc.b	$0A
			
Pwht_enabl		dc.w	0					;white-eliminate: enable scan (ie, pure white is present)
Pwht_oldbp		dc.w	0					;white-eliminate: old byte position before scan

Pbw6_enabl		dc.w	0					;b/w-imaging: enable (ie, pure b/w in std locations)





********************************************************************************





Lbandloop		 							;********** LANDSCAPE MODE PRINTING LOOP **********

LwhtQualfy		stz Lwht_enabl				;see if conditions permit white-elim shortcut...
				stz Lwht_maxce				;clear enable and init maximum color table entry used
		   
				lda SCBListPtr+0
				ora SCBListPtr+2
				bne LwhtCkSCB				;if SCB list was specified, as it must be, go check it
				lda MasterMode				;else skip SCB list test - use master mode and 0 maxce
				sta Lwht_mode
				bra LwhtFndWht
		   
LwhtCkSCB		lda [SCBListPtr]			;all SCB list entries must be the same mode
				and #$0080					;find out which mode
				sta Lwht_mode
				
				ldy PixMapHigh				;get ready to search the rest of SCB list...
				lda QualBits				;infer SCB list size from tallness of pixmap
				and #qbBetter				;and scale its tallness down if Better+100% modes
				beq LwhtCkNoDiv				;to compensate for scaled-up pixmap
				lda QualBits
				and #qbReduct
				bne LwhtCkNoDiv
				tya							;do SCB list size /2 if Better+100%
				lsr a
				tay
LwhtCkNoDiv
		   
LwhtCkSCBs		dey							;do search SCB list, y has length of list, from y-1 to 0
				cpy #$FFFF
				beq LwhtCkSCBx
LwhtCkSCBa		lda [SCBListPtr],y
				tax
				and #$0080					;each line must be same mode
				cmp Lwht_mode
				bne LwhtCant
				txa
				and #$000F					;find out maximum color table entry used
				cmp Lwht_maxce
				bcc LwhtCkSCBs
				sta Lwht_maxce
				bra LwhtCkSCBs
LwhtCkSCBx

LwhtFndWht		lda Lwht_maxce				;check for pure white in standard color table entries...
				asl a						;set white-checking-loops range-limits to lastmost item
				asl a						;in the last color table used by any of the lines/SCBs
				asl a						;(max_color_entry_used_0_to_15 * 32) + 30
				asl a
				asl a
				clc
				adc #30
				sta LwhtFndW6l+1
				sta LwhtFndW3l+1
				lda Lwht_mode				;go do appropriate white-checker...
				beq LwhtFndW3

LwhtFndW6		ldy #3*2					;640-mode pure-std-white test
LwhtFndW6s		lda [CTablePtr],y			;test last of all 4 minipallettes of all 16 ctbl entries
				cmp #$FFF
				bne LwhtCant
LwhtFndW6l		cpy #$0000					;NOTE: this operand is stuffed
				beq LwhtItsOk
				tya
				clc
				adc #8
				tay
				bra LwhtFndW6s
		   
LwhtFndW3		ldy #15*2					;320-mode pure-std-white test
LwhtFndW3s		lda [CTablePtr],y			;test last palette of all 16 ctbl entries
				cmp #$FFF
				bne LwhtCant
LwhtFndW3l		cpy #$0000					;NOTE: this operand is stuffed
				beq LwhtItsOk
				tya
				clc
				adc #32
				tay
				bra LwhtFndW3s
		   
LwhtItsOk		lda #1						;here if all tests passed and it's ok to take shortcut
				sta Lwht_enabl
		   
LwhtCant									;here if any Lwht test failed, not ok to take shortcut



***********



				bra LbandloopS
		   
allLbands		rts							;landscape print loop exit point

LbandloopS 
				lda PixMapWide				;check if more columns to print
				beq allLbands
				jsr IdleProcAbortCheck		;idle procedure/option-period abort/error check
				lda prError
				bne allLbands
				stz Lint_ispass2			;reset pixel rotation flag for intlaced "oneLline" calls
				lda QualBits				;branch color/grayscale
				bmi Lcband
		   
Lbwband										;grayscale: branch interlace/no interlace
				lda vInterlace
				beq Lbwband_noint
		   
Lbwband_int									;printing an interlaced grayscale band...
				jsr saveinfo				;save pointer info for rewind
				lda #s_printBW				;print one band, with even source lines
				jsr oneLband
				lda #s_lf_1					;advance paper 1/144"
				jsr writeshort
				jsr restinfo				;rewind pointers
				lda #1						;arrange to use odd source lines
				sta Lint_ispass2
				lda #s_printBW				;print second pass interlaced band
				jsr oneLband
				bra nextLbandI				;advance paper 15/144" and loop
						   
Lbwband_noint								;printing a non-interlaced grayscale band...
				lda #s_printBW
				jsr oneLband
				
nextLbandN									;advance paper 16/144" (one full head height) and loop
				lda #s_lf_16
				jsr writeshort
				bra LbandloopS

Lcband										;printing the four color bands...
				jsr saveinfo				;save pointer info for rewinds
				stz Lcb_ispass2				;ensure handling of pass one/no interlace
				jsr Lcband_do4				;print four color bands
				lda vInterlace				;if not interlaced, then advance paper and loop
				beq nextLbandN
				jsr restinfo				;else, rewind ptrs, advance paper 1/144",
				lda #s_lf_1					;arrange to assert is-pass-2 setting, and print the
				jsr writeshort				;interlaced part of the four color bands
				lda #1
				sta Lcb_ispass2
				jsr Lcband_do4
								
nextLbandI									;advance paper 15/144" (head height minus 1/144"
				lda #s_lf_15				;because we advanced 1/144" to do 2nd interlace pass)
				jsr writeshort				;and loop
				bra LbandloopS



Lcband_do4		lda Lcb_ispass2				;subroutine to print the four color bands, doing
				sta Lint_ispass2			;"restinfo" to rewind pointers each time except the
				lda #s_printyel				;last time and communicating the is-pass-2 status
				jsr oneLband
				jsr restinfo
				lda Lcb_ispass2
				sta Lint_ispass2
				lda #s_printmag
				jsr oneLband
				jsr restinfo
				lda Lcb_ispass2
				sta Lint_ispass2
				lda #s_printcyn
				jsr oneLband
				jsr restinfo
				lda Lcb_ispass2
				sta Lint_ispass2
				lda #s_printblk
				brl oneLband
				
Lcb_ispass2		dc.w 0





**********





oneLband									;print one landscape mode band
				sta colorstr				;remember what color it is
				jsr clearline
				lda crWidth
				sta linebase
				lda vInterlace				;branch based on vertical interlace setting
				bne LlineX1Int

LlineX1										;vScaling==1, vInterlace==0 (not interlaced)
				lda #%00000001				;2 h bytes of (off-) scrn pix per 8-vert pin head scan
				sta Lpixmask1				;1 printer dot per 640 mode pixel
				lda #%00000010
				ldx #%00000100
				ldy #%00001000
				jsr oneLline				;calc contents from 4 h screen pixels into linebuffer
				jsr nextLline				;print head pins 1,2,3,4 and go to next scrn byte column
				lda #%00010000
				sta Lpixmask1
				lda #%00100000
				ldx #%01000000
				ldy #%10000000
				jsr oneLline				;calc contents from next 4 h scrn pixels into linebuffer
				jsr nextLline				;print head pins 5,6,7,8 and go to next scrn byte column
				bra Lbanddone
		   
LlineX1Int									;vScaling==1, vInterlace==1 (interlaced)
				ldx #4						;4 h bytes (320 or 640) of (off-) scrn pix/8-pin head
				stx Lln_count				;doing a set of every-other h scrn pix into all 8 pins
				ldx #%00000001				;640 mode: one print head pin per scrn pixel
				lda MasterMode
				bne LlX1i_smod
				ldx #%00000011				;320 mode: two print head pins per scrn pixel
LlX1i_smod		stx Lln_mask				;init mask which indicates which head pins to affect
LlX1i_loop		lda MasterMode
				beq LlX1i_320
LlX1i_640		lda Lln_mask				;640: initial values: Lpixmask1 = %00000001
				sta Lpixmask1				;                     Lpixmask2 = 0 (skip scrn pix)
				asl Lln_mask				;                     Lpixmask3 = %00000010
				lda #0						;                     Lpixmask4 = 0 (skip scrn pix)
				ldx Lln_mask				;then next 2 bits are done, etc, etc; 4 times until
				ldy #0						;data for all pr head pins has been put into linebuffer
				bra LlX1i_do
LlX1i_320		lda Lln_mask				;320: initial values: Lpixmask1 = %00000011
				sta Lpixmask1				;                     Lpixmask2 = %00000011
				asl Lln_mask				;                     Lpixmask3 = 0 (skip scrn pix)
				ldx #0						;                     Lpixmask4 = 0 (skip scrn pix)
				ldy #0						;then next 2 bits are done, etc, etc; 4 times until
LlX1i_do		jsr oneLline				;data for all pr head pins has been put into linebuffer
				jsr nextLline
				asl Lln_mask
				dec Lln_count				;"oneLline" fills-in linebuff, "nextLline" bumps scrn pix
				bne LlX1i_loop				;counter; we then bump the mask and loop for 4 times
				inc DitherH					;done, bump dither offset for next intlaced line
				bra Lbanddone



Lbandexit		 							;nextLline has aborted this band
				pla							;do print commands and abort by return to caller's caller
				bra Lbanddone_go
		   
Lbanddone									;one band (head scan) of printer-pixels is now ready
				jsr IdleProcAbortCheck		;check abort, exec idleproc, etc.
				lda prError
				beq Lbanddone_go
				pla							;if error status, abort by return to caller's caller
				rts
				
Lbanddone_go	jsr SendBuff				;send graphics printing commands
				stz Lint_ispass2			;reset this flag now for next time
				rts



nextLline									;common routine to advance to next
				inc PixMapBase+0			;column of pixmap bytes
				bne noinchiL
				inc PixMapBase+2
noinchiL		
				dec PixMapWide				;abort oneLband if at right edge
				beq Lbandexit
				dec PixMapWide
				beq Lbandexit
				dec PixMapWide
				beq Lbandexit
				dec PixMapWide
				beq Lbandexit
				rts



**********

Lpixmask1		dc.w 0						;masks for the 4 pixels per (off-) screen byte, where
Lpixmask2		dc.w 0						;in "Lpixmask#" the # refers to the screen pixel and the
Lpixmask3		dc.w 0						;bits within the mask are the posns within a linebuffer
Lpixmask4		dc.w 0						;byte where the dither pattern is applied

Lwht_enabl		dc.w 0						;flag if conditions permit white-elim shortcut
Lwht_mode		dc.w 0						;320/640-mode indicator for white-elim shortcut
Lwht_maxce		dc.w 0						;max-found ctbl-select among SCBs for white-elim shortcut

Lint_ispass2	dc.w 0						;flag if we're inside 2nd pass of interlaced band

Lln_count		dc.w 0 						;# times through "LlineX1Int" (one-intlace-band) loop
Lln_mask		dc.w 0 						;current linebuffer affect mask during "LlineX1Int" loop

**********



oneLline		 							;generate data for one column of bytes
				sta Lpixmask2				;Lpixmask1 already been set; A,X,Y contain values for
				stx Lpixmask3				;Lpixmask2, Lpixmask3, and Lpixmask4.  There are 4 masks
				sty Lpixmask4				;for the 4 pixels per 640 (off-) screen byte
				
				lda Lint_ispass2			;if we're doing 2nd pass of an intlaced band, rotate the
				beq LlnDonRot				;values in pix masks so alternate set of scrn pix is used
				jsr LlnDoRotat				;rotate once to obtain 1,2,3,4 -> 4,1,2,3
				lda MasterMode				;if 320 mode, rotate again to obtain 1,2,3,4 -> 3,4,1,2
				bne LlnDonRot
				jsr LlnDoRotat
				bra LlnDonRot
		   
LlnDoRotat		ldx Lpixmask1				;rotate order 1,2,3,4 -> 4,1,2,3
				lda Lpixmask4
				sta Lpixmask1
				lda Lpixmask3
				sta Lpixmask4
				lda Lpixmask2
				sta Lpixmask3
				stx Lpixmask2
				rts
		   
LlnDonRot



				lda linebase				;reset line buffer offset back to right-hand-side
				sta lineoffset				;we will go backwards (to printer left) in this routine
				
				stz DitherH					;init dither pattern offset
				stz horPcount				;init counter used for scb indexing
		 
				ldy #oWidth					;set up byte-increment-factor for code below which
				lda [SrcLocPtr],y			;attempts to avoid imaging parts of this column if white
				sta Lwht_btinc+1
				pha							;result space
				pha							;result space
				pha							;pass pixmap width
				pushword PixMapHigh			;pass pixmap tallness
				_Multiply
				pla							;set up byte-end-value with lo word of width*tall
				sta Lwht_btend+1
				pla
				lda hScaling				;set up horizontal scaling factors for code below
				sta Lwht_lodec+1			;for updating "lineoffset" value
				sta Lwht_dhinc+1			;for updating "DitherH" value

				ldy #0						;init byte counter at top of (off-) screen column



Lbyteloop									;looping verically down for bytes within column; Y valid
				lda Lwht_enabl				;see if conditions permit quick white-checking
				beq LwhtDoImg

LwhtScan		lda [PixMapBase],y			;try to quickly eliminate bytes as all-std white
				and #$00FF
				cmp #%11111111				;320 (2 pix) or 640 (4 pix) all-std-white check
				bne LwhtDoImg				;break off search as soon as we get nonwhite
				lda lineoffset				;update counter used for linebuffer indexing
Lwht_lodec		sbc #$0000					;NOTE: carry always set here, NOTE: operand is stuffed
				sta lineoffset
				lda DitherH					;update dith value so as not to interrupt patterns
				clc
Lwht_dhinc		adc #$0000					;NOTE: this operand is stuffed
				sta DitherH
				inc horPcount				;update counter used for scb indexing
				tya							;update Y-reg counter used for scrn pix byte access
				clc
Lwht_btinc		adc #$0000					;NOTE: this operand is stuffed
				tay
Lwht_btend		cpy #$0000					;NOTE: this operand is stuffed
				bne LwhtScan
LwhtExit		rts							;if we got this far, exit without having done imaging



LwhtDoImg		
				lda MasterMode				;goes top to bottom
				sta ThisLMode				;(right to left in linebuffer)
				lda MasterPal
				sta ThisLPal
				lda SCBListPtr+0			;if SCBList specified, get mode/palette number from it,
				ora SCBListPtr+2			;otherwise, skip next section. must always be specified
				beq gotLmode
		   
				phy							;prep to obtain mode/palette for line; save byte index
				clc
				lda SCBTabBase
				adc horPcount
				tay
				lda QualBits                 ;if Better+100% modes, we must scale the SCBList index
				and #qbBetter                ;down to compensate for scaled-up pixmap
				beq gotLindex
				lda QualBits
				and #qbReduct
				bne gotLindex
				tya							;do SCBList index /2 if Better+100%
				lsr a
				tay
gotLindex
				lda [SCBListPtr],y			;get mode/palette for this current (off-) screen line
				and #$0080
				sta ThisLMode
				lda [SCBListPtr],y
				and #$000F
				sta ThisLPal
				ply							;done obtaining mode/palette; restore byte index
		   
gotLmode		
				lda ThisLPal
				asl a
				asl a
				asl a
				asl a
				asl a
				sta ThisLPal
				lda lineoffset
				sta saveoffset
				lda DitherH
				sta savedither
				lda ThisLMode				;branch based on pixel line's mode
				bne Lbyte640
Lbyte320		 
				lda Lpixmask1				;OR together masks for two 640 pixels
				ora Lpixmask2				;to get mask for one 320 pixel
				tax
				lda [PixMapBase],y
				lsr a
				lsr a
				lsr a
				lsr a
				jsr oneLpixel				;left pixel
				lda PixMapWide				;abort if right edge of pixmap is in
				cmp #3						;the middle of a byte
				blt goLbdonelt
				jsr restpixel
				lda Lpixmask3				;OR together other two 640 mode masks
				ora Lpixmask4
				tax
				lda [PixMapBase],y
				jsr oneLpixel				;right pixel
				bra nextLbyte

Lbyte640		 
				lda [PixMapBase],y
				asl a
				asl a
				xba
				and #%0011
				ldx Lpixmask1
				jsr oneLpixel				;first 640 mode pixel
				lda PixMapWide				;abort if at pixmap right edge
				cmp #2
goLbdonelt		blt Lbytedone
				jsr restpixel
				lda [PixMapBase],y
				lsr a
				lsr a
				lsr a
				lsr a
				and #%0011
				ora #%0100
				ldx Lpixmask2
				jsr oneLpixel				;second pixel
				lda PixMapWide				;abort if at right edge
				cmp #3
				blt Lbytedone
				jsr restpixel
				lda [PixMapBase],y
				lsr a
				lsr a
				and #%0011
				ora #%1000
				ldx Lpixmask3
				jsr oneLpixel				;third pixel
				lda PixMapWide				;abort if at right edge
				cmp #4
				blt Lbytedone
				jsr restpixel
				lda [PixMapBase],y
				ora #%1100
				ldx Lpixmask4
				jsr oneLpixel				;last pixel
nextLbyte									;advance to next byte in column
				tya
				ldy #owidth
				clc
				adc [SrcLocPtr],y
				tay
				inc horPcount
				lda horPcount				;see if at bottom of column
				cmp PixMapHigh
				bge Lbytedone
				lda lineoffset				;or at left end of linebuffer
				bmi Lbytedone
				brl Lbyteloop

Lbytedone		
				rts



saveoffset		ds.b 2
savedither		ds.b 2



restpixel		 							;undo variable changes made by all pixels
				lda saveoffset				;within a byte except the last
				sta lineoffset
				lda savedither
				sta DitherH
				rts



oneLpixel		 							;generating data for one pixel
				phy							;save offset into pixelmap
				stx pixelbits				;X=mask for this pixel within buffer
				and #$000F					;A=pixel value
				asl a						;convert into colortable index
				ora ThisLPal				;add SCB palette-select-value
				tay							;Y now has offset into color table for current pixel
				
				ldx colorstr				;branch based on color/grayscale mode
				cpx #s_printBW
				bne colorLpix
				
bwLpix										;convert RGB to grayscale:
				lda [CTablePtr],y			;obtain RGB value
				and #$0FFF
				xba
				and #$000F					;R
				sta colortemp
				asl a
				asl a						;4R
				adc colortemp
				sta colortemp				;5R
				lda [CTablePtr],y
				lsr a
				and #%01111000				;8G
				clc
				adc colortemp				;5R+8G
				tax
				lda [CTablePtr],y
				and #$000F					;B
				sta colortemp
				txa
				eor #$FF					;255-5R-8G
				sec
				sbc colortemp				;255-5R-8G-B
				sbc colortemp				;255-5R-8G-2B
				sbc colortemp				;255-5R-8G-3B
				and #%11110000
				lsr a						;set A bits 3..6 to density value of 0..15 for patt plot
				beq bwLpix_finish			;if zero, don't do 640-adjust below
				ldx thisLmode				;check if 640 mode, if 640 (and black/white), use only
				beq bwLpix_finish			;few of the levels to avoid beating with 640's dithering
				cmp #%01111000				;if full density, don't do 640-adjust
				beq bwLpix_finish
				cmp #%00011000				;compare for light yellow
				beq bwLpix_adj
				cmp #%01101000				;compare for std screen light blue
				bne bwLpix_finish
bwLpix_adj		lda #%00101000				;substitute density for better
				ldx hScaling
				dex
				beq bwLpix_finish1
				lda #%00111000				;substitute density for standard
bwLpix_finish	ldx #0						;set X to 0 for pattern plot routine
bwLpix_finish1	brl gotLvalue

colorLpix		
				lda KCMY_lookup,y			;convert $0RGB to $KCMY with table
				ldy colorstr				;branch based on color being printed
				cpy #s_printyel				;and get proper K, C, M, or Y nibble
				beq yelLpix
				cpy #s_printmag
				beq magLpix
				cpy #s_printcyn
				beq cynLpix
				
blkLpix			
				xba
				lsr a						;set A bits 3..6 to density value
				ldx #0						;set X for pattern plot routine
				bra gotLvalue

cynLpix			
				xba
				asl a
				asl a
				asl a						;set A bits 3..6 to density value
				ldx #3						;set X for pattern plot routine
				bra gotLvalue

magLpix			
				lsr a						;set A bits 3..6 to density value
				ldx #3						;set X for pattern plot routine
				bra gotLvalue

yelLpix			 
				asl a
				asl a
				asl a						;set A bits 3..6 to density value
				ldx #3						;set X for pattern plot routine



gotLvalue		 							;A=print density, 0..15 * 8 (in bits %.XXXX...)
				and #%01111000				;X=dither matrix offset, blk=0 CMY=3
				sta colortemp				;(keeps black from overprinting color)
				bne isLnonzero
isLzero										;save some work if density is zero
				clc							;fake changes that would have been
				lda DitherH					;made if this pixel printed
				adc hScaling
				sta DitherH
				lda lineoffset
				sec
				sbc hScaling
				sta lineoffset
				bra Lpixeldone

isLnonzero									;nonzero density, so "print" it into linebuffer...
				lda #1						;prepare to store into pr pix linebuffer
				sta LineDirty
				txa							;calculate index into dither matrix
				clc
				adc DitherH					;"DitherH" increases with every printer pixel
				and #%111					;use only low 3 bits to generate 0..7 index into matrix
				ora colortemp				;make matrix offset (colortemp has select offset)
				tax							;and put it in X for "oneLpixel1" pr pix plot routine
				ldy hScaling				;branch based on horizonal printer-pix scaling
				cpy #1
				beq LpixelX1
				cpy #2
				beq LpixelX2
LpixelX4		jsr oneLpixel1				;hScaling==4: four h printer dots per screen pixel
				jsr oneLpixel1
LpixelX2		jsr oneLpixel1				;hScaling==2: two h printer dots per screen pixel
LpixelX1		jsr oneLpixel1				;hScaling==1: one h printer dot per screen pixel
Lpixeldone		
				ply
				rts



oneLpixel1									;do stack pointer -6 to exit current line
				inc DitherH					;X=dithmatrix offset
				import Dithmatrix
				lda Dithmatrix,x			;get dither pattern based on desired density and offset
				inx							;advance to next byte of dither pattern
				and pixelbits				;apply mask for this pixel
				ldy lineoffset				;get offset into linebuffer
				dey
				bmi oneLp1done				;make sure we're still within buffer
				ora LineBuffer,y			;OR masked pattern into buffer
				sta LineBuffer,y
				sty lineoffset
				txa							;see if we need to wrap back to beginning of
				and #%111					;current dither level
				bne oneLp1done
				sec							;do wrap to beginning of pattern for current dither level
				txa
				sbc #8
				tax
oneLp1done		rts





*******************************************************************************





*
*SENDBUFF/IWCOMPRESSSEND:
*
*The following routine sends data in line buffer to printer appropriately for IW 8-pin model.
*The print-graphics commands are interspersed with positioning and/or run-length-encoding commands:
*if a run of N or more identical groups of byte(s) is detected, then the print-multiple-graphics-
*columns command is used for nonzero data, while the position-print-head command is used for a run
*of zero data.
*

SendBuff:
				lda LineDirty				;if no data, don't bother printing
				beq noline
				stz LineDirty				;initialize did-we-use-ink-yet flag
				jsr IWCompressSend
				lda LineDirty				;if no data was found, don't do CR
				beq noline
				lda #s_cr					;return to left margin for next band
				jsr writeshort
noline			rts



IWCompressSend:

cs_init			stz cs_curr_pos				;initialize logical head positions for scan...
				stz cs_nor_start
				stz cs_nor_end
				stz cs_rle_start
				stz cs_curr_stat			;init state: 0=normal, 1=maybe rle, 2=definetely rle
				stz cs_rept_ctr				;init repeat counter for going from state 1 to state 2
				lda LineBuffer+0			;init "last group" to be always different from 1st group
				ina
				sta cs_last_group+0
		   
cs_test			ldy cs_curr_pos				;do 1-BYTE compare...
				shortm
				lda LineBuffer,y
				cmp cs_last_group
				longm
				bne cs_diff
		   
cs_same			lda cs_curr_stat			;current group is equal to group from last time...
				cmp #2						;if state=2, do nothing
				beq cs_next
				cmp #1						;if state=1, see if time to go state 2 and do norm output
				bne cs_same_0
		   
cs_same_1		inc cs_rept_ctr				;inc repeat count; if less than thresh, get next group
				lda cs_rept_ctr
				cmp #RunLenEncodeThreshIW-2
				bcc cs_next
				lda #2						;else, go to state 2 and do normal output
				sta cs_curr_stat
				ldx cs_nor_start			;do normal output from nor_start to nor_end-1...
				ldy cs_nor_end
				jsr cs_do_output_nor
				bra cs_next
		   
cs_same_0		lda #1						;go to state 1, clr repeat ctr, set possible rept start
				sta cs_curr_stat
				stz cs_rept_ctr
				lda cs_curr_pos
				dea
				sta cs_rle_start
				bra cs_next
		   
cs_diff			lda cs_curr_stat			;current group is not equal to group from last time...
				bne cs_diff_12				;we handle state 0 first since it's most common:
		   
cs_diff_0		lda cs_curr_pos				;diff/state 0: state stays 0, track nor_end with curr_pos
				sta cs_nor_end
				bra cs_next
		   
cs_diff_12		cmp #1
				bne cs_diff_2
		   
cs_diff_1		stz cs_rept_ctr				;diff/state 1: state=0, clr ctr, track nor_end as above
				stz cs_curr_stat
				lda cs_curr_pos
				sta cs_nor_end
				bra cs_next
		   
cs_diff_2		stz cs_curr_stat			;diff/state 2: state=0, reset nor start/end, do rle out
				lda cs_curr_pos
				sta cs_nor_start
				sta cs_nor_end
				ldx cs_rle_start			;do rle output from rle_start to curr_pos-1...
				ldy cs_curr_pos
				jsr cs_do_output_rle		;do it, then drop thru to cs_next

cs_next			ldy cs_curr_pos				;next position: set last_group, increment, see if done...
				shortm						;copy 1 BYTE from line buffer
				lda LineBuffer,y
				sta cs_last_group
				longm
		   
cs_next_in		inc cs_curr_pos				;increment current position, loop until == crWidth...
				lda cs_curr_pos
				cmp crWidth
				bcs cs_flush
				brl cs_test

cs_flush		lda cs_curr_stat			;final flush: check status...
				cmp #2
				beq cs_flush2
		   
cs_flush01		ldx cs_nor_start			;flush/stat=0 or 1: do nor out fr nor_start to curr_pos-1
				ldy cs_curr_pos
				jsr cs_do_output_nor
				rts							;and exit

cs_flush2		ldx cs_rle_start			;flush/stat=2: do rle output from rle_start to curr_pos-1
				ldy cs_curr_pos
				jsr cs_do_output_rle
				rts							;and exit



*
*Normal printer output command subroutine for IWCompressSend (from -> X, to -> Y):
*

cs_do_output_nor:							;from -> X, to -> Y
				stx cs_num_output			;1) to=to-1   2) cs_num_output=to-from   3) if -1 exit
				stx cs_frm_output
				dey
				tya
				sec
				sbc cs_num_output
				cmp #$FFFF
				beq cs_nor_xit
				ina
				sta cs_num_output
		   
				lda LineDirty				;have we ever pr yet on this IWCompressSend (head scan)?
				bne cs_nor_ddone			;yes we have printed, so skip next few lines
				lda #1						;else, mark for next time because we're about to use ink
				sta LineDirty
				lda ActionBits				;don't do color selection if on IW-One
				and #abIsIWOne
				bne cs_nor_ddone
				lda colorstr				;select proper color ribbon before print first time
				jsr writeshort
cs_nor_ddone
		   
				pushword cs_num_output		;convert cs_num_output (the length) to ascii for command
				pushlong #grstr
				pushword #4
				pushword #0
				_Int2Dec
		   
				lda #s_graphics				;send command to print nonrepeating graphics
				jsr writeshort
		   		   
cs_nor_blt		lda #LineBuffer				;send gr data, from=LB+cs_frm_output; len=cs_num_output
				ldx #^LineBuffer
				clc
				adc cs_frm_output			;assuming no bank cross here
				ldy cs_num_output
				jsr writelong
		   
cs_nor_xit		rts



*
*Run-length-encoding-posn pr output cmd subroutine for IWCompressSend (from -> X, to -> Y):
*

cs_do_output_rle:							;from -> X, to -> Y
				stx cs_num_output			;1)to=to-1   2)cs_num_output=to-from   3)if 0 or -1 exit
				stx cs_frm_output
				dey
				tya
				sec
				sbc cs_num_output
				beq cs_rle_xit
				cmp #$FFFF
				beq cs_rle_xit
				ina
				sta cs_num_output
		   		   
				shortm						;check to see if first BYTE of the start group is zero
				lda LineBuffer,x
				longm
				beq cs_rle_psn				;zero, so do positioning instead of graphics output
		   
cs_rle_rpt		lda LineBuffer+0,x			;store repeat group byte in cmd seq
				shortm
				sta rptdata+0
				longm
				
				lda LineDirty				;have we ever pr yet on this IWCompressSend (head scan)?
				bne cs_rle_ddone			;yes we have printed, so skip next few lines
				lda #1						;else, mark for next time because we're about to use ink
				sta LineDirty
				lda ActionBits				;don't do color selection if on IW-One
				and #abIsIWOne
				bne cs_rle_ddone
				lda colorstr				;select proper color ribbon before print first time
				jsr writeshort
cs_rle_ddone
		   
				pushword cs_num_output		;convert number of prpix to print to ascii...
				pushlong #rptstr
				pushword #4
				pushword #0
				_Int2Dec
		   
				lda #s_repeating			;send command to print repeating graphics
				jsr writeshort
		   
cs_rle_xit		rts

cs_rle_psn		iny							;move print head to "to" prpix posn still in Y:
				cpy crWidth					;if about to do posn to crWidth-1, don't do it; it is
				beq cs_rle_xit				;inefficient and it doesn't like posn followed by nothing
				phy							;convert to ascii; doing posn to "to"+1...
				pushlong #posstr
				pushword #4
				pushword #0
				_Int2Dec
		   
				lda #s_position				;send command to do head position
				jsr writeshort
				rts



*
*Variables for IWCompressSend:
*

cs_curr_pos		dc.w	0					;curr headscan posn (logical posn; NOT LineBuffer index)
cs_curr_stat	dc.w	0					;curr state: 0=normal; 1=rle candidate; 2=confirmed rle
cs_nor_start	dc.w	0					;headscan logical posn of start of normal (non-rle) data
cs_nor_end		dc.w	0					;headscan logical posn of end of normal data
cs_rle_start	dc.w	0					;headscan logical posn of start of run for run-len-encode
cs_rept_ctr		dc.w	0					;repeat count for run-length-encoding candidate
cs_num_output	dc.w	0					;number of prpix to output, used by output subroutines
cs_frm_output	dc.w	0					;value of "from" parameter, used by output subroutines
cs_last_group	ds.b	3					;last group representing last logical head pin fire



*
*Printer command sequences for CompressSend:
*

s_position		dc.b	6					;position-print-head command sequence
				dc.b	$1B
				dc.b	$46					;IW_II positioning command
posstr			dc.b	'0000'



s_repeating 	dc.b	7					;print-repeat-graphics command sequence
				dc.b    $1B
				dc.b	$56					;IW_II repeating-graphics command
rptstr			dc.b	'0000'
rptdata			dc.b	0



s_graphics		dc.b	6					;print-graphics command sequence (is followed by data)
				dc.b	$1B
				dc.b	$47					;IW_II graphics command
grstr			dc.b	'0000'



s_cr			dc.b	1					;output-carriage-return command sequence
				dc.b	$0D



*******************************************************************************






*
*IDLEPROCABORTCHECK/IDLEPROCABORTERRCHECK:
*
*Printer status, user abort, and idleproc callers. Should be called before any long data blast, after
*unsuccessful I/O, or any request for change in connection status (such as PrDevOpen/Close calls).
*The difference between the two calls is that IDLEPROCABORTCHECK does not include printer port
*driver status call inquiry.
*
*1. Does PrDevStatus call, and if (network) port driver error condition, sets prError and exits.
*2. If the imager was passed a non-NIL idleproc, then save enviroment and execute it.  Note
*   that the Option-Period-check will still execute after the idleproc finishes.
*3. Check for Option-Period; if pressed, set prError and exit.  Note that this kind of exit
*   code has precedence over (will override) any errors from the PrDevStatus call.
*

IdleProcAbortErrCheck:

				stz status_buff+5			;clear status buff, for not all port drivers support it
				
				pushlong #status_buff		;(*) do status call, which works best on networks...
				ldx #$2013
				jsl $E10000					;_PrDevStatus
				bcc e_notdstat
				
				pushlong #status_buff		;if error, try status call one more time
				ldx #$2013
				jsl $E10000					;_PrDevStatus
				bcc e_notdstat
				
				lda #$0081					;if err, exit with our communications-err result code
				bra e_strerr
e_notdstat
		   
				lda status_buff+5			;get status word, if any, from bytes 5,6... this info
				tax							;is from appletalk board in the printer, else it's zero
				
				txa							;*** Printer Busy? ***
				;     5432109876543210
				and #%1000000000000000		;printer-busy flag
				beq e_notbusy
				lda is_our_conn				;printer busy AND we're not connected yet?
				bne e_notbusy				;if so then someone else is using it
				lda #$008F
				bra e_strerr				;if so then exit with our printer-is-busy result code
e_notbusy

				txa							;*** Out Of Paper? ***
				;     5432109876543210
				and #%0000000000100000		;out-of-paper flag
				beq e_notpapr
				txa
				;     5432109876543210
				and #%0000000001000000		;has-feeder flag: if no paper b/c sheet feeder, no err
				bne e_notpapr
				lda #$0082
				bra e_strerr
e_notpapr
		   
				txa							;*** Paper Jammed? ***
				;     5432109876543210
				and #%0000000000000100		;paper-jam flag
				beq e_notjam
				lda #$0083
				bra e_strerr
e_notjam
		   
				txa							;*** Cover Open? ***
				;     5432109876543210
				and #%0000000000010000		;cover-open flag
				beq e_notcvr
				lda #$0084
				bra e_strerr
e_notcvr
		   
				txa							;*** Select Switch Off? ***
				;     5432109876543210
				and #%0000000000001000		;select-off flag
				beq e_continue
				lda #$0085
		   
e_strerr		sta prError
e_continue		

IdleProcAbortCheck:

				lda IdleProcPtr+0			;(*) if NIL, user didn't specify idleproc
				ora IdleProcPtr+2
				beq no_iproc
				
				lda IdleProcPtr+0			;else build JSL instruction to user...
				sta goto_user+1
				lda IdleProcPtr+2
				shortm
				sta goto_user+3
				longm
				
				phb							;save environment
				phd
		   
goto_user		jsl $FFFFFF					;goto user procedure; I can't believe I'm doing this...

				pld							;restore env; drop through to our command-period check
				plb
		   
no_iproc		pha							;(*) now check if command-period was pressed
				pushword #$0008				;keyDownMask
				pushlong #eventrec
				_GetNextEvent
				pla
				beq no_event
				
				lda eventmsg
				and #$00FF
				cmp #'.'					;period
				bne no_event
				
				lda eventmod
				and #$0100					;appleKey
				beq no_event
				
				lda #$0080					;this will overwrite/override any error obtained above
				sta prError
no_event

				rts



eventrec:
eventwhat		ds.b 2
eventmsg		ds.b 4
eventwhen		ds.b 4
eventwhere		ds.b 4
eventmod		ds.b 2

status_buff		ds.b 256					;yes, it has to be this big (we only get 2 bytes from it)
											;status_buff+5 contains the following bits:
											;0=head moving, 1=fault, 2=jam, 3=off line,
											;4=cover open, 5=out of paper, 6=has feeder, 7=has color
											;15=printer busy





*******************************************************************************





crWidth			ds.b 2						;carr width h pr pix; used for linebuff right just
vScaling		ds.b 2						;printer dots per vertical pixel
vInterlace		ds.b 2						;enable flag for vertical interlace
hScaling		ds.b 2						;printer dots per horizontal pixel



				export PrError				;allow high-level routines to abort imager from idleproc
prError			ds.b 2						;error status ($80=abort; other codes possible)



LineBuffer		ds.b 1*1280+2+24			;max 8.0", 160 dpi, 1 byte/column + BW6 alg overrun
LineBufferEnd								;linebuffer length MUST be even!





*******************************************************************************





							endproc
							end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/NEW.IW/imagerdata.aii b/IIGS.601.SRC/GSToolbox/PrinterDrivers/NEW.IW/imagerdata.aii
new file mode 100644
index 0000000..e8c0aed
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/NEW.IW/imagerdata.aii
@@ -0,0 +1 @@
+
******************************************************************************************
*                                                                                        *
*		Apple IIgs New ImageWriter Printer Driver                                        *
*                                                                                        *
*		File: imagerdata.aii -- Density dither patterns applied to printer-pixels        *
*                                                                                        *
*		Written by Ben Koning                                                            *
*		Copyright (C) 1990 Apple Computer, Inc.                                          *
*                                                                                        *
******************************************************************************************







****************************************************************************************************
*                                                                                                  *
*   IMAGERDATA: 8x8 patterns which render 16 grayscale density levels on an ImageWriter I or II    *
*                                                                                                  *
*	The table below consists of 8x8 dither (halftone) patterns, arranged bitwise as eight          *
*	bytes.  A patterns is scanned such that the each successive byte is used vertically, with      *
*	the least-significant bit on top.  Thus up->down in the patterns below corresponds to          *
*	left->right on the printer.                                                                    *
*                                                                                                  *
*	The patterns must be regularly repetitive in all directions.  If this is not so, then          *
*	ugly "macroscopic" artifacts will be visible.  Given the limited resolution of the             *
*	ImageWriter (80x72 or 160x144 dpi), it is fairly difficult to construct such patterns          *
*	other than 100%, 75%, 50%, 25%, and 0%.                                                        *
*                                                                                                  *
*	The imager is capable of addressing 16 separate density levels; hence there are 16 entries     *
*	in the table below.  Due to the difficulty of generating so many artifact-fee patterns,        *
*	however, many of the patterns may be repeated.                                                 *
*                                                                                                  *
*	640-mode graphics are almost always dithered, therefore, it is possible for the dither         *
*	patterns described herein to beat, or interfere, against the quickdraw/etc-generated           *
*	patterns.  This can lead to "macroscopic" moire artifacts, as well as destructive              *
*	interference in which a 640-mode pattern is cancelled out to white entirely.  This is          *
*   especially dangerous for the very light-yellow-standard-640-color which is used as             *
*   highlighting by some word processors and could show up as nothing (white) while printing       *
*   in black/white mode, for example!  Of course, the correct ultimate solution to this problem    *
*   would be for the imager to consider two side-by-side 640-mode pixels at a time when            *
*   calculating density values.                                                                    *
*                                                                                                  *
*	Because the printer pin firing in the horizontal direction and the pin spacing in the          *
*	vertical direction on the paper overlaps somewhat (so as to create continuous graphics)        *
*	the printed density (as one might measure with a light meter off the page) does not            *
*	correspond linearly with the density ("the number of bits set") in the patterns below          *
*	across the entire 0..15 scale.  For example, a 75% pattern seems to produce a printed          *
*	density that is higher than 75%, given a fresh ribbon.                                         *
*                                                                                                  *
****************************************************************************************************






							macro
&label						BitsPercent0Pure
&label						dc.b	%00000000
							dc.b	%00000000
							dc.b	%00000000
							dc.b	%00000000
							dc.b	%00000000
							dc.b	%00000000
							dc.b	%00000000
							dc.b	%00000000
							mend





							macro
&label						BitsPercent100Pure
&label						dc.b	%11111111
							dc.b	%11111111
							dc.b	%11111111
							dc.b	%11111111
							dc.b	%11111111
							dc.b	%11111111
							dc.b	%11111111
							dc.b	%11111111
							mend





							macro
&label						BitsPercent50Pure
&label						dc.b	%10101010
							dc.b	%01010101
							dc.b	%10101010
							dc.b	%01010101
							dc.b	%10101010
							dc.b	%01010101
							dc.b	%10101010
							dc.b	%01010101
							mend





							macro
&label						BitsPercent25Pure
&label						dc.b	%01010101
							dc.b	%00000000
							dc.b	%10101010
							dc.b	%00000000
							dc.b	%01010101
							dc.b	%00000000
							dc.b	%10101010
							dc.b	%00000000
							mend





							macro
&label						BitsPercent87Pure
&label						dc.b	%01110111
							dc.b	%11111111
							dc.b	%11011101
							dc.b	%11111111
							dc.b	%01110111
							dc.b	%11111111
							dc.b	%11011101
							dc.b	%11111111
							mend
							




							macro
&label						BitsPercent6Checkerboard
&label						dc.b	%10001000
							dc.b	%00000000
							dc.b	%00000000
							dc.b	%00000000
							dc.b	%00100010
							dc.b	%00000000
							dc.b	%00000000
							dc.b	%00000000
							mend
							




							macro
&label						BitsPercent12Checkerboard
&label						dc.b	%10001000
							dc.b	%00000000
							dc.b	%00100010
							dc.b	%00000000
							dc.b	%10001000
							dc.b	%00000000
							dc.b	%00100010
							dc.b	%00000000
							mend
							




							macro
&label						BitsPercent12Rectangular
&label						dc.b	%10101010
							dc.b	%00000000
							dc.b	%00000000
							dc.b	%00000000
							dc.b	%10101010
							dc.b	%00000000
							dc.b	%00000000
							dc.b	%00000000
							mend
							




							macro
&label						BitsPercent25Stripe
&label						dc.b	%10001000
							dc.b	%01000100
							dc.b	%00100010
							dc.b	%00010001
							dc.b	%10001000
							dc.b	%01000100
							dc.b	%00100010
							dc.b	%00010001
							mend
							




							macro
&label						BitsPercent50Stripe
&label						dc.b	%11110000
							dc.b	%00111100
							dc.b	%00001111
							dc.b	%11000011
							dc.b	%11110000
							dc.b	%00111100
							dc.b	%00001111
							dc.b	%11000011
							mend
							




							macro
&label						StraightVerticalGap3
&label						dc.b	%11111111
							dc.b	%00000000
							dc.b	%00000000
							dc.b	%00000000
							dc.b	%11111111
							dc.b	%00000000
							dc.b	%00000000
							dc.b	%00000000
							mend
							




							macro
&label						WigglyVerticalGap2
&label						dc.b	%10101010
							dc.b	%01010101
							dc.b	%00000000
							dc.b	%00000000
							dc.b	%10101010
							dc.b	%01010101
							dc.b	%00000000
							dc.b	%00000000
							mend
							




							macro
&label						StraightVerticalLiteBoxes
&label						dc.b	%11111111
							dc.b	%10101010
							dc.b	%00000000
							dc.b	%00000000
							dc.b	%11111111
							dc.b	%10101010
							dc.b	%00000000
							dc.b	%00000000
							mend
							




							macro
&label						StraightVerticalDarkBoxes
&label						dc.b	%11111111
							dc.b	%11111111
							dc.b	%10101010
							dc.b	%00000000
							dc.b	%11111111
							dc.b	%11111111
							dc.b	%10101010
							dc.b	%00000000
							mend
							




							macro
&label						BitsPercent62
&label						dc.b	%01010101
							dc.b	%10111011
							dc.b	%01010101
							dc.b	%11101110
							dc.b	%01010101
							dc.b	%10111011
							dc.b	%01010101
							dc.b	%11101110
							mend
							





ImagerDataRec				record		export
							export		Dithmatrix
							
Dithmatrix:
Dithmatrix0					BitsPercent0Pure
Dithmatrix1					BitsPercent6Checkerboard
Dithmatrix2					BitsPercent12Checkerboard
Dithmatrix3					BitsPercent12Rectangular
Dithmatrix4					StraightVerticalGap3
Dithmatrix5					WigglyVerticalGap2
Dithmatrix6					BitsPercent25Stripe
Dithmatrix7					BitsPercent25Pure
Dithmatrix8					BitsPercent25Pure
Dithmatrix9					StraightVerticalLiteBoxes
Dithmatrix10				BitsPercent50Stripe
Dithmatrix11				StraightVerticalDarkBoxes
Dithmatrix12				BitsPercent50Pure
Dithmatrix13				BitsPercent62
Dithmatrix14				BitsPercent87Pure
Dithmatrix15				BitsPercent100Pure

							endr
							end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/NEW.IW/makefile b/IIGS.601.SRC/GSToolbox/PrinterDrivers/NEW.IW/makefile
new file mode 100644
index 0000000..ab69d18
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/NEW.IW/makefile
@@ -0,0 +1 @@
+
#***********************************************************************************
#                                                                                  *
#		Apple IIgs New ImageWriter Printer Driver                                  *
#                                                                                  *
#		File: makefile -- Compilation and linking script                           *
#                                                                                  *
#		Written by Ben Koning                                                      *
#		Copyright (C) 1990 Apple Computer, Inc.                                    *
#                                                                                  *
#***********************************************************************************



#Division of source files:
#		equates			Header file with equates and direct page definitions
#		entry			Entry vectors, environment setup/restore, routine dispatch
#		metrics			Print record access and	printer dimension calculations
#		dialog		 	PrStlDialog and PrJobDialog dialog box implementation
#		dialogdata  	Dialog box layout and text
#		spool	 		Routines to spool data to disk and/or memory
#		printloop		High level interface from application to spooler and imager
#		imager		 	Converting pixel map to escape codes for printer
#		imagerdata 	 	Tables for computing RGB->CMY and density dither patterns



EQU =	equates.aii
OBJ =	:obj:entry.aii.obj :obj:printloop.aii.obj :obj:metrics.aii.obj ¶
		:obj:dialog.aii.obj :obj:dialogdata.aii.obj :obj:spool.aii.obj ¶
		:obj:imager.aii.obj :obj:imagerdata.aii.obj
NAM =	ImageWriter
PRN =	print -r -h -hs 12 -hf times -md -f courier -s 9



PRINT Ä
		{PRN} imagerdata.aii
		{PRN} imager.aii
		{PRN} spool.aii
		{PRN} dialogdata.aii
		{PRN} dialog.aii
		{PRN} metrics.aii
		{PRN} printloop.aii
		{PRN} entry.aii
		{PRN} equates.aii
		{PRN} makefile
		{PRN} README
		{PRN} RELEASE.NOTES
		files -l | {PRN}
		
		
	
CLEAN Ä
		delete -i {OBJ}



{NAM} Ä {EQU} {OBJ}
		delete -i {NAM}
		linkiigs -t $BB -at $0001 {OBJ} -o {NAM}


	
DEBUG Ä {EQU} {OBJ}
		delete -i {NAM}
		linkiigs -t $BB -at $0001 {OBJ} -o {NAM}
		files -n -x b {NAM}
		beep 2a,4,255
		duplicateiigs -m -y {NAM} :


	
:obj:entry.aii.obj Ä {EQU} entry.aii
		asmiigs	entry.aii -o :obj:entry.aii.obj

:obj:printloop.aii.obj Ä {EQU} printloop.aii
		asmiigs	printloop.aii -o :obj:printloop.aii.obj

:obj:metrics.aii.obj Ä {EQU} metrics.aii
		asmiigs	metrics.aii -o :obj:metrics.aii.obj

:obj:dialog.aii.obj Ä {EQU} dialog.aii
		asmiigs	dialog.aii -o :obj:dialog.aii.obj

:obj:dialogdata.aii.obj Ä {EQU} dialogdata.aii
		asmiigs dialogdata.aii -o :obj:dialogdata.aii.obj

:obj:spool.aii.obj Ä {EQU} spool.aii
		asmiigs	spool.aii -o :obj:spool.aii.obj

:obj:imager.aii.obj Ä {EQU} imager.aii
		asmiigs	imager.aii -o :obj:imager.aii.obj

:obj:imagerdata.aii.obj Ä {EQU} imagerdata.aii
		asmiigs	imagerdata.aii -o :obj:imagerdata.aii.obj

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/NEW.IW/metrics.aii b/IIGS.601.SRC/GSToolbox/PrinterDrivers/NEW.IW/metrics.aii
new file mode 100644
index 0000000..62d32fe
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/NEW.IW/metrics.aii
@@ -0,0 +1 @@
+
******************************************************************************************
*                                                                                        *
*		Apple IIgs New ImageWriter Printer Driver                                        *
*                                                                                        *
*		File: metrics.aii -- Exclusive print record access and dimension calculations    *
*                                                                                        *
*		Written by Ben Koning                                                            *
*		Copyright (C) 1990 Apple Computer, Inc.                                          *
*                                                                                        *
******************************************************************************************






							include		'equates.aii'
							
							
							include		'm16.util'
							include		'e16.print'
							include		'm16.intmath'
							include		'e16.quickdraw'
							include		'm16.quickdraw'
							
											
MetricsProc					proc		export






****************************************************************************************************
*                                                                                                  *
* METRICS (PAGE MEASUREMENT) MODEL AND IMPLEMENTATION                                              *
*                                                                                                  *
* All information related to page size, print quality, etc., options is stored in a data           *
* structure called the Print Record, the memory for which is the application's responsibility      *
* (a print record should be maintained with each document enacted on by an application so that     *
* page setup information stays with a letter, drawing, etc.), and the contents of which are        *
* the responsibility of the currently selected printer driver.                                     *
*                                                                                                  *
* The routines in this module seek to isolate the rest of this printer driver from the specifics   *
* of the contents of the user's print record.  They also arbitrate between the realms of page      *
* measurements in inches and rectangle sizes in pixels.                                            *
*                                                                                                  *
* There are a set of GetXXX and SetXXX routines below, which must be called rather than            *
* modifying the print record directly.  Before a SetXXX completes, it causes a calculation         *
* routine to be called which ensures that the print record stays self-consistent.                  *
*                                                                                                  *
* The calculation routine uses the paper type and selected sizing options to find values for       *
* several rectangles, used by applications as well as the rest of this driver, and stores them.    *
*                                                                                                  *
* From the paper type, its paper dimensions are looked up from a table.  This information is       *
* stored in the rPaper rectangle.  Thus dimensions could be different for Letter, Legal,           *
* Envelope, etc.  The vertical dimension is used, for example, to set the page length so that      *
* form feed works correctly (as returned by the GetPaperLength routine, for example).              *
* rPaper is given in pixels.                                                                       *
*                                                                                                  *
* Margins are subtracted from the rPaper rectangle to create the rPage rectangle, the actual       *
* printable area inside a sheet of paper.  The first point of rPage is made the origin, so         *
* that the first point of rPaper is negative.  rPage is given in pixels.                           *
*                                                                                                  *
* Note that the sizing settings (Vertical Condense, Reduction, Page Gap) actually increase the     *
* effective printing area.  They are not just effects settings which would affect only the         *
* outcome of the printing.  In other words, selecting 50%-size means that the application can      *
* give the user more drawing space, for example.  Also, Landscape means that the paper is still    *
* inserted normally into the printer; just that the X & Y dimensions that the application sees     *
* are reversed.  In other words, selecting Landscape means that a drawing application's rulers     *
* show 11" left to right and 8" top to bottom for 8x11" paper.                                     *
*                                                                                                  *
* The metrics calculations proceed as follows:                                                     *
*                                                                                                  *
* 		Get resolution in pixels/inch from equates based on port/land orientation setting          *
* 		If vertical condense, double y resolution                                                  *
* 		If reduction, multiply x,y resolutions accordingly                                         *
* 		If 320 mode, half x resolution                                                             *
* 		Divide x,y resolutions by 2 to convert from Imaging resolution to rPage res (see below)    *
* 		Get paper_x, paper_y, paper_gap size in inches from table based on paper type setting      *
* 		Multiply dimensions by resolutions to convert dimensions to pixels                         *
* 		rPaper gets physical page dimensions with rPage first point as origin                      *
* 		rPage gets page dimensions minus a border based horizontally on equates and vertically     *
* 			on the paper_gap and the page gap setting                                              *
* 		Landscape orientation causes rPaper and rPage to have x & y exchanged                      *
*                                                                                                  *
* In addition to providing the application with information about the printable area, the rPage    *
* rectangle is used as the source rectangle during picture recording (QDAux's OpenPicture,         *
* ClosePicture, DrawPicture, etc).  When DrawPicture is called, the playback rectangle may be      *
* the same size or may be bigger to allow for higher quality printing (the GetImagingSize routine  *
* returns the playback size based on rPage and the quality setting).                               *
*                                                                                                  *
* Two pixel-level units are defined for internal use: "rPage" units and "Imaging" units.  RPage    *
* dimensions change with respect to the option settings which increase printable area real estate, *
* as described above, but remain constant with respect to the Standard or Better quality mode      *
* setting.  Imaging units, on the other hand, are equal to rPage units with a scaling factor       *
* applied to facilitate higher resolution when printing at denser dot pitches.  For example, if    *
* rPage.X2 is "100" and the quality is "standard", then ImagingSize.X2 would be "100".  But if     *
* rPage.X2 is "100" and the quality is "better", then ImagingSize.X2 could be "200".  Two          *
* routines, "ConvertImgToRPageSize" and "ConvertRPageToImgSize", are provided as the exclusive     *
* converters between these two units.  These routines are especially exempt from DP/print record   *
* availability restrictions, because they may need to be called from within our QD bottleprocs,    *
* for example.  Thus, in summary: rPage is the amount of pixels that the application sees for the  *
* positioning of QD objects, while the Imaging size is the amount of pixels that the driver has    *
* to deal with when playing back the picture containing these objects, thus obtaining high reso-   *
* lution on the printed paper since there "are more dots" in QD objects, causing smoother curves.  *
*                                                                                                  *
****************************************************************************************************






*
*STARTPRH: Call to use print record from hdl; sets up ParamLongA, allows pr rec access without hdl:
*
StartPRH					ldy			#4						;lock handle
							lda			[printRecordHandle],y
							ora			#$8000
							sta			[printRecordHandle],y
							lda			[printRecordHandle]		;deref to get ptr in ParamLongA
							sta			ParamLongA+0
							ldy			#2
							lda			[printRecordHandle],y
							sta			ParamLongA+2
							lda			printRecordHandle+0		;save pr rec hdl for later use
							sta			MostRecentPRH+0
							lda			printRecordHandle+2
							sta			MostRecentPRH+2
							rts
*Static variable holding recent pr rec handle so routines w/o prrec access can look anyway:
MostRecentPRH				dc.l		0						;most recent print record handle
		
							
							
*
*FINISHPRH: Call this when done working with print record handle:
*
FinishPRH					ldy			#4
							lda			[printRecordHandle],y
							and			#$7FFF
							sta			[printRecordHandle],y
							rts
	
	
	
*
*InitPrintRecord: Fills user's print record with default values, for both ex- and internal use.
*On entry, printRecordHandle should be set.
*
							export		InitPrintRecord
InitPrintRecord				jsr			SetMiscNil				;advanced features to default NIL
							lda			#paperTypeUsaLetter		;standard paper size
							sta			OptionA
							jsr			SetPaper
							stz			OptionA					;default print style options...
							jsr			SetVSize				;normal vertical size
							jsr			SetReduction			;no reduction
							jsr			SetPageGap				;no vertical page gap
							jsr			SetOrientation			;portrait mode
							jsr			SetColor				;no color
							lda			#1
							sta			OptionA
							lda			#32767
							sta			OptionB
							jsr			SetPageRange			;print all pages
							jsr			SetFeed					;automatic sheet feed
							jsr			SetCopies				;one copy
							lda			#2						;standard print quality
							sta			OptionA
							brl			SetQuality
							



*
*OPTION SETTING ROUTINES: These modify the user's print record in DP variable "printRecord". They
*are called as a result of default, validate, style, or job calls.  They leave the print record in
*an uncorrupted state.  Unlike the old driver, we rely only on the offsets provided in the include
*file, for future portability.  The parameter to be set is passed in the DP variables "OptionA" and
*"OptionB".  For boolean values (such as portrait/landscape, etc), 0 means the default option:
*
*NOTE: These routines should be the only entities within this driver to modify the print record.
*An internal coding, which makes sense by using 0 for default values, etc., is used to refer to
*values of print record settings, and backward compatiblity may demand that certain values be stored
*in a reverse or bizarre sense in the print record.  It is the purpose of these Get/Set routines
*to perform any such translation.
*

*SETMISCNIL: Initializes nonuser option switches and miscellaneous and normally-nil fields:
							export		SetMiscNil
SetMiscNil					jsr			StartPRH
							ldy			#oprVersion					;Version ID
							lda			#VersionID
							sta			[ParamLongA],y
*
							ldy			#oprInfo+oiDev				;Device ID
							lda			#DeviceID					;2=LQ (1=IW 3=LW)
							sta			[ParamLongA],y
*
							lda			#0							;0,0 first coords of rPage
							ldy			#oprInfo+orPage+oh1
							sta			[ParamLongA],y
							ldy			#oprInfo+orPage+ov1
							sta			[ParamLongA],y
*
							ldy			#oprStl+owDev				;also 0 for initial wDev
							sta			[ParamLongA],y
*
							shortm
							ldy			#oprJob+obJDocLoop
							lda			#$80						;Set byte for spool print method
							sta			[ParamLongA],y
*
							ldy			#oprJob+ofFromUser
							lda			#1							;Set from-user field byte
							sta			[ParamLongA],y
							longm
*
							ldy			#owResScaling				;new wResScaling: 2 for IW
							lda			#2
							sta			[ParamLongA],y
*
							lda			#0
*
							ldy			#oprJob+opIdleProc
							sta			[ParamLongA],y				;Default NIL idleproc
							iny
							iny
							sta			[ParamLongA],y
*
							ldy			#oprJob+opFileName
							sta			[ParamLongA],y				;(ACC 0) NIL pFileName
							iny
							iny
							sta			[ParamLongA],y
*
							ldy			#opFileBlockSize
							sta			[ParamLongA],y				;(ACC 0) NIL NEW pFileBlockSize
							iny
							iny
							sta			[ParamLongA],y
*
							ldy			#opFileMemLimit
							sta			[ParamLongA],y				;(ACC 0) NIL NEW pFileMemLimit
							iny
							iny
							sta			[ParamLongA],y
*
							ldy			#opCTable
							sta			[ParamLongA],y				;(ACC 0) NIL NEW pCTable
							iny
							iny
							sta			[ParamLongA],y
*
							ldy			#opSCBList
							sta			[ParamLongA],y				;(ACC 0) NIL NEW pSCBList
							iny
							iny
							sta			[ParamLongA],y
*
							brl			CalcAndFinishPRH

*SETPAPER: Sets the paper type, used for calculating printable area dimensions:							
							export		SetPaper
SetPaper					jsr 		StartPRH
							ldy			#oprStl+opaperType
							lda			OptionA
							sta			[ParamLongA],y
							brl			CalcAndFinishPRH

*SETVSIZE: Sets vertical sizing, normal or 50% ("condensed") for correct font aspect ratio:
							export		SetVSize
SetVSize					jsr			StartPRH
							ldy			#oprStl+owDev
							lda			[ParamLongA],y
							ldx			OptionA
							bne			@ClearIt								;reverse sense!
							ora			#wDevVSize
							bra			@StoreIt
@ClearIt					and			#ÅwDevVSize
@StoreIt					sta			[ParamLongA],y
							brl			CalcAndFinishPRH

*SETREDUCTION: Sets 100/50% reduction in a compatible way using internal code 0/1, respectively:
							export		SetReduction							;encoded in wierd way
SetReduction				jsr			StartPRH								;in backward sense
							ldy			#oprStl+owDev							;access wDev
							lda			[ParamLongA],y
							and			#ÅwDevReduction							;clear reduction bit
							sta			[ParamLongA],y
							lda			OptionA									;get option 0..1
							bne			SetReductionIts50						;branch based on it
*
SetReductionIts100			ldx			#0										;"00" -> %reduction
							lda			#wDevReduction							;"1"  -> wDev bit
							bra			SetReductionSet
*
SetReductionIts50			ldx			#50										;"50" -> %reduction
							lda			#0										;"0"  -> wDev bit
*
SetReductionSet				ora			[ParamLongA],y							;store wDev bit...
							sta			[ParamLongA],y							;"wDev" offset in Y
							ldy			#oprStl+oreduction						;store %reduction...
							txa
							sta			[ParamLongA],y
							brl			CalcAndFinishPRH

*SETPAGEGAP: Sets page gap (formfeed at end-of-page or run across perforation) setting:
							export		SetPageGap
SetPageGap					jsr			StartPRH
							ldy			#oprStl+owDev
							lda			[ParamLongA],y
							ldx			OptionA
							bne			@ClearIt								;reverse sense!
							ora			#wDevGap
							bra			@StoreIt
@ClearIt					and			#ÅwDevGap
@StoreIt					sta			[ParamLongA],y
							brl			CalcAndFinishPRH

*SETORIENTATION: Sets portrait or landscape setting:
							export		SetOrientation
SetOrientation				jsr			StartPRH
							ldy			#oprStl+owDev
							lda			[ParamLongA],y
							ldx			OptionA
							bne			@ClearIt								;reverse sense!
							ora			#wDevOrientation
							bra			@StoreIt
@ClearIt					and			#ÅwDevOrientation
@StoreIt					sta			[ParamLongA],y
							brl			CalcAndFinishPRH

*SETQUALITY: Sets print loop method and imaging size determinant:
							export		SetQuality
SetQuality					jsr			StartPRH
							lda			OptionA				;(0=draft,1=faster,2=std,3=better)
							ldy			#owQuality			;put code in new quality word...
							sta			[ParamLongA],y
							ldy			#oprStl+owDev		;now ensure wDev Better bit set right...
							lda			[ParamLongA],y
							and			#ÅwDevBetterText
							sta			[ParamLongA],y
							ldx			OptionA
							cpx			#3
							bne			SeQuSetBJD
							lda			[ParamLongA],y
							ora			#wDevBetterText
							sta			[ParamLongA],y
SeQuSetBJD					lda			#$80				;now ensure bJDocLoop set right...
							ldx			OptionA
							bne			SeQuStoreBJD
							lda			#$00
SeQuStoreBJD				ldy			#oprJob+obJDocLoop
							shortm
							sta			[ParamLongA],y
							longm
							jsr			CalcAndFinishPRH
							lda			OptionA				;if 0(draft), force modes...
							bne			SeQuExit
							jsr			SetReduction		;100%		;(OptionA is zero)
							jsr			SetPageGap			;dfl vgap	;draft mode can deal with
							jsr			SetOrientation		;portrait
SeQuExit					rts

*SETCOLOR: Sets color printing or grayscale conversion method:
							export		SetColor
SetColor					jsr			StartPRH
							ldy			#oprStl+owDev
							lda			[ParamLongA],y
							ldx			OptionA
							beq			@ClearIt
							ora			#wDevColor
							bra			@StoreIt
@ClearIt					and			#ÅwDevColor
@StoreIt					sta			[ParamLongA],y
							brl			CalcAndFinishPRH

*SETFEED: Sets manual page feed interrupt dialog enable flag:
							export		SetFeed
SetFeed						jsr			StartPRH
							ldy			#oprStl+ofeed
							lda			OptionA
							sta			[ParamLongA],y
							brl			CalcAndFinishPRH

*SETPAGERANGE: Sets range of pages to be processed (others are ignored and not recorded):							
							export		SetPageRange				;OptionA/B = first/last 1..x
SetPageRange				jsr			StartPRH
							ldy			#oprJob+oiFstPage
							lda			OptionA
							sta			[ParamLongA],y
							ldy			#oprJob+oiLstPage
							lda			OptionB
							sta			[ParamLongA],y
							brl			CalcAndFinishPRH

*SETCOPIES: Sets number of copies to produce for each page:							
							export		SetCopies					;OptionA = # copies 1..x
SetCopies					jsr			StartPRH
							ldy			#oprJob+oiCopies
							lda			OptionA
							sta			[ParamLongA],y
							brl			CalcAndFinishPRH
							
CalcAndFinishPRH			jsr			CalcMetrics					;Common exit sequence
							brl			FinishPRH
							
	
							
*
*INFORMATION INQUIRY ROUTINES: These routines return (possibly processed) info about pr rec items:
*NOTE: These routines return data in EITHER accumulator OR zero flag status OR X/Y registers.
*NOTE: These routines return 0 for the common default settings; may be inverse of wDev.
*

*GETOKOURDRIVER: Sets zero flag (BEQ test) if DeviceID AND VersionID came from our driver:
							export		GetOkOurDriver
GetOkOurDriver				jsr			StartPRH					;get and lock handle
							ldy			#oprInfo+oiDev				;DeviceID offset
							lda			[ParamLongA],y				;get it
							cmp			#DeviceID					;zero flag set/clr if yes/no ours
							bne			InqExitZFlag				;nope, was different printer
							ldy			#oprVersion					;VersionID offset
							lda			[ParamLongA],y				;get it
							cmp			#VersionID					;zero flag set/clr if yes/no ours
InqExitZFlag				php										;zero flag set on exit
							jsr			FinishPRH					;unlock handle
							plp										;zero flag valid again
							rts										;exit
							
*GETPAPER: Returns the paper type in the accumulator:
							export		GetPaper
GetPaper					jsr			StartPRH
							ldy			#oprStl+opaperType
							lda			[ParamLongA],y
InqExitACC					pha
							jsr			FinishPRH
							pla
							rts
							
*GETVSIZE: Gets vertical sizing (normal or condensed) in the zero flag (BEQ if normal size):
							export		GetVSize
GetVSize					jsr			StartPRH
							ldy			#oprStl+owDev
							lda			[ParamLongA],y
							and			#wDevVSize
							eor			#wDevVSize					;reverse sense of wDev bit!
							brl			InqExitZFlag
							
*GETREDUCTION: Gets reduction value (100/50 => 0/1) in ACC from prrec-compatible encoding:
							export		GetReduction				;stored backwards for
GetReduction				jsr			StartPRH					;compatibility: stored as
							ldy			#oprStl+owDev				;"100/50 => 1/0"
							lda			[ParamLongA],y				;access wDev...
							and			#wDevReduction
							bne			GetReductionIts100
GetReductionIts50			lda			#1							;50% => return "1"
							bra			InqExitACC
GetReductionIts100			lda			#0							;100% => return "0"
							bra			InqExitACC
							
*GETPAGEGAP: Gets page gap yes/no in the zero flag (BEQ if normal page gap, BNE if no gap):
							export		GetPageGap
GetPageGap					jsr			StartPRH
							ldy			#oprStl+owDev
							lda			[ParamLongA],y
							and			#wDevGap
							eor			#wDevGap					;reverse sense of wDev bit!
							brl			InqExitZFlag
							
*GETORIENTATION: Returns 1 in ACC if landscape, 0 if normal portrait:
							export		GetOrientation
GetOrientation				jsr			StartPRH
							ldy			#oprStl+owDev
							lda			[ParamLongA],y
							and			#wDevOrientation
							eor			#wDevOrientation			;reverse sense of wDev bit!
							beq			GetOrientation1
							lda			#1
GetOrientation1				brl			InqExitACC

*GETQUALITY: Gets quality mode in ACC (0=draft(diff meth), 1=faster, 2=std, 3=better(hires)):
							export		GetQuality
GetQuality					jsr			StartPRH					;lock and dereference
*
							ldy			#oprStl+owDev				;if wDev.Better=0 AND
							lda			[ParamLongA],y				;our wQuality=3 -> force to 2...
							and			#wDevBetterText
							bne			GeQuForceTo3				;(if wDev.Better=1 -> force to 3)
							ldy			#owQuality
							lda			[ParamLongA],y
							cmp			#3
							bne			GeQuDoneNDQual
GeQuForceTo2				lda			#2							;plA still points to wQuality
							sta			[ParamLongA],y
							bra			GeQuDoneNDQual
GeQuForceTo3				lda			#3
							ldy			#owQuality
							sta			[ParamLongA],y				
GeQuDoneNDQual
*
							ldy			#oprJob+objDocLoop			;if bjDocLoop=0 -> force to 0
							lda			[ParamLongA],y
							and			#$FF
							cmp			#0
							bne			GeQuDoneDQual
GeQuForceTo0				lda			#0
							ldy			#owQuality
							sta			[ParamLongA],y
GeQuDoneDQual
*
							ldy			#owQuality					;now get info from new place
							lda			[ParamLongA],y
							brl			InqExitACC					;unlock and exit with ACC set
							
*GETCOLOR: Gets color option in zero flag (BEQ if default no, we don't want color):
							export		GetColor
GetColor					jsr			StartPRH
							ldy			#oprStl+owDev
							lda			[ParamLongA],y
							and			#wDevColor
							brl			InqExitZFlag
							
*GETFEED: Gets manual page feed option in zero flag (BEQ if manual page feed):
							export		GetFeed
GetFeed						jsr			StartPRH
							ldy			#oprStl+oFeed
							lda			[ParamLongA],y
							brl			InqExitZFlag
							
*GETPAGERANGE: Gets page range (First Page -> X; Last Page -> Y):
							export		GetPageRange
GetPageRange				jsr			StartPRH
							ldy			#oprJob+oiFstPage
							lda			[ParamLongA],y
							pha
							ldy			#oprJob+oiLstPage
							lda			[ParamLongA],y
							pha
							jsr			FinishPRH
							ply
							plx
							rts

*GETCOPIES: Gets number of copies to be printed in accumulator:
							export		GetCopies
GetCopies					jsr			StartPRH
							ldy			#oprJob+oiCopies
							lda			[ParamLongA],y
							brl			InqExitACC
														
*GETSPOOLFILENAMEPTR: Gets optional user-select spool filename ptr (lo->X, hi->Y, carry if not NIL):
							export		GetSpoolFileNamePtr
GetSpoolFileNamePtr			jsr			StartPRH
							ldy			#oprJob+opFileName
InqExitWithXYPtrData		lda			[ParamLongA],y
							pha
							iny
							iny
							lda			[ParamLongA],y
							pha
							jsr			FinishPRH
							ply
							plx
							stx			ParamLongA
							tya
							ora			ParamLongA
							cmp			#1							;set carry if not NIL pointer
							rts

*GETSPOOLMEMINC: Gets optional user-selectable mem inc value for spooling (lo->X, hi->Y, carry):
							export		GetSpoolMemInc
GetSpoolMemInc				jsr			StartPRH
							ldy			#opFileBlockSize
							bra			InqExitWithXYPtrData

*GETSPOOLMEMLEFTLIMIT: Gets optional user-selectable to-disk spool threshold (lo->X, hi->Y, carry):
							export		GetSpoolMemLeftLimit
GetSpoolMemLeftLimit		jsr			StartPRH
							ldy			#opFileMemLimit
							bra			InqExitWithXYPtrData
							
*GETIMAGERCTABLE: Gets optional user-select color table pointer for imaging (lo->X, hi->Y, carry):
							export		GetImagerCTable
GetImagerCTable				jsr			StartPRH
							ldy			#opCTable
							bra			InqExitWithXYPtrData

*GETIMAGERSCBLIST: Gets optional user-select SCB list pointer for imaging (lo->X, hi->Y, carry):
							export		GetImagerSCBList
GetImagerSCBList			jsr			StartPRH
							ldy			#opSCBList
							bra			InqExitWithXYPtrData
							
*GETIDLEPROC: Gets optional user-select IdleProc called during imaging (lo->X, hi->Y, carry):
							export		GetIdleProc
GetIdleProc					jsr			StartPRH
							ldy			#oprJob+opIdleProc
							bra			InqExitWithXYPtrData
							
*GETRPAGESIZE: Gets bottom right coordinates of last calculated rPage field in pixels (->X,Y):
							export		GetRPageSize
GetRPageSize				jsr			StartPRH
							ldy			#oprInfo+orPage+oh2
							lda			[ParamLongA],y
							pha
							ldy			#oprInfo+orPage+ov2
							lda			[ParamLongA],y
							pha
							jsr			FinishPRH
							ply
							plx
							rts

*GETIMAGINGSIZE: Gets bottom right coordinates of how big the offscrn pix buff should be (->X,Y):
							export		GetImagingSize
GetImagingSize				jsr			StartPRH					;lock print rec struct & deref
							ldy			#oprInfo+orPage+oh2			;copy values first...
							lda			[ParamLongA],y
							sta			GeImSzX
							ldy			#oprInfo+orPage+ov2
							lda			[ParamLongA],y
							sta			GeImSzY
							lda			GeImSzX						;and then convert them...
							jsr			ConvertRPageToImgSize
							sta			GeImSzX
							lda			GeImSzY
							jsr			ConvertRPageToImgSize
							sta			GeImSzY
GeImSzDone					jsr			FinishPRH					;release print record
							ldx			GeImSzX						;get results
							ldy			GeImSzY
							rts
GeImSzX						dc.w		0
GeImSzY						dc.w		0

*GETCRWIDTH: Gets our own internal calc abs right margin, always in max res printer pixels (->ACC):
							export		GetCrWidth
GetCrWidth					jsr			StartPRH
							ldy			#owPaperCrWidth
							lda			[ParamLongA],y
							brl			InqExitACC
							
*GETPAPERLENGTH: Gets vertical size of paper in draft-text-mode (72 vert dpi) pixels (->ACC):
							export		GetPaperLength
GetPaperLength				jsr			StartPRH
							ldy			#oprStl+opaperType			;generate index for curr paper
							lda			[ParamLongA],y
							asl a
							asl a
							clc
							adc			[ParamLongA],y
							clc
							adc			[ParamLongA],y
							tax
							lda			CalcMetricsPtTbl+2,x		;get paper type's vert size
							ldx			#72							;do *72 and then /16
							jsr			CalcMetricsConvert
							brl			InqExitACC
							
*GETVGAPSIZE: Gets vertical gap size in draft-text-mode (72 vert dpi) pixels (->ACC):
							export		GetVGapSize
GetVGapSize					jsr			StartPRH
							ldy			#oprStl+opaperType			;doing (-1*(-GAP)*72)/16...
							lda			[ParamLongA],y				;generate index for curr paper
							asl a
							asl a
							clc
							adc			[ParamLongA],y
							clc
							adc			[ParamLongA],y
							tax
							lda			#0							;got index, now do 0 - (-GAP)
							sec
							sbc			CalcMetricsPtTbl+4,x		;got GAP...
							tax
							ldy			#oprStl+owDev				;...but zero if "no gaps" is on
							lda			[ParamLongA],y
							and			#wDevGap					;prrec setting is reverse sense
							bne			GetVGapSize1
							ldx			#0
GetVGapSize1				txa
							ldx			#72							;do *72 and then /16
							jsr			CalcMetricsConvert
							brl			InqExitACC
							
*GETMODEBYTE: Gets 320/640 mode byte at the time of print record formation (->ACC):
							export		GetModeByte
GetModeByte					jsr			StartPRH
							ldy			#oprStl+ointernA
							lda			[ParamLongA],y
							brl			InqExitACC
							
*GETSTATMESGDISABLE: Gets if status message box is enabled/disabled, 0/1 respectively, in A:
							export		GetStatMesgDisable
GetStatMesgDisable			jsr			StartPRH
							ldy			#oprStl+owDev
							lda			[ParamLongA],y
							and			#wDevNoStatusBox
							beq			GeMdDone
							lda			#1
GeMdDone					brl			InqExitACC
							
*GETCONVERTQUALBITS: Converts print record information into QualityBits for imaging routine (->ACC):
							export		GetConvertQualBits
GetConvertQualBits			lda			#0							;start all bits clr for ORA's
							pha
*
GetConvertQualBits0			jsr			GetQuality					;check for Better mode
							cmp			#3
							beq			GetConvertQualBitsItsBett
							cmp			#1							;check for Faster mode
							bne			GetConvertQualBits1
GetConvertQualBitsItsFast	pla
							;			  5432109876543210
							ora			#%0110000000000000			;set img_qbit 13: 1=bi/Åbold
							pha										;set img_qbit 14: 1=low res patt
							bra			GetConvertQualBits1
GetConvertQualBitsItsBett	pla
							;			  5432109876543210
							ora			#%0000000000000001			;set imager_qbit 0: 1=Better
							pha
*
GetConvertQualBits1			jsr			GetOrientation				;check orientation mode
							cmp			#1
							bne			GetConvertQualBits2
							pla
							;			  5432109876543210
							ora			#%0000000000000010			;set imager_qbit 1: 1=Landscape
							pha
*
GetConvertQualBits2			jsr			GetVSize					;check Vertical Condense mode
							beq			GetConvertQualBits3
							pla
							;			  5432109876543210
							ora			#%0000000000000100			;set imager_qbit 2: 1=VCondense
							pha
*
GetConvertQualBits3			jsr			GetReduction				;check Reduction value 0/1
							cmp			#1
							bne			GetConvertQualBits4
							pla
							;			  5432109876543210
							ora			#%0000000000001000			;set imager_qbit 3: 1=50% Reduct
							pha
*
GetConvertQualBits4			jsr			GetPageGap					;check Gap setting
							beq			GetConvertQualBits5
							pla
							;			  5432109876543210
							ora			#%0000000010000000			;set imager_qbit 7: 1=No gap
							pha
*
GetConvertQualBits5			jsr			GetColor					;check Color setting
							beq			GetConverQualBitsDone
							pla
							;			  5432109876543210
							ora			#%1000000000000000			;set imager_qbit 15: 1=Color
							pha
*
GetConverQualBitsDone		pla
							brl			InqExitACC					;exit with QualityBits in ACC





*
*METRICS UNITS CONVERSION ROUTINES: These routines convert between application-level ("rPage")
*and imaging-level ("Imaging") (which are possibly double-size) coordinate units.  These routines
*do not assume any environment, such as a valid "printRecordHandle", or D/B environment, so they
*can be called anywhere.  These routines should be the exclusive converters betwen these units.
*



*CONVERTRPAGETOIMGSIZE: rPage -> Img [pict.source (small) -> pict.dest (big)] (input/output in ACC):
							export		ConvertRPageToImgSize
ConvertRPageToImgSize		phb										;save/setup B...
							phk
							plb
							sta			CoRpCoordValue				;save input given in A
							phd										;save/setup D...
							pha
							pha
							tsc
							ina
							tcd
*
							lda			MostRecentPRH+0				;deref pr rec handle...
							sta			<0
							lda			MostRecentPRH+2
							sta			<2
							lda			[0]
							tax
							ldy			#2
							lda			[0],y
							sta			<2
							stx			<0
							ldy			#oprStl+owDev				;get wDev data...
							lda			[0],y
*
							tax										;do nothing if Better not set
							and			#wDevBetterText
							beq			CoRpDidAdjRed
							txa
*
							and			#wDevReduction
							beq			CoRpDidAdjRed				;cmp for "0" => 50%, else 100%
CoRpIts100					asl			CoRpCoordValue				;100%: double
CoRpDidAdjRed														;50%: leave alone
*							
							pla										;restore D...
							pla
							pld
							lda			CoRpCoordValue				;get result in A
							plb										;restore B
							rts										;exit with A set
*
CoRpCoordValue				dc.w		0							;storage for input/output param
							




*CONVERTIMGTORPAGESIZE: Img -> rPage [pict.dest (big) -> pict.source (small)] (input/output in ACC):
							export		ConvertImgToRPageSize
ConvertImgToRPageSize		phb										;save/setup B...
							phk
							plb
							sta			CoImCoordValue				;save input given in A
							phd										;save/setup D...
							pha
							pha
							tsc
							ina
							tcd
*
							lda			MostRecentPRH+0				;deref pr rec handle...
							sta			<0
							lda			MostRecentPRH+2
							sta			<2
							lda			[0]
							tax
							ldy			#2
							lda			[0],y
							sta			<2
							stx			<0
							ldy			#oprStl+owDev				;get wDev data...
							lda			[0],y
*
							tax										;do nothing if Better not set
							and			#wDevBetterText
							beq			CoImDidAdjRed
							txa
*
							and			#wDevReduction
							beq			CoImDidAdjRed				;cmp for "0" => 50%, else 100%
CoImIts100					lsr			CoImCoordValue				;100%: halve (undo double)
CoImDidAdjRed														;50%: leave alone
*
							pla										;restore D...
							pla
							pld
							lda			CoImCoordValue				;get result in A
							plb										;restore B
							rts										;exit with A set
*
CoImCoordValue				dc.w		0							;storage for input/output param







*
*CALCMETRICS: This routine sets iH/Vres, crWidth, rPage and rPaper in print record based
*on the option bit and page type settings in the print record.
*
*NOTE: This is the only routine other than the Get/Set routines which may access the print record
*directly, and thus is subject to backward print record flag compatibility issues.
*
							export		CalcMetrics
CalcMetrics					jsr			StartPRH					;lock and dereference
*Save wDev field for repeated use:
							ldy			#oprStl+owDev				;get & save wDev for use...
							lda			[ParamLongA],y
							pha
*Start with max possible port/land resolutions; equates assume Better/V.Condensed/100%/640:
							ldx			#maxResPortraitX			;assume portrait orientation
							stx			CaMeRawAcrossResolution		;P: for crWidth calc later
							ldy			#maxResPortraitY/2			;P: default not V.Condensed
							and			#wDevOrientation			;wDev still in acc
							bne			CalcMetricsGotRawRes
							ldx			#maxResLandscapeX			;no, it's landscape
							ldy			#maxResLandscapeY			;L: for crWidth calc later
							sty			CaMeRawAcrossResolution
							ldy			#maxResLandscapeY/2			;L: default not V.Condensed
CalcMetricsGotRawRes		stx			ParamWordA					;pwA & pwB will build iH/VRes
							sty			ParamWordB
*1 | 2 times X & Y resolutions if 100% | 50% life size (increases printable area):
							pla										;get wDev...
							pha
							and			#wDevReduction
							bne			CalcMetricsDidAdjRed		;cmp for "1" => 100%, else 50%
CalcMetricsIts50			asl			ParamWordA					;50%: double...
							asl			ParamWordB
CalcMetricsDidAdjRed
*2 times Y resolution if Vertical Condense mode is on (increases printable area):
							pla										;get wDev...
							pha
							and			#wDevVSize
							bne			CalcMetricsNotCondensed
							asl			ParamWordB					;double Y resolution if VC
CalcMetricsNotCondensed
*1/2 X res if 320 mode.  Also, store mode bit in "internA" for future band buff alloc calc:
							pha
							_GetMasterSCB
							pla
							and			#$80
							ldy			#oprStl+ointernA
							sta			[ParamLongA],y				;320/640 mode -> oprStl.internA
							cmp			#$80
							beq			CalcMetricsNot320			;branch if 640 mode active
							lsr			ParamWordA					;half X resolution if 320 mode
CalcMetricsNot320
*1/2 of X & Y resolution always; pixel addressability is always as if not in Better mode:
							lsr			ParamWordA					;divide X by 2
							lsr			ParamWordB					;divide Y by 2
*We now have effective iHres and iVres that will be produced by imager in printer-pixels per inch:
							ldy			#oprInfo+oiHres
							lda			ParamWordA
							sta			[ParamLongA],y
							ldy			#oprInfo+oiVres
							lda			ParamWordB
							sta			[ParamLongA],y
*Now that we have iH&Vres, we will calculate rPage&rPaper&crWidth in inch*16 based on paper type:
*Get dimensions of current paper type:
							ldy			#oprStl+opaperType
							lda			[ParamLongA],y				;get paper type ID
							cmp			#maxPaperTypeID+1			;make sure it's in range
							bcc			CalcMetricsPtOk
							lda			#0							;else assume type 0
							sta			[ParamLongA],y
CalcMetricsPtOk				asl	a									;paper type * 6
							asl a
							clc
							adc			[ParamLongA],y
							clc
							adc			[ParamLongA],y
							tax										;index into paper dimension table
							lda			CalcMetricsPtTbl+0,x		;get X dimension in 1/16th inches
							sta			CaMeRawPaperWidth			;save paper real estate dimension
							sta			ParamWordC					;paper X size in ParamWordC
							lda			CalcMetricsPtTbl+2,x		;get Y dimension
							sta			ParamWordD					;paper Y size in ParamWordD
							lda			CalcMetricsPtTbl+4,x		;get -GAP value
							sta			ParamWordE					;paper -GAP size in ParamWordE
*If Gap option is turned off, zero our looked-up page -1*GAP value (GAP increases printable area):
							pla										;get wDev...
							pha
							and			#wDevGap
							bne			CalcMetricsYesGap			;branch if we DO have vert gap
							stz			ParamWordE					;else, no gap: zero gap value
CalcMetricsYesGap
*Calc internal and external versions of crWidth abs right margin, used for landscp right limit, etc:
							ldx			CaMeRawAcrossResolution		;get physical resolution
							lda			CaMeRawPaperWidth			;get amount of paper under head
							sec
							sbc			#(2*printLineMargin)		;...minus left&right margins
							jsr			CalcMetricsConvert			;do (acc*x)/16
							ldy			#owPaperCrWidth				;now store it in print record...
							sta			[ParamLongA],y
							lda			#prRecCrWidth				;also store the constant crWidth
							ldy			#oprStl+ocrWidth			;value which apps have come to
							sta			[ParamLongA],y				;expect in the print record...
*rPaper.X1 = 0 - printLineMargin (black mark on bail) (rPage.X1.Y1=0,0 is origin) (assuming Portrt):
							lda			#((ÅprintLineMargin)+1)		;-1*printLineMargin always
							ldy			#orPaper+oh1				;store it
							sta			[ParamLongA],y
*rPaper.X2 = rPaper.X1 + paper_size.X (rPage.X1.Y1=0,0 is origin) (assuming Portrait):
							clc										;X1 still in acc
							adc			ParamWordC					;add X size of paper type
							ldy			#orPaper+oh2				;store it
							sta			[ParamLongA],y
*rPaper.Y1 = 0 - GAP (rPage.X1.Y1=0,0 is origin) (assuming Portrait):
							lda			ParamWordE					;get -1*GAP for current paper
							ldy			#orPaper+ov1				;store it
							sta			[ParamLongA],y
*rPaper.Y2 = rPaper.Y1 + paper_size.Y (rPage.X1.Y1=0,0 is origin) (assuming Portrait):
							clc										;Y1 still in acc
							adc			ParamWordD					;add Y size of paper type
							ldy			#orPaper+ov2				;store it
							sta			[ParamLongA],y
*rPage.X1 and rPage.Y1 are both zero and are the origin for all other rPage/rPaper coordinates:
							lda			#0
							ldy			#oprInfo+orPage+oh1
							sta			[ParamLongA],y
							ldy			#oprInfo+orPage+ov1
							sta			[ParamLongA],y
*rPage.X2 = paper_size.X - 2*printLineMargin (black mark on bail) (assuming Portrait):
							lda			ParamWordC					;get X size of paper type
							sec										;subtract for left&right border
							sbc			#2*printLineMargin
							ldy			#oprInfo+orPage+oh2			;store it
							sta			[ParamLongA],y
*rPage.Y2 = paper_size.Y - 2*GAP value (assuming Portrait):
							lda			ParamWordE					;get gap value (-1*GAP or 0)
							clc
							adc			ParamWordE					;now it's -2*GAP
							clc										;add Y size of paper type; now...
							adc			ParamWordD					;...we've done paperY-2*GAP
							ldy			#oprInfo+orPage+ov2			;store it
							sta			[ParamLongA],y
*If Landscape orientation, rotate&mirror by exchanging rPage&rPaper X and Y coordinates:
							pla										;get wDev...
							pha
							and			#wDevOrientation			;if portrait, leave coords alone
							bne			CalcMetricsNoFlip			;else flip them:
*
							ldy			#orPaper+ov1				;rPaper.X1 <-> Y1...
							lda			[ParamLongA],y
							tax
							ldy			#orPaper+oh1
							lda			[ParamLongA],y
							ldy			#orPaper+ov1
							sta			[ParamLongA],y
							txa
							ldy			#orPaper+oh1
							sta			[ParamLongA],y
*
							ldy			#orPaper+ov2				;rPaper.X2 <-> Y2...
							lda			[ParamLongA],y
							tax
							ldy			#orPaper+oh2
							lda			[ParamLongA],y
							ldy			#orPaper+ov2
							sta			[ParamLongA],y
							txa
							ldy			#orPaper+oh2
							sta			[ParamLongA],y
*
							ldy			#oprInfo+orPage+ov2			;rPage.X2 <-> Y2...
							lda			[ParamLongA],y
							tax
							ldy			#oprInfo+orPage+oh2
							lda			[ParamLongA],y
							ldy			#oprInfo+orPage+ov2
							sta			[ParamLongA],y
							txa
							ldy			#oprInfo+orPage+oh2
							sta			[ParamLongA],y
CalcMetricsNoFlip
*Right now, rPage/rPaper are in values of inch*16. Now convert all of these to the printing pixels
*that the application sees by signed multiply by iHres/iVres and signed divide by 16:
							ldy			#orPaper+oh1				;get value just computed above...
							lda			[ParamLongA],y				;in a-reg. This is negative!
							eor			#$FFFF						;negate it...
							clc										;...so the unsigned convert...
							adc			#1							;...will work correctly
							ldx			ParamWordA					;get resolution A)iHres B)iVres
							jsr			CalcMetricsConvert			;convert rPaper X1
							eor			#$FFFF						;negate it...
							clc										;...again...
							adc			#1							;...back to negative
							ldy			#orPaper+oh1				;store value just converted...
							sta			[ParamLongA],y				;back into print record
*							
							ldy			#orPaper+ov1
							lda			[ParamLongA],y
							eor			#$FFFF						;negate -> positive
							clc
							adc			#1
							ldx			ParamWordB
							jsr			CalcMetricsConvert			;convert rPaper Y1
							eor			#$FFFF						;negate -> negative
							clc
							adc			#1
							ldy			#orPaper+ov1
							sta			[ParamLongA],y
*							
							ldy			#orPaper+oh2				;all others are all positive...
							lda			[ParamLongA],y
							ldx			ParamWordA
							jsr			CalcMetricsConvert			;convert rPaper X2
							ldy			#orPaper+oh2
							sta			[ParamLongA],y
*							
							ldy			#orPaper+ov2
							lda			[ParamLongA],y
							ldx			ParamWordB
							jsr			CalcMetricsConvert			;convert rPaper Y2
							ldy			#orPaper+ov2
							sta			[ParamLongA],y
*							
							ldy			#oprInfo+orPage+oh2
							lda			[ParamLongA],y
							ldx			ParamWordA
							jsr			CalcMetricsConvert			;convert rPage X2
							ldy			#oprInfo+orPage+oh2
							sta			[ParamLongA],y
*							
							ldy			#oprInfo+orPage+ov2
							lda			[ParamLongA],y
							ldx			ParamWordB
							jsr			CalcMetricsConvert			;convert rPage Y2
							ldy			#oprInfo+orPage+ov2
							sta			[ParamLongA],y
*Copy the PrInfo subrecord to PrInfoPT for compatibility reasons:
							ldy			#oprInfo+12					;source: prInfo offset
							ldx			#oprInfoPT+12				;destination: prInfoPT offset
CaMeCopyPrInfoLp			lda			[ParamLongA],y				;length: 14 bytes
							phy
							txy
							sta			[ParamLongA],y
							ply
							dex
							dex
							dey
							dey
							cpy			#oprInfo
							bcs			CaMeCopyPrInfoLp
*Exit:
							pla										;get rid of wDev on stack
							brl			FinishPRH					;return via lock routine
*Static variables:
CaMeRawAcrossResolution		dc.w		0							;for crWidth calculation
CaMeRawPaperWidth			dc.w		0							;for crWidth calculation





*
*The following routine does AREG := (AREG*XREG)/16 with unsigned arithmetic:
*
CalcMetricsConvert			pha										;Space for multiply result...
							pha										;...longspace
							pha										;A REG: value to be converted
							phx										;X REG: resolution iHres/iVres
							_Multiply
							pulllong	ParamLongB
							lsr			ParamLongB+2				;divide by 2 hi word
							ror			ParamLongB					;divide by 2 lo word	=/2
							lsr			ParamLongB+2				;divide by 2 hi word
							ror			ParamLongB					;divide by 2 lo word	=/4
							lsr			ParamLongB+2				;divide by 2 hi word
							ror			ParamLongB					;divide by 2 lo word	=/8
							lsr			ParamLongB+2				;divide by 2 hi word
							ror			ParamLongB					;divide by 2 lo word	=/16
							lda			ParamLongB					;get lo word only
							rts										;we're done




							
*
*Lookup table containing physical dimensions (in inch * 16) of different types of paper:
*
CalcMetricsPtTbl			dc.w		paperSizeUsaLetterX			;indexed if paper type == 0
							dc.w		paperSizeUsaLetterY			;type 0 must be US Letter
							dc.w		-1*paperSizeUsaLetterGap

							dc.w		paperSizeUsaLegalX			;indexed if paper type == 1
							dc.w		paperSizeUsaLegalY			;type 1 must be US Legal
							dc.w		-1*paperSizeUsaLegalGap
							
							dc.w		paperSizeEurA4X				;indexed if paper type == 2
							dc.w		paperSizeEurA4Y				;type 2 must be A4 Letter
							dc.w		-1*paperSizeEurA4Gap
							
							dc.w		paperSizeEurIntlFanfoldX	;indexed if paper type == 3
							dc.w		paperSizeEurIntlFanfoldY	;type 3 must be Intl Fanfold
							dc.w		-1*paperSizeEurIntlFanfoldGap

							dc.w		paperSizeEurB5X				;indexed if paper type == 4
							dc.w		paperSizeEurB5Y
							dc.w		-1*paperSizeEurB5Gap

							dc.w		paperSizeUsaStatementX		;indexed if paper type == 5
							dc.w		paperSizeUsaStatementY
							dc.w		-1*paperSizeUsaStatementGap
							
							dc.w		paperSizeEnvNo6X			;indexed if paper type == 6
							dc.w		paperSizeEnvNo6Y
							dc.w		-1*paperSizeEnvNo6Gap

							dc.w		paperSizeLblSmlX			;indexed if paper type == 7
							dc.w		paperSizeLblSmlY
							dc.w		-1*paperSizeLblSmlGap

							dc.w		paperSizeLblMedX			;indexed if paper type == 8
							dc.w		paperSizeLblMedY
							dc.w		-1*paperSizeLblMedGap

							dc.w		paperSizeLblLrgX			;indexed if paper type == 9
							dc.w		paperSizeLblLrgY
							dc.w		-1*paperSizeLblLrgGap
							
							dc.w		paperSizeLblPackingX		;indexed if paper type == 10
							dc.w		paperSizeLblPackingY
							dc.w		-1*paperSizeLblPackingGap
							
							dc.w		paperSizeLblDisk35X			;indexed if paper type == 11
							dc.w		paperSizeLblDisk35Y
							dc.w		-1*paperSizeLblDisk35Gap
							
							dc.w		paperSizeLblDisk525X		;indexed if paper type == 12
							dc.w		paperSizeLblDisk525Y
							dc.w		-1*paperSizeLblDisk525Gap





							endproc
							end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/NEW.IW/printloop.aii b/IIGS.601.SRC/GSToolbox/PrinterDrivers/NEW.IW/printloop.aii
new file mode 100644
index 0000000..e3460ab
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/NEW.IW/printloop.aii
@@ -0,0 +1 @@
+
******************************************************************************************
*                                                                                        *
*		Apple IIgs New ImageWriter Printer Driver                                        *
*                                                                                        *
*		File: printloop.aii -- High-level interactive interface to spooling/imaging      *
*                                                                                        *
*		Written by Ben Koning                                                            *
*		Copyright (C) 1990 Apple Computer, Inc.                                          *
*                                                                                        *
******************************************************************************************






							include		'equates.aii'
							
							
							include		'm16.util'
							include		'e16.quickdraw'
							include		'm16.quickdraw'
							include		'm16.qdaux'
							include		'm16.memory'
							include		'e16.print'
							include		'm16.intmath'
							include		'm16.misctool'
							include		'm16.event'


PrintLoopProc				proc		export





*
*PRINT LOOP CALLS: High-Level Spool and Draft Mode printing calls implementing the Macintosh
*Printing Manager print model, for better and (mainly) for worse.
*





*
*OPENDOC: Setup vars, init grafport with bottleprocs and boundsrect, start spooling, show status box:
*
							export		OpenDoc
OpenDoc

*Clear error status; clear setup level until everything has been started up correctly:
							stz			PrintLoopErrorStatus	;err stat for our use and user's
							stz			PrintLoopSetupLevel		;so we know *what* is started up

*Abort if no output port is currently possible:
							pha									;Abort if no port. Result space...
							ldx			#$3013					;ask currently installed port driver
							jsl			$E10000					;_DevIsItSafe
							pla
							bne			OpDoOkDevice			;true result: no error
							lda			#portNotOn				;else: return with tool error
							bra			OpDoExitErr
OpDoOkDevice

*Put up wait cursor and box for status message:
							import		GetStatMesgDisable		;get A=0/1 if enable/disable
							jsr			GetStatMesgDisable
							import		StartStatusMessage		;pass 0/1 to open mesg box routine
							jsr			StartStatusMessage
							import		StMeFirstProgressMesg	;put up first message to avoid
							lda			#StMeFirstProgressMesg	;empty box for a few seconds
							sta			ParamLongA+0
							lda			#^StMeFirstProgressMesg
							sta			ParamLongA+2
							import		StatusMessage
							jsr			StatusMessage

*Check if draft mode, and if so set flag so we'll know later:
							stz			PrintLoopIsDraft		;assume not draft mode
							import		GetQuality
							jsr			GetQuality				;find out print loop mode
							cmp			#0						;quality level returned in acc
							bne			OpDoInitSpool			;if not zero it's not draft mode
							lda			#1						;else, set flag indicating draft
							sta			PrintLoopIsDraft

*Also if draft mode, setup static var so we know if vert condense is in effect:
							stz			PrintLoopIsDraftVC
							import		GetVSize
							jsr			GetVSize
							beq			OpDoNotDraftVC
							lda			#1
							sta			PrintLoopIsDraftVC
OpDoNotDraftVC

*Also if draft mode, initialize printer and skip start_spooling part:
							jsr			PrinterOpen				;get unique connection to printer
							jsr			PrinterReset			;and get it ready for printing
							bra			OpDoDoPrGrafPort		;and skip next part

*Initialize for spooling here if not draft; abort if error:
							import		SpoolStartPut			;Allow app optional spool control:
OpDoInitSpool				jsr			SpoolStartPut			;get spooler ready with its defaults
							cmp			#0						;check for errors...
							beq			OpDoOkSpoolStart
OpDoExitErr					sta			errNo					;error exit; doesn't set out params
							sta			PrintLoopErrorStatus	;and set our own error status
							rts
OpDoOkSpoolStart			lda			#1						;indicate that we got this far...
							sta			PrintLoopSetupLevel		;...so CloseDoc can abort correctly
							import		GetSpoolFileNamePtr		;metrics call looks at print record
							jsr			GetSpoolFileNamePtr		;see if user wants their own filename
							bcc			OpDoNoCustFile			;lo->X, hi->Y, carry if not NIL ptr
							import		SpoolFileNamePtr		;user does want their own filename
							stx			SpoolFileNamePtr
							sty			SpoolFileNamePtr+2
							import		GetSpoolMemInc
OpDoNoCustFile				jsr			GetSpoolMemInc			;see if user wants own spool mem inc
							bcc			OpDoNoCustMemInc		;no
							import		SpoolMemInc				;yes, change data in spooling land
							stx			SpoolMemInc
							sty			SpoolMemInc+2
							import		GetSpoolMemLeftLimit
OpDoNoCustMemInc			jsr			GetSpoolMemLeftLimit	;see if user wants own mem left limit
							bcc			OpDoDoPrGrafPort		;no
							import		SpoolMemLeftLimit		;yes, change it
							stx			SpoolMemLeftLimit
							sty			SpoolMemLeftLimit+2

*Get memory for printing grafport data structure if needed:
OpDoDoPrGrafPort			jsr			OpDoMallocGrafPort
							bra			OpDoSetupGrafPort

*The following is a very specific "subroutine" which gets print grafport memory space:
OpDoMallocGrafPort			lda			printGrafPortPtr		;check to see if this is NIL...
							ora			printGrafPortPtr+2		;if so, then user wants us to malloc
							bne			OpDoMallocGrafPortDone	;non-NIL: use their memory
							lda			#OpDoGrafPortSpace		;NIL: use our memory...
							sta			printGrafPortPtr
							lda			#^OpDoGrafPortSpace
							sta			printGrafPortPtr+2
OpDoMallocGrafPortDone		rts									;exit to caller

*Save current caller's grafport for restore by closedoc:
OpDoSetupGrafPort			pha									;result space...
							pha
							_GetPort
							pulllong	PrintLoopOldGrafPortPtr	;save it

*Setup grafport for printing loop, making it current port.  OpenPage will customize it later:
							pushlong	printGrafPortPtr		;now setup user's or our grafport
							_OpenPort
							bcc			OpDoNoPortErr
							brl			OpDoExitErr				;if err exit with acc set
OpDoNoPortErr				_HidePen							;this port will never draw on screen
							lda			#2						;indicate that we got this far...
							sta			PrintLoopSetupLevel		;so CloseDoc can abort correctly
							
*Save value of the user's pr rec hdl so we can access print record during OpenPage/ClosePage:
							lda			printRecordHandle+0
							sta			PrintLoopPrRecHdl+0
							lda			printRecordHandle+2
							sta			PrintLoopPrRecHdl+2

*Clear actual page counters:
							stz			PrintLoopPageCounter	;reset logical page counter
							stz			PrintLoopNumActualPages	;reset actual pages stored/spooled
							rts									;exit without setting tool error

*Static memory for holding GrafPort data structure for interpreting user QD calls:
OpDoGrafPortSpace			ds.b		$AA






							
*
*CLOSEDOC: Remove status box, stop spooling, restore original grafport, dealloc if our grafport:
*
							export		CloseDoc

*If draft mode, close port connection to printer:
CloseDoc					lda			PrintLoopIsDraft
							beq			ClDoDontPrClose
							jsr			PrinterClose
ClDoDontPrClose

*Remove waitcursor/status box, no matter what happened:
							import		FinishStatusMessage		;StatusMessage routines are...
							jsr			FinishStatusMessage		;...un-init proof

*Now shut down only the things that were started up:
ClDoCheckSetupLevel			lda			PrintLoopSetupLevel		;let's see how far OpenDoc got...
							cmp			#1						;1: only spooling started up right
							beq			ClDoDumpSpool
							cmp			#2						;2: everything + grafport
							bne			ClDoExit				;if not 2, then 0: nothing started up

*Restore previous grafport:
							pushlong	PrintLoopOldGrafPortPtr	;restore pre-print loop grafport...
							_SetPort
							pushlong	printGrafPortPtr		;clean up stuff used by print port
							_ClosePort

*Stop the spooling process here if not draft, which could still generate an error:
ClDoDumpSpool				lda			PrintLoopIsDraft		;don't do here if draft
							bne			ClDoExit
							
							lda			PrintLoopErrorStatus	;nondraft: is error pending?
							beq			ClDoNoPrError
							
							import		SpoolFinishPut			;if error, complete the full sequence
							jsr			SpoolFinishPut			;of spooler calls to ensure proper
							import		SpoolStartGet			;memory/disk resource deallocation
							jsr			SpoolStartGet
							import		SpoolFinishGet
							jsr			SpoolFinishGet
							rts
ClDoNoPrError
							
							import		SpoolFinishPut			;nondraft+all ok: stop spooling
							jsr			SpoolFinishPut
							cmp			#1						;error?
							bcc			ClDoExit				;if no
							lda			#prAbort				;if yes, set err for PicFile later
							sta			PrintLoopErrorStatus
							
ClDoExit					rts







*
*OPENPAGE: If in pg range and no err, start pict recording (spool) or start spooling strings (draft):
*
							export		OpenPage

*Check to make sure no print error exists:
OpenPage					lda			PrintLoopErrorStatus
							beq			OpPaNoErrStat
OpPaExit1					rts
OpPaNoErrStat

*Set our pr rec handle to the value that was saved during OpenPage so we can use metrics calls:
							lda			PrintLoopPrRecHdl+0
							sta			printRecordHandle+0
							lda			PrintLoopPrRecHdl+2
							sta			printRecordHandle+2

*Increment abs pg count so we can compare it against user-selected pg range; first number is 1:
							inc			PrintLoopPageCounter

*Be sure that even out-of-range pages, where we don't do "OpenPicture", don't show on screen:
							pushlong	printGrafPortPtr		;fill defaults and set as current
							_InitPort
							lda			#0						;zero the boundsrect so nothing
							ldy			#oBoundsRect			;will ever be physically drawn
OpPaZeroBoundsRectLoop1		sta			[printGrafPortPtr],y
							iny
							iny
							cpy			#oBoundsRect+8
							bne			OpPaZeroBoundsRectLoop1

*Change the message in the informational status box, slightly different for spool or draft:
							lda			PrintLoopIsDraft
							beq			OpPaNoDraftMessage
							import		StMeDraftProgressMesg
							ldx			#StMeDraftProgressMesg
							ldy			#^StMeDraftProgressMesg
							bra			OpPaShowMessage
							import		StMeSpoolProgressMesg
OpPaNoDraftMessage			ldx			#StMeSpoolProgressMesg
							ldy			#^StMeSpoolProgressMesg
OpPaShowMessage				stx			ParamLongA+0
							sty			ParamLongA+2
							jsr			ShowStatusWithPgNo		;string will be modified

*Assume we're not in page range; this flag may be modified if we finish successfully:
							stz			PrintLoopInPageRange

*Check page range, no draft or spool if this page isn't to be printed, so exit if out of range:
							import		GetPageRange			;metrics call that assumes valid
							jsr			GetPageRange			;pr rec hdl, returns 1st->X, Lst->Y
							cpx			PrintLoopPageCounter	;cmp current page# with first page#
							bcc			OpPaInRange1st			;current page# >= first page#...
							bne			OpPaExit1				;abort if out of page range
OpPaInRange1st				cpy			PrintLoopPageCounter	;cmp current page# with last page#
							bcc			OpPaExit1				;if not current page# <= last page#

*We are in page range, so proceed.  Increment actual-number-of-pages count:
							inc			PrintLoopNumActualPages

*If draft mode, setup for "spooling" upcoming page text ascii:
							lda			PrintLoopIsDraft		;draft mode?
							beq			OpPaDoneDraftBWStuff	;no, skip this part
							import		SpoolStartPut
							jsr			SpoolStartPut			;start string recording process

*Fill in X2,Y2 in rectangle/data used several times in a few moments:
OpPaDoneDraftBWStuff		
							import		GetRPageSize			;metrics call assumes valid prrechdl
							jsr			GetRPageSize			;returns X2->X, Y2->Y
							stx			OpPaPicFrameX2			;store into our rect's X2,Y2...
							sty			OpPaPicFrameY2
							stz			OpPaPicFrameX1			;also store zero X1,Y1 in case it
							stz			OpPaPicFrameY1			;was modified last time

*But if user passed a non-NIL picture frame (scaling) rectangle, use it instead of ours:
							lda			pageFramePtr+0			;check user picture frame for NIL...
							ora			pageFramePtr+2
							beq			OpPaSetUpPort			;branch away if user passed NIL
							ldy			#0						;else copy their rect...
OpPaCpUsrPicFrame			lda			[pageFramePtr],y
							sta			OpPaPicFrame,y
							iny
							iny
							cpy			#8
							bne			OpPaCpUsrPicFrame

*Init grafport for picture recording, setting everything to defaults, and set as current port:
OpPaSetUpPort				pushlong	printGrafPortPtr		;reset and set as current port
							_InitPort
							lda			#0						;zero the bounds rect so that
							ldy			#oBoundsRect			;no physical drawing occurs
OpPaZeroBoundsRectLoop2		sta			[printGrafPortPtr],y
							iny
							iny
							cpy			#oBoundsRect+8
							bne			OpPaZeroBoundsRectLoop2

*Set all clipping settings to rPage rect or user's rect:
							pushlong	#OpPaPicFrame			;(1) set main grafport rect
							_SetPortRect
							pushlong	#OpPaPicFrame			;(2) set clip region
							_ClipRect
							pha									;(3) set vis region
							pha
							_GetVisHandle						;leave hdl on stack for SetRectRgn
							pushword OpPaPicFrame+oh1
							pushword OpPaPicFrame+ov1
							pushword OpPaPicFrame+oh2
							pushword OpPaPicFrame+ov2
							_SetRectRgn

*Prepare to install our own bottleprocs into grafport:
							pushlong	#OpPaQDProcs
							_SetStdProcs						;fill our QDProcs with defaults

*If spool mode, set put-picture bottleproc to our own so we can capture the picture definition:
							lda			PrintLoopIsDraft
							bne			OpPaSetDraftProc
							lda			#PutPic-1				;customize the PutPic bottleproc
							sta			OpPaQDProcs+ostdPutPic+0
							lda			#^(PutPic-1)
							sta			OpPaQDProcs+ostdPutPic+2
							bra			OpPaSetProcs

*Else, draft mode, so set bottleproc so that we can handle the QD draw-text command ourselves:
OpPaSetDraftProc			lda			#PutText-1				;customize the PutText bottleproc
							sta			OpPaQDProcs+ostdText+0
							lda			#^(PutText-1)
							sta			OpPaQDProcs+ostdText+2

*Install our bottleprocs into our grafport:
OpPaSetProcs				pushlong	#OpPaQDProcs
							_SetGrafProcs						;setup with our customized procs
							
*If draft mode, we are done at this point; don't begin a picture definition, and don't touch screen:
							lda			PrintLoopIsDraft
							beq			OpPaStartPictInfo
							_HidePen
							bra			OpPaExitAssertInPgRng
							
*If not draft, compensate for quirk were we must store first part of bottlepatched-pict explicitly:
OpPaStartPictInfo			pha									;result space
							_GetMasterSCB						;figure the mode only to...
							pullword	OpPaPicSetupStuff		;...store it into picture start stuff
							lda			#10						;length: ten bytes in all...
							sta			ParamLongB+0
							stz			ParamLongB+2
							lda			#OpPaPicSetupStuff		;source location: our 10 bytes...
							sta			ParamLongC+0
							lda			#^OpPaPicSetupStuff
							sta			ParamLongC+2
							import		SpoolPut				;go store the beginning bytes...
							jsr			SpoolPut				;...rest will be stored by our PutPic
							cmp			#1						;error?
							bcc			OpPaOpenPict			;no
							sta			errNo					;we'll return spool err as tool err
							lda			#prAbort				;also set abort error...
							sta			PrintLoopErrorStatus
							bra			OpPaExit				;abort this routine

*Tell QuickDraw to start making drawing commands go into picture definition and not to screen:
OpPaOpenPict				pha									;result space...
							pha
							pushlong	#OpPaPicFrame			;user's or our picframe
							_OpenPicture						;has effect of a "_HidePen"
							pulllong	PrintLoopUnusedPictHdl	;save this even though we do bprocs

*Tell ClosePage we're really doing a page:
OpPaExitAssertInPgRng		lda			#1
							sta			PrintLoopInPageRange	;we got this far we must be in range

*Done; app will do drawing commands now which will call bottleprocs:
OpPaExit					rts

*Start of picture stuff / Picture frame for passing to OpenPicture / Rectangle for ClipRect:
OpPaPicSetupStuff			dc.w		0						;SCB
OpPaPicFrame
OpPaPicFrameY1				dc.w		0						;Y1
OpPaPicFrameX1				dc.w		0						;X1
OpPaPicFrameY2				dc.w		0						;Y2
OpPaPicFrameX2				dc.w		0						;X2

*Area for patching in our bottleprocs:
OpPaQDProcs					ds.b		$38						;bottleneck proc pointers







*
*CLOSEPAGE: If in page range, put stop-pict mark (spool) or do multicopy text printing (draft):
*
							export		ClosePage

*Check conditions:
ClosePage					lda			PrintLoopErrorStatus	;if an error has occurred...
							bne			ClPaExit1				;don't do this routine

*Continue condition checking:
							lda			PrintLoopInPageRange	;if OpenPage didn't say yes...
							beq			ClPaExit1				;exit if not doing this page
							
*Set our pr rec handle to the value that was saved during OpenPage so we can use metrics calls:
							lda			PrintLoopPrRecHdl+0
							sta			printRecordHandle+0
							lda			PrintLoopPrRecHdl+2
							sta			printRecordHandle+2
							
*If draft mode, go to the code that print copy(s) of this current just-recorded entire page:
							lda			PrintLoopIsDraft
							bne			ClPaItsDraft

*If not draft, put mark in pict separating this pict (page) from next and close/dealloc pict mem:
							pushword	#EndOfPagePicCommentKind
							pushword	#4						;pass length
							pushlong	#ClPaEOPFakeHandle		;pass "handle" with comment data
							_PicComment							;place marker at end of picture
							_ClosePicture						;stop picture recording
							pha									;save (undocumented) error, if any
							pushlong	PrintLoopUnusedPictHdl	;dealloc QD's mem for pict recording
							_KillPicture						;we took care of recording ourselves
							pla									;restore error from ClosePicture
							beq			ClPaNoClosePictErr		;if error, return as tool-error
							sta			errNo
ClPaNoClosePictErr

*Common exit:
ClPaExit1					rts

*Else, new-style draft mode: print top to bottom (no reverse feed!); print multiple copies (new!):
ClPaItsDraft

*Save a few values from the current print record that we'll need repeatedly during upcoming loop:
							import		GetIdleProc				;metrics routines need valid prrech
							jsr			GetIdleProc
							stx			ClPaIdleProc+0
							sty			ClPaIdleProc+2
							import		GetCrWidth
							jsr			GetCrWidth
							sta			ClPaCrWidth
							import		GetCopies
							jsr			GetCopies
							sta			ClPaNumCopies
							
*Change the state of the spooler from recording to playback mode:
							import		SpoolFinishPut
							jsr			SpoolFinishPut			;stop strings recording process
							import		SpoolStartGet
							jsr			SpoolStartGet			;start strings playback process
							import		SpoolMarkGet
							jsr			SpoolMarkGet			;arrange to be able to repeat

**Loop for number of copies requested; count kept on stack:
							ldy			#0						;init, for 0..PrintLoopNumCopies-1
ClPaDraftOneMoreCopy		phy

**Do start-of-copy (start of paper) printer stuff and dialogs:
							lda			PrintLoopPageCounter	;get page # being draft-printed...
							sta			ParamWordA				;do manfeed dialog, etc...
							jsr			PrinterNewPage
							lda			PrintLoopErrorStatus	;arrange to abort if manfeed cancel
							beq			ClPaDraftNoManFeedCncl	;or some other reason for err stat
							brl			ClPaDraftNextCopy
ClPaDraftNoManFeedCncl
							import		StMeDraftProgressMesg
							lda			#StMeDraftProgressMesg	;restore current page message box
							sta			ParamLongA
							lda			#^StMeDraftProgressMesg
							sta			ParamLongA+2
							jsr			ShowStatusWithPgNo

***Doing one copy. First, find first print line, in preparation for down-the-page draft printing:
							import		SpoolReturnToMarkGet	;back to start of string list
							jsr			SpoolReturnToMarkGet
							lda			#$FFFF					;initialize for least-Y-coord search
							sta			ClPaCurrentY
ClPaDraftFirstYLoop			jsr			ClPaDraftGetSpoolPacket	;get text/position data for a string
							bcs			ClPaDraftPrintLoopBegin	;break out if looked at all strings
							lda			ClPaPacketHeaderPos+ov1	;look at a string's Y position
							cmp			ClPaCurrentY			;cmp against current-smallest Y
							bcs			ClPaDraftFirstYLoop		;if greater, ignore, get next string
							sta			ClPaCurrentY			;else store newly-found smallest Y
							bra			ClPaDraftFirstYLoop	

***Specialized routine to get string packet from spool and store in statics. Carry -> End-Of-Data:
ClPaDraftGetSpoolPacket		lda			#ClPaPacketHeaderEnd-ClPaPacketHeaderBegin
							sta			ParamLongB
							stz			ParamLongB+2
							lda			#ClPaPacketHeaderBegin	;will store in our data area
							sta			ParamLongC
							lda			#^ClPaPacketHeaderBegin
							sta			ParamLongC+2
							import		SpoolGet
							jsr			SpoolGet				;(1.1) read header from spool
							cmp			#1						;set carry if err or end data
							bcs			ClPaDraftEndData
							lda			PrintLoopIsDraftVC		;(1.2) *2 Y coord if not vert cond
							bne			ClPaDraftGetPackNotVC
							asl			ClPaPacketHeaderPos+ov1
ClPaDraftGetPackNotVC		lda			ClPaPacketHeaderLen		;(1.3) text len is given in header
							sta			ParamLongB
							stz			ParamLongB+2
							lda			#PrintLoopRoutineData	;will store in our data area
							sta			ParamLongC
							lda			#^PrintLoopRoutineData
							sta			ParamLongC+2
							import		SpoolGet
							jsr			SpoolGet				;(2) read text from spool
							cmp			#1						;set carry if err or end data
ClPaDraftEndData			rts

***End of specialized routine. Now have CurrentY @ first Y on page. Print down page in one pass:
ClPaDraftPrintLoopBegin		stz			ClPaLastVertPaperPos	;init our idea of paper position
ClPaDraftPrintLoop			stz			ClPaWePrinted			;set to false, used to detect end
							lda			#$FFFF					;init to BIG, for finding next...
							sta			ClPaNextCurrentY		;...line while printing strings
							import		SpoolReturnToMarkGet	;return to start of strings...
							jsr			SpoolReturnToMarkGet
ClPaDraftGetNextPacket		jsr			ClPaDraftGetSpoolPacket	;get a string candidate
							bcc			ClPaDraftGotPacket		;not end of strings yet

***End of strings in spool. See if we're done. If not, set new CurrentY and repeat:
							lda			ClPaWePrinted			;did we ever print anything this...
							bne			ClPaYesWeStillPrinted	;past loop? Yes, so hope for this pg
							brl			ClPaDraftPrintLoopDone	;No, so exit THIS loop
ClPaYesWeStillPrinted		lda			ClPaNextCurrentY		;else, new CurrentY and repeat; maybe
							sta			ClPaCurrentY			;there is more left to print on
							bra			ClPaDraftPrintLoop		;this current sheet...

***Continuation after getting new string packet:
ClPaDraftGotPacket			lda			ClPaPacketHeaderPos+ov1	;look at its Y coordinate; we're...
							cmp			ClPaCurrentY			;...looking for the next-greater one
							bcc			ClPaDraftCheckIfPrint	;it's less than current, ignore
							beq			ClPaDraftCheckIfPrint	;it's equal to current, also ignore
							cmp			ClPaNextCurrentY		;ok, but is it NEXT(least)-greater?
							bcs			ClPaDraftCheckIfPrint	;no, we've seen better
							sta			ClPaNextCurrentY		;now have better next Y coordinate
ClPaDraftCheckIfPrint		cmp			ClPaCurrentY			;string's Y at current level on page?
							bne			ClPaDraftGetNextPacket	;no, so go fetch next string

***Set still-active-printing-flag:
							lda			#1						;set flag so we know that we still
							sta			ClPaWePrinted			;found something to print this time

***Call imager to send text, not graphics, to printer:
ClPaDraftCallImager			pushlong	#PrintLoopRoutineData	;pixel loc info gets ptr to chars
							pushword	ClPaPacketHeaderPos+oh1	;pixel rect ptr hi gets abx X coord
							lda			ClPaPacketHeaderPos+ov1	;get wanted Y position
							sec
							sbc			ClPaLastVertPaperPos	;wanted Y - current Y; get delta
							pha									;pixel rect ptr lo gets rel Y coord
							pushword	#0						;color table ptr gets length: hi word
							pushword	ClPaPacketHeaderLen		;color table ptr gets length: lo word
							pushlong	ClPaPacketHeaderStyle	;scb list ptr gets style settings
							pushword	ClPaCrWidth				;pass crWidth obtained from OpenDoc
							pushword	#0 						;pass dummy paper length
							;			  5432109876543210
							lda			#%0000001101000011		;FF/Init:N, Text:Y Open/Close:N
							ora			PrintLoopMaskIsIWOne	;make sure imager knows if old IW I
							pha
							pushword	#0						;dummy QualityBits (feature select)
							pushlong	ClPaIdleProc			;pass idleproc obtained from OpenDoc
							import		Imager					;call imager, print string
							jsl			Imager
							bcs			ClPaDraftPrErr
							lda			ClPaPacketHeaderPos+ov1	;success: save wanted Y as new...
							sta			ClPaLastVertPaperPos	;...current Y position
							brl			ClPaDraftGetNextPacket	;go on if no error nor option-period

**Error was reported by the imager. Deal with it if it was user-abort (command-period) or an error:
ClPaDraftPrErr				cmp			#$0080					;$80 means imager detected cmd-period
							beq			ClPaDraftSetPrErr		;if so, set err which will stop loop
							jsr			ShowPrinterErrorStatus	;pass ACC to put stat mesg in box
							import		StMeDraftProgressMesg	;restore current page mesg in box...
							lda			#StMeDraftProgressMesg
							sta			ParamLongA
							lda			#^StMeDraftProgressMesg
							sta			ParamLongA+2
							jsr			ShowStatusWithPgNo
							bra			ClPaDraftCallImager		;...and try again...
ClPaDraftSetPrErr			lda			#prAbort				;render pr loop inactive...
							sta			PrintLoopErrorStatus	;and drop through...

**End draft print, because nothing left or user abort.  Do formfeed:
ClPaDraftPrintLoopDone		jsr			PrinterFormFeed

**End of loop for number of copies requested; count kept on stack:
ClPaDraftNextCopy			ply									;inc copy count and check if done yet
							iny
							cpy			ClPaNumCopies
							bcs			ClPaExit
							lda			PrintLoopErrorStatus	;don't go on if abort or err happened
							bne			ClPaExit
							brl			ClPaDraftOneMoreCopy

*Done; either OpenPage will be next for another draft run or CloseDoc, which removes dialogs/ports:
							import		SpoolFinishGet
ClPaExit					jsr			SpoolFinishGet			;deallocate resources
							rts

*"Handle" and PicComment data for if nondraft mode to mark end-of-page:
ClPaEOPFakeHandle			dc.l		ClPaEOPCommentData
							ds.b		20
ClPaEOPCommentData			dc.w		0						;version
							dc.w		$A55A					;signature

*Data from print record needed during draft loop:
ClPaNumCopies				dc.w		0
ClPaCrWidth					dc.w		0
ClPaIdleProc				dc.l		0

*Static variables needed by code which prints draft down the page:
ClPaCurrentY				dc.w		0						;where we are down the page
ClPaNextCurrentY			dc.w		0						;calc next CurrentY while in loop
ClPaWePrinted				dc.w		0						;flag to know when to stop loop
ClPaLastVertPaperPos		dc.w		0						;for calculating delta Y for imager

*Space for information header from spool:
ClPaPacketHeaderBegin			
ClPaPacketHeaderPos			dc.w		0,0
ClPaPacketHeaderLen			dc.w		0
ClPaPacketHeaderStyle		dc.l		0
ClPaPacketHeaderEnd







*
*PICFILE: If spooled, prints mult copies of recorded pages, does gap, status box, manfeed, etc, etc:
*
							export		PicFile

*If draft mode or print loop error status, don't do this routine:
PicFile						lda			PrintLoopIsDraft		;nonzero if draft
							ora			PrintLoopErrorStatus	;nonzero if error
							beq			PiFiGo1					;both zero, so go on
							rts									;else, exit but don't return error
PiFiGo1

*Prepare to retrieve spooled picture (page) definitions, if error, don't do this routine:
							import		SpoolStartGet
							jsr			SpoolStartGet			;try to start up spooler
							cmp			#1						;accumulator free of errors?
							bcc			PiFiGo2					;yes, so go on with this routine
							sta			errNo					;no, so set tool error
							rts									;and exit
PiFiGo2

*If there really weren't any pages recorded (maybe we were never in page range), also abort:
							lda			PrintLoopNumActualPages
							bne			PiFiGo3
							import		SpoolFinishGet			;dealloc spool resources
							jsr			SpoolFinishGet			;(mostly empty)
							rts									;and exit
PiFiGo3

*Put up dialog box to show status as well as to allow manual page feed alerts:
							import		GetStatMesgDisable		;get A=0/1 if enable/disable
							jsr			GetStatMesgDisable
							import		StartStatusMessage		;pass 0/1 to open mesg box routine
							jsr			StartStatusMessage

*Put up the first message to show we're allocating memory:
							import		StMeMallocMesg
							lda			#StMeMallocMesg
							sta			ParamLongA+0
							lda			#^StMeMallocMesg
							sta			ParamLongA+2
							import		StatusMessage
							jsr			StatusMessage

*Allocate memory for struct grafport for imaging (NOT same as for print loop above) or use user's:
							jsr			OpDoMallocGrafPort

*Start print port. This port is one "band" into which slices of spooled pictures are drawn & printed:
							pha									;result space...
							pha
							_GetPort
							pulllong	OldGrafPortPtr			;save current grafport...
							pushlong	printGrafPortPtr		;init a new grafport for us...
							_OpenPort							;and make it the current grafport

*Creating locinfo to be used by off-screen imaging grafport. Setting up band tallness and width:
							import		GetImagingSize
							jsr			GetImagingSize			;get X & Y dimensions for imaging
							stx			PiFiLocInfoRect+oh2		;store X2; will be modified
							sty			PiFiLocInfoRect+ov2		;store Y2; will be modified

*Do loop to figure out maximum X or Y size for banding, with many constraints:
							import		GetOrientation			;decide to work on X or Y size
							jsr			GetOrientation			;we go align X or Y to begin with...
							cmp			#1
							beq			PiFiAlignBandLand		;go align 1st to start land mem alloc
							bra			PiFiAlignBandPort		;go align 1st to start port mem alloc

**Get smaller band by cutting X or Y size in half, and align X or Y size to an even-imager-multiple:
							import		GetOrientation
PiFiTrySmallerBand			jsr			GetOrientation			;decide to work on X or Y size
							cmp			#1
							beq			PiFiTrySmallerBandLand
PiFiTrySmallerBandPort		lsr			PiFiLocInfoRect+ov2		;port: try smaller Y band size
PiFiAlignBandPort			pha									;align to multiple for pr head pins
							pha
							pushword	PiFiLocInfoRect+ov2
							pushword	#16
							_UDivide
							pla									;ignore quotient from divide
							pullword	ParamWordA				;get remainder
							lda			PiFiLocInfoRect+ov2		;subtract to align it...
							sec
							sbc			ParamWordA
							bcc			PiFiCantGetBandMem		;can't make it any smaller...
							beq			PiFiCantGetBandMem
							sta			PiFiLocInfoRect+ov2
							bra			PiFiCalcLocInfoWidth
PiFiCantGetBandMem			lda			#$0201					;abort with memory full tool err...
							sta			errNo
							brl			PiFiAbortNoBandMemAlloc
PiFiTrySmallerBandLand		lsr			PiFiLocInfoRect+oh2		;land: try smaller X band size
PiFiAlignBandLand			pha									;align to multiple for pr head pins
							pha
							pushword	PiFiLocInfoRect+oh2
							pushword	#16
							_UDivide
							pla									;ignore quotient from divide
							pullword	ParamWordA				;get remainder
							lda			PiFiLocInfoRect+oh2		;subtract to align it...
							sec
							sbc			ParamWordA
							bcc			PiFiCantGetBandMem		;can't make it any smaller...
							beq			PiFiCantGetBandMem
							sta			PiFiLocInfoRect+oh2

**Figure out loc info width based on mode (320/640) in effect at recording time and loc info X size:
							import		GetModeByte				;metrics to obtain 320/640 mode
PiFiCalcLocInfoWidth		jsr			GetModeByte				;for finding number pixels per byte
							sta			PiFiLocInfo+0			;also put mode byte in locinfo
							and			#$80					;check 320/640 mode bit...
							cmp			#1						;...set carry if 640 mode
							lda			PiFiLocInfoRect+oh2		;get rPage X2 in ACC
							bcc			PiFiIts320				;320, so only divide rPageX2 by 2
							lsr	a								;divide by 4 (640 mode), or...
PiFiIts320					lsr	a								;by 2 (320 mode) -> # bytes per line
							sta			PiFiLocInfoWidth		;store band width in bytes

**Figure out how big the band buffer will be, given the above (width still in ACC):
							pha									;result space for multiply...
							pha
							pha									;locinfo.width (bytes) still in acc
							lda			PiFiLocInfoRect+ov2		;times number of lines...
							ina
							pha
							_Multiply
							pulllong	ParamLongB				;plB now has pix buff size we want
							
**Check if buffer size would be greater than the amount of free memory:
PiFiCmpFreeMem				pha
							pha
							_RealFreeMem
							plx
							pla
							lsr a
							tay
							txa
							ror	a
							tax
							tya
							lsr a
							tay
							txa
							ror a								;now have free_mem/4 lo->A , hi->Y
							cpy			ParamLongB+2			;cmp hi words
							beq			PiFiCmpFreeMem1
							bcs			PiFiCmpFreeMemOk
							brl			PiFiTrySmallerBand		;too big, try smaller
PiFiCmpFreeMem1				cmp			ParamLongB+0			;cmp lo words
							bcs			PiFiCmpFreeMemOk
							brl			PiFiTrySmallerBand		;too big, try smaller
PiFiCmpFreeMemOk

**Check if buffer size would be greater than maximum QD-allowed pix buffer size:
PiFiCmpMaxPixBuff			lda			ParamLongB+2			;cmp hi words
							cmp			#QDMaxPixBuff/65536
							beq			PiFiCmpMaxPixBuff1
							bcc			PiFiCmpMaxPixBuffOk
							brl			PiFiTrySmallerBand		;too big, try smaller
PiFiCmpMaxPixBuff1			lda			ParamLongB+0			;cmp lo words
							cmp			#QDMaxPixBuff//65536
							bcc			PiFiCmpMaxPixBuffOk
							brl			PiFiTrySmallerBand		;too big, try smaller
PiFiCmpMaxPixBuffOk

**Try asking for the memory for imaging bands and also obtain a PID for later mallocs/deallocs:
PiFiDoBandMalloc			pha									;result space
							pushword	#UserIDType				;type of process requesting ID
							_GetNewID							;obtain PID
							pullword	PiFiMemPID				;get it
							pha									;result space...
							pha
							pushlong	ParamLongB				;pass size of block requested
							pushword	PiFiMemPID				;pass PID
							pushword	#$C000					;pass attr: locked/fixed
							pha									;pass dummy location
							pha
							_NewHandle
							pulllong	ParamLongA				;get handle, if we got one
							bcc			PiFiUseBandMem			;go on if we got one
PiFiDelIDTrySmallerBand		pushword	PiFiMemPID				;didn't get handle, try again...
							_DeleteID
							brl			PiFiTrySmallerBand

*Dereference the handle and put it in our locinfo:
PiFiUseBandMem				lda			[ParamLongA]
							sta			PiFiLocInfoPixPtr+0
							ldy			#2
							lda			[ParamLongA],y
							sta			PiFiLocInfoPixPtr+2

*Finally, the locinfo is complete, so use it:
							pushlong	#PiFiLocInfo			;attach our locinfo to our grafport
							_SetPortLoc

*Set QuickDraw's global internal clip buffers to handle the bigger size of our offscreen bitmap:
							pushlong	#PiFiOldQDBuffRec		;save original buffer widths
							_SaveBufDims
*
							lda			PiFiLocInfoWidth		;buff size for horiz num of bytes...
							cmp			PiFiOldQDBuffMaxWidth	;but never smaller (ie, landscape)
							bcs			PiFiSetBufDims1
							lda			PiFiOldQDBuffMaxWidth
PiFiSetBufDims1				pha									;pass it to SetBufDims
*
							lda			PiFiOldQDBuffTxtHeight	;buff size height for font stuff...
							lsr a
							lsr a
							clc
							adc			PiFiOldQDBuffTxtHeight
							pha									;pass it to SetBufDims
*
							lda			PiFiOldQDBuffMFBREx		;buff size for font style mods...
							pha									;pass it to SetBufDims
*
							_SetBufDims							;ask QD for bigger buffers
							bcc			PiFiNoBufDimErr			;if error, exit with tool error
							sta			errNo
							brl			PiFiOutOfPagesLoopNoSCB
PiFiNoBufDimErr

*Set port rect, clip rgn, and vis rgn to now-known bounds rect instead of screen-sized defaults:
							pushlong	#PiFiLocInfoRect		;(1) set main grafport rect
							_SetPortRect
							pushlong	#PiFiLocInfoRect		;(2) set clip region
							_ClipRect
							pha									;(3) set vis region
							pha
							_GetVisHandle						;leave hdl on stack for SetRectRgn
							pushword	PiFiLocInfoRect+oh1
							pushword	PiFiLocInfoRect+ov1
							pushword	PiFiLocInfoRect+oh2
							pushword	PiFiLocInfoRect+ov2
							_SetRectRgn

*Setup our own getpic/piccomment bottleprocs for retrieving the spooled picture definition:
 							pushlong	#OpPaQDProcs
 							_SetStdProcs
							lda			#GetPic-1				;customize GetPic bottleproc
							sta			OpPaQDProcs+ostdGetPic
							lda			#^(GetPic-1)
							sta			OpPaQDProcs+ostdGetPic+2
							lda			#PicComment-1			;customize PicComment bottleproc
							sta			OpPaQDProcs+ostdComment
							lda			#^(PicComment-1)
							sta			OpPaQDProcs+ostdComment+2
							pushlong	#OpPaQDProcs			;attach our procs to our grafport
							_SetGrafProcs

*Alloc mem for offscreen SCB list as tall as our banding buffer, one byte for each vertical line:
							stz			ParamLongA+2			;request size of hdl is 0..Y2 bytes
							lda			PiFiLocInfoRect+ov2
							import		ConvertImgToRPageSize	;metrics routine to convert from
							jsr			ConvertImgToRPageSize	;scaled-up units to const rPage units
							ina
							sta			ParamLongA+0
							pha									;result space...
							pha
							pushlong	ParamLongA				;pass request size
							pushword	PiFiMemPID				;pass our user id
							pushword	#$C000					;request static block of memory
							pha									;dummy loc ptr...
							pha
							_NewHandle
							pulllong	ParamLongA				;obtain handle result
							bcc			PiFiGotSCBMem
							lda			#$0201					;memfull err
							sta			errNo					;if problem do exit with tool err
							brl			PiFiOutOfPagesLoopNoSCB	;and try to shut down gracefully
PiFiGotSCBMem				lda			[ParamLongA]			;deref static hdl to get ptr...
							sta			PiFiSCBListPtr+0
							ldy			#2
							lda			[ParamLongA],y
							sta			PiFiSCBListPtr+2

*Init for first time end-of-page flag repeatedly used by our PicComment and GetPic bottleprocs:
							stz			PrintLoopEndOfPageDetect

*If user passed NIL for statusRecPtr, use our own private memory:
							lda			statusRecPtr+0			;check to see if this is NIL...
							ora			statusRecPtr+2			;if so, then user wants us to alloc
							bne			PiFiFillStatRec			;it's not NIL, so we use user's space
							lda			#PiFiStatusRecord		;set statrecptr to our own space...
							sta			statusRecPtr+0
							lda			#^PiFiStatusRecord
							sta			statusRecPtr+2

*Fill the "print status record" with values that won't change in the upcoming nested loops:
PiFiFillStatRec				lda			PrintLoopNumActualPages	;store actual number of pages...
							ldy			#oiTotPages
							sta			[statusRecPtr],y
							import		GetCopies				;store # of each pg to be printed...
							jsr			GetCopies
							ldy			#oiTotCopies
							sta			[statusRecPtr],y
							lda			printRecordHandle		;store handle to print record...
							ldy			#ohPrint
							sta			[statusRecPtr],y
							lda			printRecordHandle+2
							ldy			#ohPrint+2
							sta			[statusRecPtr],y
							lda			printGrafPortPtr		;store ptr to our grafport...
							ldy			#opPrPort
							sta			[statusRecPtr],y
							lda			printGrafPortPtr+2
							ldy			#opPrPort+2
							sta			[statusRecPtr],y

*Initialize the sheets-left-to-print decrementing counter used to show user in status box:
							pha
							pha
							pushword	PrintLoopNumActualPages
							import		GetCopies
							jsr			GetCopies
							pha
							_Multiply
							pullword	PiFiSheetsLeftToPrint	;init to #pages * #copies
							pla

*Calculate # of band passes needed: (Imaging[X|Y]Size) / Band[X|Y]Size, rounded up, with remainder:
							import		GetImagingSize			;get size of offscreen buffer we
PiFiCalcBandPasses			jsr			GetImagingSize			;would have liked... will compare
							phx									;to the one we actually got...
							phy
							import		GetOrientation
							jsr			GetOrientation
							cmp			#1
							beq			PiFiCalcPassesLand		;branch if landscape mode on
PiFiCalcPassesPort			pla									;portrait mode: get Y size in acc
							plx									;ignore X size here
							ldx			PiFiLocInfoRect+ov2		;now ACC & X valid, go calc
							bra			PiFiCalcPassesCalc
PiFiCalcPassesLand			ply									;landscape mode: ignore Y size
							pla									;get X size in acc
							ldx			PiFiLocInfoRect+oh2		;now ACC & X valid, go calc
PiFiCalcPassesCalc			stx			PiFiLastBandHeight		;ACC has imgsize,   ;initialize this
							pha									;X has bandsize     ;result space
							pha									;result space
							pha									;pass tallness of pic to be printed
							phx									;pass tallness of our band buffer
							_UDivide
							pla									;get quotient (# whole bands) in ACC
							plx									;get remainder (# lines) in X
							beq			PiFiCalcPassesStore		;skip next few lines if no remainder
							stx			PiFiLastBandHeight		;if non-0 rem thn its sz of lst band,
							ina									;and inc, must do 1 more smaller band
PiFiCalcPassesStore			ldy			#oiTotBands				;number of bands now in acc
							sta			[statusRecPtr],y		;now store number of passes needed

*Initialize counter for looping through all pages in document:
							lda			#1						;we'll count index to pages in spool
							ldy			#oiCurPage				;initialize page counter
							sta			[statusRecPtr],y		;we'll stop at "iTotPages" field

*Initialize printer communication/mechanics once for this print job:
							jsr			PrinterOpen				;open connection (hog the printer)
							lda			PrintLoopErrorStatus	;ensure PrinterOpen had no problems
							beq			PiFiOpenedConnOk		;if it did (or user abort), exit
							brl			PiFiOutOfPagesLoop
PiFiOpenedConnOk
							jsr			PrinterReset			;else go recalibrate print head, etc.

**Head of code to print one page.  Set spool mark for playing same picture during copy/band loops:
							import		SpoolMarkGet
PiFiPrintOneMorePage		jsr			SpoolMarkGet

**Initialize for looping through multiple copies of the current page:
							lda			#1						;we'll count real-copy-numbers
							ldy			#oiCurCopy				;initialize copy counter
							sta			[statusRecPtr],y		;we'll stop at "iTotCopies" field

***Head of code to print one copy. Intersheet stuff; manual sheet feed dialog, etc:
PiFiPrintOneMoreCopy		ldy			#oiCurPage				;get current page being printed...
							lda			[statusRecPtr],y
							sta			ParamWordA
							jsr			PrinterNewPage			;do inter-sheet activities
							
***Opportunity to exit if PrError set, by PrinterNewPage (manfeed cancel select), idleproc, etc:
							lda			PrintLoopErrorStatus
							beq			PiFiNoPrErrStat
							brl			PiFiOutOfPagesLoop		;if set, dealloc/shutdown and exit
PiFiNoPrErrStat

***Display # of SHEETS (Copies and Pages) left to print in status box:
							lda			PiFiSheetsLeftToPrint	;"PageCounter" must be valid
							sta			PrintLoopPageCounter	;for status print in a sec...
							import		StMeSheetsLeftMesg
							lda			#StMeSheetsLeftMesg		;use "ParamLongA" var as param...
							sta			ParamLongA+0
							lda			#^StMeSheetsLeftMesg
							sta			ParamLongA+2
							jsr			ShowStatusWithPgNo		;print message in the status box

***Initialize for looping through bands to print the picture a slice at a time:
							lda			#1						;real-band-numbers starting at 1
							ldy			#oiCurBand				;initialize band counter
							sta			[statusRecPtr],y		;we'll stop at "iTotBands" field

***Initialize the page-dirty flag:
							lda			#0
							ldy			#ofPgDirty
							sta			[statusRecPtr],y

***Advance paper vertically by GAP_size (if any) to provide top margin:
							pushlong	#PiFiSpaceChar			;we do null text output to do posn
							pushword	#0						;abs X
							import		GetVGapSize
							jsr			GetVGapSize				;get GAP size, is 0 if no_gaps is on
							pha									;rel Y: move paper GAP size down
							pushlong	#1						;text length
							pushlong	#0						;text attributes
							pushword	#160					;dummy crWidth
							pushword	#0						;dummy paper length
							;			  5432109876543210
							lda			#%0000001101000011		;ActionBits cmd to do text call
							ora			PrintLoopMaskIsIWOne	;make sure imager knows if old IW I
							pha
							pushword	#0						;QualityBits
							pushlong	#0						;no IdleProc
							import		Imager
							jsl			Imager

****Head of code to print one band.  Recue spool playback to start of current picture:
							import		SpoolReturnToMarkGet
PiFiPrintOneMoreBand		jsr			SpoolReturnToMarkGet

****Get spool picture-playback size:
							import		GetImagingSize			;get pixel size of imaged page
							jsr			GetImagingSize
							stx			PiFiDestRect+oh2		;store as 0,0,Y2,X2...
							sty			PiFiDestRect+ov2
							stz			PiFiDestRect+oh1
							stz			PiFiDestRect+ov1

****Calculate offset to play back the next part of picture into the banding buffer:
							import		GetOrientation
PiFiCalcOffset				jsr			GetOrientation
							cmp			#1
							beq			PiFiCalcOffsetLand		;branch if landscape mode on
PiFiCalcOffsetPort			ldx			PiFiLocInfoRect+ov2
							bra			PiFiCalcOffset1
PiFiCalcOffsetLand			ldx			PiFiLocInfoRect+oh2
PiFiCalcOffset1				ldy			#oiCurBand				;get current band number index...
							lda			[statusRecPtr],y
							dea									;minus one to get start index at 0
							pha									;result space
							pha
							pha									;pass current band
							phx									;pass band size
							_Multiply							;multiply to get destrect offset
							pullword	ParamWordE				;save for subtracts in a minute
							pla									;ignore result hi word

****Subtract the offset obtained above from Y1 & Y2 (portrait) or X1 & X2 (landscape):
							import		GetOrientation
							jsr			GetOrientation
							cmp			#1
							beq			PiFiSubOffLand			;if landscape mode on
PiFiSubOffPort				lda			PiFiDestRect+ov1		;destrect.y1 -= ParamWordE...
							sec
							sbc			ParamWordE
							sta			PiFiDestRect+ov1
							lda			PiFiDestRect+ov2		;destrect.y2 -= ParamWordE...
							sec
							sbc			ParamWordE
							sta			PiFiDestRect+ov2
							bra			PiFiDoneSubOff
PiFiSubOffLand				lda			PiFiDestRect+oh1		;destrect.x1 -= ParamWordE...
							sec
							sbc			ParamWordE
							sta			PiFiDestRect+oh1
							lda			PiFiDestRect+oh2		;destrect.x2 -= ParamWordE...
							sec
							sbc			ParamWordE
							sta			PiFiDestRect+oh2
PiFiDoneSubOff

****Clear the band buffer to all-white using our (unmodified default white) grafport background:
PiFiClearBandBuff			pushlong	#PiFiLocInfoRect		;clear entire band buffer...
							_EraseRect

****Screen colors -> our color table; may be mod by PicComments during upcoming DrawPicture call:
							pushlong	#$E19E00				;screen color table
							pushlong	#PrintLoopRoutineData	;fill our data area
							pushlong	#512					;16 palettes of 16 2-byte words
							_BlockMove

****Imaging port's portSCB -> fill our SCB tbl; may be mod by PicComments during DrawPicture call:
							lda			PiFiSCBListPtr+0		;setup ParamLongA with address
							sta			ParamLongA+0			;of our SCB list...
							lda			PiFiSCBListPtr+2
							sta			ParamLongA+2
							lda			PiFiLocInfoRect+ov2		;setup with length of
							import		ConvertImgToRPageSize	;our SCB list...
							jsr			ConvertImgToRPageSize
							sta			PiFiFillSCBListLimit+1
							ldy			#0
							lda			PiFiLocInfo+0			;obtain our portSCB
							shortm								;store as BYTEs
PiFiFillSCBListLoop			sta			[ParamLongA],y
							iny
PiFiFillSCBListLimit		cpy			#$FFFF					;NOTE: operand is stuffed
							beq			PiFiFillSCBListLoop
							bcc			PiFiFillSCBListLoop
							longm

****Display message indicating that DrawPicture is creating image of current page:
							import		StMeRenderingMesg
							lda			#StMeRenderingMesg
							sta			ParamLongA+0
							lda			#^StMeRenderingMesg
							sta			ParamLongA+2
							import		StatusMessage
							jsr			StatusMessage

****Call DrawPicture to draw entire page image, showing only a slice into banding/imaging buffer:
							pushlong	#1						;bogus, unused, non-NIL pichandle
							pushlong	#PiFiDestRect			;translation and scaling rect
							_DrawPicture						;BOTTLEPROCS/PICCOMMENTS RUN NOW!
							bcc			PiFiNoDPError			;if any error occured, terminate
							sta			errNo
							sta			PrintLoopErrorStatus
							brl			PiFiOutOfPagesLoop
PiFiNoDPError

****Change current message display (back) to the sheets-left-to-print message:
							lda			PiFiSheetsLeftToPrint
							sta			PrintLoopPageCounter
							import		StMeSheetsLeftMesg
							lda			#StMeSheetsLeftMesg
							sta			ParamLongA+0
							lda			#^StMeSheetsLeftMesg
							sta			ParamLongA+2
							jsr			ShowStatusWithPgNo

****Save last band's height because we might modify it next:
							import		GetOrientation
							jsr			GetOrientation
							ldx			PiFiLocInfoRect+oh2
							ldy			PiFiLocInfoRect+ov2
							cmp			#1
							beq			PiFiSaveBandLand
							sty			ParamWordE
							bra			PiFiAdjBand
PiFiSaveBandLand			stx			ParamWordE

****If last band, adjust bandsize here at the last minute because it might be shorter:
PiFiAdjBand					ldy			#oiTotBands				;get total # of bands to be done
							lda			[statusRecPtr],y
							cmp			#1						;no adjust if doing it all in 1 band
							beq			PiFiDoneAdjBand			;(because PiFiLastBandHeight is 0)
							ldy			#oiCurBand				;now compare to curr band we're on
							cmp			[statusRecPtr],y
							bne			PiFiDoneAdjBand			;no adjust if not last band
							import		GetOrientation
							jsr			GetOrientation
							ldy			PiFiLastBandHeight
							cmp			#1
							beq			PiFiAdjBandLand			;if landscape mode on
							sty			PiFiLocInfoRect+ov2
							bra			PiFiDoneAdjBand
PiFiAdjBandLand				sty			PiFiLocInfoRect+oh2
PiFiDoneAdjBand

****Call imager to convert pixelmap in band buffer to escape sequences and send to printer:
PiFiImagerCall				pushlong	#PiFiLocInfo			;pass our locinfo with pixmap ptr
							pushlong	#PiFiLocInfoRect		;pass clipped rect ptr to band
 							import		GetImagerCTable			;get wanted color table, carry...
							jsr			GetImagerCTable			;will be set if was nil => default
							bcs			PiFiNotDefaultCTable	;branch if user has own color table
							ldx			#PrintLoopRoutineData	;else use our color table...
							ldy			#^PrintLoopRoutineData
PiFiNotDefaultCTable		phy									;pass hi/lo words of colr tbl ptr...
							phx
							import		GetImagerSCBList		;get wanted SCB list, carry...
							jsr			GetImagerSCBList		;will be set if was nil => default
							bcs			PiFiNotDefaultSCBList	;branch if user has own SCB list
							ldx			PiFiSCBListPtr+0		;else use our piccomment-modifyable
							ldy			PiFiSCBListPtr+2		;...SCB list
PiFiNotDefaultSCBList		phy									;pass hi/lo words of scb list ptr...
							phx
							import		GetCrWidth				;get crWidth from metrics; crWidth
							jsr			GetCrWidth				;is super-right-margin; for example,
							pha									;it determines landscape rmargin
							pushword	#0						;pass dummy paper length
							;			  5432109876543210		;pass action bits: FF:N,Init:N,
							lda			#%0000001100000011		;Img:Y,Op/Cl:N
							ora			PrintLoopMaskIsIWOne	;taking old IW I into consideration
							pha
							import		GetConvertQualBits		;get wanted feature select for imager
							jsr			GetConvertQualBits
							pha									;pass image routine feature select
							pushlong	#BufferIdleProc			;pass our idle proc which calls user
							import		Imager					;transfer control to the low-level
							jsl			Imager					;driver, which also does idleproc
							bcs			PiFiImagerExitStatusSet	;exit status nonzero, go check it
							
****Check print loop error status, which the user may have modified during the idleproc:
							lda			PrintLoopErrorStatus	;if the PrError status is zero,
							beq			PiFiImagedSuccessfully	;then go on, else, assume abort; no
							bra			PiFiUserWantsAbort		;other user access to errors allowed

****Error or user-abort happened during imaging, so deal with it depending on type of error:
PiFiImagerExitStatusSet		cmp			#$0080					;did user type command-period?
							beq			PiFiUserWantsAbort		;if so, set error and stop printing
							jsr			ShowPrinterErrorStatus	;else, show mesg in ACC for a sec...
							lda			PiFiSheetsLeftToPrint	;restore sheets-left message...
							sta			PrintLoopPageCounter
							import		StMeSheetsLeftMesg
							lda			#StMeSheetsLeftMesg
							sta			ParamLongA+0
							lda			#^StMeSheetsLeftMesg
							sta			ParamLongA+2
							jsr			ShowStatusWithPgNo
							brl			PiFiImagerCall			;...and try again...

****If user typed command-period, do FF and exit as if we finished print job:
PiFiUserWantsAbort			lda			#prAbort				;user did cmd-'.': set abort flag
							sta			PrintLoopErrorStatus	;(but don't set tool exit error)
							jsr			PrinterFormfeed			;eject the page always
							brl			PiFiOutOfPagesLoop		;clean up and abort

****Restore bandsize in case it was modified if this was last band:
							import		GetOrientation
PiFiImagedSuccessfully		jsr			GetOrientation
							ldy			ParamWordE
							cmp			#1
							beq			PiFiRestBandLand		;landscape mode on
							sty			PiFiLocInfoRect+ov2
							bra			PiFiRestBandDone
PiFiRestBandLand			sty			PiFiLocInfoRect+oh2
PiFiRestBandDone

****Indicate that we've used ink (even if we haven't).  FYI for whoever's looking at status rec:
							lda			#1
							ldy			#ofPgDirty
							sta			[statusRecPtr],y

****Tail of do-one-band code.  See if we need to do another band:
							ldy			#oiCurBand				;get current band number index...
							tyx									;save this index for use below
							lda			[statusRecPtr],y		;get it
							ldy			#oiTotBands				;compare with total bands needed...
							cmp			[statusRecPtr],y		;compare it
							bcs			PiFiOutOfBandsLoop		;if we're done, break out of loop
							ina									;else increment and store back...
							txy									;restore oiCurBand index
							sta			[statusRecPtr],y		;store it
							brl			PiFiPrintOneMoreBand	;loop back
PiFiOutOfBandsLoop

***Tail of do-one-copy code.  1) Do form feed (if not "no gaps") to advance to next sheet:
							import		GetPageGap				;if no_gaps, then there is more
							jsr			GetPageGap				;imaging area so there is more
							bne			PiFiDontFFBetweenSheets	;printed area, and thus no need for
							jsr			PrinterFormfeed			;formfeed to skip to next page
PiFiDontFFBetweenSheets

***Tail of do-one-copy code.  2) Decrement sheets-left-to-print user display counter:
							dec			PiFiSheetsLeftToPrint

***Tail of do-one-copy code.  3) See if we need to print another copy:
							ldy			#oiCurCopy				;get current copy number index...
							tyx									;save this index for use below
							lda			[statusRecPtr],y		;get it
							ldy			#oiTotCopies			;compare with total copies needed...
							cmp			[statusRecPtr],y		;compare it
							bcs			PiFiOutOfCopiesLoop		;if we're done, break out of loop
							ina									;else increment and store back...
							txy									;restore oiCurCopy index
							sta			[statusRecPtr],y		;store it
							brl			PiFiPrintOneMoreCopy	;loop back

**Tail of do-one-page code. See if we need to print another page:
PiFiOutOfCopiesLoop			ldy			#oiCurPage				;get current page number index...
							tyx									;save this index for use below
							lda			[statusRecPtr],y		;get it
							ldy			#oiTotPages				;compare with total pages needed...
							cmp			[statusRecPtr],y		;compare it
							bcs			PiFiOutOfPagesLoop		;if we're done, break out of loop
							ina									;else increment and store back...
							txy									;restore oiCurPage index
							sta			[statusRecPtr],y		;store it
							brl			PiFiPrintOneMorePage	;loop back

*Done with print job.  Release banding mem attached to our locinfo attached to our grafport.
*This is where resources are terminated for graceful exits during error conditions:
PiFiOutOfPagesLoop			pha									;dump our SCB mem	;result space
							pha														;result space
							pushlong	PiFiSCBListPtr								;didn't keep hdl
							_FindHandle												;so find from ptr
							_DisposeHandle											;hdl on stack
PiFiOutOfPagesLoopNoSCB		pha									;dump our band mem	;result space
							pha														;result space
							pushlong	PiFiLocInfoPixPtr							;didn't keep hdl
							_FindHandle												;so find from ptr
							_DisposeHandle											;hdl on stack
							pushword	PiFiMemPID				;dump our user ID
							_DeleteID

*Set QuickDraw global internal clip buffers back to previous size:
							pushlong	#PiFiOldQDBuffRec
							_RestoreBufDims

*Restore previous grafport and close our band buffer grafport:
PiFiAbortNoBandMemAlloc		pushlong	OldGrafPortPtr			;restore caller's grafport first...
							_SetPort
							pushlong	printGrafPortPtr		;close our grafport, which also...
							_ClosePort							;deallocs clip/vis rgn memory

*Terminate the spooling process:
							import		SpoolFinishGet
							jsr			SpoolFinishGet
							cmp			#1						;check for error in acc
							bcc			PiFiNoFinishGetErr
							sta			errNo					;if nonzero, make *it* the tool err
PiFiNoFinishGetErr

*Terminate communication with the printer:
							jsr			PrinterClose			;stop hogging the printer

*Remove the status box in any case:
							import		FinishStatusMessage
							jsr			FinishStatusMessage
							
*Get rid of stray keystroke events and exit:
							pha									;flush other keyboard events
							pushword	#%0000000000001110
							pushword	#0
							_FlushEvents
							pla
							rts

*During-printing status record space to use if user passed NIL:
PiFiStatusRecord			ds.b		$1C

*User ID for mallocing memory during this routine for banding buffer, SCB list, etc:
PiFiMemPID					dc.w		0

*GrafPort.LocInfo record describing banding buffer (offscreen pixelmap):
PiFiLocInfo					dc.w		0						;portSCB
PiFiLocInfoPixPtr			dc.l		0						;ptrToPixImage ptr to imaging buffer
PiFiLocInfoWidth			dc.w		0						;width of one scan line in bytes
PiFiLocInfoRect				dc.w		0,0,0,0					;boundsRect in pixels

*Destination scaling rectangle for DrawPicture picture playback:
PiFiDestRect				dc.w		0,0,0,0

*Last band may be smaller than all other bands to print what's left, for bands are Y-size aligned:
PiFiLastBandHeight			dc.w		0						;height of special-case last band

*Storage for decrementing computed number of sheets left to print (pages*copies):
PiFiSheetsLeftToPrint		dc.w		0

*QuickDraw buffer size information record storage:
PiFiOldQDBuffRec:												;to save/alter/restore QD buffers
PiFiOldQDBuffMaxWidth		dc.w		0
PiFiOldQDBuffTxtHeight		dc.w		0
PiFiOldQDBuffTxtWidth		dc.w		0
PiFiOldQDBuffMFBREx			dc.w		0

*Dummy character used for imager vertical positioning call:
PiFiSpaceChar				dc.b		' '

*Ptr to malloced memory holding application-piccomment-modifyable SCB list for curr imager call:
PiFiSCBListPtr				dc.l		0







*
*GETPRINTLOOPERROR: This routine returns the value of the status variable in ACC:
*
							export		GetPrintLoopError
GetPrintLoopError			lda			PrintLoopErrorStatus
							rts
							



							
							
*
*SETPRINTLOOPERROR: This routine stores the value of ACC into the status variable:
*
							export		SetPrintLoopError
SetPrintLoopError			sta			PrintLoopErrorStatus
							rts






*
*PRIVATE ROUTINES: Called by the high-level print model routines above:
*



*
*BUFFERIDLEPROC: Our idleproc that is passed to imager.  Allows quick abort in middle of imaging:
*
							import		GetIdleProc				;requires valid pr rec handle on dp!
BufferIdleProc				jsr			GetIdleProc				;get lo->X, hi->Y, not NIL->carry
							bcc			BuIdDone				;if no idleproc, just exit
							stx			BuIdGotoUser+1			;else build JSL to user and go
							shortx
							sty			BuIdGotoUser+3
							longx
							phd
							phb
BuIdGotoUser				jsl			$FFFFFF					;NOTE: operand is stuffed
							plb
							pld
							lda			PrintLoopErrorStatus	;after user call, check PrError
							beq			BuIdDone				;if set, then set imager-abort-flag
							lda			#$0080
							import		PrError
							sta			PrError
BuIdDone					rtl



*
*PRINTERIMAGERSVCCALL: Calls imager with all dummy params except ActionBits -> ACC; ACC/c -> Error:
*
PrinterImagerSvcCall		ldx			#0						;we'll pass zeroes
							phx									;dummy pix loc info ptr hi
							phx									;dummy pix loc info ptr lo
							phx									;dummy pix pr rect ptr hi
							phx									;dummy pix pr rect ptr lo
							phx									;dummy color tbl ptr hi
							phx									;dummy color tbl ptr lo
							phx									;dummy scb list ptr hi
							phx									;dummy scb list ptr lo
							phx									;dummy carriage width
							phx									;dummy paper length
							ora			PrintLoopMaskIsIWOne	;pass ActionBits given in ACC
							pha									;while considering if on IW I
							phx									;dummy quality bits
							phx									;dummy idle proc hi
							phx									;dummy idle proc lo
							import		Imager
							jsl			Imager
							rts									;exit RTS, leaving ACC/carry set



*
*PRINTEROPEN: Call once/job, before all pr I/O. Opens/hogs connection, may set PrintLoopErrorStatus:
*If it returns w/o error, it has an exclusive connection so nobody else can interfere.
*PrintRecordHandle on DP must be valid because the IdleProc is called to allow abort.
*It does printer self-ID; it sets the "PrintLoopMaskIsIWOne" mask if we're on an ImageWriter I.
*
PrinterOpen
PrOpTryOrExit				jsl			BufferIdleProc			;do usr idleproc, affect err stat
							lda			PrintLoopErrorStatus	;if error status was set, bail out
							beq			PrOpNoIPAbort			;else iproc didn't set it, so go on
							rts
							import		StMePrinterOpenMesg		;put up message because it might
PrOpNoIPAbort				lda			#StMePrinterOpenMesg	;take a few seconds
							sta			ParamLongA+0
							lda			#^StMePrinterOpenMesg
							sta			ParamLongA+2
							import		StatusMessage
							jsr			StatusMessage
PrOpCheckIfShouldDoID		lda			PrintLoopCheckedIsIWOne	;only allow the is-iw-one flag to be
							bne			PrOpDoTheOpen			;changed (one way or the other) the
							lda			#1						;1st time since we're loaded because
							sta			PrintLoopCheckedIsIWOne	;if the pr is busy it won't respond
PrOpDoTheID					stz			PrintLoopMaskIsIWOne	;assume not old IW I for the moment
							;			  5432109876543210
							lda			#%0000000010000000
							jsr			PrinterImagerSvcCall	;ask imager to do ID only
							;			  5432109876543210
							bit			#%0000000000001000		;if ID bit 3 is set, then we have
							beq			PrOpNotIWOne			;an IW I, so set actionbits mask...
							;			  5432109876543210
							ldx			#%0000000000000100
							stx			PrintLoopMaskIsIWOne
PrOpNotIWOne
							;			  5432109876543210
PrOpDoTheOpen				lda			#%0000001000100011		;FF:N,Init:N,Img:N,ID:N,Op:Y,Cl:N
							jsr			PrinterImagerSvcCall
							cmp			#0						;did an error occur?
							beq			PrOpOk					;open was successful, so continue
							cmp			#$0080					;did user hit control-period already?
							beq			PrOpSetPrAbort			;if so, set print loop error to abort
							jsr			ShowPrinterErrorStatus	;else put message in the box...
							bra			PrOpTryOrExit			;...and try again
PrOpSetPrAbort				lda			#prAbort
							sta			PrintLoopErrorStatus
PrOpOk						rts



*
*PRINTERCLOSE: Terminates exclusive connection to printer, freeing it for other users:
*
							;			  5432109876543210
PrinterClose				lda			#%0000000100100011		;FF:N,Init:N,Img:N,Op:N,Cl:Y
							brl			PrinterImagerSvcCall	;exit through this routine



*
*PRINTERRESET: Called once/job: Mesg, calibrate, set sheet len.  NOTE: PrRec, Status box assumed.
*
PrinterReset				lda			PrintLoopErrorStatus	;do only if no pending err already
							bne			PrReExit
							import		StMePrinterResetMesg	;show message indicating that
							lda			#StMePrinterResetMesg	;printer mechanics are happening...
							sta			ParamLongA+0			;NOTE: Assumes presence of box!
							lda			#^StMePrinterResetMesg
							sta			ParamLongA+2
							import		StatusMessage
							jsr			StatusMessage
							pushlong	#0						;dummy pix loc info
							pushlong	#0						;dummy pix pr rect ptr
							pushlong	#0						;dummy color tbl ptr			
							pushlong	#0						;dummy scb list ptr
							pushword	#0						;dummy carriage width
							import		GetPaperLength			;obtain length of current paper type
							jsr			GetPaperLength			;NOTE: Assumes PrintRecordHandle!
							pha									;pass sheet length to be set...
							;			  5432109876543210		;pass action bits:
							lda			#%0000001100100001		;FF:N,Init:Y,Img:N,Op/Cl:N
							ora			PrintLoopMaskIsIWOne	;and consider if we're on IW I
							pha
							pushword	#0						;dummy quality bits
							pushlong	#0						;dummy idle proc
							import		Imager
							jsl			Imager
PrReExit					rts



*
*PRINTERFORMFEED: Causes printer to do form feed:
*
							;			  5432109876543210
PrinterFormfeed				lda			#%0000001100100010		;FF:Y,Init:N,Img:N,Opn/Cls:N
							brl			PrinterImagerSvcCall	;exit through this routine



*
*PRINTERNEWPAGE: Do beginpage. Man-feed dialog, etc. Pass curr pg -> ParamWordA:
*This routine has the side-effect of setting PrintLoopErrorStatus if manfeed with "cancel" selected.
*On exit, status box contents are erased, except if manfeed cancel it puts up message.
*Valid current print record handle is necessary.
*
							import		GetFeed
PrinterNewPage				jsr			GetFeed					;sets zero flag if manual page feed
							bne			NewPgNotManFeed			;don't do dialog if auto feed
							_InitCursor							;arrow cursor
							import		StatusMesgFeedPrompt	;ParamWordA (page#) already set...
							jsr			StatusMesgFeedPrompt	;put up the dialog until select
							bcc			NewPgNotCancel
							lda			#prAbort				;if manfeed+cancel hit, set PrError
							sta			PrintLoopErrorStatus
							import		StMeCancellingMesg		;and also show user what's happening
							lda			#StMeCancellingMesg
							sta			ParamLongA+0
							lda			#^StMeCancellingMesg
							sta			ParamLongA+2
							import		StatusMessage
							jsr			StatusMessage
NewPgNotCancel				_WaitCursor							;watch cursor
NewPgNotManFeed				rts



*
*SHOWPRINTERERRORSTATUS: Displays mesg about pr status code (received from imager) given in ACC:
*
ShowPrinterErrorStatus		cmp			#$0081
							bne			ShPrEr1
							import		StMeCommunicationMesg
							ldx			#StMeCommunicationMesg
							bra			ShPrErDisplayIt
ShPrEr1						cmp			#$0082
							bne			ShPrEr2
							import		StMeOutOfPaperMesg
							ldx			#StMeOutOfPaperMesg
							bra			ShPrErDisplayIt
ShPrEr2						cmp			#$0083
							bne			ShPrEr3
							import		StMePaperJamMesg
							ldx			#StMePaperJamMesg
							bra			ShPrErDisplayIt
ShPrEr3						cmp			#$0084
							bne			ShPrEr4
							import		StMeCoverOpenMesg
							ldx			#StMeCoverOpenMesg
							bra			ShPrErDisplayIt
ShPrEr4						cmp			#$0085
							bne			ShPrEr5
							import		StMeSelectOffMesg
							ldx			#StMeSelectOffMesg
							bra			ShPrErDisplayIt
ShPrEr5						cmp			#$008F
							bne			ShPrErHuh
							import		StMeInUseMesg
							ldx			#StMeInUseMesg
							
ShPrErDisplayIt				stx			ParamLongA
							import		StMeCommunicationMesg	;assuming all messages are in
							ldx			#^StMeCommunicationMesg	;the same bank...
							stx			ParamLongA+2
							import		StatusMessage			;show the message
							jsr			StatusMessage
							
							pha									;wait a few seconds...
							pushword	#0						;anchor value
							pushword	#StatusMesgDelay*16		;number of 16ths of ticks to wait
							ldx			#$3A03					;_WaitUntil
							jsl			$E10000
							pla									;ignore new anchor result
														
ShPrErHuh					rts



*
*SHOWSTATUSWITHPGNO: Displays string at ParamLongA, with ASCII of PrintLoopPageCounter at posn 26:
*
ShowStatusWithPgNo			pushword	PrintLoopPageCounter	;int to be converted to string
							clc
							lda			ParamLongA
							adc			#26						;this routine always puts number
							tax									;at 26th position in the string!
							lda			ParamLongA+2
							adc			#0
							pha									;hi word of where number goes
							phx									;lo word of where number goes
							pushword	#5						;length
							pushword	#0						;unsigned
							_Int2Dec
							import		StatusMessage
							brl			StatusMessage			;exit through StatusMessage






*
*BOTTLEPROCS: Our custom QuickDraw bottle-neck procedures (called by QuickDraw):
*



*
*PUTPIC: Our PutPic bottleproc called as "void PutPic (ptr,count) word *ptr word count"; err->c,acc:
*
PutPic						phb									;save bank register on stack
							phd									;save direct page register on stack
							phk									;B=K so we can use abs addressing...
							plb
							tsc									;allocate space on stack for...
							sec									;our direct page...
							sbc			#DPSizeParamOnly
							tcs
							ina
							tcd									;set D so we can use dp addressing
PuPiStackParam				equ			1+3+1+2+DPSizeParamOnly	;1 + RTL + B + D + StackFrame
							lda			PuPiStackParam+0,s		;count word -> ParamLongB...
							sta			ParamLongB+0
							stz			ParamLongB+2
							lda			PuPiStackParam+2,s		;ptr long -> ParamLongC...
							sta			ParamLongC+0
							lda			PuPiStackParam+4,s
							sta			ParamLongC+2

*Done saving environment; now do the work:
							import		SpoolPut				;go spool it
							jsr			SpoolPut
							cmp			#1						;did any error happen?
							bcc			PutGetNoError
PutGetError					sta			PrintLoopErrorStatus	;if error set global static var
							tax									;and always tell QD about error
							bra			PutGetExit
PutGetNoError				ldx			#0						;this is the no-error exit point

*Now restore previous environment and exit with status in X in ACC/carry:
PutGetExit					tsc									;deallocate stack frame...
							clc
							adc			#DPSizeParamOnly
							tcs
							pld									;restore direct reg off stack
							plb									;restore bank reg off stack
							lda			0,s						;move the RTL up, cleaning the...
							sta			6,s						;six input param bytes off...
							lda			2,s
							sta			8,s
							tsc									;now add 6 to S to move it up...
							clc									;can't do above since B/D on stack
							adc			#6
							tcs
							txa									;X has err, -> ACC/Carry
							cmp			#1
							rtl
							
							



							
*
*GETPIC: Our GetPic bottleproc called as "void GetPic (ptr,count) word *ptr word count"; err->c,acc:
*
GetPic						phb									;save bank register on stack
							phd									;save direct page register on stack
							phk									;B=K so we can use abs addressing...
							plb
							tsc									;allocate space on stack for...
							sec									;our direct page...
							sbc			#DPSizeParamOnly
							tcs
							ina
							tcd									;set D so we can use dp addressing
GePiStackParam				equ			1+3+1+2+DPSizeParamOnly	;1 + RTL + B + D + StackFrame
							lda			GePiStackParam+0,s		;count word -> ParamLongB...
							sta			ParamLongB+0
							stz			ParamLongB+2
							lda			GePiStackParam+2,s		;ptr long -> ParamLongC...
							sta			ParamLongC+0
							lda			GePiStackParam+4,s
							sta			ParamLongC+2

*Done saving environment; now do the work:
							ldx			PrintLoopEndOfPageDetect
							bne			GetPicItsEndOfPage		;our end-of-page PicComment happened
							import		SpoolGet				;else get data from spool
							jsr			SpoolGet
							cmp			#$FFFF					;end of all spool data?
							beq			GetPicItsEndOfPage
							cmp			#1						;error during spool operation?
							bcc			PutGetNoError			;if not, exit clean
							bcs			PutGetError				;if yes, set pr err and tell QD
GetPicItsEndOfPage			stz			PrintLoopEndOfPageDetect
							ldx			#$1210					;clear end-of-page flag and tell QD
							bra			PutGetExit				;to stop drawing with "PicEmpty" err






*
*PICCOMMENT: Our bottleproc that informs us of end-of-picture and allows mid-document color changes
*This routine is called from inside DrawPicture and thus runs just before each imager call:
*
PicComment					ldy			#0							;get contents of comment data...
							lda			[QDAuxTheHandleDPLoc],y
							sta			>PiCoReadComment+1
							iny
							iny
							lda			[QDAuxTheHandleDPLoc],y
							shortm
							sta			>PiCoReadComment+3
							longm
							ldx			QDAuxTheSizeDPLoc
							cpx			#4							;min size of our comments is 4
							bcc			PiCoExit
							cpx			#42+1						;max size of our comments is 42
							bcs			PiCoExit
							shortm									;copy to local static storage...
							dex
PiCoReadComment				lda			>$FFFFFF,x					;NOTE: stuffed operand
							sta			>PiCoCommentData,x
							dex
							bpl			PiCoReadComment
							longm
*
							lda			>PiCoCommentData+0			;ensure version field is 0
							bne			PiCoExit
							lda			>PiCoCommentData+2			;ensure sig field is $A55A
							cmp			#$A55A
							bne			PiCoExit
*
							lda			QDAuxTheKindDPLoc			;get kind of comment...
							cmp			#EndOfPagePicCommentKind	;our end-of-page marker?
							beq			PiCoEndOfPage
							cmp			#ChangeCTBLPicCommentKind	;app's color tbl change cmd?
							beq			PiCoChangeCTBL
							cmp			#ChangeSCBPicCommentKind	;app's scb change cmd?
							beq			PiCoChangeSCB
*
PiCoExit					lda			#0							;exit clean, no error status
							clc
							rtl
*
*End-Of-Page PicComment handler:
*
PiCoEndOfPage				lda			#1							;set flag so we'll know
							sta			>PrintLoopEndOfPageDetect	;about end-of-page/picture
							bra			PiCoExit					;done with end-of-page-set-flag
*
*Change-A-Color-Table-Entry PicComment handler:
*
PiCoChangeCTBL				pushlong	#PiCoCommentData+6			;pass "source" for BlockMove
							lda			>PiCoCommentData+4			;get table# field
							asl a									;*32 to get index into color tbl
							asl a
							asl a
							asl a
							asl a
							clc										;+address of our color tbl
							adc			#PrintLoopRoutineData
							tax
							lda			#0
							adc			#^PrintLoopRoutineData
							pha										;pass "dest" for BlockMove
							phx
							pushlong	#32							;pass "length" for BlockMove
							_BlockMove
							bra			PiCoExit					;done with change-color-table
*
*Change-One-Or-More-SCB-Value(s) PicComment handler:
*
PiCoChangeSCB				phb										;do set our B
							phk
							plb
*
							sec										;find out the range of y coords
							lda			#0							;that we're imaging currently
							sbc			PiFiDestRect+ov1			;these will be in imaging units
							sta			PiCoChSCB_curr_img_y1
							clc
							adc			PiFiLocInfoRect+ov2
							sta			PiCoChSCB_curr_img_y2
*
							lda			PiCoChSCB_curr_img_y1		;convert from imaging units to
							import		ConvertImgToRPageSize		;rPage units
							jsr			ConvertImgToRPageSize
							sta			PiCoChSCB_curr_img_y1
							lda			PiCoChSCB_curr_img_y2
							import		ConvertImgToRPageSize
							jsr			ConvertImgToRPageSize
							sta			PiCoChSCB_curr_img_y2
*
							lda			PiFiSCBListPtr+0			;setup adrs of our-scb-list
							sta			PiCoChSCBSto+1				;in preparation for access
							lda			PiFiSCBListPtr+2
							shortm
							sta			PiCoChSCBSto+3
							longm
*
							ldx			PiCoCommentData+4			;get "Y1" from ChSCB piccomment
PiCoChSCBLoop				cpx			PiCoChSCB_curr_img_y1		;check to see if this SCB falls
							bcc			PiCoChSCBDoNext				;within the limits of the
							cpx			PiCoChSCB_curr_img_y2		;current banding/imaging buffer
							beq			PiCoChSCBInRange
							bcs			PiCoChSCBDoNext
PiCoChSCBInRange
*
							txy										;normalize from rPage-based Y
							txa										;coordinate to bandbuff-based Y
							sec
							sbc			PiCoChSCB_curr_img_y1
							tax
							lda			PiCoCommentData+8			;get "SCB" from ChSCB piccomment
							shortm
PiCoChSCBSto				sta			>$FFFFFF,x					;NOTE: operand is stuffed
							longm
							tyx
*
PiCoChSCBDoNext				inx										;try to modify another SCB
							cpx			PiCoCommentData+6			;until "Y2" from ChSCB piccomment
							beq			PiCoChSCBLoop
							bcc			PiCoChSCBLoop
*
							plb										;restore old B
							brl			PiCoExit					;done with change-scb(s)
*
PiCoChSCB_curr_img_y1		dc.w		0							;1st line of current band buffer
PiCoChSCB_curr_img_y2		dc.w		0							;lst line of current band buffer
*
PiCoCommentData				ds.b		44							;buffer holding PicComment data






*
*PUTTEXT: Our Text bottleproc which is used during draft printing using printer's native text mode:
*This routine attempts to map a quickdraw screen font/style into a native ascii font/style:
*
PutText						phb									;save QD bank reg on stack
							phd									;save QD direct reg on stack
							phk									;set bank reg to our code...
							plb
							lda			QDDrawVerbDPLoc			;get info off QD direct page
							sta			PuTeDrawVerb			;and save them here...
							lda			QDTextPtrDPLoc
							sta			PuTeTextPtr
							lda			QDTextPtrDPLoc+2
							sta			PuTeTextPtr+2
							lda			QDTextLengthDPLoc
							sta			PuTeTextLength
							lda			QDCharToDrawDPLoc
							sta			PuTeCharToDraw
							tsc									;allocate space on stack for...
							sec									;our direct page...
							sbc			#DPSize
							tcs
							ina
							tcd									;set D so we now have direct page

*Done setting up environment; now do work.  Handle case for a single character of text:
							lda			PuTeDrawVerb
							cmp			#QDDrawCharVerbEqu		;single character?
							bne			PuTeItsString			;no, must be a string
							lda			#1						;length is one
							sta			PuTeStrLen
							lda			#PuTeCharToDraw			;location of character
							sta			PuTeTextPtr
							lda			#^PuTeCharToDraw
							sta			PuTeTextPtr+2
							bra			PuTeGotString

*Handle case for pascal string:
PuTeItsString				lda			PuTeDrawVerb
							cmp			#QDDrawTextVerbEqu		;pascal string?
							bne			PuTeNotPString			;no, not pascal string
							lda			PuTeTextLength			;get length 0..255 in word
							sta			PuTeStrLen				;store it
							bra			PuTeGotString

*Handle case for c string:
PuTeNotPString				cmp			#QDDrawCStrVerbEqu		;c string?
							beq			PuTeItsCString			;yes
							brl			PuTeExitErrorInACC		;no, error...
PuTeItsCString				lda			PuTeTextPtr				;will need [dp] addressing...
							sta			ParamLongA
							lda			PuTeTextPtr+2
							sta			ParamLongA+2
							ldy			#0						;count to get length
							shortm
PuTeCountCLen				lda			[ParamLongA],y
							beq			PuTeGotCLen
							iny
							bne			PuTeCountCLen
							longm
							lda			#-1
							brl			PuTeExitErrorInACC
PuTeGotCLen					longm
							sty			PuTeStrLen				;store length

*Now text at PuTeTextPtr, len at PuTeStrLen.  Now also get current Y,X coordinates:
PuTeGotString				pushlong	#PuTePenPos				;pass ptr where to store coords
							_GetPen								;PuTePenPos now has Y,X coords
							
*Don't continue if the string begins outside of current clipping settings:
PuTeClip					pha									;result space for PtInRgn
							pushlong	#PuTePenPos				;pass pen posn for PtInRgn
							pha									;result space for GetClipHandle
							pha									;result space for GetClipHandle
							_GetClipHandle						;stack now has space, penpos, cliphdl
							_PtInRgn							;note that we had set the grafport's
							pla									;clip region in OpenPage, and it
							bne			PuTeDontClip			;is also possible that the user has
							brl			PuTeExitUpdatePosn		;since modified it
PuTeDontClip

*Now get current font name/size/style information and arbitrarily map into native text modes:
							shortm
							stz			PuTeNativeFont			;set defaults...
							lda			#2
							sta			PuTeNativeSpacing
							stz			PuTeNativeAttributes
							longm
							pha									;get current font ID...
							pha
							_GetFontID
							pla
							plx
							cmp			#$FFFE					;if not shaston, diff font/spacing...
							beq			PuTeLookAtSize
							shortx
							ldx			#0
							stx			PuTeNativeFont
							ldx			#4
							stx			PuTeNativeSpacing
							longx
							cmp			#$0016					;if courier, special font/spacing...
							bne			PuTeNotCourier
							shortx
							ldx			#1
							stx			PuTeNativeFont
							ldx			#2
							stx			PuTeNativeSpacing
							longx
							bra			PuTeLookAtSize
PuTeNotCourier				cmp			#$0014					;if times, special font/spacing...
							bne			PuTeLookAtSize
							shortx
							ldx			#2
							stx			PuTeNativeFont
							ldx			#5
							stx			PuTeNativeSpacing
							longx
PuTeLookAtSize				pha									;get current font size...
							_GetTextSize
							pla
							beq			PuTeNotTinyText			;if 0, leave size alone...
							cmp			#8						;if < 8pt, do half-height/pitch...
							bcs			PuTeNotTinyText
							shortm
							lda			#5
							sta			PuTeNativeSpacing
							longm
							lda			#%00001000
							bra			PuTeModSizeAttr
PuTeNotTinyText				cmp			#14						;if >= 14pt, do double-width...
							bcc			PuTeNotBigText
							lda			#%00000100
PuTeModSizeAttr				shortm
							ora			PuTeNativeAttributes
							sta			PuTeNativeAttributes
							longm
PuTeNotBigText				pha									;get current font style...
							_GetTextFace
							pla
							tax
							and			#%00000001				;if bold, do boldface...
							beq			PuTeNotBold
							lda			#%00000001
							shortm
							ora			PuTeNativeAttributes
							sta			PuTeNativeAttributes
							longm
PuTeNotBold					txa
							and			#%00000100				;if underline, do underline...
							beq			PuTeNotUnderline
							lda			#%00000010
							shortm
							ora			PuTeNativeAttributes
							sta			PuTeNativeAttributes
							longm
PuTeNotUnderline			txa
							and			#%00000010				;if italic, set light font...
							beq			PuTeStoreHeader
							shortm
							lda			#1
							sta			PuTeNativeFont
							longm

*(1): Store above-obtained information for this string in spool, for playing back during ClosePage:
PuTeStoreHeader				lda			#PuTeInfoHeaderEnd-PuTeInfoHeaderBegin
							sta			ParamLongB+0
							stz			ParamLongB+2
							lda			#PuTeInfoHeaderBegin
							sta			ParamLongC+0
							lda			#^PuTeInfoHeaderBegin
							sta			ParamLongC+2
							import		SpoolPut
							jsr			SpoolPut
							cmp			#1
							bcs			PuTeExitErrorInACC

*(2): Store the actual text for current string in spool file, for playing back during ClosePage:
PuTeStoreString				lda			PuTeStrLen
							sta			ParamLongB+0
							stz			ParamLongB+2
							lda			PuTeTextPtr+0
							sta			ParamLongC+0
							lda			PuTeTextPtr+2
							sta			ParamLongC+2
							import		SpoolPut
							jsr			SpoolPut
							cmp			#1
							bcs			PuTeExitErrorInACC

*Do TextWidth and Move calls to update horizontal pen position just like normal StdText bottleproc:
PuTeExitUpdatePosn			pha									;result space for horizontal width
							pushlong	PuTeTextPtr				;pass ptr to text string
							pushword	PuTeStrLen				;pass length of text string
							_TextWidth							;calc; now hor displacement on stack
							pushword	#0						;no vertical displacement
							_Move								;adjust pen position

*Now restore previous environment and exit:
							lda			#0						;normally no error status
PuTeExitErrorInACC			tax									;save error status for a sec
							tsc									;deallocate our stack frame...
							clc
							adc			#DPSize
							tcs
							pld									;restore QD direct reg off stack
							plb									;restore QD bank reg off stack
							txa									;exit with error status in ACC/c...
							cmp			#1
							rtl

*Variables to store values retrieved from QD direct page:
PuTeDrawVerb				dc.w		0						;type of string
PuTeCharToDraw				dc.w		0						;character if string type is char
PuTeTextPtr					dc.l		0						;where actual text from QD resides
PuTeTextLength				dc.w		0						;length of text from QD

*Info header packet written to spool before text data, in this order:
PuTeInfoHeaderBegin
PuTePenPos					dc.w		0,0						;pen position on page
PuTeStrLen					dc.w		0						;our calculated string length
PuTeNativeFont				dc.b		0						;our mapped font type
PuTeNativeSpacing			dc.b		0						;our mapped font size
PuTeNativeAttributes		dc.b		0						;our mapped font face
							dc.b		0
PuTeInfoHeaderEnd







*
*DATA: Global static variables used by print loop routines that must be kept across driver calls:
*
PrintLoopErrorStatus		dc.w		0						;our global error status
PrintLoopMaskIsIWOne		dc.w		0						;bit 2 set if old IW I by PrinterOpen
PrintLoopCheckedIsIWOne		dc.w		0						;set if we just did IWOne check
PrintLoopSetupLevel			dc.w		0						;err was: 0)usr;1)spool on;2)port on
PrintLoopOldGrafPortPtr		dc.l		0						;user's grafport before OpenDoc
PrintLoopPrRecHdl			dc.l		0						;value of user's pr rec h at OpenDoc
PrintLoopUnusedPictHdl		dc.l		0						;unused handle from QD pict calls
PrintLoopIsDraft			dc.w		0						;indicate print loop method
PrintLoopIsDraftVC			dc.w		0						;for draft, if vert cond selected
PrintLoopPageCounter		dc.w		0						;OpenPage/ClosePage counter
PrintLoopNumActualPages		dc.w		0						;number of pages actually spooled
PrintLoopInPageRange		dc.w		0						;are we really spooling a page
PrintLoopEndOfPageDetect	dc.w		0						;piccomment->getpic bottleprocs data



*
*DATA: For use during, but not across, print loop routines:
*
PrintLoopRoutineData		ds.b		512						;used for text, color tables, etc.





							endproc
							end
							
							
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/NEW.IW/spool.aii b/IIGS.601.SRC/GSToolbox/PrinterDrivers/NEW.IW/spool.aii
new file mode 100644
index 0000000..8f47e73
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/NEW.IW/spool.aii
@@ -0,0 +1 @@
+
******************************************************************************************
*                                                                                        *
*		Apple IIgs New ImageWriter Printer Driver                                        *
*                                                                                        *
*		File: spool.aii -- General routines to put/get data to memory/disk virtually     *
*                                                                                        *
*		Written by Ben Koning                                                            *
*		Copyright (C) 1990 Apple Computer, Inc.                                          *
*                                                                                        *
******************************************************************************************






							include		'equates.aii'
							
							
							include		'm16.util'
							include		'm16.memory'
							include		'e16.GSOS'
							include		'm16.GSOS'
							include		'm16.misctool'
							include		'm16.intmath'
							include		'm16.locator'
							

SpoolProc					proc		export





*
*DATA SPOOLING ROUTINES: These routines spool data away to disk, memory, or both.  The
*six entry points defined below should remain the same no matter where the data is spooled to.
*These routines maintain their own globals in static memory, because their values must be
*preserved across print manager calls into this driver.  The author has attempted to keep
*these calls as generic (ie, un-printer-driver-specific) as possible.
*
*The entry points SPOOLSTARTPUT/SPOOLPUT/SPOOLFINISHPUT and SPOOLSTARTGET/SPOOLGET/SPOOLFINISHGET
*are self-explanatory.  On entry "ParamLongB" should have the number of bytes to save/restore,
*and "ParamLongC" should have a pointer of where the data will be read/written to.  The accumulator
*will be nonzero if an error occurred.  SPOOLGET returns an $FFFF error code if end of data; in
*other cases the error code will be that which was returned from a tool call or GS/OS call.
*
*The two routines SPOOLMARKGET/SPOOLRETURNTOMARKGET allow the caller to arrange for the SPOOLGET
*routine to repeatedly return to the same point.  A typical scenario would involve a few SPOOLGET
*calls, then a SPOOLMARKGET, some more SPOOLGET calls, and then a SPOOLRETURNTOMARKGET which would
*cause the next SPOOLGET to retrieve data from the afore-marked position in the spool data.
*
*The spooling strategy is as follows:  Data will be stored in memory until memory starts to
*run out, at which time data will be stored to disk, using the memory already allocated as a buffer.
*If more memory should become available, it will be used.  While storing data to memory, the Memory
*Manager is called at pre-defined intervals (8K, for example) as more memory is needed, using
*SetHandleSize.  Before SetHandleSize is called, we see if memory is getting full;
*if memory size is a value less than an pre-defined threshold (32K, for example), then
*memory is considered to be running out.  This strategy will hopefully avoid memory compaction
*and keep tools and other drivers alive.  When the decision to go to disk has been made, a flag
*indicating this fact will be set, the entire range of memory used for spooling so far will be
*written out, and the spool process will continue, using the amount of memory obtained as a
*buffer, which, when full, will be written out to disk.  The disk pathname is "*/SYSTEM/DRIVERS/
*TMP.XXXX", where the trailing X's are replaced by a random number.  If such a pathname already
*exists, then we try to generate a new name.  If the caller is using their own pathname, then
*no such suffix-appending-and-retrying will be done.  If the amount of data to be spooled exceeds
*even the size of the big buffer we now have in memory, then it will be written to disk directly.
*If the boot volume's FST is AppleShare, then the temporary file is written to the directory
*pointed to by the GetUserPath call.
*
*If the caller wants to use its own spool filename, it must store a pointer to its filename in
*"SpoolFileNamePtr".  This is done by PrOpenDoc in order to allow the user to specify their own
*spool file.  This must be done AFTER calling "SpoolStartPut", which installs a default
*filename, which "SpoolPut" later makes sure is unique by trying random suffixes.  Once a filename
*has been chosen (by virtue of "SpoolPut" having been called), the rest of the routines will deal
*only with that filename, and it should not be modified.  This means that PrPicFile cannot be
*called standalone, with an arbitrary filename stuck in the print record, at some arbitrary
*time, without first having gone through the PrOpenDoc/PrCloseDoc printing loop.  This limitation
*is due to the fact that this is a dynamic, hybrid memory and disk-based spooler.  This limitation
*could easily be lifted if the entire document were always spooled entirely to disk.
*
*In a similar fashion, if the caller wants to set their own handle-increment and memory-limit-
*threshold values, it must modify the globals "SpoolMemInc" and/or "SpoolMemLeftLimit" AFTER
*doing the "SpoolStartPut" call, which installs default values into these static variables.
*





*
*SPOOLSTARTPUT: Prepare to store data. Call before using SPOOLPUT; ACC->Err:
*
							export		SpoolStartPut
							
SpoolStartPut				
							
*Assume standard spool name in case we have to spool to disk:
							lda			#SpoolFileName				;assume our standard file name
							sta			SpoolFileNamePtr+0			;the user can modify this
							lda			#^SpoolFileName				;after this call is completed,
							sta			SpoolFileNamePtr+2			;since it doesn't yet open it
							
*Assume standard handle-grow size policy:
							lda			#SpoolMemIncDefault//65536
							sta			SpoolMemInc+0
							lda			#SpoolMemIncDefault/65536
							sta			SpoolMemInc+2
							
*Assume standard memory-left-go-to-disk threshold policy:
							lda			#SpoolMemLeftLimitDefault//65536
							sta			SpoolMemLeftLimit+0
							lda			#SpoolMemLeftLimitDefault/65536
							sta			SpoolMemLeftLimit+2
							
*Assume we don't have to go to disk:
							stz			SpoolToDisk
							
*Zero our length and pointer variables:
							stz			SpoolDataLen+0
							stz			SpoolDataLen+2
							stz			SpoolHandlePos+0
							stz			SpoolHandlePos+2
							
*Try to get a handle; the first block:
							pha										;result space for GetNewID
							pushword	#UserIDType					;who is requesting memory
							_GetNewID
							plx										;save ID in x reg
							stx			SpoolPID					;save ID for later disposal
							bcs			StartPutRts					;if error, exit with acc set
							pha										;result space for NewHandle
							pha										;...result space
							pushlong	SpoolMemInc					;allocate desired size
							phx										;user ID just obtained
							pushword	#0							;can be anywhere, move anywhere
							pha										;location ptr...
							pha										;...will be ignored
							_NewHandle
							
*Store handle for repeated use:
							plx
							ply
							stx			SpoolHandle+0				;save handle in static variable
							sty			SpoolHandle+2				;...while preserving acc
							bcs			StartPutRts					;if error, exit with acc set

*Initialize space left in handle:
							lda			SpoolMemInc
							sta			SpoolHandleFree
							lda			SpoolMemInc+2
							sta			SpoolHandleFree+2

*Get out:
							lda			#0							;no error happened
StartPutRts					rts





*
*SPOOLFINISHPUT: Done storing data. Call after done using SPOOLPUT; ACC->Err:
*
							export		SpoolFinishPut

*If we never went to disk, don't do anything:
SpoolFinishPut				lda			SpoolToDisk
							beq			FinishPutRts				;exit with acc=0

*Flush last chunk out to disk:
							jsr			PutDoFlushSubr				;inside "SpoolPut"

*Deallocate our user ID and handle:
							pushlong	SpoolHandle
							_DisposeHandle
							pha										;save error status
							pushword	SpoolPID					;also remove user ID
							_DeleteID

*Close our file:
							lda			SpoolFileDescriptor			;put ref_num in param block
							sta			FinishPutCloseParamsRefNum
							
							_CloseGS	FinishPutCloseParams		;do the OS call
							
							bcs			FinishPutDiskError			;branch if disk error
							pla										;else remember MM error status
FinishPutRts				rts										;acc will have error status
FinishPutDiskError			plx										;who cares-disk err important
							rts
							
*Close-call parameter block for GS/OS:
FinishPutCloseParams		dc.w		1							;pCount
FinishPutCloseParamsRefNum	dc.w		0							;refNum: input






*
*SPOOLPUT: Spools data to disk or memory. Where->ParamLongC; NumBytes->ParamLongB; ACC->Err:
*
							export		SpoolPut
							
*Skip most of this code if request is for zero bytes:
SpoolPut					lda			ParamLongB+0
							ora			ParamLongB+2
							bne			PutTryStore
							rts												;exit with 0 in ACC

*Compare amount of data-requested-to-be-stored with current space left in handle:
PutTryStore					lda			ParamLongB+2						;hi order word of request
							cmp			SpoolHandleFree+2					;hi order word of free
							bcc			PutStoreMemSuccess					;less: it will fit!
							beq			PutTryStore1						;equal: test lo words...
							bcs			PutTryGrowHandle					;greater: won't fit!
PutTryStore1				lda			ParamLongB							;lo order word of request
							cmp			SpoolHandleFree						;lo order word of free
							beq			PutStoreMemSuccess					;equal: it will fit!
							bcc			PutStoreMemSuccess					;less: it will fit!
							bra			PutTryGrowHandle					;(greater): won't fit!

*Data will fit in current handle!  Deref, add handlepos, store, inc handlepos, dec handlefree:
PutStoreMemSuccess			lda			SpoolHandle							;dereference...
							sta			ParamLongA
							lda			SpoolHandle+2
							sta			ParamLongA+2
							clc
							lda			[ParamLongA]						;get pointer lo word
							adc			SpoolHandlePos						;add handle position lo
							tax
							ldy			#2
							lda			[ParamLongA],y						;get pointer hi word
							adc			SpoolHandlePos+2					;add handle position hi
							sta			ParamLongA+2
							stx			ParamLongA							;now ptr to data space
							pushlong	ParamLongC							;source
							pushlong	ParamLongA							;destination
							pushlong	ParamLongB							;count
							_BlockMove
							clc												;inc handlepos...
							lda			SpoolHandlePos
							adc			ParamLongB
							sta			SpoolHandlePos
							lda			SpoolHandlePos+2
							adc			ParamLongB+2
							sta			SpoolHandlePos+2
							sec												;dec handlefree...
							lda			SpoolHandleFree
							sbc			ParamLongB
							sta			SpoolHandleFree
							lda			SpoolHandleFree+2
							sbc			ParamLongB+2
							sta			SpoolHandleFree+2

*Increment length of data and exit:
PutIncDataLenSuccess		clc												;inc datalen...
							lda			SpoolDataLen
							adc			ParamLongB
							sta			SpoolDataLen
							lda			SpoolDataLen+2
							adc			ParamLongB+2
							sta			SpoolDataLen+2

*Exit without error:
							lda			#0
							rts

*Data won't fit in current handle, so see if we have enough space left to enlarge it:
PutTryGrowHandle			pha												;result space...
							pha
							_RealFreeMem
							pla
							sta			ParamLongA+0
							pla
							sta			ParamLongA+2
							cmp			SpoolMemLeftLimit+2
							bcc			PutNoMoreMemory						;less: no more room!
							beq			PutTryGrowHandle1					;equal: test lo word...
							bra			PutDoGrowHandle						;(greater): ok to grow!
PutTryGrowHandle1			lda			ParamLongA							;compare lo words...
							cmp			SpoolMemLeftLimit+0
							bcc			PutNoMoreMemory						;less: no more room!
							beq			PutNoMoreMemory						;equal: no more room!

*We have enough memory left in the system, so grow our handle by a chunk:
PutDoGrowHandle				pha												;result space...
							pha
							pushlong	SpoolHandle
							_GetHandleSize
							clc												;add memory increment...
							lda			SpoolMemInc+0						;... right on stack
							adc			1,s
							sta			1,s
							lda			SpoolMemInc+2
							adc			3,s
							sta			3,s
							pushlong	SpoolHandle
							_SetHandleSize									;allocate more memory
							bcs			PutNoMoreMemory						;ensure call didn't fail
							clc												;also inc handlefree...
							lda			SpoolHandleFree+0
							adc			SpoolMemInc+0
							sta			SpoolHandleFree+0
							lda			SpoolHandleFree+2
							adc			SpoolMemInc+2
							sta			SpoolHandleFree+2

*Now see if we can store our data in our newly grown memory area:
							brl			PutTryStore

*Case where can't grow handle bigger, so see if disk flag is set (ie, we have been writing to disk):
PutNoMoreMemory				lda			SpoolToDisk
							beq			PutTryOpenFile						;not yet, so go open file
							brl			PutDoFlush							;yes, so write to disk

*Check if user's filename or using our default; do NOT go here after network name-stuff below:
PutTryOpenFile				lda			#1
							sta			ParamWordA							;assume user filename
							lda			SpoolFileNamePtr+0					;theirs or ours?
							cmp			#SpoolFileName
							beq			PutTryOpenItsOurFileName1
							brl			PutTryCreateFile					;its theirs
PutTryOpenItsOurFileName1	lda			SpoolFileNamePtr+2
							cmp			#^SpoolFileName
							beq			PutTryOpenItsOurFileName2
							brl			PutTryCreateFile					;its theirs
PutTryOpenItsOurFileName2	stz			ParamWordA							;it must be ours!
							
*If it's our default name, we guarantee uniqueness by repeatedly trying random suffixes:
PutTrySuffix				pha												;result space...
							pha
							_GetTick										;get random number
							pla
							plx												;use lo word only
							phx												;result space...
							phx
							pha												;pass rnd
							_HexIt
							pulllong	SpoolFileNameUnique					;store ascii suffix

*Also if it's our default name, check if on network; if so modify the path to use USER's directory:
PutGenNetName
							_DInfoGS	PutDInfoParams						;get boot-dev name
							bcs			PutGenNetNameAssNotNetwork
							
							_VolumeGS	PutVolumeParams						;get boot FST ID
							
							bcs			PutGenNetNameAssNotNetwork
							lda			PutVolumeParamsFstID
							cmp			#$000D								;is it appleshare FST?
							beq			PutGenNetNameGoOn					;yes, so continue
PutGenNetNameAssNotNetwork	brl			PutDoneModForNetwork				;no, so continue
PutGenNetNameGoOn			
							_FSTSpecific PutGetUsrPathParams				;do FSTSpecific call
							
							bcs			PutGenNetNameAssNotNetwork
							
							lda			PutGetUsrPathParamsPfxPtr+0			;access pathname
							sta			ParamLongA+0
							lda			PutGetUsrPathParamsPfxPtr+2
							sta			ParamLongA+2
							
							lda			[ParamLongA]						;copy pathname...
							sta			SpoolNetFileName+0					;copy length word first
							shortm
							ldy			#2									;y starts beyond len wrds
							ldx			#0									;x is count of len
PutGenNetNameCopy			lda			[ParamLongA],y						;copy a byte
							sta			SpoolNetFileName,y
							iny												;bump address
							inx												;bump string count
							cpx			SpoolNetFileName+0					;go until length
							bne			PutGenNetNameCopy
							longm											;y points to next index
							
							shortm											;add ':' separator
							lda			#':'
							sta			SpoolNetFileName,y
							longm
							iny
							
							lda			#'T'+('M'*256)						;add 'TMP.'
							sta			SpoolNetFileName,y
							iny
							iny
							lda			#'P'+('.'*256)
							sta			SpoolNetFileName,y
							iny
							iny												;y points to next index
							sty			ParamLongA+0						;save y for below
							
							pha												;result space
							pha												;result space
							_GetTick										;get random number
							pla
							plx												;use lo word only
							phx												;result space
							phx												;result space
							pha												;pass rnd, cvt to ascii,
							_HexIt											;leaves 2 words on stack
							
							ldy			ParamLongA+0						;restore y from above
							pla												;store 'XXXX' rnd digits
							sta			SpoolNetFileName,y
							iny
							iny
							pla
							sta			SpoolNetFileName,y					;not maintain y anymore
							
							lda			SpoolNetFileName+0					;we added ':TMP.XXXX',
							clc												;9 characters, so adjust
							adc			#9									;the string length
							sta			SpoolNetFileName+0
														
							lda			#SpoolNetFileName					;now make sure everyone
							sta			SpoolFileNamePtr+0					;uses the built-up name
							lda			#^SpoolNetFileName
							sta			SpoolFileNamePtr+2
PutDoneModForNetwork

*Now try to create a file for writing for the first time:
PutTryCreateFile			lda			SpoolFileNamePtr+0					;loc of name -> block...
							sta			PutCreateParamsFileNamePtr+0
							lda			SpoolFileNamePtr+2
							sta			PutCreateParamsFileNamePtr+2
							
							_CreateGS	PutCreateParams
							
							bcc			PutCreateSuccess					;go on if successful
							ldx			ParamWordA							;was it their filename?
							bne			PutExit1							;yes(+err): barf & die
							cmp			#dupPathName						;(no): not unique name?
							bne			PutExit1							;if some other err, exit
							brl			PutTrySuffix						;else, try another name
PutExit1					rts												;err in acc, exit

*File has been created on disk; now open it for writing and set To-Disk flag:
PutCreateSuccess			lda			SpoolFileNamePtr+0					;loc of name -> block...
							sta			PutOpenParamsFileNamePtr+0
							lda			SpoolFileNamePtr+2
							sta			PutOpenParamsFileNamePtr+2
							
							_OpenGS		PutOpenParams
							
							bcs			PutExit1							;err shouldn't happen
							lda			PutOpenParamsRefNum					;save ref_num...
							sta			SpoolFileDescriptor
							lda			#1									;we're now disk-based!
							sta			SpoolToDisk

*Flush out to disk our filled-up handle memory:
PutDoFlush					jsr			PutDoFlushSubr
							bcs			PutExit1							;err if disk full?!!
							bra			PutContAfterFlush					;else, continue

*The following is a subroutine so it can also be used by SpoolFinishPut:
PutDoFlushSubr				lda			SpoolFileDescriptor					;ref_num -> block...
							sta			PutWriteParamsRefNum
							lda			SpoolHandle+0						;deref handle -> block...
							sta			ParamLongA+0
							lda			SpoolHandle+2
							sta			ParamLongA+2
							lda			[ParamLongA]						;get ptr lo word...
							sta			PutWriteParamsDataPtr+0
							ldy			#2									;get ptr hi word...
							lda			[ParamLongA],y
							sta			PutWriteParamsDataPtr+2
							ldy			#4									;lock for OS call...
							lda			[ParamLongA],y
							ora			#$8000
							sta			[ParamLongA],y
							lda			SpoolHandlePos+0					;pos (length) -> block...
							sta			PutWriteParamsDataLen+0
							lda			SpoolHandlePos+2
							sta			PutWriteParamsDataLen+2
							
							_WriteGS	PutWriteParams
							
							pha												;save acc error status
							ldy			#4									;unlock handle...
							lda			[ParamLongA],y
							and			#$7FFF
							sta			[ParamLongA],y
							pla												;restore err status
							cmp			#1									;restore carry too
							rts

*Set our pointers to reflect that we can re-use our handle memory now:
PutContAfterFlush			stz			SpoolHandlePos						;pos = 0...
							stz			SpoolHandlePos+2
							pha												;free = GetHandleSize...
							pha
							pushlong	SpoolHandle
							_GetHandleSize
							pulllong	SpoolHandleFree

*If we have enough memory to handle store-request into our now-reusable handle-memory, do it:
							lda			ParamLongB+2						;how much we need hi word
							cmp			SpoolHandleFree+2					;cmp with what we have
							beq			PutTryStoreII1						;equal: test lo words
							bcs			PutDirectToDisk						;greater: still not enuf
PutTryStoreIIOk				brl			PutStoreMemSuccess					;less: go store it!
PutTryStoreII1				lda			ParamLongB							;how much we need lo word
							cmp			SpoolHandleFree						;cmp with what we have
							bcc			PutTryStoreIIOk						;less: go store it!

*We flushed our buffer to disk but still can't handle data store request; so save directly to disk:
PutDirectToDisk				lda			SpoolFileDescriptor					;ref_num -> block...
							sta			PutWriteParamsRefNum
							lda			ParamLongC+0						;user's ptr -> block...
							sta			PutWriteParamsDataPtr+0
							lda			ParamLongC+2
							sta			PutWriteParamsDataPtr+2
							lda			ParamLongB+0						;user's len -> block...
							sta			PutWriteParamsDataLen+0
							lda			ParamLongB+2
							sta			PutWriteParamsDataLen+2
							
							_WriteGS	PutWriteParams
							
							bcs			PutExit2							;err, exit with acc set			
							brl			PutIncDataLenSuccess				;inc and exit no err
PutExit2					rts

*Create-call parameter block for GS/OS:
PutCreateParams				dc.w		2									;pCount
PutCreateParamsFileNamePtr	dc.l		0									;pathnm ptr: input
							dc.w		%10000011							;access: --------Drb--iWR
							
*Open-call parameter block for GS/OS:
PutOpenParams				dc.w		2									;pCount
PutOpenParamsRefnum			dc.w		0									;ref_num: result
PutOpenParamsFileNamePtr	dc.l		0									;pathnm ptr: input

*Write-call parameter block for GS/OS:
PutWriteParams				dc.w		5									;pCount
PutWriteParamsRefNum		dc.w		0									;ref_num: input
PutWriteParamsDataPtr		dc.l		0									;data_buffer: input
PutWriteParamsDataLen		dc.l		0									;request_count: input
							dc.l		0									;transfer_count: result
							dc.w		0									;cache_priority: input
							
*DInfo-call parameter block for GS/OS:
PutDInfoParams				dc.w		2									;pCount
							dc.w		1									;dev_num: input: 1=boot
							dc.l		PutDevName							;dev_name outbuff: input
							
*Device name storage buffer:
PutDevName					dc.w		36									;buffer length
PutDevName2					dc.w		0									;string length
							ds.b		32									;buffer for device name

*Volume-call parameter block for GS/OS:
PutVolumeParams				dc.w		5									;pCount
							dc.l		PutDevName2							;dev_name: input
							dc.l		PutVolName							;vol_name outbuff: input
							dc.l		0									;total blocks: result
							dc.l		0									;free blocks: result
PutVolumeParamsFstID		dc.w		0									;fst_id: result

*Volume name storage buffer:
PutVolName					dc.w		36									;buffer length
PutVolName2					dc.w		0									;string length
							ds.b		32									;buffer for volume name

*FST-specific GetUserPath parameter block for GS/OS:
PutGetUsrPathParams			dc.w		3									;pCount
							dc.w		$000D								;fst_id: inp: appleshare
							dc.w		8									;cmd: input: getuserpath
PutGetUsrPathParamsPfxPtr	dc.l		0									;prefix_ptr: result

							









*
*SPOOLSTARTGET: Prepare to retrieve data. Call this before using SPOOLGET; ACC->Err:
*
							export		SpoolStartGet

*SpoolHandlePos = 0; Will be used for offset into handle if spooled to memory:
SpoolStartGet				stz			SpoolHandlePos+0			;this will be used for offset...
							stz			SpoolHandlePos+2			;into handle, if not to-disk

*SpoolHandleFree = SpoolDataLen; Will be used to check space left in playback:
							lda			SpoolDataLen+0				;this wil be used for making...
							sta			SpoolHandleFree+0			;sure caller doesn't request...
							lda			SpoolDataLen+2				;more data than stored. note...
							sta			SpoolHandleFree+2			;"misuse" of SpoolHandleFree

*If we never went to disk, done:
							lda			SpoolToDisk					;did we ever go to disk?
							beq			StartGetInitMark			;no, and leave 0 in acc for exit

*We spooled, so open the current file for reading:
							lda			SpoolFileNamePtr+0			;put pointer to pathname
							sta			StartGetOpenParamsNamePtr+0	;...into parameter block.  This
							lda			SpoolFileNamePtr+2			;pathname might be ours or
							sta			StartGetOpenParamsNamePtr+2	;the user's
							
							_OpenGS		StartGetOpenParams
							
							bcs			StartGetExitError			;exit with acc set if error
							lda			StartGetOpenParamsRefNum	;get ref_num (file descriptor)
							sta			SpoolFileDescriptor
							lda			#0							;error didn't happen
StartGetInitMark			brl			SpoolMarkGet				;exit to init mark/restore call
StartGetExitError			rts

*Open-call parameter block for GS/OS:
StartGetOpenParams			dc.w		2							;pCount
StartGetOpenParamsRefNum	dc.w		0							;ref_num: result
StartGetOpenParamsNamePtr	dc.l		0							;pathname ptr: input






*
*SPOOLFINISHGET: Finished retrieving data. Call when done using SPOOLGET; ACC->Err:
*
							export		SpoolFinishGet

*Decide if we went to disk or memory:
SpoolFinishGet				lda			SpoolToDisk
							bne			FinishGetWentDisk

*Went to memory only, so deallocate handle and user ID:
							pushlong	SpoolHandle
							_DisposeHandle
							pha										;save error status if any
							pushword	SpoolPID
							_DeleteID
							pla										;restore error status
							rts										;exit with error status in acc

*Went to disk, so close the file:
FinishGetWentDisk			lda			SpoolFileDescriptor			;put refnum -> block
							sta			FinishGetCloseParamsRefNum
							
							_CloseGS	FinishGetCloseParams		;make the OS call
							
							pha										;save error status

*Now delete the file:
							lda			SpoolFileNamePtr+0			;put filename ptr -> block
							sta			FinishGetDestParamsFNameP+0
							lda			SpoolFileNamePtr+2
							sta			FinishGetDestParamsFNameP+2
							
							_DestroyGS	FinishGetDestParams			;make the OS call
							
							bcs			FinishGetDestroyErr			;branch if error from DESTROY
							pla										;else remember CLOSE err status
							rts										;and exit
FinishGetDestroyErr			plx										;dump CLOSE err status
							rts										;and exit with DESTROY err status
							
*Close-call parameter block for GS/OS:
FinishGetCloseParams		dc.w		1							;pCount
FinishGetCloseParamsRefNum	dc.w		0							;refNum: input

*Destroy-call parameter block for GS/OS:
FinishGetDestParams			dc.w		1							;pCount
FinishGetDestParamsFNameP	dc.l		0							;pathname: input






*
*SPOOLGET: Retrieves data. Where->ParamLongC; NumBytesWanted->ParamLongB; ACC->Err ($FFFF=end data):
*
							export		SpoolGet
							
*Skip most of this code if the request is for zero bytes:
SpoolGet					lda			ParamLongB+0
							ora			ParamLongB+2
							bne			GetGo1
							rts											;exit with 0 in ACC

*Make sure there is enough data left to handle the caller's request:
GetGo1						lda			ParamLongB+2					;compare hi words
							cmp			SpoolHandleFree+2
							beq			GetCmpLo						;equal, go compare lo words
							bcc			GetCheckSource					;less, go do it
GetEndOfData				lda			#$FFFF							;our signal for end of data
							rts
GetCmpLo					lda			ParamLongB						;compare lo words
							cmp			SpoolHandleFree
							beq			GetCheckSource					;equal, ok
							bcs			GetEndOfData					;greater, not ok

*Decide if the data is on disk or in memory:
GetCheckSource				lda			SpoolToDisk
							bne			GetFromDisk

*Data in memory; deref+add offset and blockmove the data; no need to lock because no OS calls:
							lda			SpoolHandle						;dereference...
							sta			ParamLongA
							lda			SpoolHandle+2
							sta			ParamLongA+2
							clc
							lda			[ParamLongA]					;get pointer lo word
							adc			SpoolHandlePos					;add handle position lo
							tax
							ldy			#2
							lda			[ParamLongA],y					;get pointer hi word
							adc			SpoolHandlePos+2				;add handle position hi
							pha											;hi word source
							phx											;lo word source
							pushlong	ParamLongC						;destination
							pushlong	ParamLongB						;count
							_BlockMove
							clc											;inc handlepos...
							lda			SpoolHandlePos
							adc			ParamLongB
							sta			SpoolHandlePos
							lda			SpoolHandlePos+2
							adc			ParamLongB+2
							sta			SpoolHandlePos+2
							bra			GetDecExitSuccess

*Data on disk; just read requested bytes.  GS/OS's caching will help performance here:
GetFromDisk					lda			SpoolFileDescriptor				;ref_num...
							sta			GetReadParamsRefNum				;-> block
							lda			ParamLongC+0					;request buffer...
							sta			GetReadParamsBuffPtr+0			;-> block
							lda			ParamLongC+2
							sta			GetReadParamsBuffPtr+2
							lda			ParamLongB+0					;request length...
							sta			GetReadParamsCount+0			;-> block
							lda			ParamLongB+2
							sta			GetReadParamsCount+2
							
							_ReadGS		GetReadParams
							
							bcs			GetRts1							;err, exit with acc set

*Successful exit in both cases; dec SpoolHandleFree, which is relevant even if reading from disk:
GetDecExitSuccess			sec
							lda			SpoolHandleFree					;subtract lo word
							sbc			ParamLongB
							sta			SpoolHandleFree
							lda			SpoolHandleFree+2				;subtract hi word
							sbc			ParamLongB+2
							sta			SpoolHandleFree+2
							lda			#0								;no error
GetRts1						rts

*Read-call parameter block for GS/OS:
GetReadParams				dc.w		5								;pCount
GetReadParamsRefNum			dc.w		0								;ref_num: input
GetReadParamsBuffPtr		dc.l		0								;data_buffer: input
GetReadParamsCount			dc.l		0								;request_count: input
							dc.l		0								;transfer_count: result
							dc.w		1								;cache_priority






*
*SPOOLMARKGET: Sets mark in spool data to which we can come back later.  Use only during playback:
*
							export		SpoolMarkGet

*Save current position:
SpoolMarkGet				lda			SpoolHandlePos+0
							sta			SpoolMarkHandlePos+0
							lda			SpoolHandlePos+2
							sta			SpoolMarkHandlePos+2

*Save current space left:
							lda			SpoolHandleFree+0
							sta			SpoolMarkHandleFree+0
							lda			SpoolHandleFree+2
							sta			SpoolMarkHandleFree+2

*If we didn't go to disk, we're done:
							lda			SpoolToDisk
							beq			MarkGetDone

*Save current file pointer location:
							lda			SpoolFileDescriptor
							sta			MarkGetParamsRefNum
							
							_GetMarkGS	MarkGetParams
							
							lda			MarkGetParamsPosition+0
							sta			SpoolMarkDiskPos+0
							lda			MarkGetParamsPosition+2
							sta			SpoolMarkDiskPos+2

*Exit:							
MarkGetDone					rts

*GetMark-call parameter block for GS/OS:
MarkGetParams				dc.w		2								;pCount
MarkGetParamsRefNum			dc.w		0								;ref_num: input
MarkGetParamsPosition		dc.l		0								;position: result







*
*SPOOLRETURNTOMARKGET: Restores position to mark set above. Only for playback:
*
							export		SpoolReturnToMarkGet

*Restore previous position:
SpoolReturnToMarkGet		lda			SpoolMarkHandlePos+0
							sta			SpoolHandlePos+0
							lda			SpoolMarkHandlePos+2
							sta			SpoolHandlePos+2

*Restore previous space left:
							lda			SpoolMarkHandleFree+0
							sta			SpoolHandleFree+0
							lda			SpoolMarkHandleFree+2
							sta			SpoolHandleFree+2

*If we didn't go to disk, we're done:
							lda			SpoolToDisk
							beq			MarkReturnDone

*Restore previous file pointer location:
							lda			SpoolFileDescriptor
							sta			MarkReturnParamsRefNum
							lda			SpoolMarkDiskPos+0
							sta			MarkReturnParamsPosition+0
							lda			SpoolMarkDiskPos+2
							sta			MarkReturnParamsPosition+2
							
							_SetMarkGS	MarkReturnParams
							

*Exit:							
MarkReturnDone				rts

*SetMark-call parameter block for GS/OS:
MarkReturnParams			dc.w		3								;pCount
MarkReturnParamsRefNum		dc.w		0								;ref_num: input
							dc.w		0								;base: input
MarkReturnParamsPosition	dc.l		0								;position: input






*
*DATA: Static globals which needs to be preserved across calls to these routines:
*Note: SpoolDataSize is kept valid even if spooling is going to disk!
*
							export		SpoolFileNamePtr					;user modifyable
							export		SpoolMemInc							;user modifyable
							export		SpoolMemLeftLimit					;user modifyable
SpoolDataLen				dc.l		0									;total length of data
SpoolHandle					dc.l		0									;handle to data
SpoolHandleFree				dc.l		0									;space left in handle
SpoolHandlePos				dc.l		0									;current data position
SpoolMarkHandlePos			dc.l		0									;for mark/return
SpoolMarkHandleFree			dc.l		0									;for mark/return
SpoolMarkDiskPos			dc.l		0									;for mark/return
SpoolMemInc					dc.l		0									;amount to grow handle
SpoolMemLeftLimit			dc.l		0									;go-to-disk threshold
SpoolToDisk					dc.w		0									;1=if spooling to disk
SpoolFileDescriptor			dc.w		0									;"ref_num" for GS/OS
SpoolPID					dc.w		0									;user ID for malloc calls
SpoolFileNamePtr			dc.l		0									;ptr to actual spool name

SpoolFileName				dc.w		SpoolFileNameEnd-SpoolFileNameStart	;our default spool name
SpoolFileNameStart			dc.b		'*/SYSTEM/DRIVERS/TMP.'				;this part stays same
SpoolFileNameUnique			dc.b		'XXXX'								;this gets rand suffix
SpoolFileNameEnd

SpoolNetFileName			dc.w		0									;gets built-up name
							ds.b		80




							
							endproc
							end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/Printer/dialogdata.asm b/IIGS.601.SRC/GSToolbox/PrinterDrivers/Printer/dialogdata.asm
new file mode 100644
index 0000000..3c2c3dc
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/Printer/dialogdata.asm
@@ -0,0 +1 @@
+			STRING ASIS
			BLANKS OFF
			
**********************************************************************
*
*	Printer Port Driver version 2.1
*   Copyright Apple Computer, Inc. 1986-1989
*	All rights reserved.
*
**********************************************************************

			
			MACRO
&lab		str &string
			EXPORT &lab						; export the label
			LCLC &EIB						; declare a temporary var to hold current string setting
&EIB		SETC &SETTING('STRING') 		; put current string setting into temp
			STRING PASCAL					; Set string type to pascal.
&lab		DC.B	&string 				; make the string
			STRING &EIB 					; restore orig string settings
			MEND


			include 'e16.dialog'


		EXPORT	DialogData     
DialogData     PROC
;------------------------------------------------------------
;
; data used by manual feed alert box
;

;------------------------------------------------------------
;
; 640 mode
; 
		EXPORT	alerttemp640
alerttemp640	DC.W	30,40,75,600		; bounds rect
				DC.W	1301				; id
				DC.B	$80
				DC.B	$80
				DC.B	$80
				DC.B	$80
				DC.L	item1_640			; Continue
				DC.L	item2_640			; text
				DC.L	0000


		EXPORT	item1_640
item1_640	DC.W	1	; id
			DC.W	22,470,0,0				; bounds rect for button
			DC.W	ButtonItem				; type
			DC.L	But1					; item descriptor - "Continue"
			DC.W	00						; item value
			DC.W	0						; item flag
			DC.L	0						; item color

		EXPORT	item2_640
item2_640	DC.W	2	; id
			DC.W	3,100,43,400			; bounds rect for button
			DC.W	LongStatText			; type
			DC.L	Msg1_640				; item descriptor
			DC.W	Len_Msg1_640			; item value
			DC.W	0						; item flag
			DC.L	0						; item color

But1           str 'OK'

		EXPORT	Msg1_640
Msg1_640	DC.B	$0d
			DC.B	'The printer port is not selected'
			DC.B	$0d
			DC.B	'in the Control Panel.'
Len_Msg1_640 equ *-Msg1_640
			
;------------------------------------------------------------
;
; 320 mode
; 
		EXPORT	alerttemp320
alerttemp320	DC.W	30,10,95,310		; bounds rect
				DC.W	1301				; id
				DC.B	$80
				DC.B	$80
				DC.B	$80
				DC.B	$80
				DC.L	item1_320			; Continue
				DC.L	item2_320			; text
				DC.L	0000


		EXPORT	item1_320
item1_320	DC.W	1	; id
			DC.W	45,235,0,0				; bounds rect for button
			DC.W	ButtonItem				; type
			DC.L	But1					; item descriptor - "Continue"
			DC.W	00						; item value
			DC.W	0						; item flag
			DC.L	0						; item color

		EXPORT	item2_320
item2_320	DC.W	2	; id
			DC.W	3,55,63,225				; bounds rect for text
			DC.W	LongStatText			; type
			DC.L	Msg1_320				; item descriptor
			DC.W	Len_Msg1_320			; item value
			DC.W	0						; item flag
			DC.L	0						; item color
 

		EXPORT	Msg1_320
Msg1_320	DC.B	$0d
			DC.B	'The printer port is not'
			DC.B	$0d
			DC.B	'selected in the Control'
			DC.B	$0d
			DC.B	'Panel.'
Len_Msg1_320 equ *-Msg1_320			

 
		ENDP
		
		END

 
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/Printer/makefile b/IIGS.601.SRC/GSToolbox/PrinterDrivers/Printer/makefile
new file mode 100644
index 0000000..cd26949
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/Printer/makefile
@@ -0,0 +1 @@
+printer		Ä		printer.asm.obj dialogdata.asm.obj 
	Linkiigs printer.asm.obj dialogdata.asm.obj -o printer -t $BB -at $0002
	

printer.asm.obj	Ä		printer.asm
	asmiigs printer.asm
	
DialogData.asm.obj	Ä		dialogdata.asm
	asmiigs dialogdata.asm
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/Printer/printer.asm b/IIGS.601.SRC/GSToolbox/PrinterDrivers/Printer/printer.asm
new file mode 100644
index 0000000..6bc6370
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/Printer/printer.asm
@@ -0,0 +1 @@
+**********************************************************************
*
*
*                     The Print Manager 
*                 	 Printer Port Driver
*
* Coding Started Summer 1986 by Luc Barthelet and VersionSoft
*
* Version 1.1d1    May 9, 1988       Suki Lee
*
*	Added capability to read data from the printer, so we can get the ID from it.
*   In DevOpen, added calls to set the printer as input device as well. In DevRead,
*   added wait and status mechanisms, and changed call from ReadBlock to ReadLine.
* 
*
* Version 1.2
*
* June 30, 1988         Suki Lee
*    Changed macro _WriteBlock to its new name: _TextWriteBlock. 
*    Eliminated need to use Special.Macros.
*
* August 2, 1988        Suki Lee
*    Bug Fix:
*    - In system disk 4.0, the ID string from the LQ arrives sooner than the firm-
*      ware is ready to read it (due to interrupts). I/O buffering will have to be
*      enabled right after initialization rather than just before a read. Moved the
*      buffer enable code from DevRead to DevOpen. Also took out call to GetModeBits
*      to check if buffering is already on since it doesn't hurt to have it on.
* 
* August 12, 1988
*    Bug FIx:
*    - Carry was not set correctly after DevWrite, causing problems in the ImageWriter
*      driver when printing in draft mode.
*
* v2.0
* d1 October 10, 1988    Suki Lee
*    Fixed DevStartUp to remove two pointers off the stack since the same call in
*    the AppleTalk driver uses two pointers as input.
*
* d2 December 5, 1988    Suki Lee
*    The new ROM allows slot 1 and 2 to be selectable among 3 options: Printer 
*    (or Modem), AppleTalk, or Your Card. The present code checks the slot state
*    to determine if the slot is internal or external. This will not work for new
*    ROMs since AppleTalk is considered internal. The code is modified to check
*    ROM version number and check the appropriate location to determine if the slot
*    is configured correctly.
*
* d3 December 16, 1988    Suki Lee
*    Added new header to denote this as a driver which will support new calls.
*    This header is 2 words long: first word is 0 followed by a call count word.
*
* d4 January 6, 1989      Suki Lee
*     Buffering in the firmware is enabled so we can read the self ID response from 
*     the printer. There is problem with handshaking with the printer if the buffer
*     is turned off so we left it on. AppleWorks GS ran into a problem where the 
*     reset for the next page happens before last part of the page is finished, 
*     losing the remaining data. Mike Askins suggests adding code to query the output  
*     queue to make sure it is empty before the next firmware reset. Also added a 
*     flag to skip the query if the firmware has not been initialized.
*
* d5 January 18, 1989     Suki Lee
*    Removed DevInitBack since none of the code is used. Replaced it with DevAsyncRead
*    with the corrected number of parameters, 4 instead of 3. Renamed DevFillBack to
*    DevWriteBack and corrected the number of parameters from 2 to 3. Both these calls
*    currently do nothing and are not used by the printer drivers.
*
*    January 25, 1989     Suki Lee
*    Added code to reset firmware after printing so the firmware's buffers will be 
*    deallocated. Also added code to remember and reset the output redirection back 
*    to the way we found it.
*    
*    May 25, 1989         Suki Lee
*    Moved the code which queries the output buffer from DevOpen to DevClose, just 
*    before the firmware init call. The firmware was being initialized before the  
*    buffer is cleared causing the system to hang in DevOpen for the next job, waiting 
*    for a buffer which has been deallocated to clear.
*
*    August 22, 1989      Ben Koning
*    Added a zap ("Ignore all subsequent ^I commands") command to DevOpen, so that
*    ^I's ($09 or $89) in the data stream won't be interpreted and filtered out by
*    the firmware.  Removed similar zap code from DevRead.
*
*
* v2.1 for System Disk 5.0.3
*
*    NOTE: Several of the changes for v2.1 are really kludges and are implemented with the
*    understanding that they will go away when a new PRINTER/MODEM port driver is written
*    which uses a new GS/OS fast serial device driver.
*
* d1 December 19, 1989      Suki Lee
*    Modified the stack offset for DevAsyncRead to not include dpage and bank address
*    since the call never switches dpage.
*
* d2 January 2, 1990        Ben Koning
*    Removed usage of PushPtr macro.
*
* d3 May 3, 1990			Ben Koning
*    If the Battery-RAM parameters indicate 19.2K baud with all other default settings, we
*    bypass the texttool/serial-firmware and communicate with the SCC chip directly in the
*    DevWrite call only.  This allows true 19.2K baud output until a better SCC driver
*    is written.  2X perfomance gain; important for high resolution printers such as LQ, which
*    becomes about 72% faster.
*
* d4 May 25, 1990			Ben Koning
*    If the current client-printer driver is version 4.0 or greater (as found by doing a
*    PrGetDrvrVer call), then the timeout delay for the read call is much less.  This is
*    because the old drivers requested a self-ID from the printer right after giving a
*    time-consuming head recalibration command, and the printer does not respond during
*    this time.  A shorter timeout delay is necessary in cases of the IW-I being connected
*    (it doesn't reply to self-ID query) or if the cable was left unconnected or if the
*    select light on the printer is off.  This needs to be tested for backward compatibility
*    with the old IW driver and with both the ImageWriterII and the ImageWriterI.
*
* d5 June 4, 1990			Ben Koning
*    In the 19.2K baud handling code, the DCD and DSR handshake lines weren't being checked.
*
**********************************************************************
**********************************************************************
*
*	Printer Port Driver Version 2.X
*   Copyright Apple Computer, Inc. 1986-1989
*	All rights reserved.
*
**********************************************************************

;------------------------------------------
;
; Equates from procedure 
;
;------------------------------------------
VersionNb      equ $0201               ; Version 2.1
NoError        equ 0                   ; No error
PortNotOn      equ $1302               ; Port not active
True           equ $FFFF
False          equ $0000 

;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

	IMPORT	alerttemp320
	IMPORT	alerttemp640

;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

	ENTRY	CallCompletion
	ENTRY	Completion
	ENTRY	DevClose
	ENTRY	DevWriteBack
	ENTRY	DevAsyncRead
	ENTRY	DevIsItSafe
	ENTRY	DevOpen
	ENTRY	DevPrChanged
	ENTRY	DevRead
	ENTRY	DevShutDown
	ENTRY	DevStartup
	ENTRY	DevStatus
	ENTRY	DevWrite
	ENTRY	Exit10
	ENTRY	Exit4
	ENTRY	Exit6
	ENTRY	Exit8
	ENTRY	IsItSafe
	ENTRY	PortAlert
	ENTRY	PrPortVer
	ENTRY	exit0
	
*****************************
*                           *
* ...The Printer Manager... *
*  Driver for Printer Port  *
*                           *
*****************************


*               Absaddr on
*               Keep   Printer
		include 'all.macros'

 
		EXPORT	Printerport   
Printerport   PROC

;-----------------------------------------------------------
;
; Header to denote new calls supported
;

	DC.W 0						; marker
	DC.W (EndProcList-ProcList)/4 ; count of calls supported

               jmp (ProcList,x)
               rtl

		EXPORT	ProcList
ProcList	DC.L	DevPrChanged
			DC.L	DevStartup
			DC.L	DevShutDown
			DC.L	DevOpen
			DC.L	DevRead
			DC.L	DevWrite
			DC.L	DevClose
			DC.L	DevStatus
			DC.L	DevAsyncRead
			DC.L	DevWriteBack
			DC.L	PrPortVer
			DC.L	DevIsItSafe	; new call added 16 apr 87
EndProcList
 
		ENDP
;                Copy Device
************************************************************
*
* PrPortVer 
*
* Returns version # of currently installed port
*
************************************************************
		EXPORT	PrPortVer      
PrPortVer      PROC
               DefineStack 
Rtl1           Block 3
Rtl2           Block 3
Version        Word 0
 
               lda #VersionNb
               sta Version,s

               lda #0 
               jmp exit0
 
		ENDP

***************************************************************
*
* DevPrChanged
* 
* Called by Printer driver when it has been changed.  Gives
* us change to tell user there may be a problem.
* 
***************************************************************
		EXPORT	DevPrChanged   
DevPrChanged   PROC

               jsr IsItSafe
               bcc Safe

               pha
               jsr PortAlert            ; put up alert
               pla
 
Safe           jmp Exit4

		ENDP


***************************************************************
*
* DevStartup
*
*        LONG	pointer to printer name
*        LONG	pointer to zone name
*
* call does nothing for serial ports
* 
***************************************************************
		EXPORT	DevStartup     
DevStartup     PROC

               jsr IsItSafe
               jmp Exit8

		ENDP

***************************************************************
*
* DevShutDown
*
* Does even less than startup since it takes no inputs.
* 
***************************************************************
		EXPORT	DevShutDown    
DevShutDown    PROC

               jsr IsItSafe 
               jmp Exit0

		ENDP

***************************************************************
*
* DevOpen
*
*     OpenCompletion   LONG
*     Reserved         LONG
* 
***************************************************************
		EXPORT	DevOpen        
DevOpen        PROC
               DefineStack 
DevOpen_DPage  word 0
DevOpen_BReg   byte 0
DevOpen_rtl1   block 3
DevOpen_rtl2   block 3
Reserved       long 0
OpenCompletion long 0

               jsr IsItSafe
               bcc OpenSafe
               jmp Exit8

		EXPORT	OpenSafe
OpenSafe	; 

               phd
               phb
               phk       
               plb
               lda OpenCompletion,s
               sta Completion
               lda OpenCompletion+2,s
               sta Completion+2
			   
;-----------------------------------------------------------
;
; Find out what printer driver is requesting our services.  If v4.0 or greater, then
; setup for shorter read-call timeout delay.
;
               stz IsNewPrDrvrFlag
               pha
			   _PrDriverVer
			   pla
			   cmp #$0400
			   bcc isnewpr_no
			   lda #1
			   sta IsNewPrDrvrFlag
isnewpr_no


;-----------------------------------------------------------
;
; Need to save all old settings for input and output device for restoring later
; in DevClose.
;

				lda #0
				pha					; word space
				pha
				pha					; long space
				_GetInputDevice
				pla
				sta InputSlot
				pla					; high word
				sta InputSlot+2
				pla
				sta InputType
				
				lda #0
				pha					; two word spaces
				pha
				_GetInGlobals
				pla
				sta InOrMask
				pla
				sta InAndMask
				
				lda #0
				pha					; word space
				pha
				pha					; long space
				_GetOutputDevice
				pla
				sta OutputSlot
				pla					; high word
				sta OutputSlot+2
				pla
				sta OutputType
				
				lda #0
				pha					; two word spaces
				pha
				_GetOutGlobals
				pla
				sta OutOrMask
				pla
				sta OutAndMask
				
;-----------------------------------------------------------
;
; Set it up for our use now
;

               PushWord #1			; Pascal device type
               PushLong #1			; slot number
               _setInputDevice

               PushWord #$ffff
               PushWord #0
               _setInGlobals

               PushWord #0
               _inittextDev
			   
               PushWord #1			; Pascal device type
               PushLong #1			; slot number
               _setOutputDevice

               PushWord #$ffff
               PushWord #0
               _setoutGlobals

               PushWord #1
               _inittextDev
			   
               pushlong #InitGraph+1
               pushword #0
               lda InitGraph
               and #$00ff
               pha
               _TextWriteBlock

;-----------------------------------------------------------
;
; We need to enable the buffering for input characters via the firmware.
; Experience has shown that if the input buffering is disabled, we can 
; only get two characters from the ReadLine call. 
;
			   
			   pushlong #BuffEnable			; turn I/O buffering on
			   _WriteString
			   
;-----------------------------------------------------------
;
; Make sure that no characters are interpreted by the firmware
; as commands (ie, send all data RAW).
;

			   pushlong #Zap					; ignore all subsequent ^I commands
			   _WriteString
			   
;-----------------------------------------------------------
;
; Check to see if the Battery-RAM settings for slot 1 imply 19.2K baud
; with all other default options.  If so, then set flag to allow direct
; SCC communication/firware bypass kludge for greater speed.
;

NKBaudQualify

				stz NKBaudEnableFlag			;clear enable flag; assume not defaults/19.2KB

				ldy #0							;prepare to loop to check BRAM against our table
NKBaudQualLoop	phy								;save Y = index into tables
				lda NKBaudBattRAMLocs,y			;find out a BRAM parameter that we should check
				pha								;result space
				pha								;pass BRAM param no.
				_ReadBParam
				pla								;obtain BRAM value
				ply								;restore Y = index into tables
				cmp NKBaudBattRAMVals,y			;compare BRAM value against table
				bne NKBaudQualDone				;break off the search as soon as one doesn't match
				iny								;else continue checking
				iny
				cpy #NKBaudBattRAMLen
				bne NKBaudQualLoop
				lda #1							;all BRAM params are as we want, so set enable flag
				sta NKBaudEnableFlag
				
NKBaudQualDone			

;-----------------------------------------------------------
;
; Call user's completion routine, if any, and exit.
			   
			   
               jsl CallCompletion
               plb
               pld
               jmp Exit8

		EXPORT	CallCompletion
CallCompletion		;		
               lda Completion
               ora Completion+2
               bne doit
               Rtl
		EXPORT	Doit
Doit	; 
               lda Completion+1
               pha
               phb
               pla
               lda Completion
               sec
               sbc #1
               pha
               rtl


		EXPORT	Completion
Completion		;		
		DS.B 4


			EXPORT	InitGraph
InitGraph	DC.B	14
			DC.B	09,67,68			; disable line formating, (CD)
			DC.B	09,84				; disable basic tab (T)
			DC.B	09,70,68			; disable keyboard input (FD)
			DC.B	09,77,68			; disable filtering LF (MD)
			DC.B	09,76,68			; disable LF after CF (LD)

BuffEnable	DC.B 3		; length
			DC.B $09	; Control-I
			DC.B 'BE'	; Enable buffer

Zap			DC.B 2
			DC.B $09
			DC.B 'Z'	;  zap



						export IsNewPrDrvrFlag
IsNewPrDrvrFlag			dc.w	0



NKBaudBattRAMLen		equ		2*11
NKBaudBattRAMLocs		dc.w	$08,$06,$01,$07,$02,$03,$05,$04,$09,$0A,$0B
NKBaudBattRAMVals		dc.w	2,14,0,6,0,1,0,0,1,1,0

						export	NKBaudEnableFlag
NKBaudEnableFlag		dc.w	0



			EXPORT InputSlot
InputSlot	DS.B 4
			EXPORT InputType
InputType	DS.B 2
			EXPORT InOrMask
InOrMask	DS.B 2
			EXPORT InAndMask
InAndMask	DS.B 2
			EXPORT OutputSlot
OutputSlot	DS.B 4
			EXPORT OutputType
OutputType	DS.B 2
			EXPORT OutOrMask
OutOrMask	DS.B 2
			EXPORT OutAndMask
OutAndMask	DS.B 2

			ENDP

***************************************************************
*
* DevRead
*
*    Input
*       PtrToBuffer   LONG
*       MaxToXfer     WORD
*
*    Output
*       XferCount     WORD
*
***************************************************************
		EXPORT	DevRead        
DevRead        PROC
               DefineStack
DevRead_DPage  word 0
DevRead_BReg   byte 0
DevRead_rtl1   block 3
DevRead_rtl2   block 3
ReadRqd        word 0    10
PtrReadBuf     long 0    12
readTrnsfrd    word 0    16

               jsr IsItSafe
               bcc ReadSafe
               jmp Exit6 

ReadSafe	;
               phd
               phb
               phk
               plb

			   lda PtrReadBuf+2,s
			   sta readBuf+2
			   lda PtrReadBuf,s
			   sta readBUf
			   lda ReadRqd,s
			   sta requestCount

;-----------------------------------------------------------
;
; Aug 2, 1988 Suki Lee
; Moved buffer enable code to DevOpen. Also removed extended interface call 
; to firmware to check if buffer is enabled
;

;-----------------------------------------------------------
;
; This read routine has a timeout delay.  In the old printer drivers (<4.0),
; the status-query read is done right after the given command to perform
; head recalibration.
;
; The ImageWriter II will not respond while the print head is moving. 
; Since we always reset the printer for each print job, it means that
; the head is always moving.  The only difference is the distance it has
; to travel to the left edge.  This counter value will work for the worst
; case of when the printer was at the right edge when it was reset.  The
; wait is noticable on ImageWriter I's since it has to wait out the whole
; count.
;
; The above will now happen only if the current printer driver version is
; less than 4.0; otherwise, a much shorter timeout value is used.
;
			   
			   lda #$FFFF				; wait loop counter = $FFFF if old printer driver (~45 s)
			   import IsNewPrDrvrFlag
			   ldx IsNewPrDrvrFlag
			   beq setup_counter
			   lda #$0B00				; wait loop counter is less if new printer driver (~2 s)
setup_counter  sta counter
			   
LoopStatus
			   lda #0
			   pha
			   pha
			   pha
			   pha						; result spaces
			   inc a					; A reg: input request = 1
			   pha						
			   lda #$00C1				; X reg
			   pha
			   lda #$0010				; Y reg
			   pha
			   lda >$00C110				; status offset
			   clc
			   adc #$C100				; entry point
			   pha
			   _FWEntry
			   pla
			   pla
			   pla
			   pla						; get processor status
			   xba						; only high byte is valid
			   and #$0001				; check the carry bit
			   bne TimeToRead			; 0 means not ready yet
			   lda counter
			   dec a
			   beq Exit
			   sta counter
			   bra loopStatus

TimeToRead	   pha						; result: actual read count
			   PushLong readBuf
			   lda requestCount			; amount to be read
			   pha
			   lda #$0D					; EOL char = carriage return
			   pha
			   lda #0
			   pha						; don't echo
			   _ReadLine
			   pla
Exit		   sta ReadTrnsfrd,s
			   
;-----------------------------------------------------------
;
; The following two line of code were taken out because it cause some
; problem with handshaking between the firmware and the printer. Mike 
; Askins is unsure of the exact cause at this point and this code is
; left here so a test case can be recreated for him
;
			   
;			   pushlong #BuffDisable		; we did, so we turn it back off
;			   _WriteString

			   plb
               pld
               jmp Exit6


readBuf			DS.B 4
requestCount	DS.B 2
counter			DS.B 2


		ENDP
		
		
		
***************************************************************
*
* DevWrite
*
*      WriteCompletion   LONG
*      SrcBufPtr         LONG
*      Length            WORD
* 
***************************************************************
		EXPORT	DevWrite       
DevWrite       PROC
               DefineStack
DevWrite_DPage word 0
DevWrite_BReg  byte 0
DevWrite_rtl1  block 3
DevWrite_rtl2  block 3
WriteLengths   word 0
WritePtrBuff   long 0
WriteCompletion long 0



                jsr IsItSafe
                bcc WriteSafe
                brl Exit10 

WriteSafe
                phd							;save D, save B, do B=K
                phb
                phk
                plb
                lda WriteCompletion,s		;setup so we can call user's completion routine
                sta Completion+0
                lda WriteCompletion+2,s
                sta Completion+2


			   
				import NKBaudEnableFlag		;check to see if default/19.2KBaud is selected
				lda NKBaudEnableFlag		;if so then do our fast shortcut kludge
				beq WriteNKBNo				;otherwise write the data through the firmware

WriteNKBYes
				lda WritePtrBuff+0,s		;writing the data out directly to the SCC chip...
				sta WriteNKBGetData+1		;set up stuffed operands
				lda WritePtrBuff+2,s
				shortm
				sta WriteNKBGetData+3
				longm
				lda WriteLengths,s
				sta WriteNKBCmpLen+1

				ldx #0						;init counter into user's data, set 8-bit mode
				shortm
WriteNKBLoop	lda >$E0C039				;poll SCC ch. A command register bit to see if ready
				tay
				bit #%00000100				;check: b5)DSR, b3)DCD, b2)TxBuffer ready
				beq WriteNKBLoop
				tya
				bit #%00100000
				beq WriteNKBLoop
				tya
				bit #%00001000
				beq WriteNKBLoop
			
WriteNKBGetData	lda >$FFFFFF,x				;NOTE: operand is stuffed.  get a byte from user
				sta >$E0C03B				;write into SCC ch. A data register
				inx							;advance our pointer into user's data
WriteNKBCmpLen	cpx #$FFFF					;NOTE: operand is stuffed
				bcc WriteNKBLoop
				longm						;reset to 16-bit mode when done
				
				jsl CallCompletion			;call user's routine, restore B/D, exit no error
				lda #0
				plb
				pld
				brl Exit10
				
WriteNKBNo


			   
                lda WritePtrBuff+2,s		;writing the data out through the serial firmware...
                pha
                lda WritePtrBuff+2,s
                pha
                lda WriteLengths+4,s
                tax
                lda #0
                pha
                phx
                _TextWriteBlock				;text tool call, calls serial firmware
				
			    pha							;exiting: save error
                jsl CallCompletion			;call user's routine
			    pla 						;restore error in A
                plb							;restore B, restore D, and exit
                pld
                brl Exit10
				


				ENDP




***************************************************************
*
* DevClose
*
* no parameters
*
***************************************************************
		EXPORT	DevClose       
DevClose       PROC

               jsr IsItSafe
			   bcc CloseSafe
               Jmp Exit0

CloseSafe      
               phd
               phb
               phk
               plb

			   php			   
			   sei				; disable interrupts
			   
				lda #0
				pha
				pha
				pha
				pha					; result spaces
				lda #GetModeBitsParam
				tax	
				and #$00FF			; A reg: low byte of address of parameters
				pha				
				txa 				; X reg: mid byte of address
				xba
				and #$00FF
				pha
				lda #^GetModeBitsParam ; Y reg: high byte of address
				and #$00FF
				pha
				lda >$00C112		; extended interface offset
				clc
				adc #$C100			; entry point
				pha
				_FWEntry
				pla
				pla
				pla
				pla	

				lda GetModeBits
				sta SetModeBits
				lda GetModeBits+2
				and #$FF7F			; clear the zap bit -- turn on ^I command interpret
				sta SetModeBits+2	

				lda #0
				pha
				pha
				pha
				pha					; result spaces
				lda #SetModeBitsParam
				tax	
				and #$00FF			; A reg: low byte of address of parameters
				pha				
				txa 				; X reg: mid byte of address
				xba
				and #$00FF
				pha
				lda #^SetModeBitsParam ; Y reg: high byte of address
				and #$00FF
				pha
				lda >$00C112		; extended interface offset
				clc
				adc #$C100			; entry point
				pha
				_FWEntry
				pla
				pla
				pla
				pla	
				
				plp				; reenable interrupt
				
				lda #0
				pha
				pha
				pha
				pha					; result spaces
				lda #GetOutBufferParam
				tax	
				and #$00FF			; A reg: low byte of address of parameters
				pha				
				txa 				; X reg: mid byte of address
				xba
				and #$00FF
				pha
				lda #^GetOutBufferParam ; Y reg: high byte of address
				and #$00FF
				pha
				lda >$00C112		; extended interface offset
				clc
				adc #$C100			; entry point
				pha
				_FWEntry
				pla
				pla
				pla
				pla	
				
loopQuery		lda #0
				pha
				pha
				pha
				pha					; result spaces
				lda #OutQStatusParam
				tax	
				and #$00FF			; A reg: low byte of address of parameters
				pha				
				txa 				; X reg: mid byte of address
				xba
				and #$00FF
				pha
				lda #^OutQStatusParam ; Y reg: high byte of address
				and #$00FF
				pha
				lda >$00C112		; extended interface offset
				clc
				adc #$C100			; entry point
				pha
				_FWEntry
				pla
				pla
				pla
				pla	
				
				lda BufferLeng		; capacity found with GetOutBuffer call
				dec a			
				cmp SpaceLeft		; free space found with OutQStatus call
				bne loopQuery		; if they are equal, then nothing is left in buffer
				
;-----------------------------------------------------------
;
; Reset the firmware so the buffer will be disposed of
;

			   pushlong #ResetFW
			   _WriteString
			   
			   
;-----------------------------------------------------------
;
; Reset the input and output devices to whatever it was before we changed it.
;

			   PushWord InputType	; Pascal device type
               PushLong InputSlot	; slot number
               _setInputDevice

               PushWord InAndMask
               PushWord InOrMask
               _setInGlobals

               PushWord #0
               _inittextDev
			   
               PushWord OutputType	; Pascal device type
               PushLong OutputSlot	; slot number
               _setOutputDevice

               PushWord OutAndMask
               PushWord OutOrMask
               _setoutGlobals

               PushWord #1
               _inittextDev
			    
               plb
               pld
               jmp Exit0
			   

GetModeBitsParam	
			DC.B $03		; parameter count
			DC.B $00		; command code for GetModeBits
			DS.B 2			; result code
GetModeBits	DS.B 4			; Mode bits
			
SetModeBitsParam	
			DC.B $03		; parameter count
			DC.B $01		; command code for SetModeBits
			DS.B 2			; result code
SetModeBits	DS.B 4			; Mode bits
			
GetOutBufferParam	
			DC.B $04	; parameter count
			DC.B $11	; command code for GetOutBuffer
			DS.B 2		; result code
			DS.B 4		; buffer address
BufferLeng	DS.B 2		; buffer length
			
OutQStatusParam	
			DC.B $04	; parameter count
			DC.B $17	; command code for OutQStatus
			DS.B 2		; result code
SpaceLeft	DS.B 2		; space left in output queue
			DS.B 2		; reserved
							
ResetFW		DC.B 3			; length
			DC.B $09		; Control-I
			DC.B 'R'		; Reset firmware
			DC.B $0D		; carriage return


		ENDP

***************************************************************
*
* DevStatus
*
* Another highly functional call.
* 
***************************************************************
		EXPORT	DevStatus      
DevStatus      PROC

               jsr IsItSafe 
               jmp Exit4

		ENDP

***************************************************************
*
* DevAsyncRead
*
*   CompletionRoutine   LONG
*   DataLength          WORD
*   PtrToBuffer         LONG
*
*   output:
*   actual length read	WORD
* Another really useful routine!
* 
***************************************************************
		EXPORT	DevAsyncRead   
DevAsyncRead   PROC

               DefineStack
AsyncRead_rtl1 block 3
AsyncRead_rtl2 block 3
ReadBuffer     long 0
ReadLength     word 0
ReadComplete   long 0
ActualLength	word 0

               jsr IsItSafe
               bcc Yes 
               jmp Exit10

Yes	; 
			   lda #0
			   sta actualLength,s
			   
               jmp Exit10
			   
		ENDP

***************************************************************
*
* DevWriteBack
*
*      Completion routine ptr   LONG
*      BufferSize      			WORD
*      BufferAddress   			LONG
*
***************************************************************
		EXPORT	DevWriteBack    
DevWriteBack    PROC

               jsr IsItSafe
               jmp Exit10

		ENDP


***************************************************************
*
* DevIsItSafe
*
*    Output:  Safety    WORD    boolean
*
* 
* EntryPoint to driver from outside.
*
* Safety is true if it is safe, false if not.
* 
***************************************************************
		EXPORT	DevIsItSafe    
DevIsItSafe    PROC
               DefineStack 
RTL1           block 3
RTL2           block 3
Result         word
 
               jsr IsItSafe
               bcc Yes

               lda #False
               sta Result,s

GetOut         lda #0
               jmp Exit0

Yes            lda #True 
               sta Result,s
               bra GetOut

		ENDP


***************************************************************
*
* IsItSafe
*
* Common routine to see if the device we want to deal with
* is switched in.
*
* If it is safe, a-reg is xet to zero and carry is clear.
* If it is NOT safe, a-reg is set to error code and carry is
*    set. 
* 
***************************************************************
		EXPORT	IsItSafe       
IsItSafe       PROC

				lda >$E0C02D            ; Read slot state.
				and #$0002           	; bit 1 set means external
				bne NotOn
 
				pha						; it's internal, so find out if it's
				pha						; AppleTalk or serial firmware
				pha
				pha						; 4 word spaces for result
				pha						; A reg value, don't care
				pha						; x reg value, don't care
				pha						; y reg value, don't care
				lda #$FE1F				; the entry point to a routine which
				pha						; returns system information
				_FWEntry
				pla						; Y register has ROM version
				plx						; get unused values off stack
				plx
				plx	
				and #$00FF				; in bits 7 - 0
				cmp #3					; Version 3 or greater has AppleTalk
				blt ExitSafe			; in slots 1 or 2
 
				lda >$E101C0			; Read AppleTalk port location
				and #$00FF				; lo byte only
				cmp #1					; AppleTalk is in Slot 1
				bne ExitSafe 

NotOn			lda #PortNotOn          ; set error to port not turned on
				bra ExitNotSafe

ExitSafe 
				lda #0					; no problems
ExitNotSafe		cmp #1
				rts

		ENDP



****************************************************************
*
* PortAlert
*
* Alert box to tell user that the appropriate port is not turned
* on.
*
* no parameters on stack
*
****************************************************************
		EXPORT	PortAlert      
PortAlert      PROC

 
               _InitCursor              ; restore cursor back to arrow

               pha                      ; make room for result
               _GetMasterSCB
               pla
               pha                      ; make room for result of alert call 
               and #$80                 ; check mode 
               beq mode320              ; 320 mode

               pushlong #alerttemp640   ; use 640 mode template
               bra GoOn

mode320        pushlong #alerttemp320   ; use 320 mode template

GoOn           pushlong #$0000
               _StopAlert

;              jsr WaitCursor           ; set to watch again
 
               pla                      ; get the item hit off stack

               rts


		ENDP
 

 
;                Copy DynamicExits
		EXPORT	DynamicExits    
DynamicExits    PROC
* in a Dynamic exit we need to save 2 RTLs

		EXPORT	exit20
exit20		;		
               tax
               lda  5,s
               sta  25,s
               lda  3,s
               sta  23,s
               lda  1,s
               sta  21,s
               tsc
               clc
               adc  #20
               tcs
               txa
               brl  exit0

		EXPORT	Exit16
Exit16		;		
               tax
               lda  5,s
               sta  21,s
               lda  3,s
               sta  19,s
               lda  1,s
               sta  17,s
               tsc
               clc
               adc  #16
               tcs
               txa
               brl  Exit0

		EXPORT	Exit14
Exit14		;		
               tax
               lda  5,s
               sta  19,s
               lda  3,s
               sta  17,s
               lda  1,s
               sta  15,s
               tsc
               clc
               adc  #14
               tcs
               txa
               brl  Exit0

		EXPORT	Exit12
Exit12		;		
               tax
               lda  5,s
               sta  17,s
               lda  3,s
               sta  15,s
               lda  1,s
               sta  13,s
               tsc
               clc
               adc  #12
               tcs
               txa
               bra  Exit0

		EXPORT	Exit10
Exit10		;		
               tax
               lda  5,s
               sta  15,s
               lda  3,s
               sta  13,s
               lda  1,s
               sta  11,s
               tsc
               clc
               adc  #10
               tcs
               txa
               brl  Exit0

		EXPORT	Exit8
Exit8		;		
               tax                      ; Standard 8 bytes input exit
               lda  5,s
               sta 	13,s
               lda  3,s
               sta  11,s
               lda  1,s
               sta  9,s
               pla
               pla
               pla
               pla
               txa
               brl  Exit0

		EXPORT	Exit6
Exit6		;		
               tax                      ; Standard 6 bytes input exit
               lda  5,s
               sta  11,s
               lda  3,s
               sta  9,s
               lda  1,s
               sta  7,s
               pla
               pla
               pla
               txa
               brl  Exit0

		EXPORT	Exit4
Exit4		;		
               tax                      ; Standard 4 bytes input exit
               lda  5,s
               sta  9,s
               lda  3,s
               sta  7,s
               lda  1,s
               sta  5,s
               pla
               pla
               txa
               brl  Exit0

		EXPORT	Exit2
Exit2		;		
               tax                      ; Standard 2 bytes input exit
               lda  5,s
               sta  7,s
               lda  3,s
               sta  5,s
               lda  1,s
               sta  3,s
               pla
               txa
		EXPORT	Exit0
Exit0		;		
               cmp  #1               	; Standard 0 byte input exit
               rtl

		ENDP


		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/Printer/special.macros b/IIGS.601.SRC/GSToolbox/PrinterDrivers/Printer/special.macros
new file mode 100644
index 0000000..3cd0ee4
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/Printer/special.macros
@@ -0,0 +1 @@
+ MACRO
&lab _WriteBlock
&lab ldx #$1E0C
 jsl $e10000
 MEND
 MACRO
&lab _ReadBlock
&lab ldx #$230C
 jsl $e10000
 MEND
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/TABASCO/communications.a b/IIGS.601.SRC/GSToolbox/PrinterDrivers/TABASCO/communications.a
new file mode 100644
index 0000000..77e43ce
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/TABASCO/communications.a
@@ -0,0 +1 @@
+
******************************************************************************************
*                                                                                        *
*		Apple IIgs Printer Driver                                                        *
*                                                                                        *
*		File: communications.a -- PRINTER/MODEM port serial R/W to printer hardware      *
*                                                                                        *
*		Written by Ben Koning                                                            *
*		Copyright (C) 1991 Apple Computer, Inc.                                          *
*                                                                                        *
******************************************************************************************







							include		'equates.h'
							
							
							
							include		'm16.util'
							include		'm16.misctool'



CommunicationsProc			proc export







*
*COMMUNICATIONS: APPLE CANON BJ PRINTER SPECIAL SERIAL READ/WRITE ROUTINES
*
*These routines perform serial communications between the rest of the driver and the bubble jet
*printer firmware.  The GS Firmware, Text Tool Set, and GS/OS are all bypassed; these routines
*communicate directly to the SCC chip at 57.6K Baud with the special printer-style software
*handshaking protocol.
*
*The following entry points are implemented:
*
*	CommGetWhichPort	Can be called anytime to determine which SCC channel we will use
*	CommOpen			Must be called first; determines which SCC channel to use; initializes
*	CommSetStatusProc	Sets up optional proc to be called with err code if pr err status detected
*	CommGetAbort		Should be called to see if we want to abort and if data is still being sent
*	CommWriteShort		Writes pstring pointed to by given 16-bit address
*	CommWriteLong		Writes arbitrarily-sized data block
*	CommReadByte		Attempts to read one byte
*	CommClose			Must be called last to deallocate resources
*
*Entry points that require pointers should be called with the low word in X and the high word
*in Y.  Entry points that require input values should be called with the A register set.
*Output, if any, is given in the A register and carry flag.
*
*If an error occurs during the read or write calls, then subsequent read and write calls will
*have no effect.  The routine CommGetAbort may be called at any time to determine the error
*status; if it returns nonzero then data integrity has been lost.  The abort may also be set
*as the result of certain printer status inquiries.
*
*Whenever the write routines query the printer for its buffer capacity status (see below),
*the printer status (paper out, etc) is checked.  If status is abnormal, then an optional
*status proc (set by CommSetStatusProc) is called with an status value in A.  The status proc
*should return 0/1 in A; if it returns 0 then the printer status is checked again, and
*if a problems still exists then the proc is called again.  If the status proc returns 1 then
*the communications error will be asserted, thus rendering the read/write calls inept and
*communicating (via CommGetAbort) the abort request to the higher levels.
*
*The possible values passed to the status proc are as follows:
*
*	$01 = ready light is not on
*	$02 = out of paper
*	$8F = serious error (paper jam, carriage jam, logic test, ddr, buffer)
*
*The SCC channel (A/B, alias Printer/Modem) is automatically elected when calling the CommOpen.
*The CommGetWhichPort call is provided to infer which SCC channel to communicate through from the
*name of the currently selected print-manager-printer-port driver.  This call may be made outside of
*the scope of the Open/Read/Write/Close call sequence.
*
*The printer has no hardware handshaking; its RS-232 handshake lines are always held high.
*Thus, these routines have to know how large the printer buffer is and keep track of how many bytes
*have been written, in order to avoid buffer overflow.  An initial assumption is made about the
*amount of space available in the printer's receive buffer at "Open" time.  Every call to one of
*the "Write" routines causes the internal notion of how much room is left to decrease.  When this
*value becomes less than the length of a write request, the return-remaining-space immediate
*printer command is isssued to get the latest availability, which is then used as the new value.
*If there is not enough room in the printer to handle the current write request, the write routine
*will wait until the situation changes (the printer is able to free up its receive buffer space
*while it is printing).
*







*
*COMMGETWHICHPORT: Returns if Control Panel "Printer"/"Modem" port is selected: A -> 0/1:
*
							export CommGetWhichPort
CommGetWhichPort
							pha									;get pointer to pstring with print
							pha									;manager's port driver filename
							ldx #$2913							;_PMGetPortName
							jsl $E10000
							pulllong ParamLongA
							ldy #1								;access the first two characters
							lda [ParamLongA],y					;of the name, one byte past len
							;     7654321076543210				;clear bits 5 in both bytes, thus
							and #%1101111111011111				;ensuring upper case
							cmp #'M'+('O'*256)
							beq	GeCpPoItsModem					;if first two chars of name are "MO"
GeCpPoItsPrinterOrOther		lda #0								;then return "1"; in all other cases
							rts									;return "0"
GeCpPoItsModem				lda #1
							rts






*
*COMMOPEN: Call before any read/write calls: Error -> carry flag:
*
							export CommOpen
CommOpen

*Clear successful-open flag first:
							stz	ConnectionIsOpen
							
*Reset status and timer flags first before proceeding:
							stz ConnectionAbort					;clear abort flag
							stz StatusProcPtr+0					;clear status proc ptr
							stz StatusProcPtr+2

*Ensure that the port we are using is not set to "your card" instead of built-in firmware:
							jsr CommGetWhichPort				;set A reg to 0/1 if printer/modem
							clc									;use A to select param #$21/#$22
							adc #$21
							pha									;pass result space
							pha									;pass parameter number
							_ReadBParam
							pla									;get battery ram parameter byte
							beq CoOpSlotCheckDone				;if it's set to 0 (internal f/w)
							cmp #3								;or 3 (internal f/w reversed)
							beq CoOpSlotCheckDone				;then it's ok, else error
							brl CoOpExitError
CoOpSlotCheckDone

*Set up addresses to be used later to access SCC chip directly:
							jsr CommGetWhichPort				;find which SCC channel desired
							and #1								;we have A = 0)printer or 1)modem
							eor #1								;so get X = 1)printer or 0)modem
							tax									;and use it to generate SCC access
							clc									;addresses: $C039=cmd + $C03B=data
							adc #$C038							;for PRINTER port, or $C038=cmd +
							sta SccCommandRegisterSPtr			;$C03A=data for MODEM port
							txa
							clc
							adc #$C03A
							sta SccDataRegisterSPtr
							
*Obtain information to call the serial firmware init routine:
							txa									;X is still set 1/0 if pr/mo port
							eor #1								;A now has 0/1 if pr/mo port
							tay									;Y now has 0/1 if pr/mo for use below
							xba									;A now has $0000/$0100 if pr/mo port
							clc
							adc #$C100							;A now has $C100/$C200 if pr/mo port
							tax									;X now has $C100/$C200 if pr/mo port
							lda >$E0000D,x						;get byte at $E0Cn0D, which is the
							and #$00FF							;init-port-routine offset
							stx ParamWordA						;put X ($C100/$C200) in dp var
							clc									;so we can add init-port offset
							adc ParamWordA						;A now has $CnXX addr of init routine
							sta SerialFirmwareInitSPtr			;save this addr to use below+later
							tya									;get 0/1 if pr/mo in A
							clc
							adc #$00C1							;A now has $C1/$C2 if pr/mo
							sta SerialFirmwareInitXReg			;save this value to use below+later
							tya									;get 0/1 if pr/mo in A
							ina									;A now has 1/2 if pr/mo
							asl a
							asl a
							asl a
							asl a								;A now has $10/$20 if pr/mo
							sta SerialFirmwareInitYReg			;save this value for use below+later

*Call serial firmware initialization routine to set up the SCC:
							lda #0
							pha									;result space
							pha									;result space
							pha									;result space
							pha									;result space
							pha									;pass A input -- don't care
							pushword SerialFirmwareInitXReg		;pass X input -- $00Cn
							pushword SerialFirmwareInitYReg		;pass Y input -- $00n0
							pushword SerialFirmwareInitSPtr		;pass $CnXX as firmware entry point
							_FWEntry							;call the init routine
							pla									;get Y output -- don't care
							pla									;get X output -- don't care
							pla									;get A output -- don't care
							pla									;get P output -- don't care

*Set the SCC's communication rate to 57.6K baud:
							php									;disable interrupts for a moment
							sei									;so nobody else can touch SCC
							ldx SccCommandRegisterSPtr			;set appropriate SCC channel's
							shortm								;write-registers 12 and 13 both
							lda #12								;to 0, which sets the baud rate
							sta >$E00000,x						;generator (16x mode) to 57.6KB
							lda #0
							sta >$E00000,x
							lda #13
							sta >$E00000,x
							lda #0
							sta >$E00000,x
							longm
							plp									;reenable interrupts

*Initialize for keeping track of printer buffer space, using code from the write routine:
							lda #CoOpGBSCmdEnd-CoOpGBSCmdBegin	;call the actual write routine in
							ldx #CoOpGBSCmdBegin				;code below to send the return-
							ldy #^CoWrGBSCmdBegin				;buff-space command
							jsr CoWrDoWrite
							jsr CommReadByte					;read the latest-availability-byte
							bcs CoOpExitError					;if error exit and inform caller
							xba									;returned byte bits should occupy
							lsr a								;b6..b13 to regain proper value
							lsr a
							;	  5432109876543210
							and #%0011111111000000
							sec									;subtract out safety slop
							sbc #CommDevBufferDrainSafety
							bmi CoOpExitError					;error if can't take out slop
							sta PrinterBufferSpaceLeft			;initialize our space-left value

*Exit points:
CoOpExitSuccess				clc									;no-error exit point: carry clear
							ldx #1								;set the successful-open flag
							stx ConnectionIsOpen
							rts
							
CoOpExitError				sec									;if error: carry set
							rts
							
*Immediate printer commands:
CoOpGBSCmdBegin
							dc.b $FF,$FF,$FF,$42
CoOpGBSCmdEnd






*
*COMMGETABORT: Gets abort status (0/1 is false/true), if any, in A:
*
							export CommGetAbort
CommGetAbort
							lda ConnectionAbort
							rts






*
*COMMSETSTATUSPROC: Sets optional proc to be called if pr status:  Pass lo/hi ptr -> X/Y:
*
							export CommSetStatusProc
CommSetStatusProc
							stx StatusProcPtr+0
							sty StatusProcPtr+2
							rts






*
*COMMWRITESHORT: Sends the pstring pointed to by the given 16-bit pointer: Pass short pointer -> A:
*
							export CommWriteShort
CommWriteShort
							tax									;put short ptr (lo 16 bits) in X
							lda |$0000,x						;get word with length byte in our
							and #$00FF							;bank, isolate length byte
							tay									;save length
							inx									;point X at data beyond len byte
							shortm								;go to 8 bit acc/mem mode
							lda #0								;put a zero byte
							pha									;on the stack
							longm								;go back to 16 bit acc/mem mode
							tya									;restore length
							phb									;put current bank byte on stack
							ply									;get $00nn word with bank in Y
							bra CommWriteLong					;X/Y now has lo/hi ptr, A has length






*
*COMMWRITELONG: Sends the given block of data bytes: Pass pointer lo/hi -> X/Y, length -> A:
*
							export CommWriteLong
CommWriteLong

*If zero-length write request, don't do anything:
							cmp #0
							bne CoWrDoneCheckNull
							rts
CoWrDoneCheckNull

*Setup temporary variables with given parameters:
							sta ParamWordB						;pwB will have len of write request
							stx ParamLongB+0					;plB will have ptr of write request
							sty ParamLongB+2
							
*If an error has already occurred, don't do anything:
							lda ConnectionAbort
							beq CoWrDoneCheckError
							rts
CoWrDoneCheckError

*Check how much space we think is left in printer; if enough to do write request, do it:
							lda PrinterBufferSpaceLeft
							cmp ParamWordB
							bcs CoWrThereIsEnoughSpace

*Here if we have sent all the data we were autorized to send since last buffer-space check:
CoWrInquireNewSpaceLeft		

*Ask the printer how much space it actually has left right now in its buffer:
							lda #CoWrGBSCmdEnd-CoWrGBSCmdBegin
							ldx #CoWrGBSCmdBegin				;call the actual write routine to
							ldy #^CoWrGBSCmdBegin				;send the return-buff-space command
							jsr CoWrDoWrite
							
							jsr CommReadByte					;read the latest availability-byte
							xba									;returned byte's bits should occupy
							lsr a								;b6..b13 to regain proper value
							lsr a
							;	  5432109876543210
							and #%0011111111000000
							sta PrinterBufferSpaceLeft

*Check to see if there is any abnormal printer status at this time:
							jsr CoWrCheckStatus					;do status check
							lda ConnectionAbort					;if no chronic problem found go on
							beq CoWrDoneCheckStatus				;else exit this routine with error
							rts
CoWrDoneCheckStatus

*Subtract from space-left given by printer as a safeguard against complete drain and leave in A:
							lda PrinterBufferSpaceLeft
							sec
							sbc #CommDevBufferDrainSafety
							bpl CoWrSetSmallerSpaceLeft
							lda #0								;pin to 0, never make it negative
CoWrSetSmallerSpaceLeft		sta PrinterBufferSpaceLeft

*Again check to see if there is enough room in space-left in A, and go do the write if it's ok:
							cmp ParamWordB
							bcs CoWrThereIsEnoughSpace

*Else, wait a while to allow the printer to drain its buffer a bit and then try again:
							lda #CommDevBufferDrainDelay
							jsr CoWrWait
							bra CoWrInquireNewSpaceLeft

*Here if our counter indicates there is enough space in the printer to safely do the write:
CoWrThereIsEnoughSpace

*Subtract length of write request from our space-left counter:
							lda PrinterBufferSpaceLeft
							sec
							sbc ParamWordB
							sta PrinterBufferSpaceLeft

*Set parameters and drop into subroutine which writes data and then exits:
							lda ParamWordB						;pass the given len and ptr params
							ldx ParamLongB+0					;into the routine below and drop
							ldy ParamLongB+2					;through and exit

*Subroutine to write data through the SCC to the printer: Pass lo/hi ptr -> X/Y, length -> A:
CoWrDoWrite					sta ParamWordA						;pwA will have source length
							stx ParamLongA+0					;plA will have source pointer
							sty ParamLongA+2
							shortm								;all A/memory operations are bytes
							ldy #0								;init source data counter
							
CoWrDoWriteLoop				ldx SccCommandRegisterSPtr			;get command register address
CoWrDoWriteLoop1			php									;disable interrupts so control of
							sei									;the SCC won't be taken away
							lda #0								;accessing read-register-0
							sta >$E00000,x
							lda >$E00000,x						;if SCC channel is ready for a byte
							;	  76543210						;break out if b2=Tx latch ready
							and #%00000100
							bne CoWrDoWriteLatchReady
							plp									;else restore interrupts for a few
							bra CoWrDoWriteLoop1				;cycles and try again
							
CoWrDoWriteLatchReady	 	lda [ParamLongA],y					;get source data byte and write
							ldx SccDataRegisterSPtr				;it to SCC channel data latch
							sta >$E00000,x
							plp									;restore interrupts, allow SCC touch
							
							iny									;increment source data counter
							cpy ParamWordA						;go until all data is sent
							bne CoWrDoWriteLoop					;length must be > 0
							
							longm								;back to all-16-bit mode
							rts									;exit when done

*Subroutine to wait given number of ticks (1/60s): Pass number of ticks to wait -> A:
CoWrWait					asl a								;convert ticks to 16ths ticks
							asl a
							asl a
							asl a
							tax
							
							pha									;result space
							pushword #0							;anchor value
							phx									;number of 16ths of ticks to wait
							ldx #$3A03							;_WaitUntil
							jsl $E10000
							pla									;ignore new anchor result
							
							rts

*Subroutine to check pr status and call proc with status code in A, proc returns OK/Cancel in A:
CoWrCheckStatus				lda StatusProcPtr+0					;check if proc is installed
							tax									;if none installed, just return
							ora StatusProcPtr+2
							bne CoWrCSGo1
							rts
							
CoWrCSGo1					stx CoWrCSCallUserJSL+1+0			;setup JSL for callback
							lda StatusProcPtr+2
							shortm
							sta CoWrCSCallUserJSL+1+2
							longm
							
CoWrCSGo2					lda #CoWrSB1CmdEnd-CoWrSB1CmdBegin	;get status-byte-1
							ldx #CoWrSB1CmdBegin
							ldy #^CoWrSB1CmdBegin
							jsr CoWrDoWrite
							jsr CommReadByte
							
							sta CoWrCSsb2andsb1					;save it for a moment
							
							lda #CoWrSB2CmdEnd-CoWrSB2CmdBegin	;get status-byte-2
							ldx #CoWrSB2CmdBegin
							ldy #^CoWrSB2CmdBegin
							jsr CoWrDoWrite
							jsr CommReadByte
							
							xba									;put SB 2 in hi byte
							ora CoWrCSsb2andsb1					;put SB 1 in lo byte
							sta CoWrCSsb2andsb1					;so now we have both bytes in word
							
							lda CoWrCSsb2andsb1					;check for any of the following
							;SB   2222222211111111				;being "1": SB1b1 (logic), SB2b4
							;bit  7654321076543210				;(buff), SB2b6 (ddr), SB2b7 (cmd),
							and #%1101100100000010				;SB2b0 (cjam), SB2b3 (pjam)
							beq CoWrCSDoneFatal					;STATUS CODE: FATAL ERROR
							lda #$8F
							bra CoWrCSCallUser
CoWrCSDoneFatal

							lda CoWrCSsb2andsb1					;check for SB2b2 being "1"
							;SB   2222222211111111				;STATUS CODE: OUT OF PAPER
							;bit  7654321076543210
							and #%0000010000000000
							beq CoWrCSDoneNoPaper
							lda #$02
							bra CoWrCSCallUser
CoWrCSDoneNoPaper

							lda CoWrCSsb2andsb1					;check for SB1b0 being "0"
							;SB   2222222211111111				;STATUS CODE: NOT IN READY
							;bit  7654321076543210
							and #%0000000000000001
							bne CoWrCSDoneNotReady
							lda #$01
							bra CoWrCSCallUser
CoWrCSDoneNotReady
							
							rts									;here if no problem, return
							
CoWrCSCallUser				phb									;save env, call user, restore
							phd
CoWrCSCallUserJSL			jsl $FFFFFF							;NOTE: operand is stuffed
							pld
							plb
							
							cmp #0								;see if user returned 0 in A
							beq CoWrCSGo2						;if so, retry and maybe exit if ok
							sta ConnectionAbort					;else, arrange to abort pretty soon
							rts

*Static variables:
CoWrCSsb2andsb1				dc.w 0								;SB 2 in hi byte, SB 1 in lo byte

*Immediate-response printer commands:
CoWrGBSCmdBegin
							dc.b $00,$FF,$FF,$FF,$42,$00		;return remaining buffer capacity
CoWrGBSCmdEnd

CoWrSB1CmdBegin
							dc.b $00,$FF,$FF,$FF,$31,$00		;return status byte 1
CoWrSB1CmdEnd

CoWrSB2CmdBegin
							dc.b $00,$FF,$FF,$FF,$32,$00		;return status byte 2
CoWrSB2CmdEnd






*
*COMMREADBYTE: Tries to input a byte: Returns A -> byte-value, carry set if timeout error:
*
							export CommReadByte
CommReadByte
							lda ConnectionAbort					;don't do anything if error status
							beq CoRbDoneCheckError
							sec
							rts
CoRbDoneCheckError
							lda #CommReadByteResponseDelay		;initial delay to wait for
							jsr CoWrWait						;the printer to respond
							
							ldy #CommReadByteTimeout			;init timeout count in Y
							lda #0								;ensure upper byte of 16-bit A zero
							shortm								;we want 8-bit memory fetches
							ldx SccCommandRegisterSPtr			;SCC cmd reg address in X
							
CoRbWaitLoop				php									;disable interrupts so that no one
							sei									;can change SCC unknown to us
							dey									;decrement timeout countdown
							beq CoRbExitError					;exit if we time out
							lda #0								;accessing read-register-0
							sta >$E00000,x
							lda >$E00000,x
							;	  76543210
							and #%00000001						;b0 is receive-latch-full
							bne CoRbByteReady					;break out if a byte is pending
							plp									;else reenable interrupts for a
							bra CoRbWaitLoop					;few cycles and try again
							
CoRbByteReady				ldx SccDataRegisterSPtr				;read from SCC data reg with byte
							lda >$E00000,x

CoRbExitNoError				plp									;reeneable interrupts, back to 16 bit
							clc									;clear carry status
							longm
							rts
							
CoRbExitError				plp									;reeneable interrupts, back to 16 bit
							sec									;set carry status to indicate error
							longm								;also set communications error
							ldx #1
							stx ConnectionAbort
							rts






*
*COMMCLOSE: This routine must be called when all read/write activity is done:
*
							export CommClose
CommClose
							lda ConnectionIsOpen				;don't do anything if never
							beq CoClExit						;opened successfully
							
							lda #0								;restore SCC by calling init routine
							pha									;result space
							pha									;result space
							pha									;result space
							pha									;result space
							pha									;pass A input -- don't care
							pushword SerialFirmwareInitXReg		;pass X input -- $00Cn
							pushword SerialFirmwareInitYReg		;pass Y input -- $00n0
							pushword SerialFirmwareInitSPtr		;pass $CnXX as firmware entry point
							_FWEntry							;call the init routine
							pla									;get Y output -- don't care
							pla									;get X output -- don't care
							pla									;get A output -- don't care
							pla									;get P output -- don't care
							
							stz ConnectionIsOpen				;be sure to reset this now
							
CoClExit					rts






*
*GLOBAL DATA: Private static data that is maintained across calls to these routines:
*
PrinterBufferSpaceLeft		dc.w 0								;bytes left in printer's rx buffer

SccCommandRegisterSPtr		dc.w 0								;I/O loc of cmd reg for SCC channel
SccDataRegisterSPtr			dc.w 0								;I/O loc of data reg for SCC channel

SerialFirmwareInitSPtr		dc.w 0								;SCC setup F/W short address
SerialFirmwareInitXReg		dc.w 0								;SCC setup F/W expected X on entry
SerialFirmwareInitYReg		dc.w 0								;SCC setup F/W expected Y on entry

ConnectionIsOpen			dc.w 0								;set if inside CommOpen-Close scope
ConnectionAbort				dc.w 0								;set if abort requested or necessary

StatusProcPtr				dc.l 0								;points to pr err status routine/NIL







							endproc
							end

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/TABASCO/dialog.a b/IIGS.601.SRC/GSToolbox/PrinterDrivers/TABASCO/dialog.a
new file mode 100644
index 0000000..0a05c09
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/TABASCO/dialog.a
@@ -0,0 +1 @@
+
******************************************************************************************
*                                                                                        *
*		Apple IIgs Printer Driver                                                        *
*                                                                                        *
*		File: dialog.a -- Doing dialog boxes, thereby modifying user's print record      *
*                                                                                        *
*		Written by Ben Koning                                                            *
*		Copyright (C) 1991 Apple Computer, Inc.                                          *
*                                                                                        *
******************************************************************************************







							include		'equates.h'



							include		'm16.util'
							include		'e16.quickdraw'
							include		'm16.quickdraw'
							include		'm16.qdaux'
							include		'e16.control'
							include		'm16.control'
							include		'e16.window'
							include		'm16.window'
							include		'm16.lineedit'
							include		'm16.intmath'
							include		'm16.dialog'
							include		'm16.menu'
							include		'e16.print'
							include		'm16.misctool'
							include		'm16.event'
							include		'm16.memory'



DialogProc					proc		export





*
*USER INTERFACE ROUTINES:
*
*This source module contains all code (but not data and strings) relevant to the user interface.
*There are general-purpose status message box routines, modal dialog box routines, and the
*Job and Style dialog box routines.
*





*
*STATUS MESSAGE ROUTINES:
*
*	StartStatusMessage			Should, but doesn't have to be, called first; draws message box
*	FinishStatusMessage			Should be called last; removes message box
*	StatusMessage				Draws autocentered string
*	StatusMessageWait			Draws autocentered string *after* waiting an equated amount
*	StatusMessageManFeed		Insert-next-sheet modal dialog
*	StatusMessageDevStat		Status dialog for various printer problems
*
*These routines can display messages for the user.  After calling StartStatusMessage, calling
*StatusMessage with ACC pointing to a string will cause that string to be shown, centered,
*in a centered dialog box (640/320 mode automatically taken care of).  It is assumed that the
*message string resides in the current bank.  StatusMessageWait is StatusMessage with a delay;
*it is intended for messages showing setup status so that they won't flash by quickly.
*StatusMessageManFeed will put up a modal alert asking the user to insert the next sheet.
*StatusMessageDevStat will put up an alert about various printer problems (paper out, etc).
*The FinishStatusMessage routine should be called when done; it erases the dialog box.  If the
*StartStatusMessage routine is called with ACC=0 then all will be normal; but if that routine
*is called with ACC=1 then the status window will not be drawn, although the status message
*drawing routines may be called anyway and StatusMessageManFeed won't be affected.  This is
*to make it easy to disable the status message box without affecting a great amount of the
*caller's code.  The cursor changing (wait/init-cursor) is also managed by these routines.
*





*
*STARTSTATUSMESSAGE: Call this before any other status message calls (0/1 -> A):
*
*Normally, this routine draws an empty status box, ready to be filled in by other status
*message calls, and changes the cursor to the wait cursor.  If A = 1, then the status
*status message box is not drawn, but status message drawing routines may still be called,
*although their messages won't be visible.  The manual feed dialog routine may also be called
*in this case; however, it will always be visible.  The cursor will still always change
*from init- to wait-cursor state and back.
*
							export		StartStatusMessage
StartStatusMessage

*Save input parameter:
							pha

*Clear the status-window-exists flag initially:
							stz			StatusWindowExists

*Calculate horizontal size for status and other message boxes:
							import		StatusWindowCoordX2		;modify dialog coordinates
							lda			StatusWindowCoordX2
							sec
							import		StatusWindowCoordX1
							sbc			StatusWindowCoordX1		;calc size at runtime
							sta			StatusWindowWidth		;save size
							pha									;result space for SCB
							_GetMasterSCB
							pla
							ldx			#640					;assume 640 mode for a moment
							and			#$0080					;look at mode bit (1=640, 0=320)
							bne			StMeMode640
							ldx			#320					;change assumption made above
StMeMode640					txa
							sec
							sbc			StatusWindowWidth		;A now has [320|640] - (X2-X1)
							lsr a								;divide A by two
							sta			StatusWindowCoordX1		;this is left coordinate of box
							import		ManFeedAlertStrCoordX1	;also for other boxes
							sta			ManFeedAlertStrCoordX1
							import		DevStatAlertStrCoordX1
							sta			DevStatAlertStrCoordX1
							clc
							adc			StatusWindowWidth		;maintain proper size of box
							sta			StatusWindowCoordX2		;this is right coordinate of box
							import		ManFeedAlertStrCoordX2	;also for other boxes
							sta			ManFeedAlertStrCoordX2
							import		DevStatAlertStrCoordX2
							sta			DevStatAlertStrCoordX2

*Do not change to wait cursor at this point; leave it up to the application:

*Restore input parameter; if we were called with A set, exit before drawing status window, etc:
							pla
							beq			StMeDoneInvisible
							rts
StMeDoneInvisible

*Draw the empty window box:
							pha									;result space
							pha									;result space
							import		StatusWindowTemp
							pushlong	#StatusWindowTemp		;draw window from template
							_NewWindow							;this does NOT set current grafport!
							pulllong	StatusWindowPtr			;save our ticket to access the box

*Assert the status-window-exists flag so the other routines know:
							lda			#1						;indicate it's ok to use it now
							sta			StatusWindowExists

*Exit:
							rts
														




*
*FINISHSTATUSMESSAGE: Removes status box and sets normal cursor:
*
							export		FinishStatusMessage
FinishStatusMessage

*Do not remove wait cursor here; leave it up to the application:
							
							lda			StatusWindowExists		;does the status window exist?
							beq			FiStExit				;if not, don't do CloseWindow
							
							pushlong	StatusWindowPtr			;erase window and dispose memory
							_CloseWindow
							stz			StatusWindowExists		;and mark it as gone now
							
FiStExit					rts





*
*STATUSMESSAGEWAIT: Waits first; draws centered str; uninit-proof: Pass 16-bit ptr -> A:
*
							export		StatusMessageWait
StatusMessageWait			
							pha									;save short pointer to string

							pha									;result space
							pushword	#0						;anchor value
							pushword	#StatusMesgWaitDelay*16	;time to wait in 16ths of ticks
							ldx			#$3A03					;_WaitUntil
							jsl			$E10000
							pla									;ignore new anchor result
							
							pla									;restore short pointer to string
							bra			StatusMessage			;do the StatusMessage call and exit





*
*STATUSMESSAGE: Draws centered str pointed by 16-bit A to above-opened message box; uninit-proof:
*
							export		StatusMessage
StatusMessage				
							sta			StMeStringPtr+0			;setup string pointer lo word
							phk
							shortm
							pla
							sta			StMeStringPtr+2			;setup string pointer hi word
							longm

							lda			StatusWindowExists		;was window ever drawn?
							beq			StMeExit				;if not, abort this routine

							pha									;result space
							pha									;result space
							_GetPort							;save old grafport on stack

							pushlong	StatusWindowPtr			;set grafport to box's port
							_SetPort

							import		StatusWindowEraseRect	;clear box contents
							pushlong	#StatusWindowEraseRect
							_EraseRect

							pha									;result space
							pushlong	StMeStringPtr			;push pointer to our messgae
							_StringWidth						;ask what size it will be
							lda			StatusWindowWidth		;leave result on stack
							sec									;for subtract right on the stack
							sbc			1,s						;acc now has (X2-X1) - width
							lsr a								;divide by two; acc now has X coord
							sta 		1,s						;this is start X coordinate for text
							import		StatusWindowTextY
							pushword	StatusWindowTextY		;this is start Y coordinate for text
							_MoveTo								;move the pen to pushed coordinates
							pushlong	StMeStringPtr			;and draw the string...
							_DrawString

							_SetPort							;restore old grafport from stack

StMeExit					rts									;exit
*
StMeStringPtr				dc.l		0						;pointer to text string





*
*STATUSMESSAGEMANFEED: Modal dialog to insert next sheet; exits with carry set if "Cancel" hit:
*
							export		StatusMessageManFeed
StatusMessageManFeed
							import		ManFeedAlertStrRect		;out-flying rect and arrow cursor
							ldx			#ManFeedAlertStrRect
							ldy			#^ManFeedAlertStrRect
							jsr			StMeBeforeAlert
							
							pha									;pass result space
							pushword	#%000					;pass reference is ptr to cstring
							pushlong	#0						;pass no substitution array
							import		ManFeedAlertStr			;pass ptr to alert box def string
							pushlong	#ManFeedAlertStr
							_AlertWindow						;leave button-hit value on stack
							
							jsr			StMeAfterAlert			;in-flying rect and wait cursor
							
							pla									;get button that was hit
							eor			#1						;0=cancel; 1=ok
							cmp			#1						;set carry if cancel; clr if ok
							rts									;and exit





*
*STATUSMESSAGEDEVSTAT: Shows err alert. Pass status code -> A; on exit, 0/1 if OK/Cancel -> A:
*
*The given status code selects one of several messages; if b7 of the given status code is clear,
*then the user is presented with both Cancel and Continue buttons; if b7 is set, then only a
*single OK button is presented.
*
							export		StatusMessageDevStat
StatusMessageDevStat
							pha									;save status code for a moment
							shortx								;set short X/Y for byte stores
							
							and			#$80					;check if b7 is set; if so then
							bne			DeStNoContBtn			;branch to no-cont-btn-wanted code
							
DeStYesContBtn				lda			#' '+('/'*256)			;continue button wanted, so stuff
							ldy			#'1'					;characters into alert string that
							ldx			#'/'					;shows two buttons, cancel and ok
							bra			DeStSetContBtn
							
DeStNoContBtn				lda			#'/'+('^'*256)			;continue button not wanted, so stuff
							ldy			#'0'					;characters into alert string that
							ldx			#0						;shows only ok and makes it default
							
							import		DevStatAlertStrCBtn3	;3: for nondefault/default ok button
							import		DevStatAlertStrCBtn2	;2: for setting cancel or ok
							import		DevStatAlertStrCBtn1	;1: for terminating str no or yes
DeStSetContBtn				sta			DevStatAlertStrCBtn3	;store two characters
							sty			DevStatAlertStrCBtn2	;store one character
							stx			DevStatAlertStrCBtn1	;store one character
							
							longx								;restore 16 bit X/Y
							pla									;restore status code in A
							
							cmp			#$01					;setup correct str in subst array
							beq			DeStIsCode01
							cmp			#$02
							beq			DeStIsCode02
							cmp			#$8F
							beq			DeStIsCode8F
							rts
							
							import		DevStatAS_NoReady
DeStIsCode01				lda			#DevStatAS_NoReady
							bra			DeStStoreStrAndGo
							
							import		DevStatAS_PaperOut
DeStIsCode02				lda			#DevStatAS_PaperOut
							bra			DeStStoreStrAndGo
							
							import		DevStatAS_Serious
DeStIsCode8F				lda			#DevStatAS_Serious
							
DeStStoreStrAndGo			sta			DeStSubstArray+0		;store lo word in subst array

							import		DevStatAlertStrRect		;out-flying rect and arrow cursor
							ldx			#DevStatAlertStrRect
							ldy			#^DevStatAlertStrRect
							jsr			StMeBeforeAlert
														
							pha									;pass result space
							pushword	#%000					;pass reference is ptr to cstring
							pushlong	#DeStSubstArray			;pass no substitution array
							import		DevStatAlertStr			;pass ptr to alert box def string
							pushlong	#DevStatAlertStr
							_AlertWindow						;leave button-hit value on stack
							
							jsr			StMeAfterAlert			;in-flying rect and wait cursor
							
							pla									;get button that was hit
							eor			#1						;0=cancel; 1=ok
							rts									;and exit

*Static variables:
							import		DevStatAS_NoReady		;used to insert correct err string
DeStSubstArray				dc.l		DevStatAS_NoReady		;only lo word is modified here





*
*STMEBEFOREALERT/STMEAFTERALERT: Subroutines which do cursor changing and rect animation:
*

*STMEBEFOREALERT: Does fly-bigger/initcursor: Pass lo/hi of finishing rect -> X/Y:
StMeBeforeAlert
							stx			StMeDestRectPtr+0		;save ptr to caller's rect so it
							sty			StMeDestRectPtr+2		;can also be used by routine below
							
							import		StatusWindowRect		;build rectangle which is just a
							lda			StatusWindowRect+ov1	;point in the center of status box
							clc
							adc			StatusWindowRect+ov2
							lsr a
							sta			StMeCenterPointRect+ov1
							sta			StMeCenterPointRect+ov2
							lda			StatusWindowRect+oh1
							clc
							adc			StatusWindowRect+oh2
							lsr a
							sta			StMeCenterPointRect+oh1
							sta			StMeCenterPointRect+oh2
							
							pushlong	#$80000000				;do fly-bigger animation
							pushlong	#StMeCenterPointRect	;from status message box center
							pushlong	StMeDestRectPtr			;to caller's dialog box rect
							ldx			#$1412					;_WhooshRect
							jsl			$E10000
							
							pha									;save old cursor and set arrow
							pha
							_GetCursorAdr
							pulllong	StMeOldCursorPtr
							_InitCursor
							
							rts									;exit
							
*STMEAFTERALERT: Does fly-smaller/waitcursor, uses rect passed to StMeBeforeAlert above:
StMeAfterAlert
							pushlong	#$00000000				;do fly-smaller animation
							pushlong	#StMeCenterPointRect	;to status message box
							pushlong	StMeDestRectPtr			;from caller's dialog box rect
							ldx			#$1412					;_WhooshRect
							jsl			$E10000
							
							pushlong	StMeOldCursorPtr		;back to old cursor
							_SetCursor
							
							rts									;exit

*Static storage:
StMeCenterPointRect			dc.w		0,0,0,0					;used as input to WhooshRect
StMeDestRectPtr				dc.l		0						;caller's rectangle address
StMeOldCursorPtr			dc.l		0						;old cursor record address





*
*DATA: Maintains status message box's window grafport, size, and status across print driver calls:
*
StatusWindowPtr				dc.l		0
StatusWindowWidth			dc.w		0
StatusWindowExists			dc.w		0





*
*MODAL DIALOG ROUTINES:
*
*These routines put up a modal dialog box.  The user responds and the box is then erased
*before returning.
*





*
*DOCANTOPENALERT: Dialog for usage if unable to open communcations with printer:
*
*This routine does not assume that the current cursor is the arrow cursor.
*
							export		DoCantOpenAlert
DoCantOpenAlert
							pha									;leave address of old cursor
							pha									;on stack and set arrow cursor
							_GetCursorAdr
							_InitCursor
							
							pha									;pass result space
							pushword	#%000					;pass reference is ptr to cstring
							pushlong	#0						;pass no substitution array
							import		CaOpAlertBoxString		;pass ptr to alert box def string
							pushlong	#CaOpAlertBoxString
							_AlertWindow
							pla									;ignore button id that was hit
							
							_SetCursor							;restore old cursor from stack
							
							rts									;exit





*
*MODAL DIALOG ROUTINES THAT PUT UP DIALOG BOX ONLY UPON CERTAIN CONDITIONS:
*
*These routines check certain conditions and may put up a modal dialog box.  The user responds
*and the box is then erased before returning.
*





*
*CHECKANDDOFEATUREALERT: Dialog if pr record asks unsupported features.  0/1 if Go_on/Cancel -> A:
*
*This routine does not assume that the current cursor is the arrow cursor.
*
							export		CheckAndDoFeatureAlert
CheckAndDoFeatureAlert
							import		GetIsFeatureError		;NOTE: requires ok printRecordHandle
							jsr			GetIsFeatureError		;check if metrics says that an
							cmp			#0						;unsupported feature is being asked
							beq			UnFeExit				;if all is ok, exit with A set to 0
							
							pha									;leave address of old cursor
							pha									;on stack and set arrow cursor
							_GetCursorAdr
							_InitCursor
							
							pha									;pass result space
							pushword	#%000					;pass reference is ptr to cstring
							pushlong	#0						;pass no substitution array
							import		UnFeAlertBoxString		;pass ptr to alert box def string
							pushlong	#UnFeAlertBoxString
							_AlertWindow
							pullword	UnFeButtonHit			;store button id that was hit
							
							_SetCursor							;restore old cursor from stack
							
							lda			UnFeButtonHit			;retrieve button that was hit in A
							
UnFeExit					rts									;exit with A set to 0 or 1

*Static storage:
UnFeButtonHit				dc.w		0





*
*CHECKANDDOLOWMEMALERT: Dialog if low memory condition.  0/1 if Cancel/OK -> A:
*
*This routine assumes the current cursor is the arrow cursor.
*
							export		CheckAndDoLowMemAlert
CheckAndDoLowMemAlert
							pha									;available memory has to be
							pha									;greater than a threshold
							_RealFreeMem
							pla									;ignore lo word
							pla									;cmp hi word to threshold
							cmp			#LowMemAlertThresh		;if more than thresh then exit
							bcs			LoMeExitWith1
							
							pha									;pass result space
							pushword	#%000					;pass reference is ptr to cstring
							pushlong	#0						;pass no substitution array
							import		LoMeAlertBoxString		;pass ptr to alert box def string
							pushlong	#LoMeAlertBoxString
							_AlertWindow
							pla									;retrieve button that was hit in ACC
LoMeExit					rts									;exit with ACC 0 or 1 if Cancel/OK

LoMeExitWith1				lda			#1						;exit with ACC 1 always if we
							rts									;didn't have to put up the alert





*
*JOB/STYLE DIALOG ROUTINES:
*
*These routines show and conduct activity in the "Print Job" and "Page Setup" dialog boxes.
*





*
*CONDUCTSTYLEJOBDIALOG: Do dialog to allow user access to contents in print record (0/1 -> A):
*
*On entry, if A = 0 then this routine conducts Page Setup; if A = 1 then Print Job.
*On exit, A is set to nonzero if the OK button was selected; zero otherwise.
*
*The print record handle must be set up for this routine to function properly.
*If the OK button was not selected then the print record is left unmodified; otherwise,
*the print record contents are updated and validated by calling metrics routines.
*
*This routine does processing for control hits that may occur in both page setup
*(alias style) and job dialogs; but since some controls appear in the the style dialog
*and not in the job dialog control list, events will never happen for those controls.
*
							export		ConductStyleJobDialog
ConductStyleJobDialog

*Save PrStlDialog/PrJobDialog status and also leave value in A:
							sta			CoJoIsJobDialogFlag

*Fill in the name of the OK button if this is a setup or job dialog depending on value in A:
							import		okItemTitleSetup
							ldx			#okItemTitleSetup
							cmp			#1
							bne			CoJoSetOKButtStr
							import		okItemTitleJob
							ldx			#okItemTitleJob
							import		okItemTitlePtrLo
CoJoSetOKButtStr			stx			okItemTitlePtrLo

*Fill in the name of the current port driver:
							jsr			GetOutputPortName

*Make dialogdata contain values from print record EXCEPT page range and number of copies:
							import		GetPaper
							jsr			GetPaper
							clc
							adc			#paperTypeUsaLtrItemID
							import		paperTypeInitValue
							sta			paperTypeInitValue
*
							import		GetQuality
							jsr			GetQuality
							clc
							adc			#printQualityMeResItemID
							import		printQualityInitValue
							sta			printQualityInitValue
*
							import		GetVSize
							jsr			GetVSize
							import		heightCondensedInitValue
							sta			heightCondensedInitValue
							eor			#1
							import		heightNormalInitValue
							sta			heightNormalInitValue
*
							import		GetFeed
							jsr			GetFeed
							php
							ldy			#pageFeedManualItemID
							plp
							beq			CoJoSetIt2
							iny
							import		pageFeedInitValue
CoJoSetIt2					sty			pageFeedInitValue

*Set default page range and copies just like in what PrDefault would do:
							lda			#1
							sta			OptionA
							lda			#32767
							sta			OptionB
							import		SetPageRange
							jsr			SetPageRange
							import		SetCopies
							jsr			SetCopies

*Now set up the LE boxes, and set the All/From-To radio button states:
							import		pagesFromBoxString
							import		pagesToBoxString
							import		copiesBoxString
							shortm
							stz			pagesFromBoxString+0	;reset from/to LE box lengths to zero
							stz			pagesToBoxString+0
							lda			#'1'					;but put "1" in #-of-copies LE box
							sta			copiesBoxString+1
							lda			#1
							sta			copiesBoxString+0
							import		pagesAllInitValue
							import		pagesRangeInitValue
							sta			pagesAllInitValue		;set default "All" pages radio button
							stz			pagesRangeInitValue
							longm

*Now draw the window with the appropriate control list for either setup or job:
							import		StyleControlTemp
							import		JobControlTemp
							ldx			#^StyleControlTemp		;get address of control template
							stx			ParamLongA+2			;assume both setup/job in same bank
							ldx			#StyleControlTemp
							lda			CoJoIsJobDialogFlag
							beq			CoJoSetCtlTmpLoDraw
							ldx			#JobControlTemp
CoJoSetCtlTmpLoDraw			stx 		ParamLongA+0
							jsr 		StartDialog				;draw window with controls

*Setup TaskMask not to handle keyboard events:
							lda			#^DialogTaskMaskNoKeys	;need change hi word only
							sta			DialogTaskMask+2

*Set our flag to ignore very first update event:
							lda			#1
							sta			CoJoIsFirstUpdateFlag

*Get LineEdit (LE) handle ready for Copies item and then go to event loop.  LE ctl's handle in plA:
							lda			CoJoIsJobDialogFlag		;do only for job dialog
							beq			CoJoDontSetupLEH
							pha
							pha
							pushlong	DialogWindowPtr
							pushlong	#copiesBoxItemID
							_GetCtlHandleFromID
							pulllong	ParamLongA				;"Copies" item's handle in ParamLongA
							brl			CoJoSetLEAndGotoLoop	;go get LE hdl and go to event loop
CoJoDontSetupLEH

*Event loop which gets mouseclicks/keys and control tracking.  LE control handles in ParamLongA:
CoJoEventLoop				lda			CoJoIsJobDialogFlag		;blink a cursor if job dialog
							beq			CoJoDoTasks
							pushlong	ParamLongA
							_LEIdle
CoJoDoTasks					pha									;result space
							pushword	#$FFFF					;event mask
							pushlong	#DialogTaskRecord		;where to stuff event data
							_TaskMaster							;do events
							pla

*Do redrawing of controls for update event, if necessary:
							cmp			#6						;update event?
							bne			CoJoDoneUpdate
							ldx			DialogWindowPtr+0		;check if it's our window-pointer
							cpx			DialogTaskData+0
							bne			CoJoDoneUpdate
							ldy			DialogWindowPtr+2
							cpy			DialogTaskData+2
							bne			CoJoDoneUpdate
CoJoItsOurUpdate			phy									;pass window-ptr and BeginUpdate
							phx
							_BeginUpdate
							lda			CoJoIsFirstUpdateFlag	;is it 1st update event this time?
							stz			CoJoIsFirstUpdateFlag	;clear flag for next update event
							bne			CoJoDontRedrawUpdate	;if 1st update then ignore
							jsr			RedrawDialog
CoJoDontRedrawUpdate		pushlong	DialogWindowPtr			;pass window-ptr and do EndUpdate
							_EndUpdate
							bra			CoJoEventLoop
CoJoDoneUpdate
							
*Check for mousedown in a control or if a key was hit:
							cmp			#$0021					;wInControl?
							bne			CoJoNotInCtrl			;if so possibly do any unusual stuff
							brl			CoJoCheckCtrls
CoJoNotInCtrl				cmp			#$0003					;keyDownEvt?
							bne			CoJoEventLoop			;if not resume loop, else drop thru

*A key has been hit; get its ascii code so we can do some keypress handling:
							lda			DialogMessage
							
*Do Paper Feed toggle ourselves if key hit (key code in A):
							import		pageFeedItemKey1Equiv	;check both keys and skip if not
							import		pageFeedItemKey2Equiv
							cmp			#pageFeedItemKey1Equiv
							beq			CoJoItsFeedKeyEquiv
							cmp			#pageFeedItemKey2Equiv
							bne			CoJoDoneFeedKeyEquiv
							
CoJoItsFeedKeyEquiv			lda			#pageFeedItemID
							jsr			GetControlValue			;get feed's control value in A
							sec
							sbc			#pageFeedManualItemID	;normalize popup id to 0/1
							eor			#1						;flip it
							clc									;unnormalize it again
							adc			#pageFeedManualItemID
							pha									;pass new value for SetCtlValue...
							
							phx									;pass result space
							phx									;pass result space
							pushlong	DialogWindowPtr			;pass wptr for GetCtlHandleFromID
							pushlong	#pageFeedItemID			;pass id for GetCtlHandleFromID
							_GetCtlHandleFromID
							_SetCtlValue
							
							brl			CoJoEventLoop
CoJoDoneFeedKeyEquiv

*Do Height toggle ourselves (Style dialog only) if key hit (key code in A):
							import		heightItemKey1Equiv		;check both keys and skip if not
							import		heightItemKey2Equiv
							cmp			#heightItemKey1Equiv
							beq			CoJoItsHeightKeyEquiv
							cmp			#heightItemKey2Equiv
							bne			CoJoDoneHeightKeyEquiv
							
CoJoItsHeightKeyEquiv		lda			#heightCondensedItemID
							jsr			GetControlValue			;get height's control value in A
							bcs			CoJoDoneHeightKeyEquiv	;this only exists in Style dialog
							pha									;pass new value for SetCtlValue #2...
							eor			#1						;flip it
							pha									;pass new value for SetCtlValue #1...
							
							phx									;pass result space (#1: ++logic)
							phx									;pass result space
							pushlong	DialogWindowPtr			;pass wptr for GetCtlHandleFromID
							pushlong	#heightCondensedItemID	;pass id for GetCtlHandleFromID
							_GetCtlHandleFromID
							_SetCtlValue
							
							phx									;pass result space (#2: --logic)
							phx									;pass result space
							pushlong	DialogWindowPtr			;pass wptr for GetCtlHandleFromID
							pushlong	#heightNormalItemID		;pass id for GetCtlHandleFromID
							_GetCtlHandleFromID
							_SetCtlValue
							
							brl			CoJoEventLoop
CoJoDoneHeightKeyEquiv

*Do OK/Cancel hilite ourselves if key hit (key code in A):
							import		okItemKeyEquiv
							cmp			#okItemKeyEquiv
							bne			CoJoNotKeyOk
							
CoJoItsKeyOk				pha
							pha
							pushlong	DialogWindowPtr
							pushlong	#okItemID
							_GetCtlHandleFromID
							pulllong	ParamLongA				;clobber this, but we're out anyway
							pushword	#1
							pushlong	ParamLongA
							_HiliteControl
							pushword	#0
							pushlong	ParamLongA
							_HiliteControl
							brl			CoJoOk
							
							import		cancelItemKey1Equiv
							import		cancelItemKey2Equiv
CoJoNotKeyOk				tax
							cmp			#cancelItemKey1Equiv	;do cancel if either Key1 (ESC) or
							beq			CoJoItsKeyCancel		;Key2 (.) with Command-key down
							cmp			#cancelItemKey2Equiv
							bne			CoJoNotKeyCancel
							lda			DialogModifiers
							and			#$0100
							bne			CoJoItsKeyCancel
CoJoNotKeyCancel			txa
							bra			CoJoDoneOKCKeyEquiv
							
CoJoItsKeyCancel			pha
							pha
							pushlong	DialogWindowPtr
							pushlong	#cancelItemID
							_GetCtlHandleFromID
							pulllong	ParamLongA				;clobber this, but we're out anyway
							pushword	#1
							pushlong	ParamLongA
							_HiliteControl
							pushword	#0
							pushlong	ParamLongA
							_HiliteControl
							brl			CoJoCancel
CoJoDoneOKCKeyEquiv

*If TAB, try to move target to another box and update LE handle and maybe alter radio buttons:
							lda			CoJoIsJobDialogFlag		;do only for job dialog
							beq			CoJoDoneKeyTab
							
							lda			DialogMessage			;get key character
							cmp			#9						;TAB key?
							bne			CoJoDoneKeyTab			;not TAB key
							
							pha									;set next targetable LE control as
							pha									;target, and set new ctl handle in
							_MakeNextCtlTarget					;DialogTaskData2 just as if real evt
							pulllong	DialogTaskData2			;happened, then go to code that does
							bra			CoJoFromToBoxes			;radio button and ctl->LE hdl change
CoJoDoneKeyTab

*Not OK/Cancel/TAB/Etc, so filter out '0'..'9'/LE cmd keys and call LEKey:
							lda			CoJoIsJobDialogFlag		;do only for job dialog
							bne			CoJoDoLEKeyFilter
							brl			CoJoEventLoop
CoJoDoLEKeyFilter
							lda			DialogMessage			;look at keystroke ascii code
							shortm
							shortx
							ldy			#15
CoJoCheckKeyLoop			cmp			CoJoLEKeyTable,y		;is it a key we should handle?
							beq			CoJoLEKey
							dey
							bpl			CoJoCheckKeyLoop
							longm
							longx
							brl			CoJoEventLoop
CoJoLEKeyTable				dc.b		8,21,127,6,24,25,'0','1','2','3','4','5','6','7','8','9'
CoJoLEKey					longm
							longx
							pushword	DialogMessage
							pushword	DialogModifiers
							pushlong	ParamLongA
							_LEKey
							brl 		CoJoEventLoop

*Here if mousedown in a control and we want to do stuff above and beyond TaskMaster's tracking:
CoJoCheckCtrls

*Check if click in version number and if so do about box:
							lda			DialogTaskData4			;get lo order control item ID
							cmp			#versionItemID
							bne			CoJoDoneAboutBox
							pha									;pass result space
							pushword	#%000					;pass reference is ptr to cstring
							pushlong	#0						;pass no substitution array
							import		AbBoAlertBoxString		;pass ptr to alert box def string
							pushlong	#AbBoAlertBoxString
							_AlertWindow
							pla									;retrieve button hit, we don't care
CoJoDoneAboutBox

*Check if any new LE text boxes were selected; also change All/From-To radio buttons:
							lda			DialogTaskData4			;get lo order control item ID
							cmp			#pagesFromBoxItemID		;check if From or To boxes were hit
							beq			CoJoFromToBoxes
							cmp			#pagesToBoxItemID
							bne			CoJoNotFromToBoxes
CoJoFromToBoxes
							pushword	#0						;switch All/From-To radio button
							pha
							pha
							pushlong	DialogWindowPtr
							pushlong	#pagesAllItemID
							_GetCtlHandleFromID
							_SetCtlValue						;turn "All" radio button off
							pushword	#1
							pha
							pha
							pushlong	DialogWindowPtr
							pushlong	#pagesRangeItemID
							_GetCtlHandleFromID
							_SetCtlValue						;turn the other radio button on
							bra			CoJoItsBox
CoJoNotFromToBoxes
							cmp			#copiesBoxItemID
							bne			CoJoNoLEBoxes

*We selected a box; get its LE handle:
CoJoItsBox					lda			DialogTaskData2+0		;get handle to control record
							sta			ParamLongA+0
							lda			DialogTaskData2+2
							sta			ParamLongA+2

*Get LE handle from ctl handle and then go to event loop:
CoJoSetLEAndGotoLoop		lda			[ParamLongA]
							tax
							ldy			#2
							lda			[ParamLongA],y
							sta			ParamLongA+2
							stx			ParamLongA+0
							ldy			#octlData				;offset into ctrl rec for LE handle
							lda			[ParamLongA],y			;lo order word of LE handle
							tax
							iny
							iny
							lda			[ParamLongA],y			;hi order word of LE handle
							sta			ParamLongA+2
							stx			ParamLongA+0			;ParamLongA now has LE handle
							brl			CoJoEventLoop

*If no boxes were clicked, since we got wInControl, check other possibilities:
CoJoNoLEBoxes

*Exit without affecting print record if Cancel select:
							cmp			#cancelItemID
							bne			CoJoNotCancel
CoJoCancel					jsr			FinishDialog			;dump dialog box
							lda			#0						;confirmFlag will be false
							rts

*If OK select, modify data in pr rec only if this ctl in this dialog; else resume event handling:
CoJoNotCancel				cmp			#okItemID
							beq			CoJoOk
							brl			CoJoEventLoop
CoJoOk
*
							lda			#paperTypeItemID
							jsr			GetControlValue
							bcs			CoJoDoneSetPaper
							sec
							sbc			#paperTypeUsaLtrItemID
							sta			OptionA
							import		SetPaper
							jsr			SetPaper
CoJoDoneSetPaper
*
							lda			#printQualityItemID
							jsr			GetControlValue
							bcs			CoJoDoneSetQuality
							sec
							sbc			#printQualityMeResItemID
							sta			OptionA
							import		SetQuality
							jsr			SetQuality
CoJoDoneSetQuality
*
							lda			#heightCondensedItemID
							jsr			GetControlValue
							bcs			CoJoDoneSetVSize
							sta			OptionA
							import		SetVSize
							jsr			SetVSize
CoJoDoneSetVSize
*
							lda			#pageFeedItemID
							jsr			GetControlValue
							bcs			CoJoDoneSetFeed
							sec
							sbc			#pageFeedManualItemID
							sta			OptionA
							import		SetFeed
							jsr			SetFeed
CoJoDoneSetFeed

*If we're not a job dialog, don't do any of the following sections dealing with pg range/copies:
							lda			CoJoIsJobDialogFlag
							beq			CoJoDoneSettingPrRec

*Initially assume default values for both parts of the page range:
							lda			#1
							sta			OptionA
							lda			#32767
							sta			OptionB

*If "All" page range option selected, skip the following few sections:
							lda			#pagesAllItemID
							jsr			GetControlValue
							cmp			#1
							beq			CoJoSetPageRange
							
*"All" not selected, so get each part of the page range only if nonzero.  Pin on upper limit:
							lda			#pagesFromBoxItemID			;convert "From" string to number
							jsr			GetBoxValue
							cmp			#0							;if zero, keep our default
							beq			CoJoDontConsiderPgRngA
							cmp			#32768						;pin to largest value and store
							bcc			CoJoConsiderPgRngA
							lda			#32767
CoJoConsiderPgRngA			sta			OptionA
CoJoDontConsiderPgRngA
							lda			#pagesToBoxItemID			;convert "To" string to number
							jsr			GetBoxValue
							cmp			#0							;if zero, keep our default
							beq			CoJoDontConsiderPgRngB
							cmp			#32768						;pin to largest value and store
							bcc			CoJoConsiderPgRngB
							lda			#32767
CoJoConsiderPgRngB			sta			OptionB
CoJoDontConsiderPgRngB

*With first page in OptionA and last page in OptionB, see if backwards:
							lda			OptionB
							cmp			OptionA						;check page range
							bcs			CoJoPageRangeNotBackwards	;branch if not backwards
							ldx			OptionA						;else exchange A,B...
							sta			OptionA
							stx			OptionB
CoJoPageRangeNotBackwards

*With sane values for first page in OptionA and last page in OptionB, set the page range:
							import		SetPageRange
CoJoSetPageRange			jsr			SetPageRange

*Set number of copies, pinning to largest possible value and ensuring nonzero:
							lda			#copiesBoxItemID			;convert "Copies" str to number
							jsr			GetBoxValue
							cmp			#32768						;pin within range 1..32767...
							bcc			CoJoNoPinCopies1
							lda			#32767
CoJoNoPinCopies1			cmp			#0
							bne			CoJoNoPinCopies2
							lda			#1
CoJoNoPinCopies2			sta			OptionA
							import		SetCopies
							jsr			SetCopies

*At this point we're done with all print record modifications:
CoJoDoneSettingPrRec

*Dump dialog box, validate print record because it changed, and exit with A set:
							jsr			FinishDialog				;dump the box
							import		CalcMetrics					;make sure it's self-consistent
							jsr			CalcMetrics
							lda			#1							;confirmFlag will be true
							rts

*Variables used by this routine:
CoJoIsFirstUpdateFlag		dc.w		0							;true until first update event
CoJoIsJobDialogFlag			dc.w		0							;0=PrStlDialog, 1=PrJobDialog







*
*SUBROUTINES: Used by routines above to perform various setup/shutdown and repeated tasks:
*





*
*STARTDIALOG: Draws our standard dialog window; fills with control list given by "ParamLongA":
*
StartDialog

*Save current grafport pointer for later restore:
							pha									;result space for old grafport
							pha	
							_GetPort
							pulllong	OldGrafPortPtr			;save old grafport pointer

*Modify coordinates of dialog window to suit 320/640 mode:
							import		WindowCoordX2			;get ready to modify dialog coords
							lda			WindowCoordX2
							sec
							import		WindowCoordX1
							sbc			WindowCoordX1			;calc box size (silly at runtime)
							sta			ParamWordA				;save size
							pha									;result space for scb
							_GetMasterSCB
							pla
							ldx			#640					;assume 640 mode for a sec
							and			#$80					;look at mode bit (1=640, 0=320)
							bne			StDiMode640
							ldx			#320					;change assumption made above
StDiMode640					txa
							sec
							sbc			ParamWordA				;a-reg now has [320|640] - (X2-X1)
							lsr a								;divide by two
							sta			WindowCoordX1			;this is left coordinate of box
							clc
							adc			ParamWordA				;maintain proper box size
							sta			WindowCoordX2			;this is right coordinate of box

*Draw the window on the screen and set as current port:
							pushlong	#0						;result space for window grafportptr
							import		WindowTemp
							pushlong	#WindowTemp
							_NewWindow							;draw window from template
							lda 		1,s						;keep on stack for SetPort only
							sta 		DialogWindowPtr+0		;and also save it away
							lda 		3,s
							sta 		DialogWindowPtr+2
							_SetPort							;set our window as current port
							
*Create (but don't draw yet) the controls in the window using the given control template:
							pushlong	#0						;result space
							pushlong	DialogWindowPtr			;window's grafport to draw in
							pushword	#3						;ptrToPtr input reference
							pushlong	ParamLongA				;get desired control template
							_NewControl2
							pla									;we don't need these zeros
							pla
							
*Draw the controls and exit:
							jsr			RedrawDialog
							rts





*
*REDRAWDIALOG: Call this routine to redraw contents of window (during update event, for example):
*
RedrawDialog				
							pushlong	DialogWindowPtr
							_DrawControls						;fill window with controls...
							pushword	#1						;draw horizontal adornment line...
							pushword	#2
							_SetPenSize
							import		WindowLineY
							import		WindowLineX1
							import		WindowLineX2
							pushword	#WindowLineX1
							pushword	#WindowLineY
							_MoveTo
							pushword	#WindowLineX2
							pushword	#WindowLineY
							_LineTo
							_InitCursor							;ensure arrow cursor...
							rts




							
*
*FINISHDIALOG: Call this routine when done with dialog; erases window/controls and releases memory:
*
FinishDialog				
							pushlong	DialogWindowPtr
							_KillControls						;dispose control memory
							pushlong	DialogWindowPtr
							_CloseWindow						;erase window and dispose memory
							pushlong	OldGrafPortPtr			;get old port pointer
							_SetPort							;restore it
							rts





*
*GETOUTPUTPORTNAME: Routine which sets up "XXX" part in "printername/XXX" in dialog data:
*
GetOutputPortName
							import		CommGetWhichPort			;get 0/1 in A if printer or
							jsr			CommGetWhichPort			;modem port is selected
							
							cmp			#1							;point A to one of two strings
							beq			GePoNaItsModem
							import		PortTitleStrPrinter
GePoNaItsPrinter			lda			#PortTitleStrPrinter
							bra			GePoNaDoneSelStr
							import		PortTitleStrModem
GePoNaItsModem				lda			#PortTitleStrModem
GePoNaDoneSelStr

							sta			ParamWordA					;copy the string pointed to by
							shortm									;16-bit ptr in A into the data
							shortx									;used to draw dialog box
							lda			(ParamWordA)
							tay
							clc
							import		PortTitleLenOrig
							adc			#PortTitleLenOrig			;store correct length of full
							import		PortTitleLen				;ie, "IMAGEWRITER LQ/PRINTER",
							sta			PortTitleLen				;port title, and copy "PRINTER",
GePoNaStrCpy				lda			(ParamWordA),y				;etc., string...
							import		PortTitleStr
							sta			PortTitleStr-1,y
							dey
							bne			GePoNaStrCpy
							longm
							longx
							
							rts





*
*GETCONTROLVALUE: Obtains control state. Put ID lo order word -> A; on exit, A -> control value:
*If an error (ie, control not found) occurs, then A has error code and carry is set on exit.
*
GetControlValue				
							sta			ParamWordA					;save for use in a second
							pha										;result space for GetCtlValue
							pha										;result space...
							pha										;...for GetCtlHandleFromID
							pushlong	DialogWindowPtr				;pass window pointer
							pushword	#0							;pass hi order word of ID
							pushword	ParamWordA					;pass lo order word of ID
							_GetCtlHandleFromID						;get handle
							bcc			GeCvNoError					;if found handle ok, go on
							plx										;clean up stack and exit error
							plx
							plx
							rts
GeCvNoError					_GetCtlValue							;use handle to get value
							pla										;leave value in accumulator
							rts
							


							
							
*
*GETBOXVALUE: Gets integer from LineEdit control.  Put ID lo order -> ACC; on exit, ACC -> integer:
*
GetBoxValue					
							sta			ParamWordA					;save for use in a second
							pha										;result space for GetCtlValue...
							pha										;...result space
							pushlong	DialogWindowPtr				;pass window pointer
							pushword	#0							;pass hi order word of ID
							pushword	ParamWordA					;pass lo order word of ID
							_GetCtlHandleFromID						;get handle to control record
							pulllong	ParamLongA					;get it off stack into dp
							lda			[ParamLongA]				;dereference the handle
							tax
							ldy			#2
							lda			[ParamLongA],y
							sta			ParamLongA+2
							stx			ParamLongA					;ParamLongA is now a pointer
							ldy			#octlData					;offset ctrl rec for LE handle
							lda			[ParamLongA],y
							tax
							iny
							iny
							lda			[ParamLongA],y				;a,x now has LE handle
							pha										;result space for LEGetTextHand
							pha										;result space for LEGetTextHand
							pha										;hi LE handle for LEGetTextHand
							phx										;lo LE handle for LEGetTextHand
							pha										;result space for LEGetTextLen
							pha										;hi LE handle for LEGetTextLen
							phx										;lo LE handle for LEGetTextLen
							_LEGetTextLen							;get length of our text line
							pullword	ParamWordA					;save length for use in a sec
							_LEGetTextHand							;get handle to our text line
							pulllong	ParamLongA					;get it off stack into dp
							lda			[ParamLongA]				;dereference the handle again
							tax
							ldy			#2
							lda			[ParamLongA],y
							sta			ParamLongA+2
							stx			ParamLongA					;we now have pointer to string!
							pha										;result space
							pushlong	ParamLongA					;pass the pointer
							pushword	ParamWordA					;pass string length
							pushword	#0							;pass that this is unsigned
							_Dec2Int								;convert ascii to word
							pla										;get result in accumulator
							rts
							
		
							


*
*DATA: Extended task record used by dialogs into which TaskMaster dumps data and gets parameters:
*
DialogTaskRecord:
DialogWhat					dc.w		0
DialogMessage				dc.l		0
DialogWhen					dc.l		0
DialogWhere					dc.w		0,0
DialogModifiers				dc.w		0
DialogTaskData				dc.l		0
DialogTaskMask				dc.l		DialogTaskMaskYesKeys
DialogLastClickTick			dc.l	    0
DialogClickCount			dc.w		0
DialogTaskData2				dc.l		0
DialogTaskData3				dc.l		0
DialogTaskData4				dc.l		0
DialogLastClickPt			dc.w		0,0
							;			 10987654321098765432109876543210
DialogTaskMaskYesKeys		equ			%00000000000100110000000000000100
DialogTaskMaskNoKeys		equ			%00000000000100010000000000000100





							endproc
							end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/TABASCO/dialogdata.a b/IIGS.601.SRC/GSToolbox/PrinterDrivers/TABASCO/dialogdata.a
new file mode 100644
index 0000000..88f2bf6
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/TABASCO/dialogdata.a
@@ -0,0 +1 @@
+
******************************************************************************************
*                                                                                        *
*		Apple IIgs Printer Driver                                                        *
*                                                                                        *
*		File: dialogdata.a -- User-interface text strings and dialog layout              *
*                                                                                        *
*		Written by Ben Koning                                                            *
*		Copyright (C) 1991 Apple Computer, Inc.                                          *
*                                                                                        *
******************************************************************************************







							include		'equates.h'



							include		'm16.util'
							include		'e16.control'
							include		'e16.window'
							include		'e16.dialog'



DialogDataRec				record		export





*
*STATUSWINDOWTEMP: Window template for status box:
*
							export		StatusWindowTemp
StatusWindowTemp			dc.w		StatusWindowTempEnd-StatusWindowTemp	;paramLength Word
							dc.w		fAlert+fQContent+fVis					;wFrameBits Word
							dc.l		0										;wTitle Pointer
							dc.l		0										;wRefCon Long 
							dc.w		0,0,0,0									;wZoom	Rect
							dc.l		0										;wColor WindColorPtr
							dc.w		0										;wYOrigin Integer
							dc.w		0										;wXOrigin Integer
							dc.w		200										;wDataH Word 
							dc.w		640										;wDataW Word 
							dc.w		200										;wMaxH Word 
							dc.w		640										;wMaxW Word
							dc.w		0										;wScrollVer Word
							dc.w		0										;wScrollHor Word
							dc.w		0										;wPageVer Word
							dc.w		0										;wPageHor Word 
							dc.l		0										;wInfoRefCon Long
							dc.w		0										;wInfoHeight Word
							dc.l		0										;wFrameDefProc Ptr
							dc.l		0 										;wInfoDefProc Ptr
							dc.l		0 										;wContDefProc Ptr
							export		StatusWindowRect						;for extern refs
StatusWindowRect			dc.w		20										;wPosition Rect Y1
							export		StatusWindowCoordX1						;for 320/640 mod
StatusWindowCoordX1			dc.w		12										;wPosition Rect X1
							dc.w		20+25									;wPosition Rect Y2
							export		StatusWindowCoordX2						;for 320/640 mod
StatusWindowCoordX2			dc.w		308										;wPosition Rect X2
							dc.l		$FFFFFFFF								;wPlane GrafPortPtr
							dc.l		0										;wStorage WindRecPtr
StatusWindowTempEnd:
							export		StatusWindowTextY						;Y1 local text coord
StatusWindowTextY			dc.w		15

							export		StatusWindowEraseRect					;to clear contents
StatusWindowEraseRect		dc.w		0,0,25,296





*
*MANFEEDALERTSTR: AlertWindow definition string for manual-feed dialog box:
*
							export		ManFeedAlertStr
							export		ManFeedAlertStrRect
							export		ManFeedAlertStrCoordX1
							export		ManFeedAlertStrCoordX2
ManFeedAlertStr				dc.b		'0'										;size spec: custom
ManFeedAlertStrRect			dc.w		20										;size Y1
ManFeedAlertStrCoordX1		dc.w		$FFFF									;size X1: stuffed
							dc.w		200-20									;size Y2
ManFeedAlertStrCoordX2		dc.w		$FFFF									;size X2: stuffed
							dc.b		'3'										;icon: "Note"
							dc.b		'/'										;separator
							dc.b		'Please insert the next sheet when '
							dc.b		'the printer stops running.  Press '
							dc.b		'and release the Ready button and '
							dc.b		'push the paper into the front or '
							dc.b		'back paper feed slot.  Paper will '
							dc.b		'feed automatically (rear slot) or '
							dc.b		'upon pressing the Form Feed button '
							dc.b		'(front slot).  When paper is loaded, '
							dc.b		'press the Ready button so that the '
							dc.b		'Ready light is on.  Envelopes must '
							dc.b		'always be fed from the rear slot.'
							dc.b		'/'										;separator
							dc.b		'#1'									;btn "Cancel" id=0
							dc.b		'/'										;separator
							dc.b		'^#6'									;btn "Continue" id=1
							dc.b		0										;terminator





*
*DEVSTATALERTSTR: Device error alert box strings:  Used for printer error messages:
*
							export		DevStatAlertStr							;string access
							export		DevStatAlertStrRect						;for set rect
							export		DevStatAlertStrCoordX1					;for set rect
							export		DevStatAlertStrCoordX2					;for set rect
							export		DevStatAlertStrCBtn1					;for early term str
							export		DevStatAlertStrCBtn2					;for set cancel<->ok
							export		DevStatAlertStrCBtn3					;for set dflt ok
DevStatAlertStr				dc.b		'0'										;size: custom
DevStatAlertStrRect			dc.w		20										;size Y1
DevStatAlertStrCoordX1		dc.w		$FFFF									;size X1: stuffed
							dc.w		20+55									;size Y2
DevStatAlertStrCoordX2		dc.w		$FFFF									;size X2: stuffed
							dc.b		'2'										;icon: "Stop"
							dc.b		'/'										;separator
							dc.b		'*0'									;do substitution
DevStatAlertStrCBtn3		dc.b		$FF,$FF									;stuff ' /' or '/^'
							dc.b		'#'										;cancel-btn id=0...
DevStatAlertStrCBtn2		dc.b		$FF										;stuff '1' or '0'
DevStatAlertStrCBtn1		dc.b		$FF										;stuff '/' or $00
							dc.b		'^#6'									;dflt "Continue" id=1
							dc.b		0										;terminator
														
							export		DevStatAS_NoReady						;for substitution
DevStatAS_NoReady			dc.b		'The Ready light is off.  Please '
							dc.b		'press the Ready button '
							dc.b		'on the printer.'
							dc.b		0
							
							export		DevStatAS_PaperOut						;for substitution
DevStatAS_PaperOut			dc.b		'The printer is out of paper.  Please '
							dc.b		'refill and then press the Ready '
							dc.b		'button.'
							dc.b		0
							
							export		DevStatAS_Serious						;for substitution
DevStatAS_Serious			dc.b		'A serious problem has '
							dc.b		'occurred.  The print job will be '
							dc.b		'terminated.'
							dc.b		0





*
*Status messages used in the status box during the progress of the printing loop:
*
							export		StMeMallocMesg							;during bandbuff get
StMeMallocMesg				str			'Allocating imaging memory'

							export		StMePrinterResetMesg					;during pr reset cmd
StMePrinterResetMesg		str			'Setting up printer'

							export		StMePrepRxPgDataMesg					;on out of openpage
StMePrepRxPgDataMesg		str			'Ready to receive page data'

							export		StMeRxCurrentPgMesg						;MUST be 30 chars!
StMeRxCurrentPgMesg			str			'Receiving data for page: XXXXX'

							export		StMePrCurrentPgMesg						;MUST be 30 chars!
StMePrCurrentPgMesg			str			'Printing a copy of page: XXXXX'

							export		StMePrCurrentCpMesg						;MUST be 30 chars!
StMePrCurrentCpMesg			str			'Printing  copy  number:  XXXXX'

							export		StMeRenderingMesg						;during DrawPicture
StMeRenderingMesg			str			'Rendering page image'

							export		StMeAbortMesg							;abort by user/caller
StMeAbortMesg				str			'Cancelling print job'

							export		StMeCantOpenMesg						;if can't communicate
StMeCantOpenMesg			str			'Unable to establish communication'

							export		StMeCantRenderGenMesg					;if DrawPict/etc err
StMeCantRenderGenMesg		str			'Rendering error'

							export		StMeCantRenderMemMesg					;if DrawPict/etc err
StMeCantRenderMemMesg		str			'Insufficient rendering memory'





*
*WINDOWTEMP: Window template for both of our dialogs (we just make the controls fit one size box):
*
							export		WindowTemp
WindowTemp					dc.w		WindowTempEnd-WindowTemp				;paramLength Word
							dc.w		fAlert+fQContent+fVis					;wFrameBits Word
							dc.l		0										;wTitle Pointer
							dc.l		0										;wRefCon Long 
							dc.w		0,0,0,0									;wZoom Rect
							dc.l		0										;wColor WindColorPtr
							dc.w		0										;wYOrigin Integer
							dc.w		0										;wXOrigin Integer
							dc.w		200										;wDataH Word 
							dc.w		640										;wDataW Word 
							dc.w		200										;wMaxH Word 
							dc.w		640										;wMaxW Word
							dc.w		0										;wScrollVer Word
							dc.w		0										;wScrollHor Word
							dc.w		0										;wPageVer Word
							dc.w		0										;wPageHor Word 
							dc.l		0										;wInfoRefCon Long
							dc.w		0										;wInfoHeight Word
							dc.l		0										;wFrameDefProc Pointer
							dc.l		0 										;wInfoDefProc Pointer
							dc.l		0 										;wContDefProc Pointer
							dc.w		38										;wPosition Rect Y1
							export		WindowCoordX1							;for 320/640 mod
WindowCoordX1				dc.w		12										;wPosition Rect X1
							dc.w		161										;wPosition Rect Y2
							export		WindowCoordX2							;for 320/640 mod
WindowCoordX2				dc.w		308										;wPosition Rect X2
							dc.l		$FFFFFFFF								;wPlane GrafPortPtr
							dc.l		0										;wStorage WindRecPtr
WindowTempEnd:





*
*Coordinates for adornment line separating title/version info from controls in the dialog boxes:
*
							export		WindowLineY:equ
							export		WindowLineX1:equ
							export		WindowLineX2:equ
WindowLineY					equ			14
WindowLineX1				equ			7
WindowLineX2				equ			287
			




*
*STYLECONTROLTEMP/JOBCONTROLTEMP: Control templates for the dialog window:
*
							export		StyleControlTemp
StyleControlTemp			dc.l		printQualityItem
							dc.l		pageFeedItem
							dc.l		heightCondensedItem
							dc.l		heightNormalItem
							dc.l		heightTitleItem
							dc.l		paperTypeItem
							dc.l		titleItem
							dc.l		versionItem
							dc.l		cancelItem
							dc.l		okItem
							dc.l		0

							export		JobControlTemp
JobControlTemp				dc.l		printQualityItem
							dc.l		pageFeedItem
							dc.l		pagesToBoxItem
							dc.l		pagesFromToSeparatorItem
							dc.l		pagesFromBoxItem
							dc.l		pagesRangeItem
							dc.l		pagesAllItem
							dc.l		pagesTitleItem
							dc.l		copiesBoxItem
							dc.l		copiesTitleItem
							dc.l		titleItem
							dc.l		versionItem
							dc.l		cancelItem
							dc.l		okItem
							dc.l		0





*
*Control items used by style and job dialogs; some controls are used by both:
*
							export		PortTitleLen							;"printername/XXX"...
							export		PortTitleStr							;... set Len & Str
							export		PortTitleLenOrig:equ					;... for information
titleItem					dc.w		8										;pCount
							dc.l		titleItemID								;ID
							dc.w		3,6,13,258								;Rect
							dc.l		statTextControl							;ProcRef
							dc.w		1										;Flags
							dc.w		$1000									;MoreFlags
							dc.l		0										;RefCon
							dc.l		TiItStart								;TextRef
PortTitleLen				dc.w		PortTitleLenOrig						;space for len byte
TiItStart					dc.b		'StyleWriter / '
TiItEnd:
PortTitleStr				dc.b		'XXXXXXXXXXXXXXX'						;space for portname
PortTitleLenOrig			equ			TiItEnd-TiItStart						;for computations
			
versionItem					dc.w		8										;pCount
							dc.l		versionItemID							;ID
							dc.w		3,258,13,298							;Rect
							dc.l		statTextControl							;ProcRef
							dc.w		1										;Flags
							dc.w		$1000									;MoreFlags
							dc.l		0										;RefCon
							dc.l		@VeTiStart								;TitleRef
							dc.w		@VeTiEnd-@VeTiStart						;Use "VersionID"
@VeTiStart					dc.b		'v'										;equate to
							dc.b		('0'+(VersionID/256))					;generate code
							dc.b		'.'										;for version
							dc.b		('0'+(VersionID//256))					;string
@VeTiEnd:
			
							export		cancelItemKey1Equiv:equ
							export		cancelItemKey2Equiv:equ
cancelItem					dc.w		9										;pCount
							dc.l		cancelItemID							;ID
							dc.w		104,124,104+13,124+70					;Rect
							dc.l		simpleButtonControl						;ProcRef
							dc.w		0										;Flags
							dc.w		$3000									;MoreFlags
							dc.l		0										;RefCon
							dc.l		@Title									;TitleRef
							dc.l		0										;ColorTableRef
							dc.b		cancelItemKey1Equiv						;KeyEquiv
							dc.b		cancelItemKey1Equiv						;both Key1
							dc.w		0
							dc.w		0
@Title						str			'Cancel'
cancelItemKey1Equiv			equ			27										;escape key equiv
cancelItemKey2Equiv			equ			'.'										;cmd-'.' key equiv
			
							export		okItemKeyEquiv:equ
							export		okItemTitlePtrLo
							export		okItemTitleSetup
							export		okItemTitleJob
okItem						dc.w		9										;pCount
							dc.l		okItemID								;ID
							dc.w		104,208,104+13,208+68					;Rect
							dc.l		simpleButtonControl						;ProcRef
							dc.w		1										;Flags
							dc.w		$3000									;MoreFlags
							dc.l		0										;RefCon
okItemTitlePtrLo			dc.w		$FFFF									;TitleRef lo
okItemTitlePtrHi			dc.w		okItemTitleSetup>>16					;TitleRef hi
							dc.l		0										;ColorTableRef
							dc.b		okItemKeyEquiv							;KeyEquiv
							dc.b		okItemKeyEquiv
							dc.w		0
							dc.w		0
okItemTitleSetup			str			'Setup'									;butt str if PrStlDi
okItemTitleJob				str			'Print'									;butt str if PrJobDi
okItemKeyEquiv				equ			13										;return key equiv
										
paperTypeItem				dc.w		9										;pCount
							dc.l		paperTypeItemID							;ID
							dc.w		23,7,0,0								;Rect
							dc.l		popUpControl							;ProcRef
							dc.w		32										;Flags
							dc.w		$1004									;MoreFlags
							dc.l		0										;RefCon
							dc.w		92										;TitleWidth
							dc.l		paperTypePopUpMenu						;MenuRef
							export		paperTypeInitValue
paperTypeInitValue			dc.w		paperTypeUsaLtrItemID					;InitialValue
paperTypePopUpMenu			dc.b		'$$Paper Type:\H'
							dc.w		paperTypeItemID
							dc.b		0
*							
							dc.b		'--US Letter.......8.5"x11"\H'
							dc.w		paperTypeUsaLtrItemID
							dc.b		0
*							
							dc.b		'--US Legal.........8.5"x14"\H'
							dc.w		paperTypeUsaLglItemID
							dc.b		0
*							
							dc.b		'---\N256D',0
*							
							dc.b		'--European A4.......8"x12"\H'
							dc.w		paperTypeEurA4ItemID
							dc.b		0
*							
							dc.b		'--European B5.......7"x10"\H'
							dc.w		paperTypeEurB5ItemID
							dc.b		0
*							
							dc.b		'---\N256D',0
*							
							dc.b		'--Envelope #10......9"x4"\H'
							dc.w		paperTypeEnvNo10ItemID
							dc.b		0
*
							dc.b		'.'
			
printQualityItem			dc.w		9										;pCount
							dc.l		printQualityItemID						;ID
							dc.w		82,7,0,0								;Rect
							dc.l		popUpControl							;ProcRef
							dc.w		32										;Flags
							dc.w		$1004									;MoreFlags
							dc.l		0										;RefCon
							dc.w		92										;TitleWidth
							dc.l		printQualityPopUpMenu					;TitleRef
							export		printQualityInitValue
printQualityInitValue		dc.w		printQualityMeResItemID					;InitialValue
printQualityPopUpMenu		dc.b		'$$Quality:\H'
							dc.w		printQualityItemID
							dc.b		0
							dc.b		'--180 DPI (2.25x2.50)\H'
							dc.w		printQualityMeResItemID
							dc.b		0
							dc.b		'--360 DPI (4.50x5.00)\H'
							dc.w		printQualityHiResItemID
							dc.b		0
							dc.b		'.'

heightTitleItem				dc.w		8										;pCount
							dc.l		heightTitleItemID						;ID
							dc.w		41,7,41+12,7+60							;Rect
							dc.l		statTextControl							;ProcRef
							dc.w		1										;Flags
							dc.w		$1000									;MoreFlags
							dc.l		0										;RefCon
							dc.l		@TitleStart								;TitleRef
							dc.w		@TitleEnd-@TitleStart					;TextSize
@TitleStart					dc.b		'Height:'
@TitleEnd:
							export		heightItemKey1Equiv:equ
							export		heightItemKey2Equiv:equ
heightItemKey1Equiv			equ			'H'
heightItemKey2Equiv			equ			'h'

heightNormalItem			dc.w		8										;pCount
							dc.l		heightNormalItemID						;ID
							dc.w		41,99,0,0								;Rect
							dc.l		radioControl							;ProcRef
							dc.w		1										;Flags
							dc.w		$1000									;MoreFlags
							dc.l		0										;RefCon
							dc.l		heightNormalTitle						;TitleRef
							export		heightNormalInitValue			
heightNormalInitValue		dc.w		0										;InitialValue
heightNormalTitle			str			'Normal (Graphics)'

heightCondensedItem			dc.w		8										;pCount
							dc.l		heightCondensedItemID					;ID
							dc.w		52,99,0,0								;Rect
							dc.l		radioControl							;ProcRef
							dc.w		1										;Flags
							dc.w		$1000									;MoreFlags
							dc.l		0										;RefCon
							dc.l		heightCondensedTitle					;TitleRef
							export		heightCondensedInitValue			
heightCondensedInitValue	dc.w		0										;InitialValue
heightCondensedTitle		str			'Condensed (Text)'

							export		pageFeedItemKey1Equiv:equ
							export		pageFeedItemKey2Equiv:equ
pageFeedItem				dc.w		9										;pCount
							dc.l		pageFeedItemID							;ID
							dc.w		66,7,0,0								;Rect
							dc.l		popUpControl							;ProcRef
							dc.w		32										;Flags
							dc.w		$1004									;MoreFlags
							dc.l		0										;RefCon
							dc.w		92										;TitleWidth
							dc.l		pageFeedPopUpMenu						;MenuRef
							export		pageFeedInitValue
pageFeedInitValue			dc.w		pageFeedAutoItemID						;InitialValue
pageFeedPopUpMenu			dc.b		'$$Sheet Feed:\H'
							dc.w		pageFeedItemID
							dc.b		0
							dc.b		'--Automatic\H'
							dc.w		pageFeedAutoItemID
							dc.b		0
							dc.b		'--Manual\H'
							dc.w		pageFeedManualItemID
							dc.b		0
							dc.b		'.'
pageFeedItemKey1Equiv		equ			'M'
pageFeedItemKey2Equiv		equ			'm'

pagesTitleItem				dc.w		8										;pCount
							dc.l		pagesTitleItemID						;ID
							dc.w		39,7,39+12,7+50							;Rect
							dc.l		statTextControl							;ProcRef
							dc.w		1										;Flags
							dc.w		$1000									;MoreFlags
							dc.l		0										;RefCon
							dc.l		@TitleStart								;TitleRef
							dc.w		@TitleEnd-@TitleStart					;TextSize
@TitleStart					dc.b		'Pages:'
@TitleEnd:

pagesAllItem				dc.w		8										;pCount
							dc.l		pagesAllItemID							;ID
							dc.w		38,99,38+12,99+70						;Rect
							dc.l		radioControl							;ProcRef
							dc.w		0										;Flags
							dc.w		$1000									;MoreFlags
							dc.l		0										;RefCon
							dc.l		pagesAllTitle							;TitleRef
							export		pagesAllInitValue			
pagesAllInitValue			dc.w		0										;InitialValue
pagesAllTitle				str			'All'

pagesRangeItem				dc.w		8										;pCount
							dc.l		pagesRangeItemID						;ID
							dc.w		51,99,51+12,99+36						;Rect
							dc.l		radioControl							;ProcRef
							dc.w		0										;Flags
							dc.w		$1000									;MoreFlags
							dc.l		0										;RefCon
							dc.l		pagesRangeTitle							;TitleRef
							export		pagesRangeInitValue
pagesRangeInitValue			dc.w		0										;InitialValue
pagesRangeTitle				str			''

							export		pagesFromBoxString
pagesFromBoxItem			dc.w		8										;pCount
							dc.l		pagesFromBoxItemID						;ID
							dc.w		50,125,50+13,125+52						;Rect
							dc.l		$83000000								;PR: lineEditControl
							dc.w		0										;Flags
							dc.w		$7000									;MoreFlags
							dc.l		0										;RefCon
							dc.w		5										;MaxSize
							dc.l		pagesFromBoxString						;DefaultRef
pagesFromBoxString			str			'XXXXX'

							export		pagesToBoxString
pagesToBoxItem				dc.w		8										;pCount
							dc.l		pagesToBoxItemID						;ID
							dc.w		50,205,50+13,205+52						;Rect
							dc.l		$83000000								;PR: lineEditControl
							dc.w		0										;Flags
							dc.w		$7000									;MoreFlags
							dc.l		0										;RefCon
							dc.w		5										;MaxSize
							dc.l		pagesToBoxString						;DefaultRef
pagesToBoxString			str			'XXXXX'

pagesFromToSeparatorItem	dc.w		8										;pCount
							dc.l		pagesFromToSeparatorItemID				;ID
							dc.w		52,183,52+12,183+50						;Rect
							dc.l		statTextControl							;ProcRef
							dc.w		1										;Flags
							dc.w		$1000									;MoreFlags
							dc.l		0										;RefCon
							dc.l		@TitleStart								;TitleRef
							dc.w		@TitleEnd-@TitleStart					;TextSize
@TitleStart					dc.b		'--'
@TitleEnd:

copiesTitleItem				dc.w		8										;pCount
							dc.l		copiesTitleItemID						;ID
							dc.w		25,7,25+12,7+60							;Rect
							dc.l		statTextControl							;ProcRef
							dc.w		1										;Flags
							dc.w		$1000									;MoreFlags
							dc.l		0										;RefCon
							dc.l		@TitleStart								;TitleRef
							dc.w		@TitleEnd-@TitleStart					;TextSize
@TitleStart					dc.b		'Copies:'
@TitleEnd:
			
							export		copiesBoxString
copiesBoxItem				dc.w		8										;pCount
							dc.l		copiesBoxItemID							;ID
							dc.w		23,99,23+13,99+52						;Rect
							dc.l		$83000000								;PR: lineEditControl
							dc.w		0										;Flags
							dc.w		$7000									;MoreFlags
							dc.l		0										;RefCon
							dc.w		5										;MaxSize
							dc.l		copiesBoxString							;DefaultRef
copiesBoxString				str			'XXXXX'





*
*PORTTITLESTRPRINTER and PORTTITLESTRMODEM: Appear as dialog box port title strings:
*
							export		PortTitleStrPrinter
PortTitleStrPrinter			str			'Printer Port'

							export		PortTitleStrModem
PortTitleStrModem			str			'Modem Port'





*
*CAOPALERTBOXSTRING: AlertWindow template string for can't-open-communications message:
*
							export		CaOpAlertBoxString
CaOpAlertBoxString			dc.b		'6'										;box size spec
							dc.b		'2'										;icon: "Stop"
							dc.b		'/'										;separator
							dc.b		'Please make sure that the '
							dc.b		'printer is a StyleWriter, '
							dc.b		'that it is connected to the '
							dc.b		'correct serial port, that '
							dc.b		'it is powered on, and then '
							dc.b		'try again.'
							dc.b		'/'										;separator
							dc.b		'^#0'									;"OK" dflt id=0
							dc.b		0										;terminator
							




*
*UNFEALERTBOXSTRING: AlertWindow template string for unsupported-feature warning:
*
							export		UnFeAlertBoxString
UnFeAlertBoxString			dc.b		'7'										;box size spec
							dc.b		'4'										;icon: "Caution"
							dc.b		'/'										;separator
							dc.b		'This StyleWriter printer driver does '
							dc.b		'not support some of the currently '
							dc.b		'selected features, such as Landscape '
							dc.b		'Orientation, Color, or Size '
							dc.b		'Reduction.  Unexpected results may '
							dc.b		'occur.'
							dc.b		'/'										;separator
							dc.b		'Proceed'								;id=0
							dc.b		'/'										;separator
							dc.b		'^#1'									;"cancel" dflt id=1
							dc.b		0										;terminator
							




*
*LOMEALERTBOXSTRING: AlertWindow template string for low-memory warning:
*
							export		LoMeAlertBoxString
LoMeAlertBoxString			dc.b		'6'										;box size spec
							dc.b		'4'										;icon: "Caution"
							dc.b		'/'										;separator
							dc.b		'Text and bitmapped graphics may not '
							dc.b		'be rendered properly due to low '
							dc.b		'memory.  Selecting 180 dpi instead '
							dc.b		'of 360 dpi may produce better '
							dc.b		'results.'
							dc.b		'/'										;separator
							dc.b		'#1'									;btn "Cancel" id=0
							dc.b		'/'										;separator
							dc.b		'^#0'									;btn dflt "OK" id=1
							dc.b		0										;terminator
							




*
*ABBOALERTBOXSTRING: AlertWindow template string for about-box message:
*
							export		AbBoAlertBoxString
AbBoAlertBoxString			dc.b		'7'										;box size spec
							dc.b		'3'										;icon: "Note"
							dc.b		'/'										;separator
							dc.b		'StyleWriter printer driver '
							dc.b		'written by Ben Koning.  Tested '
							dc.b		'by Bob Haven.  Thanks to '
							dc.b		'Lee Collings, Dave Lyons, and '
							dc.b		'Steve Stephenson.  Copyright '
							dc.b		'1991 Apple Computer.'
							dc.b		'/'										;separator
							dc.b		'^#0'									;btn dflt "OK" id=0
							dc.b		0										;terminator





							endr
							end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/TABASCO/entry.a b/IIGS.601.SRC/GSToolbox/PrinterDrivers/TABASCO/entry.a
new file mode 100644
index 0000000..d463f80
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/TABASCO/entry.a
@@ -0,0 +1 @@
+
******************************************************************************************
*                                                                                        *
*		Apple IIgs Printer Driver                                                        *
*                                                                                        *
*		File: entry.a -- Entry Points; environment (D/B) setup; dispatch to routines     *
*                                                                                        *
*		Written by Ben Koning                                                            *
*		Copyright (C) 1991 Apple Computer, Inc.                                          *
*                                                                                        *
******************************************************************************************







							include		'equates.h'



							include		'm16.util'
							include		'e16.print'



EntryProc					proc		export





*
*New (Apple IIgs System Disk 5.0 and later), re-entrant, driver entry point:
*
Entry						dc.w		0
							dc.w		(DispatchEnd-DispatchBegin)/4
*
*Save/Set Bank and Direct registers (D page; B=K), assume no errors, dispatch to routines:
*
							phb									;Save B byte for later restore
							phd									;Save D word for later restore
							cpx			#((17-1)*4)+1			;See if call # is in range
							bcc			Entry1
							brk			#$BB					;Should never happen
Entry1						tsc
							sec
							sbc			#DPSize					;Stack frame for small direct page
							tcs
StackParam					equ			1+3+3+1+2+DPSize		;1 + RTL1 + RTL2 + B + D + StackFrame
							ina
							tcd									;Set our D to our stack frame
							phk
							plb									;Set our B; now can use abs addr
							stz			errNo					;Assume no error unless set later on
							jmp			(DispatchBegin,x)		;Go do one of our routines



*
*Dispatch table:
*
DispatchBegin				
							dc.l		SW_PrDefault			;PrDefault - initialize print record
							dc.l		SW_PrValidate			;PrValidate - sanitize print record
							dc.l		SW_PrStlDialog			;PrStlDialog - user interface
							dc.l		SW_PrJobDialog			;PrJobDialog - user interface
							dc.l		SW_PrDriverVer			;PrDriverVer - version number
							dc.l		SW_PrOpenDoc			;PrOpenDoc - alloc printing resources
							dc.l		SW_PrCloseDoc			;PrCloseDoc - dealloc pr resources
							dc.l		SW_PrOpenPage			;PrOpenPage - define start of page
							dc.l		SW_PrClosePage			;PrClosePage - causes page to print
							dc.l		SW_PrPicFile			;PrPicFile - call after PrCloseDoc
							dc.l		SW_Reserved				;Reserved
							dc.l		SW_PrError				;PrError - get current print status
							dc.l		SW_PrSetError			;PrSetError - set print status/abort
							dc.l		SW_PrChanged			;PrChanged - report NBP driver name
							dc.l		SW_PrPixelMap			;PrPixelMap - quick bitmap dump
							dc.l		SW_PrGetPrinterSpecs	;PrGetPrinterSpecs - get self-id info
							dc.l		SW_PrGetPgOrientation	;PrGetPgOrientation - port/land mode
DispatchEnd


							
*
*EXIT: Jump here when done doing driver call.
*After removing direct page stack frame, this routine moves 9 bytes at bottom of stack X number
*of bytes up, restores D/B, leaves A and carry with error status, and RTLs.  Note that 2 RTLs are
*assumed to be on the stack.
*
Exit						tsc									;Get rid of our little scratch area
							clc
							adc			#DPSize
							tcs
	 						cpx			#0						;Have to do this compare for 0
							beq			Exit3
							stx			TmpNumMov
							tsc
							sta			Exit1+1
							clc
							adc			TmpNumMov
							sta			Exit2+1
							push1		#0
							plb									;Our data bank is 0 at this point
							ldy			#8						;9+(0 because we're JMPed-to) - 1
Exit1						lda			$FFFF,y
Exit2						sta			$FFFF,y
							dey
							dey
							bpl			Exit1
							phk
							plb
							lda			Exit2+1
							tcs									;S restored
Exit3						lda			errNo					;get errNo for use in a sec...
							pld									;D restored--no more direct addrs
							plb									;B restored--no more absolute addrs
							cmp			#1						;ACC has err... set carry if nonzero
							rtl									;Exit back to print manager
*
TmpNumMov					dc.w		0						;Temporary storage used above






****************************************************************************************************





*
*The following routines do all the work of the printer driver, or at least contain JSRs to
*routines in other files.  The following has happened on entry to these routines:
*
*		* The caller's D/B registers have been saved
*		* The D register is the same as the K register so absolute adressing can be used
*		* The B register points to DPSize free bytes on the stack for scratch usage
*		* "errNo" has been set to zero, assuming no errors from the routine
*		* Since caller's environment was saved on stack, the driver is re-entrant.
*
*These routines should do their work by:
*
*		* Accessing input/output parameters on the stack by means of LDx/STx StackParam+N,s,
*		  where the N refers to the relative offset (ie, 0,2,4 would be 3 words on the stack)
*		* Using our small direct page area, JSRing to other assembly files, using the stack
*		* Changing "errNo" to be nonzero if error flagging is desired
*		* Calling routines in this driver if desired (some port driver calls actually do this)
*		* LDX #N, where N is the number of input parameter bytes used by the routine
*		* JMP/BRL Exit.
*
*The exit routine will then:
*
*		* Dump our small direct page off of the stack
*		* Dump input parameters off of the stack
*		* Restore the caller's D/B registers from stack
*		* Set the A register with value of "errNo" and set the carry if nonzero
*		* Exit via RTL.
*






****************************************************************************************************
SW_Reserved					ldx			#2						;$0002: Tool Locator "call not found"
							stx			errNo
*
							ldx			#0						;assume no bytes to strip off stack
							brl			Exit
****************************************************************************************************







****************************************************************************************************
SW_PrDefault				lda			StackParam+0,s			;This routine fills in the user's
							sta			printRecordHandle+0		;area of memory with a default
							lda			StackParam+2,s			;print record with standard options
							sta			printRecordHandle+2
*
							import		InitPrintRecord
							jsr			InitPrintRecord			;Metrics routine
*
							ldx			#4						;# of input param bytes to strip
							brl			Exit
****************************************************************************************************
							
							





****************************************************************************************************
SW_PrValidate				lda			StackParam+0,s			;This routine checks to make sure
							sta			printRecordHandle+0		;the user's print record is
							lda			StackParam+2,s			;self-consistent and up to date,
							sta			printRecordHandle+2		;and changes it if necessary
*
							import		GetOkOurDriver
							jsr			GetOkOurDriver			;Metrics: Same driver as last time?
							beq			PrVaAllCorrect			;yes, this is our print record
							import		InitPrintRecord
							jsr			InitPrintRecord			;take over print record for us
							lda			#1						;recAdjustFlag will be true
							bra			PrVaExit
							import		CalcMetrics
PrVaAllCorrect				jsr			CalcMetrics				;make sure self-consistent
							lda			#0						;recAdjustFlag will be false
*
PrVaExit					sta			StackParam+4,s			;store recAdjustFlag result
							ldx			#4						;# of input param bytes to strip
							brl			Exit
****************************************************************************************************







****************************************************************************************************
SW_PrJobDialog				lda			#1						;This routine uses data in the
							sta			PrDiSDialogType+1		;user's print record to properly
							bra			PrDiDoneSettingDiType	;draw a dialog, and allows the
SW_PrStlDialog				stz			PrDiSDialogType+1		;user to modify that data
PrDiDoneSettingDiType
*
							lda			StackParam+0,s			;get handle param from caller
							sta			printRecordHandle+0
							lda			StackParam+2,s
							sta			printRecordHandle+2
*
							import		GetOkOurDriver			;ensure a valid rec for this driver
							jsr			GetOkOurDriver			;Metrics: Same driver as last time?
							beq			PrDiAllCorrect			;yes, this print record is ours
							import		InitPrintRecord			;not same driver as last time, so
							jsr			InitPrintRecord			;take over print record for us
							import		CalcMetrics
PrDiAllCorrect				jsr			CalcMetrics				;make sure self-consistent, though
*
							import		CheckAndDoLowMemAlert	;put up warning dialog if neccessary
							jsr			CheckAndDoLowMemAlert	;A will have 1/0 if OK/Cancel
							cmp			#0						;if cancel, quit now with Cancel hit
							beq			PrDiDiDone				;else we go on to display stl/job di
PrDiSDialogType				lda			#$FFFF					;NOTE: operand is stuffed
							import		ConductStyleJobDialog	;go do stl or job dialog
							jsr			ConductStyleJobDialog	;A will have 1/0 if OK/Cancel
PrDiDiDone
*
							sta			StackParam+4,s			;return confirmFlag in A to user
							ldx			#4						;# of input param bytes to strip
							brl			Exit
****************************************************************************************************







****************************************************************************************************
SW_PrDriverVer				lda			#VersionID				;This routine returns the version
							sta			StackParam+0,s			;number of this particular driver
*
							ldx			#0						;# of input param bytes to strip
							brl			Exit
****************************************************************************************************







****************************************************************************************************
SW_PrOpenDoc				lda			StackParam+0,s			;This routine clears error status,
							sta			printGrafPortPtr+0		;and initializes and sets a GrafPort
							lda			StackParam+2,s			;with boundsrect, etc., configured
							sta			printGrafPortPtr+2		;for the resolution of the printer.
							lda			StackParam+4,s			;If printGrafPtr is NIL, we allocate
							sta			printRecordHandle+0		;our own space, else we use the
							lda			StackParam+6,s			;caller's GrafPort and configure it.
							sta			printRecordHandle+2
*
							import		OpenDoc
							jsr			OpenDoc					;print loop routine
*
							lda			printGrafPortPtr+0		;pass GrafPort back to user,
							sta			StackParam+8,s			;in case we allocated it here...
							lda			printGrafPortPtr+2
							sta			StackParam+10,s
							ldx			#8						;# of input param bytes to strip
							brl			Exit
****************************************************************************************************







****************************************************************************************************
SW_PrCloseDoc				lda			StackParam+0,s			;this routine closes the printing
							sta			printGrafPortPtr+0		;grafport, frees its memory if the
							lda			StackParam+2,s			;caller passed NIL during OpenDoc,
							sta			printGrafPortPtr+2		;restores grafport and stops spooling
*
							import		CloseDoc
							jsr			CloseDoc				;print loop routine
*
							ldx			#4						;# of input param bytes to strip
							brl			Exit
****************************************************************************************************







****************************************************************************************************
SW_PrOpenPage				lda			StackParam+0,s			;This routine keeps track of #pages
							sta			pageFramePtr+0			;and works only if within page range
							lda			StackParam+2,s			;this routine calls OpenPicture with
							sta			pageFramePtr+2			;pageframe of rPage or user-select
							lda			StackParam+4,s			;the current (print) grafport is
							sta			printGrafPortPtr+0		;re-initialized, and SpoolPut is
							lda			StackParam+6,s			;called explicitly to store initial
							sta			printGrafPortPtr+2		;info PutPic doesn't get called for
*
							import		OpenPage
							jsr			OpenPage				;print loop routine
*
							ldx			#8						;# of input param bytes to strip
							brl			Exit
****************************************************************************************************







****************************************************************************************************
							import		ClosePage				;This routine terminates a page
SW_PrClosePage				jsr			ClosePage				;print loop routine
*
							ldx			#4						;# of input param bytes to strip
							brl			Exit					;(we didn't need input parameters)
****************************************************************************************************







****************************************************************************************************
SW_PrPicFile				ldx			#12						;Does nothing; we only do imm mode
							brl			Exit					;# of input param bytes to strip
****************************************************************************************************







****************************************************************************************************
							import		GetPrintLoopError
SW_PrError					jsr			GetPrintLoopError		;err in acc from print loop routine
							sta			StackParam+0,s
							ldx			#0						;# of input param bytes to strip
							brl			Exit
****************************************************************************************************







****************************************************************************************************
							import		SetPrintLoopError
SW_PrSetError				lda			StackParam+0,s			;get in acc
							jsr			SetPrintLoopError		;print loop routine
							ldx			#2						;# of input param bytes to strip
							brl			Exit
****************************************************************************************************







****************************************************************************************************
SW_PrChanged				pushlong	#PrChDevNameStr			;Informs port driver of type of
							ldx			#$1913					;device; important for networking
							jsl			$E10000					;_PrDevPrChanged
							ldx			#0						;# of input param bytes to strip
							brl			Exit					;we're done
PrChDevNameStr				str			'='						;ID string in appletalk NBP format
							str			'IJ10'					;even though appletalk is not
							str			'*'						;supported in this driver
****************************************************************************************************







****************************************************************************************************
							import		ImagerOpen				;start the imager and communication
SW_PrPixelMap				jsr			ImagerOpen
							lda			StackParam+6,s			;get caller's srcLocPtr lo in X
							tax
							lda			StackParam+8,s			;get caller's srcLocPtr hi in Y
							tay
							import		ImagerSetLocInfo		;tell imager about caller's locinfo
							jsr			ImagerSetLocInfo
							import		ImagerSetGrays			;tell imager about current colors
							jsr			ImagerSetGrays
							lda			#0						;prepare to print
							import		ImagerReady
							jsr			ImagerReady
							import		ImagerPrint				;print the caller's locinfo bitmap
							jsr			ImagerPrint
							import		ImagerFormfeed			;do form feed
							jsr			ImagerFormfeed
							import		ImagerClose				;stop the imager and communication
							jsr			ImagerClose
*
							ldx			#10						;# of input param bytes to strip
							brl			Exit
****************************************************************************************************







****************************************************************************************************
SW_PrGetPrinterSpecs		lda			#DeviceID		 		;pass our device identification
							sta			StackParam+0,s
							lda			#1						;pass "1" -- black/white only
							sta			StackParam+2,s
							ldx			#0						;# of input param bytes to strip
							brl			Exit
****************************************************************************************************







****************************************************************************************************
SW_PrGetPgOrientation		lda			StackParam+0,s			;This routine returns the value
							sta			printRecordHandle+0		;of the orientation setting just
							lda			StackParam+2,s			;to try to keep the application out
							sta			printRecordHandle+2		;of the print record
*
							lda			#0						;Orientation is always portrait
							sta			StackParam+4,s
*
							ldx			#4						;# of input param bytes to strip
							brl			Exit
****************************************************************************************************







							endproc
							end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/TABASCO/equates.h b/IIGS.601.SRC/GSToolbox/PrinterDrivers/TABASCO/equates.h
new file mode 100644
index 0000000..0428822
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/TABASCO/equates.h
@@ -0,0 +1 @@
+
******************************************************************************************
*                                                                                        *
*		Apple IIgs Printer Driver                                                        *
*                                                                                        *
*		File: equates.h -- Common direct page labels and equates for all to use          *
*                                                                                        *
*		Written by Ben Koning                                                            *
*		Copyright (C) 1991 Apple Computer, Inc.                                          *
*                                                                                        *
******************************************************************************************







*
*Device and configuration information:
*
DeviceID					equ			101					;iDev: 1=IW,2=LQ... same as mac driver
VersionID					equ			$0100				;version ID word: $XXYY ==> X.Y



*
*Human interface potentiometers:
*
StatusMesgWaitDelay			equ			90					;holding time of status messages (ticks)



*
*Application program coexistence potentiometers:
*
UserIDType					equ			$1000				;UID for mem alloc calls, etc.
LowMemAlertThresh			equ			(768)/64			;no alert if > (K) RealFreeMem
PixMap640IntBuffTall		equ			12					;tallness of interim 640 StdPixels buff
PgAsJobAssumptionDelay		equ			5*60				;CloseDoc->OpenDoc rapidity (ticks)
SpoolMemIncDefault			equ			2*1024				;spool granularity of mem allocs (bytes)
SpoolMemLeftLimitDefault	equ			135*1024			;spool->memory or disk threshold (bytes)



*
*Metrics potentiometers:
*
appResPortraitX				equ			80					;pixels per inch (dpi) seen by
appResPortraitYnoVC			equ			36					;in both hor & vert directions
printLineMargin				equ			4					;left line margin in 1/16" units
prRecCrWidth				equ			960					;historical value apps expect
lineLayoutAmtToSp			equ			7					;fraction of correction to spaces (1/x)
lineLayoutFudgeWidClp		equ			$F200				;const reduce text width tiny bit (0.K)
lineLayoutBgSpFxBuf			equ			512					;size of buffer used to fix big spx bug
lineLayoutBgSpFxLim			equ			250					;if SpExtra > x then apply spx bug fix



*
*Imager potentiometers:
*
ImagerILSFrequencyMask		equ			(64)-1				;idleproc/abort at least every (N) lines
ImagerRLEThreshold			equ			3					;run-length-encoding threshold
ImagerRLEMaxPacketLength	equ			62					;max size of run-length-encoding packet
ImagerQDPattVAlignFactor	equ			8					;allow for v align of QD patterns



*
*Communications potentiometers:
*
CommDevBufferDrainSafety	equ			2500				;subtracted from buff inquiry result
CommDevBufferDrainDelay		equ			60					;ticks wait if pr buffer full and busy
CommReadByteResponseDelay	equ			5					;ticks wait preceding any read attempt
CommReadByteTimeout			equ			10000				;cpu iterations until read give-up



*
*QuickDraw-dependent equates:
*
QDPortRefDPLoc				equ			$24					;"PortRef" quickdraw global location
QDDrawVerbDPLoc				equ			$38					;"DrawVerb" quickdraw global location
QDTextPtrDPLoc				equ			$DA					;"TextPtr" quickdraw global location
QDTextLengthDPLoc			equ			$D8					;"TextLength" quickdraw global location
QDCharToDrawDPLoc			equ			$D6					;"CharToDraw" quickdraw global location
QDRectPtrDPLoc				equ			$D2					;"RectPtr" quickdraw global location
QDSrcLocInfoDPLoc			equ			$CC					;"SrcLocInfo" quickdraw global location
QDDestLocInfoDPLoc			equ			$0C					;"DestLocInfo" quickdraw global location
QDSrcRectDPLoc				equ			$DC					;"SrcRect" quickdraw global location
QDDestRectDPLoc				equ			$1C					;"DestRect" quickdraw global location
QDDrawCharVerbEqu			equ			0					;"DrawCharVerb" quickdraw equate
QDDrawTextVerbEqu			equ			1					;"DrawTextVerb" quickdraw equate
QDDrawCStrVerbEqu			equ			2					;"DrawCStrVerb" quickdraw equate
QDMaxPixBuff				equ			8*65536				;our arbitrary max LocInfo.PtrToPixImage
ov1							equ			0					;Point/Rect data structure element Y1
oh1							equ			2					;Point/Rect data structure element X1
ov2							equ			4					;Rect data structure element Y2
oh2							equ			6					;Rect data structure element X2



*
*Dumb-printer-driver wDev imaging definition bits:
*
										;5432109876543210
wDevNoStatusBox				equ			%1000000000000000	;15	1=disable stat mesg box 0=normal
wDevNoLineLayout			equ			%0100000000000000	;14	1=disable line layout 0=normal
wDevNoForceTextMode			equ			%0010000000000000	;13	1=disable notBic anti-clip 0=normal
wDevNo640PixMap				equ			%0001000000000000	;12 1=disable 640 pixmap code 0=normal

wDevGap						equ 		%0000000001000000	;6	1=normal 0=no vert gap
wDevColor					equ			%0000000000100000	;5	1=color 0=grayscale
wDevReduction				equ			%0000000000001000	;3	1=normal 0=50% reduction
wDevVSize					equ			%0000000000000100	;2	1=normal 0=vert condense
wDevOrientation				equ			%0000000000000010	;1	1=portrait 0=landscape
wDevBetter					equ			%0000000000000001	;0	1=high resolution printing

wDevUSFmask					equ			%0000000001101010	;1=indicates unsupported feature
wDevUSFshould				equ			%0000000001001010	;default setting for unsupported feature
										;5432109876543210



*
*New print record definitions for new (>4.0) drivers, placed where "oprintX" used to be:
*
opFileBlockSize				equ			$64+0				;granularity of spool mallocs
opFileMemLimit				equ			$64+4				;when to start spooling to disk
opCTable					equ			$64+8				;color table for imaging
opSCBList					equ			$64+12				;SCB list for imaging
owQuality					equ			$64+16				;new print quality definitions
owPaperCrWidth				equ			$64+18				;variable internal crWidth value
owResScaling				equ			$64+20				;blow-up amount for Better quality



*
*The following paper dimensions are in 1/16th inch units--they are 16 times too big (for accuracy):
*
paperTypeUsaLetter			equ			0							;8.5" 1/4" mrg x 11" 1/4" gap
paperSizeUsaLetterX			equ			136							;US Letter MUST be type 0
paperSizeUsaLetterY			equ			176
paperSizeUsaLetterGap		equ			4

paperTypeUsaLegal			equ			1							;8.5" 1/4" mrg x 14" 1/4" gap
paperSizeUsaLegalX			equ			136							;US Legal MUST be type 1
paperSizeUsaLegalY			equ			224
paperSizeUsaLegalGap		equ			4

paperTypeEurA4				equ			2							;210mm 1/4" mrg x 297mm 1/4" gap
paperSizeEurA4X				equ			136							;Eur A4 MUST be type 2
paperSizeEurA4Y				equ			188
paperSizeEurA4Gap			equ			4

paperTypeEurB5				equ			3							;176mm 1/4" mrg x 250mm 1/4" gap
paperSizeEurB5X				equ			114							;Eur B5 (intl ff should be 3)
paperSizeEurB5Y				equ			158
paperSizeEurB5Gap			equ			4

paperTypeEnvNo10			equ			4							;9.5" 1/4" mrg x 4.125" 1/4" gap
paperSizeEnvNo10X			equ			136							;#10 Envelope
paperSizeEnvNo10Y			equ			66							;use max possible X area
paperSizeEnvNo10Gap			equ			4

maxPaperTypeID				equ			paperTypeEnvNo10			;NOTE: LENGTH OF THIS LIST!



*
*Dialog boxes' item ID numbers: MUST be consecutive within groupings:
*
titleItemID					equ			10100
versionItemID				equ			10101
cancelItemID				equ			10102
okItemID					equ			10103

paperTypeItemID				equ			11000
paperTypeUsaLtrItemID		equ			12000+paperTypeUsaLetter
paperTypeUsaLglItemID		equ			12000+paperTypeUsaLegal
paperTypeEurA4ItemID		equ			12000+paperTypeEurA4
paperTypeEurB5ItemID		equ			12000+paperTypeEurB5
paperTypeEnvNo10ItemID		equ			12000+paperTypeEnvNo10

pageFeedItemID				equ			13000
pageFeedManualItemID		equ			13001
pageFeedAutoItemID			equ			13002
pagesTitleItemID			equ			13003
pagesAllItemID				equ			13004
pagesRangeItemID			equ			13005
pagesFromTitleItemID		equ			13006
pagesToTitleItemID			equ			13007
copiesTitleItemID			equ			13008
pagesFromBoxItemID			equ			13009
pagesToBoxItemID			equ			13010
pagesFromToSeparatorItemID	equ			13011
copiesBoxItemID				equ			13012
heightTitleItemID			equ			13013
heightNormalItemID			equ			13014
heightCondensedItemID		equ			13015
printQualityItemID			equ			13016
printQualityMeResItemID		equ			13017
printQualityHiResItemID		equ			13018



*
*Temporary direct-page storage which is NOT maintained across driver calls or driver re-entries:
*
ParamWordA					equ			0					;word		;parameter passing between
ParamWordB					equ			2					;word		;subroutines and temporary
ParamWordC					equ			4					;word		;storage use...
ParamWordD					equ			6					;word
ParamWordE					equ			8					;word
ParamWordF					equ			10					;word
ParamLongA					equ			12					;long
ParamLongB					equ			16					;long
ParamLongC					equ			20					;long
ParamLongD					equ			24					;long
OptionA						equ			28					;word		;for passing input params
OptionB						equ			30					;word		;to metrics routines
errNo						equ			32					;word		;tool error output from us
DialogWindowPtr				equ			34					;long		;gp ptr during job/stl dlog
OldGrafPortPtr				equ			38					;long		;saving gp behind dlog
printRecordHandle			equ			42					;long		;usr inp; need for metrics
printGrafPortPtr			equ			46					;long		;user input
pageFramePtr				equ			50					;long		;user input
statusRecPtr				equ			54					;long		;user input

DPSize						equ			58+1				;DP size on stack; <256 b/c stack params!
DPSizeParamOnly				equ			28+1				;DP size for just using some params only


\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/TABASCO/imager.a b/IIGS.601.SRC/GSToolbox/PrinterDrivers/TABASCO/imager.a
new file mode 100644
index 0000000..f9fb973
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/TABASCO/imager.a
@@ -0,0 +1 @@
+
******************************************************************************************
*                                                                                        *
*		Apple IIgs Printer Driver                                                        *
*                                                                                        *
*		File: imager.a -- Low Level Driver: Host pixmap > Printer data                   *
*                                                                                        *
*		Written by Ben Koning                                                            *
*		Copyright (C) 1991 Apple Computer, Inc.                                          *
*                                                                                        *
******************************************************************************************







							include		'equates.h'
							
							
							
							include		'm16.util'
							include		'm16.intmath'
							include		'm16.event'
							include		'm16.misctool'
							include		'e16.quickdraw'



ImagerProc					proc		export







*
*IMAGER: LOW-LEVEL PRINTER DRIVER ROUTINES
*
*These routines are the only ones which communicate with the printer device.  They are
*capable of providing paper motion control and a process of marking the paper with the
*image of a bitmap supplied by the caller, in various resolutions (that is, various
*sizes).  It is the intention that the caller request that the imager mark the page in
*a high resolution with a large bitmap, the latter compensating for the former so that
*the resulting image appears at the correct size, but with increased resolution.
*
*This particular imager is feature-reduced and does not support color.  Instead, it is
*optimized for speed performance by means of white space skipping, direct source pixel
*to printer pixel conversion, and data compression.
*
*The following entry points are offered:
*
*	ImagerOpen				Establishes unique connection to printer; must be called first
*	ImagerSetLocInfo		Sets up locinfo struct of bitmap to print; should be called second
*	ImagerSetGrays			Sets up pixel conversion table using screen color table settings
*	ImagerSetFeed			Sets up for automatic or manual paper feed
*	ImagerSetResolution		Sets up dpi-quality (size of each printer pixel)
*	ImagerSetVCondense		Sets up double or single vertical stretching
*	ImagerSetIdleProc		Sets up idle proc to be called periodically
*	ImagerSetAbortPoll		Sets up address to listen for to cause abort
*	ImagerGetVAlignFactor	Returns vertical size to which bitmap must be aligned
*	ImagerReady				Must be called after Set and before Formfeed/Linefeed/Print calls
*	ImagerFormfeed			Outputs a form feed character
*	ImagerLinefeed			Moves the paper down by a specified distance
*	ImagerPrint				Images, compresses, and sends a graphics bitmap
*	ImagerClose				Releases unique connection to printer; must be called last
*
*The imager, like other modules of the print driver, uses "ParamXXXXY" direct
*page variables defined in the equates module.
*
*Entry points that require pointers should be called with the low word in X
*and the high word in Y.  Entry points that require input values should be
*called with the A register set.  Output, if any, is given in the A register
*and carry flag.
*
*Imager calls MUST be made in the following sequence:
*
*	(1) ImagerOpen, required to allocate resources and set up defaults
*	(2) ImagerSetLocInfo, required first because other calls need its information
*	(3) ImagerSetGrays, required before printing but after ImagerSetLocInfo
*	(4) Any mixture of the other Get/Set calls, to change to nondefault settings
*	(5) ImagerReady, required before printing because it transmits settings to device
*	(6) Any mixture of ImagerFormfeed/ImagerLinefeed/ImagerPrint calls, which mark the paper
*	(7) ImagerClose, required to deallocate resources
*
*Normally, the ImagerPrint routine returns with 0 in the accumulator.  If the
*accumulator is nonzero then there was a user-abort request or irrecoverable
*problem, and the print job must be aborted.  If the accumulator is nonzero on
*exit then the carry flag is also set.
*
*Error codes returned in A/carry by ImagerPrint are as follows:
*
*	$0080	User abort, because of Cmd-'.' press or AbortPoll being asserted
*	$008F	Communications or printer protocol error
*
*While processing raster lines, an internal routine is called periodically
*which services various functions asynchronously.  It is then that the user-
*installable IdleProc and AbortPoll are checked and called, as well as
*command-period, communications, and printer error checks.
*
*The address (if not NIL) given in ImagerSetIdleProc is called (JSL) with
*our environment saved.  The Command-Period printing interrupt request from the
*user is checked for even if a non-NIL address is given (Command-Period causes
*the imager to abort and return $80 status).
*
*The address (if not NIL) given in ImagerSetAbortPoll is checked after the
*idleproc is executed; this allows a high-level driver to allow the idleproc
*to set a global variable such as PrSetError.
*
*The coordinates given in ImagerSetLocInfo must be such that Y1<Y2 and
*X1<X2.  The X coordinates should be byte-aligned.  Mixed 640-and-320
*modes within the same bitmap is not supported.  This call initializes
*values used during printing, such as the color pixel conversion table
*which maps screen pixels into printer pixels.
*
*Within the chunky color pixels of the bitmap, the color table entries for
*%00 or %0000 are assumed to be pure black and those for %11 or %1111 are
*assumed to be pure white.  A pure black and a pure white should always
*exist in the standard color table entries.  If this is not the case, then
*those pixels in the bitmap which refer to %00/%0000 or %11/%1111 will be
*incorrectly printed black or white, respectively.  Also, if there are
*pure black/white colors, but assigned to nonstandard locations in the
*color table, then printing may also be incorrect.
*
*Notes on terminology: In these routines, "band" refers to one scan of the
*print head.  Do not confuse this with the printing bands into which the
*high-level driver print loop routines split up each page due to possible
*memory constraints.  Also, note the distinctions made in the comments
*between "source" and "printer" pixels.  "Source" pixels are the input to
*the imager (and are in fact usually in an off-screen buffer), and "printer"
*pixels are the dots which are sent to the printer device.
*







*
*IMAGEROPEN: Establishes unique connection with printer and initializes the imager: Error -> carry:
*
							export ImagerOpen
ImagerOpen
							stz AbortFlag						;zero our abort flag
							stz Resolution						;default 180 dpi
							stz PaperFeed						;default automatic paper feed
							stz VerticalCondenseFlag			;default no vertical condense
							stz IdleProcPtr+0					;default no idle procedure
							stz IdleProcPtr+2
							stz AbortPollPtr+0					;default no abort poll location
							stz AbortPollPtr+2
							stz PrinterVerticalPosition			;top of form
							
							import CommOpen						;ask to open connection: this call
							brl CommOpen						;sets or clears carry flag







*
*IMAGERCLOSE: Releases unique connection with printer and terminates the imager:
*
							export ImagerClose
ImagerClose
							import CommClose					;ask to close connection
							brl CommClose







*
*IMAGERGETVALIGNFACTOR: Returns vert align needed for some printers with band print models -> A:
*
							export ImagerGetVAlignFactor
ImagerGetVAlignFactor
							lda #ImagerQDPattVAlignFactor		;any-vertical-size bitmap is ok,
							rts									;but allow for quickdraw patterns







*
*IMAGERSETFEED: Informs us of automatic or manual paper feed.  Pass 0/1 for automatic/manual -> A:
*
							export ImagerSetFeed
ImagerSetFeed
							and #%1								;do range clip for 0..1
							sta PaperFeed						;set our global variable
							rts







*
*IMAGERSETLOCINFO: Informs us of bitmap dims with locinfo/inits color map table.  Ptr lo->X, hi->Y:
*
							export ImagerSetLocInfo
ImagerSetLocInfo
							stx ParamLongA+0					;access caller's locinfo struct
							sty ParamLongA+2
							ldy #oportSCB						;obtain the current graphics mode
							lda [ParamLongA],y					;and store as $00/$80 in static var
							and #$0080
							sta SourceMode
							
							ldy #optrToPixImage					;obtain pointer to caller's bitmap
							lda [ParamLongA],y					;and store in our static variable
							sta SourcePixPtr+0
							iny
							iny
							lda [ParamLongA],y
							sta SourcePixPtr+2
							
							ldy #owidth							;obtain byte-width and store
							lda [ParamLongA],y
							sta SourceByteWidth
							
							ldy #oboundsRect+ov1				;store beginning and ending raster
							lda [ParamLongA],y					;lines of the source bitmap; note
							sta SourceYLineBegin				;that Y1 must be smaller than Y2
							ldy #oboundsRect+ov2
							lda [ParamLongA],y
							sta SourceYLineEnd
							
							ldy #oboundsRect+oh1				;convert beginning X coordinate to
							lda [ParamLongA],y					;byte offset and store
							and #%1111111111111000				;round down to multiple of 8
							lsr a
							ldx SourceMode						;320: 2 pix/byte, 640: 4 pix/byte
							beq SeLoDivX1Its320
SeLoDivX1Its640				lsr a
SeLoDivX1Its320				sta SourceXByteBegin

							ldy #oboundsRect+oh2				;convert ending X coordinate to
							lda [ParamLongA],y					;byte offset and store
							and #%1111111111111000				;round down to multiple of 8
							lsr a
							ldx SourceMode						;320: 2 pix/byte, 640: 4 pix/byte
							beq SeLoDivX2Its320
SeLoDivX2Its640				lsr a
SeLoDivX2Its320				sta SourceXByteEnd

							rts									;exit







*
*IMAGERSETGRAYS: Inits pixel conversion lookup table, must be called after ImagerSetLocInfo:
*
*This routine sets up the screen color to printer grayscale mapping.  This routine must be
*called after ImagerSetLocInfo, so that it knows which mode (320/640) is in effect.  In 640
*mode, black and white are mapped properly in addition to three arbitrarily mapped grays.
*In 320 mode, the values of the current color table to establish halftone patterns.
*
*The table that we build here, and which is used by the low-level pixel conversion loop, has
*two parts which are identical in usage but may contain different values in order to implement
*gray patterns.  Each part is capable of converting a byte of screen pixels into a nibble of
*printer pixels.  Each part of the table thus has a domain of 8 bits and a range of 4 bits
*(stored in 8-bit bytes).  The table parts are designed to be accessed with 8 bits of source
*(screen) pixel data (2 or 4 pixels if 320/640), and return a nibble full of printer-ready pixels.
*In 640 mode, 4 source pixels are mapped into 4 printer pixels.  In 320 mode, 2 source pixels are
*doubled and are also mapped into 4 printer pixels.  Since we initialize the table for either mode
*at this time, the imaging loop itself need only use this table and need not decide on the fly
*which mode is in effect.
*
*Two subroutines, MAP640PIXEL and MAP320PIXEL, are employed to perform the actual mapping of a
*source pixel.  These routines are passed the source pixel bits in A, must return printer pixel
*bits in A, must preserve Y, and may use X as a dither counter.  The output from these routines
*is allowed to vary every other time to implement gray.
*
*The MAP640PIXEL routine only needs to return a single 1-bit output (which may of course vary
*over an every-other period for non-pure-black/white input values).  The MAP320PIXEL routine,
*however, must output two separate 2-bit outputs, a primary and an alternate.  Since both
*primary and alternate values are allowed to change every other time as well, the number of gray
*possibilities is greatly increased.  Both parts of the lookup table are filled with the same
*single output value from MAP640PIXEL if 640 mode is in effect; the primary and alternate parts
*of the table are filled with the primary and alternate output values from MAP320PIXEL if 320
*mode is in effect.
*
							export ImagerSetGrays
ImagerSetGrays
							ldy #0								;Y has count, X used by map routines

bt_loop						lda SourceMode						;branch on 320/640 mode
							beq bt_its320
							
bt_its640					tya									;get a possible byte full of src pix
							and #%11							;rightmost src pix in b0,b1 -> pr b0
							jsr Map640Pixel						;init, pwA will build pr pixels byte
							sta ParamWordA
							
							tya									;convert 3rd source pix -> pr pix
							lsr a								;source pix b2,b3 -> print pix b1
							lsr a
							and #%11
							jsr Map640Pixel
							asl a
							ora ParamWordA
							sta ParamWordA
							
							tya									;convert 2nd source pix -> pr pix
							lsr a								;source pix b4,b5 -> print pix b2
							lsr a
							lsr a
							lsr a
							and #%11
							jsr Map640Pixel
							asl a
							asl a
							ora ParamWordA
							sta ParamWordA
							
							tya									;convert leftmost src pix -> pr pix
							lsr a								;source pix b6,b7 -> print pix b3
							lsr a
							lsr a
							lsr a
							lsr a
							lsr a
							and #%11
							jsr Map640Pixel
							asl a
							asl a
							asl a
							ora ParamWordA
							
							sta ParamWordA						;store same final result in pwA/pwB
							sta ParamWordB						;so that both parts of the table
							bra bt_next							;will have the parallel values
							
bt_its320					tya									;convert rightmost pix in byte
							and #%1111							;source b0-b3 -> print b0 and b1
							jsr Map320Pixel						;for both primary/alternate tables
							pha
							and #%11
							sta ParamWordA
							pla
							xba
							and #%11
							sta ParamWordB
							
							tya									;convert leftmost pix in byte
							lsr a								;source b4-b7 -> print b2 and b3
							lsr a								;for both primary/alternate tables
							lsr a
							lsr a
							and #%1111
							jsr Map320Pixel
							pha
							and #%11
							asl a
							asl a
							ora ParamWordA
							sta ParamWordA
							pla
							xba
							and #%11
							asl a
							asl a
							ora ParamWordB
							sta ParamWordB
							
bt_next						shortm								;get pwA/pwB primary/alternate
							lda	ParamWordA						;nibbles full of print pixels
							sta SourceToPrintPixLookup+000,y	;store into a pri/alt tables bytes
							lda ParamWordB
							sta SourceToPrintPixLookup+256,y
							longm
							iny									;goto next possibility of src byte
							cpy #256							;go create all possible values of
							beq bt_exit							;source byte; when done, exit
							brl bt_loop
bt_exit						rts



*
*Subroutine to convert one 640-mode pixel into one print pixel: In/Out -> A, preserves Y, uses X:
*
*This routine must preserve the Y register and may assume that the X register does not change
*between invocations of this routine, so that it can use it as a dither counter.  Two bits go
*into this routine, and one bit comes out.
*
*Input format given in A:		640-mode pixel in bits b0-b1; other bits zeros
*Output format required in A:	One bit of printer pixel data in b0; other bits zeros
*
Map640Pixel					and #%11							;look at a 640 chunky pix in lo bits
							beq m6_its_black					;branch if source is pure black
							cmp #%11							;compare for pure white
							beq m6_its_white					;branch if source is pure white
							inx									;else it's in between, so alternate
							txa									;increment wild count, consider as
							and #%1								;alternating black/white if even/odd
							beq m6_its_black
m6_its_white				lda #%0								;white source pix -> no ink pr pix
							rts
m6_its_black				lda #%1								;black source pix -> yes ink pr pix
							rts



*
*Subroutine to convert one 320-mode pixel into two print pixels: In/Out -> A, preserves Y, uses X:
*
*This routine must preserve the Y register and may assume that the X register does not change
*between invocations of this routine, so that it can use it as a dither counter.  Four bits go
*into this routine, and two alternatives of two bits each comes out.
*
*Input format given in A:		320-mode pixel in bits b0-b3; other bits zeros
*Output format required in A:	Two sets of two bits of pr pix in b0-b1 and b8-b9; other bits zeros
*
Map320Pixel					phx									;save free running counter
							
							and #%1111							;mask off garbage, have one 320 pix
							asl a								;each color entry is 2 bytes
							sta m3_temp							;save offset within palette for a sec
							
							lda >$E19D00+100					;look at SCB for line 100
							and #%1111							;isolate color palette 0..15
							asl a								;times 32, each palette is 32 bytes
							asl a
							asl a
							asl a
							asl a								;now have index to palette
							clc
							adc m3_temp							;add which pix color within palette
							tax
							lda >$E19E00,x						;get $0RGB color for this pixel
							
							pha									;do K=(5R+8G+3B)/16
							xba
							and #$F								;R
							sta m3_temp
							asl a
							asl a								;4*R
							clc
							adc m3_temp							;5*R
							sta m3_temp
							lda 1,s
							lsr a
							and #%0000000001111000				;8*G
							clc
							adc m3_temp							;5*R + 8*G
							sta m3_temp
							lda 1,s
							and #$F								;B
							sta 1,s
							asl a								;2*B
							clc
							adc 1,s								;3*B
							sta 1,s
							pla
							clc
							adc m3_temp							;5*R + 8*G + 3*B
							lsr a
							lsr a
							lsr a
							lsr a								;(5*R + 8*G + 3*B) / 16
														
							plx									;restore free running counter
							phx									;but keep it saved
							
							and #%1111							;we now have 0..15 density
							asl a								;multiply by 4 because
							asl a								;all table entries are 4 bytes wide
							sta m3_temp							;save table index for a moment
							txa									;get free running counter
							and #%1								;isolate its even-odd status
							asl a								;times 2: now have 0,2,0,2...
							clc									;add this to table index, now have
							adc m3_temp							;table entry + 0,2,0,2... index
							tax									;now get two bytes from table entry,
							lda m3_table,x						;w/ 2 bits in b0-b1 & 2 bits in b8-b9
							
							plx									;restore/increment counter and exit
							inx									;note that next time we'll get the
							rts									;other two bytes from table entry
							
m3_table					dc.b %11,%11,%11,%11				;0 screen	15 print	black
							dc.b %11,%11,%11,%01				;1			14
							dc.b %11,%11,%01,%01				;2			13
							dc.b %11,%11,%01,%01				;3			12
							dc.b %11,%01,%11,%01				;4			11
							dc.b %01,%01,%01,%01				;5			10
							dc.b %11,%01,%00,%01				;6			9
							dc.b %11,%11,%00,%00				;7			8			gray
							dc.b %01,%01,%01,%00				;8			7			gray
							dc.b %01,%11,%00,%00				;9			6
							dc.b %11,%00,%11,%00				;10			5
							dc.b %01,%01,%00,%00				;11			4
							dc.b %01,%01,%00,%00				;12			3
							dc.b %01,%00,%00,%00				;13			2
							dc.b %01,%00,%00,%00				;14			1
							dc.b %00,%00,%00,%00				;15 screen	0 print		white
							
m3_temp						dc.w 0







*
*IMAGERSETRESOLUTION: Sets size of each printer pixel to 180/360 dpi.  Pass 0/1 -> ACC:
*
							export ImagerSetResolution
ImagerSetResolution
							and #1								;do rudamentary range clip
							sta Resolution						;store it in global static var
							rts







*
*IMAGERSETVCONDENSE: Sets up 2x/1x-vert-size to compensate for GS fonts.  Pass 0/1: no/yes -> ACC:
*
							export ImagerSetVCondense
ImagerSetVCondense
							and #%1								;make sure it's only 0 or 1
							sta VerticalCondenseFlag			;store it in global static var
							rts







*
*IMAGERSETIDLEPROC: Sets proc to be called during printing.  Pass ptr or NIL lo->X, hi->Y:
*
							export ImagerSetIdleProc
ImagerSetIdleProc
							stx IdleProcPtr+0
							sty IdleProcPtr+2
							rts







*
*IMAGERSETABORTPOLL: Sets adrs; if goes non-0 during print, we abort.  Pass ptr/NIL lo->X, hi->Y:
*
							export ImagerSetAbortPoll
ImagerSetAbortPoll
							stx AbortPollPtr+0
							sty AbortPollPtr+2
							rts







*
*IMAGERREADY: Sets up printer's controller: Pass 0/1 for normal/inhibit-reset-command -> ACC:
*
							export ImagerReady
ImagerReady
							cmp #0								;check if ACC nonzero
							bne ImRe_reset_done					;if nonzero don't do general reset
							lda #ImReResetCommand				;general printer reset command
							import CommWriteShort				;causes head calibration motion
							jsr CommWriteShort					;and sets defaults in printer
ImRe_reset_done
							
							ldx PaperFeed						;send command to select paper
							beq ImRe_feed_auto					;feed mode; the printer's paper
ImRe_feed_man				lda #ImReManFeedCommand				;loading behavior is slightly
							bra ImRe_feed_set					;different for the manual mode
ImRe_feed_auto				lda #ImReAutoFeedCommand
							import CommWriteShort
ImRe_feed_set				jsr CommWriteShort
							
							stz PrinterVerticalPosition			;set top/form for our Y accounting
							
							ldx Resolution						;send command to select one of the
							beq ImRe_res_180					;resolution modes; the higher the
ImRe_res_360				lda	#ImRe360DPIUniCommand			;resolution, the smaller the pr pix
							bra ImRe_res_set					;and select head motion option
ImRe_res_180				lda #ImRe180DPIBiCommand
							import CommWriteShort
ImRe_res_set				jsr CommWriteShort

							rts
							
ImReResetCommand			dc.b 4
							dc.b $FF,$FF,$FF,$49				;immediate general reset

ImReAutoFeedCommand			dc.b 1								;automatic paper feed
							dc.b $41

ImReManFeedCommand			dc.b 1								;manual paper feed
							dc.b $4D

ImRe360DPIUniCommand		dc.b 2
							dc.b $6E							;360 dpi "normal" resolution
							dc.b $75							;unidirectional head motion

ImRe180DPIBiCommand			dc.b 2
							dc.b $64							;180 dpi "draft" resolution
							dc.b $3C							;bidirectional head motion







*
*IMAGERFORMFEED: Causes the printer to eject the current page:
*
							export ImagerFormfeed
ImagerFormfeed
							stz PrinterVerticalPosition			;our accouting of vert position

							lda #ImFfFormfeedCommand			;send form feed command
							import CommWriteShort
							brl CommWriteShort

ImFfFormfeedCommand			dc.b 1
							dc.b $0C







*
*IMAGERLINEFEED: Moves position on paper down by a specified distance.  Pass distance -> ACC:
*
							export ImagerLinefeed
ImagerLinefeed
							clc									;add given value to our accounting
							adc PrinterVerticalPosition			;of current vertical position, to
							sta	PrinterVerticalPosition			;be used for next define-rect cmd
							rts 







*
*IMAGERPRINT: Converts/compresses/sends bitmap referred by locinfo.  ACC/c -> Abort status:
*
*This routine converts the bitmap that has been previously specified with the set-locinfo call
*into printer-ready pixels and causes it to be printed.  In doing so, we employ a fast white
*scanner and utilize the pixel conversion table that was set up with the BuildPixConvertTable
*routine.  CompressSend is called each time after the printer-pix-buffer has been filled by the
*completed processing of the current raster line.  After many CompressSend calls, we also
*periodically call IntraLineService and terminate the imaging process if necessary.
*
*This routine provides two error paths: This routine may return a nonzero status in A/carry,
*indicating an unrecoverable error, in which case the entire print job should always be aborted.
*In addition, if a recoverable error is detected, the optional caller's error procedure is
*called with an error code in A.
*
*Variables used within the scope of doing all lines:
*	ParamLongD has pointer to beginning of current source line; it is inc by source width
*	ParamWordE has count of number of source lines that have been processed so far
*
*Variables within the scope of each line:
*	Y register has index into next byte position of source-pixel-buffer from ParamLongD
*	ParamWordF has index into next available byte of printer-pixel-buffer
*	ParamWordD is nonzero at the end of the current source line if it's not fully blank
*
							export ImagerPrint
ImagerPrint

*Do intraline service to allow abort and check for errors before doing DDR:
							jsr IntraLineService
							lda AbortFlag
							beq ImPr_done_beforeDDRcheck
							brl ImPr_exit
ImPr_done_beforeDDRcheck
							
*Send define-graphics-rectangle command so printer firmware knows where paper is to be marked:
  							lda SourceXByteBegin				;set X1 limits in coordinates
							asl a								;convert from screen-byte offsets
							asl a								;to printer coordinates: one screen
							sta ImPrRectCommandX1				;byte will ALWAYS map to 4 pr pix
							
							lda SourceXByteEnd					;set X2 limits in coordinates
							asl a
							asl a
							dea									;for n pixels, set limits in the
							sta ImPrRectCommandX2				;form of 0..n-1
							
							lda PrinterVerticalPosition			;Y limits are in raster lines
  							sta ImPrRectCommandY1				;y1 = beyond end of last rect
							
							lda SourceYLineEnd					;y2 = y1 + (tallness of this current
							sec									;ImagerPrint call * 2 if vertical
							sbc SourceYLineBegin				;condense is off since we map each
							ldx VerticalCondenseFlag			;source line into two printer lines
							bne ImPr_rectY2_GotTallness			;if vertical condense is off) - 1
							asl a								;so that the first rect will be
ImPr_rectY2_GotTallness		dea									;0..199, for example, and the next
							clc									;will be 200..399, etc.
							adc ImPrRectCommandY1
							sta ImPrRectCommandY2
							ina									;also save position one line below
							sta PrinterVerticalPosition			;bottom of rect for next time
							
							lda #ImPrRectCommand				;do define-graphics-rect (DDR) cmd
							import CommWriteShort
							jsr CommWriteShort
							
*Do intraline service to allow abort and check for errors after DDR (paper might be empty, etc):
							jsr IntraLineService
							lda AbortFlag
							beq ImPr_done_afterDDRcheck
							brl ImPr_exit
ImPr_done_afterDDRcheck
							
*Initialize vertical loop counters:
							pha									;setup plD with address of starting
							pha									;source raster line by doing
							pushword SourceYLineBegin			;(y1 * raster_width) + pix_map_base
							pushword SourceByteWidth
							_Multiply
							clc									;prepare to add
							pla									;get lo word of multiply result
							adc SourcePixPtr+0					;add to pix map base and store lo
							sta ParamLongD+0
							pla									;get hi word of multiply result
							adc SourcePixPtr+2					;add to pix map base and store hi
							sta ParamLongD+2
							
							lda SourceYLineBegin				;reset vertical line counter in pwE
							sta ParamWordE

*Head of vertical loop for doing all raster lines:
ImPr_vertical_loop

*Init for converting one horizontal source-pixel line into a printer-pixel line:
							stz ParamWordD						;reset line-dirty flag in pwD
							stz ParamWordF						;reset print-pix-buffer index in pwF
							jsr ClearPrintPixBuffer				;zero the print-pix-buffer itself
							lda SourceXByteEnd					;reset end-of-source-line terminator
							sta ImPr_white_eoln+1				;in the white-elimination loop
							ldy SourceXByteBegin				;reset source-pix-line index in Y
							
*Do fast loop which scans across white space a word at a time:
ImPr_white_loop				lda [ParamLongD],y					;get a word-full of source pixels
							cmp #$FFFF							;compare for all-std-white pixels
							bne ImPr_not_white					;go mark the pr buffer if not white
ImPr_white_next				inc ParamWordF						;increment index into pr pix buffer
							iny									;increment for getting next src word
							iny
ImPr_white_eoln				cpy #$0000							;NOTE: operand is stuffed
							bcc ImPr_white_loop					;loop until out of bytes in src line
							bra ImPr_done_converting			;branch if done with all bytes

*A source pixel word containing at least one non-white pixel has been encountered:
ImPr_not_white

*Cvt word-full of src pix in A to byte-full of pr pix, store in pr-pix-buff, set line-dirty flag:
							phy									;save 16-bit Y which has src h index
							sep #$20+$10						;set shortm+shortx: 8 bit mem/A/X/Y
							tax									;left src byte in A, right in B
							lda SourceToPrintPixLookup+000,x	;lo src byte -> 4 bits of pr pixels
							asl a								;shift into position; lo src byte's
							asl a								;pr pix nibble will be the high
							asl a								;nibble of the pr pix byte that we're
							asl a								;currently forming
							sta ParamWordA						;this will become lo nibble of pr pix
							xba									;now get high (right) source byte
							tax									;get 8 bits of source pixels in X
							lda SourceToPrintPixLookup+256,x	;hi src byte -> 4 bits of pr pixels
							ora ParamWordA						;bring in low nibble already obtained
							rep #$10							;longx; back to 16-bit for buff index
							ldx ParamWordF						;get current index into line buffer
							sta PrintPixBuffer,x				;store 8 bits of print pixels
							ora ParamWordD						;since A is now nonzero, ensure that
							sta ParamWordD						;the line-dirty flag gets/stays set
							rep #$20							;longm; now everything back to 16-bit
							ply									;restore 16-bit Y with src h index
							bra	ImPr_white_next					;inc/loop back to white or this again

*Done with converting a single raster.  We now have a full line of printer-ready pixels:
ImPr_done_converting

*If fully empty, send do-blank-line command without having to do compression encoding:
							lda ParamWordD						;skip if nonzero; else if zero, then
							bne ImPr_not_blankline				;there are no pr pix on this line
							lda VerticalCondenseFlag			;if vertical condense is on, then
							bne ImPr_blank_vert_1X				;every single src line prints as one
ImPr_blank_vert_2X			lda #ImPrBlankLineCommand			;line, else, prints as two pr lines
							import CommWriteShort
							jsr CommWriteShort
ImPr_blank_vert_1X			lda #ImPrBlankLineCommand
							import CommWriteShort
							jsr CommWriteShort
							bra ImPr_done_sending
ImPr_not_blankline

*Else compress and send a dirty line of print-pixel data to printer:
							jsr CompressSend					;compact and send pr-line-buff data
							lda VerticalCondenseFlag			;if vertical condense is on, then
							bne ImPr_dirty_vert_1X				;every single src line prints as one
ImPr_dirty_vert_2X			lda #ImPrRepeatLineCommand			;line, else, prints as two pr lines
							import CommWriteShort
							jsr CommWriteShort
ImPr_dirty_vert_1X

*We have now finished sending a single raster to the printer:
ImPr_done_sending

*Periodically do print-time activities: idleproc/check errors/user-abort/etc:
							lda ParamWordE						;use vertical counter and mask off
							and #ImagerILSFrequencyMask			;with all 1's so that we get all-0
							bne ImPr_done_intlnstuff			;periodically (ie, every 64 lines)
							jsr IntraLineService				;do iproc/monitor/cmd-period activity
ImPr_done_intlnstuff

*If the abort flag is set, for any reason, abort at this time:
							lda AbortFlag
							bne ImPr_exit
							
*Increment vertical counters and loop back:
							clc									;add the byte-width of the source
							lda ParamLongD+0					;bitmap to our current pointer, so
							adc SourceByteWidth					;as to point it to the next line
							sta ParamLongD+0
							lda ParamLongD+2
							adc #0
							sta ParamLongD+2
							
							inc ParamWordE						;increment vertical counter
							lda ParamWordE						;compare against last value
							cmp SourceYLineEnd					;loop if not done
							bcs ImPr_done_vertical
							brl ImPr_vertical_loop
ImPr_done_vertical

*Exclusive exit point; exit with status in ACC/carry:
ImPr_exit					lda AbortFlag
							cmp #1
							rts

*Define-graphics-data-rectangle command sequence sent to printer prior to graphics data:
ImPrRectCommand				dc.b 10								;length
							dc.b $52							;DDR command
ImPrRectCommandX1			dc.w 0								;X1/Y1/X2/Y2 coordinates, given
ImPrRectCommandY1			dc.w 0								;as words, lo byte first
ImPrRectCommandX2			dc.w 0
ImPrRectCommandY2			dc.w 0
							dc.b $00							;command separator

*Draw-empty-scan-line command sequence sent to printer:
ImPrBlankLineCommand		dc.b 4								;length
							dc.b $47							;transfer-graphics command
							dc.w $0001							;graphics length word, lo byte first
							dc.b $80							;empty-scanline compression-opcode

*Draw-repeat-of-last-scan-line command sequence sent to printer:
ImPrRepeatLineCommand		dc.b 4								;length
							dc.b $47							;transfer-graphics command
							dc.w $0001							;graphics length word, lo byte first
							dc.b $C0							;repeat-scanline compression-opcode







*
*COMPRESSSEND: Sends data in the print-pix-buffer to port driver (printer) in compacted format:
*
*This routine analyzes the data in the PrintPixBuffer and then writes into the CompressPixBuffer
*a compressed version of the data, according to the compression format.  The total length
*of the data sequence is inserted into a raster-transfer command sequence, and then this command
*sequence, followed by the compressed data, is output to the port driver with a single write call.
*
*Two subroutines, COMPRESSSENDADDDATANOR and COMPRESSSENDADDDATARLE, are used by this routine.
*They add a discrete-data-block or a repeating-data-block to the output CompressPixBuffer; if these
*routines are asked to add a block that is greater than the maximum-allowed length, then they
*fullfill the request by adding several smaller such blocks.
*
*The two subroutines mentioned above also insure that a byte of value $FF will never occur in the
*graphics data stream, as required by the printer to avoid ambiguity with immedate commands.
*
CompressSend
							stz cs_curr_pos						;init logical positions for scan:
							stz cs_nor_start					;normal-run start and end, repeat-
							stz cs_nor_end						;run start, repeat counter, and
							stz cs_rle_start					;state: 0=normal, 1=maybe rle,
							stz cs_curr_stat					;2=definetely rle; init for counting
							stz cs_rept_ctr						;the length of the entire compressed
							stz cs_outbuff_pos					;output ready for sending

							lda PrintPixBuffer+0				;init "last group" to be always
							ina									;different from first group
							sta cs_last_group+0

							lda SourceXByteEnd					;setup end position of pr pix buff
							sec									;scan as 1/2 the length of scrn pix
							sbc SourceXByteBegin				;since scrn pix has 4 pix/byte and
							lsr a								;pr pix has 8 pix/byte, and since we
							sta cs_end_pos						;double 320 mode so it's the same

cs_test						ldy cs_curr_pos						;head of scanning loop
							shortm								;cmp current byte against last byte
							lda PrintPixBuffer,y
							cmp cs_last_group
							longm
							bne cs_diff

cs_same						ldx cs_curr_stat					;curr byte is == to byte last time,
							cpx #2								;so dispatch to sameness handlers
							bne cs_same_01						;if state=2, going to do fast scan

cs_same_2					shortm								;set short A/mem for comparisons
cs_same_2_floop				iny									;keep incrementing cs_curr_pos in Y
							cpy cs_end_pos						;check to see if end of buffer
							bcc cs_same_2_fcmp					;if not end proceed to the compare
							longm								;else: go to long A, update
							sty cs_curr_pos						;cs_curr_pos and exit-end-of-buffer
							brl cs_flush
cs_same_2_fcmp				cmp PrintPixBuffer,y				;we keep the cmp master value in A
							beq cs_same_2_floop					;if still equal, continue w/ A and Y
							longm								;else: go to long A, update
							sty cs_curr_pos						;cs_curr_pos and exit-diff-case
							bra cs_diff

cs_same_01					cpx #1								;if state=1, go to its handler
							bne cs_same_0						;else, if state=0, go to its handler

cs_same_1					inc cs_rept_ctr						;inc rept cnt; if < thresh, continue
							lda cs_rept_ctr						;repeat counter can make us go from
							cmp #ImagerRLEThreshold-2			;state 1 to state 2 if >= thresh
							bcc cs_next
							inc cs_curr_stat					;staring run: state=2; do nor output
							ldx cs_nor_start					;do normal add-data from nor_start
							ldy cs_nor_end						;to nor_end-1 and then continue scan
							jsr CompressSendAddDataNor
							bra cs_next

cs_same_0					inc cs_curr_stat					;same as last time and in state 0, so
							stz cs_rept_ctr						;go to state 1, clr repeat ctr, set
							lda cs_curr_pos						;possible repeat-run start position
							dea
							sta cs_rle_start
							bra cs_next

cs_diff						lda cs_curr_stat					;curr byte not == to byte last time,
							bne cs_diff_12						;so go to non-equal state handlers

cs_diff_0					lda cs_curr_pos						;different and in state 0: state
							sta cs_nor_end						;stays 0, and track nor_end with
							bra cs_next							;curr_pos and continue scan

cs_diff_12					cmp #1
							bne cs_diff_2

cs_diff_1					stz cs_curr_stat					;diff and in state 1: state goes
							stz cs_rept_ctr						;to 0, clear repeat counter,
							lda cs_curr_pos						;and track nor_end with
							sta cs_nor_end						;curr_pos and continue scan
							bra cs_next

cs_diff_2					stz cs_curr_stat					;diff and in state 2: state goes
							lda cs_curr_pos						;to 0, reset normal start/end,
							sta cs_nor_start					;do run-length output
							sta cs_nor_end
							ldx cs_rle_start					;do rle output from rle_start
							ldy cs_curr_pos						;to curr_pos-1, and then
							jsr CompressSendAddDataRle			;drop thru to cs_next

cs_next						ldy cs_curr_pos						;next position: set last_group,
							shortm								;increment pos, see if done
							lda PrintPixBuffer,y				;copy 1 byte from pr pix buffer
							sta cs_last_group					;so we can compare to next one
							longm

cs_next_inc					inc cs_curr_pos						;increment current position,
							lda cs_curr_pos						;loop until out of bytes used
							cmp cs_end_pos						;in pr pix buff for current
							bcs cs_flush						;resolution setting
							brl cs_test							;go to top of loop or to end-flush

cs_flush					lda cs_curr_stat					;final flush: check state
							cmp #2
							beq cs_flush2

cs_flush01					ldx cs_nor_start					;flush/state=0 or 1: do normal
							ldy cs_curr_pos						;output from nor_start to curr_pos-1
							jsr CompressSendAddDataNor			;and then go send output command
							bra cs_send_cmd

cs_flush2					ldx cs_rle_start					;flush/state=2: do rle output from
							ldy cs_curr_pos						;rle_start to curr_pos-1
							jsr CompressSendAddDataRle			;and drop into send-output-command

cs_send_cmd					lda cs_outbuff_pos					;put length of data in cmd sequence
							sta CompressXferCmdLengthWord		;as a word, lo byte first

cs_send_cmd_xmit_grcmd		clc									;assume length still in A
							adc #CompressXferCmdEnd-CompressXferCmdBegin
							ldx #CompressXferCmdBegin			;xmit bytes for entire cmd and exit
							ldy #^CompressXferCmdBegin			;data represents an entire scan line
							import CommWriteLong				;length in A, ptr in X and Y
							jsr CommWriteLong					;go transmit graph command+data

cs_send_cmd_xmit_sepcmd		lda #CompressSeparatorCommand		;also send command separator
							import CommWriteShort				;and exit
							brl CommWriteShort



*Subroutine to add non-repeating graphics data to data in compress-pix-buffer (from->X, to->Y):
CompressSendAddDataNor		stx cs_addbuff_from					;save the "from" pos in pr pix buff
							dey									;save the "to"-1 pos in pr pix buff
							sty cs_addbuff_to
							tya									;compute ("to"-1) - "from"
							sec
							sbc cs_addbuff_from
							cmp #$FFFF							;if this result is -1 then exit
							bne cs_nor_ok
							brl cs_nor_exit
cs_nor_ok					ina									;A now has number of bytes to do
							sta cs_addbuff_num					;store it

cs_nor_check_len			cmp #ImagerRLEMaxPacketLength+1		;cs_addbuff_num in A, check if not
							bcc cs_nor_do_add					;too long: if ok, add it and exit
							
							pha									;else save cs_addbuff_num total len
							pushword cs_addbuff_to				;and save total "to" value
							lda #ImagerRLEMaxPacketLength		;we'll do a chunk of m-1 bytes
							sta cs_addbuff_num
							dea									;set chunk's "to":=m-1+total"from"-1
							clc									;so that we're going from "from"
							adc cs_addbuff_from					;to ("from" plus m-1) bytes
							sta cs_addbuff_to
							jsr cs_nor_do_add					;go do a chunk of m-1 bytes
							lda cs_addbuff_to					;set "from" to our "to"+1, so that we
							ina									;can continue next chunk where the
							sta cs_addbuff_from					;one we just did left off
							pullword cs_addbuff_to				;restore original total "to" value
							pla									;restore total cs_addbuff_num length
							sec									;we've done m-1 bytes of it
							sbc #ImagerRLEMaxPacketLength		;so subtract m-1 and store and
							sta cs_addbuff_num					;also leave the new value in A
							bra cs_nor_check_len				;try again, with cs_addbuff_num in A

cs_nor_do_add				shortm								;going to deal with 8-bit bytes
							lda cs_addbuff_num+0				;build the %00mmmmmm 0..m opcode
							ldy cs_addbuff_from					;get "from" pr pix buff pos in Y
							ldx cs_outbuff_pos					;get current out-buff position in X
							sta CompressPixBuffer,x				;store the opcode byte in out-buff
							inx									;and increment out-buff position
cs_nor_copy_loop			lda PrintPixBuffer,y				;get discrete data byte from pr pix
							sta CompressPixBuffer,x				;buff and store into out-buff
							inx									;increment our out-buff posn in X
							iny									;increment our pr pix buff posn
							cpy cs_addbuff_to					;loop for all pr pix bytes to copy
							bcc cs_nor_copy_loop				;up to and including the pr pix buff
							beq cs_nor_copy_loop				;position given by the "to" value
							stx cs_outbuff_pos					;update output-buff position var
							longm								;done dealing with 8-bit bytes
cs_nor_exit					rts



*Subroutine to add repeating graphics data to data in compress-pix-buffer (from->X, to->Y):
CompressSendAddDataRle		stx cs_addbuff_from					;save the "from" pos in pr pix buff
							dey									;save the "to"-1 pos in pr pix buff
							sty cs_addbuff_to
							tya									;compute ("to"-1) - "from"
							sec
							sbc cs_addbuff_from
							beq cs_rle_exit						;if this result is 0 or -1 then exit
							cmp #$FFFF
							beq cs_rle_exit
							ina									;A now has number of bytes to do
							sta cs_addbuff_num					;store it

cs_rle_check_len			cmp #ImagerRLEMaxPacketLength+1		;cs_addbuff_num in A, check if not
							bcc cs_rle_do_add					;too long: if ok, add it and exit
							
							pha									;else save cs_addbuff_num total len
							pushword cs_addbuff_to				;and save total "to" value
							lda #ImagerRLEMaxPacketLength		;we'll do a chunk of m-1 bytes
							sta cs_addbuff_num
							dea									;set chunk's "to":=m-1+total"from"-1
							clc									;so that we're going from "from"
							adc cs_addbuff_from					;to ("from" plus m-1) bytes
							sta cs_addbuff_to
							jsr cs_rle_do_add					;go do a chunk of m-1 bytes
							lda cs_addbuff_to					;set "from" to our "to"+1, so that we
							ina									;can continue next chunk where the
							sta cs_addbuff_from					;one we just did left off
							pullword cs_addbuff_to				;restore original total "to" value
							pla									;restore total cs_addbuff_num length
							sec									;we've done m-1 bytes of it
							sbc #ImagerRLEMaxPacketLength		;so subtract m-1 and store and
							sta cs_addbuff_num					;also leave the new value in A
							bra cs_rle_check_len				;try again, with cs_addbuff_num in A

							longa off							;set 8-bit-constant code generation
cs_rle_do_add				sep #$20							;going to deal with 8-bit bytes
							ldx cs_outbuff_pos					;get current out-buff position in X
							ldy cs_addbuff_from					;get "from" pr pix buff pos in Y
							lda PrintPixBuffer,y				;get the repeatable pr pix data byte
							beq cs_rle_do_add_white				;branch if all-white bits in byte
							cmp #$FF							;see if all-black bits in byte
							bne cs_rle_do_add_mixed				;branch if byte has mixed pixels
cs_rle_do_add_black			lda cs_addbuff_num+0				;here if total black byte
							;	  76543210
							ora #%11000000						;build the %11mmmmmm 0..m opcode
							sta CompressPixBuffer,x				;for total black run and output
							inx									;increment out-buff position
							stx cs_outbuff_pos					;and update out-buff position var
							rep #$20							;done with 8-bit bytes and exit
							rts
cs_rle_do_add_white			lda cs_addbuff_num+0				;here if total white byte
							;	  76543210
							ora #%10000000						;build the %10mmmmmm 0..m opcode
							sta CompressPixBuffer,x				;for total white run and output
							inx									;increment out-buff position
							stx cs_outbuff_pos					;and update out-buff position var
							rep #$20							;done with 8-bit bytes and exit
							rts
cs_rle_do_add_mixed			pha									;here if mixed data byte, save it
							lda cs_addbuff_num+0				;build the %01mmmmmm 0..m opcode
							;	  76543210						;for non-black/white repeat run
							ora #%01000000
							sta CompressPixBuffer,x				;store the opcode byte in out-buff
							inx									;and increment out-buff position
							pla									;restore data byte in A
							sta CompressPixBuffer,x				;and store it into out-buff
							inx									;increment our out-buff posn in X
							stx cs_outbuff_pos					;update output-buff position var
							rep #$20							;done with 8-bit bytes and exit
cs_rle_exit					rts
							longa on							;back to 16-bit-constants in code



*Variables needed by CompressSend and its subroutines:
cs_curr_pos					dc.w 0								;current logical position in scan
cs_end_pos					dc.w 0								;ending posn (#bytes in pr pix buff)
cs_curr_stat				dc.w 0								;state: 0=normal; 1=candidate; 2=rle
cs_nor_start				dc.w 0								;logical posn of start of normal data
cs_nor_end					dc.w 0								;logical posn of end of normal data
cs_rle_start				dc.w 0								;logical posn of start of run for rle
cs_rept_ctr					dc.w 0								;rept count for run-length candidate
cs_last_group				dc.w 0								;value of previous prpix byte
cs_outbuff_pos				dc.w 0								;total length of compressed data
cs_addbuff_from				dc.w 0								;save "from" param, in add buff subr
cs_addbuff_to				dc.w 0								;save "to" param, in add buff subr
cs_addbuff_num				dc.w 0								;save "to-from+1", in add buff subr
cs_addbuff_num_pvt			dc.w 0								;modifyable copy of cs_addbuff_num







*
*CLEARPRINTPIXBUFFER: Zeroes the printer-ready-pixel line buffer:
*
ClearPrintPixBuffer			ldx #(PrintPixBufferEnd-PrintPixBuffer)-2
							lda #0
cl_loop						sta PrintPixBuffer,x				;WARNING: the line buffer length
							dex									;must be even for this loop to
							dex									;terminate correctly!
							bpl cl_loop
							rts







*
*INTRALINESERVICE: Idleproc/command-period/abort/error service.  May set abort flag:
*
IntraLineService

***(1) Call IdleProc:
							lda IdleProcPtr+0					;call user's idle proc, if any
							tax									;if NIL, didn't specify idleproc
							ora IdleProcPtr+2					;else build JSL instruction
							beq ils_done_iproc
							
							stx ils_goto_iproc+1+0				;iproc may set abort flag so
							lda IdleProcPtr+2					;it should be called first before
							shortm								;abort flag check below
							sta ils_goto_iproc+1+2
							longm
							
							phb									;save env, call user, restore
							phd
ils_goto_iproc				jsl $FFFFFF							;NOTE: operand is stuffed
							pld
							plb
ils_done_iproc

***(2) Peek AbortPoll:
							lda AbortPollPtr+0					;check user's abort address
							tax									;if NIL, didn't specify abort adrs
							ora AbortPollPtr+2					;else build LDA instruction
							beq ils_done_abpoll
							
							stx ils_check_abpoll+1+0
							lda AbortPollPtr+2
							shortm
							sta ils_check_abpoll+1+2
							longm
							
ils_check_abpoll			lda >$FFFFFF						;NOTE: operand is stuffed
							beq ils_done_abpoll
							bra ils_assert_abort				;if user flag nonzero set abort
ils_done_abpoll

***(3) Check Cmd-'.' key:
							pha									;check for command-period press
							pushword #$0008						;pass keyDownMask
							pushlong #ils_eventrec				;pass event record
							_GetNextEvent
							pla
							beq ils_done_abkey
							lda ils_event_msg					;check event message for period
							and #$00FF
							cmp #'.'
							bne ils_done_abkey
							lda ils_event_mod					;check event modifiers for appleKey
							and #$0100
							beq ils_done_abkey
							bra ils_assert_abort				;if apple-period key, set our abort
ils_done_abkey

***(4) Check communications:
							import CommGetAbort					;check if communications still ok
							jsr CommGetAbort					;if not ok then fatal error because
							cmp #0								;a whole lot of stuff hasn't
							beq ils_done_commerror				;gotten through and sync is lost
							lda #$8F							;NOTE: a comm error will eventually
							bra ils_assert_error_abort_A		;happen on uncorrected printer err
ils_done_commerror

***Normal case exit:
							rts									;normal case exit from this routine

***Cause abort and exit:
ils_assert_abort			lda #$80							;assert the abort flag, which will
ils_assert_error_abort_A	sta AbortFlag						;will cause an exit out or imager,
							rts									;as well as a higher-level abort



*Event record used:
ils_eventrec
ils_event_what				dc.w 0
ils_event_msg				dc.l 0
ils_event_when				dc.l 0
ils_event_where				dc.l 0
ils_event_mod				dc.w 0







*
*GLOBAL DATA: Variables and data that may be kept across imager calls:
*
PaperFeed					dc.w 0								;0..1 if auto/man paper feed
Resolution					dc.w 0								;0/1 if 180/360 dpi
VerticalCondenseFlag		dc.w 0								;0 if v 2x (~cond) scaling; 1 if 1x

IdleProcPtr					dc.l 0								;ptr to user routine to call or NIL
AbortPollPtr				dc.l 0								;ptr to adrs to poll for abort or NIL

SourceMode					dc.w 0								;$00/$80 if 320/640 mode
SourcePixPtr				dc.l 0								;pointer to source bitmap
SourceByteWidth				dc.w 0								;# of horiz BYTES in a source line

SourceXByteBegin			dc.w 0								;source bitmap X start loop value
SourceXByteEnd				dc.w 0								;source bitmap X end loop value
SourceYLineBegin			dc.w 0								;source bitmap Y start loop value
SourceYLineEnd				dc.w 0								;source bitmap Y end loop value

AbortFlag					dc.w 0								;if nonzero causes our abort

PrinterVerticalPosition		dc.w 0								;knowing posn b/w ImagerPrint calls







*
*DATA TABLES: Global lookup tables and buffers needed during the imaging process:
*
SourceToPrintPixLookup		ds.b 512							;lookup table: source pix -> pr pix

PrintPixBuffer				ds.b 360+8							;one raster of pr pix; MUST be even!
PrintPixBufferEnd

CompressXferCmdBegin		
CompressXferCmdCommand		dc.b $47							;command sequence and accompanying
CompressXferCmdLengthWord	dc.b 'XX'							;data to print one raster of
CompressXferCmdEnd												;compacted printer pixel data in
CompressPixBuffer			ds.b 720+8							;run-length-encoding scheme

CompressSeparatorCommand	dc.b 1
							dc.b $00







							endproc
							end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/TABASCO/makefile b/IIGS.601.SRC/GSToolbox/PrinterDrivers/TABASCO/makefile
new file mode 100644
index 0000000..68d58f3
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/TABASCO/makefile
@@ -0,0 +1 @@
+
#***********************************************************************************
#                                                                                  *
#		Apple IIgs Printer Driver                                                  *
#                                                                                  *
#		File: makefile -- Compilation and linking script                           *
#                                                                                  *
#		Written by Ben Koning                                                      *
#		Copyright (C) 1991 Apple Computer, Inc.                                    *
#                                                                                  *
#***********************************************************************************



#Division of files:
#		readme				Delta description of this driver compared to others
#		release_notes		Developmental revision history and current issues
#		makefile			Compilation and linking script
#		equates.h			Header file with equates and direct page definitions
#		entry.a				Entry vectors, environment setup/restore, routine dispatch
#		printloop.a			High level print model interface
#		patchprocs.a		Patches for toolbox calls and quickdraw bottleprocs
#		metrics.a			Print record access and	printer dimension calculations
#		dialog.a			Dialog box and other user-interface implementation
#		dialogdata.a  		Dialog box layout and text
#		spool.a				Psuedo-virtual memory for PICT page definition
#		imager.a			Converting pixel map to escape codes for printer
#		communications.a	Serial interface to stripped-StyleWriter-serial-hardware



NAM =	StyleWriter
EQU =	equates.h
OBJ =	:obj:entry.o ¶
		:obj:printloop.o ¶
		:obj:patchprocs.o ¶
		:obj:metrics.o ¶
		:obj:dialog.o ¶
		:obj:dialogdata.o ¶
		:obj:spool.o ¶
		:obj:imager.o ¶
		:obj:communications.o
PRN =	print -r -h -hs 12 -hf times -md -f courier -s 9



{NAM} Ä {OBJ}
		delete -i {NAM}
		linkiigs -t $BB -at $0001 {OBJ} -o {NAM}


	
DEBUG Ä {OBJ}
		delete -i {NAM}
		linkiigs -t $BB -at $0001 {OBJ} -o {NAM}
		files -n -x b {NAM}
		beep 2a,4,255
		duplicateiigs -m -y {NAM} :


	
PRINT Ä
		{PRN} communications.a
		{PRN} imager.a
		{PRN} spool.a
		{PRN} dialogdata.a
		{PRN} dialog.a
		{PRN} metrics.a
		{PRN} patchprocs.a
		{PRN} printloop.a
		{PRN} entry.a
		{PRN} equates.h
		{PRN} makefile
		{PRN} readme
		{PRN} release_notes
		files -l | {PRN}



CLEAN Ä
		delete -i {OBJ}



:obj:entry.o Ä {EQU} entry.a
		asmiigs	entry.a -o :obj:entry.o

:obj:printloop.o Ä {EQU} printloop.a
		asmiigs	printloop.a -o :obj:printloop.o

:obj:patchprocs.o Ä {EQU} patchprocs.a
		asmiigs	patchprocs.a -o :obj:patchprocs.o

:obj:metrics.o Ä {EQU} metrics.a
		asmiigs	metrics.a -o :obj:metrics.o

:obj:dialog.o Ä {EQU} dialog.a
		asmiigs	dialog.a -o :obj:dialog.o

:obj:dialogdata.o Ä {EQU} dialogdata.a
		asmiigs dialogdata.a -o :obj:dialogdata.o

:obj:spool.o Ä {EQU} spool.a
		asmiigs	spool.a -o :obj:spool.o

:obj:imager.o Ä {EQU} imager.a
		asmiigs	imager.a -o :obj:imager.o

:obj:communications.o Ä {EQU} communications.a
		asmiigs	communications.a -o :obj:communications.o


\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/TABASCO/metrics.a b/IIGS.601.SRC/GSToolbox/PrinterDrivers/TABASCO/metrics.a
new file mode 100644
index 0000000..275d296
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/TABASCO/metrics.a
@@ -0,0 +1 @@
+
******************************************************************************************
*                                                                                        *
*		Apple IIgs Printer Driver                                                        *
*                                                                                        *
*		File: metrics.a -- Exclusive print record access and dimension calculations      *
*                                                                                        *
*		Written by Ben Koning                                                            *
*		Copyright (C) 1991 Apple Computer, Inc.                                          *
*                                                                                        *
******************************************************************************************







							include		'equates.h'



							include		'm16.util'
							include		'e16.print'
							include		'm16.intmath'
							include		'e16.quickdraw'
							include		'm16.quickdraw'



MetricsProc					proc		export






*
*METRICS (PAGE MEASUREMENT) MODEL AND IMPLEMENTATION:
*
*All information related to page size, print quality, etc., options is stored in a data
*structure called the Print Record, the memory for which is the application's responsibility
*(a print record should be maintained with each document enacted on by an application so that
*page setup information stays with a letter, drawing, etc.), and the contents of which are
*the responsibility of the currently selected printer driver.
*
*The routines in this module seek to isolate the rest of this printer driver from the specifics
*of the contents of the user's print record.  They also arbitrate between the realms of page
*measurements in inches and rectangle sizes in pixels.
*
*There are a set of GetXXX and SetXXX routines below, which must be called rather than
*modifying the print record directly.  Before a SetXXX completes, it causes a calculation
*routine to be called which ensures that the print record stays self-consistent.
*
*The calculation routine uses the paper type and selected sizing options to find values for
*several rectangles, used by applications as well as the rest of this driver, and stores them.
*
*From the paper type, its paper dimensions are looked up from a table.  This information is
*stored in the rPaper rectangle.  Thus dimensions could be different for Letter, Legal,
*Envelope, etc.  The vertical dimension is used, for example, to set the page length so that
*form feed works correctly.  rPaper is given in pixels.
*
*Margins are subtracted from the rPaper rectangle to create the rPage rectangle, the actual
*printable area inside a sheet of paper.  The first point of rPage is made the origin, so
*that the first point of rPaper is negative.  rPage is given in pixels.
*
*Note that the sizing settings (Vertical Condense, Reduction, Page Gap) actually increase the
*effective printing area.  They are not just effects settings which would affect only the
*outcome of the printing.  In other words, selecting 50%-size means that the application can
*give the user more drawing space, for example.  Also, Landscape means that the paper is still
*inserted normally into the printer; just that the X & Y dimensions that the application sees
*are reversed.  In other words, selecting Landscape means that a drawing application's rulers
*show 11" left to right and 8" top to bottom for 8x11" paper.
*
*The metrics calculations usually proceed as follows:
*
*		Get resolution in pixels/inch from equates based on port/land orientation setting
* 		If vertical condense, double y resolution
* 		If reduction, multiply x,y resolutions accordingly
* 		If 320 mode, half x resolution
* 		Divide x,y resolutions by 2 to convert from Imaging resolution to rPage res (see below)
* 		Get paper_x, paper_y, paper_gap size in inches from table based on paper type setting
* 		Multiply dimensions by resolutions to convert dimensions to pixels
* 		rPaper gets physical page dimensions with rPage first point as origin
* 		rPage gets page dimensions minus a border based horizontally on equates and vertically
* 			on the paper_gap and the page gap setting
* 		Landscape orientation causes rPaper and rPage to have x & y exchanged
*
*For this particular printer driver, reduction and landscape modes are not supported.
*
*In addition to providing the application with information about the printable area, the rPage
*rectangle is used as the source rectangle during picture recording (QDAux's OpenPicture,
*ClosePicture, DrawPicture, etc).  When DrawPicture is called, the playback rectangle may be
*the same size or may be bigger to allow for higher quality printing (the GetImagingSize routine
*returns the playback size based on rPage and the quality setting).
*
*Two pixel-level units are defined for internal use: "rPage" units and "Imaging" units.  RPage
*dimensions change with respect to the option settings which increase printable area real estate,
*as described above, but remain constant with respect to the Standard or Better quality mode
*setting.  Imaging units, on the other hand, are equal to rPage units with a scaling factor
*applied to facilitate higher resolution when printing at denser dot pitches.  For example, if
*rPage.X2 is "100" and the quality is "standard", then ImagingSize.X2 would be "100".  But if
*rPage.X2 is "100" and the quality is "better", then ImagingSize.X2 could be "200".  Several
*"ConvertRPageToImgSize" routines are provided as the exclusive converters between these two units.
*Thus, in summary: rPage is the amount of pixels that the application sees for the positioning
*of QD objects, while the Imaging size is the amount of pixels that the driver has to deal with
*when playing back the picture containing these objects, thus obtaining high resolution on the
*printed paper since there "are more dots" in QD objects, causing smoother contours.
*







*
*STARTPRH: Call to use print record from handle; sets up ParamLongA with pointer:
*
StartPRH					ldy			#4						;lock handle
							lda			[printRecordHandle],y
							ora			#$8000
							sta			[printRecordHandle],y
							lda			[printRecordHandle]		;deref to get ptr in ParamLongA
							sta			ParamLongA+0
							ldy			#2
							lda			[printRecordHandle],y
							sta			ParamLongA+2
							rts



*
*FINISHPRH: Call this when done working with print record handle:
*
FinishPRH					ldy			#4
							lda			[printRecordHandle],y
							and			#$7FFF
							sta			[printRecordHandle],y
							rts
	
	
	
*
*INITPRINTRECORD: Fills user's print record with default values, for both ex- and internal use.
*On entry, printRecordHandle must be set.
*
							export		InitPrintRecord
InitPrintRecord				
							jsr			SetMiscAdv				;setup miscellaneous and advanced
*
							lda			#paperTypeUsaLetter		;standard paper size
							sta			OptionA
							jsr			SetPaper
*
							lda			#1						;high print quality
							sta			OptionA
							jsr			SetQuality
*
							stz			OptionA					;normal (tall) vertical size
							jsr			SetVSize
*
							lda			#1						;print all pages
							sta			OptionA
							lda			#32767
							sta			OptionB
							jsr			SetPageRange
*
							lda			#1						;automatic sheet feed
							sta			OptionA
							jsr			SetFeed
*
							lda			#1						;one copy
							sta			OptionA
							brl			SetCopies
							



*
*OPTION SETTING ROUTINES: These modify the user's print record in DP variable "printRecord". They
*are called as a result of default, validate, style, or job calls.  They leave the print record in
*an uncorrupted state.  Unlike the old driver, we rely only on the offsets provided in the include
*file, for future portability.  The parameter to be set is passed in the DP variables "OptionA" and
*"OptionB".  For boolean values (such as portrait/landscape, etc), 0 means the default option:
*
*NOTE: These routines should be the only entities within this driver to modify the print record.
*An internal coding, which makes sense by using 0 for default values, etc., is used to refer to
*values of print record settings, and backward compatiblity may demand that certain values be stored
*in a reverse or bizarre sense in the print record.  It is the purpose of these Get/Set routines
*to perform any such translation.
*

*SETMISCADV: Initializes miscellaneous and advanced option switches and normally-nil fields:
							export		SetMiscAdv
SetMiscAdv
							jsr			StartPRH
							ldy			#oprVersion					;Version ID
							lda			#VersionID
							sta			[ParamLongA],y
*
							ldy			#oprInfo+oiDev				;Device ID
							lda			#DeviceID					;(1=IW 2=LQ 3=LW 4=Epson etc)
							sta			[ParamLongA],y
*
							lda			#0							;0,0 first coords of rPage
							ldy			#oprInfo+orPage+oh1
							sta			[ParamLongA],y
							ldy			#oprInfo+orPage+ov1
							sta			[ParamLongA],y
*
							ldy			#oprStl+owDev				;set wDev to 0's + defaults
							lda			#wDevGap+wDevReduction+wDevVSize+wDevOrientation
							sta			[ParamLongA],y
*
							shortm
							ldy			#oprJob+obJDocLoop
							lda			#$00						;Set byte for immediate method
							sta			[ParamLongA],y
*
							ldy			#oprJob+ofFromUser
							lda			#$01						;Set the from-user field byte
							sta			[ParamLongA],y
							longm
*
							ldy			#owResScaling				;Setup the blow-up amount value
							lda			#5
							sta			[ParamLongA],y
*
							lda			#0
*
							ldy			#oprJob+opIdleProc
							sta			[ParamLongA],y				;Default NIL idleproc
							iny
							iny
							sta			[ParamLongA],y
*
							brl			CalcAndFinishPRH

*SETQUALITY: Sets print loop method and imaging size determinant (0/1==180/360dpi):
							export		SetQuality
SetQuality					jsr			StartPRH
							lda			OptionA
							ldy			#owQuality			;put code in new quality word
							sta			[ParamLongA],y
							ldy			#oprStl+owDev		;now ensure wDev Better bit set right
							lda			[ParamLongA],y
							and			#ÅwDevBetter
							sta			[ParamLongA],y
							ldx			OptionA
							cpx			#1
							bne			SeQuSetBJD
							lda			[ParamLongA],y
							ora			#wDevBetter
							sta			[ParamLongA],y
SeQuSetBJD					lda			#$00				;ensure bJDocLoop set to 0 because this
							ldy			#oprJob+obJDocLoop	;printer driver works in immediate-mode
							shortm
							sta			[ParamLongA],y
							longm
							brl			CalcAndFinishPRH

*SETPAPER: Sets the paper type, used for calculating printable area dimensions:
							export		SetPaper
SetPaper					jsr 		StartPRH
							ldy			#oprStl+opaperType
							lda			OptionA
							sta			[ParamLongA],y
							brl			CalcAndFinishPRH

*SETVSIZE: Sets vertical sizing, normal or 50% ("condensed") for correct font aspect ratio:
							export		SetVSize
SetVSize					jsr			StartPRH
							ldy			#oprStl+owDev
							lda			[ParamLongA],y
							ldx			OptionA
							bne			@ClearIt					;reverse sense!
							ora			#wDevVSize
							bra			@StoreIt
@ClearIt					and			#ÅwDevVSize
@StoreIt					sta			[ParamLongA],y
							brl			CalcAndFinishPRH

*SETFEED: Sets automatic/manual page feed if passed 1/0:
							export		SetFeed
SetFeed						jsr			StartPRH
							ldy			#oprStl+ofeed
							lda			OptionA
							sta			[ParamLongA],y
							brl			CalcAndFinishPRH

*SETPAGERANGE: Sets range of pages to be processed (others are ignored and not recorded):							
							export		SetPageRange				;OptionA/B = first/last 1..x
SetPageRange				jsr			StartPRH
							ldy			#oprJob+oiFstPage
							lda			OptionA
							sta			[ParamLongA],y
							ldy			#oprJob+oiLstPage
							lda			OptionB
							sta			[ParamLongA],y
							brl			CalcAndFinishPRH

*SETCOPIES: Sets number of copies to produce for each page:							
							export		SetCopies					;OptionA = # copies 1..x
SetCopies					jsr			StartPRH
							ldy			#oprJob+oiCopies
							lda			OptionA
							sta			[ParamLongA],y
							brl			CalcAndFinishPRH

*Common exit sequence:							
CalcAndFinishPRH			jsr			CalcMetrics
							brl			FinishPRH





*
*INFORMATION INQUIRY ROUTINES: These routines return (possibly processed) info about pr rec items:
*NOTE: These routines return data in EITHER accumulator OR zero flag status OR X/Y registers.
*NOTE: These routines return 0 for the common default settings; may be inverse of wDev.
*

*GETOKOURDRIVER: Sets zero flag (BEQ test) if DeviceID AND VersionID came from our driver:
							export		GetOkOurDriver
GetOkOurDriver				jsr			StartPRH					;get and lock handle
							ldy			#oprInfo+oiDev				;DeviceID offset
							lda			[ParamLongA],y				;get it
							cmp			#DeviceID					;zero flag set/clr if yes/no ours
							bne			InqExitZFlag				;nope, was different printer
							ldy			#oprVersion					;VersionID offset
							lda			[ParamLongA],y				;get it
							cmp			#VersionID					;zero flag set/clr if yes/no ours
InqExitZFlag				php										;zero flag set on exit
							jsr			FinishPRH					;unlock handle
							plp										;zero flag valid again
							rts										;exit
							
*GETPAPER: Returns the paper type in A:
							export		GetPaper
GetPaper					jsr			StartPRH
							ldy			#oprStl+opaperType
							lda			[ParamLongA],y
InqExitACC					pha
							jsr			FinishPRH
							pla
							rts
							
*GETQUALITY: Gets quality mode in A (0=180dpi, 1=360dpi):
							export		GetQuality
GetQuality					jsr			StartPRH					;lock and dereference
							ldy			#oprStl+owDev				;look at wDev.Better bit
							lda			[ParamLongA],y
							and			#wDevBetter
							bne			GeQuForceTo1				;if wDev.Better=1 -> set to 1
GeQuForceTo0				lda			#0							;here if wDev.Better=0
							ldy			#owQuality					;if wDev.Better=0 -> set to 0
							sta			[ParamLongA],y
							bra			GeQuGetQuality
GeQuForceTo1				lda			#1
							ldy			#owQuality
							sta			[ParamLongA],y
GeQuGetQuality				ldy			#owQuality					;now get info from new place
							lda			[ParamLongA],y
							brl			InqExitACC					;unlock and exit with ACC set
							
*GETVSIZE: Gets vertical sizing normal/condensed, 0/1 respectively, in A:
							export		GetVSize
GetVSize					jsr			StartPRH
							ldy			#oprStl+owDev
							lda			[ParamLongA],y
							and			#wDevVSize
							eor			#wDevVSize					;reverse sense of wDev bit!
							beq			GetVSizeDone
							lda			#1
GetVSizeDone				brl			InqExitACC
							
*GETFEED: Gets manual page feed option in zero flag (BEQ if manual page feed):
							export		GetFeed
GetFeed						jsr			StartPRH
							ldy			#oprStl+oFeed
							lda			[ParamLongA],y
							brl			InqExitZFlag
							
*GETPAGERANGE: Gets page range (First Page -> X; Last Page -> Y):
							export		GetPageRange
GetPageRange				jsr			StartPRH
							ldy			#oprJob+oiFstPage
							lda			[ParamLongA],y
							pha
							ldy			#oprJob+oiLstPage
							lda			[ParamLongA],y
							pha
							jsr			FinishPRH
							ply
							plx
							rts

*GETCOPIES: Gets number of copies to be printed in A:
							export		GetCopies
GetCopies					jsr			StartPRH
							ldy			#oprJob+oiCopies
							lda			[ParamLongA],y
							brl			InqExitACC
							
*GETIDLEPROC: Gets optional user-select IdleProc called during imaging (lo->X, hi->Y, carry):
							export		GetIdleProc
GetIdleProc					jsr			StartPRH
							ldy			#oprJob+opIdleProc
InqExitWithYpXYPtrData		lda			[ParamLongA],y				;exit with pointer given in
							pha										;print record field at offset
							iny										;in y in lo->x, hi->y, and
							iny										;set carry if non-nil...
							lda			[ParamLongA],y
							pha
							jsr			FinishPRH
							ply
							plx
							stx			ParamLongA
							tya
							ora			ParamLongA
							cmp			#1
							rts
							
*GETRPAGESIZE: Gets bottom right coordinates of last calculated rPage field in pixels (->X,Y):
							export		GetRPageSize
GetRPageSize				jsr			StartPRH					;access print record fields
							ldy			#oprInfo+orPage+oh2
							lda			[ParamLongA],y
							pha
							ldy			#oprInfo+orPage+ov2
							lda			[ParamLongA],y
							pha
							jsr			FinishPRH
							ply										;return Y size in Y
							plx										;return X size in X
							rts

*GETIMAGINGSIZE: Gets bottom right coordinates of how big the offscrn pix buff should be (->X,Y):
							export		GetImagingSize
GetImagingSize				jsr			StartPRH					;lock print rec struct & deref
							ldy			#oprInfo+orPage+oh2			;access X page size in scrn pix
							lda			[ParamLongA],y				;convert to pr pix and push
							jsr			ConvertRPageToImgSizeX
							pha
							ldy			#oprInfo+orPage+ov2			;access Y page size in scrn pix
							lda			[ParamLongA],y				;convert to pr pix and push
							jsr			ConvertRPageToImgSizeY
							pha
							jsr			FinishPRH					;release print record
							ply										;return magnified Y size in Y
							plx										;return magnified X size in X
							rts

*GETMODEBYTE: Gets 320/640 mode byte at the time of print record formation in A:
							export		GetModeByte
GetModeByte					jsr			StartPRH
							ldy			#oprStl+ointernA
							lda			[ParamLongA],y
							brl			InqExitACC

*GETISFEATUREERROR: Returns 0 if ok, 1 if unsupported features set in print record, in A:
							export		GetIsFeatureError
GetIsFeatureError			jsr			StartPRH
							ldy			#oprStl+owDev
							lda			[ParamLongA],y				;get wDev bits
							and			#wDevUSFmask				;mask out the ones not supported
							cmp			#wDevUSFshould				;check w/ our settings for these
							beq			GeFeIsGood
GeFeIsBad					lda			#1
							brl			InqExitACC
GeFeIsGood					lda			#0
							brl			InqExitACC

*GETLINELAYOUTDISABLE: Gets if line layout is enabled/disabled, 0/1 respectively, in A:
							export		GetLineLayoutDisable
GetLineLayoutDisable		jsr			StartPRH
							ldy			#oprStl+owDev
							lda			[ParamLongA],y
							and			#wDevNoLineLayout
							beq			GeLdDone
							lda			#1
GeLdDone					brl			InqExitACC

*GETSTATMESGDISABLE: Gets if status message box is enabled/disabled, 0/1 respectively, in A:
							export		GetStatMesgDisable
GetStatMesgDisable			jsr			StartPRH
							ldy			#oprStl+owDev
							lda			[ParamLongA],y
							and			#wDevNoStatusBox
							beq			GeMdDone
							lda			#1
GeMdDone					brl			InqExitACC

*GETFORCETXMDISABLE: Gets if forcing text mode to OR to avoid clip is enabled/disabled, 0/1, in A:
							export		GetForceTxMDisable
GetForceTxMDisable			jsr			StartPRH
							ldy			#oprStl+owDev
							lda			[ParamLongA],y
							and			#wDevNoForceTextMode
							beq			GeTdDone
							lda			#1
GeTdDone					brl			InqExitACC

*GET640PIXMAPDISABLE: Gets if special 640 pixelmap handling is enabled/disabled, 0/1, in A:
							export		Get640PixMapDisable
Get640PixMapDisable			jsr			StartPRH
							ldy			#oprStl+owDev
							lda			[ParamLongA],y
							and			#wDevNo640PixMap
							beq			GePmDone
							lda			#1
GePmDone					brl			InqExitACC







*
*METRICS UNITS CONVERSION ROUTINES: These private internal routines convert between application-
*level ("rPage") and imaging-level ("Imaging") (which are possibly magnified) coordinate units.
*These routines should be the exclusive converters betwen these units.  They assume that a valid
*print record handle exists and that StartPRH has been called already, so that ParamLongA contains
*a pointer to the temporarily-locked print record.  Input and output is passed and returned in A.
*



*
*CONVERTRPAGETOIMGSIZEX: Horizontal rPage->Img [pict.source(small)->pict.dest(big)]: In/Out -> A:
*
ConvertRPageToImgSizeX		sta			CoRpCoordValue				;save input given in A

							ldy			#oprStl+owDev				;look at wDev.Better bit
							lda			[ParamLongA],y				;pr rec hdl must be dereferenced
							and			#wDevBetter					;now have quality setting; put
							tax										;in X: 0=180dpi, nonzero=360dpi
							
							lda			CoRpCoordValue				;save original value in A
							asl			CoRpCoordValue				;now it's *2 in place
							asl			CoRpCoordValue				;now it's *4 in place
							asl			CoRpCoordValue				;now it's *8 in place
							clc										;add orginal in A to in-place-
							adc			CoRpCoordValue				;value to get *9 in A
							lsr a									;/2 to get *4.5 in A
							sta			CoRpCoordValue				;store to get *4.5 in place
							txa										;restore quality setting in A
							bne			CoRpXIts4p5x				;0=2.25x(180dpi),>0=4.5x(360dpi)
CoRpXIts2p25x				lsr			CoRpCoordValue				;do /2 to get *2.25 in place
CoRpXIts4p5x
							lda			CoRpCoordValue				;get result in A and exit
							rts



*
*Common static working storage for both routines:
*
CoRpCoordValue				dc.w		0



*
*CONVERTRPAGETOIMGSIZEY: Vertical rPage->Img [pict.source(small)->pict.dest(big)]: In/Out -> A:
*
ConvertRPageToImgSizeY		sta			CoRpCoordValue				;save input given in A

							ldy			#oprStl+owDev				;look at wDev.Better bit
							lda			[ParamLongA],y				;pr rec hdl must be dereferenced
							and			#wDevBetter					;now have quality setting; put
							tax										;in X: 0=180dpi, nonzero=360dpi
							
							lda			CoRpCoordValue				;save original value in A
							asl			CoRpCoordValue				;now it's *2 in place
							asl			CoRpCoordValue				;now it's *4 in place
							clc										;add orginal in A to in-place-
							adc			CoRpCoordValue				;value to get *5 in A
							sta			CoRpCoordValue				;store to get *5 in place
							txa										;restore quality setting in A
							bne			CoRpYIts5x					;0=2.5x(180dpi),>0=5x(360dpi)
CoRpYIts2p5x				lsr			CoRpCoordValue				;do /2 to get *2.5 in place
CoRpYIts5x
							lda			CoRpCoordValue				;get result in A and exit
							rts







*
*CALCMETRICS: This routine sets iH/Vres, crWidth, rPage and rPaper in print record based
*on the option bit and page type settings in the print record.  This routine must be called
*after any print record modification to assure self-consistency.
*
*NOTE: This is the only routine other than the Get/Set routines which may access the print record
*directly, and thus is subject to backward print record flag compatibility issues.
*
							export		CalcMetrics

*Lock and dereference the user's print record:
CalcMetrics					jsr			StartPRH					;lock/deref

*Save wDev field for repeated use:
							ldy			#oprStl+owDev				;get & save wDev for use...
							lda			[ParamLongA],y
							pha
							
*Start with addressable resolution; new equates assume 1X/V.Condensed/640:
							ldx			#appResPortraitX			;assume portrait orientation
							ldy			#appResPortraitYnoVC		;P: default not V.Condensed
							stx			ParamWordA					;pwA & pwB will build iH/VRes
							sty			ParamWordB
							
*Double Y resolution if Vertical Condense mode is on (increases printable area):
							pla										;get wDev...
							pha
							and			#wDevVSize
							bne			CalcMetricsNotCondensed
							asl			ParamWordB					;double Y resolution if VC
CalcMetricsNotCondensed

*1/2 X res if 320 mode.  Also, store mode bit in "internA" for future band buff alloc calc:
							pha
							_GetMasterSCB
							pla
							and			#$80
							ldy			#oprStl+ointernA
							sta			[ParamLongA],y				;320/640 mode -> oprStl.internA
							cmp			#$80
							beq			CalcMetricsNot320			;branch if 640 mode active
							lsr			ParamWordA					;half X resolution if 320 mode
CalcMetricsNot320

*We now have effective iHres and iVres that will be produced by imager in printer-pixels per inch:
							ldy			#oprInfo+oiHres
							lda			ParamWordA
							sta			[ParamLongA],y
							ldy			#oprInfo+oiVres
							lda			ParamWordB
							sta			[ParamLongA],y

*Now that we have iH&Vres, we will calculate rPage&rPaper&crWidth in inch*16 based on paper type:
*Get dimensions of current paper type:
							ldy			#oprStl+opaperType
							lda			[ParamLongA],y				;get paper type ID
							cmp			#maxPaperTypeID+1			;make sure it's in range
							bcc			CalcMetricsPtOk
							lda			#0							;else assume and set type 0
							sta			[ParamLongA],y
CalcMetricsPtOk				asl	a									;paper type * 6
							asl a
							clc
							adc			[ParamLongA],y
							clc
							adc			[ParamLongA],y
							tax										;index into paper dimension table
							lda			CalcMetricsPtTbl+0,x		;get X dimension in 1/16th inches
							sta			ParamWordC					;paper X size in ParamWordC
							lda			CalcMetricsPtTbl+2,x		;get Y dimension
							sta			ParamWordD					;paper Y size in ParamWordD
							lda			CalcMetricsPtTbl+4,x		;get -GAP value
							sta			ParamWordE					;paper -GAP size in ParamWordE

*If current paper type doesn't allow use of cut-sheet feeder, force manual-feed mode:
							ldy			#oprStl+opaperType
							lda			[ParamLongA],y				;get paper type ID
							cmp			#paperTypeEurB5				;if B5 or Envelope,
							beq			CalcMetricsSetForceManFd	;force manual feed
							cmp			#paperTypeEnvNo10
							bne			CalcMetricsDoneForceManFd
CalcMetricsSetForceManFd	ldy			#oprStl+ofeed
							lda			#0
							sta			[ParamLongA],y
CalcMetricsDoneForceManFd

*If Gap option is turned off, zero our looked-up page -1*GAP value (~GAP increases printable area):
							pla										;get wDev...
							pha
							and			#wDevGap
							bne			CalcMetricsYesGap			;branch if we DO have vert gap
							stz			ParamWordE					;else, no gap: zero gap value
CalcMetricsYesGap

*Set external historical version of crWidth abs right margin, not used in this driver:
							lda			#prRecCrWidth				;store the constant crWidth
							ldy			#oprStl+ocrWidth			;value which apps have come to
							sta			[ParamLongA],y				;expect in the print record
							
*rPaper.X1 = 0 - printLineMargin (black mark on bail) (rPage.X1.Y1=0,0 is origin) (assuming Portrt):
							lda			#((ÅprintLineMargin)+1)		;-1*printLineMargin always
							ldy			#orPaper+oh1				;store it
							sta			[ParamLongA],y
							
*rPaper.X2 = rPaper.X1 + paper_size.X (rPage.X1.Y1=0,0 is origin) (assuming Portrait):
							clc										;X1 still in acc
							adc			ParamWordC					;add X size of paper type
							ldy			#orPaper+oh2				;store it
							sta			[ParamLongA],y
							
*rPaper.Y1 = 0 - GAP (rPage.X1.Y1=0,0 is origin) (assuming Portrait):
							lda			ParamWordE					;get -1*GAP for current paper
							ldy			#orPaper+ov1				;store it
							sta			[ParamLongA],y
							
*rPaper.Y2 = rPaper.Y1 + paper_size.Y (rPage.X1.Y1=0,0 is origin) (assuming Portrait):
							clc										;Y1 still in acc
							adc			ParamWordD					;add Y size of paper type
							ldy			#orPaper+ov2				;store it
							sta			[ParamLongA],y
							
*rPage.X1 and rPage.Y1 are both zero and are the origin for all other rPage/rPaper coordinates:
							lda			#0
							ldy			#oprInfo+orPage+oh1
							sta			[ParamLongA],y
							ldy			#oprInfo+orPage+ov1
							sta			[ParamLongA],y
							
*rPage.X2 = paper_size.X - 2*printLineMargin (black mark on bail) (assuming Portrait):
							lda			ParamWordC					;get X size of paper type
							sec										;subtract for left&right border
							sbc			#2*printLineMargin
							ldy			#oprInfo+orPage+oh2			;store it
							sta			[ParamLongA],y
							
*rPage.Y2 = paper_size.Y - 2*GAP value (assuming Portrait):
							lda			ParamWordE					;get gap value (-1*GAP or 0)
							clc
							adc			ParamWordE					;now it's -2*GAP
							clc										;add Y size of paper type; now...
							adc			ParamWordD					;...we've done paperY-2*GAP
							ldy			#oprInfo+orPage+ov2			;store it
							sta			[ParamLongA],y
							
*Right now, rPage/rPaper are in values of inch*16. Now convert all of these to the printing pixels
*that the application sees by signed multiply by our internal iHres/iVres and signed divide by 16:
							ldy			#orPaper+oh1				;get value just computed above...
							lda			[ParamLongA],y				;in a-reg. This is negative!
							eor			#$FFFF						;negate it...
							clc										;...so the unsigned convert...
							adc			#1							;...will work correctly
							ldx			ParamWordA					;get resolution A)iHres B)iVres
							jsr			CalcMetricsConvert			;convert rPaper X1
							eor			#$FFFF						;negate it...
							clc										;...again...
							adc			#1							;...back to negative
							ldy			#orPaper+oh1				;store value just converted...
							sta			[ParamLongA],y				;back into print record
*							
							ldy			#orPaper+ov1
							lda			[ParamLongA],y
							eor			#$FFFF						;negate -> positive
							clc
							adc			#1
							ldx			ParamWordB
							jsr			CalcMetricsConvert			;convert rPaper Y1
							eor			#$FFFF						;negate -> negative
							clc
							adc			#1
							ldy			#orPaper+ov1
							sta			[ParamLongA],y
*							
							ldy			#orPaper+oh2				;all others are all positive...
							lda			[ParamLongA],y
							ldx			ParamWordA
							jsr			CalcMetricsConvert			;convert rPaper X2
							ldy			#orPaper+oh2
							sta			[ParamLongA],y
*							
							ldy			#orPaper+ov2
							lda			[ParamLongA],y
							ldx			ParamWordB
							jsr			CalcMetricsConvert			;convert rPaper Y2
							ldy			#orPaper+ov2
							sta			[ParamLongA],y
*							
							ldy			#oprInfo+orPage+oh2
							lda			[ParamLongA],y
							ldx			ParamWordA
							jsr			CalcMetricsConvert			;convert rPage X2
							ldy			#oprInfo+orPage+oh2
							sta			[ParamLongA],y
*							
							ldy			#oprInfo+orPage+ov2
							lda			[ParamLongA],y
							ldx			ParamWordB
							jsr			CalcMetricsConvert			;convert rPage Y2
							ldy			#oprInfo+orPage+ov2
							sta			[ParamLongA],y
							
*Copy the PrInfo subrecord to PrInfoPT for compatibility reasons:
							ldy			#oprInfo+12					;source: prInfo offset
							ldx			#oprInfoPT+12				;destination: prInfoPT offset
CaMeCopyPrInfoLp			lda			[ParamLongA],y				;length: 14 bytes
							phy
							txy
							sta			[ParamLongA],y
							ply
							dex
							dex
							dey
							dey
							cpy			#oprInfo
							bcs			CaMeCopyPrInfoLp
*Exit:
							pla										;get rid of wDev on stack
							brl			FinishPRH					;return via lock routine





*
*The following subroutine does AREG := (AREG*XREG)/16 with unsigned math to cvt inches -> pixels:
*
CalcMetricsConvert			pha										;result space for multiply
							pha										;result space for multiply
							pha										;A REG: value to be converted
							phx										;X REG: resolution iHres/iVres
							_Multiply
							pulllong	ParamLongB					;get hi and lo words
							lsr			ParamLongB+2				;divide by 2 hi word
							ror			ParamLongB+0				;divide by 2 lo word	=/2
							lsr			ParamLongB+2				;divide by 2 hi word
							ror			ParamLongB+0				;divide by 2 lo word	=/4
							lsr			ParamLongB+2				;divide by 2 hi word
							ror			ParamLongB+0				;divide by 2 lo word	=/8
							lsr			ParamLongB+2				;divide by 2 hi word
							ror			ParamLongB+0				;divide by 2 lo word	=/16
							lda			ParamLongB+0				;get lo word only in ACC
							rts										;we're done




							
*
*Lookup table containing physical dimensions (in inch * 16) of different types of paper:
*
CalcMetricsPtTbl			dc.w		paperSizeUsaLetterX			;indexed if paper type == 0
							dc.w		paperSizeUsaLetterY			;type 0 must be US Letter
							dc.w		-1*paperSizeUsaLetterGap

							dc.w		paperSizeUsaLegalX			;indexed if paper type == 1
							dc.w		paperSizeUsaLegalY			;type 1 must be US Legal
							dc.w		-1*paperSizeUsaLegalGap
							
							dc.w		paperSizeEurA4X				;indexed if paper type == 2
							dc.w		paperSizeEurA4Y				;type 2 must be A4 Letter
							dc.w		-1*paperSizeEurA4Gap
							
							dc.w		paperSizeEurB5X				;indexed if paper type == 3
							dc.w		paperSizeEurB5Y
							dc.w		-1*paperSizeEurB5Gap
							
							dc.w		paperSizeEnvNo10X			;indexed if paper type == 4
							dc.w		paperSizeEnvNo10Y
							dc.w		-1*paperSizeEnvNo10Gap







							endproc
							end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/TABASCO/patchprocs.a b/IIGS.601.SRC/GSToolbox/PrinterDrivers/TABASCO/patchprocs.a
new file mode 100644
index 0000000..2c4ef1d
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/TABASCO/patchprocs.a
@@ -0,0 +1 @@
+
******************************************************************************************
*                                                                                        *
*		Apple IIgs Printer Driver                                                        *
*                                                                                        *
*		File: patchprocs.a -- Patches/bottleprocs to enhance rendering performance       *
*                                                                                        *
*		Written by Ben Koning                                                            *
*		Copyright (C) 1991 Apple Computer, Inc.                                          *
*                                                                                        *
******************************************************************************************







							include		'equates.h'



							include		'm16.util'
							include		'e16.quickdraw'
							include		'm16.quickdraw'
							include		'm16.qdaux'
							include		'm16.font'
							include		'm16.intmath'
							include		'm16.memory'



PatchProcsProc				proc		export







*
*BOTTLEPROC AND TOOL PATCH ROUTINES:
*
*The routines in this module are typically called from within toolbox calls, especially
*DrawPicture.  These routines enchance the speed and functionality of the DrawPicture
*rendering process.
*







*
*PUTPICT/GETPICT: QD bottleprocs for spooling, called during DrawPicture:
*
*These routines are patches to replace the standard StdPutPic and StdGetPic bottleprocs.  They
*set up the limited "DPSizeParamOnly" stack frame and then call our psuedo-virtual memory
*spooling routines.  This ensures that quickdraw's PICT handling routines (OpenPicture/Close-
*Picture/DrawPicture/KillPicture) will almost always have enough memory.
*
*PUTPICT: Called by quickdraw as "void PutPict (long ptr,word count)"; error->carry,A:
*GETPICT: Called by quickdraw as "void GetPict (long ptr,word count)"; error->carry,A:
*



*PUTPICT: Called with request to save an arbitrary number of bytes for PICT recording:
							export		PutPict
PutPict
							
*Save previous environment and set up our own:
							phb									;save bank register on stack
							phd									;save direct page register on stack
							phk									;B=K so we can use abs addressing...
							plb
							tsc									;allocate space on stack for...
							sec									;our direct page...
							sbc			#DPSizeParamOnly
							tcs
							ina
							tcd									;set D so we can use dp addressing
PtStackParam				equ			1+3+1+2+DPSizeParamOnly	;1 + RTL + B + D + StackFrame
							lda			PtStackParam+0,s		;count word -> ParamLongB...
							sta			ParamLongB+0
							stz			ParamLongB+2
							lda			PtStackParam+2,s		;ptr long -> ParamLongC...
							sta			ParamLongC+0
							lda			PtStackParam+4,s
							sta			ParamLongC+2
							
*Done saving environment; now do the work:
							import		SpoolPut				;go spool the given chunk of bytes
							jsr			SpoolPut				;leave 0 or error code in A
							
							
							
*Common code to restore previous environment and exit with status currently in A in A/carry:
PtGtExitStatusInA			tax									;save error code for a moment
							tsc									;deallocate stack frame...
							clc
							adc			#DPSizeParamOnly
							tcs
							pld									;restore direct reg off stack
							plb									;restore bank reg off stack
							lda			0,s						;move the RTL up, cleaning the...
							sta			6,s						;six input param bytes off...
							lda			2,s
							sta			8,s
							tsc									;now add 6 to S to move it up...
							clc									;can't do above since B/D on stack
							adc			#6
							tcs
							txa									;get error in ACC/Carry
							cmp			#1
							rtl									;exit back to caller in QD
							
							
							
*GETPICT: Called with request to retrieve an arbitrary number of bytes for PICT playback:
							export		GetPict
GetPict
							
*Save previous environment and set up our own:
							phb									;save bank register on stack
							phd									;save direct page register on stack
							phk									;B=K so we can use abs addressing...
							plb
							tsc									;allocate space on stack for...
							sec									;our direct page...
							sbc			#DPSizeParamOnly
							tcs
							ina
							tcd									;set D so we can use dp addressing
GtStackParam				equ			1+3+1+2+DPSizeParamOnly	;1 + RTL + B + D + StackFrame
							lda			GtStackParam+0,s		;count word -> ParamLongB...
							sta			ParamLongB+0
							stz			ParamLongB+2
							lda			GtStackParam+2,s		;ptr long -> ParamLongC...
							sta			ParamLongC+0
							lda			GtStackParam+4,s
							sta			ParamLongC+2

*Done saving environment; now do the work:
							import		SpoolGet				;get data from spool
							jsr			SpoolGet
							cmp			#$FFFF					;if 0 or error, pass it to QD
							bne			PtGtExitStatusInA		;else convert "-1" (end of spool)
							lda			#$1210					;to "$1210" (end of PICT)
							bra			PtGtExitStatusInA







*
*PUTPIXELS: Patched-in QuickDraw BottleProc, called during DrawPicture:
*
*This routine is patched in a replacement for the QuickDraw StdPixels bottleproc, and
*is called by QuickDraw during DrawPicture execution.  This routine makes 640-mode bitmaps
*look nonfuzzy even though they are being scaled by 4.5x in the horizontal direction.
*
*If we are in 320-mode, or if we're in low-quality printing mode, or if a bit is set to
*disable this routine, or if there we can't get enough memory, or if coordinates are
*reversed, then this routine calls the real-StdPixels routine and exits.  This has the
*same effect as if this patch didn't exist.
*
*Pixelmaps that are scaled horizontally by StdPixels (CopyPixels, DrawPicture, etc) to
*anything other than a 1:1 ratio normally have gray fuzzies around where there used to
*be sharp boundaries between black and white.  This is because 640-mode bitmaps are almost
*always dithered, and in order to maintain the high frequency dither relationship between
*adjacent pixels, groups of two pixels are scaled as a unit (4 bits at a time, which also
*makes it convenient for the normal StdPixels since the same code runs unmodified for 320
*mode, where it doesn't cause any such artifacts).  Thus if a black pixels is right next
*to a white pixel, and the group is scaled by, say, 2x, instead of getting black-black-
*white-white, the normal StdPixels produces black-white-black-white.  StdPixels has no
*way of knowing if the black pixel next to the white pixels was really fine graphics detail
*to be maintained while scaling, or if it was part of a 50% gray pattern.
*
*This routine alleviates this problem, although at the expense of halftone smoothness,
*by ensuring that the horizontal part of pixelmap scaling is performed one pixel at a
*time, instead of two at a time.  This is done by doing the horizontal scaling here, thus
*producing an interim pixelmap, and then calling the real StdPixels to do the vertical
*scaling, handling of transfer modes, clipping, etc, and actually drawing the result to
*the destination (which is the printer driver's banding buffer).
*
*Since there usually is not enough memory to ask for an entire interim buffer to hold
*the pre-horizontally-scaled pixels, we are forced to do it a slice at a time.  This
*is referred to as banding.  The banding that is performed here should not be confused
*with the banding that is already going on in the higher level of the printer driver.
*
*Since we're banding vertically, a speed improvement is possible where we check the
*current StdPixels-band against the current rendering (DrawPicture) - band.  If the
*current StdPixels-band does not fall within the current rendering-band, then no
*buffer clearing, prescaling, or real-StdPixels calling is done.  This saves time.
*
*In the code comments below, the acronym "src" refers to locinfos, rects, and pixel
*buffers related to the source, or input, of the complete StdPixels request.  "Int"
*refers to the interim buffer of pre-4.5x-X-scaled pixels that we generate here, and
*"dst" refers to the destination, or output, of the complete StdPixels request.
*
*Since we're banding vertically, and since the PICT definition may demand any vertical
*scaling factor, we need to know what the Y scaling factor is so that we can correctly
*scale slices as we repeatedly call the real StdPixels (If the bitmap would always be
*recorded at 1x, so as to be played back by the printer driver's DrawPicture at 5x, we
*could have just hardcoded 5x, but that may not always be the case).
*
*Horizontally, we don't need to worry about what the ratio of source to destination delta
*X is because we're not banding horizontally, and since we leave the given horizontal
*destination coordinates alone but pass horizontal source coordinates which are already
*scaled by 4.5x (since they point to the interim buffer), any additional X scaling will
*be performed by the real StdPixels.
*

							export		PutPixels
PutPixels
							
*Entry point that sets up our B after saving QD's B for later context switching:
PuPiEntry					phb											;QD's B setting to our var
							phb
							pullword	>PuPiQDBank
							
							phk											;point B setting to us
							plb
							
*Set up the call address to the real QD StdPixels routine for later use:
							import		OpDoOldPlyQDProcs				;setup JSL address below
							lda 		OpDoOldPlyQDProcs+ostdPixels+0
							ina
							sta			PuPiCallQDStdPixelsJsl+1+0
							lda			OpDoOldPlyQDProcs+ostdPixels+2
							shortm
							sta			PuPiCallQDStdPixelsJsl+1+2
							longm
							
*If (disable flag set) OR (low quality) OR (320 mode), do normal StdPixels execution, else continue:
							import		OpDoIs640PixMapDisable
							import		OpDoIsQualityHigh
							lda			OpDoIs640PixMapDisable			;bypass if disable flag set
							bne			PuPiDoBypass
							lda			OpDoIsQualityHigh				;bypass if not high quality
							beq			PuPiDoBypass
							lda			QDDestLocInfoDPLoc+oportSCB
							and			#$0080							;bypass if not 640 mode
							bne			PuPiDontBypass
							
*Entry point for doing pixels the normal way using standard QD code and exiting:
PuPiDoBypass				jsr			PuPiCallQDStdPixels		;behave just like as if this
							brl			PuPiExit				;patch did not occur
							
*Entry point for if we are really going to attempt to handle the pixels ourselves:
PuPiDontBypass
							
*Get rect info in useful form and copy to our local static variables; we may still give up:
							sec									;calc source rect's y length: y2-y1
							lda			QDSrcRectDPLoc+ov2
							sbc			QDSrcRectDPLoc+ov1
							bmi			PuPiDoBypass			;if negative or zero, give up
							beq			PuPiDoBypass
							sta			PuPiSrcNumLinesY		;store num lines in our static var
							
							sec									;calc source y starting address
							lda			QDSrcRectDPLoc+ov1
							sbc			QDSrcLocInfoDPLoc+oboundsRect+ov1
							phx
							phx
							pha
							pushword	QDSrcLocInfoDPLoc+owidth
							_Multiply
							clc
							pla
							adc			QDSrcLocInfoDPLoc+optrToPixImage+0
							sta			PuPiSrcPtr+0
							pla
							adc			QDSrcLocInfoDPLoc+optrToPixImage+2
							sta			PuPiSrcPtr+2
							
							sec									;calc source x starting coordinate
							lda			QDSrcRectDPLoc+oh1
							sbc			QDSrcLocInfoDPLoc+oboundsRect+oh1
							sta			PuPiSrcStartingX
							
							sec									;calc source rect's x length: x2-x1
							lda			QDSrcRectDPLoc+oh2
							sbc			QDSrcRectDPLoc+oh1
							bmi			PuPiDoBypass			;if negative or zero, give up
							beq			PuPiDoBypass
							sta			PuPiSrcNumPixX			;store num pix in static var
							
							lda			QDSrcLocInfoDPLoc+owidth
							sta			PuPiSrcLineWidthX		;store bytes/line in static
							
							sec									;calc dest rect's y length: y2-y1
							lda			QDDestRectDPLoc+ov2
							sbc			QDDestRectDPLoc+ov1
							bmi			PuPiDoBypass			;if negative or zero, give up
							beq			PuPiDoBypass
							sta			PuPiDstNumLinesY		;store num lines in our static var
							
*Attempt to allocate memory for our intermediate pixel buffer; give up if unable:
							pha									;multiply num source bytes/line
							pha									;times num source lines to do
							pushword	PuPiSrcLineWidthX		;pass space.L + num bytes.W in A
							lda			#PixMap640IntBuffTall+1	;pass #lines/band (+1 to leave slack)
							ina									;so we can overrun buffer a little
							pha
							_Multiply
							plx									;get result.L lo/hi in X/Y
							ply
							
							jsr			PuTeMulLongInXYBy9		;multiply long in X/Y by 4.5
							jsr			PuTeDivLongInXYBy2		;now have size of mem needed in X/Y
							
							pha									;pass result space
							pha									;pass result space
							phy									;pass size of block wanted hi
							phx									;pass size of block wanted lo
							import		OpDoMemPID				;pass our PID
							pushword	OpDoMemPID
							pushword	#$C000					;pass attributes: locked/fixed
							pha									;pass dummy location
							pha
							_NewHandle
							pla									;get handle, valid only if no error
							sta			PuPiIntPixMapHdl+0		;preserving carry flag for a moment
							pla
							sta			PuPiIntPixMapHdl+2
							bcc			PuPiMallocDone
							brl			PuPiDoBypass			;didn't get memory, so give up
PuPiMallocDone
							
*Calculate vertical scale (dst/src delta Y) used when calculating coordinates for StdPixels:
							pha
							pha
							pushword	PuPiDstNumLinesY		;pass numerator
							pushword	PuPiSrcNumLinesY		;pass denominator
							_FixRatio
							pulllong	PuPiSrcToDstScaleY		;result as long: mantissa,fraction
							
*Init "dst" Y1 position which will move down a bit at the completion of each band:
							lda			QDDestRectDPLoc+ov1
							sta			PuPiDstBandY1
							
*Save QD direct page for context switching and final restore:
							tdc
							sta			PuPiQDDirectPage
							
*Allocate memory for our own direct page on stack, but don't switch direct page context yet:
							tsc
							sec
							sbc			#PuPiOurDPSize
							tcs
							ina
							sta			PuPiOurDirectPage
							
*Switch in our own direct page; NOTE: now cannot access QD direct page variables:
							lda			PuPiOurDirectPage
							tcd
							
*Set up the unpreset fields of our "int" locinfo struct that we will scale into:
							lda			PuPiIntPixMapHdl+0		;deref pix memory hdl->ptr and store
							sta			<0						;abuse some of our D page for this
							lda			PuPiIntPixMapHdl+2
							sta			<2
							lda			[0]
							sta			PuPiIntLocInfoPtr+0
							ldy			#2
							lda			[0],y
							sta			PuPiIntLocInfoPtr+2
							
							ldx			PuPiSrcLineWidthX		;get number of bytes in a src line
							ldy			#0
							jsr			PuTeMulLongInXYBy9		;multiply long in X/Y by 4.5
							jsr			PuTeDivLongInXYBy2
							stx			PuPiIntLocInfoWidth
							
							ldx			PuPiSrcNumPixX			;use our calc coord sizes
							ldy			#0						;since our interim pixmap will
							jsr			PuTeMulLongInXYBy9		;have origin of (0,0)
							jsr			PuTeDivLongInXYBy2		;interim X = source X * 4.5
							stx			PuPiIntLocInfoRect+oh2
							
*Set "src" and "int" vertical indexes to initial values:
							lda			PuPiSrcPtr+0			;set src line base to initial value
							sta			<PuPiDPsrcptr+0
							lda			PuPiSrcPtr+2
							sta			<PuPiDPsrcptr+2
							
							lda			PuPiIntLocInfoPtr+0		;set int line base to initial value
							sta			<PuPiDPintptr+0
							lda			PuPiIntLocInfoPtr+2
							sta			<PuPiDPintptr+2
							
							lda			PuPiSrcNumLinesY		;set src line count to initial value
							sta			<PuPiDPsrclinecount
							
*Head of loop in which each iteration completes a slice of the entire StdPixels request:
PuPiLoop_onemoreband
							
*Zero the number-of-lines-processed count that tells us when to finish current and start a new band:
							stz			PuPiNumLinesInBand
							
*
*Decide whether to do time-saving censoring of our-band processing:
*
*This section will set or clear the "PuPiIsCensoring" static local variable, depending on
*whether or not the current band-slice of the greater total StdPixels request falls within
*the current DrawPicture rendering-band that is being asked for by the printloop code.  If
*the variable is set to "1", then the code below will circumvent time-costly operations,
*while keeping critical counters running.
*
*We do signed compares to see if any part of the pixel-enclosing rectangle intersects band buffer.
*We will censor pixels if this is TRUE: [(py1<by1)  &&  (py2<by1)]  ||  [(py1>by2)  &&  (py2>by2)],
*where "py" refers to pixel-enclosing rectangle's Y and "by" refers to printloop-band buffer
*rectangle's Y.
*
*Stated differently, we have:  Do censor if [(1) && (2)] || [(3) && (4)], where:
*
*			(1) Is pixel start above top edge of band buffer?
*			(2) Is pixel finish (also) above top edge of band buffer?
*			(3) Is pixel start below bottom edge of band buffer?
*			(4) Is pixel finish (also) below bottom edge of band buffer?
*
*These numbers (1)..(4) are referred to in the labels in the following section.
*
							
							import		OpDoLocInfoRect			;need to compare to rendering-band
							stz			PuPiIsCensoring			;intially zero this flag
							
							pha									;calculate height of this band as
							pha									;vertical scale factor * num lines
							pushword	#PixMap640IntBuffTall	;pass hi word num lines X1 as fixed
							pushword	#0						;pass lo word num lines X1 as fixed
							pushlong	PuPiSrcToDstScaleY		;pass delta y dst/src
							_FixMul
							plx									;ignore result lo (fraction)
							pla									;get result hi (mantissa)
							sta			PuPiBandMulScaleY
							
PuPiCmp1					lda			PuPiDstBandY1			;doing signed compare (1)
							sec									;band start above top/render-band?
							sbc			OpDoLocInfoRect+ov1
							beq			PuPiCmp1IsFalse			;if equal, then result is false
							bvs			PuPiCmp1Inv				;if overflow, invert compare result
							bmi			PuPiCmp1IsTrue
							bra			PuPiCmp1IsFalse
PuPiCmp1Inv					bmi			PuPiCmp1IsFalse
PuPiCmp1IsTrue
							
PuPiCmp2					lda			PuPiDstBandY1			;doing signed compare (2)
							clc
							adc			PuPiBandMulScaleY		;assume band y2 of y1 + height*scale
							sec									;band end above top/render-band?
							sbc			OpDoLocInfoRect+ov1
							beq			PuPiCmp2IsFalse			;if equal, then result is false
							bvs			PuPiCmp2Inv				;if overflow, invert compare result
							bmi			PuPiCmp2IsTrue
							bra			PuPiCmp2IsFalse
PuPiCmp2Inv					bmi			PuPiCmp2IsFalse
PuPiCmp2IsTrue
							
							bra			PuPiCensor				;both (1) and (2) true, so censor
						
PuPiCmp1IsFalse													;if either (1) or (2) was false,
PuPiCmp2IsFalse													;then go on to compares (3),(4)
							
PuPiCmp3					lda			PuPiDstBandY1			;doing signed compare (3)
							sec									;band start below bottom/render-band?
							sbc			OpDoLocInfoRect+ov2
							beq			PuPiCmp3IsFalse			;if equal, then result is false
							bvs			PuPiCmp3Inv				;if overflow, invert compare result
							bpl			PuPiCmp3IsTrue
							bra			PuPiCmp3IsFalse
PuPiCmp3Inv					bpl			PuPiCmp3IsFalse
PuPiCmp3IsTrue
							
PuPiCmp4					lda			PuPiDstBandY1			;doing signed compare (4)
							clc
							adc			PuPiBandMulScaleY		;assume band y2 of y1 + height*scale
							sec									;band end below bottom/render-band?
							sbc			OpDoLocInfoRect+ov2
							beq			PuPiCmp4IsFalse			;if equal, then result is false
							bvs			PuPiCmp4Inv				;if overflow, invert compare result
							bpl			PuPiCmp4IsTrue
							bra			PuPiCmp4IsFalse
PuPiCmp4Inv					bpl			PuPiCmp4IsFalse
PuPiCmp4IsTrue
							
							bra			PuPiCensor				;both (3) and (4) true, so censor
							
PuPiCmp3IsFalse													;if either (3) or (4) was false,
PuPiCmp4IsFalse				bra			PuPiDontCensor			;and we're here, don't censor
							
PuPiCensor					inc			PuPiIsCensoring			;set flag to "1" if yes, else "0"
PuPiDontCensor
							
*Pre-clear our interim locinfo's pixel buffer to zeros to prepare for drawing into it by OR-ing:
							lda			PuPiIsCensoring			;skip if possible
							bne			PuPiPreClearDone
PuPiPreClearCantCensor
							lda			PuPiIntLocInfoPtr+0		;setup our dp loc to be pointer
							sta			<PuPiDPclearptr+0
							lda			PuPiIntLocInfoPtr+2
							sta			<PuPiDPclearptr+2
							ldx			#0						;X is vertical line count
PuPiPreClearBfLoop			lda			#0						;zero A for storing 2 bytes/iteration
							ldy			#0						;Y is horizontal byte count
PuPiPreClearLnLoop			sta			[PuPiDPclearptr],y
							iny
							iny
							cpy			PuPiIntLocInfoWidth		;loop until one row is done
							bcc			PuPiPreClearLnLoop
							clc									;add row size (bytes) to ptr
							lda			<PuPiDPclearptr+0
							adc			PuPiIntLocInfoWidth
							sta			<PuPiDPclearptr+0
							lda			<PuPiDPclearptr+2
							adc			#0
							sta			<PuPiDPclearptr+2
							inx
							cpx			#PixMap640IntBuffTall	;loop until all lines are done
							bne			PuPiPreClearBfLoop
PuPiPreClearDone
							
*Head of loop in which each iteration processes a complete "src" line into an "int" line:
PuPiLoop_onemoreline
							
*Try to skip around line processing code:
							lda			PuPiIsCensoring
							beq			PuPiSrcToIntCantCensor
							brl			PuPiNextY
PuPiSrcToIntCantCensor
							
*Set up byte and twit (640-mode 2-bit pixel) starting positions:
							lda			PuPiSrcStartingX		;setup "src" byte/twit posn
							tax
							lsr a
							lsr a
							sta			<PuPiDPsrcbyteposn		;byte posn = X div 4
							txa
							and			#%11
							asl a
							asl a
							asl a
							sta			<PuPiDPsrctwitposnX8	;twit posn * 8 = (X mod 4) * 8
							
							stz			<PuPiDPintbyteposn		;setup "int" byte/twit posn to 0
							stz			<PuPiDPinttwitposnX16
							
*Set up src twit countdown to do an entire line of source pixels:
							lda			PuPiSrcNumPixX
							sta			<PuPiDPsrctwitcount
							
*Head of loop; each iter copies one source ("src") pixel ("twit") into 4.5 interim ("int") pixelmap:
PuPiLoop_doingaline
							
*Get a word-full of src twits (8 of them) in X:
							ldy			<PuPiDPsrcbyteposn
							lda			[PuPiDPsrcptr],y
							tax
							
*Get src twit 0..7 * 8 in Y and alternatively branch to 4x or 5x case, thus having effect of 4.5:
							ldy			<PuPiDPsrctwitposnX8
							tya
							and			#%1000
							bne			PuPiStretchSrcTwitBy5
							
*Here if we are about copy a src twit and deposit 4 copies of it in dst pixelmap:
PuPiStretchSrcTwitBy4
							
*Isolate and identify pixel from source word, and branch to the case for that pixel:
							txa
							and			PuPiSrcLookupMask,y
							beq			PuPiIts4x00
							cmp			PuPiSrcLookupIs01,y
							beq			PuPiIts4x01
							cmp			PuPiSrcLookupIs10,y
							beq			PuPiIts4x10

*Case to store 4 copies of pixel "11" into our interim pixelmap:
PuPiIts4x11					ldx			<PuPiDPinttwitposnX16
							ldy			<PuPiDPintbyteposn
							lda			PuPiH4xLookupIs11,x
							ora			[PuPiDPintptr],y
							sta			[PuPiDPintptr],y
							inx
							inx
							iny
							iny
							lda			PuPiH4xLookupIs11,x
							ora			[PuPiDPintptr],y
							sta			[PuPiDPintptr],y
							bra			PuPiDoneThe4x
							
*Case to store 4 copies of pixel "10" into our interim pixelmap:
PuPiIts4x10					ldx			<PuPiDPinttwitposnX16
							ldy			<PuPiDPintbyteposn
							lda			PuPiH4xLookupIs10,x
							ora			[PuPiDPintptr],y
							sta			[PuPiDPintptr],y
							inx
							inx
							iny
							iny
							lda			PuPiH4xLookupIs10,x
							ora			[PuPiDPintptr],y
							sta			[PuPiDPintptr],y
							bra			PuPiDoneThe4x
							
*Case to store 4 copies of pixel "01" into our interim pixelmap:
PuPiIts4x01					ldx			<PuPiDPinttwitposnX16
							ldy			<PuPiDPintbyteposn
							lda			PuPiH4xLookupIs01,x
							ora			[PuPiDPintptr],y
							sta			[PuPiDPintptr],y
							inx
							inx
							iny
							iny
							lda			PuPiH4xLookupIs01,x
							ora			[PuPiDPintptr],y
							sta			[PuPiDPintptr],y
							bra			PuPiDoneThe4x
							
*Case to store 4 copies of pixel "00" into our interim pixelmap:
PuPiIts4x00					ldx			<PuPiDPinttwitposnX16
							inx
							inx
							
*Here if done adding 4 twits to int; enter with int-twit-posn + 2 in X:
PuPiDoneThe4x
							
*Advance the int twit position by 4 pixels:
							txa									;4 pixels, the posn is maintained
							clc									;as 16x, minus 2 because int-twit-
							adc			#62						;posn is given as +2: (4*16)-2=62
							bra			PuPiAdvanceTwitCounts
							
*Here if we are about copy a src twit and deposit 5 copies of it in dst pixelmap:
PuPiStretchSrcTwitBy5
							
*Isolate and identify pixel from source word, and branch to the case for that pixel:
							txa
							and			PuPiSrcLookupMask,y
							beq			PuPiIts5x00
							cmp			PuPiSrcLookupIs01,y
							beq			PuPiIts5x01
							cmp			PuPiSrcLookupIs10,y
							beq			PuPiIts5x10

*Case to store 5 copies of pixel "11" into our interim pixelmap:
PuPiIts5x11					ldx			<PuPiDPinttwitposnX16
							ldy			<PuPiDPintbyteposn
							lda			PuPiH5xLookupIs11,x
							ora			[PuPiDPintptr],y
							sta			[PuPiDPintptr],y
							inx
							inx
							iny
							iny
							lda			PuPiH5xLookupIs11,x
							ora			[PuPiDPintptr],y
							sta			[PuPiDPintptr],y
							bra			PuPiDoneThe5x
							
*Case to store 5 copies of pixel "10" into our interim pixelmap:
PuPiIts5x10					ldx			<PuPiDPinttwitposnX16
							ldy			<PuPiDPintbyteposn
							lda			PuPiH5xLookupIs10,x
							ora			[PuPiDPintptr],y
							sta			[PuPiDPintptr],y
							inx
							inx
							iny
							iny
							lda			PuPiH5xLookupIs10,x
							ora			[PuPiDPintptr],y
							sta			[PuPiDPintptr],y
							bra			PuPiDoneThe5x
							
*Case to store 5 copies of pixel "01" into our interim pixelmap:
PuPiIts5x01					ldx			<PuPiDPinttwitposnX16
							ldy			<PuPiDPintbyteposn
							lda			PuPiH5xLookupIs01,x
							ora			[PuPiDPintptr],y
							sta			[PuPiDPintptr],y
							inx
							inx
							iny
							iny
							lda			PuPiH5xLookupIs01,x
							ora			[PuPiDPintptr],y
							sta			[PuPiDPintptr],y
							bra			PuPiDoneThe5x
							
*Case to store 5 copies of pixel "00" into our interim pixelmap:
PuPiIts5x00					ldx			<PuPiDPinttwitposnX16
							inx
							inx
							
*Here if done adding 5 twits to int; enter with int-twit-posn + 2 in X:
PuPiDoneThe5x
							
*Advance the int twit position by 5 pixels:
							txa									;5 pixels, the posn is maintained
							clc									;as 16x, minus 2 because int-twit-
							adc			#78						;posn is given as +2: (5*16)-2=78
							
*Here if done adding 4 or 5 pixels to int; enter with advanced int twit posn in A:
PuPiAdvanceTwitCounts
							
*Store advanced int twit position, while handling overflow into int byte position:
PuPiAdvanceInt				sta			<PuPiDPinttwitposnX16	;store first, if overflow or not
							cmp			#128					;8 twit posns/word * 16x = 128
							bcc			PuPiAdvanceIntNoV
							and			#%01111111				;if overflow, do mod 128
							sta			<PuPiDPinttwitposnX16	;and store again
							inc			<PuPiDPintbyteposn		;and increment to next word
							inc			<PuPiDPintbyteposn
PuPiAdvanceIntNoV
							
*Advance to next src twit position, while handling overflow into src byte position:
PuPiAdvanceSrc				lda			<PuPiDPsrctwitposnX8	;add 1*8 = 8 because position is
							clc									;maintained as 8x
							adc			#8
							cmp			#64						;overflow if 8 twits/word * 8x = 64
							bne			PuPiAdvanceSrcNoV
							lda			#0						;overflow always aligned
							inc			<PuPiDPsrcbyteposn		;increment to next word
							inc			<PuPiDPsrcbyteposn
PuPiAdvanceSrcNoV			sta			<PuPiDPsrctwitposnX8
							
*Loop back to handle all src pixels within a line:
							dec			<PuPiDPsrctwitcount		;dec countdown counter and loop
							beq			PuPiOutOfXLoop
							brl			PuPiLoop_doingaline
PuPiOutOfXLoop
							
*Here if done doing an entire line:
PuPiNextY
							
*Advance src and int base addresses to point to their next lines:
							clc									;bump src base ptr to next line
							lda			<PuPiDPsrcptr+0
							adc			PuPiSrcLineWidthX
							sta			<PuPiDPsrcptr+0
							lda			<PuPiDPsrcptr+2
							adc			#0
							sta			<PuPiDPsrcptr+2
							
							clc									;bump int base ptr to next line
							lda			<PuPiDPintptr+0
							adc			PuPiIntLocInfoWidth
							sta			<PuPiDPintptr+0
							lda			<PuPiDPintptr+2
							adc			#0
							sta			<PuPiDPintptr+2
							
*Increment number of lines actually completed into interim pixelmap, used for later StdPixels call:
							inc			PuPiNumLinesInBand
							
*If we are done with all raster lines in src pixelmap, break out of vertical loop:
							dec			<PuPiDPsrclinecount		;decrement number of total src
							beq			PuPiOutOfYLoop			;lines we have to do, exit if done
							
*Else, check to see if it's time yet to output a band:
							lda			PuPiNumLinesInBand		;time to do a band?
							cmp			#PixMap640IntBuffTall	;do one every so many finished lines
							beq			PuPiOutputOneBand
							
*If not time to output a band, loop back to create another line in interim pixelmap:
							brl			PuPiLoop_onemoreline
							
*Here if interim pixelmap full and it's time to draw the band and continue:
PuPiOutputOneBand
							
*Pass the interim pixelmap as input to StdPixels and thus draw a slice of the StdPixels request:
							lda			#PixMap640IntBuffTall
							jsr			PuPiDrawStdPixelsBand
							
*Reset interim line base address back to top of band (of course src line base keeps going):
							lda			PuPiIntLocInfoPtr+0
							sta			<PuPiDPintptr+0
							lda			PuPiIntLocInfoPtr+2
							sta			<PuPiDPintptr+2
							
*Loop back to prepare to do another band slice of the entire StdPixels request:
							brl			PuPiLoop_onemoreband
							
*Here if done with all lines; may still have to do a partial band (esp if request < band tallness):
PuPiOutOfYLoop
							
*Do the remaining number of lines left to do, if any:
							lda			PuPiNumLinesInBand		;could be zero
							jsr			PuPiDrawStdPixelsBand
							
*Switch in QD's DP again because we're about to exit:
							lda			PuPiQDDirectPage
							tcd
							
*Deallocate our direct page space from stack, now we can't switch ours in anymore:
							tsc
							clc
							adc			#PuPiOurDPSize
							tcs
							
*Deallocate the temporary interim pixel map memory which we scaled into and passed to StdPixels:
							pushlong	PuPiIntPixMapHdl
							_DisposeHandle
							
*Exclusive exit point from this routine which restores QD bank and exits with no error:
PuPiExit					pushword	PuPiQDBank
							plb
							plb
							lda			#0
							clc
							rtl



*Subroutine that calls the real QuickDraw StdPixels code (address must be set up already):
PuPiCallQDStdPixels			pushword	PuPiQDBank				;switch in QuickDraw's B setting
							plb
							plb
							lda			#0						;indicate no error status
							clc
PuPiCallQDStdPixelsJsl		jsl			>$FFFFFF				;NOTE: operand is stuffed
							phk									;switch in our B setting again
							plb
							rts									;return to caller



*Subroutine that calls StdPixels to do a certain number of lines: Pass num lines to do -> A:
PuPiDrawStdPixelsBand		cmp			#0						;if zero, don't do anything
							bne			PuPiDSPBnot0request
							rts
PuPiDSPBnot0request
							
*Put number of lines (still in A) we're advancing in int and src buffers in local static vars:
							sta			PuPiDSPBnumlines		;this is how far we move down int
							
							phx
							phx
							pha									;pass hi num lines X1 as fixed
							pushword	#0						;pass lo num lines X1 as fixed
							pushlong	PuPiSrcToDstScaleY		;pass vertical scale factor
							_FixMul
							plx									;ignore lo result (fraction)
							pla									;get hi result (mantissa)
							
							sta			PuPiDSPBnumlinesScaled	;this is how far we move down dst
							
*Switch in QD direct page, now we can use QD dp vars but CANNOT use our direct page vars:
							lda			PuPiQDDirectPage
							tcd
							
*Set StdPixels source locinfo input to our interim locinfo (ours will now be the source):
							pushlong	#PuPiIntLocInfo			;pass source
							pushword	#0						;pass dest hi word: dp, so bank 0
							tdc									;pass dest lo word: dp+qd dp loc
							clc
							adc			#QDSrcLocInfoDPLoc
							pha
							pushlong	#16						;pass count
							_BlockMove							;copy new source locinfo in QD vars
							
*Leave StdPixels destination locinfo input alone; that's where output of all bands goes:
							
*Set StdPixels source rect input X to our interim locinfo's X dimensions:
							stz			QDSrcRectDPLoc+oh1		;X1 for our int buffer is always 0
							lda			PuPiIntLocInfoRect+oh2	;X2 for our int buffer is orig*4.5
							sta			QDSrcRectDPLoc+oh2
							
*Set StdPixels source rect input Y to number of lines we have to do for this band:
							stz			QDSrcRectDPLoc+ov1		;Y1 for our int buffer is always 0
							lda			PuPiDSPBnumlines		;Y2 is the num lines we're doing
							sta			QDSrcRectDPLoc+ov2		;in this particular band
							
*Leave StdPixels destination rect input X alone:
							
*Set StdPixels destination rect input Y for the current band slice we're doing:
							lda			PuPiDstBandY1			;how far down we're in the banding
							sta			QDDestRectDPLoc+ov1		;will be the dest rect Y1, and
							clc									;Y2 will be Y1 plus number of Std-
							adc			PuPiDSPBnumlinesScaled	;Pixels-source lines times Y scaling
							sta			QDDestRectDPLoc+ov2
							
							sta			PuPiDstBandY1			;update band Y1 for next time
							
*Call the real StdPixels code to do vertical scaling, clipping, transfer modes, etc:
							ldx			PuPiIsCensoring			;skip this if we can, since it
							bne			PuPiDSPBskipstdpixels	;takes a long time
							jsr			PuPiCallQDStdPixels
PuPiDSPBskipstdpixels
							
*Switch back to our direct page; now ok to use our direct page vars again but can't use QD vars:
							lda			PuPiOurDirectPage
							tcd
							
*Exit to caller:
							rts
							
*Static variables used by this subroutine:
PuPiDSPBnumlines			dc.w		0
PuPiDSPBnumlinesScaled		dc.w		0



*Local direct page usage; can ONLY be accessed while in scope of our own direct page:
PuPiDPsrcptr				equ			0						;addr of start of a src line
PuPiDPintptr				equ			4						;addr of start of a int line
PuPiDPsrctwitposnX8			equ			8						;src twit tbl index: 0,8,16,...,56
PuPiDPinttwitposnX16		equ			10						;int twit tbl index: 0,16,32,...,112
PuPiDPsrcbyteposn			equ			12						;byte within a src line
PuPiDPintbyteposn			equ			14						;byte within a int line
PuPiDPsrctwitcount			equ			16						;horizontal source pixel counter
PuPiDPsrclinecount			equ			18						;vertical source line counter
PuPiDPclearptr				equ			20						;addr used to clear pixel buffer
PuPiOurDPSize				equ			24						;number of bytes of this DP space

*Static variables used; can be accessed while in scope of either our or QD direct page:
PuPiQDBank					dc.w		0						;saved B register from QuickDraw
PuPiQDDirectPage			dc.w		0						;saved D register from QuickDraw
PuPiOurDirectPage			dc.w		0						;our D space allocated on stack
PuPiSrcPtr					dc.l		0						;normalized address of first line
PuPiSrcNumLinesY			dc.w		0						;number of lines in source rect
PuPiSrcStartingX			dc.w		0						;normalized coordinate of first pix
PuPiSrcNumPixX				dc.w		0						;number of pix/line in source rect
PuPiDstNumLinesY			dc.w		0						;number of lines in dest rect
PuPiSrcLineWidthX			dc.w		0						;number of bytes/line in source
PuPiIntPixMapHdl			dc.l		0						;handle to pixel map memory we need
PuPiDstBandY1				dc.w		0						;y1 of dest rect for current band
PuPiNumLinesInBand			dc.w		0						;lines processed into int buff so far
PuPiSrcToDstScaleY			dc.l		0						;dst/src delta y in fixed format
PuPiBandMulScaleY			dc.w		0						;band height * (dst/src dy scale)
PuPiIsCensoring				dc.w		0						;set if can censor current band

*Our LocInfo into which we do our horizontal scaling and becomes the new source for CopyPixels:
PuPiIntLocInfo
PuPiIntLocInfoSCB			dc.w		$0080					;mode: 640 always
PuPiIntLocInfoPtr			dc.l		$FFFFFFFF				;pointer to pixel map: stuffed
PuPiIntLocInfoWidth			dc.w		$FFFF					;bytes/horiz line: stuffed
PuPiIntLocInfoRect			dc.w		0,0						;ref coords: X1/Y1 both zeros
							dc.w		PixMap640IntBuffTall	;Y2: fixed to tallness of buffer
							dc.w		$FFFF					;X2: stuffed to 4.5x of src X size

*Lookup table for isolating a pixel out of a word of source pixels without masking and shifting:
PuPiSrcLookup
PuPiSrcLookupMask			equ			*+0
PuPiSrcLookupIs01			equ			*+2
PuPiSrcLookupIs10			equ			*+4
PuPiSrcLookupIs11			equ			*+6
							;pixel posn: 00112233  44556677
PuPiSrcLookupPixPosn0Mask	dc.b		%11000000,%00000000		;source mask to isolate pixel
PuPiSrcLookupPixPosn0Is01	dc.b		%01000000,%00000000		;value of source pixel "01"
PuPiSrcLookupPixPosn0Is10	dc.b		%10000000,%00000000		;value of source pixel "10"
PuPiSrcLookupPixPosn0Is11	dc.b		%11000000,%00000000		;value of source pixel "11"
							;pixel posn: 00112233  44556677
PuPiSrcLookupPixPosn1Mask	dc.b		%00110000,%00000000		;source mask to isolate pixel
PuPiSrcLookupPixPosn1Is01	dc.b		%00010000,%00000000		;value of source pixel "01"
PuPiSrcLookupPixPosn1Is10	dc.b		%00100000,%00000000		;value of source pixel "10"
PuPiSrcLookupPixPosn1Is11	dc.b		%00110000,%00000000		;value of source pixel "11"
							;pixel posn: 00112233  44556677
PuPiSrcLookupPixPosn2Mask	dc.b		%00001100,%00000000		;source mask to isolate pixel
PuPiSrcLookupPixPosn2Is01	dc.b		%00000100,%00000000		;value of source pixel "01"
PuPiSrcLookupPixPosn2Is10	dc.b		%00001000,%00000000		;value of source pixel "10"
PuPiSrcLookupPixPosn2Is11	dc.b		%00001100,%00000000		;value of source pixel "11"
							;pixel posn: 00112233  44556677
PuPiSrcLookupPixPosn3Mask	dc.b		%00000011,%00000000		;source mask to isolate pixel
PuPiSrcLookupPixPosn3Is01	dc.b		%00000001,%00000000		;value of source pixel "01"
PuPiSrcLookupPixPosn3Is10	dc.b		%00000010,%00000000		;value of source pixel "10"
PuPiSrcLookupPixPosn3Is11	dc.b		%00000011,%00000000		;value of source pixel "11"
							;pixel posn: 00112233  44556677
PuPiSrcLookupPixPosn4Mask	dc.b		%00000000,%11000000		;source mask to isolate pixel
PuPiSrcLookupPixPosn4Is01	dc.b		%00000000,%01000000		;value of source pixel "01"
PuPiSrcLookupPixPosn4Is10	dc.b		%00000000,%10000000		;value of source pixel "10"
PuPiSrcLookupPixPosn4Is11	dc.b		%00000000,%11000000		;value of source pixel "11"
							;pixel posn: 00112233  44556677
PuPiSrcLookupPixPosn5Mask	dc.b		%00000000,%00110000		;source mask to isolate pixel
PuPiSrcLookupPixPosn5Is01	dc.b		%00000000,%00010000		;value of source pixel "01"
PuPiSrcLookupPixPosn5Is10	dc.b		%00000000,%00100000		;value of source pixel "10"
PuPiSrcLookupPixPosn5Is11	dc.b		%00000000,%00110000		;value of source pixel "11"
							;pixel posn: 00112233  44556677
PuPiSrcLookupPixPosn6Mask	dc.b		%00000000,%00001100		;source mask to isolate pixel
PuPiSrcLookupPixPosn6Is01	dc.b		%00000000,%00000100		;value of source pixel "01"
PuPiSrcLookupPixPosn6Is10	dc.b		%00000000,%00001000		;value of source pixel "10"
PuPiSrcLookupPixPosn6Is11	dc.b		%00000000,%00001100		;value of source pixel "11"
							;pixel posn: 00112233  44556677
PuPiSrcLookupPixPosn7Mask	dc.b		%00000000,%00000011		;source mask to isolate pixel
PuPiSrcLookupPixPosn7Is01	dc.b		%00000000,%00000001		;value of source pixel "01"
PuPiSrcLookupPixPosn7Is10	dc.b		%00000000,%00000010		;value of source pixel "10"
PuPiSrcLookupPixPosn7Is11	dc.b		%00000000,%00000011		;value of source pixel "11"
							
*Lookup table for stretching a pixel 4x horizontally:
PuPiH4xLookup
PuPiH4xLookupIs00			equ			*+0
PuPiH4xLookupIs01			equ			*+4
PuPiH4xLookupIs10			equ			*+8
PuPiH4xLookupIs11			equ			*+12
							;dest pix:   00112233  44556677  88990011  22334455
PuPiH4xLookupPixPosn0Is00	dc.b		%00000000,%00000000,%00000000,%00000000
PuPiH4xLookupPixPosn0Is01	dc.b		%01010101,%00000000,%00000000,%00000000
PuPiH4xLookupPixPosn0Is10	dc.b		%10101010,%00000000,%00000000,%00000000
PuPiH4xLookupPixPosn0Is11	dc.b		%11111111,%00000000,%00000000,%00000000
							;dest pix:   00112233  44556677  88990011  22334455
PuPiH4xLookupPixPosn1Is00	dc.b		%00000000,%00000000,%00000000,%00000000
PuPiH4xLookupPixPosn1Is01	dc.b		%00010101,%01000000,%00000000,%00000000
PuPiH4xLookupPixPosn1Is10	dc.b		%00101010,%10000000,%00000000,%00000000
PuPiH4xLookupPixPosn1Is11	dc.b		%00111111,%11000000,%00000000,%00000000
							;dest pix:   00112233  44556677  88990011  22334455
PuPiH4xLookupPixPosn2Is00	dc.b		%00000000,%00000000,%00000000,%00000000
PuPiH4xLookupPixPosn2Is01	dc.b		%00000101,%01010000,%00000000,%00000000
PuPiH4xLookupPixPosn2Is10	dc.b		%00001010,%10100000,%00000000,%00000000
PuPiH4xLookupPixPosn2Is11	dc.b		%00001111,%11110000,%00000000,%00000000
							;dest pix:   00112233  44556677  88990011  22334455
PuPiH4xLookupPixPosn3Is00	dc.b		%00000000,%00000000,%00000000,%00000000
PuPiH4xLookupPixPosn3Is01	dc.b		%00000001,%01010100,%00000000,%00000000
PuPiH4xLookupPixPosn3Is10	dc.b		%00000010,%10101000,%00000000,%00000000
PuPiH4xLookupPixPosn3Is11	dc.b		%00000011,%11111100,%00000000,%00000000
							;dest pix:   00112233  44556677  88990011  22334455
PuPiH4xLookupPixPosn4Is00	dc.b		%00000000,%00000000,%00000000,%00000000
PuPiH4xLookupPixPosn4Is01	dc.b		%00000000,%01010101,%00000000,%00000000
PuPiH4xLookupPixPosn4Is10	dc.b		%00000000,%10101010,%00000000,%00000000
PuPiH4xLookupPixPosn4Is11	dc.b		%00000000,%11111111,%00000000,%00000000
							;dest pix:   00112233  44556677  88990011  22334455
PuPiH4xLookupPixPosn5Is00	dc.b		%00000000,%00000000,%00000000,%00000000
PuPiH4xLookupPixPosn5Is01	dc.b		%00000000,%00010101,%01000000,%00000000
PuPiH4xLookupPixPosn5Is10	dc.b		%00000000,%00101010,%10000000,%00000000
PuPiH4xLookupPixPosn5Is11	dc.b		%00000000,%00111111,%11000000,%00000000
							;dest pix:   00112233  44556677  88990011  22334455
PuPiH4xLookupPixPosn6Is00	dc.b		%00000000,%00000000,%00000000,%00000000
PuPiH4xLookupPixPosn6Is01	dc.b		%00000000,%00000101,%01010000,%00000000
PuPiH4xLookupPixPosn6Is10	dc.b		%00000000,%00001010,%10100000,%00000000
PuPiH4xLookupPixPosn6Is11	dc.b		%00000000,%00001111,%11110000,%00000000
							;dest pix:   00112233  44556677  88990011  22334455
PuPiH4xLookupPixPosn7Is00	dc.b		%00000000,%00000000,%00000000,%00000000
PuPiH4xLookupPixPosn7Is01	dc.b		%00000000,%00000001,%01010100,%00000000
PuPiH4xLookupPixPosn7Is10	dc.b		%00000000,%00000010,%10101000,%00000000
PuPiH4xLookupPixPosn7Is11	dc.b		%00000000,%00000011,%11111100,%00000000

*Lookup table for stretching a pixel 5x horizontally:
PuPiH5xLookup
PuPiH5xLookupIs00			equ			*+0
PuPiH5xLookupIs01			equ			*+4
PuPiH5xLookupIs10			equ			*+8
PuPiH5xLookupIs11			equ			*+12
							;dest pix:   00112233  44556677  88990011  22334455
PuPiH5xLookupPixPosn0Is00	dc.b		%00000000,%00000000,%00000000,%00000000
PuPiH5xLookupPixPosn0Is01	dc.b		%01010101,%01000000,%00000000,%00000000
PuPiH5xLookupPixPosn0Is10	dc.b		%10101010,%10000000,%00000000,%00000000
PuPiH5xLookupPixPosn0Is11	dc.b		%11111111,%11000000,%00000000,%00000000
							;dest pix:   00112233  44556677  88990011  22334455
PuPiH5xLookupPixPosn1Is00	dc.b		%00000000,%00000000,%00000000,%00000000
PuPiH5xLookupPixPosn1Is01	dc.b		%00010101,%01010000,%00000000,%00000000
PuPiH5xLookupPixPosn1Is10	dc.b		%00101010,%10100000,%00000000,%00000000
PuPiH5xLookupPixPosn1Is11	dc.b		%00111111,%11110000,%00000000,%00000000
							;dest pix:   00112233  44556677  88990011  22334455
PuPiH5xLookupPixPosn2Is00	dc.b		%00000000,%00000000,%00000000,%00000000
PuPiH5xLookupPixPosn2Is01	dc.b		%00000101,%01010100,%00000000,%00000000
PuPiH5xLookupPixPosn2Is10	dc.b		%00001010,%10101000,%00000000,%00000000
PuPiH5xLookupPixPosn2Is11	dc.b		%00001111,%11111100,%00000000,%00000000
							;dest pix:   00112233  44556677  88990011  22334455
PuPiH5xLookupPixPosn3Is00	dc.b		%00000000,%00000000,%00000000,%00000000
PuPiH5xLookupPixPosn3Is01	dc.b		%00000001,%01010101,%00000000,%00000000
PuPiH5xLookupPixPosn3Is10	dc.b		%00000010,%10101010,%00000000,%00000000
PuPiH5xLookupPixPosn3Is11	dc.b		%00000011,%11111111,%00000000,%00000000
							;dest pix:   00112233  44556677  88990011  22334455
PuPiH5xLookupPixPosn4Is00	dc.b		%00000000,%00000000,%00000000,%00000000
PuPiH5xLookupPixPosn4Is01	dc.b		%00000000,%01010101,%01000000,%00000000
PuPiH5xLookupPixPosn4Is10	dc.b		%00000000,%10101010,%10000000,%00000000
PuPiH5xLookupPixPosn4Is11	dc.b		%00000000,%11111111,%11000000,%00000000
							;dest pix:   00112233  44556677  88990011  22334455
PuPiH5xLookupPixPosn5Is00	dc.b		%00000000,%00000000,%00000000,%00000000
PuPiH5xLookupPixPosn5Is01	dc.b		%00000000,%00010101,%01010000,%00000000
PuPiH5xLookupPixPosn5Is10	dc.b		%00000000,%00101010,%10100000,%00000000
PuPiH5xLookupPixPosn5Is11	dc.b		%00000000,%00111111,%11110000,%00000000
							;dest pix:   00112233  44556677  88990011  22334455
PuPiH5xLookupPixPosn6Is00	dc.b		%00000000,%00000000,%00000000,%00000000
PuPiH5xLookupPixPosn6Is01	dc.b		%00000000,%00000101,%01010100,%00000000
PuPiH5xLookupPixPosn6Is10	dc.b		%00000000,%00001010,%10101000,%00000000
PuPiH5xLookupPixPosn6Is11	dc.b		%00000000,%00001111,%11111100,%00000000
							;dest pix:   00112233  44556677  88990011  22334455
PuPiH5xLookupPixPosn7Is00	dc.b		%00000000,%00000000,%00000000,%00000000
PuPiH5xLookupPixPosn7Is01	dc.b		%00000000,%00000001,%01010101,%00000000
PuPiH5xLookupPixPosn7Is10	dc.b		%00000000,%00000010,%10101010,%00000000
PuPiH5xLookupPixPosn7Is11	dc.b		%00000000,%00000011,%11111111,%00000000







*
*CLIPINSTALLWITHSTATS: Patched-in replacement for InstallWithStats font manager call:
*
*This routine is patched during most of ClosePage's printing loop, and thus is called during
*DrawPicture time.  It attempts to speed up the DrawPicture process by censoring unnecessary
*InstallWithStats (IWS) font manager calls.  If the current pen vertical coordinate indicates
*that the piece of text whose font is being installed by IWS won't affect the band buffer,
*then we cause IWS to install the system font, which requires no loading and scaling, and
*thus takes up no significant amount of time to install, instead.  Note that this assumes that
*IWS is called *after* positioning the pen to the location of the text to be affected by IWS.
*

							export		ClipInstallWithStats
ClipInstallWithStats

*Save caller environment (A,X,Y,B) and setup ours: Our data bank, their direct-page:
							pha
							phx
							phy
							phb
							phk
							plb

*Get current QD pen position:
							pushlong	#IWSPenPos
							_GetPen
							
*Use (requested-font-size * 1.125) minimum distance for censor decision below:
							lda			23,s					;stack looks like this:
							and			#$00FF					;B YY XX AA RTL RTL pppp pp pppp
							sta			IWSIgnoreDistance		;access "font id" param which
							lsr a								;is a long of the form $AABBCCCC,
							lsr a								;where A=size, B=face, C=font
							lsr a
							clc
							adc			IWSIgnoreDistance
							sta			IWSIgnoreDistance

*Determine if requested size and current position would cause marking anywhere near band buffer:
							import		OpDoLocInfoRect
IWSCheckTop					lda			OpDoLocInfoRect+ov1		;get top y coord of band buffer
							sec									;subtract current pen Y position
							sbc			IWSPenPos+ov1
							bvs			IWSCheckTopFail			;fail if invalid sgn num (underflow)
							bmi			IWSCheckTopFail			;fail if signed subtract result < 0
							cmp			IWSIgnoreDistance		;compare against minimum distance
							bcc			IWSCheckFail			;if close, don't censor nor try botm
							bra			IWSCensor				;if far enough away, do censor
IWSCheckTopFail
IWSCheckBot					lda			IWSPenPos+ov1			;get current pen Y position and sub-
							sec									;tract bottom y coord of band buff
							sbc			OpDoLocInfoRect+ov2
							bvs			IWSCheckBotFail			;fail if invalid sgn num (underflow)
							bmi			IWSCheckBotFail			;fail if signed subtract result < 0
							cmp			IWSIgnoreDistance		;compare against minimum distance
							bcc			IWSCheckBotFail			;if close, don't do censor
							bra			IWSCensor				;if far enough away, do censor
IWSCheckBotFail
IWSCheckFail

*At this point, resume normal IWS call:
							import		ClPaOldIWSAddr
IWSGoNormal					lda			ClPaOldIWSAddr+0		;setup address of normal IWS call
							sta			IWSGoNormalJmp+1+0
							lda			ClPaOldIWSAddr+2
							shortm
							sta			IWSGoNormalJmp+1+2
							longm
							plb									;restore caller environment
							ply
							plx
							pla
IWSGoNormalJmp				jmp			>$FFFFFF				;NOTE: operand is stuffed

*At this point, censor IWS request by setting its "font id" input param to 0L (System Font) first:
IWSCensor					lda			#0
							sta			20,s
							sta			22,s
							bra			IWSGoNormal

*Variables needed for this routine:
IWSPenPos					dc.w		0,0
IWSIgnoreDistance			dc.w		0







*
*PUTTEXT: Patched-in QuickDraw BottleProc, called during DrawPicture:
*
*This is the patched text bottleproc, called during picture playback from within DrawPicture.
*This routine attempts to censor certain text objects from being drawn, thus speeding up the
*DrawPicture call, by preventing the normal text drawing code from executing if a text string
*does not intersect with the banding buffer.  Only the vertical coordinates are checked, since
*we only implement portrait orientation.  This routine also attempts to adjust the interspacing
*of text objects in order to correct for the usage of 5X-sized fonts in a 4.5X-scaled destination
*picture rendering coordinate system.
*
*During most of this routine, the bank register is set to us, but the direct page register
*stays set to QD, so that QD global variables, as well as static variables maintained by other
*printloop routines (such as the band buffer rectangle, the line layout disable flag, etc) may
*be accessed.
*

							export		PutText
PutText

*Set up environment: Our data bank, QD's direct page:
PuTeSaveQDBSetupOurB		phb									;save QD's bank setting
							phk									;we'll have direct-page set to QD's
							plb									;and data-bank set to this driver
							
*Obtain string address and length regardless of single-char, c-string, or p-string status:
PuTeObtainString			lda			QDDrawVerbDPLoc
							cmp			#QDDrawCharVerbEqu
							bne			PuTeNotSingleChar
PuTeItsSingleChar			lda			QDCharToDrawDPLoc
							sta			PuTeChar
							lda			#PuTeChar
							sta			PuTeTextPtr+0
							lda			#^PuTeChar
							sta			PuTeTextPtr+2
							lda			#1
							sta			PuTeTextLength
							bra			PuTeObtainStringDone
PuTeNotSingleChar			cmp			#QDDrawCStrVerbEqu
							bne			PuTeItsPString
PuTeItsCString				ldy			#0
							shortm
PuTeCStrLenLoop				lda			[QDTextPtrDPLoc],y
							beq			PuTeCStrLenLoopDone
							iny
							cpy			#256
							bne			PuTeCStrLenLoop
PuTeCStrLenLoopDone			longm
							bra			PuTeFinishItsCOrPString
PuTeItsPString				ldy			QDTextLengthDPLoc
PuTeFinishItsCOrPString		sty			PuTeTextLength
							lda			QDTextPtrDPLoc+0
							sta			PuTeTextPtr+0
							lda			QDTextPtrDPLoc+2
							sta			PuTeTextPtr+2
PuTeObtainStringDone
							
*Obtain rect around string, needed for code below, using reentrant QD call:
							jsr			PuTeSaveTxCtl			;save for restore in a moment
							pushlong	PuTeTextPtr				;get bounding box around string
							pushword	PuTeTextLength
							pushlong	#PuTeTextRect
							_TextBounds
							jsr			PuTeRestoreTxCtl		;recover from reentrant QD call
							
*
*Decide whether to do time-saving censoring of text drawing, using rect obtained above:
*
*This routine will exit the StdText routine back to the caller, instead of allowing QuickDraw
*to do the drawing, if the string is of zero length or if it lies completely outside of the
*current band buffer.  Otherwise, program flow drops through this routine.
*
*We do signed compares to see if any part of the text-enclosing rectangle intersects band buffer.
*We will censor text if this is TRUE:   [(ty1<by1)  &&  (ty2<by1)]  ||  [(ty1>by2)  &&  (ty2>by2)],
*where "ty" refers to text-enclosing rectangle's Y and "by" refers to band buffer rectangle Y.
*
*Stated differently, we have:  Do censor if null string or [(1) && (2)] || [(3) && (4)], where:
*
*			(1) Is text start above top edge of band buffer?
*			(2) Is text finish (also) above top edge of band buffer?
*			(3) Is text start below bottom edge of band buffer?
*			(4) Is text finish (also) below bottom edge of band buffer?
*
*These numbers (1)..(4) are referred to in the labels in the following section.
*
							import		OpDoLocInfoRect
							
PuTeCheckAndDoCensor		lda			PuTeTextLength			;censor if null string
							beq			PuTeCensor
							
PuTeCmp1					lda			PuTeTextRect+ov1		;doing signed compare (1)
							sec									;is text start above top of band?
							sbc			OpDoLocInfoRect+ov1
							beq			PuTeCmp1IsFalse			;if equal, then result is false
							bvs			PuTeCmp1Inv				;if overflow, invert compare result
							bmi			PuTeCmp1IsTrue
							bra			PuTeCmp1IsFalse
PuTeCmp1Inv					bmi			PuTeCmp1IsFalse
PuTeCmp1IsTrue
							
PuTeCmp2					lda			PuTeTextRect+ov2		;doing signed compare (2)
							sec									;is text end above top of band?
							sbc			OpDoLocInfoRect+ov1
							beq			PuTeCmp2IsFalse			;if equal, then result is false
							bvs			PuTeCmp2Inv				;if overflow, invert compare result
							bmi			PuTeCmp2IsTrue
							bra			PuTeCmp2IsFalse
PuTeCmp2Inv					bmi			PuTeCmp2IsFalse
PuTeCmp2IsTrue
							
							bra			PuTeCensor				;both (1) and (2) true, so censor
							
PuTeCmp1IsFalse													;if either (1) or (2) was false,
PuTeCmp2IsFalse													;then go on to compares (3),(4)
							
PuTeCmp3					lda			PuTeTextRect+ov1		;doing signed compare (3)
							sec									;is text start below bottom of band?
							sbc			OpDoLocInfoRect+ov2
							beq			PuTeCmp3IsFalse			;if equal, then result is false
							bvs			PuTeCmp3Inv				;if overflow, invert compare result
							bpl			PuTeCmp3IsTrue
							bra			PuTeCmp3IsFalse
PuTeCmp3Inv					bpl			PuTeCmp3IsFalse
PuTeCmp3IsTrue
							
PuTeCmp4					lda			PuTeTextRect+ov2		;doing signed compare (4)
							sec									;is text end below bottom of band?
							sbc			OpDoLocInfoRect+ov2
							beq			PuTeCmp4IsFalse			;if equal, then result is false
							bvs			PuTeCmp4Inv				;if overflow, invert compare result
							bpl			PuTeCmp4IsTrue
							bra			PuTeCmp4IsFalse
PuTeCmp4Inv					bpl			PuTeCmp4IsFalse
PuTeCmp4IsTrue
							
							bra			PuTeCensor				;both (3) and (4) true, so censor
							
PuTeCmp3IsFalse													;if either (3) or (4) was false,
PuTeCmp4IsFalse				bra			PuTeDontCensor			;and we're here, don't censor text
							
*Censor normal text drawing: Restore QD's bank register and exit right now with no-error status:
PuTeCensor					plb
							lda			#0
							clc
							rtl
							
*Don't censor normal text drawing; drop through to section below:
PuTeDontCensor
							
*
*Do position-managed text drawing (Line Layout):
*
*This routine calls the real QuickDraw text drawing code, but it does so under the context
*of a temporary alteration of several grafport settings, most notably CharExtra and SpaceExtra.
*This is done in order to adress the following issues:
*
*	(1) The application's requested SpaceExtra/CharExtra values are not scaled up by QuickDraw
*		and so we must do it.  Otherwise full justification, etc, would not work.  However,
*		we must also correct for the fact that almost all applications programs already scale
*		their SpaceExtra/CharExtra values by 2x in order to compensate for this problem for
*		the case of an ImageWriter printer.
*
*	(2) The horizontal text spacing needs to be reduced by 10% because of 80->72 dpi.  Applications
*		assume a horizontal drawing area of bounds of 80 dpi * 8 inch = 640 sourcepix.  Since the
*		StyleWriter has 72 dpi * 8 inch * 5x = 2880 printpix horizontal pixels, the scaling
*		factor that this driver employs is 4.5x, not 5x, so that the resulting number of pixels
*		that the picture is drawn at is 80 dpi * 8 inch * 4.5x = 2880 printpix, and not erroneously
*		80 dpi * 8 inch * 5x = 3200 printpix!  However, the QuickDraw code asks the font manager
*		for 5x fonts, even though picture playback is being scaled by 4.5x in the horizontal
*		direction (but 5x in the vertical direction).  Thus, we must make strings narrower by a
*		factor of 10% (72dpi / 80dpi = 0.9), so that they are reduced in size along with the
*		other graphical objects (bitmaps, lines, ovals, etc) that make up the picture.
*
*	(3) Actual horizontal dimensions of two different fonts are not always exact multiples
*		of each other even if their point sizes are (ie, if a string of Times 10 is 100 pixels
*		wide then that same string in Times 20 is not necessarily 200 pixels wide).  This leads
*		to clipping or falling-short with respect to other text or objects to the right.
*
*	(4) QuickDraw's face modifications (underline, bold, italic, outline, shadow) can modify
*		the string length (it usually grows significantly wider), leading to clipping against
*		other text or objects to the right.
*
*	(5) Vertical clipping of descenders occurs because the vertical sizes of fonts do not
*		follow font point size multiples either as stated above.
*
*In addition, if the text transfer mode is $0000 (modeCopy) then it is temporarily modified to
*be $0004 (modeForeCopy).  This effectively ORs the text over what is already rendered, so that
*the descenders of the line above are not clipped.  This is sometimes necessary because the
*height of the scaled-up font may be greater than the original font's height multiplied by the
*scaling factor.  However, this will cause a problem for any application that depends on the
*text drawing destructively with respect to its background.
*
*Both line layout and text tranfer mode modification may be disabled by setting driver-specific
*bits in the wDev field of the print record.
*

*Save format-oriented settings (SpaceExtra/CharExtra/Etc) for restore when we're all done:
							jsr			PuTeSaveSpxChxTxm
							
*Check and disable line layout code if application requests it:
							import		OpDoIsLineLayoutDisable
							lda			OpDoIsLineLayoutDisable
							beq			PuTeDoLLDisableDone
							brl			PuTeLineLayoutDone
PuTeDoLLDisableDone
							
*Undo app's spx/chx doubling (bug: QD doesn't scale them with rest of PICT) to get app 1x spx/chx:
							import		OpDoIsQualityHigh		;if not high quality, app isn't
							lda			OpDoIsQualityHigh		;compensating, so skip this
							beq			PuTeUndoubleSpxChxDone
							
							lda			#ospExtra				;get SpaceExtra long in lo/hi->X/Y
							jsr			PuTeGetQDPortVarInXY
							jsr			PuTeDivLongInXYBy2		;divide by 2
							lda			#ospExtra				;store X/Y->lo/hi as new SpaceExtra
							jsr			PuTeSetQDPortVarInXY
							
							lda			#ochExtra				;get CharExtra long in lo/hi->X/Y
							jsr			PuTeGetQDPortVarInXY
							jsr			PuTeDivLongInXYBy2		;divide by 2
							lda			#ochExtra				;store X/Y->lo/hi as new CharExtra
							jsr			PuTeSetQDPortVarInXY
PuTeUndoubleSpxChxDone
														
*Wanted width is of app font, influenced by app-intended spx/chx, times our printing-scale factor:
							jsr			PuTeSaveTxCtl			;for restore after reentrant calls

							ldy			#ofontID+2				;push current font on stack and
							lda			[QDPortRefDPLoc],y		;store font id in static storage
							pha
							sta			PuTeAppFontRequest+2
							dey
							dey
							lda			[QDPortRefDPLoc],y
							pha
							sta			PuTeAppFontRequest+0
							
							lda			PuTeAppFontRequest+2	;find out what app's font size was
							xba									;by scaling it back down from what
							and			#$00FF					;blown-up DrawPicture has done to it
							jsr			PuTeDPScaleDownWordInA
							shortm
							sta			PuTeAppFontRequest+3
							longm
							
							pushlong	PuTeAppFontRequest		;temporarily go back to app's font
							pushword	#0
							_InstallFont
							
							pha									;recreate app string's width in A
							pushlong	PuTeTextPtr				;note that TextWidth is affected by
							pushword	PuTeTextLength			;current spx/chx values
							_TextWidth
							pla
							
							jsr			PuTeScaleUpWordInA		;multiply by printing-scale factor
							
							sta			PuTeWantedWidth			;this is the string width we need
							
							pushword	#0						;restore current font from stack
							_InstallFont
							
							jsr			PuTeRestoreTxCtl		;restore after reentrant QD calls
							
*Reduce wanted width very slightly to work around apparent width call err (can lead to right clip):
							pha									;pass result space
							pha									;pass result space
							pushword	PuTeWantedWidth			;pass wantwidth as fixed: pass int
							pushword	#0						;pass wantwidth as fixed: pass frac
							pushword	#0						;pass K as fixed: pass int
							pushword	#lineLayoutFudgeWidClp	;pass K as fixed: pass frac
							_FixMul								;wantwidth = int (wantwidth.0 * 0.K)
							pla									;retrieve fixed result: ignore frac
							pullword	PuTeWantedWidth			;retrieve fixed result: get int
							
*Now scale spx/chx up from corrected app's 1x to the printing resolution of 2.25x|4.5x:
							lda			#ospExtra
							jsr			PuTeGetQDPortVarInXY
							jsr			PuTeScaleUpLongInXY
							lda			#ospExtra
							jsr			PuTeSetQDPortVarInXY
							
							lda			#ochExtra
							jsr			PuTeGetQDPortVarInXY
							jsr			PuTeScaleUpLongInXY
							lda			#ochExtra
							jsr			PuTeSetQDPortVarInXY
							
*If SpaceExtra is too big (may cause bug), then repeatedly halve it and double number of spaces:
							lda			#ospExtra				;skip this if abs value small enough
							jsr			PuTeGetQDPortVarInXY
							cpy			#$8000
							bcc			PuTeBigSpxFixCk1Pos
PuTeBigSpxFixCk1Neg			cpy			#-lineLayoutBgSpFxLim
							bcs			PuTeBigSpxFixCk1InRng
							bra			PuTeBigSpxFixCk1OutRng
PuTeBigSpxFixCk1Pos			cpy			#lineLayoutBgSpFxLim
							bcs			PuTeBigSpxFixCk1OutRng
PuTeBigSpxFixCk1InRng		brl			PuTeBigSpxFixDone
PuTeBigSpxFixCk1OutRng
							lda			PuTeTextLength			;be sure it's drawstr, not drawchar
							cmp			#2
							bcs			PuTeBigSpxFixCk2Yes
PuTeBigSpxFixCk2No			brl			PuTeBigSpxFixDone
PuTeBigSpxFixCk2Yes
							phy									;save SpaceExtra value on stack
							phx
							
							pushlong	PuTeTextPtr				;make our own copy of the string
							pushlong	#PuTeBigSpxFixBuffer
							pushword	#0
							pushword	PuTeTextLength
							_BlockMove
							
							lda			PuTeTextLength			;initialize growable new str length
							sta			PuTeBigSpxFixStrLen
							
PuTeBigSpxFixLoop												;head of halving/adding spaces loop
							
							plx									;restore SpaceExtra value from stack,
							ply									;halve it, save new smaller value
							jsr			PuTeDivLongInXYBy2
							phy
							phx
							
							ldx			PuTeBigSpxFixStrLen		;turn every space in string into
							lda			#0						;two spaces, but break out of loop
							sta			PuTeBigSpxFixBuffer,x	;unsuccessfully with clean stack
							ldx			#0						;if not enough room in string buffer
PuTeBigSpxFixInsLoop		lda			PuTeBigSpxFixBuffer,x
							and			#$00FF					;here with X as index in str
							beq			PuTeBigSpxInsDone		;zero marks our end in all c/p str's
							cmp			#' '
							bne			PuTeBigSpxInsNext
							phx									;save current index
							push1		#0						;pass source ptr word hi as index
							phk									;note buffer can't cross bank bounds
							txa									;pass source ptr word lo as index
							clc
							adc			#PuTeBigSpxFixBuffer
							pha
							push1		#0						;pass dest ptr word hi as index+1
							phk									;note buffer can't cross bank bounds
							txa									;pass dest ptr word lo as index+1
							sec
							adc			#PuTeBigSpxFixBuffer
							pha
							pushword	#0						;pass len word hi as len-x+1
							txa									;pass len word lo as len-x+1
							eor			#$FFFF					;eor+1 has effect of inverting sign
							ina
							clc									;add len to -x
							adc			PuTeBigSpxFixStrLen
							ina									;plus one for the terminating 0
							pha
							_BlockMove
							plx									;restore current index
							inx									;increment over the two spaces
							inx									;that now exist here
							inc			PuTeBigSpxFixStrLen		;str len++ because of insert
							lda			PuTeBigSpxFixStrLen		;make sure we don't overflow buffer
							cmp			#lineLayoutBgSpFxBuf-4
							bcc			PuTeBigSpxFixInsLoop	;keep going to new str territory
							plx									;here if buffer overflow error
							ply									;clean up stack and abort
							bra			PuTeBigSpxFixDone
PuTeBigSpxInsNext			inx									;keep going to new str territory
							bra			PuTeBigSpxFixInsLoop
							
PuTeBigSpxInsDone
							
							plx									;if abs value small enough now, break
							ply									;out of loop successfully with clean
							cpy			#$8000					;stack and X/Y set with new Spx value
							bcc			PuTeBigSpxFixCk3Pos
PuTeBigSpxFixCk3Neg			cpy			#-lineLayoutBgSpFxLim
							bcs			PuTeBigSpxFixCk3InRng
							bra			PuTeBigSpxFixCk3OutRng
PuTeBigSpxFixCk3Pos			cpy			#lineLayoutBgSpFxLim
							bcc			PuTeBigSpxFixCk3InRng
PuTeBigSpxFixCk3OutRng
							phy									;not ok: do halve/add spaces again
							phx
							bra			PuTeBigSpxFixLoop
PuTeBigSpxFixCk3InRng											;ok: drop thru to finish up
							
PuTeBigSpxFixAccept												;here if successful only, Spx in X/Y
							
							lda			#ospExtra				;update to new smaller SpExtra in X/Y
							jsr			PuTeSetQDPortVarInXY
							
							pha									;multiply ChExtra by (old string
							pha									;length divided by new length) to
							pushword	QDTextLengthDPLoc		;compensate for the fact that our
							pushword	PuTeBigSpxFixStrLen		;added space characters add unwanted
							_FixRatio							;ChExtra width to the string
							pulllong	PuTeBigSpxFixChxCoeff
							lda			#ochExtra
							jsr			PuTeGetQDPortVarInXY
							pha
							pha
							phy
							phx
							pushlong	PuTeBigSpxFixChxCoeff
							_FixMul
							plx
							ply
							lda			#ochExtra
							jsr			PuTeSetQDPortVarInXY
							
							lda			PuTeBigSpxFixStrLen		;tell us and QD len of our new str
							sta			QDTextLengthDPLoc
							sta			PuTeTextLength
							
							lda			#PuTeBigSpxFixBuffer	;point us and QD to our new str
							sta			QDTextPtrDPLoc+0
							sta			PuTeTextPtr+0
							lda			#^PuTeBigSpxFixBuffer
							sta			QDTextPtrDPLoc+2
							sta			PuTeTextPtr+2
														
PuTeBigSpxFixDone												;here if successful or not
							
*Get would-be width with _DP, FMGR, and QD error built in but with correct spx/chx influence:
							jsr			PuTeSaveTxCtl			;we're about to make reentrant call
							pha									;measure string width and store
							pushlong	PuTeTextPtr
							pushword	PuTeTextLength
							_TextWidth
							pla
							sta			PuTeWouldBeWidth
							jsr			PuTeRestoreTxCtl		;recover from reentrant call
							
*Calculate difference (in pixels) between wanted width and would-be width of the current string:
							sec									;delta=wanted-actual, this will
							lda			PuTeWantedWidth			;almost always be negative, mostly
							sbc			PuTeWouldBeWidth		;caused by 4.5x->5x _DP font select
							sta			PuTeSignedDeltaWidth	;err, FM scale err, QD face-mod err
							
*Count number of spaces in string which we will need shortly:
							stz			PuTeTextSpaces
							lda			PuTeTextPtr+0
							sta			PuTeCountSpcLoopLda+1+0
							lda			PuTeTextPtr+2
							shortm
							sta			PuTeCountSpcLoopLda+1+2
							ldx			#0
PuTeCountSpcLoopLda			lda			>$FFFFFF,x
							cmp			#$20					;($A0 not a space in extended set)
							bne			PuTeCountSpcNext
							inc			PuTeTextSpaces
PuTeCountSpcNext			inx
							cpx			PuTeTextLength
							bne			PuTeCountSpcLoopLda
							longm
							
*Assign a certain part of the delta to be handled by the spaces if possible:
							pha									;pass result space
							pha									;pass result space
							pushword	PuTeSignedDeltaWidth	;pass signed dividend
							pushword	#lineLayoutAmtToSp		;pass divisor
							_SDivide
							pla									;retrieve quotient, this is num pix
							sta			PuTeSignedDeltaWidthSp	;to attempt to spread over spaces
							pla									;ignore remainder
							
*Figure out signed SpaceExtra correction, subject to number of available spaces in string:
							lda			PuTeTextSpaces			;take number of desired pixels to
							bne			PuTeCalcDeltaSPXNon0	;apply to spaces and the number of
							stz			PuTeDeltaSpExtra+0		;spaces to come up with SpaceExtra
							stz			PuTeDeltaSpExtra+2		;if 0 spaces available, then zero
							stz			PuTeSignedDeltaWidthSp	;the SpaceExtra correction value
							bra			PuTeCalcDeltaSPXDone	;and thus don't divide by zero
PuTeCalcDeltaSPXNon0							
							pha									;pass result space
							pha									;pass result space
							pushword	PuTeSignedDeltaWidthSp	;pass num delta pix apply to spaces
							pushword	PuTeTextSpaces			;pass num spaces available in string
							_FixRatio
							pulllong	PuTeDeltaSpExtra		;retrieve final spc delta correction
PuTeCalcDeltaSPXDone
							
*Figure out signed CharExtra correction, picking up what SpaceExtra isn't able to handle:
							lda			PuTeSignedDeltaWidth	;figure out number of delta pixels
							sec									;still to apply after SpaceExtra
							sbc			PuTeSignedDeltaWidthSp	;this may of course be all of them
							sta			PuTeSignedDeltaWidthCh	;if there were no spaces in string
							
							pha									;pass result space
							pha									;pass result space
							pushword	PuTeSignedDeltaWidthCh	;pass num delta pix apply to chars
							pushword	PuTeTextLength			;pass num chars in string
							_FixRatio
							pulllong	PuTeDeltaChExtra		;retrieve final chr delta correction
							
*Add our final _DP/FMGR/QD error correction deltas to currently correctly scaled spx/chx:
							lda			#ospExtra
							jsr			PuTeGetQDPortVarInXY
							clc
							txa
							adc			PuTeDeltaSpExtra+0
							tax
							tya
							adc			PuTeDeltaSpExtra+2
							tay
							lda			#ospExtra
							jsr			PuTeSetQDPortVarInXY
							
							lda			#ochExtra
							jsr			PuTeGetQDPortVarInXY
							clc
							txa
							adc			PuTeDeltaChExtra+0
							tax
							tya
							adc			PuTeDeltaChExtra+2
							tay
							lda			#ochExtra
							jsr			PuTeSetQDPortVarInXY
							
*Here if done with line layout calculations or entry point for line layout bypass:
PuTeLineLayoutDone
							
*If not disabled by wDev bit and text mode is 0, force modeForeCopy to avoid descender clipping:
							import		OpDoIsForceTxMDisable
							lda			OpDoIsForceTxMDisable	;if wDev bit disables this,
							bne			PuTeForceTxModeDone		;skip next few lines
							ldy			#otxMode				;get current text transfer mode
							lda			[QDPortRefDPLoc],y
							bne			PuTeForceTxModeDone		;if other than 0 don't modify
							lda			#$0004					;else set to modeForeCopy, will not
							sta			[QDPortRefDPLoc],y		;always be the right thing to do
PuTeForceTxModeDone
							
*Setup JSL below to the real QD StdText code:
							import		OpDoOldPlyQDProcs
							lda 		OpDoOldPlyQDProcs+ostdText+0
							ina
							sta			PuTeGoQDStdTextJsl+1+0
							lda			OpDoOldPlyQDProcs+ostdText+2
							shortm
							sta			PuTeGoQDStdTextJsl+1+2
							longm
							
*Call the real QD StdText code, which draws the string under influence of our spx/chx values:
							plb									;switch in QuickDraw's B setting
							lda			#0
							clc
PuTeGoQDStdTextJsl			jsl			>$FFFFFF				;NOTE: operand is stuffed
							phb									;switch in our B setting again
							phk
							plb
							
*Restore format-oriented settings (spx/chx/etc) that we altered back to previous values:
							jsr			PuTeRestoreSpxChxTxm
							
*However, do not restore control-oriented grafport settings now that we've done real drawing:
							
*Exit point from this entire routine which restores QD bank and exits with no error:
							plb
							lda			#0
							clc
							rtl
							
*Subroutine that multiplies positive word in A by scaling factor (*2.25|*4.5): Input/Output -> A:
PuTeScaleUpWordInA			tax									;make it a long in X/Y
							ldy			#0
							jsr			PuTeScaleUpLongInXY		;call the long scale routine
							txa									;get word back in A
							rts									;exit back to caller
							
*Subroutine that multiplies signed long in X/Y by scaling factor (*2.25|*4.5): Input/Output -> X/Y:
PuTeScaleUpLongInXY			jsr			PuTeMulLongInXYBy9		;now it's *9
							jsr			PuTeDivLongInXYBy2		;now it's *4.5
							import		OpDoIsQualityHigh
							lda			OpDoIsQualityHigh		;divide by 2 if lo quality
							bne			PuTeScaleUpLongQualExit	;now it's *2.25/*4.5
							jsr			PuTeDivLongInXYBy2		;if lo/hi qual
PuTeScaleUpLongQualExit		rts									;exit back to caller
							
*Subroutine that divides positive word in A by DrawPicture factor (/2.5|/5): Input/Output -> A:
PuTeDPScaleDownWordInA		tax									;make it a long in X/Y
							ldy			#0
							
							jsr			PuTeMulLongInXYBy2		;now it's *2
							
							import		OpDoIsQualityHigh
							lda			OpDoIsQualityHigh		;multiply by 2 if lo quality
							bne			PuTeDPScaleDownQualDone	;now it's *4/*2 if lo/hi quality
							jsr			PuTeMulLongInXYBy2
PuTeDPScaleDownQualDone
							pha									;pass result space
							pha									;pass result space
							phx									;pass dividend, lo, hope no overflow
							pushword	#10						;pass divisor
							_UDivide							;now it's /2.5 | /5 if lo|hi qual
							pla									;retrieve quotient word in A
							plx									;retrieve remainder and ignore
							
							rts									;exit back to caller
							
*Subroutine that multiplies long value in X/Y by 9: Input/Output lo/hi -> X/Y:
PuTeMulLongInXYBy9			phy									;save original value on stack
							phx
							
							jsr			PuTeMulLongInXYBy2		;now it's *2
							jsr			PuTeMulLongInXYBy2		;now it's *4
							jsr			PuTeMulLongInXYBy2		;now it's *8
							
							clc									;make it *9 by add orig value
							txa
							adc			1,s
							tax
							tya
							adc			3,s
							tay
							
							pla									;remove saved value from stack
							pla
							
							rts									;exit back to caller
							
*Subroutine that multiplies long value in X/Y by 2: Input/Output lo/hi ->X/Y:
PuTeMulLongInXYBy2			txa									;times 2 by left shift long
							asl a								;start with lo word, shift up
							tax									;and then rotate carry with lo
							tya									;word's highest bit into hi word
							rol a
							tay
							rts
							
*Subroutine that divides long value in X/Y by 2: Input/Output lo/hi ->X/Y:
PuTeDivLongInXYBy2			tya									;divide by two by right shift long
							lsr a								;start with hi word, shift down
							tay									;and then rotate carry with hi
							txa									;word's lowest bit into lo word
							ror a
							tax
							rts
							
*Subroutine that saves format-oriented GrafPort text settings (SpaceExtra, CharExtra, TextMode):
PuTeSaveSpxChxTxm			lda			#ospExtra
							jsr			PuTeGetQDPortVarInXY
							stx			PuTeSavedPortSpExtra_l+0
							sty			PuTeSavedPortSpExtra_l+2
							
							lda			#ochExtra
							jsr			PuTeGetQDPortVarInXY
							stx			PuTeSavedPortChExtra_l+0
							sty			PuTeSavedPortChExtra_l+2
							
							ldy			#otxMode
							lda			[QDPortRefDPLoc],y
							sta			PuTeSavedPortTxMode_w
							
							rts
							
*Subroutine that restores format-oriented GrafPort text settings (SpaceExtra, CharExtra, TextMode):
PuTeRestoreSpxChxTxm		ldy			#otxMode
							lda			PuTeSavedPortTxMode_w
							sta			[QDPortRefDPLoc],y
							
							lda			#ochExtra
							ldx			PuTeSavedPortChExtra_l+0
							ldy			PuTeSavedPortChExtra_l+2
							jsr			PuTeSetQDPortVarInXY
							
							lda			#ospExtra
							ldx			PuTeSavedPortSpExtra_l+0
							ldy			PuTeSavedPortSpExtra_l+2
							jsr			PuTeSetQDPortVarInXY
														
							rts
							
*Subroutine that gets long value from current GrafPort: Offset->A, X/Y->lo/hi long value:
PuTeGetQDPortVarInXY		tay
							lda			[QDPortRefDPLoc],y
							tax
							iny
							iny
							lda			[QDPortRefDPLoc],y
							tay
							rts
							
*Subroutine that sets long value into current GrafPort: Offset->A, long value to store lo/hi->X/Y:
PuTeSetQDPortVarInXY		phy
							tay
							txa
							sta			[QDPortRefDPLoc],y
							iny
							iny
							pla
							sta			[QDPortRefDPLoc],y
							rts
							
*Subroutine that saves control-oriented QD-Global text state (DrawVerb, Ptr, Rect, Etc):
PuTeSaveTxCtl				lda			QDDrawVerbDPLoc
							sta			PuTeSavedGlobDrawVerb_w
							
							lda			QDTextPtrDPLoc+0
							sta			PuTeSavedGlobTextPtr_l+0
							lda			QDTextPtrDPLoc+2
							sta			PuTeSavedGlobTextPtr_l+2
							
							lda			QDTextLengthDPLoc
							sta			PuTeSavedGlobTextLength_w
							
							lda			QDCharToDrawDPLoc
							sta			PuTeSavedGlobCharToDraw_w
							
							lda			QDRectPtrDPLoc+0
							sta			PuTeSavedGlobRectPtr_l+0
							lda			QDRectPtrDPLoc+2
							sta			PuTeSavedGlobRectPtr_l+2
							
							rts
							
*Subroutine that restores control-oriented QD-Global text state (DrawVerb, Ptr, Rect, Etc):
PuTeRestoreTxCtl			lda			PuTeSavedGlobRectPtr_l+0
							sta			QDRectPtrDPLoc+0
							lda			PuTeSavedGlobRectPtr_l+2
							sta			QDRectPtrDPLoc+2
							
							lda			PuTeSavedGlobCharToDraw_w
							sta			QDCharToDrawDPLoc
							
							lda			PuTeSavedGlobTextLength_w
							sta			QDTextLengthDPLoc
							
							lda			PuTeSavedGlobTextPtr_l+0
							sta			QDTextPtrDPLoc+0
							lda			PuTeSavedGlobTextPtr_l+2
							sta			QDTextPtrDPLoc+2
							
							lda			PuTeSavedGlobDrawVerb_w
							sta			QDDrawVerbDPLoc
							
							rts
							
*Static variables used by this routine:
PuTeTextPtr					dc.l		0						;obtained address of text string
PuTeTextLength				dc.w		0						;obtained length of text string
PuTeTextSpaces				dc.w		0						;obtained num of spaces in string
PuTeChar					dc.w		0						;storage for one-char text if needed
PuTeTextRect				dc.w		0,0,0,0					;obtained unmodified rect of string
PuTeAppFontRequest			dc.l		0						;reconstructed original app font id
PuTeWantedWidth				dc.w		0						;calculated target string width
PuTeWouldBeWidth			dc.w		0						;actual unmodified string width
PuTeSignedDeltaWidth		dc.w		0						;total signed delta width correction
PuTeSignedDeltaWidthSp		dc.w		0						;signed delta pix applied to spaces
PuTeSignedDeltaWidthCh		dc.w		0						;signed delta pix applied to chars
PuTeDeltaSpExtra			dc.l		0						;signed correcting space-extra delta
PuTeDeltaChExtra			dc.l		0						;signed correcting char-extra delta
							
PuTeSavedPortSpExtra_l		dc.l		0						;gport var save/restore storage
PuTeSavedPortChExtra_l		dc.l		0
PuTeSavedPortTxMode_w		dc.w		0
							
PuTeSavedGlobDrawVerb_w		dc.w		0						;global var save/restore storage
PuTeSavedGlobTextPtr_l		dc.l		0
PuTeSavedGlobTextLength_w	dc.w		0
PuTeSavedGlobCharToDraw_w	dc.w		0
PuTeSavedGlobRectPtr_l		dc.l		0

PuTeBigSpxFixStrLen			dc.w		0						;length of new str with more spaces
PuTeBigSpxFixBuffer			ds.b		lineLayoutBgSpFxBuf		;for holding str with more spaces
PuTeBigSpxFixChxCoeff		dc.l		0						;for compensating chx due to spaces







							endproc
							end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/TABASCO/printloop.a b/IIGS.601.SRC/GSToolbox/PrinterDrivers/TABASCO/printloop.a
new file mode 100644
index 0000000..197c6cd
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/TABASCO/printloop.a
@@ -0,0 +1 @@
+
******************************************************************************************
*                                                                                        *
*		Apple IIgs Printer Driver                                                        *
*                                                                                        *
*		File: printloop.a -- High-level sequencer that loops for pages/copies/bands      *
*                                                                                        *
*		Written by Ben Koning                                                            *
*		Copyright (C) 1991 Apple Computer, Inc.                                          *
*                                                                                        *
******************************************************************************************







							include		'equates.h'



							include		'm16.util'
							include		'e16.quickdraw'
							include		'm16.quickdraw'
							include		'm16.qdaux'
							include		'm16.font'
							include		'm16.memory'
							include		'e16.print'
							include		'm16.intmath'
							include		'm16.misctool'
							include		'm16.event'
							include		'm16.locator'



PrintLoopProc				proc		export





*
*HIGH-LEVEL PRINT LOOP CALLS: High-Level printing loop management calls implementing
*the old Macintosh Printing Manager print model, but breaking several rules for performance.
*The functionality of the calls implemented below can be summarized as follows:
*
*	OpenDoc		Allocates offscreen buffer for DrawPicture, establishes I/O, initializes variables
*	OpenPage	Resets variables, begins pict recording
*	ClosePage	Stops pict recording; for each copy, redraws and prints a page in slices
*	CloseDoc	Deallocates all buffers, resets QD globals, closes I/O
*
*GETPRINTLOOPERROR and SETPRINTLOOPERROR allow access to the global PrError error status.  There
*are also a few other routines in this module which are used by the high level routines above.
*
*In this driver, the page definitions of the entire document are not saved during the OpenDoc/
*CloseDoc sequence for playback during PicFile; rather, the copy(s) of each page are printed
*from inside ClosePage; this is why there is no PicFile call.  If an OpenDoc call follows a
*CloseDoc call within a short amount of time, then some of OpenDoc's initialization activities
*are not performed, allowing better operation with programs that treat each page as a separate
*document.  Draft/Text mode is not supported.  Color is not supported.  The page definition is
*pre-clipped to ease the CPU horsepower burden on QuickDraw's DrawPicture call.  Only portrait
*orientation is supported; very limited print scaling options are supported.
*







*
*OPENDOC: Allocates and prepares resources for printing.  Performs the following tasks:
*
*	Set "Is Page As Job" flag if a CloseDoc call just occurred a short time ago
*	Save the user's current grafport for later restore
*	Clear error status, setup level, and page counter
*	Put up box for status messages
*	Initialize our global variables using information from print record
*	Allocate as much memory as possible for banding buffer and calculate its size in pixels
*	Open and setup a grafport to draw the bands, using the memory obtained above
*	Set up QuickDraw globals to handle increased drawing size requirements
*	Open, setup, and make current the grafport that the app will see for recording pict definition;
*	note that this is a different grafport than the one used to manage the banding buffer
*	Open communication channel with printer
*	Configure the imager/printer with information about our band buffer, resolution settings, etc.
*	Show dialog allowing termination if app asks for unsupported driver features; this is done
*	last during the setup process so that normal setup and unsetup is done in the cancel case
*

							export		OpenDoc
OpenDoc

*Set "Is Page As Job" flag only if a CloseDoc call just occurred a few seconds ago:
							stz			OpDoIsPgAsJob			;initially assume the answer is no
							lda			OpDoIsPgAsJobIsTimeSet	;check to see if time was ever set
							beq			OpDoFindOutPgAsJobDone	;no, so we'd better not check time
							pha									;get current tick count
							pha
							_GetTick
							plx									;get tick count lo word in X
							ply									;get tick count hi word in Y
							cpy			OpDoIsPgAsJobTime+2		;compare hi words first
							beq			OpDoFindOutPgAsJobCmpLo	;if equal, go compare lo words
							bcs			OpDoFindOutPgAsJobDone	;if we're past the time, don't set
OpDoFindOutPgAsJobCmpLo		cpx			OpDoIsPgAsJobTime+0		;compare lo words next
							bcs			OpDoFindOutPgAsJobDone	;again, if we're greater, don't set
							lda			#1						;only if the current time is less
							sta			OpDoIsPgAsJob			;than "OpDoIsPgAsJobTime" set flag
OpDoFindOutPgAsJobDone

*Save current caller's grafport for later restore by CloseDoc routine in all cases:
							pha
							pha
							_GetPort
							pulllong	OpDoOldUserGrafPortPtr

*Clear error status which can be set to render most of the print loop calls ineffective:
							lda			OpDoIsPgAsJob			;don't do this if page-as-job
							bne			OpDoDoneClrErrStat
							stz			OpDoErrorStatus
OpDoDoneClrErrStat
							
*Make setup level 0.  We increment whenever we start something up, to facilitate legal shutdown:
							stz			OpDoSetupLevel

*Clear the logical-page counter which is later used to see if we're in page range:
							lda			OpDoIsPgAsJob			;don't do this if page-as-job
							bne			OpDoDoneClrPgCtr
							stz			OpDoPageCounter
OpDoDoneClrPgCtr

*Put up box for status messages, which also changes to the wait cursor:
							import		GetStatMesgDisable		;get A=0/1 if enable/disable
							jsr			GetStatMesgDisable
							import		StartStatusMessage		;pass 0/1 to open mesg box routine
							jsr			StartStatusMessage

*Save print record data needed by Open/Close-Page/PutText/Etc, which can't access print record:
							import		GetPageRange			;page range (from..to) bounds
							jsr			GetPageRange
							stx			OpDoPageRange1st
							sty			OpDoPageRangeLst
*
							import		GetCopies				;number of copies of each page
							jsr			GetCopies
							sta			OpDoTotalCopies
*
							stz			OpDoIsManFeed			;manual or automatic sheet feed
							import		GetFeed
							jsr			GetFeed
							bne			OpDoDoneSetFeed
							inc			OpDoIsManFeed
OpDoDoneSetFeed
*
							import		GetRPageSize			;rPage calculation results
							jsr			GetRPageSize
							stx			OpDoRPageX2
							sty			OpDoRPageY2
*
							import		GetImagingSize			;scaled-up page size calc results
							jsr			GetImagingSize
							stx			OpDoImgSzX2
							sty			OpDoImgSzY2
*
							import		Get640PixMapDisable		;PutPixels needs this to disable
							jsr			Get640PixMapDisable		;our special 640 pixmap handling
							sta			OpDoIs640PixMapDisable	;if app wants it
*
							import		GetLineLayoutDisable	;PutText needs this to disable
							jsr			GetLineLayoutDisable	;line layout if app wants it
							sta			OpDoIsLineLayoutDisable
*
							import		GetForceTxMDisable		;PutText needs this to disable
							jsr			GetForceTxMDisable		;forcing text mode if app wants it
							sta			OpDoIsForceTxMDisable
*
							import		GetQuality				;PutText/PutPixels needs this for
							jsr			GetQuality				;correct scaling adjustments
							sta			OpDoIsQualityHigh
							
*Put up message to show that we're now going to be allocating banding memory:
							import		StMeMallocMesg
							lda			#StMeMallocMesg
							import		StatusMessage
							jsr			StatusMessage
							
*Ask for memory compaction explicitly at this time:
							_CompactMem
							
*Starting to create locinfo to be used by off-screen banding grafport.  Store band tallness/width:
							import		GetImagingSize			;get the scaled-up size of the page
							jsr			GetImagingSize			;image, given current quality setting
							stx			OpDoLocInfoRect+oh2		;store X2; will be modified
							sty			OpDoLocInfoRect+ov2		;store Y2; will be modified

*Begin loop to figure out maximum Y size for banding, with many constraints:
							bra			OpDoAlignBandSize		;go align first to begin with

**Get smaller band by cutting Y size down, and align Y size to an even-imager-multiple:
OpDoTrySmallerBand			lda			OpDoLocInfoRect+ov2		;port: try smaller Y band size
							asl			OpDoLocInfoRect+ov2		;do Y bandsize *= 3/4 by doing
							clc									;*3 followed by /4 and put in place
							adc			OpDoLocInfoRect+ov2
							lsr a
							lsr a
							sta			OpDoLocInfoRect+ov2
OpDoAlignBandSize			pha									;align to multiple for pr head pins
							pha
							pushword	OpDoLocInfoRect+ov2
							import		ImagerGetVAlignFactor
							jsr			ImagerGetVAlignFactor	;obtain vertical align factor in ACC
							pha
							_UDivide
							pla									;ignore quotient from divide
							pullword	ParamWordA				;get remainder
							lda			OpDoLocInfoRect+ov2		;subtract to align it...
							sec
							sbc			ParamWordA
							bcc			OpDoCantGetBandMem		;can't make it any smaller...
							beq			OpDoCantGetBandMem
							sta			OpDoLocInfoRect+ov2
							bra			OpDoCalcLocInfoWidth
OpDoCantGetBandMem			lda			#$0201					;abort with memory full tool err...
OpDoExitAbortErrInACC		sta			errNo
							sta			OpDoErrorStatus
							rts

**Figure out loc info width based on mode (320/640) in effect at recording time and loc info X size:
							import		GetModeByte				;metrics to obtain 320/640 mode
OpDoCalcLocInfoWidth		jsr			GetModeByte				;for finding number pixels per byte
							sta			OpDoLocInfoSCB			;also put mode byte in locinfo
							and			#$80					;check 320/640 mode bit...
							cmp			#1						;...set carry if 640 mode
							lda			OpDoLocInfoRect+oh2		;get rPage X2 in ACC
							bcc			OpDoIts320				;320, so only divide rPageX2 by 2
							lsr	a								;divide by 4 (640 mode), or...
OpDoIts320					lsr	a								;by 2 (320 mode) -> # bytes per line
							sta			OpDoLocInfoWidth		;store band width in bytes

**Figure out how big the band buffer will be, given the above (width still in ACC):
							pha									;result space for multiply...
							pha
							pha									;locinfo.width (bytes) still in acc
							lda			OpDoLocInfoRect+ov2		;times number of lines...
							ina
							pha
							_Multiply
							pulllong	ParamLongB				;plB now has pix buff size we want
							
**Check if buffer size would be greater than 1/4 of the amount of free memory:
OpDoCmpFreeMem				pha
							pha
							_RealFreeMem
							plx
							pla
							lsr a
							tay
							txa
							ror	a
							tax
							tya
							lsr a
							tay
							txa
							ror a								;now have free_mem/4 lo->A, hi->Y
							cpy			ParamLongB+2			;cmp hi words
							beq			OpDoCmpFreeMem1
							bcs			OpDoCmpFreeMemOk
							brl			OpDoTrySmallerBand		;too big, try smaller
OpDoCmpFreeMem1				cmp			ParamLongB+0			;cmp lo words
							bcs			OpDoCmpFreeMemOk
							brl			OpDoTrySmallerBand		;too big, try smaller
OpDoCmpFreeMemOk

**Check if buffer size would be greater than maximum QD-allowed pix buffer size:
OpDoCmpMaxPixBuff			lda			ParamLongB+2			;cmp hi words
							cmp			#QDMaxPixBuff/65536
							beq			OpDoCmpMaxPixBuff1
							bcc			OpDoCmpMaxPixBuffOk
							brl			OpDoTrySmallerBand		;too big, try smaller
OpDoCmpMaxPixBuff1			lda			ParamLongB+0			;cmp lo words
							cmp			#QDMaxPixBuff//65536
							bcc			OpDoCmpMaxPixBuffOk
							brl			OpDoTrySmallerBand		;too big, try smaller
OpDoCmpMaxPixBuffOk

**Try asking for the memory for imaging bands and also obtain a PID for later mallocs/deallocs:
OpDoDoBandMalloc			pha									;result space
							pushword	#UserIDType				;type of process requesting ID
							_GetNewID							;obtain PID
							pullword	OpDoMemPID				;get it
							pha									;result space...
							pha
							pushlong	ParamLongB				;pass size of block requested
							pushword	OpDoMemPID				;pass PID
							pushword	#$C000					;pass attr: locked/fixed
							pha									;pass dummy location
							pha
							_NewHandle
							pulllong	ParamLongA				;get handle, if we got one
							bcc			OpDoOKBandMalloc		;go on if we got one
							pushword	OpDoMemPID				;didn't get handle, try again...
							_DeleteID
							brl			OpDoTrySmallerBand
OpDoOKBandMalloc			inc			OpDoSetupLevel			;bump the setup level to "1"

*Dereference the handle and put the pointer in our locinfo:
							lda			[ParamLongA]
							sta			OpDoLocInfoPixPtr+0
							ldy			#2
							lda			[ParamLongA],y
							sta			OpDoLocInfoPixPtr+2

*Start banding gport.  This gp is one "band" into which slices of pictures are drawn & printed:
							pushlong	#OpDoBandGrafPort		;init fields of grafport, alloc clip
							_OpenPort							;and make it the current gp for now
							bcc			OpDoOKOpenBandPort		;check for error
							brl			OpDoExitAbortErrInACC
OpDoOKOpenBandPort

*The locinfo was prepared above, so now use it:
							pushlong	#OpDoLocInfo			;attach our locinfo to our grafport
							_SetPortLoc

*Set QuickDraw's global internal clip buffers to handle the bigger size of our offscreen bitmap:
							pushlong	#OpDoOldQDBuffRec		;save original buffer widths
							_SaveBufDims
*
							lda			OpDoLocInfoWidth		;buff size for horiz num of bytes...
							cmp			OpDoOldQDBuffMWid		;but never ever smaller!
							bcs			OpDoSetBufDims1
							lda			OpDoOldQDBuffMWid
OpDoSetBufDims1				pha									;pass it to SetBufDims
*
							lda			OpDoOldQDBuffTxHi		;buff size height for font stuff...
							lsr a
							lsr a
							clc
							adc			OpDoOldQDBuffTxHi
							pha									;pass it to SetBufDims
*
							lda			OpDoOldQDBuffFBRx		;buff size for font style mods...
							pha									;pass it to SetBufDims
*
							_SetBufDims							;ask QD for bigger buffers
							bcc			OpDoOKSetBufDims
							brl			OpDoExitAbortErrInACC	;if err, abort pr loop and tool err
OpDoOKSetBufDims			inc			OpDoSetupLevel			;if ok, bump setup level to "2"

*Set port rect, clip rgn, and vis rgn of band gp to now-known rect instead of screen-sized defaults:
							pushlong	#OpDoLocInfoRect		;(1) set main grafport rect
							_SetPortRect
							pushlong	#OpDoLocInfoRect		;(2) set clip region
							_ClipRect
							pha									;(3) set vis region
							pha
							_GetVisHandle						;leave hdl on stack for SetRectRgn
							pushword	OpDoLocInfoRect+oh1
							pushword	OpDoLocInfoRect+ov1
							pushword	OpDoLocInfoRect+oh2
							pushword	OpDoLocInfoRect+ov2
							_SetRectRgn
							
*Install our own bottleprocs into the band buffer grafport and save the addresses of real procs:
							pushlong	#OpDoOldPlyQDProcs		;save addresses of the real procs
							_SetStdProcs						;and also get list for our install
							pushlong	#OpDoNewPlyQDProcs		;into our band port; will be called
							_SetStdProcs						;from inside DrawPicture
							
							import		GetPict
							lda			#(GetPict-1)
							sta			OpDoNewPlyQDProcs+ostdGetPic+0
							lda			#^(GetPict-1)
							sta			OpDoNewPlyQDProcs+ostdGetPic+2
							
							import		PutText
							lda			#(PutText-1)
							sta			OpDoNewPlyQDProcs+ostdText+0
							lda			#^(PutText-1)
							sta			OpDoNewPlyQDProcs+ostdText+2
							
							import		PutPixels
							lda			#(PutPixels-1)
							sta			OpDoNewPlyQDProcs+ostdPixels+0
							lda			#^(PutPixels-1)
							sta			OpDoNewPlyQDProcs+ostdPixels+2
							
							pushlong	#OpDoNewPlyQDProcs		;install our procs
							_SetGrafProcs
							
*Calculate # of band passes needed: (Imaging Y Size) / Band Y Size, rounded up, with remainder:
							import		GetImagingSize			;get size of offscreen buffer we
							jsr			GetImagingSize			;would have liked... will compare
							tya									;portrait mode: get Y size in acc
							ldx			OpDoLocInfoRect+ov2		;now ACC & X valid, go calc
							stx			OpDoLastBandHeight		;ACC has imgsize,   ;initialize this
							pha									;X has bandsize     ;result space
							pha									;result space
							pha									;pass tallness of pic to be printed
							phx									;pass tallness of our band buffer
							_UDivide
							pla									;get quotient (# whole bands) in ACC
							plx									;get remainder (# lines) in X
							beq			OpDoCalcPassesStore		;skip next few lines if no remainder
							stx			OpDoLastBandHeight		;if non-0 rem thn its sz of lst band,
							ina									;and inc, must do 1 more smaller band
OpDoCalcPassesStore			sta			OpDoTotalBands			;now store number of passes needed

*Now that we have a banding buffer and its grafport, set up memory for a 2nd gp for pict recording:
							lda			printGrafPortPtr+0		;first copy the user-given parameter
							sta			OpDoCalcGrafPortPtr+0	;to our own ptr-storage. if not nil,
							lda			printGrafPortPtr+2		;then we'll use it; else, we point
							sta			OpDoCalcGrafPortPtr+2	;our pointer at our storage and also
							ora			printGrafPortPtr+0		;return the address of our storage
							bne			OpDoMallocCalcGPDone	;back to the caller...
							lda			#OpDoCalcGrafPort
							sta			printGrafPortPtr+0
							sta			OpDoCalcGrafPortPtr+0
							lda			#^OpDoCalcGrafPort
							sta			printGrafPortPtr+2
							sta			OpDoCalcGrafPortPtr+2
OpDoMallocCalcGPDone

*Open the calc/record gp and make *it* the curr gp.  OpenPage will re-init it for each new page:
							pushlong	OpDoCalcGrafPortPtr		;now use user's or our memory
							_OpenPort							;as a grafport and alloc clip rgns
							bcc			OpDoNoPortErr
							brl			OpDoExitAbortErrInACC	;if err exit with acc set
OpDoNoPortErr				_HidePen							;this port will never draw on screen
							
*Put up message to show that we're sending setup commands to the printer:
							import		StMePrinterResetMesg
							lda			#StMePrinterResetMesg
							import		StatusMessageWait
							jsr			StatusMessageWait
							
*Init imager and get unique connection with device; if err, show mesg, cause print loop abort, exit:
							import		ImagerOpen
							jsr			ImagerOpen				;call imager, which calls comm
							bcc			OpDoImagerOpenOK		;skip following few lines if ok
							import		StMeCantOpenMesg
							lda			#StMeCantOpenMesg
							import		StatusMessageWait
							jsr			StatusMessageWait		;put complaint up in status box
							import		DoCantOpenAlert
							jsr			DoCantOpenAlert			;conduct error dialog box with user
OpDoExitAbortButNoTErr		lda			#prAbort
							sta			OpDoErrorStatus			;set PrError status and exit
							rts
OpDoImagerOpenOK

*Configure the imager with bandbuffer locinfo, quality, mode, idleproc, and other settings:
							ldx			#OpDoLocInfo
							ldy			#^OpDoLocInfo			;pass pointer to our band buffer
							import		ImagerSetLocInfo		;locinfo struct to imager:
							jsr			ImagerSetLocInfo		;lo->X, hi->Y
*
							import		ImagerSetGrays			;allow imager to build grayscales
							jsr			ImagerSetGrays			;from current color table settings
*
							lda			OpDoIsManFeed			;pass 0/1 if auto/man feed to imager
							import		ImagerSetFeed
							jsr			ImagerSetFeed
*
							import		GetQuality				;get res setting from quality setting
							jsr			GetQuality				;in print record in A and pass to
							import		ImagerSetResolution		;imager in A; imgr will print smaller
							jsr			ImagerSetResolution		;to compensate for our blown-up image
*
							import		GetVSize				;get vert 50% reduction setting from
							jsr			GetVSize				;print record: A=0/1 if 100%v/50%v
							import		ImagerSetVCondense		;pass this information back in A
							jsr			ImagerSetVCondense		;to the imager
*
							import		GetIdleProc				;get idleproc pointer from print
							jsr			GetIdleProc				;record: lo->X, hi->Y
							import		ImagerSetIdleProc		;pass idleproc pointer to
							jsr			ImagerSetIdleProc		;imager: lo->X, hi->Y
*
							ldx			#OpDoErrorStatus		;provide imager with the address of
							ldy			#^OpDoErrorStatus		;the global prError status so that
							import		ImagerSetAbortPoll		;it can abort if it ever goes nonzero
							jsr			ImagerSetAbortPoll		;lo->X, hi->Y
							
*Set status proc pointer in communications module so we can deal with recoverable printer problems:
							import		CommSetStatusProc
							ldx			#PrinterStatusHandler
							ldy			#^PrinterStatusHandler
							jsr			CommSetStatusProc
							
*Request that the imager initialize the device for printing:
							lda			OpDoIsPgAsJob			;get 0/1 if normal/pg-as-job
							import		ImagerReady				;pass it: if pg-as-job condition,
							jsr			ImagerReady				;then printer-reset won't be done
							
*Put up message to show that we're out of opendoc (many apps take quite a while after this):
							import		StMePrepRxPgDataMesg
							lda			#StMePrepRxPgDataMesg
							import		StatusMessageWait
							jsr			StatusMessageWait
							
*Warn user if application is asking for unsupported driver features and allow print loop abort:
							import		CheckAndDoFeatureAlert	;check if ok
							jsr			CheckAndDoFeatureAlert
							cmp			#0
							beq			OpDoDoneFeatureCheck	;if ok, just go on
							lda			#prAbort				;else set the abort but allow
							sta			OpDoErrorStatus			;normal setup/unsetup/abort
OpDoDoneFeatureCheck
							
*Exit from tool call; current grafport is the rec/calc gp; next expected call will be OpenPage:
							rts



*Static memory for holding QuickDraw's GrafPort drawing-environment-context data structures:
OpDoBandGrafPort			ds.b		$AA						;port to manage banding buffer
OpDoCalcGrafPort			ds.b		$AA						;port for calc/recording; app sees
OpDoOldUserGrafPortPtr		dc.l		0						;user's currnt port before print loop
OpDoCalcGrafPortPtr			dc.l		0						;pointer to our or user's calc port

*User ID for mallocing memory during this routine for banding buffer, etc:
							export		OpDoMemPID				;patches need access
OpDoMemPID					dc.w		0

*GrafPort.LocInfo record describing banding buffer (offscreen pixelmap):
							export		OpDoLocInfoRect			;patches need access
OpDoLocInfo:													;struct defining pixelmap
OpDoLocInfoSCB				dc.w		0						;portSCB
OpDoLocInfoPixPtr			dc.l		0						;ptrToPixImage ptr to imaging buffer
OpDoLocInfoWidth			dc.w		0						;width of one scan line in bytes
OpDoLocInfoRect				dc.w		0,0,0,0					;boundsRect in pixels

*Further information about the bands into which the page image will be rendered:
OpDoTotalBands				dc.w		0						;number of bands page is split into
OpDoLastBandHeight			dc.w		0						;height of special-case last band

*Area for patching our bottleprocs into the banding-buffer-playback grafport and saving old procs:
							export		OpDoOldPlyQDProcs		;patches need access
OpDoOldPlyQDProcs			ds.b		$38						;bottleneck proc pointers
OpDoNewPlyQDProcs			ds.b		$38						;bottleneck proc pointers

*QuickDraw global buffer size information record storage:
OpDoOldQDBuffRec:												;to save/alter/restore QD buffers
OpDoOldQDBuffMWid			dc.w		0
OpDoOldQDBuffTxHi			dc.w		0
OpDoOldQDBuffTxWi			dc.w		0
OpDoOldQDBuffFBRx			dc.w		0

*Setup-status used to shut things down correctly and global print-loop-error ("PrError") status:
OpDoErrorStatus				dc.w		0						;our global error status
OpDoSetupLevel				dc.w		0						;0)mesg box 1)band malloc 2)bufdims

*Variables to investigate and report if each page is being treated as its own job:
OpDoIsPgAsJobIsTimeSet		dc.w		0						;0=init 1=time set at least once
OpDoIsPgAsJobTime			dc.l		0						;time+offset, as set by CloseDoc
OpDoIsPgAsJob				dc.w		0						;result: 0=normal 1=page-as-job

*Information obtained from metrics calls needed later which require print record presence:
							export		OpDoIs640PixMapDisable	;patches need access
							export		OpDoIsLineLayoutDisable	;patches need access
							export		OpDoIsForceTxMDisable	;patches need access
							export		OpDoIsQualityHigh		;patches need access
OpDoTotalCopies				dc.w		0						;number of copies requested
OpDoPageRange1st			dc.w		0						;first page number requested
OpDoPageRangeLst			dc.w		0						;last page number requested
OpDoIsManFeed				dc.w		0						;GetFeed call result @ OpenDoc
OpDoRPageX2					dc.w		0						;from rPage from metrics
OpDoRPageY2					dc.w		0						;from rPage from metrics
OpDoImgSzX2					dc.w		0						;from get-imaging-size from metrics
OpDoImgSzY2					dc.w		0						;from get-imaging-size from metrics
OpDoIs640PixMapDisable		dc.w		0						;flag 1=disabling special 640 pixmap
OpDoIsLineLayoutDisable		dc.w		0						;flag 1=disabling line layout
OpDoIsForceTxMDisable		dc.w		0						;flag 1=disabling forcing text mode
OpDoIsQualityHigh			dc.w		0						;flag shows resolution 0=lo,1=hi

*Keeping track of the number of times OpenPage/ClosePage pair is called:
OpDoPageCounter				dc.w		0







*
*OPENPAGE: Designates beginning of page definition.  Performs the following tasks:
*
*	Exit if error status
*	Ensure that we are using our or the user's grafport memory for the recording grafport
*	Init, and make current, the recording grafport to all default penwidth, fonts, colors, etc.
*	Inc page count and check to make sure we're inside page range: exit if no, set flag if yes
*	Begin picture recording; all subsequent application's QuickDraw commands will be recorded
*

							export		OpenPage
OpenPage

*Check to make sure no print error exists; if so, disable this routine:
							lda			OpDoErrorStatus
							beq			OpPaDontDisable
OpPaExit1					rts
OpPaDontDisable

*Ensure that our pointer to the calculation/recording grafport is up to date if owned by caller:
							lda			printGrafPortPtr+0
							tax
							ora			printGrafPortPtr+2
							beq			OpPaDoneUpdateCalcGPPtr
							stx			OpDoCalcGrafPortPtr+0
							lda			printGrafPortPtr+2
							sta			OpDoCalcGrafPortPtr+2
OpPaDoneUpdateCalcGPPtr

*Init the recording gp to all-default settings for new page, and set it as the current grafport:
							lda			OpDoCalcGrafPortPtr+2	;get a copy of the calc grafport ptr
							sta			ParamLongA+2			;and also pass it on the stack...
							pha
							lda			OpDoCalcGrafPortPtr+0
							sta			ParamLongA+0
							pha
							_InitPort							;init and set as current gp
							lda			#0						;zero the bounds rect so that
							ldy			#oBoundsRect			;no physical drawing occurs; we do
OpPaZeroBoundsRectLoop1		sta			[ParamLongA],y			;this here even if we're not in
							iny									;page range
							iny
							cpy			#oBoundsRect+8
							bne			OpPaZeroBoundsRectLoop1

*Increment abs pg count so we can compare it against user-selected pg range; first number is 1:
							inc			OpDoPageCounter

*Show message in box that says we are recording, but not yet printing, the current page number:
							import		StMeRxCurrentPgMesg
							lda			#StMeRxCurrentPgMesg
							ldx			OpDoPageCounter
							jsr			ShowStatusWithParam

*Assume we're not in page range; this flag may be modified in a moment:
							stz			OpPaInPageRange

*Check page range, we want no action if this page isn't to be printed, so exit if out of pg range:
							lda			OpDoIsPgAsJob			;check if page-as-job
							beq			OpPaCheckPgRangeNormal	;if not, check it straightforwardly
							
OpPaCheckPgRangeForPgAsJob	lda			OpDoPageRange1st		;if page-as-job, we know we're in
							cmp			#2						;range if only 1stpage < 2
							bcc			OpPaItsInPageRange
							bra			OpPaExit1
							
OpPaCheckPgRangeNormal		ldx			OpDoPageRange1st		;see if we're going to do anything...
							ldy			OpDoPageRangeLst		;at all... 1stpage->X Lstpage->Y
							cpx			OpDoPageCounter			;cmp current page# with first page#
							bcc			OpPaItsInRange1st		;current page# >= first page#...
							bne			OpPaExit1				;abort if out of page range
OpPaItsInRange1st			cpy			OpDoPageCounter			;cmp current page# with last page#
							bcc			OpPaExit1				;if not current page# <= last page#
OpPaItsInPageRange

*Tell ClosePage that we're really going to be recording a page for printing:
							lda			#1
							sta			OpPaInPageRange

*Fill in X2,Y2 in rectangle/data used several times in a few moments:
							lda			OpDoRPageX2				;get calculated size
							sta			OpPaPicFrameX2			;store into our rect's X2,Y2...
							lda			OpDoRPageY2
							sta			OpPaPicFrameY2
							stz			OpPaPicFrameX1			;also zero X1,Y1 in case it
							stz			OpPaPicFrameY1			;was modified last time

*But if user passed a non-NIL picture frame (scaling) rectangle, use it instead of ours:
							lda			pageFramePtr+0			;check user picture frame for NIL...
							ora			pageFramePtr+2
							beq			OpPaDoneCpUsrPicFrame	;branch away if user passed NIL
							ldy			#0						;else copy their rect...
OpPaCpUsrPicFrameLoop1		lda			[pageFramePtr],y
							sta			OpPaPicFrame,y
							iny
							iny
							cpy			#8
							bne			OpPaCpUsrPicFrameLoop1
OpPaDoneCpUsrPicFrame

*Set all clipping settings of the recording grafport to rPage rect or user's rect:
							pushlong	#OpPaPicFrame			;(1) set main grafport rect
							_SetPortRect
							pushlong	#OpPaPicFrame			;(2) set clip region
							_ClipRect
							pha									;(3) set vis region
							pha
							_GetVisHandle						;leave hdl on stack for SetRectRgn
							pushword OpPaPicFrame+oh1
							pushword OpPaPicFrame+ov1
							pushword OpPaPicFrame+oh2
							pushword OpPaPicFrame+ov2
							_SetRectRgn

*Set some of the bottleprocs in the recording grafport to our patch procs:
							pushlong	#OpPaRecQDProcs
							_SetStdProcs
							
							import		PutPict
							lda			#(PutPict-1)
							sta			OpPaRecQDProcs+ostdPutPic+0
							lda			#^(PutPict-1)
							sta			OpPaRecQDProcs+ostdPutPic+2
							
							pushlong	#OpPaRecQDProcs
							_SetGrafProcs
							
*Tell QuickDraw to start making drawing commands go into picture definition and not to screen:
							import		SpoolStartPut			;get our VM routines ready
							jsr			SpoolStartPut
							
							pha									;compensate for quirk where we
							_GetMasterSCB						;must store the first part of PICT
							pullword	OpPaPicSCB				;ourselves if GetPic/PutPic patched
							lda			#10						;length: 10 bytes
							sta			ParamLongB+0
							stz			ParamLongB+2
							lda			#OpPaPicSetupHeader		;ptr: our struct
							sta			ParamLongC+0
							lda			#^OpPaPicSetupHeader
							sta			ParamLongC+2
							import		SpoolPut				;go store the beginning bytes
							jsr			SpoolPut
							
							pha									;result space...
							pha
							pushlong	#OpPaPicFrame			;user's or our picframe
							_OpenPicture						;has effect of a "_HidePen"
							pulllong	OpPaUnusedPictHdl		;save this even though spooling

*Done; current gp is the rec/calc port; app will do qd commands now which will be recorded:
OpPaExit					rts



*PICT setup struct and picture frame rectangle for passing to OpenPicture and to ClipRect:
OpPaPicSetupHeader
OpPaPicSCB					dc.w		0						;SCB
OpPaPicFrame
OpPaPicFrameY1				dc.w		0						;Y1
OpPaPicFrameX1				dc.w		0						;X1
OpPaPicFrameY2				dc.w		0						;Y2
OpPaPicFrameX2				dc.w		0						;X2

*Handle to the picture containing the definition of the current page:
OpPaUnusedPictHdl			dc.l		0						;handle from QD pict calls

*Flag to indicate whether we are actually recording and printing the current page:
OpPaInPageRange				dc.w		0						;are we really doing a page

*Patch area for setting our bottleprocs into recording grafport:
OpPaRecQDProcs				ds.b		$38						;bottleneck proc pointers








*
*CLOSEPAGE: Designates end of page definition.  Performs the following tasks:
*
*	Exit if error or abort status, or if we weren't in selected from..to page range
*	Finish the picture recording process
*	Apply font manager performance patch
*	Loop for all copies
*	Do manual sheet-feed dialog, if necessary; allow abort request
*	Loop for all bands
*	Call DrawPicture to render marks within the band for which we have memory, at blown-up size
*	Call Imager to cause the printer to mark the paper with the data in banding memory
*	Disable the print loop if abort is requested by application or user
*	Deallocate recorded page definition storage
*	Remove font manager performance patch
*

							export		ClosePage
ClosePage

*Check print loop status; if set, then disable this routine:
							lda			OpDoErrorStatus
							beq			ClPaDontDisable
ClPaExit1					rts
ClPaDontDisable

*Check if currently in page range, ie, check if OpenPage really recorded a page for us:
							lda			OpPaInPageRange
							beq			ClPaExit1
							
*We've obtained a PICT defining current page contents, so stop recording:
							_ClosePicture						;tell QD to stop recording
							
							import		SpoolFinishPut			;tell VM routines to stop recording
							jsr			SpoolFinishPut
							import		SpoolStartGet			;tell VM routines ready for playback
							jsr			SpoolStartGet
							import		SpoolMarkGet			;tell VM routines where to return to
							jsr			SpoolMarkGet
							
*Now switch from the recording grafport to the playback/banding grafport:
							pushlong	#OpDoBandGrafPort
							_SetPort

*Apply our patch for "InstallWithStats" font manager call which is called during DrawPicture:
							import		ClipInstallWithStats
							pha
							pha
							pushword	#0						;system tool set
							pushword	#027					;tool set 27: Font Manager
							_GetTSPtr
							pulllong	ParamLongA
							ldy			#4*$1C					;save real "InstallWithStats" adrs
							lda			[ParamLongA],y
							ina
							sta			ClPaOldIWSAddr+0
							iny
							iny
							lda			[ParamLongA],y
							sta			ClPaOldIWSAddr+2
							ldy			#4*$1C					;patch "InstallWithStats" adrs
							lda			#ClipInstallWithStats
							dea
							sta			[ParamLongA],y
							iny
							iny
							lda			#^ClipInstallWithStats
							sta			[ParamLongA],y

**Initialize for looping through multiple copies of the current page:
							lda			#1						;we'll count real-copy-numbers
							sta			ClPaCurrentCopy			;from 1..TotalCopies

**Status message: initialize for alternating page/copy display; always show PAGE first:
							stz			SpcCounterForCpPgMsg

**Head of code to print one copy:
ClPaPrintOneMoreCopy		

**Do manual-sheet-feed dialog with user if necessary; allow cancel option:
							lda			OpDoIsManFeed			;find out if we have to do dialog
							beq			ClPaManFeedDiDone		;don't do dialog if auto feed
							import		StatusMessageManFeed	;put up the dialog until the user
							jsr			StatusMessageManFeed	;hits ok or cancel
							bcc			ClPaManFeedDiDone		;if carry set, user hit cancel
							brl			ClPaMesgAbortPrintLoop	;in which case go terminate
ClPaManFeedDiDone

**Status message:  show/refresh short-lived page/copy number status:
							jsr			ShowPageOrCopyMesg

***Initialize for looping through bands to print the picture a slice at a time:
							lda			#1						;real-band-numbers starting at 1
							sta			ClPaCurrentBand			;we'll stop at OpDoTotalBands

***Head of code to print one band:
ClPaPrintOneMoreBand

***Get the scaled-up picture-playback size:
							lda			OpDoImgSzX2				;store as 0,0,Y2,X2...
							sta			ClPaDestRect+oh2
							lda			OpDoImgSzY2
							sta			ClPaDestRect+ov2
							stz			ClPaDestRect+oh1
							stz			ClPaDestRect+ov1

***Calculate offset to play back the next part of picture into the banding buffer:
ClPaCalcOffset				ldx			OpDoLocInfoRect+ov2
							lda			ClPaCurrentBand			;get current band number index
							dea									;minus one to get start index at 0
							pha									;result space
							pha
							pha									;pass current band
							phx									;pass band size
							_Multiply							;multiply to get destrect offset
							pullword	ParamWordA				;save for subtracts in a minute
							pla									;ignore result hi word

***Subtract the offset obtained above from Y1 & Y2:
							lda			ClPaDestRect+ov1		;destrect.y1 -= band height * band#
							sec
							sbc			ParamWordA
							sta			ClPaDestRect+ov1
							lda			ClPaDestRect+ov2		;destrect.y2 -= band height * band#
							sec
							sbc			ParamWordA
							sta			ClPaDestRect+ov2

***Status message: indicate that DrawPicture is creating image of current page:
							import		StMeRenderingMesg
							lda			#StMeRenderingMesg
							import		StatusMessage
							jsr			StatusMessage

***Clear the band buffer to white using our (unmodified default white) band grafport background:
							pushlong	#OpDoLocInfoRect
							_EraseRect

***Call DrawPicture to draw upscaled page image, showing only a slice into banding/imaging buffer:
							import		SpoolReturnToMarkGet	;recue VM to beginning of PICT
							jsr			SpoolReturnToMarkGet
							
							pushlong	OpPaUnusedPictHdl		;unused hdl: *we* saved data (spool)
							pushlong	#ClPaDestRect			;translation and scaling rect
							_DrawPicture						;OUR BPROCS/PATCHES RUN NOW!
							bcc			ClPaNoDPError
							sta			errNo					;if DrawPicture tool error, then
							sta			OpDoErrorStatus			;pass failure-type error and do mesg
							cmp			#$0201					;out of memory error
							bne			ClPaDPErrorNotMem
							import		StMeCantRenderMemMesg
ClPaDPErrorYesMem			lda			#StMeCantRenderMemMesg	;special message for low memory
							bra			ClPaDPErrorGo
							import		StMeCantRenderGenMesg
ClPaDPErrorNotMem			lda			#StMeCantRenderGenMesg	;generic message otherwise
ClPaDPErrorGo				brl			ClPaMesgAbortPrintLoop2
ClPaNoDPError

***Status message: show long-lasting page/copy status after render mesg and change for next time:
							jsr			ShowPageOrCopyMesg		;show message
							lda			ClPaCurrentBand			;flip page/copy status message
							cmp			OpDoTotalBands			;select, except if on last band
							beq			ClPaNoIncSpcCount
							inc			SpcCounterForCpPgMsg
ClPaNoIncSpcCount

***Save current band's height because we might modify it next:
							ldy			OpDoLocInfoRect+ov2
							sty			ClPaCurrBandHeightSave

***If last band, adjust bandsize here at the last minute because it might be shorter:
ClPaAdjBand					lda			OpDoTotalBands			;get total # of bands to be done
							cmp			#1						;no adjust if doing it all in 1 band
							beq			ClPaDoneAdjBand			;(because LastBandHeight is 0)
							cmp			ClPaCurrentBand			;now compare to curr band we're on
							bne			ClPaDoneAdjBand			;no adjust if not last band
							ldy			OpDoLastBandHeight
							sty			OpDoLocInfoRect+ov2
							ldx			#OpDoLocInfo			;make sure that the imager is
							ldy			#^OpDoLocInfo			;informed of the new band size
							import		ImagerSetLocInfo
							jsr			ImagerSetLocInfo
ClPaDoneAdjBand

***Call imager to convert pixelmap in band buffer to pr cmd sequences and transmit; exec idleproc:
							import		ImagerPrint
							jsr			ImagerPrint				;err status returned in ACC/carry

***Check for abort status and check the print loop status; if necessary, arrange to terminate:
							ldx			OpDoErrorStatus			;first check if idleproc did
							bne			ClPaDoneCheckSkipAbort	;PrSetError and if so, do terminate
							bcc			ClPaNoAbort				;now check if imager error or abort
ClPaDoneCheckSkipAbort

***Here if user or imager abort, may also be due to communications abort, drawpicture error, etc:
ClPaMesgAbortPrintLoop											;entry pt to abort but with no
							ldx			#prAbort				;failure-type-err desired to be set
							stx			OpDoErrorStatus
ClPaMesgAbortPrintLoop1											;entry pt to abort, caller has
							import		StMeAbortMesg			;already set a failure-type error
							lda			#StMeAbortMesg
ClPaMesgAbortPrintLoop2											;entry pt to abort, caller has set
							pha									;error and has message sptr in A
							import		StatusMessage
							jsr			StatusMessage
							import		ImagerClose				;show message, close imager,
							jsr			ImagerClose
							import		ImagerOpen				;open imager, maybe new connection,
							jsr			ImagerOpen
							lda			#0						;try to reset printer,
							import		ImagerReady
							jsr			ImagerReady
							import		ImagerFormfeed			;try to FF to clean out printer,
							jsr 		ImagerFormfeed
							pla									;leave message up for a while
							import		StatusMessageWait
							jsr			StatusMessageWait
							brl			ClPaAbortAndNormalExit	;continue shutting down
							
***Continue normally if there is no reason to abort:
ClPaNoAbort

***Restore bandsize in case it was modified if this was last band:
							ldy			ClPaCurrBandHeightSave	;restore band size in struct and
							sty			OpDoLocInfoRect+ov2		;make sure the imager is informed
							ldx			#OpDoLocInfo
							ldy			#^OpDoLocInfo
							import		ImagerSetLocInfo
							jsr			ImagerSetLocInfo

***Tail of do-one-band code.  See if we need to do another band:
							lda			ClPaCurrentBand			;get current band number index
							cmp			OpDoTotalBands			;compare with total bands needed
							bcs			ClPaOutOfBandsLoop		;if we're done, break out of loop
							ina									;else increment and store back
							sta			ClPaCurrentBand			;store it
							brl			ClPaPrintOneMoreBand	;loop back
ClPaOutOfBandsLoop

**Tail of do-one-copy code.  Do form feed to advance to next sheet:
							import		ImagerFormfeed
							jsr			ImagerFormfeed

**Tail of do-one-copy code.  See if we need to print another copy:
							lda			ClPaCurrentCopy			;get current copy number index
							cmp			OpDoTotalCopies			;compare with total copies needed
							bcs			ClPaOutOfCopiesLoop		;if we're done, break out of loop
							ina									;else increment and store back
							sta			ClPaCurrentCopy			;store it
							brl			ClPaPrintOneMoreCopy	;loop back
ClPaOutOfCopiesLoop

*Now done printing copies of current page or we need to abort:
ClPaAbortAndNormalExit

*Deallocate storage for definition of this page:
							pushlong	OpPaUnusedPictHdl		;dealloc QD mem for pict recording
							_KillPicture
							
							import		SpoolFinishGet			;dealloc our VM for pict recording
							jsr			SpoolFinishGet
							
*Undo our patch for "InstallWithStats" font manager call:
							pha
							pha
							pushword	#0						;system tool set
							pushword	#027					;tool set 27: Font Manager
							_GetTSPtr
							pulllong	ParamLongA
							ldy			#4*$1C					;reset real "InstallWithStats" adrs
							lda			ClPaOldIWSAddr+0
							dea
							sta			[ParamLongA],y
							iny
							iny
							lda			ClPaOldIWSAddr+2
							sta			[ParamLongA],y

*Exit; next expected print loop call is OpenPage or CloseDoc:
							rts



*Status variables needed during loop to print copies of the current page:
ClPaCurrentBand				dc.w		0
ClPaCurrentCopy				dc.w		0

*Inflated and translated picture playback rectangle:
ClPaDestRect				dc.w		0,0,0,0

*Temporary save area for band height for restore after special-case-last-band modification:
ClPaCurrBandHeightSave		dc.w		0

*Storage for the real "InstallWithStats" tool call address that we patch out:
							export		ClPaOldIWSAddr
ClPaOldIWSAddr				dc.l		0







*
*CLOSEDOC: Designates end of all printing operation.  Performs the following tasks:
*
*	Close communication connection with printer
*	Check if we were using our or the user's grafport memory for the recording grafport
*	Close recording grafport and banding grafport (releases memory), set old pre-OpenDoc grafport
*	Deallocate banding memory
*	Restore QuickDraw global clip buffer sizes back to pre-OpenDoc values
*	Remove status message box
*	Set time value used by OpenDoc to determine if "Page As Job" condition exists
*

							export		CloseDoc
CloseDoc

*Close port connection to printer as one of the first steps:
							import		ImagerClose
							jsr			ImagerClose

*Ensure that our pointer to the calculation/recording grafport is up to date if owned by caller:
							lda			printGrafPortPtr+0
							tax
							ora			printGrafPortPtr+2
							beq			ClDoDoneUpdateCalcGPPtr
							stx			OpDoCalcGrafPortPtr+0
							lda			printGrafPortPtr+2
							sta			OpDoCalcGrafPortPtr+2
ClDoDoneUpdateCalcGPPtr

*Restore previous grafport and close calculation and banding grafports:
							pushlong	OpDoOldUserGrafPortPtr	;restore pre-pr-loop grafport first
							_SetPort
							lda			OpDoSetupLevel			;make sure we don't deallocate
							cmp			#1						;unallocated resources...
							bcc			ClDoDontDeallocPorts
							pushlong	OpDoCalcGrafPortPtr		;clean up both of our grafports,
							_ClosePort							;thus deallocating clip/vis rgn mem
							pushlong	#OpDoBandGrafPort
							_ClosePort
							
*Deallocate banding memory attached to our locinfo attached to our grafport:
							pha									;dump our band mem	;result space
							pha														;result space
							pushlong	OpDoLocInfoPixPtr							;didn't keep hdl
							_FindHandle												;so find from ptr
							_DisposeHandle											;hdl on stack
							pushword	OpDoMemPID				;dump our user ID
							_DeleteID
ClDoDontDeallocPorts

*Set QuickDraw global internal clip buffers back to previous size:
							lda			OpDoSetupLevel			;make sure we don't deallocate
							cmp			#2						;unallocated resources...
							bcc			ClDoDontResetBufDims
							pushlong	#OpDoOldQDBuffRec
							_RestoreBufDims
ClDoDontResetBufDims

*Finally, remove the status box as one of the last steps, which also removes wait cursor:
							import		FinishStatusMessage
							jsr			FinishStatusMessage
							
*Set the few-seconds-into-the-future time value for "Page As Job" determination:
							pha									;get the current relative time
							pha
							_GetTick
							clc									;pull from stack while adding
							pla									;hardcoded constant to it and
							adc			#PgAsJobAssumptionDelay	;storing this time+constant
							sta			OpDoIsPgAsJobTime+0		;into static storage
							pla
							adc			#0
							sta			OpDoIsPgAsJobTime+2
							lda			#1						;indicate that the time has now
							sta			OpDoIsPgAsJobIsTimeSet	;been set and may be used

*Get rid of stray keystroke events:
							pha									;flush other keyboard events
							;			  5432109876543210
							pushword	#%0000000000001110
							pushword	#0
							_FlushEvents
							pla
							
*Exit; we are done with the print job; PrPicFile will be called but it need do nothing:
							rts







*
*GETPRINTLOOPERROR: This routine returns the value of the status variable in ACC:
*
							export		GetPrintLoopError
GetPrintLoopError
							lda			OpDoErrorStatus
							rts







*
*SETPRINTLOOPERROR: This routine stores the value of ACC into the status variable:
*
							export		SetPrintLoopError
SetPrintLoopError
							sta			OpDoErrorStatus
							rts







*
*SHOWSTATUSWITHPARAM: Displays string at adrs short ptr in A, with ASCII of word in X at posn 26:
*
ShowStatusWithParam
							pha									;save original string address
							phx									;pass number to go in str to Int2Dec
							clc									;compute lo word of where number goes
							adc			#26
							tax
							phk									;compute hi word of where number goes
							phk
							pla
							and			#$00FF
							pha									;pass hi word where # goes to Int2Dec
							phx									;pass lo word where # goes to Int2Dec
							pushword	#5						;pass length to Int2Dec
							pushword	#0						;pass "unsigned" to Int2Dec
							_Int2Dec
							pla									;restore original string address
							import		StatusMessage
							brl			StatusMessage			;exit through StatusMessage







*
*PRINTERSTATUSHANDLER: Called by Comm with err code in A, does U/I, return 0/1 if OK/Cancel in A:
*
PrinterStatusHandler
							import		StatusMessageDevStat	;display alert dialog according to
							jsr			StatusMessageDevStat	;err code in A and return ok/cancel
							
							pha									;save 0/1 ok/cancel in A
							
							dec			SpcCounterForCpPgMsg	;back to page or copy number
							jsr			ShowPageOrCopyMesg
							
							pla									;restore 0/1 if ok/cancel in A
							
							rtl									;exit back to caller







*
*SHOWPAGEORCOPYMESG: Refreshes status mesg with current page or current copy number status:
*
ShowPageOrCopyMesg
							lda			OpDoTotalCopies			;check if number of copies >= 2
							cmp			#2						;don't even consider putting up
							bcc			SpcShowPage				;copy number if only 1 copy
							lda			SpcCounterForCpPgMsg	;alternate message async with bands
							and			#1						;always show PAGE 1st if was zeroed
							beq			SpcShowPage
SpcShowCopy
							import		StMePrCurrentCpMesg		;show COPY number now being printed
							lda			#StMePrCurrentCpMesg
							ldx			ClPaCurrentCopy
							jsr			ShowStatusWithParam
							bra			SpcShowCpPgDone
SpcShowPage
							import		StMePrCurrentPgMesg		;show PAGE number now being printed
							lda			#StMePrCurrentPgMesg
							ldx			OpDoPageCounter
							jsr			ShowStatusWithParam
SpcShowCpPgDone
							rts
							
SpcCounterForCpPgMsg		dc.w		0						;INPUT: bit 0 selects: 0:PAGE 1:COPY







							endproc
							end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/TABASCO/readme b/IIGS.601.SRC/GSToolbox/PrinterDrivers/TABASCO/readme
new file mode 100644
index 0000000..08058b4
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/TABASCO/readme
@@ -0,0 +1 @@
+
APPLE IIGS SYTLEWRITER PRINTER DRIVER v1.0 	--		TECHNICAL DESCRIPTION (ERS)

Written by Ben Koning (ben@apple.com x45806 408/738-1763)

November 1991



INTRODUCTION

This is a printer driver for the Apple "StyleWriter" ink jet printer.  It is a
feature-reduced printer driver, written in a very short time in order to get a
driver out to the public as soon as possible.  It is based on a similarly
feature-reduced HP DeskJet PLUS driver.  The philosophy is to be short on bells
and whistles and to be long on zero-embarrassment usability.



DEVIATIONS FROM OTHER DUMB-DEVICE PRINTER DRIVERS

Communications is handled internally inside the driver, due to the special
way in which the 57.6K baud software-handshaking serial interface operates.
The SCC channel A/B selection is inferred from the current printer-port driver
settings: the PMGetPortName call is used; and a case-insensitive check is made for
the first few characters of the "Printer" or "Modem" filenames returned by the
PMGetPortName call.

Pages are recorded as pictures, rendered, and printed, one at a time; they are not
saved en masse for the entire document.  All copies of the current page are printed
at PrClosePage time, like the LaserWriter driver.

Picture data for the pages is spooled to disk if necessary, like the version 4.0
or later ImageWriter and ImageWriter LQ drivers.  If the user booted over the
network, then the spool file is located in the correct {username} directory;
otherwise, it is located in */System/Drivers.  The file name is TMP.xxxx, where
"xxxx" is a 4-digit random hexadecimal number.  The file is deleted when finished.

This driver contains all of the features of previous dumb-printer drivers, with
the following important exceptions:

	* No color, and arbitrary grayscale support.  Standard black and standard
	  white must exist in standard color palette locations; otherwise, color
	  to black/white mapping will be incorrect.
		
	* No landscape mode.
	
	* No draft ("text only") mode.
	
	* No reduction ("66% reduction", "33% reduction", etc) modes.
	
	* The PrPixelMap call does not support printing of a subset of a pixelmap.
	  Only the LocInfo structure is considered; the source rect is ignored.
	
	* There is no notion of separate Page Setup and Print Job dialogs; they
	  are the same but don't look the same.  Saves much code/complexity.

All paper types mentioned in the Macintosh StyleWriter Driver ERS (by Suki Lee)
are supported.

Error handling, as described in the Macintosh StyleWriter ERS is supported by
means of alert dialogs for all of the same conditions.



SCALING STRATEGY

The driver scales the recorded page definition picture to 4.5x (360 dpi) or to
2.25x (180 dpi).  Bitmaps are thus scaled; very rough patterns may exhibit some
artifacts but usually look ok.  Graphic objects other than text are rendered
correctly, since they are mathematically defined.  Text strings are scaled to 5x,
however, to avoid Font Manager burden and to avoid total loss of visual fidelity.
In order cause the 5x text strings to fit in the 4.5x space, and to deal with
horizontal font scaling error, line layout is performed.



HORIZONTAL LINE LAYOUT FOR TEXT

Horizontal line layout is implemented.  The intercharacter spacing of text strings
is manipulated so that a given string played back during the page picture rendering
process is drawn with 90% of its original width.  This is done by calculating small
temporary negative values for SpaceExtra and CharExtra for each individual string.

Line layout thus solves the problems of slight horizontal font scaling error (causing
overlap, especially in text with face modifications (ie, bold, italic, etc)) and
the difference in device resolutions.

Setting wDev bit 14 disables line layout. This bit is always cleared by default
and can only be set by an application.



VERTICAL ANTI-CLIPPING FOR TEXT

The notBIC transfer mode is used to draw text strings if the text transfer mode is
set to modeCopy (default).  This makes text transfer behave in an OR-like fashion
so that descenders are not clipped due to the scaled font being taller than the
exact multiple of the original (application-requested) font height.  This will
cause a problem for applications that rely on using the bounding box around text
to erase its surroundings.  The notBIC transfer mode is substituted if the
application's requested transfer mode is the default modeCopy; if it is anything
else it is left alone.

Setting wDev bit 13 disables the OR-ing text drawing mode behavior described above.
This bit is always cleared by default and can only be set by an application.



640 MODE PIXELMAP ANTI-BLURRING

For pixelmaps in 640 mode, CopyPixels would normally cause loss of black and white
detail while scaling up in order to keep dithered 2-bit color pixel pairs intact.
Instead, StdPixels is patched out and the pixelmap is prescaled by the driver,
which then calls StdPixels to do the actual transfer at 1:1 scaling.  This only
done if 640 mode and only if high quality is selected.

Setting wDev bit 12 disables special 640-mode pixelmap handling.  This bit is
always cleard by default and can only be set by an application.



PAGE-AS-JOB HANDLING

If a PrOpenDoc call happens immediately (within 5 seconds, based on TickCount) after
a PrCloseDoc call, then certain initialization tasks, such as the sending of
immediate printer reset and the resetting of the page counter, are not performed.
This is for those programs that choose to treat each page as an entirely separate
document.

This is necessary because the StyleWriter's reset command sequence interrupts the
printer from whatever it was previously doing, and so multiple-page documents could
not be printed reliably otherwise.  One of the other benefits of this technique are
that the page counter in the status box works correctly with page-as-job applications.

Setting wDev bit 15 disables the status message box displayed on top of the
screen; this bit is always cleared by default and can only be set by an
application.



SPEED

The following measures are taken to enhance speed performance, in order of
implementation:

	* Trivial source pixel large-area whitespace elimination razor.
	* Lookup table driven source to print pixel conversion with auto grayscale.
	* QuickDraw text clip/draw code not executed if outside of band buffer.
	* Multibank (>64K) band rendering buffer, if memory allows.
	* Razor within compressor for repeating source pixel bytes.
	* More efficient overall compressor code.
	* Repeat-scanline opcode used for non-vertical-condense case.
	* Draw-blank-scanline opcode used when possible.
	* InstallWithStats font manager code not executed if outside of band buffer.
	* Full black-case/white-case opcodes instead of using the repeat opcode.


\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/TABASCO/release_notes b/IIGS.601.SRC/GSToolbox/PrinterDrivers/TABASCO/release_notes
new file mode 100644
index 0000000..bcd699d
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/TABASCO/release_notes
@@ -0,0 +1 @@
+

APPLE IIGS
STYLEWRITER PRINTER DRIVER
CURRENT AND PREVIOUS RELEASE NOTES
BEN KONING   x45806   KONING.BEN   ben@apple.com
408/738-1763





-----





System disk 6.0 ships here.





F26		8-Jan-92		D63 system disk build

Removed WaitCursor/InitCursor calls from status message routines.  Most applications
put up their own (wait) cursors anyway, and our WaitCursor call was causing problems
with applications such as HyperCard which do cursor animation with hi-bit-set
cursor record pointers.





F25		18-Dec-91		D62 system disk build

Removed BRK #$88 breakpoint.

Random $1B09=illegal font size error from DrawPicture fixed by fix in font manager
tool027.  This is because SetPurgeStat was getting $1B09 because it got bogus data
from an earlier InstallWithStats call (this is inside the rLineOrText routine in
QDAux/DrawPicture).  In the font manager's InstallWithStats call's MakeCurrent,
there was a BCS-if-error to an RTS immediately after InflateTextBuffer call.  The
problem is that whoever called MakeCurrent (AddScaledFont, from InstallFont) had
already left the current grafport's font handle in a purgable state, and thus when
InflateTextBuffer fails with $0201=out of memory, its memory manager calls have
already managed to purge the current grafport's font.  The fix is to install the
current system font handle, ID, face, size upon InflateTextBuffer tool error.  Also,
this error now gets propagated from outside of AddScaledFont.  Thus now upon a memory
error the system font is tried, without disposing the current font handle.

Line layout right-clipping bug (BeagleWrite, Medley) is apparently due one or both
of the TextWidth calls not reporting the correct width under Spx/Chx infuence.
Tested and confirmed that line layout code is accurate within 2 printer pixels for
all cases not involving application Spx/Chx influence (ie, they're 0).  Added a
"fix" immediately after the wanted width calculation which simply multiplies the
wanted width by a fixed-point constant slightly less than 1.





B24		12-Dec-91

NOTE: This version has a brk #$88 to catch DrawPicture errors other than $0201.

Shieldcursor/Hypercard cursor stickyness traced and seems to work OK.  Notified
testing to be on the lookout for this.

InstallWithStats limit to only shaston if low memory attempted; didn't help.

If there is a DrawPicture-time error, it can say either "Rendering error" or
"Insufficient rendering memory".

Reduced the number of lines the patched stdpixels processes at a time in its own
banding scheme from 32 to 12 to work better for low memory situations in Hypercard,
also improves speed because of more accurate censoring clipping granularity.

Better behavior if cancelling out from the unsupported features dialog.  The dialog
and PrError setting is now done after all the setup stuff, rather than near the
beginning.





B23		11-Dec-91		D61 system disk build and developer release

Low memory warning may now appear *before* setup or job dialog; changed wording to
suggest going to 180 dpi.

Increased European A4 paper X size from 133 to 136 80-dpi-pixels as per French
3rd-party developer customer request.

Fixed bug in QDAux where playback-time font install requests of > 255pt were being
made, resulting in the pt size mod 256 being requested to InstallWithStats.

Fixed bug where we were not returning error properly from DrawPicture.  Added
additional status message for this (plus, AWGS pthen puts up its own error dialog
because it detected the error because we passed it back correctly this time).





B22		6-Dec-91

Current copy being printed message could flash by quickly.  Made more robust by
making a subroutine to handle page/copy status that is called from multiple places,
including after printer error dialog.  If there is an error dialog and OK is hit
multiple times without correction of the error, then page/copy status message will
toggle.

CompactMem now being called again at the beginning of band buffer malloc routine.

Lowered threshold for when low-memory warning comes up to RealFreeMem > 768K.  This
seems to not present the warning for Draw Plus on a 2M machine but it will for
HyperCard and AppleWorksGS on a 2M machine.  Changed wording to say that text and
pixelmaps (because we need memory for our 640-mode antidither preprocessing) are
affected (it said "text and other objects" before).  The message now doesn't care
which 180|360 dpi mode we're in.





B21		27-Nov-91		Beta

Crashing problem found to be lack of error propagation from InflateTextBuffer.

Line layout error distribution among spaces now more accurately tracks the ratio
of spextra to chextra that the application is asking for while still applying the
corrections we need.  However, when SpaceExtra is required to be >255.0 (this may
happen if there are large space gaps in fully-justified text), things still don't
line up properly.

Workaround coded for SpaceExtra > 255.0 bug: the number of spaces that the string
contains is repeatedly doubled in a temporary buffer while the SpaceExtra value
is halved until it is acceptable.  If error doing this process (ie, not enough buffer
space), then it is just done the old way.

DrawPicture is now being called with the actual "unused" ("unused" because we do
our own PICT definition data storage/retrieval with the spooling routines) handle
from OpenPicture and passed to KillPicture.  Safer this way.

Added indicator of current copy being processed in the status box.  ONLY if the
number of copies requested is 2 or greater, whenever the "Rendering page image"
message is not up, then EITHER the "Printing a copy of page: x" OR a new message
"Printing copy number: x" appears (the two messages alternate).

Job Dialog box tabbing now works like it's supposed to, and saved 86 bytes.

Added spooling of the current page (one page only, of course) PICT definition to
memory/disk, by adding the (tested) spooling routines from the ImageWriter driver.
This is necessary to make Hypercard stacks work, with their myriad memory-consuming
bitmaps.

Finally fixed communications bug that was in there all along: we were pinning the
received buffer-space from the printer to a maximum (8K), but this was the wrong
approach.  If a buffer-space inquiry returned a value below the maximum but above
the drain-minimum (ie, everything totally peachy) then this value would be stored
into our counter of how much space left and we could then proceed to transmit that
many bytes, all the way to our-counter=0, which would correspond to printer-space=0,
with no slop space whatsoever, even though we thought we were getting 2K or more of
slop!  Fixed by *subtracting* about 2K from every buffer-space inquiry result (pinned
to 0 if negative).  This works so well that the retry delay has been reduced from
4 sec to 0.5 sec.  This has been tested for up to 200 copies/180 dpi/transwarp/two
vertical lines down the entire length of the page (maximum print time with minimum
data buffer emptying speed, with maximum host output).

Removed code that checked against "CommDevBufferDrainLimit" since it really is the
same thing as the subtract above.  The code now simply checks if there is enough
room for the write request after having updated the our-counter value as above,
and if there *still* is now enough room then it waits (1 sec) and loops back.

Removed code which performed a timeout in the communications module if the amount
of printer-buffer space dropped below a special low limit for more than a certain
amount of time.  This is no longer necessary with the new communications error
handling code introduced many releases ago.  The problem is that this was causing
communcations code timeout errors erroneously when we're generating data too fast
for the printer.





A20		30-Oct-91

Pixmap 640 dithering ugliness fixed by patching out StdPixels (this may be disabled
by setting wDev bit 12) and doing some of the work ourselves if 640 mode.  We do the
horizontal scaling ourselves into our own buffer, and then call the real StdPixels
to do the vertical scaling and transfer into the destination pixel map with all of
the other work it normally does (tranfer modes, region clipping, etc).  This is done
in a banded way, necessary because of lack of memory, and censoring clipping is
performed by comparing the location of the current StdPixels-band with the location
of the current rendering-band.  This is only being done for high quality (360 dpi)
mode; in low quality (180 dpi) mode, StdPixels is called normally as before,
resulting in the familiar gray splotches at sharp black/white boundaries.  It may
also be disabled by a new wDev bit, and it may disable itself if there is not enough
memory to hold a slice of the interim pixel buffer.

Added wDev bit 12 to allow disable of special 640 pixelmap handling.





A19		18-Oct-91

Fixed Platinum Paint error $0001 after printing all the time.  Stupid bug where
around the KillPicture call the error, if any, from ClosePicture was being stored
in errNo.  But with the new, post HP-driver program flow, other, normal, code paths
could drop into this case!  Eliminated this poor excuse for error storing code.

Fixed problem with colored text showing a rectangle around it (caused by the fix
for descender clipping.  We were substituting the text mode notBIC; this has been
changed to modeForeCopy ($0004).  Again, it's not always the right thing to do;
hopefully this will be more compatible.

Line layout code has been improved so that full justification works.  The main
problem is that we were not considering the fact that Spx/Chx actually affects
the *TextWidth* calculation as well as actual text drawing!  The application's
SpaceExtra/CharExtra is now unscaled (only if Better mode) by a divide by two to
undo the apparent QD Spx/Chx-not-being-scaled-with-picture-bug workaround that all
work processing apps seem to do.  Then we compare the (thus now true) TextWidth
that the app wants with a new *zero*-SpaceExtra/CharExtra (ie, "virgin") TextWidth
call.  This thus yields a true delta with rigorous consideration of Spx/Chx, at
least as far as the *entire* string length is concerned (there is still room for
future improvement: the relative proportion of Spx to Chx should be proportional
to the relative proportions of Spx to Chx that the application requested, so that
tabs within a string line up with lines above and below).  Since the application's
true Spx/Chx, as well as our necessities of font manager 5x->4.5x and QD face
modifiction error, are all taken into consideration, there is no need to do a
*delta*: our final computed Spx/Chx is simply stored, not added, before drawing,
and then of course restored afterward.  Also moved the line layout disable fragment
to a different place and tested.  Also space/readability-optimized the code.

wDev bit 12 to allow disable of special 640 pixelmap handling is already included
even though the 640 pixelmap code still under development is currently disabled.

Much improved 320 mode grayscale handling, because of new ImagerSetGrays routine.
Instead of 3, there are now 11 distinct shades of gray in addition to black/white.

Added new Imager call "ImagerSetGrays" instead of always calling the pixel
conversion table precalculation routine at the end of every ImagerSetLocInfo call.
ImagerSetLocInfo now no longer causes the table to be set up.  Allows for fast
operation even though ImagerSetGrays is increasing in sophistication and time
consumption and more control.  ImagerSetGrays must be called in all cases when
setting up the imager for use.

ImagerSetGrays call improved and lowest-level pixel conversion loop modified
(no change in speed) to use two parallel pixel conversion tables.  For 640 mode,
they are initialized to be identical; for 320 mode, alternate nibbles are converted
from alternate tables.





A18		7-Oct-91

Changed some alert window icons: Printer errors now use Stop icon; Can't-Establish
Communcation error now user Stop icon; other dialogs still use Caution icon or
Note icon as appropriate (Note icon for "messages" such as insert-manual-sheet,
Caution icon for "warnings" such as unsupported-feature and low-memory).

Printer-reported-error status alert window for the fatal error case's OK button is
now a default button (while maintaining the nice code structure).

If not disabled by new wDev bit, and text transfer mode is $0000 only, then we now
force the text transfer mode to $8003 (notBIC).  This causes characters to be painted
nondestructively and thus eliminates the descender clipping problem, but perhaps
at the expense of some programs not printing fully correctly if they rely on using
the white rectangle around text to erase things.

Added wDev bit 13 to allow disable of forcing of text mode described above.

Added Steve Stephenson to credits in about box because I'm using a clever idea
of his in the new line layout code.

New line layout code in which the application's charextra/spaceextra values are
scaled properly, and then added to with a preturbation which achieves the twin
goals of 10% reduction (as with the old line layout code) as well as dealing with
inexact font dimensions based on point sizes (ie, if a string of Times 10 is 100
pixels then the same string in Times 20 is not necessarily 200 pixels).  This
addresses the line layout fine-tuning problem, the bold/italic/outline/shadow text
face clipping problem, and *most* the AWGS full-justification problem.

As before, setting wDev bit 14 still disables line layout.

Added StdPixels patch for special 640 pixelmap handling in the near future.

Added new source file "patchprocs.a" to contain things like our StdText patch,
our InstallWithStats patch, etc.  These used to be in "printloop.a".  This provides
for smaller source files, a better logical split, and me not having to mess around
with the "printloop.a" file while debugging the bottleprocs.





A17		15-Sep-91

Added key equivalents to Setup/Job dialog boxes: [Command]-H,h toggles the height
setting (Normal/Vertical Condense); [Command]-M,m toggles the paper feed setting
(Automatic/Manual).





A16		13-Sep-91

Several no-brainer improvements because Bob is so picky.  The main remaining issues
are: 1) line layout; 2) 640-dithering ugliness in pixelmaps; 3) speed improvement
for font scaling in the font manager.

Changed icon Stop to Caution in printer-reported error dialog box.  Changed
icon Note to Caution for low-memory warning dialog box.

Changed "Cancel" string in button to "OK" in the printer-reported-error dialog
box only if the error is fatal (such as "A serious problem has occurred" message).
A problem, however: the OK button is not a default button.  Fix this later.

A dialog box now appears for if ImagerOpen fails.  This means that if the user
has the wrong printer or if the printer is not connected or if the printer is
off then this dialog appears in addition to the "Device communication error" in
the status box.





A15		13-Aug-91

Changed "Rasterizing page image" back to "Rendering page image".

Added a warning dialog box if an application starts the printing loop after
having set a nonsupported feature (such as Landscape Orientation) in the print
record by itself (Designer Prints does this, for example).  The user either
continue at their own risk or cancel out.  Check to make sure cursor handling
with new error alerts (and the old manual feed alert) works ok; many changes
(added subroutines) have been made so that the code wouldn't grow too much.

Now storing zeros in our-picframe X1 and Y1 before we allow the user-supplied rect
(if any) to be copied in.  This fixes a potential problem where the caller could
have supplied a custom rect and then ask to use the default rect, and then the old
user's X1 and Y1 would still be in there.  This fix will be retrofitted to IW/LQ.

Fixed Designer Prints bug in 320 mode where it would freeze instead of printing.
Designer Prints apparently sets the Better bit to 0 just before calling PrOpenDoc.
Our metrics routines maintain a new field for the quality setting; however, this
setting was not being updated in this case (because GetQuality/SetQuality was
never called) and when GetImagingSize needed to know the quality, it got it wrong.
Thus, we would get into a situation where the Imager and source rectangle believed
the quality was set to 180 dpi, while the destination rectangle assumed that the
quality was set to 360 dpi.

There are many programs (AWGS, HyperCardGS) which treat each page as a whole new
document (to save memory).  This is a BIG problem because we do an immediate reset
at the beginning of each document (in PrOpenDoc), which in many cases would happen
right in the middle of printing the preceding page, thus making it impossible to
print multiple-page documents reliably.  The implemented solution for this problem
is to make PrOpenDoc not do the immediate reset nor reset the "currently printing
page: X" counter ONLY IF the current tick count - last tick count (saved by
PrCloseDoc) is less than an equated constant.  The PrCloseDoc->PrOpenDoc timeout
constant is set to 5 seconds.

Added bug fix in CommOpen/CommClose so that setting "Your Card" for the slot 1
(printer) or slot 2 (modem) does not cause crashing.

HyperCard multipage print jobs not aborting bug has been fixed.

A timeout/abort/out-of-sequence safety mechanism has been added to the
Communications module so that it will never lock up the CPU in cases of serious
internal errors and to make error handling possible.

Error handling has been added by means of a callback mechanism in the Communications
module.  Whenever the low-water mark is reached in CommWrite, the two status bytes
are read.  If there is an error, then a caller-installable proc is called with a
prioritized error code.  Printloop will have installed such a procedure which in
turn calls a routine in the Dialog module which displays a status dialog which
whooshrects out just like the manual feed dialog.  There are three different messages
which may appear: Out of paper, Ready light not on (ie, if in Manual Feed mode,
you put in the sheet, and hit return to get out of the manual feed dialog while
forgetting to press the Ready button first), and Serious Problem has occurred.  The
Serious Problem message happens in cases of pulling the serial cable, power cable,
manhandling the carriage, etc; it specifically happens if any of the following error
bits become asserted: Carriage Jam, Paper Jam, Bad Data Rectange, Buffer Overflow,
and Bad Self Test.  The Out of paper and Ready light on dialogs allow Cancel and
Continue; the Serious Problem dialog only allows Cancel.





A14		8-Jun-91

A few more no-brainers.  Fixed bug in OpenDoc if error on calling ImagerOpen: was
calling StatusMessageWait a second time without resetting A.  Also fixed appearance
(width) of textedit boxes.





A13		29-May-91

If wDev bit 15 is set to "1", then the print status box will not appear.  The manual
sheet feed dialog will still always appear as appropriate, however.  Cleaned up some
code in the process.

Changed wDev bit: the line layout disable bit has been changed from 7 to 14, to avoid
conflict with an already-defined bit (LQ unidirectional) (oops).

Changed "Rendering page image" to "Rasterizing page image".





A12		24-May-91

Fixed a bug resulting from calling GetControlValue on every single control in
the setup/job dialog even if a control wasn't there.  One symptom: with Height set
to Normal, go into job dialog, click OK, and now Height is set to Condensed.
The actions resulting from both dialog settings needs to be retested carefully!





A11		23-May-91

Made combined PrStlDialog/PrJobDialog show only those controls which are relevant.
This means that the dialog box itself is now less tall in size.  The Sheet Feed and
Quality items actually appear in both dialogs, since they can be modified correctly
at either setup or job dialog time.  To make spacing aesthetics work our right, the
vertical condensed height control is now a pair of radio buttons.





A10		22-May-91

Changed requirements for about box appearance from shift-option-apple key down
to click in version number in the upper right hand corner.  Saves code space too.





A9		9-May-91

Added Dave Lyons to about box.

Line layout can now be disabled by setting bit 7 of wDev to "1".  [Now bit 14!!]

The "OK" button in the setup/job dialog box now has a title of either "Setup"
or "Print" as appropriate.  Changed the vertical positions of the controls slightly.

WhooshRect call usage upon appearance and disappearance of manual feed dialog.

Changed all delay loops to use the new System 6.0 WaitUntil system call, saving
some code space.

Added command-period as an additional key equivalent (other than ESC) for the
Page Setup / Print Job dialog box cancel button.





A8		10-Apr-91		Alpha: major and visible feature complete

Premature page-eject "communications bug" is supposed to be fixed.  Be on the
lookout.

Changed communications CommWrite routine to wait if the printer buffer is getting
close to empty; the wait-on-retry delay has been taken out since it would be
redundant.

Changed the CompressSendAddDataRle routine to not put $FF's in the data stream.
The all-white and all-black cases are now one byte shorter, because we now use
the opcodes which specifically take advantage of all-black or all-white bytes.
This results in taking $FF's out of the data stream and slightly more compression,
reducing the possibility of immediate command confusion and adding speed.

The CompressSendAddDataNor routine can still output $FF's, but never more than
two in a row (changing it to not output $FF's made no difference for the page-
ejecting bug).

Added NUL ($00) commands before and after return-buffer-space command sequence.

Put a standard delay before the read loop in CommReadByte, so that the printer has
a few dozen milliseconds to respond to immediate commands.

Fixed unnoticable off-by-one bug that prevented compressor from building data with
run sequences of the actual equated maximum length.

Debugging screen-writing, breakpoints, and total-scc-interrupt-disable removed.
There should be no more AppleShare interaction problems.

Added Bob Haven's name to about box.

Dialog box no longer does double update when first drawn.

LineEdit "From" box is still leaving residue when clicking in the "To" box under
certain circumstances under new system disk.  This will be looked at again when
Dave Lyons is done with LineEdit modifications.

Code removed for displaying error message for incorrect-device, since this driver
is not going to be checking for it (if error from imager is set (which it never
will be) then we just terminate the print loop).

Internal imager call ImagerReset is now called ImagerReady.

ImagerSetPaperType call removed since the printer doesn't know what type of paper
it has (size is defined solely by the DDR rectangles).

Printer is now given printer-command for manual or automatic sheet feed status.

All 5 paper types now supported: US Letter, US Legal, A4 European, B5 European,
and #10 US Envelope.  Added to menu and metrics and fixed imager to round
coordinates down to multiples of 8 pixels for the printer.

Manual sheet feed and envelope printing now works, although not all of the space
on a #10 envelope can be used.

Manual feed insert-next-sheet prompt is now an AlertWindow (saves space) and is
much bigger with detailed instructions.  It no longer shows the current page
number, since it was confusing anyway (*page* number as opposed to *copy* number).

If European B5 or Envelope #10 is selected, then manual-feed mode is forced.





D7		28-Mar-91

This version's communications code writes debug information to the top line of the
screen and contains several break points which should never happen.  These will
be removed in the next version.

Self-ID is now no longer checked at all; Steve Bischoff says that the Mac driver
could never get ID properly either.  So we don't try.  If the user wants to select
the StyleWriter driver and connect a different device, then they won't get an
error, but that's their problem.

Horizontal line layout implemented.  Will need some fine-tuning.  Text spacing
is successfully being reduced by 10% so as not to run off the page.

Speed #3: InstallWithStats patched out during much of ClosePage; when, during
DrawPicture, it is called and we think that the font being installed isn't
needed in the current band, then we censor the call by only having it install the
system font.  Makes MSGS "MegaFonts" actually print in a much more reasonable
(though still unacceptable) amount of time.

Speed #2: Usage of blank-raster and repeat-raster opcodes.  We encapsulate them as
entire graphics commands, which is still not fully efficient as if they were part of
the opcode stream itself, but that isn't possible given our one-transfer-command-
per-line architecture.  User-apparent paper slew speed is improved greatly for pages
with large areas of vertical blank space.  Most of the speed benefit from these
two changes comes from increased pipelining effect: the printer is able to print
longer from its buffer because the data is more compact, and so the print head does
not stop as much or often when the host is rendering the next band.  Slowness is now
virtually entirely dominated by QD/FMGR slowness, and these speed benefits will be
much more important if the latter is speeded up.

Added Lee's name to about box.

The 360 dpi quality mode setting is now the default.

Saved some cycles here and there in compressor.

Compressor speedup attempt using DP variables failed; we need another method,
such as doing a fast-diff-state-0 scan loop.

Longer-lasting status message if device communications error.





D6		7-Jan-91		Projectorized release

Installer scripts and project-build stuff is done.

"Tabasco" strings changed to "StyleWriter".

Note that all unresolved pending issues are now kept in the area above.

There is a communications bug that causes premature page ejects.  The only cure 
for now is a physical CPU system reset.  I request Alpha status when this is fixed.

Successful compressor speedup #1:  Improved performance of the compression encoding
algorithm by doing quicker scanning of runs (sameness bytes with state=2).

Bigger bands:  Fewer "Rendering Page Image" DrawPicture calls are being made due to
a strategy that allows taller bands if memory allows: 64K limit on QD band bitmap
lifted, and the try-smaller-band code tries a 25% reduction each time through the
loop instead of a 50% reduction (*3/4 instead of /2).  Speed improvement.

Communications problem: printer keeps going to error condition on simple documents
that require small amount of rendering time.  Problem is that printer was getting
overrun with space-status calls.  Implemented completely safe, no-performance-impact
heuristic solution:  When the write routine gets a request, it is first checked
against our counter.  If not ok, then the printer space status request is issued, and
the value is pinned to 8K and used to update our counter.  Then the write request
size is checked again.  If not ok, then we wait for X second(s) and then try again.
In practice, this wait happens usually near the beginning of a document as the
printer is feeding in paper.  The delay does not affect performance since it happens
only if the printer is not able to take any more data.  The delay simply lessens
the number of buffer-space-status queries.  This does not address the comm problem.

Metrics is correct 1/4" around all 4 edges of the paper--the printer pretty much
does this automatically.  Left new functional PrinterFormfeed routine in, even
though it isn't being called, perhaps for future blank skip optimizations.

Sometimes text was being clipped across the middle in high resolution mode, with
tall text fonts.  Bug in our-puttext-bottleproc in the clipping logic.  Rewritten.
The bug happened for a piece of text whose starting y coordinate was above the top
of the band buffer AND the ending y coordinate was below the bottom of the band
buffer; it was considered to be "outside" of the band, and thus was not drawn.
This bug also exists in the HP DeskJet PLUS printer driver.

PrPixelMap call now works: it opens the imager, does 180 dpi dump of the given
locinfo, does a form feed, and closes the imager.  This is the most useful thing it
can be expected to do, since it isn't possible to re-init the printer without form
feed and there is no way that the caller could possibly have enough memory to pass
a locinfo with an entire 360 dpi page.  So PrPixelMap is now just a simple screen
shot (or other locinfo graphics) dumper.

Got rid of unused CrWidth stuff (but historical value still stored in pr rec).

Cancelling status message stays up longer so it's readable when aborting.  There is
now StatusMessage and StatusMessageWait, which waits 1 second first.

We need to ship big fonts on the 6.0 disk.  Looks like there's enough space; but
making a 72pt font may not be straighforward due to font manager limitations.

Font smoothing algorithm attempted but discarded.

Obtained and tested with newest v0.98 ROM.





D5		16-Dec-90

Fixed rect error on 180dpi and cleaned up GetImagingSize: We weren't derefing from
ParamLongA during CvtRPageToImagingSize -X and -Y so 180dpi mode always had 360dpi
mode's dimensions.  Delay between reset and imaging really unnecessary; it just
seemed that way because of this bug.

Unidirectional for 360 dpi mode; bidirectional for 180 dpi mode; many issues still
exist: ambiguity over command for unidirectional, unacceptable bidirectional.  This
problem is supossedly fixed in later ROM-rev Tabasco units, we have to get pre-
production units and check bidirectional registration.  Command codes are now as
recommended in the latest specs ($75 for unidirectional).





D4		15-Dec-90		Developmental

Preliminary metrics work done; scaling is close but we haven't paid any attention
to different paper types yet.

Printer hanging on command-period cancel bug existed because we came right out of
filling rectangle (fix by doing ImagerReset before ImagerFormfeed in printloop).

Scaling for 180 dpi is 2.25 horizontal by 2.5 vertical, and for 360 dpi the scaling
is 4.5 horizontal by 5 vertical.  This make text come out almost-correctly as compared
to PostScript laser printer printouts.  ConvertRPageToImgSize code much simplified.

Dialog 180/360 dpi choice and its metrics/print record stuff implemented.





E3		13-Dec-90

Trivial imager modifications all done; it prints now.

Added built-in delay for all status messages which have a tendency to flash-by
quickly (there is now an additional StatusMessageWait call).

Communications routines improved to be interrupt-defensive.





E2		11-Dec-90

Feasability demonstrated; nonfunctional; planning for inclusion in 6.0.

A method of dealing with the Printer/Modem selection and having it reflect in
the dialogs has been implemented.

57.6K Baud communications method has been developed and printer protocol operation
verified: the printer is actually responding to all commands, thus proving
feasiblity of this project.

Communications routine suite finished and tested, featuring write with buffer
management and nonblocking read.





E1		19-Nov-90

If an error is ever returned from DrawPicture, the tool error from ClosePage
is set and the print loop error status (PrError) is set, causing print loop abort.
Retrofix from experience with the other dumb-printer-drivers' last-minute bugs.

Communications routines structure has been defined.

Scaling policy has been defined but not yet implemented.  We will scale to 4X, and
image normally without any bit dropping.  This will cause (640 app-assumed-pix-
always-horizontally * 4 scale-factor) / (360 dpi * 8 inch) = .8888889 error factor,
resulting in .8 inch unused area on the page, which we can turn into two .4 inch
left & right margins.  Alternatively, we might try scaling to 4.5X and see how
well QuickDraw/FontManager perform.





E0		17-Nov-90		Experimental

Tabasco driver implementation begins as investigation.  The nontrivial transistions
from the HP to Tabasco will occur in the following implementation order of priority,
each one of which must succeed in order for this project to stay alive:

(0) Bring over code from HP DeskJet driver and do trivial modifications
(1) Communicate reliably; develop s/w interface in file communications.a
(2) Trivial imager/compressor mods to cause printing, albeit out of scale
(3) Usage of AlertWindow for about box and insert-next-sheet; other cleanups
(4) No static copies of values from print record b/w OpenDoc-OpenPage
(5) Mods to imager/printloop/metrics and policies for correct scaling
(6) Add whiteskip/rept-vert-line to compressor and other speed improvements
(7) Smoothing algorithm, if possible
(8) Esoteric QuickDraw speed improvements
(9) Debugging for Beta status

Implementation will commence as a background project, due to other higher-priority
project responsibilities.  Targeted completion date for this driver is for System
Disk 6.0; targeted background calendar completion date around February 1991.

Brought over code from HP DeskJet PLUS driver, modified makefile and all source
files to use new naming conventions and eliminate obvious HP references.

Modifed about-box dialog code to use AlertWindow.
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/PrinterDrivers/TABASCO/spool.a b/IIGS.601.SRC/GSToolbox/PrinterDrivers/TABASCO/spool.a
new file mode 100644
index 0000000..d49c22b
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/PrinterDrivers/TABASCO/spool.a
@@ -0,0 +1 @@
+
******************************************************************************************
*                                                                                        *
*		Apple IIgs Printer Driver                                                        *
*                                                                                        *
*		File: spool.a -- psuedo-VM for serial storage/retrieval of PICT data             *
*                                                                                        *
*		Written by Ben Koning                                                            *
*		Copyright (C) 1991 Apple Computer, Inc.                                          *
*                                                                                        *
******************************************************************************************







							include		'equates.h'



							include		'm16.util'
							include		'm16.memory'
							include		'e16.GSOS'
							include		'm16.GSOS'
							include		'm16.misctool'
							include		'm16.intmath'
							include		'm16.locator'



SpoolProc					proc		export







*
*DATA SPOOLING ROUTINES: These routines spool data away to disk, memory, or both.  The
*six entry points defined below should remain the same no matter where the data is spooled to.
*These routines maintain their own globals in static memory, because their values must be
*preserved across print manager calls into this driver.  The author has attempted to keep
*these calls as generic (ie, un-printer-driver-specific) as possible.
*
*Entry points, in general order of usage:
*
*	SpoolStartPut			Must be called first; initializes and allocates resources
*	SpoolPut				Stores arbitrary number of bytes into psuedo-virtual memory
*	SpoolFinishPut			Must be called to declare finish of storage
*	SpoolStartGet			Must be called to declare beginning of retrieval
*	SpoolGet				Retrieves arbitrary number of bytes from psuedo-virtual memory
*	SpoolFinishGet			Must be called last; deallocates all resources
*
*The entry points SPOOLSTARTPUT/SPOOLPUT/SPOOLFINISHPUT and SPOOLSTARTGET/SPOOLGET/SPOOLFINISHGET
*are self-explanatory.  On entry "ParamLongB" should have the number of bytes to save/restore,
*and "ParamLongC" should have a pointer of where the data will be read/written to.  The accumulator
*will be nonzero if an error occurred.  SPOOLGET returns an $FFFF error code if end of data; in
*other cases the error code will be that which was returned from a tool call or GS/OS call.
*
*The two routines SPOOLMARKGET/SPOOLRETURNTOMARKGET allow the caller to arrange for the SPOOLGET
*routine to repeatedly return to the same point.  A typical scenario would involve a few SPOOLGET
*calls, then a SPOOLMARKGET, some more SPOOLGET calls, and then a SPOOLRETURNTOMARKGET which would
*cause the next SPOOLGET to retrieve data from the afore-marked position in the spool data.
*
*The spooling strategy is as follows:  Data will be stored in memory until memory starts to
*run out, at which time data will be stored to disk, using the memory already allocated as a buffer.
*If more memory should become available, it will be used.  While storing data to memory, the Memory
*Manager is called at pre-defined intervals (8K, for example) as more memory is needed, using
*SetHandleSize.  Before SetHandleSize is called, we see if memory is getting full;
*if memory size is a value less than an pre-defined threshold (32K, for example), then
*memory is considered to be running out.  This strategy will hopefully avoid memory compaction
*and keep tools and other drivers alive.  When the decision to go to disk has been made, a flag
*indicating this fact will be set, the entire range of memory used for spooling so far will be
*written out, and the spool process will continue, using the amount of memory obtained as a
*buffer, which, when full, will be written out to disk.  The disk pathname is "*/SYSTEM/DRIVERS/
*TMP.XXXX", where the trailing X's are replaced by a random number.  If such a pathname already
*exists, then we try to generate a new name.  If the caller is using their own pathname, then
*no such suffix-appending-and-retrying will be done.  If the amount of data to be spooled exceeds
*even the size of the big buffer we now have in memory, then it will be written to disk directly.
*If the boot volume's FST is AppleShare, then the temporary file is written to the directory
*pointed to by the GetUserPath call.
*
*If the caller wants to use its own spool filename, it must store a pointer to its filename in
*"SpoolFileNamePtr".  This is done by PrOpenDoc in order to allow the user to specify their own
*spool file.  This must be done AFTER calling "SpoolStartPut", which installs a default
*filename, which "SpoolPut" later makes sure is unique by trying random suffixes.  Once a filename
*has been chosen (by virtue of "SpoolPut" having been called), the rest of the routines will deal
*only with that filename, and it should not be modified.  This means that PrPicFile cannot be
*called standalone, with an arbitrary filename stuck in the print record, at some arbitrary
*time, without first having gone through the PrOpenDoc/PrCloseDoc printing loop.  This limitation
*is due to the fact that this is a dynamic, hybrid memory and disk-based spooler.  This limitation
*could easily be lifted if the entire document were always spooled entirely to disk.
*
*In a similar fashion, if the caller wants to set their own handle-increment and memory-limit-
*threshold values, it must modify the globals "SpoolMemInc" and/or "SpoolMemLeftLimit" AFTER
*doing the "SpoolStartPut" call, which installs default values into these static variables.
*





*
*SPOOLSTARTPUT: Prepare to store data. Call before using SPOOLPUT; ACC->Err:
*
							export		SpoolStartPut
							
SpoolStartPut				
							
*Assume standard spool name in case we have to spool to disk:
							lda			#SpoolFileName				;assume our standard file name
							sta			SpoolFileNamePtr+0			;the user can modify this
							lda			#^SpoolFileName				;after this call is completed,
							sta			SpoolFileNamePtr+2			;since it doesn't yet open it
							
*Assume standard handle-grow size policy:
							lda			#SpoolMemIncDefault//65536
							sta			SpoolMemInc+0
							lda			#SpoolMemIncDefault/65536
							sta			SpoolMemInc+2
							
*Assume standard memory-left-go-to-disk threshold policy:
							lda			#SpoolMemLeftLimitDefault//65536
							sta			SpoolMemLeftLimit+0
							lda			#SpoolMemLeftLimitDefault/65536
							sta			SpoolMemLeftLimit+2
							
*Assume we don't have to go to disk:
							stz			SpoolToDisk
							
*Zero our length and pointer variables:
							stz			SpoolDataLen+0
							stz			SpoolDataLen+2
							stz			SpoolHandlePos+0
							stz			SpoolHandlePos+2
							
*Try to get a handle; the first block:
							pha										;result space for GetNewID
							pushword	#UserIDType					;who is requesting memory
							_GetNewID
							plx										;save ID in x reg
							stx			SpoolPID					;save ID for later disposal
							bcs			StartPutRts					;if error, exit with acc set
							pha										;result space for NewHandle
							pha										;...result space
							pushlong	SpoolMemInc					;allocate desired size
							phx										;user ID just obtained
							pushword	#0							;can be anywhere, move anywhere
							pha										;location ptr...
							pha										;...will be ignored
							_NewHandle
							
*Store handle for repeated use:
							plx
							ply
							stx			SpoolHandle+0				;save handle in static variable
							sty			SpoolHandle+2				;...while preserving acc
							bcs			StartPutRts					;if error, exit with acc set

*Initialize space left in handle:
							lda			SpoolMemInc
							sta			SpoolHandleFree
							lda			SpoolMemInc+2
							sta			SpoolHandleFree+2

*Get out:
							lda			#0							;no error happened
StartPutRts					rts





*
*SPOOLFINISHPUT: Done storing data. Call after done using SPOOLPUT; ACC->Err:
*
							export		SpoolFinishPut

*If we never went to disk, don't do anything:
SpoolFinishPut				lda			SpoolToDisk
							beq			FinishPutRts				;exit with acc=0

*Flush last chunk out to disk:
							jsr			PutDoFlushSubr				;inside "SpoolPut"

*Deallocate our user ID and handle:
							pushlong	SpoolHandle
							_DisposeHandle
							pha										;save error status
							pushword	SpoolPID					;also remove user ID
							_DeleteID

*Close our file:
							lda			SpoolFileDescriptor			;put ref_num in param block
							sta			FinishPutCloseParamsRefNum
							
							_CloseGS	FinishPutCloseParams		;do the OS call
							
							bcs			FinishPutDiskError			;branch if disk error
							pla										;else remember MM error status
FinishPutRts				rts										;acc will have error status
FinishPutDiskError			plx										;who cares-disk err important
							rts
							
*Close-call parameter block for GS/OS:
FinishPutCloseParams		dc.w		1							;pCount
FinishPutCloseParamsRefNum	dc.w		0							;refNum: input






*
*SPOOLPUT: Spools data to disk or memory. Where->ParamLongC; NumBytes->ParamLongB; ACC->Err:
*
							export		SpoolPut
							
*Skip most of this code if request is for zero bytes:
SpoolPut					lda			ParamLongB+0
							ora			ParamLongB+2
							bne			PutTryStore
							rts												;exit with 0 in ACC

*Compare amount of data-requested-to-be-stored with current space left in handle:
PutTryStore					lda			ParamLongB+2						;hi order word of request
							cmp			SpoolHandleFree+2					;hi order word of free
							bcc			PutStoreMemSuccess					;less: it will fit!
							beq			PutTryStore1						;equal: test lo words...
							bcs			PutTryGrowHandle					;greater: won't fit!
PutTryStore1				lda			ParamLongB							;lo order word of request
							cmp			SpoolHandleFree						;lo order word of free
							beq			PutStoreMemSuccess					;equal: it will fit!
							bcc			PutStoreMemSuccess					;less: it will fit!
							bra			PutTryGrowHandle					;(greater): won't fit!

*Data will fit in current handle!  Deref, add handlepos, store, inc handlepos, dec handlefree:
PutStoreMemSuccess			lda			SpoolHandle							;dereference...
							sta			ParamLongA
							lda			SpoolHandle+2
							sta			ParamLongA+2
							clc
							lda			[ParamLongA]						;get pointer lo word
							adc			SpoolHandlePos						;add handle position lo
							tax
							ldy			#2
							lda			[ParamLongA],y						;get pointer hi word
							adc			SpoolHandlePos+2					;add handle position hi
							sta			ParamLongA+2
							stx			ParamLongA							;now ptr to data space
							pushlong	ParamLongC							;source
							pushlong	ParamLongA							;destination
							pushlong	ParamLongB							;count
							_BlockMove
							clc												;inc handlepos...
							lda			SpoolHandlePos
							adc			ParamLongB
							sta			SpoolHandlePos
							lda			SpoolHandlePos+2
							adc			ParamLongB+2
							sta			SpoolHandlePos+2
							sec												;dec handlefree...
							lda			SpoolHandleFree
							sbc			ParamLongB
							sta			SpoolHandleFree
							lda			SpoolHandleFree+2
							sbc			ParamLongB+2
							sta			SpoolHandleFree+2

*Increment length of data and exit:
PutIncDataLenSuccess		clc												;inc datalen...
							lda			SpoolDataLen
							adc			ParamLongB
							sta			SpoolDataLen
							lda			SpoolDataLen+2
							adc			ParamLongB+2
							sta			SpoolDataLen+2

*Exit without error:
							lda			#0
							rts

*Data won't fit in current handle, so see if we have enough space left to enlarge it:
PutTryGrowHandle			pha												;result space...
							pha
							_RealFreeMem
							pla
							sta			ParamLongA+0
							pla
							sta			ParamLongA+2
							cmp			SpoolMemLeftLimit+2
							bcc			PutNoMoreMemory						;less: no more room!
							beq			PutTryGrowHandle1					;equal: test lo word...
							bra			PutDoGrowHandle						;(greater): ok to grow!
PutTryGrowHandle1			lda			ParamLongA							;compare lo words...
							cmp			SpoolMemLeftLimit+0
							bcc			PutNoMoreMemory						;less: no more room!
							beq			PutNoMoreMemory						;equal: no more room!

*We have enough memory left in the system, so grow our handle by a chunk:
PutDoGrowHandle				pha												;result space...
							pha
							pushlong	SpoolHandle
							_GetHandleSize
							clc												;add memory increment...
							lda			SpoolMemInc+0						;... right on stack
							adc			1,s
							sta			1,s
							lda			SpoolMemInc+2
							adc			3,s
							sta			3,s
							pushlong	SpoolHandle
							_SetHandleSize									;allocate more memory
							bcs			PutNoMoreMemory						;ensure call didn't fail
							clc												;also inc handlefree...
							lda			SpoolHandleFree+0
							adc			SpoolMemInc+0
							sta			SpoolHandleFree+0
							lda			SpoolHandleFree+2
							adc			SpoolMemInc+2
							sta			SpoolHandleFree+2

*Now see if we can store our data in our newly grown memory area:
							brl			PutTryStore

*Case where can't grow handle bigger, so see if disk flag is set (ie, we have been writing to disk):
PutNoMoreMemory				lda			SpoolToDisk
							beq			PutTryOpenFile						;not yet, so go open file
							brl			PutDoFlush							;yes, so write to disk

*Check if user's filename or using our default; do NOT go here after network name-stuff below:
PutTryOpenFile				lda			#1
							sta			ParamWordA							;assume user filename
							lda			SpoolFileNamePtr+0					;theirs or ours?
							cmp			#SpoolFileName
							beq			PutTryOpenItsOurFileName1
							brl			PutTryCreateFile					;its theirs
PutTryOpenItsOurFileName1	lda			SpoolFileNamePtr+2
							cmp			#^SpoolFileName
							beq			PutTryOpenItsOurFileName2
							brl			PutTryCreateFile					;its theirs
PutTryOpenItsOurFileName2	stz			ParamWordA							;it must be ours!
							
*If it's our default name, we guarantee uniqueness by repeatedly trying random suffixes:
PutTrySuffix				pha												;result space...
							pha
							_GetTick										;get random number
							pla
							plx												;use lo word only
							phx												;result space...
							phx
							pha												;pass rnd
							_HexIt
							pulllong	SpoolFileNameUnique					;store ascii suffix

*Also if it's our default name, check if on network; if so modify the path to use USER's directory:
PutGenNetName
							_DInfoGS	PutDInfoParams						;get boot-dev name
							bcs			PutGenNetNameAssNotNetwork
							
							_VolumeGS	PutVolumeParams						;get boot FST ID
							
							bcs			PutGenNetNameAssNotNetwork
							lda			PutVolumeParamsFstID
							cmp			#$000D								;is it appleshare FST?
							beq			PutGenNetNameGoOn					;yes, so continue
PutGenNetNameAssNotNetwork	brl			PutDoneModForNetwork				;no, so continue
PutGenNetNameGoOn			
							_FSTSpecific PutGetUsrPathParams				;do FSTSpecific call
							
							bcs			PutGenNetNameAssNotNetwork
							
							lda			PutGetUsrPathParamsPfxPtr+0			;access pathname
							sta			ParamLongA+0
							lda			PutGetUsrPathParamsPfxPtr+2
							sta			ParamLongA+2
							
							lda			[ParamLongA]						;copy pathname...
							sta			SpoolNetFileName+0					;copy length word first
							shortm
							ldy			#2									;y starts beyond len wrds
							ldx			#0									;x is count of len
PutGenNetNameCopy			lda			[ParamLongA],y						;copy a byte
							sta			SpoolNetFileName,y
							iny												;bump address
							inx												;bump string count
							cpx			SpoolNetFileName+0					;go until length
							bne			PutGenNetNameCopy
							longm											;y points to next index
							
							shortm											;add ':' separator
							lda			#':'
							sta			SpoolNetFileName,y
							longm
							iny
							
							lda			#'T'+('M'*256)						;add 'TMP.'
							sta			SpoolNetFileName,y
							iny
							iny
							lda			#'P'+('.'*256)
							sta			SpoolNetFileName,y
							iny
							iny												;y points to next index
							sty			ParamLongA+0						;save y for below
							
							pha												;result space
							pha												;result space
							_GetTick										;get random number
							pla
							plx												;use lo word only
							phx												;result space
							phx												;result space
							pha												;pass rnd, cvt to ascii,
							_HexIt											;leaves 2 words on stack
							
							ldy			ParamLongA+0						;restore y from above
							pla												;store 'XXXX' rnd digits
							sta			SpoolNetFileName,y
							iny
							iny
							pla
							sta			SpoolNetFileName,y					;not maintain y anymore
							
							lda			SpoolNetFileName+0					;we added ':TMP.XXXX',
							clc												;9 characters, so adjust
							adc			#9									;the string length
							sta			SpoolNetFileName+0
														
							lda			#SpoolNetFileName					;now make sure everyone
							sta			SpoolFileNamePtr+0					;uses the built-up name
							lda			#^SpoolNetFileName
							sta			SpoolFileNamePtr+2
PutDoneModForNetwork

*Now try to create a file for writing for the first time:
PutTryCreateFile			lda			SpoolFileNamePtr+0					;loc of name -> block...
							sta			PutCreateParamsFileNamePtr+0
							lda			SpoolFileNamePtr+2
							sta			PutCreateParamsFileNamePtr+2
							
							_CreateGS	PutCreateParams
							
							bcc			PutCreateSuccess					;go on if successful
							ldx			ParamWordA							;was it their filename?
							bne			PutExit1							;yes(+err): barf & die
							cmp			#dupPathName						;(no): not unique name?
							bne			PutExit1							;if some other err, exit
							brl			PutTrySuffix						;else, try another name
PutExit1					rts												;err in acc, exit

*File has been created on disk; now open it for writing and set To-Disk flag:
PutCreateSuccess			lda			SpoolFileNamePtr+0					;loc of name -> block...
							sta			PutOpenParamsFileNamePtr+0
							lda			SpoolFileNamePtr+2
							sta			PutOpenParamsFileNamePtr+2
							
							_OpenGS		PutOpenParams
							
							bcs			PutExit1							;err shouldn't happen
							lda			PutOpenParamsRefNum					;save ref_num...
							sta			SpoolFileDescriptor
							lda			#1									;we're now disk-based!
							sta			SpoolToDisk

*Flush out to disk our filled-up handle memory:
PutDoFlush					jsr			PutDoFlushSubr
							bcs			PutExit1							;err if disk full?!!
							bra			PutContAfterFlush					;else, continue

*The following is a subroutine so it can also be used by SpoolFinishPut:
PutDoFlushSubr				lda			SpoolFileDescriptor					;ref_num -> block...
							sta			PutWriteParamsRefNum
							lda			SpoolHandle+0						;deref handle -> block...
							sta			ParamLongA+0
							lda			SpoolHandle+2
							sta			ParamLongA+2
							lda			[ParamLongA]						;get ptr lo word...
							sta			PutWriteParamsDataPtr+0
							ldy			#2									;get ptr hi word...
							lda			[ParamLongA],y
							sta			PutWriteParamsDataPtr+2
							ldy			#4									;lock for OS call...
							lda			[ParamLongA],y
							ora			#$8000
							sta			[ParamLongA],y
							lda			SpoolHandlePos+0					;pos (length) -> block...
							sta			PutWriteParamsDataLen+0
							lda			SpoolHandlePos+2
							sta			PutWriteParamsDataLen+2
							
							_WriteGS	PutWriteParams
							
							pha												;save acc error status
							ldy			#4									;unlock handle...
							lda			[ParamLongA],y
							and			#$7FFF
							sta			[ParamLongA],y
							pla												;restore err status
							cmp			#1									;restore carry too
							rts

*Set our pointers to reflect that we can re-use our handle memory now:
PutContAfterFlush			stz			SpoolHandlePos						;pos = 0...
							stz			SpoolHandlePos+2
							pha												;free = GetHandleSize...
							pha
							pushlong	SpoolHandle
							_GetHandleSize
							pulllong	SpoolHandleFree

*If we have enough memory to handle store-request into our now-reusable handle-memory, do it:
							lda			ParamLongB+2						;how much we need hi word
							cmp			SpoolHandleFree+2					;cmp with what we have
							beq			PutTryStoreII1						;equal: test lo words
							bcs			PutDirectToDisk						;greater: still not enuf
PutTryStoreIIOk				brl			PutStoreMemSuccess					;less: go store it!
PutTryStoreII1				lda			ParamLongB							;how much we need lo word
							cmp			SpoolHandleFree						;cmp with what we have
							bcc			PutTryStoreIIOk						;less: go store it!

*We flushed our buffer to disk but still can't handle data store request; so save directly to disk:
PutDirectToDisk				lda			SpoolFileDescriptor					;ref_num -> block...
							sta			PutWriteParamsRefNum
							lda			ParamLongC+0						;user's ptr -> block...
							sta			PutWriteParamsDataPtr+0
							lda			ParamLongC+2
							sta			PutWriteParamsDataPtr+2
							lda			ParamLongB+0						;user's len -> block...
							sta			PutWriteParamsDataLen+0
							lda			ParamLongB+2
							sta			PutWriteParamsDataLen+2
							
							_WriteGS	PutWriteParams
							
							bcs			PutExit2							;err, exit with acc set			
							brl			PutIncDataLenSuccess				;inc and exit no err
PutExit2					rts

*Create-call parameter block for GS/OS:
PutCreateParams				dc.w		2									;pCount
PutCreateParamsFileNamePtr	dc.l		0									;pathnm ptr: input
							dc.w		%10000011							;access: --------Drb--iWR
							
*Open-call parameter block for GS/OS:
PutOpenParams				dc.w		2									;pCount
PutOpenParamsRefnum			dc.w		0									;ref_num: result
PutOpenParamsFileNamePtr	dc.l		0									;pathnm ptr: input

*Write-call parameter block for GS/OS:
PutWriteParams				dc.w		5									;pCount
PutWriteParamsRefNum		dc.w		0									;ref_num: input
PutWriteParamsDataPtr		dc.l		0									;data_buffer: input
PutWriteParamsDataLen		dc.l		0									;request_count: input
							dc.l		0									;transfer_count: result
							dc.w		0									;cache_priority: input
							
*DInfo-call parameter block for GS/OS:
PutDInfoParams				dc.w		2									;pCount
							dc.w		1									;dev_num: input: 1=boot
							dc.l		PutDevName							;dev_name outbuff: input
							
*Device name storage buffer:
PutDevName					dc.w		36									;buffer length
PutDevName2					dc.w		0									;string length
							ds.b		32									;buffer for device name

*Volume-call parameter block for GS/OS:
PutVolumeParams				dc.w		5									;pCount
							dc.l		PutDevName2							;dev_name: input
							dc.l		PutVolName							;vol_name outbuff: input
							dc.l		0									;total blocks: result
							dc.l		0									;free blocks: result
PutVolumeParamsFstID		dc.w		0									;fst_id: result

*Volume name storage buffer:
PutVolName					dc.w		36									;buffer length
PutVolName2					dc.w		0									;string length
							ds.b		32									;buffer for volume name

*FST-specific GetUserPath parameter block for GS/OS:
PutGetUsrPathParams			dc.w		3									;pCount
							dc.w		$000D								;fst_id: inp: appleshare
							dc.w		8									;cmd: input: getuserpath
PutGetUsrPathParamsPfxPtr	dc.l		0									;prefix_ptr: result

							









*
*SPOOLSTARTGET: Prepare to retrieve data. Call this before using SPOOLGET; ACC->Err:
*
							export		SpoolStartGet

*SpoolHandlePos = 0; Will be used for offset into handle if spooled to memory:
SpoolStartGet				stz			SpoolHandlePos+0			;this will be used for offset...
							stz			SpoolHandlePos+2			;into handle, if not to-disk

*SpoolHandleFree = SpoolDataLen; Will be used to check space left in playback:
							lda			SpoolDataLen+0				;this wil be used for making...
							sta			SpoolHandleFree+0			;sure caller doesn't request...
							lda			SpoolDataLen+2				;more data than stored. note...
							sta			SpoolHandleFree+2			;"misuse" of SpoolHandleFree

*If we never went to disk, done:
							lda			SpoolToDisk					;did we ever go to disk?
							beq			StartGetInitMark			;no, and leave 0 in acc for exit

*We spooled, so open the current file for reading:
							lda			SpoolFileNamePtr+0			;put pointer to pathname
							sta			StartGetOpenParamsNamePtr+0	;...into parameter block.  This
							lda			SpoolFileNamePtr+2			;pathname might be ours or
							sta			StartGetOpenParamsNamePtr+2	;the user's
							
							_OpenGS		StartGetOpenParams
							
							bcs			StartGetExitError			;exit with acc set if error
							lda			StartGetOpenParamsRefNum	;get ref_num (file descriptor)
							sta			SpoolFileDescriptor
							lda			#0							;error didn't happen
StartGetInitMark			brl			SpoolMarkGet				;exit to init mark/restore call
StartGetExitError			rts

*Open-call parameter block for GS/OS:
StartGetOpenParams			dc.w		2							;pCount
StartGetOpenParamsRefNum	dc.w		0							;ref_num: result
StartGetOpenParamsNamePtr	dc.l		0							;pathname ptr: input






*
*SPOOLFINISHGET: Finished retrieving data. Call when done using SPOOLGET; ACC->Err:
*
							export		SpoolFinishGet

*Decide if we went to disk or memory:
SpoolFinishGet				lda			SpoolToDisk
							bne			FinishGetWentDisk

*Went to memory only, so deallocate handle and user ID:
							pushlong	SpoolHandle
							_DisposeHandle
							pha										;save error status if any
							pushword	SpoolPID
							_DeleteID
							pla										;restore error status
							rts										;exit with error status in acc

*Went to disk, so close the file:
FinishGetWentDisk			lda			SpoolFileDescriptor			;put refnum -> block
							sta			FinishGetCloseParamsRefNum
							
							_CloseGS	FinishGetCloseParams		;make the OS call
							
							pha										;save error status

*Now delete the file:
							lda			SpoolFileNamePtr+0			;put filename ptr -> block
							sta			FinishGetDestParamsFNameP+0
							lda			SpoolFileNamePtr+2
							sta			FinishGetDestParamsFNameP+2
							
							_DestroyGS	FinishGetDestParams			;make the OS call
							
							bcs			FinishGetDestroyErr			;branch if error from DESTROY
							pla										;else remember CLOSE err status
							rts										;and exit
FinishGetDestroyErr			plx										;dump CLOSE err status
							rts										;and exit with DESTROY err status
							
*Close-call parameter block for GS/OS:
FinishGetCloseParams		dc.w		1							;pCount
FinishGetCloseParamsRefNum	dc.w		0							;refNum: input

*Destroy-call parameter block for GS/OS:
FinishGetDestParams			dc.w		1							;pCount
FinishGetDestParamsFNameP	dc.l		0							;pathname: input






*
*SPOOLGET: Retrieves data. Where->ParamLongC; NumBytesWanted->ParamLongB; ACC->Err ($FFFF=end data):
*
							export		SpoolGet
							
*Skip most of this code if the request is for zero bytes:
SpoolGet					lda			ParamLongB+0
							ora			ParamLongB+2
							bne			GetGo1
							rts											;exit with 0 in ACC

*Make sure there is enough data left to handle the caller's request:
GetGo1						lda			ParamLongB+2					;compare hi words
							cmp			SpoolHandleFree+2
							beq			GetCmpLo						;equal, go compare lo words
							bcc			GetCheckSource					;less, go do it
GetEndOfData				lda			#$FFFF							;our signal for end of data
							rts
GetCmpLo					lda			ParamLongB						;compare lo words
							cmp			SpoolHandleFree
							beq			GetCheckSource					;equal, ok
							bcs			GetEndOfData					;greater, not ok

*Decide if the data is on disk or in memory:
GetCheckSource				lda			SpoolToDisk
							bne			GetFromDisk

*Data in memory; deref+add offset and blockmove the data; no need to lock because no OS calls:
							lda			SpoolHandle						;dereference...
							sta			ParamLongA
							lda			SpoolHandle+2
							sta			ParamLongA+2
							clc
							lda			[ParamLongA]					;get pointer lo word
							adc			SpoolHandlePos					;add handle position lo
							tax
							ldy			#2
							lda			[ParamLongA],y					;get pointer hi word
							adc			SpoolHandlePos+2				;add handle position hi
							pha											;hi word source
							phx											;lo word source
							pushlong	ParamLongC						;destination
							pushlong	ParamLongB						;count
							_BlockMove
							clc											;inc handlepos...
							lda			SpoolHandlePos
							adc			ParamLongB
							sta			SpoolHandlePos
							lda			SpoolHandlePos+2
							adc			ParamLongB+2
							sta			SpoolHandlePos+2
							bra			GetDecExitSuccess

*Data on disk; just read requested bytes.  GS/OS's caching will help performance here:
GetFromDisk					lda			SpoolFileDescriptor				;ref_num...
							sta			GetReadParamsRefNum				;-> block
							lda			ParamLongC+0					;request buffer...
							sta			GetReadParamsBuffPtr+0			;-> block
							lda			ParamLongC+2
							sta			GetReadParamsBuffPtr+2
							lda			ParamLongB+0					;request length...
							sta			GetReadParamsCount+0			;-> block
							lda			ParamLongB+2
							sta			GetReadParamsCount+2
							
							_ReadGS		GetReadParams
							
							bcs			GetRts1							;err, exit with acc set

*Successful exit in both cases; dec SpoolHandleFree, which is relevant even if reading from disk:
GetDecExitSuccess			sec
							lda			SpoolHandleFree					;subtract lo word
							sbc			ParamLongB
							sta			SpoolHandleFree
							lda			SpoolHandleFree+2				;subtract hi word
							sbc			ParamLongB+2
							sta			SpoolHandleFree+2
							lda			#0								;no error
GetRts1						rts

*Read-call parameter block for GS/OS:
GetReadParams				dc.w		5								;pCount
GetReadParamsRefNum			dc.w		0								;ref_num: input
GetReadParamsBuffPtr		dc.l		0								;data_buffer: input
GetReadParamsCount			dc.l		0								;request_count: input
							dc.l		0								;transfer_count: result
							dc.w		1								;cache_priority






*
*SPOOLMARKGET: Sets mark in spool data to which we can come back later.  Use only during playback:
*
							export		SpoolMarkGet

*Save current position:
SpoolMarkGet				lda			SpoolHandlePos+0
							sta			SpoolMarkHandlePos+0
							lda			SpoolHandlePos+2
							sta			SpoolMarkHandlePos+2

*Save current space left:
							lda			SpoolHandleFree+0
							sta			SpoolMarkHandleFree+0
							lda			SpoolHandleFree+2
							sta			SpoolMarkHandleFree+2

*If we didn't go to disk, we're done:
							lda			SpoolToDisk
							beq			MarkGetDone

*Save current file pointer location:
							lda			SpoolFileDescriptor
							sta			MarkGetParamsRefNum
							
							_GetMarkGS	MarkGetParams
							
							lda			MarkGetParamsPosition+0
							sta			SpoolMarkDiskPos+0
							lda			MarkGetParamsPosition+2
							sta			SpoolMarkDiskPos+2

*Exit:							
MarkGetDone					rts

*GetMark-call parameter block for GS/OS:
MarkGetParams				dc.w		2								;pCount
MarkGetParamsRefNum			dc.w		0								;ref_num: input
MarkGetParamsPosition		dc.l		0								;position: result







*
*SPOOLRETURNTOMARKGET: Restores position to mark set above. Only for playback:
*
							export		SpoolReturnToMarkGet

*Restore previous position:
SpoolReturnToMarkGet		lda			SpoolMarkHandlePos+0
							sta			SpoolHandlePos+0
							lda			SpoolMarkHandlePos+2
							sta			SpoolHandlePos+2

*Restore previous space left:
							lda			SpoolMarkHandleFree+0
							sta			SpoolHandleFree+0
							lda			SpoolMarkHandleFree+2
							sta			SpoolHandleFree+2

*If we didn't go to disk, we're done:
							lda			SpoolToDisk
							beq			MarkReturnDone

*Restore previous file pointer location:
							lda			SpoolFileDescriptor
							sta			MarkReturnParamsRefNum
							lda			SpoolMarkDiskPos+0
							sta			MarkReturnParamsPosition+0
							lda			SpoolMarkDiskPos+2
							sta			MarkReturnParamsPosition+2
							
							_SetMarkGS	MarkReturnParams
							

*Exit:							
MarkReturnDone				rts

*SetMark-call parameter block for GS/OS:
MarkReturnParams			dc.w		3								;pCount
MarkReturnParamsRefNum		dc.w		0								;ref_num: input
							dc.w		0								;base: input
MarkReturnParamsPosition	dc.l		0								;position: input






*
*DATA: Static globals which needs to be preserved across calls to these routines:
*Note: SpoolDataSize is kept valid even if spooling is going to disk!
*
							export		SpoolFileNamePtr					;user modifyable
							export		SpoolMemInc							;user modifyable
							export		SpoolMemLeftLimit					;user modifyable
SpoolDataLen				dc.l		0									;total length of data
SpoolHandle					dc.l		0									;handle to data
SpoolHandleFree				dc.l		0									;space left in handle
SpoolHandlePos				dc.l		0									;current data position
SpoolMarkHandlePos			dc.l		0									;for mark/return
SpoolMarkHandleFree			dc.l		0									;for mark/return
SpoolMarkDiskPos			dc.l		0									;for mark/return
SpoolMemInc					dc.l		0									;amount to grow handle
SpoolMemLeftLimit			dc.l		0									;go-to-disk threshold
SpoolToDisk					dc.w		0									;1=if spooling to disk
SpoolFileDescriptor			dc.w		0									;"ref_num" for GS/OS
SpoolPID					dc.w		0									;user ID for malloc calls
SpoolFileNamePtr			dc.l		0									;ptr to actual spool name

SpoolFileName				dc.w		SpoolFileNameEnd-SpoolFileNameStart	;our default spool name
SpoolFileNameStart			dc.b		'*/SYSTEM/DRIVERS/TMP.'				;this part stays same
SpoolFileNameUnique			dc.b		'XXXX'								;this gets rand suffix
SpoolFileNameEnd

SpoolNetFileName			dc.w		0									;gets built-up name
							ds.b		80







							endproc
							end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/QD/CallTable.asm b/IIGS.601.SRC/GSToolbox/QD/CallTable.asm
new file mode 100644
index 0000000..0049b52
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/QD/CallTable.asm
@@ -0,0 +1 @@
+	title 'QD CallTable              GS ROM 3.0'
****************************************************************
*			   *
*                         CallTable		   *
*			   *
****************************************************************


****************************************************************
*			   *
*	Copyright (C) 1985-1990	   *
*	All Rights Reserved		   *
*	Apple Computer, Inc.	   *
*			   *
****************************************************************
*
* 24-Sep-90	Dave Lyons
*
* Removing dependency on all.macros.  Version $8306.
* Adding two new calls:
*    DA04 Get640Colors():PattTablePtr
*    DB04 Set640Color(colorNumber)
* (The Window Manager and Menu Manager both had copies of
* the 640-dithered-colors table, and many apps and DAs have
* their own copies, so it makes more sense to have just one
* copy in QD.)
*
* 8-Mar-91	Dave Lyons
*
* In September when I was taking out all.macros, I didn't
* finish, so this file wouldn't build.  Put all.macros back.
* Comment out new call references so it will link.  We don't
* really need to build this anyway.
*


	include 'all.macros'
	INCLUDE ':QDEquates:qd.data.asm'


CallTable	PROC EXPORT


	DC.L (TheEnd-CallTable)/4 ; num calls +	1
	DC.L CoreBootInit-1		; 1
	DC.L CoreApInit-1		; 2
	DC.L CoreTerminate-1 	; 3
	DC.L CoreVersion-1		; 4
	DC.L CoreReset-1		; 5  QDReset
	DC.L QDStatus-1		; 6  QDstatus
	DC.L oEndCall0-1		; 7  spare
	DC.L oEndCall0-1		; 8  spare

	DC.L GetAddress-1

	DC.L GrafOn-1
	DC.L GrafOff-1
	DC.L GetStandardSCB-1
	DC.L InitColorTable-1
	DC.L SetColorTable-1
	DC.L GetColorTable-1
	DC.L SetColorEntry-1
	DC.L GetColorEntry-1
	DC.L SetSCB-1
	DC.L GetSCB-1
	DC.L SetAllSCBs-1
	DC.L ClearScreen-1
	DC.L SetMasterSCB-1
	DC.L GetMasterSCB-1

	DC.L OpenPort-1
	DC.L InitPort-1
	DC.L ClosePort-1
	DC.L SetPort-1
	DC.L GetPort-1
	DC.L SetPortLoc-1
	DC.L GetPortLoc-1
	DC.L SetPortRect-1
	DC.L GetPortRect-1
	DC.L SetPortSize-1
	DC.L MovePortTo-1
	DC.L SetOrigin-1
	DC.L SetClip-1
	DC.L GetClip-1
	DC.L SetClipToRect-1
	DC.L HidePen-1
	DC.L ShowPen-1
	DC.L GetPen-1
	DC.L SetPenState-1
	DC.L GetPenState-1
	DC.L PenSize-1
	DC.L GetPenSize-1
	DC.L PenMode-1
	DC.L GetPenMode-1
	DC.L PenPat-1
	DC.L GetPenPat-1
	DC.L SetDrawMask-1
	DC.L GetDrawMask-1
	DC.L BackPat-1
	DC.L GetBackPat-1
	DC.L PenNormal-1
	DC.L SolidPenPat-1
	DC.L SolidBackPat-1
	DC.L SolidPattern-1
	DC.L MoveTo-1
	DC.L Move-1

	DC.L LineTo-1
	DC.L Line-1

	DC.L SetPicSave-1
	DC.L GetPicSave-1
	DC.L SetRgnSave-1
	DC.L GetRgnSave-1
	DC.L SetPolySave-1
	DC.L GetPolySave-1
	DC.L SetGrafProcs-1
	DC.L GetGrafProcs-1
	DC.L SetUserField-1
	DC.L GetUserField-1
	DC.L SetSysField-1
	DC.L GetSysField-1

	DC.L SetRect-1
	DC.L OffsetRect-1
	DC.L InsetRect-1
	DC.L SectRect-1
	DC.L UnionRect-1
	DC.L PtInRect-1
	DC.L Pt2Rect-1
	DC.L EqualRect-1
	DC.L NotEmptyRect-1

	DC.L FrameRect-1
	DC.L PaintRect-1
	DC.L EraseRect-1
	DC.L InvertRect-1
	DC.L FillRect-1

	DC.L FrameOval-1
	DC.L PaintOval-1
	DC.L EraseOval-1
	DC.L InvertOval-1
	DC.L FillOval-1

	DC.L FrameRRect-1
	DC.L PaintRRect-1
	DC.L EraseRRect-1
	DC.L InvertRRect-1
	DC.L FillRRect-1

	DC.L FrameArc-1
	DC.L PaintArc-1
	DC.L EraseArc-1
	DC.L InvertArc-1
	DC.L FillArc-1

	DC.L NewRgn-1
	DC.L DisposeRgn-1
	DC.L CopyRgn-1
	DC.L SetEmptyRgn-1
	DC.L SetRectRgn-1
	DC.L RectRgn-1
	DC.L OpenRgn-1
	DC.L CloseRgn-1
	DC.L OffsetRgn-1
	DC.L InsetRgn-1
	DC.L SectRgn-1
	DC.L UnionRgn-1
	DC.L DiffRgn-1
	DC.L XorRgn-1
	DC.L PtInRgn-1
	DC.L RectInRgn-1
	DC.L EqualRgn-1
	DC.L EmptyRgn-1

	DC.L FrameRgn-1
	DC.L PaintRgn-1
	DC.L EraseRgn-1
	DC.L InvertRgn-1
	DC.L FillRgn-1

	DC.L ScrollRect-1
	DC.L PaintPixels-1

	DC.L AddPt-1
	DC.L SubPt-1
	DC.L SetPt-1
	DC.L EqualPt-1
	DC.L LocalToGlobal-1
	DC.L GlobalToLocal-1

	DC.L Random-1
	DC.L SetRandSeed-1
	DC.L GetPixel-1
	DC.L ScalePt-1
	DC.L MapPt-1
	DC.L MapRect-1
	DC.L MapRgn-1

	DC.L SetStdProcs-1

	DC.L SetCursor-1
	DC.L GetCursorAdr-1
	DC.L HideCursor-1
	DC.L ShowCursor-1
	DC.L ObscureCursor-1
	DC.L SetMouseLoc-1

	DC.L SetFont-1
	DC.L GetFont-1
	DC.L GetFontInfo-1
	DC.L GetFontGlobals-1
	DC.L SetFontFlags-1
	DC.L GetFontFlags-1
	DC.L TextFace-1
	DC.L GetTextFace-1
	DC.L TextMode-1
	DC.L GetTextMode-1
	DC.L SpaceExtra-1
	DC.L GetSpaceExtra-1
	DC.L SetForeColor-1
	DC.L GetForeColor-1
	DC.L SetBackColor-1
	DC.L GetBackColor-1

	DC.L DrawChar-1
	DC.L DrawString-1
	DC.L DrawCString-1
	DC.L DrawText-1
	DC.L CharWidth-1
	DC.L StringWidth-1
	DC.L CStringWidth-1
	DC.L TextWidth-1
	DC.L CharBounds-1
	DC.L StringBounds-1
	DC.L CStringBounds-1
	DC.L TextBounds-1

	DC.L SetArcRot-1
	DC.L GetArcRot-1

	DC.L SetSysFont-1
	DC.L GetSysFont-1

	DC.L SetVisRgn-1
	DC.L GetVisRgn-1

	DC.L SetIntUse-1

	DC.L OpenPicture-1
	DC.L PicComment-1
	DC.L ClosePicture-1
	DC.L DrawPicture-1
	DC.L KillPicture-1

	DC.L FramePoly-1
	DC.L PaintPoly-1
	DC.L ErasePoly-1
	DC.L InvertPoly-1
	DC.L FillPoly-1

	DC.L OpenPoly-1
	DC.L ClosePoly-1
	DC.L KillPoly-1
	DC.L OffsetPoly-1
	DC.L MapPoly-1

	DC.L SetClipHandle-1
	DC.L GetClipHandle-1
	DC.L SetVisHandle-1
	DC.L GetVisHandle-1

	DC.L UserInitCursor-1

	DC.L SetBufDims-1		; added may 9
	DC.L ForceBufDims-1

	DC.L SaveBufDims-1
	DC.L RestoreBufDims-1

	DC.L GetFGSize-1		; added may 7, 1986

	DC.L SetFontID-1		; added may 2, 1986
	DC.L GetFontID-1
	DC.L SetTextSize-1
	DC.L GetTextSize-1
	DC.L SetCharExtra-1
	DC.L GetCharExtra-1		; end may 2 addition

	DC.L PPToPort-1		; added to rom 21 Aug 86

	DC.L InflateTextBuffer-1 	; added to rom 23 Dec 86
	DC.L GetROMFont-1
	DC.L GetFontLore-1		; end of 23 Dec 86 addition
;	DC.L Get640Colors-1		;added 24-Sep-90 DAL
;	DC.L Set640Color-1		;added 24-Sep-90 DAL
TheEnd

	ENDP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/QD/FastFontCache b/IIGS.601.SRC/GSToolbox/QD/FastFontCache
new file mode 100644
index 0000000..2d59575
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/QD/FastFontCache
@@ -0,0 +1 @@
+*******************************************************************************
*
* Initialization for Fast text caching routines...
*
* (C)  Copyright Apple Computer, Inc. 1989, 1992
* All rights reserved.
*
* by Jim Mensch
* 2/7/89
*
*******************************************************************************
*
* Modification History:
*
* Version 1.0	mensch 2/7/89
*
* 15 Mar 89	Steven Glass
*
* A little clean up so it can be used in both the patch and the ROM.
*
* 3-Feb-92	Dave Lyons
*
* Fixed bug where the FastFont message ($0023) was not getting deleted when
* we disposed of the FastFont handle (because it had been purged).
*
* Minor optimizations.
*
*******************************************************************************
	EJECT

	MACRO
	bcsl &A
	bcc  @dontTake
	brl  &A
@dontTake
	MEND


FastFontMsgRecord	Record 0
Next	ds.L 1
Type	ds.w 1
Indicator	ds.w 1
Handle	ds.L 1
Size	equ Handle+4
	ENDR



*******************************************************************************
*
DoFastSetup	PROC export
*
* This routine does all the necessary setup to use a fast system font.
*
* First it looks for the FastFont in memory.  It is kept in a handle which
* is kept in a new message.
*
* If the message exists, then we look at the font handle.  It may have
* been purged.  A purged handle means that we have to start over as
* if the handle was not there at all.
*
* If the message does not exist or the font has been purged, then
* we look for the font on disk.  If it's there we get memory for it
* and read it in.
*
* Finally we create the message for the fast font so that the next
* time it can be there.
*
*
* Inputs:	Stack:  Room for result
*	a-reg   QuickDraw's DPage
*
* Outputs:	Stack:  Handle
*	a-reg   QuickDraw's DPage
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
*******************************************************************************
	DefineStack
deref1	long
tempPort	long
tempHandle	long
RefNum	word
FileSize	word
;
SaveDPage	word
QDDPage	word
RTL1	block 3
Result	long

SizeOfFrame	equ SaveDPage-deRef1

;
; Equates for the fastfont record
;
o_FFAscent	equ 0
o_FFDescent	equ o_FFAscent+2
o_FFMaxWidth	equ o_FFDescent+2
o_Leading	equ o_FFMaxWidth+2
o_FFrowBytes	equ o_Leading+2
o_oldFontHandle	equ o_FFRowBytes+2
o_StrikeSize	equ o_oldFontHandle+4
o_FFSizeofVars	equ o_StrikeSize+4
o_FFWidthTable	equ o_FFSizeofVars
o_FFOffsetTable	equ o_FFWidthTable+256
o_FFEndOfTables	equ o_FFOffsetTable+512
;
; MessageCenterEquates
FFHandleMessage	equ 35	; message number that will contain our fastfont handle
FFMessageSize	equ 8	; it will be 8 bytes long just in case..
FFMessageIndicator	equ $A5E7	; just a byte that indicates the message is ok..
FFID	equ $4404	; memory ID we use to create handle here.



	pha
	phd
	tcd	; switch in qddpage for a moment to clear handle
	ldx #512	; first thing we do is zero out the old fastfontptr
	stz <FastRomFont,x
	stz <FastRomFont+2,x
	tsc	; get the stack pointer

	sec
	sbc #SizeOfFrame
	tcd	; create the stack frame...
	tcs
;
; Now that the stack frame is set up, create the offscreen buffers that we are
; going to use. Ask for a block the size of shaston 8 first!
;
	stz Result
	stz Result+2

	jsr GetMessage	; first see if the fastfont is in memory already
	bcs @NotLoaded	; if carry set, the fastfont ain't here yet..

	sta Result
	txa
	ora #$8000
	sta Result+2
	ldx #0
	brl @okEnd
@NotLoaded

;
; Open the File
;
	lda #0
	pha	; room for refnum
	pha
	PushLong #FFPath
	pha
	tsc
	pea 00
	inc a
	pha
	pea $0010	;OPEN
	jsl >$E100B0
	tax
	pla	; save the refnum
	ply
	ply
	ply
	ply	; discard the crap
	bcsl @QuickExit
	sta refNum

;
; Get the file size
;
	pha	; space for eof
	pha
	pei refNum	; the ref num
	tsc	; pointer to param block
	pea 00
	inc a
	pha
	pea $19	;GET_EOF
	jsl >$E100B0
	pla
	pla
	plx
	sta FileSize	; save this here
	bcs @QuickError	; Close file and get out on error

;
; Now get memory for the file
;

	ldx #attrLocked+attrNoSpec	; start it out locked.
	jsr GetALittleMem
	bcsl @QuickError		; close file and get out  on error

	sta deRef1
	sta Result
	txa
	ora #$8000
	sta deRef1+2
	sta Result+2

;
; Deref the handle in place (Pointer goes to deRef1).
;
	ldy #2	; Deref handle and put pointer in deref1
	lda [deref1],y
	tax
	lda [deref1]
	sta deref1
	stx deref1+2

;
; Read the data
;
	lda #0
	pha
	pha
	pha
	pei FileSize
	pei deref1+2
	pei deref1
	pei refnum
	tsc
	pea 00
	inc a
	pha
	pea $0012	;READ
	jsl >$E100B0
	plx
	plx
	plx
	plx
	plx
	plx
	plx

;
; Come here if error occurs after open.
;
@QuickError	php	; save the read status, it's important

;
; Close the file.
;
	pei refnum
	tsc
	pea 00
	inc a
	pha
	pea $0014	;CLOSE
	jsl >$E100B0
	pla

;
; Now see if everything worked or not.
;
	plp
	ldx #-1
	bcs @ErrOut	; carry set means it did not work

;
; Put the handle to the real system font into place.  Make this stuff work right!
;
	ldy #o_oldFontHandle
	lda #SystemFont
	sta [deref1],y
	lda #^SystemFont
	ldy #o_oldFontHandle+2
	sta [Deref1],y

;
; Unlock the fast font handle
;
	ldy #4
	lda [Result],y
;;;	and #$7FFF
*** opt 3-Feb-92 DAL
	asl a
	lsr a
*** end 3-Feb-92
	sta [Result],y

	jsr sendMessage	; if we get this far, post our little message...
	ldx #0

@ErrOut
;;;	cpx #0	; if x is zero we are safe
	txa	;opt 3-Feb-92 DAL
	beq @okend
	lda Result+2	; it was not zero so kill the allocated handle
	and #$00FF
	tax

	lda Result
	jsr KillIt

@QuickExit		; finally!

@okEnd	tdc
	clc
	adc #SizeOfFrame
	tcs
	pld
	pla
	txa
	cmp #1
	rtl

;
; FastFontMessageStuff
; This section will contain routines that operate with the message center to add/change
; the fastfont message that it finds.
;
;
GetMessage
;
; This routine will be called to get the fastfont handle from the message center
; if it exists.  It will set the carry if no message exists yet, if the carry is
; clear then <A> and <x> will contain the fastfont handle to use,
; <A> high word <X> low word
;
	stz <deref1
	stz <deref1+2

	lda #FastFontMsgRecord.size
	ldx #attrLocked
	jsr GetALittleMem
	bcs @NoMessage
	sta <Deref1	; save the handle for a second...
	stx <Deref1+2


	pea 2	; get a message
	pea FFHandleMessage	; type of message to get
	phx
	pha
	_MessageCenter	; get the proper message
	bcc @GotMessage	; if no error then continue
@NoFastFont
*** added 3-Feb-92 DAL -- If the handle was bad or purged, kill the message!
*** Otherwise the next time we fetch the message it will contain somebody
*** else's handle, and we'll try to use that for FastFont!  Ouch.
	pea 3	;delete message
	pea FFHandleMessage
	phx
	phx	;ignored
	_MessageCenter
*** end 3-Feb-92

	lda deRef1
	ldx deRef1+2
	jsr KillIt

@NoMessage	sec	; indicate no message yet
	rts	; and return

@GotMessage
	ldy #2	; deref the message
	lda [deref1]
	sta <tempPort	; dereference the message to get its contents
	lda [deref1],y
	sta TempPort+2

	ldy #FastFontMsgRecord.Indicator
	lda [tempPort],y		; now check the signature...
	cmp #FFMessageIndicator
	bne @NoFastFont		; if not proper, then someone else used my message


;
; At this time, we have a valid message, lets test it to see if it still has
; a good handle in it!
;
	ldy #FastFontMsgRecord.Handle+2	; recover the handle
	lda [tempPort],y
	and #$00FF		; strip off high bit.
	tax
	dey
	dey
	lda [TempPort],y
	sta tempPort
	stx tempPort+2

;
; Is this a valid handle?
;
	pei tempPort+2
	pei tempPort
	_Checkhandle
	bcs @NoFastFont
;
; test to see if the handle is purged...
;
	lda [tempPort]
	ldy #2
	ora [tempPort],y
	bne @NotPurged

;
; It was purged so kill the orphan.
;
	lda TempPort
	ldx TempPort+2
	jsr KillIt
	bra @NoFastFont	; tell the app we did not have a fastfont
@NotPurged


;
; If we get this far, then we have a proper message with the proper fastfont stuff in it
;
	pea 0		; set the purge level to 0
;;;	PushLong <tempPort
*** opt 3-Feb-92 DAL
	pei <tempPort+2
	pei <tempPort
*** end 3-Feb-92
	_SetPurge		; set it as nonpurgeable...

;
; Get rid of temporary handle.
;
	lda deRef1
	ldx deRef1+2
	jsr KillIt

	lda TempPort		; Return the handle in a & x
	ldx TempPort+2

IgnoreError	clc		; clear the carry
	rts		; and return



;-----------------------------------------------------------
;
; SendMessage puts a fast font message record in the
; the message center.
;
SendMessage

; First allocate room for our message
	stz <tempHandle
	stz <tempHandle+2

	lda #FastFontMsgRecord.Size
	ldx #attrLocked		; locked for now
	jsr GetALittleMem
	bcs IgnoreError		; if no error continue

	sta <tempHandle		; save the handle for a second...
	stx <tempHandle+2
	ldy #2		; deref it.
	lda [tempHandle]
	sta tempPort
	lda [tempHandle],y
	sta tempPort+2

	ldy #FastFontMsgRecord.Indicator	; put our values in it
	lda #FFMessageIndicator
	sta [tempPort],y
	lda <Result
	ldy #FastFontMsgRecord.Handle
	sta [tempPort],y
	iny
	iny
	lda <Result+2
	sta [tempPort],y
;
; now that we have a message send it...
;
	pea 1	; add a message
	pea FFHandleMessage	; type of message to get
	pei TempHandle+2
	pei TempHandle
	_MessageCenter	; get the proper message
@NoMessage


;
; Get rid of temporary handle
;
	lda tempHandle
	ldx tempHandle+2
	jsr KillIt

	clc	; indicate no message yet
	rts	; and return

FFPath	str '*/System/Fonts/FastFont'


;-----------------------------------------------------------
;
; Disposes the handle passed in a & x.
;
KillIt

	phx
	pha
	_DisposeHandle
	rts

;-----------------------------------------------------------
;
; This is a little internal routine to call the memory manager
; and get a handle of size (a-reg) and attributes(x-reg).
;
GetALittleMem	pha
	pha
	pea 0
	pha
	pea FFID	; user id
	phx	; desired attributes
	pha
	pha
	_NewHandle
	pla
	plx
	rts

	EndP
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/QD/QDAlone/makefile b/IIGS.601.SRC/GSToolbox/QD/QDAlone/makefile
new file mode 100644
index 0000000..119b3a3
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/QD/QDAlone/makefile
@@ -0,0 +1 @@
+### Dependancies for qd.loader
qd.loader					Ä					¶
			qd.loader.asm.obj		
		linkiigs  qd.loader.asm.obj -o qd.loader


### Dependancies for components
qd.loader.asm.obj		Ä	qd.loader.asm
	asmiigs qd.loader.asm
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/QD/QDAlone/qd.loader.asm b/IIGS.601.SRC/GSToolbox/QD/QDAlone/qd.loader.asm
new file mode 100644
index 0000000..f4ca524
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/QD/QDAlone/qd.loader.asm
@@ -0,0 +1 @@
+	include 'all.macros'



	EXPORT QDLoader
QDLoader	PROC

QDUserID	equ $B001

	phk
	plb

	pha	; space for result
	PushWord #QDUserID
	PushWord #0
	_UserShutdown

	pla

	pha	; space for dir page stack size
	pha	; space for addr of	dir page stack seg
	pha	; space for starting addr
	pha
	pha	; space for user id
	PushWord #QDUserID	; user id
	PushLong #QDName	; ptr to path name
	PushWord #0
	_InitialLoad
	bcs Die

	pla	; ignore userid
	pla	; put starting address
	sta TableAddress
	pla
	sta TableAddress+2
	pla	; ignore dir page
	pla	; ignore dir page size

	PushWord #0	; system call
	PushWord #4	; install the patch
	PushLong TableAddress
	_SetTSPtr
	
	_SetDefaultTPT
	
	
	import TryItOut
	jsl TryItOut
	
	

	_Quit QuitParams


QuitParams	DC.L 0
	DC.W 0


QDName	str '1/QD.IN.RAM'

TableAddress	DS.B 4





Die		; 
	pha
	PushLong #ErrorString
	_SysFailMgr

ErrorString	str 'Could not load.  Error was $'

	ENDP





TryItOut	PROC
	DSect 0
MyUserID	word
TestRgn1	long
TestRgn2	long


	lda >$C062
	and #$0080
	beq @1

	brk $17

@1

	pha
	_MMStartup
	pla
	sta MyUserID

	tdc
	clc
	adc #$100
	pha	; dpage
	PushWord #$80	; mode
	PushWord #0	; max width
	pei MyUserID	; user id
	_QDStartup

	pha	; test the font caching stuff...
	pha
	_GetSysFont
	_SetFont

	PushLong #TestRect1
	_EraseRect


	pha
	pha
	_NewRgn
	PullLong TestRgn1

	pha
	pha
	_NewRgn
	PullLong TestRgn2

	PushLong TestRgn1
	PushLong #TestRect2
	_RectRgn

	PushLong TestRgn2
	PushLong #testRect3
	_RectRgn

	PushLong TestRgn1
	PushLong TestRgn2
	PushLong TestRgn1
	_UnionRgn
	
	PushLong TestRgn1
	_setClip

	PushLong #testrect1
	_PaintRect

	PushLong #ThisPat
	_SetPenPat

	PushLong #TestRect1
	_PaintRect


	pea 100
	pea 100
	_MoveTo
	PushLong #testText
	_DrawString

	pha
	pea 0
	_ReadChar
	pla


	pei TestRgn1+2
	pei TestRgn1
	_DisposeRgn

	pei TestRgn2+2
	pei TestRgn2
	_DisposeRgn


	_QDShutdown

	rtl


TestRect1	dc.w 0,0,200,640
TestRect2	dc.w 10,10,100,300
TestRect3	dc.w 50,100,150,310
TestText	str 'Strings are now working fine!'
ThisPat	dc.w $1122,$3344
	dc.w $1122,$3344
	dc.w $1122,$3344
	dc.w $1122,$3344
	dc.w $3344,$1122
	dc.w $3344,$1122
	dc.w $3344,$1122
	dc.w $3344,$1122

	ENDP

	END
	
	
	
	
	
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/QD/QDAlone/strip.asm b/IIGS.601.SRC/GSToolbox/QD/QDAlone/strip.asm
new file mode 100644
index 0000000..76fc90c
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/QD/QDAlone/strip.asm
@@ -0,0 +1 @@
+****************************************************************
*			   *
*	 Common Strip Routines	   *
*	     Version 1.0		   *
*	    August 13, 1986		   *
*			   *
****************************************************************


****************************************************************
*			   *
*	Copyright (C) 1985-1988	   *
*	All Rights Reserved		   *
*	Apple Computer, Inc.	   *
*			   *
****************************************************************

****************************************************************
*
* EndCall Routines.
*
* Functions exit through the EndCall routines.  These routines
* fix the stack by moving the RTL addresses up and stripping
* off any input parameters.
*
* The number of bytes to strip off the stack is passed in the
* y-register.
*
* There are 8 end call routines
*
*       EndCall	   Pulls D off stack before cleaning up.  Sets
*	   a-reg to zero and clears carry.
*       oEndCall	   Does not pull D off the stack before
*	   cleaning up.  Sets a-reg to zero and	clears
*	   carry.
*       ErrOut	   Pulls D off stack, cleans up and returns
*	   error code passed in x-register, setting
*	   carry if x is not zero.
*       oErrOut	   Does not pull D off stack before cleaning up.
*	   returns error code passed in x-register,
*	   setting carry if	x is not zero.
*
*       BusyEC	   Decrements the busy flag, pulls D off stack
*	   and cleans up.
*       oBusyEC	   Decrements the busy flag, does not pull D off stack
*	   and cleans up.
*       BusyErr	   Decrements the busy flag, pulls D off stack,
*	   cleans up and returns error code passed in
*	   x-register, setting the carry if x is not zero.
*       oBusyErr	   Decrements the busy flag, does not pull D off
*	   the stack, cleans up and returns error code passed
*	   in x-register.
*
****************************************************************
Strip	PROC
IncBusyFlg		equ $E10064
DecBusyFlg		equ $E10068

	EXPORT BusyEC
BusyEC
	ldx #0

	EXPORT BusyErr
BusyErr
	jsl DecBusyFlg
	bra ErrOut

	EXPORT EndCall
EndCall
	ldx #0

	EXPORT ErrOut
ErrOut
	pld	; restore direct register

	EXPORT oErrOut
oErrOut
	phy	; save amount to strip on stack
	tsc	; get stack pointer
	clc	; add to it the amount to strip
	adc 1,s
	tay	; put this result in Y
	tsc	; get back orig stack pointer
	phx	; save error on stack
	tax	; put orig stack in	X
	phb	; now save the data	bank reg
	pea $0000	; set data bank reg	to 0
	plb
	plb
	lda |3+4,x	; now use x and y to move 6 bytes
	sta |3+4,y	; of rtl info from current pos
	lda |3+2,x	; to final pos.
	sta |3+2,y
	lda |3+0,x
	sta |3+0,y
	plb	; restore data bank	register
	plx	; restore x register with error

	tsc	; get stack again
	clc	; bump it by amount	to strip Plus 2
	adc 1,s	; to make up for amount to strip
	adc #2	; still on stack
	tcs	; reset stack pointer
	txa	; error into a-reg
	cmp #1	; set carry correctly
	rtl	; fini

	EXPORT oBusyEC
oBusyEC
	ldx #0

	EXPORT oBusyErr
oBusyErr
	jsl DecBusyFlg
	bra oErrOut

	EXPORT oEndCall
oEndCall
	ldx #0
	bra oErrOut

	ENDP





oEndCalls	PROC EXPORT

	EXPORT oEndCall0
	EXPORT oEndCall2
	EXPORT oEndCall4
	EXPORT oEndCall6
	EXPORT oEndCall8
	EXPORT oEndCall10
	EXPORT oEndCall12
	EXPORT oENDCall14
	EXPORT oEndCall16



oEndCall0
	ldy #0
	jml oEndCall
oEndCall2
	ldy #2
	jml oEndCall
oEndCall4
	ldy #4
	jml oEndCall
oEndCall6
	ldy #6
	jml oEndCall
oEndCall8
	ldy #8
	jml oEndCall
oEndCall10
	ldy #10
	jml oEndCall
oEndCall12
	ldy #12
	jml oEndCall
oENDCall14
	ldy #14
	jml oEndCall
oEndCall16
	ldy #16
	jml oEndCall


	ENDP
	

EndCalls	PROC EXPORT

	EXPORT EndCall0
	EXPORT EndCall2
	EXPORT EndCall4
	EXPORT EndCall6
	EXPORT EndCall8
	EXPORT EndCall10
	EXPORT EndCall12
	EXPORT EndCall14
	EXPORT EndCall16



EndCall0
	ldy #0
	jml EndCall
EndCall2
	ldy #2
	jml EndCall
EndCall4
	ldy #4
	jml EndCall
EndCall6
	ldy #6
	jml EndCall
EndCall8
	ldy #8
	jml EndCall
EndCall10
	ldy #10
	jml EndCall
EndCall12
	ldy #12
	jml EndCall
EndCall14
	ldy #14
	jml EndCall
EndCall16
	ldy #16
	jml EndCall


	ENDP
	

oErrOuts	PROC EXPORT

	EXPORT oErrOut0
	EXPORT oErrOut2
	EXPORT oErrOut4
	EXPORT oErrOut6
	EXPORT oErrOut8
	EXPORT oErrOut10
	EXPORT oErrOut12
	EXPORT oErrOut14
	EXPORT oErrOut16



oErrOut0
	ldy #0
	jml oErrOut
oErrOut2
	ldy #2
	jml oErrOut
oErrOut4
	ldy #4
	jml oErrOut
oErrOut6
	ldy #6
	jml oErrOut
oErrOut8
	ldy #8
	jml oErrOut
oErrOut10
	ldy #10
	jml oErrOut
oErrOut12
	ldy #12
	jml oErrOut
oErrOut14
	ldy #14
	jml oErrOut
oErrOut16
	ldy #16
	jml oErrOut


	ENDP
	

ErrOuts	PROC EXPORT

	EXPORT ErrOut0
	EXPORT ErrOut2
	EXPORT ErrOut4
	EXPORT ErrOut6
	EXPORT ErrOut8
	EXPORT ErrOut10
	EXPORT ErrOut12
	EXPORT ErrOut14
	EXPORT ErrOut16



ErrOut0
	ldy #0
	jml ErrOut
ErrOut2
	ldy #2
	jml ErrOut
ErrOut4
	ldy #4
	jml ErrOut
ErrOut6
	ldy #6
	jml ErrOut
ErrOut8
	ldy #8
	jml ErrOut
ErrOut10
	ldy #10
	jml ErrOut
ErrOut12
	ldy #12
	jml ErrOut
ErrOut14
	ldy #14
	jml ErrOut
ErrOut16
	ldy #16
	jml ErrOut


	ENDP
	

oBusyECs	PROC EXPORT

	EXPORT oBusyEC0
	EXPORT oBusyEC2
	EXPORT oBusyEC4
	EXPORT oBusyEC6
	EXPORT oBusyEC8
	EXPORT oBusyEC10
	EXPORT oBusyEC12
	EXPORT oBusyEC14
	EXPORT oBusyEC16



oBusyEC0
	ldy #0
	jml oBusyEC
oBusyEC2
	ldy #2
	jml oBusyEC
oBusyEC4
	ldy #4
	jml oBusyEC
oBusyEC6
	ldy #6
	jml oBusyEC
oBusyEC8
	ldy #8
	jml oBusyEC
oBusyEC10
	ldy #10
	jml oBusyEC
oBusyEC12
	ldy #12
	jml oBusyEC
oBusyEC14
	ldy #14
	jml oBusyEC
oBusyEC16
	ldy #16
	jml oBusyEC


	ENDP
	

BusyECs	PROC EXPORT

	EXPORT BusyEC0
	EXPORT BusyEC2
	EXPORT BusyEC4
	EXPORT BusyEC6
	EXPORT BusyEC8
	EXPORT BusyEC10
	EXPORT BusyEC12
	EXPORT BusyEC14
	EXPORT BusyEC16



BusyEC0
	ldy #0
	jml BusyEC
BusyEC2
	ldy #2
	jml BusyEC
BusyEC4
	ldy #4
	jml BusyEC
BusyEC6
	ldy #6
	jml BusyEC
BusyEC8
	ldy #8
	jml BusyEC
BusyEC10
	ldy #10
	jml BusyEC
BusyEC12
	ldy #12
	jml BusyEC
BusyEC14
	ldy #14
	jml BusyEC
BusyEC16
	ldy #16
	jml BusyEC


	ENDP
	

oBusyErrs	PROC EXPORT

	EXPORT oBusyErr0
	EXPORT oBusyErr2
	EXPORT oBusyErr4
	EXPORT oBusyErr6
	EXPORT oBusyErr8
	EXPORT oBusyErr10
	EXPORT oBusyErr12
	EXPORT oBusyErr14
	EXPORT oBusyErr16



oBusyErr0
	ldy #0
	jml oBusyErr
oBusyErr2
	ldy #2
	jml oBusyErr
oBusyErr4
	ldy #4
	jml oBusyErr
oBusyErr6
	ldy #6
	jml oBusyErr
oBusyErr8
	ldy #8
	jml oBusyErr
oBusyErr10
	ldy #10
	jml oBusyErr
oBusyErr12
	ldy #12
	jml oBusyErr
oBusyErr14
	ldy #14
	jml oBusyErr
oBusyErr16
	ldy #16
	jml oBusyErr


	ENDP
	

BusyErrs	PROC EXPORT

	EXPORT BusyErr0
	EXPORT BusyErr2
	EXPORT BusyErr4
	EXPORT BusyErr6
	EXPORT BusyErr8
	EXPORT BusyErr10
	EXPORT BusyErr12
	EXPORT BusyErr14
	EXPORT BusyErr16



BusyErr0
	ldy #0
	jml BusyErr
BusyErr2
	ldy #2
	jml BusyErr
BusyErr4
	ldy #4
	jml BusyErr
BusyErr6
	ldy #6
	jml BusyErr
BusyErr8
	ldy #8
	jml BusyErr
BusyErr10
	ldy #10
	jml BusyErr
BusyErr12
	ldy #12
	jml BusyErr
BusyErr14
	ldy #14
	jml BusyErr
BusyErr16
	ldy #16
	jml BusyErr


	ENDP
	

NotImp	PROC EXPORT
	lda #$04FF
	sec
	rtl
	ENDP

	
	END


\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/QD/QDEquates/CORE.GLOBALS1 b/IIGS.601.SRC/GSToolbox/QD/QDEquates/CORE.GLOBALS1
new file mode 100644
index 0000000..e79b776
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/QD/QDEquates/CORE.GLOBALS1
@@ -0,0 +1 @@
+; The equates in this file are also used by the cursor routines.

MinRect        equ 0

MasterSCB      equ MinRect+8
UserID         equ MasterSCB+2

PortSCB        equ UserID+2            ;   0
ImageRef       equ PortSCB+2           ;   2
Width          equ ImageRef+4          ;   6
BoundsRect     equ Width+2             ;   8
PortRect       equ BoundsRect+8        ;  16

LocInfo        equ PortSCB

EndPart1Globals equ PortRect+8

;-----------------------------------------------
;
; Starting at zero on the page after the zero
; page we we normally use are a number of variables
; that are not pointers but we need to keep around
; The include the current pattern and drawing mask.
; Code that addresses these bytes must be careful
; to use an appropriate addressing mode to get
; it right.
;
RandSeed       equ 0
FontWidth      equ RandSeed+4
ScreenHandle   equ FontWidth+2
FirstPortHandle equ ScreenHandle+4
TheFillPat     equ FirstPortHandle+4
TheDrawMask    equ TheFillPat+32
SysFont        equ TheDrawMask+32
CursorStart    equ SysFont+4

;-----------------------------------------------
;
; This is a location used to store the old value
; of the scan line interrupt vector.
;
OldScanInt     equ $E02000-4


;-------------------------------------------------
;
; DirtyDPFlags Equates
;
BackPatternOK	equ $4000			; set if pat contains the pre shifted back pat...
BackPatternBad	equ $A7FF			; this can reset the BackPattern
PenPatOK		equ $2000			; set if pat contains pre-shifted pen pattern
PenPatBad		equ $C7FF			; this means the pen pat is bad...
PenMaskOK		equ $0400			; current pen mask in qd's dpage is OK...
PenMaskBad		equ $FBFF			
AllPatsBad		equ $87FF			; reset both pattern flags to zero
DirtyFlagsOK	equ $8000			; set if we can actually use the dirty flags...
InvPatternOK	equ $1000			; an inverted pattern is set...
SolidPatOK		equ $0800			; indicates that the pattern on DP is solid
PortBad			equ $8000			; a change to the grafport resets all the flags
PenVisok		equ $0001			; define a pen visible flag, if set pen visible, clear/check
NoPictRecord	equ $0002			; set if we are recording a pic
NoRgnRecord		equ $0004			; set if we are recording a region
NoPolyRecord	equ $0008			; set if we are recording a polygon...
NoUserGrafProcs	equ $0010			; user has installed grafprocs...
PortLocOK		equ $0020			; set if the portLoc is OK
DrawStateBad	equ $FFC0			; used to reset all 6 draw flags...
TestDrawState	equ PenVisOK+NoRgnRecord+NoUserGrafProcs+PortLocOK+NoPictRecord+NoPolyRecord+DirtyFlagsOK
TestLineDrawState equ PenVisOK+NoRgnRecord+NoUserGrafProcs+PortLocOK+NoPictRecord+NoPolyRecord+PenPatOK+PenMaskOK+DirtyFlagsOK
PreDrawOK		equ PortLocOK+PenPatOK+PenMaskOK+DirtyFlagsOK

;-----------------------------------------------------------
;
; Starting at $100-4 on page 3 we have...
Bennet1			equ $100-4
Bennet2			equ Bennet1-4
Gary1			equ Bennet2-4

FastRomFont		equ Gary1-4
DirtyDPFlags	equ FastROMFont-4	; used to tell what pretions of DP are still OK
DrawIconTemp	equ DirtyDPFlags-8	; 8 bytes for DrawIcon (2-Oct-91 DAL)
;
; free space down to $80


\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/QD/QDEquates/CORE.GLOBALS2 b/IIGS.601.SRC/GSToolbox/QD/QDEquates/CORE.GLOBALS2
new file mode 100644
index 0000000..d94e22e
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/QD/QDEquates/CORE.GLOBALS2
@@ -0,0 +1 @@
+; The cursor routines use nothing more.

PortRef        equ EndPart1Globals

MaxWidth       equ PortRef+4

Temp           equ MaxWidth+2
Temp2          equ Temp+4

PicHandle      equ Temp2+4             ; handle to current picture
PicIndex       equ PicHandle+4         ; index into current picture
DrawVerb       equ PicIndex+2
DrawNoun       equ DrawVerb+2
WhosCalling    equ DrawNoun-1

BufferHandle   equ DrawNoun+2

CurrentY       equ BufferHandle+4      ; Current scan line being drawn to

HowFarToShift  equ CurrentY+2

TextBufHandle  equ HowFarToShift+2     ; Handle to memory used as text buf
TextBufRowWords equ TextBufHandle+4    ; num words in row of text buf
TextBufHeight  equ TextBufRowWords+2   ; num scan lines in text buf

EndOfGlobals   equ TextBufHeight+2

ZZEndofGlobals equ EndOfGlobals

TRUE           equ $FFFF
FALSE          equ $0000

MaxInt         equ 32767/2             ; largest number I can deal with
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/QD/QDEquates/FONTEQUS b/IIGS.601.SRC/GSToolbox/QD/QDEquates/FONTEQUS
new file mode 100644
index 0000000..152c386
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/QD/QDEquates/FONTEQUS
@@ -0,0 +1 @@
+rfFamNum       equ $FFFE
rfStyle        equ $0000
rfSize         equ $0008
rfFBRExtent    equ $000C
;
o_RFFamNum     equ 0
o_RFStyle      equ o_RFFamNum+2
o_RFSize       equ o_RFStyle+2
o_RFHandle     equ o_RFSize+2
o_RFNamePtr    equ o_RFHandle+4
o_RFFBRXtnt    equ o_RFNamePtr+4
;
o_FontVersion  equ 8
;
o_FLFamNum     equ 0
o_FLStyle      equ 2
o_FLSize       equ 4
o_FLVersion    equ 6
o_FLMaxWd      equ 8
o_FLFBRXtent   equ 10

o_FamNum       equ 2                   ; new names for fields in font
o_MaxWd        equ 6
;o_fbrExtent    equ 10                 ; this is alread setup
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/QD/QDEquates/LINE.EQUS b/IIGS.601.SRC/GSToolbox/QD/QDEquates/LINE.EQUS
new file mode 100644
index 0000000..b80537d
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/QD/QDEquates/LINE.EQUS
@@ -0,0 +1 @@
+Slope          equ EndOfSlab           ; fixed point value
LeftEdge       equ Slope+4             ; fixed point value
RightEdge      equ LeftEdge+4          ; fixed point value

SlopeTemp      equ RightEdge+4         ; fixed point value
Adjust         equ SlopeTemp+4         ; fixed point value
ZZEndOfLines   equ Adjust+4
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/QD/QDEquates/RECT.EQUS b/IIGS.601.SRC/GSToolbox/QD/QDEquates/RECT.EQUS
new file mode 100644
index 0000000..d67f379
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/QD/QDEquates/RECT.EQUS
@@ -0,0 +1 @@
+Y1             equ EndOfRegions
X1             equ Y1+2
Y2             equ X1+2
X2             equ Y2+2

Rect2          equ X2+2

FillMode       equ Rect2+8
LocalPnSize    equ FillMode+2

EndOfRect      equ LocalPnSize+4
ZZEndOfRect    equ EndofRect
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/QD/QDEquates/REGION.EQUS b/IIGS.601.SRC/GSToolbox/QD/QDEquates/REGION.EQUS
new file mode 100644
index 0000000..6f29687
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/QD/QDEquates/REGION.EQUS
@@ -0,0 +1 @@
+;-------------------------------------------------
;
; Region Equates
;
; These are now ordered differently.  The order
; is in the order they are used. For example,
; the Text routines call SetUpPortRegions which
; fills in ScanMaskRef thru ScanPtrB.
;
; Init and Seek Rgn start using RgnPtr, StatePtr
; and the Rest.  The Text routines can call
; SetUpPortRegions, use the space needed by Init
; and Seek Rgn until these are called.



ScanMaskRef    equ EndOfGlobals


RgnHandleA     equ ScanMaskRef+4
RgnPtrA        equ RgnHandleA+4
StatePtrA      equ RgnPtrA+4
ScanPtrA       equ StatePtrA+4

RgnHandleB     equ ScanPtrA+4
RgnPtrB        equ RgnHandleB+4
StatePtrB      equ RgnPtrB+4
ScanPtrB       equ StatePtrB+4


End1Regions    equ ScanPtrB+4          ; Here is where it is safe for
;                                       ; the text routines to share
;                                       ; the space.

RgnHandleC     equ ScanPtrB+4
RgnPtrC        equ RgnHandleC+4
StatePtrC      equ RgnPtrC+4
ScanPtrC       equ StatePtrC+4

End2Regions    equ StatePtrC           ; Here is where rgndefs starts using
;                                       ; this zp space that is not used
;                                       ; until after any rgndef call are
;                                       ; complete.

RgnPtr         equ ScanPtrC+4
StatePtr       equ RgnPtr+4
ScanPtr        equ StatePtr+4
DataPtr        equ ScanPtr+4

MinX           equ DataPtr+4
MaxX           equ MinX+2
LeftH          equ MaxX+2

RLeftmask      equ LeftH+2
RRightMask     equ RLeftMask+2
RFirstWord     equ RRightMask+2
RLastWord      equ RFirstWord+2

BufChanged     equ RLastWord+2

LeftMask       equ BufChanged+2
RightMask      equ LeftMask+2

NonRectRegions equ RightMask+2

;----------------------------------------------------
;
; The following equates overlay the region area
; of zero page for a short time.  They are only used
; when the user calls
;
;     SetBufStuff
;     ForceBufStuff
;     RestoreBufDims
;

NewTBHeight    equ RgnHandleA
NewMaxFontWidth equ NewTBHeight+2
NewTBRowWords  equ NewMaxFontWidth+2
NewFontWidth   equ NewTBRowWords+2
ForcedFont     equ NewFontWidth        ; this is shared



EndOfRegions   equ NonRectRegions+2
ZZEndOfRegions equ EndofRegions

RgnCache       equ 756                 ; 12 back from page 4
RgnCacheSize   equ 10280               ; cache size

;-----------------------------------------------------------
;
; Region equates for "init.seek"
;


;----------------------------------------------
;
; Offsets in state record for rectangular
; region.
;
S_GenLInfo     equ 0
S_LOffSet      equ S_GenLInfo+2           ; 2
S_LMask        equ S_LOffset+2            ; 4
S_ROffset      equ S_LMask+2              ; 6
S_RMask        equ S_ROffset+2            ; 8
S_ScanBuf      equ S_RMask+2              ; 10
S_ScanSize     equ S_ScanBuf+4            ; 14
S_RgnTop       equ S_ScanSize+2           ; 16
S_RgnBot       equ S_RgnTop+2             ; 18

;----------------------------------------------
;
; Offsets in state record for non-rectangular
; region.
;
;S_GenLInfo     equ 0                    ; 0
S_RgnPtr       equ S_GenLInfo+2         ; 2
S_DataPtr      equ S_RgnPtr+4           ; 6
;S_ScanBuf      equ S_DataPtr+4         ; 10
;S_ScanSize     equ S_ScanBuf+4         ; 14
S_ThisV        equ S_ScanSize+2         ; 16
S_NextV        equ S_ThisV+2            ; 18
S_MinX         equ S_NextV+2            ; 20
S_MaxX         equ S_MinX+2             ; 22
S_LeftH        equ S_MaxX+2             ; 24
S_currVpos     equ S_LeftH+2
S_DataIndex      equ S_currVpos+2
S_SeekDir      equ S_DataIndex+2
StateRecSize   equ S_SeekDir+2



\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/QD/QDEquates/SLAB.EQUS b/IIGS.601.SRC/GSToolbox/QD/QDEquates/SLAB.EQUS
new file mode 100644
index 0000000..841c9ae
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/QD/QDEquates/SLAB.EQUS
@@ -0,0 +1 @@
+DestRef        equ EndofRect

CombinedMask   equ DestRef+4
NotMaskAndDest equ CombinedMask+2

StartWord      equ NotMaskAndDest+2
FinishWord     equ StartWord+2
PatMask        equ FinishWord+2
Pat            equ PatMask+2
DrawMask       equ Pat+4

EndofSlab      equ DrawMask+4
ZZEndOfSlab    equ EndOfSlab
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/QD/QDEquates/SLICE.EQUS b/IIGS.601.SRC/GSToolbox/QD/QDEquates/SLICE.EQUS
new file mode 100644
index 0000000..5048b6e
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/QD/QDEquates/SLICE.EQUS
@@ -0,0 +1 @@
+CombinedMask   equ EndofRegions
NotMaskAndDest equ CombinedMask+2

SrcStartWord   equ NotMaskAndDest+2
SrcFinishWord  equ SrcStartWord+2
NumSrcWords    equ SrcFinishWord+2
SrcIndex       equ NumSrcWords+2
SrcRef         equ SrcIndex+2

DestStartWord  equ SrcRef+4
DestFinishWord equ DestStartWord+2
NumDestWords   equ DestFinishWord+2
DestIndex      equ NumDestWords+2
DestRef        equ DestIndex+2

ShiftTemp      equ DestRef+4
ShiftTemp2     equ ShiftTemp+2
ThisWord       equ ShiftTemp2+2

VertBackward   equ ThisWord+2
HorBackward    equ VertBackward+2

SrcSCB         equ HorBackward+2
SrcPixelMapRef equ SrcSCB+2
SrcWidth       equ SrcPixelMapRef+4
SrcBounds      equ SrcWidth+2

SrcRect        equ SrcBounds+8

XferMode       equ SrcRect+8

ClipToPortToo  equ XferMode+2

DestPoint      equ PortRect             ; becomes rect later
DestRect       equ DestPoint

DestSCB        equ PortSCB             ; use the standard port info
DestPixelMapRef equ DestSCB+2          ; for this so can do shield cursor
DestWidth      equ DestPixelMapRef+4
DestBounds     equ DestWidth+2

ZZEndOfSlice   equ ClipToPortToo+2
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/QD/QDEquates/TEXTEQUATES b/IIGS.601.SRC/GSToolbox/QD/QDEquates/TEXTEQUATES
new file mode 100644
index 0000000..6cdc65a
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/QD/QDEquates/TEXTEQUATES
@@ -0,0 +1 @@
+;
*****************************************
*                                       *
*  file fontequates                     *
*  started 2/24/86                      *
*  Bennet Marks x6245                   *
*                                       *
*****************************************
;
;NOTE - documentation out of date; better will follow
;BHM, 4/23/86
;
*******************************************************************************
*                                                                             *
*  This equates file defines all the constants and 0-page locations that are  *
*  used by the QD II text-drawing, text-measuring, and related routines, but  *
*  which do not have to be maintained between calls to those routines.        *
*                                                                             *
*  some comments:  of all the text-related routines, the only ones to make    *
*  use of any region-clipping functions are BlowItUp and the various sub-     *
*  routines it calls (BlowItUp is the routine which takes the text image from *
*  the text buffer and moves it into the destination pixelmap, using the      *
*  current foreground and background colors and the current transfer mode).   *
*  Therefore any 0-page locations in FONTEQUATES which are not used by        *
*  BlowItUp and its kin, and whose values do not need to be maintained across *
*  calls to BlowItUp, can be shared with locations in REGION.EQUS (the 0-page *
*  locations used by region-clipping and similar calls).  These locations     *
*  be referred to as the font1Vars.                                           *
*                                                                             *
*  The remaining 0-page locations in FONTEQUATES, which are used by BlowItUp  *
*  or at least must be maintained through BlowItUp, will be called the        *
*  font2Vars.  They must come after both the font1Vars and the region         *
*  equates.                                                                   *
*                                                                             *
*  LATE NOTE:  actually, some of the region stuff must be left alone.  We     *
*  have added an END1REGIONS for the dividing point.  More information to     *
*  follow - BHM, 3/13/86                                                      *
*                                                                             *
*  Also, the global QD II 0-page variables called temp and temp2 (4 bytes     *
*  each) are used frequently, and often assigned new, temprary names to       *
*  reflect their functions in a given routine.  temp and temp2 cannot be      *
*  expected to maintain their values during a call to another routine which   *
*  may also use them.  When modifying this code, attention must be paid to    *
*  "dynamic range" of these named locations, so that information won't be     *
*  trashed by inconsistent or overlapping use.  Documentation will be         *
*  in the particular routines to help with this bookkeeping.                  *
*                                                                             *
*  0-page usage in this file has not been handled particularly cleverly or    *
*  efficiently.  There may be some improvements to follow.                    *
*                                                                             *
*  CAVEAT HACKER!                                                             *
*                                                                             *
*******************************************************************************
;
************************************************************
*                                                          *
*  V.0.0.0 - 3/4/86                                        *
*    Some constants should probably be moved into a more   *
*    general equates file.  Used in ROM 3/5/86 - BHM       *
*  V.0.0.1 - 3/9/86                                        *
*    theWidth added.  leftExtent and rightExtent merged    *
*    with leftExtWord and rightExtWord - CAUTION.          *
*    pretty much out of 0-page resources.  Put into 3/10   *
*    ROM. - BHM                                            *
*  V.0.0.2 - 3/11/86                                       *
*    modified to take advantage of the newly-discovered    *
*    "safe" 0-page space of REGION.EQUS - BHM              *
*                                                          *
************************************************************
;
*****************************************
*                                       *
*  Current date and time:               *
*    3:00 PM, 4/23/86                   *
*                                       *
*****************************************
;
;constants:
;
CortFont       equ 1
;0 for Mac font, 1 for Cortland font (the difference is in integer byte order;
;more differences may be implemented later)
;
;point, rectangle, and grafport constants
;(here for now, but possibly best put elsewhere)
O_V            equ 0                   ;vertical coordinate of point
O_H            equ 2                   ;horizontal
O_V1           equ 0                   ;rectangle upper left vertical coord.
O_H1           equ 2                   ;rect. UL horizontal
O_V2           equ 4                   ;rect. lower right vertical coord.
O_H2           equ 6                   ;rect. LR horizontal
O_portInfo     equ 0                   ;portInfo in grafPort

;
;word breakdown constants
;(ditto)
bitsInWord     equ 16
allBitsOff     equ %0000000000000000
allBitsOn      equ %1111111111111111
firstBit       equ %1000000000000000
first2Bits     equ %1100000000000000 
firstBitXBAed  equ %0000000010000000
lastBit        equ %0000000000000001
lastBitXBAed   equ %0000000100000000
first12Bits    equ %1111111111110000
last4Bits      equ %0000000000001111
first13Bits    equ %1111111111111000
first14Bits    equ %1111111111111100
first15Bits    equ %1111111111111110
lowByte        equ $00FF
highByte       equ $FF00


;
;constants for text drawing routines


O_fontStyle    equ 4
asciiSpace     equ $0020
asciiZero      equ $0030
FxdWdthBit     equ %0000000000000001
half           equ $8000

;
boldBit        equ %0000000000000001
italBit        equ %0000000000000010
ulineBit       equ %0000000000000100
olineBit       equ %0000000000001000
shadowBit      equ %0000000000010000
;



;
; Offsets in font
;
o_FontIDinFont       equ 2
O_style        equ 4
O_size         equ 6
O_version      equ 8
fgSize         equ 14					;Font Globals size (SMD - 26 Oct 88)
;
;font record offsets (names stolen from Mac)
FFormat        equ 0                   ;fontType
FMinChar       equ 2                   ;firstChar
FMaxChar       equ 4                   ;lastChar
FMaxWd         equ 6                   ;widMax
FBBOX          equ 8                   ;kernMax
FBBOY          equ 10                  ;nDescent
FBBDX          equ 12                  ;fRectMax
FBBDY          equ 14                  ;chHeight
FLength        equ 16                  ;owTLoc
FAscent        equ 18                  ;ascent
FDescent       equ 20                  ;descent
FLeading       equ 22                  ;leading
FRaster        equ 24                  ;rowWords
;and some of our own devising
FStrike        equ 26                  ;font strike
;offset/width table entry indicating an in-range missing symbol:
owMSVal        equ -1
***************************************
*
*  Feb. 5, 1987  4:45 pm
*
*  Bennet Marks  x6245
*
***************************************
;
;the following constants should be added to the text routines' repetoire:
;
numWdthBit     equ %0000000000000010
;
;for the GetFontInfo record:
o_FoInDescent  equ 2
o_FoInWidMax   equ 4
o_FoInLeading  equ 6
;
;
;0-page locations:
;
font1Vars      equ end1Regions         ;these can co-exist with REGION.EQUS
;                                       ;(some of them . . . .)
;pointers
;
fontHeadPtr    equ font1Vars           ;pointer to start of Cort font
fontRecPtr     equ fontHeadPtr+4       ;to start of Mac-style font part
strikePtr      equ fontRecPtr+4        ;pointer to beginning of font strike
locTPtr        equ strikePtr+4         ;to beginning of font location table
owTPtr         equ locTPtr+4           ;beginning of font offset/width table
endOfPtrs      equ owTptr+4
;
;font information (from font record)
;
ascent         equ endOfPtrs           ;font ascent
rowBytes       equ ascent+2            ;width of font strike in bytes
firstChar      equ rowBytes+2          ;first defined character in font
lastChar       equ firstChar+2         ;last defined character in font
kernMax        equ lastChar+2          ;font's max left kern, as a negative
msCodeT2       equ kernMax+2           ;code for font "missing symbol", offset
;                                       ;and *2 for array access
endFontInfo    equ msCodeT2+2
;
;buffer information
;
bufPen         equ endFontInfo         ;pen position within buffer, measured
;                                       ;in pixels
startBufPen    equ bufPen+2
bucket         equ startBufPen+2       ;holds low-order word for fixed-point
bufRightLimit  equ bucket+2

endBufInfo     equ bufRightLimit+2
;
imagePen       equ endBufInfo          ;position in buffer where character
;                                       ;image starts, in pixels (= bufPen,
;                                       ;adjusted for kerning)
strikeWord     equ imagePen+2
startByte      equ strikeWord+2        ;(startWord)*2, so we can use it as an
;                                       ;index
fRectMax       equ startByte+2
hBufToLoc      equ fRectMax+2
vBufToLoc      equ hBufToLoc+2
maskLeft       equ vBufToLoc+2
maskRight      equ maskLeft+2
leftLimit      equ maskRight+2
rightLimit     equ leftLimit+2
currPen        equ rightLimit+2
;
endFont1Vars   equ currPen+2
zzEndFont1Vars equ endFont1Vars
;
;the following locations cannot overlap with the font1Vars or the REGION.EQUS.
;We use conditional assembly to make sure:
;
               IF endOfRegions>endFont1Vars GOTO .RegBigger
startFont2Vars equ endFont1Vars
               GOTO .GotSF2V
.RegBigger
startFont2Vars equ endOfRegions
.GotSF2V
zzfont2start   equ startFont2Vars
;
;
bufPtr         equ startFont2Vars
tbRowPtr       equ bufPtr+4
pmRowPtr       equ tbRowPtr+4
;
tbStartByte    equ pmRowPtr+4
pmStartByte    equ tbStartByte+2
BG             equ pmStartByte+2
tempFG         equ BG+2
notMaskAndDest equ tempFG+2
bufRowBytes    equ notMaskAndDest+2
numOfWords     equ bufRowBytes+2
rowCounter     equ numOfWords+2
chHeight       equ rowCounter+2
wordCounter    equ chHeight+2
leftExtent     equ wordCounter+2
rightExtent    equ leftExtent+2
fontTemp       equ rightExtent+2
charToDraw     equ fontTemp+4          ;ASCII code of character to be displayed
;
textLength     equ charToDraw+2        ;# of characters remaining to be drawn
;
textPtr        equ textLength+2        ;pointer to start of text char.'s
theWidth       equ textPtr+4
widMax         equ theWidth+2
descent        equ widMax+2
leading        equ descent+2
txFace         equ leading+2
justExtents    equ txFace+2
numOfBytes     equ justExtents+2
spExtra        equ numOfBytes+2
chExtra        equ spExtra+4
extra          equ chExtra+4
fontFlags      equ extra+2
;the following variables must be added to the text routines' 0-page
;
digitWidth     equ fontFlags+2         ;character width of digit 0
;
;
Version102	   equ digitWidth+2		; added 30 Oct 88 by SEG to make Sue's code work in ROM.
;
endFont2Vars   equ Version102+2
;
zzEndFont2Vars equ endFont2Vars
;



************************************************************
*                                                          *
*  Note:  many of the above variables are ripe for         *
*  aliasing.  I only took as many as I needed.             *
*                                                          *
************************************************************
;
widthOfChar    equ temp
imageWidth     equ temp
locTEnt        equ temp+2
startBit       equ temp2
startWord      equ temp2+2
;
curPMByte      equ temp
curTBByte      equ temp+2
FG             equ temp2
textMode       equ temp2+2



;
;these global equates must be made available to the QD II text-drawing
;routines.  They are used by the patches that introduce fbrExtent.
;
last15Bits     equ %0111111111111111
V0100          equ $0100               ;version number V.01.00
O_fbrExtent    equ 10                  ;fbrExtent offset
;
;added 3/10/87 for CalcSlop:
fontSlop       equ 0                   ;lives on third 0-page
;
;added 10/26/88 for Version 1.02.  Introduces highOwTLoc.
;
;
; We use $0105 for the new font version number because a dumb application
; (Graphics Studio) made their own font and used the version number 1.2
; for it.  This font did not work with the new quickdraw so we skip a few
; numbers and try again.
;
V0102			equ $0105				;Version 1.02
O_highOwTLoc	equ 12					;offset for high word of offset to o/w table



;
;these added for outlining:
;third 0-page stuff:
tb1R1Ptr       equ 0                  ;text buffer 1, top row, 1st active
xBufPtr        equ tb1R1Ptr+4         ;ptr to tb1
tb2Ptr         equ xBufPtr+4          ;ptr to tb2
tb2R2Ptr       equ tb2Ptr+4           ;tb2, 2nd row, leftmost active word
xLeftExtent    equ tb2R2Ptr+4
xRightExtent   equ xLeftExtent+2
xFontWidth     equ xRightExtent+2
trueFBRXtnt    equ xFontWidth+2
;
tb2Handle      equ 256-4              ;permanent
tb3Handle      equ tb2Handle-4        ;permanent  
;
oldY           equ fontTemp
newY           equ fontTemp+2
;
bRowPtr        equ spExtra            ;bottom row ptr




;
;
;
*****************************************************************************
* FastDrawing equates														*
* 2/10/89	Mensch
* These equates are used in the fast drawing routines, they go on top of 	*
* other font manager direct page stuff, so be careful when you use the two	*
* together.
*****************************************************************************


fastfontVars      equ end1Regions         ;these can co-exist with REGION.EQUS
;                                       ;(some of them . . . .)
;pointers
;
fastHeadPtr    equ font1Vars           ;pointer to start of Cort font
fontStrike1    equ fontHeadPtr+4       ;offsets to the font strike in our file
fontStrike2    equ fontStrike1+4       ;offsets to the font strike in our file
fontStrike3    equ fontStrike2+4       ;offsets to the font strike in our file
fontStrike4    equ fontStrike3+4       ;offsets to the font strike in our file
endOffastPtrs      equ fontStrike4+4
; fast char locals... can be no larger than 28 bytes...
;
CharRect       	equ endFontInfo       	; 0 rectangle used to locate characters
;                                     	;in pixels
space_bucket    equ CharRect+4       	; 4 Space for the bucket for addextra
destRef		   	equ CharRect+4			; 6 address to draw the character into...
srcRef      	equ destRef+4			; 10
fastMaskLeft	equ srcRef+4			; 14
fastMaskRight	equ fastMaskLeft+2		; 16
mult1			equ fastMaskRight+2		; 18
mult2			equ mult1+2				; 20
shiftinfo		equ mult2+2				; 22 number of pixels to shift *2
StdFontHandle	equ shiftInfo+2			; 24 do I really need this???
fastLineStat	equ StdFontHandle+4		; 28
fastMode		equ textMode
;
fastBucket		equ justExtents			; reuse justExtents for fastfont chextra bucket
;
; Equates for the fastfont record
;
o_FFAscent		equ 0
o_FFDescent		equ o_FFAscent+2
o_FFMaxWidth	equ o_FFDescent+2
o_FFLeading		equ o_FFMaxWidth+2
o_FFrowBytes	equ o_FFLeading+2
o_oldFontHandle	equ o_FFRowBytes+2
o_StrikeSize	equ o_oldFontHandle+4
o_FFSizeofVars	equ o_StrikeSize+4
o_FFWidthTable	equ o_FFSizeofVars
o_FFOffsetTable	equ o_FFWidthTable+256
o_FFEndOfTables	equ o_FFOffsetTable+512
;
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/QD/QDEquates/conics.equs b/IIGS.601.SRC/GSToolbox/QD/QDEquates/conics.equs
new file mode 100644
index 0000000..a66eb58
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/QD/QDEquates/conics.equs
@@ -0,0 +1 @@
+* We have a bit of room in the zero page space overlapping Rect2
* and Temp2.  Use these as approrpiate, starting with Rect2
* as space for frequently used flags.

BufHandle      equ Rect2+14            ; see RgnDefs.Equs
BufPtr         equ BufHandle+4
Index          equ BufPtr+6

ArcFlag        equ Rect2
InnerFlag      equ ArcFlag+2
SkipFlag       equ InnerFlag+2
MidVert        equ SkipFlag+2

* We get the pen size twice, once to see if there is anything to do
* and once to get the actual values.  This saves us zero page space.

PenHeight      equ Temp2
PenWidth       equ Temp2+2

* AngleFromSlope and SlopeFromAngle do not use Temp or Temp2 per se.  They
* use them to pass and receive values as shown below.  No other routines
* are called within the body of the two procedures (except each other).
* Note that Slope2 is used to save the result from SlopeFromAngle.  It
* is also on the first zero page as defined below.

Angle          equ Temp                ; parameter/result both routines
SlopeSign      equ Temp+2              ; temp variable
Slope          equ Temp2               ; parameter for AngleFromSlope

* Now we start at EndOfSlabs and allocate variables which are used in
* the oval loop.

ArcAngle       equ EndOfSlab           ; 2
StartAngle     equ ArcAngle+2          ; 4
SkipTop        equ StartAngle+2        ; 6
SkipBot        equ SkipTop+2           ; 8
Flag1          equ SkipBot+2           ; 10
Flag2          equ Flag1+2             ; 12
Slope1         equ Flag2+2             ; 16
Slope2         equ Slope1+4            ; also used in SlopeFromAngle
Line1          equ Slope2+4            ; 24
Line2          equ Line1+4             ; 28

OuterLeft      equ Line2+4             ; 30
OuterRight     equ OuterLeft+2         ; 32
InnerLeft      equ OuterRight+2        ; 34
InnerRight     equ InnerLeft+2         ; 36
OldOuterLeft   equ InnerRight+2        ; 38
OldOuterRight  equ OldOuterLeft+2      ; 40 - 6 bytes to spare

* We can overlap our less frequently used variables on top of some used
* only within the loop.  These are used only during initialization.

HollowFlag     equ Line2+4
StopAngle      equ HollowFlag+2
MidHoriz       equ StopAngle+2

* Now we apportion the variables within each oval record

OvalTop        equ 0
OvalLeft       equ OvalTop+2
OvalBottom     equ OvalLeft+2
OvalRight      equ OvalBottom+2
OvalHeight     equ OvalRight+2
OvalWidth      equ OvalHeight+2
ORightEdge     equ OvalWidth+2
OLeftEdge      equ ORightEdge+4
Rsqysq         equ OLeftEdge+4
Square         equ Rsqysq+4
OddNum         equ Square+8
OddBump        equ OddNum+8
OvalY          equ OddBump+8
EndOval        equ OvalY+2

* Last but not least, the oval record offsets

OuterOval      equ 512                 ; the beginning of the third zero page
InnerOval      equ OuterOval+EndOval
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/QD/QDEquates/qd.data.asm b/IIGS.601.SRC/GSToolbox/QD/QDEquates/qd.data.asm
new file mode 100644
index 0000000..80dbf65
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/QD/QDEquates/qd.data.asm
@@ -0,0 +1 @@
+****************************************************************
*                                                              *
*                Common Data for All QD Patches                *
*                                                              *
*                      August 26, 1987                         *
*                        Version 3.0                           *
*                                                              *
*                                                              *
****************************************************************


****************************************************************
*                                                              *
*                   Copyright (C) 1985-1987                    *
*                   All Rights Reserved                        *
*                   Apple Computer, Inc.                       *
*                                                              *
****************************************************************


               DSECT $E01E00

ToSTuff        LONG
ToSlab         equ ToStuff
ToSlice        equ ToStuff
ToStuffBig     equ ToStuff


StdText        LONG
StdLine        LONG
StdRect        LONG
StdRRect       LONG
StdOval        LONG
StdArc         LONG
StdPoly        LONG
StdRgn         LONG
StdPixels      LONG
StdComment     LONG
StdTxMeas      LONG
StdTxBnds      LONG
StdGetPic      LONG
StdPutPic      LONG


PortLoc2ZP     LONG
UserPat2ZP     LONG
GetPenPReady   LONG
GetBackPReady  LONG
Pen2ZP         LONG
Back2ZP        LONG
RotatePat      LONG
GetMaskReady   LONG
Mask2ZP        LONG
ExpandMask     LONG
RotateMask     LONG
RotateLong     LONG
PreDraw        LONG
XSetup         LONG

DrawRectB      LONG
DrawRect       LONG
SliceSetup     LONG
vShiftStay     LONG                      ; these are not used internally!
;                                        ; because I don't want to slow
vXShiftStay    LONG                      ; things down.  They are provide
;                                        ; so that outside routines can use them
vShiftOut      LONG
vXShiftOut     LONG

BMakeMinRect   LONG
MakeMinRect    LONG
ShieldCursor   LONG
UnShieldCursor LONG
SetUpPortRegions LONG
SetUpScanPtrs  LONG
FreePortRegions LONG
Free1Region    LONG
Free2Regions   LONG
Free3Regions   LONG
GetFGS		   LONG
Init1Region    LONG
Init2Regions   LONG
Init3Regions   LONG
Seek1Region    LONG
Seek2Regions   LONG
Seek3Regions   LONG
InitRgn        LONG
SeekRgn        LONG
Join1Buffer    LONG
Join2Buffers   LONG
Join3Buffers   LONG

SetSlabAdr     LONG
SetSliceAdr    LONG
SetStuffAdr    LONG


BlowItUp       LONG

PutPictStuff   LONG
AddToPoly      LONG

OpenPicture    LONG
PicComment     LONG
ClosePicture   LONG
DrawPicture    LONG
KillPicture    LONG

GimmeVersion   LONG

v_FrRgn        LONG
v_PRgn         LONG
v_ERgn         LONG
v_IRgn         LONG
v_FRgn         LONG
v_FrRect       LONG
v_PRect        LONG
v_ERect        LONG
v_IRect        LONG
v_FRect        LONG


DChar          LONG
DText          LONG
DCString       equ  DText                ; always the same
BChar          LONG
BText          LONG
BCString       EQU  BText                ; always the same
ValidChar      LONG
GetNextChar    LONG
CalcDrawStatus LONG
TextAndMinRect LONG
CalcTextBounds LONG
SetUpFontInfo  LONG
SetUpBufInfo   LONG
GetTextHandle  LONG
ClearBufPart   LONG
PutChar        LONG
BumpPen        LONG
CleanUpBuffer  LONG


PutLine        LONG
PutRgn         LONG
PutRect        LONG
CullPoints     LONG
SortPoints     LONG
PackRgn        LONG
RgnOp          LONG

PutOval        LONG
BumpOval       LONG
InitOval       LONG

SetTB          LONG
ResetTB        LONG

StyleText      LONG
StyleExtents   LONG
DoBold         LONG
DoUnderLine    LONG

StdConic       LONG
DrawConic      LONG                    ; name modified so won't encounter
SetScaleAndMap LONG                    ; link problems!
DrawCursor     LONG
UndrawCursor   LONG
vAngleFromSlope LONG                    ; here too we modify the name so
vSlopeFromAngle LONG                    ; we won't encounter link problems

RgnBlt         LONG
SharedMRSetup  LONG
ShareShieldStuff LONG

GetCharVals    LONG
DoFntFlgMods   LONG
AddExtras      LONG
CalcSlop       LONG

GetFntInf      LONG                     ; new added on 4 March 87



PortAttributes equ 8                    ; attribute word for mem mgr

StandardSCB    equ 0                    ; No Interrupts, 320, No Fill, Table 0


; Hardware Equates

ColorTableSize equ $20
NumScanLines   equ 200
ScreenBase     equ $E12000

FirstSCB       equ $E19D00
FirstTable     equ $E19E00




o_PortSCB      equ 0
o_ImageRef     equ o_PortSCB+2
o_Width        equ o_ImageRef+4
o_BoundsRect   equ o_Width+2
o_PortRect     equ o_BoundsRect+8

o_ClipRgn      equ o_PortRect+8
o_VisRgn       equ o_ClipRgn+4

o_BkPat        equ o_VisRgn+4

o_PnLoc        equ o_BkPat+32
o_PnSize       equ o_PnLoc+4
o_PnMode       equ o_PnSize+4
o_PnPat        equ o_PnMode+2
o_PnMask       equ o_PnPat+32
o_PnVis        equ o_PnMask+8


o_Font         equ o_PnVis+2
o_FontID       equ o_Font+4
o_FontFlags    equ o_FontID+4
o_TxSize       equ o_FontFlags+2
o_TxFace       equ o_TxSize+2
o_TxMode       equ o_TxFace+2
o_SpExtra      equ o_TxMode+2
o_ChExtra      equ o_SpExtra+4
o_FGColor      equ o_ChExtra+4
o_BGColor      equ o_FGColor+2

o_PicSave      equ o_BGColor+2
o_RgnSave      equ o_PicSave+4
o_PolySave     equ o_RgnSave+4
o_GrafProcs    equ o_PolySave+4

o_ArcRot       equ o_GrafProcs+4
o_UserField    equ o_ArcRot+2
o_SysField     equ o_UserField+4



PortSize       equ o_SysField+4
LocSize        equ o_PortRect-o_PortSCB
PatSize        equ 32
PnStateSize	   equ o_PnVis-o_PnLoc
MaskSize	   equ 8


TSNumber       equ 4


; Error Codes

AlreadyInitialized equ $0401
CannotReset    equ $0402                ; never used
NotInitialized equ $0403

ScreenReserved equ $0410
BadRect        equ $0411

NotEqualChunkiness equ $0420

RgnAlreadyOpen equ $0430
RgnNotOpen     equ $0431
RgnScanOverflow equ $0432
RgnFull        equ $0433

PolyAlreadyOpen equ $0440
PolyNotOpen    equ $0441
PolyTooBig     equ $0442

BadTableNum    equ $0450
BadColorNum    equ $0451
BadScanLine    equ $0452

NotImplemented equ $04FF



; PenModes
ModeCopy       equ 0
ModeOR         equ 1
ModeXOR        equ 2
ModeBIC        equ 3







;-------------------------------------------------
;
; Verbs

FrameVerb      equ 0
PaintVerb      equ 1
EraseVerb      equ 2
InvertVerb     equ 3
FillVerb       equ 4


;-------------------------------------------------
;
; Nouns
;
TextNoun	   equ $00
LineNoun       equ $20
RectNoun       equ $30
RRectNoun      equ $40
OvalNoun       equ $50
ArcNoun        equ $60
PolyNoun       equ $70
RgnNoun        equ $80
MapNoun        equ $90


;-------------------------------------------------
;
; Other Picture Ops

PicNop         equ 0
PicClipRgn     equ 1
PicBkPat       equ 2
PicTxFont      equ 3
PicTxFace      equ 4
PicTxMode      equ 5
PicSpExtra     equ 6
PicPnSize      equ 7
PicPnMode      equ 8
PicPnPat       equ 9
PicThePat      equ $0a
PicOvSize      equ $0b
PicOrigin      equ $0c
PicTxSize      equ $0d
PicFGColor     equ $0e
PicBGColor     equ $0f

PicTxRatio     equ $10
PicVersion     equ $11


PicChExtra     equ $12                   ; so far these conflict with ernie
PicPnMask      equ $13
PicArcRot      equ $14
PicFontFlags   equ $15




PicLine        equ $20
PicLineFrom    equ $21
PicShortL      equ $22
PicShortLFrom  equ $23

PicLongText    equ $28
PicDHText      equ $29
PicDVText      equ $2a
PicDVDHText    equ $2b
PicRealLongText equ $2c


PicBitsRect    equ $90
PicBitsRgn     equ $91
PicPBitsRect   equ $98
PicPBitsRgn    equ $99

PicShortComment equ $a0
PicLongComment equ $a1

PicEnd         equ $FF

DrawCharVerb   equ 0
DrawTextVerb   equ 1
DrawCStrVerb   equ 2


               





o_StdText      equ 0
o_StdLine      equ 4
o_StdRect      equ 8
o_StdRRect     equ 12
o_StdOval      equ 16
o_StdArc       equ 20
o_StdPoly      equ 24
o_StdRgn       equ 28
o_StdPixels    equ 32
o_StdComment   equ 36
o_StdTxMeas    equ 40
o_StdTxBnds    equ 44
o_StdGetPic    equ 48
o_StdPutPic    equ 52

QDProcSize     equ 56

;=================================================
;
; Cursor equates shared throughout quickdraw
;
CurUpdateRefNum	equ $18
ScanIntRefNum	equ $0A

EnableScanInts	equ $000C
DisableScanInts	equ $000D

;=================================================
;
; Region equates shared throughout quickdraw
;
RgnAttributes	equ 0

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/QD/QDEquates/rgndefs.equs b/IIGS.601.SRC/GSToolbox/QD/QDEquates/rgndefs.equs
new file mode 100644
index 0000000..c3d0511
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/QD/QDEquates/rgndefs.equs
@@ -0,0 +1 @@
+******************************************************
*
* Rgndefs Equates
*
* Rgndefs.Equs contains equates used in the following
* calls:
*
*    _OpenRgn    _CloseRgn    _SectRgn    _DiffRgn
*    _UnionRgn   _XorRgn      _PtInRgn    _RectInRgn
*    _InsetRgn   _OffsetRgn   _MapRgn     _MapRect
*    _MapPt
*
* and in the following region assembly routines:
*
*    PutLine     PutRect      PutRgn
*
* Globals variables used by these routines (commonly used variables
* and variables used for intercommunication) are found in the first
* section.  The variables which follow consist of three
* distinct (overlapping) sets of variables.  The first set is used
* by the Put and Map routines, the second by the region packing
* routines, and the third by the region operation routines.
*
******************************************************

* Just so we can make things clearer, let's define what the bounding box
* of a region looks like.

BBoxLen        equ 0
BBoxTop        equ 2
BBoxLeft       equ 4
BBoxBottom     equ 6
BBoxRight      equ 8


* These comprise a rectangle we use for various shortcut paths in SECTRGN
* and for holding values for PutRect and PutLine.

RgnY1          equ Rect2
RgnX1          equ RgnY1+2
RgnY2          equ RgnX1+2
RgnX2          equ RgnY2+2

* These are general purpose variables which are frequently used.  BufHandle
* and BufPtr are used to manage any active inversion point list.

Dv             equ RgnX2+2             ; general purpose parameters for
Dh             equ Dv+2                ; inset, offset, and other uses
Op             equ Dh+2                ; operation used in SectRgn, etc
BufHandle      equ Op+2                ; handle for inversion point buffer
BufPtr         equ BufHandle+4         ; pointer for inversion point buffer
PtCount        equ BufPtr+4            ; point count for Pack, Sort, Cull
EndOfRgnRect   equ PtCount+2

* Zero page usage by PutRgn, PutLine, PutRect, MapRgn, MapRect, and MapPt

Index          equ EndOfRgnRect        ; overlaps iptr
SrcY           equ Index+2             ; overlaps jptr
DeltaX         equ SrcY+2
DeltaY         equ DeltaX+2
Slope          equ DeltaY+2
Horiz          equ Slope+4
V              equ Horiz+4
H              equ V+2
FRect          equ H+2                ; MapRgn, MapRect, MapPt
TRect          equ FRect+8
LastPt         equ TRect+8
LastY          equ LastPt+2
Counter        equ LastY+2
MapV           equ Counter+2
MapH           equ MapV+2
Sign           equ MapH+2
DifHeight      equ Sign+2
DifWidth       equ DifHeight+2
FHeight        equ DifWidth+2
FWidth         equ FHeight+2


;------------------------------------------------------
;
; Change in equates from what is in ROM to get these
; four back on zero page
;
THeight        equ MinRect             ; MinRect since it is not used
TWidth         equ THeight+2           ; during mapping
HeightRound    equ TWidth+2            ;
WidthRound     equ HeightRound+2



* PutOval Equates

OLeftEdge      equ Index+2
ORightEdge     equ OLeftEdge+4

OvalY          equ ORightEdge+4
Square         equ OvalY+2
Rsqysq         equ Square+8
OddNum         equ Rsqysq+4
OddBump        equ OddNum+8
SkipTop        equ OddBump+8
SkipBot        equ SkipTop+2
OOldLeft       equ SkipBot+2
OOldRight      equ OOldLeft+2

* Zero page usage by PackRgn, SortPoints, and CullPoints

iptr           equ EndOfRgnRect         ; Pack,Sort
jptr           equ iptr+2               ; Pack,Sort
MinH           equ jptr+2               ; Pack
MaxH           equ MinH+2               ; Pack
CurY           equ MaxH+2               ; Pack
lptr           equ CurY+2               ; Sort
rptr           equ lptr+2               ; Sort
MidV           equ rptr+2               ; Sort
MidH           equ MidV+2               ; Sort
SpCount        equ MidH+2               ; Sort
Sluff          equ SpCount+2            ; Cull
NextY          equ Sluff+2              ; Cull
DestY          equ NextY+2              ; Cull
PointV         equ DestY+2              ; Cull
PointH         equ PointV+2             ; Cull

* Zero page usage for _SectRgn, _UnionRgn, _DiffRgn, and _XorRgn, as
* well as supporting routines.  The associated files are SECTRGN,
* RGNOP, and RGNSCAN.  If we couldn't take any shortcuts, we probably have a
* lot more work to do.  These variables describe the general state of things
* as we begin and continue the RgnOp procedure.  A new handle is allocated
* for an inversion point list and it's placed in BufHandle.  ListPtr and
* ListMax refer to this handle (so we don't have to continually index into
* Bufptr to get them).  NextA and NextB keep track of the vertical
* scan line as we examine the source regions.

* PtrBaseA is either RgnPtrA or Scratch, the latter if the region is
* rectangular (in which case we create a fake expanded region from the
* bounding box).  The same applies to PtrBaseB.  PtrA and PtrB are the
* indexes (used in the y register) to the region data.  ScratchHandle
* is our work area.  It is divided into five parts, and so five separate
* indexes are maintained to point into each part.

* The variables starting at SrcBase1 communicate with the scan routines.
* They take two sources and a destination, but the second source and
* the destination are always somewhere in [Scratch], so the bases are
* assumed known.  [SrcBase1] will be equivalent to one of [Scratch],
* [PtrBaseA], or [PtrBaseB].  The indexes are set up in Src1, Src2, and Dst.

ListPtr        equ EndOfRgnRect         ; current length of BufPtr list
ListMax        equ ListPtr+2            ; current size of BufPtr list
NextA          equ ListMax+2            ; next horizontal point in Src1
NextB          equ NextA+2              ; next horizontal point in Src2
Vert           equ NextB+2              ; current vertical point

PtrBaseA       equ Vert+2               ; first source region
PtrA           equ PtrBaseA+4           ; index into first source region

PtrBaseB       equ PtrA+2               ; second source region
PtrB           equ PtrBaseB+4           ; index into second source region

ScratchHandle  equ PtrB+2               ; handle to our work area
Scratch        equ ScratchHandle+4      ; pointer to our 5 part work area
ScanA          equ Scratch+4            ; index to 1st part
ScanB          equ ScanA+2              ; index to 2nd part
ScanC          equ ScanB+2              ; index to 3rd part
TempScan       equ ScanC+2              ; index to 4th part
OutScan        equ TempScan+2           ; index to 5th part

SrcBase1       equ OutScan+2            ; base pointer to first scan list
Src1           equ SrcBase1+4           ; index within SrcBase1
Src2           equ Src1+2               ; index within SrcBase2
Dst            equ Src2+2               ; index to dst within Scratch

* These state flags are used in RgnScan as it examines and combines the
* inversion points from [SrcBase1],Src1 and [SrcBase2],Src2

* These variables use space in the region equates not used
* until drawing occurs.

Next1          equ End2Regions          ; next H coord in Src1
Next2          equ Next1+2              ; next H coord in Src2
State1         equ Next2+2              ; state toggle for 1st scan source
State2         equ State1+2             ; state toggle for 2nd scan source
OldRight       equ State2+2             ; a counter

zzzEndOfRdfs   equ Dst+2
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/QD/clipping.asm b/IIGS.601.SRC/GSToolbox/QD/clipping.asm
new file mode 100644
index 0000000..e78eef2
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/QD/clipping.asm
@@ -0,0 +1 @@
+	title 'QD Clipping          GS ROM 2.0'
****************************************************************
*			   *
*              CLIPPING		   *
*			   *
****************************************************************


****************************************************************
*			   *
*	Copyright (C) 1985-1987	   *
*	All Rights Reserved		   *
*	Apple Computer, Inc.	   *
*			   *
****************************************************************


	include 'all.macros'
	include ':QDEquates:qd.data.asm'


	INCLUDE ':QDEquates:core.globals1'
	INCLUDE ':QDEquates:core.globals2'
	INCLUDE ':QDEquates:region.equs'
	INCLUDE ':QDEquates:rect.equs'



;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

	ENTRY Y1ToMinRect


;                COPY CLIPPING/CLIPPING
****************************************************************
*
* MakeMinRect
*
* Takes the contents of MinRect and intersects it with the
* following:
*                 BoundsRect
*                 PortRect
*                 ClipRgn Bounds Rect
*                 VisRgn Bounds Rect
*
* The resulting rectangle is left in MinRect.
*
* Carry returns
*      SET if result is null
*      CLEAR if result is valid rectangle
*
* The ClipRgn and VisRgn must already be dereferenced and
* locked with pointers in RgnPtrA and RgnPtrB.
*
****************************************************************
	EXPORT iBMakeMinRect
iBMakeMinRect	PROC
	jsr Y1ToMinRect
	ENDP

	EXPORT iMakeMinRect
iMakeMinRect	PROC
*              using CoreData

	lda MinRect	; start with whats there
	ldy #2	; region offset is 2 for top of bounds
	cmp PortRect
	bpl TopOK1
	lda PortRect
TopOk1	cmp BoundsRect
	bpl TopOk2
	lda BoundsRect
TopOk2	cmp [RgnPtrA],y
	bpl TopOk3
	lda [RgnPtrA],y
TopOk3	cmp [RgnPtrB],y
	bpl TopOk4
	lda [RgnPtrB],y
TopOk4	sta MinRect	; put result back in MinRect

	lda MinRect+2
	iny
	iny
	cmp PortRect+2
	bpl LeftOk1
	lda PortRect+2
LeftOk1	cmp BoundsRect+2
	bpl LeftOk2
	lda BoundsRect+2
LeftOk2	cmp [RgnPtrA],y
	bpl LeftOk3
	lda [RgnPtrA],y
LeftOk3	cmp [RgnPtrB],y
	bpl LeftOk4
	lda [RgnPtrB],y
LeftOk4	sta MinRect+2


	lda MinRect+4
	iny
	iny
	cmp PortRect+4
	bmi BottomOk1
	lda PortRect+4
BottomOk1	cmp BoundsRect+4
	bmi BottomOk2
	lda BoundsRect+4
BottomOk2	cmp [RgnPtrA],y
	bmi BottomOk3
	lda [RgnPtrA],y
BottomOk3	cmp [RgnPtrB],y
	bmi BottomOk4
	lda [RgnPtrB],y
BottomOk4	sta MinRect+4

	lda MinRect+6
	iny
	iny
	cmp PortRect+6
	bmi RightOk1
	lda PortRect+6
RightOk1	cmp BoundsRect+6
	bmi RightOk2
	lda BoundsRect+6
RightOk2	cmp [RgnPtrA],y
	bmi RightOk3
	lda [RgnPtrA],y
RightOk3	cmp [RgnPtrB],y
	bmi RightOk4
	lda [RgnPtrB],y
RightOk4	sta MinRect+6


	lda MinRect
	cmp MinRect+4
	bpl NullRect

	lda MinRect+2
	cmp MinRect+6
	bpl NullRect

	clc
FinishIt	rtl

NullRect	sec
	rtl


	ENDP



	EXPORT MinRectToY1
MinRectToY1	PROC

	lda MinRect
	sta Y1
	lda MinRect+2
	sta Y1+2
	lda MinRect+4
	sta Y1+4
	lda MinRect+6
	sta Y1+6
	rts

	ENDP




	EXPORT Y1ToMinRect
Y1ToMinRect	PROC

	lda Y1
	sta MinRect
	lda Y1+2
	sta MinRect+2
	lda Y1+4
	sta MinRect+4
	lda Y1+6
	sta MinRect+6
	rts

	ENDP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/QD/conics.asm b/IIGS.601.SRC/GSToolbox/QD/conics.asm
new file mode 100644
index 0000000..8a5d0dd
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/QD/conics.asm
@@ -0,0 +1 @@
+	title 'QD Conics            GS ROM 1.1'
****************************************************************
*			   *
*	   Conics		   *
*			   *
****************************************************************


****************************************************************
*			   *
*              Copyright (C) 1985-1987		   *
*              All Rights Reserved		   *
*              Apple Computer, Inc.		   *
*			   *
****************************************************************

	include 'all.macros'
	
	MACRO
&lab	MoveL &Label1,&Label2
&lab	lda &Label1
	sta &Label2
	lda &Label1+2
	sta &Label2+2
	MEND
	MACRO
&lab	MoveP &Label1,&Label2
&lab	lda &Label1,s
	sta &Label2
	lda &Label1+2,s
	sta &Label2+2
	MEND
	MACRO
&lab	PushNil
&lab	lda #0
	pha
	pha
	MEND
	MACRO
&lab	IncYWd
&lab	iny
	iny
	MEND
	MACRO
&lab	DecYWd
&lab	dey
	dey
	MEND
	MACRO
&lab	IncYPtr
&lab	iny
	iny
	iny
	iny
	MEND
	MACRO
&lab	DecYPtr
&lab	dey
	dey
	dey
	dey
	MEND
	MACRO
&lab	MoveLong &From,&To
&lab	lda &From
	sta &To
	lda &From+2
	sta &To+2
	MEND



	include ':QDEquates:qd.data.asm'


	INCLUDE ':QDEquates:core.globals1'
	INCLUDE ':QDEquates:core.globals2'
	INCLUDE ':QDEquates:region.equs'
	INCLUDE ':QDEquates:rect.equs'
	INCLUDE ':QDEquates:slab.equs'
	INCLUDE ':QDEquates:conics.equs'


;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

	IMPORT BusyErr
	IMPORT CommonSlabSetup
	IMPORT DerefHandle
	IMPORT NextPatSlice
	IMPORT QDStart
	IMPORT ReSizeHandle
	IMPORT RgnSave
	IMPORT SetFirstDestRef
	IMPORT SetNextDestRef
	IMPORT TestGPs
	IMPORT UnlockHandle

;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

	ENTRY CallArc
	ENTRY CallOval
	ENTRY CallRRect
	ENTRY ConicGetRect
	ENTRY FrConic
	ENTRY GetAngles
	ENTRY GetWandH
	ENTRY OvalPenSize
	ENTRY iStdConic


;                copy conics/conics
*	   Table of Contents
*
* 1.  Ovals
*
*       FrameOval	   Frames an oval
*       PaintOval	   Paints an oval in the current pattern
*       EraseOval	   Erases an oval
*       InvertOval	   Inverts an oval
*       FillOval	   Fills an oval with a pattern
*       CallOval	   The oval bottleneck procedure
*       iStdConic	   The standard conic routine, passed #?Noun in A
*
* 2.  Round Rects
*
*       FrameRRect	   Frames a round rect
*       PaintRRect	   Paints a round rect in the current pattern
*       EraseRRect	   Erases a round rect
*       InvertRRect	   Inverts a round rect
*       FillRRect	   Fills a round rect with a pattern
*       CallRRect	   The round rect bottleneck procedure
*
* 3. Arcs
*
*       FrameArc	   Frames an arc
*       PaintArc	   Paints an arc in	the current pattern
*       EraseArc	   Erases an arc
*       InvertArc	   Inverts an arc
*       FillArc	   Fills an arc with a pattern
*       CallArc	   The arc bottleneck procedure
*
* 4. Environment and utility calls
*
*       ConicGetRect   Pulls rect into Y1... and OuterOval+OvalTop...
*       GetWandH	   Pulls OvalWidth and OvalHeight off stack
*       GetAngles	   Pulls StartAngle	and ArcAngle off stack
*       AngleFromSlope Just like it sounds
*       SlopeFromAngle Just like this sounds, too
*       InitOval	   Support routine for oval drawing
*       BumpOval	   Bumps oval state	record to next scan	line
*       SetArcRot	   Sets the grafport parameter for arc/oval rotation
*       GetArcRot	   Returns the grafport parameter for oval rotation

****************************************************************
*
* FrameOval(r:Rect)
*
****************************************************************
	EXPORT FrameOval
FrameOval	PROC

*              using PicInfo

	jsr QDStart

	jsr ConicGetRect

	sec
	lda Y2
	sbc Y1
	sta Rect2+2
	sec
	lda X2
	sbc X1
	sta Rect2

	ldx #FrameVerb
	jsl CallOval
	tax
	ldy #4
	jmp BusyErr



	ENDP

****************************************************************
*
* PaintOval(r:Rect)
*
****************************************************************
	EXPORT PaintOval
PaintOval	PROC

*              using PicInfo

	jsr QDStart

	jsr ConicGetRect
	ldx #PaintVerb
	jsl CallOval
	tax
	ldy #4
	jmp BusyErr


	ENDP

****************************************************************
*
* EraseOval(r:Rect)
*
****************************************************************
	EXPORT EraseOval
EraseOval	PROC

*              using PicInfo

	jsr QDStart

	jsr ConicGetRect
	ldx #EraseVerb
	jsl CallOval
	tax
	ldy #4
	jmp BusyErr


	ENDP

****************************************************************
*
* InvertOval(r:Rect)
*
****************************************************************
	EXPORT InvertOval
InvertOval	PROC

*              using PicInfo

	jsr QDStart

	jsr ConicGetRect
	ldx #InvertVerb
	jsl CallOval
	tax
	ldy #4
	jmp BusyErr


	ENDP

****************************************************************
*
* FillOval(r:Rect; p:Pattern)
*
****************************************************************
	EXPORT FillOval
FillOval	PROC

*              using PicInfo
*              using E0Vectors

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
PPtr	equ RTL2+3
RPtr	equ PPtr+4

	jsr QDStart

	jsl UserPat2ZP
	lda RPtr,s
	sta PPtr,s
	lda RPtr+2,s
	sta PPtr+2,s
	jsr ConicGetRect

	ldx #FillVerb
	jsl CallOval
	tax
	ldy #8
	jmp BusyErr

	ENDP

****************************************************************
*
* CallOval
*
* This routine is jumped (or branched) to by the entry points
* after the graf verb is loaded into the X register.
* Zero page is already switched in by the time it gets here.
*
* Change History
*
* 23 Oct 88	Steven Glass
*
* The extra variables were being set after looking at the
* bottleneck pointer so that if there were custom bottleneck
* procs, these vars would not be setup correctly.
*
****************************************************************
CallOval	PROC


	stx DrawVerb	; save the verb
	
;-----------------------------------------------------------
;
; Set up the other variables and then get call correct routine.
;

	
	lda #360	; a full oval
	sta ArcAngle
	stz StartAngle

	ldx #OuterOval
	sec
	lda Y2
	sbc Y1
	sta OvalHeight,x
	sec
	lda X2
	sbc X1
	sta OvalWidth,x

;-----------------------------------------------------------
;
; Now, see how do we get there.

	jsr TestGPs	; if there is a gp pointer
	bcs UseLocal

	jml StdOval

UseLocal	phb	; put extra byte on	stack
	ldy #o_stdoval	; get adr of new Oval routine
	lda [temp],y	; put on stack
	pha
	iny	; get bytes 2 and 3
	lda [temp],y
	sta 2,s	; store middle byte	twice
	rtl	; call it

	ENDP

****************************************************************
*
* iStdConic
*
* Common conic routine that is central point for all oval drawing.
*
* When control gets	here, all inputs are on zero page.
*       TheRect is kept in Y1 thru X2
*       ThePat (if any) is in TheFillPat
*       WhatToDo is	in DrawVerb
*
****************************************************************
	EXPORT StdStuff
StdStuff	PROC

*              using CoreDATA
*              using PicInfo
*              using QDProcs
*              using E0Vectors

	EXPORT iStdArc
iStdArc		;       

	lda #ArcNoun
	bra iStdConic

	EXPORT iStdOval
iStdOval		;       

	lda #OvalNoun
	bra iStdConic

	EXPORT iStdRRect
iStdRRect		;       

	lda #RRectNoun

	EXPORT iStdConic
iStdConic		;       

	sta DrawNoun
	jsl PutPictStuff	; inputs on zp and in a-reg
	bcc NoPicErr

	rtl	; return the error

NoPicErr		; 

	stz HollowFlag	; ToFrConic overrides this below

	lda DrawVerb	; put verb in a
	bne NotFrame
	lda DrawNoun
	cmp #ArcNoun
	beq ToFrConic
	jsr RgnSave	; does this contribute to region def
	bcc ToFrConic	; no, so frame it
	jsl PutOval	; yes, so call putrect
	bcc ToFrConic	; no error so frame	it.

	rtl	; return the error

ToFrConic	inc HollowFlag	; we want a hollow oval
	brl FrConic

NotFrame		; 

	jmp CommonSlabSetup

	ENDP

****************************************************************
*
* FrameRRect(r:Rect)
*
****************************************************************
	EXPORT FrameRRect
FrameRRect	PROC

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
oheight	equ RTL2+3
owidth	equ oHeight+2
RPtr	equ oWidth+2

*              using PicInfo

	jsr QDStart

	jsr GetWandH
	ldx #OuterOval
	lda OvalHeight,x
	sta Rect2+2
	lda OvalWidth,x
	sta Rect2

	lda RPtr,s
	sta oHeight,s
	lda RPtr+2,s
	sta oHeight+2,s


	jsr ConicGetRect
	ldx #FrameVerb
	jsl CallRRect
	tax
	ldy #8
	jmp BusyErr

	ENDP

****************************************************************
*
* PaintRRect(r:Rect)
*
****************************************************************
	EXPORT PaintRRect
PaintRRect	PROC

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
oheight	equ RTL2+3
owidth	equ oHeight+2
RPtr	equ oWidth+2

*              using PicInfo

	jsr QDStart

	jsr GetWandH

	lda RPtr,s
	sta oHeight,s
	lda RPtr+2,s
	sta oHeight+2,s

	jsr ConicGetRect
	ldx #PaintVerb
	jsl CallRRect
	tax
	ldy #8
	jmp BusyErr


	ENDP

****************************************************************
*
* EraseRRect(r:Rect)
*
****************************************************************
	EXPORT EraseRRect
EraseRRect	PROC

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
oheight	equ RTL2+3
owidth	equ oHeight+2
RPtr	equ oWidth+2

*              using PicInfo

	jsr QDStart

	jsr GetWandH

	lda RPtr,s
	sta oHeight,s
	lda RPtr+2,s
	sta oHeight+2,s

	jsr ConicGetRect
	ldx #EraseVerb
	jsl CallRRect
	tax
	ldy #8
	jmp BusyErr


	ENDP

****************************************************************
*
* InvertRRect(r:Rect)
*
****************************************************************
	EXPORT InvertRRect
InvertRRect	PROC

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
oheight	equ RTL2+3
owidth	equ oHeight+2
RPtr	equ oWidth+2

*              using PicInfo

	jsr QDStart

	jsr GetWandH

	lda RPtr,s
	sta oHeight,s
	lda RPtr+2,s
	sta oHeight+2,s

	jsr ConicGetRect
	ldx #InvertVerb
	jsl CallRRect
	tax
	ldy #8
	jmp BusyErr


	ENDP

****************************************************************
*
* FillRRect(r:Rect;	p:Pattern)
*
****************************************************************
	EXPORT FillRRect
FillRRect	PROC

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
PPtr	equ RTL2+3
oheight	equ PPtr+4
owidth	equ oHeight+2
RPtr	equ oWidth+2

*              using PicInfo
*              using E0Vectors

	jsr QDStart


	jsl UserPat2ZP

	ldx #OuterOval

	lda Oheight,s
	sta OvalHeight,x
	lda Owidth,s
	sta OvalWidth,x

	lda RPtr,s
	sta PPtr,s
	lda RPtr+2,s
	sta PPtr+2,s
	jsr ConicGetRect

	ldx #FillVerb
	jsl CallRRect
	tax
	ldy #12
	jmp BusyErr


	ENDP

****************************************************************
*
* CallRRect
*
* This routine is jumped (or branched) to by the
* entry points after the graf verb is loaded into the
* x register.
*
* Zero page is already switched in by the time it gets here.
*
* Change History
*
* 23 Oct 88	Steven Glass
*
* The extra variables were being set after looking at the
* bottleneck pointer so that if there were custom bottleneck
* procs, these vars would not be setup correctly.
*
****************************************************************
CallRRect	PROC

	stx DrawVerb

;-----------------------------------------------------------
;
; Now setup arcangle and start angle
;
	lda #360	; a full oval
	sta ArcAngle
	stz StartAngle


;-----------------------------------------------------------
;
; Look at grafProcs ptr.

	jsr TestGPs	; if there is a gp pointer
	bcs UseLocal

	jml StdRRect


UseLocal	phb	; put extra byte on	stack
	ldy #o_stdRRect	; get adr of new RRect routine
	lda [temp],y	; put on stack
	pha
	iny	; get bytes 2 and 3
	lda [temp],y
	sta 2,s	; store middle byte	twice
	rtl	; call it

	ENDP

****************************************************************
*
* FrameArc(r:Rect; StartAngle,ArcAngle:integer)
*
****************************************************************
	EXPORT FrameArc
FrameArc	PROC
*              using PicInfo

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
AAngle	equ RTL2+3
SAngle	equ AAngle+2
RPtr	equ SAngle+2

	jsr QDStart

	jsr GetAngles

	lda RPtr,s
	sta AAngle,s
	lda RPtr+2,s
	sta AAngle+2,s

	jsr ConicGetRect
	ldx #FrameVerb
	jsl CallArc
	tax
	ldy #8
	jmp BusyErr


	ENDP

****************************************************************
*
* PaintArc(r:Rect; StartAngle,ArcAngle:integer)
*
****************************************************************
	EXPORT PaintArc
PaintArc	PROC
*             using	PicInfo

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
AAngle	equ RTL2+3
SAngle	equ AAngle+2
RPtr	equ SAngle+2

	jsr QDStart

	jsr GetAngles

	lda RPtr,s
	sta AAngle,s
	lda RPtr+2,s
	sta AAngle+2,s

	jsr ConicGetRect
	ldx #PaintVerb
	jsl CallArc
	tax
	ldy #8
	jmp BusyErr


	ENDP

****************************************************************
*
* EraseArc(r:Rect; StartAngle,ArcAngle:integer)
*
****************************************************************
	EXPORT EraseArc
EraseArc	PROC
*              using PicInfo

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
AAngle	equ RTL2+3
SAngle	equ AAngle+2
RPtr	equ SAngle+2

	jsr QDStart

	jsr GetAngles

	lda RPtr,s
	sta AAngle,s
	lda RPtr+2,s
	sta AAngle+2,s

	jsr ConicGetRect
	ldx #EraseVerb
	jsl CallArc
	tax
	ldy #8
	jmp BusyErr


	ENDP

****************************************************************
*
* InvertArc(r:Rect;	StartAngle,ArcAngle:integer)
*
****************************************************************
	EXPORT InvertArc
InvertArc	PROC
*              using PicInfo

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
AAngle	equ RTL2+3
SAngle	equ AAngle+2
RPtr	equ SAngle+2

	jsr QDStart

	jsr GetAngles

	lda RPtr,s
	sta AAngle,s
	lda RPtr+2,s
	sta AAngle+2,s

	jsr ConicGetRect
	ldx #InvertVerb
	jsl CallArc
	tax
	ldy #8
	jmp BusyErr


	ENDP

****************************************************************
*
* FillArc(r:Rect; StartAngle,ArcAngle:integer; p:PatPtr)
*
****************************************************************
	EXPORT FillArc
FillArc	PROC

*              using PicInfo
*              using E0Vectors

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
PPtr	equ RTL2+3
AAngle	equ PPtr+4
SAngle	equ AAngle+2
RPtr	equ SAngle+2

	jsr QDStart

	jsl UserPat2ZP

	lda SAngle,s
	sta StartAngle
	lda AAngle,s
	sta ArcAngle

	lda RPtr,s
	sta PPtr,s
	lda RPtr+2,s
	sta PPtr+2,s
	jsr ConicGetRect

	ldx #FillVerb
	jsl CallArc
	tax
	ldy #12
	jmp BusyErr


	ENDP

****************************************************************
*
* CallArc
*
* This routine is jumped (or branched) to by the
* entry points after the graf verb is loaded into the
* x register.
*
* Zero page is already switched in by the time it gets here.
*
* Change History
*
* 23 Oct 88	Steven Glass
*
* The extra variables were being set after looking at the
* bottleneck pointer so that if there were custom bottleneck
* procs, these vars would not be setup correctly.
*
****************************************************************
CallArc	PROC


	stx DrawVerb

;-----------------------------------------------------------
;
; Setup these other parameters before checking the grafprocs
;
	ldx #OuterOval
	sec
	lda Y2
	sbc Y1
	sta OvalHeight,x
	sec
	lda X2
	sbc X1
	sta OvalWidth,x

;-----------------------------------------------------------
;
; Check the grafprocs.
;
	jsr TestGPs	; if there is a gp pointer
	bcs UseLocal

	jml StdArc



UseLocal	phb	; put extra byte on	stack
	ldy #o_stdArc	; get adr of new Arc routine
	lda [temp],y	; put on stack
	pha
	iny	; get bytes 2 and 3
	lda [temp],y
	sta 2,s	; store middle byte	twice
	rtl	; call it

	ENDP

****************************************************************
*
* ConicGetRect
*
* Gets the rectangle pointer off the stack, and copies the rect
* to Y1..X2 and to OuterOval+OvalTop..OvalRight
*
****************************************************************
	EXPORT ConicGetRect
ConicGetRect	PROC

RTSAdr	equ 1
OrigDirect	equ RTSAdr+2
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
RPtr	equ RTL2+3

	lda RPtr,s
	sta Temp
	lda RPtr+2,s
	sta Temp+2

	ldx #OuterOval+6
	ldy #6
PLoop	phx
	tyx
	lda [Temp],y
	sta Y1,x
	plx
	sta OvalTop,x
	dex
	dex
	dey
	dey
	bpl PLoop

	rts

	ENDP

****************************************************************
*
* GetWandH
*
* Gets the width and height off the stack and puts them on
* zero page.
*
****************************************************************
	EXPORT GetWandH
GetWandH	PROC

RtsAdr	equ 1
OrigDirect	equ RtsAdr+2
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
Oheight	equ RTL2+3
Owidth	equ oHeight+2

	ldx #OuterOval

	lda Oheight,s
	sta OvalHeight,x
	lda Owidth,s
	sta OvalWidth,x

	rts

	ENDP

****************************************************************
*
* GetAngles
*
* Gets the StartAngle and ArcAngle off the stack and puts them on
* zero page.
*
****************************************************************
	EXPORT GetAngles
GetAngles	PROC

RtsAdr	equ 1
OrigDirect	equ RtsAdr+2
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
AAngle	equ RTL2+3
SAngle	equ AAngle+2

	lda SAngle,s
	sta StartAngle
	lda AAngle,s
	sta ArcAngle

	rts

	ENDP

****************************************************************
*
* Function iAngleFromSlope:integer
*
****************************************************************
	EXPORT iAngleFromSlope
iAngleFromSlope	PROC

* Parameter is passed in Slope, which is equated with Temp2.  This
* routine destroys Temp as well (Angle and SlopeSign).  When it
* calls SlopeFromAngle it also destroys	Slope2.  To begin
* make the slope positive, but remember	the sign.

	stz SlopeSign	; zero slope sign boolean
	asl Slope+2	; move sign into carry
	rol SlopeSign	; and into SlopeSign
	beq PositiveSlope

* Negate slope to make it positive

	lda Slope
	eor #$FFFF
	ina
	sta Slope
	beq NoDockHigh
	dec Slope+2	; becomes a carry after eor #$FFFF
NoDockHigh	lda Slope+2
	eor #$FFFF
	sta Slope+2

PositiveSlope	sec	; bias the compare by 500
	lda Slope
	sbc #500
	bcs NoDock1
	dec Slope+2

NoDock1	stz Angle
	bra ScanInside

Scan	inc Angle	; A2Slope won't change it
ScanInside	jsr A2Slope	; returns the slope	for Angle
	lda Slope2+2
	cmp Slope+2
	bmi Scan
	bne FoundIt
	lda Slope2
	cmp Slope
	bmi Scan

* We equal or exceed Slope, so we've found it

FoundIt	lda SlopeSign
	beq DontInvertIt
	sec
	lda #180
	sbc Angle
	sta Angle
DontInvertIt	rtl


* SlopeFromAngle uses the zero page value Angle (which falls on top of
* Temp) and returns	its result in Slope2 (which makes life convenient
* for DrawArc, actually).  SlopeSign overlaps Temp+2.

	EXPORT iSlopeFromAngle
iSlopeFromAngle		;       

	lda Angle
	bra AngleCmp

TruncAngle	sec
	sbc #180
AngleCmp	cmp #180
	bpl TruncAngle
	tax	; to set flags on A
	bpl AngleOkay
PushAngle	clc
	adc #180
	bmi PushAngle
AngleOkay	sta Angle	; angle is in the range 0..179
	stz SlopeSign
	cmp #91
	bmi NotOverNinety
	inc SlopeSign
	sec
	sbc #180
	eor #$FFFF
	ina
	sta Angle
NotOverNinety	jsr A2Slope
	lda SlopeSign
	bne Done
	lda Slope2
	eor #$FFFF
	ina
	sta Slope2
	bne NoDockSlope
	dec Slope2+2
NoDockSlope	lda Slope2+2
	eor #$FFFF
	sta Slope2+2
Done	rtl

* A2Slope is the local routine that does all the work.

A2Slope	lda #90
	cmp Angle
	bne NonNinety
	lda #MaxInt	; this may be wrong
	sta Slope2+2
	lda #$FFFF
	sta Slope2
	rts

NonNinety	stz Slope2+2
	lda Angle	; if Angle < 45, Slope+2 = 0
	cmp #45
	bmi Share
	inc Slope2+2	; if Angle < 64, Slope+2 = 1
	cmp #64
	bmi Share
	tax	; use it as an index
	lda >HiSlopeTab-60,x ; pick up the high	word, low byte
	and #$00FF	; only 90 deg has anything in high byte
	sta Slope2+2	; save the high word
	lda Angle	; get the low word
Share	asl A
	tax
	lda >SlopeTable,x
	sta Slope2
	rts

*              dc i1'$01,$01,$01,$01,$01'       ; 45-49
*              dc i1'$01,$01,$01,$01,$01'       ; 50-54
*              dc i1'$01,$01,$01,$01,$01'       ; 55-59
HiSlopeTab	DC.B $01,$01,$01,$01,$02 ; 60-64
	DC.B $02,$02,$02,$02,$02 ; 65-69
	DC.B $02,$02,$03,$03,$03 ; 70-74
	DC.B $03,$04,$04,$04,$05 ; 75-79
	DC.B $05,$06,$07,$08,$09 ; 80-84
	DC.B $0B,$0E,$13,$1C,$39 ; 85-89

SlopeTable	DC.W $0000	; 0
	DC.W $0478
	DC.W $08F1
	DC.W $0D6B
	DC.W $11E7
	DC.W $1666	; 5
	DC.W $1AE8
	DC.W $1F6F
	DC.W $23FA
	DC.W $288C
	DC.W $2D24	; 10
	DC.W $31C3
	DC.W $366A
	DC.W $3B1A
	DC.W $3FD4
	DC.W $4498	; 15
	DC.W $4968
	DC.W $4E44
	DC.W $532E
	DC.W $5826
	DC.W $5D2D	; 20
	DC.W $6245
	DC.W $676E
	DC.W $6CAA
	DC.W $71FB
	DC.W $7760	; 25
	DC.W $7CDC
	DC.W $8270
	DC.W $881E
	DC.W $8DE7
	DC.W $93CD	; 30
	DC.W $99D2
	DC.W $9FF7
	DC.W $A640
	DC.W $ACAD
	DC.W $B341	; 35
	DC.W $B9FF
	DC.W $C0E9
	DC.W $C802
	DC.W $CF4E
	DC.W $D6CF	; 40
	DC.W $DE8A
	DC.W $E681
	DC.W $EEB9
	DC.W $F737
	DC.W $0000	; 45
	DC.W $0919
	DC.W $1287
	DC.W $1C51
	DC.W $267F
	DC.W $3117	; 50
	DC.W $3C22
	DC.W $47AA
	DC.W $53B9
	DC.W $605B
	DC.W $6D98	; 55
	DC.W $7B89
	DC.W $8A35
	DC.W $99AF
	DC.W $AA0E
	DC.W $BB68	; 60
	DC.W $CDD6
	DC.W $E177
	DC.W $F66E
	DC.W $0CE1
	DC.W $24FE	; 65
	DC.W $3EFC
	DC.W $5B19
	DC.W $799F
	DC.W $9AE7
	DC.W $BF5B	; 70
	DC.W $E77A
	DC.W $13E3
	DC.W $4556
	DC.W $7CC7
	DC.W $BB68	; 75
	DC.W $02C2
	DC.W $54DB
	DC.W $B462
	DC.W $2501
	DC.W $ABD9	; 80
	DC.W $5051
	DC.W $1D88
	DC.W $24F3
	DC.W $83AD
	DC.W $6E17	; 85
	DC.W $4CF5
	DC.W $14BD
	DC.W $A2D7
	DC.W $4A30
	DC.W $FFFF	; 90

	ENDP

****************************************************************
*
*              iInitOval
*
****************************************************************
	EXPORT iInitOval
iInitOval	PROC

* When we enter, x points at the proper	oval record, which may not
* be in the first zero page (it's probably in the 3rd zero page, actually).
* Note that the stz	instruction can't be used.

* The oval rectangle is set up by the caller, so we'll just leave it where
* it already is.  That's just dandy by us.  Pin OvalHeight and OvalWidth
* to a minimum of 0.

	lda OvalHeight,x
	bpl HeightOkay
	lda #0
	sta OvalHeight,x
HeightOkay	lda OvalWidth,x
	bpl WidthOkay
	lda #0
	sta OvalWidth,x

* Pin OvalHeight (OvalWidth) to a maximum of DestHeight (DestWidth)

WidthOkay	sec
	lda OvalRight,x
	sbc OvalLeft,x
	cmp OvalWidth,x
	bpl OWidthOkay
	sta OvalWidth,x
OWidthOkay	sec
	lda OvalBottom,x
	sbc OvalTop,x
	cmp OvalHeight,x
	bpl OHeightOkay
	sta OvalHeight,x

* Set up oval left edge and oval right edge, fixed point numbers.  To
* begin with, set things to be zeroed to zero while we have	#0 in A

OHeightOkay	lda #0
	sta ORightEdge,x
	sta OLeftEdge,x

	sta Square,x
	sta Square+2,x
	sta Square+4,x
	sta Square+6,x

	sta Rsqysq+2,x

	lda OvalRight,x
	sta ORightEdge+2,x
	lda OvalLeft,x
	sta OLeftEdge+2,x

	stz Temp
	lda OvalWidth,x
	sta Temp+2
	lsr Temp+2
	ror Temp

	clc
	lda OLeftEdge,x
	adc Temp
	sta OLeftEdge,x
	lda OLeftEdge+2,x
	adc Temp+2
	sta OLeftEdge+2,x

	sec
	lda ORightEdge,x
	sbc Temp
	sta ORightEdge,x
	lda ORightEdge+2,x
	sbc Temp+2
	sta ORightEdge+2,x

	clc
	lda #$8000
	adc ORightEdge,x
	sta ORightEdge,x
	bcc T1
	inc ORightEdge+2,x

T1	lda OvalHeight,x	; calc 1-OvalHeight
	eor #$FFFF	; negate it
	ina
	ina
	sta OvalY,x

	lda OvalHeight,x
	asl A	; double it
	dea	; -1
	sta Rsqysq,x

* OddNum := (AspectRatio ^2), and while	we're at it we can set
* OddBump := 2 * (AspectRatio ^2) by just storing it and rotating
* it at the same time.

	phx	; save x
	pea 0	; push 64 bit result
	pea 0
	pea 0
	pea 0

	pea 0	; push 32 bit result
	pea 0
	lda OvalHeight,x
	pha
	lda OvalWidth,x
	pha
	_FixRatio
	lda 3,s	; duplicate high word
	pha
	lda 3,s	; duplicate low word
	pha
	_LongMul	; calc 64 bit (Height/Width) squared
	lda 9,s	; get x back
	tax
	pla
	sta OddNum,x
	asl A
	sta OddBump,x
	pla
	sta OddNum+2,x
	rol A
	sta OddBump+2,x
	pla
	sta OddNum+4,x
	rol A
	sta OddBump+4,x
	pla
	sta OddNum+6,x
	rol A
	sta OddBump+6,x
	plx	; clean the stack

	rtl

	ENDP

****************************************************************
*
*              iBumpOval
*
****************************************************************
	EXPORT iBumpOval
iBumpOval	PROC

	lda CurrentY
	cmp OvalTop,x
	bmi GoHome

	cmp OvalBottom,x
	bmi While1
GoHome	rtl

* While square < Rsqysq do make oval bigger

More1		; 

* ORightedge := ORightedge + 1/2

	lda ORightEdge,x
	clc
	adc #$8000	; one half
	sta ORightEdge,x
	bcc NoBump1
	inc ORightEdge+2,x

* OLeftEdge := OLeftEdge - 1/2

NoBump1	lda OLeftEdge,x
	sec
	sbc #$8000	; one half
	sta OLeftEdge,x
	bcs NoDock1
	dec OLeftEdge+2,x

* Square := Square + OddNum

NoDock1	clc
	lda Square,x
	adc OddNum,x
	sta Square,x
	lda Square+2,x
	adc OddNum+2,x
	sta Square+2,x
	lda Square+4,x
	adc OddNum+4,x
	sta Square+4,x
	lda Square+6,x
	adc OddNum+6,x
	sta Square+6,x

* OddNum := OddNum + OddBump

	clc
	lda OddNum,x
	adc OddBump,x
	sta OddNum,x
	lda OddNum+2,x
	adc OddBump+2,x
	sta OddNum+2,x
	lda OddNum+4,x
	adc OddBump+4,x
	sta OddNum+4,x
	lda OddNum+6,x
	adc OddBump+6,x
	sta OddNum+6,x

While1	lda Square+6,x
	cmp Rsqysq+2,x	; is Square < Rsqysq ?

* Note: the 65816 cmp instruction doesn't work right.  Since square and
* Rsqysq should always be positive, use	an unsigned branch instruction.

	bcc More1	; yes, loop
	bne NotLess	; no, continue

* The high words were equal.  Check the	low words.

	lda Square+4,x
	cmp Rsqysq,x	; is Square < Rsqysq ?
	bcc More1

NotLess	bra While2	; now backtrack

* While Square > Rsqysq do make oval smaller

* ORightedge := ORightedge - 1/2

More2	sec
	lda ORightEdge,x	; get ORightEdge
	sbc #$8000	; one half
	sta ORightEdge,x	; save it
	bcs NoDock2
	dec ORightEdge+2,x

* OLeftEdge := OLeftEdge + 1/2

NoDock2	clc
	lda OLeftEdge,x	; get OLeftEdge
	adc #$8000	; one half
	sta OLeftEdge,x	; save it
	bcc NoBump2
	inc OLeftEdge+2,x

* OddNum := OddNum - OddBump

NoBump2	sec
	lda OddNum,x
	sbc OddBump,x
	sta OddNum,x
	lda OddNum+2,x
	sbc OddBump+2,x
	sta OddNum+2,x
	lda OddNum+4,x
	sbc OddBump+4,x
	sta OddNum+4,x
	lda OddNum+6,x
	sbc OddBump+6,x
	sta OddNum+6,x

* Square := Square - OddNum

	sec
	lda Square,x
	sbc OddNum,x
	sta Square,x
	lda Square+2,x
	sbc OddNum+2,x
	sta Square+2,x
	lda Square+4,x
	sbc OddNum+4,x
	sta Square+4,x
	lda Square+6,x
	sbc OddNum+6,x
	sta Square+6,x

While2	lda Rsqysq+2,x
	cmp Square+6,x	; is Square > Rsqysq ?

* Note: the 65816 cmp instruction doesn't work right.  Since square and
* Rsqysq should always be positive, use	an unsigned branch instruction.

	bcc More2	; yes, make oval smaller
	bne NotMore	; no, continue

* The high words were equal.  Check the	low words

	lda Rsqysq,x
	cmp Square+4,x	; is Square > Rsqysq ?
	bcc More2

NotMore	lda OvalY,x
	ina	; bump by 2
	sta Temp	; capture this value
	ina
	sta OvalY,x	; save it like we promised we would
	stz Temp+2
	lda Temp
	bpl NotNegative
	lda #$FFFF
	sta Temp+2
NotNegative	asl Temp
	rol Temp+2
	asl Temp
	rol Temp+2

	sec
	lda Rsqysq,x
	sbc Temp
	sta Rsqysq,x
	lda Rsqysq+2,x
	sbc Temp+2
	sta Rsqysq+2,x

	rtl

	ENDP
;                copy conics/drawconic
*	   Table of Contents
*
* 1.  DrawConic
*
*       FrConic	   Frames a conic
*       PConic	   Paints a conic in the current pattern
*       EConic	   Erases a conic
*       IConic	   Inverts a conic
*       FConic	   Fills a conic
*       OvalPenSize	   Sets up the pen size or exits, as appropriate
*       DrawConic	   Draws a conic

****************************************************************
*
* PConic, FrConic
*
****************************************************************
	EXPORT FrConic
FrConic	PROC

*              using E0Vectors

	jsr OvalPenSize	; don't come back unless visible

	jmp CommonSlabSetup

	ENDP


****************************************************************
*
* OvalPenSize
*
* Get the PnSize from the port and puts	it in PenWidth and
* PenHeight.  It also checks to see if either is 0.  If it is then
* we do an rtl for the calling routine.
*
****************************************************************
	EXPORT OvalPenSize
OvalPenSize	PROC

* PenWidth and PenHeight overlap Temp2.	 This routine should be called
* just before using	them or they'll be wiped away...

*              using CoreDATA

	ldy #O_PnSize
	lda [PortRef],y
	beq NowWaitAMin
	sta PenHeight
	iny
	iny
	lda [PortRef],y
	beq NowWaitAMin
	sta PenWidth

	rts

NowWaitAMin	pla	; get rts adr off stack
	clc	; remember that this terminates call
	lda #0	; with no error
	rtl	; do rtl for calling routine

	ENDP

****************************************************************
*
* DrawConic
*
* The common arc, oval, and round rect drawing routine.  Draws
* within OvalRect with a curvature specified by OvalWidth
* and OvalHeight and an angle from StartAngle to StartAngle+ArcAngle.
*
* By the time control reaches any of the Conic routines, StartAngle,
* ArcAngle, HollowFlag, OvalTop..OvalRight, OvalWidth and OvalHeight
* have all been set	properly.  When ready to do a slab, we put our
* calculated endpoints in X1 and X2 and	call the slab routine.
*
****************************************************************
	EXPORT iDrawConic
iDrawConic	PROC

*              using E0Vectors

* Adjust if ArcAngle negative, quit if Arc = 0

	lda ArcAngle
	bne NotZeroAngle
	rtl

NotZeroAngle	phb	; save the bank reg	here

* Init2Regions takes RgnA and RgnB and does all the init stuff nec.
* for seekrgn.

	jsl Init2Regions

* SetSlabAdr uses penmode and flag called rgns are rect and	it decides
* which is the appropriate slab routine.

	jsl SetSlabAdr	; sets up the slab adr on zp

	lda ArcAngle
	bpl PositiveAngle
	clc
	adc StartAngle
	sta StartAngle
	lda ArcAngle
	eor #$FFFF
	ina
	sta ArcAngle
PositiveAngle	stz ArcFlag	; initialize
	cmp #360	; is arc angle < 360 ?
	bmi ItsAnArc
	brl NotAnArc

ItsAnArc	lda StartAngle	; it IS an arc!
	jsr CheckAngle
	sta StartAngle	; in case it changed

	clc
	adc ArcAngle	; calc StopAngle
	jsr CheckAngle
	sta StopAngle

	ldx #OuterOval
	clc
	lda OvalTop,x
	adc OvalBottom,x

	clc
	bpl ItsPlus1
	sec

ItsPlus1	ror a
	sta MidVert	; MidVert := (top+bottom)/2

	clc
	lda OvalLeft,x
	adc OvalRight,x
	clc
	bpl ItsPlus2
	sec
ItsPlus2	ror a

* MidHoriz overlaps	OldRight, considered a temp for this

	sta MidHoriz	; MidHoriz := (left+right)/2

	pea 0	; space for result
	pea 0

	sec
	lda OvalRight,x
	sbc OvalLeft,x
	pha
	sec
	lda OvalBottom,x
	sbc OvalTop,x
	sta ArcFlag	; a temp, save for later
	pha

	_FixRatio

	pla
	sta Line1	; another temp, for	the aspect ratio
	pla
	sta Line1+2

* Calculate Slope1 from StartAngle

	lda StartAngle
	sta Angle	; SlopeFromAngle's input
	jsl vSlopeFromAngle
	pea 0	; _FixMul functon result
	pea 0
	pei Slope2+2	; push SlopeFromAngle's result
	pei Slope2
	pei Line1+2	; push the aspect ratio temp
	pei Line1
	_FixMul
	pla
	sta Slope1
	pla
	sta Slope1+2

* Calculate Slope2 from StopAngle

	lda StopAngle
	sta Angle	; SlopeFromAngle's input
	jsl vSlopeFromAngle
	pea 0	; _FixMul function result
	pea 0
	pei Slope2+2	; push SlopeFromAngle's result
	pei Slope2
	pei Line1+2	; push the aspect ratio temp
	pei Line1
	_FixMul
	pla
	sta Slope2
	pla
	sta Slope2+2

* Initialize Line1 := Fixed(MidHoriz) -	Slope1 * Fixed(Height div 2).  Height
* was saved in ArcFlag, above.

	pea 0	; result of FixMul
	pea 0
	lda ArcFlag	; calc Height div 2
	lsr A
	eor #$FFFF	; negate it
	ina
	sta ArcFlag	; save it, modified, for later
	pha
	pea 0	; a low word of 0
	pei Slope1+2
	pei Slope1
	_FixMul
	pla
	sta Line1	; low word not affected by MidHoriz
	pla
	clc
	adc MidHoriz	; add in MidHoriz
	sta Line1+2	; ta dah!

* Initialize Line2 := Fixed(MidHoriz) -	Slope2 * Fixed(Height div 2).
* -(Height div 2) was saved in ArcFlag,	above.

	pea 0	; result of FixMul
	pea 0
	pei ArcFlag	; from our friend, above
	pea 0	; a low word of 0
	pei Slope2+2
	pei Slope2
	_FixMul

	pla
	sta Line2	; low word not affected by MidHoriz
	pla
	clc
	adc MidHoriz	; add in MidHoriz
	sta Line2+2	; ta dah!

* Set up Flag1 and Flag2 to tell which half each line is active in.
* The code is, negative = active in top, positive = active in bottom, and
* 0 = horizontal.

	lda StartAngle	; is StartAngle < 180 ?
	cmp #180
	bpl T1	; no, continue
	sec
	sbc #90	; yes, Flag1 := StartAngle-90
	bra T2
T1	sec
	lda #270
	sbc StartAngle	; Flag1 := 270-StartAngle
T2	sta Flag1

	lda StopAngle	; is StopAngle < 180 ?
	cmp #180
	bpl T3	; no, continue
	sec
	sbc #90	; yes, Flag2 := StopAngle-90
	bra T4
T3	sec
	lda #270
	sbc StopAngle	; Flag2 := 270-StopAngle
T4	sta Flag2

* Set up SkipFlag to skip over unused arc portions

	stz SkipFlag	; initialize to zero

	lda #180	; is ArcAngle > 180	?
	cmp ArcAngle
	bmi Obtuse	; skip if angle > 180
	bne Acute	; deal with acute angle
	lda StartAngle	; so, ArcAngle is 180
	cmp #90	; skip if StartAngle=90
	bne Obtuse
	inc SkipFlag
	bra Obtuse

Acute	lda Flag1	; SkipFlag := (Flag1 | Flag2) > 0
	ora Flag2
	bmi Obtuse
	inc SkipFlag

Obtuse	lda #1	; restore our temp to True
	sta ArcFlag

NotAnArc		; 

* Init outer oval state record

	ldx #OuterOval
	jsl InitOval

* Calculate SkipTop	and SkipBot

	lda OvalHeight,x	; get oval height
	lsr A	; calc oval height div 2
	sta Temp
	adc OvalTop,x	; add oval top
	sta SkipTop	; save it

	sec
	lda OvalBottom,x
	sbc Temp
	sta SkipBot

* If this is a hollow oval, then calculate DstRect inset by
* pensize and iInitOval.  If inneroval is empty, switch to a solid oval.

	stz InnerFlag
	ldx #512

	lda HollowFlag
	beq Solid

	ldx #OuterOval

	jsr OvalPenSize	; this will return - it did once

	sec
	lda OvalRight,x
	sbc PenWidth
	sta InnerRight

	clc
	lda OvalLeft,x
	adc PenWidth
	sta InnerLeft

	cmp InnerRight
	bpl Solid

	sec
	lda OvalBottom,x
	sbc PenHeight
	sta OuterRight

	clc
	lda OvalTop,x
	adc PenHeight
	sta OuterLeft

	cmp OuterRight
	bpl Solid

* Initialize the inner oval

	inc InnerFlag	; we mean business

	ldx #InnerOval
	lda InnerRight	; inner right
	sta OvalRight,x
	lda InnerLeft	; inner left
	sta OvalLeft,x

	lda OuterRight	; inner bottom
	sta OvalBottom,x
	lda OuterLeft	; inner top
	sta OvalTop,x

	ldx #OuterOval

	lda PenWidth	; InnerWidth := OvalWidth-2*PenWidth
	asl A
	eor #$FFFF
	ina
	clc
	adc OvalWidth,x
	sta InnerRight	; temp

	lda PenHeight	; InnerHeight := OvalHeight-2*PenHeight
	asl A
	eor #$FFFF
	ina
	clc
	adc OvalHeight,x

	ldx #InnerOval

	sta OvalHeight,x
	lda InnerRight
	sta OvalWidth,x

	jsl InitOval	; with x set to InnerOval offset

* Grab OuterOval.OvalTop and figure out	where in the pixel map its
* scan line is.

Solid	ldx #OuterOval
	lda OvalTop,x
	sta CurrentY
	sec
	sbc BoundsRect


	jsr SetFirstDestRef



OvalLoop		; 

; Now pull out right slice for current y
	jsr NextPatSlice

; takes as input currentY (global), seek of RgnA and RgnB (clip and vis)
	jsl Seek2Regions

	ldx #OuterOval
	lda OLeftEdge,x	; save away old values for inner
	sta OldOuterLeft
	lda ORightEdge+2,x
	sta OldOuterRight
	lda CurrentY	; get current V
	cmp SkipTop	; is vert < SkipTop
	bmi YesBump	; yes, bump oval record
	cmp SkipBot	; is vert >= SkipBot
	bmi NoBump	; no, skip bumping

YesBump	ldx #OuterOval
	jsl BumpOval	; advance edges
	lda InnerFlag	; are we hollow?
	beq NoBump
	ldx #InnerOval
	jsl BumpOval	; advance inner edges

NoBump		; 
	lda ArcFlag
	bne CheckFlags
	brl DoOvals

CheckFlags	lda CurrentY
	cmp MidVert	; is CurrentY = MidVert ?
	bne NotMid

* Adjust arc stuff as we cross the middle vertically

	lda Flag1	; invert flags as we cross midpoint
	eor #$FFFF
	ina
	sta Flag1
	lda Flag2
	eor #$FFFF
	ina
	sta Flag2

* Recalculate SkipFlag and quit if it becomes true - add stuff in here

	stz SkipFlag

	lda #180	; is ArcAngle > 180	?
	cmp ArcAngle
	bmi Obtuse1	; skip if angle > 180
	bne Acute1	; deal with acute angle
	lda StartAngle	; so, ArcAngle is 180
	cmp #270	; done if StartAngle=270
	bne Obtuse1
	brl Eureka

Acute1	lda Flag1	; done if (Flag1 | Flag2) > 0
	ora Flag2
	bmi Obtuse1
	brl Eureka

* Now swap the roles of Line1 and Line2	as they cross the middle

Obtuse1	jsr SwapLines

NotMid	lda SkipFlag
	beq DoArc
	brl NextPat

* Solid or hollow arc.  Calculate OuterLeft and OuterRight

DoArc		; 
	lda CurrentY
	cmp MinRect
	bpl TopOK1
	brl NextPat
TopOK1		; 
	ldx #OuterOval
	lda OLeftEdge+2,x	; get hi word of OuterOval.LeftEdge
	ldy Flag1	; is Line1 active?
	bpl DA1
	cmp Line1+2	; yes, check Line1 horiz coord
	bpl DA1
	lda Line1+2
DA1	sta OuterLeft
	lda ORightEdge+2,x	; get hi word of OuterOval.RightEdge
	ldy Flag2	; is Line2 active?
	bpl DA2
	cmp Line2+2
	bmi DA2
	beq DA2
	lda Line2+2
DA2	sta OuterRight
	lda InnerFlag
	beq SArc

* may want to double check how currenty	is being used - probably bump
* it down near NextPat, not way up here.

	ldx #InnerOval
	lda CurrentY
	cmp OvalTop,x
	bmi SArc
	cmp OvalBottom,x
	bmi Harc

SArc	ldx #OuterOval
	lda OuterLeft
	cmp OuterRight
	bpl DividedWedge
	sta X1
	lda OuterRight
	sta X2
	jsr DoSlab
	brl NextPat

DividedWedge	lda Flag1
	and Flag2	; are both lines active?
	bpl ToNextPat
	lda #180
	cmp ArcAngle	; is the angle > 180 ?
	bpl ToNextPat

	lda OLeftEdge+2,x
	sta X1
	lda OuterRight
	sta X2
	jsr DoSlab

	ldx #OuterOval
	lda OuterLeft
	sta X1
	lda ORightEdge+2,x
	sta X2
DoASlab	jsr DoSlab
ToNextPat	brl NextPat

HArc		; 
	ldx #InnerOval
	lda OLeftEdge+2,x
	ldy Flag2
	bpl HA1
	cmp Line2+2
	bmi HA1
	beq HA1
	lda Line2+2
HA1	sta InnerLeft

	lda ORightEdge+2,x
	ldy Flag1
	bpl HA2
	cmp Line1+2
	bpl HA2
	lda Line1+2
HA2	sta InnerRight

* If OuterLeft < OuterRight then paint two slabs

	lda OuterLeft
	cmp OuterRight	; is OuterLeft < OuterRight ?
	bpl HA3	; no, continue
	sta X1
	lda InnerLeft
	sta X2
	jsr DoSlab
	lda InnerRight
	sta X1
	lda OuterRight
	sta X2
	jsr DoSlab
	brl NextPat

* else if both lines active and angle >	180 then paint two or three slabs

HA3	lda Flag1
	and Flag2
	bmi HABothActive
	brl NextPat

HABothActive	lda #180
	cmp ArcAngle	; is ArcAngle > 180	?
	bmi HAAngleOkay	; yes
	brl NextPat

HAAngleOkay	lda InnerLeft
	cmp OuterRight	; is InnerLeft = OuterRight?
	bne HA4	; no, continue
	lda OuterLeft
	sta X1
	ldx #InnerOval	; redundant
	lda OLeftEdge+2,x	; yes, draw a third	slab
	sta X2
	bra HA5

HA4	lda OuterLeft
	cmp InnerRight
	bne Not3
	lda ORightEdge+2,x	; yes, draw a third	slab
	sta X1
	lda OuterRight
	sta X2
HA5	jsr DoSlab

Not3		; 
	ldx #OuterOval
	lda OLeftEdge+2,x
	sta X1
	lda InnerLeft
	sta X2
	jsr DoSlab

	ldx #OuterOval
	lda InnerRight
	sta X1
	lda ORightEdge+2,x
	sta X2
	jsr DoSlab
	brl NextPat

* Branch based on solid or hollow oval

DoOvals		; 
	lda CurrentY
	cmp MinRect
	bpl TopOK2
	brl NextPat
TopOK2		; 
	lda InnerFlag
	beq SOval

	ldx #InnerOval
	lda CurrentY
	cmp OvalTop,x
	bmi SOval
	cmp OvalBottom,x
	bpl SOval

HOval	ldx #OuterOval
	lda ORightEdge+2,x
	pha
	lda OLeftEdge+2,x
	sta X1

	ldx #InnerOval
	lda ORightEdge+2,x
	pha
	lda OLeftEdge+2,x
	sta X2
	jsr DoSlab

	pla
	sta X1
	pla
	sta X2
	jsr DoSlab

	bra NextPat

* Solid oval - draw	one slab between left and right edges of outer oval

SOval	ldx #OuterOval
	lda OLeftEdge+2,x
	sta X1
	lda ORightEdge+2,x
	sta X2
	jsr DoSlab

NextPat	lda CurrentY
	ina
	cmp MinRect+4
	bmi NotYetDone
Eureka	plb	; restore bank
	rtl

NotYetDone	sta CurrentY
	lda ArcFlag	; do we need to bump lines?
	beq NotLining
	clc
	lda Slope1
	adc Line1
	sta Line1
	lda Slope1+2
	adc Line1+2
	sta Line1+2
	clc
	lda Slope2
	adc Line2
	sta Line2
	lda Slope2+2
	adc Line2+2
	sta Line2+2

NotLining		; 
	jsr SetNextDestRef
	brl OvalLoop	; loop for all verticals

* In this little procedure we do a crude modulo 360 - this will usually
* win big because the parameter passed will generally be in	range, but
* even if it isn't, this method should still win over the tool call.
* Note the status flags coming in must be set on A.

CheckAngle	bpl CheckTooHigh
BumpAngle	clc
	adc #360
	bmi BumpAngle
	rts

DockAngle	sec
	sbc #360
CheckTooHigh	cmp #360
	bpl DockAngle
	rts

* SwapLines exchanges the meaning of Line1 and Line2 as we cross the middle.
* It's put down here to keep the branches in range up above, since all it is
* is busy work.

SwapLines	lda Flag1
	ldx Flag2
	stx Flag1
	sta Flag2
	lda Line1
	ldx Line2
	stx Line1
	sta Line2
	lda Line1+2
	ldx Line2+2
	stx Line1+2
	sta Line2+2
	lda Slope1
	ldx Slope2
	stx Slope1
	sta Slope2
	lda Slope1+2
	ldx Slope2+2
	stx Slope1+2
	sta Slope2+2
	rts

* XSetup sets left edge and right edge (and maybe a few masks).
* Set based upon X1	and X2.

DoSlab	lda x2
	cmp MinRect+2
	bmi DoneSlab
	cmp MinRect+6
	bmi X2okay
	lda MinRect+6
	sta X2
X2okay	lda x1
	cmp MinRect+6
	bpl DoneSlab
	cmp MinRect+2
	bpl X1okay
	lda MinRect+2
	sta X1
X1okay	lda X1
	cmp X2
	bpl DoneSlab
	jsl XSetup	; call in slab routine
	jsl ToSlab	; draw slab
DoneSlab	rts

	ENDP
;                copy conics/putoval
*	   Table of Contents
*
* PutOval
*
*       iPutOval	   Add oval or round rect points to an open region
****************************************************************
*
*              iPutOval
*
****************************************************************
	EXPORT iPutOval
iPutOval	PROC

*              using E0Vectors
*              using ErrorDATA

* Init an oval record

* Parameters are passed on zero page.  OvalWidth and OvalHeight determine
* the shape of the oval.  They are trimmed to DstRect if they are bigger than
* it is.  If DstRect is bigger (in either dimension) the extra space is
* automatically added along the appropriate axis, generating a round rect.

	ldx #OuterOval
	jsl InitOval	; go to the vector location

	lda OLeftEdge+2,x
	sta OldOuterLeft

	lda ORightEdge+2,x
	sta OldOuterRight

	lda OvalHeight,x	; get oval height
	lsr A	; calc oval height div 2
	clc
	adc OvalTop,x	; add oval top
	sta SkipTop	; save it

	clc
	adc OvalBottom,x	; add bottom
	sec
	sbc OvalTop,x	; subtract top
	sec
	sbc OvalHeight,x	; subtract OvalHeight
	sta SkipBot	; save it

* Dereference handle

	ldx #BufHandle
	jsr DerefHandle	; dereference the current handle
	sta BufPtr	; save pointer returned in A & X
	stx BufPtr+2
	ldy #2	; current index offset
	lda [BufPtr],y	; get index
	sta Index	; save the pointer to the next point

* More initialization

	ldx #OuterOval
	lda OvalTop,x
	sta CurrentY

* Put the top edge

	lda OldOuterLeft
	jsr PutPt	; add it to the buffer
	lda OldOuterRight
	jsr PutPt	; add this, too

* For each vertical, bump OLeftEdge and	ORightEdge.  If they differ from
* OOldLeft and OOldRight, put inversion	points for the differences.

NxtVert	lda CurrentY	; get current V
	cmp SkipTop	; is vert < SkipTop
	bmi YesBump	; yes, bump oval record
	cmp SkipBot	; is vert >= SkipBot
	bmi RightOK	; no, skip bumping

YesBump	ldx #OuterOval
	jsl BumpOval	; advance edges, using vector
	lda OLeftEdge+2,x	; get OLeftEdge
	cmp OldOuterLeft	; same as OOldLeft?
	beq LeftOk	; yes, continue
	jsr PutPt	; add it to the buffer
	lda OldOuterLeft	; get old H
	jsr PutPt	; add it to the buffer
	lda OLeftEdge+2,x	; get new left
	sta OldOuterLeft	; update old left

* Check right edge and put two inversion points if it has changed.

LeftOk	lda ORightEdge+2,x	; get right edge
	cmp OldOuterRight	; same as OOldRight?
	beq RightOk	; yes, continue
	jsr PutPt	; add it to the buffer
	lda OldOuterRight	; get old H
	jsr PutPt	; put old right edge
	lda ORightEdge+2,x	; get new value
	sta OldOuterRight	; update old right

RightOk	lda CurrentY	; bump scan line
	ina
	sta CurrentY
	cmp OvalBottom,x	; are we done yet?
	bmi NxtVert	; loop for all verticals

* Put the bottom edge

	lda OldOuterLeft
	jsr PutPt
	lda OldOuterRight
	jsr PutPt

	ldy #2
	lda Index
	sta [BufPtr],y	; update count

	ldx #BufHandle	; unlock the buffer	handle
	jsr UnlockHandle
	clc
	rtl	; go home

* Local routine which adds points to the buffer.  The y value is in CurrentY
* and the x value is in x.  A handle error from here will go back to the main
* caller.

PutPt	tax	; save a in x
	clc
	lda Index	; get current index
	tay	; save it just in case
	adc #4	; enough room?
	sta Index	; the next value
	cmp [BufPtr]	; do we have enough	room?
	bcc SizeOk	; if we borrowed, that's good
	beq SizeOk	; if they're equal, that's good, too

	phx	; save the value to	store
	phy	; save the index we	need
	clc	; prepare for add
	adc #1024	; room for 256 more	points
	bcs BufferOverflow	; if we wrapped, we're done
	ldx #BufHandle	; point X at BufHandle
	jsr ReSizeHandle	; resize, relock, rederef
	bcs ErrorOut	; if we failed, propogate the error
	sta BufPtr	; save pointer
	stx BufPtr+2
	ply	; restore index
	plx	; get the value to store back

SizeOk	lda CurrentY	; get the Y value
	sta [BufPtr],y	; save the y value
	IncYWd	; next integer
	txa	; get x value
	sta [BufPtr],y	; save the x value
	IncYWd	; bump to next point
	ldx #OuterOval
	rts

BufferOverflow	lda #RgnFull	; error to say we had troubles
ErrorOut	ply	; we pushed y
	plx	; we pushed x
	plx	; dump the local return
	pha	; push error code
	ldx #BufHandle	; unlock the buffer	handle
	jsr UnlockHandle
	sec	; set the error flag
	pla	; pull the error code
	rtl	; go home

	ENDP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/QD/cursor.asm b/IIGS.601.SRC/GSToolbox/QD/cursor.asm
new file mode 100644
index 0000000..0a3dcae
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/QD/cursor.asm
@@ -0,0 +1 @@
+	title 'QD Cursor            GS ROM 3.0'
****************************************************************
*			   *
*                   CURSOR		   *
*			   *
****************************************************************


****************************************************************
*			   *
*	Copyright (C) 1985-1989	   *
*	All Rights Reserved		   *
*	Apple Computer, Inc.	   *
*			   *
****************************************************************


**********************************************************************
*
* Change History
*
* 11 Nov 88	Steven Glass
*
* Changed ShieldCursor, UpdateCursor and RefreshCursor to kill 
* bug related to shielded obscured cursors.  If an obscured cursor
* was shielded, and it moved, it was redrawn anyway (leaving cursor
* droppings on the screen).  This happened because ShieldCursor
* did not mark the cursor as busy if it was obscured.  Now it
* is marked busy no matter what.
*
* UpdateCursor and RefreshCursor changed to mark the cursor
* as shielded if the cursor moved while it was obscured and busy.
* Without this change, the cursor could be undrawn even when it
* was not visible, leaving cursor droppings on the screen.
*
* 2/1/89	Mensch
*
* Modified to shield when drawing to regular and shadowed screen
*
*
*
*  3/20/89	Mark Cecys
*
*  Added "MIDIInputPoll" in time-consumming routines. If assem directive "midi"
*  is set to one, then polling will be assembled, otherwise if set to zero,
*  no MIDI polling will be added. This is used by MidiTools which patches in
*  its local cursor routines to prevent SCC over-run. (QD makefile has midi=0)
*  The following PROC's are affected:
*
*	UserInitCursor
*	CalcSaveSize
*	iDrawCursor
*	iUndrawCursor
*
*
*  24 Apr 89	Steven Glass
*
*  Fixed bug in UpdateCursor relating to the UseInterrupts Flag
*  BRC #48180
*
**********************************************************************


	include 'all.macros'

	MACRO
&lab	MoveLong &From,&To
&lab	lda &From
	sta &To
	lda &From+2
	sta &To+2
	MEND



	include ':QDEquates:qd.data.asm'
	INCLUDE ':QDEquates:core.globals1'
	include '::sys.equs.asm'
	
	title 'Cursor Equates'

ScreenStart	equ $2000
ScreenHeight	equ 200	; number of scan lines
ScreenWidth	equ 160	; number of bytes

MaxWidth	equ 32	; max number of bytes containing
*		; single line of cursor image.

;-----------------------------------------------
;
; We start the cursor data on zero page	at the end
; of the stuff used	by the rest of quickdraw.
;
StartofZP	equ CursorSTART

UseInterrupts	equ StartofZP
IntPending	equ UseInterrupts+2

MouseY	equ IntPending+2
MouseX	equ MouseY+2

NextMouseY	equ MouseX+2
NextMouseX	equ NextMouseY+2

CurHeight	equ NextMouseX+2	; Num scan lines high of cursor
CurWidth	equ CurHeight+2	; Num WORDS wide of	cursor

CursorRect	equ CurWidth+2
CursorY1	equ CursorRect
CursorX1	equ CursorY1+2
CursorY2	equ CursorX1+2
CursorX2	equ CursorY2+2

CursorMode	equ CursorX2+2
CursorRecPtr	equ CursorMode+2

CursorPtr	equ CursorRecPtr+4
MaskPtr	equ CursorPtr+4

CursorPtr1	equ MaskPtr+4
MaskPtr1	equ CursorPtr1+4
CursorPtr2	equ MaskPtr1+4
MaskPtr2	equ CursorPtr2+4
CursorPtr3	equ MaskPtr2+4
MaskPtr3	equ CursorPtr3+4
CursorPtr4	equ MaskPtr3+4
MaskPtr4	equ CursorPtr4+4
CursorPtr5	equ MaskPtr4+4
MaskPtr5	equ CursorPtr5+4
CursorPtr6	equ MaskPtr5+4
MaskPtr6	equ CursorPtr6+4
CursorPtr7	equ MaskPtr6+4
MaskPtr7	equ CursorPtr7+4

SaveHandle	equ MaskPtr7+4

SavePtr	equ SaveHandle+4
SaveSize	equ SavePtr+4

CursorRef	equ SaveSize+2
MaskRef	equ CursorRef+4
HotSpot	equ MaskRef+4

SaveRef	equ HotSpot+4
ScreenRef	equ SaveRef+4

CursorLevel	equ ScreenRef+2
ObscureFlag	equ CursorLevel+2

StartWord	equ ObscureFlag+2

ScreenIndex	equ StartWord+2
SaveIndex	equ ScreenIndex+2
CurrentY	equ SaveIndex+2

ThisOut	equ CurrentY+2
LastOut	equ ThisOut+2
SrcRef	equ LastOut+2
DestRef	equ SrcRef+4
ThisWord	equ DestRef+4

HowManyWords	equ ThisWord+2
WordCount	equ HowManyWords+2
LineCount	equ WordCount+2
HowFarToShift	equ LineCount+2

CursorFlags	equ HowFarToShift+2
TempRect	equ CursorFlags+2
SaveRect	equ TempRect+8

ZZEndofCursor	equ SaveRect+8

Busy_M	equ $8000
Shielded_M	equ $4000
ForceU_M	equ $2000


	title 'Cursor Imports and Entries'
;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

	IMPORT BusyEC0
	IMPORT BusyEC2
	IMPORT BusyEC4
	IMPORT BusyErr0
	IMPORT BusyErr4
	IMPORT QDStart
	IMPORT SpecialNewHandle
	IMPORT xShiftOut
	IMPORT xShiftStay

;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

	ENTRY CalcSaveSize
	ENTRY ClearSCB
	ENTRY GetItReady
	ENTRY RefreshCursor
	ENTRY ShiftOne
	ENTRY UpdateCursor

	title 'CursorData'
CursorDATA	PROC EXPORT



	EXPORT Arrow320
Arrow320		; 
	DC.W 11,4	; 11 scan lines by 4 words
*     0 2 4 6 8 A C	E
	DC.B $00,$00,$00,$00,$00,$00,$00,$00 ; 1
	DC.B $0F,$00,$00,$00,$00,$00,$00,$00 ; 2
	DC.B $0F,$F0,$00,$00,$00,$00,$00,$00 ; 3
	DC.B $0F,$FF,$00,$00,$00,$00,$00,$00 ; 4
	DC.B $0F,$FF,$F0,$00,$00,$00,$00,$00 ; 5
	DC.B $0F,$FF,$FF,$00,$00,$00,$00,$00 ; 6
	DC.B $0F,$FF,$FF,$F0,$00,$00,$00,$00 ; 7
	DC.B $0F,$FF,$FF,$FF,$00,$00,$00,$00 ; 8
	DC.B $0F,$F0,$FF,$00,$00,$00,$00,$00 ; 9
	DC.B $00,$00,$0F,$F0,$00,$00,$00,$00 ; 10
	DC.B $00,$00,$00,$00,$00,$00,$00,$00 ; 11

*     0 2 4 6 8 A C	E
	DC.B $FF,$00,$00,$00,$00,$00,$00,$00 ; 1
	DC.B $FF,$F0,$00,$00,$00,$00,$00,$00 ; 2
	DC.B $FF,$FF,$00,$00,$00,$00,$00,$00 ; 3
	DC.B $FF,$FF,$F0,$00,$00,$00,$00,$00 ; 4
	DC.B $FF,$FF,$FF,$00,$00,$00,$00,$00 ; 5
	DC.B $FF,$FF,$FF,$F0,$00,$00,$00,$00 ; 6
	DC.B $FF,$FF,$FF,$FF,$00,$00,$00,$00 ; 7
	DC.B $FF,$FF,$FF,$FF,$F0,$00,$00,$00 ; 8
	DC.B $FF,$FF,$FF,$FF,$00,$00,$00,$00 ; 9
	DC.B $FF,$F0,$FF,$FF,$00,$00,$00,$00 ; 10
	DC.B $00,$00,$0F,$FF,$00,$00,$00,$00 ; 11


	DC.W 1,1	; hot spot


	EXPORT Arrow640
Arrow640		; 
	DC.W 11,2	; 11 scan lines by 2 words

*     0   2   4   6	  8   A   C   E
	DC.B %00000000,%00000000,%00000000,%00000000 ; 1
	DC.B %00110000,%00000000,%00000000,%00000000 ; 2
	DC.B %00111100,%00000000,%00000000,%00000000 ; 3
	DC.B %00111111,%00000000,%00000000,%00000000 ; 4
	DC.B %00111111,%11000000,%00000000,%00000000 ; 5
	DC.B %00111111,%11110000,%00000000,%00000000 ; 6
	DC.B %00111111,%11111100,%00000000,%00000000 ; 7
	DC.B %00111111,%11111111,%00000000,%00000000 ; 8
	DC.B %00111100,%11110000,%00000000,%00000000 ; 9
	DC.B %00000000,%00111100,%00000000,%00000000 ; 10
	DC.B %00000000,%00000000,%00000000,%00000000 ; 11


*     0   2   4   6	  8   A   C   E
	DC.B %11110000,%00000000,%00000000,%00000000 ; 1
	DC.B %11111100,%00000000,%00000000,%00000000 ; 2
	DC.B %11111111,%00000000,%00000000,%00000000 ; 3
	DC.B %11111111,%11000000,%00000000,%00000000 ; 4
	DC.B %11111111,%11110000,%00000000,%00000000 ; 5
	DC.B %11111111,%11111100,%00000000,%00000000 ; 6
	DC.B %11111111,%11111111,%00000000,%00000000 ; 7
	DC.B %11111111,%11111111,%11000000,%00000000 ; 8
	DC.B %11111111,%11111111,%11000000,%00000000 ; 9
	DC.B %11111100,%11111111,%00000000,%00000000 ; 10
	DC.B %00000000,%11111111,%00000000,%00000000 ; 11

	DC.W 1,1	; hot spot




	ENDP

	title 'InitCursor'
****************************************************************
*
* InitCursor
*
* This is not an entry point!  This is the routine called
* at quickdraw startup time.
*
****************************************************************
InitCursor	PROC EXPORT

	tdc	; get direct reg in	a
	tax	; and in x

	phd	; initialize some stuff
	clc
	adc #$100
	tcd

	lda >UserID,x
	tax
	lda #$400
	ldy #$8000
	jsr SpecialNewHandle
	bcc GotHandle
	jmp ErrorOut


GotHandle		; ; dereference the	locked handle
	stx SaveHandle
	sty SaveHandle+2
	ldy #2
	lda [SaveHandle],y
	sta SavePtr+2
	lda [SaveHandle]
	sta SavePtr

	jsr GetItReady
	bcs ErrorOut

	pha	; save the old value of the Scan
	pha	; line interrupt vector
	PushWord #ScanIntRefNum
	_GetVector

	pla
	sta >OldScanInt
	pla
	sta >OldScanInt+2


	PushWord #CurUpdateRefNum ; install pointer to update
	PushLong #UpdateCursor ; cursor routine
	_SetVector

	PushWord #ScanIntRefNum ; install pointer to
	PushLong #RefreshCursor ; cursor refresh routine
	_SetVector

	PushWord #EnableScanInts ; turn on scan	line interrupts.
	_IntSource

	lda #$8000	; set zero page flag
	sta UseInterrupts

	pld

	lda #0	; signal no error
	clc

	rtl

ErrorOut	pld
	rtl


	ENDP


	title 'GetItReady'
****************************************************************
*
* GetItReady
*
* This routine sets	up the cursor mode and calls set cursor.
*
****************************************************************
GetItReady	PROC EXPORT


	tdc	; get the zp adr
	sec	; subtract $100
	sbc #$100
	tax	; put in x
	lda >MasterSCB,x	; move masterSCB from
	sta CursorMode	; QD zp to cursor ZP

	stz ObscureFlag	; clear the obscure	flag
	lda #$FFFF	; and set cursor not visible
	sta CursorLevel

;-------------------------------------------------
;
; Now set up a cursor
	bit CursorMode-1
	bmi Mode640
	PushLong #Arrow320
	bra CallIt

Mode640	PushLong #Arrow640

CallIt	_SetCursor

	rts


	ENDP


	title 'UserInitCursor'
****************************************************************
*
* UserInitCursor
*
* This is the entry	point for the user to restore the standard
* cursor for the current MasterSCB.
*
****************************************************************
UserInitCursor	PROC EXPORT

	jsr QDStart
	clc
	adc #$100
	tcd

	php
	sei
	_HideCursor	; always hide

	IF midi=1 THEN
	jsl MIDIInputPoll	; Check MIDI input
	ENDIF


	jsr GetItReady	; reset everything
	bcs Error

	IF midi=1 THEN
	jsl MIDIInputPoll	; Check MIDI input
	ENDIF


	_ShowCursor	; show it now that all is reset


AllDone	plp
	jmp BusyEC0

Error	plp	; restore interrupts
	tax	; put error in x
	jmp BusyErr0	; get out

	ENDP


	title 'Lock and Unlock SaveHandle'
****************************************************************
*
* LockSaveHandle
*
* Internal Routine to quickly lock and dereference the save	handle.
* Relies on fact that lock bit is kept in word immediatly after pointer
* to data.
*
****************************************************************
LockSaveHandle	PROC EXPORT
	ldy #4
	lda [SaveHandle],y
	ora #$8000
	sta [SaveHandle],y

	lda [SaveHandle]
	sta SavePtr
	ldy #2
	lda [SaveHandle],y
	sta SavePtr+2

	rts

	ENDP

****************************************************************
*
* UnlockSavehandle
*
* Internal routine to quickly unlock the save handle
* Relies on fact that lock bit is kept in word immediatly
* after pointer to data.
*
****************************************************************
UnlockSaveHandle	PROC EXPORT

	ldy #4
	lda [SaveHandle],y
	and #$7FFF
	sta [SaveHandle],y
	rts

	ENDP

	title 'CursorShutdown'
****************************************************************
*
* CursorShutDown
*
* Frees up the memory used to save the cursor.
*
****************************************************************
CursorShutDown	PROC EXPORT

	phd
	tdc
	clc
	adc #$100
	tcd

	PushWord #DisableScanInts ; turn on scan line interrupts.
	_IntSource

	stz UseInterrupts

	pei SaveHandle+2
	pei SaveHandle
	_DisposeHandle

	PushWord #ScanIntRefNum ; restore the old value of the scan
	lda >OldScanInt+2	; line interrupt vector!
	pha
	lda >OldScanInt
	pha
	_SetVector

	pld

	rts

	ENDP


	title 'ShiftStuff'
****************************************************************
*
* ShiftStuff
*
* This creates the preshifted cursor images used later.
*
****************************************************************
ShiftStuff	PROC EXPORT

	ldx #0

	bit CursorMode-1
	bmi Mode640

	lda #8	; 4 * 2
	sta HowFarToShift

Loop320		; 

	jsr DoPair

	lda HowFarToShift
	clc
	adc #8
	sta HowFarToShift

	cpx #24
	bcc Loop320


	rts

Mode640	lda #4	; 2 * 2
	sta HowFarToShift

Loop640		; 

	jsr DoPair

	lda HowFarToShift
	clc
	adc #4
	sta HowFarToShift

	cpx #56
	bcc Loop640


	rts

DoPair		; 

	MoveLong MaskPtr,SrcRef
	lda MaskPtr1,x
	sta DestRef
	lda MaskPtr1+2,x
	sta DestRef+2
	phx
	jsr ShiftOne
	plx

	MoveLong CursorPtr,SrcRef
	lda CursorPtr1,x
	sta DestRef
	lda CursorPtr1+2,x
	sta DestRef+2
	phx
	jsr ShiftOne
	plx

	txa
	clc
	adc #8
	tax

	rts

	ENDP


	title 'More Shift Stuff'
ShiftOne	PROC EXPORT

	lda CurHeight
	sta LineCount

BigLoop		; 

	lda CurWidth	; put num words - 1	in wordcount
	dec a
	sta WordCount
	stz LastOut


	ldy #0	; start with first word
ShiftLoop	lda [SrcRef],y
	sta ThisWord
	ldx HowFarToShift
	jsl xShiftOut
	sta ThisOut
	lda ThisWord
	ldx HowFarToShift
	jsl xShiftStay
	ora LastOut
	sta [DestRef],y


	lda ThisOut	; move shift outs
	sta LastOut

	iny
	iny
	dec WordCount
	bpl ShiftLoop

	lda CurWidth	; num words
	asl a	; make into bytes
	tax	; save copy in x
	clc	; bump srcref
	adc SrcRef
	sta SrcRef

	txa	; use copy in x again
	clc	; bump destref
	adc DestRef
	sta DestRef

	dec LineCount
	bpl BigLoop

	rts


	ENDP


	title 'SetCursor'
****************************************************************
*
* SetCursor
*
* Input
*     CursorPtr   long    Points to cursor record
*
*
* The memory pointed to by SavePtr is organized as follows:
*
*      SaveArea	 SaveSize
*      CursorImage1	 SaveSize
*      MaskImage1	 SaveSize
*      CursorImage2	 SaveSize
*      MaskImage2	 SaveSize
*      CursorImage3	 SaveSize
*      MaskImage3	 SaveSize
*      CursorImage4	 SaveSize       needed for 640 mode
*      MaskImage4	 SaveSize
*      CursorImage5	 SaveSize
*      MaskImage5	 SaveSize
*      CursorImage6	 SaveSize
*      MaskImage6	 SaveSize
*      CursorImage7	 SaveSize
*      MaskImage7	 SaveSize
*
* The total memory I need is 7 * SaveSize in 320 mode
* and 15 * SaveSize	in 640 mode.
* 
****************************************************************
SetCursor	PROC EXPORT

OrigP	equ 1
OrigDirect	equ OrigP+1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
TheCursorPtr	equ RTL2+3

	jsr QDStart
	clc
	adc #$100
	tcd

	php	; save PROC EXPORTessor
	sei	; turn off interrupts to do this

	bit CursorLevel
	bmi NotVisible

	bit ObscureFlag
	bmi NotVisible

	jsl UnDrawCursor	; restore under cursor

NotVisible		; 

	jsr CalcSaveSize

	pha	; put new save size	on stack

;----------------------------------------------
; Now I need some memory to use for the	save
; area, and the preshifted cursor images.
;
; The amount I need	is equal to
;
;      SaveSize (for saving) +
;      6 * SaveSize	(for 320 mode)  = 7	* SaveSize
;
;      14 * SaveSize (for 640 mode) = 15 * SaveSize
;
	jsr UnlockSaveHandle

	lda 1,s
	asl a
	asl a
	asl a
	bit CursorMode-1
	bpl ThatsEnough
	asl a
ThatsEnough	sec
	sbc 1,s
	pea 0
	pha
	pei SaveHandle+2
	pei SaveHandle
	_SetHandleSize

	bcc NoProblem
	pha

	jsr LockSaveHandle

	bit CursorLevel
	bmi StillNotVisible

	bit ObscureFlag
	bmi StillNotVisible

	jsl DrawCursor

StillNotVisible	plx	; put error in x
	pla	; get new save size	off stack
	plp	; restore PROC EXPORTessor
	jmp BusyErr4	; quit and return error


NoProblem		; 
	jsr LockSaveHandle

	plx	; get save size in x so stack is right
	lda TheCursorPtr,s	; get pointer to cursor rec
	sta CursorRecPtr
	lda TheCursorPtr+2,s
	sta CursorRecPtr+2

	lda [CursorRecPtr]	; I move height and	width
	sta CurHeight	; to zero page
	ldy #2
	lda [CursorRecPtr],y
	sta CurWidth

	lda CursorRecPtr	; point to cursor image
	clc
	adc #4
	sta CursorPtr
	lda CursorRecPtr+2
	sta CursorPtr+2


	txa	; get savesize in a
	sta SaveSize
	sec	; get rid of extra word per line
	sbc CurHeight
	sec
	sbc CurHeight
	tay	; put copy in Y too
	clc
	adc CursorPtr
	sta MaskPtr
	lda CursorPtr+2
	sta MaskPtr+2

	lda [MaskPtr],y	; get hot spot
	sta HotSpot
	iny
	iny
	lda [MaskPtr],y
	sta HotSpot+2

;----------------------------------------------
;
; Update the appropriate pointers.
;
	lda SavePtr	; the first pointer	is savesize past
	clc	; saveptr.
	adc SaveSize
	sta CursorPtr1
	lda SavePtr+2
	adc #0
	sta CursorPtr1+2

	ldx #0
SetUpLoop	lda CursorPtr1,x
	clc
	adc SaveSize
	sta CursorPtr1+4,x
	lda CursorPtr1+2,x
	adc #0
	sta CursorPtr1+6,x
	inx
	inx
	inx
	inx
	cpx #13*4	; 52, 7 sets of two	pointers
	bcc SetUpLoop


;----------------------------------------------
;
; Now I must shift the cursor and mask into
; the appropriate places.
;
	jsr ShiftStuff



;----------------------------------------------
;
; Now I can show the new cursor
;
	bit CursorLevel
	bmi DoNotShow
	bit ObscureFlag	; or should a set cursor unobscure it?
	bmi DoNotShow
	jsl DrawCursor
DoNotShow	plp	; restore interrupt	status

	jmp BusyEC4

	ENDP

	title 'CalcSaveSize'
****************************************************************
****************************************************************
CalcSaveSize	PROC EXPORT


CurDirect	equ 1
ThisRTS	equ CurDirect+2
OrigP	equ ThisRTS+2
OrigDirect	equ OrigP+1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
TheCursorPtr	equ RTL2+3

	phd
	tsc
	tcd

	IF midi=1 THEN
	jsl MIDIInputPoll	; Check MIDI input
	ENDIF


	PushLong #0
	lda [TheCursorPtr]
	pha
	ldy #2
	lda [TheCursorPtr],y
	inc a	; add 1
	asl a	; and double in words
	pha
	_Multiply

	IF midi=1 THEN
	jsl MIDIInputPoll	; Check MIDI input
	ENDIF


	pla	; result in a
	plx	; ignore high word
	pld	; restore direct register
	rts	; all done

	ENDP

	title 'GetCursorAdr'
****************************************************************
*
* GetCursorAdr
*
* Output
*     CursorPtr   long    Points to cursor record
*
****************************************************************
GetCursorAdr	PROC EXPORT

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
TheCursorPtr	equ RTL2+3

	jsr QDStart
	clc
	adc #$100
	tcd

	lda CursorRecPtr
	sta TheCursorPtr,s
	lda CursorRecPtr+2
	sta TheCursorPtr+2,s

	jmp BusyEC0

	ENDP


	title 'ShowCursor'
****************************************************************
*
* ShowCursor
*
* Increments the cursor level.
*
*
* Change History
*
* August 21, 1986 SEG   Check for obscure flag is now added.
*	    Obscured cursor	is correctly displayed
*	    by showcursor call.
*
* 10 Oct 1986  SEG	   A new problem was found.  When this patch
*	   ran with the cursor obscured and hidden,
*	   the cursor stayed hidden after the show
*	   call.
*
*	   Example:
*	             ObscureCursor
*	             HideCursor
*	             ShowCursor
*
*	   To fix this I do	not decrement the
*	   cursor level when the cursor is obscured
*	   if the cursor is	already hidden.
*
****************************************************************
ShowCursor	PROC EXPORT

	jsr QDStart
	clc
	adc #$100
	tcd

	php
	sei

	bit ObscureFlag	; Check the obscure	flag
	bpl NoProblem

	stz ObscureFlag	; clear the flag
	lda CursorLevel	; no look at the cursor level.
	bmi NoProblem	; if it negative there is nothing more
*		; to do
	dec CursorLevel	; If zero, dec the cursor level
*		; so rest of this routine will do
*		; the right thing.

NoProblem	inc CursorLevel
	bmi AllDone

	lda CursorLevel
	bne AlreadyVisable

	jsl DrawCursor

AlreadyVisable	stz CursorLevel

AllDone	plp
	jmp BusyEC0

	ENDP


	title 'HideCursor'
****************************************************************
*
* HideCursor
*
* Decrements the cursor level.
*
* Change History
*
* 10 Oct 1986      SEG       If the cursor was obscured
*	         this routine undrew it again
*	         anyway.  This left strange looking
*	         images on the screen.
*
*	         Now we just decrement the level if
*	         cursor is obsured.
*
****************************************************************
HideCursor	PROC EXPORT

	jsr QDStart
	clc
	adc #$100
	tcd

	php
	sei

	lda CursorLevel
	bmi NotVisible

	bit ObscureFlag	; if obscured, then	don't undraw!
	bmi NotVisible

	jsl UndrawCursor	; it was vis and not obscured

NotVisible	dec CursorLevel	; always dec level

	plp
	jmp BusyEC0

	ENDP

	title 'ObscureCursor'
****************************************************************
*
* ObscureCursor
*
* Sets the obscure flag.
*
****************************************************************
ObscureCursor	PROC EXPORT

	jsr QDStart
	clc
	adc #$100
	tcd

	php
	sei


	lda CursorLevel
	bmi NotVisible

	lda ObscureFlag
	bmi NotVisible

	jsl UndrawCursor

NotVisible	lda #$8000
	sta ObscureFlag

	plp
	jmp BusyEC0

	ENDP


	title 'ShieldCursor'
****************************************************************
*
* ShieldCursor
*
* This Routine marks the cursor busy and if the min rect and
* cursor rect intersect, it hides the cursor
*
* Change History
*
* 21 Aug 86     SEG	   Shield cursor made a 4 byte compare
*      to see if the current port is the
*      screen to decide if the cursor should
*      be shielded.	 It now does a 3 byte compare
*      so that system windows will work	correctly.
*
* 11 Nov 88     SEG	   Cursor is always	marked busy when this
*      routine is called.  (Used to only be
*      marked busy if the cursor was visible--
*      level positive and not obscured.)
*
* 2/24/89	Mensch
*
* Changed the direct page setup and moved some of the compares around
* this should be a 100% speed increase if no shielding is to take place
*
****************************************************************
iShieldCursor	PROC EXPORT

	ldx #$0100	; used as an index throughout
;-------------------------------------------------
;
; No matter what, set the cursor busy flag.
; Used to only set it if the cursor was	visible.
;
	lda #Busy_M
	sta <CursorFlags,x

;-------------------------------------------------
;
; If the cursor is not visible, it cannot be made
; visible until after the drawing call is complete
; so don't worry.
;
	bit <CursorLevel,x
	bmi NeverMind

	bit <ObscureFlag,x
	bmi NeverMind

;-------------------------------------------------
;
; Is this drawing going to be to the screen?
; If not then don't bother.
;
	lda ImageRef
	cmp #$2000
	bne NeverMind
	lda ImageRef+1	; I only care about	3 bytes in
;
; EXP 1/25/89
; take shadowing into account here!
;
	and #$0FFF	; strip off the high bank nibble to accomodate shadowing
	cmp #$0120	; the pointer so that system windows
	bne NeverMind	; will work  21 Aug	86



;-------------------------------------------------
;
; Now decide if the	MinRect of the drawing and
; the cursor rect intersect.
;
	lda MinRect	; get top of min rect
	sec	; and convert to global
	sbc BoundsRect	; coordinates

	cmp <SaveRect,x
	bpl MinTopGreater
	lda <SaveRect,x
MinTopGreater	sta <TempRect,x

	lda MinRect+4	; get bot of min rect
	sec	; and convert to global
	sbc BoundsRect	; coordinates

	cmp <SaveRect+4,x
	bmi MinBotLess
	lda <SaveRect+4,x
MinBotLess	
	cmp <TempRect,x
	bmi NeverMind
	
	
	lda MinRect+2	; get left of min rect
	sec	; and convert to global
	sbc BoundsRect+2	; coordinates

	cmp <SaveRect+2,x
	bpl MinLeftGreater
	lda <SaveRect+2,x
MinLeftGreater	sta <TempRect,x


	lda MinRect+6	; get right of min rect
	sec	; and convert to global
	sbc BoundsRect+2	; coordinates

	cmp <SaveRect+6,x
	bmi MinRightLess
	lda <SaveRect+6,x
MinRightLess	
	cmp <TempRect,x
	bmi NeverMind

;-------------------------------------------------
;
; Yes they intersect so hide the cursor.
;
	phd	; save the direct reg
	tdc	; get it
	clc
	adc #$100	; add 100 and put back in d
	tcd
	jsl UnDrawCursor	; undraw it

	lda #Shielded_M
	tsb CursorFlags
	ldx #$0100
	pld	; restore direct register
NeverMind
	rtl

	ENDP

	title 'UnShieldCursor'
****************************************************************
*
* UnShieldCursor
*
* This Routine undoes the work of ShieldCursor above.
*
****************************************************************
iUnShieldCursor	PROC EXPORT

	phd	; save the direct reg
	tdc	; get it
	tax	; put copy in x
	clc
	adc #$100	; add 100 and put back in d
	tcd

;-------------------------------------------------
;
; If the cursor is not shielded, then I	don't have
; to unshield it now.
;
	bit CursorFlags
	bvs YesShielded

	lda #ForceU_M
	and CursorFlags
	beq NeverMind

	jsl UnDrawCursor	; have moved so undraw it and draw again


;-------------------------------------------------
;
; Yes they intersect so hide the cursor.
;
YesShielded		; 
	jsl DrawCursor	; draw it


NeverMind	stz CursorFlags	; clear cursor busy
	pld	; restore direct register

	rtl

	ENDP

	title 'SetMouseLoc'
****************************************************************
*
* SetMouseLoc
*
*              MouseX  word
*              MouseY  word
*
* Test call that moves the mouse position.
*
****************************************************************
SetMouseLoc	PROC EXPORT

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
TheMouseY	equ RTL2+3
TheMouseX	equ TheMouseY+2

	jsr QDStart
	clc
	adc #$100
	tcd

	bit CursorLevel
	bmi NotVis1
	bit ObscureFlag
	bmi NotVis1

;-------------------------------------------------
;
; Undraw last one
;
	phx
	jsl UnDrawCursor
	plx


;-------------------------------------------------
;
; Set new mouse pos
;
NotVis1	lda TheMouseY,s
	sta MouseY
	lda TheMouseX,s
	sta MouseX

	bit CursorLevel
	bmi NotVis2
	bit ObscureFlag
	bmi NotVis2

;-------------------------------------------------
;
; Draw it in new place
;
	jsl DrawCursor

NotVis2	jmp BusyEC4

	ENDP

	title 'SetIntUse'
****************************************************************
*
* SetIntUse   (YesOrNo : boolean);
*
* If user sends non	zero value, I set int use to yes.  If
* user sends in zero value, I set int use to no.
*
****************************************************************
SetIntUse	PROC EXPORT
OrigP	equ 1
OrigDirect	equ OrigP+1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
YesOrNo	equ RTL2+3

	jsr QDStart
	clc
	adc #$100
	tcd

	php	; save PROC EXPORTessor
	sei	; turn off interrupts to do this

	lda YesOrNo,s
	beq StoreIt

	lda #$8000

StoreIt	sta UseInterrupts

	plp
	jmp BusyEC2

	ENDP

	title 'UpdateCursor'
****************************************************************
*
UpdateCursor	PROC EXPORT
*
* This routine is called through a vector in bank E1.  When
* I get control, there are three bytes of return address info
* on the stack followed by 4 bytes of mouse information.
*
* The calling routine expects me to clean the inputs
* off the stack.
*
* This routine checks the UseInterrupts	flag on zero page
* to decide whether	to draw the cursor immediately or
* arrange for an intterupt to occur later.
*
* If I arrange for later, this routine puts the next
* mouse position on	zero page and turns	on interrupts for
* the scan line the	mouse is going to be on.
*
* Notes:
*        The interrupt service routine will always clear
*        the SCB so	that only one line has the int on it
*        at a time.	     
*
*
*
* Inputs:
*	direct page and stack
*          Stack
*	MouseX : word
*	MouseY : word
*
*
* Outputs:
*	none
*
* External Refs:
	import HandleCursor
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* Change History
*
* 11 Nov 88	Steven Glass
*
* Cursor is marked shielded if it was obscured and it was
* supposed to be drawn but it was busy.  This prevents it 
* from being undrawn later when cursor is unshielded.
*
* 11 Dec 88	Steven Glass
*
* Changed code to call HandleCursor instead of having code in
* line in both the UpdateCursor and RefreshCursor routines.
*
* 24 Apr 89	Steven Glass
*
* Fixed bug introduced on 11 Dec where nextMouse was not
* updated if UseInterrupts was zero.
*
****************************************************************


OrigDirect	equ 1
WorkAreaRef	equ OrigDirect+2
RTLAdr	equ WorkAreaRef+4
TheMouseY	equ RTLAdr+3
TheMouseX	equ TheMouseY+2



;-------------------------------------------------
;
; Find our zero page.
;
	lda >WAPTPtr+2
	pha
	lda >WAPTPtr
	pha

	phd
	tsc
	tcd

	ldy #16
	lda [WorkAreaRef],y
	beq CleanUp	; not initialized so quit

	clc	; now add $100
	adc #$100	; and put in direct	reg
	tcd

; 26 Apr 89 Mensch and Steve Glass
; This routine was not clearing the proper scan line interupt after the 4/24 fix.
; due to nextMouseY being updated too soon. This is no longer the case. Also, the
; ClearSCB routine is called ALL the time now if you have interupts turned on
; (this is due to the fact that it can't every hurt to clear the interupt cause it
; belongs to us, and we set it again anyway)
	bit UseInterrupts	; see if interupt use is turned on
	bpl @SkipClear	; if not, then user has scan ints, so don't clear
	jsr ClearSCB	; always clear the interupt flag no matter what.
@SkipClear
;
; Copy new mouse location to direct page (before testing useInterrupts).
; 24 Apr 89  SEG
;
	lda TheMouseX,s
	sta NextMouseX
	lda TheMouseY,s
	sta NextMouseY

;
; Check the useinterrupts flag.
;
	bit UseInterrupts
	bpl DoItNow
;
; Code was this:
;	lda IntPending
;	beq NoIntPending
;	jsr ClearSCB
;
;NoIntPending
; The next line would be needed if you put back the others.
;	lda NextMouseY	; Get value back in Y. 24 Apr 89 SEG

	cmp #200	; mouse positions greater than
	bcc Less200	; 199 are treated as 0
	lda #0

Less200	tax	; note that I don't bother
	lda >FirstSCB,x	; switching to 8 bit mode!
	ora #%01000000	; turn on the int bit in this byte
	sta >FirstSCB,x

	lda #$8000
	sta IntPending

	bra CleanUp


DoItNow	jsr HandleCursor

CleanUp		; 
	pld

	pla
	pla


	phb	; put extra byte on	stack
	plx	; pull bank and low	byte of rtl
	ply	; pull high word of	rtl
	pla	; pull off MouseY and ignore it
	pla	; pull off MouseX and ignore it
	phy	; put back high word of rtl
	phx	; put back low byte	of rtl and bank
	plb	; pull off bank
	rtl

	ENDP


	title 'Refresh Cursor'
****************************************************************
*
RefreshCursor	PROC EXPORT
*
* This is the interrupt handling routine that is called
* when a scan line interrupt occurs.
*
* It is called in 8	bit native mode, and must return that way.
*
* This routine must	clear the interrupt	flag in the scb.
*
*
*
* Inputs:
*	direct page
*
* Outputs:
*	none
*
* External Refs:
	import HandleCursor
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* Change History
*
* 11 Nov 88	Steven Glass
*
* Cursor is marked shielded if it was obscured and it was
* supposed to be drawn but it was busy.  This prevents it from being undrawn
* later when cursor is unshielded.
*
****************************************************************


OrigDirect	equ 1
WorkAreaRef	equ OrigDirect+2
OrigP	equ WorkAreaRef+4
RTLAdr	equ OrigP+2


;------------------------------------------------------
;
; First switch to full native mode
;

	php	; save state
	rep #$30

;------------------------------------------------------
;
; Find our zero page.
;
	lda >WAPTPtr+2
	pha
	lda >WAPTPtr
	pha

	phd
	tsc
	tcd

	ldy #16
	lda [WorkAreaRef],y

	clc	; now add $100
	adc #$100	; and put in direct	reg
	tcd

;------------------------------------------------------
;
; Clear the interrupting SCB.
;
	jsr ClearSCB


	jsr HandleCursor

	pld

	pla
	pla


	plp	; Now back in 8 bit	mode


;------------------------------------------------------
;
; Now I have to clear the interrupt
; by writing to the	interrupt status register in VGC
; Bit 5 is the flag	for scan line ints.
;
	longa off
	longi off

	lda #%11011111	; clear bit 5
	sta >ScanInt	;

	clc	; tell the calling program
	rtl	; that I serviced it.

	longa on
	longi on

	ENDP

	title 'HandleCursor'
****************************************************************
*
HandleCursor	PROC
*
* Called by both RefreshCursor and UpdateCursor to 
* undraw and draw the cursor on the screen.
*
*
*
* Inputs:
*	all on d-page
*
* Outputs:
*	all on d-page
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
*
* Change History
*
* 11 Dec 88	Steven Glass
*
* Added on today to remove code duplication and make it
* less costly to patch old ROM's.
*
****************************************************************

;------------------------------------------------------
;
; Now see if we have to undraw.
;

	bit CursorFlags
	bmi NotVis1

	bit CursorLevel
	bmi NotVis1
	bit ObscureFlag
	bmi NotVis1

;-------------------------------------------------
;
; Undraw last one
;

	jsl UnDrawCursor



;-------------------------------------------------
;
; Set new mouse pos
;
NotVis1	lda NextMouseY
	sta MouseY
	lda NextMouseX
	sta MouseX

	bit CursorLevel
	bmi NotVis2
	lda ObscureFlag
	stz ObscureFlag


	bit CursorFlags
	bmi ForceUpdate

;-------------------------------------------------
;
; Draw it in new place
;
	jsl DrawCursor

NotVis2		; 
SkipIt		; 
	bra CleanUp

ForceUpdate
	tax	; was the cursor obscured?
	beq @No

	lda #shielded_m	; it was obscured, so now it must be considered
	tsb CursorFlags	; as shielded.

@No
	lda #ForceU_M	; since i did not draw it
	tsb CursorFlags	; force the draw at	time of
;		; unshield cursor


CleanUp		; 
	rts

	ENDP


	title 'ClearSCB'
****************************************************************
*
ClearSCB	PROC EXPORT
*
* Clears the interrupt request from the SCB.
*
*
* Inputs:
*	direct page.
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


	lda NextMouseY

	cmp #200	; mouse positions greater than
	bcc Less200	; 199 are treated as 0
	lda #0

Less200	tax	; note that I don't bother
	lda >FirstSCB,x	; switching to 8 bit mode!
	and #%1111111110111111 ; turn off the int bit in this byte
	sta >FirstSCB,x

	stz IntPending

	rts

	ENDP

	title 'DrawCursor'
****************************************************************
*
* iDrawCursor
*
* What the hey, this draws the cursor at the position
* indicated on zp.
*
* Change History
*
* 21 Aug 86     SEG	     The calculation of the saveRect was
*	     wrong.  A test	for which mode branched
*	     wrong for the 2 possible cases making
*	     the 320 mode save rect too big and	the
*	     640 mode save rect too small.
*
*	     There is a calculation where I must add
*	     8 to a value.	I know the carry is	set
*	     so I saved a byte and added 7 without
*	     touching the carry.
*
* 2/1/89	Mensch
*
* Added support for shadowed bank cursor...
*
****************************************************************
iDrawCursor	PROC EXPORT
	import ScreenTable

;-------------------------------------------------
;

	IF midi=1 THEN
	jsl MIDIInputPoll	; Check MIDI input
	ENDIF


; First we set up the bank.

	phb	; save the current bank
;
; Find out if we are shadowed...
	lda >$E0C035	; get the shadow register
	and #$0008	; test the shadowing flags!
	bne @1	; if zero, then shadowing is on
	pea $0101	; push on the shadowed bank
	bra @2

@1	pea $E1E1	; push this on stack
@2	plb	; set bank twice to
	plb	; clear stack



;-------------------------------------------------
;
; Next we set up the cursor rectangle

	lda MouseY
	sec
	sbc HotSpot
	sta CursorY1
	sta SaveRect
	sta CurrentY
	clc
	adc CurHeight
	sta CursorY2
	sta SaveRect+4

	lda MouseX
	sec
	sbc HotSpot+2
	sta CursorX1
	sta SaveRect+2

	lda CurWidth	; get width in words
	asl a	; make it  bytes
	asl a	; make it pixels for 320 mode

	bit CursorMode-1
	bpl Width320	; Fixed 21 Aug 86
	asl a
Width320	clc
	adc CursorX1
	sta CursorX2
	sta SaveRect+6


;-----------------------------------------------
;
; Now I calculate the real bounds of the 
; SaveRect.
;  
	clc	; clear carry for use later
	lda #%1111111111111100 ; load a with mask for 320 mode
	bit CursorMode-1	; check real mode
	bpl Still320	; if not 320 mode put one more
	asl a	; zero at low and and set carry!
Still320	tay	; put copy of mask in y
	and SaveRect+2	; and with left edge of rect
	sta SaveRect+2	; and save it
	tya	; get make back
	and SaveRect+6	; and with right edge
	bcs Still640	; if carry is clear	then we know
	adc #4	; that we were in 320 mode
	bra SaveRtEdge	; so add 4 and save	rt edge
Still640		; ; otherwise add 8	and save rt edge
	adc #7	; note that carry was set to get here
;		; and adding 7 with	carry set is like
;		; adding 8. (sorry to those who follow)
;		; This changed on
;		;    Aug 21, 1986
;		; by SEG

SaveRtEdge	sta SaveRect+6


;-------------------------------------------------
;
; Set up the StartWord (we don't use FinishWord) then 
; Figure out which preshifted image to use and put
; pointer to it in CursorRef and MaskRef.
;
	bit CursorMode-1
	bmi Mode640

	lda CursorX1	; make x value into	byte
	asl a	; get sign into c
	lda CursorX1
	ror a	; preserve sign
	and #$FFFE	; make even
	sta StartWord

	lda CursorX1	; which preshifted image do I use?
	and #3
	bra GetReady


Mode640		; 
	lda CursorX1	; make x value into	byte
	asl a	; get sign into c
	php	; and save it
	lda CursorX1
	ror a	; preserve sign
	plp
	ror a	; rotate again preserving sign
	and #$FFFE	; make even
	sta StartWord

	lda CursorX1	; determin which of	the preshifted
	and #7	; images to use

GetReady	asl a	; use number in a as index into
	asl a	; pointers on zp
	asl a
	tax

	lda CursorPtr,x
	sta CursorRef
	lda CursorPtr+1,x
	sta CursorRef+1

	lda MaskPtr,x
	sta MaskRef
	lda MaskPtr+1,x
	sta MaskRef+1

;-------------------------------------------------
;
; Set up other important vars for looping.
;

	lda SavePtr	; put the pointer to the beginning
	sta SaveRef	; of the save area into SaveRef
	lda SavePtr+1	; (which will be bumped for each 
	sta SaveRef+1	; scan line)


	lda CursorY1
	sta CurrentY


;-------------------------------------------------
;
; The Outer Loop
;
;    For each scan line (CursorY1 thru CursorY2)
;
OuterLoop		; 

	IF midi=1 THEN
	jsl MIDIInputPoll	; Check MIDI input
	ENDIF


	lda CurrentY
	bpl NotAbove
	jmp BumpVertCounters

NotAbove	cmp #ScreenHeight
	bmi NotBelow
	jmp AllDone

NotBelow	cmp CursorY2
	bmi YesDoIt
	jmp AllDone

YesDoIt		; 

;-------------------------------------------------
;
; Now I set up the loop to save the screen,
; or in the mask and eor in the cursor all in
; one loop
;
	lda CurWidth	; init the word count again (1 more
	dec a
	sta WordCount	; than before)

	lda StartWord	; Screen Index starts at start word
	sta ScreenIndex

	lda CurrentY	; ScreenRef is created from current
	asl a	; Y
	tax
	lda >ScreenTable,x
	sta ScreenRef

	stz SaveIndex	; Save index starts	at zero


DrawLoop	ldy ScreenIndex	; get screen index
	bmi OffScrnH	; and see if it points ot real
	cpy #ScreenWidth	; screen
	bpl OffScrnH

	lda (ScreenRef),y	; Save under cursor
	ldy SaveIndex	; put in save buffer
	sta [SaveRef],y

	lda [MaskRef],y	; get word from mask

	tyx	; save this here for quick access


	ldy ScreenIndex	; get this back
	ora (ScreenRef),y	; or with screen
	txy
	eor [CursorRef],y	; eor with rotated cursor
	ldy ScreenIndex
	sta (ScreenRef),y	; store in screen

	inx	; bump this now that is in a register
	inx	; register
	stx SaveIndex
	iny	; bump this now since it is in a
	iny	; register
	sty ScreenIndex

FinishLoop	dec WordCount	; dec the word count and
	bpl DrawLoop	; repeat till done
	bra BumpVertCounters ; now bump vert counters


OffScrnH	inc ScreenIndex	; These were not bumped
	inc ScreenIndex	; in loop since cursor was clipped
	inc SaveIndex
	inc SaveIndex
	bra FinishLoop


BumpVertCounters		; 
	inc CurrentY

	lda CurWidth	; use this to calc width
	asl a
	tax	; save in x
	clc	; add to cursor ref
	adc CursorRef
	sta CursorRef

	txa	; add to mask ref
	clc
	adc MaskRef
	sta MaskRef

	txa	; inc once and add to SaveRef
	inc a
	inc a
	clc
	adc SaveRef
	sta SaveRef


	jmp OuterLoop

AllDone

	IF midi=1 THEN
	jsl MIDIInputPoll	; Check MIDI input
	ENDIF

	plb	; restore stack
	rtl

	ENDP

	title 'UndrawCursor'
****************************************************************
*
* iUndrawCursor
*
*
* 2/1/89	Mensch
*
* Added use of shadowed bank if shadowing is enabled...
*
****************************************************************
iUndrawCursor	PROC EXPORT
	import ScreenTable

	IF midi=1 THEN
	jsl MIDIInputPoll	; Check MIDI input
	ENDIF


	phb	; save the current bank
;
; Find out if we are shadowed...
	lda >$E0C035	; get the shadow register
	and #$0008	; test the shadowing flags!
	bne @1	; if zero, then shadowing is on
	pea $0101	; push on the shadowed bank
	bra @2

@1	pea $E1E1	; push this on stack
@2	plb	; set bank twice to
	plb	; clear stack


	lda CursorY1
	sta CurrentY

	lda SavePtr
	sta SaveRef
	lda SavePtr+1
	sta SaveRef+1

	stz SaveIndex	; start this at zero and do not reset it

OuterLoop		; 


	IF midi=1 THEN
	jsl MIDIInputPoll	; Check MIDI input
	ENDIF


	lda CurrentY
	bpl NotAbove
	jmp BumpVertCounters

NotAbove	cmp #ScreenHeight
	bmi NotBelow
	jmp AllDone

NotBelow	cmp CursorY2
	bmi YesDoIt
	jmp AllDone

YesDoIt		; 


	lda CurWidth	; init the word count
	dec a
	sta WordCount

	lda StartWord	; Screen Index starts at start word
	sta ScreenIndex

	lda CurrentY	; ScreenRef is created from current
	asl a	; Y
	tax
	lda >ScreenTable,x
	sta ScreenRef

	stz SaveIndex	; Save index starts	at zero


DrawLoop	ldy ScreenIndex	; get screen index
	bmi OffScrnH	; and see if it points ot real
	cpy #ScreenWidth	; screen
	bpl OffScrnH

	tyx
	ldy SaveIndex	; get from save buffer
	lda [SaveRef],y
	iny
	iny
	sty SaveIndex
	txy
	sta (ScreenRef),y	; restore under cursor

	iny	; bump this now since it is in a
	iny	; register
	sty ScreenIndex

FinishLoop	dec WordCount	; dec the word count and
	bpl DrawLoop	; repeat till done
	bra BumpVertCounters ; now bump vert counters


OffScrnH	inc ScreenIndex	; These were not bumped
	inc ScreenIndex	; in loop since cursor was clipped
	inc SaveIndex
	inc SaveIndex
	bra FinishLoop


BumpVertCounters		; 
	inc CurrentY

	lda CurWidth	; use this to calc width
	inc a	; of pixel maps
	asl a

	clc
	adc SaveRef
	sta SaveRef


	jmp OuterLoop



AllDone

	IF midi=1 THEN
	jsl MIDIInputPoll	; Check MIDI input
	ENDIF

	plb	; restore stack
	rtl
	ENDP
	
	title 'ScreenTable'
ScreenTable 	PROC EXPORT

	DC.W 0*160+ScreenStart
	DC.W 1*160+ScreenStart
	DC.W 2*160+ScreenStart
	DC.W 3*160+ScreenStart
	DC.W 4*160+ScreenStart
	DC.W 5*160+ScreenStart
	DC.W 6*160+ScreenStart
	DC.W 7*160+ScreenStart
	DC.W 8*160+ScreenStart
	DC.W 9*160+ScreenStart
	DC.W 10*160+ScreenStart
	DC.W 11*160+ScreenStart
	DC.W 12*160+ScreenStart
	DC.W 13*160+ScreenStart
	DC.W 14*160+ScreenStart
	DC.W 15*160+ScreenStart
	DC.W 16*160+ScreenStart
	DC.W 17*160+ScreenStart
	DC.W 18*160+ScreenStart
	DC.W 19*160+ScreenStart
	DC.W 20*160+ScreenStart
	DC.W 21*160+ScreenStart
	DC.W 22*160+ScreenStart
	DC.W 23*160+ScreenStart
	DC.W 24*160+ScreenStart
	DC.W 25*160+ScreenStart
	DC.W 26*160+ScreenStart
	DC.W 27*160+ScreenStart
	DC.W 28*160+ScreenStart
	DC.W 29*160+ScreenStart
	DC.W 30*160+ScreenStart
	DC.W 31*160+ScreenStart
	DC.W 32*160+ScreenStart
	DC.W 33*160+ScreenStart
	DC.W 34*160+ScreenStart
	DC.W 35*160+ScreenStart
	DC.W 36*160+ScreenStart
	DC.W 37*160+ScreenStart
	DC.W 38*160+ScreenStart
	DC.W 39*160+ScreenStart
	DC.W 40*160+ScreenStart
	DC.W 41*160+ScreenStart
	DC.W 42*160+ScreenStart
	DC.W 43*160+ScreenStart
	DC.W 44*160+ScreenStart
	DC.W 45*160+ScreenStart
	DC.W 46*160+ScreenStart
	DC.W 47*160+ScreenStart
	DC.W 48*160+ScreenStart
	DC.W 49*160+ScreenStart
	DC.W 50*160+ScreenStart
	DC.W 51*160+ScreenStart
	DC.W 52*160+ScreenStart
	DC.W 53*160+ScreenStart
	DC.W 54*160+ScreenStart
	DC.W 55*160+ScreenStart
	DC.W 56*160+ScreenStart
	DC.W 57*160+ScreenStart
	DC.W 58*160+ScreenStart
	DC.W 59*160+ScreenStart
	DC.W 60*160+ScreenStart
	DC.W 61*160+ScreenStart
	DC.W 62*160+ScreenStart
	DC.W 63*160+ScreenStart
	DC.W 64*160+ScreenStart
	DC.W 65*160+ScreenStart
	DC.W 66*160+ScreenStart
	DC.W 67*160+ScreenStart
	DC.W 68*160+ScreenStart
	DC.W 69*160+ScreenStart
	DC.W 70*160+ScreenStart
	DC.W 71*160+ScreenStart
	DC.W 72*160+ScreenStart
	DC.W 73*160+ScreenStart
	DC.W 74*160+ScreenStart
	DC.W 75*160+ScreenStart
	DC.W 76*160+ScreenStart
	DC.W 77*160+ScreenStart
	DC.W 78*160+ScreenStart
	DC.W 79*160+ScreenStart
	DC.W 80*160+ScreenStart
	DC.W 81*160+ScreenStart
	DC.W 82*160+ScreenStart
	DC.W 83*160+ScreenStart
	DC.W 84*160+ScreenStart
	DC.W 85*160+ScreenStart
	DC.W 86*160+ScreenStart
	DC.W 87*160+ScreenStart
	DC.W 88*160+ScreenStart
	DC.W 89*160+ScreenStart
	DC.W 90*160+ScreenStart
	DC.W 91*160+ScreenStart
	DC.W 92*160+ScreenStart
	DC.W 93*160+ScreenStart
	DC.W 94*160+ScreenStart
	DC.W 95*160+ScreenStart
	DC.W 96*160+ScreenStart
	DC.W 97*160+ScreenStart
	DC.W 98*160+ScreenStart
	DC.W 99*160+ScreenStart
	DC.W 100*160+ScreenStart
	DC.W 101*160+ScreenStart
	DC.W 102*160+ScreenStart
	DC.W 103*160+ScreenStart
	DC.W 104*160+ScreenStart
	DC.W 105*160+ScreenStart
	DC.W 106*160+ScreenStart
	DC.W 107*160+ScreenStart
	DC.W 108*160+ScreenStart
	DC.W 109*160+ScreenStart
	DC.W 110*160+ScreenStart
	DC.W 111*160+ScreenStart
	DC.W 112*160+ScreenStart
	DC.W 113*160+ScreenStart
	DC.W 114*160+ScreenStart
	DC.W 115*160+ScreenStart
	DC.W 116*160+ScreenStart
	DC.W 117*160+ScreenStart
	DC.W 118*160+ScreenStart
	DC.W 119*160+ScreenStart
	DC.W 120*160+ScreenStart
	DC.W 121*160+ScreenStart
	DC.W 122*160+ScreenStart
	DC.W 123*160+ScreenStart
	DC.W 124*160+ScreenStart
	DC.W 125*160+ScreenStart
	DC.W 126*160+ScreenStart
	DC.W 127*160+ScreenStart
	DC.W 128*160+ScreenStart
	DC.W 129*160+ScreenStart
	DC.W 130*160+ScreenStart
	DC.W 131*160+ScreenStart
	DC.W 132*160+ScreenStart
	DC.W 133*160+ScreenStart
	DC.W 134*160+ScreenStart
	DC.W 135*160+ScreenStart
	DC.W 136*160+ScreenStart
	DC.W 137*160+ScreenStart
	DC.W 138*160+ScreenStart
	DC.W 139*160+ScreenStart
	DC.W 140*160+ScreenStart
	DC.W 141*160+ScreenStart
	DC.W 142*160+ScreenStart
	DC.W 143*160+ScreenStart
	DC.W 144*160+ScreenStart
	DC.W 145*160+ScreenStart
	DC.W 146*160+ScreenStart
	DC.W 147*160+ScreenStart
	DC.W 148*160+ScreenStart
	DC.W 149*160+ScreenStart
	DC.W 150*160+ScreenStart
	DC.W 151*160+ScreenStart
	DC.W 152*160+ScreenStart
	DC.W 153*160+ScreenStart
	DC.W 154*160+ScreenStart
	DC.W 155*160+ScreenStart
	DC.W 156*160+ScreenStart
	DC.W 157*160+ScreenStart
	DC.W 158*160+ScreenStart
	DC.W 159*160+ScreenStart
	DC.W 160*160+ScreenStart
	DC.W 161*160+ScreenStart
	DC.W 162*160+ScreenStart
	DC.W 163*160+ScreenStart
	DC.W 164*160+ScreenStart
	DC.W 165*160+ScreenStart
	DC.W 166*160+ScreenStart
	DC.W 167*160+ScreenStart
	DC.W 168*160+ScreenStart
	DC.W 169*160+ScreenStart
	DC.W 170*160+ScreenStart
	DC.W 171*160+ScreenStart
	DC.W 172*160+ScreenStart
	DC.W 173*160+ScreenStart
	DC.W 174*160+ScreenStart
	DC.W 175*160+ScreenStart
	DC.W 176*160+ScreenStart
	DC.W 177*160+ScreenStart
	DC.W 178*160+ScreenStart
	DC.W 179*160+ScreenStart
	DC.W 180*160+ScreenStart
	DC.W 181*160+ScreenStart  
	DC.W 182*160+ScreenStart
	DC.W 183*160+ScreenStart
	DC.W 184*160+ScreenStart
	DC.W 185*160+ScreenStart
	DC.W 186*160+ScreenStart
	DC.W 187*160+ScreenStart
	DC.W 188*160+ScreenStart
	DC.W 189*160+ScreenStart
	DC.W 190*160+ScreenStart
	DC.W 191*160+ScreenStart
	DC.W 192*160+ScreenStart
	DC.W 193*160+ScreenStart
	DC.W 194*160+ScreenStart
	DC.W 195*160+ScreenStart
	DC.W 196*160+ScreenStart
	DC.W 197*160+ScreenStart
	DC.W 198*160+ScreenStart
	DC.W 199*160+ScreenStart
	ENDP
	
	

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/QD/env.asm b/IIGS.601.SRC/GSToolbox/QD/env.asm
new file mode 100644
index 0000000..bf5e043
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/QD/env.asm
@@ -0,0 +1 @@
+	title 'QD ENV               GS ROM 3.0'
****************************************************************
*			   *
*              ENV			   *
*			   *
****************************************************************


****************************************************************
*			   *
*	Copyright (C) 1985-1989	   *
*	All Rights Reserved		   *
*	Apple Computer, Inc.	   *
*			   *
****************************************************************
	blanks off
	string asis


***	include 'all.macros'	;removed 17-Sep-90 DAL
	include 'm16.util2'
	include 'm16.quickdraw'

	include ':QDEquates:qd.data.asm'
	INCLUDE ':QDEquates:core.globals1'
	INCLUDE ':QDEquates:core.globals2'
	INCLUDE ':QDEquates:region.equs'
	INCLUDE ':QDEquates:rect.equs'


;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

	IMPORT BusyEC0
	IMPORT BusyEC2
	IMPORT BusyEC4
	IMPORT BusyEC6
	IMPORT BusyErr4
	IMPORT ConTable320
	IMPORT ConTable640
	IMPORT EndCall4
	IMPORT EndCall6
	IMPORT ErrOut4
	IMPORT ErrOut6
	IMPORT HideCursor
	IMPORT Port320
	IMPORT Port640
	IMPORT QDStart
	IMPORT ShowCursor
	IMPORT StandardPort
	IMPORT StdPnState
	IMPORT Table320
	IMPORT Table640
	IMPORT WideOpen
	IMPORT oEndCall0
	IMPORT oEndCall2
	IMPORT oEndCall4
	IMPORT oEndCall6
	IMPORT oErrOut2
	IMPORT oErrOut4
	IMPORT oErrOut6

;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

	ENTRY ExpandM320
	ENTRY ExpandM640
	ENTRY ExtendColorWord
	ENTRY InitThePort
	ENTRY MakeSolid
	ENTRY UserMask2ZP
	ENTRY ZP2Back
	ENTRY ZP2Mask
	ENTRY ZP2Pen
	ENTRY ZP2PortLoc
	ENTRY ZP2UserMask
	ENTRY ZP2UserPat


****************************************************************
*
* ENV.CALLS
*
* This file contains routines to manipulate the hardware
* and set some global environment variables that are not part
* of the GrafPort.
*
*
*
* GrafOn
* GrafOff
* StandardSCB
* InitColorTable
* SetColorTable
* GetColorTable		; modified 2 Apr 86	(now works out
*		; of bank 0)
* SetColorEntry
* GetColorEntry
* SetSCB
* GetSCB
* SetAllSCBs
* ClearScreen
* GetMasterSCB
* SetMasterSCB
*
****************************************************************
*
* The following macro should be used by any routine that changes the zeropage pattern
* holder, the penpat or the back pat...

	MACRO
	DirtyPatterns
	ldx #512	; switch to qdDPage2
	lda <DirtyDPFlags,x	; get the proper flags
	and #AllPatsBad	; turn off both patterns
	sta <DirtyDPFlags,x
	MEND
	

	MACRO
	DirtyPort
	ldx #512	; switch to qdDPage2
	lda <DirtyDPFlags,x	; get the proper flags
	and #PortBad	; turn off both patterns
	sta <DirtyDPFlags,x
	MEND
	
	
	MACRO
	DirtyMask
	ldx #512	; switch to qdDPage2
	lda <DirtyDPFlags,x	; get the proper flags
	and #PenMaskBad	; turn off both patterns
	sta <DirtyDPFlags,x
	MEND
	
	MACRO
	DirtyDrawState
	ldx #512	; switch to qdDPage2
	lda <DirtyDPFlags,x	; get the proper flags
	and #DrawStateBad	; turn off both patterns
	sta <DirtyDPFlags,x
	MEND

****************************************************************
*
* GrafOn
*
* Turns on the SuperHiRes graphics and linearizes the
* memory.
*
****************************************************************
	EXPORT GrafOn
GrafOn	PROC
	sep #%00110000
	longa off
	longi off

	lda #%10000000
	ora >$E0C029
	sta >$E0C029

	rep #%00110000
	longa on
	longi on

	jmp oEndCall0


	ENDP

****************************************************************
*
* GrafOff
*
* Turns off the SuperHiRes graphics and	de-linearizes the
* memory.
*
****************************************************************
	EXPORT GrafOff
GrafOff	PROC
	sep #%00110000
	longa off
	longi off

	lda #%01111111
	and >$E0C029
	sta >$E0C029

	rep #%00110000
	longa on
	longi on

	jmp oEndCall0


	ENDP




****************************************************************
*
* GetStandardSCB
*
* Returns the Standard SCB on the stack.
*
****************************************************************
	EXPORT GetStandardSCB
GetStandardSCB	PROC

	lda #StandardSCB
	sta 7,s

	jmp oEndCall0

	ENDP


****************************************************************
*
* InitColorTable  (TablePtr : Ptr)
*
* Fills the specified color table with the standard
* color table.
*
****************************************************************
	EXPORT InitColorTable
InitColorTable	PROC

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
TableRef	equ RTL2+3

	jsr QDStart

	lda TableRef,s	; move this pointer	to zp
	sta Temp
	lda TableRef+1,s
	sta Temp+1

	bit MasterSCB-1
	bmi Do640


	ldy #ColorTableSize-2
Loop1	tyx
	lda >Table320,x
	sta [Temp],y
	dey
	dey
	bpl loop1

	bra AllDone

Do640		; 

	ldy #ColorTableSize-2
Loop2	tyx
	lda >Table640,x
	sta [Temp],y
	dey
	dey
	bpl loop2

AllDone	jmp BusyEC4

	ENDP



****************************************************************
*
* SetColorTable (TableNumber : integer;	TablePtr : Ptr);
*
* Parameter block is set up as follows:
*        TableNumber : word
*        TableRef	 : adr
*
*
* Modification History
*
*     24 April 86	   Error checking on table number added
*
****************************************************************
	EXPORT SetColorTable
SetColorTable	PROC

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
TableRef	equ RTL2+3
TableNum	equ TableRef+4

	phd

	tsc	; get stack pointer
	tcd	; make it zp


* now compute address of table
	lda #ColorTableSize-2 ; start with this	in a-reg
	ldx TableNum	; get table num
	beq Done	; if zero done
	cpx #16
	bcs error

Loop	clc	; add table size table num times
	adc #ColorTableSize
	dex
	bne Loop

Done	tax

	ldy #ColorTableSize-2
MoveLoop	lda [TableRef],y
	sta >FirstTable,x
	dex
	dex
	dey
	dey
	bpl MoveLoop

	jmp EndCall6

error	ldx #BadTableNum
	jmp ErrOut6

	ENDP

****************************************************************
*
* GetColorTable   (TableNum : integer; TablePtr : Ptr);
*
* Modification History
*
*   2 Apr 86    SEG	   TableNum equate was off by 2.
*  24 Apr 86    SEG	   Error check for table number added.
*
****************************************************************
	EXPORT GetColorTable
GetColorTable	PROC

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
TableRef	equ RTL2+3
TableNum	equ TableRef+4

	phd

	tsc	; get stack pointer
	tcd	; make it zp

* now compute address of table

	lda #ColorTableSize-2
	ldx TableNum
	beq done
	cpx #16
	bcs error

Loop	clc
	adc #ColorTableSize
	dex
	bne Loop

Done	tax

	ldy #ColorTableSize-2
MoveLoop	lda >FirstTable,x
	sta [TableRef],y
	dex
	dex
	dey
	dey
	bpl MoveLoop

	jmp EndCall6

error	ldx #BadTableNum
	jmp ErrOut6

	ENDP

****************************************************************
*
* SetColorEntry (TableNum, ColorNum, NewColor : integer);
*
* Modification History
*
*     24 April 86	   Error checking on TableNum and
*	   ColorNum added
*
****************************************************************
	EXPORT SetColorEntry
SetColorEntry	PROC

RTL1	equ 1
RTL2	equ RTL1+3
NewColor	equ RTL2+3
ColorNum	equ NewColor+2
TableNum	equ ColorNum+2


	lda TableNum,s	; start by getting adr of table
	cmp #16
	bcs error1

	tay
	beq done

	lda #0
	clc
Loop	adc #ColorTableSize
	dey
	bne Loop

Done	tax
	lda ColorNum,s
	cmp #16
	bcs error2
	txa
	adc ColorNum,s	; add the color number twice for
	adc ColorNum,s	; additional offset
	tax

	lda NewColor,s
	sta >FirstTable,x

	jmp oEndCall6

error1	ldx #BadTableNum
	jmp oErrOut6
error2	ldx #BadColorNum
	jmp oErrOut6

	ENDP

****************************************************************
*
* GetColorEntry   (TableNum, ColorNum :	integer) : integer;
*
* Modification History
*
*     24 April 86	   Error checking on TableNum and
*	   ColorNum added
*
****************************************************************
	EXPORT GetColorEntry
GetColorEntry	PROC

RTL1	equ 1
RTL2	equ RTL1+3
ColorNum	equ RTL2+3
TableNum	equ ColorNum+2
ColorResult	equ TableNum+2

	lda TableNum,s	; start by getting adr of table
	cmp #16
	bcs error1
	tay
	beq done

	lda #0
	clc
Loop	adc #ColorTableSize
	dey
	bne Loop

Done	tax
	lda ColorNum,s
	cmp #16
	bcs error2
	txa
	adc ColorNum,s	; add the color number twice for
	adc ColorNum,s	; additional offset

	tax

	lda >FirstTable,x
	sta ColorResult,s

	jmp oEndCall4

error1	ldx #BadTableNum
	jmp oErrOut4
error2	ldx #BadColorNum
	jmp oErrOut4

	ENDP




****************************************************************
*
* SetSCB   (ScanLine, Value : integer);
*
* Modification History
*
*     24 April 86	   Error checking on ScanLine number
*
****************************************************************
	EXPORT SetSCB
SetSCB	PROC

RTL1	equ 1
RTL2	equ RTL1+3
NewValue	equ RTL2+3
ScanLine	equ NewValue+2

	lda ScanLine,s
	cmp #200
	bcs error


	lda #0	; clear the a-reg so tax has high of 0

	sep #%00100000	; 8 bit a-reg
	longa off

	lda ScanLine,s
	tax
	lda NewValue,s

	sta >FirstSCB,x

	rep #%00100000	; back to 16 bits
	longa on

	jmp oEndCall4

error	ldx #BadScanLine
	jmp oErrOut4

	ENDP

****************************************************************
*
* GetSCB  (ScanLine	: integer) : integer;
*
* Modification History
*
*     24 April 86	   Error checking on ScanLine number
*
****************************************************************
	EXPORT GetSCB
GetSCB	PROC

RTL1	equ 1
RTL2	equ RTL1+3
ScanLine	equ RTL2+3
ResultValue	equ ScanLine+2

	lda ScanLine,s
	cmp #200
	bcs error

	lda #0	; clear a reg

	sep #%00100000	; 8 bit a-reg
	longa off


	lda ScanLine,s
	tax
	lda >FirstSCB,x
	sta ResultValue,s

	rep #%00100000	; back to 16 bits
	longa on

	jmp oEndCall2

error	ldx #BadScanLine
	jmp oErrOut2

	ENDP

****************************************************************
*
* SetAllSCBs   (NewValue : integer);
*
****************************************************************

	EXPORT SetAllSCBs
SetAllSCBs	PROC

RTL1	equ 1
RTL2	equ RTL1+3
NewValue	equ RTL2+3


	sep #%00100000	; 8 bit a-reg
	longa off

	lda NewValue,s

	ldx #NumScanLines
Loop	sta >FirstSCB-1,x
	dex
	bne Loop

	rep #%00110000	; back to 16 bits
	longa on

	jmp oEndCall2

	ENDP



****************************************************************
*
* ClearScreen  (Color : integer);
*
* Clears the super hi-res screen, setting all words to the
* value passed.
*
*
* Modification History
*
*  12 Feb 89    DDG	   This routine now checks for shadowing
*
*
*  14 Feb 89    DDG	   Fixed a bug where I was reading the wrong
*	   word on the stack for the color.
*
****************************************************************
	EXPORT ClearScreen
ClearScreen	PROC

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
Color	equ RTL2+3

	jsr QDStart
	jsl HideCursor

	phb	; save bank register

	lda >$E0C035	; get the shadow register
	and #$0008	; test the shadowing flags!
	bne @1	; if zero, then shadowing is on
	pea $0101	; push on the shadowed bank
	bra @2
@1	pea $E1E1	; push this on stack
@2	plb	; set bank twice to
	plb	; clear stack

	lda Color+1,s
	ldx #160*200-2
Loop	sta |ScreenBase,x
	dex
	dex
	bpl Loop

	plb	; get back bank address

	tdc	; fake out tool locator call
	jsl ShowCursor

	jmp BusyEC2

	ENDP


****************************************************************
*
* SetMasterSCB  (TheSCB : integer)
*
* Sets the MasterSCB to the value passed
*
****************************************************************
	EXPORT SetMasterSCB
SetMasterSCB	PROC

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
TheValue	equ RTL2+3

	jsr QDStart

	lda TheValue,s
	sta MasterSCB
	jmp BusyEC2


	ENDP

****************************************************************
*
* GetMasterSCB    :	integer
*
* Returns the master SCB.
*
****************************************************************
	EXPORT GetMasterSCB
GetMasterSCB	PROC

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
TheValue	equ RTL2+3

	jsr QDStart

	lda MasterSCB	; use value on zero	page
	sta TheValue,s

	jmp BusyEC0

	ENDP

	PRINT OFF
;                COPY ENV/PORT.STUFF
****************************************************************
* Port.Stuff
*
* Contains
*
*     WHOLE.PORT
*     DEST.STUFF
*     PEN.STUFF
*     TEXT.STUFF
*     OTHER.STUFF
*
*****************************************************************



*****************************************************************
*
* WholePortPart
*
*        OpenPort	    mod 2 May 86
*        InitPort	    mod 2 May 86
*        ClosePort
*        GetPort
*        SetPort	    mod 2 May 86
*
* Modification History
*
* 7 Apr 86
*
*    Calls now return errors of other tool calls correctly.
*
* 2 May 86
*
*    OpenPort, InitPort and SetPort do not size the text buffer
*    for user.  This is nolong automatic and can only change
*    after call by user.
*
* 25 Aug 86
*
*    GetPort now always returns 4 good bytes of info instead
*    of just 3
*
****************************************************************


****************************************************************
*
* DEST.STUFF
*
* The routines in this file manipulate the destination info
* in the GrafPort including the LocInfo, the PortRect, the 
* ClipRgn and the VisRgn.
*
*        SetPortLoc
*        GetPortLoc		new (2/6/86)
*        SetPortRect	new (2/6/86)
*		mod (3/11/86)
*        GetPortRect	new (2/6/86)
*		mod (3/11/86)
*        SetPortSize
*        MovePortTo
*        SetOrigin		mod (3/13/86)
*		mod (3/26/86)
*        SetClip
*        GetClip
*        SetClipToRect
*
*
* Modification History Notes:
*
* April 7, 1986
*
*    All calls now jump through the right end call routine if
*    they started by calling QDCheckActive.
*
*    Calls that make other tool calls (setorigin, setclip, etc.)
*    now return errors to these calls when they occur.
*
****************************************************************

****************************************************************
*
* PEN.STUFF
*
* This file contains the routines which	manipulate the pen
* information in the grafport
*
*        HidePen
*        ShowPen		changed 31 mar 86
*        GetPen
*        GetPenState
*        SetPenState
*        PenMode
*        GetPenMode		new (2/6/86)
*        PenPat
*        GetPenPat		new (2/6/86)
*        SolidPenPat	new (2/6/86)
*        BackPat
*        GetBackPat		new (2/6/86)
*		mod (7 Apr 86)
*        SolidBackPat	new (2/6/86)
*        SolidPattern	new (2/6/86)
*        MakeSolid		new (2/6/86)
*		modified (3/14/86)
*        ExtendColorWord	new (3/14/86)
*        SetDrawMask	new (2/28/86)
*        GetDrawMask	new (2/28/86)
*        PenSize
*        GetPenSize		new (2/6/86)
*        PenNormal
*        MoveTo
*        Move
*
* Modification History Notes:
*
* April 7, 1986
*
*    GetBackPat was	not checking for QD	to be active nor
*    returning through BusyEC4.
*
****************************************************************

****************************************************************
*
* TEXT.STUFF
*
* This file contains the routines which	manipulate the text
* information in the GrafPort.
*
*        SetFont		mod (7 Apr 86)
*        GetFont		new (2/6/86)
*        SetFontID		new (5/2/86)
*        GetFontID		new (5/2/86)
*        SetFontFlags	new (3/1/86)
*        GetFontFlags	new (3/1/86)
*        SetTextSize	new (5/2/86),mod (5/6/86)
*        GetTextSize	new (5/2/86),mod (5/6/86)
*        TextFace
*        GetTextFace	new (2/6/86)
*        TextMode
*        GetTextMode	new (2/6/86)
*        SpaceExtra		mod (4/25/86)
*        GetSpaceExtra	new (2/6/86), mod (4/25/86)
*        SetCharExtra	new (5/2/86)
*        GetCharExtra	new (5/2/86)
*        SetForeColor
*        GetForeColor
*        SetBackColor
*        GetBackColor
*
* Modification History Notes:
*
* April 7, 1986
*
*   SetFont now returns the same error as SizeTextBuffer.
*
* May 2, 1986
*
*     Added calls Get/Set CharExtra, Get/Set TextSize, Get/Set
*     FontID.  Modified the SetFont call to zero the new FontID
*     field in the graf port.  This allows FontID to be used
*     correctly by a FontManager.
*
*
****************************************************************



****************************************************************
*
* OTHER.STUFF
*
* This file contains the routines which	the user field in the
* grafport.
*
*        SetPicSave		new (2/7/86)
*        GetPicSave		new (2/7/86)
*        SetRgnSave		new (2/7/86)
*        GetRgnSave		new (2/7/86)
*        SetPolySave	new (2/7/86)
*        GetPolySave	new (2/7/86)
*        SetGrafProcs	new (2/7/86)
*        GetGrafProcs	new (2/7/86)
*        SetUserField	new (2/7/86)
*        GetUserField	new (2/7/86)
*        SetSysField	new (2/7/86)
*        GetSysField	new (2/7/86)
*        SetArcRot		moved from round 21	aug 86
*        GetArcRot		moved from round 21	aug 86
*
****************************************************************



****************************************************************
*
* OpenPort
*
* Allocates a clip rgn and vis rgn then	calls init port.
*
* Modification History
*
* 2 May 86
*
*    Does not size text buffer for user.
*
****************************************************************
	EXPORT OpenPort
OpenPort	PROC

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
PortPtr	equ RTL2+3

	jsr QDStart

	lda PortPtr,s
	sta PortRef
	lda PortPtr+2,s
	sta PortRef+2

	pea 0	; make room for result
	pea 0
	_NewRgn
	bcs error

	pea 0
	pea 0
	_NewRgn
	bcs error


	ldy #o_cliprgn
	pla
	sta [PortRef],y
	iny
	iny
	pla
	sta [PortRef],y

	ldy #o_visrgn
	pla
	sta [PortRef],y
	iny
	iny
	pla
	sta [PortRef],y

	bra InitThePort

error	tax
	jmp BusyErr4

	ENDP


****************************************************************
*
* InitPort   (PortPtr: Ptr);
*
* Copies the standard Port to the the user's port and makes
* that the current port.
*
* Modification History
*
* 2 May 86
*
*    Does not size text buffer for user.
*
* 3/7/89	Mensch
* Now this routine dirties the pattern flags...
****************************************************************
	EXPORT InitPort
InitPort	PROC

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
PortPtr	equ RTL2+3

	jsr QDStart

	lda PortPtr,s
	sta PortRef
	lda PortPtr+2,s
	sta PortRef+2

	EXPORT InitThePort
InitThePort		;       
	DirtyPort
	
	ldy #PortSize-2
Loop	tyx
	lda >StandardPort,x
	sta [PortRef],y
	dey
	dey
	cpy #o_BkPat
	bpl Loop

	bit MasterSCB-1
	bpl Do320

	ldy #LocSize+8-2
Loop2	tyx
	lda >Port640,x
	sta [PortRef],y
	dey
	dey
	bpl Loop2
	bra FinishIt

Do320	ldy #LocSize+8-2
Loop3	tyx
	lda >Port320,x
	sta [PortRef],y
	dey
	dey
	bpl Loop3


FinishIt		;
;
; EXP place code here that will modify the grafport to point to shadowed RAM if that was
; enabled!
;	brk 00
	ldy #3	; get the offset to the proper place
	lda >$E0C035	; get the shadow register
	and #$0008	; test the shadowing flags!
	bne ShadowOff	; if zero, then shadowing is on
	lda #$0120	; 
	sta [portRef],y	; and change the port reference
ShadowOff
;
; EXP End

	PushLong #WideOpen	; set the clip region to wide open

	ldy #o_cliprgn+2
	lda [PortRef],y
	pha
	dey
	dey
	lda [PortRef],y
	pha
	_CopyRgn
	bcs error

	ldy #o_VisRgn+2	; set the vis region to bounds rect
	lda [PortRef],y
	pha
	dey
	dey
	lda [PortRef],y
	pha

	lda PortRef
	clc
	adc #o_BoundsRect
	pei PortRef+2
	pha
	_RectRgn
	bcs error

	ldx #256	; put the current system font into
	ldy #o_Font	; the port
	lda SysFont,x
	sta [PortRef],y
	iny
	iny
	lda SysFont+2,x
	sta [PortRef],y

	jmp BusyEC4

error	tax
	jmp BusyErr4


	ENDP



****************************************************************
*
* ClosePort (Port)
*
* Deallocates the clip and vis regions in port.
*
****************************************************************
	EXPORT ClosePort
ClosePort	PROC

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
PortPtr	equ RTL2+3

	phd
	tsc
	tcd

	ldy #o_ClipRgn+2
	jsr DisposeIt
	bcs error
	ldy #o_VisRgn+2
	jsr DisposeIt
	bcs error
	jmp EndCall4

error	tax
	jmp ErrOut4

DisposeIt		; 
	lda [PortPtr],y
	pha
	dey
	dey
	lda [PortPtr],y
	pha
	_DisposeRgn
	rts

	ENDP


****************************************************************
*
* SetPort (PortPtr : ptr);
*
* Modification History
*
* 2 May 86
*
*    Does not size text buffer for user	and cannot return
*    error.
*
* 3/7/89	Mensch
* This routine now dirties the patterns
****************************************************************
	EXPORT SetPort
SetPort	PROC

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
PortPtr	equ RTL2+3

	jsr QDStart

	DirtyPort
	
; DEBUG HERE
; STore the callers return address  and the port pointer to the ROM
; so the logic analyzer can pick it up...
;	lda rtl2,s
;	sta >$FE1230
;	lda rtl2+2,s
;	and #$00FF
;	sta >$FE1232
	
	lda PortPtr,s
	sta PortRef
	lda PortPtr+1,s
	sta PortRef+1
	
	jmp BusyEC4

	ENDP



****************************************************************
*
* GetPort    : Ptr
*
* Change History
*
* August 25, 1986	   SEG
*
*    This now makes	sure highest byte of pointer is zero.
*
****************************************************************
	EXPORT GetPort
GetPort	PROC

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
PortPtr	equ RTL2+3

	jsr QDStart

	lda PortRef	; first put pointer	to port
	sta PortPtr,s	; in user's variable
	lda PortRef+2
	and #$00FF	; mask off system window flag
	sta PortPtr+2,s

	jmp BusyEC0

	ENDP





****************************************************************
*
* SetPortLoc   (LocPtr : Ptr);
*
* 3/7/89	Mensch
* This routine changes bounds rects so.. dirty the patterns
****************************************************************
	EXPORT SetPortLoc
SetPortLoc	PROC

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
LocPtr	equ RTL2+3

	jsr QDStart

	DirtyPort
	
	lda LocPtr,s
	sta Temp
	lda LocPtr+1,s
	sta Temp+1


	ldy #LocSize-2
Loop	lda [Temp],y
	sta [PortRef],y
	dey
	dey
	bpl Loop

	jmp BusyEC4

	ENDP

****************************************************************
*
* GetPortLoc   (LocPtr : Ptr);
*
****************************************************************
	EXPORT GetPortLoc
GetPortLoc	PROC

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
LocPtr	equ RTL2+3

	jsr QDStart

	lda LocPtr,s
	sta Temp
	lda LocPtr+1,s
	sta Temp+1

;--------------------------------------------
;
; This is extra simple because the loc info
; is at the beginning of the port.
;
	ldy #LocSize-2
Loop	lda [PortRef],y
	sta [Temp],y
	dey
	dey
	bpl Loop

	jmp BusyEC4

	ENDP

****************************************************************
*
* SetPortRect   (RectPtr : long);
*
* Sets the port rectangle to the rect that is passed.
*
* Fixed Bug 11-Mar-86 SEG
*
* 3/7/89	Mensch
* This thing might change the way we shift... so Bad patterns
****************************************************************
	EXPORT SetPortRect
SetPortRect	PROC

OrigBank	equ 1
OrigDirect	equ OrigBank+1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
RectPtr	equ RTL2+3

	jsr QDStart
	DirtyPort
	
	phb	; save bank

	lda RectPtr,s	; get pos in bank into x
	tax
	lda RectPtr+1,s	; put high 2 bytes on stack
	pha
	plb	; pull of middle byte
	plb	; now pull off high	byte so
*		; x is offset in bank to rect


	ldy #o_portrect
Loop	lda |0,x
	sta [PortRef],y
	inx
	inx
	iny
	iny
	cpy #o_PortRect+8
	bcc Loop

	plb	; restore bank

	jmp BusyEC4


	ENDP

****************************************************************
*
* GetPortRect   (RectPtr : long);
*
* Copies the port rectangle to the rect	that is passed.
*
* Fixed Bug 11-Mar-86 SEG
*
****************************************************************
	EXPORT GetPortRect
GetPortRect	PROC

OrigBank	equ 1
OrigDirect	equ OrigBank+1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
RectPtr	equ RTL2+3

	jsr QDStart

	phb	; save bank

	lda RectPtr,s	; get pos in bank into x
	tax
	lda RectPtr+1,s	; put high 2 bytes on stack
	pha
	plb	; pull of middle byte
	plb	; now pull off high	byte so
*		; x is offset in bank to rect


	ldy #o_portrect
Loop	lda [PortRef],y
	sta |0,x
	inx
	inx
	iny
	iny
	cpy #o_PortRect+8
	bcc Loop

	plb	; restore bank

	jmp BusyEC4


	ENDP




****************************************************************
*
* SetPortSize   (PortWidth, PortHeight : integer);
*
****************************************************************
	EXPORT SetPortSize
SetPortSize	PROC

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
PortHeight	equ RTL2+3
PortWidth	equ PortHeight+2

	jsr QDStart
	DirtyPort
	
	jsl PortLoc2ZP

	lda PortHeight,s
	clc
	adc PortRect
	sta PortRect+4

	lda PortWidth,s
	clc
	adc PortRect+2
	sta PortRect+6

	jsl ZP2PortLoc

	jmp BusyEC4

	ENDP


****************************************
*
* MovePortTo  (H,V : integer);
*
* 3/7/89	Mensch
* Canchange the bnounds rect so... dirty patterns
****************************************
	EXPORT MovePortTo
MovePortTo	PROC

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
PortY	equ RTL2+3
PortX	equ PortY+2

	jsr QDStart
	DirtyPort
	
	jsl PortLoc2ZP

	lda PortRect+4
	sec
	sbc PortRect
	clc
	adc PortY,s
	sta PortRect+4
	lda PortY,s
	sta PortRect

	lda PortRect+6
	sec
	sbc PortRect+2
	clc
	adc PortX,s
	sta PortRect+6
	lda PortX,s
	sta PortRect+2

	jsl ZP2PortLoc

	jmp BusyEC4

	ENDP


****************************************************************
*
* SetOrigin    (H,V	: integer);
*
* Offsets the PortRect and BoundsRect so that the port rect	has
* value passed and their positions remain the same relative	to
* each other.
*
* Modified 13-Mar-86 by SEG
*
*    I was reading the inputs backwards	so I fixed the equates.
*
* Modified 26 Mar 86 by SEG
*
*    Offset region is available so I offset the VisRgn.
*
* 3/7/89	Mensch
* Patterns are dirty/ bounds rect changed...
****************************************************************
	EXPORT SetOrigin
SetOrigin	PROC

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
PortY	equ RTL2+3
PortX	equ PortY+2

	jsr QDStart
	DirtyPort
	
	jsl PortLoc2ZP

	lda PortY,s	; Start by caculating DeltaY
	sec
	sbc PortRect
	tay	; Now offset rects by DeltaY

	clc	; This same code in	a loop
	adc BoundsRect	; is as many instructions
	sta BoundsRect	; and runs slower so

	tya	; I do it in line.
	clc
	adc BoundsRect+4
	sta BoundsRect+4

	tya
	clc
	adc PortRect
	sta PortRect

	tya
	clc
	adc PortRect+4
	sta PortRect+4

	tyx	; save deltay in x

	lda PortX,s	; Now Calculate DeltaX
	sec
	sbc PortRect+2
	tay	; offset rects by DeltaX

	clc	; This same code in	a loop
	adc BoundsRect+2	; is as many instructions
	sta BoundsRect+2	; and runs slower so

	tya	; I do it in line.
	clc
	adc BoundsRect+6
	sta BoundsRect+6

	tya
	clc
	adc PortRect+2
	sta PortRect+2

	tya
	clc
	adc PortRect+6
	sta PortRect+6

	pea 0	; put long word on stack
	pea 0
	phy	; push delta x
	phx	; push delta y

	ldy #o_VisRgn	; replace long word	on stack with
	lda [PortRef],y	; handle to vis rgn
	sta 5,s
	iny
	iny
	lda [PortRef],y
	sta 7,s
	_OffsetRgn	; and offset region
	bcs error

	jsl ZP2PortLoc

	jmp BusyEC4

error	tax
	jmp BusyErr4


	ENDP



****************************************************************
*
* SetClip      (RgnHandle : handle)
*
****************************************************************
	EXPORT SetClip
SetClip	PROC
OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
RgnHandle	equ RTL2+3

	jsr QDStart

	lda RgnHandle,s
	tax
	lda RgnHandle+2,s
	pha
	phx

	ldy #o_ClipRgn+2
	lda [PortRef],y
	pha
	dey
	dey
	lda [PortRef],y
	pha

	_CopyRgn

	tax
	jmp BusyErr4


	ENDP


****************************************************************
*
* GetClip
*
****************************************************************
	EXPORT GetClip
GetClip	PROC
OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
RgnHandle	equ RTL2+3

	jsr QDStart

	ldy #o_ClipRgn+2
	lda [PortRef],y
	pha
	dey
	dey
	lda [PortRef],y
	pha

	lda RgnHandle+4,s	; plus 4 because of	4 new bytes on stack
	tax
	lda RgnHandle+2+4,s
	pha
	phx

	_CopyRgn

	tax
	jmp BusyErr4




	ENDP



****************************************************************
*
* SetClipToRect
*
****************************************************************
	EXPORT SetClipToRect
SetClipToRect	PROC
OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
RectPtr	equ RTL2+3

	jsr QDStart

	ldy #o_ClipRgn+2
	lda [PortRef],y
	pha
	dey
	dey
	lda [PortRef],y
	pha

	lda RectPtr+4,s	; +4 because of 4 new bytes on stack
	tax
	lda RectPtr+2+4,s
	pha
	phx

	_RectRgn

	tax
	jmp BusyErr4


	ENDP



****************************************************************
*
* SetVisRgn    (RgnHandle : handle)
*
****************************************************************
	EXPORT SetVisRgn
SetVisRgn	PROC
OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
RgnHandle	equ RTL2+3

	jsr QDStart

	lda RgnHandle,s
	tax
	lda RgnHandle+2,s
	pha
	phx

	ldy #o_VisRgn+2
	lda [PortRef],y
	pha
	dey
	dey
	lda [PortRef],y
	pha

	_CopyRgn

	tax
	jmp BusyErr4


	ENDP


****************************************************************
*
* GetVisRgn
*
****************************************************************
	EXPORT GetVisRgn
GetVisRgn	PROC
OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
RgnHandle	equ RTL2+3

	jsr QDStart

	ldy #o_VisRgn+2
	lda [PortRef],y
	pha
	dey
	dey
	lda [PortRef],y
	pha

	lda RgnHandle+4,s	; plus 4 because of	4 new bytes on stack
	tax
	lda RgnHandle+2+4,s
	pha
	phx

	_CopyRgn

	tax
	jmp BusyErr4




	ENDP







****************************************************************
*
* HidePen
*
****************************************************************
	EXPORT HidePen
HidePen	PROC

	jsr QDStart

	ldy #O_PnVis
	lda [PortRef],y
	dec a
	sta [PortRef],y
	bpl @HPDone	; if this flag is non-negative, pen visible
	DirtyDrawState	; else mark the drawstate as dirty...
@HPDone

	jmp BusyEC0

	ENDP


****************************************************************
*
* ShowPen
*
****************************************************************
	EXPORT ShowPen
ShowPen	PROC

	jsr QDStart

	ldy #O_PnVis
	lda [PortRef],y

	inc a
	sta [PortRef],y
	
	jmp BusyEC0

	ENDP


****************************************************************
*
* GetPen     PtPtr : Ptr
*
****************************************************************
	EXPORT GetPen
GetPen	PROC

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
PtPtr	equ RTL2+3

	jsr QDStart

	lda PtPtr,s
	sta Temp
	lda PtPtr+1,s
	sta Temp+1

	ldy #O_PnLoc
	lda [PortRef],y
	sta [Temp]

	iny
	iny
	lda [PortRef],y
	ldy #2
	sta [Temp],y

	jmp BusyEC4

	ENDP


****************************************************************
*
* GetPenState  (PenState : Ptr);
*
****************************************************************
	EXPORT GetPenState
GetPenState	PROC

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
PenStatePtr	equ RTL2+3

	jsr QDStart

	lda PenStatePtr,s
	tax
	lda PenStatePtr+1,s
	phb	; save the bank register

	pha	; put this on the stack
	plb	; set b twice
	plb	; second value is valid

	ldy #O_PnLoc
Loop	lda [PortRef],y
	sta |0,x
	inx
	inx
	iny
	iny
	cpy #O_PnLoc+PnStateSize
	bcc Loop


	plb	; restore bank

	jmp BusyEC4

	ENDP

****************************************************************
*
* SetPenState  (PenStatePtr : ptr)
*
****************************************************************
	EXPORT SetPenState
SetPenState	PROC

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
PenStatePtr	equ RTL2+3

	jsr QDStart
	DirtyPort
	
	lda PenStatePtr,s
	tax
	lda PenStatePtr+1,s
	phb	; save the bank register

	pha	; put this on the stack
	plb	; set b twice
	plb	; second value is valid

	ldy #O_PnLoc
Loop	lda |0,x
	sta [PortRef],y
	inx
	inx
	iny
	iny
	cpy #O_PnLoc+PnStateSize
	bcc Loop


	plb	; restore bank

	jmp BusyEC4

	ENDP




****************************************************************
*
* PenPat    (PatPtr	: Ptr);
*
****************************************************************
	EXPORT PenPat
PenPat	PROC

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
PatPtr	equ RTL2+3

	jsr QDStart
	
	jsl UserPat2ZP
	jsl ZP2Pen

	jmp BusyEC4	; all done.

	ENDP

****************************************************************
*
* GetPenPat    (PatPtr : Ptr);
*
****************************************************************
	EXPORT GetPenPat
GetPenPat	PROC

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
PatPtr	equ RTL2+3

	jsr QDStart

	jsl Pen2ZP
	jsl ZP2UserPat

	jmp BusyEC4	; all done.

	ENDP


****************************************************************
*
* SolidPenPat	(Color : integer)
*
****************************************************************
	EXPORT SolidPenPat
SolidPenPat	PROC

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
Color	equ RTL2+3

	jsr QDStart

	lda Color,s
	tax
	lda [PortRef]
	jsr MakeSolid


	jsl ZP2Pen

	jmp BusyEC2	; all done.

	ENDP

****************************************************************
*
* SetDrawMask    (MaskPtr : Ptr);
*
****************************************************************
	EXPORT SetDrawMask
SetDrawMask	PROC

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
PatPtr	equ RTL2+3

	jsr QDStart
	DirtyMask
	
	jsl UserMask2ZP
	jsl ZP2Mask

	jmp BusyEC4	; all done.

	ENDP

****************************************************************
*
* GetDrawMask   (MaskPtr : Ptr);
*
****************************************************************
	EXPORT GetDrawMask
GetDrawMask	PROC

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
PatPtr	equ RTL2+3

	jsr QDStart

	jsl Mask2ZP
	jsl ZP2UserMask

	jmp BusyEC4	; all done.

	ENDP



****************************************************************
*
* BackPat    (PatPtr : Ptr);
*
****************************************************************
	EXPORT BackPat
BackPat	PROC

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
PatPtr	equ RTL2+3


	jsr QDStart

	jsl UserPat2ZP
	jsl ZP2Back

	jmp BusyEC4	; all done.

	ENDP


****************************************************************
*
* GetBackPat    (PatPtr : Ptr);
*
* Modified April 7,	1986
*
*    Was not checking for QD to be active nor
*    returning through BusyEC4.
*
****************************************************************
	EXPORT GetBackPat
GetBackPat	PROC

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
PatPtr	equ RTL2+3

	jsr QDStart

	jsl Back2ZP
	jsl ZP2UserPat

	jmp BusyEC4	; all done.

	ENDP


****************************************************************
*
* SolidBackPat	 (Color : integer)
*
****************************************************************
	EXPORT SolidBackPat
SolidBackPat	PROC

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
Color	equ RTL2+3

	jsr QDStart

	lda Color,s
	tax
	lda [PortRef]
	jsr MakeSolid

	jsl ZP2Back

	jmp BusyEC2	; all done.

	ENDP


****************************************************************
*
* SolidPattern	      (Color : integer; PatPtr : long)
*
****************************************************************
	EXPORT SolidPattern
SolidPattern	PROC

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
PatPtr	equ RTL2+3
Color	equ PatPtr+4

	jsr QDStart

	lda Color,s
	tax
	lda MasterSCB
	jsr MakeSolid

	jsl ZP2UserPat

	jmp BusyEC6	; all done.

	ENDP


****************************************************************
*
* MakeSolid
*
* Makes FillPat a solid color.  The color is passed in x-reg
* and the SCB word is passed in a-reg.
*
* 3/7/89	Mensch
* Of course, this changes the pattern so...Dirty pattern
****************************************************************
	EXPORT MakeSolid
MakeSolid	PROC

	pha
	phx
	ldx #512	; switch to qdDPage2
	lda <DirtyDPFlags,x	; get the proper flags
	and #AllPatsBad	; turn off both patterns
	sta <DirtyDPFlags,x
	plx
	pla

	jsr ExtendColorWord


StuffIt	ldx #256
Loop	sta TheFillPat,x
	inx
	inx
	cpx #PatSize+256
	bcc Loop

	rts

	ENDP



****************************************************************
*
* ExtendColorWord
*
* Takes the low two	or four bits in the	x register and extends
* them into the rest of a word passed back in the a register.
*
* Decides whether to use a 2 or 4 bit source based on word in
* a register (either the port or Master	SCB).
*
****************************************************************
	EXPORT ExtendColorWord
ExtendColorWord	PROC

	and #$0080
	beq Mode320

	txa
	and #$0003
SafeColor	asl a
	tax
	lda >Colors640,x
	rts

Mode320	txa
	and #$000F
	asl a
	tax
	lda >Colors320,x
	rts


Colors640		; 
	DC.W %0000000000000000
	DC.W %0101010101010101
	DC.W %1010101010101010
	DC.W %1111111111111111

Colors320		; 
	DC.W $0000,$1111,$2222,$3333
	DC.W $4444,$5555,$6666,$7777
	DC.W $8888,$9999,$AAAA,$BBBB
	DC.W $CCCC,$DDDD,$EEEE,$FFFF


	ENDP


****************************************************************
*
* PenSize (width, height : integer);
*
****************************************************************
	EXPORT PenSize
PenSize	PROC

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
TheHeight	equ RTL2+3
TheWidth	equ TheHeight+2


	jsr QDStart

	lda TheHeight,s
	ldy #O_PnSize
	sta [PortRef],y
	lda TheWidth,s
	iny
	iny
	sta [PortRef],y

	jmp BusyEC4

	ENDP


****************************************************************
*
* GetPenSize   SizePtr : Ptr
*
****************************************************************
	EXPORT GetPenSize
GetPenSize	PROC

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
SizePtr	equ RTL2+3

	jsr QDStart

	lda SizePtr,s
	sta Temp
	lda SizePtr+1,s
	sta Temp+1

	ldy #O_PnSize
	lda [PortRef],y
	sta [Temp]

	iny
	iny
	lda [PortRef],y
	ldy #2
	sta [Temp],y

	jmp BusyEC4

	ENDP


****************************************************************
*
* PenNormal
*
* Does not move the	pen location.
*
* 3/7/89	Mensch
* This can change patterns so... Dirty patterns
****************************************************************
	EXPORT PenNormal
PenNormal	PROC

	jsr QDStart
	DirtyPort
	
	ldx #0
	ldy #O_PnLoc+4
Loop	lda >StdPnState+4,x
	sta [PortRef],y
	inx
	inx
	iny
	iny
	cpy #O_PnLoc+PnStateSize
	bcc Loop

	jmp BusyEC0
	ENDP

****************************************************************
*
* MoveTo (h,v : integer);
*
****************************************************************
	EXPORT MoveTo
MoveTo	PROC

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
V	equ RTL2+3
H	equ V+2

	jsr QDStart

	lda V,s
	ldy #O_PnLoc
	sta [PortRef],y
	lda H,s
	iny
	iny
	sta [PortRef],y

	jmp BusyEC4

	ENDP





****************************************************************
*
* Move   (dh,dv : integer);
*
****************************************************************
	EXPORT Move
Move	PROC

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
dV	equ RTL2+3
dH	equ dV+2


	jsr QDStart

	lda dv,s
	ldy #O_PnLoc
	clc
	adc [PortRef],y
	sta [PortRef],y
	lda dh,s
	iny
	iny
	clc
	adc [PortRef],y
	sta [PortRef],y

	jmp BusyEC4

	ENDP



****************************************************************
*
* SetFont (H : handle)
*
*
* Modifications
*
*    April 7, 1986	  SetFont now returns the value returned
*	  by SizeTextBuffer	as the error code.
*
*    May 2, 1986	  SetFont does not call SizeTextBuffer.
*	  SetFont does zero	the new FontID field
*	  so that fontmanager can know it has
*	  been bypassed.
*
****************************************************************
	EXPORT SetFont
SetFont	PROC

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
Handle	equ RTL2+3

	jsr QDStart
;
; First test to see if the handle passed is the ROMFont
; if it is, then we will test to see if we should load the fast font
;
	lda Handle,s	; get the low word...
	cmp #SystemFont	; see if its the ROM font
	bne @StdFont
	lda Handle+2,s
	cmp #^SystemFont
;
; The following is gone now in an attempt to hide the fastfont!
; 3/21/89	mensch
;
;	beq @ROMFont
@StdFont
; If we get here, the handle passed was not the ROM font...
; so just set it as the new font.
	lda Handle,s	; get low word of handle
	ldy #o_Font	; get offset in grafport
	sta [PortRef],y	; store low word into grafport
	lda Handle+2,s	; get high word of handle
	iny	; bump y by 2
	iny
	sta [PortRef],y	; store high word into grafport

@Continue
	ldy #o_FontID	; zero the FontID field in
	lda #0	; graf port
	sta [PortRef],y
	iny
	iny
	sta [PortRef],y

	jmp BusyEC4	; all done

@ROMFont
; We get to this routine if the user tries to set the ROM font as the 
; current font. It will substitute the value in our direct page
; for the ROM font number
	ldx #512
	lda FastRomFont,x
	ora FastRomFont+2,x
	beq @StdFont	; if these locations are zero, no fast font
	
	ldy #o_Font
	lda FastRomFont,x
	sta [portRef],y
	ldy #o_Font+2
	lda FastRomFont+2,x
	sta [portRef],y
	bra @Continue
	ENDP



*****************************************************************
*****************************************************************
*****************************************************************
***			  ***
***	 The Set port word routines	  ***
***			  ***
*****************************************************************
*****************************************************************
*****************************************************************
	EXPORT PortWords
PortWords	PROC


	EXPORT PenMode
PenMode		;       
	ldy #O_PnMode
	bra PortWord

	EXPORT SetTextSize
SetTextSize		;       
	ldy #O_TxSize
	bra PortWord

	EXPORT SetFontFlags
SetFontFlags		;       
	ldy #O_FontFlags
	bra PortWord

	EXPORT TextFace
TextFace		;       
	ldy #O_TxFace
	bra PortWord

	EXPORT TextMode
TextMode		;       
	ldy #O_TxMode
	bra PortWord

	EXPORT SetForeColor
SetForeColor		;       
	ldy #O_FGColor
	bra PortWord

	EXPORT SetBackColor
SetBackColor		;       
	ldy #O_BGColor
	bra PortWord

	EXPORT SetArcRot
SetArcRot		;       
	ldy #o_ArcRot
;               bra	PortWord	; let this last one	fall in

****************************************************************
*
* PortWord
*
* Takes word input off the stack (6 bytes deep) and puts it
* into the port at the offset in Y.
*
* This is the work horse of the port call routines.
*
****************************************************************
PortWord		; 

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
TheValue	equ RTL2+3

	jsr QDStart

	lda TheValue,s	; get value off stack
	sta [PortRef],y	; store into current port

	jmp BusyEC2	; Clean stack and quit

	ENDP




*****************************************************************
*****************************************************************
*****************************************************************
***			  ***
***              The Set port long routines	  ***
***			  ***
*****************************************************************
*****************************************************************
*
* Change History
*
* March 89	Mensch
*
* Break SetGrafProcs trying to dirty the flags on page 3.
* Tried to do it before direct page was switched in.
*
* March 17, 1989	Steven Glass
*
* Fix SetGrafProcs.  Startup QD first.
*
*****************************************************************
	EXPORT PortLongs
PortLongs	PROC

	EXPORT SpaceExtra
SpaceExtra		;       
	ldy #O_SpExtra
	bra PortLong

	EXPORT SetCharExtra
SetCharExtra		;       
	ldy #O_ChExtra
	bra PortLong

	EXPORT SetPicSave
SetPicSave		;       
	ldy #O_PicSave
	bra PortLong

	EXPORT SetRgnSave
SetRgnSave		;       
	ldy #O_RgnSave
	bra PortLong

	EXPORT SetPolySave
SetPolySave		;       
	ldy #O_PolySave
	bra PortLong

	EXPORT SetGrafProcs
SetGrafProcs
	jsr QDStart
	DirtyDrawState	; set a bad drawing state
	ldy #O_GrafProcs
	bra PortLong2

	EXPORT SetUserField
SetUserField		;       
	ldy #O_UserField
	bra PortLong

	EXPORT SetSysField
SetSysField		;       
	ldy #O_SysField
	bra PortLong

	EXPORT SetClipHandle
SetClipHandle		;       
	ldy #O_ClipRgn
	bra PortLong

	EXPORT SetVisHandle
SetVisHandle		;       
	ldy #O_VisRgn
	bra PortLong

	EXPORT SetFontID
SetFontID		;       
	ldy #O_FontID
;               bra	PortLong	; let this last one	fall in


****************************************************************
*
* PortLong
*
* Takes long input off the stack (6 bytes deep) and puts it
* into the port at the offset in Y.
*
****************************************************************
PortLong		; 

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
TheLong	equ RTL2+3

	jsr QDStart

PortLong2
	lda TheLong,s
	sta [PortRef],y
	lda TheLong+2,s
	iny
	iny
	sta [PortRef],y

	jmp BusyEC4

	ENDP


*****************************************************************
*****************************************************************
*****************************************************************
***			  ***
***              The Get Word from Port	Routines	  ***
***			  ***
*****************************************************************
*****************************************************************
*****************************************************************
	EXPORT GetPortWords
GetPortWords	PROC

	EXPORT GetPenMode
GetPenMode		;       
	ldy #O_PnMode
	bra GetPortWord

	EXPORT GetTextSize
GetTextSize		;       
	ldy #O_TxSize
	bra GetPortWord

	EXPORT GetFontFlags
GetFontFlags		;       
	ldy #O_FontFlags
	bra GetPortWord

	EXPORT GetTextFace
GetTextFace		;       
	ldy #O_TxFace
	bra GetPortWord

	EXPORT GetTextMode
GetTextMode		;       
	ldy #O_TxMode
	bra GetPortWord

	EXPORT GetForeColor
GetForeColor		;       
	ldy #O_FGColor
	bra GetPortWord

	EXPORT GetBackColor
GetBackColor		;       
	ldy #O_BGColor
	bra GetPortWord

	EXPORT GetArcRot
GetArcRot		;       
	ldy #o_ArcRot
;                bra GetPortWord	; let this last one	fall in


****************************************************************
*
* GetPortWord
*
* Takes word from port (offset in Y) and puts it on the
* stack (6 bytes deep).
*
* Routines that return word values from	the port will
* unconditionally transfer control here.
*
****************************************************************
GetPortWord		; 

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
TheValue	equ RTL2+3

	jsr QDStart

	lda [PortRef],y	; get the word
	sta TheValue,s	; put it on the stack

	jmp BusyEC0


	ENDP




*****************************************************************
*****************************************************************
*****************************************************************
***			  ***
***              The Get long from Port	Routines	  ***
***			  ***
*****************************************************************
*****************************************************************
*****************************************************************
	EXPORT GetPortLongs
GetPortLongs	PROC

	EXPORT GetFont
GetFont		;       
	ldy #O_Font
	bra GetPortLong

	EXPORT GetFontID
GetFontID		;       
	ldy #O_FontID
	bra GetPortLong

	EXPORT GetSpaceExtra
GetSpaceExtra		;       
	ldy #O_SpExtra
	bra GetPortLong

	EXPORT GetCharExtra
GetCharExtra		;       
	ldy #O_ChExtra
	bra GetPortLong

	EXPORT GetPicSave
GetPicSave		;       
	ldy #O_PicSave
	bra GetPortLong

	EXPORT GetRgnSave
GetRgnSave		;       
	ldy #O_RgnSave
	bra GetPortLong

	EXPORT GetPolySave
GetPolySave		;       
	ldy #O_PolySave
	bra GetPortLong

	EXPORT GetGrafProcs
GetGrafProcs		;       
	ldy #O_GrafProcs
	bra GetPortLong

	EXPORT GetUserField
GetUserField		;       
	ldy #O_UserField
	bra GetPortLong

	EXPORT GetSysField
GetSysField		;       
	ldy #O_SysField
	bra GetPortLong

	EXPORT GetClipHandle
GetClipHandle		;       
	ldy #O_ClipRgn
	bra GetPortLong

	EXPORT GetVisHandle
GetVisHandle		;       
	ldy #O_VisRgn
;               bra	GetPortLong	; let this last one	fall in


****************************************************************
*
* GetPortLong
*
* Takes long from grafport (at offset y) and puts it on the
* stack (6 bytes deep).
*
* Modifications
*
*      April 10, 1986    This was copied from SetPortLong
*	     and I patched it wrong so it only
*	     returned the high word of the long.
*
****************************************************************
GetPortLong		; 
OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
TheLong	equ RTL2+3

	jsr QDStart

	lda [PortRef],y
	sta TheLong,s
	iny
	iny
	lda [PortRef],y
	sta TheLong+2,s

	jmp BusyEC0

	ENDP
;                COPY ENV/PORT.UTILS
****************************************************************
*
* PORT.UTILS
*
* This file contains routines that are handy for putting things
* into and getting things out of a port.
*
*        PortLoc2ZP	      Copies location info from port to	ZP
*        ZP2PortLoc	      Copies location info from ZP to port
*        UserPat2ZP	      Copies pattern from user memory to
*	      zero page
*        ZP2UserPat	      Copies pattern from zero page to user
*	      memory.
*        GetPenPReady     Copies the penpat from the port to ZP
*	      and aligns it	to the bounds rect.
*        GetBackPReady    Copies the backpat from the port to
*	      ZP and aligns	it to the bounds rect.
*        Pen2ZP	      Copies the pen pattern to zero page
*	      without alignment.
*        Back2ZP	      Copies the back pattern to zero page.
*	      without alignment.
*        ZP2Pen	      Copies the pattern on zp to pen pat in
*	      grafport.
*        ZP2Back	      Copies the pattern on zp to back pat
*	      in grafport.
*        RotatePat	      Rotates the pattern in TheFillPat	an
*	      amount passed	in the Y-reg.
*
*
*
*        GetMaskReady     Calls Mask2ZP, ExpandMask and RotateMask
*	      to get the mask ready for drawing.
*        UserMask2ZP      Copies the user's mask to TheDrawMask
*	      on zero page
*        ZP2UserMask      Copies TheDrawMask on zero page to
*	      the user's memory.
*        Mask2ZP	      Copies the pen mask from the GrafPort
*	      to zero page.
*        ZP2Mask	      Copies the pen mask from ZP to the
*	      GrafPort
*        ExpandMask	      Expands the penmask on zero page in place
*
*        RotateMask	      Rotates the mask in place a number of
*	      pixels passed	in the a-reg.
*        RotateLong	      Used by RotateMask to do rotating.
*
****************************************************************






****************************************************************
*
* PortLoc2ZP
*
* This is the routine that copies the port info from the port
* down to zero page
*
* 2/25/89	Mensch
* Make this one straight down ladder to save some cycles!
*
* Saves 90 cycles over the old way...
*
****************************************************************
	EXPORT iPortLoc2ZP
iPortLoc2ZP	PROC
	
	phb	; save the current databank
	pei PortRef+1	; switch to the grafports databank
	plb
	plb
	
	ldy <PortRef	; now set Y as an index into our data area
	lda |0,y
	sta <LocInfo+0
	lda |2,y
	sta <LocInfo+2
	lda |4,y
	sta <LocInfo+4
	lda |6,y
	sta <LocInfo+6
	lda |8,y
	sta <LocInfo+8
	lda |10,y
	sta <LocInfo+10
	lda |12,y
	sta <LocInfo+12
	lda |14,y
	sta <LocInfo+14
	lda |16,y
	sta <LocInfo+16
	lda |18,y
	sta <LocInfo+18
	lda |20,y
	sta <LocInfo+20
	lda |22,y
	sta <LocInfo+22
	plb
	
	phx	; <X> register
	ldx #512	; and set the DirtyDP Flags...
	lda <DirtyDPFlags,x
	ora #PortLocOK
	sta <DirtyDPFlags,x
	plx
	rtl


;	ldy #LocSize+8-2
;Loop	tyx
;	lda [PortRef],y
;	sta LocInfo,x
;	dey
;	dey
;	bpl Loop
;
;	rtl


	ENDP


****************************************************************
*
* ZP2PortLoc
*
* This is the routine that copies the port info on zero page
* up to the graf port after it is modified.
*
****************************************************************
	EXPORT ZP2PortLoc
ZP2PortLoc	PROC

	ldy #LocSize+8-2
Loop	tyx
	lda LocInfo,x
	sta [PortRef],y
	dey
	dey
	bpl Loop

	rtl


	ENDP


****************************************************************
*
* UserPat2ZP
*
* Copies the pattern pointed to by value on stack to zero page.
* The pointer is several bytes deep on the stack but we're
* clever enough to read it anyway.
*
* Trashes all registers and the zero page location TEMP.
*
* 3/7/89	Mensch
* again, this also dirties the patterns so change the flags...
****************************************************************
	EXPORT iUserPat2ZP
iUserPat2ZP	PROC

RTLAdr	equ 1
OrigDirect	equ RTLAdr+3
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
PatPtr	equ RTL2+3

	DirtyPatterns
	
	lda PatPtr,s	; put low word of ptr in x
	sta Temp
	lda PatPtr+1,s	; get med and high bytes
	sta Temp+1

;-----------------------------------------------
;
; Since TheFillPat is on the next page,	I access
; it with ZP,x addressing with x initially set
; to 256.
;
	ldy #0
	ldx #256
Loop	lda [Temp],y
	sta TheFillPat,x
	inx
	inx
	iny
	iny
	cpy #PatSize
	bcc Loop

	rtl

	ENDP



****************************************************************
*
* ZP2UserPat
*
* Copies the pattern on zero page to the area of memory pointed
* to by value on stack.  the pointer is	several bytes deep on
* the stack but we're clever enough to read it anyway.
*
* Trashes all registers and the zero page location TEMP.
*
****************************************************************
	EXPORT ZP2UserPat
ZP2UserPat	PROC

RTLAdr	equ 1
OrigDirect	equ RTLAdr+3
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
PatPtr	equ RTL2+3

	lda PatPtr,s	; put low word of ptr in x
	sta Temp
	lda PatPtr+1,s	; get med and high bytes
	sta Temp+1

;-----------------------------------------------
;
; Since TheFillPat is on the next page,	I access
; it with ZP,x addressing with x initially set
; to 256.
;
	ldy #0
	ldx #256
loop	lda TheFillPat,x
	sta [Temp],y
	inx
	inx
	iny
	iny
	cpy #PatSize
	bcc Loop

	rtl

	ENDP


****************************************************************
*
* Utility routines for moving patterns around.  They move
* patterns from the	port to zero page, from zero page to the
* port, from the user to zero page and from zero page to the
* user.
*
****************************************************************


****************************************************************
*
* GetPenPReady
*
* Moves PenPat to the TheFillPat on zero page and rotates the
* pattern for alignment with the BoundsRect.
*
* 3/7/89	Mensch
* Modified to support the new dirtyflags
*
* 4/22/89	Mensch
* Modified to support arcrot field for 16 pixel patterns in 640 mode
****************************************************************
	EXPORT iGetPenPReady
iGetPenPReady	PROC
	
	ldx #512	; swap direct
	lda <DirtyDPFlags,x	; load the proper flags
	bpl @GottaGoSlow
	tay	; save this for a sec...
	and #PenPatOK	; test the penPatFlag
	bne @PenAlreadyUp
	tya	; get flags back...
	ora #PenPatOK
	and #BackPatternBad ; turn off the back pattern flags
	sta <DirtyDPFlags,x	; and resave this thing...
@GottaGoSlow
	jsl Pen2ZP	; bring the pen pattern to zp
;
; Mensch 4/22/89
; This code was written before arcrot could allow 16 pixel patterns.
; This will now fix 16 pixel patterns up also...
	ldy #o_ArcRot	; look at high bit of ArcRot
	lda [PortRef],y	; test bit 15 of arcrot and
	and PortSCB-1	; bit 7 of PortSCB to see if we need to use
	bpl @NoFutz	; 15 pixel patterns
	lda #15
	bra @cont
@NoFutz	lda #7
@Cont
	and BoundsRect+2	; rotate it
	tay	; RotatePat takes param in Yreg
	jsl RotatePat
@PenAlreadyUp
	rtl

	ENDP



****************************************************************
*
* GetBackPReady
*
* Moves BackPat to the thefillpat on zero page and rotates the
* pattern for alignment with the BoundsRect.
*
*
* 3/7/89	Mensch
* Modified to support the new dirtyflags
*
* 4/22/89	Mensch
* Modified to support arcrot field for 16 pixel patterns in 640 mode
****************************************************************
	EXPORT iGetBackPReady
iGetBackPReady	PROC
	ldx #512	; swap direct
	lda <DirtyDPFlags,x	; load the proper flags
	bpl @GottaGoSlow
	tay	; save this for a sec...
	and #BackPatternOK	; test the penPatFlag
	bne @BackAlreadyUp
	tya	; get flags back...
	ora #BackPatternOK
	and #PenPatBad 	; turn off the back pattern flags
	sta <DirtyDPFlags,x	; and resave this thing...
@GottaGoSlow
	jsl Back2ZP	; move the background pattern to zp

;
; Mensch 4/22/89
; This code was written before arcrot could allow 16 pixel patterns.
; This will now fix 16 pixel patterns up also...
	ldy #o_ArcRot	; look at high bit of ArcRot
	lda [PortRef],y	; test bit 15 of arcrot and
	and PortSCB-1	; bit 7 of PortSCB to see if we need to use
	bpl @NoFutz	; 15 pixel patterns
	lda #15
	bra @cont
@NoFutz	lda #7
@Cont
	and BoundsRect+2	; rotate it
	tay	; RotatePat takes param in Yreg
	jsl RotatePat
@BackAlreadyUp
	rtl

	ENDP




****************************************************************
*
* Pen2ZP
*
* Moves the pen pattern to zero page.
*
****************************************************************
	EXPORT iPen2ZP
iPen2ZP	PROC

	ldx #256
	ldy #O_PnPat
	lda [PortRef],y
	pha
	sta TheFillPat,x
	bra Loop3
Loop2	lda [PortRef],y
	cmp 1,s
	bne NotSolid
	sta TheFillPat,x
Loop3	iny
	iny
	inx
	inx
	cpx #PatSize+256
	bcc Loop2
	pla	; discard the temp...
	ldx #512
	lda <DirtyDPFlags,x
	ora #SolidPatOK
	sta <DirtyDPFlags,x
	rtl
	
NSLoop2	lda [PortRef],y
NotSolid	sta TheFillPat,x
	iny
	iny
	inx
	inx
	cpx #PatSize+256
	bcc NSLoop2
	pla	; discard the temp...
	ldx #512
	lda <DirtyDPFlags,x
	and #$FFFF-SolidPatOK ; solid pat bad!
	sta <DirtyDPFlags,x

	rtl

	ENDP



****************************************************************
*
* Back2ZP
*
* Moves the background pattern to zero page.
*
****************************************************************
	EXPORT iBack2ZP
iBack2ZP	PROC
	ldx #256
	ldy #O_BkPat
	lda [PortRef],y
	pha
	sta TheFillPat,x
	bra Loop3
Loop2	lda [PortRef],y
	cmp 1,s
	bne NotSolid
	sta TheFillPat,x
Loop3	iny
	iny
	inx
	inx
	cpx #PatSize+256
	bcc Loop2
	pla	; discard the temp...
	ldx #512
	lda <DirtyDPFlags,x
	ora #SolidPatOK
	sta <DirtyDPFlags,x
	rtl
	
NSLoop2	lda [PortRef],y
NotSolid	sta TheFillPat,x
	iny
	iny
	inx
	inx
	cpx #PatSize+256
	bcc NSLoop2
	pla	; discard the temp...
	ldx #512
	lda <DirtyDPFlags,x
	and #$FFFF-SolidPatOK ; solid pat bad!
	sta <DirtyDPFlags,x
	rtl

	ENDP


****************************************************************
*
* ZP2Pen
*
* Moves pattern on zero page to pen pat	in the port.
*
****************************************************************
	EXPORT ZP2Pen
ZP2Pen	PROC

	ldx #256
	ldy #O_PnPat
Loop	lda TheFillPat,x
	sta [PortRef],y
	iny
	iny
	inx
	inx
	cpx #PatSize+256
	bcc Loop

	rtl

	ENDP



****************************************************************
*
* ZP2Back
*
* Moves the pattern	on zero page to the	back pat in the
* graf port.
*
****************************************************************
	EXPORT ZP2Back
ZP2Back	PROC

	ldx #256
	ldy #O_BkPat
Loop	lda TheFillPat,x
	sta [PortRef],y
	iny
	iny
	inx
	inx
	cpx #PatSize+256
	bcc Loop

	rtl

	ENDP



****************************************************************
*
* RotatePat
*
* Rotates TheDrawMask on zero page. The	amount to rotate is
* passed in the y-register.
*
*
* Change History
*
* 08 Sep 88	Steven Glass
*
* The 640 mode pattern is expanded to use the entire 32 bytes
* of the pattern.  This means that code that uses the pattern
* does not have to care what mode it is in.
*
* 02 Oct 88	Steven Glass
*
* Check the high bit of arc rot to see if we should
* copy the 16 byte pattern into 32 bytes.
*
****************************************************************
iRotatePat	PROC EXPORT
	phy	; save the y-reg

	ldy #o_ArcRot	; look at high bit of ArcRot
	lda [PortRef],y
	bmi NoFutz

	bit PortSCB-1
	bpl NoFutz

	phd
	tdc
	clc
	adc #$100
	tcd
	lda TheFillPat+14
	sta TheFillPat+28
	sta TheFillPat+30
	lda TheFillPat+12
	sta TheFillPat+24
	sta TheFillPat+26
	lda TheFillPat+10
	sta TheFillPat+20
	sta TheFillPat+22
	lda TheFillPat+8
	sta TheFillPat+16
	sta TheFillPat+18
	lda TheFillPat+6
	sta TheFillPat+12
	sta TheFillPat+14
	lda TheFillPat+4
	sta TheFillPat+8
	sta TheFillPat+10
	lda TheFillPat+2
	sta TheFillPat+4
	sta TheFillPat+6
	lda TheFillPat+0
	sta TheFillPat+2

	pld

NoFutz	ply




	tya
	cmp #0
	beq NeverMind
	asl a

	bit PortSCB-1
	bmi Mode640

	asl a	; bump this once more for 320 mode
Mode640	sta HowFarToShift

	ldx #256	; use this in x since mask is
 		; really on the next page
Loop	lda TheFillPat+2,x	; get the current slice
	tay
	lda TheFillPat,x
	phx	; save x on stack
	jsl RotateLong	; rotate it
	plx	; get x back
	sta TheFillPat,x	; put the current slice back
	tya
	sta TheFillPat+2,x
	inx	; bump x and check to see if we
	inx	; are done.
	inx
	inx
	cpx #256+PatSize
	bcc Loop

NeverMind	rtl


	ENDP



****************************************************************
*
* GetMaskReady
*
* Brings the 1-bit per pixel mask down to zero page from the
* grafport, expands	it, and rotates it to align it with the
* bounds rect.
*
* 3/8/89	Mensch
* Support Dirty masking now...
****************************************************************
	EXPORT iGetMaskReady
iGetMaskReady	PROC

	ldx #512
	lda <DirtyDPFlags,x
	bpl @MustGoSlow
	tay	; save this for a sec...
	and #PenMaskOK	; test to see if the mask is ok...
	bne @NoNeed
	tya
	ora #PenMaskOK	; flag the pen mask as OK...
	sta <DirtyDPFlags,x
@MustGoSlow
	jsl Mask2ZP	; bring the pen mask to zp

	jsl ExpandMask	; expand the mask to n-bits per pixel

	lda BoundsRect+2	; rotate the mask so it is aligned
	and #7	; with the bounds rect!
	jsl RotateMask	; note that rotatemask takes shift
*		; amount in areg
@NoNeed
	rtl

	ENDP




****************************************************************
*
* UserMask2ZP
*
* Moves the specified mask to TheDrawMask on zero page.
*
****************************************************************
	EXPORT UserMask2ZP
UserMask2ZP	PROC

RTLAdr	equ 1
OrigDirect	equ RTLAdr+3
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
MaskPtr	equ RTL2+3

	lda MaskPtr,s	; put low word of ptr in x
	sta Temp
	lda MaskPtr+1,s	; get med and high bytes
	sta Temp+1

;-----------------------------------------------
;
; Since TheFillPat is on the next page,	I access
; it with ZP,x addressing with x initially set
; to 256.
;
	ldy #0
	ldx #256
loop	lda [Temp],y
	sta TheDrawMask,x
	inx
	inx
	iny
	iny
	cpy #MaskSize
	bcc Loop

	rtl

	ENDP

****************************************************************
*
* ZP2UserMask
*
* Moves the PenMask	from ZP to the area	pointed to by the user.
*
****************************************************************
	EXPORT ZP2UserMask
ZP2UserMask	PROC

RTLAdr	equ 1
OrigDirect	equ RTLAdr+3
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
MaskPtr	equ RTL2+3

	lda MaskPtr,s	; put low word of ptr in x
	sta Temp
	lda MaskPtr+1,s	; get med and high bytes
	sta Temp+1

;-----------------------------------------------
;
; Since TheFillPat is on the next page,	I access
; it with ZP,x addressing with x initially set
; to 256.
;
	ldy #0
	ldx #256
Loop	lda TheDrawMask,x
	sta [Temp],y
	inx
	inx
	iny
	iny
	cpy #MaskSize
	bcc Loop

	rtl

	ENDP



****************************************************************
*
* ZP2Mask
*
* Moves the penmask	on zero page to the	grafport
*
****************************************************************
	EXPORT ZP2Mask
ZP2Mask	PROC

	ldx #256
	ldy #O_PnMask
Loop	lda TheDrawMask,x
	sta [PortRef],y
	iny
	iny
	inx
	inx
	cpx #MaskSize+256
	bcc Loop

	rtl

	ENDP




****************************************************************
*
* Mask2ZP
*
* Moves the penmask	in the grafport to zero page.
*
****************************************************************
	EXPORT iMask2ZP
iMask2ZP	PROC

	ldx #256
	ldy #O_PnMask
Loop	lda [PortRef],y
	sta TheDrawMask,x
	iny
	iny
	inx
	inx
	cpx #MaskSize+256
	bcc Loop

	rtl

	ENDP


****************************************************************
*
* ExpandMask
*
* Takes the mask on	zp and expands it from 1-bit per pixel
* to n-bits per pixel.
*
* The expanded mask	is stored already on zp.
*
****************************************************************
	EXPORT iExpandMask
iExpandMask	PROC

	bit PortSCB-1
	bpl ExpandM320
	jmp ExpandM640

	ENDP

****************************************************************
*
* ExpandM320
*
****************************************************************
	EXPORT ExpandM320
ExpandM320	PROC

	phd
	tdc
	clc
	adc #$100
	tcd

	ldx #MaskSize-1
Loop	lda TheDrawMask,x
	jsr StuffMask320
	dex
	bpl Loop

	pld
	rtl

StuffMask320		; 

	phx	; save orig x

	tay	; save orig byte

	txa	; mult x by 4
	asl a	; so this is index into expanded
	asl a	; mask
	pha	; put on stack

	tya	; get byte back
	and #$00FF	; mask of high word
	asl a	; must by 4
	asl a
	tax	; convert
	lda >ConTable320+2,x
	tay
	lda >ConTable320,x
	plx	; get index off stack
	sta TheDrawMask,x
	inx
	inx
	tya
	sta TheDrawMask,x

	plx	; get orig x back
	rts

	ENDP

****************************************************************
*
* ExpandM640
*
****************************************************************
	EXPORT ExpandM640
ExpandM640	PROC

	phd
	tdc
	clc
	adc #$100
	tcd

	ldx #MaskSize-1
Loop	lda TheDrawMask,x
	jsr StuffMask640
	dex
	bpl Loop

	pld
	rtl

StuffMask640		; 

	phx	; save orig x

	tay	; save orig byte

	txa	; mult by 2
	asl a	; so this is index into expanded mask
	pha	; put on stack

	tya	; get byte back
	and #$00FF	; mask of high word
	asl a	; must by 4
	tax	; convert
	lda >ConTable640,x
	plx	; get index off stack
	sta TheDrawMask,x

	plx
	rts

	ENDP

****************************************************************
*
* RotateMask
*
* Rotates TheDrawMask on zero page. The	amount to rotate is
* passed in the a-register.
*
* Modification History
*
* 31 Dec 86    SEG
*
*    This rotine was only rotating 8 bytes of the mask rather
*    than the 32 bytes of the expanded mask!
*
*
* 08 Sep 88	Steven Glass
*
* The 640 mode pattern is expanded to use the entire 32 bytes
* of the pattern.  This means that code that uses the pattern
* does not have to care what mode it is in.
*
* 02 Oct 88	Steven Glass
*
* Check the high bit of arc rot to see if we should
* copy the 16 byte pattern into 32 bytes.
*
* 18 May 89	Steven Glass
*
* Undid change from 02 Oct.  Wonder what I was thinking.  It
* cannot work that way since there will never be a 16 x 8 mask.
*
****************************************************************
iRotateMask	PROC EXPORT


	pha	; save the a-reg

* Remove next three lines.  They are not needed.  There is no
* such thing as a 16 x 8 mask.  SEG 18 May 89
*
*	ldy #o_ArcRot	; look at high bit of ArcRot
*	lda [PortRef],y
*	bmi NoFutz


	bit PortSCB-1
	bpl NoFutz

	phd
	tdc
	clc
	adc #$100
	tcd
	lda TheDrawMask+14
	sta TheDrawMask+28
	sta TheDrawMask+30
	lda TheDrawMask+12
	sta TheDrawMask+24
	sta TheDrawMask+26
	lda TheDrawMask+10
	sta TheDrawMask+20
	sta TheDrawMask+22
	lda TheDrawMask+8
	sta TheDrawMask+16
	sta TheDrawMask+18
	lda TheDrawMask+6
	sta TheDrawMask+12
	sta TheDrawMask+14
	lda TheDrawMask+4
	sta TheDrawMask+8
	sta TheDrawMask+10
	lda TheDrawMask+2
	sta TheDrawMask+4
	sta TheDrawMask+6
	lda TheDrawMask+0
	sta TheDrawMask+2

	pld

NoFutz	pla
	beq NeverMind
	asl a

	bit PortSCB-1
	bmi Mode640

	asl a	; bump this once more for 320 mode

Mode640
	sta HowFarToShift

	ldx #256	; use this in x since mask is
*		; really on the next page
Loop	lda TheDrawMask+2,x	; get the current slice
	tay
	lda TheDrawMask,x
	phx	; save x on stack
	jsl RotateLong	; rotate it
	plx	; get x back
	sta TheDrawMask,x	, put the current slice back
	tya
	sta TheDrawMask+2,x
	inx	; bump x and check to see if we
	inx	; are done.
	inx
	inx
	cpx #256+32
	bcc Loop

NeverMind	rtl




	ENDP



****************************************************************
*
* RotateLong
*
* Rotates the long passed in a & y and returns it an a & y.
* The amount rotated is specified in HowFarToShift. The result
* is returned in a & y.
*
* All registers are	destroyed.
*
* Modification History
*
* 31 Dec 86    SEG
*
*    Completely rewritten today and it now seems to work.  Earlier
*    version may never have worked.
*
****************************************************************
	EXPORT iRotateLong
iRotateLong	PROC

	xba
	sta TEMP
	tya
	xba
	sta TEMP+2

	ldx HowFarToShift
	beq Done

Again	lda TEMP+2	; pick up high word	and rotate
	asl a	; so can have carry	ready to shift
	rol TEMP	; into low word here
	rol TEMP+2
	dex	; repeat until x = 0
	bne Again

Done	lda TEMP+2
	xba
	tay
	lda TEMP
	xba

	rtl


	ENDP


	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/QD/font.asm b/IIGS.601.SRC/GSToolbox/QD/font.asm
new file mode 100644
index 0000000..faefecb
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/QD/font.asm
@@ -0,0 +1 @@
+	title 'QD Font              GS ROM 2.0'
****************************************************************
*			   *
*              FONT			   *
*			   *
****************************************************************


****************************************************************
*			   *
*	Copyright (C) 1985-1987	   *
*	All Rights Reserved		   *
*	Apple Computer, Inc.	   *
*			   *
****************************************************************

	string asis
	blanks off


	EXPORT SystemFont
SystemFont	PROC

	DC.L Foo

	DS.B 2

Foo		; 

	DC.W (FontStart-Foo)/2
	DC.W $FFFE	; font id (shaston)
	DC.W 0	; style (plain)
	DC.W 8	; size (8 high)
	DC.W $0101	; version
	DC.W $0C	; fbr extent
	DC.W $0000	; high word of offset to offset/width table

FontStart		; 
*   FontFile:  ROM2.10.Cort

	DC.W $9001	; {FontType}
	DC.W $0000	; {FirstChar}
	DC.W $00FF	; {LastChar}
	DC.W $000C	; {WidMax}
	DC.W $0000	; {KernMax}
	DC.W $FFFF	; {nDescent}
	DC.W $000A	; {fRectWidth}
	DC.W $0008	; {FrectHeight}
	DC.W $032F	; {owTLoc}
	DC.W $0007	; {ascent}
	DC.W $0001	; {descent}
	DC.W $0001	; {leading}
	DC.W $0045	; {RowWords}

* BitImage:
	DC.B $18,$00,$40,$CF,$36,$C2,$18,$18,$C7,$80,$00,$00,$00,$CF,$31,$E7
	DC.B $B0,$F9,$EF,$DE,$78,$03,$03,$0F,$3E,$7B,$E7,$BE,$FF,$DE,$CF,$C3
	DC.B $C7,$84,$18,$DE,$F9,$EF,$9E,$FF,$3C,$78,$79,$E7,$FF,$E0,$F3,$00
	DC.B $30,$18,$00,$18,$07,$03,$06,$1E,$1C,$00,$00,$00,$00,$00,$00,$00
	DC.B $00,$00,$00,$00,$3F,$C3,$9A,$4F,$3C,$27,$29,$24,$31,$87,$24,$C9
	DC.B $80,$08,$81,$89,$1E,$34,$B2,$33,$06,$24,$C8,$CC,$18,$91,$8E,$11
	DC.B $E7,$03,$DC,$F8,$1D,$17,$20,$3F,$BE,$00,$01,$99,$88,$0E,$7D,$FC
	DC.B $00,$CF,$BC,$F0,$00,$00,$6C,$00,$F0,$C0,$20,$00,$00,$01,$0C,$B9
	DC.B $7F,$00,$00,$06,$DB,$6C,$02,$12,$FF,$FC,$10,$00,$E0,$8F,$3F,$EF
	DC.B $AD,$20,$D8,$64,$8C,$00,$01,$93,$F3,$3C,$F3,$C3,$00,$F3,$CC,$06
	DC.B $01,$99,$C1,$CF,$3C,$F3,$C6,$33,$CD,$83,$CD,$86,$3C,$F3,$CF,$3C
	DC.B $F3,$33,$3C,$78,$79,$E6,$1E,$30,$35,$80,$18,$18,$00,$18,$0C,$03
	DC.B $00,$06,$0C,$00,$00,$00,$00,$00,$18,$00,$00,$00,$00,$00,$66,$66
	DC.B $70,$19,$E6,$49,$C0,$00,$60,$C9,$81,$32,$40,$10,$42,$C0,$33,$58
	DC.B $4C,$61,$8B,$01,$31,$86,$2C,$07,$FB,$13,$1C,$07,$F2,$CD,$E9,$BC
	DC.B $03,$66,$63,$00,$63,$0D,$88,$13,$32,$D8,$09,$B9,$E7,$98,$00,$00
	DC.B $00,$00,$C1,$01,$20,$00,$00,$00,$93,$4E,$CC,$00,$00,$0D,$9B,$CC
	DC.B $85,$00,$C7,$8C,$6C,$0D,$F3,$6F,$36,$DA,$1A,$30,$F0,$33,$0C,$00
	DC.B $03,$33,$30,$30,$F3,$FB,$E1,$B3,$CF,$6C,$FC,$C1,$CD,$CF,$3C,$33
	DC.B $C6,$30,$CD,$83,$D9,$87,$7E,$F3,$CF,$3C,$F0,$33,$3C,$7B,$6F,$66
	DC.B $36,$18,$38,$C0,$0B,$FF,$3C,$FB,$DF,$7F,$EE,$3E,$6D,$FD,$F3,$DF
	DC.B $3F,$B7,$BE,$CF,$1E,$1E,$79,$FE,$46,$20,$03,$CF,$61,$F0,$0F,$66
	DC.B $00,$00,$3E,$01,$8F,$3C,$F0,$0F,$00,$07,$00,$00,$00,$3C,$00,$00
	DC.B $01,$99,$9B,$7B,$07,$87,$F4,$FB,$09,$50,$1F,$E6,$67,$00,$66,$06
	DC.B $D6,$61,$98,$DB,$F1,$99,$E7,$9B,$DC,$78,$6C,$00,$C3,$1E,$51,$9E
	DC.B $60,$03,$C0,$00,$CC,$7B,$80,$0D,$B6,$D8,$08,$B3,$B3,$64,$86,$1B
	DC.B $FF,$FC,$06,$CF,$84,$1A,$30,$3F,$FF,$1F,$86,$33,$30,$63,$B3,$0F
	DC.B $33,$1E,$CC,$18,$00,$63,$55,$CF,$EC,$33,$F7,$B7,$FD,$83,$F1,$87
	DC.B $FF,$F3,$FB,$3F,$9E,$33,$36,$DB,$66,$3C,$66,$0C,$30,$00,$06,$79
	DC.B $E7,$9E,$6C,$CF,$36,$1E,$CD,$B7,$9E,$79,$E7,$CC,$18,$CF,$1E,$DB
	DC.B $D9,$8D,$86,$18,$06,$79,$E1,$8C,$39,$E6,$FB,$EF,$E6,$FB,$F9,$E7
	DC.B $9B,$F9,$F7,$73,$7C,$F3,$CF,$66,$F6,$79,$E7,$9F,$EE,$C7,$CC,$FF
	DC.B $F2,$CF,$00,$00,$06,$67,$EB,$6D,$FB,$0D,$FE,$6F,$8C,$D9,$B1,$99
	DC.B $E7,$98,$67,$9D,$EF,$F1,$8F,$E1,$53,$33,$30,$06,$6F,$3E,$CF,$CC
	DC.B $FF,$F0,$00,$03,$F0,$73,$F3,$E4,$85,$31,$F7,$EC,$0F,$E2,$CB,$2C
	DC.B $30,$33,$0C,$00,$0C,$33,$30,$C0,$FF,$0F,$33,$33,$7C,$0C,$FC,$C6
	DC.B $55,$FF,$3C,$33,$C6,$33,$CD,$83,$D9,$86,$BD,$F3,$C3,$3D,$83,$33
	DC.B $36,$DB,$6F,$18,$C6,$06,$30,$00,$06,$79,$E1,$9F,$EC,$CF,$36,$1F
	DC.B $8D,$B7,$9E,$79,$E7,$87,$98,$CD,$B6,$D9,$9B,$98,$46,$20,$06,$79
	DC.B $E1,$EF,$39,$E7,$9E,$79,$E7,$9E,$78,$7F,$FE,$5F,$B3,$33,$67,$9E
	DC.B $79,$E7,$9E,$79,$E7,$99,$80,$C3,$0C,$FB,$F3,$01,$E0,$00,$1F,$FE
	DC.B $73,$9A,$61,$98,$66,$79,$88,$D9,$B1,$8F,$BD,$9B,$FF,$AF,$0C,$31
	DC.B $83,$1E,$8E,$61,$98,$06,$79,$E3,$CC,$CF,$C0,$00,$00,$00,$08,$B7
	DC.B $C7,$CC,$96,$E0,$E7,$F0,$06,$DA,$D5,$E6,$30,$34,$8C,$00,$18,$32
	DC.B $31,$8C,$C3,$CF,$36,$33,$0C,$06,$01,$80,$5B,$CF,$3C,$F3,$C6,$33
	DC.B $CD,$B3,$CD,$86,$3C,$F3,$C3,$3C,$F3,$33,$33,$8C,$D9,$99,$86,$03
	DC.B $30,$00,$06,$79,$E7,$9E,$0C,$7F,$36,$1E,$CD,$B7,$9E,$79,$E7,$80
	DC.B $DB,$CD,$B3,$33,$CD,$B0,$66,$60,$07,$FF,$E7,$89,$F9,$E7,$9E,$79
	DC.B $E7,$9E,$79,$E1,$86,$98,$33,$33,$67,$9E,$79,$E7,$9E,$79,$E7,$99
	DC.B $80,$7B,$17,$B9,$7B,$00,$00,$00,$0C,$66,$63,$B2,$60,$01,$FE,$F9
	DC.B $90,$D9,$B1,$80,$00,$96,$61,$CF,$3C,$31,$83,$20,$8B,$33,$30,$07
	DC.B $FF,$E3,$CC,$CC,$00,$00,$00,$00,$85,$1B,$FF,$FC,$6C,$40,$43,$6C
	DC.B $00,$0F,$83,$3B,$18,$60,$00,$60,$70,$3C,$FF,$F7,$83,$79,$E6,$1E
	DC.B $7B,$63,$03,$06,$40,$CF,$E7,$BE,$FE,$1E,$CF,$DE,$C7,$FE,$3C,$5E
	DC.B $C1,$EC,$DE,$31,$E3,$8C,$D9,$99,$FE,$01,$30,$00,$03,$FF,$3C,$FB
	DC.B $CC,$8F,$3F,$DE,$7F,$B7,$9B,$DF,$3F,$87,$8E,$7C,$E3,$36,$71,$FE
	DC.B $66,$60,$06,$79,$BD,$F8,$6F,$3C,$FB,$EF,$BE,$FB,$EF,$3C,$F3,$EF
	DC.B $7F,$FF,$E6,$F3,$CF,$3C,$F3,$EF,$BE,$F9,$80,$17,$E0,$C1,$76,$00
	DC.B $00,$00,$00,$67,$BE,$6D,$FF,$FE,$67,$2F,$22,$DB,$65,$9F,$BD,$9B
	DC.B $DC,$F1,$EC,$0F,$02,$00,$F9,$9E,$66,$DE,$79,$BE,$7F,$7B,$80,$00
	DC.B $00,$00,$02,$23,$CF,$CC,$00,$00,$00,$00,$00,$02,$00,$00,$07,$80
	DC.B $00,$C0,$00,$00,$00,$00,$00,$00,$00,$00,$00,$C0,$00,$00,$3C,$00
	DC.B $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$30,$00,$00,$00,$00
	DC.B $00,$00,$07,$80,$F0,$3F,$C0,$00,$00,$00,$00,$78,$00,$70,$00,$00
	DC.B $00,$18,$06,$00,$00,$00,$00,$00,$0F,$00,$3F,$C0,$00,$00,$08,$00
	DC.B $00,$00,$00,$00,$00,$00,$02,$00,$00,$00,$00,$00,$00,$00,$00,$00
	DC.B $00,$00,$00,$01,$80,$10,$03,$81,$40,$00,$00,$00,$00,$00,$00,$00
	DC.B $00,$00,$04,$00,$7C,$00,$03,$00,$00,$00,$00,$00,$00,$03,$0C,$00
	DC.B $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$1E,$FF,$FC

* LocTable:
	DC.W $0000	; Char (00)
	DC.W $0000	; Char (01)
	DC.W $0000	; Char (02)
	DC.W $0000	; Char (03)
	DC.W $0000	; Char (04)
	DC.W $0000	; Char (05)
	DC.W $0000	; Char (06)
	DC.W $0000	; Char (07)
	DC.W $0000	; Char (08)
	DC.W $0000	; Char (09)
	DC.W $0000	; Char (0A)
	DC.W $0000	; Char (0B)
	DC.W $0000	; Char (0C)
	DC.W $0000	; Char (0D)
	DC.W $0000	; Char (0E)
	DC.W $0000	; Char (0F)
	DC.W $0000	; Char (10)
	DC.W $0000	; Char (11)
	DC.W $0007	; Char (12)
	DC.W $000E	; Char (13)
	DC.W $0015	; Char (14)
	DC.W $001C	; Char (15)
	DC.W $001C	; Char (16)
	DC.W $001C	; Char (17)
	DC.W $001C	; Char (18)
	DC.W $001C	; Char (19)
	DC.W $001C	; Char (1A)
	DC.W $001C	; Char (1B)
	DC.W $001C	; Char (1C)
	DC.W $001C	; Char (1D)
	DC.W $001C	; Char (1E)
	DC.W $001C	; Char (1F)
	DC.W $001C	; Char (20)
	DC.W $001C	; Char (21)
	DC.W $001E	; Char (22)
	DC.W $0024	; Char (23)
	DC.W $002B	; Char (24)
	DC.W $0032	; Char (25)
	DC.W $0039	; Char (26)
	DC.W $0040	; Char (27)
	DC.W $0042	; Char (28)
	DC.W $0047	; Char (29)
	DC.W $004C	; Char (2A)
	DC.W $0052	; Char (2B)
	DC.W $0058	; Char (2C)
	DC.W $005B	; Char (2D)
	DC.W $0061	; Char (2E)
	DC.W $0063	; Char (2F)
	DC.W $006A	; Char "0"
	DC.W $0070	; Char "1"
	DC.W $0076	; Char "2"
	DC.W $007C	; Char "3"
	DC.W $0082	; Char "4"
	DC.W $0088	; Char "5"
	DC.W $008E	; Char "6"
	DC.W $0094	; Char "7"
	DC.W $009A	; Char "8"
	DC.W $00A0	; Char "9"
	DC.W $00A6	; Char ":"
	DC.W $00A8	; Char ";"
	DC.W $00AB	; Char "<"
	DC.W $00B0	; Char "="
	DC.W $00B6	; Char ">"
	DC.W $00BB	; Char "?"
	DC.W $00C1	; Char "@"
	DC.W $00C8	; Char "A"
	DC.W $00CE	; Char "B"
	DC.W $00D4	; Char "C"
	DC.W $00DA	; Char "D"
	DC.W $00E0	; Char "E"
	DC.W $00E5	; Char "F"
	DC.W $00EA	; Char "G"
	DC.W $00F0	; Char "H"
	DC.W $00F6	; Char "I"
	DC.W $00FA	; Char "J"
	DC.W $0100	; Char "K"
	DC.W $0107	; Char "L"
	DC.W $010D	; Char "M"
	DC.W $0114	; Char "N"
	DC.W $011A	; Char "O"
	DC.W $0120	; Char "P"
	DC.W $0126	; Char "Q"
	DC.W $012C	; Char "R"
	DC.W $0132	; Char "S"
	DC.W $0138	; Char "T"
	DC.W $013E	; Char "U"
	DC.W $0144	; Char "V"
	DC.W $014B	; Char "W"
	DC.W $0153	; Char "X"
	DC.W $0159	; Char "Y"
	DC.W $015F	; Char "Z"
	DC.W $0165	; Char "["
	DC.W $0169	; Char "\"
	DC.W $0170	; Char "]"
	DC.W $0174	; Char "^"
	DC.W $017A	; Char "_"
	DC.W $0182	; Char "`"
	DC.W $0185	; Char "a"
	DC.W $018B	; Char "b"
	DC.W $0191	; Char "c"
	DC.W $0197	; Char "d"
	DC.W $019D	; Char "e"
	DC.W $01A3	; Char "f"
	DC.W $01A8	; Char "g"
	DC.W $01AE	; Char "h"
	DC.W $01B4	; Char "i"
	DC.W $01B8	; Char "j"
	DC.W $01BD	; Char "k"
	DC.W $01C3	; Char "l"
	DC.W $01C7	; Char "m"
	DC.W $01CF	; Char "n"
	DC.W $01D5	; Char "o"
	DC.W $01DB	; Char "p"
	DC.W $01E1	; Char "q"
	DC.W $01E7	; Char "r"
	DC.W $01EC	; Char "s"
	DC.W $01F2	; Char "t"
	DC.W $01F8	; Char "u"
	DC.W $01FE	; Char "v"
	DC.W $0205	; Char "w"
	DC.W $020D	; Char "x"
	DC.W $0213	; Char "y"
	DC.W $0219	; Char "z"
	DC.W $021F	; Char "{"
	DC.W $0225	; Char "|"
	DC.W $0227	; Char "}"
	DC.W $022D	; Char "~"
	DC.W $0235	; Char (7F)
	DC.W $0235	; Char (80)
	DC.W $023B	; Char (81)
	DC.W $0241	; Char (82)
	DC.W $0247	; Char (83)
	DC.W $024C	; Char (84)
	DC.W $0253	; Char (85)
	DC.W $0259	; Char (86)
	DC.W $025F	; Char (87)
	DC.W $0265	; Char (88)
	DC.W $026B	; Char (89)
	DC.W $0271	; Char (8A)
	DC.W $0277	; Char (8B)
	DC.W $027D	; Char (8C)
	DC.W $0283	; Char (8D)
	DC.W $0289	; Char (8E)
	DC.W $028F	; Char (8F)
	DC.W $0295	; Char (90)
	DC.W $029B	; Char (91)
	DC.W $02A1	; Char (92)
	DC.W $02A5	; Char (93)
	DC.W $02A9	; Char (94)
	DC.W $02AD	; Char (95)
	DC.W $02B1	; Char (96)
	DC.W $02B7	; Char (97)
	DC.W $02BD	; Char (98)
	DC.W $02C3	; Char (99)
	DC.W $02C9	; Char (9A)
	DC.W $02CF	; Char (9B)
	DC.W $02D5	; Char (9C)
	DC.W $02DB	; Char (9D)
	DC.W $02E1	; Char (9E)
	DC.W $02E7	; Char (9F)
	DC.W $02ED	; Char (A0)
	DC.W $02F3	; Char (A1)
	DC.W $02F8	; Char (A2)
	DC.W $02FD	; Char (A3)
	DC.W $0304	; Char (A4)
	DC.W $030A	; Char (A5)
	DC.W $030D	; Char (A6)
	DC.W $0312	; Char (A7)
	DC.W $0318	; Char (A8)
	DC.W $031E	; Char (A9)
	DC.W $0323	; Char (AA)
	DC.W $032C	; Char (AB)
	DC.W $032F	; Char (AC)
	DC.W $0333	; Char (AD)
	DC.W $0339	; Char (AE)
	DC.W $0341	; Char (AF)
	DC.W $0348	; Char (B0)
	DC.W $034F	; Char (B1)
	DC.W $0355	; Char (B2)
	DC.W $035A	; Char (B3)
	DC.W $035F	; Char (B4)
	DC.W $0365	; Char (B5)
	DC.W $036B	; Char (B6)
	DC.W $0371	; Char (B7)
	DC.W $0377	; Char (B8)
	DC.W $037E	; Char (B9)
	DC.W $0385	; Char (BA)
	DC.W $038B	; Char (BB)
	DC.W $0391	; Char (BC)
	DC.W $0397	; Char (BD)
	DC.W $039D	; Char (BE)
	DC.W $03A7	; Char (BF)
	DC.W $03AE	; Char (C0)
	DC.W $03B4	; Char (C1)
	DC.W $03B6	; Char (C2)
	DC.W $03BC	; Char (C3)
	DC.W $03C4	; Char (C4)
	DC.W $03CA	; Char (C5)
	DC.W $03D0	; Char (C6)
	DC.W $03D5	; Char (C7)
	DC.W $03DD	; Char (C8)
	DC.W $03E5	; Char (C9)
	DC.W $03ED	; Char (CA)
	DC.W $03ED	; Char (CB)
	DC.W $03F3	; Char (CC)
	DC.W $03F9	; Char (CD)
	DC.W $0400	; Char (CE)
	DC.W $0408	; Char (CF)
	DC.W $0412	; Char (D0)
	DC.W $0415	; Char (D1)
	DC.W $041C	; Char (D2)
	DC.W $0422	; Char (D3)
	DC.W $0428	; Char (D4)
	DC.W $042B	; Char (D5)
	DC.W $042E	; Char (D6)
	DC.W $0433	; Char (D7)
	DC.W $043A	; Char (D8)
	DC.W $0440	; Char (D9)
	DC.W $0440	; Char (DA)
	DC.W $0440	; Char (DB)
	DC.W $0440	; Char (DC)
	DC.W $0440	; Char (DD)
	DC.W $0440	; Char (DE)
	DC.W $0440	; Char (DF)
	DC.W $0440	; Char (E0)
	DC.W $0440	; Char (E1)
	DC.W $0440	; Char (E2)
	DC.W $0440	; Char (E3)
	DC.W $0440	; Char (E4)
	DC.W $0440	; Char (E5)
	DC.W $0440	; Char (E6)
	DC.W $0440	; Char (E7)
	DC.W $0440	; Char (E8)
	DC.W $0440	; Char (E9)
	DC.W $0440	; Char (EA)
	DC.W $0440	; Char (EB)
	DC.W $0440	; Char (EC)
	DC.W $0440	; Char (ED)
	DC.W $0440	; Char (EE)
	DC.W $0440	; Char (EF)
	DC.W $0440	; Char (F0)
	DC.W $0440	; Char (F1)
	DC.W $0440	; Char (F2)
	DC.W $0440	; Char (F3)
	DC.W $0440	; Char (F4)
	DC.W $0440	; Char (F5)
	DC.W $0440	; Char (F6)
	DC.W $0440	; Char (F7)
	DC.W $0440	; Char (F8)
	DC.W $0440	; Char (F9)
	DC.W $0440	; Char (FA)
	DC.W $0440	; Char (FB)
	DC.W $0440	; Char (FC)
	DC.W $0440	; Char (FD)
	DC.W $0440	; Char (FE)
	DC.W $0440	; Char (FF)
	DC.W $0447	; Missing Symbol
	DC.W $044E	; Total Width in Pixels

* OWTable:
	DC.W $FFFF	; Char (00)
	DC.W $FFFF	; Char (01)
	DC.W $FFFF	; Char (02)
	DC.W $FFFF	; Char (03)
	DC.W $FFFF	; Char (04)
	DC.W $FFFF	; Char (05)
	DC.W $FFFF	; Char (06)
	DC.W $FFFF	; Char (07)
	DC.W $FFFF	; Char (08)
	DC.W $0104	; Char (09)
	DC.W $FFFF	; Char (0A)
	DC.W $FFFF	; Char (0B)
	DC.W $FFFF	; Char (0C)
	DC.W $0104	; Char (0D)
	DC.W $FFFF	; Char (0E)
	DC.W $FFFF	; Char (0F)
	DC.W $FFFF	; Char (10)
	DC.W $0008	; Char (11)
	DC.W $0008	; Char (12)
	DC.W $0008	; Char (13)
	DC.W $0109	; Char (14)
	DC.W $FFFF	; Char (15)
	DC.W $FFFF	; Char (16)
	DC.W $FFFF	; Char (17)
	DC.W $FFFF	; Char (18)
	DC.W $FFFF	; Char (19)
	DC.W $FFFF	; Char (1A)
	DC.W $FFFF	; Char (1B)
	DC.W $FFFF	; Char (1C)
	DC.W $FFFF	; Char (1D)
	DC.W $FFFF	; Char (1E)
	DC.W $FFFF	; Char (1F)
	DC.W $0004	; Char (20)
	DC.W $0206	; Char (21)
	DC.W $0108	; Char (22)
	DC.W $0008	; Char (23)
	DC.W $0008	; Char (24)
	DC.W $0008	; Char (25)
	DC.W $0109	; Char (26)
	DC.W $0206	; Char (27)
	DC.W $0107	; Char (28)
	DC.W $0107	; Char (29)
	DC.W $0007	; Char (2A)
	DC.W $0108	; Char (2B)
	DC.W $0105	; Char (2C)
	DC.W $0108	; Char (2D)
	DC.W $0104	; Char (2E)
	DC.W $0008	; Char (2F)
	DC.W $0108	; Char "0"
	DC.W $0108	; Char "1"
	DC.W $0108	; Char "2"
	DC.W $0108	; Char "3"
	DC.W $0108	; Char "4"
	DC.W $0108	; Char "5"
	DC.W $0108	; Char "6"
	DC.W $0108	; Char "7"
	DC.W $0108	; Char "8"
	DC.W $0108	; Char "9"
	DC.W $0104	; Char ":"
	DC.W $0105	; Char ";"
	DC.W $0107	; Char "<"
	DC.W $0108	; Char "="
	DC.W $0107	; Char ">"
	DC.W $0108	; Char "?"
	DC.W $0008	; Char "@"
	DC.W $0108	; Char "A"
	DC.W $0108	; Char "B"
	DC.W $0108	; Char "C"
	DC.W $0108	; Char "D"
	DC.W $0107	; Char "E"
	DC.W $0107	; Char "F"
	DC.W $0108	; Char "G"
	DC.W $0108	; Char "H"
	DC.W $0208	; Char "I"
	DC.W $0108	; Char "J"
	DC.W $0109	; Char "K"
	DC.W $0108	; Char "L"
	DC.W $0109	; Char "M"
	DC.W $0108	; Char "N"
	DC.W $0108	; Char "O"
	DC.W $0108	; Char "P"
	DC.W $0108	; Char "Q"
	DC.W $0108	; Char "R"
	DC.W $0108	; Char "S"
	DC.W $0108	; Char "T"
	DC.W $0108	; Char "U"
	DC.W $0109	; Char "V"
	DC.W $0009	; Char "W"
	DC.W $0108	; Char "X"
	DC.W $0108	; Char "Y"
	DC.W $0108	; Char "Z"
	DC.W $0106	; Char "["
	DC.W $0008	; Char "\"
	DC.W $0106	; Char "]"
	DC.W $0108	; Char "^"
	DC.W $0008	; Char "_"
	DC.W $0105	; Char "`"
	DC.W $0108	; Char "a"
	DC.W $0108	; Char "b"
	DC.W $0108	; Char "c"
	DC.W $0108	; Char "d"
	DC.W $0108	; Char "e"
	DC.W $0107	; Char "f"
	DC.W $0108	; Char "g"
	DC.W $0108	; Char "h"
	DC.W $0106	; Char "i"
	DC.W $0107	; Char "j"
	DC.W $0108	; Char "k"
	DC.W $0208	; Char "l"
	DC.W $0009	; Char "m"
	DC.W $0108	; Char "n"
	DC.W $0108	; Char "o"
	DC.W $0108	; Char "p"
	DC.W $0108	; Char "q"
	DC.W $0107	; Char "r"
	DC.W $0108	; Char "s"
	DC.W $0108	; Char "t"
	DC.W $0108	; Char "u"
	DC.W $0109	; Char "v"
	DC.W $0009	; Char "w"
	DC.W $0108	; Char "x"
	DC.W $0108	; Char "y"
	DC.W $0108	; Char "z"
	DC.W $0108	; Char "{"
	DC.W $0206	; Char "|"
	DC.W $0108	; Char "}"
	DC.W $0009	; Char "~"
	DC.W $0001	; Char (7F)
	DC.W $0108	; Char (80)
	DC.W $0108	; Char (81)
	DC.W $0108	; Char (82)
	DC.W $0107	; Char (83)
	DC.W $0109	; Char (84)
	DC.W $0108	; Char (85)
	DC.W $0108	; Char (86)
	DC.W $0108	; Char (87)
	DC.W $0108	; Char (88)
	DC.W $0108	; Char (89)
	DC.W $0108	; Char (8A)
	DC.W $0108	; Char (8B)
	DC.W $0108	; Char (8C)
	DC.W $0108	; Char (8D)
	DC.W $0108	; Char (8E)
	DC.W $0108	; Char (8F)
	DC.W $0108	; Char (90)
	DC.W $0108	; Char (91)
	DC.W $0106	; Char (92)
	DC.W $0106	; Char (93)
	DC.W $0106	; Char (94)
	DC.W $0106	; Char (95)
	DC.W $0108	; Char (96)
	DC.W $0108	; Char (97)
	DC.W $0108	; Char (98)
	DC.W $0108	; Char (99)
	DC.W $0108	; Char (9A)
	DC.W $0108	; Char (9B)
	DC.W $0108	; Char (9C)
	DC.W $0108	; Char (9D)
	DC.W $0108	; Char (9E)
	DC.W $0108	; Char (9F)
	DC.W $0108	; Char (A0)
	DC.W $0107	; Char (A1)
	DC.W $0107	; Char (A2)
	DC.W $0008	; Char (A3)
	DC.W $0108	; Char (A4)
	DC.W $0207	; Char (A5)
	DC.W $0107	; Char (A6)
	DC.W $0108	; Char (A7)
	DC.W $0108	; Char (A8)
	DC.W $0107	; Char (A9)
	DC.W $010B	; Char (AA)
	DC.W $0207	; Char (AB)
	DC.W $0106	; Char (AC)
	DC.W $0108	; Char (AD)
	DC.W $010A	; Char (AE)
	DC.W $0109	; Char (AF)
	DC.W $0008	; Char (B0)
	DC.W $0108	; Char (B1)
	DC.W $0107	; Char (B2)
	DC.W $0107	; Char (B3)
	DC.W $0108	; Char (B4)
	DC.W $0108	; Char (B5)
	DC.W $0108	; Char (B6)
	DC.W $0108	; Char (B7)
	DC.W $0008	; Char (B8)
	DC.W $0008	; Char (B9)
	DC.W $0108	; Char (BA)
	DC.W $0108	; Char (BB)
	DC.W $0108	; Char (BC)
	DC.W $0108	; Char (BD)
	DC.W $010C	; Char (BE)
	DC.W $0109	; Char (BF)
	DC.W $0108	; Char (C0)
	DC.W $0206	; Char (C1)
	DC.W $0108	; Char (C2)
	DC.W $0008	; Char (C3)
	DC.W $0108	; Char (C4)
	DC.W $0108	; Char (C5)
	DC.W $0107	; Char (C6)
	DC.W $0008	; Char (C7)
	DC.W $0008	; Char (C8)
	DC.W $0008	; Char (C9)
	DC.W $0304	; Char (CA)
	DC.W $0108	; Char (CB)
	DC.W $0108	; Char (CC)
	DC.W $0109	; Char (CD)
	DC.W $010A	; Char (CE)
	DC.W $010C	; Char (CF)
	DC.W $0105	; Char (D0)
	DC.W $0008	; Char (D1)
	DC.W $0108	; Char (D2)
	DC.W $0108	; Char (D3)
	DC.W $0105	; Char (D4)
	DC.W $0105	; Char (D5)
	DC.W $0107	; Char (D6)
	DC.W $0008	; Char (D7)
	DC.W $0108	; Char (D8)
	DC.W $FFFF	; Char (D9)
	DC.W $FFFF	; Char (DA)
	DC.W $FFFF	; Char (DB)
	DC.W $FFFF	; Char (DC)
	DC.W $FFFF	; Char (DD)
	DC.W $FFFF	; Char (DE)
	DC.W $FFFF	; Char (DF)
	DC.W $FFFF	; Char (E0)
	DC.W $FFFF	; Char (E1)
	DC.W $FFFF	; Char (E2)
	DC.W $FFFF	; Char (E3)
	DC.W $FFFF	; Char (E4)
	DC.W $FFFF	; Char (E5)
	DC.W $FFFF	; Char (E6)
	DC.W $0001	; Char (E7)
	DC.W $FFFF	; Char (E8)
	DC.W $FFFF	; Char (E9)
	DC.W $FFFF	; Char (EA)
	DC.W $FFFF	; Char (EB)
	DC.W $FFFF	; Char (EC)
	DC.W $FFFF	; Char (ED)
	DC.W $FFFF	; Char (EE)
	DC.W $FFFF	; Char (EF)
	DC.W $FFFF	; Char (F0)
	DC.W $FFFF	; Char (F1)
	DC.W $FFFF	; Char (F2)
	DC.W $FFFF	; Char (F3)
	DC.W $FFFF	; Char (F4)
	DC.W $0001	; Char (F5)
	DC.W $FFFF	; Char (F6)
	DC.W $FFFF	; Char (F7)
	DC.W $0001	; Char (F8)
	DC.W $FFFF	; Char (F9)
	DC.W $0001	; Char (FA)
	DC.W $FFFF	; Char (FB)
	DC.W $FFFF	; Char (FC)
	DC.W $FFFF	; Char (FD)
	DC.W $FFFF	; Char (FE)
	DC.W $0008	; Char (FF)
	DC.W $0008	; Missing Symbol
	DC.W $FFFF	; End of Table - (often -1)


	ENDP

	end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/QD/init.asm b/IIGS.601.SRC/GSToolbox/QD/init.asm
new file mode 100644
index 0000000..2a79a0b
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/QD/init.asm
@@ -0,0 +1 @@
+	title 'QD INIT              GS ROM 3.0'
****************************************************************
*			   *
*              Init			   *
*			   *
****************************************************************


****************************************************************
*			   *
*	Copyright (C) 1985-1989	   *
*	All Rights Reserved		   *
*	Apple Computer, Inc.	   *
*			   *
****************************************************************

	include 'all.macros'


	INCLUDE ':QDEquates:core.globals1'
	INCLUDE ':QDEquates:core.globals2'
	INCLUDE ':QDEquates:region.equs'

	INCLUDE ':QDEquates:qd.data.asm'
	
	include '::sys.equs.asm'
	
	include 'e16.memory'

TheCoreVersion	equ $0300	; real version 3.0

	MACRO
&lab	PushPtr &addr
&lab
	dc.B $F4
	dc.W (&addr)>>16
	dc.B $F4
	dc.W &addr
	MEND



****************************************************************
*
* CoreBootInit
*
* Installs the address of update cursor	in the update
* cursor vector of bank E1.
*
****************************************************************
	EXPORT CoreBootInit
CoreBootInit	PROC

	PushWord #CurUpdateRefNum	; install pointer to update
	PushPtr UpdateCursor 	; cursor routine
	_SetVector

	PushLong #E0Vectors		; copy internal vectors to bank E0
	pea $00E0
	pea $1E00
	PushLong #$1FC		; TheE0VEnd-TheE0VStart
	_BlockMove

	jmp oEndCall0

	ENDP


****************************************************************
*
* CoreApInit	(ZPToUse : word;
*	 MasterSCB : word;
*	 MaxWidth : word;
*	 ApID : word);
*
*
* Modifications
*
*     April 8, 1986	   I now check for errors correctly after
*	   GetTextHandle.
*
*     April 30, 1986   I finally handle	the special case where
*	   MaxWidth is a 0 on entry.  Also the clip buffer
*	   sizing is now a subroutine that can be called
*	   from SetMaxWidth.  This way the buffer can be
*	   changed.
*
*     May 2, 1986	   I now do text buffer sizing directly	since
*	   it is not automatic in my OpenPort and SetPort
*
*     Dec 23, 1986	   Code clean up and compression.
*
*     2/17/88   GCP	   changed zero loop to clear third zero page
*
*     2/1/89 Mensch	Added Bitflag support for the top byte of the
*	MasterSCB flag. These flags can be used to select
*	various quickdraw options that we couldn't use before.
*
****************************************************************
	EXPORT CoreApInit
CoreApInit	PROC

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
TheUserID	equ RTL2+3
TheMaxWidth	equ TheUserID+2
TheMasterSCB	equ TheMaxWidth+2
PtrToZP	equ TheMasterSCB+2

; New MasterSCB Equates we can use
UseShadow	equ $8000
HiddenSpeed	equ $4000
Avail1	equ $2000
Avail2	equ $1000

	jsl IncBusyFlg

;-----------------------------------------------
;
; See if the last user has shut down.
;
	cmp #0
	beq continue

	ldx #AlreadyInitialized
	jmp oBusyErr8

;-----------------------------------------------
;
; Set up my entry in WAP

continue		; 

	phd	; save direct

	lda PtrToZP,s

	PushWord #0	; Not a user call
	PushWord #TSNumber	; Put TSNum on stack

	PushWord #0	; High word is zero
	pha	; low word is in a

	_SetWAP


;-----------------------------------------------
;
; Move important values to zero page

	lda PtrToZP,s	; initialize some stuff
	tcd

;-------------------------------------------------
;
; But first initialize it to zero.  (This is
; important for handles so that those not allocated
; in an errant attempt to startup are not disposed
; of illegally!
;
	ldx #0
ZeroLoop	stz 0,x
	inx
	inx
	cpx #768
	bcc ZeroLoop


	lda TheMaxWidth,s	; zero is special number that I fix
	cmp #0
	bne UseThisOne
	lda #160
UseThisOne	sta MaxWidth
	lda TheMasterSCB,s
	sta MasterSCB
	lda TheUserID,s
	sta UserID

;-----------------------------------------------
;
; reserve the super	hi-res screen so that
; no one else will get it.
;

	pha	; space for handle
	pha
	PushLong #$8000	; size of screen
	pei UserID
	PushWord #$C002	; fixed location, locked
	pea $00E1
	pea $2000
	jsl NewHandleGlue
	bcc GotScreen

	pla
	pla
	lda #ScreenReserved
	jmp CannotInitialize




GotScreen		; 
	ldx #256	; save this for later
	pla
	sta ScreenHandle,x
	pla
	sta ScreenHandle+2,x

;
; EXP 1/25/89 see if we can allocate the shadowed screen, if so, do it!
; EXPERIMENT 1 aprox 10% speed increase
	ldx #512	; switch to qd dpage 2
	lda MasterSCB	; get the passed flags from the top of MasterSCB
	and #$4000	; strip off the high bit 14 ...
	beq @NoDirty
	lda #$8000
@NoDirty	sta <DirtyDPFlags,x	; and save this value...

	lda MasterSCB
	bpl EXP0020	; if carry clear, no shadowing!
	
	pha	; space for handl
	pha
	PushLong #$8000	; size of screen
	pei UserID
	PushWord #$C002	; fixed location, locked
	pea $0001
	pea $2000
	jsl NewHandleGlue
	pla	; discard trhis handle for now...
	plx
	bcs EXP0010	; if an error, then we didn't allocate Shadow screen
	
; If we get this far, we have allocated a shadowed screen and we should now set
; the shadowing bit on for the SHR screen.
	sep #$20	; turn off long <A>
	longA Off
	lda >$E0C035	; load the shadow register
	and #$F7	; reset bit 3...
	sta >$E0C035	; and resave it!
	longA On
	REP #$20	; and turn back on long <A>
	bra EXP0020
EXP0010	
; Shadowing didn't get allocated, lets change our bitflags here
	lda MasterSCB
	and #$7FFF	; strip off the shadow flag
	sta MasterSCB	; to indicate we are not using shadowing.
EXP0020
;
; END of Experiment!

;-----------------------------------------------
;
; Turn linearization on

	sep #%00100000	; 8 bit a-reg
	longa off
	lda >NewVideo
	ora #$40	; only linearize first
	sta >NewVideo
	rep #%00100000	; back to 16 bits
	longa on


;-----------------------------------------------
;
; Call bennet to initialize the Text Buffer Handle
;
	jsl GetTextHandle
	bcc GotText

	jmp CannotInitialize


GotText		; 
;-----------------------------------------------
;
; Init the SCB's and color table
;

; 2/1/89 Mensch
; Added new flags on the top of the MasterSCB variable.
; Must strip them off before we use them here.

	lda MasterSCB
	and #$00FF	; strip off QD flags
	pha	
	_SetAllSCBs

	pea FirstTable>>16
	pea FirstTable**$FFFF
	_InitColorTable


;-----------------------------------------------
;
; Init the cursor and clear the screen to
; black.

	jsl InitCursor
	cmp #0
	beq DidCursor

	jmp CannotInitialize


DidCursor		; 
	PushWord #0	; clear the screen to black
	_ClearScreen


;-------------------------------------------------
;
; Setup  the current system font on zero page.
;
	ldx #256
	lda #SystemFont
	sta SysFont,x
	lda #^SystemFont
	sta SysFont+2,x

;-----------------------------------------------
;
; Get space for the	things we need.

	lda #10280	; size of handle
	ldx UserID	; userid to use
	ldy #$0300	; attributes
	jsr SpecialNewHandle
	bcc GotCache

	jmp CannotInitialize
GotCache		; ;low word is in x, high word in y
	txa	; need x for indexing
	ldx #$02F4	; third zero page of qd
	sta 0,x
	sty 2,x



;-----------------------------------------------------------
;
; Get the fast font if we can...
;
; MODIFIED TEMP
	import DoFastSetup
	
	tdc
	pha
	pha	; room for result...
	jsl DoFastSetup
	pla
	ply
	bcs @noFastFont
	ldx #256
	sta SysFont,x
	sty SysFont+2,x
	
	ldx #512
	sta FastRomFont,x
	sty FastRomFont+2,x
@NoFastFont



;
; first the initial	graf port.
;
	lda #PortSize	; size of handle
	ldx UserID	; userid to use
	ldy #attrFixed	; attributes
	jsr SpecialNewHandle
	bcc GotPort

	jmp CannotInitialize


GotPort		; 
	stx Temp
	sty Temp+2
	txa
	ldx #256
	sta FirstPortHandle,x ; put a copy of the handle
	tya
	sta FirstPortHandle+2,x
	ldy #2	; deref the handle
	lda [Temp],y
	pha
	lda [Temp]
	pha
	_OpenPort	; make open port call

	bcc PortIsOpen

	jmp CannotInitialize


PortIsOpen		; 
;----------------------------------------------------
;
; We have a port, so now set up the default
; text buffer size.
;
	lda #40
	sta NewMaxFontWidth
	lda #20
	sta NewTBHeight
	stz ForcedFont
	jsl SetTB
	bcc BufIsSized

	jmp CannotInitialize

BufIsSized		; 

	lda MaxWidth
	jsr CalcClipSize

	ldx UserID
	ldy #0
	jsr SpecialNewHandle
	bcc GotBuffer

	jmp CannotInitialize

GotBuffer		; 
	stx BufferHandle
	sty BufferHandle+2

	ldx #256
	lda #1
	sta RandSeed,x
	stz RandSeed+2,x

	_GrafOn


	jmp BusyEC8


CannotInitialize		; 
	sta UserID	;use this to store error code

;-------------------------------------------------
;
; Now I have to unwind, releasing any memory
; I may have successfully obtained before
; failing.
;


	_QDShutdown


	ldx UserID
	jmp BusyErr8



	ENDP



****************************************************************
*
* CalcClipSize
*
* We need a memory for the scan line buffers and
* three region state records.
* It needs to be
*
*    Size = MaxWidth + MaxWidth * 3 * 4	/ 8 +
*              3 * StateRecSize
*
****************************************************************

	EXPORT CalcClipSize
CalcClipSize	PROC

	pha	; put max width on stack

	clc
	adc 1,s
	adc 1,s
	lsr a

	clc
	adc 1,s

	clc
	adc #3*StateRecSize

	plx

	rts


	ENDP



****************************************************************
*
* CoreTerminate
*
* Releases the memory held for scan line buffers, cursor
* save areas, text buffers.
*
* 3/14/89	Mensch
* Fixed up terminate to not dispose of the fastfont...
****************************************************************
	EXPORT CoreTerminate
CoreTerminate	PROC

	cmp #0
	bne Continue
	jmp oEndCall0

Continue	jsr QDStart
	pea #2	; set the purge level to 2
	ldx #512	; on the fastfont...
	lda FastRomFont+2,x
	and #$00FF
	pha
	lda FastRomFont,x
	pha
	_SetPurge
;	jsl DisposeHandleGlue
*
* Deallocate rgn cache memory
*
	ldx #$02F4
	lda 2,x
	pha
	lda 0,x
	pha
	jsl DisposeHandleGlue

;-----------------------------------------------
;
; Close the first port and get rid of the memory
; it is in.
;
	ldx #256
	lda FirstPortHandle+2,x
	pha
	sta temp+2
	lda FirstPortHandle,x
	pha
	sta temp
	lda [temp]
	tax
	ldy #2
	lda [temp],y
	pha
	phx
	_ClosePort
	jsl DisposeHandleGlue

;-----------------------------------------------
;
; Get rid of text buffer
;
	PushLong TextBufHandle
	jsl DisposeHandleGlue


;-----------------------------------------------
;
; Get rid of the buffer memory

	pei BufferHandle+2
	pei BufferHandle
	jsl DisposeHandleGlue

;-----------------------------------------------
; Get rid of shadowed ram here
; test for shadowing enabled, if it is, turn it off and 
; dispose of the screen...
	sep #$20	; turn off long <A>
	longA Off
	lda >$E0C035	; load the shadow register
	and #$08	; set bit 3... (turn screen shadow off)
	bne @NotShadowed
	longA On
	REP #$20	; and turn back on long <A>
	
	pha
	pha
	pea $0001	; find the shadowed screen memory
	pea $2000	; handle, shadowing was on...
	_FindHandle
	_DisposeHandle	; and throw it the hell away..
@NotShadowed
	longA On
	REP #$20
;-----------------------------------------------
;
; Now get rid of screen memory.  Cannot	do a find
; since we could be	called after a startup call
; that was aborted because screen was already
; owned.  We don't want to release someone
; else's memory.
;
	ldx #256
	lda ScreenHandle+2,x
	pha
	lda ScreenHandle,x
	pha
	jsl DisposeHandleGlue

;-----------------------------------------------
;
; Get rid of the memory used by cursor save
;
	jsr CursorShutDown


;-----------------------------------------------
;
; Clear the entry in the WAPT
;
	lda #0	; not a user call (seed the a-reg
	pha	; to save bytes below
	PushWord #TSNumber	; Put TSNum on stack
	pha	; new value is zero	as set above.
	pha
	_SetWAP


;----------------------------------------------------
;
; Turn off graphics	and linearization in bank 1/E1
;
	sep #$30	; go to 8 bit mode
	longa off
	longi off
	lda >NewVideo
	and #%00111111	; turn off graphics	and linearization
	sta >NewVideo
	rep #$30	; go back to 16
	longi on
	longa on

;------------------------------------------------------
; Turn off shadowing for the SHR Screen
;
	sep #$20	; turn off long <A>
	longA Off
	lda >$E0C035	; load the shadow register
	ora #$08	; set bit 3... (turn screen shadow off)
	sta >$E0C035	; and resave it!
	longA On
	REP #$20	; and turn back on long <A>
	
	jmp BusyEC0

	ENDP



****************************************************************
*
* CoreVersion
*
* Returns the version number.
*
*
* Change History
*
* 17 Oct 88	Steven Glass
*
* Added call to youve got to be kidding.
****************************************************************
CoreVersion	PROC EXPORT

	import YouveGotToBeKidding

RTL1	equ 1
RTL2	equ RTL1+3
V	equ RTL2+3

	jsl YouveGotToBeKidding

	jsl GimmeVersion
	sta V,s
	jmp oEndCall0

	EXPORT iGimmeVersion
iGimmeVersion		;       

	lda #TheCoreVersion
	rtl


	ENDP

****************************************************************
*
* CoreReset
*
* Called when reset	is pressed.  I try to shutdown.
*
****************************************************************
	EXPORT CoreReset
CoreReset	PROC

	_QDShutDown	; shutdown everything

	jmp oEndCall0

	ENDP

****************************************************************
*
* QDStatus
*
* Returns TRUE if active, FALSE otherwise.
*
*
****************************************************************
	EXPORT QDStatus
QDStatus	PROC
RTL1	equ 1
RTL2	equ RTL1+3
TheResult	equ RTL2+3

	cmp #0
	beq NotActive

	lda #TRUE
GotIt	sta TheResult,s

	jmp oEndCall0

NotActive	lda #False
	bra GotIt

	ENDP




;                COPY init/CORE.DATA
	EXPORT CoreDATA
CoreDATA	PROC

	EXPORT Port320
Port320		; 
	EXPORT StandardPort
StandardPort		; 

	EXPORT xLocStart
xLocStart	DC.W StandardSCB	; PortSCB
	DC.L $E12000	; ImageRef
	DC.W 160	; Width
	DC.W 0,0,200,320	; BoundsRect
	EXPORT xLocEnd
xLocEnd		; 

	DC.W 0,0,200,320	; PortRect

	DC.L 0	; ClipRef
	DC.L 0	; VisRef

	DC.B $FF	; BkPat
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF

	EXPORT StdPnState
StdPnState	DC.W 0,0	; PnLoc
	DC.W 1,1	; PnSize
	DC.W 0	; PnMode
	DC.B 0	; PnPat
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B 0
	DC.B $FF	; PnMask
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	EXPORT xEndPnState
xEndPnState	DC.W 0	; PnVis


	DC.L SystemFont	; FontHandle
	DC.L 0	; FontID
	DC.W 0	; FontFlags
	DC.W 0	; TxSize
	DC.W 0	; TxFace
	DC.W 0	; TxMode
	DC.L 0	; SpaceExtra is a fixed pt value
	DC.L 0	; CharExtra is a fixed pt value
	DC.W 0	; FGColor
	DC.W $FFFF	; BGColor

	DC.L 0	; PicSave
	DC.L 0	; RgnSave
	DC.L 0	; PolySave
	DC.L 0	; GrafProcs

	DC.W 0	; ArcRot

	DC.L 0	; UserField

	DC.L 0	; SystemField

	EXPORT EndStandardPort
EndStandardPort		; 


	EXPORT Port640
Port640		; 
	DC.W StandardSCB+$80 ; MasterSCB
	DC.L $E12000	; ImageRef
	DC.W 160	; Width
	DC.W 0,0,200,640	; BoundsRect
	DC.W 0,0,200,640	; PortRect



	ENDP





	EXPORT ColorData
ColorData	PROC

	GOTO .table2

; This table provides all eight saturated points of a color
; cube plus 8 move from the sides of the cube for a rich collection
; of colors.  This table was suggested by Mike Potel in ADG.
	EXPORT Table320
Table320	DC.W $0000	; black
	DC.W $0F00	; red
	DC.W $00F0	; green
	DC.W $000F	; blue

	DC.W $0088	; teal
	DC.W $0808	;
	DC.W $0660	; brown

	DC.W $0555	; dark gray
	DC.W $0AAA	; light gray

	DC.W $0F80	; orange
	DC.W $08F8
	DC.W $0F88

	DC.W $0FF0	; Yellow
	DC.W $0F0F	; magneta
	DC.W $00FF	; cyan
	DC.W $0FFF	; white

.table2

; This is Annette Wagners subject color	table.  Chosen because
; she liked the colors.
	EXPORT Table320
Table320	DC.W $0000	; black
	DC.W $0777	; Dark gray
	DC.W $0841	; brown
	DC.W $072C	; purple

	DC.W $000F	; blue
	DC.W $0080	; dark green?
	DC.W $0F70	; orange
	DC.W $0D00	; red

	DC.W $0FA9	; flesh
	DC.W $0FF0	; yellow
	DC.W $00E0	; green
	DC.W $04DF	; light blue

	DC.W $0DAF	; light purple or lilac
	DC.W $078F	; periwinkle blue
	DC.W $0CCC	; light gray
	DC.W $0FFF	; white

	GOTO .there


	EXPORT Table640
Table640	DC.W $0000	; black
	DC.W $0F00	; red
	DC.W $000F	; blue
	DC.W $0FFF	; white

	DC.W $0000	; black
	DC.W $0F00	; red
	DC.W $000F	; blue
	DC.W $0FFF	; white

	DC.W $0000	; black
	DC.W $0F00	; red
	DC.W $000F	; blue
	DC.W $0FFF	; white

	DC.W $0000	; black
	DC.W $0F00	; red
	DC.W $000F	; blue
	DC.W $0FFF	; white

.there
	EXPORT Table640
Table640	DC.W $0000	; black
	DC.W $0F00	; red
	DC.W $00F0	; green
	DC.W $0FFF	; white

	DC.W $0000	; black
	DC.W $000F	; blue
	DC.W $0FF0	; yellow
	DC.W $0FFF	; white

	DC.W $0000	; black
	DC.W $0F00	; red
	DC.W $00F0	; green
	DC.W $0FFF	; white

	DC.W $0000	; black
	DC.W $000F	; blue
	DC.W $0FF0	; yellow
	DC.W $0FFF	; white


	ENDP







	EXPORT QDProcs
QDProcs	PROC
	EXPORT Here
Here		; 

	DC.L StdText-1
	DC.L StdLine-1
	DC.L StdRect-1
	DC.L StdRRect-1
	DC.L StdOval-1
	DC.L StdArc-1
	DC.L StdPoly-1
	DC.L StdRgn-1
	DC.L StdPixels-1
	DC.L StdComment-1
	DC.L StdTxMeas-1
	DC.L StdTxBnds-1
	DC.L StdGetPic-1
	DC.L StdPutPic-1


	ENDP



;                copy init/adv.stuff
****************************************************************
*
* QDStart
*
* This is a local routine that increments the busy flag, saves
* the current direct register on the stack and transfers
* the a register to	the D register.
*
* This is meant to be called at the start of any QD entry point
* that requires zero page and the busy flag to be incremented.
*
* In Doing this we trash the X-Register.  Hopefully this will
* not cause anyone any problems.
*
* We do know that A	and Y must be untouched.  Y for PortWord
* and PortLong.  A for cursor routines that add $100 to A
*
* 2/27/89	Mensch and Konstantine
*
* Squeeze just a few more bytes/cycles out of qdstart
*
****************************************************************
	EXPORT QDStart
QDStart	PROC

	pha
	lda >BusyFlag
	inc a
	sta >BusyFlag
	pla
	phd	; push d on stack
	tcd	; set d
	lda 3,s	; getorig rts
	pha	; put on stack
	lda 3,s	; move orig d to on	top of rts
	sta 5,s
	pla	; pull rts off stack
	sta 1,s	; put over orig d
	tdc	; get QD D back in a
	rts	; done

	ENDP






****************************************************************
*
* TestGPs
*
* Internal routine to move the point to	the grafprocs to
* zero page.  If this pointer is zero, then the carry
* returns clear.  If the pointer is nonzero, the carry
* returns set.
*
* 15 March 89	Mensch
*
* Shave a few more cycles out.!
*
****************************************************************
	EXPORT TestGPs
TestGPs	PROC

	phx
	ldy #o_grafprocs
	lda [PortRef],y
	tax
	ldy #o_grafprocs+2
	ora [PortRef],y
	beq IsZero
	stx temp
	lda [PortRef],y
	sta temp+2
	sec
	plx
	rts

IsZero
	ldx #512
	lda <DirtyDPFlags,x
	ora #NoUserGrafProcs
	sta <DirtyDPFlags,x
	plx
	clc
	rts

	ENDP




****************************************************************
*
* PutPictStuff
*
****************************************************************
	EXPORT iPutPictStuff
iPutPictStuff	PROC

	phx
	ldx #512
	lda <DirtyDPFlags,x
	ora #NoPictRecord
	sta <DirtyDPFlags,x
	plx
	clc
	lda #0
	rtl

	ENDP




****************************************************************
*
* SetStdProcs     (ProcPtr : Ptr);
*
* Sets the record containing pointers to standard procs to
* point to all the standard procs in ROM.
*
****************************************************************
	EXPORT SetStdProcs
SetStdProcs	PROC
RTL1	equ 1
RTL2	equ RTL1+3
ProcPtr	equ RTL2+3

	tsc	; get stack
	phd	; save direct
	tcd	; set direct to stack

	ldy #QDProcSize-2
Loop	tyx
	lda >QDProcs,x
	sta [ProcPtr],y
	dey
	dey
	bpl Loop

	jmp EndCall4

	ENDP



*****************************************************************
*
* WideOpen
*
* This is the default clipping region
*
*****************************************************************
	EXPORT WideOpen
WideOpen	PROC

	DC.L TheRegion
	DS.B 2	; safety for locking
TheRegion	DC.W 10
	DC.W -32767/2,-32767/2,32767/2,32767/2

	ENDP


****************************************************************
*
* GetAddress
*
*            space for result   long
*            id number          word
*
*
****************************************************************
	EXPORT GetAddress
GetAddress	PROC

	import ScreenTable
	import ConTable320
	import ConTable640


RTL1	equ 1
RTL2	equ RTL1+3
IDNumber	equ RTL2+3
ResultSpace	equ IDNumber+2


	lda IDNumber,s
	and #$00FF
	asl a
	asl a
	tax

	lda >MyTable-4,x
	sta ResultSpace,s
	lda >MyTable-4+2,x
	sta ResultSpace+2,s

	jmp oEndCall2

MyTable		; 
	DC.L ScreenTable
	DC.L ConTable320
	DC.L ConTable640

	ENDP


****************************************************************
*
* SetSysFont
*
* Change History
*
* 21 Aug 86    SEG	   This forgot to phd and set tcd so zp
*	   was never right.	 Moreover stack was
*	   trashed on way out.
*
****************************************************************
	EXPORT SetSysFont
SetSysFont	PROC
OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
FontHandle	equ RTL2+3

	jsr QDStart

	ldx #256
	lda FontHandle,s
	sta SysFont,x
	lda FontHandle+2,s
	sta SysFont+2,x

	jmp BusyEC4


	ENDP

****************************************************************
*
* GetSysFont
*
****************************************************************
	EXPORT GetSysFont
GetSysFont	PROC
OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
ResultHandle	equ RTL2+3


	jsr QDStart

	ldx #256
	lda SysFont,x
	sta ResultHandle,s
	lda SysFont+2,x
	sta ResultHandle+2,s

	jmp BusyEC0


	ENDP


****************************************************************
*
* SetBufDims
*
*        MaxWidth :	integer
*        MaxFontHeight : integer
*        MaxFontWidth : integer
*
* This routine forces the resizing of all of QuickDraw's
* internal buffers:	the ClipBuffer and the text buffer.
*
* Modification History
*
* May 9, 1986    This used to be SetMaxWidth and there separate
*                text buffer sizing calls.  Since the two are
*                interrelated, it is now one call.
*
****************************************************************
	EXPORT SetBufDims
SetBufDims	PROC

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
sMaxFontWidth	equ RTL2+3
sMaxFontHeight	equ sMaxFontWidth+2
sMaxWidth	equ sMaxFontHeight+2

	jsr QDStart

	stz ForcedFont	; zero the indicator of force

	EXPORT JoinBufStuff
JoinBufStuff		;       

	lda sMaxWidth,s

	jsr CalcClipSize

	pea 0
	pha
	pei BufferHandle+2
	pei BufferHandle
	_SetHandleSize

	bcc noerror1
AnError	tax
	jmp BusyErr6

noerror1	lda sMaxWidth,s
	sta MaxWidth

	lda sMaxFontWidth,s
	sta NewMaxFontWidth
	lda sMaxFontHeight,s
	sta NewTBHeight

	jsl SetTB
	bcs AnError

	lda sMaxWidth,s
	sta MaxWidth

	jmp BusyEC6

	ENDP

****************************************************************
*
* ForceBufDims
*
*        MaxWidth :	integer
*        MaxFontHeight : integer
*        MaxFontWidth : integer
*
* This routine forces the resizing of all of QuickDraw's
* internal buffers:	the ClipBuffer and the text buffer.
* The text buffer sizing is done as force.
*
* Modification History
*
* May 9, 1986    See notes above
*
****************************************************************
	EXPORT ForceBufDims
ForceBufDims	PROC

	jsr QDStart

	lda #$8000
	sta ForcedFont

	bra JoinBufStuff

	ENDP




****************************************************************
*
* SaveBufDims
*
*     TBRecPtr    pointer
*
* 8 bytes of information on sizing the quick draw text buffers
* is moved from here to the users buffer.  This information
* can restore the current state when passed back with
* RestoreBufDims
*
****************************************************************
	EXPORT SaveBufDims
SaveBufDims	PROC

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
TBRecPtr	equ RTL2+3

	jsr QDStart

	lda TBRecPtr,s
	sta temp
	lda TBRecPtr+2,s
	sta temp+2

	lda MaxWidth	; first put the MaxWidth
	sta [temp]

	lda textBufHeight	; second the text buf height
	ldy #2
	sta [temp],y

	lda textBufRowWords	; next the textBufRowWords
	iny
	iny
	sta [temp],y

	ldx #256	; finally the FontWidth from
	lda FontWidth,x	; second zero page.
	iny
	iny
	sta [temp],y

	jmp BusyEC4


	ENDP


****************************************************************
*
* RestoreBufDims
*
*     TBRecPtr    pointer
*
* Using 8 bytes of information in the record pointed to above,
* QuickDraw resizes	its buffers.
*
* The eight bytes are arranged as follows:
*
*       MaxWidth
*       TextBufHeight
*       TextBufRowWords
*       FontWidth
*
****************************************************************
	EXPORT RestoreBufDims
RestoreBufDims	PROC


OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
TBRecPtr	equ RTL2+3

	jsr QDStart

	lda TBRecPtr,s
	sta temp
	lda TBRecPtr+2,s
	sta temp+2

	lda [temp]	; using MaxWidth, calc the
	jsr CalcClipSize	; right buffer size.

	pea 0	; resize the handle
	pha
	pei BufferHandle+2
	pei BufferHandle
	_SetHandleSize
	bcc NoError1

	tax	; an error occured so quit
	jmp BusyErr4

NoError1		; 

;----------------------------------------------------
;
; Now put the working MaxWidth on ZP and
; resize the text buffer.
;
	lda [temp]	; get the MaxWidth
	sta MaxWidth

	ldy #2	; get the textBufHeight
	lda [temp],y
	sta NewTBHeight

	iny	; get the textBufRowWords
	iny
	lda [temp],y
	sta NewTBRowWords

	iny	; get the FontWidth	indicator
	iny
	lda [temp],y
	sta NewFontWidth

	jsl ResetTB	; this call changes	the text buffer
	bcc NoError2	; and sets the params if successful

	tax	; return the error and don't
	jmp BusyErr4


NoError2	jmp BusyEC4




	ENDP



E0Vectors	PROC

	ENTRY TheE0Vstart
TheE0Vstart		; 


	jml >$000000	; toStuff

	jml iStdText
	jml iStdLine
	jml iStdRect
	jml iStdRRect
	jml iStdOval
	jml iStdArc
	jml iStdPoly
	jml iStdRgn
	jml iStdPixels
	jml NotImp
	jml iStdTxMeas
	jml iStdTxBnds
	jml NotImp
	jml NotImp


	jml iPortLoc2ZP
	jml iUserPat2ZP
	jml iGetPenPReady
	jml iGetBackPReady
	jml iPen2ZP
	jml iBack2ZP
	jml iRotatePat
	jml iGetMaskReady
	jml iMask2ZP
	jml iExpandMask
	jml iRotatemask
	jml iRotateLong
	jml iPreDraw
	jml iXSetup

	jml iDrawRectB
	jml iDrawRect
	jml iSliceSetup
		; these are not used internally!
	jml ShiftStay	; because I don't want to slow
		; things down.  They are provide
	jml XShiftStay	; so that outside routines can use them
	jml ShiftOut
	jml XShiftOut

	jml iBMakeMinRect
	jml iMakeMinRect
	jml iShieldCursor
	jml iUnShieldCursor
	jml iSetUpPortRegions
	jml iSetUpScanPtrs
	jml iFreePortRegions
	jml iFree1Region
	jml iFree2Regions
	jml iFree3Regions
		; changed 10 Mar 87	SEG (used to be
	jml iGetFGS	; UnlockBufferHandle--who knows why?)
	jml iInit1Region
	jml iInit2Regions
	jml iInit3Regions
	jml iSeek1Region
	jml iSeek2Regions
	jml iSeek3Regions
	jml iInitRgn
	jml iSeekRgn
	jml iJoin1Buffer
	jml iJoin2Buffers
	jml iJoin3Buffers

	jml iSetSlabAdr
	jml iSetSliceAdr
	jml iSetStuffAdr


	jml iBlowItUp

	jml iPutPictStuff
	jml iAddToPoly

	jml iOpenPicture
	jml iPicComment
	jml iClosePicture
	jml iDrawPicture
	jml iKillPicture

	jml iGimmeVersion

	jml FrRgn
	jml PRgn
	jml ERgn
	jml IRgn
	jml FRgn
	jml FrRect
	jml PRect
	jml ERect
	jml IRect
	jml FRect


	jml iDChar
	jml iDText
	jml iBChar
	jml iBText
	jml iValidChar
	jml iGetNextChar
	jml iCalcDrawStatus
	jml iTextAndMinRect
	jml iCalcTextBounds
	jml iSetUpFontInfo
	jml iSetUpBufInfo
	jml iGetTextHandle
	jml iClearBufPart
	jml iPutChar
	jml iBumpPen
	jml iCleanUpBuffer


	jml iPutLine
	jml iPutRgn
	jml iPutRect
	jml iCullPoints
	jml iSortPoints
	jml iPackRgn
	jml iRgnOp

	jml iPutOval
	jml iBumpOval
	jml iInitOval

	jml iSetTB
	jml iResetTB

	jml iStyleText
	jml iStyleExtents
	jml iDoBold
	jml iDoUnderLine

	jml iStdConic
	jml iDrawConic
	jml iSetScaleAndMap
	jml iDrawCursor
	jml iUndrawCursor
	jml iAngleFromSlope
	jml iSlopeFromAngle

	jml iRgnBlt
	jml iSharedMRSetup
	jml iShareShieldStuff

	jml iGetCharVals
	jml iDoFntFlgMods
	jml iAddExtras
	jml iCalcSlop

	jml iGetFntInf

	Entry TheE0Vend
TheE0VEnd


	ENDP




;                copy init/pictures
****************************************************************
*
* OpenPicture
*
*       space for output   PicHandle : long
*	       PicFrame  : long
*
*
****************************************************************
	EXPORT iOpenPicture
iOpenPicture	PROC
	jmp oEndCall4
	ENDP


****************************************************************
*
* PicComment
*
*       Kind     : word
*       size     : word
*       datahandle : handle
*
****************************************************************
	EXPORT iPicComment
iPicComment	PROC
	jmp oEndCall8
	ENDP


****************************************************************
*
* ClosePicture
*
****************************************************************
	EXPORT iClosePicture
iClosePicture	PROC
	jmp oEndCall0
	ENDP


****************************************************************
*
* DrawPicture
*
*            Pic	  : PicHandle
*            DestRect : rectPtr  
*
****************************************************************
	EXPORT iDrawPicture
iDrawPicture	PROC
	jmp oEndCall8
	ENDP


****************************************************************
*
* KillPicture
*
*        PicHandle : handle
*
****************************************************************
	EXPORT iKillPicture
iKillPicture	PROC
	jmp oEndCall4
	ENDP
;                copy init/glue
****************************************************************
*
* NewHandleGlue
*
* This small routine makes the new handle call in a way that
* saves space.
*
****************************************************************
	EXPORT NewHandleGlue
NewHandleGlue	PROC

	ldx #$0902

	EXPORT ToGlueEntry
ToGlueEntry		;       
	jsl $E10004
	rtl

	ENDP



****************************************************************
*
* DisposeHandleGlue
*
* This small routine sets up the X-register and branches to
* the "ToGlueEntry"	point above.
*
****************************************************************
	EXPORT DisposeHandleGlue
DisposeHandleGlue	PROC

	ldx #$1002
	bra ToGlueEntry


	ENDP


****************************************************************
*
* CopyRgnGlue
*
* This small routine sets up the X-register and branches to
* the "ToGlueEntry"	point above.
*
****************************************************************
	EXPORT CopyRgnGlue
CopyRgnGlue	PROC

	ldx #$6904
	bra ToGlueEntry


	ENDP

****************************************************************
*
* SetVectorGlue
*
* This small routine sets up the X-register and branches to
* the "ToGlueEntry"	point above.
*
****************************************************************
	EXPORT SetVectorGlue
SetVectorGlue	PROC

	ldx #$1003
	bra ToGlueEntry


	ENDP


****************************************************************
*
* GetVectorGlue
*
* This small routine sets up the X-register and branches to
* the "ToGlueEntry"	point above.
*
****************************************************************
	EXPORT GetVectorGlue
GetVectorGlue	PROC

	ldx #$1103
	bra ToGlueEntry


	ENDP





*****************************************************************
*
* SpecialNewHandle
*
* Routine to call to get new handle with
*
*    size         passed in a-reg
*    userid       passed in x-reg
*    attributes   passed in y-reg
*
* Handle is returned in X & Y register (x has low word)
* unless error occurs where x & y are undifined.
*
* For no error a-reg has 0 and carry is	clear.  If error occurs
* a-reg has error and carry is set.
*
*****************************************************************
	EXPORT SpecialNewHandle
SpecialNewHandle	PROC

	pha	; space for result
	pha
	pea 0	; high word of size
	pha	; low word of size
	phx	; id number
	phy	; attributes
	pha	; loc info (ignored)
	pha
	jsl NewHandleGlue
	plx
	ply

	rts

	ENDP

	Include 'FastFontCache'

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/QD/lines.asm b/IIGS.601.SRC/GSToolbox/QD/lines.asm
new file mode 100644
index 0000000..46dd16f
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/QD/lines.asm
@@ -0,0 +1 @@
+	title 'QD Lines             GS ROM 2.0'
****************************************************************
*			   *
*              LINES		   *
*			   *
****************************************************************


****************************************************************
*			   *
*	Copyright (C) 1985-1987	   *
*	All Rights Reserved		   *
*	Apple Computer, Inc.	   *
*			   *
****************************************************************
	
	string asis
	blanks off


	include 'all.macros'
	include ':QDEquates:qd.data.asm'


	INCLUDE ':QDEquates:CORE.GLOBALS1'
	INCLUDE ':QDEquates:core.globals2'
	INCLUDE ':QDEquates:region.equs'
	INCLUDE ':QDEquates:RECT.EQUS'
	INCLUDE ':QDEquates:SLAB.EQUS'
	INCLUDE ':QDEquates:LINE.EQUS'


;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

	IMPORT BusyErr4
	IMPORT CheckPenVis
	IMPORT GrabPenSize
	IMPORT MinRectToY1
	IMPORT NextPatSlice
	IMPORT QDStart
	IMPORT RgnSave
	IMPORT SetFirstDestRef
	IMPORT SetNextDestRef
	IMPORT TestGPs

;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

	ENTRY CallLine
	ENTRY GrabPenLoc
	ENTRY StabPenLoc


;                COPY LINES/LINES
****************************************************************
*
* LineTo   (h,v : integer);
*
****************************************************************
	EXPORT LineTo
LineTo	PROC

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
V	equ RTL2+3
H	equ V+2

	jsr QDStart

	jsr GrabPenLoc

	lda V,s	; put ending point in
	sta Y2	; Y2,X2 and Rect2+4
	sta Rect2+4

	lda H,s
	sta X2
	sta Rect2+6


	EXPORT ShareLine
ShareLine		;       

	jsr StabPenLoc

	jsl CallLine

	tax
	jmp BusyErr4



	ENDP



****************************************************************
*
* Line  (dh,dv : integer);
*
****************************************************************
	EXPORT Line
Line	PROC
OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
dv	equ RTL2+3
dh	equ dv+2

	jsr QDStart

	jsr GrabPenLoc

	lda Y1
	clc	; then calculate end point
	adc dv,s	; and point it
	sta Y2	; in Y2
	sta Rect2+4	; and Rect2+4


	lda X1	; Do again for X
	clc
	adc dh,s
	sta X2
	sta Rect2+6

	bra ShareLine

	ENDP



****************************************************************
*
* CallLine
*
* Internal routine which calls standard	line or the
* appropriate routine attached to the graf port.
****************************************************************
	EXPORT CallLine
CallLine	PROC
	Import DrawLine2
*              using QDProcs
*              using E0Vectors
	ldx #512	; test the DirtyDPFlags for picts and pen...
	lda <DirtyDPFlags,x
	and #TestLineDrawState
	cmp #TestLineDrawState
	beq DoFasterSetup ; if this is zero, then pen vis/no pictures etc...

	jsr TestGPs
	bcs NotStandard

	jml StdLine


NotStandard	phb	; put a byte on the	stack
	ldy #o_stdline	; get pointer to new stdline
	lda [temp],y	; in a-reg
	pha	; push it
	iny	; get middle and high byte
	lda [temp],y	; of pointer
	sta 2,s	; over store middle	byte 2 times
	rtl	; go there

DoFasterSetup
	jsr GrabPenSize	; don't come back if part is zero
	phb	; save the bank register
	ldy #O_PnMode	; get the mode down	to zp
	lda [PortRef],y
	sta FillMode

	jmp DrawLine2
	

	ENDP


****************************************************************
*
* StdLine
*
*
****************************************************************
	EXPORT iStdLine
iStdLine	PROC
*              using CoreDATA
*              using PicInfo
*              using E0Vectors

	lda #LineNoun
	jsl PutPictStuff
	bcc NoPicErr
	rtl

NoPicErr	jsl AddToPoly	; are we saving a poly
	bcc NoPolyErr
	rtl

NoPolyErr	jsr RgnSave
	bcc NoRgnErr

	jsl PutLine
	bcc NoRgnErr
	rtl	; return the error

NoRgnErr		; 
****************************************************************
*
* DrawLine
*
* The common line drawing routine.  Draws a line from Point1
* to Point2.
*
* By the time control gets here, the Starting and Ending
* points are in Y1,X1 and Y2,X2 as well	as Rect2.  The Slab
* routines and XSetup use X1 and X2 for	the starting and
* stopping points of a horizontal line segment.
*
* We start by building the rectangle that bounds the line and
* clipping it.  if the clip results in no rect, we are done.
* After the clip, we calculate the slope and initial left and
* right edges, using the unclipped points. (Using the clipped
* points would not give the right results.)  Finally, we adjust
* the left and right edge if the top was clipped by the clipping
* amound * slope.  The Line is drawn by	using the vertical limits
* obtained from the	clipped rectangle.
*
* Uses Three new variables on Zero Page:
*     Slope      a fixed point value, the slope of the line
*     LeftEdge   a fixed point value, for the current starting x.
*     RightEdge  a fixed point value, for the currend stopping x.
*
*
* Modification History:
*
*   18 Mar 86      Checked all compares	and used signed instead of unsigned
*                  branches.
*
* 2/27/89	Mensch
* Try dropping a newer fastratio routine in...
*
* 3/9/89	Mensch
* Added short circut to check pen vis and portloc to ZP
****************************************************************
	EXPORT DrawLine
	Export DrawLine2
	Import FastRatio
DrawLine		;  
	jsr CheckPenVis	; don't come back unless visible
	jsr GrabPenSize	; don't come back if part is zero

	phb	; save the bank register

	jsl PreDraw
DrawLine2
	jsl SetUpPortRegions


;-------------------------------------------
;
;  Make Line Rect in y1,x1 y2,x2
;

	lda Y2	; want to draw top to
	cmp Y1	; bottom so if Y2 >= Y1
	bpl NoYSwap	; then okay

	ldy Y1
	sty Y2
	sta Y1

NoYSwap	lda X2
	cmp X1
	bpl NoXSwap

	ldy X1
	sta X1
	sty X2

NoXSwap		; 

;------------------------------------------------
;
;  Now adjust the Line rect by the pen width
;  and height
;
	lda Y2
	clc
	adc LocalPnSize
	sta Y2

	lda X2	; adjust X2 by pen size too
	clc
	adc LocalPnSize+2
	sta X2

;------------------------------------------------
;
;  Need to clip Rect2 to intersection of Bounds
;  and port rects.
;
	jsl BMakeMinRect	; clip it
	bcc Continue	; if clear then intersection not
	jmp NeverMind	; empty else done.


;------------------------------------------------
;
;   Test for Horizontal or Vertical Lines
;

Continue		; 

	jsl ShieldCursor
	jsr MinRectToY1

	lda Rect2+6
	cmp Rect2+2
	beq AnHVLine

	lda Rect2
	cmp Rect2+4
	bmi PointsInOrder
	beq AnHVLine

	ldy Rect2+4	; Top greater than bottom so
	sty Rect2	; swap them
	sta Rect2+4

	lda Rect2+2	; swap x's to match
	ldy Rect2+6
	sty Rect2+2
	sta Rect2+6
	bra PointsInOrder

AnHVLine	jsl DrawRect	; now get out of here for good
	jmp TheEnd
;----------------------------------------
;
;  Initialize the left and right edges
;

PointsInOrder	lda #$8000	; make fractional parts 1/2
	sta LeftEdge	; Gives us free rounding
	sta RightEdge
	lda Rect2+2	; set up left and right edge
	sta LeftEdge+2	; RightEdge = LeftEdge+PenWidth
	clc
	adc LocalPnSize+2
	sta RightEdge+2


;------------------------------------------------
;
;   Caculate the inverted slope (dh/dv)	using
;   original points
;

	pha	; put room for result on stack
	pha

	lda Rect2+6
	sec
	sbc Rect2+2
	pha	; put delta x on stack
	lda Rect2+4
	sec
	sbc Rect2
	pha	; put Delta y on stack

	jsr FastRatio
;	_FixRatio	; get the ratio

	pla	; pull of the ratio
	sta Slope
	pla
	sta Slope+2


;----------------------------------------------
;
;    Now need to adjust the distance between
;    left and right	edges.
;

;----------------------------------------------
;
;   Calculate the adjust = Pen Height *	Slope
;
; 3/9/89	Mensch
; Modified to see if LocalPnSize is 1 or 2, if so, we do a simple multiply
; else we do a standard fix multiply
; Also, preset adjust to be the slope...

	lda Slope+2
	sta Adjust+2
	lda Slope
	sta Adjust

	lda LocalPnSize
	cmp #1	; if its 1, the noMult
	beq @Mult1Done
	cmp #2	; if its 2 do a simple multiply
	beq @Multby2
; else, just do it the long way...	
	pha	; Make Room for result
	pha

	pha
	lda #0
	pha
	lda Slope+2
	pha
	lda Slope
	pha

	_FixMul

	pla
	sta Adjust
	pla
	sta Adjust+2
	bra @Mult1Done
@MultBy2
	asl Adjust
	rol Adjust+2
@Mult1Done
;-------------------------------------------------------
;
;   Adjust the Left	and Right edges depending on sign
;   magnitude of slope
;
; WAS:
;	lda Slope+2
;	asl a	; get sign bit into	carry
;	lda Slope+2	; get back orig
;	ror a	; divide by 2 preserving sign
;	sta SlopeTemp+2
;	lda Slope
;	ror a
;	sta SlopeTemp
;	ldx #4
;AdjustLoop	lda LeftEdge,x
;	clc
;	adc SlopeTemp
;	sta LeftEdge,x
;	lda LeftEdge+2,x
;	adc SlopeTemp+2
;	sta LeftEdge+2,x
;	dex
;	dex
;	dex
;	dex
;	bpl AdjustLoop
;
; IS NOW
	lda Slope+2
	asl a	; get sign into carry
	lda Slope+2	; get back orig
	ror a	; rotate putting sign back
	tay	; save this in <Y> for a sec...
	lda Slope
	ror a
	tax
; Now adjust it...
	clc
	adc LeftEdge
	sta LeftEdge
	tya	; get slopetemp+2 back
	adc leftEdge+2
	sta leftEdge+2
	
	clc	; and do it again...
	txa	; get SlopeTemp Back
	adc LeftEdge+4
	sta LeftEdge+4
	tya
	adc LeftEdge+6
	sta LeftEdge+6
; shorter and sweeter

	bit Slope+2	; is the slope negative
	bmi IsNegative

;----------------------------------------------
;
;    Slope Is Positive
;
	lda LeftEdge	; subtract adjust from left
	sec	; edge
	sbc Adjust
	sta LeftEdge
	lda LeftEdge+2
	sbc Adjust+2
	sta LeftEdge+2

	lda Slope+2	; check to see if slope is less
	beq Less1	; than 1

	dec RightEdge+2	; if not less sub 1	from right edge
	bra SlopeOk

Less1	lda LeftEdge	; is less so add slope to left edge
	clc
	adc Slope
	sta LeftEdge
	lda LeftEdge+2
	adc Slope+2
	sta LeftEdge+2
	bra SlopeOK


;-----------------------------------------------
;
; Slope Is Negative
;
IsNegative	lda RightEdge	; subtract adjust from right
	sec	; edge
	sbc Adjust
	sta RightEdge
	lda RightEdge+2
	sbc Adjust+2
	sta RightEdge+2

	lda Slope+2	; check to see if slope is more
	cmp #$FFFF	; than minus 1
	beq More1

	inc LeftEdge+2	; not more so add 1	to LeftEdge
	bra SlopeOK

More1	lda RightEdge	; is more so add slope to edge
	clc
	adc Slope
	sta RightEdge
	lda RightEdge+2
	adc Slope+2
	sta RightEdge+2

SlopeOK		; 

;------------------------------------------------
;
;   Get ready to draw
;
;------------------- START OF FASTLINE CHANGE --------------------------
	
;
;----- assume they're rectangular unless proven otherwise -----
;
	lda [RgnPtrA]
	ora [RgnPtrB]
	cmp #10	
	bne GoSlow
	stz NonRectRegions	;regions are rectangular
	jsl SetSlabAdr	; sets up the slab adr on zp
	bcs GoSlow
	cpx #0	; test if <X> says mode copy...
	beq DoModeCopy
	cpx #8	; test if mode XOR
	bne SkipInit2Regions
	lda #$4000	; set bits to flag mode xor fastslab
	sta temp
	bra SkipInit2Regions
	
DoModeCopy	lda #$8000	; set bits to flag mode copy fastslab
	sta temp
	bra SkipInit2Regions
	

;
; ---- End of change ----
;
GoSlow	
	jsl Init2Regions	;set up the initial clip buffer
	jsl SetSlabAdr
	bra SkipKludge
SkipInit2Regions
	clc
SkipKludge	php	;save state of carry

;	
;------------------- END OF FASTLINE CHANGE ----------------------------

;------------------------------------------------
;
; If line was cliped, we have to adjust	the
; edges.

	lda Y1	; if Y1 still equals
	cmp Rect2	; Rect2.Top then no	clipping
	beq TopOK	; has occured.

	sec	; Calculate discard	amount
	sbc Rect2

	pha	; Make room for result
	pha

	pha	; push this amount on stack
	pea 0	; followed by a zero to represent
	pei Slope+2	; discard as a fixed point number
	pei Slope	; Then push Slope
	_FixMul
	plx	; get result in x and y
	ply


	txa
	clc
	adc LeftEdge
	sta LeftEdge
	tya
	adc LeftEdge+2
	sta LeftEdge+2

	txa
	clc
	adc RightEdge
	sta RightEdge
	tya
	adc RightEdge+2
	sta RightEdge+2


;------------------------------------------------
;
;   Find starting point of scan line
;
TopOK	jsr SetFirstDestRef


;---------------------------------------------------
;
;   Move left and right edge of clipped	line rect
;   from X1, X2 to Rect2+2 and Rect2+4
;
	lda X1
	sta Rect2+2
	lda Y2
	sta Rect2+4
	lda X2
	sta Rect2+6

	txa	; this was result of calc above
	
;------------------- START OF FASTLINE CHANGE --------------------------
	plp
	bcc FastLine
;------------------- END OF FASTLINE CHANGE ----------------------------


;---------------------------------------------------
;
; The Drawing Loop !
;
LineLoop		; 

;--------------------------------------------------
;
; Put left and right edges were slab routine will
; look for them and	clip to Rect2 at the same time
;
	lda RightEdge+2
	cmp Rect2+6
	bmi RightOk
	lda Rect2+6
RightOK	sta X2

	lda LeftEdge+2
	cmp Rect2+2
	bpl LeftOk
	lda Rect2+2
LeftOk	sta X1

	cmp X2	; if left >= right then
	bpl BackHere	; skip the drawing step

	jsl XSetup	; set up stuff for slab routines


;-----------------------------------------------------------
;
;   Now have to pull out right slice of	pattern for
;   y coordinate
;
	jsr NextPatSlice
	jsl Seek2Regions

	jsl ToSlab

BackHere	lda CurrentY
	inc a
	cmp Y2
	bpl TheEnd

	sta CurrentY

	lda LeftEdge	; adjust the left edge
	clc
	adc Slope
	sta LeftEdge
	lda LeftEdge+2
	adc Slope+2
	sta LeftEdge+2

	lda RightEdge	; adjust the right edge
	clc
	adc Slope
	sta RightEdge
	lda RightEdge+2
	adc Slope+2
	sta RightEdge+2

	jsr SetNextDestRef
	jmp LineLoop



TheEnd		; 
	jsl UnShieldCursor
NeverMind		; 
	jsl FreePortRegions
	plb	; restore the bank register

	lda #0
	clc
	rtl

;------------------------START OF FASTLINE STUFF--------------------------------
;
; The Fast line drawing code
;
;---------------------------------------------------------------
patIndex	equ  CurrentY
lineCount	equ  Y2
;---------------------------------------------------------------

FastLine
;	pei  CurrentY	;save the stuff we're going to use
;	pei  Y2	;for temporary space

	ldx #512	; test for solid patterns
	lda <DirtyDPFlags,x
	and #SolidPatOK+DirtyFlagsOK
	cmp #SolidPatOK+DirtyFlagsOK
	bne @DitherPat
	jmp FastLineSolidPat
@DitherPat
	lda  Y2
	sec
	sbc  CurrentY
	sta  lineCount

	lda  CurrentY	;find the current index into the FillPat and DrawMask
	and  #7	;..tables
	asl  a
	asl  a
	adc  #256
	sta  patIndex
	tax
	
Floop 	lda  TheFillPat,x
	sta  Pat
	lda  TheFillPat+2,x
	sta  Pat+2

	lda  FillMode
	bpl @doTheSlab

;
; Invert the pattern
;
@doNOT	lda  Pat
	eor  #$FFFF
	sta  Pat
	lda  Pat+2
	eor  #$FFFF
	sta  Pat+2

@doTheSlab
;--------------------------------------------------
;
; Put left and right edges were slab routine will
; look for them and	clip to Rect2 at the same time
;
	lda RightEdge+2
	cmp Rect2+6
	bmi @RightOk
	lda Rect2+6
@RightOK	sta X2

	lda LeftEdge+2
	cmp Rect2+2
	bpl @LeftOk
	lda Rect2+2
@LeftOk	sta X1

	cmp X2	; if left >= right then
	bpl @BackHere	; skip the drawing step

	jsl XSetup	; set up stuff for slab routines
	ldx <startWord	; try to short circut the slabs...
	cpx <finishWord
	bne @oldSlab
	bit temp	; recover our flags
	bvs @NewSlabXor	; if overflow clear nomode xor
@oldSlab
	jsl ToSlab

@SlabDone
@BackHere	lda  patIndex
	clc
	adc #4	;inc a four times
	and #$011F
	sta patIndex
	tax	;patIndex in x-reg expected in Floop

	dec  lineCount
	beq  allDone

	lda LeftEdge	; adjust the left edge
	clc
	adc Slope
	sta LeftEdge
	lda LeftEdge+2
	adc Slope+2
	sta LeftEdge+2

	lda RightEdge	; adjust the right edge
	clc
	adc Slope
	sta RightEdge
	lda RightEdge+2
	adc Slope+2
	sta RightEdge+2

	lda  DestRef
	clc
	adc  Width
	sta  DestRef
	bcc  Floop
	
	inc  DestRef+2
	pei destref+1
	plb
	plb
	brl  Floop
@NewSlabXor
; NOTE: <X> has startword and <A> has right mask!
	txy	; setup <Y> to point to byte
	and <pat
	and <leftMask
	eor [DestRef],y		;invert & store it
	sta [DestRef],y
	bra @SlabDone


;---------------------------------------------------------------
allDone
;	pla
;	sta  Y2
;	pla
;	sta  CurrentY
	brl  TheEnd
	
;------------------------------------------------------------------
; even faster fastline stuff here...

FastLineSolidPat
;	pei  CurrentY	;save the stuff we're going to use
;	pei  Y2	;for temporary space

	lda  Y2
	sec
	sbc  CurrentY
	sta  lineCount

	ldx #256
 	lda  TheFillPat,x
	sta  Pat
	sta  Pat+2

	lda  FillMode
	bpl @doTheSlab

;
; Invert the pattern
;
@doNOT	lda  Pat
	eor  #$FFFF
	sta  Pat
	sta  Pat+2

@doTheSlab
;--------------------------------------------------
;
; Put left and right edges were slab routine will
; look for them and	clip to Rect2 at the same time
;
	lda RightEdge+2
	cmp Rect2+6
	bmi @RightOk
	lda Rect2+6
@RightOK	sta X2

	lda LeftEdge+2
	cmp Rect2+2
	bpl @LeftOk
	lda Rect2+2
@LeftOk	sta X1

	cmp X2	; if left >= right then
	bpl @BackHere	; skip the drawing step

	jsl XSetup	; set up stuff for slab routines
	ldx <startWord	; try to short circut the slabs...
	cpx <finishWord
	bne @oldSlab
	bit temp	; recover our flags
	bvs @NewSlabXor	; if overflow clear nomode xor
@oldSlab
	jsl ToSlab

@SlabDone
@BackHere	
	dec  lineCount
	beq  allDone

	lda LeftEdge	; adjust the left edge
	clc
	adc Slope
	sta LeftEdge
	lda LeftEdge+2
	adc Slope+2
	sta LeftEdge+2

	lda RightEdge	; adjust the right edge
	clc
	adc Slope
	sta RightEdge
	lda RightEdge+2
	adc Slope+2
	sta RightEdge+2

	lda  DestRef
	clc
	adc  Width
	sta  DestRef
	bcc  @doTheSlab
	
	inc  DestRef+2
	pei destref+1
	plb
	plb
	bra  @doTheSlab
	
;------------------------END OF FASTLINE STUFF--------------------------------
@NewSlabXor
; NOTE: <X> has startword and <A> has right mask!
	txy	; setup <Y> to point to byte
	and <pat
	and <leftMask
	eor [DestRef],y		;invert & store it
	sta [DestRef],y
	bra @SlabDone

	ENDP


****************************************************************
*
* GrabPenLoc
*
* Takes PnLoc from the port and puts in	Y1,X1 and
* at Rect2
*
****************************************************************
	EXPORT GrabPenLoc
GrabPenLoc	PROC
*              using CoreDATA


	ldy #O_PnLoc
	lda [PortRef],y
	sta Y1
	sta Rect2
	iny
	iny
	lda [PortRef],y
	sta X1
	sta Rect2+2

	rts

	ENDP

****************************************************************
*
* StabPenLoc
*
* Xrefs Y2,X2 to PnLoc in the port.
*
****************************************************************
	EXPORT StabPenLoc
StabPenLoc	PROC
*              using CoreDATA


	ldy #O_PnLoc
	lda Y2
	sta [PortRef],y
	iny
	iny
	lda X2
	sta [PortRef],y


	rts

	ENDP

*******************************************************************************
*
FastRatio	proc Export
*
* Description:	A faster version of intmaths fixratio
*
*
* Inputs:	None
*
* Outputs:	None
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
M1	equ 1
origdPage	equ M1+4
rts1	equ origDPage+2
denom	equ rts1+2
Numerator	equ Denom+2
Result	equ Numerator+2
Quotient	equ M1
Remainder	equ Quotient+2	; remainder from first div high word of second

	phd	; save the direct page
	phx
	phx	; room for M1 and M2
	tsc
	tcd
	lda Denom
	bne GoOnX
	lda #$7FFF
	sta Result+2
	brl TheEnd
	
GoOnX	eor Numerator
	pha	; save sign info...
	
	lda Numerator	; strip the signes for later
	bpl @numPos
	eor #$FFFF
	inc a
	sta Numerator
@NumPos
	lda Denom
	bpl @DenPos
	eor #$FFFF
	inc a
	sta Denom
	
@DenPos	cmp Numerator	; see if denom is bigger
	bge noDiv
; first things first, lets start our division off
; 
DoDivide
	stz M1
	stz M1+2
	
	lda Numerator
	sta Quotient
	ldy #16
	sec	; set carry to start
@DivLoop	rol Quotient	; 
	rol Quotient+2
	sec
	lda Quotient+2
	sbc Denom
	bcc @DecCt
	sta Quotient+2
@DecCt	dey
	bne @DivLoop
	rol Quotient
	bra Cont
NoDiv
	beq theSame
	stz Quotient
	lda Numerator
	sta Remainder
	bra Cont
theSame	stz Remainder
	lda #1
	sta Quotient
;
; The divide is done now
Cont
;
; Now we do the long divide!
	lda Quotient
	sta Result+2
	stz Result
	lda Remainder	; test the remainder for 0
	beq LongDivDone
	
	pha
	pha
	pha
	pha
	
	pha
	pea 0
	
	pea 0
	lda Denom
	pha
	_LongDivide
	pla
	sta Result
	pla
	pla
	pla

LongDivDone
	pla	; get sign off stack
	bpl theEnd
	lda #0
	sec
	sbc Result
	sta Result
	lda #0
	sbc Result+2
	sta Result+2
theEnd
	plx	; get our shit off the stack!
	plx
	pld	; get the direct page
	lda 1,s	; get the return address
	sta 5,s	; and move it down...
	pla
	pla
	rts
	
	EndP
	


	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/QD/makefile b/IIGS.601.SRC/GSToolbox/QD/makefile
new file mode 100644
index 0000000..ea5a093
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/QD/makefile
@@ -0,0 +1 @@
+### Dependancies for QD
QD.IN.RAM					Ä					¶
			:objs:INIT.asm.obj		¶
			:objs:CallTable.asm.obj		¶
			:objs:ENV.asm.obj		¶
			:objs:UTILS.asm.obj		¶
			:objs:SLABS.asm.obj		¶
			:objs:RECTS.asm.obj		¶
			:objs:LINES.asm.obj		¶
			:objs:slices.asm.obj	¶
			:objs:pixelMAPS.asm.obj	¶
			:objs:SHIFTS.asm.obj	¶
			:objs:clipping.asm.obj	¶
			:objs:cursor.asm.obj	¶
			:objs:regions.asm.obj	¶
			:objs:rgndefs.asm.obj	¶
			:objs:text.asm.obj		¶
			:objs:font.asm.obj		¶
			:objs:conics.asm.obj	¶
			:objs:polys.asm.obj		¶
			::Kidding:kidding.asm.obj
		linkiigs  	-s	>qd.map			¶
			-lseg main -org $A0000		¶
					:objs:CallTable.asm.obj		¶
					:objs:INIT.asm.obj		¶
					:objs:ENV.asm.obj		¶
					:objs:UTILS.asm.obj		¶
					:objs:SLABS.asm.obj		¶
					:objs:RECTS.asm.obj		¶
					:objs:LINES.asm.obj		¶
					:objs:slices.asm.obj	¶
					:objs:pixelmaps.asm.obj	¶
					:objs:SHIFTS.asm.obj	¶
					:objs:clipping.asm.obj	¶
					:objs:cursor.asm.obj	¶
					:objs:regions.asm.obj	¶
					:objs:rgndefs.asm.obj	¶
					:objs:text.asm.obj		¶
					:objs:font.asm.obj		¶
					:objs:conics.asm.obj	¶
					:objs:polys.asm.obj		¶
					::Kidding:kidding.asm.obj	¶
					:qdAlone:strip.asm.obj					¶
			-o qd.in.ram -t $BC
### Dependancies for components
:objs:CallTable.asm.obj		Ä	CallTable.asm
	asmiigs CallTable.asm -o :objs:CallTable.asm.obj -unsafe -wi
:objs:INIT.asm.obj		Ä	init.asm   FastFontCache
	asmiigs init.asm -o :objs:init.asm.obj -unsafe -wi
:objs:ENV.asm.obj		Ä	env.asm
	asmiigs env.asm -o :objs:env.asm.obj -unsafe -wi
:objs:UTILS.asm.obj		Ä	utils.asm
	asmiigs utils.asm -o :objs:utils.asm.obj
:objs:SLABS.asm.obj		Ä	slabs.asm
	asmiigs slabs.asm -o :objs:slabs.asm.obj
:objs:RECTS.asm.obj		Ä	rects.asm
	asmiigs rects.asm -o :objs:rects.asm.obj
:objs:LINES.asm.obj		Ä	lines.asm
	asmiigs lines.asm -o :objs:lines.asm.obj
:objs:slices.asm.obj	Ä	slices.asm
	asmiigs slices.asm -o :objs:slices.asm.obj
:objs:pixelMAPS.asm.obj	Ä	pixelmaps.asm
	asmiigs pixelmaps.asm -o :objs:pixelmaps.asm.obj
:objs:SHIFTS.asm.obj	Ä	shifts.asm
	asmiigs shifts.asm -o :objs:shifts.asm.obj
:objs:clipping.asm.obj	Ä	clipping.asm
	asmiigs clipping.asm -o :objs:clipping.asm.obj
:objs:cursor.asm.obj	Ä	cursor.asm
	asmiigs -d midi=0 cursor.asm -o :objs:cursor.asm.obj
:objs:regions.asm.obj	Ä	regions.asm
	asmiigs regions.asm -o :objs:regions.asm.obj
:objs:rgndefs.asm.obj	Ä	rgndefs.asm
	asmiigs rgndefs.asm -o :objs:rgndefs.asm.obj
:objs:text.asm.obj		Ä	text.asm
	asmiigs text.asm -o :objs:text.asm.obj
:objs:font.asm.obj		Ä	font.asm
	asmiigs font.asm -o :objs:font.asm.obj
:objs:conics.asm.obj	Ä	conics.asm
	asmiigs conics.asm -o :objs:conics.asm.obj
:objs:polys.asm.obj		Ä	polys.asm
	asmiigs polys.asm -o :objs:polys.asm.obj
::kidding:kidding.asm.obj		Ä	::kidding:kidding.asm
	directory ::kidding
	asmiigs kidding.asm
	directory ::qd
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/QD/pixelmaps.asm b/IIGS.601.SRC/GSToolbox/QD/pixelmaps.asm
new file mode 100644
index 0000000..203a3d5
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/QD/pixelmaps.asm
@@ -0,0 +1 @@
+	title 'QD Pixel Maps        GS ROM 2.0'
****************************************************************
*			   *
*	      Pixel Maps		   *
*	     Version 2.0		   *
*	   December 23, 1986	   *
*			   *
*			   *
* 2/10/89	Mensch		   *
* 
* Modified the toslices routine to be able to go fast when we
* are using shadowed memory as well.
*
* 4/6/89	Mensch
* Modified to clear the proper dirty flags.
*
****************************************************************

	MACRO
	DirtyPort
	ldx #512	; switch to qdDPage2
	lda <DirtyDPFlags,x	; get the proper flags
	and #PortBad	; turn off both patterns
	sta <DirtyDPFlags,x
	MEND
	

****************************************************************
*			   *
*	Copyright (C) 1985-1987	   *
*	All Rights Reserved		   *
*	Apple Computer, Inc.	   *
*			   *
****************************************************************

	blanks off
	string asis
	
	include 'all.macros'
	
	
	MACRO
&lab	MoveRect &Src,&Dest
&lab	lda &Src
	sta &Dest
	lda &Src+2
	sta &Dest+2
	lda &Src+4
	sta &Dest+4
	lda &Src+6
	sta &Dest+6
	MEND
	
	
	
	include ':QDEquates:qd.data.asm'

	INCLUDE ':QDEquates:core.globals1'
	INCLUDE ':QDEquates:core.globals2'
	INCLUDE ':QDEquates:region.equs'
	INCLUDE ':QDEquates:slice.equs'


;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

	IMPORT BFBICSlice
	IMPORT BFCopySlice
	IMPORT BFORSlice
	IMPORT BFXORSlice
	IMPORT BusyEC
	IMPORT BusyErr
	IMPORT CheckPenVis
	IMPORT DeRefA
	IMPORT DeRefB
	IMPORT DeRefC
	IMPORT FBICSlice
	IMPORT FCopySlice
	IMPORT FORSlice
	IMPORT FXORSlice
	IMPORT InitUp3Rgns
	IMPORT QDStart
	IMPORT TestGPs
	IMPORT WideOpen
	IMPORT bRealFastCopy
	IMPORT fBFBICSlice
	IMPORT fBFCopySlice
	IMPORT fBFORSlice
	IMPORT fBFXORSlice
	IMPORT fFBICSlice
	IMPORT fFCopySlice
	IMPORT fFORSlice
	IMPORT fFXORSlice
	IMPORT fRealFastCopy

;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

	ENTRY BackSliceAdrTable
	ENTRY CallPP
	ENTRY FastBackSliceAdrTable
	ENTRY FastSliceAdrTable
	ENTRY IsDestPort
	ENTRY RealFastBack
	ENTRY RealFastForward
	ENTRY SandDEqual
	ENTRY SliceAdrTable


;                copy pixel.maps/stdpixels
****************************************************************
*
* StdPixels
*
* Standard pixel painting routine.  Inputs are already on
* zero page as follows when this gets control.
*
*        SrcLocInfo
*        DestLocInfo (this lives in same memory as PortLocInfo)
*        SrcRect
*        DestRect
*        XFerMode
*        RgnHandleA
*        RgnHandleB
*        RgnHandleC	(MaskRgn)
*
* Change History
*
* June ?, 1986	This routine did not handle source and
*	destination pixel maps crossing bank boundries
*	until now.
* August 8, 1986	When the src and dest pixel maps were not equal
*	chunkiness, the bank reg was left on stack and
*	system crashed.
*
* November 18, 1986	It now handles stretching. oh my.
*
* March 11, 1987	If pen is not visible, I don't return error
*	in a-reg any more.
*
****************************************************************
	EXPORT iStdPixels
iStdPixels	PROC
*              using CoreDATA
*              using E0Vectors
*              using PicInfo
*              using ErrorDATA

;-------------------------------------------------
;
; If the dest loc is the same as the current
; graf port, then we check if a picture	is being
; captured.
;
	jsr IsDestPort
	bcc SkipPicture

	lda #MapNoun
	jsl PutPictStuff
	bcc NoPicErr
	rtl

NoPicErr		; 
SkipPicture	jsr CheckPenVis	; does not come back if not vis
	jml RgnBlt

	ENDP
;                copy pixel.maps/rgnblt
****************************************************************
*
* RgnBlt
*
* This was the original StdPixel (back before stretching was
* invented [or rediscovered]).
*
* Modification History:
* 12/1/87      GCP	   Moved calls to setup routines. They're now
*	   made after we decide which direction	we are
*	   going. When we want to seek up through the
*	   region we now call InitUp3Rgns.
****************************************************************
	EXPORT iRgnBlt
iRgnBlt	PROC
*              using CoreDATA
*              using E0Vectors
*              using PicInfo
*              using ErrorDATA


	phb

;-----------------------------------------------
;
; Are we transfering to and from pixel maps of
; the same chunkiness?
;
	lda SrcSCB
	eor DestSCB
	and #%0000000010000000
	beq SameChunk

	lda #NotEqualChunkiness
	jmp ReportError

;-----------------------------------------------
;
; Now we run through lots of code to set up all
; variables required by the slice routines.
;
SameChunk		; 

;----------------------------------------------
;
; First, we clip the Source Rect to the	Source
; Bounds Rect.  If it is not inside, we	are
; done.  At the same time, we adjust the destination
; point by any amount that we clip the upper left
; of the source rect.
;
	lda SrcBounds
	cmp SrcRect
	bmi TopOK1
	sec	; first i calculate	SrcBoundsTop - SrcTop
	sbc SrcRect	; we know this is a	num < 0
	clc	; I then add it to DestPoint
	adc DestPoint
	sta DestPoint
	lda SrcBounds
	sta SrcRect
TopOk1	lda SrcBounds+2
	cmp SrcRect+2
	bmi LeftOK1
	sec	; now i calculate SrcBoundsLeft-SrcLeft
	sbc SrcRect+2	; we know this is a	num < 0
	clc	; I then add it to DestPoint
	adc DestPoint+2
	sta DestPoint+2
	lda SrcBounds+2
	sta SrcRect+2
LeftOK1	lda SrcBounds+4
	cmp SrcRect+4
	bpl BottomOK1
	sta SrcRect+4
BottomOK1	lda SrcBounds+6
	cmp SrcRect+6
	bpl RightOK1
	sta SrcRect+6
RightOK1	lda SrcRect
	cmp SrcRect+4
	bmi VValid1
	jmp NeverMind	; rect not valid, Top > Bottom
VValid1	lda SrcRect+2
	cmp SrcRect+6
	bmi HValid1
	jmp NeverMind	; Rect not valid, Left > Right
HValid1		; 


;-------------------------------------------
;
; Now we stretch the dest point into a
; rectangle of the same size as the clipped
; source rectangle.
;
	ldx #2
DestRectLoop	lda SrcRect+4,x	; calculate size
	sec
	sbc SrcRect,x
	clc	; add to point
	adc DestPoint,x
	sta DestPoint+4,x
	dex
	dex
	bpl DestRectLoop

	jsl SharedMRSetup	; calls make minrect

	bcc SomethingLeft
	jmp AllDone

SomethingLeft		; 

;-----------------------------------------------
;
; Now I check to see if the dest rect got 
; clipped.  If it did get clipped, then	I must
; adjust the source	rect accordingly.
	ldx #6
AdjSrcLoop		; 
	lda MinRect,x	; I subtract DestRect from MinRect
	sec	; If not clipped on	that side result
	sbc DestRect,x	; is zero.  If clipped at top or left,
	beq SideStillOK	; then result is positive and so is
	clc	; amount src must be adjusted.  If
	adc SrcRect,x	; clipped at bot or	right, then result
	sta SrcRect,x	; is negative and so is amount src 
SideStillOK	dex	; must be adjusted.
	dex
	bpl AdjSrcLoop

*		; move clipped value of destrect
*		; back to DestRect
	MoveRect MinRect,DestRect

	jsl ShareShieldStuff


NotSame	jsl ShieldCursor	; use minrect to shield cursor

*		; move orig clip rect back to dest
*		; so that rgn clipping can work!
	MoveRect DestRect,MinRect

;-------------------------------------------------
;
; Source and dest Rects are entirely contained
; in the bounds rects.
;
; Figure out if we are painting in and out of
; the same pixel map.
;
	ldx #0	; use x and y as flags for
	txy	; backwards and forwards

	jsr SandDEqual
	bcc DifferentMaps


;-------------------------------------------------
;
; The maps are the same.
;
	lda DestPoint	; convert dest y to	global coord's
	sec	; and push it on the stack
	sbc DestBounds
	pha
	lda SrcRect	; convert src y to global coord's
	sec	; and compare it to	value on stack
	sbc SrcBounds
	cmp 1,s
	bcs VertIsForward
	dey
	bra HorIsForward	; if vert is backwards then hor can

VertIsForward	lda DestPoint+2	; Convert DestX to global and replace
	sec	; global y value on	stack
	sbc DestBounds+2
	sta 1,s
	lda SrcRect+2	; convert SrcX to global and compare
	sec	; to value on stack
	sbc DestBounds+2
	cmp 1,s
	bcs HorIsForward
	dex
HorIsForward	pla	; clear the stack
DifferentMaps	sty VertBackward
	stx HorBackward

;-------------------------------------------------
;
; Set up the SrcRef	and DestRef pointers.
;
	pea 0	; put room for result on stack
	pea 0
	cpy #0	; if y is still pos	then we go
	bpl UseSrcTop	; from top to bottom
	lda SrcRect+4	; get bottom minus one in a reg
	dec a
	bra PushStart1
UseSrcTop	lda SrcRect	; get top in a-reg
PushStart1	sec	; convert to global	coord's
	sbc SrcBounds
	pha	; push it
	pei SrcWidth
	_Multiply

	pla
	plx
	clc
	adc SrcPixelMapRef
	sta SrcRef
	txa
	adc SrcPixelMapRef+2
	sta SrcRef+2

	pea 0	; put room for result on stack
	pea 0
	bit VertBackward
	bpl UseDestTop
	lda DestRect+4
	dec a
	bra PushStart2
UseDestTop	lda DestRect
PushStart2	sec
	sbc DestBounds
	pha
	pei DestWidth
	_Multiply
	pla
	plx
	clc
	adc DestPixelMapRef
	sta DestRef
	txa
	adc DestPixelMapRef+2
	sta DestRef+2

;-------------------------------------------------
;
; Set up looping vars, clipping and the	address
; of the slice routine to be used.
;


	pei DestRef+1	; set the data bank	register to
	plb	; bank containing dest map
	plb

	clv
	lda XFerMode
	bpl NotInverted
	sep #%01000000	; set the overflow
NotInverted	php	; save this on stack

	lda DestRect+4	; assume we go backwards
	dec a
	sta CurrentY

	bit VertBackward
	bmi BackLp

	lda DestRect	; bad guess, we go forewards
	sta CurrentY

	jsl SliceSetup
	jsl SetUpScanPtrs
	jsl Init3Regions
	jsl SetSliceAdr

PaintLoop		; 
	jsl Seek3Regions

	plp	; get v flag back
	php	; save for later too

	jsl ToSlice

	lda CurrentY
	inc a
	cmp DestRect+4
	bpl TheEnd	; unsigned compare dummy 28 Mar 86

	sta CurrentY
	lda SrcWidth
	clc
	adc SrcRef
	sta SrcRef
	bcc NoCarrySrc	; must carry accross banks
	inc SrcRef+2
NoCarrySrc	lda DestWidth
	clc
	adc DestRef
	sta DestRef
	bcc NoCarryDest
	inc DestRef+2
	phb	; must also update the data bank
	lda DestRef+1	; register
	sta 0,s
	plb
NoCarryDest		; 

	bra PaintLoop

BackLp		; 
	jsl SliceSetup
	jsl SetUpScanPtrs
	jsl InitUp3Rgns
	jsl SetSliceAdr

BackLoop		; 
	jsl Seek3Regions	; this will be very	slow 
*		; because seekrgn is optimized 
*		; for forward.

	plp	; get v flag back
	php	; save for later too

	jsl ToSlice

BackHere2		; 

	lda CurrentY
	dec a
	cmp DestRect
	bmi TheEnd

	sta CurrentY
	lda SrcRef
	sec
	sbc SrcWidth
	sta SrcRef
	bcs NoBorrowSrc	; must borrow from high word
	dec SrcRef+2	; if crosses bank
NoBorrowSrc	lda DestRef
	sec
	sbc DestWidth
	sta DestRef
	bcs NoBorrowDest
	dec DestRef+2
	phb	; must also update the data bank
	lda DestRef+1	; register
	sta 0,s
	plb
NoBorrowDest		; 

	bra BackLoop


TheEnd	jsl UnShieldCursor

	plp	; clean up stack

AllDone	jsl Free3Regions

NeverMind	plb



	lda #0
	clc
	rtl

ReportError	plb	; added restore b here SEG 8 Aug 86
	sec
	rtl


;----------------------------------------------------
;
; Local routine to determine if the source and dest
; are equal.
;
	EXPORT SandDEqual
SandDEqual		;       
	lda SrcPixelMapRef	; are we painting in and
	cmp DestPixelMapRef	; out of same pixel	map?
	bne DM
	lda SrcPixelMapRef+1
	cmp DestPixelMapRef+1
	bne DM
	sec
	rts
DM	clc
	rts


	ENDP





****************************************************************
*
* SharedMRSetup
*
* This is code shared by rgnblt and stetch to setup the
* minrect and to clip the destrect to the bounds rect of
* rgn C.
*
* At the very end this routine calls makeMinRect and then
* returns with the same condition codes	set.
*
****************************************************************
	EXPORT iSharedMRSetup
iSharedMRSetup	PROC
*              using E0Vectors
*              using CoreData
;-------------------------------------------
;
; Now we have to clip the dest rect to the
; dest bounds rect and the clipping region
; bounding box.
;
	jsr DeRefA
	jsr DeRefB

	jsr DeRefC	; we do C too now and then


	ldy #2
	lda [RgnPtrC],y	; we intersect DestRect and Bounds
	cmp DestRect	; of rgn c
	bpl RgnTopBigger
	lda DestRect
RgnTopBigger	sta MinRect
	iny
	iny
	lda [RgnPtrC],y
	cmp DestRect+2
	bpl RgnLeftBigger
	lda DestRect+2
RgnLeftBigger	sta MinRect+2
	iny
	iny
	lda [RgnPtrC],y
	cmp DestRect+4
	bmi RgnBotSmaller
	lda DestRect+4
RgnBotSmaller	sta MinRect+4
	iny
	iny
	lda [RgnPtrC],y
	cmp DestRect+6
	bmi RgnRightSmaller
	lda DestRect+6
RgnRightSmaller	sta MinRect+6

;----------------------------------------------------------
;
; Now the intersection of the dest rect	and the bounds of
; rgn c are in MinRect.
;
	bit ClipToPortToo
	bpl SkipPortRect

	jsr IsDestPort
	bcc SkipPortRect

	ldy #o_PortRect
	lda [PortRef],y
	cmp MinRect
	bmi MinTopOK
	sta MinRect
MinTopOK	iny
	iny
	lda [PortRef],y
	cmp MinRect+2
	bmi MinLeftOK
	sta MinRect+2
MinLeftOK	iny
	iny
	lda [PortRef],y
	cmp MinRect+4
	bpl MinBotOK
	sta MinRect+4
MinBotOK	iny
	iny
	lda [PortRef],y
	cmp MinRect+6
	bpl MinRightOK
	sta MinRect+6
MinRightOK		; 



SkipPortRect		; 

	jsl MakeMinRect

	rtl

	ENDP


****************************************************************
*
* ShareShieldStuff
*
* If the source and	dest pixel maps are	the same,
* then the minrect	needs be enlarged to the union
* of the src and dest rects.
*
* Warning!!!
*
* This is not enough.  If the source is	the screen and
* the dest is not, we still want to shield the cursor
* accordingly.  I don't know how to handle this yet.
*
****************************************************************
	EXPORT iShareShieldStuff
iShareShieldStuff	PROC

	jsr SandDEqual
	bcc NotSame

	lda DestRect
	cmp SrcRect
	bmi UseDest1
	lda SrcRect
UseDest1	sta MinRect
	lda DestRect+2
	cmp SrcRect+2
	bmi UseDest2
	lda srcRect+2
UseDest2	sta MinRect+2
	lda DestRect+4
	cmp SrcRect+4
	bpl UseDest3
	lda SrcRect+4
UseDest3	sta MinRect+4
	lda DestRect+6
	cmp SrcRect+6
	bpl UseDest4
	lda SrcRect+6
UseDest4	sta MinRect+6


NotSame	rtl

	ENDP

;                copy pixel.maps/pp.to.port
****************************************************************
*
* Revision History
*
* 6 Oct 1986   SEG	   Changed all the entry points so that
*	   they call QDStart.  This does the right
*	   thing with the direct page and incs
*	   the busy flag.  Original code did not
*	   inc the busy flag.
*
****************************************************************









****************************************************************
*
* PPToPort
*
*     PtrToSourceLocInfo	; 4
*     PtrToSourceRect	; 8
*     DestX		; 10
*     DestY		; 12
*     Mode		; 14
*
*
* The LocInfo Record Looks Like
*
*     MasterSCB	    byte
*     Reserved	    byte
*     PtrToPixelMap	    long
*     Width	    word
*     BoundsRect	    rect
*
****************************************************************
	EXPORT PPToPort
PPToPort	PROC
*              using CoreData
*              using E0Vectors

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
PPMode	equ RTL2+3
PPDestY	equ PPMode+2
PPDestX	equ PPDestY+2
PPSrcRect	equ PPDestX+2
PPLocInfo	equ PPSrcRect+4


;------------------------------------------------------
;
; Setup zp
;
	jsr QDStart

;------------------------------------------------------
;
; Read the source loc info from user to	zp.
;
	lda PPLocInfo,s
	sta Temp2
	lda PPLocInfo+2,s
	sta Temp2+2

	ldy #LocSize-2	; move srclocinfo to zp
Loop1	tyx
	lda [Temp2],y
	sta SrcSCB,x
	dey
	dey
	bpl Loop1

;------------------------------------------------------
;
; The dest loc info	is from the current	graf port.

	jsl PortLoc2ZP	; move dest info to	zp

;------------------------------------------------------
;
; Read source rect from memory to zp.
;
	lda PPSrcRect,s
	sta temp2
	lda PPSrcRect+2,s
	sta temp2+2

	ldy #6
Loop3	tyx
	lda [Temp2],y
	sta SrcRect,x
	dey
	dey
	bpl Loop3

;------------------------------------------------------
;
; Get dest point off stack onto zp.
;
	lda PPDestY,s
	sta DestPoint
	lda PPDestX,s
	sta DestPoint+2


;----------------------------------------------------
;
; Extend the destpoint into a rectangle	of the same
; size.
;
	lda SrcRect+4
	sec
	sbc SrcRect
	clc
	adc DestPoint
	sta DestPoint+4

	lda SrcRect+6
	sec
	sbc SrcRect+2
	clc
	adc DestPoint+2
	sta DestPoint+6


;------------------------------------------------------
;
; Get transfer mode	from stack to zero page.
;
	lda PPMode,s
	sta XFerMode

;------------------------------------------------------
;
; Bring clip and vis rgn to zero page.
;

	jsl SetUpPortRegions

	lda #WideOpen	; put fake region in here
	sta RgnHandleC
	lda #^WideOpen
	sta RgnHandleC+2

;----------------------------------------------------------
;
; Set flag to indicate that we need to clip to port rect
;
	lda #$8000
	sta ClipToPortToo

;------------------------------------------------------
;
; Call standard pixels.
;
	jsl CallPP	; error comes back in a
	pha	; save the error
	DirtyPort	; reset the port dirty flags
	pla	; and restore the port
;------------------------------------------------------
;
; Error returned in	a reg.
;
	tax
	ldy #14
	jmp BusyErr

	ENDP
;                copy pixel.maps/scroll.rect
****************************************************************
*
* ScrollRect    (TheRect : rect; 
*                dh, dv : integer; 
*                UpdateRgn : handle);
*
*
*
*
* The Flow of control
*
*     1.  I bring the portlocinfo to zero page as the SrcLocInfo
*         and the DestLocInfo.  This includes the PortRect as the
*         SrcRect and the DestRect.   
*
*     2.  Next I get the target rect and clip it myself to the
*         the portrect and store it in SrcRect and DestRect.  I
*         clip it myself here because I	have to store it in 
*         the same place as the PortRect.
*
*     3.  Next I get dV and dH off the stack and turn the TargetRect
*         stored at	SrcRect and DestRect into the Src and Dest rects
*         needed by	StdPixels.
*
*     4.  Next, I set XferMode to indicate Copy.
*
*     5.  Finally, I use the clipRgn and visRgn to create the src
*         and dest region for use with stdpixels.
*
*     6.  After calling StdPixels, I create a region that is the difference
*         of the src and dest regions and erase it.
*
* Warning to all who follow:
*     
*     StdPixels takes advantage of the fact that the DestLocInfo
*     lives on the same part of zeropage as the PortLocInfo	does
*     for routines that use the grafport.  Doing this allows me to
*     use GetMinRect to clip the target	rect to the intersection
*     of the BoundsRect, PortRect, VisBounds and ClipBounds.
*
*
****************************************************************
	EXPORT ScrollRect
ScrollRect	PROC
*              using CoreData
*              using E0Vectors

OrigDirect	equ 1	1
RTL1	equ OrigDirect+2	3
RTL2	equ RTL1+3	7
UpdateRgn	equ RTL2+3	A
dV	equ UpdateRgn+4	C
dH	equ dV+2	E
TheRectPtr	equ dH+2	11


;-----------------------------------------------
;
; First we get the inputs from memory to zero
; page
;

	jsr QDStart
	
	DirtyPort	; reset all the dirty DPFlags 

	ldy #LocSize+8-2	; move grafport loc	info to src and
Loop1	tyx	; dest locinfo on zp
	lda [PortRef],y
	sta SrcSCB,x
	sta DestSCB,x
	dey
	dey
	bpl Loop1

;----------------------------------------------
; 
; Now I get the target rect and put it into
; SrcRect and DestRect after clipping it to
; the portrect (which is currently stored at
; SrcRect and DestRect)

	phb	; save bank

	lda TheRectPtr+1,s	; put low word in x
	tax
	lda TheRectPtr+2,s	; set bank to bank with target
	phb	; rect
	sta 0,s
	plb

	lda |0,x
	cmp SrcRect
	bmi ClipTop
	sta SrcRect
	sta DestRect

ClipTop	lda |2,x
	cmp SrcRect+2
	bmi ClipLeft
	sta SrcRect+2
	sta DestRect+2

ClipLeft	lda |4,x
	cmp SrcRect+4
	bpl ClipBot
	sta SrcRect+4
	sta DestRect+4

ClipBot	lda |6,x
	cmp SrcRect+6
	bpl ClipRight
	sta SrcRect+6
	sta DestRect+6

ClipRight		; 
	plb	; restore bank register

;----------------------------------------------
;
; Now I adjust the SrcRect and DestRect
; accordingly for dH and dV.

	lda dV,s	; get dV
	bmi MoveUp

	clc	; dv is positive so	the top of the
	adc DestRect	; dest rect is lower by dV than the
	sta DestRect	; top of the TargetRect

	lda SrcRect+4	; dV is positive so	the bottom
	sec	; of SrcRect is dV from the bottom
	sbc dV,s	; of the target rect
	sta SrcRect+4

	bra AdjustHor

MoveUp	clc	; dV is negative so	the top of the
	adc DestRect+4	; dest rect is the TargetRect, but
	sta DestRect+4	; the bottom is less than the bottom
*		; of the targetrect.
*		; Note that I add Neg to Pos to get
*		; this to work

	lda SrcRect	; dV is negative so	the bottom of
	sec	; SrcRect is the bottom of the Target
	sbc dV,s	; Rect, but the top	of the SrcRect is
	sta SrcRect	; below the top of TargetRect

* Now I do the same	shit for the horizontal
AdjustHor	lda dH,s	; get dV
	bmi MoveLeft

	clc	; dH is positive so	the left of the
	adc DestRect+2	; dest rect is to rt by dH more than
	sta DestRect+2	; left of the TargetRect

	lda SrcRect+6	; dH is positive so	the right
	sec	; of SrcRect is dH from the right
	sbc dH,s	; of the target rect
	sta SrcRect+6

	bra AllAdjusted

MoveLeft	clc	; dH is negative so	the left of the
	adc DestRect+6	; dest rect is the TargetRect, but
	sta DestRect+6	; the right is less	than the right
*		; of the targetrect.
*		; Note that I add Neg to Pos to get
*		; this to work

	lda SrcRect+2	; dH is negative so	the right of
	sec	; SrcRect is the right of the Target
	sbc dH,s	; Rect, but the left of the SrcRect is
	sta SrcRect+2	; to rt the left of	TargetRect




AllAdjusted		; 

;----------------------------------------------
;
; Set the xfermode and the regions and we're
; ready to call StdPixels.

	stz XFerMode	; set the transfer mode

;-------------------------------------------------
;
; We create the
;     srcRgn := DestRect SECT VisRgn SECT ClipRgn
;
; But before we do this we must save the srcrect and
; destrect since the Rgn calls we are about to make
; will destroy this	part of zero page.
;
	tdc
	tax
	ldy #ZZEndOfSlice-CombinedMask ; num bytes to save

SaveLoop	lda >CombinedMask,x
	sta >0+512,x
	inx
	inx
	dey
	dey
	bpl SaveLoop


;----------------------------------------------------
;
; Now I hope it is safe
;
;

	PushLong PortRef	; get this on the stack for now

	PushLong #0	; get two new region
	_NewRgn
	bcc Got1Rgn
	plx
	plx
	jmp Error0

Got1Rgn	PushLong #0
	_NewRgn
	bcc Got2Rgn
	plx	; get unused space for handle off
	plx	; stack
	plx	; get handle of rgn	1 off stack into
	ply	; x and y
	pha	; put error code on	stack
	phy	; put handle of rgn	1 back on stack
	phx
	_DisposeRgn	; dispose of it
	pla	; get error back
	jmp Error0	; quit

Got2Rgn	phd	; save direct register
	tsc
	tcd

xDirect	equ 1	; these are equates	for this
xSrcRgn	equ 3	; temporary zp
xDestRgn	equ 7
xPortRef	equ 11
StackAddition	equ 14	; 14 new bytes on stack


	pei xSrcRgn+2	; SetRectRgn(SrcRgn,left,top,right,bot)
	pei xSrcRgn
	pei TheRectPtr+StackAddition+2
	pei TheRectPtr+StackAddition
	_RectRgn
	bcc cont1
	jmp ErrorD

cont1	pei xSrcRgn+2	; SrcRgn := SrcRgn SECT VisRgn
	pei xSrcRgn
	ldy #o_VisRgn+2
	lda [xPortRef],y
	pha
	dey
	dey
	lda [xPortRef],y
	pha
	pei xSrcRgn+2
	pei xSrcRgn
	_SectRgn
	bcc cont2
	jmp ErrorD

cont2	pei xSrcRgn+2	; SrcRgn := ClipRgn	SECT SrcRgn
	pei xSrcRgn
	ldy #o_ClipRgn+2
	lda [xPortRef],y
	pha
	dey
	dey
	lda [xPortRef],y
	pha
	pei xSrcRgn+2
	pei xSrcRgn
	_SectRgn
	bcc cont3
	jmp ErrorD

;-------------------------------------------------
;
; DestRgn = Offset SrcRgn
;
cont3	pei xSrcRgn+2	; DestRgn := SrcRgn
	pei xSrcRgn
	pei xDestRgn+2
	pei xDestRgn
	_CopyRgn
	bcc cont4
	jmp ErrorD

cont4	pei xDestRgn+2
	pei xDestRgn
	pei dh+StackAddition
	pei dv+StackAddition
	_OffsetRgn
	bcc cont5
	jmp ErrorD

;----------------------------------------------------
;
; Now I restore my zp and put the src and dest rgn
; in RgnHandleA and	RgnHandleB
;
cont5	pld	; restore direct
	pla
	sta RgnHandleA	; this is srcrgn
	pla
	sta RgnHandleA+2

	pla
	sta RgnHandleB
	pla
	sta RgnHandleB+2

	pla	; pull off port ref
	pla

	lda #WideOpen
	sta RgnHandleC
	lda #^WideOpen
	sta RgnHandleC+2



;---------------------------------------------------------
;
; Now I restore SrcRect and DestRect
;
	tdc
	tax
	ldy #ZZEndOfSlice-CombinedMask ; num bytes to restore

RepLoop	lda >0+512,x
	sta >CombinedMask,x
	inx
	inx
	dey
	dey
	bpl RepLoop

;----------------------------------------------------------
;
; Set flag to indicate that we do not clip to port rect
;
	stz ClipToPortToo


	jsl RgnBlt	; comes back with error in a
	bcs Error0

;----------------------------------------------
;
; Finally I must create the update region and
; erase it.
;
; Update Region = SrcRgn - DestRgn
;
	pei RgnHandleB+2	; save these on the	stack
	pei RgnHandleB	; so can call diff rgn

	pei RgnHandleA+2
	pei RgnHandleA


yDirect	equ 1
yHandleA	equ 3
yHandleB	equ 7
yStackSize	equ 10

	phd
	tsc
	tcd

	pei yHandleA+2
	pei yHandleA

	pei yHandleB+2
	pei yHandleB

	pei yHandleA+2
	pei yHandleA

	_DiffRgn
	bcs ErrorD

	pei yHandleA+2
	pei yHandleA
	_EraseRgn

;-------------------------------------------------
;
; If the update region passed to this routine is
; a nil handle then	we just free the regions I've
; created.  If it is not nil, then I copy the update
; region into it.

	lda UpdateRgn+yStackSize
	ora UpdateRgn+yStackSize+2
	beq ReturnNothing

	pei yHandleA+2
	pei yHandleA
	pei UpdateRgn+yStackSize+2
	pei UpdateRgn+yStackSize
	_CopyRgn
	bcs ErrorD

;-------------------------------------------------
;
; Free the regions (and any other political
; prisoners you can	find).


ReturnNothing	pld
	_DisposeRgn
	_DisposeRgn

	ldy #12
	jmp BusyEC


ErrorD	pha
	pei yHandleA+2
	pei yHandleA
	_DisposeRgn
	pei yHandleB+2
	pei yHandleB
	_DisposeRgn
	pla
	pld
Error0	tax
	ldy #12
	jmp BusyErr



	ENDP
;                copy pixel.maps/paint.pixels
****************************************************************
*
* PaintPixels   (PPRecPtr : Ptr);
*
* The PPRec is as follows:
*
*     PtrToSourceLocInfo
*     PtrToDestLocInfo
*     PtrToSourceRect
*     PtrToDestPoint
*     Mode
*     HandleToClipRegion
*
*
* The LocInfo Record Looks Like
*
*     MasterSCB	    byte
*     Reserved	    byte
*     PtrToPixelMap	    long
*     Width	    word
*     BoundsRect	    rect
*
*
* The Flow of control
*
*     1.  Bring everything to zero page
*     2.  Check to see if the transfer makes sense (SCB's
*         must match).
*     3.  Set up for the slice routines
*     4.  Loop calling the slice routines until all
*         lines are	transferred.
*
****************************************************************
	EXPORT PaintPixels
PaintPixels	PROC
*              using CoreData

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
PPRecPtr	equ RTL2+3


;-----------------------------------------------
;
; First we get the inputs from memory to zero
; page
;

	jsr QDStart

	DirtyPort	; reset dirtyDPFlags here
	
	lda PPRecPtr,s
	sta Temp
	tax
	lda PPRecPtr+1,s
	phb
	pha
	plb
	plb

	lda |0,x	; get pointer to SrcLocInfo
	sta Temp2
	lda |1,x
	sta Temp2+1

	ldy #LocSize-2	; move srclocinfo to zp
Loop1	tyx
	lda [Temp2],y
	sta SrcSCB,x
	dey
	dey
	bpl Loop1

	ldx Temp	; get back pointer to paramlist
	lda |4,x	; get pointer to DestLocInfo
	sta Temp2
	lda |5,x
	sta Temp2+1

	ldy #LocSize-2	; move srclocinfo to zp
Loop2	tyx
	lda [Temp2],y
	sta DestSCB,x
	dey
	dey
	bpl Loop2

	ldx Temp	; get back pointer to paramlist
	lda |8,x	; get pointer to Source Rect
	sta Temp2
	lda |9,x
	sta Temp2+1

	ldy #6	; move SourceRect to zp
Loop3	tyx
	lda [Temp2],y
	sta SrcRect,x
	dey
	dey
	bpl Loop3

	ldx Temp	; get back pointer to paramlist
	lda |12,x	; get pointer to DestLocInfo
	sta Temp2
	lda |13,x
	sta Temp2+1

	lda [Temp2]	; get the dest point
	sta DestPoint
	ldy #2
	lda [Temp2],y
	sta DestPoint+2

	lda SrcRect+4	; stretch the dest point into
	sec	; a rect that is the same
	sbc SrcRect	; size as the SrcRect.
	clc
	adc DestPoint
	sta DestPoint+4

	lda SrcRect+6
	sec
	sbc SrcRect+2
	clc
	adc DestPoint+2
	sta DestPoint+6

	lda |16,x	; get xfer mode
	sta XFerMode

	lda #WideOpen	; put wide open in all the
	sta RgnHandleA	; region handles.
	sta RgnHandleB
	sta RgnHandleC
	lda #^WideOpen
	sta RgnHandleA+2
	sta RgnHandleB+2
	sta RgnHandleC+2

	lda |18,x	; now look at the handle
	ora |20,x	; passed by user
	beq UseFake	; if it is nil, we are set
	lda |18,x	; else copy theirs to C
	sta RgnhandleC
	lda |20,x
	sta RgnHandleC+2

UseFake	plb	; restore the bank register

;----------------------------------------------------------
;
; Set flag to indicate that we do not clip to port rect
;
	stz ClipToPortToo


	jsl CallPP	; error comes back in a
	tax
	ldy #4
	jmp BusyErr	; (if any)

	ENDP

;                copy pixel.maps/slice.setup
****************************************************************
*
* SliceSetup
*
* This routine sets	up the following zp	variables:
*
*      NumSrcWords	           NumDestWords	 
*      SrcStartWord	           DestStartWord
*      SrcFinishWord           DestFinishWord
*	           LeftMask
*	           RightMask
*
* NumSrcWords and NumDestWords are mis-named because they really
* tell me the number of bytes, not words.
*
*
* It also adjust the boundries for the case where the
* number of words in the source and destination are different.
*
* Consider the three possiblities
*
* Source	         Dest
*
* xxxx|abcd|efgh|ijkl|xxxx   xxxx|abcd|efgx|xxxx     S = D
* xxxx|abcd|efgh|ijkl|xxxx   xxxa|bcde|fxxx|xxxx     S < D
* xxxx|abcd|efgh|ijkl|xxxx   xxxx|xdex|xxxx|xxxx     S > D
*
* When the source =	destination then nothing tricky happens.
* When Source < Destination then we pretend to transfer
*      one extra word from the source so that the last shift
*      out from the	source can get to the destination.
* When Source > Destination then we start the destinaton
*      one word sooner so that the first shift out from the
*      source can get to the destination.
*
****************************************************************

	EXPORT iSliceSetUp
iSliceSetUp	PROC


;-------------------------------------------------
;
; Now we decide which mode were working	in so
; that we set up the mode dependent stuff
;
	bit SrcSCB-1
	bmi Is640

;-------------------------------------------------
;
; The mode is 320.
;
	lda SrcRect+2	; get left edge of source
	sec	; change to global coords
	sbc SrcBounds+2
	sta HowFarToShift	; save copy here for later
	lsr a	; half it so it refers to byte
	and #$FFFE	; mask so refers to	even byte
	sta SrcStartWord

	lda SrcRect+6	; get right edge of	source
	dec a	; one less so don't write too much
	sec	; chage to global coords
	sbc SrcBounds+2	;
	lsr a	; half it so it refers to byte
	and #$FFFE	; mask so refers to	even byte
	sta SrcFinishWord

	lda DestRect+2	; get dest x
	sec
	sbc DestBounds+2
	tax	; save copy here for later
	lsr a	; half for byte
	and #$FFFE	; mask for even byte
	sta DestStartWord

	lda DestRect+6
	dec a
	sec
	sbc DestBounds+2
	lsr a	; half for byte
	and #$FFFE	; mask for even byte
	sta DestFinishWord


;-------------------------------------------------
;
; Now I discover which pixel in the word source
; and dest are.
;
	lda HowFarToShift	; this was global first src pixel saved
	and #3	; above
	sta HowFarToShift
	txa	; this was global first dest pixel saved
	and #3	; above
	cmp HowFarToShift
	bcs AllIsWell320

;-------------------------------------------------
;
; The DestPixel is < SrcPixel.  So we have to
; decrement the DestStartWord by 2
;
	dec DestStartWord
	dec DestStartWord
	clc
	adc #4


AllIsWell320		; 
	sec
	sbc HowFarToShift

	asl a	; make into 0, 4, 8	or 12
	asl a


	bra RazzleDazzle


;-------------------------------------------------
;
;  The Mode is 640
;
Is640	lda SrcRect+2	; get left edge of source
	sec	; convert to global	coords
	sbc SrcBounds+2
	sta HowFarToShift
	lsr a	; div by 4
	lsr a	; so it refers to byte
	and #$FFFE	; mask so it is even byte
	sta SrcStartWord

	lda SrcRect+6	; get right edge of	source
	dec a	; one less so don't write too much
	sec
	sbc SrcBounds+2
	lsr a	; div by 4 so it
	lsr a	; refers to byte
	and #$FFFE	; mask so it is even byte
	sta SrcFinishWord

	lda DestRect+2	; convert dest to global
	sec
	sbc DestBounds+2
	tax
	lsr a	; div by 4 for
	lsr a	; byte
	and #$FFFE	; mask so it is even byte
	sta DestStartWord

	lda DestRect+6
	dec a
	sec
	sbc DestBounds+2
	lsr a	; make into number of byte
	lsr a
	and #$FFFE	; make it an even byte
	sta DestFinishWord	; store

;-------------------------------------------------
;
; Now I discover which pixel in the word source
; and dest are.
;
	lda HowFarToShift	; this was global first src pixel saved
	and #7	; above
	sta HowFarToShift
	txa	; this was global first dest pixel saved
	and #7	; above
	cmp HowFarToShift
	bcs AllIsWell640

;-------------------------------------------------
;
; The DestPixel is < SrcPixel.  So we have to
; decrement the DestStartWord by 2
;
	dec DestStartWord
	dec DestStartWord
	clc
	adc #8

AllIsWell640		; 
	sec
	sbc HowFarToShift

	asl a	; make 0, 2, 4, 6, 8 ...

RazzleDazzle		; 

	asl a	; double it
	sta HowFarToShift

	lda DestFinishWord
	sec
	sbc DestStartWord
	sta NumDestWords

	lda SrcFinishWord
	sec
	sbc SrcStartWord
	sta NumSrcWords

	cmp NumDestWords
	beq AllDone

	bcc SrcIsLess

;-------------------------------------------------
;
; NumSrcWords > NumDestWords.  So make left mask
; zero and decrement the dest start Word by two
	lda #0	; left mask must be	zero
	sta LeftMask
	dec DestStartWord
	dec DestStartWord
	inc NumDestWords
	inc NumDestWords
	rtl

;-------------------------------------------------
;
; NumSrcBytes < NumDestBytes.  So Increment
; the SrcFinishWord	by two.
SrcIsLess	inc SrcFinishWord
	inc SrcFinishWord
	inc NumSrcWords
	inc NumSrcWords

AllDone	rtl

	ENDP




****************************************************************
*
* CallPP
*
* Local Routine to call the StdPixel routine (or user routine)
*
****************************************************************
	EXPORT CallPP
CallPP	PROC
*              using QDProcs
*              using E0Vectors

;-------------------------------------------------
;
; If the destination loc info is the same as
; the loc info in the current graf port, I must use
; the bottle neck proc in the grafport.

	jsr IsDestPort
	bcc UseStandard

	jsr TestGPs
	bcs NotStandard

UseStandard	jml StdPixels

NotStandard	phb	; put extra byte on	stack
	ldy #o_stdpixels
	lda [Temp],y	; get low word
	pha	; put on stack
	iny	; get middle and
	lda [Temp],y	; high byte
	sta 2,s	; overstore middle byte on stack
	rtl	; go there

	ENDP

****************************************************************
*
* IsDestPort
*
* Compares the destination loc info with the loc info
* of the graf port.	 if they are the same, then the carry is
* set.  Different, carry is clear.
*
****************************************************************
	EXPORT IsDestPort
IsDestPort	PROC
*              using CoreDATA

	ldy #LocSize-2
Loop	tyx
	lda [PortRef],y
	cmp DestSCB,x
	bne No
	dey
	dey
	bpl Loop

	sec
	rts

No	clc
	rts

	ENDP






	EXPORT iSetSliceAdr
iSetSliceAdr	PROC
*              using E0Vectors

	lda XFerMode	; take the tranfer mode
	and #$7F	; mask off not bit
	asl a	; double
	asl a	; and double again
	tax	; put in x


	lda HowFarToShift	; if i don't have to shift at all
	beq UseFastSlices	; then I can use the fast slice routines

	bit HorBackward	; oh well so I use the slow ones.
	bpl SlowHorIsForward

	lda >BackSliceAdrTable,x
	sta >ToSlice
	lda >BackSliceAdrTable+2,x
	bra StoreIt

SlowHorIsForward		; 
	lda >SliceAdrTable,x
	sta >ToSlice
	lda >SliceAdrTable+2,x
StoreIt	sta >ToSlice+2

	rtl

UseFastSlices		; 

;-------------------------------------------------
;
; I know that I can	use the fast routines, can I
; use the really fast copy routine?
;
	lda XferMode	; transfer mode must be 0!
	bne NotSpecial

	lda NonRectRegions	; are the clipping regions rectangular?
	bne NotSpecial

	lda NumDestWords	; are we copying at	least 6 bytes?
	cmp #4
	bcc NotSpecial

	lda SrcPixelMapRef+1 ; are source and dest equal to screen?
	cmp DestPixelMapRef+1
	bne NotSpecial
	and #$0FFF	; strip off the high nibble
	cmp #$0120	; on either screen???
	bne NotSpecial
	

	sec	; yes Special
	bra GoOn

NotSpecial	clc
GoON		; 

	bit HorBackward	; forward or back
	bpl FastHorIsForward

	bcc NotSoFastBack

	lda >RealFastBack
	sta >ToSlice
	lda >RealFastBack+2
	bra StoreIt


NotSoFastBack		; 
	lda >FastBackSliceAdrTable,x
	sta >ToSlice
	lda >FastBackSliceAdrTable+2,x
	bra StoreIt

FastHorIsForward		; 
	bcc NotSoFastForward

	lda >RealFastForward
	sta >ToSlice
	lda >RealFastForward+2
	bra StoreIt


NotSoFastForward		; 
	lda >FastSliceAdrTable,x
	sta >ToSlice
	lda >FastSliceAdrTable+2,x
	bra StoreIt


	ENDP


	EXPORT SliceAdrTable
SliceAdrTable	PROC

	jml FCopySlice
	jml FORSlice
	jml FXORSlice
	jml FBICSlice

	ENDP


	EXPORT BackSliceAdrTable
BackSliceAdrTable	PROC

	jml BFCopySlice
	jml BFORSlice
	jml BFXORSlice
	jml BFBICSlice

	ENDP


	EXPORT FastSliceAdrTable
FastSliceAdrTable	PROC

	jml fFCopySlice
	jml fFORSlice
	jml fFXORSlice
	jml fFBICSlice

	ENDP


	EXPORT FastBackSliceAdrTable
FastBackSliceAdrTable PROC

	jml fBFCopySlice
	jml fBFORSlice
	jml fBFXORSlice
	jml fBFBICSlice

	ENDP


	EXPORT RealFastBack
RealFastBack	PROC
	jml bRealFastCopy
	ENDP


	EXPORT RealFastForward
RealFastForward	PROC
	jml fRealFastCopy
	ENDP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/QD/polys.asm b/IIGS.601.SRC/GSToolbox/QD/polys.asm
new file mode 100644
index 0000000..bd80745
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/QD/polys.asm
@@ -0,0 +1 @@
+	title 'QD Polys             GS ROM 2.0'
****************************************************************
*			   *
*              POLYS		   *
*			   *
****************************************************************


****************************************************************
*			   *
*	Copyright (C) 1985-1987	   *
*	All Rights Reserved		   *
*	Apple Computer, Inc.	   *
*			   *
****************************************************************
	string asis
	blanks off


	include 'all.macros'
	include ':QDEquates:qd.data.asm'

	INCLUDE ':QDEquates:core.globals1'
	INCLUDE ':QDEquates:core.globals2'
	INCLUDE ':QDEquates:region.equs'
	INCLUDE ':QDEquates:rect.equs'
	INCLUDE ':QDEquates:slab.equs'


;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

	IMPORT BusyEC0
	IMPORT BusyEC12
	IMPORT BusyEC8
	IMPORT BusyErr0
	IMPORT BusyErr4
	IMPORT BusyErr8
	IMPORT DeRefA
	IMPORT DerefB
	IMPORT LocalMapPoint
	IMPORT QDStart
	IMPORT RetrieveRects
	IMPORT SpecialNewHandle
	IMPORT TestGPs
	IMPORT UnlockA
	IMPORT UnlockB
	IMPORT oErrOut4

;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

	ENTRY CallPoly
	ENTRY EPoly
	ENTRY FPoly
	ENTRY FrPoly
	ENTRY FrameAPoly
	ENTRY IPoly
	ENTRY JoinPoly
	ENTRY KillPolyRegion
	ENTRY MakePolyRegion
	ENTRY PPoly
	ENTRY PolyCheckPenVis
	ENTRY RepRgnSave
	ENTRY SaveRgnSave



;                COPY polys/draw
***********************************************************
*
* FramePoly  (r : Poly)
*
*
****************************************************************
	EXPORT FramePoly
FramePoly	PROC
*              using PicInfo

	ldx #FrameVerb
	bra JoinPoly

	ENDP


****************************************************************
*
* PaintPoly    (r :	Poly)
*
*
****************************************************************
	EXPORT PaintPoly
PaintPoly	PROC
*              using PicInfo

	ldx #PaintVerb
	bra JoinPoly

	ENDP

****************************************************************
*
* ErasePoly    (r :	Poly)
*
*
****************************************************************
	EXPORT ErasePoly
ErasePoly	PROC
*              using PicInfo

	ldx #EraseVerb
	bra JoinPoly

	ENDP

****************************************************************
*
* InvertPoly   (r :	Poly)
*
*
****************************************************************
	EXPORT InvertPoly
InvertPoly	PROC
*              using PicInfo

	ldx #InvertVerb
;              let this one fall into JoinPoly

	ENDP

****************************************************************
*
* JoinPoly
*
* Frame, Paint, Erase and Invert Poly all use this common
* code by branching	here with the verb in x register.
*
****************************************************************
	EXPORT JoinPoly
JoinPoly	PROC

OrigD	equ 1
RTL1	equ OrigD+2
RTL2	equ RTL1+3
PolyHandle	equ RTL2+3

	jsr QDStart	; preserves x register

	lda PolyHandle,s
	sta RgnHandleA
	lda PolyHandle+2,s
	sta RgnHandleA+2

	jsl CallPoly	; verb already in x
	tax	; error comes back in x
	jmp BusyErr4


	ENDP

****************************************************************
*
* FillPoly     (r :	Poly; p : pattern)
*
*
****************************************************************
	EXPORT FillPoly
FillPoly	PROC
*              using PicInfo
*              using E0Vectors

OrigDiPoly	equ 1
RTL1	equ OrigDiPoly+2
RTL2	equ RTL1+3
PatPtr	equ RTL2+3
PolyHandle	equ PatPtr+4

	jsr QDStart

	jsl UserPat2ZP

	lda PolyHandle,s
	sta RgnHandleA
	lda PolyHandle+2,s
	sta RgnHandleA+2

	ldx #FillVerb
	jsl CallPoly
	tax
	jmp BusyErr8
	ENDP



****************************************************************
*
* CallPoly
*
* This routine is jumped (or branched) to by the
* entry points after the graf verb is loaded into the
* x register.
*
* Zero page is already switched in by the time it gets here.
*
****************************************************************
	EXPORT CallPoly
CallPoly	PROC
*              using CoreDATA
*              using PicInfo
*              using QDProcs
*              using E0Vectors

	stx DrawVerb

	jsr TestGPs	; if there is a gp pointer
	bcs UseLocal

	jml StdPoly


UseLocal	phb	; put extra byte on	stack
	ldy #o_stdPoly	; get adr of new Poly routine
	lda [temp],y	; put on stack
	pha
	iny	; get bytes 2 and 3
	lda [temp],y
	sta 2,s	; store middle byte	twice
	rtl	; call it

	ENDP


****************************************************************
*
* StdPoly
*
* Common Polyangle routine that is central point for
* all Polyangle drawing routines.
*
* When control gets	here, all inputs are on zero page.
*       ThePoly handle is in RgnHandleA
*       ThePat (if any) is in TheFillPat
*       WhatToDo is	in DrawVerb
*
****************************************************************
	EXPORT iStdPoly
iStdPoly	PROC
*              using CoreDATA
*              using PicInfo
*              using QDProcs
*              using E0Vectors

	lda #PolyNoun	;
	jsl PutPictStuff	; inputs on zp and in a-reg
	bcc NoPicError
	rtl	; return error


NoPicError		; 
	lda DrawVerb	; put verb in a
	beq FrPoly


NotFrame	dec a
	asl a
	tax
	jmp (DoPolyTable,x)

DoPolyTable		; 
	DC.W PPoly
	DC.W EPoly
	DC.W IPoly
	DC.W FPoly

	ENDP


****************************************************************
*
* FrPoly
*
* Change History
* 7/23/87      GCP	   Removed check for pen visibility.
*	   Returns error from FrameAPoly
*
****************************************************************
	EXPORT FrPoly
FrPoly	PROC
*              using E0Vectors

	lda RgnHandleA
	ldx RgnHandleA+2
	jsr FrameAPoly

	ENDP




****************************************************************
*
* PPoly
*
* Change history
* 7/23/87      GCP	   Now calls PolyCheckPenVis not CheckPenVis
*	   Replaced oops with bcs RepRgnSave
*
****************************************************************
	EXPORT PPoly
PPoly	PROC
*              using E0Vectors

	jsr PolyCheckPenVis	; don't come back unless visible

	jsr SaveRgnSave

	jsr MakePolyRegion	; make the temp region
	bcs RepRgnSave	; error so quit.
	jsl v_PRgn
	pha	; save error code
	jsr KillPolyRegion	; get rid of temp region
	pla	; get error code back

	bra RepRgnSave

	ENDP




****************************************************************
*
* EPoly
*
* Change History
* 7/23/87      GCP	   Now calls PolyCheckPenVis not CheckPenVis
*	   Replaced oops with bcs RepRgnSave
*
****************************************************************
	EXPORT EPoly
EPoly	PROC
*              using CoreDATA
*              using PenModeDATA
*              using E0Vectors

	jsr PolyCheckPenVis	; don't come back unless visible

	jsr SaveRgnSave

	jsr MakePolyRegion
	bcs RepRgnSave
	jsl v_ERgn
	pha
	jsr KillPolyRegion
	pla

	bra RepRgnSave



	ENDP



****************************************************************
*
* IPoly
*
* Change History
* 7/23/87      GCP	   Now calls PolyCheckPenVis not CheckPenVis
*	   Replaced oops with bcs RepRgnSave
*
*
****************************************************************
	EXPORT IPoly
IPoly	PROC
*              using CoreDATA
*              using PenModeDATA
*              using E0Vectors

	jsr PolyCheckPenVis	; don't come back unless visible

	jsr SaveRgnSave

	jsr MakePolyRegion
	bcs RepRgnSave
	jsl v_IRgn
	pha
	jsr KillPolyRegion
	pla

	bra RepRgnSave



	ENDP



****************************************************************
*
* FPoly
*
* Change History
* 7/23/87      GCP	   Now checks pen visibility first.
*	   Replaced oops with bcs RepRgnSave
*	   Falls through to	RepRgnSave
*
*
****************************************************************
	EXPORT FPoly
FPoly	PROC
*              using CoreData
*              using PenModeDATA
*              using E0Vectors

	jsr PolyCheckPenVis

	jsr SaveRgnSave

	jsr MakePolyRegion
	bcs RepRgnSave
	jsl v_FRgn
	pha
	jsr KillPolyRegion
	pla
	bra RepRgnSave


	ENDP



****************************************************************
*
* PolyCheckPenVis
*
* Change history
* 7/23/87      GCP	     imported routine from patches.
*
****************************************************************

	EXPORT PolyCheckPenVis
PolyCheckPenVis	PROC
*              using CoreData
*              using PicInfo
*              using QDProcs



	ldy #o_PnVis
	lda [PortRef],y
	bpl IsVis

	plx	;get rts off stack
	lda #0	;clear error code
	clc	;clear carry
	rtl	;done

IsVis	rts

	ENDP



****************************************************************
*
* RepRgnSave
*
* Restores the region save field in the	graf port from the stack
* while preserving the error code in a-reg.  Carry is set
* before final RTL which is the RTL for	the drawing call.
*
****************************************************************
	EXPORT RepRgnSave
RepRgnSave	PROC
*              using CoreDATA
	tax

	ldy #o_PnVis
	pla
	sta [PortRef],y


	ldy #o_RgnSave
	pla
	sta [PortRef],y
	iny
	iny
	pla
	sta [PortRef],y

	txa

	cmp #1
	rtl	; this ends the poly draw call with
*		; error (if any) in	a reg

	ENDP


****************************************************************
*
* SaveRgnSave
*
* Puts the contents	of the RgnSave field of the GrafPort
* on the stack above the RTS address and zeros the RgnSave
* field in the port.  This way a new region can be opened,
* created and closed even if a region is already being saved.
*
****************************************************************
	EXPORT SaveRgnSave
SaveRgnSave	PROC
*              using CoreDATA
	plx	; put rts adr in x

	ldy #o_RgnSave+2	; put the rgnsave on stack and
	lda [PortRef],y	; zero that loc in the port
	pha
	dey
	dey
	lda [PortRef],y
	pha
	lda #0
	sta [PortRef],y
	iny
	iny
	sta [PortRef],y

	ldy #o_PnVis	; Save the pen level and set it
	lda [PortRef],y	; to zero so open region will hide it
	pha	; close rgn will restore it and let
	lda #0	; poly be painted
	sta [PortRef],y

	phx	; restore rts adr
	rts

	ENDP





****************************************************************
*
* MakePolyRegion
*
* RgnHandleA contains handle to the polygon.  I need to open
* a region, draw lines that make up the	points of the polygon,
* close the region and put the handle to it in RgnHandleA.
*
* Change History
* 7/23/87      GCP	   Added PullCloseAndDie to adjust the stack
*	   when NewRgn fails.
*
****************************************************************
	EXPORT MakePolyRegion
MakePolyRegion	PROC
*              using CoreDATA

	pei RgnHandleA+2	; save this on the stack
	pei RgnHandleA


	_OpenRgn	; open the regions
	bcc cont1

	plx	; clean stack and quit
	plx
	rts

cont1	pla
	plx

	jsr FrameAPoly
	bcs CloseAndDie


	PushLong #0
	_NewRgn
	bcs PullCloseAndDie

cont2	lda 3,s
	pha
	lda 3,s
	pha

	_CloseRgn

	plx	; preserve any error and status
	stx RgnHandleC	; and quit
	plx
	stx RgnHandleC+2


	rts


PullCloseAndDie		; ; pull invalid rgn handle from stack

	plx
	plx
; fall through

CloseAndDie		; 
	pha

	ldy #o_RgnSave+2
	lda [PortRef],y
	pha
	lda #0
	sta [PortRef],y
	dey
	dey
	lda [PortRef],y
	pha
	lda #0
	sta [PortRef],y
	_DisposeHandle

FinishDie	pla
	sec
	rts

	ENDP


****************************************************************
*
* KillPolyRegion
*
* Kills the region whose handle is in RgnHandleC
*
****************************************************************
	EXPORT KillPolyRegion
KillPolyRegion	PROC

	pei RgnHandleC+2
	pei RgnHandleC
	_DisposeRgn

	rts

	ENDP




****************************************************************
*
* FrameAPoly
*
* Frames the polygon whose handle is passed in the a and x
* registers.
*
* Change History
* 7/23/87      GCP	   a reg returns correct error code whe	no error occurs.
*
****************************************************************
	EXPORT FrameAPoly
FrameAPoly	PROC


	phx	; push handle on stack
	pha
	pha	; push 2 extra words on stack
	pha
	phd	; push direct register on stack

	tsc	; get stack ptr
	tcd	; turn stack to zp

OridDirect	equ 1
PolyPtr	equ 3
PolyHandle	equ 7

	ldy #4	; dereference and lock the handle
	lda [PolyHandle],y
	ora #$8000
	sta [PolyHandle],y

	lda [PolyHandle]
	sta PolyPtr
	dey
	dey
	lda [PolyHandle],y
	sta PolyPtr+2


	lda #10
	cmp [PolyPtr]	; see if there are any points in the
	bcs AllDone

	tay	; starting with first point move there
	lda [PolyPtr],y
	tax
	iny
	iny
	lda [PolyPtr],y
	iny
	iny
	phy	; save y on stack
	pha
	phx
	_MoveTo



PolyLoop	pla	; see if there are any more points
	cmp [PolyPtr]
	bcs NoMorePoints

	tay	; draw a line to the next point
	lda [PolyPtr],y
	tax
	iny
	iny
	lda [PolyPtr],y
	iny
	iny
	phy
	pha
	phx
	_LineTo
	bcc PolyLoop

;----------------------------------------------------
;
; An error occured during lineto so I must clean up
; and quit
	ply	; get rid of y on stack
	pha	; save error code

	ldy #4	; unlock the handle
	lda [PolyHandle],y
	and #$7FFF
	sta [PolyHandle],y

	pla	; get error back

	pld	; clean up the stack
	plx
	plx
	plx
	plx

	sec	; set carry to signify error
	rts


NoMorePoints	ldy #12	; close it up by drawing line back
	lda [PolyPtr],y	; to first point.
	pha
	dey
	dey
	lda [PolyPtr],y
	pha
	_LineTo


AllDone		; 
	ldy #4	; unlock the handle
	lda [PolyHandle],y
	and #$7FFF
	sta [PolyHandle],y

	pld	; clean up the stack
	pla
	pla
	pla
	plx

	lda #0	;no error
	clc

	rts

	ENDP
;                COPY polys/make
****************************************************************
*
* OpenPoly
*
*         Space For	Result  : handle
*
* Checks to see if another poly is already open.  If yes returns
* an error. If no then gets a new handle to 256 bytes of mem,
* inits that mem with a length of 10 at	beginning and zero
* bounding box.
*
****************************************************************
	EXPORT OpenPoly
OpenPoly	PROC
*              using CoreDATA
*              using ErrorDATA


OrigDirect	equ 1
RTL1Adr	equ OrigDirect+2
RTL2Adr	equ RTL1Adr+3
ResultH	equ RTL2Adr+3

	jsr QDStart

	ldy #o_PolySave
	lda [PortRef],y
	iny
	iny
	ora [PortRef],y
	beq continue

	ldx #PolyAlreadyOpen
	jmp BusyErr0


continue		; 

	lda #256
	ldx UserID
	ldy #0
	jsr SpecialNewHandle
	bcc Cont2

	tax	; move error code to x
	jmp BusyErr0	; get out

cont2		; 
	stx RgnHandleA
	sty RgnHandleA+2
	ldy #o_PolySave
	txa
	sta [PortRef],y
	iny
	iny
	lda RgnHandleA+2
	sta [PortRef],y

	jsr DeRefA

	lda #10	; put length of 10 in first word
	sta [RgnPtrA]
	ldy #2	; zero the bounding	box
	lda #0
ZeroLoop	sta [RgnPtrA],y
	iny
	iny
	cpy #10
	bcc ZeroLoop

	lda RgnhandleA	; put result handle	on stack
	sta ResultH,s
	lda RgnHandleA+2
	sta ResultH+2,s

	jsr UnlockA	; unlock a

	_HidePen

	jmp BusyEC0	; all done.

	ENDP


****************************************************************
*
* ClosePoly
*
*
****************************************************************
	EXPORT ClosePoly
ClosePoly	PROC
*              using CoreDATA
*              using ErrorDATA

	jsr QDStart

	ldy #o_PolySave	; get poly handle to zp
	lda [PortRef],y	; and zero the poly	save field of
	sta RgnHandleA	; graf port.
	lda #0
	sta [PortRef],y
	iny
	iny
	lda [PortRef],y
	sta RgnHandleA+2
	lda #0
	sta [PortRef],y

	lda RgnHandleA
	ora RgnHandleA+2
	bne cont0

	ldx #PolyNotOpen
	jmp BusyErr0

cont0	jsr DerefA

	lda [RgnPtrA]
	pea 0
	pha
	pei RgnHandleA+2
	pei RgnHandleA

	jsr UnlockA

	_SetHandleSize
	bcc cont1

	tax
	jmp BusyErr0

cont1		; 
;----------------------------------------------------
;
; Here I scan through the points and
; make the bounding	box.
;
	jsr DerefA	; relock and deref the rgn

	lda [RgnPtrA]	; if this is an empty polygon,
	cmp #10	; then there is no bounding box
	beq NeverMind

	ldy #10	; seed the bounding	box with the
	lda [RgnPtrA],y	; first point
	sta Y1
	sta Y2
	iny
	iny
	lda [RgnPtrA],y
	sta X1
	sta X2

	ldy #14	; start with second	point.
*		; it is impossible to have a poly that
*		; is only 14 long so its okay to check
*		; termination of loop at end.

BBLoop		; 
	lda [RgnPtrA],y	; Get Y value of point
	cmp Y1	; compare to upper
	bpl Y1Ok	; greater than upper
	sta Y1	; less than upper so replace upper
Y1OK	cmp Y2	; now check bottom
	bmi Y2OK	; its less than bottom
	sta Y2	; its greater so replace it
Y2OK	iny	; bump y to get x value
	iny
	lda [RgnPtrA],y
	cmp X1	; compare to left edge
	bpl X1OK	; greater than left
	sta X1	; less than left so	replace
X1OK	cmp X2	; compare to right edge
	bmi X2OK	; less than right
	sta X2	; greater than right so replace
X2OK	iny	; bump y again
	iny

	tya	; compare to poly size
	cmp [RgnPtrA]	; less, so continue
	bcc BBLoop

;----------------------------------------------------
;
; Now bounds is complete, so put it in polygon.
;
	ldy #2
	lda Y1
	sta [RgnPtrA],y
	lda X1
	iny
	iny
	sta [RgnPtrA],y
	lda Y2
	iny
	iny
	sta [RgnPtrA],y
	lda X2
	iny
	iny
	sta [RgnPtrA],y

NeverMind	jsr UnlockA

	_ShowPen

	jmp BusyEC0


	ENDP



****************************************************************
*
* KillPoly
*
*              PolyHandle : handle
*
*
* Change History
*
* 25 Feb 87    Steven Glass
*
* Routine used busy	end call even though it did not start
* by incrementing the busy flag: result	in net dec of
* busy flag.  Now uses non-busy end call.
*
****************************************************************
	EXPORT KillPoly
KillPoly	PROC
*              using CoreDATA
*              using ErrorDATA


RTL1Adr	equ 1
RTL2Adr	equ RTL1Adr+3
PolyH	equ RTL2Adr+3

	lda PolyH,s
	tax
	lda PolyH+2,s
	pha
	phx
	_DisposeHandle

	tax
	jmp oErrOut4

	ENDP



****************************************************************
*
* OffsetPoly
*
*              PolyHandle : handle
*              dh	      : word
*              dv	      : word
*
****************************************************************
	EXPORT OffsetPoly
OffsetPoly	PROC
OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
dV	equ RTL2+3
dH	equ dV+2
PolyHandle	equ dH+2

	jsr QDStart

	lda PolyHandle,s
	sta RgnHandleA
	lda PolyHandle+2,s
	sta RgnHandleA+2

	jsr DerefA

	ldy #2

OffsetLoop	lda [RgnPtrA],y
	clc
	adc dV,s
	sta [RgnPtrA],y

	iny
	iny
	lda [RgnPtrA],y
	clc
	adc dH,s
	sta [RgnPtrA],y

	iny
	iny
	tya

	cmp [RgnPtrA]
	bcc OffsetLoop


AllDone	jsr UnlockA

	jmp BusyEC8


	ENDP


****************************************************************
*
* MapPoly
*
*              PolyHandle   : handle
*              SrcRect      : rectptr
*              DestRect     : rectPtr
*
****************************************************************
	EXPORT MapPoly
MapPoly	PROC

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
ToRectPtr	equ RTL2+3
FromRectPtr	equ ToRectPtr+4
PolyHandle	equ FromRectPtr+4


*              using E0Vectors

	jsr QDStart

	jsr RetrieveRects	; get the rects where they're neede

	jsl >SetScaleAndMap	; set up the mapping values

	lda PolyHandle,s	; get the poly handle into B
	sta RgnHandleB
	lda PolyHandle+2,s
	sta RgnHandleB+2

	jsr DerefB	; lock and deref the poly

	PushWord #2	; put starting point on stack

MapLoop	lda 1,s	; get current offset in poly
	cmp [RgnPtrB]	; compare to size of polygon
	bcs AllDone	; if greater than or equal then done

	tay	; otherwise put this in y and map the
	jsr LocalMapPoint	; point that it points to

	lda 1,s	; now bump this pointer by 4 and
	clc	; continue the loop.
	adc #4
	sta 1,s
	bra MapLoop

AllDone	pla	; clear the counter	off the stack

	jsr UnlockB	; unlock the polygon

	jmp BusyEC12	; goodbye.
	ENDP



****************************************************************
*
* AddToPoly
*
* Internal routine to determine if we are save in the process
* of defining a polygon.  If we are, then we add the point
* in Y2,X2 to the polygon definition.
*
* Modifications:
*
*    April 7, 1986	   Zeros accumulator and clc's carry if no
*	   error on exit.  returns errors from
*	   memmgr calls.
*
*    May 2, 1986	   Checks to see if	open/close can handle
*	   this many points.  If it cannot handle
*	   the line, it is ignored and error
*	   returned.
*
****************************************************************
	EXPORT iAddToPoly
iAddToPoly	PROC
*              using CoreDATA
*              using ErrorData

	ldy #o_PolySave
	lda [PortRef],y
	sta RgnHandleA
	iny
	iny
	lda [PortRef],y
	sta RgnHandleA+2
	ora RgnHandleA
	bne MustAdd


	clc
	lda #0
	rtl

MustAdd		; 
	jsr DerefA	; deref the handle to get at data

;----------------------------------------------------
;
; Figure out if open/close rgn can handle this point
;
; First figure number of point sets this line will
; contribute.
;
;      Num = MinOF (ABS (x2-x1), ABS (y2-y1)) + 1
;
; except when line is vertical when Num	= 0
;
	lda x2
	sec
	sbc x1
	bpl NotNegX
	eor #$FFFF
	inc a
NotNegX	sta temp

	lda y2	; if line is vertical
	sec	; there is not point sets
	sbc y1	; added
	beq ItWillFit
	bpl NotNegY
	eor #$FFFF
	inc a
NotNegY	cmp temp
	bcc YisLess
	lda temp
YisLess	inc a

	ldy #2
	clc
	adc [RgnPtrA],y
	sta [RgnPtrA],y

;----------------------------------------------------
;
; Now see how many more it will be to close it
; up from here.
;
	lda [RgnPtrA]	; if this is first point
	cmp #10	; don't bother.
	beq ItWillFit


	ldy #12
	lda [RgnPtrA],y
	sec
	sbc x2
	bpl NotNegX2
	eor #$FFFF
	inc a
NotNegX2	sta temp

	dey
	dey
	lda [RgnPtrA],y
	sec
	sbc y2
	bpl NotNegY2
	eor #$FFFF
	inc a
NotNegY2	cmp temp
	bcc YisLess2
	lda temp
YisLess2	inc a

	ldy #2
	clc
	adc [RgnPtrA],y
	cmp #$2000-8
	bcc ItWillFit

	jsr UnlockA

	lda #PolyTooBig	; signal error
;              sec		; carry already set, save a byte.
	rtl

ItWillFit	PushLong #0	; find the handle size
	pei RgnHandleA+2
	pei RgnHandleA
	_GetHandleSize
	bcc GotSize
	plx
	plx
	bra oops

GotSize	pla	; handle size in a
	plx
	sec
	sbc #4	; need room for at least 4 bytes
	cmp [RgnPtrA]
	bcc TooSmall
	beq TooSmall

NowAddPoints		; 
	lda [RgnPtrA]	; this is offset for next point
	cmp #10
	bne NotFirst	; if equal to 10 then this is 1st pt

	tay	; put in y and add the starting
	lda Y1	; point
	sta [RgnPtrA],y
	iny
	iny
	lda X1
	sta [RgnPtrA],y
	iny
	iny
	tya


NotFirst	tay	; put in y and add ending point of line
	lda Y2
	sta [RgnPtrA],y
	iny
	iny
	lda X2
	sta [RgnPtrA],y
	iny
	iny
	tya
	sta [RgnPtrA]

	jsr UnlockA	; unlock the handle	and quit

	clc
	lda #0
	rtl

TooSmall	clc	; bump by decent amount
	adc #256+4
	pea 0	; Push the parameters for setting
	pha	; handles size on the stack
	pei RgnHandleA+2
	pei RgnHandleA
	jsr UnlockA	; unlock the handle	before making this
	_SetHandleSize	; call.
	bcs Oops	; an error
	jsr DerefA	; relock and deref.
	bra NowAddPoints	; now go add the points.


Oops		; 
	rtl	; if get error just	quit now, can't
*		; add any more points


	ENDP



	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/QD/rects.asm b/IIGS.601.SRC/GSToolbox/QD/rects.asm
new file mode 100644
index 0000000..831dce0
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/QD/rects.asm
@@ -0,0 +1 @@
+	title 'QD Rects             GS ROM 2.0'
****************************************************************
*			   *
*              RECTS		   *
*			   *
****************************************************************


****************************************************************
*			   *
*	Copyright (C) 1985-1990	   *
*	All Rights Reserved		   *
*	Apple Computer, Inc.	   *
*			   *
****************************************************************
*
* 26-Sep-90	Dave Lyons
*
* Brought in macros from old nonstandard all.macros.
*
*
	string asis
	blanks off
	
	include 'all.macros'
	include ':QDEquates:qd.data.asm'

	INCLUDE ':QDEquates:core.globals1'
	INCLUDE ':QDEquates:core.globals2'
	INCLUDE ':QDEquates:region.equs'
	INCLUDE ':QDEquates:rect.equs'
	INCLUDE ':QDEquates:slab.equs'
	
	include '::sys.equs.asm'

	MACRO
&lab	PushPtr &addr
&lab
	dc.B $F4
	dc.W (&addr)>>16
	dc.B $F4
	dc.W &addr
	MEND

****************************************************************
*
* macros for branching on conditions that take more than one
* instruction. macros for LONG conditional branching
*
****************************************************************
;---------------------------------------------------------

	MACRO
	ble &A
		blt  &A
		beq  &A
	MEND

;---------------------------------------------------------

	MACRO
	bgt &A
		beq  @dontTake
		bge  &A
@dontTake
	MEND

;---------------------------------------------------------
	MACRO
	bcsl &A
		bcc  @dontTake
		brl  &A
@dontTake
	MEND

;---------------------------------------------------------

	MACRO
	bccl &A
		bcs  @dontTake
		brl  &A
@dontTake
	MEND

;---------------------------------------------------------

	MACRO
	beql &A
		bne  @dontTake
		brl  &A
@dontTake
	MEND

;---------------------------------------------------------

	MACRO
	bnel &A
		beq  @dontTake
		brl  &A
@dontTake
	MEND

;---------------------------------------------------------

	MACRO
	bltl &A
		bge  @dontTake
		brl  &A
@dontTake
	MEND

;---------------------------------------------------------

	MACRO
	bgel &A
		blt  @dontTake
		brl  &A
@dontTake
	MEND

;---------------------------------------------------------

	MACRO
	bmil &A
		bpl  @dontTake
		brl  &A
@dontTake
	MEND

;---------------------------------------------------------

	MACRO
	bpll &A
		bmi  @dontTake
		brl  &A
@dontTake
	MEND

;---------------------------------------------------------

	MACRO
	blel &A
		blt  @takeBranch
		bne  @dontTake
@takeBranch	brl  &A
@dontTake
	MEND

;---------------------------------------------------------

	MACRO
	bgtl &A
		blt  @dontTake
		beq  @dontTake
		brl  &A
@dontTake
	MEND

;---------------------------------------------------------
	
	macro
	SwapPat
; This macro will test to see if the patter needs to be swapped and it will do so if 
; it needs it. I only do it here as an 11th hour fix to a dastardly problem
	lda <StartWord	; get the starting word number
	and #$0002	; see if its an odd word or even word
	beq @NoSwapNeeded	; if zero, don't swap
	ldx <pat
	lda <pat+2
	sta <pat
	stx <Pat+2
@NoSwapNeeded		; now continue
	ENDM	

; Some handy rectange equates
o_V1	equ 0
o_H1	equ 2
o_V2	equ 4
o_H2	equ 6
;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

	IMPORT BusyErr4
	IMPORT BusyErr8
	IMPORT DerefC
	IMPORT DrawRgn
	IMPORT FastSlabBIC
	IMPORT FastSlabCopy
	IMPORT FastSlabOR
	IMPORT FastSlabXOR
	IMPORT GetBoundsC
	IMPORT MinRectToY1
	IMPORT QDStart
	IMPORT RgnSave
	IMPORT SlabBIC
	IMPORT SlabCopy
	IMPORT SlabOR
	IMPORT SlabXOR
	IMPORT TestGPs
	IMPORT UnlockC

;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

	ENTRY CallRect
	ENTRY CheckPenVis
	ENTRY FastSlabTable
	ENTRY FrRect
	ENTRY GetRect
	ENTRY GrabPenSize
	ENTRY JoinRect
	ENTRY LeftMaskTable
	ENTRY NextPatSlice
	ENTRY RightMaskTable
	ENTRY SetFirstDestRef
	ENTRY SetNextDestRef
	ENTRY SlabTable
	ENTRY XSetUp640
	ENTRY iDrawRect



;                COPY RECTS/SLAB.SETUP
****************************************************************
*
* SetSlabAdr
*
* This routine sets	of the vector "ToSlab" in bank E0.  All
* drawing routines use this vector to get to their slab routine.
*
* If the clipping is non-rectangular or	the drawing mask is
* not all $FFFF's, then we use the normal slabs.  Otherwise
* we use the FAST SLABS.
*
* 2/28/89	Konstantin and Dave
* Also, returned in carry whether a fast slab is being used, and
* returned in <X> is the offset to the slab table. THIS SHOULD
* NOT CHANGE
****************************************************************
iSetSlabAdr	PROC EXPORT

	lda FillMode
	and #$7F
	asl a
	asl a
	tax

	lda NonRectRegions
	bne GoSlow

	ldy #o_PnMask	;go fast if there is no mask
	lda [PortRef],y
	ldy #o_PnMask+2
	and [PortRef],y
	ldy #o_PnMask+4
	and [PortRef],y
	ldy #o_PnMask+6
	and [PortRef],y
	inc a	;are they all $FFFF?
	beq  GoFast
GoSlow		; 


	lda >SlabTable,x
	sta >ToSlab
	lda >SlabTable+2,x
	sta >ToSlab+2
	sec	;we must go slow
	rtl

GoFast
	lda >FastSlabTable,x
	sta >ToSlab
	lda >FastSlabTable+2,x
	sta >ToSlab+2
	clc	;signals that we can go fast
	rtl




	ENDP



****************************************************************
*
* SlabTable
*
****************************************************************
SlabTable	PROC EXPORT

	jml SlabCopy
	jml SlabOR
	jml SlabXOR
	jml SlabBIC

	ENDP

****************************************************************
*
* FastSlabTable
*
****************************************************************
FastSlabTable	PROC EXPORT

	jml FastSlabCopy
	jml FastSlabOR
	jml FastSlabXOR
	jml FastSlabBIC

	ENDP
****************************************************************
*
* PreDRAW
*
* Puts the pen pattern into TheFillPat and the pen mode into
* FillMode
*
****************************************************************
iPreDraw	PROC EXPORT

	ldx #512
	lda <DirtyDPFlags,x
	and #PreDrawOK	; Fixed to and by Mensch 4/24/89
	cmp #PreDrawOK
	beq @PreDrawDone
	
	jsl PortLoc2ZP	; get the port info	down to zp
	jsl GetPenPReady	; get the pattern down to zp
	jsl GetMaskReady
@PreDrawDone
	ldy #O_PnMode	; get the mode down	to zp
	lda [PortRef],y
	sta FillMode

	rtl

	ENDP

****************************************************************
*
* XSetUp
*
* suck up 4 cycles...
****************************************************************
iXSetUp	PROC EXPORT

	bit MasterSCB-1
	bmi XSetUp640

	ENDP

****************************************************************
*
* XSetUp320
*
****************************************************************
XSetUp320	PROC EXPORT


	lda X1	; convert local coordinates to
	sec	; memory coordinates
	sbc BoundsRect+2	; start with left point

	tay	; save copy in y
	and #3	; mask off all but low 2 bits
	asl a	; quadruple result and put in
	asl a
	tax	; x

	tya	; retrieve y and half it so it refers
	lsr a	; to a byte (not a pixel)
	and #$FFFF-1	; make it even
	sta StartWord

	lda >LeftMaskTable,x
	sta LeftMask	; across words don't work for pixels

	lda X2	; convert local coordinates to
	clc
	sbc BoundsRect+2
; dec a See 640mode for comment	; one less so don't overwrite limit

	tay	; save copy in y
	and #3	; mask off all but low 2 bits
	asl a	; quadruple result and put in
	asl a
	tax	; x


	tya	; retrieve y and half it so it refers
	lsr a	; to a byte (not a pixel)
	and #$FFFF-1	; make it even
	sta FinishWord

	lda >RightMaskTable+2,x
	sta RightMask

	rtl

	ENDP


****************************************************************
*
* XSetUp640
*
****************************************************************
XSetUp640	PROC EXPORT


* Now we figure out	where in an even word, the first and last
* pixels lie.  Then	we create a masks to protect the pixels
* that are not to be touched.

	lda X1	; convert local coordinates to
	sec	; memory coordinates
	sbc BoundsRect+2	; start with left point

	tay	; save a copy in y
	and #7	; mask off all but low 3 bits
	asl a	; double this and put in
	tax	; x

	tya	; retrieve y
	lsr a	; divide by 4 so refers to addr
	lsr a	; of a byte
	and #$FFFF-1	; make it even
	sta StartWord

	lda >LeftMaskTable,x
	sta LeftMask

	lda X2	; convert local coordinates to
	clc	; than coordinate
	sbc BoundsRect+2
; was this, but change thar sec above and presto!
; dec a	; last pixel touched is one less

	tay	; save it in y
	and #7	; mask off all but low 3 bits
	asl a	; double this
	tax	; put in x
	tya	; retrieve y
	lsr a	; divide by 4 so points to byte
	lsr a
	and #$FFFF-1	; make even
	sta FinishWord

	lda >RightMaskTable,x
	sta RightMask

	rtl

	ENDP


****************************************************************
*
* LeftMaskTable
*
* This table is not	what you think.  Since the words in
* the scan line have the pixels in byte	order (not word order)
* the mask must be reversed.  The b declaration does that
* because it reads information a byte at a time in the order
* it finds it.  So the bits on the left	appear in the low
* byte of the table	entry while the bits on the right
* appear in the high byte of the table entry.
*
****************************************************************
LeftMaskTable	PROC EXPORT

	DC.B %11111111,%11111111
	DC.B %00111111,%11111111
	DC.B %00001111,%11111111
	DC.B %00000011,%11111111
	DC.B %00000000,%11111111
	DC.B %00000000,%00111111
	DC.B %00000000,%00001111
	DC.B %00000000,%00000011

	ENDP


****************************************************************
*
* RightMaskTable
*
****************************************************************
RightMaskTable	PROC EXPORT

	DC.B %11000000,%00000000
	DC.B %11110000,%00000000
	DC.B %11111100,%00000000
	DC.B %11111111,%00000000
	DC.B %11111111,%11000000
	DC.B %11111111,%11110000
	DC.B %11111111,%11111100
	DC.B %11111111,%11111111

	ENDP
;                copy RECTS/common
****************************************************************
*
* Common routine to	set up everything needed when drawing
* slabs.
*
* For this to work we use one new equate called WhosCalling.
* This is set to DrawNoun-1.  This lets	us make the following
* assumptions
*
*       Noun	       Bits in WhosCalling
*
*       RectNoun = $30     bit 15 clear	  bit 14 clear
*       RgnNoun = $80      bit 15 set	  bit 14 clear
*       RRectNoun =	$40    bit 15 clear	  bit 14 set
*       OvalNoun = $50     bit 15 clear	  bit 14 set
*       ArcNoun = $60      bit 15 clear	  bit 14 set
*
* In this way we can to a BIT WhosCalling an know exactly
* which of the three possible drawing routines will be used.
*
* I wish I could claim credit for discovering this.  Actually, Art
* looked at the nouns and made this observation.  Good work	Art.
*
****************************************************************
CommonSlabSetup	PROC EXPORT



	jsr CheckPenVis	; if the pen is not	visible there is
*		; no return

	jsl PortLoc2ZP	; all routines need	this done.
	Export CommonSlabSetup2
CommonSlabSetup2
	jsl SetUpPortRegions ; all routines need this done.

	bit WhosCalling
	bpl NotRgn

	jsr DerefC	; first deref the handle in RgnHandleC
	jsr GetBoundsC	; Region calls bounding box of RGN C
*		; moved to min rect.
	jsl MakeMinRect	; so it does not use BMinRect
	bra MinRectDone

NotRgn	jsl BMakeMinRect

MinRectDone	bcs NeverMind

	bit WhosCalling
	bvs ItsConics

	jsr MinRectToY1

ItsConics		; 


;-----------------------------------------------------
;
; Do right thing to	pattern given what we are doing.
;
	lda DrawVerb
	asl a
	tax
	jsr (FixPatTable,x)
	sta FillMode

PatIsReady		; 
	jsl GetMaskReady

	jsl ShieldCursor

	jsl DoTheDrawing

	jsl UnshieldCursor



NeverMind	jsl FreePortRegions

	bit <WhosCalling
	bpl NotRgn2
	jsr UnlockC

NotRgn2		; 


	lda #0
	clc
	rtl

FixPatTable	DC.W ForPaint	; this will never be used
	DC.W ForPaint
	DC.W ForErase
	DC.W ForInvert
	DC.W ForFill

ForPaint		; 
	jsl GetPenPReady
	ldy #o_PnMode
	lda [PortRef],y
	rts


ForErase		; 
	jsl GetBackPReady
	lda #modecopy
	rts

ForInvert		; 
	ldx #512	; test to see if we can use the dirty flag stuff
	lda <DirtyDPFlags,x
	bpl @GoSlow
	tay	; save this value for a sec...
	and #InvPatternOK	; see if its ok to draw...
	bne @PatternDone
	tya	; get the flags back
	and #AllPatsBad
	ora #InvPatternOK+SolidPatOK
	sta <DirtyDPFlags,x
@GoSlow
	lda #$FFFF
	ldx #256
@PatLoop	sta TheFillPat,x
	inx
	inx
	cpx #PatSize+256
	bcc @PatLoop
@PatternDone
	lda #ModeXOR
	rts


ForFill		; 
	lda BoundsRect+2
	and #7
	tay
	jsl RotatePat
	lda #ModeCopy
	rts



DoTheDrawing		; 

	bit WhosCalling
	bmi ItsRgn
	bvs ItsConics2
	jml DrawRect
ItsRgn	jml DrawRgn
ItsConics2	jml DrawConic


	ENDP
;                COPY RECTS/RECTS
****************************************************************
*
* FrameRect  (r : rect)
*
* Modifications
*
*    April 7, 1986	   Now returns error from CallRect.
*
****************************************************************
FrameRect	PROC EXPORT

	ldx #FrameVerb
	bra JoinRect

	ENDP

****************************************************************
*
* PaintRect    (r :	rect)
*
* Modifications
*
*    April 7, 1986	   Now returns error from CallRect.
*	      
****************************************************************
PaintRect	PROC EXPORT

	ldx #PaintVerb
	bra JoinRect

	ENDP

****************************************************************
*
* EraseRect    (r :	rect)
*
* Modifications
*
*    April 7, 1986	   Now returns error from CallRect.
*	       
****************************************************************
EraseRect	PROC EXPORT

	ldx #EraseVerb
	bra JoinRect

	ENDP

****************************************************************
*
* InvertRect   (r :	rect)
*
* Modifications
*
*    April 7, 1986	   Now returns error from CallRect.
*                 
****************************************************************
InvertRect	PROC EXPORT

	ldx #InvertVerb
; let this one fall	into join rect

	ENDP

****************************************************************
*
* JoinRect
*
* JoinRect is a common routine called by frame, paint,invert
* and erase rect.  The draw verb is passed in X
*
* Modifications
*
*    Apr 14, 1989	   QDStart is now inline and the jmp BusyErr8
*	   is long so it can work in the patch.
****************************************************************
JoinRect	PROC EXPORT

	phd
	tcd
	lda >BusyFlag
	inc a
	sta >BusyFlag

;
; DEBUG HERE
;
;	lda >$E0C025
;	and #$0004
;	beq @NoDebug
;	brk 00
;@NoDebug
	stx DrawVerb	; save draw verb on	zp
	jsr GetRect	; get the rect to zp
	ldx DrawVerb	; get the draw verb	back
	jsl CallRect	; call rect
	tax	; return any error
	jml BusyErr4

	ENDP

****************************************************************
*
* FillRect     (r :	rect; p : pattern)
*
* Modifications
*
*    April 7, 1986	   Now returns error from CallRect.
*
*    Feb 25, 1987	   Now calls QDStart at beginning!
*
*    Apr 14, 1989	   QDStart is now inline and the jmp BusyErr8
*	   is long so it can work in the patch.
*
****************************************************************
FillRect	PROC EXPORT

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
PPtr	equ RTL2+3
RPtr	equ PPtr+4

	phd
	tcd
	lda >BusyFlag
	inc a
	sta >BusyFlag

	jsl UserPat2ZP
	lda RPtr,s
	sta PPtr,s
	lda RPtr+2,s
	sta PPtr+2,s
	jsr GetRect

	ldx #FillVerb
	jsl CallRect
	tax
	jml BusyErr8
	
	
	ENDP


****************************************************************
*
* GetRect
*
* Internal routine to move the rectangle pointed to by
* the pointer on the stack to Y1 etc.
*
* This routine trashes temp (four bytes	on zp) and
* all registers.
*
****************************************************************
GetRect	PROC EXPORT

RTSAdr	equ 1
OrigDirect	equ RTSAdr+2
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
RPtr	equ RTL2+3

	lda RPtr,s
	sta Temp
	lda RPtr+1,s
	sta Temp+1

	ldy #6
PLoop	tyx
	lda [Temp],y
	sta Y1,x
	dey
	dey
	bpl PLoop
	rts

	ENDP

****************************************************************
*
* CallRect
*
* This routine is jumped (or branched) to by the
* entry points after the graf verb is loaded into the
* x register.
*
* Zero page is already switched in by the time it gets here.
*
****************************************************************
CallRect	PROC EXPORT
; The following code is pretty handy when debugging rects, tryit, you'll like it...
;@wait	lda >$E0C000
;	bpl @Wait
;	sta >$E0C010
;	and #$7F
;	cmp #$1B
;	bne @NoDebug
;	brk 00
@NoDebug

	stx DrawVerb

	lda #RectNoun	;
	sta DrawNoun	; put on zp for later too!!!!
	
	ldx #512	; test the DirtyDPFlags for picts and pen...
	lda <DirtyDPFlags,x
	and #TestDrawState
	cmp #TestDrawState
	beq DoFasterSetup	; if this is zero, then pen vis/no pictures etc...

	jsr TestGPs	; if there is a gp pointer
	bcs UseLocal

	jml StdRect


UseLocal	phb	; put extra byte on	stack
	ldy #o_stdrect	; get adr of new rect routine
	lda [temp],y	; put on stack
	pha
	iny	; get bytes 2 and 3
	lda [temp],y
	sta 2,s	; store middle byte	twice
	rtl	; call it

DoFasterSetup
	lda DrawVerb	; put verb in a
	bne NotFrame
	jmp FrRect
NotFrame
	jmp CommonSlabSetup2

	ENDP


****************************************************************
*
* StdRect
*
* Common rectangle routine that is central point for
* all rectangle drawing routines.
*
* When control gets	here, all inputs are on zero page.
*       TheRect is kept in Y1 thru X2
*       ThePat (if any) is in TheFillPat
*       WhatToDo is	in DrawVerb
*
* Modifications
*
*   April 7, 1986	  Now checks error returns from PutPicStuff
*	  and PutRect.
*
****************************************************************
iStdRect	PROC EXPORT

	lda #RectNoun	;
	sta DrawNoun	; put on zp for later too!!!!
	
	jsl PutPictStuff	; inputs on zp and in a-reg
	bcc NoPicErr

	rtl	; return the error


NoPicErr		; 
	lda DrawVerb	; put verb in a
	bne NotFrame

	jsr RgnSave	; does this contribute to region def
	bcc FrRect	; no, so frame it
	jsl PutRect	; yes, so call putrect
	bcc FrRect	; no error so frame	it.

	rtl	; return the error

NotFrame		; 


	jmp CommonSlabSetup



	ENDP


****************************************************************
*
* PRect, FRect, IRect, ERect
*
****************************************************************
PRect	PROC EXPORT
	ENDP
FRect	PROC EXPORT
	ENDP
IRect	PROC EXPORT
	ENDP
ERect	PROC EXPORT

	lda #RectNoun
	sta DrawNoun
	jmp CommonSlabSetup


	ENDP


****************************************************************
*
* FrRect
*
* Modifications
*
*     April 7, 1986	  Now returns "No Error"
*
****************************************************************
FrRect	PROC EXPORT

	jsr GrabPenSize	; don't come back unless visible
	jsr CheckPenVis	; don't come back unless visible

;-------------------------------------------------
;
; Put copy of rect in rect2
;
	lda y1
	sta Rect2
	lda Y1+2
	sta Rect2+2
	lda Y1+4
	sta Rect2+4
	lda Y1+6
	sta Rect2+6
; was
;	ldx #6
;Loop	lda Y1,x
;	sta Rect2,x
;	dex
;	dex
;	bpl Loop

;-------------------------------------------------
;
; Check to see if this is a valid rectangle


	jsl PreDraw	; move stuff to zp
	jsl SetUpPortRegions

	jsl BMakeMinRect
	bcc ValidRect

	jsl FreePortRegions
	rtl

ValidRect	jsl ShieldCursor

;-------------------------------------------------
;
; See if the pen size is larger than rectangle
;
	ldx #2
CheckLoop	lda Rect2+4,x
	sec
	sbc Rect2,x
	lsr a
	cmp LocalPnSize,x
	bcc PenTooBig
	dex
	dex
	bpl CheckLoop
	bra PenOkay

PenTooBig	jsl DrawRectB
	bra FinishIt


;-----------------------------------------------
;
; We draw four rectangles in such a way	that 
; no pixel is drawn	more than once
;
PenOkay	lda Y1	; first the top of the rect
	clc
	adc LocalPnSize
	sta Y2
	jsl DrawRectB
;
	lda Rect2+o_H2
	sta x2
	sec
	sbc LocalPnSize+2
	sta x1
	
	lda Rect2+o_V2
	sta Y2
	
	lda Rect2+o_V1
	clc
	adc LocalPnSize
	sta Y1
	jsl DrawRectB
;
	lda Rect2+o_H2
	sec
	sbc LocalPnSize+2
	sta X2

	lda Rect2+o_V2
	sta Y2
	sec
	sbc LocalPnSize
	sta Y1

	lda Rect2+o_H1
	sta X1

	jsl DrawRectB
;

	lda Rect2+o_V2
	sec
	sbc LocalPnSize
	sta Y2
	
	lda Rect2+o_H1
	sta X1
	clc
	adc LocalPnSize+2
	sta X2
	
	lda Rect2+o_V1
	clc	; edges since they are already
	adc LocalPnSize	; done
	sta Y1
	jsl DrawRectB

FinishIt	jsl UnshieldCursor
	jsl FreePortRegions
	lda #0	; return no error
	clc
	rtl



	ENDP




****************************************************************
*
* DrawRect
*
* Draws the specified rectangle using the pattern kept in
* TheFillPat, using	the mode kept in FillMode
*
* 2/22/89	Konstantin & Dave
*
*	Changed SetSlabAdr so that the carry is clear
* when the clip region is rectangular and the draw mask is all $FFFF.
*
* 2/24/89	Konstantin
*	If the regions are rectangular, we don't need to call
*	Init2Regions.
*
* 3/3/89	Mensch
*	Add faster "thin rect" drawing. This should speed
*	up framerect a bunch!
*
* 3/10/89	Mensch (and Dave)
*	Changed the "thin rect" stuff to allow use to call
*	some new super slab routines
*
* 4/22/89	Mensch
*	Fixed all super slab (non-slabs actually) to take
*	the proper word of the pattern for screen blitting
*
****************************************************************

iDrawRectB	PROC EXPORT

;---------------------------------------------------------------
	EXPORT iDrawRect
	IMPORT  FastDrawRect
;---------------------------------------------------------------

;---------------------------------------------------------------
	jsl  BMakeMinRect
	jsr  MinRectToY1
	bcc  iDrawRect
	rtl
;---------------------------------------------------------------
iDrawRect	phb		;save the data bank register

	lda  [RgnPtrA]
	ora  [RgnPtrB]
	cmp  #10	
	bne  GoSlow
	stz  NonRectRegions
	jsl  SetSlabAdr
	bcc  FastDrawRect
;---------------------------------------------------------------
GoSlow	jsl  Init2Regions
	jsl  SetSlabAdr
	jsl  XSetup

	jsr  SetFirstDestRef	;set up dest ref for first scan line

RectLoop	jsr  NextPatSlice		;set up the next pattern slice
	jsl  Seek2Regions		;seek regions to this line

	jsl  ToSlab		;draw this slab

	lda  CurrentY		;bump current Y
	inc  a
	cmp  Y2
	bpl  TheEnd
	sta  CurrentY

	jsr  SetNextDestRef
	bra  RectLoop

TheEnd	plb		;restore the bank register
	rtl
;---------------------------------------------------------------

	ENDP

****************************************************************

FastDrawRect	PROC

;---------------------------------------------------------------
	IMPORT  EndXORRazor
	IMPORT  CopyJumpTable
;---------------------------------------------------------------

;---------------------------------------------------------------
patIndex	equ  CurrentY
lineCount	equ  Y2
;---------------------------------------------------------------

;---------------------------------------------------------------
	jsl  XSetup		;setup for calling the slabs
	jsr  SetFirstDestRef

	pei  Y2		;save Y2

	lda  Y2		;find the line count (bottom - top)
	sec
	sbc  CurrentY
	sta  lineCount

	lda  FillMode		;if the fill mode is not modeCopy
	and  #$7F		;..or modeXOR, then use the slabs
	beq  @1
	cmp  #modeXOR
	bne  useTheSlabs
@1
	lda  FinishWord		;If we are only doing one or two words,
	sec		;..then special case these
	sbc  StartWord
	beq  doSingle
	lsr  a
	dec  a
	beq  @gotoEdges
	cmp  #80		;if we are using more than 80 words then
	bge  useTheSlabs		;..use the slabs
	sta  Temp		;save the count in direct page

	ldx  #512		;if we are using solid patterns then
	lda  <DirtyDPFlags,x	;..do a special loop
	and #SolidPatOK
	cmp #SolidPatOK
	bne  useTheSlabs

	jmp  fastMiddle
@gotoEdges	jmp  doEdges
;---------------------------------------------------------------




;---------------------------------------------------------------
useTheSlabs	jsr  makePatIndex		;find the index into the FillPat table

@loop	lda  TheFillPat,x		;put the pattern in Pat
	sta  Pat
	lda  TheFillPat+2,x
	sta  Pat+2

	lda  FillMode		;do we need to invert the pattern ?
	bpl  @notNOT
	lda  Pat
	eor  #$FFFF
	sta  Pat
	lda  Pat+2
	eor  #$FFFF
	sta  Pat+2
@notNOT
	jsl  ToSlab		;draw the actual line

	dec  lineCount
	beq  allDone

	lda  patIndex		;move to the next pattern
	clc
	adc  #4
	and  #$011F
	sta  patIndex
	tax

	lda  DestRef		;move to the next line. NOTE: carry is
	adc  Width		;..always clear here
	sta  DestRef
	bcc  @loop

	inc  DestRef+2
	pei  DestRef+1
	plb
	plb
	bra  @loop
;---------------------------------------------------------------
allDone	pla
	sta  Y2
	plb
	rtl
;---------------------------------------------------------------




;---------------------------------------------------------------
doSingle	ldx  #512		;if we are using solid patterns then
	lda  <DirtyDPFlags,x	;..do a special loop
	and #SolidPatOK
	cmp #SolidPatOK
	bne  slowSingle

	ldx  #256
	lda  TheFillPat,x
	sta  Pat
	ldx  FillMode
	bpl  @notNOT
	eor  #$FFFF
	sta  Pat
@notNOT
	ldy  StartWord		;our offset stays the same
	ldx  lineCount

	lda  FillMode		;..copy or an XOR
	and  #$7F
	beq  singleCopy
;---------------------------------------------------------------
singleXOR	lda  Pat		;combine the pattern with the mask
	and  LeftMask
	and  RightMask
	sta  Pat

@slowLoop	clc		;clear the carry
@loop	lda  Pat
	eor  (DestRef),y
	sta  (DestRef),y
	dex
	beq  AllDone
	lda  DestRef		;move to the next line. NOTE: carry is
	adc  Width		;..always clear here
	sta  DestRef
	bcc  @loop
	inc  DestRef+2
	pei  DestRef+1
	plb
	plb
	bra  @slowLoop
;---------------------------------------------------------------
singleCopy	lda  LeftMask		;combine our masks so we only need one
	and  RightMask
	sta  LeftMask

@slowLoop	clc		;clear the carry
@loop	lda  Pat
	eor  (DestRef),y
	and  LeftMask
	eor  (DestRef),y
	sta  (DestRef),y
	dex
	beq  gotoAllDone1
	lda  DestRef		;move to the next line. NOTE: carry is
	adc  Width		;..always clear here
	sta  DestRef
	bcc  @loop
	inc  DestRef+2
	pei  DestRef+1
	plb
	plb
	bra  @slowLoop
gotoAllDone1	jmp AllDone
;---------------------------------------------------------------
slowSingle	jsr  makePatIndex		;find the index into the FillPat table
; 4/22/89 Mensch
; Modified to support 32 byte patterns
	lda <STartWord
	and #$0002
	beq @1
	inx	; if odd bump pattern address by 2...
	inx
@1
	lda  LeftMask		;combine our masks so we only need one
	and  RightMask
	sta  LeftMask
	stz  Pat+2		;use Pat+2 to take care of the not mode
	lda  FillMode		;..for the pattern
	bpl  @notNOT
	dec  Pat+2
@notNOT
	ldy  StartWord		;our offset stays the same

	stz  Temp		;temp tells us whether we are doing a
	lda  FillMode		;..copy or an XOR
	and  #$7F
	beq  @slowLoop
	dec  Temp		;here we are doing an XOR

@slowLoop	clc
@loop	lda  TheFillPat,x		;put the pattern in Pat
	eor  Pat+2		;take care of the NOT case
	bit  Temp
	bmi  @2
	eor  (DestRef),y
@2	and  LeftMask
	eor  (DestRef),y
	sta  (DestRef),y

	dec  lineCount
	beq  gotoAllDone

	txa		;move to the next pattern
	adc  #4		;carry is ALWAYS clear here
	and  #$011F
	tax

	lda  DestRef		;move to the next line. NOTE: carry is
	adc  Width		;..always clear here
	sta  DestRef
	bcc  @loop

	inc  DestRef+2
	pei  DestRef+1
	plb
	plb
	bra  @slowLoop
;---------------------------------------------------------------
gotoAllDone	jmp  allDone
;---------------------------------------------------------------




;---------------------------------------------------------------
doEdges	
	ldx  #512		;if we are using solid patterns then
	lda  <DirtyDPFlags,x	;..do a special loop
	and #SolidPatOK
	cmp #SolidPatOK
	bne slowEdges

	ldx #256
	lda  TheFillPat,x
	sta  Pat

	ldx  FillMode
	bpl  @notNOT
	eor  #$FFFF
	sta  Pat
@notNOT
	ldx  lineCount

	lda  FillMode		;..copy or an XOR
	and  #$7F
	beq  edgeCopy
;---------------------------------------------------------------
edgeXOR	lda  Pat
	tay
	and  LeftMask
	sta  Pat
	tya
	and  RightMask
	sta  Pat+2

@slowLoop	clc
@loop	ldy  StartWord
	lda  Pat
	eor  (DestRef),y
	sta  (DestRef),y
	iny
	iny
	lda  Pat+2
	eor  (DestRef),y
	sta  (DestRef),y
	dex
	beq  gotoAllDone
	lda  DestRef		;move to the next line. NOTE: carry is
	adc  Width		;..always clear here
	sta  DestRef
	bcc  @loop
	inc  DestRef+2
	pei  DestRef+1
	plb
	plb
	bra  @slowLoop
;---------------------------------------------------------------
edgeCopy	clc
@loop	ldy  StartWord
	lda  Pat
	eor  (DestRef),y
	and  LeftMask
	eor  (DestRef),y
	sta  (DestRef),y
	iny
	iny
	lda  Pat
	eor  (DestRef),y
	and  RightMask
	eor  (DestRef),y
	sta  (DestRef),y
	dex
	beq  gotoAllDone
	lda  DestRef		;move to the next line. NOTE: carry is
	adc  Width		;..always clear here
	sta  DestRef
	bcc  @loop
	inc  DestRef+2
	pei  DestRef+1
	plb
	plb
	bra  edgeCopy
;---------------------------------------------------------------
slowEdges	jsr  makePatIndex		;find the index into the FillPat table

	stz  Temp		;temp tells us whether we are doing a
	lda  FillMode		;..copy or an XOR
	and  #$7F
	beq  @slowLoop
	dec  Temp		;here we are doing an XOR

@slowLoop	clc
@loop	lda  StartWord	; Modified 4/22/89 mensch
	tay	; make this change to support 32 byte patterns
	and #$0002
	beq @EvenPat	; if zero use pats in order
	lda TheFillPat,x	; else swap em...
	sta Pat+2	; first store the 2nd word pattern
	lda TheFillPat+2,x
	bra @OddPat
@EvenPat
	lda TheFillPat+2,x	; store the 2nd word pattern
	sta Pat+2
	lda  TheFillPat,x	;Now get first word pat
@OddPat	bit  FillMode
	bpl  @notNOT1
	eor  #$FFFF
@notNOT1	bit  Temp
	bmi  @1
	eor  (DestRef),y
@1	and  LeftMask
	eor  (DestRef),y
	sta  (DestRef),y
	iny
	iny
	lda  Pat+2	;put the pattern in Pat
	bit  FillMode
	bpl  @notNOT2
	eor  #$FFFF
@notNOT2	bit  Temp
	bmi  @2
	eor  (DestRef),y
@2	and  RightMask
	eor  (DestRef),y
	sta  (DestRef),y

	dec  lineCount
	beq  edgeDone

	lda  patIndex		;move to the next pattern
	adc  #4		;carry is ALWAYS clear here
	and  #$011F
	sta  patIndex
	tax

	lda  DestRef		;move to the next line. NOTE: carry is
	adc  Width		;..always clear here
	sta  DestRef
	bcc  @loop

	inc  DestRef+2
	pei  DestRef+1
	plb
	plb
	bra  @slowLoop
;---------------------------------------------------------------
edgeDone	jmp  allDone
;---------------------------------------------------------------

;---------------------------------------------------------------
fastMiddle	ldx  #256		;if we are using extended patterns, then
	lda  TheFillPat,x		;..call the slabs
	sta  Pat
	cmp  TheFillPat+2,x
	bnel useTheSlabs

	ldx  FillMode		;do we need to invert the pattern ?
	bpl  @dontInvert
	eor  #$FFFF
	sta  Pat

@dontInvert	txa		;get back the fill mode
	and  #$7F
	beq  @setupCopy

@setupXOR	lda  Temp
	asl  a		;multiply the count by seven (the number
	asl  a		;..of bytes of code it takes to XOR one
	asl  a		;..word.)
	sbc  Temp		;NOTE: the carry is always CLR here so
	eor  #$FFFF		;..these three lines get us:
	adc  #EndXORRazor-2		;..{ EndXORRazor - (count * 7) - 1 }
	bra  @cont

@setupCopy	lda  Temp
	asl  a
	tax
	lda  >CopyJumpTable,x
	dec  a

@cont	sta  Temp		;save the jump address for the slab hooks
	pei  FinishWord		;save FinishWord, since we kill it
	ldx  Pat		;keep the pattern in the X-Reg

	lda  FinishWord		;adjust the finish word so we can use it
	sec		;..as an index easier
	sbc  StartWord
	sta  FinishWord
	lda  StartWord		;make Y-Reg a pointer to the first word
	clc		;..to invert
	adc  DestRef
	tay
	lda  FillMode		;are we using copy or XOR ?
	and  #$7F
	beq  @enterCopyLoop
	bra  @enterXORLoop
;---------------------------------------------------------------
@copyLoop	txa
	eor  |0,y
	and  LeftMask
	eor  |0,y
	sta  |0,y
	sty  DestRef		;save our index in DestRef
	ldy  FinishWord		;the last word is always at finish word
	txa		;source pattern is still in X-Reg
	eor  (DestRef),y
	and  RightMask
	eor  (DestRef),y
	sta  (DestRef),y		;and store
	ldy  DestRef

	txa		;copy needs the pattern in the A-Reg
	pea  @backHere1-1
	pei  Temp
	rts
@backHere1	dec  lineCount
	beq  middleDone
	tya		;the carry is always clear here
	adc  Width
	tay
@enterCopyLoop	bcc  @copyLoop
	clc		;the carry must remain clear thru this
	inc  DestRef+2		;..loop
	pei  DestRef+1
	plb
	plb
	bra  @copyLoop
;---------------------------------------------------------------
@XORLoop	txa		;invert our first word using the only
	and  LeftMask		;..pattern and leftMask
	eor  |0,y
	sta  |0,y
	sty  DestRef		;save our index in DestRef
	ldy  FinishWord		;the last word is always at finish word
	txa		;source pattern is still in X-Reg
	and  RightMask
	eor  (DestRef),y
	sta  (DestRef),y		;and store
	ldy  DestRef

	pea  @backHere2-1		;pattern in A-Reg; XOR needs it in X-Reg
	pei  Temp
	rts
@backHere2	dec  lineCount
	beq  middleDone
	tya
	adc  Width		;the carry is always clear here
	tay
@enterXORLoop	bcc  @XORLoop
	clc		;the carry must remain clear thru this
	inc  DestRef+2		;..loop
	pei  DestRef+1
	plb
	plb
	bra  @XORLoop
;---------------------------------------------------------------
middleDone	pla
	sta  FinishWord
	jmp  allDone
;---------------------------------------------------------------



;---------------------------------------------------------------
makePatIndex	lda  CurrentY		;find the current index into the FillPat
	and  #7		;..table
	asl  a
	asl  a
	adc  #256
	sta  patIndex
	tax
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

****************************************************************
*
* CheckPenVis
*
* This routine makes sure that the pen is visible. It is called
* as quickly as possible after the bottle neck proc so if the
* pen is not visible, we can quit fast.
*
* If the pen is not	visible, then we perform the RTL for the
* calling routine.
*
* Modification History
*
* 19 May 86    When	pen is not visible we must
*              clear carry and zero accumulator so proper
*              error is propagated.
*
* 3/9/89	Mensch
* Added adjustment of DirtyDPFlags to this routine...
*
****************************************************************
CheckPenVis	PROC EXPORT
	ldy #o_PnVis
	lda [PortRef],y
	bmi NotVisible
	ldx #512
	lda <DirtyDPFlags,x
	ora #PenVisOK
	sta <DirtyDPFlags,x
	rts

NotVisible	pla	; pull rts adr off stack
	clc	; clear carry and a-reg so no
	lda #0	; error is returned.
	rtl	; do rtl for caller.

	ENDP


****************************************************************
*
* GrabPenSize
*
* Get the PnSize from the port and puts	it in LocalPnSize.
* It also checks to	see if either is 0.	 If it is then
* we do an rtl for the calling routine.
*
* Modification History
*
* 19 May 86    When	pen size is less than one then we must
*              clear carry and zero accumulator so proper
*              error is propagated.
*
****************************************************************
GrabPenSize	PROC EXPORT

	ldy #O_PnSize
	lda [PortRef],y
	beq NowWaitAMin
	sta LocalPnSize
	iny
	iny
	lda [PortRef],y
	beq NowWaitAMin
	sta LocalPnSize+2

	rts

NowWaitAMin	pla	; get rts adr off stack
	clc	; remember that this terminates call
	lda #0	; with no error
	rtl	; do rtl for calling routine

	ENDP


*********************************************************************
*
* SetFirstDestRef
*
* History
* 8/4/87       GCP	         Installed patch version of this routine
*
* 2/25/89	Mensch
* Added a faster inline multiply just for grins. Speed this routine up
* quite a lot and seems to complement those new faster rectangles pretty
* well.
*********************************************************************

SetFirstDestRef	PROC EXPORT
Mult1	equ DestRef
Mult2	equ DestRef+2

	pea 0	;assume its positive
	lda Y1	;now figure out where in the
	sta CurrentY	;pixel map this scan line
	sec	;is
	sbc BoundsRect


	bpl ItsPositive

	sta 1,s
	eor #$FFFF
	inc a

ItsPositive
; since we are resetting destref, lets have some fun and use it for a temp
; Comming into this loop <A> contains the scan line number
; so we first see if we rolled off the "Dave" limit
	sta Mult1	; lets save it for a sec as an operand.....
	cmp #400	; see if we rolled over the top of the mult below
	bge @DoMultSlow
	lda <Width
	cmp #$00A0	; is it scan line size???
	bne @DoMultSlow
	lda Mult1	; get our number back...
	asl a	; multiply it by 32 first..
	asl a
	asl a
	asl a
	asl a
	sta Mult1
	asl a
	asl a
	clc
	adc Mult1
	pea 0
	pha
	bra @DoMultDone
@DoMultSlow	
;
; the damned fast multiply that I put in fails on enormous drawings (Damn)
; so, we put back the old multiply routine so we can ship the damned disk!
; Mensch 6/13/89
	pha
	pha
	pei Mult1
	pei Width
	_Multiply
;
; Fast multiply routine, just in case I need it for something!
;
;	ldx #0	; init our carry over area
;	lda #0
;@dm0010	lsr Mult1	; shift for first test
;	beq @dmLastOne	; handle the last multiply
;	bcc @dm0020
;	clc
;	adc Mult2
;	bcc @dm0020	; if carry clear we didn't role the bank yet..
;	inx	; if carry set, role the bank!
;@dm0020	asl Mult2
;
; Bug fix here...
;	bcc @dm0010
;	inx
;	bra @dm0010
;@dmLastOne	bcc @DoMultDone
;	clc
;	adc Mult2
;	bcc @DoMultDone	; carry clear no bank role
;	inx	
;olddoMultDone	phx	; push the high word
;	pha	; and the low word
@DoMultDone

	lda 5,s
	bne MustSubtract

	pla
	clc
	adc ImageRef	; low word of image	ref
	sta DestRef	;goes into dest ref
	pla
	adc ImageRef+2	;hi word of image ref
	and #$00FF	;mask off higest byte for system wins
	bra FinishKludge

MustSubtract		; 
	lda ImageRef	;subtract result from pointer to image
	sec
	sbc 1,s
	sta DestRef
	lda ImageRef+2
	sbc 3,s
	plx
	plx

FinishKludge	sta DestRef+2
	pla

;-------------------------------------------------------
;
; Now set data bank	to  bank containing	this scan line
;
	pei DestRef+1
	plb
	plb
	

	rts


	ENDP


****************************************************************
*
* NextPatSlice
*
* Using currentY I pull out the correct	part of the pattern
* and draw mask to be drawn.
*
*
* Change History
*
* 08 Sep 88	Steven Glass
*
* Patterns are always 32 bytes (no matter what the mode).
*
****************************************************************
NextPatSlice	PROC EXPORT

	lda CurrentY
	and #7	; pattern repeats every 8 lines
	asl a	; pattern 4 bytes wide
	asl a
	clc
	adc #256
	tax
	lda TheFillPat,x
	sta Pat
	lda TheFillPat+2,x	; this is wasted in	640 mode but
	sta Pat+2	; not harmful
	lda TheDrawMask,x
	sta DrawMask
	lda TheDrawMask+2,x
	sta DrawMask+2


	lda FillMode	; if pen mode is a NOT mode, then
	bpl NotNOT	; invert pat
	lda Pat
	eor #$FFFF
	sta Pat
	lda Pat+2
	eor #$FFFF
	sta Pat+2

NotNOT		; 

	rts

	ENDP


****************************************************************
*
* SetNextDestRef
*
* This routine bumps DestRef by width.	It does a full 32 bit
* add.  If the add carries to the high word it resets the
* data bank to the new value.
*
****************************************************************
SetNextDestRef	PROC EXPORT

	lda DestRef
	clc
	adc Width
	sta DestRef
	bcs MustCarry
	rts

MustCarry	inc DestRef+2
	pei DestRef+1
	plb
	plb
	rts

	ENDP

	EJECT
	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/QD/regions.asm b/IIGS.601.SRC/GSToolbox/QD/regions.asm
new file mode 100644
index 0000000..6a91c46
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/QD/regions.asm
@@ -0,0 +1 @@
+	title 'QD Regions           GS ROM 3.0'
****************************************************************
*			   *
*              REGIONS		   *
*			   *
****************************************************************


****************************************************************
*			   *
*	Copyright (C) 1985-1989	   *
*	All Rights Reserved		   *
*	Apple Computer, Inc.	   *
*			   *
****************************************************************

	blanks off
	string asis
	
	include 'all.macros'

	include '::sys.equs.asm'




	MACRO
&lab	BumpLongBy2 &adr
&lab	lda &adr
	ldx &adr+2
	inc a
	bne @1
	inx
@1	inc a
	bne @2
	inx
@2	sta &adr
	stx &adr+2
	MEND


	MACRO
&lab	MoveLong &From,&To
&lab	lda &From
	sta &To
	lda &From+2
	sta &To+2
	MEND

	MACRO
&lab	IncLong &adr
&lab	inc &adr
	bne @1
	inc &adr+2
@1
	mend

	include ':QDEquates:qd.data.asm'
	


	INCLUDE ':QDEquates:core.globals1'
	INCLUDE ':QDEquates:core.globals2'
	INCLUDE ':QDEquates:region.equs'
	INCLUDE ':QDEquates:rect.equs'
	INCLUDE ':QDEquates:slab.equs'

;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

	IMPORT BusyEC12
	IMPORT BusyEC4
	IMPORT BusyEC8
	IMPORT BusyErr0
	IMPORT BusyErr12
	IMPORT BusyErr4
	IMPORT BusyErr8
	IMPORT CheckPenVis
	IMPORT CommonSlabSetup
	IMPORT NextPatSlice
	IMPORT QDStart
	IMPORT RgnSave
	IMPORT SetFirstDestRef
	IMPORT SetNextDestRef
	IMPORT SpecialNewHandle
	IMPORT TestGPs

;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

	ENTRY CallRgn
	ENTRY ClipToRgnA
	ENTRY ConTable320
	ENTRY ConTable640
	ENTRY DeRefA
	ENTRY DeRefB
	ENTRY DeRefC
	ENTRY DerefHandle
	ENTRY Expand320
	ENTRY Expand640
	ENTRY FrRgn
	ENTRY GetNextV
	ENTRY GetStateInfo
	ENTRY InitDataPtr
	ENTRY InitRgnUp
	ENTRY InvertBuf
	ENTRY JoinRgn
	ENTRY JoinSetUp
	ENTRY LeftBitMask
	ENTRY LineSetup
	ENTRY RectScanInvert
	ENTRY ResizeA
	ENTRY ResizeB
	ENTRY ResizeHandle
	ENTRY RightBitMask
	ENTRY SpecialSlab
	ENTRY UnlockA
	ENTRY UnlockB
	ENTRY UnlockC
	ENTRY UnlockHandle
	ENTRY ValidRgnRect
	ENTRY VisToRgnB
	ENTRY ZeroRgnA
	ENTRY ZeroScanBuf
	ENTRY UnlockBufferHandle


;                copy regions/draw
****************************************************************
*
* FrameRgn   (r : rgnHandle)
*
*
****************************************************************
	EXPORT FrameRgn
FrameRgn	PROC
*              using PicInfo

	ldx #FrameVerb
	bra JoinRgn

	ENDP


****************************************************************
*
* PaintRgn     (r :	rgnHandle)
*
*
****************************************************************
	EXPORT PaintRgn
PaintRgn	PROC
*              using PicInfo

	ldx #PaintVerb
	bra JoinRgn

	ENDP

****************************************************************
*
* EraseRgn     (r :	rgnHandle)
*
*
****************************************************************
	EXPORT EraseRgn
EraseRgn	PROC
*              using PicInfo

	ldx #EraseVerb
	bra JoinRgn

	ENDP

****************************************************************
*
* InvertRgn    (r :	rgnHandle)
*
*
****************************************************************
	EXPORT InvertRgn
InvertRgn	PROC
*              using PicInfo

	ldx #InvertVerb
; let this one fall	right into JoinRGN

	ENDP

****************************************************************
*
* JoinRgn
*
* This is common routine called by Frame, Paint, Invert and
* erase Rgn.  The draw verb is passed in the x-register
*
****************************************************************
	EXPORT JoinRgn
JoinRgn	PROC

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
RHandle	equ RTL2+3

	jsr QDStart	; x is preserved

	lda RHandle,s	; put rgn handle on	zp
	sta RgnHandleC
	lda RHandle+2,s
	sta RgnHandleC+2

	jsl CallRgn	; call using draw verb in x
	tax	; error returned in	x
	jmp BusyErr4

	ENDP


****************************************************************
*
* FillRgn      (r :	rgnHandle; p : pattern)
*
*
****************************************************************
	EXPORT FillRgn
FillRgn	PROC
*              using PicInfo
*              using E0Vectors

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
PPtr	equ RTL2+3
RPtr	equ PPtr+4


	jsr QDStart

	jsl UserPat2ZP

	lda RPtr,s
	sta RgnHandleC
	lda RPtr+2,s
	sta RgnHandleC+2


	ldx #FillVerb
	jsl CallRgn
	tax
	jmp BusyErr8

	ENDP



****************************************************************
*
* CallRgn 
*
* This routine is jumped (or branched) to by the
* entry points after the graf verb is loaded into the
* x register.
*
* Zero page is already switched in by the time it gets here.
*
****************************************************************
	EXPORT CallRgn
CallRgn	PROC
*              using CoreDATA
*              using PicInfo
*              using QDProcs
*              using E0Vectors

	stx DrawVerb

	jsr TestGPs	; if there is a gp pointer
	bcs UseLocal

	jml StdRgn


UseLocal	phb	; put extra byte on	stack
	ldy #o_stdrgn	; get adr of new rgn routine
	lda [temp],y	; put on stack
	pha
	iny	; get bytes 2 and 3
	lda [temp],y
	sta 2,s	; store middle byte	twice
	rtl	; call it

	ENDP


****************************************************************
*
* StdRgn
*
* Common region routine that is central	point for
* all region drawing routines.
*
* When control gets	here, all inputs are on zero page.
*       TheRgn is kept at RgnC.
*       ThePat (if any) is in FillPat
*       WhatToDo is	in DrawVerb
*
****************************************************************
	EXPORT iStdRgn
iStdRgn	PROC
*              using CoreDATA
*              using PicInfo
*              using QDProcs
*              using E0Vectors

	EXPORT CommonFastRgn
;---------------------------------------------------------------
	lda #RgnNoun
	sta DrawNoun	; put on zp too!!!
	jsl PutPictStuff	; inputs on zp and in a-reg
	bcc NoPicErr
	rtl	; return the error

NoPicErr	lda DrawVerb	; put verb in a
	bne CommonFastRgn

	jsr RgnSave	; does this contribute to region def
	bcc FrRgn	; no, so frame it
	jsl PutRgn	; yes, so call putrgn 
	bcc FrRgn	; if no error go on	and frame it.
	rtl	; return the error
;---------------------------------------------------------------
CommonFastRgn	jsr  DeRefC	;check to see if the region is rectangular
	lda  [RgnPtrC]	;..if it's not, then call CommonSlabSetup
	cmp  #10
	bne  @notRectangle

	ldy  #2	;we are rectangular so copy the bounding rect to direct page
	lda  [RgnPtrC],y
	sta  Y1
	ldy  #4
	lda  [RgnPtrC],y
	sta  X1
	ldy  #6
	lda  [RgnPtrC],y
	sta  Y2
	ldy  #8
	lda  [RgnPtrC],y
	sta  X2
	jsr  UnlockC	;unlock the region handle

	lda #RectNoun
	sta DrawNoun
@notRectangle
	jmp CommonSlabSetup
;---------------------------------------------------------------

	ENDP



****************************************************************
*
* PRgn, FRgn, IRgn,	ERgn
*
****************************************************************
	EXPORT PRgn
PRgn	PROC
	ENDP
	EXPORT FRgn
FRgn	PROC
	ENDP
	EXPORT IRgn
IRgn	PROC
	ENDP
	EXPORT ERgn
ERgn	PROC
*              using PicInfo

	lda #RgnNoun
	sta DrawNoun
	bra  CommonFastRgn


	ENDP





****************************************************************
*
* FrRgn
*
* Modifications:
*
*    April 13, 1986	   First I was not unlocking the region	to
*	   frame when it was not a rectangle.
*
*	   Finally I was disposing of the temp region
*	   wrong (pushed the handle on the stack
*	   backwards).
*
****************************************************************
	EXPORT FrRgn
FrRgn	PROC
*              using CoreDATA
*              using E0Vectors

	jsr CheckPenVis	; don't come back unless visible

	jsr DeRefC	; look at the region and see if it
	lda [RgnPtrC]	; is rectangular?
	cmp #10
	bne NotRect

	ldy #2	; yes it is so copy	the bounds rect
	lda [RgnPtrC],y	; from the region to rect on zero page
	sta Y1
	iny
	iny
	lda [RgnPtrC],y
	sta X1
	iny
	iny
	lda [RgnPtrC],y
	sta Y2
	iny
	iny
	lda [RgnPtrC],y
	sta X2
	jsr UnlockC	; now free the region

	jml v_FrRect	; jump to internal frame rect routine
*		; through vector in	bank E0.




NotRect		; 

	jsr UnlockC	; don't need it locked any more

	ldy #o_pnSize	; get the pen size on the stack
	lda [PortRef],y
	pha
	iny
	iny
	lda [PortRef],y
	pha

	pei RgnHandleC+2	; put rgnhandle c on stack
	pei RgnHandleC

	PushLong #0	; put handle to new	region on stack
	_NewRgn

	phd
	tsc	; make stack into zero page
	tcd

OrigDirect	equ 1
TempRgn	equ 3	; now these are the	zero page
UserRgn	equ 7	; vars I'll deal with.
PenX	equ 11
PenY	equ 13

	pei UserRgn+2	; first TempRgn := UserRgn
	pei UserRgn
	pei TempRgn+2
	pei TempRgn
	_CopyRgn

	pei TempRgn+2	; TempRgn :=InsetRgn(TempRgn,Penx,PenY)
	pei TempRgn
	pei PenX
	pei PenY
	_InsetRgn

	pei UserRgn+2	; TempRgn := UserRgn - TempRgn
	pei UserRgn
	pei TempRgn+2
	pei TempRgn
	pei TempRgn+2
	pei TempRgn
	_DiffRgn

	lda TempRgn
	ldx TempRgn+2

	pld	; restore zp

	ply	; clear off stack without
	ply	; hurting a reg
	ply
	ply
	ply
	ply

	sta RgnHandleC	; put the handle to	temp rgn in
	stx RgnHandleC+2	; RgnHandleC

	jsl PRgn	; call PRgn

	pei RgnHandleC+2	; Noe dispose it
	pei RgnHandleC
	_DisposeRgn

	lda #0
	clc
	rtl

	ENDP


****************************************************************
*
* DrawRgn
*
* Draws the specified region using the pattern kept in
* FillPat, using the mode kept in FillMode
*
****************************************************************
	EXPORT DrawRgn
DrawRgn	PROC
*              using E0Vectors

	phb	; save the bank reg	here

	jsl Init3Regions
	jsl SetSlabAdr	; sets up the slab adr on zp
	jsl XSetup

	jsr SetFirstDestRef

RgnLoop		; 

	jsr NextPatSlice

	jsl Seek3Regions

	jsl ToSlab

	lda CurrentY
	inc a
	cmp Y2
	bpl TheEnd	; hey moron, signed	compare 28 Mar 86

	sta CurrentY
	jsr SetNextDestRef
	bra RgnLoop

TheEnd	plb	; restore bank
	rtl

	ENDP



****************************************************************
*
* GetBoundsC
*
* Gets the bounds rect of rgn c and puts it in MinRect
*
****************************************************************
	EXPORT GetBoundsC
GetBoundsC	PROC

	ldy #2
	ldx #0

Loop	lda [RgnPtrC],y
	sta MinRect,x
	iny
	iny
	inx
	inx
	cpy #10
	bcc Loop

	rts

	ENDP


****************************************************************
*
* NewRgn
*
****************************************************************
	EXPORT NewRgn
NewRgn	PROC
*              using RegionData

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
ResultHandle	equ RTL2+3


	jsr QDStart

	lda #10	; size
	ldx UserID
	ldy #RgnAttributes
	jsr SpecialNewHandle
	bcs Error

	stx RgnHandleA
	sty RgnHandleA+2
	txa
	sta ResultHandle,s
	tya
	sta ResultHandle+2,s

	jsr DeRefA

	lda #10	; set region to null region
	sta [RgnPtrA]	; size is 10

	jsr ZeroRgnA

	jsr UnlockA

	lda #0

Error	tax	; put error in x
	jmp BusyErr0	; quit


	ENDP


****************************************************************
*
* DisposeRgn
*
*
*
****************************************************************
	EXPORT DisposeRgn
DisposeRgn	PROC
*              using RegionData

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
TheHandle	equ RTL2+3


	jsr QDStart

	lda TheHandle,s
	tax
	lda TheHandle+2,s
	pha
	phx
	_DisposeHandle

	tax	; propagate any error that may
	jmp BusyErr4	; occur


	ENDP




****************************************************************
*
* SetEmptyRgn
*
* Sets the region to the empty region.	The must already be
* allocated
*
****************************************************************
	EXPORT SetEmptyRgn
SetEmptyRgn	PROC
OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
RgnHandle	equ RTL2+3

	jsr QDStart

	lda RgnHandle,s
	sta RgnHandleA
	lda RgnHandle+2,s
	sta RgnHandleA+2
	jsr DeRefA


	lda #10
	cmp [RgnPtrA]
	beq SizeOK

	jsr ResizeA
	bcs error

SizeOK	jsr ZeroRgnA

	jsr UnlockA

	jmp BusyEC4

error	tax
	jmp BusyErr4

	ENDP



****************************************************************
*
* ZeroRgnA
*
* An internal routine to zero the bounding box of the region
* pointed to by RgnPtrA.
*
* A & Y are lost, X	is unchanged.
*
****************************************************************
	EXPORT ZeroRgnA
ZeroRgnA	PROC

	ldy #2
	lda #0
Loop	sta [RgnPtrA],y
	iny
	iny
	cpy #10
	bcc Loop

	rts

	ENDP




****************************************************************
*
* SetRectRgn
*              RgnHandle : handle
*              Left, Top, Right, Bottom	: integer
*
* This takes the region pointed described by RgnHandle and
* sets it to a rectangular region described by four integers
*
* If the rectangle is not valid, then the region is set to
* the zero rect ([0,0,0,0]).
*
****************************************************************
	EXPORT SetRectRgn
SetRectRgn	PROC
*              using RegionData

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
Bottom	equ RTL2+3
Right	equ Bottom+2
Top	equ Right+2
Left	equ Top+2
RgnHandle	equ Left+2

	jsr QDStart

	lda RgnHandle,s	; get the handle and deref it
	sta RgnHandleA
	lda RgnHandle+2,s
	sta RgnHandleA+2
	jsr DeRefA

	lda #10
	cmp [RgnPtrA]
	beq SizeOK

	jsr ResizeA
	bcs error

SizeOk	ldy #2
	lda Top,s
	sta [RgnPtrA],y
	iny
	iny
	lda Left,s
	sta [RgnPtrA],y
	iny
	iny
	lda Bottom,s
	sta [RgnPtrA],y
	iny
	iny
	lda Right,s
	sta [RgnPtrA],y


	jsr ValidRgnRect

AllDone	jsr UnlockA
	jmp BusyEC12

error	tax
	jmp BusyErr12



	ENDP



****************************************************************
*
* ValidRgnRect
*
* This is an internal routine to make sure that the contents
* of region A's bounding box is valid.  If the contents are
* not valid, they are reset to zero.
*
****************************************************************
	EXPORT ValidRgnRect
ValidRgnRect	PROC

	ldy #2
	lda [RgnPtrA],y
	ldy #6
	cmp [RgnPtrA],y
	bpl ZeroRect

	ldy #4
	lda [RgnPtrA],y
	ldy #8
	cmp [RgnPtrA],y
	bpl ZeroRect

AllDone	rts

ZeroRect	jsr ZeroRgnA
	bra AllDone

	ENDP

****************************************************************
*
* RectRgn
*              RgnHandle : handle
*              RectPtr   : ptr
*
* This takes the region pointed described by RgnHandle and
* sets it to a rectangular region described by the rectangle.
*
* If the rectangle is not valid, then the region is set to
* the zero rect ([0,0,0,0]).
*
****************************************************************
	EXPORT RectRgn
RectRgn	PROC
*              using RegionData

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
RectPtr	equ RTL2+3
RgnHandle	equ RectPtr+4

	jsr QDStart

	lda RgnHandle,s
	sta RgnHandleA
	lda RgnHandle+2,s
	sta RgnHandleA+2
	jsr DeRefA


	lda #10
	cmp [RgnPtrA]
	beq SizeOK

	jsr ResizeA
	bcs error

SizeOk	lda RectPtr,s
	sta Temp
	lda RectPtr+2,s
	sta Temp+2


	ldy #0	; copy the rect to the
Loop	lda [Temp],y	; region's bounding box
	iny
	iny
	sta [RgnPtrA],y
	cpy #8
	bcc Loop

	jsr ValidRgnRect	; now make sure its	valid


AllDone	jsr UnlockA
	jmp BusyEC8

error	tax
	jmp BusyErr8


	ENDP





****************************************************************
*
* CopyRgn
*              SrcRgn : Handle
*              DestRgn : Handle
*
* ChangeHistory
*
* 26 Oct 88	Steven Glass
*
* Two changes.  First I use the memmover routine in ROM
* instead of _blockmove.  Second, I look for the simple
* case where there are only ten bytes to move and do
* them in line.
*
****************************************************************
CopyRgn	PROC EXPORT
OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
DestHandle	equ RTL2+3
SrcHandle	equ DestHandle+4

	jsr QDStart

	lda SrcHandle,s	; dereference the src
	sta RgnHandleA
	lda SrcHandle+2,s
	sta RgnHandleA+2
	jsr DeRefA

	lda DestHandle,s	; dereference the dest
	sta RgnHandleB
	lda DestHandle+2,s
	sta RgnHandleB+2
	jsr DeRefB

	lda [RgnPtrA]	; get source size
	cmp [RgnPtrB]	; compare to dest size
	beq SizeOK


	jsr ResizeB
	bcs error


SizeOk

	lda [RgnPtrA]	; is this a simple rect region?
	cmp #10
	bne NotSimple

	sta [RgnPtrB]	; move it inline.
	ldy #2
	lda [RgnPtrA],y
	sta [RgnPtrB],y
	ldy #4
	lda [RgnPtrA],y
	sta [RgnPtrB],y
	ldy #6
	lda [RgnPtrA],y
	sta [RgnPtrB],y
	ldy #8
	lda [RgnPtrA],y
	sta [RgnPtrB],y
	bra AllDone

NotSimple		; move it the hard way.

	pei RgnPtrA+2	; Src ptr
	pei RgnPtrA
	pei RgnPtrB+2	; dest ptr
	pei RgnPtrB
	PushWord #0
	lda [RgnPtrA]
	pha	; how many to move
	PushWord #BlockMoveCommandWord
	jsl ToMemMover

AllDone
	jsr UnlockA
	jsr UnlockB

	jmp BusyEC8

error	tax
	jmp BusyErr8


	ENDP


****************************************************************
*
* EqualRgn
*
*          Rgn1  : handle
*          Rgn2  : handle
*
* Returns true if the two regions are identical.
*
****************************************************************
	EXPORT EqualRgn
EqualRgn	PROC
OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
Rgn1	equ RTL2+3
Rgn2	equ Rgn1+4
Result	equ Rgn2+4

	jsr QDStart

	lda Rgn1,s	; dereference one
	sta RgnHandleA
	lda Rgn1+2,s
	sta RgnHandleA+2
	jsr DeRefA

	lda Rgn2,s	; dereference the other
	sta RgnHandleB
	lda Rgn2+2,s
	sta RgnHandleB+2
	jsr DeRefB

	lda [RgnPtrA]	; get size of one
	cmp [RgnPtrB]	; compare to size of other
	bne NotEqual


	tay
	dey
	dey
Loop	lda [RgnPtrA],y
	cmp [RgnPtrB],y
	bne NotEqual
	dey
	dey
	bne Loop

	lda #True

AllDone	sta Result,s
	jsr UnlockA
	jsr UnlockB
	jmp BusyEC8

NotEqual	lda #False
	bra AllDone

	ENDP


****************************************************************
*
* EmptyRgn
*
*          Rgn  : handle
*
* Returns true if the region is rectangular and its bounding
* box is set an invalid rectangle (top greater than or equal to
* bottom or left greater than or equal to right)
*
* Modified 4 apr 86	SEG
*
*    This used to return true only if bounding box was set to
*    all zeros.  This was not good enough since regions can
*    be empty and not set this way.
*
****************************************************************
	EXPORT EmptyRgn
EmptyRgn	PROC
OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
Rgn	equ RTL2+3
Result	equ Rgn+4

	jsr QDStart

	lda Rgn,s	; dereference the rgn
	sta RgnHandleA
	lda Rgn+2,s
	sta RgnHandleA+2
	jsr DeRefA

	lda [RgnPtrA]	; get source size
	cmp #10
	bne NotEmpty


	ldy #2
	lda [RgnPtrA],y
	ldy #6
	cmp [RgnPtrA],y
	bpl YesZero

	ldy #4
	lda [RgnPtrA],y
	ldy #8
	cmp [RgnPtrA],y
	bmi NotEmpty

YesZero	lda #True

AllDone	sta Result,s
	jsr UnlockA
	jmp BusyEC4

NotEmpty	lda #False
	bra AllDone

	ENDP





****************************************************************
*
* DeRefAndLock
*
* This takes a handle in the A & X registers and dereferences
* and locks it.
*
* The result ptr is	returned in a & x.
*
* The location TEMP	on zero page is trashed as is Y
****************************************************************
	EXPORT DeRefAndLock
DeRefAndLock	PROC
	EXPORT DeRefAndLoc
DeRefAndLoc		;       

	sta Temp
	stx Temp+2

	ldy #4
	lda [Temp],y
	ora #$8000
	sta [Temp],y

	dey
	dey
	lda [Temp],y
	tax
	lda [Temp]

	rts

	ENDP


****************************************************************
*
* Unlock Mem
*
* This is used after a handle has been locked to release it.
*
* Like DeRefAndLock, the handle is passed in the A & X registers.
*
****************************************************************
	EXPORT UnlockMem
UnlockMem	PROC

	sta Temp
	stx Temp+2

	ldy #4
	lda [Temp],y
	and #$7FFF
	sta [Temp],y

	rts
	ENDP



****************************************************************
*
* DeRefA
*
****************************************************************
	EXPORT DeRefA
DeRefA	PROC

	ldy #4	; lock it
	lda [RgnHandleA],y
	ora #$8000
	sta [RgnHandleA],y

	lda [RgnHandleA]	; deref it.
	sta RgnPtrA
	ldy #2
	lda [RgnHandleA],y
	sta RgnPtrA+2
	rts



	ENDP

****************************************************************
*
* UnlockA
*
****************************************************************
	EXPORT UnlockA
UnlockA	PROC

	ldy #4	; unlock it
	lda [RgnHandleA],y
	and #$7FFF
	sta [RgnHandleA],y
	rts

	ENDP

****************************************************************
*
* DeRefB
*
****************************************************************
	EXPORT DeRefB
DeRefB	PROC

	ldy #4	; lock it
	lda [RgnHandleB],y
	ora #$8000
	sta [RgnHandleB],y

	lda [RgnHandleB]	; deref it.
	sta RgnPtrB
	ldy #2
	lda [RgnHandleB],y
	sta RgnPtrB+2
	rts


	ENDP

****************************************************************
*
* UnlockB
*
****************************************************************
	EXPORT UnlockB
UnlockB	PROC

	ldy #4	; unlock it
	lda [RgnHandleB],y
	and #$7FFF
	sta [RgnHandleB],y
	rts


	ENDP


****************************************************************
*
* DeRefC
*
****************************************************************
	EXPORT DeRefC
DeRefC	PROC

	ldy #4	; lock it
	lda [RgnHandleC],y
	ora #$8000
	sta [RgnHandleC],y

	lda [RgnHandleC]	; deref it.
	sta RgnPtrC
	ldy #2
	lda [RgnHandleC],y
	sta RgnPtrC+2
	rts


	ENDP

****************************************************************
*
* UnlockC
*
****************************************************************
	EXPORT UnlockC
UnlockC	PROC

	ldy #4	; unlock it
	lda [RgnHandleC],y
	and #$7FFF
	sta [RgnHandleC],y
	rts


	ENDP


****************************************************************
*
* ResizeA
*
****************************************************************
	EXPORT ResizeA
ResizeA	PROC

	ldx #RgnHandleA
	jsr ResizeHandle
	bcs error
	sta RgnPtrA
	stx RgnPtrA+2
	lda [RgnPtrA]
error	rts

	ENDP

****************************************************************
*
* ResizeB
*
****************************************************************
	EXPORT ResizeB
ResizeB	PROC
	ldx #RgnHandleB
	jsr ResizeHandle
	bcs error
	sta RgnPtrB
	stx RgnPtrB+2
	lda [RgnPtrB]
error	rts

	ENDP


****************************************************************
*
* ResizeC
*
****************************************************************
	EXPORT ResizeC
ResizeC	PROC
	ldx #RgnHandleC
	jsr ResizeHandle
	bcs error
	sta RgnPtrC
	stx RgnPtrC+2
	lda [RgnPtrC]	; get size back in a
error	rts
	ENDP


****************************************************************
*
* DerefHandle
*
****************************************************************
	EXPORT DerefHandle
DerefHandle	PROC

* enter with zero page offset to src in	X

* sample usage:
*
*     ldx #RgnHandleA
*     jsr DerefHandle
*     sta RgnPtrA
*     stx RgnPtrA+2

	lda 0,x
	sta Temp
	lda 2,x
	sta Temp+2

	EXPORT QuickDeref
QuickDeref		;       ; enter here if Temp has handle	already

* sample usage:
*     jsr QuickDeref	; Temp still has handle
*     sta RgnPtrA
*     stx RgnPtrA+2

* handle is in Temp; lock it down

	ldy #4
	lda [Temp],y
	ora #$8000
	sta [Temp],y

* dereference it, leaving low word in A	and high word in X

	ldy #2
	lda [Temp],y
	tax
	lda [Temp]
	rts

	ENDP

****************************************************************
*
* Procedure UnlockHandle
*
****************************************************************
	EXPORT UnlockHandle
UnlockHandle	PROC

* enter with zero page offset to handle	in x

* Sample usage
*
*     ldx #RgnHandleA
*     jsr UnlockHandle

	lda 0,x
	sta Temp
	lda 2,x
	sta Temp+2

* unlock it

	ldy #4
	lda [Temp],y
	and #$7FFF
	sta [Temp],y

* leave with Temp still holding the handle so related routines
* can use it

	rts

	ENDP

****************************************************************
*
* ResizeHandle
*
****************************************************************
	EXPORT ResizeHandle
ResizeHandle	PROC

* enter with pointer to handle on zero page in x

* Sample usage
*
*     lda NewHandleSize
*     ldx #RgnHandleA
*     jsr ResizeHandle
*     sta RgnPtrA
*     stx RgnPtrA+2

	pha	; push size (02)
	pea 0	; push 0 for high word of size (04)
	pha	; push low word of size (06)
	jsr UnlockHandle	; pass X as pointer

* UnlockHandle leaves a copy of the handle in Temp for us.	Long word size
* is still on the stack

	pei Temp+2	; push handle high (08)
	pei Temp	; push handle low (0A)
	_SetHandleSize	; handle size is at	top of stack (02)
	bcs Error	; we found an error, A & X are invalid

	EXPORT NewEntry
NewEntry		;       

	jsr QuickDeref	; handle still in Temp, redereference it
	sta Temp	; pointer is in A &	X
	stx Temp+2
	pla	; get size back (00)
	sta [Temp]	; set size for regions, invpt buffers
	lda Temp	; pointer is in A &	X
	rts

Error	ply	; error in A, carry	is still set (00)
	ldx #$FFFF	; invalidate pointer
	rts

	ENDP

****************************************************************
*
* GetNewHandle
*
****************************************************************
	EXPORT GetNewHandle
GetNewHandle	PROC

*              using RegionData
*              using CoreData

* It accepts a size	in A and an offset to the zero page handle variable
* in X.  Upon return it has initialized	a new handle, dereferenced it,
* and set the first	two bytes of the handle data to the length of the
* handle, which is what regions and buffers want.  Because it sets the
* length it assumes	the size (in A) will never be less than	2 bytes.
* It puts a copy of	the new handle into	the location pointed at by X.
* The dereferenced pointer is returned in A and X.

	pha	; save size
	phx	; save offset

	ldx UserID
	ldy #RgnAttributes
	jsr SpecialNewHandle
	bcs HandleError	; if error, clean up

	stx Temp
	sty Temp+2

	plx	; get offset back
	sty 2,x	; save high word to	real handle
	ldy Temp	; get low word back
	sty 0,x	; save low word to real handle

* The size is still	on the stack.  This	now looks like we've just resized
* a handle, so branch upwards and use the code we've already written.

	bra NewEntry	; pointer will come	back in A and X

HandleError	ply	; discard offset
	ply	; discard size
	rts

	ENDP
;                copy regions/setup
****************************************************************
*
* SetUpPortRegions
*
* This is the procedure called by the object drawing routines
* to dereference and lock the clip and vis regions and put
* the "Fake" wideopen region into region C
*
* 2/24/89	Mensch
*
* Unwind the ClipToRgnA and VisToRgnB calls. total of 40 cycles.. not enough yet...
*
****************************************************************
	EXPORT iSetUpPortRegions
iSetUpPortRegions	PROC
*              using E0Vectors

;	jsr ClipToRgnA
;	jsr VisToRgnB

	ldy #o_ClipRgn
	lda [PortRef],y
	sta RgnHandleA
	ldy #o_ClipRgn+2
	lda [PortRef],y
	sta RgnHandleA+2
	ldy #o_VisRgn
	lda [PortRef],y
	sta RgnHandleB
	ldy #o_VisRgn+2
	lda [PortRef],y
	sta RgnHandleB+2

	ldy #4	; lock it
	lda [RgnHandleB],y
	ora #$8000
	sta [RgnHandleB],y

	lda [RgnHandleA],y
	ora #$8000
	sta [RgnHandleA],y

	lda [RgnHandleB]	; deref it.
	sta RgnPtrB
	ldy #2
	lda [RgnHandleB],y
	sta RgnPtrB+2
	lda [RgnHandleA]	; deref it.
	sta RgnPtrA
	lda [RgnHandleA],y
	sta RgnPtrA+2

	jsl SetUpScanPtrs

	rtl

	ENDP


****************************************************************
*
* Region Freeing Routines
*
* This is the procedure called by the object drawing routines
* to unlock the clip and vis regions.
*
****************************************************************
	EXPORT iFree3Regions
iFree3Regions	PROC
	jsr UnlockC

	EXPORT iFree2Regions
iFree2Regions		;       
	jsr UnlockB

	EXPORT iFree1Region
iFree1Region		;       
	jsr UnlockA

	jsl UnlockBufferHandle
	rtl



***********************************************************
*
iFreePortRegions	PROC Export
*
* This unlocks region a, b and the buffer handle.
*
*
*
* External Refs:
*
* Entry Points:
*
* Change History
*
* 25 Feb 89	Mensch
*
* Spend a little more ROM space to save even more cycles per
* qdcall. This one should save : 64 cycles and cost 25 bytes...
*
***********************************************************
	ldy #4
	lda [RgnHandleA],y
	and #$7FFF
	sta [RgnHandleA],y
	lda [RgnHandleB],y
	and #$7FFF
	sta [RgnHandleB],y
	lda [BufferHandle],y
	and #$7FFF
	sta [BufferHandle],y
	rtl
	ENDP




****************************************************************
*
* ClipToRgnA
*
* An internal routine to copy the handle to the ClipRgn in
* the current port to RgnHandleA on zero page and then to
* Dereference it and lock it.
*
****************************************************************
	EXPORT ClipToRgnA
ClipToRgnA	PROC
*              using CoreData

	ldy #o_ClipRgn
	lda [PortRef],y
	sta RgnHandleA
	iny
	iny
	lda [PortRef],y
	sta RgnHandleA+2
	brl DeRefA
;	rts

	ENDP

****************************************************************
*
* VisToRgnB
*
* An internal routine to copy the handle to the VisRgn in
* the current port to RgnHandleB on zero page and then to
* Dereference it and lock it.
*
****************************************************************
	EXPORT VisToRgnB
VisToRgnB	PROC
*              using CoreData

	ldy #o_VisRgn
	lda [PortRef],y
	sta RgnHandleB
	iny
	iny
	lda [PortRef],y
	sta RgnHandleB+2
	brl DeRefB
;	rts

	ENDP


****************************************************************
*
* SetUpScanPtrs
*
* An internal routine to set up the following pointers.
*
*     ScanPtrA
*     ScanPtrB
*     ScanPtrC
*     ScanMaskRef
*
* These are obtained by dereferencing the BufferHandle and
* dividing up the buffer it points to.
*
****************************************************************
	EXPORT iSetUpScanPtrs
iSetUpScanPtrs	PROC
*              using RgnStateDATA

	lda BufferHandle
	ldx BufferHandle+2
	jsr DerefAndLock

	sta ScanMaskRef
	stx ScanMaskRef+2

	clc
	adc MaxWidth
	sta ScanPtrA
; Changed
	bcc @1
	inx
@1	stx ScanPtrA+2

; Saves 2 bytes and 4 cycles
;	lda ScanMaskRef+2
;	adc #0
;	sta ScanPtrA+2

	tay	; save <A> for a second...
	lda MaxWidth
	lsr a
	pha	; Save this on the stack for a second...
	tya	; get ScanPtrA back in <A> and <X>

; <A><X> contain ScanPtrA
	clc
	adc 1,s	; add maxWidth/2
	sta ScanPtrB
	bcc @2
	inx
@2	stx ScanPtrB+2

; <A><X> contain ScanPtrB
	clc
	adc 1,s	; add maxWidth/2
	sta ScanPtrC
	bcc @3
	inx
@3	stx ScanPtrC+2

; <A><X> contain ScanPtrC

	clc
	adc 1,s
	sta StatePtrA
	bcc @4
	inx
@4	stx StatePtrA+2

; <A><X> contain StatePtrA
	clc
	adc #StateRecSize
	sta StatePtrB
	bcc @5
	inx
@5	stx StatePtrB+2

; <A><X> contains StatePtrB
	clc
	adc #StateRecSize
	sta StatePtrC
	bcc @6
	inx
@6	stx StatePtrC+2
	pla	; strip off MaxWidth/2

	rtl

	ENDP


****************************************************************
*
* UnlockBufferHandle
*
*
****************************************************************
	EXPORT UnlockBufferHandle
UnlockBufferHandle	PROC

	lda BufferHandle
	ldx BufferHandle+2
	jsr UnlockMem

	rtl

	ENDP
;                COPY regions/toplevel
****************************************************************
*
* Init3Regions
*
* This is the procedure called by the object drawing routines
* to get ready to clip to three aribrary regions.
*
* The three regions	are already dereferenced and locked.  The
* pointers are in RgnPtrA, RgnPtrB and RgnPtrC.
*
* For each of the three regions, the procedure calls InitRgn
* which sets up the	state record for the region.
*
* Modifications:
* 12/2/87      GCP	   Added InitUp3Rgns to handle cases where we
*	   want to seek up through a region
****************************************************************
	EXPORT iInit3Regions
iInit3Regions	PROC
*              using E0Vectors

;---------------------------------------------------
;
; First I initialize NonRectRegions and	set up
; MinX, MaxX and LeftH
;
	stz NonRectRegions

	lda MinRect+2
	sta MinX
	lda MinRect+6
	sta MaxX
	lda BoundsRect+2
	sta LeftH

;---------------------------------------------------
;
; Now initialize each of the three state records.
;
	MoveLong RgnPtrA,RgnPtr
	MoveLong ScanPtrA,ScanPtr
	MoveLong StatePtrA,StatePtr
	jsl InitRgn

	MoveLong RgnPtrB,RgnPtr
	MoveLong ScanPtrB,ScanPtr
	MoveLong StatePtrB,StatePtr
	jsl InitRgn

	MoveLong RgnPtrC,RgnPtr
	MoveLong ScanPtrC,ScanPtr
	MoveLong StatePtrC,StatePtr
	jsl InitRgn


	rtl

	ENDP





	EXPORT InitUp3Rgns
InitUp3Rgns	PROC
*              using E0Vectors

;---------------------------------------------------
;
; First I initialize NonRectRegions and	set up
; MinX, MaxX and LeftH
;
	stz NonRectRegions

	lda MinRect+2
	sta MinX
	lda MinRect+6
	sta MaxX
	lda BoundsRect+2
	sta LeftH

;---------------------------------------------------
;
; Now initialize each of the three state records.
;
	MoveLong RgnPtrA,RgnPtr
	MoveLong ScanPtrA,ScanPtr
	MoveLong StatePtrA,StatePtr
	jsl InitRgnUp

	MoveLong RgnPtrB,RgnPtr
	MoveLong ScanPtrB,ScanPtr
	MoveLong StatePtrB,StatePtr
	jsl InitRgnUp

	MoveLong RgnPtrC,RgnPtr
	MoveLong ScanPtrC,ScanPtr
	MoveLong StatePtrC,StatePtr
	jsl InitRgnUp


	rtl

	ENDP


****************************************************************
*
* Seek3Regions
*
* This is the procedure that builds the	scan line clip buffer
* used by the slab and slice routines.
*
* This buffer is made by combining three scan line clip buffers
* for each of the three regions being clipped to.
*
****************************************************************
	EXPORT iSeek3Regions
iSeek3Regions	PROC
*              using RgnStateData
*              using E0Vectors

	stz BufChanged	; assume none change

	MoveLong StatePtrA,StatePtr ; Seek along a
	jsl SeekRgn
	beq NoChangeA
	inc BufChanged	; it changed

NoChangeA	MoveLong StatePtrB,StatePtr ; Seek along B
	jsl SeekRgn
	beq NoChangeB
	inc BufChanged	; it changed

NoChangeB	MoveLong StatePtrC,StatePtr ; Seek along C
	jsl SeekRgn
	beq NoChangeC
	inc BufChanged	; it changed

NoChangeC	lda BufChanged	; did any change?
	beq AllDone	; no, all done.


;----------------------------------------------
;
; At least one changed so we have to rebuild
; the master scanmask buffer.
;
	jsr JoinSetUp
	jsl Join3Buffers

AllDone	rtl

	ENDP


****************************************************************
*
* Init2Regions
*
* This is the procedure called by the object drawing routines
* to get ready to clip to two aribrary regions.
*
* The two regions are already dereferenced and locked.  The
* pointers are in RgnPtrA and RgnPtrB.
*
* For each region, the this procedure calls InitRgn
* which sets up the	state record for the region.
*
****************************************************************
	EXPORT iInit2Regions
iInit2Regions	PROC
*              using E0Vectors

;---------------------------------------------------
;
; First I initialize NonRectRegions and	set up
; MinX, MaxX and LeftH
;
	stz NonRectRegions

	lda MinRect+2
	sta MinX
	lda MinRect+6
	sta MaxX
	lda BoundsRect+2
	sta LeftH

;---------------------------------------------------
;
; Now initialize each of the two state records.
;
	MoveLong RgnPtrA,RgnPtr
	MoveLong ScanPtrA,ScanPtr
	MoveLong StatePtrA,StatePtr
	jsl InitRgn

	MoveLong RgnPtrB,RgnPtr
	MoveLong ScanPtrB,ScanPtr
	MoveLong StatePtrB,StatePtr
	jsl InitRgn

	rtl

	ENDP



****************************************************************
*
* Seek2Regions
*
* This is the procedure that builds the	scan line clip buffer
* used by the slab and slice routines.
*
* This buffer is made by combining scan	line clip buffers
* for each of the two regions being clipped to.
*
****************************************************************
	EXPORT iSeek2Regions
iSeek2Regions	PROC
*              using RgnStateData
*              using E0Vectors

	stz BufChanged	; assume none change

	MoveLong StatePtrA,StatePtr ; Seek along a
	jsl SeekRgn
	beq NoChangeA
	inc BufChanged	; it changed

NoChangeA	MoveLong StatePtrB,StatePtr ; Seek along B
	jsl SeekRgn
	beq NoChangeB
	inc BufChanged	; it changed

NoChangeB	lda BufChanged	; did any change?
	beq AllDone	; no, all done.


;----------------------------------------------
;
; At least one changed so we have to rebuild
; the master scanmask buffer.
;
	jsr JoinSetUp
	jsl Join2Buffers

AllDone	rtl

	ENDP





****************************************************************
*
* Init1Region
*
* This is the procedure called by the object drawing routines
* to get ready to clip to one aribtrary	region.
*
* The region is already dereferenced and locked.  The
* pointer is in RgnPtrA.
*
****************************************************************
	EXPORT iInit1Region
iInit1Region	PROC
*              using E0Vectors

;---------------------------------------------------
;
; First I initialize NonRectRegions and	set up
; MinX, MaxX and LeftH
;
	stz NonRectRegions

	lda MinRect+2
	sta MinX
	lda MinRect+6
	sta MaxX
	lda BoundsRect+2
	sta LeftH

;---------------------------------------------------
;
; Now initialize the state record.
;
	MoveLong RgnPtrA,RgnPtr
	MoveLong ScanPtrA,ScanPtr
	MoveLong StatePtrA,StatePtr
	jsl InitRgn

	rtl

	ENDP



****************************************************************
*
* Seek1Region
*
* This is the procedure that builds the	scan line clip buffer
* used by the slab and slice routines.
*
* This buffer is made from the scan line clip buffer of
* the region being clipped to.
*
****************************************************************
	EXPORT iSeek1Region
iSeek1Region	PROC
*              using RgnStateData
*              using E0Vectors

	MoveLong StatePtrA,StatePtr ; Seek along a
	jsl SeekRgn
	beq AllDone

;----------------------------------------------
;
; It changed so we have to rebuild
; the master scanmask buffer.
;
	jsr JoinSetup
	jsl Join1Buffer

AllDone	rtl

	ENDP



****************************************************************
*
* JoinSetUp
*
* This routine sets	RFirstWord and RLastWord based on MinX,
* MaxX and LeftH
*
****************************************************************
	EXPORT JoinSetup
JoinSetup	PROC
	lda MinX
	sec
	sbc LeftH
	lsr a
	lsr a
	lsr a
	and #$FFFE
	sta RFirstWord

	lda MaxX	; Dec the max once
	dec a
	sec
	sbc LeftH
	lsr a
	lsr a
	lsr a
	and #$FFFE
	sta RLastWord

	rts

	ENDP
;                copy regions/init.seek


****************************************************************
*
* InitRgn
*
* The region to initialize is passed in	RgnPtr.
* The state record to setup is passed in StatePtr.
* The pointer to the Scan Buffer to use	is kept in ScanPtr.
*
****************************************************************
	EXPORT iInitRgn
iInitRgn	PROC
*              using RgnStateData

	ldx MinX	; we do this for both types of
	lda MaxX	; regions
	jsr LineSetup
	jsr ZeroScanBuf

	lda [RgnPtr]	; now see if it is rect or bizzare
	cmp #10
	beq ItsRectangular

	inc NonRectRegions	; set this flag for	later use

	lda #$0000	; set this flag to 0
	sta [StatePtr]

;              lda #$0000	;already set to zero
	ldy #S_SeekDir	; Set for search down
	sta [StatePtr],y

	lda RgnPtr	; Set the RgnPtr in	the StateRec
	ldy #S_RgnPtr
	sta [StatePtr],y
	lda RgnPtr+2
	ldy #S_RgnPtr+2
	sta [StatePtr],y

	jsr InitDataPtr	; set the dataptr in the state rec

	jsr SetBufStuff

	lda #-MaxInt	; now put ThisV in state record
	ldy #S_ThisV
	sta [StatePtr],y

	ldy #2	; NextV will be top	of bounding
	lda [RgnPtr],y	; box
	ldy #S_NextV
	sta [StatePtr],y

	lda MinX	; MinX, MaxX & LeftH
	ldy #S_MinX
	sta [StatePtr],y

	lda MaxX
	ldy #S_MaxX
	sta [StatePtr],y

	lda LeftH
	ldy #S_LeftH
	sta [StatePtr],y

	rtl


ItsRectangular		; 

	lda #$8000	; set this flag to 1
	sta [StatePtr]

	lda RFirstWord
	ldy #S_LOffset
	sta [StatePtr],y

	lda RLeftMask
	ldy #S_LMask
	sta [StatePtr],y

	lda RLastWord
	ldy #S_ROffset
	sta [StatePtr],y

	lda RRightMask
	ldy #S_RMask
	sta [StatePtr],y

	jsr SetBufStuff

	ldy #2	; Set S_RgnTop to top of bounding rect
	lda [RgnPtr],y
	ldy #S_RgnTop
	sta [StatePtr],y

	ldy #6	; set RgnBot to bot	of bounding rect
	lda [RgnPtr],y
	ldy #S_RgnBot
	sta [StatePtr],y

	rtl

SetBufStuff		; 

	lda ScanPtr	; now put the pointer to scan buf
	ldy #S_ScanBuf	; in state record
	sta [StatePtr],y
	lda ScanPtr+2
	ldy #S_ScanBuf+2
	sta [StatePtr],y

	lda MaxWidth	; now put the buffer size in
	ldy #S_ScanSize
	sta [StatePtr],y

	rts

	ENDP

****************************************************************
*
* InitRgnUp
*
* The region to initialize is passed in	RgnPtr.
* The state record to setup is passed in StatePtr.
* The pointer to the Scan Buffer to use	is kept in ScanPtr.
*
****************************************************************
	EXPORT InitRgnUp
InitRgnUp	PROC
*              using RgnStateData

	lda [RgnPtr]	; now see if it is rect or bizzare
	cmp #10
	bne NotRectang

	jmp iInitRgn	;handle in the normal way


NotRectang	ldx MinX	; we do this for both types of
	lda MaxX	; regions
	jsr LineSetup
	jsr ZeroScanBuf

	inc NonRectRegions	; set this flag for	later use

	lda #$0000	; set this flag to 0
	sta [StatePtr]

	lda #$FFFF	;
	ldy #S_SeekDir	; Set for search down
	sta [StatePtr],y

	lda RgnPtr	; Set the RgnPtr in	the StateRec
	ldy #S_RgnPtr
	sta [StatePtr],y
	lda RgnPtr+2
	ldy #S_RgnPtr+2
	sta [StatePtr],y

	lda RgnPtr	; set the dataptr in the state rec
	clc
	adc [RgnPtr]
	ldy #S_DataPtr
	sta [StatePtr],y
	lda RgnPtr+2
	adc #0
	ldy #S_DataPtr+2
	sta [StatePtr],y


	lda ScanPtr	; now put the pointer to scan buf
	ldy #S_ScanBuf	; in state record
	sta [StatePtr],y
	lda ScanPtr+2
	ldy #S_ScanBuf+2
	sta [StatePtr],y

	lda MaxWidth	; now put the buffer size in
	ldy #S_ScanSize
	sta [StatePtr],y


	lda #MaxInt	; Start at the Bottom
	ldy #S_ThisV
	sta [StatePtr],y


	ldy #S_currVpos
	lda [RgnPtr]
	dec a
	dec a
	sta [StatePtr],y
	jsr GetNextV



	lda MinX	; MinX, MaxX & LeftH
	ldy #S_MinX
	sta [StatePtr],y

	lda MaxX
	ldy #S_MaxX
	sta [StatePtr],y

	lda LeftH
	ldy #S_LeftH
	sta [StatePtr],y

	rtl




	ENDP





****************************************************************
****************************************************************
	EXPORT InitDataPtr
InitDataPtr	PROC
*              using RgnStateDATA

	lda RgnPtr	; Set the DataPtr in the State Rec
	clc
	adc #10
	ldy #s_DataPtr
	sta [StatePtr],y
	lda RgnPtr+2
	adc #0
	ldy #S_DataPtr+2
	sta [StatePtr],y

	rts

	ENDP



****************************************************************
*
* ZeroScanBuf
*
* This routine zeros a scan line buffer	from RFirstWord - 2	to
* RLastWord (which were calculated by LineSetUp from MinX &
* MinY.
*
* I need to zero one word before in the	case of painting
* pixels where the dest pointer was adjusted to be one word
* less that it really needs to be.
*
****************************************************************
	EXPORT ZeroScanBuf
ZeroScanBuf	PROC


	ldy RFirstWord
	beq SkipBackup
	dey
	dey

SkipBackup	lda #0
Loop	sta [ScanPtr],y
	iny
	iny
	cpy RLastWord
	bcc Loop
	beq Loop

	rts

	ENDP


****************************************************************
*
* LineSetup
*
* This is used by the Rectagular part of InitRgn and the
* non rectangular part of SeekRgn.  The	Start and Stop Points
* are passed in A and X.   X is the start, A is the stop
*
****************************************************************
	EXPORT LineSetup
LineSetup	PROC
*              using RgnStateDATA

	txy	; put this in y

;	dec a	; we dec the stop point as usual
;	sec	; Turn Local to scan coordinates
	clc	; clear the carry to perform the dec a

	sbc LeftH

	tax	; save this value in x

	lsr a	; make pixels into bytes by
	lsr a	; dividing by 8
	lsr a
	and #$FFFE	; make this even to	mark word
	sta RLastWord	; containing first pixel

	txa	; get it back from x
	and #15
	asl a
	tax
	lda >RightBitMask,x	; Get appropriate mask
	sta RRightMask

	tya	; change coordinates
	sec
	sbc LeftH

	tax	; save this value in x

	lsr a	; make pixels into bytes by 8
	lsr a
	lsr a
	and #$FFFE
	sta RFirstWord

	txa	; get it back from x
	and #15
	asl a
	tax
	lda >LeftBitMask,x
	sta RLeftMask

	rts

	ENDP


****************************************************************
*
* Left Bit Mask Table
*
* Note that the "b"	directive puts its inputs into mem as
* a byte stream s the byte on the left is at a lower memory
* loc than the byte	on the right.
*
****************************************************************
	EXPORT LeftBitMask
LeftBitMask	PROC
	DC.B %11111111,%11111111
	DC.B %01111111,%11111111
	DC.B %00111111,%11111111
	DC.B %00011111,%11111111
	DC.B %00001111,%11111111
	DC.B %00000111,%11111111
	DC.B %00000011,%11111111
	DC.B %00000001,%11111111
	DC.B %00000000,%11111111
	DC.B %00000000,%01111111
	DC.B %00000000,%00111111
	DC.B %00000000,%00011111
	DC.B %00000000,%00001111
	DC.B %00000000,%00000111
	DC.B %00000000,%00000011
	DC.B %00000000,%00000001

	ENDP


****************************************************************
*
* Right Bit Mask Table
*
* Note that the "b"	directive puts its inputs into mem as
* a byte stream s the byte on the left is at a lower memory
* loc than the byte	on the right.
*
****************************************************************
	EXPORT RightBitMask
RightBitMask	PROC
	DC.B %10000000,%00000000 ; 0
	DC.B %11000000,%00000000 ; 1
	DC.B %11100000,%00000000 ; 2
	DC.B %11110000,%00000000 ; 3
	DC.B %11111000,%00000000 ; 4
	DC.B %11111100,%00000000 ; 5
	DC.B %11111110,%00000000 ; 6
	DC.B %11111111,%00000000 ; 7
	DC.B %11111111,%10000000 ; 8
	DC.B %11111111,%11000000 ; 9
	DC.B %11111111,%11100000 ; 10
	DC.B %11111111,%11110000 ; 11
	DC.B %11111111,%11111000 ; 12
	DC.B %11111111,%11111100 ; 13
	DC.B %11111111,%11111110 ; 14
	DC.B %11111111,%11111111 ; 15
	ENDP




****************************************************************
*
* SeekRgn
*
* The state record for the region to seek is passed in StatePtr
*
****************************************************************
	EXPORT iSeekRgn
iSeekRgn	PROC
*              using RgnStateDATA

	lda [StatePtr]
	bpl NotRectangular
	jmp ItsRectangular

;----------------------------------------------
;
; Return very quickly if scanbuf is already
; current.
;
NotRectangular		; 
	ldy #S_SeekDir
	lda [StatePtr],y
	beq GoingDown
	jmp GoingUP

GoingDown	lda CurrentY	; if the current y is less than
	ldy #S_ThisV	; ThisV then we have to reseek
	cmp [StatePtr],y	; from top of region
	bmi Restart

	ldy #S_NextV	; if the current y is less than
	cmp [StatePtr],y	; NextV then the scan buf does
	bpl ItMustChange
	jmp AllDone_NC	; not change!

Restart		; 
	ldy #s_RgnPtr	; get the pointer to the region
	lda [StatePtr],y	; add 10 and put result in the
	clc	; data pointer.
	adc #10
	tax
	ldy #s_RgnPtr+2
	lda [StatePtr],y

	adc #0
	ldy #s_DataPtr+2
	sta [StatePtr],y

	ldy #s_DataPtr
	txa
	sta [StatePtr],y

	jsr GetStateInfo	; bring things down	to zp

	ldx MinX	; set up to clear the scan buff
	lda MaxX	;
	jsr LineSetup

	ldy #S_ScanBuf
	lda [StatePtr],y
	sta ScanPtr
	ldy #S_ScanBuf+2
	lda [StatePtr],y
	sta ScanPtr+2

	jsr ZeroScanBuf
	bra JoinRest


;----------------------------------------------
;
; Gosh, now I need to do something here.
; I'll start by getting info I'll need from
; the state record.
;
ItMustChange	jsr GetStateInfo

JoinRest		; 


Down1	lda [DataPtr]
	ldy #S_ThisV	; update ThisV
	sta [StatePtr],y

	BumpLongBy2 DataPtr	; bump the data ptr	twice


NextHor	lda [DataPtr]	; get left coord
	cmp #MaxInt
	beq EndOfLine

	tax	; put left in x

	IncLong DataPtr
	IncLong DataPtr

	lda [DataPtr]	; get right in a

	IncLong DataPtr
	IncLong DataPtr

	cmp MinX	; if Right <= MinX then nexthor
	bmi NextHor
	beq NextHor

	cpx MaxX	; if Left > MaxX then NextHor
	bpl NextHor

	cpx MinX	; if Left > MinX then LeftOK
	bpl LeftOK

	ldx MinX
LeftOk	cmp MaxX	; if Right < MaxX then RightOK
	bmi RightOK
	lda MaxX

RightOK	jsr LineSetUp
	jsr InvertBuf
	bra NextHor

EndOfLine		; 
	BumpLongBy2 DataPtr	; bump data ptr so points to the next v
	lda [DataPtr]	; update nextV in State rec
	ldy #s_NextV
	sta [StatePtr],y

	cmp CurrentY	; if NextV < CurrentY
	beq DownAgain
	bpl DoneNow

DownAgain	jmp Down1


DoneNow		; 
;----------------------------------------------
;
; It's all done so update the data ptr in
; the state record
;
	ldy #S_DataPtr
	lda DataPtr
	sta [StatePtr],y
	ldy #S_DataPtr+2
	lda DataPtr+2
	sta [StatePtr],y


	bra AllDone_C

ItsRectangular		; 
	lda CurrentY
	ldy #S_RgnTop
	cmp [StatePtr],y
	bmi Outside

	ldy #S_RgnBot
	cmp [StatePtr],y
	bpl Outside

	lda [StatePtr]	; this flag indicate if scan buf
	and #1	; is already set
	bne AllDone_NC

	jsr RectScanInvert

	lda [StatePtr]
	ora #1
	sta [StatePtr]
	bra AllDone_C

OutSide	lda [StatePtr]
	and #1
	beq AllDone_NC

	jsr RectScanInvert

	lda [StatePtr]
	and #$FFFE
	sta [StatePtr]

AllDone_C	rep #%00000010	; clear the z flag
	rtl

AllDone_NC	sep #%00000010	; set the z flag
	rtl



GoingUp		; 

	lda CurrentY	; if the current y is less than
	inc A
	ldy #S_ThisV	; ThisV then we have to reseek
	cmp [StatePtr],y	; from top of region
	bpl RestU
	beq RestU

	ldy #S_NextV	; if the current y is less than
	cmp [StatePtr],y	; NextV then the scan buf does

	beq UpItMustChng
	bmi UpItMustChng

	jmp AllDone_NC	; not change!

RestU		; 
;              _sysbeep
	ldy #S_MinX
	lda [StatePtr],y
	sta MinX

	ldy #S_MaxX
	lda [StatePtr],y
	sta MaxX

	ldy #S_LeftH
	lda [StatePtr],y
	sta LeftH

	ldx MinX	; set up to clear the scan buff
	lda MaxX	;
	jsr LineSetup

	ldy #S_ScanBuf
	lda [StatePtr],y
	sta ScanPtr
	ldy #S_ScanBuf+2
	lda [StatePtr],y
	sta ScanPtr+2

	jsr ZeroScanBuf
	bra JoinRestU


;----------------------------------------------
;
; Gosh, now I need to do something here.
; I'll start by getting info I'll need from
; the state record.
;
UpItMustChng		; 
	ldy #S_MinX
	lda [StatePtr],y
	sta MinX

	ldy #S_MaxX
	lda [StatePtr],y
	sta MaxX

	ldy #S_LeftH
	lda [StatePtr],y
	sta LeftH


JoinRestU		; 
UP1		; 

	ldy #S_currVpos
	lda [StatePtr],y	;get index into region
	pha	;save for later
	tay
	lda [RgnPtr],y	;get current line number

	ldy #S_ThisV	; update ThisV
	sta [StatePtr],y

	ply	;recover
	iny	;index to first x
	iny

NextHorU	lda [RgnPtr],y	; get left coord
	cmp #MaxInt
	beq EndOfLineU

	tax	; put left in x

	iny
	iny	;index to next x

	lda [RgnPtr],y	; get right in a

	iny
	iny

	cmp MinX	; if Right <= MinX then nexthor
	bmi NextHorU
	beq NextHorU

	cpx MaxX	; if Left > MaxX then NextHor
	bpl NextHorU

	cpx MinX	; if Left > MinX then LeftOK
	bpl LeftOKU

	ldx MinX
LeftOkU	cmp MaxX	; if Right < MaxX then RightOK
	bmi RightOKU
	lda MaxX

RightOKU	phy
	jsr LineSetUp
	jsr InvertBuf
	ply
	bra NextHorU

EndOfLineU		; 
	ldy #S_currVpos
	lda [StatePtr],y
	tay
	lda [RgnPtr],y
	ldy #S_ThisV
	sta [StatePtr],y
	jsr GetNextV	;Gets the next v
	ldy #S_currVpos
	lda [StatePtr],y	; index to next line number
	tay
	lda [RgnPtr],y
	ldy #s_NextV
	sta [StatePtr],y
	dec a
	cmp CurrentY	; if NextV < CurrentY
	bmi DoneNowU

UPAgain	jmp UP1
DoneNowU	jmp DoneNow

	ENDP


****************************************************************
*
* GetStateInfo
*
* This is a routine	shared by alternative paths through
* SeekRgn.  It pulls necessary info out	of the state record
* and puts them on zero page.
*
****************************************************************
	EXPORT GetStateInfo
GetStateInfo	PROC
*              using RgnStateDATA

	ldy #S_MinX
	lda [StatePtr],y
	sta MinX

	ldy #S_MaxX
	lda [StatePtr],y
	sta MaxX

	ldy #S_LeftH
	lda [StatePtr],y
	sta LeftH

	ldy #S_DataPtr
	lda [StatePtr],y
	sta DataPtr

	ldy #S_DataPtr+2
	lda [StatePtr],y
	sta DataPtr+2

	rts

	ENDP




****************************************************************
*
* RectScanInvert
*
* This is a fast inverter for the scan line buff optimizing
* for rectangular region.
*
****************************************************************
	EXPORT RectScanInvert
RectScanInvert	PROC
*              using RgnStateDATA

	ldy #S_LOffset
	lda [StatePtr],y
	sta RFirstWord

	ldy #S_LMask
	lda [StatePtr],y	; get left mask
	sta RLeftMask

	ldy #S_ROffset
	lda [StatePtr],y	; get right offset
	sta RLastWord

	ldy #S_RMask
	lda [StatePtr],y	; get right mask
	sta RRightMask


	EXPORT InvertBuf
InvertBuf		;       
	phb	; save the data bank reg
	ldy #S_ScanBuf
	lda [StatePtr],y
	sta ScanPtr
	phb	; dummy byte on stack
	iny
	lda [StatePtr],y	; get high byte of 3 byte ptr
	sta 0,s	; overstore dummy
	plb	; set b

	jsr SpecialSlab

	plb	; restore data bank	reg

	rts

	ENDP




*****************************************************************
*
*  GetNextV
*      This routine	searches from the present Yn. An Index into
*      the region description (currVpos) is used to keep track
*      of the position of the active line of the region.
*
*
*
*  Inputs: none
*
*  Outputs: none
*
*  Side effects: Sets currVpos in region state record to the index for the
*          next line.
*
*****************************************************************
	EXPORT GetNextV
GetNextV	PROC
*          using RgnStateData

	ldy #S_currVpos	;Get index to the current Yn
	lda [StatePtr],y
	tay

	dey	;Start by bumping the index to point to
	dey	;the end of the previous line.


sloop	cpy #10	;are we already into the rect desc?
	bmi done

	dey	;point to Xn
	dey

	lda [RgnPtr],y
	cmp #Maxint	;is it the end of the next line?
	bne sloop	;nope, gotta go up one one more.

done	iny	;point to Yn
	iny
	lda [RgnPtr],y	;get line number
	tyx	;save index
	ldy #S_NextV
	sta [StatePtr],y	;save next line

	txa	;recover index
	ldy #S_currVpos
	sta [StatePtr],y
;          ldy     #S_DataIndex
;          sta     [StatePtr],y
	rts
	ENDP
;                copy regions/special.slab
****************************************************************
*
* SpecialSlab
*
* All the slab routines use the same data on zero page. This
* one is no different.
*
* Before any slab routine is called, the data bank register
* is set to the bank containing the pixel map.
*
* The following are	set up on zero page	before this routine
* is called:
*
* Inputs:
*
*    RLeftMask	The Pixels not being touched on the left are
*                  set to zero in this word mask.
*
*    RRightMask	The Pixels not being touched on the right are
*                  set to zero in this word mask
*
*    RFirstWord	The First word on the scan line to deal	with
*
*    RLastWord	The last word on the scan line to deal with
*
*    ScanPtr       Points to the start of the current scan line
*                  (or scan line equiv since can draw into mem).
*
*
*
* Variables
*
*    None
*
* 2/1/89	Mensch
*	Optimized to use a table offset aproach to this action
*
* 3/1/89	Mensch
* Removed optimizations, this routine is not called often enough to warrant
* an additional 1024 bytes in ROM and patch file.
*
****************************************************************
	EXPORT SpecialSlab
SpecialSlab	PROC
MaxInRow	equ 80
*              using CoreData

	lda RLeftMask

	ldy RFirstWord
	cpy RLastWord
	bcc MultiWords

	and RRightMask	; one word only--combine masks
MultiWords		; 

	eor (ScanPtr),y
	sta (ScanPtr),y

	bra IncCntrs


NextWord	lda #$FFFF
	eor (ScanPtr),y
	sta (ScanPtr),y	; put it in dest

IncCntrs	iny
	iny

	cpy RLastWord
	bcc NextWord
	bne AllDone	; was only one word


	lda RRightMask
	eor (ScanPtr),y
	sta (ScanPtr),y


AllDone	rts

	ENDP

****************************************************************

;                copy regions/join.buffers
****************************************************************
*
* Join3Buffers
*
* This takes the three 1-bit per pixel scan line buffers,
* ANDs them together and expands them to n-bits per pixel
* based on the PortSCB.
*
* This routine assumes that the four buffers are all in the 
* same bank!
*
****************************************************************
	EXPORT iJoin3Buffers
iJoin3Buffers	PROC

	bit PortSCB-1
	bpl Mode320


	ldy RFirstWord	; backup up twice unless it is
	beq Loop640	; zero
	dey
	dey

Loop640	lda [ScanPtrA],y	; merge the three
	and [ScanPtrB],y
	and [ScanPtrC],y

	jsr Expand640

	cpy RLastWord
	bcc Loop640	; continue until greater than
	beq Loop640

	bra AllDone


Mode320		; 
	ldy RFirstWord	; backup 2 unless zero
	beq Loop320
	dey
	dey

Loop320	lda [ScanPtrA],y	; merge the three
	and [ScanPtrB],y
	and [ScanPtrC],y

	jsr Expand320

	cpy RLastWord
	bcc Loop320	; continue until greater than
	beq Loop320

AllDone		; 
	rtl

	ENDP

****************************************************************
*
* Join2Buffers
*
* This takes two 1-bit per pixel scan line buffers,	  
* ANDs them together and expands them to n-bits per pixel
* based on the PortSCB.
*
* This routine assumes that the four buffers are all in the 
* same bank!
*
****************************************************************
	EXPORT iJoin2Buffers
iJoin2Buffers	PROC

	bit PortSCB-1
	bpl Mode320


	ldy RFirstWord	; backup 2 unless zero
	beq Loop640
	dey
	dey
Loop640	lda [ScanPtrA],y	; merge the two
	and [ScanPtrB],y

	jsr Expand640

	cpy RLastWord
	bcc Loop640	; continue until greater than
	beq Loop640

	bra AllDone


Mode320		; 
	ldy RFirstWord	; backup 2 unless zero
	beq loop320
	dey
	dey
Loop320	lda [ScanPtrA],y	; merge the two
	and [ScanPtrB],y

	jsr Expand320

	cpy RLastWord
	bcc Loop320	; continue until greater than
	beq Loop320

AllDone		; 
	rtl

	ENDP

****************************************************************
*
* Join1Buffers
*
* This takes one 1-bit per pixel scan line buffer,
* and expands it to	n-bits per pixel based on the PortSCB.
*
* This routine assumes that the four buffers are all in the 
* same bank!
*
****************************************************************

	EXPORT iJoin1Buffer
iJoin1Buffer	PROC

	bit PortSCB-1
	bpl Mode320


	ldy RFirstWord	; backup 2 unless zero
	beq loop640
	dey
	dey
Loop640	lda [ScanPtrA],y	; expand the one

	jsr Expand640

	cpy RLastWord
	bcc Loop640	; continue until greater than
	beq Loop640

	bra AllDone


Mode320		; 
	ldy RFirstWord	; backup 2 unless zero
	beq loop320
	dey
	dey
Loop320	lda [ScanPtrA],y	; expand the one

	jsr Expand320

	cpy RLastWord
	bcc Loop320	; continue until greater than
	beq Loop320

AllDone		; 
	rtl

	ENDP




****************************************************************
*
* Expand640
*
* This expands the word in a from 16 1-bit pixels to two
* words of 16 2-bit	pixels and puts them in the ScanMaskRef
* starting at a value represented by Y
*
****************************************************************
	EXPORT Expand640
Expand640	PROC

	pha	; save on stack
	and #$00FF	; deal only with one byte at at time
	asl a	; double value so can index into
	tax	; conversion table
	lda >ConTable640,x
	tax	; save this in x
	tya	; get y in a so can	double it
	asl a	; and it becomes index into chunky
	tay	; buffer.
	txa	; get what to store	back from x
	sta [ScanMaskRef],y	; store it
	pla	; now get original merged word off stack
	xba	; get the high byte	in low
	and #$00FF	; and now we'll work with it
	asl a	; double so it is index into con table
	tax
	lda >ConTable640,x
	iny	; bump y so it points to new word in
	iny	; chunky buffer
	sta [ScanMaskRef],y	; store it
	tya	; halve index so can point to small
	lsr a	; buffer again.
	tay
	iny	; bump once (already bumped second time
	rts

	ENDP

****************************************************************
*
* Expand620
*
* This expands the word in a from 16 1-bit pixels to four
* words of 16 4-bit	pixels and puts them in the ScanMaskRef
* starting at a value represented by Y
*
****************************************************************
	EXPORT Expand320
Expand320	PROC

	pha	; save on stack
	and #$00FF	; deal only with one byte at at time
	asl a	; quadruple value so can index into
	asl a	; convertion table
	tax
	lda >ConTable320+2,x
	pha
	lda >ConTable320,x
	tax	; save this in x
	tya	; get y in a so can	mult by 4
	asl a	; and it becomes index into chunky
	asl a	; buffer
	tay	; Now back to Y
	txa	; get what to store	back from x
	sta [ScanMaskRef],y	; store it
	iny
	iny
	pla
	sta [ScanMaskRef],y
	pla	; now get original merged word off stack
	xba	; get the high byte	in low
	and #$00FF	; and now we'll work with it
	asl a	; Quadruple so it is index into
	asl a	; conversion table
	tax
	lda >ConTable320+2,x
	pha
	lda >ConTable320,x
	iny	; bump y so it points to new word in
	iny	; chunky buffer
	sta [ScanMaskRef],y	; store it
	iny
	iny
	pla
	sta [ScanMaskRef],y
	iny	; bump 2 more times	so after div by 4
	iny	; index to 1-bit is	bumped twice.
	tya	; quarter index so can point to small
	lsr a	; buffer again.
	lsr a
	tay
	rts

	ENDP
;                copy regions/table.320
	EXPORT ConTable320
ConTable320	PROC
	DC.B $00,$00,$00,$00 ; 00000000
	DC.B $00,$00,$00,$0F ; 00000001
	DC.B $00,$00,$00,$F0 ; 00000010
	DC.B $00,$00,$00,$FF ; 00000011
	DC.B $00,$00,$0F,$00 ; 00000100
	DC.B $00,$00,$0F,$0F ; 00000101
	DC.B $00,$00,$0F,$F0 ; 00000110
	DC.B $00,$00,$0F,$FF ; 00000111
	DC.B $00,$00,$F0,$00 ; 00001000
	DC.B $00,$00,$F0,$0F ; 00001001
	DC.B $00,$00,$F0,$F0 ; 00001010
	DC.B $00,$00,$F0,$FF ; 00001011
	DC.B $00,$00,$FF,$00 ; 00001100
	DC.B $00,$00,$FF,$0F ; 00001101
	DC.B $00,$00,$FF,$F0 ; 00001110
	DC.B $00,$00,$FF,$FF ; 00001111
	DC.B $00,$0F,$00,$00 ; 00010000
	DC.B $00,$0F,$00,$0F ; 00010001
	DC.B $00,$0F,$00,$F0 ; 00010010
	DC.B $00,$0F,$00,$FF ; 00010011
	DC.B $00,$0F,$0F,$00 ; 00010100
	DC.B $00,$0F,$0F,$0F ; 00010101
	DC.B $00,$0F,$0F,$F0 ; 00010110
	DC.B $00,$0F,$0F,$FF ; 00010111
	DC.B $00,$0F,$F0,$00 ; 00011000
	DC.B $00,$0F,$F0,$0F ; 00011001
	DC.B $00,$0F,$F0,$F0 ; 00011010
	DC.B $00,$0F,$F0,$FF ; 00011011
	DC.B $00,$0F,$FF,$00 ; 00011100
	DC.B $00,$0F,$FF,$0F ; 00011101
	DC.B $00,$0F,$FF,$F0 ; 00011110
	DC.B $00,$0F,$FF,$FF ; 00011111
	DC.B $00,$F0,$00,$00 ; 00100000
	DC.B $00,$F0,$00,$0F ; 00100001
	DC.B $00,$F0,$00,$F0 ; 00100010
	DC.B $00,$F0,$00,$FF ; 00100011
	DC.B $00,$F0,$0F,$00 ; 00100100
	DC.B $00,$F0,$0F,$0F ; 00100101
	DC.B $00,$F0,$0F,$F0 ; 00100110
	DC.B $00,$F0,$0F,$FF ; 00100111
	DC.B $00,$F0,$F0,$00 ; 00101000
	DC.B $00,$F0,$F0,$0F ; 00101001
	DC.B $00,$F0,$F0,$F0 ; 00101010
	DC.B $00,$F0,$F0,$FF ; 00101011
	DC.B $00,$F0,$FF,$00 ; 00101100
	DC.B $00,$F0,$FF,$0F ; 00101101
	DC.B $00,$F0,$FF,$F0 ; 00101110
	DC.B $00,$F0,$FF,$FF ; 00101111
	DC.B $00,$FF,$00,$00 ; 00110000
	DC.B $00,$FF,$00,$0F ; 00110001
	DC.B $00,$FF,$00,$F0 ; 00110010
	DC.B $00,$FF,$00,$FF ; 00110011
	DC.B $00,$FF,$0F,$00 ; 00110100
	DC.B $00,$FF,$0F,$0F ; 00110101
	DC.B $00,$FF,$0F,$F0 ; 00110110
	DC.B $00,$FF,$0F,$FF ; 00110111
	DC.B $00,$FF,$F0,$00 ; 00111000
	DC.B $00,$FF,$F0,$0F ; 00111001
	DC.B $00,$FF,$F0,$F0 ; 00111010
	DC.B $00,$FF,$F0,$FF ; 00111011
	DC.B $00,$FF,$FF,$00 ; 00111100
	DC.B $00,$FF,$FF,$0F ; 00111101
	DC.B $00,$FF,$FF,$F0 ; 00111110
	DC.B $00,$FF,$FF,$FF ; 00111111
	DC.B $0F,$00,$00,$00 ; 01000000
	DC.B $0F,$00,$00,$0F ; 01000001
	DC.B $0F,$00,$00,$F0 ; 01000010
	DC.B $0F,$00,$00,$FF ; 01000011
	DC.B $0F,$00,$0F,$00 ; 01000100
	DC.B $0F,$00,$0F,$0F ; 01000101
	DC.B $0F,$00,$0F,$F0 ; 01000110
	DC.B $0F,$00,$0F,$FF ; 01000111
	DC.B $0F,$00,$F0,$00 ; 01001000
	DC.B $0F,$00,$F0,$0F ; 01001001
	DC.B $0F,$00,$F0,$F0 ; 01001010
	DC.B $0F,$00,$F0,$FF ; 01001011
	DC.B $0F,$00,$FF,$00 ; 01001100
	DC.B $0F,$00,$FF,$0F ; 01001101
	DC.B $0F,$00,$FF,$F0 ; 01001110
	DC.B $0F,$00,$FF,$FF ; 01001111
	DC.B $0F,$0F,$00,$00 ; 01010000
	DC.B $0F,$0F,$00,$0F ; 01010001
	DC.B $0F,$0F,$00,$F0 ; 01010010
	DC.B $0F,$0F,$00,$FF ; 01010011
	DC.B $0F,$0F,$0F,$00 ; 01010100
	DC.B $0F,$0F,$0F,$0F ; 01010101
	DC.B $0F,$0F,$0F,$F0 ; 01010110
	DC.B $0F,$0F,$0F,$FF ; 01010111
	DC.B $0F,$0F,$F0,$00 ; 01011000
	DC.B $0F,$0F,$F0,$0F ; 01011001
	DC.B $0F,$0F,$F0,$F0 ; 01011010
	DC.B $0F,$0F,$F0,$FF ; 01011011
	DC.B $0F,$0F,$FF,$00 ; 01011100
	DC.B $0F,$0F,$FF,$0F ; 01011101
	DC.B $0F,$0F,$FF,$F0 ; 01011110
	DC.B $0F,$0F,$FF,$FF ; 01011111
	DC.B $0F,$F0,$00,$00 ; 01100000
	DC.B $0F,$F0,$00,$0F ; 01100001
	DC.B $0F,$F0,$00,$F0 ; 01100010
	DC.B $0F,$F0,$00,$FF ; 01100011
	DC.B $0F,$F0,$0F,$00 ; 01100100
	DC.B $0F,$F0,$0F,$0F ; 01100101
	DC.B $0F,$F0,$0F,$F0 ; 01100110
	DC.B $0F,$F0,$0F,$FF ; 01100111
	DC.B $0F,$F0,$F0,$00 ; 01101000
	DC.B $0F,$F0,$F0,$0F ; 01101001
	DC.B $0F,$F0,$F0,$F0 ; 01101010
	DC.B $0F,$F0,$F0,$FF ; 01101011
	DC.B $0F,$F0,$FF,$00 ; 01101100
	DC.B $0F,$F0,$FF,$0F ; 01101101
	DC.B $0F,$F0,$FF,$F0 ; 01101110
	DC.B $0F,$F0,$FF,$FF ; 01101111
	DC.B $0F,$FF,$00,$00 ; 01110000
	DC.B $0F,$FF,$00,$0F ; 01110001
	DC.B $0F,$FF,$00,$F0 ; 01110010
	DC.B $0F,$FF,$00,$FF ; 01110011
	DC.B $0F,$FF,$0F,$00 ; 01110100
	DC.B $0F,$FF,$0F,$0F ; 01110101
	DC.B $0F,$FF,$0F,$F0 ; 01110110
	DC.B $0F,$FF,$0F,$FF ; 01110111
	DC.B $0F,$FF,$F0,$00 ; 01111000
	DC.B $0F,$FF,$F0,$0F ; 01111001
	DC.B $0F,$FF,$F0,$F0 ; 01111010
	DC.B $0F,$FF,$F0,$FF ; 01111011
	DC.B $0F,$FF,$FF,$00 ; 01111100
	DC.B $0F,$FF,$FF,$0F ; 01111101
	DC.B $0F,$FF,$FF,$F0 ; 01111110
	DC.B $0F,$FF,$FF,$FF ; 01111111
	DC.B $F0,$00,$00,$00 ; 10000000
	DC.B $F0,$00,$00,$0F ; 10000001
	DC.B $F0,$00,$00,$F0 ; 10000010
	DC.B $F0,$00,$00,$FF ; 10000011
	DC.B $F0,$00,$0F,$00 ; 10000100
	DC.B $F0,$00,$0F,$0F ; 10000101
	DC.B $F0,$00,$0F,$F0 ; 10000110
	DC.B $F0,$00,$0F,$FF ; 10000111
	DC.B $F0,$00,$F0,$00 ; 10001000
	DC.B $F0,$00,$F0,$0F ; 10001001
	DC.B $F0,$00,$F0,$F0 ; 10001010
	DC.B $F0,$00,$F0,$FF ; 10001011
	DC.B $F0,$00,$FF,$00 ; 10001100
	DC.B $F0,$00,$FF,$0F ; 10001101
	DC.B $F0,$00,$FF,$F0 ; 10001110
	DC.B $F0,$00,$FF,$FF ; 10001111
	DC.B $F0,$0F,$00,$00 ; 10010000
	DC.B $F0,$0F,$00,$0F ; 10010001
	DC.B $F0,$0F,$00,$F0 ; 10010010
	DC.B $F0,$0F,$00,$FF ; 10010011
	DC.B $F0,$0F,$0F,$00 ; 10010100
	DC.B $F0,$0F,$0F,$0F ; 10010101
	DC.B $F0,$0F,$0F,$F0 ; 10010110
	DC.B $F0,$0F,$0F,$FF ; 10010111
	DC.B $F0,$0F,$F0,$00 ; 10011000
	DC.B $F0,$0F,$F0,$0F ; 10011001
	DC.B $F0,$0F,$F0,$F0 ; 10011010
	DC.B $F0,$0F,$F0,$FF ; 10011011
	DC.B $F0,$0F,$FF,$00 ; 10011100
	DC.B $F0,$0F,$FF,$0F ; 10011101
	DC.B $F0,$0F,$FF,$F0 ; 10011110
	DC.B $F0,$0F,$FF,$FF ; 10011111
	DC.B $F0,$F0,$00,$00 ; 10100000
	DC.B $F0,$F0,$00,$0F ; 10100001
	DC.B $F0,$F0,$00,$F0 ; 10100010
	DC.B $F0,$F0,$00,$FF ; 10100011
	DC.B $F0,$F0,$0F,$00 ; 10100100
	DC.B $F0,$F0,$0F,$0F ; 10100101
	DC.B $F0,$F0,$0F,$F0 ; 10100110
	DC.B $F0,$F0,$0F,$FF ; 10100111
	DC.B $F0,$F0,$F0,$00 ; 10101000
	DC.B $F0,$F0,$F0,$0F ; 10101001
	DC.B $F0,$F0,$F0,$F0 ; 10101010
	DC.B $F0,$F0,$F0,$FF ; 10101011
	DC.B $F0,$F0,$FF,$00 ; 10101100
	DC.B $F0,$F0,$FF,$0F ; 10101101
	DC.B $F0,$F0,$FF,$F0 ; 10101110
	DC.B $F0,$F0,$FF,$FF ; 10101111
	DC.B $F0,$FF,$00,$00 ; 10110000
	DC.B $F0,$FF,$00,$0F ; 10110001
	DC.B $F0,$FF,$00,$F0 ; 10110010
	DC.B $F0,$FF,$00,$FF ; 10110011
	DC.B $F0,$FF,$0F,$00 ; 10110100
	DC.B $F0,$FF,$0F,$0F ; 10110101
	DC.B $F0,$FF,$0F,$F0 ; 10110110
	DC.B $F0,$FF,$0F,$FF ; 10110111
	DC.B $F0,$FF,$F0,$00 ; 10111000
	DC.B $F0,$FF,$F0,$0F ; 10111001
	DC.B $F0,$FF,$F0,$F0 ; 10111010
	DC.B $F0,$FF,$F0,$FF ; 10111011
	DC.B $F0,$FF,$FF,$00 ; 10111100
	DC.B $F0,$FF,$FF,$0F ; 10111101
	DC.B $F0,$FF,$FF,$F0 ; 10111110
	DC.B $F0,$FF,$FF,$FF ; 10111111
	DC.B $FF,$00,$00,$00 ; 11000000
	DC.B $FF,$00,$00,$0F ; 11000001
	DC.B $FF,$00,$00,$F0 ; 11000010
	DC.B $FF,$00,$00,$FF ; 11000011
	DC.B $FF,$00,$0F,$00 ; 11000100
	DC.B $FF,$00,$0F,$0F ; 11000101
	DC.B $FF,$00,$0F,$F0 ; 11000110
	DC.B $FF,$00,$0F,$FF ; 11000111
	DC.B $FF,$00,$F0,$00 ; 11001000
	DC.B $FF,$00,$F0,$0F ; 11001001
	DC.B $FF,$00,$F0,$F0 ; 11001010
	DC.B $FF,$00,$F0,$FF ; 11001011
	DC.B $FF,$00,$FF,$00 ; 11001100
	DC.B $FF,$00,$FF,$0F ; 11001101
	DC.B $FF,$00,$FF,$F0 ; 11001110
	DC.B $FF,$00,$FF,$FF ; 11001111
	DC.B $FF,$0F,$00,$00 ; 11010000
	DC.B $FF,$0F,$00,$0F ; 11010001
	DC.B $FF,$0F,$00,$F0 ; 11010010
	DC.B $FF,$0F,$00,$FF ; 11010011
	DC.B $FF,$0F,$0F,$00 ; 11010100
	DC.B $FF,$0F,$0F,$0F ; 11010101
	DC.B $FF,$0F,$0F,$F0 ; 11010110
	DC.B $FF,$0F,$0F,$FF ; 11010111
	DC.B $FF,$0F,$F0,$00 ; 11011000
	DC.B $FF,$0F,$F0,$0F ; 11011001
	DC.B $FF,$0F,$F0,$F0 ; 11011010
	DC.B $FF,$0F,$F0,$FF ; 11011011
	DC.B $FF,$0F,$FF,$00 ; 11011100
	DC.B $FF,$0F,$FF,$0F ; 11011101
	DC.B $FF,$0F,$FF,$F0 ; 11011110
	DC.B $FF,$0F,$FF,$FF ; 11011111
	DC.B $FF,$F0,$00,$00 ; 11100000
	DC.B $FF,$F0,$00,$0F ; 11100001
	DC.B $FF,$F0,$00,$F0 ; 11100010
	DC.B $FF,$F0,$00,$FF ; 11100011
	DC.B $FF,$F0,$0F,$00 ; 11100100
	DC.B $FF,$F0,$0F,$0F ; 11100101
	DC.B $FF,$F0,$0F,$F0 ; 11100110
	DC.B $FF,$F0,$0F,$FF ; 11100111
	DC.B $FF,$F0,$F0,$00 ; 11101000
	DC.B $FF,$F0,$F0,$0F ; 11101001
	DC.B $FF,$F0,$F0,$F0 ; 11101010
	DC.B $FF,$F0,$F0,$FF ; 11101011
	DC.B $FF,$F0,$FF,$00 ; 11101100
	DC.B $FF,$F0,$FF,$0F ; 11101101
	DC.B $FF,$F0,$FF,$F0 ; 11101110
	DC.B $FF,$F0,$FF,$FF ; 11101111
	DC.B $FF,$FF,$00,$00 ; 11110000
	DC.B $FF,$FF,$00,$0F ; 11110001
	DC.B $FF,$FF,$00,$F0 ; 11110010
	DC.B $FF,$FF,$00,$FF ; 11110011
	DC.B $FF,$FF,$0F,$00 ; 11110100
	DC.B $FF,$FF,$0F,$0F ; 11110101
	DC.B $FF,$FF,$0F,$F0 ; 11110110
	DC.B $FF,$FF,$0F,$FF ; 11110111
	DC.B $FF,$FF,$F0,$00 ; 11111000
	DC.B $FF,$FF,$F0,$0F ; 11111001
	DC.B $FF,$FF,$F0,$F0 ; 11111010
	DC.B $FF,$FF,$F0,$FF ; 11111011
	DC.B $FF,$FF,$FF,$00 ; 11111100
	DC.B $FF,$FF,$FF,$0F ; 11111101
	DC.B $FF,$FF,$FF,$F0 ; 11111110
	DC.B $FF,$FF,$FF,$FF ; 11111111
	ENDP
;                copy regions/table.640

	EXPORT ConTable640
ConTable640	PROC
	DC.B %00000000,%00000000 ; 00000000
	DC.B %00000000,%00000011 ; 00000001
	DC.B %00000000,%00001100 ; 00000010
	DC.B %00000000,%00001111 ; 00000011
	DC.B %00000000,%00110000 ; 00000100
	DC.B %00000000,%00110011 ; 00000101
	DC.B %00000000,%00111100 ; 00000110
	DC.B %00000000,%00111111 ; 00000111
	DC.B %00000000,%11000000 ; 00001000
	DC.B %00000000,%11000011 ; 00001001
	DC.B %00000000,%11001100 ; 00001010
	DC.B %00000000,%11001111 ; 00001011
	DC.B %00000000,%11110000 ; 00001100
	DC.B %00000000,%11110011 ; 00001101
	DC.B %00000000,%11111100 ; 00001110
	DC.B %00000000,%11111111 ; 00001111
	DC.B %00000011,%00000000 ; 00010000
	DC.B %00000011,%00000011 ; 00010001
	DC.B %00000011,%00001100 ; 00010010
	DC.B %00000011,%00001111 ; 00010011
	DC.B %00000011,%00110000 ; 00010100
	DC.B %00000011,%00110011 ; 00010101
	DC.B %00000011,%00111100 ; 00010110
	DC.B %00000011,%00111111 ; 00010111
	DC.B %00000011,%11000000 ; 00011000
	DC.B %00000011,%11000011 ; 00011001
	DC.B %00000011,%11001100 ; 00011010
	DC.B %00000011,%11001111 ; 00011011
	DC.B %00000011,%11110000 ; 00011100
	DC.B %00000011,%11110011 ; 00011101
	DC.B %00000011,%11111100 ; 00011110
	DC.B %00000011,%11111111 ; 00011111
	DC.B %00001100,%00000000 ; 00100000
	DC.B %00001100,%00000011 ; 00100001
	DC.B %00001100,%00001100 ; 00100010
	DC.B %00001100,%00001111 ; 00100011
	DC.B %00001100,%00110000 ; 00100100
	DC.B %00001100,%00110011 ; 00100101
	DC.B %00001100,%00111100 ; 00100110
	DC.B %00001100,%00111111 ; 00100111
	DC.B %00001100,%11000000 ; 00101000
	DC.B %00001100,%11000011 ; 00101001
	DC.B %00001100,%11001100 ; 00101010
	DC.B %00001100,%11001111 ; 00101011
	DC.B %00001100,%11110000 ; 00101100
	DC.B %00001100,%11110011 ; 00101101
	DC.B %00001100,%11111100 ; 00101110
	DC.B %00001100,%11111111 ; 00101111
	DC.B %00001111,%00000000 ; 00110000
	DC.B %00001111,%00000011 ; 00110001
	DC.B %00001111,%00001100 ; 00110010
	DC.B %00001111,%00001111 ; 00110011
	DC.B %00001111,%00110000 ; 00110100
	DC.B %00001111,%00110011 ; 00110101
	DC.B %00001111,%00111100 ; 00110110
	DC.B %00001111,%00111111 ; 00110111
	DC.B %00001111,%11000000 ; 00111000
	DC.B %00001111,%11000011 ; 00111001
	DC.B %00001111,%11001100 ; 00111010
	DC.B %00001111,%11001111 ; 00111011
	DC.B %00001111,%11110000 ; 00111100
	DC.B %00001111,%11110011 ; 00111101
	DC.B %00001111,%11111100 ; 00111110
	DC.B %00001111,%11111111 ; 00111111
	DC.B %00110000,%00000000 ; 01000000
	DC.B %00110000,%00000011 ; 01000001
	DC.B %00110000,%00001100 ; 01000010
	DC.B %00110000,%00001111 ; 01000011
	DC.B %00110000,%00110000 ; 01000100
	DC.B %00110000,%00110011 ; 01000101
	DC.B %00110000,%00111100 ; 01000110
	DC.B %00110000,%00111111 ; 01000111
	DC.B %00110000,%11000000 ; 01001000
	DC.B %00110000,%11000011 ; 01001001
	DC.B %00110000,%11001100 ; 01001010
	DC.B %00110000,%11001111 ; 01001011
	DC.B %00110000,%11110000 ; 01001100
	DC.B %00110000,%11110011 ; 01001101
	DC.B %00110000,%11111100 ; 01001110
	DC.B %00110000,%11111111 ; 01001111
	DC.B %00110011,%00000000 ; 01010000
	DC.B %00110011,%00000011 ; 01010001
	DC.B %00110011,%00001100 ; 01010010
	DC.B %00110011,%00001111 ; 01010011
	DC.B %00110011,%00110000 ; 01010100
	DC.B %00110011,%00110011 ; 01010101
	DC.B %00110011,%00111100 ; 01010110
	DC.B %00110011,%00111111 ; 01010111
	DC.B %00110011,%11000000 ; 01011000
	DC.B %00110011,%11000011 ; 01011001
	DC.B %00110011,%11001100 ; 01011010
	DC.B %00110011,%11001111 ; 01011011
	DC.B %00110011,%11110000 ; 01011100
	DC.B %00110011,%11110011 ; 01011101
	DC.B %00110011,%11111100 ; 01011110
	DC.B %00110011,%11111111 ; 01011111
	DC.B %00111100,%00000000 ; 01100000
	DC.B %00111100,%00000011 ; 01100001
	DC.B %00111100,%00001100 ; 01100010
	DC.B %00111100,%00001111 ; 01100011
	DC.B %00111100,%00110000 ; 01100100
	DC.B %00111100,%00110011 ; 01100101
	DC.B %00111100,%00111100 ; 01100110
	DC.B %00111100,%00111111 ; 01100111
	DC.B %00111100,%11000000 ; 01101000
	DC.B %00111100,%11000011 ; 01101001
	DC.B %00111100,%11001100 ; 01101010
	DC.B %00111100,%11001111 ; 01101011
	DC.B %00111100,%11110000 ; 01101100
	DC.B %00111100,%11110011 ; 01101101
	DC.B %00111100,%11111100 ; 01101110
	DC.B %00111100,%11111111 ; 01101111
	DC.B %00111111,%00000000 ; 01110000
	DC.B %00111111,%00000011 ; 01110001
	DC.B %00111111,%00001100 ; 01110010
	DC.B %00111111,%00001111 ; 01110011
	DC.B %00111111,%00110000 ; 01110100
	DC.B %00111111,%00110011 ; 01110101
	DC.B %00111111,%00111100 ; 01110110
	DC.B %00111111,%00111111 ; 01110111
	DC.B %00111111,%11000000 ; 01111000
	DC.B %00111111,%11000011 ; 01111001
	DC.B %00111111,%11001100 ; 01111010
	DC.B %00111111,%11001111 ; 01111011
	DC.B %00111111,%11110000 ; 01111100
	DC.B %00111111,%11110011 ; 01111101
	DC.B %00111111,%11111100 ; 01111110
	DC.B %00111111,%11111111 ; 01111111
	DC.B %11000000,%00000000 ; 10000000
	DC.B %11000000,%00000011 ; 10000001
	DC.B %11000000,%00001100 ; 10000010
	DC.B %11000000,%00001111 ; 10000011
	DC.B %11000000,%00110000 ; 10000100
	DC.B %11000000,%00110011 ; 10000101
	DC.B %11000000,%00111100 ; 10000110
	DC.B %11000000,%00111111 ; 10000111
	DC.B %11000000,%11000000 ; 10001000
	DC.B %11000000,%11000011 ; 10001001
	DC.B %11000000,%11001100 ; 10001010
	DC.B %11000000,%11001111 ; 10001011
	DC.B %11000000,%11110000 ; 10001100
	DC.B %11000000,%11110011 ; 10001101
	DC.B %11000000,%11111100 ; 10001110
	DC.B %11000000,%11111111 ; 10001111
	DC.B %11000011,%00000000 ; 10010000
	DC.B %11000011,%00000011 ; 10010001
	DC.B %11000011,%00001100 ; 10010010
	DC.B %11000011,%00001111 ; 10010011
	DC.B %11000011,%00110000 ; 10010100
	DC.B %11000011,%00110011 ; 10010101
	DC.B %11000011,%00111100 ; 10010110
	DC.B %11000011,%00111111 ; 10010111
	DC.B %11000011,%11000000 ; 10011000
	DC.B %11000011,%11000011 ; 10011001
	DC.B %11000011,%11001100 ; 10011010
	DC.B %11000011,%11001111 ; 10011011
	DC.B %11000011,%11110000 ; 10011100
	DC.B %11000011,%11110011 ; 10011101
	DC.B %11000011,%11111100 ; 10011110
	DC.B %11000011,%11111111 ; 10011111
	DC.B %11001100,%00000000 ; 10100000
	DC.B %11001100,%00000011 ; 10100001
	DC.B %11001100,%00001100 ; 10100010
	DC.B %11001100,%00001111 ; 10100011
	DC.B %11001100,%00110000 ; 10100100
	DC.B %11001100,%00110011 ; 10100101
	DC.B %11001100,%00111100 ; 10100110
	DC.B %11001100,%00111111 ; 10100111
	DC.B %11001100,%11000000 ; 10101000
	DC.B %11001100,%11000011 ; 10101001
	DC.B %11001100,%11001100 ; 10101010
	DC.B %11001100,%11001111 ; 10101011
	DC.B %11001100,%11110000 ; 10101100
	DC.B %11001100,%11110011 ; 10101101
	DC.B %11001100,%11111100 ; 10101110
	DC.B %11001100,%11111111 ; 10101111
	DC.B %11001111,%00000000 ; 10110000
	DC.B %11001111,%00000011 ; 10110001
	DC.B %11001111,%00001100 ; 10110010
	DC.B %11001111,%00001111 ; 10110011
	DC.B %11001111,%00110000 ; 10110100
	DC.B %11001111,%00110011 ; 10110101
	DC.B %11001111,%00111100 ; 10110110
	DC.B %11001111,%00111111 ; 10110111
	DC.B %11001111,%11000000 ; 10111000
	DC.B %11001111,%11000011 ; 10111001
	DC.B %11001111,%11001100 ; 10111010
	DC.B %11001111,%11001111 ; 10111011
	DC.B %11001111,%11110000 ; 10111100
	DC.B %11001111,%11110011 ; 10111101
	DC.B %11001111,%11111100 ; 10111110
	DC.B %11001111,%11111111 ; 10111111
	DC.B %11110000,%00000000 ; 11000000
	DC.B %11110000,%00000011 ; 11000001
	DC.B %11110000,%00001100 ; 11000010
	DC.B %11110000,%00001111 ; 11000011
	DC.B %11110000,%00110000 ; 11000100
	DC.B %11110000,%00110011 ; 11000101
	DC.B %11110000,%00111100 ; 11000110
	DC.B %11110000,%00111111 ; 11000111
	DC.B %11110000,%11000000 ; 11001000
	DC.B %11110000,%11000011 ; 11001001
	DC.B %11110000,%11001100 ; 11001010
	DC.B %11110000,%11001111 ; 11001011
	DC.B %11110000,%11110000 ; 11001100
	DC.B %11110000,%11110011 ; 11001101
	DC.B %11110000,%11111100 ; 11001110
	DC.B %11110000,%11111111 ; 11001111
	DC.B %11110011,%00000000 ; 11010000
	DC.B %11110011,%00000011 ; 11010001
	DC.B %11110011,%00001100 ; 11010010
	DC.B %11110011,%00001111 ; 11010011
	DC.B %11110011,%00110000 ; 11010100
	DC.B %11110011,%00110011 ; 11010101
	DC.B %11110011,%00111100 ; 11010110
	DC.B %11110011,%00111111 ; 11010111
	DC.B %11110011,%11000000 ; 11011000
	DC.B %11110011,%11000011 ; 11011001
	DC.B %11110011,%11001100 ; 11011010
	DC.B %11110011,%11001111 ; 11011011
	DC.B %11110011,%11110000 ; 11011100
	DC.B %11110011,%11110011 ; 11011101
	DC.B %11110011,%11111100 ; 11011110
	DC.B %11110011,%11111111 ; 11011111
	DC.B %11111100,%00000000 ; 11100000
	DC.B %11111100,%00000011 ; 11100001
	DC.B %11111100,%00001100 ; 11100010
	DC.B %11111100,%00001111 ; 11100011
	DC.B %11111100,%00110000 ; 11100100
	DC.B %11111100,%00110011 ; 11100101
	DC.B %11111100,%00111100 ; 11100110
	DC.B %11111100,%00111111 ; 11100111
	DC.B %11111100,%11000000 ; 11101000
	DC.B %11111100,%11000011 ; 11101001
	DC.B %11111100,%11001100 ; 11101010
	DC.B %11111100,%11001111 ; 11101011
	DC.B %11111100,%11110000 ; 11101100
	DC.B %11111100,%11110011 ; 11101101
	DC.B %11111100,%11111100 ; 11101110
	DC.B %11111100,%11111111 ; 11101111
	DC.B %11111111,%00000000 ; 11110000
	DC.B %11111111,%00000011 ; 11110001
	DC.B %11111111,%00001100 ; 11110010
	DC.B %11111111,%00001111 ; 11110011
	DC.B %11111111,%00110000 ; 11110100
	DC.B %11111111,%00110011 ; 11110101
	DC.B %11111111,%00111100 ; 11110110
	DC.B %11111111,%00111111 ; 11110111
	DC.B %11111111,%11000000 ; 11111000
	DC.B %11111111,%11000011 ; 11111001
	DC.B %11111111,%11001100 ; 11111010
	DC.B %11111111,%11001111 ; 11111011
	DC.B %11111111,%11110000 ; 11111100
	DC.B %11111111,%11110011 ; 11111101
	DC.B %11111111,%11111100 ; 11111110
	DC.B %11111111,%11111111 ; 11111111
	ENDP





	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/QD/rgndefs.asm b/IIGS.601.SRC/GSToolbox/QD/rgndefs.asm
new file mode 100644
index 0000000..5523e4e
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/QD/rgndefs.asm
@@ -0,0 +1 @@
+	title 'QD RgnDefs           GS ROM 2.0'
****************************************************************
*			   *
*	   RgnDefs		   *
*			   *
****************************************************************

****************************************************************
*			   *
*	Copyright (C) 1986-1987	   *
*	All Rights Reserved		   *
*	Apple Computer, Inc.	   *
*
* Modification history:
*
* Feb 7, 1989 	Konstantin and Dave
*
*	Speed up point in region call.
*
*
* Feb 13, 1989 	Konstantin and Dave
*
*	Fixed bug in PtInRgn
*
* March 7, 1989	Konstantin
*
*	Made XorScan call shorter and faster.
*
****************************************************************
	string asis
	blanks off
	
	
	include 'all.macros'


	MACRO
&lab	MoveL &Label1,&Label2
&lab	lda &Label1
	sta &Label2
	lda &Label1+2
	sta &Label2+2
	MEND
	MACRO
&lab	MoveP &Label1,&Label2
&lab	lda &Label1,s
	sta &Label2
	lda &Label1+2,s
	sta &Label2+2
	MEND
	MACRO
&lab	PushNil
&lab	lda #0
	pha
	pha
	MEND
	MACRO
&lab	IncYWd
&lab	iny
	iny
	MEND
	MACRO
&lab	DecYWd
&lab	dey
	dey
	MEND
	MACRO
&lab	IncYPtr
&lab	iny
	iny
	iny
	iny
	MEND
	MACRO
&lab	DecYPtr
&lab	dey
	dey
	dey
	dey
	MEND
	MACRO
&lab	MoveLong &From,&To
&lab	lda &From
	sta &To
	lda &From+2
	sta &To+2
	MEND





	include ':QDEquates:qd.data.asm'



	INCLUDE ':QDEquates:core.globals1'
	INCLUDE ':QDEquates:core.globals2'
	INCLUDE ':QDEquates:region.equs'
	INCLUDE ':QDEquates:rect.equs'
	INCLUDE ':QDEquates:rgndefs.equs'


;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

	IMPORT BusyEC0
	IMPORT BusyEC12
	IMPORT BusyEC4
	IMPORT BusyEC8
	IMPORT BusyErr0
	IMPORT BusyErr12
	IMPORT BusyErr4
	IMPORT BusyErr8
	IMPORT DerefA
	IMPORT DerefB
	IMPORT DerefHandle
	IMPORT GetNewHandle
	IMPORT QDStart
	IMPORT ReSizeHandle
	IMPORT UnlockA
	IMPORT UnlockHandle

;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

	ENTRY DiffScan
	ENTRY DoRgnOp
	ENTRY InsetScan
	ENTRY LocalMapPoint
	ENTRY MapAndScale
	ENTRY RetrieveRects
	ENTRY RgnSector
	ENTRY SectScan
	ENTRY UnionScan
	ENTRY XorScan

;                copy rgndefs/ptinrgn
****************************************************************
*
* Function PtInRgn
*
****************************************************************
	EXPORT PtInRgn
PtInRgn	PROC

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
Rgn	equ RTL2+3
PointPtr	equ Rgn+4
Result	equ PointPtr+4

	jsr QDStart

	lda  #0		;zero out the result and the X-Reg
	tax		;..(this is the internal result)
	sta  Result,s

	lda  PointPtr,s		;get the point to test into zero
	sta  Temp		;..page (H,V)
	lda  PointPtr+2,s
	sta  Temp+2
	ldy  #2
	lda  [Temp]
	sta  V
	lda  [Temp],y
	sta  H

	lda  Rgn+2,s		;Temp = our region handle
	sta  Temp+2
	lda  Rgn,s
	sta  Temp
	lda  [Temp],y		;deref the handle using the fact
	sta  BufPtr+2		;..that Y-Reg is already two
	lda  [Temp]
	sta  BufPtr

	lda  V		;Y-Reg is already two here
	cmp  [BufPtr],y
	bmi  allDone
	ldy  #6
	cmp  [BufPtr],y
	bpl  allDone
	lda  H
	ldy  #4
	cmp  [BufPtr],y
	bmi  allDone
	ldy  #8
	cmp  [BufPtr],y
	bpl  allDone
	lda  #10
	cmp  [BufPtr]
	beq  isInTheRgn
;---------------------------------------------------------------
nextVert	iny		;this looks in the region for the point
	iny
	lda  V
	cmp  [BufPtr],y
	bmi  done

	lda  H
nextHor	iny
	iny
	cmp  [BufPtr],y
	bmi  lookForEnd
doToggle	inx
	bra  nextHor

lookForEnd	lda  [BufPtr],y
	cmp  #MaxInt
	beq  nextVert
	iny
	iny
	bra  lookForEnd
;---------------------------------------------------------------
done	txa
	lsr  a
	bcc  allDone

isInTheRgn	lda  #$FFFF
	sta  Result,s
allDone	jmp  BusyEC8
;---------------------------------------------------------------

	ENDP

****************************************************************
*
* Function RectInRgn
*
* Change History
*
* March 10, 1987  Steven Glass
*
* A case that was not working right showed a place where
* register was being trashed.  This is working below.
*
* Change History
* 7/23/87      GCP	   replaced BufPtr with BufHandle. We were
*	   looking in the wrong place before disposing
*	   of the handle
*
****************************************************************
	EXPORT RectInRgn
RectInRgn	PROC

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
Rgn	equ RTL2+3
RectPtr	equ Rgn+4
Result	equ RectPtr+4

RgnFlag	equ PtCount+2

	jsr QDStart

	lda #0	; init result to false
	sta Result,s
	sta BufHandle	; init handle to nil
	sta BufHandle+2

	lda Rgn,s	; pull Rgn handle off the stack
	sta RgnHandleA
	lda Rgn+2,s
	sta RgnHandleA+2

	ldx #RgnHandleA	; set up dereference pointer
	jsr DerefHandle	; dereference and lock it
	sta RgnPtrA
	stx RgnPtrA+2

	lda RectPtr,s	; get rectangle off	stack
	sec
	sbc #2	; fake out RgnSector (make it think
	sta RgnPtrB	; it really has a region by subtracting
	lda RectPtr+2,s	; two from the pointer)
	sbc #0
	sta RgnPtrB+2

	jsr RgnSector

	lda RgnY1
	cmp RgnY2
	bpl GoHome
	lda RgnX1
	cmp RgnX2
	bpl GoHome
	lda [RgnPtrA]
	cmp #10
	bne NotYet
	brl ItsInThere
GoHome	brl NotInThere
NotYet	sec
	lda RgnX2
	sbc RgnX1
	clc
	adc #$000F	; past next full word
	lsr A	; divide by 8
	lsr A
	lsr A
	and #$FFFE	; even number of words
	sta PtCount	; tuck it away
	ldx #BufHandle	; offset to handle location
	jsr GetNewHandle	; utility routine to get/deref handle
	bcc NoError
	pha	; save error
	ldx #RgnHandleA
	jsr UnlockHandle
	plx	; retrieve error
	jmp BusyErr8

NoError	sta BufPtr
	stx BufPtr+2
	ldy PtCount	; get count
	DecYWd
	lda #0
ClearLoop	sta [BufPtr],y
	DecYWd
	bpl ClearLoop
	stz RgnFlag	; init our toggle to off
	ldy #10
NxtVert	lda RgnY1
	cmp [RgnPtrA],y	; set flags on Y1-Rgn.Y
	bmi FastTrack
	IncYWd
NxtHoriz	lda [RgnPtrA],y
	IncYWd
	cmp #MaxInt
	beq NxtVert
	cmp RgnX2	; is it too far?
	bpl NxtHoriz	; yes, ignore it

* It was somewhere left of the right edge of our rect.  We must toggle
* our inversion flag.

	pha	; save point (added	10 Mar 87-SEG)

	lda RgnFlag
	eor #$FFFF
	sta RgnFlag

	pla	; get point back (added 10 mar 87)

	cmp RgnX1
	bmi NxtHoriz

* Now we have an inversion point that falls within X1 <= X < X2

	phy	; save y
	sec
	sbc RgnX1	; normalize it
	sta Temp
	and #$000F	; mod 16
	asl A	; make it a byte offset
	tax
	lda >Mask,x
	sta Temp+2
	lda Temp
	lsr A	; find the byte the	point is in
	lsr A
	lsr A
	and #$FFFE	; align it to a word boundary
	tay	; index it
	lda [BufPtr],y	; get what it is now
	eor Temp+2	; toggle the bit
	sta [BufPtr],y	; put it back
	ply
	bra NxtHoriz

Mask	DC.W $8000,$4000,$2000,$1000
	DC.W $0800,$0400,$0200,$0100
	DC.W $0080,$0040,$0020,$0010
	DC.W $0008,$0004,$0002,$0001

* When we get to the FastTrack, we are guaranteed to be past the first
* scan line of the rectangle, so any inversion point which falls within
* the horizontal limits X1 <= X < X2 means we've found a hit.  First,
* check for hits up	to this point.  If there aren't any, keep scanning
* until we pass Y2 or find one.

FastTrack	lda RgnFlag
	bne ItsInThere
	sty Temp
	ldy PtCount
	DecYWd
TestLoop	lda [BufPtr],y
	bne ItsInThere
	DecYWd
	bpl TestLoop
	ldy Temp
NxtVert2	lda [RgnPtrA],y
	IncYWd
	cmp RgnY2	; set flags on Rgn.Y-RgnY2
	bpl NotInThere
NxtHoriz2	lda [RgnPtrA],y
	IncYWd
	cmp #MaxInt
	beq NxtVert2
	cmp RgnX1
	bpl NoToggle
	lda RgnFlag
	eor #$FFFF
	sta RgnFlag
	bra NxtHoriz2

NoToggle	cmp RgnX2
	bmi ItsInThere
	lda RgnFlag	; if the rgn flag is on, we've got one
	bne ItsInThere

* It wasn't in there, so advance us to the end of scan marker

SkipThisOne	lda [RgnPtrA],y
	IncYWd
	cmp #MaxInt
	bne SkipThisOne
	bra NxtVert2

ItsInThere	lda #1
	sta Result,s
NotInThere	ldx #RgnHandleA
	jsr UnlockHandle

	lda BufHandle
	ora BufHandle+2

	beq NoHandle
	ldx #BufHandle
	jsr UnlockHandle
	PushLong BufHandle
	_DisposeHandle
	bcs Err
NoHandle	jmp BusyEC8
Err	jmp BusyErr8

	ENDP
;                copy rgndefs/rgnsave
****************************************************************
*
* RgnSave
*
* Internal routine to determine if we are save in the process
* of defining a region.
*
* 3/9/89	Mensch
* Modify the dirty flags at the proper times
****************************************************************
	EXPORT RgnSave
RgnSave	PROC
*              using coredata


	ldy #o_RgnSave
	lda [PortRef],y
	sta BufHandle
	iny
	iny
	lda [PortRef],y
	sta BufHandle+2
	ora BufHandle
	beq IsZero

NotZero	sec
	rts

IsZero	phx
	ldx #512
	lda <DirtyDPFlags,x
	ora #NoRgnRecord+NoPolyRecord
	sta <DirtyDPFlags,x
	plx
	lda #0
	clc
	rts

	ENDP

;                copy rgndefs/putrect
****************************************************************
*
* Procedure AddPt2Rgn;
*
*   A point is passed in registers, the	x value in the x register
*   and the y value	in the A register.	These are added to the
*   inversion point	list and y is incremented.  No other registers
*   are changed.
*
****************************************************************
	EXPORT AddPt2Rgn
AddPt2Rgn	PROC

	sta [BufPtr],y	; store y value
	iny	; increment y
	iny	; increment y
	txa	; get x value
	sta [BufPtr],y	; store x value
	iny	; increment y
	iny	; increment y
	rts	; get outa here

	ENDP

****************************************************************
*
* Procedure PutRect(r:rect; bufHandle:Handle; var Index,Size:integer);
*
*   Puts the four inversion points of a	rectangle.
*
*   This being an internal routine, the	rectangle is stored	on zero
*   page in Y1,X1,Y2,X2.  bufHandle is a handle to a list of inversion
*   points and has been placed in RgnHandleC.  The first two bytes of
*   the list are the maximum size.  The	second two bytes are the
*   current size.  We will bump the handle by 1024 bytes if	we
*   don't have enough room for 16 more bytes (4 points), then add the
*   four points onto the end.  Note that the number of points is
*   (index div 4) -	1
*
****************************************************************
	EXPORT iPutRect
iPutRect	PROC

*              using ErrorData

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3

* avoid locking/derefing once the caller does it properly

	ldx #BufHandle
	jsr DerefHandle	; dereference the current handle
	sta BufPtr	; save pointer returned in A & X
	stx BufPtr+2
	ldy #2	; current index offset
	lda [BufPtr],y	; get index
	pha	; save it
	clc	; prepare for add
	adc #16	; room we need for 4 points
	sta [BufPtr],y	; store it while we	have it
	cmp [BufPtr]	; set flags on index - size
	bcc SizeOk	; blt SizeOk
	beq SizeOk	; ble SizeOk
	lda [BufPtr]	; get current maximum
	clc	; clear carry for adc

* We generally won't be calling too many rectangles in a row, so bump
* the size just by a page.

	adc #256	; bump size by 256
	bcs BufferOverflow	; if we wrapped, we	quit
	ldx #BufHandle	; point X at BufHandle
	jsr ReSizeHandle	; resize, relock, rederef
	bcs ErrorOut	; if we failed, propogate the error
	sta BufPtr	; save pointer
	stx BufPtr+2
SizeOk	ply	; reload y
	ldx x1	; get left
	lda y1	; get top
	jsr AddPt2Rgn	; put point
	ldx x2	; get right
	lda y1	; get top
	jsr AddPt2Rgn	; put point
	ldx x1	; get left
	lda y2	; get bottom
	jsr AddPt2Rgn	; put point
	ldx x2	; get right
	lda y2	; get bottom
	jsr AddPt2Rgn	; put point

* avoid unlocking once the caller does it

	ldx #BufHandle	; unlock the buffer	handle
	jsr UnlockHandle
	clc
	rtl

BufferOverflow	lda #RgnFull	; error to say we had troubles
ErrorOut	pha	; save error code
	ldx #BufHandle	; unlock the buffer	handle
	jsr UnlockHandle
	pla	; restore error code
	sec	; restore error flag
	rtl	; get outa here

	ENDP
;                copy rgndefs/putline
****************************************************************
*
* Procedure PutLine(pt1,pt2:Point; dst:Handle; var index,bufmax:integer);
*
*   Puts inversion points for a line segment.
*
*   This being an internal routine, the	points are stored on zero
*   page in Y1,X1,Y2,X2.  bufHandle is a handle to a list of inversion
*   points.  The first two bytes of the	list are the maximum size.
*   The second two bytes are the current size.
*
****************************************************************
	EXPORT iPutLine
iPutLine	PROC

*              using ErrorData

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3

* We assume in Putline that BufHandle is already dereferenced and locked
* down for us.  This should make life easier for the polygon routines, so
* that the dereferencing and locking need only be done once	or in the
* event of a resizing.

* avoid locking/derefing once the caller does it

	ldx #BufHandle	; get the inversion	point buffer
	jsr DerefHandle	; dereference it
	sta BufPtr	; save pointer returned in A & X
	stx BufPtr+2

	ldy #2	; current index offset
	lda [BufPtr],y	; get index
	sta Index	; keep track of it

* If line is vertical, ignore it since it must already connect to
* existing horizontal lines.

	sec	; set for subtract
	lda X2	; we'll subtract so we have the
	sbc X1	; result in case we	need it
	bne NotVertical
	jmp Exit	; jump out all the way

NotVertical	sta DeltaX	; save this for later

* Calculate bytes needed as 8 * (Min(abs(dh),abs(dv))+1)

	bpl DhPos
	eor #$FFFF
	ina
DhPos	sta Temp	; switch to using RgnY1..RgnX2
	lda Y1
	sta RgnY1
	lda X1
	sta RgnX1
	lda Y2
	sta RgnY2
	lda X2
	sta RgnX2

	sec
	lda RgnY2
	sbc RgnY1
	sta DeltaY
	bpl DvPos
	eor #$FFFF
	ina
DvPos	cmp Temp
	bmi DvLess
	lda Temp
DvLess	ina	; bump by 1
*
* Addition by SEG (20 May 86) to return	error
* on overflow
*
	cmp #$2000	; check this number	to see if it is too
	bcs BufferOverflow	; big to handle and	quit if yes
*
* End addition.
*
	asl A	; now mult by 8
	asl A
	asl A
	clc
	adc Index
	bcs BufferOverflow	; if we wrapped, we	quit
	cmp [BufPtr]
	bcc NoGrow
	beq NoGrow
	ldx #BufHandle	; get offset to handle
	jsr ResizeHandle	; resize it
	bcc SavePtr
	bra ErrorOut

BufferOverflow	lda #RgnFull	; error to say we had troubles
ErrorOut	pha	; save error code
	ldx #BufHandle	; unlock the buffer	handle
	jsr UnlockHandle
	pla	; restore error code
	sec	; restore error flag
	rtl	; get outa here

SavePtr	sta BufPtr	; save pointer
	stx BufPtr+2
NoGrow	lda RgnY1
	cmp RgnY2
	bne Slanted
	lda RgnY1
	ldx RgnX1
	ldy Index	; AddPt2Rgn updates	y
	jsr AddPt2Rgn
	lda RgnY2
	ldx RgnX2
	jsr AddPt2Rgn
	jmp Done	; go fix up the length

Slanted	bmi NoSwap	; if Y1-Y2 < 0, don't swap
	ldx RgnY2	; A already has Y1
	sta RgnY2
	stx RgnY1
	lda RgnX1	; swap horizontals to match
	ldx RgnX2
	sta RgnX2	; we don't need to swap deltas
	stx RgnX1	; because the sign changes cancel
NoSwap	lda RgnY1
	sta V	; init V to top V
	pea 0	; room for result
	pea 0
	pei DeltaX	; sure glad we caught these earlier
	pei DeltaY
	_FixRatio	; get the ratio
	pla
	sta Slope	; hmmm - zero page already ?
	pla
	sta Slope+2

	lda RgnX1
	sta Horiz+2	; Horiz.Int := top horiz
	lda #$8000
	sta Horiz	; Horiz.Fract := 1/2

* Adjust horiz depending on sign and magnitude of slope
* Horiz := Horiz + Slope/2

	lda Slope+2	; is slope negative
	asl A	; get sign of slope
	lda Slope+2	; get high word of slope back
	ror A	; divide by 2, preserving sign
	sta Temp	; save the high word
	lda Slope
	ror A	; A has low word of	slope/2
	clc
	adc Horiz	; add into Horiz
	sta Horiz	; and save it
	lda Temp	; get the high word	back
	adc Horiz+2	; add using carry
	sta Horiz+2	; and save it

	lda Slope+2	; is slope negative?
	bmi NegSlope	; yes, continue
	bne SlopeOk	; if high word >0, then slope >= 1

* Add slope to LeftEdge

	clc
	lda Slope	; get low word
	adc Horiz	; add low word of Horiz
	sta Horiz	; save it
	lda Slope+2	; get high word of slope
	adc Horiz+2	; add high word of Horiz with carry
	sta Horiz+2	; save high word
	bra SlopeOk	; and continue

NegSlope	eor #$FFFF	; is slope >= FFFF0000
	beq SlopeOk
	inc Horiz+2	; add 1 to horiz
SlopeOk		; 

* For Vert := TopV to BotV-1 add slope to Horiz and put slabs

	lda RgnX1
	sta H
	ldy Index
Loop	lda H
	cmp Horiz+2
	beq NoChng
	lda V	; get current V
	sta [BufPtr],y	; put it
	IncYWd
	lda H	; get old H
	sta [BufPtr],y	; put it
	IncYWd
	lda V	; get V again
	sta [BufPtr],y	; put it
	IncYWd
	lda Horiz+2	; get new H
	sta [BufPtr],y	; put it
	sta H	; update H
	IncYWd
NoChng	inc V	; bump V
	clc
	lda Slope
	adc Horiz
	sta Horiz
	lda Slope+2
	adc Horiz+2
	sta Horiz+2
	lda V
	cmp RgnY2
	bne Loop

* Finish up last slab

	lda H
	cmp RgnX2
	beq Done
	lda V
	sta [BufPtr],y
	IncYWd
	lda H
	sta [BufPtr],y
	IncYWd
	lda V
	sta [BufPtr],y
	IncYWd
	lda RgnX2
	sta [BufPtr],y
	IncYWd
Done	tya
	ldy #2
	sta [BufPtr],y
	lsr A	; divide by 4
	lsr A
	dea
	sta PtCount	; be a good neighbor

* avoid unlocking once the caller does it

Exit	ldx #BufHandle	; set up offset
	jsr UnlockHandle	; get rid of this when okay
	clc
	rtl

	ENDP
;                copy rgndefs/putrgn
*****************************************************************
*
* Procedure PutRgn
*
*   Input is a RgnHandle in RgnHandleA and buffer in BufHandle.
*   The buffer size	is held in the first two bytes of BufHandle's
*   data, and the index (offset to the end of the buffer) in
*   bytes 2-3 of the same.  PutRgn expands a region out to an
*   array of inversion points, and thus	functions as the inverse
*   of PackRgn.  The caller should unlock RgnHandleA after use.
*
****************************************************************
	EXPORT iPutRgn
iPutRgn	PROC

*              using ErrorData

* delete the next eight lines once BufHandle is set up correctly

	ldx #BufHandle	; dereference and lock BufHandle
	jsr DerefHandle
	sta BufPtr	; save pointer
	stx BufPtr+2

	ldx #RgnHandleA	; dereference and lock RgnHandleA
	jsr DerefHandle
	sta RgnPtrA	; save pointer returned in A & X
	stx RgnPtrA+2

	ldy #2	; offset to current	index
	lda [BufPtr],y	; get buffer length
	sta Index	; save index
	lda [RgnPtrA]	; get region size
	asl A	; times 2
	clc	; prepare for add
	adc Index	; what we'll need
	cmp [RgnPtrA]	; set flags on needed-current
	bcc NoGrow	; if current > needed, ok
	beq NoGrow	; or even this way
	adc #256	; bump our size for	some sluff
	bcs BufferOverflow	; if we wrapped, we	report an error
	ldx #BufHandle	; offset to the handle to resize
	jsr ResizeHandle	; resize BufHandle
	bcc SavePtr
	bra ErrorOut

BufferOverflow	lda #RgnFull	; error to say we had troubles
ErrorOut	pha	; save error code
	ldx #BufHandle	; unlock the buffer	handle
	jsr UnlockHandle
	pla	; restore error code
	sec	; restore error flag
	rtl	; get outa here

SavePtr	sta BufPtr	; save pointer
	stx BufPtr+2
NoGrow	lda #10	; size of a rectangular region
	cmp [RgnPtrA]	; is region rectangular
	bne NotRect	; no, continue

* Use the bounding box to insert 4 points (Top,Left), (Top,Right),
* (Bottom,Left), and (Bottom,Right).

	ldy #8	; offset to right
	lda [RgnPtrA],y	; get right
	pha	; push it
	ldy #6	; offset to bottom
	lda [RgnPtrA],y	; get bottom
	pha	; push it
	ldy #4	; offset to left
	lda [RgnPtrA],y	; get left
	pha	; push it
	ldy #2	; offset to top
	lda [RgnPtrA],y	; get top
	ldy Index	; destination for next point
	tax	; save top in x

	sta [BufPtr],y	; save top
	IncYWd

	lda 1,s	; get left
	sta [BufPtr],y	; save it
	IncYWd

	txa	; get top
	sta [BufPtr],y	; save top again
	IncYWd

	lda 5,s	; get right
	sta [BufPtr],y	; save right
	IncYWd

	lda 3,s	; get bottom
	tax	; save it in x
	sta [BufPtr],y	; save bottom
	IncYWd

	pla	; get left
	sta [BufPtr],y	; save it
	IncYWd	; bump y

	pla	; get bottom
	sta [BufPtr],y	; save it
	IncYWd	; bump y

	pla	; get right
	sta [BufPtr],y	; save it
	IncYWd	; bump y

	tya	; transfer index
Done	ldy #2	; offset to index
	sta [BufPtr],y	; save index
	lsr A
	lsr A
	dea
	sta PtCount	; be a good neighbor
	ldx #BufHandle
	jsr UnlockHandle
	clc	; no error
	rtl

Cleanup	lda Index	; get current offset
	bra Done	; share code

NotRect	ldy #10	; offset to first vert
NxtVert	lda [RgnPtrA],y	; get next vert
	cmp #MaxInt	; is it MaxInt
	beq Cleanup	; if so, clean up and quit
	sta Temp	; stow it
	IncYWd	; bump y
NextHor	lda [RgnPtrA],y	; get next horizontal
	IncYWd	; bump y
	cmp #MaxInt	; is it Maxint?
	beq NxtVert	; if so, check vertical
	tax	; stow it
	lda [RgnPtrA],y	; get second horizontal
	sta Temp+2	; save it
	IncYWd	; bump y
	sty SrcY	; save offset pointer

	ldy Index	; get index
	lda Temp	; get vert back
	sta [BufPtr],y	; put vert
	IncYWd	; bump y
	txa	; get horizontal back
	sta [BufPtr],y	; put horizontal
	IncYWd	; bump y
	lda Temp	; get vert back
	sta [BufPtr],y	; put vert
	IncYWd	; bump y
	lda Temp+2	; get second horizontal
	sta [BufPtr],y	; put second horizontal
	IncYWd	; bump y
	sty Index	; save it

	ldy SrcY	; get source index
	bra NextHor	; look for more horizontal values

	ENDP

;                copy rgndefs/cullpoints
****************************************************************
*
* Procedure CullPoints; internal;
*
*   BufHandle is a pointer to a list of	inversion points.  The
*   zero page variable PtCount tells us	how many there are
*   at the moment.	Remove any duplicate points (which cancel
*   each other) and	update PtCount if necessary.
*
****************************************************************
	EXPORT iCullPoints
iCullPoints	PROC

* The buffer is stored in BufHandle and	is already dereferenced
* into BufPtr and is locked down.

	ldx PtCount	; how many points to do?
	beq DnCull	; if 0, well, that was easy
	ldy #4
	lda [BufPtr],y	; set up the first points
	sta PointV	; save it
	ldy #6	; point y a h
	lda [BufPtr],y	; set up PointH
	sta PointH	; save it
	ldy #8	; initial NextY value
	sty NextY	; save it
	stz Sluff	; sluff := false
	bra More	; let's do it

DnCull	rtl	; get outa here

CheckStarted	lda Sluff
	bne ToEndCull

* Only the last two	points need to be culled.  Set up DestY	so
* we can share common end code.

	sec
	lda NextY
	sbc #8
	sta DestY
ToEndCull	brl EndCull	; help out short branch

* We get to Delete knowing it is time to delete a point.  We have
* to restore our environment to something sensible.  First,	we
* decrement x twice.  If it's 0, we're done.  If not, we update
* NextY, PointV, and PointH.  Then if x=1 we jump ahead to LastPt.
* Y comes in equal to NextY

Delete	dex	; kill first point
	dex	; kill with second point
	beq CheckStarted	; go do EndCull via	ToEndCull

* at this point, y is pointing at H of NextY.  We must push	it
* onwards by 6 bytes, and we know we can because the x register is
* not yet exhausted.  However, along the way we can use it to get
* the values of the	current PointV,PointH.

	lda Sluff	; check our flag
	bne Started	; if <> 0, we've deleted something
	inc Sluff	; Sluff now <> 0
	lda NextY	; DestY := NextY-4
	sec	; for subtract
	sbc #8	; decrement by 8
	sta DestY	; save correct value
Started	lda [BufPtr],y	; get PointV
	sta PointV	; save it
	IncYWd	; bump y by 2 to H offset
	lda [BufPtr],y	; get PointH
	sta PointH	; save it
	IncYWd	; bump y by 2 to V offset
	sty NextY	; save it in case x=1
	cpx #1	; is x=1?
	beq SetupLastPt	; go do lastpoint

* When we get to More, we have the current point stored in PointV and
* PointH.  The y register points at the	next entry.

More	ldy NextY	; look at next point
	lda [BufPtr],y	; get next point v
	sta Temp	; save it
	IncYWd	; bump to horizontal
	lda [BufPtr],y	; fetch it
	sta Temp+2	; save it
	IncYWd	; bump Y to next point
	sty NextY	; save pointer
	cmp PointH	; do horizontal first since A is set
	bne HDiff	; if <>, save A and	continue
	lda Temp
	cmp PointV
	beq Delete	; kill these points
HDiff	lda Sluff	; are we copying yet
	beq NoCopy	; nope, not yet

* copy the old point back down

	ldy DestY	; get the next dest
	lda PointV	; get V
	sta [BufPtr],y	; store it
	IncYWd	; bump y by 2
	lda PointH	; get H
	sta [BufPtr],y	; store it
	IncYWd	; bump y by 2
	sty DestY	; save it

NoCopy	dex	; done with 1 point	(or maybe two)
	beq EndCull	; tidy up if x=0
	cpx #1	; is x=1?
	beq DoLastPt	; go do lastpoint

* we got here from the normal loop, so Temp contains the next point to
* use in the comparisons.  Copy it into	PointV,PointH and start the loop.

	lda Temp	; get next V
	sta PointV	; save it
	lda Temp+2	; get next H
	sta PointH	; save that too
	bra More	; start the loop again

SetupLastPt	lda PointV	; we gonna use temp	below
	sta Temp
	lda PointH
	sta Temp+2
DoLastPt	lda Sluff	; check our flag
	beq Nochange	; if nothing deleted by now, just leave
	lda Temp	; these should be set
	ldy DestY	; get destination offset
	sta [BufPtr],y	; save it
	lda Temp+2	; next value
	IncYWd	; bump y by 2
	sta [BufPtr],y	; save it
	IncYWd	; for good measure
	sty DestY	; save it

EndCull	lda DestY	; points at next location
	lsr A	; divide by 2
	lsr A	; divided by 4
	dea	; -1 for start
	sta PtCount	; updated PtCount
NoChange	rtl

	ENDP
;                copy rgndefs/sortpoints
****************************************************************
*
* Procedure SortPoints
*
*   Upon entering SortPoints, the list of inversion points to
*   be QuickSorted is found in RgnHandleA and RgnPtrA on zero
*   page.  The number of points is found in PtCount, also on
*   zero page.  This routine performs a	QuickSort on the list
*   and uses log (base 2) n of stack space.  Since the list	is
*   constrained to fit in one 64K bank (to accomodate the range
*   of the y register) we will need a maximum of log (base 2) 16K,
*   or 14, times the stack space per partition element (4 bytes)
*   or about 56 bytes.
*
****************************************************************
	EXPORT iSortPoints
iSortPoints	PROC

* The buffer is stored in BufHandle and	is already dereferenced and
* locked down.

	ldy #4	; start of list
	sty lptr	; save this ptr
	ldx #1	; we'll put one entry on the stack
	stx SpCount	; one item on our stack
	tya	; stack[1].l := 1
	pha	; push it
	lda PtCount	; stack[1].r := PtCount
	asl A	; multiply by 2
	asl A	; multiply by 4 (includes -4 offset)
	pha	; push it

* repeat { pop top request from stack }
* ..lptr := a[s].l;	rptr := a[s].r

PopNext	pla	; pop right
	sta rptr	; new zero page
	pla	; pop left
	sta lptr	; new zero page
	dec SpCount	; decrement stack count

* ..repeat { split a[l] ... a[r] }
* ....iptr := lptr;	j := rptr; Mid(V,H)	:= a[(l+r) div 2](V,H);

Split	lda lptr	; get lptr
	sta iptr	; store in iptr
	lda rptr	; get rptr
	sta jptr	; store in jptr
	clc	; clear carry
	adc iptr	; add both
	ror A	; divide by 2 with carry from add
	and #$FFFC	; put back onto a point boundary

* A contains the y index into the point	buffer.  Load the actual key
* values Point[y div 4].(V,H) into MidV	and MidH.

	tay	; put index into y
	lda [BufPtr],y	; get MidV
	sta MidV	; save it
	iny	; bump y
	iny	; bump y
	lda [BufPtr],y	; get MidH
	sta MidH	; save it

* ....repeat { scan	for keys out of order, then swap }

* Scan the partition for points out of order with respect to a
* screening point randomly selected in the middle.  First scan
* upwards from iptr, then downwards from jptr, to set the limits
* of a partition which is out of order.

Scan	ldy iptr	; load iptr into y
	lda MidV	; get screening value
	bra ScanIEntry	; skip around increment

* ......while a[iptr] < Mid do iptr := iptr+1

NextIScan	IncYPtr	; bump y to next point
ScanIEntry	cmp [BufPtr],y	; set flags on MidV-pts[iptr].v
	bmi Scan2	; if we had to borrow, we've found
	bne NextIScan	; if plus, look at the next one
	lda MidH	; get screening value
	IncYWd	; bump y to h value
	cmp [BufPtr],y	; set flags on MidH-pts[iptr].h
	bmi Scan2a	; if we had to borrow, we've found
	beq Scan2a	; or if equal, we're still done
	IncYWd	; point iptr at next entry
	lda MidV	; reload A
	bra ScanIEntry	; jump back and continue scanning

* note that A still	contains MidV

Scan2a	DecYWd	; remove h value bump
	lda MidV	; reload v value
Scan2	sty iptr	; save iptr away
	ldy jptr	; get jptr value into y
	bra ScanJEntry	; skip around decrement

* ......while a[jptr] > Mid do jptr := jptr-1

NextJScan	DecYPtr	; dec y to next point
ScanJEntry	cmp [BufPtr],y	; set flags on MidV-pts[jptr].v
	bmi NextJScan	; if we borrowed, look at next
* The Order and PreOrder entry points need to be checked
	bne Order	; if Midv > pts.v, look again
	lda MidH	; get screening value
	IncYWd	; bump y to h value
	cmp [BufPtr],y	; set flags on MidH-pts[jptr].h
	bpl PreOrder	; if carry set we've found it
	tya	; put jptr in A
	sec	; set carry before subtract
	sbc #6	; decrement by 6
	tay	; put it back into y
	lda MidV	; restore A
	bra ScanJEntry	; loop again

* If Iptr <= Jptr bump both pointers.  If Iptr < Jptr, swap	them (Quickdraw
* always swapped them.  Let's save a few instructions).

* ......if i < j then { swap a[jptr] and a[iptr] }

PreOrder	DecYWd	; put counter back by 2
Order	sty jptr	; save y in jptr
	cpy iptr	; set flags on jptr-iptr
	bcc DnScan	; Yes, all done
	beq NextIJ	; if same point, bump but don't swap
	lda [BufPtr],y	; get point V
	sta Temp	; save it
	IncYWd	; bump y by 2
	lda [BufPtr],y	; get point H
	sta Temp+2	; save it also
	ldy iptr	; get other point
	lda [BufPtr],y	; get point V
	tax	; save it in x
	IncYWd	; bump y by 2
	lda [BufPtr],y	; get point H
	ldy jptr	; get jptr back
	IncYWd	; bump y to H part
	sta [BufPtr],y	; save point H
	txa	; get v back
	DecYWd	; bump y down to V part
	sta [BufPtr],y	; save point V
	ldy iptr	; get iptr back
	lda Temp	; get V point
	sta [BufPtr],y	; store V part
	IncYWd	; bump y to H part
	lda Temp+2	; get H part
	sta [BufPtr],y	; store V part
NextIJ	ldy iptr	; get iptr
	IncYPtr	; bump it
	sty iptr	; save it
	ldy jptr	; get jptr
	DecYPtr	; decrement it
	sty jptr	; save it
	cpy iptr	; set flags on jptr-iptr
	bcc DnScan	; if iptr > jptr, we're done
	jmp Scan	; continue sorting

* ......until iptr > jptr

DnScan	sec
	lda rptr	; compute rptr - iptr
	sbc iptr	;
	sta temp	; save it
	sec	; set carry again
	lda jptr	; compute jptr - lptr
	sbc lptr	;
	cmp temp	; set flags on (jptr-lptr)-(rptr-iptr)
	bcs AddLeft	; if (jptr-lptr) >=	(rptr-iptr) do left
AddRight	lda iptr	; get iptr
	cmp rptr	; set flags on iptr-rptr
	bcs NoRAdd	; if rptr > iptr then add partition
	inc SpCount	; bump our stack counter
	pha	; push iptr
	lda rptr	; get rptr
	pha	; push that too
NoRAdd	lda jptr	; set rptr := jptr below
	sta rptr	; do it
	bra RJoin	; catch up below

AddLeft	lda lptr	; get lptr
	cmp jptr	; set flags on lptr-jptr
	bcs NoLAdd	; if jptr > lptr then add partition
	inc SpCount	; bump our stack counter
	pha	; push lptr
	lda jptr	; get jptr
	pha	; push that too
NoLAdd	lda iptr	; get iptr
	sta lptr	; lptr := iptr

* ....until lptr >=	rptr

RJoin	lda lptr	; get lptr
	cmp rptr	; set flags on lptr-rptr
	bcs DnSplit	; done if rptr > lptr
	jmp Split	; split again and continue sorting

* ..until s=0

DnSplit	lda SpCount	; get our stack counter
	beq DnPop	; if 0, we're through
	jmp PopNext	; if not, sort the next partition

DnPop	rtl	; let's go home!

	ENDP
;                copy rgndefs/packrgn
****************************************************************
*
* Procedure PackRgn;
*
* Converts a sorted	array of inversion points into a region.
* Calls storage allocator to make more room and trim result	to
* minimum size.  Output is in the following form:
*
*    Rgnsize	     (minimum 10 bytes)
*    RgnBBox	     (bounding box,	top:left:bottom:right)
*    V1 H1,...,Hn Maxint (scan line, inv.pts on that line)
*    V2 H1,...,Hm Maxint (next scan line where inv.pts. change)
*    ...
*    Maxint	     (no more scan lines)
*
* The array of inversion points is in BufHandle and BufPtr.
* The number of points is in PtCount, and the destination region
* handle is passed in RgnHandleA and RgnPtrA.
*
****************************************************************
	EXPORT iPackRgn
iPackRgn	PROC

	lda #10	; minimum length region
	sta [RgnPtrA]	; zero the region
	lda #0	; for clearing
	ldy #2	; offset to top
	sta [RgnPtrA],y	; top := 0
	ldy #4	; offset to left
	sta [RgnPtrA],y	; left := 0
	ldy #6	; offset to bottom
	sta [RgnPtrA],y	; bottom := 0
	ldy #8	; offset to right
	sta [RgnPtrA],y	; right := 0
	lda #4	; examine point count
	cmp PtCount	; set flags on 4-PtCount
	bcc NotRect	; if PtCount > 4, we have more work
	bne DnRect	; if PtCount <> 4, leave as null region
* Move point at [BufPtr]+4 to BBox.TopLeft, [BufPtr]+12 to BBox.BotRight
	tay	; y := 4, offset to	top
	lda [BufPtr],y	; get top
	ldy #2	; BBox.Top offset
	sta [RgnPtrA],y	; set top
	ldy #6	; offset to left
	lda [BufPtr],y	; get it
	ldy #4	; BBox.Left offset
	sta [RgnPtrA],y	; set left
	ldy #16	; offset to bottom
	lda [BufPtr],y	; get it
	ldy #6	; BBox.Bottom offset
	sta [RgnPtrA],y	; set bottom
	ldy #18	; offset to right
	lda [BufPtr],y	; get it
	ldy #8	; BBox.Right offset
	sta [RgnPtrA],y	; set right
DnRect	ldy #10	; minimum region length
	jmp TidyUp	; fix up size

* BBox.Top := Point[1].V

NotRect	ldy #4	; offset to first point v
	lda [BufPtr],y	; get it
	ldy #2	; offset to BBox.Top
	sta [RgnPtrA],y	; save it
	ldy #6	; offset to first point.h
	lda [BufPtr],y	; get it
	sta MinH	; MinH := Point[1].H
	sta MaxH	; MaxH := Point[1].H
* Y is still 6
	ldx PtCount	; x will be our loop counter
Scan	Dex	; any points left?
	Beq EndScan	; if not, quit scanning
	IncYPtr	; bump y to next point
	lda [BufPtr],y	; get next point
	cmp MinH	; set flags on H-MinH
	bpl TryMax	; if H >= MinH, check max
	sta MinH	; MinH := H
	bra Scan	; continue
TryMax	cmp MaxH	; set flags on H-MaxH
	bmi Scan	; if H < MaxH, we're cool
	sta MaxH	; if H <= MaxH, MaxH := H
	bra Scan

EndScan	ldy #4	; BBox.Left offset
	lda MinH	; get minimum H
	sta [RgnPtrA],y	; set left
	ldy #8	; BBox.Right offset
	lda MaxH	; get maximum H
	sta [RgnPtrA],y	; set right
	lda PtCount	; get PtCount
	asl A	; multiply by 2
	asl A	; multiply by 4
	tay	; put in y
	lda [BufPtr],y	; get last point V (-4 offset built in)
	ldy #6	; BBox.Bottom offset
	sta [RgnPtrA],y	; save bottom

* Get PtCount, multiply by 4 and add 12	to get the maximum number of
* bytes we'll need to store the packed region.

	lda PtCount	; get pointcount
	ina	; by 1 to include stuff at beginning
	asl A	; multiply by 2
	asl A	; multiplied by 4
	adc #12	; carry should be clear, add 12
	ldx #RgnHandleA	; get offset to destination handle
	jsr ResizeHandle	; resize A handle
	bcs ErrorHandler	; if error set, quit
	sta RgnPtrA	; save pointer
	stx RgnPtrA+2
	ldy #4	; offset to first inversion point
	sty iptr	; save it
	lda #10	; offset to first stored point
	sta jptr	; save it
	lda [BufPtr],y	; get top
	ldx PtCount	; x is our loop counter again
	bra Start	; do it

ErrorHandler	rtl	; leave with A and carry intact

NextPt	ldy iptr	; set y to iptr
	lda [BufPtr],y	; examine V point
	cmp CurY	; set flags on V-CurrentY
	beq VSame	; if same, add H point
	sty iptr	; save iptr

	ldy jptr	; switch to jptr
	lda #MaxInt	; get end of row signal
	sta [RgnPtrA],y	; put it
	IncYWd	; bump jptr
	sty jptr	; and save it

Start	ldy iptr	; get iptr
	lda [BufPtr],y	; get V point
	sty iptr	; save iptr

	ldy jptr	; get jptr
	sta CurY	; keep track of it
	sta [RgnPtrA],y	; put new V value
	IncYWd	; bump it to H offset
	sty jptr	; and save it

* y should be pointing at a v offset when we get to VSame, either by falling
* through from Start or branching here from NextPt

	ldy iptr	; get iptr
VSame	IncYWd	; bump y to h offset
	lda [BufPtr],y	; get h value
	IncYWd	; bump iptr to V offset
	sty iptr	; save iptr

	ldy jptr	; get jptr
	sta [RgnPtrA],y	; put H value
	IncYWd	; bump jptr
	sty jptr	; save jptr

	dex	; decrement our counter
	bne NextPt	; if x <> 0, do another point

* Put maxint twice as end of region marker.  Y register is still jptr

	lda #MaxInt	; get Maxint signal
	sta [RgnPtrA],y	; put signal end of	scan line
	IncYWd	; bump it to end of	region
	sta [RgnPtrA],y	; put signal end of	region
	IncYWd	; y is now length of region

TidyUp	tya	; put y into A
	ldx #RgnHandleA	; offset to RgnHandleA
	jsr ResizeHandle	; resize it
	sta RgnPtrA	; save pointer
	stx RgnPtrA+2

	rtl	; leave, and propogate any error

	ENDP
;                copy rgndefs/makergn
****************************************************************
*
* Procedure OpenRgn;
*
* 3/29/89	mensch
* Changed the error code reported for already open to $0430 like 
* the bopok says...
*
****************************************************************
	EXPORT OpenRgn
OpenRgn	PROC
*              using RegionData
*              using CoreDATA

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
Next	equ RTL2+3

* get address of GrafPort into y

	jsr QDStart

	jsr RgnSave	; are we already saving one?
	bcs OpenError	; yes, give him an error
	ldy #o_RgnSave+2	; offset to high word
	lda [PortRef],y	; get next word
	bne OpenError	; and complain again
	ldx #BufHandle	; place to put new handle
	lda #256	; initial size to allocate
	jsr GetNewHandle	; get us a new buffer
	bcs HandleError	; handle any error we find
	sta BufPtr	; save pointer
	stx BufPtr+2
	lda BufHandle	; get low word of handle
	ldy #o_RgnSave	; offset to store it in grafport
	sta [PortRef],y	; store into RgnSave
	lda BufHandle+2	; get high word
	ldy #o_RgnSave+2	; offset to high word in grafport
	sta [PortRef],y	; store into RgnSave+2
	ldy #2	; index offset
	lda #4	; initial length (0	points)
	sta [BufPtr],y	; set first available offset
	ldx #BufHandle	; get offset to BufHandle
	jsr UnLockHandle	; unlock the handle
	_HidePen	; hide the pen
	jmp BusyEC0

HandleError	tax	; propogate the error
	jmp BusyErr0

OpenError	
	ldx #RgnAlreadyOpen	; get error code
;	ldx #$4031	; WHY IS THIS HERE?
	jmp BusyErr0	; tell him about it

	ENDP

****************************************************************
*
* Procedure CloseRgn(
*   dstRgn : RgnHandle
*   )
*
****************************************************************
CloseRgn	PROC EXPORT

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
dstRgn	equ RTL2+3

	jsr QDStart

	jsr RgnSave	; are we saving one?

	bcs @Continue
	lda #rgnNotOpen
	bra HandleError

@Continue
	lda #0	; prepare for clear
	ldy #o_RgnSave	; offset to low word
	sta [PortRef],y	; zero lo word of old handle
	ldy #o_RgnSave+2	; offset to RgnSave+2 in PortRef
	sta [PortRef],y	; zero hi word of old handle
	_ShowPen	; undo the HidePen from OpenRgn
	ldx #BufHandle	; get offset to BufHandle
	jsr DerefHandle	; dereference and lock
	sta BufPtr	; save pointer
	stx BufPtr+2
	ldy #2	; get index offset
	lda [BufPtr],y	; get index
	lsr A	; divided by 2
	lsr A	; divided by 4
	dea	; minus 1, now it's the # of points
	sta PtCount	; keeps our current	point count
	lda DstRgn,s	; get DstRgn handle
	sta RgnHandleA	; save it
	lda DstRgn+2,s	; get DstRgn handle	hi word
	sta RgnHandleA+2	; save it too
	ldx #RgnHandleA	; get offset to RgnHandleA
	jsr DerefHandle	; dereference it
	sta RgnPtrA	; save pointer
	stx RgnPtrA+2
	jsl SortPoints	; quicksort in VH order
	jsl CullPoints	; cancel duplicate pairs
	jsl PackRgn	; pack points into RgnHandleA (DstRgn)
	stz PtCount	; clear PackRgn error flag
	bcc PackOkay
	inc PtCount	; save error condition
	sta Op	; save error code
PackOkay	ldx #BufHandle	; get offset
	jsr UnLockHandle	; unlock the buffer
	ldx #RgnHandleA	; get offset
	jsr UnLockHandle	; unlock this too
	PushLong BufHandle	; push buffer handle
	_DisposeHandle
	ldy PtCount	; see if we got a PackRgn error first
	beq NoPackErr	; nope, look for a dispose error
	ldx Op
	jmp BusyErr4

NoPackErr	bcs HandleError	; if carry set, it didn't work
CloseDone	jmp BusyEC4

HandleError	tax
	jmp BusyErr4

	ENDP

;                copy rgndefs/rgnscan
****************************************************************
*
* Procedure ExpandA
*
****************************************************************
	EXPORT ExpandA
ExpandA	PROC

	lda #10	; size of rectangular region
	cmp [RgnPtrA]	; set flags on 10-length
	bne NotRect	; if not Rect, deal	with that
	Movelong Scratch,PtrBaseA ; pointer to first fake region

	ldy #2
	lda [RgnPtrA],y	; BBox.Top
	sta [PtrBaseA]	; V 1
	ldy #4
	lda [RgnPtrA],y	; BBox.Left
	ldy #2
	sta [PtrBaseA],y	; H 1.1
	ldy #10
	sta [PtrBaseA],y	; H 2.1
	ldy #6
	lda [RgnPtrA],y	; BBox.Bottom
	ldy #8
	sta [PtrBaseA],y	; V 2
	lda [RgnPtrA],y	; BBox.RIght
	ldy #4
	sta [PtrBaseA],y	; H 1.2
	ldy #12
	sta [PtrBaseA],y	; H 2.2
	lda #MaxInt
	ldy #6
	sta [PtrBaseA],y	; store MaxInt
	ldy #14
	sta [PtrBaseA],y	; store MaxInt
	ldy #16
	sta [PtrBaseA],y	; store MaxInt
	stz PtrA	; zero PtrA
	rts	; get outa here

NotRect	Movelong RgnPtrA,PtrBaseA ; use the actual pointer
	lda #10	; get offset to data
	sta PtrA	; save it
	rts	; get outa here

	ENDP

****************************************************************
*
* Procedure ExpandB
*
****************************************************************
	EXPORT ExpandB
ExpandB	PROC

FakeOff	equ 18	; offset in Scratch	to FakeB

	lda #10	; size of rectangular region
	cmp [RgnPtrB]	; set flags on 10-length
	bne NotRect	; if not Rect, deal	with that
	Movelong Scratch,PtrBaseB ; point us at	Scratch region

	ldy #2	; offset to BBox
	lda [RgnPtrB],y	; BBox.Top
	ldy #FakeOff
	sta [PtrBaseB],y	; V 1
	ldy #4
	lda [RgnPtrB],y	; BBox.Left
	ldy #2+FakeOff
	sta [PtrBaseB],y	; H 1.1
	ldy #10+FakeOff
	sta [PtrBaseB],y	; H 2.1
	ldy #6
	lda [RgnPtrB],y	; BBox.Bottom
	ldy #8+FakeOff
	sta [PtrBaseB],y	; V 2
	ldy #8
	lda [RgnPtrB],y	; BBox.RIght
	ldy #4+FakeOff
	sta [PtrBaseB],y	; H 1.2
	ldy #12+FakeOff
	sta [PtrBaseB],y	; H 2.2
	lda #MaxInt
	ldy #6+FakeOff
	sta [PtrBaseB],y	; store MaxInt
	ldy #14+FakeOff
	sta [PtrBaseB],y	; store MaxInt
	ldy #16+FakeOff
	sta [PtrBaseB],y	; store MaxInt
	lda #FakeOff	; get fake offset
	sta PtrB	; offset to B
	rts	; get outa here

NotRect	Movelong RgnPtrB,PtrBaseB ; use the real region
	lda #10	; get offset to data
	sta PtrB	; save it
	rts	; get out here

	ENDP

****************************************************************
*
* Procedure SectScan
*
*   Accepts offsets	into Scratch buffer	in Src1, Src2, and
*   Dst.  It then calculates the intersection, difference,
*   or union of two	inversion scans.  Each input scan is a
*   sorted array of	integers terminated	by MaxInt.  The output
*   scan contains the inversion coordinates for the result.
*
****************************************************************
	EXPORT SectScan
SectScan	PROC

	stz State1	; reset State1 off
	stz State2	; reset State2 off
	bra Share	; share code

	EXPORT DiffScan
DiffScan		;       
	stz State1	; reset State1 off
	lda #$FFFF	; get "on"
	bra Union2	; share code

	EXPORT UnionScan
UnionScan		;       
	lda #$FFFF	; get "on"
	sta State1	; set State2 on
Union2	sta State2	; set State1 on

Share	ldy Src1	; get Next1
	lda [SrcBase1],y
	sta Next1	; save it
	IncYWd	; bump y
	sty Src1

	ldy Src2	; get Next2
	lda [Scratch],y
	sta Next2
	IncYWd
	sty Src2

Next	lda Next2	; get Next2
	cmp Next1	; set flags on Next2-Next1
	bmi Less2	; if Next2 < Next1,	process 2nd
	bne Less1	; if Next1 < Next2,	process 1st

Equal	cmp #MaxInt	; is it MaxInt
	beq Done	; if so, we're done
	lda State1	; get State1
	cmp State2	; are states the same?
	bne Skip0	; no, skip

	lda Next1	; get it back
	ldy Dst	; get destination
	sta [Scratch],y	; put it
	IncYWd	; bump y
	sty Dst	; save Dst counter

Skip0	ldy Src1	; get A ptr
	lda [SrcBase1],y	; get Next1
	sta Next1	; save it
	IncYWd	; bump y
	sty Src1	; save y

	lda State1	; get State1
	eor #$FFFF	; not #1
	sta State1	; save it

	ldy Src2	; get index
	lda [Scratch],y	; get Next2
	sta Next2	; save it
	IncYWd	; bump y
	sty Src2	; save y

	lda State2	; get State2
	eor #$FFFF	; not #2
	sta State2	; save it
	bra Next	; loop for more

Less1	lda State2	; test State2
	beq Skip1	; skip if not true

	lda Next1	; get A
	ldy Dst	; get destination
	sta [Scratch],y	; save it
	IncYWd	; bump y
	sty Dst	; save Dst

Skip1	ldy Src1
	lda [SrcBase1],y	; get next value
	sta Next1	; save it
	IncYWd	; bump y
	sty Src1	; save it

	lda State1	; get state
	eor #$FFFF	; not State1
	sta State1	; save it
	bra Next	; loop for more

Less2	lda State1	; test State1
	beq Skip2	; skip if not true

	lda Next2	; get B
	ldy Dst	; get destination
	sta [Scratch],y	; save it
	IncYWd	; bump y
	sty Dst	; save Dst

Skip2	ldy Src2	; get Next2
	lda [Scratch],y	; get next value
	sta Next2	; save it
	IncYWd	; bump y
	sty Src2	; save it

	lda State2	; get state
	eor #$FFFF	; not State2
	sta State2	; save it
	jmp Next	; loop for more

Done	lda #MaxInt	; get maxint
	ldy Dst	; get pointer
	sta [Scratch],y	; store end of scan
	IncYPtr	; bump y
	sty Dst	; make count valid
	rts	; we're out of here

	ENDP

****************************************************************
*
* Procedure InsetScan
*
*   Accepts offsets	into Scratch buffer	in Src1 and
*   Dst.  It then horizontally insets an inversion scan by DH.
*   The input scan is a sorted array of	integers terminated	by
*   MaxInt.  The output scan contains the inversion coordinates
*   for the inset.
*
*   1/20/88 GCP Added test to outsetscan to check for equal	points.
****************************************************************
	EXPORT InsetScan
InsetScan	PROC

	lda DH	; is dh negative?
	bmi Outset	; yes, outset
Inset	ldy Src1	; get first offset
	lda [SrcBase1],y	; get first value
	sta Temp	; save it
	cmp #MaxInt	; check for terminator
	beq DoneOutSet	; quit when found

	IncYWd	; bump y
	lda [SrcBase1],y	; get second value
	IncYWd	; bump y again
	sty Src1	; save it

	sec	; prepare for subtract
	sbc DH	; subtract from right
	sta Temp+2	; save it also

	lda Temp	; get first back
	clc	; prepare for add
	adc DH	; add to left
	sta Temp	; save it
	cmp Temp+2	; set flags on left-right
	bpl Inset	; if left >= right,	skip both

	ldy Dst	; get destination offset
	sta [Scratch],y	; save first
	IncYWd	; bump y
	lda Temp+2	; get first back
	sta [Scratch],y	; save second
	IncYWd	; bump y
	sty Dst	; save pointer

	bra Inset	; loop entire scan

DoneOut	sty Src1	; update it
DoneOutSet	ldy Dst	; get destination pointer
	lda #MaxInt	; get end of scan
	sta [Scratch],y	; mark it
	IncYWd	; bump y
	sty Dst	; there!
	rts	; All done!

* each pair of coords, outset them and cancel if they cross

Outset	lda #-MaxInt	; set oldright
OutsetLoop	sta OldRight	; to -Maxint
	ldy Src1	; get next offset
	lda [SrcBase1],y	; load next left value
	IncYWd	; bump it
	sta Temp	; save it
	cmp #MaxInt	; check for terminator
	beq DoneOut	; if it is, we're done
	lda [SrcBase1],y	; get right value
	IncYWd	; bump y
	sty Src1	; save it

	ldy Dst	; get ready for store
	sec	; prepare for subtract
	sbc DH	; right-DH
	sta Temp+2	; save it
	lda Temp	; get left back
	clc	; prepare for add
	adc DH	; add to left
	cmp OldRight	; is left <= OldRight
	beq Around
	bpl OutOk	; no, continue
Around	DecYWd	; decrement Dst by 2
	bra OutOk2	; and continue
OutOk	sta [Scratch],y	; save left point
	IncYWd	; bump y
OutOk2	lda Temp+2	; get right back
	sta [Scratch],y	; save right point
	IncYWd	; bump y
	sty Dst	; save it
	bra OutsetLoop	; loop for entire scan

	ENDP

****************************************************************
*
* Procedure XorScan
*
*   Accepts offsets	into Scratch buffer	in Src1, Src2, and
*   Dst.  It then forms the exclusive or of two inversion scans.
*   Each input scan	is a sorted array of integers terminated by
*   MaxInt.  The output scan contains all input coordinates	from
*   each, but with duplicate pairs cancelled.  It also is
*   terminated by MaxInt.
*
* 3/7/89	Konstantin
*
* 	Removed variables Next1 and Next2, and made loops
*	tighter and faster.
*  
****************************************************************
	EXPORT XorScan
XorScan	PROC
	ldx Dst

	ldy Src2	; get offset to A
DoNext	lda [Scratch],y	; get Next 

	ldy Src1	; get next B offset
	cmp [SrcBase1],y	; compare with next1
	
	bmi Less2
	bne Less1	; if Next1 < Next2,	take from 1

Equal
	ldy Src1	;Worst case: 5 cycles
	IncYWd	;4 cycles
	sty Src1	;Worst case: 5 cycles
	
	ldy Src2	
	IncYWd	
	sty Src2	
	
	cmp #MaxInt	; all done?
	bne DoNext	;y-reg  contains Src2
	
XorScanDone
	txy
	sta [Scratch],y	; save terminator, y already = Dst
	rts	; go home

Less2		;a contains value pointed to by src2
	txy
	sta [Scratch],y	; save the second value
	inx	; bump Dst
	inx	; and save it

	ldy Src2	; get offset to A
	IncYWd
	sty Src2
	lda [Scratch],y	; get Next A

	ldy Src1	; get next B offset
	cmp [SrcBase1],y	; compare with next1
	
	bmi Less2
	bne Less1	; if Next1 < Next2,	take from 1
	bra Equal
Less1		;y contains Src1
	lda [SrcBase1],y
	IncYWd
	sty Src1
	
	txy
	sta [Scratch],y	; put it
	inx	; bump Dst
	inx	; and save it

	ldy Src2	; get offset to A
	lda [Scratch],y	; get Next A

	ldy Src1
	cmp [SrcBase1],y	; compare with next1
	
	bmi Less2
	bne Less1	; if Next1 < Next2,	take from 1
	bra Equal

	ENDP
;                copy rgndefs/rgnop
****************************************************************
*
* Procedure RgnOp;
*
*   Accepts two source regions in RgnHandleA and RgnHandleB	and
*   assumes they have been dereferenced	and locked down.  It
*   creates a buffer based on PtCount.	The horizontal offset
*   used in the event of and InsetRgn call is passed in register
*   X.  The operation to perform is passed in Op.
*
*   Computes the intersection, difference, union, or xor of
*   two regions or the horizontal inset	of one region, and stores
*   the result as an unpacked array of sorted inversion points
*   in bufHandle.  Returns the number of points in PtCount.
*   BufHandle will be grown only if more space is needed.  RgnOp
*   returns an error if one is returned	from the memory manager.
*
*    Sect = 0   A-B	Diff = 2   Union = 4   Xor = 6   HInset	= 8
*
****************************************************************

	EXPORT iRgnOp
iRgnOp	PROC

* We generate some scratch space - an awful process but we have to get
* the memory we need from somewhere - might as well grab it	all at once.
* Here follows the usage of that memory.

FakeA	equ 0	; offset to FakeA region
FakeB	equ FakeA+18	; offset to FakeB region
Scan	equ FakeB+18	; offset to start of scan buffers
ScratchSize	equ 10280	; 10 K of space, maximum
Partition	equ 2048	; size of one partition


	stx DH	; save horizontal offset
	stz BufHandle	; zero handle to nil
	stz BufHandle+2
*
* NEW CODE
* 1/6/88
* This is the new region cache code.
* On the third zero	page (only place left) at "RgnCache" there
* is a handle to 10Kbytes of memory for	use as a temporary working area for
* rgnops. This cache is purgable so each time we call region op we check to see
* if the handle is empty. If the handle	has been purged then we restore the
* handle, if is has	not been purged then we reuse it.
* The initial call to allocate the cache memory is made in QDStartUp.
* The handle is locked while we are in this routine and unlocked on exit.
*
DerefAgain	ldx #RgnCache	;deref and lock the handle
	jsr DeRefHandle
	cmp #0	;both will be zero if cache has been
	bne CacheEst	;purged
	cpx #0
	bne CacheEst	;branch if cache is	still allocated

	ldx #RgnCache
	lda 2,x	;put cache handle on stack
	pha
	lda 0,x
	pha
	_RestoreHandle	;reallocates space for cache
		;The handle must already be the right size
	bcc DerefAgain

	sec	;indicate error
	rtl

CacheEst		; 

T1	sta Scratch	; save pointer
	stx Scratch+2

	lda PtCount	; get size of BufHandle
	ldx #BufHandle	; get offset
	jsr GetNewHandle
	bcc T2	; if an error, return it
	brl MemError

T2	sta BufPtr
	stx BufPtr+2
	ldy #2
	lda #4
	sta [BufPtr],y	; initialize buffer	index

* Move RgnPtrA to FakeA and expand it to a 4 point packed region if rectangular

	jsr ExpandA	; expand FakeA
	jsr ExpandB	; expand FakeB

* Initialize assorted pointers

	sec	; prepare for subtract
	lda PtCount	; get size of BufHandle
	sbc #4	; remove length and	index bytes
	and #$FFF8	; truncate to an integral # of points
	clc	; prepare for add
	adc #4	; put length and index bytes back in
	sta ListMax	; biggest we can handle

	ldy #4	; offset to first buffer dest
	sty ListPtr	; save it

	ldy #Scan	; offset to first scan buffer
	lda #MaxInt	; get MaxInt
	sta [Scratch],y	; initialize ScanA to empty
	sty ScanA	; save it in ScanA

	ldy #(Scan+Partition) ; offset to second scan buffer
	sta [Scratch],y	; initialize ScanB to empty
	sty ScanB	; save it in ScanB

	ldy #(Scan+Partition*2) ; offset to third scan buffer
	sta [Scratch],y	; initialize ScanC to empty
	sty ScanC	; save it in ScanC

	ldy #(Scan+Partition*3) ; offset to fourth scan buffer
	sty TempScan	; save it in TempScan

	ldy #(Scan+Partition*4) ; offset to fifth scan buffer
	sty OutScan	; save it in OutScan

	Movelong Scratch,SrcBase1 ; initialize SrcBase1

	ldy PtrA	; get PtrA
	lda [PtrBaseA],y	; NextA := first vert in A
	sta NextA	; save it
	IncYWd	; bump y to next word
	sty PtrA	; save it

	ldy PtrB	; get PtrB
	lda [PtrBaseB],y	; NextB := first vert in B
	sta NextB	; save it
	IncYWd	; bump y to next word
	sty PtrB	; save it

	lda Op	; get Op
	cmp #8	; is it Inset
	bne NxtVert	; no, continue
	lda #MaxInt	; get maxint
	sta NextB	; save it in NextB

NxtVert	lda NextA	; get NextA
	cmp NextB	; set flags on NextA - NextB
	beq Both	; they're equal, bump both
	bpl UpdateB	; B, update RgnB only
	jsr UpdateA	; A, update RgnA only
	bra Calc

UpdateA	lda NextA	; get NextA
	sta Vert	; Vert := NextA
	Movelong PtrBaseA,SrcBase1 ; establish the source base pointer
	ldy PtrA	; get PtrA
	sty Src1	; Src1 := PtrA

	ldy ScanA	; get ScanA
	sty Src2	; Src2 := ScanA

	ldy TempScan	; get TempScan
	sty Dst	; Dst := TempScan

	jsr XorScan	; XorScan(PtrA,ScanA,TempScan)
	Movelong Scratch,SrcBase1 ; put it back	where it belongs

	ldy Src1	; get Src1; y is PtrA, bu
	lda [PtrBaseA],y	; get next vert
	sta NextA	; NextA := next Vert
	IncYWd	; bump y
	sty PtrA	; save it
	ldx TempScan	; get TempScan
	lda ScanA	; get ScanA
	stx ScanA	; swap them
	sta TempScan	; like so
	rts	; return to local caller

* When we get to Both, the A register contains the next vertical.  If it
* is Maxint, we're done.

XDone	jmp Done	; relay branch

Both	cmp #MaxInt	; is it Maxint?
	beq XDone	; if so, all done
	jsr UpdateA	; update RgnA
UpdateB	lda NextB	; vert := NextB
	sta Vert	; do it

	Movelong PtrBaseB,SrcBase1 ; establish the source base pointer
	lda PtrB	; get PtrB
	sta Src1	; Src1 := PtrB

	lda ScanB	; get ScanB
	sta Src2	; Src2 := ScanB

	lda TempScan	; get TempScan
	sta Dst	; Dst := TempScan

	jsr XorScan	; XorScan(PtrB,ScanB,TempScan)
	Movelong Scratch,SrcBase1 ; put it back	where it belongs

	ldy Src1	; get Src1
	lda [PtrBaseB],y	; get next vert
	sta NextB	; NextB := next vert
	IncYWd	; bump y
	sty PtrB	; PtrB := end of scan + 2
	ldx TempScan	; get temp scan
	lda ScanB	; get ScanB
	stx ScanB	; swap them
	sta TempScan	; like so

* Calculate sect, diff, union, xor, or inset into ScanC

Calc	lda ScanA	; get ScanA
	sta Src1	; Src1 := ScanA
	lda ScanB	; get ScanB
	sta Src2	; Src2 := ScanB
	lda TempScan	; get TempScan
	sta Dst	; Dst := TempScan
	ldx Op	; fetch Op (0,2,4,6,8)
	jsr (CaseTab,x)	; execute OpScan
	bra Changes	; jump around casetab

CaseTab	DC.W SectScan	; address of SectScan
	DC.W DiffScan	; address of DiffScan
	DC.W UnionScan	; address of UnionScan
	DC.W XorScan	; address of XorScan
	DC.W InsetScan	; address of InsetScan

Changes	lda TempScan	; get TempScan
	sta Src1	; Src1 := TempScan
	lda ScanC	; get ScanC
	sta Src2	; Src2 := ScanC
	ldy OutScan	; get offset to OutScan
	sty Dst	; Dst := OutScan
	jsr XorScan	; XorScan(TempScan,ScanC,OutScan)
	ldx TempScan	; get TempScan
	lda ScanC	; get ScanC
	stx ScanC	; swap them
	sta TempScan	; like so

	ldy OutScan	; where the data was placed
	sty Src1	; index we'll use to fetch it
	ldy ListPtr	; so the comparison	will work
	bra OutTest	; go to loop start

OutLoop	lda [Scratch],y	; get H coord from OutScan
	sta Temp	; save it
	IncYWd	; bump y to next H offset
	lda [Scratch],y	; get next H coord from OutScan
	sta Temp+2	; save it too
	IncYWd	; bump y again
	sty Src1	; tuck it away

	ldy ListPtr	; get output destination offset
	lda Vert	; get V back
	sta [BufPtr],y	; save it
	IncYWd	; bump y
	lda Temp	; get H
	sta [BufPtr],y	; save it
	IncYWd	; bump y
	lda Vert	; get V value
	sta [BufPtr],y	; save it
	IncYWd	; bump y
	lda Temp+2	; get H
	sta [BufPtr],y	; save it
	IncYWd	; bump y
	sty ListPtr	; save it

OutTest	cpy ListMax	; set flags on ListPtr-ListMax
	bcc SizeOk	; if ListMax > ListPtr, continue

* The point buffer is full.  Grow it if	Flags <> 0.

	lda ListMax	; get current useful size
	clc	; clear carry
	adc #256	; bump by 256 bytes
	sta ListMax	; the new value, already trimmed
	ldx #BufHandle	; get offset
	jsr ResizeHandle	; resize it, relock	it
	bcs MemError
	sta BufPtr	; save new pointer
	stx BufPtr+2
SizeOk	ldy Src1	; get offset to next value from OutScan
	lda [Scratch],y	; get the next H coord
	cmp #MaxInt	; is it MaxInt?
	bne OutLoop	; no, go for more
	jmp NxtVert	; loop for next vert

MemError	pha	; save error
	ldx #RgnCache
	jsr UnlockHandle
	pla	; get error back
	sec	; ensure error flag	is set
	rtl

Done	ldy #2	; offset to ListPtr	index
	lda ListPtr	; get size
	sta [BufPtr],y	; save size
	lsr A	; divide by 2
	lsr A	; divided by 4
	dea	; minus 1 to generate # of points
	sta PtCount	; update it
GetRidOfS	ldx #RgnCache
	jsr UnlockHandle
	clc
	rtl	; get out of here

	ENDP
;                copy rgndefs/sectrgn
****************************************************************
*
* Procedure RgnAEmpty
*
*   Local procedure	which checks RgnA (assumed dereferenced	in
*   RgnPtrA) to see	if it is empty.  It	checks both the vertical
*   and the horizontal for emptiness, and leaves the carry set
*   if they are, and clear if it's not empty.
*
****************************************************************
	EXPORT RgnAEmpty
RgnAEmpty	PROC

	ldy #BBoxLeft	; offset to left
	lda [RgnPtrA],y	; get left
	ldy #BBoxRight	; offset to right
	cmp [RgnPtrA],y	; set flags on left-right
	bpl Done	; if left >= right,	copy
	ldy #BBoxTop	; offset to top
	lda [RgnPtrA],y	; get top
	ldy #BBoxBottom	; offset to bottom
	cmp [RgnPtrA],y	; set flags on top-bottom
Done	rts	; carry is set correctly, leave

	ENDP

****************************************************************
*
* Procedure RgnBEmpty
*
*   Local procedure	which checks RgnB (assumed dereferenced	in
*   RgnPtrB) to see	if it is empty.  It	checks both the vertical
*   and the horizontal for emptiness, and leaves the carry set
*   if they are, and clear if it's not empty.
*
****************************************************************
	EXPORT RgnBEmpty
RgnBEmpty	PROC

	ldy #BBoxLeft	; offset to left
	lda [RgnPtrB],y	; get left
	ldy #BBoxRight	; offset to right
	cmp [RgnPtrB],y	; set flags on left-right
	bpl Done	; if left >= right,	copy
	ldy #BBoxTop	; offset to top
	lda [RgnPtrB],y	; get top
	ldy #BBoxBottom	; offset to bottom
	cmp [RgnPtrB],y	; set flags on top-bottom
Done	rts	; carry is set correctly, leave

	ENDP


****************************************************************
*
* Procedure RgnSector
*
*   Takes the regions in RgnPtrA and RgnPtrB and intersects
*   their bounding boxes, leaving the resulting rectangle in
*   RgnY1, RgnX1, RgnY2, and RgnX2 on zero page.  Called below
*   and by RectInRgn.
*
****************************************************************
	EXPORT RgnSector
RgnSector	PROC

	ldy #BBoxTop	; offset to top
	lda [RgnPtrA],y	; get first top
	cmp [RgnPtrB],y	; compare to second
	bpl STop	; if A > B, use A
	lda [RgnPtrB],y	; get the other one
STop	sta RgnY1	; save Top
	ldy #BBoxBottom	; offset to bottom
	lda [RgnPtrB],y	; get second bottom
	cmp [RgnPtrA],y	; compare to first
	bmi SBottom	; if B < A, use B
	lda [RgnPtrA],y	; get other one
SBottom	sta RgnY2	; save bottom
	ldy #BBoxRight	; offset to right
	lda [RgnPtrB],y	; get second right
	cmp [RgnPtrA],y	; compare to first
	bmi SRight	; if B < A, use B
	lda [RgnPtrA],y	; get the other one
SRight	sta RgnX2	; save right
	ldy #BBoxLeft	; offset to left
	lda [RgnPtrA],y	; get first left
	cmp [RgnPtrB],y	; compare to second
	bpl SLeft	; if A > B, use A
	lda [RgnPtrB],y	; get the other one
SLeft	sta RgnX1	; save left
	rts

	ENDP

****************************************************************
*
* Procedure SectRgn(
*   srcRgnA,srcRgnB,dstRgn:RgnHandle
*   )
*
*   Calculate the intersection of two regions.
*
****************************************************************
	EXPORT SectRgn
SectRgn	PROC

	jsr QDStart

	lda #0	; op := Sect
	jmp DoRgnOp	; it does all the work

	ENDP

****************************************************************
*
* Procedure UnionRgn(
*   srcRgnA,srcRgnB,dstRgn:RgnHandle
*   )
*
*   Calculate the union of two regions.
*
****************************************************************
	EXPORT UnionRgn
UnionRgn	PROC

	jsr QDStart

	lda #4	; op := Union
	jmp DoRgnOp	; it does all the work

	ENDP

****************************************************************
*
* Procedure DiffRgn(
*   srcRgnA,srcRgnB,dstRgn:RgnHandle
*   )
*
*   Calculate the difference A-B of two	regions.
*
****************************************************************
	EXPORT DiffRgn
DiffRgn	PROC

	jsr QDStart

	lda #2	; op := Diff
	jmp DoRgnOp	; it does all the work

	ENDP

****************************************************************
*
* Procedure XorRgn(
*   srcRgnA,srcRgnB,dstRgn:RgnHandle
*   )
*
*   Calculate the exclusive or of two regions.
*
****************************************************************
	EXPORT XorRgn
XorRgn	PROC

	jsr QDStart

	lda #6	; op := Xor
	jmp DoRgnOp	; it does all the work

	ENDP

****************************************************************
*
* Procedure DoRgnOp;
*
*   Computes the Intersection, Difference, Union, or Xor
*   of two regions.	 Enter with Op in A.
*
*    Sect = 0	A-B Diff = 2      Union = 4      Xor = 6
*
****************************************************************
	EXPORT DoRgnOp
DoRgnOp	PROC
*              using E0Vectors

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
DstRgn	equ RTL2+3
SrcRgnB	equ DstRgn+4
SrcRgnA	equ SrcRgnB+4

	sta Op	; save the operation
	pha	; room for result
	lda SrcRgnA+4,s	; get high word
	pha	; push it
	lda SrcRgnA+4,s	; get low word
	pha	; push it
	lda SrcRgnA+4,s	; get high word
	pha	; push it
	lda SrcRgnA+4,s	; get low word
	pha	; push it
	_EqualRgn	; are they equal?
	pla	; get boolean result
	beq NotSame	; if 0 (false), we have more work
	lda Op	; get op
	and #2	; and it with 2 (Diff and Xor bit)
	bne Zero	; zero it if Sect or Union

Copy	lda SrcRgnA+2,s	; get high word
	pha	; push it
	lda SrcRgnA+2,s	; get low word
	pha	; push it
	lda DstRgn+6,s	; get high word
	pha	; push it
	lda DstRgn+6,s	; get low word
	pha	; push it
	_CopyRgn	; copy it
	bcs T1
	jsr UnlockAB
	jmp BusyEC12	; we can leave now

Zero	lda DstRgn+2,s	; get high word
	pha	; push it
	lda DstRgn+2,s	; get low word
	pha	; push it
	_SetEmptyRgn	; zero the destination
	bcs T1
	jsr UnlockAB
	jmp BusyEC12

T1	pha	; save error code
	jsr UnlockAB
	plx	; restore error code
	jmp BusyErr12

* load the handles from the stack onto zero page and dereference them

NotSame	lda SrcRgnA,s	; get low word of SrcRgnA
	sta RgnHandleA	; save it
	lda SrcRgnA+2,s	; get high word of SrcRgnA
	sta RgnHandleA+2	; save it
	jsr DerefA

	lda SrcRgnB,s	; get low word of SrcRgnB
	sta RgnHandleB	; save it
	lda SrcRgnB+2,s	; get high word of SrcRgnB
	sta RgnHandleB+2	; save it
	jsr DerefB

* If Op = Diff and RgnB is empty, copy RgnA into DstRgn

	lda #2	; get Diff opcode
	cmp Op	; is it Diff?
	bcc UniXor	; if Op > Diff then	Union or Xor
	bne BBoxes	; if Op <> Diff, it's Sect

* Op = Diff, so check RgnB for empty

	jsr RgnBEmpty	; is RgnB empty
	bpl Copy	; if it's empty, CopyRgnA

* If Op = Sect or Diff, then intersect the bounding boxes.

BBoxes	jsr RgnSector	; RgnY1..RgnX2 := RgnA * RgnB

	lda RgnX1
	cmp RgnX2	; compare to X2
	bpl Empty	; if X1=X2, it's empty
	lda RgnY1	; get top
	cmp RgnY2	; if Y1 >= Y2, it's empty
	bmi NotEmpty	; so do it

* The bounding boxes don't intersect.  If Op = Sect, then return empty.
* If Op = Diff, then copy RgnA into DstRgn

Empty	lda Op	; get op
	beq Zero	; if Sect, return empty
	jmp Copy	; no, copy SrcA into DstRgn

* If Op = Sect, then check for both inputs rectangular

NotEmpty	lda Op	; is op = Sect
	bne NotEasy	; no, continue
	lda #10	; get rectangular region size
	cmp [RgnPtrA]	; compare with RgnA	length
	bne NotEasy	; no, continue
	cmp [RgnPtrB]	; compare with RgnB	length
	bne NotEasy	; no, continue

* push dstrgn and address of temprect.	Could be bad news.

	lda DstRgn+2,s	; get high word
	pha	; push it
	lda DstRgn+2,s	; get low word
	pha	; push it
	clc
	lda #0	; it's in bank 0
	pha	; push high word
	tdc	; get direct register
	adc #RgnY1	; add in offset
	pha	; push low word
	_RectRgn	; RectRgn(dstRgn,tempRect)
	bcs T2
	jsr UnlockAB
	jmp BusyEC12

T2	pha	; save error
	jsr UnlockAB
	plx	; restore error
	jmp BusyErr12

UniXor	jsr RgnBEmpty	; is RgnB empty?
	bmi T3	; yes, copy RgnA
	brl Copy
T3	jsr RgnAEmpty	; is RgnA empty?
	bmi NotEasy	; yes, copy RgnB
	lda SrcRgnB+2,s	; get high word
	pha	; push it
	lda SrcRgnB+2,s	; get low word
	pha	; push it
	lda DstRgn+6,s	; get high word
	pha	; push it
	lda DstRgn+6,s	; get low word
	pha	; push it
	_CopyRgn	; copy it
	bcs T4
	jsr UnlockAB
	jmp BusyEC12

T4	pha
	jsr UnlockAB
	plx
	jmp BusyErr12

NotEasy	clc	; clear carry for addition
	lda [RgnPtrA]	; get RgnA length
	adc [RgnPtrB]	; add RgnB length
	asl A	; double (Quickdraw	did ADD D4,D4)
	sta PtCount	; save it

* We've taken all the shortcuts we can.  Now we pass the buck to RgnOp to do
* the real work.  The source regions are still in RgnHandleA and RgnHandleB.
* PtCount contains the maximum size we should need.  Load X	with 0 since we
* have no horizontal offset to worry about (just for cleanliness).

	ldx #0	; unnecessary unless code changes
	jsl RgnOp	; do it
	bcs RgnOpError	; RgnOp propogates errors
	lda DstRgn,s
	sta RgnHandleA
	lda DstRgn+2,s
	sta RgnHandleA+2
	jsr DerefA
	jsl PackRgn	; call it

	PushLong BufHandle	; push handle
	_DisposeHandle	; dispose of point buffer handle
	bcs T5
	jsr UnlockAB
	jmp BusyEC12

T5	pha	; save error code
	jsr UnlockAB
	plx	; get error code back
	jmp BusyErr12

RgnOpError	pha	; save error code
	_SysBeep
	_SysBeep

	lda BufHandle
	ora BufHandle+2
	beq DontDispose
	ldx #BufHandle
	jsr UnlockHandle
	PushLong BufHandle
	_DisposeHandle
DontDispose	jsr UnlockAB
	plx	; get error code back
	jmp BusyErr12

UnlockAB	ldx #RgnHandleA
	jsr UnlockHandle
	ldx #RgnHandleB
	jsr UnlockHandle
	rts

	ENDP

;                copy rgndefs/insetrgn
****************************************************************
*
* Procedure InsetRgn
*
* Inputs: rgnHandle:RgnHandle
*         dH:Integer
*         dV:Integer
* Description:
*        Shrinks or	expands a specified	region. All points on the region
*        boundary are moved inward a distance of dH horizontally and
*        dV verticaly. If dh or dv are negative, the points	are moved
*        outward in	that direction. Inset Rgn leaves the region centered on
*        the same position but moves the outline. InsetRgn of a rect rgn works
*        the same as insetRect.
****************************************************************




	EXPORT InsetRgn
InsetRgn	PROC
*              using E0Vectors

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
Dvs	equ RTL2+3
Dhs	equ Dvs+2
Rgn	equ Dhs+2

	jsr QDStart

* Setup direct page	references to the region handle and pointer.

	lda Rgn,s
	sta RgnHandleA
	lda Rgn+2,s
	sta RgnHandleA+2
	ldx #RgnHandleA	; offset
	jsr DerefHandle
	sta RgnPtrA	; save pointer
	stx RgnPtrA+2

* Is this region rectangular?

	lda [RgnPtrA]
	cmp #10
	bne NotRect

* This region is rectangular so we add the offset to the right and bottom
* and subtract the offsets from the top	and left.

	lda Dhs,s
	sta Dh	; copy the parameters
	lda Dvs,s
	sta Dv

	ldy #2	; I could call _InsetRect, but
	lda [RgnPtrA],y	; that takes almost	as much code
	clc	; to set up as just	doing it, and
	adc Dv	; it will certainly	be slower.
	sta [RgnPtrA],y

	ldy #4
	lda [RgnPtrA],y
	clc
	adc Dh
	sta [RgnPtrA],y

	ldy #6
	lda [RgnPtrA],y
	sec
	sbc Dv
	sta [RgnPtrA],y

	ldy #8
	lda [RgnPtrA],y
	sec
	sbc Dh
	sta [RgnPtrA],y
Done	ldx #RgnHandleA
	jsr UnlockHandle
	jmp BusyEC8

ErrorReturn	pha	; save error
	ldx #RgnHandleA
	jsr UnlockHandle
	plx	; restore error
	jmp BusyErr8

* RgnOp will do most of the work for us.  To call it, put the source in both
* RgnHandleA and RgnHandleB.  It allocates BufHandle.  Pass	the horizontal
* offset in register X, and pass the operation (HInset=8) in Op.  Pass the
* expected size of BufHandle in PtCount.

NotRect	lda Dhs,s
	tax
	jsr HInset
	lda Dvs,s
	tax
	jsr HInset
	bra Done	; above

* End of the core of Inset



HInset	MoveLong RgnHandleA,RgnHandleB ; in case PackRgn moved RgnA
	MoveLong RgnPtrA,RgnPtrB
	lda [RgnPtrA]	; get current size
	asl A	; double it
	sta PtCount	; save suggested length
	lda #8
	sta Op
	jsl RgnOp	; creates BufHandle/BufPtr
	bcs RgnOpError

* *BufPtr struct is
*         length: word
*         Index: word
*         pointlist: sorted array of inversion points.
*
	ldy #2
	lda [BufPtr],y	; get index
	sta PtCount	; temp variable

	cmp #5	; did it drop to zero points?
	bpl GotPoints	; no, so continue processing it

* We don't have any points left so
* Dispose of the buffer and set the region to empty
* !!!!!!! Shouldn't this leave a minimum size rectangle !!!!!!!!!

	ldx #BufHandle
	jsr UnlockHandle
	PushLong BufHandle
	_DisposeHandle	; yes, so clean up
	bcs ZeroError	; handle error
	PushLong RgnHandleA	; zero out the region
	_SetEmptyRgn
	bcs ZeroError
	plx	; pull Hinset return
	brl Done

ZeroError	tax
	ply	; discard local return
	jmp BusyErr8

* We still have a region larger than empty

* Swap the h and v positions in the buffer.
* "I don't know why!"
* Keep going until y = PtCount. Remember PtCount really contains [BufPtr],2
*  the "index".

GotPoints	ldy #4	; initialize our index
SwapLp	lda [BufPtr],y	; get V
	pha	; save the v
	IncYWd	; index to H
	lda [BufPtr],y	; get H
	tax	; put H into x
	pla	; put V into a
	sta [BufPtr],y	; save V where H used to be
	txa	; get H back into a
	DecYWd	; point back to where V used to be
	sta [BufPtr],y	; save H
	IncYPtr
	cpy PtCount	; are we done yet?
	bne SwapLp

* y = PtCount. What	we want to do here is PtCount = (PtCount/4) - 1
* remember that PtCount = index.

ReSort	tya	; get index
	lsr A	; divide by 4
	lsr A
	dea	; decrement it
	sta PtCount	; save it

* SortPoints takes the sorted array of points and does a quick sort on them
* ??????????
	jsl SortPoints
	jsl PackRgn	; result is in RgnHandleA
	bcs PackError
	PushLong BufHandle
	_DisposeHandle	; get rid of it
	bcs DisposError
	rts	; return to local caller
* All done

* Handle Errors


RgnOpError	pha	; save error code
	ldx #RgnHandleA	; unlock handle
	jsr UnlockHandle
	lda BufHandle	; was it ever allocated?
	ora BufHandle+2
	beq DontDispose
	PushLong BufHandle	; deallocate bufhandle
	_DisposeHandle
DontDispose	plx	; retreive error code
	ply	; pull local return
	jmp BusyErr8

PackError	pha	; save error code
	ldx #RgnHandleA	; unlock handle
	jsr UnlockHandle
	PushLong BufHandle
	_DisposeHandle
	plx	; retrieve error code
	ply	; discard local return
	jmp BusyErr8

DisposError	tax
	ply	; discard local return
	jmp BusyErr8

	ENDP

****************************************************************
*
* Procedure OffsetRgn
*
****************************************************************
	EXPORT OffsetRgn
OffsetRgn	PROC

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
Dvs	equ RTL2+3
Dhs	equ Dvs+2
Rgn	equ Dhs+2

	jsr QDStart

	lda Rgn,s
	sta RgnHandleA
	lda Rgn+2,s
	sta RgnHandleA+2
	lda Dhs,s
	sta Dh
	lda Dvs,s
	sta Dv
	ldx #RgnHandleA	; offset
	jsr DerefHandle
	sta RgnPtrA	; save pointer
	stx RgnPtrA+2

* Offset the bounding box

	ldy #2	; offset the top
	lda [RgnPtrA],y
	clc
	adc Dv
	sta [RgnPtrA],y

	ldy #4	; offset the left
	lda [RgnPtrA],y
	clc
	adc Dh
	sta [RgnPtrA],y

	ldy #6	; offset the bottom
	lda [RgnPtrA],y
	clc
	adc Dv
	sta [RgnPtrA],y

	ldy #8	; offset the right
	lda [RgnPtrA],y
	clc
	adc Dh
	sta [RgnPtrA],y

	lda #10	; if rectangular, we're done
	cmp [RgnPtrA]
	beq Done
	tay
	lda [RgnPtrA],y
NxtVert	clc	; offset the vertical
	adc Dv
	sta [RgnPtrA],y
	IncYWd
	lda [RgnPtrA],y
NxtHor	clc	; offset 1st of horizontal pair
	adc Dh
	sta [RgnPtrA],y
	IncYWd

	lda [RgnPtrA],y	; offset 2nd of horizontal pair
	clc
	adc Dh
	sta [RgnPtrA],y
	IncYWd

	lda [RgnPtrA],y	; check for end of scan line
	cmp #MaxInt
	bne NxtHor
	IncYWd
	lda [RgnPtrA],y
	cmp #MaxInt	; check for end of region
	bne NxtVert

Done	ldx #RgnHandleA
	jsr UnlockHandle
	jmp BusyEC8

	ENDP
;                copy rgndefs/maprgn
****************************************************************
*
* MapRgn
*
* Change History
* 7/23/87      GCP	   MapRgn and PutRgn don't agree where the
*	   the input to putrgn should be so it is
*	   put in both locations.
*
****************************************************************
	EXPORT MapRgn
MapRgn	PROC
*              using E0Vectors

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
ToRectPtr	equ RTL2+3
FromRectPtr	equ ToRectPtr+4
Rgn	equ FromRectPtr+4

	jsr QDStart

	jsr RetrieveRects

;----------------------------------------------------------
;
; Are the rects different?  If not, we done.
;

	ldx #6	; 3
RectLoop	lda FRect,x	; 2
	cmp TRect,x	; 2
	bne NotSame	; 2
	dex	; 1
	dex	; 1
	bpl RectLoop	; 2
	bra JDone	; 2
;		; 15

NotSame	jsl SetScaleAndMap	; set up the mapping values
	lda Rgn,s
	sta RgnHandleA
	sta RgnHandleC
	lda Rgn+2,s
	sta RgnHandleA+2
	sta RgnHandleC+2

	jsr DerefA

	lda [RgnPtrA]	; get current region size
	cmp #10
	bne NotRect

;----------------------------------------------------------
;
; Its a rectangular	region so we'll just map the bounding
; box.
;
	lda RgnPtrA	; LocalMapPoint uses RgnPtrB
	sta RgnPtrB
	lda RgnPtrA+2
	sta RgnPtrB+2

	ldy #2
	jsr LocalMapPoint
	ldy #6
	jsr LocalMapPoint

JDone		; 
	jsr UnlockA

	jmp BusyEC12

NotRect	asl A	; double it, as a guess for the size
	clc
	adc #4	; for the info stuff
	ldx #BufHandle	; offset
	jsr GetNewHandle	; get one
	bcc T1
	pha	; save error code
	ldx #RgnHandleA
	jsr UnlockHandle
	plx	; retrieve error code
	jmp BusyErr12

* RgnPtrA already holds the region to be mapped, and now RgnPtrC points
* to a new buffer, ready to be filled.	PutRgn uses these and expands the
* region into a list of inversion points.  It updates PtCount for us.

T1	sta BufPtr	; save pointer
	stx BufPtr+2
	ldy #2
	lda #4
	sta [BufPtr],y	; initialize buffer
	jsl PutRgn
	bcc T2
	pha	; save error code
	ldx #BufHandle
	jsr UnlockHandle	; unlock it
	Pushlong BufHandle
	_DisposeHandle
	ldx #RgnHandleA
	jsr UnlockHandle
	plx	; retrieve error code
	jmp BusyErr12

T2	ldy #2
	lda [BufPtr],y	; get index
	sta LastPt
	ldy #4	; our current index
	sty Counter	; this will be our loop control, too
MapLoop	ldy Counter	; get counter
	cpy LastPt	; are we done yet
	bpl DoneLoop
	sty LastY
	lda [BufPtr],y	; get point V
	sta MapV	; save on zero page
	IncYWd
	lda [BufPtr],y	; get point H
	sta MapH	; save on zero page
	IncYWd
	sty Counter	; save y
	jsr MapAndScale	; map it
	ldy LastY	; get last value back
	lda MapV
	sta [BufPtr],y	; save V result
	IncYWd
	lda MapH
	sta [BufPtr],y	; save H result
	bra MapLoop

* When we've finished mapping everything, we have a buffer of inversion
* points in BufHandle, and it looks a lot like a CloseRgn call.  We sort
* and cull and pack	to put the region back in shape.  PtCount is already
* set,

DoneLoop	lda LastPt	; current index
	lsr A	; divide by 4
	lsr A
	dea	; subtract status info
	sta PtCount	; save it for our friends
	jsl SortPoints
	jsl CullPoints
	jsl PackRgn

	ldx #RgnHandleA
	jsr UnlockHandle
	PushLong BufHandle
	_DisposeHandle
	bcs Errout

Done	jmp BusyEC12

PackError	pha	; save error code
	ldx #RgnHandleA
	jsr UnlockHandle
	PushLong BufHandle
	_DisposeHandle
	plx
	jmp BusyErr12

ErrOut	tax
	jmp BusyErr12

	ENDP

****************************************************************
*
* RetrieveRects
*
****************************************************************
	EXPORT RetrieveRects
RetrieveRects	PROC

* This local routine locates a FromRect	and ToRect in the stack
* and pulls the pointers out onto zero page.

ReturnAddress	equ 1
OrigDirect	equ ReturnAddress+2
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
ToRectPtr	equ RTL2+3
FromRectPtr	equ ToRectPtr+4

	lda FromRectPtr,s
	sta Temp
	lda FromRectPtr+2,s
	sta Temp+2

	lda [Temp]
	sta FRect
	ldy #2
	lda [Temp],y
	sta FRect+2
	ldy #4
	lda [Temp],y
	sta FRect+4
	ldy #6
	lda [Temp],y
	sta FRect+6

	lda ToRectPtr,s
	sta Temp
	lda ToRectPtr+2,s
	sta Temp+2

	lda [Temp]
	sta TRect
	ldy #2
	lda [Temp],y
	sta TRect+2
	ldy #4
	lda [Temp],y
	sta TRect+4
	ldy #6
	lda [Temp],y
	sta TRect+6

	rts

	ENDP

****************************************************************
*
*              SetScaleAndMap
*
****************************************************************
	EXPORT iSetScaleAndMap
iSetScaleAndMap	PROC

* This local routine uses FRect (FromRect) and TRect (ToRect) on
* zero page to set up the parameters for MapPt (so we don't have
* to do them more than once for MapRgn,	MapRect, and MapPoly.

Top	equ 0
Left	equ 2
Bottom	equ 4
Right	equ 6

	sec
	lda FRect+Bottom
	sbc FRect+Top
	sta FHeight
	lsr A	; calculate rounding term
	sta HeightRound

	sec
	lda FRect+Right
	sbc FRect+Left
	sta FWidth
	lsr A	; calculate rounding term
	sta WidthRound

	sec
	lda TRect+Bottom
	sbc TRect+Top
	sta THeight
	sec
	sbc FHeight
	sta DifHeight

	sec
	lda TRect+Right
	sbc TRect+Left
	sta TWidth
	sec
	sbc FWidth
	sta DifWidth

	rtl

	ENDP

****************************************************************
*
* MapAndScale
*
****************************************************************
	EXPORT MapAndScale
MapAndScale	PROC

Top	equ 0
Left	equ 2
Bottom	equ 4
Right	equ 6

	stz Sign
	sec
	lda MapV
	sbc Frect+Top
	ldx DifHeight
	beq NoVScale
	tax	; just to reset flags
	bpl NonNeg
	eor #$FFFF	; negate it
	ina
	inc Sign
NonNeg	pea 0	; space for divide result
	pea 0
	pea 0
	pea 0
	pea 0	; space for multiply result
	pea 0
	pha
	PushWord THeight
	_Multiply
	clc
	lda HeightRound
	adc 1,s
	sta 1,s
	lda #0
	adc 3,s
	sta 3,s
	pea 0	; pushlong FHeight
	PushWord FHeight
	_LongDivide	; whew!
	pla	; this is the answer
	plx	; if this is <> 0, we're dead anyway
	plx
	plx
	ldx Sign
	beq NoVScale
	eor #$FFFF
	ina
	stz Sign
NoVScale	clc
	adc TRect+Top
	sta MapV

	sec
	lda MapH
	sbc FRect+Left
	ldx DifWidth
	beq NoHScale
	tax	; just to reset flags
	bpl NonNeg2
	eor #$FFFF	; negate it
	ina
	inc Sign
NonNeg2	pea 0	; space for divide result
	pea 0
	pea 0
	pea 0
	pea 0	; space for multiply result
	pea 0
	pha
	PushWord TWidth
	_Multiply	; 32 bit result top	of stack (TOS)

	clc
	lda WidthRound
	adc 1,s
	sta 1,s
	lda #0
	adc 3,s
	sta 3,s	; we added the rounding to TOS

	pea 0	; pushlong FWidth
	PushWord FWidth
	_LongDivide	; whew!
	pla	; this is the answer
	plx	; if this is <> 0, we're dead anyway
	plx	; discard remainder
	plx
	ldx Sign
	beq NoHScale
	eor #$FFFF
	ina
NoHScale	clc
	adc TRect+Left
	sta MapH

	rts

	ENDP

****************************************************************
*
* LocalMapPoint
*
****************************************************************
	EXPORT LocalMapPoint
LocalMapPoint	PROC

* The point to be mapped should be in @RgnPtrB with Y pointing
* at any offset.

	lda [RgnPtrB],y
	sta MapV
	IncYWd
	lda [RgnPtrB],y
	sta MapH
	phy
	jsr MapAndScale
	ply
	lda MapH
	sta [RgnPtrB],y
	DecYWd
	lda MapV
	sta [RgnPtrB],y
	rts

	ENDP

****************************************************************
*
* MapRect
*
****************************************************************
	EXPORT MapRect
MapRect	PROC
*              using E0Vectors

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
ToRectPtr	equ RTL2+3
FromRectPtr	equ ToRectPtr+4
DstRect	equ FromRectPtr+4

	jsr QDStart

	jsr RetrieveRects
	jsl SetScaleAndMap	; set up the mapping values

	lda DstRect,s
	sta RgnPtrB
	lda DstRect+2,s
	sta RgnPtrB+2

	ldy #0
	jsr LocalMapPoint
	ldy #4
	jsr LocalMapPoint

	jmp BusyEC12

	ENDP

****************************************************************
*
* MapPt
*
****************************************************************
	EXPORT MapPt
MapPt	PROC
*              using E0Vectors

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
ToRectPtr	equ RTL2+3
FromRectPtr	equ ToRectPtr+4
Point	equ FromRectPtr+4

	jsr QDStart

	jsr RetrieveRects
	jsl SetScaleAndMap	; set up the mapping values

	lda Point,s
	sta RgnPtrB
	lda Point+2,s
	sta RgnPtrB+2
	ldy #0
	jsr LocalMapPoint
	jmp BusyEC12

	ENDP



	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/QD/shifts.asm b/IIGS.601.SRC/GSToolbox/QD/shifts.asm
new file mode 100644
index 0000000..cdb705a
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/QD/shifts.asm
@@ -0,0 +1 @@
+	title 'QD Shifts            GS ROM 2.0'
****************************************************************
*			   *
*              SHIFTS		   *
*			   *
****************************************************************


****************************************************************
*			   *
*	Copyright (C) 1985-1987	   *
*	All Rights Reserved		   *
*	Apple Computer, Inc.	   *
*			   *
****************************************************************
	blanks off
	string asis
	
	include 'all.macros'
	include ':QDEquates:qd.data.asm'


	INCLUDE ':QDEquates:core.globals1'
	INCLUDE ':QDEquates:core.globals2'

;                COPY SHIFTS/SHIFTS

****************************************************************
*
* ShiftStay
*
* This is called with the word to be shifted in the a-reg.
*
* The second entry point is for callers	that don't want to
* use HowFarToShift	on ZP.
*
****************************************************************
	EXPORT ShiftStay
ShiftStay	PROC

	ldx HowFarToShift

	EXPORT xShiftStay
xShiftStay		;       

	jmp (Table,x)

Table	DC.W Shift0
	DC.W Shift1
	DC.W Shift2
	DC.W Shift3
	DC.W Shift4
	DC.W Shift5
	DC.W Shift6
	DC.W Shift7
	DC.W Shift8
	DC.W Shift9
	DC.W Shift10
	DC.W Shift11
	DC.W Shift12
	DC.W Shift13
	DC.W Shift14
	DC.W Shift15



Shift15		; 
	rol a
	and #%0000000100000000
	rtl

Shift14		; 
	rol a
	rol a
	and #%0000001100000000
	rtl

Shift13		; 
	rol a
	rol a
	rol a
	and #%0000011100000000
	rtl

Shift12		; 
	rol a
	rol a
	rol a
	rol a
	and #%0000111100000000
	rtl

Shift11	xba
	lsr a
	lsr a
	lsr a
	and #%0001111100000000
	rtl

Shift10	xba
	lsr a
	lsr a
	and #%0011111100000000
	rtl

Shift9	xba
	lsr a
	and #%0111111100000000
	rtl


Shift8	xba
	and #%1111111100000000
	rtl

; 123456789ooooooo initial bits
; 9ooooooo12345678 initial word
; 123456789ooooooo swap to get bits in right order for shifting
; ooooooo123456789 shift
; 23456789ooooooo1 swap to get final word
; ooooooo123456789 final bits
	GOTO .skip

Shift7	xba	; 3
	lsr a	; 2
	lsr a	; 2
	lsr a	; 2
	lsr a	; 2
	lsr a	; 2
	lsr a	; 2
	lsr a	; 2
	xba	; 3
	rtl
.skip

Shift7	clc	; 2
	adc #$8000	; 3 move high bit to carry
	rol a	; 2 rotate carry into low end
	and #%0000000111111111 ; 3
	xba	; 3
	rtl


Shift6	xba
	lsr a
	lsr a
	lsr a
	lsr a
	lsr a
	lsr a
	xba
	rtl

Shift5	xba
	lsr a
	lsr a
	lsr a
	lsr a
	lsr a
	xba
	rtl


Shift4	xba
	lsr a
	lsr a
	lsr a
	lsr a
	xba
	rtl


Shift3	xba
	lsr a
	lsr a
	lsr a
	xba
	rtl


Shift2	xba
	lsr a
	lsr a
	xba
	rtl


Shift1	xba
	lsr a
	xba
	rtl


Shift0	rtl

	ENDP



****************************************************************
*
* ShiftOut
*
* This is called with the word to be shifted in the a-reg.
* We read how far to shift and use the table to shift the
* right number of times.
*
* The second entry point is for routines that want to use these
* shifts and not use HowFarToShift on zero page.
*
****************************************************************
	EXPORT ShiftOut
ShiftOut	PROC

	ldx HowFarToShift

	EXPORT xShiftOut
xShiftOut		;       

	jmp (Table,x)

Table	DC.W Shift0
	DC.W Shift1
	DC.W Shift2
	DC.W Shift3
	DC.W Shift4
	DC.W Shift5
	DC.W Shift6
	DC.W Shift7
	DC.W Shift8
	DC.W Shift9
	DC.W Shift10
	DC.W Shift11
	DC.W Shift12
	DC.W Shift13
	DC.W Shift14
	DC.W Shift15


Shift0	lda #0
	rtl


;xxxxxxxxxxxxxxx1	  initial bits
;xxxxxxx1xxxxxxxx	  initial word
;oooooooo1ooooooo	  final word
;1xxxxxxxxxxxxxxx	  final bits
Shift1	ror a
	and #%0000000010000000
	rtl


;xxxxxxxxxxxxxx12	   initial bits
;xxxxxx12xxxxxxxx
;xxxxxxxx12xxxxxx
;12xxxxxxxxxxxxxx	   final bits
Shift2	ror a
	ror a
	and #%0000000011000000
	rtl

Shift3	ror a
	ror a
	ror a
	and #%0000000011100000
	rtl

Shift4	ror a
	ror a
	ror a
	ror a
	and #%0000000011110000
	rtl

; xxxxxxxxxxx12345
; xxx12345xxxxxxxx
; oooooooo12345ooo
; 12345xxxxxxxxxxx

Shift5	xba
	rol a
	rol a
	rol a
	and #%0000000011111000
	rtl

Shift6	xba
	rol a
	rol a
	and #%0000000011111100
	rtl

Shift7	xba
	rol a
	and #%0000000011111110
	rtl

Shift8	xba
	and #%0000000011111111
	rtl

; xxxxxxx123456789	  initial bits
; 23456789xxxxxxx1	  initial word
; 9ooooooo12345678	  final word
; 123456789xxxxxxx	  final bits
Shift9	xba	; 3
	ror a	; 2
	php	; 3
	asl a	; 2
	plp	; 4
	ror a	; 2
	and #%1000000011111111 ; 3
	rtl

Shift10	xba
	asl a
	asl a
	asl a
	asl a
	asl a
	asl a
	xba
	rtl

Shift11	xba
	asl a
	asl a
	asl a
	asl a
	asl a
	xba
	rtl

Shift12	xba
	asl a
	asl a
	asl a
	asl a
	xba
	rtl

Shift13	xba
	asl a
	asl a
	asl a
	xba
	rtl

Shift14	xba
	asl a
	asl a
	xba
	rtl

Shift15	xba
	asl a
	xba
	rtl

	ENDP



	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/QD/slabs.asm b/IIGS.601.SRC/GSToolbox/QD/slabs.asm
new file mode 100644
index 0000000..3560c20
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/QD/slabs.asm
@@ -0,0 +1 @@
+	title 'QD SLABS             GS ROM 3.0'
****************************************************************
*			   *
*                   SLABS		   *
*			   *
****************************************************************


****************************************************************
*			   *
*	Copyright (C) 1985-1988	   *
*	All Rights Reserved		   *
*	Apple Computer, Inc.	   *
*			   *
****************************************************************


**********************************************************************
*
* Change History
*
* 9 Sep 88	Steven Glass
*
* Rewrote slab routines to use both words of Pat no matter what the
* mode.
*
* Unwound the loop in FastSlabCopy and FastSlabXOR for case where
* Pat and Pat+2 are the same.
*
* 2/1/89	Mensch
*
* Modified a few of the fast slab routines so they use a faster addressing mode
*
*
* 2/13/89	Dave Good
*
* Changed the FastSlabCopy and FastSlabXOR routines to save a few bytes
* and cycles
*
* 4/22/89	Mensch
* 
* Added SwapPat macro to test the startword and swap pat and pat+2 if the
* startwprd starts on an odd word. This should fix 320 pattern fills and
* 640 mode pattern fills that use arcrot.
*
**********************************************************************


	blanks off
	string asis

	include 'all.macros'
	include ':QDEquates:qd.data.asm'


	INCLUDE ':QDEquates:CORE.GLOBALS1'
	INCLUDE ':QDEquates:core.globals2'
	INCLUDE ':QDEquates:region.equs'
	INCLUDE ':QDEquates:RECT.EQUS'
	INCLUDE ':QDEquates:SLAB.EQUS'

	macro
	SwapPat
; This macro will test to see if the patter needs to be swapped and it will do so if 
; it needs it. I only do it here as an 11th hour fix to a dastardly problem
	lda <StartWord	; get the starting word number
	and #$0002	; see if its an odd word or even word
	beq @NoSwapNeeded	; if zero, don't swap
	ldx <pat
	lda <pat+2
	sta <pat
	stx <Pat+2
	ldx <DrawMask
	lda <DrawMask+2
	sta <DrawMask
	stx <DrawMask+2
@NoSwapNeeded		; now continue
	ENDM	

****************************************************************
*
* All the slab routines use the same data on zero page.
*
* Before any slab routine is called, the data bank register
* is set to the bank containing the pixel map.
*
* The following are	set up on zero page	before this routine
* is called:
*
* Inputs:
*
*    LeftMask      The Pixels not being	touched on the left	are
*                  set to zero in this word mask.
*
*    RightMask     The Pixels not being	touched on the right are
*                  set to zero in this word mask
*
*    StartWord     The First word on the scan line to deal with
*
*    FinishWord    The last word on the	scan line to deal with
*
*    ScanMaskRef   Points to the global	scan line clip buffer
*
*    DestRef       Points to the start of the current scan line
*                  (or scan line equiv since can draw into mem).
*
*    PatMask       A mask to use with current index into scan line
*                  to produce an index into Pat.  In 320 mode,
*                  PatMask AND Index will yield 0 or 2.  In	640 mode
*                  it will always yield	0 since pattern fits in
*                  one word
*
*    Pat           Two words to hold the current part of the
*                  pattern being used for this scan line.
*
*    DrawMask      Two words to hold the current slice of the
*                  of the drawing mask.
*
*
****************************************************************


	title 'SlabCopy'
****************************************************************
*
SlabCopy	PROC EXPORT
*
* This is the routine that is called to copy patterns to
* the destination when the regions are non-rectangular or the
* penmask is not all $FFFF's.
*
*
* Inputs:
*
*    LeftMask      The Pixels not being	touched on the left	are
*                  set to zero in this word mask.
*
*    RightMask     The Pixels not being	touched on the right are
*                  set to zero in this word mask
*
*    StartWord     The First word on the scan line to deal with
*
*    FinishWord    The last word on the	scan line to deal with
*
*    ScanMaskRef   Points to the global	scan line clip buffer
*
*    DestRef       Points to the start of the current scan line
*                  (or scan line equiv since can draw into mem).
*
*    PatMask       A mask to use with current index into scan line
*                  to produce an index into Pat.  In 320 mode,
*                  PatMask AND Index will yield 0 or 2.  In	640 mode
*                  it will always yield	0 since pattern fits in
*                  one word
*
*    Pat           Two words to hold the current part of the
*                  pattern being used for this scan line.
*
*    DrawMask      Two words to hold the current slice of the
*                  of the drawing mask.
*
*
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* Change History
*
* 08 Sep 88	Steven Glass
*
* Unwound the loop some and took advantage of the expanded
* pattern.
*
* No counters are kept on direct page.
*
****************************************************************

	SwapPat

	lda FinishWord	; put count in x-register
	sec
	sbc StartWord
	lsr a	; make this num words to xfer - 1
	tax
	
	ldy StartWord	; get the start word in y
	lda Pat	; source pattern in a-reg
	eor (DestRef),y	; invert with dest
	and LeftMask
	cpx #0	; check for special case where only 1 word
	bne @MoreThanOne
	and RightMask
@MoreThanOne	and [ScanMaskRef],y ; do masking
	and DrawMask
	eor (DestRef),y	; invert again
	sta (DestRef),y	; and store

	cpx #0
	beq AllDone

	iny	; bump y and but don't touch x yet
	iny
	cpx #1	; if x is 1 there is one word to go
	beq DoLastWord2

	dex

InnerLoop
	lda Pat+2	; source pattern in a-reg
	eor (DestRef),y	; invert with dest
	and [ScanMaskRef],y ; do masking
	and DrawMask+2
	eor (DestRef),y	; invert again
	sta (DestRef),y	; and store

	iny	; bump y
	iny

	dex	; dec x
	beq DoLastWord1	; if x is zero there is one word to go

	lda Pat
	eor (DestRef),y
	and [ScanMaskRef],y
	and DrawMask
	eor (DestRef),y
	sta (DestRef),y

	iny
	iny
	dex
	bne InnerLoop	; if x is zero there is one word to go


DoLastWord2
	lda Pat+2	; source pattern in a-reg
	eor (DestRef),y	; invert with dest
	and RightMask
	and [ScanMaskRef],y ; do masking
	and DrawMask+2
	eor (DestRef),y	; invert again
	sta (DestRef),y	; and store

AllDone	
	SwapPat
	rtl

DoLastWord1
	lda Pat	; source pattern in a-reg
	eor (DestRef),y	; invert with dest
	and RightMask
	and [ScanMaskRef],y ; do masking
	and DrawMask
	eor (DestRef),y	; invert again
	sta (DestRef),y	; and store
	SwapPat
	rtl




	ENDP


	title 'SlabOR'
****************************************************************
*
SlabOR	PROC EXPORT
*
* This is the routine that is called to OR patterns to
* the destination when the regions are non-rectangular or the
* penmask is not all $FFFF's.
*
*
* Inputs:
*
*    LeftMask      The Pixels not being	touched on the left	are
*                  set to zero in this word mask.
*
*    RightMask     The Pixels not being	touched on the right are
*                  set to zero in this word mask
*
*    StartWord     The First word on the scan line to deal with
*
*    FinishWord    The last word on the	scan line to deal with
*
*    ScanMaskRef   Points to the global	scan line clip buffer
*
*    DestRef       Points to the start of the current scan line
*                  (or scan line equiv since can draw into mem).
*
*    PatMask       A mask to use with current index into scan line
*                  to produce an index into Pat.  In 320 mode,
*                  PatMask AND Index will yield 0 or 2.  In	640 mode
*                  it will always yield	0 since pattern fits in
*                  one word
*
*    Pat           Two words to hold the current part of the
*                  pattern being used for this scan line.
*
*    DrawMask      Two words to hold the current slice of the
*                  of the drawing mask.
*
*
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* Change History
*
* 08 Sep 88	Steven Glass
*
* Unwound the loop some and took advantage of the expanded
* pattern.
*
* No counters are kept on direct page.
*
****************************************************************

	swapPat

	lda FinishWord	; put count in x-register
	sec
	sbc StartWord
	lsr a	; make this num words to xfer - 1
	tax
	
	ldy StartWord	; get the start word in y
	lda Pat	; source pattern in a-reg
	and LeftMask
	cpx #0	; check for special case where only 1 word
	bne @MoreThanOne
	and RightMask
@MoreThanOne	and [ScanMaskRef],y ; do masking
	and DrawMask
	ORA (DestRef),y	; OR
	sta (DestRef),y	; and store

	cpx #0
	beq AllDone

	iny	; bump y and but don't touch x yet
	iny
	cpx #1	; if x is 1 there is one word to go
	beq DoLastWord2

	dex

InnerLoop
	lda Pat+2	; source pattern in a-reg
	and [ScanMaskRef],y ; do masking
	and DrawMask+2
	ORA (DestRef),y	; OR
	sta (DestRef),y	; and store

	iny	; bump y
	iny

	dex	; dec x
	beq DoLastWord1	; if x is zero there is one word to go

	lda Pat
	and [ScanMaskRef],y
	and DrawMask
	ORA (DestRef),y
	sta (DestRef),y

	iny
	iny
	dex
	bne InnerLoop	; if x is zero there is one word to go


DoLastWord2
	lda Pat+2	; source pattern in a-reg
	and RightMask
	and [ScanMaskRef],y ; do masking
	and DrawMask+2
	ORA (DestRef),y	; invert again
	sta (DestRef),y	; and store

AllDone	
	SwapPat
	rtl

DoLastWord1
	lda Pat	; source pattern in a-reg
	and RightMask
	and [ScanMaskRef],y ; do masking
	and DrawMask
	ORA (DestRef),y	; invert again
	sta (DestRef),y	; and store
	SwapPat
	rtl




	ENDP

	title 'SlabXOR'
****************************************************************
*
SlabXOR	PROC EXPORT
*
* This is the routine that is called to XOR patterns to
* the destination when the regions are non-rectangular or the
* penmask is not all $FFFF's.
*
*
* Inputs:
*
*    LeftMask      The Pixels not being	touched on the left	are
*                  set to zero in this word mask.
*
*    RightMask     The Pixels not being	touched on the right are
*                  set to zero in this word mask
*
*    StartWord     The First word on the scan line to deal with
*
*    FinishWord    The last word on the	scan line to deal with
*
*    ScanMaskRef   Points to the global	scan line clip buffer
*
*    DestRef       Points to the start of the current scan line
*                  (or scan line equiv since can draw into mem).
*
*    PatMask       A mask to use with current index into scan line
*                  to produce an index into Pat.  In 320 mode,
*                  PatMask AND Index will yield 0 or 2.  In	640 mode
*                  it will always yield	0 since pattern fits in
*                  one word
*
*    Pat           Two words to hold the current part of the
*                  pattern being used for this scan line.
*
*    DrawMask      Two words to hold the current slice of the
*                  of the drawing mask.
*
*
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* Change History
*
* 08 Sep 88	Steven Glass
*
* Unwound the loop some and took advantage of the expanded
* pattern.
*
* No counters are kept on direct page.
*
****************************************************************

	swapPat

	lda FinishWord	; put count in x-register
	sec
	sbc StartWord
	lsr a	; make this num words to xfer - 1
	tax
	
	ldy StartWord	; get the start word in y
	lda Pat	; source pattern in a-reg
	and LeftMask
	cpx #0	; check for special case where only 1 word
	bne @MoreThanOne
	and RightMask
@MoreThanOne	and [ScanMaskRef],y ; do masking
	and DrawMask
	eor (DestRef),y	; XOR
	sta (DestRef),y	; and store

	cpx #0
	beq AllDone

	iny	; bump y and but don't touch x yet
	iny
	cpx #1	; if x is 1 there is one word to go
	beq DoLastWord2

	dex

InnerLoop
	lda Pat+2	; source pattern in a-reg
	and [ScanMaskRef],y ; do masking
	and DrawMask+2
	eor (DestRef),y	; EOR
	sta (DestRef),y	; and store

	iny	; bump y
	iny

	dex	; dec x
	beq DoLastWord1	; if x is zero there is one word to go

	lda Pat
	and [ScanMaskRef],y
	and DrawMask
	eor (DestRef),y
	sta (DestRef),y

	iny
	iny
	dex
	bne InnerLoop	; if x is zero there is one word to go


DoLastWord2
	lda Pat+2	; source pattern in a-reg
	and RightMask
	and [ScanMaskRef],y ; do masking
	and DrawMask+2
	eor (DestRef),y	; XOR
	sta (DestRef),y	; and store

AllDone	SwapPat
	rtl


DoLastWord1
	lda Pat	; source pattern in a-reg
	and RightMask
	and [ScanMaskRef],y ; do masking
	and DrawMask
	eor (DestRef),y	; XOR
	sta (DestRef),y	; and store

	SwapPat
	rtl





	ENDP



	title 'SlabBIC'
****************************************************************
*
SlabBIC	PROC EXPORT
*
* This is the routine that is called to BIC patterns to
* the destination when the regions are non-rectangular or the
* penmask is not all $FFFF's.
*
*
* Inputs:
*
*    LeftMask      The Pixels not being	touched on the left	are
*                  set to zero in this word mask.
*
*    RightMask     The Pixels not being	touched on the right are
*                  set to zero in this word mask
*
*    StartWord     The First word on the scan line to deal with
*
*    FinishWord    The last word on the	scan line to deal with
*
*    ScanMaskRef   Points to the global	scan line clip buffer
*
*    DestRef       Points to the start of the current scan line
*                  (or scan line equiv since can draw into mem).
*
*    PatMask       A mask to use with current index into scan line
*                  to produce an index into Pat.  In 320 mode,
*                  PatMask AND Index will yield 0 or 2.  In	640 mode
*                  it will always yield	0 since pattern fits in
*                  one word
*
*    Pat           Two words to hold the current part of the
*                  pattern being used for this scan line.
*
*    DrawMask      Two words to hold the current slice of the
*                  of the drawing mask.
*
*
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* Change History
*
* 08 Sep 88	Steven Glass
*
* Unwound the loop some and took advantage of the expanded
* pattern.
*
* No counters are kept on direct page.
*
****************************************************************

	swapPat

	lda FinishWord	; put count in x-register
	sec
	sbc StartWord
	lsr a	; make this num words to xfer - 1
	tax
	
	ldy StartWord	; get the start word in y
	lda Pat	; source pattern in a-reg
	and LeftMask
	cpx #0	; check for special case where only 1 word
	bne @MoreThanOne
	and RightMask
@MoreThanOne	and [ScanMaskRef],y ; do masking
	and DrawMask
	eor #$FFFF	; invert
	and (DestRef),y	; AND
	sta (DestRef),y	; and store

	cpx #0
	beq AllDone

	iny	; bump y and but don't touch x yet
	iny
	cpx #1	; if x is 1 there is one word to go
	beq DoLastWord2

	dex

InnerLoop
	lda Pat+2	; source pattern in a-reg
	and [ScanMaskRef],y ; do masking
	and DrawMask+2
	eor #$FFFF	; invert
	and (DestRef),y	; AND
	sta (DestRef),y	; and store

	iny	; bump y
	iny

	dex	; dec x
	beq DoLastWord1	; if x is zero there is one word to go

	lda Pat
	and [ScanMaskRef],y
	and DrawMask
	eor #$FFFF	; invert
	and (DestRef),y
	sta (DestRef),y

	iny
	iny
	dex
	bne InnerLoop	; if x is zero there is one word to go


DoLastWord2
	lda Pat+2	; source pattern in a-reg
	and RightMask
	and [ScanMaskRef],y ; do masking
	and DrawMask+2
	eor #$FFFF	; invert
	and (DestRef),y	; AND
	sta (DestRef),y	; and store

AllDone	SwapPat
	rtl


DoLastWord1
	lda Pat	; source pattern in a-reg
	and RightMask
	and [ScanMaskRef],y ; do masking
	and DrawMask
	eor #$FFFF	; invert
	and (DestRef),y	; XOR
	sta (DestRef),y	; and store

	SwapPat
	rtl





	ENDP





	title 'FastSlabs'
****************************************************************
*
* FastSlabs
*
* Summary.
*
* The fast slab routines are called when the object being drawn
* is not clipped to	a non-rectangular region and the Drawing mask
* is all FFFF's.  This makes drawing faster since I don't have
* to access the scan line mask buffer and do all the other work
* associated with masking.
*
* All the slab routines use the same data on zero page.
*
* Before any slab routine is called, the data bank register
* is set to the bank containing the pixel image.
*
* The following are	set up on zero page	before this routine
* is called:
*
* Inputs:
*
*    LeftMask      The Pixels not being	touched on the left	are
*                  set to zero in this word mask.
*
*    RightMask     The Pixels not being	touched on the right are
*                  set to zero in this word mask
*
*    StartWord     The First word on the scan line to deal with
*
*    FinishWord    The last word on the	scan line to deal with
*
*    DestRef       Points to the start of the current scan line
*                  (or scan line equiv since can draw into mem).
*
*    Pat           Two words to hold the current part of the
*                  pattern being used for this scan line.
*
*
*
* Variables
*
*    Temp	this is destroyed by the FastCopy and FastXOR
*	routines. All the other routines don't change
*	any direct page values
*
*
****************************************************************




	title 'FastSlabXOR'
****************************************************************
*
FastSlabXOR	PROC EXPORT
*
* This is the code that is run when QuickDraw discovers
* that the object being drawn is not being clipped to a
* irregular region and the pen mask is all $FFFF.
*
*
* Inputs:
*
*    LeftMask      The Pixels not being	touched on the left	are
*                  set to zero in this word mask.
*
*    RightMask     The Pixels not being	touched on the right are
*                  set to zero in this word mask
*
*    StartWord     The First word on the scan line to deal with
*
*    FinishWord    The last word on the	scan line to deal with
*
*    DestRef       Points to the start of the current scan line
*                  (or scan line equiv since can draw into mem).
*
*    Pat           Two words to hold the current part of the
*                  pattern being used for this scan line.
*
*
*
* Variables:
*
*    Temp	this is destroyed.
*
*
*
* Outputs:
*
*    none
*
* External Refs:
*
	IMPORT  IncrementDataBank
*
* Entry Points:
*
*    none
*
	longa on	; mode
	longi on
*
*
* Change History
*
* 09 Sep 88	Steven Glass
*
* Adjusted code to use both words of Pat for all modes.
*
* Wrote new special case code to be used when Pat and Pat+2
* are the same.
*
* No longer writes to direct page.
*
*
* 18 Jan 89	Dave Good
*
* Rewrote to remove iny's from the special case loop. Many other
* changes to remove bytes and cycles. This code now writes to
* direct page again
*
* 3/9/89	Mensch
* Added an Alt entry point for fast rect slabs
*
****************************************************************
;---------------------------------------------------------------
MaxWordsInRow	equ  80
MaxBytesInRow	equ  MaxWordsInRow*2
;---------------------------------------------------------------
	Export FastSlabXORAlt
	Export EndXORRazor

	MACRO
	EORMultiple
	LCLA  &counter
&counter	SETA MaxBytesInRow
	WHILE  &counter > 0  DO
	txa
	eor  |&counter,y
	sta  |&counter,y
&counter	SETA &counter-2
	ENDWHILE
	MEND
;---------------------------------------------------------------


;---------------------------------------------------------------
	SwapPat

	lda  FinishWord		;get the number of bytes to XOR into the
	sec		;..A-Reg
	sbc  StartWord
	beq  doSingleWord		;if only one word, do a special case
	lsr  a
	dec  a		;if only two words, then do another
	beq  doLastTwo		;..special case
	tax		;otherwise the count goes in X-Reg

	lda  Pat		;if the patterns are equal go very fast
	cmp  Pat+2
	beq  GoReallyFast
FastSlabXORAlt
	ldy  StartWord		;get the start word in y
	lda  Pat		;first source pattern in A-Reg
	and  LeftMask
	eor  (DestRef),y		;invert & store it
	sta  (DestRef),y
	iny		;increment our index
	iny
;---------------------------------------------------------------
@loop	lda  Pat+2		;second source pattern in A-Reg
	eor  (DestRef),y		;invert & store it
	sta  (DestRef),y
	iny		;increment our index
	iny
	dex		;decrement our counter
	beq  doLastWord1		;if we're done, then do the last

	lda  Pat		;back to first source pattern
	eor  (DestRef),y
	sta  (DestRef),y
	iny
	iny
	dex
	bne  @loop
;---------------------------------------------------------------
doLastWord2	lda  Pat+2		;second source pattern in A-Reg

doLastWord	and  RightMask
	eor  (DestRef),y		;invert & store it
	sta  (DestRef),y
	SwapPat
	rtl


doLastWord1	lda  Pat		;first source pattern in A-Reg
	bra  doLastWord

doSingleWord	ldy  StartWord		;do only one word
	lda  Pat
	and  LeftMask
	bra  doLastWord		;save bytes here by reusing code

doLastTwo	ldy  StartWord		;invert the first word with the first
	lda  Pat		;..pattern
	and  LeftMask
	eor  (DestRef),y
	sta  (DestRef),y
	iny		;move to the second and last word
	iny
	bra  doLastWord2		;..go invert it with the second pattern
;---------------------------------------------------------------




;---------------------------------------------------------------
GoReallyFast	phb		;save the bank register (we will change it)

	lda  StartWord		;make Y-Reg a pointer to the first word
	clc		;..to invert
	adc  DestRef
	tay
	bcc  @1		;if Y-Reg overflows, then we must bump the
	jsr  IncrementDataBank	;..bank register
@1
	lda  Pat		;invert our first word using the only
	and  LeftMask		;..pattern and leftMask
	eor  |0,y
	sta  |0,y
	txa		;put our count in X-Reg and our single
	ldx  Pat		;..pattern in X-Reg
;---------------------------------------------------------------
rowLoop	cmp  #MaxWordsInRow		;compare the count with our maximum row size
	blt  doLastRow		;..size. If less, then do last row
	sbc  #MaxWordsInRow		;adjust our count (carry is always SET)
	pha		;save the count on the stack
	jsr  DoEntireRow		;XOR the row
	tya		;move our pointer (Y-Reg) past the bytes
	clc		;..we just inverted.
	adc  #MaxBytesInRow
	tay
	bcc  @noBump		;check for overflow
	jsr  IncrementDataBank	;if overflow, then bump the bank
@noBump	pla		;get back the count and loop
	bra  rowLoop
;---------------------------------------------------------------
doLastRow	sta  Temp		;save the count in direct page
	asl  a		;multiply the count by seven (the number
	asl  a		;..of bytes of code it takes to XOR one
	asl  a		;..word.)
	sbc  Temp		;NOTE: the carry is always CLR here so
	eor  #$FFFF		;..these three lines get us:
	adc  #EndXORRazor-2		;..{ EndXORRazor - (count * 7) - 1 }
	pea  returnAddr-1		;this is where we want to return to
	pha
	rts		;jump to our block XOR
;---------------------------------------------------------------
returnAddr	plb		;restore the original bank
	ldy  FinishWord		;the last word is always at finish word
	txa		;source pattern is still in X-Reg
	and  RightMask
	eor  (DestRef),y
	sta  (DestRef),y		;and store
	SwapPat
	rtl

;---------------------------------------------------------------




;---------------------------------------------------------------
DoEntireRow
	EORMultiple
EndXORRazor	rts
;---------------------------------------------------------------

	ENDP

****************************************************************




	title 'FastSlabCopy'
****************************************************************
*
FastSlabCopy	PROC EXPORT
*
* This is the code that is run when QuickDraw discovers
* that the object being drawn is not being clipped to a
* irregular region and the pen mask is all $FFFF.
*
*
* Inputs:
*
*    LeftMask      The Pixels not being	touched on the left	are
*                  set to zero in this word mask.
*
*    RightMask     The Pixels not being	touched on the right are
*                  set to zero in this word mask
*
*    StartWord     The First word on the scan line to deal with
*
*    FinishWord    The last word on the	scan line to deal with
*
*    DestRef       Points to the start of the current scan line
*                  (or scan line equiv since can draw into mem).
*
*    Pat           Two words to hold the current part of the
*                  pattern being used for this scan line.
*
*
*
* Variables:
*
*    Temp	this is destroyed.
*
*
*
* Outputs:
*
*    none
*
* External Refs:
*
	IMPORT  IncrementDataBank
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
*
* Change History
*
* 09 Sep 88	Steven Glass
*
* Adjusted code to use both words of Pat for all modes.
*
* Wrote new special case code to be used when Pat and Pat+2
* are the same.
*
* No longer writes to direct page.
*
*
* 16 Nov 88	Steven Glass
*
* The count for MaxInRow was off by one making us draw two few bytes
* for each time through the loop.
*
* Also added an entry in the RowTable for 0 words.  This is
* unlikely, but possible if the number of words to do is
* equal to the maxInRow.
*
*
* 18 Jan 89	Dave Good
*
* Completely Rewrote to remove iny's from the special case
* loop. This routine now uses direct page again
*
****************************************************************
;---------------------------------------------------------------
MaxWordsInRow	equ  80
MaxBytesInRow	equ  MaxWordsInRow*2
;---------------------------------------------------------------
	MACRO
	STAMultiple
	LCLA  &counter
&counter	SETA  MaxBytesInRow
	WHILE  &counter > 0  DO
	sta  |&counter,y
&counter	SETA  &counter-2
	ENDWHILE
	MEND
;---------------------------------------------------------------
	MACRO
&lab	MakeJumpTable
	LCLA  &counter
&counter	SETA  0
&lab
	WHILE  &counter < MaxWordsInRow  DO
	dc.w  EndAddr-(&counter*3)
&counter	SETA &counter+1
	ENDWHILE
	MEND
;---------------------------------------------------------------


;---------------------------------------------------------------
	SwapPat

	lda  FinishWord		;get the number of bytes to copy into
	sec		;..A-Reg
	sbc  StartWord
	beq  doSingleWord		;if only one word, do a special case
	lsr  a
	dec  a		;if only two words, then do another
	beq  doLastTwo		;..special case
	tax		;otherwise the count goes in X-Reg

	lda  Pat		;if the patterns are equal go very fast
	cmp  Pat+2
	beq  GoReallyFast
	Export FastSlabCopyAlt
FastSlabCopyAlt
	ldy  StartWord		;get the start word in Y-Reg
	lda  Pat		;first source pattern in A-Reg
	eor  (DestRef),y		;clip with the mask properly
	and  LeftMask
	eor  (DestRef),y
	sta  (DestRef),y		;and store
	iny		;increment our index
	iny
;---------------------------------------------------------------
@loop	lda  Pat+2		;second source pattern in A-Reg
	sta  (DestRef),y
	iny		;increment our index
	iny
	dex		;decrement our counter
	beq  doLastWord1		;if we're done, then do the last

	lda  Pat
	sta  (DestRef),y
	iny
	iny
	dex
	bne  @loop
;---------------------------------------------------------------
doLastWord2	lda  Pat+2		;second source pattern in A-Reg

doLastWord	eor  (DestRef),y		;clip with the mask properly
exit	and  RightMask
	eor  (DestRef),y
	sta  (DestRef),y		;and store
	SwapPat
	rtl


doLastWord1	lda  Pat		;first source pattern in a-reg
	bra  doLastWord

doSingleWord	ldy  StartWord		;do the first and only word here using
	lda  Pat		;..the first source pattern
	eor  (DestRef),y
	and  LeftMask
	bra  exit		;save bytes here

doLastTwo	ldy  StartWord		;do the first word here with the first
	lda  Pat		;source pattern
	eor  (DestRef),y
	and  LeftMask
	eor  (DestRef),y
	sta  (DestRef),y
	iny		;move to the next and last word and use
	iny		;..the second source pattern.
	bra  doLastWord2		;save bytes here
;---------------------------------------------------------------




;---------------------------------------------------------------
GoReallyFast	phb		;save the bank register (we will change it)

	lda  StartWord		;make Y-Reg into a pointer to the first
	clc		;..word
	adc  DestRef
	tay
	bcc  @1		;if Y-Reg overflows, then we must bump
	jsr  IncrementDataBank	;..the bank register
@1
	lda  Pat		;copy into the first word using leftMask
	eor  |0,y		;..to clip it.
	and  LeftMask
	eor  |0,y
	sta  |0,y
	txa		;put our counter in the A-Reg
;---------------------------------------------------------------
rowLoop	cmp  #MaxWordsInRow		;compare the count with our maximum row size
	blt  doLastRow		;..size. If less, then do last row
	sbc  #MaxWordsInRow		;adjust our count (carry is always SET)
	pha		;save the count on the stack
	lda  Pat
	jsr  DoEntireRow		;COPY the row
	tya		;move our pointer (Y-Reg) past the bytes
	clc		;..we just inverted.
	adc  #MaxBytesInRow
	tay
	bcc  @noBump		;check for overflow
	jsr  IncrementDataBank	;if overflow, then bump the bank
@noBump	pla		;get back the count and loop
	bra  rowLoop
;---------------------------------------------------------------
doLastRow	asl  a		;multiply the count by two and use this
	tax		;..as our index into the jump table
	lda  Pat
	jsr  (JumpTable,x)
;---------------------------------------------------------------
returnAddr	plb		;restore the original data bank
	ldy  FinishWord		;the last word is always at finish word
	lda  Pat		;only source pattern in a-reg
	eor  (DestRef),y		;clip with the mask properly
	and  RightMask
	eor  (DestRef),y
	sta  (DestRef),y		;and store
	SwapPat
	rtl

;---------------------------------------------------------------




;---------------------------------------------------------------
DoEntireRow
	STAMultiple
EndAddr	rts
;---------------------------------------------------------------
	Export CopyJumpTable
CopyJumpTable
JumpTable	MakeJumpTable
;---------------------------------------------------------------

	ENDP

****************************************************************




	title 'IncrementDataBank'
****************************************************************
*
IncrementDataBank	PROC ENTRY
*
* This increments the bank register by one
*
*
* Inputs:
*
*    none
*
* Outputs:
*
*    none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
*
* Change History
*
* 03 Feb 89	Dave Good
*
* This routine is used by FastSlabCopy and FastSlabXOR to
* increment the data bank.
*
*
****************************************************************

	phb		;put the data bank on the stack
	pla		;get back $xxbb where bb is the data bank
	inc  a		;increment the bank. Note: this will NEVER
	pha		;..wrap to the next byte
	plb		;get the data bank back in B
	rts

	ENDP

****************************************************************





	title 'FastSlabOr'
****************************************************************
*
FastSlabOr	PROC EXPORT
*
* This is the code that is run when QuickDraw discovers
* that the object being drawn is not being clipped to a
* irregular region and the pen mask is all $FFFF.
*
*
* Inputs:
*
*    LeftMask      The Pixels not being	touched on the left	are
*                  set to zero in this word mask.
*
*    RightMask     The Pixels not being	touched on the right are
*                  set to zero in this word mask
*
*    StartWord     The First word on the scan line to deal with
*
*    FinishWord    The last word on the	scan line to deal with
*
*    DestRef       Points to the start of the current scan line
*                  (or scan line equiv since can draw into mem).
*
*    Pat           Two words to hold the current part of the
*                  pattern being used for this scan line.
*
*
*
*
* Outputs:
*
*    none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

	swapPat

	lda FinishWord	; put count in x-register
	sec
	sbc StartWord
	lsr a	; div by 2 so holds num words to xfer - 1
	tax
	
;	lda StartWord	; get the start word in y
;	clc	; this carry is already always cleared by lsr above	
;	adc destRef
;	tay	; this is the offset to out slab...

	ldy StartWord
	lda Pat	; source pattern in a-reg
	and LeftMask
	cpx #0	; check for special case where only 1 word
	bne @MoreThanOne
	and RightMask
@MoreThanOne	ora (destRef),y	; invert again
	sta (destRef),y	; and store

	cpx #0
	beq AllDone

	iny	; bump y and but don't touch x yet
	iny
	dex	; dec x since one word is done
	bne innerLoop
	bra DoLastWord2
innerLoop
;	txa
;	asl a
;	pha
;
; the following code was generated with the following MPW shell script
; use it in good health commander
;set x 8
;set y 0
;Loop
;    echo "¶tlda pat+2" ;
;    echo "¶teor |{y},y" ;
;    echo "¶tsta |{y},y" ;
;    echo "¶tdex"
;    echo "¶tbeq DoLastWord2"
;	 set y `evaluate {y}+2`;
;    echo "¶tlda pat" ;
;    echo "¶teor |{y},y" ;
;    echo "¶tsta |{y},y" ;
;    echo "¶tdex"
;    echo "¶tbeq DoLastWord1"
;	 set y `evaluate {y}+2`;
;    set x `evaluate {x}-1` ;
;    If {X}>1 
;        continue
;    else
;        break
;    end;
;End  

	lda Pat+2	; source pattern in a-reg
	ora (DestRef),y	; OR
	sta (DestRef),y	; and store;;

	iny	; bump y
	iny	;

	dex	; dec x
	beq DoLastWord1	; if x is zero there is one word to go;

	lda Pat
	ora (DestRef),y	; OR
	sta (DestRef),y	; and store;

	iny
	iny
	dex
	bne InnerLoop	; if x is zero there is one word to go

DoLastWord2
	lda Pat+2	; source pattern in a-reg
	and RightMask
	ora (DestRef),y	; OR
	sta (DestRef),y	; and store

AllDone	SwapPat
	rtl


DoLastWord1
	lda Pat	; source pattern in a-reg
	and RightMask
	ora (DestRef),y	; OR
	sta (DestRef),y	; and store

	SwapPat
	rtl


	ENDP



	title 'FastSlabBIC'
****************************************************************
*
FastSlabBIC	PROC EXPORT
*
* This is the code that is run when QuickDraw discovers
* that the object being drawn is not being clipped to a
* irregular region and the pen mask is all $FFFF.
*
*
* Inputs:
*
*    LeftMask      The Pixels not being	touched on the left	are
*                  set to zero in this word mask.
*
*    RightMask     The Pixels not being	touched on the right are
*                  set to zero in this word mask
*
*    StartWord     The First word on the scan line to deal with
*
*    FinishWord    The last word on the	scan line to deal with
*
*    DestRef       Points to the start of the current scan line
*                  (or scan line equiv since can draw into mem).
*
*    Pat           Two words to hold the current part of the
*                  pattern being used for this scan line.
*
*
*
*
* Outputs:
*
*    none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************
	SwapPat


	lda FinishWord	; put count in x-register
	sec
	sbc StartWord
	lsr a	; div by 2 so holds num words to xfer - 1
	tax
	
	ldy StartWord	; get the start word in y
	lda Pat	; source pattern in a-reg
	and LeftMask
	cpx #0	; check for special case where only 1 word
	bne @MoreThanOne
	and RightMask
@MoreThanOne	eor #$FFFF	; INVERT
	and (DestRef),y	; AND
	sta (DestRef),y	; and store

	cpx #0
	beq AllDone

	iny	; bump y and but don't touch x yet
	iny
	cpx #1	; if x is 1 there is one word to go
	beq DoLastWord2

	dex	; dec x since one word is done

InnerLoop
	lda Pat+2	; source pattern in a-reg
	eor #$FFFF	; Invert
	and (DestRef),y	; AND
	sta (DestRef),y	; and store

	iny	; bump y
	iny

	dex	; dec x
	beq DoLastWord1	; if x is zero there is one word to go

	lda Pat
	eor #$FFFF	; INVERT
	and (DestRef),y	; AND
	sta (DestRef),y	; and store

	iny
	iny
	dex
	bne InnerLoop	; if x is zero there is one word to go (fall through)


DoLastWord2
	lda Pat+2	; source pattern in a-reg
	and RightMask
	eor #$FFFF	; invert
	and (DestRef),y	; AND
	sta (DestRef),y	; and store
AllDone	SwapPat
	rtl





DoLastWord1
	lda Pat	; source pattern in a-reg
	and RightMask
	eor #$FFFF	; invert
	and (DestRef),y	; AND
	sta (DestRef),y	; and store
	SwapPat
	rtl



	ENDP




	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/QD/slices.asm b/IIGS.601.SRC/GSToolbox/QD/slices.asm
new file mode 100644
index 0000000..eb4a25c
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/QD/slices.asm
@@ -0,0 +1 @@
+	title 'QD Slices            GS ROM 2.0'
****************************************************************
*			   *
*              SLICES		   *
*			   *
****************************************************************


****************************************************************
*			   *
*	Copyright (C) 1985-1987	   *
*	All Rights Reserved		   *
*	Apple Computer, Inc.	   *
*			   *
****************************************************************

	include 'all.macros'
	include ':QDEquates:qd.data.asm'


	INCLUDE ':QDEquates:CORE.GLOBALS1'
	INCLUDE ':QDEquates:core.globals2'
	INCLUDE ':QDEquates:region.equs'
	INCLUDE ':QDEquates:SLICE.EQUS'



;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

	IMPORT ShiftOut
	IMPORT ShiftStay
	IMPORT xShiftOut
	IMPORT xShiftStay

;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

	ENTRY bEndOfChute
	ENTRY bRazorMove
	ENTRY fEndOfChute
	ENTRY fRazorMove



;                COPY SLICES/SLICES
****************************************************************
*
* Slices
*
* These are the lowest level pixel transfer routines.  They	copy
* pixels from one scan line to another using an appropriate
* transfer mode.
*
* Parameters are passed on "ZeroPage" and in the overflow
*   flag. (The overflow flag is used to	decide whether to
*   invert the source--set for invert, clear for leave
*   alone.)
* A predraw routine	must set up "ZeroPage" and the overflow
*   flag.
*
* The routines do not use shift tables.	 Instead I use the two
* shift subroutines.  This is faster than using shift tables
* and working only a byte at a time.
*
* The routines can handle scan lines as	long as 32K.  They do not
* care about scan line width and will overflow into next scan line
* if told to.
*
* The routines starting with "F" paint forwards (left to right)
* while routines starting with "B" paint backwards (right to left).
*
****************************************************************

	EXPORT FCopySlice
FCopySlice	PROC
*              using CoreDATA

	stz ShiftTemp	; Zero this for later use

	ldy DestStartWord	; if start = finish
	sty DestIndex	; then combine masks

	ldx SrcStartWord	; get dest pointer into y
	stx SrcIndex	; initialize index here

	cpy #0	; if dest index is neg then we had to
	bmi SkipMask	; dec it when it was 0

Loop	lda [ScanMaskRef],y
	cmp #$FFFF
	beq FastWay

	sta CombinedMask	; put in combined mask


	eor #$FFFF	; invert combined mask
	and (DestRef),y
	sta NotMaskAndDest

SkipMask	ldy SrcIndex	; Get source word
	lda [SrcRef],y
	sta ThisWord	; save for later
	iny
	iny
	sty SrcIndex
	jsl ShiftOut
	sta ShiftTemp2	; save it

	lda ThisWord
	jsl ShiftStay
	ora ShiftTemp

	bvc NotNot1	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot1	and CombinedMask	; and with combined	mask

	ora NotMaskAndDest	; merge with original part that stays
	ldy DestIndex
	bmi BumpIndexes	; again if it was neg then special
	sta (DestRef),y	; and store it.

	bra BumpIndexes

FastWay		; 
	ldy SrcIndex
	lda [SrcRef],y
	sta ThisWord
	iny
	iny
	sty SrcIndex
	jsl ShiftOut
	sta ShiftTemp2	; save it

	lda ThisWord
	jsl ShiftStay
	ora ShiftTemp

	bvc NotNot2	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot2	ldy DestIndex
	sta (DestRef),y	; and store it.



BumpIndexes		; 

	lda ShiftTemp2
	sta ShiftTemp

	iny
	iny
	sty DestIndex

	cpy DestFinishWord

	bcc Loop
	beq Loop

AllDone	rtl

	ENDP





	EXPORT FOrSlice
FOrSlice	PROC
*              using CoreDATA

	stz ShiftTemp	; Zero this for later use

	ldy DestStartWord	; if start = finish
	sty DestIndex	; then combine masks

	ldx SrcStartWord	; get dest pointer into y
	stx SrcIndex	; initialize index here

	cpy #0	; if dest index is neg then we had to
	bmi SkipMask	; dec it when it was 0

Loop	lda [ScanMaskRef],y
	cmp #$FFFF
	beq FastWay

	sta CombinedMask	; put in combined mask

SkipMask	ldy SrcIndex	; Get source word
	lda [SrcRef],y
	sta ThisWord	; save for later
	iny
	iny
	sty SrcIndex
	jsl ShiftOut
	sta ShiftTemp2	; save it

	lda ThisWord
	jsl ShiftStay
	ora ShiftTemp

	bvc NotNot1	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot1	and CombinedMask	; and with combined	mask


	ldy DestIndex
	bmi BumpIndexes	; the special case again
	ora (DestRef),y
	sta (DestRef),y	; and store it.

	bra BumpIndexes

FastWay		; 
	ldy SrcIndex
	lda [SrcRef],y
	sta ThisWord
	iny
	iny
	sty SrcIndex
	jsl ShiftOut
	sta ShiftTemp2	; save it

	lda ThisWord
	jsl ShiftStay
	ora ShiftTemp

	bvc NotNot2	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot2	ldy DestIndex
	ora (DestRef),y
	sta (DestRef),y	; and store it.



BumpIndexes		; 

	lda ShiftTemp2
	sta ShiftTemp

	iny
	iny
	sty DestIndex

	cpy DestFinishWord

	bcc Loop
	beq Loop

AllDone	rtl

	ENDP




	EXPORT FXORSlice
FXORSlice	PROC
*              using CoreDATA

	stz ShiftTemp	; Zero this for later use

	ldy DestStartWord	; if start = finish
	sty DestIndex	; then combine masks

	ldx SrcStartWord	; get dest pointer into y
	stx SrcIndex	; initialize index here

	cpy #0	; if dest index is neg then we had to
	bmi SkipMask	; dec it when it was 0

Loop	lda [ScanMaskRef],y
	cmp #$FFFF
	beq FastWay

	sta CombinedMask	; put in combined mask

SkipMask	ldy SrcIndex	; Get source word
	lda [SrcRef],y
	sta ThisWord	; save for later
	iny
	iny
	sty SrcIndex
	jsl ShiftOut
	sta ShiftTemp2	; save it

	lda ThisWord
	jsl ShiftStay
	ora ShiftTemp

	bvc NotNot1	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot1	and CombinedMask	; and with combined	mask


	ldy DestIndex
	bmi BumpIndexes	; special case
	eor (DestRef),y
	sta (DestRef),y	; and store it.

	bra BumpIndexes

FastWay		; 
	ldy SrcIndex
	lda [SrcRef],y
	sta ThisWord
	iny
	iny
	sty SrcIndex
	jsl ShiftOut
	sta ShiftTemp2	; save it

	lda ThisWord
	jsl ShiftStay
	ora ShiftTemp

	bvc NotNot2	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot2	ldy DestIndex
	eor (DestRef),y
	sta (DestRef),y	; and store it.



BumpIndexes		; 

	lda ShiftTemp2
	sta ShiftTemp

	iny
	iny
	sty DestIndex

	cpy DestFinishWord

	bcc Loop
	beq Loop

AllDone	rtl

	ENDP



	EXPORT FBICSlice
FBICSlice	PROC
*              using CoreDATA

	stz ShiftTemp	; Zero this for later use

	ldy DestStartWord	; if start = finish
	sty DestIndex	; then combine masks

	ldx SrcStartWord	; get dest pointer into y
	stx SrcIndex	; initialize index here

	cpy #0	; if dest index is neg then we had to
	bmi SkipMask	; dec it when it was 0

Loop	lda [ScanMaskRef],y
	cmp #$FFFF
	beq FastWay

	sta CombinedMask	; put in combined mask

SkipMask	ldy SrcIndex	; Get source word
	lda [SrcRef],y
	sta ThisWord	; save for later
	iny
	iny
	sty SrcIndex
	jsl ShiftOut
	sta ShiftTemp2	; save it

	lda ThisWord
	jsl ShiftStay
	ora ShiftTemp

	bvc NotNot1	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot1	and CombinedMask	; and with combined	mask

	ldy DestIndex
	bmi BumpIndexes	; special case
	eor #$FFFF
	and (DestRef),y
	sta (DestRef),y	; and store it.

	bra BumpIndexes

FastWay		; 
	ldy SrcIndex
	lda [SrcRef],y
	sta ThisWord
	iny
	iny
	sty SrcIndex
	jsl ShiftOut
	sta ShiftTemp2	; save it

	lda ThisWord
	jsl ShiftStay
	ora ShiftTemp

	bvc NotNot2	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot2	ldy DestIndex
	eor #$FFFF
	and (DestRef),y
	sta (DestRef),y	; and store it.



BumpIndexes		; 

	lda ShiftTemp2
	sta ShiftTemp

	iny
	iny
	sty DestIndex

	cpy DestFinishWord

	bcc Loop
	beq Loop

AllDone	rtl

	ENDP
;                COPY SLICES/BACK.SLICES
****************************************************************
*
* Get Word
* ShiftStay and save it
*
* dec SrcIndex
* dec SrcIndex
*
* Get Word
* ShiftOut
* Or with Saved ShiftStay
* Save At Dest
*
* Dec DestIndex
* Dec DestIndex
*
* Compare DestIndex	with FirstWord
*       beq LeftEdge
*       bcs Loop
*
*       bra AllDone
*
* Change History
* 8/6/87 GCP   Now use x reg to hold HowFarToShift
*
****************************************************************

	EXPORT BFCopySlice
BFCopySlice	PROC
*              using CoreDATA


	ldy SrcFinishWord	; get dest pointer into y
	lda [SrcRef],y
	sta ThisWord
	dey
	dey
	sty SrcIndex	; initialize index here

	ldy DestFinishWord	; if start = finish
	sty DestIndex	; then combine masks

	ldx HowFarToShift	; set up x reg for shift calls


Loop		; 

	lda [ScanMaskRef],y
	cmp #$FFFF
	beq FastWay
	sta CombinedMask	; put in combined mask

	eor #$FFFF	; invert combined mask
	and (DestRef),y
	sta NotMaskAndDest


	lda ThisWord
	jsl xShiftStay
	sta ShiftTemp	; save it

	ldy SrcIndex
	lda [SrcRef],y	; get prior word
	sta ThisWord	; save for later
	dey
	dey
	sty SrcIndex
	jsl xShiftOut
	ora ShiftTemp

	bvc NotNot1	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot1	and CombinedMask	; and with combined	mask

	ora NotMaskAndDest	; merge with original part that stays
	ldy DestIndex
	sta (DestRef),y	; and store it.

	bra BumpIndexes

FastWay		; 
	lda ThisWord	; get from before
	jsl xShiftStay
	sta ShiftTemp	; save it

	ldy SrcIndex
	lda [SrcRef],y	; get prior word
	sta ThisWord	; save for later
	dey
	dey
	sty SrcIndex

	jsl xShiftOut
	ora ShiftTemp

	bvc NotNot2	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot2	ldy DestIndex
	sta (DestRef),y	; and store it.


BumpIndexes		; 

	dey
	dey
	bmi AllDone	; if this is neg then we had to dec
*		; start word when it was 0

	sty DestIndex

	cpy DestStartWord	; we are done if <=	StartWord
	bcs Loop


AllDone	rtl

	ENDP


	EXPORT BFORSlice
BFORSlice	PROC
*              using CoreDATA


	ldy SrcFinishWord	; get dest pointer into y
	lda [SrcRef],y
	sta ThisWord
	dey
	dey
	sty SrcIndex	; initialize index here

	ldy DestFinishWord	; if start = finish
	sty DestIndex	; then combine masks

Loop		; 

	lda [ScanMaskRef],y
	cmp #$FFFF
	beq FastWay
	sta CombinedMask	; put in combined mask

	lda ThisWord
	jsl xShiftStay
	sta ShiftTemp	; save it

	ldy SrcIndex
	lda [SrcRef],y	; get prior word
	sta ThisWord	; save for later
	dey
	dey
	sty SrcIndex
	jsl xShiftOut
	ora ShiftTemp

	bvc NotNot1	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot1	and CombinedMask	; and with combined	mask

	ldy DestIndex
	ora (DestRef),y
	sta (DestRef),y	; and store it.

	bra BumpIndexes

FastWay		; 
	lda ThisWord	; get from before
	jsl xShiftStay
	sta ShiftTemp	; save it

	ldy SrcIndex
	lda [SrcRef],y	; get prior word
	sta ThisWord	; save for later
	dey
	dey
	sty SrcIndex

	jsl xShiftOut
	ora ShiftTemp

	bvc NotNot2	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot2	ldy DestIndex
	ora (DestRef),y
	sta (DestRef),y	; and store it.


BumpIndexes		; 

	dey
	dey
	bmi AllDone	; if this is neg then we had to dec
*		; start word when it was 0
	sty DestIndex

	cpy DestStartWord	; we are done if <=	StartWord
	bcs Loop


AllDone	rtl

	ENDP



	EXPORT BFXORSlice
BFXORSlice	PROC
*              using CoreDATA


	ldy SrcFinishWord	; get dest pointer into y
	lda [SrcRef],y
	sta ThisWord
	dey
	dey
	sty SrcIndex	; initialize index here

	ldy DestFinishWord	; if start = finish
	sty DestIndex	; then combine masks

Loop		; 

	lda [ScanMaskRef],y
	cmp #$FFFF
	beq FastWay
	sta CombinedMask	; put in combined mask

	lda ThisWord
	jsl xShiftStay
	sta ShiftTemp	; save it

	ldy SrcIndex
	lda [SrcRef],y	; get prior word
	sta ThisWord	; save for later
	dey
	dey
	sty SrcIndex
	jsl xShiftOut
	ora ShiftTemp

	bvc NotNot1	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot1	and CombinedMask	; and with combined	mask

	ldy DestIndex
	eor (DestRef),y
	sta (DestRef),y	; and store it.

	bra BumpIndexes

FastWay		; 
	lda ThisWord	; get from before
	jsl xShiftStay
	sta ShiftTemp	; save it

	ldy SrcIndex
	lda [SrcRef],y	; get prior word
	sta ThisWord	; save for later
	dey
	dey
	sty SrcIndex

	jsl xShiftOut
	ora ShiftTemp

	bvc NotNot2	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot2	ldy DestIndex
	eor (DestRef),y
	sta (DestRef),y	; and store it.


BumpIndexes		; 

	dey
	dey
	bmi AllDone	; if this is neg then we had to dec
*		; start word when it was 0
	sty DestIndex

	cpy DestStartWord	; we are done if <=	StartWord
	bcs Loop


AllDone	rtl

	ENDP



	EXPORT BFBICSlice
BFBICSlice	PROC
*              using CoreDATA


	ldy SrcFinishWord	; get dest pointer into y
	lda [SrcRef],y
	sta ThisWord
	dey
	dey
	sty SrcIndex	; initialize index here

	ldy DestFinishWord	; if start = finish
	sty DestIndex	; then combine masks

Loop		; 

	lda [ScanMaskRef],y
	cmp #$FFFF
	beq FastWay
	sta CombinedMask	; put in combined mask

	lda ThisWord
	jsl xShiftStay
	sta ShiftTemp	; save it

	ldy SrcIndex
	lda [SrcRef],y	; get prior word
	sta ThisWord	; save for later
	dey
	dey
	sty SrcIndex
	jsl xShiftOut
	ora ShiftTemp

	bvc NotNot1	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot1	and CombinedMask	; and with combined	mask

	ldy DestIndex
	eor #$FFFF
	and (DestRef),y
	sta (DestRef),y	; and store it.

	bra BumpIndexes

FastWay		; 
	lda ThisWord	; get from before
	jsl xShiftStay
	sta ShiftTemp	; save it

	ldy SrcIndex
	lda [SrcRef],y	; get prior word
	sta ThisWord	; save for later
	dey
	dey
	sty SrcIndex

	jsl xShiftOut
	ora ShiftTemp

	bvc NotNot2	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot2	ldy DestIndex
	eor #$FFFF
	and (DestRef),y
	sta (DestRef),y	; and store it.


BumpIndexes		; 

	dey
	dey
	bmi AllDone	; if this is neg then we had to dec
*		; start word when it was 0
	sty DestIndex

	cpy DestStartWord	; we are done if <=	StartWord
	bcs Loop


AllDone	rtl

	ENDP
;                COPY SLICES/FSLICES
****************************************************************
*
* fSlices
*
* These are the lowest level pixel transfer routines.  They	copy
* pixels from one scan line to another using an appropriate
* transfer mode without shifting.  They	are only called if no
* shifting is needed.
*
* Parameters are passed on "ZeroPage" and in the overflow
*   flag. (The overflow flag is used to	decide whether to
*   invert the source--set for invert, clear for leave
*   alone.)
* A predraw routine	must set up "ZeroPage" and the overflow
*   flag.
*
* The routines do not use shift tables.	 Instead I use the two
* shift subroutines.  This is faster than using shift tables
* and working only a byte at a time.
*
* The routines can handle scan lines as	long as 32K.  They do not
* care about scan line width and will overflow into next scan line
* if told to.
*
* The routines starting with "F" paint forwards (left to right)
* while routines starting with "B" paint backwards (right to left).
*
****************************************************************
	EXPORT fFCopySlice
fFCopySlice	PROC
*              using CoreDATA


	ldy DestStartWord	; if start = finish
	sty DestIndex	; then combine masks

	ldx SrcStartWord	; get dest pointer into y
	stx SrcIndex	; initialize index here

	cpy #0	; if dest index is neg then we had to
	bmi SkipMask	; dec it when it was 0

Loop	lda [ScanMaskRef],y
	cmp #$FFFF
	beq FastWay

	sta CombinedMask	; put in combined mask


	eor #$FFFF	; invert combined mask
	and (DestRef),y
	sta NotMaskAndDest

SkipMask	ldy SrcIndex	; Get source word
	lda [SrcRef],y
	iny
	iny
	sty SrcIndex

	bvc NotNot1	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot1	and CombinedMask	; and with combined	mask

	ora NotMaskAndDest	; merge with original part that stays
	ldy DestIndex
	bmi BumpIndexes	; again if it was neg then special
	sta (DestRef),y	; and store it.

	bra BumpIndexes

FastWay		; 
	ldy SrcIndex
	lda [SrcRef],y
	iny
	iny
	sty SrcIndex

	bvc NotNot2	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot2	ldy DestIndex
	sta (DestRef),y	; and store it.



BumpIndexes		; 

	iny
	iny
	sty DestIndex

	cpy DestFinishWord

	bcc Loop
	beq Loop

AllDone	rtl

	ENDP





	EXPORT fFOrSlice
fFOrSlice	PROC
*              using CoreDATA

	ldy DestStartWord	; if start = finish
	sty DestIndex	; then combine masks

	ldx SrcStartWord	; get dest pointer into y
	stx SrcIndex	; initialize index here

	cpy #0	; if dest index is neg then we had to
	bmi SkipMask	; dec it when it was 0

Loop	lda [ScanMaskRef],y
	cmp #$FFFF
	beq FastWay

	sta CombinedMask	; put in combined mask

SkipMask	ldy SrcIndex	; Get source word
	lda [SrcRef],y
	iny
	iny
	sty SrcIndex

	bvc NotNot1	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot1	and CombinedMask	; and with combined	mask


	ldy DestIndex
	bmi BumpIndexes	; the special case again
	ora (DestRef),y
	sta (DestRef),y	; and store it.

	bra BumpIndexes

FastWay		; 
	ldy SrcIndex
	lda [SrcRef],y
	iny
	iny
	sty SrcIndex

	bvc NotNot2	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot2	ldy DestIndex
	ora (DestRef),y
	sta (DestRef),y	; and store it.

BumpIndexes		; 

	iny
	iny
	sty DestIndex

	cpy DestFinishWord

	bcc Loop
	beq Loop

AllDone	rtl

	ENDP




	EXPORT fFXORSlice
fFXORSlice	PROC
*              using CoreDATA

	ldy DestStartWord	; if start = finish
	sty DestIndex	; then combine masks

	ldx SrcStartWord	; get dest pointer into y
	stx SrcIndex	; initialize index here

	cpy #0	; if dest index is neg then we had to
	bmi SkipMask	; dec it when it was 0

Loop	lda [ScanMaskRef],y
	cmp #$FFFF
	beq FastWay

	sta CombinedMask	; put in combined mask

SkipMask	ldy SrcIndex	; Get source word
	lda [SrcRef],y
	iny
	iny
	sty SrcIndex

	bvc NotNot1	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot1	and CombinedMask	; and with combined	mask


	ldy DestIndex
	bmi BumpIndexes	; special case
	eor (DestRef),y
	sta (DestRef),y	; and store it.

	bra BumpIndexes

FastWay		; 
	ldy SrcIndex
	lda [SrcRef],y
	iny
	iny
	sty SrcIndex

	bvc NotNot2	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot2	ldy DestIndex
	eor (DestRef),y
	sta (DestRef),y	; and store it.

BumpIndexes		; 

	iny
	iny
	sty DestIndex

	cpy DestFinishWord

	bcc Loop
	beq Loop

AllDone	rtl

	ENDP



	EXPORT fFBICSlice
fFBICSlice	PROC
*              using CoreDATA

	ldy DestStartWord	; if start = finish
	sty DestIndex	; then combine masks

	ldx SrcStartWord	; get dest pointer into y
	stx SrcIndex	; initialize index here

	cpy #0	; if dest index is neg then we had to
	bmi SkipMask	; dec it when it was 0

Loop	lda [ScanMaskRef],y
	cmp #$FFFF
	beq FastWay

	sta CombinedMask	; put in combined mask

SkipMask	ldy SrcIndex	; Get source word
	lda [SrcRef],y
	iny
	iny
	sty SrcIndex

	bvc NotNot1	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot1	and CombinedMask	; and with combined	mask

	ldy DestIndex
	bmi BumpIndexes	; special case
	eor #$FFFF
	and (DestRef),y
	sta (DestRef),y	; and store it.

	bra BumpIndexes

FastWay		; 
	ldy SrcIndex
	lda [SrcRef],y
	iny
	iny
	sty SrcIndex

	bvc NotNot2	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot2	ldy DestIndex
	eor #$FFFF
	and (DestRef),y
	sta (DestRef),y	; and store it.


BumpIndexes		; 

	iny
	iny
	sty DestIndex

	cpy DestFinishWord

	bcc Loop
	beq Loop

AllDone	rtl

	ENDP
;                COPY SLICES/FBACK.SLICES
****************************************************************
* FastBackSlices
*
* These routine are	only called when a slice can be copied
* from one place to	another without shifting.  Without shifting,
* it works much faster since no calls to ShiftOut and ShiftSTay
* need to be made.
*
****************************************************************

****************************************************************
*
* fBFCOPYSlice
*
* Does a backwards COPY slice without shifting.
*
* Modification History
*
* June 4, 1986	 SEG
*
*     The first four lines were in the wrong order.  The y
*     register needs to be left with the dest index in it
*     rather than the source index.  Moreover, the Y-reg
*     was incorrectly set after the ScanMask word was read.
*
****************************************************************
	EXPORT fBFCopySlice
fBFCopySlice	PROC
*              using CoreDATA

	ldy SrcFinishWord	; get dest pointer into y
	sty SrcIndex

	ldy DestFinishWord	; if start = finish
	sty DestIndex	; then combine masks


Loop		; 

	lda [ScanMaskRef],y
	cmp #$FFFF
	beq FastWay
	sta CombinedMask	; put in combined mask

	eor #$FFFF	; invert combined mask
	and (DestRef),y
	sta NotMaskAndDest


	ldy SrcIndex	; Get Src Index !!!! SEG 4 Jun 86
	lda [SrcRef],y	; get word
	dey
	dey
	sty SrcIndex

	bvc NotNot1	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot1	and CombinedMask	; and with combined	mask

	ora NotMaskAndDest	; merge with original part that stays
	ldy DestIndex
	sta (DestRef),y	; and store it.

	bra BumpIndexes

FastWay		; 
	ldy SrcIndex	; Get SrcIndex !!! SEG 4 Jun 86
	lda [SrcRef],y	; get from before
	dey
	dey
	sty SrcIndex

	bvc NotNot2	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot2	ldy DestIndex
	sta (DestRef),y	; and store it.


BumpIndexes		; 

	dey
	dey
	bmi AllDone	; if this is neg then we had to dec
*		; start word when it was 0

	sty DestIndex

	cpy DestStartWord	; we are done if <=	StartWord
	bcs Loop


AllDone	rtl

	ENDP


****************************************************************
*
* fBFORSlice
*
* Does a backwards OR slice without shifting.
*
* June 4, 1986	 SEG
*
*     The first four lines were in the wrong order.  The y
*     register needs to be left with the dest index in it
*     rather than the source index.  Moreover, the FastWay
*     through this loop did not use the	right value of Y
*     for the source index.
*
****************************************************************
	EXPORT fBFORSlice
fBFORSlice	PROC
*              using CoreDATA


	ldy SrcFinishWord	; get dest pointer into y
	sty SrcIndex	; initialize index here

	ldy DestFinishWord	; if start = finish
	sty DestIndex	; then combine masks

Loop		; 

	lda [ScanMaskRef],y
	cmp #$FFFF
	beq FastWay
	sta CombinedMask	; put in combined mask

	ldy SrcIndex
	lda [SrcRef],y	; get prior word
	dey
	dey
	sty SrcIndex

	bvc NotNot1	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot1	and CombinedMask	; and with combined	mask

	ldy DestIndex
	ora (DestRef),y
	sta (DestRef),y	; and store it.

	bra BumpIndexes

FastWay		; 

	ldy SrcIndex	; Get Src Index !!!! SEG 4 Jun 86
	lda [SrcRef],y	; get prior word
	dey
	dey
	sty SrcIndex

	bvc NotNot2	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot2	ldy DestIndex
	ora (DestRef),y
	sta (DestRef),y	; and store it.


BumpIndexes		; 

	dey
	dey
	bmi AllDone	; if this is neg then we had to dec
*		; start word when it was 0
	sty DestIndex

	cpy DestStartWord	; we are done if <=	StartWord
	bcs Loop


AllDone	rtl

	ENDP


****************************************************************
*
* fBFXORSlice
*
* Does a backwards XOR slice without shifting.
*
* June 4, 1986	 SEG
*
*     The first four lines were in the wrong order.  The y
*     register needs to be left with the dest index in it
*     rather than the source index.  Moreover, the FastWay
*     through this loop did not use the	right value of Y
*     for the source index.
*
****************************************************************
	EXPORT fBFXORSlice
fBFXORSlice	PROC
*              using CoreDATA


	ldy SrcFinishWord	; get dest pointer into y
	sty SrcIndex	; initialize index here

	ldy DestFinishWord	; if start = finish
	sty DestIndex	; then combine masks

Loop		; 

	lda [ScanMaskRef],y
	cmp #$FFFF
	beq FastWay
	sta CombinedMask	; put in combined mask

	ldy SrcIndex
	lda [SrcRef],y	; get prior word
	dey
	dey
	sty SrcIndex

	bvc NotNot1	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot1	and CombinedMask	; and with combined	mask

	ldy DestIndex
	eor (DestRef),y
	sta (DestRef),y	; and store it.

	bra BumpIndexes

FastWay		; 

	ldy SrcIndex	; Get Src Index !!!! SEG 4 Jun 86
	lda [SrcRef],y	; get prior word
	dey
	dey
	sty SrcIndex

	bvc NotNot2	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot2	ldy DestIndex
	eor (DestRef),y
	sta (DestRef),y	; and store it.


BumpIndexes		; 

	dey
	dey
	bmi AllDone	; if this is neg then we had to dec
*		; start word when it was 0
	sty DestIndex

	cpy DestStartWord	; we are done if <=	StartWord
	bcs Loop


AllDone	rtl

	ENDP

****************************************************************
*
* fBFBICSlice
*
* Does a backwards BIC slice without shifting.
*
* June 4, 1986	 SEG
*
*     The first four lines were in the wrong order.  The y
*     register needs to be left with the dest index in it
*     rather than the source index.  Moverover, the FastWay
*     through this loop did not use the	right value of Y
*     for the source index.
*
****************************************************************
	EXPORT fBFBICSlice
fBFBICSlice	PROC
*              using CoreDATA


	ldy SrcFinishWord	; get dest pointer into y
	sty SrcIndex	; initialize index here

	ldy DestFinishWord	; if start = finish
	sty DestIndex	; then combine masks

Loop		; 

	lda [ScanMaskRef],y
	cmp #$FFFF
	beq FastWay
	sta CombinedMask	; put in combined mask

	ldy SrcIndex
	lda [SrcRef],y	; get prior word
	dey
	dey
	sty SrcIndex

	bvc NotNot1	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot1	and CombinedMask	; and with combined	mask

	ldy DestIndex
	eor #$FFFF
	and (DestRef),y
	sta (DestRef),y	; and store it.

	bra BumpIndexes

FastWay		; 

	ldy SrcIndex	; Get Src Index !!!! SEG 4 Jun 86
	lda [SrcRef],y	; get prior word
	dey
	dey
	sty SrcIndex

	bvc NotNot2	; check to see if should invert source
	eor #$FFFF	; invert source
NotNot2	ldy DestIndex
	eor #$FFFF
	and (DestRef),y
	sta (DestRef),y	; and store it.


BumpIndexes		; 

	dey
	dey
	bmi AllDone	; if this is neg then we had to dec
*		; start word when it was 0
	sty DestIndex

	cpy DestStartWord	; we are done if <=	StartWord
	bcs Loop


AllDone	rtl

	ENDP
;                copy SLICES/fast.copy
***************************************************************
*
* fRealFastCopy
*
* This is a low level pixel transfer routines.  It copies
* pixels from one scan line to another without shifting.
*
* This routine can only be used if no shifting is needed, the regions
* being clipped to are rectangular, and	there are at least 3 words
* (6 bytes) to move).
*
* This routine copies left to right.  bRealFastCopy copies from
* right to left.
*
****************************************************************
	EXPORT fRealFastCopy
fRealFastCopy	PROC
*              using CoreDATA
;-------------------------------------------------
;
; First I do the left most word in the scan line
;
	ldy DestStartWord	; if start = finish
	lda [ScanMaskRef],y
	cmp #$FFFF
	beq FastWay

	sta CombinedMask	; put in combined mask

	eor #$FFFF	; invert combined mask
	and (DestRef),y
	sta NotMaskAndDest

	ldy SrcStartWord	; Get source word
	lda [SrcRef],y
	and CombinedMask	; and with combined	mask
	ora NotMaskAndDest	; merge with original part that stays
	ldy DestStartWord
	sta (DestRef),y	; and store it.

	bra MoveMiddle

FastWay		; 
	ldy SrcStartWord
	lda [SrcRef],y
	ldy DestStartWord
	sta (DestRef),y	; and store it.


;-------------------------------------------------
;
; Now we move the middle bytes.

MoveMiddle		; 

;-------------------------------------------------
;
; First I set up X to have a pointer to	the first
; word I'm going to move.
;
;    X = SrcRef + OffsetinLineOfFirstWordToMove - StartingPointInRun
;
;    X = SrcRef + SrcStartWord + 2 -
;                  (160 - (NumDestWords	+ 2 - 4))
;
;      = SrcRef + SrcStartWord + 2 - 160 + NumDestWords + 2	- 4
;
;      = SrcRef + SrcStartWord + NumDestWords - 160
;
; We must remember that NumDestWords is	difference of Last and
; first word so is off by 2!
;
;
	lda SrcRef
	clc
	adc SrcStartWord
	sec
	sbc #160
	clc
	adc NumDestWords
	tax

;-------------------------------------------------
;
; Now I do it again	for Y.
;
	lda DestRef
	clc
	adc DestStartWord
	sec
	sbc #160
	clc
	adc NumDestWords
	tay

;-------------------------------------------------
;
; Push RTL address on stack so can get back here.
;
	phk
	pea RightMost-1

;-------------------------------------------------
;
; Figure out where in the move run we want to fall.
;
; We want to jump into the run
;
;    (NumDestWords + 2  - 4) * 3 bytes from the end of
;	              the chute
;
	lda NumDestWords	; Start with num dest words
	dec a	; subtract 2
	dec a
	pha	; put on stack
	asl a	; double
	adc 1,s	; add to stack so get 3 * that value

	eor #$FFFF	; invert it
	inc a
	clc	; add to end of chute minus one
	adc #fEndOfChute-1	; and do rts. Minus	one because
	sta 1,s	; rts works that way.
	rts


;-------------------------------------------------
;
; Finally, we copy the rightmost word in the
; line
;
RightMost		; 
	ldy DestFinishWord	; if start = finish
	lda [ScanMaskRef],y
	cmp #$FFFF
	beq FastWay2

	sta CombinedMask	; put in combined mask

	eor #$FFFF	; invert combined mask
	and (DestRef),y
	sta NotMaskAndDest

	ldy SrcFinishWord	; Get source word
	lda [SrcRef],y
	and CombinedMask	; and with combined	mask
	ora NotMaskAndDest	; merge with original part that stays
	ldy DestFinishWord
	sta (DestRef),y	; and store it.

	rtl

FastWay2		; 
	ldy SrcFinishWord
	lda [SrcRef],y
	ldy DestFinishWord
	sta (DestRef),y	; and store it.


	rtl



	ENDP






****************************************************************
*
* The Razor Blade of Life
*
* This is an extreamly fast copy routine for moving up to 156
* bytes from one scan line to another.
*
* X and Y are preset to be pointers into the scan lines
* and the calling routine jumps into the middle of this run.
*
* X and Y are calculated as follows:
*
*     index = SrcRef + OffsetInLineOfFirstWordToMove - StartingPointInRun
*
* where
*
*     OffsetInLineOfFirstWordToMove = FirstWord + 2
*
*     StartingPointInRun = 160 - NumBytesToMove
*
****************************************************************
	EXPORT fRazorMove
fRazorMove	PROC

	lda |2,x	; starts at 2 because 0 can never
	sta |2,y	; be moved this way
	lda |4,x
	sta |4,y
	lda |6,x
	sta |6,y
	lda |8,x
	sta |8,y

	lda |10,x
	sta |10,y
	lda |12,x
	sta |12,y
	lda |14,x
	sta |14,y
	lda |16,x
	sta |16,y
	lda |18,x
	sta |18,y

	lda |20,x
	sta |20,y
	lda |22,x
	sta |22,y
	lda |24,x
	sta |24,y
	lda |26,x
	sta |26,y
	lda |28,x
	sta |28,y

	lda |30,x
	sta |30,y
	lda |32,x
	sta |32,y
	lda |34,x
	sta |34,y
	lda |36,x
	sta |36,y
	lda |38,x
	sta |38,y

	lda |40,x
	sta |40,y
	lda |42,x
	sta |42,y
	lda |44,x
	sta |44,y
	lda |46,x
	sta |46,y
	lda |48,x
	sta |48,y

	lda |50,x
	sta |50,y
	lda |52,x
	sta |52,y
	lda |54,x
	sta |54,y
	lda |56,x
	sta |56,y
	lda |58,x
	sta |58,y

	lda |60,x
	sta |60,y
	lda |62,x
	sta |62,y
	lda |64,x
	sta |64,y
	lda |66,x
	sta |66,y
	lda |68,x
	sta |68,y

	lda |70,x
	sta |70,y
	lda |72,x
	sta |72,y
	lda |74,x
	sta |74,y
	lda |76,x
	sta |76,y
	lda |78,x
	sta |78,y

	lda |80,x
	sta |80,y
	lda |82,x
	sta |82,y
	lda |84,x
	sta |84,y
	lda |86,x
	sta |86,y
	lda |88,x
	sta |88,y

	lda |90,x
	sta |90,y
	lda |92,x
	sta |92,y
	lda |94,x
	sta |94,y
	lda |96,x
	sta |96,y
	lda |98,x
	sta |98,y



	lda |100,x
	sta |100,y
	lda |102,x
	sta |102,y
	lda |104,x
	sta |104,y
	lda |106,x
	sta |106,y
	lda |108,x
	sta |108,y

	lda |110,x
	sta |110,y
	lda |112,x
	sta |112,y
	lda |114,x
	sta |114,y
	lda |116,x
	sta |116,y
	lda |118,x
	sta |118,y

	lda |120,x
	sta |120,y
	lda |122,x
	sta |122,y
	lda |124,x
	sta |124,y
	lda |126,x
	sta |126,y
	lda |128,x
	sta |128,y

	lda |130,x
	sta |130,y
	lda |132,x
	sta |132,y
	lda |134,x
	sta |134,y
	lda |136,x
	sta |136,y
	lda |138,x
	sta |138,y

	lda |140,x
	sta |140,y
	lda |142,x
	sta |142,y
	lda |144,x
	sta |144,y
	lda |146,x
	sta |146,y
	lda |148,x
	sta |148,y

	lda |150,x
	sta |150,y
	lda |152,x
	sta |152,y
	lda |154,x
	sta |154,y
	lda |156,x
	sta |156,y
	lda |158,x
	sta |158,y

	EXPORT FEndOfChute
FEndOfChute		;       
	rtl

	ENDP



***************************************************************
*
* bRealFastCopy
*
* This is a low level pixel transfer routines.  It copies
* pixels from one scan line to another without shifting.
*
* This routine can only be used if no shifting is needed, the regions
* being clipped to are rectangular, and	there are at least 3 words
* (6 bytes) to move).
*
* This routine copies right to left.  fRealFastCopy copies from
* left to right.
*
****************************************************************
	EXPORT bRealFastCopy
bRealFastCopy	PROC
*              using CoreDATA


;-------------------------------------------------
;
; First, we copy the rightmost word in the
; line
;

	ldy DestFinishWord	; if start = finish
	lda [ScanMaskRef],y
	cmp #$FFFF
	beq FastWay2

	sta CombinedMask	; put in combined mask

	eor #$FFFF	; invert combined mask
	and (DestRef),y
	sta NotMaskAndDest

	ldy SrcFinishWord	; Get source word
	lda [SrcRef],y
	and CombinedMask	; and with combined	mask
	ora NotMaskAndDest	; merge with original part that stays
	ldy DestFinishWord
	sta (DestRef),y	; and store it.

	bra MoveMiddle

FastWay2		; 
	ldy SrcFinishWord
	lda [SrcRef],y
	ldy DestFinishWord
	sta (DestRef),y	; and store it.


;-------------------------------------------------
;
; Now we move the middle bytes.

MoveMiddle		; 

;-------------------------------------------------
;
; First I set up X to have a pointer to	the first
; word I'm going to move.
;
;    X = SrcRef + OffsetinLineOfFirstWordToMove - StartingPointInRun
;
;    X = SrcRef + SrcFinishWord - 2 -
;	(NumDestWords + 2 -	4)
;
;      = SrcRef + SrcFinishWord - 2 - NumDestWords - 2 + 4
;
;      = SrcRef + SrcStartWord - NumDestWords
;
; We must remember that NumDestWords is	difference of Last and
; first word so is off by 2!
;
;
	lda SrcRef
	clc
	adc SrcFinishWord
	sec
	sbc NumDestWords
	tax

;-------------------------------------------------
;
; Now I do it again	for Y.
;
	lda DestRef
	clc
	adc DestFinishWord
	sec
	sbc NumDestWords
	tay

;-------------------------------------------------
;
; Push RTL address on stack so can get back here.
;
	phk
	pea LeftMost-1

;-------------------------------------------------
;
; Figure out where in the move run we want to fall.
;
; We want to jump into the run
;
;    (NumDestWords + 2  - 4) * 3 bytes from the end of
;	              the chute
;
	lda NumDestWords	; Start with num dest words
	dec a	; subtract 2
	dec a
	pha	; put on stack
	asl a	; double
	adc 1,s	; add to stack so get 3 * that value

	eor #$FFFF	; invert it
	inc a
	clc	; add to end of chute minus one
	adc #bEndOfChute-1	; and do rts. Minus	one because
	sta 1,s	; rts works that way.
	rts


;-------------------------------------------------
;
; Last I do the left most word in the scan line
;
LeftMost		; 
	ldy DestStartWord	; if start = finish
	lda [ScanMaskRef],y
	cmp #$FFFF
	beq FastWay

	sta CombinedMask	; put in combined mask

	eor #$FFFF	; invert combined mask
	and (DestRef),y
	sta NotMaskAndDest

	ldy SrcStartWord	; Get source word
	lda [SrcRef],y
	and CombinedMask	; and with combined	mask
	ora NotMaskAndDest	; merge with original part that stays
	ldy DestStartWord
	sta (DestRef),y	; and store it.

	rtl

FastWay		; 
	ldy SrcStartWord
	lda [SrcRef],y
	ldy DestStartWord
	sta (DestRef),y	; and store it.

	rtl


	ENDP






****************************************************************
*
* The Other Razor Blade of Life
*
* This is an extreamly fast copy routine for moving up to 156
* bytes from one scan line to another (from right to left).
*
* X and Y are preset to be pointers into the scan lines
* and the calling routine jumps into the middle of this run.
*
* X and Y are calculated as follows:
*
*     index = SrcRef + OffsetInLineOfFirstWordToMove - StartingPointInRun
*
* where
*
*     OffsetInLineOfFirstWordToMove = LASTWord - 2
*
*     StartingPointInRun = NumBytesToMove
*
****************************************************************
	EXPORT bRazorMove
bRazorMove	PROC

	lda |158,x
	sta |158,y
	lda |156,x
	sta |156,y
	lda |154,x
	sta |154,y
	lda |152,x
	sta |152,y
	lda |150,x
	sta |150,y

	lda |148,x
	sta |148,y
	lda |146,x
	sta |146,y
	lda |144,x
	sta |144,y
	lda |142,x
	sta |142,y
	lda |140,x
	sta |140,y

	lda |138,x
	sta |138,y
	lda |136,x
	sta |136,y
	lda |134,x
	sta |134,y
	lda |132,x
	sta |132,y
	lda |130,x
	sta |130,y

	lda |128,x
	sta |128,y
	lda |126,x
	sta |126,y
	lda |124,x
	sta |124,y
	lda |122,x
	sta |122,y
	lda |120,x
	sta |120,y

	lda |118,x
	sta |118,y
	lda |116,x
	sta |116,y
	lda |114,x
	sta |114,y
	lda |112,x
	sta |112,y
	lda |110,x
	sta |110,y

	lda |108,x
	sta |108,y
	lda |106,x
	sta |106,y
	lda |104,x
	sta |104,y
	lda |102,x
	sta |102,y
	lda |100,x
	sta |100,y

	lda |98,x
	sta |98,y
	lda |96,x
	sta |96,y
	lda |94,x
	sta |94,y
	lda |92,x
	sta |92,y
	lda |90,x
	sta |90,y

	lda |88,x
	sta |88,y
	lda |86,x
	sta |86,y
	lda |84,x
	sta |84,y
	lda |82,x
	sta |82,y
	lda |80,x
	sta |80,y

	lda |78,x
	sta |78,y
	lda |76,x
	sta |76,y
	lda |74,x
	sta |74,y
	lda |72,x
	sta |72,y
	lda |70,x
	sta |70,y

	lda |68,x
	sta |68,y
	lda |66,x
	sta |66,y
	lda |64,x
	sta |64,y
	lda |62,x
	sta |62,y
	lda |60,x
	sta |60,y

	lda |58,x
	sta |58,y
	lda |56,x
	sta |56,y
	lda |54,x
	sta |54,y
	lda |52,x
	sta |52,y
	lda |50,x
	sta |50,y

	lda |48,x
	sta |48,y
	lda |46,x
	sta |46,y
	lda |44,x
	sta |44,y
	lda |42,x
	sta |42,y
	lda |40,x
	sta |40,y

	lda |38,x
	sta |38,y
	lda |36,x
	sta |36,y
	lda |34,x
	sta |34,y
	lda |32,x
	sta |32,y
	lda |30,x
	sta |30,y

	lda |28,x
	sta |28,y
	lda |26,x
	sta |26,y
	lda |24,x
	sta |24,y
	lda |22,x
	sta |22,y
	lda |20,x
	sta |20,y

	lda |18,x
	sta |18,y
	lda |16,x
	sta |16,y
	lda |14,x
	sta |14,y
	lda |12,x
	sta |12,y
	lda |10,x
	sta |10,y

	lda |8,x
	sta |8,y
	lda |6,x
	sta |6,y
	lda |4,x
	sta |4,y
	lda |2,x
	sta |2,y

	EXPORT bEndOfChute
bEndOfChute		;       
	rtl

	ENDP






	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/QD/text.asm b/IIGS.601.SRC/GSToolbox/QD/text.asm
new file mode 100644
index 0000000..7e83785
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/QD/text.asm
@@ -0,0 +1 @@
+	title 'QD Text              GS ROM 3.0'
****************************************************************
*			   *
*              TEXT			   *
*			   *
*
* Modification History
*
* pre Jan 89	Bennet and Steve did a whole buncha stuff!
*
* 2/20/89	Mensch
*
* First FastFont stuff done. Modified almost all the routines at least
* a little.
* 
* 2/24/89	Mensch
*
* Fixed bugs in fastfont clipping and drawing. CalcGood drawstatus
* now returns a little more info!
*
*
* 12 Mar 89	Steven Glass
*
* Changed MakeFastFontInfo called by JSL instead of JSR so 
* can be used easily in patch file.
*
* 4/7/89	Mensch
* Made fastfont routines add spExtra and chExtra when calculating the
* width of a character. NOTE: the routine now uses a new zpage value
* called fastbucket, which is aliased over a variable used to apply styling.
*
* 4/10/89	Mensch
*
* God, how I hate mondays! Fixed a really stupid bug in fastfonts that
* caused 2 pixels to be added when spextra only indicated 1. Geez, I am
* a total spaz, I am so embarassed that I screwed up the build that I will leave
* this comment like this for future programmers to see my shame!
*
* 4/24/89	Mensch
* Fixed yet another bug with mono-spacing. That feature is dangerous and should 
* be removed (especially since it is only used by bone headed programmers!
*
* 27-Nov-91	Dave Lyons
*
* Changed InflateTextBuffer to return errors it gets while resizing
* the text buffers (including QD Aux's buffers).
*
* 3-Dec-91	Dave Lyons
*
* Finished fixing above--on failure, it needs to restore a few direct page
* locations, so we don't think the buffer has been inflated when it hasn't.
* (Since QuickDraw Aux chains in *after* the main QD buffer-resize routines,
* QD already decided it was okay to store the new buffer size values when
* QD Aux found it could not resize its buffers, so we have to undo the damage.)
*
****************************************************************


****************************************************************
*			   *
*	Copyright (C) 1985-1989,1991	   *
*	All Rights Reserved		   *
*	Apple Computer, Inc.	   *
*			   *
****************************************************************

	blanks off
	string asis

	include 'all.macros'
	
	
	macro
	macswitch
	mend

	MACRO
&lab	IncLong &adr
&lab	inc &adr
	bne @1
	inc &adr+2
@1
	mend
	
	
	
	include ':QDEquates:qd.data.asm'

	INCLUDE ':QDEquates:core.globals1'
	INCLUDE ':QDEquates:core.globals2'
	INCLUDE ':QDEquates:region.equs'
	INCLUDE ':QDEquates:TextEquates'
	INCLUDE ':QDEquates:fontequs'






;------------------------------------------
;
; Equates from procedure iSetUpFontInfo
;
;------------------------------------------
fbrExtent	equ fRectMax

;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

	IMPORT BusyEC
	IMPORT BusyEC0
	IMPORT BusyEC10
	IMPORT BusyEC2
	IMPORT BusyEC4
	IMPORT BusyEC6
	IMPORT BusyEC8
	IMPORT ConTable320
	IMPORT ConTable640
	IMPORT ExtendColorWord
	IMPORT QDStart
	IMPORT ShiftOut
	IMPORT ShiftStay
	IMPORT SystemFont
	IMPORT TestGPs
	IMPORT leftBitMask
	IMPORT rightBitMask

;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

	ENTRY CallText
	ENTRY CallTxBounds
	ENTRY CallWidth
	ENTRY FastBigLoop
	ENTRY GetFL
	ENTRY GetRFRec
	ENTRY InflateTB
	ENTRY SlowBigLoop
	ENTRY StuffBig0320
	ENTRY StuffBig0640
	ENTRY StuffBig1320
	ENTRY StuffBig1640
	ENTRY StuffBig2320
	ENTRY StuffBig2640
	ENTRY StuffBig3320
	ENTRY StuffBig3640
	ENTRY StuffBig4320
	ENTRY StuffBig4640
	ENTRY StuffBig5320
	ENTRY StuffBig5640
	ENTRY StuffBig6320
	ENTRY StuffBig6640
	ENTRY StuffBig7320
	ENTRY StuffBig7640
	ENTRY WCString
	ENTRY WChar
	ENTRY WText
	ENTRY iBCString
	ENTRY iBChar
	ENTRY iBText
	ENTRY iDCString
	ENTRY iDChar
	ENTRY iDText

;
;                copy text/TextWidthCalls
****************************************************************
*
* CharWidth
*              Char	    word (input)
*              Width    word (output)
*
*
****************************************************************
	EXPORT CharWidth
CharWidth	PROC
*              USING PicInfo
OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
theChar	equ RTL2+3
resultWidth	equ theChar+2

	jsr QDStart

	lda TheChar,s
	and #$00FF	; added 2/10/89 mensch
	sta charToDraw	; Hey bennet make this right

	lda #DrawCharVerb
	jsl CallWidth

	lda TheWidth
	sta ResultWidth,s

	jmp BusyEC2

	ENDP
****************************************************************
*
* StringWidth
*              StringPtr     long (input)
*              Width         word (output)           
*
****************************************************************
	EXPORT StringWidth
StringWidth	PROC
*              USING PicInfo
OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
StrPtr	equ RTL2+3
resultWidth	equ StrPtr+4

	jsr QDStart


* Make this look just like DrawText

	lda StrPtr,s	; bennet will make these use
	sta TextPtr	; the right names
	lda StrPtr+2,s
	sta TextPtr+2
	lda [TextPtr]
	and #lowByte
	sta TextLength
	IncLong TextPtr

	lda #DrawTextVerb
	jsl CallWidth
	lda theWidth
	sta resultWidth,s
	jmp BusyEC4

	ENDP


****************************************************************
*
* TextWidth
*              PtrToText : long (input)
*              TextLength : word (input)
*              Width:  word (output)
*
*
****************************************************************
	EXPORT TextWidth
TextWidth	PROC
*              USING PicInfo
OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
TheTextLength	equ RTL2+3
TheTextPtr	equ TheTextLength+2
resultWidth	equ theTextPtr+4

	jsr QDStart

	lda TheTextPtr,s
	sta TextPtr
	lda TheTextPtr+2,s
	sta TextPtr+2
	lda TheTextLength,s
	sta TextLength

	lda #DrawTextVerb
	jsl CallWidth
	lda theWidth
	sta resultWidth,s
	jmp BusyEC6

	ENDP



****************************************************************
*
* CStringWidth
*              CStrPtr : long (input)
*              Width:  word (output)
*
*
****************************************************************
	EXPORT CStringWidth
CStringWidth	PROC
OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
CStrPtr	equ RTL2+3
resultWidth	equ CStrPtr+4

	jsr QDStart

	lda CStrPtr,s
	sta TextPtr
	lda CStrPtr+2,s
	sta TextPtr+2


	lda #DrawCStrVerb
	jsl CallWidth
	lda theWidth
	sta resultWidth,s
	jmp BusyEC4

	ENDP




****************************************************************
*
* CallWidth
*
* This routine called by the entry points standard
* text inputs are on zero page.
*
* Zero page is already switched in by the time it gets here.
*
****************************************************************
	EXPORT CallWidth
CallWidth	PROC
*              using CoreDATA
*              using PicInfo
*              using QDProcs
*              using E0Vectors

	sta DrawVerb

	jsr TestGPs	; if there is a gp pointer
	bcs UseLocal

	jml StdTxMeas


UseLocal	phb	; put extra byte on	stack
	ldy #o_stdTxMeas	; get adr of new text width routine
	lda [temp],y	; put on stack
	pha
	iny	; get bytes 2 and 3
	lda [temp],y
	sta 2,s	; store middle byte	twice
	rtl	; call it

	ENDP


****************************************************************
*
* StdTxMeas
*
* Common text measuring routine that is	central point for
* all text measuring routines.
*
* When control gets	here, all inputs are on zero page.
*
* There are lots of	possiblities as to what they are.  And the
* Draw verb is what	tells us what to do.
*
*       For CharWidth
*               char is on zp at charToDraw
*
*       For TextWidth
*               pointer is on zp
*               length is on zp
*
*       For CStringWidth
*               pointer is on zp
*
****************************************************************
	EXPORT iStdTxMeas
iStdTxMeas	PROC
;soon to be iStdTxMeas
*              using CoreDATA
*              using PicInfo
*              using QDProcs

	lda DrawVerb	; put verb in a
	asl a
	tax
	jmp (DoWidthTable,x)

DoWidthTable		; 
	DC.W WChar
	DC.W WText
	DC.W WCString

	ENDP
****************************************************************
*
* WChar
*
****************************************************************
	EXPORT WChar
WChar	PROC
*              USING E0Vectors
*              USING CoreData
;
	lda #0	; use old font info
	jsl SetUpFontInfo
	jsl ValidChar
	and #lowByte
	sta theWidth
;
;
	rtl

	ENDP



****************************************************************
*
* WText
*
*
****************************************************************
	EXPORT WText
WText	PROC
	EXPORT WCString
WCString		;       
*              USING E0Vectors
*              USING CoreData
;
	stz currPen
;
	jsl GetNextChar
	bcs NullString
;
	lda #0	; use old font info
	jsl SetUpFontInfo
	jsl BumpPen
;
;
NullString		; 
	lda currPen
	sta theWidth
	rtl
;
	ENDP
;
;                copy text/TextDrawCalls
****************************************************************
*
* DrawChar
*              Char	    word
*
*
****************************************************************
	EXPORT DrawChar
DrawChar	PROC
*              USING PicInfo
OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
TheChar	equ RTL2+3

	jsr QDStart

	lda TheChar,s
	sta charToDraw

	lda #DrawCharVerb
	jsl CallText
	jmp BusyEC2

	ENDP

****************************************************************
*
* DrawString
*              StringPtr     long
*
****************************************************************
	EXPORT DrawString
DrawString	PROC
*              USING PicInfo
OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
StrPtr	equ RTL2+3

	jsr QDStart

	lda StrPtr,s	; bennet will make these use
	sta TextPtr	; the right names
	lda StrPtr+2,s
	sta TextPtr+2
	lda [TextPtr]
	and #lowByte
	sta TextLength
	IncLong TextPtr

	lda #DrawTextVerb
	jsl CallText
	jmp BusyEC4

	ENDP


****************************************************************
*
* DrawText
*              PtrToText : long
*              TextLength : word
*
*
****************************************************************
	EXPORT DrawText
DrawText	PROC
*              USING PicInfo
OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
TheTextLength	equ RTL2+3
TheTextPtr	equ TheTextLength+2

	jsr QDStart

	lda TheTextPtr,s
;
	sta TextPtr
	lda TheTextPtr+2,s
	sta TextPtr+2
	lda TheTextLength,s
	sta TextLength

	lda #DrawTextVerb
	jsl CallText
	jmp BusyEC6

	ENDP


****************************************************************
*
* DrawCString
*              CStrPtr : long
*
*
****************************************************************
	EXPORT DrawCString
DrawCString	PROC
OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
CStrPtr	equ RTL2+3

	jsr QDStart

	lda CStrPtr,s
	sta TextPtr
	lda CStrPtr+2,s
	sta TextPtr+2


	lda #DrawCStrVerb
	jsl CallText
	jmp BusyEC4

	ENDP




****************************************************************
*
* CallText
*
* This routine called by the entry points standard
* text inputs are on zero page.
*
* Zero page is already switched in by the time it gets here.
*
****************************************************************
	EXPORT CallText
CallText	PROC
*              using CoreDATA
*              using PicInfo
*              using QDProcs
*              using E0Vectors

	sta DrawVerb

	jsr TestGPs	; if there is a gp pointer
	bcs UseLocal

	jml StdText


UseLocal	phb	; put extra byte on	stack
	ldy #o_stdtext	; get adr of new text routine
	lda [temp],y	; put on stack
	pha
	iny	; get bytes 2 and 3
	lda [temp],y
	sta 2,s	; store middle byte	twice
	rtl	; call it

	ENDP


****************************************************************
*
* StdText
*
* Common text routine that is central point for
* all text drawing routines.
*
* When control gets	here, all inputs are on zero page.
*
* There are lots of	possiblities as to what they are.  And the
* Draw verb is what	tells us what to do.
*
*       For DrawChar
*               char is on zp at charToDraw
*
*       For DrawText
*               pointer is on zp
*               length is on zp
*
*       For DrawCString
*               pointer is on zp
*
****************************************************************
	EXPORT iStdText
iStdText	PROC
*              using CoreDATA
*              using PicInfo
*              using QDProcs
*              using E0Vectors

	lda #TextNoun
	jsl PutPictStuff	; inputs on zp and in a-reg

	lda DrawVerb	; put verb in a
	asl a
	tax
	jmp (DoTextTable,x)

DoTextTable		; 
	DC.W iDChar
	DC.W iDText
	DC.W iDCString
	ENDP

*****************************************
*		*
*  current date and	time:	*
*    11:30 AM, 5/2/86	*
*		*
*****************************************
;
*******************************************************************************
*			                  *
*              subroutine DChar		                  *
*			                  *
*		started 4/2/86 or before              *
*		Bennet Marks x6245	                  *
*			                  *
*  ABSTRACT:  this is the framing routine which is used by DrawChar to draw a *
*  character into the current grafport's pixelmap.  It does everything that   *
*  DrawChar wants -	see external documentation.	                  *
*			                  *
*  ASSUMPTIONS:  Very few.  QD II must be active.  The character to be drawn  *
*  must be in charToDraw.  That kind of	thing.	                  *
*			                  *
*  RETURNS:  pnLoc.H in the current grafport is increased by the character    *
*  width, whether or not the character was actually drawn.	                  *
*			                  *
*  ALTERS:  most if	not all of the QD II globals may be changed by this rou-  *
*  tine.			                  *
*			                  *
*  NOTES:  DBR is preserved.		                  *
*			                  *
*  DChar returns with an RTL.		                  *
*			                  *
*******************************************************************************
;
*****************************************
*		*
*  V.0.1.0 - 4/2/86		*
*    changed for style mods - 5/2/86,	*
*    BHM		*
*		*
*****************************************
;
	EXPORT iDChar
iDChar	PROC
	Import fastPutChar
*              using E0Vectors
*              using CoreData
;
	jsl PortLoc2ZP	; bring down the dest info
	jsl SetUpPortRegions

	lda #-1	; flag that says its ok to use fastfont info...
	jsl SetUpFontInfo
	ldy #(O_pnLoc+O_H)
	lda [portRef],y	;pnLoc.H
	sta currPen
;
	jsl CalcDrawStatus	;check for invis. pen or null minRect
	bcc GoodDrawStatus
;bad draw status:
; or, bad fast character, both go here!
	jsl ValidChar
	and #lowByte	;get character width
	clc
	adc currPen	;add to current pen
	ldy #(O_pnLoc+O_H)
	sta [portRef],y	;and replace in grafport
	bra BadDrawStatus
;
; This is where we fall when you have a bad fastDrawStatus
;
GoodDrawStatus		; 
;
; Modified 2/10/89
; This tests for fast font routines...
; first test the high bit of the font handle to see if it is set,
; if it is, we will call the fast text routines!
	php
	bit <fontFlags
	bvs @stillfast
	plp
	bra iDCharOldWay
@StillFast	plp
;	ldy #O_Font+2
;	lda [<PortRef],y	; get the high word of the font handle...
;	bpl iDCharOldWay	; if clear, forget this next stuff
	bvc BadFastChar	; if overflow clear the regions aren't rects...
	brl tryFastChar	; try drawing the character the fast way...
;
; This is the alternate entry to draw a character the old way!
BadFastChar
	lda #0
	jsl SetUpFontInfo	; set up the original fonts info...
; and drop right thru to the good draw routine...
	Export iDCharOldWay
iDCharOldWay
;
****  ADDED 3/10/87	TO USE USE CALCSLOP
;
	jsl CalcSlop
;
;now SetUpBufInfo can use the slop value
;
***  END OF CHANGE - BHM  x6245
;
	jsl SetUpBufInfo
	jsl PutChar
	lda bufPen	;final pen position, buffer coords
	clc
	adc hBufToLoc	;switch to local
	ldy #(O_pnLoc+O_H)
	sta [portRef],y
;
	jsl StyleText	;perform style mods, if needed
;get intersection of active text buffer	and minRect:
	jsl TextAndMinRect
	bcs NullInt	;intersection was null
;no, it wasn't:
	jsl CalcTextBounds	;get parameters for	transfer
	jsl BlowItUp	;transfer into destination pixelmap
;
NullInt		; 
	jsl CleanUpBuffer
;
BadDrawStatus		; 
;
	jsl FreePortRegions
	rtl
;
;
; NEW: this is the faster drawchar routine, this routine will test to see that the
; char we want to draw can be drawn into the current minrect, if not, we bag it
; and do it the old way!
tryFastChar
; Create a character rectangle in local coordinants now...

	ldy #o_PnLoc+o_V	; offset to pen loc.v
	lda [<portRef],y
	clc	; set to add an extra 1
	adc <descent	; add the fonts descent to this value
	cmp <MinRect+o_V2	; see if we are within bounds...
	beq @1
	bpl notWhole	; this is the bottom
@1
	sta <MinRect+o_V2
; NOTE: this next subtract RELY's on the carry being clear from above compare!
	sec
	sbc <descent	; now create the top of our character rectangle
	sbc <ascent	; by subtracting the character ascent and decsent
	sta <charRect+o_V1
	cmp <MinRect+o_V1	; see if we are too high
	bmi notWhole
	sta <MinRect+o_V1
	lda <CurrPen	; offset to penloc.H
	sta <charRect+o_H1	; make this the right edge
	cmp <MinRect+o_H1
	bmi NotWhole
	sta <MinRect+o_H1
; now get the right edge...
	jsl validChar	; get the width of the character
	cmp #13	; see if its too big...
	blt @2
	lda #12	; max char width = 12...
@2
	clc
	sta <theWidth	; save the width of this character
	adc <charRect+o_H1
	cmp <MinRect+o_H2
	bpl notWhole
	sta <minRect+o_H2
	bra goFast	; if we get this far, we can do the fast drawing
notWhole	brl badFastChar	; if not whole, just do it the old way...
;
; If we get this far, then we can go the fast way!
goFast
; we must now convert our rectangle to 'global' locinfo coordinants
; we do this by first creating an 'offset' to add to our rectangle... NOTE: this now only
; operates on the top left
	
	lda <charRect+o_V1
	sec
	sbc <boundsRect+o_V1
	sta charRect+o_V1
	bmi notWhole	; if this is negative, somethings wrong..
	
	lda <charRect+o_H1
	sec
	sbc <boundsRect+o_H1
	sta charRect+o_H1
	bmi notWhole	; if this is negative, somethings wrong..

; now that I have the proper offset for the character, I will compute the characters
; location in memory based on the locinfo record...
;
; IMPORTANT for improved drawing we must now call shield cursor!
; NOTE MinRect now contains our character rectangle!
	jsl ShieldCursor	; and shield the cursor now!

	stz <fastLineStat

	lda <width
	cmp #$00A0	; special case for screen port rects
	bne @doMult1
	lda charRect+o_V1	; get the character rectangle top
	cmp #400	; see if we rolled over the top of the mult below
	bge @DoMult2
	asl a	; multiply it by 32 first..
	asl a
	asl a
	asl a
	asl a
	sta Mult1
	asl a
	asl a
	clc
	adc Mult1
	ldx #0
	bra @DoMult3
@DoMult2	lda <width
@DoMult1	sta Mult2	; save it for the multiply
	lda charRect	; get the v1 coordinant
	sta Mult1
	jsr DoMultiply	; multiply these two numbers
@DoMult3
; once we have it this far, we can create the address of the starting scan line to 
; draw upon...
	adc <imageRef	; add to the base image reference
	sta destRef	; save this for a second...
	txa
	adc <imageRef+2	; and create the high word
	sta destRef+2

	lda <CharRect+o_H1	; now compute the offset into destref
	lsr a	; divide this by 4(pixels per byte)
	lsr a
	clc	; and add it in creating our final offset
	adc destRef
	sta destRef
	bcc @1
	inc destRef+2
@1
;
; Added notes: the following is called from
	export DrawOneFromaLine
DrawOneFromaLine

; Now bump the point to reflect the new position
	lda <theWidth
; DRAT big bug here, didn't have the carry clear so text was a little longer than it
; should have been when using spExtra! this has been curred! (Now I clear the carry)
	clc	; clear the carry, valid char no longer does this
	adc <currPen
	sta <currPen
;
; This can be called if lines calc <currpen for us...
;
; and now deref points to the proper scan line and create the proper shifting info

	lda <CharRect+o_H1	; now compute the initial offset and shift value
	and #$0003	; get the shift over value...
	bne @MustShift	; see if we must do any shifting
	stz <shiftInfo	; zero out shift info...
; Ignore the left mask, unused...
; NOTE: we also don't have to do those funky shifts that we had to do below
	adc <theWidth	; add the width
	and #$0007	; only need the last 3 bits
	asl a	; to create the right mask...
	tax
	lda >rMaskTbl,x
	sta <FastMaskRight
; now copy the strike pointer...
	lda <charToDraw	; get the character to draw
	asl a	; create the table offset
	adc #$0100	; add 100 since the table is offset by that much
	tay	; use this as an index
	lda [<fastHeadPtr],y
	adc <fontStrike1	; get the low word
	sta <srcRef	; and save this as our source reference
	lda <fontStrike1+2
	sta <srcRef+2
	bcc @12
	inc SrcRef+2
@12
;
;	lda <fontStrike1	; get the low word
;	sta <srcRef	; and save this as our source reference
;	lda <fontStrike1+2
;	sta <srcRef+2
	bra @NoShiftReEntry
@MustShift
; If we get here we must have had to do a buncha shifting...
	sta <shiftinfo
	asl a	; and save it...
	tax	; now use it as a table offset
	lda >lMaskTbl,x
	sta <fastMaskLeft
	txa
	lsr a	; get the shift offset back again
	adc <theWidth	; add the characters width...
	and #$0007	; we are only interested in the last 3 bits...
	asl a	; multiply by 2 for a table offset
	tax	; put x into <A>
	lda >rMaskTbl,x	; and get the right mask...
	sta <fastMaskRight
;
	lda <shiftInfo	; but first, multiply our offset by 2 again
	asl a	; cuase this is a table of ptrs...
	asl a
	tax
	lda <charToDraw	; get the character to draw
	asl a	; create the table offset
	adc #$0100	; add 100 since the table is offset by that much
	tay	; use this as an index
	lda [<fastHeadPtr],y
	adc <fontStrike1,x	; get the low word
	sta <srcRef	; and save this as our source reference
	lda <fontStrike1+2,x
	sta <srcRef+2
	bcc @1
	inc SrcRef+2
@1
;
; Now finish creating our destination pointer...
@NoShiftReEntry
;	lda <CharRect+o_H1	; now compute the offset into destref
;	lsr a	; divide this by 4(pixels per byte)
;	lsr a
;	clc	; and add it in creating our final offset
;	adc destRef
;	sta destRef
;	bcc @1
;	inc destRef+2
;@1
; At this point deref now points us to the final offset in the grafport to draw our
; character. Now we need to do some character stuff...

; and bump our source ref to reflect the character offset...
;
; NOTE: with the new fast font record, we could change this!, it would become...
;
;	lda <charToDraw	; get the character to draw
;	asl a	; create the table offset
;	adc #$0100	; add 100 since the table is offset by that much
;	tay	; use this as an index
;	lda [<fastHeadPtr],y
;	adc <srcRef	; add it to the source ref
;	sta <srcRef
;	bcc @100
;	inc <srcRef+2
;@100
; We now have srcref set up to point to the character to draw, destref set up
; to point to the location to start drawing it. maskright and maskleft set to
; the proper masking for the edges, theWidth set to the character width and
; shiftinfo set to the number of pixels *2 to shift, now with all that set we can
; call fastputchar
	jsr fastputChar
	lda <fastLineStat	; test to see if we are drawing a fast line
	bne endForLine
	lda <currPen	; update currPen properly...
	ldy #o_PnLoc+o_H
	sta [<portRef],y
	jsl UnShieldCursor	; turn the cursor back on again
	brl BadDrawStatus	
EndForLine	rts
	Export MakeFastFontInfo
	Export MakeFastFontInfo2
MakeFastFontInfo

	ldy #o_Font	; first load and deref the font handle
	lda [<portRef],y	; get the font handle
	sta <fontHeadPtr
	iny
	iny
	lda [<portRef],y
	sta <fastHeadPtr+2
MakeFastFontInfo2
	ldy #2
	lda [<fastHeadPtr],y
	tax
	lda [<fastHeadPtr]
	sta <fastHeadPtr
	txa
	ora #$8000
	sta <fastHeadPtr+2
	tax
	lda <fastHeadPtr	; A and X now contain the pointer to our data

; create the 4 font strike pointers here
	clc	; now offset to the first strike...
	adc #o_FFEndOfTables
	bcc @1
	inx
	clc
@1	
	stx <fontStrike1+2
	sta <fontStrike1
	
	ldy #o_StrikeSize	; and create the other 3 pointers...
	adc [<fastHeadPtr],y
	bcc @2
	inx
	clc
@2
	stx <fontStrike2+2
	sta <fontStrike2

	adc [<fastHeadPtr],y
	bcc @3
	inx
	clc
@3
	stx <fontStrike3+2
	sta <fontStrike3

	adc [<fastHeadPtr],y
	bcc @4
	inx
	clc
@4
	stx <fontStrike4+2
	sta <fontStrike4

;
; Now set up the rest of the font info here so we can use it!
	ldy #o_ffAscent
	lda [<fastHeadPtr],y
	sta <Ascent
	ldy #o_ffDescent
	lda [<fastHeadPtr],y
	sta <descent
	ldy #o_FFrowBytes
	lda [<fastHeadPtr],y
	sta <rowBytes
	ldy #o_FFMaxWidth
	lda [<fastHeadPtr],y
	sta <widMax

; now set fast head ptr to point to the width table!
	lda <fastHeadPtr
	clc
	adc #o_FFSizeofVars
	sta <fastHeadPtr
	bcc @5
	inc <fastHeadPtr+2
@5
; use the following once we need it!
	rtl
;
; Fast multiply routine, just in case I need it for something!
;
	Export DoMultiply
DoMultiply
	ldx #0	; init our carry over area
	lda #0
dm0010	lsr Mult1	; shift for first test
	beq dmLastOne	; handle the last multiply
	bcc dm0020
	clc
	adc Mult2
	bcc dm0020	; if carry clear we didn't role the bank yet..
	inx	; if carry set, role the bank!
dm0020	asl Mult2
	bra dm0010
dmLastOne	bcc done
	clc
	adc Mult2
	bcc done	; carry clear no bank role
	inx
done	
;	sta Mult1	; turns out wo don't need to save em..
;	stx Mult2
	rts
	
lMaskTbl	dc.W $FFFF
	dc.W $FF3F
	dc.W $FF0F
	dc.W $FF03
rMaskTbl	dc.W $FFFF	; this table is gonna be a bit bigger...
	dc.W $00C0	; 1 pixel
	dc.W $00F0
	dc.W $00FC
	dc.W $00FF
	dc.W $C0FF
	dc.W $F0FF
	dc.W $FCFF

	ENDP

	EJECT
*******************************************************************************
*
FastPutChar	PROC Export
*
* Description:	This routine draws a character to the current grafport
*	as fast as its little legs can make it do it!
* Setup
* SrcRef - Set to the character to draw's offset into the proper strike
* destRef- Set to the grafports destination location
* maskleft & maskRight - set for masking the characters properly
* theWidth - set to the current characters width
* shiftInfo - set to number of pixels to shift *2
*
*
*******************************************************************************
; first test to see if we need any right mask...
	lda <ascent	; get the proper number of 
	clc	; lines to draw+1
	adc <descent
	sta <CharToDraw	; and use it as our counter
; NOTE: we can blow away char to draw now!

	phb	; save the current data bank
	pei <destRef+1	; get the source ref bank
	plb
	plb	; and get the destination bank number..
	lda <fastMode	; get the mode
	cmp #$0004
	bne @modeCopy
	brl FastModeForeCopy
@ModeCopy
	lda <shiftInfo
	bne needBothMasks
	lda <theWidth
	adc #7
	lsr a	; compute the number of words to copy
	lsr a
	lsr a
	cmp #4	; if its greater than 3 words, use long way
	bge theLongWay	; gotta use the long way here!
	asl a	; use as table offset...
	tax	; use it # bytes as a table lookup
	jsr (rMaskOnly,x)	; and jump to the proper routine
rMaskOnly0	plb
	rts
; table of routines that copy the data using only the right mask...
rMaskOnly
	dc.W rMaskOnly0	; can never happen... but
	dc.W rMaskOnly2	; a whole word...
	dc.W rMaskOnly4	; 2 words...
	dc.W rMaskOnly6

needBothMasks
	lda <shiftInfo	; get the shift info back...
	clc
	adc <theWidth	; and create the number of pixels to xfer..
	adc #7
	lsr a	; compute the number of words to copy
	lsr a
	lsr a
	cmp #4	; if its greater than 3, use long way
	bge theLongWay	; may as well use bofth masks!
	asl a	; use as table offset...
	tax	; use it # bytes as a table lookup
	pei <fastMaskLeft	; save this
	jsr (bothMaskTbl,x)	; and jump to the proper routine
bMask0	pla
	sta <fastMaskLeft
	plb
	rts

bothMaskTbl
	dc.W bMask0	; can never happen... but
	dc.W bMask2
	dc.W bMask4
	dc.W bMask6
;
; The next routine is the routine that will copy the character to the screen 
; the long way... its kinda slow, but hey, why are you using such wide characters?
theLongWay
	asl a	; multiply by 2...
	sbc #1	; carry is set, subtract 2 from this...
	sta <theWidth	; save width in bytes of the character...

	lda [<srcRef]	; get the first word to slam...
	eor (<destRef)
	and <fastMaskLeft	; do the first word...
	eor (<destRef)
	sta (<destRef)

	ldy #2
@Loop
	lda [<srcRef],y	; get the first word to slam...
	sta (<destRef),y
	iny
	iny
	cpy <theWidth	; are we there yet???
	blt @loop	; if not, do another 2...

	lda [<srcRef],y	; get the first word to slam...
	eor (<destRef),y
	and <fastMaskright	; do the last word...
	eor (<destRef),y
	sta (<destRef),y


	dec <charToDraw	; decrement our counter...
	beq @Done
;
; bump our counters...

	lda <width
	clc
	adc <destRef
	sta <destRef
	bcc @1
	jsr BumpBank	; bump the data bank and clear the carry
@1	lda <RowBytes
	adc <srcRef
	sta <srcRef
	ldy #0
	bra @Loop

@Done	plb
	rts	; and exit

;
; This is the start of all our special case routines...
; strap in, they are pretty long and fast...
rMaskOnly2
	ldx <CharToDraw
@loop
	lda [<srcRef]
	eor (<destRef)
	and <fastMaskRight
	eor (<destRef)
	sta (<destRef)
	dex
	beq @Done
	lda <width
	adc <destRef
	sta <destRef
	bcc @1
	jsr BumpBank	; bump the data bank and clear the carry
@1	lda <RowBytes
	adc <srcRef
	sta <srcRef
	bcc @2
	inc srcRef+2
	clc
@2
	bra @loop
@Done	rts

;
; This routine slams 4 bytes applying the left mask to the final word
; 
rMaskOnly4
	ldx <CharToDraw
	ldy #2
@Loop
	lda [<srcRef]	; get the first word to slam...
	sta (<destRef)	; and slam it out...

	lda [<srcRef],y
	eor (<destRef),y
	and <fastMaskRight
	eor (<destRef),y
	sta (<destRef),y

	dex
	beq @Done
	lda <width
	adc <destRef
	sta <destRef
	bcc @1
	jsr BumpBank	; bump the data bank and clear the carry
@1	lda <RowBytes
	adc <srcRef
	sta <srcRef
	bcc @2
	inc srcRef+2
	clc
@2
	bra @Loop

@Done	rts	; and exit

;
; This routine slams 6 bytes applying the left mask to the final word
; 
rMaskOnly6
	ldx <CharToDraw

@Loop	ldy #2
	lda [<srcRef]	; get the first word to slam...
	sta (<destRef)	; and slam it out...
	lda [<srcRef],y
	sta (<destRef),y
	ldy #4
	lda [<srcRef],y
	eor (<destRef),y
	and <fastMaskRight
	eor (<destRef),y
	sta (<destRef),y
	dex
	beq @Done
	lda <width
	adc <destRef
	sta <destRef
	bcc @1
	jsr BumpBank	; bump the data bank and clear the carry
@1	lda <RowBytes
	adc <srcRef
	sta <srcRef
	bcc @2
	inc srcRef+2
	clc
@2
	bra @Loop

@Done	rts	; and exit

bMask2
	lda <fastMaskRight
	and <fastMaskLeft
	sta <FastMaskRight
	brl rMaskOnly2	; and reuse some code...
;
; This routine slams 4 bytes applying the left mask and right mask to the final word
; 
bMask4
	ldx <CharToDraw
	ldy #2
@Loop
	lda [<srcRef]	; get the first word to slam...
	eor (<destRef)
	and <fastMaskLeft
	eor (<destRef)
	sta (<destRef)

	lda [<srcRef],y
	eor (<destRef),y
	and <fastMaskRight
	eor (<destRef),y
	sta (<destRef),y
	dex
	beq @Done
	lda <width
	adc <destRef
	sta <destRef
	bcc @1
	jsr BumpBank	; bump the data bank and clear the carry
@1	lda <RowBytes
	adc <srcRef
	sta <srcRef
	bcc @2
	inc srcRef+2
	clc
@2
	bra @Loop

@Done	rts	; and exit

;
; This routine slams 6 bytes applying the both masks to the final word
; 
bMask6
	ldx <CharToDraw

@Loop	ldy #2
	lda [<srcRef]	; get the first word to slam...
	eor (<destRef)
	and <fastMaskLeft
	eor (<destRef)
	sta (<destRef)

	lda [<srcRef],y
	sta (<destRef),y
	ldy #4
	lda [<srcRef],y
	eor (<destRef),y
	and <fastMaskRight
	eor (<destRef),y
	sta (<destRef),y
	dex
	beq @Done
	lda <width
	adc <destRef
	sta <destRef
	bcc @1
	jsr BumpBank	; bump the data bank and clear the carry
@1	lda <RowBytes
	adc <srcRef
	sta <srcRef
	bcc @2
	inc srcRef+2
	clc
@2
	bra @Loop

@Done	rts	; and exit
;
; This routine bumps the bank of the destination we are using 
bumpBank
	phb	; push the current bank
	pla
	inc a
	pha
	plb
	clc
	rts

FastModeForeCopy
; The next routine is the routine that will do a pseudo fast modeForecopy of
; all the words in our character
; its kinda slow, but hey, why are you using modeForeCopy?
	lda <shiftInfo	; get the shift info back...
	bne @maskOK
	dec a
	sta <fastMaskLeft
	inc a
@MaskOK
	clc
	adc <theWidth	; and create the number of pixels to xfer..
	adc #7
	lsr a	; compute the number of words to copy
	lsr a
	lsr a
	asl a	; multiply by 2...
	sbc #1	; carry is set, subtract 2 from this...
	sta <theWidth	; save width in bytes of the character...
	lda <fastMaskLeft	; convert the left mask
	eor #$FFFF	; by inverting it...
	sta <fastMaskLeft

	lda <fastMaskRight	; convert the left mask
	eor #$FFFF	; by inverting it...
	sta <fastMaskRight

; Start the loop here!
@outerLoop
	ldy #2
	lda <theWidth
	cmp #2	; are we doing 2 words or less
	bge @cont
; modeforecopy 1 word...
	lda [<srcRef]	; get the first word to slam...
	ora <fastMaskLeft
	ora <fastMaskRight
	and (<destRef)
	sta (<destRef)
	bra @drawCont

@cont	bne @cont2
	
	lda [<srcRef]	; get the first word to slam...
	ora <fastMaskLeft
	and (<destRef)
	sta (<destRef)

	bra @DoLastWord
@Cont2
	lda [<srcRef]	; get the first word to slam...
	ora <fastMaskLeft
	and (<destRef)
	sta (<destRef)
@Loop
	lda [<srcRef],y	; get the first word to slam...
	and (<destRef),y	; do the modeforecopy and
	sta (<destRef),y
	iny
	iny
	cpy <theWidth	; are we there yet???
	blt @loop	; if not, do another 2...
@DoLastWord
	lda [<srcRef],y	; get the first word to slam...
	ora <fastMaskright	; do the last word...
	and (<destRef),y
	sta (<destRef),y
@DrawCont

	dec <charToDraw	; decrement our counter...
	beq @Done
;
; bump our counters...

	lda <width
	clc
	adc <destRef
	sta <destRef
	bcc @1
	jsr BumpBank	; bump the data bank and clear the carry
@1	lda <RowBytes
	adc <srcRef
	sta <srcRef
	bcc @2
	inc <srcRef+2
	clc
@2
	brl @outerLoop

@Done	plb
	rts	; and exit


	EndP
*****************************************
*		*
*  end of DChar		*
*		*
*****************************************
;
;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;
*****************************************
*		*
*  current date and	time:	*
*    5:00 PM, 4/15/86	*
*		*
*****************************************
;
*******************************************************************************
*			                  *
*              subroutine DText (alias DCstring)	                  *
*			                  *
*		started 4/2/86 or before              *
*		Bennet Marks x6245	                  *
*			                  *
*  ABSTRACT:  this is the framing routine used by DrawString, DrawText, and   *
*  DrawCstring to draw a sequence of characters into the current grafport's   *
*  pixelmap.  It does everything those routines want - see external documen-  *
*  tion.			                  *
*			                  *
*  ASSUMPTIONS:  Very few.  QD II must be active.  DrawVerb	must be set.      *
*  TextPtr and (for	strings and text blocks) TextLength must also be set.     *
*			                  *
*  RETURNS:  pnLoc.H in the current grafport is increased by the entire       *
*  string width, regardless of whether all, some, or none of the characters   *
*  actually got drawn into the destination.	                  *
*			                  *
*  ALTERS:  most if	not all of the QD II globals may be changed by this rou-  *
*  tine.			                  *
*			                  *
*  NOTES:  a lot of	DText's code is dedicated to determining which characters *
*  in a string (or whatever) can actually impinge on the destination pixel-   *
*  map; the ones that can't it doesn't even draw into the text buffer.  This  *
*  lets us avoid having a text buffer as big as all outdoors.                 *
*			                  *
*  The distinction between strings (and	text blocks) and Cstrings is only     *
*  of interest to one subroutine - GetNextChar, which distinguishes them on   *
*  the basis of DrawVerb.  This allows us to use identical code for the diff- *
*  erent text data structures, once DrawVerb is set.  (the difference between *
*  strings and text	blocks is taken care of even earlier, in DrawString and   *
*  DrawText; they even have the same DrawVerb value)	                  *
*			                  *
*  The DBR is preserved.		                  *
*			                  *
*  DText returns with an RTL.		                  *
*			                  *
*******************************************************************************
;
*****************************************
*		*
*  V.0.1.0 - 4/2/86		*
*    Dan's bug (letters to the left of  *
*    port screw things up) fixed by	*
*    changing an errant ADC #lowByte	*
*    to AND #lowByte - 4/15/86, BHM	*
*		*
*    changed to handle spExtra; doc.	*
*    not up to date	- BHM, 4/22/86	*
*		*
*    spExtra taken out for a while;	*
*    style mods put	in - 5/2/86, BHM	*
*		*  
*
* 2/12/89	Mensch
*
* Added some more of the fast text stuff. Added a new loop in this routine for
* drawing fast chars, this should speed up drawing the chars...
*                 
*****************************************
;
	EXPORT iDText
iDText	PROC
	EXPORT iDCstring
iDCstring		;       
*              USING E0Vectors
*              USING CoreData
;
	jsl GetNextChar
	bcc NotNullString
	rtl	;null string.  Not much to do.
;
NotNullString		; 
;
	jsl PortLoc2ZP
	jsl SetUpPortRegions
;
	lda #-1	; get the fast font info if available
	jsl SetUpFontInfo
;
	ldy #(O_pnLoc+O_H)
	lda [portRef],y	;get current pnLoc.H
	sta currPen
;
	jsl CalcDrawStatus	;check for invis. pen or null minRect
	bcc GoodDrawStatus
;bad draw status:
	jsl BumpPen	;bump currPen by string width
	brl BadDrawStatus
;
GoodDrawStatus		; 
;
; test to see if we are using the pre-cached font stuff...
	php
	bit <fontFlags
	bvs @stillfast
	plp
	bra doOldLine
@StillFast	plp

	ldy #o_font+2
;	lda [<portRef],y
;	bpl doOldLine

	bvc BadFastLine	; if the regions are non-rectangular no fast stuff
	brl tryFastLine	; if set try drawing a fast line!

;
BadFastLine
	lda #0	; get the original font info...
	jsl SetUpFontInfo	; and call the font info setup stuff
doOldLine
;
****  TURNED IN-LINE CODE INTO SUBROUTINE
;
	jsl CalcSlop	;this subroutine, in particular
;
****  END OF CHANGE	- 2/9/87  BHM  x6245
;
**** ADDED 3/10/87 DUE TO CHANGES IN CALCSLOP
;
	ldx #512
	lda fontSlop,x
;
****  END OF CHANGE	- BHM  x6245
;
	sta temp
;
	lda minRect+O_H2
	clc
	adc temp
;any character from	this font starting from a pnLoc.H > that sum
;won't show up in the destination pixelmap
	cmp currPen
	bpl NtAllPstRight	;"not all past right" limit
;not so -  all the characters are beyond the right boundary	of the minRect:
	jsl BumpPen	;bump currPen by string width
	brl AllPastRight
;
NtAllPstRight		; 
	sta rightLimit
;
	lda minRect+O_H1
	sec
	sbc temp
	sta leftLimit
;any character with	pnLoc.H < leftLimit	won't show up in destination
;
NextChar1		; 
	lda currPen
	cmp leftLimit
	bpl InMinBounds	;character MAY show	up in destination
;no way:
	jsl ValidChar
	and #lowByte	;get width of character
	clc
	adc currPen	;boost current pen
	sta currPen
;
	jsl GetNextChar
	bcc NextChar1	;and go to next character
;there wasn't any - all were too far left:
	brl AllTooFarLeft
;
InMinBounds		; 
;characters which have a chance of impinging
;on the current grafport's minRect come here
;
	jsl SetUpBufInfo
;
	lda rightLimit	;in local coordinates
	sec
	sbc hBufToLoc
	sta bufRightLimit	;same, but in buffer coordinates
;
NextChar2		; 
;transfer character	image from font strike to text buffer:
;
	jsl PutChar
;
	jsl GetNextChar
	bcc MoreChars
;no more:
	lda bufPen	;new pen position, buffer coordinates
	clc
	adc hBufToLoc	;now local coordinates
	sta currPen
	bra DrewLastChar
;
MoreChars		; 
;but will they fit?
	lda bufRightLimit
	cmp bufPen
	bpl NextChar2	;yes
;no:
	lda bufPen
	clc
	adc hBufToLoc
	sta currPen
	jsl BumpPen	;boost currPen by any remaining chars
;
;and fall into . . .
;
DrewLastChar		; 
;at least some characters were drawn into text buffer -
;perform style mods:
	jsl StyleText
;and see if any of the image  actually makes it into destination
	jsl TextAndMinRect
	bcs NullInt	;no - null intersection
;yes - get parameters for buffer-to-pixelmap transfer:
	jsl CalcTextBounds
	jsl BlowItUp	;and DO IT!
;
NullInt		; 
	jsl CleanUpBuffer
;
BadDrawStatus		; 
AllPastRight		; 
AllTooFarLeft		; 
;
	lda currPen
	ldy #(O_pnLoc+O_H)
	sta [portRef],y	;put updated pen into grafport
;
;
	jsl FreePortRegions
;
	rtl	;there's no place like home
;
; Added 2/12/89	Mensch
tryFastLine
; This routine should be called when the font handle indicates that a fastfont is
; being used, if fastfonts are being used, this loop will attempt to draw them
; in the proper place on the screen. NOTE: this routine calls some routines that are
; in iDChar as well... Note that on entry to this routine, charTodraw is preset 
; for us already!
;
	lda #-1
	sta <fastLineStat
	ldy #o_PnLoc+o_V	; offset to pen loc.v
	lda [<portRef],y
	clc	; set to add an extra 1
	adc <descent	; add the fonts descent to this value
	cmp <MinRect+o_V2	; see if we are within bounds...
	beq @1
	bpl notWhole	; this is the bottom
@1
	sta <minRect+o_V2
; NOTE: this next subtract RELY's on the carry being clear from above compare!
	sec
	sbc <descent	; now create the top of our character rectangle
	sbc <ascent	; by subtracting the character ascent and decsent
	sta <charRect+o_V1
	cmp <MinRect+o_V1	; see if we are too high
	bmi notWhole
	sta <MinRect+o_V1
	lda <CurrPen	; offset to penloc.H
	sta <charRect+o_H1	; make this the right edge
	cmp <MinRect+o_H1
	bmi NotWhole
	sta <MinRect+o_H1
; now get the right edge...
	jsl validChar	; get the width of the character
	cmp #13	; see if its too big...
	blt @2
	lda #12	; max char width = 12...
@2
	clc
	sta <theWidth	; save the width of this character
	adc <charRect+o_H1
	cmp <minRect+o_H2
	bpl notWhole
	bra goFast	; if we get this far, we can do the fast drawing

notWhole	brl badFastLine	; if not whole, just do it the old way...
notWhole2	
	jsl UnShieldCursor	; the cursor was shielded, unshield it...
 	brl badFastLine	; and now continue to draw the old way...
;
; If we get this far, then we can go the fast way!
goFast
; we must now convert our rectangle to 'global' locinfo coordinants
; we do this by first creating an 'offset' to add to our rectangle... NOTE: this now only
; operates on the top left
	lda <charRect+o_V1
	sec
	sbc <boundsRect+o_V1
	bmi notWhole	; if this is negative, somethings wrong..
	sta charRect+o_V1
	
	lda <charRect+o_H1
	sec
	sbc <boundsRect+o_H1
	bmi notWhole	; if this is negative, somethings wrong..
	sta charRect+o_H1

	jsl ShieldCursor	; shield the cursor for the whole line
	lda <width
	cmp #$00A0	; special case for screen port rects
	bne @doMult1
	lda charRect+o_V1	; get the character rectangle top
	cmp #400	; see if we rolled over the top of the mult below
	bge @DoMult2
	asl a	; multiply it by 32 first..
	asl a
	asl a
	asl a
	asl a
	sta Mult1
	asl a
	asl a
	clc
	adc Mult1
	ldx #0
	bra @DoMult3
@DoMult2	lda <width
@DoMult1	sta Mult2	; save it for the multiply
	lda charRect	; get the v1 coordinant
	sta Mult1
	jsr DoMultiply	; multiply these two numbers
@DoMult3
; once we have it this far, we can create the address of the starting scan line to 
; draw upon...
	adc <imageRef	; add to the base image reference
	sta Mult1	; save this for a second...
	txa
	adc <imageRef+2	; and create the high word
	sta Mult2
	bra LoopCont	; branch around each char stuff
;
; InnerLoop now bypasses many of the above tests that no longer need to be performed
;
InnerLoop
	lda <CurrPen	; offset to penloc.H
	sta <charRect+o_H1	; make this the left edge
; now get the right edge...
	jsl validChar	; get the width of the character
	cmp #13	; see if its too big...
	blt @2
	lda #12	; max char width = 12...
@2
	sta <theWidth	; save the width of this character
	adc <charRect+o_H1
	cmp <minRect+o_H2
	bpl notWhole2	; call thisway cause cursor shielded...

; and convert the new position to global coordinants.

	lda <charRect+o_H1
	sec
	sbc <boundsRect+o_H1
	bmi notWhole2	; if this is negative, somethings wrong..
	sta charRect+o_H1	; call thisway cause cursor shielded...
;
; Now that the char is converted to 'local coordinants lets just call the drawing
; routine!
LoopCont
; We must enter DrawOneFromALine with DestRef calculated...
	lda Mult2
	sta DestRef+2
	lda <CharRect+o_H1	; now compute the offset into destref
	lsr a	; divide this by 4(pixels per byte)
	lsr a
	clc	; and add it in creating our final offset
	adc Mult1
	sta destRef
	bcc @1
	inc DestRef+2
@1

	jsr DrawOneFromaLine
LoopCont1
	jsl GetNextChar	; get the next character...
	bcc gotNextOne
	jsl UnShieldCursor
	brl AllTooFarLeft	; we got the last char, we can end now!
gotNextOne	brl InnerLoop
	ENDP
;
;
****  NEW SUBROUTINE - ADDED 2/9/87
****  (USED TO BE PART OF DTEXT)
;
	EXPORT iCalcSlop
iCalcSlop	PROC
;
	ldx #256
	lda fontWidth,x
	bne ForcedWidth
;"default" width calculation:
	lda fRectMax
	cmp widMax
	bpl GotMax
	lda widMax
GotMax		; 
	clc
	adc extra
;
	clc
	adc chExtra+2	;add in high word of fixed point
	ldx chExtra
	beq chDoNotRound	;low byte 0 - don't round
	inc a	;round
chDoNotRound		; 
	clc
	adc spExtra+2	;same for spExtra
	ldx spExtra
	beq spDoNotRound
	inc a
spDoNotRound		; 
ForcedWidth		; 
;
;
	inc a
;
****  ADDED 3/10/87	TO IMPROVE USABILITY OF THIS SUBROUTINE
;
	ldx #512
	sta fontSlop,x	;everyone will know	to find it here
;
****  END OF CHANGE	- BHM  x6245
;
	rtl
;
	ENDP
;
****  END OF NEW SUBROUTINE - BHM  x6245
;
*****************************************
*		*
*  end of DText (alis DCstring)	*
*		*
*****************************************
;
;                copy text/TxBoundsCalls
****************************************************************
*
* CharBounds
*              theChar     word (input)
*              theRectPtr  long (input)	               
*
*
****************************************************************
	EXPORT CharBounds
CharBounds	PROC
*              USING PicInfo
OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
theRectPtr	equ RTL2+3
theChar	equ theRectPtr+4
;
rectPtr	equ fontTemp

	jsr QDStart

	lda TheChar,s
	sta charToDraw
	lda theRectPtr,s
	sta rectPtr
	lda theRectPtr+2,s
	sta rectPtr+2

	lda #DrawCharVerb
	jsl CallTxBounds

	jmp BusyEC6

	ENDP
****************************************************************
*
* StringBounds
*              StringPtr     long (input)
*              RectPtr       long (input)           
*
****************************************************************
	EXPORT StringBounds
StringBounds	PROC
*              USING PicInfo
OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
theRectPtr	equ RTL2+3
StrPtr	equ theRectPtr+4
;
rectPtr	equ fontTemp

	jsr QDStart

	lda StrPtr,s
	sta TextPtr
	lda StrPtr+2,s
	sta TextPtr+2
	lda [TextPtr]
	and #lowByte
	sta TextLength
	IncLong TextPtr
	lda theRectPtr,s
	sta rectPtr
	lda theRectPtr+2,s
	sta rectPtr+2

	lda #DrawTextVerb
	jsl CallTxBounds
	jmp BusyEC8

	ENDP


****************************************************************
*
* TextBounds
*              PtrToText    long (input)
*              TextLength   word (input)
*              RectPtr      long (input)
*
*
* ChangeHistory
*
* 21 Aug 86    SEG for BM    The equates were off by 1.
*
****************************************************************
	EXPORT TextBounds
TextBounds	PROC
*              USING PicInfo
OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
theRectPtr	equ RTL2+3
TheTextLength	equ theRectPtr+4
TheTextPtr	equ TheTextLength+2
;
rectPtr	equ fontTemp

	jsr QDStart

	lda TheTextPtr,s
	sta TextPtr
	lda TheTextPtr+2,s
	sta TextPtr+2
	lda TheTextLength,s
	sta TextLength
	lda theRectPtr,s
	sta rectPtr
	lda theRectPtr+2,s
	sta rectPtr+2

	lda #DrawTextVerb
	jsl CallTxBounds
	jmp BusyEC10

	ENDP



****************************************************************
*
* CStringBounds
*
*              CStrPtr   long (input)
*              RectPtr   long (input)
* TopOfStack   ======================
*
* Modification History
*
* 19 May 86    This	routine was reading	the parameters off the
*              stack backwards.  The equates are changed to
*              do this right.
*
****************************************************************
	EXPORT CStringBounds
CStringBounds	PROC
OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
theRectPtr	equ RTL2+3
CStrPtr	equ theRectPtr+4
;
rectPtr	equ fontTemp

	jsr QDStart

	lda CStrPtr,s
	sta TextPtr
	lda CStrPtr+2,s
	sta TextPtr+2
	lda theRectPtr,s
	sta rectPtr
	lda theRectPtr+2,s
	sta rectPtr+2


	lda #DrawCStrVerb
	jsl CallTxBounds
	jmp BusyEC8

	ENDP




****************************************************************
*
* CallTxBounds
*
* This routine called by the entry points standard
* text inputs are on zero page.
*
* Zero page is already switched in by the time it gets here.
*
****************************************************************
	EXPORT CallTxBounds
CallTxBounds	PROC
*              using CoreDATA
*              using PicInfo
*              using QDProcs
*              using E0Vectors

	sta DrawVerb

	jsr TestGPs	; if there is a gp pointer
	bcs UseLocal

	jml StdTxBnds


UseLocal	phb	; put extra byte on	stack
	ldy #o_stdTxBnds	; get adr of new text width routine
	lda [temp],y	; put on stack
	pha
	iny	; get bytes 2 and 3
	lda [temp],y
	sta 2,s	; store middle byte	twice
	rtl	; call it

	ENDP


****************************************************************
*
* StdTxBnds
*
* Common text measuring routine that is	central point for
* all text framing routines.
*
* When control gets	here, all inputs are on zero page.
*
* There are lots of	possiblities as to what they are.  And the
* Draw verb is what	tells us what to do.
*
*       For CharWidth
*               char is on zp at charToDraw
*
*       For TextWidth
*               pointer is on zp
*               length is on zp
*
*       For CStringWidth
*               pointer is on zp
*
****************************************************************
	EXPORT iStdTxBnds
iStdTxBnds	PROC
*              using CoreDATA
*              using PicInfo
*              using QDProcs
*              using E0Vectors

	lda DrawVerb	; put verb in a
	asl a
	tax
	jmp (DoBoundsTable,x)

DoBoundsTable		; 
	DC.W iBChar
	DC.W iBText
	DC.W iBCString

	ENDP





****************************************************************
*
* BChar
*
****************************************************************
	EXPORT iBChar
iBChar	PROC
*              USING E0Vectors
*              USING CoreData
;
rectPtr	equ fontTemp
theWidthOfChar	equ temp
theLocTEnt	equ temp+2
theImageWidth	equ temp2

;
	lda #0
	jsl SetUpFontInfo
;
	ldy #(O_pnLoc+O_H)
	lda [portRef],y	;current pen position (hor.)
	sta startBufPen
;
	jsl ValidChar
	tax	;temp. storage
	and #lowByte	;character width
	clc
	adc startBufPen	;bump pen
	sta bufPen
;
	lda [locTPtr],y
	MacSwitch
	sta theLocTEnt
	iny
	iny
	lda [locTPtr],y
	MacSwitch
	sec
	sbc theLocTEnt	;get image width
	bne Not0Width
	brl ZeroWidth	;null image
;
Not0Width		; 
	sta theImageWidth
	txa	;get back offset/width value
	xba
	and #lowByte	;character offset
	clc
	adc kernMax
	clc
	adc startBufPen
	sta leftExtent
;
	clc
	adc theImageWidth
	sta rightExtent
;modify extents to reflect any style mods:
	jsl StyleExtents
;
	lda leftExtent
	cmp startBufPen
	bpl SBPOK	;startBufPen is leftmost
;or it's not:
	sta startBufPen
SBPOK		; 
;
	lda rightExtent
	cmp bufPen
	bmi BPOK	;bufPen is rightmost
	sta bufPen	;or at least it is now
BPOK		; 
;
;leftmost and rightmost extents now in startBufPen and bufPen -
;put them in the target rectangle:
;
ZeroWidth		; 
	lda startBufPen
	ldy #O_H1
	sta [rectPtr],y
;
	lda bufPen
	ldy #O_H2
	sta [rectPtr],y
;now take care of verticals:
	ldy #(O_pnLoc+O_V)
	lda [portRef],y	;current pen position (vert.)
	tax	;temp. storage
	sec
	sbc ascent
	ldy #O_V1
	sta [rectPtr],y
;
	txa
	clc
	adc descent
	ldy #O_V2
	sta [rectPtr],y
;
;
	rtl
	ENDP
*****************************************
*		*
*  end of BChar		*
*		*
*****************************************



****************************************************************
*
* BText (alias BCstring)
*
*
****************************************************************
	EXPORT iBText
iBText	PROC
	EXPORT iBCString
iBCString		;       
*              USING E0Vectors
*              USING CoreData
;
rectPtr	equ fontTemp
theWidthOfChar	equ temp
theLocTEnt	equ temp+2
theImageWidth	equ temp2
;
	ldy #(O_pnLoc+O_H1)
	lda [portRef],y
	sta startBufPen
	sta bufPen
;
	lda #maxInt
	sta leftExtent
	lda #(-maxInt)
	sta rightExtent
;
	jsl GetNextChar
	bcc NotNullString
	brl NullString
;
NotNullString		; 
;
	lda #0
	jsl SetUpFontInfo
;
NextChar		; 
	jsl ValidChar
	tax	;temporary storage
	and #lowByte
	sta theWidthOfChar
;
	lda bufPen
	sta imagePen
	clc
	adc theWidthOfChar
	sta bufPen	;bump position by char width
;
	lda [locTPtr],y
	MacSwitch
	sta theLocTEnt
	iny
	iny
	lda [locTPtr],y
	MacSwitch
	sec
	sbc theLocTEnt
	bne Not0Width
	brl ZeroWidth	;don't touch extents
Not0Width		; 
;
	sta theImageWidth
;
	txa	;get back offset/width value
	xba
	and #lowByte	;offset
	clc
	adc kernMax
	clc
	adc imagePen
	tax	;temp. storage
	cmp leftExtent
	bpl leftOK	;leftExtent is leftmost pixel
	sta leftExtent	;or, it is now
leftOK		; 
;
;new "imagePen" value still in acc.
	clc
	adc theImageWidth
	cmp rightExtent
	bmi RightOK	;rightExtent is rightmost pixel
	sta rightExtent	;sooner or later
RightOK		; 
ZeroWidth		; 
;
	jsl GetNextChar
	bcc NextChar	;if there is one
;
;there wasn't:
;adjust extents to reflect any style mods:
	jsl StyleExtents
;
;and fall into . . .
;
NullString		; 
	lda leftExtent
	cmp startBufPen
	bmi leftStillOK
	lda startBufPen	;winner and new champion
leftStillOK		; 
	ldy #O_H1
	sta [rectPtr],y
;
	lda rightExtent
	cmp bufPen
	bpl rightStillOK
	lda bufPen
rightStillOK		; 
	ldy #O_H2
	sta [rectPtr],y
;
;now take care of verticals:
	ldy #(O_pnLoc+O_V)
	lda [portRef],y	;current pen position (vert.)
	tax	;temp. storage
	sec
	sbc ascent
;
	ldy #O_V1
	sta [rectPtr],y
;
	txa
	clc
	adc descent
	ldy #O_V2
	sta [rectPtr],y
;
;
	rtl
	ENDP









*****************************************
*		*
*  end of BText (alias BCstring)	*
*		*
*****************************************
;                copy text/OtherTextCalls
;
;This version of GetFontInfo has been broken up to make it easier
;to change and/or patch out later.  It should replace the old
;GetFontInfo in the	new ROM.
;
***************************************
*	                  *
*  Feb. 9, 1987  1:00 pm              *
*	                  *
*  Bennet Marks  x6245                *
*	                  *
***************************************
;
****************************************************************
*
* GetFontInfo
*
* Returns some information about the font.
*
****************************************************************
GetFontInfo	PROC EXPORT

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
FIPtr	equ RTL2+3

	jsr QDStart
;
	lda FIPtr,s
	sta temp2
	lda FiPtr+2,s
	sta temp2+2
;
	jsl GetFntInf
;
	jmp BusyEC4
;
	ENDP
;


****************************************************************
*
iGetFntInf	PROC EXPORT
*
* A vectored routine to do the work for GetFontInfo.
* Calling routine sets up temp2 to point to the destintation
* record.
*
*
* Inputs:
*	temp2
*	Current Port
*
* Outputs:
*	Font INfo Record
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

;
	lda #0
	jsl SetUpFontInfo
;(that gives us far	more than we need, but it's ok)
;
	lda ascent
	sta [temp2]
;
	lda descent
	ldy #o_FoInDescent
	sta [temp2],y
;
	lda widMax
	clc
	adc extra
	ldy #o_FoInWidmax
	sta [temp2],y
;
	lda leading
	ldy #o_FoInLeading
	sta [temp2],y
;
	rtl

	ENDP
;

;
****************************************************************
*
GetFGSize	PROC EXPORT
*
* Returns the current size of the Font Globals record.  This
* call is provided so that we may add information in the
* header area of the font.
*
*
* Inputs:
*	none
*
* Outputs:
*	word : Size of globals in bytes
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
theFGSize	equ RTL2+3
;
	jsr QDStart
;
	jsl GetFGS
	sta theFGSize,s
;
	jmp BusyEC0
;
	ENDP

****************************************************************
*
iGetFGS	PROC EXPORT
*
* Vectored routine that loads the a-reg with current size of
* font globals.
*
*
* Inputs:
*	none
*
* Outputs:
*	a-reg
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

	lda #FGSize
	rtl
	
	
	ENDP

****************************************************************
*
TextDeref	PROC EXPORT
*
* Short routine to deref the handle in a & x and return the pointer
* in a & x.
*
* Temp is destroyed.
*
*
* Inputs:
*	handle in a & x reg
*
* Outputs:
*	pointer in a & x reg
*	temp is destroyed.
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


	sta TEMP
	stx TEMP+2
	ldy #2
	lda [TEMP],y
	tax
	lda [TEMP]
	rts

	ENDP







;Tuesday, Nov. 11, 1986  2:15 pm
;BHM  x6245
;
;  GetRomFont
;
;This QDII call returns information on the ROM font.  It accepts a
;pointer, and returns an RFRec in the buffer pointed to.  The
;RFRec has the form
;
;  famNum
;  style
;  size
;  handle  {handle to ROM font}
;  namePtr {pointer	to ROM font name}
;  fbrExtent
;
;for a total of 16 bytes.  The main point of this call is to shield the
;application from the fact that the V.1.0 ROM font doesn't have legal
;values for some of	those fields.
;
;This code is only good for the V.1.0 ROM.  Future versions	of this call
;will be built into	ROM, and reflect any changes in the ROM	font.
;
	EXPORT GetRomFont
GetRomFont	PROC
;
OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
RFRecPtr	equ RTL2+3
;
	jsr QDStart
;
	lda RFRecPtr,s
	sta fontTemp
	lda RFRecPtr+2,s
	sta fontTemp+2
;
	jsl GetRFRec
;
	ldy #4
	jmp BusyEC
;
	ENDP
;
	EXPORT GetRFRec
GetRFRec	PROC
;
;
	lda #rfFamNum
	sta [fontTemp]
;
	lda #rfStyle
	ldy #o_RFStyle
	sta [fontTemp],y
;
	lda #rfSize
	ldy #o_RFSize
	sta [fontTemp],y
;
	lda #^SystemFont
	ldy #(o_RFHandle+2)
	sta [fontTemp],y
	lda #SystemFont
	ldy #o_RFHandle
	sta [fontTemp],y
;
	lda #^rfName
	ldy #(o_RFNamePtr+2)
	sta [fontTemp],y
	lda #rfName
	ldy #o_RFNamePtr
	sta [fontTemp],y
;
	lda #rfFBRExtent
	ldy #o_RFFBRXtnt
	sta [fontTemp],y
;
	rtl
;
rfName	DC.B 7
rfNameStr	DC.B 'Shaston'
	ENDP

	EJECT
*******************************************************************************
*
SetUpFontHeadPtr	PROC Export
*
* Description:	This routine derefs the current grafports font handle and
*	stuffs the derefed version of it in FontHeadPtr. This should
*	be called by any routine that wants to look at the font 
*	record directly. 
*
* NOTE:	This routine modifies temp
*
*
* Inputs:	NotMuch
*
* Outputs:	FontHeadPtr
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
	ldy #(O_font+2)
	lda [portRef],y	;font handle high word
	bpl standardFont	; if high bit clear we are using a standard font

loadStdData
	sta temp+2	; get the handle to the fastfont stuff
	ldy #o_font
	lda [portRef],y
	sta temp
	lda [temp]	; and deref it...
	sta fontHeadPtr
	ldy #2
	lda [temp],y
	sta fontHeadPtr+2
;
	ldy #o_oldFontHandle ; offset to the old font..
	lda [fontHeadPtr],y	; get the old font handle
	sta temp
	ldy #o_oldFontHandle+2
	lda [fontHeadPtr],y
	sta temp+2	; set temp to be the old font handle
	bra SF0010	; and branch into standard font stuff
	
standardFont
	sta temp+2
	dey
	dey
	lda [portRef],y
	sta temp
;
SF0010
	lda [temp]
	sta fontHeadPtr
	ldy #2
	lda [temp],y
	sta fontHeadPtr+2
	rtl
	EndP

;
;  The following version of GetFontGlobals should go into
;  the 1.1 ROM, along with the new ROM font
*****************************************************************************
;  Feb. 6, 1987
;  BHM  x6245
;
;  GetFontLore
;
;This call returns information about a font just like GetFontGlobals
;does.  However, it	takes a maximum buffer size parameter, and will
;not overflow a buffer of that size.  GetFontLore also returns (on the
;stack) the number of bytes that it actually returned.  This can be
;less than the given max buffer size for a variety of reasons (for example,
;there aren't that many bytes of font lore currently defined, or the max
;cutoff comes in the middle of a field).  Any space in the buffer after
;that number of bytes will be untouched	by this call.
;
;GetFontGlobals uses this same code, with some massaging up	front.
;
*
* Change History
* 7/23/87       GCP	    corrected typo.	temp+2 had been incorrectly entered
*	     as temp2+2.
*	    Replaced jsr BusyEC with BusyEC6.
*
* 13 Oct 88    SMD      the Apple IIGS font header now has 14 bytes due to the
*	    addition of "highOwTLoc", the high word of the offset
*	    to the offset width table.  GetFontLore has been modified
*	    to return this new field if the version is >= 1.02
*
* 30 Dec 88	Steven Glass
*
* Made jmp BusyEC6 into jml BusyEC6 so this can be used in patch.
*
*****************************************************************************
GetFontLore	PROC EXPORT
;
OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
maxSize	equ RTL2+3
FLPtr	equ maxSize+2
trueSize	equ FLPtr+4
;
	jsr QDStart
;
	lda maxSize,s
	sta temp2
;
	lda FLPtr,s
	sta fontTemp
	lda FLPtr+2,s
	sta fontTemp+2
;
	jsl GetFL
;
	lda temp2
	sta trueSize,s
;
	jml BusyEC6
;
	ENDP
;
;
GetFL	PROC EXPORT
;
; Changed 3/2/89 Mensch
; Modified this routine so that it is compatible with fastfont stuff
	jsl SetUpFontHeadPtr
;
	lda [fontHeadPtr]
	asl a
	clc
	adc fontHeadPtr
	sta fontRecPtr
	lda fontHeadPtr+2
	bcc @NoCarry
	inc a
	
@NoCarry	sta fontRecPtr+2
;
	ldx temp2
	stz temp2
;
	dex
	dex
	bpl Field1
	brl NoMoreLore
;
Field1		; 
	ldy #o_FamNum
	lda [fontHeadPtr],y
	ldy #o_FLFamNum
	sta [fontTemp],y
	inc temp2
	inc temp2
;
	dex
	dex
	bpl Field2
	brl NoMoreLore
;
Field2		; 
	ldy #o_Style
	lda [fontHeadPtr],y
	ldy #o_FLStyle
	sta [fontTemp],y
	inc temp2
	inc temp2
;
	dex
	dex
	bpl Field3
	bra NoMoreLore
;
Field3		; 
	ldy #o_Size
	lda [fontHeadPtr],y
	ldy #o_FLSize
	sta [fontTemp],y
	inc temp2
	inc temp2
;
	dex
	dex
	bpl Field4
	bra NoMoreLore
;
Field4		; 
	ldy #o_Version
	lda [fontHeadPtr],y
	ldy #o_FLVersion
	sta [fontTemp],y
	inc temp2
	inc temp2
;
	dex
	dex
	bpl Field5
	bra NoMoreLore
;
Field5		; 
	ldy #o_MaxWd
	lda [fontRecPtr],y
	ldy #o_FLMaxWd
	sta [fontTemp],y
	inc temp2
	inc temp2
;
	dex
	dex
	bpl Field6
	bra NoMoreLore
;
Field6		; 
	ldy #o_fbrExtent
	lda [fontHeadPtr],y
	ldy #o_FLFBRXtent
	sta [fontTemp],y
	inc temp2
	inc temp2
*******
*
* SMD - provide for highOwTLoc field
*
*******
	dex
	dex
	bpl Field7
	bra NoMoreLore
	
Field7	ldy #o_Version
	lda [fontHeadPtr],y
	cmp #V0102	;compare to Version 1.02
	bmi NoMoreLore
	ldy #o_highOwTLoc	;SMD - Version 1.02 or greater
	lda [fontHeadPtr],y
	sta [fontTemp],y
	inc temp2
	inc temp2
;
NoMoreLore		; 
	rtl
	ENDP

	
;                copy text/itb
;Monday, Nov. 17, 1986  2:30 pm
;
;QD II call InflateTextBuffer
;
;This call takes 2 inputs, a font width	and a font height.	If
;a font with this width and height would require a text buffer
;either wider or taller than the current text buffer (or both),
;the call resizes the text buffer.  The	resulting text buffer
;will be at least as wide and tall as the old one, and will
;also be wide and tall enough for the (hypothetical) font.	The
;call also clears the new text buffer.
;
;If the current text buffer is already large enough (in both
;directions) for the given width and height, the call leaves
;it alone.
;
;Forced vs. unForced (the great albatross around the neck of
;the text buffer subroutines):
;
;InflateTextBuffer does not allow the new font width to be forced;
;it will always pad	that value.  If the	old font width was forced,
;the new one will also be marked as forced.  For its forced	font
;width value, it will use the old forced font width OR the new value
;AFTER IT'S BEEN PADDED - whichever is larger.
;
;"font width" means	fbrExtent, of course.
;
	EXPORT InflateTextBuffer
InflateTextBuffer	PROC
;
;This is the shell:
;
OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
newHeight	equ RTL2+3
newWidth	equ newHeight+2
;
	jsr QDStart

	lda newWidth,s
	sta newFontWidth
	lda newHeight,s
	sta newTBHeight

*** added 3-Dec-91 DAL -- preserve old DP values that we may need to restore
	ldx #256
	lda <fontWidth,x
	pha
	pei <textBufHeight
	pei <textBufRowWords
*** end 3-Dec-91

	jsl InflateTB
;
;;;	ldy #4
;;;	jmp BusyEC
*** added 3-Dec-91 DAL -- honor error code from InflateTB, and restore
***  DP values if we had an error (even though QD doesn't mess up the
***  values if it can't resize the buffer, we do mess them up if QD Aux
***  can't resize -its- buffers).
	tay	;error code to Y

	pla
	bcc @noStore1
	sta <textBufRowWords
@noStore1	pla
	bcc @noStore2
	sta <textBufHeight
@noStore2	pla
	bcc @noStore3
	ldx #256
	sta <fontWidth,x
@noStore3
	tyx	;error code to X
	pld
	ldy #4
	jml $e10180	;ToBusyStrip
*** end 3-Dec-91
;
	ENDP
;
	EXPORT InflateTB
InflateTB	PROC
*              using E0Vectors
;
;This does the actual work:
;
changeFlag	equ fontTemp
;
	lda newFontWidth
	clc
	adc newFontWidth	;pad
	adc newFontWidth
	adc #36
;
	inc a
;
	sta newFontWidth	;ADDED 11/17/86 - BHM
;
	adc maxWidth
	asl a
	asl a
;
	sta fontTemp+2	;CHANGED 11/17/86 -	BHM
;
	lda textBufHeight
	cmp newTBHeight
	bmi ChangeHeight
;current height O.K.:
	sta newTBHeight
	stz changeFlag
	bra GotHeight
;
ChangeHeight		; 
	lda #1
	sta changeFlag
;
GotHeight		; ;"correct" height	in newTBHeight
;
	lda fontTemp+2	;CHANGED 11/17/86 -	BHM
	lsr a
	lsr a
	lsr a
	lsr a
	sta newTBRowWords	;possible new textBufRowWords
;
	lda textBufRowWords
	cmp newTBRowWords
	bmi ChangeTBRW
;textBufRowWords just fine, thank you:
	sta newTBRowWords	;"correct" value in	newTBRowWords
;
;NEXT PART ADDED 11/17/86 - BHM
;use old "forced vs. unforced" value as	new one
;(it's not elegant, but it's simple)
	ldx #256
	lda fontWidth,x
	sta newFontWidth
;END OF ADD-ON
	bra GotTBRW
;
ChangeTBRW		; 
	lda #1
	sta changeFlag
;check to see if the change in width also involves a "forced" width:
	ldx #256
	lda fontWidth,x
	beq NotForced
;the old was forced, the new must be also:
;
	cmp newFontWidth	;(actually, this can be dropped)
	bmi ChangeFW	;(ditto)
;font width is forced, but the old value is ok:
	sta newFontWidth	;(ditto)
	bra GotFW	;(ditto)
;
;(NOTE:  if it turns out that we must enlarge the textBufRowWords,
;then the new fbrExtent - which happens	to be padded - must	have
;been larger than the previous fbrExtent, which may have been padded
;or forced.  Consequently we can drop the comparison between the new
;fbrExtent and the old, forced fbrExtent.  I would do so, except I
;haven't quite convinced myself yet . . . .)
;
NotForced		; ;make sure ResetTB knows:
	stz newFontWidth
ChangeFW		; 
;(the new value is already in newFontWidth for the change case)
GotFW		; 
;"Got" either new forced value, old forced value, or 0 indicating unforced
;
GotTBRW		; 
;at this point, newTBRowWords, newTBHeight, and newFontWidth have
;all been accounted	for
;
	lda changeFlag
	beq NoChange
;
	jsl ResetTB
;
NoChange		; 
;
	rtl
	ENDP




;*****************************************************************************
;Wednesday, Nov. 12, 1986  1:00 pm
;Bennet Marks  x6245
;
;  GetFontGlobals
;
* Change History
*
* 7/23/87      	Gary Phipps
*
* Replaced BusyEC with BusyEC4
*
* 30 Dec 88	Steven Glass
*
* Made jmp BusyEC6 into jml BusyEC6 so this can be used in patch.
*
******************************************************************************
GetFontGlobals	PROC EXPORT

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
FGRecPtr	equ RTL2+3
;
	jsr QDStart
;
	lda FGRecPtr,s
	sta fontTemp
	lda FGRecPtr+2,s
	sta fontTemp+2
;
	jsl GetFGS
	sta temp2
;
	jsl GetFL
;
	jml BusyEC4
	
	ENDP



*****************************************
*		*
*  file TextSubs1		*
*  contains:		*
*    ValidChar		*
*    GetNextChar		*
*    BumpPen		*
*		*
*****************************************
;
;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;
;
;
******************************************************************************
*			                 *
*              subroutine ValidChar		                 *
*			                 *
*		started 3/27/86 or before            *
*		Bennet Marks  x6245	                 *				                  *
*			                 *
*  This subroutine takes the character whose ascii code is in charToDraw     *
*  and returns its offset/width value (possibly modified) in the acc. and    *
*  its index into the font's location table in y.  If the character width is *
*  0, then it will not be modified; otherwise, ValidChar may alter the       *
*  width on the basis of the font flags, style mods, chExtra, and spExtra.   *
*  ValidChar also checks to see if the character is "missing"; if it is,     *
*  the routine returns the o/w value and location table offset of the        *
*  "missing symbol.	 charToDraw is not altered in any case.	                 *
*			                 *
*  ASSUMPTIONS:  SetUpFontInfo, or its equivalent, has been	called.          *
*			                 *
*  RETURNS:  (possibly modified) offset/width value in acc.; location table  *
*  offset in y.			                 *
*			                 *
*  NOTES:  ValidChar was broken up into	smaller subroutines	and rewritten on *
*  or about 2/5/87.	 See documentation of the individual subroutines for     *
*  more information.		                 *
*			                 *
*  Every character seen by the text routines passes through	ValidChar.       *
*			                 *
* 2/12/89	Mensch
* Valid char changed to watch for fastfont flag being set, if this flag is set
* this routine will simply return the characters width in <A>
*
******************************************************************************
;
	EXPORT iValidChar
iValidChar	PROC
*              using E0Vectors
;
; This tests for fast font routines...
; first test the high bit of the font handle to see if it is set,
; if it is, we will call the fast text routines!
	lda <fastHeadPtr+2
	bpl iValidCharOld	; if clear, forget this next stuff
	lda <fontFlags	; get the font flags...
	and #$0003	; strip the crap off here
	beq @stdValue
	cmp #$0002	; is it numeric spacing?
	bne @StdMono	; use standard monospacing
	ldy #'0'
	bra @1
@stdMono	lda #12	; <widMax
	bra @AddExtrasHere
@StdValue
	ldy <charToDraw	; get the character to draw
@1	lda [<fastHeadPtr],y
	and #$00FF
;
; Now test to see if we are going to be using char extra and spExtra, if so add them in
; now, if not then just forget it.
@AddExtrasHere
	bit <fontFlags
	bmi @done	; if no extras are needed we are done
; now be sure to add the spExtra and charExtra fields NOTE: this is almost the
; same as the other addextras routine except for the fact that it uses fastbucket
; instead of bucket.
	tax	;temp. storage
;
	lda <fastbucket
	clc
	adc chExtra
	sta <fastbucket
	txa
	adc chExtra+2	;for chExtra
;
	ldx charToDraw
	cpx #asciiSpace
	bne @NotASpace
;it's a space:
	tax
	lda <fastbucket
	clc
	adc spExtra
	sta <fastbucket
	txa
	adc spExtra+2
@NotASpace		; 
@done
	rtl	; and just return
iValidCharOld
	lda charToDraw
;
;check for missing character, get appropriate o/w value and	index:
	jsl GetCharVals
;
	bit #lowByte	;check for 0 character width
	beq ZeroWidth	;0 width - do not alter
;
;maybe alter:
	ldx fontFlags
	beq NoFntFlgMods
;
;apply font flag mods:
	jsl DoFntFlgMods
;
NoFntFlgMods		; 
;take care of style	extra, chExtra, spExtra:
	jsl AddExtras
;
ZeroWidth		; 
	rtl
	ENDP
;
******************************************************************************
*			                 *
*              subroutine GetCharVals		                 *
*			                 *
*		started 2/5/87	                 *
*		Bennet Marks  x6245	                 *				                  *
*			                 *
*  This subroutine checks the character	whose ascii code is	in the acc.      *
*  against the current font, so that valid offset/width and	location values  *
*  can be obtained.	 It returns with the offset/width value	in the acc. and  *
*  the index from the start of the font's location table to the character's  *
*  table entry in y.  It particularly checks to see if the character is a    *
*  "missing" (that is, undefined) character; if it is, the routine returns   *
*  the offset/width	and index values for the "missing symbol" (the fill-in   *
*  character at the	end of the font.		                 *
*			                 *
*  ASSUMPTIONS:  font information must be in the usual places (this means    *
*  that SetUpFontInfo has been executed	- at least, most of	it.)             *
*			                 *
*  RETURNS:  (1)  offset/width entry in	acc.	                 *
*            (2)  index into location table in y	                 *
*			                 *
*  NOTES:  this used to be part of ValidChar's in-line code; it was factored *
*  out when it was needed to help calculate the width of the digit 0 for     *
*  "numerical spacing".		                 *
*			                 *
******************************************************************************
;
	EXPORT iGetCharVals
iGetCharVals	PROC
;
;character code in acc.:
;
	cmp firstChar
	bmi UseMS	;charToDraw < firstChar
;charToDraw >= firstChar . . .
	cmp lastChar
	bmi GoodRange	;and < lastChar
	beq GoodRange	;or = lastChar
;charToDraw outside	firstChar-to-lastChar range:
UseMS		; 
	lda lastChar
	inc a	;code for missing symbol
;charToDraw in range (and in acc.) OR missing symbol code in acc.
GoodRange		; 
	sec
	sbc firstChar	;subtract off to access arrays
	asl a	;(which are 2 bytes	per entry)
	tay
	lda [owTPtr],y	;offset/width entry
	cmp #owMSVal
	bne GoodChar
;an in-range missing character:
	ldy msCodeT2	;use missing symbol	code (*2)
	lda [owTPtr],y
;
GoodChar		; 
	rtl
	ENDP
;
;
******************************************************************************
*			                 *
*              subroutine DoFntFlgMods		                 *
*			                 *
*		started 2/5/87	                 *
*		Bennet Marks  x6245	                 *				                  *
*			                 *
*  This subroutine applies any of the width modifications specifed by the    *
*  font flags to the offset/width value	of the current character.  It        *
*  should only be called if the font flags are not all 0 and the width byte  *
*  of the offset/width entry is not 0; the subroutine does not check for     *
*  these things.  It expects to find the o/w value in the acc., and returns  *
*  the modified value in the acc.		                 *
*			                 *
*  ASSUMPTIONS:  o/w entry in acc. (width byte not 0); font	flags not all 0. *
*			                 *
*  RETURNS:  modified o/w value in acc.		                 *
*			                 *
*  NOTES:  this routine was once part of ValidChar.  We have added the       *
*  "numerical width" option to the font	flags (if this is set, every charac- *
*  ter is given the	same width as the digit 0).	                 *
*			                 *
*  The routine does	not change y.		                 *
*			                 *
******************************************************************************
;
***************************************
*	                  *
*  Feb. 5, 1987  2:45 pm              *
*	                  *
***************************************
;
	EXPORT iDoFntFlgMods
iDoFntFlgMods	PROC
;
	tax	;temporary storage
	lda fontFlags
	bit #FxdWdthBit
	beq NotFixedWidth
;fixed width:
	txa	;get back o/w value
	and #highByte	;blot out width byte
	ora widMax	;replace with widMax
	rtl
;
NotFixedWidth		; 
	bit #$0002
	beq NotNumWidth

; numerical width:
	txa
	and #highByte
	ora digitWidth
	rtl

NotNumWidth	txa
	rtl
	ENDP
;
;
******************************************************************************
*			                 *
*              subroutine AddExtras		                 *
*			                 *
*		started 2/5/87	                 *
*		Bennet Marks  x6245	                 *				                  *
*			                 *
*  This subroutine modifies the width byte of a character's offset/width     *
*  value on the basis of extra (the additional character width that comes    *
*  from style mods), chExtra (which is added to the width of every char-     *
*  acter that has non-zero width), and spExtra (which is added to the width  *
*  of the space character).  It expects	to find the o/w value in the acc.    *
*  (possibly already modified by the font flags), and returns the modified   *
*  value in the acc.		                 *
*			                 *
*  ASSUMPTIONS:  offset/width value in acc.	                 *
*			                 *
*  RETURNS:  new offset/width value in acc.	                 *
*			                 *
*  NOTES:  AddExtras does not check to see if the width value is 0.          *
*			                 *
*  AddExtras does all the bookkeeping for chExtra and spExtra, which are     *
*  each 4-byte, fixed-point numbers.  (This would be a good	place to handle  *
*  fractional pixelwidths.)  However, it ASSUMES that the new, modified      *
*  width is neither	greater than 255 pixels or less than 0.	 (Possibly we    *
*  should add in a check.  Also, we could cut down on time for strings by    *
*  computing (chExtra AND chExtra+2 AND	spExtra AND spExtra+2) in            *
*  SetUpFontInfo - it would tell us quick whether to bother	with these       *
*  calculations.  But it's probably not worth it.)                           *
*			                 *
*  The only character to which spExtra is applied is ascii $20.              *
*			                 *
*  The routine does	not alter y.		                 *
*			                 *
******************************************************************************
;
***************************************
*	                  *
*  Feb. 5, 1987  2:45 pm              *
*	                  *
***************************************
;
	EXPORT iAddExtras
iAddExtras	PROC
;
	clc
	adc extra	;for style
;
	Export AddExtras2
AddExtras2
	tax	;temp. storage
;
	lda bucket
	clc
	adc chExtra
	sta bucket
	txa
	adc chExtra+2	;for chExtra
;
	ldx charToDraw
	cpx #asciiSpace
	bne NotASpace
;it's a space:
	tax
	lda bucket
	clc
	adc spExtra
	sta bucket
	txa
	adc spExtra+2
NotASpace		; 
	rtl
	ENDP
;
;
;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;
*****************************************
*		*
*  current date and	time:	*
*    5:30 PM, 3/30/86	*
*		*
*****************************************
;
*******************************************************************************
*			                  *
*              subroutine GetNextChar		                  *
*			                  *
*		started 3/27/86 or before             *
*		Bennet Marks x6245	                  *
*			                  *
*  ABSTRACT:  this subroutine is used to get successive characters from a     *
*  string, text block, or Cstring, and to signal (using the	carry bit as a    *
*  flag) whether any character remained	to be fetched.  The	new character, if *
*  any, is placed in charToDraw.		                  *
*			                  *
*  The "no new characters" condition is	equivalent to textLength = 0 (for     *
*  strings and text	blocks), or textPtr	pointing to a 0 byte (for Cstrings).  *
*			                  *
*  ASSUMPTIONS:  text call information (drawVerb, textPtr, textLength if      *
*  needed; ordinarily set by DrawString, DrawText, or DrawCString)            *
*			                  *
*  RETURNS:			                  *
*              (1)	carry bit clear if a new character was fetched, carry bit *
*	set otherwise.		                  *
*              (2)	new character (if any) in charToDraw	                  *
*			                  *
*  ALTERS:			                  *
*              (1)	textPtr - incremented to point to next character IF a     *
*	new character was fetched	                  *
*              (2)	(for strings and text blocks) textLength - decremented IF *
*	a new character was	fetched	                  *
*			                  *
*  If, on the other	hand, there was no new character to be fetched, those     *
*  values are left alone: for strings and text blocks, textLength is left at  *
*  0, and textPtr is left pointing 1 byte beyond the last byte of the string; *
*  for Cstrings, textPtr is left pointing at the 0 byte which terminates the  *
*  Cstring.			                  *
*			                  *
*  NOTES:  every character in a string,	text block, or Cstring passes through *
*  this subroutine.	 It is the sole place where the differing termination     *
*  conditions are used.  Consequently it is the best place for a RAM patch to *
*  handle other kinds of text data structures, or other termination condi-    *
*  tions (e.g., terminate string on a CR).  It should have a vector entry     *
*  point.			                  *
*			                  *
*  GetNextChar returns with an RTL.		                  *
*			                  *
*******************************************************************************
;
*****************************************
*		*
*  V.0.1.0 - 3/27/86	*
*		*
*****************************************
;
	EXPORT iGetNextChar
iGetNextChar	PROC
	lda DrawVerb
	cmp #DrawCStrVerb
	beq ItsACString
;no, it's ordinary string or text block:
	lda textLength
	beq NoMoreChars	;0 textLength
	lda [textPtr]	;get current character
	and #lowByte
	sta charToDraw
	dec textLength
	IncLong textPtr	;to point to next character
	clc	;to signal presence	of current char.
	rtl
;
ItsACString		; 
	lda [textPtr]
	and #lowByte
	beq NoMoreChars	;0 byte in string
	sta charToDraw
	IncLong textPtr
	clc
	rtl
;
NoMoreChars		; 
	sec	;signal no characters remaining
	rtl
	ENDP
*****************************************
*		*
*  end of GetNextChar	*
*		*
*****************************************
;
;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;
*****************************************
*		*
*  current date and	time:	*
*    3:40 PM, 3/27/86	*
*		*
*****************************************
;
*******************************************************************************
*			                  *
*              subroutine BumpPen		                  *
*			                  *
*		started 3/27/86 or before             *
*		Bennet Marks x6245	                  *
*			                  *
*  ABSTRACT:  this subroutine increases	the 0-page value currPen by the sum   *
*  of the character	widths of a sequence of characters.  The sequence can be  *
*  a string, text block, or Cstring; or	it can be a "final substring", that   *
*  is, all the characters of a string ("or text block or Cstring"; please in- *
*  sert this phrase	wherever it seems useful) from some particular character  *
*  in it to the end	of it.		                  *
*			                  *
*  In either case, the first character to be used (not necessarily the first  *
*  character of the	original string) should be the most recent character      *
*  fetched and placed in charToDraw by the subroutine GetNextChar.  See       *
*  ASSUMPTIONS and NOTES below for more	detail.	                  *
*			                  *
*  ASSUMPTIONS:  BumpPen assumes that GetNextChar has been called one or more *
*  times already, so that the first character to be included in the bumping   *
*  process is already in charToDraw, and textPtr is pointing at the next      *
*  character (if any); and, for strings	and text blocks, textLength has al-   *
*  ready been decremented so that it represents the number of characters      *
*  left (that haven't already been fetched by GetNextChar).  (see NOTES       *
*  below)			                  *
*			                  *
*  BumpPen calls GetNextChar and ValidChar, so font and text information      *
*  used by those subroutines must be set up (see documentation for each).     *
*			                  *
*  Strings or substrings ("or etc.") of	length 0 should never make it to this *
*  subroutine; the calling routine should screen them out on the basis of its *
*  previous call to	GetNextChar.  (however, the number of remaining charac-   *
*  characters, not yet fetched by GetNextChar, may be 0)	                  *
*			                  *
*  RETURNS:  new value in currPen.		                  *
*			                  *
*  ALTERS:  textPtr	and (for strings and text blocks) textLength.             *
*			                  *
*  NOTES:  in the abstract above, a big	deal seems to have been made about    *
*  BumpPen's ability to handle "final substrings" as well as complete         *
*  strings.  This was mentioned explicitly because BumpPen is frequently used *
*  to "finish off" the updating of currPen after it has been partially up-    *
*  dated by characters handled by PutChar.	                  *
*			                  *
*  However, the truth of the matter is that, because of the	way GetNextChar   *
*  works, NONE of the QD II text routines can tell the difference between a   *
*  string and a "final substring".  If textPtr and (when used) textLength are *
*  kept up to date - GetNextChar does this - any final substring looks just   *
*  like a string.			                  *
*			                  *
*  BumpPen is only used with strings, text blocks, and Cstrings.  It does not *
*  work with individual characters (although it will handle	strings of length *
*  1 just fine).			                  *
*			                  *
*  BumpPen returns with an RTL.		                  *
*			                  *
*******************************************************************************
;
*****************************************
*		*
*  V.0.1.0 - 3/27/86	*
*		*
*****************************************
;
	EXPORT iBumpPen
iBumpPen	PROC
*              using E0Vectors
;
NextChar		; 
	jsl ValidChar
	and #lowByte	;get character width
	clc
	adc currPen
	sta currPen
;
	jsl GetNextChar
	bcc NextChar	;if any
;no more:
	rtl
	ENDP
*****************************************
*		*
*  end of BumpPen		*
*		*
*****************************************
;
;                copy text/TextSubs2
*****************************************
*		*
*  file TextSubs2		*
*    CalcDrawStatus		*
*    TextAndMinRect		*
*		*
*****************************************
;
;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;
*****************************************
*		*
*  current date and	time:	*
*    3:00 PM, 3/30/86	*
*		*
*****************************************
;
*******************************************************************************
*			                  *
*              subroutine CalcDrawStatus	                  *
*			                  *
*		started 3/28/86	                  *
*		Bennet Marks x6245	                  *
*			                  *
*  ABSTRACT:  this subroutine determines whether it is appropriate to draw    *
*  anything into the current grafport's pixelmap.  Two conditions are         *
*  checked:  (1)  is the pen visible?  (2)  is the minRect non-null?  If the  *
*  answers to both those questions are yes, CalcDrawStatus returns with the   *
*  carry bit cleared, meaning drawing can be done.  Otherwise, no drawing can *
*  be done; the carry is set.  The subroutine also sets (by	a call to         *
*  makeMinRect) the	minRect based on the current grafport.	                  *
*			                  *
*  ASSUMPTIONS:  the subroutine requires the usual information about the      *
*  current grafport	to be on 0-page.  This can be insured by calls to         *
*  PortLoc2ZP and SetUpPortRegions.		                  *
*			                  *
*  RETURNS:  carry bit clear if drawing	is appropriate (i.e., pen visible     *
*  and minRect non-null), carry bit set	otherwise. Overflow set if ok to      *
*  use fasttext routines		                  *
*			                  *
*  ALTERS:  minRect	(and anything else changed by a call to	makeMinRect).     *
*			                  *
*  NOTES:  CalcDrawStatus returns via an RTL.	                  *
*			                  *
*******************************************************************************
;
*****************************************
*		*
*  V.0.1.0 - 3/28/86	*
*		*
* 2/24/89	Mensch
* Modified to support fasttext routines this now sets the overflow flag if
* MinRect can be safely relied upon to be a "safe" drawing area
*
*****************************************
;
	EXPORT iCalcDrawStatus
iCalcDrawStatus	PROC
;
*              USING E0Vectors
*              USING CoreData
;
	ldy #O_pnVis
	lda [portRef],y
	bmi PenInvisible
;pen visible, so check minRect:
	lda #(-maxInt)	;set up max rectangle in minRect
	sta minRect+O_V1
	sta minRect+O_H1
	lda #maxInt
	sta minRect+O_V2
	sta minRect+O_H2
;
	jsl MakeMinRect
	bcs NullRect
; pen visible, rect not null; signal o.k. to draw:
; Also test regionPointers A and B for rectangular reqions, If they are
; rectangular set the overflow flag

	lda [<rgnPtrA]
	ora [<rgnPtrB]
	cmp #10	; are they both rects???
	bne NotRects
;
; 2/24/89 Mensch
; Add checks for grafport fields, fgcolor bgcolor and txMode
; 3/21/89 and txFace
	ldy #o_txMode
	lda [<portRef],y	; combine mode and forcolor
	and #$FFFB	; strip off bit 3...
	ldy #o_FGColor	; offset to foreground color field
	ora [<portRef],y	; combine mode and forcolor
	ldy #o_txFace
	ora [<portRef],y	; also take into account the text face...
	bne NotRects	; are they both zero???
	ldy #o_BGColor
	lda [<portRef],y
	cmp #$FFFF
	beq @cont
	cmp #$0003
	beq @cont
	cmp #$000F
	bne NotRects
@cont	lda <portSCB
	and #$0080
	beq NotRects
	sep #$40	; set overflow
	clc	; clear carry
	rtl
NotRects
	sta >$FF3000	; trigger analyser
	clv	; clear rect flag
	clc	; we got a minrect
	rtl
;
PenInvisible		; 
	sec	;to signal not O.K.
NullRect		; ;carry already set by makeMinRect
	rtl
	bra NotRects
	ENDP
*****************************************
*		*
*  end of CalcDrawStatus	*
*		*
*****************************************
;
;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;
*****************************************
*		*
*  current date and	time:	*
*    10:00 PM, 5/13/86	*
*		*
*****************************************
;
*******************************************************************************
*			                  *
*              subroutine TextAndMinRect	                  *
*			                  *
*		started 3/28/86	                  *
*		Bennet Marks x6245	                  *
*			                  *
*  ABSTRACT:  this subroutine calculates the intersection of the "text rec-   *
*  tangle" and the current minRect, and	replaces minRect with the result.  If *
*  the result is a null rectangle, the carry bit is set on return; otherwise  *
*  the carry is cleared.		                  *
*			                  *
*  The "text rectangle" is the smallest	rectangle that completely encloses a  *
*  graphical text object and its background (by "graphical text object", we   *
*  mean character, string, text block, or Cstring).  It is represented in     *
*  local coordinates.  In this subroutine, we do not start with the text      *
*  rectangle as a given, but calculate it on the fly from leftExtent,         *
*  rightExtent, startBufPen, and bufPen.  The conversion to	local coordinates *
*  is also done on the fly.		                  *
*			                  *
*  ASSUMPTIONS:  TextAndMinRect expects:	                  *
*			                  *
*              (1)	a minRect on 0-page	(usually set by a call to             *
*	CalcDrawStatus, which calls MakeMinRect)                  *
*              (2)	startBufPen, and buffer-to-local translation values       *
*	(usually set by a call to SetUpBufInfo)	                  *
*              (3)	bufPen, leftExtent,	and rightExtent (usually set by       *
*	SetUpBufInfo and altered by 1 ore more calls to PutChar)  *
*              (4)	chHeight, generally	from SetUpFontInfo (we may wind up    *
*	using something other than chHeight eventually; see NOTE  *
*	embedded in code below)	                  *
*			                  *
*  RETURNS:  (1)  carry bit clear if the intersection is non-null, carry set  *
*                 otherwise		                  *
*            (2)  resulting rectangle in minRect on 0-page	                  *	 
*			                  *
*  NOTES: TextAndMinRect returns via an	RTL	                  *
*			                  *
*******************************************************************************
;
*****************************************
*		*
*  V.0.1.0 - 3/28/86	*
*		*
*    addded a missing RTL (of all	*
*    things!) - 5/13/86, BHM	*
*		*
*****************************************
;
	EXPORT iTextAndMinRect
iTextAndMinRect	PROC
;
;find left boundary	of text rectangle (first in buffer coordinates):
	lda leftExtent
	cmp startBufPen	;we want the smaller
	bmi LeftExtOK	;it's leftExtent
	lda startBufPen	;no, it's startBufPen
LeftExtOK		; 
;
;shift to local coordinates
	clc
	adc hBufToLoc
;
;compare against corresponding minRect length
	cmp minRect+O_H1	;we now want the larger
	bmi MRH1Larger	;minRect.H1 is larger
	sta minRect+O_H1	;no it's not, so replace it
MRH1Larger		; 
;
;the rest is very much the same
;
	lda #1	;the top row, in buffer coordinates
	clc
	adc vBufToLoc	;switch to local coordinates
	cmp minRect+O_V1	;and compare
	bmi MRV1Larger
	sta minRect+O_V1	;replace if necessary
MRV1Larger		; 
;
	lda rightExtent
;For rightExtent, we must add 1 to maintain the QD distinction between pixels
;and rectangles (the enclosing rectangle always has a right	boundary 1 greater
;than the pixel it encloses; same for bottom boundary, but not left or top).
;bufPen is, serendipitously, already 1 greater than the rightmost pixel of
;the character and its background, because it is the starting pen position
;for the next character
	inc a
	cmp bufPen	;we want the larger	of these two
	bpl rightExtOK
	lda bufPen
rightExtOK		; 
;
;shift to local
	clc
	adc hBufToLoc
	cmp minRect+O_H2	;compare to minRect	- want the smaller
	bpl MRH2Smaller	;minRect.H2 smaller
	sta minRect+O_H2	;no, so replace it
MRH2Smaller		; 
;
;H2 should be strictly larger than H1
	lda minRect+O_H1
	cmp minRect+O_H2
	bmi HOK	;horizontal length ok
	brl NullRect	;no, it's not
;
HOK		; 
;
	lda chHeight	;bottom row in buffer coord.'s
	inc a	;for the same reason as before
;[NOTE:  this chHeight may be embarrassing later when we have style mods that
;change the nominal	buffer size.  We may want a new 0-page location to hold a
;mutable value]
	clc
	adc vBufToLoc	;local coord.
	cmp minRect+O_V2
	bpl MRV2Smaller	;minRect.V2 fine
	sta minRect+O_V2	;or replace it
MRV2Smaller		; 
;
;V2 should be strictly greater than V1
	lda minRect+O_V1
	cmp minRect+O_V2
	bmi VOK	;vertical ok
	brl NullRect	;nuh-uh!
;
VOK		; 
;
	clc	;to signal non-null	intersection
	rtl
;
NullRect		; 
	sec	;or not
	rtl
	ENDP
*****************************************
*		*
*  end of TextAndMinRect	*
*		*
*****************************************
;
;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;
;                copy text/TextSubs3
*****************************************
*		*
*  file TextSubs3		*
*    CalcTextBounds		*
*		*
*****************************************
;
;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;
*****************************************
*		*
*  current date and	time:	*
*    9:45 AM, 4/15/86	*
*		*
*****************************************
;
*******************************************************************************
*			                  *
*              subroutine CalcTextBounds	                  *
*			                  *
*		started 3/28/86	                  *
*		Bennet Marks x6245	                  *
*			                  *
*  ABSTRACT:  this subroutine calculates several pointers, offsets, and other *
*  values which are	used by the subroutine BlowItUp to determine which        *
*  chunk of the text buffer needs to be	transferred to what	piece of the      *
*  destination pixelmap (BlowItUp is the routine which does	that transfer,    *
*  also in the process expanding the 1 bit/pixel text buffer information      *
*  into the 2 bit/pixel or 4 bit/pixel information needed by the destina-     *
*  tion - hence the	name).		                  *
*			                  *
*  ASSUMPTIONS:  CalcTextBounds requires the following:	                  *
*			                  *
*              (1)	the usual current grafport information on 0-page; in      *
*	particular, width, boundsRect, imageRef, and portSCB      *
*              (2)	similar information	for the text buffer	- bufRowBytes     *
*	and bufPtr		                  *
*              (3)	the results of TextAndMinRect placed in	0-page's minRect  *
*			                  *
*  RETURNS:  the subroutine returns the	following:	                  *
*			                  *
*              (1)	tbRowPtr - a 4-byte	pointer to the start of the first     *
*	(i.e., highest) text buffer row which is to be trans-     *
*	ferred to the destination pixelmap (that is, the row      *
*	corresponding to the top of our new minRect)              *
*			                  *
*              (2)	tbStartByte - the offset, in bytes, from tbRowPtr to the  *
*	first text buffer word containing any image bits which    *
*	are to be transferred into to be transferred into the     *
*	destination pixelmap (that is, the word	containing the    *
*	pixel corresponding	to the left side of	minRect).  This   *
*	will always be even.	                  *
*			                  *
*              (3)	pmRowPtr - a 4-byte	pointer to the start of the row in    *
*	the destination pixelmap corresponding to the top of      *
*	minRect (see tbRowPtr).	                  *
*			                  *
*              (4)	pmStartByte - the offset, in bytes, from pmRowPtr to the  *
*	beginning of the first PIXELWORD of the	destination       *
*	pixelmap into which	character image pixels are to be      *
*	transferred.  A pixelword is a collection of 16 contig-   *
*	ous pixels, aligned	to some starting point (in this case, *
*	pmRowPtr).  pmStartByte will always be divisible by 4 in  *
*	640 mode, 8 in 320.		                  *
*			                  *
*              (5)	numOfWords - the number of distinct words in each text    *
*	buffer row which contain character image pixels which     *
*	are to be transferred into the destination.  IMPORTANT    *
*	NOTE:  this is a "0-based counter"; that is, a value of   *
*	0 means 1 word to be transferred, 1 means 2 words, etc.   *
*			                  *
*              (6)	rowCounter - the number of rows to be transferred to the  *
*	destination.  IMPORTANT NOTE:  this is also a 0-based     *
*	counter.		                  *
*			                  *
*******************************************************************************
;
*****************************************
*		*
*  V.0.1.0 - 3/30/86	*
*    4/15/86 - changed to allow cross-	*
*    bank boundaries - BHM	*
*		*
*****************************************
;
	EXPORT iCalcTextBounds
iCalcTextBounds	PROC
;
;rowCounter:
	lda minRect+O_V2	;rect coordinate
;bottom (and right)	boundaries of enclosing rectangles are always 1 more than
;the most extreme pixel they enclose, so to get pixel coordinate we decrement
	dec a	;(a lot of talk for	a dumb DEC)
	sec
	sbc minRect+O_V1
	sta rowCounter
;
;pmRowPtr:
;we need multiples of pixelmap width to	calculate pointer
;
	pushlong #0
	pei width	;pixelmap width in bytes
	lda minRect+O_V1	;first row
	sec
	sbc boundsRect+O_V1	;shift to global coordinates
	pha
;
	_Multiply
;
	pla	;result low word
	sta temp
	pla	;high word
	sta temp+2
;
	lda imageRef	;pointer to dest. start
	clc
	adc temp
	sta pmRowPtr
	lda imageRef+2
	adc temp+2
	sta pmRowPtr+2

;
;tbRowPtr:
;similar to pmRowPtr, mutatis mutandis
;
	pushlong #0
	pei bufRowBytes
	lda minRect+O_V1
	sec
	sbc vBufToLoc	;this gets us buffer coord.
	dec a	;dec, because buffer rows start at 1
	pha
;
	_Multiply
;(in the future we may wish to replace these multiplies with in-line routines
;optimized for small second arguments.	In particular, this	last one is
;usually 0 - whenever the top of the character fits in the destination
;pixelmap)
;
	pla
	sta temp
	pla
	sta temp+2
;
	lda bufPtr
	clc
	adc temp
	sta tbRowPtr
	lda bufPtr+2
	adc temp+2
	sta tbRowPtr+2
;
;now hone in on the	boundary words
;pmStartByte:
;
	lda minRect+O_H1	;minRect.H1, in local
	sec
	sbc boundsRect+O_H1	;change to global
;we now have pixel position
	lsr a
;for 320, that LSR gets us from number of pixels to number of bytes
;(2 pixels/byte in 320) -  we'll need another for 640
	bit portSCB-1
	bmi mode640
;mode320:
	and #first13bits	;round down to nearest multiple of 8
	bra GotPMSB
mode640		; 
	lsr a
;pixel position now	divided by 4 altogether to get number of bytes -
;(4 pixels/byte in 640)
	and #first14bits	;round down to nearest multiple of 4
;
GotPMSB		; ;got pixelmap startbyte
	sta pmStartByte
;
;tbStartByte:
	lda minRect+O_H1	;starting pixel, local
	sec
	sbc hBufToLoc	;buffer coordinate thereof
	lsr a
	lsr a
	lsr a
	lsr a
	sta temp	;this would be "tbStartWord"
	asl a
;
	sta tbStartByte
;
;numOfWords:
	lda minRect+O_H2	;right rect boundary
	dec a	;ending pixel, local
	sec
	sbc hBufToLoc	;buffer coordinate
	lsr a
	lsr a
	lsr a
	lsr a
;this is "tbEndWord", but we just need it for a calculation
	sec
	sbc temp	;subtract "tbStartWord"
	sta numOfWords
	rtl
	ENDP
*****************************************
*		*
*  end of CalcTextBounds	*
*		*
*****************************************
;
;                copy text/TextSubs4
*****************************************
*		*
*  file TextSubs4		*
*    SetUpFontInfo		*
*    SetUpBufInfo		*
*		*
*****************************************
;
;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;
;
;  This version of SetUpFontInfo goes into the 1.1 ROM
;
*******************************************************************************
*			                  *
*              subroutine SetUpFontInfo		                  *
*			                  *
*		started 3/30/86 or before             *
*		Bennet Marks x6245	                  *
*			                  *
*  ABSTRACT:  this subroutine gets and/or calculates certain font-related     *
*  information from	the current font (the one whose handle is in the current  *
*  grafport).If the current font is a fastfont, this routine uses the acc     *
* on entry to determine which font info to set up. If you pass a zero, it     *
* will pass you the realfont info, if you pass a -1 it will give you fastfont *
* info on dpage.			                  *
*  ASSUMPTIONS:  only that portRef points to a valid grafport, and that the   *
*  grafport's font field points to a valid font.                              *
*			                  *
*  RETURNS:			                  *
*              (1)	4-byte pointers:		                  *
*			                  *
*              fontRecPtr - to the start of the font record	                  *
*              strikePtr - to the start	of the font strike	                  *
*              owTPtr - to the start of	the font offset/width table           *
*              locTPtr - to the start of the font location table              *
*              locTP2Ptr - 2 bytes into	the location table (trust me, it's    *
*              useful)		                  *
*			                  *
*              (2)	2-byte values:		                  *
*			                  *
*              firstChar - ASCII code of the font's first defined character   *
*              lastChar - ASCII code of	the font's last defined character     *
*              msCodeT2 - index value for the font's "missing symbol", given  *
*              by:			                  *
*	    msCodeT2 = 2 * (lastChar + 1 - firstChar)             *
*			                  *
*              kernMax - the font's maximum leftward kern, represented as a   *
*              negative number (or 0)		                  *
*              chHeight - the font's character height                         *
*              ascent - the font's ascent                                     *
*              descent - the font's descent                                   *
*              fbrExtent - (see external doc. for description)                *
*              rowBytes - width of the font strike, in bytes - must be even   *
*              (rowBytes = 2 * textRowWords)	                  *
*			                  *
*  NOTES:  DBR is preserved.		                  *
*			                  *
*  SetUpFontInfo returns with an RTL.		                  *
*			                  *
*			                  *
*  Change History:			                  *
*			                  *
*  This version of SetUpFontInfo was modified on 2/6/87 for	use in the 1.1    *
*  ROM.  It has absorbed the patch replacing fRectMax with fbrExtent, and it  *
*  includes the patch which calculates digitWidth.  It also	no longer locks   *
*  the font.			                  *
*			                  *
*  13 Oct 88	Sue Dumont		                  *
*			                  *
*  Version 1.02  -- Apple IIGS font header contains an additional field.  This*
*  is highOwTLoc, the high word of the offset to the offset/width table.      *
*			                  *
*
* 2/15/89	Mensch
* 
* Added fastfont info handling stuff...		                  *
*******************************************************************************
;
***************************************
*	                  *
*  Mar. 10, 1987  11:30 am            *
*	                  *
***************************************
;
	EXPORT iSetUpFontInfo
iSetUpFontInfo	PROC
;
*              USING Coredata
*              using E0Vectors

;
;(the two values aren't necessarily the same - we've just replaced the
;text routine's use of fRectMax with fbrExtent, which is a more useful
;measure.  Probably	we should drop the 0-page location name	fRectMax
;altogether.)
;
	tax	; place flag in <X> for a second
	phb
;
;THE FOLLOWING CHANGED FROM A CALL TO DEREFANDLOC - 2/7/87
;
; Modified 2/12/89 to load new info if the fastfont is being used... Mensch
;
; Modified 3/21/89	Mensch
; Added spExtra/charExtra and fontflags to this load...

	ldy #(O_font+2)
	lda [portRef],y	;font handle high word
	bmi @FastFont
	brl standardFont	; if high bit clear we are using a standard font;;;
@FastFont
	cpx #-1	; is it a negative 1???
	bne loadStdData	; if not, load the standard data
	jsl MakeFastFontInfo ; else load the good data
FastSetupCont
	ldy #O_spExtra
	lda [portRef],y
	sta spExtra
	iny
	iny
	lda [portRef],y
	sta spExtra+2

	ldy #O_chExtra
	lda [portRef],y
	sta chExtra
	iny
	iny
	lda [portRef],y
	sta chExtra+2
;
	ldy #o_txMode
	lda [<portRef],y	; combine mode and forcolor
	sta <FastMode

	ldy #O_fontFlags
	lda [portRef],y
	and #$0003
	sta fontFlags
;
	ora chExtra	; now make sure spextra/fontflags and 
	ora chExtra+2	; char extra are zero
	ora spExtra
	ora SpExtra+2
	bne @UseExtra
	lda #$C000
	sta <FontFlags
	plb
	rtl
@UseExtra
	lda <fontflags
	bne @cantuse	; damn we got monospacing bullshit
; now test chExtra too see if it is too large (it can't be >= $10000)
	lda chExtra+2
	bne @cantuse
; now test to see if spExtra is set, if so see if too large (it can't be >=$40000)
	lda spExtra+2
	cmp #4
	bge @cantUse
; otherwise, just go ahead and use it...
	lda #$4000
	sta <fontFlags
	lda #half
	sta fastbucket	; fastfonts use a different bucket than slowfonts
;
	plb	; suck off the data bank
	rtl	; and just return...
;
; 4/24/89 Mensch
; If we get to this point the port ref can contain either a fastfont handle or a
; standard font handle. If its the fast font handle we must deref a few levels,
; if not we should just rejoin the standard code as it was.
@cantuse
	ldy #(O_font+2)
	lda [portRef],y	;font handle high word
	bmi LoadStdData	; we have an actual fastfont in the port
	brl SF0005	; else, just finish setting up the slow way0
o_FFOldFont	equ $0100
loadStdData
	sta temp+2	; get the handle to the fastfont stuff
	ldy #o_font
	lda [portRef],y
	sta temp
	lda [temp]	; and deref it...
	sta fontHeadPtr
	ldy #2
	lda [temp],y
	sta fontHeadPtr+2
;
	ldy #o_oldFontHandle ; offset to the old font..
	lda [fontHeadPtr],y	; get the old font handle
	sta temp
	ldy #o_oldFontHandle+2
	lda [fontHeadPtr],y
	sta temp+2	; set temp to be the old font handle
	bra SF0010	; and branch into standard font stuff	
ShowFastROMFont
	ldx #512	; get the fast ROM font off dpage
	lda <FastRomFont,x	; see if fast ROMFont exists
	ora <FastRomFont+2,x
	bne SFRF0005
	ldy #o_Font+2
	lda [<portRef],y
	bra SF0005	; call back the standard stuff now...
SFRF0005
;	brk 00
	lda <FastRomFont,x	; copy the fast font handle to zpage
	sta <FastHeadPtr
	lda <FastRomFont+2,x
	sta <FastHeadPtr+2
	jsl MakeFastFontInfo2 ; else load the good data
	brl FastSetupCont	; and finish the setup...

standardFont
;
; 3/21/89	Mensch
; Changed for invisiblefastfont. This will test to see if we are using the systemfont now, if
; we are it will use the fastfont instead
	cpx #-1	; see if we want the fast font even...
	bne SF0005	; if not, load the standard data
	cmp #^SystemFont
	bne SF0005	; if not the ROM font then forget it
	sta temp+2	; save this for a sec...
	dey
	dey
	lda [portRef],y
	cmp #SystemFont
	bne SF0006	; if these are both not equal then not ROM font
; else, show the fastromfont now!
	brl ShowFastRomFont ; else load the fast rom font stuff...
SF0005
	sta temp+2
	dey
	dey
	lda [portRef],y
SF0006	sta temp
;
SF0010
	lda [temp]
	sta fontHeadPtr
	ldy #2
	lda [temp],y
	sta fontHeadPtr+2
;
;END OF CHANGE - BHM  x6245
;
	lda [fontHeadPtr]
	asl a
	clc
	adc fontHeadPtr
	sta fontRecPtr
	lda fontHeadPtr+2
	bcc @NoCarry
	inc a
	
@NoCarry	sta fontRecPtr+2
;
;the next 2 are first guesses, to be modified by arithmetic	further down
;
	sta strikePtr+2
	sta owTPtr+2
;
	pei fontHeadPtr+1	; set dbr to access	font
	plb
	plb
;
	ldx fontRecPtr
;
	lda |FMinChar,x
	MacSwitch
	sta firstChar
;
	lda |FMaxChar,x
	MacSwitch
	sta lastChar
;
	inc a
	sec
	sbc firstChar
	asl a
	sta msCodeT2
;
	lda |FMaxWd,x
	MacSwitch
	sta widMax
;
	lda |FBBOX,x
	MacSwitch
	sta kernMax
;
;FETCHING OF FRECTMAX DROPPED HERE - 2/7/87, BHM  x6245
;
;CALCULATION OF FBREXTENT MOVED HERE WHEN WE DISCOVERED THAT THERE
;WERE 1.0 FONTS OTHER THAN THE ORIGINAL	ROM FONT (namely, Dan's
;controls font) - 3/10/87, BHM
;
	lda #V0100	;version 1.0
	ldy #o_Version
	cmp [fontHeadPtr],y	;actual version
	bpl ItsVersion1	;or less (if there were any such)
;version > 1.0
	ldy #o_FBRExtent
	lda [fontHeadPtr],y
	sta fbrExtent
	bra GotFBRX
;
ItsVersion1		; 
;need a reasonable guess for fbrExtent:
	ldy #FmaxWd
	lda [fontRecPtr],y
	ldy #FBBDX
	cmp [fontRecPtr],y	;fRectMax
	bpl MaxWdBigger
;fRectMax bigger - use it instead:
	lda [fontRecPtr],y
MaxWdBigger		; 
	clc
	adc kernMax	;add kernMax to the	soup
;
GotFBRX		; ;stir later
	sta fbrExtent
;
;END OF CALCULATION	OF FBREXTENT
;
**********************************************************************
* Version 1.02 - SMD      13 Oct 88
*
*                the following is highOwTLoc, the high word of 
*                the offset to the offset/width table.
*
*
* 30 Oct 88	Steven Glass
*
* (Moved Version102 variable from in line to direct page.)
**********************************************************************

	ldy #o_Version	;check the version number
	lda [fontHeadPtr],y
	cmp #V0102
	bpl Vers102
	stz Version102	;version less than 1.02
	bra GetHeight
	
Vers102	lda #1	;Version 1.02 or greater
	sta Version102
	ldy #12
	lda [fontHeadPtr],y
	sta owTPtr+2	;for now, keep #words in highOwTLoc here
	
GetHeight	lda |FBBDY,x
	MacSwitch
	sta chHeight
;
	lda |FAscent,x
	MacSwitch
	sta ascent
;
	lda |FDescent,x
	MacSwitch
	sta descent
;
	lda |FLeading,x
	MacSwitch
	sta leading
;
	lda |FLength,x	;owTLoc in WORDS
	MacSwitch
	asl a	;now in BYTES
	sta temp
	lda Version102	;check if version
	beq NotV102
	lda owTPtr+2
	rol a
	clc
	adc fontRecPtr+2
	sta owTPtr+2
	
NotV102	lda temp	
	clc
	adc #FLength
	bcc NoCarry1
	inc owTPtr+2
NoCarry1		; 
	clc
	adc fontRecPtr
	bcc NoCarry2
	inc owTPtr+2
NoCarry2		; 
	sta owTPtr
;
;now calculate loc table pointers from whatever's handy:
	lda owTPtr+2
	sta locTPtr+2
	lda msCodeT2
	clc
	adc #4
	sta temp
	lda owTPtr
	sec
	sbc temp
	sta locTPtr
	bcs NoBorrow
	dec locTPtr+2
NoBorrow		; 
	lda #FStrike
	clc
	adc fontRecPtr
	sta strikePtr
	bcc NoCarry3
	inc strikePtr+2
NoCarry3		; 
;
	lda |FRaster,x	;width of strike in	words
	MacSwitch
	asl a	;now bytes
	sta rowBytes
;
	ldy #O_fontStyle
	lda [fontHeadPtr],y
	eor #allBitsOn
	ldy #O_txFace
	and [portRef],y
	sta txFace
;
	stz extra
	bit #boldBit
	beq NotBold
	inc extra
NotBold		; 
;
	ldy #O_spExtra
	lda [portRef],y
	sta spExtra
	iny
	iny
	lda [portRef],y
	sta spExtra+2
;
	ldy #O_chExtra
	lda [portRef],y
	sta chExtra
	iny
	iny
	lda [portRef],y
	sta chExtra+2
;
	ldy #O_fontFlags
	lda [portRef],y
	sta fontFlags
;
	lda #half
	sta bucket
;
;ADDED 2/6/87:
;
	lda fontFlags
	and #numWdthBit
	beq NotNumWidth	;so don't calculate digitWidth
;calculate digitWidth:
	lda #asciiZero
	jsl GetCharVals	;get o/w value of digit 0
	and #lowByte	;isolate width
	sta digitWidth
;
NotNumWidth		; 
;
;END OF ADDITION - BHM  x6245
;
	plb
	rtl


	ENDP
*****************************************
*		*
*  end of SetUpFontInfo	*
*		*
*****************************************



;
;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;
*****************************************
*		*
*  current date and	time:	*
*    2:30 PM, 4/23/86	*
*		*
*****************************************
;
;
*******************************************************************************
*			                  *
*              subroutine SetUpBufInfo		                  *
*			                  *
*		started 3/30/86	                  *
*		Bennet Marks x6245	                  *
*			                  *
*  ABSTRACT:  this subroutine gets and/or calculates certain information      *
*  regarding the text buffer to be used	by QD II text-drawing routines.       *
*			                  *
*  ASSUMPTIONS:			                  *
*              (1)	textBufHandle, textBufRowWords, and textBufHeight on      *
*              0-page		                  *
*              (2)	the usual 0-page grafport information, including portRef  *
*              and boundsRect		                  *
*              (3)	SetUpFontInfo has been called (we need fRectMax)          *
*              (4)	currPen has been set.  This is the horizontal pen posi-   *
*              tion	in the destination pixelmap where character drawing is to *
*              start, expressed in local coordinates (you can think of it as  *
*              the "current pen position", except that it may have been ad-   *
*              justed to account for characters in a string	that would, in    *
*              drawing, fall to the left of the current visible region).      *
*			                  *
*  RETURNS:			                  *
*              (1)	4-byte pointers:		                  *
*              bufPtr - to the start of	the text buffer	                  *
*			                  *
*              (2)	2-byte values:		                  *
*              bufRowBytes - buffer width in bytes; must be	even              *
*              (bufRowBytes = 2 * textBufRowWords)	                  *
*              hBufToLoc - horizontal translation value from buffer coord-    *
*              inates to local coordinates	                  *
*              vBufToLoc - vertical translation from buffer	to local          *
*              startBufPen - a good starting pixel position	(horizontal) in   *
*              the text buffer for the transfer of character images from the  *
*              font	strike.  "Good", here, subsumes the following properties: *
*			                  *
*              (a)	startBufPen has the	same pixel-in-word alignment (i.e.,   *
*              has the same last 4 bits) as the destination	pen expressed in  *
*              GLOBAL coordinates (that	is, currPen transformed from local    *
*              to global).  This insures that BlowItUp (the	buffer-to-destin- *
*              ation transfer subroutine) won't have to rotate buffer image   *
*              words for use in the destination.	                  *
*              [yeah, I know that's verbose, but I didn't understand the      *
*              the idea myself for the LONGEST time, so I'm showing off]      *
*			                  *
*              (b)	startBufPen is large enough (i.e., the "buffer pen"       *
*              starts far enough into the buffer) that neither kerning nor    *
*              the vagaries of PutChar (the strike-to-buffer transfer rou-    *
*              tine) will involve memory words outside the text buffer.       *
*			                  *
*              bufPen - a copy of startBufPen.  bufPen will	be updated by     *
*              calls to PutChar; startBufPen will be left alone.  Both values *
*              are needed later.		                  *
*			                  *
*  NOTES:  both textBufRowWords and textBufHeight are 1-based counters [check *
*  this].			                  *
*			                  *
*  SetUpBufInfo does NOT clear the buffer; ClearBufPart is used for that.     *
*			                  *
*  The "safety margins" built into this	subroutine and SizeTextBuffer do not  *
*  take into account spExtra, charExtra, style mods, etc.; they may have to   *
*  be changed when those features are implemented.	                  *
*			                  *
*			                  *
*  SetUpBufInfo returns with an RTL.		                  *
*			                  *
*******************************************************************************
;
*****************************************
*		*
*  V.0.1.0 - 3/31/86	*
*		*
*****************************************
;
	EXPORT iSetUpBufInfo
iSetUpBufInfo	PROC
;
*              USING Coredata
;
	ldx textBufHandle+2
	lda textBufHandle	;handle to buffer
	jsr TextDeref	;now pointer to locked buffer
	stx bufPtr+2
	sta bufPtr
;
	lda textBufRowWords
	asl a
	sta bufRowBytes
;
;we want to align buffer pen position (horizontal) and destination pixelmap
;position (horizontal, and in GLOBAL coordinates) with respect to pixel
;position within pixelmap -
;get destination pixelmap horizontal pen position, in local:
	lda currPen
;switch to global:
	sec
	sbc boundsRect+O_H1
;
	and #last4Bits	;pixel position within pixelword
	sta temp
;
****  SUBROUTINE CHANGED 3/10/87
;
;  The calculation of "fontSlop" (the current fbrExtent, including style
;  mods et al) has been pushed off to the new subroutine CalcSlop, which
;  is called before	SetUpBufInfo, and which hides the slop on the third
;  0-page for SetUpBufInfo to find.
;
;so go fetch:
	ldx #512
	lda fontSlop,x
;
****  END OF THAT CHANGE - BHM  x6245
;
	clc
	adc #$0020	;for round-off and algorithm
;
	and #first12Bits	;occasion of possible round-off error
	ora temp	;align buffer pen to dest. pen
	sta startBufPen
	sta bufPen
;
;get some translation values:
;
	lda currPen	;pnLoc.H
	sec
	sbc startBufPen
	sta hBufToLoc	;horizontal translation from buffer
;		;coordinates to local coordinates
	ldy #(O_pnLoc+O_V)
	lda [portRef],y	;pnLoc.V
	sec
	sbc ascent
;HERE IT COMES AGAIN
	dec a
;DID YOU BLINK?
	sta vBufToLoc	;vertical translation
;
;
;the following assignments may seem backwards, but they guarantee valid
;leftExtent and rightExtent as soon as a pixel is put down,	as well as
;enabling us to check easily on a null image (no pixels put	down) condition.
;
	lda #maxInt
	sta leftExtent
	lda #(-maxInt)
	sta rightExtent
;
	rtl
	ENDP
*****************************************
*		*
*  end of SetUpBufInfo	*
*		*
*****************************************
;
;                copy text/TextSubs5
*****************************************
*		*
*  file TextSubs5		*
*    SizeTextBuffer		*
*    GetTextHandle		*
*		*
*****************************************
;
;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;
*****************************************
*		*
*  current date and	time:	*
*    5:00 PM, 4/1/86	*
*		*
*****************************************
;
*******************************************************************************
*			                  *
*              subroutine GetTextHandle		                  *
*			                  *
*		started 4/1/86 or before              *
*		Bennet Marks  x6245	                  *
*			                  *
*  ABSTRACT:  this subroutine allocates	a block of space for the QD II text   *
*  buffer, and places a handle to this block in the 0-page global location    *
*  textBufHandle.  The buffer block itself is set to some nominal amount of   *
*  space, and is in	this form basically	useless; proper sizing (and clearing) *
*  of the buffer is	done later by the subroutine SizeTextBuffer.              *
*			                  *
*  GetTextHandle should be called when QD II is initialized, and must be      *
*  called before any call to SizeTextBuffer, which expects to find a valid,   *
*  if puny, textBufHandle.		                  *
*			                  *
*  ASSUMPTIONS:  only that the memory manager is active.	                  *
*			                  *
*  RETURNS:  if the	call to the memory manager returns no error, this sub-    *
*  routine sets textBufHandle and clears the carry bit.  If	there was a mem-  *
*  ory manager error, then the carry is	set and the error code passed back    *
*  unchanged in the	acc.  (in that case, textBufHandle will	not be set).      *
*  The only expected error is MFullErr (memory full error).	                  *
*			                  *
*  NOTES:  currently GetTextHandle insists that the text buffer be entirely   *
*  in one bank.  This will probably be relaxed later.	                  *
*			                  *
*  GetTextHandle returns with an RTL.		                  *
*			                  *
*******************************************************************************
;
*****************************************
*		*
*  V.0.1.0 - 4/1/86		*
*    changed to permit buffer to	*
*    stradle bank boundaries -	*
*    BHM, 4/21/86		*
*		*
*****************************************
;
	EXPORT iGetTextHandle
iGetTextHandle	PROC
;
	pushlong #0	;for result
	pushlong #15	;a token amount
	lda UserID
	pha
	pea 0
	pushlong #0	;I assume this is not used
;
	_NewHandle
	bcc NoMemError
;memory error:
	plx
	plx	;clear stack
;note carry set and	error code in acc. still
	rtl	;so just return
;
;
NoMemError		; 
	pla
	sta textBufHandle
	pla
	sta textBufHandle+2
;note carry clear still
	lda #0	;so clear acc.
	rtl	;and just return
	ENDP
*****************************************
*		*
*  end of GetTextHandle	*
*		*
*****************************************
;
;                copy text/TextSubs6
*****************************************
*		*
*  file TextSubs6		*
*    ClearBufPart		*
*    CleanUpBuffer		*
*		*
*****************************************
;
;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;
*****************************************
*		*
*  current date and	time:	*
*    4:45 PM, 5/9/86	*
*		*
*****************************************
;
*******************************************************************************
*			                  *
*              subroutine ClearBufPart		                  *
*			                  *
*		started 3/31/86 or before             *
*		Bennet Marks x6245	                  *
*			                  *
*  ABSTRACT:  this subroutine zeros out	every word of the text buffer from    *
*  leftExtent to rightExtent, along every row (from 1 to textBufHeight).      *
*  Note that leftExtent = 0 refers to the first word in a row, but that the   *
*  rows themselves are counted starting	from 1.  To clear the entire buffer,  *
*  set leftExtent =	0 and rightExtent =	bufRowWords - 1.	                  *
*			                  *
*  ASSUMPTIONS:  textBufHeight (usually	set by SizeTextBuffer) and bufPtr     *
*  and bufRowBytes (both usually set by	SetUpBufInfo) are on 0-page.          *
*  leftExtent and rightExtent are defined, and measured in words.             *
*			                  *
*  ALTERS:  ClearBufPart uses numOfWords, currBufByte, bufByte, wordCounter,  *
*  and rowCounter for bookkeeping.		                  *
*			                  *
*  NOTES:  throughout most of the QD II	text routines, leftExtent and         *
*  rightExtent are measured in PIXELS.	They are initialized by SetUpBufInfo, *
*  altered by PutChar, and used to get text boundaries.  Before they are      *
*  used here, they must be "boiled down" to words (i.e., divided by 4 and     *
*  rounded down).			                  *
*			                  *
*  DBR is preserved.		                  *
*			                  *
*  ClearBufPart returns with an RTL.		                  *
*			                  *
*******************************************************************************
;
*****************************************
*		*
*  V.0.1.0 - 3/31/86	*
*    changed to handle bank boundaries;	*
*    doc. not up to	date yet - BHM,	*
*    4/21/86		*
*		*
*    changed to use	chHeight in place	*
*    textBufHeight - doc. STILL not up	*
*    to date - BHM,	5/9/86	*
*		*
*****************************************
;
	EXPORT iClearBufPart
iClearBufPart	PROC
	phb
;
	lda leftExtent	;words
	asl a	;now bytes
	sta temp
	clc
	adc bufPtr
	sta tbRowPtr
	lda bufPtr+2
	bcc @NoCarry
	inc a

@NoCarry	sta tbRowPtr+2
	pei tbRowPtr+1	;set DBR to match current row position
	plb
	plb
;
	lda rightExtent
	asl a
	sec
	sbc temp
	sta numOfBytes
;
	lda chHeight
	sta rowCounter
;
NextRow		; 
	lda #0
	ldy #0
;
NextWord		; 
	sta (tbRowPtr),y
;
	cpy numOfBytes
	beq CheckRows	;this row done
;no, it isn't:
	iny
	iny
	bra NextWord
;
CheckRows		; 
	dec rowCounter
	beq BufCleared	;all rows cleared
;bump pointer for next row:
	lda tbRowPtr
	clc
	adc bufRowBytes
	sta tbRowPtr
	bcc NoCarry
	inc tbRowPtr+2
	pei tbRowPtr+1	;reset DBR if necessary
	plb
	plb
NoCarry		; 
	bra NextRow
;
BufCleared		; 
;please note it is only cleared along the columns specified
	plb
	rtl
	ENDP
*****************************************
*		*
*  end of ClearBufPart	*
*		*
*****************************************
;
;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;
*****************************************
*		*
*  current date and	time:	*
*    4:10 PM, 4/4/86	*
*		*
*****************************************
;
*******************************************************************************
*			                  *
*              subroutine CleanUpBuffer		                  *
*			                  *
*		started 4/4/86	                  *
*		Bennet Marks x6245	                  *
*			                  *
*  ABSTRACT:  this subroutine zeroes out all words in the text buffer that    *
*  may have been written into by PutChar (or any other routine that may write *
*  into the text buffer, and observes the right bookkeeping	protocols).       *
*			                  *
*  ASSUMPTIONS:  textBufHeight (usually	set by SizeTextBuffer) and bufPtr     *
*  and bufRowBytes (both usually set by	SetUpBufInfo) are on 0-page.          *
*  leftExtent and rightExtent are the leftmost pixel and rightmost pixel pos- *
*  sitions, respectively, that have been "dirtied" by PutChar or some similar *
*  routine; if no pixel in the text buffer has been touched, then leftExtent  *
*  is greater that rightExtent (these conditions are insured by a call to     *
*  SetUpBufInfo, followed by 0 or more calls to PutChar).	                  *
*			                  *
*  ALTERS:  leftExtent and rightExtent are "boiled down" from pixel units to  *
*  words.  The call	to ClearBufPart may	change numOfWords, currBufByte,       *
*  bufByte, wordCounter, and rowCounter.	                  *
*			                  *
*  NOTES: CleanUpBuffer returns with an	RTL.	                  *
*			                  *
*******************************************************************************
;
*****************************************
*		*
*  V.0.1.0 - 4/4/86		*
*		*
*****************************************
;
	EXPORT iCleanUpBuffer
iCleanUpBuffer	PROC
*              using E0Vectors
;
	lda rightExtent
	cmp leftExtent
	bpl SomeExtent
	bra NoExtent	;no pixel has been touched
;
SomeExtent		; 
;note rightExtent is in acc. (measured in pixels)
	lsr a
	lsr a
	lsr a
	lsr a
	sta rightExtent	;now boiled down to	words
;
	lda leftExtent	;in pixels
	lsr a
	lsr a
	lsr a
	lsr a
	sta leftExtent	;now words
;
	jsl ClearBufPart
;
NoExtent		; 
;
	rtl
	ENDP
*****************************************
*		*
*  end of CleanUpBuffer	*
*		*
*****************************************
;
;
;                copy text/textstyles
*****************************************
*		*
*  current date and	time:	*
*    4:00 PM, 5/3/86	*
*		*
*****************************************
;
*******************************************************************************
*			                  *
*              subroutine StyleText (also, StyleExtents)	                  *
*			                  *
*		started 5/2/86	                  *
*		Bennet Marks x6245	                  *
*			                  *
*  ABSTRACT:  this subroutine subroutine modifies the text buffer to reflect  *
*  any current styles specified by the value of txFace.  It	also updates      *
*  rightExtent and leftExtent to match the new "active text	buffer" limits.   *
*			                  *
*  The subroutine has a separate entry point, StyleExtents,	which only        *
*  changes the extents.  This is useful	in text bounding-box calls, in which  *
*  only the measuring of the text extent is important	                  *
*			                  *
*  ASSUMPTIONS:  the subroutine requires qwerty qwerty qwerty qwerty qwerty   *
*			                  *
*  RETURNS:  iamozymandiaskingofkingslokuponmyworksyemightyanddespair         *
*			                  *
*  NOTES: doe a deer a female deer ray a drop of golden sun	me a name I call  *
*			                  * 
*			                  *
*  Modification History		                  *
*			                  *
*  19 May 86    StyleText, StyleExtents, DoBold and DoUnderline are now       *
*  (SEG)        E0Vectors and StyleText	has a new using E0Vectors statement.  *
*			                  *
*******************************************************************************
;
*****************************************
*		*
*  V.0.1.0 - 5/2/8666	*
*		*
*****************************************
;
	EXPORT iStyleText
iStyleText	PROC
;
*              using E0Vectors	; new using statement SEB
;
	stz justExtents	;style both text buffer and extents
	bra DoStyle
;
	EXPORT iStyleExtents
iStyleExtents		;       
	lda #TRUE
	sta justExtents	;text buffer irrelevant
;
DoStyle		; 
	lda txFace
	beq PlainStyle
;
	bit #boldBit
	beq NotBold
;it's BOLD!
	jsl DoBold
	lda txFace
NotBold		; 
	bit #ulineBit
	beq NotUline
;underline it __________ __!
;
	jsl DoUnderline
NotUline		; 
;
PlainStyle		; 
	rtl
	ENDP
*****************************************
*		*
*  end of StyleText		*
*  (also, StyleExtents)	*
*		*
*****************************************
;
;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;
;
;this routine fixes	a bug in DoBold and	simplifies the implementation of
;the bolding algorithm.  It should be patched in instead of	DoBold in the
;1.0 ROM, and should replace DoBold in the 1.1 ROM
;
*******************************************************************************
*			                  *
*              subroutine DoBold		                  *
*			                  *
*		started 4/29/86	                  *
*		Bennet Marks x6245	                  *
*			                  *
*  ABSTRACT:  this subroutine performs a simple bolding transformation on the *
*  text buffer.  The entire active chunk of the buffer is shifted 1 pixel to  *
*  the right, and ORed with the original buffer.  rightExtent is incremented  *
*  by 1 as well.			                  *
*			                  *
*  ASSUMPTIONS: to follow		                  *
*			                  *
*  NOTES: DBR is preserved.  DoBold returns with an RTL.	                  *
*			                  *
*******************************************************************************
;
***************************************
*	                  *
*  Feb. 5, 1987  5:00 pm              *
*	                  *
***************************************
;
	EXPORT iDoBold
iDoBold	PROC
;
AnotherNewY	equ temp2+2
;
	lda rightExtent
	cmp leftExtent
	bpl ExtentOK	;there are some pixels to bold
	rtl	;nothing to work with
ExtentOK		; 
;
****  ADDED 2/5/87 - BHM
;
	inc rightExtent	;saves some effort later
;
****  END OF ADDITION
	lda justExtents
	beq BoldAll	;bold text buffer and extents
	rtl	;extents already bolded
;
BoldAll		; 
	phb
;
	lda chHeight
	sta rowCounter
;
;
	lda leftExtent
	lsr a
	lsr a
	lsr a
	and #first15Bits	;even-byte offset to left edge
	sta temp
;
	clc
	adc bufPtr
	sta tbRowPtr
	lda bufPtr+2
	bcc NoCarry
	inc a
	
NoCarry	sta tbRowPtr+2
;tbRowPtr now points to the low byte of	the first
;word in the text buffer containing image bits
;
	pei tbRowPtr+1
	plb
	plb	;set DBR for this part of buffer
;
	lda rightExtent
	lsr a
	lsr a
	lsr a
	and #first15Bits	;even-byte offset to right edge
;
	sec
	sbc temp	;get number of words spanned (* 2)
	bne MoreThanAWord
	brl OnlyOneWord
;
MoreThanAWord		; 
;active text buffer	crosses word boundaries.
	sta numOfBytes	;so this is >= 2
;
NextRow		; 
;we will work from right to left along each row:
	ldy numOfBytes
	lda (tbRowPtr),y	;rightmost word
	xba	;[IS THIS RIGHT?]
	lsr a	;shift right 1 pixel
	sta temp
;
NextWord		; 
	tyx	;temp. storage
	dey
	dey
	sty AnotherNewY
	lda (tbRowPtr),y	;the word just to the left
	xba
	lsr a
;we'll need this next time through the loop
	sta temp2
	lda temp
;we have a carry bit still left over from the LSR
	bcc RightBit0	;no bit to shift in
;oh, yeah?
	ora #firstBit
RightBit0		; 
;
	txy	;y set again for rightmore word
	xba
	ora (tbRowPtr),y	;merge with existing buffer
	sta (tbRowPtr),y
;
	ldy AnotherNewY	;moving left along . . .
	beq LeftMostWord
;
	lda temp2
	sta temp	;set up for next pass
	bra NextWord
;
LeftMostWord		; 
;we've gotten to the left edge of the active buffer -
;no previous word to bother with
	lda temp2	;already fetched and shifted
	xba
	ora (tbRowPtr)
	sta (tbRowPtr)
;
	dec rowCounter
	beq AllDone
;more rows to go - bump pointer:
	lda tbRowPtr
	clc
	adc bufRowBytes
	sta tbRowPtr
	bcc NoCarry1
	inc tbRowPtr+2	;on carry, inc high	word . . .
	pei tbRowPtr+1	;and reset DBR
	plb
	plb
NoCarry1		; 
	bra NextRow
;
;
****  CHANGED 2/5/87 - BHM
;only-one-word case	changed to reflect already-bolded buffer
;
OnlyOneWord		; 
;active buffer confined to one word in width
;
OOWNextRow		; 
	lda (tbRowPtr)
	xba
	lsr a
	xba
	ora (tbRowPtr)
	sta (tbRowPtr)
;
	dec rowCounter
	beq AllDone
;rows to go:
	lda tbRowPtr
	clc
	adc bufRowBytes
	sta tbRowPtr
	bcc NoCarry2
	inc tbRowPtr+2
	pei tbRowPtr+1
	plb
	plb
NoCarry2		; 
	bra OOWNextRow
;
AllDone		; 
	plb
;
	rtl
	ENDP
;
;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;
*****************************************
*		*
*  current date and	time:	*
*    2:00 PM, 5/3/86	*
*		*
*****************************************
;
*******************************************************************************
*			                  *
*              subroutine DoUnderline		                  *
*			                  *
*		started 5/3/86	                  *
*		Bennet Marks x6245	                  *
*			                  *
*  ABSTRACT:  this subroutine adds underlining to the current image in the    *
*  text buffer.  The underline is put at 2 pixels below the	base line.  If    *
*  the font descent	is less than 2, no underlining is done.	                  *
*			                  *
*  The underlining is a "smart" one, in	which an underline pixel is skipped   *
*  if there is an image pixel just above, below, to the right, or to the      *
*  left of it.			                  *
*			                  *
*  ASSUMPTIONS:  the subroutine requires qwerty qwerty qwerty qwerty qwerty   *
*			                  *
*  RETURNS:  iamozymandiaskingofkingslokuponmyworksyemightyanddespair         *
*			                  *
*  NOTES: doe a deer a female deer ray a drop of golden sun	me a name I call  *
*			                  *
*******************************************************************************
;
*****************************************
*		*
*  V.0.1.0 - 5/3/86		*
*		*
*****************************************
;
	EXPORT iDoUnderline
iDoUnderline	PROC
*              USING E0Vectors
;
descentMod	equ temp+2
;
	lda descent
	cmp #2
	beq DescentEQ2
	bpl DescentGT2
;descent < 2 - do not underline
	rtl
;
DescentEQ2		; 
	lda #AllBitsOff
	bra GotDescent
DescentGT2		; 
	lda #AllBitsOn
GotDescent		; 
	sta DescentMod
;DescentMod will be	used to zero out any garbage from below	the
;underline when there is no valid image	info there
;
	lda rightExtent
	cmp LeftExtent
	bpl ExtentsOK
;0 image width:
	lda bufPen
	cmp startBufPen
;
**  BUG FIX
	bne NotUtterNull	;changed from "bpl"
;
**  END OF BUG FIX - BHM  x6245
;
;utter null:  no image pixels, no pen change
	rtl	;so what can you do?
;
NotUtterNull		; ;but still 0 image width
	dec a	;bufPen was in acc.
	sta rightExtent
	lda startBufPen
	sta leftExtent
	bra LNROK
;
ExtentsOK		; 
	lda bufPen
	dec a
	cmp rightExtent
	bmi rightOK
	sta rightExtent
RightOK		; 
;
	lda startBufPen
	cmp leftExtent
	bpl LeftOK
	sta leftExtent
LeftOK		; 
;leftExtent and rightExtent have now been modified to include entire underline
;
LNROK		; 
	lda justExtents
	beq UlineIt
;only extents to be	changed - and they're done:
	rtl
;
UlineIt		; 
	lda leftExtent
	lsr a
	lsr a
	lsr a
	and #first15Bits	;boiled down to even-byte offset
	sta temp
;
	PushLong #0	;for result of multiply
	pei bufRowBytes
	pei ascent
	_Multiply
	pla	;low word
	clc
	adc bufPtr
	sta pmRowPtr
	pla
	adc bufPtr+2
	sta pmRowPtr+2
;
	lda pmRowPtr
	clc
	adc temp
	sta pmRowPtr
	bcc NoCarry1
	inc pmRowPtr+2
NoCarry1		; 
;
	lda pmRowPtr
	clc
	adc bufRowBytes
	sta tbRowPtr
	lda pmRowPtr+2
	bcc NoCarry2
	inc a
	
NoCarry2	sta tbRowPtr+2
	sta fontTemp+2
;
	lda tbRowPtr
	clc
	adc bufRowBytes
	sta fontTemp
	bcc NoCarry3
	inc fontTemp+2
NoCarry3		; 
;
;pmRowPtr now points to the first important byte in the row	above
;the underline, tbRowPtr to the analogous byte in the underline's row,
;and fontTemp just one row below that
;
	phb
	pei tbRowPtr+1	;set DBR for underline's row
	plb
	plb
;
	lda rightExtent
	lsr a
	lsr a
	lsr a
	and #first15Bits	;boiled down to even byte
	sec
	sbc temp	;same for left bound
	bne MoreThanAWord	;. . . of active text buffer
	brl OnlyOneWord
;
MoreThanAWord		; 
;acc. holds even numOfBytes, >= 2
	sta numOfBytes	;added 3/10/87
	tay
;temp will be used to accumulate "interfering" image pixels	for the current
;word; temp2 will serve the same purpose for the previous word.  Since we
;need the previous word shifted to handle the current one, a lot of work can
;be saved for the next pass ("previous", here, means one word to the left)
;
	lda (tbRowPtr),y	;current word
	xba
	lsr a
	xba
	sta temp
;
NextWord		; ;(actually, "PreviousWord")
;
	stz temp2
	lda (tbRowPtr),y
	xba
	asl a
	xba
	ora temp
	sta temp
	bcc LeftBit0
;left bit of current word is set - hand	it over for next pass:
	lda #lastBitXBAed
	sta temp2
LeftBit0		; 
;
	lda [fontTemp],y	;word below
	and descentMod	;0 if no row below,	$FFFF ow
	ora [pmRowPtr],y
	ora temp
	sta temp
;
	dey
	dey
	lda (tbRowPtr),y
	xba
	lsr a
	xba
	ora temp2
	sta temp2
	bcc RightBit0
;right bit of previous word set - use it here
	lda #firstBitXBAed
	ora temp
	sta temp
RightBit0		; 
;
	lda temp
	eor #allBitsOn
	iny
	iny
;TRY THIS, WHY DONTCHA?
	ora (tbRowPtr),y
;OK - CONSIDER IT TRIED
	sta (tbRowPtr),y
;
	dey
	dey
	beq LeftMostWord
;previous becomes current:
	lda temp2
	sta temp
	bra NextWord
;
LeftMostWord		; 
;new current word right-shifted and bit	from
;word to the right already ORed in temp2
;
	lda [fontTemp]	;word below
	and descentMod	;if any
	ora [pmRowPtr]	;above
	ora temp2
	sta temp2
;
	lda (tbRowPtr)
	xba
	asl a
	xba
	ora temp2
	eor #allBitsOn
;THIS TOO
	ora (tbRowPtr)
;GOTCHA
	sta (tbRowPtr)
;
	bra AllDone
;
OnlyOneWord		; 
;
**  ADDED 3/10/87 TO HELP WITH THE BOUNDARY PROBLEM
;  (see below)
;
	sta numOfBytes	;helps to know it's 0
;
**  END OF CHANGE -	BHM  x6245
;
	lda [fontTemp]
	and descentMod
	ora [pmRowPtr]
	sta temp
;
	lda (tbRowPtr)
	xba
	tax	;temp. storage
	lsr a
	xba
	ora temp
	sta temp
;
	txa
	asl a
	xba
	ora temp
	eor #allBitsOn
;AND THIS?
	ora (tbRowPtr)
;RIGHT
	sta (tbRowPtr)
;
AllDone		; 
;
**  ADDED 3/10/87
;formerly, the underlining was allowed to extend past the natural
;boundaries of the text image being underlined to the nearest word
;boundaries - we relied on BlowItUp to do the clipping.  However,
;when outlining or shadowing intervene,	this cause trouble.	 Hence:
;
	lda leftExtent

	and #last4Bits
	asl a
	tax
	lda >leftBitMask,x
	and (tbRowPtr)	;mask out the extra	on the left
	sta (tbRowPtr)
;
	lda rightExtent
	and #last4Bits
	asl a
	tax
	lda >rightBitMask,x
	ldy numOfBytes	;can be 0
	and (tbRowPtr),y	;mask out extra on right
	sta (tbRowPtr),y
;
**  END OF CHANGE -	BHM  x6245
;
	plb
	rtl
	ENDP
*****************************************
*		*
*  end of DoUnderline	*
*		*
*****************************************
;                copy text/putchar
*****************************************
*		*
*  current date and	time:	*
*    4:30 PM, 4/18/86	*
*		*
*****************************************
;
*******************************************************************************
*			                  *
*              subroutine PutChar		                  *
*			                  *
*		started 4/17/86	                  *
*		Bennet Marks x6245	                  *
*			                  *
*  ABSTRACT:  this subroutine is used to transfer character	images from the   *
*  font strike to the text buffer.		                  *
*			                  *
*  ASSUMPTIONS:  the subroutine requires qwerty qwerty qwerty qwerty qwerty   *
*			                  *
*  RETURNS:  iamozymandiaskingofkingslokuponmyworksyemightyanddespair         *
*			                  *
*  NOTES: doe a deer a female deer ray a drop of golden sun	me a name I call  *
*			                  *
*******************************************************************************
;
*****************************************
*		*
*  V.0.2.0 - 4/17/86	*
*    A substantially different version	*
*    of this subroutine appeared in	*
*    earlier software.  Used by per-	*
*    mission - BHM,	4/17/86	*
*		*
*****************************************
;
	EXPORT iPutChar
iPutChar	PROC
*              using E0Vectors
;
;.......................................
*imageWidth    equ temp
*locTEnt       equ temp+2
*startBit      equ temp2
;
	phb
;
	lda bufPen
	sta imagePen	;a much-needed copy
;
	jsl ValidChar
	tax	;temp. storage for o/w value
;
	and #lowByte	;get character width
	clc
	adc bufPen	;bump pen
	sta bufPen
;
	lda [locTPtr],y	;this char's location table entry
	MacSwitch
	sta locTEnt
	iny
	iny
	lda [locTPtr],y	;next char's entry
	MacSwitch
;
	dec a	;our char's rightmost pixel (in FS)
;		;[FS = font strike]
	tay	;temp. storage
;
	sec
	sbc locTEnt
	bpl Not0Width
	brl ZeroWidth
;
Not0Width		; 
	sta imageWidth	;actually, image width-1
;
	txa	;o/w value
	xba
	and #lowByte	;offset
	clc
	adc kernMax
	clc
	adc imagePen
	sta imagePen	;our char's leftmost pixel (in buffer)
;
	cmp leftExtent	;new leftmost pixel?
	bpl leftFine	;no
	sta leftExtent	;yes
leftFine		; 
;
	clc
	adc imageWidth	;rightmost pixel (in buffer)
	cmp rightExtent
	bmi rightFine
	sta rightExtent
RightFine		; ;thank'ee kindly, Ma'am
;
	lda locTEnt	;rightmost pixel in	FS
	and #last4Bits
;startBit is the position of the rightmost pixel (of our
;character, in the font strike) within its pixelword:
	sta startBit
	asl a	;for access to mask	table
	tax
	lda >leftBitMask,x
;maskLeft masks out	all the garbage in the font strike to the left of our
;character's image (this "garbage" is, of course, perfectly good image
;information for the previous character):
	sta maskLeft
;
	lda locTEnt
	lsr a
	lsr a
	lsr a
	and #first15Bits
;startByte is the first byte of the first font strike word containing any
;pixels of our character - it is constrained to be even:
	sta startByte
;
;pmRowPtr (pm for "pixelmap" - it's generic) points to startByte; later it
;will be updated for each new row:
	clc
	adc strikePtr	;add startByte to font strike pointer
	sta pmRowPtr
	lda strikePtr+2
	bcc @NoCarry1
	inc a
	
@NoCarry1	sta pmRowPtr+2
;
	tya	;retrieve char's rightmost pixel in FS
	and #last4Bits	;position within pixelword
	asl a
	tax
	lda >rightBitMask,x
	sta maskRight	;masks out "garbage" to the right
;
;now do some of the	same things for the	buffer:
	lda imagePen
	lsr a
	lsr a
	lsr a
	and #first15Bits	;offset within buffer
	tax	;temp. storage
;
;subtract bit-within-word positions (one for FS,
;one for buffer) to	get shift amount
	lda imagePen
	and #last4Bits
	sec
	sbc startBit
	bpl GoodShift
;sinister shift - add 16 to shift amount (making it positive),
;then compensate by	subtracting two bytes from the buffer offset:
	clc
	adc #bitsInWord
	dex	;buffer offset in x
	dex
;
GoodShift		; 
	asl a
	sta HowFarToShift
;
;tbRowPtr is to the	buffer as pmRowPtr is to the font strike:
	txa	;buffer offset
	clc
	adc bufPtr
	sta tbRowPtr
	lda bufPtr+2
	bcc @NoCarry2
	inc a
	
@NoCarry2	sta tbRowPtr+2
;
;set DBR to match current piece of text	buffer:
	pei tbRowPtr+1
	plb
	plb
;
	lda chHeight
	sta rowCounter	;prepare for leap into row loop
;
	tya	;STILL rightmost pixel, BION
	lsr a
	lsr a
	lsr a
	and #first15Bits	;"endByte", like startByte
;
	sec
	sbc startByte	;speaking of which . . . .
;we special-case characters which do not span more than 1 font strike word:
	bne MoreThanAWord	;not these
	brl OnlyOneWord	;but these
;
;[BHMNOTE:  nice place for a file break, if needed]
;[BHMNOTE:  it will	be, it will be]
;
MoreThanAWord		; 
;
	sta numOfBytes	;even, and here >= 2
;
NextRow		; 
;
	ldy #0
;leftmost word in row:
	lda [pmRowPtr]	;get font strike word
	and maskLeft	;mask the garbage
;no point shifting,	OR'ing, and STA'ing	a bunch of zeros:
	beq NullWord
;
NextWord		; 
	sta strikeWord
	jsl ShiftStay	;rotate to match buffer
	ora (tbRowPtr),y	;OR with current buffer
	sta (tbRowPtr),y	;and replace
;
	lda strikeWord
	jsl ShiftOut	;to go into next buffer word
	iny
	iny
	ora (tbRowPtr),y
	sta (tbRowPtr),y
;
CheckY		; 
;are we down to the	last word in the row?
	cpy numOfBytes
	beq RightMostWord	;yes
;nuhUH:
	lda [pmRowPtr],y	;pick up next font strike word
	bne NextWord	;if it's worth looking at
NullWord		; ;it's not:
	iny	;so try,
	iny	;try
	bra CheckY	;again
;
;rightmost word in a row with 2 or more	words:
RightMostWord		; 
;
	lda [pmRowPtr],y
	and maskRight
	beq NullRightWord
	sta strikeWord
	jsl ShiftStay
	ora (tbRowPtr),y
	sta (tbRowPtr),y
;
	lda strikeWord
	jsl ShiftOut
	iny
	iny
	ora (tbRowPtr),y
	sta (tbRowPtr),y
;since that was the	rightmost word, we must be at the end of a row:
NullRightWord		; 
	dec rowCounter
	beq CharDone	;end of all rows, for this char
;update pointers:
	lda tbRowPtr
	clc
	adc bufRowBytes
	sta tbRowPtr
	bcc NoCarry1
	inc tbRowPtr+2	;pointer high word changed, so
	pei tbRowPtr+1	;set new bank
	plb
	plb
NoCarry1		; 
;
	lda pmRowPtr
	clc
	adc rowBytes
	sta pmRowPtr
	bcc NoCarry2
	inc pmRowPtr+2
NoCarry2		; 
	bra NextRow
;
;
OnlyOneWord		; 
;special-case transfer for any character whose width
;does not span a word boundary in the font strike
;
;it's like the general case, only less
;
	lda maskRight
	and maskLeft	;merge the masks
	sta maskLeft
;
	ldy #2
;
OOWNextRow		; 
	lda [pmRowPtr]
	and maskLeft
	beq OOWNullWord
;
	sta strikeWord
	jsl ShiftStay
	ora (tbRowPtr)
	sta (tbRowPtr)
;
	lda strikeWord
	jsl ShiftOut
	ora (tbRowPtr),y
	sta (tbRowPtr),y
;
OOWNullWord		; 
	dec rowCounter
	beq CharDone
;
	lda tbRowPtr
	clc
	adc bufRowBytes
	sta tbRowPtr
	bcc NoCarry3
	inc tbRowPtr+2
	pei tbRowPtr+1
	plb
	plb
NoCarry3		; 
;
	lda pmRowPtr
	clc
	adc rowBytes
	sta pmRowPtr
	bcc NoCarry4
	inc pmRowPtr+2
NoCarry4		; 
	bra OOWNextRow
;
;
;
ZeroWidth		; 
;
CharDone		; ;ain't it da truth!
	plb
	rtl
	ENDP
*****************************************
*		*
*  end of PutChar		*
*		*
*****************************************
;                copy text/textbufcalls
*****************************************
*		*
*  current date and	time:	*
*    4:00 PM, 5/9/86	*
*		*
*****************************************
;
*******************************************************************************
*			                  *
*              subroutine SetTB		                  *
*			                  *
*		started 5/9/86	                  *
*		Bennet Marks x6245	                  *
*			                  *
*  ABSTRACT:  this subroutine sets the size of the text buffer.  It is 1 of 2 *
*  that replace SizeTextBuffer.  More documentation to follow.                *
*			                  *
*  ASSUMPTIONS:  the subroutine requires qwerty qwerty qwerty qwerty qwerty   *
*			                  *
*  RETURNS:  iamozymandiaskingofkingslokuponmyworksyemightyanddespair         *
*			                  *
*  NOTES: doe a deer a female deer ray a drop of golden sun	me a name I call  *
*			                  *
*******************************************************************************
;
*****************************************
*		*
*  V.0.1.0 - 5/9/86		*
*		*
*****************************************
;
	EXPORT iSetTB
iSetTB	PROC
*              USING E0Vectors
;
	lda ForcedFont	;Set or Force?
	bne ForcedWidth
;non-forced - apply	the default mods:
	lda NewMaxFontWidth	;fontWidth
	clc
	adc NewMaxFontWidth
	adc NewMaxFontWidth	;times 3
	adc #36	;default to handle bold, italic
	sta fontTemp
	bra GotFontWidth
;
ForcedWidth		; 
	lda NewMaxFontWidth
	sta fontTemp
GotFontWidth		; 
;
	lda fontTemp
	inc a
	clc
	adc maxWidth
	asl a
	asl a
;the number in the acc. is our good-guess at the number of pixels
;needed across in the font buffer - may	be changed later
;
	lsr a
	lsr a
	lsr a
	and #first15bits	;in bytes
	sta bufRowBytes	;useful though temp. here
;
	PushLong #0	;for result of mult.
	pei bufRowBytes
	pei newTBHeight
;
	_Multiply
;
	pei textBufHandle+2
	pei textBufHandle
;
	_SetHandleSize
;
	bcc NoMemErr
;memory error - carry is set, err # is in acc.:
	rtl
;
NoMemErr		; 
;
;install new values:
	lda NewTBHeight
	sta textBufHeight
	lda bufRowBytes
	lsr a
	sta textBufRowWords
	lda ForcedFont
	bne SetForced
;make sure we know it's not forced:
	lda #0
	ldx #256
	sta fontWidth,x
	bra FWSet
;
SetForced		; 
	lda newMaxFontWidth
	ldx #256
	sta fontWidth,x
;
FWSet		; 
;
;set up for call to	ClearBufPart:
	ldx textBufHandle+2
	lda textBufHandle
	jsr TextDeref
;
	stx bufPtr+2
	sta bufPtr
;
	stz leftExtent
	lda textBufRowWords
	dec a
	sta rightExtent
	lda textBufHeight
	sta chHeight	;to fool ClearBufPart
;
	jsl ClearBufPart
;
;
	clc	;no error to report
	lda #0
;
	rtl
	ENDP
*****************************************
*		*
*  end of SetTB		*
*		*
*****************************************
;
;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
;
*****************************************
*		*
*  current date and	time:	*
*    4:30 PM, 5/9/86	*
*		*
*****************************************
;
*******************************************************************************
*			                  *
*              subroutine ResetTB		                  *
*			                  *
*		started 5/9/86	                  *
*		Bennet Marks x6245	                  *
*			                  *
*  ABSTRACT:  documentation to follow		                  *
*			                  *
*  ASSUMPTIONS:  the subroutine requires qwerty qwerty qwerty qwerty qwerty   *
*			                  *
*  RETURNS:  iamozymandiaskingofkingslokuponmyworksyemightyanddespair         *
*			                  *
*  NOTES: doe a deer a female deer ray a drop of golden sun	me a name I call  *
*			                  *
*******************************************************************************
;
*****************************************
*		*
*  V.0.1.0 - 5/9/86		*
*		*
*****************************************
;
	EXPORT iResetTB
iResetTB	PROC
*              USING E0Vectors
;
	PushLong #0	;for multiply result
;
	lda newTBRowWords
	asl a
	sta bufRowBytes
	pha
;
	pei NewTBHeight
;
	_Multiply
;
	pei textBufHandle+2
	pei textBufHandle
;
	_SetHandleSize
;
	bcc NoMemErr
;there was a mem error - carry set, number in acc.
	rtl
;
NoMemErr		; 
;
;install new values:
	lda NewTBHeight
	sta textBufHeight
	lda newTBRowWords
	sta textBufRowWords
	lda newFontWidth
	ldx #256
	sta fontWidth,x
;
;set up for call to	ClearBufPart:
	ldx textBufHandle+2
	lda textBufHandle
	jsr TextDeref
;
	stx bufPtr+2
	sta bufPtr
;
	stz leftExtent
	lda textBufRowWords
	dec a
	sta rightExtent
	lda textBufHeight
	sta chHeight	;to fool ClearBufPart
;
	jsl ClearBufPart
;
;
	clc	;no error to report
	lda #0
;
	rtl
	ENDP
*****************************************
*		*
*  end of ResetTB		*
*		*
*****************************************
;                copy text/blowitup
****************************************************************
*
* BlowItUp
*
* This is the routine that takes the 1-bit per pixel text
* image in the text	buffer and paints it to the destination
* bit map as 2 or 4	bits per pixel with	the right
* foreground and background color in the right text mode.
*
* Several modes are	supported as follows
*
*        Mode
*        Code
*         0    Copies foreground and background into destination
*         1    OR's foreground and background with destination
*         2    XOR's foreground and background with destination
*         3    BIC's foreground and background with destination
*         4    Copies only the foreground into the destination
*	(background is untouched).
*         5    OR's foreground into destination (background is
*	untouched).
*         6    XOR's foreground into destination (background is
*	untouched).
*         7    BIC's foreground into destination (background is
*	untouched).
*
* Each mode is acheived by its own handler.  The first part	of SetItUp
* puts the vector to the handler in the	current JMP vector location
* in bank E0.
*
* There is no left and right mask as I rely on the MinRect to
* be set up correctly.  The right MinRect means that the left
* and right mask are already incorporated in the scan line
* buffer.
*
* Variables On zero	page that I use are:
*
*     CurPMByte	 ; a pointer in the	inner loop of BlowItUp
*     CurTBByte	 ; a pointer in the	inner loop of BlowItUP
*     WordCounter	 ; counter in the inner loop of BlowItUp
*     FG	 ; local copy of foreground color
*     BG	 ; local copy of background color
*     TextMode	 ; local copy of text mode
*
* Change History
*
* 18 Feb 87    Steven Glass
*
* Using font flag 2	(counting from zero) we decide if we should
* force the text color to be adjusted or not.  When I adjust
* the color I call ExtendColorWord which copies the lowest
* pixel into the other pixels of the word.  When I don't make
* this call, the programmer can have dithered color text in
* 640 mode or multi	colored text (a vertical striped pattern)
* in any mode.
*
****************************************************************
	EXPORT iBlowItUp
iBlowItUp	PROC
*              using CoreDATA
*              using E0Vectors


;-----------------------------------------------
;
; First setup the ToStuffBig vector based on the
; text mode.
;
	ldy #o_txmode
	lda [PortRef],y
	sta TextMode

	jsl SetStuffAdr

;----------------------------------------------------------
;
; Check font flag 2	(numbered from zero) to see if the
; programmer wants me to force the color to be right or if
; s/he wants me to use the foreground and background colors
; as they are passed in the port.
;

	stz Temp
	ldy #o_FontFlags
	lda [PortRef],y
	and #%0000000000000100
	beq NotSpecial
	dec Temp
NotSpecial		; 

	ldy #o_FGColor
	lda [PortRef],y
	bit Temp
	bmi UseAsIs1
	tax
	lda PortSCB
	jsr ExtendColorWord
UseAsIs1	sta FG

	ldy #o_BGColor
	lda [PortRef],y
	bit temp
	bmi UseAsIs2
	tax
	lda PortSCB
	jsr ExtendColorWord
UseAsIs2	sta BG

	jsl Init2Regions
	lda MinRect
	sta CurrentY

	jsl ShieldCursor

	lda TextMode
	and #$7FFF
	cmp #4
	bcs FastBigLoop
	jmp SlowBigLoop

	ENDP


****************************************************************
*
* FastBigLoop
*
* The FastBigLoop can only be used for the foreground xfer
* modes.  The major	difference between fast and slow is that
* in the fast loop we check each word, if it is zero, we bypass
* the stuff big code.  This saves lots of time.
*
****************************************************************
	EXPORT FastBigLoop
FastBigLoop	PROC
*              using CoreDATA
*              using E0Vectors

	lda NonRectRegions
	bne BigLoop
	jsl Seek2Regions


BigLoop		; 

	lda NumOfWords	; set up the counters that the
	sta WordCounter	; inner loop uses
	lda tbStartByte
	sta CurTBByte
	lda pmStartByte
	sta CurPMByte

	lda NonRectRegions
	beq SkipSeek

	jsl Seek2Regions

SkipSeek		; 
;------------------------------------------------------
;
; See which of the inner loops I should	use.
;
	bit TextMode
	bmi InvertLoop

	bit PortSCB-1
	bmi Loop640

Loop320		; ; this loop is for standard xfer modes
	ldy CurTBByte
	lda [tbRowPtr],y	; waste 2 cycles here to see if shortcut
	beq NoBother320	; is available.
	jsl ToStuffBig
	ldy CurTBByte
	iny
	lda [tbRowPtr],y
	iny
	sty CurTBByte
	jsl ToStuffBig
	dec WordCounter
	bpl Loop320
	bra NextRow


NoBother320		; 
	iny	; bump y and store it for next
	iny	; time around.
	sty CurTBByte
	lda CurPMByte	; add eight since we did not get
	clc	; to go off to stuff big twice where
	adc #8	; this would happen
	sta CurPMByte
	dec WordCounter
	bpl Loop320
	bra NextRow


Loop640		; ; this loop is for standard xfer modes
	ldy CurTBByte
	lda [tbRowPtr],y	; waste 2 cycles here to see if shortcut
	beq NoBother640	; is available.
	jsl ToStuffBig
	ldy CurTBByte
	iny
	lda [tbRowPtr],y
	iny
	sty CurTBByte
	jsl ToStuffBig
	dec WordCounter
	bpl Loop640
	bra NextRow


NoBother640		; 
	iny	; bump y and store it for next
	iny	; time around.
	sty CurTBByte
	lda CurPMByte	; bump this 4 times	by moving to
	inc a	; reg to speed it up
	inc a
	inc a
	inc a
	sta CurPMByte	; store it back out
	dec WordCounter
	bpl Loop640
	bra NextRow





InvertLoop		; ; this loop is for the NOT xfer modes
	ldy CurTBByte
	lda [tbRowPtr],y
	eor #$FFFF
	jsl ToStuffBig
	ldy CurTBByte
	iny
	lda [tbRowPtr],y
	eor #$FFFF
	iny
	sty CurTBByte
	jsl ToStuffBig
	dec WordCounter
	bpl InvertLoop



NextRow		; 
	lda tbRowPtr
	clc
	adc BufRowBytes
	sta tbRowPtr
	bcc NoCarry1
	inc tbRowPtr+2
NoCarry1		; 

	lda pmRowPtr
	clc
	adc Width
	sta pmRowPtr
	bcc NoCarry2
	inc pmRowPtr+2
NoCarry2		; 

	inc CurrentY

	dec RowCounter
	bmi AllDone
	jmp BigLoop

AllDone	jsl UnShieldCursor

	rtl

	ENDP




****************************************************************
*
* SlowBigLoop
*
* SlowBigLoop is used when the foreground and background are
* transfered.  The major difference between fast and slow is that
* in the fast loop we check each word, if it is zero, we bypass
* the stuff big code.  This saves lots of time.  Here we bypass
* nothing.
*
****************************************************************
	EXPORT SlowBigLoop
SlowBigLoop	PROC
*              using CoreDATA
*              using E0Vectors


BigLoop		; 
	lda NumOfWords	; set up the counters that the
	sta WordCounter	; inner loop uses
	lda tbStartByte
	sta CurTBByte
	lda pmStartByte
	sta CurPMByte

	jsl Seek2Regions


;------------------------------------------------------
;
; See which of the two inner loops I should use.
;
	bit TextMode
	bmi InvertLoop

Loop		; ; this loop is for standard xfer modes
	ldy CurTBByte
	lda [tbRowPtr],y
	jsl ToStuffBig
	ldy CurTBByte
	iny
	lda [tbRowPtr],y
	iny
	sty CurTBByte
	jsl ToStuffBig
	dec WordCounter
	bpl Loop
	bra NextRow


InvertLoop		; ; this loop is for the NOT xfer modes
	ldy CurTBByte
	lda [tbRowPtr],y
	eor #$FFFF
	jsl ToStuffBig
	ldy CurTBByte
	iny
	lda [tbRowPtr],y
	eor #$FFFF
	iny
	sty CurTBByte
	jsl ToStuffBig
	dec WordCounter
	bpl InvertLoop



NextRow		; 
	lda tbRowPtr
	clc
	adc BufRowBytes
	sta tbRowPtr
	bcc NoCarry1
	inc tbRowPtr+2
NoCarry1		; 

	lda pmRowPtr
	clc
	adc Width
	sta pmRowPtr
	bcc NoCarry2
	inc pmRowPtr+2
NoCarry2		; 

	inc CurrentY

	dec RowCounter
	bpl BigLoop

	jsl UnShieldCursor

	rtl

	ENDP


****************************************************************
*
* Text640ModeTable
*
* This is a table of jml vectors that will transfer control
* back to the appropriate stuffbig routine.
*
****************************************************************
	EXPORT Text640ModeTable
Text640ModeTable	PROC

	jml StuffBig0640
	jml StuffBig1640
	jml StuffBig2640
	jml StuffBig3640
	jml StuffBig4640
	jml StuffBig5640
	jml StuffBig6640
	jml StuffBig7640

	ENDP

****************************************************************
*
* Text320ModeTable
*
* This is a table of jml vectors that will transfer control
* back to the appropriate stuffbig routine.
*
****************************************************************
	EXPORT Text320ModeTable
Text320ModeTable	PROC

	jml StuffBig0320
	jml StuffBig1320
	jml StuffBig2320
	jml StuffBig3320
	jml StuffBig4320
	jml StuffBig5320
	jml StuffBig6320
	jml StuffBig7320

	ENDP



****************************************************************
*
* SetStuffAdr
*
****************************************************************
	EXPORT iSetStuffAdr
iSetStuffAdr	PROC
*              using E0Vectors

	bit PortSCB-1
	bpl Mode320

	and #$7F
	asl a
	asl a
	tax
	lda >Text640ModeTable,x
	sta >ToStuffBig
	lda >Text640ModeTable+2,x
	sta >ToStuffBig+2

	rtl

Mode320	and #$7F
	asl a
	asl a
	tax
	lda >Text320ModeTable,x
	sta >ToStuffBig
	lda >Text320ModeTable+2,x
	sta >ToStuffBig+2

	rtl
	ENDP
;                copy text/stuffbig0
****************************************************************
*
* StuffBig0
*
* This is the routine that copies into the destination
* coloring the forground and background.
*
****************************************************************
	EXPORT StuffBig0320
StuffBig0320	PROC

	and #$00FF	; deal with only one byte at a time
	asl a	; quadruple the value so can index
	asl a	; into conversion table
	tax
	lda >ConTable320+2,x
	tay
	lda >ConTable320,x
	tyx

	tay	; save copy in y
	and FG	; now the foreground pixels are colored
	sta tempFG	; save it here
	tya	; get back orig
	eor #$FFFF	; invert it
	and BG	; now the background pixels are colored
	ora tempFG
	sta tempFG	; this has rightly colored word

	ldy CurPMByte	; get index to dest
	lda [ScanMaskRef],y	; get mask for this	scan line
	eor #$FFFF	; invert it
	and [pmRowPtr],y	; and with orig dest
	sta NotMaskAndDest	; save this here
	lda [ScanMaskRef],y	; get mask back
	and tempFG	; and with rightly colored word
	ora NotMaskAndDest	; or with burned out dest
	sta [pmRowPtr],y	; and put it back!

	iny
	iny
	txa
	and FG	; now the foreground pixels are colored
	sta tempFG	; save it here
	txa	; get back orig
	eor #$FFFF	; invert it
	and BG	; now the background pixels are colored
	ora tempFG
	sta tempFG	; this has rightly colored word

	lda [ScanMaskRef],y	; get mask for this	scan line
	eor #$FFFF	; invert it
	and [pmRowPtr],y	; and with orig dest
	sta NotMaskAndDest	; save this here
	lda [ScanMaskRef],y	; get mask back
	and tempFG	; and with rightly colored word
	ora NotMaskAndDest	; or with burned out dest
	sta [pmRowPtr],y	; and put it back!

	iny
	iny
	sty CurPMByte

	rtl

	EXPORT StuffBig0640
StuffBig0640		;       
	and #$00FF	; deal with only one byte at a time
	asl a	; double the value so can index
*		; into conversion table
	tax
	lda >ConTable640,x


	tay	; save copy in y
	and FG	; now the foreground pixels are colored
	sta tempFG	; save it here
	tya	; get back orig
	eor #$FFFF	; invert it
	and BG	; now the background pixels are colored
	ora tempFG
	sta tempFG	; this has rightly colored word

	ldy CurPMByte	; get index to dest
	lda [ScanMaskRef],y	; get mask for this	scan line
	eor #$FFFF	; invert it
	and [pmRowPtr],y	; and with orig dest
	sta NotMaskAndDest	; save this here
	lda [ScanMaskRef],y	; get mask back
	and tempFG	; and with rightly colored word
	ora NotMaskAndDest	; or with burned out dest
	sta [pmRowPtr],y	; and put it back!

	iny
	iny
	sty CurPMByte

	rtl

	ENDP
;                copy text/stuffbig1
****************************************************************
*
* StuffBig1
*
* This is the routine that ORs into the	destination
* coloring the forground and background.
*
****************************************************************
	EXPORT StuffBig1320
StuffBig1320	PROC

	and #$00FF	; deal with only one byte at a time
	asl a	; quadruple the value so can index
	asl a	; into conversion table
	tax
	lda >ConTable320+2,x
	tay
	lda >ConTable320,x
	tyx

	tay	; save copy in y
	and FG	; now the foreground pixels are colored
	sta tempFG	; save it here
	tya	; get back orig
	eor #$FFFF	; invert it
	and BG	; now the background pixels are colored
	ora tempFG	; a now has rightly	colored word

	ldy CurPMByte	; get index to dest
	and [ScanMaskRef],y	; and with mask for	this scan line
	ora [pmRowPtr],y	; or with orig dest
	sta [pmRowPtr],y	; and put it back!

	iny
	iny
	txa
	and FG	; now the foreground pixels are colored
	sta tempFG	; save it here
	txa	; get back orig
	eor #$FFFF	; invert it
	and BG	; now the background pixels are colored
	ora tempFG	; this has rightly colored word

	and [ScanMaskRef],y	; and with mask for	this scan line
	ora [pmRowPtr],y	; or original destination
	sta [pmRowPtr],y	; and put it back!

	iny
	iny
	sty CurPMByte

	rtl


	EXPORT StuffBig1640
StuffBig1640		;       
	and #$00FF	; deal with only one byte at a time
	asl a	; double the value so can index
*		; into conversion table
	tax
	lda >ConTable640,x


	tay	; save copy in y
	and FG	; now the foreground pixels are colored
	sta tempFG	; save it here
	tya	; get back orig
	eor #$FFFF	; invert it
	and BG	; now the background pixels are colored
	ora tempFG	; this now gives us	rightly colored word

	ldy CurPMByte	; get index to dest
	and [ScanMaskRef],y	; and with mask for	this scan line
	ora [pmRowPtr],y	; or with orig dest
	sta [pmRowPtr],y	; and put it back!

	iny
	iny
	sty CurPMByte

	rtl

	ENDP
;                copy text/stuffbig2
****************************************************************
*
* StuffBig2
*
* This is the routine that XORs into the destination with
* colored forground	and background.
*
****************************************************************
	EXPORT StuffBig2320
StuffBig2320	PROC

	and #$00FF	; deal with only one byte at a time
	asl a	; quadruple the value so can index
	asl a	; into conversion table
	tax
	lda >ConTable320+2,x
	tay
	lda >ConTable320,x
	tyx

	tay	; save copy in y
	and FG	; now the foreground pixels are colored
	sta tempFG	; save it here
	tya	; get back orig
	eor #$FFFF	; invert it
	and BG	; now the background pixels are colored
	ora tempFG	; a now has rightly	colored word

	ldy CurPMByte	; get index to dest
	and [ScanMaskRef],y	; and with mask for	this scan line
	eor [pmRowPtr],y	; or with orig dest
	sta [pmRowPtr],y	; and put it back!

	iny
	iny
	txa
	and FG	; now the foreground pixels are colored
	sta tempFG	; save it here
	txa	; get back orig
	eor #$FFFF	; invert it
	and BG	; now the background pixels are colored
	ora tempFG	; this has rightly colored word

	and [ScanMaskRef],y	; and with mask for	this scan line
	eor [pmRowPtr],y	; or original destination
	sta [pmRowPtr],y	; and put it back!

	iny
	iny
	sty CurPMByte

	rtl


	EXPORT StuffBig2640
StuffBig2640		;       
	and #$00FF	; deal with only one byte at a time
	asl a	; double the value so can index
*		; into conversion table
	tax
	lda >ConTable640,x


	tay	; save copy in y
	and FG	; now the foreground pixels are colored
	sta tempFG	; save it here
	tya	; get back orig
	eor #$FFFF	; invert it
	and BG	; now the background pixels are colored
	ora tempFG	; this now gives us	rightly colored word

	ldy CurPMByte	; get index to dest
	and [ScanMaskRef],y	; and with mask for	this scan line
	eor [pmRowPtr],y	; or with orig dest
	sta [pmRowPtr],y	; and put it back!

	iny
	iny
	sty CurPMByte

	rtl

	ENDP
;                copy text/stuffbig3
****************************************************************
*
* StuffBig3
*
* This is the routine that BICs into the destination with
* colored forground	and background.
*
****************************************************************
	EXPORT StuffBig3320
StuffBig3320	PROC

	and #$00FF	; deal with only one byte at a time
	asl a	; quadruple the value so can index
	asl a	; into conversion table
	tax
	lda >ConTable320+2,x
	tay
	lda >ConTable320,x
	tyx

	tay	; save copy in y
	and FG	; now the foreground pixels are colored
	sta tempFG	; save it here
	tya	; get back orig
	eor #$FFFF	; invert it
	and BG	; now the background pixels are colored
	ora tempFG	; a now has rightly	colored word

	ldy CurPMByte	; get index to dest
	and [ScanMaskRef],y	; and with mask for	this scan line
	eor #$FFFF	; BIC is not src AND dest
	and [pmRowPtr],y	;
	sta [pmRowPtr],y	; and put it back!

	iny
	iny
	txa
	and FG	; now the foreground pixels are colored
	sta tempFG	; save it here
	txa	; get back orig
	eor #$FFFF	; invert it
	and BG	; now the background pixels are colored
	ora tempFG	; this has rightly colored word

	and [ScanMaskRef],y	; and with mask for	this scan line
	eor #$FFFF	; BIC is not src AND dest
	and [pmRowPtr],y	;
	sta [pmRowPtr],y	; and put it back!

	iny
	iny
	sty CurPMByte

	rtl


	EXPORT StuffBig3640
StuffBig3640		;       
	and #$00FF	; deal with only one byte at a time
	asl a	; double the value so can index
*		; into conversion table
	tax
	lda >ConTable640,x


	tay	; save copy in y
	and FG	; now the foreground pixels are colored
	sta tempFG	; save it here
	tya	; get back orig
	eor #$FFFF	; invert it
	and BG	; now the background pixels are colored
	ora tempFG	; this now gives us	rightly colored word

	ldy CurPMByte	; get index to dest
	and [ScanMaskRef],y	; and with mask for	this scan line
	eor #$FFFF	; BIC is not src AND dest
	and [pmRowPtr],y
	sta [pmRowPtr],y	; and put it back!

	iny
	iny
	sty CurPMByte

	rtl

	ENDP
;                copy text/stuffbig4
****************************************************************
*
* StuffBig4
*
* This is the routine that copies only the foreground
* pixels into the destination.
*
****************************************************************
	EXPORT StuffBig4320
StuffBig4320	PROC

	and #$00FF	; deal with only one byte at a time
	asl a	; quadruple the value so can index
	asl a	; into conversion table
	tax
	lda >ConTable320+2,x
	tay
	lda >ConTable320,x
	tyx


	tay	; save copy in y
	and FG	; now the foreground pixels are colored
	sta TempFG	; save colored copy	here
	tya	; get un colored copy back to burn
*		; whole in source
	ldy CurPMByte	; get index to dest
	and [ScanMaskRef],y	; and this with mask for cur scan line
	eor #$FFFF	; invert it
	and [pmRowPtr],y	; and with orig dest
	sta NotMaskAndDest	; save this here

	lda [ScanMaskRef],y	; get mask back
	and tempFG	; and with rightly colored word
	ora NotMaskAndDest	; or with burned out dest
	sta [pmRowPtr],y	; and put it back!

	iny
	iny
	txa
	and FG	; now the foreground pixels are colored
	sta tempFG	; save it here
	txa	; get uncolored copy back to burn again

	and [ScanMaskRef],y	; and with mask for	this scan line
	eor #$FFFF	; invert it
	and [pmRowPtr],y	; and with orig dest
	sta NotMaskAndDest	; save this here
	lda [ScanMaskRef],y	; get mask back
	and tempFG	; and with rightly colored word
	ora NotMaskAndDest	; or with burned out dest
	sta [pmRowPtr],y	; and put it back!

	iny
	iny
	sty CurPMByte

	rtl


	EXPORT StuffBig4640
StuffBig4640		;       
	and #$00FF	; deal with only one byte at a time
	asl a	; double the value so can index
*		; into conversion table
	tax
	lda >ConTable640,x

	tax	; save uncolored copy in x
	and FG	; now the foreground pixels are colored
	sta tempFG	; save it here
	txa	; get uncolored copy back to burn
*		; whole in src.
	ldy CurPMByte	; get index to dest
	and [ScanMaskRef],y	; and with mask for	this scan line
	eor #$FFFF	; invert it
	and [pmRowPtr],y	; and with orig dest
	sta NotMaskAndDest	; save this here
	lda [ScanMaskRef],y	; get mask back
	and tempFG	; and with rightly colored word
	ora NotMaskAndDest	; or with burned out dest
	sta [pmRowPtr],y	; and put it back!

	iny
	iny
	sty CurPMByte

	rtl

	ENDP
;                copy text/stuffbig5
****************************************************************
*
* StuffBig5
*
* This is the routine that OR's the foreground into the dest.
* It is probably the fastest of the routines.
*
****************************************************************
	EXPORT StuffBig5320
StuffBig5320	PROC

	and #$00FF	; deal with only one byte at a time
	asl a	; quadruple the value so can index
	asl a	; into conversion table
	tax
	lda >ConTable320+2,x
	tay
	lda >ConTable320,x
	tyx

	and FG	; put color into foreground

	ldy CurPMByte	; get index to dest
	and [ScanMaskRef],y	; clip to scan line	mask
	ora [pmRowPtr],y	; or with dest
	sta [pmRowPtr],y	; replace dest
	iny	; now bump pointer into dest
	iny
	txa	; get next word from x reg
	and FG	; put the color into the forground
	and [ScanMaskRef],y	; mask the sucker
	ora [pmRowPtr],y	; or with dest
	sta [pmRowPtr],y	; store it
	iny	; bump the pointer to dest while
	iny	; still in reg
	sty CurPMByte	; and save it.

	rtl




	EXPORT StuffBig5640
StuffBig5640		;       
	and #$00FF	; deal with only one byte at a time
	asl a	; double the value so can index
;		; into conversion table
	tax
	lda >ConTable640,x
	and FG	; put color into foreground

	ldy CurPMByte	; get index to dest
	and [ScanMaskRef],y	; and with mask
	ora [pmRowPtr],y	; or with orig dest
	sta [pmRowPtr],y	; and store it
	iny	; bump pointer while still in reg
	iny
	sty CurPMByte	; and store it

	rtl




	ENDP
;                copy text/stuffbig6
****************************************************************
*
* StuffBig6
*
* This is the routine that XOR's the foreground into the dest.
* It is one of the fastest of the routines.
*
****************************************************************
	EXPORT StuffBig6320
StuffBig6320	PROC

	and #$00FF	; deal with only one byte at a time
	asl a	; quadruple the value so can index
	asl a	; into conversion table
	tax
	lda >ConTable320+2,x
	tay
	lda >ConTable320,x
	tyx

	and FG	; put color into foreground

	ldy CurPMByte	; get index to dest
	and [ScanMaskRef],y	; clip to scan line	mask
	eor [pmRowPtr],y	; or with dest
	sta [pmRowPtr],y	; replace dest
	iny	; now bump pointer into dest
	iny
	txa	; get next word from x reg
	and FG	; put the color into the forground
	and [ScanMaskRef],y	; mask the sucker
	eor [pmRowPtr],y	; or with dest
	sta [pmRowPtr],y	; store it
	iny	; bump the pointer to dest while
	iny	; still in reg
	sty CurPMByte	; and save it.

	rtl




	EXPORT StuffBig6640
StuffBig6640		;       
	and #$00FF	; deal with only one byte at a time
	asl a	; double the value so can index
;		; into conversion table
	tax
	lda >ConTable640,x
	and FG	; put color into foreground

	ldy CurPMByte	; get index to dest
	and [ScanMaskRef],y	; and with mask
	eor [pmRowPtr],y	; or with orig dest
	sta [pmRowPtr],y	; and store it
	iny	; bump pointer while still in reg
	iny
	sty CurPMByte	; and store it

	rtl


	ENDP
;                copy text/stuffbig7
****************************************************************
*
* StuffBig7
*
* This is the routine that BIC's the foreground into the dest.
* It is not as fast	as OR and XOR but is a lot faster than
* copy.
*
****************************************************************
	EXPORT StuffBig7320
StuffBig7320	PROC

	and #$00FF	; deal with only one byte at a time
	asl a	; quadruple the value so can index
	asl a	; into conversion table
	tax
	lda >ConTable320+2,x
	tay
	lda >ConTable320,x
	tyx

	and FG	; put color into foreground

	ldy CurPMByte	; get index to dest
	and [ScanMaskRef],y	; clip to scan line	mask
	eor #$FFFF
	and [pmRowPtr],y	; or with dest
	sta [pmRowPtr],y	; replace dest
	iny	; now bump pointer into dest
	iny
	txa	; get next word from x reg
	and FG	; put the color into the forground
	and [ScanMaskRef],y	; mask the sucker
	eor #$FFFF
	and [pmRowPtr],y	; or with dest
	sta [pmRowPtr],y	; store it
	iny	; bump the pointer to dest while
	iny	; still in reg
	sty CurPMByte	; and save it.

	rtl



	EXPORT StuffBig7640
StuffBig7640		;       
	and #$00FF	; deal with only one byte at a time
	asl a	; double the value so can index
;		; into conversion table
	tax
	lda >ConTable640,x
	and FG	; put color into foreground

	ldy CurPMByte	; get index to dest
	and [ScanMaskRef],y	; and with mask
	eor #$FFFF
	and [pmRowPtr],y	; or with orig dest
	sta [pmRowPtr],y	; and store it
	iny	; bump pointer while still in reg
	iny
	sty CurPMByte	; and store it

	rtl



	ENDP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/QD/utils.asm b/IIGS.601.SRC/GSToolbox/QD/utils.asm
new file mode 100644
index 0000000..b968cb9
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/QD/utils.asm
@@ -0,0 +1 @@
+	title 'QD UTILS             GS ROM 2.0'
****************************************************************
*			   *
*              UTILS		   *
*			   *
****************************************************************


****************************************************************
*			   *
*	Copyright (C) 1985-1987	   *
*	All Rights Reserved		   *
*	Apple Computer, Inc.	   *
*			   *
****************************************************************

	string asis
	blanks off


	include 'all.macros'
	
	MACRO
&lab	BumpLongBy2 &adr
&lab	lda &adr
	ldx &adr+2
	inc a
	bne @1
	inx
@1	inc a
	bne @2
	inx
@2	sta &adr
	stx &adr+2
	MEND
	
	
	include ':QDEquates:qd.data.asm'


	INCLUDE ':QDEquates:core.globals1'
	INCLUDE ':QDEquates:core.globals2'


;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

	IMPORT BusyEC0
	IMPORT BusyEC4
	IMPORT EndCall12
	IMPORT EndCall4
	IMPORT EndCall8
	IMPORT QDStart
	IMPORT oEndCall12


;                COPY UTILS/UTILS
****************************************************************
*
* Utilities for the	Core Routines
*
****************************************************************

****************************************************************
*
* SetRect (RPtr : ptr; Left,Top,Right,Bottom : integer)
*
* This is a glue routine in QuickDraw that for Pascal takes
* four integers off	the stack and puts them in a rectangle.
*
****************************************************************
	EXPORT SetRect
SetRect	PROC
RTL1	equ 1
RTL2	equ RTL1+3
Bottom	equ RTL2+3
Right	equ Bottom+2
Top	equ Right+2
Left	equ Top+2
RPtr	equ Left+2

	tsc	; get stack
	phd	; save d
	tcd	; set stack to zp

	lda Top
	sta [RPtr]
	ldy #2
	lda Left
	sta [RPtr],y
	iny
	iny
	lda Bottom
	sta [RPtr],y
	iny
	iny
	lda Right
	sta [RPtr],y

	jmp EndCall12

	ENDP



****************************************************************
*
* OffsetRect (RPtr : ptr; dh, dv : integer);
*
****************************************************************
	EXPORT OffsetRect
OffsetRect	PROC
*              using CoreDATA
RTL1	equ 1
RTL2	equ RTL1+3
OffsetY	equ RTL2+3
OffsetX	equ OffsetY+2
PointerToRect	equ OffsetX+2

	tsc	; get stack
	phd	; save direct
	tcd	; set direct to stack


	ldy #6

Loop	lda [PointerToRect],y
	clc
	adc OffsetX
	sta [PointerToRect],y

	dey
	dey

	lda [PointerToRect],y
	clc
	adc OffsetY
	sta [PointerToRect],y

	dey
	dey

	bpl Loop

	jmp EndCall8

	ENDP


****************************************************************
*
* InsetRect (RPtr :	ptr; dh, dv : integer);
*
* Takes the rectange adds the point the	top/left and subracts
* the point from the bottom right.
*
****************************************************************
	EXPORT InsetRect
InsetRect	PROC
*              using CoreDATA
RTL1	equ 1
RTL2	equ RTL1+3
OffsetY	equ RTL2+3
OffsetX	equ OffsetY+2
PointerToRect	equ OffsetX+2


	tsc	; get stack
	phd	; save direct
	tcd	; set direct page to stack


	lda [PointerToRect]
	clc
	adc OffsetY
	sta [PointerToRect]

	ldy #2
	lda [PointerToRect],y
	clc
	adc OffsetX
	sta [PointerToRect],y


	iny
	iny
	lda [PointerToRect],y
	sec
	sbc OffsetY
	sta [PointerToRect],y

	iny
	iny

	lda [PointerToRect],y
	sec
	sbc OffsetX
	sta [PointerToRect],y

	jmp EndCall8

	ENDP


****************************************************************
*
* SectRect (SrcAPtr, SrcBPtr : ptr; DestPtr : ptr) : boolean
*
* Params
*     input   long	  R1 Pointer
*     input   long	  R2 Pointer
*     input   long	  Result Pointer
*     output  word?	  boolean
*
* Calculates the intersection of R1 and	R2 and puts the
* result in Result Rect
*
****************************************************************
	EXPORT SectRect
SectRect	PROC
*              using CoreDATA
RTL1	equ 1
RTL2	equ RTL1+3
ResultPointer	equ RTL2+3
R2Pointer	equ ResultPointer+4
R1Pointer	equ R2Pointer+4
Result	equ R1Pointer+4

	tsc	; get stack
	phd	; save direct
	tcd	; set direct to stack

	ldy #2
Loop1	lda [R1Pointer],y	; compare the two top/left points
	cmp [R2Pointer],y	; take larger
	bpl GotLarger
	lda [R2Pointer],y
GotLarger	sta [ResultPointer],y
	dey
	dey
	bpl Loop1

	ldy #6
Loop2	lda [R1Pointer],y	; compare the two bot/right points
	cmp [R2Pointer],y
	bmi GotSmaller
	lda [R2Pointer],y
GotSmaller	sta [ResultPointer],y
	dey
	dey
	cpy #3
	bpl Loop2

	ldy #4
	lda [ResultPointer]
	cmp [ResultPointer],y
	bpl ABadRect

	dey
	dey
	lda [ResultPointer],y
	ldy #6
	cmp [ResultPointer],y
	bpl ABadRect


	lda #TRUE	; put true in a-reg
AllDone	sta Result

	jmp EndCall12

ABadRect	lda #FALSE	; zero the dest rect
	ldy #6
Loop4	sta [ResultPointer],y
	dey
	dey
	bpl Loop4
	bra AllDone	; A-reg has false flag

	ENDP


****************************************************************
*
* UnionRect (SrcAPtr, SrcBPtr : ptr; DestPtr : ptr)
*
* Params
*     input      long     R1 Pointer
*     input      long     R2 Pointer
*     input      long     Result Pointer
*
* Calculates the union of R1 and R2 and	puts the
* result in Result Rect
*
****************************************************************
	EXPORT UnionRect
UnionRect	PROC
*              using CoreDATA
RTL1	equ 1
RTL2	equ RTL1+3
ResultPointer	equ RTL2+3
R2Pointer	equ ResultPointer+4
R1Pointer	equ R2Pointer+4

	tsc	; get stack
	phd	; save direct register
	tcd	; set direct to stack

	ldy #2
Loop1	lda [R1Pointer],y	; compare the two top/left points
	cmp [R2Pointer],y	; and keep the smaller one
	bmi GotSmaller
	lda [R2Pointer],y
GotSmaller	sta [ResultPointer],y
	dey
	dey
	bpl Loop1

	ldy #6
Loop2	lda [R1Pointer],y	; compare the two bot/right points
	cmp [R2Pointer],y	; and keep the bigger one
	bpl GotBigger
	lda [R2Pointer],y
GotBigger	sta [ResultPointer],y
	dey
	dey
	cpy #3
	bpl Loop2


	jmp EndCall12

	ENDP



****************************************************************
*
* PtInRect ( PPtr :	ptr; RPtr: ptr) : boolean
*
* Params
*     input     long    R  Pointer
*     input     long    P  Pointer
*     output    word?   boolean
*
* Determines if Point is in rectangle
* result in Result Rect
*
* Modification History
*
*   27 May 86  The test for the Y value	of the point
*              being less than the bottom used a BCS
*              instead of a BPL.
*
****************************************************************
	EXPORT PtInRect
PtInRect	PROC
*              using CoreDATA
RTL1	equ 1
RTL2	equ RTL1+3
RectPtr	equ RTL2+3
PtPtr	equ RectPtr+4
Result	equ PtPtr+4


	tsc	; get stack
	phd	; save direct
	tcd	; set direct to stack


	lda [PtPtr]
	cmp [RectPtr]
	bmi BadPoint
	ldy #4
	cmp [RectPtr],y
	bpl BadPoint	; signed compare on	27 May 86
	dey
	dey
	lda [PtPtr],y
	cmp [RectPtr],y
	bmi BadPoint
	ldy #6
	cmp [RectPtr],y
	bpl BadPoint

	lda #TRUE
AllDone	sta Result


	jmp EndCall8

BadPoint	lda #FALSE
	bra AllDone

	ENDP


****************************************************************
*
* Pt2Rect (PtAPtr, PtBPtr : Ptr; RPtr :	Ptr);
*
*      input     long     Ptr to PtA
*      input     long     Ptr to Ptb
*      input     long     Ptr to Result	Rect
*
* This is another QuickDraw routine that is glue for Pascal.
*
****************************************************************
	EXPORT Pt2Rect
Pt2Rect	PROC
RTL1	equ 1
RTL2	equ RTL1+3
RPtr	equ RTL2+3
BPtr	equ RPtr+4
APtr	equ BPtr+4

	tsc	; get stack
	phd	; save d
	tcd	; set stack to zp

	lda [APtr]	; get y of point a
	sta [RPtr]	; put it in rect
	ldy #2	; get x of point a
	lda [APtr],y	; put it in rect
	sta [RPtr],y	;

	lda [BPtr],y	; get X of point b
	ldy #6	; put it in rect
	sta [RPtr],y	;
	lda [BPtr]	; get Y of point b
	dey
	dey
	sta [RPtr],y	; put it in rect

	jmp EndCall12

	ENDP



****************************************************************
*
* PtToAngle
*
* This is a weird QuickDraw call handy to use with arcs and
* wedges, which Cary Clark thinks we should not support.
*
****************************************************************



****************************************************************
*
* EqualRect   (r1Ptr,r2Ptr : ptr) : boolean;
*
* Params
*     input      long    R1 Pointer
*     input      long    R2 Pointer
*     output     word?   boolean
*
* Determines if two	rectangles are equal
* result in Result Rect
*
****************************************************************
	EXPORT EqualRect
EqualRect	PROC
*              using CoreDATA

RTL1	equ 1
RTL2	equ RTL1+3
R1Ptr	equ RTL2+3
R2Ptr	equ R1Ptr+4
Result	equ R2Ptr+4

	tsc	; get stack
	phd	; save direct
	tcd	; transfer stack to	direct

	ldy #6
Loop	lda [R1Ptr],y
	cmp [R2Ptr],y
	bne NotEqual
	dey
	dey
	bpl Loop

	lda #TRUE	; put true in a-reg
AllDone	sta Result

	jmp EndCall8

NotEqual	lda #FALSE	; zero the dest rect
	bra AllDone

	ENDP


****************************************************************
*
* NotEmptyRect (RPtr : Ptr) : boolean;
*
* Params
*     input     long    Rect Pointer
*     output    word?   boolean
*
* Determines if rectangle is empty.  Empty is defined by
* the top/left being greater than or equal to the bot/right.
*
* Modification History
*
* 31 Dec 86    SEG
*
*    Was returning true when not empty and false when empty	instead
*    of right way.
*
* 05 Feb 87    SEG
*
*    Making this call match the specification caused software
*    to stop working.  We now redefine the call to be
*
*	 NotEmptyRect
*
*    It returns true when the rect is not empty and false if it
*    is empty.
*
****************************************************************
	EXPORT NotEmptyRect
NotEmptyRect	PROC
*              using CoreDATA

RTL1	equ 1
RTL2	equ RTL1+3
RPtr	equ RTL2+3
Result	equ RPtr+4

	tsc	; get stack
	phd	; save direct
	tcd	; set direct to stack

	ldy #0
Loop	lda [RPtr],y
	iny
	iny
	iny
	iny
	cmp [RPtr],y
	bpl YesEmpty
	dey
	dey
	cpy #4
	bcc Loop

	lda #TRUE	; put true in a-reg
AllDone	sta Result

	jmp EndCall4

YesEmpty	lda #FALSE
	bra AllDone

	ENDP

*****************************************************************
*
* Function Random :	Integer
*
*  Basically, this is a transliteration	of the 68000 random	function in
*  QUICKDRAW done by Bill Atkinson.
*
*  REF:
*      "A More portable FORTRAN Random Number Generator"
*      by Linus Schrage
*      ACM Transactions on Mathematical	Software
*      Volume 5, No. 2, June 1979, Pages 132-138
*
***********************
*
* get low 16 bits of seed and form low product
* XALO:= A * LoWord(seed)
*
***********************

	EXPORT Random
Random	PROC
OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
Result	equ RTL2+3

	jsr QDStart
	tdc
	clc
	adc #256	; we only use the high page
	tcd

	pha	; space for result
	pha
	PushWord RandSeed	; LoWord(seed)     {multiplier}
	PushWord #16807	; A=7**5           {multiplicand}
	_Multiply	; 1,S & 3,S = XALO {result}
*
* Form 31 Highest bits of Low Product
* FHI := HiWord(seed) * A + HiWord(XALO)
*
	pha	; space for result
	pha
	PushWord RandSeed+2	; HiWord(seed)     {multiplier}
	PushWord #16807	; A=7**5           {multiplicand}
	_Multiply	; 1,S & 3,S = PROD {result}
*		 ; NOTE: XALO now at 5,S & 7,S
*
	lda 1,s	;        [PROD]
	clc
	adc 7,s	; plus   [XALO+2] {hiWord(XALO)}
	sta 1,s	; equals [FHI]

	lda 3,s	;        [PROD+2]
	adc #0	; plus   0
	sta 3,s	; equals [FHI+2]
*
* Get Overflow past	31st bit of full product
* K := FHI DIV 32768
*
	lda 1,s	;      [FHI]
	clc
	adc 1,s	; plus [FHI]

	lda 3,s	;      [FHI+2]
	adc 3,s	; plus [FHI+2]
	tax	; equals K {store in X}
*		; NOTE: use K as HiWord
*
* Assemble all of the parts and pre-subtract P
* Seed := (BitAnd(XALO,#0000FFFF)-P) + BitAnd(FHI,$00007FFF)*B16 +K
*
	lda 5,s	; [XALO]
	sec
	sbc #$FFFF	; minus P = #$7FFFFFFF
	sta RandSeed	; temporarily

	lda #0
	sbc #$7FFF
	sta RandSeed+2

	lda 1,s	; [FHI]
	and #$7FFF
	clc
	adc RandSeed+2
	sta RandSeed+2
	txa	; [K]
	clc
	adc RandSeed
	sta RandSeed
*
* If seed < 0 then seed + P
*
	lda RandSeed+2
	bpl Update
	lda RandSeed
	clc
	adc #$FFFF

	sta RandSeed
	lda RandSeed+2
	adc #$7FFF
	sta RandSeed+2

Update	lda RandSeed	; this is the result
	cmp #$8000	; use 0 if -32768
	bne NumOK
	lda #0
NumOK	plx	;get rid of extra stack stuff
	plx
	plx
	plx
	sta Result,S	; result
	jmp BusyEC0

	ENDP

****************************************************************
*
* SetRandSeed     (Value : Long Integer)
*
****************************************************************
	EXPORT SetRandSeed
SetRandSeed	PROC
OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
Value	equ RTL2+3

	jsr QDStart

	ldx #256
	lda Value,s
	sta RandSeed,x

	lda Value+2,s
	sta RandSeed+2,x

	jmp BusyEC4

	ENDP
****************************************************************
*
* AddPt   (SrcPtPtr	: Ptr; DestPtPtr : ptr);
*
****************************************************************
	EXPORT AddPt
AddPt	PROC
*              using CoreDATA
RTL1	equ 1
RTL2	equ RTL1+3
DestPtPtr	equ RTL2+3
SrcPtPtr	equ DestPtPtr+4




	tsc	; get stack
	phd	; save direct
	tcd	; and so on...

	ldy #2

Loop	lda [SrcPtPtr],y
	clc
	adc [DestPtPtr],y
	sta [DestPtPtr],y
	dey
	dey
	bpl Loop

	jmp EndCall8

	ENDP

****************************************************************
*
* SubPt   (SrcPtPtr	: Ptr; DestPtPtr : ptr);
*
****************************************************************
	EXPORT SubPt
SubPt	PROC
*              using CoreDATA
RTL1	equ 1
RTL2	equ RTL1+3
DestPtPtr	equ RTL2+3
SrcPtPtr	equ DestPtPtr+4




	tsc	; get stack
	phd	; save direct
	tcd	; and so on...

	ldy #2
Loop	lda [DestPtPtr],y
	sec
	sbc [SrcPtPtr],y
	sta [DestPtPtr],y
	dey
	dey
	bpl Loop

	jmp EndCall8

	ENDP




****************************************************************
*
* SetPt (PPtr : ptr; h,v integer);
*
* Parameters
*      input     long     PPtr
*      input     word     h
*      input     word     v
*
* This is one of the glue routines used	by
* pascal programers.
*
****************************************************************
	EXPORT SetPt
SetPt	PROC
RTL1	equ 1
RTL2	equ RTL1+3
V	equ RTL2+3
H	equ V+2
PPtr	equ H+2

	tsc	; get stack
	phd	; save d
	tcd	; set stack to zp

	lda V
	sta [PPtr]
	ldy #2
	lda H
	sta [PPtr],y

	jmp EndCall8

	ENDP





****************************************************************
*
* EqualPt (p1ptr,p2ptr : ptr) : boolean
*
* Params
*      input     long   P1 Pointer
*      input     long   P2 Pointer
*      output    word?  boolean
*
****************************************************************
	EXPORT EqualPt
EqualPt	PROC
*              using CoreDATA
RTL1	equ 1
RTL2	equ RTL1+3
P1Ptr	equ RTL2+3
P2Ptr	equ P1Ptr+4
Result	equ P2Ptr+4

	tsc
	phd
	tcd

	ldy #2
Loop	lda [P1Ptr],y
	cmp [P2Ptr],y
	bne NotEqual
	dey
	dey
	bpl Loop

	lda #TRUE
ReportResult	sta Result

	jmp EndCall8

NotEqual	lda #FALSE
	bra ReportResult

	ENDP




****************************************************************
*
* LocalToGlobal  (PPtr : Ptr);
*
* Params
*      input      long    P Pointer
*
* Modifications
*
*     April 7, 1986	   Makes BusyEC4 call to terminate
*
****************************************************************
	EXPORT LocalToGlobal
LocalToGlobal	PROC
*              using CoreDATA
OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
PPtr	equ RTL2+3

	jsr QDStart

	lda PPtr,s
	tax
	lda PPtr+1,s
	phb	;save bank
	pha
	plb
	plb	; set bank

	lda |0,x
	sec
	ldy #o_BoundsRect
	sbc [PortRef],y
	sta |0,x

	lda |2,x
	sec
	iny
	iny
	sbc [PortRef],y
	sta |2,x

	plb	; restore bank

	jmp BusyEC4

	ENDP


****************************************************************
*
* GlobalToLocal (PPtr : Ptr);
*
* Params
*       input     long   P Pointer
*
* Modifications
*
*     April 7, 1986	   Makes BusyEC4 call to terminate
*
****************************************************************
	EXPORT GlobalToLocal
GlobalToLocal	PROC
*              using CoreDATA
OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
PPtr	equ RTL2+3

	jsr QDStart

	lda PPtr,s
	tax
	lda PPtr+1,s
	phb	;save bank
	pha
	plb
	plb	; set bank

	lda |0,x
	clc
	ldy #o_BoundsRect
	adc [PortRef],y
	sta |0,x

	lda |2,x
	clc
	iny
	iny
	adc [PortRef],y
	sta |2,x

	plb
AllDone	jmp BusyEC4

	ENDP



****************************************************************
*
* GetPixel (Hor, Vert : integer) : integer
*
****************************************************************
	EXPORT GetPixel
GetPixel	PROC
*              using CoreDATA
*              using E0Vectors

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
Vert	equ RTL2+3
Hor	equ Vert+2
Result	equ Hor+2

	jsr QDStart

	jsl PortLoc2ZP	; get port stuff

;---------------------------------------------------
;
; Convert Vert to global coordinates and multiply
; by width.
	pha	; space for result
	pha
	lda Vert+4,s
	sec
	sbc BoundsRect
	pha
	lda Width
	pha
	_Multiply

;---------------------------------------------------
;
; Leave the result on the stack a minute and convert
; horizontal coordinates to global and then to a
; byte number.
;
	lda Hor+4,s
	sec
	sbc BoundsRect+2
	lsr a	; convert to byte number
	bit PortSCB-1
	bpl Mode320
	lsr a
Mode320	clc
	adc 1,s	; add to Vert * Width
	tay	; put in y

	pla	; pull result of earlier multiply
	pla	; off the stack


;---------------------------------------------------
;
; Now we have index	to byte in pixel map in y. We
; must figure how far we'll shift the resulting
; byte to get desired pixel in lowest bits of
; pixel.
;
	lda Hor,s
	sec
	sbc BoundsRect+2
	bit PortSCB-1
	bmi DoMode640

;---------------------------------------------------
;
; For Mode320, the pixel is either odd or even.
; If it is even we must shift it from the high nibble
; to the low nibble.  If it is odd, we do not shift
; it at all.
;
	and #1	; decide if odd or even
	eor #1	; invert result
	asl a	; double this so 1 becomes 2
	bra ShiftIt	; go on and shift


;---------------------------------------------------
;
; For Mode640, the pixel is in one of four positions:
; zero thru three. If position is zero,	then must
; shift it down three pixels (6 bits).	If it is three
; we do not shift it.
;
DoMode640	and #3
	eor #3

ShiftIt	tax
	lda [ImageRef],y	; get the byte

ShiftLoop	cpx #0
	beq FinishIt
	lsr a
	lsr a
	dex
	bra ShiftLoop

FinishIt	bit PortSCB-1
	bpl MaskMode320
	and #%00000011
	bra PutResult

MaskMode320	and #$0F

PutResult	sta Result,s

	jmp BusyEC4


	ENDP
;                COPY utils/scale
****************************************************************
*
* ScalePt
*
*     PtPtr   : long
*     SrcRectPtr : long
*     DestRectPtr :	long
*
*
*                 DestRectPtr^.Bottom -	DestRectPtr^.Top
*     PtPtr^.v := --------------------------------------  *	PtPtr^.v
*                 SrcRectPtr^.Bottom-SrcRectPtr^.Top
*
*                 DestRectPtr^.Right - DestRectPtr^.Left
*     PtPtr^.h := --------------------------------------  *	PtPtr^.h
*                 SrcRectPtr^.Right-SrcRectPtr^.Left
*
*
*
****************************************************************
	EXPORT ScalePt
ScalePt	PROC

OrigDirect	equ 1
AFlag	equ OrigDirect+2
Sign	equ AFlag+2
RTL1	equ Sign+2
RTL2	equ RTL1+3
DestRectPtr	equ RTL2+3
SrcRectPtr	equ DestRectPtr+4
PtPtr	equ SrcRectPtr+4


	pea 0	; put this flag on stack to 
*		; indicate that this is first time thru
	pea 0	; put this word on stack as indicator
*		; of sign
	phd
	tsc
	tcd

Loop	lda #0	; make room for the	long divide result
	pha	; needed later
	pha
	pha
	pha

	pha	; make room for multiply 
	pha

	ldy #4
	lda [DestRectPtr],y
	sec
	sbc [DestRectPtr]
	bpl NotNeg1
	eor #$FFFF
	inc a
	inc Sign
NotNeg1	pha

	lda [PtPtr]
	bpl NotNeg2
	eor #$FFFF
	inc a
	inc Sign
NotNeg2	pha

	_Multiply

;---------------------------------------
; 
; The stack looks like this
;
;        long (result of divide that we	are about to do)
;        word (hi word of mulitply result)
;        word (low word of multiply result)
;        tos

	ldy #4
	lda [SrcRectPtr],y
	sec
	sbc [SrcRectPtr]
	bpl NotNeg3
	eor #$FFFF
	inc a
	inc Sign
NotNeg3	pea 0
	pha

	_LongDivide
	pla	; this is result we	want
	plx	; these are all ignored
	plx
	plx

	lsr Sign	; if Sign is 1 or 3	then have
	bcc Even	; odd number of negative numbers

	eor #$FFFF	; so result is negative.  if Sign
	inc a	; is 0 or 2 then have even number of
*		; neg numbers
Even	sta [PtPtr]


	lda AFlag
	bne AllDone

	dec AFlag	; next time we'll fall thru
	BumpLongBy2 PtPtr	; bump these pointers so same code
	BumpLongBy2 SrcRectPtr ; works with H.
	BumpLongBy2 DestRectPtr
	stz Sign	; reset sign
	jmp Loop

AllDone	pld
	pla	; pull off flag word
	pla	; pull off sign word
	jmp oEndCall12

	ENDP



	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/QDAux/MakeFile b/IIGS.601.SRC/GSToolbox/QDAux/MakeFile
new file mode 100644
index 0000000..428c4aa
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/QDAux/MakeFile
@@ -0,0 +1 @@
+### Standard make rules for QDAux
### Dependancies for QDAux
tool018					Ä		:objs:qdaux.asm.obj 		¶
								:objs:pics.asm.obj 			¶
								:objs:pixel.asm.obj 		¶
								:objs:text.asm.obj 			¶
								:objs:slabs.asm.obj 		¶
            					:objs:copybits.asm.obj 		¶
								:objs:faces.asm.obj 		¶
								:objs:icon.asm.obj 			¶
								:objs:common.asm.obj		¶
								:objs:seedfill.asm.obj		¶
								:objs:special.slabs.asm.obj	¶
								:objs:PixelMap2Rgn.aii.obj
	linkiigs    		¶
			-lseg  MAINPart						¶
				:objs:qdaux.asm.obj 			¶
				:objs:faces.asm.obj 			¶
				:objs:icon.asm.obj 				¶
				:objs:special.slabs.asm.obj 	¶
				:objs:common.asm.obj 			¶
            	:objs:copybits.asm.obj(@MAINPart) 			¶
			-lseg:Dynamic	Pictures			¶
				:objs:pics.asm.obj 				¶
				:objs:pixel.asm.obj 			¶
				:objs:text.asm.obj 				¶
				:objs:slabs.asm.obj 			¶
			-lseg   CopyBits  			¶
            	:objs:copybits.asm.obj(@CopyBits) 	¶
			-lseg:DYNAMIC   SeedFill  			¶
				:objs:seedfill.asm.obj			¶
			-lseg:DYNAMIC	PixelMap2Rgn		¶
				:objs:PixelMap2Rgn.aii.obj		¶
		-o tool018 -t TOL
	if {AutoDuplicate} == 1
		DuplicateIIGS -y -mac Tool018 :
	End
	
### Dependancies for components
:objs:qdaux.asm.obj 			Ä 		qdaux.asm
	asmiigs -unsafe -wi -o :objs:  qdaux.asm

:objs:pics.asm.obj 			Ä 		pics.asm
	asmiigs -unsafe -wi -o :objs:  pics.asm

:objs:pixel.asm.obj 			Ä 		pixel.asm
	asmiigs -o :objs:  pixel.asm

:objs:text.asm.obj 			Ä 		text.asm
	asmiigs -o :objs:  text.asm

:objs:slabs.asm.obj 			Ä 		slabs.asm
	asmiigs -o :objs:  slabs.asm   -unsafe -wi

:objs:copybits.asm.obj 		Ä 		copybits.asm
	asmiigs -o :objs:  copybits.asm

:objs:faces.asm.obj 			Ä 		faces.asm
	asmiigs -o :objs:  faces.asm

:objs:icon.asm.obj 			Ä 		icon.asm
	asmiigs -o :objs:  icon.asm

:objs:common.asm.obj 			Ä 		common.asm
	asmiigs -o :objs:  common.asm

:objs:special.slabs.asm.obj 	Ä 		special.slabs.asm
	asmiigs -o :objs:  special.slabs.asm

:objs:seedfill.asm.obj 	Ä 		seedfill.asm
	asmiigs -o :objs:  seedfill.asm

:objs:PixelMap2Rgn.aii.obj Ä PixelMap2Rgn.aii
	asmiigs -o :objs: PixelMap2Rgn.aii
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/QDAux/PixelMap2Rgn.aii b/IIGS.601.SRC/GSToolbox/QDAux/PixelMap2Rgn.aii
new file mode 100644
index 0000000..341d4c0
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/QDAux/PixelMap2Rgn.aii
@@ -0,0 +1 @@
+***********************************************************************
*
*	 Copyright (C) 1989,1991
*	 Apple Computer, Inc.
*	 All Rights Reserved
*
***********************************************************************
*
* REVISION HISTORY
*
* 2-Dec-91	Dave Lyons
*
* For 6.0d60, split this file out of QDAux.asm so PixelMap2Rgn can
* be a dynamic segment.
*
***********************************************************************
	include 'all.macros'
	include 'special.macros'
	include 'e16.memory'

; offset constants for LocInfo
oportSCB	equ 0
optrToPixImage	equ 2
owidth	equ 6
oboundsRect	equ 8

***********************************************************************
*
* pixelMap2Rgn function
*
* NOTE:  This code is Apple property and should not be made available
*        to anyone outside Apple Computer, Inc.
*        This code should be distributed within Apple on a
*        need-to-know basis.
*
* Copyright (C)
* Apple Computer, Inc.  1989
* All Rights Reserved.
*
* Written by Eric Soldan.
*
* This function generates a region from a pixelmap.
*
* This is the previous definition of a region that was published.
*   00:  word:  length of region
*   02:  rect:  bounding rectangle of region
*   0A:  data:  if the region is not empty or rectangular, the rest of
*               the information was here, in some cryptic format.
*
* A region is basically a compact way to describe an arbitrary area.
* Even more importantly, it is a way that can be decoded and used fast.
* Also, it is efficient for the types of areas commonly encountered
* when using windows and the toolBox in general.
*
* The bounding rectangle portion of a region is simply that.  It is the
* smallest rectangle that contains all the points that are inside the
* region (described by the rest of the data, if any).  The length word
* is the total size of the region (length word, bounding rect, and all
* data).  That is a quick overview of the region data structure.  Now,
* to describe the data portion completely:
*
* Let's say that the below diagram is the outline of a region.  The
* lower case letters are y-coordinates.  The upper case letters are
* x-coordinates. It is important to understand what is inside the
* region and what is outside. In order to understandthis, note that
* regions are interpreted from left to right and from top to bottom.
* The lines bordering the region may be thought of as entering or exiting
* edge lines, since the lines are encountered either entering or exiting
* the region according to the left-to-right, top-to-bottom defintion of
* regions. Because coordinates refer to the upper-left corner of pixels,
* the points in entering edge lines are included in the region they border,
* and exiting edge lines are excluded from the region they border. In the
* diagram below the entering edge lines are represented  with asterisks,
* and the exiting edge lines are represented with periods.  Again, the
* asterisks are points included in the region and the periods are points
* excluded from the region.
*
*   row a                A***************B
*       b                *               .
*       c                *    C....D     .
*       d       E********F    .    *     G******H
*       e       *             I****J            .
*       f       *                               .
*       g       *                K..............L
*       h       *                .
*       i       M................N
*
* Let's look at how the x-coordinates are represented first.  X-coordinate
* data is represented in x-start/x-stop pairs.  For the first row of
* the region, any pixels between x-start (inclusive) and x-stop (exclusive)
* are in the region.  For the second row of the region, we have x-start/
* x-stop pairs for any DIFFERENCES from the borders in the first row.  If
* there are no differences between the first and second row, then we
* don't need to store anything for the second row.  We can make this
* description more consistent, to describe the first row as well.  First,
* region data is row oriented.  Second, the row data stored is the
* difference between the actual row and the row above, if any.  For the
* first row, we can have a logical row above the first row that holds
* nothing.  This makes sense, since the row above the first row in the
* region is outside the region, and therefore holds nothing.
*
* So, in summary, for any given row of the region, the x-coordinate
* start/stop pairs represent changes from the previous row.
*
* The data that would have to be stored would be where all of the changes
* are.  This would look like:  (length)(boundingRect)(aABcCDdEFGHeIJgKLiMN)
* This is rather compact.
*
* One tricky thing is that you can have multiple x-start/x-stop pairs per
* row.  This means that you have to have some kind of indicator as to how
* many pairs you have per row, or where they stop.  The "where they stop"
* is the one used.  An x-start value of $3FFF indicates that there are no
* more x-start/x-stop pairs for the current row, and a new row is starting.
*
* $4000 is outside the conceptual drawing space, whereas $3FFF is inside.
* However, we can use $3FFF as a flag since an x-start/x-stop pair always
* includes at least one pixel, and that would mean that the x-stop value
* would be $4000 (for an x-start of $3FFF), and that is outside the
* conceptual drawing space.  This actually means that the conceptual
* drawing space does NOT include $3FFF as an x-coordinate, as far as
* regions are concerned.  So, $3FFF is what we will use to start the next
* row.  The word following a $3FFF will be the next row of interest, and
* that will be followed by more x-start/x-stop pairs.  This goes on
* and on, as you might imagine.
*
* So, the region data (each element being a word) would look something like:
*   (row data is of the form:  new row marker, y, x-start, x-stop)
*   $3FFF,a,A,B,
*   $3FFF,c,C,D,
*   $3FFF,d,E,F,G,H,
*   $3FFF,e,I,J,
*   $3FFF,g,K,L,
*   $3FFF,i,M,N
*
* Remember the lower case letters are y-coordinates and the upper case
* letters are x-coordinates.  To simplify even further, we don't need to
* store the starting $3FFF.  We know we will start with a row value, so
* there is no need for the first new row marker. 
*
* There is just one thing to add:  The end-of-region marker.  The end of
* the region is indicated by a $3FFF (new row), followed by another $3FFF.
* A new row of $3FFF indicates the end of the region.  This means that a
* y-coordinate of $3FFF is also not valid within a region.
* 
* So, the entire region would look like:
*         length:  64
*   boundingRect:  a,E,9,H
*           data:  a,A,B,
*                  $3FFF,c,C,D,
*                  $3FFF,d,E,F,G,H,
*                  $3FFF,e,I,J,
*                  $3FFF,g,K,L,
*                  $3FFF,i,M,N
*                  $3FFF,$3FFF
*
* So, given an understanding of a region data structure, here goes:


* THEORY:
*      This function turns a designated color-set of a pixelmap into
*      a region.  The color separation is done in two stages.  First, a
*      table of bit values to be kept is built.  Then, this table is
*      used in a routine called processRow.  This routine doesn't actually
*      xor the actual values of a row, but uses the actual value to
*      index into the table of acceptable colors.  This derived value
*      has 1's in the pixels that should be included in the region, and
*      0's for pixels that should be excluded.  This way, the
*      application can choose any color or colors to be included or
*      excluded.
* Setup:
*      1) Build the colors-to-include-in-region table.
*      2) Get the relavent information on the bitmap.
*      3) Create an initial empty region.
*      4) Make sure the region handle is big enough for the first
*         row of region data.  Call growRgn to do this, which also
*         re-dereferences it.
*      5) Make a handle of zero's (zerosHndl) to use against the first
*         and last rows when xor'ing with 'previous' row.
*      6) Calculate the column offsets and left/right masks for
*         the bitmap.
*      7) Calculate the offset into the bitmap for the first row and
*         dereference the zerosHndl.
* Outer loop (nextRow):
*      Loop for as many rows as there are.  Call processRow per row.
*      Call growRgn after each processRow call to make sure that there
*      is enough space to add the next row.  This frees up processRow
*      from having to make sure that the region is big enough to hold
*      the data that is being added to it.  Lots fewer SetHandleSize's
*      this way.
* Inner loop (processRow):
*      The inner loop 'knows' whether each point on the row is either
*      in the region or not.  It does this by keeping a state as to
*      whether or not we are in the region.  (We aren't when we start
*      a row, since anything to the left of the row is by definition
*      outside the region.)  It then determines transition points by
*      xor'ing with the row above.  (If it is the first or last row,
*      then a row of 0's is used as the other row.)  The processing
*      is done a byte at a time to speed things up.  The byte for the
*      row is loaded, then used as an index into a table of colors
*      to be included in the region.  This table turns all pixels of
*      a correct color into on pixels, and all other pixels to off
*      pixels.  This is also done with the previous row.  Then the
*      two derived bytes are xor'ed together.  If the result was
*      non-zero, there is at least one transition in the byte, and
*      some data has to be added to the region.  At that point, the
*      addToRgn routine is called.  This is a big function that has
*      special cases for the different possible transitions within
*      one byte.  In 320 mode there are only 3.  In 640 mode there
*      are 15.  If there an even number of transitions in the byte,
*      then we leave the byte in the same state (either inside or
*      outside the region) that we entered the byte.  If there are
*      an odd number of transitions, then we leave the byte in the
*      opposite state we were in.  The state indicator is either
*      a $00 (outside region) or $FF (inside region).  This is very
*      handy because we can then take (row.byte xor row-1.byte) and
*      xor it with the state indicator.  If the result is zero, then
*      there are no transitions, period.  If the result is non-zero,
*      the transitions are in the same place, whether or not we are
*      inside the region.  So, any of the special case routines for
*      transitions in a byte that have an odd number of transitions
*      (and those routines know who they are) simply xor the state
*      value with $FF to change the state, and everything else
*      takes care of itself.
* Completion:
*      Use the last row to 'close' the region.  Store the bounding
*      rectangle and the region size in the first 10 bytes of the
*      region.  Resize the region to the correct size.  Handle
*      special case of empty region.  When all is well, clean up
*      and return the region handle.
*
*
* Input:
*      long:  Pointer to a locInfo structure for the pixelmap.
*             The pixelmap must be locked down, if it is in a handle.
*      word:  Value indicating 2-bit or 4-bit pixels (2 or 4 passed).
*             This is independent of 320 or 640 mode.   This way, we
*             can handle dithered or non-dithered palettes.
*             320 or 640 mode is determined by the SCB in the locInfo
*             for the bitmap.
*      word:  color table indicating which colors to include.
*             bit 0 set:  include color 0 in region.
*             bit 1 set:  include color 1 in region.
*             .
*             .
*             .
*             (For 2-bit colors, only bits 0 thru 3 are used)
* Output:
*      This function returns a region containing the relavent pixels.
*      This is true only if:
*           1)  The region does not exceed 65535 bytes.
*           2)  There was enough memory to construct the region.
*      Possible errors:
*           1)  Region too complex.
*           2)  Out-of-memory.
*
***********************************************************************

	longi on
	longa on

***********************************************************************
***********************************************************************

* rgn = pixelMap2Rgn(locInfoPtr, mode, whichColors)
*
* locInfoPtr:	pixelmap to convert
* mode:	2-bit pixels or 4-bit pixels
* whichColors:	16 bits of data indicating which colors to include.

PixelMap2Rgn	proc export

	DefineStack

top	word
left	word
bottom	word
right	word

leftint	word	;Make sure these are supported.
pmLeftmask	word
rightint	word
pmRightmask	word

miny	word
pmMinx	word
maxy	word
pmMaxx	word

row	word
pmWidth	word
rgnSize	word
rgnSize2	word
resMode	word
oldHndlSize	word
state	word
pmTemp	word
colorNum	word
numRows	word
numInRow	word

rowPtr	long
prevRowPtr	long

zerosHndl	long
pmRgnPtr	long
pmapUserID	word	;added 19-Jan-91 DAL

sizeLocals	EndLocals

saveDPage	word
saveDBank	byte
returnAddr	block 6	;was 3 before I made it a tool (DAL)

whichColors	word	;Which colors to do.
pmMode	word	;2-bit or 4-bit pixels (2 or 4 for a value)
locInfoPtr	long	;Passed parameter

rgnHndl	long	;Result.

********************

	tax	;keep WAP in X for a while

	phb	;Save and set dataBank register.
	phk
	plb

	phd	;Save directPage register.
	tsc	;Make space for locals.
	sec
	sbc #sizeLocals
	tcs
	tcd	;Set directPage register.

	lda >$00000A,x	;get QD user ID (19-Jan-91 DAL)
	sta <pmapUserID

	jsr setup	;Prepare everything.

	lda left
	cmp right
	bcs closeRgn	;Empty region.

	dec a
	sta row	;Do it from the top.

********************

nextRow	inc row	;Advance to next row.
	lda row
	cmp bottom
	bcs closeRgn	;All done, so close rgn and get out of here.

	jsr processRow	;Store x-pairs for this row into region.

	jsr growRgn	;Get ready for next row of data.
	bcs exit	;Couldn't grow the region.

	lda rowPtr	;Move current row pointer to previous row pointer,
	ldx rowPtr+2	;and then advance current row pointer.
	sta prevRowPtr
	stx prevRowPtr+2
	adc pmWidth
	sta rowPtr
	bcc nextRow
	inc rowPtr+2
	bra nextRow

********************

* if rgnSize is still 8, then we found no data for the region.
* So, it is an empty region.
*
* A region with a rgnSize of 16 at this point is a rectangular region.  Reduce this
* to a 10-byte rectangular region.  (16 because the region isn't closed yet.)
* So, a region that looks like the below is a rectangular region:
*  8: 3FFF    New row mark.  This will be covered by the bounding rect.
* 10: miny    Beginning row of region data.
* 12: pmMinx    x-pair start point.
* 14: pmMaxx    x-pair stop point.
* 16: ----

closeRgn	lda rgnSize	;See if we have an empty region.
	cmp #8
	beq @emptyRgn	;We do, so make it really empty.
	cmp #16	;See if we have a rectangular region.
	beq @rectRgn	;We do, so just store the bounding rect.

* Closing a regular region is a little tricky.  Here's the scoop:
* We want to include the last row of data to close the region.  Whatever the last row
* is in the pixelmap that has anything in it, that is the row we want to include
* 'as is'.  So, call calcRowPtrs with the last row with anything it it.  It will set
* rowPtr to this, and prevRowPtr to point to 0's.  This is exactly what we want.  When we
* process the row, it will xor these two together (one being 0's), thus giving the exact
* content of the last row.

	lda bottom	;Close the region using the last row.  If there is
	sta row	;nothing in the last row, then the region is already
	dec a	;closed.  In that case processRow will do nothing.
	jsr calcRowPtrs	;Point to this 'last row'.
	jsr processRow	;Process the data pointed at as 'row'.

*** 23-Jun-91 DAL
*** There is one more rectangular case.  If our region is only 24 bytes after we've made
*** sure it's closed, then there was only one pair of transitions in, and one pair to close
*** it out (at some point -before- we hit the bottom of the bounds rectangle).  So we just
*** set the size to 10.
	ldy rgnSize
	cpy #24
	beq @isRectangular2
*** end of 23-Jun-91 DAL

; already set	ldy rgnSize	;End the region with the end-of-region marker.
	lda #$3FFF	;This marker is a new row of $3FFF.
	sta [pmRgnPtr],y	;NOTE:  maxy is always set to row by processRow,
	iny	;if there was any data in that row.  There is
	iny	;data in this row -- that is why it is our
	sta [pmRgnPtr],y	;last row.  So, processRow will update maxy to
	iny	;be the same as row, which was incremented past
	iny	;the last row with data.  All is good.
	sty rgnSize
	bra @regularRgn

@emptyRgn	stz miny	;Bounding rect is all 0's for an empty region.
	stz bottom	;bottom is used for maxy, due to rectangular
	stz pmMinx	;region not having this current.
	stz pmMaxx

@rectRgn	lda bottom	;maxy is not correct for rectangular region.
	sta maxy	;Now it is.
@isRectangular2	lda #10	;min's and max'es are all correct for
	sta rgnSize	;rectangular regions at this point.

@regularRgn	ldy #2	;Store bounding rectangle into region.
	lda miny
	sta [pmRgnPtr],y
	iny
	iny
	lda pmMinx
	sta [pmRgnPtr],y
	iny
	iny
	lda maxy
	sta [pmRgnPtr],y
	iny
	iny
	lda pmMaxx
	sta [pmRgnPtr],y

	lda rgnSize	;Store region size in region.
	sta [pmRgnPtr]

	pea 0	;Fix handle size.
	pha
	pei rgnHndl+2
	pei rgnHndl
	_SetHandleSize	;Shrink handle to right size.

********************

exit
*****	php	;Keep error status.
	pha	;Keep error code.
	bcc @a	;There was no error.  We succeeded.

	lda  rgnHndl+1
	beq @a	;We fail to even make a region.
	pei rgnHndl+2	;We don't have a completed region, so dispose of it.
	pei rgnHndl
	_DisposeHandle
	stz rgnHndl
	stz rgnHndl+2

@a	lda zerosHndl+1	;Get rid of work space.
	beq @b
	pei zerosHndl+2
	pei zerosHndl
	_DisposeHandle
***@b	ply	;Keep error code.
***	plp

@b	plx	;get error code in X

***	ror a
***	tax	;Keep error status.

	tsc	;Get rid of local variables.
	clc
	adc #sizeLocals
	tcs
	pld	;Restore directPage register.
	plb	;Restore dataBank.

***	lda 1,s	;Move return address.
***	sta 9,s
***	lda 2,s
***	sta 10,s
***
***	pla	;Get rid of passed parameters.
***	pla
***	pla
***	pla
***
***	txa	;Restore error status.
***	rol a
***	tya	;Restore error code.
***
***	rtl	;Exit.

	ldy #8	;get rid of 8 bytes of parameters
	jml $e10184	;ToStrip

********************
********************

processRow	ldy rgnSize	;Pre-store the row info.  If any column info
	lda #$3FFF	;is found, rgnSize and rgnSize2 will differ by
	sta [pmRgnPtr],y	;more than 4.  If they do, then store rgnSize2
	iny	;in rgnSize, thus preserving the row info.
	iny
	lda row
	sta [pmRgnPtr],y
	iny
	iny
	sty rgnSize2
	cpy #12
	bne @a
	sta miny

@a	lda #0	;This sets hi-byte to 0.  Important, since we are
	sta state	;going to use an 8-bit acc and 16-bit indexes.

	shortm	;Hi-byte of acc is 0.

	ldy leftint	;Do the left byte first, so the middle bytes don't
	lda [rowPtr],y	;have to be clipped conditionally to the left and
	tax	;right masks.  (Hi-byte is 0)
	lda convTbl,x	;Convert only color bits into 1's.
	sta pmTemp

*** 5-Apr-91 DAL
	lda <prevRowPtr+1
	ora <prevRowPtr+2
	beq @doingFirstRow
*** end of 5-Apr-91 DAL
	lda [prevRowPtr],y
	tax	;(Hi-byte is 0)
	lda convTbl,x	;Convert only color bits into 1's.
@doingFirstRow	eor pmTemp	;Any 1's are changes to the region.
	and pmLeftMask
	eor state
	beq @aa
	jsr addToRgn

@aa	iny	;Do byte just after left edge, if there is one.
	cpy rightint	;1 less than rightint, (unless rightint is 0).
	bcs @c	;Go and check the right edge now.
@b	lda [rowPtr],y
	tax
	lda convTbl,x	;Make only color bits to keep 1's.
	sta pmTemp
*** 5-Apr-91 DAL
	lda <prevRowPtr+1
	ora <prevRowPtr+2
	beq @doingFirstRow2
*** end of 5-Apr-91 DAL
	lda [prevRowPtr],y
	tax
	lda convTbl,x	;Make only color bits to keep 1's.
@doingFirstRow2	eor pmTemp	;The correct colored pixels that change
	eor state
	beq @aa
	jsr addToRgn
	iny
	cpy rightint
	bcc @b

@c	bne @closeRow	;yreg > rightint
	lda [rowPtr],y
	tax
	lda convTbl,x	;Make only color bits to keep 1's.
	sta pmTemp
*** 5-Apr-91 DAL
	lda <prevRowPtr+1
	ora <prevRowPtr+2
	beq @doingFirstRow3
*** end of 5-Apr-91 DAL
	lda [prevRowPtr],y
	tax
	lda convTbl,x	;Make only color bits to keep 1's.
@doingFirstRow3	eor pmTemp	;The correct colored pixels that change
	and pmRightMask
	eor state
	beq @closeRow
	jsr addToRgn

@closeRow	longm

	lda state
	beq @d	;Row 'closed' properly.
	ldy rgnSize2
	lda right
	sta [pmRgnPtr],y
	iny
	iny
	sty rgnSize2
@d	ldy rgnSize
	iny
	iny
	iny
	iny
	cpy rgnSize2
	beq @rts	;rgnSize and rgnSize2 differ by 4, empty row.

	lda row	;This row had some data, so remember it as the
	sta maxy	;maxy so far.

	lda [pmRgnPtr],y	;Fetch the first x-coord for this row.
	cmp pmMinx	;Check it against the running minimum x-coord.
	bpl @e
	sta pmMinx	;New minimum.
@e	ldy rgnSize2
	sty rgnSize
	dey
	dey
	lda [pmRgnPtr],y	;Fetch the last x-coord for this row.
	cmp pmMaxx	;Check it against the running maximum x-coord.
	bmi @rts
	sta pmMaxx	;New maximum.

@rts	rts


	longa off

addToRgn	bit resMode	;Always called with short acc.
	bmi @add640

	tax
	bpl @a01
	lsr a
	bcs @a11

@a10	tyx	;11110000
	ldy rgnSize2	;^   ^
	longm
	txa
	asl a
	sta [pmRgnPtr],y
	iny
	iny
	inc a
	sta [pmRgnPtr],y
	iny
	iny
	sty rgnSize2
	txy
	lda #0	;Make sure hi-byte of acc is 0.
	shortm
@rts	rts

@a11	tyx	;11111111
	ldy rgnSize2	;^
	longm
	txa
	asl a
	sta [pmRgnPtr],y
	iny
	iny
	sty rgnSize2
	txy
	lda state	;Hi-byte of acc is 0 again.
	shortm
	eor #$FF
	sta state
	rts

@a01	tyx	;00001111
	ldy rgnSize2	;    ^
	longm
	txa
	asl a
	inc a
	sta [pmRgnPtr],y
	iny
	iny
	sty rgnSize2
	txy
	lda state	;Hi-byte of acc is 0 again.
	shortm
	eor #$FF
	sta state
@rts0	rts

@add640	asl a
	tax	;Okay to lose bit 7, since it is the same as 6.
	jmp (addTbl,x)

addTbl	dc.w z0000000,z0000000,z0000000,z0000011
	dc.w z0000000,z0000000,z0000000,z0000011
	dc.w z0000000,z0000000,z0000000,z0000011
	dc.w z0001100,z0001100,z0001100,z0001111

	dc.w z0000000,z0000000,z0000000,z0000011
	dc.w z0000000,z0000000,z0000000,z0000011
	dc.w z0000000,z0000000,z0000000,z0000011
	dc.w z0001100,z0001100,z0001100,z0001111

	dc.w z0000000,z0000000,z0000000,z0000011
	dc.w z0000000,z0000000,z0000000,z0000011
	dc.w z0000000,z0000000,z0000000,z0000011
	dc.w z0001100,z0001100,z0001100,z0001111

	dc.w z0110000,z0110000,z0110000,z0110011
	dc.w z0110000,z0110000,z0110000,z0110011
	dc.w z0110000,z0110000,z0110000,z0110011
	dc.w z0111100,z0111100,z0111100,z0111111

	dc.w z1000000,z1000000,z1000000,z1000011
	dc.w z1000000,z1000000,z1000000,z1000011
	dc.w z1000000,z1000000,z1000000,z1000011
	dc.w z1001100,z1001100,z1001100,z1001111

	dc.w z1000000,z1000000,z1000000,z1000011
	dc.w z1000000,z1000000,z1000000,z1000011
	dc.w z1000000,z1000000,z1000000,z1000011
	dc.w z1001100,z1001100,z1001100,z1001111

	dc.w z1000000,z1000000,z1000000,z1000011
	dc.w z1000000,z1000000,z1000000,z1000011
	dc.w z1000000,z1000000,z1000000,z1000011
	dc.w z1001100,z1001100,z1001100,z1001111

	dc.w z1110000,z1110000,z1110000,z1110011
	dc.w z1110000,z1110000,z1110000,z1110011
	dc.w z1110000,z1110000,z1110000,z1110011
	dc.w z1111100,z1111100,z1111100,z1111111

z0000000	rts

z0000011	tyx	;00000011
	ldy rgnSize2	;      ^
	longm
	txa
	asl a
	asl a
	inc a
	inc a
	inc a
	sta [pmRgnPtr],y
	iny
	iny
	sty rgnSize2
	txy
	lda state	;Hi-byte of acc is 0 again.
	shortm
	eor #$FF
	sta state
	rts

z0001100	tyx	;00001100
	ldy rgnSize2	;    ^ ^
	longm
	txa
	asl a
	asl a
	inc a
	inc a
	sta [pmRgnPtr],y
	iny
	iny
	inc a
	sta [pmRgnPtr],y
	iny
	iny
	sty rgnSize2
	txy
	lda #0	;Make sure hi-byte of acc is 0.
	shortm
	rts

z0001111	tyx	;00001111
	ldy rgnSize2	;    ^
	longm
	txa
	asl a
	asl a
	inc a
	inc a
	sta [pmRgnPtr],y
	iny
	iny
	sty rgnSize2
	txy
	lda state	;Hi-byte of acc is 0 again.
	shortm
	eor #$FF
	sta state
	rts

z0110000	tyx	;00110000
	ldy rgnSize2	;  ^ ^
	longm
	txa
	asl a
	asl a
	inc a
	sta [pmRgnPtr],y
	iny
	iny
	inc a
	sta [pmRgnPtr],y
	iny
	iny
	sty rgnSize2
	txy
	lda #0	;Make sure hi-byte of acc is 0.
	shortm
	rts

z0110011	tyx	;00110011
	ldy rgnSize2	;  ^ ^ ^
	longm
	txa
	asl a
	asl a
	inc a
	sta [pmRgnPtr],y
	iny
	iny
	inc a
	sta [pmRgnPtr],y
	iny
	iny
	inc a
	sta [pmRgnPtr],y
	iny
	iny
	sty rgnSize2
	txy
	lda state	;Hi-byte of acc is 0 again.
	shortm
	eor #$FF
	sta state
	rts

z0111100	tyx	;00111100
	ldy rgnSize2	;  ^   ^
	longm
	txa
	asl a
	asl a
	inc a
	sta [pmRgnPtr],y
	iny
	iny
	inc a
	inc a
	sta [pmRgnPtr],y
	iny
	iny
	sty rgnSize2
	txy
	lda #0	;Make sure hi-byte of acc is 0.
	shortm
	rts

z0111111	tyx	;00111111
	ldy rgnSize2	;  ^
	longm
	txa
	asl a
	asl a
	inc a
	sta [pmRgnPtr],y
	iny
	iny
	sty rgnSize2
	txy
	lda state	;Hi-byte of acc is 0 again.
	shortm
	eor #$FF
	sta state
	rts

z1000000	tyx	;11000000
	ldy rgnSize2	;^ ^
	longm
	txa
	asl a
	asl a
	sta [pmRgnPtr],y
	iny
	iny
	inc a
	sta [pmRgnPtr],y
	iny
	iny
	sty rgnSize2
	txy
	lda #0	;Make sure hi-byte of acc is 0.
	shortm
	rts

z1000011	tyx	;11000011
	ldy rgnSize2	;^ ^   ^
	longm
	txa
	asl a
	asl a
	sta [pmRgnPtr],y
	iny
	iny
	inc a
	sta [pmRgnPtr],y
	iny
	iny
	inc a
	inc a
	sta [pmRgnPtr],y
	iny
	iny
	sty rgnSize2
	txy
	lda state	;Hi-byte of acc is 0 again.
	shortm
	eor #$FF
	sta state
	rts

z1001100	tyx	;11001100
	ldy rgnSize2	;^ ^ ^ ^
	longm
	txa
	asl a
	asl a
	sta [pmRgnPtr],y
	iny
	iny
	inc a
	sta [pmRgnPtr],y
	iny
	iny
	inc a
	sta [pmRgnPtr],y
	iny
	iny
	inc a
	sta [pmRgnPtr],y
	iny
	iny
	sty rgnSize2
	txy
	lda #0	;Make sure hi-byte of acc is 0.
	shortm
	rts

z1001111	tyx	;11001111
	ldy rgnSize2	;^ ^ ^
	longm
	txa
	asl a
	asl a
	sta [pmRgnPtr],y
	iny
	iny
	inc a
	sta [pmRgnPtr],y
	iny
	iny
	inc a
	sta [pmRgnPtr],y
	iny
	iny
	sty rgnSize2
	txy
	lda state	;Hi-byte of acc is 0 again.
	shortm
	eor #$FF
	sta state
	rts

z1110000	tyx	;11110000
	ldy rgnSize2	;^   ^
	longm
	txa
	asl a
	asl a
	sta [pmRgnPtr],y
	iny
	iny
	inc a
	inc a
	sta [pmRgnPtr],y
	iny
	iny
	sty rgnSize2
	txy
	lda #0	;Make sure hi-byte of acc is 0.
	shortm
	rts

z1110011	tyx	;11110011
	ldy rgnSize2	;^   ^ ^
	longm
	txa
	asl a
	asl a
	sta [pmRgnPtr],y
	iny
	iny
	inc a
	inc a
	sta [pmRgnPtr],y
	iny
	iny
	inc a
	sta [pmRgnPtr],y
	iny
	iny
	sty rgnSize2
	txy
	lda state	;Hi-byte of acc is 0 again.
	shortm
	eor #$FF
	sta state
	rts

z1111100	tyx	;11111100
	ldy rgnSize2	;^     ^
	longm
	txa
	asl a
	asl a
	sta [pmRgnPtr],y
	iny
	iny
	inc a
	inc a
	inc a
	sta [pmRgnPtr],y
	iny
	iny
	sty rgnSize2
	txy
	lda #0	;Make sure hi-byte of acc is 0.
	shortm
	rts

z1111111	tyx	;11111111
	ldy rgnSize2	;^
	longm
	txa
	asl a
	asl a
	sta [pmRgnPtr],y
	iny
	iny
	sty rgnSize2
	txy
	lda state	;Hi-byte of acc is 0 again.
	shortm
	eor #$FF
	sta state
	rts

	longa on

********************

growRgn	lda pmWidth	;Calc how much bigger region has to get, worst case.
	asl a
	asl a
	bit resMode	;About quadruple the width for 320 mode.
	bpl @a
	asl a	;About 8 times the width for 640 mode.
@a	clc
	adc #8	;Plus 8 more for row info (and closing mark info).
	adc rgnSize	;Plus how big it already is.
	bcc @b	;It isn't too big yet.
	lda #$0433	;rgnFull error.
	bra @err

@b	ora #$03FF	;Round up so fewer mem-moves occur.
	cmp oldHndlSize
	clc
	beq @err
	sta oldHndlSize
	pea 0
	pha
	pei rgnHndl+2
	pei rgnHndl
	_SetHandleSize
	bcs @err

	ldy #2	;Handle may have moved.
	lda [rgnHndl],y
	sta pmRgnPtr+2
	lda [rgnHndl]
	sta pmRgnPtr

@err	rts

********************

setup	jsr calcConvTbl	;Calculate the conversion table.

	lda #8	;rgnSize of 8 indicates nothing added yet.
	sta rgnSize
	lda #16383	;Initial 'min' is huge.
	sta pmMinx
	lda #-16383	;Initial 'max' is tiny.
	sta pmMaxx

	ldy #owidth	;Get the width and the bounding rectangle.
	lda [locInfoPtr],y
	sta pmWidth
	iny
	iny
	lda [locInfoPtr],y
	sta top
	iny
	iny
	lda [locInfoPtr],y
	sta left
	iny
	iny
	lda [locInfoPtr],y
	sta bottom
	iny
	iny
	lda [locInfoPtr],y
	sta right

;	ldy #oportSCB
;	lda [locInfoPtr],y
;	xba	;Move bit 7 to bit 15.
;	ora [locInfoPtr],y	;This way, it can be used as a flag, 8 or 16 bit.
;	sta resMode

*** 5-Apr-91 DAL -- oPortSCB is zero; don't assume bits other than 7 are unused
	lda [<locInfoPtr]
	and #$0080
	pha
	xba
	ora 1,s
	sta <resMode
	pla
*** end of 5-Apr-91 DAL

	stz rgnHndl	;Flag handles as not existing yet.
	stz rgnHndl+2
	stz oldHndlSize
	stz zerosHndl
	stz zerosHndl+2

	pha	;Make a region to return.
	pha
	_NewRgn
	plx
	ply
	bcc @a
@err	ply	;Pop a return address.
	brl exit	;Exit with an error.
@a	stx rgnHndl
	sty rgnHndl+2

	jsr growRgn	;If it can't grow, it jmps to exit with an error.
	bcs @err

;	pha	;Result space.
;	pha
;	pea 0	;Size zerosHndl big enough.
;	lda pmWidth
;	inc a	;Allow for slop of a word.
;	inc a
;	pha	;Low word of size.
;	pei <pmapUserID	;19-Jan-91 DAL (was MMStartUp)
;	lda #0
;	pha	;0 for attributes
;	pha	;NULL for location.
;	pha
;	_NewHandle
;	plx
;	ply
;	bcc @b
;	ply	;Pop a return address.
;	brl exit	;Exit with an error.
;@b	stx zerosHndl
;	sty zerosHndl+2
;
;	ldy #2	;Fill zerosHndl with 0's.  This is used for the
;	lda [zerosHndl],y	;special cases of the first row and the last row.
;	sta prevRowPtr+2	;Neither of these cases xor with anything else, so
;	lda [zerosHndl]	;we will xor them with 0's, so the main code doesn't
;	sta prevRowPtr	;have to have special cases in it.

;	lda pmWidth
;	lsr a
;	asl a
;	tay
;	lda #0
;@c	sta [prevRowPtr],y
;	dey
;	dey
;	bpl @c

	lda left	;Calculate int's and frac's
	bit resMode
	bmi @d
	asl a	;Guarantees bit 0 always off for 320 mode.
@d	tay
	and #3
	tax
	tya
	lsr a
	lsr a
	sta leftint
	lda @leftmasks,x
	sta pmLeftMask

	lda right
	bit resMode
	bmi @e
	asl a
@e	tay
	and #3
	tax
	tya
	lsr a
	lsr a
	sta rightint
	lda @rightmasks,x
	ldx leftint
	cpx rightint
	bne @f
	and pmLeftMask
	sta pmLeftMask
@f	sta pmRightMask

	lda top
	bra calcRowPtrs	;Uses value in acc for row to point to.

@leftmasks	dc.b $FF,$3F,$0F,$03
@rightmasks	dc.b $00,$C0,$F0,$FC

********************

calcRowPtrs	pha	;Result space.
	pha
	pha	;Row to point to in pixelmap.
	pei pmWidth	;Width (in bytes) of pixelmap.
	_Multiply	;Gives offset to top row.
	ldy #optrToPixImage	;Add that to pointer to pixelmap.
	pla
	clc
	adc [locInfoPtr],y
	sta rowPtr
	iny
	iny
	pla
	adc [locInfoPtr],y
	sta rowPtr+2

;	ldy #2
;	lda [zerosHndl],y
;	sta prevRowPtr+2
;	lda [zerosHndl]
;	sta prevRowPtr

	stz prevRowPtr
	stz prevRowPtr+2

	rts

********************

calcConvTbl	ldy #254	;First, zero them all.
	lda #0
@a	sta convTbl,y
	dey
	dey
	bpl @a

	lda pmMode	;320 or 640 mode, which is it?
	cmp #2
	beq m640


* In 320 mode, we need to do two passes.  The first pass is the hi-nibble pass.
* 16 bytes in a row will have the hi-nibble the correct color.  We can do these
* a word at a time, since they are in a row.  We just take the color number and
* multiply it by 16.  This is the byte number in the table where the hi-nibbles
* are to be set.  Then we just do 16 bytes in a row from there.  The second pass
* is for lo-nibble colors.  This is a little more difficult.  We start at the
* byte that is the color.  This is obviously the first lo-nibble involved.  From
* there, we just skip 16 bytes, and that is the next involved.  We can't do
* words at a time, since the involved bytes are separated by 16.  So, we just
* loop 16 times doing individual bytes, and that will do it for one color.  For
* all colors, we just loop for all 16 colors.  We don't do anything for colors
* that aren't included, since we started by zeroing them all.  Colors that
* aren't included should be zero.

m320	ldx #$FFFF	;Do 16 colors, starting with 0.
@a	inx
	lsr whichColors	;See if color bit N is on.
	bcs @b	;Yes, so do at least this one.
	bne @a	;No, but there are others.
	rts	;There are no more to do.

@b	txa	;Set 16 in a row for the range of numbers
	asl a	;that has the right hi-nibble.
	asl a
	asl a
	asl a	;Color number * 16.
	tay	;Index to first hi-nibble range.
	phx	;Keep the x-reg.
	ldx #8	;Do 8 words (16 bytes).
@c	lda convTbl,y	;Involve these hi-nibbles.
	ora #$F0F0
	sta convTbl,y	;They are now involved.
	iny
	iny
	dex
	bne @c
	plx	;Done with this loop.

	phx	;Do all the lo-nibble guys now.
	txy
	ldx #16	;We can only do a byte at a time, so loop 16 times.
@d	lda convTbl,y
	ora #$000F	;Involve the lo-nibble.
	sta convTbl,y
	tya
	clc
	adc #16
	tay	;The next one is 16 away.
	dex
	bne @d	;And there is a next one, so go do it.
	plx
	bra @a

*****
*
* In 640 mode, we need to do even more.  What to do in 640 mode is table driven.
* It is slower than 320 mode, but the simplicity is worth it.
* Algorithm works as follows:
*   There will be a first byte affected -- some byte has to be first.  This
*   byte offset is calculated by taking the color affected and multiplying
*   by a value.  This value depends on which bits we are affecting.  The following
*   table describes it:
*     bits 0-1:  multiply color by 0
*     bits 2-3:  multiply color by 4
*     bits 4-5:  multiply color by 16
*     bits 6-7:  multiply color by 64
*   We multiply by left-shifting.  So, the left-shift values would be 0,2,4,6
*   There are some number of rows, depending on which bits we are affecting:
*     bits 0-1:  64 rows of 1 byte.
*     bits 2-3:  16 rows of 4 bytes.
*     bits 4-5:  4 rows of 16 bytes.
*     bits 6-7:  1 row of 64 bytes.
* We will use tables like this (plus a few more) to control the looping and indexing.

m640	lda whichColors
	and #$0F
	sta whichColors	;Make sure there aren't any extra bits on.
	stz colorNum	;Start with color 0.

@a	lsr whichColors	;See if color bit N is on.
	bcs @b	;Yes, so do at least this one.
	bne @nxtclr	;No, but there are others.
	rts	;There are no more to do.

@b	ldx #6	;There will be 4 passes (6, 4, 2, 0).
@c	txy	;# of times to shift color to make starting index.
	lda colorNum
@d	dey
	bmi @e
	asl a
	bra @d
@e	tay	;This is starting index into convTbl.

	lda @numRows,x
	sta numRows	;Number of rows to do this pass.
@f	lda @numInRow,x
	sta numInRow	;Number to do in this row.
@g	lda convTbl,y
	ora @mask,x	;Turn on certain bits for this pass.
	sta convTbl,y
	iny
	dec numInRow
	bne @g	;More to do for this row.
	tya
	clc
	adc @numToSkip,x	;Skip to the next row.
	tay
	dec numRows
	bne @f	;More rows to do.
	dex
	dex
	bpl @c	;More passes to do.
@nxtclr	inc colorNum	;Advance to the next color.
	bra @a	;Do more colors if we have them.

@numRows	dc.w	64,16,4,1
@numInRow	dc.w	1,4,16,64
@mask	dc.w	$03,$0C,$30,$C0
@numToSkip	dc.w	3,12,48,192


convTbl	dc.b $00,$00,$00,$03, $00,$00,$00,$03, $00,$00,$00,$03, $0C,$0C,$0C,$0F
	dc.b $00,$00,$00,$03, $00,$00,$00,$03, $00,$00,$00,$03, $0C,$0C,$0C,$0F
	dc.b $00,$00,$00,$03, $00,$00,$00,$03, $00,$00,$00,$03, $0C,$0C,$0C,$0F
	dc.b $30,$30,$30,$33, $30,$30,$30,$33, $30,$30,$30,$33, $3C,$3C,$3C,$3F

	dc.b $00,$00,$00,$03, $00,$00,$00,$03, $00,$00,$00,$03, $0C,$0C,$0C,$0F
	dc.b $00,$00,$00,$03, $00,$00,$00,$03, $00,$00,$00,$03, $0C,$0C,$0C,$0F
	dc.b $00,$00,$00,$03, $00,$00,$00,$03, $00,$00,$00,$03, $0C,$0C,$0C,$0F
	dc.b $30,$30,$30,$33, $30,$30,$30,$33, $30,$30,$30,$33, $3C,$3C,$3C,$3F

	dc.b $00,$00,$00,$03, $00,$00,$00,$03, $00,$00,$00,$03, $0C,$0C,$0C,$0F
	dc.b $00,$00,$00,$03, $00,$00,$00,$03, $00,$00,$00,$03, $0C,$0C,$0C,$0F
	dc.b $00,$00,$00,$03, $00,$00,$00,$03, $00,$00,$00,$03, $0C,$0C,$0C,$0F
	dc.b $30,$30,$30,$33, $30,$30,$30,$33, $30,$30,$30,$33, $3C,$3C,$3C,$3F

	dc.b $C0,$C0,$C0,$C3, $C0,$C0,$C0,$C3, $C0,$C0,$C0,$C3, $CC,$CC,$CC,$CF
	dc.b $C0,$C0,$C0,$C3, $C0,$C0,$C0,$C3, $C0,$C0,$C0,$C3, $CC,$CC,$CC,$CF
	dc.b $C0,$C0,$C0,$C3, $C0,$C0,$C0,$C3, $C0,$C0,$C0,$C3, $CC,$CC,$CC,$CF
	dc.b $F0,$F0,$F0,$F3, $F0,$F0,$F0,$F3, $F0,$F0,$F0,$F3, $FC,$FC,$FC,$FF

	EndP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/QDAux/QDAuxEquates.asm b/IIGS.601.SRC/GSToolbox/QDAux/QDAuxEquates.asm
new file mode 100644
index 0000000..f878fac
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/QDAux/QDAuxEquates.asm
@@ -0,0 +1 @@
+*************************************************************
*
* Copyright 1991-93 Apple Computer, Inc.
* All Rights Reserved
*
*************************************************************

;------------------------------------------------------------
;
; Errors that can be returned.
;
;------------------------------------------------------------

picEmpty	equ $1210
picAlreadyOpen	equ $1211
pictureError	equ $1212

badOpcodeError	equ $121F	;Mensch/DAL 12/90

badRectError	equ $1221	;Error caused by one of the following:
		; 1) invalid src/dest rect (negative dimensions)
		; 2) source and dest rects not same size
		; 3) source or dest rect outside of bounds rect

badModeError	equ $1222	; bad dest mode.  Dest mode is the top 4
		; bits of resMode and currently only values
		; 0..3 are defined

badGetSysIconInput	equ $1230	;returned from GetSysIcon if inputs are weird (DAL)
badQDAuxValue	equ $1231	;returned from DrawStringWidth, UseColorTable (16-Mar-93 DAL)
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/QDAux/STRETCH.EQUS b/IIGS.601.SRC/GSToolbox/QDAux/STRETCH.EQUS
new file mode 100644
index 0000000..54035b1
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/QDAux/STRETCH.EQUS
@@ -0,0 +1 @@
+* These variables are all kept on the third zero page.

	DSECT 0
SrcVSize	WORD	; overlapping the conics!
SrcHSize	WORD
DstVSize	WORD
DstHSize	WORD
VError	WORD
HError	WORD
ScratchHandle	LONG
SrcLimit	WORD
SrcPtr	LONG
DstLimit	WORD
DestNibble	WORD
LastNibble	WORD
ByteLimit	WORD
NextFlag	WORD
LoNib	WORD
Nibs	WORD
NextNib	WORD
SrcCtr	WORD
SrcBuf	LONG
DstBuf	LONG
HInc	WORD
FirstZeroPage	WORD
cSrcSCB	WORD
cSrcWidth	WORD
SrcLeft	WORD	; Number of first pixel in first src word to be drawn from
DstLeft	WORD	; Number of first pixel in first dest word to be drawn to
HTemp	LONG
HalfNibble	WORD
AlignAmount	WORD

ShiftIndex	WORD	; used in aligning the src
LastOut	WORD

SrcStartByte	WORD	; used in copying from orig pm to
SrcFinishByte	WORD	; src buffer and from src buffer to
DestStartByte	WORD	; dst buffer.
DestFinishByte	WORD

NibbleLimit	WORD	; used to determine	if we are through
;		; stretching or shrinking horizontally 

ThirdZeroPage	equ ZZEndOfSlice	; the only new variable on the 1st zp
; the only new variable on the 1st zp
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/QDAux/common.asm b/IIGS.601.SRC/GSToolbox/QDAux/common.asm
new file mode 100644
index 0000000..9dbe0b2
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/QDAux/common.asm
@@ -0,0 +1 @@
+****************************************************************
*			   *
*	 Common Strip Routines	   *
*	     Version 1.0D3		   *
*	    August 13, 1986		   *
*			   *
****************************************************************


****************************************************************
*			   *
*	Copyright (C) 1985-1989	   *
*	All Rights Reserved		   *
*	Apple Computer, Inc.	   *
*			   *
****************************************************************



;-----------------------------------------------------------
;
; Special Equate

IncBusyFlg	equ $E10064
DecBusyFlg	equ $E10068


	Entry ErrOut



****************************************************************
*
* EndCall Routines.
*
* Functions exit through the EndCall routines.  These routines
* fix the stack by moving the RTL addresses up and stripping
* off any input parameters.
*
* The number of bytes to strip off the stack is passed in the
* y-register.
*
* There are 8 end call routines
*
*       EndCall	   Pulls D off stack before cleaning up.  Sets
*	   a-reg to zero and clears carry.
*       oEndCall	   Does not pull D off the stack before
*	   cleaning up.  Sets a-reg to zero and	clears
*	   carry.
*       ErrOut	   Pulls D off stack, cleans up and returns
*	   error code passed in x-register, setting
*	   carry if x is not zero.
*       oErrOut	   Does not pull D off stack before cleaning up.
*	   returns error code passed in x-register,
*	   setting carry if	x is not zero.
*
*       BusyEC	   Decrements the busy flag, pulls D off stack
*	   and cleans up.
*       oBusyEC	   Decrements the busy flag, does not pull D off stack
*	   and cleans up.
*       BusyErr	   Decrements the busy flag, pulls D off stack,
*	   cleans up and returns error code passed in
*	   x-register, setting the carry if x is not zero.
*       oBusyErr	   Decrements the busy flag, does not pull D off
*	   the stack, cleans up and returns error code passed
*	   in x-register.
*
****************************************************************
	Export Strip
Strip	PROC

	Export BusyEC
BusyEC
	ldx #0

	Export BusyErr
BusyErr
	jsl DecBusyFlg
	bra ErrOut

	Export EndCall
EndCall
	ldx #0

	Export ErrOut
ErrOut
	pld	; restore direct register

	Export oErrOut
oErrOut	jml >$e10184

;	phy	; save amount to strip on stack
;	tsc	; get stack pointer
;	clc	; add to it the amount to strip
;	adc 1,s
;	tay	; put this result in Y
;	tsc	; get back orig stack pointer
;	phx	; save error on stack
;	tax	; put orig stack in	X
;	phb	; now save the data	bank reg
;	pea $0000	; set data bank reg	to 0
;	plb
;	plb
;	lda |3+4,x	; now use x and y to move 6 bytes
;	sta |3+4,y	; of rtl info from current pos
;	lda |3+2,x	; to final pos.
;	sta |3+2,y
;	lda |3+0,x
;	sta |3+0,y
;	plb	; restore data bank	register
;	plx	; restore x register with error
;
;	tsc	; get stack again
;	clc	; bump it by amount	to strip Plus 2
;	adc 1,s	; to make up for amount to strip
;	adc #2	; still on stack
;	tcs	; reset stack pointer
;	txa	; error into a-reg
;	cmp #1	; set carry correctly
;	rtl	; fini

	Export oBusyEC
oBusyEC
	ldx #0

	Export oBusyErr
oBusyErr
	jsl DecBusyFlg
	bra oErrOut

	Export oEndCall
oEndCall
	ldx #0
	bra oErrOut

	ENDP



	END

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/QDAux/copybits.asm b/IIGS.601.SRC/GSToolbox/QDAux/copybits.asm
new file mode 100644
index 0000000..06e56be
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/QDAux/copybits.asm
@@ -0,0 +1 @@
+	title 'CopyBits'
****************************************************************
*
* CopyPixels
*
* by Art Cabral and	Steven E. Glass
*
* Copyright (C)
* Apple Computer Inc., 1986-1989
* All Rights Reserved
*
*
*
* Revision History
*
* 18 Nov 1986  	Art Cabral
*
* Coding begain.  Modified PPToPort into a Macintosh
* style _CopyBits.	 When the source and dest rects are not 
* the same, the source is expanded or compressed to fit.
* This routine clips all over the place.
*
* ?? ??? ????	Steven Glass
*
* Many revs were not summarized here.  See individual routines
* for details.
*
* 30 Jul 88	Steven Glass
*
* CopyPixels did not always work when the left edge was clipped.
* The code that calculated the alignment values was not correct
* and the code that setup up the slice routines did not account
* for the case where clipped images were also aligned.
*
* 15 May 89	Steven Glass
*
* Re-organized the code so that the StdPixels is part of the 
* main segment and all the stretch code is part of the CopyBits
* segment.
*
* 7/24/89	Mensch
* Fix LocalNewHandle Bug. It was loading the user ID from Minrect.top instead of
* UserID. It is now working properly
*
****************************************************************

*****************************************************************
*
* StdPixels is at E0/1E24
*
*****************************************************************


	SEG 'CopyBits'

	print push
	print off

	include 'all.macros'
	include 'special.macros'

	include '::qd:qdequates:core.globals1'
	include '::qd:qdequates:core.globals2'
	include '::qd:qdequates:region.equs'
	include '::qd:qdequates:slice.equs'
	include 'stretch.equs'
	include '::qd:qdequates:qd.data.asm'

	include '::sys.equs.asm'

	print pop

	MACRO
	DirtyPort
	ldx #512	; switch to qdDPage2
	lda <DirtyDPFlags,x	; get the proper flags
	and #PortBad	; turn off both patterns
	sta <DirtyDPFlags,x
	MEND
	

	title 'Imports and Entries'



**************************************************
*	Imports	         *
**************************************************

	Import BusyErr
	Import JoinTrickyNewHandle

**************************************************
*	Entries	         *
**************************************************

	Entry UnlockHandle
	Entry DerefHandle
	Entry Shrink320
	Entry Stretch320
	Entry Copy320
	Entry NoChange
	Entry LocalNewHandle
	Entry JmpShrink320
	Entry JmpStretch320
	Entry JmpCopy320
	Entry PixelToEvenByte
	Entry UnlockC
	Entry ToStretch
	Entry AlignSrc
	Entry ToMerge
	Entry FillSrcBuffer
	Entry LocalSliceSetup
	Entry SetThisShitUp
	Entry StretchBits
	Entry CallSP
	Entry IsDestPort
	Entry WideOpen
	Entry copybits


	title 'CopyBits'
****************************************************************
*
CopyBits	PROC EXPORT
*
* This is the entry point of the pixel image routine that
* does stretching and shrinking.
*
*
* Notes:
*
* Vertbackward and Horbackward can be used after slice setup is done
* Shifttemp, Shifttemp2, and Thisword may be available since we're using
* the nonshifting slice routines.  Steve will check if we are short of
* space.  SrcSCB and so on are available depending on how you do StdPixel
* stuff.  (through SrcRect) - only used	in Setup, which we are rewriting.
* XferMode has to be where it is.  DestPoint and DestRect are at PortRect
* and have to be where they are.  Steve	INSISTS that DstBits be copied
* into DestSCB, etc.
*
* Watch out for 32 bit _Multiply below so we can support BIG pixel maps
*
*
* Inputs (On Stack)
*   SrcBits : LocInfo      ; 0
*   DstBits : LocInfo      ; 4
*   SrcRect : RectPtr      ; 8
*   DstRect : RectPtr      ; 12
*      Mode : Integer      ; 16
*   MaskRgn : RgnHandle    ; 18
*
* The LocInfo Record Looks Like
*
*     MasterSCB	    byte
*     Reserved	    byte
*     PtrToPixelMap	    long
*     Width	    word
*     BoundsRect	    rect
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
sMaskRgn	equ RTL2+3
sMode	equ sMaskRgn+4
sDstRect	equ sMode+2
sSrcRect	equ sDstRect+4
sDstBits	equ sSrcRect+4
sSrcBits	equ sDstBits+4

	jsl IncBusyFlg
	phd
	tcd

	DirtyPort

* Read the source and dest LocInfo from	user to zp.

	lda sSrcBits,s	; set up SrcBits in	Temp2
	sta Temp2
	lda sSrcBits+2,s
	sta Temp2+2

	lda sDstBits,s	; set up DstBits in	Temp
	sta Temp
	lda sDstBits+2,s
	sta Temp+2

	ldy #LocSize-2	; move srclocinfo to zp
Loop1	tyx
	lda [Temp2],y
	sta SrcSCB,x
	lda [Temp],y
	sta DestSCB,x
	dey
	dey
	bpl Loop1

* Read source and dest rect from memory	to zp.

	lda sSrcRect,s	; set up SrcRect in	Temp2
	sta Temp2
	lda sSrcRect+2,s
	sta Temp2+2

	lda sDstRect,s	; set up DstRect in	Temp
	sta Temp
	lda sDstRect+2,s
	sta Temp+2

	ldy #6
Loop3	tyx
	lda [Temp2],y	; copy src
	sta SrcRect,x
	lda [Temp],y	; copy dst
	sta DestRect,x
	dey
	dey
	bpl Loop3

* Get mode and MaskRgn putting MaskRgn in RgnHandleC

	lda sMode,s	; get transfer mode
	sta XFerMode

	lda sMaskRgn,s
	sta RgnHandleC
	lda sMaskRgn+2,s
	sta RgnHandleC+2
	ora RgnHandleC
	bne MaskNotNil
	lda #WideOpen
	sta RgnHandleC
	lda #^WideOpen
	sta RgnHandleC+2

MaskNotNil		;
	jsr IsDestPort
	bcc DestIsNotPort

	jsl SetUpPortRegions ; bring clip and vis rgns to zp
	bra RegionsAreSet

DestIsNotPort		;
	lda #WideOpen
	sta RgnHandleA
	sta RgnHandleB
	lda #^WideOpen
	sta RgnHandleA+2
	sta RgnHandleB+2

RegionsAreSet		;


* Call CallBits to handle bottleneck stuff.

	jsl CallSP	; error comes back in a

	tax	; error returns in A
	ldy #22	; number of paramters
	jml BusyErr

	ENDP


	title 'CallSP'
****************************************************************
*
CallSP	PROC
*
* This is the routine that calls the stdPixel routine.  
* looks at the destination locinfo record.  If it is the
* same as the locinfo record in the current port then we
* use the grafprocs in the current port.  Otherwise we
* just call standard pixels.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
	import IsDestPort
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


;-------------------------------------------------
;
; If the destination loc info is the same as
; the loc info in the current graf port, I must use
; the bottle neck proc in the grafport.

	jsr IsDestPort
	bcc UseStandard

	ldy #o_GrafProcs
	lda [PortRef],y
	sta Temp
	iny
	iny
	lda [PortRef],y
	sta Temp+2
	ora Temp
	bne NotStandard

UseStandard	jml StdPixels

NotStandard	phb	; put extra byte on	stack
	ldy #o_stdpixels
	lda [Temp],y	; get low word
	pha	; put on stack
	iny	; get middle and
	lda [Temp],y	; high byte
	sta 2,s	; overstore middle byte on stack
	rtl	; go there

	ENDP


	title 'IsDestPort'
****************************************************************
*
IsDestPort	PROC
*
* Compares the destination loc info with the loc info
* of the graf port.	 if they are the same, then the carry is
* set.  Different, carry is clear.
*
*
* Inputs:
*	Uses current direct page
*
* Outputs:
*	carry:  Set if same
*	        Clear if different
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


	ldy #LocSize-2
Loop	tyx
	lda [PortRef],y
	cmp DestSCB,x
	bne No
	dey
	dey
	bpl Loop

	sec
	rts

No	clc
	rts

	ENDP






	title 'StretchBits'
****************************************************************
*
StretchBits	PROC
*
* This is the routine that is called when the source and 
* destination rectangle are not the same.
*
*
* Inputs:
*	All on direct page.
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* Modification History
*
* 03 Jan 87    SEG
*
* After SharedMRSetup (the calculation of the minrect) we were
* skipping the cursor shielding.
*
* LocalSliceSetup did not take into account the fact that the
* dest rect may be clipped.
*
* The final destination had to be aligned to a word boundry	for
* clipping to work correctly.  To do this I had to adjust the
* SrcPtr based on the value of DestRect+2.
*
* DstLeft was not initialized before it	was used.
*
* Jun 5, 1987   Steven Glass
*
*   Fixed bug in copy pixels where right edge of image was often the
*   wrong color when image was reduced by more than 2 : 1.	Problem was
*   with fix ratio calculation of horizontal error term. Both the numerator
*   and denominator	were 0 based values	rather than the 1 based values
*   expected.
*
*   This routine changed where DstHSize	was used to calculate
*   nibble limit.  NibbleLimit is calcuated by adding DestLeft to
*   a zero based counter of number of pixels.
*
****************************************************************


	phb	; save current dbr
	phd	; save the zero page

	jsl SetThisShitUp
	bcc SetupOK

StretchError		;
	pld
	plb
	sec
	rtl

SetupOK		;
;----------------------------------------------------
;
; Call shared routine to deref 3 regions and to
; make the minrect using as orig rect the intersection
; of the destrect and the bounds of rgn	handle c.
;
	jsl SharedMRSetup
	bcc SomethingLeft
	brl NothingLeft
SomethingLeft		;
	jsl LocalSliceSetup	; call this while minrect &
;		       ; dest rect are still different

	moverect MinRect,DestRect ; save the resulting minrect
;		       ; in destrect

	jsl ShareShieldStuff ; calc rect to use	for
;		       ; shielding

	jsl ShieldCursor	; do the shielding

	moverect DestRect,MinRect ; restore the	minrect.

	jsl SetUpScanPtrs
	jsl Init3Regions

	stz HowFarToShift	; let setsliceadr think we are
	stz HorBackward	; going to use fast	forward
	stz SrcPixelMapRef	; Not Screen To Screen; 
	jsl SetSliceAdr	; routines

;--------------------------------------------------------
;
; Finally, setup SrcRef which is the pointer to the
; current source scan line used by the slice routines.
;
	ldx #512
	lda DstBuf,x
	sta SrcRef
	lda DstBuf+2,x
	sta SrcRef+2

;--------------------------------------------------------
;
; Set the data bank	to the bank containing the dest pixels.

	pei DestRef+1
	plb
	plb

;--------------------------------------------------------
;
; Switch to zero page 3 for the bulk of	the stretching code

	lda ThirdZeroPage
	tcd

	bra NBS1	; start in middle of loop

;--------------------------------------------------------
;
; Get first scanline of Src into SrcBuf
;
NextSrc	lda SrcPtr
	clc
	adc cSrcWidth
	sta SrcPtr
	bcc NBS1
	inc SrcPtr+2

NBS1	jsl FillSrcBuffer

;----------------------------------------------------------------
;
; The source buffer	really should be masked on left and right
; at this time so that extraneous stuff	does not mix into
; real pixels.


;----------------------------------------------------------------



;----------------------------------------------------------------
;
; Bump VError by DstVSize to decide if we need to merge multple
; source lines.
;
NextSrc2	lda VError	; as long as result	is
	clc	; positive there is	no
	adc DstVSize	; need to merge
	sta VError
	dea
	bpl SrcOk
MergeIt	jsl ToMerge	; oops, merge
SrcOk		;


;----------------------------------------------------------------
;
; Now we rotate the	source buffer so that it aligns with the
; the final destination.
;
	jsl AlignSrc


;----------------------------------------------------------------
;
; Source and dest are aligned, call routine that does horizontal
; stretching (or shrinking).
;

	jsl ToStretch

;--------------------------------------------------------
;
; We've merged and stretched as appropriate.  Now we'll
; switch back to the primary zero page and let the slice
; routines do all the work.

NoShift	lda FirstZeroPage
	tcd

NxtMask		;
	lda CurrentY	; check for clipping on top
	cmp MinRect
	bmi NotThisTime

	jsl Seek3Regions

	clv
	lda XFerMode
	bpl NotInverted
	sep #$40	; set v flag
NotInverted		;
	jsl ToSlice

;--------------------------------------------------------
;
; Bump the dest pointers, currentY and the error term.
; See if we write out this source again.
;
NotThisTime		;
	lda DestRef	; bump the dest ref
	clc
	adc DestWidth
	sta DestRef
	bcc NBD1
	inc DestRef+2
	pei DestRef+1	; adjust the data bank too
	plb
	plb
NBD1	lda CurrentY	; bump the current y
	ina
	cmp MinRect+4
	beq Done
	sta CurrentY
	ldx #512	; update the error term and
	lda VError,x	; see if this src is to be written
	sec	; out again.
	sbc SrcVSize,x	; subtract increment
	sta VError,x	; VError := VError - Denom.V
	bpl NxtMask

;--------------------------------------------------------
;
; Switch back to the third zero page before we loop

	lda ThirdZeroPage
	tcd

	bra NextSrc

;--------------------------------------------------------
;
; Entire StretchBits complete. We're still on the first
; zero page, so use	x to get rid of our	scratch
; buffer, clear the	carry, and go home.

Done		;
	jsl UnshieldCursor
	jsl FreePortRegions
	jsr UnlockC

NothingLeft		;
	ldx #512
	lda ScratchHandle+2,x
	pha
	lda ScratchHandle,x
	pha
	_DisposeHandle

	pld	; restore direct page
	plb	; restore bank
	clc	; we did it;

	rtl


	ENDP


	title 'Buffer Handlers'
****************************************************************
*
FillSrcBuffer	PROC
*
* Routine to fill the source buffer.  It is separate routine
* to make debugging	easier. 
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


	ldy SrcLimit
SrcCopyLoop	lda [SrcPtr],y
	sta [SrcBuf],y
	dey
	dey
	bpl SrcCopyLoop

	rtl

	ENDP


	title 'SetThisShitUp'
****************************************************************
*
SetThisShitUp	PROC
*
* Does the setup necessary to run the stretch routine.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* Change History
*
* 30 July 88	Steven Glass
*
* SrcLeft and DstLeft are now calculated early in the setup
* process.  (The old way put the global vale of the left 
* edge of the two rects here--but this could be negative 
* and when it was things did not work.)
*
* Added routine GlobalPixelToWordPixel to turn a left edge into
* a value for a pixel in a word.
*
****************************************************************


	lda SrcSCB
	eor DestSCB
	and #$0080
	beq StretchModeOk	; error if chunkiness mismatch

StretchError		;
	sec
	rtl

StretchModeOk	tdc
	ldx #512
	sta FirstZeroPage,x
	clc
	adc #512
	sta ThirdZeroPage

	lda DestRect	; copy this while we're on 1st zp
	sta CurrentY

	lda SrcSCB	; save a copy on zp[3]
	sta cSrcSCB,x

	lda SrcWidth
	sta cSrcWidth,x

* Setup DstLeft and	SrcLeft before SetupStretch.  Used for alignment
* and shifting. 

	lda DestRect+2	; get left of dest and convert to global coordinates
	sec	; use this to calc pixel in first word
	sbc DestBounds+2
	pha	; save global value
	phx	; save x
	ldy DestSCB
	jsr GlobalPixelToWordPixel
	plx	; restore x
	sta DstLeft,x
	pla	; get global value back
	jsr PixelToEvenByte
	sta DestStartByte,x

	lda DestRect+6
	dec a
	sec
	sbc DestBounds+2
	jsr PixelToEvenByte
	sta DestFinishByte,x

	lda SrcRect+2	; get left of src
	sec
	sbc SrcBounds+2
	pha	; save global value
	phx	; save x
	ldy SrcSCB
	jsr GlobalPixelToWordPixel
	plx	; restore x
	sta SrcLeft,x	; store src word pixel
	pla	; get global value back.
	jsr PixelToEvenByte
	sta SrcStartByte,x

	lda SrcRect+6
	dec a	; for qd's rep of rect 
	sec
	sbc SrcBounds+2
	jsr PixelToEvenByte
	sta SrcFinishByte,x

* Shift up to 3rd zero page

	lda ThirdZeroPage	; switch to the 3rd	zero page
	tcd

	lda SrcHSize
	bmi StretchError
	lda DstHSize
	bmi StretchError

;-----------------------------------------------------------
;
; Calculate howfarto shift the images.
;
; There are three possible ways we will need to shift.
;
; 1.  Not at all.  The first pixel in the source is the
; same as the first pixel in the dest.
;
; 2.  To the right.  The first pixel in the dest is a higher 
; number in a word than the source.
;
; 3.  To the left.  The first pixel in the dest is a lower 
; number in a word than in the source
;
; The last case is the trickiest.  Since the alignment all
; takes place in the temporary source buffer we have to 
; be careful as we do number three so we do now move
; the pixels of first word into the second or trash
; pixels as we keep them aligned.  The variable AlignAmount
; is used to tell these cases apart.  If alignamount is 0, 
; we have case 1.  If it is positive, we have case 2.  If
; it negative, we have case 2.
;

	bit cSrcSCB-1
	bpl ModeIs320


;-----------------------------------------------------------
;
; Setup alignment for 640 mode.
;
Mode640
	lda DstLeft	; AlignAmount = DstLeft-SrcLeft
	sec
	sbc SrcLeft
	sta AlignAmount	; this is the align amount (can be negative)
	bpl @ShiftRight	; if its not negative then dest is equal or to right
		; of source.

	clc	; If it is negative, we do a little razzledazzle
	adc #8	; and see how far we need to shift into next word
@ShiftRight	asl a	; turn this how far to shift into an index into
	asl a	; the shift routines.
	bra GotShiftAmount




;-----------------------------------------------------------
;
; Setup alignment for 320 mode.
;
ModeIs320	
	lda DstLeft	; AlignAmount = DstLeft-SrcLeft
	sec
	sbc SrcLeft
	sta AlignAmount	; this is the align amount (can be negative)
	bpl @ShiftRight	; if its not negative then dest is equal or to right
		; of source.

	clc	; If it is negative, we do a little razzledazzle
	adc #4	; and see how far we need to shift into next word
@ShiftRight	asl a	; turn this how far to shift into an index into
	asl a	; the shift routines.
	asl a


GotshiftAmount	sta ShiftIndex


;----------------------------------------------------------------
;
; Now fix DstLeft and SrcLeft so that they indicate where
; to start stretching nibbles.
;
	lda DstLeft
	bit cSrcSCB-1
	bpl NibbleMode
	lsr a
NibbleMode	sta DstLeft
	sta SrcLeft


;----------------------------------------------------------------
;
; Now use DstHSize with DstLeft to create the last nibble
; in dest buffer that will be created by shrinking or stretching
;
	lda DstHSize
	dec a	; make this into zero based counter
	bit cSrcSCB-1
	bpl Nohalf
	lsr a
NoHalf	clc
	adc DstLeft
	sta NibbleLimit

	lda DstHSize
	cmp SrcHSize
	bne NotEqual

	lda >JmpCopy320
	sta >ToStretch
	lda >JmpCopy320+2
	sta >ToStretch+2

	bra FinishUp

NotEqual	pha	; FixRatio result
	pha
	bmi Shrinking
	lda >JmpStretch320
	sta >ToStretch
	lda >JmpStretch320+2
	sta >ToStretch+2

	pei SrcHSize	; push denominator (Src width)
	pei DstHSize	; push numerator (Dst width)
	bra FixRatio

Shrinking	lda >JmpShrink320
	sta >ToStretch
	lda >JmpShrink320+2
	sta >ToStretch+2
	pei DstHSize
	pei SrcHSize
FixRatio	_FixRatio
	pla	; this is the error	part
	sta HInc	; which we save
	pla	; this better be zero

; Used to set HError here to something but it is always reset
; in the stretch and shrink routines.

FinishUp		;
;--------------------------------------------------------
;
; Calculate the size fo the buffer we use for merging
; and stretching.  Then get the buffer,	and deref it.
;
	lda SrcFinishByte
	sec
	sbc SrcStartByte
	sta SrcLimit
	clc
	adc #12	; give us some extra slop
	pha	; save intermediate	result

	lda DestFinishByte
	sec
	sbc DestStartByte
	sta DstLimit
	clc
	adc #12	; some more extra slop
	clc
	adc 1,s	; add in src buffer	length

	jsr LocalNewHandle	; call this one since
	sta DstBuf	; it does not assume QD's zp
	stx DstBuf+2	; is switched in.
	sta ScratchHandle
	lda DstBuf+2
	sta ScratchHandle+2

	lda [DstBuf]
	sta SrcBuf
	ldy #2
	lda [DstBuf],y
	sta SrcBuf+2

	pla	; retrieve src buf len
	clc	; DstBuf is at end of Scratch
	adc SrcBuf
	sta DstBuf
	lda SrcBuf+2
	bcc NBPtr
	ina
NBPtr	sta DstBuf+2

;--------------------------------------------------------
;
; Init error term for DDA

	lda SrcVSize
	lsr A
	eor #$FFFF
	ina
	sta VError	; VError := -Denom.V/2

;--------------------------------------------------------
;
; Shift back to primary zero page

	lda FirstZeroPage
	tcd


;--------------------------------------------------------
;
; Calculate SrcPtr as SrcBase + SrcTop*SrcWidth + SrcStartByte
;

	pha	; two words for result
	pha
	lda SrcRect	; get top
	sec
	sbc SrcBounds	; make it global
	pha	; push top
	pei SrcWidth
	_Multiply

	ldx #512
	pla
	clc
	adc SrcPixelMapRef	; add in the base address
	sta SrcPtr,x	; save the pointer
	pla
	adc SrcPixelMapRef+2
	sta SrcPtr+2,x

	lda SrcStartByte,x
	clc
	adc SrcPtr,x
	sta SrcPtr,x
	bcc NoCarryHere
	lda SrcPtr+2,x
	inc a
	sta SrcPtr+2,x
NoCarryHere		;

;--------------------------------------------------------
;
; Calculate DestRef	as
;      DstBase + DstTop*DstWidth
;
; Normally in QuickDraw this calculation is simple and
; performed after the DestRect is clipped to the Dest
; BoundsRect.  But of course this is not the case here
; (otherwise why would I mention it).
;
; The result is that the calculation of
;
;     DstTop = DestRect-DestBounds
;
; can result in a negative number.  And	the multiply
; routine we use here does not produce a signed
; long result.
;
; It is okay for the DstBase value calucated here and
; put into DestRef to be less than DestPixelMapRef because
; of the strange way the algorithmn works--not doing any
; drawing until DestRef is bumped to be	equal to
; DestPixelMapRef.
;

	pha	; it was so much fun the first time...
	pha
	lda DestRect	; get top
	sec
	sbc DestBounds	; make it global
	bpl NotNeg	; make it positive for now
	eor #$FFFF
	inc a
NotNeg	pha	; push top
	pei DestWidth
	_Multiply

	lda DestRect
	cmp DestBounds
	bmi ItsLess

	pla
	clc
	adc DestPixelMapRef
	sta DestRef
	pla
	adc DestPixelMapRef+2
	sta DestRef+2
	bra AllAdjusted

ItsLess	lda DestPixelMapRef
	sec
	sbc 1,s
	sta DestRef
	lda DestPixelMapRef+2
	sbc 3,s
	sta DestRef+2
	pla
	pla
AllAdjusted

	clc
	rtl


;-----------------------------------------------------------
;
GlobalPixelToWordPixel
;
; Routine to turn the global address of a pixel into the
; number of the pixel in a word.
;
; Inputs:
;    a-reg   Global pixel value
;    y-reg   SCB to use for mode
;    x-reg   nothing
;
; Output:
;    a-reg   Pixel value in word
;    y-reg   trash
;    x-reg   trash
;    carry   undefined.
;
	pha
	tya
	and #$0080
	beq @Mode320

@Mode640
	pla
	and #$0007
	rts

@Mode320
	pla
	and #$0003
	rts





;----------------------------------------------------------
;
; PixelToEvenByte
;
; Routine to convert pixel value to even byte number.
; Pixel number comes in a-register and byte number goes
; out in a-reg.  X & Y are undisturbed.
;
; Must be called when 1st zp is active. 
;
; (Preserves the sign of the value in the a-reg)
	Export PixelToEvenByte
PixelToEvenByte		;
	pha
	asl a
	pla
	ror a
	bit DestSCB-1
	bpl OnlyOnce
	pha
	asl a
	pla
	ror a
OnlyOnce	and #$FFFE
	rts




	ENDP


	title 'ToMerge'
****************************************************************
*
ToMerge	PROC
*
* Merges scan lines (used when image is compressed vertically).
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

	lda SrcPtr	; first bump SrcPtr
	clc
	adc cSrcWidth
	sta SrcPtr
	bcc StartMerging
	inc SrcPtr+2
StartMerging	ldy SrcLimit	; set up loop
	iny
	sep #$20
	longa off
SrcMerger	lda [SrcPtr],y	; get the lowest value so far
	cmp [SrcBuf],y	; can we go lower than the best?
	bcs DontMerge	; if not, keep going
	sta [SrcBuf],y	; if so, save the new best
DontMerge	dey
	bpl SrcMerger
	rep #$20
	longa on
	lda VError
	clc
	adc DstVSize	; add destination size
	sta VError	; VError := VError + Numer.V
	dea
	bmi ToMerge	; loop while VError	<= 0
	rtl	; space keeper


	ENDP



	title 'ToStretch'
****************************************************************
*
ToStretch	PROC
*
* Jumps to the routines that do the work for horizontal 
* scan lines.  The first jump is patched at setup time to 
* point to the right routine.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
	entry JmpCopy320
	entry JmpStretch320
	entry JmpShrink320
	entry NoChange
*
	longa on	; mode
	longi on
*
****************************************************************

	jmp >NoChange

JmpCopy320	jmp >Copy320
JmpStretch320	jmp >Stretch320
JmpShrink320	jmp >Shrink320
NoChange	rtl

	ENDP


	title 'Copy320'
****************************************************************
*
Copy320	PROC
*
* Copy a row from SrcBuf to DstBuf without any modification
* whatsoever.
*
* The interesting thing to note here is	that we use DstLimit
* rather than SrcLimit since after aligning the src to the
* dst, we may have to copy more words.
*
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


	ldy DstLimit
CopyLoop320	lda [SrcBuf],y
	sta [DstBuf],y
	dey
	dey
	bpl CopyLoop320
	rtl

	ENDP

	title 'Stretch320'
****************************************************************
*
Stretch320	PROC EXPORT
*
* Stretch a source row to the destination row, which will be contained
* within our own buffer, so don't bother with the ending pixel - just
* blast it in there	as needed (allocate	some slop up above).
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* Change History
*
* 30 Jan 88     Steven Glass
*
* Once again we change the way the error term is inited.  (We've
* changed this before but without making notes in the change 
* histories.)  Looking at Mac QD it seems that the error term
* is inited to HInc	/ 2.
*
****************************************************************


;-----------------------------------------------------------
;
; To init the error	term, take the calculated ratio (HInc)
; div by 2 and put in HError
;
	lda HInc
	lsr a
	sta HError

;-----------------------------------------------------------
;
; 
	stz NextFlag	; remembers partial	source bytes

	lda SrcLeft	; We can be starting at pixel
	lsr a	; 0, 1, 2 or 3 in the first word
	sta SrcCtr	; use this to init SrcCtr
	bcc NotOdd

;----------------------------------------------------------
;
; The first nibble is the low nibble rather than the high.
;
	tay
	lda [SrcBuf],y	; get this byte
	sta NextNib	; put in NextNib
	inc NextFlag	; bump NextFlag
	inc SrcCtr	; start at one higher

NotOdd		;
	lda DstLeft	; get starting point of dest
	sta DestNibble	; where we start storing
	sta LastNibble	; DDL nibble counter

* Determine how many bits to expand on this stretch run.  Assume 16 bit mode.
* Leave the result in the x register.

Next2Bit	ldx #0	; zero our counter
	lda HError
H2Loop	inx	; bump x until HError spills over
	clc
	adc HInc
	bcc H2Loop

	sta HError	; save DDL term
	txa	; get number of nibbles to do
	clc
	adc LastNibble	; add nibbles done
	sta LastNibble	; new nibble limit
	lsr a	; Half the nibbles plus one 
	ina	; is byte limit
	sta ByteLimit

* Load the next nibble into LoNib and Nibs.  Assume 16 bit mode.

	lda NextFlag
	beq ReadNibs
	stz NextFlag
	lda NextNib
	and #$0F	; just the lower nibble
	sta LoNib
	asl A
	asl A
	asl A
	asl A
	ora LoNib
	sta Nibs
	bra GotNibble

ReadNibs	inc NextFlag
	ldy SrcCtr
	lda [SrcBuf],y	; pick up 2 nibbles	of information
	iny
	sty SrcCtr
	sta NextNib	; save it in x
	and #$F0	; grab the first nibble
	sta HTemp	; save the high nibble
	lsr A	; shift it down
	lsr A
	lsr A
	lsr A
	sta LoNib
	ora HTemp	; now we have a composite byte
	sta Nibs

GotNibble	lda DestNibble	; fetch the next nibble
	lsr A	; are we on a byte boundary
	tay	; point y at the correct byte
	bcc ByteBoundary	; yes, ignore the partial stuff
	lda [DstBuf],y	; no, OR in the new	nibble
	and #$FFF0	; clear first byte,	second nibble
	ora LoNib	; or in the second nibble
	sta [DstBuf],y	; store the composite byte
	iny
	tya	; y points at next byte
	cpy ByteLimit
	bcs NextSrc2Bit

* More to do.  We know we are on a byte	boundary now, so we	can store a full
* byte at a time until we run out of room.  If we go too far, no big deal.

ByteBoundary	sep #$20	; no abs. refs, we promise;
	lda Nibs
Nib2Loop	sta [DstBuf],y	; store a full byte	until we run out
	iny
	cpy ByteLimit
	bmi Nib2Loop
	rep #$20	; see, kept our promise;
	lda LastNibble
NextSrc2Bit	sta DestNibble

	cmp NibbleLimit
	bmi Next2Bit
	beq Next2Bit

	rtl

	ENDP

	title 'Shrink320'
****************************************************************
*
Shrink320	PROC EXPORT
*
* Shrink a 320 mode	source row into the	destination buffer.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* Change History
*
* 30 Jan 88     Steven Glass
*
* Once again we change the way the error term is inited.  (We've
* changed this before but without making notes in the change 
* histories.)  Looking at Mac QD it seems that the error term
* is inited to HInc	/ 2.
*
****************************************************************


;-----------------------------------------------------------
;
; To init the error	term, take the calculated ratio (HInc)
; div by 2 and put in HError
;
	lda HInc
	lsr a
	sta HError

;-----------------------------------------------------------
;
; 
	stz NextFlag

	lda SrcLeft
	lsr a
	sta SrcCtr
	bcc NotOdd

; Its odd
	tay
	lda [SrcBuf],y
	sta NextNib
	inc NextFlag
	inc SrcCtr

NotOdd		;
	lda DstLeft
	sta DestNibble	; current nibble

* Determine how many src nibbles to consume on this shrink run.  Assume
* 16 bit mode.  Leave the result in the	x register.

NextSh320	lda #$000F	; a white nibble
	sta Nibs	; Nibs is our best bet yet
	ldx #0	; zero our counter
	lda HError
Sh320Loop	inx	; bump x until HError spills over
	clc
	adc HInc
	bcc Sh320Loop
	sta HError	; save DDL term

* Examine X nibbles, saving the lowest value found in Nibs.

	lda NextFlag
	beq ReadSh320
AnotherSh320	stz NextFlag
	lda NextNib
	and #$0F	; just the lower nibble
	cmp Nibs
	bpl TillSh320
	sta Nibs
TillSh320	dex
	beq CommonSh320
ReadSh320	inc NextFlag
	ldy SrcCtr
	lda [SrcBuf],y	; pick up 2 nibbles	of information
	iny
	sty SrcCtr
	sta NextNib	; save it in x
	and #$00F0	; grab the first nibble
	lsr A	; shift it down
	lsr A
	lsr A
	lsr A
	cmp Nibs
	bpl Okay320
	sta Nibs
Okay320	dex
	bne AnotherSh320
CommonSh320	lda DestNibble	; fetch the next nibble
	lsr A	; are we on a byte boundary
	tay	; point y at the correct byte
	bcc Sh320ByteBndry	; yes, ignore the partial stuff
	lda [DstBuf],y	; no, OR in the new	nibble
	and #$FFF0	; clear first byte,	second nibble
	ora Nibs	; or in the second nibble
	sta [DstBuf],y	; store the composite byte
	bra BumpDstSh320

Sh320ByteBndry	lda Nibs
	asl A	; shift it into the	high nibble
	asl A
	asl A
	asl A
	sta [DstBuf],y

; Use DestNibble to	see if we are done.	 (in 320 mode DestNibble is
; pixel number.  In	640 mode its half the pixel number) 
BumpDstSh320		;
	lda DestNibble
	ina
	sta DestNibble
	cmp NibbleLimit
	bmi NextSh320
	beq NextSh320
	rtl

	ENDP


	title 'AlignSrc'
****************************************************************
*
AlignSrc	PROC
*
* Aligns the source pixles in the source buffer so that the
* first pixel of the souce that is to be used in the destination
* is in the right position for the destination.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


	lda AlignAmount
	bne MustDoSomething
	rtl	; nothing to do

MustDoSomething		;
	bmi ShiftBackwards

; shiftforewards
	ldy #0
	stz LastOut
	ldx ShiftIndex	; do this only once

ShiftFLoop	lda [SrcBuf],y
	sta HTemp
	jsl vxShiftStay
	ora LastOut
	sta [SrcBuf],y
	lda HTemp
	jsl vxShiftOut
	sta LastOut
	iny
	iny
	cpy SrcLimit
	bcc ShiftFLoop
	beq ShiftFLoop
	sta [SrcBuf],y	; put the last shift out into buf
	rtl

ShiftBackwards		;
	lda [SrcBuf]	; get first word and get its shift out
	ldx ShiftIndex	; we ignore its stay
	jsl vxShiftOut
	sta LastOut	; put this in last out and
	ldy #2	; start loop with second word

ShiftBLoop	lda [SrcBuf],y	; get word
	sta HTemp	; save it
	jsl vxShiftStay	; get its stay and or with last out
	ora LastOut	; but store result back one word
	dey
	dey
	sta [SrcBuf],y
	iny	; get index back were it was
	iny
	lda HTemp	; get word again
	jsl vxShiftOut	; get its out and put in LastOUT
	sta LastOut
	iny	; bump Y
	iny
	cpy SrcLimit	; are we done
	bcc ShiftBLoop
	beq ShiftBLoop
	rtl



	ENDP


	title 'LocalSliceSetup'
****************************************************************
*
LocalSliceSetUp	PROC
*
* The following variables (all used by the slice routines)
* are initialized here.
*
*      NumSrcWords	           NumDestWords                 
*      SrcStartWord	           DestStartWord
*      SrcFinishWord           DestFinishWord
*
* They control where the slice routines	copy to and from as	well
* as how many words	are transfered.
*
* Important Note;;;;
*
* NumSrcWords and NumDestWords are mis-named because they really
* tell me the number of bytes, not words.
*
* This code does not have to worry about the tricky case of	the
* source and dest not having the right number of bytes in them
* since the transfering I will do always has the the pixels
* prealigned.
*
* This code is called right after the minrect is calculated
* but before the DestRect has been replaced by this newly calculated
* minrect.  In this	way I have available to me both the original
* destrect and the clipped destrect;
*
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
*
* Change History
*
* 30 Jul 88	Steven Glass
*
* When the destination rectangle is clipped we have to adjust
* the source word.  The adjust we did before did not take into
* account the fact that the source is pre-aligned.  There
* were times when we did not start in the right word (we started
* one too soon).
*
****************************************************************


; Now we decide which mode were working	in so that we set up
; the mode dependent stuff.  We're on the primary zero page.

	stz SrcStartWord	; start by assuming	that the left
;		; side at least is not clipped

	ldx #512	; set x to be offset to other direct page

	bit SrcSCB-1	; now do the right thing for the
	bmi Is640	; two possible modes

* 320 mode
	lda MinRect+2	; check to see if the left side
	sec	; has been clipped
	sbc DestRect+2
	beq NoChange320	; no.


	clc	; 30 Jul 88 SEG
	adc DstLeft,x	; add in SrcLeft since everything has been pre-aligned.

	lsr a	; yes--make this difference into bytes

	and #$FFFE	; make it even byte

	sta SrcStartWord

NoChange320		;

	lda MinRect+2	; take the left edge of the clipped
	sec	; dest rect
	sbc DestBounds+2	; make global
	lsr a	; turn into bytes
	and #$FFFE	; make even
	sta DestStartWord	; this is first dest word to hit

	lda MinRect+6	; now take num pixels in clipped
	sec	; rect
	sbc DestBounds+2
	dec a	; subtract one for QD representation
;		; of rectangles
	lsr a	; half it so it refers to byte
	and #$FFFE	; mask so refers to	even byte
	bra RazzleDazzle

* 640 mode

Is640		;

	lda MinRect+2	; check to see if the left side
	sec	; has been clipped
	sbc DestRect+2
	beq NoChange640	; no.


	clc	; 30 Jul 88 SEG
	adc DstLeft,x	; add in SrcLeft since everything has been pre-aligned.

	lsr a	; yes--make this difference into bytes
	lsr a

	and #$FFFE	; make it even byte

	sta SrcStartWord

NoChange640		;

	lda MinRect+2	; take the left edge of the clipped
	sec	; dest rect
	sbc DestBounds+2	; make global
	lsr a	; turn into bytes
	lsr a
	and #$FFFE	; make even
	sta DestStartWord	; this is first dest word to hit

	lda MinRect+6	; now take num pixels in clipped
	sec	; rect
	sbc DestBounds+2
	dec a	; subtract one for QD representation
;		; of rectangles
	lsr a	; half it so it refers to byte
	lsr a
	and #$FFFE	; mask so refers to	even byte

RazzleDazzle	sta DestFinishWord
	sec
	sbc DestStartWord
	sta NumDestWords
	sta NumSrcWords

	clc
	adc SrcStartWord
	sta SrcFinishWord

	rtl

	ENDP



	title 'Various Utilities'
****************************************************************
*
LocalNewHandle	PROC
*
* Routine to return	a new handle of size passed in a-reg
*
* Handle is returned in a,x (a low, x high).
*
* This is different	than MyWNewHandle in that QuickDraw's
* zero page is stored in the same place	that MyWNewHandle
* knows about.
*
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* 7/24/89	Mensch
*	Change Where the user ID comes fromwhen allocating the handle.
*
****************************************************************

	pha
	pha
	pea 0
	pha
	ldx FirstZeroPage
	lda >UserID,x	; get proper ID.
	pha
	pea 0	; attributes
	pha	; junk for space
	pha
	_NewHandle
	pla
	plx
	rts

	ENDP


****************************************************************
*
DeRefAndLock	PROC
*
* This takes a handle in the A & X registers and dereferences
* and locks it.
*
* The result ptr is	returned in a & x.
*
* The location TEMP	on zero page is trashed as is Y
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
	ENTRY DeRefAndLoc	; another name for this proc
*
	longa on	; mode
	longi on
*
****************************************************************

DeRefAndLoc

	sta Temp
	stx Temp+2

	ldy #4
	lda [Temp],y
	ora #$8000
	sta [Temp],y

	dey
	dey
	lda [Temp],y
	tax
	lda [Temp]

	rts

	ENDP


****************************************************************
*
UnlockMem	PROC
*
* This is used after a handle has been locked to release it.
*
* Like DeRefAndLock, the handle is passed in the A & X registers.
*
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


	sta Temp
	stx Temp+2

	ldy #4
	lda [Temp],y
	and #$7FFF
	sta [Temp],y

	rts
	ENDP



****************************************************************
*
* DeRefA
*
****************************************************************
DeRefA	PROC EXPORT

	ldx #RgnHandleA
	jsr DerefHandle
	sta RgnPtrA
	stx RgnPtrA+2
	rts


	ENDP

****************************************************************
*
* UnlockA
*
****************************************************************
UnlockA	PROC EXPORT

	ldx #RgnHandleA
	jmp UnlockHandle

	ENDP

****************************************************************
*
* DeRefB
*
****************************************************************
DeRefB	PROC EXPORT

	ldx #RgnHandleB
	jsr DerefHandle
	sta RgnPtrB
	stx RgnPtrB+2
	rts

	ENDP

****************************************************************
*
* UnlockB
*
****************************************************************
UnlockB	PROC EXPORT

	ldx #RgnHandleB
	jmp UnlockHandle


	ENDP


****************************************************************
*
* DeRefC
*
****************************************************************
DeRefC	PROC EXPORT

	ldx #RgnHandleC
	jsr DerefHandle
	sta RgnPtrC
	stx RgnPtrC+2
	rts

	ENDP

****************************************************************
*
* UnlockC
*
****************************************************************
UnlockC	PROC EXPORT

	ldx #RgnHandleC
	jmp UnlockHandle


	ENDP


****************************************************************
*
* DerefHandle
*
****************************************************************
DerefHandle	PROC EXPORT

* enter with zero page offset to src in	X

* sample usage:
*
*     ldx #RgnHandleA
*     jsr DerefHandle
*     sta RgnPtrA
*     stx RgnPtrA+2

	lda 0,x
	sta Temp
	lda 2,x
	sta Temp+2

	Export QuickDeref
QuickDeref

* sample usage:
*     jsr QuickDeref	; Temp still has handle
*     sta RgnPtrA
*     stx RgnPtrA+2

* handle is in Temp; lock it down

	ldy #4
	lda [Temp],y
	ora #$8000
	sta [Temp],y

* dereference it, leaving low word in A	and high word in X

	ldy #2
	lda [Temp],y
	tax
	lda [Temp]
	rts

	ENDP

****************************************************************
*
* Procedure UnlockHandle
*
****************************************************************
UnlockHandle	PROC EXPORT

* enter with zero page offset to handle	in x

* Sample usage
*
*     ldx #RgnHandleA
*     jsr UnlockHandle

	lda 0,x
	sta Temp
	lda 2,x
	sta Temp+2

* unlock it

	ldy #4
	lda [Temp],y
	and #$7FFF
	sta [Temp],y

* leave with Temp still holding the handle so related routines
* can use it

	rts

	ENDP

****************************************************************
*
* WideOpen
*
* This is a fake region containing a bounding box equal
* to the potential drawing space.
*
****************************************************************
WideOpen	PROC EXPORT


	DC.L There
	DS.B 2
There
	DC.W 10

	DC.W -MaxInt,-MaxInt,MaxInt,MaxInt

	ENDP


ForceCopyBitLoad	PROC EXPORT

	rtl

	ENDP




	title 'StdPixels'
	SEG 'MAINPart'
****************************************************************
*
iStdPixels	PROC EXPORT
*
* Standard pixel painting routine.  Inputs are already on
* zero page as follows when this gets control.
*
*        SrcLocInfo
*        DestLocInfo (this lives in same memory as PortLocInfo)
*        SrcRect
*        DestRect
*        XFerMode
*        RgnHandleA
*        RgnHandleB
*        RgnHandleC	(MaskRgn)
*
*
*
* Inputs:
*	All on direct page.
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* Change History
*
* June ?, 1986	Steven Glass
*
*  This routine did not handle source and destination pixel maps 
*  crossing bank boundries until now.
*
* August 8, 1986	Steven Glass
*
*   When the src and dest pixel maps were not equal chunkiness, 
*   the bank reg was left on stack and system crashed.
*
* November 18, 1986
*
*   It now handles stretching. oh my.
*
* Jun 5, 1987	Steven Glass
*
*   Fixed bug in copy pixels where right edge of image was often the
*   wrong color when image was reduced by more than 2 : 1.	Problem was
*   with fix ratio calculation of horizontal error term. Both the numerator
*   and denominator	were 0 based values	rather than the 1 based values
*   expected.
*
*   This routine changed where SrcHSize	and DstHSize are calculated.
*   Both were calculated as Right-1 - Left.  It is now Right - Left.
*
*
****************************************************************


	stz ClipToPortToo
;-------------------------------------------------
;
; If the dest loc is the same as the current
; graf port, then we check if a picture	is being
; captured.
;
	jsr LocalIsDestPort
	bcc SkipPicture

	lda #$FFFF
	sta ClipToPortToo

	lda #MapNoun
	jsl PutPictStuff
	bcc NoPicErr
QuitNow	rtl

NoPicErr		;
SkipPicture	ldy #o_PnVis
	lda [PortRef],y
	bpl KeepGoing
	lda #$0000
	clc
	rtl

* Calc DestRect Height:Width Longint
KeepGoing		;
	ldx #512
	lda DestRect+4
	sec
	sbc DestRect
	sta DstVSize,x
	lda DestRect+6
	sec
	sbc DestRect+2
	sta DstHSize,x

* Calc SrcRect Height:Width Longint

	lda SrcRect+4
	sec
	sbc SrcRect
	sta SrcVSize,x
	lda SrcRect+6
	sec
	sbc SrcRect+2
	sta SrcHSize,x

* if they are the same then can fall into RgnBlt.  If different, go
* through stretch.

	cmp DstHSize,x
	bne NotEqual
	lda SrcVSize,x
	cmp DstVSize,x
	bne NotEqual

	jml RgnBlt

NotEqual	
	jsl ForceCopyBitLoad
	jml StretchBits





LocalIsDestPort

	ldy #LocSize-2
Loop	tyx
	lda [PortRef],y
	cmp DestSCB,x
	bne No
	dey
	dey
	bpl Loop

	sec
	rts

No	clc
	rts


	ENDP

	END

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/QDAux/faces.asm b/IIGS.601.SRC/GSToolbox/QDAux/faces.asm
new file mode 100644
index 0000000..c112846
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/QDAux/faces.asm
@@ -0,0 +1 @@
+**************************************************************
*
*	        FACES
*
*
*
* Code to modify the text buffer to produces different types
* of text faces.
*
*
* Version 1.0
* November 1986
* By Bennet Marks
*
* Change History
*
* Version 2.0    May 8, 1987   Steven E. Glass
*
*     Shadowing has	been added and the case in outlining where
*     the character	does not cross a word boundary has been
*     fixed.
*
* 12 Mar 89	Steven Glass
*
* Made this file use the TextEquates in QuickDraw project.
*
* Found one conflict:  ImageWidth.  In Faces.Equs it was
* TEMP2.  In TextEquates, it is Temp1.  Seems to be used as
* local temp so I made new equate where needed: ThisImageWidth
* Equ to Temp2.  Sure hope it all works.
*
* (When we were done the file equaled the file made the old
* way.)
*
**************************************************************

**************************************************************
*
*	  Copyright (C) 1986-1989
*	  All Rights Reserved
*	  Apple Computer, Inc.
*
**************************************************************


	include 'all.macros'
	include 'special.macros'

	include '::qd:qdequates:core.globals1'
	include '::qd:qdequates:core.globals2'
	include '::qd:qdequates:region.equs'

	include '::qd:qdequates:qd.data.asm'

	include '::qd:qdequates:textEquates'


**************************************************
*	Imports	         *
**************************************************

	Import QDStart
	Import BusyEC4

**************************************************
*	Entries	         *
**************************************************

	ENTRY nStyleExtents
	ENTRY nStyleText

	Entry SmearDownNBurn
	Entry U1D1Smear
	Entry LeftRightSmear
	Entry OOWShadow
	Entry ShadePointers
	Entry ShadeExtents
	Entry OOWOutline
	Entry nBText
	Entry nBChar
	Entry leftBitMask
	Entry rightBitMask
	Entry DoShadow
	Entry DoOline
	Entry DoItalic
	Entry PostUlinePatch
	Entry PreUlinePatch
	Entry PRestoreTB1
	Entry PGetTB2Handle
	Entry PSetTB2
	Entry RealGetFntInf
	Entry NewStdTxBnds
	Entry PRestoreFW
	Entry PSaveFW
	Entry PCalcFBRX
	Entry StuffItInTable
	Entry NewGetFontInfo
	Entry OrigGFIAdr


**********************************************************************
**********************************************************************
;                copy faces/VectorSetup
**************************************************************
*
* SetupTextVectors
*
* This code saves the old vectors and puts the new ones
* in place.
*
**************************************************************
* SetupTextVectors START
	Export SetupTextVectors
SetupTextVectors	PROC

	Redirect SetUpFontInfo
	Redirect StdTxMeas
	Redirect StdText
	Redirect StdTxBnds
	Redirect SetTB
	Redirect ResetTB
	Redirect StyleText
	Redirect GetTextHandle
	Redirect CleanUpBuffer
	Redirect StyleExtents
	Redirect DoUnderline
	Redirect GetFntInf

	lda #0
	sta >OrigGFIAdr
	sta >OrigGFIAdr+2

	jsl GimmeVersion
	and #$7F00
	cmp #$0100
	bne SkipThisKludge

	pha
	pha
	PushWord #0
	PushWord #$9604
	_GetFuncPtr

	pla
	sta >OrigGFIAdr
	pla
	sta >OrigGFIAdr+2

	lda #NewGetFontInfo-1
	ldx #^NewGetFontInfo-1
	jsr StuffItInTable

SkipThisKludge		;
	rts



; These are the routines that the vectors get redirected to

	JumpToNew SetUpFontInfo
	JumpToNew StdTxMeas
	JumpToNew StdTxBnds
	JumpToNew StdText
	JumpToNew SetTB
	JumpToNew ResetTB
	JumpToNew StyleText
	JumpToNew GetTextHandle
	JumpToNew CleanUpBuffer
	JumpToNew StyleExtents
	JumpToNew DoUnderline
	JumpToNew GetFntInf


	Export OrigGFIAdr
OrigGFIAdr
	DS.B 4

;
nSetUpFontInfo		;
	jsl oSetUpFontInfo
	jsl PCalcFBRX
	rtl
;
nStdTxMeas		;
	jsl PSaveFW
	jsl oStdTxMeas
	jsl PRestoreFW
	rtl
nStdText		;
	jsl PSaveFW
	jsl oStdText
	jsl PRestoreFW
	rtl
nStdTxBnds		;
	jsl PSaveFW
	jsl NewStdTxBnds
	jsl PRestoreFW
	rtl
nGetFntInf		;
	jsl PSaveFW
	jsl RealGetFntInf
	jsl PRestoreFW
	rtl
;
nSetTB		;
	jsl oSetTB
	jsl PSetTB2
	rtl
nResetTB		;
	jsl oResetTB
	jsl PSetTB2
	rtl
;
nGetTextHandle		;
	jsl oGetTextHandle
	jsl PGetTB2Handle
	rtl
;
nCleanUpBuffer		;
	jsl PRestoreTB1
	jsl oCleanUpBuffer
	rtl
;
nDoUnderline		;
;
	jsl PreUlinePatch
	bcs DontUline
;
	jsl oDoUnderline
	jsl PostUlinePatch
;
DontUline		;
	rtl
;
****  NOTE:  replacement routine for StyleText/StyleExtents
****         can be	found in faces.patches - BHM  x6245  4/6/87
;

;
**************************************************************
*
* RestoreTextVectors
*
* This code restores the old vectors.
*
**************************************************************
	Export RestoreTextVectors
RestoreTextVectors

	Restore SetUpFontInfo
	Restore StdTxMeas
	Restore StdText
	Restore StdTxBnds
	Restore SetTB
	Restore ResetTB
	Restore StyleText
	Restore GetTextHandle
	Restore CleanUpBuffer
	Restore StyleExtents
	Restore DoUnderline
	Restore GetFntInf

	lda >OrigGFIAdr
	ora >OrigGFIAdr+2
	beq SkipThisKludgeToo

	lda >OrigGFIAdr+2
	tax
	lda >OrigGFIAdr
	jsr StuffItInTable

SkipThisKludgeToo		;

	rts

	ENDP


*****************************************************************
*
* StuffItInTable
*
* This routine takes the address passed	in the a & x register
* and puts it into QuickDraw's Tool Pointer Table at the
* location for GetFontInfo.
*
*****************************************************************
* StuffItInTable   START
	Export StuffItInTable
StuffItInTable	PROC

GetFontInfoCallNumber equ $96

	DefineStack
OrigDirect	WORD
TablePtr	LONG
NewPointer	LONG

	phx
	pha

	pha
	pha
	PushWord #0
	PushWord #4
	_GetTSPtr

	phd
	tsc
	tcd

	ldy #4*GetFontInfoCallNumber
	lda NewPointer
	sta [TablePtr],y
	iny
	iny
	lda NewPointer+2
	sta [TablePtr],y

	pld
	pla
	pla
	pla
	pla

	rts


	ENDP


**********************************************************************
**********************************************************************
;                copy faces/faces.patches
;
;This file, part of	QD.AUX, patches the	QDII code to fix bugs,
;implement new style mods, etc. 
;
;A:  after SetUpFontInfo (and the current patches following	it),
;execute:
;
;
* PCalcFBRX      START
	Export PCalcFBRX
PCalcFBRX	PROC
;
	lda txFace
	bit #olineBit
	beq NotOline
	inc extra
	lda txFace
;
NotOline		;
	bit #shadowBit
	beq NotShadow
	inc extra
	inc extra
;
NotShadow		;
	ldx #512
	lda xFontWidth,x	;"original" fontWidth
	bne ItsForced
;not forced:
	lda fRectMax	;(actually fbrExtent by now)
	clc
	adc extra
	sta temp
	lda txFace
	and #ulineBit
	beq NotUline
*              inc extra	;OUT!
	inc temp
;
NotUline		;
;
;
	lda txFace
	and #italBit
	beq NotItal
;italics:
	lda ascent
	cmp descent
	bpl AscentBigger
	lda descent
AscentBigger		;	  ;larger of ascent, descent in acc.
	lsr a
	lsr a	;extra extent for italics
	clc
	adc temp
	sta temp
NotItal		;
;
	lda temp
	clc
	adc chExtra+2
	adc spExtra+2
	adc #2	;for possible rounding
;
	ldx #256
	sta fontWidth,x	;new fontWidth value
;
ItsForced		;
;in the acc. we have the "true" fontWidth - either a forced	value, or
;one calculated from the current font and grafport fields
	ldx #512
	sta trueFBRXtnt,x
	rtl
	ENDP
;
;-----------------------------------------------------------------------------
;
;B1:  before any subroutine that calls SetUpFontInfo, execute
;
* PSaveFW        START
	Export PSaveFW
PSaveFW	PROC
	ldx #256
	lda fontWidth,x
	ldx #512
	sta xFontWidth,x
	rtl
	ENDP
;
;B2:  after any such subroutine, execute:
;
* PRestoreFW     START
	Export PRestoreFW
PRestoreFW	PROC
	ldx #512
	lda xFontWidth,x
	ldx #256
	sta fontWidth,x
	rtl
	ENDP
;
;affected subroutines:  StdTxMeas, StdTxBnds, StdText, and
;GetFontInfo (actually, GetFontInfo should be replaced altogether)
;
;-----------------------------------------------------------------------------
;
;C:  after SetTB and ResetTB, execute
;
* PSetTB2        START
	Export PSetTB2
PSetTB2	PROC
	bcc NoMemErr
	rtl
NoMemErr		;
	PushLong #0
	lda textBufRowWords
	asl a	;bytes
;
	sta temp2
;
	pha
	lda textBufHeight
	clc
	adc #2	;for outlining
	pha
;
	_Multiply
;
	lda 3,s
	sta temp+2
	lda 1,s
	clc
	adc temp2	;add in 3 times for	shadow
	bcc NoCarry1
	inc temp+2
	clc
NoCarry1		;
	adc temp2
	bcc NoCarry2
	inc temp+2
	clc
NoCarry2		;
	adc temp2
	bcc NoCarry3
	inc temp+2
NoCarry3		;
	sta temp
;
	ldx #512
	lda TB2Handle+2,x
	sta fontTemp+2
	pha
	lda TB2Handle,x
	sta fontTemp
	pha
	_SetHandleSize
;
	bcc NoMemErr2
	rtl
NoMemErr2		;
;
	PushLong temp
	ldx #512
	lda tb3Handle+2,x
	pha
	lda tb3Handle,x
	pha
	_SetHandleSize
	bcc NoMemErr3
	rtl
NoMemErr3		;
;
	clc
	lda #0
	rtl
	ENDP
;
;-----------------------------------------------------------------------------
;
;
;D:  before CleanUpBuffer, execute:
;
* PRestoreTB1    START
	Export PRestoreTB1
PRestoreTB1	PROC
	lda txFace
	bit #olineBit+shadowBit
	beq NotOlNorShadow
;well, it was one or the other (or both)
;
	ldx #512
	lda xRightExtent,x
	sta rightExtent
	lda xLeftExtent,x
	sta leftExtent
;
	lda xBufPtr,x
	sta bufPtr
	lda xBufPtr+2,x
	sta bufPtr+2
;
	lda txFace
	bit #olineBit
	beq NotOline
;outline:
	dec chHeight
	dec chHeight
;
;
	lda txFace

;
NotOline		;
;
	bit #shadowBit
	beq NotShadow	;then what are we doing here?
;shadow:
	dec chHeight
	dec ChHeight
	dec ChHeight
;
;
NotShadow		;
NotOlNorShadow		;
	rtl
	ENDP
;
;E:  after GetTextHandle, execute:
;
* PGetTB2Handle  START
	Export PGetTB2Handle
PGetTB2Handle	PROC
;
;allocate tb2 and tb3
;
;first, zero them out to make later disposal easier
;
	ldx #512
	lda #0
	sta tb2Handle,x
	sta tb2Handle+2,x
	sta tb3Handle,x
	sta tb3Handle+2,x
;
	pushlong #0	;for result
	pushlong #15	;a token amount
	lda UserID
	pha
	pea 0
	pushlong #0	;I assume this is not used
;
	_NewHandle
	bcc NoMemErr1
;memory error:
	plx
	plx	;clear stack
;note carry set and	error code in acc. still
	rtl	;so just return
;
;
NoMemErr1		;
	ldx #512
	pla
	sta tb2Handle,x
	pla
	sta tb2Handle+2,x
;
;
	pushlong #0	;for result
	pushlong #15	;a token amount
	lda UserID
	pha
	pea 0
	pushlong #0	;I assume this is not used
;
	_NewHandle
	bcc NoMemErr2
;memory error:
	plx
	plx	;clear stack
;note carry set and	error code in acc. still
	rtl	;so just return
;
;
NoMemErr2		;
	ldx #512
	pla
	sta tb3Handle,x
	pla
	sta tb3Handle+2,x

;note carry clear still
	lda #0	;so clear acc.
	rtl	;and just return
	ENDP
;
;-----------------------------------------------------------------------------

****************************************************************
*
DisposeTB2	PROC EXPORT
*
* Dispose of the text buffer handles
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
*
* Change History
*
* 10 Aug 88	Steven Glass
*
* The code did not push the handle correctly before
* making the dispose call.
*
****************************************************************

;
;also, tb3


	ldx #512
	lda tb2Handle+2,x
	pha
	lda tb2Handle,x
	pha
	_DisposeHandle

	ldx #512
	lda tb3Handle+2,x
	pha
	lda tb3Handle,x
	pha
	_DisposeHandle


	rtl	;and just return


	ENDP
;
;
******************************************************************************
*			                 *
*  replacement for StyleText/StyleExtents.  This version puts underlining    *
*  after italics, which saves us a mess	of trouble.	                 *
*			                 *
*  Bennet Marks  x6245  4/6/87		                 *
*			                 *
******************************************************************************
;

;
* nStyleText     START
	Export nStyleText
nStyleText	PROC
;
;
	stz justExtents	;style both text buffer and extents
	bra DoStyle
;
	Export nStyleExtents
nStyleExtents
	lda #TRUE
	sta justExtents	;text buffer irrelevant
;
DoStyle		;
	lda txFace
	beq PlainStyle
;
	bit #boldBit
	beq NotBold
;it's BOLD!
	jsl DoBold
	lda txFace
NotBold		;
;
	bit #italBit
	beq NotItalic
;i/t/a/l/i/c/s/
	jsl DoItalic
	lda txFace
NotItalic		;
;
	bit #ulineBit
	beq NotUline
;underline it __________ __!
	jsl DoUnderline
	lda txFace
NotUline		;
;
	bit #olineBit+shadowBit
	beq NotOlNorShadow	;nor gloom of night
;
;in the outline and/or shadow case, we need to keep info about the
;first text buffer before switching to the others
;
	ldx #512
	lda rightExtent
	sta xRightExtent,x
	lda leftExtent
	sta xLeftExtent,x
;
	lda bufPtr
	sta xBufPtr,x
	lda bufPtr+2
	sta xBufPtr+2,x
;
	lda txFace
	bit #olineBit
	beq NotOline
;OOOUTLINEOO
	jsl DoOline
	lda txFace
;
NotOline		;
;
	bit #shadowBit	;although what else	could it be?
	beq NotShadow
;OOSHADOWOOOO
	jsl DoShadow
;
NotShadow		;
NotOlNorShadow		;            
;
PlainStyle		;
	rtl
	ENDP
*****************************************
*		*
*  end of StyleText		*
*  (also, StyleExtents)	*
*		*
*****************************************
;
******************************************************************************
*
*  The following patches should be executed with DoUnderline.  They fix
*  an eccentricity in the underlining code that was causing	a problem with
*  outlining (and would have cause a similar problem with shadowing).  To
*  wit:  the underlining code was extending the underline beyond the limits
*  of the text image's boundaries all the way to the nearest word boundaries,
*  and relying on BlowItUp to do the necessary clipping (which it does
*  admirably).  But	when outlining intervenes, the outlining code sees these
*  extensions, and can't outline around the "proper" edges of the underline.
*
*  PreUlinePatch also fixes a bug in the way underling handles "utter nulls",
*  characters that have 0 image width (no image pixels) and	0 character width
*  (no pen change).
*
*  Bennet Marks  x6245  3/4/87
*
******************************************************************************
;
******************************************************************************
*
*  PreUlinePatch
*
*  This patch determines whether any underlining should in fact be done.
*  If not, it returns with the carry set; o.w. clear.  If the carry is
*  set, neither the	underlining nor PostUlinePatch should be executed.
*
*  PreUlinePatch duplicates some of the	effort found in DoUnderline.  But
*  it gets it right.
*
******************************************************************************
;
* PreUlinePatch  START
	Export PreUlinePatch
PreUlinePatch	PROC
	lda descent
	cmp #2
	bpl DescentOK
;descent too small:
	sec
	rtl
;
DescentOK		;
	lda rightExtent
	cmp leftExtent
	bpl ExtentsOK
;extents not ok, but pens may save us:
	lda bufPen
	cmp startBufPen
	bne PensOK
;0 image width, 0 pen delta:
	sec
	rtl
;
PensOK		;
ExtentsOK		;
	clc
	rtl
	ENDP
;
******************************************************************************
*
*  PostUlinePatch
*
*  This patch masks	out the troublesome	extra extents of the underline in
*  the first and last words of its row.
*
******************************************************************************

* PostUlinePatch START
	Export PostUlinePatch
PostUlinePatch	PROC
;
;we have to recompute numOfBytes, because in the OnlyOneWord case the
;value (0, but we need to know if we're in that case) hasn't been saved
;
;of course, we don't have to do any of this in the just-us-extents case 
	lda justExtents
	beq ClipUline
	rtl	;don't bother
;
ClipUline		;
	lda leftExtent
	lsr a
	lsr a
	lsr a
	and #first15Bits
	sta temp
;
	lda rightExtent
	lsr a
	lsr a
	lsr a
	and #first15Bits
;
	sec
	sbc temp	;numOfBytes value (can be 0 here)
	tay
;
;mask out on right:
	lda rightExtent
	and #last4Bits
	asl a
	tax
	lda >rightBitMask,x
	and [tbRowPtr],y	;points to the underline row
	sta [tbRowPtr],y
;
;now on left:
	lda leftExtent
	and #last4Bits
	asl a
	tax
	lda >leftBitMask,x
	and [tbRowPtr]
	sta [tbRowPtr]
;
	rtl
	ENDP
;

****************************************************************
*
* Left Bit Mask Table
*
* Note that the "b"	directive puts its inputs into mem as
* a byte stream s the byte on the left is at a lower memory
* loc than the byte	on the right.
*
****************************************************************
* LeftBitMask    START
	Export LeftBitMask
LeftBitMask	PROC

	DC.B %11111111,%11111111

	DC.B %01111111,%11111111

	DC.B %00111111,%11111111

	DC.B %00011111,%11111111

	DC.B %00001111,%11111111

	DC.B %00000111,%11111111

	DC.B %00000011,%11111111

	DC.B %00000001,%11111111

	DC.B %00000000,%11111111

	DC.B %00000000,%01111111

	DC.B %00000000,%00111111

	DC.B %00000000,%00011111

	DC.B %00000000,%00001111

	DC.B %00000000,%00000111

	DC.B %00000000,%00000011

	DC.B %00000000,%00000001

	ENDP


****************************************************************
*
* Right Bit Mask Table
*
* Note that the "b"	directive puts its inputs into mem as
* a byte stream s the byte on the left is at a lower memory
* loc than the byte	on the right.
*
****************************************************************
* RightBitMask   START
	Export RightBitMask
RightBitMask	PROC
		;  ; 0
	DC.B %10000000,%00000000
		;  ; 1
	DC.B %11000000,%00000000
		;  ; 2
	DC.B %11100000,%00000000
		;  ; 3
	DC.B %11110000,%00000000
		;  ; 4
	DC.B %11111000,%00000000
		;  ; 5
	DC.B %11111100,%00000000
		;  ; 6
	DC.B %11111110,%00000000
		;  ; 7
	DC.B %11111111,%00000000
		;  ; 8
	DC.B %11111111,%10000000
		;  ; 9
	DC.B %11111111,%11000000
		;  ; 10
	DC.B %11111111,%11100000
		;  ; 11
	DC.B %11111111,%11110000
		;  ; 12
	DC.B %11111111,%11111000
		;  ; 13
	DC.B %11111111,%11111100
		;  ; 14
	DC.B %11111111,%11111110
		;  ; 15
	DC.B %11111111,%11111111
	ENDP




**********************************************************************
**********************************************************************
;                copy faces/newbounds
;
******************************************************************************
*			                 *
*  BChar and BText had a very subtle off-by-1 error, which cropped up in the *
*  underline & outline and the underline & shadow cases.  These are fixed in *
*  the following replacements.  Also, StdTxBnds had to be changed to access  *
*  the new versions.		                 *
*			                 *
******************************************************************************
;
***************************************
*	                  *
*  new StdTxBnds	                  *
*	                  *
***************************************	    
;
* NewStdTxBnds   START
	Export NewStdTxBnds
NewStdTxBnds	PROC

	lda DrawVerb	; put verb in a
	bne ItsAString
;it's a character:
	jmp nBChar
ItsAString		;
	jmp nBText

	ENDP
;
***************************************
*	                  *
*  new BChar	                  *
*	                  *
***************************************	    
;
* nBChar         START
nBChar	PROC EXPORT

rectPtr	equ fontTemp
;widthOfChar    equ	temp
;locTEnt       equ temp+2
ThisImageWidth    	equ temp2
;
	jsl SetUpFontInfo
;
	ldy #O_pnLoc+O_H
	lda [portRef],y	;current pen position (hor.)
	sta startBufPen
;
	lda #maxInt
	sta leftExtent
	lda #-maxInt
	sta rightExtent
;
	jsl ValidChar
	tax	;temp. storage
	and #lowByte	;character width
	clc
	adc startBufPen	;bump pen
	sta bufPen
;
	lda [locTPtr],y
	sta locTEnt
	iny
	iny
	lda [locTPtr],y
	sec
	sbc locTEnt	;get image width
	bne Not0Width
	bra ZeroWidth	;null image
;
Not0Width		;
	dec a
	sta ThisImageWidth
	txa	;get back offset/width value
	xba
	and #lowByte	;character offset
	clc
	adc kernMax
	clc
	adc startBufPen
	sta leftExtent
;
	clc
	adc ThisImageWidth
	sta rightExtent
;
ZeroWidth		;
;
;modify extents to reflect any style mods:
	jsl StyleExtents
;
	lda leftExtent
	cmp startBufPen
	bpl SBPOK	;startBufPen is leftmost
;or it's not:
	sta startBufPen
SBPOK		;
;
	lda rightExtent
	inc a
	cmp bufPen
	bmi BPOK	;bufPen is rightmost
	sta bufPen	;or at least it is now
BPOK		;
;
;leftmost and rightmost extents now in startBufPen and bufPen -
;put them in the target rectangle:
;
	lda startBufPen
	ldy #O_H1
	sta [rectPtr],y
;
	lda bufPen
	ldy #O_H2
	sta [rectPtr],y
;now take care of verticals:
	ldy #O_pnLoc+O_V
	lda [portRef],y	;current pen position (vert.)
	tax	;temp. storage
	sec
	sbc ascent
	ldy #O_V1
	sta [rectPtr],y
;
	txa
	clc
	adc descent
	ldy #O_V2
	sta [rectPtr],y
;
;
	rtl
	ENDP
;
***************************************
*	                  *
*  new BText	                  *
*	                  *
***************************************	    
;
* nBText         START
	Export nBText
nBText	PROC
;
rectPtr	equ fontTemp
;widthOfChar    equ	temp
;locTEnt       equ temp+2
ThisImageWidth	equ temp2
;
	ldy #O_pnLoc+O_H1
	lda [portRef],y
	sta startBufPen
	sta bufPen
;
	lda #maxInt
	sta leftExtent
	lda #-maxInt
	sta rightExtent
;
	jsl GetNextChar
	bcc NotNullString
	brl NullString
;
NotNullString		;
;
	jsl SetUpFontInfo
;
NextChar		;
	jsl ValidChar
	tax	;temporary storage
	and #lowByte
	sta widthOfChar
;
	lda bufPen
	sta imagePen
	clc
	adc widthOfChar
	sta bufPen	;bump position by char width
;
	lda [locTPtr],y
	sta locTEnt
	iny
	iny
	lda [locTPtr],y
	sec
	sbc locTEnt
	bne Not0Width
	brl ZeroWidth	;don't touch extents
Not0Width		;
;
	dec a
	sta ThisImageWidth
;
	txa	;get back offset/width value
	xba
	and #lowByte	;offset
	clc
	adc kernMax
	clc
	adc imagePen
	tax	;temp. storage
	cmp leftExtent
	bpl leftOK	;leftExtent is leftmost pixel
	sta leftExtent	;or, it is now
leftOK		;
;
;new "imagePen" value still in acc.
	clc
	adc ThisImageWidth
	cmp rightExtent
	bmi RightOK	;rightExtent is rightmost pixel
	sta rightExtent	;sooner or later
RightOK		;
ZeroWidth		;
;
	jsl GetNextChar
	bcc NextChar	;if there is one
;
;there wasn't:
;adjust extents to reflect any style mods:
	jsl StyleExtents
;
;and jump into . . .
	bra MyHack	;mine, all mine! - BHM  4/14/87
;
;and this is another:
;
NullString		;
	lda startBufPen
	sta leftExtent
	lda bufPen
	dec a
	sta rightExtent
;
MyHack		;
	lda leftExtent
	cmp startBufPen
	bmi leftStillOK
	lda startBufPen	;winner and new champion
leftStillOK		;
	ldy #O_H1
	sta [rectPtr],y
;
	lda rightExtent
	inc a
	cmp bufPen
	bpl rightStillOK
	lda bufPen
rightStillOK		;
	ldy #O_H2
	sta [rectPtr],y
;
;now take care of verticals:
	ldy #O_pnLoc+O_V
	lda [portRef],y	;current pen position (vert.)
	tax	;temp. storage
	sec
	sbc ascent
;
	ldy #O_V1
	sta [rectPtr],y
;
	txa
	clc
	adc descent
	ldy #O_V2
	sta [rectPtr],y
;
;
	rtl
	ENDP
*****************************************
;


**********************************************************************
**********************************************************************
;                copy faces/auxgfi
;
;This version of GetFontInfo has been broken up to make it easier
;to change and/or patch out later.  It should replace the old
;GetFontInfo in the	new ROM.
;
***************************************
*	                  *
*  Feb. 5, 1987  5:00 pm              *
*	                  *
*  Bennet Marks  x6245                *
*	                  *
***************************************
;
****************************************************************
*
* GetFontInfo
*
* Returns some information about the font.
*
****************************************************************
* NewGetFontInfo START
	Export NewGetFontInfo
NewGetFontInfo	PROC

OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
FIPtr	equ RTL2+3

	jsr QDStart
;
	lda FIPtr,s
	sta temp2
	lda FiPtr+2,s
	sta temp2+2
;
	jsl GetFntInf
;
	jmp BusyEC4
;
	ENDP

*****************************************************************
*
* nGetFntInf
*
* This does the right stuff for outline.
*
*****************************************************************
;
* RealGetFntInf  START
	Export RealGetFntInf
RealGetFntInf	PROC
;

	jsl SetUpFontInfo
;(that gives us far	more than we need, but it's ok)
;
****  ADDED 3/4/87 TO MATCH OUTLINING:
****  (and shadowing, 4/20/87)
;
	lda txFace
	bit #olineBit
	beq NotOline
;outlined:
	inc ascent
	inc descent
;
NotOline		;
	bit #shadowBit
	beq NotShadow
;shadowed:
	inc ascent
	inc descent
	inc descent
;
****  END OF OUTLINING PATCH (and shadowing) - BHM
;
NotShadow		;
;
	lda ascent
	sta [temp2]
;
	lda descent
	ldy #o_FoInDescent
	sta [temp2],y
;
	lda widMax
	clc
	adc extra
	ldy #o_FoInWidmax
	sta [temp2],y
;
	lda leading
	ldy #o_FoInLeading
	sta [temp2],y
;
	rtl
	ENDP
;


**********************************************************************
**********************************************************************
;                copy faces/italic
;
*******************************************************************************
*			                  *
*              subroutine DoItalic		                  *
*			                  *
*	      started 2/20/87	                  *
*	      Bennet Marks	x6245	                  *
*			                  *
*  This subroutine italicizes the text image currently in the text buffer.    *
*  It leaves the italicized version in the same text buffer.                  *
*			                  *
*  For now I hard-code the initial value of italicShift (the rightward shift  *
*  of the top line), italicBottom (the leftward shift of the bottom line),    *
*  and italicDelta (the incremental shift left for each successive line) to   *
*  be ascent/4, descent/4, and 1/4.  (Actually, that isn't quite "hard-       *
*  coded" - it's more like "firm-coded").  But these values are calculated    *
*  and assigned early in the code, so it will be easy to modify to use other  *
*  values later (probably saved in the font record later).	                  *
*			                  *
*  I also make the following assumptions:  italicShift is originally positive *
*  (or at least non-negative), so the top line shifts rightward (if at all);  *
*  italicLeft is also positive, measuring a true shift to the left (same      *
*  caveat about non-negative); and italicDelta is also non-negative.          *
*			                  *
*  Also, to avoid complications with the algorithm and with	buffer overflow,  *
*  I rule out any fonts with ascent or descent > 64.  This will probably be   *
*  fixed up later.			                  *
*			                  *
*  italicShift, italicLeft, and italicDelta are represented	in 16-bit fixed-  *
*  point form, with	the binary point between the two bytes.	 So, for example, *
*  $0040 represents	1/4.		                  *
*			                  *
*******************************************************************************
;
***************************************
*	                  *
*  7/7/87  11:30 am	                  *
*	                  *
***************************************
;
* DoItalic       START
	Export DoItalic
DoItalic	PROC
;
;
;some 16-bit floating-point constants:
fp16	equ $1000
fpOneFourth	equ $0040
fpOne	equ $0100
;
;some local 0-page usage:
****  CAUTION:  THESE MUST BE IN THIS ORDER
****  TO PREVENT COLLISIONS WITH TEXT BOUNDS CALLS
****  BHM - 3/4/87
;
italicShift	equ temp+2
italicDelta	equ temp2
italicBottom	equ temp2+2
ThisNewY	equ fontTemp
textWord	equ fontTemp+2
;
****  END OF CAUTION
;
	lda #64
	cmp ascent
	bmi BadAscent
	cmp descent
	bmi BadDescent
;ascent and descent	both <= 64
;
	lda rightExtent
	cmp leftExtent
	bpl ExtentOK
;no pixels to modify:
	rtl
;
BadAscent		;
BadDescent		;
;what do we really want to do here?
	rtl
;
ExtentOK		;
;
	lda ascent
	xba
	lsr a
	lsr a	;ascent/4 in 16-bit	fixed-point
	sta italicShift
;
	lda descent
	xba
	lsr a
	lsr a
;
	sta italicBottom	;left shift of bottom line
;
	lda italicShift
	xba
;
	and #last4Bits	;shift in pixels, 16-bit integer form
;(changed from "#lowByte" - we can only	shift 0-15 pixels -	BHM  x6245 7/7/87)
;
	clc
	adc rightExtent
	sta rightExtent
;
	lda italicBottom
	xba
;
	and #last4Bits	;shift in pixels, 16-bit integer form
;(changed from "#lowByte" - we can only	shift 0-15 pixels -	BHM  x6245 7/7/87)
;
	sta temp
	lda leftExtent
	sec
	sbc temp
	sta leftExtent
;
	lda justExtents
	beq ItalAll
	rtl
;
ItalAll		;
;
	lda #fpOneFourth	;fixed-point version of 1/4
	sta italicDelta
;
	lda chHeight
	sta rowCounter
;
	lda leftExtent
	lsr a
	lsr a
	lsr a
	and #first15Bits
;that's the offset from the start of the
;text buffer to the	first "active" word
	sta temp
;
	clc
	adc bufPtr
	sta tbRowPtr
	lda bufPtr+2
	bcc NoCarry1
	inc a
NoCarry1		;
	sta tbRowPtr+2
;
	phb	;save
	pei tbRowPtr+1
	plb
	plb	;set for this part of text buffer
;
	lda rightExtent
	lsr a
	lsr a
	lsr a
	and #first15Bits
	sec
	sbc temp
;that's the (even) number of bytes spanned
;by the active part	of the text buffer
	bne MoreThanAWord
	brl OnlyOneWord
;
MoreThanAWord		;
;
	sta numOfBytes	;>=2, here
;
PosNextRow		;
	lda italicShift
	bmi NegShift
;positive shift:
	xba
;
	and #last4Bits	;shift in pixels, 16-bit integer form
;(changed from "#lowByte" - we can only	shift 0-15 pixels -	BHM  x6245 7/7/87)
;

	beq PosNoShift
	asl a
	tax	;for shift subroutines [CHECK THAT]
;
	ldy numOfBytes
	lda (tbRowPtr),y	;rightmost word
	jsl VXShiftStay
	sta (tbRowPtr),y
;
;moving left along . . . .
PosNextWord		;
	dey
	dey
	sty ThisNewY
;
	lda (tbRowPtr),y
	sta textWord
	jsl VXShiftOut
	iny
	iny
	ora (tbRowPtr),y
	sta (tbRowPtr),y
;
	lda textWord
	jsl VXShiftStay
	ldy ThisNewY
	sta (tbRowPtr),y
;
	tya	;to set CC's for test
	bne PosNextWord
;line's done:
PosNoShift		;
	dec rowCounter
	bne PosMoreRows
	brl AllDone	;all done
;
PosMoreRows		;
	jsr SetUpNextRow
	bra PosNextRow
;
;
;
NegShift		;
;not only is this shift negative, but, by our assumption about
;italicDelta >= 0, all further shifts will also be negative
;
;to handle the negative shifts, we must	add 16 to them, so we
;can use the shift routines, move from left to right (to prevent
;interference), and	reverse the previous roles of ShiftStay	and
;ShiftOut - for example, to find out what a word shifted left
;3 pixels would look like, we shift it right 13 pixels and look
;at what was shifted out
;
;our assumption that all shifts are < 16 pixels saves us from some
;complications, but	will have to be loosened up later
;
;italicShift is in acc.
	clc
	adc #fp16	;now it's positive
;
**** added 7/7/87 to correct round-off error (negative shifts were
;    being rounded to higher absolute value, positives to lower -
;    we'll make them both round to lower, i.e., towards 0)
;
	clc
	adc #fpOne
	sec
	sbc italicDelta
;
**** end of fix - BHM  x6245
;
	sta italicShift
;
NegNextRow		;
	lda italicShift
	xba
;
	and #last4Bits	;shift in pixels, 16-bit integer form
;(changed from "#lowByte" - we can only	shift 0-15 pixels -	BHM  x6245 7/7/87)
;
	beq NegNoShift
;
	asl a
	tax	;for shift routines
;
	lda (tbRowPtr)	;leftmost word
	jsl VXShiftOut
	sta (tbRowPtr)
;
	ldy #2
;
NegNextWord		;
	lda (tbRowPtr),y
	sta textWord
	jsl VXShiftOut
	sta (tbRowPtr),y
	lda textWord
	jsl VXShiftStay
	sty ThisNewY
	dey
	dey
	ora (tbRowPtr),y
	sta (tbRowPtr),y
	ldy ThisNewY
;
	cpy numOfBytes
	beq NegRowDone
;row not done - set	up for next word:
	iny
	iny
	bra NegNextWord
;
NegRowDone		;
NegNoShift		;
	dec rowCounter
	beq AllDone
;rows to go:
	jsr SetUpNextRow
	bra NegNextRow
;
;
OnlyOneWord		;
;active text buffer	only spans one word
;
;positive shift:
OOWPosNextRow		;
	lda italicShift
	bmi OOWNegShift
;
	xba
;
	and #last4Bits	;shift in pixels, 16-bit integer form
;(changed from "#lowByte" - we can only	shift 0-15 pixels -	BHM  x6245 7/7/87)
;
	beq OOWPosNoShift
;
	asl a
	tax	;for shift routines
;
	lda (tbRowPtr)
	jsl VXShiftStay
	sta (tbRowPtr)
;
OOWPosNoShift		;
	dec rowCounter
	bne OOWPosMoreRows
	brl AllDone
;
OOWPosMoreRows		;
	jsr SetUpNextRow
	bra OOWPosNextRow
;
OOWNegShift		;
	clc
	adc #fp16
;
**** added 7/7/87 to correct round-off error (negative shifts were
;    being rounded to higher absolute value, positives to lower -
;    we'll make them both round to lower, i.e., towards 0)
;
	clc
	adc #fpOne
	sec
	sbc italicDelta
;
**** end of fix - BHM  x6245
;

	sta italicShift
;
OOWNegNextRow		;
	lda italicShift	;added 7/7/87 for consistency and
;		;safety (although not really
;		;necessity)
	xba
;
	and #last4Bits	;shift in pixels, 16-bit integer form
;(changed from "#lowByte" - we can only	shift 0-15 pixels -	BHM  x6245 7/7/87)
;
	beq OOWNegNoShift
;
;
****  BUG FIX ADDED	7/7/87 - BHM  x6245
;
	asl a
	tax
;
****  END OF BUG FIX
;
	lda (tbRowPtr)
	jsl VXShiftOut
	sta (tbRowPtr)

;
OOWNegNoShift		;
	dec rowCounter
	bne OOWNegMoreRows
	brl AllDone
;
OOWNegMoreRows		;
	jsr SetUpNextRow
	bra OOWNegNextRow
;
AllDone		;
	plb
	rtl
;
************
*
*  subroutine SetUpNextRow
*
*  increments the pointer, resets the bank if needed,
*  subtracts italicDelta from italicShift
*
************
;
SetUpNextRow		;
;
	lda tbRowPtr
	clc
	adc bufRowBytes
	sta tbRowPtr
	bcc NoCarry2
	inc tbRowPtr+2
	pei tbRowPtr+1
	plb
	plb
;
NoCarry2		;
	lda italicShift
	sec
	sbc italicDelta
	sta italicShift
;
	rts
;
*****************************
*
*  end of SetUpNextRow
*
*****************************
	ENDP


**********************************************************************
**********************************************************************
;                copy faces/outline
;
******************************************************************************
*			                 *
*  Doline			                 *
*			                 *
*    Bennet Marks  x6245		                 *
*			                 *
*  This routine outlines the text buffer.	                 *
*			                 *
******************************************************************************
;
***************************************
*	                  *
*  10:30 am  4/29/87                  *
*	                  *
***************************************
;
* DoOline        START
	Export DoOline
DoOline	PROC
;
	inc ascent
	dec VBufToLoc
	inc descent
;
	lda rightExtent
	cmp leftExtent
	bpl ExtentOK
;0 image width:
	lda bufPen
	cmp startBufPen
	bne NotUtterNull
;utter null - no image pixels, no pen change:
	brl AllDone
NotUtterNull		;
;however, there's no image.  The following is a trick to
;handle this little	problem.  It can be	greatly improved
;upon.
;
	lda startBufPen
	sta leftExtent
	lda bufPen
	dec a
	sta rightExtent
	bra rightExtOK
;
ExtentOK		;
	inc rightExtent
	dec leftExtent
;
;**********************************************************
;  This next fix assures that the outlining algorithm will
;  touch and therefore "overwhelm" (essentially, replace
;  with outlined version) every active word it hands over
;  to BlowItUp.  This saves us from having to clear TB2.
;  (there was a boundary-case problem, when the image
;  didn't extend as far as the pen positions into left
;  words and right words)
;**********************************************************
;
	lda startBufPen
	cmp leftExtent
	bpl leftExtOK
	sta leftExtent
leftExtOK		;
;
	lda bufPen
	dec a
	cmp rightExtent
	bmi rightExtOK
	sta rightExtent
rightExtOK		;
;
;****************************************
;  end of that fix
;****************************************
;
	lda justExtents
	beq OlineAll
	brl AllDone
;
OlineAll		;
;
;we need to know if	shadowing is on, due to an odd boundary	case
	lda txFace
	and #shadowBit
	tay
;
	ldx #512
;
	lda leftExtent
;
	cpy #0
	beq NotShadow1
	dec a
NotShadow1		;
;               
	lsr a
	lsr a
	lsr a
	and #first15Bits
	sta temp
;
	clc
	adc bufPtr
	sta tbRowPtr	;first row of TB1, leftmost active word
	sta tb1R1Ptr,x
	lda bufPtr+2
	adc #0
	sta tbRowPtr+2
	sta tb1R1Ptr+2,x
;
;
;deref: 
	lda tb2Handle+2,x
	sta temp2+2
	lda tb2Handle,x
	sta temp2
	ldy #2
	lda [temp2],y
	tax
	lda [temp2]
;
	sta temp2
	stx temp2+2
	clc
	adc temp
	sta bufPtr	;top row of TB2, leftmost active word
	bcc NoCarry1
	inx
NoCarry1		;
	stx bufPtr+2
;
	ldx #512
;
	lda temp2
	sta tb2Ptr,x
	lda temp2+2
	sta tb2Ptr+2,x
;
	lda bufPtr
	clc
	adc bufRowBytes
	sta pmRowPtr	;2nd row of TB2, matching word
	sta tb2R2Ptr,x
	lda bufPtr+2
	adc #0
	sta pmRowPtr+2
	sta tb2R2Ptr+2,x
;
	lda txFace
	and #shadowBit
	tay
;
	lda rightExtent
;
	cpy #0
	beq NotShadow2
;
	inc a
	inc a
;
NotShadow2		;
	lsr a
	lsr a
	lsr a
	and #first15Bits
	sec
	sbc temp	;number of "active"	bytes (forced even)
	bne MoreThanAWord
;
	brl OnlyOneWord
;
MoreThanAWord		;
;
	sta numOfBytes
	lda chHeight
	sta rowCounter
;
NextRow		;
;
;rightmost word:
	ldy numOfBytes
;
	lda [tbRowPtr],y
	xba
	sta temp	;clean copy
	sta temp+2	;cumulatively dirty	copy
;
	lsr a
	ora temp+2
	sta temp+2
;
NextWord		;
	lda temp	;the word to the right
	asl a
	ora temp+2
	sta temp+2
;
	sty oldY
	dey
	dey
	bmi LeftmostWord
	sty newY
;
	lda [tbRowPtr],y
	xba
	sta temp2	;clean
	sta temp2+2	;this one'll get dirty
	bcc LeftBit0	;carry set by asl, way above
;left bit of right word not 0, must be smeared into current	word
;(but, on the other	hand, we don't have to consider the effect of
;the current word on the right word in this case)
;(is that UNDERSTOOD, you'all ?!?!?)
;
	ora #lastBit
	sta temp2+2
;
	lsr a
	ora temp2+2
	sta temp2+2
;
	lda temp+2	;totally smeared right word
	bra RWSmeared
;
LeftBit0		;
;in this case the right word has no bit	to disturb the current word,
;but the current word MAY influence the	right word
	lsr a
	ora temp2+2
	sta temp2+2
	bcc RightBit0
;right bit of current word is 1, so smear it into right word
	lda temp+2
	ora #firstBit
	sta temp+2
RightBit0		;
RWSmeared		;	 ;TOTALLY smeared
	ldy oldY
	lda temp+2	;and here it is
	xba
	sta [pmRowPtr],y	;so put it away (in	TB2)
;set up for next loop:
	lda temp2+2
	sta temp+2
	lda temp2
	sta temp
;(it might make more sense to make use of the clean copy in	TB1 rather
;than use temp and temp2)
	ldy newY
	bra NextWord
;
LeftmostWord		;
;finish it off:
	lda temp
	asl a
	ora temp+2
	xba
	sta [pmRowPtr]
;
	dec rowCounter
	beq NoMoreRows
;
	lda tbRowPtr
	clc
	adc bufRowBytes
	sta tbRowPtr
	bcc NoCarry3
	inc tbRowPtr+2
NoCarry3		;
;
	lda pmRowPtr
	clc
	adc bufRowBytes
	sta pmRowPtr
	bcc NoCarry4
	inc pmRowPtr+2
NoCarry4		;
	bra NextRow
;           
NoMoreRows		;
;
;              brl AllRowsDone
;           
;*
;*
;*
;time to smear up and down, and burn
;
	ldx #512
	lda tb1R1Ptr,x
	sta tbRowPtr	;TB1 top row, leftmost active word
	lda tb1R1Ptr+2,x
	sta tbRowPtr+2
;
;currently, pmRowPtr - left over from the earlier part of the outlining -
;points to the next-to-last row of TB2,	leftmost active word.  We will use
;this to get a pointer to the last row,	to be used for temporary (row-long)
;storage, and for the smear down.
;
	lda pmRowPtr
	clc
	adc bufRowBytes
	sta bRowPtr
	lda pmRowPtr+2
	adc #0
	sta bRowPtr+2
;
	lda tb2R2Ptr,x
	sta pmRowPtr	;TB2 second row, matching word
	lda tb2R2Ptr+2,x
	sta pmRowPtr+2
;
;(bufPtr already points to TB1 top row,	matching word)
;
	lda chHeight
	cmp #1
	bne MoreThanARow
	brl OnlyOneRow
;
MoreThanARow		;
;
	sta rowCounter
;
;top row:
	ldy numOfBytes
;
TRNextWord		;
	lda [pmRowPtr],y
	sta [bufPtr],y	;smear up (special top-row case)
	sta [bRowPtr],y	;temporary unsmeared storage
	dey
	dey
	bpl TRNextWord
;
NextRow2		;
;
	lda pmRowPtr
	sta bufPtr
	clc
	adc bufRowBytes
	sta pmRowPtr
	lda pmRowPtr+2
	sta bufPtr+2
	adc #0
	sta pmRowPtr+2
;tbRowPtr will be updated at the bottom	of the loop,
;which will keep it	in sync (it was 1 row off - and unused -
;for the top line)
;
	ldy numOfBytes
;
NextWord2		;
	lda [pmRowPtr],y	;current word
	sta temp	;clean copy
	ora [bufPtr],y	;1 line up, and half-smeared already
;(by half-smeared, I mean by the word above it - left and right smears are
;already completely	done, and need not be mentioned)
;(or maybe I should	say "three-quarters	smeared . . . .")
;(anyway, that's all we need for 1 line up
;so burn it!)
	eor [tbRowPtr],y
	sta [bufPtr],y
;
	lda [bRowPtr],y	;clean copy of word	1 line up
	ora temp	;clean copy of current word
;(making a half-smeared copy of current	word)
	sta [pmRowPtr],y
;
	lda temp
	sta [bRowPtr],y	;for next time around
;
	dey
	dey
	bpl NextWord2
;any more rows?
	dec rowCounter
	bne RowsToGo
	brl AllRowsDone
;
RowsToGo		;
	lda tbRowPtr
	clc
	adc bufRowBytes
	sta tbRowPtr
	bcc NoCarry6
	inc tbRowPtr+2
NoCarry6		;
	bra NextRow2
;
;
OnlyOneWord		;
****  this case completely re-written 4/28/87 - BHM
;
	jsl OOWOutline	;isolate it for convenience 
;
	brl AllRowsDone
;
OnlyOneRow		;
;but More Than A Word, and the left-right smear has been done,
;and tbRowPtr (TB1,	top row), bufPtr (TB2, top row), pmRowPtr (TB2,
;second row), and bRowPtr (TB2, last row) set up
;
	ldy numOfBytes
;
OORNextWord		;
	lda [pmRowPtr],y
	sta [bufPtr],y
	sta [bRowPtr],y
	eor [tbRowPtr],y
	sta [pmRowPtr],y
;
	dey
	dey
	bpl OORNextWord
;
AllRowsDone		;	 ;such as they are
;
;
	ldx #512
	lda tb2Ptr,x
	sta bufPtr
	lda tb2Ptr+2,x
	sta bufPtr+2
;and away we go . .	. .
;
AllDone		;
;
	inc chHeight
	inc chHeight
;
	rtl
	ENDP
;
;
;
******************************************************************************
*			                 *
*  OOWOutline			                 *
*			                 *
*    Started 4/28/87		                 *
*    Bennet Marks  x6245		                 *
*			                 *
*  This does the outlining in the case where the active text buffer          *
*  extent (including style mods) does not span a word boundary.              *
*			                 *
******************************************************************************
;
***************************************
*	                  *
*  5:10 pm 4/28/87	                  *
*	                  *
***************************************
;
* OOWOutline     START
	Export OOWOutline
OOWOutline	PROC
;
;  tbRowPtr points to top line, tb1, leftmost active word
;  bufPtr points to	top line, tb2, leftmost active word 
;  pmRowPtr points to second line, tb1,	leftmost active word
;
	lda chHeight
	sta rowCounter
;
	lda #0
	sta [bufPtr]	;saves us top-line trouble later
;
;first, the left and right smears:
;
NextRow1		;
	lda [tbRowPtr]
	xba
	sta temp
	lsr a
	ora temp
	sta temp
	asl a
	ora temp
	xba
	sta [pmRowPtr]
;
	dec rowCounter
	beq LeftRightDone
;
	lda tbRowPtr
	clc
	adc bufRowBytes
	sta tbRowPtr
	bcc NoCarry1
	inc tbRowPtr+2
NoCarry1		;
;
	lda pmRowPtr
	clc
	adc bufRowBytes
	sta pmRowPtr
	bcc NoCarry2
	inc pmRowPtr+2
NoCarry2		;
;
	bra NextRow1
;
LeftRightDone		;
;
;now, the up and down smear, and the burn:
;
;we'll work from the bottom up 
;
	lda chHeight
	sta rowCounter
;
;tbRowPtr points to	the bottom row, tb1, leftmost active word
;pmRowPtr points to	the penultimate row, tb2, leftmost active word  
;
	lda pmRowPtr
	clc
	adc bufRowBytes
	sta bRowPtr	;tb2, bottom row
	lda pmRowPtr+2
	bcc NoCarry3
	inc a
NoCarry3		;
	sta bRowPtr+2
;
	lda [pmRowPtr]
	sta [bRowPtr]
	sta temp	;clean copy
;
NextRow2		;
;
;move pmRowPtr and bRowPtr up one row
	lda pmRowPtr
	sta bRowPtr
	sec
	sbc bufRowBytes
	sta pmRowPtr
	lda pmRowPtr+2
	sta bRowPtr+2
	bcs NoBorrow1
	dec pmRowPtr+2
NoBorrow1		;
;
	lda [pmRowPtr]
	tax	;temporary storage
	ora temp	;clean copy of previous row
	sta [pmRowPtr]	;now smeared from below
;
	txa
;[bRowPtr] is already smeared from below
	ora [bRowPtr]	;and now from above
	eor [tbRowPtr]	;and now burned
	sta [bRowPtr]	;and now done
;
	dec rowCounter
	beq AllRowsDone
;
	stx temp	;requisite clean copy
;
	lda tbRowPtr
	sec
	sbc bufRowBytes
	sta tbRowPtr
	bcs NoBorrow2
	dec tbRowPtr+2
NoBorrow2		;
	brl NextRow2
;
AllRowsDone		;
	rtl
	ENDP



**********************************************************************
**********************************************************************
;                copy faces/shadow
;
******************************************************************************
*			                 *
*  code for Shadowing style mod		                 *
*			                 *
*  started 4/16/87			                 *
*			                 *
*  Bennet Marks x6245		                 *
*			                 *
******************************************************************************
;
* DoShadow       START
	Export DoShadow
DoShadow	PROC
;
	jsl ShadeExtents
	bcc ShadowAll
	brl AllDone	;don't shadow pixels 
ShadowAll		;
;
	jsl ShadePointers
	bcc MoreThanAWord
;only one word:
	jsl OOWShadow
	bra AllPixelsDone
;
MoreThanAWord		;
	jsl LeftRightSmear
	jsl U1D1Smear
	jsl SmearDownNBurn
	bra AllPixelsDone
;
AllPixelsDone		;
;
	ldx #512
	lda tb2Ptr,x
	sta bufPtr
	lda tb2Ptr+2,x
	sta bufPtr+2
;
AllDone		;
	inc chHeight
	inc chHeight
	inc chHeight
;
	rtl
	ENDP
;
;
******************************************************************************
*			                 *
*  ShadeExtents			                 *
*			                 *
*  Applies the shadow modifiers to ascent, descent, rightExtent, and         *
*  leftExtent (but not chHeight, which has to wait until after the pixels    *
*  are shadowed).  If there is no pixel-shadowing to be done, either         *
*  because we are in the "just extent" case or because the pixel map         *
*  is utterly null (no pixels, no pen change), ShadeExtents	returns with     *
*  carry set; o.w. carry clear.		                 *
*			                 *
*  started 4/20/87			                 *
*			                 *
*  Bennet Marks  x6245		                 *
*			                 *
******************************************************************************
;
* ShadeExtents   START
	Export ShadeExtents
ShadeExtents	PROC
;
	inc ascent
	dec VBufToLoc
	inc descent
	inc descent
;
	lda rightExtent
	cmp leftExtent
	bpl ExtentOK
;no image pixels:
	lda bufPen
	cmp startBufPen
	bne NotUtterNull
;utter null - no image, no pen displacement:
	sec
	rtl
;
NotUtterNull		;
;but still no image	- will we use a trick that most certainly
;can be replaced by	something more efficient
	lda startBufPen
	sta leftExtent
	lda bufPen
	dec a
	sta rightExtent
;
ExtentOK		;
	inc rightExtent
	inc rightExtent
	dec leftExtent
;the next piece synchs the extents to the pens, which enables
;us to hit every word touching a foreground OR background pixel,
;so we don't ever have to clear the shadowing buffer
;(trust me)
;
	lda startBufPen
	cmp leftExtent
	bpl LeftExtOK
	sta leftExtent
leftExtOK		;
;
	lda bufPen
	dec a
	cmp rightExtent
	bmi RightExtOK
	sta rightExtent
RightExtOK		;
;
	lda justExtents
	beq ShadowAll
	sec
	rtl
;
ShadowAll		;
	clc
	rtl
	ENDP
;
;
******************************************************************************
*			                 *
*  ShadePointers			                 *
*			                 *
*  This routine sets up all the pointer	needed for the shadowing algorithm.  *
*  It also calculates the width of the active text buffer.	If that width    *
*  is 0 (the "only one word" case) ShadePointers returns with the carry set; *
*  o.w. carry clear.		                 *
*			                 *
*  started 4/20/87			                 *
*			                 *
*  Bennet Marks  x6245		                 *
*			                 *
******************************************************************************
;
* ShadePointers  START
	Export ShadePointers
ShadePointers	PROC
;
	ldx #512
;
	lda leftExtent
	lsr a
	lsr a
	lsr a
	and #first15Bits
	sta temp
;
	clc
	adc bufPtr
	sta tbRowPtr
	sta tb1R1Ptr,x	;tb1, row 1, leftmost active word
	lda bufPtr+2
	bcc NoCarry1
	inc a
NoCarry1		;
	sta tbRowPtr+2
	sta tb1R1Ptr+2,x
;
;find the third text buffer (the shadowing buffer):
;
	lda tb3Handle+2,x
	sta temp2+2
	lda tb3Handle,x
	sta temp2
;
	ldy #2
	lda [temp2],y
	sta temp+2
	lda [temp2]
	sta tb2Ptr,x
;{the nomenclature may mislead - tb3Handle should actually be called
;"tbShadeHandle", and then it would seem more natural to put the pointer
;in tb2Ptr, which itself should be called "tbNextHandle".  But so what?}
	clc
	adc temp
	sta bufPtr	;tb3, row 1, leftmost active word
	lda temp+2
	sta tb2Ptr+2,x
	bcc NoCarry2
	inc a
NoCarry2		;
	sta bufPtr+2
;
	lda bufPtr
	clc
	adc bufRowBytes
	sta pmRowPtr	;tb3, row 2, leftmost active word
	sta tb2R2Ptr,x
	lda bufPtr+2
	bcc NoCarry3
	inc a
NoCarry3		;
	sta pmRowPtr+2
	sta tb2R2Ptr+2,x
;
	lda rightExtent
	lsr a
	lsr a
	lsr a
	and #first15Bits
	sec
	sbc temp
	sta numOfBytes
	bne MoreThanAWord
	sec
	rtl
;
MoreThanAWord		;
	clc
	rtl
	ENDP
;
******************************************************************************
*			                 *
*  LeftRightSmear			                 *
*			                 *
*  Smear the current text buffer 1 pixel left and 2 pixels right, placing    *
*  the smeared version in tb3 (we will need the original for burning later)  *
*			                 *
*  Started 4/16/87			                 *
*			                 *  
*  Bennet Marks x6245		                 *
*			                 *
******************************************************************************
;
***************************************
*	                  *
*  4/18/87  3:30 pm	                  *
*	                  *
***************************************
;   
* LeftRightSmear START
	Export LeftRightSmear
LeftRightSmear	PROC
;
	nop	;for debugging
;
	lda chHeight
	sta rowCounter
;
NextRow		;
	ldy numOfBytes
;
;rightmost word:
	lda [tbRowPtr],y
	xba
	sta temp
;
	lsr a
	ora temp
	lsr a
	ora temp
	sta temp
	asl a
	ora temp
	sta temp
;temp now has the current word fully shifted, but
;without the contribution of its left neighbor
;
	stz temp+2
	rol temp+2
;temp+2 has the current word's contribution to its left neighbor
;
NextWord		;
	sty oldY
	dey
	dey
	sty newY
;
	lda [tbRowPtr],y
	xba
	sta temp2
	lsr a
	ora temp2
;x will be used to hold current word's contribution to its right neighbor
	ldx #0
	bcc Bit0Was0
;
;low bit of current	word is 1 (this smears into two bits into the
;right neighbor, and makes the next bit	irrelevant to that word)
;               
	ldx #first2Bits
	lsr a
	ora temp2
	bra RSDone	;this word's right shifts done
;
Bit0Was0		;
	lsr a
	ora temp2
	bcc Bit1Was0
;
;next-to-low bit (and not low bit) is 1:
	ldx #firstBit
;
Bit1Was0		;
RSDone		;
;
	sta temp2
	asl a
;IMPORTANT - we keep the carry from this operation for a long time
;Caveat Hacker! 
	ora temp2	;current word, fully shifted
	ora temp+2	;merge right contribution in
	sta temp2+2	;temporary storage
;
	txa	;left contribution for previous word
	ora temp	;which is this
	xba
	ldy oldY
	beq LeftMostWord
;
	sta [pmRowPtr],y
;
	ldy newY
	beq LeftMostWord
;
;set up for next row:
	lda temp2+2	;current word, fully shifted
	sta temp	;move it here
;HERE'S where we use that carry bit:
	stz temp+2
	rol temp+2	;hold for next word	left
;
	bra NextWord
;
LeftMostWord		;
;
	lda temp2+2
	xba
	sta [pmRowPtr]
;
	dec RowCounter
	beq LRSmearsDone	;left & right smears done - all rows
;set up for next row:
;
	lda tbRowPtr
	clc
	adc bufRowBytes
	sta tbRowPtr
	bcc NoCarry1
	inc tbRowPtr+2
NoCarry1		;
;
	lda pmRowPtr
	clc
	adc bufRowBytes
	sta pmRowPtr
	bcc NoCarry2
	inc pmRowPtr+2
NoCarry2		;                
	bra NextRow
;
LRSmearsDone		;
	rtl
	ENDP
;
;
******************************************************************************
*			                 *
*  U1D1Smear			                 *
*			                 *
*  Smear the current text buffer 1 pixel up and 1 down, placing the result   *
*  in the same buffer ("current text buffer" is a poor phrase, but for now   *
*  I'll pretend I know what I mean)                                          *   
*			                 *
*  Started 4/18/87			                 *
*			                 *  
*  Bennet Marks x6245		                 *
*			                 *
******************************************************************************
;
***************************************
*	                  *
*  4/18/87  3:30 pm	                  *
*	                  *
***************************************
;
* U1D1Smear      START
	Export U1D1Smear
U1D1Smear	PROC
;
	nop	;for debugging
;
;pmRowPtr currently	points to the row in tb3 that matches the bottom row
;of the previous text buffer (tb1 if now outlining, tb2 if outlining).
;We will use this to get a pointer to the next row down, which will be
;used for row-long temporary storage, and at the very last moment turn
;out to have just the right contents . . . .
;
	lda pmRowPtr
	clc
	adc bufRowBytes
	sta bRowPtr	;next row down
	lda pmRowPtr+2
	adc #0
	sta bRowPtr+2
;
	ldx #512
	lda tb2R2Ptr,x	;shadowing buffer, second row
;(what did you expect, orchestra seats?)
	sta pmRowPtr
	lda tb2R2Ptr+2,x
	sta pmRowPtr+2
;
	lda chHeight
	sta rowCounter
;
;top row:
	ldy numOfBytes
;
TRNextWord		;
	lda [pmRowPtr],y
	sta [bufPtr],y
	sta [bRowPtr],y
;
	dey
	dey
	bpl TRNextWord
;
NextRow		;
	dec rowCounter
	beq U1D1SmearDone
;other rows:
;update pointers:
	lda pmRowPtr
	sta bufPtr
	clc
	adc bufRowBytes
	sta pmRowPtr
	lda pmRowPtr+2
	sta bufPtr+2
	adc #0
	sta pmRowPtr+2
;
	ldy numOfBytes
;
NextWord		;
	lda [pmRowPtr],y	;current word, untainted
	tax	;temporary pristine	storage
;we assume the word	above is already half-smeared, by the word above IT
	ora [bufPtr],y	;and now by the current word as well
	sta [bufPtr],y
;
	txa	;get current word back
	ora [bRowPtr],y	;smear with word above
;(a clean cop of the word above was kept in bRowPtr)
	sta [pmRowPtr],y
;
	txa	;clean still
	sta [bRowPtr],y	;hold for next word	down
;
	dey
	dey
	bpl NextWord
	bra NextRow
;
U1D1SmearDone		;
	rtl
	ENDP
;
;
******************************************************************************
*			                 *
*  SmearDownNBurn			                 *
*			                 *
*  Smear the current text buffer down 1	pixel and burn it with the original  *
*  buffer.  We will	start from the bottom and work up.	                 *
*			                 *
*  Started 4/18/87			                 *
*			                 *  
*  Bennet Marks x6245		                 *
*			                 *
******************************************************************************
;
***************************************
*	                  *
*  4/18/87  5 pm	                  *
*	                  *
***************************************
;
* SmearDownNBurn START
	Export SmearDownNBurn
SmearDownNBurn	PROC
;
	nop	;for debugging
;
	lda chHeight
	sta rowCounter
;
	lda bRowPtr
	clc
	adc bufRowBytes
	sta bufPtr
	lda bRowPtr+2
	adc #0
	sta bufPtr+2
;bufPtr now points to the bottom row of	the shadow, bRowPtr	to the row
;above that, and pmRowPtr above that, to the row corresponding to the bottom
;row of the unshadowed text image.  tbRowPtr points to the bottom row in the
;unshadowed text, and will be used for the burning.
;
;bottom row:
	ldy numOfBytes
;
BRNextWord		;
	lda [bRowPtr],y
	sta [bufPtr],y
	dey
	dey
	bpl BRNextWord
;
;penultimate row (gosh, I love that word!):
	ldy numOfBytes
;
PURNextWord		;
	lda [pmRowPtr],y
	ora [bRowPtr],y
	sta [bRowPtr],y
	dey
	dey
	bpl PURNextWord
;
;and all the little	rows that in the houses live:
;
NextRow		;
	ldy numOfBytes
;
	lda pmRowPtr
	sta bRowPtr
	sec
	sbc bufRowBytes
	sta pmRowPtr
	lda pmRowPtr+2
	sta bRowPtr+2
	sbc #0
	sta pmRowPtr+2
;
NextWord		;
	lda [pmRowPtr],y	;get word above
	ora [bRowPtr],y	;smear into current
	eor [tbRowPtr],y	;FLAME ON!
	sta [bRowPtr],y
;
	dey
	dey
	bpl NextWord
;
	dec rowCounter
	beq SmrDwnNBrnDone
;
	lda tbRowPtr
	sec
	sbc bufRowBytes
	sta tbRowPtr
	bcs NoBorrow1
	dec tbRowPtr+2
NoBorrow1		;
;
;the other pointers	are taken care of at the top of the loop
;
	bra NextRow
;
SmrDwnNBrnDone		;
;
	rtl
	ENDP
;
;
******************************************************************************
*			                 *
*  OOWShadow			                 *
*			                 *
*    Started 4/29/87		                 *
*    Bennet Marks  x6245		                 *
*			                 *
*  This does the shadowing in the case where the active text buffer          *
*  extent (including style mods) does not span a word boundary.              *
*			                 *
******************************************************************************
;
***************************************
*	                  *
*  6/29/87 4:00 pm	                  *
*	                  *
***************************************
;
* OOWShadow      START
	Export OOWShadow
OOWShadow	PROC
;
;  tbRowPtr points to top line, tb1, leftmost active word
;  bufPtr points to	top line, tb2, leftmost active word 
;  pmRowPtr points to second line, tb1,	leftmost active word
;
	lda chHeight
	sta rowCounter
;
	lda #0
	sta [bufPtr]	;saves us top-line trouble later
;
;first, the left and right smears:
;
NextRow1		;
	lda [tbRowPtr]
	xba
	sta temp
	lsr a
	ora temp
	lsr a
	ora temp
	sta temp
	asl a
	ora temp
	xba
	sta [pmRowPtr]
;
	dec rowCounter
	beq LeftRightDone
;
	lda tbRowPtr
	clc
	adc bufRowBytes
	sta tbRowPtr
	bcc NoCarry1
	inc tbRowPtr+2
NoCarry1		;
;
	lda pmRowPtr
	clc
	adc bufRowBytes
	sta pmRowPtr
	bcc NoCarry2
	inc pmRowPtr+2
NoCarry2		;
;
	bra NextRow1
;
LeftRightDone		;
;
;now, up and down smear, 1 pixel each
;
;we'll work from the bottom up 
;
	lda chHeight
	sta rowCounter
;
;tbRowPtr points to	the bottom row, tb1, leftmost active word
;pmRowPtr points to	the corresponding row in the shadow buffer
;
	lda pmRowPtr
	clc
	adc bufRowBytes
	sta bRowPtr	;tb2, penultimate row
	lda pmRowPtr+2
	bcc NoCarry3
	inc a
NoCarry3		;
	sta bRowPtr+2
;
	lda [pmRowPtr]
	sta [bRowPtr]
	sta temp	;clean copy
;
NextRow2		;
;
;move pmRowPtr and bRowPtr up one row
	lda pmRowPtr
	sta bRowPtr
	sec
	sbc bufRowBytes
	sta pmRowPtr
	lda pmRowPtr+2
	sta bRowPtr+2
	bcs NoBorrow1
	dec pmRowPtr+2
NoBorrow1		;
;
	lda [pmRowPtr]
	tax	;temporary storage
	ora temp	;clean copy of previous row
	sta [pmRowPtr]	;now smeared from below
;
	txa
;[bRowPtr] is already smeared from below
	ora [bRowPtr]	;and now from above
	sta [bRowPtr]	;and now done
;
	dec rowCounter
	beq Up1Dn1Done
;
	stx temp	;requisite clean copy
;
	brl NextRow2
;
Up1Dn1Done		;
;
;now smear down once more, and burn
;
	ldx #512
	lda tb1R1Ptr,x
	sta tbRowPtr
	lda tb1R1Ptr+2,x
	sta tbRowPtr+2
;
	lda chHeight
	sta rowCounter
;
	stz temp
;
NextRow3		;
;
	lda [bRowPtr]
	tax	;temporary storage,	clean copy
	ora temp	;clean copy from above
	eor [tbRowPtr]	;burn
	sta [bRowPtr]
;
	stx temp
;
	dec rowCounter
	beq TwoRowsToGo
;more rows:
;
	lda bRowPtr
	clc
	adc bufRowBytes
	sta bRowPtr
	bcc NoCarry4
	inc bRowPtr+2
NoCarry4		;
;
	lda tbRowPtr
	clc
	adc bufRowBytes
	sta tbRowPtr
	bcc NoCarry5
	inc tbRowPtr+2
NoCarry5		;
;
	bra NextRow3
;
;
*************************************************
*
*  The rest of this	routine was re-written 6/29/87
*  to fix a bug involved with shadowing	down near
*  the descent line	- BHM  x6245
*
*************************************************
;
;
TwoRowsToGo		;
;
;
	lda bRowPtr
	clc
	adc bufRowBytes
	sta bRowPtr
	bcc NoCarry6
	inc bRowPtr+2
NoCarry6		;
;
	lda [bRowPtr]
	tax
	ora temp
	sta [bRowPtr]
;
	lda bRowPtr
	clc
	adc bufRowBytes
	sta bRowPtr
	bcc NoCarry7
	inc bRowPtr+2
NoCarry7		;
;
	txa
	sta [bRowPtr]
;               
	rtl
	ENDP



	END

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/QDAux/icon.asm b/IIGS.601.SRC/GSToolbox/QDAux/icon.asm
new file mode 100644
index 0000000..45ed38e
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/QDAux/icon.asm
@@ -0,0 +1 @@
+****************************************************************
*			   *
*	       DrawIcon		   *
*	     Version 1.0		   *
*	   February 12, 1987	   *
*			   *
*			   *
* (Not changed for version 2.0)		   *
*			   *
****************************************************************


****************************************************************
*			   *
*	Copyright (C) 1985-1989	   *
*	All Rights Reserved		   *
*	Apple Computer, Inc.	   *
*			   *
****************************************************************

**********************************************************************
*
* Change History
*
* 18 May 88	Steven Glass
*
* Icon Slice was modified to improve speed.
*
* 3 March 89	Konstantin Othmer
*
* Took out a few unnecessary instructions and don't call the shift routines
* if we are shifting by zero. 
*
* 15 May 89	Steven Glass
*
* Took out calls to DeRefA and DeRefB.  This is done in line so there
* is no need to link to the other segment.
*
* 2-Oct-91	Dave Lyons
*
* Made DrawIcon preserve DestPoint (PortRect), because it sets the
* fastPort flag that says PortRect is valid.  This was causing problems
* drawing icons in menu items.  Sometimes.
*
**********************************************************************


	include 'all.macros'
	include 'special.macros'

	include '::qd:qdequates:core.globals1'
	include '::qd:qdequates:core.globals2'
	include '::qd:qdequates:region.equs'
	include '::qd:qdequates:slice.equs'

	include '::qd:qdequates:qd.data.asm'

	title 'QD Aux DrawIcon'


; Equates from file	icon.asm

MaskShiftTemp	equ ShiftTemp
ImageShiftTemp	equ ZZEndOfSlice
MaskPtr	equ ImageShiftTemp+2
ImagePtr	equ MaskPtr+4
ThisMask	equ ImagePtr+4
ThisImage	equ ThisMask+2
IconOpen	equ ThisImage+2
IconSelected	equ IconOpen+2
IconOffline	equ IconSelected+2
ThisDither	equ IconOffline+2
IconType	equ ThisDither+2
ZZZEndOfExtra	equ IconType+2
FG	equ TEMP2
BG	equ TEMP2+2
LightGrey	equ $3333

; Equates from file	icon.asm proc/data area IconDATA

m_Selected	equ 1
m_Open	equ 2
m_Offline	equ 4



**************************************************
*	Imports	         *
**************************************************

	Import QDStart
	Import BusyErr

**************************************************
*	Entries	         *
**************************************************

	Entry InvertTable
	Entry IconSlice
	Entry ColorTable



****************************************************************
*
* DrawIcon
*
*     PtrToIconData	    long
*     IconMode	    word
*     DestX	    integer
*     DestY	    integer
*
*
*
* The icon data structure is as follows:
*
* IconType     word	    Bit 15 is used to indicate whether the
*	    icon image has color or black and white
*	    information in it.  Setting bit 15 to one
*	    implies that it	is a color icon and
*	    cannot be colored otherwise.
* IconSize     integer  This is the number of bytes in the image
*	    and mask.
* IconHeight   integer  This is height of the icon in pixels.
* IconWidth    integer  This is the width of the icon in pixels.
* IconImage    bytes    This is the icon image.  It is IconSize
*	    bytes long.  Each row of pixels is
*	    1+(IconWidth-1)/2 bytes wide.
* MaskImage    bytes    This is the mask.  It is IconSize
*	    bytes long.  Each row of pixels is
*	    1+(IconWidth-1)/2 bytes wide.
*
*
* The display mode word has the following fields.
*
* Bit 0        Set implies the icon is SELECTED.
* Bit 1        Set implies the icon is OPEN.
* Bit 2        Set implies the icon is OFF LINE.
*
* Bits 3 - 7   Reserved
* Bits 8 - 11  Foreground color to be applied to black part
*              of the black and white icons.
* Bits 12 - 15 Background color to be applied to the white
*              part	of the black and white icons.
*
*
* When the mode word is zero, the icon is copied to the destination
* through the specified mask.
*
*      When bit 0 is set its image is inverted before copying.
*      When bit 1 is set a light grey color pattern is copied.
*      When bit 2 is set, the light grey pattern is ANDed to the image
*           being copied.
*
* All three of these operations can occur at once and the order the testing
* occurs is
*
*      Bit 1 (is it	open)
*      Bit 2 (is it	offline)
*      Bit 0 (is it	selected)
*
* Color is only applied to the black and white icons if bits 8 thru 15
* are not all zero.
*
* Color inversion.	Colored pixels in an icon are inverted as follows:
*
*      Black Pixels	become white.
*      Any other color becomes black.
*
*
*
*****************************************************************
	DSECT 0
o_IconType	word	;info about the icon
o_IconSize	word	;Num bytes in image
o_IconHeight	word	;Num pixels tall
o_IconWidth	word	;Num pixels wide (4	bits/pixel)
o_IconImage	block 2	;ImageSize is how many bytes
;o_IconMask    more	pixels	;ImageSize is how many bytes

* The IconMode is defined as follows
*
* bit 0     1 is selected, 0 is not
* bit 1     1 is open, 0 is not
* bit 2     1 is offline, 0 is not
*



DrawIcon	PROC EXPORT


	DefineStack
OrigDirect	word
RTL1	block 3
RTL2	block 3
DestY	word
DestX	word
IconMode	word
IconRecPtr	long


;------------------------------------------------------
;
; Setup zp
;
	jsr QDStart


;------------------------------------------------------
;
; The dest loc info	is from the current	graf port.

	jsl PortLoc2ZP	; move dest info to	zp

;***
;*** added 2-Oct-91 DAL
;***
;*** Since we will destroy DestPoint (which equals PortRect),
;*** and since PortLoc2ZP set the PortLocOK bit, we have to
;*** mark it dirty again.
;***
;	phx
;	ldx #512
;	lda <DirtyDPFlags,x
;	and #DrawStateBad
;	sta <DirtyDPFlags,x
;	plx
;*** end 2-Oct-91

*** added 2-Oct-91 DAL -- preserve DestPoint (PortRect)
	phx
	ldx #512
	lda <DestPoint
	sta <DrawIconTemp,x
	lda <DestPoint+2
	sta <DrawIconTemp+2,x
	lda <DestPoint+4
	sta <DrawIconTemp+4,x
	lda <DestPoint+6
	sta <DrawIconTemp+6,x
	plx
*** end 2-Oct-91

;------------------------------------------------------
;
; Calculate the source rect using height and width.
; Figure out the SrcWidth from IconWidth
; Calculate the ImagePtr and the MaskPtr
;

	lda IconRecPtr,s
	sta Temp2
	lda IconRecPtr+2,s
	sta Temp2+2

	stz SrcRect
	stz SrcRect+2

	ldy #o_IconHeight
	lda [Temp2],y
	sta SrcRect+4

	ldy #o_IconWidth
	lda [Temp2],y
	sta SrcRect+6

	dec a	; take IconWidth in	pixels and
	lsr a	; figure how many bytes wide it is
	inc a
	sta SrcWidth

; if the destination is a 640 mode pixel map then double the
; horizontal size.
	bit DestSCB-1
	bpl ModeIs320
	asl SrcRect+6
ModeIs320
	moverect SrcRect,SrcBounds

	lda DestSCB	; make these the same
	sta SrcSCB

	lda Temp2
	clc
	adc #o_IconImage
	sta ImagePtr
	lda Temp2+2
	adc #0
	sta ImagePtr+2

	ldy #o_IconSize
	clc
	lda ImagePtr
	adc [Temp2],y
	sta MaskPtr
	lda ImagePtr+2
	adc #0
	sta MaskPtr+2

;------------------------------------------------------
;
; Get dest point off stack onto zp.
;
	lda DestY,s
	sta DestPoint
	lda DestX,s
	sta DestPoint+2


;----------------------------------------------------
;
; Extend the destpoint into a rectangle	of the same
; size.
;
	lda SrcRect+4
	clc
	adc DestPoint
	sta DestPoint+4

	lda SrcRect+6
	clc
	adc DestPoint+2
	sta DestPoint+6


;----------------------------------------------------------
;
; Get Icon type

	ldy #o_IconType
	lda [Temp2],y
	sta IconType

;------------------------------------------------------
;
; Get transfer mode	from stack to zero page.
;
	lda IconMode,s
	sta XFerMode

	stz IconSelected
	stz IconOpen
	stz IconOffline

	and #m_Selected
	beq NotSelected
	dec IconSelected

	lda IconType	; if the icon is selected
	ora #$8000	; we treat it as color and do not
	sta IconType	; color it later on!


notSelected	lda XferMode
	and #m_Open
	beq notOpen
	dec IconOpen

	lda IconType	; if the icon is open
	ora #$8000	; we treat it as color and do not
	sta IconType	; color it later on!

notOpen	lda XferMode
	and #m_Offline
	beq notOffline
	dec IconOffline

notOffline
	bit IconType
	bmi ItsColor

	lda XferMode
	and #$FF00
	bne ItsBW

	lda IconType
	ora #$8000
	sta IconType
	bra ItsColor

ItsBW
	lda XferMode
	xba
	and #$000F
	asl a
	tax
	lda >ColorTable,x
	sta FG

	lda XferMode
	xba
	and #$00F0
	lsr a
	lsr a
	lsr a
	tax
	lda >ColorTable,x
	sta BG

ItsColor


;------------------------------------------------------
;
; Bring clip and vis rgn to zero page.
;

	jsl SetUpPortRegions

	phb

; Deref a and b
	ldy #2
	lda [RgnHandleA]
	sta RgnPtrA
	lda [RgnHandleA],y
	sta RgnPtrA+2

	lda [RgnHandleB]
	sta RgnPtrB
	lda [RgnHandleB],y
	sta RgnPtrB+2

	moverect DestRect,MinRect

	jsl MakeMinRect
	bcc SomethingLeft
	jmp AllDone

SomethingLeft

;-----------------------------------------------
;
; Now I check to see if the dest rect got
; clipped.  If it did get clipped, then	I must
; adjust the source	rect accordingly.
	ldx #6
AdjSrcLoop		;
	lda MinRect,x	; I subtract DestRect from MinRect
	sec	; If not clipped on	that side result
	sbc DestRect,x	; is zero.  If clipped at top or left,
	beq SideStillOK	; then result is positive and so is
	clc	; amount src must be adjusted.  If
	adc SrcRect,x	; clipped at bot or	right, then result
	sta SrcRect,x	; is negative and so is amount src
SideStillOK	dex	; must be adjusted.
	dex
	bpl AdjSrcLoop

;		; move clipped value of destrect
;		; back to DestRect
	MoveRect MinRect,DestRect

NotSame	jsl ShieldCursor	; use minrect to shield cursor


;-------------------------------------------------
;
; Set up the DestRef pointer.
;
	pha	; put room for result on stack
	pha
	lda DestRect
	sec
	sbc DestBounds
	pha
	pei DestWidth
	_Multiply
	pla
	plx
	clc
	adc DestPixelMapRef
	sta DestRef
	txa
	adc DestPixelMapRef+2
	sta DestRef+2

;----------------------------------------------------------
;
; Adjust the src pointers if necessary
;
	lda SrcRect
	beq NoAdjust

	tax
	lda #0
AddLoop	clc
	adc SrcWidth
	dex
	bne AddLoop
	tax

	clc
	adc ImagePtr
	sta ImagePtr
	bcc NoCarry1
	inc ImagePtr+2
NoCarry1

	txa
	clc
	adc MaskPtr
	sta MaskPtr
	bcc NoCarry2
	inc MaskPtr+2
NoCarry2

NoAdjust

;-------------------------------------------------
;
; Set up looping vars, clipping and the	address
; of the slice routine to be used.
;

	jsl SliceSetup
	jsl SetUpScanPtrs
	jsl Init2Regions


	pei DestRef+1	; set the data bank	register to
	plb	; bank containing dest map
	plb

	lda DestRect
	sta CurrentY

	ldx #$0FFF
	and #1
	beq Even
	ldx #$FF0F
Even	stx ThisDither

PaintLoop
	jsl Seek2Regions

	jsl IconSlice

	lda CurrentY	; check to see if done
	inc a
	cmp DestRect+4
	bpl TheEnd	; unsigned compare dummy 28 Mar 86
	sta CurrentY

	ldx #$0FFF
	and #1
	beq Even2
	ldx #$FF0F
Even2	stx ThisDither

	lda SrcWidth	; bump the pointers	to source and
	clc	; dest (accounting for carry)
	adc ImagePtr
	sta ImagePtr
	bcc NoCarrySrc1
	inc ImagePtr+2
NoCarrySrc1
	lda SrcWidth
	clc
	adc MaskPtr
	sta MaskPtr
	bcc NoCarrySrc2
	inc MaskPtr+2
NoCarrySrc2
	lda DestWidth
	clc
	adc DestRef
	sta DestRef
	bcc NoCarryDest
	inc DestRef+2
	phb	; must also update the data bank
	lda DestRef+1	; register
	sta 0,s
	plb
NoCarryDest

	bra PaintLoop


TheEnd	jsl UnShieldCursor

AllDone	jsl Free2Regions

*** added 2-Oct-91 DAL -- restore DestPoint (PortRect)
	ldx #512
	lda <DrawIconTemp,x
	sta <DestPoint
	lda <DrawIconTemp+2,x
	sta <DestPoint+2
	lda <DrawIconTemp+4,x
	sta <DestPoint+4
	lda <DrawIconTemp+6,x
	sta <DestPoint+6
*** end 2-Oct-91 DAL

	lda #0
;;;NeverMind
;;;ReportError
	plb
	tax
	ldy #10
	jmp BusyErr

	ENDP



****************************************************************
*
* IconSlice
*
* These are the lowest level pixel transfer routines.  They	copy
* pixels from one scan line to another using an appropriate
* transfer mode.
*
* Parameters are passed on "ZeroPage" and in the overflow
*   flag. (The overflow flag is used to	decide whether to
*   invert the source--set for invert, clear for leave
*   alone.)
* A predraw routine	must set up "ZeroPage" and the overflow
*   flag.
*
* The routines do not use shift tables.	 Instead I use the two
* shift subroutines.  This is faster than using shift tables
* and working only a byte at a time.
*
* The routines can handle scan lines as	long as 32K.  They do not
* care about scan line width and will overflow into next scan line
* if told to.
*
* Change History
*
* 18 May 88	Steven Glass
*
* Minor modifications were made to the drawing routines to use
* the faster method of drawing into a destination through a 
* mask (suggested by owen rubin).
*
*
****************************************************************
IconSlice	PROC EXPORT


	stz MaskShiftTemp	; Zero these for later use
	stz ImageShiftTemp

	ldy DestStartWord
	sty DestIndex

	ldx SrcStartWord
	stx SrcIndex

Loop

SkipMask


;----------------------------------------------------------
;
; First create the current mask word by	shifting and merging
; with MaskShiftTemp.
;

;------------------FAST ICON CHANGE--------------------------
	ldx HowFarToShift
	bne DoSlowWay
	ldy SrcIndex	; Get source word from mask
	lda [MaskPtr],y
	sta ThisMask
	lda [ImagePtr],y
	sta ThisImage
	bra SkipSlow
;------------------------------------------------------------

DoSlowWay	ldy SrcIndex	; Get source word from mask
	lda [MaskPtr],y
	sta ThisWord	; save for later
	jsl vShiftOut
	sta ShiftTemp2	; save it

	lda ThisWord
	jsl vShiftStay
	ora MaskShiftTemp

; Now do we do anything to the image word like invert or mask?
	sta ThisMask

	lda ShiftTemp2	; move this into position to be used
	sta MaskShiftTemp	; next time

;----------------------------------------------------------
;
; Now do the same with the image.
;
; Is Y still good here?  I think so.

	lda [ImagePtr],y
	sta ThisWord	; save for later

	jsl vShiftOut
	sta ShiftTemp2	; save it

	lda ThisWord
	jsl vShiftStay
	ora ImageShiftTemp

; Now do we do anything to the image word like invert or mask?

	sta ThisImage

	lda ShiftTemp2	; move this into position to be used
	sta ImageShiftTemp	; next time.
SkipSlow
	iny	; bump Y now since it is in a register
	iny
	sty SrcIndex

	ldy DestIndex
	bmi BumpIndexes	; the special case again

;----------------------------------------------------------
;
; This is where the	destination finally	gets changed!
;
; An icon can be
;
;     Not Selected or Selected
;         Invert the image if selected
;     Closed or Open
;         For open,	Draw light gray pattern (Mac style) clipped to mask.
;     Online or Offline
;         for OffLine AND light gray pattern (Mac style) into image
;
; We copy the rotated image to the destination clipped to the
; clipping region and the rotated mask.
;

	lda ThisImage	; get rotated image	in a-reg

	bit IconOpen	; see if the icon is open
	bpl NotOpen
	lda #LightGrey	; it is open so switch light gray
NotOpen		;

	bit IconOffline	; see if on line
	bpl NotOffLine
	and ThisDither	; offline so AND in	the current dither
NotOffLine		;

	bit IconSelected	; see if selected.
	bpl NotSelected

; invert the word as required
	pha	; save word on stack
	and #$00FF	; look at low byte
	tax	; use as index into	inversion table
	lda >InvertTable,x
	and #$00FF
	tay	; put result in Y
	pla	; get orig word
	xba	; look at high byte	and do same
	and #$00FF
	tax
	lda >InvertTable,x
	and #$00FF
	xba	; put back in high byte
	pha	; put on stack so can merge
	tya
	ora 1,s
	ply	; clean stack
	ldy DestIndex	; reset Y for use below

NotSelected		;

; If this is a black and white icon, here is where I add the color.

	bit IconType
	bmi ItsColor

	tax	; save copy in X
	and BG
	sta temp
	txa	; back from x
	eor #$FFFF
	and FG
	ora temp

ItsColor		;


; Now copy into dest!

	eor (DestRef),y
	and ThisMask
	and [ScanMaskref],y
	eor (DestRef),y
	sta (DestRef),y

;----------------------------------------------------------
;
; Now I bump the indexes and decide if I'm done.
;
BumpIndexes		;
	iny
	iny
	sty DestIndex

	cpy DestFinishWord

	beq DoAgain
	bcs AllDone
DoAgain	brl Loop

AllDone	rtl

	ENDP


****************************************************************
*
InvertTable	PROC EXPORT
*
* This table is used to invert values in the icon image when
* it is necessary to invert the image (ie it is selected).
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


	DC.B $ff,$f0,$f0,$f0,$f0,$f0,$f0,$f0,$f0,$f0,$f0,$f0,$f0,$f0,$f0,$f0
	DC.B $0f,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	DC.B $0f,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	DC.B $0f,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	DC.B $0f,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	DC.B $0f,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	DC.B $0f,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	DC.B $0f,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	DC.B $0f,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	DC.B $0f,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	DC.B $0f,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	DC.B $0f,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	DC.B $0f,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	DC.B $0f,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	DC.B $0f,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	DC.B $0f,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00


	ENDP



****************************************************************
*
ColorTable	PROC EXPORT
*
* This table is used to convert a index between 0 and 15 into 
* a word that is has the index repeated in all four nibbles.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


	DC.B $00,$00
	DC.B $11,$11
	DC.B $22,$22
	DC.B $33,$33
	DC.B $44,$44
	DC.B $55,$55
	DC.B $66,$66
	DC.B $77,$77
	DC.B $88,$88
	DC.B $99,$99
	DC.B $aa,$aa
	DC.B $bb,$bb
	DC.B $cc,$cc
	DC.B $dd,$dd
	DC.B $ee,$ee
	DC.B $ff,$ff

	ENDP




	END

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/QDAux/pic.equs b/IIGS.601.SRC/GSToolbox/QDAux/pic.equs
new file mode 100644
index 0000000..4f395ba
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/QDAux/pic.equs
@@ -0,0 +1 @@
+;------------------------------------------------------------
;
; Equates for the picture itself
;


o_PicSize      equ 0
o_PicFrame     equ 2
o_PicData      equ 10
;------------------------------------------------------------
;
; Equates for the picture state record.
;

o_ThePic       equ 0                    ; handle to real picture
o_PicMax       equ o_ThePic+4           ; current size of picture handle
o_PicIndex     equ o_PicMax+4           ; next free byte in picture
o_PicClipRgn   equ o_PicIndex+4         ; handle to clip rgn
o_PicOrigin    equ o_PicClipRgn+4
o_PicBkPat     equ o_PicOrigin+4        ; current background pattern
o_PicFontID    equ o_PicBkPat+32
o_PicTxFace    equ o_PicFontID+4
o_PicTxMode    equ o_PicTxFace+2
o_PicTxSize    equ o_PicTxMode+2
o_PicSpExtra   equ o_PicTxSize+2
o_PicChExtra   equ o_PicSpExtra+4
o_PicFontFlags equ o_PicChExtra+4
o_PicTxLoc     equ o_PicFontFlags+2
o_PicFgColor   equ o_PicTxLoc+4
o_PicBgColor   equ o_PicFgColor+2
o_PicPnMode    equ o_PicBgColor+2
o_PicPnLoc     equ o_PicPnMode+2
o_PicPnSize    equ o_PicPnLoc+4
o_PicPnPat     equ o_PicPnSize+4
o_PicFillPat   equ o_PicPnPat+32
o_PicTheRect   equ o_PicFillPat+32
o_PicPnMask    equ o_PicTheRect+8
o_PicOvSize    equ o_PicPnMask+8
o_PicArcRot    equ o_PicOvSize+4
o_PicVersion   equ o_PicArcRot+2
PicSaveRecSize equ o_PicVersion+2

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/QDAux/pics.asm b/IIGS.601.SRC/GSToolbox/QDAux/pics.asm
new file mode 100644
index 0000000..3242968
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/QDAux/pics.asm
@@ -0,0 +1 @@
+	title 'Quickdraw Auxilary PICS/MAIN'
****************************************************************
*
* Quickdraw Auxilary Picture Stuff
*
* Steven E. Glass
* Bennet Marks
* Art Cabral
*
* Version 1.0    April 8, 1987
*
*     With a little	help from VersionSoft
*
* Version 2.0    May 8, 1987
*
*     Error checking added to picture routines for version 2.0.
*     Bug in updating state record when	drawing lines fixed.
*
* Version 2.4d3  May 5, 1988  (for System Disk 3.2d22)
*
* In SetThisShitUp the call _InstallFont is made, yet the Font Manager is
* not one of the tools that QDAux is dependent on. We run into problems 
* from the Finder when someone trys to 'Show Clipboard' when a picture has
* just been copied to the clipboard. DrawPicture breaks because _InstallFont
* is being called w/o Font Manager loaded. Therefore I put in check for
* carry set when call is completed and if set I clean up stack and go on.
* (maybe the call shouldn't even be made? I didn't want to take a chance)
*
* 17 May 88	Steven Glass
*
* Added check to above to make sure that the error was a dispatcher error.
*
* 3/15/89	Mensch
* Added fastfont font derefing so that this will work with fast fonts!
*
* 15 May 89	Steven Glass
*
* Changed PutPictStuff so it is in two parts.  The first part is now
* in QDAux.asm.  The rest is in this file.
*
* 18 May 89	Steven Glass
*
* Changed SaveSomething to closeout the picture and replace
* picsave with FFFFFFFF if an error occurs.  This makes
* it possible to return an error at close picture time.
*
* At close picture time I look for the ffff.  If we have it,
* we return an error.
*
* This should be a lot cleaner than earlier implementations.
*
****************************************************************
****************************************************************

****************************************************************
*
*	 Copyright (C) 1986-1989
*	 Apple Computer, Inc.
*	 All Rights Reserved
*
****************************************************************

	include 'all.macros'
	include 'special.macros'

	include '::qd:qdequates:core.globals1'
	include '::qd:qdequates:core.globals2'
	include '::qd:qdequates:region.equs'
	include '::qd:qdequates:rect.equs'

	include '::qd:qdequates:qd.data.asm'


	include 'QDAuxEquates.asm'

	include 'play.equs'

	include 'pic.equs'



; Equates from file	pics.asm

ToolNumber	equ 18

;-----------------------------------------------------------
;
; Special Equate

IncBusyFlg	equ $E10064
DecBusyFlg	equ $E10068


;-----------------------------------------------------------
;
; Other Picture equates
;

PicBumpSize	equ $800
InitialPicSize	equ $800


;------------------------------------------------------------
;
; PicVersion Number
;
; The High nibble is set to indicate Apple II QuickDraw.
;
; The Low byte is set to two indicating	that we use
; word opcodes rather than byte opcodes	like in version
; one of the Mac QD	Pictures.
;
ThisPicVersion	equ $82



**********************************************************************
**********************************************************************
	title 'Quickdraw Auxilary pics/OPENPICTURE'
****************************************************************
*
* OpenPicture
*
*        Space for Handle
*        PicFrame Pointer
*
****************************************************************
iOpenPicture	PROC EXPORT

OrigD	equ 1
RTL1	equ OrigD+2
RTL2	equ RTL1+3
PicFramePtr	equ RTL2+3
PHandle	equ PicFramePtr+4

	jsr PicsQDStart

;------------------------------------------------------------
;
; Check to see if picture is already open.
;
	ldy #o_PicSave
	lda [PortRef],y
	bne Oops
	iny
	iny
	lda [PortRef],y
	beq NotSaving

Oops		;
	ldx #PicAlreadyOpen
	jml BusyErr4



;------------------------------------------------------------
;
; So we are not saving a picture right now.  Get on with
; it.
;

NotSaving		;
;
; First reset the NoPict flag...
	phx
	ldx #512
	lda #NoPictRecord
	eor #$FFFF
	and <DirtyDPFlags,x
	sta <DirtyDPFlags,x
	plx

	lda #InitialPicSize	; get handle for picture
	jsr MyNewHandle
	bcc GotHandle1

	tax	; error in x
HandleError	jml BusyErr4

GotHandle1	sta PHandle,s
	txa
	sta PHandle+2,s


	lda #PicSaveRecSize
	jsr MyNewHandle
	bcc GotHandle2

	pha	; save the error code on stack
	lda PHandle+4,s	; dispose first handle
	pha
	lda PHandle+4,s
	pha
	_DisposeHandle

	plx	; get error code off stack
	bra HandleError



GotHandle2		;
	ldy #o_PicSave	; save this handle in graf port and
	sta [Portref],y	; on stack for user.
	sta TEMP
	iny
	iny
	txa
	sta [Portref],y
	sta TEMP+2



;------------------------------------------------------------
;
; Now I intialize the picture state record and the beginning
; of the picture itself.
;

	jsr DerefTempToTemp2

	lda PHandle,s	; first I put the handle
	ldy #o_ThePic	; in the state record
	sta [TEMP2],y
	lda PHandle+2,s
	iny
	iny
	sta [TEMP2],y

;------------------------------------------------------------
;
; Alloc PicClipRgn (and leave on stack for now)
;
	pha
	pha
	_NewRgn

	jsr DerefPicSave

	ldy #o_ThePic	; get the handle to	the pic itself
	lda [TEMP2],y
	sta TEMP
	iny
	iny
	lda [TEMP2],y
	sta TEMP+2
	jsr DerefTempToTemp2

	lda #10	; put size in picture
	sta [TEMP2]

	lda PicFramePtr+4,s	; plus four because	of rgn handle
	sta TEMP
	lda PicFramePtr+6,s
	sta TEMP+2

	ldy #0
PicFrameLoop	lda [TEMP],y
	iny
	iny
	sta [TEMP2],y
	cpy #8
	bcc PicFrameLoop

	jsr DerefPicSave	; deref again since	temp and temp2
;		; have been reused.

	lda #InitialPicSize	; pic max
	ldy #o_PicMax
	sta [TEMP2],y
	iny
	iny
	lda #^InitialPicSize
	sta [TEMP2],y

	lda #10	; picindex
	ldy #o_PicIndex
	sta [TEMP2],y
	iny
	iny
	lda #0
	sta [TEMP2],y

	ldy #o_PicClipRgn	; piccliprgn (get if off the stack)
	pla
	sta [TEMP2],y
	iny
	iny
	pla
	sta [TEMP2],y

	lda #$FFFF	; PicBkPat (white)
	ldy #o_PicBkPat
BackPatLoop	sta [TEMP2],y
	iny
	iny
	cpy #o_PicBkPat+32
	bcc BackPatLoop


	ldy #o_PicFontID	; a bunch of text stuff is 0
	lda #0	; FontID, TxFace, TxMode, TxSize
TextStuffLoop	sta [TEMP2],y	; SpExtra, ChExtra,	TxLoc
	iny
	iny
	cpy #o_PicFgColor
	bcc TextStuffLoop

	ldy #o_PicFgColor	; PicFgColor (black)
	lda #$0000
	sta [TEMP2],y

	ldy #o_PicBgColor	; PicBgColor (white)
	lda #$FFFF
	sta [TEMP2],y

	ldy #o_PicPnLoc	; PicPnLoc (0,0)
	lda #0
	sta [TEMP2],y
	iny
	iny
	sta [TEMP2],y

	ldy #o_PicPnSize+2
	lda #1
	sta [TEMP2],y
	dey
	dey
	sta [TEMP2],y

	ldy #o_PicPnMode	; PicPnMode (0)
	lda #0
	sta [TEMP2],y

	ldy #o_PicPnPat	; PicPnPat (Black)
	lda #$0000
PenPatLoop	sta [TEMP2],y
	iny
	iny
	cpy #o_PicPnPat+32
	bcc PenPatLoop

	ldy #o_PicPnMask	; PicPnMask (solid)
	lda #$FFFF
PenMaskLoop	sta [TEMP2],y
	iny
	iny
	cpy #o_PicPnMask+8
	bcc PenMaskLoop

	ldy #o_PicTheRect	; PicTheRect (0,0,0,0)
	lda #0
TheRectLoop	sta [TEMP2],y
	iny
	iny
	cpy #o_PicTheRect+8
	bcc TheRectLoop

	ldy #o_PicOvSize	; PicOvSize (0,0)
	lda #0
	sta [TEMP2],y
	iny
	iny
	sta [TEMP2],y

	ldy #o_PicArcRot	; PicArcRot (0)
	lda #0
	sta [TEMP2],y

	ldy #o_PortRect	; PicOrigin (cur origin)
	lda [PortRef],y
	ldy #o_PicOrigin
	sta [TEMP2],y
	ldy #o_PortRect+2
	lda [PortRef],y
	ldy #o_PicOrigin+2
	sta [TEMP2],y


;------------------------------------------------------------
;
; Finished with state record. Put Version into picture
;

	lda #PicVersion+(ThisPicVersion<<8)
	jsr PutPicWord


	_hidepen


	jml BusyEC4


	ENDP


	title 'Quickdraw Auxilary pics/CLOSEPICTURE'
****************************************************************
*
* ClosePicture
*
*      No inputs.
*
* (The user got the	handle when the picture was opened.)
*
****************************************************************
iClosePicture	PROC EXPORT
	ENTRY CloseItOut


	jsr PicsQDStart

;
; To fix the region trashing bug, first thing to do is be sure to zero out the temp storage we
; use for the picture handle...
	stz <RgnHandleA
	stz <RgnHandleA+2

	ldy #o_PicSave
	lda [PortRef],y
	sta TEMP
	iny
	iny
	lda [PortRef],y
	sta TEMP+2
	ora TEMP
	beq NothingToClose

	lda Temp+2
	cmp #$FFFF
	beq CannotClose

	lda #0	; call closeing routine with normal flag
	jsr CloseItOut
	bcs ReturnError

CannotClose
	ldy #o_PicSave	; fix current graf port
	lda #0
	sta [Portref],y
	iny
	iny
	sta [Portref],y

	_showpen	; bump pen vis

;----------------------------------------------------------
;
; Put the port scb into the first word of the picture.
;
	ldy #2
	lda <RgnHandleA+1	; see if rgn A is still NIL
	beq @RgnANotSet	; if so it was never set up to anything.. don't use it

	lda [RgnHandleA]
	sta RgnPtrA
	lda [RgnHandleA],y
	sta RgnPtrA+2
	lda [PortRef]
	sta [RgnPtrA]
@RgnANotSet
	lda Temp+2
	cmp #$FFFF
	bne @LooksOK

	ldx #PictureError
	bra ReturnError

@LooksOK	
NothingToClose	ldx #0

ReturnError
	jml BusyErr0
	







;-----------------------------------------------------------
;
; New entry point to close down a picture.  
;
; If the a-reg is 0, then we do the normal close out.
; If the a-reg is not 0, then we set the picture size to
;    10 to indicate that the picture is no good.
;
CloseItOut
	pha		; save flag on stack
	jsr DerefTempToTemp2
	
	pla		; look at flag
	beq NormalClose
	
	PushLong #10
	bra SizeOnStack
NormalClose

	ldy #o_PicIndex+2		; get the real picture size
	lda [Temp2],y		; and set the handle size to that
	pha
	dey
	dey
	lda [Temp2],y
	pha

SizeOnStack
	ldy #o_ThePic+2
	lda [TEMP2],y
	pha
	sta RgnHandleA+2
	dey
	dey
	lda [TEMP2],y
	pha
	sta RgnHandleA
	_SetHandleSize
	bcs GetOut		; things are really hosed if this fails


NoError
	ldy #o_PicClipRgn+2		; get rid of piccliprgn
	lda [TEMP2],y
	pha
	dey
	dey
	lda [TEMP2],y
	pha
	_DisposeRgn

	pei Temp+2		; get rid of pic save record
	pei Temp
	_DisposeHandle

GetOut
	tax
	rts

	ENDP


**********************************************************************
**********************************************************************
	title 'Quickdraw Auxilary pics/KILLPICTURE'
****************************************************************
*
* KillPicture
*
*       PicHandle
*
* Disposes of the picture handle.
*
****************************************************************
iKillPicture	PROC EXPORT
OrigD	equ 1
RTL1	equ OrigD+2
RTL2	equ RTL1+3
PHandle	equ RTL2+3

	jsr PicsQDStart

	lda PHandle+2,s
	pha
	lda PHandle+2,s
	pha
	_DisposeHandle
	tax
	jml BusyErr4


	ENDP


**********************************************************************
**********************************************************************
	title 'Quickdraw Auxilary pics/DRAWPICTURE'
****************************************************************
*
* DrawPicture
*
*        Picture Handle
*        Picture Drawing Frame Pointer
*
*
* Change History
*
* 18 Jun 87    Steven E. Glass
*
* When pictures are	recorded in one mode and replayed in another
* mode, the to rect	is adjusted.  The adjustment being done	was
* wrong.  It was doubling or halving the horizontal coordinates
* of the torect rather than doubling or	halving the width of
* the to rect.
*
* 14 Oct 87    GPhipps
* Changed second line of routine rChExtra from
* ldy #o_SpExtra to	ldy #o_ChExtra
*
* Version 2.4d3  May 5, 1988  (for System Disk 3.2d22)
*
* In SetThisShitUp the call _InstallFont is made, yet the Font Manager is
* not one of the tools that QDAux is dependent on. We run into problems 
* from the Finder when someone trys to 'Show Clipboard' when a picture has
* just been copied to the clipboard. DrawPicture breaks because _InstallFont
* is being called w/o Font Manager loaded. Therefore I put in check for
* carry set when call is completed and if set I clean up stack and go on.
* (maybe the call shouldn't even be made? I didn't want to take a chance)
*
* 17 May 88	Steven Glass
*
* Added check to above to make sure that the error was a dispatcher error.
*
* 4-Jan-91	Dave Lyons
*
* See revision history at top of file.
*
****************************************************************
iDrawPicture	PROC EXPORT

*** added 4-Jan-91 DAL
DirtyFlags	equ $02EC	;offset into QD work area
	sta >qdDirPage
	tax	;QD direct page location
	lda >DirtyFlags,x
	sta >oldDirtyFlags
	lda #0
	sta >DirtyFlags,x
	txa
*** end of 4-Jan-91 DAL (more below)

	phd	; save caller's direct page
	pha	; save quickdraw's direct page
	jsl IncBusyFlg

	tsc	; make room on stack for all these
	sec	; vars
	sbc #QuickDrawD-1
	tcs
	tcd

	lda PicToDrawH
	ora PicToDrawH+2
	beq Error

	jsl SetThisShitUp
	bcs Error

KeepLooking	jsl GetPicOpCode	; get a new noun
	bcs EndOfTape	; no more

	jsl DoOpCode
	bcc KeepLooking
	cmp #0	; second check to get around accidents
	beq KeepLooking

EndofTape	cmp #PicEmpty
	bne SomethingElse
	lda #0
SomethingElse	pha
	jsr CleanItUp
	pla

Error	tax

	tsc	; clean up the stack frame
	clc
	adc #QuickDrawD+2-1
	tcs

*** added 4-Jan-91 DAL -- restore fastPort status, clear dirty bits
	pha
	phx
	lda >qdDirPage
	tax
	lda >oldDirtyFlags
	and #$8000
	sta >DirtyFlags,x
	plx
	pla
*** end of 4-Jan-91 DAL

	jml BusyErr8

oldDirtyFlags	dc.w 0	;DAL
qdDirPage	dc.w 0	;DAL

DoOpCode	sta OpCodeToDo	; save it here for now
	and #$f0
	lsr a
	lsr a
	lsr a
	tax
	jsr (rOpTable,x)

	rtl


rOpTable	DC.W ParamOp
	DC.W ParamOp
	DC.W rLineOrText
	DC.W rDrawRect
	DC.W rDrawRrect
	DC.W rDrawOval
	DC.W rDrawArc
	DC.W rDrawPoly
	DC.W rDrawRgn
	DC.W rDrawPixel
	DC.W rDrawComment
*** added Mensch/DAL 28-Nov-90
	DC.W rBadOpcode
	DC.W rBadOpcode
	DC.W rBadOpcode
	DC.W rBadOpcode
	DC.W rBadOpcode

rBadOpcode	lda  #BadOpcodeError
	sec
	rts
*** end of Mensch/DAL 28-Nov-90


CleanItUp
	ldy #o_ClipRgn+2
	lda [CurPortRef],y
	pha
	dey
	dey
	lda [CurPortRef],y
	pha
	_DisposeRgn

	pei SavePortHandle+2 ; copy the saved contents of
	pei SavePortHandle	; graf port back into current port
	pei CurPortRef+2
	pei CurPortRef
	PushLong #PortSize
	_HandToPtr

	pei SavePortHandle+2
	pei SavePortHandle
	_DisposeHandle

	pei TheClip+2
	pei TheClip
	_DisposeRgn

	rts


SetThisShitUp		;
;------------------------------------------------------------
;
; Get the port ref into the stack frame
	pha
	pha
	_GetPort
	pla
	sta CurPortRef
	pla
	sta CurPortRef+2

;------------------------------------------------------------
;
; Move DestRect into ToRect in StackFrame.  Make sure
; that the rect is not empty

	ldy #6
ToRectLoop	tyx
	lda [ToRectPtr],y
	sta ToRect,x
	dey
	dey
	bpl ToRectLoop

;----------------------------------------------------------
;
; Get memory for saving port information
;
NotEmpty		;
	lda #PortSize
	jsr MyWNewHandle
	bcc NoError
	rtl

NoError	sta SavePortHandle
	stx SavePortHandle+2

	pei CurPortRef+2	; copy the current port into the
	pei CurPortRef	; save area
	pei SavePortHandle+2
	pei SavePortHandle
	PushLong #PortSize
	_PtrToHand

;------------------------------------------------------------
;
; No we initialize the play state record.
;
	ldx #TheRect
ZeroLoop	stz 0,x
	inx
	inx
	cpx #CurPortRef
	bcc ZeroLoop


	ldy #o_ClipRgn
	lda [CurPortRef],y
	sta UserClip
	iny
	iny
	lda [CurPortRef],y
	sta UserClip+2

	pha
	pha
	_NewRgn
	plx
	stx TheClip
	plx
	stx TheClip+2
	bcc GotRgn
	rtl
GotRgn		;


;------------------------------------------------------------
;
; Initialize the fields in the port

	pha	; clip rgn
	pha
	_NewRgn
	bcc GotRgn2

	sta 3,s
	plx
	lda TheClip+2
	pha
	lda TheClip
	pha
	_DisposeRgn
	pla
	sec
	rtl

GotRgn2		;
	ldy #o_ClipRgn
	pla
	sta [CurPortRef],y
	iny
	iny
	pla
	sta [CurPortRef],y

	ldy #o_BkPat	; background pattern
	lda #$FFFF
PortBPLoop	sta [CurPortRef],y
	iny
	iny
	cpy #o_BkPat+32
	bcc PortBPLoop

	ldy #o_PnPat	; pen pattern
	lda #$0000
PortPPLoop	sta [CurPortRef],y
	iny
	iny
	cpy #o_PnPat+32
	bcc PortPPLoop

	ldy #o_PnMask	; pen Mask
	lda #$FFFF
PortPMaskLoop	sta [CurPortRef],y
	iny
	iny
	cpy #o_PnMask+8
	bcc PortPMaskLoop


	ldy #o_PnLoc	; pen loc
	lda #0
	sta [CurPortRef],y
	iny
	iny
	sta [CurPortRef],y


;-----------------------------------------------------------
;
; Cannot set final pen size until the from rect is in place
; so it is moved below
;
;-----------------------------------------------------------



	ldy #o_PnMode	; pen mode (0)
	lda #0
	sta [CurPortRef],y

	PushLong #0	; Code put in to check if error returned from this
	PushWord #0	; call because when 'Show Clipboard' is called from
	_InstallFont	; finder and a picture has just been copied to the
	bcc FMInstalled	; clipboard, DrawPicture breaks because the FMgr is
		; not installed and this call fails. HY 5/5/88
		; get rid of params on stack
	cmp #$0003	; is it a dispatcher error?
	bcs FMInstalled
	pla	; was dipatcher error, clean stack.
	pla
	pla


FMInstalled
	ldy #o_FontID	; text font ID 0
	lda [CurPortRef],y
	sta ThisFontID
	iny
	iny
	lda [CurPortRef],y
	sta ThisFontID+2

	ldy #o_ArcRot	; ArcRot
	lda #0
	sta [CurPortRef],y

	ldy #o_txFace	; text face
	lda #0
	sta [CurPortRef],y
	sta ThisTextFace

	ldy #o_txSize	; text Size
	lda #0
	sta [CurPortRef],y
	sta ThisTextSize

	ldy #o_txMode	; text Mode
	lda #0
	sta [CurPortRef],y

	ldy #o_FontFlags	; Font Flags
	lda #0
	sta [CurPortRef],y

	ldy #o_SpExtra	; Space Extra
	lda #0
	sta [CurPortRef],y
	iny
	iny
	sta [CurPortRef],y

	ldy #o_ChExtra	; Char Extra
	lda #0
	sta [CurPortRef],y
	iny
	iny
	sta [CurPortRef],y

	ldy #o_FGColor	; FGColor
	lda #0
	sta [CurPortRef],y

	ldy #o_BgColor	; BGColor
	lda #$FFFF
	sta [CurPortRef],y


;------------------------------------------------------------
;
; Now I start playing the thing back.
;

	stz PlayIndex	; init the play index
	stz PlayIndex+2

	pha	; initialize the PicSize field
	pha
	pei PicToDrawH+2
	pei PicToDrawH
	_GetHandleSize
	pla
	sta PicSize
	pla
	sta PicSize+2

	lda #1	; assume the version is one
	sta ThisVersion

;----------------------------------------------------------
;
; See if the ToRect	needs to be adjusted
;
	jsr GetPicWord
	bcs Error0

	eor [CurPortRef]
	and #$0080
	sta ModeChangedFlag
	beq NoChange

	lda [CurPortRef]
	and #$0080
	beq ThisModeIs320

;
; Mode is now 640 so double the width of the toRect
;
; Changed 18 Jun 87.  Used to just double x coordinates.
;
	lda ToRect+6
	sec
	sbc ToRect+2
	asl a
	clc
	adc ToRect+2
	sta ToRect+6
	bra NoChange

;
; Mode is now 320 so halve width of torect.
;
; Changed 18 Jun 87
;
; Used to halve the	horizontal coordinates.
;
ThisModeIs320		;
	lda ToRect+6
	sec
	sbc ToRect+2
	lsr a
	clc
	adc ToRect+2
	sta ToRect+6

NoChange		;
;----------------------------------------------------------
;
; Put the From rect	in place and see if	it is valid.
;
	pea 0
	tdc
	clc
	adc #FromRect
	pha
	PushWord #8
	jsl CallGetPic
	bcs Error8

;----------------------------------------------------------
;
; Check the to and from rects for validity.
;
	lda ToRect+4
	sec
	sbc ToRect
	bmi CannotDo

	lda ToRect+6
	sec
	sbc ToRect+2
	bmi CannotDo

	lda FromRect+4
	sec
	sbc FromRect
	bmi CannotDo

	lda FromRect+6
	sec
	sbc FromRect+2
	bmi CannotDo

;-----------------------------------------------------------
;
; Fix the fields that must be scaled
;
	lda #1	; PicPnSize to (1,1) Scaled
	pha
	pha
	jsr ScaleThisPt
	ldy #o_PnSize+2
	pla
	sta [CurPortRef],y
	dey
	dey
	pla
	sta [CurPortRef],y

	clc
	rtl



Error8	plx
	plx
	plx
	plx
CannotDo		;
Error0		;

	pha
	jsr CleanItUp
	pla

	sec
	rtl
	ENDP




****************************************************************
*
* DerefPicToDraw
*
****************************************************************
DerefPicToDraw	PROC EXPORT

	ldy #2
	lda [PicToDrawH],y
	sta PicToDrawPtr+2
	lda [PicToDrawH]
	sta PicToDrawPtr
	rts

	ENDP




****************************************************************
*
* ParamOP
*
*
****************************************************************
ParamOp	PROC EXPORT

	lda OpCodeToDo
	asl a
	tax
	jmp (paramTable,x)

ParamTable
**********************************************************************
**********************************************************************
;               DC.W    rPicNOP
	Import readparams
	DC.W readparams
**********************************************************************
**********************************************************************
	DC.W rClipRgn
	DC.W rBkPat
	DC.W rtxfont
	DC.W rtxface
	DC.W rtxmode
	DC.W rSpExtra
	DC.W rPnSize
	DC.W rPnMode
	DC.W rPnPat
	DC.W rthePat
	DC.W rovSize
	DC.W rOrigin
	DC.W rTxSize
	DC.W rFgColor
	DC.W rBgColor
	DC.W rTxRatio
	DC.W rVersion
	DC.W rChExtra
	DC.W rPnMask
	DC.W rArcRot
	DC.W rFontFlags

	ENDP



****************************************************************
*
* rLineOrText
*
* The Line op codes	are $20 through $27
* The text op codes	are $28 through $2F
*
* This routine jumps off the the right code for the opcode.
*
****************************************************************
rLineOrText	PROC EXPORT

	lda OpCodeToDo
	cmp #$28
	bcc DoLine

	brl rDrawText

DoLine	brl rDrawLine

	ENDP



****************************************************************
*
* ReadParams
*
* A single procedure that has in it all	the routines that
* read the graf port parameters from the picture.
*
****************************************************************
ReadParams	PROC EXPORT



****************************************************************
*
* rPicNOP
*
****************************************************************
	Export rPicNOP
rPicNOP

	rts




****************************************************************
*
* rClipRgn
*
****************************************************************
	Export rClipRgn
rClipRgn
	jsr GetPicRgn
	bcs CRError0

	phx	; need this handle 4 times
	pha
	phx
	pha
	phx
	pha

	phx	; first I copy the rgn into
	pha	; TheClip
	pei TheClip+2
	pei TheClip
	_CopyRgn
	bcs CRError12


JoinClipRgn		;
	jsr MapThisRgn
	bcs CRError8

	pei UserClip+2	; Third I Intersect	the Rgn with
	pei UserClip	; user clip putting	result in
	ldy #o_ClipRgn+2	; graf port.
	lda [CurPortRef],y
	pha
	dey
	dey
	lda [CurPortRef],y
	pha
	_SectRgn
	bcs CRError4

	_DisposeRgn	; finally I dispose	of it.

CRError0		;
	rts

CRError12	plx
	plx
CRError8	plx
	plx
CRError4	plx
	ply
	pha
	phy
	phx
	_DisposeRgn
	pla
	sec
	rts

****************************************************************
*
* rOrigin
*
* The two words next in the picture are	used to offset the
* FromRect.  After the from rect is offset, we end up with a
* new effect clipping region by taking the current TheClip
* remapping with the new FromRect and intersecting with the
* userclip.  Result	is put in ClipRgn of current port.
*
* To do all this I create a temporary region that is a copy
* of the current TheClip.  This is then	pushed on the stack
* a number of times	and control is passed to the RgnOp code
* above.
*
****************************************************************
	Export rOrigin
rOrigin

	jsr GetPicWord
	bcs CRError0
	pha
	clc
	adc FromRect
	sta FromRect
	pla
	clc
	adc FromRect+4
	sta FromRect+4

	jsr GetPicWord
	bcs CRError0
	pha
	clc
	adc FromRect+2
	sta FromRect+2
	pla
	clc
	adc FromRect+6
	sta FromRect+6

	pha
	pha
	_NewRgn
	bcs OError4

	pla
	plx

	phx	; put handle on three times for
	pha	; later
	phx
	pha
	phx
	pha

	pei TheClip+2	; now copy orig TheClip into this
	pei TheClip	; temp region
	phx	; and once more for	copy rgn call
	pha
	_CopyRgn
	bcs CRError12

	bra JoinClipRgn	; and join above code

oError4	plx
	plx
	rts

****************************************************************
*
* rBkPat
*
****************************************************************
	Export rBkPat
rBkPat
	lda #o_BkPat
	clc
	adc CurPortRef
	tax
	lda CurPortRef+2
	bcc NoCarry1
	inc a
NoCarry1	pha
	phx
	PushWord #32
	jsl CallGetPic

	rts

****************************************************************
*
* rTxMode
*
****************************************************************
	Export rTxMode
rTxMode

	jsr getpicword
	ldy #o_TxMode
	bra PutPortWord




****************************************************************
*
* rSpExtra
*
*
****************************************************************
	Export rSpExtra
rSpExtra

	jsr GetPicLong
	ldy #o_SpExtra
	bra PutPortLong


****************************************************************
*
* rPnSize
*
* Reads the pen size out of the picture	and puts it into
* the grafport.
*
****************************************************************
	Export rPnSize
rPnSize


	jsr getpiclong
	bcc PutSizeIn
	rts

PutSizeIn	phx
	pha
	jsr ScaleThisPt
	pla
	plx
	ldy #o_PnSize
	bra PutPortLong


****************************************************************
*
* rPnMode
*
* Reads the pen mode out of the picture	and puts it in the
* grafport.
*
****************************************************************
	Export rPnMode
rPnMode

	jsr getpicword
	ldy #o_PnMode
	bra PutPortWord




****************************************************************
*
* rOvSize
*
****************************************************************
	Export rOvSize
rOvSize
	jsr GetPicLong
	bcs OvError

	phx
	pha
	jsr ScaleThisPt
	pla
	sta OvalSize
	pla
	sta OvalSize+2
OvError	rts




****************************************************************
*
* rFGColor
*
* Reads the FGColor	from the picture and puts it in the
* graf port.
*
****************************************************************
	Export rFgColor
rFgColor

	jsr getpicWord
	ldy #o_FGColor
	bra PutPortWord



****************************************************************
*
* rBGColor
*
* Reads the BGColor	from the picture and puts it in the
* graf port.
*
****************************************************************
	Export rBgColor
rBgColor

	jsr getpicWord
	ldy #o_BGColor
	bra PutPortWord



****************************************************************
*
* rTxRatio
*
* This is a Mac field and I don't know what it does.
*
****************************************************************
	Export rTxRatio
rTxRatio
	rts




****************************************************************
*
* rVersion
*
* Read the byte out	of the picture and put it in to
* play state record.
*
****************************************************************
	Export rVersion
rVersion

	jsr GetPicByte
	sta ThisVersion

	rts






****************************************************************
*
* rChExtra
*
****************************************************************
	Export rChExtra
rChExtra

	jsr GetPicLong
	ldy #o_ChExtra
	bra PutPortLong





****************************************************************
*
* rArcRot
*
****************************************************************
	Export rArcRot
rArcRot

	jsr getpicword
	ldy #o_ArcRot
	bra PutPortWord


****************************************************************
*
* rFontFlags
*
****************************************************************
	Export rFontFlags
rFontFlags

	jsr getpicword
	ldy #o_FontFlags
	bra PutPortWord

****************************************************************
*
* PutPortLong
*
* Puts the long passed in a,x into the current port at
* the offset passed	in y.
*
****************************************************************
	Export PutPortLong
PutPortLong		;
	bcs LongError
	sta [CurPortRef],y
	iny
	iny
	txa
	sta [CurPortRef],y
LongError	rts


****************************************************************
*
* PutPortWord
*
* Puts the word passed in a into the current port at
* the offset passed	in y.
*
****************************************************************
PutPortWord		;
	bcs WordError
	sta [CurPortRef],y
WordError	rts

****************************************************************
*
* rPnPat
*
* Reads the pen pattern out of the picture and puts it into
* the grafport.
*
****************************************************************
	Export rPnPat
rPnPat


	lda #o_PnPat
	clc
	adc CurPortRef
	tax
	lda CurPortRef+2
	bcc NoCarry2
	inc a
NoCarry2	pha
	phx
	PushWord #32
	jsl CallGetPic

	rts



****************************************************************
*
* rThePat
*
* Reads the pat out	of the picture and puts it down on zero
* page.
*
****************************************************************
	Export rthePat
rthePat

	pea 0
	lda QuickDrawD
	clc
	adc #TheFillPat+256
	pha
	PushWord #32
	jsl CallGetPic

	rts

****************************************************************
*
* rPnMask
*
****************************************************************
	Export rPnMask
rPnMask


	lda #o_PnMask
	clc
	adc CurPortRef
	tax
	lda CurPortRef+2
	bcc NoCarry3
	inc a
NoCarry3	pha
	phx
	PushWord #8
	jsl CallGetPic

	rts

****************************************************************
*
* rTxFont
*
* This is a tricky one.  This field is read into zero page
* variable.  I only	make the install font just before I
* draw the text.  I	only draw the text after I this and
* two other fields read.
*
* The following fields must be read together:
*
*     FontID
*     TxFace
*     TxSize
*
****************************************************************
	Export rTxFont
rTxFont


	jsr GetPicLong
	sta ThisFontID
	stx ThisFontID+2

	rts


****************************************************************
*
* rTxFace
*
* This is a tricky one.  This field is read into zero page
* variable.  I only	make the install font just before I
* draw the text.  I	only draw the text after I this and
* two other fields read.
*
* The following fields must be read together:
*
*     FontID
*     TxFace
*     TxSize
*
****************************************************************
	Export rTxFace
rTxFace

	jsr getpicword
	sta ThisTextFace
	rts


****************************************************************
*
* rTxSize
*
* This is a tricky one.  This field is read into zero page
* variable.  I only	make the install font just before I
* draw the text.  I	only draw the text after I this and
* two other fields read.
*
* The following fields must be read together:
*
*     FontID
*     TxFace
*     TxSize
*
****************************************************************
	Export rTxSize
rTxSize

	jsr GetPicWord
	sta ThisTextSize
	rts

	ENDP

; *** I don't know what this was, but it chokes asmiigs 1.2 (11-Mar-92 DAL)
;	%dbg ''


***************************************************************
*
* MapThisRgn
*
*      HandleToRgn
*
* This is the central routine that does	all region mapping.
*
* Because of a bug in SystemDisk 1.1 it	does not call MapRgn
* for rectangular regions.  It does a MapRect for these.
*
*
* RngHandle is passed on stack on input	and stripped on output.
*
***************************************************************
MapThisRgn	PROC EXPORT
	DefineStack

OrigD	word
Ptr	long
Rtsadr	word
RgnHandle	long

	pha
	pha
	phd
	tsc
	tcd

	lda [RgnHandle]
	sta Ptr
	ldy #2
	lda [RgnHandle],y
	sta Ptr+2

	lda [Ptr]
	cmp #10
	beq ItsRect

	pei RgnHandle+2
	pei Rgnhandle
	lda OrigD
	tcd
	jsr PushRectPtrs
	_mapRgn

GetOut	pld
	plx
	plx
	ply
	plx
	plx
	phy

	rts



ItsRect		;
	lda Ptr
	clc
	adc #2
	tax
	lda Ptr+2
	bcc NoCarry
	inc a
NoCarry	pha
	phx
	lda OrigD
	tcd
	jsr PushRectPtrs
	_MapRect

	bra GetOut

	ENDP


**********************************************************************
**********************************************************************
	title 'Quickdraw Auxilary pics/PUTPICTSTUFF'
****************************************************************
*
* SaveSomething
*
*   Input:   DrawNoun is on the stack
*
* This routine is only called after PutPictStuff discovers
* that the picture is open and something needs to be
* saved.
*
* This used to be part of PutPictStuff, but it is now
* separate so that the picture code can be segmented.
*
* This is the routine called by the various drawing calls to
* to check and see if a picture is being saved to.  If the
* picture is being saved to, This routine saves what it needs.
* If not it just returns.
*
* 3/10/89	Mensch
* Added DirtyFlag set for NoPictRecord field...
*
* 15 May 89	Steven Glass
*
* Broke off from PutPictStuff to allow segmenting.
*
****************************************************************

SaveSomething	PROC EXPORT

	ldy #o_pnVis	; first check pen vis
	lda [PortRef],y	; if it is less than -1 then
	bpl pen_ok	; we don't put it in picture!
	cmp #$ffff
	bpl pen_ok

Done
	phx
	ldx #512
	lda <DirtyDPFlags,x
	ora #NoPictRecord
	sta <DirtyDPFlags,x
	plx

	pla	; return with noun still in a
	clc	; and carry clear

	RTL


pen_ok		;
	lda #$FFFF
	cmp Temp+2
	bne LooksOK

	lda #PictureError
	bra QuickExit

LooksOK
	jsr DerefTempToTemp2 ; deref the picture handle

	lda 1,s	; get noun back in a-reg
	jsl UpdateStateRec	; compare current graph port with
;		; picture state record
	bcc AllIsWell

AnError
	pha	; put error code on stack
;
; Close out the picture and Put -1 into the picsave field so that 
; close picture will not succeed
;
	ldy #o_PicSave
	lda [PortRef],y
	sta Temp
	iny
	iny
	lda [PortRef],y
	sta Temp+2

	lda #$FFFF
	jsr CloseItOut
	
	ldy #o_PicSave
	lda [PortRef],y
	lda #$FFFF
	sta [PortRef],y
	iny
	iny
	sta [PortRef],y

	pla	; put error code back in a-reg


QuickExit
	plx	; clear off the noun
	rtl	; carry is still set.

AllIsWell		;


	lda 1,s	; get noun back
	sta drawnoun
	cmp #$b0
	bcs Done

	and #$f0	; for specials codes
	lsr a
	lsr a
	lsr a
	tax
	jsr (wOpTable,x)

	bcc Done
	bra AnError

wOpTable
	DC.W wDrawText
	DC.W SkipIt
	DC.W wDrawLine
	DC.W wDrawRect
	DC.W wDrawRrect
	DC.W wDrawOval
	DC.W wDrawArc
	DC.W wDrawPoly
	DC.W wDrawRgn
	DC.W wdrawPixel
	DC.W wDrawComment


SkipIt	clc
	rts

	ENDP


	title 'Quickdraw Auxilary pics/STDGETPIC'
****************************************************************
*
* StdGetPic
*
*       DataPtr  :	Ptr       Points to	where data is to
*	          be put.
*
*       Count    :	integer   Number of	bytes to read.
*
* This is the central routine that reads from a picture.
* I think this is the only routine that	knows the interal
* format of the picture.
*
* Note that the count is an integer.  This means that the
* most which can be	read is 64K bytes.	But the picture
* format is such that picture size is not so limited.
*
****************************************************************
iStdGetPic	PROC EXPORT

RTLAdr	equ 1
Count	equ RTLAdr+3
sDataPtr	equ Count+2

;------------------------------------------------------------
;
; Lets first see if	there is anything left to read?
;
	lda PicSize
	sec
	sbc PlayIndex
	tax
	lda PicSize+2
	sbc PlayIndex+2
	bmi NoneLeft
	bne SomeStillLeft
	cpx #0
	bne SomeStillLeft

NoneLeft		;
	ldx #PicEmpty
	bra ERROR

SomeStillLeft		;
;------------------------------------------------------------
;
; Copy the pointer and the count to the	stack frame.
;
	lda sDataPtr,s
	sta TempDataPtr
	lda sDataPtr+2,s
	sta TempDataPtr+2
	lda Count,s
	sta TempCount

;------------------------------------------------------------
;
; Deref the picture
;
	jsr DerefPicToDraw


;------------------------------------------------------------
;
; We know that there is more data to read so we set up
; CurPtr to point to first byte that will be read.
;
MoreLeft		;	  ; so we continue
	lda PicToDrawPtr
	clc
	adc PlayIndex
	sta PicToDrawPtr
	lda PicToDrawPtr+2
	adc PlayIndex+2
	sta PicToDrawPtr+2


;------------------------------------------------------------
;
; Now we move the bytes.  Note here that the count could be
; an odd number so I've written this to work under such
; circumstances.
;
	lda TempCount	; first see if the count is odd
	lsr a
	bcc Even	; no its even

	sep #$30	; move the first byte and
	lda [PicToDrawPtr]
	sta [TempDataPtr]
	rep #$30

	IncLong PicToDrawPtr ; and update the pointers and
	IncLong TempDataPtr	; counters.
	dec TempCount
	inc PlayIndex

Even		;	  ; The remaining is now even
	ldy TempCount	; get how many to move.  If this is
	beq OnlyOneByte	; zero, we are now done.
	dey
	dey
	beq OnlyOneWord	; If its zero now then only 1 word
CopyLoop	lda [PicToDrawPtr],y
	sta [TempDataPtr],y
	dey
	dey
	bne CopyLoop
OnlyOneWord		;	  ; move the last word
	lda [PicToDrawPtr]
	sta [TempDataPtr]

;------------------------------------------------------------
;
; We've read the bytes into the destination and now we
; update the pointer to the next byte to read that is
; kept at the front	of the picture.
;
UpdatePlayIndex		;
	lda PlayIndex
	clc
	adc TempCount
	sta PlayIndex
	bcc NoCarry
	inc PlayIndex+2

NoCarry		;
OnlyOneByte		;
	ldx #0	; signal no error

;------------------------------------------------------------
;
; We are done.  Either there was nothing to read and we
; will signal an error, or we read it all and there is
; no error.  The x register contains what we need to
; determine this.
;

ERROR		;
	lda 1,s	; move rtl adr 6 bytes up stack
	sta 7,s	; to cover parameters
	lda 2,s
	sta 8,s

	pla	; strip off parameters
	pla
	pla

	txa	; put error code in	a reg
	cmp #1	; set carry correctly

	rtl	; done


	ENDP


	title 'Quickdraw Auxilary pics/STDPUTPIC'
****************************************************************
*
* StdPutPic
*
*       DataPtr  :	Ptr       Points to	where data is to
*	          be taken from.
*
*       Count    :	integer   Number of	bytes to put into pic.
*
* This is the central routine that writes to a picture.
* This is one of the few routines that knows the internal
* format of the picture.
*
* Note that the count is an integer.  This means that the
* most which can be	put into a picture at one time is 64K bytes.
* But the picture format is such that picture size is
* not so limited.
*
****************************************************************
iStdPutPic	PROC EXPORT

PicSave	equ 1
CurPtr	equ PicSave+4
OrigD	equ CurPtr+4
RTLAdr	equ OrigD+2
Count	equ RTLAdr+3
TheDataPtr	equ Count+2

OrigHandle	equ CurPtr

	phd

	ldy #o_PicSave+2	; push handle to pic save rec on stack
	lda [PortRef],y
	pha
	dey
	dey
	lda [PortRef],y
	pha

	lda 3,s	; push it on again so can use
	pha	; un referenced handle if
	lda 3,s	; needed to set size.
	pha

	tsc	; turn stack into zp.
	tcd

;------------------------------------------------------------
;
; Deref the PicSave	record.  Don't bother locking
;
	jsr DerefPicSave


;------------------------------------------------------------
;
; Now check to see if there is room in the picture for the
; bytes we have to put in.
;

	ldy #o_PicIndex	; get size of pic
	lda [PicSave],y
	clc
	adc Count
	tax
	iny
	iny
	lda [PicSave],y
	bcc NoCarry1
	inc a
NoCarry1		;	  ; a,x has size needed (high in a)
	ldy #o_PicMax+2
	cmp [PicSave],y
	bcc PlentyRoom
	beq MoreCheck

NeedRoom		;
	tay
	txa
	clc
	adc #PicBumpSize
	tax
	tya
	adc #^PicBumpSize
	pha
	phx

	ldy #o_ThePic+2
	lda [PicSave],y
	pha
	dey
	dey
	lda [PicSave],y
	pha
	_SetHandleSize
	php	; save result status
	pha	; save error code

	jsr DerefPicSave

	pla	; get back error
	plp	; get back status


	bcc PlentyRoom

	tax
	brl Out


MoreCheck		;
	pha
	txa
	dey
	dey
	cmp [PicSave],y
	bcc PlentyRoomB

	tax
	pla
	bra NeedRoom

PlentyRoomB		;
	tax
	pla
PlentyRoom		;



;------------------------------------------------------------
;
; We now know that there is room to put	whatever, so we set	up
; CurPtr to point to first byte in pic that will get
; new info.
;
	ldy #o_ThePic
	lda [PicSave],y
	sta CurPtr
	iny
	iny
	lda [PicSave],y
	sta CurPtr+2

	ldy #2	; deref pic ptr in place
	lda [CurPtr],y
	tax
	lda [CurPtr]
	sta CurPtr
	stx CurPtr+2

;------------------------------------------------------------
;
; Update the count at the front of the picture now.
;
	lda [CurPtr]
	clc
	adc Count
	sta [CurPtr]

; Harry and Mensch
; The compare below was a BVC which clipped the buffer at 32k, since the commants seem to indicate 
; that the max buffer size is 64K we have increased the limit to 64K here by using a bcc instead.
; This fixes most apps which would do a prpixelmap of the entire screen area since most of them 
; required $8064 bytes if the pic buffer to work.
	bcc NoWrap	; if it wraps beyond 64k
	lda #$FFFF	; we peg this count	at 64k
	sta [CurPtr]
NoWrap		;



	ldy #o_PicIndex
	lda [PicSave],y
	clc	; we do full 32 bit	add to create
	adc CurPtr	; pointer to next byte of data.
	sta CurPtr
	iny
	iny
	lda [PicSave],y
	adc CurPtr+2
	sta CurPtr+2

;------------------------------------------------------------
;
; Now we move the bytes.  Note here that the count could be
; an odd number so I've written this to work under such
; circumstances.
;

	lda Count	; first see if the count is odd
	lsr a
	bcc Even	; no its even

	sep #$30	; move the first byte and
	lda [TheDataPtr]
	sta [CurPtr]
	rep #$30

	IncLong TheDataPtr	; and update the pointers and
	IncLong CurPtr	; counters.
	dec Count
	ldy #o_PicIndex
	lda [PicSave],y
	inc a
	sta [PicSave],y
	bne NoCarry2
	iny
	iny
	lda [PicSave],y
	inc a
	sta [PicSave],y
NoCarry2		;


Even		;	  ; The remaining is now even
	ldy Count	; get how many to move.  If this is
	beq OnlyOneByte	; zero, we are now done.
	dey
	dey
	beq OnlyOneWord	; If its zero now then only 1 word
CopyLoop	lda [TheDataPtr],y
	sta [CurPtr],y
	dey
	dey
	bne CopyLoop
OnlyOneWord		;	  ; move the last word
	lda [TheDataPtr]
	sta [CurPtr]

OnlyOneByte		;
;------------------------------------------------------------
;
; We've read the bytes into the destination and now we
; update PicIndex in the PicSave record.
;
	ldy #o_PicIndex
	lda [PicSave],y
	clc
	adc Count
	sta [PicSave],y
	bcc NoCarry
	iny
	iny
	lda [PicSave],y
	inc a
	sta [PicSave],y
NoCarry		;

	ldx #0	; signal no error

;------------------------------------------------------------
;
; We are done.  Either there was nothing to read and we
; will signal an error, or we read it all and there is
; no error.  The x register contains what we need to
; determine this.
;

Out	pla	; strip off 8 bytes	I put on here
	pla
	pla
	pla
	pld	; restore direct reg

	lda 1,s	; move rtl adr 6 bytes up stack
	sta 7,s	; to cover parameters
	lda 2,s
	sta 8,s

	pla	; strip off parameters
	pla
	pla

	txa	; put error code in	a reg
	cmp #1	; set carry correctly

	rtl	; done


;------------------------------------------------------------
;
;
DerefPicSave		;
	ldy #2
	lda [OrigHandle],y
	sta PicSave+2
	lda [OrigHandle]
	sta PicSave
	rts

	ENDP


	title 'Quickdraw Auxilary pics/COMMENTS'
****************************************************************
*
* PicComment
*
*      Kind : integer
*      Size : integer
*      DataHandle :	handle
*
* This is the routine called by an application to put a comment
* into a picture.
*
****************************************************************
iPicComment	PROC EXPORT


OrigD	equ 1
RTL1	equ OrigD+2
RTL2	equ RTL1+3
DataHandle	equ RTL2+3
DataSize	equ DataHandle+4
DataKind	equ DataSize+2


	jsr PicsQDStart

	lda DataKind,s	; move the inputs to zero page
	sta Y1
	lda DataSize,s
	sta X1
	lda DataHandle,s
	sta Y2
	lda DataHandle+2,s
	sta X2

	lda #o_StdComment	; call std play
	jsl CallStdPlay

	tax
	jml BusyErr8


	ENDP


****************************************************************
*
* rDrawComments
*
* This is the routine that is called when we discover a
* comment in the picture.
*
* Change History
*
* 3 Jul 87     SEG
*
* Routine called MyNewHandle instead of	MyWNewHandle as a
* routine running during draw picture should.  Result was
* handle had invalid user id.
*
* Stack was not setup right for CallGetPic.  DestPtr was
* on stack but not the size to read.
*
* Error handling was not cleaning up the stack right at all.
*
* Routine did not know what zero page it had.  It was putting
* information that need to be xfered to	the StdComment routine
* on direct page without switching direct page in.
*
****************************************************************
rDrawComment	PROC EXPORT

	DefineStack
HandleInfo	LONG
SizeInfo	word
KindInfo	word

	jsr GetPicWord	; get the kind
	bcs Error0
	pha
	jsr GetPicWord	; get the size
	bcs Error2
	pha

	jsr MyWNewHandle	; of this size
	bcs Error4

	phx	; put the handle on	the stack
	pha

	sta TempDataPtr	; and in tempDataPtr
	stx TempDataPtr+2
	ldy #4	; so can lock it
	lda [TempDataPtr],y
	ora #$8000
	sta [TempDataPtr],y

	dey	; push deref'ed ptr on stack
	dey
	lda [TempDataPtr],y
	pha
	lda [TempDataPtr]
	pha
	lda SizeInfo+4,s	; get size on stack	again
	pha
	jsl CallGetPic
	bcs Error8

	lda HandleInfo,s	; restore TempDataPtr and
	sta TempDataPtr
	lda HandleInfo+2,s
	sta TempDataPtr+2
	ldy #4	; unlock the handle
	lda [TempDataPtr],y
	and #$7FFF
	sta [TempDataPtr],y

	phd	; switch in quickdraw's dp
	lda QuickDrawD
	tcd
	ply	; hold direct in y so can pull
;		; inputs off the stack
	pla	; first the handle goes in
	sta Y2	; Y2
	pla
	sta Y2+2
	pla	; now the size goes	in X1
	sta X1
	pla	; finally, the kind	goes in Y1
	sta Y1

	pei Y2+2	; put handle back on stack so can
	pei Y2	; get disposed of
	phy	; direct back on stack

	lda #o_StdComment	; call std play
	jsl CallStdPlay

	pld	; restore d page

	plx	; get handle off stack
	ply
	pha	; save error code
	phy	; put handle back on stack and
	phx	; dispose of it.
	_DisposeHandle	; dispose of handle	on stack

	pla
	cmp #0	; fix carry
	rts


Error8	plx	; handle is on stack
	ply
	pha	; save error code
	phy	; dispose of handle
	phx
	_DisposeHandle

	pla	; get back error code
Error4	plx
Error2	plx
	sec	; set carry
Error0	rts	; done


	ENDP


****************************************************************
*
* StdComment
*
*        kind
*        DataSize
*        DataHandle
*
* This is the routine that processes comments.
*
* Change History
*
* 3 Jul 87     SEG
*
* This routine was just calling PutPicStuff and quitting.
* This left the opLongComment op-code in the a-reg and
* made it seem like	an error.
*
* We now look at carry and clear the a-reg if the carry
* is clear.  We return the error code in a-reg if carry
* is set.
*
****************************************************************
iStdComment	PROC EXPORT


	lda #PicLongComment
	jsl PutPictStuff
	bcs Error

	lda #0
Error	rtl

	ENDP




****************************************************************
*
* wDrawComment
*
* This is the routine that eventually gets called after
* someone calls PicComment.
*
****************************************************************
wDrawComment	PROC EXPORT
;------------------------------------------------------------
;
; First I put in the picture field type.
;
	lda #PicLongComment
	jsr PutPicWord
	bcs Error

;------------------------------------------------------------
;
; Next I put in the	DataKind and data size

	lda Y1	; Kind
	jsr PutPicWord
	bcs Error

	lda X1	; Length
	jsr putpicWord
	bcs Error


;------------------------------------------------------------
;
; Finally I put in the comment data itself.
;

	lda Y2
	sta Temp
	lda X2
	sta Temp+2

	jsr LockTemp

	jsr DerefTempToTemp2 ; deref it into temp2

	pei Temp2+2	; prepare to call StdPutPix
	pei Temp2
	pei X1
	jsl CallPutPic
	php	; save error state
	pha	; save error code

	jsr UnlockTemp

	pla	; get back error code
	plp	; get back error state


Error	rts





	ENDP








****************************************************************
*
* LockTemp
*
* Local routine to lock the handle in temp.
*
****************************************************************
LockTemp	PROC EXPORT

	ldy #4	; lock this handle
	lda [Temp],y
	ora #$8000
	sta [Temp],y

	rts

	ENDP

****************************************************************
*
* UnlockTemp
*
* Local routine to unlock the handle in	temp.
*
****************************************************************
UnlockTemp	PROC EXPORT

	ldy #4	; unlock the handle	we locked.
	lda [Temp],y
	and #$7FFF
	sta [Temp],y

	rts

	ENDP


	title 'Quickdraw Auxilary pics/UPDATESTATEREC'
****************************************************************
*
* UpdateStateRec
*
*      input:  a-reg has drawing noun
*              TEMP	has picture handle
*              TEMP2 has picture pointer
*
*
* This is the routine which compares the current graf port
* It is called on only when we know we are about to put a
* drawing command into the picture.
*
* If we add anything to the picture we must be careful to
* deref the handle again.
*
* Change History
*
*   22 May 87   SEG
*
*   The code that was checking the origin was wrong.    It calculated
*   deltaX and deltaY backwards (sign was wrong) and it pushed
*   the two values on the stack backwards.
*
*   Both these problems were diagnosed and found by Luc B.
*
*   19 Jan 88   Steven Glass
*
*   Fixed bug in UpdateStateRec related	to text drawing.
*   When the grafport had no font id in	it, the fontid that	was
*   constructed was	not correct.  The size part of the id was
*   made from the style word in the font header rather than	the
*   size word.
*
****************************************************************
UpdateStateRec	PROC EXPORT


	pha	; save noun on stack

;------------------------------------------------------------
;
; Start looking at the various grafport	fields.
;

	ldy #o_pnVis
	lda [PortRef],y
	cmp #-1
	bpl pen_ok	; any less than -1 we don't bother.

	pla	; pull noun off stack
	clc
	rts	; and quit now

pen_ok		;

;------------------------------------------------------------
;
; We check the clip	region no matter what we are drawing.
;
	pei RgnHandleA+2	; this gets zapped so save it
	pei RgnHandleA

	pha	; make room for function result
	jsr PushRgnPtrs
	_EqualRgn
	pla
	bne WereEqual	; they were equal, nothing to do

	jsr PushRgnPtrs	; not equal so copy	ClipRgn to
	_CopyRgn	; rgn in state record
	bcc NoCopyErr
RgnError	plx	; restore initial values
	stx RgnHandleA
	plx
	stx RgnHandleA+2
	brl Error2

NoCopyErr		;
	jsr PushClipRgn	; now put the clip region in the

	plx	; picture.
	ply
	lda #PicClipRgn
	jsr PutPicRgnB
	bcs RgnError

WereEqual		;
	pla	; restore initial values
	sta RgnHandleA
	pla
	sta RgnHandleA+2

	jsr DerefPicSave	; Temp and Temp2 must be reset

;------------------------------------------------------------
;
; After checking the region, we check to see if the origin has
; changed.
;
	ldy #o_PortRect
	lda [PortRef],y
	ldy #o_PicOrigin
	cmp [Temp2],y
	bne OriginChanged
	ldy #o_PortRect+2
	lda [PortRef],y
	ldy #o_PicOrigin+2
	cmp [Temp2],y
	beq NoOriginChange

OriginChanged		;
	ldy #o_PortRect+2	; new origin goes on the stack
	lda [PortRef],y	; x value first
	pha
	dey
	dey
	lda [PortRef],y
	pha	; now y value

	ldy #o_PicOrigin+2	; old origin goes on the stack
	lda [TEMP2],y	; x value
	pha
	dey
	dey
	lda [TEMP2],y
	pha	; now y value

	lda 5,s	; state record is updated
	sta [TEMP2],y
	lda 7,s
	iny
	iny
	sta [TEMP2],y

;--------------------------------------------------------------
;
; Calculate DeltaY and DeltaX as New-Old
; (Changed 22 May 87:  was Old-New

	lda 5,s	; calculate delta y
	sec
	sbc 1,s
	tax

	lda 7,s	; calculate delta x
	sec
	sbc 3,s

	ply	; clear the stack
	ply
	ply
	ply

;--------------------------------------------------------------
;
; Changed on 22 May	87
; Was pushing delta	Y before Delta X
;
	pha	; push delta x
	phx	; push delta y
	PushWord #PicOrigin
	tsc
	inc a
	pea 0
	pha
	PushWord #6
	jsl CallPutPic

	plx	; remove the 6 bytes from stack
	plx
	plx

	bcc NoOriginError
	brl Error2

NoOriginError	jsr DerefTemptoTemp2 ; re-deref the handle since it may move
NoOriginChange		;

;------------------------------------------------------------
;
; Look at the draw noun and see if it has anything to
; do with text.  If	it does, update the	TextPart of the
; state record.
;
; Text fields to look at include:
;
; Font         -]
; FontID       -]  Treated as one
; FontFlags
; TxSize
; TxFace
; TxMode
; SpExtra
; ChExtra
; FGColor
; BGColor
;
;
	lda 1,s	; draw noun is zero	for text?
	beq CheckTextState

	brl SkipTextState

CheckTextState		;
;------------------------------------------------------------
;
; FontFlags
;

	ldy #o_FontFlags	; look at field in port
	lda [PortRef],y	;
	ldy #o_PicFontFlags	; compare to field in state record
	cmp [TEMP2],y
	beq FontFlags_OK	; if equal then all	done
	sta [TEMP2],y	; else update the state record.
	tax
	lda #PicFontFlags
	jsr PutPicLong
	BranchOnError Error2

	jsr DerefTempToTemp2 ; deref again since it may have moved

FontFlags_ok		;

;------------------------------------------------------------
;
; TxSize
;
	ldy #o_TxSize	; look at field in port
	lda [PortRef],y	;
	ldy #o_PicTxSize	; compare to field in state record
	cmp [TEMP2],y
	beq TxSize_OK	; if equal then all	done
	sta [TEMP2],y	; else update the state record.
	tax
	lda #PicTxSize
	jsr PutPicLong
	BranchOnError Error2

	jsr DerefTempToTemp2 ; deref again since it may have moved

TxSize_ok		;

;------------------------------------------------------------
;
; TxFace
;
	ldy #o_TxFace	; look at field in port
	lda [PortRef],y	;
	ldy #o_PicTxFace	; compare to field in state record
	cmp [TEMP2],y
	beq TxFace_OK	; if equal then all	done
	sta [TEMP2],y	; else update the state record.
	tax
	lda #PicTxFace
	jsr PutPicLong
	BranchOnError Error2

	jsr DerefTempToTemp2 ; deref again since it may have moved

TxFace_ok		;

;------------------------------------------------------------
;
; TxMode
;
	ldy #o_TxMode	; look at field in port
	lda [PortRef],y	;
	ldy #o_PicTxMode	; compare to field in state record
	cmp [TEMP2],y
	beq TxMode_OK	; if equal then all	done
	sta [TEMP2],y	; else update the state record.
	tax
	lda #PicTxMode
	jsr PutPicLong
	BranchOnError Error2

	jsr DerefTempToTemp2 ; deref again since it may have moved

TxMode_ok		;

;------------------------------------------------------------
;
; SpExtra
;
	ldy #o_SpExtra+2	; get high word of font id in x
	lda [PortRef],y
	tax
	dey
	dey
	lda [PortRef],y	; get low word of font id in a
	ldy #o_PicSpExtra
	cmp [TEMP2],y	; compare low word with state record
	bne SpExtraChanged	; not the same so save it
	txa
	iny
	iny
	cmp [TEMP2],y	; check high word
	beq SpExtra_ok	; both ok
	bra SpExtraChanged2	; only high word changed

SpExtraChanged		;
	sta [TEMP2],y
	txa
	iny
	iny
SpExtraChanged2	sta [TEMP2],y

	ldy #o_PicSpExtra+2	; not put the id in	the picture
	lda [TEMP2],y
	pha
	dey
	dey
	lda [TEMP2],y
	pha

	lda #PicSpExtra
	jsr PutPicWord
	BranchOnError Error6

	pla
	plx
	jsr PutPicLong
	BranchOnError Error2

	jsr DerefTempToTemp2 ; Deref again, it may have moved.

SpExtra_OK		;

;------------------------------------------------------------
;
; ChExtra
;
	ldy #o_ChExtra+2	; get high word of font id in x
	lda [PortRef],y
	tax
	dey
	dey
	lda [PortRef],y	; get low word of font id in a
	ldy #o_PicChExtra
	cmp [TEMP2],y	; compare low word with state record
	bne ChExtraChanged	; not the same so save it
	txa
	iny
	iny
	cmp [TEMP2],y	; check high word
	beq ChExtra_ok	; both ok
	bra ChExtraChanged2	; only high word changed

ChExtraChanged		;
	sta [TEMP2],y
	txa
	iny
	iny
ChExtraChanged2	sta [TEMP2],y

	ldy #o_PicChExtra+2	; not put the id in	the picture
	lda [TEMP2],y
	pha
	dey
	dey
	lda [TEMP2],y
	pha

	lda #PicChExtra
	jsr PutPicWord
	BranchOnError Error6

	pla
	plx
	jsr PutPicLong
	BranchOnError Error2

	jsr DerefTempToTemp2 ; Deref again, it may have moved.

ChExtra_OK		;

;------------------------------------------------------------
;
; FGColor
;
	ldy #o_FGColor	; look at field in port
	lda [PortRef],y	;
	ldy #o_PicFGColor	; compare to field in state record
	cmp [TEMP2],y
	beq FGColor_OK	; if equal then all	done
	sta [TEMP2],y	; else update the state record.
	tax
	lda #PicFGColor
	jsr PutPicLong
	BranchOnError Error2

	jsr DerefTempToTemp2 ; deref again since it may have moved

FGColor_ok		;

;------------------------------------------------------------
;
; BGColor
;
	ldy #o_BGColor	; look at field in port
	lda [PortRef],y	;
	ldy #o_PicBGColor	; compare to field in state record
	cmp [TEMP2],y
	beq BGColor_OK	; if equal then all	done
	sta [TEMP2],y	; else update the state record.
	tax
	lda #PicBGColor
	jsr PutPicLong
	BranchOnError Error2

	jsr DerefTempToTemp2 ; deref again since it may have moved

BGColor_ok		;

;------------------------------------------------------------
;
; FontID's are a bit tricky.  If the FontID is zero then
; we put the current fonts ID into the state record rather
; than the ID from the graf port.
;
; We do them last here so that when reading the picture
; back all the other fields of the graf	port will be
; correctly set before I get to the FontID.
;
	ldy #o_FontID	; first look at font id in grafport
	lda [PortRef],y	; if its non-zero then all is well
	iny
	iny
	ora [PortRef],y
	bne IDNotZero
;
; Added 3/15/89 for fastfont compatability
	jsl GetportFontPtr	; get a pointer to the realfont in temp2
	
	ldy #6	; offset of size in	font
	lda [TEMP2],y
	xba	; put into format of FontID
	pha
	ldy #2	; offset of fontid word in font
	lda [TEMP2],y
	pha

	jsr DerefTempToTemp2

	pla
	plx
	bra JoinHere

IDNotZero		;
	ldy #o_FontID+2	; get high word of font id in x
	lda [PortRef],y
	tax
	dey
	dey
	lda [PortRef],y	; get low word of font id in a
JoinHere	ldy #o_PicFontID
	cmp [TEMP2],y	; compare low word with state record
	bne IDChanged	; not the same so save it
	txa
	iny
	iny
	cmp [TEMP2],y	; check high word
	beq FontID_ok	; both ok
	bra IDChanged2	; only high word changed

IDChanged		;
	sta [TEMP2],y
	txa
	iny
	iny
IDChanged2	sta [TEMP2],y

	ldy #o_PicFontID+2	; not put the id in	the picture
	lda [TEMP2],y
	pha
	dey
	dey
	lda [TEMP2],y
	pha

	lda #PicTxFont
	jsr PutPicWord
	BranchOnError Error2

	pla
	plx
	jsr PutPicLong
	BranchOnError Error2

	jsr DerefTempToTemp2 ; Deref again, it may have moved.

FontID_ok		;




SkipTextState		;

;------------------------------------------------------------
;
; Look at the drawing noun and see if it is a object drawn
; with patterns.
;
	lda 1,s
	beq NotPatObj

	cmp #RgnNoun+$10
	bcc PatternObject

NotPatObj	brl SkipPatternObject


PatternObject		;

;------------------------------------------------------------
;
; Here we check the	fields releated to objects drawn with
; patterns.  These are
;
; PnMode   (only for paint, frame and lines)
; ThePat   (a very tricky one)
; DrawingMask
; PenSize  (only if	framing or drawing lines)
; PenLocation (if drawing lines)
;

;------------------------------------------------------------
;
; PnMode
;
	lda 1,s
	cmp #LineNoun
	beq NeedMode

	lda DrawVerb
	beq NeedMode	; need mode for frames
	cmp #PaintVerb	; need mode for paint
	bne PnMode_OK	; don't need mode for anything else.

NeedMode		;
	ldy #o_PnMode	; look at field in port
	lda [PortRef],y	;
	ldy #o_PicPnMode	; compare to field in state record
	cmp [TEMP2],y
	beq PnMode_OK	; if equal then all	done
	sta [TEMP2],y	; else update the state record.
	tax
	lda #PicPnMode
	jsr PutPicLong
	BranchOnError Error2

	jsr DerefTempToTemp2 ; deref again since it may have moved

PnMode_ok		;



;------------------------------------------------------------
;
; PnPat    \
; BkPat     | -- Which one depends on drawing verb
; ThePat   /
;
	lda 1,s	; if it is a line then don't
	cmp #$30	; look at verb.
	bcs NotALine
	stz DrawVerb	; treat like frame

NotALine	lda DrawVerb
	cmp #InvertVerb
	beq ThePat_OK
	cmp #FillVerb
	beq PatInPlace
	cmp #EraseVerb
	bne UsePnPat
	jsl Back2ZP
	bra PatInPlace
UsePnPat	jsl Pen2ZP
PatInPlace		;

	lda DrawVerb
	asl a
	tax
	lda >PatOffsetTable,x
	tay

	ldx #256

	lda DrawVerb	; The fill pattern is always put in
	cmp #FillVerb	; the picture.
	beq DiffPat


ThePatLoop	lda TheFillPat,x
	cmp [TEMP2],y
	bne DiffPat
	inx
	inx
	iny
	iny
	cpx #256+32
	bcc ThePatLoop
	bra ThePat_OK

DiffPat		;	  ; update right pattern in state record
;		; they were same 'til here
PatUpdateLoop	lda TheFillPat,x
	sta [TEMP2],y
	iny
	iny
	inx
	inx
	cpx #256+32
	bcc PatUpdateLoop

	lda DrawVerb
	asl a
	tax
	lda >PatOpTable,x
	jsr PutPicWord
	BranchOnError Error2

	pea 0
	tdc
	clc
	adc #256+TheFillPat
	pha
	PushWord #32
	jsl CallPutPic
	BranchOnError Error2

	jsr DerefTempToTemp2 ; deref again in case it moved.

ThePat_ok		;


;------------------------------------------------------------
;
; PnMask
;
	ldy #o_PnMask
	ldx #o_PicPnMask
PnMaskLoop	lda [PortRef],y
	phy
	txy
	cmp [TEMP2],y
	bne DiffMask
	iny
	iny
	tyx
	ply
	iny
	iny
	cpy #o_PnMask+8
	bcc PnMaskLoop
	bra PnMask_OK

DiffMaskLoop		;
	lda [PortRef],y
	phy
	txy
DiffMask	sta [TEMP2],y	; copy this and all	rest into state
	iny
	iny
	tyx
	ply
	iny
	iny
	cpy #o_PnMask+8
	bcc DiffMaskLoop

	lda #PicPnMask	; now put in picture.
	jsr PutPicWord
	BranchOnError Error2

	lda PortRef
	clc
	adc #o_PnMask
	tax
	lda PortRef+2
	adc #0
	pha
	phx
	PushWord #8
	jsl CallPutPic
	BranchOnError Error2

	jsr DerefTempToTemp2 ; deref again in case it moved.

PnMask_ok		;



;------------------------------------------------------------
;
; PnSize
;
	ldy #o_PnSize+2	; get high word of font id in x
	lda [PortRef],y
	tax
	dey
	dey
	lda [PortRef],y	; get low word of font id in a
	ldy #o_PicPnSize
	cmp [TEMP2],y	; compare low word with state record
	bne PnSizeChanged	; not the same so save it
	txa
	iny
	iny
	cmp [TEMP2],y	; check high word
	beq PnSize_ok	; both ok
	bra PnSizeChanged2	; only high word changed

PnSizeChanged		;
	sta [TEMP2],y
	txa
	iny
	iny
PnSizeChanged2	sta [TEMP2],y

	ldy #o_PicPnSize+2	; not put the id in	the picture
	lda [TEMP2],y
	pha
	dey
	dey
	lda [TEMP2],y
	pha

	lda #PicPnSize
	jsr PutPicWord
	BranchOnError Error6

	pla
	plx
	jsr PutPicLong
	BranchOnError Error2

	jsr DerefTempToTemp2 ; Deref again, it may have moved.

PnSize_OK		;



;------------------------------------------------------------
;
; ArcRot
;
	ldy #o_ArcRot	; look at field in port
	lda [PortRef],y	;
	ldy #o_PicArcRot	; compare to field in state record
	cmp [TEMP2],y
	beq ArcRot_OK	; if equal then all	done
	sta [TEMP2],y	; else update the state record.
	tax
	lda #PicArcRot
	jsr PutPicLong
	BranchOnError Error2

	jsr DerefTempToTemp2 ; deref again since it may have moved

ArcRot_ok		;



SkipPatternObject		;



;------------------------------------------------------------
;
; All done.  Pull noun off stack and rts
;
	pla
	clc
	rtl


Error6	plx
Error4	plx
Error2	plx
	rtl

PatOffsetTable		;         ; frame
	DC.W o_PicPnPat
	DC.W o_PicPnPat
	DC.W o_PicBkPat
	DC.W o_PicFillPat
	DC.W o_PicFillPat

PatOpTable		;           ; frame
	DC.W PicPnPat
	DC.W PicPnPat
	DC.W PicBkPat
	DC.W 0
	DC.W PicThePat


PushRgnPtrs		;
	plx
	ldy #o_ClipRgn+2
	lda [PortRef],y
	pha
	dey
	dey
	lda [PortRef],y
	pha
JoinRgn	ldy #o_PicClipRgn+2
	lda [TEMP2],y
	pha
	dey
	dey
	lda [TEMP2],y
	pha
	phx
	rts

PushClipRgn		;
	plx
	bra joinRgn






	ENDP


**********************************************************************
**********************************************************************
	title 'Quickdraw Auxilary pics/PICUTILS'
	
	EJECT
*******************************************************************************
*
GetportFontPtr	PROC
*
* Description:	This routine derefs the current grafports font handle and
*	returns the derefed version of it in fontHeadPtr. This should
*	be called by any routine that wants to look at the font 
*	record directly. It knows about fast fonts, and it knows how
* 	to use them!
*
* NOTE:	
*
*
* Inputs:	NotMuch
*
* Outputs:	FontHeadPtr
*
* External Refs:
;
; Equates for the fastfont record
;
o_FFAscent	equ 0
o_FFDescent	equ o_FFAscent+2
o_FFMaxWidth	equ o_FFDescent+2
o_FFLeading	equ o_FFMaxWidth+2
o_FFrowBytes	equ o_FFLeading+2
o_oldFontHandle	equ o_FFRowBytes+2
o_StrikeSize	equ o_oldFontHandle+4
o_FFSizeofVars	equ o_StrikeSize+4
o_FFWidthTable	equ o_FFSizeofVars
o_FFOffsetTable	equ o_FFWidthTable+256
o_FFEndOfTables	equ o_FFOffsetTable+512
;
*
* Entry Points:
*
*******************************************************************************
	ldy #(O_font+2)
	lda [PortRef],y	;font handle high word
	bpl standardFont	; if high bit clear we are using a standard font
	
loadStdData
	sta Temp2+2	; get the handle to the fastfont stuff
	ldy #o_font
	lda [PortRef],y
	sta Temp2
	lda [Temp2]	; and deref it... we now have the pointer...
	tax
	ldy #2
	lda [Temp2],y
	sta Temp2+2
	stx Temp2
; Now get the handle to the original font from here!

	ldy #o_oldFontHandle ; offset to the old font..
	lda [Temp2],y	; get the old font handle
	tax
	ldy #o_oldFontHandle+2
	lda [Temp2],y
	sta Temp2+2	; set temp to be the old font handle
	stx Temp2
	bra SF0010	; and branch into standard font stuff
	
standardFont
	sta Temp2+2
	dey
	dey
	lda [PortRef],y
	sta Temp2
;
SF0010
	lda [TEMP2]
	tax
	ldy #2
	lda [TEMP2],y
	sta TEMP2+2
	stx TEMP2
	rtl
	EndP

****************************************************************
*
* MyNewHandle
*
* Routine to return	a new handle of size passed in a-reg
*
* Handle is returned in a,x (a low, x high).
*
****************************************************************
MyNewHandle	PROC EXPORT

	pha	; space for result
	pha
	pea 0	; size
	pha
	pei UserID
	pea 0	; attributes
	pha	; junk for space
	pha
	_NewHandle
	pla
	plx
	rts


	ENDP

****************************************************************
*
* MyWNewHandle
*
* Routine to return	a new handle of size passed in a-reg
*
* Handle is returned in a,x (a low, x high).
*
* This is different	than MyNewHandle in	that QuickDraw's
* zero page is not switched in when it is called.  We
* must work harder to get the
*
****************************************************************
MyWNewHandle	PROC EXPORT

	phd
	tay	; save size in y
	lda QuickDrawD

	Export JoinTrickyNewHandle
JoinTrickyNewHandle


	tcd
	tya	; get size back
	jsr MyNewHandle
	pld

	rts


	ENDP

****************************************************************
*
* DerefPicSave
*
* Takes the PicSave	field and puts it into TEMP.  then
* falls into DerefTempToTemp2.
*
****************************************************************
DerefPicSave	PROC EXPORT

	ldy #o_PicSave
	lda [PortRef],y
	sta temp
	iny
	iny
	lda [PortRef],y
	sta temp+2

; now fall into DerefTempToTemp2

	ENDP

****************************************************************
*
* DerefTempToTemp2
*
* Dereferences the handle in TEMP putting pointer in TEMP2
* Does not lock the	handle since it assumes that no calls which
* would cause it to	move will be made while looking at data.
*
****************************************************************
DerefTempToTemp2	PROC EXPORT

	lda [Temp]	; deref temp to temp2
	sta Temp2
	ldy #2
	lda [Temp],y
	sta Temp2+2

	rts

	ENDP


****************************************************************
*
* DerefTempDataPtr
*
* This routine derefs the handle an TempDataPtr and puts result
* in tempdataptr.
*
****************************************************************
DerefTempDataPtr	PROC EXPORT

	ldy #2
	lda [TempDataPtr],y
	tax
	lda [TempDataPtr]
	sta TempDataPtr
	stx TempDataPtr+2
	rts

	ENDP

****************************************************************
*
* PutPicByte
*
* Puts the byte passed in the a register into the picture.
* If an write error	occurs, the error is returned.
*
****************************************************************
PutPicByte	PROC EXPORT

	pha	; put it on the stack
	tsc	; get stack pointer
	inc a	; one more and it points to word
	pea 0	; high word of pointer to this
	pha	; Now push this
	PushWord #1
	jsl CallPutPic

	plx	; error preserved in a if any
	rts

	ENDP



****************************************************************
*
* GetPicByte
*
* Returns the next byte from picture in	the a register.  If	a read
* error occurs, the	error is returned.
*
****************************************************************
GetPicByte	PROC EXPORT

	pha	; push space on stack for result

	tsc	; get stack pointer
	inc a	; bump by one to get pointer to that
;		; word
	pea 0	; high word of pointer to word
	pha	; low word of pointer to word
	PushWord #1
	jsl CallGetPic
	bcs error

	pla
	and #$00FF
	rts

Error	plx
	rts


	ENDP



****************************************************************
*
* PutPicWord
*
* Puts the word passed in the a register into the picture.
* If an write error	occurs, the error is returned.
*
****************************************************************
PutPicWord	PROC EXPORT

	pha	; put it on the stack
	tsc	; get stack pointer
	inc a	; one more and it points to word
	pea 0	; high word of pointer to this
	pha	; Now push this
	PushWord #2
	jsl CallPutPic

	plx	; error preserved in a if any
	rts

	ENDP



****************************************************************
*
* GetPicWord
*
* Returns the next from picture in the a register.  If a read
* error occurs, the	error is returned.
*
****************************************************************
GetPicWord	PROC EXPORT

	pha	; push space on stack for result

	tsc	; get stack pointer
	inc a	; bump by one to get pointer to that
;		; word
	pea 0	; high word of pointer to word
	pha	; low word of pointer to word
	PushWord #2
	jsl CallGetPic
	bcs error

	pla
	rts

Error	plx
	rts


	ENDP

****************************************************************
*
* PutPicLong
*
* Puts the long passed in the a and x registers into the picture.
* If an write error	occurs, the error is returned.
*
****************************************************************
PutPicLong	PROC EXPORT

	phx
	pha	; put it on the stack
	tsc	; get stack pointer
	inc a	; one more and it points to word
	pea 0	; high word of pointer to this
	pha	; Now push this
	PushWord #4
	jsl CallPutPic

	plx	; error preserved in a if any
	plx
	rts

	ENDP



****************************************************************
*
* GetPicLong
*
* Returns the next Long from picture in	the a and x register.  If a read
* error occurs, the	error is returned.
*
****************************************************************
GetPicLong	PROC EXPORT

	pha	; push space on stack for result
	pha

	tsc	; get stack pointer
	inc a	; bump by one to get pointer to that
;		; word
	pea 0	; high word of pointer to word
	pha	; low word of pointer to word
	PushWord #4
	jsl CallGetPic
	bcs error

	pla
	plx
	rts

Error	plx
	plx
	rts


	ENDP

****************************************************************
*
* GetPicOpCode
*
* Returns the opcode from the picture.	How it reads the opcode
* depends on the version number.  A version number with low
* nibble of 1 implies a 1 byte opcode.	All other verions have
* two byte opcodes.
*
****************************************************************
GetPicOpCode	PROC EXPORT

	lda ThisVersion
	and #$000F
	cmp #1
	beq DoByte

	jsr GetPicWord
	rtl

DoByte	jsr GetPicByte
	rtl

	ENDP


****************************************************************
*
* CallPutPic
*
* This routine transfers control to the	appropriate version
* of PutPic.  It checks the grafprocs and if they exist it
* uses them.  If they don't exist then it jumps directly to
* StdPutPic.
*
* Change History
*
* May 22, 1987  SEG
*
* Some routines were foolishly relying on TEMP2 being preserved
* accross these calls so now I preserve	it.
*
* This problem was diagnosed and found by Luc B.
*
****************************************************************
CallputPic	PROC EXPORT

;	*** Debugging code, 28-Nov-90 DAL
;	*** the pointer to the stuff to put is at 6,s to 9,s
;		pha
;		pha	;pushed 4 bytes return space
;		lda 8+4,s	;high word of input ptr
;		pha
;		lda 6+6,s	;low word ofinput ptr
;		pha
;		_FindHandle
;		phd
;		tsc
;		tcd
;		bcs @bad	;carry from _FindHandle
;		ldy #4	;offset to attributes
;		lda [3],y
;		bmi @okay
;		and #$4300
;		cmp #$4000
;		beq @okay
;	@bad	brk $42
;	@okay	pld	;restore D
;		pla	;pull old stuff
;		pla
;	*** end debug, 28-Nov-90 DAL

	pei Temp2+2	; save Temp2
	pei Temp2

	ldy #o_grafProcs	; start by looking at the
	lda [PortRef],y	; grafprocs pointer.
	sta Temp2	; (put it in temp2 for later
	iny	; use if necessary)
	iny
	lda [PortRef],y
	sta Temp2+2
	ora Temp2	; is it nil
	bne UseGrafProcs	; no, use it

	pla	; restore temp2
	sta Temp2
	pla
	sta Temp2+2

	jml StdPutPic	; is nil so jmp straight to StdPutPics

UseGrafProcs		;	  ; use the graf procs record

	pha	; put 3 bytes on the stack
	phb

OrigTemp2	equ 3+1
NewTemp2	equ 1
RTLAddr	equ 1+4

	lda OrigTemp2,s	; move value of temp 2 3 bytes
	sta NewTemp2,s	; down stack
	lda OrigTemp2+2,s
	sta NewTemp2+2,s

	ldy #o_StdPutPic+1	; get middle and high bytes on stack
	lda [temp2],y
	sta RTLAddr+1,s
	dey	; now get low and middle in a reg
	lda [temp2],y
	sta RTLAddr,s	; overstore low and	middle bytes

	pla	; restore Temp2
	sta Temp2
	pla
	sta Temp2+2

	rtl	; RTL to that address.

	ENDP

****************************************************************
*
* CallGetPic
*
* This routine transfers control to the	appropriate version
* of GetPic.  It checks the grafprocs and if they exist it
* uses them.  If they don't exist then it jumps directly to
* StdGetPic.
*
* Trashes TempDataPtr in play state record
*
****************************************************************
CallGetPic	PROC EXPORT


	ldy #o_grafProcs	; start by looking at the
	lda [CurPortRef],y	; grafprocs pointer.
	sta TempDataPtr	; (put here for later
	iny	; use if necessary)
	iny
	lda [CurPortRef],y
	sta TempDataPtr+2
	ora TempDataPtr	; is it nil
	bne UseGrafProcs	; no, use it


	jml StdGetPic	; is nil so jmp straight to StdPutPics

UseGrafProcs		;	  ; use the graf procs record

	ldy #o_StdGetPic+1	; get middle and high bytes on stack
	lda [TempDataPtr],y
	pha
	dey	; now get low and middle in a reg
	lda [TempDataPtr],y
	phb	; put trash byte on	stack
	sta 1,s	; overstore low and	middle bytes
	rtl	; RTL to that address.

	ENDP



****************************************************************
*
* CallStdPlay
*
* Input:  a-reg has	which std field in graf procs record
*
* This routine transfers control to the	appropriate Std
* drawing routine.
*
* Note:  Even though this routine is called by the play routines
*        it is called after the quickdraw zero page is switched
*        back in so	it uses PortRef and	TEMP2.
*
* Trashes TEMP2 in play state record
*
****************************************************************
CallStdPlay	PROC EXPORT

	pha	; save field

	ldy #o_grafProcs	; start by looking at the
	lda [PortRef],y	; grafprocs pointer.
	sta TEMP2	; (put it here for later
	iny	; use if necessary)
	iny
	lda [PortRef],y
	sta TEMP2+2
	ora TEMP2	; is it nil
	bne UseGrafProcs	; no, use it


	plx
	lda >ProcTable+1,x
	pha
	phb
	lda >ProcTable,x
	sta 1,s
	rtl

UseGrafProcs		;	  ; use the graf procs record
	ply
	iny
	lda [TEMP2],y
	pha
	dey	; now get low and middle in a reg
	lda [TEMP2],y
	phb	; put trash byte on	stack
	sta 1,s	; overstore low and	middle bytes
	rtl	; RTL to that address.



ProcTable		;
	DC.L StdText-1
	DC.L StdLine-1
	DC.L StdRect-1
	DC.L StdRRect-1
	DC.L StdOval-1
	DC.L StdArc-1
	DC.L StdPoly-1
	DC.L StdRgn-1
	DC.L StdPixels-1
	DC.L StdComment-1
	DC.L StdTxMeas-1
	DC.L StdTxBnds-1
	DC.L StdGetPic-1
	DC.L StdPutPic-1


	ENDP







****************************************************************
*
* MapThisPt
*
* Maps the point sitting on the stack above the RTS adr
* from the PicFrame	to the PlayFrame.
*
****************************************************************
MapThisPt	PROC EXPORT
RTSAdr	equ 1
PtToMap	equ RTSAdr+2

	tsc
	clc
	adc #PtToMap
	pea 0
	pha

	jsr PushRectPtrs

	_MapPt

	rts

	ENDP


****************************************************************
*
* MapThisRect
*
* Maps the rect Passed on the stack right above the RTS value
* from the PicFrame	to the PlayFrame.
*
****************************************************************
MapThisRect	PROC EXPORT
RTSAdr	equ 1
RectToMap	equ RTSAdr+2


	tsc	; calculate pointer	to rect to map
	clc
	adc #RectToMap
	pea 0	; high word is 0
	pha	; this is low word

	jsr PushRectPtrs

	_MapRect

	rts

	ENDP



****************************************************************
*
* ScaleThisPt
*
* Scales the point sitting on the stack	above the RTS adr
* from the PicFrame	to the PlayFrame.
*
****************************************************************
ScaleThisPt	PROC EXPORT
RTSAdr	equ 1
PtToScale	equ RTSAdr+2

	tsc
	clc
	adc #PtToScale
	pea 0
	pha

	jsr PushRectPtrs

	_ScalePt

	rts

	ENDP


****************************************************************
*
* PushRectPtrs
*
* This routine pushes pointers to the play and frame rects
* onto the stack.
*
* Both of these rects are in the stack frame that is current
* direct page.
*
****************************************************************
PushRectPtrs	PROC EXPORT

	plx	; put rts adr in x

	lda #0	; make all four words on stack
	pha	; equal to zero
	pha
	pha
	pha

	phx	; put rts adr back on stack


RtsAdr	equ 1	; stack equates
Ptr2	equ RTSAdr+2
Ptr1	equ Ptr2+4

	tdc
	clc
	adc #FromRect
	sta Ptr1,s

	tdc
	clc
	adc #ToRect
	sta Ptr2,s

	rts

	ENDP


****************************************************************
*
* PicsPicsQDStart
*
* This is a local routine that increments the busy flag, saves
* the current direct register on the stack and transfers
* the a register to	the D register.
*
* This is meant to be called at the start of any QD entry point
* that requires zero page and the busy flag to be incremented.
*
* In Doing this we trash the X-Register.  Hopefully this will
* not cause anyone any problems.
*
* We do know that A	and Y must be untouched.  Y for PortWord
* and PortLong.  A for cursor routines that add $100 to A
*
****************************************************************
PicsQDStart	PROC EXPORT

	jsl IncBusyFlg

	phd	; push d on stack
	tcd	; set d
	lda 3,s	; getorig rts
	pha	; put on stack
	lda 3,s	; move orig d to on	top of rts
	sta 5,s
	pla	; pull rts off stack
	sta 1,s	; put over orig d
	tdc	; get QD D back in a
	rts	; done

	ENDP

	
	END

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/QDAux/pixel.asm b/IIGS.601.SRC/GSToolbox/QDAux/pixel.asm
new file mode 100644
index 0000000..583c5b1
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/QDAux/pixel.asm
@@ -0,0 +1 @@
+	title 'QuickDraw Pictures--Slice Part'
****************************************************************
*
* Copyright (C)
* All Rights Reserved
* Apple Computer, Inc. 1986-1989
*
*
* Pictures--Slice Part
*
* This contains the	routines which need	the slice equates.
*
* Change History
*
* Version 2.0    May 8, 1987    Steven E. Glass
*
*    Error handling	added for get and put calls.
*
*
* Version 2.4	27 May 88	Steven E. Glass
*
* Bug in pixel map recording.  If SrcRect was bigger than bounds
* rect, used src rect to determine number of lines to put into 
* picture.  Should have used the adjusted bounds rect.
*
* 6/11/89	Mensch
*
* Remove reference to WideOpen in copybits and make a local version
* of same so that we can properly use pixelmaps in pictures when we call drawpicture.
* I wonder how many more bugs like this we have...
*
****************************************************************


	include 'all.macros'
	include 'special.macros'

	include '::qd:qdequates:core.globals1'
	include '::qd:qdequates:core.globals2'
	include '::qd:qdequates:region.equs'
	include '::qd:qdequates:slice.equs'
	include '::qd:qdequates:qd.data.asm'

	include 'play.equs'


**************************************************
*	Imports	         *
**************************************************

	Import GetPicWord
	Import DerefTempDataPtr
	Import PutPicWord
	Import CallPutPic
	Import PutPicRgnC
	Import CallGetPic
	Import MapThisRect
	Import GetPicRgn
	Import MapThisRgn
	Import MyWNewHandle
	Import CallGetPic
	Import CallStdPlay


**************************************************
*	Entries	         *
**************************************************
	Entry WideOpen
	Entry OtherWideOpen
	Entry MyEqualRgn

****************************************************************
*
* rDrawPixel
*
* The picture contains the following information
*
*      OpCode (already read if gotten here)
*      OrigSCB
*      BW vs Color (0 = color, non zero	= bw)
*      Width of pixels
*      BoundsRect
*      SrcRect
*      DestRect
*      Mode
*      (Rgn if it exists)
*      Image
*
* The color vs bw word is for future enhancement so that we
* can have 640 mode	undithered stretching.
*
* Change History
*
* 12 Dec 88	Steven Glass
*
* The strip routine below moved the stack down instead of up
* when an error occured, causing the system to crash.
*
* 14 Jun 89	Steven Glass
*
* Locked handle being allocated for the pixel image.  This
* prevents it from moving when stdPixels gets memory.
*
****************************************************************
rDrawPixel	PROC EXPORT

	jsr GetPicWord	; get orig SCB
	bcs Error0
	pha

	jsr GetPicWord	; ignore color vs bw indicator
	bcs Error2

	jsr GetPicWord	; get the SrcWidth out of pic
	bcs Error2
	pha

	pha	; src bounds
	pha
	pha
	pha
	tsc
	inc a
	pea 0
	pha
	PushWord #8
	jsl CallGetPic
	bcs Error12

	pha	; src rect
	pha
	pha
	pha
	tsc
	inc a
	pea 0
	pha
	PushWord #8
	jsl CallGetPic
	bcs Error20

	pha	; DestRect
	pha
	pha
	pha
	tsc
	inc a
	pea 0
	pha
	PushWord #8
	jsl CallGetPic
	bcs Error28

	jsr MapThisRect	; now map the dest rect

	jsr GetPicWord	; Get transfer mode
	bcs Error28
	pha
	bra SkipErrors


Error36		;
	ldx #36
	bra Strip

Error32		;
	ldx #32
	bra Strip

Error28		;
	ldx #28
	bra Strip

Error20		;
	ldx #20
	bra Strip

Error12		;
	ldx #12

Strip		;
	pha	; save error code on stack
	phx	; save amount to strip on stack
	tsc
	clc
	adc 1,s
	plx	; get amount to strip off stack
	plx	; get error code
	tcs	; adjust stack
	txa	; fix a-reg
	sec	; set carry

Error0	rts

Error2	plx
	rts


SkipErrors		;
;----------------------------------------------------------
;
; Now deal with the	mask rgn (if any)
;
	PushLong #WideOpen	; start by assuming	this


	lda OpCodeToDo
	and #$0001
	beq NoRgn

	jsr GetPicRgn	; get the region
	bcs Error32
	phx	; Put handle on stack
	pha
	sta 5,s	; and store over WideOpen handle
	txa
	sta 7,s

	jsr MapThisRgn
	bcs Error36

NoRgn		;
	phd	; switch to Quickdraw's zp to
	lda QuickDrawD	; figure out how much memory
	tcd	; we need to hold pixel map.

	jsl PortLoc2ZP

	ply	; put orig d in y

	pla
	sta RgnHandleC
	pla
	sta RgnHandleC+2

	pla
	sta XferMode

	pla
	sta DestRect
	pla
	sta DestRect+2
	pla
	sta DestRect+4
	pla
	sta DestRect+6

	pla
	sta SrcRect
	pla
	sta SrcRect+2
	pla
	sta SrcRect+4
	pla
	sta SrcRect+6

	pla
	sta SrcBounds
	pla
	sta SrcBounds+2
	pla
	sta SrcBounds+4
	pla
	sta SrcBounds+6

	pla
	sta SrcWidth

	pla	; get orig SCB
	and #$0080
	beq OrigWas320

	lda DestSCB
	and #$0080
	bne NoAdjust

	lsr SrcRect+2
	lsr SrcRect+6
	lsr SrcBounds+2
	lsr SrcBounds+6

	bra NoAdjust

OrigWas320		;
	lda DestSCB
	and #$0080
	beq NoAdjust

	asl SrcRect+2
	asl SrcRect+6
	asl SrcBounds+2
	asl SrcBounds+6

NoStretchRgn		;
NoAdjust		;
	lda SrcBounds+4	;
	sec
	sbc SrcBounds
	ldx SrcWidth

	phy
	pld	; switch back to actually multiply

	pha	; space for result
	pha
	pha
	phx
	_Multiply
	lda 1,s	; get handle of this size
	jsr MyWNewHandle	; but leave size on	stack
	bcs Error4NH	; changed name to signify uniqueness

	sta TempDataPtr	; put handle here and save on stack
	stx TempDataPtr+2
	phx
	pha

;-----------------------------------------------------------
;
; Lock this memory because it could move when calling
; std pixels.
;
; SEG 14 Jun 89
;
	ldy #4
	lda [TempDataPtr],y
	ora #$8000
	sta [TempDataPtr],y

;
; End 14 Jun 89 Fix
;-----------------------------------------------------------



	jsr DerefTempDataPtr

	pei TempDataPtr+2	; read data out of picture
	pei TempDataPtr
	lda 9,s
	pha
	jsl CallGetPic
	bcs Error8

	lda 1,s	; get handle again
	sta TempDataPtr
	lda 3,s
	sta TempDataPtr+2

	jsr DerefTempDataPtr ; deref again

	ldx QuickdrawD	; put pointer to data in QD's zp
	lda TempDataPtr
	sta >SrcPixelMapRef,x
	lda TempDataPtr+2
	sta >SrcPixelMapRef+2,x

	phd	; switch to QD's zp
	txa
	tcd

	lda DestSCB	; force SrcSCB to be same as DestSCB
	sta SrcSCB

	jsl SetupPortRegions

	lda #o_StdPixels	; display it
	jsl CallStdPlay

	lda RgnHandleC
	cmp #WideOpen
	bne MustDisposeRgn
	lda RgnHandleC+2
	cmp #^WideOpen
	beq NoDisposeRgn

MustDisposeRgn	pei RgnhandleC+2
	pei RgnHandleC
	_Disposehandle

NoDisposeRgn		;
	pld	; back to play direct page

	_DisposeHandle

	pla	; get rid of handle	size from
	pla	; stack

	rts


Error8		;
	ldx #12
	brl Strip

;
; 9/6/90	Mensch
; The above strip code seems to have been modified to yank 12 bytes instead of 8 bytes.
; Andy found a bug where when this Error4 was called the wrong number of bytes was being
; yanked off the stack. So, I am going to first assume that Error8 was fixed right and error 
; 4 was not (see the code for details..). In order for this to work right we must also force
; an error message into <A> so that the picture is exited properly.
Error4NH	ldx #8	; was ldx #4
	lda #$0201	; since this is only after new handle, say out of memory
	brl Strip


	Export Rect320
Rect320
	DC.W 0,0,200,320
	Export Rect640
Rect640		;
	DC.W 0,0,200,640

	ENDP






****************************************************************
*
* wDrawPixel
*
* We will put the following information	in the picture
*
* Opcode	          (2 bytes)
* Adjusted Row Bytes          (2 bytes)
* Adjusted Bounds Rect        (8 bytes)
* SrcRect	          (8 bytes)
* DestRect	          (8 bytes)
* Mode	          (2 bytes)
* MaskRgn (if any)	          (rgn size	bytes)
* Bitmap data	          (x rows of byte data)
*
* In deciding how much information to save we are faced with a
* little work.  The	source pixel map may have a bunch of unneeded
* information around the source rect.	See image below
*
* .......................................
* .......................................
* .........-----------...................
* .........!.........!......unusefull....
* .........!..good...!.......data........
* .........!..data...!...................
* .........!.........!...................
* .........-----------...................
* .......................................
*
* We can easily throw away the unused slices above and below the
* image.  A little more difficult is the data to the left and
* right of the image.
*
* We can do this fairly easily by only putting into the picture
* the bytes containing used data.
*
****************************************************************
* wDrawPixel     START
wDrawPixel	PROC EXPORT


;----------------------------------------------------
;
; Reserve Space on the stack for the adjusted
; src bounds rect and the adjusted width
	pei SrcBounds+6
	pei SrcBounds+4
	pei SrcBounds+2
	pei SrcBounds
	pei SrcWidth


sAdjWidth	equ 1
AdjBounds	equ 3
CurLinePtr	equ MinRect	; these are temporary re-use of
AdjWidth	equ CurLinePtr+4	; the min rect
NumLines	equ AdjWidth+2

;----------------------------------------------------
;
; Look at src rect and bounds rect and see if there
; are any lines we can skip
;

	lda SrcPixelMapRef
	sta CurLinePtr
	lda SrcPixelMapRef+2
	sta CurLinePtr+2

	lda SrcRect
	sec
	sbc SrcBounds
	beq NoTopSkip


	pha	; space for result
	pha
	pha
	pei SrcWidth
	_Multiply
	pla
	clc
	adc CurLinePtr
	sta CurLinePtr
	pla
	adc CurLinePtr+2
	sta CurLinePtr+2

	lda SrcRect	; adjust the bounds	rect on stack
	sta AdjBounds,s

NoTopSkip		;
	lda SrcRect+4
	cmp SrcBounds+4
	bpl BotOK
	sta AdjBounds+4,s
BotOK		;

;----------------------------------------------------
;
; CurLinePtr now points to first scan line in pixel map
; that we will save	from.  Now lets see	if we can
; save fewer than SrcWidth bytes per scan line.
;
; Start by seeing if we start with the first
; byte of first scan line.  If not add the offset
; to CurLinePtr
;
	lda SrcRect+2
	sec
	sbc SrcBounds+2
	lsr a
	bit SrcSCB-1
	bpl Mode320_1
	lsr a
Mode320_1		;	  ; this is offset of byte having first
	pha	; pixel in it (save	this a minute)
	clc
	adc CurLinePtr
	sta CurLinePtr
	bcc NoCarry1
	inc CurLinePtr+2
NoCarry1		;
	lda 1,s	; now adjust the left edge of
	asl a	; the bounds rect
	bit SrcSCB-1
	bpl Mode320_2
	asl a
Mode320_2	clc
	adc AdjBounds+2+2,s
	sta AdjBounds+2+2,s

;----------------------------------------------------
;
; Now I calculate how many bytes per scan line to
; save.
;
	lda SrcRect+6	; calculate the offset to byte having
	dec a	; last pixel in it (dec for qd's rep 
	sec	; of rects)
	sbc SrcBounds+2
	lsr a
	bit SrcSCB-1
	bpl Mode320_3
	lsr a
Mode320_3		;	  ; Width = Last - First + 1
	sec	;
	sbc 1,s	;
	plx	; get rid of value on stack 
	inc a	;
	sta AdjWidth	; put on zp and on stack
	sta sAdjWidth,s

	lda SrcRect+6
	cmp SrcBounds+6
	bpl RightOK
	sta AdjBounds+6,s
RightOK		;

;----------------------------------------------------
;
; Finally, I calculate the number of scan lines to
; save.
;
	lda AdjBounds+4,s	; changed 27 May 88, SEG to use 
	sec	; adjusted bounds instead of SrcRect
	sbc AdjBounds,s	; End Change
	sta NumLines

;----------------------------------------------------
;
; The calculations are done so lets save the sucker.
; First, I must decide if this is an OpBitsRect
; or an OpBitsRgn.	To make this decision, I look at
; the rgn in RgnHandleC.  If this rgn is the WideOpen
; rgn, then we use the Rect op code.  If it is not
; the wideopen rgn,	then the poor fool who made this
; call is trying to	clip the pixel map to a mask rgn
;
; Now you would think that the easiest way to decide
; if the wide open rgn was in RgnHandleC would be
; to compare RgnHandleC to WideOpen.  This is how
; we almost shipped	version 1.0.  Unfortunately
; it does not quite	work and may ORCA spend many
; many, many, many,	many, many, many, many, many, many
; many, many years in purgatory for it.
;
; The source for ROM version 1.0 has the following code in it
;          WideOpen	dc i4'There'
;	ds 2
;          There	dc i'-32767/2,-32767/2,32767/2,32767/2'
;
; The source for ROM version 2.0 has the following code in it
;          WideOpen	dc i4'There'
;	ds 2
;          There	dc i'-32767/2,-32767/2,32767/2,32767/2'
;
; THE ROMS DO NOT HAVE THE SAME VALUES IN THEM FOR WIDE OPEN
; BECAUSE THE ASSEMBLER CHANGED FROM VERSION 1.0 TO VERSION	2.0.
;
; There was a bug in the assembler we used to make ROM 1.0.	 -32767/2
; became $C000.  It	should be $C001.
;
	PushLong #WideOpen
	PushLong RgnHandleC
	jsr MyEqualRgn
	bcs ItsOpBitsRect

	PushLong #OtherWideOpen
	PushLong RgnHandleC
	jsr MyEqualRgn
	bcs ItsOpBitsRect

	lda #PicBitsRgn
	bra PutOpCode

ItsOpBitsRect	lda #PicBitsRect
PutOpCode	pha	; save it on the stack
	jsr putpicword	; and put it in the	picture
	bcs Error12

;----------------------------------------------------------
;
; Now put in the orig SCB
;
	lda SrcSCB
	jsr PutPicWord
	bcs Error12

;----------------------------------------------------------
;
; Next the color vs	bw indicator.
;
	lda #0
	jsr PutPicWord
	bcs Error12

; put adjusted width and bounds rect.

	tsc
	inc a
	inc a
	inc a
	pea 0
	pha
	PushWord #10
	jsl CallPutPic
	bcs Error12

	ply	; this is copy of opcode
	pla	; clean the ten bytes off the stack
	pla
	pla
	pla
	pla
	phy	; put it back

; SrcRect
	tdc
	clc
	adc #SrcRect
	pea 0
	pha
	PushWord #8
	jsl CallPutPic
	bcs Error2


; DestRect
	tdc
	clc
	adc #DestRect
	pea 0
	pha
	PushWord #8
	jsl CallPutPic
	bcs Error2

	bra GoToMode


Error12	plx
	plx
	plx
	plx
Error4	plx
Error2	plx
Error0	rts


GoToMode		;

; Mode
	lda XferMode
	jsr PutPicWord
	bcs Error2

; Region if PicBitsRgn
	pla
	cmp #PicBitsRect
	beq NotARegion

	ldx RgnHandleC
	ldy RgnHandleC+2
	jsr PutPicRgnC
	bcs Error0

NotARegion		;
; Finally the data
	lda NumLines
	beq None

PixelMapLoop		;
	pei CurLinePtr+2	; point to current
	pei CurLinePtr
	pei AdjWidth
	jsl CallPutPic
	bcs Error0

	lda CurLinePtr
	clc
	adc SrcWidth
	sta CurLinePtr
	bcc NoCarry2
	inc CurLinePtr+2
NoCarry2		;

	dec NumLines
	bne PixelMapLoop

None
; If we get this far we know no error has occured, so clear the carry to indicate that no error
; has occured.
	clc
	rts

	ENDP


*****************************************************************
*
* MyEqualRgn
*
*****************************************************************
* MyEqualRgn     START
MyEqualRgn	PROC EXPORT

	definestack
OrigD	word
RtsAdr	word
Rgn1	long
Rgn2	long

	phd
	tsc
	tcd

	lda [Rgn1]
	tax
	ldy #2
	lda [Rgn1],y
	sta Rgn1+2
	stx Rgn1

	lda [Rgn2]
	tax
	lda [Rgn2],y
	sta Rgn2+2
	stx Rgn2

	lda [Rgn1]
	cmp [Rgn2]
	bne NotEqual

	tay
	dey
	dey
Loop	lda [Rgn1],y
	cmp [Rgn2],y
	bne NotEqual
	dey
	dey
	bne Loop

	sec

GetOut	pld
	ply
	pla
	pla
	pla
	pla
	phy
	rts


NotEqual	clc
	bra GetOut

	ENDP


* OtherWideOpen  START
OtherWideOpen	PROC EXPORT


	DC.L There
	DS.B 2
There
	DC.W 10,$C000,$C000,$3FFF,$3FFF

	ENDP

****************************************************************
*
* WideOpen
*
* This is a fake region containing a bounding box equal
* to the potential drawing space.
*
****************************************************************
WideOpen	PROC 


	DC.L There
	DS.B 2
There
	DC.W 10

	DC.W -MaxInt,-MaxInt,MaxInt,MaxInt

	ENDP



	END

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/QDAux/play.equs b/IIGS.601.SRC/GSToolbox/QDAux/play.equs
new file mode 100644
index 0000000..fa2709f
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/QDAux/play.equs
@@ -0,0 +1 @@
+ModeChangedFlag equ 1
ToRect         equ ModeChangedFlag+2
FromRect       equ ToRect+8
SavePortHandle equ FromRect+8
PicSize        equ SavePortHandle+4
PlayIndex      equ PicSize+4
PicToDrawPtr   equ PlayIndex+4
TempDataPtr    equ PicToDrawPtr+4
TempCount      equ TempDataPtr+4       ; should this be word or long?

OpCodeToDo     equ TempCount+4

TheRect        equ OpCodeToDo+2         ; all these will be initialized to
OvalSize       equ TheRect+8            ; zero
PenLoc         equ OvalSize+8
TextLoc        equ PenLoc+4

CurPortRef     equ TextLoc+4
TheClip        equ CurPortRef+4
UserClip       equ TheClip+4

ThisFontID     equ UserClip+4
ThisTextFace   equ ThisFontID+4
ThisTextSize   equ ThisTextFace+2

ThisVersion    equ ThisTextSize+2

QuickDrawD     equ ThisVersion+2
CallersD       equ QuickDrawD+2
CallersRTL1    equ CallersD+2
CallersRTL2    equ CallersRTL1+3
ToRectPtr      equ CallersRTL2+3
PicToDrawH     equ ToRectPtr+4
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/QDAux/qdaux.asm b/IIGS.601.SRC/GSToolbox/QDAux/qdaux.asm
new file mode 100644
index 0000000..be13b36
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/QDAux/qdaux.asm
@@ -0,0 +1 @@
+	title 'Quickdraw Auxilary QDAux/MAIN'
****************************************************************
*
*	 Copyright (C) 1986-1992
*	 Apple Computer, Inc.
*	 All Rights Reserved
*
****************************************************************

****************************************************************
*
* Quickdraw Auxilary Version 3.2
*
* Steven E. Glass
* Bennet Marks
* Art Cabral
*
* Version 1.0    April 12, 1987
*
* Version 2.0    May 8, 1987
*
* Version 2.1    May 22, 1987   Steven Glass
*
*   Fixed bug in origin handling in pictures and changed
*   CallPutPic so it would not trash TEMP2 (a location relied
*   upon by various	routines like the one that puts round
*   rects into pictures.
*
* Version 2.2    Jun 05, 1987   Steven Glass
*
*   Fixed bug in copy pixels where right edge of image was often the
*   wrong color when image was reduced by more than 2 : 1.	Problem was
*   with fix ratio calculation of horizontal error term. Both the numerator
*   and denominator	were 0 based values	rather than the 1 based values
*   expected.
*
* Version 2.3    
*
*   Oct 14, 1987	Gary Phipps
*
*   Fixed bug in picture drawing routines that handled the chextra opcode.
*
*   18 Dec 87   Steven Glass
*
*   Fixed bug in drawpicture that left fonts used in non-purgable
*   state.
*
*   20 Dec 87   Steven Glass
*
*   Added SpecialRect, a routine to frame and fill a rectangle
*   in a single call quickly and easily.
*
*   18 Jan 88   Steven Glass
*
*   Fixed bug in DrawPicture related to	pen size for
*   pictures that are scaled.
*
*   19 Jan 88   Steven Glass
*
*   Fixed bug in UpdateStateRec related	to text drawing.
*   When the grafport had no font id in	it, the fontid that	was
*   constructed was	not correct.  The size part of the id was
*   made from the style word in the font header rather than	the
*   size word.
*
*   18 Apr 88   Dan Oliver and Harry Yee   v2.4d2
*   
*   Some applications would load QDAux (i.e. Notes 'n' Files)  but never actually start it up.
*   This caused problems for the control, window, and menu managers who
*   made the call to SpecialRect.  Because QDAux is loaded but not started up, its
*   WAP is incorrect (set to 0).  Therefore code was put in at the very start of 
*   SpecialRect to check, if the WAP is 0 then set a-reg to 1 (tool not found) set  
*   carry and exit else go on.
*
*   Fixed bug in SpecialRect where from QDStart the busy flag was being incremented but
*   upon leaving SpecialRect it was never decremented. Fixed
*
*   05 May 88   Harry Yee   v2.4d3
*
*   Problem in DrawPicture (pics.asm) where _InstallFont is being called when 
*   Font Manager is not even loaded. (Happens in Finder when 'Show Clipboard'
*   is selected after a picture has been copied to the clipboard.) Fixed it by
*   just checking carry after InstallFont is called and cleaning up stack if 
*   an error did occurr and then going on.
*
*   17 May 88	Steven Glass
*
*   Fixed bug in SpecialRect relating to top and bottom lines not
*   begin colored.  Also sped up drawing routines.
*
*   Changed fix to busy flag by removing decrement and fixing
*   BusyEC8 below.
*
*   15 Jun 88	Harry Yee
*
*   Prototype bit taken out of version number.($0204)
*
* Version 2.5
*
*   Bugs, fixed, version changed.  Docs in Projector.
*
* Version 2.6
*
*   19 Sep 88	Sue Dumont
*
*   Added SeedFill and CalcMask
*
*   15 May 89	Steven Glass
*
*   Broke tool into 4 segments: main, pictures, stretch and
*   seedfill.  This makes the main footprint in memory much
*   smaller.
*
*   Added dummy code that jml's into the real code through
*   the jump tables.
*   
*   Brought part of PutPictStuff into this file so it would not
*   force the load of the picture code unless a picture was
*   being saved.
*
* 31 May 89	Harry Yee
*
* Change version number from $8206 to $0300.
*
* 24-Sep-90	Dave Lyons
*
* Changed version number to $8303.  (See comments in other files.)
*
* 27-Nov-90	Dave Lyons
*
* Changed version to $0303 for 5.0.4.
*
* 10-Dec-90	Dave Lyons
*
* Changed version to $8304 for 6.0.  (Checked in fix for DrawPicture
* bombing on invalid picture opcodes.)
*
* 4-Jan-91	Dave Lyons
*
* Made DrawPicture disable FastPort features (see pics.asm).
*
* 10-Jan-91	Dave Lyons
*
* Added new call $0F12 GetSysIcon to centralize all those little
* small icons for devices and folders and documents used in
* Standard File, Find File, and Installer.  InsertPathMItems
* will use this call, too.
*
* 12-Jan-91	Dave Lyons
*
* Redefined flag bits for GetSysIcon so I can have a "misc"
* category in addition to files and devices.  Added icons
* for Desktop, Padlock, Up Arrow, Down Arrow, and Boxed
* Down Arrow.
*
* 14-Jan-91	Dave Lyons
*
* Moved the open-folder icon up one pixel so it looks okay in
* menu items.
*
* Widened the boxed-down-arrow icon so it looks more like the
* regular down arrow icon.
*
* Widened the Desktop icon so it's the same width as the folders
* and disks.
*
* 15-Jan-91	Dave Lyons
*
* Making the closed folder yellow.  Adding a CD-ROM icon.
*
* 17-Jan-91	Dave Lyons
*
* Fixed up the little 3.5 Disk icon and added a new "gray 3.5"
* icon to return for Device_ID $FFFF (used by InsertPathMItems
* for offline volumes).
*
* 19-Jan-91	Dave Lyons
*
* Added three calls from the DTS Libraries and Tools source:
* PixelMap2Rgn, NewPort, and KillPort (by Eric Soldan).  Fiddled
* with the stack-cleanup routines to work as tools and use ToStrip.
*
* 19-Jan-91	Dave Lyons
*
* Added new call $1312 IBeamCursor, stolen from FakeModalDialog,
* to set the cursor to an IBeam cursor.  There is only one
* version now, but we may need a 320-mode version later.
*
* 14-Feb-91 am	Dave Lyons
*
* Changed name of GetOSIcon to GetSysIcon.
* Changed IBeamCursor to use rCursor resource $07FF0001 instead
* of hard-coding our own picture of it here.
*
* 14-Feb-91 pm	Dave Lyons
*
* Added WhooshRect call to animate zooming rectangles (stolen
* from the Finder, code originally by Andy Stadler, later
* modified by Dan Oliver and then Andy Nicholas).
*
* 15-Feb-91	Dave Lyons
*
* WhooshRect bit 30 now makes it *not* force the Window Manager
* port.
*
* 25-Feb-91	Dave Lyons
*
* Made NewPort/KillPort stuff conditional assembly, and conditioned
* it out.  (It's more useful as sample code than part of the toolbox.)
*
* 9-Mar-91	Dave Lyons
*
* Changed WhooshRect to return right away if either rectangle pointer
* is NIL.  And now it calls SysBeep2($8040) for whoosh-open, $8041
* for whoosh-closed.
*
* Defined WhooshRect bit 29 = no sound.
*
* 14-Mar-91	Dave Lyons
*
* IBeamCursor uses  rCursor $07FF0001 for 640, $07FF0101 for 320.
* Moved the GetSysIcon document icon one pixel to the left.
* Removed gray shading from the regular 3.5 disk icon.
* Fixing RAMDisk coloring so I can draw it at an even X coordinate.
*
* 5-Apr-91	Dave Lyons
*
* Changed PixelMap2Rgn so that it works okay if you include black
* as one of the colors you want in your region.
*
* Note: The boundsRect of the locInfo must not have negative
*       coordinates, or it won't work right.
*
* 23-Jun-91	Dave Lyons
*
* In PixelMap2Rgn, covered additional rectangular-region case.
* It was working okay if the region turned out to be rectangular
* and the bottom matched the bottom of the bounds rectangle, but
* if we hit the bottom of the region sooner, we didn't wind up
* with a 10-byte region.
*
* 26-Aug-91	Dave Lyons
*
* Fix colors on GetSysIcon's AppleShare icon.  There are now
* separate versions for 640/320, and the colors match the large
* icons now used by Finder/EasyMount/AppleShare CP.
*
* 29-Sep-91	Dave Lyons
*
* Add a GetSysIcon icon for HyperMedia documents (file type $55).
*
* 9-Dec-91	Dave Lyons
*
* Put in real non-rectangular masks for the up-arrow and down-
* arrow icons (in GetSysIcon).
*
* 5-Feb-92	Dave Lyons
*
* Version $0304 for 6.0 final.
*
*****************************************************************
*
* BEGIN 6.0.1
*
* 5-Mar-92	Dave Lyons
*
* Version $8305 for 6.0.1d2.
*
* Adding DrawStringWidth call.
*
* 6-Mar-92	Dave Lyons
*
* Saved 2 bytes in IBeamCursor (ORA #1 --> INC A).
*
* 11-Mar-92	Dave Lyons
*
* Added new GetSysIcon icons from Andy Nicholas for TXT, SRC, BAS,
* archive, and BIN.
*
* Implemented DrawStringWidth.
*
* 12-Mar-92	Dave Lyons
*
* Oops, got the left and right truncation codes backwards from
* how I wanted them.
*
* 3-Sep-92	Dave Lyons
*
* Made GetSysIcon expandable by calling SendRequest.  If somebody
* accepts the request, they get to provide the icon, overriding
* what we would do. -- If this proves to be too slow, I'll take it
* back out.
*
* 16-Mar-93	Dave Lyons for 6.0.1d15
*
* Added UseColorTable and RestoreColorTable.
*
* 1-Apr-93	Steve Stephenson
*
* Version $0305 for 6.0.1 (final)
*
*****************************************************************

	blanks off

	include 'all.macros'
	include 'special.macros'
	include 'E16.Memory'
	include 'E16.Resources'

DebugSymbols	equ 0

NewPortKillPort	equ 0

*** From E16.QuickDraw (for the NewPort/KillPort stuff)
; offset constants for GrafPort
oportInfo	equ 0
oportRect	equ 16	; PortRect
oclipRgn	equ 24	; Clip Rgn. Pointer
ovisRgn	equ 28	; Vis. Rgn. Pointer
obkPat	equ 32	; BackGround Pattern
opnLoc	equ 64	; Pen Location
opnSize	equ 68	; Pen Size
opnMode	equ 72	; Pen Mode
opnPat	equ 74	; Pen Pattern
opnMask	equ 106	; Pen Mask
opnVis	equ 114	; Pen Visable
ofontHandle	equ 116
ofontID	equ 120	; Font ID
ofontFlags	equ 124	; FontFlags
otxSize	equ 126	; Text Size
otxFace	equ 128	; Text Face
otxMode	equ 130	; Text Mode
ospExtra	equ 132	; Fixed Point Value
ochExtra	equ 136	; Fixed Point Value
ofgColor	equ 140	; ForeGround Color
obgColor	equ 142	; BackGround Color
opicSave	equ 144	; PicSave
orgnSave	equ 148	; RgnSave
opolySave	equ 152	; PolySave
ografProcs	equ 156
oarcRot	equ 160	; ArcRot
ouserField	equ 162	; UserField
osysField	equ 166	; SysField

; offset constants for LocInfo
oportSCB	equ 0
optrToPixImage	equ 2
owidth	equ 6
oboundsRect	equ 8

*** From E16.Types
; offset constants for Rect
ov1	equ 0
oh1	equ 2
ov2	equ 4
oh2	equ 6

; Equates from file	QDAUX.ASM

** ToolNumber	equ 18

QDAuxVersion	equ $0305	;1-Apr-93 SS
QDAuxToolNum	equ 18
QDToolNum	equ 4

	include 'QDAuxEquates.asm'	;added 12-Jan-91 DAL

	include '::qd:qdequates:core.globals1'
	include '::qd:qdequates:core.globals2'
	include '::qd:qdequates:region.equs'
	include '::qd:qdequates:rect.equs'


	include '::qd:qdequates:qd.data.asm'

	include '::sys.equs.asm'

**************************************************
*	Imports	         *
**************************************************

	Import BusyErr
	Import BusyEC
	Import EndCall
	Import ErrOut
	Import DisposeTB2
	Import RestoreTextVectors
	Import oEndCall
	Import PSetTB2
	Import PGetTB2Handle
	Import SetupTextVectors
	Import iStdPixels
	Import iPicComment
	Import iStdPutPic
	Import iStdGetPic
	Import iKillPicture
	Import iDrawPicture
	Import iClosePicture
	Import iOpenPicture
	Import iPutPictStuff
	Import iStdComment
	Import DrawIcon
	Import CopyBits
	Import SpecialRect

**************************************************
*	Entries	         *
**************************************************

	Entry TheWatch320
	Entry TheWatch640
	Entry OrigStdPixels
	Entry OrigPicComment
	Entry OrigStdPutPic
	Entry OrigStdGetPic
	Entry OrigKillPicture
	Entry OrigDrawPicture
	Entry OrigClosePicture
	Entry OrigOpenPicture
	Entry OrigPutPictStuff
	Entry OrigStdComment
	Entry WaitCursor
	Entry Reset
	Entry Version
	Entry QDAuxShutdown
	Entry QDAuxStartup
	Entry BootInit
	Entry QDAuxStatus

	title 'Quickdraw Auxilary pics/CALL.TABLE'
TheCallTable	PROC EXPORT
	import FakeSeedFill
	import FakeCalcMask
	import FakeCopybits
	import GetSysIcon
	import PixelMap2Rgn		;19-Jan-91 DAL
	import NewPort		;19-Jan-91 DAL
	import KillPort		;19-Jan-91 DAL
	import WhooshRect		;14-Feb-91 DAL

TheBeginning
	DC.L (TheEnd-TheBeginning)/4
	DC.L BootInit-1		;$0112
	DC.L QDAuxStartup-1		;$0212
	DC.L QDAuxShutdown-1	;$0312
	DC.L Version-1		;$0412
	DC.L Reset-1		;$0512
	DC.L QDAuxStatus-1		;$0612
	DC.L Reset-1		;$0712
	DC.L Reset-1		;$0812
	DC.L FakeCopyBits-1		;$0912
	DC.L WaitCursor-1		;$0A12
	DC.L DrawIcon-1		;$0B12
	DC.L SpecialRect-1		;$0C12 ; added permanently 3/31/88
	DC.L FakeSeedFill-1		;$0D12
	DC.L FakeCalcMask-1		;$0E12
*** 6.0 ***
	dc.l GetSysIcon-1		;$0F12 12-Jan-91 DAL (6.0)
	dc.l JumpPixelMap2Rgn-1	;$1012 19-Jan-91 DAL (6.0)
	dc.l Reset-1		;$1112
	dc.l Reset-1		;$1212
	dc.l IBeamCursor-1		;$1312 19-Jan-91 DAL (6.0)
	dc.l WhooshRect-1		;$1412 14-Feb-91 DAL (6.0)
*** 6.0.1 ***
	dc.l DrawStringWidth-1	;$1512 5-Mar-92 DAL for 6.0.1
	dc.l UseColorTable-1	;$1612 9-Nov-92 DAL for 6.0.1
	dc.l RestoreColorTable-1	;$1712 9-Nov-92 DAL for 6.0.1

TheEnd

JumpPixelMap2Rgn	jml PixelMap2Rgn

	ENDP


**********************************************************************
**********************************************************************
	title 'Quickdraw Auxilary pics/INIT.CALLS'
InitCalls	PROC EXPORT

	Export Version
Version
	lda #QDAuxVersion

	Export QDAuxStatus
QDAuxStatus	sta 7,s
	brl Reset


****************************************************************
*
* QDAuxStartup
*
* This routine saves all the vectors we	will clobber and then
* clobbers them. It	also sets the WAP entry for this tool to the
* same value used by QuickDraw.
*
****************************************************************
	Export QDAuxStartup
QDAuxStartup
***	cmp #0
	tay	;24-Sep-90 DAL
	beq CanInitialize
	brl GetOut
CanInitialize		;
	phd	; save direct

;----------------------------------------------------
;
; Get QuickDraw's WAP and set our WAP to that value.
;

***	PushLong #0	; space for result
	pha	;24-Sep-90 DAL
	pha	;24-Sep-90 DAL
	PushWord #0	; system
	PushWord #QDToolNum
	_GetWAP

	pla
	ply
	tcd	; also set the direct reg

	PushWord #0	; system
	PushWord #QDAuxToolNum
	phy
	pha
	_SetWAP



;----------------------------------------------------
;
; Save the data bank and set it to bank	E0 where
; the vectors are.
	phb	; save data bank

	pea $E0E0	; set to e0 to set vectors up
	plb
	plb

;----------------------------------------------------
;
; Now, I save the vectors I am going to	replace.
;

	lda |StdComment+1
	sta >OrigStdComment
	lda |StdComment+2
	sta >OrigStdComment+1

	lda |PutPictStuff+1
	sta >OrigPutPictStuff
	lda |PutPictStuff+2
	sta >OrigPutPictStuff+1

	lda |OpenPicture+1
	sta >OrigOpenPicture
	lda |OpenPicture+2
	sta >OrigOpenPicture+1

	lda |ClosePicture+1
	sta >OrigClosePicture
	lda |ClosePicture+2
	sta >OrigClosePicture+1

	lda |DrawPicture+1
	sta >OrigDrawPicture
	lda |DrawPicture+2
	sta >OrigDrawPicture+1

	lda |KillPicture+1
	sta >OrigKillPicture
	lda |KillPicture+2
	sta >OrigKillPicture+1

	lda |StdGetPic+1
	sta >OrigStdGetPic
	lda |StdGetPic+2
	sta >OrigStdGetPic+1

	lda |StdPutPic+1
	sta >OrigStdPutPic
	lda |StdPutPic+2
	sta >OrigStdPutPic+1

	lda |PicComment+1
	sta >OrigPicComment
	lda |PicComment+2
	sta >OrigPicComment+1

	lda |StdPixels+1
	sta >OrigStdPixels
	lda |StdPixels+2
	sta >OrigStdPixels+1


;----------------------------------------------------
;
; Now put my calls in place


	lda #<FakeStdComment
	sta |StdComment+1
	lda #>FakeStdComment
	sta |StdComment+2

	lda #<FakePutPictStuff
	sta |PutPictStuff+1
	lda #>FakePutPictStuff
	sta |PutPictStuff+2

	lda #<FakeOpenPicture
	sta |OpenPicture+1
	lda #>FakeOpenPicture
	sta |OpenPicture+2

	lda #<FakeClosePicture
	sta |ClosePicture+1
	lda #>FakeClosePicture
	sta |ClosePicture+2

	lda #<FakeDrawPicture
	sta |DrawPicture+1
	lda #>FakeDrawPicture
	sta |DrawPicture+2

	lda #<FakeKillPicture
	sta |KillPicture+1
	lda #>FakeKillPicture
	sta |KillPicture+2

	lda #<FakeStdGetPic
	sta |StdGetPic+1
	lda #>FakeStdGetPic
	sta |StdGetPic+2

	lda #<FakeStdPutPic
	sta |StdPutPic+1
	lda #>FakeStdPutPic
	sta |StdPutPic+2

	lda #<FakePicComment
	sta |PicComment+1
	lda #>FakePicComment
	sta |PicComment+2

	lda #<iStdPixels
	sta |StdPixels+1
	lda #>iStdPixels
	sta |StdPixels+2


	jsr SetupTextVectors

	jsl PGetTB2Handle	; get the second text buffer
	jsl PSetTB2	; size the second text buffer

	plb	; restore data bank

	pld	; restore d



GetOut

	Export BootInit
BootInit
	Export CoreBootInit
CoreBootInit
	Export Reset
Reset

	ldy #0
	brl oEndCall

****************************************************************
*
* QDAuxShutdown
*
* This routine puts	the vectors back to	their orig state.
* It also sets the WAP entry for this tool to 0
*
****************************************************************
	Export QDAuxShutdown
QDAuxShutdown
	cmp #0
	beq GetOut

	phd
	tcd

;----------------------------------------------------
;
; Save the data bank and set it to bank	E0 where
; the vectors are.
	phb	; save data bank

	pea $E0E0	; set to e0 to set vectors up
	plb
	plb

;----------------------------------------------------
;
; Now, I put back the vectors I changed	earlier.
;

	lda >OrigStdComment
	sta |StdComment+1
	lda >OrigStdComment+1
	sta |StdComment+2

	lda >OrigPutPictStuff
	sta |PutPictStuff+1
	lda >OrigPutPictStuff+1
	sta |PutPictStuff+2

	lda >OrigOpenPicture
	sta |OpenPicture+1
	lda >OrigOpenPicture+1
	sta |OpenPicture+2

	lda >OrigClosePicture
	sta |ClosePicture+1
	lda >OrigClosePicture+1
	sta |ClosePicture+2

	lda >OrigDrawPicture
	sta |DrawPicture+1
	lda >OrigDrawPicture+1
	sta |DrawPicture+2

	lda >OrigKillPicture
	sta |KillPicture+1
	lda >OrigKillPicture+1
	sta |KillPicture+2

	lda >OrigStdGetPic
	sta |StdGetPic+1
	lda >OrigStdGetPic+1
	sta |StdGetPic+2

	lda >OrigStdPutPic
	sta |StdPutPic+1
	lda >OrigStdPutPic+1
	sta |StdPutPic+2

	lda >OrigPicComment
	sta |PicComment+1
	lda >OrigPicComment+1
	sta |PicComment+2

	lda >OrigStdPixels
	sta |StdPixels+1
	lda >OrigStdPixels+1
	sta |StdPixels+2

	phk
	plb
	jsr RestoreTextVectors

	plb

	PushWord #0	; system
	PushWord #QDAuxToolNum
	PushLong #0
	_SetWAP

	jsl DisposeTB2

	pld

	brl Reset

	ENDP


****************************************************************
*
Stuff	PROC EXPORT
*
* This contains the commonly used ending routines.  They 
* set the y-reg and call the shared code in common.
*
*
* Inputs:
*	x-reg has error code if it is an error routine
*
* Outputs:
*	y-reg has number of bytes on stack to be stripped
*
* External Refs:
	import ErrOut
	import EndCall
	import BusyEC
	import BusyErr
*
* Entry Points:
	Export ErrOut0
	Export EndCall0
	Export BusyEC0
	Export BusyErr0
	Export ErrOut4
	Export EndCall4
	Export BusyEC4
	Export BusyErr4
	Export BusyErr8
	Export BusyEC8
*
	longa on	; mode
	longi on
*
* Change History
*
* 17 May 88	Steven Glass
*
* BusyEC8 was jumping to EndCall instead of BusyEC.
*
****************************************************************


;-----------------------------------------------------------
;
; Zero bytes on stack
;
ErrOut0	ldy #0
	brl ErrOut

EndCall0	ldy #0
	brl EndCall

BusyEC0	ldy #0
	brl BusyEC

BusyErr0	ldy #0
	brl BusyErr



;-----------------------------------------------------------
;
; Four Bytes on stack
;
ErrOut4	ldy #4
	brl ErrOut

EndCall4	ldy #4
	brl EndCall

BusyEC4	ldy #4
	brl BusyEC

BusyErr4	ldy #4
	brl BusyErr

;-----------------------------------------------------------
;
; Eight Bytes on Stack
;
BusyErr8	ldy #8
	brl BusyErr

BusyEC8	ldy #8
	brl BusyEC
	ENDP







OrigVectors	PROC

	Export OrigStdComment
OrigStdComment	DS.B 3
	Export OrigPutPictStuff
OrigPutPictStuff	DS.B 3
	Export OrigOpenPicture
OrigOpenPicture	DS.B 3
	Export OrigClosePicture
OrigClosePicture	DS.B 3
	Export OrigDrawPicture
OrigDrawPicture	DS.B 3
	Export OrigKillPicture
OrigKillPicture	DS.B 3
	Export OrigStdGetPic
OrigStdGetPic	DS.B 3
	Export OrigStdPutPic
OrigStdPutPic	DS.B 3
	Export OrigPicComment
OrigPicComment	DS.B 3
	Export OrigStdPixels
OrigStdPixels	DS.B 3

	ENDP


	title 'Quickdraw Auxilary QDAux/WaitCursor'
**************************************************************
*
* WaitCursor
*
* This routine takes no inputs and makes the cursor a watch
* cursor.
*
**************************************************************
WaitCursor	PROC EXPORT

	PushWord #0
	_GetMasterSCB
	pla
	and #$0080
	beq Mode320

	PushLong #TheWatch640
Join	_SetCursor

	rtl

Mode320	PushLong #TheWatch320
	bra Join


	Export TheWatch640
TheWatch640
	DC.W 9,3


	DC.B $03,$ff,$fc,$00,$00,$00
	DC.B $03,$ff,$fc,$00,$00,$00
	DC.B $3f,$00,$0f,$c0,$00,$00
	DC.B $f0,$0f,$00,$f0,$00,$00
	DC.B $f0,$ff,$00,$ff,$00,$00
	DC.B $f0,$00,$00,$f0,$00,$00
	DC.B $3f,$00,$0f,$c0,$00,$00
	DC.B $03,$ff,$fc,$00,$00,$00
	DC.B $03,$ff,$fc,$00,$00,$00

	DC.B $03,$ff,$fc,$00,$00,$00
	DC.B $03,$ff,$fc,$00,$00,$00
	DC.B $3f,$ff,$ff,$c0,$00,$00
	DC.B $ff,$ff,$ff,$f0,$00,$00
	DC.B $ff,$ff,$ff,$ff,$00,$00
	DC.B $ff,$ff,$ff,$f0,$00,$00
	DC.B $3f,$ff,$ff,$c0,$00,$00
	DC.B $03,$ff,$fc,$00,$00,$00
	DC.B $03,$ff,$fc,$00,$00,$00

	DC.W 0,0


	Export TheWatch320
TheWatch320
	DC.W 11,4

	DC.B $00,$ff,$ff,$f0,$00,$00,$00,$00
	DC.B $00,$ff,$ff,$f0,$00,$00,$00,$00
	DC.B $00,$ff,$ff,$f0,$00,$00,$00,$00
	DC.B $0f,$00,$00,$0f,$00,$00,$00,$00
	DC.B $f0,$00,$f0,$00,$f0,$00,$00,$00
	DC.B $f0,$ff,$f0,$00,$ff,$00,$00,$00
	DC.B $f0,$00,$00,$00,$f0,$00,$00,$00
	DC.B $0f,$00,$00,$0f,$00,$00,$00,$00
	DC.B $00,$ff,$ff,$f0,$00,$00,$00,$00
	DC.B $00,$ff,$ff,$f0,$00,$00,$00,$00
	DC.B $00,$ff,$ff,$f0,$00,$00,$00,$00

	DC.B $00,$ff,$ff,$f0,$00,$00,$00,$00
	DC.B $00,$ff,$ff,$f0,$00,$00,$00,$00
	DC.B $00,$ff,$ff,$f0,$00,$00,$00,$00
	DC.B $0f,$ff,$ff,$ff,$00,$00,$00,$00
	DC.B $ff,$ff,$ff,$ff,$f0,$00,$00,$00
	DC.B $ff,$ff,$ff,$ff,$ff,$00,$00,$00
	DC.B $ff,$ff,$ff,$ff,$f0,$00,$00,$00
	DC.B $0f,$ff,$ff,$ff,$00,$00,$00,$00
	DC.B $00,$ff,$ff,$f0,$00,$00,$00,$00
	DC.B $00,$ff,$ff,$f0,$00,$00,$00,$00
	DC.B $00,$ff,$ff,$f0,$00,$00,$00,$00

	DC.W 0,0


	ENDP

**************************************************************
*
* $1312 IBeamCursor -- 19-Jan-91 DAL
*
* This routine takes no inputs and makes the cursor an I-Beam
* cursor.
*
**************************************************************
IBeamCursor	PROC EXPORT

	pha
	pha	;space for LoadResource
	pea $8027	;rCursor
***	pushlong #$07ff0001

*** 14-Mar-91 DAL--use different resource for 320-mode
	pea $07FF
	pha
	_GetMasterSCB
	pla
	and #$0080
	eor #$0080
	asl a
;;;	ora #1	;A=$0101 for 320 mode, $0001 for 640 mode
*** saved two bytes 6-Mar-92 DAL
	inc a
*** end 6-Mar-92
	pha
*** end of 14-Mar-91 DAL
	_LoadResource
	bcs @error
	phd
	tsc
	tcd
	ldy #2
	lda [3],y
	tax
	lda [3]
	sta 3
	stx 5	;dereferenced handle in place
	pld
	_SetCursor
	rtl

@error	plx
	plx
	rtl

;	PushWord #0
;	_GetMasterSCB
;	pla
;	and #$0080
;	beq Mode320
;
;	PushLong #IBeamCursor640
;Join	_SetCursor
;
;	rtl
;
;Mode320	PushLong #IBeamCursor320
;	bra Join
;
;IBeamCursor320
;IBeamCursor640	dc.b 9,0,3,0
;	dc.b $00,$F0,$F0,$00,$00,$00
;	dc.b $00,$0F,$00,$00,$00,$00
;	dc.b $00,$0F,$00,$00,$00,$00
;	dc.b $00,$0F,$00,$00,$00,$00
;	dc.b $00,$0F,$00,$00,$00,$00
;	dc.b $00,$0F,$00,$00,$00,$00
;	dc.b $00,$0F,$00,$00,$00,$00
;	dc.b $00,$0F,$00,$00,$00,$00
;	dc.b $00,$F0,$F0,$00,$00,$00
;		
;	dc.b $00,$00,$00,$00,$00,$00
;	dc.b $00,$00,$00,$00,$00,$00
;	dc.b $00,$00,$00,$00,$00,$00
;	dc.b $00,$00,$00,$00,$00,$00
;	dc.b $00,$00,$00,$00,$00,$00
;	dc.b $00,$00,$00,$00,$00,$00
;	dc.b $00,$00,$00,$00,$00,$00
;	dc.b $00,$00,$00,$00,$00,$00
;	dc.b $00,$00,$00,$00,$00,$00
;	dc.b 4,0,6,0

	ENDP



**************************************************************
*
* $1412 WhooshRect(flags:LONG,smallrectPtr,bigrectPtr)
* Added 14-Feb-91 DAL
*
* WhooshRect animates a zoom-rectangle effect.  I'm borrowing
* the code from the Finder for this, at least for the first
* version.
*
* Flags: Bit 31: 1 = zoom out (small to big)
*        Bit 30: 1 = draw in current port (not window mgr port)
*        Bits 29-0: reserved (use 0)
*
* If either rectangle pointer is NIL, the call does nothing.
*
* If we actually do a visual zoom effect, we also call
* SysBeep2 just before ($8040 = zoom open, $8041 = closed).
*
**************************************************************
WhooshRect	procname
	jsl $e10064	;incbusy

	phb
	phk
	plb

	phd
	tsc
	tcd	

@oldD	equ 1
@oldB	equ 3
@rtl	equ 4
@bigrect	equ @rtl+6
@smallrect	equ @bigrect+4
@flags	equ @smallrect+4

	lda <@bigRect+1
	beq @nilRectangle
	lda <@smallRect+1
	beq @nilRectangle

	ldy #6
@copyRects	lda [<@bigRect],y
	sta bigRect,y
	lda [<@smallRect],y
	sta smallRect,y
	dey
	dey
	bpl @copyRects

	pha
	pha
	_GetPort

	ldx #$8040	;SysBeep2 zoom-open, default to silence
	lda <@flags+2
	and #$2000	;bit 29 = no sound (9-Mar-91 DAL)
	bne @noSound
	lda <@flags+2
	bmi @thisSound
	inx	;$8041 = zoom-closed, default to silence
@thisSound	phx
	_SysBeep2
@noSound
	ldy @flags+2	;bit 31 = zoom direction, bit 30=use current port
	jsr ZoomRect

	_SetPort

@nilRectangle	pld
	plb
	ldx #0	;no error
	ldy #12	;strip 12 bytes
	jml $e10180	;ToBusyStrip


;================================================
; Zoom RECT.  By Andy Stadler.
; Optimized by Dan Oliver
;================================================
;
;  In: Y bit 15 set to zoom up, bit 14 set to use cur port
;      smallRect = small rect  (both in global coordinates)
;      bigRect = big RECT.
;
;================================================
ZoomRect	name

rectY1	equ 0
rectX1	equ 2
rectY2	equ 4
rectX2	equ 6

	phd
	tsc
	sec
	sbc #14		;space for temp1..temp4
	tcs
	tcd
	jsr Zoom2
	tsc
	clc
	adc #14
	tcs
	pld
	rts

temp1	equ 1
zoomtemp2	equ temp1+4
temp3	equ zoomtemp2+4
temp4	equ temp3+2

Zoom2	tya		;Remember direction
	and #$8000
	pha

	tya
	and #$4000
	bne @useCurPort
	pha		;Space for result.
	pha
	_GetWMgrPort		;Use window manager's port.
	_SetPort
@useCurPort

	pea 2		;width
	pea 1		;height
	_SetPenSize
	
	pea 15		;Solid pen.
	_SetSolidPenPat

	pea 2		;XOR mode.
	_SetPenMode
;
;
; --- Setup step constants depending on	direction ----------------------
;

	pla
	bne @zoomUp
	
	lda #$9999		;_FixRatio(3,5)
	sta <temp1
	stz <temp1+2

	lda #1		;Fract for going down (just in case).
	sta <zoomtemp2+2
	stz <zoomtemp2
	bra copyRects
	
@zoomUp	lda #$AAAA		;_FixRatio(5,3)
	sta <temp1
	lda #1
	sta <temp1+2

	lda #$0BF4		;_FixRatio(3/5,10000)
	sta <zoomtemp2
	stz <zoomtemp2+2


;	ldx #3
;	ldy #5
;	lda 1,s
;	beq ok1
;
;	tya
;	txy
;	tax
;
;ok1	pha		;Space for result.
;	pha
;	phx		;Pass ratio.
;	phy
;	_FixRatio
;	pla
;	sta <temp1		;Factor
;	pla
;	sta <temp1+2
;
;	pla		;Going up or down?
;	beq copyRects		;Ready if going down.
;
;
; --- Zoom from	smallRect to bigRect -------------------
;
;	pha	;Space for result.
;	pha
;	pea $01D3	;Setup 3/5^numsteps = 0.0467
;	pea $2710
;	_FixRatio
;	pla
;	sta <zoomtemp2	;Fract.
;	pla
;	sta <zoomtemp2+2
	
;
; --- Copy first rect into workrect1, and zero workrects 2 and 3. -------
;
copyrects	ldx #22
@loop	stz workRect1,x
	dex
	dex
	bpl @loop

	lda #7		;7 steps
	sta <temp3

	pha
	pea 0		;WaitFromTime
	pea 0		;DelayAmount
	_WaitUntil
	pla		;NewTime
	sta timeBetweenRects

;
; --- Loop, calculating and drawing --------------------------------
;
lop2	jsr blender		;Compute new RECT.
			
;just a thought, but if we wanted to be sneaky we could poll for VBL here and only draw when
;we're vertically blanked instead of waiting down below
			
	lda #workRect3		;Draw newest.
	jsr frameRect

	lda workrect1+rectX1	;Anything to erase yet?
	ora workrect1+rectX2
	beq skip1

	jsr frameRect1		;Erase oldest.

skip1		
	ldx #0		;workRect1 = workRect2
@loop	lda workRect2,x		;workRect2 = workRect3
	sta workRect1,x
	inx
	inx
	cpx #16
	bne @loop

	pha		;Space for result.
	pha
	pei <temp1+2		;Bump interpolation value.
	pei <temp1
	pei <zoomtemp2+2
	pei <zoomtemp2
	_FixMul
	pla
	sta <zoomtemp2
	pla
	sta <zoomtemp2+2

	pha
	lda timeBetweenRects
	pha
	pea $10		;delayAmount in 16'ths of a tick
	_WaitUntil
	pla
	sta timeBetweenRects
	
	dec <temp3		;Loop counter.
	bne lop2

;
; --- Done.  Clean up and quit.
;
	jsr frameRect1		;Erase all the RECTs.

	lda #workRect2
	jsr frameRect

	_PenNormal
	rts
	
timeBetweenRects	dc.w 0		;this isn't realy what it claims to be, but it
			;gets the point across -- andy

;
; Frame a workRect.
;
frameRect1	lda #workRect1
frameRect	pea workRect1>>16
	pha
	_FrameRect
	rts


; Blender
;
;  OUT:  workRect3 = blend from smallRect and bigRect.
;
Blender	ldx #rectX2

lop200	stx <temp4		;hold rect index here

	pha		;Space for final FixRound call.

	pha		;Space for result.
	pha
	pei <zoomtemp2+2		;fract * big rect
	pei <zoomtemp2
	lda bigRect,x
	pha
	pea 0		;big rect is integer.0
	_FixMul		;(leave 1st result on stack)

	pha		;Space for result.
	pha
	lda #0		;(1-fract) * small rect
	sec
	sbc <zoomtemp2
	tay
	lda #1
	sbc <zoomtemp2+2
	pha
	phy
	ldx <temp4
	lda smallRect,x
	pha
	pea 0		;small rect is integer.0
	_FixMul

	clc		;add the two results
	lda 1,s
	adc 5,s
	sta 5,s
	lda 3,s
	adc 7,s
	sta 7,s

	pla		;(trash old result)
	pla
	_FixRound
	pla		;result of rounding
	ldx <temp4
	sta workrect3,x

	dex		;Next side.
	dex
	bpl lop200
	rts

bigRect      	DS.B 8
smallRect     	DS.B 8
workRect1	DS.B 8	;1, 2, and 3 must be together
workRect2	DS.B 8
workRect3	DS.B 8

	ENDP


****************************************************************
*
FakeStuff	PROC
*
* These routines force the load of the dynamic segment containing
* SeedFill and calcmask.
*
*
* Inputs:
*	nothing is touched!
*
* Outputs:
*	none
*
* External Refs:
	import ForceTheLoad
	import ForcePicLoad
	import ForceCopyBitLoad

	import SeedFill
	import CalcMask
	import iStdComment
	import iPutPicStuff
	import iOpenPicture
	import iClosePicture
	import iDrawPicture
	import iKillPicture
	import iStdGetPic
	import iStdPutPic
	import iPicComment
	import iStdPixels
*
* Entry Points:
	entry FakeSeedFill
	entry FakeCalcMask
	entry FakeStdComment
	entry FakePutPictStuff
	entry FakeOpenPicture
	entry FakeClosePicture
	entry FakeDrawPicture
	entry FakeKillPicture
	entry FakeStdGetPic
	entry FakeStdPutPic
	entry FakePicComment
	entry FakeCopyBits

*
	longa on	; mode
	longi on
*
****************************************************************


FakeSeedFill
	jml SeedFill


FakeCalcMask
	jml CalcMask





FakeStdComment
	jml iStdComment

FakePutPictStuff


iPutPictStuff

	pha	; save the noun

	ldy #o_PicSave
	lda [Portref],y
	sta Temp
	iny
	iny
	lda [Portref],y
	sta Temp+2
	ora Temp
	bne DoTheWork

Done		;
	phx
	ldx #512
	lda <DirtyDPFlags,x
	ora #NoPictRecord
	sta <DirtyDPFlags,x
	plx

	pla	; return with noun still in a
	clc	; and carry clear

	RTL

DoTheWork
	jml SaveSomething

FakeOpenPicture
	jml iOpenPicture

FakeClosePicture
	jml iClosePicture

FakeDrawPicture
	jml iDrawPicture

FakeKillPicture
	jml iKillPicture

FakeStdGetPic
	jml iStdGetPic

FakeStdPutPic
;	jsl ForcePicLoad
	jml iStdPutPic

FakePicComment
	jml iPicComment




FakeCopyBits
	jml CopyBits








	ENDP

****************************************************************
*
* QDStart
*
* This is a local routine that increments the busy flag, saves
* the current direct register on the stack and transfers
* the a register to	the D register.
*
* This is meant to be called at the start of any QD entry point
* that requires zero page and the busy flag to be incremented.
*
* In Doing this we trash the X-Register.  Hopefully this will
* not cause anyone any problems.
*
* We do know that A	and Y must be untouched.  Y for PortWord
* and PortLong.  A for cursor routines that add $100 to A
*
****************************************************************
QDStart	PROC EXPORT

	jsl IncBusyFlg

	phd	; push d on stack
	tcd	; set d
	lda 3,s	; getorig rts
	pha	; put on stack
	lda 3,s	; move orig d to on	top of rts
	sta 5,s
	pla	; pull rts off stack
	sta 1,s	; put over orig d
	tdc	; get QD D back in a
	rts	; done

	ENDP


***********************************************************************************
*
* GetSysIcon -- new call 10-Jan-91 Dave Lyons
*
* Description:
*
* Inputs:
*
* $0F12 GetSysIcon(flags: integer; value: integer; auxtype: long): IconPtr;
*
* Flags bit 1-0:  00=get a File icon; 01=get a device icon;
*                 10=get a misc icon; 11=invalid value
*       bit 2:    0=use closed folders; 1=use open folders
*
* Value: Depends on Flags.
*        File: GS/OS File Type.
*        Device: GS/OS Device_ID.
*        Misc:
*          0=Desktop icon
*          1=padlock icon
*          2=up arrow
*          3=down arrow
*          4=boxed down arrow
*
* Auxtype:  For Files, pass auxiliary type.  For Devices and Misc, pass 0.
*
***********************************************************************************
GetSysIcon	proc export

rtl1	equ 1
rtl2	equ rtl1+3
auxtype	equ rtl2+3
value	equ auxtype+4
flags	equ value+2
IconPtr	equ flags+2

*** added 3-Sep-92 DAL -- Try calling SendRequest to let folks customize us
	tsc	;get a copy of teh stack pointer

	pea $1201	;systemSaysGetSysIcon
	pea $8000	;how=sendToAll+stopAfterOne
	ldx #0
	phx
	phx	;target=nil
	phx	;high word of input pointer
	clc
	adc #auxtype
	pha	;low word of input pointer (point at stk parms)
	pushlong #iconReqDataOut
	_SendRequest
	bcs @oldWay
	lda >iconReqDataOut+2  ;low word of result
	tay
	lda >iconReqDataOut+4
	brl @returnAY
@oldWay
*** end 3-Sep-92

*** added 14-Mar-91 DAL: check 320/640 mode, keep result in X
	pha
	_GetMasterSCB
	pla
	and #$0080
	tax
*** end of 14-Mar-91 DAL

	lda value,s
	tay	;Value paramter in Y
	lda flags,s
	and #3	;low 2 bits = icon type
	beq @doFile	;00=file
	dec a
	beq @doDevice	;01=device
	dec a
	beq @doMisc0	;10=misc
@outOfRange	ldx #badGetSysIconInput
	brl @error

@doMisc0	brl @doMisc

* Get a File icon

@doFile	cpy #$000f	;Is it a Folder?
	beq @isFolder

;	cpy #$00ff	;Is it a SYS file?
;	beq @isApplication
;	cpy #$00B3	;Is it a S16 file?
;	beq @isApplication
;
;*** added 29-Sep-91 -- special icon for HyperMedia documents (file type $55)
;	cpy #$0055
;	bne @notStack
;
;	lda #^StackIcon
;	ldy #StackIcon
;	bra @returnAY0
;@notStack
;*** end 29-Sep-91 DAL
;
;	lda #^DocumentIcon
;	ldy #DocumentIcon
;	bra @returnAY0
;
;@isApplication	lda #^ApplicationIcon
;	ldy #ApplicationIcon
;	bra @returnAY0
*** added 11-Mar-92 DAL -- make filetype check table driven
	tya	;filetype in A
	txy	;640 flag in Y
	ldx #endFiletypes-Filetypes-2
@search	cmp >Filetypes,x
	beq @foundIt
	dex
	dex
	bne @search
@foundIt	tya
	bne @640
	lda >fileIcons320,x
	bra @1
@640	lda >fileIcons640,x
@1	tay
	lda #DocumentIcon>>16
	bra @returnAY0
*** end 11-Mar-92

@isFolder	lda flags,s	;check bit 2 = Open/Closed folder icons
	and #4
	bne @isOpenFolder

	txy
	beq @isFolder320
	lda #^FolderIcon
	ldy #FolderIcon
	bra @returnAY

@isFolder320	lda #^FolderIcon320
	ldy #FolderIcon320
	bra @returnAY

@isOpenFolder	txy
	beq @isOpenFolder320
	lda #^OpenFolderIcon
	ldy #OpenFolderIcon
	bra @returnAY

@isOpenFolder320	lda #^OpenFolderIcon320
	ldy #OpenFolderIcon320
@returnAY0	bra @returnAY

* Get a Device icon

@doDevice	tya	;get Value in A
	cmp #$ffff	;offline device?
	beq @offline
	cmp #EndOfTable-DevicePicNum
	bcc @goodDevice
	lda #3	;use same icon as Apple 3.5 drive, at least for now
@goodDevice	phx	;15-Mar-91 DAL
	tax
	lda >DevicePicNum,x
	plx	;15-Mar-91 DAL
	and #$00ff
	cmp #$00ff
	bne @goodIcon

	lda #5	;index to Null Icon
	bra @goodIcon

@offline	lda #7

@goodIcon	txy
	bne @goodIcon640

	asl a
	asl a
	tax
	lda >DeviceIconTable320,x
	tay
	lda >DeviceIconTable320+2,x
	bra @returnAY

@goodIcon640	asl a
	asl a
	tax
	lda >DeviceIconTable,x
	tay
	lda >DeviceIconTable+2,x
	bra @returnAY

*** return a Miscellaneous icon

@doMisc	tya
	asl a
	asl a
	tax
	cpx #MiscTableEnd-MiscIconTable
	bcs @outOfRange0
	lda >MiscIconTable,x
	tay
	lda >MiscIconTable+2,x	;fall into @returnAY

@returnAY	sta IconPtr+2,s
	tya
	sta IconPtr,s

@leave	ldx #0	;no error
@error	ldy #8
	jml $e10184	;ToStrip

@outOfRange0	brl @outOfRange


*** added 3-Sep-92 DAL
iconReqDataOut	dc.w 0	;space for recvCount
	dc.l 0	;space for result
	dc.l 0	;space for expansion
*** end 3-Sep-92


*** added 11-Mar-92 DAL
Filetypes	dc.w 0	;catch-all
	dc.w $0004	;text
	dc.w $0006	;binary
	dc.w $0055	;stack
	dc.w $00b0	;src
	dc.w $00b3	;GS/OS application
	dc.w $00e0	;archive
	dc.w $00fc	;Applesoft
	dc.w $00ff	;P8 application
endFiletypes

fileIcons320	dc.w DocumentIcon
	dc.w textIcon
	dc.w binIcon
	dc.w stackIcon
	dc.w srcIcon
	dc.w ApplicationIcon
	dc.w archiveIcon
	dc.w basIcon
	dc.w ApplicationIcon

fileIcons640	dc.w DocumentIcon
	dc.w textIcon
	dc.w binIcon
	dc.w stackIcon
	dc.w srcIcon
	dc.w ApplicationIcon
	dc.w archiveIcon
	dc.w basIcon
	dc.w ApplicationIcon
*** end 11-Mar-92

DevicePicNum	dc.b  $00	;dev_id 0 = DiskIcon5.25
	dc.b  $02	;dev_id 1 = Profile 5MB
	dc.b  $02	;dev_id 2 = Profile 10MB
	dc.b  $01	;dev_id 3 = Apple 3.5
	dc.b  $02	;dev_id 4 = SCSI Generic
	dc.b  $02	;dev_id 5 = SCSI hard disk
	dc.b  $FF	;dev_id 6 = SCSI Tape Drive
	dc.b  $06	;dev_id 7 = SCSI CD-ROM (was $02 15-Jan-91 DAL)
	dc.b  $FF	;dev_id 8 = SCSI Printer
	dc.b  $FF	;dev_id 9 = Serial Modem
	dc.b  $FF	;dev_id A = Console Driver
	dc.b  $FF	;dev_id B = Serial Printer
	dc.b  $FF	;dev_id C = Serial LaserWriter
	dc.b  $FF	;dev_id D = AppleTalk LaserWriter
	dc.b  $04	;dev_id E = RAM Disk
	dc.b  $04	;dev_id F = ROM Disk
	dc.b  $03	;dev_id 10 = File Server
	dc.b  $FF	;dev_id 11 = (reserved)
	dc.b  $FF	;dev_id 12 = Apple Desktop Busª
	dc.b  $02	;dev_id 13 = Hard Disk (generic)
	dc.b  $01	;dev_id 14 = Floppy Disk (generic)
	dc.b  $FF	;dev_id 15 = Tape Drive (generic)
	dc.b  $FF	;dev_id 16 = Character Device Driver (generic)
	dc.b  $01	;dev_id 17 = MFM-encoded disk drive
	dc.b  $03	;dev_id 18 = AppleTalk network (generic)
	dc.b  $FF	;dev_id 19 = Sequential Access Device
	dc.b  $FF	;dev_id 1A = SCSI Scanner
	dc.b  $FF	;dev_id 1B = Other Scanner
	dc.b  $FF	;dev_id 1C = LaserWriter SC
	dc.b  $03	;dev_id 1D = AppleTalk Main Driver
	dc.b  $03	;dev_id 1E = AppleTalk File Service driver
	dc.b  $03	;dev_id 1F = AppleTalk RPM Driver
	dc.b  $05	;dev_id 20 = Unassigned? --> Null icon 
EndofTable

; the above numbers index into this table:

DeviceIconTable	dc.l DiskIcon5_25		; 0 = 5.25 disk icon
	dc.l DiskIcon3_5		; 1 = 3.5 disk icon
	dc.l HDiskIcon		; 2 = Hard disk icon
	dc.l AppleShareIcon		; 3 = Apple share
	dc.l RamIcon		; 4 = RAM/ROM Disk
	dc.l NullIcon		; 5 = Special null icon
	dc.l CDROMIcon		; 6 = CD-ROM icon
	dc.l OfflineDisk		; 7 = offline disk (gray 3.5)

DeviceIconTable320	dc.l DiskIcon5_25_320	; 0 = 5.25 disk icon
	dc.l DiskIcon3_5		; 1 = 3.5 disk icon
	dc.l HDiskIcon320		; 2 = Hard disk icon
	dc.l AppleShareIcon320	; 3 = Apple share
	dc.l RamIcon320		; 4 = RAM/ROM Disk
	dc.l NullIcon		; 5 = Special null icon
	dc.l CDROMIcon320		; 6 = CD-ROM icon
	dc.l OfflineDisk320		; 7 = offline disk (gray 3.5)

DiskIcon3_5			; 3.5 disk icon
	dc.w 0000		; Icon type
	dc.w EndDisk-StartDisk	; size
	dc.w 0008		; height
	dc.w 0012		; width
StartDisk	dc.b $FF,$00,$00,$00,$00,$FF	;..********..
	dc.b $F0,$F0,$FF,$FF,$0F,$0F	;.*.*....*.*.
	dc.b $F0,$F0,$FF,$FF,$0F,$0F	;.*.*....*.*.
	dc.b $F0,$F0,$00,$00,$0F,$0F	;.*.******.*.
	dc.b $F0,$FF,$FF,$FF,$FF,$0F	;.*........*.
	dc.b $F0,$FF,$00,$00,$FF,$0F	;.*..****..*.
	dc.b $F0,$0F,$0F,$F0,$FF,$0F	;.**.*..*..*.
	dc.b $FF,$00,$00,$00,$00,$FF	;..********..
EndDisk	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF


OfflineDisk			; offline disk icon
	dc.w 0000		; Icon type
	dc.w EndOffline-StartOffline	; size
	dc.w 0008		; height
	dc.w 0012		; width
StartOffline	dc.b $FF,$33,$33,$33,$33,$FF	;..33333333..
	dc.b $F3,$F3,$FF,$FF,$3F,$3F	;.3.3....3.3.
	dc.b $F3,$F3,$FF,$FF,$3F,$3F	;.3.3....3.3.
	dc.b $F3,$F3,$33,$33,$3F,$3F	;.3.333333.3.
	dc.b $F3,$FF,$FF,$FF,$FF,$3F	;.3........3.
	dc.b $F3,$F3,$33,$33,$3F,$3F	;.3.333333.3.
	dc.b $F3,$F3,$33,$33,$3F,$3F	;.3.333333.3.
	dc.b $FF,$33,$33,$33,$33,$FF	;..33333333..
EndOffline	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF

OfflineDisk320			; offline disk icon
	dc.w 0000		; Icon type
	dc.w EndOffline320-StartOffline320	; size
	dc.w 0008		; height
	dc.w 0012		; width
StartOffline320	dc.b $FF,$33,$33,$33,$33,$FF	;..33333333..
	dc.b $F3,$F3,$FF,$FF,$3F,$3F	;.3.3....3.3.
	dc.b $F3,$F3,$FF,$FF,$3F,$3F	;.3.3....3.3.
	dc.b $F3,$F3,$33,$33,$3F,$3F	;.3.333333.3.
	dc.b $F3,$FF,$FF,$FF,$FF,$3F	;.3........3.
	dc.b $F3,$F3,$33,$33,$3F,$3F	;.3.333333.3.
	dc.b $F3,$F3,$33,$33,$3F,$3F	;.3.333333.3.
	dc.b $FF,$33,$33,$33,$33,$FF	;..33333333..
EndOffline320	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF


CDROMIcon			; CD-ROM Icon (15-Jan-91 DAL)
	dc.w 0000		; Icon type
	dc.w EndCDROM-StartCDROM	; size
	dc.w 0008		; height
	dc.w 0012		; width
StartCDROM	dc.b $FF,$F0,$00,$00,$0F,$FF	;...******...
	dc.b $FF,$03,$33,$33,$30,$FF	;..*------*..
	dc.b $F0,$33,$31,$1c,$cc,$0F	;.*---##===*.
	dc.b $F0,$33,$1F,$F1,$cc,$0F	;.*--#..#==*.
	dc.b $F0,$33,$1F,$F1,$cc,$0F	;.*--#..#==*.
	dc.b $F0,$33,$31,$1c,$cc,$0F	;.*---##===*.
	dc.b $FF,$03,$33,$33,$30,$FF	;..*------*..
	dc.b $FF,$F0,$00,$00,$0F,$FF	;...******...
EndCDROM	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF

CDROMIcon320			; CD-ROM Icon (15-Jan-91 DAL)
	dc.w 0000		; Icon type
	dc.w EndCDROM320-StartCDROM320	; size
	dc.w 0008		; height
	dc.w 0012		; width
StartCDROM320	dc.b $FF,$F0,$00,$00,$0F,$FF	;...******...
	dc.b $FF,$0e,$ee,$ee,$e0,$FF	;..*------*..
	dc.b $F0,$ee,$e1,$1e,$ee,$0F	;.*---##===*.
	dc.b $F0,$ee,$1F,$F1,$ee,$0F	;.*--#..#==*.
	dc.b $F0,$ee,$1F,$F1,$ee,$0F	;.*--#..#==*.
	dc.b $F0,$ee,$e1,$1e,$ee,$0F	;.*---##===*.
	dc.b $FF,$0e,$ee,$ee,$e0,$FF	;..*------*..
	dc.b $FF,$F0,$00,$00,$0F,$FF	;...******...
EndCDROM320	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF


HDiskIcon			; Hard disk icon
	dc.w $8000		; Icon type
	dc.w EndHDisk-StartHDisk	; size
	dc.w 0008		; height
	dc.w 0012		; width
StartHDisk	dc.b $FF,$FF,$FF,$FF,$FF,$FF	;............
	dc.b $FF,$00,$00,$00,$00,$FF	;..********..
	dc.b $F0,$33,$33,$33,$33,$0F	;.*xxxxxxxx*.
	dc.b $F0,$33,$33,$34,$43,$0F	;.*xxxxx--x*.
	dc.b $F0,$33,$33,$33,$33,$0F	;.*xxxxxxxx*.
	dc.b $F0,$33,$33,$33,$33,$0F	;.*xxxxxxxx*.
	dc.b $FF,$00,$00,$00,$00,$FF	;..********..
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
EndHDisk	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF

HDiskIcon320			; Hard disk icon
	dc.w $8000		; Icon type
	dc.w EndHDisk320-StartHDisk320	; size
	dc.w 0008		; height
	dc.w 0012		; width
StartHDisk320	dc.b $FF,$FF,$FF,$FF,$FF,$FF	;............
	dc.b $FF,$00,$00,$00,$00,$FF	;..********..
	dc.b $F0,$ee,$ee,$ee,$ee,$0F	;.*xxxxxxxx*.
	dc.b $F0,$ee,$ee,$e7,$7e,$0F	;.*xxxxx--x*.
	dc.b $F0,$ee,$ee,$ee,$ee,$0F	;.*xxxxxxxx*.
	dc.b $F0,$ee,$ee,$ee,$ee,$0F	;.*xxxxxxxx*.
	dc.b $FF,$00,$00,$00,$00,$FF	;..********..
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
EndHDisk320	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF

DiskIcon5_25			; Apple disk 5.25 icon
	dc.w $8000		; icon type
	dc.w EndADisk-StartADisk	; size
	dc.w 0008		; height
	dc.w 0012		; width
StartADisk	dc.b $FF,$00,$00,$00,$00,$FF	;..********..
	dc.b $F0,$33,$33,$33,$13,$0F	;.*xxxxxx-x*.
	dc.b $F0,$33,$30,$03,$33,$0F	;.*xxx**xxx*.
	dc.b $F0,$30,$00,$00,$03,$0F	;.*x******x*.
	dc.b $F0,$33,$30,$03,$33,$0F	;.*xxx**xxx*.
	dc.b $F0,$33,$33,$33,$33,$0F	;.*xxxxxxxx*.
	dc.b $FF,$00,$00,$00,$00,$FF	;..********..
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
EndADisk	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF

DiskIcon5_25_320			; Apple disk 5.25 icon
	dc.w $8000		; icon type
	dc.w EndADisk320-StartADisk320	; size
	dc.w 0008		; height
	dc.w 0012		; width
StartADisk320	dc.b $FF,$00,$00,$00,$00,$FF	;..********..
	dc.b $F0,$ee,$ee,$ee,$fe,$0F	;.*xxxxxx-x*.
	dc.b $F0,$ee,$e0,$0e,$ee,$0F	;.*xxx**xxx*.
	dc.b $F0,$e0,$00,$00,$0e,$0F	;.*x******x*.
	dc.b $F0,$ee,$e0,$0e,$ee,$0F	;.*xxx**xxx*.
	dc.b $F0,$ee,$ee,$ee,$ee,$0F	;.*xxxxxxxx*.
	dc.b $FF,$00,$00,$00,$00,$FF	;..********..
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
EndADisk320	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF

RamIcon			; Ram disk icon
	dc.w $8000		; Icon type
	dc.w EndRam-StartRam	; size
	dc.w 0008		; height
	dc.w 0012		; width
StartRam	dc.b $FF,$FF,$00,$00,$00,$0F	;....*******.
	dc.b $FF,$00,$bb,$bb,$bb,$0F	;..**xxxxxx*.
	dc.b $F0,$b0,$b0,$b0,$b0,$0F	;.*x*x*x*x**.
	dc.b $F0,$bb,$bb,$bb,$bb,$0F	;.*xxxxxxxx*.
	dc.b $F0,$b0,$b0,$b0,$b0,$0F	;.*x*x*x*x**.
	dc.b $F0,$bb,$bb,$bb,$bb,$0F	;.*xxxxxxxx*.
	dc.b $F0,$00,$00,$ee,$ee,$0F	;.*****%%%%*.
	dc.b $FF,$FF,$FF,$00,$00,$0F	;......%%%%*.
EndRam	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF

RamIcon320			; Ram disk icon
	dc.w $8000		; Icon type
	dc.w EndRam320-StartRam320	; size
	dc.w 0008		; height
	dc.w 0012		; width
StartRam320	dc.b $FF,$FF,$00,$00,$00,$0F	;....*******.
	dc.b $FF,$00,$aa,$aa,$aa,$0F	;..**xxxxxx*.
	dc.b $F0,$a0,$a0,$a0,$a0,$0F	;.*x*x*x*x**.
	dc.b $F0,$aa,$aa,$aa,$aa,$0F	;.*xxxxxxxx*.
	dc.b $F0,$a0,$a0,$a0,$a0,$0F	;.*x*x*x*x**.
	dc.b $F0,$aa,$aa,$aa,$aa,$0F	;.*xxxxxxxx*.
	dc.b $F0,$00,$00,$99,$99,$0F	;.*****%%%%*.
	dc.b $FF,$FF,$FF,$00,$00,$0F	;......*****.
EndRam320	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF

AppleShareIcon			; Apple share Icon
	dc.w $8000		; Icon type
	dc.w EndShare-StartShare	; size
	dc.w 0008		; height
	dc.w 0012		; width
StartShare	dc.b $FF,$00,$FF,$F0,$00,$0F
	dc.b $F0,$ee,$00,$00,$dd,$00
	dc.b $F0,$ee,$ee,$e0,$dd,$d0
	dc.b $F0,$ee,$ee,$e0,$dd,$d0
	dc.b $F0,$00,$00,$00,$00,$00
	dc.b $FF,$FF,$FF,$F0,$FF,$FF
	dc.b $FF,$FF,$FF,$00,$0F,$FF
	dc.b $F0,$00,$00,$00,$00,$00
EndShare	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF

AppleShareIcon320			; Apple share Icon
	dc.w $8000		; Icon type
	dc.w EndShare320-StartShare320	; size
	dc.w 0008		; height
	dc.w 0012		; width
StartShare320	dc.b $FF,$00,$FF,$F0,$00,$0F
	dc.b $F0,$99,$00,$00,$dd,$00
	dc.b $F0,$99,$99,$90,$dd,$d0
	dc.b $F0,$99,$99,$90,$dd,$d0
	dc.b $F0,$00,$00,$00,$00,$00
	dc.b $FF,$FF,$FF,$F0,$FF,$FF
	dc.b $FF,$FF,$FF,$00,$0F,$FF
	dc.b $F0,$00,$00,$00,$00,$00
EndShare320	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF

NullIcon			; Null icon
	dc.w 0000		; Icon type
	dc.w 0000		; size
	dc.w 0000		; height
	dc.w 0000		; width


FolderIcon			; Folder icon
	dc.w 0000		; Icon type
	dc.w EndFolder-StartFolder	; size
	dc.w 0008		; height
	dc.w 0010		; width
StartFolder	dc.b $FF,$00,$0F,$FF,$FF	;..***.....
	dc.b $F0,$ef,$e0,$00,$0F	;.*...****.
	dc.b $F0,$fe,$fe,$fe,$f0	;.*.......*
	dc.b $F0,$ef,$ef,$ef,$e0	;.*.......*
	dc.b $F0,$fe,$fe,$fe,$f0	;.*.......*
	dc.b $F0,$ef,$ef,$ef,$e0	;.*.......*
	dc.b $F0,$00,$00,$00,$00	;.*********
	dc.b $FF,$FF,$FF,$FF,$FF	;..........
EndFolder	dc.b $FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF

FolderIcon320			; Folder icon
	dc.w 0000		; Icon type
	dc.w EndFolder320-StartFolder320	; size
	dc.w 0008		; height
	dc.w 0010		; width
StartFolder320	dc.b $FF,$00,$0F,$FF,$FF	;..***.....
	dc.b $F0,$9f,$90,$00,$0F	;.*...****.
	dc.b $F0,$f9,$f9,$f9,$f0	;.*.......*
	dc.b $F0,$9f,$9f,$9f,$90	;.*.......*
	dc.b $F0,$f9,$f9,$f9,$f0	;.*.......*
	dc.b $F0,$9f,$9f,$9f,$90	;.*.......*
	dc.b $F0,$00,$00,$00,$00	;.*********
	dc.b $FF,$FF,$FF,$FF,$FF	;..........
EndFolder320	dc.b $FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF


OpenFolderIcon			; Open Folder Icon
	dc.w $0000		; icon type
	dc.w OpenfolderMask-OpenFolderImage	; size
	dc.w 8		; height
	dc.w 12		; width
OpenFolderImage	dc.b $FF,$FF,$00,$0F,$FF,$FF	;....***.....
	dc.b $FF,$F0,$eF,$e0,$00,$0F	;...*...****.
	dc.b $FF,$F0,$Fe,$Fe,$Fe,$F0	;...*.......*
	dc.b $00,$00,$00,$00,$0F,$e0	;*********..*
	dc.b $F0,$Fe,$Fe,$Fe,$F0,$F0	;.*.......*.*
	dc.b $FF,$0F,$eF,$eF,$eF,$00	;..*.......**
	dc.b $FF,$F0,$00,$00,$00,$00	;...*********
	dc.b $FF,$FF,$FF,$FF,$FF,$FF	;............
OpenFolderMask	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF

OpenFolderIcon320			; Open Folder Icon
	dc.w $0000		; icon type
	dc.w OpenfolderMask320-OpenFolderImage320 ; size
	dc.w 8		; height
	dc.w 12		; width
OpenFolderImage320	dc.b $FF,$FF,$00,$0F,$FF,$FF	;....***.....
	dc.b $FF,$F0,$9F,$90,$00,$0F	;...*...****.
	dc.b $FF,$F0,$F9,$F9,$F9,$F0	;...*.......*
	dc.b $00,$00,$00,$00,$0F,$90	;*********..*
	dc.b $F0,$F9,$F9,$F9,$F0,$F0	;.*.......*.*
	dc.b $FF,$0F,$9F,$9F,$9F,$00	;..*.......**
	dc.b $FF,$F0,$00,$00,$00,$00	;...*********
	dc.b $FF,$FF,$FF,$FF,$FF,$FF	;............
OpenFolderMask320	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF


ApplicationIcon	dc.w 0		;icon type
	dc.w ApplicationMask-ApplicationImage	;size
	dc.w 8		;height
	dc.w 12		;width
ApplicationImage	DC.B $FF,$FF,$00,$FF,$FF,$FF	;....**......
	DC.B $FF,$F0,$FF,$00,$0F,$FF	;...*..***...
	DC.B $FF,$0F,$F0,$FF,$F0,$FF	;..*..*...*..
	DC.B $F0,$FF,$00,$00,$FF,$00	;.*..****..**
	DC.B $FF,$0F,$FF,$0F,$FF,$00	;..*...*...**
	DC.B $FF,$F0,$FF,$00,$00,$00	;...*..******
	DC.B $FF,$FF,$00,$FF,$F0,$00	;....**...***
	DC.B $FF,$FF,$FF,$FF,$FF,$FF	;............
ApplicationMask	DC.B $FF,$FF,$FF,$FF,$FF,$FF
	DC.B $FF,$FF,$FF,$FF,$FF,$FF
	DC.B $FF,$FF,$FF,$FF,$FF,$FF
	DC.B $FF,$FF,$FF,$FF,$FF,$FF
	DC.B $FF,$FF,$FF,$FF,$FF,$FF
	DC.B $FF,$FF,$FF,$FF,$FF,$FF
	DC.B $FF,$FF,$FF,$FF,$FF,$FF
	DC.B $FF,$FF,$FF,$FF,$FF,$FF

DocumentIcon			; Document icon
	dc.w 0000		; Icon type
	dc.w DocumentMask-DocumentImage	; size
	dc.w 0008		; height
	dc.w 0012		; width
DocumentImage	dc.b $FF,$FF,$FF,$FF,$FF,$FF	;............
	dc.b $FF,$00,$00,$00,$0F,$FF	;..*******...
	dc.b $FF,$0F,$FF,$F0,$F0,$FF	;..*....*.*..
	dc.b $FF,$0F,$FF,$F0,$00,$FF	;..*....***..
	dc.b $FF,$0F,$FF,$FF,$F0,$FF 	;..*......*..
	dc.b $FF,$0F,$FF,$FF,$F0,$FF 	;..*......*..
	dc.b $FF,$0F,$FF,$FF,$F0,$FF 	;..*......*..
	dc.b $FF,$00,$00,$00,$00,$FF	;..********..
DocumentMask	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF

StackIcon	dc.w 0000		;icon type
	dc.w StackMask-StackImage	;size
	dc.w 0008		;height
	dc.w 0012		;width
StackImage	dc.b $00,$ff,$ff,$00,$ff,$00	;....**..
	dc.b $00,$ff,$00,$ff,$0f,$00	;..**..*.
	dc.b $00,$00,$ff,$ff,$f0,$00	;**.....*
	dc.b $00,$0f,$ff,$ff,$00,$00	;*.....**
	dc.b $00,$00,$ff,$00,$f0,$00	;**..**.*
	dc.b $00,$0f,$00,$ff,$00,$00	;*.**..**
	dc.b $00,$00,$ff,$00,$ff,$00	;**..**..
	dc.b $00,$ff,$00,$ff,$ff,$00	;..**....
StackMask	dc.b $00,$00,$00,$ff,$00,$00
	dc.b $00,$00,$ff,$ff,$f0,$00
	dc.b $00,$ff,$ff,$ff,$ff,$00
	dc.b $00,$ff,$ff,$ff,$ff,$00
	dc.b $00,$ff,$ff,$ff,$ff,$00
	dc.b $00,$ff,$ff,$ff,$ff,$00
	dc.b $00,$ff,$ff,$ff,$00,$00
	dc.b $00,$00,$ff,$00,$00,$00

*** New icons from Andy, 11-Mar-92 DAL
binIcon	dc.w 0
	dc.w $0030
	dc.w 8
	dc.w 12
	hex ff0000000Fff
	hex ff0FF0F0F0ff
	hex ff0FF0F000ff
	hex ff0FF0FFF0ff
	hex ff0F0FC0C0ff
	hex ff0F0F0F00ff
	hex ff0F0FC0C0ff
	hex ff00000000ff
	hex 00FFFFFFF000
	hex 00F00F0F0F00
	hex 00F00F0FFF00
	hex 00F00F000F00
	hex 00F0F0FFFF00
	hex 00F0F0F0FF00
	hex 00F0F0FFFF00
	hex 00FFFFFFFF00

archiveIcon	dc.w 0
	dc.w $30
	dc.w 8
	dc.w 12
	hex ff3F3F3F3Fff
	hex ffFFFFF3ecff
	hex ff3FFFFFcFff
	hex ff0000FFFcff
	hex ff0ee00FFFff
	hex ff0eee0FFcff
	hex ff0eee0FFFff
	hex ff00000cFcff
	hex 00F0F0F0F000
	hex 0000000FFF00
	hex 00F00000F000
	hex 00FFFF000F00
	hex 00FFFFF00000
	hex 00FFFFF00F00
	hex 00FFFFF00000
	hex 00FFFFFF0F00

basIcon	dc.w 0
	dc.w $30
	dc.w 8
	dc.w 12
	hex ff0000000Fff
	hex ff0FFFF0F0ff
	hex ff04F44000ff
	hex ff0FFFFFF0ff
	hex ff08F88F80ff
	hex ff0FFFFFF0ff
	hex ff0FDDFDF0ff
	hex ff00000000ff
	hex 00FFFFFFF000
	hex 00F0000F0F00
	hex 00FF0FFFFF00
	hex 00F000000F00
	hex 00FF0FF0FF00
	hex 00F000000F00
	hex 00F0FF0F0F00
	hex 00FFFFFFFF00

srcIcon	dc.w 0
	dc.w $30
	dc.w 8
	dc.w 12
	hex ff0000000Fff
	hex ff0FFFF0F0ff
	hex ff0FddF000ff
	hex ff0FFFFFF0ff
	hex ff0FdFddF0ff
	hex ff0FFFFFF0ff
	hex ff0FdFdFF0ff
	hex ff00000000ff
	hex 00FFFFFFF000
	hex 00F0000F0F00
	hex 00F0FF0FFF00
	hex 00F000000F00
	hex 00F0F0FF0F00
	hex 00F000000F00
	hex 00F0F0F00F00
	hex 00FFFFFFFF00

textIcon	dc.w 0
	dc.w $30
	dc.w 8
	dc.w 12
	hex ff0000000Fff
	hex ff0FFFF0F0ff
	hex ff0F00F000ff
	hex ff0FFFFFF0ff
	hex ff0F0F00F0ff
	hex ff0FFFFFF0ff
	hex ff0F0F0FF0ff
	hex ff00000000ff
	hex 00FFFFFFF000
	hex 00F0000F0F00
	hex 00F0FF0FFF00
	hex 00F000000F00
	hex 00F0F0FF0F00
	hex 00F000000F00
	hex 00F0F0F00F00
	hex 00FFFFFFFF00
*** end 11-Mar-92 DAL

*
* Miscellaneous icons
*
MiscIconTable	dc.l DesktopIcon
	dc.l PadlockIcon
	dc.l UpArrowIcon
	dc.l DownArrowIcon
	dc.l BoxDownArrowIcon
MiscTableEnd

*** Desktop icon

DesktopIcon	dc.w 0		;icon type
	dc.w DesktopMask-DesktopImage	;size
	dc.w 8		;height
	dc.w 12		;width
DesktopImage	dc.b $F0,$00,$00,$00,$00,$0F	;.**********.
	dc.b $F0,$FF,$FF,$FF,$FF,$0F	;.*........*.
	dc.b $F0,$00,$00,$00,$00,$0F	;.**********.
	dc.b $F0,$DD,$DD,$DD,$DD,$0F	;.*xxxxxxxx*.
	dc.b $F0,$DD,$DD,$DD,$DD,$0F	;.*xxxxxxxx*.
	dc.b $F0,$DD,$DD,$DD,$DD,$0F	;.*xxxxxxxx*.
	dc.b $F0,$DD,$DD,$DD,$DD,$0F	;.*xxxxxxxx*.
	dc.b $F0,$00,$00,$00,$00,$0F	;.**********.
DesktopMask	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF

*** Padlock Icon

PadlockIcon	dc.w 0		;icon type
	dc.w PadlockMask-PadlockImage	;size
	dc.w 8		;height
	dc.w 8		;width
PadlockImage	dc.b $FF,$F0,$0F,$FF	;...**...
	dc.b $FF,$0F,$F0,$FF	;..*..*..
	dc.b $FF,$0F,$F0,$FF	;.******.
	dc.b $F0,$00,$00,$0F	;.******.
	dc.b $F0,$00,$00,$0F	;.******.
	dc.b $F0,$00,$00,$0F	;.******.
	dc.b $F0,$00,$00,$0F	;.******.
	dc.b $FF,$FF,$FF,$FF	;........
PadlockMask	dc.b $FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF

*** Up Arrow

UpArrowIcon	dc.w 0		;icon type
	dc.w DownArrowMask-DownArrowImage	;size
	dc.w 8		;height
	dc.w 8		;width
UpArrowImage	dc.B $FF,$FF,$FF,$FF	;........
	dc.B $FF,$FF,$FF,$FF	;........
	dc.B $FF,$F0,$0F,$FF	;...**...
	dc.B $FF,$00,$00,$FF	;..****..
	dc.B $F0,$00,$00,$0F	;.******.
	dc.B $00,$00,$00,$00	;********
	dc.B $FF,$FF,$FF,$FF	;........
	dc.B $FF,$FF,$FF,$FF	;........
UpArrowMask	dc.B $00,$00,$00,$00	;........
	dc.B $00,$00,$00,$00	;........
	dc.B $00,$0F,$F0,$00	;...**...
	dc.B $00,$FF,$FF,$00	;..****..
	dc.B $0F,$FF,$FF,$F0	;.******.
	dc.B $FF,$FF,$FF,$FF	;********
	dc.B $00,$00,$00,$00	;........
	dc.B $00,$00,$00,$00	;........

*** Down Arrow

DownArrowIcon	dc.w 0		;icon type
	dc.w DownArrowMask-DownArrowImage	;size
	dc.w 8		;height
	dc.w 8		;width
DownArrowImage	dc.b $FF,$FF,$FF,$FF	;........
	dc.b $FF,$FF,$FF,$FF	;........
	dc.b $00,$00,$00,$00	;********
	dc.b $F0,$00,$00,$0F	;.******.
	dc.b $FF,$00,$00,$FF	;..****..
	dc.b $FF,$F0,$0F,$FF	;...**...
	dc.b $FF,$FF,$FF,$FF	;........
	dc.b $FF,$FF,$FF,$FF	;........
DownArrowMask	dc.b $00,$00,$00,$00	;........
	dc.b $00,$00,$00,$00	;........
	dc.b $FF,$FF,$FF,$FF	;********
	dc.b $0F,$FF,$FF,$F0	;.******.
	dc.b $00,$FF,$FF,$00	;..****..
	dc.b $00,$0F,$F0,$00	;...**...
	dc.b $00,$00,$00,$00	;........
	dc.b $00,$00,$00,$00	;........


*** BoxDownArrowIcon

BoxDownArrowIcon	dc.w 0		;icon type
	dc.w BoxDownArrowMask-boxDownArrowImage ;size
	dc.w 9		;height
	dc.w 14		;width
BoxDownArrowImage	dc.b $00,$00,$00,$00,$00,$00,$FF	;************..
	dc.b $0F,$FF,$FF,$FF,$FF,$F0,$0F	;*..........**.
	dc.b $0F,$00,$00,$00,$00,$F0,$0F	;*.********.**.
	dc.b $0F,$F0,$00,$00,$0F,$F0,$0F	;*..******..**.
	dc.b $0F,$FF,$00,$00,$FF,$F0,$0F	;*...****...**.
	dc.b $0F,$FF,$F0,$0F,$FF,$F0,$0F	;*....**....**.
	dc.b $0F,$FF,$FF,$FF,$FF,$F0,$0F	;*..........**.
	dc.b $00,$00,$00,$00,$00,$00,$0F	;*************.
	dc.b $F0,$00,$00,$00,$00,$00,$0F	;.************.
BoxDownArrowMask	dc.b $FF,$FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF,$FF
	dc.b $FF,$FF,$FF,$FF,$FF,$FF,$FF

	EndP


*******************************************************************************
*
* DrawStringWidth -- new call 5-Mar-92 DAL for 6.0.1
*
* Description:
*   Draws a string to fit in a particular width, compressing or truncating
*   the string as necessary.
*
* Inputs:
*   WORD  flags
*      bit 15 = disallow compression
*      bits 14-13 = truncate: none/left/center/right
*      bits 3-2 = 00=pstring, 01=cstring, 10=wstring
*      bits 1-0 = 00=pointer, 01=handle, 10=resource
*   LONG  stringRef (ptr, handle, rID)
*   WORD  width
*
* When the string is by handle, we lock it during the call and then
* restore its former attributes.
*
* When the string is by resource (rPString, rCString, rWString), we preserve
* and restore its attributes if it was already in memory.  If it wasn't, we
* release it to purge level when we're done.
*
*******************************************************************************
DrawStringWidth	proc

	phd
	pha	;space for length2
	pha	;space for position2
	pha	;space for length1
	pha	;space for position1
	pha	;space for strLength
	pha	;space for oldAttr
	pha
	pha	;space for ptr
	tsc
	tcd

ptr	equ 1
oldAttr	equ ptr+4

strLength	equ oldAttr+2
position1	equ strLength+2
length1	equ position1+2
position2	equ length1+2
length2	equ position2+2

oldD	equ length2+2
rtl1	equ oldD+2
rtl2	equ rtl1+3
theWidth	equ rtl2+3
stringRef	equ theWidth+2
flags	equ stringRef+4

	jsr GetStringPtr
	bcs @error

	pha
	pha	;space for GetCharExtra
	_GetCharExtra

	jsr SetupString	;set up <strLength and adjust <ptr

;
; If allowed and necessary, set CharExtra to -1 to crunch horizontally
;
	bit <flags
	bmi @noCrunch

	jsr GetWidth
	cmp <theWidth
	bcc @noCrunch
	beq @noCrunch

	pea $ffff
	pea 0
	_SetCharExtra
@noCrunch

	jsr Truncate

; if both chunks are empty, don't draw anything
	lda <length1
	ora <length2
	beq @noDraw

; draw chunk 1 if nonempty
	ldy <length1
	beq @skip1
	lda <position1
	jsr drawChunk
@skip1

; draw ellipsis if anything was truncated
	clc
	lda <length1
	adc <length2
	cmp <strLength
	beq @noEllipsis
	pea $00C9	;ellipsis
	_DrawChar
@noEllipsis

; draw chunk 2 if nonempty
	ldy <length2
	beq @skip2
	lda <position2
	jsr drawChunk
@skip2

@noDraw

	_SetCharExtra

	jsr ReleaseString

	ldx #0	;no error

@error	pla
	pla	;discarded ptr
	pla	;discarded oldAttr
	pla	;discarded strLength
	pla	;discarded position1
	pla	;discarded length1
	pla	;discarded position2
	pla	;discarded length2

	pld
	ldy #8	;strip 8 bytes
	jml >$e10184	;ToStrip

;
; Truncate
;
; Input:  ptr, strLength
;         flags (truncation mode in bits 14-13)
;         theWidth (available pixel width)
;
; Output: position1, length1
;         position2, length2
;
Truncate	stz <position1
	stz <position2
	stz <length2
	lda <strLength
	sta <length1

	lda <flags
	and #$6000
	beq @none

	jsr GetWidth
	cmp <theWidth
	bcc @none
	beq @none

	pha
	pea $00c9
	_CharWidth
	pla
	eor #$ffff
	inc a
	clc
	adc <theWidth
	sta <theWidth

	lda <flags
	and #$6000
	xba	;trunc mode in bits 6-5
	lsr a
	lsr a
	lsr a
	lsr a
	tax
	jmp (@trunc,x)

@trunc	dc.w @none,@left,@center,@right

@none	rts

;
; Do truncation on the left
;
; Right-justify chunk 2 to theWidth (compute position2, length2)
;
@left	stz <length1	;zap chunk 1
	lda <strLength
	sta <length2
@rightChopping	inc <position2
	dec <length2
	beq @rightDone
	pha	;space for TextWidth
	ldx <ptr+2
	lda <ptr
	clc
	adc <position2
	bcc @1
	inx
@1	phx
	pha
	pei <length2
	_TextWidth
	pla
	cmp <theWidth
	beq @rightDone
	bcs @rightChopping
@rightDone	rts

;
; Do truncation on the right
;
; Left-justify chunk 1 to theWidth (compute length1)
;
@right	lda <strLength
	sta <length1
@leftChopping	dec <length1
	beq @leftDone
	pha	;space for TextWidth
	pei <ptr+2
	pei <ptr
	pei <length1
	_TextWidth
	pla
	cmp <theWidth
	beq @leftDone
	bcs @leftChopping
@leftDone	rts

;
; Center--cut the width in half and compute left and
;         right chunks to theWidth
;
@center	lsr <theWidth
	jsr @left
	jsr @right
	rts

;
; DrawChunk
;
; Input:  A = position within <ptr
;         Y = length to draw
;
DrawChunk	ldx <ptr+2
	clc
	adc <ptr
	bcc @1
	inx
@1	phx
	pha
	phy
	_DrawText
	rts

;
; GetStringPtr
;
; Input:  stringRef, flags
; Output: SEC/X=error
;         ptr = string pointer (locked)
;         stringRef is handle if it was a resource ID
;         oldAttr = handle's old attributes
;
; Flags, bits 0-1 = pointer/handle/resource
;
GetStringPtr	lda <flags
	and #$0003
	asl a
	tax
	jmp (@get,x)

@get	dc.w @ptr,@handle,@resource,@error

@ptr	lda <stringRef+2
	ldx <stringRef
	sta <ptr+2
	stx <ptr
	clc
	rts

@resource	pha
	pha	;space for LoadResource2
	lda #0
	pha	;flags = 0
	pha	;buffer bank = 0
	tdc
	clc
	adc #oldAttr
	pha	;buffer = <oldAttr
	jsr PushResType
	pei <stringRef+2
	pei <stringRef
	_LoadResource2
	plx
	stx <stringRef
	plx
	stx <stringRef+2
	bcc @continue
	tax
	rts

@continue	ldy #4
	lda <oldAttr
	tax
	inx
	bne @lockAndDeref

;
; If the resource was not previously loaded, we'll later
; release it to purge level 3
;
	lda [<stringRef],y
	ora #$0300	;make it purge level 3
	bra @lockAndDeref

@handle	ldy #4	;handle attributes
	lda [<stringRef],y
@lockAndDeref	sta <oldAttr	;Y=4!!

	lda [<stringRef],y
	ora #$8000	;lock it
	sta [<stringRef],y
	dey
	dey	;y=2
	lda [<stringRef],y
	sta <ptr+2
	lda [<stringRef]
	sta <ptr
	clc
	rts

@error	ldx #badQDAuxValue
	sec
	rts

;
; PushResType
;
; Input:  flags bits 2-3 = pstring/cstring/wstring
;
PushResType	lda <flags
	and #$000c
	lsr a
	tax
	lda >@resTypes,x
	plx
	pha
	phx
	rts

@resTypes	dc.w rPString,rCString,rWString,$FFFF

;
; ReleaseString
;
; Pointer:  does nothing
; Handle:   restore attributes
; Resource: restore attributes
;
; Flags bits 0-1 = pointer/handle/resource
;
ReleaseString	lda <flags
	and #$0003
	beq @nothing

;
; For handle or resource, restore old attributes
;
	lda <oldAttr
	ldy #4
	sta [<stringRef],y
@nothing	rts


;
; SetupString
;
; Input:  ptr, flags bits 2-3 = pstring/cstring/wstring
;
SetupString	lda <flags
	and #$000C
	lsr a
	tax
	jmp (@setup,x)

@setup	dc.w @pstring,@cstring,@wstring,@error

@pstring	lda [<ptr]
	and #$00ff	;get length
	ldy #1	;inc ptr by 1
	bra @common

@wstring	lda [<ptr]	;get length
	ldy #2	;inc ptr by 2
@common	sta <strLength
	tya
	clc
	adc <ptr
	sta <ptr
	bcc @1
	inc <ptr+2
@1	rts

@cstring	ldy #-1
@findEnd	iny
	lda [<ptr],y
	and #$00ff
	bne @findEnd
	sty <strLength
	rts

@error	brk 0

;
; GetWidth
;
; Input:  ptr, strLength
; Output: A
;
GetWidth	pha
	pei <ptr+2
	pei <ptr
	pei <strLength
	_TextWidth
	pla
	rts

	EndP



*******************************************************************************
*
* UseColorTable -- new call 16-Mar-93 DAL for 6.0.1d15
*
* $1612 UseColorTable(tableNum,@Table,Flags):ColorInfoHandle
*
* Inputs:
*   LONG  space for result (handle for restoring to old color table)
*   WORD  tableNum (0..15)
*   LONG  tablePtr (pointer to 32-byte color table)
*   WORD  flags (see below)
*
* TablePtr:
*   Pointer to a 32-byte color table
*   NIL for default for current mode (MasterSCB determines 640/320)
*
* Flags:
*   bit 15 = use the standard 640-mode colors, even in 320 mode (ignores tablePtr)
*   bit 14 = don't call CtlNewRes
*   bit 13 = include the menu bar
*   bits 12..0 = reserved (use zero)
*   (Could use bits 0..1 as pointer/handle/resource mode for the tablePtr parameter)
*
* ResultH:  (Color Info Handle)
*   Puts old color table & number & SCBs into OldH)
*
*      +000: word        table number
*      +002: 32 bytes    color table data
*      +034: word        first scanline number saved
*      +036: word        scanline count (or last scanline?)
*      +038: bytes       saved SCBs
*
*******************************************************************************

ciTableNum	equ 0
ciColorTable	equ 2
ciFirstScanline	equ 34
ciLastScanline	equ 36
ciSCBs	equ 38

fUse640Colors	equ $8000
fNoCtlNewRes	equ $4000
fIncludeMenuBar	equ $2000

UseColorTable	proc

colorHandleSize	equ 38+200	;room for 200 SCBs

	tax

	phd
	pha
	pha	;space for ptr
	pha	;space for myUserID
	tsc
	tcd

myUserID	equ 1
ptr	equ myUserID+2	;local scratch
oldD	equ ptr+4
rtl1	equ oldD+2
rtl2	equ rtl1+3
flags	equ rtl2+3	;input parameters
tablePtr	equ flags+2
tableNum	equ tablePtr+4
result	equ tableNum+2	;result space

*** with WAP still in X, get QD User ID
	lda >$0000000A,x	;offset to QD user ID
	sta <myUserID

	stz result
	stz result+2

	ldx #badQDAuxValue
	lda <tableNum
	and #$fff0
	beq @ok
@toError	brl @error
@ok
	pha
	pha	;space for NewHandle result
	pea 0
	pea colorHandleSize	;size needed
	pei <myUserID
	pea $8010	;attributes (locked, no-bank-cross)
	pha
	pha	;location (ignored)
	_NewHandle
	tax
	pulllong <result
	bcs @toError

	ldy #2
	lda [<result],y
	sta <ptr+2
	lda [<result]
	sta <ptr

	lda <tableNum
	sta [<ptr]	;saved at ciTableNum

	pha	;table number for GetColorTable
	pei <ptr+2
	lda <ptr
	inc a
	inc a	;ciColorTable must be 2!
	pha	;get color table into our handle (does not cross bank)
	_GetColorTable

	pha
	_GetMasterSCB
	pla
	and #$0080
	bne @not320

	ldy #^Cool320Colors
	ldx #Cool320Colors
	bit <flags
	bmi @UseYXcolors

@not320	ldy <tablePtr+2
	ldx <tablePtr
	lda <tablePtr+1
	bne @UseYXcolors

	pushlong #StandardColors
	_InitColorTable
	ldy #^StandardColors
	ldx #StandardColors

@UseYXcolors	pei <tableNum
	phy
	phx
	_SetColorTable

***Êdone messing with color table; now mess with SCBs

	lda <flags
	jsr GetMenuBarHeight
	ldy #ciFirstScanline
	sta [<ptr],y
	tax	;put starting line in X
	iny
	iny
	lda #200	;last scanline
	sta [<ptr],y

*** advance <ptr to the SCB-save area
	clc
	lda <ptr
	adc #ciSCBs
	sta <ptr

	txy

@setSCBs	phy
	pha	;space for GetSCB
	phy
	_GetSCB
	pla
	tax
	and #$000f	;save only the color table bits
	ply
	phy
	sep #$20
	sta [<ptr],y
	rep #$20
	txa
	ora <tableNum	;slap in the new color table number
	ply
	phy
	phy	;push line #
	pha	;push new SCB
	_SetSCB
	ply
	iny
	cpy #200
	bcc @setSCBs

	lda <flags
	jsr doCtlNewRes

	pei <result+2
	pei <result
	_HUnlock

	ldx #0	;no error
@error	pla	;discarded myUserID
	pla
	pla	;discarded ptr
	pld
	ldy #8	;strip 8 bytes
	jml >$e10184	;ToStrip

*******************************************************************************
*
* Cool320Table is a 320-mode color table that very closely
* resembles the standard 640 dithered colors.
*
*******************************************************************************
Cool320Colors	dc.w $0000,$0008,$0880,$0888
	dc.w $0800,$0808,$0f80,$0f88
	dc.w $0080,$0088,$08f0,$08f8
	dc.w $0888,$088f,$0ff8,$0fff

StandardColors	dc.w $7777,$7777,$7777,$7777	;changed by InitColorTable
	dc.w $7777,$7777,$7777,$7777
	dc.w $7777,$7777,$7777,$7777
	dc.w $7777,$7777,$7777,$7777

*******************************************************************************
*
* Get system menu bar height
*
* Input: <flags in A
*
*******************************************************************************
	export GetMenuBarHeight
GetMenuBarHeight	ldx #0
	and #fIncludeMenuBar
	bne @done
	pha	;word space for func result
	pha
	pha	;space for GetMenuBar
	_GetMenuBar
	lda #0
	pha
	pha
	_SetMenuBar	;set to System menu bar (nil)

*** If the bar is hidden, return zero
	phd
	pha
	pha
	_GetMenuBar
	tsc
	tcd
	ldy #2
	lda [1],y
	tax
	lda [1]
	sta 1
	stx 3	;dereference menu bar handle
	ldy #$0010
	lda [1],y	;get ctlFlag (bit 7 = invisible flag)
	ply
	ply
	pld
	eor #$0080
	and #$0080
	beq @zero

	pha
	_FixMenuBar
	pla

@zero	sta 1+4,s
	_SetMenuBar
	plx	;get FixMenuBar result
@done	txa
	rts

*******************************************************************************
*
* doCtlNewRes
*
* Call CtlNewRes, making sure a valid port is set.
*
* Input: <flags in A
*
*******************************************************************************
	export doCtlNewRes
doCtlNewRes	and #fNoCtlNewRes
	bne @done
	pha
	pha
	_GetPort

	pha
	pha
	pea 0
	pea 4
	_GetWAP
	plx
	pla

; Look at $10A on QD Direct page to find the Handle to the First Port
	lda >$10A+2,x
	pha
	lda >$10A,x
	pha
	phd
	tsc
	tcd
	ldy #2
	lda [3],y
	tax
	lda [3]
	sta <3
	stx <5	;dereferenced into Port Pointer
	pld
	_SetPort

	_CtlNewRes
	_SetPort
@done	rts

	EndP


*******************************************************************************
*
* RestoreColorTable -- new call 16-Mar-93 DAL for 6.0.1d15
*
* $1712 RestoreColorTable(ColorInfoHandle,Flags)
*
* Description:
*
* Inputs:
*   LONG  handle to data for restore (must come from UseColorTable)
*   WORD  flags
*
* Flags:
*   bit 15 = reserved, use 0
*   bit 14 = don't call CtlNewRes
*   bit 13 = include the menu bar
*   bits 12..0 = reserved, use 0
*
* Note:  If the ColorInfoHandle is NIL, we don't do anything.
*
*******************************************************************************
RestoreColorTable	proc
	import GetMenuBarHeight,doCtlNewRes

	phd
	pha
	pha	;space for ptr
	tsc
	tcd

ptr	equ 1

oldD	equ ptr+4
rtl1	equ oldD+2
rtl2	equ rtl1+3
flags	equ rtl2+3
theHandle	equ flags+2

	ldx <theHandle+1
	beq @error	;error code in X (no error)

	ldy #4
	lda [<theHandle],y
	ora #$8000	;lock it
	sta [<theHandle],y
	dey
	dey
	lda [<theHandle],y
	sta <ptr+2
	lda [<theHandle]
	sta <ptr	;dereferenced it

*** Restore SCBs, starting from the menu bar height or the first saved line,
*** whichever is bigger.

	lda <flags
	jsr GetMenuBarHeight
	ldy #ciFirstScanline
	cmp [<ptr],y
	bcs @startHere
	lda [<ptr],y
@startHere	tay	;line number

	clc
	lda <ptr
	pha
	adc #ciSCBs
	sta <ptr

@restoreSCBs	phy

	pha	;space for GetSCB
	phy
	_GetSCB
	pla

	and #$00f0	;keep mode bits
	ply
	phy
	ora [<ptr],y	;slap in the old color table number

	phy	;line number to set
	pha	;new SCB value
	_SetSCB

	ply
	iny
	cpy #200
	bcc @restoreSCBs

	pla
	sta <ptr	;restored <ptr

*** done restoring SCBs; now restore the color table
	lda [<ptr]	;table number to restore
	pha
	pei <ptr+2
	clc
	lda <ptr
	adc #ciColorTable
	pha
	_SetColorTable

	lda <flags
	jsr doCtlNewRes

	pei <theHandle+2
	pei <theHandle
	_DisposeHandle
	tax

@error	pla
	pla	;discarded ptr
	pld
	ldy #6	;strip 6 bytes
	jml >$e10184	;ToStrip

	EndP


	if NewPortKillPort then
*******************************************************************************
*
* off-screen port routines -- Version 3.0
*
* Copyright (c)
* Apple Computer, Inc.  1989-1990
* All Rights Reserved.
*
* Written by Eric Soldan.
*
* The purpose of this code is to make creating and disposing of off-screen
* grafPorts more convenient.
*
*******************************************************************************
*
* $1112 NewPort(pmapPortInfoPointer):GrafPortPtr
*
* pmapPortInfo structure:
* +000 portPtr
* +004 portHndl
* +008 pixMapPtr
* +012 pixMapHndl
* +014 pixMapAttr
* +016 portRect
* +024 pixMapRect
*
*******************************************************************************
NewPort	PROC export
	import KillPort

	DefineStack

keepPort	long	;Must be at 1,s.
portPtr	long	;Pass NULL if mem needed for port.
portHndl	long
bitMapPtr	long	;Pass NULL if mem needed for bitMap.
bitMapHndl	long
bitMapAttr	word	;Memory attributes for bitMap.
ourPortRect	block 8
bitMapRect	block 8
endDesc	block 0	;Descriptor locals end here.

portInfo	block oportRect-oportInfo
bitMapHeight	word
bmPtr	long	;Pointer to bitMap, if we made one.
tempPtr	long	;Temporary bitMap work pointer.
npUserID	word	;added 19-Jan-91 DAL

sizeLocals	EndLocals

saveDPage	word
returnAddr	block 6	;used to be block 3 (DAL)

	BegParms
portDescPtr	long	;Pointer to port descriptor.
sizeParms	EndParms

retval	long	;We will return the new grafPortPtr.

	tax	;keep WAP handy (DAL)

	phd	;Save directPage register.
	tsc	;Make space for locals.
	sec
	sbc #sizeLocals
	tcd	;Set directPage register.
	tcs

*** with WAP still in X, get QD User ID and put it in <npUserID (19-Jan-91 DAL)
	lda >$0000000A,x	;offset to QD user ID
	sta <npUserID
***

	_GetPort	;keepPort is result space.

	ldy #endDesc-portPtr-2
@a	tyx	;Copy descriptor data into directPage.
	lda [portDescPtr],y
	sta portPtr,x
	dey
	dey	
	bpl @a

	stz portHndl	;Flag that we don't have handles yet.
	stz portHndl+2
	stz bitMapHndl
	stz bitMapHndl+2

	stz retval	;Assume we fail.
	stz retval+2

	lda portPtr+1	;See if we were passed a port pointer.
	bne @givenPortMem	;We were.

	pha	;Result space.
	pha
	pea portSize>>16	;Size of handle.
	pea portSize
	pei <npUserID	;19-Jan-91 DAL
	pea attrLocked+attrFixed+attrNoCross
	pha	;location doesn't matter
	pha
	_NewHandle
	plx
	ply
	bcc @havePortHndl	;We succeeded at creating a port handle.
	brl @exit	;Failed because we couldn't get memory.

@havePortHndl	stx portHndl	;We succeeded, so save the handle.
	sty portHndl+2

	ldy #2	;Dereference the handle to a grafPortPtr.
	lda [portHndl]
	sta portPtr
	lda [portHndl],y
	sta portPtr+2

@givenPortMem	pei portPtr+2	;Now that we have grafPort mem, in either
	pei portPtr	;case, try opening the port.
	_OpenPort
	bcc @portOpened	;Hey, it worked!

	tay	;Keep error code.
	lda #$8000	;This flag indicates that the _OpenPort
	tsb portHndl+2	;failed.  If it failed, we should not
		;do a _ClosePort.
	tya	;Restore error code.
	brl @exit	;Failed because we couldn't get memory.

@portOpened	pha	;Push parms to make visRgn rectangular.
	pha
	_GetVisHandle
	pea 0
	tdc
	clc
	adc #ourPortRect
	pha
	_RectRgn

*** Note: This was buggy in the DTS version.  Was calling RectRgn with garbage once.

	pha	;Push parms to make clipRgn rectangular.
	pha
	_GetClipHandle
	pea 0
	tdc
	clc
	adc #ourPortRect
	pha
	_RectRgn

	pea 0	;Get the new port's locInfo structure.
	tdc
	clc
	adc #portInfo
	pha
	_GetPortLoc

	lda bitMapRect+oh2	;Get width of bitMap rectangle.
	sec
	sbc bitMapRect+oh1
	ldx portInfo+oportSCB-1
		;Check bit 7 of the portSCB.
	bmi @b	;The -1 is so we can bmi test.
	asl a	;Pretend it is 640 for below math.

@b	clc	;Convert 640 width into rowBytes.
	adc #3
	lsr a
	lsr a
	clc
	adc #7
	and #$FFF8
	sta portInfo+owidth

	ldx bitMapPtr+1	;See if we need to make a bitMap.
	bne @givenBitMapMem	;We don't need to.

	pha	;Result space for _NewHandle
	pha
	pha	;Result space for _Multiply
	pha
	pha	;_Multiply param 1 (acc is still width).
	lda bitMapRect+ov2
	sec
	sbc bitMapRect+ov1
	sta bitMapHeight
	pha	;_Multiply param 2
	_Multiply
	pei <npUserID	;19-Jan-91 DAL
	pei bitMapAttr	;Memory attributes for bitMap.
	pha	;location doesn't matter
	pha
	_NewHandle
	plx
	ply
	bcs @exit	;Failed because we couldn't get memory.
	stx bitMapHndl
	sty bitMapHndl+2

	ldy #2	;Dereference bit Map handle.
	lda [bitMapHndl]
	sta bmPtr
	sta tempPtr
	lda [bitMapHndl],y
	sta bmPtr+2
	sta tempPtr+2

	ldx bitMapHeight	;Fill bitMap with white.
@white1	lda #$FFFF
	ldy portInfo+owidth
@white2	dey
	dey
	sta [tempPtr],y
	bne @white2
	lda tempPtr
	clc
	adc portInfo+owidth
	sta tempPtr
	bcc @ok
	inc tempPtr+2
@ok	dex
	bne @white1

@givenBitMapMem	ldx #6	;Copy the bounds rect into locInfo.
@moveBounds	lda bitMapRect,x
	sta portInfo+oboundsRect,x
	dex
	dex
	bpl @moveBounds

	lda bitMapPtr+2
	bmi @defaultBitMap	;Use QuickDraw default bitMap pointer.

	ldx bitMapPtr
	ldy bitMapPtr+2
	lda bitMapPtr+1
	bne @passedBitMap	;Use bitMap pointer declared by application.

	ldx bmPtr	;Use pointer to bitMap we made.
	ldy bmPtr+2

@passedBitMap	stx portInfo+optrToPixImage
	sty portInfo+optrToPixImage+2

@defaultBitMap	pea 0	;Set the portLoc, now that we have
	tdc	;finished setting it up.
	clc
	adc #portInfo
	pha
	_SetPortLoc

	pea 0	;Set the portRect to the passed rect.
	tdc
	clc
	adc #ourPortRect
	pha
	_SetPortRect

	lda portPtr	;Everything worked, so pass back the
	sta retval	;new grafPort pointer, instead of NULL.
	lda portPtr+2
	sta retval+2

	clc	;We had no error.

@exit	ldy #0	;Assume no error.
	bcc @noError	;Hey, we were right!

@error	pha	;Keep error code.
	pei portDescPtr+2
	pei portDescPtr
	jsl KillPort	;Dispose everything that was created.
	ply	;Restore error code.

@noError	phy	;Keep error code (if any).

	pei keepPort+2	;Restore the port.
	pei keepPort
	_SetPort

	ldy #endDesc-portPtr-2
@c	tyx	;Update the port descriptor.
	lda portPtr,x
	sta [portDescPtr],y
	dey
	dey
	bpl @c

***	ply	;Restore error code (if any).
	plx	;get error code in X

	tsc	;Get rid of local variables.
	clc
	adc #sizeLocals
	tcs
	pld	;Restore directPage register.

;	lda 1,s	;Move return address.
;	sta 1+sizeParms,s
;	lda 2,s
;	sta 2+sizeParms,s
;	tsc	;Get rid of passed parameters.
;	adc #sizeParms
;	tcs
;	tya
;	cmp #1	;Set error status correctly.
;	rtl

	ldy #sizeParms
	jml $e10184	;ToStrip

	ENDP

*******************************************************************************
*
* $1212 KillPort(pmapInfoPointer)
*
* Kills a port created with NewPort.
*
*******************************************************************************
KillPort	PROC export

	DefineStack

portPtr	long	;Pass NULL if mem needed for port.
portHndl	long
bitMapPtr	long	;Pass NULL if mem needed for bitMap.
bitMapHndl	long
endDesc	block 0	;Descriptor locals end here.
		;We don't need the entire descriptor.

sizeLocals	EndLocals

saveDPage	word
returnAddr	block 6	;was block 3 (DAL)

	BegParms
portDescPtr	long	;Pointer to port descriptor.
sizeParms	EndParms


	phd	;Save directPage register.
	tsc	;Make space for locals.
	sec
	sbc #sizeLocals
	tcd	;Set directPage register.
	tcs	;Allow us to use 0 as directPage address.

	ldy #endDesc-portPtr-2
@a	tyx	;Copy descriptor data into directPage.
	lda [portDescPtr],y
	sta portPtr,x
	dey
	dey	
	bpl @a

	lda bitMapHndl+1
	beq @notOurBitMap
	pei bitMapHndl+2
	pei bitMapHndl
	_DisposeHandle

@notOurBitMap	lda portHndl+2
	bmi @openPortFailed	;This is our flag that the _OpenPort
		;in NewPort failed.  If it failed, then
		;we don't want to do a _ClosePort on it.

	pei portPtr+2	;Close the port, since it opened okay.
	pei portPtr
	_ClosePort

@openPortFailed	lda portHndl+1
	beq @notOurPortMem
	lda portHndl+2
	and #$7FFF
	pha
	pei portHndl
	_DisposeHandle
	ldy #2	;If we created a handle for the grafPort
	lda #0	;memory, we did this because the portPtr
	sta [portDescPtr]	;field was NULL.  If this is the case, we
	sta [portDescPtr],y	;need to return it to it's original value.
	
@notOurPortMem	tsc	;Get rid of local variables.
	clc
	adc #sizeLocals
	tcs
	pld	;Restore directPage register.

;	lda 1,s	;Move return address.
;	sta 1+sizeParms,s
;	lda 2,s
;	sta 2+sizeParms,s
;	tsc	;Get rid of passed parameters.
;	adc #sizeParms
;	tcs
;
;	lda #0	;return no error.
;	clc
;	rtl

	ldy #sizeParms
	ldx #0	;no error
	jml $e10184	;ToStrip

	ENDP

	endif

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/QDAux/seedfill.asm b/IIGS.601.SRC/GSToolbox/QDAux/seedfill.asm
new file mode 100644
index 0000000..b738b7c
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/QDAux/seedfill.asm
@@ -0,0 +1 @@
+
*********************************************************************************
*			         						*										     *
*				SeedFill / CalcMask				*
*			         						*										     *
*			         						*										     *
* 				Copyright © 1988-1989				*
* 				All Rights Reserved		        	*
*				Apple Computer, Inc.				*
*			         						*
*********************************************************************************


***************************************************************************
* SeedFill / CalcMask Tools
*
*  September, 1988         Sue Dumont
*
*  
*  SeedFill and CalcMask are tools located in QDAux that will basically fill
*  an area with a specified pattern.  The operations are similar to the Macintosh
*  MacPaint paint bucket (SeedFill) and lasso (CalcMask).
*
* Files:
*	all.macros			system macros
*	special.macros			additional macros not in all.macros
*	sys.equs.asm			system equates
*	e16.memory			system equates for Memory Manager
*
* Modification History:
*
*
* 28 November 88	Sue Dumont
*
* Changed input parameter ResMode to mean the following:  
*	0 - 640 pure mode;  1 - 640 dithered;  2 - 320 mode.
*
* 8 December 88		Sue Dumont
*
* Added CheckInBounds routine to perform additional error checking.  This routine
* ensures that both the source rect and dest rect are contained within their
* respective bounds rectangles.
*
* 17 May 89		Andy Stadler
*
*  Three changes:
*  - Output routines ExpandMap320 & 640 have been modified.  They used to
*    write the pattern + the source into the dest.  Now they write pattern
*    onto the existing dest.  This makes SeedFill more versatile (it can
*    do a pure "fill" or it can generate a "fill mask") and makes CalcMask
*    -really- work for the first time (it couldn't generate a mask).
*
*  - reserved 4 bits in resMode to signify a 'write' mode.  Mostly these
*    control a "dest preprocessor" which sets up the destination pixel map.
*    Four modes are currently defined:
*
*	0000 - Copy source into dest
*	0001 - do nothing before overlaying
*	0010 - Preclear dest to 0's
*	0011 - Preclear dest to 1's
*
*  - Added new functionality to the pattern.  If the pattern ptr is -1, an
*    all 1's pattern is defaulted.  If the pattern ptr is NIL, and all zeros
*    pattern is used.  Otherwise a real pattern is used.
*
* 25 May 89		Andy Stadler
*
*  Fixed a bug in Expand 640.  I introduced a bug when I made the above
*  changes.  This bug caused garbage overfills when using 640 pure mode.
*
* 19-Sep-90		Dave Lyons
*
* Fixed SeedFill/CalcMask not to return an error by accident in 640 pure mode.
*
* 22-Oct-90		Dave Lyons
*
* Fixed rounding of Multiply result to even size so that it can overflow to
* the high word.  Was only a problem with bitmap sizes of $xxFFFF.
* (Tracked down by Andy Stadler.)
*
* Changed "lda bitmapWords" to "lda bitmapBytes" so the first row works
* right on a CalcMask.
*
***************************************************************************

		include 'all.macros'
		include 'special.macros'
		include '::sys.equs.asm'
		include 'e16.memory'
           	include '::qd:qdequates:core.globals1'
		include 'QDAuxEquates.asm'
;
; Offsets into LocInfo data record
;
Myportscb       equ  0				;scanline control byte
Myimageref      equ  Myportscb+2		;pixel image pointer
Mywidth         equ  Myimageref+4		;width, in bytes, of pixel image
Myboundsrect    equ  Mywidth+2			;boundary rectangle

top		EQU  0
left		EQU  2
bottom		EQU  4
right		EQU  6

;
; Direct Page Equates              Data
;
		DSect 0
srcrow		word				;# bytes per row in source pixel image (from locInfo)
dstrow		word				;# bytes per row in dest pixel image (from locInfo)
height		word				;height of pixelmap and bitmap
words		word				;# words per row in pixelmap
nbytes		word				;# bytes per row in pixelmap
rowWidth   	word				;# words in row to process
bitmapWords	word				;# words per row in compressed bitmap
bitmapBytes	word				;# bytes per row in compressed bitmap
seedH		word				;horizontal x value of seed point
seedV		word				;vertical y value of seed point
IsEqual		word				;flag indicating is src and dst parameters equal
edge		word				;edge value (0-calcmask,1-seedfill)
notSource	word				;stores destination value
dest		word				;holds value from destination bitmap
linechange	word				;line change flag
UpDownFlag	word				;used in SeedFill/CalcMask algorithm
expand		word
change		word
firstLine   	word
lastLine	word
oldLastLine	word
oldFirstLine	word
firstCol	word
lastCol		word
oldFirstCol	word
oldLastCol	word
xcount		word
temp		word
temph		word
msk		word				;mask data
ResMode		word				;mode - 0:640 pure  1:640 dithered  2:320 
CurrentY	word				;current scan line
SrcCounter	word				;source bitmap index
DstCounter	word				;destination pixelmap index
memory		long
PenPat		long				;pen pattern pointer
BlowUpTable	long				;table ptr that expands 1 bit to 2 bits for 640 mode
leakTbl		long				;leak color table pointer
SrcImagePtr	long				;ptr to source pixel image
DestImagePtr	long				;ptr to destination pixel image
SourcePtr	long				;ptr to source bitmap in buffer
DestPtr		long				;ptr to destination bitmap in buffer
PrevLinePtr	long				;ptr to line above the current line
PatternPtr	long				;pattern pointer
srcRectPtr	long				;source rectangle pointer
dstRectPtr	long				;destination rectangle pointer
srcLocInfo	long				;source LocInfo record pointer
dstLocInfo	long				;destination LocInfo record pointer
SrcBufPtr	long				;source bitmap buffer pointer
DstBufPtr	long				;destination bitmap buffer pointer
PtrEdgeLine	long				;pointer to a line of edge value
hdlbuf		long				;holds memory handle

expMask		long				; used when writing masked data
destMode	word				; mode bits taken from resMode
destJmp		word				; used for dest preprocessor
destBytes	word				; bytes per row of dest image

*
* Set up some equates.
*
leaksIndex1	equ	temph			;index for nibble leak colors
leaksIndex2	equ	temp			;index for crumb (half-nibble) leak colors
masksIndex1	equ	expand			;index for nibble masks
masksIndex2	equ	linechange		;index for crumb masks
loopCount	equ	change
sourceData	equ     srcCounter
rectPtr		equ     SourcePtr
LocInfoPtr	equ	DestPtr

*===============================================================================================*
*			
SeedFill	PROC Export
*
*
* Inputs:
*		srcLocInfo   : PtrLocInfo		;ptr to src locInfo data record
*		srcRectPtr   : rectPtr			;src port rectangle pointer
*		dstLocInfo   : PtrLocInfo		;ptr to dest locInfo data record
*		dstRectPtr   : recPtr			;dest port rectangle pointer
*		SeedH        : Word			;x coordinate of seed
*		SeedV        : Word			;y coordinate of seed
*		ResMode      : Word			;resolution mode
*		PatternPtr   : PtrPat			;fill pattern pointer
*		LeakTblPtr   : Ptr			;leak color table pointer
*
* Outputs:
*		dstRectPtr   : recPtr			;contains new pixel image
*
* External Refs:
*		none
*
* Entry Points:
*		none
*
		longa on				;mode
		longi on
*
* Revision History:
*
* 28 November 88	Sue Dumont
*
*     Redesigned code.  Now, ResMode contains  0 : 640 pure mode
*					       1 : 640 dithered mode
*					       2 : 320 mode
*
*     The leak colors are now organized in the sense that the colors are columnar
*     rather than in rows. For example, now the 320/640 dithered table looks like:
*
*       Color  1     2     3     4     5     6     7     8     9     10    11    12    13    14    15    16
* LeakColors  000F  000F  000F  000F  000F  000F  000F  000F  000F  000F  000F  000F  000F  000F  000F  000F
*             00F0  00F0  00F0  00F0  00F0  00F0  00F0  00F0  00F0  00F0  00F0  00F0  00F0  00F0  00F0  00F0
*              :     :     :     :     :     :     :     :     :     :     :     :     :     :     :     :
*
*     and the 640 pure table looks like:
*
*       Color  1     2     3     4
* LeakColors  000F  000F  000F  000F		;nibble data
*	      00F0  00F0  00F0  00F0
*	      0F00  0F00  0F00  0F00
*	      F000  F000  F000  F000
*	      0003  0003  0003  0003		;half nibbles ("crumbs")
*	      000C  000C  000C  000C
*	      0030  0030  0030  0030
*              :     :     :     :
*
*
*===============================================================================================*

		DefineStack
OrigD		word
OrigB		byte
RTL1		block 3
RTL2		block 3
InputLeakPtr	long					;leak color table pointer
InputPatPtr	long					;fill pattern pointer
InputRes	word					;resolution mode (320/640 pure/640 dithered)
InputV		word					;vertical seed
InputH		word					;horizontal seed
InputDstRect	long					;pointer to destination port rect
InputDstLocInfo long					;pointer to destination LocInfo data record
InputSrcRect	long					;pointer to source port rect
InputSrcLocInfo long					;pointer to source LocInfo data record

		phb					;save dbr
		phk					;set dbr to code bank
		plb
		phd					;save direct page
		clc					;use QuickDraw's 3rd DPage
		adc #$200
	      	tcd					;set direct page.
*
* move stack input parameters to direct page
*
		lda  InputLeakPtr,s			;color table pointer
		sta  leakTbl
		lda  InputLeakPtr+2,s
		sta  leakTbl+2
		lda  InputPatPtr,s			;fill pattern pointer
               	sta  PatternPtr
               	lda  InputPatPtr+2,s
               	sta  PatternPtr+2

		lda  InputRes,s				;mode - 0:640 pure; 1:640 dithered; 2:320;
		sta  ResMode
							;used until the map is expanded
		lda  InputV,s				;y coordinate of seed
		sta  seedv
		lda  InputH,s				;x coordinate of seed
		sta  seedh
		
	        lda  InputDstLocInfo,s			;pull dest locInfo record off stack
		sta  dstLocInfo
		lda  InputDstLocInfo+2,s
		sta  dstLocInfo+2
		lda  InputDstRect,s
		sta  dstRectPtr
		lda  InputDstRect+2,s
		sta  dstRectPtr+2
		
		lda  InputSrcLocInfo,s
		sta  srcLocInfo
		lda  InputSrcLocInfo+2,s
		sta  srcLocInfo+2
		lda  InputSrcRect,s
		sta  srcRectPtr
		lda  InputSrcRect+2,s
		sta  srcRectPtr+2
		
		lda  #$FFFF
		sta  Edge
		
		bra  BeginIt
		
*===============================================================================================*
*
		Export CalcMask
CalcMask
*
* Inputs:
*		srcLocInfo   : PtrLocInfo		;ptr to src locInfo data record
*		srcRectPtr   : rectPtr			;src port rectangle pointer
*		dstLocInfo   : PtrLocInfo		;ptr to dest locInfo data record
*		dstRectPtr   : recPtr			;dest port rectangle pointer
*		ResMode      : Word			;resolution mode
*		PatternPtr   : PtrPat			;fill pattern pointer
*		LeakTblPtr   : Ptr			;leak color table pointer
*
* Outputs:
*		dstRectPtr   : recPtr			;contains new pixel image
*
* External Refs:
*		none
*
* Entry Points:
*		none
*
		longa on				;mode
		longi on
*
*===============================================================================================*

		DefineStack
OrigD1		word
OrigB1		byte
RTL01		block 3
RTL02		block 3
InputLeakPtr1	long					;leak color table pointer
InputPatPtr1	long					;fill pattern pointer
InputRes1	word					;resolution mode (320/640 pure/640 dithered)
InputDstRect1	long					;pointer to destination port rect
InputDstLoc     long					;pointer to destination LocInfo data record
InputSrcRect1	long					;pointer to source port rect
InputSrcLoc     long					;pointer to source LocInfo data record

		phb					;save dbr
		phk					;set dbr to code bank
		plb
		phd					;save direct page
		clc					;use QuickDraw's 3rd DPage
		adc #$200
		tcd					;set direct page.
*
* move stack input parameters to direct page
*
		lda  InputLeakPtr1,s			;color table pointer
		sta  leakTbl
		lda  InputLeakPtr1+2,s
		sta  leakTbl+2
		lda  InputPatPtr1,s			;fill pattern pointer
               	sta  PatternPtr
               	lda  InputPatPtr1+2,s
               	sta  PatternPtr+2

		lda  InputRes1,s			;mode - 0:320; 1:640 pure; 2:640 dithered
		sta  ResMode

	        lda  InputDstLoc,s			;pull dest locInfo record off stack
		sta  dstLocInfo
		lda  InputDstLoc+2,s
		sta  dstLocInfo+2
		lda  InputDstRect1,s
		sta  dstRectPtr
		lda  InputDstRect1+2,s
		sta  dstRectPtr+2
		
		lda  InputSrcLoc,s
		sta  srcLocInfo
		lda  InputSrcLoc+2,s
		sta  srcLocInfo+2
		lda  InputSrcRect1,s
		sta  srcRectPtr
		lda  InputSrcRect1+2,s
		sta  srcRectPtr+2
		
		stz  SeedV
		stz  FirstLine
		stz  oldFirstLine
		stz  LastLine
		stz  SeedH
		stz  FirstCol
		stz  oldFirstCol
		stz  Edge
*
*------------------------ SeedFill and CalcMask common code ----------------------------------
*
*  start by converting resMode into resMode and destMode

BeginIt		
		lda	resMode
		tax
		and	#3		; only 0,1,2 are valid resMode's
		sta	resMode
		txa
		xba			; move 12..15 to 0..3
		lsr	a
		lsr	a
		lsr	a
		lsr	a
		and	#15
		sta	destMode
		
		cmp	#4		; check for valid mode
		blt	setupLeaks
		lda	#badModeError
		brl	exit

* next, set up the mask table for the leak colors.
*
setupLeaks	lda  ResMode			;check if 640 pure or 640 dithered/320
		beq  Set640Mode
		brl  Set320Mode

Set640Mode	lda  #$000F			;640 pure mode
		sta  LeakColors
		sta  LeakColors+2
		sta  LeakColors+4
		sta  LeakColors+6
		xba
		sta  LeakColors+16
		sta  LeakColors+18
		sta  LeakColors+20
		sta  LeakColors+22
		lda  #$00F0
		sta  LeakColors+8
		sta  LeakColors+10
		sta  LeakColors+12
		sta  LeakColors+14
		xba
		sta  LeakColors+24
		sta  LeakColors+26
		sta  LeakColors+28
		sta  LeakColors+30
		lda  #$0003
		sta  LeakColors+32
		sta  LeakColors+34
		sta  LeakColors+36
		sta  LeakColors+38
		xba
		sta  LeakColors+64
		sta  LeakColors+66
		sta  LeakColors+68
		sta  LeakColors+70
		lda  #$000C
		sta  LeakColors+40
		sta  LeakColors+42
		sta  LeakColors+44
		sta  LeakColors+46
		xba
		sta  LeakColors+72
		sta  LeakColors+74
		sta  LeakColors+76
		sta  LeakColors+78
		lda  #$0030
		sta  LeakColors+48
		sta  LeakColors+50
		sta  LeakColors+52
		sta  LeakColors+54
		xba
		sta  LeakColors+80
		sta  LeakColors+82
		sta  LeakColors+84
		sta  LeakColors+86
		lda  #$00C0
		sta  LeakColors+56
		sta  LeakColors+58
		sta  LeakColors+60
		sta  LeakColors+62
		xba
		sta  LeakColors+88
		sta  LeakColors+90
		sta  LeakColors+92
		sta  LeakColors+94
		
		bra  LetsGo

Set320Mode	ldy  #4				;640 dithered / 320 mode
		ldx  #0
		lda  #$000F

@Loop		sta  LeakColors,x
		sta  LeakColors+2,x
		sta  LeakColors+4,x
		sta  LeakColors+6,x
		sta  LeakColors+8,x
		sta  LeakColors+10,x
		sta  LeakColors+12,x
		sta  LeakColors+14,x
		sta  LeakColors+16,x
		sta  LeakColors+18,x
		sta  LeakColors+20,x
		sta  LeakColors+22,x
		sta  LeakColors+24,x
		sta  LeakColors+26,x
		sta  LeakColors+28,x
		sta  LeakColors+30,x
		dey
		beq  LetsGo
		asl  a
		asl  a
		asl  a
		asl  a
		sta  temp		;save it here
		txa
		clc
		adc  #32
		tax
		lda  temp
		bra  @Loop
		

LetsGo		jsr CalcSizeAndAllocate			;initialize variables and allocate bitmaps
		bcs Exit				;error occurred

doColors	jsr  SetLeakColors 			;set up color table and masks
				
		jsr CompressMap				;compress the pixelmap to a bitmap
		jsr InitDestination			;initialize the dest bitmap before using		
		jsr FillOneBitImage			;perform SeedFill algorithm

;  Here, adjust the pattern parameter if the pat passed in was NIL or -1

		lda	patternPtr		; check for NIL
		ora	patternPtr+2
		bne	@1
		lda	#blackPat		; replace with all zero's pat
		ldx	#blackPat>>16
		bra	@2
@1
		lda	patternPtr		; check for all 1's
		and	patternPtr+2
		inc	a
		bne	@3
		lda	#whitePat
		ldx	#whitePat>>16
@2
		sta	patternPtr		; replace NIL or -1 with ptr
		stx	patternPtr+2
@3

;  now check resmode and go to an outputter

		lda  ResMode
		bne  Expand320				;expandmap for both 320 and 640 dithered		
		jsr  ExpandMap_640			;convert bitmap back to pixelmap
		bra  Exit
Expand320	jsr  ExpandMap_320
*
* Clean up and exit
*
Exit		pha					;error code, if any
		lda  hdlbuf				;unlock and dispose of memory handle
               	ldx  hdlbuf+2
              	phx
               	pha
              	phx
               	pha
		_HUnlock
               	_DisposeHandle
		
		lda  edge
		beq  CleanCalcMask
		
		plx					;Error Code, if any
		pld					;Clean up SeedFill stack
		plb
		ldy  #30				;strip 30 bytes from stack
		jml  ToStrip				;for SeedFill input parameters

CleanCalcMask	plx					;Error code, if any
		pld					;Clean up CalcMask stack
		plb
		ldy #26					;strip 26 bytes from stack
		jml ToStrip				;for CalcMask input parameters

*=====================================================================
*
CalcSizeAndAllocate
*
* Performs the calculations for the output variables, as well as allocates the bitmaps
* needed to convert the pixelmap to a bitmap and for the SeedFill/CalcMask algorithm.
*
* Inputs:
*		None
*
* Outputs:
*	height -  height of pixel image.		RectY2 - RectY1 - 1
*	words  -  # words per row in pixelmap.		(RectX2 - RectX1) / (#pixels per word)
*	nbytes -  # bytes per row in pixelmap.		words * 2			
*	bitmapWords -  # words per row in bitmap.	(words-1) / 2 + 1
*	bitmapBytes -  # bytes per row in bitmap.	bitmapWords * 2
*	memory -  # bytes in memory block to allocate.	(height+1) * bitmapBytes * 2 + bitmapBytes				
*	SrcImagePtr -  ptr to beginning of pixelmap.	ImageRef + [(ImageWidth * (RectY - BoundsY)) 
*								+ (RectX - BoundsX) / 4]
* External Refs:
*		None
*
* Entry Points:
*		None
*
*=====================================================================

		jsr  CheckIfEqual			;check if source and dest parameters same
*
* Make sure no BadRect Errors 
*
               	ldy  #bottom
               	lda  [srcRectPtr],y			;calculate the height
		sec					;of source pixel image
               	sbc  [srcRectPtr]			;srcRectY2 - srcRectY1
               	dea					;save height
		bmi  ErrorExit				;ERROR - negative height!
               	sta  height
		lda  IsEqual
		beq  DoCalcs				;Is Equal, skip next check
*
* If source and dest not equal, test if destination rectangle is of same height
*
		ldy  #bottom
		lda  [dstRectPtr],y
		sec
		sbc  [dstRectPtr]
		dea
		cmp  height
		bne  ErrorExit				;ERROR - source and dest not same height!
		
DoCalcs		ldy  #left				;x1
		lda  [srcRectPtr],y
		sta  words
		ldy  #right				;x2
		lda  [srcRectPtr],y
		sec
		sbc  words				;at this point, words = x2 - x1
		ldy  ResMode				;check which resolution mode (320/640)
		cpy  #2
		beq  @320				;320 mode only
		lsr  a					;div by 8 for 8 pixels per word (640 mode)
@320		lsr  a					;div by 4 for 4 pixels per word (320 mode)
		lsr  a
		sta  words				;number of words per row in pixelmap
		asl  a
		sta  nbytes				;number of bytes per row in pixelmap
		lda  IsEqual
		beq  dotest
*
* Test width of source and dest rectangles to make sure same size
*
		ldy  #left
		lda  [dstRectPtr],y
		sta  temp
		ldy  #right
		lda  [dstRectPtr],y
		sec
		sbc  temp
		ldy  ResMode
		cpy  #2
		beq  div4
		lsr  a					;div by 8 for both 640 modes
div4		lsr  a
		lsr  a
		cmp  words
		bne  ErrorExit				;ERROR - not same size in width!
*
* Test height and words for loop. Quit if either <= 0
*
dotest       	lda  words               		;Get count of words
		beq  ErrorExit				;if # words  = 0, error
               	bpl  Xokay
		
ErrorExit	lda #BadRectError			;negative count! Return error and 
		sec					;quit.
		rts
*
* Final Error check:  verify that the source rect and dest rect are both completely within
* or equal to their respective boundsRect.
*

Xokay		jsr  CheckInBounds
		bcs  ErrorExit				;either source or dest rect is not
							;within its bounds rect!
		jsr  GetPixImagePtrs			;set up SrcImagePtr and DestImagePtr
*
* Allocate space for the pixelmap compression
*
		pha					;space for multiplication result
               	pha
               	lda  words
               	dea
		ldy  ResMode				;check graphic mode
		beq  @640				;if not, treat as 320 mode
		lsr  a					;320: pixelmap to bitmap ratio is 4:1
@640        	lsr  a					;640: pixelmap to bitmap ratio is 2:1
               	ina
               	sta  bitmapWords			;# words per row in bitmap
               	asl  a
               	sta  bitmapBytes			;# bytes per row in bitmap
               	pha
               	dea
               	dea
               	sta  rowWidth				;= bitmapBytes-2 = 2(bitmapWords-1)
               	lda  height
               	ina
               	pha					;# bytes per row * height
               	_Multiply
               	pla
               	sta  memory				;total # bytes in compressed bitmap
		and  #$0001				;check if odd or even
		beq  IsEven
		inc  memory				;is odd so make even
		bne  @1			;** Added 22-Oct-90 DAL
		pla			;**
		inc a			;**
		pha			;**
@1					;** end of 22-Oct-90 DAL
IsEven        	pla
               	sta  memory+2
*
* Allocate 2 bitmap areas, one for the source bitmap and the
* other for the destination bitmap.
*
               	pha					;space for NewHandle
               	pha			   
               	lda  memory
               	asl  a
               	pha		
               	lda  memory+2
               	rol  a
               	tax
               	pla
               	clc
               	adc  bitmapBytes			;one line for PrevLine
               	tay					;allocation size (low word)
               	txa
               	adc  #0
               	pha					;high word of allocation size 
               	phy					;low word

		tdc
		sec
		sbc  #$200
		tax
		lda  >UserID,x				;SMD - 11/29/88
		pha					;push user id on stack
               	PushWord #attrLocked+attrFixed+attrNoCross
               	lda  #0
               	pha
               	pha
               	_NewHandle				;allocate memory
               	bcc  OkM1
		sec
		rts
			   
OkM1	       	pla
               	sta  hdlbuf				;memory handle
               	pla
               	sta  hdlbuf+2
			   
               	lda  [hdlbuf]
               	sta  PtrEdgeLine			;1st row is for edge data
	       	ldy  #2
	       	lda  [hdlbuf],y
	       	sta  PtrEdgeLine+2
			   
	       	lda  PtrEdgeLine
		clc
               	adc  bitmapBytes
	       	sta  SrcBufPtr				;point to 1st bitmap
	       	lda  PtrEdgeLine+2			; portion of space
		bcc  @NoCarry
		inc  a
@NoCarry	sta  SrcBufPtr+2
			   
	       	lda  SrcBufPtr
		clc
	       	adc  memory
	       	sta  DstBufPtr				;point to 2nd bitmap
	       	lda  SrcBufPtr+2			; portion of space
	       	adc  memory+2
	       	sta  DstBufPtr+2

		lda #0
		clc					;no error
		rts					;return


*=====================================================================
*
CheckInBounds
*
*   Verifies that both the source rectangle and the destination
*   rectangle are contained within or equal to their respective
*   bounds rect.
*
* Inputs:
*		None
*
* Outputs:
*		Carry bit is set if an error has occurred.
*
* External Refs:
*		None
*
* Entry Points:
*		None
*
*=====================================================================

		lda  IsEqual
		beq  CheckOne
		ldx  #2
		bra  InitPtrs
CheckOne	ldx  #1				;need to check only one set of
						;data since identical

InitPtrs	MoveLong SrcRectPtr,RectPtr
		MoveLong SrcLocInfo,LocInfoPtr

CheckBottom	ldy  #MyBoundsRect+4		;bottom
		lda  [LocInfoPtr],y
		ldy  #MyBoundsRect		;top
		sec
		sbc  [LocInfoPtr],y
		clc
		ldy  #bottom
		cmp  [RectPtr],y
		bcs  CheckTop
		bra  NotInBounds
		
CheckTop	lda  [RectPtr]
		ldy  #MyBoundsRect		;top
		sec
		sbc  [LocInfoPtr],y
		bmi  NotInBounds
		
CheckRight	ldy  #MyBoundsRect+6		;right
		lda  [LocInfoPtr],y
		ldy  #MyBoundsRect+2		;left
		sec
		sbc  [LocInfoPtr],y
		clc
		ldy  #right
		cmp  [RectPtr],y
		bcs  CheckLeft
		bra  NotInBounds
		
CheckLeft	ldy  #left
		lda  [RectPtr],y
		ldy  #MyBoundsRect+2		;left
		sec
		sbc  [LocInfoPtr],y
		bmi  NotInBounds
		
NextRect	clc
		dex
		beq  InBounds
		
		MoveLong DstRectPtr,RectPtr
		MoveLong DstLocInfo,LocInfoPtr
		bra  CheckBottom		

NotInBounds	sec
		rts

InBounds	clc
		rts


*=====================================================================
*
CheckIfEqual
*
*    Determines if the source LocInfo data record and source rect contain the
*    same data as the destination LocInfo record and dest rect.
*    The flag, IsEqual, is set to 0 if equal; 1 if not equal.
*
* Inputs:
*		None
*
* Outputs:
*		IsEqual :  0 - equal
*		    	   1 - unequal
*
* External Refs:
*		None
*
* Entry Points:
*		None
*
* Revision History:
* 
* 18 Jan 89	SMD
*
*  Added comparison checks for all fields of the LocInfo Data records.
*
*=====================================================================

		lda  #1
		sta  IsEqual				;initialize as not equal
		
		ldy  #top
		lda  [srcRectPtr],y			;source rect pointer
		cmp  [dstRectPtr],y			;compared to dest rect pointer
		bne  DoneChk
		ldy  #left
		lda  [srcRectPtr],y
		cmp  [dstRectPtr],y
		bne  DoneChk
		ldy  #bottom
		lda  [srcRectPtr],y
		cmp  [dstRectPtr],y
		bne  DoneChk
		ldy  #right
		lda  [srcRectPtr],y
		cmp  [dstRectPtr],y
		bne  DoneChk

		ldy  #Myportscb				;compare scanline control byte
		lda  [srcLocInfo],y
		cmp  [dstLocInfo],y
		bne  DoneChk
		ldy  #Myimageref			;compare image ref pointers
		lda  [srcLocInfo],y
		cmp  [dstLocInfo],y
		bne  DoneChk
		iny
		iny
		lda  [srcLocInfo],y
		cmp  [dstLocInfo],y
		bne  DoneChk
		ldy  #Mywidth				;compare pixel image width
		lda  [srcLocInfo],y
		cmp  [dstLocInfo],y
		bne  DoneChk
		
		ldy  #MyBoundsRect
               	lda  [srcLocInfo],y			;source locInfo pointer
		cmp  [dstLocInfo],y			;compared to dest locInfo pointer
		bne  DoneChk
		ldy  #MyBoundsRect+2
		lda  [srcLocInfo],y
		cmp  [dstLocInfo],y
		bne  DoneChk
		ldy  #MyBoundsRect+4
		lda  [srcLocInfo],y
		cmp  [dstLocInfo],y
		bne  DoneChk
		ldy  #MyBoundsRect+6
		lda  [srcLocInfo],y
		cmp  [dstLocInfo],y
		bne  DoneChk
		
		stz  IsEqual				;set flag to show they are equal
		
DoneChk		rts


*=====================================================================
*
GetPixImagePtrs
*
*   Calculate SrcImagePtr and DestImagePtr, pointers to the source pixel image and
*   destination pixel image, respectively.  The first loop calculates the
*   SrcImagePtr and the second loop calculates the DestImagePtr, if necessary (if not equal).
*
* Inputs:
*		None
*
* Outputs:
*		None
*
* External Refs:
*		None
*
* Entry Points:
*		None
*
*=====================================================================

		MoveLong  srcLocInfo,SrcBufPtr		;first perform the calculations
		MoveLong  srcRectPtr,DstBufPtr		;for the source pixel image pointer
		
		stz  temp				;used as loop counter
PtrLoop         pha					;push long for output result
               	pha
                ldy  #MyWidth
               	lda  [SrcBufPtr],y
               	pha					;push width, in bytes, of pixel image
               	sta  dstrow
               	sec
               	lda  [DstBufPtr]			;RectY1
               	ldy  #MyBoundsRect
               	sbc  [SrcBufPtr],y			;BoundsY1
               	pha
              	_Multiply				;ImageWidth * (RectY1 - BoundsY1)
               	pla					;store temporarily in memory
               	sta  memory
               	pla
               	sta  memory+2

               	ldy  #left
               	lda  [DstBufPtr],y			;RectX1
               	ldy  #MyBoundsRect+2			;BoundsX1
		sec
               	sbc  [SrcBufPtr],y			;get x1 differences
		ldy  ResMode				;check graphic mode
		cpy  #2
		beq  xdiv2				;320 mode only
               	lsr  a					;div by 4 for 4 pixels/byte (both 640 modes)
xdiv2		lsr  a					;div by 2 for 2 pixels/byte (320)

		clc
               	adc  memory				;add it to the memory
		clc
               	sta  memory
		bcc  @NoCarry
		inc  memory+2

@NoCarry      	lda  memory				;now add the base address of
               	ldy  #MyImageRef			;the imageref bitmap
		clc
               	adc  [SrcBufPtr],y
               	sta  SourcePtr				;store result in SourcePtr
               	lda  memory+2
               	ldy  #MyImageRef+2
               	adc  [SrcBufPtr],y
               	sta  SourcePtr+2

		lda  temp				;check which loop this is
		bne  AllDone				;branch if this is 2nd loop
		MoveLong SourcePtr,SrcImagePtr		;move the data to the appropriate
		lda  dstrow				;source locations
		sta  srcrow
		lda  IsEqual				;if source and dest equal, don't
		beq  AllDone				;need to repeat calculations, so exit.
		inc  temp

		MoveLong  dstLocInfo,SrcBufPtr		;now get destination pixel image pointer
		MoveLong  dstRectPtr,DstBufPtr
		bra  PtrLoop

AllDone		MoveLong SourcePtr,DestImagePtr
		rts

*=====================================================================
*
SetLeakColors
*
* Build the second half of the table LeakColors to have all the possible
* values of a color in a word.  This half of the table is only required
* in 640 pure mode, as it contains 2-bit pixel colors (as opposed to 4).
*
* For example if the color %00000001 is allowed, the
* table will have
*
*      00000000 00000001
*      00000000 00000100
*      00000000 00010000
*      00000000 01000000
*      00000001 00000000
*      00000100 00000000
*      00010000 00000000
*      01000000 00000000
*
* We build eight entries for each color passed in the leak color table.
*
*
* Inputs:
*		None
*
* Outputs:
*		None
*
* External Refs:
*		None
*
* Entry Points:
*		None
*
*=====================================================================

		lda  ResMode				;which mode?
		bne  NextMask				;go to the nibble-to-bit section for 320
		lda  [leakTbl]
		sta  xcount				;number of colors in leak table
		ldx  #32				;index for color mask
		ldy  #2					;leak color table index
ColorLoop	lda  [leakTbl],y			;load leak color
		and  #$0003
		sta  LeakColors,x			;0000 0000 0000 0011
		xba
		sta  LeakColors+32,x			;0000 0011 0000 0000
		asl  a
		asl  a
		sta  LeakColors+40,x			;0000 1100 0000 0000
		xba
		sta  LeakColors+8,x			;0000 0000 0000 1100
		asl  a
		asl  a
		sta  LeakColors+16,x			;0000 0000 0011 0000
		xba
		sta  LeakColors+48,x			;0011 0000 0000 0000
		asl  a
		asl  a
		sta  LeakColors+56,x			;1100 0000 0000 0000
		xba
		sta  LeakColors+24,x			;0000 0000 1100 0000
		dec  xCount
		beq  NextMask
		inx					;advance to next color in LeakColors
		inx
		iny					;next color in leakTbl
		iny
		bra  ColorLoop
*
*---------------------------------------------------------
*
* Now build the first half of the table LeakColors to have
* all the possible values of the colors when they are 
* in a nibble (normal for 320 and 640 dithered mode.  Must
* be doubled for 640 pure mode).  Again if the color is %00000001
* the table will contain:
*
*	        Color 1		    Color 2	      Color 3
*          00000000 00000101	00000000 00000101	etc.
*          00000000 01010000	00000000 01010000	etc.
*          00000101 00000000	00000101 00000000	etc.
*          01010000 00000000	01010000 00000000	etc.
*

NextMask	lda  [leakTbl]
		sta  xcount
		ldy  #0					;FullColor index
		ldx  #0					;LeakColors index
		lda  #2
		sta  temp				;leak color table index

MakeIt		phy					;save y register on stack
		ldy  temp				;leak table index
		lda  [leakTbl],y			;load leak color into accumulator
		ldy  ResMode				;0-640 pure, 1-640 dithered, 2-320
		bne  SaveColorWord			;pixel is already a nibble

		and  #$0003
		sta  temph				;create a nibble of color in
		asl  a					;  640 pure mode
		asl  a
		ora  temph

SaveColorWord  	and  #$000F
		ply					;restore y
		phx					;save x register
		asl  a
		tax
		lda  ColorTable,x			;get word of color
		sta  FullColor,y
		lda  ResMode
		bne  @Mode320
		
		txa					;restore accumulator
		lsr  a
		plx					;restore x register
		sta  LeakColors,x			;000C
		xba
		sta  LeakColors+16,x			;0C00
		lsr  a
		lsr  a
		lsr  a
		lsr  a
		sta  LeakColors+8,x			;00C0
		xba
		sta  LeakColors+24,x			;C000
		bra  LoopCheck
		
@Mode320	txa					;restore accumulator
		lsr  a
		plx					;restore x register
		
               	sta  LeakColors,x			;000C
		xba
		sta  LeakColors+64,x			;0C00
		lsr  a
		lsr  a
		lsr  a
		lsr  a
		sta  LeakColors+32,x			;00C0
		xba
		sta  LeakColors+96,x			;C000
		
LoopCheck	dec  xcount				;decrement color counter
		beq  DoneMask
		iny					;increment index offsets
		iny					;FullColor index
		inx					;index for next color in LeakColors
		inx
		inc  temp				;leak table index
		inc  temp
		bra  MakeIt

DoneMask	rts


*=====================================================================
*
InitDestination
*
*	Initialize the destination bitmap to all ones.
*
* Inputs:
*		None
*
* Outputs:
*		None
*
* External Refs:
*		None
*
* Entry Points:
*		None
*
*=====================================================================

		MoveLong DstBufPtr,DestPtr		;buffer bitmap pointer
		lda  #$FFFF				;fill with 1's
		ldx  memory+2				;at this point, memory contains size of 
		beq  LessThan64K	   		;bitmap
BankLoop	tay
		iny					;first fill 0 location
@Loop		sta  [DestPtr],y
		dey
		dey
		bne  @Loop
		inc  DestPtr+2
		dex
		bne  BankLoop
LessThan64K	ldy  memory
		bra  @EnterLoop
@Loop		sta  [DestPtr],y
@EnterLoop	dey
		dey
		bne   @Loop
		sta  [DestPtr]

		rts


*=====================================================================
*
ProcessPixelData
*
*	For 640 pure mode.  This routine is called from CompressMap to process a
*	nibble of data, pixel by pixel, to check if the pixels match any of the
*       leak colors.  For each pixel, if a match is found, then the bitmap bit is
*	set to 1, otherwise it is set to 0.
*
* Inputs:
*		leaksIndex2  :  index for crumb leak colors
*		masksIndex2  :  index for crumb masks
*
* Outputs:
*		None
*
* External Refs:
*		None
*
* Entry Points:
*		None
*
*=====================================================================

		lda  #2
		pha					;loop counter - save on stack
		ldx  leaksIndex2
		ldy  masksIndex2
NextCrumb	lda  [leakTbl]
		sta  xCount
		lda  sourceData
		and  masks,y
		sta  msk
NextColor	cmp  LeakColors,x
		beq  AMatch
		dec  xCount				;loop through all colors in color table
		beq  @NoMatch
		inx
		inx
		bra  NextColor
		
@NoMatch	clc
		ror  dest
		bra  CheckCount
AMatch		sec
		ror  dest
CheckCount	pla					;pull loop counter off stack
		dec  a
		beq  DoneCrumbs				;if done, exit
		pha					;else, push back on stack
		iny					;next mask
		iny
		lda  leaksIndex2
		clc
		adc  #8
		tax
		bra  NextCrumb
DoneCrumbs	rts


*=====================================================================
*
CompressMap
*
*	Converts a pixelmap to its corresponding bitmap.  Bits representing the
*	color to replace are set to 1, else 0.  The pixel image compression is
*	basically performed by processing each scanline, word by word, and
*	converting each word to its appropriate bitmap representation.  Each
*	word is compared against all the colors in the leak color table until
*	a match is found.  If no match is found, then each word is processed 
*	nibble by nibble and compared again to the leak colors.  If this fails in 
*	640 pure mode, then each pixel is handled individually (half nibbles).
*	Those pixels that found a match are set to 1 in the bitmap, otherwise, 0.
*
* Inputs:
*		None
*
* Outputs:
*		None
*
* External Refs:
*		None
*
* Entry Points:
*		None
*
*=====================================================================

	   	MoveLong SrcImagePtr,SourcePtr		;source pixel image pointer
               	MoveLong SrcBufPtr,DestPtr		;bitmap buffer pointer
		
               	ldy  #0
NextRow	       	phy
		ldy  nbytes				;# bytes/row in pixelmap
		lda  #$FFFF
		sta  dest				;reinit dest at beginning of each loop
NextWord	lda  [leakTbl]
		sta  xCount
		phy
               	lda  edge  
               	eor  #$FFFF
               	cpy  nbytes				;compare y against # bytes/row in pixelmap
               	bge  AtEdge
               	lda  [SourcePtr],y			;get source data
               	xba
		ldx  #0					;reset x to 0	       
CheckWord     	cmp  FullColor,x			;first compare a word
	       	beq  FullMatch
	       	dec  xCount
	       	beq  CheckNibble			;done all colors, no matches for a word
	       	inx
	       	inx
	       	bra  CheckWord				;check next color
FullMatch   	lda  dest
		ldy  ResMode				;which mode - 320 or 640?
		bne  @320_1
               	ror  a					;set 8 bits for 640 mode (8 pixels/word)
               	ror  a
               	ror  a
               	ror  a
		ora  #$F000
@320_1        	ror  a					;set 4 bits for 320 mode (4 pixels/word)
               	ror  a
               	ror  a
               	ror  a
		ora  #$F000
            	sta  dest
AtEdge		ldy  ResMode
		bne  Go320Mode
               	brl  Mode640				;640 pure mode loop
Go320Mode	brl  Mode320				;320/640 dithered mode loop

*
* Process a nibble of data to see if it compares (2 pixels in 640 mode / 1 pixel in 320 mode).
*
CheckNibble   	sta  sourceData				;save accumulator
		stz  leaksIndex1			;index for nibble leak colors
		stz  masksIndex1			;index for nibble masks
		ldy  #0					;initial mask index
		ldx  #0					;initial LeakColors table index
		lda  #32
		sta  leaksIndex2			;LeakColors index for crumbs
		lda  #8
		sta  masksIndex2			;masks index for crumbs
		lda  #4
		sta  loopCount
	
LoopSetUp	lda  [leakTbl]
		sta  xCount
		ldx  leaksIndex1
		lda  sourceData
		and  masks,y
		sta  msk
			
CmpLoop		cmp  LeakColors,x			;compare same nibble of each color
		beq  Match
		dec  xCount
		beq  NoMatch
		inx					;go to same nibble of next color
		inx
		bra  CmpLoop
			
NoMatch		lda  ResMode
		bne  ClearBit
		jsr  ProcessPixelData
		bra  CheckLoop
			
ClearBit	clc					;clear 1 bit for 320 mode
		ror  dest
		bra  CheckLoop
			
Match		sec
		ror  dest
		lda  ResMode
		bne  CheckLoop
		sec
		ror  dest
CheckLoop	dec  loopCount
		beq  DoneCmp
		ldy  masksIndex1
		iny
		iny
		sty  masksIndex1			;y is now set up for mask index
		phy
		ldy  ResMode
		beq  Add640Offset
		lda  leaksIndex1
		clc
		adc  #32
		bra  StoreIndex
Add640Offset    lda  leaksIndex1
		clc
		adc  #8
StoreIndex	sta  leaksIndex1			;x is now set up for color table index
		lda  leaksIndex2
		clc
		adc  #16
		sta  leaksIndex2
		lda  masksIndex2
		clc
		adc  #4
		sta  masksIndex2
		ply
		bra  LoopSetUp
			
DoneCmp		lda  ResMode
		bne  Mode320

Mode640        	lda  1,s				;get y value
               	and  #$0003				;640 mode
		bne  Cont
		bra  loop1
Mode320		lda  1,s
		and  #$0007				;320 mode
               	bne  Cont				;write every 4 bytes to dest
               	lda  1,s				;which is 1 bitmap word
               	lsr  a					;divide by 4 for 320 mode
		lsr  a
		bra  loop2
loop1		lda  1,s
		lsr  a					;divide by 2 for 640 mode
loop2		tay
          	lda  dest
               	xba
               	sta  [DestPtr],y			;write to destination
Cont	       	ply
              	dey
               	dey
              	bpl  Cont1
	       	bra  Cont2
Cont1	       	brl  NextWord
Cont2         	lda  SourcePtr
		clc
               	adc  srcrow				;advance to next
               	sta  SourcePtr				;row in pixelmap
		bcc  @NoCarry1
		inc  SourcePtr+2

@NoCarry1	lda  DestPtr
		clc
               	adc  bitmapBytes			;advance to next
               	sta  DestPtr				;row in bitmap
		bcc  @NoCarry2
               	inc  DestPtr+2

@NoCarry2	ply
               	iny
               	cpy  height				;are we done yet?
               	beq  GoNextRow				;no,loop
               	bge  EndCompress
GoNextRow       brl  NextRow
EndCompress    	rts


*=====================================================================
*
ExpandMap_320
*
*   Converts a bitmap image to its corresponding pixelmap.  One bitmap word
*   in 320 and 640 dithered mode is blown up to 4 words in the pixel image.
*   This code will process one bitmap nibble, set the appropriate bits,
*   and expand it with the fill pattern into 1 word in the pixel image.
*   If the bitmap word is $FFFF, no processing needs to be done to convert
*   it, so 8 bytes are left as is in the pixel image and processing continues.
*
* Inputs:
*		None
*
* Outputs:
*		None
*
* External Refs:
*		None
*
* Entry Points:
*		None
*
*=====================================================================

		pha				; get the address of the table of
		pha				; pre-expanded bit patterns.
		PushWord #2
		_getAddress			;get conTable320
		pla
		sta BlowUpTable
		pla
		sta BlowUpTable+2

		MoveLong  DstBufPtr,SourcePtr		;bitmap pointer
               	MoveLong  SrcImagePtr,DestPtr		;source pixel image ptr
		MoveLong  DestImagePtr,Memory		;destination pixel image ptr

*  based on destMode, set up data to preprocess the dest data
*  the preprocessors work on a line-by-line basis

		lda	destMode
		asl	a
		tax
		lda	>destTable,x
		sta	destjmp
		
		lda	bitmapbytes		; convert bitmap bytes
		asl	a			; to dest pixel bytes (4x)
		asl	a
		sta	destBytes		; so the preprocessors know
		

		lda  [srcRectPtr]			;top of destination rect
		sta  CurrentY				;store current scanline

Expand320Loop	lda  CurrentY
               	and  #$0007				;find pattern row
               	asl  a					;multiply by 4 to get offset to
               	asl  a					;  pattern row
		tay
		lda  [PatternPtr],y
		sta  PenPat
		iny
		iny
		lda  [PatternPtr],y
		sta  PenPat+2

		pea	finishpre320-1
		pei	destJmp			; call preprocessor
		rts
finishpre320		
		jsr  ExpandLine320

		inc  CurrentY
		lda  CurrentY
		ldy  #bottom
		cmp  [srcRectPtr],y
		bpl  @Done1

		lda  SourcePtr
		clc
		adc  bitmapBytes
		sta  SourcePtr
		bcc  @NoCarry1
		inc  SourcePtr+2

@NoCarry1	lda  DestPtr
		clc
		adc  srcRow
		sta  DestPtr
		bcc  @NoCarry2
		inc  DestPtr+2
		
@NoCarry2	lda  Memory
		clc
		adc  dstRow
		sta  Memory
		bcc  @NoCarry3
		inc  Memory+2
		
@NoCarry3	bra  Expand320Loop

@Done1		lda  #0				;no error
		clc
		rts

destTable	dc.w	precopysource-1		; 0 = copy source to dest
		dc.w	predonothing-1		; 1 = don't alter dest
		dc.w	preinitzero-1		; 2 = init dest to zeros
		dc.w	preinitone-1		; 3 = init dest to ones


*=====================================================================
*
ExpandLine320
*
*   Processes a scanline from left to right, expanding each bitmap 
*   byte into 2 representative pixelmap words (4 bits/pixel).
*
*   17-May-89	ADS	Rewritten to copy pat onto dest ignoring src
*
* Inputs:
*		blowUpTable	Points to the ROM 1->4 expansion table
*		sourcePtr	Points to the 1 bit/pixel mask bitmap
*				In this table  0 = write fill pattern
*				          and  1 = leave the dest alone
*		memory		Points to the 4 bit/pixel dest pixelmap
*		bitmapBytes	How many source bytes to read -
*				or, how many dest longints to write
*
* Outputs:
*		None
*
* External Refs:
*		None
*
* Entry Points:
*		None
*
*=====================================================================

		stz srcCounter			;start by zeroing the src and dst counters
		stz dstCounter	
		
		ldy	srcCounter

InnerLoop	lda	[sourcePtr],y		; gets 2 bytes
		inc	a			; see if $FFFF
		bne	@1			; no, some pixels get pattern
		
		iny				; ok, nothing to do.  Inc src by 2
		iny				; and dest by 8
		lda	dstCounter
		clc
		adc	#8
		sta	dstCounter
		bra	continue		; and repeat or finish.
		
;  if we get here there's some data to be blown up and patterned.  From here
;  down the code only knows about bytes so we'll throw out the top half and
;  come back again 1 byte later.
;
		
@1		dec	a			; fix A
		and	#$00FF			; get just the byte

;  now, run it against a 1->4 blowup table and save a mask in expMask

		asl	a			; BlowUpTable is 256 longword entries
		asl	a
		tay
		lda	[blowuptable],y		; copy out mask word
		sta	expMask
		iny
		iny
		lda	[blowuptable],y
		sta	expMask+2

;  now use expMask to affect 4 bytes of dest data.  Where expMask = 0 we write
;  the pattern, and where expmask = 1 we leave the dest alone

		ldy	DstCounter		; dest pixelmap index
		lda	[memory],y		; get a word from dest pixels
		eor	PenPat
		and	expMask
		eor	PenPat
		sta	[memory],y		; and write it back modified
		iny
		iny

		lda	[memory],y		; and do 2nd word of long
		eor	PenPat+2
		and	expMask+2
		eor	PenPat+2
		sta	[memory],y
		iny
		iny
		sty	DstCounter

;  "bitmapbytes" is the total number of source bytes to operate on
		
		ldy	SrcCounter
		iny
continue	sty	SrcCounter
		cpy	bitmapbytes
		blt	InnerLoop
		
@Done		rts



*=====================================================================
*
ExpandMap_640
*
*   This is used for 640 pure mode.  It converts a bitmap image to 
*   its corresponding pixelmap.  Utilizes conTable640, which is a 
*   table with 256 2-byte entries representing two bits per pixel
*   for one bit per pixel bytes.
*
*  17-May-89	ADS	Modified to preprocess the dest data based
*			on the contents of the destMode flag.
*
* Inputs:
*		None
*
* Outputs:
*		A = error code (DAL 19-Sep-90)
*                   (It said "none", but it was wrong)
*
* External Refs:
*		None
*
* Entry Points:
*		None
*
*=====================================================================

		pha				; get the address of the table of
		pha				; pre-expanded bit patterns.
		PushWord #3
		_getAddress			;get conTable640
		pla
		sta BlowUpTable
		pla
		sta BlowUpTable+2

		MoveLong  DstBufPtr,SourcePtr	;dest bitmap pointer
               	MoveLong  SrcImagePtr,DestPtr	;source pixel image pointer
		MoveLong  DestImagePtr,Memory	;destination pixel image

*  based on destMode, set up data to preprocess the dest data
*  the preprocessors work on a line-by-line basis

		lda	destMode
		asl	a
		tax
		lda	>destTable,x
		sta	destjmp
		
		lda	bitmapbytes		; convert bitmap bytes
		asl	a			; to dest pixel bytes (2x)
		sta	destBytes		; so the preprocessors know
		
*
* loop through the rows of the 1 bit/pixel image and xfer the
* expanded image to the real destination after applying the pattern.
*
		lda [srcRectPtr]		;start CurrentY at top of dest rect
		sta CurrentY
		
ExpandLoop	lda CurrentY
		and #$0007
		asl a
		tay				;pattern index
		lda [PatternPtr],y
		sta PenPat
*		sta PenPat+2			; removed 17-May-89 ADS
		
		pea	finishpre640-1
		pei	destJmp			; call preprocessor
		rts
finishpre640		
		jsr ExpandLine
		
		inc CurrentY			;bump current y and see if we're done
		lda CurrentY
		ldy #bottom
		cmp [srcRectPtr],y
		bmi @0
		lda #0		;added 19-Sep-90 DAL (was returning bogus error)
		rts
@0
		lda SourcePtr			;not done so bump src and dest pointers
		clc
		adc bitmapBytes
		sta SourcePtr
		bcc @1
		inc SourcePtr+2

@1		lda DestPtr
		clc
		adc srcrow
		sta DestPtr
		bcc @2
		inc DestPtr+2
		
@2		lda  Memory
		clc
		adc  dstrow
		sta  Memory
		bcc  @3
		inc  Memory+2

@3		bra ExpandLoop

*=====================================================================
*
ExpandLine
*
*   Processes a scanline from left to right, expanding each bitmap 
*   byte into a representative pixelmap word (2 bits/pixel).
*
*   17-May-89	ADS	Rewritten to copy pat onto dest ignoring src
*
* Inputs:
*		blowUpTable	Points to the ROM 1->2 expansion table
*		sourcePtr	Points to the 1 bit/pixel mask bitmap
*				In this table  0 = write fill pattern
*				          and  1 = leave the dest alone
*		memory		Points to the 2 bit/pixel dest pixelmap
*		bitmapBytes	How many source bytes to read -
*				or, how many dest words to write
*
* Outputs:
*		None
*
* External Refs:
*		None
*
* Entry Points:
*		None
*
*=====================================================================


		stz	srcCounter			;start by zeroing the src and dst counters
		stz	dstCounter		
		
		ldy	SrcCounter			;use srcCounter to read a source word
		
InnerLoop640	lda	[sourcePtr],y			; get a source byte
		inc	a				; see if it's $FFFF
		bne	@1				; no, some pixels get pattern
		
		iny					; skip 2 bytes of src
		iny
		lda	dstCounter			; and skip 4 bytes of dst
		clc
		adc	#4
		sta	dstCounter
		bra	continue640

;  if we get here there's some data to be blown up and patterned.  

@1		dec	a				; fix A

;  now, run it against the 1->2 blowup table and save the mask in expMask

		tax				; save for top half index
		and	#$00FF

		asl	a			; table of words
		tay
		lda	[blowuptable],y
		sta	expMask
		
		txa				; now do top half
		xba
		and	#$00FF
		asl	a
		tay
		lda	[blowuptable],y
		sta	expMask+2
		
;  now use expMask to affect 4 bytes of dest data.  Where expMask = 0 we write
;  the pattern, and where expmask = 1 we leave the dest alone

		ldy	DstCounter		; dest pixelmap index
		lda	[memory],y		; get a word from dest pixels
		eor	PenPat
		and	expMask
		eor	PenPat
		sta	[memory],y		; and write it back modified
		iny
		iny

		lda	[memory],y		; and do 2nd word of long
		eor	PenPat
		and	expMask+2		; (note 640 skinny pattern)
		eor	PenPat			; (remove STA penPat+2 from above subr)
		sta	[memory],y
		iny
		iny
		sty	DstCounter

;  "bitmapbytes" is the total number of source bytes to operate on
		
		ldy	SrcCounter
		iny
		iny
continue640	sty	SrcCounter
		cpy	bitmapbytes
		blt	InnerLoop640

Done		rts


*=====================================================================
*
PreCopySource
*
*   Used when dest mode is zero.  Copies a single scanline from source
*   to dest.
*
* Inputs:
*		destPtr		Points to the source pixel map
*		memory		Points to the dest pixel map
*		destBytes	How many bytes to copy
*
* Outputs:
*		None
*
* External Refs:
*		None
*
* Entry Points:
*		None
*
*=====================================================================

		ldy	destBytes
		dey
		dey

cpySrcLp	lda	[destPtr],y
		sta	[memory],y
		dey
		dey
		bpl	cpySrcLp
		
		rts

*=====================================================================
*
PreDoNothing
*
*   Used when dest mode is one.  Doesn't do anything!
*
* Inputs:
*		None
* Outputs:
*		None
*
* External Refs:
*		None
*
* Entry Points:
*		None
*
*=====================================================================

		rts

*=====================================================================
*
PreInitZero
*
*   Used when dest mode is two.  Init's the one line of dest to all zeros
*
* Inputs:
*		memory		Points to the dest pixel map
*		destBytes	How many bytes to init
*
* Outputs:
*		None
*
* External Refs:
*		None
*
* Entry Points:
*		None
*
*=====================================================================

		ldy	destBytes
		dey
		dey
		lda	#0

zeroDstLp	sta	[memory],y
		dey
		dey
		bpl	zeroDstLp
		
		rts

*=====================================================================
*
PreInitOne
*
*   Used when dest mode is three.  Init's one line of the dest to all ones
*
* Inputs:
*		memory		Points to the dest pixel map
*		destBytes	How many bytes to init
*
* Outputs:
*		None
*
* External Refs:
*		None
*
* Entry Points:
*		None
*
*=====================================================================

		ldy	destBytes
		dey
		dey
		lda	#$FFFF

setDstLp	sta	[memory],y
		dey
		dey
		bpl	setDstLp
		
		rts

*=====================================================================
*
FillOneBitImage
*
*   Performs the SeedFill/CalcMask algorithm.  First of all, the
*   initial data values and pointers are set up appropriately.  For
*   SeedFill, the source and destination bitmap pointers are set
*   to the scanline where the seed point is located, and for CalcMask,
*   they remain at the beginning of their bitmaps.  The algorithm begins
*   by processing each scanline, moving to the right and to the left, and
*   doing so for each scanline down until the bottom is reached, and then
*   up until the top is reached.  The algorithm is done when you go from
*   the top to bottom and bottom to top without any changes happening.
*
* Inputs:
*		None
*
* Outputs:
*		None
*
* External Refs:
*		None
*
* Entry Points:
*		None
*
*=====================================================================
		
		MoveLong SrcBufPtr,SourcePtr		;compressed source bitmap pointer
		MoveLong DstBufPtr,DestPtr		;destination bitmap ptr 
							;  (bitmap is initially all 1's)
		lda  Edge				;SeedFill:$FFFF, CalcMask:$0000				
		bne  HaveSeedPt
		lda  height				;CalcMask initializations
		sta  oldLastLine
		lda  bitmapBytes			;changed from bitmapBytes 22-Oct-90 DAL (at Andy Stadler's direction)
		sta  lastCol
		sta  oldLastCol
		brl  NoSeedPt

HaveSeedPt	lda  seedV				;SeedFill
		sec					;get seed location in bitmap
		sbc  [srcRectPtr]
               	sta  seedV
               	lda  seedH
               	ldy  #left
		sec
		sbc  [srcRectPtr],y
		ldy  ResMode
		cpy  #1				;check if 640 dithered mode
		bne  StoreSeed			;if not, save seedh as is
		lsr  a				;otherwise, div seed by 2 for 640 dithered mode because
StoreSeed     	sta  seedH			;bitmap is created using 4:1 pixel to bit ratio
						;ratio. SeedH is used later to index into bitmap.
*
*  For SeedFill operation, adjust the SourcePtr and DestPtr bitmap pointers to initially
*  point to the scanline where the seed point is found.  This is where we want to begin.
*
		pha
		pha
		lda  seedV
		pha					;multiply vertical seed location
		lda  bitmapBytes			;by # bytes/row in bitmap
		pha					;to get the vertical offset
		_Multiply				;into bitmap
		pla
		tax					;save low in x
		clc					;add vertical offset to pointer
		adc  DstBufPtr				;to beginning of bitmap
		sta  DestPtr				;and store this offset in DestPtr
		pla
		tay					;save high in y
		adc  DstBufPtr+2
		sta  DestPtr+2

		txa					;do same to source bitmap ptr
		clc
               	adc  SrcBufPtr
               	sta  SourcePtr				;store offset in SourcePtr
               	tya
               	adc  SrcBufPtr+2
               	sta  SourcePtr+2
*
* Clear one dest pixel at seedh,seedv
*
               	lda  seedH				;calculate bit that seedH represents
               	lsr  a                   		;div by 8 for byte
               	lsr  a
               	lsr  a
               	tay					;index into bitmap for seedH byte
               	lda  seedH
               	and  #7
               	asl  a
               	tax					;index for bit mask
               	lda  Mask8,x				;get the bit mask
               	and  [DestPtr],y
               	sta  [DestPtr],y			;clear the seedH bit

               	tya
               	and  #$FFFE				;word alignment
               	sta  seedH				;setup horizontal markers
               	sta  firstCol				; at seedH
               	sta  lastCol
               	sta  oldFirstCol
               	sta  oldLastCol
			   
		lda  seedV				;set up vertical markers
               	sta  firstLine				;  at seedV
               	sta  lastLine
               	sta  oldLastLine
               	sta  oldFirstLine
*
* Allocate an edgeLine buffer of ones or zeros
*
NoSeedPt       MoveLong PtrEdgeLine,PrevLinePtr
               ldy  rowWidth
               lda  edge
			   
NextBufWord    sta  [PrevLinePtr],y			;store edge value in whole row
               dey
               dey
               bpl  NextBufWord

               stz  UpDownFlag				;flags when to move up/down

NextPass       stz  change                     		;clear Dirty Flag
               lda  UpDownFlag				;if negative then Up, else Down
               bmi  Up

               ldy  lastLine
               bne  MoveDown			   
               MoveLong PtrEdgeLine,PrevLinePtr
*	       
*----- MoveDown -----*
*			   
MoveDown	stz  linechange				;clear linechange flag
               	jsr  ScanLine
               	lda  linechange				;check if linechange required
		tax
		ora  change				;or it into the change flag
		sta  change
		txa					;restore accumulator with linechange
               	bne  SaveLastLine			;if so, go down a line
               	cpy  oldLastLine
               	beq  GoDown
               	blt  GoDown
               	bra  StopDown
			   
SaveLastLine	sty  lastline				;last line change occurred on
GoDown	       	jsr  DownLine				;move down to the next scanline
               	iny
               	cpy  height
               	beq  MoveDown				;keep looping until hit bottom
               	blt  MoveDown
StopDown       	dey
               	sty  firstline
               	lda  lastline
               	sta  oldLastLine
               	jsr  UpLine				;reset pointers to line above
               	bra  Switch			   

Up	       ldy  firstLine
               cpy  height
               bne  MoveUp			   
               MoveLong PtrEdgeLine,PrevLinePtr
*
*----- MoveUp -----*
*
MoveUp	       stz  linechange				;clear dirty flag
               jsr  ScanLine
	       lda  linechange
	       tax
	       ora  change				;OR linechange flag into change
	       sta  change				;flag and save it
               txa					;did a line change occur?
               bne  SaveFirstLine			;if so, reset firstLine
               cpy  oldFirstLine			;else, keep going up until y
               bge  GoUp
               bra  StopUp
SaveFirstLIne  sty  firstline
GoUp	       jsr  UpLine
               dey
               bpl  MoveUp
StopUp	       iny					;hit top, go back down
               sty  lastline
               jsr  DownLine
               lda  firstLine
               sta  oldFirstLine
*
* Switch direction, adjust pointers, and loop till no change
*
Switch	       lda  firstCol
               sta  oldFirstCol				;update the column pointers
               lda  lastCol
               sta  oldLastCol
               stz  lastcol
               lda  #$FFFF
               sta  firstCol

               lda  UpDownFlag
               eor  #$FFFF				;change the vertical direction flag
               sta  UpDownFlag
			   
               lda  change				;test if change occurred
               bpl  Invert				;no more changes, all done
               brl  NextPass
*
* If CalcMask, then invert destination buffer
*
Invert         	lda  edge				;is edge equal to $0000 (CalcMask)
               	bne  GoHome				;no, we're done

               	MoveLong DstBufPtr,DestPtr
               	ldx  height
			   
Invert1	       	ldy  rowWidth				;invert bitmap for CalcMask
Invert2	       	lda  [DestPtr],y
               	eor  #$FFFF
               	sta  [DestPtr],y
               	dey
               	dey
               	bpl  Invert2
               	lda  DestPtr
		clc
               	adc  bitmapBytes			;go to next row
               	sta  DestPtr
		bcc  @NoCarry
               	inc  DestPtr+2
@NoCarry	dex					;loop height times
               	bpl  Invert1

GoHome  	rts


*=====================================================================
*
ScanLine
*
*	Implements the algorithm for the left and right horizontal movements.
*	The following steps are executed to determine if there were any
*	changes in the line.  The algorithm is based on the following procedure:
*
*	   For each original source word:
*		AND destination with the previous line
*		OR this value with the opposite of the original source data
*		Save this new value
*
*	   For each byte:
*		Import carry from the previous byte (left or right)
*		Shift the byte	(left or right, depending on current direction)
*		AND with new value obtained from above
*		OR with opposite of original source
*		check for changes
*
*	For next byte, export carry into next byte, process next byte and continue
*	until hit end of row.
*
* Inputs:
*		None
*
* Outputs:
*		None
*
* External Refs:
*		None
*
* Entry Points:
*		None
*
*=====================================================================

		phy					;save current Y value
		ldx  edge				;x is previous left word
		ldy  oldFirstCol			;check if at left edge
		beq  NextRightWord			;if so, start processing to right
		phy					;else, load the previous word to
		dey					;the left into the x register
		dey
		lda  [DestPtr],y			;store the word to the left
		xba					;in x register
		tax
		ply
*
* Go to the Right`
*
NextRightWord  lda  [DestPtr],y				;load word from dest bitmap
               sta  dest
               beq  @NoChanges				;only process if any bits set
               lda  [SourcePtr],y			;load word from source bitmap
               eor  #$FFFF				;get opposite of original
               sta  notSource				;save in notSource
               lda  [PrevLinePtr],y			;previous line
               and  dest				;AND with destination
               ora  notSource				;OR with opposite of original
			   
@Loop	       stx  temp
               sta  dest
               xba
               lsr  temp				;shift bit from previous word
               ror  a					;rotate carry bit in
               xba
               and  dest				;AND with dest
               ora  notSource				;OR with opposite
               cmp  dest				;any changes?
               bne  @Loop				;if yes, continue this loop
               cmp  [DestPtr],y				;if no, see if dest bitmap reflects same
               bne  SaveChange				;data.  If not, save changes in dest bitmap.
			   
@NoChanges     cpy  oldLastCol				;are we past the right column marker?
               beq  ContinueRight
               blt  ContinueRight
               bra  DoneRight
			   
SaveChange     sec					;change happened so set the
               ror  linechange				;change flag to reflect this
	       sta  [DestPtr],y				;store into dest portion of bitmap
               cpy  oldLastCol				;have we changed x column position?
               blt  ChkLeftCol
               sty  oldLastCol				;save rightmost X value in oldLastCol
ChkLeftCol     cpy  firstCol
               bge  ChkRightCol
               sty  firstCol				;set firstcol to current column
ChkRightCol    cpy  lastCol
               blt  ContinueRight
               sty  lastCol				;save rightmost X value in lastCol

ContinueRight  xba
               tax					;now this is the previous left word
               iny					;go to next word on right
               iny
               cpy  bitmapBytes
               blt  NextRightWord			;loop until we reach end of line

DoneRight      ldx  edge				;now store next word in x register
               ldy  oldLastCol
               cpy  rowWidth
               beq  NextLeftWord			;at right end of bitmap, now go to the left
               phy
               iny
               iny
               lda  [DestPtr],y
               xba					;now store the word to the right
               tax					;in x register
               ply
*
* Left direction
*
NextLeftWord   lda  [DestPtr],y
               beq  @NoChanges
               sta  dest				;save destination data
               lda  [SourcePtr],y
               eor  #$FFFF				;get opposite of original source
               sta  notSource				;data and store in notSource
               lda  [PrevLinePtr],y
               and  dest				;AND destination with line previous
               ora  notSource				;OR with opposite of source
			   
@Loop	       stx  temp
               sta  dest
               xba
               asl  temp				;shift bit out from word on right
               rol  a					;import carry bit in
               xba
               and  dest				;AND with dest
               ora  notSource				;OR with opposite of original
               cmp  dest				;check for changes
               bne  @Loop
               cmp  [DestPtr],y
               bne  SaveDstWord
			   
@NoChanges     cpy  oldFirstCol				;check to see if we are past the
               bge  ContinueLeft			;left column marker
               bra  DoneLeft
			   
SaveDstWord    sec					;change occurred, so set the
               ror  linechange				;change flag to reflect this
	       sta  [DestPtr],y				;store into destination bitmap
               cpy  oldFirstCol
               bge  ChkFirstCol
               sty  oldFirstCol				;save leftmost X value
ChkFirstCol    cpy  firstCol
               bge  ChkLastCol
               sty  firstCol				;save leftmost X value
ChkLastCol     cpy  lastCol
               blt  ContinueLeft
               sty  lastCol				;save rightmost X value
			   
ContinueLeft   xba
               tax
               dey					;go to the next word on the left
               dey
               bpl  NextLeftWord			;loop until at beginning of line
			   
DoneLeft       ply
               rts


*=====================================================================
*
DownLine
*
*   Bumps the SourcePtr and DestPtr bitmap pointers to the next row
*   by adding the number of bytes/row in the bitmap.
*
* Inputs:
*		None
*
* Outputs:
*		None
*
* External Refs:
*		None
*
* Entry Points:
*		None
*
*=====================================================================

               	lda  SourcePtr
		clc
               	adc  bitmapBytes			;add the # bytes per row to point
               	sta  SourcePtr				;to the next row in bitmap
		bcc  @NoCarry1
               	inc  SourcePtr+2

@NoCarry1	MoveLong DestPtr,PrevLinePtr		;update previous line pointer
               	lda  DestPtr
		clc
               	adc  bitmapBytes
               	sta  DestPtr
		bcc  @NoCarry2
               	inc  DestPtr+2

@NoCarry2	rts


*=====================================================================
*
UpLIne
*
*   Moves the SourcePtr and DestPtr pointers to the previous line in the
*   bitmap by subtracting the number of bytes/row from each pointer.
*
* Inputs:
*		None
*
* Outputs:
*		None
*
* External Refs:
*		None
*
* Entry Points:
*		None
*
*=====================================================================

               lda  SourcePtr
	       sec
               sbc  bitmapBytes				;subtract # bytes/row in bitmap to 
               sta  SourcePtr				;point to previous row
	       bcs  @NoBorrow1
	       dec  SourcePtr+2
@NoBorrow1
               MoveLong DestPtr,PrevLinePtr		;update previous line pointer
               lda  DestPtr
	       sec
               sbc  bitmapBytes
               sta  DestPtr
	       bcs  @NoBorrow2
	       dec  DestPtr+2
@NoBorrow2
               rts

*=====================================================================*
*								      *
*				TABLES				      *
*								      *
*=====================================================================*


Masks			DC.W	$000F
			DC.W	$00F0
			DC.W	$0F00
			DC.W	$F000
			DC.W    $0003					;half-nibble masks for 640
			DC.W    $000C					; pure mode (2 bits/pixel)
			DC.W    $0030
			DC.W    $00C0
			DC.W    $0300
			DC.W	$0C00
			DC.W	$3000
			DC.W	$C000

LeakColors		DC.W	$000F,$000F,$000F,$000F			;this table represents each
			DC.W	$000F,$000F,$000F,$000F			;leak color in all possible
			DC.W	$000F,$000F,$000F,$000F			;nibble configurations as
			DC.W	$000F,$000F,$000F,$000F			;well as half-nibbles for
			DC.W    $00F0,$00F0,$00F0,$00F0			;640 pure mode.  Here, the
			DC.W    $00F0,$00F0,$00F0,$00F0			;table is set up for 320 and
			DC.W    $00F0,$00F0,$00F0,$00F0			;640 dithered modes.
			DC.W    $00F0,$00F0,$00F0,$00F0
			DC.W    $0F00,$0F00,$0F00,$0F00
			DC.W    $0F00,$0F00,$0F00,$0F00
			DC.W    $0F00,$0F00,$0F00,$0F00
			DC.W    $0F00,$0F00,$0F00,$0F00
			DC.W    $F000,$F000,$F000,$F000
			DC.W    $F000,$F000,$F000,$F000
			DC.W    $F000,$F000,$F000,$F000
			DC.W    $F000,$F000,$F000,$F000
	
FullColor		DC.W	$FFFF,$FFFF,$FFFF,$FFFF			;this table represents
			DC.W    $FFFF,$FFFF,$FFFF,$FFFF			;each leak color in a word
			DC.W	$FFFF,$FFFF,$FFFF,$FFFF
			DC.W	$FFFF,$FFFF,$FFFF,$FFFF

Mask8	    		DC.W	$FF7F					;bit mask table
			DC.W	$FFBF
			DC.W	$FFDF
			DC.W	$FFEF
			DC.W	$FFF7
			DC.W	$FFFB
			DC.W	$FFFD
			DC.W	$FFFE
			
ColorTable		DC.W	$0000					;represents each color
			DC.W	$1111					;in a word
			DC.W	$2222
			DC.W	$3333
			DC.W	$4444
			DC.W	$5555
			DC.W	$6666
			DC.W	$7777
			DC.W	$8888
			DC.W	$9999
			DC.W	$AAAA
			DC.W	$BBBB
			DC.W	$CCCC
			DC.W	$DDDD
			DC.W	$EEEE
			DC.W	$FFFF

BlackPat		dc.w	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0

WhitePat		dc.w	-1,-1,-1,-1,-1,-1,-1,-1
			dc.w	-1,-1,-1,-1,-1,-1,-1,-1
	        ENDP

		END

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/QDAux/slabs.asm b/IIGS.601.SRC/GSToolbox/QDAux/slabs.asm
new file mode 100644
index 0000000..d438037
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/QDAux/slabs.asm
@@ -0,0 +1 @@
+	TITLE 'QuickDraw Pictures--SlabStuff'
****************************************************************
*
* Pictures--Slab Stuff
*
* This file contains all the code that needs the slab equates.
*
*
*	 Copyright (C) 1986-1989
*	 Apple Computer, Inc.
*	 All Rights Reserved
*
*
* Change History
*
* 29 Apr 87    Steven Glass
*
* Error handling was added after every put and get call.
*
****************************************************************

	include 'all.macros'
	include 'special.macros'

	include '::qd:qdequates:core.globals1'
	include '::qd:qdequates:core.globals2'
	include '::qd:qdequates:region.equs'
	include '::qd:qdequates:rect.equs'
	include '::qd:qdequates:slab.equs'
	include '::qd:qdequates:conics.equs'

	include 'play.equs'

	include '::qd:qdequates:qd.data.asm'

	include 'pic.equs'


**********************************************************************
**********************************************************************
	title 'QuickDraw Pictures--Slab Stuff     slabs/LINES'
****************************************************************
*
* Line Routines for	pictures.
*
* Four opcodes are supported.
*
*		     TotalSize
*
*        opLine	    Point,    NewPoint       9
*        opLineFrom	              NewPoint       5
*        opShortL	    Point     dh,dv	         7
*        opShortLFrom             dh,dv	         3
*
*
*
****************************************************************



****************************************************************
*
* rDrawLine
*
* This is the routine which reads the line data from the
* picture and draws	the line.
*
****************************************************************
* rDrawLine      start
rDrawLine	PROC EXPORT


	pha	; put 8 bytes on stack for the
	pha	; end points of the	line being
	pha	; drawn
	pha

	lda OpCodeToDo	; look at the real op code and
	and #$0003	; mask off all but low two bits
	asl a
	tax	; use these to decide what to do
	jmp (WhichOpTable,x)

	Export WhichOpTable
WhichOpTable
	DC.W DoLong

	DC.W DoLongFrom

	DC.W DoShort

	DC.W DoShortFrom

DoLong		;
	jsr getpicword
	bcs Error8
	sta 1,s
	jsr getpicword
	bcs Error8
	sta 3,s

DoDestPt		;
	jsr getpicword
	bcs Error8
	sta 5,s
	jsr getpicword
	bcs Error8
	sta 7,s

	bra Share

DoLongFrom		;
	lda PenLoc
	sta 1,s
	lda PenLoc+2
	sta 3,s

	bra DoDestPt


DoShort		;
	jsr GetPicWord
	bcs Error8
	sta 1,s
	jsr GetPicWord
	bcs Error8
	sta 3,s

DodHdV		;
	jsr GetPicWord
	bcs Error8
	tax	; save copy in x
	and #$00FF	; look at low byte which is signed
;		; integer containing offset
	xba	; swap twice to set	neg condition
	xba	; on bit 7
	bpl NotNeg1
	ora #$FF00	; was neg so extend	sign
NotNeg1		;
	clc	; add sign extended	value to
	adc 1,s	; starting point
	sta 5,s	; and put in 5,s

	txa	; now do other byte
	and #$FF00
	xba
	bpl NotNeg2
	ora #$FF00
NotNeg2		;
	clc
	adc 3,s
	sta 7,s

	bra Share


DoShortFrom		;
	lda PenLoc
	sta 1,s
	lda PenLoc+2
	sta 3,s
	bra DodHdV

;-----------------------------------------------------------
;
; Error handling
;
Error8	plx
	plx
	plx
	plx
	rts

Share		;
;------------------------------------------------------------
;
; Before mapping, update the penloc in the play state record.
;
	lda 5,s
	sta PenLoc
	lda 7,s
	sta PenLoc+2

	jsr MapThisRect

	ldx QuickDrawD

	pla
	sta >Y1,x
	sta >Rect2,x

	pla
	sta >X1,x
	sta >rect2+2,x

	pla
	sta >Y2,x
	sta >rect2+4,x

	pla
	sta >X2,x
	sta >rect2+6,x

	lda #0
	sta >DrawVerb,x

	phd	; save this d
	txa
	tcd	; set d to QD's d

	lda #o_stdline
	jsl callstdplay

	pld	; restore d

	rts


	ENDP

****************************************************************
*
* wDrawLine
*
* This is the routine that puts the line info into the
* picture.
*
****************************************************************
* wDrawLine      START
wDrawLine	PROC EXPORT

	PushWord #PicLine	; start by putting base
;		; opcode on the stack


; compare starting point of line to last penloc in pic state
; record.
	lda Y1
	ldy #o_PicPnLoc
	cmp [TEMP2],y
	bne NotFrom

	lda X1
	ldy #o_PicPnLoc+2
	cmp [TEMP2],y
	bne NotFrom

; YesFrom
	lda 1,s	; set bit on of opcode to mean
	ora #$0001	; from.
	sta 1,s

NotFrom		;
;
; Now check to see if the displacement is less than -128 or	127
;
	lda Y2
	sec
	sbc Y1
	clc
	adc #128
	cmp #256
	bcs BigDisplacement

	lda X2
	sec
	sbc X1
	clc
	adc #128
	cmp #256
	bcs BigDisplacement

; Small Displacement so set next bit in	opcode
	lda 1,s
	ora #$0002
	sta 1,s


BigDisplacement		;

; Put the opcode into the picture
;
	lda 1,s
	jsr PutPicWord
	bcs Error2

; now look at the opcode we put

	lda 1,s
	ror a
	bcs SkipFirstPoint

	lda Y1
	ldx X1
	jsr PutPicLong
	bcs Error2

SkipFirstPoint		;
	lda 1,s
	ror a
	ror a
	bcs DoDisplacement

	lda Y2
	ldx X2
	jsr PutPicLong
	bcs Error2
	bra Done


;------------------------------------------------------------
;
; Error handling
;
Error4	plx
	plx
Error2	plx
	plx
Error0	rts

;------------------------------------------------------------

DoDisplacement		;
	lda Y2	; figure dV and put	8 bit
	sec	; result on stack
	sbc Y1
	and #$00FF
	pha

	lda X2	; figure dH and merge 8 bit
	sec	; result with value	on stack
	sbc X1
	and #$00FF
	xba
	ora 1,s

	jsr PutPicWord
	bcs Error4

	pla	; clear this from stack

Done	pla	; clear opcode from	stack

	jsr DerefTempToTemp2

;
; update the PnLoc in the picture state	record.
;
	ldy #o_PicPnLoc
	lda Y2
	sta [TEMP2],y
	iny
	iny
	lda X2
	sta [TEMP2],y

	rts

	ENDP

**********************************************************************
**********************************************************************
	title 'QuickDraw Pictures--Slab Stuff     slabs/RECTS'
****************************************************************
*
* Picture Rectangle	Stuff
*
* There are 10 kinds of rectangle opcodes.
*
* All of them have the same high nibble	the low nibble is
* arranged to have the verb in the low three bits and a
* flag relating to the rectangle to use	in the high bit of
* the low nibble.
*
****************************************************************


****************************************************************
*
* rDrawRect
*
* This reads the rectangle out of the picture and draws it.
*
****************************************************************
* rDrawRect      start
rDrawRect	PROC EXPORT

	lda OpCodeToDo	; see if the rect is already here
	and #$0008	; in the stack frame
	beq RectInPicture

	pei TheRect+6
	pei TheRect+4
	pei TheRect+2
	pei TheRect

	bra Share


RectInPicture		;

	pha
	pha
	pha
	pha

	tsc	; read the rect out	of the picture
	inc a	; onto the stack
	pea 0
	pha
	PushWord #8
	jsl CallGetPic
	bcs Error8

	jsr MapThisRect	; map it

Share		;
	ldx QuickDrawD

	pla	; put it on zero page
	sta TheRect	; and update the rect in play
	sta >Y1,x	; state record
	pla
	sta TheRect+2
	sta >X1,x
	pla
	sta TheRect+4
	sta >Y2,x
	pla
	sta TheRect+6
	sta >X2,x

	lda OpCodeToDo	; get verb out of op code
	and #$0007
	sta >DrawVerb,x

	phd
	txa
	tcd

	lda #o_StdRect	; draw it
	jsl CallStdPlay

	pld

	rts

Error8	plx
	plx
	plx
	plx
	rts

	ENDP




****************************************************************
*
* wDrawRect
*
* This is the routine which puts the rect in the picture
*
****************************************************************
* wDrawRect      start
wDrawRect	PROC EXPORT

	lda #RectNoun	; put in the rect noun
	brl PutPicRect

	ENDP



****************************************************************
*
* PutPicRect
*
* Creates the right	opcode for the operation being performed
* by merging the Noun passed in the a-reg with the verb in
* DrawVerb.
*
* Also looks at the	rect to be drawn to	see if it is the same
* as TheRect in the	picture state record.  If it is we add
* 8 to the op code and do not bother putting the rect in
* the picture.
*
****************************************************************
* PutPicRect     START
PutPicRect	PROC EXPORT


	sta DrawNoun	; put it in DrawNoun for now

	ldx #0
	ldy #o_PicTheRect

	pea 0	; put 0 on stack to	indicate same

CheckRectLoop	lda Y1,x
	cmp [TEMP2],y
	beq TheSame
	sta [TEMP2],y	; update therect
	tya	; set flag on stack	to nonzero
	sta 1,s
TheSame	inx
	inx
	iny
	iny
	cpx #8
	bcc CheckRectLoop

	pla
	beq RectWasSame

	lda DrawNoun
	ora DrawVerb
	jsr PutPicWord
	bcs Error0

	pea 0	; and finally the rect
	tdc
	clc
	adc #Y1
	pha
	PushWord #8
	jsl CallPutPic

Error0		;
	rts

RectWasSame		;
	lda DrawNoun
	ora DrawVerb
	ora #$0008

	jsr PutPicWord

	rts

	ENDP

**********************************************************************
**********************************************************************
	title 'QuickDraw Pictures--Slab Stuff     slabs/ROUNDRECTS'
****************************************************************
*
* Picture RRect Stuff
*
* There are 10 kinds of RRect opcodes.
*
* All of them have the same high nibble	the low nibble is
* arranged to have the verb in the low three bits and a
* flag relating to the rectangle to use	in the high bit of
* the low nibble.
*
****************************************************************


****************************************************************
*
* rDrawRRect
*
* This reads the RRect out of the picture and draws it.
*
****************************************************************
* rDrawRRect      start
rDrawRRect	PROC EXPORT

	lda OpCodeToDo	; see if the rect is already here
	and #$0008	; in the stack frame
	beq RectInPicture

	pei TheRect+6
	pei TheRect+4
	pei TheRect+2
	pei TheRect

	bra Share


RectInPicture		;

	pha
	pha
	pha
	pha

	tsc	; read the rect out	of the picture
	inc a	; onto the stack
	pea 0
	pha
	PushWord #8
	jsl CallGetPic
	bcs Error8

	jsr MapThisRect	; map it

Share		;
	ldx QuickDrawD

	pla	; put it on zero page
	sta TheRect	; and update the rect in play
	sta >Y1,x	; state record
	sta >OvalTop+512,x
	pla
	sta TheRect+2
	sta >X1,x
	sta >OvalTop+512+2,x
	pla
	sta TheRect+4
	sta >Y2,x
	sta >OvalTop+512+4,x
	pla
	sta TheRect+6
	sta >X2,x
	sta >OvalTop+512+6,x

	lda OpCodeToDo	; get verb out of op code
	and #$0007
	sta >DrawVerb,x

	lda OvalSize	; get oval size out	of play state
	sta >OvalHeight+512,x ; record
	lda OvalSize+2
	sta >OvalWidth+512,x

	lda #0
	sta >StartAngle,x
	lda #360
	sta >ArcAngle,x

	phd
	txa
	tcd

	lda #o_StdRRect	; draw it
	jsl CallStdPlay

	pld

	rts


Error8	plx
	plx
	plx
	plx
	rts

	ENDP




****************************************************************
*
* wDrawRRect
*
* This is the routine which puts the RRect in the picture
*
****************************************************************
* wDrawRRect     START
wDrawRRect	PROC EXPORT

	ldy #o_PicOvSize
	lda [TEMP2],y
	ldx #512
	cmp OvalHeight,x
	bne SizeChanged

	iny
	iny
	lda [TEMP2],y
	cmp OvalWidth,x
	beq SizeSame

SizeChanged	lda #PicOvSize
	jsr PutPicWord
	bcs Error0

	ldx #512
	lda OvalWidth,x
	tay
	lda OvalHeight,x
	tyx
	jsr PutPicLong
	bcs Error0

SizeSame	lda #RRectNoun	; put in the RRect noun

	brl PutPicRect

Error0	rts

	ENDP

**********************************************************************
**********************************************************************
	title 'QuickDraw Pictures--Slab Stuff     slabs/OVALS'
****************************************************************
*
* Picture Oval Stuff
*
* There are 10 kinds of Oval opcodes.
*
* All of them have the same high nibble	the low nibble is
* arranged to have the verb in the low three bits and a
* flag relating to the rectangle to use	in the high bit of
* the low nibble.
*
****************************************************************


****************************************************************
*
* rDrawOval
*
* This reads the oval out of the picture and draws it.
*
****************************************************************
* rDrawOval      start
rDrawOval	PROC EXPORT

	lda OpCodeToDo	; see if the rect is already here
	and #$0008	; in the stack frame
	beq RectInPicture

	pei TheRect+6
	pei TheRect+4
	pei TheRect+2
	pei TheRect

	bra Share


RectInPicture		;

	pha
	pha
	pha
	pha

	tsc	; read the rect out	of the picture
	inc a	; onto the stack
	pea 0
	pha
	PushWord #8
	jsl CallGetPic
	bcs Error8

	jsr MapThisRect	; map it

Share		;
	ldx QuickDrawD

	lda 5,s
	sec
	sbc 1,s
	sta >OvalHeight+512,x
	lda 7,s
	sec
	sbc 3,s
	sta >OvalWidth+512,x

	lda #360
	sta >ArcAngle,x
	lda #0
	sta >StartAngle,x

	pla	; put it on zero page
	sta TheRect	; and update the rect in play
	sta >Y1,x	; state record
	sta >OvalTop+512,x
	pla
	sta TheRect+2
	sta >X1,x
	sta >OvalTop+512+2,x
	pla
	sta TheRect+4
	sta >Y2,x
	sta >OvalTop+512+4,x
	pla
	sta TheRect+6
	sta >X2,x
	sta >OvalTop+512+6,x




	lda OpCodeToDo	; get verb out of op code
	and #$0007
	sta >DrawVerb,x

	phd
	txa
	tcd

	lda #o_StdOval	; draw it
	jsl CallStdPlay

	pld

	rts

Error8	plx
	plx
	plx
	plx
	rts

	ENDP




****************************************************************
*
* wDrawOval
*
* This is the routine which puts the Oval in the picture
*
****************************************************************
* wDrawOval      start
wDrawOval	PROC EXPORT

	lda #OvalNoun	; put in the Oval noun
	brl PutPicRect

	ENDP

**********************************************************************
**********************************************************************
	title 'QuickDraw Pictures--Slab Stuff     slabs/ARCS'
****************************************************************
*
* Picture Arc Stuff
*
* There are 10 kinds of Arc opcodes.
*
* All of them have the same high nibble	the low nibble is
* arranged to have the verb in the low three bits and a
* flag relating to the rectangle to use	in the high bit of
* the low nibble.
*
****************************************************************


****************************************************************
*
* rDrawArc
*
* This reads the Arc out of the picture	and draws it.
*
****************************************************************
* rDrawArc       start
rDrawArc	PROC EXPORT

	lda OpCodeToDo	; see if the rect is already here
	and #$0008	; in the stack frame
	beq RectInPicture

	pei TheRect+6
	pei TheRect+4
	pei TheRect+2
	pei TheRect

	bra Share


RectInPicture		;

	pha
	pha
	pha
	pha

	tsc	; read the rect out	of the picture
	inc a	; onto the stack
	pea 0
	pha
	PushWord #8
	jsl CallGetPic
	bcs Error8

	jsr MapThisRect	; map it

Share		;
	jsr GetPicLong	; get the arc angle	and start angle
	bcs Error8
	txy

	ldx QuickDrawD

	sta >StartAngle,x
	tya
	sta >ArcAngle,x

	lda 5,s
	sec
	sbc 1,s
	sta >OvalHeight+512,x
	lda 7,s
	sec
	sbc 3,s
	sta >OvalWidth+512,x

	pla	; put it on zero page
	sta TheRect	; and update the rect in play
	sta >Y1,x	; state record
	sta >OvalTop+512,x
	pla
	sta TheRect+2
	sta >X1,x
	sta >OvalTop+512+2,x
	pla
	sta TheRect+4
	sta >Y2,x
	sta >OvalTop+512+4,x
	pla
	sta TheRect+6
	sta >X2,x
	sta >OvalTop+512+6,x

	lda OpCodeToDo	; get verb out of op code
	and #$0007
	sta >DrawVerb,x

	phd
	txa
	tcd

	lda #o_StdArc	; draw it
	jsl CallStdPlay

	pld

	rts

Error8	plx
	plx
	plx
	plx
	rts

	ENDP




****************************************************************
*
* wDrawArc
*
* This is the routine which puts the Arc in the picture
*
****************************************************************
* wDrawArc       start
wDrawArc	PROC EXPORT

	lda #ArcNoun	; put in the Arc noun

	jsr PutPicRect
	bcs Error

	lda StartAngle	; now add the start	and arc angles
	ldx ArcAngle
	jsr PutPicLong

Error	rts

	ENDP

**********************************************************************
**********************************************************************
	title 'QuickDraw Pictures--Slab Stuff     slabs/POLYS'
****************************************************************
*
* rDrawPoly
*
* This reads the region out of the picture and draws it.
*
****************************************************************
* rDrawPoly      START
rDrawPoly	PROC EXPORT

	jsr GetPicRgn	; treat this just like a region
	bcs error

	phx	; save result on stack here
	pha

	lda 3,s	; push handle on stack again
	pha
	lda 3,s
	pha
	jsr PushRectPtrs	; push the rectangle pointers on
	_MapPoly


	ldx QuickDrawD	; put handle to poly on quickdraw's
	lda 1,s	; direct page
	sta >RgnhandleA,x
	sta >RgnhandleB,x
	sta >RgnhandleC,x
	lda 3,s
	sta >RgnhandleA+2,x
	sta >RgnhandleB+2,x
	sta >RgnhandleC+2,x


	lda OpCodeToDo	; put the draw verb	on quickdraw's
	and #$0007	; direct page
	sta >DrawVerb,x

	phd
	txa
	tcd

	lda #o_stdPoly
	jsl callstdPlay

	pld

	_disposehandle	; using handle on stack dispose it

Error		;
	rts

	ENDP


****************************************************************
*
* wDrawPoly
*
* This is the routine which puts the Poly in the picture
*
****************************************************************
* wDrawPoly      START
wDrawPoly	PROC EXPORT

	lda #PolyNoun	; put the noun and verb in pic
	ldx RgnHandleA
	ldy RgnHandleA+2
	jsr PutPicRgn

	rts

	ENDP

**********************************************************************
**********************************************************************
	title 'QuickDraw Pictures--Slab Stuff     slabs/REGIONS'
****************************************************************
*
* rDrawRgn
*
* This reads the region out of the picture and draws it.
*
****************************************************************
* rDrawRgn       START
rDrawRgn	PROC EXPORT

	jsr GetPicRgn
	bcs Error0

	phx	; save result on stack here.
	pha

	lda 3,s	; push handle on stack again
	pha
	lda 3,s
	pha
	jsr mapThisRgn
	bcs Error4



	ldx QuickDrawD	; Put the region handle on quickdraw's
	lda 1,s	; direct page.
	sta >RgnhandleC,x
	lda 3,s
	sta >RgnhandleC+2,x

	lda OpCodeToDo	; put the draw verb	on quickdraw's
	and #$0007	; direct page
	sta >DrawVerb,x

	phd
	txa
	tcd

	lda #o_stdRgn
	jsl callstdPlay

	pld

	_disposehandle	; using handle on stack dispose it

Error0		;
	rts

Error4	plx
	plx
	rts

	ENDP


****************************************************************
*
* wDrawRgn
*
* This is the routine which puts the Rgn in the picture
*
****************************************************************
* wDrawRgn       START
wDrawRgn	PROC EXPORT

	lda #RgnNoun	; put the noun and verb in pic
	ldx RgnHandleC
	ldy RgnHandleC+2
	jsr PutPicRgn

	rts

	ENDP


****************************************************************
*
* PutPicRgn
*
*     Inputs:     a-reg noun
*                 x-reg low word of handle
*                 y-reg high word of handle
*
* This routine has three entry points.	In the main entry
* the a-reg is merged with the draw verb.  In PutPicRgnB
* The opword is unchanged.  In PutPicRgnC, no op word is
* put in the picture.
*
* No values on QuickDraw's zero page are affected by this
* routine.
*
****************************************************************
* PutPicRgn      START
PutPicRgn	PROC EXPORT
OrigD	equ 1
TheRgnH	equ 3
TheRgnPtr	equ 7


	ora DrawVerb

	Export PutPicRgnB
PutPicRgnB
	phy	; put the handle on	stack so can
	phx	; deref and get size of rgn
	phy
	phx

	jsr PutPicWord	; put the verb into	the pic
	bcs Error8

JoinRest		;
	phd	; save the direct reg
	tsc	; turn stack into direct page
	tcd

	ldy #4	; deref and lock it
	lda [TheRgnH],y
	ora #$8000
	sta [TheRgnH],y
	dey
	dey
	lda [TheRgnH],y
	sta TheRgnPtr+2
	lda [TheRgnH]
	sta TheRgnPtr

	pei TheRgnPtr+2	; push the pointer to rgn data on
	pei TheRgnPtr	; stack
	lda [TheRgnPtr]	; Get Size of region in a-reg
	pha
	lda OrigD	; put back the orig	direct for this
	tcd	; call
	jsl CallPutPic	; put it all in the	picture
	bcs Error8d

	tsc
	tcd

	ldy #4	; unlock the region
	lda [TheRgnH],y
	and #$7FFF
	sta [TheRgnH],y

	pld	; restore direct

	pla	; clear off the 8 bytes put on
	pla	; earlier.
	pla
	pla

	clc
	lda #0
	rts	; done

Error8d	pld
Error8	plx
	plx
	plx
	plx
Error0	rts

	Export PutPicRgnC
PutPicRgnC
	phy
	phx
	phy
	phx
	bra JoinRest

	ENDP



****************************************************************
*
* GetPicRgn
*
****************************************************************
* GetPicRgn      START
GetPicRgn	PROC EXPORT

	jsr getpicword	; read size
	bcs Error0

	pha	; save size on stack

	jsr MyWNewHandle
	bcs Error2

	phx	; save this on stack
	pha

	sta TempDataPtr
	stx TempDataPtr+2
	jsr DerefTempDataPtr

	lda 5,s	; get size off stack from above handle
	sta [TempDataPtr]	; put in new region
	tay	; save in y too.

	lda TempDataPtr
	clc
	adc #2
	tax
	lda TempDataPtr+2
	bcc NoCarry
	inc a
NoCarry	pha
	phx
	dey	; first 2 bytes have already been
	dey	; read
	phy
	jsl CallGetPic
	bcs Error4

	pla	; get handle off stack to return
	plx

Error2		;
	ply	; finally, get size	off stack

Error0	rts

Error4	plx	; get handle off stack into
	ply	; y and x
	pha	; put error code on	stack
	phy	; dispose handle
	phx
	_DisposeHandle
	pla	; get back error code
	sec	; set carry and quit.
	rts


	ENDP



	END

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/QDAux/special.macros b/IIGS.601.SRC/GSToolbox/QDAux/special.macros
new file mode 100644
index 0000000..57546e0
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/QDAux/special.macros
@@ -0,0 +1 @@
+ MACRO
&lab MoveRect &Src,&Dest
&lab lda &Src
 sta &Dest
 lda &Src+2
 sta &Dest+2
 lda &Src+4
 sta &Dest+4
 lda &Src+6
 sta &Dest+6
 MEND
 MACRO
 Redirect &Vector
 lda >&Vector
 sta >o&Vector
 lda >&Vector+2
 sta >o&Vector+2
 lda >p&Vector
 sta >&Vector
 lda >p&Vector+2
 sta >&Vector+2
 MEND
 MACRO
 JumpToNew &Vector
p&Vector
 jml n&Vector
o&Vector ds.b 4
 MEND
 MACRO
 Restore &Vector
 lda >o&Vector
 sta >&Vector
 lda >o&Vector+2
 sta >&Vector+2
 MEND
 MACRO
&lab IncLong &Loc
&lab inc &Loc
 bne @2
 inc &Loc+2
@2
 MEND
 MACRO
&lab BranchOnError &Loc
&lab bcc @1
 brl &Loc
@1 
 MEND



	MACRO
&lab	moveword &from,&to1,&to2
	LCLC &C
&C	setc &substr(&from,1,1)
	IF  &C='['	GOTO .zeropage
&lab	lda &from
	sta &to1
	IF  &to2=''	GOTO .a
	sta &to2
.a
	MEXIT
.zeropage
	IF  &to1='0'	GOTO .b
&lab	ldy #&to1
	lda &from,y
	sta &to2
	MEXIT
.b
&lab	lda &from
	sta &to2
	MEND

	MACRO
&lab	movelong &from,&to1,&to2
	LCLC &C
	LCLC &REST
&C	setc &substr(&from,1,1)
&REST	setc &substr(&from,2,&LEN(&from)-1)
	IF  &C='['	GOTO .zeropage
	IF  &to2=''	GOTO .a
&lab	moveword &from,&to1,&to2
	GOTO .b
.a
&lab	moveword &from,&to1
.b
	IF  &C='#'	GOTO .immediate
	IF  &to2=''	GOTO .c
	moveword &from+2,&to1+2,&to2+2
	MEXIT
.c
	moveword &from+2,&to1+2
	MEXIT
.immediate
	IF  &to2=''	GOTO .d
	moveword #^&REST,&to1+2,&to2+2
	MEXIT
.d
	moveword #^&REST,&to1+2
	MEXIT
.zeropage
&lab	moveword &from,&to1,&to2
	ldy #&to1+2
	lda &from,y
	sta &to2+2
	MEND
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/QDAux/special.slabs.asm b/IIGS.601.SRC/GSToolbox/QDAux/special.slabs.asm
new file mode 100644
index 0000000..ef03b2d
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/QDAux/special.slabs.asm
@@ -0,0 +1 @@
+	TITLE 'Special Slabs'
****************************************************************
*
* SpecialRect  (RectPtr,FrameColor,FillColor)
*
* This is special purpose code to Erase	and Frame a given
* rectangle.
*
* The background is	turned to $FFFF and	the foreground is
* turned to $0000.	The frame size is 1x1 in 320 mode and
* 2x1 in 640 (the 2	is width).
*
* By erasing and framing in 1 call rather than in 2, we do less
* setup and call seek region far fewer times.
*
*
*	 Copyright (C) 1986-1989
*	 Apple Computer, Inc.
*	 All Rights Reserved
*
*
* Change History
*
* 06 Jan 88	Steven Glass
*
* Coding Begins
*
* 31 March 88	Steven Glass
*
* The setup code did not check the special case where FinishWord
* was zero.  In this case, AlmostFinishWord was set to $FFFE
* instead of zero.  A special check was added just before the
* value was decremented.
*
* 19 April 88	Harry Yee and Dan Oliver
*
* Put check at beginning of SpecialRect call to check if QDAux is 
* loaded but never started up. (We check if WAP is zero or not)
*
* The busy flag was incremented from QDStart and never decremented. 
* The busy flag is now decremented upon exit from SpecialRect.
*
* 17 May 88	Steven Glass
*
* DrawBlack and DrawWhite were rewritten.  DrawBlack did not use
* the frame color and always drew in black.  Both routines were
* rewritten to copy through masks more quickly (thanks to owen rubin
* for suggestion).
*
* Removed call to decrement busy flag from code (added 19 April)
* Real bug was in Endcall routine in file QDAux.  This too
* was fixed today.
*
* 01 Jun 88	Steven Glass
*
* Adjustments made to setup to handle case were rect is clipped
* in 640 mode in the middle of the 2-pixel wide frame.
*
* Another adjustment was made to the code that combined the
* left and right words when the rect drawn fits in less than 5
* words.
*
* 2/27/89	Konstantin
*
* Special case to not call seek region when the rectangle is wholly
* contained.
*  
****************************************************************

	include 'all.macros'
	include 'special.macros'

	include '::qd:qdequates:core.globals1'
	include '::qd:qdequates:core.globals2'
	include '::qd:qdequates:region.equs'
	include '::qd:qdequates:rect.equs'
	include '::qd:qdequates:slab.equs'
	include '::qd:qdequates:line.equs'

	include '::qd:qdequates:qd.data.asm'


LeftWords	equ RgnHandleC
RightWords	equ RgnPtrC
AlmostFinishWord	equ Pat
TheFrameColor	equ DrawMask
TheFillColor	equ DrawMask+2
DecBusyFlg	equ $E10068


	IMPORT QDStart
	Import BusyEC8



	Entry DrawWhite
	Entry DrawBlack

	eject


****************************************************************
*
SpecialRect	Proc Export
*
* Fast routine to fill and frame a rect.  The frame is 1x1 in
* in 320 mode and 1x2 in 640 mode.  This is faster than
* the separate calls of filling and framing because we
* seek region only once instead of 5 times.
*
*
* Inputs:
*	Ptr to Rect
* 	Frame Color Word
*	Fill Color Word
*
* Outputs:
*	none
*
* External Refs:
	import DrawWhite
	import DrawBlack
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

	DefineStack
OrigD	word
RTL1	block 3
RTL2	block 3
FillColor	word
FrameColor	word
RectPtr	LONG

	tax	; just in case QDAux is loaded but
	bne ok	; never started up
	tyx
	bne ok
	lda #1	; tool not found
	sec
	rtl 

ok
	jsr QDStart	; activate qd

;=================================================
;
; Put copy of the desired rectangle in both
; Rect1 and Rect2.
;
	lda RectPtr,s
	sta Temp
	lda RectPtr+2,s
	sta Temp+2

	ldy #6 
@1	tyx
	lda [Temp],y
	sta Y1,x
	sta Rect2,x
	dey
	dey
	bpl @1

;==================================================
;
; Put the frame and fill colors on direct page.
;	    
	lda FillColor,s
	sta TheFillColor
	lda FrameColor,s
	sta TheFrameColor

;==================================================
;
; Do the standard setup and clipping.
;	    
	jsl PortLoc2ZP
	jsl SetUpPortRegions
	jsl BMakeMinRect
	bcc continue
	brl NeverMind
continue
	lda MinRect	; copy clipped rect back to rect 1.
	sta Y1
	lda MinRect+2
	sta X1
	lda MinRect+4
	sta Y2
	lda MinRect+6
	sta X2

	jsl ShieldCursor

	phb

	jsl Init2Regions

;=================================================
;
; Do the equivalent	to XSetup.  This includes
;
;   StartWord	          (offset on scanline for first word that changes)
;   LeftMask	          (mask for first word that changes to protect pixels outside rect)
;   LeftWords & LeftWords+2   (The first and second word on scan line.  These are setup
;	           as 0's and F's.  The 0's represent frame color (or parts
;	           to be masked off) and the F's represent fill color.  The real
;	           color is applied later.
;   FinishWord	          (Last word on scan line to change)
;   RightMask	          (Mask for last word on scan line to change.)
;   RightWords & RightWords+2 (The second to last and last words on scan line.  These are setup
;	           as 0's and F's.  The 0's represent frame color (or parts
;	           to be masked off) and the F's represent fill color.  The real
;	           color is applied later.
;   AlmostFinishWord          (Two less than finish word or StartWord, which ever is bigger)
;
; In Setting up LeftWords and RightWords we have to check for the case where
; the rectangle is clipped.  We do not want the frame to appear around the clipped
; rectangle.
;

	bit PortSCB-1
	bmi ModeIs640
	brl ModeIs320
ModeIs640
	lda X1	; convert local coordinates to 
	sec	; memory coordinates
	sbc BoundsRect+2	; starting with left point

	tay	; put copy in y
	and #$0007	; use last 7 bits to get values out of
	asl a	; tables
	tax

	tya	; retrieve y
	lsr a	; turn into byte and
	lsr a
	and #$FFFE	; make even
	sta StartWord

	lda >LeftMaskTable,x ; setup leftmask and left edge of drawing
	sta LeftMask
	lda X1	; see if the left edge was clipped
	cmp Rect2+2	; Compare to original rect
	beq NoClipLeft640	; its same so no clipping
	dec a	; Not same so some clipping occured.
	cmp Rect2+2	; if it is off by one edge is split!
	beq SplitClipLeft
	lda #$FFFF	; left edge does not show at all so make words
	tay	; all fill color.
	bra StoreLeft640
SplitClipLeft
	lda >LeftMaskTable+2,x
	tay
	lda #$FFFF
	bra StoreLeft640
NoClipLeft640
	lda >LeftEdgeTable,x
	tay
	lda >LeftEdgeTable2,x
StoreLeft640
	sty LeftWords
	sta LeftWords+2

	lda X2	; convert local coordinates to memory
	sec	; coordinates for right edge
	sbc BoundsRect+2
	dec a	; dec by 1 for qd's rep of rectangles

	tay	; save in y for now
	and #$0007
	asl a
	tax
	tya
	lsr a
	lsr a
	and #$FFFE
	sta FinishWord

	lda >RightMaskTable,x
	sta RightMask
	lda X2	; check to see if right edge was clipped
	cmp Rect2+6
	beq NoClipRight640	; no, not at all
	inc a	; it was clipped, is it split or completely obliterated.
	cmp Rect2+6
	beq SplitClipRight	; egads, its split.
	lda #$FFFF
	tay
	bra StoreRight640

SplitClipRight
	lda >RightMaskTable-2,x
	tay
	lda #$FFFF
	bra StoreRight640

NoClipRight640
	lda >RightEdgeTable,x
	tay
	lda >RightEdgeTable2,x
StoreRight640
	sta RightWords
	sty RightWords+2

	bra FinishSetup
ModeIs320
	lda X1	; convert local coordinates to 
	sec	; memory coordinates
	sbc BoundsRect+2	; starting with left point

	tay	; put copy in y
	and #$0003	; use last 3 bits to get values out of
	asl a	; tables
	asl a
	tax

	tya	; retrieve y
	lsr a	; turn into byte and
	and #$FFFE	; make even
	sta StartWord

	lda >LeftMaskTable,x ; setup leftmask and left edge of drawing
	sta LeftMask
	lda X1
	cmp Rect2+2
	beq NoClipLeft320
	lda #$FFFF
	tay
	bra StoreLeft320
NoClipLeft320
	lda >LeftEdgeTable,x
	tay
	lda >LeftEdgeTable2,x
StoreLeft320
	sty LeftWords
	sta LeftWords+2

	lda X2	; convert local coordinates to memory
	sec	; coordinates for right edge
	sbc BoundsRect+2
	dec a	; dec by 1 for qd's rep of rectangles

	tay	; save in y for now
	and #$0003
	asl a
	asl a
	tax
	tya
	lsr a
	and #$FFFE
	sta FinishWord

	lda >RightMaskTable+2,x
	sta RightMask
	lda X2
	cmp Rect2+6
	beq NoClipRight320
	lda #$FFFF
	tay
	bra StoreRight320
NoClipRight320
	lda >RightEdgeTable+2,x
	tay
	lda >RightEdgeTable2+2,x
StoreRight320
	sta RightWords
	sty RightWords+2


;-----------------------------------------------------------
;
; To finish up our setup we calculate AlmostFinishWord and 
; then make any adjustments that are necessary for scan
; lines less than 5 words long.
;
FinishSetup
	lda FinishWord	; init AlmostFinishWord to FinishWord-2
	beq @1	; (if this is zero, so is almost finish word)
	dec a	; or startword, whichever is bigger
	dec a
	cmp StartWord
	bcs @1
	lda StartWord
@1	sta AlmostFinishWord

	lda StartWord	; check the degenerate case where start	and
	cmp FinishWord	; stop are the same
	bne LastCheck

	lda RightMask	; merge left and right mask (only left will
	and LeftMask	; be used)
	sta LeftMask

	lda LeftWords	; merge left and right edges (only left	will
	and RightWords+2	; be used)
	sta LeftWords
	bra SetupDone

LastCheck	lda FinishWord	; as long as there are 4 or more words to 
	sec	; do, then we will use LeftWord, LeftWord+2
	sbc StartWord	; RightWord and RightWord+2
	cmp #6
	bcs SetupDone

	cmp #4
	bne Not3Words
; 3 words		; we will use LeftWord, RightWords and RightWord+2
	lda LeftWords+2	; so we merge the middle words and put result into
	and RightWords	; RightWords
	sta RightWords
	bra SetupDone

Not3Words
; 2 words		; we will use LeftWord and RightWord+2
	lda LeftWords	; 
	and RightWords
	sta LeftWords
	lda LeftWords+2
	and RightWords+2
	sta RightWords+2

;-----------------------------------------------------------
;
; The last real part of the setup is to apply the foreground
; and background colors to the left and right words.
;
SetupDone
	lda LeftWords
	and TheFillColor	; apply color to 1's
	pha
	lda LeftWords
	eor #$FFFF
	and TheFrameColor	; apply color to 0's
	ora 1,s
	sta LeftWords
	pla

	lda LeftWords+2
	and TheFillColor	; apply color to 1's
	pha
	lda LeftWords+2
	eor #$FFFF
	and TheFrameColor	; apply color to 0's
	ora 1,s
	sta LeftWords+2
	pla

	lda RightWords
	and TheFillColor	; apply color to 1's
	pha
	lda RightWords
	eor #$FFFF
	and TheFrameColor	; apply color to 0's
	ora 1,s
	sta RightWords
	pla

	lda RightWords+2
	and TheFillColor	; apply color to 1's
	pha
	lda RightWords+2
	eor #$FFFF
	and TheFrameColor	; apply color to 0's
	ora 1,s
	sta RightWords+2
	pla



;=================================================

;=================================================
;
; Do whats in the SetFirstDestref subroutine.
;
		; jsr SetFirstDestref
	lda Y1
	sta CurrentY
	sec
	sbc BoundsRect
	pha
	pha
	pha
	pei Width
	_Multiply
	pla
	clc
	adc ImageRef
	sta DestRef
	pla
	adc ImageRef+2
	and #$00FF
	sta DestRef+2

	phb	; set data bank to bank containing this	scan line
	lda DestREf+1
	sta 0,s
	plb
;=================================================

; Draw The Top Line

	jsl Seek2Regions
	lda Y1
	cmp Rect2
	bne NoBlackOnTop
	jsl DrawBlack
	bra TopDrawn
NoBlackOnTop	inc a
	cmp Y2
	beq DrawOneLine
	jsl DrawWhite
TopDrawn

	lda CurrentY
	inc a
	sta CurrentY
	inc a
	cmp Y2
	bmi DrawMiddle
	beq DrawEnd
	bra TheEnd

DrawMiddle
;------------------------------------------------------------------
;Check to see if we can draw fast.  We can if we are drawing to
; a rectangular region.
;
	lda NonRectRegions
	beq DrawFastMiddle
;------------------------------------------------------------------
DrawMiddleOld
	jsr SetNextDestRef

	jsl Seek2Regions
	jsl DrawWhite

	lda CurrentY
	inc a
	sta CurrentY
	inc a
	cmp Y2
	bmi DrawMiddleOld

DrawEnd
	jsr SetNextDestRef
	jsl Seek2Regions
DrawOneLine	lda Y2
	cmp Rect2+4
	bne NoBlackOnBottom
	jsl DrawBlack
	bra BottomDrawn
NoBlackOnBottom	jsl DrawWhite
BottomDrawn

TheEnd
	plb

	jsl UnshieldCursor
NeverMind
	jsl FreePortRegions

	brl BusyEC8
;------------------START OF FAST MIDDLE DRAW-------------------
DrawFastMiddle
	lda Y2
	clc	;subtract (currentY+1)
	sbc CurrentY	;line count
	sta CurrentY
DrawFast1
	lda DestRef
	clc
	adc Width
	sta DestRef
	bcs DrawFast3

DrawFast2
	jsl DrawWhite

	dec CurrentY	;line count
	bne DrawFast1

	jsr SetNextDestRef
	bra DrawOneLine
DrawFast3	
	inc DestRef+2
	pei DestRef+1
	plb
	plb
	bra DrawFast2

;------------------END OF FAST MIDDLE DRAW-------------------

;=================================================
;
; SetNextDestRef 
;
SetNextDestRef
	lda DestRef
	clc
	adc Width
	sta DestRef
	bcs @1
	rts

@1	inc DestRef+2
	phb
	lda DestRef+1
	sta 0,s
	plb
	rts

;=================================================




LeftMaskTable
	dc.B %11111111,%11111111
	dc.B %00111111,%11111111
	dc.B %00001111,%11111111
	dc.B %00000011,%11111111
	dc.B %00000000,%11111111
	dc.B %00000000,%00111111
	dc.B %00000000,%00001111
	dc.B %00000000,%00000011

	dc.B %00000000,%00000000	; extra line for split frame clipping


	dc.B %00000000,%00000000	; extra line for split frame clipping
RightMaskTable
	dc.B %11000000,%00000000
	dc.B %11110000,%00000000
	dc.B %11111100,%00000000
	dc.B %11111111,%00000000
	dc.B %11111111,%11000000
	dc.B %11111111,%11110000
	dc.B %11111111,%11111100
	dc.B %11111111,%11111111

;=================================================
;
; The Left and Right edge tables are supposed 
; to provide the source pixels for the 
; drawing routine at the left and right	edge
; of the rectangle.
;
; In two cases they	do not work at all.
;   1) when the left edge is supposed to
;      start at pixel 7 of 640 mode, the 
;      table cannot	set the first pixel
;      of the second word to 0.
;   2) when the right edge is supposed to end at
;      pixel 0 of a	word, the table cannot set
;      the last pixel of the prior word	to 0.

LeftEdgeTable
	dc.B %00001111,%11111111
	dc.B %00000011,%11111111
	dc.B %00000000,%11111111
	dc.B %00000000,%00111111
	dc.B %00000000,%00001111
	dc.B %00000000,%00000011
	dc.B %00000000,%00000000
	dc.B %00000000,%00000000

LeftEdgeTable2
	dc.B %11111111,%11111111
	dc.B %11111111,%11111111
	dc.B %11111111,%11111111
	dc.B %11111111,%11111111
	dc.B %11111111,%11111111
	dc.B %11111111,%11111111
	dc.B %11111111,%11111111
	dc.B %00111111,%11111111

RightEdgeTable
	dc.B %00000000,%00000000
	dc.B %00000000,%00000000
	dc.B %11000000,%00000000
	dc.B %11110000,%00000000
	dc.B %11111100,%00000000
	dc.B %11111111,%00000000
	dc.B %11111111,%11000000
	dc.B %11111111,%11110000

RightEdgeTable2
	dc.B %11111111,%11111100
	dc.B %11111111,%11111111
	dc.B %11111111,%11111111
	dc.B %11111111,%11111111
	dc.B %11111111,%11111111
	dc.B %11111111,%11111111
	dc.B %11111111,%11111111
	dc.B %11111111,%11111111



	ENDP
	eject


**********************************************************************
*
* Drawing algorithm
*
* Inputs:
*
* StartWord
* FinishWord
* LeftWords
* RightWords
*
* Almost FinishWord
*
*
* In the case where	5 words or more are	drawn it works like	this
*
*   Draw 1st word
*   Draw 2nd word
*   Draw Middle words
*   Draw Last-1 word
*   Draw Last word
*
* Unfortunately, we	don't always get to draw that many so it 
* really works like	this
*
*       Draw 1st word
*       Bump Y
*       if Y >= AlmostFinishWord goto Last2Words
*       Draw 2nd word
*       Bump Y
*       if Y >= AlmostFinishWord goto Last2Words
*       DrawMiddle Words
*
* Last2Words
*       if Y > AlmostFinishWord goto LastWord
*       Draw Last-1	Word
*       BumpY
* LastWord
*       if Y > FinishWord goto done
*       DrawLastWord
* Done
* 
**********************************************************************
	eject
;=================================================
;
; DrawWhite
;
;
; Change History
;
;
; 31 March 88	Steven Glass
;
; Bug in code that drew middle words when clipping.
; instead of comparing to almostFinishWord, we were
; using FinishWord.  This made us go to far.
;
; 17 May 88	Steven Glass
;
; Re-wrote code that saved to dest through masks
; to use method described by Owen Rubin as "Phred" test.
; This does not burn hole and or in value but uses
; 2 EORs with mask to protect and modify bits in dest.
;

DrawWhite	PROC
	lda NonRectRegions
	bne MustClip

NoClip

; word 1
	ldy StartWord
	lda LeftWords
	eor (DestRef),y
	and LeftMask
	eor (DestRef),y
	sta (DestRef),y


; Word 2
	iny	; bump y reg
	iny
	cpy AlmostFinishWord ; is this one or two word case
	bcs @101	; may be done

	lda LeftWords+2
	sta (DestRef),y
	iny
	iny
	cpy AlmostFinishWord
	bcs @101


; Middle Words	        
	lda TheFillColor	; now we do the non-edge case
@100	sta (DestRef),y	; store into dest
	iny	; keep bumping till	done
	iny
	cpy AlmostFinishWord
	bcc @100




@101	bne @102	; if we get here and y is not equal to 
		; the almost finish	word, then we have one
		; of the cases where there is less than	4
		; words to draw and	Last-1 Word must
		; be skipped.


; Last-1 Word
	lda RightWords
	sta (DestRef),y
	iny
	iny

@102	cpy FinishWord	; now we check if LastWord needs to be done
	bne @103

; Last Word
	lda RightWords+2
	eor (DestRef),y
	and RightMask
	eor (DestRef),y
	sta (DestRef),y

@103

	rtl


MustClip

; word 1
	ldy StartWord	; get offset to starting word in y
	lda LeftWords
	eor (DestRef),y
	and LeftMask
	and [ScanMaskRef],y
	eor (DestRef),y
	sta (DestRef),y

	iny	; bump y reg
	iny
	cpy AlmostFinishWord ; is this one or two word case
	bcs @101	; may be done

; word 2
	lda LeftWords+2
	eor (DestRef),y
	and [ScanMaskRef],y
	eor (DestRef),y
	sta (DestRef),y
	iny
	iny
	cpy AlmostFinishWord
	bcs @101


; middle words

@100
	lda TheFillColor
	eor (DestRef),y
	and [ScanMaskRef],y
	eor (DestRef),y
	sta (DestRef),y
	iny	; keep bumping till	done
	iny
	cpy AlmostFinishWord
	bcc @100

@101	bne @102	; if we get here and y is not equal to 
		; the almost finish	word, then we have one
		; of the cases where there is less than	4
		; words to draw and	Last-1 Word must
		; be skipped.

; LastWord -1
	lda RightWords
	eor (DestRef),y
	and [ScanMaskRef],y
	eor (DestRef),y
	sta (DestRef),y
	iny
	iny


@102	cpy FinishWord	; now check to see if last word needs to be done
	bne @103


; LastWord
	lda RightWords+2
	eor (DestRef),y
	and RightMask
	and [ScanMaskRef],y
	eor (DestRef),y
	sta (DestRef),y

@103

	rtl

	ENDP
	eject

;=================================================
;
; DrawBlack
;
; Change History
;
; 16 May 88	Steven Glass
;
; Was not using the frame color when drawing this line.
;
; Also re-wrote code that saved to dest through masks
; to use method described by Owen Rubin as "Phred" test.
; This does not burn hole and or in value but uses
; 2 EORs with mask to protect and modify bits in dest.
;
DrawBlack	PROC
	lda NonRectRegions
	bne MustClip

	ldy StartWord
	lda TheFrameColor	; get the frame color
	eor (DestRef),y	; eor in the dest
	and LeftMask	; mask off bits
	eor (DestRef),y	; or bits masked off back in and restore other bits to 
	sta (DestRef),y	; desired value

	iny
	iny
	cpy FinishWord
	bcs @101

	lda TheFrameColor
@100	sta (DestRef),y
	iny
	iny
	cpy FinishWord
	bcc @100

@101	bne @102

	lda TheFrameColor
	eor (DestRef),y
	and RightMask
	eor (DestRef),y
	sta (DestRef),y

@102

	rtl


MustClip

	ldy StartWord	; init the index in y
	lda TheFrameColor
	eor (DestRef),y
	and LeftMask	
	and [ScanMaskRef],y
	eor (DestRef),y	; and with dest
	sta (DestRef),y

	iny
	iny
	cpy FinishWord
	bcs @101

@100	
	lda TheFrameColor
	eor (DestRef),y
	and [ScanMaskRef],y
	eor (DestRef),y
	sta (DestRef),y

	iny
	iny
	cpy FinishWord
	bcc @100

@101	bne @102

	lda TheFrameColor
	eor (DestRef),y
	and [ScanMaskRef],y
	eor (DestRef),y
	sta (DestRef),y

@102

	rtl

	ENDP

	END

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/QDAux/text.asm b/IIGS.601.SRC/GSToolbox/QDAux/text.asm
new file mode 100644
index 0000000..f7a9d69
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/QDAux/text.asm
@@ -0,0 +1 @@
+	title 'QuickDraw Pictures--text/TextStuff'
****************************************************************
*
* Pictures -- Text
*
* April 8, 1987
* Version 1.0
*
* Steven Glass
*
* Copyright (C)
* All Rights Reserved
* Apple Computer, Inc. 1986-1989
*
* Change History
*
* 29 Apr 87    Steven E. Glass
*
* The fool who wrote this the first time did not bother to
* check for errors on reading from or writing to the
* picture.  This check has been added.
*
* Text with a length greater than 255 bytes would not have
* worked.  It might	work now.
*
* 17 May 88	Steven Glass
*
* Added code to check for dispatcher error after font manager
* call.  If got dispatcher error, I clean the stack.
*
* 2 March 89	Sue Dumont
*
* Modified rDrawText routine to support text justification.  This
* also involved adding two new routines: CompareRects and AdjustText.
*
* 14 Jun 89	Steven Glass
*
* Deref the text handle after calls to InstallWithStats so that
* if it moves, we won't draw the wrong thing.
*
* 10 Dec 91	Ben Koning
*
* If scaled playback font size is greater than 255, it is now pinned to
* 255 because the font size is represented in the font ID long as a byte.
* Before, it was installing (InstallWithStats call from within DrawPicture)
* the font size mod 256.
*
****************************************************************



	include 'all.macros'
	include 'special.macros'

	include '::qd:qdequates:core.globals1'
	include '::qd:qdequates:core.globals2'
	include '::qd:qdequates:region.equs'

	include '::qd:qdequates:qd.data.asm'

	include '::qd:qdequates:textEquates'

	include 'play.equs'
	include 'pic.equs'

	include 'e16.font'

**************************************************
*	Entries	         *
**************************************************

	Entry CompareRects	;Added for text justification
	Entry AdjustText


**************************************************
*	Imports	         *
**************************************************

	Import DerefTempToTemp2
	Import CallPutPic
	Import PutPicByte
	Import PutPicWord
	Import CallStdPlay
	Import CallGetPic
	Import MyWNewHandle
	Import MapThisPt
	Import GetPicByte
	Import getpicWord
	Import ScaleThisPt


	title 'QuickDraw Pictures--Text Stuff     text/TEXT.STUFF'
****************************************************************
*
* rDrawText
*
* Remember that this routine is called with the DrawPicture
* Globals on direct	page (from stack frame).  QuickDraw
* zero page is only	available indirectly.
*
* Change History
*
* 17 May 88	Steven Glass
*
* Added code to check for dispatcher error after font manager
* call.  If got dispatcher error, I clean the stack.
*
* 31 May 88	Steven Glass
*
* Added code to check for dispatcher error after another font
* manager call that was missed before.
*
* 2 March 89	Sue Dumont
*
* Code added to provide for text justification when drawing
* text from the PicFrame to a PlayFrame of different size.
*
* 14 March 89	Sue Dumont
*
* Use bit 3 in the fontFlags word ($0008) as a justificationFlag.
* If JustificationFlag = 0   don't perform text justification in picture
*                      = 1   perform the text justification.
*
* **NOTE** Text justification is only performed when drawing the picture.
*   _____________________________________________________________________
*  | 15 | 14 | 13 | 12 | 11 | 10 | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 |
*   ---------------------------------------------------------------------
*    |     |    |    |    |    |   |   |   |   |   |   |   |   |   |____|
*    |_____|____|____|____|____|___|___|___|___|___|___|   |   |      \_Font spacing
*                              |                           |   |_Foreground
*                               \_Reserved (0)             |     background colors
*		                   |     treated as word or
*                                    TextJustificationFlag /     pixel values
*		 0 = No justification
*	                     1 = Justify the text
*
****************************************************************
rDrawText	PROC EXPORT

;
; Check if text justification should be performed.
;
	pha	;space for result
	_GetFontFlags
	pla
	and  #$0008	;check the justification flag bit
	beq  SameSize	;if 0, don't do justification

;
; First check if PicFrame and PlayFrame are same size.  If not,
; then text justification will need to be performed.
;
	pha	;space for scaleFactor value
	pha
	jsr  CompareRects	;compare source and dest
	pla	;pull low word off stack
	plx	;pull high word off stack
	bcc  SameSize	;carry bit clear if same size
	sta  >scaleFactor	;fixed value
	txa
	sta  >scaleFactor+2
	lda  #True	;justify the text
	bra  GoOn
	
SameSize	lda #False
	
GoOn	sta >JustifyFlag
	lda ThisTextFace
	ldy #o_TxFace
	sta [CurPortRef],y

	lda OpCodeToDo
	sec
	sbc #$28
	asl a
	tax
	jmp (TextOpTable,x)

	Export TextOpTable
TextOpTable
	DC.W DoLong
	DC.W DoDH
	DC.W DoDV
	DC.W DoDHDV
	DC.W DoLong	; real long text is	handled same as long


DoLong	jsr getpicWord	; read the position	out of the pic
	bcs ExitError	; error - exit
GotYPos	sta TextLoc	; and into textloc in stack frame
	jsr getpicword
	bcs ExitError
GotXPos	sta TextLoc+2

	bra ShareTheRest


DoDH	jsr GetPicByte	; get dH out of pic	and put in
	bcs ExitError
GotdH
	adc TextLoc+2
	sta TextLoc+2

	bra ShareTheRest

DoDV	jsr GetPicByte	; get dV out of pic	and put in
	bcs ExitError
GotdV	adc TextLoc
	sta TextLoc

	bra ShareTheRest

DoDhDv	jsr GetPicWord	; get dH out of pic	and put in
	bcs ExitError
GotBoth	pha	; save it on the stack
	and #$00FF
	clc
	adc TextLoc
	sta TextLoc

	pla
	xba
	and #$00FF
	clc
	adc TextLoc+2
	sta TextLoc+2
	bra ShareTheRest

ExitError	rts

ShareTheRest	pei TextLoc+2
	pei TextLoc
	jsr MapThisPt	; map pt according to the frames

	ldy #o_PnLoc	; put the mapped point into the
	pla	; graf port.
	sta [CurPortRef],y
	iny
	iny
	pla
	sta [CurPortRef],y

	lda OpCodeToDo	; look at opcode to	do to decide if
	cmp #PicRealLongText	; the text length is a byte or a word
	beq ItsRealLong
	jsr GetPicByte	; put Text Length on quickdraw's zp
	bcc GotLength
	rts
ItsRealLong	jsr GetPicWord
	bcs ErrBranch
GotLength
	sta >strLength
	jsr MyWNewHandle	; get memory to hold the text.
	bcs ErrBranch

	phx	; save handle on stack too
	pha

;-----------------------------------------------------------
; 14 Jun 89	SEG
;
; Use new subroutine to deref the handle that is now
; in a & x

	jsr DerefStrHandle
	
	PushLong >StrPtr

;
; End change of 14 Jun 89
;-----------------------------------------------------------



	lda >strLength	; read the text into the newly aquired
	pha	; memory.
	jsl CallGetPic
	bcs ErrBranch1
	bra JustifyIt

ErrBranch	brl  Error
ErrBranch1	brl  Error1

JustifyIt	lda  >JustifyFlag
	bne  Part1	; do the text justification
	brl  Part2	; jusitification not necessary
;
;------------------------------------------------------------
;
; If PicFrame and PlayFrame not same size, install the original source font
; and retrieve text data for that font (text width and scale ratio).
;

Part1	PushLong ThisFontID	;install original font
	PushWord #0	;don't scale
	PushLong #FontStatRec
	_InstallWithStats
	bcc @100

	cmp #$0003	; is it a dispatcher error?
	bcs @100	; no
	pla	; clean the stack.
	pla
	pla
	pla
	pla

@100
;-----------------------------------------------------------
;
; 14 Jun 89
; Steven Glass
;
; Deref again, it might have moved.
;
	lda 3,s
	tax
	lda 1,s
	jsr DeRefStrHandle

;
; End 14 Jun 89
;
;-----------------------------------------------------------


	pha	;space for textwidth result
	PushLong >strPtr
	PushWord >strLength
	_TextWidth
	pla
	sta  >srcWidth	;save original width
;
; calculate the expected text width (srcwidth * scaleFactor)
;
	pha	;space for FixRound result
	pha	;space for FixMul result
	pha
	pha	;space for Long2Fix result
	pha
	PushWord #0	;high word is zeroed out
	PushWord >srcWidth	;convert srcWidth to fixed
	_Long2Fix
	PushLong >scaleFactor
	_FixMul
	_FixRound
	pla
	sta  >wantWidth	;this is the expected width
		
	PushLong >FontStatRec
	PushWord #purgeBit
	_SetPurgeStat
;
;------------------------------------------------------------
;
; Install the new font
;

Part2	lda ThisFontID+3	; get the size field to ThisFontID
	and #$00FF	; mask off garbage
	pha	; push on stack twice
	pha
	jsr ScaleThisPt	; and scale.
	ply	; scaled size by y is in y
	plx	; scaled size by x is in x
	lda ThisFontID+2	; load the high word of the font id
	and #$00FF	; mask off size
	pha	; put on stack
	tya	; get scaled by y value in A
	cmp #255	; start of change 12/10/91 Ben Koning
	bcc Part2_pindone	; pin scaled font size to 255 because
	lda #255	; font size is stated everywhere as a byte
Part2_pindone		; end of change 12/10/91 Ben Koning
	xba	; put it in the high byte of word
	and #$FF00	; mask off low part	just for good luck
	ora 1,s	; merge with value on stack
	sta 1,s	; put back on stack
	pei ThisFontID	; Push the Font family num part of ID
	pea 0	; (for scaling).
	PushLong #FontStatRec
	_InstallWithStats
	bcc @1000

	cmp #$0003	; is it a dispatcher error?
	bcs @1000	; no
	pla	; clean the stack.
	pla
	pla
	pla
	pla

@1000	lda  >JustifyFlag	;do we need to justify the text?
	beq  DrawText	;if not, draw the text
	
	PushLong >strPtr
	PushWord >strLength
	PushLong >scaleFactor
	PushWord >wantWidth
	jsr  AdjustText
	pla
	sta  >oldChExtra
	pla
	sta  >oldChExtra+2
	pla
	sta  >oldSpExtra
	pla
	sta  >oldSpExtra+2
	bcs  DrawText
	lda  #False	;set JustifyFlag to False because ChExtra
	sta  >JustifyFlag	;and SpExtra don't need to be set in grafport
;
;------------------------------------------------------------
;
DrawText

;-----------------------------------------------------------
;
; 14 Jun 89	SEG
;
; One last time it might have moved.
;
	lda 3,s
	tax
	lda 1,s
	jsr DerefStrhandle

;
; End 14 Jun 89 Change
;-----------------------------------------------------------


	ldx QuickDrawD
	lda #1
	sta >DrawVerb,x
	
	lda  >strPtr
	sta  >TextPtr,x
	lda  >strPtr+2
	sta  >TextPtr+2,x
	
	lda >strLength	; put the length on	quickdraw's zp.
	sta >TextLength,x

	phd	; save Direct.
	lda QuickDrawD	; switch in quickdraw's direct page
	tcd
	lda #o_StdText
	jsl CallStdPlay
	pld	; restore quickdraw's direct.

error1	_DisposeHandle	; use handle still on stack.

	lda  >JustifyFlag	;if justified, restore spaceExtra and
	beq  AllSet	;charExtra values in grafport
	PushLong >oldSpExtra
	_SetSpaceExtra
	PushLong >oldChExtra
	_SetCharExtra

;
;-----------------------------------------------------------
;
; Now that the text	is displayed and the handle disposed, 
; lets restore the purgestatus of the font that was 
; actually installed.
;

AllSet	lda >FontStatRec+4
	bit #notFoundBit
	bne @PurgeIt
	bit #purgeBit
	bne @PurgeIt
	bit #memBit
	bne @Done

@PurgeIt	PushLong >FontStatRec
	PushWord #purgeBit
	_SetPurgeStat
;
;-------
; See if the font manager was active
;
	bcc @Done	; no error means stack is clean
	cmp #$0003	; error is 2 or less if not active
	bcs @Done

	pla	; was not active so clean up stack
	pla
	pla
;End fix 31 May
;----

@Done
Error
	rts
	
	
;-----------------------------------------------------------
;
; DerefStrHandle
;
; 14 Jun 89	Steven Glass
;
; Takes the handle in a & x, derefs it using TempDataPtr
; on direct page.  Puts result in StrPtr

DerefStrHandle
	sta TempDataPtr
	stx TempDataPtr+2

	ldy #2
	lda [TempDataPtr],y
	sta  >strPtr+2
	lda [TempDataPtr]
	sta  >strPtr
	rts

;
; End of 14 Jun 89 change.
;
;-----------------------------------------------------------


	


scaleFactor	ds.b 4	;fixed value
oldSpExtra	ds.b 4	;fixed value
oldChExtra	ds.b 4	;fixed value
wantWidth	ds.b 2
srcWidth	ds.b 2
strLength	ds.b 2
strPtr	ds.b 4
JustifyFlag	ds.b 2
FontStatRec	dc.L 0
	dc.W 0

	ENDP


****************************************************************
*
* AdjustText
*
* Inputs:
*	textPtr     Long	;ptr to text to be drawn
*	textLength  Word    ;# chars. in string
*	scaleFactor Long    ;between PicFrame and PlayFrame
*	widthWanted Word	;width the text should be
*
* Outputs:	OldSpExtra  Long	;fixed value of SpaceExtra
*	OldChExtra  Long	;fixed value of CharExtra
*	carry bit   0	;if don't need to be reset in grafport
*	            1       ;if chExtra and SpExtra need to be reset
*
*
* Revision History:
*
* 28 Feb 89	Sue Dumont
*
* New code which adjusts the text accordingly when scaling from
* the source frame to the dest frame.  If the text width in the
* PlayFrame is not what it is expected to be (widthWanted), then
* the chExtra and spExtra fields in the grafport have to be
* adjusted to justify the text.  To accomplish this, the following
* calculations must be performed:
*
*       xtraWidth = widthWanted - txtWidth
*       txtRatio = FixRatio(xtraWidth, txtLength)
*       newChExtra = chExtra + txtRatio
*       newSpExtra = spExtra * scaleFactor
*
****************************************************************

AdjustText	PROC EXPORT

RTSAdr	equ  1
widthWanted	equ  RTSAdr+2
scaleFactor	equ  widthWanted+2	;fixed value
txtLength	equ  scaleFactor+4
txtPtr	equ  txtLength+2

OldChExtra	equ  RTSAdr+2
OldSpExtra	equ  OldChExtra+4

txtWidth	equ  TempDataPtr
txtRatio	equ  TempCount
xtraCh	equ  TempDataPtr
xtraSp	equ  TempCount

	pha	;space for TextWidth result
	lda  txtPtr+4,s
	pha
	lda  txtPtr+4,s
	pha
	lda  txtLength+6,s
	pha
	_TextWidth
	pla
	sta  txtWidth
	
	lda  widthWanted,s	;text width we want
	sec
	sbc  txtWidth	;scaled text width
	bne  NotSameWidth
	clc	;clear the carry flag
	brl  AllDone	;the text scaled correctly so exit
	
NotSameWidth	tay	;this is xtraWidth
;
; NewChExtra:
;      Now find the ratio (xtraWidth / txtLength) for the character
;      adjustment value, and add this value to charExtra.
;
	lda  txtLength,s
	pha	;space for FixRatio result
	pha
	phy	;push xtraWidth
	pha	;push txtLength
	_FixRatio
	pla
	sta  txtRatio
	pla	;pull fraction word off
	sta  txtRatio+2
	
	pha	;space for CharExtra
	pha
	_GetCharExtra
	pla
	sta  xtraCh
	pla
	sta  xtraCh+2
	ora  xtraCh	;if xtraCh is 0, don't bother
	bne  AddIt	;performing addition
	lda  txtRatio+2
	ldx  txtRatio
	bra  DontAdd
	
AddIt	lda  xtraCh	;first add fractional part
	clc
	adc  txtRatio
	bcc  @NoCarry1
	inc  txtRatio+2

@NoCarry1	tax	;save low word in x register
	lda  xtraCh+2
	clc
	adc  txtRatio+2
DontAdd	pha	;push high word of fixed value
	phx	;push low word
	_SetCharExtra
;
; NewSpExtra:
;      Adjust SpaceExtra by calculating:  (xtraSp * scaleFactor).
;      If xtraSp = 0, don't bother with calculation.
;
	pha	;space for SpaceExtra
	pha
	_GetSpaceExtra
	pla
	sta  xtraSp
	pla
	sta  xtraSp+2
	
	bne  DoIt
	sec
	lda  xtraSp
	beq  AllDone	;spaceExtra is 0

DoIt	pha	;space for FixMul result
	pha
	lda  scaleFactor+6,s
	pha
	lda  scaleFactor+6,s
	pha
	PushLong xtraSp
	_FixMul
	_SetSpaceExtra
	sec
	
AllDone	plx	;pull rts address
	pla	;strip 4 extra bytes off stack
	pla
	phx	;restore rts
	
	bcc  RetClear	;return with carry clear if ChExtra and SpExtra
		;not changed in grafport
	lda  xtraCh
	sta  OldChExtra,s	;save old charExtra value on stack
	lda  xtraCh+2
	sta  OldChExtra+2,s

	lda  xtraSp
	sta  OldSpExtra,s	;save old spaceExtra value on stack
	lda  xtraSp+2
	sta  OldSpExtra+2,s
	
	sec	;reset ChExtra and SpExtra
	rts
	
RetClear	sta  OldChExtra,s
	sta  OldChExtra+2,s
	sta  OldSpExtra,s
	sta  OldSpExtra+2,s
	clc	;don't reset ChExtra and SpExtra	
	rts	
		
	ENDP


****************************************************************
*
* CompareRects
*
* Inputs:	Long	;space for scalefactor
*
* Outputs:	carry bit   - 0    	;rectangles are same size
*	              1    	;rectangles not same size
*	ScaleFactor - long	;scalefactor between source and dest
*
*
* Revision History:
*
* 28 Feb 89	Sue Dumont
*
* Tests if the Picframe is same size as the Playframe.
* NOTE: only the y coordinates are tested since this is
*       what the scaling is based on.
*
****************************************************************

CompareRects	PROC EXPORT

RTSAdr	equ 1
ScaleFactor	equ RTSAdr+2

SrcY         	equ   TempDataPtr
DstY         	equ   TempDataPtr+2

	
	lda  FromRect+4	;y2
	sec
	sbc  FromRect	;y1
	sta  SrcY
	
	lda  ToRect+4	;y2
	sec
	sbc  ToRect	;y1
	sta  DstY
	cmp  SrcY
	bne  NotEqual
	clc
	rts
	
NotEqual	pha	;space for scalefactor result
	pha
	PushWord DstY
	PushWord SrcY
	_FixRatio
	plx	;low word
	pla	;high word
	sta  ScaleFactor+2,s
	txa	;low word
	sta  ScaleFactor,s

	sec	;not equal size
	rts

	ENDP



****************************************************************
*
* wDrawText
*
* This is the routine that puts the various forms of text
* into the picture.
*
****************************************************************
* wDrawText      start
wDrawText	PROC EXPORT
;--------------------------------------------------------
;
; First I take a look at the length to see how long the
; text is
;
	lda DrawVerb
	beq NormalWay	; if it is a character then ok
	cmp #1
	beq ItsText

ItsCString		;
	sep #%00100000
	longa off

	ldy #0
KeepLooking	lda [TextPtr],y
	beq TheEnd
	iny
	bra KeepLooking

TheEnd	rep #%00100000
	longa on
	sty TextLength



ItsText		;
	lda TextLength
	cmp #256
	bcc NormalWay

	lda #PicRealLongText
	bra JoinLong

NormalWay		;
;------------------------------------------------------------
;
; Lets see which op	code to use.
;
	ldy #o_PnLoc	; look at last pos in state rec
	lda [PortRef],y	; looking first at vert
	sec
	ldy #o_PicTxLoc	; compare to new pos in port
	sbc [TEMP2],y
	cmp #256	; if greater than 256, must use long
	bcs MustUseLong

	pha	; save dv on stack
	ldy #o_PnLoc+2	; now look at dh
	lda [PortRef],y
	sec
	ldy #o_PicTxLoc+2
	sbc [TEMP2],y
	cmp #256
	bcc CanUseShort

	pla
	bra MustUseLong

CanUseShort	cmp #0	; look at dh
	beq DhIsZero

	plx
	beq DvIsZero

; Dv and Dh are not	zero. Dh is in x. Dv is in a.

	phx	; save dx
	pha	; save dv

	lda #PicDvDhText	; put the opcode in	picture
	jsr PutPicWord
	bcs Error4

	lda 1,s	; get dv
	xba	; put in high byte
	ora 3,s	; or in dh
	jsr PutPicWord	; put in picture
	bcs error4

	pla	; clear stack
	pla	;         0

	bra PutInText


;-----------------------------------------------------------
;
; I put the error handling here so it can be reached
; with branch instructions.
;
Error4	plx
	plx
Error2	plx
	plx
Error0	rts

;-----------------------------------------------------------


; Dh is zero and Dv	is on the stack.
DhIsZero		;
	lda #PicDvText
	jsr PutPicWord
	bcs Error2

	pla
	jsr PutPicByte
	bcs Error0
	bra PutInText

; Dv is zero and Dh	is on the in the a-reg
DvIsZero		;
	pha
	lda #PicDhText
	jsr PutPicWord
	bcs Error2

	pla
	jsr PutPicByte
	bcs Error0
	bra PutInText

MustUseLong		;
	lda #PicLongText
JoinLong		;
	jsr putpicWord
	bcs Error0
	ldy #o_pnLoc
	lda [portRef],y
	jsr putpicWord
	bcs Error0
	ldy #o_pnLoc+2
	lda [portRef],y
	jsr putpicWord
	bcs Error0

PutInText		;
;------------------------------------------------------------
;
; Now do the right thing for the kind of text it is.
;

	lda DrawVerb
	bne doText

doChar		;
	lda CharToDraw
	and #$00FF
	xba
	ora #$0001
	jsr PutPicWord

	bra JointFinish

doText		;
	lda textlength	; for cstrings this	was set up above
	cmp #256
	bcc FitsInByte
	jsr PutPicWord
	bcs Error0
	bra LengthIn

FitsInByte		;
	jsr PutPicByte
	bcs Error0

LengthIn		;

	PushLong textptr
	PushWord textlength
	jsl CallPutPic
	bcs Error0


JointFinish		;
	jsr DerefTempToTemp2

	ldy #o_PnLoc
	lda [PortRef],y
	ldy #o_PicTxLoc
	sta [TEMP2],y
	ldy #o_PnLoc+2
	lda [PortRef],y
	ldy #o_PicTxLoc+2
	sta [TEMP2],y

	rts



	ENDP


	END

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/ROM/GetFFFromExp b/IIGS.601.SRC/GSToolbox/ROM/GetFFFromExp
new file mode 100644
index 0000000..9009278
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/ROM/GetFFFromExp
@@ -0,0 +1 @@
+#
# GetFFFromExp
#
# Copies the file ROM.FF from Pasta:exp.rom:
#
############################################################################# 
duplicate pasta:exp.rom:rom.FF : -y
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/ROM/GetFFFromGood b/IIGS.601.SRC/GSToolbox/ROM/GetFFFromGood
new file mode 100644
index 0000000..96bced8
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/ROM/GetFFFromGood
@@ -0,0 +1 @@
+#
# GetFFFromGood
#
# Copies the file ROM.FF from Pasta:good.rom:
#
############################################################################# 
duplicate pasta:good.rom:rom.FF : -y
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/ROM/MakeFile b/IIGS.601.SRC/GSToolbox/ROM/MakeFile
new file mode 100644
index 0000000..aa61d96
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/ROM/MakeFile
@@ -0,0 +1 @@
+rom.load		Ä				¶
		::tl:tl.asm.obj			¶
		::tl:loading.asm.obj		¶
		::tl:mount.asm.obj			¶
		::tl:textstate.asm.obj		¶
		::tl:MessageCenter.asm.obj		¶
		::tl:MsgByName.asm.obj		¶
		::tl:StartStop.asm.obj		¶
		::toolpatch:toolpatch.asm.obj		¶
		::qd:objs:INIT.asm.obj		¶
		::qd:objs:CallTable.asm.obj		¶
		::qd:objs:ENV.asm.obj		¶
		::qd:objs:UTILS.asm.obj		¶
		::qd:objs:SLABS.asm.obj		¶
		::qd:objs:RECTS.asm.obj		¶
		::qd:objs:LINES.asm.obj		¶
		::qd:objs:slices.asm.obj		¶
		::qd:objs:pixelmaps.asm.obj		¶
		::qd:objs:SHIFTS.asm.obj		¶
		::qd:objs:clipping.asm.obj		¶
		::qd:objs:cursor.asm.obj		¶
		::qd:objs:regions.asm.obj		¶
		::qd:objs:rgndefs.asm.obj		¶
		::qd:objs:text.asm.obj		¶
		::qd:objs:font.asm.obj		¶
		::qd:objs:conics.asm.obj		¶
		::qd:objs:polys.asm.obj		¶
		::kidding:kidding.asm.obj		¶
		::kidding:MoreKidding.asm.obj		¶
		::misc.tools:misc.tools.asm.obj	¶
		::misc.tools:queue.asm.obj		¶
		::misc.tools:InterruptState.asm.obj	¶
		::misc.tools:Converter.asm.obj	¶
		::misc.tools:RomDataMgr.asm.obj	¶
		::text.tools:text.tools.asm.obj	¶
		::desk:desk.asm.obj			¶
		::desk:cdacalls.asm.obj		¶
		::desk:cdamenu.asm.obj		¶
		::desk:ndacalls.asm.obj		¶
		::events:em.asm.obj			¶
		::intmath:im.asm.obj		¶
		::common:common.asm.obj		¶
		::mm:mm.asm.obj			¶
		::mm:peeker.asm.obj			¶
		::sane:sane.asm.obj			¶
		::sane:elems.asm.obj		¶
		::lineedit:le.asm.obj		¶
		::lineedit:LineEditProc.asm.obj	¶
		::dialogmgr:dialog.asm.obj		¶
		::scrap:scrap.asm.obj		¶
		::fontmgr:fm.asm.obj		¶
		::fontmgr:scale.asm.obj		¶
		::sound:sound.aii.obj		¶
		::adb:adb.asm.obj			¶
		::scheduler:scheduler.asm.obj		¶
		::WindMgr:WindMgr.asm.obj		¶
		::WindMgr:Task.asm.obj		¶
		::WindMgr:NewCalls.asm.obj		¶
		::WindMgr:WCtlDef.asm.obj		¶
		::WindMgr:WDefProc.asm.obj		¶
		::MenuMgr:MenuMgr.asm.obj		¶
		::MenuMgr:PopUpProc.asm.obj		¶
		::MenuMgr:WCM.asm.obj		¶
		::ControlMgr:ControlMgr.asm.obj	¶
		::ControlMgr:DefProcs.asm.obj		¶
		::ControlMgr:NewControl2.asm.obj	¶
		::ControlMgr:SuperControl.asm.obj	¶
		::ControlMgr:StatTextProc.asm.obj	¶
		::ControlMgr:PicProc.asm.obj		¶
		::ListMgr:ListMgr.asm.obj		¶
#		::noteseq:obj:tool.aii.obj		¶
#		::notesynth:obj:alloc.aii.obj		¶
#		::notesynth:obj:freq.aii.obj		¶
#		::notesynth:obj:note.exec.aii.obj	¶
#		::notesynth:obj:noteoff.aii.obj	¶
#		::notesynth:obj:noteon.aii.obj	¶
#		::notesynth:obj:tables.aii.obj	¶
#		::notesynth:obj:update.aii.obj	¶
		::appletalk:aptalk.aii.obj		¶
		::appletalk:atp_includes.aii.obj	¶
		::appletalk:lap_includes.aii.obj
	linkiigs 	-s >rom.map  			¶
	-lseg bankFE	-org $FE0000		¶
		::tl:tl.asm.obj			¶
		::tl:loading.asm.obj		¶
		::toolpatch:toolpatch.asm.obj		¶
		::qd:objs:INIT.asm.obj		¶
		::qd:objs:ENV.asm.obj		¶
		::qd:objs:UTILS.asm.obj		¶
		::qd:objs:SLABS.asm.obj		¶
		::qd:objs:RECTS.asm.obj		¶
		::qd:objs:LINES.asm.obj		¶
		::qd:objs:slices.asm.obj		¶
		::qd:objs:pixelmaps.asm.obj		¶
		::qd:objs:SHIFTS.asm.obj		¶
		::qd:objs:clipping.asm.obj		¶
		::qd:objs:cursor.asm.obj		¶
		::qd:objs:regions.asm.obj		¶
		::qd:objs:rgndefs.asm.obj		¶
		::qd:objs:text.asm.obj		¶
		::qd:objs:conics.asm.obj		¶
		::qd:objs:polys.asm.obj		¶
		::misc.tools:misc.tools.asm.obj	¶
		::text.tools:text.tools.asm.obj	¶
		::desk:desk.asm.obj			¶
		::desk:cdacalls.asm.obj		¶
		::desk:cdamenu.asm.obj		¶
		::desk:ndacalls.asm.obj		¶
		::events:em.asm.obj			¶
		::intmath:im.asm.obj		¶
		::common:common.asm.obj		¶
		::misc.tools:queue.asm.obj		¶
	-lseg bankFC	-org $FC0000		¶
		::mm:mm.asm.obj			¶
		::mm:peeker.asm.obj			¶
		::sane:sane.asm.obj			¶
		::sane:elems.asm.obj		¶
		::lineedit:le.asm.obj		¶
		::lineedit:LineEditProc.asm.obj	¶
		::dialogmgr:dialog.asm.obj		¶
		::scrap:scrap.asm.obj		¶
		::fontmgr:fm.asm.obj		¶
		::fontmgr:scale.asm.obj		¶
		::sound:sound.aii.obj		¶
		::adb:adb.asm.obj			¶
		::scheduler:scheduler.asm.obj		¶
		::qd:objs:font.asm.obj		¶
		::kidding:kidding.asm.obj		¶
		::kidding:morekidding.asm.obj		¶
		::ListMgr:ListMgr.asm.obj		¶
		::QD:objs:CallTable.asm.obj		¶
		::misc.tools:Converter.asm.obj	¶
		::misc.tools:InterruptState.asm.obj	¶
	-lseg bankFD	-org $FD0000		¶
		::WindMgr:WindMgr.asm.obj		¶
		::WindMgr:Task.asm.obj		¶
		::WindMgr:NewCalls.asm.obj		¶
		::WindMgr:WCtlDef.asm.obj		¶
		::WindMgr:WDefProc.asm.obj		¶
		::MenuMgr:MenuMgr.asm.obj		¶
		::MenuMgr:PopUpProc.asm.obj		¶
		::MenuMgr:WCM.asm.obj		¶
		::ControlMgr:ControlMgr.asm.obj	¶
		::ControlMgr:DefProcs.asm.obj		¶
		::ControlMgr:NewControl2.asm.obj	¶
		::ControlMgr:SuperControl.asm.obj	¶
		::ControlMgr:StatTextProc.asm.obj	¶
		::ControlMgr:PicProc.asm.obj		¶
		::tl:MsgByName.asm.obj		¶
		::tl:MessageCenter.asm.obj		¶
		::tl:StartStop.asm.obj		¶
		::tl:textstate.asm.obj		¶
		::tl:mount.asm.obj			¶
		::misc.tools:RomDataMgr.asm.obj	¶
#		::noteseq:obj:tool.aii.obj		¶
#		::notesynth:obj:alloc.aii.obj		¶
#		::notesynth:obj:freq.aii.obj		¶
#		::notesynth:obj:note.exec.aii.obj	¶
#		::notesynth:obj:noteoff.aii.obj	¶
#		::notesynth:obj:noteon.aii.obj	¶
#		::notesynth:obj:tables.aii.obj	¶
#		::notesynth:obj:update.aii.obj	¶
		::appletalk:aptalk.aii.obj		¶
		::appletalk:atp_includes.aii.obj	¶
		::appletalk:lap_includes.aii.obj	¶
	-o rom.load
	makebiniigs rom.load -o rom.bin
	rename -y rom.bin ROM.FE
	rename -y rom.bin.2 ROM.FC
	rename -y rom.bin.3 ROM.FD
	filliigs rom.fe
	filliigs rom.fC
	filliigs rom.fD	
	
	
### Dependancies for components
::tl:tl.asm.obj			Ä	::tl:tl.asm
	directory ::tl
	asmiigs tl.asm -d RAMVersion=0
	directory ::rom
::tl:Loading.asm.obj		Ä	::tl:Loading.asm
	directory ::tl
	asmiigs Loading.asm
	directory ::rom
::tl:Mount.asm.obj			Ä	::tl:Mount.asm
	directory ::tl
	asmiigs Mount.asm
	directory ::rom
::tl:TextState.asm.obj		Ä	::tl:TextState.asm
	directory ::tl
	asmiigs TextState.asm
	directory ::rom
::tl:MessageCenter.asm.obj		Ä	::tl:MessageCenter.asm
	directory ::tl
	asmiigs MessageCenter.asm
	directory ::rom
::tl:MsgByName.asm.obj		Ä	::tl:MsgByName.asm
	directory ::tl
	asmiigs MsgByName.asm
	directory ::rom
::tl:StartStop.asm.obj		Ä	::tl:StartStop.asm
	directory ::tl
	asmiigs StartStop.asm
	directory ::rom
::toolpatch:toolpatch.asm.obj		Ä	::toolpatch:toolpatch.asm
	directory ::toolpatch
	asmiigs toolpatch.asm
	directory ::rom
::qd:objs:INIT.asm.obj		Ä	::qd:init.asm ::qd:fastfontcache
	directory ::qd
	asmiigs init.asm -o :objs:init.asm.obj -unsafe -wi
	directory ::rom
::qd:objs:CallTable.asm.obj		Ä	::qd:CallTable.asm
	directory ::qd
	asmiigs CallTable.asm -o :objs:CallTable.asm.obj -unsafe -wi
	directory ::rom
::qd:objs:ENV.asm.obj		Ä	::qd:env.asm
	directory ::qd
	asmiigs env.asm -o :objs:env.asm.obj -unsafe -wi
	directory ::rom
::qd:objs:UTILS.asm.obj		Ä	::qd:utils.asm
	directory ::qd
	asmiigs utils.asm -o :objs:utils.asm.obj
	directory ::rom
::qd:objs:SLABS.asm.obj		Ä	::qd:slabs.asm
	directory ::qd
	asmiigs slabs.asm -o :objs:slabs.asm.obj
	directory ::rom
::qd:objs:RECTS.asm.obj		Ä	::qd:rects.asm
	directory ::qd
	asmiigs rects.asm -o :objs:rects.asm.obj
	directory ::rom
::qd:objs:LINES.asm.obj		Ä	::qd:lines.asm
	directory ::qd
	asmiigs lines.asm -o :objs:lines.asm.obj
	directory ::rom
::qd:objs:slices.asm.obj		Ä	::qd:slices.asm
	directory ::qd
	asmiigs slices.asm -o :objs:slices.asm.obj
	directory ::rom
::qd:objs:pixelMAPS.asm.obj		Ä	::qd:pixelmaps.asm
	directory ::qd
	asmiigs pixelmaps.asm -o :objs:pixelmaps.asm.obj
	directory ::rom
::qd:objs:SHIFTS.asm.obj		Ä	::qd:shifts.asm
	directory ::qd
	asmiigs shifts.asm -o :objs:shifts.asm.obj
	directory ::rom
::qd:objs:clipping.asm.obj		Ä	::qd:clipping.asm
	directory ::qd
	asmiigs clipping.asm -o :objs:clipping.asm.obj
	directory ::rom
::qd:objs:cursor.asm.obj		Ä	::qd:cursor.asm
	directory ::qd
	asmiigs -d midi=0 cursor.asm -o :objs:cursor.asm.obj
	directory ::rom
::qd:objs:regions.asm.obj		Ä	::qd:regions.asm
	directory ::qd
	asmiigs regions.asm -o :objs:regions.asm.obj
	directory ::rom
::qd:objs:rgndefs.asm.obj		Ä	::qd:rgndefs.asm
	directory ::qd
	asmiigs rgndefs.asm -o :objs:rgndefs.asm.obj
	directory ::rom
::qd:objs:text.asm.obj		Ä	::qd:text.asm
	directory ::qd
	asmiigs text.asm -o :objs:text.asm.obj
	directory ::rom
::qd:objs:font.asm.obj		Ä	::qd:font.asm
	directory ::qd
	asmiigs font.asm -o :objs:font.asm.obj
	directory ::rom
::qd:objs:conics.asm.obj		Ä	::qd:conics.asm
	directory ::qd
	asmiigs conics.asm -o :objs:conics.asm.obj
	directory ::rom
::qd:objs:polys.asm.obj		Ä	::qd:polys.asm
	directory ::qd
	asmiigs polys.asm -o :objs:polys.asm.obj
	directory ::rom
::kidding:kidding.asm.obj		Ä	::kidding:kidding.asm
	directory ::kidding
	asmiigs kidding.asm
	directory ::rom
::kidding:morekidding.asm.obj		Ä	::kidding:MoreKidding.asm
	directory ::kidding
	asmiigs MoreKidding.asm
	directory ::rom
::misc.tools:misc.tools.asm.obj	Ä	::misc.tools:misc.tools.asm
	directory ::misc.tools
	asmiigs -d RamVersion=0 misc.tools.asm
	directory ::rom
::misc.tools:queue.asm.obj		Ä	::misc.tools:queue.asm
	directory ::misc.tools
	asmiigs  queue.asm
	directory ::rom
::misc.tools:InterruptState.asm.obj	Ä	::misc.tools:InterruptState.asm
	directory ::misc.tools
	asmiigs  InterruptState.asm
	directory ::rom
::misc.tools:Converter.asm.obj	Ä	::misc.tools:Converter.asm
	directory ::misc.tools
	asmiigs  Converter.asm -unsafe -wi
	directory ::rom
::misc.tools:RomDataMgr.asm.obj	Ä	::misc.tools:RomDataMgr.asm
	directory ::misc.tools
	asmiigs  RomDataMgr.asm -d Big=1 -unsafe -wi
	directory ::rom
::text.tools:text.tools.asm.obj	Ä	::text.tools:text.tools.asm
	directory ::text.tools
	asmiigs text.tools.asm -d ramversion=0
	directory ::rom
::desk:desk.asm.obj			Ä	::desk:desk.asm
	directory ::desk
	asmiigs -d ramversion=0 desk.asm -unsafe -wi
	directory ::rom
::desk:CDACalls.asm.obj		Ä	::desk:CDACalls.asm
	directory ::desk
	asmiigs  CDACalls.asm -unsafe -wi
	directory ::rom
::desk:CDAMenu.asm.obj		Ä	::desk:CDAMenu.asm
	directory ::desk
	asmiigs  CDAMenu.asm -unsafe -wi
	directory ::rom
::desk:NDACalls.asm.obj		Ä	::desk:NDACalls.asm
	directory ::desk
	asmiigs  NDACalls.asm -unsafe -wi
	directory ::rom
::events:em.asm.obj			Ä	::events:em.asm
	directory ::events
	asmiigs em.asm -d midi=0
	directory ::rom
::intmath:im.asm.obj		Ä	::intmath:im.asm
	directory ::intmath
	asmiigs im.asm
	directory ::rom
::common:common.asm.obj		Ä	::common:common.asm
	directory ::common
	asmiigs common.asm
	directory ::rom
::mm:mm.asm.obj			Ä	::mm:mm.asm    ::mm:mm.equates.asm
	directory ::mm
	asmiigs mm.asm -d RAMVersion=0
	directory ::rom
::mm:peeker.asm.obj			Ä	::mm:peeker.asm
	directory ::mm
	asmiigs -d DebugVersion=0 peeker.asm
	directory ::rom
::sane:sane.asm.obj			Ä	::sane:sane.asm
	directory ::sane
	asmiigs sane.asm
	directory ::rom
::sane:elems.asm.obj		Ä	::sane:elems.asm
	directory ::sane
	asmiigs elems.asm
	directory ::rom
::lineedit:le.asm.obj		Ä	::lineedit:le.asm    ::lineedit:LineEditEquates.asm
	directory ::lineedit
	asmiigs le.asm
	directory ::rom
::lineedit:LineEditProc.asm.obj	Ä	::lineedit:LineEditProc.asm   ::lineedit:LineEditEquates.asm
	directory ::lineedit
	asmiigs LineEditProc.asm
	directory ::rom
::dialogmgr:dialog.asm.obj		Ä	::dialogmgr:dialog.asm
	directory ::dialogmgr
	asmiigs dialog.asm
	directory ::rom
::scrap:scrap.asm.obj		Ä	::scrap:scrap.asm
	directory ::scrap
	asmiigs scrap.asm
	directory ::rom
::fontmgr:fm.asm.obj		Ä	::fontmgr:fm.asm
	directory ::fontmgr
	asmiigs fm.asm
	directory ::rom
::fontmgr:scale.asm.obj		Ä	::fontmgr:scale.asm
	directory ::fontmgr
	asmiigs scale.asm
	directory ::rom
::sound:sound.aii.obj		Ä	::sound:sound.aii   ¶
					::sound:EndCall.aii   ¶
					::sound:ServeGen.aii   ¶
					::sound:SetUpDoc.aii   ¶
					::sound:Snd.Equ.aii   ¶
					::sound:StartPlaying.aii   ¶
					::sound:StartSound.aii										
	directory ::sound
	asmiigs sound.aii
	directory ::rom
::adb:adb.asm.obj			Ä	::adb:adb.asm
	directory ::adb
	asmiigs adb.asm
	directory ::rom
::scheduler:scheduler.asm.obj		Ä	::scheduler:scheduler.asm
	directory ::scheduler
	asmiigs scheduler.asm
	directory ::rom
::MenuMgr:MenuMgr.asm.obj		Ä	::MenuMgr:MenuMgr.asm
	directory ::MenuMgr
	asmiigs MenuMgr.asm
	directory ::rom
::MenuMgr:PopUpProc.asm.obj		Ä	::MenuMgr:PopUpProc.asm
	directory ::MenuMgr
	asmiigs PopUpProc.asm
	directory ::rom
::MenuMgr:WCM.asm.obj		Ä	::MenuMgr:WCM.asm
	directory ::MenuMgr
	asmiigs WCM.asm
	directory ::rom
::ListMgr:ListMgr.asm.obj		Ä	::ListMgr:ListMgr.asm
	directory ::ListMgr
	asmiigs ListMgr.asm
	directory ::rom
::ControlMgr:ControlMgr.asm.obj	Ä	::ControlMgr:ControlMgr.asm		¶
					::ControlMgr:SuperEquates.asm		¶
					::ControlMgr:Equates.asm
	directory ::ControlMgr
	Asmiigs ControlMgr.asm -wi -unsafe
	directory ::rom
::ControlMgr:DefProcs.asm.obj		Ä	::ControlMgr:DefProcs.asm		¶
					::ControlMgr:SuperEquates.asm		¶
					::ControlMgr:Equates.asm
	directory ::ControlMgr:
	Asmiigs DefProcs.asm -wi -unsafe
	directory ::rom
::ControlMgr:NewControl2.asm.obj	Ä	::ControlMgr:NewControl2.asm		¶
					::ControlMgr:SuperEquates.asm		¶
					::ControlMgr:Equates.asm
	directory ::ControlMgr:
	Asmiigs NewControl2.asm -wi -unsafe
	directory ::rom
::ControlMgr:SuperControl.asm.obj	Ä	::ControlMgr:SuperControl.asm		¶
					::ControlMgr:Equates.asm
	directory ::ControlMgr:
	Asmiigs SuperControl.asm
	directory ::rom
::ControlMgr:StatTextProc.asm.obj	Ä	::ControlMgr:StatTextProc.asm		¶
					::ControlMgr:SuperEquates.asm		¶
					::ControlMgr:Equates.asm
	directory ::ControlMgr:
	Asmiigs StatTextProc.asm
	directory ::rom
::ControlMgr:PicProc.asm.obj		Ä	::ControlMgr:PicProc.asm		¶
					::ControlMgr:SuperEquates.asm		¶
					::ControlMgr:Equates.asm
	directory ::ControlMgr:
	Asmiigs PicProc.asm
	directory ::rom
::ControlMgr:LineEditProc.asm.obj	Ä	::ControlMgr:LineEditProc.asm		¶
					::ControlMgr:SuperEquates.asm		¶
					::ControlMgr:Equates.asm
	directory ::ControlMgr:
	Asmiigs LineEditProc.asm
	directory ::rom
::WindMgr:WindMgr.asm.obj		Ä	::WindMgr:WindMgr.asm
	directory ::WindMgr
	asmiigs WindMgr.asm
	directory ::rom
::WindMgr:Task.asm.obj		Ä	::WindMgr:Task.asm
	directory ::WindMgr
	asmiigs Task.asm
	directory ::rom
::WindMgr:NewCalls.asm.obj		Ä	::WindMgr:NewCalls.asm
	directory ::WindMgr
	asmiigs NewCalls.asm
	directory ::rom
::WindMgr:WDefProc.asm.obj		Ä	::WindMgr:WDefProc.asm
	directory ::WindMgr
	asmiigs WDefProc.asm
	directory ::rom
::WindMgr:WCtlDef.asm.obj		Ä	::WindMgr:WCtlDef.asm
	directory ::WindMgr
	asmiigs WCtlDef.asm
	directory ::rom
::NoteSeq:obj:tool.aii.obj		Ä	::NoteSeq:data.aii		¶
					::NoteSeq:dirpage.aii	¶
					::NoteSeq:tool.aii
	directory ::NoteSeq
	asmiigs tool.aii -o :obj:tool.aii.obj
	directory ::rom
::NoteSynth:obj:alloc.aii.obj		Ä	::NoteSynth:alloc.aii
	directory ::NoteSynth
	asmiigs alloc.aii -o :obj:alloc.aii.obj
	directory ::rom
::NoteSynth:obj:freq.aii.obj		Ä	::NoteSynth:freq.aii
	directory ::NoteSynth
	asmiigs freq.aii -o :obj:freq.aii.obj
	directory ::rom
::NoteSynth:obj:note.exec.aii.obj	Ä	::NoteSynth:note.exec.aii
	directory ::NoteSynth
	asmiigs note.exec.aii -o :obj:note.exec.aii.obj
	directory ::rom
::NoteSynth:obj:noteoff.aii.obj	Ä	::NoteSynth:noteoff.aii
	directory ::NoteSynth
	asmiigs noteoff.aii -o :obj:noteoff.aii.obj
	directory ::rom
::NoteSynth:obj:noteon.aii.obj	Ä	::NoteSynth:noteon.aii
	directory ::NoteSynth
	asmiigs noteon.aii -o :obj:noteon.aii.obj
	directory ::rom
::NoteSynth:obj:tables.aii.obj	Ä	::NoteSynth:tables.aii
	directory ::NoteSynth
	asmiigs tables.aii -o :obj:tables.aii.obj
	directory ::rom
::NoteSynth:obj:update.aii.obj	Ä	::NoteSynth:update.aii
	directory ::NoteSynth
	asmiigs update.aii -o :obj:update.aii.obj
	directory ::rom
::Appletalk:aptalk.aii.obj	Ä	::AppleTalk:aptalk.aii
	directory ::Appletalk
	asmiigs -w aptalk.aii -o aptalk.aii.obj
	directory ::rom
::Appletalk:atp_includes.aii.obj	Ä	::AppleTalk:atp_includes.aii
	directory ::Appletalk
	asmiigs -w atp_includes.aii -o atp_includes.aii.obj
	directory ::rom
::Appletalk:lap_includes.aii.obj	Ä	::AppleTalk:lap_includes.aii
	directory ::Appletalk
	asmiigs -w lap_includes.aii -o lap_includes.aii.obj
	directory ::rom
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/ROM/UpdateTools b/IIGS.601.SRC/GSToolbox/ROM/UpdateTools
new file mode 100644
index 0000000..cfbdc5f
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/ROM/UpdateTools
@@ -0,0 +1 @@
+#
# This exec file takes the binary files we have in this directory 
# and makes new versions of ROM.FC.AND.FD and ROM.FE.AND.FF.
#
#
# Note that the files rom.FF and rom.FE are put into rom.fe.and.ff
# backwards.  This makes it possible to burn the image without flipping
# the parts.
#
# After the files are created, all the files are copied to pasta:exp.rom:
#
#############################################################################
overlayiigs rom.fc ROM -a $0
overlayiigs rom.fd ROM -a $10000
overlayiigs rom.ff ROM -a $20000
overlayiigs rom.fe ROM -a $30000
overlayiigs rom.ff rom.fe.and.ff -a $0
overlayiigs rom.fe rom.fe.and.ff -a $10000
overlayiigs rom.FC rom.FC.and.FD -a 0
overlayiigs rom.FD rom.FC.and.FD -a $10000
duplicate ROM pasta:exp.rom: -y						# put the updated stuff back on pasta
duplicate rom.FC pasta:exp.rom: -y					# put our latest FC, FD and fe on pasta 
duplicate rom.FD pasta:exp.rom: -y					# stand alone
duplicate rom.fe pasta:exp.rom: -y					#
duplicate rom.fe.and.ff pasta:exp.rom: -y
duplicate rom.fc.and.fd pasta:exp.rom: -y
duplicate rom.map pasta:exp.rom: -y					# put link map there too.
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/ResourceMgr/ResDebugCode.a b/IIGS.601.SRC/GSToolbox/ResourceMgr/ResDebugCode.a
new file mode 100644
index 0000000..1fd10b0
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/ResourceMgr/ResDebugCode.a
@@ -0,0 +1 @@
+;
;
;===========================================================
;	Set flag to show or not show GSOS calls.
;===========================================================
;
;   IN:	PUSH:WORD - TRUE to display calls to GS/OS, FALSE to not show.
;
ResourceShowGSOS
;
@showFlag	equ	inputs		Input parameter.
;
;
		jsr	startCall	Allocate direct page, set <data.
;
		lda	<@showFlag
		sta	showGSOS
;
		brl	pop2_NoErr	Fix stack, return no error, exit tool.
;
;
;==================================================
;	Check parameters to BlockMove.
;==================================================
;
checkBlockMove
;
@saveWork	equ	1
@retAddr		equ	@saveWork+4
@size		equ	@retAddr+3
@des		equ	@size+4
@src		equ	@des+4
;
		pei	<work+2		Save.
		pei	<work
;
		pha
		pha
		lda	@src+6,s
		pha
		lda	@src+6,s
		pha
		_FindHandle
		pla
		sta	<work
		pla
		sta	<work+2
;
		ldy	#2
		lda	[<work],y
		sta	@ptr+2
		lda	[<work]
		sta	@ptr
;
		ldy	#handSize
		lda	[<work],y
		clc
		adc	@ptr
		sta	@endBlk
		iny
		iny
		lda	[<work],y
		adc	@ptr+2
		sta	@endBlk+2
;
		lda	@des,s
		clc
		adc	@size,s
		sta	@endDes
		lda	@des+2,s
		adc	@size+2,s
		sta	@endDes+2
;
		lda	@src,s
		clc
		adc	@size,s
		sta	@endSrc
		lda	@src+2,s
		adc	@size+2,s
		sta	@endSrc+2
;
;
; --- Check bounds.
;
		lda	@src+2,s
		tax
		lda	@src,s
		jsr	@ckBounds
		bcs	@debugErr
;
		lda	@des+2,s
		tax
		lda	@des,s
		jsr	@ckBounds
		bcs	@debugErr
;
		ldx	@endDes+2
		lda	@endDes
		jsr	@ckBounds
		bcs	@debugErr
;
		ldx	@endSrc+2
		lda	@endSrc
		jsr	@ckBounds
		bcs	@debugErr
;
		pla			Restore.
		sta	<work
		pla
		sta	<work+2
;
		ldx	#$2B02		Call BlockMove.
		jml	$E10000 
;
@debugErr	brk	0
;
@endBlk		dc.l	0
@endDes		dc.l	0
@endSrc		dc.l	0
@ptr		dc.l	0
;
;
;
;---------------------------------------------------
;	Check if address is inside handle.
;---------------------------------------------------
;
;   IN:	x/a = address to check.
;
;  OUT:	Carry set if not inside.
;
@ckBounds
;
; --- Check if less than start.
;
		cpx	@ptr+2
		bcc	@bad
		bne	@ok100
		cmp	@ptr
		bcc	@bad
@ok100
;
;
; --- Check if greater than end.
;
		cpx	@endBlk+2
		bcc	@good
		bne	@bad
		cmp	@endBlk
		bcc	@good
		beq	@good
@bad		sec
		rts
;
@good		clc
		rts
;
;
;=================================
;	Dump GS/OS calls.
;=================================
;
		STRING	PASCAL
showGSOS		dc.w	0		TRUE to show GS/OS calls.
;
debugOScall
;
@work1		equ	1
@window		equ	@work1+4
;
@savePort	equ	@window+4
@savebank	equ	@savePort+4
@savePage	equ	@saveBank+1
@returnAddr	equ	@savePage+2
@callNum		equ	@returnAddr+3
@paramTable	equ	@callNum+2
;
		lda	showGSOS
		bne	@ok2
		brl	@exit
;
@ok2		phd
		phb
		phk
		plb
;
		pha
		pha
		_GetPort
;
		tsc
		sec
		sbc	#@savePort-1
		tcs
		tcd
;
		pha			Space for result.
		pha
		pea	@windParam>>16	Pass pointer to window parameter list.
		pea	@windParam
		_NewWindow
		pla
		plx
		sta	<@window
		stx	<@window+2
;
		phx
		pha
		_SetPort
;
;
; --- Display OS call.
;
		pea	10
		pea	10
		_MoveTo
;
		lda	<@callNum
		cmp	#$2000
		bcs	@ok1
;
@outOfRange	pea	@rangeErr>>16
		pea	@rangeErr
		_DrawString
;
		pea	140
		pea	10
		_MoveTo
;
		lda	<@callNum
		jsr	printWord
		brl	@wait
@rangeErr	dc.b	'Bad call number:'
;
;
@ok1		and	#$DFFF
		cmp	#$0019
		bcs	@outOfRange
		asl	a
		tax
		pea	@callList>>16
		lda	@callList,x
		pha
		_DrawString
;
;
		ldx	#-2
		lda	<@callNum
@lop1		inx
		inx
		cmp	@calls,x
		bne	@lop1
;
		lda	#20
		sta	<@work1
		stz	<@work1+2
;
		lda	@callTemplates,x		Get index to form table.
		tax
@lop2		phx
;
		pea	10
		pei	<@work1
		_MoveTo
;
		plx
		phx
		pea	@callTemplates>>16
		lda	|2,x
		pha
		_DrawString
;
		pea	200
		pei	<@work1
		_MoveTo
;
		ldy	<@work1+2
		plx
		phx
		lda	|0,x
		bne	@doLong
;
		lda	[<@paramTable],y
		iny
		iny
		sty	<@work1+2
		jsr	printWord
		bra	@next1
;
@doLong		lda	[<@paramTable],y
		pha
		iny
		iny
		lda	[<@paramTable],y
		iny
		iny
		sty	<@work1+2
		tax
		pla
		jsr	printLong
;
		plx
		phx
		lda	|0,x
		cmp	#1
		beq	@next1
;
		ldy	<@work1+2
		lda	[<@paramTable],y
		pha
		iny
		iny
		lda	[<@paramTable],y
		iny
		iny
		sty	<@work1+2
		tax
		pla
		jsr	printLong
;
@next1		lda	<@work1
		clc
		adc	#10
		sta	<@work1
;
		plx
		inx
		inx
		inx
		inx
		lda	|0,x
		bpl	@lop2
;
;
; --- Wait for user to continue.
;
@wait		pha			Space for result.
		pea	%0000010000101110	Pass event mask.
		pea	@eventRec>>16	Pass event record.
		pea	@eventRec
		_GetNextEvent
		pla
		beq	@wait
;
;
; --- Close window and make the OS call.
;
		pei	<@window+2
		pei	<@window
		_CloseWindow
;
		tsc
		clc
		adc	#@savePort-1
		tcs
;
		_SetPort			Restore port.
		plb			Restore data bank.
		pld
@exit		jml	>$E100B0		GS/OS stack entry point.
;
@eventRec	dcb.b	16,0
;
@callList	dc.w	@call00
		dc.w	@call01
		dc.w	@call02
		dc.w	@call03
		dc.w	@call04
		dc.w	@call05
		dc.w	@call06
		dc.w	@call07
		dc.w	@call08
		dc.w	@call09
		dc.w	@call0A
		dc.w	@call0B
		dc.w	@call0C
		dc.w	@call0D
		dc.w	@call0E
		dc.w	@call0F
		dc.w	@call10
		dc.w	@call11
		dc.w	@call12
		dc.w	@call13
		dc.w	@call14
		dc.w	@call15
		dc.w	@call16
		dc.w	@call17
		dc.w	@call18
;
@call00		dc.w	'Call 00'
@call01		dc.w	'Call 01, CREATE'
@call02		dc.w	'Call 02'
@call03		dc.w	'Call 03'
@call04		dc.w	'Call 04'
@call05		dc.w	'Call 05'
@call06		dc.w	'Call 06'
@call07		dc.w	'Call 07'
@call08		dc.w	'Call 08'
@call09		dc.w	'Call 09'
@call0A		dc.w	'Call 0A'
@call0B		dc.w	'Call 0B'
@call0C		dc.w	'Call 0C'
@call0D		dc.w	'Call 0D'
@call0E		dc.w	'Call 0E'
@call0F		dc.w	'Call 0F'
@call10		dc.w	'Call 10, OPEN'
@call11		dc.w	'Call 11'
@call12		dc.w	'Call 12, READ'
@call13		dc.w	'Call 13, WRITE'
@call14		dc.w	'Call 14, CLOSE'
@call15		dc.w	'Call 15'
@call16		dc.w	'Call 16, SET MARK'
@call17		dc.w	'Call 17'
@call18		dc.w	'Call 18, SET EOF'
;
@calls		dc.w	CREATE
		dc.w	OPEN
		dc.w	READ
		dc.w	WRITE
		dc.w	CLOSE
		dc.w	SET_MARK
		dc.w	SET_EOF
;
@callTemplates	dc.w	@createForm
		dc.w	@openForm
		dc.w	@readForm
		dc.w	@writeForm
		dc.w	@closeForm
		dc.w	@markForm
		dc.w	@EOFform
;
@createForm	dc.w	0,@crePCountStrg
		dc.w	1,@crePathnameStrg
		dc.w	0,@creAccessStrg
		dc.w	0,@creFileTypeStrg
		dc.w	1,@creAuxTypeStrg
		dc.w	0,@creStorageTypeStrg
		dc.w	1,@creDataEOFStrg
		dc.w	1,@creResEOFStrg
		dc.w	$FFFF
;
@crePCountStrg		dc.b	'crePCount'
@crePathnameStrg		dc.b	'crePathname'
@creAccessStrg		dc.b	'creAccess'
@creFileTypeStrg		dc.b	'creFileType'
@creAuxTypeStrg		dc.b	'creAuxType'
@creStorageTypeStrg	dc.b	'creStorageType'
@creDataEOFStrg		dc.b	'creDataEOF'
@creResEOFStrg		dc.b	'creResEOF'
;
@openForm	dc.w	0,@openPCountStrg
		dc.w	0,@openRefNumStrg
		dc.w	1,@openPathnameStrg
		dc.w	0,@openRequestAccStrg
		dc.w	0,@openForkNumStrg
		dc.w	0,@openAccessStrg
		dc.w	0,@openFileTypeStrg
		dc.w	1,@openAuxTypeStrg
		dc.w	0,@openStorageTypeStrg
		dc.w	2,@openCreateTimeStrg
		dc.w	2,@openModTimeStrg
		dc.w	1,@openOptionsStrg
		dc.w	1,@openDataEOFStrg
		dc.w	1,@openDataBlocksStrg
		dc.w	1,@openResEOFStrg
		dc.w	1,@openResBlocksStrg
		dc.w	$FFFF
;
@openPCountStrg		dc.b	'openPCount'
@openRefNumStrg		dc.b	'openRefNum'
@openPathnameStrg		dc.b	'openPathname'
@openRequestAccStrg	dc.b	'openRequestAcc'
@openForkNumStrg		dc.b	'openForkNum'
@openAccessStrg		dc.b	'openAccess'
@openFileTypeStrg		dc.b	'openFileTypeStrg'
@openAuxTypeStrg		dc.b	'openAuxTypeStrg'
@openStorageTypeStrg	dc.b	'openStorageTypeStrg'
@openCreateTimeStrg	dc.b	'openCreateTimeStrg'
@nullStrg		dc.b	''
@openModTimeStrg		dc.b	'openModTimeStrg'
@openOptionsStrg		dc.b	'openOptionsStrg'
@openDataEOFStrg		dc.b	'openDataEOFStrg'
@openDataBlocksStrg	dc.b	'openDataBlocksStrg'
@openResEOFStrg		dc.b	'openResEOFStrg'
@openResBlocksStrg	dc.b	'openResBlocksStrg'
;
;
@readForm	dc.w	0,@readPCountStrg
		dc.w	0,@readRefNumStrg
		dc.w	1,@readDataStrg
		dc.w	1,@readSizeStrg
		dc.w	1,@readTransferStrg
		dc.w	$FFFF
;
@readPCountStrg		dc.b	'readPCountStrg'
@readRefNumStrg		dc.b	'readRefNumStrg'
@readDataStrg		dc.b	'readDataStrg'
@readSizeStrg		dc.b	'readSizeStrg'
@readTransferStrg		dc.b	'readTransferStrg'
;
;
@writeForm	dc.w	0,@writePCountStrg
		dc.w	0,@writeRefNumStrg
		dc.w	1,@writeDataStrg
		dc.w	1,@writeSizeStrg
		dc.w	1,@writeTransferStrg
		dc.w	$FFFF
;
@writePCountStrg		dc.b	'writePCountStrg'
@writeRefNumStrg		dc.b	'writeRefNumStrg'
@writeDataStrg		dc.b	'writeDataStrg'
@writeSizeStrg		dc.b	'writeSizeStrg'
@writeTransferStrg	dc.b	'writeTransferStrg'
;
;
@closeForm	dc.w	0,@closePCountStrg
		dc.w	0,@closeRefNumStrg
		dc.w	$FFFF
;
@closePCountStrg	dc.b	'closePCountStrg'
@closeRefNumStrg	dc.b	'closeRefNumStrg'
;
;
@markForm	dc.w	0,@markPCountStrg
		dc.w	0,@markRefNumStrg
		dc.w	0,@markBaseStrg
		dc.w	1,@markPositionStrg
		dc.w	$FFFF
;
@markPCountStrg	dc.b	'markPCountStrg'
@markRefNumStrg	dc.b	'markRefNumStrg'
@markBaseStrg	dc.b	'markBaseStrg'
@markPositionStrg	dc.b	'markPositionStrg'
;
;
@EOFform		dc.w	0,@EOFPCountStrg
		dc.w	0,@EOFRefNumStrg
		dc.w	0,@EOFBaseStrg
		dc.w	1,@EOFPositionStrg
		dc.w	$FFFF
;
@EOFPCountStrg	dc.b	'EOFPCountStrg'
@EOFRefNumStrg	dc.b	'EOFRefNumStrg'
@EOFBaseStrg	dc.b	'EOFBaseStrg'
@EOFPositionStrg	dc.b	'EOFPositionStrg'
;
;
@windParam	dc.w	@endParam-@windParam	Size of list.
		dc.w	%0010000001100101		Frame.
		dc.l	0			Pointer to window's title.
		dc.l	0			RefCon
		dc.w	0,0,0,0			Full Size (0= default)
		dc.l	0			Color Table Pointer
		dc.w	0,0			Origin.
		dc.w	0,0			Data area size.
		dc.w	0,0			Maximum content size.
		dc.w	0,0			Amount to scroll.
		dc.w	0,0			Amount to page.
		dc.l	0			Infomation bar refCon.
		dc.w	0			Info bar height	
		dc.l	0,0,0			Frame, info bar, content defProcs.
		dc.w	15,30,190,380		Position and size.
		dc.l	$FFFFFFFF		Plane to put window up in.
		dc.l	0			Window record address (allocate).
@endParam
;
		STRING	ASIS
;
;
;----------------------------------
;	Print long value.
;----------------------------------
;
;   IN:	x/a = long value to print.
;	Pen position set at place to print.
;
printLong	phx			Pass value.
		pha
		pea	@strg>>16
		pea	@strg+2
		pea	8
		_Long2Hex
;
		pea	@strg>>16
		pea	@strg
		_DrawString
		rts
;
@strg		dc.b	9,'$00000000'
;
;
;----------------------------------
;	Print word value.
;----------------------------------
;
;   IN:	a = long value to print.
;	Pen position set at place to print.
;
printWord	pha			Pass value.
		pea	@strg>>16
		pea	@strg+2
		pea	4
		_Int2Hex
;
		pea	@strg>>16
		pea	@strg
		_DrawString
		rts
;
@strg		dc.b	5,'$0000'
;
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/ResourceMgr/Resource.a b/IIGS.601.SRC/GSToolbox/ResourceMgr/Resource.a
new file mode 100644
index 0000000..2fbc6b7
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/ResourceMgr/Resource.a
@@ -0,0 +1 @@
+	PAGESIZE 82		;Number of lines per page.
	PRINT NOGEN		;Do not expand macros in listing.
	BLANKS OFF		;No white space in the operand field.

DebugSymbols	equ 0
Version	equ $0103	;2-Apr-93 SS

*****************************************************************************
*
* Apple IIGS Resource Manager
*
* Copyright Apple Computer, Inc. 1988-1992
* All Rights Reserved
*
* Programmer: Dan Oliver
*
*****************************************************************************
*
* Description:
*
* Resource Manager is a tool that reads	and writes data blocks to disk
* and keeps track of those data blocks while they are on disk and in 
* memory.
*
*****************************************************************************
*
* Definitions:
*
* NIL: When dealing with handles and pointers I assume that memory
* in the first page	of memory ($000000-$0000FF) is not valid.
* Therfore, a NIL pointer or handle is one that has bits 8-23
* (middle word) as zero.  I do this because it can be done,	a
* handle or pointer	can be NIL by one stz, a handle or pointer
* can be tested by 2 instructions instead of 3.  However, when
* returning or getting NIL handles and pointers from the
* application, the entire LONG is zero.
*
*****************************************************************************
*
*  Files:
	INCLUDE 'M16.Memory'
	INCLUDE 'M16.Locator'
	INCLUDE 'M16.Resources'
	include 'M16.Misctool'
	include 'M16.Loader'
	include 'M16.Debug'
	include 'M16.Util2'
	
	include 'E16.GSOS'
	include 'E16.Memory'


*	Resource.a  		;Source code for all of Resource Manager.
*
*****************************************************************************
*
*  Modification History             
*
*  Version 0.0
*  06/20/88 Dan - Start of project.
*
*  Version 0.1
*  07/20/88 Dan - Make committee changes.  Remove names. Change spec from to LONG to 
*	separate type (WORD), ID (LONG).  Change attributes from byte to WORD.
*	Change offset from 3 bytes to LONG.
*  09/15/88 Dan - Version $8100 alpha release.
*  09/21/88 Dan - EOF was not being set	when file space was	allocated past current EOF.
*	An error occurred when tring to write a resource or map past EOF.  Fixed
*	by setting EOF each time space is allocated past the current EOF.
*  09/27/88 Dan - InsertIndexRef was not computing the correct number of bytes to move
*	when inserting an index reference.  It was moving (used+1)records instead
*	of (used records)+2 bytes.
*  10/04/88 Dan - Added purge level parameter to ReleaseResource.  Allows resource's purge
*	level to be set or its handle disposed.
*  10/04/88 Dan - Add load resource at absolute address.  Added resAbsLoad flag.
*  10/04/88 Dan - Implemented preLoad resources.
*  10/07/88 Dan - AddResource was sometime clearing the ID field of the last resource
*	in the index.  This fixes a problem introduced on 9/27/88.
*  10/10/88 Dan - Changed status version number to 2.
*  10/24/88 Dan - Added ResourceConverter call to allow routines to be logged in to
*	convert resources on read and writes.
*  10/24/88 Dan - WriteResource was not returning errors.
*  10/25/88 Dan - Changed error code values and removed error codes not used.
*  10/26/88 Dan - Changed the login flag to ResourceConverter.
*  10/26/88 Dan - Added error code resDiffConverter.
*  10/31/88 Dan - ResourceStatus was not returning NIL in A.
*  11/09/88 SEG - LoadRes returned the wrong handle to calling routine if
*	   converter had allocated a different handle and disposed of first one.
*  11/11/88 Dan - Changed GetIndResource to return resource ID instead of handle.
*  11/14/88 Dan - Changed SetResourceLoad and SetResourceFileDepth to return their original
*	values.
*  11/23/88 Dan - writeRes was not restoring the resource handle's attributes correctly.
*  12/05/88 Dan - Changed PreLoad code to load resources as they are ordered on disk rather
*	than index order.  Quick tests showed the new way to be about 2.7 times
*	faster for the case of 20 resources with mixed locations and 4.2 times
*	when another 20 resources were added.  I think at some point it will be
*	slower but more testing is needed.
*  12/05/88 Dan - Added code to append resource fork to file that is not an extended file.
*  12/06/88 Dan - Added code to leave system file open across quits.
*  12/07/88 Dan - Change status version number to 5.
*  12/07/88 Dan - Resource was not marked as needing update by SetResourceAttr.
*  12/14/88 Dan - Changed read flag and file depth values to be part of each application's
*	record instead of global flags.  SetResourceLoad and SetResourceFileDepth
*	both return errors if there is no current application logged in.
*  12/14/88 Dan - UpdateResourceFile was not returning error from resource writes.
*  12/16/88 Dan - CloseResourceFile was using file depth when it shouldn't have.
*  01/09/89 Dan - Changed copyright date.
*  01/09/89 Dan - Changed access in open file block from 3 to 0.
*  01/13/89 Dan - At startup I call ResourceStartup to log in the Resource Manager as an
*	application.  This is so tools can make calls using the system file
*	without having the application log in.  This also means that all 
*	resNoCurApp errors go away as well as checking to make sure there is
*	a current app.  There is always a current app now.
*  01/20/89 Dan - Allow NIL to be passed as pathname pointer to OpenResourceFile which 
*	specifies that the system resource file is to be opened.  The error
*	resSysIsOpen is returned if the system file has already been opened as
*	the system file.  Changed boot code to use the new parameter.  The opened
*	system file's handle is added to every application's file list.
*  01/20/89 Dan - Changed CloseResourceFile to zero the sysFile variable when closing the
*	system file to show there is no system file.  Also, removed system file
*	handle from every application's file list.
*  01/20/89 Dan - In trying to handle disk full errors I am now writing allocated disk blocks
*	when they are allocated to see if disk space is really there.  The writing
*	only happens when the allocated block extends the EOF.  For map resizing
*	this proves to be no fun.  The map can grow while in the process of growing
*	the map.  To try to stop this from happening I make sure their are a few
*	extra free records on AddResource and RemoveResource.  This is so there
*	should be enough free records to handle one grow.
*  01/20/89 Dan - ResourceShutdown now frees all resources in the system file map that were
*	loaded by the application shutting down.
*  01/24/89 Dan - Was setting openAccess instead of openRequestAcc when opening system
*	resource file.
*  02/03/89 Dan - SetResourceID was not marking the map as dirty.  Fixed.
*  02/03/89 Dan - PreLoaded resources were always loaded without regard for the SetResourceLoad
*	value.  Changed to respect the load status.
*  02/08/89 Dan - resProtected was not being used.
*  02/08/89 Dan - CloseResouceFile was not returning correct error codes.
*  02/13/89 Dan - Change OSEvent.  Told to change current level.
*  02/21/89 Dan - Add file access parameter to OpenResourceFile for network.
*  02/24/89 Dan - Changed AddResource to store handle's master pointer in resource index
*	instead of handle when it is an absolute resource.
*  03/06/89 Dan - Change on 2/21/89 created a bug.  Open request access had always been zero,
*	but the change changed the requested access to whatever.  CreateResourceFile
*	thought it was still zero and ended up using whatever access was left over
*	from the last OpenResourceFile call.  Changed so CreateResourceFile always
*	opens a file with its given access.
*  03/08/89 Dan - SysFileChange was not working at all. Fixed.
*  03/16/89 Dan - OpenResourceFile would close any file with a reference number of $0063
*	if the file did not have a resource fork.
*  04/19/89 Dan - Disposed of allocated resource handle if there isn't a converter for a
*	resource that needs a converter.  If LoadResource fails because of no
*	converter an error and nil handle will be returned.  If the converter
*	fails it must dispose of the resource handle and clear the resHandle
*	field and return an error.
*  05/12/89 Dan - Unable to grow resource map.  Error showed up when trying to add 11th
*	resource.  Must have been introduced 4/19/89.
*  05/12/89 Dan - Incorrect GS/OS error code returned from LoadResource if read failed.
*  05/12/89 Dan - LoadResource was returning valid handle if read failed.  Change so
*	empty handle returned if handle can be purged, else nil returned.
*  05/15/89 Dan - LoadResource returned invalid error in some cases, like loading a resource
*	that was already loaded.  Introduced 5/12/89.
*  05/25/89 Dan - ResourceStartup did not expand application list correctly after 20 startups.
*  05/31/89 Dan - Took out prototype bit from version number.
*  06/07/89 Dan - Disposed of sysConvertList when going to P8 and on shutdown. There should
*	not be any converters logged in at that point and the empty convert list
*	was a handle whose position was causing low memory problems.  So it's gone.
*  06/07/89 Mensch - zero out the sysConvertList handle in data after its disposed.
*  06/08/89 Dan - Added resDiskFull error code comments to AddResource, UpdateResourceFile,
*	and RemoveResource.  Also modified Mensch's change, only the middle word
*	needed to be zeroed.
*  07/26/89 Dan - Added freeAppRes routine to check if resource is owned by application
*	before disposing of the resources in the system file on ResourceShutdown.
*  08/28/89 Dan - Added setFileRefNum routine.  UpdateResourceFile now calls setFileRefNum.
*	WriteResource calls setFileRefNum early than it use to set refNums.
*	AddResource calls setFileRefNum now, fixes bug Andy found.  RemoveResource,
*	and ReleaseResource calls setFileRefNum, fixes possible bug.
*  08/29/89 Dan - AddResource left map locked sometimes.  UpdateResourceFile didn't always
*	lock map when needed.  UniqueResourceID left map locked sometimes.
*	Changed include file macros from ALL.MACROS to each file.  ALL.MACROS
*	seems to have gone away from MPW.
*
*  1/25/90 Mensch - Added some code to the OSRestart routine that allows us to call
*	resource startup again. and relog the resource manager. Bump version.
*  8/09/90 Harry  - Fix bug where merging two free blocks resulted in a bad resource map.
*	In routine "freefileblock" the a reg was getting trashed upon returning
*	from "getMapLong".  The a-reg contained the low word of the "next" free 
*	block and was needed as input to routine "addToMapLong2".
*
* 20-Dec-90	Dave Lyons
*	Rolled version to $8102.
*	Making *all* resource files get opened at a system level, not just
*	Sys.Resources.
*	The internal level used is now $0030, just so we can recognize it.
*
* 19-Jan-91	Dave Lyons
*	Added $291E LoadResource2 call.  Takes buffer pointer, resource Type,
*	resource ID; returns resource handle, status in buffer: -1=not loaded,
*	other values = previous handle attributes.
*
* 21-Jan-91	Dave Lyons
*	Adding an unused flag word to LoadResource2--this lets me expand the
*	buffer later if I want.
*	Added FixLockedStatus routine for LoadResource and LoadResource2 so
*	that loading an already-loaded resource which has the locked attribute
*	re-locks the handle if it hasn't been purged.  In other words, the
*	sequence Load, Release to a purge level, HUnlock, and Load again won't
*	leave you with a handle that can go away unexpectedly.
*
* 11-Feb-91	Dave Lyons
*	On startup and restart-from-P8, now we call openSystemFile *after*
*	ResourceStartUp($401E); this allows Sys.Resources resources to preload.
*
* 26-Feb-91	Dave Lyons
*	Make ResourceShutDown return new error resInvalidShutDown ($1E0F) if the
*	current resource app is $401E.  This way $401E will really never get shut
*	down.
*
* 8-Mar-91	Dave Lyons
*	Now we only shut ourself down on a switch to P8, *not* on an OSShutDown.
*	This is important because the OS "okay, you can restart" dialog calls
*	AlertWindow, and now AlertWindow calls LoadResource to get a pre-loaded
*	icon resource from Sys.Resources.
*
* 10-Mar-91	Dave Lyons
*	Added new functions $2A1E FindNamedResource, $2B1E GetResourceName,
*	$2C1E LoadNamedResource, $2D1E SetResourceName.  These are closely
*	modelled after the HyperCard IIGS functions of the same names, but
*	the parameters are slightly different in a couple cases.
*
* 25-Mar-91	Dave Lyons
*	Implemented bit 15 of OpenResourceFile reqAccess parameter = don't preload
*	any resources from the file being opened.
*
* 27-Mar-91	Dave Lyons
*	Fixed bit 15 implementation--we still needed to call @preLoadResources to
*	let it zero out the handle fields in the map, even if we don't want to
*	actually preload stuff.
*
* 4-Apr-91	Dave Lyons
*	Fixed CreateResourceFile to really not use the access, filetype, auxtype
*	parameters when the file already exists.  Sometimes it was getting an error
*	$53 from Create if the caller knew the file existed and passed garbage for
*	the auxtype.
*
* 7-Apr-91	Dave Lyons
*	Implemented input parameters $0000 and $FFFF to GetOpenFileRefNum.
*
* 23-Apr-91	Dave Lyons
*	CloseResource file input bit 15 forces file closed even if there was
*	an error flushing stuff to disk.  File may be corrupted, but at least
*	it gets closed!
*
* 24-Apr-91	Dave Lyons
*	Fixed bad SetResourceName bugs.  It should actually work now.
*
* 25-Apr-91	Dave Lyons
*	If a resource file's free list is corrupted, we try to die with fatal
*	error $1E42 rather than trash the file.
*
* 13-May-91	Dave Lyons
*	Defined new error codes resDupStartUp ($1E12) for ResourceStartUp,
*	resInvalidTypeOrID ($1E13) for rType=0/ID=0.
*	Calls returning resInvalidTypeOrID: AddResource, SetResourceID,
*	SetResourceName.
*
* 24-Jun-91	Dave Lyons
*	Fixed UniqueResourceID($FFFF,x) to never return $07FFxxxx results!
*
* 1-Jul-91	Dave Lyons
*	Changed a BNE to BCC in the previous fix, so that having strange-ID
*	resources in a file will not mess up UniqueResourceID.  I think this
*	is important if anyone ever has a $0FFFxxxx resource to override a
*	ROM resource.
*
* 7-Jul-91	Dave Lyons
*	Changed named-resource call names to RMFindNamedReosurce, RMGetResourceName,
*	RMLoadNamedResource, and RMSetResourceName (to avoid conflict with HCGS
*	callback names).
*
* 25-Jul-91	Dave Lyons
*	¥In ReadRes while cleaning up after an error, we now dispose the handle if
*	*any* error occurs during PurgeHandle, not just $0205.  Fixes problems where
*	user hits Cancel on a please-insert-disk and the system returns a handle
*	anyway.
*	¥The mapNext field on Sys.Resources is now zeroed out, so it doesn't have to
*	be NIL on disk.
*
* 10-Oct-91	Dave Lyons
*	¥If you set bit 31 of the MatchResourceFile result pointer, there is an extra
*	word returned at the end of the structure (offset 6): the resource file id
*	in which the handle was found.  This solves the ambiguity and makes this call
*	actually useful!
*
* 6-Nov-91	Dave Lyons
*	¥Made CloseResFork check for refnum=0; never do a close-all!
*
* 7-Nov-91	Dave Lyons
*	¥OpenResource file with a non-nil "map pointer" (really fork pointer)
*	preserves the mapFileNum in the passed map, and also preserves the resource
*	handles in the passed map.
*
* 9-Dec-91	Dave Lyons
*	¥Make LoadResource check return address; if we're being called from the
*	ROM 3 Control Manager to load a Control Defproc resource, set the system
*	preferences to prompt for the boot disk with no Cancel button.  (NOTE--
*	fix is not ROMable.  Could be made ROMable by moving oldSysPrefs word into
*	fixed global storage, or doing something more beautiful with it.  My
*	attempt to put it on the stack frame failed, and I didn't have time to
*	mess with it.)
*
* 5-Feb-92	Dave Lyons
*	¥Version $0102 for 6.0 final.
*
************************************************************************************************
*
* BEGIN 6.0.1
*
* 2-Apr-92	Dave Lyons
*	¥Version $8103 for 6.0.1d3.
*	¥Fixed bug in CompareNames affecting RMFindNamedResource (and
*	RMLoadNamedResource, which calls RMFindNamedResource).
*
* 10-Apr-92	Dave Lyons
*	¥CloseResourceFile with a nonzero input now returns resFileNotFound error
*	if no files get closed (previously returned no error).
*
* 14-Jul-92	Dave Lyons
*	¥Added new call $2E1E OpenResourceFileByID(requestAccess,userID):oldCurApp.
*	This calls ResourceStartUp for you (it's okay if you were already started).
*	It doesn't tell you the newly-opened file's ID, but you can get that from
*	GetCurResourceFile if you care.
*
* 11-Jan-93	Jim Murphy
*	¥Added new call $2F1E CompactResourceFile(flag,fileID). This removes all
*	free blocks (except the last special EOF free block) from a given file by
*	moving chunks around in the file.
*	
* 12-Jan-93	Jim Murphy
*	¥Added some error checking code to OpenResourceFile that absolutely makes sure
*	that the map was entirely read. This is only useful to those who pass damaged
*	files off to us in the first place, but I'm in a nice mood today. If what is
*	read doesn't equal what we asked for, writeRes returns a GS/OS eofEncountered
*	error.
*	¥Fixed WriteResource to write the size of the resource as it appears on disk,
*	rather than the size of the resource's handle in memory. This properly allows
*	for converters to write resources that are smaller than their in-memory size
*	without destroying the file.
*	¥Added a new bit to mapFlag. Bit 0 is now defined as fileReadWrite. When a file
*	is opened, it gets set to 1 if the file is opened read/write. If it's only open
*	with read access, then it's set to 0.
*	¥AddResource now calls a new internal function, 'isFileWriteable' which checks
*	the new mapFlag bit. If the function returns an error (y=invalidAccess), then
*	the file isn't open for writing, and it makes no sense to allow the Add to
*	proceed, so we don't. This lets you know that you can't do the Add now, rather
*	than when the file is closed.
*	¥MarkResourceChange now does exactly the same thing as described for AddResource
*	above.
*
* 13-Jan-93	Jim Murphy
*	¥Made a few minor code optimizations to isFileWriteable as suggested by The Dave.
*	I also stuck a call to isFileWriteable into CompactResourceFile since that was the
*	function I wrote it for in the first place.
*	¥Changed OpenResourceFile to clear the new mapFlag bit 0 (fileReadWrite) before
*	stuffing in the new value. Someone could give us a file with it set since RezIIgs
*	_can_ incorrectly set this bit with a flag. Thanks Dave.
*	¥Changed my MarkResourceChange fix from yesterday to only return an invalidAccess
*	error if the resource in question is being marked changed. If it's being marked
*	unchanged (which won't eventually cause a write), then we allow it.
*
* 25-Jan-93	Jim Murphy
*	¥Fixed MarkResourceChange to only bother to check for read/write access if the
*	resource in question is being marked changed. I had it only checking when you
*	were marking one unchanged, and that's bad. I said that the 1/13/93 fix did this,
*	but my logic was backwards. Whoops.
*
* 27-Jan-93	Jim Murphy
*	¥Added RemoveResource, WriteResource, SetResourceAttr, and SetResourceID to the group
*	of functions which now verify that the target file can be written to before actually
*	doing anything. They all now call isFileWriteable before making any changes, and return
*	a GS/OS invalidAccess error if the file cannot be written to.
*
* 1-Feb-93	Jim Murphy
*	¥MarkResourceChange was allowing the Y-register to be nuked when it could mark the resource
*	as changed. Whoops. It doesn't do that any more. This broke Genesys big-time, BTW.
*
* 10-Feb-93	Dave Lyons
*	¥Backed off the read-only checks in SetResourceAttr and SetResourceID, for compatibilty
*	(with Steve S's System Icons init, for example--he's setting resource attributes to
*	absolute-load and taking responsibility for forcing the file closed by setting bit 15
*	to CloseResourceFile).
*
* 2-Apr-93	Steve Stephenson
*
*	¥Changed version to $0103 (final)
*
*************************************************************************************************

;================================================================================================
;=
ResourceMgr	PROC
;=
;= Description:
;= This procedure contains all source code for the Resource	Manager.  It is done this 
;= way because of the assembler inability to handle forward	references outside of PROCs.
;= This means either structuring the code to fit the assembler or doing part of	the 
;= assembly manually by using ENTRY statements.  Since ordering code for an assembler 
;= and the use of ENTRY statements decreases readability and increases work the	code is
;= in one PROC.
;=
;= However, within this one PROC routines are separated.  Routines start with a	nonlocal
;= label with local	labels inside each routine.
;=
;= Inputs:
;= There are no inputs because ResourceMgr is not a callable routine.
;=
;= Outputs:
;= There are no outputs because ResourceMgr is not a callable routine.
;=
;= External References:
;=
;=
;= Entry Points:
	EXPORT ResToolTable		;Test program needs	this to install the	tool.
;=   ;This can be removed when this is a loaded tool.
;= 
;================================================================================================
;
;
;================================================================================================
;  Handle record offsets.
;================================================================================================
;
handPointer	equ 0		;Pointer to memory.
handAttr	equ handPointer+4
handOwner	equ handAttr+2
handSize	equ handOwner+2
handPrev	equ handSize+4
handNext	equ handPrev+4
;
;
;================================================================================================
;  GS/OS equates.
;================================================================================================
;
;
; --- GS/OS stack entry point.
;

	IF  deBug THEN

	ENTRY debugOScall
GS_OS	equ debugOScall		Grab GS/OS calls to	display inputs.

	MACRO
&lab	_MyBlockMove
&lab	jsl checkBlockMove
	MEND

	ELSE

GS_OS	equ $E100B0		GS/OS stack entry point.
;
	MACRO
&lab	_MyBlockMove
&lab	ldx #$2B02
	jsl $E10000
	MEND

	ENDIF

;
; --- Call numbers.
;
CREATE	equ $2001		Create file.
OPEN	equ $2010		Open file.
READ	equ $2012		Read from file.
WRITE	equ $2013		Write to file.
CLOSE	equ $2014		Close file.
SET_MARK	equ $2016		Set file position mark.
SET_EOF	equ $2018		Set EOF.
GetLevel	equ $201B
SetLevel	equ $201A
AddOSQueue	equ $2034
DeleteOSQueue	equ $2035
;
;
; --- Create file parameter block offsets.
;
crePCount	equ 0		IN  - number of parameters.
crePathname	equ crePCount+2		IN  - pointer to class 1 input string.
creAccess	equ crePathname+4		IN  - access attribute.
creFileType	equ creAccess+2		IN  - file type.
creAuxType	equ creFileType+2		IN  - aux type.
creStorageType	equ creAuxType+4		IN  - 1=standard, 5=extended, 13=directory.
creDataEOF	equ creStorageType+2	IN  - bytes allocated for data fork.
creResEOF	equ creDataEOF+4		IN  - bytes allocated for resource fork.
creBlockSize	equ creResEOF+4		Size of open parameter block.
;
;
; --- Open file parameter block offsets.
;
openPCount	equ 0		IN  - number of parameters.
openRefNum	equ openPCount+2		OUT - open file reference number.
openPathname	equ openRefNum+2		IN  - pointer to class 1 input string.
openRequestAcc	equ openPathname+4		IN  - Request access.
openForkNum	equ openRequestAcc+2	IN  - 0 to open data, 1 to open resource.
openAccess	equ openForkNum+2		OUT - access attribute.
openFileType	equ openAccess+2		OUT - file type.
openAuxType	equ openFileType+2		OUT - aux type.
openStorageType	equ openAuxType+4		OUT - 1=standard, 5=extended, 13=directory.
openCreateTime	equ openStorageType+2	OUT - creation time	and date.
openModTime	equ openCreateTime+8	OUT - last modified	time and date.
openOptions	equ openModTime+8		IN  - pointer to list output buffer.
openDataEOF	equ openOptions+4		OUT - bytes in data	fork.
openDataBlocks	equ openDataEOF+4		OUT - blocks used in data fork.
openResEOF	equ openDataBlocks+4	OUT - bytes in resource fork.
openResBlocks	equ openResEOF+4		OUT - blocks used in resource fork.
openBlockSize	equ openResBlocks+4		Size of open parameter block.
;
;
; --- Read file parameter block offsets.
;
readPCount	equ 0		IN  - number of parameters.
readRefNum	equ readPCount+2		IN  - open file reference number.
readData	equ readRefNum+2		IN  - pointer to data area to read into.
readSize	equ readData+4		IN  - number of bytes to read.
readTransfer	equ readSize+4		OUT - number of bytes read.
readBlockSize	equ readTransfer+4		Size of read parameter block.
;
;
; --- Write file parameter block offsets.
;
writePCount	equ 0		IN  - number of parameters.
writeRefNum	equ writePCount+2		IN  - open file reference number.
writeData	equ writeRefNum+2		IN  - pointer to data to write.
writeSize	equ writeData+4		IN  - number of bytes to write.
writeTransfer	equ writeSize+4		OUT - number of bytes written.
writeBlockSize	equ writeTransfer+4		Size of write parameter block.
;
;
; --- Close file parameter block offsets.
;
closePCount	equ 0		IN  - number of parameters.
closeRefNum	equ closePCount+2		IN  - open file reference number.
closeBlockSize	equ closeRefNum+2		Size of close parameter block.
;
;
; --- Set file position mark parameter block offsets.
;
markPCount	equ 0		IN  - number of parameters.
markRefNum	equ markPCount+2		IN  - open file reference number.
markBase	equ markRefNum+2		IN  - base of position.
markPosition	equ markBase+2		IN  - file position.
markBlockSize	equ markPosition+4		Size of set mark parameter block.
;
;
; --- Set EOF parameter block offsets.
;
EOFPCount	equ 0		IN  - number of parameters.
EOFRefNum	equ EOFPCount+2		IN  - open file reference number.
EOFBase	equ EOFRefNum+2		IN  - base of position.
EOFdisplacement	equ EOFBase+2		IN  - new EOF position.
EOFBlockSize	equ EOFdisplacement+4	Size of EOF parameter block.
;
;
; --- Get level parameter block offsets, these are guesses because of a lack of	documentation.
;
getLevelPCount	equ 0		IN  - number of parameters.
getLevelCurrent	equ getLevelPCount+2	OUT - current level, $80xx if user, $00xx if system.
getLevelMode	equ getLevelCurrent+2	GetLevel level_mode	flag
getLevelBlockSize	equ getLevelMode+2		Size of get level parameter block.
;
;
; --- Set level parameter block offsets, these are guesses because of a lack of	documentation.
;
setLevelPCount	equ 0		IN  - number of parameters.
setLevelCurrent	equ setLevelPCount+2	OUT - current level, $80xx if user, $00xx if system.
setLevelMode	equ setLevelCurrent+2	SetLevel level_mode	flag
setLevelBlockSize	equ setLevelMode+2		Size of get level parameter block.
;
;
; --- Add to OS queue parameter block offsets.
;
addQPCount	equ 0		IN  - number of parameters.
addQProc	equ addQPCount+2		IN  - address of procedure to call with	OS events.
addQBlockSize	equ addQProc+4		Size of parameter block.
;
;
; --- Delete from OS queue parameter block offsets.
;
delQPCount	equ 0		IN  - number of parameters.
delQProc	equ delQPCount+2		IN  - address of procedure to delete from queue.
delQBlockSize	equ delQProc+4		Size of parameter block.
;
;
; --- GS/OS error codes.
;
GSOS_IOerror	equ $0027
GSOS_BadPath	equ $0040
GSOS_PathNotFound	equ $0044
GSOS_VolNotFound	equ $0045
GSOS_FileNotFound	equ $0046
GSOS_NoAccess	equ $004E
GSOS_FileOpen	equ $0050
GSOS_resNotFound	equ $0063


	EJECT
;================================================================================================
; Resource Manager Equates
;================================================================================================
;
;
; --- Global Resource Equates.
;
ResToolNum	equ $001E		Resource Manager tool number.
FileFormatVersion	equ 0		Version of file format.
sysFileID	equ 1		ID of system file.

ResMgrInternalFileLevel equ $30		;for SetLevel(2,...) [DAL]
;
;
; --- Resource Manager direct page offsets.
;
writeEOFflag	equ 1		TRUE if writing needed to allocate disk	space.
saveDataAttr	equ writeEOFflag+2		Save handle attributes of data handle.
mapHand	equ saveDataAttr+2		General map handle.
mapPtr	equ mapHand+4		General map poointer.
resPtr	equ mapPtr+4		General resource reference pointer.
data	equ resPtr+4		Pointer data area.
work	equ data+4		Local direct page work area.
dPageSize	equ work+44-1		Size of Resource Manager direct page.
;
maxLocal	equ dPageSize+1		One greater than local direct page.
;
dataHand	equ maxLocal		Handle of data area.
saveDpage	equ dataHand+4		Caller's direct page pointer.
saveDbank	equ saveDpage+2		Caller's data bank.
returnAddr1	equ saveDbank+1		Return address to tool locator.
returnAddr2	equ returnAddr1+3		Return address to caller.
inputs	equ returnAddr2+3		Inputs passed by caller.
;
;
; --- Resource file	header offsets.
;
rFileVersion	equ 0		Version of resource	file format.
rFileToMap	equ rFileVersion+4		Offset to map.
rFileMapSize	equ rFileToMap+4		Size of map.
rFileMemo	equ rFileMapSize+4		Reserved space for application.
;
rFileVer	equ 0		!!! Work around !!!
FILEMAPSIZE	equ 8		!!! Work around !!!
;
;
; --- Application record offsets.
;
appFlag	equ 0		0 = avaiable, 1 = used, $FFFF = end of array.
appID	equ appFlag+2		User ID of application.
appFiles	equ appID+2		Handle of app's first map of linked list, NIL=none.
appCur	equ appFiles+4		Handle of app's current map, NIL if none.
appConverters	equ appCur+4		Handle of app's converter list, NIL if none.
appReadFlag	equ appConverters+4		1 to read, 0 to not	read resources.
appFileDepth	equ appReadFlag+2		Number of files to search.
appRecSize	equ appFileDepth+2		Size of application	record.
;
;
; --- Converter list offsets.
;
converterListSize	equ 0
convertList	equ converterListSize+2
;
convertType	equ 0
converter	equ convertType+2
convertRecSize	equ converter+4
;
;
; --- Resource map record offsets.
;
mapNext	equ 0		Next resource map, NIL terminates list.
mapFlag	equ mapNext+4		Bit flags.
mapOffset	equ mapFlag+2		Map's file position.
mapSize	equ mapOffset+4		Size of map in file.
mapToIndex	equ mapSize+4		Offset to resource index.
mapFileNum	equ mapToIndex+2		Open resource file reference number, NIL if ROM file.
mapID	equ mapFileNum+2		Map's ID.
mapIndexSize	equ mapID+2		Total number of records in index.
mapIndexUsed	equ mapIndexSize+4		Number of used records in index.
mapFreeListSize	equ mapIndexUsed+4		Number of BLOCK records in mapFree array.
mapFreeListUsed	equ mapFreeListSize+2	Number of BLOCK records used in mapFree	array.
mapFreeList	equ mapFreeListUsed+2
; BYTE[n]  Resource	index.
;
; ------ mapFlag bits.
;
*** 12-Jan-93 JCM - New bit def. If this mapFlag bit is set, then the file in question is opened with
***	read/write access. Otherwise, it's read-only.
fileReadWrite	equ $0001		TRUE if file read/write FALSE if read-only
*** end 12-Jan-93 JCM
mapChanged	equ $0002		TRUE if map needs to be written to disk.
;;;romFile	equ $0004		TRUE if file in ROM. - never supported/removed 12-Jan-93 JCM
;
;
; ------ mapFlag NOT bits.
;
_fileReadWrite	equ $FFFE
_mapChanged	equ $FFFD
;
;
; ------ BLOCK record offsets.
;
blkOffset	equ 0		Offset, from top of	file, to block.  NIL terminates.
blkSize	equ blkOffset+4		Size of block.
blkRecSize	equ blkSize+4		Size of BLOCK record.
;
;
; --- Resource index reference record offsets.
;
resType	equ 0		WORD Type of resource.
resID	equ resType+2		LONG ID of resource.
resOffset	equ resID+4		LONG Offset to resource in file.
resAttr	equ resOffset+4		WORD Attributes of resource.
resSize	equ resAttr+2		LONG Size of resource in bytes.
resHandle	equ resSize+4		LONG Resource handle, NIL=not in memory, or address.
resRecSize	equ resHandle+4
;
;
; ------ resAttr bit equates.
;
resChanged	equ $0020
resPreLoad	equ $0040
resProtected	equ $0080
resAbsLoad	equ $0400
resMemAttr	equ $C31C		Bits passed to allocate memory.
resConverter	equ $0800
;     $0001  Available.
;     $0002  Available.
;     $1000  Available.
;     $2000  Available.
;
;
; ------ resAttr NOT bit equates.
;
_resChanged	equ $FFDF
_resPreLoad	equ $FFBF
_resProtected	equ $FF7F
;
;
; --- Size of UniqueResourceID hash table.
;
hashSize	equ 512
;
;
; --- Resource Manager data area offsets.
;
; ------ Part of data area that is initialized to static values.
;
createBlock	equ 0		Create file parameter block.
openBlock	equ createBlock+creBlockSize	Open file parameter	block.
readBlock	equ openBlock+openBlockSize	Read file parameter	block.
writeBlock	equ readBlock+readBlockSize	Write file parameter block.
closeBlock	equ writeBlock+writeBlockSize	Close file parameter block.
markBlock	equ closeBlock+closeBlockSize	Set file position mark parameter block.
EOFBlock	equ markBlock+markBlockSize	Set EOF parameter block.
getLevelBlock	equ EOFBlock+EOFBlockSize	Get file level parameter block.
setLevelBlock	equ getLevelBlock+getLevelBlockSize	Set file level parameter block.
addQBlock	equ setLevelBlock+setLevelBlockSize	Add proc to OS event queue.
delQBlock	equ addQBlock+addQBlockSize	Delete proc from OS	event queue.
curApp	equ delQBlock+delQBlockSize	Offset to current application record.
;
dataInitSize	equ curApp+2		Number of bytes to initialize.
;
;
; ------ Part of data area that is initialized to zero.
;
hashIDTable	equ dataInitSize		Hash table for UniqueResourceID.
fileHeader	equ hashIDTable+hashSize	Resource file header space.
sysFile	equ fileHeader+rFileMemo	Handle of system file map, NIL if none.
sysConvertList	equ sysFile+4		Handle of system converter list.
applist	equ sysConvertList+4	Application list, !!!must be last in list!!!
dataSize	equ appList+(appRecSize*20)+2	Size of data area (must be even).
;
; --- Resource Manager error codes.
;
resForkUsed	equ 1+(ResToolNum<<8)	;Fork not empty.
resBadFormat	equ 2+(ResToolNum<<8)	;Resource fork format is unknown.
resNoConverter	equ 3+(ResToolNum<<8)	;No converter for resource.
resNoCurFile	equ 4+(ResToolNum<<8)	;No current file.
resDupID	equ 5+(ResToolNum<<8)	;ID already used.
resNotFound	equ 6+(ResToolNum<<8)	;Resource was not found.
resFileNotFound	equ 7+(ResToolNum<<8)	;Resource file was not found.
resBadAppID	equ 8+(ResToolNum<<8)	;User ID not found in application list.
resNoUniqueID	equ 9+(ResToolNum<<8)	;No unique ID found by UniqueResourceID.
resIndexRange	equ 10+(ResToolNum<<8)	;Index out of range.
resSysIsOpen	equ 11+(ResToolNum<<8)	;System file is already open.
resHasChanged	equ 12+(ResToolNum<<8)	;Resource is marked as changed.
resDiffConverter	equ 13+(ResToolNum<<8)	;Different converter logged in for that type.
resDiskFull	equ 14+(ResToolNum<<8)	;Disk is too full to complete operation.
resInvalidShutDown	equ 15+(ResToolNum<<8)	;Invalid to shut down $401E application (DAL 26-Feb-91)
resNameNotFound	equ 16+(ResToolNum<<8)	;No resource found with specified name (DAL 10-Mar-91)
resBadNameVers	equ 17+(ResToolNum<<8)	;Unknown format for rResName resource
resDupStartUp	equ 18+(ResToolNum<<8)	;Duplicate ResourceStartUp call with same ID
resInvalidTypeOrID	equ 19+(ResToolNum<<8)	;type=0 is illegal, ID=0 is illegal


	EJECT
;================================================================================================
;=
;= Description: Install Resource Manager as a permanent tool.
;=
;= Inputs: None.
;=
;= Outputs: None.
;=
;= Errors: None.
;=
;= Ext. Refer: None.
;=
;= Entry Points: None.
;=
;================================================================================================
;
ReInstall
;
	lda #0		No data area flag.
	tay
	jsr startCall		Allocate direct page, set <data.
;
;
; --- Allocate a data area.
;

;
; Entry point added	here to cause the toolset to re-install	itself on OSRestart
; This should save me a load of code...
;

	lda #dataSize		Number of bytes to allocate.
	jsr allocateHandNoS1	Allocate memory, anywhere.
	bcc @ok		Unable to allocate memory?
	brl pop0_Err		Strip input, return	error to caller.
;
@ok	sta <dataHand		Store handle to data area.
	stx <dataHand+2
;
	jsr lockDataHand1		<data = (<dataHand)	locked, <saveDataAttr = saved attr.
;
;
; --- Initialize data area.
;
	ldy #dataSize-2		Offset to last word	in appList.
	lda #$FFFF		Set last spot in appList to 'end of array'.
	sta [<data],y
;
	inc a		A = 0.
	dey		Clear remainder of data area.
	dey
@lop1	sta [<data],y
	dey
	dey
	bpl @lop1
;
	ldy #dataInitSize-2		Initialize static area.
@lop2	tyx
	lda staticData,x
	sta [<data],y
	dey
	dey
	bpl @lop2
;
; --- Install Resource Manager as a permanent tool.
;
	pea 0		System tool.
	pea ResToolNum		Resource Manager tool number.
	pea ResToolTable>>16	Pass pointer to tool function table.
	pea ResToolTable
	_SetTSPtr		Install Resource Manager with Tool Locator.
;
	_SetDefaultTPT		Make Resource Manager a permanent tool.
;
;
; --- Set work area	pointer.
;
	pea 0		Pass 'system tool' flag.
	pea ResToolNum		Pass Resource Manager's tool number.
	pei <dataHand+2		Pass handle of data	area.
	pei <dataHand
	_SetWAP		;Set Resource Manager's work area pointer.
;
;
	jsr pushAddQBlock		Install OS event handler.
	pea AddOSQueue
	jsl GS_OS
;
;
; --- Open the system resource file.
;
***	jsr openSystemFile		;try moving below (11-Feb-91 DAL)
;
; --- Log in Resource Manager as an application.
;
*** @skip1 (label was unused, 11-Feb-91 DAL)

	pea $401E		Pass Resource Manager's user ID.
	_ResourceStartup

*** added 11-Feb-91 DAL -- this should allow Sys.Resources stuff to preload correctly
	jsr openSystemFile
	pea 1
	_SetCurResourceFile
*** end of 11-Feb-91 DAL
;
;
; --- Exit.
;
	brl pop0_NoErr		Fix stack, return no error, exit tool.
;
;
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
; GS/OS event handler routine.
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
;
toP8	equ $0002
toGSOS	equ $0004
osShutdown	equ $0020
;
; !!!! This handler	makes the Resource Manager not ROMABLE (thanks for the design) !!!!!
;
OSEvent	dc.l 0		Link to next handler.
	dc.w 0		Reserved.
	dc.w $A55A		Signature.
	dc.l toP8+toGSOS+osShutdown	Take switch to P8, GS/OS and shutdown.
@osEventIn	dc.l 0		Spot OS event is stored.
;
;
	jsl @fakeToolCall		Make event call look like tool call.
	rtl
;
@fakeToolCall
;
@cont01

	pha		Space for result
	pha
	pea 0		System tool.
	pea ResToolNum		Pass Resource Manager's tool number.
	_GetWAP
	pla		Pass handle of data area.
	ply
@Cont05
	jsr startCall
;
;
; --- Switching to P8 or shutdown.
;
	lda |@osEventIn
***	and #toP8+osShutdown
	and #toP8	;8-Mar-91 DAL: don't shut down on OSShutDown, only on P8 switch!
	beq @next1
;
; ------ Close system file.
;
	ldy #sysFile+1		Is there a system file?
	lda [<data],y
	beq @skip1		If not, already closed.
;
	pea sysFileID		Pass ID of system file.
	_CloseResourceFile
;
;
; -- Now that the system resource file is closed, we will shut down the resource manager
; so that its application entry is properly removed from the list
;
; --- Get rid of the system converter list.  Nobody should be logged in there and
; --- the handle position is causing some low memory problems. 6/7/89.
;
@skip1	ldy #sysConvertList+1	Is there a converter list?
	lda [<data],y
	beq @skip2
;
	iny
	lda [<data],y
	pha
	dey
	dey
	lda [<data],y
	pha
	_DisposeHandle
;
	ldy #sysConvertList+1	No more handle.
	lda #0
	sta [<data],y
;
;
; --- Shutdown.
;
@skip2	lda |@osEventIn
	and #osShutdown
	beq @exit
;
	lda #0		Common need.
	pha		Pass 'system tool' flag.
	pea ResToolNum		Pass Resource Manager's tool number.
	pha		Pass NIL data area.
	pha
	_SetWAP
;
	pei <dataHand+2		Free data area.
	pei <dataHand
	_DisposeHandle
;
	stz <dataHand+1		No more data area.
	bra @exit
;
;
; --- Switching back to GS/OS.
;
@next1	lda |@osEventIn
	and #toGSOS
	beq @exit
;
; 1/25/90 Mensch
;
; Fixed a bug that was causing the system resource file to not show up as part of the 
; resource managers	open file list after a restart. The fix	works by resetting the curApp
; to the resource manager (first entry in the app list) and	then setting that entries appFlag
; to be zero, thus unlogging the resource manager. This will allow us to call resourceStartup
; again and re-log the resource manager. (which also fixes its file list)
;
	ldy #curApp		Resource Manager always has first record.
	lda #appList		so set the curApp to point to it
	sta [<data],y
	tay		next zero out the "ID" field of the first app
	lda #0		so that ResourceStartup will work
	sta [<data],y

***	jsr openSystemFile		Try to open system resource file.
	pea $401E
	_ResourceStartup		and re-login the resource manager into the list

*** added 11-Feb-91 DAL
	jsr openSystemFile
	pea 1
	_SetCurResourceFile
*** end of 11-Feb-91 addition

@exit	brl pop0_NoErr

;---------------------------------
; Open system file.
;---------------------------------

openSystemFile

*** old ;
*** old ; ----- The	getting and setting	of levels is only documented enough to say to do this, way we
*** old ; ----- do this no one knows.  Myself, I'm not fond of this type of procedure.  It does have
*** old ; ----- something to do with opening a system file.
*** old ;
*** old ;
*** old   jsr pushGetLevelBlock
*** old   pea GetLevel
*** old   jsl GS_OS
*** old ;
*** old   lda #0
*** old   ldy #setLevelBlock+setLevelCurrent
*** old   sta [<data],y
*** old   jsr pushSetLevelBlock
*** old   pea SetLevel
*** old   jsl GS_OS
*** old ;
*** old ; -------------------------------------- End of unknown crap (for now).
*** old ;

	pha		Space for result.
	pea 1		Pass read only access.
	lda #0		Pass NIL for address of map in memory.
	pha
	pha
	pha		Pass NIL pointer to pathname.
	pha
	_OpenResourceFile
	pla
	bcc @skip1		File opened?
;
	ldy #sysFile+2		Zero system map handle area if not opened.
	lda #0
	sta [<data],y
	dey
	dey
	sta [<data],y
@skip1
;
;  [<data],sysFile = handle of system file map, NIL if none.
;  ID of system file is 1.
;
;


*** DAL 20-Dec-90: We're doing the Level stuff for *all* files now.
*** old ; ----- Now	putting undocumented stuff back.  Don't worry why, just do it documentation.
*** old ;
*** old   ldy #getLevelBlock+getLevelCurrent
*** old   lda [<data],y
*** old   ldy #setLevelBlock+setLevelCurrent
*** old   sta [<data],y
*** old   jsr pushSetLevelBlock
*** old   pea SetLevel
*** old   jsl GS_OS


	rts
;
;
	EJECT
;================================================================================================
;=
;= Description: Resource Manager Tool Pointer Table
;=
;= Inputs: None.
;=
;= Outputs: None.
;=
;= Errors: None.
;=
;= Ext. Refer: None.
;=
;= Entry Points: None.
;=
;================================================================================================
;
ResToolTable	dc.l (@endTable-ResToolTable)/4
	dc.l BootInit-1		$01xx
	dc.l ResourceStartup-1	$02xx
	dc.l ResourceShutdown-1	$03xx
	dc.l ResourceVersion-1	$04xx
	dc.l ResourceReset-1	$05xx
	dc.l ResourceStatus-1	$06xx
	dc.l Reserved-1		$07xx
	dc.l Reserved-1		$08xx
	dc.l CreateResourceFile-1	$09xx
	dc.l OpenResourceFile-1	$0Axx
	dc.l CloseResourceFile-1	$0Bxx
	dc.l AddResource-1		$0Cxx
	dc.l UpdateResourceFile-1	$0Dxx
	dc.l LoadResource-1		$0Exx
	dc.l RemoveResource-1	$0Fxx
	dc.l MarkResourceChange-1	$10xx

	dc.l SetCurResourceFile-1	$11xx
	dc.l GetCurResourceFile-1	$12xx
	dc.l SetCurResourceApp-1	$13xx
	dc.l GetCurResourceApp-1	$14xx
	dc.l HomeResourceFile-1	$15xx
	dc.l WriteResource-1	$16xx
	dc.l ReleaseResource-1	$17xx
	dc.l DetachResource-1	$18xx
	dc.l UniqueResourceID-1	$19xx
	dc.l SetResourceID-1	$1Axx
	dc.l GetResourceAttr-1	$1Bxx
	dc.l SetResourceAttr-1	$1Cxx
	dc.l GetResourceSize-1	$1Dxx
	dc.l MatchResourceHandle-1	$1Exx
	dc.l GetOpenFileRefNum-1	$1Fxx
	dc.l CountTypes-1		$20xx
	dc.l GetIndType-1		$21xx
	dc.l CountResources-1	$22xx
	dc.l GetIndResource-1	$23xx
	dc.l SetResourceLoad-1	$24xx
	dc.l SetResourceFileDepth-1	$25xx
	dc.l GetMapHandle-1		$26xx
	dc.l LoadAbsResource-1	$27xx
	dc.l ResourceConverter-1	$28xx
*** 6.0
	dc.l LoadResource2-1	$29xx 19-Jan-91 DAL
	dc.l RMFindNamedResource-1	$2Axx 10-Mar-91 DAL
	dc.l RMGetResourceName-1	$2Bxx 10-Mar-91 DAL
	dc.l RMLoadNamedResource-1	$2Cxx 10-Mar-91 DAL
	dc.l RMSetResourceName-1	$2Dxx 10-Mar-91 DAL
*** 6.0.1
	dc.l OpenResourceFileByID-1	$2Exx 14-Jul-92 DAL
	
	IF  JimsExperiment		THEN
	dc.l CompactResourceFile-1	$2Fxx 11-Jan-93 JCM
	ENDIF
	
	IF  deBug		THEN
	dc.l ResourceShowGSOS-1	$30xx 
	ENDIF
;
@endTable
;
;
	EJECT
;================================================================================================
;=
;= Description: Register application with Resource Manager.
;=
;= Inputs: PUSH:WORD - Application's user ID.
;=
;= Outputs: None.
;=
;= Errors: Carry set if error, a = error code:
;=  memErr Out of memory.
;=
;= Ext. Refer: None.
;=
;= Entry Points: None.
;=
;================================================================================================
;
ResourceStartup

@userID	equ inputs		Input parameter.

*** 13-May-91 DAL -- return resDupStartUp if this ID has already started us
	pha
	phy	;save YA for startCall
	pha	;space for old resource app
	_GetCurResourceApp

	lda 7+6,s
	pha
	_SetCurResourceApp
	bcs @notDuplicate
* oops, it's already started up!
	_SetCurResourceApp	;restore old resource app
	ply
	pla	;balance the stack
	ldx #resDupStartUp
	ldy #2	;strip 2 bytes
	jml $e10184	;ToStrip
	
@notDuplicate	ply	;discard old (still current) res app
	ply	;restore YA for startCall
	pla
*** end of 13-May-91 DAL

	jsr startCall		Allocate direct page, set <data.
;
; --- Find an available spot in the application list.
;
	ldy #appList		Start with first.
@lop1	lda [<data],y		Check appFlag field.
	bmi @expandList		End of list?
	beq @gotit		Available?
	tya
	clc
	adc #appRecSize		Compute index to next application record.
	tay
	bra @lop1
;
;
; ------ Application list is full, expand it.
;
@expandList	ldy #handAttr		Unlock data area for resize.
	lda [<dataHand],y
	and #$7FFF
	sta [<dataHand],y
;
	pha		Space for result.
	pha
	pei <dataHand+2		Pass handle to data	area.
	pei <dataHand
	_GetHandleSize
	pla		Save current size.
	sta <work
;     Size never greater than 64k.
;
	clc
	adc #appRecSize*10		Enough room for 10 more apps.
	pha
	pei <dataHand+2		Pass handle to data	area.
	pei <dataHand
	_SetHandleSize
	bcc @ok1
	tay		Pass error code in Y.
	brl pop2_Err		Return to caller.
;
@ok1	jsr lockDataHand		Relock data handle and dereference.
;
	ldy <work		Initialize new part	of appList.
	ldx #((appRecSize*10)/2)-1	Number of words to write.
	lda #0		New records are available.
@lop3	sta [<data],y
	iny
	iny
	dex
	bne @lop3
	dec a		Mark last word as end of list.
	sta [<data],y
;
	ldy <work		First new spot is available.
	dey		Back over old end mark.
	dey
;
;
; --- Spot in application list found, initialize it.
;
; y = index to application record in application list.
;
@gotit	sty <work		Save index to application record.
;
	lda #1		Mark spot as used in appFlag field.
	sta [<data],y
;
	iny		Store user ID in record in appID field.
	iny
	lda <@userID
	sta [<data],y
;
	iny
	iny
	jsr moveSysFile		Move sysFile into appFiles field.
;
	iny
	iny
	iny
	iny
	jsr moveSysFile		Move sysFile into appCur field.
;
	iny
	iny
	iny
	iny
	lda #0		Mark no converter routines.
	sta [<data],y
	iny
	iny
	sta [<data],y
;
;
;
; --- Application is made the current application.
;
	ldy #curApp		Store the offset to	the current app record
	lda <work		in the app list.
	sta [<data],y
;
	lda #1		Set read flags to on.
	jsr setReadFlag
;
	lda #$FFFF		Set file depth to all.
	jsr setFileDepth
;
	brl pop2_NoErr		Fix stack, return no error, exit tool.
;
;
	EJECT
;================================================================================================
;=
;= Description: Remove current application from application	list.
;=
;= Inputs: None.
;=
;= Outputs: None.
;=
;= Errors: None.
;=
;= Ext. Refer: None.
;=
;= Entry Points: None.
;=
;================================================================================================
; 
ResourceShutdown

*** added 26-Feb-91 DAL: return an error if they try to shut down $401E
	phy
	pha

	pea 0
	_GetCurResourceApp
	pla
	cmp #$401E
	bne @noProblem

	plx
	plx	;throw away saved AY value
	lda #resInvalidShutDown
	sec
	rtl

@noProblem	pla
	ply
*** end of 26-Feb-91 DAL

	jsr startCall		Allocate direct page, set <data.
;
;
; --- Kill all maps	from current application.
;
	pea 0		Close all resource files the application opened.
	_CloseResourceFile
;
;
; --- Free all system resources loaded by app.
;
	ldy #curApp		Get user ID of app shutting down.
	lda [<data],y
	clc
	adc #appID
	tay
	lda [<data],y
	sta <work
;
	ldy #sysFile+2		Get handle of system file map.
	lda [<data],y
	tax
	dey
	dey
	lda [<data],y
	jsr newMap		Lock and dereference map
	bcs @skip1		No system file?
;
	lda #freeAppRes		Pass routine to call.
	jsr walkResources
	jsr unlockMap		Leave system map unlocked.
;
;
; --- Remove application from application list.
;
@skip1	ldy #curApp		Get offset to current application record.
	lda [<data],y
	tay
	lda #0		Make this app record available.
	sta [<data],y
;
;
; --- Free application's resource converter list.
;
	tya		Check if application has a converter list.
	clc
	adc #appConverters+1
	tay
	lda [<data],y
	beq @done1
;
	iny		Free converter list.
	lda [<data],y
	pha
	dey
	dey
	lda [<data],y
	pha
	_DisposeHandle
@done1
;
;
; --- Make the Resource Manager the current application.
;
	ldy #curApp		Resource Manager always has first record.
	lda #appList
	sta [<data],y
;
	brl pop0_NoErr		Fix stack, return no error, exit tool.
;
;
	EJECT 30
;================================================================================================
; Free allocated resource.
;================================================================================================
;
;   IN: <resPtr = pointer to resource reference in index.
; <work = user ID of App.
;
;  OUT: If resHandle field is TRUE and owned by App then handle freed, resHandle field set to NIL.
;
freeAppRes
;
@owner	equ work
@resHand	equ @owner+2
@resPtr	equ @resHand+4
;
	ldy #resHandle+1		Is resource allocated?
	lda [<resPtr],y
	beq @exit
;
	sta <@resHand+1		Get handle of resource.
	dey
	lda [<resPtr],y
	sta <@resHand
;
	ldy #handOwner		Is this resource owned by the App?
	lda [<@resHand],y
	cmp <@owner
	bne @exit
;
	brl freeRes		Free the App's resource.
;
@exit	clc		;Continue flag to walkResources.
	rts
;
;
	EJECT 30
;================================================================================================
;=
;= Description: Return Resource Manager	external version number.  See ResourceStatus for 
;=  internal version number.
;=
;= Inputs: PUSH:WORD - space for result.
;=
;= Outputs: WORD on	stack - external version number of Resource Manager.
;=
;= Errors: None.  Carry clear, a = zero.
;=
;= Ext. Refer: None.
;=
;= Entry Points: None.
;=
;================================================================================================
;
ResourceVersion
;
@result	equ inputs		Index to input parameter.
;
;
	jsr startCall		Allocate direct page, set <data.
;
	lda #Version		Return external version number of Resource Manager.
	sta <@result		Return result to caller.
;
	brl pop0_NoErr		Fix stack, return no error, exit tool.
;
	EJECT 25
;================================================================================================
;=
;= Description: Resource Manager Reset Call and undefined calls.
;=
;= Inputs: None.
;=
;= Outputs: None.
;=
;= Errors: None.  Carry clear, a = zero.
;=
;= Ext. Refer: None.
;=
;= Entry Points: None.
;=
;================================================================================================
; 
BootInit
ResourceReset
Reserved	lda #0		;No error code.
	clc		;No error flag.
	rtl		;Exit tool.
;
	EJECT 35
;================================================================================================
;=
;= Description: Return Resource Manager's status, TRUE if InitResources called.  A TRUE status 
;=  is an internal version number that is incremented each release.
;=
;= Inputs: PUSH:WORD - space for result.
;=  y/a = work area	pointer, NIL if InitResources has not been called.
;=
;= Outputs: WORD on	stack - TRUE if Resource Manager is active, FALSE if not.
;=
;= Errors: None. Carry clear, a = zero.
;=
;= Ext. Refer: None.
;=
;= Entry Points: None.
;=
;================================================================================================
; 
ResourceStatus
;
@ret1	equ 1
@ret2	equ @ret1+3
@result	equ @ret2+3
;
	lda #5		If call could be made, I'm active.
	sta @result,s		Return result to caller.
;
	lda #0		Return NIL error code.
	clc		Return no error flag.
	rtl
;
	EJECT
;================================================================================================
;=
;= Description: Create a resource fork in a file.
;=
;=   If the file doesn't exist:
;=    File is created with an empty data fork.
;=    Resource fork	is initialized with	no resources.
;=   If the file exist and has an empty	resource fork:
;=    Resource fork	is initialized with	no resources.
;=   If the file exist and has data in its resource fork:
;=    Returns resForkUsed error.
;=
;= Inputs: PUSH:LONG - (applied only if	file doesn't exist) aux type to use to create the file.
;=  PUSH:WORD - (applied only if file doesn't exist) filetype to use to create the file.
;=  PUSH:WORD - (applied only if file doesn't exist) access the new file should have:
;=     bit 7 = 1 to	enable file deletion.
;=     bit 6 = 1 to	enable file renaming.
;=     bit 5 = 1 to	mark as needing backup.
;=     bit 2 = 1 to	mark file as invisible.
;=     All other bits must be 0, the file will always
;=     be read/write enabled.
;=  PUSH:LONG - Pointer to GS/OS class 1 input file pathname.
;=
;= Outputs: None.
;=
;= Errors: Carry set if error, a = error code:
;=   GS/OS file errors.
;=   resForkUsed - resource fork already used.
;= Ext. Refer: None.
;=
;= Entry Points: None.
;=
;================================================================================================
; 
CreateResourceFile
;
@pathname	equ inputs
@fileAccess	equ @pathname+4
@fileType	equ @fileAccess+2
@auxType	equ @fileType+2
;
;
	jsr startCall		Allocate direct page, set <data.
;
;
; --- Initialize create file parameters.
;
	lda <@fileAccess		Make sure file is read/write enabled.
	ora #3
	sta <@fileAccess
;
	ldx #(creAuxType+2)-crePathname
	ldy #createBlock+creAuxType+2
@lop1	lda <@pathname,x
	sta [<data],y
	dey
	dey
	dex
	dex
	bpl @lop1
;
	ldy #openBlock+openRequestAcc	Open file with its given access.
	lda #0
	sta [<data],y
;
;
; --- Try to open the file's resource fork.
;
@openLoop	jsr openResFork		<inputs = pathname pointer.
	bcc @alreadyExist
	cpy #GSOS_FileNotFound	Does the file exist?
	beq @createIt
	cpy #GSOS_resNotFound
	bne @errorExit		If it does, some other error. y = GS/OS	error.
;
;
; ------ Add a resource fork to an existing file.
;
	stz <@fileAccess		;4-Apr-91 DAL
	stz <@fileType		;4-Apr-91 DAL
	stz <@auxType		;4-Apr-91 DAL
	stz <@auxType+2		;4-Apr-91 DAL

	ldy #createBlock+creStorageType
	lda #$8005
	sta [<data],y		Set flag to add resource fork.
;
	jsr pushCreateBlock		Pass pointer to create file parameter block.
	pea CREATE		Pass call number.
	jsl GS_OS		Create a file.
	tay		Return possible GS/OS error in Y.
@toErrorExit	bcs @errorExit
	bra @openLoop		Try to open the file again, should work.
;
;
; ------ Create the	file because it doesn't exist.
;
@createIt	ldy #createBlock+creStorageType
	lda #$0005
	sta [<data],y		Set flag to create file with resource fork.
;
	jsr pushCreateBlock		Pass pointer to create file parameter block.
	pea CREATE		Pass call number.
	jsl GS_OS		Create a file.
	tay		Return possible GS/OS error in Y.
	bcs @errorExit
	bra @openLoop		Try to open the file again, should work.
;
;
; --- The open resource fork must be empty to be initiailized.
;
@alreadyExist	ldy #openBlock+openResEOF	Is the resource fork empty?
	lda [<data],y
	iny
	iny
	ora [<data],y
	beq @initFork		If empty, initialize it.
;
	lda #resForkUsed		Return error, fork is used.
	bra @errorOut
;
;
; --- Initialize the resource to having	no resources.
;
@initFork	pea templateSize>>16	Pass size to write.
	pea templateSize
	pea @resFileTemplate>>16	Pass pointer to data to write.
	pea @resFileTemplate
	ldy #openBlock+openRefNum	Pass open file reference number to write.
	lda [<data],y
	jsr fileWrite1		Write template to file.
;
;
; --- Close the file.
;
@errorOut	pha		Save possible error code.
	ldy #openBlock+openRefNum	Pass open file reference number to close.
	lda [<data],y
	jsr closeResFork
	plx		Get possible error.
	tay		Return possible close error in Y.
	bcs @errorExit
	txy		Return possible write error in Y.
;
@errorExit	brl pop12_Err		Fix stack, return any error, exit tool.
;
	EJECT 60
;
; --- Resource file	template with no resources.
;
@resFileTemplate	dc.l FileFormatVersion	rFileVer - file format version.
	dc.l @map-@resFileTemplate	rFileToMap - offset	to map.
	dc.l @endMap-@map		rFileMapSize - size	of map.
	dcb.b 128,0		rFileMemo - app reserved.
;
@map	dc.l 0		mapNext - space for	next handle.
;;;	dc.w 0		mapFlag - 0=app, 1=system. - never supported/removed 12-Jan-93 JCM
	dc.w 0		mapFlag - in-memory flags
	dc.l @map-@resFileTemplate	mapOffset - map's file position.
	dc.l @endMap-@map		mapSize - size of map in file.
	dc.w @index-@map		mapToIndex - offset	to index.
	dc.w 0		mapFileNum - space for open ref num.
	dc.w 0		mapID
	dc.l 10		mapIndexSize - number of index spots.
	dc.l 0		mapIndexUsed - number of resources.
	dc.w 10		mapFreeListSize - total records.
	dc.w 1		mapFreeListUsed - used records.
;      mapFreeList:
; List of free blocks:
;
	dc.l templateSize		blkOffset - offset to block.
	dc.l $FFFFFFFF-(templateSize)	blkSize - size of block.
;
	dcb.b 9*blkRecSize,0	9 unused blocks.
	dc.l 0		End of blocks.
;
; Resource Index:
;
@index	dcb.b 10*resRecSize,0	10 unused index references.
	dc.w 0		End of references mark.
@endMap
templateSize	equ @endMap-@resFileTemplate	Size of empty resource file.
;
	EJECT
;================================================================================================
;=
;= Description: Open a resource fork in	a file.
;=
;= Inputs: PUSH:WORD - space for result.
;=  PUSH:WORD - requested file access (bits 0-1 to GS/OS Open, bit 15 = don't preload)
;=  PUSH:LONG - address of map in memory, NIL if map on disk.
;=               (ACTUALLY, it's the address of a resource fork image in memory.  6-Nov-91 DAL)
;=  PUSH:LONG - Pointer to GS/OS class 1 input file pathname, NIL for system file.
;=
;= Outputs: WORD on	stack - open file reference number.
;=
;= Errors: Carry set if error, a = error code:
;=   GS/OS file errors.
;=   Memory Manager	errors.
;=   resBadFormat -	resource fork format is unknown.
;=   resNoUniqueID - too many open resource files ($0FFF limit).
;=   resSysIsOpen -	system file is already open.
;= Ext. Refer: None.
;=
;= Entry Points: None.
;=
;================================================================================================
;
OpenResourceFile
;
@pathname	equ inputs		Stack offsets.
@address	equ @pathname+4
@accessRequest	equ @address+4
@result	equ @accessRequest+2
;
@hash	equ work		Local direct page use.
@passSizeToRead	equ @hash+4
@openNum	equ @passSizeToRead+4
@fileHeader	equ @openNum+2
@temp	equ @fileHeader+rFileMemo
@localSize	equ @temp+4
	IF  (@localSize>maxLocal)	THEN
	AERROR 'DEBUG ERROR - local direct page overflow'
	ENDIF
;
;
	jsr startCall		Allocate direct page, set <data.
;
;
; --- Set open access request.
;
	ldy #openBlock+openRequestAcc	Open file as requested.
	lda <@accessRequest
	and #3		;only bits 0-1 are passed to GS/OS (25-Mar-91 DAL)
	sta [<data],y
;
;
; --- Check if opening system file.
;
	lda <@pathname		Load system file?
	ora <@pathname+2
	bne @ok8
;
	ldy #sysFile+1		There can't already be a system file.
	lda [<data],y
	beq @ok10
	ldy #resSysIsOpen		Return error that sys file already open.
	brl pop10_Err		Strip input parameters and exit.
;
@ok10	iny		Set flag to show system file being opened.
	dec a
	sta [<data],y
;
	lda #@sysFilename		Set pointer to system file pathname.
	sta <@pathname
	lda #@sysFilename>>16
	sta <@pathname+2
;
	lda #sysFileID		Use absolute system	file ID.
	bra @store1
;
;
; --- Opening non-system resource file.
;
; --- Find ID for map.
;
@ok8	lda #hashIDTable		Push address of hash table.
	jsr pushDataArea
	pla		Keep handy pointer to hash table.
	sta <@hash
	pla
	sta <@hash+2
;
	ldy #hashSize-2		Clear hash table.
	lda #0
@lop1	sta [<@hash],y
	dey
	dey
	bpl @lop1
;
;
	lda #@findMapID		Pass routine to call.
	jsr walkAllFiles
;
;
	ldy #hashSize-2		Find any ID not used.
@lop2	lda [<@hash],y
	cmp #$FFFF
	bne @ok3
	inc a		Clear table while I'm here.
	sta [<@hash],y
	dey
	dey
	bpl @lop2
;
	ldy #resNoUniqueID		Return error code, all file IDs are used.
@errorExit3	brl pop10_Err		Strip input parameters and exit.
;
;
@ok3	pha		Save hashed word.
;
	tya		Convert index into bits 7-11.
	asl a
	asl a
	asl a
	sta <@result
;
	ldx #15		;Bit counter.
	pla		;Get hashed word.
	xba		;Convert two hashed bytes into a word.
@lop4	lsr a		;Look for zero bit.
	bcc @ok5
	dex
	bra @lop4		Has to be a zero bit!
;
@ok5	txa		Convert bit index into bits 0-3 of ID.
	ora <@result		and bits 7-11 to get bits 0-15.
	bne @store1
	inc a		NIL is not valid.
@store1	sta <@result
;
;
; --- Load map from	memory.
;
	lda <@address		Is the map in memory?
	ora <@address+2
	beq @ok7
;
	lda [<@address]		Correct format version number?
	cmp #FileFormatVersion
	bne @formatError
	ldy #rFileVer+2
	lda [<@address],y
	bne @formatError
;

	ldy #rFileMapSize+2		Pass number of bytes to allocate
	lda [<@address],y
	tax
	dey
	dey
	lda [<@address],y
	jsr allocateHand2		Allocate memory for	map.
	bcc @ok6		Error allocating memory?
	brl pop10_Err
@ok6	jsr newMap		Lock and dereference <mapHand.  <mapPtr	= pointer.
;
	lda <@address		Pass source pointer.
	ldy #rFileToMap
	clc
	adc [<@address],y
	tax
	lda <@address+2
	iny
	iny
	adc [<@address],y
	pha
	phx
	pei <mapPtr+2		Pass destination pointer.
	pei <mapPtr
	ldy #rFileMapSize+2		Pass number of bytes to move.
	lda [<@address],y
	pha
	dey
	dey
	lda [<@address],y
	pha
	_MyBlockMove
;
	stz <@openNum		No open file reference number.
	brl @linkMap
;
;
; --- Try to open the file's resource fork.
;
@ok7	jsr openResFork		<inputs = pathname pointer.
	sta <@openNum		Return file ID.
	bcc @ok1		Fork opened OK?
	tay		Error code in Y.
	brl @errorExit		Return error.
;
;
; --- Read file's header.
;
@ok1	ldy #readBlock+readRefNum	Pass open file reference number to read.
	sta [<data],y
;
	lda #rFileMemo		Pass number of bytes to read.
	sta <@passSizeToRead	(Up to rFileMemo).
	stz <@passSizeToRead+2
;
	lda #@fileHeader		Pass direct page offset.
	jsr pushDpage		Compute address of fileHeader space.
	pla		Pass address of read buffer.
	plx
	jsr fileRead1		Read file header.
	bcs @errorExit1		Error reading?
;
;
; --- Verify resource fork format.
;
	lda <@fileHeader+rFileVer	Correct format version number?
	cmp #FileFormatVersion
	bne @formatError
	lda <@fileHeader+rFileVer+2
	beq @ok2
;
@formatError	lda #resBadFormat		Return error code.
	bra @errorExit1
;
;
; --- Allocate memory for map.
;
@ok2	lda <@fileHeader+FILEMAPSIZE	!!! Pass number if bytes to allocate.
	ldx <@fileHeader+FILEMAPSIZE+2	!!!
	jsr allocateHand2
	bcc @ok4		Error allocating memory?
	tya
	bra @errorExit1
@ok4	jsr newMap		Lock and dereference <mapHand.  <mapPtr	= pointer.
;
;
; --- Read map into	memory.
;
	lda <@fileHeader+rFileToMap	Pass file position.
	ldx <@fileHeader+rFileToMap+2
	ldy <@openNum		Pass open file reference number.
	jsr setFileMark1		Set file mark to start of map.
	bcs @errorExit2		GS/OS error?
;
	lda <@fileHeader+FILEMAPSIZE	Pass number of bytes to read.
	sta <work+4
	lda <@fileHeader+FILEMAPSIZE+2
	sta <work+6
	lda <mapPtr		Pass pointer to read buffer.
	ldx <mapPtr+2
	jsr fileRead1		Read map.

*** 12-Jan-93 JCM - Do an extra check to see if we actually read the entire map. This would only be
***                 a problem if we were passed a file that's been damaged (the EOF is too small).

;	bcc @linkMap		Error reading?
	bcs @errorExit2

	ldy #readBlock+readTransfer	;low word of transferCount
	lda [<data],y
	cmp <work+4		;low word of requestCount
	bne @errorExit4
	
	iny
	iny
	lda [<data],y
	cmp <work+6
	beq @linkMap


@errorExit4	lda #eofEncountered		;fake an error, but that's what really happened

*** end 12-Jan-93 JCM
;
;
; ------ Error handler area, undo what's been done so far and exit.
;
@errorExit2	pha		Save error code.
	jsr disposeMapHand		Free <mapHand.
	pla		Restore error code.
;
@errorExit1	pha		Save error code.
;
	lda <@openNum		Close open resource	fork.
	jsr closeResFork
;
	ply		Return error code.
@errorExit	brl pop10_Err
;
;
; --- Link map to application's files list.
;
@linkMap	ldy #sysFile+2		Opening system file?
	lda [<data],y
	bpl @ok9
;
*** 25-Jul-91 DAL -- zero out system file's mapNext field, in case it isn't NIL on disk!
	lda #0
	ldy #mapNext+2
	sta [<mapPtr],y
	sta [<mapPtr]		;mapNext is 0
*** end 25-Jul-91 DAL

	ldy #sysFile+2		;Store map's handle in global data area.
	lda <mapHand+2
	sta [<data],y
	dey
	dey
	lda <mapHand
	sta [<data],y
;
	lda #1		Add system file to end of every app's file list.
	jsr sysFileChange
	bra @skip1
;
;
@ok9	jsr getFirstMap		x/a = handle first map, y = appFiles.
	sta [<mapPtr]		Link first after new.
;
	lda <mapHand		Set new first map.
	sta [<data],y
	iny
	iny
	lda <mapHand+2
	sta [<data],y
;
	ldy #mapNext+2		Finish linking first to new.
	txa
	sta [<mapPtr],y
;
;
; --- Set current map to new map.
;
	jsr getCurMapHand		Compute index to current map.
	lda <mapHand		Store new map as current.
	sta [<data],y
	iny
	iny
	lda <mapHand+2
	sta [<data],y
;
;
; --- Initialize map's state to just loaded condition.
;
@skip1
*** added 7-Nov-91 DAL -- if caller passed a res file pointer, keep their map's mapFileNum
	lda <@address+1
	bne @keepRefnum
*** end 7-Nov-91
	lda <@openNum		Store open file open reference number in map.
	ldy #mapFileNum
	sta [<mapPtr],y
@keepRefnum
	lda <@result		Set ID.
	ldy #mapID
	sta [<mapPtr],y

	jsr markCleanMap		Set mapChanged bit to 'not changed'.

*** 12-Jan-93 JCM - This sets a newly defined bit in this file's header mapFlag which indicates
***	the read/write status of the file. If the bit is set, then the file is open
***	for reading and writing. If it is not set, then the file is read-only.
	
@setFileAccess	NAME
	
	pha		;space for access to be returned
	ldy #mapFileNum
	lda [<mapPtr],y
	pha		;the GS/OS refNum for this file
	pea $0002		;pCount
	tsc
	inc a
	pea 0
	pha
	pea $2039		;GetRefInfoGS
	jsl $E100B0
	pla		;pCount is now unneeded
	pla		;refNum is also not needed now
	pla		;access this file is open with
	lsr a		;shift write access to bit 0
	and #fileReadWrite		;this is the only bit we need or want
	pha		;save the new bit for one sec'
	
	ldy #mapFlag
	lda [<mapPtr],y		;make sure the bit is clear before we ORA in our
	and #_fileReadWrite		; access - it could be set on disk
	ora 1,s		;moosh the write access into bit 0 "fileReadWrite"
	sta [<mapPtr],y		;finally save it into the file's map
	pla		;we don't need the access bit any more

*** end 12-Jan-93 JCM

;
;
; --- Load PreLoad resorces.
;
	jsr @preLoadResources
;
	jsr unlockMap		Leave new map unlocked.
	brl pop10_NoErr		Fix stack, return no error, exit tool.
;
	STRING ASIS
@sysFilename	dc.w 35
	dc.b '*:System:System.Setup:Sys.Resources'
;
;
;-----------------------------------------------------
; Preload resources	marked as such.
;-----------------------------------------------------
;
@nextOffset	equ work		Local direct page use.
@lastOffset	equ @nextOffset+4
@resToLoad	equ @lastOffset+4
@localSize110	equ @resToLoad+4
	IF  (@localSize110>maxLocal) THEN
	AERROR 'DEBUG ERROR - local direct page overflow'
	ENDIF
;
;
@preLoadResources	stz <@lastOffset		Start with finding the first.
	stz <@lastOffset+2
;
	lda #@firstPassLoad
	bra @enter110
@lop110	lda #@nextPassLoad
@enter110	jsr @load110
	bne @lop110
	rts
;
;
@load110	stz <@resToLoad+1
;
	ldx #$FFFF
	stx <@nextOffset
	stx <@nextOffset+2
;
	jsr walkResources
	lda <@resToLoad+1
	beq @exit110
;
	jsr lockMap		Lock and dereference <mapHand.
	lda <@resToLoad
	sta <resPtr
	lda <@resToLoad+2
	sta <resPtr+2
;
	pei <@nextOffset+2		Save.
	pei <@nextOffset
;
	lda #$FFFF		Pass maximum size to load.
	tax
	jsr loadRes
;
	pla		Restore at place to start at next.
	sta <@lastOffset
	pla
	sta <@lastOffset+2
;
	lda #1		Set not equal flag.
@exit110	rts
;
;
;///////////////////////////////////////////////////
; Looking for next preLoad on disk.
;///////////////////////////////////////////////////
;
@firstPassLoad	ldy #resAttr		Handle or absolute address in handle field?
	lda [<resPtr],y
	and #resAbsLoad
	bne @nextPassLoad
;
*** added 7-Nov-91 DAL -- if caller passed in a res fork pointer, keep their map's resource handles!
	lda <@address+1
	bne @keepResHandle
*** end 7-Nov-91
	lda #0		Set 'resource not in memory' flag.
	ldy #resHandle
	sta [<resPtr],y
	iny
	iny
	sta [<resPtr],y
@keepResHandle
;
@nextPassLoad	ldy #resAttr
	lda [<resPtr],y
	and #resPreLoad
	beq @exit100
;
*** added 27-Mar-91 DAL -- check the no-preload bit here, not outside, so we can still zero the handles
	lda <@accessRequest
	bmi @exit100
*** end of 27-Mar-91 DAL
;
	ldy #resOffset+2
	lda [<resPtr],y
	tax
	dey
	dey
	lda [<resPtr],y
	cpx <@lastOffset+2
	bcc @exit100		Already loaded?
	bne @ok100
	cmp <@lastOffset
	bcc @exit100		Already loaded?
	beq @exit100
;
@ok100	cpx <@nextOffset+2
	bcc @ok101
	bne @exit100
	cmp <@nextOffset
	bcc @ok101
	bne @exit100
;
@ok101	sta <@nextOffset
	stx <@nextOffset+2
;
	lda <resPtr
	sta <@resToLoad
	lda <resPtr+2
	sta <@resToLoad+2
;
@exit100	clc		Continue.
	rts
;
;
;================================================================================================
; Find new map ID.
;================================================================================================
;
@findMapID	ldy #mapID		Get this map's ID.
	lda [<mapPtr],y
	lsr a		Compute index to byte in hash table.
	lsr a
	lsr a
	pha
	lda [<mapPtr],y		Compute bit index in byte.
	and #$0007
	tax
	ply
	sep #$20
	LONGA OFF
	lda [<@hash],y		Mark this ID as used.
	ora hashMask,x
	sta [<@hash],y
	rep #$20
	LONGA ON
;
@exit200	clc		Continue.
	rts
;
;
	EJECT
;================================================================================================
;=
;= Description: Close a resource fork in a file.
;=
;= Inputs: PUSH:WORD - file ID, NIL to close all files; bit 15 = close even if there's an error
;=
;= Outputs: None.
;=
;= Errors: Carry set if error, a = error code:
;=   UpdateResourceFile errors.
;=   GS/OS file errors.
;= Ext. Refer: None.
;=
;= Entry Points: None.
;=
;================================================================================================
; 
CloseResourceFile
;
@openFileID	equ inputs		Stack offsets.
;
@previousFile	equ work
@fileID	equ @previousFile+4
@temp	equ @fileID+2
@forceFlag	equ @temp+4		;23-Apr-91 DAL
@numClosed	equ @forceFlag+2		;10-Apr-92 DAL
;
	jsr startCall		;Allocate direct page, set <data.

	stz <@numClosed		;10-Apr-92 DAL

*** 23-Apr-91 DAL -- bit 15 of input file number means close file(s) forcibly
	stz <@forceFlag
	lda <@openFileID
	asl a
	ror <@forceFlag
	lsr a
	sta <@openFileID		;stripped off bit 15
*** end 23-Apr-91 DAL
;
	stz <@previousFile+1	Start with no previous file.
;
	lda #@closeFile		Pass address of routine to call.
	jsr walkAllFiles		Call killMap for each map.
	bcs @exit2		Was there an error?
	ldy #0		No error.

*** Added 10-Apr-92 DAL -- If input nonzero & we closed no files, return an error
	lda <@openFileID
	beq @exit2		;CloseResourceFile(0) --> no error
	lda <@numClosed
	bne @exit2		;Closed something --> no error
	ldy #resFileNotFound
*** end 10-Apr-92 DAL

@exit2	brl pop2_Err		Fix stack, return any error, exit tool.
;
;
;--------------------------------------------------------------------------------------------
; Kill application maps and resources in them.  Called from	walkMaps.
;-100----------------------------------------------------------------------------------------
;
;   IN: <mapHand = handle of locked map.
; <mapPtr = pointer	to map.
; <@openFileID = ID	of file to close, NIL if all.
; <@previousFile = handle of previous map.
;
; OUT: Carry clear to continue walking map list.
; Carry set to stop	walking map list, y	= error code.
;
@closeFile	ldy #mapID
	lda [<mapPtr],y
	cmp <@openFileID
	beq @store100
;
	ldx <@openFileID		;Closing all files?
	bne @savePrev
	cmp #sysFileID		;If closing all, don't close sys file.
	bne @store100
;
@savePrev	lda <mapHand		;Save handle for next pass through.
	sta <@previousFile
	lda <mapHand+2
	sta <@previousFile+2
	brl @exit100
;
@store100	sta <@fileID		;ID of file to close.

	inc <@numClosed		;10-Apr-92 DAL

;
; --- Call UpdateResourceFile for file.
;
	pei @fileID
	_UpdateResourceFile
	tay		;Place possible error code in Y.
*** 23-Apr-91 DAL -- if forceFlag is set, ignore any error
	bit @forceFlag
	bpl @noForce
	clc
@noForce
*** end of 23-Apr-91 DAL
	bcs @exit101		Error?
;
	jsr lockMap
;
;
; --- Free allocated resources in map.
;
	lda #freeRes		Pass routine to call for each resource.
	jsr walkResources		Call routine for each resource.
;
;
; --- Unlink map from file list.
;
	lda <@previousFile+1	Is there a previous	handle?
	bne @ok1
;
	ldy #curApp		Offset to current app record,
	lda [<data],y
	clc		plus offset to appFiles field,
	adc #appFiles		is offset to current file list.
	jsr pushDataArea		Compute address of list head.
	pla
	sta <@temp
	pla
	sta <@temp+2
	bra @enter1		Next file now the first file.
;
@ok1	ldy #2		Dereference previous map.
	lda [<@previousFile],y
	sta <@temp+2
	lda [<@previousFile]
	sta <@temp
;
@enter1	lda [<mapPtr]		Unlink.
	sta [<@temp]
	ldy #mapNext+2
	lda [<mapPtr],y
	sta [<@temp],y
	sta <@temp		Save high word.
;
;
; --- Change current map if needed.
;
	jsr getCurMapHand		x/a = handle current map, y = index current map.
	cmp <mapHand		Is the current map being closed?
	bne @skip1
	cpx <mapHand+2
	bne @skip1
;
	lda [<mapPtr]		Next map is now the	current map.
	sta [<data],y
	iny
	iny
	lda <@temp
	sta [<data],y
@skip1
;
;
; --- Free map.
;
	ldy #mapFileNum		Save file's open reference number.
	lda [<mapPtr],y
	pha
;
	jsr disposeMapHand		Free <mapHand.
;
; --- Special case if closing system file.
;
	lda <@fileID		Closing system resource file?
	cmp #sysFileID
	bne @skip100
;
;
; ------ Set global	handle of system file map to NIL.
;
	ldy #sysFile		Mark no system file.
	lda #0
	sta [<data],y
	iny
	iny
	sta [<data],y
;
;
; ------ Remove system file map handle from end of every application's file list.
;
	lda #0		Remove flag.
	jsr sysFileChange
@skip100
;
;
; --- Close file.
;
	pla		Pass open file reference number.
	jsr closeResFork		Close the resource fork.
;
@exit100	clc		Continue down maps.
@exit101	rts
;
;
;------------------------------------------------
; System file opening or closing.
;------------------------------------------------
;
;   IN: a = FALSE to remove, TRUE to add.
;  <mapHand = handle of system file map.
;
sysFileChange
;
@flag	equ work
@temp	equ @flag+2
;
;
	pei <@temp+2		Save.
	pei <@temp
	pei <@flag
;
	sta <@flag
;
;
	ldy #appList+appFlag	Start with first app record.
	bra @enter100
;
@lop100	beq @next100		Available record?  Go to next record then.
;
	phy
	tya
;
	ldy #2		Common need.
;
	ldx <data+2		Compute pointer to first map handle. 
	clc
	adc #appFiles
	adc <data
	bcc @lop101
	inx
@lop101	sta <@temp		Pointer to file's mapNext field.
	stx <@temp+2
;
	lda [<@temp],y		Get handle of next map.
	tax
	lda [<@temp]
	bne @ok101		Are there any more files?
	cpx #0
	beq @next103
;
@ok101	cmp <mapHand		Is the next file the system map?
	bne @next101
	cpx <mapHand+2
	bne @next101
;
	lda <@flag		Unlink system file from app's file list.
	bne @next102		Am I suppose to remove?
	sta [<@temp]
	sta [<@temp],y
	bra @next102
;
@next101	sta <@temp		Handle of next file.
	stx <@temp+2
	lda [<@temp],y		Dereference next file.
	tax
	lda [<@temp]
	bra @lop101
;
@next103	lda <@flag		Am I suppose to add?
	beq @next102
;
	lda <mapHand		Link system file to	end of app's file list.
	sta [<@temp]
	lda <mapHand+2
	sta [<@temp],y
;
@next102	ply
;
@next100	tya		Next app record.
	clc
	adc #appRecSize
	tay
@enter100	lda [<data],y		Get appFlag field.
	bpl @lop100		End of list?
;
	pla		Restore.
	sta <@flag
	pla
	sta <@temp
	pla
	sta <@temp+2
	rts
;
;
	EJECT
;================================================================================================
;=
;= Description: Add	a resource to the current resource file.
;=
;= Inputs: PUSH:LONG - handle of resource in memory.
;=  PUSH:WORD - resource attribute.
;=  PUSH:WORD - resource type.
;=  PUSH:LONG - resource ID.
;=
;= Outputs: None.
;=
;= Errors: Carry set if error, a = error code:
;=   Memory Manager	error.
;=   resNoCurFile -	no current resource	file.
;=   resDupID - resource ID already used.
;=   resDiskFull - Disk is too full to complete operation.
;=
;= Ext. Refer: None.
;=
;= Entry Points: None.
;=
;================================================================================================
; 
AddResource
;
@resIDIn	equ inputs		Stack offsets.
@resTypeIn	equ @resIDIn+4
@resAttrIn	equ @resTypeIn+2
@resHandIn	equ @resAttrIn+2
;
;
	jsr startCall		Allocate direct page, set <data.
;
*** added 13-May-91 DAL -- validate type and ID
	lda <@resTypeIn
	beq @bad
	lda <@resIDIn
	ora <@resIDIn+2
	bne @good
@bad	ldy #resInvalidTypeOrID
	brl pop12_Err
@good
*** end of 13-May-91 DAL

	jsr getCurMap		<mapHand, <mapPtr =	current map, locked.

*** 13-Jan-93 JCM - Make sure that the file can be written to before continuing.

;;;	bcc @ok1		Is there a current map?
	bcc @ok0		;is there a current map?
	
@exitNoAdd	brl pop12_Err

@ok0	jsr isFileWriteable		;can we eventually write to this file?
	bcs @exitNoAdd		; apparently not (returns invalidAccess error)

*** end 13-Jan-93 JCM

@ok1	jsr setFileRefNum		Put file refNum in GS/OS parameter blocks.
	jsr ckFreeRecords		Make sure there are	enough free records	for add.
;
;
; --- Make sure there is at least one available index reference.
;
	ldy #mapIndexUsed		Subtrack number of used records,
	jsr getMapLong		x/a = mapIndexUsed.
	ldy #mapIndexSize		from total number of records.
	jsr subMapLong2
	txy		More than one available?
	bne @ok3
	tay
	bne @ok3
;
;
; ------ Add some reference records to the index.
;
	ldy #mapIndexSize
	jsr getMapLong
	jsr computeResOffset	Compute <resPtr.
	tay		Pass insertion point in x/y.
	lda #resRecSize*20		Pass number of bytes to grow.
	jsr growMap		Resize map, insert zeros.
	bcs @toExit
;
	ldy #mapIndexSize		Increment free list	size.
	lda [<mapPtr],y
	clc
	adc #20		Number of records added.
	sta [<mapPtr],y
;
@ok3
;
;
; !*!*!*!*!*!*   --> Map will not have to grow for reminder	of call. <--   !*!*!*!*!*!*
;
;
; --- Find resource	a proper spot in the index.
;
	ldx <@resIDIn+2		Pass new ID.
	ldy <@resIDIn
	lda <@resTypeIn		Pass new type.
	jsr findResRec		Compute place resource goes (1 file searched).
	ldy #resDupID		Error, ID already used, just in case.
@toExit	bcs @exit		Duplicate ID?
;
;
; --- Allocate file	block for resource.
;
; <resPtr = place to insert resource reference.
;
	ldy #handSize+2		Pass size of resource.
	lda [<@resHandIn],y
	tax
	dey
	dey
	lda [<@resHandIn],y
	sta <work		Save size.
	stx <work+2
	jsr getFileBlock		Allocate file space	for resource.  Marks map dirty.
	phx		Save offset to allocated file block.
	pha
;
;
; --- Insert resource reference in proper spot in the index.
;
	jsr insertIndexRef
;
;
; --- Fix reference	record.
;
	ldy #resAttr
	lda [<resPtr],y
	and #resAbsLoad
	beq @skip1
;
	ldy #2		Dereference handle so pointer will be stored instead
	lda [<@resHandIn],y		of handle.
	tay
	lda [<@resHandIn]
	sta <@resHandIn
	sty <@resHandIn+2
;
@skip1	lda <@resTypeIn		Store type.
	sta [<resPtr]
;
	ldy #resID		Store ID.
	lda <@resIDIn
	ldx <@resIDIn+2
	jsr storeResPtrLong
;
	pla		Store file offset.
	plx
	jsr storeResPtrLong
;
	lda <@resAttrIn		Store attributes.
	ora #resChanged		Mark resource as changed.
	sta [<resPtr],y
	iny
	iny
;
	lda <work		Store size.
	ldx <work+2
	jsr storeResPtrLong
;
	lda <@resHandIn		Store resource handle.
	ldx <@resHandIn+2
	jsr storeResPtrLong
;
;
; --- Fix index reference used records counter.
;
	lda #1		Number to add.
	ldy #mapIndexUsed		Index of field to add to.
	jsr addToMapLong1		Increment mapIndexUsed.
;
;
; --- Write the resource if it pushed the EOF mark.
;
	ldy <writeEOFflag		Did the resource allocate space past EOF?
	beq @exit
;
	pei <@resTypeIn		Pass new type.
	pei <@resIDIn+2		Pass new ID.
	pei <@resIDIn
	_WriteResource
	tay
;
; --- Exit.
;
@exit	phy
	jsr unlockMap
	ply
@exit2	brl pop12_Err
;
	EJECT
;================================================================================================
;=
;= Description: Write all changed resources to their file and write the map also
;  if needed.
;=
;= Inputs: PUSH:WORD - file ID.
;=
;= Outputs: None.
;=
;= Errors: Carry set if error, a = error code:
;=   GS/OS file errors.
;=   resFileNotFound - invaild file ID.
;=   resDiskFull - Disk is too full to complete operation.
;=
;= Ext. Refer: None.
;=
;= Entry Points: None.
;=
;================================================================================================
; 
UpdateResourceFile
;
@openFileID	equ inputs		Stack offsets.
;
	jsr startCall		Allocate direct page, set <data.
;
;
; --- Get current map.
;
	lda <@openFileID		Pass file to find.
	jsr findFileID		Find the map that matches the given file ID.
	bcs @exit2		Not found?
;
;
; --- Update each resource that needs to be.
;
	jsr lockMap
	jsr setFileRefNum
;
@moreFreeRecords	jsr ckFreeRecords		Make sure their are	some available free	block records.
	bcs @exit		Records not available?
;
	stz <work		Start with no error.
	lda #writeRes		Pass routine to write resources.
	jsr walkResources		Call routine for each resource.
;
	ldy <work		Error from write?
	bmi @moreFreeRecords	Does the map need more free records?
	bne @exit
;
;
; --- Write map if needed.
;
	ldy #mapFlag		Has the map changed?
	lda [<mapPtr],y
	ldy #0		No error, just in case.
	and #mapChanged
	beq @exit
;
	jsr writeMap		Write map to disk.
;
@exit	phy
	jsr unlockMap
	ply
@exit2	brl pop2_Err
;
	EJECT


;================================================================================================
;=
;= Description: LoadResource2: Load resource into memory if it isn't already, and return
;=              the previous attributes word of the handle ($ffff if there was no handle
;=              before).  (New call, DAL 19-Jan-91.  Stole LoadResource and added to it.)
;=
;= Inputs: PUSH:LONG - space for result.
;=  PUSH:WORD - flags (currently all bits reserved)
;=  PUSH:LONG - pointer to output buffer
;=  PUSH:WORD - type.
;=  PUSH:LONG - ID.
;=
;= Outputs: LONG - handle of resource in memory, NIL if not	found or loaded.
;=          Buffer is filled in with a status word:
;=	+000: $ffff = resource was not already loaded
;=	      Other values = old handle attributes word
;=
;= Errors: Carry set if error, a = error code:
;=   Memory Manager	errors Returned unchanged.
;=   GS/OS errors   Returned unchanged.
;=   resNotFound    The resource was not found.
;=
;================================================================================================
LoadResource2

@resIDIn	equ inputs		;Stack offsets.
@resTypeIn	equ @resIDIn+4
@resultBuffer	equ @resTypeIn+2		;pointer to result buffer
@flagWord	equ @resultBuffer+4
@result	equ @flagWord+2		;result handle
;
@sizeOfRes	equ work		;!!! @sizeOfRes must = work !!!
@openRefNum	equ @sizeOfRes+4
@localSize	equ @openRefNum+2		;Size of local direct page.
	IF  (@localSize>maxLocal) THEN
	AERROR 'DEBUG ERROR - local direct page overflow'
	ENDIF

	jsr startCall		;Allocate direct page, set <data.

	lda #$ffff
	sta [<@resultBuffer]	;anticipate error (no-handle flag)
;
; --- Find the resource.
;
	jsr findGivenRes1		;Find resource that was given.
	bcs @ok1		;Was the resource found?
	stz <@result		;Return NIL handle.
	stz <@result+2
	bra @exit		;Y = error code, resNotFound.

@ok1
;
; See if the handle already exists.  If it does, return its attributes in the
; result buffer and fix up its Locked status.
;
	ldy #resHandle+1
	lda [<resPtr],y
	beq @noHandle
	iny		;y=#resHandle+2
	phd
	lda [<resPtr],y		;get high word of handle
	pha
	dey
	dey
	lda [<resPtr],y		;get low word of handle
	pha
	tsc
	tcd
	ldy #4		;get the handle's attributes field
	lda [<1],y
	ply
	ply
	pld
	sta [<@resultBuffer]	;return attributes to caller
	jsr FixLockedStatus		;added 21-Jan-91 DAL
@noHandle
;
; --- Load the resource.
;
; <mapHand = handle	of map.
; <resPtr = pointer	to resource.
;
	jsr lockMap		;Lock the map before <resPtr moves.

	lda #$FFFF		;No maximum size.
	tax
	jsr loadRes		;Load the resource
	sta <@result		;Return the handle of the resource.
	stx <@result+2
	phy		;Save error code, Memory and GS/OS errors.
	jsr unlockMap		;Leave map unlocked.
	ply		;Restore error code.
@exit	brl pop12_Err		;Strip input parameters and exit, y = error code.


*****************************************************************
*
* FixLockedStatus
*
* Inputs: resPtr points to the map entry for this resource.
*
* If the handle already exists, check the resource attributes.
* If the locked attribute is set there, but the handle is
* unlocked and has not been purged, we will be helpful and
* re-lock the handle so it won't go away on somebody.
*
FixLockedStatus	ldy #resAttr
	lda [<resPtr],y
	bpl @dontWantToLock	;does the RESOURCE like to be locked?

	ldy #resHandle+1	;check middle word
	lda [<resPtr],y
	beq @noHandle
	phd
	iny
	lda [<resPtr],y
	pha
	dey
	dey
	lda [<resPtr],y
	pha
	tsc
	tcd
	ldy #1	;offset to middle word of the handle's address field
	lda [1],y	;Was the handle purged?
	beq @noChange	;Yes, don't mess with it.
	ldy #4
	lda [1],y
	ora #$8000	;force the handle's Locked bit on
	sta [1],y
@noChange	pla
	pla
	pld
@dontWantToLock
@noHandle	rts

;================================================================================================
;=
;= Description: Load resource into memory if it isn't already.
;=
;= Inputs: PUSH:LONG - space for result.
;=  PUSH:WORD - type.
;=  PUSH:LONG - ID.
;=
;= Outputs: LONG - handle of resource in memory, NIL if not	found or loaded.
;=
;= Errors: Carry set if error, a = error code:
;=   Memory Manager	errors Returned unchanged.
;=   GS/OS errors  Returned unchanged.
;=   resNotFound  The resource was not found.
;=
;= Ext. Refer: None.
;=
;= Entry Points: None.
;=
;================================================================================================
;
LoadResource
;
@resIDIn	equ inputs		;Stack offsets.
@resTypeIn	equ @resIDIn+4
@result	equ @resTypeIn+2
;
@sizeOfRes	equ work		;!!! @sizeOfRes must = work !!!
@openRefNum	equ @sizeOfRes+4
@localSize	equ @openRefNum+2		;Size of local direct page.
	IF  (@localSize>maxLocal) THEN
	AERROR 'DEBUG ERROR - local direct page overflow'
	ENDIF
;
;
	jsr startCall		;Allocate direct page, set <data.

*** added 9-Dec-91 DAL -- see if the ROM 3 Ctl Mgr is calling us to load a Code resource
	lda #-1
	sta >oldSysPrefs

	lda <inputs-2
	cmp #$fd9d
	bne @notCMkludge
	lda <inputs-3
	cmp #$9dcb+3	;$FD/9DCB is the LoadResource call we special case
	bne @notCMKludge

	pha	;space for old sys prefs word
	pea 1	;pcount
	tsc
	inc a
	pea 0
	pha
	pea $200F	;GetSysPrefsGS
	jsl $e100b0
	pla
	pla
	sta >oldSysPrefs

	and #$1fff
	ora #$c000
	pha	;new sys prefs word
	pea 1	;pcount
	tsc
	inc a
	pea 0
	pha
	pea $200C	;SetSysPrefsGS
	jsl $e100b0
	pla
	pla
@notCMkludge
*** end 9-Dec-91
;
;
; --- Find the resource.
;
	jsr findGivenRes1		;Find resource that was given.
	bcs @ok1		;Was the resource found?
	stz <@result		;Return NIL handle.
	stz <@result+2
	bra @exit		;Y = error code, resNotFound.
;
@ok1	jsr FixLockedStatus		;added 21-Jan-91 DAL
;
; --- Load the resource.
;
; <mapHand = handle	of map.
; <resPtr = pointer	to resource.
;
	jsr lockMap		;Lock the map before <resPtr moves.
;
	lda #$FFFF		;No maximum size.
	tax
	jsr loadRes		;Load the resource
	sta <@result		;Return the handle of the resource.
	stx <@result+2
	phy		;Save error code, Memory and GS/OS errors.
	jsr unlockMap		;Leave map unlocked.
	ply		;Restore error code.
@exit
*** added 9-Dec-91 DAL -- restore sys prefs if we changed them
	phy
	lda >oldSysPrefs
	inc a
	beq @noRestore
	dec a
	pha	;previous sys prefs word
	pea 1	;pcount
	tsc
	inc a
	pea 0
	pha
	pea $200C	;SetSysPrefsGS
	jsl $e100b0
	pla
	pla
@noRestore	ply
*** end 9-Dec-91
	brl pop6_Err		;Strip input parameters and exit, y = error code.

*** NOT ROMABLE! 9-Dec-91 DAL
oldSysPrefs	dc.w 0
*** end 9-Dec-91 DAL
;
;
	EJECT
;================================================================================================
;=
;= Description: Delete a resource from its file and free memory allocated for the resource.
;=
;= Inputs: PUSH:WORD - type.
;=  PUSH:LONG - ID.
;=
;= Outputs: None.
;=
;= Errors: Carry set if error, a = error code:
;=   resNotFound  Resource was not found.
;=   resDiskFull - Disk is too full to complete operation.
;=   invalidAccess - file is not open with write access
;=
;= Ext. Refer: None.
;=
;= Entry Points: None.
;=
;================================================================================================
;
RemoveResource
;
@resIDIn	equ inputs		Stack offsets.
@resTypeIn	equ @resIDIn+4
;
@endFlag	equ work		Local direct page area.
@nextRes	equ @endFlag+2
@localSize	equ @nextRes+4		Size of local direct page.
	IF  (@localSize>maxLocal)	THEN
	AERROR 'DEBUG ERROR - local direct page overflow'
	ENDIF
;
;
	jsr startCall		Allocate direct page, set <data.
;
;
; --- Find resource.
;
	jsr findGivenRes1		Find resource that was given.
	bcs @ok1		Was the resource found.
	brl pop6_Err		y = resNotFound.

*** 27-Jan-93 JCM - Make sure that the file can be written to before continuing.

@ok1	jsr isFileWriteable		;can we eventually write to this file?
	bcc @ok1b		; yup

	brl pop6_Err		;y = invalidAccess

;;;@ok1	jsr setFileRefNum
@ok1b	jsr setFileRefNum
	
*** End - 27-Jan-93 JCM

;
;
;
; --- Make sure there are 6 available spots in the free list.
;

	jsr ckFreeRecords		Make sure there are	enough free records	for add.
	bcc @ok2		Error?
	brl pop6_Err
;
@ok2	tya		Did map grow?
	beq @ok3
	jsr findGivenRes1		Find resource the given resource again.
;
;
; --- Free space used by the resource.
;
@ok3	jsr lockMap		Lock the map the resource is in.
	jsr freeRes		Free memory allocated to the resource.
	jsr freeFileResource	Free the file block	used by resource. Marks map dirty.
	jsr removeIndexRef		Remove the resource's index reference.
;
;
; --- Fix index reference counters.
;
	lda #1		Pass number to subtract.
	ldy #mapIndexUsed		Pass field to subtract.
	jsr subToMapLong1		Decrement mapIndexUsed field (# of used	records).
;
;
; --- Exit.
;
	jsr unlockMap		Leave map unlocked.
	brl pop6_NoErr		Strip input parameters and exit.
;
	EJECT
;================================================================================================
;=
;= Description: Mark a resource changed	or unchanged so that it will be written	to disk (or
;=  not) the next time the file is updated.
;=
;= Inputs: PUSH:WORD - TRUE to mark resource as changed, FALSE to mark as unchanged.
;=  PUSH:WORD - type.
;=  PUSH:LONG - ID.
;=
;= Outputs: None.
;=
;= Errors: Carry set if error, a = error code:
;=   resNotFound  Resource was not found.
;=
;= Ext. Refer: None.
;=
;= Entry Points: None.
;=
;================================================================================================
;
MarkResourceChange
;
@resIDIn	equ inputs		Stack offsets.
@resTypeIn	equ @resIDIn+4
@chgFlag	equ @resTypeIn+2
;
;
	jsr startCall		Allocate direct page, set <data.

;
;
; --- Find resource.
;
	jsr findGivenRes1		Find resource that was given.
	bcs @ok1		Was the resource found.

*** 13-Jan-93 JCM - First make sure that we will be able to write to this file when it's closed.
***	%%% When we get here, <mapPtr will be pointing to an unlocked map, but this
***	_shouldn't_ be a problem.

@exitBadMarkChange	brl pop8_Err		y = error code

;
; --- Set change state of resource.
;
@ok1	ldy #resAttr
	lda [<resPtr],y
	ldx <@chgFlag		Set or clear?
	bne @setit		;set it as changed

	and #_resChanged

*** 25-Jan-93 JCM - Fixed so we only scream about illegalAccess if the resource is being marked changed, not
***	unchanged. Pinhead (that's me :-).

;;;	
;;;	tax		;save the resAttr for this resource
;;;
;;;	jsr isFileWriteable		;can we eventually write to this file?
;;;	bcs @exitBadMarkChange	; apparently not (returns invalidAccess error)
;;;
;;;	txa		;resAttr from above
	
*** end 13-Jan-93 JCM

	bra @store1
;
@setit	ora #resChanged

	tax		;save the resAttr for this resource

	jsr isFileWriteable		;can we eventually write to this file?
	bcs @exitBadMarkChange	; apparently not (returns invalidAccess error)

	txa		;resAttr from above

	ldy #resAttr		;1-Feb-93 JCM - got munged on call to isFileWriteable
	
*** End - 25-Jan-93 JCM
	
@store1	sta [<resPtr],y
;
	brl pop8_NoErr		Strip input parameters and exit.
;
	EJECT
;================================================================================================
;=
;= Description: Set	current resource file for current application.
;=
;= Inputs: PUSH:WORD - file ID, NIL for	none.
;=
;= Outputs: None.
;=
;= Errors: Carry set if error, a = error code:
;=   resFileNotFound  File not opened by Resource Manager.
;= Ext. Refer: None.
;=
;= Entry Points: None.
;=
;================================================================================================
;
SetCurResourceFile
;
@givenFile	equ inputs		Offset to input parameter.
;
;
	jsr startCall		Allocate direct page, set <data.
;
;
; --- Verify open file reference number	is valid.
;
	lda <@givenFile		Pass file to find.
	jsr findFileID		Find the map that matches the given file ID.
	bcs @errorOut		Not found? y = resFileNotFound.
;
;
; --- Set application's current file.
;
; <mapHand = handle	of matched file (NOT LOCKED).
;
	jsr getCurMapHand		Compute index to current map.
	lda <mapHand		Store new current file.
	sta [<data],y		Get application's current file.
	iny
	iny
	lda <mapHand+2
	sta [<data],y
;
	ldy #0		No error.
;
@errorOut	brl pop2_Err		Strip input parameters and exit.
;
	EJECT 35
;================================================================================================
;=
;= Description: Return current application's current resource file.
;=
;= Inputs: PUSH:WORD - Space for result.
;=
;= Outputs: WORD - Open file reference number current resource file, NIL=no current file.
;=
;= Errors: Carry set if error, a = error code:
;=   resNoCurFile  No current resource file.
;=
;= Ext. Refer: None.
;=
;= Entry Points: None.
;=
;================================================================================================
;
GetCurResourceFile
;
@result	equ inputs		Offset to input parameter.
;
;
	jsr startCall		Allocate direct page, set <data.
;
	stz <@result		Just in case there is no current file.
;
	jsr getCurMap		Get current map, lock and dereference it.
	bcs @exit		Is there a current file?  y = resNoCurFile.
;
	ldy #mapID		Return open file reference number of current file.
	lda [<mapPtr],y
	sta <@result
;
	jsr unlockMap		Leave map unlocked.
;
	ldy #0		No error.
;
@exit	brl pop0_Err		Strip input parameters and exit.
;
	EJECT
;================================================================================================
;=
;= Description: Set	the current application.
;=
;= Inputs: PUSH:WORD - User ID of application, NIL if none.
;=
;= Outputs: None.
;=
;= Errors: Carry set if error, a = error code:
;=   resBadAppID Application not found (ResourceStartup not	called).
;=
;= Ext. Refer: None.
;=
;= Entry Points: None.
;=
;================================================================================================
;
SetCurResourceApp
;
@givenUserID	equ inputs		Offset to input parameter.
;
;
	jsr startCall		Allocate direct page, set <data.
;
	lda <@givenUserID		No user ID passed?
	beq @exit
;
;
; --- Find user ID in the application list.
;
	ldy #appList		Start with first.
@lop1	lda [<data],y		Check appFlag field.
	beq @next1		Empty spot?
	bmi @userIDNotFound		End of list?
;
	iny		Increment to appID field.
	iny
	lda [<data],y		Get this app's user ID.
	dey		Put index back.
	dey
	cmp <@givenUserID		Is this the record?
	beq @gotit
;
@next1	tya
	clc
	adc #appRecSize		Compute index to next application record.
	tay
	bra @lop1
;
@userIDNotFound	ldy #resBadAppID		Return error.
	brl pop2_Err
;
;
; --- Set current application to found application record.
;
; y = index to application record in application list.
;
@gotit	tya		Index to application record.
	ldy #curApp		Store the offset to	the current app record
	sta [<data],y		in the app list.
;
@exit	brl pop2_NoErr		Strip input parameters and exit.
;
	EJECT 35
;================================================================================================
;=
;= Description: Return user ID of current application.
;=
;= Inputs: PUSH:WORD - Space for result.
;=
;= Outputs: WORD - User ID of current application, NIL if none
;=
;= Errors: Carry set if error, a = error code:
;=
;= Ext. Refer: None.
;=
;= Entry Points: None.
;=
;================================================================================================
;
GetCurResourceApp
;
@result	equ inputs		Offset to input parameter.
;
;
	jsr startCall		Allocate direct page, set <data.
;
	ldy #curApp		Get offset to current application record.
	lda [<data],y
	tay
	iny		Increment to appID field.
	iny
	lda [<data],y		Get user ID of current application.
	sta <@result
;
	brl pop0_NoErr		Strip input parameters and exit.
;
	EJECT
;================================================================================================
;=
;= Description: Return open file reference number for a given resource.
;=
;= Inputs: PUSH:WORD - Space for result
;=  PUSH:WORD - type.
;=  PUSH:LONG - ID.
;=
;= Outputs: WORD - file ID, NIL if not found.
;=
;= Errors: Carry set if error, a = error code:
;=   resNotFound Resource was not found.
;=
;= Ext. Refer: None.
;=
;= Entry Points: None.
;=
;================================================================================================
;
HomeResourceFile
;
@resIDIn	equ inputs		Stack offsets.
@resTypeIn	equ @resIDIn+4
@result	equ @resTypeIn+2
;
;
	jsr startCall		Allocate direct page, set <data.
;
;
; --- Find map resource is in.
;
	jsr findGivenRes1		Find resource that was given.
	bcs @ok1		Was the resource found.
	stz <@result		Do not return a valid open file reference number. 
	brl pop6_Err		y = resNotFound.
;
;
; --- Return open file reference number	of file resource is	in.
;
@ok1	ldy #mapID
	lda [<mapPtr],y
	sta <@result
;
	brl pop6_NoErr		Strip input parameters and exit.
;
;
	EJECT
;================================================================================================
;=
;= Description: Writes a resource to its resource file if it is marked as changed.
;=
;= Inputs: PUSH:WORD - type.
;=  PUSH:LONG - ID.
;=
;= Outputs: None.
;=
;= Errors: Carry set if error, a = error code:
;=   GS/0S errors Errors returned from GS/OS calls.
;=   resNotFound  Resource was not found.
;=   resDiskFull Unable to write because of full disk.
;=
;= Ext. Refer: None.
;=
;= Entry Points: None.
;=
;================================================================================================
;
WriteResource
;
@resIDIn	equ inputs		Stack offsets.
@resTypeIn	equ @resIDIn+4
;
;
	jsr startCall		Allocate direct page, set <data.
;
;
; --- Find resource.
;
	jsr findGivenRes1		Find resource that was given.
	bcs @ok1		Was the resource found.
@errorOut	brl pop6_Err		y = resNotFound.

*** 27-Jan-93 JCM - Make sure that the file can be written to before continuing.

@ok1	jsr isFileWriteable		;can we eventually write to this file?
	bcc @ok1b		; yup

	brl pop6_Err		;y = invalidAccess

;;;@ok1	jsr setFileRefNum
@ok1b	jsr setFileRefNum
	
*** End - 27-Jan-93 JCM

;
;
; --- Write the resource to its file.
;
	jsr ckFreeRecords		Make sure their are	some available free	block records.
	bcs @errorOut		Records not available?
	tya		Was the map moved?
	beq @ok2
	jsr findGivenRes1		Find resource again.
;
@ok2	jsr lockMap		Lock map for write.
	jsr writeRes		Write resource to its file if needed.
	jsr unlockMap		Leave map unlocked.
;
	ldy <work		Get error code from	writeRes.
	bpl @exit		Did writeRes ask for more free records?
	ldy #0		No real error.
@exit	brl pop6_Err		Strip input parameters and exit.
;
	EJECT
;================================================================================================
;=
;= Description: Frees memory allocated for a resource.  Undoes LoadResource.
;=
;= Inputs: PUSH:WORD - Purge level, 0-3	or negative to dispose of handle.
;=  PUSH:WORD - type.
;=  PUSH:LONG - ID.
;=
;= Outputs: None.
;=
;= Errors: Carry set if error, a = error code:
;=   resHasChanged Resource is marked as changed but not updated.
;=   resNotFound  Resource was not found.
;=
;= Ext. Refer: None.
;=
;= Entry Points: None.
;=
;================================================================================================
;
ReleaseResource
;
@resIDIn	equ inputs		Stack offsets.
@resTypeIn	equ @resIDIn+4
@purgeLevel	equ @resTypeIn+2
;
;
	jsr startCall		Allocate direct page, set <data.
;
;
; --- Find resource.
;
	jsr findGivenRes1		Find resource that was given.
	bcs @ok1		Was the resource found.
;     y = resNotFound.
@errorOut	brl pop8_Err
;
;
; --- Write the resource to its file.
;
@ok1	ldy #resAttr		Has the resource changed?
	lda [<resPtr],y
	ldy #resHasChanged		Error code, just in	case.
	and #resChanged
	bne @errorOut
;
;
; --- Dispose of or	set purge level of resource handle.
;
	ldy #resAttr		Is this an absolute	load resource, can't have handle?
	lda [<resPtr],y
	and #resAbsLoad
	bne @exit
;
	ldy #resHandle+1		Does the resource have a handle?
	lda [<resPtr],y
	beq @exit

	lda <@purgeLevel		Did caller want the	resource handle disposed.
	bmi @dispose
;
	and #$0003		Memory Manager doesn't like unused bits as 1.
	pha		Pass purge level.
	iny		Pass resource's handle.
	lda [<resPtr],y
	pha
	dey
	dey
	lda [<resPtr],y
	pha
	_SetPurge
	bra @exit
;
@dispose	jsr lockMap		Lock map.
	jsr setFileRefNum		Put file refNum in GS/OS parameter blocks.
	jsr freeRes		Free memory allocated for resource.
	jsr unlockMap		Leave map unlocked.
;
@exit	brl pop8_NoErr		Strip input parameters and exit.
;
	EJECT
;================================================================================================
;=
;= Description: Detach resource handle from resource map so	that the Resource Manager will no
;=  longer know about the resource in memory.
;=
;= Inputs: PUSH:WORD - type.
;=  PUSH:LONG - ID.
;=
;= Outputs: None.
;=
;= Errors: Carry set if error, a = error code:
;=   resHasChanged Resource is marked as changed but not updated.
;=   resNotFound  Resource was not found.
;=
;= Ext. Refer: None.
;=
;= Entry Points: None.
;=
;================================================================================================
;
DetachResource
;
@resIDIn	equ inputs		Stack offsets.
@resTypeIn	equ @resIDIn+4
;
;
	jsr startCall		Allocate direct page, set <data.
;
;
; --- Find resource.
;
	jsr findGivenRes1		Find resource that was given.
	bcs @ok1		Was the resource found.
;     y = resNotFound.
@errorOut	brl pop6_Err
;
;
; --- Detach resource handle from resource.
;
@ok1	ldy #resAttr		Has the resource changed?
	lda [<resPtr],y
	and #resAbsLoad
	bne @exit		Absolute resource can't be detached.
	lda [<resPtr],y
	ldy #resHasChanged		Error code, just in	case.
	and #resChanged
	bne @errorOut
;
	ldy #resHandle+1		Clear resHandle field so I don't know about the
	lda #0		resource handle.
	sta [<resPtr],y
;
@exit	brl pop6_NoErr		Strip input parameters and exit.
;
	EJECT
;================================================================================================
;=
;= Description: Find a unique ID for a given resource type.	 The search is a two part
;=  process.  First	the next highest or	lowest number, then	all numbers are tried 
;=  using a hash table.
;=
;= Inputs: PUSH:LONG - Space for result.
;=  PUSH:WORD - ID range.
;=  PUSH:WORD - Resource type.
;=
;= Outputs: LONG - Unique resource ID.
;=
;= Errors: Carry set if error, a = error code:
;=   resNoUniqueID No unique IDs could be found.
;=   resNoCurFile No current resource file.
;=
;= Ext. Refer: None.
;=
;= Entry Points: None.
;=
;================================================================================================
;
UniqueResourceID
;
@type	equ inputs		Stack offsets.
@IDrange	equ @type+2
@result	equ @IDrange+2
;
@lowest	equ work		Local direct page area.
@highest	equ @lowest+4
@highRange	equ @highest+4
@lowRange	equ @highRange+4
@newLow	equ @lowRange+4
@hash	equ @newLow+2
@hashBank	equ @hash+4
@localSize	equ @hashBank+4		Size of local direct page.
	IF  (@localSize>maxLocal)	THEN
	AERROR 'DEBUG ERROR - local direct page overflow'
	ENDIF
;
;
	jsr startCall		Allocate direct page, set <data.
;
	stz <@result
	stz <@result+2
;
	jsr getCurMap		<mapHand = current map, locked.
	bcc @ok1
	brl pop4_Err		y = resNoCurFile.
;
@ok1	jsr unlockMap
	stz <@lowRange		Set default low range, $00000001.
	inc <@lowRange
	stz <@lowRange+2
;
	stz <@highRange		Set default high range, $07FEFFFF.
	dec <@highRange
	lda #$07FE
	sta <@highRange+2
;
	lda <@IDrange		Did caller want any	application range ID?
	cmp #$FFFF
	beq @ok3
	cmp #$0800		Valid range?
	bcc @ok7
	brl @noneFound		If invalid range, no unique found.
@ok7	tax
	beq @skip1		Low range of $0000 range is $00000001.
;
	stz <@lowRange		Low range is $XXXX0000.
	sta <@lowRange+2
@skip1	sta <@highRange+2		High range is $XXXXFFFF.

;
; ---------------------------------------------------------------------------------------------
; --- Try next highest or lowest --------------------------------------------------------------
; ---------------------------------------------------------------------------------------------
;
@ok3	ldx <@lowRange+2		Set highest to one less than lowest possible ID.
	lda <@lowRange
	sec
	sbc #1
	bcs @store1
	dex
@store1	sta <@highest
	stx <@highest+2
;
	ldx <@highRange+2		Set lowest to one higher than highest possible ID.
	lda <@highRange
	inc a
	bne @store2
	inx
@store2	sta <@lowest
	stx <@lowest+2
;
	stz <@newLow		Start with no new low found.
;
	lda #@ckHighLow		Pass routine to call for each map.
	jsr walkMapsCur		Start with current file.
;
;
; --- Try next lowest.
;
	lda <@lowRange		Use lowest possible	ID if no other low was found.
	ldx <@lowRange+2
	ldy <@newLow		Was a low ID found?
	beq @toGotit
;
	lda <@lowest		Check if lower ID can be used.
	ldx <@lowest+2
	cmp <@lowRange		Test if already the	lowest possible.
	bne @ok6
	cpx <@lowRange+2
	beq @tryHigh
;
@ok6	sec		;Use next lower ID.
	sbc #1
	bcs @toGotit
	dex
@toGotit	brl @gotit
;
;
; --- Try next highest.
;
@tryHigh	lda <@highest		Make ID one higher than the highest.
	ldx <@highest+2
	cmp <@highRange		Already highest?
	bne @ok2
	cpx <@highRange+2
	beq @searchAll
;
@ok2	inc a
	bne @toGotit
	inx
	bpl @toGotit		Past max?
;
;
; ---------------------------------------------------------------------------------------------
; --- Search every number ---------------------------------------------------------------------
; ---------------------------------------------------------------------------------------------
;
@searchAll	lda #hashIDTable		Push address of hash table.
	jsr pushDataArea
	pla		Keep handy pointer to hash table.
	sta <@hash
	pla
	sta <@hash+2
;
	ldy #hashSize-2		Clear hash table.
	lda #0
@lop1	sta [<@hash],y
	dey
	dey
	bpl @lop1
;
	lda <@lowRange		First ID bank to search.
	and #$F000
	sta <@hashBank
	lda <@lowRange+2
	stz <@hashBank+2
;
@lop3	lda #@hashIDs		Pass routine to call for every map.
	jsr walkMapsCur		Start with current file.
;
	ldy #hashSize-2		Check for any ID not used in this ID bank.
@lop2	lda [<@hash],y
	cmp #$FFFF
	bne @ok4
	inc a		Clear table while I'm here.
	sta [<@hash],y
	dey
	dey
	bpl @lop2
;
	ldx <@hashBank+2		Check next bank.
	lda <@hashBank
	clc
	adc #$1000
	bcc @store3
	inx
@store3	sta <@hashBank
	stx <@hashBank+2
	cpx <@highRange+2
	bcc @lop3
	bne @noneFound
	cmp <@highRange
	bcc @lop3
;
@noneFound	ldy #resNoUniqueID		Return error code, all IDs for type are	used.
	brl pop4_Err		Strip input parameters and exit.
;
;
; ------ Convert zero hash bit into ID.
;
;  y = index to hashed word.
;  a = hashed word.
;
@ok4	pha		Save hashed word.
;
	tya		Convert index into ID bits 4-11.
	asl a
	asl a
	asl a
	sta <@result
;
	ldx #15		Bit counter.
	pla		Get hashed word.
	xba		Convert two hashed bytes into a word.
@lop4	lsr a		Look for zero bit.
	bcc @ok5
	dex
	bra @lop4		Has to be a zero bit!
;
@ok5	txa		Convert bit index into bits 0-3 of ID.
	ora <@result		Add bits 4-11 to get bits 0-11.
	ora <@hashBank		Add bits 12-15 to get bits 0-16
	ldx <@hashBank+2		Bits 16-30.
;
;
; --- Exit.
;
;  x/a = ID.
;
@gotit	sta <@result		x/a = ID.
	stx <@result+2		Return unique ID.
;
	brl pop4_NoErr		Strip input parameters and exit.
;
;
;------------------------------------------------------------------------------------------
; Get the highest and lowest resource ID used in the undefined range.
;-100--------------------------------------------------------------------------------------
;
;  IN: <mapPtr = pointer to locked resource map.
; <@lowest = current lowest ID of the given type.
; <@highest = current highest ID of the	given type.
; <@type = resource	type to check for.
; <@IDrange = range	of IDs to check, negative to check all IDs.
;
; OUT: <@lowest = the lower of the given lowest or lowest resource ID of the 
;            given type in the map.
; <@highest = the higher of the given highest or highest resource ID of the 
;     given type in	the map.
;
@ckHighLow	jsr getFirstRes		;x/a = pointer to first resource index.
	stx <resPtr+2		;Low word stored later.
	bra @enter100
;
@lop100	cmp <@type		;Is this the type I'm checking?
	bne @next100
;
	ldy #resID+2		;Get ID.
	lda [<resPtr],y		;Is it a defined ID?
	tax
	dey
	dey
	lda [<resPtr],y		;x/a = ID.
;
*** 24-Jun-91 DAL -- fix any-range code to disallow $07FFxxxx!
;	ldy <@IDrange		;Any ID?
;	bmi @ok100

	ldy <@IDrange
	bpl @notAnyRange
	cpx #$07FF		;if any range, ignore all $07FFxxxx resources!
	bcc @ok100		;was BNE 1-Jul-91 DAL
	bra @next100
@notAnyRange
*** end 24-Jun-91 DAL
	cpx <@IDrange		;Is this ID in range?
	bne @next100
;
@ok100	cpx <@lowest+2		;Is it lower than the current lowest?
	bcc @newLow100
	bne @ckHigh100
	cmp <@lowest
	bcs @ckHigh100
@newLow100	sta <@lowest		;New lowest ID.
	stx <@lowest+2
	ldy #1		;Set 'new low found' flag.
	sty <@newLow
;
@ckHigh100	cpx <@highest+2		;Is it higher than the current highest?
	bcc @next100
	bne @newHigh100
	cmp <@highest
	bcc @next100
@newHigh100	sta <@highest		;New highest ID.
	stx <@highest+2
;
@next100	lda <resPtr		;Compute pointer to next resource record.
	clc
	adc #resRecSize
	bcc @enter100
	inc <resPtr+2
;
@enter100	sta <resPtr
	lda [<resPtr]		;Any more resources?
	bne @lop100
;
	clc 		;Continue to walk maps.
	rts
;
;
;------------------------------------------------------------------------------------------
; Hash ID numbers in a range.
;-110--------------------------------------------------------------------------------------
;
;  IN:  <mapPtr = pointer to locked resource map.
;  <@type = resource type to check for.
;  <@hashBank = high byte of 20 bit ID to hash.
;  <@hash = pointer	to 512 byte hash table.
;
; OUT:  The lower 12 bits of every resource in the map is put into the hash table if
;  the type is the same as the given type and the high byte	of the ID matches the
;  given high byte.
;
@hashIDs	jsr getFirstRes		x/a = pointer to first resource index.
	stx <resPtr+2		Low word stored later.
	bra @enter110
;
@lop110	cmp <@type		Is this the type I'm checking?
	bne @next110
;
	ldy #resID+2
	lda [<resPtr],y		Check if ID is in the right bank.
	cmp <@hashBank+2
	bne @next110
	dey
	dey
	lda [<resPtr],y
	and #$F000
	cmp <@hashBank
	bne @next110
;
	lda [<resPtr],y		Hash the lower 12 bits of this ID.
	and #$0FFF
	lsr a		Compute index to byte in hash table.
	lsr a
	lsr a
	tay
	lda [<resPtr],y		Compute bit index in byte.
	and #$0007
	tax
	sep #$20
	LONGA OFF
	lda [<@hash],y
	ora hashMask,x
	sta [<@hash],y
	rep #$20
	LONGA ON
;
@next110	lda <resPtr		Compute pointer to next resource record.
	clc
	adc #resRecSize
	bcc @enter110
	inc <resPtr+2
;
@enter110	sta <resPtr
	lda [<resPtr]		Any more resources?
	bne @lop110
;
	clc		Continue to walk maps.
	rts
;
	EJECT
;================================================================================================
;=
;= Description: Change a resource's ID.
;=
;= Inputs: PUSH:LONG - New ID.
;=  PUSH:WORD - Type to change.
;=  PUSH:LONG - ID to change.
;=
;= Outputs: None.
;=
;= Errors: Carry set if error, a = error code:
;=   resNotFound  Resource was not found.
;=   resDupID  New ID is already used.
;=   invalidAccess - if the file is not opened with write access
;=
;= Ext. Refer: None.
;=
;= Entry Points: None.
;=
;================================================================================================
;
SetResourceID
;
@resIDIn	equ inputs		Input parameter offsets.
@resTypeIn	equ @resIDIn+4
@newID	equ @resTypeIn+2
;
;
	jsr startCall		Allocate direct page, set <data.

*** added 13-May-91 DAL -- validate ID
	lda <@newID
	ora <@newID+2
	bne @good
@bad	ldy #resInvalidTypeOrID
	brl pop10_Err
@good
*** end of 13-May-91 DAL

;
; --- Make sure new	ID is not already used.
;
	lda <@resTypeIn		Pass type.
	ldy <@newID		Pass ID.
	ldx <@newID+2
	jsr findGivenRes2		Find resource that was given.
	bcc @ok2		Not found?
	ldy #resDupID		Return error code, ID already used.
@errorOut	brl pop10_Err		Exit.
;
;
; --- Find resource	to be changed.
;
@ok2	jsr findGivenRes1		Find resource that was given.
	bcc @errorOut		y = resNotFound.

*** Unchanged 10-Feb-93 DAL
;;;*** 27-Jan-93 JCM - Make sure that the file can be written to before continuing.
;;;	jsr isFileWriteable		;can we eventually write to this file?
;;;	bcs @errorOut		; nope, return y = invalidAccess
;;;*** End - 27-Jan-93 JCM

;
;
; --- Remove resource from index.
;
@saveRes	equ work+24		Local direct page area.
@localSize	equ @saveRes+resRecSize	Size of local direct page.
	IF  (@localSize>maxLocal)	THEN
	AERROR 'DEBUG ERROR - local direct page overflow'
	ENDIF
;
	jsr lockMap		Lock the map (may not be needed, but no	surpises).
;
	ldy #resRecSize-2		Save the resource index reference.
@lop1	lda [<resPtr],y
	tyx
	sta <@saveRes,x
	dey
	dey
	bpl @lop1
;
	lda <@newID		Replace type and ID	with new.
	sta <@saveRes+resID
	lda <@newID+2
	sta <@saveRes+resID+2
;
	jsr removeIndexRef		Remove the resource	index reference.
;
;
; --- Insert resource back into index according to its new ID.
;
; ------ Find spot for resource.
;
	lda <@resTypeIn		Pass type.
	ldy <@newID		Pass new ID.
	ldx <@newID+2
	jsr findResRec		Compute place resource goes.
;
;
; ------ Insert resource reference in proper spot in the index.
;
; <resPtr = place to insert resource reference.
;
	jsr insertIndexRef		Move references down to make room for new one.
;
	ldy #resRecSize-2		Restore the resource index reference in	its new
@lop2	tyx spot.
	lda <@saveRes,x
	sta [<resPtr],y
	dey
	dey
	bpl @lop2
;
	jsr markDirtyMap		Mark map as needing	to be updated.
	jsr unlockmap		Leave map unlocked.
;
	brl pop10_NoErr		Strip input parameters and exit.
;
;
	EJECT
;================================================================================================
;=
;= Description: Return attributes of resource.
;=
;= Inputs: PUSH:WORD - Space for result.
;=  PUSH:WORD - type.
;=  PUSH:LONG - ID.
;=
;= Outputs: WORD - attributes of resource (see equates for bit definitions).
;=
;= Errors: Carry set if error, a = error code:
;=   resNotFound  Resource was not found.
;=
;= Ext. Refer: None.
;=
;= Entry Points: None.
;=
;================================================================================================
;
GetResourceAttr
;
@resIDIn	equ inputs		Input parameter offsets.
@resTypeIn	equ @resIDIn+4
@result	equ @resTypeIn+2
;
;
	jsr startCall		Allocate direct page, set <data.
;
;
; --- Find the resource.
;
	jsr findGivenRes1		Find resource that was given.
	bcc @errorOut
;
;
; --- Return resource's attributes.
;
	ldy #resAttr
	lda [<resPtr],y
	sta <@result
;
	ldy #0		No error.
;
@errorOut	brl pop6_Err
;
	EJECT
;================================================================================================
;=
;= Description: Set	attributes of resource.
;=
;= Inputs: PUSH:WORD - New attributes.
;=  PUSH:WORD - type.
;=  PUSH:LONG - ID.
;=
;= Outputs: None.
;=
;= Errors: Carry set if error, a = error code:
;=   resNotFound  Resource was not found.
;=   invalidAccess - if the file is not opened with write access
;=
;= Ext. Refer: None.
;=
;= Entry Points: None.
;=
;================================================================================================
;
SetResourceAttr
;
@resIDIn	equ inputs		Input parameter offsets.
@resTypeIn	equ @resIDIn+4
@newAttr	equ @resTypeIn+2
;
;
	jsr startCall		Allocate direct page, set <data.
;
;
; --- Find the resource.
;
	jsr findGivenRes1		Find resource that was given.
	bcs @ok1		Found?
	brl pop8_Err

*** 27-Jan-93 JCM - Make sure that the file can be written to before continuing.

@ok1	

*** Unchanged 10-Feb-93 DAL
;;;	jsr isFileWriteable		;can we eventually write to this file?
;;;	bcc @ok1b		; yup
;;;
;;;	brl pop8_Err		;y = invalidAccess

;
; --- Set resource's new attributes.
;
;;;@ok1	ldy #resAttr		Store new attributes.
@ok1b	ldy #resAttr		Store new attributes.
	
*** End - 27-Jan-93 JCM

	lda <@newAttr
	sta [<resPtr],y
;
	jsr markDirtyMap		Mark map as needing	to be updated.
;
	brl pop8_NoErr
;
	EJECT
;================================================================================================
;=
;= Description: Return size of a resource in its file.
;=
;= Inputs: PUSH:LONG - Space for result.
;=  PUSH:WORD - type.
;=  PUSH:LONG - ID.
;=
;= Outputs: LONG - size of resource, in	bytes, of resource in its file.
;=
;= Errors: Carry set if error, a = error code:
;=   resNotFound  Resource was not found.
;=
;= Ext. Refer: None.
;=
;= Entry Points: None.
;=
;================================================================================================
;
GetResourceSize
;
@resIDIn	equ inputs		Input parameter offsets.
@resTypeIn	equ @resIDin+4
@result	equ @resTypeIn+2
;
;
	jsr startCall		Allocate direct page, set <data.
;
;
; --- Find the resource.
;
	jsr findGivenRes1		Find resource that was given.
	bcc @errorOut		y = resNotFound.
;
;
; --- Return resource's size.
;
	ldy #resSize
	lda [<resPtr],y
	sta <@result
	iny
	iny
	lda [<resPtr],y
	sta <@result+2
;
	ldy #0		No error.
;
@errorOut	brl pop6_Err
;
;
	EJECT
;================================================================================================
;=
;= Description: Find resource that has a given handle.
;=
;= Inputs: PUSH:LONG - pointer to place	to store type and ID:
;=    WORD - space for type.
;=    LONG - space for ID.
;=    WORD - optional space for resource file number, if pointer bit 31 is set (DAL)
;=  PUSH:LONG - handle of resource.
;=
;= Outputs: None.
;=
;= Errors: Carry set if error, a = error code:
;=   resNotFound  Resource was not found.
;=
;= Ext. Refer: None.
;=
;= Entry Points: None.
;=
;================================================================================================
;
MatchResourceHandle
;
@resHandleIn	equ inputs		Input parameter offsets.
@storeResult	equ @resHandleIn+4
;
;
	jsr startCall		Allocate direct page, set <data.
;
;
; --- Find the resource.
;
	lda #@findHandle		Pass routine to call for each map.
	jsr walkAllFiles		Walk all open maps.
	ldy #resNotFound		Load possible error	code.
	bcc @errorOut		Resource not found?
;
;
; --- Return resource's type and ID.
;
@ok1	lda [<resPtr]		Return type.
	sta [<@storeResult]
	ldy #resID		Return ID.
	lda [<resPtr],y
	sta [<@storeResult],y
	iny
	iny
	lda [<resPtr],y
	sta [<@storeResult],y

*** added 10-Oct-91 DAL -- if requested, return the resource file number
	lda <@storeResult+2
	bpl @notRequested
	ldy #mapID
	lda [<mapPtr],y
	ldy #6	;offset to res file number in result buffer
	sta [<@storeResult],y
@notRequested
*** end 10-Oct-91

	ldy #0		No error.
;
@errorOut	brl pop8_Err
;
;
;----------------------------------------------------------------------
; Search every resource in the map for a given handle.
;-100------------------------------------------------------------------
;
;   IN: <mapPtr = pointer to locked map.
; <mapHand = handle	of locked map.
;
@findHandle	lda #@searchHandle		Pass routine to call.
	brl walkResources		Check every resource in the map.
;
;
;----------------------------------------------------------------------
; Check if given handle belongs to this	resource.
;-110------------------------------------------------------------------
;
;   IN: <mapPtr = pointer to locked map.
; <mapHand = handle	of locked map.
; <resPtr = pointer	to resource to check.
; <@resHandleIn = handle to check for.
;
;  OUT: Carry set if match.
;
@searchHandle	ldy #resHandle
	lda [<resPtr],y
	cmp <@resHandleIn
	bne @continueLooking
	iny
	iny
	lda [<resPtr],y
	cmp <@resHandleIn+2
	bne @continueLooking
	rts		Carry is set if equal.
;
@continueLooking	clc		No match, continue search.
	rts
;
	EJECT
;
;================================================================================================
;=
;= Description: Return number of different types in all open files.
;=
;= Inputs: PUSH:WORD - space for result.
;=
;= Outputs: WORD - number of different resources in all open files.
;=
;= Errors: Carry set if error, a = error code:
;=   Memory Manager	errors Returned unchanged.
;=
;= Ext. Refer: None.
;=
;= Entry Points: None.
;=
;================================================================================================
;
CountTypes
;
@result	equ inputs		Input parameter offsets.
;
;
	jsr startCall		Allocate direct page, set <data.
;
	jsr countResTypes		<work = number of types.
	bcs @exit		y = memory errors.
;
	lda <work
	sta <@result		Return number of types.
	jsr freeTypeHash		Free hash table.
	ldy #0		No error.
;
@exit	brl pop0_Err
;
;
	EJECT
;================================================================================================
;=
;= Description: Return type of given index.
;=
;= Inputs: PUSH:WORD - space for result.
;=  PUSH:WORD - index.
;=
;= Outputs: WORD - type.
;=
;= Errors: Carry set if error, a = error code:
;=   Memory Manager	errors Returned unchanged.
;=   resIndexRange	Index was out of range.
;=
;= Ext. Refer: None.
;=
;= Entry Points: None.
;=
;================================================================================================
;
GetIndType
;
@index	equ inputs		Input parameter offsets.
@result	equ @index+2
;
@numOfTypes	equ work
@hashHandle	equ @numOfTypes+2
@hashPtr	equ @hashHandle+4
;
;
	jsr startCall		Allocate direct page, set <data.
;
	stz <@result		Start with no type found.
;
;
	jsr countResTypes		<work = number of types.
	bcs @exit		Unable to allocate hash table?
;
;
; --- Count marks in hash table while decrementing given index.
;
	ldy #0		Search hash table.
	sep #$20
	LONGA OFF
@lop2	lda [<@hashPtr],y
	beq @nextByte
;
	ldx #0		Search bits in byte.
@lop3	lda [<@hashPtr],y
	and bits,x
	beq @next3
	rep #$20
	dec @index
	beq @gotit
	sep #$20
@next3	inx
	cpx #8
	bne @lop3
@nextByte	iny
	cpy #8*1024
	bne @lop2
	rep #$20
	LONGA ON
;
	ldy #resIndexRange		Return index out of	range error.
	bra @exit2
;
;
; --- Convert bit position into type.
;
@gotit	stx <@result		Convert position of	bit into type.
	tya
	asl a
	asl a
	asl a
	ora <@result
	sta <@result		Return type.
;
;
; --- Free hash table.
;
	ldy #0		No error.
;
@exit2	phy		Save error.
	jsr freeTypeHash		Free hash table.
	ply		Restore error code.
;
@exit	brl pop2_Err
;
	EJECT
;================================================================================================
;=
;= Description: Return number of resources of a given type in all files.
;=
;= Inputs: PUSH:LONG - space for result.
;=  PUSH:WORD - type.
;=
;= Outputs: None.
;=
;= Errors: None.
;=
;= Ext. Refer: None.
;=
;= Entry Points: None.
;=
;================================================================================================
;
CountResources
;
@type	equ inputs		Input parameter offsets.
@result	equ @type+2
;
;
	jsr startCall		Allocate direct page, set <data.
;
	stz <@result		Start counter.
	stz <@result+2
;
;
; --- Count resources.
;
	lda #@count1
	jsr walkMapsCur		Count starting in current file.
;
	brl pop2_NoErr
;
;
;================================================================================================
; Count resources of a given type.
;================================================================================================
;
@count1	lda #@count2
	brl walkResources
;
@count2	lda [<resPtr]		Get type.
	cmp <@type		Counting this type?
	bne @exit100
	inc <@result		Increment counter.
	bne @exit100
	inc <@result+2
@exit100	clc		Continue walk.
	rts
;
	EJECT
;================================================================================================
;=
;= Description: Load resource of a given index and type.
;=
;= Inputs: PUSH:LONG - space for result.
;=  PUSH:WORD - Type.
;=  PUSH:LONG - index of ID.
;=
;= Outputs: LONG - ID of resource.
;=
;= Errors: Carry set if error, a = error code:
;=   GS/OS errors  Returned unchanged.
;=   Memory Manager	errors Returned unchanged.
;=   resIndexRange	Index out of range.
;=
;= Ext. Refer: None.
;=
;= Entry Points: None.
;=
;================================================================================================
;
GetIndResource
;
@index	equ inputs		Input parameter offsets.
@type	equ @index+4
@result	equ @type+2
;
;
	jsr startCall		Allocate direct page, set <data.
;
	stz <@result		Start with no ID returned.
	stz <@result+2
;
;
; --- Find resource	by index.
;
	lda #@find1
	jsr walkMapsCur		Start search in current file.
	ldy #resIndexRange		Error code, just in	case.
	bcc @exit		Resource found?
;
	ldy #resID		Return ID of resource.
	lda [<resPtr],y
	sta <@result
	iny
	iny
	lda [<resPtr],y
	sta <@result+2
	ldy #0		No error.
;
@exit	brl pop6_Err
;
;
;================================================================================================
; Find resource by index.
;================================================================================================
;
@find1	lda #@find2
	brl walkResources
;
@find2	lda [<resPtr]		Get type.
	cmp <@type		Looking for this type?
	bne @exit100
	lda <@index
	sec
	sbc #1
	sta <@index
	bcs @ok100
	dec <@index+2
@ok100	ora <@index+2
	bne @exit100
	sec		;Found it.
	rts
@exit100	clc		;Continue walk.
	rts
;
	EJECT
;================================================================================================
;=
;= Description: Turns loading of resources on and off.
;=
;= Inputs: PUSH:WORD - space for result.
;=  PUSH:WORD - 0 =	stops resources reading.
;=      1 = turnd reading back on.
;=     negative = just return current setting.
;=
;= Outputs: WORD - original read flag.
;=
;= Errors: None.
;=
;= Ext. Refer: None.
;=
;= Entry Points: None.
;=
;================================================================================================
;
SetResourceLoad
;
@flagIn	equ inputs		Input parameter offsets.
@result	equ @flagIn+2
;
;
	jsr startCall		Allocate direct page, set <data.
;
	lda <@flagIn
	jsr setReadFlag
	sta <@result
;
	brl pop2_NoErr
;
	EJECT
;================================================================================================
;=
;= Description: Set	number of files to search.
;=
;= Inputs: PUSH:WORD - space for result.
;=  PUSH:WORD - number of files to search, NIL to just return current depth.
;=
;= Outputs: WORD - original file depth.
;=
;= Errors: None.
;=
;= Ext. Refer: None.
;=
;= Entry Points: None.
;=
;================================================================================================
;
SetResourceFileDepth
;
@flagIn	equ inputs		Input parameter offsets.
@result	equ @flagIn+2
;
;
	jsr startCall		Allocate direct page, set <data.
;
	lda <@flagIn		Pass new file depth.
	jsr setFileDepth
	sta <@result		Return original file depth.
;
	brl pop2_NoErr		y = error code if any.
;

	EJECT
;================================================================================================
;=
;= Description: Return open file reference number for file.
;=
;= Inputs: PUSH:WORD - space for result.
;=  PUSH:WORD - file ID.
;=
;= Outputs: WORD - open file reference number, NIL if ROM file.
;=
;= Errors: Carry set if error, a = error code:
;=   resFileNotFound
;=
;= Ext. Refer: None.
;=
;= Entry Points: None.
;=
;================================================================================================
;
GetOpenFileRefNum
;
@fileIn	equ inputs		;Input parameter offsets.
@result	equ @fileIn+2

*** added 7-Apr-91 DAL
***
*** Volume 3 says input $0000 = current file, $FFFF = system file, but there
*** was no code for that.
@stackInput	equ 7+4
	pha
	phy

	lda @stackInput,s	;input file ID
	beq @currentFile
	inc a
	bne @notSpecial
	lda #1
	sta @stackInput,s
	bra @continue

@currentFile	pha
	_GetCurResourceFile
	pla
	sta @stackInput,s
@notSpecial
@continue	ply
	pla
*** end of 7-Apr-91 DAL

	jsr startCall		;Allocate direct page, set <data.
;
	lda #@findMapID		;Pass routine to call.
	jsr walkAllFiles
	ldy #resFileNotFound	;Error code, just in case.
	bcc @exit		;Was map found?
;
	ldy #mapFileNum		;Return open file reference number.
	lda [<mapPtr],y
	sta <@result
;
	ldy #0		;No error.
;
@exit	brl pop2_Err
;
;
;-------------------------------
; Match file ID.
;-------------------------------
;
@findMapID	ldy #mapID
	lda [<mapPtr],y
	cmp <@fileIn
	beq @exit100
	clc
@exit100	rts
;
	EJECT
;
;
;================================
; Get handle of map.
;================================
;
;   IN: PUSH:LONG -	space for result, map handle.
; PUSH:WORD - file ID, NIL for current.
;
GetMapHandle
;
@givenFile	equ inputs		Offset to input parameter.
@result	equ @givenFile+2
;
;
	jsr startCall		Allocate direct page, set <data.
;
	stz <@result
	stz <@result+2
;
;
; --- Verify open file reference number	is valid.
;
	lda <@givenFile		Pass file to find.
	bne @ok1
	jsr getCurMapHand		x/a = handle of current map.
	bra @store1
;
@ok1	jsr findFileID		Find the map that matches the given file ID.
	bcs @exit		Not found?
;
	lda <mapHand		Handle of matched file (NOT LOCKED).
	ldx <mapHand+2
;
@store1	sta <@result
	stx <@result+2
;
	ldy #0		No error.
;
@exit	brl pop2_Err		Strip input parameters and exit.
;
	EJECT
;================================================================================================
;=
;= Description: Load resource at an absolute address.
;=
;= Inputs: PUSH:LONG - space for result.
;=  PUSH:LONG - address to load resource at, NIL to load at	preload address.
;=  PUSH:LONG - maximum number of bytes	to load.
;=  PUSH:WORD - type.
;=  PUSH:LONG - ID.
;=
;= Outputs: LONG - size of resource in file.
;=
;= Errors: Carry set if error, a = error code:
;=   GS/OS errors  Returned unchanged.
;=   resNotFound  The resource was not found.
;=
;= Ext. Refer: None.
;=
;= Entry Points: None.
;=
;================================================================================================
;
LoadAbsResource
;
@resIDIn	equ inputs		Stack offsets.
@resTypeIn	equ @resIDIn+4
@maxSize	equ @resTypeIn+2
@loadAddr	equ @maxSize+4
@result	equ @loadAddr+4
;
@sizeOfRes	equ work		!!! @sizeOfRes must	= work !!!
@openRefNum	equ @sizeOfRes+4
@localSize	equ @openRefNum+2		Size of local direct page.
	IF  (@localSize>maxLocal)	THEN
	AERROR 'DEBUG ERROR - local direct page overflow'
	ENDIF
;
;
	jsr startCall		Allocate direct page, set <data.
;
;
; --- Find the resource.
;
	jsr findGivenRes1		Find resource that was given.
	bcs @ok1		Was the resource found?
	stz <@result		Return NIL size.
	stz <@result+2
	bra @exit		Y = error code, resNotFound.
;
;
; --- Load the resource.
;
; <mapHand = handle	of map.
; <resPtr = pointer	to resource.
;
@ok1	jsr lockMap		Lock the map before	<resPtr moves.
;
	ldy #resSize		Return size of resource, no matter what	is loaded.
	lda [<resPtr],y
	sta <@result
	iny
	iny
	lda [<resPtr],y
	sta <@result+2
;
	ldy #resHandle+2		Save current value in handle field.
	lda [<resPtr],y
	pha
	dey
	dey
	lda [<resPtr],y
	pha
;
	lda <@loadAddr		Was a load address passed?
	ora <@loadAddr+2
	beq @skip1
;
	lda <@loadAddr		Replace field with passed address.
	sta [<resPtr],y
	iny
	iny
	lda <@loadAddr+2
	sta [<resPtr],y
;
@skip1	lda <@maxSize		Pass max size to load.
	ldx <@maxSize+2
	jsr loadRes		Load the resource
	pla		Get saved handle field.
	plx
	phy		Save error code, Memory and GS/OS errors.
	ldy #resHandle		Restore handle field.
	sta [<resPtr],y
	iny
	iny
	txa
	sta [<resPtr],y
	jsr unlockMap		Leave map unlocked.
	ply		Restore error code.
@exit	brl pop14_Err		Strip input parameters and exit, y = error code.
;
	EJECT
;================================================================================================
;=
;= Description: Log	resource converter routine in & out of Resource Manager.
;=
;= Inputs: PUSH:LONG - address of routine, used only if logging in.
;=  PUSH:WORD - type of resource to be converted.
;=  PUSH:WORD - bit	0 = 1 to log in, 1 to log out; bit 2 = 1 if system converter.
;=
;= Outputs: None.
;=
;= Errors: Carry set if error, a = error code:
;=   Memory errors	Returned unchanged.
;=   resDiffConverter  Different converter already logged in the type.
;= Ext. Refer: None.
;=
;= Entry Points: None.
;=
;================================================================================================
;
ResourceConverter
;
@logFlag	equ inputs
@conType	equ @logFlag+2
@conAddr	equ @conType+2
;
@listHand	equ work
@listPtr	equ @listHand+4
@find	equ @listPtr+4
;
@logIn	equ $0001
@sysConvert	equ $0002
;
;
	jsr startCall		Allocate direct page, set <data.
;
	lda <@logFlag		System converter?
	and #@sysConvert
	beq @ok3
;
	ldy #sysConvertList+2	Use system converter list.
	lda [<data],y
	tax
	dey
	dey
	lda [<data],y
	bra @store1
;
;
; --- Get current application's converter list.
;
@ok3	jsr getCurConList		Get handle of application's converter list.
@store1	sta <@listHand
	stx <@listHand+2
;
	lda <@listHand+1		Has one been started yet?
	bne @ok1
;
;
; ------ Allocate a	converted list.
;
	lda <@logFlag		Logging out?
	and #@logIn
	bne @ok5
	brl @exit1		Done if logging out.
@ok5
;
	lda #(convertRecSize*10)+2	Number of bytes to allocate.
	jsr allocateHand1		Allocate a default list.
	bcc @ok4		Error?
	brl @exit2
@ok4	sta <@listHand
	stx <@listHand+2
;
	jsr getCurConList		y = index to where to store in app record.
	lda <@logFlag
	and #@sysConvert
	beq @ok6
	ldy #sysConvertList		Store in global spot.
@ok6	lda <@listHand		Store handle of new	converter list.
	sta [<data],y
	iny
	lda <@listHand+1
	sta [<data],y
;
	jsr @derefList		<@listPtr = (<@listHand).
;
	ldy #convertRecSize*10	Number of bytes allocated.
	lda #0		Initialize list to none used.
@lop1	sta [<@listPtr],y
	dey
	dey
	bne @lop1
;
	lda #10		Initialize number of records.
	sta [<@listPtr]
;
;
; ------ When logging in, first find if	it's already logged in.
;
@ok1	jsr @derefList		<@listPtr = (<@listHand).
;
@tryAgain	lda <@logFlag
	and #@logIn
	beq @findLogOut
;
	lda [<@listPtr]		Get number of records to search.
	tax
	ldy #convertList		Start with first record.
@lop3	lda <@conType		Spot to find.
	cmp [<@listPtr],y
	bne @next3		Is the type already	in this spot?
;
	iny		Is the address of the converter also the same?
	iny
	lda <@conAddr
	cmp [<@listPtr],y
	bne @diffConverter
	iny
	iny
	lda <@conAddr+2
	cmp [<@listPtr],y
	bne @diffConverter		If type and address	same, it's already installed.
	brl @exit1
;
@diffConverter	ldy #resDiffConverter	Return error that a	different convert has the type.
	brl @exit2
;
@next3	tya		Next record.
	clc
	adc #convertRecSize
	tay
	dex Any		more records?
	bne @lop3
;     The type in be installed is not in the list.
	stz <@find		Find an empty spot.
	bra @ok2
;
;
; --- Find entry to	add or delete.
;
@findLogOut	lda <@conType		Find the spot to log out.
	sta <@find
@ok2
;
	lda [<@listPtr]		Get number of records to search.
	tax
	ldy #convertList		Start with first record.
@lop2	lda <@find		Spot to find.
	cmp [<@listPtr],y
	beq @gotit
	tya		Next record.
	clc
	adc #convertRecSize
	tay
	dex		Any more records?
	bne @lop2
;
;
; ------ Grow converter list.
;
	lda <@logFlag		Spot not found.
	and #@logIn
	beq @exit1		Done if trying to log out.
;
	ldy #handSize		Get current size of	list.
	lda [<@listHand],y
	clc
	adc #convertRecSize*10
;
	pea 0		Pass new size.
	pha
	pei <@listHand+2		Pass handle to change.
	pei <@listHand
	_SetHandleSize
	tay		Possible error code.
	bcs @exit2
;
	jsr @derefList		<@listPtr = (<@listHand).
;
	ldy #handSize
	lda [<@listHand],y
	tay
	ldx #convertRecSize*10	Number of bytes to initialize.
	lda #0
	dey
	dey
@lop4	sta [<@listPtr],y
	dey
	dey
	dex
	dex
	bne @lop4
;
	lda [<@listPtr]		Increment number of	records in list.
	clc
	adc #10
	sta [<@listPtr]
	brl @tryAgain		Try to find spot again.
;
;
; --- Add or subtract converter.
;
;  y = index to converter record.
;
@gotit	lda <@logFlag		Log in or out.
	and #@logIn
	bne @install
;
	phy		When logging out, make sure the converters match.
	iny
	iny
	lda [<@listPtr],y
	tax
	iny
	iny
	lda [<@listPtr],y
	ply
;
	cpx <@conAddr
	bne @toDiff
	cmp <@conAddr+2
	beq @ok7
@toDiff	brl @diffConverter
;
@ok7	lda #0		Mark record as avaible.
	sta [<@listPtr],y
	bra @exit1
;
@install	lda <@conType		Install resource type to convert.
	sta [<@listPtr],y
	iny
	iny
	lda <@conAddr		Install address of converter.
	sta [<@listPtr],y
	iny
	iny
	lda <@conAddr+2
	sta [<@listPtr],y
;
@exit1	ldy #0		No error.
@exit2	brl pop8_Err

;------------------------------------------------------
; Dereference local	converter list handle.
;------------------------------------------------------
@derefList	ldy #2
	lda [<@listHand],y
	sta <@listPtr+2
	lda [<@listHand]
	sta <@listPtr
	rts


*********************************************************************************
*
* $2A1E RMFindNamedResource -- new call 10-Mar-91 DAL for 6.0
*
* Inputs:
*   LONG  space for resulting resource ID
*   WORD  resource type
*   LONG  pointer to Pascal name string
*   LONG  pointer to storage for file number
*
* Errors:
*   resNameNotFound $1E10 -- no resource found with specified name
*
*********************************************************************************
RMFindNamedResource

@nameIndex	equ 1
@nameCount	equ @nameIndex+4
@curDepth	equ @nameCount+4
@mapHndl	equ @curDepth+2
@maxDepth	equ @mapHndl+4
@curFile	equ @maxDepth+2
@saveCurrent	equ @curFile+2
@nameHndl	equ @saveCurrent+2
@oldD	equ @nameHndl+4
@rtl	equ @oldD+2
@theFileNum	equ @rtl+6
@theName	equ @theFileNum+4
@whichType	equ @theName+4
@result	equ @whichType+2

	phd
	tsc
	sec
	sbc #@oldD-1
	tcs
	tcd

	pha
	_GetCurResourceFile
	pla
	sta <@saveCurrent
	sta <@curFile

	pha
	pea 1
	_SetResourceFileDepth
	pla
	sta <@maxDepth

	lda #1
	sta <@curDepth

@whileDepth	lda <@curDepth
	cmp <@maxDepth
	beq @continue
	bcc @continue
	ldx #resNameNotFound	;error
	brl @endWhile
@continue
	pha
	pha	;space for LoadResource result
	pea $8014	;rResName
	pea $0001	;high word of resource ID
	pei <@whichType
	_LoadResource
	tax
	ply
	pla
	bcs @tryNextFile

	sta <@nameHndl+2
	sty <@nameHndl
	ldy #2
	lda [<@nameHndl],y
	tax
	lda [<@nameHndl]
	sta <@nameHndl
	stx <@nameHndl+2

	lda [<@nameHndl]	;get version number
	cmp #1
	bne @tryNextFile	;bad format, try next one

	ldy #2	;offset to nameCount field
	lda [<@nameHndl],y
	sta <@nameCount
	iny
	iny
	lda [<@nameHndl],y
	sta <@nameCount+2

	clc
	lda <@nameHndl
	adc #6	;point past the version & count fields
	sta <@nameHndl
	bcc @nhOK
	inc <@nameHndl+2
@nhOK
	stz <@nameIndex
	stz <@nameIndex+2

@srchName	lda <@nameIndex+2
	cmp <@nameCount+2
	bne @compared
	lda <@nameIndex
	cmp <@nameCount
@compared	bcs @tryNextFile

	pei <@theName+2
	pei <@theName
	clc
	lda <@nameHndl
	ldx <@nameHndl+2
	adc #4
	bcc @x
	inx
@x	phx
	pha
	jsr CompareNames
	bne @noMatch
	brl @FoundMatch
@noMatch
	ldy #4	;offset to pstring
	lda [<@nameHndl],y
	and #$00ff
	clc
	ldx <@nameHndl+2
	adc <@nameHndl
	bcc @x2
	inx
@x2	clc
	adc #5	;skip past res id and length byte
	bcc @x3
	inx
@x3	stx <@nameHndl+2
	sta <@nameHndl

	inc @nameIndex
	bne @srchName
	inc @nameIndex+2
	bra @srchName

@tryNextFile	lda <@curDepth
	cmp <@maxDepth
	beq @incDepth

	pha
	pha
	pei <@curFile
	_GetMapHandle
	tax
	ply
	pla
	bcs @endWhile

	sta <@mapHndl+2
	sty <@mapHndl

	ldx #resNameNotFound
	lda <@mapHndl+1
	beq @endWhile	;Map handle NIL?  Will this ever happen?

	ldy #2
	lda [<@mapHndl]
	tax
	lda [<@mapHndl],y
	sta <@mapHndl+2
	stx <@mapHndl

	ldy #2	;mapHndl <-- mapHndl^.mapNext (mapNext is the first field)
	lda [<@mapHndl],y
	tax
	lda [<@mapHndl]
	stx <@mapHndl+2
	sta <@mapHndl

	ldx #resNameNotFound
	lda <@mapHndl+1
	beq @endWhile

	ldy #2
	lda [<@mapHndl]
	tax
	lda [<@mapHndl],y
	sta <@mapHndl+2
	stx <@mapHndl

	ldy #mapID
	lda [<@mapHndl],y
	sta <@curFile
	pha
	_SetCurResourceFile
	tax
	bcs @endWhile

@incDepth	inc <@curDepth
	brl @whileDepth


@FoundMatch	lda <@curFile
	sta [<@theFileNum]

	ldy #2
	lda [<@nameHndl]
	sta <@result
	lda [<@nameHndl],y
	sta <@result+2

	ldx #0	;no error

@endWhile	phx	;save error code

	pei <@saveCurrent
	_SetCurResourceFile

	pha	;space for result
	pei <@maxDepth
	_SetResourceFileDepth
	pla	;ignore result

	plx	;retrieve error code

@exit	clc
	tsc
	adc #@oldD-1
	tcs
	pld
	ldy #10	;number of bytes to strip
	jml $e10184	;ToStrip


CompareNames	phd
	tsc
	tcd

@oldD	equ 1
@rts	equ @oldD+2
@str1	equ @rts+2
@str2	equ @str1+4

	ldx #1
	sep #$30
	lda [@str1]
;;;	cmp [@str1]
	cmp [@str2]	;fixed 2-Apr-92 DAL for 6.1d3
	bne @compared
	tay
@cmp	lda [@str1],y
	cmp [@str2],y
	bne @compared
	dey
	bne @cmp
	rep #$30
	ldx #0	;equal!
@compared	rep #$30	;X=0 if we matched
	pld
	lda 1,s
	sta 1+8,s
	pla
	pla
	pla
	pla
	txa	;set Z flag from X value
	rts


*********************************************************************************
*
* $2B1E RMGetResourceName -- new call 10-Mar-91 DAL for 6.0
*
* Inputs:
*   WORD  resource type
*   LONG  resource ID
*   LONG  pointer to 256-byte Pascal string buffer
*
*********************************************************************************
RMGetResourceName

@nameIndex	equ 1
@nameCount	equ @nameIndex+4
@curDepth	equ @nameCount+4
@mapHndl	equ @curDepth+2
@maxDepth	equ @mapHndl+4
@curFile	equ @maxDepth+2
@saveCurrent	equ @curFile+2
@nameHndl	equ @saveCurrent+2
@oldD	equ @nameHndl+4
@rtl	equ @oldD+2
@theName	equ @rtl+6
@theResID	equ @theName+4
@whichType	equ @theResID+4

	phd
	tsc
	sec
	sbc #@oldD-1
	tcs
	tcd

	pha
	_GetCurResourceFile
	pla
	sta <@saveCurrent
	sta <@curFile

	pha
	pea 1
	_SetResourceFileDepth
	pla
	sta <@maxDepth

	lda #1
	sta <@curDepth

@whileDepth	lda <@curDepth
	cmp <@maxDepth
	beq @continue
	bcc @continue
	ldx #resNameNotFound	;error
	brl @endWhile
@continue
	pha
	pha	;space for LoadResource result
	pea $8014	;rResName
	pea $0001	;high word of resource ID
	pei <@whichType
	_LoadResource
	tax
	ply
	pla
	bcs @tryNextFile

	sta <@nameHndl+2
	sty <@nameHndl
	ldy #2
	lda [<@nameHndl],y
	tax
	lda [<@nameHndl]
	sta <@nameHndl
	stx <@nameHndl+2

	lda [<@nameHndl]	;get version number
	cmp #1
	bne @tryNextFile	;bad format, try next one

	ldy #2	;offset to nameCount field
	lda [<@nameHndl],y
	sta <@nameCount
	iny
	iny
	lda [<@nameHndl],y
	sta <@nameCount+2

	clc
	lda <@nameHndl
	adc #6	;point past the version & count fields
	sta <@nameHndl
	bcc @nhOK
	inc <@nameHndl+2
@nhOK
	stz <@nameIndex
	stz <@nameIndex+2

@srchName	lda <@nameIndex+2
	cmp <@nameCount+2
	bne @compared
	lda <@nameIndex
	cmp <@nameCount
@compared	bcs @tryNextFile

	lda <@theResID
	cmp [<@nameHndl]
	bne @noMatch
	ldy #2
	lda <@theResID+2
	cmp [<@nameHndl],y
	bne @noMatch
	brl @FoundMatch
@noMatch
	ldy #4	;offset to pstring
	lda [<@nameHndl],y
	and #$00ff
	clc
	ldx <@nameHndl+2
	adc <@nameHndl
	bcc @x2
	inx
@x2	clc
	adc #5	;skip past res id and length byte
	bcc @x3
	inx
@x3	stx <@nameHndl+2
	sta <@nameHndl

	inc @nameIndex
	bne @srchName
	inc @nameIndex+2
	bra @srchName

@tryNextFile	lda <@curDepth
	cmp <@maxDepth
	beq @incDepth

	pha
	pha
	pei <@curFile
	_GetMapHandle
	tax
	ply
	pla
	bcs @endWhile

	sta <@mapHndl+2
	sty <@mapHndl

	ldx #resNameNotFound
	lda <@mapHndl+1
	beq @endWhile	;Map handle NIL?  Will this ever happen?

	ldy #2
	lda [<@mapHndl]
	tax
	lda [<@mapHndl],y
	sta <@mapHndl+2
	stx <@mapHndl

	ldy #2	;mapHndl <-- mapHndl^.mapNext (mapNext is the first field)
	lda [<@mapHndl],y
	tax
	lda [<@mapHndl]
	stx <@mapHndl+2
	sta <@mapHndl

	ldx #resNameNotFound
	lda <@mapHndl+1
	beq @endWhile

	ldy #2
	lda [<@mapHndl]
	tax
	lda [<@mapHndl],y
	sta <@mapHndl+2
	stx <@mapHndl

	ldy #mapID
	lda [<@mapHndl],y
	sta <@curFile
	pha
	_SetCurResourceFile
	tax
	bcs @endWhile

@incDepth	inc <@curDepth
	brl @whileDepth


@FoundMatch	clc
	lda <@nameHndl
	adc #4	;point to pstring
	sta <@nameHndl
	bcc @9
	inc <@nameHndl+2
@9	lda [<@nameHndl]
	and #$00ff
	inc a
	pei <@nameHndl+2
	pei <@nameHndl
	pei <@theName+2
	pei <@theName
	pea 0
	pha
	_BlockMove

	ldx #0	;no error

@endWhile	phx	;save error code

	pei <@saveCurrent
	_SetCurResourceFile

	pha	;space for result
	pei <@maxDepth
	_SetResourceFileDepth
	pla	;ignore result

	plx	;retrieve error code

	tsc
	clc
	adc #@oldD-1
	tcs
	pld
	ldy #10	;number of bytes to strip
	jml $e10184	;ToStrip


*********************************************************************************
*
* $2C1E RMLoadNamedResource -- new call 10-Mar-91 DAL for 6.0
*
* Inputs:
*   LONG  space for resulting handle
*   WORD  resource type
*   LONG  pointer to Pascal-string resource name
*
* Errors:
*   resNameNotFound $1E10 -- no resource found with specified name
*   any LoadResource errors
*
*********************************************************************************
RMLoadNamedResource	phd
	pha	;space for @oldDepth
	pha	;space for @oldFile
	pha	;space for @theFile
	tsc
	tcd

@theFile	equ 1
@oldFile	equ @theFile+2
@oldDepth	equ @oldFile+2
@oldD	equ @oldDepth+2
@rtl	equ @oldD+2
@name	equ @rtl+6
@type	equ @name+4
@result	equ @type+2

	stz <@result+2
	stz <@result

	pha
	pha	;space for resource ID
	pei <@type
	pei <@name+2
	pei <@name
	pea 0
	tdc
	clc
	adc #@theFile
	pha	
	_RMFindNamedResource
	tax	;keep error code
	ply
	pla
	bcs @exit

	pha
	pha	;space for LoadResource result
	pei <@type
	pha
	phy	;pushed type and id for LoadResource

	pha	;space for GetCurResourceFile result
	_GetCurResourceFile
	pla
	sta <@oldFile
	pei <@theFile
	_SetCurResourceFile

	pha	;space for SetResourceFileDepth result
	pea 1
	_SetResourceFileDepth
	pla
	sta <@oldDepth

	_LoadResource	;pushed parameters earlier
	tax
	ply
	pla
	bcs @skipResult
	sta <@result+2
	sty <@result
@skipResult	phx	;save error code
	pei <@oldFile
	_SetCurResourceFile
	pha	;space for SetResourceFileDepth result
	pei <@oldDepth
	_SetResourceFileDepth
	pla	;ignore result

	plx	;retrieve LoadResource error, if any

@exit	ply	;remove @theFile
	ply	;remove @oldFile
	ply	;remove @oldDepth
	pld
	ldy #6	;number of bytes to strip
	jml $e10184	;ToStrip


*********************************************************************************
*
* $2D1E RMSetResourceName -- new call 10-Mar-91 DAL for 6.0
*
* Inputs:
*   WORD  resource type
*   LONG  resource ID
*   LONG  pointer to new Pascal-string name
*
*********************************************************************************
RMSetResourceName

@temp	equ 1
@entryLength	equ @temp+4
@nameIndex	equ @entryLength+2
@nameCount	equ @nameIndex+4
@curDepth	equ @nameCount+4
@mapHndl	equ @curDepth+2
@maxDepth	equ @mapHndl+4
@curFile	equ @maxDepth+2
@saveCurrent	equ @curFile+2
@nameHndl	equ @saveCurrent+2	;this becomes a pointer
@realNameHndl	equ @nameHndl+4
@nameID	equ @realNameHndl+4
@targPtr	equ @nameID+4
@nextPtr	equ @targPtr+4
@limitPtr	equ @nextPtr+4
@oldSize	equ @limitPtr+4
@moveCount	equ @oldSize+4
@foundFile	equ @moveCount+4
@oldD	equ @foundFile+2
@rtl	equ @oldD+2
@theName	equ @rtl+6
@whichID	equ @theName+4
@whichType	equ @whichID+4

	phd
	tsc
	sec
	sbc #@oldD-1
	tcs
	tcd

*** added 13-May-91 DAL -- validate type and ID
	lda <@whichType
	beq @bad
	lda <@whichID
	ora <@whichID+2
	bne @good
@bad	ldx #resInvalidTypeOrID
	brl @exit
@good
*** end of 13-May-91 DAL

	pha
	_GetCurResourceFile
	pla
	sta <@saveCurrent
	sta <@curFile

	pha
	pea 1
	_SetResourceFileDepth
	pla
	sta <@maxDepth

	stz <@foundFile

	lda #1
	sta <@curDepth

@whileDepth	lda <@curDepth
	cmp <@maxDepth
	beq @continue
	bcc @continue
	ldx #resNameNotFound	;error
	brl @endWhile
@continue
	pha
	pha	;space for LoadResource result
	pea $8014	;rResName
	pea $0001	;high word of resource ID
	pei <@whichType
	_LoadResource
	tax
	ply
	pla
	bcc @tnf3
	brl @tryNextFile	;HyperCard checks only for $1E06 here--why??
@tnf3
	sta <@realNameHndl+2
	sty <@realNameHndl
	sta <@nameHndl+2
	sty <@nameHndl
	ldy #2
	lda [<@nameHndl],y
	tax
	lda [<@nameHndl]
	sta <@nameHndl
	stx <@nameHndl+2

	lda [<@nameHndl]	;get version number
	cmp #1
	beq @tnf2
	brl @tryNextFile	;bad format, try next one
@tnf2
	ldy #2	;offset to nameCount field
	lda [<@nameHndl],y
	sta <@nameCount
	iny
	iny
	lda [<@nameHndl],y
	sta <@nameCount+2

	clc
	lda <@nameHndl
	adc #6	;point past the version & count fields
	sta <@nameHndl
	bcc @nhOK
	inc <@nameHndl+2
@nhOK

	stz <@nameIndex
	stz <@nameIndex+2

@srchName	lda <@nameIndex+2
	cmp <@nameCount+2
	bne @compared
	lda <@nameIndex
	cmp <@nameCount
@compared	bcc @tnf1
	brl @tryNextFile
@tnf1
*** nextPtr := pointer to the next entry
	ldy #4	;offset to pstring
	lda [<@nameHndl],y
	and #$00ff
	clc
	adc #5
	sta <@entryLength
	ldx <@nameHndl+2
	adc <@nameHndl
	bcc @x2
	inx
@x2	stx <@nextPtr+2
	sta <@nextPtr

	lda <@whichID
	cmp [<@nameHndl]
	bne @noMatch
	lda <@whichID+2
	ldy #2
	cmp [<@nameHndl],y
	bne @noMatch
	beq @FoundMatch
@noMatch
	lda <@nextPtr+2
	sta <@nameHndl+2
	lda <@nextPtr
	sta <@nameHndl

	inc @nameIndex
	bne @srchName
	inc @nameIndex+2
	bra @srchName

*** found an entry for the right ID--remove it
*** (If there is only one entry in this rResName resource, remove the resource)
@FoundMatch	ldy #2
	lda [<@realNameHndl],y
	sta <@temp+2
	lda [<@realNameHndl]
	sta <@temp

	ldy #4
	lda [@temp],y
	bne @notJustOne
	dey
	dey
	lda [@temp],y
	dec a	;just one?
	bne @notJustOne

	pea $8014	;rResName
	pea $0001	;high word of resource ID
	pei <@whichType
	_RemoveResource
	brl @tryNextFile

@notJustOne	sec	;decrement nameCount field in rResName resource
	ldy #2
	lda [<@temp],y
	sbc #1
	sta [<@temp],y
	bcs @tempOK
	iny
	iny
	lda [<@temp],y
	dec a
	sta [<@temp],y
@tempOK

*** remove entry from the rResName handle & mark it changed
	pha
	pha	;space for GetHandleSize
	pei <@realNameHndl+2
	pei <@realNameHndl
	_GetHandleSize
	pla
	sta <@oldSize
	pla
	sta <@oldSize+2
*** limitPtr := realNameHndl^ + oldSize;
	clc
	ldy #2
	lda [<@realNameHndl]
	adc <@oldSize
	sta <@limitPtr
	lda [<@realNameHndl],y
	adc <@oldSize+2
	sta <@limitPtr+2
*** moveCount := limitPtr - nextPtr;
	sec
	lda <@limitPtr
	sbc <@nextPtr
	sta <@moveCount
	lda <@limitPtr+2
	sbc <@nextPtr+2
	sta <@moveCount+2
*** if moveCount<>0 then BlockMove(nextPtr,nameHndl,moveCount)
	lda <@moveCount
	ora <@moveCount+2
	beq @noMove
	pei <@nextPtr+2
	pei <@nextPtr
	pei <@nameHndl+2
	pei <@nameHndl
	pei <@moveCount+2
	pei <@moveCount
	_BlockMove
@noMove
*** SetHandleSize(oldsize-(nextPtr-nameHndl),realNameHndl)
*** The delta size is @entryLength
	lda <@oldSize
	ldx <@oldSize+2
	sec
	sbc <@entryLength
	bcs @xok
	dex
@xok	phx
	pha
	pei <@realNameHndl+2
	pei <@realNameHndl
	_SetHandleSize

	pea $ffff	;true
	pea $8014	;rResName
	pea $0001	;high word of resource ID
	pei <@whichType
	_MarkResourceChange

@tryNextFile	pha
	pei <@whichType
	pei <@whichID+2
	pei <@whichID
	_GetResourceAttr
	tax
	pla	;attributes (ignore)
	bcs @notInThisFile
	lda <@curFile
	sta <@foundFile
	bra @InsertNewName
@notInThisFile
	lda <@curDepth
	cmp <@maxDepth
	beq @incDepth

	pha
	pha
	pei <@curFile
	_GetMapHandle
	tax
	ply
	pla
	bcs @endWhile

	sta <@mapHndl+2
	sty <@mapHndl

	lda <@mapHndl+1
	beq @endWhile	;Map handle NIL?  Will this ever happen?

	ldy #2
	lda [<@mapHndl]
	tax
	lda [<@mapHndl],y
	sta <@mapHndl+2
	stx <@mapHndl

	ldy #2	;mapHndl <-- mapHndl^.mapNext (mapNext is the first field)
	lda [<@mapHndl],y
	tax
	lda [<@mapHndl]
	stx <@mapHndl+2
	sta <@mapHndl

	lda <@mapHndl+1
	beq @endWhile

	ldy #2
	lda [<@mapHndl]
	tax
	lda [<@mapHndl],y
	sta <@mapHndl+2
	stx <@mapHndl

	ldy #mapID
	lda [<@mapHndl],y
	sta <@curFile
	pha
	_SetCurResourceFile
	tax
	bcs @endWhile

@incDepth	inc <@curDepth
	brl @whileDepth

@endWhile		;this is label "3" in the HCGS source
@InsertNewName	lda [<@theName]
	and #$00ff
	bne @nonNullName
	brl @nullName
@nonNullName
	ldx #resNotFound	;resource doesn't exist ($1E06)
	lda <@foundFile
	bne @mapOK1
	brl @outtaHere
@mapOK1
	pei <@foundFile
	_SetCurResourceFile
	tax
	bcc @scrfOK
	brl @outtaHere
@scrfOK
*** nameHndl := LoadResource(rResName, ...)
	pha
	pha	;space for LoadResource result
	pea $8014	;rResName
	pea $0001	;high word of resource ID
	pei <@whichType
	_LoadResource
	tax
	pla
	sta <@nameHndl
	pla
	sta <@nameHndl+2
	bcs @doesntExist
	brl @exists
@doesntExist
*** the rResName resource we want doesn't exist, so create it
	pha
	pha	;space for NewHandle result
	lda [<@theName]
	and #$00ff
	clc
	adc #11
	pea 0
	pha	;handle size
	pha	;space for GetCurResourceApp
	_GetCurResourceApp	;use this for memory ID of new handle
	pea 0	;attributes
	pha
	pha	;location (ignored)
	_NewHandle
	tax
	ply
	pla
	bcc @gotNewHndl
	brl @outtaHere	;return possible error in X
@gotNewHndl
	sta <@nameHndl+2
	sty <@nameHndl
	ldy #2
	lda [<@nameHndl]
	sta <@temp
	lda [<@nameHndl],y
	sta <@temp+2

	lda #$0001	;rResName format version
	sta [<@temp]
	ldy #2
	sta [<@temp],y	;low word of nameCount field
	iny
	iny
	dec a
	sta [<@temp],y	;ZERO--high word of nameCount
	iny
	iny
	lda <@whichID
	sta [<@temp],y
	iny
	iny
	lda <@whichID+2
	sta [<@temp],y

	pei <@theName+2
	pei <@theName	;source
	clc
	lda <@temp
	adc #10
	tax
	lda <@temp+2
	adc #0
	pha
	phx	;dest (offset 10 in new handle)
	lda [<@theName]
	and #$00ff
	inc a
	pea 0
	pha	;length
	_BlockMove

	pei <@nameHndl+2
	pei <@nameHndl
	pea 0	;resource attributes
	pea $8014	;rResName
	pea $0001	;high word of rResName resource ID
	pei <@whichType
	_AddResource
	tax	;return possible error
	bra @outtaHere0

*** insert name into existing rResName resource

@exists	ldy #2
	lda [<@nameHndl]
	sta <@temp
	lda [<@nameHndl],y
	sta <@temp+2
	lda [<@temp]	;check rResName format version
	ldx #resBadNameVers	;anticipate bad rResName format version
	cmp #$0001
	bne @outtaHere0

*** oldSize := GetHandleSize(nameHndl)
	pha
	pha
	pei <@nameHndl+2
	pei <@nameHndl
	_GetHandleSize
	pla
	sta <@oldSize
	pla
	sta <@oldSize+2

*** SetHandleSize -- grow nameHndl by name length + 5
	clc
	lda [<@theName]
	and #$00ff
	adc #5
	adc <@oldSize
	tax
	lda <@oldSize+2
	adc #0
	pha
	phx
	pei <@nameHndl+2
	pei <@nameHndl
	_SetHandleSize
	tax
	bcc @grewHandle	;return possible error
@outtaHere0	brl @outtaHere

*** Find the right place for the new entry to go (@temp)
@grewHandle	stz <@nameIndex
	stz <@nameIndex+2
	ldy #2
	lda [<@nameHndl],y
	sta <@temp+2
	lda [<@nameHndl]
	sta <@temp	;deref nameHndl to temp

	lda [<@temp],y	;Y is still 2
	sta <@nameCount
	iny
	iny
	lda [<@temp],y
	sta <@nameCount+2

	clc	;point @temp at the entries
	lda <@temp
	adc #6
	sta <@temp
	bcc @t2
	inc <@temp+2
@t2

@searchForEnd	lda <@nameCount
	cmp <@nameIndex
	bne @notAtEnd
	lda <@nameCount+2
	cmp <@nameCount+2
	beq @foundTheEnd
@notAtEnd	ldy #4	;offset to pstring in one entry
	lda [<@temp],y
	and #$00ff
	clc
	adc #5
	adc <@temp
	sta <@temp
	bcc @t3
	inc <@temp+2
@t3	inc <@nameIndex
	bne @searchForEnd
	inc <@nameIndex+2
	bne @searchForEnd

@foundTheEnd

*** fill in whichID and name
	lda <@whichID
	sta [<@temp]
	ldy #2
	lda <@whichID+2
	sta [<@temp],y

	pei <@theName+2
	pei <@theName	;source
	clc
	ldx <@temp+2
	lda <@temp
	adc #4
	bcc @t1
	inx
@t1	phx
	pha	;dest
	lda [<@theName]
	and #$00ff
	inc a
	pea 0
	pha	;length
	_BlockMove

*** increment the name count
	ldy #2
	lda [<@realNameHndl],y
	sta <@temp+2
	lda [<@realNameHndl]
	sta <@temp

	lda [<@temp],y	;low word of name count
	inc a
	sta [<@temp],y
	bne @ncOK
	iny
	iny
	lda [<@temp],y
	inc a
	sta [<@temp],y
@ncOK

*** mark the rResName resource changed
	pea $ffff	;true
	pea $8014	;rResName
	pea $0001	;high word of rResName ID
	pei <@whichType
	_MarkResourceChange
	tax
	bra @outtaHere


@nullName	ldx #0	;no error
@outtaHere	phx	;save error code

	pei <@saveCurrent
	_SetCurResourceFile

	pha	;space for result
	pei <@maxDepth
	_SetResourceFileDepth
	pla	;ignore result

	plx	;retrieve error code

@exit	clc
	tsc
	adc #@oldD-1
	tcs
	pld
	ldy #10	;number of bytes to strip
	jml $e10184	;ToStrip


*********************************************************************************
*
* $2E1E OpenResourceFileByID -- new call 14-Jul-92 DAL for 6.0.1
*
* Inputs:
*   WORD  Space for old curResourceApp
*   WORD  requested access
*   WORD  user ID
*
* This call tries to start the Resource Manager for you--if it's a dupStartup,
* that's okay, we don't care.  (We still make you the current resource app.)
*
* Then it finds out your pathname using LGetPathname2 and calls OpenResourceFile
* for you.
*
* The return value is the old curResourceApp, *not* the fileID we just opened.
*
*********************************************************************************
OpenResourceFileByID

@oldD	equ 1
@rtl	equ @oldD+2
@userID	equ @rtl+6
@reqAccess	equ @userID+2
@oldCurApp	equ @reqAccess+2

	phd
	tsc
;;;	sec
;;;	sbc #@oldD-1
;;;	tcs
	tcd

	pea 0	;paranoia
	_GetCurResourceApp
	pla
	sta <@oldCurApp	;always return valid oldCurApp

	pei <@userID
	_ResourceStartUp	;resDupStartUp error is okay

	pei <@userID
	_SetCurResourceApp
	bcs @error	;error here is not okay

	pha
	pha	;space for LGetPathname2
	pei <@userID
	pea 1	;file number
	_LGetPathname2
	plx
	ply
	bcs @error

	pha	;space for OpenResourceFile
	pei <@reqAccess
	lda #0
	pha
	pha	;map pointer = NIL
	phy
	phx	;name from LGetPathname2
	_OpenResourceFile
	plx	;discard resulting fileID
	bcs @error

@noError	lda #0

@error	tax
;;;	clc	;error code in X
;;;	tsc
;;;	adc #@oldD-1
;;;	tcs
	pld
	ldy #4	;number of bytes to strip
	jml $e10184	;ToStrip

;================================================================================================
;=
;= Description: Walks the specified resource file, removing all free spaces
;=              except the last. The last is a special indicator of the maximum
;=              size the file can grow to, so it's not actual space on disk.
;=
;=              For each free block in the file, all resources below it (toward
;=              the EOF) until the next free block are moved toward the start of
;=              the file. If the file map falls within one of the ranges to be moved,
;=              it will be relocated, and the file header will be updated to indicate
;=              its new location.
;=
;=
;= Inputs: PUSH:WORD - flags.
;=         PUSH:WORD - fileID.
;=
;=         The parameter 'fileID' is a fileID of an open resource file in the current
;=         application's search path. All bits in the flags word are currently reserved and
;=         must be set to zero.
;=                  
;=         NOTE: In this version, the file must be opened for reading
;=               and writing. No checking is made to ensure that it can be
;=               written to.
;=                  
;=
;= Errors: Carry set if error, Accumulator = error code:
;=
;=       resFileNotFound - the specified resource file was not found
;=       invalidAccess - if the file is not opened with write access
;=       GS/OS errors - return unchanged
;=       Memory Manager errors - return unchanged
;=                   
;= Ext. Refer: None.
;=
;= Entry Points: None.
;=
;================================================================================================

	IF JimsExperiment THEN

CompactResourceFile	NAME

readWriteBufSize	equ 16*1024

@fileID	equ inputs		;caller inputs on stack
@flags	equ @fileID+2

@theFileID	equ work		;used by findFileID
@recordsToWalk	equ @theFileID+2
@bytesThisChunk	equ @recordsToWalk+2	;MUST be here to use fileRead1
@blockSize	equ @bytesThisChunk+4
@moveRangeStart	equ @blockSize+4		;also used as dest file mark
@sourceFileMark	equ @moveRangeStart		;alias used by crunch write code
@moveRangeEnd	equ @moveRangeStart+4	;also used as source file mark
@destFileMark	equ @moveRangeEnd+4
@bufferHand	equ @destFileMark+4
@bytesToMove	equ @bufferHand+4
@localSize	equ @bytesToMove+4		;size of local direct page

	IF  (@localSize>maxLocal)	THEN
	AERROR 'DEBUG ERROR - local direct page overflow'
	ENDIF
	
	jsr startCall		;allocate direct page, set <data

                    stz <@bufferHand+1

                    stz <@bytesThisChunk+2	;never larger than 64K

	lda <@fileID		;the file to compact is referenced via open file ID
	jsr findFileID		;find the map that matches the given file ID (in Acc)
	bcc @canWeWrite		;found the file, see if we can write to it

@exitCannotWrite	brl @exitWithErrorY		;not found? y = resFileNotFound

@canWeWrite	jsr isFileWriteable		;can we eventually write to this file?
	bcs @exitCannotWrite	; apparently not (returns invalidAccess error)
	
	jsr lockMap

	jsr setFileRefNum		;update PBs refNum for this file

	ldy #mapFileNum		;pass the file ref num to the read code
	lda [<mapPtr],y
	ldy #readBlock+readRefNum
	sta [<data],y       
                    ldy #EOFBlock+EOFRefNum 	;and also to the EOF code
                    sta [<data],y

* If the number of used entries in the free list is only one, then we assume
* that it's the final entry which indicates the maximum EOF. If it is only one,
* then we have nothing to do. Actually, we do have something to do. We need to
* set the EOF to the offset of this special free block. That way, if a resource
* was deleted from the end of the file with RemoveResource, we shrink the EOF
* to account for its removal.

	ldy #mapFreeListUsed
	lda [<mapPtr],y		;how many entries?
	dec a		; just one?
                    beq @shrinkTheEOF

	sta <@recordsToWalk		;number of free records to process

* Just so we don't waste any time, let's see if we can get a block for our
* read/write buffer. If we can't, then there is no reason to waste time trying
* to move the free blocks, because we won't have a transfer buffer anyway.

	lda #readWriteBufSize
	jsr allocateHand1
	bcc @gotBufferOK
	
	brl @exitWithErrorAcc

@gotBufferOK	sta <@bufferHand
	stx <@bufferHand+2

	ldy #handAttr		;lock down our buffer
	lda [<@bufferHand],y
	ora #attrLocked
	sta [<@bufferHand],y

* Get the offset (file mark) to the free block we want to remove. Since we
* delete the free blocks as we loop through, the current free block is always
* the first in the list.

@doThisFreeBlock	ldy #mapFreeList+blkOffset 	;start with the first free block
	jsr getMapLong
	sta <@moveRangeStart
	sta <@destFileMark
	stx <@moveRangeStart+2
	stx <@destFileMark+2

* Calculate blockOffset+blockSize. This is the beginning search range for the
* resources that we need to move up toward the top of the file (away from the
* EOF).

	ldy #mapFreeList+blkSize
	jsr getMapLong
	sta <@blockSize
	clc
	adc <@moveRangeStart
	sta <@moveRangeStart
	txa
	sta <@blockSize+2
	adc <@moveRangeStart+2
	sta <@moveRangeStart+2

* Now we calculate the end search range. This is the start offset of the next
* free block in the list.

	ldy #mapFreeList+blkRecSize+blkOffset
	jsr getMapLong
	sta <@moveRangeEnd
	stx <@moveRangeEnd+2

* Now that we have the resource move bounds, walk the entire resource reference
* list, moving the resources up as necessary. We'll actually move the entire
* disk chunk up in one move, but we still need to update the new offsets into
* each resource reference record that falls within the range. We need to walk
* the entire resource list because resources are ordered by increasing type and
* ID, not offset into file. We never can tell when a resource will fall within
* our search range unless we actually look at it. After we're done with the
* resources, we also do something similar for the map.

@findResourceToMove	lda #@moveResInRange	;pass routine to call
	jsr WalkResources		;walk every resource in the map

	jsr @moveMapInRange

	jsr @crunchDiskFreeSpace 	;remove this hole on disk
	bcs @exitCompactFile

* I need to essentially cascade the newly freed space down the free list so it
* will finally be added to the EOF free block. We need to increase its blkSize
* by the size of this block, and decrease its blkOffset by the same amount.

@crunchWasSuccessful lda <@blockSize
	ldx <@blockSize+2
	ldy #mapFreeList+blkRecSize+blkOffset
	jsr subToMapLong2

	lda <@blockSize
	ldx <@blockSize+2
	ldy #mapFreeList+blkRecSize+blkSize
	jsr addToMapLong2

	ldy #mapFreeList		;always delete the first block
	jsr deleteBlock		;delete the block indexed in Y

	dec <@recordsToWalk
	bne @doThisFreeBlock	;more blocks to move

@fixupHeader	jsr @setNewMapOffset	;write file header to disk
	bcs @exitCompactFile

	jsr markDirtyMap		;mark map as needing to be updated

* Ok. We're done moving the data up and the free blocks out. To finally reclaim
* the lost space we need to shrink the EOF by the number of bytes we removed.

@shrinkTheEOF	ldy #mapFreeList+blkOffset
	jsr getMapLong		;get in x/a

	ldy #EOFBlock+EOFDisplacement
	sta [<data],y
	iny
	iny
	txa
	sta [<data],y

	jsr pushEOFBlock
	PushWord #SET_EOF
	jsl GS_OS

@exitCompactFile	pha		;save possible error code

	jsr unlockMap		;leave map unlocked

                    lda <@bufferHand+1		;did we allocate a file buffer?
                    beq @exitCompactFile2	; apparently not, so don't dispose it

                    pei <@bufferHand+2		;nuke our read/write buffer block
	pei <@bufferHand
	_DisposeHandle
	
@exitCompactFile2	pla		;restore the original error, if any

@exitWithErrorAcc	tay

@exitWithErrorY	brl pop4_Err		;strip input parameters and exit

********************************************************************************
*
* CrunchDiskFreeSpace - NOTE: Although <bytesThisChunk is a long, we never will
*                             try to read more than 16K in the current
*                             implementation. Since this is less than 64K, we
*                             can simplify some math below.
*

@crunchDiskFreeSpace NAME

	lda <@moveRangeEnd
	sec
	sbc <@moveRangeStart
	sta <@bytesToMove
	lda <@moveRangeEnd+2
	sbc <@moveRangeStart+2
	sta <@bytesToMove+2
	
* First we set the file mark to the beginning of the chunk of data that we need
* to start reading at. As we move through this chunk, the mark will move toward
* the EOF.

@moveNextSubChunk	lda <@sourceFileMark
	ldx <@sourceFileMark+2
	jsr setFileMark2		;set absolute file mark to source chunk
	bcs @exitMoveChunk

* Let's see if we can read the entire move range into our buffer. If we can't,
* we need to do it in chunks no larger than 16K.

	ldx <@bytesToMove+2
	bne @useFullBuffer		;we can't read more than 16K

	lda <@bytesToMove
	cmp #readWriteBufSize+1
	blt @setRequestCount

@useFullBuffer	lda #readWriteBufSize

@setRequestCount	sta <@bytesThisChunk

	ldy #2		;give the read code a dest pointer
	lda [<@bufferHand],y
	tax
	lda [<@bufferHand]
	jsr fileRead1		;read this part of the chunk
	bcs @exitMoveChunk

	lda <@destFileMark
	ldx <@destFileMark+2	;destination towards the top of the file
	jsr setFileMark2		;set absolute file mark to dest chunk
	bcs @exitMoveChunk

	pha		;if we got no error above, a=0 (saves a byte)
	pei <@bytesThisChunk
	ldy #2		;give the write code a pointer
	lda [<@bufferHand],y
	tax
	lda [<@bufferHand]
	jsr fileWrite2
	bcs @exitMoveChunk

* Setup the value for the next write displacement.

	lda <@destFileMark
	clc
	adc <@bytesThisChunk
	sta <@destFileMark

	bcc @calcNextReadMark

	inc <@destFileMark+2

* Now setup the value for the next read displacement.

@calcNextReadMark	lda <@sourceFileMark
	clc
	adc <@bytesThisChunk
	sta <@sourceFileMark

	bcc @checkRemainingBytes

	inc <@sourceFileMark+2

* Now lets figure out if we have any more bytes to read and write.

@checkRemainingBytes lda <@bytesToMove
	sec
	sbc <@bytesThisChunk
	sta <@bytesToMove

	bcs @checkForZippy

	dec <@bytesToMove+2

@checkForZippy	ora <@bytesToMove+2
	bne @moveNextSubChunk

	clc

@exitMoveChunk	rts

;----------------------------------------------------------------------
; Updates resource offsets if the resource is within the specified range.
;----------------------------------------------------------------------
;
;   IN: <mapPtr = pointer to locked map.
; <mapHand = handle	of locked map.
; <resPtr = pointer	to resource to check.
; <moveRangeStart = beginning of search range
; <moveRangeEnd = end of range to search
;
;  OUT: Carry is always clear.
;
@moveResInRange	NAME

	ldy #resOffset+2
	lda [<resPtr],y
	tax
	dey
	dey
	lda [<resPtr],y

	jsr @generalBoundsCompare
	bcs @checkNextResource

* This resource has fallen within the move range. We need to update its
* resOffset field. The new value is: resOffset - blockSize.

	lda [<resPtr],y		;resOffset
	sec
	sbc <@blockSize
	sta [<resPtr],y
	iny
	iny
	lda [<resPtr],y		;resOffset+2
	sbc <@blockSize+2
	sta [<resPtr],y

@checkNextResource	clc		;force the entire file to be searched

	rts

********************************************************************************
*
*
*

@generalBoundsCompare NAME

* Check if less than start offset

	cpx <@moveRangeStart+2
	blt @notInRange
	bne @checkRangeLow

	cmp <@moveRangeStart
	blt @notInRange

* Check if greater than the end offset

@checkRangeLow	cpx <@moveRangeEnd+2
	blt @withinRange
	bne @notInRange

	cmp <@moveRangeEnd
	blt @withinRange
	bge @notInRange

@withinRange	clc

	rts

@notInRange	sec

	rts

********************************************************************************
*
*
*

@moveMapInRange	NAME

	ldy #mapOffset
	jsr getMapLong		;get in x/acc

	jsr @generalBoundsCompare
	bcs @mapNotInRange

;	ldy #mapOffset		;contains proper val from above
	lda [<mapPtr],y		;mapOffset
	sec
	sbc <@blockSize
	sta [<mapPtr],y
	iny
	iny
	lda [<mapPtr],y		;mapOffset+2
	sbc <@blockSize+2
	sta [<mapPtr],y

@mapNotInRange	rts

********************************************************************************
*
*
*

@setNewMapOffset	NAME

* %%% This code was ripped from allocateFileMap, so it might be able to become a util sub. Or not.

	lda #rFileToMap		;mark low
	ldx #^rFileToMap		;always zero
	phx		;bytes to write high
	jsr setFileMark2

	PushWord #8		;bytes to write
	ldx <mapPtr+2
	lda <mapPtr
	clc
	adc #mapOffset
	bcc @noInc

	inx

@noInc	jsr fileWrite2

	rts

	ENDIF		;JimsExperiment


;********************************************************************************
;   Debugging routines.
;********************************************************************************

	IF  deBug THEN

	INCLUDE 'resDebugCode.a'

	ENDIF


;*******************************************************************************************
;**
;**   Resource Manager common routines.
;**
;*******************************************************************************************

;=======================================================
; Verify that we have read/write access on the current file
;=======================================================
;
;   IN: <mapPtr = pointer to map to be written.
;
;  OUT: Carry set if we can't write, y = invalidAccess.
; Carry clear if file was opened read/write.
;
; NOTE: The X-Register is preserved across this function; the Accumulator and Y-Registers are destoryed.
;
isFileWriteable	NAME

	ldy #mapFlag		;we'll check bit 0 - fileReadWrite
	lda [<mapPtr],y
	
	ldy #invalidAccess		;get an error code ready (only valid if carry is set)
	
	eor #$0001		;its state is opposite that of the carry which 
	lsr a		; we return it in

	rts

;=======================================================
; Make sure there are enough free records.
;=======================================================
;
;  OUT: Carry set if error, y = error code.
; Carry clear if enough records, y = TRUE if map had to be grown for new records.
;
ckFreeRecords	ldy #mapFreeListUsed	Are there at least 6 spots available?
	lda [<mapPtr],y
	clc
	adc #5
	ldy #mapFreeListSize
	cmp [<mapPtr],y
	bcs @grow
	ldy #0		Map didn't grow.
	clc Enough		records.
	rts
;
@grow	jsr growFreeList		Resize map, insert zeros.
	bcs @errorExit		Error?
	ldy #1		Map had to be grown.
@errorExit	rts


;=================================
; Write map to disk.
;=================================
;
;   IN: <mapPtr = pointer to map to be written.
; <mapHand = handle	of map.
;
writeMap

;
; ------ Reallocate	map in file if size	changed.
;
	ldy #mapOffset		;Check if map is currently allocated in file.
	lda [<mapPtr],y
	iny
	iny
	ora [<mapPtr],y
	bne @ok1

	ldy #handSize+2		;Reallocate map in file.
	lda [<mapHand],y		;Pass new size.
	tax
	dey
	dey
	lda [<mapHand],y
	jsr allocateFileMap		;Allocate space in file for map.
@ok1

;
; ------ Set file position mark.
;
	ldy #mapOffset		;Pass offset of map in file.
	jsr getMapLong		;x/a = mapOffset field.
	jsr setFileMark2		;Set file mark to write pos (absolute displacement).
	bcc @ok2
	tay		;Put possible error code in Y for return.
	rts

;
; ------ Do write.
;
@ok2	ldy #mapSize		;Pass index to field to push.
	jsr pushMapLong		;Push mapSize field, number of bytes to write.
	ldx <mapPtr+2		;Pass pointer to data to write.
	lda <mapPtr
	jsr fileWrite2		;Write map to file.	File is dead if this fails.
;
;
; --- FALL THROUGH:	Set mapChanged bit to 'not changed'.
;
;
;---------------------------------------------------------------------------------------------
; Clear map dirty bit to show map is unchanged and need not	be written to disk.
;---------------------------------------------------------------------------------------------
;
;   IN: <mapPtr = pointer to dirty map.
;
;  OUT: None.
;
markCleanMap	ldy #mapFlag
	lda [<mapPtr],y
	and #_mapChanged		;Set dirty bit in map's flag.
	sta [<mapPtr],y
	ldy #0
	clc
	rts


;============================================================
; Get index to current converter list handle.
;============================================================
;
;  OUT: y = index to current converter list.
; x/a = handle of current converter list.
;
getCurConList	ldy #curApp		;Compute index to current converter list	handle.
	lda [<data],y
	clc
	adc #appConverters+2
	tay
	lda [<data],y		;Return handle of current converter list.
	tax
	dey
	dey
	lda [<data],y
	rts


;===============================================================
; Walk every open file starting with first file.
;===============================================================
;
;   IN: a = address	of routine to call for each file.
;
;  OUT: Carry set if walk aborted.
;
walkAllFiles	pha

	lda #$FFFF		;Search all.
	jsr setFileDepth
	plx
	pha		;Save original depth.

	txa		;Pass routine to call.
	jsr walkMapsFirst

	pla		;Restore file depth.
	php		;Save carry flag.
	phy		;Save Y.
	jsr setFileDepth
	ply 		;Restore Y.
	plp		;Restore carry flag.
	rts
;
;
;================================================================================================
;  Count number of different types in open files.
;================================================================================================
;
;  OUT: Carry set if error, y = Memory Manager error code.
; Carry clear if no	error:
;  <work = number of different tyeps.
;  <work+2 = handle	of hash table.
;  <work+6 = pointer to hash table.
;
countResTypes
;
@numOfTypes	equ work
@hashHandle	equ @numOfTypes+2
@hashPtr	equ @hashHandle+4
;
;
; --- Allocate hash	table.
;
	lda #8*1024		Allocate 64k bit table.
	jsr allocateHand1
	bcs @exit
	sta <@hashHandle		Store handle of hash table.
	stx <@hashHandle+2
;
	ldy #2		Dereference handle.
	lda [<@hashHandle],y
	tax
	lda [<@hashHandle]
	sta <@hashPtr
	stx <@hashPtr+2
;
	ldy #(8*1024)-2		Zero hash table.
	lda #0
@lop1	sta [<@hashPtr],y
	dey
	dey
	bpl @lop1
;
	stz <@numOfTypes		Start with no types.
;
;
; --- Build type hash table.
;
	lda #@count1
	jsr walkMapsCur		Count, starting in current file.
;     No error, clear carry from walkMapsFirst.
@exit	rts
;
;
;-------------------------------------------
; Build types hash table.
;-------------------------------------------
;
;   IN: <@hashPtr =	pointer to hash table.
;
@count1	lda #@count2
	brl walkResources
;
@count2	lda [<resPtr]		Get type.
	lsr a		Compute index to byte.
	lsr a
	lsr a
	tay
	lda [<resPtr]		Compute index to bit.
	and #$0007
	tax
	sep #$20
	LONGA OFF
	lda [<@hashPtr],y		Has this type already been counted?
	and bits,x
	bne @skip100
	lda [<@hashPtr],y
	ora bits,x
	sta [<@hashPtr],y
;
	ldx <@numOfTypes		Increment number of	different types.
	inx
	stx <@numOfTypes
;
@skip100	rep #$20
	LONGA ON
	clc		;Continue walk.
	rts


;================================================================================================
; Free hash table.
;================================================================================================
;
;   IN: <work+2 = handle of hash table.
;
freeTypeHash	pei <work+4		Pass handle of hash	table.
	pei <work+2
	_DisposeHandle
	rts


;================================================================================================
; Get read flag.
;================================================================================================
;
;  OUT: BNE if reading on.
; a = original value.
;
getReadFlag	lda #$FFFF
;
;
;------------------------------------------------------------------------------------------------
; Set new read flag.
;------------------------------------------------------------------------------------------------
;
;   IN: a = new flag, negative to just return current value.
;
;  OUT: a = original value.
; BNE if reading on.
;
setReadFlag	pha		;Save given.
;
	ldy #curApp		;Save current.
	lda [<data],y
	clc
	adc #appReadFlag
	tay
	lda [<data],y
	tax
	pla
	bmi @exit		;Just return value?
	sta [<data],y		;Store new value.
@exit	txa		;Return original value.
	rts
;
;
;================================================================================================
; Get search file depth.
;================================================================================================
;
;  OUT: a = number of files to search.
;
getFileDepth	lda #0		Just return value.
;
;
;------------------------------------------------------------------------------------------------
; Set new file depth.
;------------------------------------------------------------------------------------------------
;
;   IN: a = new depth, 0 to just return	current value.
;
;  OUT: a = original depth.
;
setFileDepth	pha		;Save given.
;
	ldy #curApp		;Save current.
	lda [<data],y
	clc
	adc #appFileDepth
	tay
	lda [<data],y
	tax
	pla
	beq @exit		;Just return value?
	sta [<data],y		;Store new value.
@exit	txa		;Return original value.
	rts


;================================================================================================
; Load a resource.
;================================================================================================
;
;   IN: x/a = max size to load.
; <resPtr = pointer	to resource, map must be locked.
; <mapPtr = pointer	to resource's locked map.
;
;  OUT: x/a = handle of loaded resource, NIL if none.
; If reading resources is off:
;  Resource handle returned if already read into memory.
;  Purged handle returned if read into memory but purged.
;  Empty handle returned if resource not yet read into memory.
; Carry set if error, y = Memory Manager errors, GS/OS errors.
;
loadRes
;
@resHand	equ work		Local direct page use.
@sizeOfRes	equ @resHand+4		!!!Must be work+4!!!!
@openRefNum	equ @sizeOfRes+4
@localSize	equ @openRefNum+2		Size of local direct page.
	IF  (@localSize>maxLocal)	THEN
	AERROR 'DEBUG ERROR - local direct page overflow'
	ENDIF
;
;
	sta <@resHand		Temp save place for	max load size.
	stx <@resHand+2
;
	ldy #resSize+2		Get resource size, common need.
	lda [<resPtr],y
	sta <@sizeOfRes+2
	dey
	dey
	lda [<resPtr],y
	sta <@sizeOfRes
;
;
; --- Check if handle field is an absolute address.
;
	ldy #resAttr		Does resource have an absolute address?
	lda [<resPtr],y
	and #resAbsLoad
	beq @ok3
;
	lda <@sizeOfRes+2		If max size is smaller than resource size,
	cmp <@resHand+2		only load max size.
	bcc @ok5
	bne @loadMax
	lda <@sizeOfRes
	cmp <@resHand
	bcc @ok5
@loadMax	lda <@resHand
	sta <@sizeOfRes
	lda <@resHand+2
	sta <@sizeOfRes+2
;
@ok5	ldy #resHandle+2		Pass absolute address of resource.
	lda [<resPtr],y
	tax
	dey
	dey
	lda [<resPtr],y
	brl readRes
;
;
; --- Check if the resource already loaded.
;
@ok3	ldy #resHandle+1		Does it have a valid handle?
	lda [<resPtr],y
	beq @allocateIt
	iny
	lda [<resPtr],y
	sta <@resHand+2		Return possible handle.
	dey
	dey
	lda [<resPtr],y
	sta <@resHand
;
	jsr getReadFlag
	bne @ok1		Reading off?
	brl @exit		Done if reading is off.
;
;
; --- Reallocate the purged handle.
;
@ok1	ldy #handPointer+1		Has the resource been purged?
	lda [<@resHand],y
	beq @ok2
	brl @exit		If not, resource is	ready.
;
@ok2	pei <@sizeOfRes+2		Pass number of bytes to allocate.
	pei <@sizeOfRes
	ldy #curApp		Pass user's ID.
	lda [<data],y
	clc
	adc #appID
	tay
	lda [<data],y
	pha
	ldy #resAttr		Pass attributes.
	lda [<resPtr],y
	and #resMemAttr
	pha
	pea 0		Pass address to allocate at.
	pea 0
	pei <@resHand+2		Pass handle to reallocate.
	pei <@resHand
	_ReAllocHandle
	bcc @enter1
	tay		Return error in Y.
	brl @errExit
;  
;
; ------ Allocate memory for the resource.
;
@allocateIt	pha		Space for result.
	pha
	jsr getReadFlag
	bne @ok4		No reading?
	pea 0		Allocate an empty handle.
	pea 0
	bra @skip1
@ok4	pei <@sizeOfRes+2		Pass number of bytes to allocate.
	pei <@sizeOfRes
@skip1	ldy #curApp		Pass user's ID.
	lda [<data],y
	clc
	adc #appID
	tay
	lda [<data],y
	pha
	ldy #resAttr		Pass attributes.
	lda [<resPtr],y
	and #resMemAttr
	pha
	pea 0		Pass address to allocate at.
	pea 0
	_NewHandle
	ply
	sty <@resHand
	ply
	sty <@resHand+2
	tay		Possible error in Y.
	bcs @errExit
;
	ldy #resHandle		Store resource's handle in its index reference.
	lda <@resHand
	sta [<resPtr],y
	iny
	iny
	lda <@resHand+2
	sta [<resPtr],y
;
;
; --- Read the resource.
;
	jsr getReadFlag		Reading on or off?
	beq @exit
;
@enter1	ldy #4		Lock resource handle.
	lda [<@resHand],y
	ora #$8000
	sta [<@resHand],y
;
;      Pass #bytes to read in <work+4 (<@sizeOfRes).
	ldy #handPointer+2
	lda [<@resHand],y
	tax
	lda [<@resHand]		;Pass pointer to read buffer in x/a
	jsr readRes		;Read resource.
	tyx		;Save error code.
;
	ldy #resHandle		copy the handle back from the resrec
	lda [<resPtr],y		since it could have	been changed by the
	sta <@resHand		read call if the resource was type
	iny		that gets converted.
	iny
	lda [<resPtr],y
	sta <@resHand+2
;
	ldy #resAttr		Is resource to be locked in memory?
	lda [<resPtr],y
	and #$8000
	bne @skip2		Leave locked?
;
	ldy #4		Leave resource handle unlocked.
	lda [<@resHand],y
	and #$7FFF
	sta [<@resHand],y
;
@skip2	txy		Restore error code.
	beq @exit		Error from read?
;
	phy		Save read error code.
;
	pei <@resHand+2		Pass resource handle that I allocated
	pei <@resHand		or reallocated.
	_PurgeHandle		I'll leave the handle but wipe the data.
*** 25-Jul-91 DAL -- if *anything* goes wrong purging the handle, dispose it forcefully
; cmp #$0205		No purgable?
; bne @skip3
	bcc @skip3
*** end 25-Jul-91 DAL

	jsr freeRes		If cannot purge'em, blow'em away.
	stz <@resHand		No resource left.
	stz <@resHand+2
;
@skip3	ply		;Restore read error code.
	bra @errExit
;
@exit	ldy #0		No error.
;
@errExit	lda <@resHand		Return handle.
	ldx <@resHand+2
	cpy #1		Set error flag.
	rts
;
;
;==========================================
; Read resource into memory.
;==========================================
;
;  IN: x/a = address to read resource into.
; <work+4 = number of bytes to read.
; <mapPtr = pointer	to locked map.
; <resPtr = pointer	to resource to load.
;
;  OUT: Carry set if error, y = error code.
;
readRes	phx		Save address to read resource into.
	pha
;
;
; --- Set file mark	to resource.
;
	ldy #mapFileNum		Pass open file ref number of file resource is in.
	lda [<mapPtr],y
	pha		Save.
	jsr setMarkBase0		Use absolute displacement.
;
	ldy #resOffset+2		Get file offset of resource.
	lda [<resPtr],y
	tax
	dey
	dey
	lda [<resPtr],y		Pass file offset in	x/a.
	ply		;Pass open file reference number in Y.
	jsr setFileMark1		Set file mark to start of map.
	bcc @ok1		GS/OS error?
	tay		;Error in Y.
	pla
	pla
	rts
;
;
; --- Set up for file read.
;
@ok1	ldy #mapFileNum
	lda [<mapPtr],y
	ldy #readBlock+readRefNum	Pass open file reference number to read.
	sta [<data],y
;
	ldy #readBlock+readData	Pass pointer to read buffer.
	pla
	sta [<data],y
	iny
	iny
	pla
	sta [<data],y
;
	ldy #readBlock+readSize	Pass number of bytes to read.
	lda <work+4
	sta [<data],y
	iny
	iny
	lda <work+6
	sta [<data],y
;
*** added 5-Apr-91 DAL -- for zero-length resources, address will be nil; don't try to read
	ldy #readBlock+readData+1
	lda [<data],y
	bne @continue
	tay
	clc
	rts		;return A&Y=0+CLC (no error)
@continue
*** end of 5-Apr-91 DAL
;
; ------ Have converter do read.
;
	ldy #resAttr		Does this resource need a converter?
	lda [<resPtr],y
	and #resConverter
	beq @skip1
;
	lda #0		Pass read flag.
	brl callConverter
;
;
; ------ Read from file, no converter.
;
@skip1	jsr pushReadBlock		Pass pointer to read file parameter block.
	pea READ		Pass call number.
	jsl GS_OS		Read file header.
	tay		;Error in Y, just in case.
	rts
;
;
;=======================================
; Call resource converter.
;=======================================
;
;   IN: a = 0 if read, 2 if write.
; <resPtr = pointer	to locked resource reference.
; |readBlock = parameters for read if reading.
; |writeBlock = parameters for write if	writing.
;
;  OUT: Carry set if error, y = error code.
; x/a = result.
;
callConverter	pha		Flag.
	jsr getConverterAddr
	ply		;Get flag.
	bcc @ok1
;
	bne @errorOut		Doing read?
;
	ldy #resHandle+2		Dispose of resource	handle.
	lda [<resPtr],y
	pha
	dey
	dey
	lda [<resPtr],y
	pha
	lda #0
	sta [<resPtr],y
	iny
	iny
	sta [<resPtr],y
	_DisposeHandle
;
@errorOut	ldy #resNoConverter		;Return error code.
	bra @exit
;
@ok1	phx		;Save address, also space for result.
	pha
	phy		;Pass flag to converter.
	tyx
	jsr (@read_write,x)		Pass GS/OS parameter block.
	pei <resPtr+2		Pass pointer to resource reference.
	pei <resPtr
;
@resPtr	equ 1
@param	equ @resPtr+4
@flag	equ @param+4
@result	equ @flag+2
;
	lda @result+2,s		Get converter address.
	tax
	lda @result,s
	jsl longCall		Call converter routine.
	tay		;Place error code in y.
	pla		Get result.
	plx
;
@exit	cpy #1		Set error flag.
	rts
;
@pushNull	plx		;Push a long just to keep the stack correct.
	pha
	pha
	phx
	rts
;
@read_write	dc.w pushReadBlock
	dc.w pushWriteBlock
	dc.w @pushNull
;
;
;=====================================
; Get converter address.
;=====================================
;
;   IN: <resPtr = pointer to resource record.
;
;  OUT: Carry set if converter not found.
; Carry clear if converter found, x/a =	converter address in longCall format.
;
getConverterAddr	pei <work+4		Save.
	pei <work+2
	pei <work
;
	stz <work+4		Initialize number of times to try.
	inc <work+4
;
	jsr getCurConList		x/a = handle of converter list.
@lop2	sta <work
	stx <work+2
	lda <work+1		Is there a list?
	beq @errOut
;
	ldy #2		Dereference list.
	lda [<work],y
	tay
	lda [<work]
	sta <work
	sty <work+2
;
	lda [<work]		Number of records to search.
	tax
	ldy #convertList
@lop1	lda [<resPtr]		Get type to find.
	cmp [<work],y		Match?
	beq @gotit
	tya		;Next record.
	clc
	adc #convertRecSize
	tay
	dex		;Any more records
	bne @lop1
;
@errOut	dec <work+4		Have I tried the system converter list?
	bmi @notFound
;
	ldy #sysConvertList+2	Try system converter list.
	lda [<data],y
	tax
	dey
	dey
	lda [<data],y
	bra @lop2
;
@notFound	sec		;Converter not found flag.
	bra @exit
;
;
;  <work = pointer to converter list.
;  y = index to convert record.
;
@gotit	iny
	iny
	iny
	lda [<work],y
	tax
	dey
	lda [<work],y
	clc		;Converter found flag.
;
@exit	ply		;Restore.
	sty <work
	ply
	sty <work+2
	ply
	sty <work+4
	rts
;
;
;===========================
;       Long call.
;===========================
;
;   IN:    x = middle WORD (bits 8-23) of address of destination routine.
;          a = low WORD of address of destination routine.
;
;  OUT:    Calling this routine is the same as:
;
;                jsl   (ax)
;
;          Where the low byte in 'a' is	the low byte of the	destination
;          address,	and x = the next 2 bytes of the destination address.
;
longCall	dec a		Make low word look like a return address.
;                 !!! High byte of address is not decremented
;	 because the program counter doesn't wrap
;	 to the next bank!!!!

	phx		Push the high byte.
	tsx		Leave only the high byte of the address.
	inx
	txs
;
	pha		Push the low word of the address.
	rtl Go		to the address.
;
;  When the routine	called returns, it will return to the routine that called 
;  'longCall', not here.
;
;
	EJECT
;================================================================================================
; Compute pointer to a resource.
;================================================================================================
;
;   IN: <inputs = ID.
; <inputs+4 = type.
;
;  OUT: Carry set if resource found, <resPtr = pointer to resource.
; Carry clear if resource not found, y = resNotFound.
;
findGivenRes1	ldy <inputs		Pass ID.
	ldx <inputs+2
	lda <inputs+4		Pass type.
;
findGivenRes2	sty <work		Pass ID.
	stx <work+2
	sta <work+4		Pass type.
;
	lda #findResource		Pass address of routine to find.
	jsr walkMapsCur		Search maps starting with current map.
	bcs @exit		Was the resource found?
;
	ldy #resNotFound		Return resource not	found error.
@exit	rts
;
;
	EJECT
;=====================================================================================
; Write resource to	disk if changed bit	set. Called from walkResources.
;=====================================================================================
;
;   IN: <mapHand = handle of locked map.
; <mapPtr = pointer	to map.
; <resPtr = pointer	to resource reference record in resource index.
; writeBlock+writeRefNum = open file reference number.
; markBlock+markRefNum = open file reference number.
; marlBlcok+markBase = 0 (absolute displacement).
;
;  OUT: Carry clear	if no errors, <work	= NIL.
; Carry set if error, <work = GS/OS error code or $FFFF if more free records needed.
;	
writeRes	NAME
;
@resHand	equ work		Local direct page use.
@sizeOfHand	equ @resHand+4
@resAddr	equ @sizeOfHand+4
@localSize	equ @resAddr+4		Size of local direct page.
	IF  (@localSize>maxLocal)	THEN
	AERROR 'DEBUG ERROR - local direct page overflow'
	ENDIF
;
;
; --- Check if resource has changed and	is not protected.
;
	ldy #resAttr		Get resource flags.
	lda [<resPtr],y
	and #resChanged+resProtected	Has resource changed or protected?
	cmp #resChanged
	bne @toClearChg		If unchanged or changed and protected, skip.
;
;
; --- Write resource to disk.
;
	ldy #resHandle+1		Is the resource in memory?
	lda [<resPtr],y
	bne @ok5
@toClearChg	brl @clearChg		If not, it is already updated.
;
@ok5	sta <@resHand+1		Handle of resource.
	dey
	lda [<resPtr],y
	sta <@resHand
;
;
; ------ Write resource from absolute address.
;
	ldy #resAttr		Is handle really an	absolute address?
	lda [<resPtr],y
	and #resAbsLoad
	beq @ok3
;
	jsr setOffset		Set file offset for	write.
	bcs @errorOut		Error? a = error code.
;
	ldy #resSize+2		Pass number of bytes to write.
	lda [<resPtr],y
	pha
	iny
	iny
	lda [<resPtr],y
	pha
	lda <@resHand		Pass pointer to data to write.
	ldx <@resHand+2
	jsr writeRes2		Write resource to file.
	tax		;Save possible error.
	brl @exit1
;
;
; --- Write resource from handle.
;
@ok3	ldy #handSize+2		Get size of handle,	common need.
	lda [<@resHand],y
	sta <@sizeOfHand+2
	dey
	dey
	lda [<@resHand],y
	sta <@sizeOfHand
;
	ldy #resAttr		Does this resource have a converter?
	lda [<resPtr],y
	and #resConverter
	beq @skip1
;
	lda #4		Ask converter for destination size.
	jsr callConverter
	sta <@sizeOfHand		;this is really the on-disk size
	stx <@sizeOfHand+2
@skip1
;
;
; ------ Resize resource if its size has changed.
;
	lda <@sizeOfHand+2
	ldy #resSize+2		Has the size changed?
	cmp [<resPtr],y
	bne @resize
	dey
	dey
	lda <@sizeOfHand
	cmp [<resPtr],y
	beq @ok2
;
@resize	jsr freeFileResource	Free the block used	by the resource.
;
	ldx <@sizeOfHand+2		Pass size to allocate.
	lda <@sizeOFHand
	jsr getFileBlock		Allocate file space	for resource.
;
	ldy #resOffset		Store new offset.
	sta [<resPtr],y
	iny
	iny
	txa
	sep #$20
	LONGA OFF
	sta [<resPtr],y
	rep #$20
	LONGA ON
;
	ldy #resSize		Store new size.
	lda <@sizeOfHand
	sta [<resPtr],y
	iny
	iny
	lda <@sizeOfHand+2
	sta [<resPtr],y
;
;
; ------ Set file position mark.
;
@ok2	jsr setOffset
	bcc @ok1		;Error?
@errorOut	sta <work		;Return error code in <work.
	rts		;Carry set, stop walk.
;
;
; ------ Do write.
;
@ok1	ldy #handAttr		Save the state of the handle.
	lda [<@resHand],y
	pha
	ora #$8000		Lock the handle.
	sta [<@resHand],y
;

*** 12-Jan-93 JCM - This code doesn't work correctly when used with converters, and especially those
***	that make the disk-based resource smaller than in memory. Instead of getting the
***	number of bytes to write from the size of the in-memory handle, we should get it
***	from resSize in the resource reference record. And that's just what this fix does.


;;;	ldy #handSize+2		Pass number of bytes to write.
;;;	lda [<@resHand],y
;;;	pha
;;;	dey
;;;	dey
;;;	lda [<@resHand],y
;;;	pha
	
	pei <@sizeOfHand+2		;this really is the size of the resource when
	pei <@sizeOfHand		; it's on-disk (see about 20 lines up)
	
*** end 12-Jan-93 JCM

	ldy #handPointer+2		Pass pointer to data to write.
	lda [<@resHand],y
	tax
	lda [<@resHand]
	jsr writeRes2		Write resource to file.
	tax		Save possible error.
;
	ldy #handAttr		Restore the state of the handle.
	pla
	sta [<@resHand],y
;
@exit1	stx <work		Return possible error code in <work.
	cpx #1
	bcs @exit101		Error from write?
;
;
; ------ Clear changed flag.
;
@clearChg	ldy #resAttr		;Mark resource as unchanged.
	lda [<resPtr],y
	and #_resChanged
	sta [<resPtr],y
;
;
; ------ Check if more free records are	needed.
;
	ldy #mapFreeListUsed	;Are there at least 6 spots available?
	lda [<mapPtr],y
	clc
	adc #5
	ldy #mapFreeListSize
	cmp [<mapPtr],y
	bcc @exit100
;
	lda #$FFFF		;Tell call that more free records are needed.
	sta <work
	sec		;Stop walk.
	rts
;
@exit100	clc		;Return 'continue walking' flag.
	stz <work
@exit101	rts


;--------------------------------------------
; Lowest level resource write.
;--------------------------------------------
;
;   IN: x/a = address of data to write.
; PUSH:LONG - size of write.
; <resPtr = pointer	to resource.
;
;  OUT: a = error code.
;
;--------------------------------------------
writeRes2	NAME

	ldy #writeBlock+writeData	;Pass pointer to data to write.
	sta [<data],y
	iny
	iny
	txa
	sta [<data],y
;
	plx		;Get return address.
	ldy #writeBlock+writeSize	;Pass number of bytes to write.
	pla
	sta [<data],y
	iny
	iny
	pla
	sta [<data],y
	phx 		;Put return address back.
;
*** added 5-Apr-91 DAL -- for zero-length resources, the address will be 0, so don't try to write
	ldy #writeBlock+writeData+1
	lda [<data],y
	bne @continue
	tay		;(paranoia)
	clc		;(paranoia)
	rts		;return A=0 (no error)
@continue
*** end of 5-Apr-91 DAL
;
; ------ Have converter do write.
;
	ldy #resAttr		Does this resource need a converter?
	lda [<resPtr],y
	and #resConverter
	beq @skip1
;
	lda #2		Pass write flag.
	jsr callConverter
	tya		;Return error code in a.
	rts
;
;
; --- Write resource to disk.
;
@skip1	jsr pushWriteBlock		Pass pointer to write file parameter block.
	pea WRITE		Pass call number.
	jsl GS_OS		Write template to file.
	rts
;
;
;============================================
; Set file offset of resource.
;============================================
;
;   IN: <resPtr = pointer to resource.
;
;  OUT: Carry set if error, a = error code.
;
setOffset	ldy #resOffset+2		Pass offset of resource in file.
	lda [<resPtr],y
	tax
	dey
	dey
	lda [<resPtr],y
	brl setFileMark2		Set file mark to write position.
;

	EJECT 16
;=========================================
; Store a long in <resPtr.
;=========================================
;
;   IN: y = offset to field.
; x/a = value to store.
;
;  OUT: y = index to next field (given y + 4).
;
storeResPtrLong	sta [<resPtr],y
	iny
	iny
	txa
	sta [<resPtr],y
	iny
	iny
	rts
;
	EJECT 14
;===================================
; Free <mapHand.
;===================================
;
;   IN: <mapHand = handle to free.
;
disposeMapHand	pei <mapHand+2		Pass map's handle.
	pei <mapHand
	_DisposeHandle Free		map.
	rts
;
;
	EJECT
;================================================================================================
; Move index references down one record	to make room for another record.
;================================================================================================
;
;   IN: <resPtr = place to insert new record.
;
;  OUT: <resPtr = same as in.
;
insertIndexRef	lda [<resPtr]		Is the record being	inserted at the end?
	bne @ok3		If not, do move.
;
	ldy #resRecSize		Mark next record as	end.
	sta [<resptr],y
	rts
;
;
@ok3	lda <resPtr		Place of insertion.
	ldx <resPtr+2
	phx		Save.
	pha
;
	phx		Pass source pointer.
	pha
	clc
	adc #resRecSize		Insert one record.
	bcc @ok1
	inx
@ok1	phx		Pass destination pointer.
	pha
;
@destination	equ 1
@source	equ @destination+4
;
	ldy #mapIndexUsed		Pass offset to field.
	jsr getMapLong
	jsr computeResPtr		<resPtr = pointer to end mark.
	lda <resPtr		Also move end mark.
	clc
	adc #2
	bcc @store1
	inc <resPtr+2
@store1	sta <resPtr
;
	lda <resPtr
	sec
	sbc @source,s
	tay
	lda <resPtr+2
	sbc @source+2,s
	pha		Pass number of bytes to move.
	phy
	_MyBlockMove		Move remainder of records down.
;
	pla		Restore pointer to new record.
	sta <resPtr
	pla
	sta <resPtr+2
	rts
;
	EJECT
;================================================================================================
; Remove a resource	index reference.
;================================================================================================
;
;   IN: <resPtr = pointer to resource index reference to be	removed.
;
;  OUT: None.
;
removeIndexRef
;
@firstRes	equ work		Local direct page use.
@nextRes	equ @firstRes+4
@localSize	equ @nextRes+4		Size of local direct page.
	IF  (@localSize>maxLocal)	THEN
	AERROR 'DEBUG ERROR - local direct page overflow'
	ENDIF
;
;
; --- Setup pointer	to resource and next resource.
;
	ldx <resPtr+2		Set pointer to first resource.
	lda <resPtr
	sta <@firstRes
;
@lop2	stx <@firstRes+2
	lda <@firstRes		Compute index to next index reference record.
	clc
	adc #resRecSize
	bcc @store1
	inx
@store1	sta <@nextRes
	stx <@nextRes+2
;
;
; --- Move resources up and over resource being deleted.
;
	ldy #resRecSize-2		!!! Don't use X !!!
@lop1	lda [<@nextRes],y
	sta [<@firstRes],y
	dey
	dey
	bpl @lop1
;
	lda <@nextRes		Move to next resource.
	sta <@firstRes		x still equals <@nextRes.
;
	lda [@nextRes]		Any more resource index references?
	bne @lop2
	rts
;
	EJECT 30
;================================================================================================
; Free the block used by the resource.
;================================================================================================
;
;   IN: <resPtr = pointer to resource index reference.
; <mapPtr = pointer	to locked map of file.
;
;  OUT: See outputs	of freeFileBlock.
;
freeFileResource	ldy #resSize+2		Pass current size.
	lda [<resPtr],y
	pha
	dey
	dey
	lda [<resPtr],y
	pha
	ldy #resOffset+2		Pass block's offset.
	lda [<resPtr],y
	pha
	dey
	dey
	lda [<resPtr],y
	pha
	jsr freeFileBlock		!!! Do not BRL or fall through, stack parameters !!!
	rts
;
;
;=================================================================
; Free the block in	file.  This is a reentrant call.
;=================================================================
;
;   IN: PUSH:LONG -	block's size.
; PUSH:LONG - block's offset.
; <mapPtr = pointer	to locked map of file.
;
;  OUT: None.
; 
freeFileBlock
;
@merge	equ 1		Stack offsets.
@prevBlock	equ @merge+2
@nextBlock	equ @prevBlock+2
@temp	equ @nextBlock+2
@retAddr	equ @temp+4
@blockOffset	equ @retAddr+2
@blockSize	equ @blockOffset+4
@localStackSize	equ @blockSize+4
;
;
	pha		Space for temp.
	pha
	pha		Space for nextBlock.
	pea 0		Space for prevBlock, start with no previous block.
	pea 0		Space for merge, set 'no merge' flag to	start.
;
;
; --- Find block's spot in free array.
;
	lda @blockOffset,s		Compute byte after block being freed.
	clc
	adc @blockSize,s
	sta @temp,s
	lda @blockOffset+2,s
	adc @blockSize+2,s
	sta @temp+2,s
;
	ldy #mapFreeList+2		Start with first free block.
@lop1	lda [<mapPtr],y		Is this block after	block being freed?
	dey
	dey
	cmp @blockOffset+2,s
	bcc @next1
	beq @ckLowWord
	bra @gotit
@ckLowWord	lda [<mapPtr],y
	cmp @blockOffset,s
	bcs @gotit
;
@next1	tya
	sta @prevBlock,s		Save previous block	index.
	clc
	adc #blkRecSize+2
	tay
	bra @lop1		No check for end of	blocks because block being 
;      freed can't be after last block.  If it does,
;      life, as we know it, ends.
;
; --- Check to merge adjacent blocks.
;
;  y = index to next block.
;  <@prevBlock = index to previous block, NIL if no previous.
;
@gotit	tya
	sta @nextBlock,s		Save index to next block.
;
;
; ------ Try to merge new block to next	block.
;
	lda @temp,s		Is end of new block	same as top of next	block?
	cmp [<mapPtr],y
	bne @next2
	iny
	iny
	lda @temp+2,s
	cmp [<mapPtr],y
	bne @next2
;
	lda #1
	sta @merge,s		Merge new block into next block.
;
	lda @nextBlock,s
	tay
	iny
	iny
	iny
	iny		Pass index to blkSize field.
	lda @blockSize+2,s		Pass new block size.
	tax
	lda @blockSize,s
	jsr addToMapLong2		Add new block size to next block.
;
	lda @nextBlock,s		Pass index to blkOffset field.
	tay
	lda @blockSize+2,s		Pass new block size.
	tax
	lda @blockSize,s
	jsr subToMapLong2		Subtrack new block size from next's offset.
	bra @tryDouble		Try to merge previous block to next block.
;
;
; ------ Try to merge new block to previous block.
;
@next2	lda @prevBlock,s		Compute bottom of previous block.
	beq @newBlock		Is there a previous	block?
	tay
	jsr getPrevAfter		x/a = offset of byte after previous block.
;
;
	cmp @blockOffset,s		Is end of previous block same as top 
	bne @newBlock		of new block?
	iny
	iny
	txa
	cmp @blockOffset+2,s
	bne @newBlock
;
	lda #1
	sta @merge,s		Merge new block into next block.
;
	lda @prevBlock,s
	tay
	iny
	iny
	iny
	iny		Pass index to blkSize field of previous block.
	lda @blockSize+2,s		Pass new block size.
	tax
	lda @blockSize,s
	jsr addToMapLong2		Add new block size to previous block.
;
;
; ------ Try to merge previous block to	next block.
;
@tryDouble	lda @prevBlock,s		Compute bottom of previous block.
	beq @toExit		Is there a previous	block?
	tay
	jsr getPrevAfter		x/a = offset of byte after previous block.
;
	pha
	lda @nextBlock+2,s		Is end of previous block same as top
	tay
	pla
	cmp [<mapPtr],y		of next block?
	beq @ok2
@toExit	brl @exit
@ok2	iny
	iny
	txa
	cmp [<mapPtr],y
	bne @toExit
;
	lda @nextBlock,s
	tay
	iny
	iny
	iny
	iny
	jsr getMapLong		Pass size of next block.
	pha		Preserve a-reg which contains lowWord of size of next block
	lda @prevBlock+2,s
	tay
	pla
	iny
	iny
	iny
	iny		Pass index to blkSize field of previous block.
	jsr addToMapLong2		Add next block size	to previous block size.
;
	lda @nextBlock,s		Pass index to block	to delete.
	tay
	jsr deleteBlock		Delete next block from array.
	bra @exit
;
;
; --- No merge, create new block.
;
@newBlock	ldy #mapFreeListSize	Are there any available spaces?
	lda [<mapPtr],y
	iny
	iny
	cmp [<mapPtr],y
	bne @ok1
;
;
; ------ Allocate more BLOCK records.
;
	jsr growFreeList		Grow the free list.
;      Man-O-Man, calling this growFreeList can
;      get you into	an infinite loop.  Then again,
;      it could work.  Things are setup	so that this
;      call should not have to happen.
;
; ------ Insert next block.
;
@ok1	ldy #mapFreeListUsed	Compute offset to word after in last used block.
	lda [<mapPtr],y
	asl a
	asl a
	asl a
	clc
	adc #mapFreeList
	tay
	adc #blkRecSize		Compute index to next block record.
	tax
@lop2	dey
	dey
	dex
	dex
	lda [<mapPtr],y		Move records down to make room for insert.
	phy
	txy
	sta [<mapPtr],y
	ply
	tya
	cmp @nextBlock,s		Done?
	bne @lop2
;
	lda @blockOffset,s		Initialize new block record.
	sta [<mapPtr],y
	iny
	iny
	lda @blockOffset+2,s
	sta [<mapPtr],y
	iny
	iny
;
	lda @blockSize+2,s
	tax
	lda @blockSize,s
	jsr storeMapLong
;
	ldy #mapFreeListUsed	Increment number of	used allocation blocks.
	lda [<mapPtr],y
	inc a
	sta [<mapPtr],y
;
;
; --- Clean up stack and exit.
;
@exit	jsr markDirtyMap		Map has change, set	dirty bit so it'll 
;   			be written to disk.
;
	lda @retAddr,s		Get return address.
	tax
;
	tsc
	clc
	adc #@localStackSize-1
	tcs
;
	phx		Put return address back.
	rts
;
;
	EJECT
;================================================================================================
; Find the map that	matches the given file ID.
;================================================================================================
;
;   IN: a = file ID	to match to a map.
;
;  OUT: Carry set if not found:
;  y = resFileNotFound.
; Carry clear if map found:
;  <mapPtr = pointer to map.
;  <mapHand = handle of map (unlocked).
;
findFileID	sta <work		Pass file number to	@matchID.
;
	lda #@matchID		Pass routine to call for application's every map.
	jsr walkAllFiles
	bcs @exit		Was the map found?
;
	ldy #resFileNotFound	Return error.
	sec		Error flag.
	rts
;
@exit	clc		Match found flag.
	rts
;
;
;-------------------------------------------------------------
; Match open file reference number.
;-100---------------------------------------------------------
;
;   IN: <mapPtr = pointer to map.
; <work = open file	reference number to	match.
;
;  OUT: Carry set if match.
;
@matchID	ldy #mapID		Is map's open file reference number the same
	lda [<mapPtr],y
	cmp <work		as the one passed?
	beq @exit100		Carry set if equal.
	clc
@exit100	rts
;
	EJECT
;================================================================================================
; Search a map for a resource.
;================================================================================================
;
;   IN: <mapHand = locked map.
; <mapPtr = pointer	to map.
; <work = resource ID to find.
; <work+4 = type to	find.
;
;  OUT: See output from fall through code below.
;
findResource	ldy <work		Pass ID to find.
	ldx <work+2
	lda <work+4		Pass type.
;
;
;-Fall-through------------------------------------------------------------
;  Find a resource in the index.
;-------------------------------------------------------------------------
;
;   IN: x/y = ID to	find.
; a = type to find.
; <mapPtr = pointer	to map.
; <mapHand = handle	of map.
;
;  OUT: Carry clear	if not found, <resPtr = next higher resource index reference record.
; Carry set if found, <resPtr = resource reference.
;
findResRec
;
; !!!! Variables cannot be added to work area without changing work areas in callers !!!
@temp	equ work+6		Local direct page use.
@half	equ @temp+4
@num	equ @half+4
@matchID	equ @num+4
@matchType	equ @matchID+4
@localSize	equ @matchType+2		Size of local direct page.
	IF  (@localSize>maxLocal)	THEN
	AERROR 'DEBUG ERROR - local direct page overflow'
	ENDIF
; !!!! Variables cannot be added to work area without changing work areas in callers !!!
;
;
	sta <@matchType
	sty <@matchID
	stx <@matchID+2
;
;
; --- Binary search.
;
	jsr getFirstRes		x/a = pointer to first resource reference.
	sta <resPtr
	stx <resPtr+2
;
	ldy #mapIndexUsed		Get number of references.
	jsr getMapLong		x/a = mapIndexUsed. 
	sta <@num
	stx <@num+2
;
@lop1	lda <@num		Time for linear search?
	ldx <@num+2
	bne @skip1
	cmp #16		At some point a linear is faster.
	bcc @doLinear
;
@skip1	tay		Find middle of range.
	txa		num / 2.
	lsr a
	tax
	tya
	ror a
	sta <@half		Remember half way number.
	stx <@half+2
	jsr timesResRecSize		Multiply times record size.
	clc
	adc <resPtr
	sta <@temp
	txa
	adc <resPtr+2
	sta <@temp+2		Pointer to reference in middle.
;
	lda [<@temp]		Is this reference greater or less
	cmp <@matchType		the resource I'm searching for?
	bcc @greaterThan
	bne @lessThan
;
	ldy #resID+2
	lda [<@temp],y		Check ID.
	cmp <@matchID+2
	bcc @greaterThan
	bne @lessThan
;
	ldy #resID
	lda [<@temp],y
	cmp <@matchID
	bcc @greaterThan
	bne @lessThan
;
@binaryMatch	lda <@temp		Return pointer to resource reference.
	sta <resPtr
	lda <@temp+2
	sta <resPtr+2
	sec		Set 'match found' flag.
	rts
;
;
; --- Number being search for is less than the one just checked.
;
@lessThan	ldx <@half+2		New number is one less than half.
	lda <@half
	dec a
	bne @store2
	dex
@store2	sta <@num
	stx <@num+2
	bra @lop1		Keep going.
;
;
; --- Number being search for is greater than the one just checked.
;
@greaterThan	ldx <@temp+2		One after middle becomes top.
	lda <@temp
	clc
	adc #resRecSize
	sta <resPtr
	bcc @store1
	inx
@store1	stx <resPtr+2
;
	lda <@num		New number is old less half.
	sec
	sbc <@half
	sta <@num
	lda <@num+2
	sbc <@half+2
	sta <@num+2
	bra @lop1		Keep going.
;
;
; --- Finish with linear search.
;
;  <resPtr = starting place.
;
@doLinear	bra @enter2
;
@lop2	cmp <@matchType
	bcc @next2
	bne @noMatch
	ldy #resID+2
	lda [<resPtr],y
	cmp <@matchID+2
	bcc @next2
	bne @noMatch
	ldy #resID
	lda [<resPtr],y
	cmp <@matchID
	beq @match
	bcs @noMatch
@next2	lda <resPtr		Next reference record.
	clc
	adc #resRecSize
	sta <resPtr
	bcc @enter2
	inc <resPtr+2
@enter2	lda [<resPtr]
	bne @lop2		End of index?
;
;
; --- Resource not found exit.
;
@noMatch	clc		Set 'no match' flag.
	rts
;
;
; --- Resource found exit.
;
@match	sec		Set 'match' flag.
	rts
;
	EJECT 20
;
;
;==============================================================
; Set file refNum in GS/OS parameter blocks.
;==============================================================
;
;   IN: <mapPtr = map pointer.
;
;  OUT: writeBlock,	markBlock parameter	block set with map's file refNum.
; Displacement set to absolute.
;
setFileRefNum	ldy #mapFileNum		Set file to write to.
	lda [<mapPtr],y
	ldy #writeBlock+writeRefNum
	sta [<data],y
	ldy #markBlock+markRefNum
	sta [<data],y
;
; !!!! Fall through	to setMarkBase0 !!!!
;
;-----------------------------------------------------------
; Set type of displacement for set file	mark.
;-----------------------------------------------------------
;
;   IN: None.
;
;  OUT: None.
; 
setMarkBase0	lda #0		Absolute. !!!!Fall through code!!!!
	bra setMarkBase
; 
setMarkBase1	lda #1		EOF - displacement.
	bra setMarkBase
; 
setMarkBase2	lda #2		Current mark + displacement.
; 
setMarkBase	ldy #markBlock+markBase
	sta [<data],y
	rts
;
	EJECT
;================================================================================================
; Allocate space in	a file.
;================================================================================================
;
;   IN: x/a = number of bytes needed.
; <mapPtr = pointer	to locked map.
; <mapHand = handle	of map.
;
;  OUT: x/a = offset to block.
; <mapPtr = pointer	to locked map (may have moved).
; <mapHand = handle	of map (may have moved).
; <writeEOFflag = <writeEOFflag + 1 if EOF extended.
;
getFileBlock
;
@bytesNeeded	equ work+18
@saveSizeIndex	equ @bytesNeeded+4
@saveOffIndex	equ @saveSizeIndex+2
@originalOffset	equ @saveOffIndex+2
@localSize	equ @originalOffset+4	Size of local direct page.
	IF  (@localSize>maxLocal) THEN
	AERROR 'DEBUG ERROR - local direct page overflow'
	ENDIF
;
	sta <@bytesNeeded		Save number of bytes needed.
	stx <@bytesNeeded+2
;
;
; --- Search for free block large enough.
;
	ldy #mapFreeList+blkSize+2	Start at first free	block.
@lop1	lda <@bytesNeeded+2		Check high word.
	cmp [<mapPtr],y
	bcc @gotit1
	bne @next1
	dey
	dey
	lda [<mapPtr],y		Check low word.
	cmp <@bytesNeeded
	bcs @gotit2		Is this block large	enough?
	iny
	iny		Put y back.
*** added 25-Apr-91 DAL -- Is this a zero-length free entry?  OUCH!  DIE!
	ora [<mapPtr],y
	bne @okFine
	pea $1E42
	pea 0
	pea 0
	_SysFailMgr
@okFine
*** end 25-Apr-91 DAL
;
@next1	tya		Increment to next block.
	clc
	adc #blkRecSize
	tay
	bra @lop1		Don't check for end, can't happen.
*** "Don't check for end, can't happen" -- yeah, right.  25-Apr-91 DAL
;
;
; --- Allocate free	block.
;
@gotit1	dey		Remember offset of block
	dey
@gotit2	sty <@saveSizeIndex		Save index to blkSize field.
	dey
	dey
	dey
	dey
	sty <@saveOffIndex		Save index to blkOffset field.
	jsr getMapLong		x/a = blkOffset field.
	sta <@originalOffset	Save original block	offset.
	stx <@originalOffset+2
;
;
; --- Allocate space from the free block.
;
	ldy <@saveSizeIndex		Pass index to blkSize field.
	lda <@bytesNeeded		Pass number of bytes to use.
	ldx <@bytesNeeded+2
	jsr subToMapLong2		Subtrack bytes used	from size.
	tay		Anything left?
	bne @ok1
	txy
	beq @deleteBlock		If nothing left, delete free block from	free list.
;
@ok1	ldy <@saveOffIndex		Pass index to blkOffset field.
	lda <@bytesNeeded		Pass number of bytes to use.
	ldx <@bytesNeeded+2
	jsr addToMapLong2		Move offset of free	block past used.
	bra @noErrorExit
;
;
; ------ Entire free block allocated, delete block from free list.
;
;        Move block	records below block	up and over block being deleted.  Blocks are moved
;        until a NIL long (end of list mark) is moved.
;
@deleteBlock	ldx <@saveOffIndex		Get index of block to cut.
	ldy <@saveSizeIndex		Get index of next block.
	iny
	iny
	iny
	iny
;
	pha		Space for temp.
@lop2	lda [<mapPtr],y		Move rest of blocks	up.
	phy
	txy
	sta [<mapPtr],y
	ply
	sta 1,s		Space low word of possible end of list mark.
	iny
	iny
	inx
	inx
	lda [<mapPtr],y
	phy
	txy
	sta [<mapPtr],y
	ply
	iny
	iny
	inx
	inx
	ora 1,s		OR low word with high word, NIL = end of list.
	bne @lop2		End of list?
	pla		Strip temp.
;
	ldy #mapFreeListUsed	Decrement number of	uesed blocks.
	lda [<mapPtr],y
	dec a
	sta [<mapPtr],y
;
	ldy <@saveOffIndex		This is now the index to the next block.
	bra @testPushEOF
;
; --- Exit.
;
@noErrorExit	ldy <@saveSizeIndex		Was I allocating from the 
	iny		last free block (past EOF)?
	iny
	iny
	iny
@testPushEOF	lda [<mapPtr],y
	iny
	iny
	ora [<mapPtr],y		If next block is NIL, means I was in the
	bne @exit		last block.
;
;
; --- Push out file's EOF mark.
;
	tya		Get offset of last free block which is new EOF.
	sec
	sbc #blkRecSize+2
	tay
	lda [<mapPtr],y
	tax
	iny
	iny
	lda [<mapPtr],y		Pass new EOF.
	ldy #EOFBlock+EOFdisplacement+2
	sta [<data],y
	dey
	dey
	txa
	sta [<data],y
;
	ldy #mapFileNum		Pass file's reference number.
	lda [<mapPtr],y
	ldy #EOFBlock+EOFRefNum
	sta [<data],y
;
	jsr pushEOFBlock		Pass pointer to parameter block.
	pea SET_EOF
	jsl GS_OS
;
	inc <writeEOFflag		Need to write to disk to allocate disk space.
;
;
@exit	jsr markDirtyMap		Map has change, set	dirty bit so it'll be
;      written to disk.
;
	lda <@originalOffset	Return offset to allocated block.
	ldx <@originalOffset+2
	clc		No error.
	rts
;
	EJECT 20
;----------------------------------------------------------------------------------------
; Get offset of byte after previous block.
;----------------------------------------------------------------------------------------
;
;   IN: y = index to block.
;
;  OUT: x/a = offset to byte after block (blkOffset + blkSize).
; y = trash.
; 
getPrevAfter	lda [<mapPtr],y
	pha
	iny
	iny
	lda [<mapPtr],y
	tax
	pla		Pass blkOffset in x/a.
	iny		Pass index of blkSize in Y.
	iny
	brl addMapLong2		Add blkOffset to blkSize to get byte after block.
;
	EJECT 15
;================================================================================================
; Set map dirty bit	so the map will be written to disk.
;================================================================================================
;
;   IN: <mapPtr = pointer to dirty map.
;
;  OUT: None.
;
markDirtyMap	ldy #mapFlag
	lda [<mapPtr],y
	ora #mapChanged		Set dirty bit in map's flag.
	sta [<mapPtr],y
	rts
;
	EJECT
;================================================================================================
; Delete BLOCK record from mapFreeList
;================================================================================================
;
;   IN: y = index to BLOCK.
; <mapPtr = map.
;
;  OUT: mapFreeListUsed = one less.
; BLOCKs after given block are moved up	over deleted block.
;
deleteBlock	pha		Temp stack space.
;
	tya		Compute index to next block.
	clc
	adc #blkRecSize
	tax
@lop1	phy
	txy
	lda [<mapPtr],y
	ply
	sta [<mapPtr],y
	sta 1,s		Save low word.
	iny
	iny
	inx
	inx
	phy
	txy
	lda [<mapPtr],y
	ply
	sta [<mapPtr],y
	iny
	iny
	inx
	inx
	ora 1,s		End of array?
	bne @lop1
;
	pla		Strip temp stack space.
;
	ldy #mapFreeListUsed	One less record used.
	lda [<mapPtr],y
	dec a
	sta [<mapPtr],y
;
	rts
;
	EJECT 30
;================================================================================================
; Multiple long times size of resource reference record.
;================================================================================================
;
;   IN: x/a = long.
;
;  OUT: x/a = result.
; y = trash.
; 
timesResRecSize	pei <work+2
	pei <work
;
@number1	equ work
@number2	equ @number1+2
;
;
	stx <@number2		Multiple number times 4.
;
	asl a
	rol <@number2
	asl a
	rol <@number2
;
	sta <@number1
	ldy <@number2
;
	asl a		Multiple number times 16.
	rol <@number2
	asl a
	rol <@number2
;
	clc Add		the two numbers together to
	adc <@number1		get number * 20 (size of record).
	pha
	tya
	adc <@number2
	tax		Return result in x/a.
	pla
;
;
	ply		Restore.
	sty <work
	ply
	sty <work+2
	rts
;
;
	EJECT 20
;================================================================================================
; Compute resource reference offset.
;================================================================================================
;
;   IN: x/a = reference number.
; <mapPtr = map pointer.
;
;  OUT: x/a = offset to reference.
; 
computeResOffset	jsr timesResRecSize		Multiple reference index times 16.
;     x/a = result.
	ldy #mapToIndex		Add index offset to	start of index.
	clc
	adc [<mapPtr],y
	bcc @ok1
	inx
@ok1	rts
;
	EJECT 30
;================================================================================================
; Compute resource reference pointer.
;================================================================================================
;
;   IN: x/a = reference number.
; <mapPtr = map pointer.
;
;  OUT: See output from fall through code below.
; 
computeResPtr	jsr computeResOffset	x/a = offset to reference.
;
;
;-Fall-through-------------------------------------------------------
;  Add value to <mapPtr.
;--------------------------------------------------------------------
;
;   IN: x/a = amount to add.
; <mapPtr = amount to add to.
;
;  OUT: <resPtr = total.
;
addToMapPtr	clc Add		offset to map pointer.
	adc <mapPtr
	sta <resPtr
	txa
	adc <mapPtr+2
	sta <resPtr+2
	rts
;
	EJECT
;================================================================================================
; Add a word to a long in the map.
;================================================================================================
;
;   IN: a = amount to add.
; y = offset to long field in map.
; <mapPtr = pointer	to map.
;
;  OUT: See output from fall through code below.
; 
addToMapLong1	ldx #0		Pass high word.
;
;
;-Fall-through------------------------------------------------------
;  Add a long to a long in the map.
;-------------------------------------------------------------------
;
;   IN: x/a = amount to add.
; y = offset to long field in map.
; <mapPtr = pointer	to map.
;
;  OUT: See output from fall through code below.
;
addToMapLong2	jsr addMapLong2
;
;
;-Fall-through------------------------------------------------------
;  Store a long in a map field.
;-------------------------------------------------------------------
;
;   IN: x/a = value	to store.
; y = offset to field.
; <mapPtr = pointer	to map.
;
;  OUT: a,y,x = same as in.
; Long stored in field.
;
storeMapLong	phy		Save.
	pha
	sta [<mapPtr],y		Store result.
	iny
	iny
	txa
	sta [<mapPtr],y
	pla		Restore.
	ply
	rts
;
	EJECT
;================================================================================================
; Add a word to a long in the map.
;================================================================================================
;
;   IN: a = amount to add.
; y = offset to long field in map.
; <mapPtr = pointer	to map.
;
;  OUT: See output from fall through code below.
;
addMapLong1	ldx #0		Pass high word.
;
;
;-Fall-through------------------------------------------------------
;  Add a long to a long in the map.
;-------------------------------------------------------------------
;
;   IN: x/a = amount to add.
; y = offset to long field in map.
; <mapPtr = pointer	to map.
;
;  OUT: x/a = result.
; y = same as in.
;
addMapLong2	clc
	adc [<mapPtr],y
	pha
	txa
	iny
	iny
	adc [<mapPtr],y
	tax
	pla		Return result in x/a.
	dey		Restore Y.
	dey
	rts
;
	EJECT 30
;================================================================================================
; Subtrack a word from a long in the map.
;================================================================================================
;
;   IN: a = amount to subtrack.
; y = offset to long field in map.
; <mapPtr = pointer	to map.
;
;  OUT: See output from fall through code below.
; 
subToMapLong1	ldx #0		Pass high word.
;
;
;-Fall-through------------------------------------------------------
;  Subtrack a long from a long in the map.
;-------------------------------------------------------------------
;
;   IN: x/a = amount to subtrack.
; y = offset to long field in map.
; <mapPtr = pointer	to map.
;
;  OUT: x/a = result.
; y = same as in.
; Result stored in field.
;
subToMapLong2	jsr subMapLong2
	brl storeMapLong		Store the result in	the field.
;
	EJECT
;================================================================================================
; Subtrack a word from a long in the map.
;================================================================================================
;
;   IN: a = amount to subtrack.
; y = offset to long field in map.
; <mapPtr = pointer	to map.
;
;  OUT: See output from fall through code below.
;
subMapLong1	ldx #0		Pass high word.
;
;
;-Fall-through-----------------------------------------------------------
;  Subtrack a long from a long in the map.
;------------------------------------------------------------------------
;
;   IN: x/a = amount to subtrack.
; y = offset to long field in map.
; <mapPtr = pointer	to map.
;
;  OUT: x/a = result.
; y = same as in.
;
subMapLong2	phx
	pha
	lda [<mapPtr],y
	sec
	sbc 1,s
	sta 1,s
	iny
	iny
	lda [<mapPtr],y
	sbc 3,s
	sta 3,s
	pla		Return result in x/a.
	plx
	dey		Restore Y.
	dey
	rts
;
	EJECT 35
;================================================================================================
;  Add records to free list in map.
;================================================================================================
;
;   IN: <mapHand = handle of locked map.
; <mapPtr = pointer	to locked map.
;
;  OUT: Carry set if error, y = error code.
; <mapHand = handle	of locked map (map have moved).
; <mapPtr = pointer	to locked map (map have moved).
; mapFreeListSize is increased.
; Empty block records added to end of free list.
; 
growFreeList	ldy #mapToIndex		Compute where to insert in map.
	lda [<mapPtr],y		Back up over end of	index mark.
	sec
	sbc #4
	ldx #0
	tay		Pass insertion point in x/y
	lda #blkRecSize*20		Pass number of bytes to grow.
	jsr growMap		Resize map, insert zeros.
	bcs @exit
;
	ldy #mapFreeListSize	Increment free list	size.
	lda [<mapPtr],y
	clc
	adc #20		Number of records added.
	sta [<mapPtr],y
;
	ldy #mapToIndex		Increment offset to	index.
	lda [<mapPtr],y
	clc
	adc #blkRecSize*20
	sta [<mapPtr],y
;
	clc		Set 'no error' flag.
@exit	rts
;
;
	EJECT
;================================================================================================
; Insert a block of	zeros into map.
;================================================================================================
;
;   IN: a = number of bytes to insert.
; x/y = insertion offset.
; <mapHand = handle	of locked map.
; <mapPtr = pointer	to locked map.
;
;  OUT: Carry set if error, y = error code.
; <mapHand = handle	of locked map (map have moved).
; <mapPtr = pointer	to locked map (map have moved).
;
growMap
;
; !!!!! Changing the size of this work area will affect other routines !!!!!!!!!
@growSize	equ work		Local work space.
@insertion	equ @growSize+2
@oldSize	equ @insertion+4
@newSize	equ @oldSize+4
@insertPoint	equ @newSize+4
@localSize	equ @insertPoint+4		Size of local direct page.
	IF  (@localSize>maxLocal)	THEN
	AERROR 'DEBUG ERROR - local direct page overflow'
	ENDIF
; !!!!! Changing the size of this work area will affect other routines !!!!!!!!!
;
;
	sta <@growSize		Save parameters.
	sty <@insertion
	stx <@insertion+2
;
	ldy #handSize+2		Compute current size and new size.
	lda [<mapHand],y
	tax
	dey
	dey
	lda [<mapHand],y
	sta <@oldSize		Save current size.
	stx <@oldSize+2
	clc
	adc <@growSize
	bcc @store1
	inx
@store1	sta <@newSize		Save new size.
	stx <@newSize+2
	jsr resizeMapHandle		Grow map's handle.
	bcc @ok1
	rts		Return error code in y.
;
@ok1	jsr freeFileMap		Free space on disk for current map.
;
	lda <@newSize		New size.
	ldx <@newSize+2
	jsr allocateFileMap		Allocate new space on disk for new map.
	bcc @ok4		Was disk space really allocated?
;
;
; ------ Cannot resize map.  Put it back the way it was.
;
	jsr freeFileMap		Free map on disk.
;
	lda <@oldSize		Resize map handle back to old size.
	ldx <@oldSize+2
	jsr resizeMapHandle		Should not fail going back to old size.
;
	jsr allocateFileMap		Allocate space for old map, should fit.
;
	ldy #resDiskFull		Return error code.
	sec		Set error flag.
	rts
;
;
; --- Move data for	insert.
;
@ok4	lda <mapPtr		Compute source of move.
	clc
	adc <@insertion
	tay
	lda <mapPtr+2
	adc <@insertion+2
	sty <@insertPoint		Save insertion point.
	sta <@insertPoint+2
	pha		Pass pointer to source.
	phy
;
	tax
	tya
	clc		Compute destination of move.
	adc <@growSize
	bcc @ok2
	inx
@ok2	phx		Pass pointer to destination.
	pha
;
	lda <@oldSize		Compute number of bytes to move.
	sec
	sbc <@insertion
	tay
	lda <@oldSize+2
	sbc <@insertion+2
	pha		Pass number of bytes to move.
	phy

	_MyBlockMove		Make room for insertion.
;
;
; --- Insert zeros.
;
	lda <@growSize
	tay
	lsr a
	lda #0
	bcc @wordFill
;
	sep #$20
	LONGA OFF
@lop1	dey
	sta [<@insertPoint],y
	tyx
	bne @lop1
	rep #$20
	LONGA ON
	bra @done1
;
@wordFill
@lop2	dey
	dey
	sta [<@insertPoint],y
	tyx
	bne @lop2
;
;
@done1	jsr markDirtyMap		Map has change.
	clc		Set 'no error' flag.
	rts
;
;
;==================================
; Grow map's handle.
;==================================
;
;   IN: x/a = new size.
; <mapPtr = pointer	to map.
; <mapHand = handle	of map.
;
;  OUT: Carry set if error, y = error code.
;
resizeMapHandle	pha		Save.
;
	ldy #4		Save state of handle.
	lda [<mapHand],y
	pha
	and #$7FFF		Unlock map.
	sta [<mapHand],y
;
	lda 3,s		Get saved new size.
	phx		Pass new size
	pha
	pei <mapHand+2		Pass handle.
	pei <mapHand
	_SetHandleSize
	tax		Put error code in x.
;
	ldy #4		Restore handle's state.
	pla
	sta [<mapHand],y
	dey		Dereference map handle.
	dey
	lda [<mapHand],y
	sta <mapPtr+2
	lda [<mapHand]
	sta <mapPtr
;
	pla		Get rid of saved value.
;
	txy		Return error code in Y.
	cpy #1		Setup error flag.
	rts
;
;
;===================================================
; Free space on disk for current map.
;===================================================
;
;   IN: <mapPtr = pointer to map.
;
freeFileMap	ldy #mapSize		Pass current size.
	jsr pushMapLong
	ldy #mapOffset		Pass block's offset.
	jsr pushMapLong
	jsr freeFileBlock		Free the block used	by the map.
;
	lda #0		Mark map as not being allocated in file.
	ldy #mapOffset
	sta [<mapPtr],y
	iny
	iny
	sta [<mapPtr],y
	rts
;
;
;=======================================================
; Allocate new space on disk for new map.
;=======================================================
;
;   IN: x/a = new size of map.
; <mapPtr = pointer	to map.
;
;  OUT: Carry set if error, y = error code.
;
allocateFileMap	phx		Save new size.
	pha
	jsr getFileBlock		Allocate file space	for map, have to be	able to allocate.
;     x/a = new offset.
;
	ldy #mapOffset		Save map's new offset.
	jsr storeMapLong
;
	ldy #mapSize		Pass index to field	to store long into.
	pla		New size.
	plx
	jsr storeMapLong		mapSize field = x/a.
;
	lda #rFileToMap		File offset.
	ldx #rFileToMap>>16
	jsr setFileMark2		Set file mark to write pos (absolute displacement).
;
	pea 0		Pass number of bytes to write.
	pea 8
	ldx <mapPtr+2		Pass pointer to data to write.
	lda <mapPtr
	clc
	adc #mapOffset
	bcc @ok1
	inx
@ok1	jsr fileWrite2		Write map offset to	header.
;
;
	lda <writeEOFflag		Did the map move past real EOF?
	bne @ok2
	clc		No error.
	rts
;
@ok2	jsr writeMap		Write map to disk to allocate disk space.
	stz <writeEOFflag
	rts
;
;
	EJECT
;================================================================================================
; Get current map.
;================================================================================================
;
;   IN: curApp = current application.
;
;  OUT: See output from fall through code below.
;
getCurMap	jsr getCurMapHand
newMap	sta <mapHand
	stx <mapHand+2
;
;
;-Fall-through------------------------------------------------------
;  Lock and dereference <mapHand.
;-100---------------------------------------------------------------
;
;   IN: <mapHand = handle.
;
;  OUT: See output from fall through code below.
; Carry set if <mapHand+1 = NIL, y = resNoCurFile error code.
;
lockMap	lda <mapHand+1		Valid handle?
	bne @ok100
	ldy #resNoCurFile
	sec
	rts
;
@ok100	ldy #handAttr		Lock <mapHand.
	lda [<mapHand],y
	ora #$8000
	sta [<mapHand],y
;
;
;-Fall-through------------------------------------------------------
;  Dereference <mapHand.
;-110---------------------------------------------------------------
;
;   IN: <mapHand = handle.
;
;  OUT: <mapHand = locked handle.
; <mapPtr = dereferenced <mapHand.
;
derefMap	ldy #2		Dereference <mapHand.
	lda [<mapHand],y
	sta <mapPtr+2
	lda [<mapHand]
	sta <mapPtr
	clc		OK flag.
	rts
;
	EJECT 25
;================================================================================================
; Get handle of current map.
;================================================================================================
;
;   IN: curApp = current application.
;
;  OUT: x/a = handle of current map, NIL if none.
; y = index to current map.
;
getCurMapHand	ldy #curApp		Offset to current app record.
	lda [<data],y
	clc
	adc #appCur+2		plus offset to appCur field,
	tay		is offset to current file.
	lda [<data],y		Get application's current file.
	tax
	dey
	dey
	lda [<data],y
	rts
;
	EJECT 25
;================================================================================================
; Match file ID to map.
;================================================================================================
;
;   IN: <inputs = file ID to match.
; <mapPtr = pointer	to map.
;
;  OUT: Carry set if match, clear if no	match.
; <work = <mapHand if no match (previous map when using walkMaps).
;
matchFileID	lda <inputs		File ID to match.
	ldy #mapID
	cmp [<mapPtr],y		Same as this map's?
	beq @exit		Carry set if EQUAL.
;
	lda <mapHand		Save previous map handle before going on.
	sta <work
	lda <mapHand+2
	sta <work+2
	clc		No match.
@exit	rts
;
	EJECT 30
;================================================================================================
; Free allocated resource.
;================================================================================================
;
;   IN: <resPtr = pointer to resource reference in index.
;
;  OUT: If resHandle field is TRUE then	handle freed, resHandle field set to NIL.
;
freeRes	ldy #resAttr		Can't free absolute resources.
	lda [<resPtr],y
	and #resAbsLoad
	bne @exit
;
	ldy #resHandle+1		Is resource allocated?
	lda [<resPtr],y
	beq @exit
;
	iny		Pass handle.
	lda [<resPtr],y
	pha
	dey
	dey
	lda [<resPtr],y
	pha
	_DisposeHandle		Free the resource.
;
	ldy #resHandle+1		Set resHandle to NIL.
	lda #0
	sta [<resPtr],y
;
@exit	clc		Continue flag to walkResources.
	rts
;
	EJECT 30
;================================================================================================
; Open the resource	fork of a file.
;================================================================================================
;
;   IN: <inputs = pointer to pathname (GS/OS class 1 input string).
;
;  OUT: Carry clear	if file opened, a =	open file reference	number.
; Carry set if error, a & y = GS/OS error code.
;
openResFork	ldy #openBlock+openPathname	Pass pointer to pathname.
	lda <inputs
	sta [<data],y
	iny
	iny
	lda <inputs+2
	sta [<data],y
;
	jsr SetInternalLevel	;DAL 20-Dec-90

	jsr pushOpenBlock		Pass pointer to parameter block.
	pea OPEN		Pass call number.
	jsl GS_OS		Call GS/OS to open the file.
	tay		Return possible error in Y.
	bcs @exit		Error?
;
	ldy #openBlock+openRefNum	Return open file reference number.
	lda [<data],y
@exit	jsr RestoreTheLevel		;DAL 20-Dec-90
	rts

*
* SetInternalLevel, 20-Dec-90 DAL
*
* Does a GetLevel and then a SetLevel with pCount=2 to
* grab the current level, whether System or User range,
* and then set the level to an internal level.
*
SetInternalLevel	name
	jsr pushGetLevelBlock
	pea GetLevel
	jsl GS_OS
	
	lda #ResMgrInternalFileLevel
	ldy #setLevelBlock+setLevelCurrent
	sta [<data],y
	jsr pushSetLevelBlock
	pea SetLevel
	jsl GS_OS
	rts
*
* RestoreTheLevel, 20-Dec-90 DAL
*
* Does a SetLevel with pCount=2 to restore the previous
* file level, whether in the System or User range.
*
* Preserves A, Y, P.
*
RestoreTheLevel	name
	php
	pha
	phy

	ldy #getLevelBlock+getLevelCurrent
	lda [<data],y
	ldy #setLevelBlock+setLevelCurrent
	sta [<data],y
	jsr pushSetLevelBlock
	pea SetLevel
	jsl GS_OS

	ply
	pla
	plp
	rts

;
	EJECT 35
;================================================================================================
; Read from a file.
;================================================================================================
;
;   IN: x/a = pointer to data area.
; <work+4 = number of bytes to read.
; readBlock+readRefNum = open file reference number.
;
;  OUT: Carry set if error, a = GS/OS error code.
;
fileRead1	ldy #readBlock+readData	Pass pointer to read buffer.
	sta [<data],y
	iny
	iny
	txa
	sta [<data],y
;
	ldy #readBlock+readSize	Pass number of bytes to read.
	lda <work+4
	sta [<data],y
	iny
	iny
	lda <work+6
	sta [<data],y
;
	jsr pushReadBlock		Pass pointer to read file parameter block.
	pea READ		Pass call number.
	jsl GS_OS		Read file header.
	rts
;
	EJECT
;================================================================================================
; Write to file.
;================================================================================================
;
;   IN: PUSH:LONG -	number of bytes to write.
; PUSH:LONG - pointer to data buffer.
; a - open file reference number.
;
;  OUT: See output from fall through code below.
;
fileWrite1	ldy #writeBlock+writeRefNum	Pass file to write to.
	sta [<data],y
;
	ply		Get return address.
	pla		Get data pointer.
	plx		Pass pointer in x/a.
	phy		Put return address back.
;
;
;-Fall-through------------------------------------------------------
;  Write to file.
;-100---------------------------------------------------------------
;
;   IN: PUSH:LONG -	number of bytes to write.
; x/a = pointer to data buffer.
; writeBlock+writeRefNum = open file reference number.
;
;  OUT: writeBlock+writeTransfer - number of bytes actually	written.
; Carry set if error, a = GS/OS error code.
;
fileWrite2	ldy #writeBlock+writeData	Pass pointer to data to write.
	sta [<data],y
	iny
	iny
	txa
	sta [<data],y
;
	plx		Get return address.
	ldy #writeBlock+writeSize	Pass number of bytes to write.
	pla
	sta [<data],y
	iny
	iny
	pla
	sta [<data],y
	phx		Put return address back.
;
	jsr pushWriteBlock		Pass pointer to write file parameter block.
	pea WRITE		Pass call number.
	jsl GS_OS		Write template to file.
	rts
;
	EJECT 20
;================================================================================================
; Close the resource fork of a file.
;================================================================================================
;
;   IN: a = reference number of open resource fork.
;
;  OUT: Carry set if error, a = GS/OS error code.
;
closeResFork	ldy #closeBlock+closeRefNum	Pass file reference	number to close.
	sta [<data],y
*** added 6-Nov-91 DAL -- never Close(0) here
	tay
	clc
	beq @skipClose
*** end 6-Nov-91
;
	jsr pushCloseBlock		Pass pointer to parameter block.
	pea CLOSE		Pass call number.
	jsl GS_OS		Call GS/OS to open the file.
@skipClose	rts
;
	EJECT 40
;================================================================================================
; Set the file position mark.
;================================================================================================
;
;   IN: x/a = file position.
; y = open file reference number.
;
;  OUT: See output from fall through code below.
;
setFileMark1	pha		Save a.
;
	tya		Pass file reference number to set mark.
	ldy #markBlock+markRefNum
	sta [<data],y
;
	pla		Restore a.
;
;
;-Fall-through------------------------------------------------------
;  Set the file position mark.
;-------------------------------------------------------------------
;
;   IN: x/a = file position displacement.
; markBlock+markRefNum = open file reference number.
; markBlock+markBase = base.
;
;  OUT: Carry set if error, a = GS/OS error code.
;
setFileMark2	ldy #markBlock+markPosition	Pass file position.
	sta [<data],y
	iny
	iny
	txa
	sta [<data],y
;
	jsr pushMarkBlock		Pass pointer to parameter block.
	pea SET_MARK		Pass call number.
	jsl GS_OS		Call GS/OS to set the file position.
	rts
;
	EJECT
;================================================================================================
; Walk resource maps.
;================================================================================================
;
;  Map list is walked starting with first map in application's appFiles field.  Given 
;  routine is called for each map in map list with the following parameters set:
;
;   <mapHand = locked handle of map.
;   <mapPtr = pointer to locked map.
;
;  Routine called should return with carry set to stop walking, or clear to continue.  
;  Also, <mapHand should be NIL if the handle is no longer valid.
;
;   IN: a = address	of routine to call for each map.
; <data.curApp = offset to current application in application list.
;
;  OUT: Carry clear	if entire map list walked.
; Carry set if walk	was aborted by routine called:
;  <mapHand = handle of map aborted on (unlocked).
;  <mapPtr = pointer to map aborted on (unlocked).
; 
walkMapsFirst	pha		Save routine address.
	jsr getFirstMap		x/a = handle of first map.
	ply		Get routine address.
	bra walkMaps		Is there a current application?
; 
walkMapsCur	pha		Save routine address.
	jsr getCurMapHand		x/a = handle of current map.
	ply		Get routine address.
	bra walkMaps		Is there a current application?
;
walkMaps	dey		Turn routine address into a RTS address.
	phy		Save routine address.
;
	phx		Save x.
	pha		Save a.
	jsr getFileDepth		Get number of files	to search.
	tay
	pla		Restore a.
	plx		Restore x.
	phy		Save number of files to search.
	bra @enter1
;
;
@lop1	lda 1,s		Check file counter.
	beq @exit2
	dec a
	sta 1,s
;
	jsr lockMap		Lock and dereference <mapHand.
;
	ldy #mapNext+2		Save handle of next	map.
	lda [<mapPtr],y
	pha
	lda [<mapPtr]
	pha
;
	pea @return-1		Put return address on stack.
	lda 9,s		Get routine address,
	pha
	rts		dispatch to routine.
;
@return	lda <mapHand+1		Is map handle still	valid?
	beq @skip1
	phy
	jsr unlockMap		Leave map unlocked.
	ply
;
@skip1	pla		Restore handle of next map.
	plx
	bcs @exit1		Did routine abort?
;
@enter1	sta <mapHand		Store handle to map.
	stx <mapHand+2
	lda <mapHand+1		Is there a map?
	bne @lop1		If yes, continue. If no then done.
;
@exit2	clc Return		'entire list walked' flag.
@exit1	pla		Get rid of file counter.
	pla		Get rid of saved routine address.
	rts
;
	EJECT
;================================================================================================
; Walk resources in	a map.
;================================================================================================
;
;  Resources are walked starting with first resource reference in index.  Given	routine 
;  is called for each resource in the map with the following parameters set:
;
;   <mapHand = locked handle of map.
;   <mapPtr = pointer to locked map.
;   <resPtr = pointer to resource reference in the index.
;
;  Routine should return with carry set	to stop walking, or	clear to continue.
;
;   IN: a = address	of routine to call for each map.
; <mapHand = locked	handle of map.
; <mapPtr = pointer	to locked map.
;
;  OUT: Carry clear	if entire map list walked, <resPtr = end of index mark.
; Carry set if walk	was aborted by routine called:
;  <mapHand = handle of map aborted on.
;  <mapPtr = pointer to map aborted on.
;  <resPtr = pointer to resource reference in the index.
; 
walkResources	dec a		Turn routine address into a RTS address.
	pha		Save routine address.
;
	jsr getFirstRes		x/a = pointer to first resource reference.
	bra @enter1
;
@lop1	pea @return-1		Put return address on stack.
	lda 3,s		Get routine address,
	pha
	rts		dispatch to routine.
;
@return	bcs @exit2		Did routine abort walk?
;
	ldx <resPtr+2		Compute pointer to next reference.
	lda <resPtr
	clc
	adc #resRecSize
	bcc @enter1
	inx
;
@enter1	sta <resPtr		Store pointer to reference.
	stx <resPtr+2
;
	lda [<resPtr]		End of index?
	bne @lop1		If end then entire list walked.
;
@exit1	clc		Return 'entire list walked' flag.
@exit2	pla		Get rid of saved routine address.
	rts
;
	EJECT 15
;================================================================================================
; Unlock <mapHand.
;================================================================================================
;
;   IN: <mapHand = handle.
;
;  OUT: <mapHand = unlocked handle.
; 
unlockMap	ldy #handAttr		Unlock <mapHand.
	lda [<mapHand],y
	and #$7FFF
	sta [<mapHand],y
	rts
;
	EJECT 25
;================================================================================================
; Get handle of first map in app's file list.
;================================================================================================
;
;   IN: <data.curApp = offset to current application in application list.
;
;  OUT: x/a = handle of first file, NIL	if none.
; y = index to appFiles field.
;
getFirstMap	ldy #curApp		Offset to current app record,
	lda [<data],y
	clc
	adc #appFiles+2		plus offset to appFiles field,
	tay		is offset to current file list.
	lda [<data],y		Get handle of first	map in app's list.
	tax
	dey
	dey
	lda [<data],y
	rts
;
	EJECT 20
;================================================================================================
; Get pointer to first resource reference in index.
;================================================================================================
;
;   IN: <mapPtr = pointer to map.
;
;  OUT: x/a = pointer to first resource	reference in index (maybe empty).
;
getFirstRes	ldx <mapPtr+2
	lda <mapPtr
	ldy #mapToIndex
	clc
	adc [<mapPtr],y
	bcc @exit
	inx
@exit	rts
;
	EJECT
;================================================================================================
; Copy sysFile into	another variable in	data.
;================================================================================================
;
;   IN: y = index to destination in <data.
; <data = pointer to data area.
;
;  OUT: See output from fall through code below.
;
moveSysFile	ldx #sysFile		Pass source index.
;
;
;-Fall-through------------------------------------------------------------------
;  Copy a long from	one variable in <data to another.
;-------------------------------------------------------------------------------
;
;   IN: x = index to source in <data.
; y = index to destination in <data.
; <data = pointer to data area.
;
;  OUT: y = same as	in.
; x = trash.
; a = trash.
;
moveLongData	phy		Save destination index.
;
	txy		Get source long.
	lda [<data],y
	tax
	iny
	iny
	lda [<data],y		a/x = source long.
;
	ply		Restore destination index.
	iny
	iny
	sta [<data],y		Store source high word.
	dey
	dey
	txa
	sta [<data],y		Store source low word.
	rts
;
	EJECT
;================================================================================================
; Push address of data area variable.
;================================================================================================
;
;   IN: None.
;
;  OUT: Address of data area variable on stack.
;
;ENTRY: pushMarkBlock Push address of markBlock variable.
; pushReadBlock Push address of readBlock variable.
; pushWriteBlock Push address of writeBlock variable.
; pushCloseBlock Push address of closeBlock variable.
; pushCreateBlock Push address of createBlock variable.
; pushOpenBlock Push address of openBlock variable.
; pushEOFBlock Push	address of EOFBlock	variable.
; pushDataArea a = offset into data area.
; 
pushAddQBlock	lda #addQBlock
	bra pushDataArea
;
pushDelQBlock	lda #delQBlock
	bra pushDataArea
;
pushGetLevelBlock	lda #getLevelBlock
	bra pushDataArea
;
pushSetLevelBlock	lda #setLevelBlock
	bra pushDataArea
;
pushMarkBlock	lda #markBlock		Pass variable offset.
	bra pushDataArea
;
pushReadBlock	lda #readBlock		Pass variable offset.
	bra pushDataArea
;
pushWriteBlock	lda #writeBlock		Pass variable offset.
	bra pushDataArea
;
pushCloseBlock	lda #closeBlock		Pass variable offset.
	bra pushDataArea
;
pushCreateBlock	lda #createBlock		Pass variable offset.
	bra pushDataArea
;
pushEOFBlock	lda #EOFBlock		Pass variable offset.
	bra pushDataArea
;
pushOpenBlock	lda #openBlock		Pass variable offset.
;
pushDataArea	ldy <data+2		Add variable offset	to data area pointer.
	clc
	adc <data
	bcc @ok1
	iny
@ok1	plx		Get return address.
	phy		Push data area variable address.
	pha
	phx		Put return address back.
	rts
;
	EJECT 20
;================================================================================================
; Push address of direct page variable.
;================================================================================================
;
;   IN: a = offset on to direct page.
;
;  OUT: Address of direct page variable	on stack.
;
pushDpage	plx		Get return address.
	pea 0		Push high word address of direct page.
	pha		Push offset,
	tdc		and add direct page pointer,
	clc
	adc 1,s
	sta 1,s		that's the low word address.
	phx		Put return address back.
	rts
;
;
	EJECT 25
;================================================================================================
; Return long field	in map.
;================================================================================================
;
;   IN: <mapPtr = pointer to map.
; y = field index.
;
;  OUT: Map field is pushed on stack.
; y = same as in.
; x/a = long field.
;
getMapLong	iny		Push long field.
	iny
	lda [<mapPtr],y
	tax
	dey
	dey
	lda [<mapPtr],y
	rts
;
	EJECT 20
;================================================================================================
; Push long field in map.
;================================================================================================
;
;   IN: <mapPtr = pointer to map.
; y = field index.
;
;  OUT: Map field is pushed on stack.
; a,y,x = trash.
;
pushMapLong	jsr getMapLong		Fetch the field.
	ply		Get return address.
	phx		Push long field.
	pha
	phy		Put return address back.
	rts
;
	EJECT
;================================================================================================
; Allocate memory (WORD size number of bytes).
;================================================================================================
;
;   IN: a = number of bytes to allocate.
;
;  OUT: See output from fall through code below.
;
;ENTRY: allocateHand1
; allocateHand2
;
allocateHand1	ldx #0		High word number of	bytes to allocate.
;
;
;-Fall-through------------------------------------------------------------
;  Allocate memory (LONG size number of	bytes).
;-------------------------------------------------------------------------
;
;   IN: x/a = number of bytes to allocate.
;
;  OUT: Carry clear	if memory allocated, x/a = handle.
; Carry set if error, y = error code.
;
allocateHand2	pha		Space for result.
	pha
	phx		Pass number of bytes to allocate.
	pha
	pea $4000+ResToolNum	Pass user ID.
	pea 0		Pass attributes, anywhere, anyhow.
	pha		Pass address, not used.
	pha
	_NewHandle
	tay		Return error code in Y.
	pla		Return handle in x/a.
	plx
	rts

;
;
allocateHandNoS1	ldx #0		High word number of	bytes to allocate.
;
;   IN: x/a = number of bytes to allocate.
;
;  OUT: Carry clear	if memory allocated, x/a = handle.
; Carry set if error, y = error code.
;
	pha		Space for result.
	pha
	phx		Pass number of bytes to allocate.
	pha
	pea $4000+ResToolNum	Pass user ID.
	pea $0008		Pass attributes, anywhere, anyhow.
	pha		Pass address, not used.
	pha
	_NewHandle
	tay		Return error code in Y.
	pla		Return handle in x/a.
	plx
	rts
;
;
	EJECT
;================================================================================================
; Setup for call into tool.
;================================================================================================
;
;   IN: y/a = handle of Resource Manager data area.
;
;  OUT: Caller's direct page and data bank pointers are saved on stack.
; Direct page is allocated on the stack	and direct page pointer set to it.
; Work area is locked, dereferenced, and its pointer stored	in <data.
;
;ENTRY: startCall
; lockDataHand
;
startCall	plx		Get return address.
;
	phb		Save caller's data bank pointer.
	phk		Switch data bank into program bank.
	plb
;
	phd		Save caller's direct page pointer.
	phy		Save handle of data area.
	pha
	tsc		Allocate direct page in stack.
	sec
	sbc #dPageSize
	tcs
	tcd		Switch direct pointer into stack.
;
	phx		Put return address back.
;
	stz <writeEOFflag		Set 'writing not needed' flag.
;
;
lockDataHand1	lda <dataHand+1		Valid data area handle?
	bne @ok1
	rts
;
@ok1	ldy #handAttr
	lda [<dataHand],y
	sta <saveDataAttr
;
;
;-Fall-through------------------------------------------------------
;  Lock and dereference <dataHand.
;-------------------------------------------------------------------
;
;   IN: <dataHand =	handle.
;
;  OUT: <dataHand =	locked.
; <data = (<dataHand)
;
lockDataHand	ldy #handAttr		Lock data area.
	lda [<dataHand],y
	ora #$8000
	sta [<dataHand],y
;
	dey		Dereference data area.
	dey
	lda [<dataHand],y
	sta <data+2
	lda [<dataHand]
	sta <data
	rts
;
	EJECT
;================================================================================================
; Strip input parameters from stack and	return from tool call.
;================================================================================================
;
;   IN: None.
;
;  OUT: None.
;
;ENTRY: pop0_Err  Strip 0 bytes, y = error code.
; pop2_Err  Strip 2	bytes, y = error code.
; pop6_Err  Strip 6	bytes, y = error code.
; pop8_Err  Strip 8	bytes, y = error code.
; pop10_Err Strip 10 bytes, y = error code.
;
; pop0_NoErr Strip 0 bytes, no error code returned.
; pop2_NoErr Strip 2 bytes, no error code returned.
; pop6_NoErr Strip 6 bytes, no error code returned.
; pop8_NoErr Strip 8 bytes, no error code returned.
; pop10_NoErr Strip	10 bytes, no error code returned.
; pop14_NoEr Strip 14 bytes, no error code returned.
;
; pop_NoErr x = bytes to strip, no error code returned.
; pop  x = bytes to	strip, y = error code.
;
;
; --- Pop with error code in Y.
;
pop0_Err	ldx #0		Number of bytes of input to strip.
	bra pop
;
pop2_Err	ldx #2		Number of bytes of input to strip.
	bra pop
;
pop4_Err	ldx #4		Number of bytes of input to strip.
	bra pop
;
pop6_Err	ldx #6		Number of bytes of input to strip.
	bra pop
;
pop8_Err	ldx #8		Number of bytes of input to strip.
	bra pop
;
pop10_Err	ldx #10		Number of bytes of input to strip.
	bra pop
;
pop12_Err	ldx #12		Number of bytes of input to strip.
	bra pop
;
pop14_Err	ldx #14		Number of bytes of input to strip.
	bra pop
;
;
;
; --- Pop with no error.
;
pop0_NoErr	ldx #0		Number of bytes of input to strip.
	bra pop_NoErr
;
pop2_NoErr	ldx #2		Number of bytes of input to strip.
	bra pop_NoErr
;
pop4_NoErr	ldx #4		Number of bytes of input to strip.
	bra pop_NoErr
;
pop6_NoErr	ldx #6		Number of bytes of input to strip.
	bra pop_NoErr
;
pop8_NoErr	ldx #8		Number of bytes of input to strip.
	bra pop_NoErr
;
pop10_NoErr	ldx #10		Number of bytes of input to strip.
	bra pop_NoErr
;
pop12_NoErr	ldx #12		Number of bytes of input to strip.
;
pop_NoErr	ldy #0		No error code.
;
;
; --- Main line pop.
;
pop	lda <dataHand+1		Is there a data area?
	beq @skip1
;
	phy		Save error code.
	ldy #handAttr
	lda <saveDataAttr
	sta [<dataHand],y
	ply		Restore error code.
@skip1
;
	lda <returnAddr2+1		Move return addresses over input parameters.
	sta <returnAddr2+1,x
	lda <returnAddr1+2
	sta <returnAddr1+2,x
	lda <returnAddr1
	sta <returnAddr1,x
;
	lda <saveDbank		Move saved pointers	over input parameters also.
	sta <saveDbank,x
	lda <saveDpage
	sta <saveDpage,x
;
	tsc		Free allocated direct page from stack.
	clc
	adc #dPageSize+4		(and space used by <dataHand)
	phx
	adc 1,s		Free space used by input parameters.
	tcs
;
	pld		Restore caller's direct page pointer.
	plb		Restore caller's data bank pointer.
;
	tya		Return error code in A.
	cmp #1		Set error flag, carry is A = 0, else set.
	rtl		Exit tool.
;
	EJECT
;================================================================================================
; Static data used to initialize top of	data area.
;================================================================================================
;
staticData
;
;
; --- Create file parameter block.
;
	dc.w 7		crePCount IN  - number of parameters.
	dc.l 0		crePathname IN  - class 1 input string,	passed by caller.
	dc.w 0		creAccess IN  - file access, passed by caller.
	dc.w 0		creFileType IN  - filetype, passed by caller.
	dc.l 0		creAuxType IN  - aux type, passed by caller.
	dc.w 5		creStorageType IN  - 1=standard, 5=extended, 13=directory.
	dc.l 0		creDataEOF IN  - bytes allocated for data fork.
	dc.l templateSize		creResEOF IN  - bytes allocated for resource fork.
;
;
; --- Open file parameter block.
;
	dc.w 15		openPCount IN  - number of parameters.
	dc.w 0		openRefNum OUT - open file reference number.
	dc.l 0		openPathname IN  - pointer to class 1 input string.
	dc.w 0		openRequestAcc IN  - Request access is read & write.
	dc.w 1		openForkNum IN  - 0	to open data, 1 to open resource.
	dc.w 0		openAccess OUT - access attribute.
	dc.w 0		openFileType OUT - file type.
	dc.l 0		openAuxType OUT - aux type.
	dc.w 0		openStorageType OUT	- 1=standard, 5=extended, 13=directory.
	dc.l 0,0		openCreateTime OUT - creation time and date.
	dc.l 0,0		openModTime OUT - last modified time and date.
	dc.l 0		openOptions IN  - pointer to list output buffer.
	dc.l 0		openDataEOF OUT - bytes in data fork.
	dc.l 0		openDataBlocks OUT - blocks used in data fork.
	dc.l 0		openResEOF OUT - bytes in resource fork.
	dc.l 0		openResBlocks OUT -	blocks used in resource fork.
;
; ------ Read file parameter block offsets.
;
	dc.w 4		readPCount IN  - number of parameters.
	dc.w 0		readRefNum IN  - open file reference number.
	dc.l 0		readData  IN  - pointer to data area to	read into.
	dc.l 0		readSize  IN  - number of bytes to read.
	dc.l 0		readTransfer OUT - number of bytes read.
;
;
; --- Write file parameter block.
;
	dc.w 4		writePCount IN  - number of parameters.
	dc.w 0		writeRefNum IN  - open file reference number.
	dc.l 0		writeData IN  - pointer to data to write.
	dc.l 0		writeSize IN  - number of bytes to write.
	dc.l 0		writeTransfer OUT -	number of bytes written.
;
;
; --- Close file parameter block.
;
	dc.w 1		closePCount IN  - number of parameters.
	dc.w 0		closeRefNum IN  - open file reference number.
;
;
; --- Set file position mark parameter block.
;
	dc.w 3		markPCount IN  - number of parameters.
	dc.w 0		markRefNum IN  - open file reference number.
	dc.w 0		markBase  IN  - base of position, absolute.
	dc.l 0		markPosition IN  - file position.
;
;
; --- Set EOF mark parameter block.
;
	dc.w 3		EOFPCount IN  - number of parameters.
	dc.w 0		EOFRefNum IN  - open file reference number.
	dc.w 0		EOFBase  IN  - base	of position, absolute.
	dc.l 0		EOFdisplacement IN	- EOF position.
;
;
; --- Get level parameter block.
;
	dc.w 2		getLevelPCount IN  - number of parameters.
	dc.w 0		getLevelCurrent OUT	- current level, $80xx if user, $00xx if system.
	dc.w 0		getLevelMode  ??? -	Some kind of flag for masking (no documents).
;
;
; --- Set level parameter block.
;
	dc.w 2		setLevelPCount IN  - number of parameters.
	dc.w 0		setLevelCurrent IN	- new level (no documentation).
	dc.w 0		setLevelMode  ??? -	Some kind of flag for masking (no documents).
;
;
; --- Add to OS queue parameter block.
;
	dc.w 1		addQPCount IN  - number of parameters.
	dc.l OSEvent		addQProc  IN  - address of procedure to	add.
;
;
; --- Delete from OS queue parameter block.
;
	dc.w 1		delQPCount IN  - number of parameters.
	dc.l OSEvent		delQProc  IN  - address of procedure to	delete.
;
;
; --- Starting value for curApp.
;
	dc.w applist
;
;
endStaticData
;
; --- Make sure init area size matches static data area size.
;
	IF  ((endStaticData-staticData)-dataInitSize) THEN
	AERROR 'DEBUG ERROR - Data area mismatch.'
	ENDIF


;================================================================================================
; Static Data.
;================================================================================================
;
hashMask	dc.b %10000000		Bit 0
	dc.b %01000000		Bit 1
	dc.b %00100000		Bit 2
	dc.b %00010000		Bit 3
	dc.b %00001000		Bit 4
	dc.b %00000100		Bit 5
	dc.b %00000010		Bit 6
	dc.b %00000001		Bit 7
;
bits	dc.b $80,$40,$20,$10,$08,$04,$02,$01

;
; *** End of Resource Manager Code ********************************
;
	ENDP

	END

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/ResourceMgr/dummy b/IIGS.601.SRC/GSToolbox/ResourceMgr/dummy
new file mode 100644
index 0000000..c1b0730
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/ResourceMgr/dummy
@@ -0,0 +1 @@
+x
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/ResourceMgr/makefile b/IIGS.601.SRC/GSToolbox/ResourceMgr/makefile
new file mode 100644
index 0000000..a58f257
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/ResourceMgr/makefile
@@ -0,0 +1 @@
+# Build file for Apple IIGS Resource Manager.

Resource.Mgr Ä Resource.a.obj
	Linkiigs  Resource.a.obj -o Resource.Mgr -t $B6 
	if {AutoDuplicate} == 1
		DuplicateIIGS -y -mac Resource.Mgr :
	End

		
Resource.a.obj Ä Resource.a
	Asmiigs -d debug=0 -d JimsExperiment=1 Resource.a


\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/ResourceMgr/resource.macros b/IIGS.601.SRC/GSToolbox/ResourceMgr/resource.macros
new file mode 100644
index 0000000..d4ad1ae
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/ResourceMgr/resource.macros
@@ -0,0 +1 @@
+	PRINT	PUSH
	PRINT	OFF			
; Apple IIGS Resource Manager Macros
;
;
; © Apple Computer, Inc. 1988
; All Rights Reserved
;
;
ResourceToolNum	equ	$001E

 MACRO
&lab _ResourceStartup
&lab ldx #$0200+ResourceToolNum
     jsl $E10000
 MEND

 MACRO
&lab _ResourceShutdown
&lab ldx #$0300+ResourceToolNum
     jsl $E10000
 MEND

 MACRO
&lab _ResourceVersion
&lab ldx #$0400+ResourceToolNum
     jsl $E10000
 MEND

 MACRO
&lab _ResourceReset
&lab ldx #$0500+ResourceToolNum
     jsl $E10000
 MEND

 MACRO
&lab _ResourceStatus
&lab ldx #$0600+ResourceToolNum
     jsl $E10000
 MEND

 MACRO
&lab _CreateResourceFile
&lab ldx #$0900+ResourceToolNum
     jsl $E10000
 MEND

 MACRO
&lab _OpenResourceFile
&lab ldx #$0A00+ResourceToolNum
     jsl $E10000
 MEND

 MACRO
&lab _CloseResourceFile
&lab ldx #$0B00+ResourceToolNum
     jsl $E10000
 MEND

 MACRO
&lab _AddResource
&lab ldx #$0C00+ResourceToolNum
     jsl $E10000
 MEND

 MACRO
&lab _UpdateResourceFile
&lab ldx #$0D00+ResourceToolNum
     jsl $E10000
 MEND

 MACRO
&lab _LoadResource
&lab ldx #$0E00+ResourceToolNum
     jsl $E10000
 MEND

 MACRO
&lab _RemoveResource
&lab ldx #$0F00+ResourceToolNum
     jsl $E10000
 MEND

 MACRO
&lab _MarkResourceChange
&lab ldx #$1000+ResourceToolNum
     jsl $E10000
 MEND

 MACRO
&lab _SetCurResourceFile
&lab ldx #$1100+ResourceToolNum
     jsl $E10000
 MEND

 MACRO
&lab _GetCurResourceFile
&lab ldx #$1200+ResourceToolNum
     jsl $E10000
 MEND

 MACRO
&lab _SetCurResourceApp
&lab ldx #$1300+ResourceToolNum
     jsl $E10000
 MEND

 MACRO
&lab _GetCurResourceApp
&lab ldx #$1400+ResourceToolNum
     jsl $E10000
 MEND

 MACRO
&lab _HomeResourceFile
&lab ldx #$1500+ResourceToolNum
     jsl $E10000
 MEND

 MACRO
&lab _WriteResource
&lab ldx #$1600+ResourceToolNum
     jsl $E10000
 MEND

 MACRO
&lab _ReleaseResource
&lab ldx #$1700+ResourceToolNum
     jsl $E10000
 MEND

 MACRO
&lab _DetachResource
&lab ldx #$1800+ResourceToolNum
     jsl $E10000
 MEND

 MACRO
&lab _UniqueResourceID
&lab ldx #$1900+ResourceToolNum
     jsl $E10000
 MEND

 MACRO
&lab _SetResourceID
&lab ldx #$1A00+ResourceToolNum
     jsl $E10000
 MEND

 MACRO
&lab _GetResourceAttr
&lab ldx #$1B00+ResourceToolNum
     jsl $E10000
 MEND

 MACRO
&lab _SetResourceAttr
&lab ldx #$1C00+ResourceToolNum
     jsl $E10000
 MEND

 MACRO
&lab _GetResourceSize
&lab ldx #$1D00+ResourceToolNum
     jsl $E10000
 MEND

 MACRO
&lab _MatchResourceHandle
&lab ldx #$1E00+ResourceToolNum
     jsl $E10000
 MEND

 MACRO
&lab _CountTypes
&lab ldx #$2000+ResourceToolNum
     jsl $E10000
 MEND

 MACRO
&lab _GetIndType
&lab ldx #$2100+ResourceToolNum
     jsl $E10000
 MEND

 MACRO
&lab _CountResources
&lab ldx #$2200+ResourceToolNum
     jsl $E10000
 MEND

 MACRO
&lab _GetIndResource
&lab ldx #$2300+ResourceToolNum
     jsl $E10000
 MEND

 MACRO
&lab _SetResourceLoad
&lab ldx #$2400+ResourceToolNum
     jsl $E10000
 MEND

 MACRO
&lab _SetResourceFileDepth
&lab ldx #$2500+ResourceToolNum
     jsl $E10000
 MEND

 MACRO
&lab _GetOpenFileRefNum
&lab ldx #$1F00+ResourceToolNum
     jsl $E10000
 MEND

 MACRO
&lab _GetMapHandle
&lab ldx #$2600+ResourceToolNum
     jsl $E10000
 MEND

 MACRO
&lab _LoadAbsResource
&lab ldx #$2700+ResourceToolNum
     jsl $E10000
 MEND

 MACRO
&lab _ResourceConverter
&lab ldx #$2800+ResourceToolNum
     jsl $E10000
 MEND
;
;
; --- Debugging calls.
;
 MACRO
&lab _ResourceShowGSOS
&lab ldx #$2900+ResourceToolNum
     jsl $E10000
 MEND
;
	PRINT	POP
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/SANE/elems.asm b/IIGS.601.SRC/GSToolbox/SANE/elems.asm
new file mode 100644
index 0000000..edf833a
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/SANE/elems.asm
@@ -0,0 +1 @@
+	title 'SANE         Elems         GS ROM 2.0'
****************************************************************
*			   *
*	   SANE Elems		   *
*			   *
****************************************************************


****************************************************************
*			   *
*	Copyright (C) 1985-1987	   *
*	All Rights Reserved		   *
*	Apple Computer, Inc.	   *
*			   *
****************************************************************

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; File:  Elems/Main		            ;
;; Driver file for building 65816 Elems	V0.0	            ;
;; Status: First attempt		            ;
;; Copyright Apple Computer, Inc., 1983-1986	            ;
;; All Rights Reserved		            ;
;;			            ;
;; Written by C. Hausmann, 1983		            ;
;;			            ;
;; Modification History		            ;
;;      21Mar86 CRL	    Revised for 65816	            ;
;;			            ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

	include 'elems.macros'
	include '::sys.equs.asm'
;------------------------------------------
;
; Equates from procedure CLASS_NAN
;
;------------------------------------------
FCINF	EQU $FE	; -2: infinite
FCZERO	EQU $FF	; -1: zero
FCNORM	EQU $00	;  0: normal
FCDENORM	EQU $01	;  1: denormal
NANTRIG	EQU 33	; Invalid argument to trig routine. 
NANLOG	EQU 36	; Invalid argument to log routine. 
NANPOWER	EQU 37	; Invalid argument to x^i or x^y routine. 
NANFINAN	EQU 38	; Invalid argument to financial function. 
FOLOG2X	EQU 2
FOLOG21X	EQU 6
FOEXP2X	EQU $A
FOEXP1X	EQU $C
FOEXP21X	EQU $E


;=================================================
;
; Imports
;
	IMPORT Clayton


;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

	ENTRY ANN01
	ENTRY ANN02
	ENTRY ANNALLLOG
	ENTRY ANNDOIT
	ENTRY ANNDOUT
	ENTRY ANNM1
	ENTRY ANNO
	ENTRY ANNOK
	ENTRY ANNRINF
	ENTRY ANNROK
	ENTRY ANNSRC
	ENTRY ANNUITYTOP
	ENTRY ANNXN
	ENTRY ATANP
	ENTRY ATANQ
	ENTRY ATANTOP
	ENTRY CALL_SANE
	ENTRY CHECKOP
	ENTRY CLASSIFY
	ENTRY CLASSSRC2
	ENTRY CMPGTM1
	ENTRY CMPM1N
	ENTRY CMPTOFIN
	ENTRY CMPZERO
	ENTRY COEFFS
	ENTRY COMPOUNDTOP
	ENTRY COSP
	ENTRY COSQ
	ENTRY COSTOP
	ENTRY DOPROCENTRY
	ENTRY DOSCALE
	ENTRY DSTONLY
	ENTRY ERRFINAN
	ENTRY EXAPPROX
	ENTRY EXP1FINITE
	ENTRY EXP1R
	ENTRY EXP1RDONE
	ENTRY EXP1ROOT
	ENTRY EXP1TOP
	ENTRY EXP21P
	ENTRY EXP21Q
	ENTRY EXP21RNORM
	ENTRY EXPEASY
	ENTRY EXPHARD
	ENTRY EXPNONZERO
	ENTRY EXPR
	ENTRY EXPROOT
	ENTRY EXPTOP
	ENTRY FINPWRI
	ENTRY FINPWRY
	ENTRY FPK0
	ENTRY FPK1
	ENTRY FPK2
	ENTRY FPK3
	ENTRY FPK34
	ENTRY FPK78
	ENTRY FPKARAND
	ENTRY FPKATNCONS
	ENTRY FPKE
	ENTRY FPKFOURTH
	ENTRY FPKHALF
	ENTRY FPKINF
	ENTRY FPKLOGE2
	ENTRY FPKM0
	ENTRY FPKM1
	ENTRY FPKMAXINT
	ENTRY FPKMINF
	ENTRY FPKPI2
	ENTRY FPKPI4
	ENTRY FPKPRAND
	ENTRY FPKSQRT2
	ENTRY FPKSQRTHALF
	ENTRY FPKX2
	ENTRY FPKX2FX2
	ENTRY F_MAXINT
	ENTRY KLUGE10
	ENTRY KLUGE12
	ENTRY KLUGE13
	ENTRY KLUGE17
	ENTRY KLUGE2
	ENTRY KLUGE3
	ENTRY KLUGE36
	ENTRY KLUGE4
	ENTRY KLUGE40
	ENTRY KLUGE42
	ENTRY KLUGE44
	ENTRY KLUGE6
	ENTRY KLUGE61
	ENTRY KLUGE62
	ENTRY KLUGE63
	ENTRY KLUGE64
	ENTRY KLUGE67
	ENTRY KLUGE68
	ENTRY KLUGE7
	ENTRY KLUGE8
	ENTRY KLUGE90
	ENTRY KLUGE91
	ENTRY KLUGE92
	ENTRY KLUGE93
	ENTRY KLUGE97
	ENTRY LAFINI
	ENTRY LANONZERO
	ENTRY LANORMAL
	ENTRY LOG12R
	ENTRY LOG1PLUSX
	ENTRY LOG21P
	ENTRY LOG21Q
	ENTRY LOG2R
	ENTRY LOGAPPROX
	ENTRY LOGERROR
	ENTRY LOGFINI
	ENTRY LOGINFIN
	ENTRY LOGO
	ENTRY LOGTOP
	ENTRY MAKESRC2
	ENTRY NEGPWRY
	ENTRY NONPWRY
	ENTRY OPERAND
	ENTRY POLYEVAL
	ENTRY POVERQ
	ENTRY PastPrivate
	ENTRY RANDTOP
	ENTRY RESULTDELIVERED
	ENTRY SINP
	ENTRY SINQ
	ENTRY SINTOP
	ENTRY SPLIT
	ENTRY SPLIT2
	ENTRY TANP
	ENTRY TANQ
	ENTRY TANTOP
	ENTRY TRIGFINI
	ENTRY TRIGREDUCTION
	ENTRY VSMAXINT
	ENTRY XKLPENTRY
	ENTRY XKLPSKIP
	ENTRY XPWRBIG
	ENTRY XPWRITOP
	ENTRY XPWRK
	ENTRY XPWRKCLEAR
	ENTRY XPWRKDIV
	ENTRY XPWRKLOOP
	ENTRY XPWRY
	ENTRY XPWRYCOM
	ENTRY XPWRYHARD
	ENTRY XPWRYOK
	ENTRY XPWRYTOP
	ENTRY Z0S00
	ENTRY ZPWRNEG


	ENTRY Call_FP
	ENTRY Call_El


;                copy elems/equs.o
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; File:  equS.o
;; Global equs for building 65816 Elems	V0.0
;; Status: First attempt
;; Copyright Apple Computer, Inc., 1983-1986
;; All Rights Reserved
;;
;; Written by C. Lewis, May 1986
;;
;; Modification History
;;       12May86 CRL Update Zero Page Use to agree with FP816 changes.	             
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; NOTE HARD REFERENCES TO FP816 EQUS.
;
OrigDirect	equ 6	; from FP's equ table
OrigBank	equ 8	; from FP's equ table
Space1	equ 98	; 16 bytes at FP's FrctA+10
Space2	equ 124	; 16 bytes at FP's FrctB+10
Space3	equ 150	; 96 bytes at FP's FrctC+10
;
FFMask	equ $FF
;
;
; Equates used for setting up calls to the Engine.  See routine CALL_SANE
; below.  NOTE: Portions of the code expect entries other than F_DEST to
; be nonzero so branches work correctly.
;
F_DEST	equ 0
F_SRC	equ 2
F_SRC2	equ 4
F_ISRC	equ 6
F_I	equ 8
F_J	equ 10
F_W	equ 12
F_X	equ 14
F_Y	equ 16
F_Z	equ 18
F_LOG21P	equ 20
F_LOG21Q	equ 22
F_EXP21P	equ 24
F_EXP21Q	equ 26
F_FPK1	equ 28
F_FPKM1	equ 30
F_FPK2	equ 32
F_FPK3	equ 34
F_FPKMAXINT	equ 36
F_FPKSQRT2	equ 38
F_FPKHALF	equ 40
F_FPKSQTHALF	equ 42
F_FPKFOURTH	equ 44
F_FPK34	equ 46
F_FPK78	equ 48
F_FPKPI2	equ 50
F_FPKPI4	equ 52
F_FPKE	equ 54
F_FPKLOGE2	equ 56
F_FPK0	equ 58
F_FPKM0	equ 60
F_FPKINF	equ 62
F_FPKMINF	equ 64
F_SINQ	equ 66
F_SINP	equ 68
F_COSQ	equ 70
F_COSP	equ 72
F_TANQ	equ 74
F_TANP	equ 76
F_ATANQ	equ 78
F_ATANP	equ 80
F_FPKX2	equ 82
F_FPKX2FX2	equ 84
F_FPKATNCONS	equ 86
F_FPKARAND	equ 88
F_FPKPRAND	equ 90
F_EXCPTION	equ 92
F_OLDENV	equ 94
F_SAVE_ENV	equ 96
F_ACCUM	equ 98	; Corresponds to V_TEMP
;
;
; There are four logarithm functions:  LN(x), LOG2(x), LN(1+x), and LOG2(1+x).
; They share much of the same code, but	are distinguished by two bits.
; In the same way, EXP(x), EXP2(x), EXP(x)-1, EXP2(x)-1 share the same
; startup code.
;
BTLOGBASE2	equ 1	; Set if either LOG2(x) or LOG2(1+x)
;	                   ; Set if either EXP2(x) or EXP2(x)-1
BTLOG1PLUSX	equ 2	; Set if either LN (1+x) or LOG2(1+x)
;	                   ; Set if either EXP(x)-1 or EXP2(x)-1
EXT_LEN	equ 9	; Length in bytes of extended value
EXT_SIZE	equ 10	; Size in bytes of extended value.
;
OP1ADRS	equ $00
OP2ADRS	equ $80
OP3ADRS	equ $C0
;
OPXPWRI	equ $08	; <0000 1000> - after ROR
;
; Storage for temporaries. DIRECT PAGE OFFSETS.
;
;
OPCODE	equ Space1	; Index into jump table
NUM_ADDR	equ Space1+1
;
EXCPTION	equ Space1+2	; Exception (-4..1)
;
OLD_ENV	equ Space1+4
SAVE_ENV	equ Space1+6	; Ptr to saved user's environ
;
SRC_CLASS	equ Space1+8	; Source class
SRC_SIGN	equ Space1+9
SRC2_CLASS	equ Space1+$A
SRC2_SIGN	equ Space1+$B
CLASS_CODE	equ Space1+$C
CLASS_SIGN	equ Space1+$D
I_SRC	equ Space1+$E
;		0 bytes free at end	of Space1
OP0_ADDR	equ Space2
OP1_ADDR	equ Space2+3
;
; Data area for extended parameters
;
DEST	equ Space2+6
;		0 bytes free at end	of Space2
SRC	equ Space3
SRC2	equ SRC+$A
;
; Used to save zero	page addresses for destination and source.  This is
; necessary because	these locations are	not guaranteed across calls to
; the SANE engine.	[UNCHANGED FOR 816 CODE.   CRL]
;
SAVE_DEST	equ SRC2+$A
SAVE_SRC2	equ SAVE_DEST+3
SAVE1_CLASS	equ SAVE_SRC2+3
SAVE1_SIGN	equ SAVE1_CLASS+1
SAVE2_CLASS	equ SAVE1_SIGN+1
SAVE2_SIGN	equ SAVE2_CLASS+1
;
; Extended and integer temporaries
;
V_TEMP	equ SAVE2_SIGN+1	; V - only used to save extended
;		       ;   value prior to recursion
FPTRASH	equ V_TEMP+$A	; trashed by calls to FP
I_TEMP	equ FPTRASH+5
J_TEMP	equ I_TEMP+2
W_TEMP	equ J_TEMP+2	; W
X_TEMP	equ W_TEMP+$A	; X
Y_TEMP	equ X_TEMP+$A	; Y
Z_TEMP	equ Y_TEMP+$A	; Z
;
; Temporary variables - most often used	to pass addresses to various
; routines.  A0_ADDR is also used in the front end and again at
; resultdelivered to hold temporarily the 6 bytes of return	address
; from the original	stack.
;
A0_ADDR	equ Z_TEMP+$A	; 3 bytes
D0_TEMP	equ A0_ADDR+3	; 2 bytes
D2_TEMP	equ D0_TEMP+2	; 2 bytes
;		0 bytes free at end	of Space3





;                  COPY           elems/EQUS.O           ; Elem equates
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; File:  EQUS.o
;; EQUs for building 65816 Elems V0.0
;; Status: First attempt
;; Copyright Apple Computer, Inc., 1983-1986
;; All Rights Reserved
;;
;; Written by C. Hausmann, 1983
;;
;; Modification History
;;      21Mar86 CRL	    Revised for 65816
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
FBINVALID	EQU 1
FBUFLOW	EQU 2
FBOFLOW	EQU 4
FBDIVZER	EQU 8
FBINEXACT	EQU $10
FBIplusX	EQU $11
;
;-----------------------------------------------------------
; Operation code masks.
;-----------------------------------------------------------
FOADD	EQU $00	; add
FOSUB	EQU $02	; subtract
FOMUL	EQU $04	; multiply
FODIV	EQU $06	; divide
FOCMP	EQU $08	; compare, no exception from unordered
FOREM	EQU $0C	; remainder
FOZ2X	EQU $0E	; convert to extended
FOX2Z	EQU $10	; convert from extended
FORTI	EQU $14	; round to integral	value
FOSCALB	EQU $18	; binary scale
FOLOGB	EQU $1A	; binary log
FOCLASS	EQU $1C	; classify
;
FOSETENV	EQU $01	; set environment
FOGETENV	EQU $03	; get environment
FONEG	EQU $0D	; negate
FOABS	EQU $0F	; absolute value
; UNDEFINED    EQU	  $13
FOSETXCP	EQU $15	; set exception
FOPROCENTRY	EQU $17	; procedure-entry
FOPROCEXIT	EQU $19	; procedure-exit
FOTESTXCP	EQU $1B	; test exception
; UNDEFINED    EQU	  $1D
; UNDEFINED    EQU	  $1F
;
;-----------------------------------------------------------
; Operand format masks.
;-----------------------------------------------------------
FFEXT	EQU $0	; extended -- 80-bit float
FFINT	EQU $4	; integer  -- 16-bit integer
;
;
;-----------------------------------------------------------
; Class and sign inquiries.
;-----------------------------------------------------------
;       
;-----------------------------------------------------------
; NaN codes.  
;-----------------------------------------------------------
;
;-----------------------------------------------------------
; Elementary function operation code masks.
;-----------------------------------------------------------
;


;
; END OF FILE
;
; Popping stack of parameters (start up), general routines such as Polyeval,
; Negate, Scalbxx, and clean up at end (pushing of result onto stack)
;                  COPY           elems/ELEMCTRL.O.A
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; File:  ElemCTRL.O.A		             ;
;; For building 65816 Elems V0.0		             ;
;; Status: First attempt		             ;
;; Copyright Apple Computer, Inc., 1983-1986	             ;
;; All Rights Reserved		             ;
;;			             ;
;; Written by C. Hausmann, 1983		             ;
;;			             ;
;; Modification History		             ;
;;   Dec 7 1983 - Revised by C.A.Hausmann	             ;
;;                Modified order of evaluation in TANGUTS to provide more;
;;                accurate results.  Calculates X^3*[X^2 * P/Q] instead  ;
;;                of [X^5] * [P/Q].		             ;
;;                Changed TAN such that	TAN(+PI/2) = +INF and            ;
;;		TAN(-PI/2) = -INF	             ;
;;   Jan 11 1984 - Modified order of evaluation in SINGUTS to calculate  ;
;;                 [ X * (X*X)] * [P/Q]	instead of X * [(X*X)(P/Q]       ;
;;                 Fixed table bugs in SINQ and COSQ	             ;
;;                 Fixed sign bug in TAN	             ;
;;                 Fixed operand-trashing bug (if SRC=DEST)	in X^Y,      ;
;;                 compound, and annuity	             ;
;;			             ;
;;   Apr 3 1985  - CRL  Clean up redundant code.	             ;
;;	    Changes involve	writing much of the	common code  ;
;;	    in the form of kluges and then JMP & JSR to them ;
;;	    1-2        call_sane, call1_sane, calliv_sane    ;
;;	    3          exp1done	             ;
;;	    4          xpwryhard	             ;
;;	    5          xpwry and cmptofin	             ;
;;	    6          sintop and tantop	             ;
;;	    8 & 40-51  MOVEIT	             ;
;;	    10-12      common stuff in PolyLoop	             ;
;;	    13         scalebxx and skipfirstscaleb          ;
;;	    17         expr	and exp1r	             ;
;;	    19-28 & 90's  calls to call_sane                 ;
;;	    30 & 31    calls to call_elems & call1v_sane     ;
;;	    60's       calls to call1_sane                   ;
;;			             ;
;;      21Mar86 CRL	    Revised for 65816	             ;
;;			             ;
;;       8Nov86 KLH	    Elems bug fixed	in classify	           ;
;;			             ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;			             ;
;	          Elementary Functions	             ;
;			             ;
;                 Compound Interest and	Present Value Functions          ;
;			             ;
;	         Trigonometry Functions	             ;
;			             ;
;			             ;
;	          by Carol A. Hausmann	             ;
;			             ;
;			             ;
;              From	Pascal code by David Hough and Colin McMaster        ;
;              (elementary functions and compound interest and           ;
;              present value functions)	and 68000 code by	             ;
;              Jerome Coonen (elementary functions, compound interest    ;
;              and present value functions, trigonometry functions)      ;
;              and Pascal code by Kenton Hanson (trigonometry            ;
;              functions)		             ;
;			             ;
;	  Copyright Apple Computer Inc.,  1984	             ;
;			             ;
;------------------------------------------------------------------------;
;
;
; When ELEM6502 is entered the stack has the form:
;     2 ret adrs  <	 opcode word  <  dst adrs  <  src adrs	<  scc2 adrs
; with a second source address only in the case of the financial functions
; Compound and Annuity.
;
; The temporaries which are set up in a	stack frame for the	MAC version
; (ELEMS68K) are allocated in the data space for the ELEM6502 version,
; and in the direct	page for the 816 version.
;
; The opword is defined as:
;       0000 0000 NNNN NNN0
;
;
; When raising extended to an integer power, do explicit multiplies when
; the exponent is smaller than some threshold.  It's 255 for now.
; When the exponent	exceeds this threshold, computation is done with
; log and exp.  The	6502 version never looks directly for the value, 255.
; It is only necessary to look at the high byte to see if a	number is
; <= 255.
;
;SMALLEXP        .EQU            255
;
;
ELEMS816	PROC EXPORT
	JSL IncBusyFlg
;
	PHD	; save direct register, set up
	TCD	;   for use of SANE	direct page
	PLA
	STA <OrigDirect	; note: same space as FP uses!!!
	PHB	; save original data bank reg'r
	PHB
	PLA
	STA <OrigBank	; note: same space as FP uses!!!
	PHK	; now set data bank	register
	PLB	;   to point to this rom bank
	BRA PastPrivate
;
	EXPORT PrivateEntry
PrivateEntry		;       
	JSL IncBusyFlg
	EXPORT PastPrivate
PastPrivate		; 
	PLA
	STA <A0_ADDR+4	; pop 6 bytes of return address
	PLA
	STA <A0_ADDR+2
	PLA
	STA <A0_ADDR
	LONGA OFF
	LONGI OFF
	SEP #$30
	PLA
	STA <OPCODE	; Function
	PLA
	CLC
	ROR <OPCODE	; Set up index into	tables
;		        ; ELEMSTAB (jump table) and
;		        ; ADDR_TAB
	LDX <OPCODE
	LDA |ADDR_TAB,X
	STA <NUM_ADDR	; Number of addresses to pop
;
; Fetch the Destination address - always
;
	POP4 <SAVE_DEST	; Dst adrs, another	adrs coming
Z0SCE	COPY_EXTEND <SAVE_DEST,<DEST ; Save copy of extended
	LDA <SRC_CLASS	; Possibly from previous
;		        ; invokation
	STA <SAVE1_CLASS	; Will be saved on the stack
;		        ; later - make copy.
	LDA <SRC_SIGN
	STA <SAVE1_SIGN
	LDA <SRC2_CLASS
	STA <SAVE2_CLASS
	LDA <SRC2_SIGN
	STA <SAVE2_SIGN
	LDA <NUM_ADDR
	BMI Z0S00	; 2 or 3 addresses
	JMP DSTONLY	; Only one address - so don't
;		        ; fetch source
;
; Fetch the Source address - two,three-address case only
;
	EXPORT Z0S00
Z0S00		; ; Copy src using save_src2
	LDA <OPCODE
	CMP #OPXPWRI
	BEQ z1s01	; Special X^I case
	POP4 <SAVE_SRC2	; Temp use until z1s01
Z0S01	COPY_EXTEND <SAVE_SRC2,<SRC ; Again, make copy
;
; Classify the source, but NOT for special XPWRI case
;
	MOVE3 <SAVE_SRC2,<OP0_ADDR ; Classify src operand
	JSR CLASSIFY
	STX <SRC_CLASS
	AND #$80	; show only sign bit
	STA <SRC_SIGN
	BRA z1s02
;
; Special copy required for XPWRI case.	 In this case, the integer itself
; was one the stack.
;
	EXPORT Z1S01
Z1S01		; 
	POP2 <I_SRC
Z1S02	LDA #OP3ADRS	; In one or two-address case,
	AND <NUM_ADDR	; will be pretending there
	EOR #OP3ADRS	; is a src2 by making a copy
	BNE MAKESRC2	; of dest.
;
; Fetch Source2 address - three-address	case only
;
	POP4 <SAVE_SRC2
Z1S03	COPY_EXTEND <SAVE_SRC2,<SRC2
	JMP CLASSSRC2	; Classify source2
ADDR_TAB	DC.B OP1ADRS	; LNX
	DC.B OP1ADRS	; LOG2X
	DC.B OP1ADRS	; LN1X
	DC.B OP1ADRS	; LOG21X
	DC.B OP1ADRS	; EXPX
	DC.B OP1ADRS	; EXP2X
	DC.B OP1ADRS	; EXPX  - 1
	DC.B OP1ADRS	; EXP2X - 1
	DC.B OP2ADRS	; XPWRI
	DC.B OP2ADRS	; XPWRY
	DC.B OP3ADRS	; COMPOUND
	DC.B OP3ADRS	; ANNUITY
	DC.B OP1ADRS	; ATANX
	DC.B OP1ADRS	; SINX
	DC.B OP1ADRS	; COSX
	DC.B OP1ADRS	; TANX
	DC.B OP1ADRS	; RANDOMX
	ENDP
;
; Routine to classify the operands - A0_addr pts to the extended value.
; The class code is	returned in X, the sign is returned in Y.
;
	EXPORT CLASSIFY
CLASSIFY	PROC
	LONGA ON
	LONGI ON
	REP #$30
	LDX <OP0_ADDR
	phd	;<3Nov86 klh>
	phb	;<3Nov86 klh>
	LDA <OP0_ADDR+2	;<3Nov86 klh>
	pha	;<3Nov86 klh>
	bra elemfix	;<3Nov86 klh>
;
	EXPORT CLASS_2
CLASS_2		;       
	PHD	; save settings of D and B
	PHB
	PEA 0	; push addr in X
elemfix	PHX	;<3Nov86 klh>
	LDA #FOCLASS	; invoke class fcn in engine
	JMP KLUGE2
	LONGA OFF
	LONGI OFF
;
	EXPORT DSTONLY
DSTONLY		;       
	LDA #FCNORM	; Even though no source exists
;		        ; for this case, fake a non-NAN
;		        ; Class code for easy handling
;		        ; of NAN checks
	STA <SRC_CLASS
;
; Pretend there is a Source2 address - one-two address case
;
	EXPORT MAKESRC2
MAKESRC2		;       
	LDX #EXT_SIZE
Z2S99	LDA <DEST-1,X
	STA <SRC2-1,X
	DEX
	BNE z2s99
	MOVE3 <SAVE_DEST,<SAVE_SRC2
;
; Whether we faked source2 or popped it	off the stack, classify it!
;
	EXPORT CLASSSRC2
CLASSSRC2		;       
	MOVE3 <SAVE_SRC2,<OP0_ADDR
	JSR CLASSIFY
	STX <SRC2_CLASS
	AND #$80	; show only sign bit
	STA <SRC2_SIGN	;   and save
	LONGA ON
	LONGI ON
	REP #$30
	LDA <A0_ADDR	; put both return addresses
	PHA	;   back on the stack
	LDA <A0_ADDR+2
	PHA
	LDA <A0_ADDR+4
	PHA
	JSR DOPROCENTRY
	LONGA OFF
	LONGI OFF
	PUSH3 <SAVE_DEST	; Address of result
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; DANGER - DANGER - DANGER
;;   Environment was working strangely.	 In old source this	was
;;   PUSH2     <OLD_ENV          with old_env never initialized.
;;   The change to <save_env looks correct.  It records the	initial
;;   user's environment so it can be restored at resultdelivered.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	PUSH2 <SAVE_ENV	; User's environment
	LDA <SAVE1_CLASS	; Copy of Source Class
	PHA
	LDA <SAVE1_SIGN
	PHA
	LDA <SAVE2_CLASS	; Copy of Source2 Class
	PHA
	LDA <SAVE2_SIGN
	PHA
;
; Check for NANs, either SRC2_CLASS (dst/src2) or SRC_CLASS	(src) equal to 1
; or 2.  If the src	is a NAN, there might be two NANs so let floating add
; determine precedence, or propagate the one NAN.  If just the dst
; (or possible src2) is a NAN, do a simple move, in order to touch
; any signaling NAN	that may have appeared.
;
	LDA <SRC_CLASS
	CMP #FCINF
	BPL NOT2NANS
; get here is SRC is a NAN
	LDX #F_SRC2
	JSR KLUGE8
;		        ; Might be dst or src2
	LDX #F_SRC
	JSR KLUGE97
	JMP NANEXIT
NOT2NANS	LDA <SRC2_CLASS	; Check src2 or dst
	CMP #FCINF
	BPL LIFTOFF
	LDX #F_SRC2	; Src2 or dst addr
	LDY #F_DEST	; Dst addr
	LDA #FOZ2X
	JSR CALL_SANE
NANEXIT	JMP RESULTDELIVERED
;
	EXPORT DOPROCENTRY
DOPROCENTRY		;       ; called in	16-bit mode
	LONGA ON
	LONGI ON
	PHD	; save settings of D and B
	PHB
	PEA 0	; push addr of save_env
	CLC
	TDC
	ADC #<SAVE_ENV
	PHA
	LDA #FOPROCENTRY	; invoke procentry
	JMP KLUGE2
	LONGA OFF
	LONGI OFF
;
; Fall through to here in typical case of no NANs.
; SRC_CLASS and SRC2_CLASS (dst/src2 class) contain the class codes.
; Jump to specific routine based on opword in OPCODE
;
LIFTOFF	LDA <OPCODE
	ASL A	; Get index into table
	TAY
	LDA |ELEMSTAB+1,Y	; Get address from table and
	PHA	; push onto stack
	LDA |ELEMSTAB,Y
	PHA
	RTS	; This RTS causes a	jump to
;		        ; the address in the table
;		        ; plus 1.
ELEMSTAB	DC.W LOGTOP-1	; LNX
	DC.W LOGTOP-1	; LOG2X
	DC.W LOGTOP-1	; LN1X
	DC.W LOGTOP-1	; LOG21X
	DC.W EXPTOP-1	; EXPX
	DC.W EXPTOP-1	; EXP2X
	DC.W EXP1TOP-1	; EXPX - 1
	DC.W EXP1TOP-1	; EXP2X - 1
	DC.W XPWRITOP-1	; XPWRI
	DC.W XPWRYTOP-1	; XPWRY
	DC.W COMPOUNDTOP-1	; COMPOUND
	DC.W ANNUITYTOP-1	; ANNUITY
	DC.W ATANTOP-1	; ATANX
	DC.W SINTOP-1	; SINX
	DC.W COSTOP-1	; COSX
	DC.W TANTOP-1	; TANX
	DC.W RANDTOP-1	; RANDOMX
	ENDP
;
; END OF FILE
;
;                  COPY           elems/ELEMCTRL.O.B
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; File:  ElemCtrl.o.b		             ;
;; For building 65816 Elems V0.0		             ;
;; Status: First attempt		             ;
;; Copyright Apple Computer, Inc., 1983-1986	             ;
;; All Rights Reserved		             ;
;;			             ;
;; Written by C. Hausmann, 1983		             ;
;;			             ;
;; Modification History:		             ;
;;      24Mar86 CRL	    Rewritten for 65816	             ;
;;      24Nov86 KLH	    Fixed Elems bug		             ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	EXPORT KLUGE19
KLUGE19	PROC
	LONGA OFF
	LONGI OFF
	LDX #F_X
	EXPORT KLUGE20
KLUGE20		;       
	LDY #F_DEST
	EXPORT KLUGE25
KLUGE25		;       
	LDA #FOMUL
	BNE CALL_SANE
	EXPORT KLUGE22
KLUGE22		;       
	LDX #F_W
	EXPORT KLUGE21
KLUGE21		;       
	LDY #F_X
	BNE KLUGE25
	EXPORT KLUGE23
KLUGE23		;       
	LDX #F_FPKHALF
	EXPORT KLUGE24
KLUGE24		;       
	LDY #F_W
	BNE KLUGE25
	EXPORT KLUGE26
KLUGE26		;       
	LDX #F_SRC
	EXPORT KLUGE27
KLUGE27		;       
	LDY #F_ACCUM
	BNE KLUGE25
	EXPORT KLUGE99
KLUGE99		;       
	LDY #F_DEST
	LDA #FOREM
	BNE CALL_SANE
	EXPORT KLUGE96
KLUGE96		;       
	LDX #F_FPK1
	EXPORT KLUGE97
KLUGE97		;       
	LDY #F_DEST
	EXPORT KLUGE98
KLUGE98		;       
	LDA #FOADD
;
; Routines to invoke a call to the Sane	Arithmetic. Two-argument calls only.
;
; Input: X reg : Index into table of source address
;        Y reg : Index into table of dest address
;        Accum : Function opcode
;
	EXPORT CALL_SANE
CALL_SANE		;       
	STA <OP0_ADDR	; Save opcode index
	LONGA ON
	LONGI ON
	REP #$30
	PHD	; save settings of D and B
	PHB
	JSR CHECKOP
	PHX
	PHA
	TYX
	LDY #FFEXT	; always extended
	EXPORT LATEKLUGE
LATEKLUGE		;       
	JSR CHECKOP
	PHX
	PHA
	SEP #$30
	LONGA OFF
	LONGI OFF
	TYA
	EXPORT KLUGE1
KLUGE1		;       
	PHA
	LDA <OP0_ADDR
	EXPORT KLUGE2
KLUGE2		;       
	PHA	; Push opcode
	CallFp
	SEP #$30	; back to 8-bit mode        
	LONGA OFF
	LONGI OFF
	PHP	; protect returns in status
	PLA	;   by holding status in A
	PLB	; restore D and DBR
	PLD	;   (trashing n and	z bits)
	PHA	; and restore status register
	PLP
	RTS
;
; Routines to invoke a call to the Sane	Arithmetic. Two-argument calls only.
;
; Input: X reg : Index into table of source address
;        Y reg : Index into table of dest address
;        Accum : Function opcode
;
	EXPORT CALLI_SANE
CALLI_SANE		;       
	STA <OP0_ADDR	; Save opcode index
	LONGA ON
	LONGI ON
	REP #$30
	PHD	; save settings of D and B
	PHB
	JSR CHECKOP
	PHX
	PHA
	TYX
	LDY #FFINT	; always integer
	BRA LATEKLUGE
;
; Routines to invoke a call to the Sane	Arithmetic. One-argument only.
;
; Input: X reg : Index into table of dest address
;        Y reg : Function opcode
;
	EXPORT CALL1_SANE
CALL1_SANE		;       
	LONGA ON
	LONGI ON
	REP #$30
	PHD	; save settings of D and B
	PHB
	JSR CHECKOP
	PHX
	PHA
	SEP #$30
	LONGA OFF
	LONGI OFF
	LDA #FFEXT	; Always extended
	PHA
	TYA	; Opcode
	BNE KLUGE2
;
; Routines to invoke a call to the Sane	Arithmetic. One integer value arg.
;
; Input: Y reg : Index into table of dest address
;        X reg : Function opcode
;
	EXPORT CALL1V_SANE
CALL1V_SANE		;       
	STZ <OP0_ADDR+2	; address below in bank 0
	LONGA ON
	LONGI ON
	REP #$30
	PHD	; save settings of D and B
	PHB
	CLC
	TDC
	ADC OPERAND,Y	; an address on direct page
	STA <OP0_ADDR
	LDA [<OP0_ADDR]	;   contents of that address
	PHA
	SEP #$30
	LONGA OFF
	LONGI OFF
	LDA #FFINT	; Always integer
	PHA
	TXA	; Opcode
	JMP KLUGE2
;
; Routine to call SANE.  Zero argument only.
;
; Input: X reg : Index into table of dest address
;        Y reg : Function opcode
;
	EXPORT CALL0_SANE
CALL0_SANE		;       
	LONGA ON
	LONGI ON
	PHD	; save settings of D and B
	PHB
	TYA
	BRA KLUGE2
	LONGA OFF
	LONGI OFF
;	              
; Routines to invoke a call to the Elems. One-argument only.
;
; Input: X reg : Index into table of dest address
;        Y reg : Function opcode
;
	EXPORT KLUGE30
KLUGE30		;       
	LDX #F_ACCUM
	EXPORT CALL_ELEMS
CALL_ELEMS		;       
	LONGA ON
	LONGI ON
	REP #$30
	PHD	; save settings of D and B
	PHB
	JSR CHECKOP
	PHX
	PHA
	PHY	; opcode in Y, hi byte xx
	SEP #$30
	CallEl
	PLB	; restore D and DBR
	PLD
	SEP #$30
	LONGA OFF
	LONGI OFF
	RTS
;
; Checkop computes a 4 byte address from a single byte index
;
;           Input:	X = offset into table of addresses at OPERAND
;           Output:	A = low word of required 4 byte address
;	X =  hi word of required 4 byte address
;
; The routine must distinguish between ROM addresses and direct page addresses.

;           Direct page addresses are:	0-word,  D + value at OPERAND,X.
;           ROM addresses are:	0-byte,  DBR-byte,	value at OPERAND,X.
;
	EXPORT CHECKOP
CHECKOP		;       
	PHP	; save operating state
	SEP #$30
	CPX #F_LOG21P	; is x between 0 and 18?
	BCC AddD	;   if so, it's in direct page
	CPX #F_EXCPTION	; is x between 92 and 98?
	BCS AddD	;   if so, it's in direct page
	LDA #0	; ADDRESS IN ROM
	PHA	; 4th byte of address is 0
	REP #$30
	LONGA ON
	LONGI ON
	LDA OPERAND,X	; collect low word of address
	PHB	; 3rd byte of address is DBR
	PLX	; pull hi word of address: 0,DBR
	BRA ENDCHECK
AddD	REP #$30	; ADDRESS IN DIRECT	PAGE
	CLC	;   and compute direct page addr
	TDC
	ADC OPERAND,X	; address low = D +	offset
	LDX #0	; address hi is 0
ENDCHECK	PLP	; restore operating	state
	RTS
	ENDP
;
; Utility to evaluate a polynomial using Horner's recurrence.
; Input:  Parameters are passed via zero-page registers 10-14
;         A0_ADDR	pts to result field	(preserved)
;         OP1_ADDR	pts to coefficient table (advanced beyond table).
;         A2_ADDR	pts to function value (preserved).
; Uses:   X,Y registers
; All operands are extended.  The polynomial table consists	of
; a leading word N,	a positive integer giving the degree of	the
; polynomial, and then (N+1) extended coefficients, starting with
; that of the leading term.
; RESULT  <-- C0  initially.
; RESULT  <-- (RESULT * X) + CJ   for J	= 1 to DEGREE
; Since OP1_ADDR is	advanced beyond the	end of the given coefficient table,
; POLYEVAL may be used sucessively with	consecutive tables,	after setting
; OP1_ADDR just once.
;
	EXPORT KLUGE35
KLUGE35	PROC	; 12MAY86 uncalled????
	LONGA OFF
	LONGI OFF
;               LDA	            OPERAND+1,Y
;               STA	            <OP1_ADDR+1
;               LDA	            OPERAND,Y
;               STA	            <OP1_ADDR
;               RTS
	EXPORT KLUGE29
KLUGE29		;       
	LDA #F_X
	BNE POLYEVAL
	EXPORT KLUGE32
KLUGE32		;       
	LDX #F_X
	LDA #F_Y
	BNE POLYEVAL
	EXPORT KLUGE33
KLUGE33		;       
	LDA #F_W
	LDY <I_TEMP
; Evaluates a polynomial in T by Horner's recursion.  Each loop uses 3 variables:
;
;               VARIABLE        INDEX REG       POINTER	    LOCATION
;               ------------------------------------------------
;               T	            A	        OP0_ADDR	    direct page
;               Coeff           Y	        OP1_ADDR	    ROM
;               Result          X	        A0_ADDR	    direct page
	EXPORT POLYEVAL
POLYEVAL		;       
	LONGA ON
	LONGI ON
	REP #$30
	AND #$00FF	; KLH 24Nov86
	STA <OP0_ADDR	; save index of result
	CLC
	TDC
	ADC OPERAND,X	; copy result address to A0
	STA <A0_ADDR
	LDA OPERAND,Y	; copy address of coeffs to op1
	STA <OP1_ADDR
	LDX <OP0_ADDR	; retrieve result index
	CLC
	TDC
	ADC OPERAND,X	; copy address of argument X
	STA <OP0_ADDR
	SEP #$30
	LONGA OFF
	LONGI OFF
	LDY #0
	LDA (<OP1_ADDR),Y	; copy #coeffs to D0
	STA <D0_TEMP
	LDX #$2	; point to 1st coeff,
	LDY #FOZ2X	;   copy it to result
	JSR KLUGE10
	EXPORT POLYLOOP
POLYLOOP		;       
	LDY #FOMUL
	JSR KLUGE12
	LDX #EXT_SIZE
	LDY #FOADD
	JSR KLUGE10
	DEC <D0_TEMP
	BNE POLYLOOP
	RTS
	EXPORT KLUGE10
KLUGE10		;       
	CLC
	TXA
	ADC <OP1_ADDR	; 3rd byte of OP1 =	DBR
	STA <OP1_ADDR
	LDA <OP1_ADDR+1
	ADC #$0
	STA <OP1_ADDR+1
	LDX #$0	; push 4 byte address of OP1
	PHD	; save D and B before fp call
	PHB
	PHX
	PHB	; OP1 pts to a constant in ROM
	PHA
	LDA <OP1_ADDR
	EXPORT KLUGE11
KLUGE11		;       
	PHA
	PEA 0	; push zero page address of A0
	LDA <A0_ADDR+1
	PHA
	LDA <A0_ADDR
	PHA
	LDA #FFEXT	; push opword and call engine
	PHA
	TYA
	JMP KLUGE2
	EXPORT KLUGE12
KLUGE12		;       
	PHD	; save B and D before fp call
	PHB
	PEA 0	; push zero page address of op0
	LDA <OP0_ADDR+1
	PHA
	LDA <OP0_ADDR
	BRA KLUGE11
;
; Clear the exception flag by getting, tweaking, and restoring the
; environment word.
; Input:  EXCPTION = exception bit index
; Uses:   J_ADDR
;
	EXPORT CLEARUFLOW
CLEARUFLOW		;       
	LDA #FBUFLOW
	BNE CLEARX2
	EXPORT CLEAROFLOW
CLEAROFLOW		;       
	LDA #FBOFLOW
	BNE CLEARX2
	EXPORT CLEARINVALID
CLEARINVALID		;       
	LDA #FBINVALID
	BNE CLEARX2
	EXPORT CLRINEXACT
CLRINEXACT		;       
	LDA #FBINEXACT
CLEARX2	STA <EXCPTION

	EXPORT CLEARX
CLEARX		;       
	LONGA ON
	LONGI ON
	REP #$30	; 16 bit mode
	LDY #FOGETENV	; Get environment word -
	JSR CALL0_SANE	;   returned in X and Y
	LONGA OFF
	LONGI OFF
	STX <J_TEMP
	STY <J_TEMP+1	; exceptions in hi byte
	LDA <EXCPTION
	EOR #FFMask	; Complement excption
	AND <J_TEMP+1	; Turn off excption
	STA <J_TEMP+1
	PHD	; save B and D before fp call
	PHB
	LDA <J_TEMP+1	; Try this..
	PHA
	LDA <J_TEMP
	PHA
	PHA
	LDA #FOSETENV
	JMP KLUGE2
;
; Utility to force a flag.
; Uses: EXCPTION.
;
	EXPORT FORCEOFLOW
FORCEOFLOW		;       
	LDA #FBOFLOW
	BNE FORCEX2
	EXPORT FORCEUFLOW
FORCEUFLOW		;       
	LDA #FBUFLOW
	BNE FORCEX2
	EXPORT FORCEDIVZER
FORCEDIVZER		;       
	LDA #FBDIVZER
	BNE FORCEX2
	EXPORT FORCEINVALID
FORCEINVALID		;       
	LDA #FBINVALID
	BNE FORCEX2
	EXPORT FORCEINEXACT
FORCEINEXACT		;       
	LDA #FBINEXACT
FORCEX2	STA <EXCPTION
	EXPORT FORCEX
FORCEX		;       
	LDX #FOSETXCP
	BNE TESTX1
;
; Utility to test an exception flag.
; Output: Z flag in	Status register is set if exception flag is off, Z is
; 0 if flag is on.
;
	EXPORT TESTUFLOW
TESTUFLOW		;       
	LDA #FBUFLOW
	BNE TESTX2
	EXPORT TESTOFLOW
TESTOFLOW		;       
	LDA #FBOFLOW
	BNE TESTX2
	EXPORT TESTDIVZER
TESTDIVZER		;       
	LDA #FBDIVZER
	BNE TESTX2
	EXPORT TESTINVALID
TESTINVALID		;       
	LDA #FBINVALID
	BNE TESTX2
	EXPORT TESTINEXACT
TESTINEXACT		;       
	LDA #FBINEXACT
TESTX2	STA <EXCPTION
	EXPORT TESTX
TESTX		;       
	LDX #FOTESTXCP
TESTX1	LDA #$0
	STA <EXCPTION+1
	EXPORT KLUGE31
KLUGE31		;       
	LDY #F_EXCPTION
	JMP CALL1V_SANE	; Clears Z flag if exception
;
;               This routine copies one	extended value to another.
;               x -> y where y is always on direct page, but x can
;               be in direct or rom.  x	is determined by the offset
;               in the X register.  For	x = 0..18 or 92..98, the
;               address is direct page,	otherwise rom.
;
	EXPORT KLUGE8
KLUGE8		;       
	LDY #F_DEST
	EXPORT MOVEIT
MOVEIT		;       
	JSR CHECKOP	; return address for x in X & A
	STA <OP0_ADDR
	XBA
	STA <OP0_ADDR+1
	STX OP0_ADDR+2
	STZ <OP1_ADDR+2
	LONGA ON
	LONGI ON
	REP #$30
	CLC
	TDC
	ADC OPERAND,Y
	STA <OP1_ADDR
	LDY #$8
Z1S04	LDA [<OP0_ADDR],Y
	STA [<OP1_ADDR],Y
	DEY
	DEY
	BPL z1s04
	SEP #$30
	LONGI OFF
	LONGA OFF
	RTS
;
; This routine negates an integer.  Integer must be in J_TEMP
;
	EXPORT NEGATE
NEGATE		;       
	SEC
	LDA #$0
	SBC <J_TEMP
	STA <J_TEMP
	LDA #$0
	SBC <J_TEMP+1
	STA <J_TEMP+1
	RTS
	ENDP
;
; END OF FILE
;
; Log
;                  COPY           elems/ELEM1.O
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; File:  Elem1.o			             ;
;; For building 65816 Elems V0.0		             ;
;; Status: First attempt		             ;
;; Copyright Apple Computer, Inc., 1983-1986	             ;
;; All Rights Reserved		             ;
;;			             ;
;; Written by C. Hausmann, 1983		             ;
;;			             ;
;; Modification History:		             ;
;;      24Mar86 CRL	    Rewritten for 65816	             ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; Floating scalb function computes (A0)	 <--  (A0) * 2^(A1)
; Because of the 15-bit exponent range,	just two invocations
; of FSCALBX are required if an over/underflow is to be simulated.
; (A0) and (A1) are	passed via zero-page registers
; A0_ADDR, A1_ADDR are not modified.
; Uses:  J_TEMP,
;        Y_ADDR (pointer to extended temporary)
;
	EXPORT SCALBXX
SCALBXX	PROC
	LONGA OFF
	LONGI OFF
	MOVE2 F_MAXINT,<J_TEMP
Z2S000	COPY_EXTEND <OP1_ADDR,<Y_TEMP
	LDX #F_Y
	JSR KLUGE68
;
; if (SP) is larger	than MAXINT then do	one step of scaling	by MAXINT.
;
	JSR VSMAXINT
	FBGE Z2S00
;
; Must diminish (Y)	by FPKMAXINT.
;
	LDX #F_FPKMAXINT
	LDY #F_Y
	JSR KLUGE91
	JSR KLUGE13
;
; If (SP) exceeds FPKMAXINT at this step, just force signed	FPKMAXINT
;
Z2S00	JSR VSMAXINT	; (SP) vs. FPKMAXINT
	FBGE z2s01
	LDX #F_FPKMAXINT
	JMP z2s03
Z2S01	LDX #F_Y
Z2S03	LDY #F_J	; Index of addrss of MAXINT or
;		        ; -MAXINT
	LDA #FOX2Z	; Convert reduced value to
;		        ; integer data type
	JSR CALLI_SANE
	JMP KLUGE13
	ENDP
;
; Scale (A0) by integer in JTEMP
;
	EXPORT SCALEINT
SCALEINT	PROC
	LONGA OFF
	LONGI OFF
	PHD	; save settings of D and B
	PHB
	PUSH2 <J_TEMP	; DANGER!! we are pushing
;		        ; a value -- not an address
;		        ; here!
	PUSH4 <A0_ADDR
	LDA #0
	PHA
	LDA #FOSCALB
	JMP KLUGE2
	EXPORT KLUGE13
KLUGE13		;       
	LONGA ON
	LONGI ON
	REP #$30
	LDX <OP1_ADDR
	JSR CLASS_2	; Check operand sign
	LONGA OFF
	LONGI OFF
	FBPLUS z3s01
	JSR NEGATE	; Negate MAXINT
Z3S01	JMP SCALEINT	; Scale (A0) by MAXINT or
;		        ; -MAXINT
;
; Compare extended value with FPKMAXINT
;
	EXPORT VSMAXINT
VSMAXINT		;       
	LDX #F_FPKMAXINT
	LDY #F_Y
	EXPORT KLUGE28
KLUGE28		;       
	LDA #FOCMP
	JMP CALL_SANE
	ENDP
;
; Trailing stubs to	deal with special values to be delivered.
;
	EXPORT POSTUFF
POSTUFF	PROC
	LONGA OFF
	LONGI OFF
	LDX #F_FPK0
	BNE KLUGE7
	EXPORT MOSTUFF
MOSTUFF		;       
	LDX #F_FPKM0
	BNE KLUGE7
	EXPORT P1STUFF
P1STUFF		;       
	LDX #F_FPK1
	BNE KLUGE7
	EXPORT M1STUFF
M1STUFF		;       
	LDX #F_FPKM1
	BNE KLUGE7
	EXPORT DIVPOSTUFF
DIVPOSTUFF		;       
	JSR FORCEDIVZER
	EXPORT PINFSTUFF
PINFSTUFF		;       
	LDX #F_FPKINF
	BNE KLUGE7
	EXPORT DIVMOSTUFF
DIVMOSTUFF		;       
	JSR FORCEDIVZER
	EXPORT MINFSTUFF
MINFSTUFF		;       
	LDX #F_FPKMINF
	EXPORT KLUGE7
KLUGE7		;       
	JSR KLUGE8
	JMP RESULTDELIVERED
	ENDP
;
; Fabricate a silent NAN, set Invalid, and deliver to destination.
;
	EXPORT ERRORNAN
ERRORNAN	PROC
	LONGA OFF
	LONGI OFF
	LDA <CLASS_SIGN	; 0=positive,1=negative
	BNE z4s099
	LDA #$7F
	JMP z4s088
Z4S099	LDA #FFMask
Z4S088	STA <DEST+9
	LDA #FFMask
	STA <DEST+8
	LDA #$40
	STA <DEST+7
	LDA <CLASS_CODE
	STA <DEST+6
	LDA #$0
	LDX #$5	; Byte count
Z4S09	STA <DEST,X
	DEX
	BPL z4s09
	JSR FORCEINVALID
;
; Finally, a result	has been placed in DEST.  Restore the environment,
; signalling any required exceptions, restore the registers.
;
	EXPORT RESULTDELIVERED
RESULTDELIVERED		;       
	PLA
	STA <SRC2_SIGN
	PLA
	STA <SRC2_CLASS
	PLA
	STA <SRC_SIGN
	PLA
	STA <SRC_CLASS
	POP2 <OLD_ENV
	POP3 <SAVE_DEST
	LDY #EXT_LEN	; return result
	PHX
	TYX
Z5S10	LDA <DEST,X
	STA [<SAVE_DEST],Y
	DEY
	DEX
	BPL z5s10
	PLX
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Note sleazy ending.  Pick up return addresses from stack,
;;    then push original saved environment, push procexit opcode,
;;    and invoke PROCEXIT:  not by JSR,	but instead by pushing
;;    original return addresses from stack at entry to elems call
;;    and doing a jump to the FP code.
;; In this way, all	elems calls go out through the FP back end.
;;    This ought to	make SANE look like	a one entry, one exit
;;    piece of code.  Halt mechanism writers may even like it!
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	LONGA ON
	LONGI ON
	REP #$30
	PLA
	STA A0_ADDR
	PLA
	STA A0_ADDR+2
	PLA
	STA A0_ADDR+4
;
	LDA <OLD_ENV
	PHA
	PEA FOPROCEXIT
;
	LDA A0_ADDR+4
	PHA
	LDA A0_ADDR+2
	PHA
	LDA A0_ADDR
	PHA
;
	JSL DecBusyFlg	; TEMPORARILY ZERO!!!!
	JMP Clayton
;
; Two short routines used to call FP and Elems from inside the code itself.
;   Each fakes up 2	return addresses so	dispatcher can be avoided.
;
	EXPORT Call_El
Call_El		;       
	JSL PrivateEntry
	RTL
	EXPORT Call_Fp
Call_Fp		;       
	JSL Clayton
	RTL
	ENDP
;
; Logarithm functions
; All four functions  LN(x), LOG2(x), LN(1+x), and LOG2(1+X)
; are launched by common error-checking	code.  In the usual	case
; that arithmetic is required, the computation is cast in the form
; log2(1+z).  The only difference between LN and LOG2 is that the
; former requires a	final multiplication by LN(2).
;
; The four functions are distinguished by the BTLOGBASE2 and
; BDLOG1PLUSX bits as described in the EQU section above.
;
; Since the only operand is the destination, the relevant class code
; (already diminished by FCINF in the NAN check) is in SRC2_CLASS.
; SRC2_CLASS corresponds to D1.B in Jerome's version of the Elems.
;
; 6502 vs 68000 version naming conventions:
;
; OPCODE       <-->	    D3.W
; DEST         <-->	    (A4)    { equivalent also to SRC2_PTR }
; SRC2_CLASS   <-->	    D1.B
; SRC2_SIGN    <-->	    D1.W
;
	EXPORT LOGTOP
LOGTOP	PROC
	LONGA OFF
	LONGI OFF
	LDA <SRC2_CLASS
	CMP #FCINF
	BEQ LOGINFIN
;
; Finite case
	LDA #BTLOG1PLUSX
	BIT <OPCODE
	BNE LOG1PLUSX
	LDA <SRC2_CLASS
	BMI LOGO
;		        ; -INF, with divide by 0
	LDA <SRC2_SIGN	; Check sign
;		        ; 0=positive, 80 (hex)=negative
	BMI LOGERROR
	JMP LOG2R
;
; case - Log for infinite value
;
	EXPORT LOGINFIN
LOGINFIN		;       
	LDA <SRC2_SIGN	; 0-pos, 1-neg
	BNE LOGERROR
	JMP PINFSTUFF	; Log(+INF) is +INF
	EXPORT LOGERROR
LOGERROR		;       
	LDA <SRC2_SIGN
	STA <CLASS_SIGN
	LDA #NANLOG	; Error code
	STA <CLASS_CODE
	JMP ERRORNAN	; Log (-INF) is an error
	EXPORT LOG1PLUSX
LOG1PLUSX		;       
	LDA <SRC2_CLASS
	BPL z6s06
;		        ; is 0 if operand is 0
	JMP RESULTDELIVERED
;		        ; LOG(+-0) is +-0
Z6S06	LDX #F_FPKM1
	LDY #F_DEST
	JSR KLUGE28
	FBUGT LOGERROR	; if -1 > operand, then error
	FBLT LOG12R	; Find LOG (1+x)
;		        ; Fall through when = -1
	EXPORT LOGO
LOGO		;       
	JMP DIVMOSTUFF	; End of special cases
;
; Compute LOG2(1 + T) for some positive, finite T.
; if 1 + T falls outside the range SQRT(1/2) to SQRT(2) then
; just go to the code for LOG2(S) below.  Else use LOGAPPROX
; on T itself, IGNORING the sum 1 + T.
;
	EXPORT LOG12R
LOG12R		;       
;
; First compute 1 +	T, saving the input	T in cell W.
;
	JSR KLUGE42
	JSR KLUGE96	; Dest := 1 + T
;
; Now compare with bounds SQRT(1/2) and	SQRT(2).
;
	LDX #F_DEST
	LDY #F_FPKSQTHALF
	JSR KLUGE28
	FBULE LOG2R
	LDX #F_FPKSQRT2
	LDY #F_DEST
	JSR KLUGE28
	FBLE LOG2R
;
; Input T is within	the required range so restore input value and
; just LOGAPPROX and finish up.
;
	JSR KLUGE40
	JSR LOGAPPROX
	JMP LOGFINI
	EXPORT KLUGE40
KLUGE40		;       
	LDX #F_W
	JMP KLUGE8
	EXPORT KLUGE42
KLUGE42		;       
	LDX #F_DEST
	EXPORT KLUGE41
KLUGE41		;       
	LDY #F_W
	JMP MOVEIT
	EXPORT KLUGE49
KLUGE49		;       
	LDX #F_DEST
	EXPORT KLUGE50
KLUGE50		;       
	LDY #F_X
	JMP MOVEIT
	EXPORT KLUGE51
KLUGE51		;       
	LDX #F_DEST
	EXPORT KLUGE52
KLUGE52		;       
	LDY #F_Y
	JMP MOVEIT
;
; Compute LOG2(T) for some positive, finite T.
; Represent T as 2^L * Q for SQRT (1/2)	<= Q <= SQRT(2).
; Then LOG2(T) is L	+ LOG2(Q).
; LOG2(Q) for that restricted range is computed at LOGAPPROX below.
;
	EXPORT LOG2R
LOG2R		;       
;
; Compute LOGB(T), i.e., L, in W.
;
	JSR KLUGE42
	LDX #F_W
	LDY #FOLOGB
	JSR CALL1_SANE
;
; Then scale T down	to range 1 to 2.  Use custom scale function with a
; floating number as the second argument.
;
	LDX #F_W
	JSR KLUGE67	; -L in W
	JSR KLUGE36
	LDX #F_W
	JSR KLUGE67	; Back to L in W
;
; If scaled value exceeds SQRT(2), then	halve T and increment L.
;
	LDX #F_DEST
	LDY #F_FPKSQRT2
	JSR KLUGE28
	FBULE z7s01
	LDX #F_FPK1
	LDY #F_W
	JSR KLUGE98	; Increment L by 1
	JSR DOSCALE	; scale by -1 = T/2
;
; Now must subtract	1 from DEST in order to use LOGAPPROX,
; which approximates LOG2(1 + S).
;
Z7S01	LDX #F_FPK1
	JSR KLUGE90
	JSR LOGAPPROX
;
; Add L in.  Exit via check to see whether to multiply by LN(2).
;
	LDX #F_W
	JSR KLUGE97
; Finish up with a multiply by LN(2) if	a natural log was requested.
;
	EXPORT LOGFINI
LOGFINI		;       
	LDA #BTLOGBASE2
	BIT <OPCODE
	BNE z8s01
	LDX #F_FPKLOGE2
	JSR KLUGE20
Z8S01	JMP RESULTDELIVERED
;
	EXPORT DOSCALE
DOSCALE		;       
	LONGA ON
	LONGI ON
	REP #$30
	PHD	; save settings of D and B
	PHB
	LDA #$FFFF	; push -1 scale factor
	PHA
	PEA 0	; push dest address
	CLC
	TDC
	ADC #<DEST
	PHA
	LDA #FOSCALB	; full word
	JMP KLUGE2
	LONGA OFF
	LONGI OFF
;
; Compute LOG2(1+S)	for S between SQRT(1/2) and SQRT(2).
; Assume all special cases have been filtered out and that
; number DEST is indeed within range.
; Let R := S / (2 +	S).
; Then LOGAPPROX :=	R * P(R*R) / Q(R*R),
; where the coefficients are taken from	LOG21P and LOG21Q.
;
; Leave cell W alone, for use by LOG2R.
; Use cell Y_TEMP for R, X_TEMP for R*R.
; Use DEST for R * P(R*R);  then Y_TEMP	for Q(R*R).
; Registers A0TEMP-A2TEMP are used by the POLYEVAL.
;
; To avoid spurious	inexact, filter out	0.
; To keep accuracy,	filter out denorms.
	EXPORT LOGAPPROX
LOGAPPROX		;       
	JSR KLUGE61
	CPX #FCZERO	; Zero?
	BNE LANONZERO	; Quit exit if zero
	RTS
	EXPORT LANONZERO
LANONZERO		;       
	CPX #FCNORM
	BEQ LANORMAL	; 0-norm, 1-denorm
;
; Since log2(1 + tiny) = ln (1 + tiny)/	ln(2) and ln (1 + tiny) is tiny + ...
; just divide denorm by ln(2) and return.  Share exit code with main
; computation.
;
	LDX #F_FPKLOGE2
	JMP LAFINI
	EXPORT LANORMAL
LANORMAL		;       
	JSR KLUGE49
	LDX #F_FPK2
	JSR KLUGE97
	LDX #F_DEST
	LDY #F_X
	JSR KLUGE93
	LDX #F_X	; Y := R
	LDY #F_Y
	JSR MOVEIT
	LDX #F_X
	JSR KLUGE21
;
; Evaluate P (R*R) into DEST
;
	LDX #F_DEST	; Result into DEST
	LDY #F_LOG21P	; Coefficients of P
	JSR KLUGE29
;
; Evaluate R * P (R*R) into DEST
;
	LDX #F_Y	; R
	JSR KLUGE20
;
; Evaluate Q (R*R) into Y
;
	LDX #F_Y	; Result into Y
	LDY #F_LOG21Q	; Coefficients of Q
	JSR KLUGE29
;
; Be sure inexact is set and clear all underflows up to the	last step
; Finally, divide (R * (P (R*R)) in DEST by Q (R*R) in Y
;
	JSR CLEARUFLOW
	LDX #F_Y	; Q (R * R)
	EXPORT LAFINI
LAFINI		;       
	JSR KLUGE92
	JMP FORCEINEXACT
	ENDP
;
; END OF FILE
;
; Exp, X^I
;                  COPY           elems/ELEM2.O
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; File:  Elem2.o			             ;
;; For building 65816 Elems V0.0		             ;
;; Status: First attempt		             ;
;; Copyright Apple Computer, Inc., 1983-1986	             ;
;; All Rights Reserved		             ;
;;			             ;
;; Written by C. Hausmann, 1983		             ;
;;			             ;
;; Modification History:		             ;
;;      24Mar86 CRL	    Rewritten for 65816	             ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; EXP(x) and EXP2(x) share the same exception code.  To compute
; numerical results, express resultas 2^K * ((2^frac - 1) +	1),
; and use EXAPPROX to figure (2^frac - 1).
;
	EXPORT EXPTOP
EXPTOP	PROC
	LONGA OFF
	LONGI OFF
	LDA <SRC2_CLASS
	BPL EXPNONZERO	; Handle positive non-zero case
	CMP #FCZERO
	BEQ z1s05	; Handle zero case
	LDA <SRC2_SIGN	; 0=positive, 80 (hex) =negative
	BMI z1s01
	JMP RESULTDELIVERED	; Already have +INF	in DEST
Z1S05	JMP P1STUFF	; EXP (+-0) is +1
Z1S01	JMP POSTUFF	; EXP (-INF) is +0
	EXPORT EXPNONZERO
EXPNONZERO		;       
	LDA #BTLOGBASE2
	BIT <OPCODE	; Nonzero if EXP2X
	BEQ EXPR
;
; 2^T is easy, for general T.
; Set cell W to integer part of T.
; Set T to fraction	part of itself.
; User root computation to evaluate 2^T	- 1 with LOGAPPROX;
; add 1 to T, and scale by W.
;
	EXPORT EXP2R
EXP2R		;       
	JSR SPLIT2
	JMP EXPROOT	; and exit...
;
; EXP(T) is just slightly more complicated than EXP2(T) above.
; Let T = K * LN(2)	+ F
; Then EXP(T) is 2^K + ((2^F/LN(2)) - 1) + 1).
; So user EXP2ROOT with W set to K and T set to F/LN(2).
; Find F with REM modulo LN(2); then subtract from T and divide by LN(2)
; to get K.
	EXPORT EXPR
EXPR		;       
	JSR SPLIT
	JSR TESTOFLOW
	BEQ EXPROOT	; This may change depending
;		        ; on how FTESTXCP is handled
	JSR KLUGE17
	JSR FORCEUFLOW
	JMP POSTUFF
	EXPORT KLUGE17
KLUGE17		;       
	JSR FORCEINEXACT	; Either O/UFLOW
	LDA <SRC2_SIGN	; 0=positive,80=negative
	BMI z2s01
	PLA
	PLA
	JMP PINFSTUFF	; Oflow to +INF
Z2S01	JMP CLEAROFLOW
;
; This is the root of V^X where V is 2 or E.
; Compute  ((2^T - 1) + 1) * 2 * W.  EXAPPROX gives the innermost
; expression.  W is	presumed to be an integer, possibly huge.
;
	EXPORT EXPROOT
EXPROOT		;       
	JSR EXAPPROX	; DEST <-- 2^T - 1
	JSR KLUGE3
	JMP RESULTDELIVERED
;
; Given general number in T, split into	integer part in W
; and fraction in T, rounding.
;
	EXPORT SPLIT2
SPLIT2		;       
	JSR KLUGE42
	JSR KLUGE64
	JSR CLRINEXACT	; Dont' record rounding error
	LDX #F_W	; Integer part
	EXPORT KLUGE90
KLUGE90		;       
	LDY #F_DEST	; All of number
	EXPORT KLUGE91
KLUGE91		;       
	LDA #FOSUB
	JMP CALL_SANE
;
; Split T for EXP(x) and EXP(x) - 1.
; Let T = K * LN(2)	+ F.  Want W=K and T=F/LN(2).
; Find F with REM modulo LN(2); then subtract from T and divide by LN(2)
; to get K.
	EXPORT SPLIT
SPLIT		;       
	JSR KLUGE42
	LDX #F_FPKLOGE2
	JSR KLUGE99
	LDX #F_DEST
	LDY #F_W
	JSR KLUGE91	; T - (T REM LN(2))	in W
	LDX #F_FPKLOGE2
	LDY #F_W
	JSR KLUGE93
	JSR KLUGE64
	LDX #F_FPKLOGE2
	JSR KLUGE92
	JMP CLRINEXACT	; ... and exit
;
; EXP(x)-1 and EXP2(x)-1 share the same	exception code.  Then both exploit
; EXAPPROX for the root computation  2^frac - 1.
;
	EXPORT EXP1TOP
EXP1TOP		;       
	LDA <SRC2_CLASS
	BPL EXP1FINITE	; Handle finite non-zero case
	CMP #FCZERO
	BEQ EXPEASY	; Handle zero case
;		        ; Y^+-0 - 1	is +-0
	LDA <SRC2_SIGN	; 0=positive, 1=negative
	BPL EXPEASY
	JMP M1STUFF	;Y^-INF - 1 is -1
	EXPORT EXPEASY
EXPEASY		;       
	JMP RESULTDELIVERED	; Y^+INF - 1 is +INF
	EXPORT EXP1FINITE
EXP1FINITE		;       
;
; If the number is denormalized, have easy case whether EXP1 or EXP21.
;
	LDA #BTLOGBASE2
	BIT <OPCODE	; Nonzero if EXP2X
	BEQ EXP1R
;
; As above, for 2^T-1 split T into fraction part in T and integer
; in W, and got to root computation.
;
	EXPORT EXP21R
EXP21R		;       
	LDA <SRC2_CLASS
	BEQ EXP21RNORM	; Handle normal
	LDX #F_FPKLOGE2
	JSR KLUGE20
	EXPORT EXP1OUT
EXP1OUT		;       
	JSR FORCEUFLOW
	JSR FORCEINEXACT
	JMP EXP1RDONE
	EXPORT EXP21RNORM
EXP21RNORM		;       
	JSR SPLIT2
	JMP EXP1ROOT
;
; For E^T-1, split T into K and F/LN(2), where T = K*LN(2) + F.
; If overflow, then	force INF or -1...
;
	EXPORT EXP1R
EXP1R		;       
	LDA <SRC2_CLASS	; 0-norm, 1-denorm
	BNE EXP1OUT	; Handle denorm
;		        ; E^T-1 is T, with UFLOW
;		        ; for now.
	JSR SPLIT
	JSR TESTOFLOW
	BEQ EXP1ROOT
	JSR KLUGE17
	JMP M1STUFF	; Force -1
;
; This is the root of V^X-1 where V is 2 or E.
; Compute (2^T - 1)	for fraction T.  Then if (integer) W is
; nonzero, finish off with (((2^T - 1) + 1) * 2^W) - 1.
;
	EXPORT EXP1ROOT
EXP1ROOT		;       
	JSR EXAPPROX	; 2^T - 1
	LDX #F_W
	LDY #F_FPK0
	JSR KLUGE28
	FBEQ EXP1RDONE
	JSR KLUGE3
	LDX #F_FPK1	; Finally, subtract	1
	JSR KLUGE90
;
; Reset underflow, which cannot occur if W (as in 2^W) is nonzero.
;
	JSR CLEARUFLOW
	EXPORT EXP1RDONE
EXP1RDONE		;       
	JMP RESULTDELIVERED
	EXPORT KLUGE3
KLUGE3		;       
	JSR KLUGE96
	EXPORT KLUGE36
KLUGE36		;       
	MOVECA <DEST,<A0_ADDR ; Result Ptr
	MOVECA <W_TEMP,<OP1_ADDR ; Integer part
	JMP SCALBXX	; ((2^T - 1) + 1) *	2^W
;
; Compute approximate (2^T) - 1) for T in DEST.
; Uses cells X,Y (extended) and temporary ptrs A0_ADDR, OP1_ADDR.
; Expression has the form
;      ( 2 * T * P(T*T)) / (Q(T*T) - (T	* P(T*T)) ).
; One special case:	if T is 0, just return 0, and don't set
; the inexact flag.
;
	EXPORT EXAPPROX
EXAPPROX		;       
	LDX #F_DEST
	LDY #F_FPK0	; Compare input with 0
	JSR KLUGE28
	FBNE EXPHARD
	RTS
	EXPORT EXPHARD
EXPHARD		;       
	JSR KLUGE51
	LDX #F_Y
	LDY #F_Y
	JSR KLUGE25
	LDY #F_EXP21P	; Exponent P coefs
	JSR KLUGE32
	JSR KLUGE19
	LDY #F_EXP21Q
	JSR KLUGE32
	LDX #F_DEST
	LDY #F_X
	JSR KLUGE91
	LDX #F_FPK2	; 2.0
	JSR KLUGE20
	LDX #F_X
	JSR KLUGE92
;
; Finally, set inexact and clear any underflow messages.
;
	JSR FORCEINEXACT
	JMP CLEARUFLOW	; ...and exit.
	ENDP
;
;
;
;
; Raise extended dst to integer src power.
;
	EXPORT KLUGE37
KLUGE37	PROC
	LONGA OFF
	LONGI OFF
	MOVE2 <I_SRC,<J_TEMP
	RTS
	EXPORT XPWRITOP
XPWRITOP		;       
	LDA <I_SRC
	ORA <I_SRC+1	; See if = 0
	BNE z3s05
	JMP P1STUFF	; Any^0 is 1
Z3S05	LDA <SRC2_CLASS
	BPL FINPWRI	; Nonzero^I
; Get here if INF^I	of 0^I.  If I is negative, must reciprocate
; (signaling div by	0 in case of 0^-N).	 If I is even, must	clear
; sign.
;
	JSR KLUGE37
	LSR <J_TEMP+1	; Get odd bit of I into C
	ROR <J_TEMP
	BCS z3s01	; Carry bit set if odd
	JSR KLUGE63
Z3S01	LDA <I_SRC+1
	BMI z3s02
	JMP RESULTDELIVERED	; (INF or ZERO)^POS
Z3S02	LDA <SRC2_CLASS
	CMP #FCZERO
	BEQ ZPWRNEG	; INF or ZERO?
	JSR KLUGE61
	BMI Z3S03
	JMP POSTUFF	; +INF^NEG is +0
Z3S03	JMP MOSTUFF	; -INF^NEG is -0
	EXPORT ZPWRNEG
ZPWRNEG		;       
	JSR KLUGE61
	BMI z4s04
	JMP DIVPOSTUFF	; +0^NEG is +INF
Z4S04	JMP DIVMOSTUFF	; -0^NEG is -INF
;
; NONZERO^I is broken into two cases:
;   If I is small, then just multiply out.  Note that sign perseveres if
;   I is odd.
;   Otherwise, convert I to extended and evaluate with exponentials.
;
; 6502 NOTE:  Since	'SMALLEXP' = 255, only need to look at the high byte
; to see if a number is smaller than that.  Also, once I decide to use
; XPWRK algorithm, I will be working with a one byte quantity (for k).
;
	EXPORT FINPWRI
FINPWRI		;       
	JSR KLUGE4
	LDA <D0_TEMP+1
	BNE XPWRBIG	; Use LOG and EXP
	JSR XPWRK	; Multiply out
	JMP RESULTDELIVERED
;
; Integer power is too large to multiply out, so convert to	extended
; and use general x^y routine.  Make copy of integer in cell W.
;
	EXPORT XPWRBIG
XPWRBIG		;       
	JSR KLUGE61
	AND #$80	; show only sign bit
	PHA
	JSR KLUGE63
	LDX #F_ISRC	; Addr of Int
	LDY #F_SRC
	LDA #FOZ2X	; Convert int to ext
	JSR CALLI_SANE
	JSR XPWRY	; Compute (DEST)^(SRC)
;
; Note that XPWRY mujst preserve the integer value in ISRC
;
	PLA	; Retrieve sign of input
	BPL z5s03	; If positive, don't care
	LSR <I_SRC	; Low bit to carry
	BCC z5s03	; Carry set if odd
	JSR KLUGE62
Z5S03	JMP RESULTDELIVERED
	EXPORT KLUGE61
KLUGE61		;       
	LDX #F_DEST
	LDY #FOCLASS
	EXPORT KLUGE60
KLUGE60		;       
	JMP CALL1_SANE
	EXPORT KLUGE62
KLUGE62		;       
	LDX #F_DEST
	EXPORT KLUGE67
KLUGE67		;       
	LDY #FONEG
	BNE KLUGE60
	EXPORT KLUGE63
KLUGE63		;       
	LDX #F_DEST
	EXPORT KLUGE68
KLUGE68		;       
	LDY #FOABS
	BNE KLUGE60
	EXPORT KLUGE64
KLUGE64		;       
	LDX #F_W
	EXPORT KLUGE66
KLUGE66		;       
	LDY #FORTI
	BNE KLUGE60
	ENDP
;
; Raise T to the power ISRC, leaving the result in DEST_ADDR.  D0TEMP =
; ABS (ISRC).  If ISRC is negative, evaluate the positive power and
; reciprocate at the end.  Know ISRC is	nonzero.  Sign of DEST_ADDR is
; propagated correctly.  Trash A0_TEMP,	A1_TEMP, D0_TEMP, I_TEMP, W_TEMP,
; J_TEMP, X_TEMP.
;
	EXPORT XPWRK
XPWRK	PROC
	LONGA OFF
	LONGI OFF
	JSR KLUGE49
	JSR XPWRKLOOP
;
; Now that loop is finished, produce 1 * T^|I| or 1 / T^|I|, depending
; on sign of I.  If	overflow or underflow has occurred and I is negative,
; redo compuation with pre-reciprocated	T.
;
	LDA <I_SRC+1	; Is I negative?
	BMI XPWRKDIV
	EXPORT XPWRKSTORE
XPWRKSTORE		;       
	LDX #F_W	; T <-- T^|I|
	LDY #F_DEST
	JMP KLUGE40
	EXPORT XPWRKDIV
XPWRKDIV		;       
	LDX #F_FPK1	; T <-- 1
	JSR KLUGE8
	JSR TESTUFLOW
	BNE XPWRKCLEAR
	JSR TESTOFLOW
	BNE XPWRKCLEAR
	EXPORT KLUGE95
KLUGE95		;       
	LDX #F_W	; W = T^|I| from XPWRKLOOP
	EXPORT KLUGE92
KLUGE92		;       
	LDY #F_DEST
	EXPORT KLUGE93
KLUGE93		;       
	LDA #FODIV
	JMP CALL_SANE
	EXPORT XPWRKCLEAR
XPWRKCLEAR		;       
	JSR CLEAROFLOW
	JSR CLEARUFLOW
	LDX #F_X	; Saved input T atop T^|I|
	JSR KLUGE92
	JSR KLUGE4
	JSR XPWRKLOOP
	JMP XPWRKSTORE
;
; Input:   D0_TEMP = positive integer K	 ( <255 )
;          DEST_ADDR = X
; Output:  W_TEMP =	X^K
; Trashes: D0_TEMP
;
	EXPORT XPWRKLOOP
XPWRKLOOP		;       
	LDX #F_FPK1	; See result with 1.0
	JSR KLUGE41
	JMP XKLPENTRY
	EXPORT XKLPTOP
XKLPTOP		;       
	LDX #F_DEST
	JSR KLUGE20
	EXPORT XKLPENTRY
XKLPENTRY		;       
	LSR <D0_TEMP	; Get low bit of k into C
	BCC XKLPSKIP
	LDX #F_DEST	; T^(2^I)
	JSR KLUGE24
	EXPORT XKLPSKIP
XKLPSKIP		;       
	LDA <D0_TEMP	; Any more bits?
	BNE XKLPTOP
	RTS
;
; Simple routine to	compute (DEST)^(SRC) into (DEST).
; Know that (DEST) is positive.  Know that the FMULX will never
; encounter 0 * INF, so extreme cases, like INF^3, will be handled
; correctly.
;
	EXPORT XPWRY
XPWRY		;       
	LDX #F_DEST	; Copy Dest into temporary
;		        ; accumulator
	JSR KLUGE44
	LDY #FOLOG2X	; LOG2(ACCUM)
	EXPORT KLUGE5
KLUGE5		;       
	JSR KLUGE30
	JSR KLUGE26	; SRC * LOG2 (ACCUM)
	LDY #FOEXP2X	; ACCUM^SRC
	JSR KLUGE30
	EXPORT KLUGE43
KLUGE43		;       
	LDX #F_ACCUM	; Move accum back into Dest
	JMP KLUGE8
	EXPORT KLUGE45
KLUGE45		;       
	LDX #F_SRC2
	EXPORT KLUGE44
KLUGE44		;       
	LDY #F_ACCUM
	JMP MOVEIT
	ENDP
;
; END OF FILE
;
; X^Y, Compound, Annuity
;                  COPY           elems/ELEM3.O
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; File:  Elem3.o			             ;
;; For building 65816 Elems V0.0		             ;
;; Status: First attempt		             ;
;; Copyright Apple Computer, Inc., 1983-1986	             ;
;; All Rights Reserved		             ;
;;			             ;
;; Written by C. Hausmann, 1983		             ;
;;			             ;
;; Modification History:		             ;
;;      24Mar86 CRL	    Rewritten for 65816	             ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; General function x^y is beset by exceptional cases.
;
	EXPORT XPWRYTOP
XPWRYTOP	PROC
	LONGA OFF
	LONGI OFF
	LDA <SRC2_SIGN	; Is X=DEST negative?
	BMI NEGPWRY
	JSR XPWRYCOM
	JMP RESULTDELIVERED
;
; Signal X^Y error and stuff a NAN.  Special entry accommodates branches from
; within subroutines, in which case a return address must be popped.
;
	EXPORT XPWRY9ERR
XPWRY9ERR		;       
	PLA	; pop extra return address
	PLA
	EXPORT XPWRYERR
XPWRYERR		;       
	JSR CLRINEXACT	; Signal invalid only
	LDA #NANPOWER
	EXPORT KLUGE38
KLUGE38		;       
	STA <CLASS_CODE
	LDA <SRC_SIGN	; Check that D0 corresponds
;		        ; to this!
	STA <CLASS_SIGN
	JMP ERRORNAN
;
; If X is negative,	check that Y is integral;  otherwise error.
; Save parity of Y to fix sign at end of XPWRYCOM.
;
	EXPORT NEGPWRY
NEGPWRY		;       
	LDA <SRC_CLASS
	CMP #FCINF
	BEQ XPWRYERR	; Y class - INF
	LDX #F_SRC	; Y=SRC
	JSR KLUGE41
	LDX #F_SRC
	JSR KLUGE66
	LDX #F_SRC
	JSR KLUGE66
	JSR TESTINEXACT
	BNE XPWRYERR
;
; NEG ^ INT requires that parity of Y be saved in cell J for later
; setting of sign.	To find low bit of floating integer, divide by
; 2 and test inexact.
;
	LDX #F_FPK2	; 2.0
	LDY #F_W
	JSR KLUGE93
	JSR KLUGE64

	LONGA ON
	LONGI ON
	REP #$30	; save flags, first	16 bit mode
	LDY #FOGETENV	; set all 16 bits
	JSR CALL0_SANE	; and place zero arg call
	LONGA OFF
	LONGI OFF
	STX <I_TEMP
	STY <I_TEMP+1
	JSR CLRINEXACT
	JSR KLUGE63
	JSR XPWRYCOM	; Abs (DEST) ^ (SRC)
;
; Fix sign of power, according to parity of Y.  The parity is stored in
; the inexact flag,	saved in cell I.  It's in the high byte so just do
; a bit test.
;
	LDA #FBINEXACT
	BIT <I_TEMP+1
	BEQ z1s01	; Negate if odd (inexact)
	JSR KLUGE62
Z1S01	JMP RESULTDELIVERED
;
; Common routine to	raise DEST to SRC power.
; Know DEST >= 0 and SRC is not a NAN.
; Have class codes in SRC2_CLASS and SRC_CLASS, respectively.
; Can run through  2 ^ Y*LOG2(x)  code so long as won't multiply
; INF and 0 to compute exponent.  As a minor detail, if Y is 0 or INF,
; clear any inexact	that may have been set by LOG2(x).
;
; Since this is called as a subroutine,	exits to XPWRYERR must have a
; special pop for the return address.
;
	EXPORT XPWRYCOM
XPWRYCOM		;       
	LDA <SRC2_CLASS
	CMP #FCZERO
	BNE NONPWRY
;
; 0 ^ some
;
	LDA <SRC_CLASS
	CMP #FCZERO
	BNE z2s02
	JMP XPWRY9ERR	; 0^0 error, with
;		        ; rts pop
Z2S02	LDA <SRC_SIGN	; Sign of Y
	BPL z2s01
;
; 0 ^ nonzero
;
	JSR FORCEDIVZER	; Signal div by zero
	LDX #F_FPKINF	; Stuff result and exit
	BNE z2s03
Z2S01	LDX #F_FPK0
Z2S03	JMP KLUGE8
;
; nonzero ^ some
;
	EXPORT NONPWRY
NONPWRY		;       
	BPL FINPWRY	; Exit if X finite
;
; inf ^ some
;
	LDA <SRC_CLASS
	CMP #FCZERO
	BNE XPWRYOK	; Y = norm, denorm,	or INF
	JMP XPWRY9ERR	; INF^0 is an error
;
; finite ^ some
;
	EXPORT FINPWRY
FINPWRY		;       
	LDA <SRC_CLASS
	CMP #FCINF
	BNE XPWRYOK	; FIN ^ FIN is ok
;
; finite ^ inf has the special case 1^INF which is an error.
;
	LDX #F_DEST
	LDY #F_FPK1
	JSR KLUGE28
	FBNE XPWRYOK
	JMP XPWRY9ERR
;
; Finally, compute finite^reasonable and return.
; Two cases: if exponent is a small integer, then just multiply;
; else use log and exp.  To check for an integer, try converting to
; 16 bits.  Overflow is Invalid, rounding error is Inexact.
; Must reset Invalid, but if Inexact the result will be anyway.
;
; 6502 NOTE: Unlike	the MAC routine, it	proves to be unnecessary to
; save an extra copy of SRC_CLASS since	it is never modified in
; call to XPWRK (in	the 6502 version).
;
	EXPORT XPWRYOK
XPWRYOK		;       
	LDX #F_SRC	; Exponent address index
	LDY #F_ISRC
	LDA #FOX2Z	; Convert to integer
	JSR CALLI_SANE
	LDA #FBIplusX	; logical OR of i,x
	STA <EXCPTION
	LDX #FOTESTXCP
	JSR KLUGE31	; Either error?
	BEQ z3s01
	JSR CLEARINVALID
	JMP XPWRYHARD	; Yes! So do it using log
;		        ; and exp
Z3S01	JSR CLEARINVALID	; Clear undeserved error
	JSR KLUGE4
	LDA <D0_TEMP+1
	BNE XPWRYHARD
	JMP XPWRK	; Do it as an integer and
;		        ; exit (k small)
	EXPORT KLUGE4
KLUGE4		;       
	MOVE2 <I_SRC,<D0_TEMP
	LDA <I_SRC+1
	BPL z4s02
	JSR KLUGE37
	JSR NEGATE
	MOVE2 <J_TEMP,<D0_TEMP
Z4S02	RTS
	EXPORT XPWRYHARD
XPWRYHARD		;       
	JSR CLRINEXACT
	CLC
	LDA <SRC_CLASS
	JSR XPWRY
	LDA <SRC_CLASS
	CLC
	LDA <SRC_CLASS	; Check for y = 0 or INF
	BPL z5s01
	JMP CLRINEXACT	; and return from there
Z5S01	RTS
	ENDP
;
; Compute  DEST <--	(1 + SRC2)^SRC	 r = SRC2    n = SRC
; Watch for special	cases:
;          SRC2  < -1  is invalid
;          else  SRC = 0 yields 1
;          else  SRC2 = 0 and SRC = INF	if invalid
;          else  SRC = INF yields 0 or INF according to SRC2
;          else  SRC2 = -1 yields 0, 1,	or INF according to	SRC
;          else  actually compute (1 + r)^n !!
;
	EXPORT COMPOUNDTOP
COMPOUNDTOP	PROC
	LONGA OFF
	LONGI OFF
	LDX #F_SRC2
	LDY #F_FPKM1	; -1
	JSR KLUGE28
	FBEQ z6s01
	FBGT CMPGTM1
	JMP ERRFINAN	; Unordered or less	than -1
;
; Get here if SRC2 is -1.  Check SRC for 0 or nonzero.
;
Z6S01	LDA <SRC_CLASS
	CMP #FCZERO
	BNE CMPM1N
	EXPORT CMPTOZERO
CMPTOZERO		;       
	JMP P1STUFF	; (1 + some)^0 is +1
	EXPORT CMPM1N
CMPM1N		;       
	LDA <SRC_SIGN
	BPL CMPZERO
	JMP DIVPOSTUFF	; (1 - 1)^NEG is +INF
	EXPORT CMPZERO
CMPZERO		;       
	JMP POSTUFF	; (1 - 1)^POS is +0
;
; Get here if SRC2 (r) is > -1.
;
	EXPORT CMPGTM1
CMPGTM1		;       
	LDA <SRC_CLASS
	CMP #FCZERO
	BEQ CMPTOZERO	; (1 + some)^0 is +1
	BPL CMPTOFIN	; Go do (1 + some)^FINITE
;
; Get here if (1 + some)^INF.  Check for 1^INF, an error, else have
; INF or 0 according to SRC and SRC2.
;
	LDA <SRC2_CLASS
	CMP #FCZERO
	BNE z7s01
	JMP ERRFINAN
Z7S01	LDA <SRC_SIGN
	EOR <SRC2_SIGN
	BNE CMPZERO	; Signs differ --> ZERO
	JMP PINFSTUFF	; Signs same --> +INF
;
; Finally, compute (1 + reasonable)^finite with the usual...
;
	EXPORT CMPTOFIN
CMPTOFIN		;       
	JSR KLUGE45
	LDY #FOLOG21X	; LOG2 (1 + ACCUM)
	JSR KLUGE5
	JSR CLEAROFLOW
	JSR CLEARUFLOW
	JSR TESTINEXACT
	BEQ z8s01	; Done if not inexact
	JSR KLUGE61
	CPX #FCNORM	; Normal - done
	BEQ z8s01
	CPX #FCINF	; Infinite - set oflow
	BNE z8s02
	JSR FORCEOFLOW
	JMP RESULTDELIVERED
Z8S02	JSR FORCEUFLOW	; Zero, denorm - set uflow
Z8S01	JMP RESULTDELIVERED
;
; Routine to stuff the financial NAN and go.
;
	EXPORT ERRFINAN
ERRFINAN		;       
	LDA #NANFINAN
	JMP KLUGE38
	ENDP
;
; Compute annuity factor:
;     (1 - (1 + r)^-n ) / r
; for  r = SRC2  and  n = SRC.
; Multitudinous special cases handled piece by piece.
;
	EXPORT ANNUITYTOP
ANNUITYTOP	PROC
	LONGA OFF
	LONGI OFF
	LDX #F_SRC2	; R
	LDY #F_FPKM1	; -1
	JSR KLUGE28
	FBULT ERRFINAN	; R < -1 is an error
	FBNE ANNOK
;
; Get here is have (1 - 1)^ANY.  Just check n = SRC.
;
	LDA <SRC_CLASS
	CMP #FCZERO
	BEQ ANNO	; ANN (-1, 0) is + 0
	LDA <SRC_SIGN	; Check sign of nonzero N
	BMI ANNM1
	JMP DIVPOSTUFF
	EXPORT ANNM1
ANNM1		;       
	JMP M1STUFF
;
; Know that R = SRC2 exceeds -1.  Check	first for N=SRC=0.
;
	EXPORT ANNOK
ANNOK		;       
	LDA <SRC_CLASS
	CMP #FCZERO
	BNE ANNXN
	EXPORT ANNO
ANNO		;       
	JMP POSTUFF
;
; Now check for unusual, 0 or INF, R=SRC2.
;
	EXPORT ANNXN
ANNXN		;       
	LDA <SRC2_CLASS
	CMP #FCZERO
	BEQ ANNSRC	; SRC2=0
	BPL ANNROK	; Norm, Denorm
	JMP ANNRINF	; Infinity
;
; R = SRC2 = 0.  Limit gives result of N = SRC.
;
	EXPORT ANNSRC
ANNSRC		;       
	LDX #F_SRC
	JMP KLUGE7
;
; R = SRC2 = +INF.	If N = SRC is nonnegative have 0, else test N=SRC vs -1.
;
	EXPORT ANNRINF
ANNRINF		;       
	LDA <SRC_SIGN
	BPL ANNO	; Force +0
	LDX #F_SRC	; SRC
	LDY #F_FPKM1	; -1
	JSR KLUGE28
	FBEQ ANNM1	; N = -1, stuff -1
	FBLT z9s01
	JMP MOSTUFF
Z9S01	JMP MINFSTUFF
;
; Way down here, we	have R=SRC2 a normal or denormal number.
; Last check is for	N=SRC=INF.
;
	EXPORT ANNROK
ANNROK		;       
	LDA <SRC_CLASS
	BPL ANNDOIT	; Norm or Denorm
	LDA <SRC_SIGN
	EOR <SRC2_SIGN	; Do R and N signs match
	BNE ANNSRC
	LDX #F_FPK1	; X <-- +1
	JSR KLUGE50
	LDX #F_SRC2	; Addr of R, divisor
	LDY #F_X
	JSR KLUGE93
	LDX #F_X	; Dest <-- 1/R
	JMP KLUGE7
;
; Finally, compute (1 - (1 + r)^-n ) / r.
; Distinguish two cases:
;      r normal:
;               log2(1 + r)
;               n *	log2 (1 + r)
;               -n * log2 (1 + r)
;               2^(...) - 1
;               1 -	2^(...)
;               (1 - 2^(...)) / r
;
;      r denormal:
;               log	(1 + r) is about r
;               n *	r
;               -n * r
;               e^(...) - 1
;               (1 - e^(...)) / r
;
	EXPORT ANNDOIT
ANNDOIT		;       
	JSR KLUGE45
	LDX #F_SRC2
	LDY #F_Z
	JSR MOVEIT	; Save extra copy of src2
;		        ; because recursion trashes
;		        ; original copy
	LDA <SRC2_CLASS	; 0-normal, 1-denormal
	BNE ANNALLLOG	; If denormal, skip	log2()
	LDY #FOLOG21X	; LOG2 (1 + r)
	JSR KLUGE30
	EXPORT ANNALLLOG
ANNALLLOG		;       
	JSR KLUGE26
	LDX #F_ACCUM
	JSR KLUGE67
	LDA <SRC2_CLASS	; Recheck norm or denorm
	BEQ ANN02
	LDY #FOEXP1X	; Denorm case
	JSR KLUGE30
	JSR FORCEINEXACT
	JMP ANN01
	EXPORT ANN02
ANN02		;       
	LDY #FOEXP21X	; (1 + R)^-N - 1
	JSR KLUGE30
	EXPORT ANN01
ANN01		;       
	LDX #F_ACCUM
	JSR KLUGE67
	LDX #F_Z	; R
	LDY #F_ACCUM
	JSR KLUGE93
	JSR CLEARUFLOW
	JSR CLEAROFLOW
	JSR KLUGE43
	MOVECA <DEST,<OP0_ADDR
;		        ; Set up for class function
	JSR CLASSIFY
	TXA
	CMP #FCINF
	BNE z10s03	; Is it INF?
	JSR FORCEOFLOW
	JMP ANNDOUT
Z10S03	CMP #FCNORM	; Is it NORMAL?
	BEQ ANNDOUT
	JSR FORCEUFLOW
	EXPORT ANNDOUT
ANNDOUT		;       
	JMP RESULTDELIVERED
	ENDP
;
; END OF FILE
;
;Constants
;                  COPY           elems/ELEMC.O
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; File:  ElemC.o			             ;
;; For building 65816 Elems V0.0		             ;
;; Status: First attempt		             ;
;; Copyright Apple Computer, Inc., 1983-1986	             ;
;; All Rights Reserved		             ;
;;			             ;
;; Written by C. Hausmann, 1983		             ;
;;			             ;
;; Modification History:		             ;
;;      24Mar86 CRL	    Rewritten for 65816	             ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	EXPORT COEFFS
COEFFS	PROC
	EXPORT LOG21P
LOG21P	DC.W 5
	DC.B $FF,$3B,$CE,$F6,$AF,$46,$46,$B9,$F6,$3F
	DC.B $EB,$FB,$61,$4D,$21,$32,$F4,$94,$F9,$3F
	DC.B $93,$78,$44,$D9,$03,$89,$97,$DC,$FB,$3F
	DC.B $05,$1D,$CA,$57,$46,$39,$9E,$9F,$FF,$3F
	DC.B $9A,$DC,$EC,$46,$3A,$C5,$6B,$CD,$01,$C0
	DC.B $E0,$FC,$E6,$BA,$E7,$97,$83,$B4,$01,$40
	EXPORT LOG21Q
LOG21Q	DC.W 2
	DC.B $00,$00,$00,$00,$00,$00,$00,$80,$FF,$3F
	DC.B $1D,$5E,$0A,$CE,$C3,$35,$18,$B8,$00,$C0
	DC.B $96,$1A,$F4,$DD,$0E,$DF,$3E,$FA,$FF,$3F
	EXPORT EXP21P
EXP21P	DC.W 3
	DC.B $79,$9B,$20,$1B,$C8,$90,$88,$FF,$EE,$BF
	DC.B $2F,$27,$13,$B8,$EF,$84,$5C,$DA,$F9,$3F
	DC.B $45,$FD,$0F,$F8,$EA,$BA,$D3,$97,$03,$40
	DC.B $0C,$FF,$BE,$95,$A1,$71,$86,$AB,$09,$40
	EXPORT EXP21Q
EXP21Q	DC.W 2
	DC.B $00,$00,$00,$00,$00,$00,$00,$80,$FF,$3F
	DC.B $B4,$5A,$4B,$98,$02,$70,$48,$D5,$06,$40
	DC.B $80,$07,$B7,$96,$2E,$61,$75,$F7,$0A,$40
	EXPORT FPK1
FPK1	DC.B $00,$00,$00,$00,$00,$00,$00,$80,$FF,$3F
	EXPORT FPKM1
FPKM1	DC.B $00,$00,$00,$00,$00,$00,$00,$80,$FF,$BF
	EXPORT FPK2
FPK2	DC.B $00,$00,$00,$00,$00,$00,$00,$80,$00,$40
	EXPORT FPK3
FPK3	DC.B $00,$00,$00,$00,$00,$00,$00,$C0,$00,$40
	EXPORT FPKMAXINT
FPKMAXINT	DC.B $00,$00,$00,$00,$00,$00,$FE,$FF,$0D,$40
	EXPORT FPKSQRT2
FPKSQRT2	DC.B $84,$64,$DE,$F9,$33,$F3,$04,$B5,$FF,$3F
	EXPORT FPKHALF
FPKHALF	DC.B $00,$00,$00,$00,$00,$00,$00,$80,$FE,$3F
	EXPORT FPKSQRTHALF
FPKSQRTHALF	DC.B $84,$64,$DE,$F9,$33,$F3,$04,$B5,$FE,$3F
	EXPORT FPKFOURTH
FPKFOURTH	DC.B $00,$00,$00,$00,$00,$00,$00,$80,$FD,$3F
	EXPORT FPK34
FPK34	DC.B $00,$00,$00,$00,$00,$00,$00,$C0,$FE,$3F
	EXPORT FPK78
FPK78	DC.B $00,$00,$00,$00,$00,$00,$00,$E0,$FE,$3F
	EXPORT FPKPI2
FPKPI2	DC.B $35,$C2,$68,$21,$A2,$DA,$0F,$C9,$FF,$3F
	EXPORT FPKPI4
FPKPI4	DC.B $35,$C2,$68,$21,$A2,$DA,$0F,$C9,$FE,$3F
	EXPORT FPKE
FPKE	DC.B $9B,$4A,$BB,$A2,$58,$54,$F8,$AD,$00,$40
	EXPORT FPKLOGE2
FPKLOGE2	DC.B $AC,$79,$CF,$D1,$F7,$17,$72,$B1,$FE,$3F
	EXPORT FPK0
FPK0	DC.B $00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	EXPORT FPKM0
FPKM0	DC.B $00,$00,$00,$00,$00,$00,$00,$00,$00,$80
	EXPORT FPKINF
FPKINF	DC.B $00,$00,$00,$00,$00,$00,$00,$00,$FF,$7F
	EXPORT FPKMINF
FPKMINF	DC.B $00,$00,$00,$00,$00,$00,$00,$00,$FF,$FF
	EXPORT F_MAXINT
F_MAXINT	DC.B $FF,$7F
	EXPORT F_M1
F_M1	DC.B $FF,$FF
;
; If the Trigs are not required, then this location specifies the end
; of the code file (ptr at start of program points to this address).
;
	EXPORT SINQ
SINQ	DC.W 3
	DC.B $00,$00,$00,$00,$00,$00,$00,$80,$FF,$3F
	DC.B $30,$5A,$A8,$A6,$44,$B8,$D8,$88,$07,$40
	DC.B $20,$23,$79,$09,$49,$8A,$15,$8A,$0E,$40
	DC.B $2B,$F2,$63,$FE,$26,$FE,$A9,$FA,$13,$40
	EXPORT SINP
SINP	DC.W 3
	DC.B $F5,$CB,$F5,$43,$AE,$86,$50,$C2,$FE,$BF
	DC.B $A2,$6B,$E7,$BE,$66,$EC,$76,$9E,$06,$40
	DC.B $01,$AA,$C4,$C4,$D6,$A1,$51,$AF,$0C,$C0
	DC.B $CE,$F6,$97,$A9,$C4,$FE,$1B,$A7,$11,$40
	EXPORT COSQ
COSQ	DC.W 3
	DC.B $00,$00,$00,$00,$00,$00,$00,$80,$FF,$3F
	DC.B $85,$96,$DF,$FB,$95,$6A,$D9,$A6,$07,$40
	DC.B $6B,$15,$5D,$E8,$65,$EA,$A7,$C7,$0E,$40
	DC.B $B2,$52,$17,$7B,$1C,$87,$6E,$D2,$14,$40
	EXPORT COSP
COSP	DC.W 3
	DC.B $58,$D7,$F6,$A6,$D7,$18,$7E,$D5,$FB,$BF
	DC.B $72,$D0,$B3,$32,$7E,$93,$64,$E3,$03,$40
	DC.B $45,$C0,$6B,$58,$56,$40,$2D,$A6,$0A,$C0
	DC.B $7A,$8C,$0F,$52,$68,$AF,$49,$8C,$10,$40
	EXPORT TANQ
TANQ	DC.W 3
	DC.B $00,$00,$00,$00,$00,$00,$00,$80,$FF,$BF
	DC.B $55,$09,$C0,$83,$24,$03,$13,$B5,$05,$40
	DC.B $CF,$E0,$62,$57,$42,$B2,$FF,$D1,$09,$C0
	DC.B $AB,$66,$76,$93,$09,$93,$90,$E1,$0A,$40
	EXPORT TANP
TANP	DC.W 3
	DC.B $38,$28,$9B,$D7,$63,$33,$FC,$B1,$E9,$BF
	DC.B $D1,$4C,$C7,$3E,$D8,$71,$9D,$AA,$FD,$3F
	DC.B $BB,$7D,$65,$B9,$24,$8E,$CD,$E9,$03,$C0
	DC.B $36,$18,$4B,$9D,$70,$36,$9A,$F0,$07,$40
	EXPORT ATANQ
ATANQ	DC.W 4
	DC.B $AD,$5D,$FA,$2A,$AE,$1E,$D3,$98,$FF,$3F
	DC.B $D9,$EF,$CD,$B3,$D8,$4C,$79,$8F,$03,$40
	DC.B $68,$B3,$B8,$70,$85,$ED,$37,$8E,$05,$40
	DC.B $B8,$F3,$59,$AC,$A1,$BE,$A4,$CD,$05,$40
	DC.B $56,$C6,$F0,$4C,$55,$9C,$05,$C4,$04,$40
	EXPORT ATANP
ATANP	DC.W 4
	DC.B $00,$00,$00,$00,$00,$00,$00,$80,$FF,$3F
	DC.B $30,$0E,$92,$1F,$13,$6C,$3B,$A2,$02,$40
	DC.B $6F,$48,$3A,$FA,$3D,$59,$C8,$C3,$03,$40
	DC.B $45,$D9,$F5,$DD,$38,$68,$AE,$82,$03,$40
	DC.B $00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	EXPORT FPKX2
FPKX2	DC.B $6A,$E2,$98,$81,$2C,$3A,$CD,$93,$FE,$3F
	EXPORT FPKX2FX2
FPKX2FX2	DC.B $62,$64,$DB,$5F,$B1,$86,$2A,$DC,$FA,$3F
	EXPORT FPKATNCONS
FPKATNCONS	DC.B $8A,$B1,$6A,$F6,$F4,$A2,$30,$89,$FD,$3F
	EXPORT FPKARAND
FPKARAND	DC.B $00,$00,$00,$00,$00,$00,$4E,$83,$0D,$40
	EXPORT FPKPRAND
FPKPRAND	DC.B $00,$00,$00,$00,$FE,$FF,$FF,$FF,$1D,$40
	ENDP
;
	EXPORT OPERAND
OPERAND	PROC
	DC.W DEST
	DC.W SRC
	DC.W SRC2
	DC.W I_SRC
	DC.W I_TEMP
	DC.W J_TEMP
	DC.W W_TEMP
	DC.W X_TEMP
	DC.W Y_TEMP
	DC.W Z_TEMP
; Need to define ptrs to the tables of coefficients and constants so that
; they can be pushed onto the stack by address.
;
	EXPORT C_LOG21P
C_LOG21P	DC.W LOG21P
	EXPORT C_LOG21Q
C_LOG21Q	DC.W LOG21Q
	EXPORT C_EXP21P
C_EXP21P	DC.W EXP21P
	EXPORT C_EXP21Q
C_EXP21Q	DC.W EXP21Q
	EXPORT C_FPK1
C_FPK1	DC.W FPK1
	EXPORT C_FPKM1
C_FPKM1	DC.W FPKM1
	EXPORT C_FPK2
C_FPK2	DC.W FPK2
	EXPORT C_FPK3
C_FPK3	DC.W FPK3
	EXPORT C_FPKMAXINT
C_FPKMAXINT	DC.W FPKMAXINT
	EXPORT C_FPKSQRT2
C_FPKSQRT2	DC.W FPKSQRT2
	EXPORT C_FPKHALF
C_FPKHALF	DC.W FPKHALF
	EXPORT C_FPKSQTHALF
C_FPKSQTHALF	DC.W FPKSQRTHALF
	EXPORT C_FPKFOURTH
C_FPKFOURTH	DC.W FPKFOURTH
	EXPORT C_FPK34
C_FPK34	DC.W FPK34
	EXPORT C_FPK78
C_FPK78	DC.W FPK78
	EXPORT C_FPKPI2
C_FPKPI2	DC.W FPKPI2
	EXPORT C_FPKPI4
C_FPKPI4	DC.W FPKPI4
	EXPORT C_FPKE
C_FPKE	DC.W FPKE
	EXPORT C_FPKLOGE2
C_FPKLOGE2	DC.W FPKLOGE2
	EXPORT C_FPK0
C_FPK0	DC.W FPK0
	EXPORT C_FPKM0
C_FPKM0	DC.W FPKM0
	EXPORT C_FPKINF
C_FPKINF	DC.W FPKINF
	EXPORT C_FPKMINF
C_FPKMINF	DC.W FPKMINF
	EXPORT C_SINQ
C_SINQ	DC.W SINQ
	EXPORT C_SINP
C_SINP	DC.W SINP
	EXPORT C_COSQ
C_COSQ	DC.W COSQ
	EXPORT C_COSP
C_COSP	DC.W COSP
	EXPORT C_TANQ
C_TANQ	DC.W TANQ
	EXPORT C_TANP
C_TANP	DC.W TANP
	EXPORT C_ATANQ
C_ATANQ	DC.W ATANQ
	EXPORT C_ATANP
C_ATANP	DC.W ATANP
	EXPORT C_FPKX2
C_FPKX2	DC.W FPKX2
	EXPORT C_FPKX2FX2
C_FPKX2FX2	DC.W FPKX2FX2
	EXPORT C_FPKATNCONS
C_FPKATNCONS	DC.W FPKATNCONS
	EXPORT C_FPKARAND
C_FPKARAND	DC.W FPKARAND
	EXPORT C_FPKPRAND
C_FPKPRAND	DC.W FPKPRAND
	DC.W EXCPTION
	DC.W OLD_ENV
	DC.W SAVE_ENV
	DC.W V_TEMP
	EXPORT C_MAXINT
C_MAXINT	DC.W F_MAXINT
	ENDP
;
; END OF FILE
;
; Sin, Cos, Tan, ATan, Random
;                  COPY           elems/ELEM4.O.A
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; File:  Elem4.O.A			             ;
;; For building 65816 Elems V0.0		             ;
;; Status: First attempt		             ;
;; Copyright Apple Computer, Inc., 1983-1986	             ;
;; All Rights Reserved		             ;
;;			             ;
;; Written by C. Hausmann, 1983		             ;
;;			             ;
;; Modification History:		             ;
;;      24Mar86 CRL	    Rewritten for 65816	             ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; Sine function.
; Input:  DEST	 = operand T
;         SRC2_CLASS = class (-4..1)
;         SRC2_SIGN	 = sign of T
; Output: DEST	 = result
; Uses:   A0_ADDR..A2_ADDR, OP1_ADDR
;         Cells: W_TEMP, X_TEMP, Y_TEMP
;
;
; About the argument reduction:  T is reduced MOD approximate pi/2,
; leaving the magnitude no bigger than approximate pi/4.
; Recall the identities:
;       sin (T)	          =  sin (T)
;       sin (pi/2 +	T)        =  cos (T)
;       sin (pi + T)          = -sin (T)
;       sin (3pi/2 + T)       = -cos (T)
;       sin (2pi + T)         =  sin (T)
; Then if input T =	q*(pi/2) + r,
;       q mod 2 determines whether to use sin (0) or cos (1), and
;       q mod 4 determines whether to negate result (2 or 3).
;
;
	EXPORT SINTOP
SINTOP	PROC
	LONGA OFF
	LONGI OFF
	JSR KLUGE6
	BNE SINCOSCOM
	JMP RESULTDELIVERED	; SIN (+-0) is +-0
SINCOSCOM	BPL z1s05
	JMP ERRORNAN	; SIN (INF) is illegal
;
; Have finite, nonzero argument
;
Z1S05	JSR TRIGREDUCTION	; T <-- T REM PI/2
	LDA #$1
	BIT <D2_TEMP
	BNE z1s01
	JSR SINGUTS	; Even, use SIN
	JMP z1s03
Z1S01	JSR COSGUTS	; Odd, use COS
Z1S03	LDA #$0	; Quo MOD 4
	STA <D2_TEMP+1
	LDA <D2_TEMP
	AND #$3
	SEC
	SBC #$2	; >= 0 only if MOD 2 or 3
	STA <D2_TEMP
	LDA <D2_TEMP+1
	SBC #$0
	STA <D2_TEMP+1
	BMI TRIGFINI
	JSR KLUGE62
;
; Common trig finish:
;       Clear uflow, except when denormalized.
;       Set inexact.
;       If result is denormal, set underflow.
;       Exit.
;
	EXPORT TRIGFINI
TRIGFINI		;       
	JSR CLEARUFLOW	; Will check for error later
	JSR FORCEINEXACT
	JSR KLUGE61
	CPX #FCDENORM
	BNE z2s13
	JSR FORCEUFLOW
Z2S13	JMP RESULTDELIVERED
;
; Cosine function.
; Input:  DEST	 = operand T
;         SRC2_CLASS = class (-4..1)
;         SRC2_SIGN	 = sign of T
; Output: DEST	 = result
; Uses:   A0_ADDR..A2_ADDR, OP1_ADDR
;         Cells: W_TEMP, X_TEMP, Y_TEMP
;
;
; About the argument reduction:  T is reduced MOD approximate pi/2,
; leaving its magnitude no bigger than approximate pi/4.
; Recall the identities:
;       cos (T)	             =  cos	(T)
;       cos (pi/2 +	T)           = -sin	(T)
;       cos (pi + T)             = -cos	(T)
;       cos (3pi/2 + T)          =  sin	(T)
;       cos (2pi + T)            =  cos	(T)
; Then if input T =	q*(pi/2) + r,
;      q mod 2 determines whether to use cos (0) or sin (1), and
;      (q+1) mod 4 determines whether to negate result (2 or 3).
;
;
;
	EXPORT KLUGE39
KLUGE39		;       
	LDA <SRC2_SIGN
	STA <CLASS_SIGN
	LDA #NANTRIG
	STA <CLASS_CODE
	RTS
	EXPORT COSTOP
COSTOP		;       
	JSR KLUGE39
	LDY #$0	; Quotient adjustment
	STY <D2_TEMP+1	; Quo <-- 1
	INY
	STY <D2_TEMP
	LDA <SRC2_CLASS
	CMP #FCZERO
	BNE SINCOSCOM
	JMP P1STUFF	; COS (+-0) is 1
;
; Reduce DEST mod approximate pi/2, adding quotient to D2.
; Input:  DEST    =	operand T
;         D2_TEMP =	quotient adjustment
; Output: DEST    =	reduced argument
;         D2_TEMP =	adjusted quotient
; Uses:   J_TEMP  =	quotient
;
	EXPORT TRIGREDUCTION
TRIGREDUCTION		;       
	LDX #F_FPKPI2	; Approximate PI/2
	JSR KLUGE99	; T REM (PI/2), low	byte
;		        ; of quo in	X, sign in X.hi
;
; Move QUO to J_TEMP - converting to 2 byte quantity
;
	STZ J_TEMP+1
	TXA
	AND #$7F
	STA J_TEMP
	CPY #0
	BEQ Z3S01
	JSR NEGATE	; Negate J_TEMP if neg QUO
;
; Add QUO to quotient adjustment
;
Z3S01	CLC
	LDA <D2_TEMP
	ADC <J_TEMP
	STA <D2_TEMP
	LDA <D2_TEMP+1
	ADC <J_TEMP+1
	STA <D2_TEMP+1
	RTS
;
; Evaluate sin (T) for reduced |T| <= pi/4.
; Use approximation	(S = T*T)    T - (T*S*(P(S) / Q(S)))
; Input:  DEST	= T
; Output: DEST	= sin (T)
; Uses:   A0_ADDR -	A2_ADDR, OP1_ADDR
;         Cells: W_TEMP, X_TEMP, Y_TEMP
; Note use of sin/cos common routine depends on placement of Q coef table
; immediately before P coef table.
;
SINGUTS	LDA #F_SINQ
	JSR POVERQ	; X <-- P/Q
;		        ; Z <-- T^3
	LDX #F_ACCUM	; ACCUM = T^3
	JSR KLUGE21
KLUGE94	LDX #F_X	; X
	JMP KLUGE90
;
; Common routine for trig functions quts.
; Input:  DEST	    = operand T
;         Accum	    = index to Q coef table, with P immediately after in
;	      memory
; Output: W_TEMP	    = T*T
;         Z_TEMP	    = T*T*T
;         X_TEMP	    = (T*T) * (P(T*T) / Q(T*T))
; Uses  : Y_TEMP	    = Q(T*T)
;         A0_addr, A2_addr  (as temporary pointers)
;
	EXPORT T2POVERQ
T2POVERQ		;       
	JSR POVERQ
	JSR KLUGE22
	LDX #F_ACCUM	; POVERQ does not alter Z.
	EXPORT KLUGE48
KLUGE48		;       
	LDY #F_Z	; To deliver T^3 in	Z, it
	JMP MOVEIT	;    must transfer from ACCUM
;
; Common routine for trig functions guts.
; Called by T3POVERQ and ATANGUTS.
; Input:  DEST	    = operand T
;         OP1_Addr	    = ptr to Q coef	table, with P immediately after in
;	      memory
; Output: W_TEMP	    = T*T
;         X_TEMP	    = (P(T*T) / Q(T*T))
;         ACCUM	    = T^3
; Uses  : Y_TEMP	    = Q(T*T)
;         A0_addr, A2_addr  (as temporary pointers)
;
;    NOTE : Use of #F_ACCUM added by C.R. Lewis on 2-Feb-84	to avoid trashing
;           Z_DEST.	 Changes both here and in T2POVERQ.
;
	EXPORT POVERQ
POVERQ		;       
	STA <I_TEMP	; Index to table of	ptr to coefs
	JSR KLUGE42
	LDX #F_W	; W
	JSR KLUGE24
;
; Compute Z = T^3
;
	LDX #F_W	; W = T*T
	JSR KLUGE44	; Copy W into ACCUM
	LDX #F_DEST	; Dest = T
	JSR KLUGE27
;
; Compute P/Q
;
	LDX #F_Y	; Result field
	JSR KLUGE33	; Y_TEMP <-- Q (T*T)
	INC <I_TEMP
	INC <I_TEMP
	LDX #F_X	; Result field
	JSR KLUGE33	; X <-- P(T*T)
	LDX #F_Y	; P(T*T)
	LDY #F_X	; Q(T*T)
	JMP KLUGE93
;
; Evaluate cos (T) for reduced |T| <= pi/4.
; Use approximation	(S = T*T):
;    (S < 1/4):	   1 - S/2  +  S*S*(P(S) /Q(S))
;    else:	   with Z = |X| - 0.5
;	   0.875 - (Z/2 + (Z*Z/2 - S*S*(P(S) / Q(S))))
; Input:  DEST	= T
; Output: DEST	= cos (T)
; Uses:   A0_ADDR -	A2_ADDR, OP1_ADDR
;         cells:  W_TEMP, X_TEMP, Y_TEMP
; Note use of sin/cos common routine depends on placement of Q coef table
; immediately before P coef table.
;
COSGUTS	LDA #F_COSQ	; COS Q coef table,
;		        ; P thereafter
	JSR T2POVERQ	; W <-- T*T
;		        ; Z <-- T^3
;		        ; X <-- T^2*P/Q
	JSR KLUGE22
;
; Now compare T*T in W with 1/4, to determine which formula	to continue with.
;
	LDX #F_W	; W
	LDY #F_FPKFOURTH	; 1/4
	JSR KLUGE28
	FBGT CGBIG
;
; Finish with first	formula above.
;
	JSR KLUGE23
	LDX #F_W	; W
	LDY #F_X	; X = T^4 * P/Q
	JSR KLUGE91
	LDX #F_X	; Result = current X
	JSR KLUGE8
	LDX #F_FPK1	; 1
	JMP KLUGE97	; SAME AS TGFIN
;
; Evaluate long form of expression.
;
CGBIG	JSR KLUGE63
	LDX #F_FPKHALF	; 1/2
	JSR KLUGE90
	JSR KLUGE42
	JSR KLUGE23
	LDX #F_W	; W
	JSR KLUGE20
	LDX #F_X	; X = T^4*P/Q
	JSR KLUGE90
	LDX #F_W	; W = T'/2
	JSR KLUGE97
	JSR KLUGE62
	LDX #F_FPK78	; 0.875 = 7/8
	JMP KLUGE97	; SAME AS TGFIN
	ENDP
;
; END OF FILE
;
;                  COPY           elems/ELEM4.O.B
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; File:  Elem4.o.b			             ;
;; For building 65816 Elems V0.0		             ;
;; Status: First attempt		             ;
;; Copyright Apple Computer, Inc., 1983-1986	             ;
;; All Rights Reserved		             ;
;;			             ;
;; Written by C. Hausmann, 1983		             ;
;;			             ;
;; Modification History:		             ;
;;      24Mar86 CRL	    Rewritten for 65816	             ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; Tangent function.
; Input:   DEST	= operand T
;          SRC2_CLASS = class (-4..1)
;          SRC2_SIGN  = sign  ($0-positive, $80 - negative)
; Output:  DEST	= result
; Uses  :  A0_ADDR - A2_ADDR, OP1_ADDR
;          cells:  W_TEMP, X_TEMP, Y_TEMP, D2_TEMP
;
; About the argument reduction:  T is reduced MOD approximate pi/2,
; leaving its magnitude no bigger than approximate pi/4.
; Recall the identities:
;        tan (T)	            =  tan(T)
;        tan(pi/2 +	T)          =  -1/tan(T)
;        tan (pi + T)           =  tan (T)
; Then if input T =	q*(pi/2) + r,
;     q mod 2 determines whether to negate and reciprocate tan.
;
	EXPORT TANTOP
TANTOP	PROC
	LONGA OFF
	LONGI OFF
	JSR KLUGE6
	BPL z4s01
	JMP ERRORNAN	; INF is illegal
Z4S01	BNE z4s02
	JMP RESULTDELIVERED	; TAN(+-0) is +-0
;
; Have finite, nonzero argument.
;
Z4S02	JSR TRIGREDUCTION
	JSR TANGUTS
;
;
; check q mod 2
;
	ROR <D2_TEMP	; C bit <-- Quo mod	2
	BCC z4s21
	JSR KLUGE62
	JSR KLUGE34
	JSR TESTDIVZER	; Result = +/-INF?
	BEQ z4s21
	JSR KLUGE62
Z4S21	JMP TRIGFINI
	EXPORT KLUGE6
KLUGE6		;       
	JSR KLUGE39
	STZ <D2_TEMP+1	; D2_TEMP <-- 0
	STZ <D2_TEMP
	LDA <SRC2_CLASS
	CMP #FCZERO
	RTS
;
; Evaluate tan (T) for |T| <= pi/4.
; Use formulas:  (S	= T*T)
;      S <= 1/4:	       T + (T^3/3 +	T^5*P(S)/Q*S))
;      else:	       T' = (T - 3/4)/3
;	       T  + S/4 + S*(T' + T^3*P(S)/Q(S))
;
TANGUTS	LDA #F_TANQ	; Tan Q coefs, P immed after
	JSR T2POVERQ	; X <-- T^2*P/Q
;
; Compute T^5*P/Q, common to both formulas.
;
	LDX #F_Z	; Z = T^3
	JSR KLUGE21
;
; Compare T*T with 1/4 to decide which formula to continue.
;
	LDX #F_W	; W = T*T
	LDY #F_FPKFOURTH	; 1/4
	JSR KLUGE28
	FBGT TGBIG
;
; Using first, simpler formula.
;
	LDX #F_FPK3	; 3
	LDY #F_Z	; Z = T^3
	JSR KLUGE93
	LDX #F_Z	; Z
	LDY #F_X	; X
	JSR KLUGE98
	LDX #F_X
	JMP KLUGE97	; = TGFIN, Go add to T and exit
;
; Using more complicated formula.
;
TGBIG	JSR KLUGE51	; Y <-- T
	LDX #F_FPK34	; 3/4
	LDY #F_Y	; Y
	JSR KLUGE91
	LDX #F_FPK3	; 3
	LDY #F_Y	; Y
	JSR KLUGE93
	LDX #F_W	; W = T*T
	LDY #F_Y	; Y = T'
	JSR KLUGE25
	LDX #F_X	; X = T^5*P/Q
	LDY #F_Y	; Y
	JSR KLUGE98
	LDX #F_FPKFOURTH	; 1/4
	JSR KLUGE24
	LDX #F_W	; W
	LDY #F_Y	; Y
	JSR KLUGE98
	LDX #F_Y	; Set up for last add...
TGFIN	JMP KLUGE97
; Finish off tangent, adding (A0_addr) into T in Result.
;
;
; Arctan (T) for any  -INF  <= T <= INF.
; Input:  DEST	 = operand T
;         SRC2_CLASS = class (-4..1) for DEST
; Output: DEST	 = result
; Uses:   A0_ADDR -	A2-ADDR, OP1_ADDR
;         Cells:  W_TEMP, X_TEMP, Y_TEMP, Z_TEMP, SRC (as a	temporary),
;                 D2_TEMP
;
; About the argument reduction:  ATAN (T) is evaluated for 0 <= T <= 1.
; Recall the identities:
;    atan (T)	         = atan (T)
;    atan (-T)	         = -atan (T)
;    atan (1/T)	         = pi/2 - atan (T)
; If T < 0 then atan (-T) is computed, and the result negated.
; To compute atan of reduced T use formulas:
;      T <= ATnCons	 = 0.267...   T  -	T * P(T*T) / Q(T*T)
;      else	              T  -	(A  +  (B*P(B*B) / Q(B*B) + x2fx2))
;               where  x2 and x2fx2 are	constants, about 0.5 and 0.05, and
;               A =	(T - x2)/(1 + (1/(T*x2))), and
;               B =	(T - x2)/(1 +    (T*x2)).
;
	EXPORT ATANTOP
ATANTOP		;       
	LDA <SRC2_CLASS
	CMP #FCZERO
	BPL ATFINITE	; 0, norm, or denorm
	LDX #F_FPKPI2
	JSR KLUGE8
;		        ; Infinite case
	LDA <SRC2_SIGN	; Force sign of result
	BPL z5s01
	JSR KLUGE62
Z5S01	JMP ATQUICK
ATFINITE	BNE ATHARD	; Zero if result is	zero
ATQUICK	JMP RESULTDELIVERED
ATHARD	JSR KLUGE63
	JSR ATANGUTS
	LDA <SRC2_SIGN	; Replace sign of ATAN
	BPL z6s01	; Better to just take abs.?
	JSR KLUGE62
Z6S01	JMP TRIGFINI
;
; Use D2_TEMP to store Boolean about whether input T was inverted in order
; to obtain an argument no bigger than one.
;
ATANGUTS	LDA #$0
	STA <D2_TEMP	; Set to false
	LDX #F_DEST	; T
	LDY #F_FPK1	; 1
	JSR KLUGE28
	FBLE AGNOINV
	LDA #$1	; Set to true
	STA <D2_TEMP
	JSR KLUGE34
;
; Store a copy of reduced T on stack for later.
;
AGNOINV	LDX #F_DEST	; SRC <-- copy of DEST
	LDY #F_SRC
	JSR MOVEIT
;
; Select short or long form based on Result vs. ATnCons, about 0.268.
;
	LDX #F_DEST	; Result
	LDY #F_FPKATNCONS
	JSR KLUGE28
	FBGT AGLONGFORM	; Compare as Res - ATnCons
;
; Short form.
;
;               ;MOVE            C_ATANQ,A1_ADDR
;		        ; Double check to see if
;		        ; OP1 is the correct zero
;		        ; p loc
	LDA #F_ATANQ
	JSR POVERQ	; X <-- P(T*T)/Q(T*T)
	JSR KLUGE19
	JMP AGFINI
KLUGE34	JSR KLUGE42
	LDX #F_FPK1
	JSR KLUGE8
	JSR KLUGE95
	RTS
;
; Long form.
;
AGLONGFORM	JSR KLUGE42
	LDX #F_FPKX2	; X2
	JSR KLUGE24
	LDX #F_FPK1	; Y <-- 1
	JSR KLUGE52
	LDX #F_W	; W = T*X2
	LDY #F_Y	; Y = 1
	JSR KLUGE93
	LDX #F_FPK1	; 1
	LDY #F_Y	; Y = 1/(T*X2)
	JSR KLUGE98
	LDX #F_FPK1	; 1
	LDY #F_W	; W = T*X2
	JSR KLUGE98
	LDX #F_FPKX2	; Constant x2
	JSR KLUGE90
	LDX #F_DEST	; Z <-- T-x2
	JSR KLUGE48
	JSR KLUGE95	; = B
	LDX #F_Y	; Y = 1 + 1/(T*x2)
	LDY #F_Z	; Z = T-x2
	JSR KLUGE93	; = A
	LDA #F_ATANQ
	JSR POVERQ	; X <-- P(B*B)/Q(B*B)
;		        ; W <-- B*B, unused
;		        ; Y <-- junk
;		        ; Z   = A, still
;		        ; Res = B, still
	JSR KLUGE19
	LDX #F_FPKX2FX2	; Constant x2fx2
	JSR KLUGE97
	LDX #F_Z	; Z = A
	JSR KLUGE97
;
; Finish up by computing:
;       no inversion above:  T - Result	 in Result
;       inversion above:     pi/2 - (T - Result)  in Result
; Remember that T was saved in SRC eariler.
;
AGFINI	LDX #F_SRC	; Saved T
	JSR KLUGE90
	LDA <D2_TEMP	; Nonzero if inverted
	BNE AGSUBPI2
	JMP KLUGE62
AGSUBPI2	LDX #F_FPKPI2	; PI/2
	JMP KLUGE97
;
; Random number generator.  Adapted from "A More Portable FORTRAN Random
; Number Generator," Linus Schrage, ACM	Transactions on Mathematical
; Software, Vol. 5,	No. 2, June 1979, pp. 132-138.
;
; NextT  <--  ARand	* T + PRand
;      where  ARand	= 7^5  and  PRand =	2^31-1
; X is presumed to be an integer strictly between 0 and 2^31-1.
; Input:  DEST  = T
; Ouput:  DEST  = NextT
;
	EXPORT RANDTOP
RANDTOP		;       
	LDX #F_FPKARAND
	JSR KLUGE20
	LDX #F_FPKPRAND
	JSR KLUGE99
	JSR KLUGE61
	BPL z7s01	; done if result positive
	LDX #F_FPKPRAND	;   else add 2^31-1
	JSR KLUGE97
Z7S01	JMP RESULTDELIVERED
	LONGA ON
	LONGI ON
	ENDP
;
; END OF FILE
;
;
; END OF FILE
;
;


	END

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/SANE/elems.macros b/IIGS.601.SRC/GSToolbox/SANE/elems.macros
new file mode 100644
index 0000000..3172805
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/SANE/elems.macros
@@ -0,0 +1 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; File:  MACRO.o
;; Macros for building 65816 Elems V0.0
;; Status: First attempt
;; Copyright Apple Computer, Inc., 1983-1986
;; All Rights Reserved
;;
;; Written by C. Hausmann, 1983
;;
;; Modification History
;;      21Mar86 CRL     Revised for 65816
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;------------------------------------------------------------------------------
;
;       POP Macros:
;
;------------------------------------------------------------------------------
;
                 MACRO
                 POP2           &N1
                PLA
                STA             &N1
                PLA
                STA             &N1+1
                MEND
;
                 MACRO
                 POP3           &N1
                PLA
                STA             &N1
                PLA
                STA             &N1+1
                PLA
                STA             &N1+2
                MEND
;
                 MACRO
                 POP4           &N1
                PLA
                STA             &N1
                PLA
                STA             &N1+1
                PLA
                STA             &N1+2
                PLA
                MEND
;
;------------------------------------------------------------------------------
;
;       PUSH Macros:
;
;------------------------------------------------------------------------------
;
                 MACRO
                 PUSH2          &N1
                LDA             &N1+1
                PHA
                LDA             &N1
                PHA
                MEND
;
                 MACRO
                 PUSH3          &N1
                LDA             &N1+2
                PHA
                LDA             &N1+1
                PHA
                LDA             &N1
                PHA
                MEND
;
                 MACRO
                 PUSH4          &N1
                LDA             #$0
                PHA
                LDA             &N1+2
                PHA
                LDA             &N1+1
                PHA
                LDA             &N1
                PHA
                MEND
;
                 MACRO
                 PUSHZP         &N1
                LONGA           ON
                LONGI           ON
                REP             #$30
                PEA             0
                CLC
                TDC
                ADC             #&N1
                PHA
                SEP             #$30
                LONGA           OFF
                LONGI           OFF
                MEND
;
                 MACRO
                 PUSHWORD       &N1
                LONGA           ON
                LONGI           ON
                REP             #$30
                LDA             #&N1
                PHA
                SEP             #$30
                LONGA           OFF
                LONGI           OFF
                MEND
;
;------------------------------------------------------------------------------
;
;       MOVE Macros:       Moves Location1 -> Location2
;
;------------------------------------------------------------------------------
;
                 MACRO
                 MOVE2          &N1,&N2
                LDA             &N1
                STA             &N2
                LDA             &N1+1
                STA             &N2+1
                MEND
;
                 MACRO
                 MOVE3          &N1,&N2
                LDA             &N1
                STA             &N2
                LDA             &N1+1
                STA             &N2+1
                LDA             &N1+2
                STA             &N2+2
                MEND
;
                 MACRO
                 MOVECA         &N1,&N2
                LONGA           ON
                LONGI           ON
                REP             #$30
                CLC
                TDC
                ADC             #&N1
                STA             &N2
                SEP             #$30
                LONGA           OFF
                LONGI           OFF
                STZ             &N2+2
                MEND
;
;------------------------------------------------------------------------------
;
;       COPY_EXTEND Macro:  Copies data pointed to by address in %1 to location
;                           %2 on zero page
;
;------------------------------------------------------------------------------
;
                 MACRO
&LABEL           COPY_EXTEND    &N1,&N2
                PHX
                LDY             #$9
                TYX
&LABEL          LDA             [&N1],Y
                STA             &N2,X
                DEY
                DEX
                BPL             &LABEL
                PLX
                MEND
;
;------------------------------------------------------------------------------
;
;       SANE Macros:
;
;------------------------------------------------------------------------------
;
                 MACRO
                 FBGE           &N1
                BVS             &N1
                BEQ             &N1
                MEND
;
                 MACRO
                 FBPLUS         &N1
                BPL             &N1
                MEND
;
                 MACRO
                 FBUGT          &N1
                BVS             &N1
                BMI             *+4
                BNE             &N1
                MEND
;
                 MACRO
                 FBLT           &N1
                BMI             &N1
                MEND
;
                 MACRO
                 FBULE          &N1
                BMI             &N1
                BEQ             &N1
                BVC             &N1
                MEND
;
                 MACRO
                 FBLE           &N1
                BMI             &N1
                BEQ             &N1
                MEND
;
                 MACRO
                 FBEQ           &N1
                BEQ             &N1
                MEND
;
                 MACRO
                 FBNE           &N1
                BMI             &N1
                BVS             &N1
                BNE             &N1
                MEND
;
                 MACRO
                 FBGT           &N1
                BVS             &N1
                MEND
;
                 MACRO
                 FBULT          &N1
                BMI             &N1
                BVS             *+4
                BNE             &N1
                MEND
;
                 MACRO
                 CallEl
                REP             #$30
                JSL             Call_El
                MEND
;
                 MACRO
                 CallFp
                REP             #$30
                JSL             Call_Fp
                MEND
;
; END OF FILE
;
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/SANE/sane.asm b/IIGS.601.SRC/GSToolbox/SANE/sane.asm
new file mode 100644
index 0000000..74decd5
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/SANE/sane.asm
@@ -0,0 +1 @@
+	title 'SANE         FP816         GS ROM 3.0'
****************************************************************
*			   *
*	   SANE FP816		   *
*			   *
****************************************************************


****************************************************************
*			   *
*	Copyright (C) 1985-1988	   *
*	All Rights Reserved		   *
*	Apple Computer, Inc.	   *
*			   *
****************************************************************



**********************************************************************
*
* Change History
*
* 12 Dec 88	Kenton Hanson
*
* Fixed Nan codes (NAN comp and NAN zero).
* Fixed conversion error for large comps to exended (in Unpack).
* Fixed error signaling error in Floating point NAN converting to
*       COMP NAN.
*
**********************************************************************

	string asis
	blanks off

	include 'all.macros'
	include '::sys.equs.asm'
	include 'sane.macros'

SaneVersionNumber	equ $0300
True	equ $FFFF
False	equ $0000

;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

	IMPORT oEndCall0
	IMPORT oEndCall2
	IMPORT Elems816

;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------
	ENTRY AtoC
	ENTRY BtoA
	ENTRY BtoC
	ENTRY BtoE
	ENTRY BtoX
	ENTRY CtoB
	ENTRY CtoX
	ENTRY EtoA
	ENTRY EtoB
	ENTRY XtoA
	ENTRY XtoB

	ENTRY CStr2Dec
	ENTRY Dec2Str
	ENTRY DecStr
	ENTRY DnrmC
	ENTRY Eight16
	ENTRY NrmlzC
	ENTRY Rnd2Int
	ENTRY SaneShutdown
	ENTRY SaneStartup
	ENTRY SaneStatus
	ENTRY SaneVersion
	ENTRY ScaleIt
	ENTRY Str2Dec
	ENTRY TrpHd1
	ENTRY UnPck
	ENTRY XitFP
	ENTRY add
	ENTRY ck4URO
	ENTRY mul
	ENTRY pck
	ENTRY rtnA
	ENTRY rtnInf
	ENTRY setXcpn
	ENTRY sqrt
	ENTRY sub
	ENTRY B2D
	ENTRY D2B
	ENTRY Xdiv
	ENTRY REM

;                copy sane/oequs
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; File:  FPEques
;; Description: Equs for ORCA SANE 65816 floating point engine.
;; Status: Alpha
;;
;; Written by Kenton Hanson, Apple Numerics Group, 12 May 1986
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
ZPrtn	equ 0
OrigDirect	equ ZPrtn+6
OrigBank	equ OrigDirect+2
base1	equ OrigBank+2	;10
opword	equ base1
CRgstr	equ base1+2
BRgstr	equ base1+6
ARgstr	equ base1+10
HaltVect	equ base1+14
EnvWrd	equ base1+18
tmpFlgs	equ base1+20
pendingX	equ base1+22
pendingY	equ base1+24
TmpZP	equ base1+26	;36
TmpZP2	equ TmpZP+2
TmpZP3	equ TmpZP+4
TmpZP4	equ TmpZP+6
TmpZP5	equ TmpZP+8
fence	equ TmpZP+10
fence2	equ TmpZP+12
fenceSV	equ TmpZP+14
SBWord	equ TmpZP+16	;Max (Sticky Bit Word, length 2nd argument)
opcode	equ TmpZP+18
ZeroWord	equ TmpZP+20
atag	equ TmpZP+22	;identification tag	            (word)	58
signA	equ atag+2	;sign	            (word)
expnA	equ atag+4	;unbiased exponent	            (Long)
lgthA	equ atag+8	;length of Fraction	in bytes    (word)
btag	equ atag+10	;identification tag	            (word)
signB	equ btag+2	;sign	            (word)
expnB	equ btag+4	;unbiased exponent	            (Long)
lgthB	equ btag+8	;length of Fraction	in bytes    (word)
ctag	equ atag+20	;identification tag	            (word)
signC	equ ctag+2	;sign	            (word)
expnC	equ ctag+4	;unbiased exponent	            (Long)
lgthC	equ ctag+8	;length of Fraction	in bytes    (word)
FrctA	equ atag+30	; 88
FrctB	equ FrctA+26
FrctC	equ FrctA+52
len	equ FrctA+78	; 166
ilog	equ len+2
iscale	equ len+4
style	equ len+6
digits	equ len+8
etag	equ len+10	;identification tag	            (word)	176
signE	equ etag+2	;sign	            (word)
expnE	equ etag+4	;unbiased exponent	            (Long)
lgthE	equ etag+8	;length of Fraction	in bytes    (word)
xtag	equ len+20	;identification tag	            (word)
signX	equ xtag+2	;sign	            (word)
expnX	equ xtag+4	;unbiased exponent	            (Long)
lgthX	equ xtag+8	;length of Fraction	in bytes    (word)
FrctE	equ len+30	;fraction with binary point after first	bit
FrctX	equ len+56	;fraction with binary point after first	bit
ffExt	equ 0
ffDbl	equ 2
ffSgl	equ 4
ffLng	equ 6
ffInt	equ 8
ffComp	equ 10
ffq	equ 12
ffqq	equ 14
DnrmTag	equ 1
ZeroTag	equ -1
InfTag	equ -2
NanTag	equ -3
SNanTag	equ -4
invxcp	equ 01
unfxcp	equ 02
ovfxcp	equ 04
dvzxcp	equ 08
inexcp	equ $10
NanSqrt	equ $4001
NanAdd	equ $4002
NanDiv	equ $4004
NanMlt	equ $4008
NanRem	equ $4009
NaNAscB	equ $4011
NaNComp	equ $4014	; error codes corrected 12 Dec 88 by Kenton
NaNZero	equ $4015	; ibid
BgnSgDg	equ 4
SigDigLn	equ 28	;28 ???

;          copy sane/call.table
	EXPORT SaneCallTable
SaneCallTable	PROC

	DC.L (TheEnd-SaneCallTable)/4
	DC.L oEndCall0-1	; jumps direct 29 dec 86
	DC.L SaneStartup-1
	DC.L SaneShutdown-1
	DC.L SaneVersion-1
	DC.L oEndCall0-1	; jumps direct 29 dec 86
	DC.L SaneStatus-1	; added 29 dec 86 by SEG
	DC.L oEndCall0-1
	DC.L oEndCall0-1

	DC.L Eight16-1
	DC.L DecStr-1
	DC.L Elems816-1

TheEnd		; 

	ENDP
;          copy sane/init.calls
*****************************************************************
*
* SaneBootInit
*
* Since this does nothing, I put the address of oEndCall0
* in the call table.
*
*****************************************************************


*****************************************************************
*
* SaneStartup
*
*****************************************************************
	EXPORT SaneStartup
SaneStartup	PROC
RTL1	equ 1
RTL2	equ RTL1+3
ZPToUse	equ RTL2+3
	lda ZPToUse,s
	phd	; temp store current d
	tcd	; set d to SANE value
	stz HaltVect	; set default env and HV
	stz HaltVect+2
	stz EnvWrd
	pld	; restore current d
	PushWord #0	; system call
	PushWord #10	; tool set number
	PushWord #0	; High byte of WAP
	pha
	_SetWAP

	jml oEndCall2

	ENDP

*****************************************************************
*
* SaneShutdown
*
*****************************************************************
	EXPORT SaneShutdown
SaneShutdown	PROC

	PushWord #0
	PushWord #10
	PushLong #0
	_SetWAP


	jml oEndCall0

	ENDP

*****************************************************************
*
* SaneVersion
*
* Uses global version number equate.
*
*****************************************************************
	EXPORT SaneVersion
SaneVersion	PROC
RTL1	equ 1
RTL2	equ RTL1+3
VersionInfo	equ RTL2+3


	lda #SaneVersionNumber


	EXPORT ShareSTATUS
ShareSTATUS		;       
	sta VersionInfo,s
	jml oEndCall0

	ENDP


*****************************************************************
*
* SaneSTATUS
*
* Added by SEG on 29 Dec 86
*
*****************************************************************
	EXPORT SaneStatus
SaneStatus	PROC

	cmp #0
	beq ShareStatus
	lda #True
	bra ShareStatus

	ENDP


*****************************************************************
*
* SaneReset
*
* Since this does nothing, I put the address of oEndCall0
* in the call table.
*
*****************************************************************
;          copy sane/dt
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; File:  DT
;; Description: Data Constants for ORCA	SANE 65816 floating	point engine
;; Status: Alpha
;;
;; Written by Kenton Hanson, Apple Numerics Group, 13 May 1986
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	EXPORT DT
DT	PROC
	EXPORT lastW
lastW	DC.W 8,6,2,2,0,6,24,12 ;ext, dbl, sgl, Lng, int, comp, q, q*
	EXPORT lastSig
lastSig	DC.W 6,6,2,2,0,6,22,10
	EXPORT StkBtWd
StkBtWd	DC.W 8,6,2,4,2,8,24,12
	EXPORT ShftDS
ShftDS	DC.W 4,7	;right bit shift for word align Dbl+Sgl
	EXPORT ExpAdj
ExpAdj	DC.W 15360,16256	;2^14 - 2^10, 2^14 - 2^7
	EXPORT MaxExp
MaxExp	DC.W -1,2047,255
	EXPORT MinExp
MinExp	DC.W 0,15361,16257,16414,16398,16446,0
	EXPORT MaxShft
MaxShft	DC.W 66,55,26,34,18,66,98,98
	EXPORT MaxAdj
MaxAdj	DC.W 32767,17407,16511,16414,16398,16446,32767
	EXPORT ZINS
ZINS	DC.B '0INN'
	EXPORT RndTbl
RndTbl	DC.B $00,$00,$00,$c0,$00,$c0,$00,$00,$00,$00,$00,$c0,$00,$c0,$00,$00,$00,$40,$00,$40,$00,$80,$00,$80
	ENDP
;          copy sane/fp816
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; File:  FP816
;; Description: Main routine for ORCA SANE 65816 floating point engine.
;; Status: Release 2.0
;;
;; Written by Kenton Hanson, Apple Numerics Group, 19 May 1986
;;
;; Modification History: 11Aug86 klh Halt vector mechanism fixed
;;	     26Feb87 klh Sets Invalid on integer overflow
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	EXPORT Eight16
Eight16	PROC
	jsl IncBusyFlg
	phd	; put direct reg on	stack
	tcd	; set direct reg
	pla	; save orig direct on zp
	sta OrigDirect
	phb	; save original data bank register
	phb
	pla
	sta OrigBank	; on zero page
	phk	; set data bank register
	plb	; this bank
	bra PassClayton
	EXPORT Clayton
Clayton		;       ;entry for Elems code
	jsl IncBusyFlg
	EXPORT PassClayton
PassClayton		; 
	pla
	sta ZPRtn
	pla
	sta ZPRtn+2
	pla
	sta ZPRtn+4
	stz ZeroWord	;initialize ZeroWord
	stz tmpFlgs	;initialize tmpFlgs
	stz Ctag	;initialize Ctag
	stz signC	;initialize signC
	pla
	sta opword	;save opword
	xba
	tay
	and #$7	;location of source	format
	asl a	;double it, for word based tables
	sta fence	;store source format (usually)
	tax	;also store in 'x'
	tya
	and #$70	;location of destination format
	beq z1s1
	lsr a
	lsr a
	lsr a
z1s1	sta fence2	;format of destination
	lda opword
	and #$1f	;mask out opcode
	sta opcode
	tay	;also store in 'y' for NonArith table2
	lsr a	;odd values are non	Arithmetic opcodes
	bcc z1s2	;Arithmetic function
	lda table2-1,y
	pha
	rts
z1s2	cmp #$7
	bcc z1s3	;a < 7, i.e., add, sub, mul, div, cmp, cpx, rem
	cmp #$0f	;NextAfter
	bne notASMD
	ldx fence
	stx fence2	;NextAfter, destination gets format of source
z1s3	stx fenceSv
	ldx fence2
	stx fence
	jsr UnPck	;get second argument (usually extended)
	moveA Brgstr,Crgstr
	jsr BtoA
	ldx fenceSv	;restore fence
	stx fence
;      ;ldx     fence
	ldy StkBtWd,x	;; tmpZP2 := max (lgthA, MaxShft,x)
	cpy lgthA	;StkBtWd,x - lgthC
	bpl z1s4
	ldy lgthA
z1s4	sty SBWord	;maximum length, i.e., max (lgthA, MaxShft,x)
	jsr UnPck	;get first argument
	lda signA
	eor signB
	sta signC
	lda fence2
	sta fence
	lda #NanTag
	cmp Atag	;NanTag - Atag
	bpl z1s5	;Nan found
	cmp Btag
	bmi z1s9	;neither value is a	Nan
	bpl z1s7	;only B is Nan
z1s5	cmp Btag	;NanTag - Btag
	bmi z1s6	;only A is a Nan
	lda FrctA
	cmp FrctB	;FrctA - FrctB
	bcc z1s7	;FrctA < FrctB
z1s6	jsr AtoC
	sec
	bcs z1s8	;branch always !!!!!!!!!
z1s11	jsr SetInv
z1s12	ldx #$0101	;return value for unordered
	stx pendingX
	jmp TrpHd1
z1s7	jsr BtoC
z1s8	lda opcode
	cmp #$8
	beq z1s12	;cmp
	cmp #$0a
	beq z1s11	;cpx
	jmp rtnArth
z1s9	lda rtnA
	pha
notASMD	ldy opcode
	lda table1,y
	pha
	rts
	EXPORT table1
table1	DC.W add-1,sub-1,mul-1,Xdiv-1,cmpar-1,cmpar-1,rem-1,z2x-1
	DC.W x2z-1,sqr-1,rndti-1,tti-1,scalb-1,logb-1,class-1,next-1
	EXPORT rtnA
rtnA		;       
	DC.W rtnArth-1
	EXPORT rtnB
rtnB		;       
	DC.W XitFP-1
	EXPORT table2
table2	DC.W setE-1,getE-1,setTV-1,getTV-1,D2B-1,B2D-1,neg-1,abs-1
	DC.W cpySgn-1,0,SetX-1,ProcIn-1,ProcX-1,testX-1
cmpar	pla	;unload rtnA, B rel	A
	lda rtnB
	pha
cmpar2	lda Atag
	bmi z2s2
	lda #-1
	bra z2s3	;branch always   !!!!!!
z2s2	tax
	inx
	bmi z2s3
	txa
z2s3	ldx signA
	bne z2s4
	eor #-1	;negate 'A'
	inc a
z2s4	sta tmpZP
	lda Btag
	bmi z2s5
	lda #-1
	bra z2s6	;branch always   !!!!!!
z2s5	tax
	inx
	bmi z2s6
	txa
z2s6	ldx signB
	bne z2s7
	eor #-1	;negate 'A'
	inc a
z2s7	cmp tmpZP	; B - A
	bmi z2s15	; B < A
	bne z2s17	; B > A
	lsr a
	bcc z2s13	; B = A
	sec
	lda expnB
	sbc expnA
	tay
	lda expnB+2
	sbc expnA+2
	bmi z2s14	; expnB < expnA
	bne z2s16	; expnB > expnA
	tya
	bne z2s16	; expnB > expnA
;	            ; expnB	= expnA
	ldx lgthB
	cpx lgthA	; lgthB - lgthA
	bpl z2s10
	ldx LgthA	; y := max (lgthB, lgthA)
z2s8	stz FrctB,X
	dex
	dex
	cpx lgthB	; x - lgthB
	bne z2s8
	ldx lgthA
	bpl z2s11
z2s9	stz FrctA,X
	dex
	dex
z2s10	cpx lgthA	; x - lgthA
	bne z2s9
	ldx lgthB
z2s11	stx tmpZP
	ldx #-2
z2s12	inx
	inx
	lda FrctB,x
	cmp FrctA,x	; FrctB - FrctA
	bcc z2s14	; FrctB < FrctA
	bne z2s16	; FrctB > FrctA
	cpx tmpZP	; x - tmpZP
	bmi z2s12
z2s13	ldx #$0002	; B = A
	bra endCmp
z2s14	lda signB
	bne z2s17	;both signs negative
z2s15	ldx #$8080	; B < A
	bra endCmp
z2s16	lda signB
	bne z2s15	;both signs negative
z2s17	ldx #$4040	; B > A
endCmp	stx pendingX
	rts
z2x	pop crgstr	;get second argument (usually extended)
	jsr UnPck	;get first argument
	lda fence2
	sta fence	;restore fence to ext. (usually) destination
	bra packit
x2z	pop crgstr	;get second argument
	lda fence	;save fence
	sta fenceSv
	lda fence2
	sta fence	;set fence to extended source
	jsr UnPck	;get first argument	(usually extended)
	lda fenceSv	;restore fence
	sta fence
packit	jsr BtoC
	jmp rtnArth
sqr	lda fence
	sta fence2
	jsr UnPck
	moveA Brgstr,Crgstr
	jsr sqrt
	jmp rtnArth
scalb	jsr UnPck
	moveA Brgstr,Argstr
	moveA Brgstr,Crgstr
	jsr BtoA
	clc
	pla	;get scale factor
	tax	;save sign of scale	integer
	adc expnB	;adjust exponent
	sta expnB
	txa
	bmi z3s7
	lda ZeroWord
	beq z3s8	;branch always !!!
z3s7	lda #-1
z3s8	adc expnB+2
	sta expnB+2
	bra packit
rndti	jsr UnPck
	moveA Brgstr,Crgstr
	jsr BtoC
	lda Ctag
	bmi z4s1
	jsr Rnd2Int
z4s1	jmp rtnArth
tti	jsr UnPck
	moveA Brgstr,Crgstr
	jsr BtoC
	lda Ctag
	bmi z5s1
	lda envWrd
	sta SBWord	;save rounding direction
	ora #$0c000	;set round towards zero
	sta envWrd
	jsr Rnd2Int
	lda SBWord
	and #$0c000
	sta SBWord	;get original rounding mode
	lda envWrd
	and #$03fff
	ora SBWord	;restore it
	sta envWrd
z5s1	jmp rtnArth
logb	lda fence
	sta fence2
	jsr UnPck
	moveA Brgstr,Crgstr
	lda rtnA
	pha
	lda Btag
	bmi z6s4
	lda #$2
	sta lgthC
	sec
	lda expnB
	sbc #$3fff
	sta FrctC+2
	lda expnB+2
	sbc zeroWord
	sta FrctC
	bpl z6s2
	sec
	lda ZeroWord
	sbc FrctC+2
	sta FrctC+2
	lda ZeroWord
	sbc FrctC
	sta FrctC
	inc signC
z6s2	stz expnC+2
	lda #$401e	;3fff + 31.
	sta expnC
	jsr NrmlzC
	lda Ctag
	bpl z6s3
	bit EnvWrd
	bpl z6s3	;either round to nearest or upward
	bvs z6s3	;round toward zero
	inc signC	;round downward with a zero result, rtn	-0
z6s3	rts
z6s4	inc a
	bne z6s6	;not zero
	lda #dvzXcp
	jsr setXcpn
	inc signC	;return negative infinity
z6s5	jmp rtnInf	;jsr, rts
z6s6	inc a
	beq z6s5	;infinity found
	jmp BtoC	;NaN found return input argument
class	jsr UnPck
	lda Btag
	and #$0ff	;clear high byte
	asl a
	lsr signB
	ror a	;put sign in high bit of word
	sta pendingX
	jmp XitFP
next	jsr cmpar2
	txa
	and #$0c000	;greater or less than
	bne BgNext
	jmp AtoC	;jsr, rts
BgNext	stz signB
	sta tmpZP
	bpl z7s1
	inc signB	;negate B
z7s1	eor signA
	sta signC	;initialize C for Add
	lda envWrd
	pha	;save rounding direction
	and #$3fff	;clear rounding direction
	ora tmpZP
	sta envWrd
	stz Btag	;put extremely small number in B
	stz expnB
	lda #$0f000
	sta expnB+2
	stz lgthB
	lda #$8000
	sta FrctB
	lda Atag
	cmp #InfTag
	bne z7s2
	stz Atag	;put extremely large number in A
	stz expnA
	lda #$0fff
	sta expnA+2
	stz lgthA
	lda #$8000
	sta FrctA
z7s2	jsr Add
	jsr ck4URO
;       ;;;;;;;;;;;;
	pla
	and #$0c000
	sta SBWord	;get original rounding mode
	lda envWrd
	and #$03fff
	ora SBWord	;restore it
	sta envWrd
	lda tmpFlgs
	and #$6	;underflow and overflow
	beq z7s5
	and #$2	;underflow
	bne z7s3	;underflow execption set
	lda Ctag
	bmi z7s7	;infinity delivered, save flags
	bpl z7s5
z7s3	lda FrctC
	bpl z7s7	;denormal number delivered, save flags
z7s5	stz tmpFlgs
z7s7	rts
	EXPORT rtnZero
rtnZero		;       
	lda #ZeroTag
	bne rtnInf2
	EXPORT rtnInf
rtnInf		;       
	lda #InfTag
rtnInf2	sta ctag
	lda #-2
	sta lgthC
	rts
	EXPORT InvNan
InvNan		;       
	stz lgthC
	EXPORT InvNan2
InvNan2		;       
	ora #$4000	;mask in 'non signaling bit'
	sta FrctC
	lda #NanTag
	sta Ctag
	EXPORT SetInvld
SetInvld		;       ;klh <26Feb87> new entry
SetInv	lda #invxcp
	EXPORT setXcpn
setXcpn		;       
	ora tmpFlgs
	sta tmpFlgs
	rts
SetE	pla
	sta EnvWrd
	jmp XitFP
GetE	ldx EnvWrd	;!!! Note entire EnvWrd goes to x !!!
	stx pendingX
	jmp XitFP
setTV	pop HaltVect
	jmp XitFP
getTV	ldx HaltVect
	stx pendingX
	ldy HaltVect+2
	sty pendingY
	jmp XitFP
neg	pop Brgstr
	ldy lastW,x	;get word with sign	bit
	cpx #$6
	bcs z8s3	;not an extended, double, or single
z8s2	lda [Brgstr],y
	eor #$8000	;change sign bit
	sta [Brgstr],y
	jmp XitFP
z8s3	cpx #$0c
	bcs z8s2	;not a long, integer, or comp type
NgIntgr	tyx
	ldy ZeroWord
	sec
z9s1	lda ZeroWord
	sbc [Brgstr],y
	sta [Brgstr],y
	iny
	dex
	iny
	dex
	bpl z9s1
	jmp XitFP
abs	pop Brgstr
	ldy lastW,x	;get word with sign	bit
	lda [Brgstr],y
	cpx #$6
	bcs z10s3	;extended, double, or single
z10s2	and #$7fff	;mask out sign bit
	sta [Brgstr],y
	jmp XitFP
z10s3	cpx #$0c
	bcs z10s2	;not a long, integer, or comp type
	asl a
	bcs NgIntgr
	jmp XitFP
cpySgn	pop Crgstr
	pop Brgstr
	ldy lastW,x	;get word (source) with sign bit
	lda [Brgstr],y
	ldx fence2	;get format of destination
	ldy lastW,x	;get word (destination) with sign bit
	cpx #$6
	bcs z11s3	;extended, double, or single (destination)
z11s2	asl a	;get sign bit of source into carry
	php	;save status (i.e.,	sign bit in carry)
	lda [Crgstr],y	;get sign word of destination
	asl a	;clear sign
	plp	;restore status (including sign bit in carry)
	ror a	;set sign bit of destination
	sta [Crgstr],y	;store updated sign	word (destination)
	jmp XitFP
z11s3	cpx #$0c
	bcs z11s2	;not a long, integer, or comp (destination)
	eor [Brgstr],y
	and #$8000
	bne NgIntgr	;signs different reverse sign of destination
	jmp XitFP
SetX	pla
	bne TH2
	jmp XitFP
TestX	pla
	xba
	and EnvWrd
	sta pendingX
	jmp XitFP
ProcIn	pop argstr
	ldy ZeroWord
	lda EnvWrd
	sta [argstr],y	;save current state
	stz EnvWrd	;set default state
	jmp XitFP
ProcX	lda EnvWrd	;get current exceptions
	xba	;swap bytes
	sta tmpflgs	;let trap handler mask in exceptions
	pla	;get old environment
	sta EnvWrd
	jmp TrpHd1
rtnArth	jsr pck
	EXPORT TrpHd1
TrpHd1		;       
	lda tmpflgs
TH2	and #$1F
	bit EnvWrd
	beq z12s7
	ldy HaltVect
	bne HaltMech
	ldy HaltVect+2
	beq z12s7
	bra HaltMech

setHV	ldy HaltVect+1	; get 3-byte Halt Vector address - 1
	lda HaltVect	; onto stack, then RTL
	bne noCryHV	; dec HaltVector does not change hi word
	dey
noCryHv	dec a
	phy	; push 2 hi order bytes
	phb	;dummy push opf DBR	to decrement S by 1
	sta 1,s	; store 2 low order	bytes on stack
	rtl	; note jsr (below) put correct return
*		; on stack

HaltMech	jsl setHV	; store return address for
*		; effective jsl to HaltVect-1
	lda tmpflgs	; <klh 8Aug86>
	and #$1F	; <klh 8Aug86>
z12s7	xba
	ora EnvWrd
	sta EnvWrd
	EXPORT XitFP
XitFP		;       
	bit pendingX
	lda pendingX
	ldy pendingX+1
	tax
	and #$ff00
	pei ZPRtn+4
	pei ZPRtn+2
	pei ZPRtn
	php
	lda OrigBank	; restore original data bank
	pha
	plb
	plb
	lda OrigDirect	; restore orig direct
	tcd
	lda ZeroWord	; <klh 8Aug86>
	plp
	clc
	jsl DecBusyFlg
	rtl
;-
;+
	RtoR A,C
	RtoR B,A
	RtoR B,C
	ENDP
;          copy sane/unpack
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; File:  Unpack
;; Description: Unpack and Pack for ORCA SANE 65816 floating point engine
;; Status: Release 2.0
;;
;; Written by Kenton Hanson, Apple Numerics Group, 21 May 1986
;;
;; Modification History:  
;;
;; 26Feb87 	klh 
;;
;; Sets Invalid on integer overflow
;;
;; 12 Dec 88	Kenton Hanson
;;
;; Fixed bug of conversion of large comps to extended.
;; Floating point nan conversion to comp nan no longer signals invalid.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	EXPORT UnPck
UnPck	PROC
	plx	;save return from UnPck
	pop Brgstr
	phx	;restore return from UnPck
	stz btag	;initialize tag for	normal nonzero number
	stz signB	;initialize sign to	'+'
	stz expnB+2	;initialize high word of exponent to zero
	ldx fence
	ldy lastW,x
	cpx #ffLng
	bcc fpUnPck	; y < ffLng, i.e., Extended Double or Single
	cpx #ffq
	bcs fpUnPck	; y >= ffq
;fxdUnPck
	stz FrctB+2
	stz FrctB+4
	stz FrctB+6
	stz FrctB+8	; added by Kenton 12 Dec 88
	lda [BRgstr],y
	bpl PosFxd
	tyx
	ldy signB	;ldy    #00
	inc signB	;set signB to 1 => '-'
	sec
z1s1	lda btag	;lda    #00
	sbc [BRgstr],y
	sta FrctB,x
	iny
	dex
	iny
	dex
	bpl z1s1
	tax
	bpl NrmlWrd
	lda fence
	cmp #ffComp
	bne NrmlWrd	;not a comp NaN
	stz lgthB
	lda #NaNComp
	sta FrctB
	lda #NanTag
	sta btag
	rts
PosFxd	tyx
	ldy signB	;ldy    #00
z2s1	lda [BRgstr],y
	sta FrctB,x
	iny
	dex
	iny
	dex
	bpl z2s1
NrmlWrd	lda FrctB
	bne z3s1
	lda FrctB+2
	sta FrctB
	lda FrctB+4
	sta FrctB+2
	lda FrctB+6
	sta FrctB+4
	stz FrctB+6	;clear last word
	dey
	dey
	bne NrmlWrd
	stz lgthB	;make sure length is not total garbage
	jmp ZrTagB
z3s1	tya
	sta lgthB
	asl a
	asl a
	asl a
	adc #$3ffe	;add correct bias
	sta expnB
	jmp normB
fpUnPck	lda [BRgstr],y
	asl a
	rol signB	;set sign word 0 for '+', 1 for '-'
	lsr a	;strip off sign bit
	sta expnB	;store low word of exponent
	ldx #-2
	stx lgthB	;initialize length of fraction to -2
	dey
	dey
z4s1	inx
	inx
	lda [BRgstr],y
	beq z4s2	;zero word found don't update length
	stx lgthB	;update length
z4s2	sta FrctB,x
	dey
	dey
	bpl z4s1
	ldy fence
	beq z4s9	;unpacking an extended
	cpy #ffq
	bcs z4s9	; y >= ffq
	ldx lastW,y	;either a double or	a single
	stx lgthB	;set max length
	stz FrctB,X	;zero last word
	ldx ShftDS-2,y	;get # of left shifts
z4s3	lsr expnB	;right shift x bits
	ror FrctB
	ror FrctB+2
	ror FrctB+4
	ror FrctB+6
	dex
	bne z4s3
	lda expnB
	sec	;set implicit bit
	bne z4s4	;normalized number found
	inc btag	;set tag to 1
	inc expnB	;increment exponent
	clc	;clear implicit bit
z4s4	ror FrctB
	ror FrctB+2
	ror FrctB+4
	ror FrctB+6
	jsr TailOff
	lda expnB
	cmp MaxExp,y
	bcs NanInf	; a >= MaxExp,y
	adc ExpAdj-2,y
	sta expnB
z4s9	lda expnB
	bne z4s10
	ldx FrctB
	bmi z4s10	;not a denormalized	extended
	inc btag	;denormalized number found
z4s10	cmp #$7fff
	beq NanInf	;maximum exponent (either a NaN or Infinity)
	ldx lgthB
	bpl normB	;not a zero
ZrTagB	lda #ZeroTag	;zero found, set tag (=-1), length to -2 & exit
	sta Btag
	dec a
	sta lgthB
	rts
;       ; handle NaNs and Infinities
NaNInf	lda FrctB
	ldx #-2	;infinity tag
	ldy lgthB
	bmi z5s2	;infinity found
	bne z5s1
	cmp #$8000	;infinity, if this is the only bit set!
	beq z5s2	;only the bit left of decimal is set, i.e. inf.
z5s1	dex	;set x to (-3) quiet NaN
	ora #$4000	;mask in non signaling NaN bit
	cmp FrctB
	beq z5s2	;quiet NaN
	dex	;signalling NaN (-4)
	sta FrctB	;change to quiet NaN
	lda tmpflgs	;set invalid exception
	ora #invxcp
	sta tmpFlgs
z5s2	stx btag
	jmp TailOff
	EXPORT BgnNrmB
BgnNrmB		;       
	ldx lgthB	;left shift one bit
	clc
z6s1	rol FrctB,x
	dex
	dex
	bpl z6s1
	lda expnB	;increment exponent
	bne z6s2
	dec expnB+2
z6s2	dec expnB
normB	lda FrctB
	bpl BgnNrmB	;still not normalized
TailOff	ldx lgthB
	bmi z7s2
z7s1	lda FrctB,x	;strip trailing zero words
	bne z7s2
	dex
	dex
	stx lgthB
	bpl z7s1
z7s2	rts	;END OF UNPACK   END OF UNPACK   END OF	UNPACK
	EXPORT pck
pck		;       
	ldx fence
	ldy ctag
	bmi ZIN	;either a zero, infinity or NaN
	jsr ck4URO	;check for underflow, round, check for overflow
StuffIt	ldx fence
;      ;beq     StuffEx         ;extended
	bne z8s1
	jmp StuffEx
z8s1	cpx #ffLng
	bcc PkDblSg	; x < ffLng, i.e., Double or Single
	cpx #ffq
	bcc @skip	; Changed 12 Dec 88 to handle long branch
	brl StuffEx	; x >= ffq
@skip
;   ;integer longInt or comp
	ldy lastW,x
	ldx signC	; dual purpose, also initializes x to zero
	beq z8s3	;LgInCmp         ; branch to long, integer, Comp
	tyx
	sec
z8s2	lda ZeroWord
	sbc FrctC,x
	sta FrctC,x
	dex
	dex
	bpl z8s2
	ldx ZeroWord
z8s3	
	bne ZIN	; changed 12 Dec 88 to handle long branch
	brl LgInCmp	; branch to long, integer, Comp

ZIN	iny
	bne LdMxXp	;Infinity or NaN Encountered
	stz lgthC	;zero Encountered
	lda lgthC
	dec lgthC	;make sure lgthC is	negative
	cpx #ffLng
	bcc stffItZ	; x < ffLng, i.e., Extended, Double or Single
	cpx #ffq
	bcc ZeroILC	; force positive zero for Long, integer	& comp
	bcs StffItZ	; x >= ffq
LdMxXp	lda MaxAdj,x
	sta expnC
	cpx #ffLng
	bcc stuffIt	; x < ffLng, i.e., Extended, Double or Single
	cpx #ffq
	bcs StuffIt	; x >= ffq

	cpx #ffComp	; added 12 Dec 88
	bne seti88
	iny
	bmi nSet88	; end addition

seti88	jsr SetInvld	; 26Feb87 klh Sets Invalid on integer overflow
nSet88	ldy lastW,x
	stz lgthC
	ldx lgthC
	lda #$8000
	bne LgInCmp2	; branch to long, integer, Comp
PkDblSg	ldy ShftDS-2,x	;number of left shifts to align dbl & sgl
	ldx lgthC
	bmi z9s2
	clc
z9s1	rol FrctC,x	;shift one bit to set carry
	dex
	dex
	bpl z9s1
z9s2	ldx Ctag
	inx
	bne z9s3	;not zero
	txa	;ldaI   0
	beq stffitz
z9s3	bpl z9s4	;not infinity or a Nan
	sec	;need to set carry for subtract below
z9s4	ldx fence
	lda expnC
	sbc ExpAdj-2,x	;carry set depending on implicit bit above (rol)
	sta expnC
z9s5	clc
	ldx lgthC
	bmi z9s7
z9s6	rol FrctC,x	;finish shifting
	dex
	dex
	bpl z9s6
z9s7	rol expnC
	dey
	bne z9s5
StuffEx	lda expnC
	asl a
stffitz	lsr signC	;shift sign bit into carry
	ror a
ZeroILC	ldx fence
	ldy lastW,x
	sta [CRgstr],y	;store sign & exponent
	ldx #-1
	dey
	bmi IntFrmt
loop8	cpx lgthC
	bpl FillZWd	; x >= lgthC
	inx
	dey
LgInCmp	lda FrctC,x
LgInCmp2	sta [CRgstr],y
	inx
	dey
	bpl loop8
IntFrmt	rts
FillZWd	lda #$0	;fill out zero words
z10s10	dey
	sta [CRgstr],y
	dey
	bpl z10s10
	rts
	EXPORT ck4URO
ck4URO		;       
	ldx fence
	lda #$00c0	;mask for Rounding Precision
	and EnvWrd
	beq noRP
	lsr a
	lsr a
	lsr a
	lsr a
	lsr a
	cmp fence	;a (RP) - fence
	bcc noRP	;a < fence
	tax
noRP	stx fenceSV	;local fence
	cpx #ffqq
	beq RoundIt	;no underflow checking
	clc
	lda MinExp,x
	sbc expnC	;MinExp,x - expnC -	1
	sta expnX	;save low word of subtract
	lda ZeroWord
	sbc expnC+2
	bmi RoundIt	;no underflow, go to rounding code
	sta expnX+2
	inc expnX
	bne z11s1
	inc expnX+2
z11s1	lda MinExp,x	;store minimum exponent
	sta expnC
	stz expnC+2
	jsr DnrmC
RoundIt	ldy fenceSV
	ldx lastSig,y
	stx TmpZP4	;save lastSig,y for	later update of lgthC
	dey
	bmi z12s5	;extended, bypass this double & single stuff
	dey
	bne z12s2
	lda #$4
	cmp lgthC
	bpl NoRnd	;4 >= lgthC
	lda FrctC+6
	and #$800
	sta TmpZp2	;store lsb in TmpZP2
	lda FrctC+6
	and #$400
	sta TmpZP	;store round bit in	TmpZP
	lda FrctC+6
	sta TmpZP3
	and #$0f800
	sta FrctC+6	;clear bits after lsb
	lda #$3ff
	bne z12s4
z12s2	dey
	dey
	bne z12s5
	lda lgthC
	beq NoRnd
	lda FrctC+2
	and #$100
	sta TmpZp2	;store lsb in TmpZP2
	lda FrctC+2
	and #$80
	sta TmpZP	;store round bit in	TmpZP
	lda FrctC+2
	sta TmpZP3
	and #$0ff00
	sta FrctC+2	;clear bits after lsb
	lda #$7f
z12s4	and TmpZP3	;get sticky bits into A
	clc	;branch always   branch always   branch	always
	bcc StkBtLp	;branch always   branch always   branch	always
z12s5	cpx lgthC	;x - lgthC
	bmi Rnding	;lastSig,y < lgthC
NoRnd	jmp OvrflCk
Rnding	lda FrctC,x
	and #$1
	sta tmpZP2	;store lsb in tmpZP2
	stz tmpZP
	inx
	inx
	lda FrctC,x
	asl a	;store sticky bit in A
	ror tmpZP	;store round bit in	tmpZP
StkBtLp	tay	;Sticky Bit Loop, put sticky bits in 'A'
	bne z13s7	;sticky bit found
z13s6	cpx lgthC	;x - lgthC
	bpl z13s7	;y >= lgthC, no more words to examine
	inx
	inx
	ora FrctC,x	;or sticky bits
	beq z13s6	;no sticky bit, continue looking
z13s7	sta tmpZP3	;save sticky bits
	ldx TmpZp4	;get lastSig,y(fenceSV)
	stx lgthC	;update length of C
	ora tmpZP	;or sticky bit with	round bit
	beq DumpTrZ	;no trailing bits, therefore, no rounding
	lda tmpflgs	;set inexact exception
	ora #inexcp
	ldx FrctC
	bmi z13s8	;normalized number,	do not set underflow
	ldy fenceSV
	cpy #ffLng
	bcc UnderF	;extended, double, or single
	cpy #ffq
	bcc z13s8	;long, integer, or Comp
UnderF	ora #unfxcp
z13s8	sta tmpFlgs
	lda #$0c000	;mask in rounding direction
	bit EnvWrd
	beq RndNr
	bmi z13s9	;either downward or	toward zero
	lda signC	;round upward
	beq RndUp	;sign is positive
	bne DumpTrZ	;no rounding up (in	magnitude)
z13s9	bvs DumpTrZ	;toward zero
	lda signC	;round downward
	bne RndUp	;sign is negative
	beq DumpTrZ	;no rounding up (in	magnitude)
RndNr	lda tmpZp	;get round bit
	beq DumpTrZ	;no round bit, dump	trailing zero words
	lda tmpZP3	;get sticky bits
	ora tmpZP2	;or lsb & sticky bit
	beq DumpTrZ	;no rounding up (in	magnitude)
;	    environment word is rr-xdoui RR-XDOUI
;		    rd xcpns rp halts
;               0 to nearest, 1 upward,	2 downward, 3 toward zero
RndUp	ldy fenceSV
	ldx LastSig,y
	dey
	bmi z14s3	;extended format, bypass double & single check
	dey
	bne z14s1	;not a double
	lda #$800
	bne z14s2	;branch always
z14s1	dey
	dey
	bne z14s3	;not a single
	lda #$100
z14s2	clc
	adc FrctC,x
	sta FrctC,x
	bcc DumpTrZ
	bcs z14s4
z14s3	inc FrctC,x
	bne DumpTrZ
z14s4	dex
	dex
	bpl z14s3
	sec
	ror FrctC	;right shift signicand
	inc expnC	;adjust the exponent
	bne DumpTrZ
	inc expnC+2
DumpTrZ	ldx lgthC	;dump trailing Zero	words
	lda FrctC,x
	bne OvrflCk	;non zero word found, exit to Overflow check
	dec lgthC
	dec lgthC
	bpl DumpTrZ
	ldy fence
	lda MinExp,y
	sta expnC
	jmp rtnZero
OvrflCk	ldy fenceSV
	cpy #ffLng
	bcc OvfEDS	; x < ffLng, i.e., Extended, Double or Single
	cpy #ffq
	bcs OvfR	; x >= ffq
	ldx FrctC
	bpl RtsOut	;no integer overflow, leading bit is off
	lda signC
	beq MxNgI	;leading bit on, but number is positive
	lda expnC+2
	bne MxNgI	;overflow
	lda expnC
	cmp MaxAdj,y
	bne z15s1	;expnC <> MaxAdj,y
	lda lgthC
	bne MxNgI	;overflow, length greater than one word
	cpx #$8000
	beq RtsOut	;max negative number
	bne MxNgI
z15s1	bcs MxNgI	;expnC > MaxAdj,y
RtsOut	rts
MxNgI	lda #$8000	;Stuff Maximum Negative Integer
	sta frctC
	stz lgthC
	jsr SetInvld	; 26Feb87 klh Sets Invalid on integer overflow
	jmp rtnInf
OvfR	cpy #$0e
	beq RtsOut
OvfEDS	lda expnC+2
	bmi RtsOut
	bne Ovrfld
	lda expnC
	cmp MaxAdj,y	;expnC - MaxAdj,y
	bcc RtsOut	;expnC < MaxAdj,y
;Ovrfld  ;set inexact and overflow
Ovrfld	lda tmpflgs
	ora #ovfxcp+inexcp
	sta tmpflgs
	stz expnC+2	;stuff maximum exponent
	lda MaxAdj,y
	sta expnC
	lda #$0c000	;mask for rounding direction bits
	bit EnvWrd
	beq OvrInf	;Round to nearest, set infinity
	bvc RNlbl	;Round to negative
	bmi MaxVal	;Round toward zero,	deliver maximum value
	lda signC	;Round postive
	bne MaxVal	;RP and negative value
;	            ;RP and	positive value
OvrInf	ldy fence
	lda MaxAdj,y
	sta expnC
	jmp rtnInf	;return infinity
RNlbl	lda signC
	bne OvrInf	;RN and negative value
;	            ;RN and	positive value
MaxVal	dec expnC	;decrement exponent	to maximum numeric value
	ldx lastSig,y
	stx lgthC
	lda #-1	; FFFF
z16s1	sta FrctC,x
	dex
	dex
	bpl z16s1
	dey
	dey
	bne z16s2	;not a double
	lda #$0f800
	sta FrctC+6
z16s2	dey
	dey
	bne RtsOut	;not a single
	lda #$0ff00
	sta FrctC+2
	rts
;-
;+
	ENDP
;          copy sane/asmdrs
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; File:  ASMDRS
;; Description: Add	Subtract Multiply, Divide, Remainder
;;              and	Squareroot, for ORCA SANE 65816 floating point engine
;; Status: Alpha
;;
;; Written by Kenton Hanson, Apple Numerics Group, 20 May 1986
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	EXPORT Sub
Sub	PROC
	lda #$1
	eor signB	;reverse sign of source
	sta signB
	eor signA
	sta signC
	EXPORT Add
Add		;       
	ldx Atag	;A - B
	bmi z1s3
	ldy Btag
	bpl BgnAdSb	;no special cases
	iny
	beq z1s6	;B is zero and A is	a number, return A
	bmi z1s4	;B is infinity and A is a number, return B
z1s3	ldy Btag
	inx
	bmi z1s5	;A is infinity
	iny	;A is zero
	beq z1s9	;A is zero and B is	zero, return a zero
;	            ;A is zero and B is not a zero, return B
z1s4	jmp BtoC	;return B
z1s5	iny
	bmi z1s7	;A is infinity and B is infinity, check	signs
;	            ;A is infinity and B is not	infinity, return A
z1s6	jmp AtoC	;return A
z1s7	lda signC
	beq z1s6	;signs of infinities are compatible
	lda #NanAdd
	jmp InvNan
z1s9	lda signC
	beq z1s6	;sum of zeros with same sign
	jmp ZrRslt	;0-0 or 0+(-0), ck rounding direction for sign
BgnAdSb	sec
	lda expnA
	sbc expnB
	sta expnX
	lda expnA+2
	sbc expnB+2
	sta expnX+2
	bmi AxltBx	;expnA < expnB
;	            ;expnA >= expnB
	RtoRXpn B,C,A	;B to C with sign &	exponent of A
	jmp DMC	;Branch always !!!!!!!!!!!!!!!!!!
	EXPORT AxltBx
AxltBx		; 
	RtoRXpn A,C,B	;A to C with sign &	exponent of B
	lda signA
	sta signB
	ldx lgthB
	stx lgthA
z2s1	lda FrctB,x
	sta FrctA,x
	dex
	dex
	bpl z2s1
	ldx fence
	ldy StkBtWd,x	;; SBWord := max (lgthA, MaxShft,x)
	cpy lgthA	;StkBtWd,x - lgthA
	bpl z2s3
	ldy lgthA
z2s3	sty SBWord	;maximum length, i.e., max (lgthA, MaxShft,x)
	sec	;expnX := -expnX
	lda ZeroWord
	sbc expnX
	sta expnX
	lda ZeroWord
	sbc expnX+2
	sta expnX+2
DMC	jsr dnrmC
	ldx lgthC
z3s1	cpx lgthA	;lgthC - lgthA
	bpl z3s2
	inx
	inx
	stx lgthC	;extend length of C	to A
	stz FrctC,X
	bpl z3s1	;branch always  !!!!!!!!!!!!!!!!
z3s2	lda signB
	eor signC
	bne diffSgn
	ldx lgthA
	clc
z3s5	lda FrctA,x
	adc FrctC,x
	sta FrctC,x
	dex
	dex
	bpl z3s5
	bcc z3s10	;no carry overflow
	ldx lgthC
	txy
	ldx ZeroWord
z3s6	ror FrctC,x
	inx
	dey
	inx
	dey
	bpl z3s6
	inc expnC	;adjust exponent
	bne z3s7
	inc expnC+2
z3s7	bcc z3s10	;no carry from right bit shift
	ldx lgthC
	cpx SBWord	;lgthC - SBWord
	bcc z3s8	;lgthC < SBWord
	lda FrctC,x
	ora #$1	;or carry out, into	last bit of FrctC,x
	bne z3s9	;always true
z3s8	inx	;add new word with a leading bit set
	inx
	stx lgthC
	inc tmpZP2	;update word length
	lda #$8000
z3s9	sta FrctC,x
z3s10	rts
diffSgn	ldx lgthA
z4s1	cpx lgthC	;lgthA - lgthC
	bpl z4s2
	inx
	inx
	stx lgthA	;extend length of A	to C
	stz FrctA,X
	bpl z4s1	;branch always  !!!!!!!!!!!!!!!!
z4s2	sec
z4s5	lda FrctA,x
	sbc FrctC,x
	sta FrctC,x
	dex
	dex
	bpl z4s5
	bcs NrmlzC	;|A| >= |C|
	ldx lgthC	;negate result
	sec
z4s6	lda ZeroWord
	sbc FrctC,x
	sta FrctC,x
	dex
	dex
	bpl z4s6
	lda signB	;change sign
	sta signC
	EXPORT NrmlzC
NrmlzC		;       
	lda FrctC
	bne NrmBitC	;leading word non zero
	ldx #-2
	lda lgthC
	beq ZrRslt	;zero result
	lsr a	;number of word shifts
z5s1	inx
	inx
	ldy FrctC+2,x
	sty FrctC,x
	dec a
	bne z5s1
	stx lgthC	;store updated length of C
	lda expnC	;Note: carry cleared by 'lsr' above
	sbc #$0f	;really expnC := expnC - 16.
	sta expnC
	bcs NrmlzC
	dec expnC+2
	bcc NrmlzC	;branch always
ZrRslt	stz signC
	lda EnvWrd
	and #$0c000	;mask in rounding direction
	asl a
	bcc z6s1
	bne z6s1	;RZ
	rol signC
z6s1	jmp rtnZero
loopNBC	ldx lgthC
	clc
z7s3	rol FrctC,x
	dex
	dex
	bpl z7s3
	lda expnC
	bne z7s4
	dec expnC+2
z7s4	dec expnC
	lda FrctC
NrmBitC	bpl loopNBC
	rts
;	            ;A div B
	EXPORT Xdiv
Xdiv		;       
	ldx Atag
	bmi z8s5
	ldy Btag
	bpl BgnDiv	;no special cases
	iny
	bmi z8s6	;B is infinity and A is a number, return zero
;	            ;B is zero and A is a number, return infinity
	lda #dvzxcp
	jsr setXcpn	;signal div_zero
z8s4	jmp rtnInf
z8s5	cpx Btag
	beq z8s7	;0/0 or infinity/infinity
	inx
	bmi z8s4	;A is infinity and B is not, return infinity
;	            ;A is zero and B is not zero, return zero
z8s6	jmp rtnZero
z8s7	lda #NanDiv
	jmp InvNan
BgnDiv	jsr rtab1X	;right shift A and B one bit
;	            ;& extend the length of A to B if necessary
	ldx fence2	;format of destination
	lda MaxShft,x
	sta tmpZP2
	lsr tmpZP2	;divide by 16, to find the # of word divides
	lsr tmpZP2
	lsr tmpZP2
	lsr tmpZP2	;number of full word divides
	and #$0f
	sta tmpZP3	;number of bit divides for last word
	stz lgthC	;initialize length of 'C'
z9s4	jsr dvword	;divide a word
	ldx lgthC
	lda tmpZP
	sta FrctC,x	;store byte of quotient
	inc lgthC
	inc lgthC
	dec tmpZP2
	bne z9s4
	ldy tmpZP3
	jsr dvword2
	lda tmpZP
	lsr a
z9s5	ror a	;adjust last word of quotient
	dec tmpZP3
	bne z9s5
	ldx lgthC
	sta FrctC,x	;store word of quotient
	ldx lgthA
z9s7	lda FrctA,x	;check for sticky bit loop
	bne z9s8	;found a sticky bit
	dex
	dex
	bpl z9s7
	bmi z9s9	;branch always, no sticky bit
z9s8	ldx lgthC
	lda #$1
	ora FrctC,x	;or in sticky bit
	sta FrctC,x	;store sticky bit
z9s9	sec
	lda expnA
	sbc expnB
	sta expnC
	lda expnA+2
	sbc expnB+2
	sta expnC+2
	lda FrctC
	asl a
	bcs z9s13	;leading bit set, no left shift necessary
	ldx lgthC
	clc
z9s12	rol FrctC,x
	dex
	dex
	bpl z9s12
z9s13	lda expnC	;adjust exponent
	adc #$3ffe
	sta expnC
	lda expnC+2
	adc ZeroWord
	sta expnC+2
z9s15	ldx lgthC	;strip trailing zero word loop
	lda FrctC,x
	bne z9s20	;word contains a bit, exit loop
	dec lgthC
	dec lgthC
	bpl z9s15
z9s20	rts
dvword	ldy #$10	;set bit counter
dvword2	stz tmpZP	;initialize quotient word
dvword3	lda FrctA
	cmp FrctB	;compares MSB of FrctA - FrctB
	bcc z10s4	;early bypass, FrctA < FrctB
	ldx lgthB	;carry is set
z10s2	lda FrctA,x
	sbc FrctB,x	;FrctA := FrctA - FrctB loop
	sta FrctA,x
	dex
	dex
	bpl z10s2
	bcs z10s4	;FrctA - FrctB >= 0
	ldx lgthB	;carry is clear
z10s3	lda FrctA,x
	adc FrctB,x	;restore loop
	sta FrctA,x
	dex
	dex
	bpl z10s3
	clc
z10s4	rol tmpZP
	ldx lgthA
	clc
z10s5	rol FrctA,x	;left shift 'A'
	dex
	dex
	bpl z10s5
	dey	;decremet bit counter
	bne dvWord3
	rts
rtab1X	ldx ZeroWord	;shift anm "1" bit to right ********
	lda lgthA
	lsr a	;divide by 2, i.e. number of words in 'A'
;      ;clc	            ;Note:	above instruction clears carry
z11s1	ror FrctA,x	;right shift byte
	inx
	inx
	dec a
	bpl z11s1
	bcc rtb1	;no carry bit
	stx lgthA	;store incremented anm
	stz FrctA,X
	ror FrctA,x	;shift in carry
rtb1	ldx ZeroWord	;shift anm "1" bit to right ********
	lda lgthB
	lsr a	;divide by 2, i.e. number of words in 'B'
;      ;clc	            ;Note:	above instruction clears carry
z12s1	ror FrctB,x	;right shift byte
	inx
	inx
	dec a
	bpl z12s1
	bcc XAtoB	;no carry bit
	stx lgthB	;store incremented anm
	stz FrctB,X
	ror FrctB,x	;shift in carry
XAtoB	ldx lgthA
z13s1	cpx lgthB	;lgthA - lgthB
	bcs z13s2	;lgthA >= lgthB
	inx
	inx
	stx lgthA	;store new length
	stz FrctA,X	;pad FrctA with zeros
	bpl z13s1	;always true
z13s2	rts
	EXPORT rem
rem		;       
	lda signC
	lsr a
	stz pendingX	;put sign of C into	pendingX
	ror pendingX	;in the high bit of	both bytes
	xba
	ora pendingX
	sta pendingX
	lda signA
	sta signC	;initialize sign
	lda atag
	ldx btag
	bmi z14s1
	tay
	bpl BgnRem	;no special cases
z14s1	cmp #inftag
	beq z14s2	;g,h,i          infinity rem [ ]
	cpx #ZeroTag
	beq z14s2	;a,d            [ ]	rem 0
	jmp AtoC	;rts     b,c,f	    0 rem [w, infinity]
;		    ;or w rem infinity
z14s2	lda #NaNRem
	jmp invNaN	;rts
BgnRem	jsr rtab1X	;right shift A and B one bit
;	            ;& extend the length of A to B if necessary
	stz tmpZP
	sec
	lda expna
	sbc expnb
	sta expnc
	lda expna+2
	sbc expnb+2
	sta expnc+2
	inc expnC	;add 1
	bne z15s2
	inc expnC+2
z15s2	bit expnC+2
	bmi z15s13
	ldy #$1
	jsr dvword2
	ldy expnC
	beq z15s3
	jsr dvword3
z15s3	dec expnc+2	;sub 1
	bmi z15s5
	ldy ZeroWord
	jsr dvword3	;i.e. do 2^16 cycles
	bra z15s3	;always true
z15s5	clc	;subtract 1
	lda ExpnB
	sbc ZeroWord
	sta ExpnC
	lda ExpnB+2
	sbc ZeroWord
	sta ExpnC+2
	lsr tmpZP
	lda tmpZP
	sta tmpZP4
	bcc z15s23	;a < b/2
	ldx lgthA
z15s7	lda FrctA,x
	bne z15s8	;non zero anm
	dex
	dex
	bpl z15s7
	lsr tmpZP
	bcc z15s9	;Q is even
z15s8	lda tmpZP4	;carry is set
	adc ZeroWord	;clears carry, for $9 below
	sta tmpZP4
	lda signC
	eor #$1	;change sign
	sta signC
z15s9	ldx lgthB
;      ;clc
z15s10	rol FrctB,x
	dex
	dex
	bpl z15s10
	ldx lgthB
z15s22	cpx lgthA
	bcs z15s11	; x >= lgthA
	inx
	inx
	stz FrctB,X
	bpl z15s22	; always true
z15s11	lda FrctB,x
	sbc FrctA,x	;a := b - a
	sta FrctA,x
	dex
	dex
	bpl z15s11
z15s23	lda tmpZP4
	and #$7f
	ora pendingX
	sta pendingX
	ldx lgthA
z15s12	lda FrctA,x
	bne z15s15
	dex
	dex
	bpl z15s12
	jmp rtnZero	;rts
z15s13	sec	;add 1
	lda expnA
	adc ZeroWord
	sta expnC
	lda expnA+2
	adc ZeroWord
	sta expnC+2
z15s15	ldx lgthA
	stx lgthC
z15s16	lda FrctA,x
	sta FrctC,x
	dex
	dex
	bpl z15s16
	tax
	bmi EndRem
	EXPORT BgnNrmC
BgnNrmC		;       
	ldx lgthC	;left shift one bit
	clc
z16s1	rol FrctC,x
	dex
	dex
	bpl z16s1
	lda expnC	;increment exponent
	bne z16s2
	dec expnC+2
z16s2	dec expnC
normC	lda FrctC
	bpl BgnNrmC	;still not normalized
TailOff	ldx lgthC
	bmi EndRem
z17s1	lda FrctC,x	;strip trailing zero words
	bne EndRem
	dex
	dex
	stx lgthC
	bpl z17s1
EndRem	rts
	EXPORT sqrt
sqrt		;       
	lda signB
	sta signC
	beq z18s3	;positive argument
	lda Btag
	bpl z18s1	;sqrt of non zero negative number
	cmp #Inftag
	bne z18s2	;either '0' or a Nan
z18s1	lda #NanSqrt
	jmp InvNaN	;rts
z18s2	jmp BtoC	;rts
z18s3	lda Btag
	bmi z18s2
	jsr rtB1
	clc
	lda #$4001	;(3fff + 2)
	adc expnB	;adjust exponent and transfer to expnC
	sta expnC
	lda ZeroWord
	adc expnB+2
	sta expnC+2
	lda expnC+2
	asl a	;extend sign
	ror expnC+2
	ror expnc
	bcs z18s5
	jsr rtB1
z18s5	ldx fence
	ldy MaxShft,x
	lda #$2000
	stz lgthC	;initialize lgthC
	ldx lgthC
	sta FrctC
	sta tmpZP	;initialize tmpZP
	beq z18s12	;always true
z18s8	lsr tmpZP	;right shift mask
	bcc z18s10	;mask ok
	lda #$8000
	sta tmpZP	;reset mask
	inc lgthC	;expand lgthC
	inc lgthC
	ldx lgthC
	stz FrctC,X
	ldx lgthB
	cpx lgthC
	bcs z18s9	;lgthB ok
	inx
	inx
	stx lgthB	;expand lgthB
	stz FrctB,X
z18s9	clc
z18s10	ldx lgthB
z18s11	rol FrctB,x	;left shift FrctB 1	bit
	dex
	dex
	bpl z18s11
	ldx lgthC
	lda FrctC,x
	ora tmpZP
	sta FrctC,x	;or mask with FrctC
z18s12	lda FrctB
	cmp FrctC
	bcc z18s16	;early bypass
	ldx lgthC
z18s13	lda FrctB,x	;subtact loop
	sbc FrctC,x
	sta FrctB,x
	dex
	dex
	bpl z18s13
	ldx lgthC
	bcc z18s15	;lgthB < lgthC
	clc
	lda tmpZP
z18s14	adc FrctC,x	;add mask i.e. really 2*mask
	sta FrctC,x
	bcc z18s17
	lda ZeroWord
	dex
	dex
	bpl z18s14
z18s15	lda FrctB,x
	adc FrctC,x	;restore FrctB loop
	sta FrctB,x
	dex
	dex
	bpl z18s15
z18s16	ldx lgthC
	lda tmpZP
	eor FrctC,x	;restore FrctC
	sta FrctC,x
z18s17	dey
	bpl z18s8	;need another bit
	ldx lgthB
z18s18	lda FrctB,x
	bne z18s19	;sticky bit found
	dex
	dex
	bpl z18s18
	bmi z18s20	;always true, no sticky bit found
z18s19	ldx lgthC
	lda tmpZP
	ora FrctC,x	;insert sticky bit
	sta FrctC,x
z18s20	jmp BgnNrmC	;rts
	ENDP
;          copy sane/b2d2b
;he     ''B2D2B'17 April 86
;fo     ''%'klh
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; File:  B2D2B
;; Description: Binary <--> Decimal for	ORCA SANE 65816 floating point engine
;; Status: Alpha
;;
;; Written by Kenton Hanson, Apple Numerics Group, 17 April	1986
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	EXPORT B2D
B2D	PROC
	pop Argstr	;pointer to decimal	record
	jsr UnPck	;pointer to source (Brgstr)
	pop Crgstr	;pointer to format record
	ldy ZeroWord
	lda [Crgstr],y
	sta style
	lda signB
	sta [Argstr],y
	iny
	iny
	lda [Crgstr],y
	sta digits
	lda Btag
	bpl NzFnVal	;Nonzero Finite Value
	longa off
	longi off
	sep #$30
	eor #$0ff	;negate Btag and subtract 1
	tax
	lda ZINS,x	;get character for zero, infinity or NaN
	ldy #BgnSgDg+1
	sta [argstr],y
	cpx #$02
	lda #$01
	bcc z1s3	;x < 2
	ldx lgthB
	inx
	inx
	stx TmpZP	;lgthB + 2
	ldx #$00
z1s2	lda FrctB+1,x
	lsr a
	lsr a
	lsr a
	lsr a
	jsr Nib2Hex
	lda FrctB+1,x
	and #$0f
	jsr Nib2Hex
	lda FrctB,x
	lsr a
	lsr a
	lsr a
	lsr a
	jsr Nib2Hex
	lda FrctB,x
	and #$0f
	jsr Nib2Hex
	inx
	inx
	cpx TmpZP
	bcc z1s2	;x < lgthB + 2
	tya
	sbc #BgnSgDg	;carry was set
z1s3	ldy #BgnSgDg
	sta [argstr],y
	rep #$30
	jmp TrpHd1	;rts
	sep #$30
Nib2Hex	cmp #$0a
	bcs z2s5	;a > 9
	ora #$30
	bcc z2s6	;always true
z2s5	adc #$56
z2s6	iny
	sta [argstr],y
	rts
	longa on
	longi on
	rep #$30
NzFnVal	lda #ffqq
	sta fence2	;max precision for scaled integer
	lda style
	bne z3s9	;style is fixed
	lda digits
	bmi z3s8	;digits < 0
	bne z3s9	;digits > 0
z3s8	stz digits
	inc digits	;set digits to 1
z3s9	jsr BtoE	;save B, restore if	length > len
	jsr fplog10	;get a floor log10 of source, (ilog)
b2dLoop	sec
	lda style
	bne z4s11	;style is fixed
	lda digits
	sta len	;len := digits
	bcs z4s12	;always true !!!!!!!!!!!!
z4s11	lda ilog
	adc digits
	sta len	;len := ilog + digits + 1
z4s12	bmi z4s13	;len < 0
	sec	;len > SigDigLn ?
	lda #SigDigLn
	sbc len
	bpl z4s13	;no
	lda #SigDigLn
	sta len	;len := SigDigLn
z4s13	clc
	lda len
	sbc ilog
	sta iscale	;iscale := len - ilog - 1
	sta tmpZP
	lda len
	bmi z4s91
	bne z4s92
z4s91	stz len	;len < 1, len := 1
	inc len
z4s92	ldy #$02
	sec
	lda ZeroWord
	sbc iscale
	sta [argstr],y	;exp := ilog + 1 - len (= -iscale)
	jsr ScaleIt
	jsr Rnd2Int
I2ASCII	stz FrctA	;initialize FrctA
	stz lgthA
	lda Ctag
	bmi z5s9	;case of integer zero
	stz tmpZP3	;number of words in	FrctA
	sec
	lda expnC
	sbc #$3fff
	sta tmpZP5
	and #$0f
	sta tmpZP4	;number of bits in last word
	lsr tmpZP5
	lsr tmpZP5
	lsr tmpZP5
	lsr tmpZP5	;location of last word
	stz lgthX	;initialize pointer	to Frctc
	SED	;set decimal mode
z5s2	ldx lgthX
	cpx lgthC	;lgthX - lgthC
	beq z5s3
	bpl z5s4	;assumes tmpZP is '0' from last pass
z5s3	lda FrctC,x	;get next word
	sta tmpZP
z5s4	inc lgthX
	inc lgthX	;set pointer to next word of FrctC
	lda #$0f	;INITIALIZE BIT COUNT
	dec tmpZP5
	bpl z5s5	;do entire word of FrctC
	lda tmpZP4	;do partial word of	FrctC
z5s5	STA tmpZP2	;number of bit shifts
z5s6	LDX ZeroWord
	ldy tmpZP3
	asl tmpZP	;sets carry for add	loop
z5s7	LDA FrctA,X	;ADD LOOP
	ADC FrctA,X
	STA FrctA,X
	inx
	inx
	dey
	bpl z5s7
	BCC z5s8	;NO CARRY PROPAGATION
	stz FrctA,X	;zero new word
	rol FrctA,x	;shift in carry
	STX lgthA	;store new length
	inc tmpZP3	;increment word count
z5s8	DEC tmpZP2
	bpl z5s6
	bit tmpZP5
	bpl z5s2
	CLD	;CLEAR DECIMAL MODE
z5s9
	longa off
	longi off
	sep #$30
	ldy #BgnSgDg	;BEGIN BCD TO ASCII
	sec
	tya
	adc len
	sta tmpZP	;max string location in decimal record
	ldx lgthA
	lda FrctA+1,x
	beq z5s10	;high byte is zero
	inx	;increment x to start with high byte
z5s10	lda #$0f0
	and FrctA,x
	beq z5s13	;leading nibble is zero
z5s11	LDA FrctA,X
z5s12	LSR A
	LSR A
	LSR A
	LSR A
	ora #$30
	INY
	cpy tmpZP
	bcs z5s99	;length (FrctA) > len
	STA [argstr],Y
z5s13	LDA FrctA,X
	and #$0F
	ora #$30
	INY
	cpy tmpZP
	bcs z5s99	;length (FrctA) > len
	STA [argstr],Y
	DEX
	Bpl z5s11
	sec
	TYA
	sbc #BgnSgDg
	ldy #BgnSgDg
	STA [argstr],Y
	longa on
	longi on
	rep #$30
	jmp TrpHd1	;rts
z5s99	rep #$30
;	            ;restore bnm
;      ;R2R     E,B
	jsr EtoB
	stz tmpflgs	;clear flags
	inc ilog	;ilog := ilog + 1
	jmp b2dLoop
	RtoR B,E
	RtoR B,X
	RtoR C,B
	RtoR C,X
	RtoR E,A
	RtoR E,B
	RtoR X,A
	RtoR X,B
	EXPORT ScaleIt
ScaleIt		;       
	bne z6s1
	jmp BtoC	;iscale = 0, jsr & rts
z6s1	sta tmpZP5
	bmi z6s2
	sta iscale	;iscale := -iscale (= exp)
z6s2	lda EnvWrd
	and #$0c000	;mask for rounding direction
	pha	;save rounding mode
;      ;lda     EnvWrd
	asl a
	stz fenceSv	;build a pointer for rounding table
	rol fenceSv	;get rounding direction into pointer
	asl a
	rol fenceSv
	beq z6s3	;rounding mode is round to nearest
	asl tmpZP	;get original signed iscale
	rol fenceSv	;get sign of iscale	into pointer
	lda signB
	lsr a
	rol fenceSv	;get sign of sign into pointer
	rol fenceSv
	ldx fenceSv
	lda RndTbl-8,x
	eor EnvWrd	;alter rounding direction according to
	sta EnvWrd	;the Rounding Table, x
z6s3	jsr ten
	lda signE
	sta signC
	jsr EtoA
	lda #$3fff
	and EnvWrd
	sta EnvWrd
	pla
	ora EnvWrd	;restore rounding direction
	sta EnvWrd
	ldx fence2
	stx fence
	ldy StkBtWd,x	;; tmpZP2 := max (lgthA, MaxShft,x)
	cpy lgthA	;StkBtWd,x - lgthC
	bpl z6s4
	ldy lgthA
z6s4	sty SBWord	;maximum length, i.e., max (lgthA, MaxShft,x)
	bit tmpZP5	;get original signed -iscale
	bpl z6s5	;exp > 0
	jmp mul	;jsr & rts
z6s5	jmp Xdiv	;jsr & rts
FPLog10	lda #$9a1f	;1 less than 2*log2, carry set below
	sta tmpZP
	sec
	lda expnB
	sbc #$3fff	;unbias exponent into twos complement form
	tay
	sta tmpZP2
	sta tmpZP3	;used to generate sign extend below
	bpl z7s1
	inc tmpZP	;increment log2 if unbiased exponent < 0
z7s1	lda FrctB
	sta tmpZP4
	lda ZeroWord
	ldx #$0f
z7s2	lsr tmpZP4	;multiply fraction part times log2
	bcc z7s3
	adc tmpZP	;note carry is set (see comment above)
z7s3	ror a
	dex
	bne z7s2
	ldx #$11
	asl tmpZP3
z7s4	ror tmpZP2	;multiply exponent part times log2
	bcc z7s5
	adc tmpZP	;note carry is set (see comment above)
z7s5	ror a
	dex
	bne z7s4
	tyx
	bpl z7s6
	clc
	sbc tmpZP	;really add of (2^inf - 1)*tmpZP
z7s6	sta ilog	;store ilog
	rts
Ten	lda iscale
	jsr ten15
	lsr iscale
	lsr iscale
	lsr iscale
	lsr iscale
	bne z8s1	;iscale > 15
	rts
z8s1	ldx #ffqq
	stx fence
	lda stkBtWd,x
	sta SBWord
	jsr BtoX
	stz signC	;set sign of result
	lda #$10
	jsr tableX
	jmp z8s4
z8s2	jsr XtoB
	jsr CtoX
z8s3	jsr BtoA
	jsr mul
	jsr ck4URO
	jsr CtoB
z8s4	lsr iscale
	bcc z8s3
	jsr XtoA
	jsr BtoX
	jsr mul
	jsr ck4URO
	lda iscale
	bne z8s2
	jmp CtoB	;rts
ten15	and #$0f
tableX	asl a	;multiply table entry by ten
	sta tmpZP
	asl a
	asl a
;       ;clc	            ;assume	carry is clear
	adc tmpZP
	tay	;and store in y
	stz Btag
	stz signB
	stz expnB+2
	lda XTable+8,y
	asl a
	rol signB
	lsr a
	sta expnB
	ldx #$6
	lda XTable+6,y
	sta FrctB
	lda XTable+4,y
	sta FrctB+2
	lda XTable+2,y
	sta FrctB+4
	lda XTable,y
	sta FrctB+6
	bne z9s2
z9s1	dex
	dex
	lda FrctB,x
	beq z9s1
z9s2	stx lgthB
	rts
	EXPORT XTable
XTable	DC.W 0,$0,$0,$8000,$3FFF
	DC.W 0,$0,$0,$0A000,$4002
	DC.W 0,$0,$0,$0C800,$4005
	DC.W 0,$0,$0,$0FA00,$4008
	DC.W 0,$0,$0,$9C40,$400C
	DC.W 0,$0,$0,$0C350,$400F
	DC.W 0,$0,$0,$0F424,$4012
	DC.W 0,$0,$8000,$9896,$4016
	DC.W 0,$0,$2000,$0BEBC,$4019
	DC.W 0,$0,$2800,$0EE6B,$401C
	DC.W 0,$0,$0F900,$9502,$4020
	DC.W 0,$0,$0B740,$0BA43,$4023
	DC.W 0,$0,$0A510,$0E8D4,$4026
	DC.W 0,$0,$0E72A,$9184,$402A
	DC.W 0,$8000,$20F4,$0B5E6,$402D
	DC.W 0,$0A000,$0A931,$0E35F,$4030
	DC.W 0,$0400,$0C9BF,$8E1B,$4034
	EXPORT Rnd2Int
Rnd2Int		;       
	stz tmpZP2	;least significant bit
	stz tmpZP	;round bit
	sec
	lda expnC	;find the bit location to the right of the
	sbc #$3fff	;lsb, with respect to msb of FrctC
	sta expnX	;store it in expnX
	lda expnC+2
	sbc ZeroWord
	sta expnX+2
	bpl z10s4	;least bit inside left side of FrctC
	ldx ZeroWord	;set word location of first search
	lda #$0ffff
	cmp expnX
	bne z10s10	;lsb miles to the left of msb of FrctC
	cmp expnX+2
	bne z10s10	;lsb to the left of	msb of FrctC
	lda #$8000	;round bit just left of FrctC
	bne z10s8	;check round bit, branch always !!!!!!!
z10s3	rts
z10s4	lda expnX	;make bit mask
	and #$0f
	tax
	sec
	lda ZeroWord
z10s5	ror a
	dex
	bpl z10s5
	sta tmpZP4
	tay	;save mask in y
	lsr ExpnX+2	;calculate word location of lsb
	ror ExpnX
	lsr ExpnX+2
	ror ExpnX
	lsr ExpnX+2
	ror ExpnX
	ror ExpnX
	asl ExpnX
	ldx ExpnX+2
	bne z10s3	;binary point is miles to the right
	ldx ExpnX
	cpx lgthC	;ExpnX - lgthC
	beq z10s7
	bcs z10s3	;decimal point beyond FrctC
z10s7	and FrctC,x
	sta tmpZP2	;save lsb
	tya
	lsr a
	bne z10s8	;not crossing word boundry
	ror a	;crossing a word boundry, take special action
	cpx lgthC	;x - lgthC
	bpl z10s3	;no Round or Sticky	bits
	inx
	inx
z10s8	tay	;check the round bit
	and frctC,x
	sta tmpZP	;save round bit
	eor frctC,x	;clear round bit
	sta frctC,x
	tya	;now deal with the sticky bit
	ldy ZeroWord	;initialize sticky bit container
	dec a
	beq z10s9	;crossing a word boundry
	and frctC,x
	bne z10s11	;sticky bit found
z10s9	cpx lgthC
	bpl done	;x >= lgthC, no sticky bits found
	inx
	inx
z10s10	lda frctC,x
	beq z10s9	;no sticky bit in this word, ck the next one
z10s11	tay	;save sticky bits in y
	eor frctC,x	;clear sticky bits
	sta frctC,x
	tya	;get sticky bits
done	ora tmpZP	;or with round bit
	beq finRTI	;no extra bits
	lda tmpflgs
	ora #inexcp
	sta tmpflgs
	stx lgthC
	lda #$0c000	;mask in rounding direction
	bit EnvWrd
	beq RndNr
	bmi z11s9	;either downward or	toward zero
	lda signC	;round upward
	beq RndUp	;sign is positive
	bne NoRndUp	;no rounding up (in	magnitude)
z11s9	bvs NoRndUp	;toward zero
	lda signC	;round downward
	bne RndUp	;sign is negative
	beq NoRndUp	;no rounding up (in	magnitude)
RndNr	lda tmpZp	;get round bit
	beq NoRndUp	;no round bit, dump	trailing zero words
	tya	;get sticky bits
	ora tmpZP2	;or lsb & sticky bit
	beq NoRndUp	;no rounding up (in	magnitude)
;	    environment word is rr-xdoui RR-XDOUI
;		    rd xcpns rp halts
;               0 to nearest, 1 upward,	2 downward, 3 toward zero
RndUp	ldx ExpnX+2
	bmi rtnOne	;lsb to the left of	FrctC, return 1
	ldx ExpnX	;get word location of round bit
	clc
	lda tmpZP4	;get location of round bit
	adc FrctC,x
	sta FrctC,x
	bcc finRTI
	bcs RUp2
RUpLoop	inc FrctC,x
	bne finRTI
RUp2	dex
	dex
	bpl RUpLoop
	sec
	ror FrctC	;right shift signicand
	inc expnC	;adjust the exponent
	bne finRTI
	inc expnC+2
finRTI	rts
rtnOne	stz expnC+2
	lda #$3fff
	sta expnC
	stz lgthC
	lda #$8000
	sta FrctC
	rts	;tag and sign are OK
NoRndUp	ldx ExpnX+2
	bpl finRTI	;lsb to the left of	FrctC, return 0
	jmp rtnZero
	ENDP
;          copy sane/d2b
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; File:  D2B
;; Description: Decimal --> Binary for ORCA SANE 65816 floating point engine
;; Status: ROM 2.0 and them some.
;;
;; Written by Kenton Hanson, Apple Numerics Group, 16 May 1986
;;
;; Modification History
;;
;;    23 mar 87	  Kenton Hanson
;;
;;       Sticky bit	word error in multiply corrected.
;; 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	EXPORT D2B
D2B	PROC
;       ;ldx    fence           ;done in 'fp816'
	stx fence2	;set destination format
	pop Crgstr	;pointer to destination
	pop Argstr	;pointer to decimal	record
	lda rtnA
	pha	;push 'rthArth' as return address
	stz signB
	stz signC
	ldy ZeroWord
	lda [Argstr],y
	beq z1s0
	inc signB
	inc signC
z1s0	ldy #BgnSgDg	;relative location of SigDig in Decimal
	lda [Argstr],y
	and #$0ff
	beq z1s99	;NULL string, return zero
	sta len
	iny
	sty tmpZP	;initialize string pointer
	cmp #SigDigLn+1
	bcc z1s1	;a <= SigDigLn
	lda #SigDigLn
	clc
z1s1	adc #BgnSgDg
	sta tmpZP2	;initialize end location of string in record
	lda [Argstr],y
	and #$0ff
	cmp #$30	;ASCII zero
	bne z1s2
z1s99	jmp rtnZero	;jsr & rts
z1s2	and #$0df
	cmp #$49	;ASCII 'i' or 'I'
	bne z1s22
	jmp RtnInf
z1s22	cmp #$4e	;ASCII 'n' or 'N'
	bne gtdgts
	lda #NaNtag
	sta Ctag
	stz lgthC	;initialize FrctC
	stz FrctC
	ldx lgthC
	inc tmpZP2
	stz tmpZP3	;flag for next word
z1s3	iny
	cpy tmpZP2
	bcs z1s5	;tmpZP >= tmpZP2
	sep #$30
	lda [Argstr],y
	rep #$30
	and #$00ff
	cmp #$41	;'A'
	bcc z1s4	;a < 'A'
	adc #$8	;carry was set, i.e., a := a + 9
z1s4	and #$0f	;get low order nibble
	cpy #BgnSgDg+6
	beq The6th
	asl tmpZP3
	bcs The6th
MoreNaN	asl FrctC,x
	asl FrctC,x
	asl FrctC,x
	asl FrctC,x
	ror tmpZP3	;next word flag
	ora FrctC,x
	sta FrctC,x
	bra z1s3	;always true
The6th	inx
	inx
	stx lgthC
	stz FrctC,x
	inc FrctC,x
	bra MoreNaN
z1s5	txa
	beq z1s7	;1st word, don't left justify
	bit tmpZP3
	bmi z1s7
z1s6	asl FrctC,x
	bcc z1s6
z1s7	lda #$4000	;bit for signaling NaN
	bit FrctC	; *** 21 March 1985	***
	bne z1s8	;not a signaling NaN
	lda FrctC
	jmp InvNaN2	;jsr & rts
z1s8	lda FrctC
	and #$0ff
	bne z1s9	;Non zero NaN code found
	lda #NaNZero
	ora FrctC
	sta FrctC
z1s9	rts
gtdgts	stz lgthB	;initialize FrctB
	stz FrctB
	stz Btag	;intialize tag
	ldy #$2
	lda [Argstr],y
	sta iscale	;get exponent into iscale
	bpl z2s12	;do not need to strip trailing ASCII zeros
z2s3	ldy tmpZP2
	sep #$30
	lda [Argstr],y
	rep #$30
	and #$0f	;change ASCII digit	to binary
	bne z2s12	;no more trailing zeros
	dec tmpZP2
	inc iscale
	bmi z2s3	;iscale still < 0
	bpl z2s12
z2s4	dec iscale	;iscale := iscale -	1
z2s5	lda FrctB
	and #$0e000
	beq z2s6	;no byte shift necessary
	jsr rtWord
	stz FrctB
z2s6	ldx lgthB	;multiply by 10
	clc
z2s7	lda FrctB,x
	rol a
	sta FrctA,x
	sta FrctB,x
	dex
	dex
	bpl z2s7
	ldy #$2
z2s8	ldx lgthB
z2s9	rol FrctB,x
	dex
	dex
	bpl z2s9
	dey
	bne z2s8
	ldx lgthB
z2s10	lda FrctA,x
	adc FrctB,x
	sta FrctB,x
	dex
	dex
	bpl z2s10
	bcc z2s11
	jsr rtWord
z2s11	ldy tmpZP
	cpy tmpZP2
	inc tmpZP
	bcc z2s12	;tmpZP <= tmpZP2
	ldy tmpZP
	bcs z2s14	;always true
z2s12	ldy tmpZP
	sep #$30
	lda [Argstr],y
	rep #$30
	and #$0f	;change ASCII digit	to binary
	ldx lgthB
	clc
z2s13	adc FrctB,x
	sta FrctB,x
	bcc z2s14
	lda ZeroWord
	dex
	dex
	bpl z2s13
	jsr rtWord
z2s14	cpy tmpZP2
	bcc z2s5	;y < tmpZP2
	lda iscale
	beq z2s15	;iscale = 0
	bmi z2s15	;iscale < 0, appending zeros does no good
	cpy #BgnSgDg+SigDigLn
	bcc z2s4	;y < SigDigLn, append zero
z2s15	lda FrctB
	bne z2s17
z2s16	jmp rtnZero	;jsr & rts
z2s17	lda lgthB
	asl a	;multiply by 8
	asl a
	asl a
;      ;clc
	adc #$400e	;add bias (3fff) + 16. - 1
	sta expnB
	stz expnB+2
	bit FrctB
	bmi z2s18	;already normalized
	jsr BgnNrmB
z2s18	jsr BtoE
	lda iscale
	sta tmpZP	;save original iscale
	eor #$0ffff
	inc a	;-iscale
	jmp ScaleIt	;jsr, rts
rtWord	ldx lgthB
	cpx #FrctC-FrctB
	bcs z3s2	;cnm >= 13, don't overwrite memory
	inc lgthB	;increase length of	lgthB
	inc lgthB
z3s1	lda FrctB,x
	sta FrctB+2,x
	dex
	dex
	bpl z3s1
	lda #$1
	sta FrctB
	rts
z3s2	lda #NanAscB	;Invalid dec -> bin	conversion: syntax
	pla	;to prevent returning to digit gathering code
	jmp invNaN	;rts
	EXPORT Mul
Mul		;       
	ldx Atag
	bmi z4s3
	ldy Btag
	bpl BgnMlt	;no special cases
	iny
	beq z4s4	;B is zero and A is	a number, return zero
	bmi z4s6	;B is infinity and A is a number, rtn infinity
z4s3	ldy Btag
	inx
	bmi z4s5	;A is infinity
	iny	;A is zero
	bmi z4s7	;A is zero and B is	infinity, return invalid
;	            ;A is zero and B is not infinity, return zero
z4s4	jmp rtnZero
z4s5	iny
	beq z4s7	;A is infinity and B is zero, return invalid
;	            ;A is infinity and B is non	zero, rtn Infinity
z4s6	jmp rtnInf
z4s7	lda #NanMlt
	jmp InvNan
	EXPORT BgnMlt
BgnMlt		; 
;--------------------------------------------------
; Added 23 Mar 87 to fix problem with multiplies
; of numbers with different formats.  Result was
; not coming back in extended.
; 
	ldx Fence
	ldy stkBtWd,x
	sty SBWord
; 
; End of addition 
;-------------------------------------------------- 
	ldx lgthA
	stx lgthC
	stx tmpZP2
	lsr tmpZP2	;current word count	for FrctC
z5s2	stz FrctC,X	;initialize C
	dex
	dex
	bpl z5s2
z5s3	ldx lgthB
	lda frctB,x
	sta tmpZP
	ldy #$0f
z5s4	lsr tmpZP
	bcc z5s6
	clc
	ldx lgthA
z5s5	lda FrctC,x
	adc FrctA,x
	sta FrctC,x
	dex
	dex
	bpl z5s5
z5s6	lda tmpZP2	;get current word count for FrctC
	ldx ZeroWord
z5s7	ror Frctc,x	;Note, carry is correct for first shift
	inx
	inx
	dec a
	bpl z5s7
	bcc z5s10	;no carry propagation
	ldx lgthC
	cpx SBWord	;lgthC - SBWord
	bcc z5s8	;lgthC < SBWord
	lda FrctC,x
	ora #$1	;or carry out, into	last bit of FrctC,x
	bne z5s9	;always true
z5s8	inx	;add new word with a leading bit set
	inx
	stx lgthC
	inc tmpZP2	;update word length
	lda #$8000
z5s9	sta FrctC,x
z5s10	dey
	bpl z5s4
	dec lgthB
	dec lgthB
	bpl z5s3
	clc
	lda expnA
	adc expnB
	sta expnC
	lda expnA+2
	adc expnB+2
	sta expnC+2
	lda FrctC
	asl a
	bcs z5s13	;leading bit set, no left shift necessary
	ldx lgthC
	clc
z5s12	rol FrctC,x
	dex
	dex
	bpl z5s12
z5s13	lda expnC	;adjust exponent
	sbc #$3ffe
	sta expnC
	lda expnC+2
	sbc ZeroWord
	sta expnC+2
z5s15	ldx lgthC	;strip trailing zero word loop
	lda FrctC,x
	bne z5s20
	dec lgthC
	dec lgthC
	bpl z5s15
z5s20	rts
	EXPORT DnrmC
DnrmC		;       
	ldx fence
	lda expnX+2	;contains hi word of number of right shifts
	bne z6s2	;do max shift
	lda expnX	;expnX contains low	word of # of right shifts
	bne z6s1
	rts	;no shifting
z6s1	cmp MaxShft,x
	bcc z6s3	;a < MaxShft,x
z6s2	lda MaxShft,x	;stuff maximum shift into expnX
	sta expnX
z6s3	ldy StkBtWd,x	;; tmpZP2 := max (lgthC, MaxShft,x)
	cpy lgthC	;StkBtWd,x - lgthC
	bpl z6s4
	ldy lgthC
z6s4	sty tmpZp2	;maximum length, i.e., max (lgthC, MaxShft,x)
BitShft	stz tmpZP3	;left storage word for bit shift
	lda expnX	;number of right shifts
	and #$0f
	beq WrdShft	;no bit shift
	cmp #$9
	bcc z7s3	;a < 9
z7s1	ldx lgthC
	clc
z7s2	rol FrctC,x
	dex
	dex
	bpl z7s2
	rol tmpZP3
	inc expnX
	lda expnX
	and #$0f
	bne z7s1
	beq WrdShft
z7s3	ldx ZeroWord
	clc
z7s4	ror FrctC,x
	txa
	eor lgthC
	beq z7s5
	inx
	inx
	bne z7s4	;branch always  branch always  branch always
z7s5	bcc z7s9
	cpx tmpZP2
	bpl z7s7	;x >= tmpZP2 (i.e.,	StkBtWd,x)
	inx
	inx
	stx lgthC
	lda #$8000
	bne z7s8	;branch always  branch always  branch always
z7s7	lda FrctC,x
	ora #$1	;or in sticky bit
z7s8	sta FrctC,x
z7s9	dec expnX
	lda expnX
	and #$0f
	bne z7s3
WrdShft	stz tmpZP4	;bucket for sticky words
	lda expnX	;number of bits to be shifted
	lsr a
	lsr a
	lsr a
	lsr a
	beq ckTail	;no word shift
	tay	;number of word shifts
z8s3	ldx lgthC
	cpx TmpZP2	;x - MaxlgthC
	bmi z8s4	;x < MaxlgthC
	lda FrctC,x
	beq z8s6
	sta tmpZP4	;sticky word found,	save it
	bne z8s6
z8s4	inc lgthC
	inc lgthC
z8s5	lda FrctC,x	;right shift one word loop
	sta FrctC+2,x
z8s6	dex
	dex
	bpl z8s5
	lda tmpZP3	;on first pass use original value
	sta FrctC
	stz tmpZP3	;thereafter, fill from the left with zero words
	dey
	bne z8s3
ckTail	lda tmpZP4
	beq z9s7	;nothing in sticky word bucket
	ldx lgthC
	lda FrctC,x
	ora #$1	;insert sticky bit
	sta FrctC,x
	bne z9s8	;branch always
z9s7	ldx lgthC
	lda FrctC,x
	bne z9s8
	dec lgthC
	dec lgthC
	bpl z9s7
z9s8	rts
	ENDP
;          copy sane/dcstr
	EXPORT DecStr
DecStr	PROC
	jsl IncBusyFlg
	phd	; put direct reg on	stack
	tcd	; set direct reg
	pla	; save orig direct on zp
	sta OrigDirect
	phb	; save original data bank register
	phb
	pla
	sta OrigBank	; on zero page
	phk	; set data bank register
	plb	; this bank
	pla
	sta ZPRtn
	pla
	sta ZPRtn+2
	pla
	sta ZPRtn+4
FOPSTR2DEC	EQU 0	; Pascal string to decimal record
FOCSTR2DEC	EQU 2	; C string to decimal record
FODEC2STR	EQU 1	; decimal record to	string
;      ;.proc   DecStr
;      ;.ref    Str2Dec,Dec2Str,CStr2Dec
	plx	;put opcode into 'x'
	lda rtnB	;address of XitFP
	pha
	cpx #FODEC2STR	;opcode - #FODEC2STR
	bpl z1s3
	jmp Str2Dec
z1s3	bne z1s4
	jmp Dec2Str
z1s4	jmp CStr2Dec
	ENDP
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; File: NewD2S.TEXT
;; 6502 number formatter -- implements Pascal Dec2Str
;; Status: ALPHA
;; Copyright Apple Computer, Inc. 1985
;;
;; Written by Kenton Hanson, Apple Numerics Group, 8 March 85
;; 
;; 8 May 86, KLH modified for Cortland Orca assembler
;;      ___________________________________________________________
;;
;; Description: This code is intended to be position independent
;;
;;
;; Const
;;    DECSTRLEN = 80;
;;    SigDigLen = 28;
;; type
;;    DecStr   = string [DECSTRLEN];
;;    Decimal  = record
;;	sgn : 0..1;
;;	exp : integer;
;;	sig : string [SigDigLen]
;;               end;
;;    DecForm = record
;;	style  : (FLOATDecimal, FIXEDDecimal);
;;	digits : integer
;;               end;
;;
;;
;; Procedure Dec2Str (f : DecForm; d : decimal; var y : DecStr) ; external;
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	EXPORT Dec2Str
Dec2Str	PROC
wmax	equ 80
wmaxP1	equ wmax+1
wmaxP4	equ wmax+4
temp	equ 128
fstyle	equ temp
fdgts	equ temp+1
dst	equ temp+2
src	equ temp+6
BCD	equ temp+6	; holds BCD intermediate result (3 bytes)
DecFrm	equ temp+10
sgn	equ DecFrm
MinDig	equ temp+11	; minus Minimum digits for NaN or Exponent
exp	equ DecFrm+2
dsig	equ DecFrm+4
frstdig	equ DecFrm+5
	ldx #$00
z20s0	pla	; pull return and arguments from stack
	sta temp,x
	inx
	inx
	cpx #$0e
	bne z20s0
	lda temp	; push return address back onto stack
	pha
	longa off
	longi off
	sep #$30
	ldy #$00
	lda [DecFrm],y	; get DecForm into memory
	sta fstyle
	ldy #$02
	lda [DecFrm],y
	sta fdgts
	iny
	lda [DecFrm],y	; check that fdgts is a valid signed byte
	bmi z20s1
	bne ErrXitJ1	; fdgts > 255
	lda fdgts
	bpl z20s2
	bmi ErrXitJ1	; fdgts > 127
z20s1	eor #$0ff
	bne ErrXitJ1	; fdgts < -256
	lda fdgts
	bpl ErrXitJ1	; fdgts < -128
z20s2	ldy #$5
z20s3	lda [src],y	; get first 6 bytes	of Decimal Rec. into memory
	tyx
	sta sgn,x
	dey
	bpl z20s3
	lda dsig	; get length byte
	beq ErrXitJ1	; length = 0 (error)
	cmp #$1d	; a - 29.	    <klh 18oct85>
	bcs ErrXitJ1	; a >= 29.
SgnBlnk	ldy #$00
	sec
	lda #$2d	; .ascii  '-'
	bit sgn	; NOTE: bit instruction does not set 'carry'
	bne z21s2	; Obscure, #2d is odd, & has been anded	with sgn
	lda fstyle
	bne z21s3	; Fixed & postive, no leading character
	lda #$20	; .ascii  ' '
z21s2	clc
	iny
	sta [dst],y
z21s3	lda #$03	; offset address of	src by 4 or 3
	adc src
	sta src
	bcc z21s99
	inc src+1
	bne z21s99
	inc src+2
	bne z21s99
	inc src+3
z21s99	lda frstdig
	cmp #$3f	; '?'
	beq ErrXitJ1
	cmp #$30	; '0'
	bne z21s4
	ldx #$00
	stx exp	; exp <- 0
	stx exp+1
	inx
	stx dsig	; length (sig) <- 1
	bne Num	; branch always
;  BRANCH ALWAYS   BRANCH ALWAYS   BRANCH ALWAYS   BRANCH ALWAYS   BRANCH ALWAYS
z21s4	and #$0df	; turn off upper/lower case bit
	cmp #$4E	; .ascii  'N' or 'n'
	beq NaN1	; NAN
	cmp #$49	; .ascii  'I' or 'i'
	bne Num	; zero, normal or denormal number
	lda #$49	; 'I'
	iny
	sta [dst],y
	lda #$4e	; 'N'
	iny
	sta [dst],y
	lda #$46	; 'F'
	iny
	sta [dst],y
	bne Fin1	; branch always
;  BRANCH ALWAYS   BRANCH ALWAYS   BRANCH ALWAYS   BRANCH ALWAYS   BRANCH ALWAYS
ErrXitJ1	lda #$3f	; '?'
	ldy #$01
	sta [dst],y
	tya
	dey
Ex1	sta [dst],y
	rep #$30
	rts
Fin1	tya
	ldy #$00
	beq Ex1	; branch always
;  BRANCH ALWAYS   BRANCH ALWAYS   BRANCH ALWAYS   BRANCH ALWAYS   BRANCH ALWAYS
Num	ldx fstyle
	bne BgnFxd
;           ;if f.digits < 1 then f.digits := 1;         { ErrXit ???? }
;           ;s := concat (s, copy (d.sig, 1, 1));
;           ;if (f.digits > 1) or (length (d.sig) > 1) then
;              ;begin
;                 ;s := concat (s, '.');
;                 ;if length (d.sig) > 1 then
;	     ;s := concat (s, copy (d.sig, 2, length (d.sig) - 1));
;                 ;if f.digits > length	(d.sig) then
;	                   ;AppendZeros (f.digits - length (d.sig));
	iny	; copy one digit before the '.'
	lda [src],y
	sta [dst],y
;           ;if (f.digits > 1) or (length (d.sig) > 1) then
	dec dsig	; dsig := dsig - 1
	lda fdgts
	cmp #$02	; fdgts - 2
	bpl z22s1	; fdgts > 1
	lda #$01
	sta fdgts
	ldx dsig
	beq z22s5	; dsig = 1
z22s1	lda #$2e	; '.'
	iny
	sta [dst],y
	ldx dsig
	beq z22s5
z22s3	lda [src],y	; copy after the '.'
	iny
	sta [dst],y
	dex
	bne z22s3
z22s5	lda #$0ff
	eor dsig	; a := -dsig
	bmi FromFlt	; branch always
;  BRANCH ALWAYS   BRANCH ALWAYS   BRANCH ALWAYS   BRANCH ALWAYS   BRANCH ALWAYS
Err1	clc
	bcc ErrXitJ1
NaN1	beq NaN2
BgnFxd	lda exp+1	; check that exp is	a valid signed byte
	bmi z23s1
	bne ErrXitJ1	; exp > 255
	lda exp
	bpl BF2
	bmi ErrXitJ1	; exp > 127
z23s1	eor #$0ff
	bne ErrXitJ1	; exp < -256
	lda exp
	bpl ErrXitJ1	; exp < -128
BF2	lda exp
	clc
	adc dsig
	bvs ErrXitJ1
	tax
	bmi AllAftr
	beq AllAftr
	lda exp
	clc
	bpl Before
	adc dsig
z24s1	iny	; copy before the '.'
	lda [src],y
	sta [dst],y
	dex
	bne z24s1
	lda #$2e	; '.'
	iny
	sta [dst],y
	ldx exp
z24s2	lda [src],y	; copy after the '.'
	iny
	sta [dst],y
	inx
	bmi z24s2
	bpl ApZ	; branch always
;  BRANCH ALWAYS   BRANCH ALWAYS   BRANCH ALWAYS   BRANCH ALWAYS   BRANCH ALWAYS
Before	ldx dsig
z25s4	iny	; copy all dsig before the '.'
	lda [src],y
	sta [dst],y
	dex
	bne z25s4
	tya
	adc exp	; carry cleared above
	bvs Err1
	cmp #wmaxP1	; a - wmaxP1
	bpl Err1
	ldx exp
	beq z25s6
	lda #$30	; '0'
z25s5	iny
	sta [dst],y
	dex
	bne z25s5
	stx exp
z25s6	cpx fdgts	; x - fdgts
	bpl ApZ	; fdgts <= 0
	cpy #wmax	; y - wmax
	bcs ErrXit
	lda #$2e	; '.'
	iny
	sta [dst],y
	bne ApZ	; branch always
;  BRANCH ALWAYS   BRANCH ALWAYS   BRANCH ALWAYS   BRANCH ALWAYS   BRANCH ALWAYS
FromFlt	bmi FFlt
NaN2	beq NaN3
AllAftr	dex
	txa
	inx
	clc
	adc src
	sta src
	lda #$0ff
	adc src+1
	sta src+1
	lda #$30	; '0'
	iny
	sta [dst],y
	lda #$2e	; '.'
	iny
	sta [dst],y
	txa
	beq z26s16
	lda #$30	; '0'
z26s15	iny
	cpy #wmaxP1	; a - wmaxP1
	bcs ErrXit
	sta [dst],y
	inx
	bne z26s15
;; adjust the address of source, possibly restructuring ErrXit above
z26s16	tya
	clc
	adc dsig
	cmp #wmaxP1	; a - wmaxP1
	bpl ErrXit
	ldx dsig
z26s17	lda [src],y	; copy all dsig after the '.'
	iny
	sta [dst],y
	dex
	bne z26s17
;	;if d.exp >= -f.digits then AppendZeros	(f.digits + d.exp);
ApZ	lda exp
FFlt	clc
	adc fdgts
	bvs ErrXit	;
	bmi fine
	beq fine
	tax
	sty temp+1
	clc
	adc temp+1
	cmp #wmaxP1	; a - wmaxP1
	bpl ErrXit
	lda #$30	; '0'
z27s9	iny
	sta [dst],y
	dex
	bne z27s9
fine	ldx fstyle
	beq BgnExp
fin	tya
	ldy #$00
	sta [dst],y
	rep #$30
	rts
ErrXit	lda #$3f	; '?'
	ldy #$01
	sta [dst],y
	bne fin
;  BRANCH ALWAYS   BRANCH ALWAYS   BRANCH ALWAYS   BRANCH ALWAYS   BRANCH ALWAYS
;;------------------------------------------------------------------------------
;;
;; change unsigned binary number in exp	into a BCD number in BCD to BCD+2
;;
;;------------------------------------------------------------------------------
NaN3	sta frstdig
	iny
	sta [dst],y
	lda #$41	; 'A'
	iny
	sta [dst],y
	sty MinDig
	lda #$4e	; 'N'
	iny
	sta [dst],y
	lda #$28	; '('
	iny
	sta [dst],y
	sty temp+1	; save y
	iny
	iny
	iny
	lda #$29	; ')'
	iny
	sta [dst],y
	tya
	ldy #$00
	sta [dst],y
	tya	; initialize exp
	ldy MinDig	; restore y
	ldx dsig
	cpx #$06	; y - wmax
	bcc z28s3	; x < 6
	ldx #$05
z28s3	dex
	beq z28s5
	asl a
	asl a
	asl a
	asl a
	sta exp
	lda [src],y
	cmp #$40	; a - #40
	bcc z28s4	; not a letter
	adc #$08
z28s4	and #$0f
	ora exp
	iny
	bne z28s3
;  BRANCH ALWAYS   BRANCH ALWAYS   BRANCH ALWAYS   BRANCH ALWAYS   BRANCH ALWAYS
;      ;ldx     #00
z28s5	sta exp
	lda #$0fc	; -4
	bne codeNaN	; branch always
;  BRANCH ALWAYS   BRANCH ALWAYS   BRANCH ALWAYS   BRANCH ALWAYS   BRANCH ALWAYS
;           ;STR (d.exp + length (d.sig) - 1, SExp);     { no check for wrap }
;           ;if SExp [1] <> '-' then SExp := concat ('+', SExp);
;           ;if (length (s) + length (SExp)) < Wmax then
;		             ;s := concat (s, 'e', SExp)
;		           ;else ErrXit;
BgnExp	cpy #wmaxP4	; a - wmaxP4
ErrXit3	bcs ErrXit
	lda #$65	; 'e'
	iny
	sta [dst],y
;      ;ldx     #00	            ; set above by 'ldx     fstyle'
;      ;clc	            ; reset	    by 'cpy     #wmaxP4
	lda dsig
	adc exp
	sta exp
	txa
	adc exp+1
	sta exp+1
	bvs ErrXit	; exponent overflows integer value
	bmi z29s1
	lda #$2b	; '+'
	bne z29s2	; branch always
z29s1	sec
	txa
	sbc exp
	sta exp
	txa
	sbc exp+1
	sta exp+1
	lda #$2d	; '-'
z29s2	iny
	sta [dst],y
	lda #$0fa	; -6
	inx
	sty temp+1	; save y
codeNaN	sta MinDig
	lda #$00
	sta BCD
	sta BCD+1
	sta BCD+2
	sed
z30s0	ldy #$08	; number of valid bits per byte
z30s1	asl exp,x
	lda BCD
	adc BCD
	sta BCD
	lda BCD+1
	adc BCD+1
	sta BCD+1
	lda BCD+2
	adc BCD+2
	sta BCD+2
	dey
	bne z30s1
	dex
	bpl z30s0
	cld
	ldy temp+1	; restore y
N2Ascii	ldx #$2
z31s1	lda BCD,x
	lsr a
	lsr a
	lsr a
	lsr a
	beq z31s2	; zero encountered
	sta MinDig
z31s2	inc MinDig
	bmi z31s4
	ora #$30
	iny
	cpy #wmaxP1	; y - wmaxP1
z31s3	bcs ErrXit3
	sta [dst],y
z31s4	lda BCD,x
	and #$0f
	beq z31s5	; zero encountered
	sta MinDig
z31s5	inc MinDig
	bmi z31s6
	ora #$30
	iny
	cpy #wmaxP1	; y - wmaxP1
	bcs z31s3	; ErrXit3
	sta [dst],y
z31s6	dex
	bpl z31s1
	lda frstdig
	cmp #$4e
	beq rts3
	tya
	ldy #$00
	sta [dst],y
	longa on
	longi on
rts3	rep #$30
	rts
	ENDP

	EXPORT CStr2Dec
CStr2Dec	PROC
;          copy sane/str2dec1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; File:  Str2Dec.TEXT
;; Decimal string scanner for 6502
;; Status: BETA
;; Copyright Apple Computer, Inc. 1984,1985
;;
;; Written by Clayton Lewis, Apple Numerics Group, 27 September 1984
;;
;; Modification History:
;;    14 May 84  JTC  Original 68000 code named ScanDec
;;    03 Oct 84  CRL  CStr2Dec entry point for character streams
;;    18 Oct 84  CRL  Clean and compact	the code
;;    05 Nov 84  CRL  No longer accept Ascii with high bit set
;;	  Signalling NaN delivered if no characters accepted
;;    15 Jan 85  RwH  (Think) changed .includes for my directory structure.
;;	  changed .org to XORG.  Added XEND at end.
;;    03 Feb 85  rwh  changed % to ? in	macros...added .ref	FP6502
;;    15 feb 85  rwh  deleted .ref FP6502 - its back to being in Think's ORGS
;;	  file.
;;    16 mar 85  rwh  added .nolists for faster assembly
;;    17 May 85  CRL  Bug in State2.  The string '0)' left index in limbo.
;;	  Fix in State2 is marked by  {add 4 lines 17 May 85 CRL}
;;    23 May 85  CRL  Fold in ongoing changes: AppendDigit to ignore characters
;;	  after 28th,(13 Mar 85).  NaN signalling bit change at SNaN
;;	  and State99 for 68881 and 68000 compatibility, (19 Mar 85)
;;    19 Jun 85  CRL  Change constant from 2 to 4 in 'State99, process NaNcode'.
;;	  Fixes bug in IP; nancode now in correct byte.
;;    11 Jul 85  CRL  Bug in state6.  '..' handled wrong.  Fix moves local label
;;	  $1 up by three lines, replaces LDA with LDX.
;;    29 Aug 85  klh  Butchered to assemble on the ///.
;;    18 Oct 85  klh  More mutilation to assemble under ORCA/M.
;;     7 May 86  klh  Altered to run in	65816 native mode with 8-bit registers.
;;              ________________________________________________
;;
;; Define storage on zero page and set switches for machine/environment:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

ADDRESSINDIRECT	EQU 128	; start of zero page use
REGISTERS	EQU 160
VP	EQU ADDRESSINDIRECT
D	EQU ADDRESSINDIRECT+4
INDEX	EQU ADDRESSINDIRECT+8
thisS	EQU ADDRESSINDIRECT+12
DSIGLOC	EQU ADDRESSINDIRECT+16
CHARPTR	EQU REGISTERS	; ^char interface needs 2 bytes
SAVEDCHARPTR	EQU REGISTERS+2
LASTCHARPTR	EQU REGISTERS+4
NaNCODE	EQU REGISTERS+5
FLZERO	EQU REGISTERS+6
FLVALPREF	EQU REGISTERS+7
FLEXPSGN	EQU REGISTERS+8
STACKADJ	EQU REGISTERS+9
DSIGLENGTH	EQU REGISTERS+10
EXPONENT	EQU REGISTERS+11
EXPADJUST	EQU REGISTERS+13
STMP	EQU REGISTERS+15
CSTRING	EQU REGISTERS+16
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Define constants.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
SIGDIGLEN	EQU 28	; note: 20 for the 68000
TAB	EQU $09
BLANK	EQU $20
OPENPAREN	EQU $28
CLOSEPAREN	EQU $29
PLUS	EQU $2B
MINUS	EQU $2D
DOT	EQU $2E
ZERO	EQU $30
ONE	EQU $31
FOUR	EQU $34	; {addition 23 May 85  CRL}
NINE	EQU $39
COLON	EQU $3A
BIGA	EQU $41
E	EQU $45
F	EQU $46
I	EQU $49
N	EQU $4E
SMALLa	EQU $61
SMALLe	EQU $65
zPLUS1	EQU $7B
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Start of routine, note the 2 entry points:  Str2Dec and CStr2Dec.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	LDX #$0
	JMP Start2
	EXPORT Str2Dec
Str2Dec		;       
	LDX #$1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Save items passed on the stack and initialize flags.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
start2	STX CSTRING	; no length byte if	CSTRING is 0
	ply
	LDX #$0	; first save 16 bytes from stack
z2s1	PLA
	STA ADDRESSINDIRECT,X
	INX
	inx
	CPX #16
	BCC z2s1
	phy
	LDX #$10	; 16 slots to zero
z2s2	DEX
	dex
	STz REGISTERS,X
	BNE z2s2
	TxY	; putting 0 into Y
	longa off
	longi off
	sep #$30
	LDA [INDEX],Y
	STA CHARPTR	; offset from start	of S
	STA SAVEDCHARPTR
	LDX CSTRING
	BEQ z2s3
	LDA [thisS],Y	; length byte of S
	STA LASTCHARPTR	; offset from start	of S
	INY	; Y now has 1
	LDA [INDEX],Y	; look at hi byte of index
	BEQ z2s5	;    OK if zero
	JMP StateFin	;    exit if index too large
z2s3	INY	; keep the hi byte of index also
	LDA [INDEX],Y
	STA CHARPTR+1
	STA SAVEDCHARPTR+1
	CLC	; then advance the same number of
	ADC thisS+1	;    pages into the	buffer S so
	STA thisS+1	;    Y can index into next page
z2s5	CLC	; set up pointer to	d.sig
	LDA D	;    4 bytes into D
	ADC #$4
	STA DSIGLOC
	LDA D+1
	ADC #$0
	STA DSIGLOC+1
	LDA D+2
	ADC #$0
	STA DSIGLOC+2
	LDA D+3
	ADC #$0
	STA DSIGLOC+3
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Initialize the decimal record to sign +, EXPONENT 0 and significand N0011.
;;      Use SNaN = 00 00 00 00 05 4E 30	30 31 31  = (0)(0)(0)(0)(5)'N0011'
;;      {change only to comment: 23 May	85 CRL, signaling NaN bit change}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
InitDec	LDY #$9
z3s1	LDA SNaN,Y	; data for SNaN at end of file
	STA [D],Y
	DEY
	BPL z3s1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; State0 -- scan leading white space.	Blanks and tab characters.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
State0	JSR GetChar
	CMP #BLANK	; blank
	BEQ State0
	CMP #TAB	; tab
	BEQ State0
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Then fall through to State1 looking for a sign.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
State1	CMP #PLUS
	BEQ z4s1	; +, go on since d.sgn already = 0
	CMP #MINUS
	BNE State2	; not +/-, check for number
	LDA #$1	; -, so store 0001 in d.sgn
	LDY #$0
	STA [D],Y
	TYA
	INY
	STA [D],Y
z4s1	JSR GetChar
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Now expect to have INF, NaN, or number.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
State2	CMP #ZERO	; look for leading zeros
	BCC z5s1	;    character < '0'
z5s0	BNE z5s2	;    character > '0'
	SEC
	ROL FLZERO	; zero seen, set lo	bit of FLZERO
	JSR ClearSavedPtr	; use current scan pointer
	JSR GetChar	; try again with a new character
	BCS z5s0	; branch if char is	'0' or greater
z5s1	CMP #DOT	; only interesting character < 0
	BEQ State6	; dot found before signif digits
;       ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;       ;; {Add 4 lines 17 May 85 CRL}
;       ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	LDA FLZERO
	BEQ z5s3
	JMP StateNum
z5s3	JMP StateBackup	; illegitimate number
z5s2	CMP #COLON
	BCC State4	; digits follow, go	scan them
	LDY FLZERO	; any leading zero's?
	BNE GoTo8	;    if so, try E,e
	JMP State99	;    if not, try INF, NaN
GoTo8	JMP State8
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; State4 -- Scan significant digits before the decimal point.  Uses
;;      AppendDigit	to place digit in string, get next character, and
;;      compare next character to 0.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
State4	JSR ClearSavedPtr	; use current scan pointer
z6s1	JSR AppendDigit
	BCC State5	; character < '0', so look for dot
	CMP #COLON	; one greater than '9'
	BCC z6s1	; =< 3A,   so character in 0..9
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; State5 -- check for start of fraction field after some significant
;;      digits have	already been scanned.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
State5	CMP #DOT
	BNE GoTo8	; try EXPONENT field (State8)
	JSR GetChar
	BCS z7s1	; potential digits
	JMP StateNum	; dot followed by no digits, end
z7s1	JMP State75
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; AppendDigit
;;      - Place numeral in digit field of decimal
;;      - Get next character
;;      - Compare with '0' before returning
;;        {remove last comment: 13 Mar 85 CRL}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
AppendDigit	LDY DSIGLENGTH
	CPY #SIGDIGLEN	; past all valid digits?
	BCS z8s3	;    if so, just count lost digits
	INY	;    if not, advance pointer
	STY DSIGLENGTH	;    and store digit in d.sig
	STA [DSIGLOC],Y
	BNE GetChar	; always
;{13 Mar 85 CRL}	   ORA     @DSIGLOC,Y   ; OR into 28th digit
;{13 Mar 85 CRL}	   STA     @DSIGLOC,Y
z8s3	INC EXPADJUST	; record the # of lost digits
	BNE GetChar
	INC EXPADJUST+1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; GetChar
;;      - STACKADJ <-- # bytes of return addresses on stack
;;      - Check for	end of scanning string
;;      - Collect next character (if not at string end)
;;      - Set ValidPrefix to TRUE if at	string end
;;      - See if saved instead of current pointer should be	returned
;;
;; Note the two entry points.  GETCHAR2	is called by GETMAPPED with 4 in A.
;;      Since GETMAPPED calls via JSR, there are two return	addresses
;;      to pop if scan ends prematurely	and we do not return to caller.
;;      Other calls	need to pop only one return address.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
GetChar	LDA #$2	; stack adjustment if abort
GetChar2	STA STACKADJ
	JSR CheckEndScan	; end of scan?
	BCC z9s7	;    if so, branch
	LDY CHARPTR	;    else get next character
	LDA [thisS],Y
	INC CHARPTR
	BNE z9s5
	INC CHARPTR+1
	INC thisS+1
z9s5	CMP #ZERO
	RTS
z9s7	INC FLVALPREF	; premature string end
	LDY STACKADJ	; pop return address(es)
z9s9	PLA
	DEY
	BNE z9s9
	LDY SAVEDCHARPTR+1	; has a pointer been saved?
	BMI z9s11	;    if not, just exit
	JMP StateBackup	;    else reset ptr, then exit
z9s11	JMP StNum2
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; State6 -- encountered dot before any	nonzero significant	digits.  Keep
;; looking for digits, but throw away leading zeros, remembering placement
;; of decimal.  If possible nonzero digit or letter, skip right into fraction
;; digit scanner.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
State6	JSR GetChar	; skip past dot
	BEQ z10s3	; if zero, branch
	BCC z10s1	; if less than zero, end
	CMP #COLON	; > zero, but is it	9 or less?
	BCC State7	;    if 1..9, next state
;       ;; Local label $1 moved to next	line from previous location
;       ;;   4 lines down between two JMP instructions.
;       ;; Change next instruction to LDX instead of LDA.	11 July 85  CRL
z10s1	LDX FLZERO	; no digits, were there 0's?
	BNE State8	;    if so, try E,e
	JMP StateBackup	;    else return to	begin of scan
	JMP StateNum
z10s3	SEC
	ROL FLZERO	; character = '0', set flag
	JSR ClearSavedPtr	; use current character pointer
	LDX expadjust
	BNE z10s12
	DEC expadjust+1
z10s12	DEC expadjust
	BNE State6	; and look for more	0's  (always)
;          copy sane/str2dec2
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; State7 -- scan fraction digits.  Use	AppendDigit and keep count of the
;; number of digits	scanned, whether in	excess of 28 or not.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
State7	JSR ClearSavedPtr	; use current character pointer
	LDX expadjust	; count number of fraction digits
	BNE z11s12
	DEC expadjust+1
z11s12	DEC expadjust
	JSR AppendDigit
	BCS State75	; if > zero, keep looking
	JMP StateNum	;    else done
State75	CMP #COLON	; exit if character	> '9'
	BCC State7
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; State8 -- look for EXPONENT: E or e followed be optional	sign and a digit
;; field.  Must be careful about EXPONENT overflow.  Since the extended
;; range admits values in magnitude between 10^-5000 and 10^5000, it
;; suffices to check for EXPONENT outside 4096 + 1024 = 5120.  Overflowed
;; EXPONENT are mapped into $1400 (5120), guaranteed to produce a severe
;; overflow on conversion.
;;
;; Must also guard against overscan of expressions like '123e-'.  We must
;; return 123 with pointer at 'e'.  If E or e is found, hold input pointer
;; in case subsequent scanning does not	make sense of the characters past
;; '123'.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
State8	JSR UpdatePtr	; save current character pointer
	LDX savedcharptr	; and move it back by one
	BNE z12s12
	DEC savedcharptr+1
z12s12	DEC savedcharptr
	CMP #E
	BEQ z12s1
	CMP #SMALLe
	BNE z12s15	; no EXPONENT found
z12s1	JSR GetChar
	CMP #PLUS
	BEQ z12s3
	CMP #MINUS
	BNE z12s5
	INC FLEXPSGN	; mark as negative EXPONENT
z12s3	JSR GetChar	; skip past sign character
z12s5	CMP #ZERO	; >= '0'?
	BCC z12s15	;   if not, end digit field
	CMP #COLON	; =< '9'?
	BCS z12s15	;   if not, end  digit field
	JSR ClearSavedPtr	; digit, use current char pointer
	AND #$0F	; mask to nibble
	TAX	; hold digit in X until end of loop
;          ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;          ;; Multiply EXPONENT by 10
;          ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	ASL EXPONENT	; first multiply by	2
	ROL EXPONENT+1	;   EXPONENT word *	2
	LDA EXPONENT+1
	STA STMP	; copy to A register and STMP
	LDA EXPONENT	;   then multiply those by 4
	ASL A	;   to get EXPONENT	* 8
	ROL STMP
	ASL A
	ROL STMP	; note that carry is not set so...
	ADC EXPONENT	; now add Exp * 2 +	Exp * 8
	STA EXPONENT	;    to get EXPONENT * 10
	LDA STMP
	ADC EXPONENT+1
	STA EXPONENT+1
;          ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;          ;; And add in the current digit.
;          ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	CLC
	TXA	; pick up digit from X
	ADC EXPONENT
	STA EXPONENT
	BCC z12s9
	INC EXPONENT+1
z12s9	LDA #$14
	CMP EXPONENT+1	; EXPONENT >= 5120?	(overflow)
	BCS z12s13	;    if not, continue
	STA EXPONENT+1	;    else just use 5120
z12s13	JMP z12s3
;       ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;       ;; Finish scan by checking to see whether we have overscanned.
;       ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
z12s15	LDY SAVEDCHARPTR+1	; overscan?
	BMI StateNum	;    if not, go on
	JMP StateBackup	;    if so, reset pointer
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; StateNum -- have	sighted the first unrecognizable character after a
;; possible number.	 Check first for 0,	a special case since all digits
;; were discarded above, then put the number in canonical form.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
StateNum	LDX charptr
	BNE z13s12
	DEC charptr+1
z13s12	DEC charptr
StNum2	LDY #$0	; needed at $2 and 5 lines down
	LDA DSIGLENGTH	; any digits?
	BNE z14s2	;    if so, branch
	LDA FLZERO	;    if none, 0?
	BEQ StateFin	;       not even 0!! (branch always)
	LDA #$1	; if 0, then return	d.sig = 0
	STA [DSIGLOC],Y	; length byte of 1 in d.sib
	INY
	LDA #$30	; then the '0' character
	STA [DSIGLOC],Y
	BNE StateFin	; always
;       ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;       ;; Have nonzero number with:
;       ;;      - DSIGLENGTH digits
;       ;;      - Positive binary exponent in EXPONENT, EXPONENT+1
;       ;;      - Lost digit count minus fraction digit count in EXPADJUST
;       ;;
;       ;; To align	decimal point at the end of d.sig, compute:
;       ;;      true exponent := EXPONENT + EXPADJUST.
;       ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
z14s2	STA [DSIGLOC],Y	; put length byte in d.sig
	LDA FLEXPSGN	; negative exponent?
	BEQ z14s5	;    if not, branch
;       ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;       ;; Negate the integer EXPONENT.
;       ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	SEC
	LDA #$0
	SBC EXPONENT
	STA EXPONENT
	LDA #$0
	SBC EXPONENT+1
	STA EXPONENT+1
;       ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;       ;; Finish up with the final addition.
;       ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
z14s5	LDY #$2	; d.exp occupies bytes 2 & 3 of D
	CLC
	LDA EXPONENT
	ADC EXPADJUST
	STA [D],Y	; store the lo byte
	INY
	LDA EXPONENT+1
	ADC EXPADJUST+1
	STA [D],Y	; store the hi byte
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; StateFin -- replace the updated input pointer INDEX, set	the final value
;; of VALIDPREFIX, and RTS through the return address.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
StateFin	LDY #$0
	LDA CHARPTR
	STA [INDEX],Y
	LDA FLVALPREF	; store the low byte
	STA [VP],Y
	TYA	; and zero out the hi byte
	INY
	STA [VP],Y
	LDA CHARPTR+1
	sta [INDEX],Y
	rep #$30
	RTS
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; State99 -- all else has failed, so check for INF and NaN.  Use the saved
;; character pointer to back up in case	a partial scan does	not find the
;; full token for a	NaN.  INF is handled at StateINF.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
State99	LDX charptr
	BNE z15s12
	DEC charptr+1
z15s12	DEC charptr
	JSR GetMapped
	CMP #I	; test for 'I'
	BNE z15s1	;    if not, branch
	JMP StateINF	;    if so, try 'INF'
z15s1	CMP #N	;    else try 'N'
	BNE StateBackup	; if neither, quit looking
	JSR GetMapped
	CMP #BIGA
	BNE StateBackup
	JSR GetMapped
	CMP #N
	BNE StateBackup
;       ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;       ;; NaN found.  Replace N0011 with N4000 as default NaN.
;       ;; {changed	23 May 85  CRL : new sense of signalling NaN bit}
;       ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	LDY #$2
	LDA #FOUR
	STA [DSIGLOC],Y	; '4' as first digit
	LDA #ZERO	; prepare to zero out the '11' chars
	INY
	INY
	STA [DSIGLOC],Y
	INY
	STA [DSIGLOC],Y
;       ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;       ;; Expect string (xxxx) to follow NaN.  Check for it and
;       ;; translate to a two digit ascii code in hex.  Save the pointer
;       ;; at NAN in case junk follows.
;       ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	JSR UpdatePtr	; advance pointer to NAN
	JSR GetChar
	CMP #OPENPAREN
	BNE StateBackup	; if no '(' then leave
z15s49	JSR GetChar
	BCC z15s57	; < '0' so check for ')'
	CMP #COLON	; > '9' so junk
	BCS StateBackup
	AND #$0F	; mask to 0..9
	STA STMP	;    and hold digit	until later
;          ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;          ;; Multiply NaNCODE by 10 and add in next digit found.
;          ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	ASL NaNCODE	; * 2
	LDA NaNCODE
	ASL A
	ASL A	; * 8
	CLC
	ADC NaNCODE	; sum to get NaNCODE * 10
	CLC
	ADC STMP	; add in next digit
	STA NaNCODE
	JMP z15s49	; and keep looking
;       ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;       ;; End of numeric scan.  Now look for the final ')'.
;       ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	JSR GetChar
z15s57	CMP #CLOSEPAREN	; end with  ')'?
	BNE StateBackup	; if no ')', back up pointer
;       ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;       ;; Process NaNCODE and put two ascii hex characters	in d.sig
;       ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	LDA NaNCODE
	LSR A
	LSR A
	LSR A
	LSR A
	JSR NibOut	; process hi byte
	LDY #$4	; {CRL19jun85} PUT NAN CODE IN RIGHT PLACE
	STA [DSIGLOC],Y	; and store the ascii
	LDA NaNCODE
	AND #$0F
	JSR NibOut	; process lo byte
	INY
	STA [DSIGLOC],Y	; and store the ascii
	BNE INF3	; always
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; StateBackup -- if the string has been overscanned, then SAVEDCHARPTR
;; contains the index of the last valid	substring.  In this	case, revert to
;; the saved pointer and then branch to	the output routine.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
StateBackup	LDX SAVEDCHARPTR
	STX CHARPTR
	LDX SAVEDCHARPTR+1
	STX CHARPTR+1
	JMP StNum2	; always
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; StateINF -- look	for simple string 'INF'.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
StateINF	JSR GetMapped
	CMP #N
	BNE StateBackup
	JSR GetMapped
	CMP #F
	BNE StateBackup
	LDY #$0
	LDA #$1
	STA [DSIGLOC],Y	; length byte of 1
	LDA #I	; put I into d.sig
	INY
	STA [DSIGLOC],Y
INF3	JSR ClearSavedPtr	; use current pointer
	JSR CheckEndScan	; end of scan?
	BCS z16s7	;    if not, branch
	INC FLVALPREF	;    if so, set flag
z16s7	JMP StateFin
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; GetMapped -- fetches next input character, maps to upper	case.  Note
;; that upper and lower case letters differ only in bit #5.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
GetMapped	LDA #$4	; stack adjust in GetChar
	JSR GetChar2
	CMP #SMALLa
	BCC z17s1	; too small for lower case
	CMP #zPLUS1	; one past 'z'
	BCS z17s1	; too big for lower	case
	AND #$0DF	; mask 1101 1111 for bit 5
z17s1	RTS
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; NibOut -- passed	a nibble in the accumulator, construct an ascii
;; character of it.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
NibOut	CMP #$0a	;<klh 18oct85>
	BCC z18s1	; 0..9
	ADC #$6	; A..F offset is $37 (6 + carry)
z18s1	ADC #$30	; 0..9 offset is $30
	RTS
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; The subroutines which control the current value of the scan pointer
;;      and the current value of its backup which is used after overscanning.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
ClearSavedPtr	LDX #$0FF
	STX SAVEDCHARPTR
	STX SAVEDCHARPTR+1
	RTS
UpdatePtr	LDX CHARPTR
	STX SAVEDCHARPTR
	LDX CHARPTR+1
	STX SAVEDCHARPTR+1
	RTS
CheckEndScan	LDX CSTRING
	BEQ z19s3
	LDX LASTCHARPTR
	CPX CHARPTR
;      ;JMP     $5
	rts	; <klh 18oct85>
z19s3	SEC
	LDY CHARPTR
	LDA [thisS],Y
	BNE z19s5
	CLC
z19s5	RTS
	EXPORT SNaN
SNaN	DC.B $00,$00,$00,$00,$05,$4E,$30,$30,$31,$31 ;{SNaN bit change 23May85 CRL}
	longa on
	longi on
	ENDP



	END

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/SANE/sane.macros b/IIGS.601.SRC/GSToolbox/SANE/sane.macros
new file mode 100644
index 0000000..9d4e359
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/SANE/sane.macros
@@ -0,0 +1 @@
+ MACRO
&lab pop &C1
&lab pla
 sta &C1
 pla
 sta &C1+2
 mend
 MACRO
&lab moveA &C1,&C2
&lab lda &C1
 sta &C2
 lda &C1+2
 sta &C2+2
 mend
 MACRO
 RtoR &C1,&C2
 ENTRY &C1.to&C2
&C1.to&C2
 lda &C1.tag
 sta &C2.tag
 lda sign&C1
 sta sign&C2
 lda expn&C1
 sta expn&C2
 lda expn&C1+2
 sta expn&C2+2
 ldx lgth&C1
 stx lgth&C2
 bmi z2&C1&C2
z1&C1&C2 lda Frct&C1,x
 sta Frct&C2,x
 dex
 dex
 bpl z1&C1&C2
z2&C1&C2 rts
 MEND
 MACRO
 RtoRXpn &C1,&C2,&C3
 lda &C1.tag
 sta &C2.tag
 lda sign&C3
 sta sign&C2
 lda expn&C3
 sta expn&C2
 lda expn&C3+2
 sta expn&C2+2
 ldx lgth&C1
 stx lgth&C2
z&C1&C2&C3 lda Frct&C1,x
 sta Frct&C2,x
 dex
 dex
 bpl z&C1&C2&C3
 MEND
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Scheduler/scheduler.asm b/IIGS.601.SRC/GSToolbox/Scheduler/scheduler.asm
new file mode 100644
index 0000000..a03de76
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Scheduler/scheduler.asm
@@ -0,0 +1 @@
+*******************************************************
*
* Apple IIGS Scheduler
*
* Copyright (c) 1986-1989, 
* Apple Computer, Inc.
* All Rights Reserved
*
* Original Code by 
* 	John Worthington 20 May 86
*
* Convted to ASM816
*	John Worthington 3 Oct 86
*
* Converted to MAX
*	Steven Glass 10 Jun 88
*
* Removed Org *-1
*	Steven Glass 7 Oct 88
*
* 17 Oct 88	Steven Glass
*
* References to oEndCall0 and oEndCall4 are now JMLs 
* since this is orged in bank $FD.
*
* 10 Nov 88	Dave Good & Konstantin Othmer
*
* Changed DecBusy to be faster in the common cases.
*
* 14 Nov 88	Steven Glass
*
* Switched reference to Offset in decBusyFlg to 
* long addressing because it was made before dbr
* was set (changed on 10 Nov 88)
*
* Added line to zero schActive on BootInit and Reset.
*
*******************************************************

	include '::sys.equs.asm'


SchedulerCallTable	PROC Export

	import oEndCall0
	import oEndCall4


	LONGA ON
	LONGI ON



TheStart	DC.L (TheEnd-TheStart)/4
	dc.L SchBootInit-1	; 1
	dc.L SchAppInit-1	; 2
	dc.L SchApTerm-1	; 3
	dc.L Schversion-1	; 4
	dc.L SchReset-1	; 5
	dc.L SchStatus-1	; 6
	dc.L oEndCall0-1	; 7   reserved
	dc.L oEndCall0-1	; 8   reserved
	dc.L schaddtask-1	; 9
	dc.L schflush-1	; 10
TheEnd




SchBootInit	clc 	;Indicate from here
	bcc Join	;Let's save a byte of code


SchReset	sec 	;Indicate from here
Join	lda #$0000	;initialize flags and counters
	sta >busyflag
	sta >schActive	; init this too! SEG 14 Nov 88
	lda #$00FF
	sta >offset
	bcc @1
	jml oEndCall0	;'c'=1 it's reset so exit gracefully.
@1

*  Set up $E1 jump vectors


	lda #incbusy
	sta >incbusyflg+1
	lda #decbusy
	sta >decbusyflg+1


	LONGA OFF
	sep #$30	;8 bit mode to setup vector
	lda #^IncBusy	; bank # of code
	sta >incbusyflg+3	;Warning, this assumes both in same
	sta >decbusyflg+3	; bank which is not unreasonable.
	LONGA ON
	rep #$30	;16 bit mode to continue



SchAppInit	
SchApTerm	
	jml oEndCall0




SchVersion	
result	equ 7


	lda #$0300	; version 2.0 for new rom
	bra SaveResult	;Skip SchStatus setup


SchStatus	
	lda #$FFFF


SaveResult	
	sta result,s
	jml oEndCall0




* Procedure SchFlush;
*
* Flush the Scheduler's que. Offset is set to $FF if the que is empty
schflush	
	lda #$00FF
	sta >offset
	jml oEndCall0




* Function SchAddTask (TaskAddr : LONGINT) :boolean;
*
* add a task to Scheduler. If the result is FALSE then there
* wasn't room to add the task. Result is TRUE otherwise. 
*
* Note that there is a limit of 4 tasks that can be present in the
* Scheduler chain at a given time. If this is a problem, we can 
* reserve more ram.
*


schaddtask	
taskaddr	equ 8
result1	equ 12


	LONGI OFF
	LONGA OFF
	sep #$30
	phb 	; set up the data bank
	lda #$E0
	pha
	plb


	lda |offset	; number of tasks - 1
	inc a
	cmp #$04	; only 4 task can be in que
	bge @TheError
	sta |offset
	asl a
	asl a


	tax


	LONGI ON
	LONGA ON
	rep #$30
	lda taskaddr,s	; copy the task from the stack
	sta |taskque,x	;   into the que.
	inx
	inx
	lda taskaddr+2,s
	sta |taskque,x


	lda #$00FF	; return true if the task
	bra @TheError1	;   was added.


@TheError		; return false otherwise.
	LONGI ON
	LONGA ON
	rep #$30
	lda #$0000
@TheError1	
	sta result1,s
	plb
	jml oEndCall4




*****************************************************************
*
*   These routines are inserted into the E1 vectors.
*     they handle decrementing, incrementing and reading the
*     flag. All registers are preserved.
*
*   Note that the routine decbusy will all activate all pending tasks
*   in the scheduler que. The tasks will get control of the
*   machine in native mode with interrupts disabled. They may
*   turn interrupts on. The tasks should return to the scheduler
*   with an RTL. The dbr is set to $E0 when the task is activated.
*


;---------------------------------------------------------------
; $E0 variable space for scheduler.
;---------------------------------------------------------------
SchActive	equ $E01DDE	; new flag for whether we are active
taskque	equ $E01DDF	; 16 byte que -- 4 items
firstTask	equ $E01DDF
secondTask	equ $E01DE3	; second item in que
offset	equ $E01DEF
;---------------------------------------------------------------




;---------------------------------------------------------------
; this routine decrements the busy flag and checks to see if it
; needs to run any tasks in the scheduler que. If it does, it will
; preserve all the registers, call all the que routines, and finally
; clear out the que. Each task will get control of the machine in native
; mode with interrupts disabled. Each one may turn interrupts on. The
; tasks should return to the scheduler with an RTL. The data bank is set
; to $E0 when the task is activated.
;---------------------------------------------------------------
DecBusy	php		;save interrupt status
	sei
	pha		;preserve the A-Reg

	lda  >BusyFlag		;decrement the busy flag
	dec  a
	sta  >BusyFlag
	beq  alreadyZero		;if at zero, check to see if we have tasks
	bmi  setZero		;prevent the flag from going below zero

exitBusy	pla
	plp
	rtl

setZero	lda  #$0000
	sta  >BusyFlag

alreadyZero	lda  >schActive		;do we have tasks ?
	and  #$00FF		;active flag is only one byte.
	bne  exitBusy		;..nope, so exit.

	lda  >offset-1		;the high byte is offset, so this will
	bpl TasksToRun		; if not neg, there are tasks to run.

	pla		; restore and get out
	plp
	rtl


TasksToRun



;---------------------------------------------------------------
	phx		;save the registers
	phy
	sep #%00100000		;short mode for speed ???
	longa off
	phb		;save the user's data bank
	lda  #$E0		;set data bank to $E0
	pha
	plb
	lda  #$01		; set active flag to prevent recursive
	sta  |schActive		; calls to tasks. JW 9-23-86

doNextTask	phk		;push our return address
	per  @return-1

	lda  |firstTask+2		;fancy way of jumping to the task to
	pha		;..execute
	rep #%00100000		;the task is executed in long mode
	longa on
	lda  |firstTask
	dec  a
	pha
	rtl

@return	rep  #$30		;make sure we are in long mode
	longa on
	longi on
	pea  $E0E0		;set the data bank back to $E0
	plb
	plb
	sei		;make sure interrupts are off
	ldx  #0		;move all the tasks up one in the que
@loop	lda  |secondTask,x
	sta  |firstTask,x
	inx
	inx
	cpx  #$000C+2
	blt  @loop

	sep #%00100000		;short mode for speed ???
	longa off
	dec  |offset		;decrement our count
	bpl  doNextTask

	stz  |schActive
	rep #%00100000
	longa on
	plb
	ply
	plx
	bra  exitBusy
;---------------------------------------------------------------




;---------------------------------------------------------------
; This routine increments the busy flag and saves the A-Reg
;---------------------------------------------------------------
IncBusy	php
	sei
	pha
	lda  >BusyFlag
	inc  a
	sta  >BusyFlag
	pla
	plp
	rtl

;---------------------------------------------------------------




;---------------------------------------------------------------
; NOTE: this routine does not preserve the registers since it
; returns something in A-Reg... Golly Gee !!! (Does anybody call
; this routine ??!?)
;---------------------------------------------------------------
ReadBusy	lda >BusyFlag
	rtl
;---------------------------------------------------------------


	ENDP

****************************************************************

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Scrap/common.asm b/IIGS.601.SRC/GSToolbox/Scrap/common.asm
new file mode 100644
index 0000000..cb5874b
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Scrap/common.asm
@@ -0,0 +1 @@
+****************************************************************
*                                                              *
*                    Common Strip Routines                     *
*                        Version 1.0                           *
*                       August 13, 1986                        *
*                                                              *
****************************************************************
*
* Modified 18-Sep-90 DAL to use $E1/0180 and $E10184 vectors
*

****************************************************************
*                                                              *
*                   Copyright (C) 1985-1988                    *
*                   All Rights Reserved                        *
*                   Apple Computer, Inc.                       *
*                                                              *
****************************************************************

****************************************************************
*
* EndCall Routines.
*
* Functions exit through the EndCall routines.  These routines
* fix the stack by moving the RTL addresses up and stripping
* off any input parameters.
*
* The number of bytes to strip off the stack is passed in the
* y-register.
*
* There are 8 end call routines
*
*       EndCall        Pulls D off stack before cleaning up.  Sets
*                      a-reg to zero and clears carry.
*       oEndCall       Does not pull D off the stack before
*                      cleaning up.  Sets a-reg to zero and clears
*                      carry.
*       ErrOut         Pulls D off stack, cleans up and returns
*                      error code passed in x-register, setting
*                      carry if x is not zero.
*       oErrOut        Does not pull D off stack before cleaning up.
*                      returns error code passed in x-register,
*                      setting carry if x is not zero.
*
*       BusyEC         Decrements the busy flag, pulls D off stack
*                      and cleans up.
*       oBusyEC        Decrements the busy flag, does not pull D off stack
*                      and cleans up.
*       BusyErr        Decrements the busy flag, pulls D off stack,
*                      cleans up and returns error code passed in
*                      x-register, setting the carry if x is not zero.
*       oBusyErr       Decrements the busy flag, does not pull D off
*                      the stack, cleans up and returns error code passed
*                      in x-register.
*
****************************************************************
Strip			PROC
IncBusyFlg		equ $E10064
DecBusyFlg		equ $E10068

				EXPORT BusyEC
BusyEC			ldx #0

				EXPORT BusyErr
BusyErr			jsl DecBusyFlg
				bra ErrOut

				EXPORT EndCall
EndCall        	ldx #0

				EXPORT ErrOut
ErrOut			pld                      ; restore direct register

				EXPORT oErrOut
oErrOut			jml $e10184
;               phy                      ; save amount to strip on stack
;               tsc                      ; get stack pointer
;               clc                      ; add to it the amount to strip
;               adc 1,s
;               tay                      ; put this result in Y
;               tsc                      ; get back orig stack pointer
;               phx                      ; save error on stack
;               tax                      ; put orig stack in X
;               phb                      ; now save the data bank reg
;               pea $0000                ; set data bank reg to 0
;               plb
;               plb
;               lda |3+4,x               ; now use x and y to move 6 bytes
;               sta |3+4,y               ; of rtl info from current pos
;               lda |3+2,x               ; to final pos.
;               sta |3+2,y
;               lda |3+0,x
;               sta |3+0,y
;               plb                      ; restore data bank register
;               plx                      ; restore x register with error
;
;               tsc                      ; get stack again
;               clc                      ; bump it by amount to strip Plus 2
;               adc 1,s                  ; to make up for amount to strip
;               adc #2                   ; still on stack
;               tcs                      ; reset stack pointer
;               txa                      ; error into a-reg
;               cmp #1                   ; set carry correctly
;               rtl                      ; fini

				EXPORT oBusyEC
oBusyEC			ldx #0

				EXPORT oBusyErr
oBusyErr		jml $e10180
***				jsl DecBusyFlg
***				bra oErrOut

				EXPORT oEndCall
oEndCall		ldx #0
				bra oErrOut

				ENDP

				END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Scrap/makefile b/IIGS.601.SRC/GSToolbox/Scrap/makefile
new file mode 100644
index 0000000..ae2cb8a
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Scrap/makefile
@@ -0,0 +1 @@
+### Dependencies for Scrap Manager

tool022 Ä Scrap.asm.obj Common.asm.obj
	LinkIIGS Scrap.asm.obj Common.asm.obj -o Tool022 -t TOL
	if {AutoDuplicate} == 1
		DuplicateIIGS -y -mac Tool022 :
	End

### Dependencies for components

Scrap.asm.obj Ä Scrap.asm Special.macros
	AsmIIGS	Scrap.asm 
	
Common.asm.obj Ä Common.asm
	AsmIIGS Common.asm
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Scrap/scrap.asm b/IIGS.601.SRC/GSToolbox/Scrap/scrap.asm
new file mode 100644
index 0000000..879e483
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Scrap/scrap.asm
@@ -0,0 +1 @@
+****************************************************************
****************************************************************
*
*
*	     Scrap Manager
*	     RAM Based Tool
*	      Version 2.0
*
*
*
* August 29, 1986	Steven E. Glass
*
* October 27, 1986	Steven E. Glass
*
*     Calls GetScrapCount and GetScrapState were missing.
*
* April 10, 1987	Steven E. Glass
*
*     BootInit and reset were incrementing busy flag.
*
* April 16, 1987	Steven E. Glass, Dan D. Hitchens
*
*     DisposeAllScraps wasn't disposing last handle.
*     PutScrap wasn't always reporting an error when out
*     of memory.
*
* March 02, 1988	     v1.3d1     Harry Yee
*     The scrap manager has been converted over to the
*     MPW MAX development system.
*     The scrap manager has also been made rommable.
*
* March 22, 1988	     v1.3d1     Steven Glass
*
*     Only the calltable is exported.	(no code changes)
*
*
* March 23, 1988	     v1.3d2     Steven Glass
*
* The routine InitScrapInfo assumed that the OS was
* available for use.  When this code runs in ROM,
* InitScrapInfo is called from ScrapBootInit long before
* the OS is loaded.  I changed InitScrapInfo to check to
* see if the OS was available before making an OS call.
* The OS call being made is GetFileInfo which is checking
* to see if the clipboard file is present (i.e. whether
* the scrap is on disk or in memory. If the OS is not
* present then the code to check if the scrap is on disk
* is skipped and it is assumed that the scrap is in
* memory.
*
* Other routines will have to be checked to see what
* should happen under similar circumstances.
*
* April 29, 1988	     v1.3d3     Harry Yee
*
* ScrapReset would always fail because the a-reg was not
* zero upon exit from ScrapReset, even though no error
* had ocurred.  A-reg is cleared just before exit now.
*
* May 6, 1988	     v1.3d4     Harry Yee
*
* In the call GetScrapSize if there was an invalid scrap
* opened from LoadTheScrap (i.e. an error occurred trying
* to read it) the clipboard file was left opened, which
* caused problems for some ProDOS calls which lock down
* the disk if files are left open and then you move this
* disk to another driver before making the ProDOS call.
* I now close make sure the clipboard file is closed.
*
* June 2, 1988	     v1.3d5     Harry Yee
*
* Set the no special memory attribute bit for the memory
* I allocated at bootinit.
*
* June 30, 1988	     v1.4d1     Harry Yee
*
* Version 1.4 to be included on System Disk 4.0:
* In ScrapBootInit WAP was being set to the ptr of locked
* down handle (MemPtr) instead of to the unlocked handle
* itself (MemHandle).
* Now the memory that is obtained during Bootinit is
* locked when its used and unlocked otherwise.
* Also ScrapReset has been completely rewritten to just
* dispose of all memory allocated by the Scrap Manager
* and then its WAP is set to zero. ScrapReset used to
* dispose of the previous scrap (i.e. clipboard file)
* which it no longer does.
* InitScrapInfo has been done away with and incorporated
* into ScrapBootInit.
*
* August 9, 1988	 v1.4d2 (for System Disk 4.0d16) HY
*
* ScrapBootInit was not checking if WAP was non-zero
* before allocating memory for itself. Problem occurrs if
* ones does a LoadOneTool and Scrap Mgr already loaded.
* Two additional handles are created each time
* ScrapBootInit is called. Bug can be verified by just
* going into BASIC and then quitting.	We now check WAP
* if non-zero we re-initialize the scrap path and then
* get the hell out of there.
*
*
* 12 Aug 88	Steven Glass
*
* The UnloadScrap called WriteOutScrap which was pushing 
* the wrong pointer to the file ref num and leaving 
* the file open.
*
* Subsequent calls to read the scrap would fail because
* of file aready open.
*
* 19 Apr 89	Yee
*
* Changed version number from 1.4 to 3.0.
*
****************************************************************
*
* BEGIN 6.0
*
* 18-Sep-90	Dave Lyons
*
* Removed dependency on all.macros.
* Adding new call GetIndScrap.  Version is now $8301.
* Simplified stack cleanup on the housekeeping calls.
* Changed common.asm to use the ToStrip and ToBusyStrip vectors.
* (Changed some JMLs to BRLs since they were in the same segment
* anyway.)
*
* 24-Sep-90	Dave Lyons
*
* Known bug:  WriteOutThisOne is fried for >64K scraps.
* Finished GetIndScrap.
*
* 18-Nov-90	Dave Lyons
*
* Fix WriteOutThisOne to work for >64K.  Reading scraps had
* no problem, but it was inefficient.  Optimized RAM version
* but did not patch it out for ROM 3.
*
* TS3 patches out UnloadScrap and sucks in some subroutines.
* UnloadScrap is the only call that winds up calling WriteOutThisOne,
* so that's the only call we have to patch.
*
* Changed clipboard filetype to from $00 to $F9.  Put back all.macros.
*
* 14-Jan-91	Dave Lyons
*
* Added a check for refnum=0 at LoadTheScrap ERROR.  At the
* beginning of LoadTheScrap I zero out the refnum (at
* [<MemPtr],#CloseParams).
*
* 3-Apr-91	Dave Lyons
*
* Fixed comment in GetIndScrap header--buffer format was wrong.
*
* 5-Feb-92	Dave Lyons
*
* Version $0301.
*
****************************************************************
*
* BEGIN 6.0.1
*
* 17..18-Aug-92	Dave Lyons
*
* Version $8302.  Cleaned out boring comments from 6.0.
* New call ShowClipboard (not ROMmable).
*
* 19-Aug-92	Dave Lyons
*
* Fiddled with ShowClipboard a lot.
*
* 1-Sep-92	Dave Lyons
*
* PutScrap now bumps the scrap count.
*
* 4..8-Sep-92	Dave Lyons
*
* Fixed up ShowClipboard.  Optimized a lot of space-for-result
* pushes to pha/pha instead of pushlong #0.
*
* 14-Sep-92	Dave Lyons
*
* When closing the clipboard window, zero NewDataWidth and
* NewDataHeight so we re-set the window's data size the next
* time we open.
*
* 1-Apr-93	Steve Stephenson
*
* Version $0302 for 6.0.1 (final)
*
****************************************************************
****************************************************************
DebugSymbols	equ 0

	include 'All.Macros'
	include 'Special.Macros'
	include 'E16.Window'
	include 'E16.Locator'

****************************************************************
*			   *
*           Copyright Apple Computer, Inc. 1985-92	   *
*	All Rights Reserved		   *
*			   *
****************************************************************


;------------------------------------------
;
;   Global Equates
;
;------------------------------------------
DebugVersion	equ 0

TRUE	equ $FFFF
FALSE	equ $0

ScrapUserID	equ $4201	; special ID used so scrap memory will
		; not get its purge level set to 3 by loader
ToolNum	equ 22

;----------------------------------------------------
;
; Zero page equates.
;
ScrapTablePtr	equ 1	; offset 1 because the old data bank is	stored at 0 
OffsetToThisOne	equ ScrapTablePtr+4
PtrToThisOne	equ OffsetToThisOne+4
DestHandle	equ PtrToThisOne+4
DestPtr	equ DestHandle+4
WAPEntry	equ DestPtr+4
MemHandle	equ WAPEntry+4
MemPtr	equ MemHandle+4
OrigDirect	equ MemPtr+4
StdZPSize	equ OrigDirect-1

******************************************************************************
*
* Scrap Type constants
*
* References:
*   Apple IIgs Toolbox Reference Volume 1
*   Apple IIgs Technical Note #99, Supplemental Scrap Types
*
******************************************************************************
textScrap	equ $0000	;text
picScrap	equ $0001	;QuickDraw II picture
soundScrap	equ $0002	;sound in rSoundSample format
teStyleScrap	equ $0064	;Text Edit style information for text
iconScrap	equ $4945	;icon with name/owner information
maskScrap	equ $8001	;QuickDraw II picture to be used as a mask
colorScrap	equ $8002	;GS color tables (32 bytes each)
; need more HCGS scrap types??

;----------------------------------------------------
;
; Scrap Record
;
o_ScrapType	equ 0
o_ScrapSize	equ 2
o_ScrapHandle	equ 6
ScrapRecSize	equ 10


;----------------------------------------------------
;
; ScrapAttributes for the memory I get
ScrapAttributes	equ $0008	; not special memory


;----------------------------------------------------
;
; File type for clipboard file.
;
ClipFileType	equ $f9	;changed from 0 to $f9 19-Nov-90 DAL
*ClipAuxType	equ 0

;-----------------------------------------------------------
;
; Error Codes we need to label.
;
FileNotFound	equ $46	; ProDOS error

NotImpError	equ $16FF
TypeError	equ $1610

;-----------------------------------------------------------
;
; Equates for OS entry points.
;
OS_ENTRY	equ $E100A8
OS_ENTRY2	equ $E100B0
OS_Zero	equ $E100BA
OS_Kind	equ $E100BC
OS_Boot	equ $E100BD

;-----------------------------------------------------------
;
; Memory Manager attributes
;
Attr_Locked	equ $8000	; 1 = Locked
Attr_Fixed	equ $4000	; 1 = Not movable
Attr_Purge	equ $0300	; 0 = No purge 1-3 purge level
Attr_NoCross	equ $0010	; 1 = May not cross	banks
Attr_NoSpec	equ $0008	; 1 = May not use special memory
Attr_Page	equ $0004	; 1 = Page Aligned
Attr_Addr	equ $0002	; 1 = Fixed address
Attr_Bank	equ $0001	; 1 = Fixed address


;-----------------------------------------------
;
;   Equates for Stack based ProDOS calls
;   and other memory locations that needed space
;   because code is	being made non-self	modifying
;
CreateCall	equ $01
DestroyCall	equ $02
GetFileInfo	equ $06
OpenCall	equ $10
ReadCall	equ $12
WriteCall	equ $13
CloseCall	equ $14

StackProDOS	equ $E100B0

;Open Call Parameters:
OpenParams	equ 0
OpenID	equ 0	; reference number assigned to file by the OPEN call
OpenPath	equ OpenID+2	; pointer to pathname of file to open
OpenBuf	equ OpenPath+4	; pointer to I/O buffer

;Read Call Parameters:
ReadParams	equ 0
ReadID	equ 0	; reference number assigned to file by the OPEN call
ReadTo	equ ReadID+2	; pointer to location of buffer where data is read into
ReadAmount	equ ReadTo+4	; the number of bytes to be transferred

;Write Call Parameters:
WriteParams	equ 0
WriteID	equ 0	; reference number assigned to file by the OPEN call
WriteFrom	equ WriteID+2	; pointer to location of where data is to be written to
WriteAmount	equ WriteFrom+4	; number of bytes to write

;Close Call Parameters:
CloseParams	equ 0
CloseRef	equ 0	; reference number assigned to file by the OPEN call

;Create Call Parameters:
CreateParams	equ ReadAmount+8
CreatePath	equ ReadAmount+8	; pointer to pathname of file to create
CreateAccess	equ CreatePath+4	; word value, how file may be accessed
CreateFileType	equ CreateAccess+2	; file type of file
CreateAuxType	equ CreateFileType+2 ; file's auxiliary type
CreateStType	equ CreateAuxType+4	; logical organization of file
CreateDate	equ CreateStType+2	; date which file was created
CreateTime	equ CreateDate+2	; time at which file was created

;Destroy Call Parameters:
DestroyParams	equ CreateTime+2
DestroyPath	equ CreateTime+2

HowMuchToWrite	equ DestroyParams+4
HowMuchToRead	equ HowMuchToWrite+4
NumEntries	equ HowMuchToRead+4	; used when reading	the clipboard file from disk
FirstScrapHandle	equ NumEntries+2
ScrapState	equ FirstScrapHandle+4 ; ScrapState indicates whether scrap	is currently in memory or on disk
ScrapCount	equ ScrapState+2	; ScrapCount is incremented each time zero scrap is called
ScrapHandle	equ ScrapCount+2
ScrapName	equ ScrapHandle+4	; Pointer to pathname of clipboard file.
FIParams	equ ScrapName+4
TotalMem	equ FIParams+29


;-----------------------------------------------
; 
;  System Equates
;
IncBusyFlg	equ $E10064
DecBusyFlg	equ $E10068

;-----------------------------------------------
;
;           Imported address
;
;-----------------------------------------------

	IMPORT OERROUT
	IMPORT OENDCALL
	IMPORT BUSYERR

;-----------------------------------------------
;
;           Forward	address and entries
;
;-----------------------------------------------

	entry ExitNoError	;18-Sep-90 DAL
	entry GetIndScrap	;18-Sep-90 DAL
	entry ShowClipboard	;17-Aug-92 DAL
	ENTRY ScrapPath
	ENTRY GetScrapState
	ENTRY GetScrapCount
	ENTRY SetScrapPath
	ENTRY GetScrapPath
	ENTRY GetScrapSize
	ENTRY GetScrapHandle
	ENTRY GetScrap
	ENTRY PutScrap
	ENTRY ZeroScrap
	ENTRY LoadScrap
	ENTRY UnloadScrap
	ENTRY NotImp
	ENTRY ScrapStatus
	ENTRY ScrapReset
	ENTRY ScrapVersion
	ENTRY ScrapBootInit
	ENTRY StartScrapCall
	ENTRY EndScrapCall
	ENTRY DisposeAllScraps
	ENTRY DerefFirstHandle
	ENTRY UnlockFirstHandle
	ENTRY WriteOutThisOne
	ENTRY WriteOutScrap
	ENTRY EndScrapCall
	ENTRY LoadTheScrap
	ENTRY DeleteClipboard
	ENTRY FindThisType
	ENTRY DerefDest
	ENTRY ReadInThisOne
	ENTRY UnlockDest

****************************************************************
*
* ScrapCallTable
*
****************************************************************
	EXPORT ScrapCallTable
ScrapCallTable	PROC
TheBeginning
	DC.L (TheEnd-TheBeginning)/4 	; call count + 1
	DC.L ScrapBootInit-1 	; 0116
	DC.L ExitNoError-1	 	; 0216 ScrapStartUp
	DC.L ExitNoError-1 		; 0316 ScrapShutDown
	DC.L ScrapVersion-1		; 0416 version call
	DC.L ScrapReset-1		; 0516 reset call
	DC.L ScrapStatus-1		; 0616 status call
	DC.L NotImp-1		; 0716
	DC.L NotImp-1		; 0816
	DC.L UnloadScrap-1		; 0916
	DC.L LoadScrap-1		; 0A16
	DC.L ZeroScrap-1		; 0B16
	DC.L PutScrap-1		; 0C16
	DC.L GetScrap-1		; 0D16
	DC.L GetScrapHandle-1 	; 0E16
	DC.L GetScrapSize-1		; 0F16
	DC.L GetScrapPath-1		; 1016
	DC.L SetScrapPath-1		; 1116
	DC.L GetScrapCount-1 	; 1216
	DC.L GetScrapState-1 	; 1316
*** new for 6.0
	DC.L GetIndScrap-1		; 1416  (18-Sep-90 DAL)
*** new for 6.0.1
	DC.L ShowClipboard-1	; 1516  (17-Aug-92 DAL)
TheEnd
	ENDP


****************************************************************
*
* ScrapBootInit	(No inputs)
*
* Modification History
*
* 10 Apr 87    SEG
*
*    Was not decrementing busy flag on way out.
*
* 30 Jun 88    Harry Yee
* 	InitScrapInfo has been incorporated into this 
*	routine.
*
****************************************************************
	ENTRY ScrapBootInit
ScrapBootInit	PROC

TheMemPtr	equ 1
TheFirstScrapPtr	equ TheMemPtr+4
TheFirstScrapHandle	equ TheFirstScrapPtr+4
TheMemHandle	equ TheFirstScrapHandle+4
OrigB	equ TheMemHandle+4
OrigD	equ OrigB+1

	
	jsl IncBusyFlg

	phd	; save direct page register
	phb
	phk	; set data bank register
	plb	

	cpy #0
	beq NotInited
	phy	; push MemHandle on stack
	pha
	pha	; space for FirstScrapHandle
	pha
	pha	; space for FirstScrapPtr
	pha
	pha	; space for MemPtr
	pha
	tsc
	tcd	; turn stack into our zero page
	
	lda [TheMemHandle]	; deref TheMemHandle
	sta TheMemPtr
	ldy #2
	lda [TheMemHandle],y
	sta TheMemPtr+2	

	lda #ScrapPath	; reset the name to	be used
	ldy #ScrapName	; in case it was changed.
	sta [TheMemPtr],y
	lda #^ScrapPath
	iny
	iny
	sta [TheMemPtr],y

	brl GoHome

NotInited	pha
	pha	; memory to be used for ProDOS calls and other junk	
	PushLong #TotalMem
	PushWord #ScrapUserID
	PushWord #Attr_Locked+Attr_NoSpec
	pha
	pha
	_NewHandle
	bcc NoError1
	brl Error1

NoError1	pha
	pha
	PushLong #2
	PushWord #ScrapUserID
	PushWord #Attr_NoSpec
	pha
	pha
	_NewHandle
	bcc NoError2
	brl Error2

NoError2	pha	; space for TheFirstScrapPtr
	pha
	pha	; space for TheMemPtr
	pha
	tsc	; switch in stack to be out zero page
	tcd

	lda [TheMemHandle]	; deref TheMemHandle
	sta TheMemPtr
	ldy #2
	lda [TheMemHandle],y
	sta TheMemPtr+2	
	
	lda [TheFirstScrapHandle] ; deref FirstScrapHandle
	sta TheFirstScrapPtr
	lda [TheFirstScrapHandle],y
	sta TheFirstScrapPtr+2
	
	lda TheFirstScrapHandle ; save TheFirstScrapHandle
	ldy #FirstScrapHandle
	sta [TheMemPtr],y
	iny
	iny
	lda TheFirstScrapHandle+2
	sta [TheMemPtr],y

	lda #ScrapPath	; reset the name to	be used
	ldy #ScrapName	; in case it was changed.
	sta [TheMemPtr],y
	lda #^ScrapPath
	iny
	iny
	sta [TheMemPtr],y

	lda #0
	sta [TheFirstScrapPtr]

;----------------------------------------------------
;
; Now we look for the scrap.  We start by assuming
; that the scrap is	on disk
;
	lda #0
	ldy #ScrapState
	sta [TheMemPtr],y
	
;----------------------------------------------------
;
; Look for clipboard file
;

; Now, if OS is active, we should look for the
; clipboard file, otherwise assume the clipboard
; is in memory.
;
	lda >OS_ENTRY	; for the os to be active, this must be
	and #$00FF	; 5C, for JML op opcode.
	cmp #$005C
	bne NotActive

	lda >OS_ENTRY2	; for the os to be active, this must be
	and #$00FF	; 5C, for JML op opcode.
	cmp #$005C
	bne NotActive

	lda >OS_Zero	; for os to be active, this must be zero
	bne NotActive

	lda >OS_Kind	; for os to be active, this must be one
	and #$0001
	beq NotActive

	lda >OS_Boot	; for os to be active, this must be one
	and #$0001
	beq NotActive

	lda #ScrapPath	; setup the parameters in memory 
	ldy #FIParams	; for the ProDOS GetFileInfo call.
	sta [TheMemPtr],y
	lda #^ScrapPath
	iny
	iny
	sta [TheMemPtr],y

	lda TheMemPtr
	clc
	adc #FIParams
	tax
	lda TheMemPtr+2
	adc #0
	pha
	phx

	pea GetFileInfo	; check if the file */system/clipboard is there
	jsl StackProDOS

	bcc ScrapIsOnDisk

NotActive	lda #1
	ldy #ScrapState
	sta [TheMemPtr],y


ScrapIsOnDisk	lda #0
	ldy #ScrapCount
	sta [TheMemPtr],y

GoHome	PushWord #0
	PushWord #ToolNum	; tool022
	PushLong TheMemHandle
	_SetWAP	

	ldy #4	; unlock TheMemHandle
	lda [TheMemHandle],y
;;;	and #$7FFF
	asl a
	lsr a
	sta [TheMemHandle],y

	pla	; get rid of TheMemPtr
	pla
	pla	; get rid of TheFirstScrapPtr
	pla
	pla	; get rid of TheFirstScrapHandle
	pla
	pla	; get rid of TheMemHandle
	pla
Out	plb	; restore original data bank 

	ldy #0
	brl BusyErr	; OrigD left on stack for BusyErr to restore

Error2	plx	; get rid of TheFirstScrapHandle
	plx

Error1	plx	; get rid of TheMemHandle
	plx

	tax	; put error in x-reg
	bra Out

	ENDP


****************************************************************
*
* ScrapVersion
*
****************************************************************
	ENTRY ScrapVersion
ScrapVersion	PROC export

ScrapVersionNumber	equ $0302	;1-Apr-93 SS

	lda #ScrapVersionNumber

	export ReturnOneWord
ReturnOneWord	sta 7,s

	export ExitNoError
ExitNoError	lda #0
	clc
	rtl

	ENDP


****************************************************************
*
* ScrapReset
*
* Modification History
*
* 10 Apr 87    SEG
*
*    Was not decrementing busy flag on way out.
*
* 29 Apr 88    HY
*
*    A-Reg contained a non-zero value when it exited whether or not
*    an error occurred. Therefore ScrapReset would always fail.    
*
* 08 Jun 88    HY
*
*    ScrapReset now just disposes of all the memory allocated by
*    the Scrap Manager and sets the WAP to zero.
*
* 19 Sep 88	SEG
*
*    The setWAP call had the wrong inputs.
*    In addition, after a reset, the ScrapMgr has no memeory
*    so we need to call the boot init call again to make things
*    Kosher.
*
****************************************************************
	ENTRY ScrapReset
ScrapReset	PROC

	PushWord #ScrapUserID
	_DisposeAll	; get rid of all memory allocated
		; to the scrap manager
	ldx #0
	phx	; system tool set
	PushWord #ToolNum
	phx
	phx	; set the wap to zero
	_SetWAP

	brl ScrapBootInit

	ENDP


****************************************************************
*
* ScrapStatus
*
* Returns true all the time since if we	are loaded, we are
* active.
*
****************************************************************
	ENTRY ScrapStatus
ScrapStatus	PROC
	import ReturnOneWord

	lda #True
	bra ReturnOneWord


	ENDP


****************************************************************
*
* NotImp
*
* Error return for calls 7 and 8
*
****************************************************************
	ENTRY NotImp
NotImp	PROC

	lda #NotImpError
	sec
	rtl

	ENDP


****************************************************************
*
* ScrapDATA
*
* The data structures for the ScrapManager are as follows.
*
* Below we keep a handle called FirstScraphandle.  This is a
* reference to a scrap table.  In the scrap table are
* a series of scrap	records.  There is one record for each scrap
* type represented in the table.
*
* Each ScrapRecord in the ScrapTable contains the following
* information:
*
*        ScrapType
*        ScrapSize
*        ScrapHandle
*
*
*
****************************************************************
	ENTRY ScrapData
ScrapData	PROC

;----------------------------------------------------
;
; Scrap data structure
;
; NumTypes in Scrap	 integer
;     ScrapType1
;     SizeofScrap1
;     HandleToScrap1
;
;     ScrapType2
;     SizeOfScrap2
;     HandleToScrap2
;
;     ...
;
;     ScrapTypeN
;     SizeOfScrapN
;     HandleToScrapN
;


;----------------------------------------------------
;
; The scrap path is	the default clipboard path name
; The file name is CLIPBOARD in the SYSTEM subdirectory
; of the boot volume.
;
	ENTRY ScrapPath
ScrapPath	str '*/System/Clipboard'


	ENDP


****************************************************************
*
* UnloadScrap
*
*      No parameters.
*
* Writes the scrap from memory to disk.
*
****************************************************************
	ENTRY UnloadScrap
UnloadScrap	PROC export

	phy
	pha

	jsr StartScrapCall

	ldy #ScrapState
	lda [<MemPtr],y

	beq AlreadyOnDisk

	jsr WriteOutScrap

AlreadyOnDisk	tax

	jsr EndScrapCall

	ldy #0
	brl BusyErr


	ENDP


****************************************************************
*
* LoadScrap
*
*      No parameters.
*
* Reads the scrap from disk to memory.	The contents are put
* into the ScrapHandle.  The file CLIPBOARD is deleted after
* it is read.
*
****************************************************************
	ENTRY LoadScrap
LoadScrap	PROC

	phy	; save the WAPEntry 
	pha

	jsr StartScrapCall

	ldy #ScrapState
	lda [<MemPtr],y

	beq YesOnDisk

	lda #0
	bra AlreadyInMem

YesOnDisk	jsr LoadTheScrap

	bcc AlreadyInMem	; no error occured

	cmp #FileNotFound
	beq IgnoreError

AlreadyInMem	tax

	jsr EndScrapCall

	ldy #0
	brl BusyErr


IgnoreError	lda #0
	bra AlreadyInMem

	ENDP


****************************************************************
*
* ZeroScrap
*
*      No parameters.
*
* If the scrap exists, it is cleared out.  This means that it
* disposes the scrap handle if there is	one or deletes the
* CLIPBOARD file if	it exists.
*
* The scrapCount field of the ScrapInfo	record is bumped.
*
****************************************************************
	ENTRY ZeroScrap
ZeroScrap	PROC

	phy	; save the WAPEntry
	pha

	jsr StartScrapCall

	ldy #ScrapState
	lda [<MemPtr],y	; if scrapstate is 0 then scrap is
	beq ItsOnDisk	; on disk

	jsr DisposeAllScraps
	bcs ERROR

Finish	ldy #ScrapCount
	lda [<MemPtr],y
	inc a
	sta [<MemPtr],y

	ldx #0

GetOut	jsr EndScrapCall

	ldy #0
	brl BusyErr


ItsOnDisk
	jsr DeleteClipboard

	lda #1
	ldy #ScrapState
	sta [<MemPtr],y

	bra Finish

ERROR	tax
	bra GetOut

	ENDP



****************************************************************
*
* PutScrap
*
*       Length	: long int
*       type	: integer
*       SourcePtr	: POINTER
*
* Appends user data	into the scrap.
*
****************************************************************
	ENTRY PutScrap
PutScrap	PROC

RTL1	equ OrigDirect+2+4	; extra 4 is for the WAPEntry pushed on	stack
RTL2	equ RTL1+3
UserSrcPtr	equ RTL2+3
UserSrcType	equ UserSrcPtr+4
UserSrcLength	equ UserSrcType+2

	phy
	pha

	jsr StartScrapCall

*** added 1-Sep-92 DAL -- PutScrap now bumps the scrap count
	ldy #ScrapCount
	lda [<MemPtr],y
	inc a
	sta [<MemPtr],y
*** end 1-Sep-92

	ldy #ScrapState
	lda [<MemPtr],y
	bne AlreadyInMem

;----------------------------------------------------
;
; We really don't care if the load fails since
; it is like loading a empty scrap which we already
; have.

	jsr LoadTheScrap

AlreadyInMem
	jsr DerefFirstHandle

	lda UserSrcType
	jsr FindThisType

	bcs AddThisType
	jmp FoundType

;----------------------------------------------------
;
; The type is not in the data so I must	add it by
; making the scrap table bigger.
;
AddThisType	jsr UnlockFirstHandle

	pha
	pha
	ldy #FirstScrapHandle+2
	lda [<MemPtr],y
	pha
	dey
	dey
	lda [<MemPtr],y
	pha
	_GetHandleSize

	lda 1,s	; save a copy of the size of this
	sta <OffsetToThisOne ; thing for use later
	lda 3,s
	sta <OffsetToThisOne+2

	lda 1,s	; now add the size of one more
	clc	; record to this and do a
	adc #ScrapRecSize	; set handle size.
	sta 1,s
	bcc NoCarry
	lda 3,s
	inc a
	sta 3,s
NoCarry

	ldy #FirstScrapHandle+2
	lda [<MemPtr],y
	pha
	dey
	dey
	lda [<MemPtr],y
	pha
	_SetHandleSize
	bcc SizeAdjusted
	jmp ERROR

SizeAdjusted	jsr DerefFirstHandle ; deref again

	lda [<ScrapTablePtr] ; bump count of num types in scrap
	inc a
	sta [<ScrapTablePtr]

	lda <ScrapTablePtr	; now compute the pointer to
	clc	; the ScrapRec we just made
	adc <OffsetToThisOne
	sta <PtrToThisOne
	lda <ScrapTablePtr+2
	adc <OffsetToThisOne+2
	sta <PtrToThisOne+2

	lda UserSrcType	; put SrcType in recrod
	sta [<PtrToThisOne]
	ldy #o_ScrapSize	; set size of handle to zero
	lda #0
	sta [<PtrToThisOne],y
	iny
	iny
	sta [<PtrToThisOne],y

;----------------------------------------------------
;
; Get a handle of zero size
;
	pha
	pha	; space for handle
	lda #0
	pha
	pha	; size 0
	PushWord #ScrapUserID
	PushWord #ScrapAttributes
	pha
	pha	; no loc info
	_Newhandle
	bcc GotNewHandle
	brl ERROR

GotNewHandle	ldy #o_ScrapHandle
	pla
	sta [<PtrToThisOne],y
	iny
	iny
	pla
	sta [<PtrToThisOne],y

;----------------------------------------------------
;
; Type is already in the scrap data so I just need
; to append the passed data onto it.
;
FoundType

	lda <ScrapTablePtr	; set or reset PtrToThisOne
	clc	; based on OffsetToThisOne
	adc <OffsetToThisOne
	sta <PtrToThisOne
	lda <ScrapTablePtr+2
	adc <OffsetToThisOne+2
	sta <PtrToThisOne+2

	ldy #o_ScrapSize	; calculate new handle size
	lda [<PtrToThisOne],y ; by adding old size to
	clc	; SrcLength
	adc UserSrcLength
	tax
	iny
	iny
	lda [<PtrToThisOne],y
	adc UserSrcLength+2
	pha	; push size on stack
	phx

	ldy #o_ScrapHandle+2 ; now get handle from scrap record
	lda [<PtrToThisOne],y ; push it and do set handle size
	pha
	dey
	dey
	lda [<PtrToThisOne],y
	pha
	_SetHandleSize
	bcs ERROR	; DAN H. (so will report errors)

	ldy #o_ScrapHandle	; get handle again from scrap record
	lda [<PtrToThisOne],y ; put in dest handle
	sta <DestHandle	; and deref it.
	iny
	iny
	lda [<PtrToThisOne],y
	sta <DestHandle+2

	jsr DerefDest

	lda <DestPtr	; figure out where in dest to
	ldy #o_ScrapSize	; start adding by adding orig
	adc [<PtrToThisOne],y ; size to DestPtr.
	sta <DestPtr
	lda <DestPtr+2
	iny
	iny
	adc [<PtrToThisOne],y
	sta <DestPtr+2

;----------------------------------------------------
;
; Now move it
;
	PushLong UserSrcPtr
	PushLong <DestPtr
	PushLong UserSrcLength
	_BlockMove


	jsr UnlockDest


;----------------------------------------------------
;
; Finally, set the scrap size field in the record to
; the new handle size.

	clc
	ldy #o_ScrapSize	; and put result size in
	lda [<PtrToThisOne],y ; scrap record.
	adc UserSrcLength
	sta [<PtrToThisOne],y
	iny
	iny
	lda [<PtrToThisOne],y
	adc UserSrcLength+2
	sta [<PtrToThisOne],y

;----------------------------------------------------
;
; Now unlock First handle
;
	jsr UnlockFirstHandle



	ldx #0	; for no error

GetOut	jsr EndScrapCall

	ldy #10
	brl BusyErr

ERROR	tax
	bra GetOut

	ENDP



****************************************************************
*
* GetScrap
*
*        UserHandle		(pushed top to bottom)
*        UserType
*
* Copies the scrap to user memory.
*
****************************************************************
	ENTRY GetScrap
GetScrap	PROC

RTL1	equ OrigDirect+2+4
RTL2	equ RTL1+3
UserType	equ RTL2+3
UserHandle	equ UserType+2

	phy	; save WAPEntry
	pha

	jsr StartScrapCall

	ldy #ScrapState
	lda [<MemPtr],y
	bne AlreadyInMem

;----------------------------------------------------
;
; We really don't care if the load fails since
; it is like loading a empty scrap which we already
; have.
;
	jsr LoadTheScrap


AlreadyInMem
	jsr DerefFirstHandle

	lda UserType
	jsr FindThisType
	bcc FoundType

	lda #TypeError
	bra ERROR

;----------------------------------------------------
;
; Type is already in the scrap data so I just need
; to append the passed data onto it.
;
FoundType

	lda <ScrapTablePtr	; set or reset PtrToThisOne
	clc	; based on OffsetToThisOne
	adc <OffsetToThisOne
	sta <PtrToThisOne
	lda <OffsetToThisOne+2
	adc <ScrapTablePtr+2
	sta <PtrToThisOne+2

	ldy #o_ScrapSize+2	; get size handle will be
	lda [<PtrToThisOne],y ; and set user handle to this
	pha	; size
	dey
	dey
	lda [<PtrToThisOne],y
	pha
	PushLong UserHandle
	_SetHandleSize

	bcs ERROR


	ldy #o_ScrapHandle+2 ; now use handle to handle to make
	lda [<PtrToThisOne],y ; copy.
	pha
	dey
	dey
	lda [<PtrToThisOne],y
	pha
	PushLong UserHandle
	ldy #o_ScrapSize+2
	lda [<PtrToThisOne],y
	pha
	dey
	dey
	lda [<PtrToThisOne],y
	pha
	_HandToHand

	jsr UnlockFirstHandle

	ldx #0	; for no error

GetOut	jsr EndScrapCall

	ldy #6
	brl BusyErr

ERROR	tax
	bra GetOut

	ENDP


****************************************************************
*
* GetScrapHandle
*
*              Space For Handle
*              ScrapType
*
* Returns the handle to the scrap of the specified type.  We
* provide this so that the user does not have to make a copy of
* what is in the scrap to "Get" it.
*
****************************************************************
	ENTRY GetScrapHandle
GetScrapHandle	PROC

RTL1	equ OrigDirect+2+4
RTL2	equ RTL1+3
UserType	equ RTL2+3
UserHandle	equ UserType+2

	phy
	pha

	jsr StartScrapCall

	ldy #ScrapState
	lda [<MemPtr],y
	bne AlreadyInMem

;----------------------------------------------------
;
; We really don't care if the load fails since
; it is like loading a empty scrap which we already
; have.
;
	jsr LoadTheScrap

AlreadyInMem
	jsr DerefFirstHandle

	lda UserType
	jsr FindThisType
	bcc FoundType

	lda #TypeError
	bra ERROR


FoundType

	lda <ScrapTablePtr	; set or reset PtrToThisOne
	clc	; based on OffsetToThisOne
	adc <OffsetToThisOne
	sta <PtrToThisOne
	lda <OffsetToThisOne+2
	adc <ScrapTablePtr+2
	sta <PtrToThisOne+2

	ldy #o_ScrapHandle	; get handle
	lda [<PtrToThisOne],y
	sta UserHandle
	iny
	iny
	lda [<PtrToThisOne],y
	sta UserHandle+2

	ldx #0	; for no error

GetOut	phx
	jsr UnlockFirstHandle
	plx

	jsr EndScrapCall

	ldy #2
	brl BusyErr

ERROR	tax
	bra GetOut

	ENDP


****************************************************************
*
* GetScrapSize
*
*              Space For Size
*              ScrapType
*
* Returns the size of the scrap of the specified type.
*
****************************************************************
	ENTRY GetScrapSize
GetScrapSize	PROC

RTL1	equ OrigDirect+2+4
RTL2	equ RTL1+3
UserType	equ RTL2+3
UserSize	equ UserType+2

	phy
	pha

	jsr StartScrapCall

	ldy #ScrapState
	lda [<MemPtr],y
	bne AlreadyInMem

;----------------------------------------------------
;
; We really don't care if the load fails since
; it is like loading a empty scrap which we already
; have.
;
	jsr LoadTheScrap

AlreadyInMem
	jsr DerefFirstHandle

	lda UserType
	jsr FindThisType
	bcc FoundType

	lda #TypeError
	bra ERROR

FoundType	lda <ScrapTablePtr	; set or reset PtrToThisOne
	clc	; based on OffsetToThisOne
	adc <OffsetToThisOne
	sta <PtrToThisOne
	lda <OffsetToThisOne+2
	adc <ScrapTablePtr+2
	sta <PtrToThisOne+2

	ldy #o_ScrapSize	; get size
	lda [<PtrToThisOne],y
	sta UserSize
	iny
	iny
	lda [<PtrToThisOne],y
	sta UserSize+2

	ldx #0	; for no error

GetOut	phx
	jsr UnlockFirstHandle
	plx

	jsr EndScrapCall

	ldy #2
	brl BusyErr

ERROR	tax
	bra GetOut

	ENDP


****************************************************************
*
* GetScrapPath
*
*              No inputs
*
* Returns a pointer	to the path name string used by the
* clipboard.
*
****************************************************************
	ENTRY GetScrapPath
GetScrapPath	PROC

OrigD	equ 1
WAPPointer	equ OrigD+2
RTL1	equ WAPPointer+4
RTL2	equ RTL1+3
PathPtr	equ RTL2+3

	phy	; save WAPEntry
	pha
	phd	; save direct page

	tsc
	tcd	; make stack the direct page

	ldy #2	; dereference WAPEntry
	lda [<WAPPointer],y
	tax
	lda [<WAPPointer]
	sta <WAPPointer
	txa 
	sta <WAPPointer+2

	ldy #ScrapName
	lda [<WAPPointer],y
	sta <PathPtr
	iny
	iny
	lda [<WAPPointer],y
	sta <PathPtr+2

	pld	; restore original direct page

	pla	; get rid of WAPPointer
	pla

	brl ExitNoError

	ENDP



****************************************************************
*
* SetScrapPath
*
*              Ptr to New Path
*
* Sets the pointer to the path name string used by the
* clipboard.
*
****************************************************************
	ENTRY SetScrapPath
SetScrapPath	PROC

OrigD	equ 1
WAPPointer	equ OrigD+2
RTL1	equ WAPPointer+4
RTL2	equ RTL1+3
PathPtr	equ RTL2+3

	phy	; save WAPEntry
	pha
	phd	; save direct page

	tsc
	tcd	; make stack the direct page

	ldy #2	; dereference WAPEntry
	lda [<WAPPointer],y
	tax
	lda [<WAPPointer]
	sta <WAPPointer
	txa 
	sta <WAPPointer+2

	lda <PathPtr
	ldy #ScrapName
	sta [<WAPPointer],y
	lda <PathPtr+2
	iny
	iny
	sta [<WAPPointer],y

	pld	; restore original direct page

	pla	; get rid of WAPPointer off stack
	pla

	ldy #4
	brl oendcall

	ENDP


****************************************************************
*
* GetScrapCount
*
*              Space for count
*
* Returns the global variable scrap count
*
****************************************************************
	ENTRY GetScrapCount
GetScrapCount	PROC

OrigD	equ 1
WAPPointer	equ OrigD+2
RTL1	equ WAPPointer+4
RTL2	equ RTL1+3
Result	equ RTL2+3

	phy	; save WAPEntry
	pha
	phd	; save direct page

	tsc
	tcd	; make stack the direct page

	ldy #2	; dereference WAPEntry
	lda [<WAPPointer],y
	tax
	lda [<WAPPointer]
	sta <WAPPointer
	txa 
	sta <WAPPointer+2

	ldy #ScrapCount
	lda [<WAPPointer],y
	sta <Result

	pld	; restore original direct page

	pla	; get rid of WAPPointer on stack
	pla

	brl ExitNoError

	ENDP


****************************************************************
*
* GetScrapState
*
*              Space for count
*
* Returns the global variable scrap count
*
****************************************************************
	ENTRY GetScrapState
GetScrapState	PROC

OrigD	equ 1
WAPPointer	equ OrigD+2
RTL1	equ WAPPointer+4
RTL2	equ RTL1+3
Result	equ RTL2+3

	phy	; save WAPEntry
	pha
	phd	; save direct page

	tsc
	tcd	; make stack the direct page

	ldy #2	; dereference WAPEntry
	lda [<WAPPointer],y
	tax
	lda [<WAPPointer]
	sta <WAPPointer
	txa 
	sta <WAPPointer+2

	ldy #ScrapState
	lda [<WAPPointer],y
	sta <Result

	pld	; restore original direct page

	pla	; get rid of WAPPointer on stack
	pla

	brl ExitNoError

	ENDP



****************************************************************
*
* GetIndScrap
*
* New call for 6.0   18-Sep-90 DAL
*
* Description:
*
* GetIndScrap(index,bufferPtr)
*              WORD      LONG
*
* Bits 24-31 of bufferPtr are reserved and must currently be 0.
*
* Fills the supplied 10-byte buffer with information on the
* Index-th scrap. The format of the buffer is:
*
*   +000 scrap type   (word)
*   +002 scrap size   (long)
*   +006 scrap handle (long)
*
****************************************************************
GetIndScrap	PROC export

WAPPointer	equ OrigDirect+2
RTL1	equ WAPPointer+4
RTL2	equ RTL1+3
BuffPtr	equ RTL2+3
IndexParm	equ BuffPtr+4

	phy
	pha

	jsr StartScrapCall

	ldy #ScrapState
	lda [<MemPtr],y
	bne @AlreadyInMem
	jsr LoadTheScrap
@AlreadyInMem

	jsr DerefFirstHandle
	lda IndexParm
	beq @notFound
	dec a
	cmp [<scrapTablePtr]
	bcs @notFound

	tay
	lda #2
	iny
@loop	dey
	beq @multiplied
	clc
	adc #ScrapRecSize
	bra @loop
@multiplied	tay

	clc
	tya
	adc <scrapTablePtr
	tay
	lda <scrapTablePtr+2
	adc #0
	pha
	phy
	pei <BuffPtr+2
	pei <BuffPtr
	pea 0
	pea ScrapRecSize
	_BlockMove

	lda #0	;no error
	bra @exit

@notFound	lda #typeError

* error in A
@exit	pha	;save error code
	jsr UnlockFirstHandle
	plx

	jsr EndScrapCall

	ldy #6	;strip 6 bytes of parameters
	brl BusyErr

	ENDP


****************************************************************
*
* ShowClipboard
*
* New call for 6.0.1   17-Aug-92 DAL
*
* Description:
*
* ShowClipboard(flags,@rectangle):@Wind
*                WORD   LONG       LONG
*
* Opens a system window to display the clipboard.  Returns the
* window pointer at the end of the call (nil = not open).
*
* If flag bit 15 is set, open the window (or bring to front if
* already open).
*
* If flag bit 14 is set, close the window if it's open.
*
****************************************************************
*
* The content of the Clipboard window is customizable through
* SendRequest.  The system sends systemSaysDoClipboard, request
* $000C, as follows:
*
* dataIn:
*   +000 Word  actionCode (0=draw contents, 1=hit a control, 2=killing controls)
*   +002 Long  Clipboard window pointer
*   +006 Word  clipVertOffset (top of area to draw in)
*   +008 Word  clipHorOffset (left edge of area to draw in)
*   +010 Word  reasonableMaxWidth
*   +012 Long  controlID of control hit (when actionCode = 1)
*
* dataOut:
*   Defined for action-code = draw only.
*
*   +000 Word  recvCount
*   +002 Word  dataHeight
*   +004 Word  dataWidth
*   +006 Long  clipKindPtr
*
****************************************************************
ShowClipboard	proc export
	phb
	phk
	plb

	phd
	tsc
	tcd

oNDAStructure	equ 24	;offset into auxWindInfo record

@oldD	equ 1
@oldB	equ @oldD+2
@rtl	equ @oldB+1
@rectPtr	equ @rtl+6
@flags	equ @rectPtr+4
@result	equ @flags+2

	bit <@flags
	bvc @dontClose
	lda clipWindow+1
	beq @dontClose	;not open!
	jsr PushWindPtr
	_CloseNDAByWinPtr
@dontClose


	lda <@flags
	bmi @normalOpen
	brl @dontOpen
@normalOpen

*** If the window already exists, just bring it to the front.
	lda clipWindow+1
	beq @noWindow
	jsr PushWindPtr
	_SelectWindow
@toError	brl @error

@noWindow	lda #20	;left edge in 640
	jsr HalfIf320
	sta clipWindRect+2	;left edge
	lda #500-20	;width in 640
	jsr HalfIf320
	adc clipWindRect+2
	sta clipWindRect+6	;right edge

	pha
	pha	;space for NewWindow2
	ldx #0	;handy zero
	phx
	phx	;override title
	phx
	phx	;refcon
	pushlong #UpdateClipWindow
	phx
	phx	;defproc
	pea 0	;ref is pointer
	pushlong #clipWindTemplate
	pea $800E	;rWindParam1
	_NewWindow2
	plx
	ply
	bcs @toError
	stx clipWindow
	sty clipWindow+2

	lda #^kindNull
	sta clipKindPtr+2
	lda #kindNull
	sta clipKindPtr

	pha
	pha
	_GetPort

	jsr PushWindPtr
	_SetSysWindow

	jsr PushWindPtr
	_SetPort

	pea $0004	;use all 16 bits of text colors
	_SetFontFlags

	pea $fffe
	jsr PushWindPtr
	_SetOriginMask

*** stuff a Desk Manager record pointer into the window's AuxWindInfo
	pha
	pha
	jsr PushWindPtr
	_GetAuxWindInfo
	phd
	tsc
	tcd
	ldy #oNDAStructure+2
	lda #^TheNDAStructure
	sta [3],y
	dey
	dey
	lda #TheNDAStructure
	sta [3],y
	pld
	pla
	pla

	jsr ShowMainWindow

	jsr InitKindString

	_SetPort

	pushlong #clipRunQueue
	_AddToRunQ
@dontOpen


@exit	lda #0	;error
@error	ldx clipWindow+2
	stx <@result+2
	ldx clipWindow
	stx <@result

	pld
	plb
	tax
	ldy #6	;strip 6 bytes
	jml $e10184	;ToStrip

PushWindPtr	plx
	pushlong clipWindow
	phx
	rts

;
; ShowMainWindow
;
; Input:  Port is already set to main window, which is invisible.
;
; Animate a zoom-out effect with WhooshRect, and then show the window.
;
ShowMainWindow	name
	pushlong #bigRect
	_GetPortRect

	pushlong #bigRect
	_LocalToGlobal
	pushlong #bigRect+4
	_LocalToGlobal

	pea $8000	;zoom-out flag
	pea 0
	pushlong #smallRect
	pushlong #bigRect
	_WhooshRect

	jsr PushWindPtr
	_ShowWindow
	rts

smallRect	dc.w 14,14,15,15	;tiny rectangle to zoom out from
bigRect	dc.w 0,0,0,0	;window rectangle


clipWindTemplate	dc.w templateEnd-clipWindTemplate
	dc.w $DD90		;plFrame (frame bits)
	dc.l clipTitle		;plTitle
	dc.l $00000000		;plRefCon
	dc.w 0,0,0,0		;plZoomRect
	dc.l $07FF0001		;plColorTable (striped title)
	dc.w 0,0		;plYOrigin, plXOrigin
	dc.w 0,0		;plDataHeight, plDataWidth
	dc.w 0,0		;plMaxHeight, plMaxWidth
	dc.w 10,16		;plVerScroll, plHorScroll
	dc.w 0,0		;plVerPage, plHorPage
	dc.l 0		;plInfoText (info RefCon)
	dc.w 11		;plInfoHeight
	dc.l 0		;plDefProc
	dc.l clipInfoDraw		;plInfoDraw
	dc.l 0		;plContentDraw
clipWindRect	dc.w 120,20,180,500		;plPosition
	dc.l $FFFFFFFF		;plPlane
	dc.l 0		;plControlList (no controls)
	dc.w $0800		;plInDesc
templateEnd

clipTitle	str ' Clipboard '

TheNDAStructure	dc.w 0	;status--not open
	dc.l 0	;open proc
	dc.l ClipCloseProc	;close
	dc.l ClipActionProc	;action
	dc.l 0	;init
	dc.w 0	;period (reserved)
	dc.w $A146	;mask (smart+update+activate+buttonDown+buttonUp)
	dc.l 0	;serviced (reserved)
	dc.l 0	;window (reserved)
	dc.l 0	;handle (reserved)
	dc.w 0	;mem id (Desk Manager sets resource app to this!)


*******************************************************************************
*
* UpdateClipWindow
*
* Port is already set to my window.
*
* Bank and direct page are undefined and must be preserved.
*
*******************************************************************************
UpdateClipWindow	name
	phb
	phk
	plb
	pushlong #hugeRect
	_EraseRect

	jsr UpdateGuts

	plb
	rtl

*******************************************************************************
*
* clipInfoDraw -- draw the clipboard's info bar
*
*******************************************************************************
clipInfoDraw	name

	pea 15
	_SetBackColor
	pea 0
	_SetForeColor

	pea 6
	pea 21
	_MoveTo

	pushlong #clipContentsString
	_DrawCString
	pushlong >clipKindPtr
	_DrawCString

	lda 2,s
	sta 2+12,s
	lda 1,s
	sta 1+12,s
	plx
	plx
	plx
	plx
	plx
	plx
	rtl

clipContentsString	dc.b 'Clipboard contents: ',0
kindNull	dc.b 0	;empty string used when window first appears
kindNone	dc.b 'none',0
kindUnknown	dc.b 'unknown',0
kindText	dc.b 'text',0
kindPict	dc.b 'picture',0
kindSound	dc.b 'sound',0

*******************************************************************************
*******************************************************************************
InitKindString	name
	inc MustRedrawInfoBar

	lda #^kindNone
	sta clipKindPtr+2
	lda #kindNone
	sta clipKindPtr	;anticipate empty clipboard

	pea 1	;try to get first scrap
	pushlong #scrBuffer
	_GetIndScrap
	bcs @noScraps	;error if and only if there are no scraps

	lda #kindUnknown	;anticipate unknown scrap contents
	sta clipKindPtr

@noScraps	rts

scrBuffer	dc.w 0
	dc.l 0
	dc.l 0

*******************************************************************************
*
* UpdateGuts -- draw the clipboard contents
*
*******************************************************************************
UpdateGuts	name
	stz dataHeight
	stz dataWidth

	lda #6
	jsr halfIf320
	sta clipHorOffset

	lda #550
	jsr halfIf320
	sta reasonableMaxWidth

*** first try SendRequest to let the application draw special scrap types
	stz srqDataIn	;0=draw
	pea $000C	;systemSaysDoClipboard
	pea $8000	;to all, stop after one
	pha
	pha	;target=nil
	pushlong #srqDataIn	;inputs
	pushlong #drawDataOut
	_SendRequest
	bcs @rejected
	brl @srqHandled

@rejected

	ldx #displayTableEnd-displayTable-4
@tryOneScrap	phx

	lda displayTable,x
	sta scrapType
	pha
	pha	;space for handle
	pha	;scrap type
	_GetScrapHandle
	plx
	ply
	bcs @tryNext
	sty theScrapHandle+2
	stx theScrapHandle

	pha
	pha
	lda scrapType
	pha
	_GetScrapSize
	pla
	sta scrapSize
	pla
	sta scrapSize+2

	lda 1,s
	tax
	jsr (displayTable+2,x)
	bcs @handled

@tryNext	plx
	dex
	dex
	dex
	dex
	bpl @tryOneScrap

	phx
@handled	plx

@srqHandled

*** If data size changed, set NewDataSizeFlag
	clc
	lda clipHorOffset
	adc dataWidth
	tax
	clc
	lda clipVertOffset
	adc dataHeight

	cmp NewDataHeight
	bne @changed
	cpx NewDataWidth
	beq @unchanged

@changed	stx NewDataWidth
	sta NewDataHeight
	inc NewDataSizeFlag

@unchanged	rts


scrapType	dc.w 0
scrapSize	dc.l 0
theScrapHandle	dc.l 0


*** start of dataIn parameters ***
srqDataIn	dc.w 0	;0=draw, 1=handle control hit, 2=kill controls

clipWindow	dc.l 0

clipVertOffset	dc.w 3
clipHorOffset	dc.w 0	;6 for 640, 3 for 320

reasonableMaxWidth	dc.w 0	;550 for 640, half for 320?

controlID	dc.l 0	;ID of control they clicked in
*** end of dataIn parameters ***


*** start of dataOut "draw" parameters ***
drawDataOut
recvCount	dc.w 0
dataHeight	dc.w 0
dataWidth	dc.w 0
clipKindPtr	dc.l 0
*** end of dataOut parameters ***

displayTable	dc.w textScrap,displayText
	dc.w picScrap,displayPict
	dc.w teStyleScrap,displayTextEdit
	dc.w soundScrap,displaySound
;	dc.w iconScrap,displayIcon
;	dc.w maskScrap,displayMask
;	dc.w colorScrap,displayColor
displayTableEnd

HalfIf320	pha	;original value
	pha	;space for GetMasterSCB
	_GetMasterSCB
	pla
	and #$0080
	bne @ok
	pla
	lsr a
	rts
@ok	pla
	rts


displayText	name

	lda #kindText
	sta clipKindPtr

	lda clipVertOffset
	sta textRect

	lda clipHorOffset
	sta textRect+2		;left edge
	clc
	adc reasonableMaxWidth
	sta textRect+6		;right edge

	phd

	lda theScrapHandle
	ldx theScrapHandle+2
	phx
	pha

	tsc
	tcd

ptr	equ 1

	ldy #4		;Lock text handle.
	lda [<ptr],y
	pha		;(Save handle's state.)
	ora #$8000
	sta [<ptr],y

	dey
	dey
	lda [<ptr],y		;Pass pointer to text.
	pha
	dey
	dey
	lda [<ptr],y
	pha

	lda scrapSize
	pha		;Pass length of text.
	PushLong #textRect
	pea 0		;Left justify.
	_LETextBox2

	ldy #4		;Restore text handle's state.
	pla
	sta [<ptr],y

	pla
	pla
	pld

*** get pen position, return as dataHeight

	pushlong #dataHeight
	_GetPen

	lda reasonableMaxWidth
	sta dataWidth

	sec	;handled
	rts

textRect	dc.w 0,0,16300,0

displayTextEdit	clc
	rts


displaySound	name
	lda #kindSound
	sta clipKindPtr
	jsr CreateSoundControl

*** Display speaker icon
	jsr PushWindPtr
	_DrawControls

*** Show name of sound, if any
	clc
	lda spkrRect+6	;right edge of speaker button
	adc #8
	pha	;x coordinate for sound name
	clc
	lda clipVertOffset
	adc #16-3
	pha
	_MoveTo

	pha
	pha	;space for GetScrapHandle
	pea textScrap
	_GetScrapHandle
	bcs @noName
	phd
	tsc
	tcd
	ldy #4
	lda [3],y
	ora #$8000	;lock handle
	sta [3],y
	dey
	dey
	lda [3],y
	pha
	lda [3]
	pha	;pushed text pointer

	pha
	pha	;space for GetScrapSize
	pea textScrap
	_GetScrapSize
	plx
	pla
	phx	;push size for DrawText
	_DrawText

	pld
@noName	pla
	pla	;dump scrap handle

	pushlong #dataHeight
	_GetPen

	sec
	rts

CreateSoundControl	lda soundIconHandle+1
	bne @alreadyExists

	lda clipHorOffset
	sta spkrRect+2	;left edge
	lda #28*2	;width of speaker icon in 640 mode
	jsr HalfIf320
	adc clipHorOffset
	sta spkrRect+6	;right edge

	clc
	lda clipVertOffset
	sta spkrRect
	adc #20
	sta spkrRect+4

	pha
	pha	;space for control handle
	jsr PushWindPtr
	pea 0	;pointer to template
	pushlong #speakerButton
	_NewControl2
	pla
	sta soundIconHandle
	pla
	sta soundIconHandle+2

@alreadyExists	rts

speakerButton	dc.w 7	;parm count
	dc.l 1	;control ID
spkrRect	dc.w 0,0,0,0	;rectangle
	dc.l $07FF0001	;procRef
	dc.w $0004	;flag = no border
	dc.w $1000	;moreFlag
	dc.l 0	;refcon
	dc.l speakerIcon	;icon pointer

speakerIcon	dc.w $8000
	dc.w spkrMask-spkrImage
	dc.w 20,28
spkrImage	hex FFFFFFFFFFFFFFFFFFFFFFFFFFFF	;image
	hex FFFFFFFFFFFFFFFFFFFFFFFFFFFF
	hex FFFFFFFFFFFFFFFFFFFFFFFFFFFF
	hex FFFFFFFFFFFFFFFFFFFFFFFFFFFF
	hex FFFFFFFFFF0FFFFFFFFFDFFFFFFF
	hex FFFFFFFFF00FFFFFFFEFFDFFFFFF
	hex FFFFFFFF0F0FFFFFAFFEFFDFFFFF
	hex FFFFFFF0FF0FF7FFAFFEFFDFFFFF
	hex FF00000FFF0FFF7FFAFFEFFDFFFF
	hex F0FFFF0FFF0FFF7FFAFFEFFDFFFF
	hex F0FFFF0FFF0FFF7FFAFFEFFDFFFF
	hex F0FFFF0FFF0FFF7FFAFFEFFDFFFF
	hex FF00000FFF0FFF7FFAFFEFFDFFFF
	hex FFFFFFF0FF0FF7FFAFFEFFDFFFFF
	hex FFFFFFFF0F0FFFFFAFFEFFDFFFFF
	hex FFFFFFFFF00FFFFFFFEFFDFFFFFF
	hex FFFFFFFFFF0FFFFFFFFFDFFFFFFF
	hex FFFFFFFFFFFFFFFFFFFFFFFFFFFF
	hex FFFFFFFFFFFFFFFFFFFFFFFFFFFF
	hex FFFFFFFFFFFFFFFFFFFFFFFFFFFF
spkrMask	hex 0000000000000000000000000000	;mask
	hex 0000000000000000000000000000
	hex 0000000000000000000000000000
	hex 0000000000000000000000000000
	hex 0000000000F000000000F0000000
	hex 000000000FF0000000F00F000000
	hex 00000000FFF00000F00F00F00000
	hex 0000000FFFF00F00F00F00F00000
	hex 00FFFFFFFFF000F00F00F00F0000
	hex 0FFFFFFFFFF000F00F00F00F0000
	hex 0FFFFFFFFFF000F00F00F00F0000
	hex 0FFFFFFFFFF000F00F00F00F0000
	hex 00FFFFFFFFF000F00F00F00F0000
	hex 0000000FFFF00F00F00F00F00000
	hex 00000000FFF00000F00F00F00000
	hex 000000000FF0000000F00F000000
	hex 0000000000F000000000F0000000
	hex 0000000000000000000000000000
	hex 0000000000000000000000000000
	hex 0000000000000000000000000000


*** Send a playrSoundSample with GetScrapHandle(soundScrap)
handleSoundClick	name
	pea srqPlayrSoundSample  ;$0006
	pea $8000	;to all + stop after one
	lda #0
	pha
	pha	;target = nil

	pha
	pha	;space for sound handle (dataIn)
	pea soundScrap
	_GetScrapHandle

	lda #0
	pha
	pha	;dataOut = nil
	_SendRequest
	rts

soundIconHandle	dc.l 0	;gets zeroed on SendKillControls


;displayIcon	name
;displayMask	name
;displayColor	name
;	clc	;didn't handle
;	rts


displayPict	name

	lda #kindPict
	sta clipKindPtr

	ldx theScrapHandle+2
	lda theScrapHandle
	phx
	pha	;picture handle for DrawPicture
	phx
	pha	;picture handle for HandToPtr
	pushlong #pictSCB	;dest for HandToPtr
	pushlong #10	;SCB word + rectangle
	_HandToPtr

	pushlong #pictRectangle
	lda pictRectangle+2
	eor #$ffff
	inc a
	pha
	lda pictRectangle
	eor #$ffff
	inc a
	pha
	_OffsetRect	;offset rectangle to (0,0)

	pushlong #pictRectangle
	lda clipHorOffset
	pha
	lda clipVertOffset
	pha
	_OffsetRect

	lda pictRectangle+4	;bottom of rectangle
	sta dataHeight
	lda pictRectangle+6	;right edge of rectangle
	sta dataWidth

	pushlong #pictRectangle
	_DrawPicture

	sec
	rts

pictSCB	dc.w 0
pictRectangle	dc.w 0,0,0,0


*******************************************************************************
*
* ClipCloseProc
*
*******************************************************************************
ClipCloseProc	name
	phb
	phk
	plb

	pushlong #clipRunQueue
	_RemoveFromRunQ

	lda clipWindow+1
	beq @notOpen

	jsr SendKillControls

	pha
	pha
	_GetPort
	jsr PushWindPtr
	_SetPort

	pushlong #bigRect
	_GetPortRect

	pushlong #bigRect
	_LocalToGlobal
	pushlong #bigRect+4
	_LocalToGlobal

	_SetPort

	jsr PushWindPtr
	_CloseWindow
	stz clipWindow
	stz clipWindow+2

*** added 14-Sep-92 DAL
	stz NewDataWidth
	stz NewDataHeight
*** end 14-Sep-92

	lda #0
	pha
	pha	;zoom-in flag
	pushlong #smallRect
	pushlong #bigRect
	_WhooshRect

@notOpen	plb
	rtl

*******************************************************************************
*******************************************************************************
*
* clipRunQueue -- simulate a runAction
*
*******************************************************************************
clipRunQueue	dc.l 0	;link
	dc.w 70	;period (every 70 ticks)
	dc.w $a55a	;signature
	dc.l 0	;reserved
	lda #2	;runAction
; fall into ClipActionProc

*******************************************************************************
*
* ClipActionProc
*
* A=action
* YX=pointer
*
*******************************************************************************
ClipActionProc	name
	phd
	phb
	phk
	plb
	pha	;action = <5
	phy	;ptr high = <3
	phx	;ptr low = <1
	tsc
	tcd

actionPtr	equ 1
actionCode	equ actionPtr+4

	pha
	pha
	_GetPort	;leave old port on stack
	jsr PushWindPtr
	_SetPort

	lda <actionCode
	asl a
	tax
	cmp #actionEnd-actionTable
	bcs @tooBig
	jsr (actionTable,x)
@tooBig	_SetPort	;restore old port

	plx	;pull ptr low
	plx	;pull ptr high
	plx	;pull action
	plb
	pld
	lda #0	;return value
	rtl

actionTable	dc.w null	;0 = unused
	dc.w doEvent	;1 = eventAction
	dc.w doRun	;2 = runAction
	dc.w doCursor	;3 = cursorAction
	dc.w null	;4 = unused
	dc.w doUndo	;5 = undoAction
	dc.w doCut	;6 = cutAction
	dc.w doCopy	;7 = copyAction
	dc.w doPaste	;8 = pasteAction
	dc.w doClear	;9 = clearAction
actionEnd

*******************************************************************************
*
* Boring actions received by the Clipboard window
*
*******************************************************************************
doCursor
doUndo
doCut
doCopy
doPaste
doClear
null	rts

*******************************************************************************
*
* doRun -- run event received by the Clipboard window
*
* Bank register is set to our bank, and port is set to our window.
*
*******************************************************************************
doRun	name
	pha
	_GetScrapCount
	pla
	cmp oldScrapCount
	sta oldScrapCount
	beq @boring

	jsr SendKillControls
	jsr PushWindPtr
	_KillControls	;zap all controls (ours or theirs)

	lda #0
	pha
	pha
	jsr PushWindPtr
	_SetContentOrigin

	pushlong #hugeRect
	_InvalRect

	jsr InitKindString

@boring	rts

hugeRect	dc.w 0,0,$3000,$3000
oldScrapCount	dc.w 0	;scrap count value at last check
MustRedrawInfoBar	dc.w 0	;flag to redraw info bar after updating


*
* SendKillControls -- Tell request procs their controls are going away
*
SendKillControls	lda #2	;kill controls
	sta srqDataIn
	pea $000C
	lda #0
	pha	;how = to all
	pha
	pha	;target = nil
	pushlong #srqDataIn
	pha
	pha	;dataOut = nil
	_SendRequest
	stz SoundIconHandle+2
	stz SoundIconHandle
	rts

*******************************************************************************
*
* doEvent -- Event Manager event received by the Clipboard window
*
*******************************************************************************
doEvent	pei <actionPtr+2
	pei <actionPtr
	pushlong #myTaskRec
	pushlong #16
	_BlockMove

	pha	;result space
	pha	;input mask (ignored)
	pushlong #myTaskRec
	_TaskMasterDA
	pla
	jsr HandleClicks

	lda myTaskRec
	cmp #6	;updateEvt
	bne @noInfoDraw
	lda MustRedrawInfoBar
	beq @noInfoDraw
	stz MustRedrawInfoBar
	jsr PushWindPtr
	_DrawInfoBar
@noInfoDraw
	jsr UpdateDataSize
@exit	rts

*
* HandleClicks -- pass control or content hits to SendRequest & internal routines
*
* Input: A = TaskMasterDA result
*
HandleClicks	cmp #wInControl
	bne @boring

	lda myTaskData4+2
	sta controlID+2
	lda myTaskData4
	sta controlID

	lda #1	;click in a control
	sta srqDataIn
	pea $000C
	pea $8000	;how = to all, stop after one
	lda #0
	pha
	pha	;target = nil
	pushlong #srqDataIn
	pha
	pha	;dataOut = nil
	_SendRequest
	bcc @handled

	jsr HandleSoundClick
@handled
@boring	rts

;
; Task Record
;
myTaskRec
myTaskWhat	dc.w 0
myTaskMsg	dc.l 0
	dc.l 0	;when
myTaskWhere	dc.w 0,0
myTaskMods	dc.w 0
myTaskData	dc.l 0
myTaskMask	dc.l $001fffff	;everything (5.0.3)
	dc.l 0	;lastClickTick
myClickCount	dc.w 0	;click count
myTaskData2	dc.l 0	;task data 2
myTaskData3	dc.l 0	;task data 3
myTaskData4	dc.l 0	;task data 4
	dc.w 0,0	;last click point

*******************************************************************************
*
* UpdateDataSize
*
* If we computed a new data size for the window, set it now.  (Can't call
* SetDataSize from inside the content draw proc.)
*
*******************************************************************************
UpdateDataSize	name
	lda NewDataSizeFlag
	beq @exit

	pha
	pha
	_GetPort	;preserve port
	jsr PushWindPtr
	_SetPort

	lda NewDataWidth
	sta myZoomRect+6
	pha
	lda NewDataHeight
	sta myZoomRect+4
	pha
	jsr PushWindPtr
	_SetDataSize
	stz NewDataSizeFlag

	jsr PushWindPtr
	_SetPort

	stz myZoomRect
	stz myZoomRect+2
	pushlong #myZoomRect
	_LocalToGlobal
	pushlong #myZoomRect+4
	_LocalToGlobal

;	pushlong #myZoomRect
;	jsr PushWindPtr
;	_SetZoomRect

	_SetPort

@exit	rts

myZoomRect	dc.w 0,0,0,0

NewDataSizeFlag	dc.w 0
NewDataWidth	dc.w 0
NewDataHeight	dc.w 0

	EndP

****************************************************************
****************************************************************
*
* StartScrapCall
*
* This routine sets	up direct page, adjusts the stack and
* data bank, calls inc busy flag in preparation for the
* start of a Scrap Manager call.
*
****************************************************************
	ENTRY StartScrapCall
StartScrapCall	PROC

	ply	; get rts addr in y

	phd	; save direct reg
	tsc	; and get my zero page off stack
	sec
	sbc #StdZPSize
	tcs
	tcd

	phb	; save data bank
	phk	; set data bank to
	plb	; code bank

	lda StdZPSize+4,s
	sta <MemHandle
	lda StdZPSize+6,s
	sta <MemHandle+2

	phy	; put rts back on the stack

	ldy #4	; deref and lock MemHandle
	lda [<MemHandle],y
	ora #$8000
	sta [<MemHandle],y
	dey
	dey
	lda [<MemHandle],y
	tax
	lda [<MemHandle]
	sta <MemPtr
	stx <MemPtr+2

	jsl IncBusyFlg

	rts

	ENDP


****************************************************************
*
* EndScrapCall
*
* This routine restores direct page and	data bank, and adjusts
* adjusts the stack	to undo everything that startScrapCall
* did.
*
* Note:  DecBusyFlg	is done by the end call routine.
*
****************************************************************
	ENTRY EndScrapCall
EndScrapCall	PROC

	ldy #4	; unlock MemHandle
	lda [<MemHandle],y
;;;	and #$7FFF
	asl a	;17-Aug-92 DAL
	lsr a	;17-Aug-92 DAL
	sta [<MemHandle],y

	ply	; save rts addr in y

	plb
	tsc
	clc
	adc #StdZPSize
	tcs

	lda 1,s	; save direct page
	sta 5,s	; overwrite the high word of WAPEntry on stack
	pla	; get rid of direct	page still on stack	                
	pla	; get rid of low word of WAPEntry
	phy	; put rts back on stack

	rts

	ENDP


****************************************************************
*
* Scrap Utility Routines
*
****************************************************************

	ENTRY DerefFirstHandle
DerefFirstHandle	PROC

	ldy #FirstScrapHandle
	lda [<MemPtr],y
	sta <ScrapTablePtr
	iny
	iny
	lda [<MemPtr],y
	sta <ScrapTablePtr+2

	ldy #4
	lda [<ScrapTablePtr],y
	ora #$8000
	sta [<ScrapTablePtr],y
	dey
	dey
	lda [<ScrapTablePtr],y
	tax
	lda [<ScrapTablePtr]
	sta <ScrapTablePtr
	stx <ScrapTablePtr+2

	rts

	ENDP


	ENTRY UnlockFirstHandle
UnlockFirstHandle	PROC

	ldy #FirstScrapHandle
	lda [<MemPtr],y
	sta <ScrapTablePtr
	iny
	iny
	lda [<MemPtr],y
	sta <ScrapTablePtr+2

	ldy #4
	lda [<ScrapTablePtr],y
	and #$7FFF
	sta [<ScrapTablePtr],y

	rts

	ENDP


	ENTRY DerefDest
DerefDest	PROC

	ldy #4
	lda [<DestHandle],y
	ora #$8000
	sta [<DestHandle],y
	dey
	dey
	lda [<DestHandle],y
	sta <DestPtr+2
	lda [<DestHandle]
	sta <DestPtr

	rts

	ENDP


	ENTRY UnlockDest
UnlockDest	PROC

	ldy #4
	lda [<DestHandle],y
	and #$7FFF
	sta [<DestHandle],y

	rts

	ENDP


****************************************************************
*
* FindThisType
*
* We search through	the scrap table for	a scrap record of
* the type passed in the a register.
*
* If we find it, we	return with the carry clear and the
* variable OffsetToThisOne set on zero page.
*
* If we do not find	it we return with carry set.
*
****************************************************************
	ENTRY FindThisType
FindThisType	PROC

	pha	; store the type to	find on the stack

	ldy #2	; y points to first	scrap record
	ldx #1	; x is count

KeepLooking		;
	txa	; compare count to num scrap records
	cmp [<ScrapTablePtr]
	beq LastItem
	bcs NotInTable

LastItem	lda [<ScrapTablePtr],y ; get the type of this scrap record
	cmp 1,s	; compare to value on stack
	beq FoundIt

	tya	; bump y by size of	record
	clc
	adc #ScrapRecSize
	tay
	inx	; bump count by 1
	bra KeepLooking


FoundIt	pla	; carry is clear here
	sty <OffsetToThisOne
	stz <OffsetToThisOne+2
	clc
	rts

NotInTable	pla	; carry is set here
	rts

	ENDP


	eject
****************************************************************
*
* DisposeAllScraps
*
* Traverses through	the scrap table disposing of all the
* handles in each scrap record.
*
* The ScrapTablePtr	must already be setup on zero page
* when this is called.
*
****************************************************************
	ENTRY DisposeAllScraps
DisposeAllScraps	PROC

	jsr DerefFirstHandle

	ldy #2+o_ScrapHandle ; y points to first scrap record
	ldx #0	; x is count, DAN H. (to do last one)

KeepLooking		;
	txa	; compare count to num scrap records
	cmp [<ScrapTablePtr]
	bcs TableComplete

	phx	; save x and y
	phy
	pea 0
	pea 0
	lda [<ScrapTablePtr],y ; get the type of this scrap record
	sta 1,s
	iny
	iny
	lda [<ScrapTablePtr],y
	sta 3,s

	_Disposehandle
	bcs ERROR

	ply	; get back x and y
	plx

	tya	; bump y by size of	record
	clc
	adc #ScrapRecSize
	tay
	inx	; bump count by 1
	bra KeepLooking


TableComplete

	jsr UnlockFirstHandle

	PushLong #2
	ldy #FirstScrapHandle+2
	lda [<MemPtr],y
	pha
	dey
	dey
	lda [<MemPtr],y
	pha
	_SetHandleSize
	bcs ERROR2

	jsr DerefFirstHandle
	lda #0
	sta [<ScrapTablePtr]
	jsr UnlockFirstHandle

	clc
	rts

ERROR	ply
	plx
ERROR2	rts

	ENDP


	eject
****************************************************************
*
* DeleteClipboard
*
* Deletes the clipboard file (if it exists).
*
****************************************************************
	ENTRY DeleteClipBoard
DeleteClipBoard	PROC

	ldy #ScrapName
	lda [<MemPtr],y
	ldy #DestroyPath
	sta [<MemPtr],y
	ldy #ScrapName+2
	lda [<MemPtr],y
	ldy #DestroyPath+2
	sta [<MemPtr],y

	lda <MemPtr
	clc
	adc #DestroyParams
	tax
	lda <MemPtr+2
	adc #0
	pha
	phx

	pea DestroyCall
	jsl StackProDOS

	rts

	ENDP


	eject
****************************************************************
*
* LoadTheScrap
*
* Loads the scrap from the clipboard file and creates the
* appropriate scrap	table in memory.
*
*
* The scrap is read	into memory as follows:
*
*      First, the ScrapTable is read from disk as is (this
*      includes the	handles which are no longer valid but
*      serve as place holders).
*
*      Then each scrap is read out.
*
****************************************************************
	ENTRY LoadTheScrap
LoadTheScrap	PROC

	ldy #CloseParams
	lda #0
	sta [<MemPtr],y

;----------------------------------------------------
;
; Open the file and	copy the ID's
;
	ldy #ScrapName
	lda [<MemPtr],y
	ldy #OpenPath
	sta [<MemPtr],y
	ldy #ScrapName+2
	lda [<MemPtr],y
	ldy #OpenPath+2
	sta [<MemPtr],y

	lda <MemPtr
	clc
	adc #OpenParams
	tax
	lda <MemPtr+2
	adc #0
	pha
	phx

	pea OpenCall
	jsl StackProDOS

	bcc OpenOK
	jmp ERROR

OpenOK

;----------------------------------------------------
;
; Read in the number of entries in the scrap table
;
	lda <MemPtr
	clc
	adc #NumEntries
	ldy #ReadTo
	sta [<MemPtr],y

	lda <MemPtr+2
	adc #0
	iny
	iny
	sta [<MemPtr],y

	lda #2
	ldy #ReadAmount
	sta [<MemPtr],y
	iny
	iny
	lda #0
	sta [<MemPtr],y

	lda <MemPtr
	clc
	adc #ReadParams
	tax
	lda <MemPtr+2
	adc #0
	pha
	phx

	pea ReadCall
	jsl StackProDOS

	bcc ReadOK

	jmp ERROR
ReadOK

;----------------------------------------------------
;
; Calculate the size of the scrap table	record.
; and how much more	needs to be read.
;
	pha
	pha
	ldy #NumEntries
	lda [<MemPtr],y
	pha
	PushWord #ScrapRecSize
	_Multiply
	lda 1,s
	ldy #ReadAmount
	sta [<MemPtr],y
	clc
	adc #2
	sta 1,s
	lda 3,s
	iny
	iny
	sta [<MemPtr],y
	bcc NoCarry
	inc a
	sta 3,s
NoCarry

	ldy #FirstScrapHandle+2
	lda [<MemPtr],y
	pha
	dey
	dey
	lda [<MemPtr],y
	pha
	_SetHandleSize
	bcc SizeOK
	jmp ERROR
SizeOK

	jsr DerefFirstHandle

	ldy #NumEntries
	lda [<MemPtr],y
	sta [<ScrapTablePtr]

	lda <ScrapTablePtr
	clc
	adc #2
	ldy #ReadTo
	sta [<MemPtr],y
	lda <ScrapTablePtr+2
	bcc NoCarry2
	inc a
NoCarry2	iny
	iny
	sta [<MemPtr],y

	lda <MemPtr
	clc
	adc #ReadParams
	tax
	lda <MemPtr+2
	adc #0
	pha
	phx

	pea ReadCall
	jsl StackProDOS

	bcs ERROR

;----------------------------------------------------
;
; Now read in individual scraps.
;
	lda <ScrapTablePtr
	clc
	adc #2
	sta <PtrToThisOne
	lda <ScrapTablePtr+2
	bcc NoCarry3
	inc a
NoCarry3	sta <PtrToThisOne+2

	lda #0

Loop	cmp [<ScrapTablePtr]
	bcs AllDone

	pha
	jsr ReadInThisOne
	bcs ERROR2

	lda <PtrToThisOne
	clc
	adc #ScrapRecSize
	sta <PtrToThisOne
	lda <PtrToThisOne+2
	bcc NoCarry4
	inc a
NoCarry4	sta <PtrToThisOne+2

	pla
	inc a
	bra Loop

AllDone

;----------------------------------------------------
;
; Close it all down.
;
	lda <MemPtr
	clc
	adc #CloseParams
	tax
	lda <MemPtr+2
	adc #0
	pha
	phx

	pea CloseCall
	jsl StackProDOS

;----------------------------------------------------
;
; Set flag to indicate that clipboard is in memory
;

	lda #1
	ldy #ScrapState
	sta [<MemPtr],y


;----------------------------------------------------
;
; Unlock the scrap table
;
	jsr UnlockFirstHandle



;----------------------------------------------------
;
; Delete the file
;
	jsr DeleteClipboard

	lda #0
	clc

	rts

ERROR2	plx
ERROR	pha	; save error code

	ldy #CloseParams	;14-Jan-91 DAL (added)
	lda [<MemPtr],y	;14-Jan-91 DAL
	beq @NeverCloseZero	;14-Jan-91 DAL

	lda <MemPtr	; close the clipboard file just in case its
	clc	; been left open. 
	adc #CloseParams	; HY 5/6/88
	tax
	lda <MemPtr+2
	adc #0
	pha
	phx

	pea CloseCall
	jsl StackProDOS

@NeverCloseZero		;added 14-Jan-91 DAL

	jsr UnlockFirstHandle
	pla	; get back error code
	sec	; signal error
	rts

	ENDP

	eject
****************************************************************
*
* ReadInThisOne
*
* Reads the scrap whose table entry is pointed to by
* PtrToThisOne from	the open file.
*
* If the amount to read is greater than	64K it is read in 64K
* chunks since prodos cannot read more than that at once.
*
* Returns any error	in a-reg.
*
****************************************************************
	ENTRY ReadInThisOne
ReadInThisOne	PROC

	pha
	pha
	ldy #o_ScrapSize+2
	lda [<PtrToThisOne],y
	pha
	ldy #HowMuchToRead+2
	sta [<MemPtr],y
	ldy #o_ScrapSize
	lda [PtrToThisOne],y
	pha
	ldy #HowMuchToRead
	sta [<MemPtr],y

	PushWord #ScrapUserID
	PushWord #ScrapAttributes
	pha
	pha
	_NewHandle
	bcc NoError

	plx
	plx
	rts


NoError	pla
	sta <DestHandle
	ldy #o_Scraphandle
	sta [<PtrToThisOne],y
	pla
	sta <DestHandle+2
	iny
	iny
	sta [<PtrToThisOne],y

	jsr DerefDest
	lda <DestPtr
	ldy #ReadTo
	sta [<MemPtr],y
	lda <DestPtr+2
	iny
	iny
	sta [<MemPtr],y

	ldy #HowMuchToRead+2	;added 18-Nov-90 DAL
	lda [<MemPtr],y		;added 18-Nov-90 DAL
	ldy #ReadAmount+2		;added 18-Nov-90 DAL
	sta [<MemPtr],y		;added 18-Nov-90 DAL
	ldy #HowMuchToRead		;added 18-Nov-90 DAL
	lda [<MemPtr],y		;added 18-Nov-90 DAL
	ldy #ReadAmount		;added 18-Nov-90 DAL
	sta [<MemPtr],y		;added 18-Nov-90 DAL

	lda <MemPtr
	clc
	adc #ReadParams
	tax
	lda <MemPtr+2
	adc #0
	pha
	phx

	pea ReadCall
	jsl StackProDOS

Error	php
	pha
	jsr UnlockDest
	pla
	plp

	rts

	ENDP


	eject
****************************************************************
*
* WriteOutScrap
*
* Writes the scrap in memory to disk.  Disposes of scrap in
* memory.
*
* The scrap in memory is written as follows:
*
*      First, the ScrapTable is written	out as it is (this
*      includes the	handles which won't be valid later but
*      serve as place holders).
*
*      Then each scrap is written out.
*
****************************************************************
	ENTRY WriteOutScrap
WriteOutScrap	PROC

;----------------------------------------------------
;
; First delete anything that may be there.
;
	jsr DeleteClipboard

;----------------------------------------------------
;
; Now create a new clipboard file
;
	ldy #ScrapName
	lda [<MemPtr],y
	ldy #CreatePath
	sta [<MemPtr],y
	ldy #ScrapName+2
	lda [<MemPtr],y
	ldy #CreatePath+2
	sta [<MemPtr],y

	lda #$C3
	ldy #CreateAccess
	sta [<MemPtr],y

	lda #ClipFileType
	ldy #CreateFileType
	sta [<MemPtr],y

	lda #0
	ldy #CreateAuxType
	sta [<MemPtr],y
	iny
	iny
	sta [<MemPtr],y

	lda #1
	ldy #CreateStType
	sta [<MemPtr],y

	lda #0
	ldy #CreateDate
	sta [<MemPtr],y

	ldy #CreateTime
	sta [<MemPtr],y

	lda <MemPtr
	clc
	adc #CreateParams
	tax
	lda <MemPtr+2
	adc #0
	pha
	phx

	pea CreateCall
	jsl StackProDOS

	bcc NoCreError
	jmp Error
NoCreError


;----------------------------------------------------
;
; Open the file and	copy the IDs
;
	ldy #ScrapName
	lda [<MemPtr],y
	ldy #OpenPath
	sta [<MemPtr],y
	ldy #ScrapName+2
	lda [<MemPtr],y
	ldy #OpenPath+2
	sta [<MemPtr],y

	lda <MemPtr
	clc
	adc #OpenParams
	tax
	lda <MemPtr+2
	adc #0
	pha
	phx

	pea OpenCall
	jsl StackProDOS

	bcc NoOpenErr
	jmp ERROR

NoOpenErr

;----------------------------------------------------
;
; Write out the scrap table

	jsr DerefFirstHandle
	lda <ScrapTablePtr
	ldy #WriteFrom
	sta [<MemPtr],y
	iny
	iny
	lda <ScrapTablePtr+2
	sta [<MemPtr],y

	pha
	pha
	ldy #FirstScrapHandle+2
	lda [<MemPtr],y
	pha
	dey
	dey
	lda [<MemPtr],y
	pha
	_GetHandleSize
	bcs ERROR

	pla
	ldy #WriteAmount
	sta [<MemPtr],y
	pla
	iny
	iny
	sta [<MemPtr],y

	lda <MemPtr
	clc
	adc #WriteParams
	tax
	lda <MemPtr+2
	adc #0
	pha
	phx

	pea WriteCall
	jsl StackProDOS

	bcs ERROR

;----------------------------------------------------
;
; Now write out individual scraps.
;
	lda <ScrapTablePtr
	clc
	adc #2
	sta <PtrToThisOne
	lda <ScrapTablePtr+2
	bcc NoCarry
	inc a
NoCarry	sta <PtrToThisOne+2

	lda #0

Loop	cmp [<ScrapTablePtr]
	bcs AllDone

	pha
	jsr WriteOutThisOne
	bcs ERROR2

	lda <PtrToThisOne
	clc
	adc #ScrapRecSize
	sta <PtrToThisOne
	lda <PtrToThisOne+2
	bcc NoCarry2
	inc a
NoCarry2	sta <PtrToThisOne+2

	pla
	inc a
	bra Loop

AllDone

;----------------------------------------------------
;
; Close it all down.
;
	lda <MemPtr
	clc
	adc #CloseParams
	tax
	lda <MemPtr+2
	adc #0
	pha
	phx

	pea CloseCall
	jsl StackProDOS

;----------------------------------------------------
;
; Set flag to indicate that clipboard is on disk
;
	ldy #ScrapState
	lda #0
	sta [<MemPtr],y

;----------------------------------------------------
;
; Unlock the scrap table
;
	jsr UnlockFirstHandle

;----------------------------------------------------
;
; Get rid of the memory copies of everything.
;
	jsr DisposeAllScraps

	lda #0	; signal no error
	clc

	rts

ERROR2	plx	; clean the stack
ERROR	pha	; save error code
	jsr UnlockFirstHandle
	pla	; get back error code
	sec	; signal error
	rts

	ENDP


	eject
****************************************************************
*
* WriteOutThisOne
*
* Writes the scrap whose table entry is	pointed to by
* PtrToThisOne to the open file.
*
* If the scrap is larger than 64K it writes it out in 64K
* pieces since ProDOS cannot handle any	more.
*
* Returns any error	in a-reg.
*
* Change History
*
* 12 Aug 88	Steven Glass
*
* The closefile call was pushing the wrong pointer
* to the file ref num and leaving the file open.
*
* Subsequent calls to read the scrap would fail because
* of file aready open.
* 
****************************************************************
	ENTRY WriteOutThisOne
WriteOutThisOne	PROC

	ldy #o_ScrapHandle
	lda [<PtrToThisOne],y
	sta <DestHandle
	iny
	iny
	lda [<PtrToThisOne],y
	sta <DestHandle+2

	jsr DerefDest
	lda <DestPtr
	ldy #WriteFrom
	sta [<MemPtr],y
	lda <DestPtr+2
	iny
	iny
	sta [<MemPtr],y

	ldy #o_ScrapSize
	lda [<PtrToThisOne],y
	ldy #HowMuchToWrite
	sta [<MemPtr],y
	ldy #o_ScrapSize+2
	lda [PtrToThisOne],y
	ldy #HowMuchToWrite+2
	sta [<MemPtr],y

	ldy #HowMuchToWrite+2
	lda [<MemPtr],y
	ldy #WriteAmount+2
	sta [<MemPtr],y
	ldy #HowMuchToWrite
	lda [<MemPtr],y
	ldy #WriteAmount
	sta [<MemPtr],y

	lda <MemPtr
	clc
	adc #WriteParams
	tax
	lda <MemPtr+2
	adc #0
	pha
	phx

	pea WriteCall
	jsl StackProDOS

Error	php
	pha
	jsr UnlockDest
	pla
	plp

	rts

	EndP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Scrap/special.macros b/IIGS.601.SRC/GSToolbox/Scrap/special.macros
new file mode 100644
index 0000000..31eb43d
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Scrap/special.macros
@@ -0,0 +1 @@
+ MACRO
&lab moveword &from,&to1,&to2
 LCLC &C
&C setc &substr(&from,1,1)
 IF &C='[' GOTO .zeropage
&lab lda &from
 sta &to1
 IF &to2='' GOTO .a
 sta &to2
.a
 MEXIT
.zeropage
 IF &to1='0' GOTO .b
&lab ldy #&to1
 lda &from,y
 sta &to2
 MEXIT
.b
&lab lda &from
 sta &to2
 MEND
 
 MACRO
&lab movelong &from,&to1,&to2
 LCLC &C
 LCLC &REST
&C setc &substr(&from,1,1)
&REST setc &substr(&from,2,&LEN(&from)-1)
 IF &C='[' GOTO .zeropage
 IF &to2='' GOTO .a
&lab moveword &from,&to1,&to2
 GOTO .b
.a
&lab moveword &from,&to1
.b
 IF &C='#' GOTO .immediate
 IF &to2='' GOTO .c
 moveword &from+2,&to1+2,&to2+2
 MEXIT
.c
 moveword &from+2,&to1+2
 MEXIT
.immediate
 IF &to2='' GOTO .d
 moveword #^&REST,&to1+2,&to2+2
 MEXIT
.d
 moveword #^&REST,&to1+2
 MEXIT
.zeropage
&lab moveword &from,&to1,&to2
 ldy #&to1+2
 lda &from,y
 sta &to2+2
 MEND

 MACRO
&lab _GETFILEINFO &params
&lab jsl $E100A8
 dc.W $6
 dc.L &params
 MEND

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Sound/EndCall.aii b/IIGS.601.SRC/GSToolbox/Sound/EndCall.aii
new file mode 100644
index 0000000..cc7087e
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Sound/EndCall.aii
@@ -0,0 +1 @@
+	TITLE 'End call routine'
	EJECT
********************************************************
*
* Endcall: This routine will move 6 bytes (2 RTL addresses) up the
*          stack.  This call will preserve the Direct register and
*          accumulator.
*
*     Import:
*            A = error code
*            P = status flag
*            X = number of BYTES to strip
*
*     Export:
*            A = error code
*            P = status flag
*
********************************************************
;
;
	LONGA ON 	;
	LONGI ON 	;
Endcall		;
	pld 	; restore direct register
Oendcall		; endcall w/o restore dir. reg
	ldx #$0000	; successful call
	bra oerrout	;
Errout		;
	pld 	;
oerrout		;
	tya 	; save the byte count
	txy 	; save error code
	tax 	; get the count back
	cpx #$0000	; check for no movement
	beq no_games	; nothing to move
	php 	; save the micro status
	phd 	; save direct register
	tsc 	; get stack pointer
	pha 	; set new direct register
	pld 	;
	lda $08,s	; get a word 1 off the stack
	sta $08,x	; move it up x number of bytes
	lda $06,s	; get word 2 off the stack
	sta $06,x	; move it up x number of bytes
	lda $04,s	; get word three of the stack
	sta $04,x	; move it up x number of bytes
	tsc 	; save stack ptr position
	sta $04,s	;
	txa 	; get the byte count
	clc 	; calculate new stack pointer
	adc $04,s	; new stack pointer
	adc #$0003	; skip stat. & direct register
	pld 	; restore direct register
	plp 	; restore status register
	tcs 	; point to new stack location
no_games		;
	tya 	; restore error code
	cmp #$01	; set carry if an error
	bcc @1	; everybody happy
	ora #sound_tool*256
@1		;
	rtl 	; >>>--- exit endcall --->>>
;
;
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Sound/SOUND.AII b/IIGS.601.SRC/GSToolbox/Sound/SOUND.AII
new file mode 100644
index 0000000..9a594fc
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Sound/SOUND.AII
@@ -0,0 +1 @@
+****************************************************************
*
* Sound Tools
*
* Copyright Apple Computer, Inc.  1986-1989
* All Rights Reserved
*
* This file implements the low level sound tool set.
* It has one entry point, the SoundCallTable.
*
* Change History
*
* 09 Jun 88	Mike Askins and Steven Glass
*
* Code converted from EDASM to MAX
*
* 10 Jun 88	Steven Glass
*
* Call table made public.
* Fill bytes removed at end of file.
*
*
* 29 Jun 88	Matt Denman
*
* Added init of MidiInputPoll (makes it an RTL) in SBoot.
*
* 7 July 88	Matt Denman
*
* Deleted equ * at labels.  Hopefully my labels will be found now.
*
* 25 July 88	Matt Denman
*
* Deleted * seq statements and don't use code_bank equate any more.
*
*
* 04 Aug 88	Steven Glass
*
* Removed all uses of the macro ToolCall and replace them with
* the official macro.
*
* Fixed a number of attempts to push a long address on the
* stack that was done with a pea SoundTools+2 instead of
* using the PushLong macro.
*
* 12 Sept 88	Matt Denman
*
* Added three new calls.  FFSetUpSound, FFStartPlaying and FFSetUpParams.
*
* 13 March 89	Harry Yee
*
* Initialize the old MidiInputPoll vector ($E11DD8) to an RTL. We were
* breaking some apps because the old Note Synthesizer and new sound tool
* were not compatible. This old vector is used by the serial firmware
* and gets initialized when the app gets ready to print. So initializing this
* old vector does not hurt printing because this vector just gets reinitialized
* when printing takes place. We just want to make these apps work as long
* as possible (i.e. until printing takes place)
*
*
* 2/7/90	Mark Cecys
* BUG FIX: 'LastBlock' bit was not getting set when 'NextWave' is used. Fixed bug in
* "ServeGen.aii".
*
****************************************************************
	print off
	include 'all.macros'
	include 'E16.MIDI'
	include 'snd.equ.aii'
	
	TITLE 'Cortland Sound Firmware'
	EJECT
	import StartSound
	import SetupSound
	import serve_gen
	import fsynth_irq
	import illmode_error
	import SStartup
	import SStart_Stat
	import StopSound
	import Sound_Status
	import Gen_Stat
	import StartPlaying
	import SetUpParam
	import ReadParam
	
	print on, nogen, nomdir, nohdr


SoundTools	PROC

	EJECT
************************************************************
*
* the Sound Tools Function Pointer Table
*
************************************************************
*
	Export SoundCallTable
SoundCallTable
STFPT	DC.W (EndSFPT-STFPT)/4	
	DC.W 0	; for 32 bit count
	DC.L SBoot-1	; 1: power-up init
	DC.L SStartup-1	; 2: appl startup
	DC.L SShutdn-1	; 3: appl shutdown
	DC.L STVer-1	; 4: return version info
	DC.L SReset-1	; 5: Reset entry
	DC.L sstart_stat-1	; 6: tool status
	DC.L NotImp-1	; 7: reserved entry
	DC.L NotImp-1	; 8: reserved entry
	DC.L WriteEblock-1	; 9: move data from RAM to SRAM
	DC.L ReadEblock-1	; A: move data from SRAM to RAM
	DC.L EntryVect-1	; B: return entry table address
	DC.L GetVolume-1	; C: Get a volume level
	DC.L SetVolume-1	; D: Set a volume level
	DC.L StartSound-1	; E: start sounding
	DC.L StopSound-1	; F: stop sounding
	DC.L sound_status-1	; 10: active generators word
	DC.L Gen_stat-1	; 11: generator busy?
	DC.L Smirq-1	; 12: set sound interrupt vector
	DC.L suirq-1	; 13 set user synthesizer vector
	DC.L gen_ctrl_bytes-1 ; 14 read generator control bytes
	DC.L SetUpSound-1	; 15 same as soundstart but doesn't start the gen.
	DC.L StartPlaying-1 ; 16 Start specified generators running.
	DC.L SetUpParam-1	; 17 Set first two byte of GCB and doc reg as spec.
	DC.L ReadParam-1	; 18 Read the DocRam into paramater block.
;           Ram based sound tools go here
;
;
EndSFPT		; 


	EJECT
	LONGA ON 	; assume native m=0, x=0
	LONGI ON 	;
************************************************************
*
* SBoot is system power-up entry.
* It erases the 64K SRAM to all $80 (the DAC Midval)
* and inits the DOC registers
*
*
* Change History
*
* 29 Jun 88	Matt Dennman
*
* Added init of MidiInputPoll (makes it an RTL)
*
************************************************************
*
Sboot		;
	php 	; no interruptions
	sei 	;

	lda #$6B	; RTL
	sta MidiInputPoll
	sta >$E11DD8

	jsr wipe_doc_ram	; set doc ram to $80s
sboot_1	ldx #sram_size	; number of sound ram locations
	lda #$0000	; reset number of active oscillators
	LONGA OFF
	Sep #$20	; 8-bit AC
sram_zap_loop	sta >sram_base+sram_start,x	; clear work ram
	dex 	; decrement count
	bpl sram_zap_loop	; keep going until all zeroed
	lda >irq_volume	; get the system
	asl A	; convert to 8 bit form
	asl A	;
	asl A	;
	asl A	;
	sta >sram_base+sysvolloc	; save it away
	lda >DOCFlag	; check if DOC installed
	bne @1	; if not, clear M-bit and exit
	jsr InitDoc	; initialize the DOC chip
@1		;
	plp 	; m, x & irq status
Exit0M	rep #$20	; reset M-bit
notimp		;
	oendc 0
*
* DOC is present so init it
*
InitDOC	lda #GPtrInc+GRegSel	; setup to acc regs and increment
	ora >IRQ_Volume	; get 4-bit sysvol image
	sta >GStatReg	; and setup the GLU
	lda #EOEnb	; osc enable reg
	sta >Gadrl
	lda #62	; 32 oscs
	sta >GDatReg
	jsr StopDOC	; all vols to 0, all osc off
	LONGA ON 	;
	rep #$20	;
	lda #illmode_error	; apple snd vector
	sta >asnd_vect+1	;
	sta >sram_base+user_irq_vect	;
	LONGA OFF 	;
	sep #$20	;
	lda #^SoundTools	; point to our code bank
	sta >asnd_vect+3	;
	sta >sram_base+user_irq_vect+2	;
	lda #$5C	; we get to the users vector through a JMP long
	sta >asnd_vect	;
	sta >sram_base+user_irq	;
	LONGA ON 	; 16 bit accum, memory
	rep #$20	;
	pea sound_vect_ref	; sound vector ref. number
	PushLong  #illmode_error	; invalid sound interrupt
	_SetVector
	rts 	; >>>--- exit InitDoc --->>>
*
* Stop all DOC oscs, set all Vols to 0, and clear sound-on flag
*
* Called w/ M=1, X=0
*
	LONGA OFF 	;
stopdoc		;
	php 	;
	sei 	; no interruptions
	lda #GPtrInc+GRegSel
	ora >IRQ_Volume
	sta >GStatReg	; setup for register access
	lda #EFreqhi	;
	sta >Gadrl
	lda #$00	;
	jsr Fill32	; stop all oscs
	lda #EFreqlo	; point set the freq to zero
	sta >Gadrl
	lda #00	;
	jsr Fill32	;
	lda #EVol
	sta >GAdrl	; point to VolReg0
	lda #0
	sta >sram_base+SoundOn	; clear the sound playing flag
	jsr Fill32	; set all Vols=0
	lda #EwavPage	; point to DOC ram page $0000
	sta >Gadrl
	lda #00	;
	jsr Fill32	; stop all oscs
	lda #EBTR	; size & resolution = $0000
	sta >Gadrl
	lda #00	;
	jsr Fill32	; all oscs
	lda #EOCR	; halt all oscillators, no IRQ
	sta >Gadrl
	lda #EOCRHlt	; halt, interrupts off
	jsr Fill32	; stop all oscs
	lda >Irq_volume	; get the system volume
	and #$0F	; select doc no auto incr.
	sta >Gstatreg	;write to sound glu control
	lda #eoir	; point to Ensoniq irq register
	sta >Gadrl	;
	lda >Gdatreg	; dummy read
	ldx #$22	; 34 times
stopdoc_2	lda >Gdatreg	; read irq status
	dex 	; decrement count
	bne stopdoc_2	; 34 times
	plp 	;
	rts
*
* Fill the 32 registers pointed to by the GLU with the
* 8-bit value in the A-reg
*
* called w/ M=1, X=0
*
Fill32	ldx #$20
F32a	sta >GDatReg	; write to a register
	dex
	bne F32a
	rts
	LONGA ON 	;




************************************************************
*
* SShutDown stops all sound, kills sound interrupts,
* and resets our WAP to zero
*
*
*   Called SoundShutdown
*  Returns No Error
*
************************************************************
*
sshutdn		;
	LONGA ON 	;
	LONGI ON 	;
	php 	; save interrupt bit
	sei 	; no interruptions
	lda #0
	SetWAP 0,MyToolNum
	brl Sboot_1	; shut down rest of system



************************************************************
*
* Version number tool returns the current Sound Tool
* version #.
*
*    Called:  pea 0 ; return value placeholder
*             SoundVersion
*
* Returns: X,Y unchanged.  Version on stack
*
************************************************************



STVer	lda #Version	; get version #
	sta W1,s	; place in stack
	oendc 0



************************************************************
*
* SReset Tool simply stops all sound and sound interrupts
*
*  Called:  SoundReset
* Returns:  No error
*
************************************************************
*
SReset	sep #$20	; M=1
	jsr StopDOC	; stop all activity
	rep #$20	; M=0
	oendc 0



************************************************************
*
* EntryVect tool returns the address of the entry-vector
* and utility address table.
*
* called:  pea $0
*          pea $0 ; 32 bit placeholder
*          _GetTableAddress
*
* returns: 32-bit address of utility address table
*
************************************************************
*
EntryVect	lda #EntryTabl
	sta W1,s	; insert in stack placeholder
	lda #^EntryTabl
	sta W2,S
	jmp Exit0M	; clr M-bit and exitt
	EJECT
************************************************************
*
* The Entry table for fast access to the sound utilities.
*
* Th address of this table is passed back by the Sound Tools
* "EntryVect" function.
*
************************************************************


EntryTabl	DC.L RdSReg
	DC.L WrtSReg
	DC.L RdSRAM
	DC.L WrtSRAM
	DC.L RdSNxt
	DC.L WrtSNxt
	DC.L osctable
	DC.L gentable
	DC.L gcb_xlate
	DC.L dis_incr
	EJECT
************************************************************
*
* Low level entry calls to access individual DOC
* registers and RAM locations.
*
* All entered in Native mode with M=1 and X=0.
*
************************************************************



	LONGA OFF 	;
rdsreg		;
	jsr AccSReg	; setup to access registers
	bra SRead	; and read it
*
rdsram		;
	jsr AccSRAM	; setup to acces sound RAM
sread		;
	lda >GDatReg	; a dummy read to prime the SGlu
rdsnxt		;
	lda >GDatReg	; get the data
	rtl 	; and get out
*
wrtsreg		;
	jsr AccSReg	; setup to access registers
	bra WrtSNxt
*
wrtsram		;
	jsr AccSRAM	; setup to acces SRAM
wrtsnxt		;
	sta >GDatReg	; write the data
	rtl 	; and return
*
accsram		;
	pha 	; save the AC
	LONGA ON
	rep #$20	;
	txa 	; get reg/addr
	sta gadrl	; save reg/addr value
	LONGA OFF 	;
	sep #$20	; 8 bit accumulator
	lda #GPtrInc+GRAMSel	; access RAM and increment
	bra acc1
accsreg		;
	pha
	txa 	; get reg/addr
	sta gadrl	; point to reg/addr
	lda #GPtrInc	; access registers and increment
acc1		;
	ora >IRQ_Volume	; or in volume 4-lsbs
	sta >GStatReg	; and set the glue status register
	pla 	; restore the AC
	rts
;
dis_incr		;
	lda >gstatreg	; read the sound glu control
	and #$D0	; mask off sys vol & auto incr
	ora >IRQ_Volume	; or in volume 4-lsbs
	sta >GStatReg	; and set the glue status register
	rtl 	; >>>--- exit dis.incr --->>>
;
;
*
* Satisfy assembler to prevent errors
*
RateTable	
SetupGen	equ NotImp
Note	equ NotImp
SIntRate	equ NotImp
Octavetable	
NoteTable	
*
*
	include 'tables.aii'
;
;
	TITLE 'Set doc ram to $80s'
	EJECT
********************************************************
*
* Wipe.doc.ram: This routine will fill all of the Doc ram to $80
*
********************************************************
;
;
wipe_doc_ram		;
	LONGA OFF 	;
	LONGI OFF 	;
	sep #$20	;
	rep #$10	;
	lda #0	;
	sta >Gadrl	; 0 to Gadrl and Gadrh
	sta >Gadrh	;
	lda #GPtrInc+GRamSel
	ora >IRQ_Volume	; get 4-bit sysvol image
	sta >GStatReg	; access RAM and increment
	lda #$80	; data value
SB1	sta >GDatReg
	inx
	bne SB1	; loop 64K times
	LONGA ON 	;
	LONGI ON 	;
	rep #$30	;
	rts 	; >>>--- exit wipe.doc.ram --->>>
;
;
	EJECT
********************************************************
*
* ReadEblock: This function will read a specified number of bytes from
*              DOC ram into a user specified buffer anywhere in memory.
*              All parameters are passed on the stack.  The stack is
*              configured as follows:
*
*     Entry:
*              +----------+
*              |   $00    |
*              +----------+          e=0 ; native mode
*              |   Bank   |          m=0 ; 16 bit accumulator/memory
*              +----------+          x=0 ; 16 bit index registers
*              |Addr. high|
*              +----------+
*              | Addr low |
*              +----------+
*              |DOC addrl |
*              +----------+
*              |DOC addrh |
*              +----------+
*              |count low |
*              +----------+
*              |Count high|
*              +----------+
*              | RTL bank |
*              +----------+
*              | RTL alow |
*              +----------+
*              | RTL ahi  |
*              +----------+
*              | RTL bank |
*              +----------+
*              | RTL alow |
*              +----------+
*              | RTL ahi  |
*              +----------+
*    SP >>--->>|          |
*
*     Exit:
*         e = 0 ; native mode
*         m = 0 ; 16 bit accumulator
*         x = 0 ; 16 bit index registers
*         A = 0, carry = 0 for successful call
*         A = error code, carry = 1 for call failed
*
********************************************************
;
;
	LONGA ON 	;
ReadEblock		;
	lda >DOCFlag
	and #$FF	; mask to low-byte
	beq REB1	; 0 indicates DOC installed
	ldx #NoDOCErr
	oeout 8	; exit w/ err message
REB1	phd 	; save direct register
	lda $09,s	; get the count
	tax 	; save the count
	dec A	; adjust for possible one byte write to $FFFF
	clc 	; check for range error
	adc $0B,s	; add in the starting address
	bcc rrange_ok	; within range
	ldx #$0011	; mark a range error
	eout 8	; routine will pop direct register
rrange_ok		;
	ldy #$00	; point to system ram buffer
	lda $0B,s	; point to 1st Ensoniq ram locatio to read
	sta >gadrl	;
	tsc 	; make a direct page
	tcd 	;
	LONGA OFF 	;
	sep #$20	; 8 bit accumulator
	lda #Gptrinc+Gramsel	; point to Ensoniq ram with auto incr.
	ora >Irq_volume	; include the system volume
	sta >Gstatreg	;
	lda >gdatreg	; dummy read
readeloop		;
	lda >gdatreg	; get a data byte
	sta [$0D],y	; put it away
	iny 	; bump ram pointer
	dex 	; decrement count
	bne readeloop	; keep going until zero
	rep #$20	; 16 bit accumulator/memory
	endc 8	; it worked go away
;
;
	EJECT
********************************************************
*
* Write.Eblock: This function will write a specified number of bytes from
*              system ram into DOC ram. The starting address is provided
*              by the application. Parameters are passed on the stack.
*              The stack is configured as follows:
*
*     Entry:
*              +----------+
*              |   $00    |
*              +----------+          e=0 ; native mode
*              |   Bank   |          m=0 ; 16 bit accumulator/memory
*              +----------+          x=0 ; 16 bit index registers
*              |Addr. high|
*              +----------+
*              | Addr low |
*              +----------+
*              |DOC addrl |
*              +----------+
*              |DOC addrh |
*              +----------+
*              |count low |
*              +----------+
*              |Count high|
*              +----------+
*              | RTL bank |
*              +----------+
*              | RTL alow |
*              +----------+
*              | RTL ahi  |
*              +----------+
*              | RTL bank |
*              +----------+
*              | RTL alow |
*              +----------+
*              | RTL ahi  |
*              +----------+
*    SP >>--->>|          |
*
*     Exit:
*         e = 0 ; native mode
*         m = 0 ; 16 bit accumulator
*         x = 0 ; 16 bit index registers
*         A = 0, carry = 0 for successful call
*         A = error code, carry = 1 for call failed
*
********************************************************
;
;
	LONGA ON 	;
WriteEblock		;
	lda >DOCFlag	; get the DOC installed flag
	and #$FF	; mask to lo-byte
	beq WEB1	; DOC installed if = 0
	lda #NoDOCErr	; error message
	oeout 8	; exit w/ message
WEB1	phd 	; save direct register
	lda $09,s	; get the count
	tax 	; save the count
	dec A	; adjust for 1 byte write to $FFFF
	clc 	; check for range error
	adc $0B,s	; add in the starting address
	bcc wrange_ok	; within range
	ldx #$0011	; mark a range error
	eout 8	; routine will pop direct register
wrange_ok		;
	ldy #$00	; point to data source
	lda $0B,s	; the addr. of 1st Ensoniq ram location to write
	sta >gadrl	; point to end of DOC ram to read
	tsc 	; make a direct page
	tcd 	;
	LONGA OFF 	;
	sep #$20	; 8 bit accumulator
	lda #Gptrinc+Gramsel	; enable ram access & auto incr.
	ora >Irq_volume	; include the system volume
	sta >Gstatreg	;
writeeloop		;
	lda [$0D],y	; get a data byte
	sta >gdatreg	; put it away
	iny 	; bump source pointer
	dex 	; decrement count
	bne writeeloop	; keep going until zero
	rep #$20	; 16 bit accumulator/memory
	endc 8	; it worked go away
;
;
	EJECT
	LONGA ON
************************************************************
*
* SetVolume tool sets either a DOC oscillator Volume or
* the system Volume.  DOC VolNum's are 0-31. VolNum's 31-255
* all set the system volume.
*
* All Volume levels are 8-bits (0-255).  The current
* system volume hardware only supports 16 volume levels
* so only the upper 4-bits of the volume level are used.
*
*
*    Called:  pea VolLevel
*             pea VolNum
*             _SetSoundVolume
*
*  Returns:  nothing
*
************************************************************
*
SetVolume	jsr WhichVol	; system vol or DOC vol?
	LONGA OFF
	lda W2,s	; get the volume setting
	bcs SSVol	; WhichVol sets cy for sysvol
	sta >GDatReg	; write volume to 1st osc
	sta >GDatReg	; and the 2nd osc.
Exit2M	rep #$20	; reset M-bit
	oendc 4	; and exit, dropping 2 wds
*
SSVol	sta >Sram_base+SysVolLoc	; save the 8-bit vol value
	lsr a
	lsr a
	lsr a
	lsr a	; divide by 16
	sta >IRQ_Volume	; save 4-bit version
	sta >GStatReg	; set sys hardware volume
	bra Exit2M	; reset M & exit



************************************************************
*
* GetVolume tool acts like SetVolume except it returns the
* specified volume level.
*
*    Called: pea $0 ; return value placeholder
*            pea VolNum
*            _GetSoundVolume
*
*  Returns: specified volume level
*
************************************************************
*
GetVolume	jsr WhichVol	; sys vol or DOC vol
	LONGA OFF
	bcs GSVol	; sysvol if cy set
	lda >GDatReg	; a dummy read
	lda >GDatReg	; read the DOC osc vol.
	bra GSV1
GSVol	lda >Sram_base+sysvolloc	; read the system volume
GSV1	sta W2,s
*
Exit1M	rep #$20	; set 16-bit AC
	LONGA ON
	oendc 2	; exit w/o pld, drop 1 wd.
*
* WhichVol examines the volnum in the top stack parm
* and returns w/ cy set if > 15.  If VolNum is < 16,
* the sound glu is setup and pointed to the first osc in
* the specified logical sound generator.
*
	LONGA OFF
WhichVol	sep #$20	; 8-bit m
	lda W2,s	; get VolNum
	cmp #15	; >15? set cy for SysVol.
	bcs WVR	; return if SysVol
	xba 	; get B-Reg
	lda #0	; and clear it
	xba 	; get back AC
	tax
	lda >OscTable,x	; get phys osc number
	adc #EVol	; add DOC vol reg base addr
	sta >Gadrl	; set glu addr
	lda #GRegSel+gptrinc	; DOC select / auto incr
	ora >IRQ_Volume	; get the 4-bit sysvol image
	sta >GStatReg	; set GLU to access DOC, not RAM
WVR	rts

;
;
	TITLE 'Sound tools startup call status'
	EJECT
********************************************************
*
* Sstart.stat: This routine will return the status of the sound tools
*              startup call.
*
*     Import: stack+1 ; room for status result
*             stack+2 ;
*
********************************************************
;
;
Sstart_stat		;
	sep #$20	; 8 bit accumulator
	lda >sram_base+start_stat	; get status for startup call
	sta $7,s	; put result on the stack
	sta $08,s	; one word
	rep #$20	; back to 16 bit accumulator
	oendc 0
;
;
	TITLE 'Get sound status'
	EJECT
********************************************************
*
* Sound.status: This routine will return a word showing which
*               oscillators are active.
*
*     Import: Function # = $00
*             +------------+
*             | status low |    Room for one word of status
*             +------------+
*             | Status high|
*             +------------+
*             |  low byte  |
*             +------------+
*             |  high byte |
*             +------------+
*             |    bank    |
*             +------------+
*             |  low byte  |
*             +------------+
*             |  high byte |
*             +------------+
*             |    bank    |
*             +------------+
* SP >>>--->>
*
*     Export:
*            (Stack+8) = high byte of DOC active oscillators
*            (Stack+7) = low byte of DOC active oacillators
*
*     Errors:
*            NONE
*
********************************************************
;
;
Sound_status		;
	lda >sram_base+Active_oscs	; get active oscillators word
	sta $07,s	; put in the holding location
	oendc 0	; no parameters to strip off
;
;
	TITLE 'Sound tools generator_status'
	EJECT
********************************************************
*
* Gen.stat: This routine will return the status of a generator
*
*     Import: stack+1 ; room for status result
*             stack+2 ;
*             stack+3 ; generator number
*             stack+4 ;
*
********************************************************
;
	LONGA ON 	;
	LONGI ON 	;
;
Gen_stat		;
	cmp #$0000	; check if wap installed
	beq gen_stat_error	;
	phd 	; save direct register
	pha 	; set direct register
	pld 	;
	lda $09,s	; get generator number
	cmp #$000F	; keep generator $00-$0E
	bcc @1	; bad generator number
	ldx #badgen	; invalid generator number
	eout 2
@1	tax 	; form generator table index
	LONGA OFF 	;
	LONGI OFF 	;
	sep #$30	;
	lda #$FF	; assume gen busy
	xba 	;
	lda >gcb_xlate,x	; get address of gcb
	tax 	;
	LONGA ON 	;
	LONGI ON 	;
	rep #$30
	lda gcb_mode,x	; get the mode byte for the oscillator
	xba 	; gen # high byte, mode low byte
exit_gen_stat		;
	rep #$30
	sta $0B,s	;
	endc 2
;
;
gen_stat_error		;
	LONGA ON 	;
	LONGI ON 	;
	ldx #wap_error	; mark an error
	oeout 2
;
;
	TITLE 'Set Master interrupt vector'
	EJECT
********************************************************
*
* Smirq: This routine will set the master interrupt vector to a user
*        specified vector.  If this vector is changed it is the
*        responsibility of the user to service the interrupts generated
*        by the DOC.
*
*     Entry:
*              +----------+
*              |   $00    |
*              +----------+          e=0 ; native mode
*              |   Bank   |          m=0 ; 16 bit accumulator/memory
*              +----------+          x=0 ; 16 bit index registers
*              |Addr. high|
*              +----------+     New master interrupt address
*              |Addr. low |
*              +----------+
*              | RTL bank |
*              +----------+
*              | RTL alow |
*              +----------+
*              | RTL ahi  |
*              +----------+
*              | RTL bank |
*              +----------+
*              | RTL alow |
*              +----------+
*              | RTL ahi  |
*              +----------+
*    SP >>--->>|          |
*
*     Exit:
*         e = 0 ; native mode
*         m = 0 ; 16 bit accumulator
*         x = 0 ; 16 bit index registers
*         A = 0, carry = 0 for successful call
*
********************************************************
;
;
	LONGA ON
	LONGI ON
Smirq		;
	lda >sram_base+wap_installed	; get the wap installed flag
	and #$00FF	; low byte
	bne set_mvect	; install user vector
	ldx #wap_error	; no work area
	oeout 4
set_mvect		;
	pea sound_vect_ref	; sound irq vector ref number
	lda $0B,s	; get the vector address
	pha 	;
	lda $0B,s	; offset by two bytes
	pha 	;
	_SetVector
	LONGA OFF 	;
	sep #$20	;
	lda #$FF	; mark master irq vector installed
	sta >sram_base+mirq_defined	;
	LONGA ON
	rep #$20	;
	oendc 4	; strip 4 bytes off the stack
;
;
	TITLE 'Set Users interrupt vector'
	EJECT
********************************************************
*
* Suirq: This routine will set the users interrupt vector to a value
*        defined by the caller.  If the synthesizer is not one defined
*        for the firmware control will be passed to the users synth.
*        code.  On powerup the users interrupt vector will be pointed
*        a invalid synthesizer error routine.
*
*     Entry:
*              +----------+
*              |   $00    |
*              +----------+          e=0 ; native mode
*              |   Bank   |          m=0 ; 16 bit accumulator/memory
*              +----------+          x=0 ; 16 bit index registers
*              |Addr. high|
*              +----------+     New users interrupt address
*              |Addr. low |
*              +----------+
*              | RTL bank |
*              +----------+
*              | RTL alow |
*              +----------+
*              | RTL ahi  |
*              +----------+
*              | RTL bank |
*              +----------+
*              | RTL alow |
*              +----------+
*              | RTL ahi  |
*              +----------+
*    SP >>--->>|          |
*
*     Exit:
*         e = 0 ; native mode
*         m = 0 ; 16 bit accumulator
*         x = 0 ; 16 bit index registers
*         A = 0, carry = 0 for successful call
*
********************************************************
;
;
Suirq		;
	lda >sram_base+wap_installed	; check if wap installed
	and #$00FF	;
	bne set_uvect	; installed set user vector
	ldx #wap_error	; not installed report error
	oeout 4
set_uvect		;
	lda >sram_base+user_irq_vect	; hand back old vector to caller
	sta $0B,s	;
	lda >sram_base+user_irq_vect+2	;
	and #$00FF	; low byte only
	sta $0D,s	;
	lda $07,s	; get the low word of the address
	sta >sram_base+user_irq_vect	; save it
	lda $08,s	; get upper word of users vector
	sta >sram_base+user_irq_vect+1	;
	php 	; save status
	LONGA OFF 	;
	sep #$20	;
	lda #$5C	; we get to him through a JMP long
	sta >sram_base+user_irq	;
	plp 	; restore status
	oendc 4	; strip 4 bytes and exit
;
;
	EJECT
********************************************************
*
* Gen.ctrl.bytes: This call will read the control register for each
*                of the oscillators corresponding to a generator.
*
*     Import: sp-9 = room for result
*             sp-7 = generator number to read
*
********************************************************
;
	LONGA ON 	;
	LONGI ON 	;
;
Gen_ctrl_bytes		;
	php 	;
	sei 	; no interruptions
	lda $08,s	; get the generator number
	cmp #$000F	; check for valid generator
	bcs bad_generator	; invalid generator number
	tax 	; get oscillator number
	lda >osctable,x	;
	and #$00FF	;
	adc #$A0	; offset to control registers
	tax 	;
	tay 	; save oscillator number
	LONGA OFF 	;
	sep #$20	;
	jsl rdsreg	; read oscillator ctrl reg.
	sta $0A,s	; save the control byte
	jsl rdsnxt	; read the next oscillator
	and #$01	; save control byte
	and $0A,s	; must be 1 for wave to be ended
	beq @1	; wave ended
	ldx #$08	; delay a minimum of 40 usecs.
@3	dex 	;
	bne @3	; delay for a while
	tyx 	; get oscillator number back
	jsl rdsreg	; read oscillator ctrl reg.
	sta $0A,s	; save the control byte
	jsl rdsnxt	;
	and #$01	; save control byte
	and $0A,s	; must be 1 for wave to be ended
	beq @1	; wave ended
	lda #$FF	; wave has ended
@1	sta $0A,s	;
	sta $0B,s	;
	LONGA ON 	;
	plp 	; restore status register
	oendc 2
bad_generator		;
	plp 	;
	ldx #badgen	; invalid generator number
	oeout 2	;
	
	ENDP

	END
	
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Sound/ServeGen.aii b/IIGS.601.SRC/GSToolbox/Sound/ServeGen.aii
new file mode 100644
index 0000000..857f5c3
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Sound/ServeGen.aii
@@ -0,0 +1 @@
+

********************************************************
*
* Serve.gen: This routine will update the waveform pointers for a
*            oscillator.
*
********************************************************


***	include 'all.macros'	;removed 17-Sep-90 DAL
	include 'm16.util2'
	include 'Snd.Equ.aii'
	
	import set_gcb
	import set_doc_regs
	
	LONGA OFF
	LONGI OFF

	export serve_gen

serve_gen	proc		; service oscillator irq
	lda gcb_tbl,x	; get the mode byte
	beq exit_serve_gen	; this one not in use

	and #$0F		; 4 bits of mode
	cmp #ffsynth_mode	; is it our mode?
	bne other_mode	; not ours pass control

	lda gcb_tbl,x	; get the mode back
	bpl next_wave_chunk	; waveform completed

	LONGA ON

chk_pblock	rep #$20		; check for another param block
	lda gcbp_ptr,x	; get the pointer
	ora gcbp_ptr+1,x
	beq no_more_waves
	
	export set_pblock

set_pblock
	lda gcb_mode,x	; get the mode
	and #$FF7F		; mask off wave ended bit
	pha 		; save the mode & gen number
	lda gcbp_ptr+2,x	; get next wave parameter pointers
	and #$00FF		; low byte only
	pha 		; save upper word of parameter block
	lda gcbp_ptr,x	; get low word of parameter block
	pha
	lda #$0000		; reset mode byte & gen. number
	sta gcb_mode,x
	tsc 		; get stack pointer
	sec 
	sbc #$09		; cheat a bunch
	tcs 

	jsr set_gcb		; set the generator control block

	tsc 		; get the stack pointer
	clc 		;
	adc #$0F		; put the stack back
	tcs 		; put the stack back

	LONGA OFF

	sep #$20
	lda #$03		; new wave/must set doc regs.
	sta gcb_new_wave,x	;
	jsr next_wave_chunk	; move next block of wave
	bra exit_serve_gen	; keep going


no_more_waves
	LONGA OFF

	sep #$20
	lda #$01		; halt this oscillator
	jsr sdoc_ctrl	; set the control byte in the DOC

exit_serve_gen
	rts 		; >>>--- exit serve.gen --->>>




other_mode			; user defined mode
	jsl sram_base+user_irq	; call their handler
	rts 		; all done with this one








	export next_wave_chunk

next_wave_chunk
	lda #gptrinc+gramsel 	; select DOC ram with auto incr
	ora >irq_volume	; include system volume
	sta gstatreg
	lda osc_num_temp	; get the oscillator number

	LONGA ON
	LONGI ON

	rep #$30
	ror A		; even or odd oscillator
	lda gcb_O0_start,x	; get the DOC wave buffer start address
	bcc set_even

	clc
	adc gcb_doc_count,x	; odd oscillator DOC buffer
set_even	sta gadrl		; set DOC ram address
	php 		; save micro status register
	lda gcb_wave_pos,x	; set source work pointer
	sta scratch	;
	lda gcb_wave_pos+1,x
	sta scratch+1
	lda gcb_doc_count,x	; get the number of bytes to move
	xba 		; save number of pages to move
	sta page_count	; save number of bytes to move
	ldy #$0000		; reset work counter
	lda gcb_wave_count,x 	; check for end of wave
	beq wave_done

wave_mover	sep #$30	; 8 bits please

move_loop			;
	lda [scratch],y	; get a byte
	sta gdatreg		; write it to the sound glu
	iny
	bne move_loop	; move one page
	rep #$20
	inc scratch+1	; bump source pointer
	dec gcb_wave_count,x 	; decrement wave page count
	beq wave_done	;

	dec page_count	; decr number pages to move
	bne wave_mover
	lda scratch		; set new wave start position
	sta gcb_wave_pos,x
	lda scratch+1
	sta gcb_wave_pos+1,x
	bra exit_wave_mover	; all done for this block

wave_done			;
	lda page_count	; did we fill the DOC buffer?
	dec A
	beq @1

	LONGA OFF
	LONGI OFF

	sep #$30	
	lda #$00		; pad with 8 zeros
	ldy #$40		; need 64 zeroes
@2	sta gdatreg
	dey
	bne @2

	LONGA OFF

@1
	sep #$20

* make sure if it is the first time this osc has played,
* that it has the freq and stuff set up. so just copy the code as if it wasn't,
* done, and then set the mode.

	lda osc_num_temp	; get the oscillator number
	and #$01		; check for even or odd osc
	clc 		; assume odd oscillator
	bne @3
	
	bra @4 		; if not odd don't mess with it.
@3
	rol A
	and gcb_new_wave,x	; get the new wave marker

*** Bug Fix 2/7/90 MLC

*	beq end_wave_move	; BUG - LastBlock bit will NOT be set!!!!!
	beq @4		; now it's set....

	eor gcb_new_wave,x	; clear even/odd oscillator bit
	sta gcb_new_wave,x	; and save updated marker
	jsr set_doc_regs	; setup doc registers

* now the freq and stuff should be all set up.

@4	lda #$80		; mark wave done in mode byte
	ora gcb_mode,x
	sta gcb_mode,x
	rep #$20		; check for more waves
	lda gcbp_ptr,x
	ora gcbp_ptr+1,x
	bne exit_wave_mover	; leave control alone if more waves to follow

	LONGA OFF

	sep #$20
	lda #03		; set to play & halt when done
	jsr sdoc_ctrl	; set control register
	bra end_wave_move

exit_wave_mover
	LONGA OFF

	sep #$20
	lda osc_num_temp	; get the oscillator number
	and #$01		; check for even or odd osc
	clc 		; assume odd oscillator
	bne @1

	sec
@1
	rol A
	and gcb_new_wave,x	; get the new wave marker
	beq end_wave_move
	eor gcb_new_wave,x	; clear even/odd oscillator bit
	sta gcb_new_wave,x	; and save updated marker
	jsr set_doc_regs	; setup doc registers

end_wave_move
	plp 		; restore micro status
	rts 		; >>>--- exit wave.mover --->>>








	TITLE 'Shut oscillator off'
	EJECT
********************************************************
*
* sdoc.ctrl: Sets the control register for a oscillator.
*
*     Import: AL = contents to write to osc. control reg.
*
********************************************************
;
;
	export sdoc_ctrl


sdoc_ctrl
	pha 		; save control byte
	lda #00		; point to DOC no auto incr.
	ora >irq_volume	; include system volume
	sta gstatreg	;
	clc
	lda osc_num_temp	; get oscillator number
	adc #eocr		; point to control register
	sta gadrl
	lda gdatreg 	; false read.
	lda gdatreg 	; get current stereo position.
	and #$F0		; get stereo setting.
	ora 1,s		; or in control byte.
	sta gdatreg		; write out control byte
	pla 		; remove the control byte.
	rts 		; >>>--- exit sdoc.ctrl --->>>

	endp
	end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Sound/SetGCB.aii b/IIGS.601.SRC/GSToolbox/Sound/SetGCB.aii
new file mode 100644
index 0000000..8b58073
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Sound/SetGCB.aii
@@ -0,0 +1 @@
+***          Copyright Apple Computer, Inc. 1985-1989,1991	***
***          All Rights Reserved	***
	TITLE 'Set up generator control block'
	EJECT
********************************************************
*
* Set.gcb: This routine will set up the gcb parameter block for a 
*          generator.
*
*     Import: sp + D = gen #
*             sp + C = mode
*             sp + B = parameter block bank
*             sp + A = parameter block addrh
*             sp + 9 = parameter block addrl
*             sp + 8 = rts address
*             sp + 6 = rtl address
*             sp + 3 = rtl address
*
********************************************************

	include 'all.macros'
	include 'Snd.Equ.aii'

	import next_wave_chunk
	import sdoc_ctrl
	import set_pblock
	import gcb_xlate
	import osctable
		export set_gcb
set_gcb	proc	;
	LONGA OFF
	LONGI OFF
	sep #$30	; 8 accum / index regs
	lda gen_no_loc+11,s	; get the generator number
	and #$0F	; 16 generators max
	cmp #$000F	; gen 15 reserved for system use
	bcc gen_ok	; generators 0-E only!
	brl gen_err	; invalid generator number
gen_ok	tax 	;
	lda >gcb_xlate,x	; get the gcb entry address
	tax 	; index into gcb table
	lda >sram_base+wap_installed	; check for a valid work area
	bne label_01	; no work area assigned?
	brl wap_install_err	;
label_01	lda >sram_base+wap_addr+1	; get the work area pointer
	pha 	;
	lda >sram_base+wap_addr	;
	pha 	;
	pld 	; set new direct register
	lda gcb_tbl,x	; get mode byte for generator
	and #$0F	; check the synth mode
	beq gen_not_busy	; generator free
	brl gen_busy_err	;
gen_not_busy	ora >sram_base+mirq_defined	; check for master irq defined
	bne label_00	; everybody happy
	brl irq_vect_err	; otherwise interrupt vector error
	LONGA ON
label_00	rep #$20	;
	lda pptr_addl_loc+11,s	; parameter table address 
	sta tmp_pram_ptr	;
	lda pptr_addh_loc+11,s	;
	sta tmp_pram_ptr+1	;
	ldy #next_wave_ptr	; get the parameter block for possible next waveform
	lda [tmp_pram_ptr],y	;
	sta gcbp_ptr,x	; set new pointer
	iny 	;
	lda [tmp_pram_ptr],y	;
	sta gcbp_ptr+1,x	;
	iny 	; point to the volume
	iny 	;
	iny 	;
	sep #$20	;
	lda [tmp_pram_ptr],y	; get the DOC volume setting
	sta gcb_doc_volume,x	;
	rep #$20	;
buff_size_ok		;
	lda mode_loc+11,s	; get the mode byte
	and #$00FF	; low nibble
	cmp #ffsynth_mode	; is it free form synthesizer?
	bne mode_err	; an error if not
	lda mode_loc+11,s	; get the mode & gen #
	sta gcb_mode,x	; save it
	ldy #wave_start	; point to the beginning of param block
	lda [tmp_pram_ptr],y	;
	sta gcb_wave_pos,x	;
	iny 	; bump to bank
	lda [tmp_pram_ptr],y	;
	sta gcb_wave_pos+1,x	;
	iny 	;
	iny 	;
	iny 	;
	lda [tmp_pram_ptr],y	; get the byte count
	sta gcb_wave_count,x	;
	ldy #doc_buff_start	; get the start of the DOC buffer
	lda [tmp_pram_ptr],y	;
	sta gcb_o0_start,x	; save it
	LONGA OFF
	LONGI OFF
	sep #$30	;
	ldy #doc_buff_size	; get the size of the doc buffer
	lda [tmp_pram_ptr],y	; get the doc buffer code
	LONGA ON
	LONGI ON
	rep #$30
	and #$07	; three bits
	phx 	; save gcb.index
	asl A	; times 2 for table alignment
	tax 	; form table index
	lda >buff_siz_tbl,x	;
	plx 	; restore gcb.index
	sta gcb_doc_count,x	; save the DOC buffer size
	rts 	; >>>--- exit set.gcb --->>>
;
;
	LONGA ON
	LONGI ON	; changed index registers to long for errors - Braz 8-24-90
	
wap_install_err		; wap not installed error
	rep #$30
	lda #wap_error	; mark wap not installed error
	sec 	; mark an error
	rts 	;
;
;
gen_busy_err		;
	rep #$30	;
	lda #gen_busy_error	; generator already busy error
	sec 	; mark an error
	rts 	;
;
;
gen_err		;
	rep #$30	;
	lda #badgen	; invalid gen number
	sec 	; mark an error
	rts 	;
;
;
mode_err		;
	rep #$30	;
	lda #illmode	; generator mode error
	sec 	; mark an error
	rts 	;
;
;
irq_vect_err		;
	rep #$30	;
	lda #mirq_error	; master irq vector not assigned
	sec 	; mark an error
	rts 	;
;
;
*** dead code, 3-Dec-91 DAL
;;inv_buff_size		;
;;	rep #$30	;
;;	lda #buff_siz_error	; mark a DOC buffer size error
;;	sec 	; mark an error
;;	rts 	;
*** end of dead code
;
;
buff_siz_tbl		;
	DC.W $0100	; 256 bytes for $0
	DC.W $0200	; 512 bytes for $1
	DC.W $0400	; 1024 bytes for $2
	DC.W $0800	; 2048 bytes for $3
	DC.W $1000	; 4096 bytes for $4
	DC.W $2000	; 8192 bytes for $5
	DC.W $4000	; 16384 bytes for $6
	DC.W $8000	; 32768 bytes for $7
;
;
	TITLE 'Fill Doc ram buffers'
	EJECT
********************************************************
*
* Setup.doc.ram: This routine will fill the DOC ram buffers for OSC N &
*                osc. N+1.
*
*     Import: e=0, m=0, x=0
*             (gcb.gen) = generator number
*             (gcb.wave.pos) = System ram wave position
*             (gcb.wave.count) = number of waveform byte in sys ram
*             (gcb.o0.start) = start of DOC buffer for osc. N
*             (gcb.doc.count) = number of bytes in DOC buffer
*
********************************************************
;
;
	LONGA ON 	;
	LONGI ON 	;
	export setup_doc_ram
setup_doc_ram		;
	rep #$30	;
	ldy #$0000	; clear index register
	tya 	; clear registers
	LONGA OFF 	;
	sep #$20	;
	phx 	; save the gcb.index
	lda gcb_gen,x	; get the generator number
	and #$0F	; remove channel info
	tax 	;
	lda >osctable,x	; get the oscillator number
	plx 	; restore gcb index
	pha 	;
	sta osc_num_temp	; save oscillator number
	lda #$03	; mark a new wave, both oscs.
	sta gcb_new_wave,x	;
	jsr next_wave_chunk	; move data for osc N
	sep #$20	;
	pla 	; get oscillator back
	inc A	; next oscillator
	sta osc_num_temp	;
	lda gcb_mode,x	; look for wave ended
	bpl @1	;
	rep #$20	; 16 bits
	lda gcbp_ptr,x	; next wave parameter pointer
	ora gcbp_ptr+1,x	;
	bne @2	;
	dec osc_num_temp	; go back to the even oscillator
	jsr set_doc_regs	; init the registers
	LONGA On
	lda SndFlags	; mark only one osc.
	ora #OneOscFlg	; 
	sta SndFlags	;
	LONGA OFF 	;
	sep #$20	;
	bra @3	; go away
@2	jsr set_pblock	; more waves to follow
	sep #$20	;
	bit gcb_mode,x	; has wave ended
	bpl @4	;
	jsr set_doc_regs	; initialize the DOC
	rep #$20	;
	lda gcbp_ptr,x	; more waves after this?
	ora gcbp_ptr+1,x	;
	bne @4	;
	sep #$20	;
	lda #$03	; no more waves after this
	jsr sdoc_ctrl	; make it quit
@4		;
	bra @3	; go away
@1		;
	jsr next_wave_chunk	; move data for osc N
	LONGA On
	rep #$20	; 16 bits
	lda SndFlags	; clear one oscillator marker
	and #clrOneOscFlg	; 
	sta SndFlags	;
	LONGA OFF	;
	sep #$20	; 8 bits
	
@3	rts 	; >>>--- exit setup.ram --->>>
;
;
	TITLE 'Setup DOC registers routine'
	EJECT
********************************************************
*
* Set.DOC.regs: This routine will set up the DOC to run as a FF synth.
*               it sets up the frequency, control registers table size
*               & resolution bits in the DOC.
*
*     Import: A = oscillator number
*             (gcb.doc.siz)  number of pages code ($00-$07)
*             (gcb.o0.start) oscillator N start address
*             (gcb.wave.freq) frequency for oscillator N & osc N+1
*
********************************************************
;
;
	LONGA OFF 	;
	LONGI OFF 	;
	export Set_doc_regs
Set_doc_regs 		;
	php 	;
	phb 	; save data bank register
	stx gcb_index_temp	; save gcb index
	LONGA OFF 	;
	LONGI OFF 	;
	sep #$30
	lda #sram_bank	; set data bank register
	pha 	;
	plb 	;
	lda #$00	; select DOC, no auto incr
	ora >irq_volume	; include system volume
	sta sgctrl	; write to sound glu control
	ldy #doc_buff_size	; get size of DOC buffer
	lda [tmp_pram_ptr],y	;
	and #$07	; lower three bits
	asl A	;
	asl A	;
	asl A	;
	ora [tmp_pram_ptr],y	; form the size and resolution
	xba 	; save the data to write
	lda osc_num_temp	; get oscillator number
	clc 	;
	adc #ebtr	; point to size resolution
	tax 	;
	xba 	; get value to write
	stx sgadrl	; set register pointer
	sta sgdata	; write the byte
	lda #Efreqlo	; point to frequency reg
	clc 	;
	adc osc_num_temp	; point to low freq in oscillator N
	tax 	; save reg
	ldy #wave_freq	; get low byte of frequency
	lda [tmp_pram_ptr],y	; get the low byte of the freq.
	stx sgadrl	; set register pointer
	sta sgdata	; write the byte
	lda #Efreqhi	; point to high freq reg
	clc 	;
	adc osc_num_temp	;
	tax 	;
	ldy #wave_freq+1	; high byte of frequency
	lda [tmp_pram_ptr],y	;
	stx sgadrl	; set register pointer
	sta sgdata	; write the byte
	lda #Evol	; point DOC volume register
	clc 	;
	adc osc_num_temp	;
	tax 	;
	ldy #doc_volume	; get the volume setting
	lda [tmp_pram_ptr],y	;
	beq no_vol_change	;
	stx sgadrl	; set register pointer
	sta sgdata	; write the byte
no_vol_change	lda #Ewavpage	; point to addr pointer
	clc 	;
	adc osc_num_temp	;
	tay 	; save reg number
	ldx gcb_index_temp	; get the gcb index back
	lda gcb_o0_start+1,x	; get high byte of address
	pha 	; save page
	tya 	; get the oscillator number
	ror A	;
	pla 	; get page number back
	bcc even_osc	; if odd must bump start address
	clc 	;
	adc gcb_doc_count+1,x	; calc new page number
even_osc		;
	tyx 	; get oscillator number back
	stx sgadrl	; set register pointer
	sta sgdata	; write the byte
	lda #eocr	; point to the control register
	clc 	;
	adc osc_num_temp	;
	pha 	; save data to write
	ldx gcb_index_temp	; get the gcb index
	lda gcb_gen,x	; get the channel info
	and #$F0	;
	ora #$0F	; remove halt mode 4 (11)
	plx 	; get new reg  number back
	stx sgadrl	; set register pointer
	sta sgdata	; write the byte
	ldx gcb_index_temp	; get gcb index back
	plb 	; restore data bank register
	plp 	; restore status register
	rts 	; >>>--- exit set.doc.regs --->>>

	endp
	end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Sound/SetUpDOC.aii b/IIGS.601.SRC/GSToolbox/Sound/SetUpDOC.aii
new file mode 100644
index 0000000..4d4ca01
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Sound/SetUpDOC.aii
@@ -0,0 +1 @@
+***          Copyright Apple Computer, Inc. 1985-1989	 ***
***          All Rights Reserved		 ***



	include 'all.macros'
	include 'Snd.Equ.aii'
	include 'e16.midi'
********************************************************
*
* SetUpParam _SetDocRegs, _ReadDocRegs.
*
* This call taks a pointer to a param block, and sets
* the DOC Regesters from it or reads DOC values into it.
* It sets some of the GCB directly a header. On Read it reads both
* the gen nibble and the mode. On write it only sets the mode.
* The high bit of the word paramater specifies whether we set
* the first and second highest specifies for second osc.
*
********************************************************
SetupDoc	PROC

			import OscTable
			

			longa on
			longi on
			Export	ReadParam
ReadParam	phd									; save callers dp.
			tcd									; get my dp.
			bne 	@1
			brl		nostarterr					; no start err.
@1			stz		SndFlags					; mark as read.
			bra 	DoIt
	
			Export SetUpParam
SetUpParam	phd									; save callers dp.
			tcd									; get my dp.
			beq 	nostarterr					; no start err.
			lda		#$8000
			sta		SndFlags					; mark as write
	
DoIt		php	; save state.
			sei	; disable interupts.
			lda		tmp_pram_ptr				; Save this DP value just in case.
			pha
			lda		tmp_pram_ptr+2
			pha
; Make tmp_pram_ptr point to paramater block passed in call.
			lda 	W1+3+4,s					; get the low word of ptr.
			sta 	tmp_pram_ptr				; save on dp.
			lda		W1+1+3+4,s					; get bytes 2,3 of ptr.
			sta 	tmp_pram_ptr+1				; save in my temp ptr.
	
; Set first two byte of GCB. These are the only bytes we set.
			lda		[tmp_pram_ptr]				; get the word paramater.
			and		#$0F00						; get just the generator.
			xba									; get gen in low byte.
			pha									; save gen for now.
			asl 	a							; make into index for correct gcb.
			asl 	a							; multiply by 16.
			asl 	a							;
			asl 	a							;
			tax									; make into index.

			bit 	SndFlags
			bmi 	SetMode						; if high bit set set mode, else read it.
			lda 	gcb_mode,x					; get the mode.
			and 	#$F							; and only the mode.
			ora		[tmp_pram_ptr]				; and put it in the word paramater.
			bra 	cnt1						; continue.
SetMode		lda 	[tmp_pram_ptr]				; get the word paramater.
			and		#$0F0F						; get just mode and gen number.
			sta 	gcb_mode,x					; save the infor in gcb_mode and gcb_gen.


Cnt1		plx									; get gen num back.
	
; Get Osc in x for index to DOC registers.
			lda		>OscTable,x					; x has generator in it, get osc.
			and 	#$00FF						; OscTable is a byte sized table.
			tax									; put osc index in to x.
	
; See if we set Registers for first osc.
			lda 	[tmp_pram_ptr]				; if high bit set do first osc.
			pha
			bpl 	@1							; if plus, check to see if we do second osc.
			jsl 	TransferData				; set up the doc regester for first osc.
@1			inx 								; move to second osc.
			pla									; if 2nd highest bit set do second osc.
			and 	#$4000						; get just 2nd highest bit.
			beq 	done						; if cleared, don't do second osc and quit.
			lda		tmp_pram_ptr				; get low byte of pointer.
			clc									;
			adc		#6							; point to Second Regester list.
			sta		tmp_pram_ptr				; save it.
			lda		tmp_pram_ptr+2				; just in case we wraped add carry
			adc		#0							; to the high byte.
			sta		tmp_pram_ptr+2				; save it.			
			jsl 	TransferData				; set up the doc regester for second osc.
done		pla									; Restore DP value.
			sta		tmp_pram_ptr+2
			pla
			sta		tmp_pram_ptr
	
			plp									; restore interupts.
*			ldx #0								; no error.
			endc 4								; quit, pop paramater, and replace dp.
	
nostarterr	ldx #NotInitted						; sound tools weren't started.
			eout 4								; quit, pop paramater, report err, and replace dp.
;
; >>>--- exit Set Up Param --->>>
;

;
; >>>--- start of routines used by SetUpParam --->>>
;

* x has osc number. tmp_pram_ptr points to start of data to write.
TransferData	php
				sei									; no interupts while adressing DOC.
				
				phx
				jsl		MIDIInputPoll				; Poll MIDI.
				plx
				
				Shortm								; Short Accumulator for Doc.
				lda		>Irq_volume					; Get vol.
				sta		gstatreg					; Set Sound Glu mode to Doc, no incr.
				
				txa									; Get the Oscilator Index.
				sta		gadrl						; Point glu to FreqLow of Oscillator.
				ldy		#2							; Index into Paramaters.
				
loop			bit		SndFlags+1					; Check high bit of flags.
				bpl		@1							; If Set Read the value.
				lda		[tmp_pram_ptr],y			; Get Value to set.
				sta		gdatreg						; Write new value.

@1				lda		gdatreg						; False read.
				lda		gdatreg						; Read value.
				sta		[tmp_pram_ptr],y			; Save the value.
				
				iny									; Get ready to save next param.
				cpy		#8							; Is Y = 8 ?
				beq		exit						; If Yes exit, if no keep going.

				lda		gadrl						; Get current address.
				cpy		#5
				beq		@2
				clc									;
				adc 	#$20						; Point to next regester.
				sta 	gadrl						; Save it.
				bra		loop						; do next.

@2				clc
				adc 	#$40						; Skip sample and go to Table.
				sta 	gadrl						; Save it.
				bra		loop						; do next.
			
exit			plp									;
				rtl
				

;
; >>>--- end of routines used by Set Up Param  --->>>
;
;
				ENDP
				
				
				END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Sound/Snd.Equ.aii b/IIGS.601.SRC/GSToolbox/Sound/Snd.Equ.aii
new file mode 100644
index 0000000..10953f6
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Sound/Snd.Equ.aii
@@ -0,0 +1 @@
+***          Copyright Apple Computer, Inc. 1985-1989	 ***
***          All Rights Reserved		 ***
* MidiInputPoll	equ $E101b2	; vector to poll MIDI input for
		;  MIDI Tool Set (get from E16.MIDI).
;
* code_bank	equ $00FF	; running out of bank $FF
fake_it	equ $0000	; make it think it runs out of bank $00
sram_base	equ $E10000	;
sram_bank	equ $00E1	; sound ram work area
sram_start	equ $1DB0	; start of ram work area
* Note Synth uses E11DC4-E11DCF
sram_end	equ $1DCF	; end of sound variables
sram_size	equ sram_end-sram_start	; number of bytes
* start	equ $3E00	; code runs @ $003E00
* max_size	equ $4800-$3E00	; ROM space to use


	EJECT
*
* Equates for Sound Glu and ENSONIQ DOC
*
sgctrl	equ $C03C	; sound glu control register
sgdata	equ $C03D	;
sgadrl	equ $C03E	; sound glu address low
;
GStatReg	equ $E1C03C	; sound Glu Stat Reg
GDatReg	equ $E1C03D	; sound Glu Data Reg
GAdrl	equ $E1C03E	; sound glu addr-lo Reg
GAdrH	equ $E1C03F	; sound glu addr-hi Reg
*
* GLU status register bits
*
Gvol	equ $0f	; bits 0-3
GPtrInc	equ $20	; bit 5
GPtrNoInc	equ $00	; bit 5 not set
GRAMSel	equ $40	; bit 6
GRegSel	equ $00	; bit 6 not set
GBusy	equ $80	; bit 7
auto_incr	equ $20	; Sound glu auto incr enable
*
* Ensoniq register offsets:
*  add oscillator # (0-$1f)
*
EFreqLo	equ $0	; frequency low byte
EFreqHi	equ $20	; frequency hi byte
EVol	equ $40	; volume
EWavDat	equ $60	; waveform sample
EWavPage	equ $80	; waveform table start page
EOCR	equ $A0	; oscillator control reg
EBTR	equ $C0	; bank sel, tbl size, resolution
*
* individual ensoniq registers
*
EOIR	equ $E0	; Oscillator interrupt register
EOEnb	equ $E1	; oscillator enable register
EAtoD	equ $E2	; A/D converter data
*
*
* Oscillator Control Register bit assignments
*
EOCRChnl	equ $F0	; channel assignment bits
EOCRIE	equ $08	; interrupt enable bit
EOCRID	equ $F7	; interrupt disable
EOCRM2	equ $04	; M2 mode bit
EOCRM1	equ $02	; M1 mobe bit
EOCRHlt	equ $01	; halt bit
*
* Oscillator Bank, Table size, Resolution register
*  bit assignments
*
EBTRTbl	equ $38	; bits 3,4,5 select table size
EBTRRes	equ $07	; bits 0,1,2 select resolution
EBTRBnk	equ $40	; bit 6 selects bank
*
* Oscillator interrupt register bit assignments
*
EOIRIrq	equ $80	; bit 7 is IRQ active if 0
EOIROsc	equ $3E	; bits 1-5 show interrupting osc #
*
* Duration Timer equates
*
DurVal	equ EWavDat+31	; duration osc value
DurEOCR	equ EOCR+31	; duration osc contrl Reg
DurFreql	equ EFreqlo+31	; duration osc freq lo byte
DurFreqh	equ EFreqHi+31	; duration freq hi byte
*
sys_vol_reg	equ $20	; volume register
;
;
	TITLE 'Sound Tools equates'
	EJECT
********************************************************
*
* General equates
*
MyToolNum	equ 8	; Sound Tool number
sound_tool	equ mytoolnum	;
*
* External references
*
Dispatch	equ $E10000	; Tool dispatcher call address
SIntAddr	equ $E1002D	; sound interrupt vector loc
DOCFlag	equ $E100D6	; DOC present if zero
IRQ_Volume	equ $E100CA	; 4-bit volume byte
asnd_vect	equ $E10148	; apple reserved oscillators irq vectors
*
* Version equates
*
Version	equ $0300	; version # new rom
Version_patch equ $0303
*
* Sound Tools error codes
*
*  Added $08 Hi byte to all error codes - Braz 8-24-90

NoDOCErr	equ $0810	; DOC and RAM not installed
RangeErr	equ $0811	; addr + count wrapped in DOC RAM
NotInitted	equ $0812	; tried to use STools w/o startup
wap_error	equ notinitted	; no work area pointer installed
BadGen	equ $0813	; illegal logical gen #
IllMode	equ $0814	; illegal synthesizer mode
gen_busy_error	equ $0815	; generator already busy error
buff_siz_error	equ $0816	; DOC buffer size error
mirq_error	equ $0817	; master irq error
start_err	equ $0818	; sound tools already started error
uncsndirq	equ $08FF	; unclaimed sound interrupt
*
* Stack offset equates
*
Ret1	equ 1	; return to Tool handler
Ret2	equ Ret1+3	; return to caller
W1	equ Ret2+3	; top word parameter
W2	equ W1+2	; 2nd  "    "
W3	equ W2+2	; 3rd  "    "
W4	equ W3+2	; 4th  "    "
W5	equ W4+2	; 5th  "    "
W6	equ W5+2	; 6th  "    "
W7	equ W6+2	; 7th  "    "
W8	equ W7+2	; 8th  "    "
;
;
*
*      General equates
*
*	SndFlags equates
OneOscFlg	equ $8000	; high bit. Set if one osc only.
ClrOneOscFlg	equ $7FFF	; high bit cleared.
StartGenFlg	equ $4000	; 2nd highest bit. Set if to start gen.
ClrStartGenFlg	equ $BFFF	; 2nd highest bit cleared.
;
;
Sound_id_tag	equ $4200	; Sound ID tag for misc.tools
Sound_vect_ref	equ $000B	; interrupt vector ref. number
;
;
ffsynth_mode	equ $01	; free form synthesizer
osc_no_irq	equ $E100CC	; sound oscillator generating irq
*
*   parameters on the stack for start sound
*
gen_no_loc	equ $06	; generator number
mode_loc	equ $05	; mode location
bank_pptr_high	equ $04	; high byte of 32 bit long word
pptr_bank_loc	equ $03	; parameter block pointer bank
pptr_addh_loc	equ $02	; param. block pointer addrh
pptr_addl_loc	equ $01	; param. block pointer addrl
;
;
*
*     Free form synth parameter block
*
;
;
wave_start	equ $0000	; wave start address (4 bytes)
wave_size	equ $0004	; wave size (2 bytes)
wave_freq	equ $0006	; sample frequency (2 bytes)
Doc_buff_start	equ $0008	; DOC buffer start addr. (2 bytes)
Doc_buff_size	equ $000A	; DOC buffer size (2 bytes)
next_wave_ptr	equ $000C	; pointer to next wave parameter block (4 bytes)
doc_volume	equ $0010	; DOC volume setting (2 bytes)
;
;
	TITLE 'Sound firmware zero page defs'
	EJECT
********************************************************
*
* sound.zpg: This file contains all of the zero page equates for the
*            sound firmware.
*
********************************************************
;
*
*     Free form synth GCB parameter definitions
*
;
;
gcb_mode	equ $0000	; FFsynth mode
gcb_gen	equ $0001	; FFsynth gen/chan no.
gcb_wave_pos	equ $0002	; sys ram wave positon
gcb_wave_count	equ $0005	; sys ram wave count
gcbp_ptr	equ $0007	; parameter table pointer
gcb_o0_start	equ $000A	; start point for DOC
gcb_doc_count	equ $000C	; DOC wave size
gcb_doc_volume	equ $000E	; Doc volume
gcb_new_wave	equ $000F	; new wave marker/counter
;
;
	DSect 0	;
gcb_tbl	equ 0	;
gen0_gcb	BYTE $00	; gen 0 mode byte
	BLOCK $0F,$00	;
gen1_gcb	BYTE $00	; gen 1 mode byte
	BLOCK $0F,$00	;
gen2_gcb	BYTE $00	; gen 2 mode byte
	BLOCK $0F,$00	;
gen3_gcb	BYTE $00	; gen 3 mode byte
	BLOCK $0F,$00	;
gen4_gcb	BYTE $00	; gen 4 mode byte
	BLOCK $0F,$00	;
gen5_gcb	BYTE $00	; gen 5 mode byte
	BLOCK $0F,$00	;
gen6_gcb	BYTE $00	; gen 6 mode byte
	BLOCK $0F,$00	;
gen7_gcb	BYTE $00	; gen 7 mode byte
	BLOCK $0F,$00	;
gen8_gcb	BYTE $00	; gen 8 mode byte
	BLOCK $0F,$00	;
gen9_gcb	BYTE $00	; gen 9 mode byte
	BLOCK $0F,$00	;
genA_gcb	BYTE $00	; gen A mode byte
	BLOCK $0F,$00	;
genB_gcb	BYTE $00	; gen B mode byte
	BLOCK $0F,$00	;
genC_gcb	BYTE $00	; gen C mode byte
	BLOCK $0F,$00	;
genD_gcb	BYTE $00	; gen D mode byte
	BLOCK $0F,$00	;
genE_gcb	BYTE $00	; gen E mode byte
	BLOCK $0F,$00	;
FooBarMike	DSectSize
gcb_tbl_siz	equ FooBarMike-gcb_tbl	; gcb table size
;
;
;
scratch	BYTE $00	;
scratch_more	WORD $0000	;
tmp_pram_ptr	BYTE $00	; working parameter pointer
tmp_more	WORD $0000	;
osc_num_temp	BYTE $0000	;
gcb_index_temp	BYTE $0000	;
page_count	WORD $0000	; number of pages to be moved
SndFlags	BYTE $00	; One_Osc_Flg, and StartGenFlg.
FooBarSteve	DSectSize
zpg_size	equ FooBarSteve-gcb_tbl	; number of bytes defined for zero page
;
;
	TITLE 'Sound Bank $E1 equates variables'
	EJECT
********************************************************
*
* sound.ram.equ: This file contains all of the soundvariables defined
*                reside in bank $E1.
*
********************************************************
;
;
	dsect sram_start	; start of ram work area
sysvolloc	BYTE $00	; 8 bit system volume version
soundon	BYTE $00	; sound on status flag
active_oscs	WORD $0000	; active generators 16 bits
off_bits	WORD $0000	; Mask for gens to shutoff
wap_installed	BYTE $00	; work area installed marker
wap_addr	WORD $0000	; work area pointer address holder
mirq_defined	BYTE $00	; master irq handler defined error
temp_3	WORD $0000	;
new_wave	BYTE $00	; new wave marker
user_irq	BYTE $00	;
user_irq_vect	WORD $0000	;
user_irq_vect_more	BYTE $00	;
start_stat	BYTE $00	; sound tools startup call status
;
*
	MACRO
	SetWAP &UorS,&TSNum	; ptr in A,Y
	pea &UorS
	pea &TSNum
	pea $0000	; long word for work area
	pha
	_SetWap
	MEND


ToStrip	equ $E10184	; Jmp vector to 0ErrOut routine

;
;
 	MACRO
 	Endc &numbytes
 	pld
	ldx #0
 	ldy #&numbytes	;
 	jml ToStrip	;
 	MEND 	;
;
	MACRO
	Oendc &numbytes
	ldy #&numbytes
	ldx #0
	jml ToStrip	; with no PLD
	MEND
;
	MACRO
	Eout &numbytes
	pld
	ldy #&numbytes	; bytes to strip
	jmp ToStrip	; with PLD
	MEND
;
	MACRO
	Oeout &numbytes
	ldy #&numbytes	; bytes to strip
	jml ToStrip	; without PLD
	MEND
;
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Sound/StartPlaying.aii b/IIGS.601.SRC/GSToolbox/Sound/StartPlaying.aii
new file mode 100644
index 0000000..81c6380
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Sound/StartPlaying.aii
@@ -0,0 +1 @@
+

***          Copyright Apple Computer, Inc. 1985-1989	 ***
***          All Rights Reserved		 ***


***	include 'all.macros'	;removed 17-Sep-90 DAL
	include 'm16.util2'
	include 'Snd.Equ.aii'


********************************************************
*
* 08 Aug 90  Braz
*
* Removed odd oscillator code to prevent trashing 
* one shot mode set up by FFSetUpSound.
*
* FFSetUpSound now always leaves odd osc in swap halted.
*
********************************************************








********************************************************
*
* StartPlaying
*
* This call Takes a word and for each bit set clears the halt bit for the
* Corresponding generator.
*
* Note: If the generator numbering ever changes this call will have to change.
*
********************************************************

StartPlaying	PROC EXPORT

	import osctable

	longa on
	longi on
	
	phd		; save callers dp.
	tcd		; get my dp.
	beq nostart		; no start err.
	
	php		; save state.
	sei		; disable interupts.
	ldx #16		; gen number.
	lda w1+3,s		; get the paramater.
	
nextgen	beq exit

	dex		; dec x to mark new generator.
	asl a		; set the carry flag, if osc x to be started.
	bcc nextgen		; if clear check nextgen.
	
	pha
	shortm		; set a to 8 bits.
	lda >osctable,x	; get the actual osc to start.
	clc
	adc #eocr		; add address to Ensonic Osc Control Reg.
	sta gadrl		; point to the control byte for my gen.

	lda >irq_volume	; get vol, no inc, to doc.
	sta gstatreg	; set to my mode. no inc, to doc.
	lda gdatreg		; false read.
	lda gdatreg		; get the contol value.
	tay		; save for now
	and #$0E		; get ie, M1, M0 bits.
	bne @1		; if any are set then it just needs to be started.

	tya 		; else it is realy supposed to be in swap mode.
	ora #$0E		; put in swap mode with IRQ,
*	tay		; save control reg.

*	lda gadrl		; odd osc is still in loop mode.
*	pha		; save for now.
*	inc a		; so point to it.
*	sta gadrl
*	tya		; get control reg back (swap halted).
*	sta gdatreg		; halt in swap mode odd osc.

*	pla		; get gadrl back for even osc.
*	sta gadrl		; point to even osc.
*	tya		; get control reg back (swap halted).
	and #$FE		; start it.
*	sta gdatreg		; reset mode for odd osc.
	bra @2		; continue checking
@1	tya		; get my control value back.
	and #$FE		; clear the low bit (halt bit).
@2	sta gdatreg		; start the generator.
	longm		; set a to 16 bits.
	pla		; get the paramater back.
	bne nextgen		; if bits set we aren't done.
	
exit	ldx #0	; no error.
	plp	; restore interupts.
	endc 2	; quit, pop paramater, and replace dp.

nostart	ldx #NotInitted	; sound tools weren't started.
	eout 2	; quit, pop paramater, report err, and replace dp.
;
; >>>--- exit Start Playing --->>>
;
;
	
	ENDP
	
	
	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Sound/StartSound.aii b/IIGS.601.SRC/GSToolbox/Sound/StartSound.aii
new file mode 100644
index 0000000..cb04605
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Sound/StartSound.aii
@@ -0,0 +1 @@
+***          Copyright Apple Computer, Inc. 1985-1989	 ***
***          All Rights Reserved		 ***

	TITLE 'Start sound function call'
	EJECT


********************************************************
*
*	08 Aug 90   Braz
*
*	Added code to handle OneOscFlag for FFSetUpSound
*
*	Added code to prevent overwrite of last of two
*	oscillators for FFStartPlaying (used in SetUpSound)
*
********************************************************











********************************************************
* SetUpSound is the same as StartSound with the exception that it doesn't start the gen.
*
* Start.sound: This routine will start a generator running.  The mode,
*              generator number and parameter block address are passed
*              on the stack.
*
*     Import: sp + B = gen #
*             sp + A = mode
*             sp + 9 = parameter block bank
*             sp + 8 = parameter block addrh
*             sp + 7 = parameter block addrl
*             sp + 6 = rtl address
*             sp + 3 = rtl address
*
********************************************************

***	include 'all.macros'	;removed 17-Sep-90 DAL
	include 'm16.util2'
	include 'Snd.Equ.aii'

	import set_gcb
	import setup_doc_ram
	import osctable
	
	longa on
	longi on
	Export SetUpSound


SetUpSound	PROC

	phd		; save direct regester.
	php 		; save status reg
	tcd		; get my dp.
	bne @1		; if not zero we were started up.

	lda #NotInitted	; Sound Tools wasn't started up.
	jmp error_out	; quit returning error.

@1	sei 		; no interruptions please
	stz SndFlags	; Don't start the generator.
	bra DoStartSound	; Continue as if startsound call.


	Export StartSound

Startsound	phd 		; save direct register
	php 		; save status reg
	tcd		; get my dp.
	bne @1		; if not zero we were started up.

	lda #NotInitted	; Sound Tools wasn't started up.
	brl error_out	; quit returning error.

@1	sei 		; no interruptions please
	lda #StartGenFlg	; Set flag to standard FFStartSound call.
	sta SndFlags


DoStartSound		; Entry for FFSetUpCall.
	jsr set_gcb		; set up gcb
	bcc NotFarAway
	jmp error_out	; go away with an error

NotFarAway	phx 		; save the gcb pointer
	jsr setup_doc_ram	; move from system ram to DOC ram
	plx 		; restore gcb pointer

	LONGA OFF
	LONGI OFF

	sep #$30
	phx 		; save gcb.index ;
	lda gcb_gen,x	; get the generator number
	and #$0F
	tax
	lda >osctable,x	; get oscillator number
	clc 		; point to control registers
	adc #eocr
	sta gadrl

	lda >irq_volume	; point to DOC with no auto incr.
	sta gstatreg	;
	plx 
	lda gcb_gen,x	; get generator number
	and #$F0		; keep channel number
	ora #$0E		; SWAP, Irq enable, GO (halt OFF)
	bit SndFlags+1	; check if OneOscFlg is set.
	bpl @1		; both oscillators ($80 = 0ne osc only)

	and #$FA		; One-Shot

	bit SndFlags+1	; another BRAZ attempt to get FFStartPlaying
	bvs New2		; to set the sound done flag in the control
	ora #01		; reg. so FFSoundDoneStatus works for a
	bra New2		; single oscillator

@1	bit SndFlags+1	; check to see if we really want to start the gen.
	bvs New2		; if StartGenFlg set then start it now.


;from here to New2 is code to halt the gen for setupparm call.
; it is necessary to switch mode to loop and halt for both osc.

	phx		; save gcb index.
	and #$F1		; force into loop mode no irq.
	ora #01		; otherwize make sure the bit is halted.
	tax		; save for now. X has Ctrl Reg for EVEN

	lda gadrl		; get the address.
	tay		; save address for now.

	inc a		; point to odd osc.
	sta gadrl		; because it needs to be switched out of loop mode.


	lda gdatreg		; Braz' new code to fix FFStartPlaying bug
	lda gdatreg
	cmp #$03
	beq SkipOddOsc
	ora #$0F
	sta gdatreg

*	txa		; get my control value back
*	sta gdatreg		; halt loop mode odd osc.


SkipOddOsc	tya		; get value for control reg for even osc.
	sta gadrl		; and point to it.
	txa		; get my control value back again.
	plx 		; restore x.

New2	sta gdatreg		; write to DOC control reg.

	LONGA ON
	LONGI ON
	rep #$30

	lda gcb_gen,x	; get the generator number
	and #$0F
	tay
	lda #$00
	sec
shift_bits	rol A		; shift the active bit into position
	clc
	dey
	bpl shift_bits

	ora >sram_base+active_oscs	; mark generator active
	sta >sram_base+active_oscs
	ldx #00
exit_start	plp 		; restore status register
	endc 6
;
error_out
	tax 		; get the error code
	plp 		; restore status  register
	eout 6		; go out with an error
;
; >>>--- exit start sound --->>>
;
;
	endp
	end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Sound/StartUP.aii b/IIGS.601.SRC/GSToolbox/Sound/StartUP.aii
new file mode 100644
index 0000000..c72ef09
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Sound/StartUP.aii
@@ -0,0 +1 @@
+***          Copyright Apple Computer, Inc. 1985-1989	 ***
***          All Rights Reserved		 ***

************************************************************
*
* SStartup Tool inits the Sound Tool set its WAP. It Does
* a SShutDown first if necessary.
*
*   Called: push DirectPageAdr
*           _SoundStartup
*
*  Returns: error if DOC not installed
*
************************************************************
*
* 22-Oct-90 Dave Lyons
*
* Made illmode_error into a separate PROC so it doesn't
* get linked into TS3 unnecessarily.
*
************************************************************
	include 'all.macros'
	include 'Snd.Equ.aii'

	import fsynth_irq


	LONGA ON 	; native m=0, x=0
	LONGI ON 	;
;
*
	export SStartup
SStartup proc	;
	lda >DOCFlag	; is DOC installed?
	and #$FF	; for low-byte only
	beq SSt1	; yes, go on
	ldx #NoDOCErr	; get error message
	oeout 2
SSt1		;
	jsr SStartChk	; are we already started?
	beq SSt2	; no, we're shut down
	ldx #start_err	; startup error
	oeout 2
	LONGA ON 	;
	rep #$20	;
SSt2	lda W1,S	; get the passed direct page addr.
	sta >sram_base+wap_addr	; save the zero page pointer
	SetWAP 0,MyToolNum
	phd 	; save current direct register
	lda >sram_base+wap_addr	; get our work zero page
	tcd 	; save our zero page
	ldx #zpg_size-1	; clear zero page work area
	LONGA OFF 	;
	sep #$20	;
	lda #00	;
zpg_zap_loop		;
	sta gcb_tbl,x	;
	dex 	;
	bpl zpg_zap_loop	;
	pld 	; restore zero page
	lda #$FF	; set the wap initialized flag
	sta >sram_base+wap_installed
	sta >sram_base+start_stat	; mark startup call made status
	LONGA ON
	rep #$20	;
	PushLong #fsynth_irq	; address of sound interrupt handler
	_SetSoundMIRQV
	oendc 2

*
* Test if wap assigned
*
	LONGA OFF 	;
	LONGI ON 	;
SStartChk		;
	sep #$20	;
	lda >sram_base+wap_installed	; wap installed?
	rep #$20	;
SSOK	rts

	endp

*
* Made illmode_error into a separate proc, 22-Oct-90 DAL
* because it was getting linked into TS3 unnecessarily.
*
illmode_error	proc export

	LONGA ON
	LONGI ON
									; default user irq vector routine
	rep #$30
	pea sound_tool*256+uncsndirq	; unclaimed snd irq
									; NOTE: Will never come back!
	PushLong #unc_snd_irq			; unclaimed sound irq
	_SysFailMgr

unc_snd_irq	DC.W unirq_siz			; unclaimed irq size
	DC.W $0D	; 5 lines down
	DC.W $0A	;
	DC.W $0A	;
	DC.W $0A	;
	DC.W $0A	;
	DC.W $0A	;
	DC.B '      Unclaimed Sound Interrupt '

unirq_siz	equ *-unc_snd_irq-1		; string size

	EndP


	end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Sound/fsynth_irq.aii b/IIGS.601.SRC/GSToolbox/Sound/fsynth_irq.aii
new file mode 100644
index 0000000..8f2d7d9
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Sound/fsynth_irq.aii
@@ -0,0 +1 @@
+***          Copyright Apple Computer, Inc. 1985-1989	 ***
***          All Rights Reserved		 ***
********************************************************
*
* Fsynth.irq: This routine will service interrupts for the DOC free
*             form synthesizer.
*
*     Import:
*             (E100CC) = oscillator number generating irq.
*
*     Export: A, X, Y, D = same as entry
*
********************************************************
;
;
;

***	include 'all.macros'	;removed 17-Sep-90 DAL
	include 'm16.util2'
	include 'Snd.Equ.aii'
	
	import gentable
	import gcb_xlate
	import serve_gen

	LONGA OFF 	;
	LONGI OFF 	;
	
	export fsynth_irq
Fsynth_irq	proc	;
	phd 	; save direct register
	lda >sram_base+wap_addr+1	; point to our work area
	pha 	;
	lda >sram_base+wap_addr	;
	pha 	;
	pld 	;
	lda >osc_no_irq	;
nxt_osc_irq		;
	sep #$30	; native
	clc 	; no carry please
	ror A	; put it in workable form
	and #$1F	; 32 oscillators
	sta osc_num_temp	; save the oscillator number
	cmp #$1E	; check for oscillator 30-31
	bcc not_apple	; not apple reserved
	jsl apple_snd	; will return through CLC, RTL
	bra chk_nxt_osc	; check rest of oscillators
not_apple		;
	tax 	; save the oscillator number
	lda >gentable,x	; get generator number
	tax 	;
	lda >gcb_xlate,x	; get the start addr of the gcb
	tax 	;
	php 	; save status reg
	jsr serve_gen	;
	plp 	; restore status
chk_nxt_osc		;
	sep #$20	;
	lda >irq_volume	; select DOC no auto incr
	sta gstatreg	;
	lda #eoir	; read DOC irq register
	sta gadrl	;
	lda gdatreg	; read the DOC irq register
	lda gdatreg	;
	bpl nxt_osc_irq	; got a live one!!
exit_firq		;
	pld 	; restore direct register
	clc 	; according to Peter
	rtl 	;
;
;
apple_snd		;
	jmp >asnd_vect	; go to the Apple reserved vector


	endp
	end
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Sound/stopsound.aii b/IIGS.601.SRC/GSToolbox/Sound/stopsound.aii
new file mode 100644
index 0000000..e01253e
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Sound/stopsound.aii
@@ -0,0 +1 @@
+
***          Copyright Apple Computer, Inc. 1985-1989	 ***
***          All Rights Reserved		 ***


	include 'all.macros'
	include 'Snd.Equ.aii'
********************************************************
*
* Stop.Sound: This routine will stop a Sound generator in the DOC.
*             It checks the active flag and stops only the oscillators
*             which are running.
*
*     Import: Function # = $00
*             +------------+
*             |  Mask low  |
*             +------------+
*             | Mask high  |
*             +------------+
*             |  low byte  |
*             +------------+
*             |  high byte |
*             +------------+
*             |    bank    |
*             +------------+
*             |  low byte  |
*             +------------+
*             |  high byte |
*             +------------+
*             |    bank    |
*             +------------+
* SP >>>--->>
*
********************************************************
;
;
Stopsound	proc EXPORT

	import osctable
	import gcb_xlate


	phd	;save direct register
	phb	; save data bank register
	php	; save m & x bits
	sei	; no interruptions
	tcd	; set direct reg to	our WAP
	longa off	;
	sep #$20	; 8 bit accumulator
	lda #sram_bank	; point to working ram
	pha	;
	plb	;
	lda sgctrl	; read the Sound glu control register
	and #$F0	; mask off low nibble
	ora >irq_volume	; include the system volume
	pha	; save it
	and #gvol	; select the DOC with no auto incr
	ora #auto_incr	; sound glu auto incr. enabled
	sta sgctrl	; and leave sys volume alone
	longa on	;
	rep #$20	;
	lda >sram_base+active_oscs ; get active	oscillators
	and $0C,s	; include the mask
	sta >sram_base+off_bits ; save bits for	oscillators to turn	off
	eor >sram_base+active_oscs ; turn off active bits on specified oscs_
	sta >sram_base+active_oscs ;
	ldx #$10	; 16 generators $00-$0F
osc_off_loop	equ *	;
	dex	; point to first oscillator
	longa on	;
	rep #$20	; back into 16 bit accum / memory
	lda >sram_base+off_bits ; get oscillators to shut off
	asl A
;
	sta >sram_base+off_bits ;
	bcs osc_off	; if set then turn it off
	beq osc_off_exit	; all done go away
	bra osc_off_loop	; keep going until all off
osc_off	equ *	;
	longa off	;
	sep #$20	; 8 bit accum / memory
	lda >osctable,x	; get the oscillator number
	pha	; save oscillator number
	clc	; point to oscillator number
	adc #efreqlo	; point to low byte	of frequency
	sta sgadrl	;
	stz sgdata	; zero out both oscillators
	stz sgdata	;
	lda $01,s	; get oscillator number
	clc	;
	adc #efreqhi	; point to high byte of frequency reg
	sta sgadrl	;
	stz sgdata	; zero out both oscillators
	stz sgdata	;
	lda $01,s	; get oscillator number
	clc	;
	adc #eocr	;
check_again	equ *
	sta sgadrl	;
	xba	; save register number
;               lda	    sgdata	; get current DOC control reg
;               lda	    sgdata	;
;               and	    #eocrid	; disable interrupts
;               ora	    #eocrhlt	; halt the oscillator
	lda #$01	; with no irqs
	xba	;
	sta sgadrl	; point to oscillator control
	xba	;
	sta sgdata	; for both oscillators
	sta sgdata	; write out new DOC	control byte
	xba	; get reg number
	sta sgadrl	;
	xba	; keep reg number
	lda sgdata	; discard this read
	lda sgdata	; even oscillator control byte
	and #$01	; keep halt bit
	and sgdata	; if non zero go do	next generator
	bne go_do_next	;
	lda #$14	; kill 50+ usecs. minimum to let DOC complete cycle
kill_loop	dec A	;
	bne kill_loop	;
	xba	; get register number back
	bra check_again	;
go_do_next	equ *	;
	pla	; restore oscillator number
	clc	;
	adc #evol	; point to volume registers
	sta sgadrl	;
	stz sgdata	; turn down off the	volume
	stz sgdata	; for both oscillators
	lda >sram_base+wap_installed ; check for wap installed
	beq osc_off_loop	; and if installed then mark mode byte free
	phx	; save count
	lda #$00	;must set 'b' part of 'c'=0
	xba	;
	lda >gcb_xlate,x	; get index into gcb for oscillator
	tax	;
	stz <gcb_mode,x	; clear first word of gcb
	stz <gcb_gen,x	;
	plx	; restore count
	brl osc_off_loop	;
osc_off_exit	equ *	;
	longa off
	sep #$20	; 8 bits accum / memory
	pla	; restore sound glu	control register
	sta sgctrl	; put it back
	plp	; restore status register
	plb	; restore data bank	register
	endc 2	; two bytes to strip off


	ENDP
	
	
	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Sound/tables.aii b/IIGS.601.SRC/GSToolbox/Sound/tables.aii
new file mode 100644
index 0000000..f287d7d
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Sound/tables.aii
@@ -0,0 +1 @@
+	TITLE 'Oscillator table'
	EJECT
************************************************************
*
* Table of Physical DOC oscillator #'s indexed by
* the logical Sound generator number (0-f)
*
* Entries point to the first osc of each osc-pair
* used as a sound generator
*
************************************************************
	export Osctable
Osctable	;
	DC.B $00,$10,$08,$18
	DC.B $04,$14,$0C,$1C
	DC.B $02,$12,$0A,$1A
	DC.B $06,$16,$0E,$1E
;
;
	TITLE 'Generator table'
	EJECT
************************************************************
*
* Gen.table: Table of Physical sound generator #'s indexed by
*            the DOC oscillator number $00-$1F.
*            Entries point to generator number for that pair of oscs.
*
************************************************************
	export Gentable
Gentable		;
	DC.B $00,$00	; osc # $00,$01
	DC.B $08,$08	; osc # $02,$03
	DC.B $04,$04	; osc # $04,$05
	DC.B $0C,$0C	; osc # $06,$07
	DC.B $02,$02	; osc # $08,$09
	DC.B $0A,$0A	; osc # $0A,$0B
	DC.B $06,$06	; osc # $0C,$0D
	DC.B $0E,$0E	; osc # $0E,$0F
	DC.B $01,$01	; osc # $10,$11
	DC.B $09,$09	; osc # $12,$13
	DC.B $05,$05	; osc # $14,$15
	DC.B $0D,$0D	; osc # $16,$17
	DC.B $03,$03	; osc # $18,$19
	DC.B $0B,$0B	; osc # $1A,$1B
	DC.B $07,$07	; osc # $1C,$1D
	DC.B $0F,$0F	; osc # $1E,$1F
;
;
	TITLE 'Gen # to gcg addr table'
	EJECT
********************************************************
*
* gcb.xlate: This table translates the gen number into a gcb entry
*            address.
*
*     Import: X = generator number
*
*     Export: X = gcb start addr corresponding to gen #
*
********************************************************
;
;
	export gcb_xlate
gcb_xlate		;
	DC.B gen0_gcb	;
	DC.B gen1_gcb	;
	DC.B gen2_gcb	;
	DC.B gen3_gcb	;
	DC.B gen4_gcb	;
	DC.B gen5_gcb	;
	DC.B gen6_gcb	;
	DC.B gen7_gcb	;
	DC.B gen8_gcb	;
	DC.B gen9_gcb	;
	DC.B genA_gcb	;
	DC.B genB_gcb	;
	DC.B genC_gcb	;
	DC.B genD_gcb	;
	DC.B genE_gcb	;
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/StdFile/Dialogs.aii b/IIGS.601.SRC/GSToolbox/StdFile/Dialogs.aii
new file mode 100644
index 0000000..7026152
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/StdFile/Dialogs.aii
@@ -0,0 +1 @@
+DataSegment	RECORD

		IMPORT  MyDraw
	
		EXPORT  DIalogTable
		EXPORT  GetDialog640
		EXPORT  GetDialog320
		EXPORT  PutDialog640
		EXPORT  PutDialog320
		EXPORT  ListManagerRec

**********************************************************************
* Table of Dialogs. Index is GetPutFlag created in Newsf.aii.
* d0:640/320 mode. 0 = 640, 1 = 320
* d1:Get/Put flag. 0 = Get, 1 = Put
**********************************************************************
DialogTable	dc.l  GetDialog640, GetDialog320, PutDialog640, PutDialog320

*********************************************************************
* GetFile DIalog Data record, 08-June-1988								*
*********************************************************************

GetDialog640	
*		dc.w	40,320-200,154,320+200		; drect of dialog (640 mode) recommended
		dc.w	0,0,114,400			; drect of dialog (640 mode) recommended
		dc.w	-1
		dc.w	0,0				; reserved word
		dc.l	OpenBut640
		dc.l	CloseBut640
		dc.l	NextBut640			; volumes popup
		dc.l	CancelBut640
		dc.l	Scroll640			; dummy item for compatability
		dc.l	Path640
		dc.l	Files640
		dc.l	Prompt640
		dc.l	0
		

OpenBut640
		dc.w	1				;item #
		dc.w	61,265,73,375			;drect
		dc.w	ButtonItem			;type of item
		dc.l	OpenStr				;Item descriptor
		dc.w	0,0				;Item value & bit flags
		dc.l	0				;color table ptr (nill is default)

CloseBut640
		dc.w	2				;item #
		dc.w	79,265,91,375			;drect
		dc.w	ButtonItem			;type of item
		dc.l	CloseStr			;Item descriptor
		dc.w	0,0				;Item value & bit flags
		dc.l	0				;color table ptr (nill is default)
	
		
NextBut640
		dc.w	3				;item #
		dc.w	25,265,37,375			;drect
		dc.w	ButtonItem			;type of item
		dc.l	DriveStr			;Item descriptor
		dc.w	0,0				;Item value & bit flags
		dc.l	0				;color table ptr (nill is default)

CancelBut640
		dc.w	4				;item #
		dc.w	97,265,109,375			;drect
		dc.w	ButtonItem			;type of item
		dc.l	CancelStr			;Item descriptor
		dc.w	0,0				;Item value & bit flags
		dc.l	0				;color table ptr (nill is default)

		
Scroll640						;dummy item or ACCEPT button for multi
		dc.w	5				;item #
		dc.w	43,265,55,375			;drect
		dc.w	ButtonItem			;type of item
		dc.l	AcceptStr			;Item descriptor
		dc.w	0,0				;Item value & bit flags
		dc.l	0				;color table ptr (nill is default)

		
Path640
		dc.w	6				;item #
		dc.w	12,15,24,395			;drect
		dc.w	UserItem			;type
		dc.l	PathDraw			;Item descriptor
		dc.w	0,0				;Item value and bit flags
		dc.l	0				;color table


Files640
		dc.w	7				;item #
		dc.w	25,18,107,215			;drect
		dc.w	UserItem+ItemDisable		;type
		dc.l	0				;Item descriptor
		dc.w	0,0				;Item value and bit flags
		dc.l	0				;color table

Prompt640
		dc.w	8				;item #
		dc.w	03,15,12,395			;drect
		dc.w	StatText+ItemDisable		;type
		dc.l	0				;Item descriptor
		dc.w	0				;size of text
		dc.w	0				;Bit flags
		dc.l	0				;color table
		

		
GetDialog320	

		dc.w	0,0,114,260			; drect of dialog (320 mode)
		dc.w	-1
		dc.w	0,0				; reserved word
		dc.l	OpenBut320
		dc.l	CloseBut320
		dc.l	NextBut320			; volumes popup
		dc.l	CancelBut320
		dc.l	Scroll320			; dummy item
		dc.l	Path320
		dc.l	Files320
		dc.l	Prompt320
		dc.l	0
		

OpenBut320
		dc.w	1				;item #
		dc.w	61,160,73,255			;drect
		dc.w	ButtonItem			;type of item
		dc.l	OpenStr				;Item descriptor
		dc.w	0,0				;Item value & bit flags
		dc.l	0				;color table ptr (nill is default)

CloseBut320
		dc.w	2				;item #
		dc.w	79,160,91,255			;drect
		dc.w	ButtonItem			;type of item
		dc.l	CloseStr			;Item descriptor
		dc.w	0,0				;Item value & bit flags
		dc.l	0				;color table ptr (nill is default)
	
NextBut320
		dc.w	3				;item #
		dc.w	25,160,37,255			;drect
		dc.w	ButtonItem			;type of item
		dc.l	DriveStr			;Item descriptor
		dc.w	0,0				;Item value & bit flags
		dc.l	0				;color table ptr (nill is default)

CancelBut320
		dc.w	4				;item #
		dc.w	97,160,109,255			;drect
		dc.w	ButtonItem			;type of item
		dc.l	CancelStr			;Item descriptor
		dc.w	0,0				;Item value & bit flags
		dc.l	0				;color table ptr (nill is default)
				
Scroll320						;dummy item or ACCEPT button for Multi
		dc.w	5				;item #
		dc.w	43,160,55,255			;drect
		dc.w	ButtonItem			;type of item
		dc.l	AcceptStr			;Item descriptor
		dc.w	0,0				;Item value & bit flags
		dc.l	0				;color table ptr (nill is default)

				
Path320
		dc.w	6				;item #
		dc.w	12,06,24,256			;drect
		dc.w	UserItem			;type
		dc.l	PathDraw			;Item descriptor
		dc.w	0,0				;Item value and bit flags
		dc.l	0				;color table

Files320
		dc.w	7				;item #
		dc.w	25,05,107,140			;drect
		dc.w	UserItem+ItemDisable		;type
		dc.l	0				;Item descriptor
		dc.w	0,0				;Item value and bit flags
		dc.l	0				;color table
		
Prompt320
		dc.w	8				;item #
		dc.w	03,05,12,255			;drect
		dc.w	StatText+ItemDisable		;type
		dc.l	0				;Item descriptor
		dc.w	0				;length
		dc.w	0				;Bit flags
		dc.l	0				;color table

**********************************************************************
**********************************************************************
*********************************************************************
* PutFile DIalog Data record, 03-October-1988								*
*********************************************************************

PutDialog640

		dc.w	0,0,120,320				; drect of dialog (640 mode) recommended
		dc.w	-1
		dc.w	0,0					; reserved word
		dc.l	SaveButP640
		dc.l	OpenButP640
		dc.l	CloseButP640
		dc.l	NextButP640
		dc.l	CancelButP640
		dc.l	ScrollP640				;DUMMY item
		dc.l	PathP640
		dc.l	FilesP640
		dc.l	PromptP640
		dc.l	EditP640
		dc.l	StatTextP640
		dc.l	CreateButP640
		dc.l	0
		

SaveButP640
		dc.w	1				;item #
		dc.w	87,204,99,310			;drect
		dc.w	ButtonItem			;type of item
		dc.l	SaveStr				;Item descriptor
		dc.w	0,0				;Item value & bit flags
		dc.l	0				;color table ptr (nill is default)

OpenButP640
		dc.w	2				;item #
		dc.w	49,204,61,310			;drect
		dc.w	ButtonItem			;type of item
		dc.l	OpenStr				;Item descriptor
		dc.w	0,0				;Item value & bit flags
		dc.l	0				;color table ptr (nill is default)

CloseButP640
		dc.w	3				;item #
		dc.w	64,204,76,310			;drect
		dc.w	ButtonItem			;type of item
		dc.l	CloseStr			;Item descriptor
		dc.w	0,0				;Item value & bit flags
		dc.l	0				;color table ptr (nill is default)
	
		
NextButP640
		dc.w	4				;item #
		dc.w	15,204,27,310			;drect
		dc.w	ButtonItem			;type of item
		dc.l	DriveStr			;Item descriptor
		dc.w	0,0				;Item value & bit flags
		dc.l	0				;color table ptr (nill is default)

CancelButP640
		dc.w	5				;item #
		dc.w	104,204,116,310			;drect
		dc.w	ButtonItem			;type of item
		dc.l	CancelStr			;Item descriptor
		dc.w	0,0				;Item value & bit flags
		dc.l	0				;color table ptr (nill is default)

ScrollP640
		dc.w	6				;item #
		dc.w	0,0,0,0				;drect
		dc.w	UserItem			;type
		dc.l	0				;Item descriptor
		dc.w	0,0				;Item value and bit flags
		dc.l	0				;color table
		

PathP640
		dc.w	7				;item #
		dc.w	0,10,12,315			;drect
		dc.w	UserItem			;type
		dc.l	PathDraw			;Item descriptor
		dc.w	0,0				;Item value and bit flags
		dc.l	0				;color table
		
		
FilesP640
		dc.w	8				;item #
		dc.w	26,10,88,170			;drect
		dc.w	UserItem+ItemDisable		;type
		dc.l	0				;Item descriptor
		dc.w	0,0				;Item value and bit flags
		dc.l	0				;color table
		
		
PromptP640
		dc.w	9				;item #
		dc.w	88,10,100,200			;drect
		dc.w	StatText+ItemDisable	;type
		dc.l	0				;Item descriptor
		dc.w	0				;size of text
		dc.w	0				;Bit flags
		dc.l	0				;color table

EditP640
		dc.w	10				;item #
		dc.w	100,10,118,194			;drect
		dc.w	EditLine+ItemDisable		;type
		dc.l	0				;Item descriptor
		dc.w	32				;size of text 
		dc.w	0				;Bit flags
		dc.l	0				;color table
		
StatTextP640
		dc.w	11				;item #
		dc.w	12,10,22,200			;drect
		dc.w	StatText+ItemDisable		;type
		dc.l	KbFreeStr			;Item descriptor
		dc.w	0				;size of text
		dc.w	0				;Bit flags
		dc.l	0				;color table

CreateButP640
		dc.w	12				;item #
		dc.w	29,204,41,310			;drect
		dc.w	ButtonItem			;type
		dc.l	FolderStr			;Item descriptor
		dc.w	0				;size of text
		dc.w	0				;Bit flags
		dc.l	0				;color table
		

		
PutDialog320

		dc.w	0,0,128,270			; drect of dialog (320 mode)
		dc.w	-1
		dc.w	0,0				; reserved word
		dc.l	SaveButP320
		dc.l	OpenButP320
		dc.l	CloseButP320
		dc.l	NextButP320
		dc.l	CancelButP320
		dc.l	ScrollP320			;DUMMY item
		dc.l	PathP320
		dc.l	FilesP320
		dc.l	PromptP320
		dc.l	EditP320
		dc.l	StatTextP320
		dc.l	CreateButP320
		dc.l	0
		

SaveButP320
		dc.w	1				;item #
		dc.w	93,165,105,265			;drect
		dc.w	ButtonItem			;type of item
		dc.l	SaveStr				;Item descriptor
		dc.w	0,0				;Item value & bit flags
		dc.l	0				;color table ptr (nill is default)

OpenButP320
		dc.w	2				;item #
		dc.w	54,165,66,265			;drect
		dc.w	ButtonItem			;type of item
		dc.l	OpenStr				;Item descriptor
		dc.w	0,0				;Item value & bit flags
		dc.l	0				;color table ptr (nill is default)

CloseButP320
		dc.w	3				;item #
		dc.w	72,165,84,265			;drect
		dc.w	ButtonItem			;type of item
		dc.l	CloseStr			;Item descriptor
		dc.w	0,0				;Item value & bit flags
		dc.l	0				;color table ptr (nill is default)
	
NextButP320
		dc.w	4				;item #
		dc.w	15,165,27,265			;drect
		dc.w	ButtonItem			;type of item
		dc.l	DriveStr			;Item descriptor
		dc.w	0,0				;Item value & bit flags
		dc.l	0				;color table ptr (nill is default)

CancelButP320
		dc.w	5				;item #
		dc.w	111,165,123,265			;drect
		dc.w	ButtonItem			;type of item
		dc.l	CancelStr			;Item descriptor
		dc.w	0,0				;Item value & bit flags
		dc.l	0				;color table ptr (nill is default)
				
ScrollP320
		dc.w	6				;item #
		dc.w	00,00,00,00			;drect
		dc.w	UserItem			;type
		dc.l	0				;Item descriptor
		dc.w	0,0				;Item value and bit flags
		dc.l	0				;color table

				
PathP320
		dc.w	7				;item #
		dc.w	00,10,12,265			;drect
		dc.w	UserItem			;type
		dc.l	PathDraw			;Item descriptor
		dc.w	0,0				;Item value and bit flags
		dc.l	0				;color table

		
FilesP320
		dc.w	8				;item #
		dc.w	26,10,88,145			;drect
		dc.w	UserItem+ItemDisable		;type
		dc.l	0				;Item descriptor
		dc.w	0,0				;Item value and bit flags
		dc.l	0				;color table
		
PromptP320
		dc.w	9				;item #
		dc.w	88,10,100,170			;drect
		dc.w	StatText+ItemDisable		;type
		dc.l	0				;Item descriptor
		dc.w	0
		dc.w	0				;Bit flags
		dc.l	0				;color table


EditP320
		dc.w	10				;item #
		dc.w	100,10,118,157			;drect
		dc.w	EditLine+ItemDisable		;type
		dc.l	0				;Item descriptor
		dc.w	32				;size of text max
		dc.w	0				;Bit flags
		dc.l	0				;color table
		
StatTextP320
		dc.w	11				;item #
		dc.w	12,10,22,160			;drect
		dc.w	StatText+ItemDisable		;type
		dc.l	KbFreeStr			;Item descriptor
		dc.w	0				;size of text
		dc.w	0				;Bit flags
		dc.l	0				;color table

CreateButP320
		dc.w	12				;item #
		dc.w	33,165,45,265			;drect
		dc.w	ButtonItem			;type
		dc.l	FolderStr			;Item descriptor
		dc.w	0				;size of text
		dc.w	0				;Bit flags
		dc.l	0				;color table
		
**********************************************************************
* needed strings for above dialogs
**********************************************************************
SaveStr		str	'Save'
OpenStr		str	'Open'
AcceptStr	str	'Accept'
CloseStr	str	'Close'
DriveStr	str	'Disks'			;was Volumes (25-Mar-92 DAL)
CancelStr	str	'Cancel'
FolderStr	str	'New Folder'
*** KbFreeStr	str	'^0 free of ^1 k.'	;Dialog manager Routine replace strings
KbFreeStr	str	'^0 free of ^1K.'	;6-Feb-91 DAL
;UntitledStr	str 	'Untitled'		;discovered disused 15-Apr-91 DAL

**********************************************************************
* List manager Record (is moved this to ram because ROM based)
**********************************************************************
ListManagerRec
	dc.w  0,0,0,0				;size of rec
	dc.w  0					;number of list members total
	dc.w  8					;max viewable members
	dc.w  2					;Bit Flags (single selection, length type strings used)
	dc.w  1					;first member to view
	dc.l  0					;space for list control's handle
	dc.l  MyDraw				;space for pointer to custom drawing routine
	dc.w  10				;height of list members
	dc.w  5					;size of member records in MyList in bytes
GetListPtr
	dc.l  0					;Pointer to first element of list (put your pointer here!!!)
	dc.l  0					;Becomes Control's refCon (app defined)
	dc.l  0					;Color table for list's scroll bar (null is defalut)
	

**********************************************************************
* values that should be used for the files rect. in the list manager
*	dc.w  25,18,107,215		;size of rec for 640 mode
*
*	dc.w  27,05,109,140		;size of rec for 320 mode
*
*	dc.w  26,10,88,170		;size of rec for 640 mode
*
*	dc.w  27,05,109,140		;size of rec for 320 mode ***DEBUG*** check these numbers
*
**********************************************************************


		ENDR
	
************************************************************************
* List Record template
**********************************************************************
ListRecord	RECORD 0
theRect 	ds.w 4			;size of rect
listCount	ds.w 1			;number of list members total
listView	ds.w 1			;max viewable members
listFlags	ds.w 1			;Bit Flags (single selection, length type strings used)
listFirst	ds.w 1			;first member to view
listControlH	ds.l 1			;space for list control's handle
listDraw	ds.l 1			;space for pointer to custom drawing routine
listHeight	ds.w 1			;height of list members
listSize	ds.w 1			;size of member records in MyList in bytes
listPtr		ds.l 1			;Pointer to first element of list (put your pointer here!!!)
listControl	ds.l 1			;Becomes Control's refCon (app defined)
listColor	ds.l 1			;Color table for list's scroll bar (null is defalut)
		ENDR

TheStrings	PROC
		EXPORT  valueTable
		EXPORT  endValue
		EXPORT  generr
		EXPORT  memorymessage
		EXPORT  noVolMessage

*********************************************************************
*
* Every string you could ever want! (Except for the ones above)
*
**********************************************************************
*
* the following string are used to display possible errors while creating
* a folder.
*
valueTable
*
* Used by 'DoCreate' routiune to pick a message for a given Error number.
* scan for the error # and use the following message.
*
		dc.w  $10
		dc.l  NoDevice		;no device
		dc.w  $2B
		dc.l  writeprot		;write protected
		dc.w  $40
		dc.l  badpath		;bad path
		dc.w  $44
		dc.l  badpath		;bad path
		dc.w  $45
		dc.l  novol		;no volume
		dc.w  $47
		dc.l  dupname		;duplicate name
		dc.w  $48
		dc.l  volFull		;volume full
		dc.w  $49
		dc.l  volFull		;volume directory full
endValue

writeprot	dc.b  'Disk is write protected',0
badpath		dc.b  'The pathname has changed or is now in error',0
novol		dc.b  'Please replace the disk (Disk not found)',0
dupname		dc.b  'That name is already in use.  Please pick another',0
volFull		dc.b  'The disk or disk directory is full',0
NoDevice	dc.b  'The device was not found',0
GenErr		dc.b  'A strange error occurred',0	;15-Mar-91 DAL (was "...strange I/O error...")

*
* The following messages are passed to Alert Window if errors occur
*
MemoryMessage	dc.b  '62/Unable to allocate memory to run Standard File.',$0d,'Free mem: *0 bytes',$0d,'Requested: *1 bytes/^#1',0
noVolMessage	dc.B  '65/No disks are available.  Please insert a disk./^#0/#1',0	;25-Mar-92 DAL

		ENDP
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/StdFile/GlobalEqu.aii b/IIGS.601.SRC/GSToolbox/StdFile/GlobalEqu.aii
new file mode 100644
index 0000000..7323b9b
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/StdFile/GlobalEqu.aii
@@ -0,0 +1 @@
+*************************************************************************
*     Copyright Apple Computer, Inc. 1989
*            All Rights Reserved
*
* Change History:
*
* 8/28/89	Harry
* Defined another bit in FGetPutFlag. Bit 3 when set now means that 
* the "Volume" or "Disk" button is the old style button, not the 
* new volumes popup. Also when bit 2 is set, this means that the 
* TAB key was hit. This is a bit for routine DoVolume to check whether
* we had a mouse down or a TAB key for the "Disk" button.
*
* 25-Mar-91	Dave Lyons
*
* Removed the GetDirEntry parameter block stuff; I needed to grow it,
* and it was too big to fit on direct page.
*
* 7-Apr-91	Dave Lyons
*
* Defined new error $17FF sfNotStarted.
*
* 18-Dec-91	Dave Lyons
*
* Added FunkyPutFile bit (means that this is a PutFile call, but with
* the Line Edit field outside the window).  ShrinkIt GS and other
* applications do this to get a choose-directory dialog.
*
* 19-Mar-93 	Steve Stephenson
*
* Added TabBackwards bit in FGetPutFlag to allow "PreviousDrive" (reverse
* direction of NextDrive.
*
* 22-Mar-93	Steve Stephenson
*
* Added HaveVisibleEdit in FGetPutFlag to allow tabbing around to multiple
* editlines in PutFile and skipping Item#10 if outside of the window.
*
*************************************************************************
	DSECT 0
*
* global "zero" page variables
*
*
* variables which are passed on the stack and moved into direct page
*
PromptPtr	long	; Pointer to String displayed in dialog.
PromptVerb	word	; descriptor of verb
FilterProcPtr	long	; Pointer to the filter procedure.
OrigNamePtr    	EQU  FilterProcPtr	; Same variable for PutFile.
TypeList	long	; Pointer to the Type List.
OrigName	EQU  TypeList	; type list not used in Put
OrigNameVerb	word	; word for above reference
DilgHook	long	; put's dialog Hook Pointer
MaxLen	word	; old style max characters
ReplyPtr	long	; Pointer to the Reply Record.
WhereX	word	; Location on the screen
WhereY	word	; of the dialog Box.
stackSize	word	; stack correction count
**********************************************************************
DialogTemplatePtr	long	; Pointer on patched Dialog.
DialogTemplateVerb	word	; verb for above reference (future expansion)
PrefixPtr	long	; matching pointer
DialogPtr	long	; Ptr returned from GetNewModalDialog
DinfoPtr	long	;Ptr for DinfoCall memory
ListRecPtr	long
ListRecHandle	long	;ptr & handle for List Record control
SizeInfoPtr	long	;ptr to hold free space, total space and strings
totalSize	equ 00	;total blocks, bytes 0 - 3
totalFree	equ 04	;total free block, bytes 4 - 7
totalSizeStr	equ 08	;totalblocks string, bytes 8 - 19 (10. digits max, 2 size)
totalFreeStr	equ 20	;total free blocks string, bytes 20-31
ListControl1	long	;list handle
ListRefCon	long	;a place to save above when zeroed
ScrollControl1	long	;List's scroll bar handle
ScrollrefCon	long	;a place to save the above when zeroed
lastSelected	long	;last item clicked on for double click check
lastTime	long	;clock when that item was hit
openButStat	word	;status of open button last time through
closeButStat	word	;status of close button last time through
saveButStat	word	;status of save button last time through
curDev	word	;current dev number.
selectedptr	long	;ptr to selected item
topflg	word	;0 if on the root level of the device
invisible	word	;non 0 indicates display invsible files
writeProtect	word	;non 0 if volume is write protected.
IconHookPtr	long	;pointer to a custom icon hook routine.



MyId	word	;hAllEntry owner ID
*------------------------------------------------
* temp variables
*------------------------------------------------
ztemp1	long	;a  direct page temp
ztemp2	long	;another
ztemp3	long	;and one more!
pointer	long	;a temp pointer for indirect calls
pointer2	long	;another temp pointer
handle	long	;a temp handle for indirect calls
*--equates of above for converting time routine
pro_time	equ  handle		;usage of temps
hours	equ  ztemp1
minutes	equ  ztemp1+2
year	equ  ztemp2
month	equ  ztemp2+2
day	equ  ztemp3
*------------------------------------------------------------------------
* Some of the information returned from an Open call needs to be saved
*------------------------------------------------------------------------
RefNumber	word	;refNumber returned from open
FileType	word	;file type returned from GetDirEntry call
AuxType	long	;file Auxtype returned from GetDirEntry call
EntryNum	word	;entry enumber returned from GetDirEntry call
DirSize	word	;size returned from directory call
FileSysID	word	;volume type returned from _Volume Call
*------------------------------------------------------------------------
* The list manager (and other places) will need to reference these handles
* so these are  GLOBAL handle variables
*------------------------------------------------------------------------
StringsHandle	long	;memory to build class 1 text strings into for list manager
StringsLength	long	;fake length
StringsPtr	long	;the de-refed pointer
StringsOffset	word	;next available entry for a string (64K limit)
NameHandle	long	;handle to buffer for ReadDirectoryEntry
NamePtr	long	;a pointer to the memory for the above handle (if needed)
ListPointerHandle	long	;a handle for the list of files names (for list manager)
ListPointerPtr	long	;a pointer to the memory of list name pointers (actually offsets)
ProDosDirEntry	long	;a pointer to a ProDos record conversion from GetDirEntry
*------------------------------------------------------------------------
* Parameter Block for passing paramaters to OS calls (except GetDirEntry)
*------------------------------------------------------------------------
ParBlock	block $22	;max parameter block size used here
ParBlock2	block $10	;the remainder
*------------------------------------------------------------------------
*other memory needed now but seemed to come from somewhere else
*in the original SF
*------------------------------------------------------------------------
*
* FGetPutFlag
*
FGetPutFlag	word
PutFlag	equ $8000	; Flag d16 = 1:Put, 0:get
Size320Flag	equ $4000	; d15 = 1:320, 0:640
PatchedFlag	equ $2000	; d14 = 1:custom dialog, 0:normal
PathDrawPatched	equ $1000	; d13 = 1:PathDraw routine patched, 0:not patched
HaveVisibleEdit	equ $0080	; d7 =  1:means we are in a PutFile w/ at least 1 ediline visible
TabBackwards	equ $0040	; d6 =  1:means we are doing Previous Drive (SS)
FunkyPutFile	equ $0020	; d5 =  1:means this is PutFile w/ Line Edit #10 outside the window (DAL)
PutFileListActive	equ $0010	; d4 =  1:means the List control is active in putfile (DAL)
InVolumeList	equ $0008	; d3 =  1:means this is an old style "Disk" button. 
TABorMouseDown	equ $0004	; d2 =  1:TAB key hit
MultiFIleMode	equ $0002	; d1 =  1: multi file mode
OldStyleFlag	equ $0001	; d0 =  1:old file call, 0:new file call


CurError	word	; Current Error.
LastRequest	long	;last amount of memory requested

tempRect	block 8
ItemHit	word	;item # returned from ModalDialog
Seperator	byte	;current seperator character.
FRedraw	word	;redraw flag to modal dialog loop

	IF DummyPC³$FE THEN
	  AERROR 'WARNING...Direct page is or is getting TOO LARGE'
	ENDIF
**********************************************************************
* Additional information is kept in the DInfo handle area above $40.
* There are approx 100 bytes available here and equated use is below.
**********************************************************************
FileModInfo	equ  $40	;at location 40 in DInfo handle (scratch area) (4 words)
										 ; call is made.

**********************************************************************
**********************************************************************
*
* Other needed equates that are not ram
*
**********************************************************************
True	equ $FFFF
False	equ $0000
Test_mem_never	equ $40		;For list manager to watch Mem_Never
LenEntry	equ  22		; Length of one Entry.
RFType	equ  02
RfAuxType	equ  04
RPartial	equ  06
RPathname	equ  22

MEM_SEL	equ $0080	TRUE if selected.
MEM_DISABLE	equ $0040	TRUE if disabled.
NOT_POSSIBLE	equ $0020	TRUE if member can NEVER be selected

HeightFileC	equ  10
ProDos_Stack_Entry	EQU  $E100B0

AppleShareID	equ  $000D


*
* equates for the use of the parameter block used to make system calls
* Format: name_Tool
*

* AddNotifyProc
procPointer	equ  ParBlock+$02

* DControl
devNum_DControl	equ  ParBlock+$02
controlCode	equ  ParBlock+$04
controlList	equ  ParBlock+$06
requestCount	equ  ParBlock+$0A
transferCount	equ  ParBlock+$0E

ejectMedium	equ  $0002
* DStatus:
devNum_DStatus	equ  ParBlock+$02
statuscode_DStatus	equ  ParBlock+$04
statlist_DStatus	equ  ParBlock+$06		;status list pointer
rcount_DStatus	equ  ParBlock+$0A
xfercnt_DStatus	equ  ParBlock+$0E
*2 bytes returned, second byte status bits equates:
writeProtBit	equ  $4		;if 1, write protected

* DInfo:
devNum_DInfo	equ  ParBlock+$02		;returned RefNumber
devName_DInfo	equ  ParBlock+$04		;name
devCharact_DInfo	equ  ParBlock+$08		;charactistics
devDeviceID_Dinfo	equ  ParBlock+$14
* Volume:
devName_Volume	equ  ParBlock+$02
volName_Volume	equ  ParBlock+$06
ParTotBlks_Volume	equ  ParBlock+$0A
ParFreeBlks_Volume	equ  ParBlock+$0E
ParFileSysID_Volume	equ  ParBlock+$12
ParBlksSize_Volume	equ  ParBlock+$14
* Open and Close
ParRefNumber_Open	equ  ParBlock+$02		;returned RefNumber
ParName_Open	equ  ParBlock+$04
RequestAccess_Open	equ  ParBlock+$08

;* GetDirEntry:
;ParPCount_GDE	equ  ParBlock
;ParRefNumber_GDE	equ  ParBlock+$02		;equates for GetDirEntry parameter block
;ParFlags_GDE	equ  ParBlock+$04
;ParBase_GDE	equ  ParBlock+$06
;ParDisplacement_GDE equ  ParBlock+$08
;ParName_GDE	equ  ParBlock+$0A
;ParEntryNum_GDE	equ  ParBlock+$0E
;ParFileType_GDE	equ  ParBlock+$10
;ParEOF_GDE	equ  ParBlock+$12
;ParBlocks_GDE	equ  ParBlock+$16
;ParCreateDT_GDE	equ  ParBlock+$1A
year_GDE	equ  0		;year BYTE (current year - 1900)
hours_GDE	equ  01		;hour BYTE (0-23)
minutes_GDE	equ  02		;minute BYTE (0-59)
second_GDE	equ  03		;seconds BYTE (0-59)
weekDay_GDE	equ  04		;week day BYTE (1 = Sun, 2 = Mon, etc)
month_GDE	equ  06		;month BYTE (0 = Jan, 1 = Feb, etc)
day_GDE	equ  07		;day # BYTE (0 = 1st, 1 = 2nd, etc)
;ParModDT_GDE	equ  ParBlock+$22
;ParAccess_GDE	equ  ParBlock+$2A
;ParauxType_GDE	equ  ParBlock+$2C		;4 bytes. End of block is $30 bytes

* GetFileInfo
ParPath_GFI	equ  ParBlock+$02
ParAccess_GFI	equ  ParBlock+$06
ParFileType_GFI	equ  ParBlock+$08
ParAuxType_GFI	equ  parBlock+$0A
ParStorage_GFI	equ  ParBlock+$0E
ParCreateTD_GFI	equ  ParBlock+$10		;creation time and date
ParmodTD_GFI	equ  ParBlock+$18		;mod create time and date
Pareof__GFI	equ  ParBlock+$24
ParBlockUsed_GFI	equ  ParBlock+$28

* GetPrefix & SetPrefix:
ParNumber_GetPrefix	equ  ParBlock+$02		;Prefix Number
ParPtr_GetPrefix	equ  ParBlock+$04
ParName_Create	equ  ParBlock+$02
ParAccess_Create	equ  ParBlock+$06
ParType_Create	equ  ParBlock+$08
ParAux_Create	equ  ParBlock+$0A
ParStorage_Create	equ  ParBlock+$0E

*
* define a ProDos File Entry record
*
	DSect 0
PDTypeLen	byte
PDName	block 15	;name
PDType	byte
PDKeyPointer	word
PDBlocksUsed	word
PDEof	block 3
PDCreateDate	word
PDCreateTime	word
PDVersion	byte
PDMinVersion	byte
PDAccess	byte
PDAuxType	word
PDModDate	word
PDModTime	word
PDHeadPointer	word

**********************************************************************
*
* Reply record formats
*
**********************************************************************
NewReplyRecord	RECORD 0
Ngood	ds.w 1	;boolean return flag
NfileType	ds.w 1	;file type
NauxType	ds.l 1	;file aux type info
NnameVerb	ds.w 1	;nameref verb
NnameRef	ds.l 1	;name ref
NpathVerb	ds.w 1	;pathref Verb
NpathRef	ds.l 1	;path ref
	ENDR
OldReplyRecord	RECORD 0
Ogood	ds.w 1
OfileType	ds.w 1			;file type
OauxType	ds.w 1			;file aux type info
Oname	ds.b 16			;the name
OPath	ds.b 129		;the full path of file in prefix 0
	ENDR

*
* ERRORS
*
BadVerbPrompt	equ  $1701
BadVerbName	equ  $1702
BadVerbDialog	equ  $1703
BadVerbRRName	equ  $1704
BadVerbRRPath	equ  $1705
sfNotStarted	equ  $17FF
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/StdFile/custompopup.aii b/IIGS.601.SRC/GSToolbox/StdFile/custompopup.aii
new file mode 100644
index 0000000..f04d627
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/StdFile/custompopup.aii
@@ -0,0 +1 @@
+;=======================================================================
;	CustomPopUp Routines for Volumes Popup
;
;       Copyright Apple Computer, Inc. 1989, 1990
;               All Rights Reserved.
;
; Change History:
;
; 15 Feb 90	Changed the way I handle disk switch events. I now install
;	myself in the GS/OS notification queue for disk switch
;	events. 
;	Routine PollDevices gets called from GetFilter and all it
;	does is a bunch of DStatus calls on all the devices. This
;	way we insure triggering a disk switch event if there is one.
;	NotificationPROC is the routine that gets installed. All it
;	does is set a flag that tells us a disk switch has occurred.
;	I also special case the instance where an eject occurred and
;	ejected disk is the current volume being displayed.
;	ServiceDiskSwitch just keeps checking the disk switch flag
;	and if its set handles the disk switch. It is also called 
;	from GetFilter.
; 07 Aug 90	Routine BuildVolumeList now sorts the volumes list alphabetically
;	before calling NewList.
; 15-Jan-91 Dave Lyons
;	Changed the volume list member record handle to be 64*5 bytes
;	instead of 20*5 bytes (fixes bug where >20 volumes hangs).
; 19-Feb-91 DAL	Grew the static device table to 256 bytes (128 devices).
;	Grew the volume name buffer to 36 bytes (was 35), so we can
;	handle 32-character volume names.
; 16-Apr-91 DAL	Changed the no-volumes AlertWindow to have sound & do a
;	volume scan (push $0110 instead of 0 for flags).
; 15-Sep-91 DAL	Moved InsertIntoList call for nonremovable devices to
;	before the Volume call, to solve the "infinite please
;	format your HFS partition" problem).
; 10,13-Oct-91 DAL	Ignore Apple tape drives (device id = $20).
; 29-Jan-92 DAL	Added a stz in ServiceDiskSwitch to avoid bogusly switching
;	to the next device after ejecting (with HandleDiskInsert) an
;	unusable disk.
;
;=======================================================================
	
	string asis
	blanks off
		
	
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
;
; 	Equates
;
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
;

y1	equ 0
x1	equ y1+2
y2	equ x1+2
x2	equ y2+2
	
;===========================================================
;
; Global data area.
;
PopUpGlobals	Record

;////////////////////////////////////////////////////////////////////////////////////
;
; GS/OS parameter blocks
;

DInfoPBlock	dc.W 8	; pcount
DevNum	ds.W 1	; device number 
	dc.L DevNameBuffer	; pointer to buffer to store device name
Characteristics	ds.W 1	; characteristics
	ds.L 1	; totalBlocks
	ds.W 1	; slotNum
	ds.W 1	; unitNum
	ds.W 1	; version
DeviceID	ds.W 1	; deviceID

VolumePBlock	dc.W 2	; pcount
	dc.L DevName	; device name (GS/OS input string)
	dc.L VolNameBuffer	; pointer to buffer to store volume name

DStatusPBlock	dc.W 5	; pCount
DStatDevNum	ds.W 1	; device number
	dc.W 0	; status code
	dc.L StatusList	; status info returned here
	dc.L $00000002	; request count, no. of bytes to return
	ds.L 1	; amount of info actually returned
StatusList	
StatusWord	ds.W 1	; status word returned for device


DevNameBuffer	dc.W 35	; word length count
DevName	ds.B 35	; buffer to store device name

VolNameBuffer	dc.W 36	; word length count (was 35, 19-Feb-91 DAL)
VolumeName	ds.B 36	; buffer to store volume name


StaticDeviceTable	ds.B 256	;table of devices not to make DStatus call on (was ds.b 128, 19-Feb-91 DAL)

TickCount	ds.L 1
		
NumVolumes	ds.W 1	; number of volumes on-line

DeviceSwitched	ds.W 1	; Device number of device that was last switched
TypeOfSwitch	ds.W 1	; Flag that tells us whether it was insert or eject.
CurrentEjected	ds.W 1	; Flag that indicates currently displayed disk was ejected.

ZeroString	str '0'


	ENDR
	
	
;==============================================================================
;
;	VolumesOnLine
;
; This routine just counts the number of volumes on-line. 
; NumVolumes contains the number of volumes found.
;
;==============================================================================
VolumesOnLine	PROC EXPORT
	with PopUpGlobals

	lda #0	First initialize our table that tracks all 
	ldx #256	non-removable devices (was 128, DAL)
@ZeroLoop	dex	Devices in this table are never polled for disk
	dex	ejections/insertions.
	bmi @Done
	sta StaticDeviceTable,x
	bra @ZeroLoop
@Done

	stz NumVolumes	This keeps track of the number of volumes found
	stz DevNum	This keeps track of which device we're currently looking at.

@Loop	jsr GetNextVolume
	bcs @noMoreVolumes

	inc NumVolumes
	bra @Loop
	
@noMoreVolumes	rtl

	ENDP
	
;==============================================================================
;
;	BuildVolumeList
;
; This routine goes out and finds all the volumes on-line and then puts them
; in a format such that the list mgr can display them.
;
; Structure of StringPtr
; |------------------------------------------------------------------|
; |length byte | string..........| DeviceID(word) | Device Num(word) |
; |------------------------------------------------------------------|
;
;==============================================================================
BuildVolumeList	PROC EXPORT	
	with PopUpGlobals

	_WaitCursor		;put up the watch cursor
	
	phd		;Save original direct page
	pha		;space for result
	pha
	PushWord #0		;System Toolset
	PushWord #$0017		;Standard File Toolset
	_GetWAP
	pld
	pla
	
; ----- Initialize some variables first ------------------------------------------
;
	stz NumVolumes		;This keeps track of the number of volumes found.
	stz StringsOffset		;Keeps track of where in StringsPtr the next vol name will go.
	stz DevNum		;Keeps track of which device we're currently looking at.
	stzl selectedptr		;Ptr to item that is to be selected in the list.
	
	lda FGetPutFlag
	ora #InVolumeList
	sta FGetPutFlag
	
	ldax ListPointerHandle
	jsr KillHandle		;Get rid of current list handle.
	
***	lda #100		;Get enough memory to hold 20 member records initially.
*** 15-Jan-91 DAL
*** Since there doesn't seem to be any code to resize this member record list beyond its initial size,
*** and since Testing says it hangs if you have more than 20 devices, I changed it to handle 64 devices,
*** which is all the rest of the code is prepared to deal with anyway.
***
	lda #64*5		;Get enough memory for 64 member records (15-Jan-91 DAL)
	jsr GetZeroHandle		;A-reg contains size of handle we want.   
	stax ListPointerHandle	;This routine also zeros the memory we get back.
	PushAX
	jsr DerefAndLock
	stax ListPointerPtr
;
; ----- Now start building the list of volume names ------------------------------
;
GetNextLoop	jsr GetNextVolume		;Upon return TheVolName contains ptr volume name (GS/OS output string)
	bcs @NoMoreVolumes	
	
	inc NumVolumes		;Increment counter that tells us how many volumes there are.
	
	lda StringsOffset		;Get offset of where volume name is in StringsPtr.
	sta [ListPointerPtr] 	;Store value in our list record for this member.
	
	lda StringsPtr		;Get address of where to copy the volume name to.
	ldx StringsPtr+2
	clc
	adc StringsOffset
	bcc @noCarry1
	inx
@noCarry1	phx		;Destination of where converted GS/OS output string is to go.
	pha
	PushZLong StringsLength	;GS/OS output string that is to be converted.
	jsl GSOStoPString
	
	lda [StringsLength]		;Get length of volume name just found.
	and #$00FF
	clc
	adc StringsOffset 		;Add to offset of where current volume was just inserted.	
	inc a		;Increment 1 to account for length byte.
	tay
	lda DeviceID		;Now store the device's ID along with its volume name.	
	sta [StringsPtr],y		;This is so we know which icon to draw the volume name with.
	iny 
	iny
	lda DevNum
	cmp curDev		;Find which device was last selected.
	bne @notThisOne
	phy		;Save the current a and y registers
	pha
	ldy #4
	lda [ListPointerPtr],y
	ora #$0080
	sta [ListPointerPtr],y
	pla
	ply
@notThisOne
	sta [StringsPtr],y
	iny
	iny
	tya
	sta StringsOffset		;Offset of where to store next volume name
	
	lda ListPointerPtr
	ldx ListPointerPtr+2
	clc
	adc #5		;Update where in member record to store next member.
	sta ListPointerPtr
	bcc @noCarry2
	inc ListPointerPtr+2
@noCarry2
	brl GetNextLoop
	
@noMoreVolumes
	lda NumVolumes		;Store number of volumes actually found in the list record.
	ldy #ListRecord.ListCount
	sta [ListRecPtr],y
	sta ztemp3
	
	lda ListPointerHandle+2
	pha
	lda ListPointerHandle
	pha
	jsr DerefAndLock
	stax ListPointerPtr
	
	lda StringsHandle+2
	pha
	lda StringsHandle
	pha
	jsr DerefAndLock
	stax StringsPtr
	
	ldy #0
PtrUpdateLoop	lda ztemp3
	beq DoneAddrPatching
	
	dec ztemp3
	lda [ListPointerPtr],y
	ldx StringsPtr+2
	clc
	adc StringsPtr
	bcc @noCarry1
	inx
@noCarry1	sta [ListPointerPtr],y
	iny
	iny
	txa
	sta [ListPointerPtr],y
	iny
	iny
	iny
	brl PtrUpdateLoop
	
DoneAddrPatching 	ldax ListPointerPtr
	stax [ListRecPtr],ListRecord.ListPtr
	
	PushZLong DialogPtr
	_SetPort		;restore port!
	
	lda FGetPutFlag		;If not multi then we're already
	and #MultiFileMode		;only allowing single selection.
	beq NoMulti
	
	PushZLong ListControl1	;Make sure only single selections
	jsr DerefandLock		;are allowed when displaying the
	sta pointer		;volumes list.
	stx pointer+2
	ldy #octlflag
	lda [pointer],y
	ora #$0002
	sta [pointer],y
	
NoMulti	PushLong #CompareRoutine
	PushZLong ListRecPtr	;pointer to the list
	_SortList		;sort list elements

	ldax ListPointerPtr
	stax selectedptr
	ldx NumVolumes
	
Loop	ldy #4
	lda [selectedptr],y
	and #$0080
	bne GotSelected
	ldy selectedptr+2
	lda selectedptr
	clc
	adc #5
	bcc @noCarry
	iny
@noCarry	sty selectedptr+2
	sta selectedptr
	dex
	bne Loop
	stz selectedptr
	stz selectedptr+2
	
GotSelected
	PushZLong selectedptr
	PushZLong ListRecPtr
	_NewList
	
	lda selectedptr
	sta lastselected
	lda selectedptr+2
	sta lastselected+2
 
 	jsr doPathDraw		;Erase current "path" string and 
	
	_InitCursor
	pld
	
	rtl
	
	ENDP
	
	
	
;------------------------------------------------------------------
;
;	GetNextVolume
; Called by AddItems until there are no more volumes. At such time
; this routine will return with carry set.
;
;------------------------------------------------------------------
GetNextVolume	PROC
	with PopUpGlobals

NextDevice	inc DevNum	Bump counter to next check device.
	
	_DInfoGS DInfoPBlock
	bcc @NoError
	
	cmp #$11	Check for "invalid device number" error. When we get this
	bne @NoError	error there are no more devices to check.
	brl NoMoreDevices	No more devices.
@NoError	

*** added 13-Oct-91 DAL -- 2nd try to ignore Apple tape drives (device id $0020)
	lda DeviceID
	cmp #$0020
	bne @notTape
	jsr InsertIntoList	;add to list of non-removable devices
	bra NextDevice
@notTape
*** end 13-Oct-91
	lda DeviceID	See if the device found is a 5.25 drive.
	bne @MakeVolumeCall	If not proceed as normal.
;
; ----- We've got a 5.25 drive --------------------------------
;
*** InsertIntoList moved here from below, 29-Mar-91 DAL
	jsr InsertIntoList	;5.25 drives are devices we do not poll for disk insert/eject.

	lda DevNum
	sta DStatDevNum
	_DStatusGS DStatusPBlock
	
	lda StatusWord
	and #$0010	Is there a disk in the 5.25 drive?
	beq NextDevice	If OS says there is then the drive is really on-line.

	ldx #DevName	
	lda #^DevName
	bra exitGetNext

@MakeVolumeCall	
*** code moved here 15-Sep-91 DAL -- mark nonremovable devices even if Volume will fail ("Infinite-format-HFS" problem)
	lda DevNum
	sta DStatDevNum
	_DStatusGS DStatusPBlock

	lda Characteristics
	and #$0004	Check if this device contains removable media.
	bne @ContainsRemovable
		
	jsr InsertIntoList	Insert device into list of non-removable devices.
@ContainsRemovable
*** end 15-Sep-91 DAL

	_VolumeGS VolumePBlock
	bcs NextDevice	Got error from Volume which means there is no disk in drive.
	
	ldx #VolumeName	Store address of volume that that is to be converted
	lda #^VolumeName
exitGetNext	stx StringsLength
	sta StringsLength+2
	clc
	rts
	
NoMoreDevices	sec	;set carry, to signify no more volumes
	rts

;------------------------------------------------------------------
;
;	InsertIntoList
;
; Inserts device into list of non-removable media devices. This is 
; the list that is used to determine whether a device should be 
; polled for disk switch or not. (i.e. should we make the DStatus
; call on the device) Apple 5.25 drives are also included in this
; list.
;
;------------------------------------------------------------------
InsertIntoList	
	lda DevNum	;use device number as index into this list
	asl a
	tax
	lda DeviceID
	beq @DumbDrive
	
	lda #$8000	;devices that are not removable have their
	bra @StoreIt	;high bit set

@DumbDrive	inc a	;5.25 drives are just non-zero positive entries

@StoreIt	sta StaticDeviceTable,x 	
	
	rts
	
	ENDP
	
;------------------------------------------------------------------
;
;	GSOStoPString
;
; Converts a GS/OS output string to a pstring.
;
;  IN: ptr to dest pstring:LONG	(Destination)
;      ptr to GSOS output string:LONG	(Source)
;      
; OUT: dest has been converted to a pstring
;
;------------------------------------------------------------------
GSOStoPString	PROC
i	equ 1
oldDPage	equ i+2
theRTL	equ oldDPage+2
Source	equ theRTL+3
Dest	equ Source+4

	phd	
	pha	; make room on the stack for data
	tsc
	tcd	; make stack our direct page 
	
;
; Start by getting the proper length into i and dest
	lda [<source]	; its the first of the source
	cmp #$0100	; is it too large?
	blt @SizeOK	; size is OK
	lda #$00FF	; else make it smaller
@SizeOK	sta <i	; save the size...
	sta [<dest]	; and save the size in our pstring
	
; now bump the source pointer by one so we can use the same offset all the time
;
	inc <source
	bne @1
	inc <source+2
@1
; now start the copy
	sep #$20
	longa off	; do it a byte at a time
	ldy <i	; get our index
@CopyLoop	lda [<source],y	; get a source byte
	sta [<dest],y 	; and save it
	dey	; lower the count by 1
	bne @CopyLoop	; loop till zero
	
; Now that we are all copied clean up after ourselves and leave
;
	plx	; pull off extra word of data space 
	pld	; restore original direct page
	pla	; save the return address
	ply	; NOTE: a still in short mode
	
	plx	; get rid of the input parameters
	plx
	plx
	plx
	
	phy	; put return address back on the stack
	pha	
	rep #$20	; turn a-reg back into 16-bit
	longa on
	lda #0
	clc
	
	rtl

	ENDP


;==============================================================================
;
;	PollDevices
;
; This routine just polls all devices making DStatus calls on them, trying to
; trigger a disk switch event. If one occurs then GS/OS calls my routine 
; NotificationPROC to handle the event.
;
;==============================================================================
PollDevices	PROC EXPORT
	with PopUpGlobals
	
	stz DStatDevNum	;reset the device number so we can search from begining

BigLooper	inc DStatDevNum	;check next device
	lda DStatDevNum	;Check our table to see if this device even needs to be 
	asl a	;polled. Non-removable devices and 5.25s are not polled.
	tax
	lda StaticDeviceTable,x
	bne BigLooper
	
	_DStatusGS DStatusPBlock
	bcc BigLooper
	
	rtl
	
	ENDP


	
;==============================================================================
;
;	NotificationPROC
;
; This is the routine that gets installed into GS/OS's notification queue. 
; NumVolumes is incremented or decremented depending on the disk switch. We
; save off the device number of the disk that got switched and the flag that 
; tells us whether an insertion or ejection occurred.
; We pay particular attention to disk ejects that occurred on the currently
; displayed volume.
;
;==============================================================================
NotificationPROC	PROC EXPORT

Reserved1	ds.L 1	;link to next task in queue
Reserved2	ds.W 1	
Signature	dc.W $A55A
Event_flags	dc.L $00000018	;want disk inserts/ejects
Event_code	ds.L 1	;curent event code will be put here by GS/OS
	
	with PopUpGlobals
	
	phk 	;first set the data bank correctly
	plb	
	
	tay
	asl a
	tax
	lda StaticDeviceTable,x
	bne @Done
	
	sty DeviceSwitched	;coming into this routine GS/OS sets a-reg to
		;device number of device that was switched.
	PushLongSpace		
	PushWord  #0	;system tool
	PushWord  #$0017	;Standard File tool set
	_GetWap
	pld	;set DP to StdFile's direct page
	pla	;toss upper			

	lda Event_Code	;save flag that tells us whether an insert or eject happened
	sta TypeOfSwitch
	and #$0010
	bne @DiskEject
	
	inc NumVolumes	;Disk was inserted therefore increment NumVolumes.
	bra @Done
@DiskEject	
	dec NumVolumes	;Disk was ejected therefore decrement NumVolumes.
	lda DeviceSwitched	;If disk ejection occurred on the currently displayed 
	cmp <curdev	;volume then we must set a flag that will force a redraw
	bne @Done	;of the file list. The redraw only occurrs if there were
	inc CurrentEjected	;no disk insertions after this ejection. Since the file
		;list is automatically redrawn on disk insertion.
@Done	rtl

	ENDP
	
;==============================================================================
;
;	ServiceDiskSwitch
; 
; This routine is called inside GetFilter. It first checks the flag that tells
; us whether or not a disk switch event has occurred.
;
; IN: a-reg contains StdFiles dpage.
;
;==============================================================================
ServiceDiskSwitch	PROC EXPORT
	with PopUpGlobals
		
	phd	; save original direct page register
	tcd	; a-reg contains StdFile dpage
	
	lda TypeOfSwitch	; See if there was a disk switch event to begin with.
	beq exit1
	
	bit #$0010	; check if disk eject occurred
	bne DiskEject
; 
; ----- Disk Insertion has occurred. ----------------------------------------------------------------

	stz TypeOfSwitch
	lda <curDev
	pha	; Save current device on stack.
	lda DeviceSwitched	; Get the device number of the disk that got the insertion.
	sta <curDev	; Update stdfile's dpage var. curdev. This always contains
	jsr DoDInfoCall	; the device number of the currently displayed volume.
	jsr DoVolumeCall	; Make sure the disk is of a format we can read.
	bcc @volCallOk

	pla
	sta <curDev
	jsr DoDInfoCall
	
*** added 29-Jan-92 DAL -- avoid bumping to the next device
	stz CurrentEjected	;we called DoVolumeCall with a false curDev value above!
*** end 29-Jan-92
	brl exit1

@volCallOk	pla	; Clean up stack, get old curDev off stack.
	jsr volumeOK1	; Just rescan the device and get the volume name of disk
	bra UpDateList	; inserted. Once we got that redraw the directory.
	
;
; ----- Disk Ejection has occurred. ----------------------------------------------------------------
	
DiskEject	stz TypeOfSwitch
	lda FGetPutFlag	; Check if we're in the displaying volumes mode.
	and #InVolumeList	; If we are and a disk ejection occurred just redraw
	beq @notInVolList	; the volumes list.
	jsl BuildVolumeList
	lda NumVolumes
	bne exit1
	bra doAlert

@notInVolList	lda CurrentEjected	; This flag is set by the NotificationPROC routine and if
	beq Exit1	; non-zero it signifies that the currently displayed volume
;		; just got ejected.
UpDateList2	stz CurrentEjected	; Reset this flag for future use.
	
	jsr NextDrive	; NextDrive gets the volume name for device <curDev, if the
;		; volume name is the same as that in var prefixptr then we
;		; bump <curDev and get the next volume name, else we
;		; get redraw the list using <curDev as the device of 
;		; "next" drive.
	bcc UpDateList
doAlert	jsr PutUpAlert	; NumVolumes could be non-zero and we couldn't find a next
;		; volume-- this occurrs if we had a 5.25" drive with no disk
;		; in it and there were no other disks in any other drives.
	bcc UpDateList
	bcs exit
	
UpDateList	stz ztemp3
	jsr ReDoList	; Redraw the files list with using the new volume.
	
exit1	clc
exit	stz DeviceSwitched	
	
	pld	; Restore original direct page register.
	
	rtl
	
	ENDP
	
	
;================================================
;
;	PutUpAlert
;
;================================================
PutUpAlert	PROC EXPORT
	with PopUpGlobals
	
AskAgain	_InitCursor

	pha	; space for result
;;;	PushWord #0	; alert string is a C-String & ref is ptr
	pea $0110	; force a disk scan & some sound
	PushLong #0	; no substitution strings
	PushLong #noVolMessage
	_AlertWindow
	pla	; If user selects "OK" then we poll to
	bne CancelHit

	_WaitCursor
	
	ldy #0002	; Poll all devices to see if they're still empty.
	lda #0
	sta [PrefixPtr],y
	jsr NextDrive2
	bcs AskAgain

ReturnOK	_InitCursor
	clc
	rts	
	
CancelHit	stz NumVolumes
	stz curDev
	sec
	rts
	
	ENDP
	
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/StdFile/dave.macros b/IIGS.601.SRC/GSToolbox/StdFile/dave.macros
new file mode 100644
index 0000000..8b9d708
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/StdFile/dave.macros
@@ -0,0 +1 @@
+****************************************************************
* Dave's macro file.
*
* contains macros for long conditional branching, store a,x macros
* ,etc.
*
* Version 1.1  10/17/88
*
****************************************************************

;---------------------------------------------------------

	MACRO
&lab	HEADER
&lab	PROC  EXPORT
	IF DebugFlag<>0 THEN
		jml  @1
		dc.b  '&lab',0
@1
	ENDIF
	MEND

;---------------------------------------------------------

	MACRO
	ble &A
		blt  &A
		beq  &A

	MEND

;---------------------------------------------------------

	MACRO
	bgt &A
		beq  @1
		bge  &A
@1
	MEND

;---------------------------------------------------------
	MACRO
	bcsl &A
		bcc  @1
		brl  &A
@1
	MEND

;---------------------------------------------------------

	MACRO
	bccl &A
		bcs  @1
		brl  &A
@1
	MEND

;---------------------------------------------------------

	MACRO
	beql &A
		bne  @1
		brl  &A
@1
	MEND

;---------------------------------------------------------

	MACRO
	bnel &A
		beq  @1
		brl  &A
@1
	MEND

;---------------------------------------------------------

	MACRO
	bltl &A
		bge  @1
		brl  &A
@1
	MEND

;---------------------------------------------------------

	MACRO
	bgel &A
		blt  @1
		brl  &A
@1
	MEND

;---------------------------------------------------------

	MACRO
	blel &A
		bgt  @1
		brl  &A
@1
	MEND

;---------------------------------------------------------

	MACRO
	bgtl &A
		ble  @1
		brl  &A
@1
	MEND

;---------------------------------------------------------

	MACRO
	bmil &A
		bpl  @1
		brl  &A
@1
	MEND

;---------------------------------------------------------

	MACRO
	bpll &A
		bmi  @1
		brl  &A
@1
	MEND

;---------------------------------------------------------

	MACRO
	PushLongSpace
		pha
		pha
	MEND

;---------------------------------------------------------

	MACRO
	PushWordSpace
		pha
	MEND

;---------------------------------------------------------

	MACRO
	PushAX
		phx
		pha
	MEND

;---------------------------------------------------------

	MACRO
	PullAX
		pla
		plx
	MEND

;---------------------------------------------------------

	MACRO
	PushZPtr &A
		pea  $0000
		tdc
		clc
		adc  #&A
		pha
	MEND

;---------------------------------------------------------

	MACRO
	PushZWord &A
		pei  &A
	MEND

;---------------------------------------------------------

	MACRO
	PushZLong &A
		PushZWord &A+2
		PushZWord &A
	MEND

;---------------------------------------------------------

	MACRO
	ldax &addr,&regs
	IF &addr[1:1]='#' THEN
		lda  #&addr[2:255]
		ldx  #&addr[2:255]>>16
	ELSEIF &addr[1:1]='[' THEN
		IF &regs='y' THEN
			lda  &addr,y
			pha
			iny
			iny
			lda  &addr,y
			tax
			pla
		ELSE
			ldy  #&regs+2
			lda  &addr,y
			tax
			ldy  #&regs
			lda  &addr,y
		ENDIF
	ELSEIF &regs='s' THEN
		lda  &addr+2,s
		tax
		lda  &addr,s
	ELSEIF &regs='' THEN
		lda  &addr
		ldx  &addr+2
	ELSE
		lda  &addr+2,&offset
		pha
		lda  &addr,&offset
		plx
	ENDIF
	MEND

;---------------------------------------------------------

	MACRO
	ldaxZPtr &A
		ldx  #0
		tdc
		clc
		adc  #&A
	MEND

;---------------------------------------------------------

	MACRO
	stax &addr,&regs
	IF &addr[1:1]='[' THEN
		IF &regs='y' THEN
			sta  &addr,y
			iny
			iny
			txa
			sta  &addr,y
		ELSE
			ldy  #&regs
			sta  &addr,y
			txa
			ldy  #&regs+2
			sta  &addr,y
		ENDIF
	ELSEIF &regs='s' THEN
		sta  &addr,s
		txa
		sta  &addr+2,s
	ELSEIF &regs='' THEN
		sta  &addr
		stx  &addr+2
	ELSE
		sta  &addr,&offset
		txa
		sta  &addr+2,&offset
	ENDIF
	MEND

;---------------------------------------------------------

	MACRO
	casejmp &A,&B
		cmp  #&A
		bne  @1
		brl  &B
@1
	MEND

;---------------------------------------------------------

	MACRO
	cmpl &A,&B
	IF &B='' THEN
		cpx  &A+2
		bne  @1
		cmp  &A
	ELSE
		lda  &A+2
		cmp  &B+2
		bne  @1
		lda  &A
		cmp  &B
	ENDIF
@1
	MEND

;---------------------------------------------------------

	MACRO
	incl &A
	IF &A='a' THEN
		inc  a
		bne  @1
		inx
	ELSE
		inc  &A
		bne  @1
		inc  &A+2
	ENDIF
@1
	MEND

;---------------------------------------------------------

	MACRO
	decl &A
	IF &A='a' THEN
		cmp  #0
		bne  @1
		dex
@1		dec  a
	ELSE
		lda  &A
		bne  @2
		dec  &A+2
@2		dec  &A
	ENDIF
	MEND

;---------------------------------------------------------

	MACRO
	stzl &A
		stz  &A
		stz  &A+2
	MEND

;---------------------------------------------------------

	MACRO
	subl &A,&B,&C
		lda  &A
		sec
		sbc  &B
		sta  &C
		lda  &A+2
		sbc  &B+2
		sta  &C+2
	MEND

;---------------------------------------------------------

	MACRO
	addl &A,&B,&C
	IF &C='' ** &B='' THEN
		clc
		adc  &A
		sta  &A
		bcc  @1
		inc  &A+2
@1
	ELSE
		lda  &A
		clc
		adc  &B
		sta  &C
		lda  &A+2
		adc  &B+2
		sta  &C+2
	ENDIF
	MEND

;---------------------------------------------------------

	MACRO
	subw &A,&B,&C
		lda  &A
		sec
		sbc  &B
		sta  &C
	MEND

;---------------------------------------------------------

	MACRO
	addw &A,&B,&C
		lda  &A
		clc
		adc  &B
		sta  &C
	MEND

;---------------------------------------------------------

	MACRO
	mov &A,&B
		lda  &A
		sta  &B
	MEND

;---------------------------------------------------------

	MACRO
	swap &A,&B
		lda  &A
		pha
		lda  &B
		sta  &A
		pla
		sta  &B
	MEND

;---------------------------------------------------------

	MACRO
	swapl &A,&B
		swap &A,&B
		swap &A+2,&B+2
	MEND

;---------------------------------------------------------

	MACRO
	movl &A,&B
		mov  &A,&B
		mov  &A+2,&B+2
	MEND

;---------------------------------------------------------

	MACRO
	move &A,&B
		mov  &A,&B
	MEND

;---------------------------------------------------------

	MACRO
	moveword &A,&B
		mov  &A,&B
	MEND

;---------------------------------------------------------

	MACRO
	movelong &A,&B
		movl &A,&B
	MEND

;---------------------------------------------------------

	MACRO
	sublong &A,&B,&C
		subl &A,&B,&C
	MEND

;---------------------------------------------------------

	MACRO
	addlong &A,&B,&C
		addl &A,&B,&C
	MEND

;---------------------------------------------------------

	MACRO
	PushZeroPtr &A
		PushZPtr &A
	MEND

;---------------------------------------------------------
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/StdFile/makefile b/IIGS.601.SRC/GSToolbox/StdFile/makefile
new file mode 100644
index 0000000..7429783
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/StdFile/makefile
@@ -0,0 +1 @@
+#
### this file creates  the Standard File Tool (023)
#
				
RealIncludes =	"{AIIGSIncludes}all.macros"	¶
				globalequ.aii

RealObjects =	:obj:SFMain.asm.obj		¶
				:obj:sf.asm.obj
				
						
tool023  ÄÄ  MakeFile {RealObjects}
	LinkIIGS {RealObjects} -o tool023 -t TOL
	if {AutoDuplicate} == 1
		DuplicateIIGS -y -mac Tool023 :
	End

{RealObjects}  Ä  {RealIncludes}

:obj:sf.asm.obj  Ä  Dialogs.aii CustomPopUp.aii GlobalEqu.aii
:obj:SFMain.aii.obj Ä ::sys.equs.asm

.asm.obj  Ä  .asm
	AsmIIGS {DepDir}{Default}.asm -unsafe -w -o {TargDir}{Default}.asm.obj

:obj:  Ä  :

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/StdFile/sf.asm b/IIGS.601.SRC/GSToolbox/StdFile/sf.asm
new file mode 100644
index 0000000..c30ddb5
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/StdFile/sf.asm
@@ -0,0 +1 @@
+	TITLE 'sf.asm'
**********************************************************************
* Standard File, version 2	
*
* Created:		6/01/1988
*
*
*             Copyright (c) Apple Computer, Inc. 1988-1992
*	       All Rights Reserved
*
* Ideas from original Standard File but all code has been rewritten
* from the ground up. The code now makes use of system tools which were
* not available at the first writing of standard file. Additional tool
* calls to support GS/OS have been added.
*
*  7/01/88 - Got new dialog routines written
*  7/25/88 - Completed interface to the list manager
*  8/01/88 - Completed mamory management calls to build file data
*  8/08/88 - Completed building list of file names for a folder
*  8/16/88 - Custom draw routine for file names added
*  8/22/88 - Completed code to move up and down folder levels.
*  8/29/88 - Corrections to memory allocation problems.
*  9/02/88 - Added code for path name display 
*  9/03/88 - Completed code for custom display of path name and extra long names.
*  9/05/88 - Added icons to path names and file name displays
*  9/09/88 - Break to write 0.1 through 0.3 ERS
*  9/19/88 - Added code for button highlites and flashing.
*  9/21/88 - Complete button highlights and interaction with other dialog parts.
*  9/23/88 - Start code for volume switch. (and documentation update)
*  9/27/88 - Volume button works. Beginning debug on all code.
*  9/27/88 - Adding new icons for devices!
*  9/28/88 - Add color to icons. Start support for AppleShare (privilege voilations)
*  9/30/88 - Select first list element, button highlight control, prefix "juggling".
* 10/03/88 - Start on Put Dialog and associated code.
* 10/07/88 - Start re-write on ERS.
* 10/09/88 - Start code on moving dialog into allocated memory. (have to MUNG old dialog formats)
* 10/12/88 - Completed all above. Add grey out list items.
* 10/13/88 - Re-write code for open button disable/enable (based on greyed out item code)
* 10/15/88 - Add code to handle key equiv. Fix calls into tools.
* 10/20/88 - Add code for save and New Folder button highlight
* 10/24/88 - Add New Folder code and error alerts.
* 10/27/88 - Cleanup and add entries for main calls
* 10/28/88 - Add fliterProc hooks and TypeList checking (old style)
* 11/02/88 - Fix Open/Close bug on folders (caused eventual crash)
* 11/05/88 - General fixes. Correct custom template bug.
* 11/09/88 - Start on building Reply Record. Fix some items from code review.
* 11/11/88 - Continue debugging as tool. Add code for file replacement for existing files.
* 11/28/88 - Add code to support new type lists.
* 11/29/88 - Change TRUE to $FFFF. Change input parameters to conform to ERS 0.7
* 12/01/88 - Clean up code. Add entry error checking.
* 12/09/88 - Fix 320 die error. Remove QDAux calls for icons. (changed to PPtoPort)
* 12/13/88 - Add new call: SFRescan to allow the list to be redrawn with new filters and procs.
* 12/15/88 - Begin multifile selection support
* 12/17/88 - stop above, begin debug cycle.
*  1/08/89 - start multifile (again)
*  1/20/89 - complete multifile (first pass)
*  1/23/89 - remove Alert windows and replace with ErrorWindow calls.
*  1/25/89 - Save button status change. No save or folder to write protected disks.
*  1/27/89 - Added a locked icon to the pathname display for write disabled disks.
*  2/09/89 - Check in misc fixes for bugs reported:
*	PutFile modes failed on nil OrigNameStr
*	bit# instruction was missing # on an instruction causing strange error
*	edit field max length error on new PutFile calls
*  2/10/89 - Add hook to allow Claris to modify the icon for each file displayed
*  4/28/89 - Fix DTS reported bugs with in old calls. 1). Status did not return high bit set.
*	2). ':' instead of '/' were returned in path names.
*	3). First character in file name being blasted in old filter proc records.
* 5/15/89 - Fix reported bugs: 1). 320 Get dialog was incorrect and has been corrected.
*	2). The New Reply record contained false File and Aux types. This is fixed.
*	3). The Multi Reply Record had incorrect File and Aux types. This is fixed.
* 5/17/89 - Yet more fixes: 1). Save & Folder button sometimes light even if string is empty. Fixed.
*	2). Releasing of resources was done incorrectly which caused the prompt
*	    string to display incorrectly on subsequent calls. Fixed.
*	3). New calls default name didn't show up. Fixed
*	4). Pressing CR or ENTER if the save field was empty caused the char
*	    to be put into the Line text field. Fixed
*
* 6/8/89  - Mensch Fix scrambler bug when using promptref is handle setitext kept derefed
*
* 6/28/89 - Bug fix to correct problem of AuxType not getting passed onto custom draw proc.
* 7/24/89 - Fixes and additions (ORR):
*	Added new sort routine so lower case sorts correctly.
*	Now call _errorwindow if a disk error occures on return_file.
*
* 7/26/89 - some recent changes no-op'ed out to minimize checking for intermediate results.
*	Error window and sort routine removed. Disk errors will switch to next 
*	volume.
*
* 7/27/89 - sort routine added back in but this time as a List Manager proc passed
*	to the toolbox routine _SortList. The routine added in this file
*	is called 'CompareRoutine' and uses no local storage or variables.
*
* 8/25/89 - Harry.  Make disk button into volumes popup. Added source file CustomPopup.aii
*	which contains all the routines to create the popup, track it and
*	keeps popup updated. (i.e. monitors disk switch events).
*     	Disk switch event are now handled. (disk inserted becomes current volume and
*	the current volume that is ejected just goes to the next drive).
*	Routine MoveDialogToMemory was modified to handle custom dialogs.
*	Added two new bit definitions to FGetPutFlag (bits 2 and 3 now defined)
*	Fixed bug where in 320 mode the lock icon would not appear in the pathname.
*
* 9/14/89 -  Harry	Added new entry point NextDrive1. This routine is called by CheckDiskSwitch.
*	It is a subset of routine NextDrive. Instead of going to the next drive
* 	we just rescan the volume in device <curDev.
*
* 10/05/89 - Harry 	Fix bug in SFReScan. This call does not work in 320 mode. Error $1706 is 
*	always returned. The wrong bits were being masked off when making the check
*	to see if it was OK to make the call. We were always masking out the high
*	nibble when all we really wanted was bits 15 and 13 ($A000). Fixed.
*
*	Fix bug in all the "Save" calls. When an illegal filename was entered by
* 	the user they were never notified that it was bad. Instead Std File would
*	just skip to the next volume. Fixed.
*
* 11/08/89 - Harry	Fix bug in Save dialogs in 320 mode.The volume popup was not being drawn.
*	Fix bug in Custom dialogs that use the volume popup. A check was being
*	made to see if the item descriptor field (of the NextBut item) was zero, 
*	if it was then I assumed that the item was a useritem. Now I just check
* 	the type of item field to determine whether to use the volume popup or 
*	create the "Disk" button.
*
* 11/13/89 - Harry 	Fix BRC #53450. Limited the no. of chars that can be entered into any
*	"SAVE" dialog to 35 (Previous values were 255 in the case of SFPutFile2 and
*	SFPPutFile2. For SFPutFile the limit was whatever the user inputed. This is
*	also limited to 35) Routine GetFilter was calling GetIText with a buffer 
*	limit of 36 (therefore anything exceeding this value trashed the stack)
*
*	The default text for edit line items in "SAVE" dialogs are now selected.
*
* 01/02/90 - Harry	The fix for no volumes on-line was not complete. There were instances where
*	a disk was being inserted and not recognized. This was a problem in routine
* 	GetFirst and has been fixed.
*
* 01/15/90 - Harry 	Take out the volumes popup and put in "Volumes" button that now displays
*	the list of volumes in the file list.
*
* 01/17/90 - Harry 	Fix bug in new "PUT" calls where defining the OrigName as a resource 
*	would not work if the middle byte of the resource ID was zero. For some
*	reason the previous author checked the middle byte of the OrigNameRef 
*	and if it was zero it would assume the OrigName was null. In the old "PUT" 
*	calls it must have been valid to push a 0 ptr as the OrigName to indicate
*	there was none??????
*
* 02/13/90 - Harry 	In the "PUT" dialogs, selecting the "NEWFOLDER" button now puts the user
*	into that newly created directory. 
* 02/14/90 - Harry 	I now install myself into the OS notification queue. So whenever a disk
*	switch event occurrs I now get called. This makes life much simpler.
* 02/19/90 - Harry	Fixed bug where selecting a folder on a server volume that you didn't have
*	privileges for would advance you to the next volume on-line. WS #MTLRAF009.
* 02/20/90 - Harry 	If StdFile encounters a disk that GS/OS does not recognize, an alert is
*	put up and the disk is ejected.
* 03/01/90 - Harry	On AppleShare volumes, folders are now greyed if you do not have access
*	to that folder.(fixed in routine ValidEntry) BRC #60861.
* 04/04/90 - Harry 	Fix bug in SFMultiGet2. No matter how many files you selected it would  
*	always return 1 as the number of files selected. Introduced in 1/15/90.
*	WorkSheet #MTLRAF015.
* 04/25/90 - Harry	Fix bug in GetFilter routine, which would pass <return> key hits even if
*	the default button was inactive. This only caused problem in PUT dialogs
*	because the <return> would then get passed to edit line items instead. 
*	BRC #65378.
* 04/26/90 - Harry	Fixed bug where multiple volumes could be selected in "MULTI" dialogs.
*	Worksheet #MTLRAF020.
* 	Fixed bug in routine Convert_To_K. X-reg was suppose to contain the high
*	byte of least significant 32 bit result and low byte of most significant
*	32 bit result, instead we were getting middle byte of most significant
*	32 bit result.  Worksheet #MTLRAF019.
* 05/02/90 - Harry 	If prefix 8 or 0 (depending on whether we were making an old of new call)
*	had a valid filename in it (i.e. not a directory name), StdFile would
*	fail even though there were valid volume names around. Fixed.
*	If an error occurred such that a "generic" error was generated this 
*	would cause the stack to become imbalanced. Routine GetErrorMessage was
*	jsr'ed to but would not always rts. Fixed.
* 06/04/90 - Harry 	Fixed bug BRC #65271. If an unformatted disk is inserted I now put up
*	a dialog saying GS/OS does recognize this file system and then the disk
*	is ejected.  Also fixed BRC #67012, word occurred was misspelled.
* 06/27/90 - Harry	Fix problem with custom dialogs. Patching the user's dialog template causes
*	problems if someone happens to unload std file and then load it again, but
* 	at a different memory location. The patched addresses are now no longer
*	valid. (Iduna found bug)
* 07/26/90 - Harry	Re-fix, fix put in on 6/27/90. The wrong item was being unpatched. 
* 08/06/90 - Harry  Superfluous error dialog comes up when a 5.25" drive is scanned and there is
*	no disk in it. Fixed (RAF005).  In PUT dialogs if the user enters a name
*	with a colon embedded in it std file just goes to the next volume instead
*	of putting up an error message. Fixed (RAF004).
*	The volume list is now sorted alphabetically and selecting the first letter
*	of a file in the list will now select that item in the list (RAF003).
*	The CompareRoutine was modified to also do a sort on the volume list. This 
*	change involved the sort routine ignoring the first character of the name
*	which is always a "." or a ":" (since these are volume names).
*
* BEGIN 6.0 (???)
*
* 18-Nov-90 Dave Lyons
*	Disallowed colons in the edit line field.
*	Prevent Letter-key shortcut from moving to a dimmed item (except possibly
*	  the last one).
* 26-Nov-90 Dave Lyons
*                   Now uses ListKey to allow arbitrarily-long prefix strings in Get dialogs.
*	When we set the default text in a Put dialog, now I reverse the
*	  selection direction to be right-to-left for the benefit of AWGS 1.1
*	  (see comment at ReverseSelection).
* 4-Dec-90  Dave Lyons
*	Uses ListKey for arrow-key movements, too.
* 21-Dec-90 Dave Lyons
*	Found and fixed that Really Annoying repeating-entry bug!  The problem
*	was we weren't bumping the high word of ListPointerPtr when we added
*	5 to point at the next entry.
*	(At that point, we were storing *offsets* in the list, which are later
*	translated into pointers.  If the handle, which was pre-zeroed, started
*	near the end of a bank, then some of the offsets would get stored in
*	the wrong place.  The ones that got "missed" this way stayed 0, so they
*	were translated into pointers to the first item read, and then the whole
*	list got sorted alphabetically.)
* 6-Jan-91 Dave Lyons
*	Added Apple-D, Apple-V and Apple-ESC as key equivalents for the
*	  Volumes button.
*	When you insert a disk & get a duplicate volume error, Std File
*	  used to do nothing.  Now you get ErrorWindow($57) and it ejects.
* 12-Jan-91 Dave Lyons
*	Adding a framed down-arrow icon at the left of the path item.
*	Clicking this pops up a menu that lets you move up as many levels
*	  as you want, all the way to the Volumes/Desktop level.
*	Fixing key equivalents for Open and Volumes so they honor the
*	  inactive status of the corresponding buttons.
* 14-Jan-91 Dave Lyons
*	Finished the SeeIfItemEnabled routine use by CommonKey so the
*	Open and Volumes key equivalents don't work when the buttons
*	  are dimmed.
*	Added a paranoia check on CloseA (never closes refnum 0).
*	Prettied up the source a bit.
*	Padlock icon is now drawn *after* the pathname.
*	All the little icons now come from GetSysIcon & are drawn with
*	  DrawIcon.
*	Fixed a bug in CustomPopUp.aii (the Volume List stuff) where
*	  having more than 20 volumes would hang.  (There was no code
*	  to grow the list.  Now it handles 64 volumes.)
* 6-Feb-91 Dave Lyons
*	Added new device number parameter to InsertPathMItems call.
* 5-Mar-91 Dave Lyons
*	Set bit 30 of the FilterProc pointer in the ModalDialog call, so
*	that the Dialog Manager will automatically track the cursor and
*	make it an I-Beam & Arrow at the right times.
* 14-Mar-91 Dave Lyons
*	Removed Apple-V = "Volumes" because that usually means Paste.
* 25-Mar-91 Dave Lyons
*	New routine PollForInsertions calls the GS/OS service to scan
*	  removable-media devices for new insertions.  I call this before
*	  installing the notify-proc, so that old insertions that haven't
*	  been noticed yet don't make SF bop to a volume unexpectedly.
*	The filter proc now receives all 17 GetDirEntry parameters, including
*	  the option list.
*	When we're not in the volume list, sorting is done with SortList(#1)
*	  for international-friendly string comparisons.
* 28-Mar-91 DAL	Preserved an error code in ReDoList.
*	Defined new bit in <FGetPutFlag: PutFileListActive if we're in a
*	PutFile call and keystrokes should be directed to the file list.
* 29-Mar-91 DAL	In custompopup.aii, fixed it so 5.25 drives are always added to the
*	don't-poll list, even if they seem to be offline.
* 1-Apr-91 DAL	Replaced call to DO_INSERT_SCAN with Misc Tools call ScanDevices.
*	Finished the type-keys-into-the-PutFile-list stuff.  Apple-Tab
*	switches you between the edit-line and the list; clicking on either
*	item makes that the "target".
* 2-Apr-91 DAL	Added JudgeTheName routine to call JudgeName and put up an
*	AlertWindow.  Called from DoSave and DoCreate.
* 7-Apr-91 DAL	At Common2, added code to load and start QDAux if it isn't started.
*	Defined new error sfNotStarted, $17FF; most calls check for WAP<>0.
*	SFStartUp returns the error if you pass WAP=0.
* 15-Apr-91 DAL	Now calls HandleDiskInsert to do disk formatting/erasing.
* 21-Apr-91 DAL	For error $57 (duplicate volume), call HandleDiskInsert.
*  8-May-91 DAL	Added an InitCursor before the ErrorWindow for Replace/etc dialogs.
* 10-Jun-91 DAL	¥Added check before NewModalDialog to see if both prefixes 0 and 8
*	are null, and set 0 to "*:" if they are.  Avoids infinite loop!
*	¥Swapped Tab and Apple-Tab.  Tab goes between target controls, and
*	Apple-Tab switches volumes.
*	¥Moved list control up one pixel for Put dialogs.
* 8-Jul-91	DAL
*	¥When tabbing to the Edit Line in a put file, we now select the text.
* 31-Jul-91	DAL
*	¥Experimentally removed restriction on when you can call SFReScan.
*	Should always work now.
* 10-Aug-91	DAL
*	¥Use substitution string for "No Change" in bad-name dialog.
* 26-Aug-91	DAL
*	¥Standard Draw routine checks for 640 mode & an odd window position;
*	if needed, it draws the GetSysIcon icon at an odd local coordinate
*	to make the colors come out right.
* 3-Sep-91	DAL
*	¥JudgeName dialog now calls InitCursor.
* 15-Sep-91	DAL
*	¥Fix the 26-Aug fix, I need to check the pen position, too.  No
*	more green folders.  Really, this time!
*	¥DoUnPatch was not working right (at least not in all cases) becuase
*	it thought it was working with the user's original dialog template,
*	when it was actually working with a template computed from the
*	original (by MoveDialogToMemory), where the items were in a confusing
*	order.  Added OrigDialogTempPtr so I can unpatch correctly.
*	¥Fixed the "inifinite please format your HFS partition problem" by
*	marking non-removable devices as don't-poll, even in the case that
*	the Volume call fails.
* 21-Oct-91	DAL
*	¥Avoid constantly flickering the cursor: focus frame update only for
*	my own update events, not for any pending update event.
* 1-Nov-91	DAL
*	¥In VerbCheck, verify the SF2-style Reply Record only if it's not a
*	SFMultiGet2 call!  This was causing occasional flakey $1705 errors
*	for some folks (or at least for Bryan P at Softdisk).  It was trying
*	to validate fields that were beyond the end of the 6-byte multi reply
*	record.
* 18-Dec-91	DAL
*	¥Added FunkyPutFile bit--special handling for PutFile dialogs with
*	the Line Edit box outside the window (always direct keys to the list,
*	but never draw the focus frame around the list).  Also, don't fudge
*	the List upwards by a pixel when it's a FunkyPutFile.
*	¥JudgeTheName does not rely on FrontWindow to get the dialog ptr
*	(because Bryan P has already hidden the window!).
*	¥In DoPathDraw, now we set the clip region so we don't draw outside
*	the path item rectangle.
*	¥DoPathDraw now stores the right edge of what we drew, and DoPath
*	ignores any clicks to the right of this position.
*	¥SFRescan takes no action if you're at the Volumes list (no error).
*	¥Up and Down arrows in PutFile volume list now update the K free/used
*	for the correct disk.
* 29-Jan-92	DAL (for 6.0d68)
*	¥Fixed convert_time to respect the 1940..2039 definition of a class-0
*	date value (out-of-range dates are returned as all-zero date/time).
*	¥Mess with sys prefs around GetDevNumber in GetThePrefix, to avoid
*	prompting for offline disk (if the prefix happens to be set to one).
*	¥If we get an error building the file list, now we call ErrorWindow,
*	and then try again with the root level of the boot volume.
* 6-Feb-92	DAL (for 6.0d70)
*	¥Drawing the padlock in the path item adjusts the pen position so it
*	won't get overwritten by the file system text.
*	¥You can click on the FST name to pop down the path menu (moved one
*	line).
*
****************************************************************************************
*
* BEGIN 6.0.1
*
* 17-Feb-92	DAL
*	¥Make Command-left and Command-right cycle volumes?
*
* 5-Mar-92	DAL (for 6.1d2)
*	¥Change Long2Dec calls to set bit 31 of stringPtr for "zero K"
*	(net savings of 31 bytes by consolidating into Long2DecTen)
*
* 16-Mar-92	DAL
*	¥Regular item-draw uses DrawStringWidth instead of manually
*	setting charExtra.
*
* 25-Mar-92	DAL
*	¥Updated messages to read "Disks" instead of "Volumes".
*
* 27-Apr-92	DAL
*	¥Volume name comparison in NextDrive is now case-insensitive.
*
*  5-Oct-92	DAL
*	¥Passes real auxiliary type to GetSysIcon (was always passing zero).
*
* 17-19-Mar-93 SS
*	¥Fixed SFReScan to update _all_ controls when called.
*	¥Added key equivalent: Cmd-Shift-Up = Cmd-D = hit in Disks button.
*	¥Added key equivalent: Cmd-Rt-Arrow = Cmd-Tab = fwd to next drive.
*	¥Added new key support: Cmd-Lt-Arrow = backward to previous drive.
*	Defined new bit in <FGetPutFlag: TabBackwards for NextDrive to know
*	which direction to go through the devices.  Set = go backwards (duh!).
*	¥Added a content draw proc to update the dlg window if something moves
*	across in front.
*	¥Added call to UpdateWindow to attempt to update windows behind us.
*	¥Made several changes to try to handle multiple editlines in PutFile.
*	Un-hard-coded references to Item#10 (previously the only editline).
*	Added a fake off-screen editline item #8 to represent the List.	
*
* 22-Mar-93 SS
*	¥Fixed PromptDesc error check in VerbCheck.  A 'BadVerbPrompt' error
*	was never being reported!  This also allowed removing several occurances
*	of 'and #3' that are no longer needed after the range checking is done.
*	Need a reminder in the doc that PromptRefDesc >3 is invalid.
* 23-Mar-93 SS
*	¥Added remainder of code to support multiple edit lines in PutFile.
* 25-Mar-93 SS
*	¥Made SFReScan work in the volume list (as well as the file list).
*
* 2-Apr-93 SS
*	¥Fixed DoExit - it was not properly releasing the prompt if it was a resource.
*
* 6-May-93 DAL/SS	¥Changed NextDrive1 to avoid an infinite loop if Seperator (sic) was not set
*	up yet.  This happened if prefix 0 was empty on an SFGetFile call.
*
*****************************************************************************************

	print push
	print off
	
	INCLUDE 'all.macros'
	Include 'Dave.Macros'
	INCLUDE 'E16.Event'
	INCLUDE 'E16.Dialog'
	INCLUDE 'E16.List'
	INCLUDE 'E16.Menu'
	INCLUDE 'E16.Control'
	INCLUDE '::sys.equs.asm'

	print pop
	string asis

	ENTRY DerefandLock
	ENTRY SaveAndZeroRefCons
	ENTRY GetLocInfo
	
	ENTRY BuildList
	ENTRY GetFirst
	ENTRY DirectoryUp
	ENTRY DirectoryDown
	ENTRY ReadDirSize
	ENTRY GetNewHandle
	ENTRY GetSmallHandle
	ENTRY KillHandle
	ENTRY ExtendHandle
	ENTRY GetThePrefix
	ENTRY OpenPrefix
	ENTRY ClosePrefix
	ENTRY SetThePrefix
	ENTRY CloseA
	ENTRY ReadNextDirEntry
	ENTRY PathDraw
	ENTRY DoPathDraw
	ENTRY GetSelected
	ENTRY DoDInfoCall
	ENTRY PutAdjust
	ENTRY CommonOpen
	ENTRY DeRefHandle
	ENTRY MoveDialogToMemory
	ENTRY KillPointer
	

	INCLUDE 'GlobalEqu.aii'
**********************************************************************
* Dialog Record files
**********************************************************************
	INCLUDE 'Dialogs.aii'
	INCLUDE 'CustomPopUp.aii'	

SFGet	PROC
	EXPORT SFGetFile2
	EXPORT SFGetFile
	EXPORT SFPGetFile2
	EXPORT SFPGetFile
	EXPORT SFMultiGet2
	EXPORT SFPMultiGet2
	rtl
**********************************************************************
*
* StdGetFile
*
* Entry to Get.
*
* The stack: Different for each entry point.
*
* This is the define stack for SFGetFile2
*
**********************************************************************
	DefineStack
origD	word
origB	byte	;reserve word on stack
Rtl1	block 3	;(like r long but adds space for 3 bytes)
Rtl2	block 3

SGReplyPtr2	long	;POINTER to a reply record (see calling routine for def).
SGTypeListPtr2	long	;POINTER to typelist record; NIL to display all files.
SGFilterProcPtr2	long	;POINTER to filter procedure; NIL for none.
SGPromptPtr2	long	;POINTER to string to display at top of dialog.
SGPromptVerb2	word	;Prompt string verb.
SGWhereY2	word	;Y corrdinate of upper left corner.
SGWhereX2	word	;X coordinate of upper left corner.
SGStack2	equ DummyPC-10	;stack size
*
* The folowing is the define stack for SFPGetFile2
*
	DSect 10
SGReplyPtrP2	long	;POINTER to a reply record (see calling routine for def).
SGDilgHookPtrP2	long	;POINTER to a routine called every time ModalDialog returns a hit
SGDilgPtrP2	long	;POINTER to a dialog template in memory.
SGTypeListPtrP2	long	;POINTER to typelist record; NIL to display all files.
SGFilterProcPtrP2	long	;POINTER to filter procedure; NIL for none.
SGPromptPtrP2	long	;POINTER to string to display at top of dialog.
SGPromptVerbP2	word	;Prompt string verb.
SGItemDrawPtrP2	long	;POINTER to a list member draw routine.
SGWhereYP2	word	;Y corrdinate of upper left corner.
SGWhereXP2	word	;X coordinate of upper left corner.
SGPStack2	equ DummyPC-10	;stack size
	
*
* This is the define stack for the old SFGetFile
*
	DSect 10
SGReplyPtr	long	;POINTER to a reply record (see calling routine for def).
SGTypeListPtr	long	;POINTER to typelist record; NIL to display all files.
SGFilterProcPtr	long	;POINTER to filter procedure; NIL for none.
SGPromptPtr	long	;POINTER to string to display at top of dialog.
SGWhereY	word	;Y corrdinate of upper left corner.
SGWhereX	word	;X coordinate of upper left corner.
SGStack	equ DummyPC-10	;stack size
*
* The folowing is the define stack for the old SFPGetFile
*
	DSect 10
SGReplyPtrP	long	;POINTER to a reply record (see calling routine for def).
SGDilgHookPtrP	long	;POINTER to a routine called every time ModalDialog returns a hit
SGDilgPtrP	long	;POINTER to a dialog template in memory.
SGTypeListPtrP	long	;POINTER to typelist record; NIL to display all files.
SGFilterProcPtrP	long	;POINTER to filter procedure; NIL for none.
SGPromptPtrP	long	;POINTER to string to display at top of dialog.
SGWhereYP	word	;Y corrdinate of upper left corner.
SGWhereXP	word	;X coordinate of upper left corner.	
SGPStack	equ DummyPC-10	;stack size
*
* Exit:	Errors returned in A, carry set.
* The stack:	empty.
*
**********************************************************************
*
* Entry SFMultiGet2
*
SFMultiGet2	phd		; Save Direct Page Register.
	tcd		; Put ours.
	phb		; Save Data Bank register.
	phk		; Put ours.
	plb
	lda #MultiFileMode
	bra GetFile2

**********************************************************************
*
* Entry for SFGetFile2
*
SFGetFile2	phd		; Save Direct Page Register.
	tcd		; Put ours.
	phb		; Save Data Bank register.
	phk		; Put ours.
	plb
	lda #0000		;GET, NEW
GetFile2
	sta ztemp1		;flags here
	jsr reset_vars
*
* Move all incomming parameters off the stack and into zero-page.
*
	lda SGReplyPtr2,s		; Transfer parameters on
	sta ReplyPtr		; the stack to zero-page.
	lda SGReplyPtr2+2,s
	sta ReplyPtr+2
*--------------------------------------------------------------------------------
	lda SGTypeListPtr2,s
	sta TypeList
	lda SGTypeListPtr2+2,s
	sta TypeList+2
*--------------------------------------------------------------------------------
	lda SGFilterProcPtr2,s
	sta FilterProcPtr
	lda SGFilterProcPtr2+2,s
	sta FilterProcPtr+2
*--------------------------------------------------------------------------------
	lda SGPromptVerb2,s
	sta PromptVerb
	lda SGPromptPtr2,s
	sta PromptPtr
	lda SGPromptPtr2+2,s
	sta PromptPtr+2
*--------------------------------------------------------------------------------
	lda SGWhereX2,s
	sta WhereX
	lda SGWhereY2,s
	sta WhereY
	
	lda #SGStack2		;stack size
	sta stacksize		;bytes need removing

	brl common


**********************************************************************
*
* Entry SFPMultiGet2
*
SFPMultiGet2
	phd		; Save Direct Page Register.
	tcd		; Put ours.
	phb		; Save Data Bank register.
	phk		; Put ours.
	plb
	lda #PatchedFlag+MultiFIleMode
	bra PGetFile2

**********************************************************************
*
* Entry for SFPGetFile2
*
SFPGetFile2	phd		; Save Direct Page Register.
	tcd		; Put ours.
	phb		; Save Data Bank register.
	phk		; Put ours.
	plb
	lda #PatchedFlag		;GET, NEW
PGetFile2
	sta ztemp1		;flags here
	jsr reset_vars
	
	lda SGReplyPtrP2,s		; Transfer parameters on
	sta ReplyPtr		; the stack to zero-page.
	lda SGReplyPtrP2+2,s
	sta ReplyPtr+2
*--------------------------------------------------------------------------------
	lda SGDilgHookPtrP2,s	; Transfer parameters on
	sta DilgHook		; the stack to zero-page.
	lda SGDilgHookPtrP2+2,s
	sta DilgHook+2
*--------------------------------------------------------------------------------
	lda SGDilgPtrP2,s		; Transfer parameters on
	sta DialogTemplatePtr	; the stack to zero-page.
	lda SGDilgPtrP2+2,s
	sta DialogTemplatePtr+2
*--------------------------------------------------------------------------------
	lda SGTypeListPtrP2,s
	sta TypeList
	lda SGTypeListPtrP2+2,s
	sta TypeList+2
*--------------------------------------------------------------------------------
	lda SGFilterProcPtrP2,s
	sta FilterProcPtr
	lda SGFilterProcPtrP2+2,s
	sta FilterProcPtr+2
*--------------------------------------------------------------------------------
	lda SGPromptVerbP2,s
	sta PromptVerb
	lda SGPromptPtrP2,s
	sta PromptPtr
	lda SGPromptPtrP2+2,s
	sta PromptPtr+2
*--------------------------------------------------------------------------------
	lda SGItemDrawPtrP2,s
	sta IconHookPtr
	lda SGItemDrawPtrP2+2,s
	sta IconHookPtr+2
*--------------------------------------------------------------------------------
	lda SGWhereXP2,s
	sta WhereX
	lda SGWhereYP2,s
	sta WhereY

	lda #SGPStack2		;stack size
	sta stacksize		;34 bytes need removing

	brl common
SFGetFile
**********************************************************************
*
* Entry for SFGetFile
*
**********************************************************************
	phd		; Save Direct Page Register.
	tcd		; Put ours.
	phb		; Save Data Bank register.
	phk		; Put ours.
	plb

	jsr reset_vars

*
* Move all incomming parameters off the stack and into zero-page.
*
	lda SGReplyPtr,s		; Transfer parameters on
	sta ReplyPtr		; the stack to zero-page.
	lda SGReplyPtr+2,s
	sta ReplyPtr+2
*--------------------------------------------------------------------------------
	lda SGTypeListPtr,s
	sta TypeList
	lda SGTypeListPtr+2,s
	sta TypeList+2
*--------------------------------------------------------------------------------
	lda SGFilterProcPtr,s
	sta FilterProcPtr
	lda SGFilterProcPtr+2,s
	sta FilterProcPtr+2
*--------------------------------------------------------------------------------
	lda SGPromptPtr,s
	sta PromptPtr
	lda SGPromptPtr+2,s
	sta PromptPtr+2
*--------------------------------------------------------------------------------
	lda SGWhereX,s
	sta WhereX
	lda SGWhereY,s
	sta WhereY

	lda #SGStack		;stack size
	sta stacksize		;20 bytes need removing

	lda #OldStyleFlag		;OLD GET
	brl common2
	
SFPGetFile
**********************************************************************
*
* Entry for SFPGetFile
*
**********************************************************************
	phd		; Save Direct Page Register.
	tcd		; Put ours.
	phb		; Save Data Bank register.
	phk		; Put ours.
	plb

	jsr reset_vars

	lda SGReplyPtrP,s		; Transfer parameters on
	sta ReplyPtr		; the stack to zero-page.
	lda SGReplyPtrP+2,s
	sta ReplyPtr+2
*--------------------------------------------------------------------------------
	lda SGDilgHookPtrP,s	; Transfer parameters on
	sta DilgHook		; the stack to zero-page.
	lda SGDilgHookPtrP+2,s
	sta DilgHook+2
*--------------------------------------------------------------------------------
	lda SGDilgPtrP,s		; Transfer parameters on
	sta DialogTemplatePtr	; the stack to zero-page.
	lda SGDilgPtrP+2,s
	sta DialogTemplatePtr+2
*--------------------------------------------------------------------------------
	lda SGTypeListPtrP,s
	sta TypeList
	lda SGTypeListPtrP+2,s
	sta TypeList+2
*--------------------------------------------------------------------------------
	lda SGFilterProcPtrP,s
	sta FilterProcPtr
	lda SGFilterProcPtrP+2,s
	sta FilterProcPtr+2
*--------------------------------------------------------------------------------
	lda SGPromptPtrP,s
	sta PromptPtr
	lda SGPromptPtrP+2,s
	sta PromptPtr+2
*--------------------------------------------------------------------------------
	lda SGWhereXP,s
	sta WhereX
	lda SGWhereYP,s
	sta WhereY

	lda #SGPStack		;stack size
	sta stacksize		;28 bytes need removing
	lda #PatchedFlag+OldStyleFlag	;OLD GET, Custom dialog
	brl common2
	
	ENDP


SFReScan2	PROC EXPORT
*
* The folowing is the define stack for the old SFReScan2 entry
	DSect 10
SRTypeListPtr	long	;POINTER to typelist record; NIL to display all files.
SRFilterProcPtr	long	;POINTER to filter procedure; NIL for none.
SFRStack	equ DummyPC-10	;stack size

**********************************************************************
*
* Entry for SFReScan2
*
**********************************************************************
	phd		; Save Direct Page Register.
	tcd		; Put ours.
	phb		; Save Data Bank register.
	phk		; Put ours.
	plb
*--------------------------------------------------------------------------------

*** let it happen at the volume level also  25-Mar-93 SS
;*** added 18-Dec-91 DAL -- If we're at the Volume level, do nothing
;	lda FGetPutFlag
;	and #inVolumeList
;	bne @exit

*** 31-Jul-91 DAL -- Remove restrictions and see if this works for everything
;	lda FGetPutFlag
;	and #$A000		;only necessary bits 15 and 13. HY 10/5/89
;	cmp #$2000		;patched gets only
;	beq @1		;not ok
;	ldx #$1706		;bad call error
;	ldy #SFRStack		;stack size
;	brl ErrorEscape2		;good bye!
*--------------------------------------------------------------------------------
@1
	lda SRTypeListPtr+1,s	;zero?
	beq @2
	lda SRTypeListPtr,s
	sta TypeList
	lda SRTypeListPtr+2,s
	sta TypeList+2
*--------------------------------------------------------------------------------
@2
	lda SRFilterProcPtr+1,s
	beq @3
	lda SRFilterProcPtr,s
	sta FilterProcPtr
	lda SRFilterProcPtr+2,s
	sta FilterProcPtr+2
*--------------------------------------------------------------------------------
@3
*** Added to force all controls to update in case pfx8 is on another drive. 17-Mar-93 SS
	lda #8
	jsr GetThePrefix
	jsr DoDInfoCall
	jsr DoVolumeCall
	lda FGetPutFlag
	bit #PutFlag
	beq @inGet
	
	PushZLong DialogPtr
	_SetPort		;make sure the port is set.
	PushZLong DialogPtr
	PushWord #11		;kbFreeStr item
	PushZPtr tempRect
	_GetDItemBox
	PushZPtr tempRect
	_InvalRect		;rect is invalid and should redraw
@inGet
*** end 17-Mar-93 SS
	lda #$8000
	sta FRedraw

@exit	ldx #0000
	ldy #SFRStack		;stack size
	brl ErrorEscape2		;and leave
	
	ENDP

	
	
SFPutFile2	PROC EXPORT
	EXPORT SFPutFile
	EXPORT SFPPutFile
	EXPORT SFPPutFile2
**********************************************************************
*
* StdPutFile entries: SFPutFile, SFPPutFile, SFPutFile2, SFPPutFile2
*
* Entry to Put.
* The stack: 	Different for each entry point
*
* This is the define stack for SFPutFile2
*
**********************************************************************
	DefineStack
origD	word
origB	byte	;reserve word on stack
Rtl1	block 3	;(like r long but adds space for 3 bytes)
Rtl2	block 3
SReplyPtr2	long	;POINTER to a reply record (see calling routine for def).
SorigNamePtr2	long	;POINTER to string that holds default name for text edit field.
SorigNameVerb2	word	;Default name string verb.
SPromptPtr2	long	;POINTER to prompt string.
SPromptVerb2	word	;Prompt string verb.
SWhereY2	word	;Y corrdinate of upper left corner.
SWhereX2	word	;X coordinate of upper left corner.
SPStack2	equ DummyPC-10	;stack size
*
*
* This is the define stack for SFPPutFile2
*
	DSect 10
SReplyPtrP2	long	;POINTER to a reply record (see calling routine for def).
SDilgHookPtrP2	long	;POINTER to a routine called every time ModalDialog returns a hit
SDilgPtrP2	long	;POINTER to a dialog template in memory.
SorigNamePtrP2	long	;POINTER to string that holds default name for text edit field.
SorigNameVerbP2	word	;Default name string verb.
SPromptPtrP2	long	;POINTER to prompt string.
SPromptVerbP2	word	;Prompt string verb.
SPItemDrawPtrP2	long	;POINTER to a list member draw routine.
SWhereYP2	word	;Y corrdinate of upper left corner.
SWhereXP2	word	;X coordinate of upper left corner.
SPStackP2	equ DummyPC-10	;stack size
*
*
* This is the define stack for the old SFPutFile
*
	DSect 10
SReplyPtr	long
SMaxLen	word	;max length user may type
SorigNamePtr	long
SPromptPtr	long
SWhereY	word
SWhereX	word
SPStack	equ DummyPC-10	;stack size
*
*
* This is the define stack for the old SFPPutFile
*
	DSect 10
SReplyPtrP	long	;POINTER to a reply record (see calling routine for def).
SDilgHookPtrP	long	;POINTER to a routine called every time ModalDialog returns a hit
SDilgPtrP	long	;POINTER to a dialog template in memory.
SMaxLenP	word	;max length user may type
SorigNamePtrP	long
SPromptPtrP	long
SWhereYP	word
SWhereXP	word
SPStackP	equ DummyPC-10	;stack size
*
*
* Exit:	Errors returned in A, carry set.
*
* The stack:	empty.
*
**********************************************************************
*
* entry for SFPutFile2
*
	phd		; Save Direct Page Register.
	tcd		; Put ours.
	phb		; Save Data Bank register.
	phk		; Put ours.
	plb

	jsr reset_vars
*
* Move all incomming parameters off the stack and into zero-page.
*
	lda SReplyPtr2,s		; Transfer parameters on
	sta ReplyPtr		; the stack to zero-page.
	lda SReplyPtr2+2,s
	sta ReplyPtr+2
*--------------------------------------------------------------------------------
	lda SorigNameVerb2,s
	sta OrigNameVerb
	lda SorigNamePtr2,s
	sta OrigName
	lda SorigNamePtr2+2,s	;can use typlist here.
	sta OrigName+2
*--------------------------------------------------------------------------------
	lda SPromptVerb2,s
	sta PromptVerb
	lda SPromptPtr2,s
	sta PromptPtr
	lda SPromptPtr2+2,s
	sta PromptPtr+2
*--------------------------------------------------------------------------------
	lda #32		;real long names ok
	sta MaxLen		;no max len passed here
*--------------------------------------------------------------------------------
	lda SWhereX2,s
	sta WhereX
	lda SWhereY2,s
	sta WhereY
	
	lda #SPStack2		;stack size
	sta stacksize		;24 bytes need removing

	lda #PutFlag		;PUT
	brl common2

*
* entry for SFPPutFile2
*
SFPPutFile2	phd		; Save Direct Page Register.
	tcd		; Put ours.
	phb		; Save Data Bank register.
	phk		; Put ours.
	plb

	jsr reset_vars

*
* Move all incomming parameters off the stack and into zero-page.
*
	lda SReplyPtrP2,s		; Transfer parameters on
	sta ReplyPtr		; the stack to zero-page.
	lda SReplyPtrP2+2,s
	sta ReplyPtr+2
*--------------------------------------------------------------------------------
	lda SDilgHookPtrP2,s	; Transfer parameters on
	sta DilgHook		; the stack to zero-page.
	lda SDilgHookPtrP2+2,s
	sta DilgHook+2
*--------------------------------------------------------------------------------
	lda SDilgPtrP2,s		; Transfer parameters on
	sta DialogTemplatePtr	; the stack to zero-page.
	lda SDilgPtrP2+2,s
	sta DialogTemplatePtr+2
*--------------------------------------------------------------------------------
	lda SorigNameVerbP2,s
	sta OrigNameVerb
	lda SorigNamePtrP2,s
	sta OrigName
	lda SorigNamePtrP2+2,s
	sta OrigName+2
*--------------------------------------------------------------------------------
	lda #32		;real long names ok
	sta MaxLen		;no max len passed here
*--------------------------------------------------------------------------------
	lda SPromptVerbP2,s
	sta PromptVerb
	lda SPromptPtrP2,s
	sta PromptPtr
	lda SPromptPtrP2+2,s
	sta PromptPtr+2
*--------------------------------------------------------------------------------
	lda SPItemDrawPtrP2,s
	sta IconHookPtr
	lda SPItemDrawPtrP2+2,s
	sta IconHookPtr+2
*--------------------------------------------------------------------------------
	lda SWhereXP2,s
	sta WhereX
	lda SWhereYP2,s
	sta WhereY
*--------------------------------------------------------------------------------
	lda #SPStackP2
	sta stacksize		;33 bytes need removing

	lda #PutFlag+PatchedFlag	;PUT, Custom dialog (#$A000)
	brl common2

SFPutFile
*
* entry for original SFPutFile
*
	phd		; Save Direct Page Register.
	tcd		; Put ours.
	phb		; Save Data Bank register.
	phk		; Put ours.
	plb

	jsr reset_vars

*
* Move all incomming parameters off the stack and into zero-page.
*
	lda SReplyPtr,s		; Transfer parameters on
	sta ReplyPtr		; the stack to zero-page.
	lda SReplyPtr+2,s
	sta ReplyPtr+2
*--------------------------------------------------------------------------------
	lda SMaxLen,s
	cmp #33		; make sure that max chars. that can be
	bcc StoreIt		; entered into edit line item does not
	lda #32		; exceed 36. 
StoreIt	sta MaxLen
*--------------------------------------------------------------------------------
	lda SorigNamePtr,s
	sta OrigName
	lda SorigNamePtr+2,s	;can use typlist here.
	sta OrigName+2
*--------------------------------------------------------------------------------
	lda SPromptPtr,s
	sta PromptPtr
	lda SPromptPtr+2,s
	sta PromptPtr+2
*--------------------------------------------------------------------------------
	lda SWhereX,s
	sta WhereX
	lda SWhereY,s
	sta WhereY

	lda #SPStack
	sta stacksize		;18 bytes need removing

	lda #PutFlag+OldSTyleFlag	;PUT, OLD (#$8001)
	bra common2

*
* entry for SFPPutFile
*
SFPPutFile
	phd		; Save Direct Page Register.
	tcd		; Put ours.
	phb		; Save Data Bank register.
	phk		; Put ours.
	plb

	jsr reset_vars

*
* Move all incomming parameters off the stack and into zero-page.
*
	lda SReplyPtrP,s		; Transfer parameters on
	sta ReplyPtr		; the stack to zero-page.
	lda SReplyPtrP+2,s
	sta ReplyPtr+2
*--------------------------------------------------------------------------------
	lda SDilgHookPtrP,s	; Transfer parameters on
	sta DilgHook		; the stack to zero-page.
	lda SDilgHookPtrP+2,s
	sta DilgHook+2
*--------------------------------------------------------------------------------
	lda SDilgPtrP,s		; Transfer parameters on
	sta DialogTemplatePtr	; the stack to zero-page.
	lda SDilgPtrP+2,s
	sta DialogTemplatePtr+2
*--------------------------------------------------------------------------------
	lda SMaxLenP,s
	cmp #33
	bcc @StoreIt
	lda #32
@StoreIt	sta MaxLen
*--------------------------------------------------------------------------------
	lda SorigNamePtrP,s
	sta OrigName
	lda SorigNamePtrP+2,s	;can use typlist here.
	sta OrigName+2
*--------------------------------------------------------------------------------
	lda SPromptPtrP,s
	sta PromptPtr
	lda SPromptPtrP+2,s
	sta PromptPtr+2
*--------------------------------------------------------------------------------
	lda SWhereXP,s
	sta WhereX
	lda SWhereYP,s
	sta WhereY

	lda #SPStackP
	sta stacksize		;26 bytes need removing

	lda #PutFlag+PatchedFlag+OldStyleFlag	;#$A001  ;PUT, OLD, Custom dialog
	bra common2	;safe way to fall through
	ENDP


**********************************************************************
*
* Common point for all of above entries. A = FGetPutFlag value.
*
**********************************************************************
common	PROC EXPORT
	EXPORT common2
	EXPORT ErrorEscape
	EXPORT ErrorEscape2
	EXPORT Main_Exit
	
	lda ztemp1		;temp storage for flags
common2
	sta FGetPutFlag		;Flags
	sta closeButStat		;a state it can't be
	sta saveButStat		;another impossible state!
	stz CurError		;No error (so far!!)
	lsr a		;old style call in d0 now in carry
	bcs @1		;no error check in verbs in old calls
	jsr VerbCheck		;check verbs on new calls
	bcc @1		;no errors
	sta CurError		;what error
	tax		;ErrorEscape need this in x
	brl ErrorEscape		;and leave quickly
@1

*** added 7-Apr-91 DAL -- make sure we're actually started up!
*** (If we're not, we already trashed some zero page, but tough shit.)
	tdc
	bne @started
	ldx #sfNotStarted
	brl ErrorEscape
@started
*** end of 7-Apr-91 DAL

*** added 7-Apr-91 DAL -- make sure QD Aux is available!
	pea 0
	_QDAuxStatus
	pla
	bne @gotQDAux

	pea $0012	;QuickDraw II Auxiliary
	pea $0304	;minimum QDAux version $0304
	_LoadOneTool
	bcc @loadedQDAux
	tax
	brl ErrorEscape
@loadedQDAux	_QDAuxStartUp
@gotQDAux
*** end of 7-Apr-91 DAL

	PushLongSpace
	_GetPort
*******************will leave this on the stack and remove it later*********	
*
* Now allocate most of the needed memory
*
* get a zero length handle (gets killed and reallocated upon first entry to BuildList
* but I needed something for BuildLIst to be able to kill.
*
	lda #0
	jsr GetSmallHandle
	bcc No_memError
Mem_Error_brl
	brl Main_Exit		;a place to branch (will save error)
No_memError
	stax ListPointerHandle
*
* Allocate a parameter buffer in memory to save the current working prefix
*
	lda #512		;512 bytes for handle
	jsr GetSmallHandle
	bcs Mem_Error_brl
	PushAx		;push for the derefandlock
	jsr DerefAndLock		;returns a pointer to memory
	stax PrefixPtr
	lda #508		;length of this buffer (-4 to CYA)
	sta [PrefixPtr]
*
* a place in memory for the list of file name strings
*
	lda #512		;512 bytes to start
	jsr GetSmallHandle
	bcs Mem_Error_brl
	stax StringsHandle		;a place to start saving strings
	PushAx		;push for the derefandlock
	jsr DerefAndLock		;returns a pointer to memory
	stax StringsPtr
*
* Allocate a buffer in memory for the GetDirectory call to use for the
* name string returned. This will grow later if a larger area is needed.
* This area can also be used for temp storage when not doing directory calls.
*
	lda #256+4		;256 bytes for handle (+ 4 overhead)
	jsr GetSmallHandle		;should be plenty (will grow if needed)
	bcs Mem_Error_brl
	stax NameHandle
	PushAx		;push for the derefandlock
	jsr DerefAndLock		;returns a pointer to memory
	stax NamePtr
	lda #256		;length of this buffer (-4 to CYA)
	sta [NamePtr]
*
* This memory is used by the DInfo call as a place to put its results
* Actually, I think I'll make this even larger and use the area for temp storage as well (12/19/88)
*
	lda #135		;35 bytes for handle +100 for temps
	jsr GetSmallHandle
	bcs Mem_Error_brl
	PushAx		;push for the deref
	jsr DerefandLock		;returns a pointer to memory
	stax DinfoPtr
	lda #131		;length of this buffer (-4 to CYA)
	sta [DinfoPtr]
*
* This memory is used to put the list manager record into.
*
	lda #40		;40 bytes for the record
	jsr GetSmallHandle		;handle of memory
	bcs Mem_Error_brl
	stax ListRecHandle
	PushAx		;push for the deref
	jsr DerefandLock		;returns a pointer to memory
	stax ListRecPtr
*
* now some memory for Get to display drive's stat (need to make them strings)
*
	lda #32		;32 bytes for the record
* (see globalequ.aii for allocation and use of this block)
	jsr GetSmallHandle		;handle of memory
	bcs Main_Exit
	PushAx		;push for the deref
	jsr DerefandLock		;returns a pointer to memory
	stax SizeInfoPtr
*
* a small buffer for GetDirEntry conversion to old ProDos call style for Filter Procs
*
	lda FGetPutFlag
	bmi skipBuffer		;not needed for Put
	lsr a		;see if an old call
	bcc skipBuffer		;only for an old call
*
* Cheat: instead of lda and ora a long address, check second and third byte. Not likely
* both will be 0.
	lda FilterProcPtr+1		;is there a User Hook ?
	beq skipBuffer		;not needed if no hook	

	lda #40		;approx 38 bytes for the record
	jsr GetSmallHandle		;handle of memory
	bcs Main_Exit
	PushAx		;push for the deref
	jsr DerefandLock		;returns a pointer to memory
	stax ProDosDirEntry		;save the pointer
skipBuffer
*
* we have all the memory we need!
*
* now some last minute set up stuff
*	
	stz lastSelected
	stz lastSelected+2		;lastselected item init
	lda #$FFFF
	sta openButStat		;init to impossible state (so it detects a change!)

	jsr GetLocInfo		;Need to know which size we are in?
	bne @1
	lda #Size320Flag
	ora FGetPutFlag
	sta FGetPutFlag		;d15 = 1 is 320 mode
@1
*
* Set up near done.....FGetPutFlag contains size info and Get/Put info
*
* Select proper dialog
*
	lda FGetPutFlag
	bit #PatchedFlag		;see if custom dialog
	beq Not_patched
	ldax DialogTemplatePtr
	bra Patched_move
Not_patched
	and #$C000		;keep only dialog type bits
	xba		;d15/16 to d7/8
	lsr a		;d7/8 to d6/7
	lsr a		;d7/8 to d5/6
	lsr a		;d7/8 to d4/5
	lsr a		;d7/8 to d3/4
	tax

	lda DialogTable,x
	pha
	inx
	inx
	lda DialogTable,x
	tax
	pla
Patched_move
	jsr MoveDialogtoMemory	;pass pointer in a,x, returns pointer to new template
	sta DialogTemplatePtr	;return template in memory
	stx DialogTemplatePtr+2
do_custom	
	jsr Common_Patched		;Do GetFile or PutFile.
*
* return point and exit (carry = error if set, a = error code (I hope I didn't miss any)
*
Main_exit
	bcc @3
	pha
	lda #0
	sta [ReplyPtr]		;if error, turn off Good
	pla
	sta CurError		;save any error if one!
	cmp #$0201		;memory error
	bne @3		;skip the rest
*
* if a memory error, find out how much space is left BEFORE getting rid of the handles
*
	PushLongSpace
	_MaxBlock		;ask the system whats avaliable
*
* total free is on the stack
*
	ldax SizeInfoPtr
	clc
	adc #totalSizeStr		;point to place for string
	bcc @1
	inx
@1
	PushAX
	stax [SizeInfoPtr],totalSize	;save as a "mini table"
;	PushWord #0010		;10 characters
;	PushWord #False		;unsigned
;	_Long2Dec		;string set up
	jsr Long2DecTen	;5-Mar-92 DAL
*
* What did we request
*
	PushLong LastRequest	;size last requested
	ldax SizeInfoPtr
	clc
	adc #totalFreeStr		;point to place for string
	bcc @2
	inx
@2
	PushAX		;destination of string 2
	stax [SizeInfoPtr],totalFree	;second "mini table" entry
;	PushWord #0010		;10 characters
;	PushWord #False		;unsigned
;	_Long2Dec		;string set up 2
	jsr Long2DecTen	;5-Mar-92 DAL
@3
*
*******************the original port was left on the stack above*******************
*
	_SetPort
*
* the exit from get file
*
	lda FGetPutFlag
	and #PathDrawPatched
	beq NotPatched
	
	jsr DoUnPatch
NotPatched
	lda #1
	sta ParBlock
	lda #NotificationPROC	;de-install ourselves from the 
	sta procPointer		;OS notification queue
	lda #^NotificationPROC
	sta procPointer+2
	PushZPtr ParBlock		;pointer to parameter block
	PushWord #$2035		;_DelNotifyProc
	jsl ProDos_Stack_Entry	;stack based call
	
	ldax ListPointerHandle
	jsr KillHandle
	
	ldax StringsHandle		;a place to start saving strings
	jsr KillHandle

	ldax NameHandle
	jsr KillHandle
	
	ldax ListRecHandle
	jsr KillHandle		; release memory

	ldax PrefixPtr
	jsr KillPointer

	ldax DinfoPtr
	jsr KillPointer		; release memory

	ldax DialogTemplatePtr
	jsr KillPointer

	lda FGetPutFlag
	bmi skipremove		;not done if Put
	lsr a		;see if an old call
	bcc skipremove		;only for an old call
	lda FilterProcPtr+1		;is there a User Hook ? (cheat check)
	beq skipremove		;not needed if no hook	

	ldax ProDosDirEntry		;save the pointer
	jsr KillPointer
skipremove	
	lda CurError
	beq @1		;forget check if error
	cmp #$0201		;memory error
	bne @1		;skip the rest
	ldy #TotalSizeStr+10	;where the string starts
	lda #0
	sta [SizeInfoPtr],y	;make a c string
	ldy #TotalFreeStr+10
	sta [SizeInfoPtr],y
	PushWordSpace		;results for alert window
	PushWord #0		;indicate C string
	PushLong SizeInfoPtr	;substitution array
	PushLong #MemoryMessage	;tell them error
	_AlertWindow
	pla		;don't care what comes back
	lda CurError		;and pass back the error
@1
	pha		;save current error to kill one more handle

	ldax SizeInfoPtr
	jsr KillPointer		;last one that may have been needed
	plx		;put error in x for ToStrip
	stz FGetPutFlag		;clear the flag when we leave!
ErrorEscape
	ldy stacksize
ErrorEscape2
*
* better have stack size in Y and error code in X
*
	plb
	pld
	jml ToStrip
	
	
**********************************************************************
* There is a problem with patching the user's dialog template with an
* address that points to a routine in Standard File.  If standard file
* happens to get unloaded and then loaded again but in a different 
* memory location then this address is no longer valid the next time
* this dialog template is used.  Therefore to make sure standard file
* always patches out this field we reset it to zero.
**********************************************************************
doUnPatch	
;;;	lda DialogTemplatePtr	;move ptr to dialog template to another 
	lda >origDialogTempPtr	;15-Sep-91 DAL
	sta pointer2		;dpage location
;;;	lda DialogTemplatePtr+2
	lda >origDialogTempPtr+2	;15-Sep-91 DAL
	sta pointer2+2
	
	bit FGetPutFlag		;find out if it's Get or Put dialog
	bmi @ItsPut
	
	ldy #34		;offset for get dialog header to path item (item 6)
	bra @doit
	
@ItsPut	ldy #38		;offset for put dialog header to path item (item 7)	

@doit	lda [<pointer2],y		;get ptr to dialog item
	tax		;and put ptr in dpage location
	iny
	iny
	lda [<pointer2],y
	sta <pointer2+2
	stx <pointer2
	
	ldy #12		;offset to refdescriptor field
	lda #0		;Zero this location out so that std file will patch
	sta [<pointer2],y		;this out the next time the template is used.
	iny
	iny
	sta [<pointer2],y
	
	rts

	export OrigDialogTempPtr
OrigDialogTempPtr	dc.l 0

	ENDP

**********************************************************************
*
* Check incomming verbs for valid values and set carry and return error
* if any one is bad. Note that we stop checking as soon as one bad verb
* is found.
*
**********************************************************************
VerbCheck	PROC EXPORT
	import ffListHandle	;DAL

*** added 1-Nov-91 DAL -- SFMultiGet2 does NOT have this kind of reply record to check!
	lda <fGetPutFlag
	and #MultiFileMode
	bne @itsMultiFile
*** end 1-Nov-91 DAL
*
* Check reply record name verb
*
	ldy #NewReplyRecord.NnameVerb	;name verb	
*
* legit values for this verb are 0, 1, & 3
*
	lda [ReplyPtr],y		;verb value
	cmp #2		;not allowed in a reply record
	bne @1		;it's OK
	sec
	lda #BadVerbRRName		;bad verb
	rts		;return error
@1
*
* check reply record path verb
*
	ldy #NewReplyRecord.NpathVerb	;path verb	
*
* legit values for this verb are 0, 1, & 3
*
	lda [ReplyPtr],y		;verb value
	cmp #2		;not allowed in a reply record
	bne @2
	sec
	lda #BadVerbRRPath		;bad verb
	rts		;return error
@2
@itsMultiFile
*
* Check incomming parameters: First Prompt as all calls have a prompt
*
	lda PromptVerb		;legit values 0,1,2
;	and #$0003	;*** removed to allow error to be reported! 22-Mar-93 SS
	cmp #0003		;bad values
	bcc @3		;ok value
	lda #BadVerbPrompt
	sec
	rts
@3
*
* Name string on Put files
*
	bit FGetPutFlag		;if put, check default name string
	bpl @4
	lda OrigNameVerb 
	cmp #0003		;bad values
	bcc @4		;ok value
	lda #BadVerbName
	sec
	rts
@4
	clc
	rts



**********************************************************************
* Common code section for Get and Put File calls
**********************************************************************
Common_Patched	PROC EXPORT
	with PopUpGlobals
	with OldReplyRecord
	with NewReplyRecord
	
	IMPORT BuildVolumeList
	IMPORT VolumesOnLine
	IMPORT PollDevices
	IMPORT ServiceDiskSwitch
	IMPORT NotificationPROC
	IMPORT PutUpAlert
	import PollForInsertions	;25-Mar-91 DAL
	import PathItemRightEdge	;18-Dec-91 DAL
	import UpdateTheDialog	;19-Mar-93 SS
	
	EXPORT DoVolumeCall
	EXPORT DoDInfoCall
	EXPORT DoGetFileInfo
	EXPORT ReDoList
	EXPORT NextDrive
	EXPORT DoExit
	EXPORT CheckVolume
	EXPORT NextDrive1
	EXPORT NextDrive2
	EXPORT VolumeOK1
		
	
	ldy #06		;Move dialog to position that caller
	clc		;has specified. 
Loop0			;WhereX and WhereY are the callers inputs.
	tyx
	lda [DialogTemplatePtr],y	;add the position to the dialog information
	adc WhereX
	sta [DialogTemplatePtr],Y
	dey
	dey
	tyx
	lda [DialogTemplatePtr],Y
	adc WhereY
	sta [DialogTemplatePtr],Y
	dey
	dey
	bpl Loop0

	stz TickCount		;initialize count that keeps track of when we poll 
	stz TickCount+2		;disk switch events
	stz TypeOfSwitch		;Clear out some variables that tell us whether
	stz DeviceSwitched		;a disk switch event occurred or not.
	stz CurrentEjected

	jsr PollForInsertions	;25-Mar-91 DAL (ignore pending inserts)

	lda #1
	sta ParBlock
	
	lda #NotificationPROC
	sta procPointer
	lda #^NotificationPROC
	sta procPointer+2
	PushZPtr ParBlock		;pointer to parameter block
	PushWord #$2034		;_AddNotifyProc
	jsl ProDos_Stack_Entry	;stack based call

*** added 10-Jun-91 DAL -- if prefixes 0 and 8 are null, set prefix 0 to the boot volume
	stz chkpfxnum
	pushlong #pfxCheckParms
	pea $200A
	jsl $e100b0
	bcs prefixCheckDone	;good, it failed
	lda #8
	sta chkpfxnum
	pushlong #pfxCheckParms
	pea $200A
	jsl $e100b0
	bcs prefixCheckDone	;good, it failed

	jsr Set0and8ToBoot
	bra prefixCheckDone

pfxCheckParms	dc.w 2
chkpfxnum	dc.w 0
	dc.l tinyOutBuffer
tinyOutBuffer	dc.w 4,0

pfxSetParms	dc.w 2
	dc.w 0
	dc.l setToBootVol

pfxSet8Parms	dc.w 2
	dc.w 8	;prefix number
	dc.l setToBootVol

setToBootVol	dc.w 2
	dc.b '*:'

*** 29-Jan-29 DAL
Set0and8ToBoot	pushlong #pfxSetParms
	pea $2009	;SetPrefixGS
	jsl $e100b0
	pushlong #pfxSet8Parms
	pea $2009	;SetPrefixGS
	jsl $e100b0
	rts

prefixCheckDone
*** end of 10-Jun-91 DAL
	
;
; ----- Create the dialog ------------------------------------------------------
;
	PushLongSpace		;Space for pointer to newly created dialog.
	PushZLong DialogTemplatePtr	;Dialog to draw.
	_GetNewModalDialog	
	
	pla
	sta DialogPtr		;save pointer to Dialog
	pla
	sta DialogPtr+2

	lda FGetPutFlag		
	bit #MultiFileMode
	beq @notMulti		
	PushWord #0005		;If MultiMode dialog, make the ACCEPT
	PushZLong DialogPtr		;button the default button.
	_SetDefButton
@notMulti

*** added a content draw proc 19-Mar-93 SS
	pushlong #UpdateTheDialog+$80000000
	pushZlong DialogPtr
	_SetContentDraw
*** end 19-Mar-93 SS

*** added 18-Dec-91 DAL -- If PutFile Line Edit is outside window, set the FunkyPutFile bit
	lda <FGetPutFlag
	bmi @inPut
	brl @notPutFile		;not a PutFile

@inPut	pha
	pha
	_GetPort
	pushzlong <dialogPtr
	_SetPort
	pea DlgPortRect>>16
	pea DlgPortRect
	_GetPortRect
	_SetPort

	pushzlong <dialogPtr
	pea 10		;edit line ditem
	pea @leRect>>16
	pea @leRect
	_GetDItemBox

	ldy #@leRect>>16
	ldx #@leRect
	jsr ChkSectRect
	bne @notFunky

	lda #FunkyPutFile
	tsb <FGetPutFlag
@notFunky
*** added 22-Mar-93 SS -- continue checking for any visible edit lines, set HaveVisibleEdit bit
@chkVisEdits	pha
	pha
	pushzlong <dialogPtr
	_GetWControls	;get first ctl handle
	plx
	ply
	stx <handle
	sty <handle+2
	
@nextCtl	lda <handle+1	;if NIL, we're done.
	beq @rectChkDone
	
	ldy #2	;deref the ctl handle
	lda [<handle],y
	sta <pointer+2
	lda [<handle]
	sta <pointer
	
	pha
	pha
	pushzlong <handle
	_GetCtlRefCon	;see if it's an edit line
	plx
	pla
	and #$7fff
	cmp #$0011
	bne @notEditLine
	
	lda <pointer
	clc
	adc #8
	tax
	lda <pointer+2
	adc #0
	tay
	jsr ChkSectRect	;is it visible?
	beq @notVisible	; no, next
	lda #HaveVisibleEdit ; yes, set flag and exit
	tsb <FGetPutFlag
	bra @rectChkDone
@notVisible
@notEditLine	ldy #2
	lda [<pointer],y	;get the next ctl handle
	sta <handle+2
	lda [<pointer]
	sta <handle
	bra @nextCtl

@leRect	ds.b 8
@rectChkDone
*** end 22-Mar-93 SS
@notPutFile

	PushZLong DialogPtr		;set up for SetIText
	ldy #8		;prompt for get
	jsr PutAdjust		;proper y value
	phy		;dialog item id on stack for SetIText call
	jsr get_prompt_ptr		;pointer returned in A & X
	bcc @PromptOK
	ply		;clean up stack, get dialog item id off of stack.
	ply		;get dialogptr off stack
	ply
	brl doCancel
;
; Begin patch here to fix up resource usage
;
@PromptOK	stax pointer		; save a copy of the pointer
	PushAX		;(promptptr) on the stack for call
	_SetIText		;set up the prompt
* added comment:
* from here to @12_5, we are trying to leave the handle locked, but mark it purgeable if it's a resource.

*** rearranged slightly - PromptVerb is already ranged 0-3  22-Mar-93 SS
;	lda PromptVerb
;	and #$0003
;	tay
	ldax pointer		; recover the text pointer
;	cpy #$0000
	ldy PromptVerb
*** end 22-Mar-93 SS
	beq @12_5		;if a pointer, we don't unlock it even
;
;6/8/89 Mensch
; Insert fix here, code was causing the handle to be unlocked at this point, something that
; you should not do after the above setIText (it keeps your pointer...). Instead, if it
; is a resource simply release it and then continue it will be fixed later...

	cpy #$0001
	beq @12_5
;
; old code was...
;	pha		;space for results
;	pha
;	PushAX
;	_FindHandle
;	_HUnLock
;
; if resource simply do this...
	jsr prompt_release
	bcc @12_5		;branch out of range so cheat to get to @2
	brl doCancel
@12_5
	clc		; clear the carry cause getNamePtr screws up a
			; test if the carry is not set...
	bit FGetPutFlag		; If put, move in the default text for 
	bmi @ItsPut		; edit line item.
	brl @1
@ItsPut	lda OrigName+2		; Check if user has entered zero for the
	ora OrigName		; name ref. If it is then skip SetIText stuff.
	bne @GotAName
	brl @1
@GotAName	PushZLong DialogPtr
	PushWord #10		;always 10 as we are in put
	jsr get_name_ptr		;returns pointer in A and X
	bcc @OrigNameOK
	ply		;Got an error trying to load the origname
	ply		;resource, so clean up stack and exit.
	ply	
	brl doCancel
@OrigNameOK	
	stax pointer		;save it for later release if resource
	stax ztemp1		;hold it
	lda pointer+1
	beq @1
	stz ztemp2		;0 will indicate unused (so no change back will occure below)
	lda FgetPutFlag
	bit #OldStyleFlag		;old style uses PString
	beq @10
	ldax ztemp1		;use string as is
	bra @19
@10
*
* OrigName is a C1InputString and SetIText wants a PString so we will hack it here
*
	lda [ztemp1]		;size word
	sta ztemp2		;save a copy of original length
	and #$FF		;max size allowed in a SetIText
	xba		;into the "lower byte of a P-String
	sta [ztemp1]		;put back modified size
	clc
	ldax ztemp1
	adc #1		;bump pointer to make a pstring
	bcc @19
	inx
@19
	PushAX		;pointer to the string (OrigName)
	_SetIText		;set the default name
	
; Select the default text in the edit line item
;
	PushLong DialogPtr
	PushWord #10		;edit item ID
	PushWord #0		;start of selection
	PushWord #255		;end of selection (just use max length)
	_SelectIText

	jsr ReverseSelection	;added 26-Nov-90 DAL

	lda ztemp2
	beq @20		;if 0, we didn't change anything
	sta [ztemp1]		;put back original length
@20
	ldax pointer		; recover the text pointer
	ldy OrigNameVerb
	beq @1		;if a pointer, we don't unlock it even
	pha		;space for results
	pha
	PushAX
	_FindHandle
	_HUnLock
	jsr name_release
	bcs @2
@1
	
*
* We need to build a list of file names.
*
@again
	_WaitCursor
	jsl VolumesOnLine		;Calculate how many volumes we have on-line. (NUMVOLUMES contains
;			;the number of volumes on-line) 
	jsr BuildList		;allocate memory and build a list (sorted)
	php		;save status of carry
	pha	;29-Jan-92 DAL
	_InitCursor
	pla	;29-Jan-92 DAL
	plp
	bcc @3		;If we couldn't build list then it means
;			;we couldn't find any volumes.

*** added 29-Jan-92 DAL -- Or, we found a damaged directory.  Ouch.
	ldx #0
	phx	;space for result
	phx	;flags
	phx
	phx	;substitution string
	pha	;error number
	_ErrorWindow
	plx
*** now set prefix 0 to the boot disk, so hopefully we won't get stuck
*** on the same damaged directory next time
	jsr Set0and8ToBoot
	bra @again
*** end 29-Jan-92

@2	brl DoCancel		;return with error (oh no)
@3	jsr DoDinfoCall
	jsr DoVolumeCall		;init variables and strings needed.
*
* now init the list
*
	PushLongSpace		;space for results
	PushZLong DialogPtr		;Pointer to which dialog it should appear
	PushZLong ListRecPtr	;pointer to list record

*** begin 10-Jun-91 DAL -- make the list one pixel higher for put to avoid
*** having the focus frame collide with the prompt
	lda fGetPutFlag
	bpl @notPut1
*** added 18-Dec-91 DAL -- see if Edit Line is outside the window.  If so, don't fudge list position.
	and #FunkyPutFile
	bne @noFudge
*** end 18-Dec-91
	ldy #4
	lda [<listRecPtr],y
	dec a
	sta [<listRecPtr],y
	lda [<listRecPtr]
	dec a
	sta [<listRecPtr]
@noFudge
@notPut1
*** end 10-Jun-91 DAL

	_CreateList		;ok, do it!

*** not needed 22-Mar-93 SS
;*** begin 10-Jun-91 DAL -- restore the list record if we messed with it
;	bit fGetPutFlag
;	bpl @notPut2
;	ldy #4
;	lda [<listRecPtr],y
;	inc a
;	sta [<listRecPtr],y
;	lda [<listRecPtr]
;	inc a
;	sta [<listRecPtr]
;@notPut2
;*** end 10-Jun-91 DAL

	pla
	sta ListControl1
	sta ffListHandle	;added 1-Apr-91 DAL
	pla
	sta ListControl1+2
	sta ffListHandle+2	;added 1-Apr-91 DAL

*
* need handle to scroll bar items
*
	PushZLong ListControl1	;List Control Handle
	jsr DerefandLock		;returns a pointer to list control record
	sta pointer
	stx pointer+2		;need a zero page loc for indirect
	ldy #octlflag
	lda [pointer],y 
	ora #test_mem_never	;check mem_never flag in List Manager
	sta [pointer],y
	ldy #octlListBar		;offset to list control's scroll bar control
	lda [pointer],y 	
	sta ScrollControl1
	iny
	iny
	lda [pointer],y
	sta ScrollControl1+2
*
* list manager requires zeroing the RefCons (sheesh!!!)
*
	jsr SaveAndZeroRefCons	; no prob, the filter proc will set them back

*** add a dummy off-screen edit item to sense hits in the list 19-Mar-93 SS
	lda FGetPutFlag	;skip if not in Put
	bpl LoopModal
	
	pushZLong DialogPtr
	pushlong #FakeItemTemplate
	_GetNewDItem
	bra LoopModal
	
FakeItemTemplate
FakeItemID	dc.w 8	;item #	
	dc.w 0,0,0,0	;drect
	dc.w EditLine+ItemDisable ;type
	dc.l 0	;Item descriptor
	dc.w 0	;size of text max
	dc.w 0	;Bit flags
	dc.l 0	;color table
*** end 19-Mar-93 SS
	
**********************************************************************
	
LoopModal
	clc		; no error going in	
*
* jumps to LoopModalReturn from the below routines may set carry indicarting an error.
* This error is most likely a memory manager error. We need to abort on an error.
*
LoopModalReturn
	bcc @1		;carry is error status
	brl DoCancel		;close dialog and return
@1
	jsr SetClose		;check on close button
	
	PushWord #0		; result
***	PushLong #GetFilter+$80000000
	PushLong #GetFilter+$C0000000	;set bit 30 for I-Beams (5-Mar-91 DAL)
	_ModalDialog
	pla		;find out what user has clicked on
	sta ItemHit		;save incase we do a FilterProc
;
; If there are no volumes on-line and we're not in the mode where we're displaying the volumes online then
; it means that an alert dialog was already put up to prompt the user to insert a disk, and they declined
; to insert a disk. Therefore we just cancel.
;
; If we are in the displaying volumes mode and someone ejects a disk so that there are no more volumes online
; then we need to put up the alert dialog.
;
	lda NumVolumes		;Check if there are any volumes currently on-line.
	bne itsOK		
	brl doCancel
itsOK

	lda FGetPutFlag
	and #PatchedFlag		;see if a patched dialog
	beq NotCustom		;patched dialog
	jsr DoHook		;let them handle their own items
NotCustom
	lda FRedraw		;demand for a new list
	beq @1		;nope!
	stz FRedraw
	brl ListChange		;redraw the list
@1
	lda ItemHit
	bne @somethingHit
	brl LoopModal		;nothing happened or FilterProc took care of it!
@somethingHit	cmp #(ModalTablePut-ModalTableGet)/2	;skip if not one of ours
	bcc @weTakeIt
	brl LoopModal		;skip it!
@weTakeIt	asl a
	tax
	bit FGetPutFlag
	bmi PutTable
	jmp (ModalTableGet,x)	; execute the appropriate item
PutTable	jmp (ModalTablePut,x)

ModalTableGet	dc.w 0
	dc.w DoOpen
	dc.w DoClose
	dc.w DoVolume
	dc.w DoCancel
	dc.w DoAccept		; ACCEPT button or scroll place holder
	dc.w DoPath
	dc.w Nothing		;files place holder
	dc.w Nothing		;Prompt string
	dc.w Nothing		;so both tables are the same size
	dc.w Nothing		;so both tables are the same size
	dc.w Nothing		;so both tables are the same size
	dc.w Nothing		;so both tables are the same size

ModalTablePut	dc.w 0
	dc.w DoSave
	dc.w DoOpen
	dc.w DoClose
	dc.w DoVolume
	dc.w DoCancel
	dc.w Nothing		;scroll place holder never happens
	dc.w DoPath
	dc.w Nothing		;files box
	dc.w Nothing		;prompt string
	dc.w Nothing		;edit text string
	dc.w Nothing		;stat text string
	dc.w DoCreate
	dc.w Nothing

**********************************************************************
ChkSectRect	pha
	phy
	phx
	pea DlgPortRect>>16
	pea DlgPortRect
	pea @destRect>>16
	pea @destRect	;dest rect (who cares)
	_SectRect
	pla
	rts
	
@destRect	ds.b 8
DlgPortRect	ds.b 8

**********************************************************************
ReverseSelection
***
*** added 26-Nov-90 DAL
*** AppleWorks GS 1.1 has a workaround for the 5.0..5.0.2 screwiness where the default text
*** was not selected (the insertion point followed the text, instead).  Their solution was to
*** post a fake Apple-Shift-LeftArrow to extend the selection all the way to the left.
*** Unfortunately, in 5.0.3 that *kills* the selection and leaves you with an insertion point
*** at the *left* of the text.
***
*** To make their fix work again in 6.0 (without breaking anything else), I will check the
*** selection--if it is a left-to-right selection, I will change it to a right-to-left
*** selection (leSelStart >= leSelEnd).
***
	pha
	pha		;space for GetCtlTitle
	pha
	pha		;space for edit line control handle
	pushlong DialogPtr
	pea 10		;edit item ID
	_GetControlDItem
	_GetCtlTitle		;get the line edit record
	phd
	tsc
	tcd
* deref line edit record handle into line edit record pointer
	ldy #2
	lda [3],y
	tax
	lda [3]
	sta 3
	stx 5
* check start vs. end of selection
	ldy #$20	;beginning of selection
	lda [3],y
	iny
	iny	;end of selection
	cmp [3],y
	bcs @okay	;it's already a right-to-left selection
* reverse beginning/end
	tax	;keep beginning in X for a sec
	lda [3],y	;A = end of selection
	dey
	dey
	sta [3],y	;store old end as new beginning
	iny
	iny
	txa
	sta [3],y	;store old beginning as new end

@okay	pld
	pla
	pla	
	rts
*** end of 26-Nov-90 DAL


**********************************************************************
*
* Handler to see if an Appletalk volume has changed.
*
**********************************************************************
CheckVolume	phd		;save current d	
	PushLongSpace		;results
	PushWord #0		;system tool
	PushWord #$0017		;Standard File tool set
	_GetWap
	pld		;set DP to old direct page for this routine
	pla		;toss upper			

	lda FileSysID
	cmp #AppleShareID
	bne exit		;only care about apple share now.
	PushLongSpace
	_GetTick
	PullAX		;results
	and #$01FF		;8 seconds
	bne exit		;not time
	jsr DoGetFileInfo		;get the file info into the ParBlock
*
* see if the data changed (or was never there!)
*
	ldx #6		;move 4 words
	ldy #FileModInfo+6		;destination
@4
	lda ParmodTD_GFI,x		;mod date and time in a holding location.
	cmp [DInfoPtr],y		;see if it changed
	bne change		;got a change
	dey
	dey
	dex
	dex
	bpl @4
	bra exit		;leave
change
	lda ParmodTD_GFI,x		;move mod date and time into a holding location.
	sta [DInfoPtr],y		;copy over the change and the rest
	dey
	dey
	dex
	dex
	bpl change		

	sec
	ror ztemp3
	jsr ReDoList		;force a redraw
exit
	pld
	rts
	

**********************************************************************
*
* Dialog Hook Proc. call
*
**********************************************************************
DoHook
	lda DilgHook+1		;cheat: not likely both will be 0 if neither word 0
	beq ReturnHook		;skip if empty
	PushLong DialogPtr
	PushZPtr ItemHit
	lda #(ReturnHook-1)>>8
	pha
	lda #ReturnHook-1
	and #$00FF
	xba
	ora DilgHook+2
	pha
	lda DilgHook
	dec a
	pha
	rtl
ReturnHook
	rts


DoCreate
**********************************************************************
*
* Create a folder with the passed name
*
**********************************************************************
	lda writeProtect		;if write protected, button no good
	bnel LoopModal

*** 2-Apr-91 DAL -- call JudgeTheName
	lda #2	;tell JudgeName it's a folder name
	jsr JudgeTheName
	bcc @ok
	brl LoopModal
@ok
*** end of 2-Apr-91 DAL

	jsr GetTextItem		;leaves pointer to text in 'pointer2' & NamePtr	
	lda [pointer2]		; the length is here.
	and #$00FF
	beql LoopModal		; skip this if nothing in the string
* the above check is not really needed as should never be here if the length was 0 as the button is disabled
* size of new string in A
*

	inc a
	inc a		;+2 for 8 and :
	ldy #$0002		;put it into the length WORD of NamePtr
	sta [NamePtr],y
	iny
	iny
	shortm
	lda #'8'
	sta [NamePtr],y
	iny
	lda Seperator		;add 8: or 8/ or whatever
	sta [NamePtr],y
	longm
	lda NamePtr
	clc
	adc #$0002		;a pointer to a GS/OS string now.
	sta ParName_Create
	lda NamePtr+2
	adc #0
	sta ParName_Create+2	;path name string pointer
	lda #$0005		;5 parmeters
	sta ParBlock		;uses $0F bytes in Parblock
	lda #$00C3
	sta ParAccess_Create	;normal access type
	lda #$000F		;folder
	sta ParType_Create
	stzl ParAux_Create		;aux type 0
	lda #$000D
	sta ParStorage_Create
		
	PushZPtr ParBlock		;pointer to parameter block
	PushWord #$2001		;_Create_C1
	jsl ProDos_Stack_Entry	;stack based call
	bcc CreateOK
	jsr GetErrorMessage	;puts reason string address in 'pointer'

	PushWordSpace		;results for alert window
	PushWord #0		;indicate C string
	PushZLong pointer		;substitution string address
	PushWord #$80		;error creating folder....
	_ErrorWindow
	pla		;don't care what comes back
	
	brl LoopModal		;for now, skip it!
	
CreateOK
;
; Once the folder has been created drop into this directory.

	ldy #2		;Pointer2 pts to the name of the folder.
	lda [NamePtr],y		;Unfortunately this has been munged above 
	and #$00FF		;in the create call.
	sec
	sbc #2		;buffer word -> length word -> 8: -> string
	ldy #4		;we need just a length word w/o the 8: and
	xba		;then the string itself
	sta [NamePtr],y		
	ldax NamePtr
	clc
	adc #5
	bcc @nocarry
	inx
@nocarry
	jsr AddToPrefix		;a & x contain the name of folder created
	sec
	ror topflg
	jsr SetThePrefix
	
	brl ListChange

GetErrorMessage
*
* A = error number
* scan a table of error numbers and get an error message (returned in pointer)
*
	ldx #genErr>>16
	stx pointer+2
	ldx #genErr		;default error message
	stx pointer
	ldx #-6
errorloop
	inx
	inx
	inx
	inx
	inx
	inx
	cpx #(endValue-valueTable)	;see if done
	bcs @done
	cmp valueTable,x		;this error?
	bne errorloop
*
* error found, get the error value to place in the string
*
	inx
	inx
	lda valueTable,x		;get the error number
	sta pointer
	inx
	inx
	lda valueTable,x
	sta pointer+2
@done	rts


Nothing
*
* Common return point with no error and empty list item handler
*
	brl LoopModal

**********************************************************************
*
* Save pressed. Get the text in the text item from the dialog and
* pass it back to the caller. "Is the caller there?" -PD
*
**********************************************************************
DoSave
	lda writeProtect		;if write protected, button no good
	bne Nothing

*** 2-Apr-91 DAL -- call JudgeTheName
	lda #3	;tell JudgeName it's a file name
	jsr JudgeTheName
	bcs Nothing
*** end of 2-Apr-91 DAL

	jsr GetTextItem		;leaves pointer to text string in 'pointer2'
	brl Return_File		;return the name

**********************************************************************
*
* an open eh? Perhaps an accept?  Well if it's a file we will just return it.
* if it's a folder, I guess we get to start all over again!
* If it's multiGet, we return the data record desired in the handle as needed.
*
**********************************************************************
DoAccept
	lda #$FFFF
	sta ztemp2		;indicate Accept
	bra ContinueOpen

DoOpen
	stz ztemp2		;indicate Open
ContinueOpen
	stz ztemp1
	jsr GetSelected		;get first selected (count items)
	beq Nothing		;forget this if nothing selected
	tay		;Remember a & x still contain the ptr to the last selected
	lda FGetPutFlag		;list member found. We're about to trash a so save it in y for now.
	bit #InVolumeList
	bne @GotVolumeList
	
	tya
	bra @1
@GotVolumeList
	ldy #2
	lda [ztemp3],y
	tax
	lda [ztemp3]
	sta ztemp3
	stx ztemp3+2
	lda [ztemp3]
	and #$00FF
	clc
	adc #3
	tay
	lda [ztemp3],y
	and #$00FF
	sta curDev

	jsr DoDInfoCall
	bcs @error
	jsr DoVolumeCall
	bcs @error
	jsr VolumeOK1
	bra ListChange
@error	pha		; space for result
	PushWord #0
	PushLong #0
	pha		; push error code
	_ErrorWindow		; put up error message for illegal pathname
	pla		; toss return value
	brl LoopModal		; go back to _modaldialog

@1
*
* A&X contain currently selected item
*
	inc ztemp1		;count item
	jsr GetNextSelected		;see if any more items
	bne @1		;keep counting
*
* ztemp1 has number of items selected. ztemp2 is flag indicating button hit.
*
	lda openButStat		;if called by item hit and NOT button hit
	cmp #0002		;need to light button
	bne @no
	dec a		;a = 1
	jsr CommonOpen		;a 1 to this routine will hilight button!
@no
	
	jsr GetSelected		;only one item, go get it again
	PushAX
	jsr DerefHandle		;deref handle
	stax pointer2		;pointer to the string
	lda ztemp2		;return via accept?
	beq @notReturn1
	brl Return_file		;allows a folder to be returned
@notReturn1	lda ztemp1		;if only one item, check for folder
	dec a		;will be 0 if was only 1
	beq @notReturn2
	brl Return_file		;just continue, can't be a folder...it's multi
@notReturn2	lda [pointer2]		;size of string
	and #$00FF		;offset
	tay
	iny	
	lda [pointer2],y		;this member's file type
	cmp #$000F		;Folder?
	bne Return_File		;if a file, return it!
	jsr DirectoryDown		;step into the directory
	bcs ListChange		;if carry clear, nothing picked
	brl Nothing
*
* if here, the list changed and we need to re-build and re-display the list
*
* This will also be an entry point to re-build the list at any time.
*
ListChange
	stz ztemp3		;flag to indicate re-draw on error
	jsr ReDoList
	brl LoopModalReturn
**********************************************************************
* Re-Do the list. Called above and inside re-scan appleshare
**********************************************************************
ReDoList
	_WaitCursor
	jsr BuildList		;re-build the list
	php
	pha	;added 28-Mar-91 DAL
	_InitCursor
	pla	;added 28-Mar-91 DAL
	plp
	bcc @1
	cmp #$004E		;no access error?
	beq @AccessError
	sec
	bra PassBackError
@AccessError
	bit ztemp3
	bmi ReDoList		;if from re-scan, try again
	clc		;no error if access
	bra PassBackError		;send back error
@1	
	jsr SetClose		;incase the close button changed
	
	PushZLong DialogPtr
	_SetPort		;restore port!
	
	lda FGetPutFlag		;if not multi then the selection bits
	and #MultiFileMode		;are still setup correctly
	beq NoMulti
	
	PushZLong ListControl1	;List Control Handle
	jsr DerefandLock		;returns a pointer to list control record
	sta pointer
	stx pointer+2		;need a zero page loc for indirect
	ldy #octlflag
	lda [pointer],y 
	and #$FFFD		;reset the list selection bits for multiple selections, 
	sta [pointer],y		;just in case they were changed by the "Volumes" list.

NoMulti	PushZLong selectedptr	;selected item
	PushZLong ListRecPtr	;pointer to list record
	_NewList		;ok, do it!
	
	jsr DoPathDraw		;redraw the path too
	clc		;no error
PassBackError
	rts

**********************************************************************
*
* Return_File: Will set the Parameters and return the select file.
* 'pointer2' points to the name Pstring. (Entry from DoSave or DoOpen).
*
**********************************************************************
Return_File
	lda FGetPutFlag
	bit #MultiFIleMode		;multi file return
	beq NotMulti
	brl FinishMulti		;we know how many now.
NotMulti
	ldy #$0002
	lda [PrefixPtr],y		;length of original string (with seperator)
	sta ztemp1		;save original path length for restore.
	ldax pointer2		;name of file pointed to by this string
	jsr AddToPrefix		;PrefixPtr contains a string of entite path
	ldy #$0002		;add to prefix puts a seperator on the end
	lda [PrefixPtr],y		;length of original string (with seperator)
	dec a		;forget the seperator
	sta [PrefixPtr],y		;new length without seperator
*
* CAUTION: Could the string be too long after this operation?
*
* PrefixPtr now contains a full path name INCLUDING file (the prefix has NOT been updated).
* Get the file info.
*
	lda #4
	sta parBlock		;need to get the file info ($0D bytes)
	ldax PrefixPtr
	clc
	adc #0002
	bcc @01
	inx
@01
	stax ParPath_GFI
	PushZPtr ParBlock		;pointer to parameter block
	PushWord #$2006		;_GetFileInfo_C1
	jsl ProDos_Stack_Entry	;stack based call
	
	bcc @02		;check for errors
	cmp #$46		;file not found possible
	beq @02		;could be file not found as we expect!
	bra @PutUpError
@02
*
* on save, check file status
*
	bit FGetPutFlag		;if Get, just continue
	bpl Continue_Return
	bcc @10		;No error, something with that name is there!
	cmp #$46		;no file with this name?
	beq Continue_Return
@PutUpError	tay		;save error
	PushWordSpace
	PushWord #0
	PushLong #0
	phy
	_ErrorWindow		; put up error message for illegal pathname
	pla		; toss return value
@9
	ldy #$0002
	lda ztemp1		;restore prefix
	sta [PrefixPtr],y		;length of original string (with seperator)
	
	brl LoopModal		;let them try again!
@10
* set up for alert window
	PushWordSpace		;results for alert window
	PushWord #0		;indicate C string
	PushLong #0		;no substitution array
	lda ParFileType_GFI	;see if a folder
	cmp #$000F
	bne @15		;it's a file
	PushWord #$84		;can't replace a folder with a file.
	bra @20
@15
	PushWord #$85		;Already Exists: Replace?
@20
	_InitCursor		;added 8-May-91 DAL
	_ErrorWindow
	pla
	cmp #1		;will get a 2 if pushed Replace!
	bne @9		;leave now!
Continue_Return
*
* return with all needed information
*
	jsr CommonReply		;start reply record for both calls.
	bcs FinishOld		;Carry returned 1 for old calls

*-----------------------------------------------------------
* complete new calls
*
	jsr FinishNew
	brl DoExit		;get out now
*-----------------------------------------------------------
*
* Build the name and path for an old call. Return P-String. Pointer2 points to item name Pstring.
*
FinishOld
	ldax ReplyPtr
	clc
	adc #Oname		;get a pointer to the destination
	bcc @10
	inx
@10
	stax pointer		;output pointer into reply record
*
* copy name to output ReplyPtr
*
	ldy #0015		;move length + 15 characters
	shortm		;into short mode
@20
	lda [pointer2],y
	cmp #'/'
	bne @21
	dec ztemp1		;flag says we have a / in name
@21
	sta [pointer],y
	dey
	bne @20		;all but byte containing length
	lda [pointer2]
	and #$0F		;limit length to 15 characters
	sta [pointer]
	longm
*
* copy Prefix & name to output ReplyPtr. Convert to P string.
*
	ldax ReplyPtr
	clc
	adc #OPath		;get a pointer to the destination
	bcc @30
	inx
@30
	stax pointer		;destination pointer into reply record
	
	ldax PrefixPtr
	clc
	adc #$0003		;first byte of string - 1		
	bcc @35		;(-1 is WORD length compensation)
	inx
@35
	stax pointer2		;source pointer
	
	ldy #0002		;length of source
	lda [PrefixPtr],y		;get length
	and #$7F		;128 characters max
	tay		;length
	pha		;save a copy of the length
@40
*
* need to prescan the name for '/' characters
*
	lda [pointer2]
	and #$FF00		;if already '/'. skip this check
	cmp #$2F00		;'/' in high byte
	beq @41		;just do it if already /
	stz ztemp1		;scan flag < 0 if '/' exists in name.

	phy		;save the y
@42
	lda [pointer2],y		;prescan for '/''s
	and #$00FF		;if already '/'. skip this check
	cmp #'/'
	bne @43
	dec ztemp1
@43
	dey
	bne @42
@41
	ply
@45
	shortm
	lda [pointer2],y
	cmp #':'		;colons become '/'
	bne @44		;ok if not a ':'
	bit ztemp1
	bmi @44		if '/' in name, skip translation
	lda #'/'
@44	
	sta [pointer],y
	dey
	bne @45
	ply		;recall length
	tya		;recall length
	sta [pointer]		;save length in Pstring	
	longm
	
	clc		;no error
	brl DoExit		;get out now


**********************************************************************
*
* Finsih Multi select by building the desired data record needed.
* ztemp1 contain number of items selected, known not to be 0.
* This routine will allocate a handle, lock it and grow it as needed
* to return the file data record.
*
**********************************************************************
FinishMulti
	lda #2		;beginning handle size (for size only)
	jsr GetSmallHandle
	bcsl Main_exit		;damn, just leave.
	stax handle
	PushAx		;push for the derefandlock
	jsr DerefandLock		;returns a pointer to memory
	stax pointer		;use temp pointer
	lda #0002		;length of this buffer (-4 to CYA)
	sta [pointer]
	
	lda ztemp1		;number of items returned
	sta [ReplyPtr]
	ldy #0002
	sty ztemp2		;output buffer index
	
	PushLong #0		;start with first item
multiloop
	PullAX		;next item
	jsr GetNextSelected
	beql MultiDone		;got them all
	PushAX		;save item that came back for loop
	PushAX		;push member for deref call (too)
	jsr DerefHandle		;deref member to a string pointer
	stax pointer2		;pointer to the string
*
* Need a full path name so I can get the file info with a system call
*
	ldy #$0002		;add to prefix puts a seperator on the end
	lda [PrefixPtr],y		;length of original string (with seperator)
	pha		;save original path length for restore.
	ldax pointer2		;name of file pointed to by this string
	jsr AddToPrefix		;PrefixPtr contains a string of entite path
	ldy #$0002		;add to prefix puts a seperator on the end
	lda [PrefixPtr],y		;length of original string (with seperator)
	dec a		;forget the seperator
	sta [PrefixPtr],y		;new length without seperator
*
* CAUTION: Could the string be too long after this operation?
*
* PrefixPtr now contains a full path name INCLUDING file (the prefix has NOT been updated).
* Get the file info.
*
	lda #4
	sta parBlock		;need to get the file info ($0D Bytes)
	ldax PrefixPtr
	clc
	adc #0002
	bcc @01
	inx
@01
	stax ParPath_GFI
	PushZPtr ParBlock		;pointer to parameter block
	PushWord #$2006		;_GetFileInfo_C1
	jsl ProDos_Stack_Entry	;stack based call
*
* now that we have the file information put the prefix back!
*
	pla
	ldy #0002
	sta [PrefixPtr],y		;restore prefix
*
* re-size the handle to include this next entry
*
	ldy #4
	lda [handle],y
	and #$7FFF		;drop lock bit
	sta [handle],y		;unlocked
	ldx #0000		;max handle size here 65k
	lda [pointer2]		;size of name string
	and #$00FF		;256 character max
	clc
	adc [pointer]		;current size 
	adc #9		;space for prefix, type aux type, string length, string prefix
	pha		;save a copy of the "real size
	PushAX		;new size
	PushZLong handle
	_SetHandleSize		;resize handle
*	bcsl MainExit
	PushZLong handle
	jsr DerefandLock		;relock handle
	stax pointer
	pla		;was the size
	sta [pointer]		;current size

	ldy ztemp2		;next space
	lda ParFileType_GFI
	sta [pointer],y		;save file type
	iny
	iny
	ldax ParAuxType_GFI
	sta [pointer],y
	iny
	iny
	txa
	sta [pointer],y		;file auxtype
	iny
	iny		;next location
	lda [pointer2]		;length of string
	and #$00FF		;256 characters max
	tax		;save length in x
	clc
	adc #02		;account for 8:
	sta [pointer],y		;string length
	iny
	lda #':8'		;prefix number (it swaps during the store)
	sta [pointer],y
	iny
	iny		;next place does not really exists yet.
@2
	longm
	incl pointer2		;next character
	shortm		;length of string in x
	lda [pointer2]
	sta [pointer],y
	iny
	dex
	bne @2
	longm
	sty ztemp2
	brl multiloop
MultiDone
	ldy #0002		;place for handle
	ldax handle		;return the handle
	sta [ReplyPtr],y
	iny
	iny
	txa
	sta [ReplyPtr],y
	
	clc		;no error
	brl DoExit		;get out now

**********************************************************************
*
* Get text from text edit item in PUT dialog. Puts text in memory area
* 'NamePtr' and returns a pointer to that text in 'pointer2'
*
**********************************************************************
GetTextItem	
	PushZLong DialogPtr		; the dialog pointer
	PushWord #0010		; item 10 = edit box
	ldax NamePtr
	clc		; put the string where the : will go (over the size)
	adc #$0005		; you have to see the picture to understand
	bcc @1
	inx
@1
	PushAX		; temp location for file name
	stax pointer2		; also into a temp to use later
	_GetIText		; get the string
	rts


**********************************************************************
*
* Set up the common part of the reply record for both old an new calls.
* Will fille in the Boolean TRUE value, the File type and Aux type entries.
*
* On Exit: Y pointing to the next available slot in the reply record
* (filename for old calls, nameVerb for new calls) and CARRY set for OLD calls.
*
* Uses; A,X,Y
*
**********************************************************************
CommonReply
	lda FGetPutFlag		;set carry for call type
	lsr a		;carry = 0 for new call
	ldy #Ngood		;index into reply record
	lda #TRUE
	sta [ReplyPtr],y		;all calls same location in record
	iny
	iny		;point to FileType
	bit FGetPutFlag		;don't change these for put
	bmi @2		;skip file type and aux type for put.
	lda ParFileType_GFI
	sta [ReplyPtr],y
	iny
	iny		;point to AuxType
	ldax ParAuxType_GFI
	sta [ReplyPtr],y		;low byte always
	bcs @1		;carry set on entry
	txa
	iny
	iny
	sta [ReplyPtr],y
	bra @1		;and exit
@2
*
* Adjust y for items not changed
*
	iny
	iny		;point to AuxType
	iny
	iny		;point to AuxType 2nd
@1
	iny		;point to next record
	iny
	rts
	
**********************************************************************
*
* FinishNew: called to create the output record and fill it with the
* necessary information.
*
* INPUT: from various records and d-page variables.
*      It is assumed that ztemp1 contains the original length of
*      the path in PrefixPtr.
*
* ASSUMPTION: Reply record verbs have already been checked for bad values.
*
* EXIT: If an error occured, CurError contains the error value.
*       Uses d-page temps: ztemp2, pointer
*       Carry set if errors. Clear otherwise.
*
**********************************************************************
FinishNew
*
* First the name. Pointer2 is a pointer to a PString of less than 256 characters.
*
	ldax [ReplyPtr],NewReplyRecord.NnameRef	;name reference value
	stax pointer		;destination
	ldy #NewReplyRecord.NnameVerb	;name verb	
*
* legit values for this verb are 0, 1, & 3
*
	lda [ReplyPtr],y		;verb value
	beq @5		;it's a pointer, use it as is
	dec a		;1?
	bne @2		;ne = new handle please
*
* passed a handle...size it accordingly
*
	lda [pointer2]		;size of name string
	and #$00FF		;byte of size
	clc
	adc #4		;buffer size and string size words
	pha		;save extra copy
	ldx #0		;msb of size = 0
	PushAX		;push size of handle (long)
	PushZLong pointer		;the handle
	_SetHandleSize
*
* This could return an error but I will skip it because NameCopy will set the error for me if
* it can't fit.
*
	php		;save carry
	PushZLong pointer		;handle for the deref
	jsr DerefHandle
	stax pointer		;save destination over copy of handle
	plp
	pla
	bcs @5
	sta [pointer]
	bra @5
@2
*
* If here, only original values left are 2 and 3 (now 1 and 2), and 2 was eliminated so 
* they want a new handle. Go make one the right size.
*
	lda [pointer2]		;size of string
	and #$00FF		;byte of size
	clc
	adc #4		;buffer size and string size words
	pha		;save size
	jsr GetZeroHandle
	PushAX		;deref it to use it!
	stax [ReplyPtr],NewReplyRecord.NnameRef	;give it back to them here
	jsr DerefHandle
	stax pointer		;save pointer
	pla		;size back
	sta [pointer]		;save buffer size
@5
*
* now copy the name from pointer2 to pointer. Make sure there is enough room too
*
	lda [pointer2]		;source
	and #$00FF		;source length
	tay		;guess to # of characters to copy
	jsr Name_copy		;copy the string
	beq Path_return		;everything is ok!
	lda #BadVerbRRName		;name buffer too small
	sta CurError		;save error
Path_return
*
* Now the path return. PrefixPtr is a pointer to a C1OutputString much like what
* I need here so for the most part this will be just a copy. But first restore PrefixPtr
* to its original length.
*
	ldax [ReplyPtr],NewReplyRecord.NpathRef	;path reference value
	stax pointer		;destination
	ldy #NewReplyRecord.NpathVerb	;path verb	
*
* legit values for this verb are 0, 1, & 3
*
	lda [ReplyPtr],y		;verb value
	beq @5		;it's a pointer, use it as is
	dec a		;1?
	bne @2
	
	
*
* passed a handle...size it accordingly
*
	ldy #0002
	lda [PrefixPtr],y
	clc
	adc #4		;buffer size and string size words
	pha		;save extra copy
	ldx #0		;msb of size = 0
	PushAX		;push size of handle (long)
	PushZLong pointer		;the handle
	_SetHandleSize
	php
*
* This could return an error but I will skip it because NameCopy will set the error for me if
* it can't fit.
*
	PushZLong pointer		;handle for the deref
	jsr DerefHandle
	stax pointer		;save destination over copy of handle
	plp
	pla
	bcs @5		;if handle error, don't set size!
	sta [pointer]
	bra @5
@2
*
* if here, only original values left are 2 and 3 (now 1 and 2) and original 2 was eliminated so
* they want a new handle. Go make one the right size
*
	ldy #0002		;just how long is needed.
	lda [PrefixPtr],y		;size of path
	clc
	adc #4		;buffer size and string size words
	pha		;save size
	jsr GetZeroHandle
	PushAX		;deref it to use it!
	stax [ReplyPtr],NewReplyRecord.NpathRef	;send it back to them here
	jsr DerefHandle
	stax pointer		;save pointer
	pla
	
	sta [pointer]		;save buffer size
@5
*
* now copy the path from PrefixPtr to pointer. Make sure there is enough room too.
*
	ldy #0002
	lda [PrefixPtr],y		;source length
	pha		;guess to # of characters to copy
	sta [pointer],y		;save length
	lda [pointer]		;destination buffer size
	sec
	sbc #0004		;max string that will fit
	cmp 1,s		;enough room?
	bcs Pcopy_ok		;buffer is plenty large, do it!
	ply		;toss away what we wanted to copy
	pha		;what we can copy
	lda #BadVerbRRPath		;path buffer too small
	sta CurError		;save error
Pcopy_ok
	ply		;bytes to copy
	iny
	iny
	iny		;account for the 4 bytes at front and 0 math.
	shortm
@3
	lda [PrefixPtr],y
	sta [pointer],y
	dey
	cpy #0003
	bne @3
	longm
NewReturnExit
	clc		;guess no error
	lda CurError
	beq @1
	sec
@1
	rts

**********************************************************************
* special routine to copy the PString pointed to by [pointer2] to
* the C1OutputString pointed to by [pointer], count passed in y.
* Will check to see that the destination is large enough and if not will
* only copy the amount that will fit.
*
* EXIT: a = 0, no error. Else string would not fit.
**********************************************************************
Name_copy
	stz ztemp2		;no error
	phy		;save desired length
	tya
	ldy #0002
	sta [pointer],y		;save length
	lda [pointer]		;destination buffer size
	sec
	sbc #0004		;max string that will fit
	cmp 1,s
	bcs copy_ok		;buffer is plenty large, do it!
	ply		;toss away what we wanted to copy
	pha		;what we can copy
	dec ztemp2		;error flag
copy_ok
	ply		;bytes to copy
	ldax pointer2
	clc
	adc #0001
	bcc @1
	inx
@1
	stax pointer2		;point to actual text
	
	ldax pointer
	clc
	adc #0004
	bcc @2
	inx
@2
	stax pointer
	shortm
	dey		;0 count correction
	beq @4		;only 1 character, just do it.
@3
	lda [pointer2],y
	sta [pointer],y
	dey
	bne @3
@4
	lda [pointer2],y		;move last byte also
	sta [pointer],y
	longm
	lda ztemp2
	rts



DoPath
**********************************************************************
*
* OLD DESCRIPTION (5.0.x)
* -----------------------
* This is like folder close.
* If already at the root we either fall off the edge of the world or do
* nothing. Should this be random?
*
* This routine falls through to DoClose
*
**********************************************************************
**********************************************************************
*
* 6.0 DESCRIPTION
*
* The "path item" is now a pop-up, showing the path from here all
* the way up to the volume name, and beyond that to the "Desktop"
* item (choosing Desktop is like clicking the Volumes button--it
* shows a list of online volumes).
*
* If we're already at the volume list, clicking here does nothing.
*
* Clicking in the path item rectangle, but to the right of the text
* we've drawn, does nothing.
*
**********************************************************************

	txa
	lsr a
	sta pathDItemNum		;14-Jan-91 DAL

*** 18-Dec-91 DAL -- This check was obsolete and causing trouble.
;;;	lda topflg		; don't do this if item disabled
;;;	bne @notAtRoot
	
	lda FGetPutFlag
	and #InVolumeList
	beq @notAtVolList
@ignoreClick	brl LoopModal
@notAtVolList
;;;@notAtRoot

*** Do the cool new pop-up menu for the path item (14-Jan-91 DAL)

	pha
	pha
	_FrontWindow
	_SetPort	;moved from below, 18-Dec-91 DAL

*** added 18-Dec-91 DAL -- See if they clicked too far to the right
	pha
	pha	;result buffer for GetMouse
	tsc
	pea 0
	inc a
	pha	;address of the 4-byte result buffer we pushed
	_GetMouse
	ply	;Y coordinate
	pla	;X coordinate
	cmp PathItemRightEdge
	bcs @ignoreClick
*** end 18-Dec-91

	pea 0
	_MenuStatus
	pla
	bne @1
	brl @noMenuMgr
@1
	jsr BuildPathMenu

	pha
	pha
	_FrontWindow
	lda pathDItemNum
	pha
	pushlong #thePathItemBox
	_GetDItemBox
	pushlong #thePathItemBox
	_LocalToGlobal

	pha
	pha
	_GetPort		;preserve the old port
	pha
	pha
	_GetMenuMgrPort
	_SetPort		;and pop up in the Menu Mgr port (full screen)

	pha		;space for PopUpMenuSelect result
	lda pmHighestID		;select with last (top) item inserted
	pha
	lda thePathItemBox+2	;x coord, global coordinates
	clc
	adc #4		;+4?
	pha
	lda thePathItemBox+0	;y coord, global coordinates
	clc
	adc #4		;y-coord + 4
	pha
	pea 0		;flag (type 2 menu, no white space added)
	pushlong PopUpMenuHandle
	_PopUpMenuSelect
	pla
	sta theChosenItem

	_SetPort		;restore the old port
	jsr KillPathMenu

	lda theChosenItem
	beq @done
	cmp #$0100	;the Volumes item?
	beq @UpToVolumes
	cmp pmHighestID
	beq @done
@popUpSome	pha
	jsr DirectoryUp
	pla
	inc a
	cmp pmHighestID	;the top-level item
	bne @popUpSome
	brl GoListChanged		;re-do the list (short cut)

@UpToVolumes	jsl BuildVolumeList
	brl LoopModalReturn

@done
@noMenuMgr	brl NoSelectionMade

*
* BuildPathMenu -- new routine 14-Jan-91 DAL
*
BuildPathMenu	stz pmHandle1+1
	stz pmHandle2+1
	stz PopUpMenuBar+1
	stz PopUpMenuHandle+1
	pha
	pha
	_GetMenuBar
	pla
	sta OldMenuBar
	pla
	sta OldMenuBar+2

	pha
	pha
	lda #0
	pha
	pha
	_NewMenuBar
	lda 3,s
	sta PopUpMenuBar+2
	lda 1,s
	sta PopUpMenuBar
	_SetMenuBar

	pha
	pha
	pea 0
	pushlong #MyMenuTemplate
	_NewMenu2
	lda 1,s
	sta PopUpMenuHandle
	lda 3,s
	sta PopUpMenuHandle+2
	pea 0	;insert new menu at beginning of bar
	_InsertMenu

	pha
	pha	;space for GetSysIcon (desktop icon)
	pea 2	;misc icon
	lda #0
	pha	;misc icon #0
	pha
	pha	;aux value (long)
	_GetSysIcon
	pla
	sta theDeskIcon
	pla
	sta theDeskIcon+2

	pea 0	;by pointer
	pushlong #MyVolItemTmpl
	pea 0	;at beginning of menu
	pea 1	;in Menu ID
	_InsertMItem2

	pea $0004	;open folders, device at bottom

	clc
	lda <PrefixPtr
	adc #2
	tax
	lda <PrefixPtr+2
	adc #0
	pha
	phx	;pathname pointer (word-length string)
	pea 0	;device number (7-Feb-91 DAL)
	pea 1	;Menu ID
	pea 0	;insert at beginning of menu
	pea $0101	;starting Item ID
	pushlong #IPMIResults
	_InsertPathMItems

	rts

pathDItemNum	dc.w 0
thePathItemBox	dc.w 0,0,0,0

MyMenuTemplate	dc.w 0	;version
	dc.w 1	;Menu ID
	dc.w $0020	;everything is by pointer; XOR drawing
	dc.l MyMenuTitle	;empty title
	dc.l 0	;no items
MyMenuTitle	dc.b 0	;null pString

*** Here's my Desktop/Disks menu item template
MyVolItemTmpl	dc.w 0	;version
	dc.w $0100	;item ID
	dc.b 0,0	;key equivalents
	dc.w 0	;check mark
	dc.w $0420	;item flag (XOR, use ItemStruct for title)
	dc.l DeskItemStruct	;copy of the Desktop icon
DeskItemStruct	dc.w $8000	;has an icon
	dc.l theDeskString	;item name
theDeskIcon	dc.l 0
theDeskString	dc.b 5,'Disks'	;25-Mar-92 DAL

OldMenuBar	dc.l 0
PopUpMenuBar	dc.l 0
PopUpMenuHandle	dc.l 0
theChosenItem	dc.w 0

IPMIResults
pmHighestID	dc.w 0
pmHandle1	dc.l 0
pmHandle2	dc.l 0

*
* KillPathMenu
*
KillPathMenu	pea 1
	_DeleteMenu
	pushlong PopUpMenuHandle
	_DisposeMenu
	pushlong PopUpMenuBar
	_DisposeHandle
	pushlong pmHandle1
	_DisposeHandle
	pushlong pmHandle2
	_DisposeHandle
	pushlong OldMenuBar
	_SetMenuBar
	rts


**********************************************************************
*
* Close the current folder and back up one level (if we can).
*
* This routine will exit through ListChange above if a new list must
* must be redrawn.
*
**********************************************************************
DoClose
	jsr DirectoryUp
	bcs GoListChanged		;re-do the list (short cut)
	jsl BuildVolumeList
	brl LoopModalReturn
	
DoVolume
**********************************************************************
*
* kind of like new folder except we start from the root of the next volume
*
**********************************************************************
	lda FGetPutFlag
	bit #TABorMouseDown
	bne VolListCheck
	
	jsl BuildVolumeList		;Display list of volumes online.
	bra NoSelectionMade
	
VolListCheck	and #$FFFF-TABorMouseDown	;Clear the TAB bit since we're handling it now.
	sta FGetPutFlag
doVolume2	jsr NextDrive		;step to next drive and zero topflg
	bcc GoListChanged
	jsr PutUpAlert
	bcs doCancel
GoListChanged	brl ListChange
NoSelectionMade	clc
	brl LoopModalReturn

DoCancel
*
	pha
	lda #0000		;cancel, blank prefix
	sta [ReplyPtr]
	pla		;keep error correct
**********************************************************************
*
* Obviously if this button is pressed we are leaving!
*
**********************************************************************
DoExit
	pha		;save error if any
	php		;save possible carry (if error)
	
	PushZLong DialogPtr
	_CloseDialog
	
*** this hoses you if it's a resource, so let's call the routine that was made for it instead! 2-Apr-93 SS	
;; Since this handle was not unlocked earlier to fix a bug it is now time
;; to clean up and unlock the handle. 6/8/89 Mensch fix #2
;	lda promptverb
;;	and #$0003	;removed 22-Mar-93 SS
;	beq @byptr
;	pha		;space for results
;	pha
;	ldax promptptr
;	PushAX
;	_FindHandle
;	_HUnLock
;@byPtr
;; end fix #2

	jsr prompt_release
*** end 2-Apr-93 SS
	plp
	pla
	rts
		
	
**********************************************************************
*
* NextDrive -- step to next drive
*
* The assumption is that the current path is already pointed to by the
* ptr 'PrefixPtr' in a class 1 string
*
* Exit:
*   Carry is set if we can't find a drive to change to!
*   Carry clear if a new drive was selected or a new volume is
*     in the current drive.
*
**********************************************************************
NextDrive	
*
* Since NextDrive is ALWAYS is going to be the top level, the following
* code will set the directory level to top EVEN if no disk is inserted.
* Also pre-zero the number of entries as this will blank the list on a
* disk error.
*
* This helps stop a possible bugs.
*
	lda CurDev
	bne @1
	rts
@1
	jsr DirectoryUp
	lda topflg
	bne @1
NextDrive2	lda #0		;say no items
	ldy #ListRecord.ListCount
	sta [ListRecPtr],y		;number of entries found.
*
* Go get name of current device # and see if the volume name changed
*
	lda curDev		;starting point
	pha		;save it on stack for later check
	jsr DoDInfoCall		; get Dev number
	bcs Bump		;if an error on occured, next device
*
* now pass that name to _Volume and get the Volume name. Parameter count is still 2
*
	jsr DoVolumeCall
	bcs Bump		;if an error occured, go to next device NOW
*
* compare new name to the one in prefixptr.
* check to see if the lengths are different first 
*
	ldy #0002
	lda [volName_Volume],y	;length of returned string
	sta ztemp1		;hold length
	inc a		;pretend it has a seperator!!! (cheat for length check)
	cmp [PrefixPtr],y		;see if different length
	bne different		;different lengths!
	iny
	iny		;point to first character
	
	shortm
loop
	lda [volName_Volume],y	;character
;;;	cmp [PrefixPtr],y		;see if same
*** 27-Apr-92 DAL -- case-insensitive compare
	cmp #'a'
	bcc @notLC
	cmp #'z'+1
	bcs @notLC
	and #$df
@notLC	sta @cheat+1
	lda [<PrefixPtr],y
	cmp #'a'
	bcc @notLC2
	cmp #'z'+1
	bcs @notLC2
	and #$df
@notLC2
@cheat	cmp #$77	;*** modified ***
*** end 27-Apr-92
	bne different		;if different, skip the bump
	iny
	dec ztemp1
	bne loop		;keep looking!
*
* if here, they are the same so we can bump the drive #
*
	longm		;back to long mode

*** added support for going backwards thru the drives 17-Mar-93 SS
	lda FGetPutFlag
	bit #TabBackwards
	beq @fwd
	dec curDev
	lda 1,s
	dec a
	bra @ok
*** end 17-Mar-93 SS
@fwd	inc curDev
	lda 1,s
	inc a
@ok	sta 1,s
	bra different
Bump
*** added support for going backwards thru the drives 17-Mar-93 SS
	lda FGetPutFlag
	bit #TabBackwards
	beq @fwd
	dec curDev
	bra @ok
*** end 17-Mar-93 SS
@fwd	inc curDev		
@ok	lda curDev
	cmp 1,s		;see if we came all the way around
	bne different
	brl error

different
	longm		;make sure in long mode
	jsr DoDInfoCall		;translate # to name
	bcc InfoOk		;if no error, this device is OK
*** added support for going backwards thru the drives 17-Mar-93 SS
	lda FGetPutFlag
	bit #TabBackwards
	beq @fwd
	jsr SetToMaxDev		;restart with highest dev (+1)
	bra Bump
*** end 17-Mar-93 SS
@fwd	stz curDev		;restart with lowest dev (-1)
	bra Bump

*
* Entry point for routine NextDrive1. Called by routine ServiceDiskSwitch.
* This is called when we want the volume in CURDEV to be rescanned.
*
	
NextDrive1	pha		;pha just to balance stack at the end
InfoOk
	jsr DoVolumeCall		;get volume name
	bcc VolumeOK		;were ok on the volume
	cmp #$002e		;disk switched?
	bne Bump		;any other error just go to next drive
	bra VolumeOK
*
* Now put the new volumename back into PrefixPtr and BuildList Again
*
VolumeOK1	pha
VolumeOK
	ldy #0002
	lda [volName_Volume],y	;length of returned string
	beq Bump		;if 0, bad device (DEBUG***)
	sta ztemp1		;hold length
	inc a		;count one for end seperator
	sta [PrefixPtr],y		;save new length
	dec a		;restore a
	iny
	iny
	shortm
loop2
	lda [volName_Volume],y	;character
	sta [PrefixPtr],y		;see if same
	iny
	dec ztemp1
	bne loop2		;keep moving
;;;	lda Seperator		;I end my prefixes with a seperator
*** changed 6-May-93 DAL/SS -- Separator is not set up at this point, or not always, so use
***   whatever we got at the beginning of the volume name.
	phy
	ldy #4
	lda [volName_Volume],y
	ply
*** end 6-May-93
	sta [PrefixPtr],y
	longm
	
	jsr SetThePrefix		;reset prefix 8 and 0
	
	bit FGetPutFlag		;if this is Put....
	bpl skipit		;skip if get
	
	PushZLong DialogPtr
	_SetPort		;make sure the port is set.
	
	PushZLong DialogPtr
	PushWord #0011		;Put StatText item
	PushZPtr tempRect		;where to store the Rect
	_GetDItemBox
	PushZPtr tempRect
	_InvalRect		;rect is invalid and should redraw
skipit
	clc		;no error
	bra NDExit
error
	sec		;error occured
NDExit	lda FGetPutFlag
	and #$FFFF-TabBackwards	;clr flag
	sta FGetPutFlag
	pla		;fix stack (returns original curDev)
	rts
	
;
; Reset curDev to the highest device in the current universe. 17-Mar-93 SS
;
SetToMaxDev
	lda #$0005
	sta ParBlock		;all 6 parameters back ($11 bytes)
	stz statuscode_DStatus	;request device status
	PushZPtr ParBlock2		;a place for return of a few bytes
	PullAX
	stax statlist_DStatus	;will return status here
	lda #2
	sta rcount_DStatus
	stz rcount_DStatus+2
	stz devNum_DStatus
	
@loop	inc devNum_DStatus
	PushZPtr ParBlock		;pointer to parameter block
	PushWord #$202D		;_D_Status
	jsl ProDos_Stack_Entry	;stack based call
	bcc @loop
	lda devNum_DStatus
	sta curDev
	rts
	
**********************************************************************
*
* DogetFileInfo. Saves memory by making the getFileINfo call a subroutine.
*
* Inputs: PrefixPtr = current path.
*
* Side Effects: The information in the memory area for ParBlock is lost.
*
*
**********************************************************************
DoGetFileInfo	

	lda #$07		;need 7
	sta parBlock		;need to get the file info ($1F bytes)
*
* here, PrefixPtr should point to the volume of interest
*
	ldax PrefixPtr
	clc
	adc #0002
	bcc @01
	inx
@01
	stax ParPath_GFI
	PushZPtr ParBlock		;pointer to parameter block
	PushWord #$2006		;_GetFileInfo_C1
	jsl ProDos_Stack_Entry	;stack based call
	rts
	
**********************************************************************
*
* DoDInfoCall. Saves memory by making the DInfo call a subroutine.
* results are plced in the memory allocated at startup and pointed
* to by DinfoPtr.
*
* Inputs: curDev = current device number (as set by GetThePrefix)
*
* Side Effects: The information in the memory area for DInfo called
* is updates. Any old information is lost.
*
* Returns carry set if an error and a = error #
*
**********************************************************************
DoDInfoCall	
*
* but first, I'll do a status to get write protect information
*
	lda #$0005
	sta ParBlock		;all 6 parameters back ($11 bytes)
	lda curDev		;current device number
	sta devNum_DStatus
	stz statuscode_DStatus	;request device status
	PushZPtr ParBlock2		;a place for return of a few bytes
	PullAX
	stax statlist_DStatus	;will return status here
	lda #2
	sta rcount_DStatus
	stz rcount_DStatus+2
	
	PushZPtr ParBlock		;pointer to parameter block
	PushWord #$202D		;_D_Status
	jsl ProDos_Stack_Entry	;stack based call

	stz writeProtect		;guess not write protected
	lda ParBlock2		;low word
	bit #writeProtBit
	beq @1		;not write protected
	dec writeProtect
@1
	lda #08		;get lots of stuff as someone may need it.
	sta ParBlock		;8 parameters to DInfo ($15 bytes)
	lda curDev		;current device number
	sta devNum_DInfo
	ldax DinfoPtr
	stax devName_DInfo		;a place for the returned name
		
	PushZPtr ParBlock		;pointer to parameter block
	PushWord #$202C		;_DInfo_C1
	jsl ProDos_Stack_Entry	;stack based call
	rts
	
**********************************************************************
*
* DoVolume called a few places above. Leaves info in ParBlock.
*
* This routine also gets the total blocks and total free blocks of the current
* drive and saves them in [SizeInfoPtr],y where y is totalSize or totalFree.
* In addition, a P-String is made of each value and saved in [SizeInfoPtr],y
* where y is totalSizeStr or totalFreeStr. ParamText is called so that the 
* replacement strings are ready for any dialog that needs them.
*
* Returns carry set if an error and a = error # on the _Volume call.
*
**********************************************************************
DoVolumeCall	lda #$0006
	sta ParBlock		;all 6 parameters back ($15 bytes)
	lda DinfoPtr		;memory for Dev Name Input
	clc
	adc #2		;Passed the buffer size
	sta devName_Volume
	lda DinfoPtr+2
	adc #0
	sta devName_Volume+2
	ldax NamePtr		;This will make a good temp location...
	stax volName_Volume		;...to put the results
	ldy #0002
	lda #0000
	sta [volName_Volume],y	;0 length (DEBUG)
*
* DEBUG: the above corrects a new porblem on 4.1d8. Volume calls on non block devices
* no longer return an error.  I'll detect 0 length on the volume name and skip the device.
* Could cause a problem on any real unnamed device.
*	
	
	PushZPtr ParBlock		;pointer to parameter block
	PushWord #$2008		;_Volume_C1
	jsl ProDos_Stack_Entry	;stack based call
	bcs @notOK
	brl statusOK
@notOK	cmp #$57		;DAL 6-Jan-91 duplicate volume
	beq badvolume		;DAL 21-Apr-91
	cmp #$52		;Is it unknown volume error?
	beq badvolumeFileSys
	cmp #$27		;Is it an I/O error
	bne JustReturnError

	pha		;Save error code on stack
	lda curdev		;Get device number of device we're looking at
	asl a
	tax
	lda StaticDeviceTable,x
	beq badvolume2		;error code already on the stack!
	pla		;get error back in a-reg

JustReturnError	sec
	brl ErrorOccurred
*
* 6-Jan-91 DAL
*
* Call ErrorWindow and eject the disk.
* We do this for Duplicate Volume, and maybe for others later.
*
ErrorAndEject	pha	;put error on stack so Eject can pull it later

	pha	;space for result
	pea 0	;substitution type
	pea 0
	pea 0	;substitution array
	pha	;error code
	_ErrorWindow
	pla	;button number (ignore)
	brl EjectThatThang
* end of 6-Jan-91 DAL

badvolumeFileSys

badvolume	pha		;Save error code.
badvolume2	_InitCursor

*** added 15-Apr-91 DAL -- let HandleDiskInsert to most of the work for us
	pha	;space for result flags
	pha	;space for result device number
	pea $4000	;handle this insertion
	pei <curDev	;devNum input
	_HandleDiskInsert
	plx	;device number
	ply	;result flags
	bcs @err

	txa
	beq @err	;devnum=0 means they ejected--treat it like an error

	pla	;kill old error code
	brl DoVolumeCall

@err	pla
	sec
	brl ErrorOccurred

*** end of 15-Apr-91 DAL

*
* Eject device <curdev (DAL)
*
EjectThatThang	lda #5
	sta ParBlock
	lda <curDev
	sta devNum_DControl
	lda #ejectMedium
	sta controlCode
	PushZPtr ParBlock		;pointer to parameter block
	PushWord #$202E		;_DControl
	jsl ProDos_Stack_Entry	;stack based call

	pla		;get error code back
	sec
	brl ErrorOccurred
	
statusOK	lda ParFileSysID_Volume
	sta FileSysID

	ldax ParTotBlks_Volume	;total blocks
	jsr convert_to_k		;change blocks to K
	PushAX		;on the stack for string call (later)
	stax [SizeInfoPtr],totalSize	;save total blocks
	ldax ParFreeBlks_Volume	;free blocks
	jsr convert_to_k		;change blocks to K
	PushAX		;free on the stack for string call
	stax [SizeInfoPtr],totalFree	;save free size

	ldax SizeInfoPtr
	sec		;add 1 to leave space for string size
	adc #totalFreeStr		;point to place for string
	bcc @1
	inx
@1
*
* total free is on the stack
*
	PushAX		;destination of string 1
;	PushWord #0010		;10 characters
;	PushWord #False		;unsigned
;	_Long2Dec		;string set up 1
	jsr Long2DecTen	;5-Mar-92 DAL
*
* total size should still be on the stack.
*
	ldax SizeInfoPtr
	sec
	adc #totalSizeStr
	bcc @2
	inx
@2	
	PushAX		;destination of string 2
;	PushWord #0010		;10 characters
;	PushWord #False
;	_Long2Dec
	jsr Long2DecTen	;5-Mar-92 DAL
*
* scan integer math string and make a P-string
*
	ldy #totalFreeStr+1	;where the string starts
	jsr findspace		;pass spaces
*
* AX contains a pointer to a P-string of total blocks (resides in memory of SizeInfoPtr)
*
	PushAX		;ParamText needed it here
*
* repeat for free blocks
*
	ldy #totalSizeStr+1	;where the string starts
	jsr findspace		;pass spaces
	PushAX
	PushLong #0
	PushLong #0		;last 2 strings blank
	_ParamText
	clc		;ignoring errors from conversion
ErrorOccurred
	rts

*** Added 5-Mar-92 DAL
*
* Long2DecTen -- call Long2Dec, unsigned, 10-character buffer.
*
* The long value and string pointer have already been pushed.
*
	export Long2DecTen
Long2DecTen	plx
	stx @theRTS
	lda 3,s
	ora #$8000	;turn on bit 31 of stringPtr
	sta 3,s
	pea 10	;ten-byte buffer
	pea 0	;unsigned
	_Long2Dec
	ldx @theRTS
	phx
	rts

@theRTS	dc.w 0
*** end 5-Mar-92

**********************************************************************
*
* local subroutine to scan an integer math string and find the first non blank space.
* The string is updated to a P-String with a size byte in the front.
* On exit A,X contain a pointer to the P-String.
* (it is assumed that the starting math string is never longer than 10 characters)
*
**********************************************************************
findspace
	shortm
	ldx #0010		;all 10 characters as a guess
@1
	lda [SizeInfoPtr],y	;look for blanks
	cmp #$20		;blank?
	bne done		;if not, we are done
	iny		;look in next space
	dex		;if 0, we did the whole thing!
	bne @1		;I assume I'll find one (I better!)
done
	txa
	dey		;put size byte in front of string
	sta [SizeInfoPtr],y	;save size in string
	longm
	phy		;offset to string
	clc
	ldax SizeInfoPtr		;make a pointer to the string
	adc 1,s
	bcc @3
	inx
@3
	ply		;y is don't care here..fix stack
	rts
	
**********************************************************************
*
* Convert_to_K will convert number of blocks returned by the Volume call
* to the proper number in kbytes it represents.
*
* Input A,X = total number of blocks
*
* Output a,x = total in K
*
**********************************************************************
convert_to_k	
	PushLongSpace		;results
	PushLongSpace
	PushAX		;number of blocks
	PushWord #0		;high byte of multipler
	PushWord ParBlksSize_Volume	;size of blocks
	_LongMul
	PullLong ztemp1
	PullLong ztemp2		;temp hold
*
* divide by 1024. 2 shifts and drop the bottom byte as a cheat)
*
	ldx #0002	;2 shifts = divide by 4
@1
	lsr ztemp2+2	
	ror ztemp2
	ror ztemp1+2
	ror ztemp1
	dex
	bne @1
	lda ztemp1+1	;attempting to drop bottom byte (equiv to dividing by 256)
	ldx ztemp1+3	;Bug #MTLRAF019, used to be ldx ztemp2+1
	rts
	
	ENDP



GetFilter	PROC		
*****************************************************************
*
* GetFilter
*
* This routine is called during the ModalDialog for the GET routines
* and handles all the list manager stuff.
*
* It should be noted that I do not have direct access to my direct page
* since this is called FROM the Dialog Manager.
*
* The following is already on the stack (from the call) so just use
* that memory.
*
*****************************************************************
	DefineStack
editText	block 36	;arghh, a temp area to put the result of the edit box
keymod	word
keycode	word	;temp locations to put key information
atemp	long
FGetPutCopy	word	;a copy of the FGetPutFlag
FoundControl	long
MyDPPtr	long	;pointer back to MY DP (Wait, this gets better!)
OrigB	byte
OrigD	word
RTLAdr	block 3
ItemHitPtr	long
EventPtr	long
theDialogPtr	long
ReturnFlag	long
*
*****************************************************************
	with PopUpGlobals
	
	phd		; save d
	phb
	phk		; set b to our bank
	plb
	

	tsc		; turn stack into dp
	sec
	sbc #54		;allocate space on stack for extra items
	tcs		;move stack	
	tcd		;set dp
	
	PushLongSpace		;results
	PushWord #0		;system tool
	PushWord #$0017		;Standard File tool set
	_GetWap
	PullLong MyDPPtr		;local use

	stz ReturnFlag		; we always return false (guess)
	
	pha
	pha
	_GetTick
	ply
	plx
	tya
	sec
	sbc TickCount
	cmp #40
	bcs TimeToPollDisks
	bra NoPoll		; as opposed to SaPoll
	
TimeToPollDisks	sty TickCount
	stx TickCount+2
	jsl PollDevices		;see if any disk switch events have occurred
	
NoPoll	lda MyDPPtr
	jsl ServiceDiskSwitch
	bcc @notEmpty
	lda #$FFFF
	sta ReturnFlag
	brl ReallyDone
@notEmpty
	jsr CheckVolume		;AppleShare update check!

	ldy #FGetPutFlag
	lda [MyDpPtr],y
	sta FGetPutCopy		;get a copy, we need this alot here

	bpl @notPut
*** if FunkyPutFile AND item#10 active, make next edit item active instead  23-Mar-93 SS	
	bit #FunkyPutFile		;is #10 visible?
	beq @not10		; no, skip
	lda #10
	jsr IsItActive		;is #10 is active?
	tay
	beq @not10		; no
	PushLong [MyDpPtr],DialogPtr
	jsr FindItemAfter10		; yes, skip to next edit item
	pha	;the item id
	pea 0	;select all
	pea $7fff
	_SelectIText
@not10
*** set the ListActive flag 19-Mar-93 SS
	lda #8		;see if #8 (the list) is active
	jsr IsItActive
	tay
	lda FGetPutCopy		;get current state
	tyx		;condition P
	bne @activate
	
@deactivate	bit #PutFileListActive	;isolate the ListActive bit
	beq @alreadySet		;if already clr, do nothing
	bra @update
	
@activate	bit #PutFileListActive
	bne @alreadySet		;if already set, do nothing
@update	
	jsr ToggleListTarget	;flip list state
;	brl AllDone	;*** removed 24-Mar-93 SS
@alreadySet
@notPut

*
*--------------------------------------------------------------
* 
	lda [EventPtr]
*** added 1-Apr-91 DAL -- update the focus frame
	cmp #updateEvt
	bne @notUpdateEvent

*** added 21-Oct-91 DAL -- only redraw for *my* update events!
	ldy #omessage+1
	lda [<EventPtr],y
	cmp <theDialogPtr+1		;since windows take more than 1 page,
	bne @notMyUpdate		;I can compare the middle word!
*** end 21-Oct-91

	ldy #FGetPutFlag
	lda [<MyDPPtr],y
	jsr UpdateFocusFrame

	brl AllDone
@notMyUpdate
*** try to update window in the background 18-Mar-93 SS
	pea $8000
	ldy #omessage+2
	lda [<EventPtr],y
	pha
	dey
	dey
	lda [<EventPtr],y
	pha
;	_UpdateWindow
	ldx #$6c0e
	jsl $e10000
	brl AllDone
*** end 18-Mar-93 SS
@notUpdateEvent
*** end of 1-Apr-91 DAL

	cmp #mouseDownEvt		;event?
	beql AMouseDown		;go do mouse down
	cmp #autoKeyEvt		;key from here?
	beq aKey
	cmp #keyDownEvt		;see if a key was pressed
	bnel AllDone		;forget it.
aKey
	ldy #omessage		;get key
	lda [EventPtr],y		;get the key value
	and #$00FF		;byte value
	tax		;save a copy of the key code
	ldy #omodifiers
	lda [EventPtr],y
	sta keymod		;save modifiers, we will need it
	bit #appleKey		;Apple key pressed?
	bne @isCommand
	brl NotCommand		;skip check on all Apple Keys

@isCommand	txa		;key back into A

	ldx #$0004		;cancel (for Get)
	cmp #'.'		;this would be a cancel
	beq @toCommonKey		;got it

* DAL 6-Jan-91
*
* check for Volumes (Apple-v, Apple-V, Apple-d, Apple-D, Apple-ESC)
*
	ldx #3		;volumes button (for Get)
*** 14-Mar-91 DAL--removed Apple-V = Volumes because that usually means Paste
;	cmp #'v'
;	beq CommonKey
;	cmp #'V'
;	beq CommonKey

	cmp #'d'
	beq CommonKey
	cmp #'D'
	beq CommonKey
	cmp #$1b
	beq CommonKey
* end of 6-Jan-91 DAL

*** added Cmd-Shift-Up equivalent 17-Mar-93 SS
	cmp #$0b		;up arrow?
	bne @notvolume		
	tay		; yes, hold key in Y
	lda keymod		
	bit #shiftKey		; and make sure the shift key is also down
	bne CommonKey		;OK
	tya		;otherwise, restore A
@notvolume
*** end 17-Mar-93 SS
*
* check for open (Apple-o, Apple-O, Apple-down)
*
	ldx #0001		;open button
	cmp #'o'
@toCommonKey	beq CommonKey		;got it!
	cmp #'O'
	beq CommonKey		;OK
	cmp #$000A		;down arrow is also open
	beq CommonKey

*** 10-Jun-91 DAL -- Use Apple-Tab to switch volumes
*** added Cmd-right & Cmd-lt equivalents 17-Mar-93 SS
	tay		;hold a copy in Y for backward flag setting
	cmp #$15		;Cmd-right arrow
	beq @tab		; same as Cmd-Tab
	cmp #$08		;Cmd-left arrow
	beq @tab		; same as backward Cmd-Tab
*** end 17-Mar-93 SS
	cmp #$0009
	bne @notTab
@tab	lda FGetPutCopy
	bit #InVolumeList
	beq @notInVolList
	brl KeyDone
@notInVolList
	ora #TABorMouseDown
*** added backward tabbing 17-Mar-93 SS
	cpy #$08		;backward?
	bne @fwd
	ora #TabBackwards
*** end 17-Mar-93 SS
@fwd	ldy #FGetPutFlag
	sta [MyDpPtr],y
	ldx #0003		;drive button execute
	bit FGetPutCopy
	bpl @tab1
	inx		;put is 1 higher in the id.
@tab1	txa
	sta [ItemHitPtr]		;say item hit - (USM)
	brl KeyDone
@notTab
*** end of Apple Tab code (switch volumes)

*
* in Put, Command N is New Folder
*
	bit FGetPutCopy		;see if Put
	bpl @1
	ldx #0011		;new folder button is 12 (It will get bumped)
	cmp #'n'
	beq CommonKey
	cmp #'N'
	beq CommonKey
;*
;* Still in PutFile only, Apple-Tab bops between the list and the edit-line
;*
;	cmp #$0009
;	bne @notAppleTab
;*---------- Handle an Apple-Tab
;;	jsr ToggleListTarget
;;	brl KeyDone
;*---------- end of Apple-Tab code
;@notAppleTab

@1
*
* other command key equiv. could be added here
*
* the following must be the last item!
*
	cmp #$000B		;Command up arrow is Close
	bne @2
	brl Escape
@2
	brl AllDone
CommonKey
	bit FGetPutCopy
	bpl @1
	inx		;put is 1 higher in the id.
@1
	txa
	jsr SeeIfItemEnabled
	bcc @ok
	brl KeyDone		;12-Jan-91 DAL
@ok	sta [ItemHitPtr]		;say item hit - (USM)
	dec ReturnFlag		;sets it to $FFFF (it was 0)
*
* now flash the button
*
	PushWord #00		; value for unhighlighting button second.
	PushLongSpace		; Result
	PushLong [MyDpPtr],DialogPtr	; the dialog pointer
	phx 		;item number for cancel				  ; Item Number.
	_GetControlDItem
	PushWord #02		; value for hilighting button
	lda 5,s
	pha
	lda 5,s		; copy the results for first call 
	pha
	_HiliteControl		; Make sure it's on
*
* returns handle to item on stack. Stack already has the desired state there!
*
	_HiliteControl		; Make sure it's off again
	brl KeyDone
*
* key press, but not a command key
*
NotCommand	txa		;recall key code
	cmp #$0D		;CR hit?
	bne NotCR
	bit FGetPutCopy		
	bpl ItsActive		;if get then just pass <return> to dialog mgr
			
; A <return> key for put dialogs is a little more complicated. BRC #65378.
; We need to check if the button is active or not before we pass the <return> key along to the
; dialog mgr. If default button is not active then <return> could get passed onto the edit line
; item which could erase the current selection.

	PushLongSpace		;space for result
	PushLong [MyDpPtr],DialogPtr
	pea 1		;item number for default button
	_GetControlDItem
	phd		;turn stack into dp for now
	tsc
	tcd

CurrentDPage	equ 1		;stack frame
TheHandle	equ CurrentDPage+2

	ldy #2		;deref handle to default button control and
	lda [<TheHandle],y		;find out if button is active or not
	tax
	lda [<TheHandle]
	sta <TheHandle
	stx <TheHandle+2
	ldy #octlHilite		;hilite field tells us state of button
	lda [<TheHandle],y
	and #$00FF		
	pld		;restore direct page
	plx		;get handle to control off of stack
	plx
	cmp #255		;test if control is active or not
	bne ItsActive
	brl KeyDone		;it's inactive so just ignore this <return>
	
ItsActive	brl PassKey		;it's active so pass <return> back to dialog mgr

NotCR	txa		;copy of the key
	cmp #$09		;tab key? (Drive button)	
	bne NotTab
*** don't let any tabs go to ListKey 19-Mar-93 SS
	brl PassKey
	
;*---------- Handle a non-Apple Tab
;	lda FGetPutCopy
;	bit #InVolumeList
;	beq @notInVolList
;	brl KeyDone
;@notInVolList
;	ora #TABorMouseDown
;	ldy #FGetPutFlag
;	sta [MyDpPtr],y
;	ldx #0003		;drive button execute
;	bit FGetPutCopy
;	bpl @1
;	inx		;put is 1 higher in the id.
;@1	txa
;	sta [ItemHitPtr]		;say item hit - (USM)
;	brl KeyDone
;*---------- end of non-Apple Tab code

;*---------- new non-Apple Tab code
;	bit FGetPutCopy
;	bpl @doNothing	;for GetFile Tab does nothing!
;	jsr ToggleListTarget
;@doNothing	brl KeyDone
;*---------- end of non-Apple Tab code
NotTab
*** end 18-Mar-93 SS
	cmp #$1B		;Escape? (close)
	bne NotEscape
Escape
	lda FGetPutCopy		;If not displaying volume list then CLOSE is
	and #InVolumeList		;always going to be active
	bne KeyDone
	ldx #0002		;do close
	brl CommonKey
NotEscape

*** Pass arrow keys along to ListKey instead of handling them ourself

***	ldx #-1		;guess up!
	cmp #$0B		;up arrow
	beq DoArrow
	bit FGetPutCopy		;this get?
	bmi @1		;left/right arrow skip for put mode
	cmp #$08		;left arrow
	beq DoArrow
@1
***	inx
***	inx		;x = 1 (down arrow)
	cmp #$0A		;Down arrow?
	beq DoArrow
	bit FGetPutCopy		;skip left/right for put
	bmi NotArrow
	cmp #$15		;right arrow
	bne NotArrow
DoArrow
***	jsr UpDown
	jsr CallListKey		;4-Dec-90 DAL
	dec ReturnFlag		;(makes it $ffff?)

*** added 18-Dec-91 DAL -- bring pointer2 up to date!
*** Update pointer2 in case we're in the volume list
*
* equiv of getselected but for the case when my DPP is incorrect
*
	PushLongSpace
	PushLong #0000
	PushLong [MyDpPtr],ListRecPtr	;PushLong ListRecPtr	
	_NextMember		;search specified list record for selected item
	ldy #selectedptr
	lda 1,s
	sta [MyDpPtr],y
	iny
	iny
	lda 3,s
	sta [MyDpPtr],y
	PullLong [MyDpPtr],pointer2	;put in temp
*** end 18-Dec-91
	brl UpdateKbFreeStr

NotArrow	cmp #':'		;18-Nov-90 DAL disallow colons in SFPut dialogs
	bne @notColon		;18-Nov-90 DAL
	brl KeyDone		;18-Nov-90 DAL
@notColon
*
* other non-command key equiv should go here
*

*** not needed anymore 22-Mar-93 SS
;*** added 18-Dec-91 DAL -- check FunkyPutFile; feed keys to list
;	lda FGetPutCopy
;	and #FunkyPutFile
;	bne @bopAround
;*** end 18-Dec-91

;	bit FGetPutCopy		;in Get?
;	bmi PassKey		;skip letters if in put mode
*** added 28-Mar-91 DAL -- if the List is active in putFile, call MoveToLetter
	bit FGetPutCopy
	bpl @BopAround		;GetFile--always bop around

;;;	lda FGetPutCopy
	ldy #FGetPutFlag
	lda [<MyDpPtr],y
	and #PutFileListActive
	beq PassKey
*** end of 28-Mar-91 DAL

@BopAround	jsr MoveToLetter		;allow keys to jump around in the list

KeyDone	dec ReturnFlag		;sets it to $FFFF (it was 0)

PassKey	brl AllDone

	
AMouseDown	PushWordSpace
	PushZPtr FoundControl
	PushLong [EventPtr],oWhere
	PushZLong theDialogPtr
	_FindControl
	pla
	bne KeepLooking2		;well, something was found
	brl AllDone		;0...not one of the controls I care aboout

KeepLooking2  	ldy #ListControl1		;need to go through DP pointer
	lda FoundControl
	cmp [MyDpPtr],y		; (cmp ListControl1) my list was hit?
	bnel NotList1		;nope!
	iny
	iny		;point to listcontrol+2
	lda FoundControl+2
	cmp [MyDPPtr],y
	bnel NotList1
	jsr TrackIt		;do track control stuff
*
* check for double click on the list and no item selected
*
*
* equiv of getselected but for the case when my DPP is incorrect
*
	PushLongSpace
	PushLong #0000
	PushLong [MyDpPtr],ListRecPtr	;PushLong ListRecPtr	
	_NextMember		;search specified list record for selected item
	ldy #selectedptr
	lda 1,s
	sta [MyDpPtr],y
	iny
	iny
	lda 3,s
	sta [MyDpPtr],y
	PullLong [MyDpPtr],pointer2	;put in temp
*
* if this is 0 nothing is selected.
* Y is left pointer to 'pointer2' by PullLong macro above
*
	lda [MyDpPtr],y
	iny
	iny
	ora [MyDpPtr],y
	beql NotList1		;no items selected.
	PushLongSpace
	PushLong [MyDpPtr],pointer2	;push what came back, start search here
	PushLong [MyDpPtr],ListRecPtr	;PushLong ListRecPtr	
	_NextMember		;search specified list record for selected item
	pla		;what came back
	ora 1,s		;did it come back 0
	ply		;fix stack
	tay		;test for 0
	bnel AllDone		;just skip this if multiple
	
	PushLong [MyDpPtr],pointer2	;otherwise, see if same item hit again.
	jsr DerefHandle		;deref handle
	
	ldy #lastSelected
	cmp [MyDPPtr],y		;see if same
	bne NotSame
	iny
	iny
	txa
	cmp [MyDPPtr],y
	bne NotSame2		;we knew low byte WAS the same!
	brl SameItem		;if same, no need to store it!
NotSame
	sta [MyDPPtr],y
	txa
	iny
	iny
NotSame2	
	sta [MyDPPtr],y
	ldax [EventPtr],oWhen
	ldy #lastTime
	sta [MyDPPtr],y		;new item, get time hit...
	iny
	iny
	txa
	sta [MyDPPtr],y
	
UpdateKbFreeStr	lda FGetPutCopy		;Check whether we're currently displaying
	bit #InVolumeList		;the volume list or not.
	bne @inVolList
	brl fini
@inVolList

	PushLong [MyDpPtr],pointer2	;get ptr to currently selected member 
	jsr DerefHandle		;now get ptr to volume string
	sta atemp
	stx atemp+2
	lda [atemp]		;get size of volume string
	and #$00FF	
	clc
	adc #3		;get the device id of volume 
	tay
	lda [atemp],y
;
; setup for DoVolumeCall which is the routine that actually calculates amount of kbfree
;
	ldy #curDev	
	sta [MyDpPtr],y
	
	lda FGetPutCopy
	bit #PutFlag		;don't need to calculate KBFreestr in we're 
	bne @inPutDLog		;in get dialog, we did need to update curdev though
	brl fini		;for routine BuildVolumeList
@inPutDLog	

	phd
	lda MyDpPtr
	tcd
	jsr DoDInfoCall	
	jsr DoVolumeCall
	bcc @volumeOk
	PushLong #ZeroString	;Got error from volume call which means we can't 
	PushLong #ZeroString	;calculate the amount of free memory on the disk, 
	PushLong #0		;so just use zero.
	PushLong #0
	_ParamText
	
@volumeOk	
	PushZLong DialogPtr
	_SetPort		;make sure the port is set.
	
	PushZLong DialogPtr
	PushWord #11
	_ShowDItem
	
	PushZLong DialogPtr
	PushWord #0011		;Put StatText item
	PushZPtr tempRect		;where to store the Rect
	_GetDItemBox
	PushZPtr tempRect
	_InvalRect		;rect is invalid and should redraw

	pld
	
fini	brl AllDone		;...and just leave
SameItem
*
* And now, in the catagory for the strangest written piece of code award....
*
	ldy #oWhen
	lda [EventPtr],y
	tax
	ldy #lastTime
	sec
	sbc [MyDPPtr],y		;get difference
	sta atemp		;use atemp to hold difference
	ldy #lastTime
	txa
	sta [MyDPPtr],y		;strange way to store new back intoDP!
	ldy #oWhen+2
	lda [EventPtr],y
	tax		;save a copy for temp store
	ldy #lastTime+2
	sbc [MyDPPtr],y
	sta atemp+2
	ldy #lastTime+2
	txa
	sta [MyDPPtr],y		;Ahhhhhhhh!  :-)
	PushLongSpace
	_GetDblTime		;just how long should we wait?
	pullAX		;we really don't care about the high word
	sec
	sbc atemp
	bmi AllDone		;too long
	dec ReturnFlag		;sets it to $FFFF (it was 0)
	ldx #0001		;OPEN BUTTON always!
	bit FGetPutCopy
	bpl @1
	inx		;put is 1 higher in the id.
@1
	txa
	sta [ItemHitPtr]		;say open
	lda #$0002		;need to hilight the button (will change to 1)
	ldy #openButStat
	sta [MyDPPtr],y
	brl SpecialOpenButton	;Double click: Light Open, disable ACCEPT (if needed)
NotList1
	ldy #ScrollControl1
	lda FoundControl		;ok, so check then next item
	cmp [MyDpPtr],y
	bne NotScroll1
	iny
	iny		;point to ScrollControl1+2
	lda FoundControl+2
	cmp [MyDpPtr],y
	bne NotScroll1		;may be more controls later!
	jsr TrackIt		;do track controll stuff
*	bra AllDone
NotScroll1
*** added 1-Apr-91 DAL -- if they click in the edit line, make the list not be active
	ldy #FGetPutFlag
	lda [<MyDPPtr],y
	bpl @notPut
	and #PutFileListActive
	beq @editLineAlreadyActive

*** removed absolute reference to item #10 19-Mar-93 SS	
*** look for any editline control instead
	pha
	pha
	pushlong FoundControl
	_GetCtlRefCon
	pla
	pla
	and #$7fff
	cmp #$0011
	bne @notEditLine
	
;	pha
;	pha	;space for GetControlDItem
;	pha
;	pha	;space for FrontWindow
;	_FrontWindow
;	pea 10
;	_GetControlDItem
;	plx
;	pla
;	cmp FoundControl+2
;	bne @notEditLine
;	cpx FoundControl
;	bne @notEditLine
*** end 19-Mar-93 SS
	jsr ToggleListTarget	;edit on - list off
@notEditLine
@editLineAlreadyActive
@notPut
notEditLine1
*** end of 1-Apr-91 DAL
*
* other items could be checked here
*
AllDone
*
* in case selected items changed...check the list and set the open button
*
	PushLongSpace
	PushLong #0000
	PushLong [MyDpPtr],ListRecPtr	;PushLong ListRecPtr	
	_NextMember		;search specified list record for selected item
	PullLong [MyDpPtr],pointer2	;put in temp
*
* if this is 0 nothing is selected.
* Y is left pointer to 'pointer2'+2 by PullLong macro above
*
	dey
	dey
	lda [MyDpPtr],y
	iny
	iny
	ora [MyDpPtr],y
	beq DisableBoth		;no items selected, disable both buttons
	PushLongSpace		;at least 1, perhaps more?
	PushLong [MyDpPtr],pointer2	;push what came back, start search here
	PushLong [MyDpPtr],ListRecPtr	;PushLong ListRecPtr	
	_NextMember		;search specified list record for selected item
	pla		;what came back
	ora 1,s		;did it come back 0
	ply		;fix stack
	tay		;test for 0
*
* if this is 0 only 1 item is selected, so enable both, else enable ONLY Accetp
*
	bne DisableOpenButton	;multiples disable open only
*
* multiple items selected, light ACCEPT button, dim Open Button
*
	lda #$0000		; item enabled
	bra obc
DisableOpenButton
	lda #$00FF
obc
	ldy #openButStat
	cmp [MyDpPtr],y		; see if the state changed
	beq @1		; then skip this, not necessary
	sta [MyDpPtr],y		; save the open button status
	ldx #1		; Open
	jsr DoButton
@1
	ldx #5		; Accept
	lda #0000		; item enables entry
	jsr DoButton
	bra done		; done here
DisableBoth
	lda #$00FF		; item not enabled
SpecialOpenButton
*
* entry here with status for Open button and always DISABLE ACCEPT (if needed)
*
	ldy #openButStat
	cmp [MyDpPtr],y		; see if the state changed
	beq @1		; then skip this, not necessary
	sta [MyDpPtr],y		; save the open button status
	ldx #1		; Open
	jsr DoButton
@1
	ldx #5		; Accept
	lda #$00FF		; item disabled
	jsr DoButton
*	bra done
Done
*
* now, if Put, check to see if the text edit field is empty and if so, set the Folder button and
* Save button accordingly.
*
	bit FGetPutCopy
	bpll ReallyDone		;PUT only does this check
	
	lda FGetPutCopy
	and #InVolumeList
	beq @CheckEditItem
	brl ReallyDone
@CheckEditItem
	ldx #$00FF		; guess not enabled
	ldy #writeProtect		; see if write protected, don't light button
	lda [MyDpPtr],y
	bne @1		;not enabled now.
	PushLong [MyDpPtr],DialogPtr	; the dialog pointer
	PushWord #0010		; item 10 = edit box
	PushZPtr editText		;temp location for 32 max chars.
	_GetIText		;get the string
	
	ldx #$00FF		; Guess item not enabled
	lda editText		; P string length (all I car about here)
	and #$00FF
	beq @1
	ldx #$0000		; nope, item is enabled
@1
	ldy #saveButStat
	txa
	cmp [MyDpPtr],y		;see if it changed
	beq ReallyDone		;skip this, not needed
	sta [MyDpPtr],y		;save new status
	pha
	pha		;save a copy for each button
	
	PushLongSpace
	PushLong [MyDpPtr],DialogPtr	; the dialog pointer
	PushWord #1		; save button
	_GetControlDItem		; get save buton on stack
	
	_HiliteControl		;set the button
	
	PushLongSpace
	PushLong [MyDpPtr],DialogPtr	; the dialog pointer
	PushWord #12		; Create folder button
	_GetControlDItem		; get create buton on stack

	_HiliteControl		;set the other button
	
	
ReallyDone	
	tsc	;clean up the stack
	clc
	adc #54	;get out extra stuff out of the way!
	tcs
	
	plb	; restore b
	pld	; restore d


	phb	; put extra byte on stack to "word" align
	pla	; pull long into x,a
	plx	; save "RTL"
	ply	; strip 6 words back off stack
	ply
	ply
	ply
	ply
	ply
	phx	;restore "RTL"
	pha	;pull one more byte of RTL's 3 bytes....

	plb	;...pull extra byte (well, Now it's 3 bytes!!!!)

	rtl	; done

dobutton
*
* pass item index in x and status information for the button in 'A'
*
	bit FGetPutCopy
	bpl @1		; Get item values. Put is one higher
	cpx #5		;if item 5 & Put, skip this button.
	beq dbdone
	inx
@1
	pha		; put status on stack
	PushLongSpace		; handle will return here.
	PushLong [MyDpPtr],DialogPtr	; the dialog pointer
	phx		; push item's ID
	_GetControlDItem		; get a handle to the open button
*
* returns handle to item on stack. Stack already has the desired state there!
*
	_HiliteControl		; Make sure it's on
dbdone
	rts

*
* SeeIfItemEnabled -- 12-Jan-91 DAL
*
* Input: A = dialog item ID
*
* Preserves A and X.
*
* Output: BCS = the button was disabled
*         BCC = item was enabled
*
*
SeeIfItemEnabled	pha
	phx

	pha	;keep a copy of the dialog item

	pha
	pha	;space for GetCtlDItem
	pha
	pha	;space for window pointer
	_FrontWindow
	lda 9,s	;get the temporary copy of the dialog item
	pha	;dialog item
	_GetControlDItem
	phd
	tsc
	tcd
	ldy #2	;deref the control handle
	lda [3]
	tax
	lda [3],y
	sta <3+2
	stx <3
	ldy #$11	;look at Hilite field
	lda [3],y
	and #$00ff
	tax	
	pld
	pla
	pla
	pla	;throw out temp copy of dialog item
	cpx #$00ff	;disabled?
	beq @disabled
	clc
@disabled	plx
	pla
	rts


**********************************************************************
*
* New MoveToLetter 25-Nov-90 DAL
*
* Use new List Manager ListKey function to allow arbitrarily long
* prefix strings to be typed.
*
CallListKey
MoveToLetter	ldx #0	;anticipate ListKey flags = 0 (don't skip first character)
	ldy #FGetPutFlag
	lda [<MyDPPtr],y
	and #InVolumeList
	beq @doKey
	inx
@doKey	phx	;flags (bit 0 set = ignore first character)
	pei <EventPtr+2
	pei <EventPtr
	ldy #ListControl1+2
	lda [<MyDPPtr],y
	pha
	dey
	dey
	lda [<MyDPPtr],y
	pha
	_ListKey
	rts

*******************************************************************************
*
* Check if this Item is active
* Input: A=ItemID
* Output: A=BOOLEAN active
* Uses stack frame, called from inside Filter
*
*******************************************************************************

IsItActive	pha	;(ItemID)
	pha		;space for GetCtlTitle
	pha
	pha		;space for edit line control handle
	PushLong [MyDpPtr],DialogPtr	; the dialog pointer
	lda 5,s	;(ItemID)
	pha
	_GetControlDItem
	_GetCtlTitle		;get the line edit record
	phd
	tsc
	tcd
* deref line edit record handle into line edit record pointer
	ldy #2
	lda [3],y
	tax
	lda [3]
	sta 3
	stx 5
	ldy #$24		;get active flag
	lda [3],y	;return in A
	pld
	plx
	plx
	rts
	
*******************************************************************************
*
* FindItemAfter10
* Runs around the list of controls and returns the ID in A of the next edit after #10.
*******************************************************************************
FindItemAfter10
	stz @item	;clr the found item #
@wrapAround
	pha	;spc for pointer
	pha
	pha	;spc for handle
	pha
	PushLong [MyDpPtr],DialogPtr
	_GetWControls	;get first ctl handle
	phd
	tsc
	tcd
	dsect 3
@handle	long
@pointer	long

@nextCtl	lda <@handle+1	;if NIL, we're done.
	bne @chk
	
@done	pld	;fix stk for completion or re-entry
	pla
	pla
	pla
	pla
	lda @item
	cmp #10	;if we have only found #10,
	beq @wrapAround	; we must go around again
	rts	; and return the next one after #10
	
@chk	ldy #2	;deref the ctl handle
	lda [<@handle],y
	sta <@pointer+2
	lda [<@handle]
	sta <@pointer
	
	pha
	pha
	pushzlong <@handle
	_GetCtlRefCon	;see if it's an edit line
	plx
	pla
	and #$7fff
	cmp #$0011
	bne @notEditLine
	
	lda @item	;have we already found one?
	beq @1stpass	; no, start the search with #10
	stx @item	; yes, then keep it
	bra @done	;  and check completion.
@1stpass	cpx #10	;found the start yet?
	bne @not10	; no, skip all til #10
	stx @item	; yes, continue with next ctl
@not10
@notEditLine	ldy #2
	lda [<@pointer],y	;get the next ctl handle
	sta <@handle+2
	lda [<@pointer]
	sta <@handle
	bra @nextCtl
	
@item	dc.w 0

*******************************************************************************
*
* UpdateTheDialog -- this is the Standard File window's content-draw routine
*
* In "normal" circumstances this doesn't get called at all, since ModalDialog
* gets our update events and handles them, with the help of our dialog filter
* procedure.
*
* This routine gets called by UpdateWindow (in the Window Manager), when there
* is a modal dialog in *front* of Standard File (like an AlertWindow, or a
* moveable-modal dialog being handled with DoModalWindow).
*
* There is a SetContentDraw that makes UpdateTheDialog the content-draw routine
* for the dialog window; it sets bit 31 to indicate we can safely get called
* without a sepcial environment (like a particular B or D register, a control
* substitution parameter pointer, or a certain ResourceApp).
*
*******************************************************************************
*** added draw proc for windows in front of me 19-Mar-93 SS
	export UpdateTheDialog
UpdateTheDialog	phb
	phk
	plb
	phd		;save current d	
	PushLongSpace		;results
	PushWord #0		;system tool
	PushWord #$0017		;Standard File tool set
	_GetWap
	pld		;set DP to old direct page for this routine
	pla		;toss upper
	
	pushzlong DialogPtr
	_DrawDialog
	lda FGetPutFlag
	jsr UpdateFocusFrame	
	pld
	plb
	rtl
	

**********************************************************************
*
* ToggleListTarget
*
* Needs the GetFilter stack frame.
*
* Toggle the PutFileListActive bit in FGetPutCopy and call
* UpdateFocusFrame.
*
**********************************************************************
ToggleListTarget		
	ldy #FGetPutFlag
	lda [<MyDpPtr],y
	eor #PutFileListActive
	sta [<MyDpPtr],y
	
	bit #PutFileListActive
	beq @deactivateList
	
	PushLong [MyDpPtr],DialogPtr	; the dialog pointer
	pea 8	;the item id
	pea 0	;select all
	pea $7fff
	_SelectIText
@deactivateList	
;;  update the status of the Edit Line item appropriately
;
;	pha
;	pha	;space for GetCtlTitle
;	pha
;	pha	;space for GetControlDItem
;	pha
;	pha	;space for FrontWindow
;	_FrontWindow
;	pea 10	;item number for edit line
;	_GetControlDItem
;	_GetCtlTitle	;this is the edit-line handle
;
;	ldy #FGetPutFlag
;	lda [<MyDPPtr],y
;	and #PutFileListActive
;	beq @enableEditLine
;	_LEDeactivate
;	bra @together
;@enableEditLine	
;*** added 8-Jul-91 DAL -- select the text while tabbing to the Edit Line
;	pea 0	;start
;	pea $00ff	;end
;	lda 3+4,s
;	pha
;	lda 3+4,s
;	pha	;copy of LE handle
;	_LESetSelect
;*** end 8-Jul-91
;	_LEActivate
;@together
	ldy #FGetPutFlag
	lda [<MyDpPtr],y

; v v v   Fall into UpdatefocusFrame

**********************************************************************
*
* UpdateFocusFrame
*
* Direct page needed: none
*
* Input: A = value of FGetPutFlag/FGetPutCopy/whatever
*
**********************************************************************
UpdateFocusFrame	phd
	pha	;local copy of FGetPutFlag
	tsc
	tcd

@localFGetPut	equ 1

*** if any visible edit line items, we need to draw the focus frame  23-Mar-93 SS
	lda <@localFGetPut
	and #HaveVisibleEdit
	bne @Vis
	brl @exit
@Vis

	lda #2	;set pen size to (2,1) or (1,1)
	bit <@localFGetPut
	bvc @640
	lsr a
@640	pha
	pea 1
	_SetPenSize

	ldx #0	;target color=$0000 (black)
	lda <@localFGetPut
	and #PutFileListActive
	bne @colorX
	dex	;not-target color=$FFFF (white)
@colorX	phx
	_SetSolidPenPat

	phd	;get the list control rectangle
	pushlong ffListHandle
	tsc
	tcd
	ldy #2
	lda [1],y
	tax
	lda [1]
	clc
	adc #8	;offset to control rectangle
	bcc @1
	inx
@1	phx
	pha
	pushlong #theFocusRect
	pushlong #8
	_BlockMove
	pla
	pla
	pld

	pha
	pha
	_GrowSize
	pla	;height
	pla	;width
	clc
	adc theFocusRect+6
	dec a
	dec a
	sta theFocusRect+6

	pushlong #theFocusRect
	ldx #-2	;anticipate 640 mode
	bit <@localFGetPut
	bvc @is640
	ldx #-1	;320 dX is only -1
	inc theFocusRect+2	;increment left edge for 320 List Manager funkiness
@is640	phx	;dX
	pea -1	;dY
	_InsetRect

	pushlong #theFocusRect
	_FrameRect

	_PenNormal
	
@exit	pla
	pld
	rts

theFocusRect	dc.w 0,0,0,0

	export ffListHandle
ffListHandle	dc.l 0

**********************************************************************
*
* Used to track the control items in the list manager when a scroll bar
* or button is touched or an item in the list
*
**********************************************************************
TrackIt 

*** added 1-Apr-91 DAL -- if they clicked on the PutFile list and it's not the target, make it the target
	ldy #FGetPutFlag
	lda [<MyDPPtr],y
	bpl @notPut
	and #PutFileListActive
	bne @alreadyActive
	jsr ToggleListTarget	;list on - edit off
@alreadyActive
@notPut
*** end of 1-Apr-91 DAL

*
* restore the saved refcons
*
	PushLong [MyDPPtr],ListRefCon	;the refcon of the list
	PushLong [MyDPPtr],ListControl1
	_SetCtlRefCon

	PushLong [MyDPPtr],ScrollRefCon
	PushLong [MyDPPtr],ScrollControl1
	_SetCtlRefCon


	PushWordSpace
	PushLong [EventPtr],oWhere
	PushLong #$FFFFFFFF
	PushLong FoundControl
	_TrackControl
*
* above returns "action" number of what happened. For now it's left on the stack
*
*
* and once again the damn list manager requires zeroing the damned refcons!!!!
*
	PushLong #0		;zero the refcon of the list
	PushLong [MyDPPtr],ListControl1
	_SetCtlRefCon

	PushLong #0
	PushLong [MyDPPtr],ScrollControl1
	_SetCtlRefCon
	
	pla		;get _trackControl info off stack
*	beq exit
*
* any additional action control would go here
*
exit
	rts

	ENDP

**********************************************************************
* Builds a list of file names from the current path. This will Open the
* directory specified by Prefix 8 (or prefix 0 if 8 is blank), and build
* a list of file and folder names. The directory is closed when the build
* is completed.
* 
* Errors are returned and no list is built if errors. Possible errors
* include out of memory and bad path or prefix.
*
* This routine effects a great deal of direct page locations too numerous
* to mention. (Oh, do I have too?)
*
* I would also assume that all the registers are effected as well!
*
**********************************************************************
BuildListRoutine	PROC
	EXPORT CompareRoutine
	EXPORT BuildExit
	EXPORT BuildList
	IMPORT GetZeroHandle
DimmedFile	equ ztemp1		;usage of temp
*
*
* ENTRY TO BUILDLIST IS BELOW EXIT POINT
*
*
BuildExit
*
* OK, quiet down. I put the exit up here so it's closer to more branches!!!
*
	php
	pha		;save error status and code (if any)
	jsr ClosePrefix		;close this directory
	
	pla
	plp
	rts
*
*------------------------entry to BuildList-------------------------------------------
*
BuildList

	lda FGetPutFlag		; Clear the flag that says we're currently
	and #$FFF7		; displaying the volume list.
	sta FGetPutFlag	
*
* step 1, find and open the selected volume
*	
	jsr GetFirst		;Find and open the volume (carry set if error)
	bcs BuildExit		;no error returned
AllOk
*
*Step 1.5, dispose of old handle.
*
	ldax ListPointerHandle
	jsr KillHandle		;gets rid of any old handle 
*
* step 2, do a get_dir_entry on the returned volume to get the number of entries
*
	jsr ReadDirSize		;calls ReadAnEntry with 0,0 for size of directory
	bcs BuildExit
*
* size of this directory returned in A as a FIRST guess to the amount of memory needed
* for the Name ListManager pointer table. So now we get some memory for the list
*
	inc a		;this will prevent a 0 from screwing up.
	inc a		;a little extra space (Fudge Factor)
	pha
	asl a		; do times 4 (clear carry too!)
	asl a		;X4
	adc 1,s		;x5 bytes per entry
	plx		;toss away pushed handle
*
* CAUTION: Can't have more than 13,107 files in a directory
*
	jsr GetZeroHandle		;List pointer memory (will grow if needed)
	stax ListPointerHandle	;returns handle to memory which is all 0
	PushAx		;push for the derefandlock
	jsr DerefAndLock		;returns a pointer to memory
	stax ListPointerPtr
*
* so now we have a place to build the Pointers and flags to the List Member's strings.
* Except here, instead of actual pointers to the strings, these will be OFFSETS from the
* begining of the buffer area. This will allow me to grow the memory area without having
* to update all the pointers. Since I am going to do my own custom draw routine, the
* List Manager will never need to know about this change!
*
*
* so now it's time to build the actual list (First pass is unsorted)
*
	stz StringsLength		;init length "used" in String array
	stz StringsLength+2	;init length "used" in String array
	stz StringsOffset		;next element value (start 0)
	stz ztemp2		;count of items
dir_loop	
	jsr ReadNextDirEntry	;get next entry into [NamePtr]
	bcc Rno_error
	cmp #$61		;end of directory?
	beql Builddone
	sec		;set error
*
**DEBUG**, a strange director error occured which was not end of directory. What should
* I do with this error? Should I ignore the entry and continue or simply fail?
*
	bra BuildExit		;simply return error
Rno_error
	lda ParAccess_GDE		;access of this entry
	and #$0004		;bit set
	beq NotInvisible
	and invisible		;if bit clear, this will result in zero
	beq dir_loop		;skip it!
Notinvisible
	jsr ValidEntry		;see if this is valid and or dimmed
	beq dir_loop		;skip this guy
	inc ztemp2		;count 1 to display
*
* Add this guy to the list
*
	lda StringsOffset		;update pointers
	sta [ListPointerPtr]	;offset to this string

	lda DimmedFile		;need to dim this entry?
	bpl NoDim
	shortm
	lda #MEM_DISABLE+NOT_POSSIBLE
	ldy #$0004
	sta [ListPointerPtr],y	;disable this item if not folder
	longm
NoDim
	lda ListPointerPtr		;move the pointer forward
	clc
	adc #$05		;each element is 5 bytes
	sta ListPointerPtr		;next slot
*** added 21-Dec-90 DAL: Here's the fix for that annoying repeating-entry bug that kept showing up
*** (This 4-byte patch has been needed for about 4 years.  Neat, eh?)
	bcc @dal1
	inc ListPointerPtr+2
@dal1
*** end of 21-Dec-90 DAL addition

	ldy #2		;start of actual string (length)
	lda [NamePtr],y
	tax		;x gets size of string
	lda NamePtr
	clc
	adc #04		;pointer to start of string
	sta NamePtr
	bcc @1
	inc NamePtr+2		;NamePtr points to start of string
@1
	jsr ExtendHandle		;size of string in x. See if enough room
	bcsl BuildExit		;out of memory
*
* x was preserved in the above call
*
* Now copy the string into the memory area reserved for the strings
*
	ldy StringsOffset
	txa
	sta [StringsPtr],y		;copy length to [StringsPtr]
	iny
Bcopy_loop
*
* Note: The following assumption is made here:
*   There will be no more than 65k bytes worth of file names (path not included).
*   This averages approx 2000 files of 32 characters per file name.
*
	lda [NamePtr]
	sta [StringsPtr],y		;copy string to [StringsPtr]
	incl NamePtr		;bump pointer
	iny
	dex
	bne Bcopy_loop
	
	lda FileType
	sta [StringsPtr],y		;copy string to [StringsPtr]
	iny
	iny		;this IS a word
*
* Matt's addition for Claris, add the AuxType after the fle type following the string.
*
	ldax AuxType
	sta [StringsPtr],y
	iny
	iny
	txa
	sta [StringsPtr],y
	iny
	iny
******************************************
	sty StringsOffset		;save y

	PushZLong NameHandle
	jsr DerefAndLock
	stax NamePtr		;restore the original NamePtr

	brl dir_loop		;loop back and store y

BuildDone
*
* Now that we have the list lets do something with it (it's still unsorted)
*
* First thing is to change the offsets in the List Manager Ptrs to real addresses
* and pass this to the list manager.
*
	lda ztemp2		;number of entries actually found
	ldy #ListRecord.ListCount
	sta [ListRecPtr],y		;number of entries found.

	lda ListPointerPtr		;low word of next available slot
	sta ztemp2		;temp storage location (used below)

	PushZLong ListPointerHandle	;go back and get base address of the strings
	jsr DerefAndLock
	stax ListPointerPtr		;save address of first slot.		
	
	lda ztemp2		;last entry - base address
	sbc ListPointerPtr
	tay		;y = offset to next available slot

	phy		;save offset to last.
	PushZLong StringsHandle
	jsr DerefAndLock		;get base pointer
	stax StringsPtr		;might as well put it back again
	ply		;restore y
*
* ok, now add the real address of the strings memory to the offsets saved while building the list
*
ptrupdate
	lda [ListPointerPtr],y	;low word
	clc
	adc StringsPtr
	sta [ListPointerPtr],y
	iny
	iny
	lda StringsPtr+2
	adc #0		;prop carry
	sta [ListPointerPtr],y
	tya
	sec
	sbc #$0007		;-5 and 2 more for iny's above
	tay
	bcs ptrupdate		;not done yet!
	
	ldax ListPointerPtr		;Save list address in the List Manager's record for get file
	stax [ListRecPtr],ListRecord.listPtr	

*
* now sort the list of names (by re-arranging the pointers)
*
*** 25-Mar-91 DAL -- see if it's the Volumes list; use SortList(#1) for regular files
	lda <FGetPutFlag
	bit #InVolumeList
	bne @inVolList

	PushLong #1
	bra @together

@inVolList
*** end of 25-Mar-91 DAL
	PushLong #CompareRoutine
@together	PushZLong ListRecPtr	;pointer to the list
	_SortList		;sort list elements

	jsr SelectFirst		;select the first possible item

	jsr DoGetFileInfo		;set up moddate time info on entry
	ldx #6		;move 4 words
	ldy #FileModInfo+6		;destination
@4
	lda ParmodTD_GFI,x		;move mod date and time into a holding location.
	sta [DInfoPtr],y
	dey
	dey
	dex
	dex
	bpl @4

	clc		;no carry = no error
	brl BuildExit
	

**********************************************************************
*
* Routine used to compare two items as given by the list manager
* for sorting. Carry out indicates status of compare.
* CC = member A >= member B, CS = member A < member B
*
* Note that this routine is called by the List Manager during the
* toolbox call _SortList (as used above). No Standard FIle variables
* or local storage are used.
*
* Taken from list manager and modified slightly, this code is now included
* here so that upper and lower case names sort as if the case did not matter.
*
*   IN:    PUSH:LONG - pointer to member A
*          PUSH:LONG - pointer to member B
*
*  OUT:    Carry
*
**********************************************************************
CompareRoutine
	DefineStack
tempReg	word
strg1	long
strg2	long
origD	word
RtlAdr	block 3
sptr1	long
sptr2	long

	phd	;save old direct page
	tsc	;copy stack ptr to 'A'
	sec
	sbc #10	;room for temp varible and pen mask
	tcs
	tcd	;set direct page (to stack)

	lda [sptr1]	;"deref" the member pointer
	sta <strg1
	lda [sptr2]	;"deref" the member pointer
	sta <strg2
	ldy #2
	lda [sptr1],y
	sta <strg1+2
	lda [sptr2],y
	sta <strg2+2
	
	ldy #0
	lda [<strg1]
	xba	;added 25-Mar-91 DAL (this wasn't working right before)
	and #$00FF
	cmp #$003A	Is it a colon. If it is then we're in the volume list mode
	beq @InVolList
	cmp #$002E
	bne @notInVolList
@InVolList	iny
@notInVolList
	shortm
; begin compare
	
lop10	tya
	iny
	cmp [<strg2]	End of gopher string?
	beq greater

	cmp [<strg1]
	beq lessthan	End of current string?

	lda [<strg2],y	Grap a byte.
	and #$0DF	drop upper case bit
	sta tempReg
	lda [<strg1],y
	and #$0DF	drop upper case bit
	cmp tempReg
	beq lop10
	bra exit10	Carry flag is ready	for exit. 
greater
	sec
	bra exit10
lessthan
	clc	current string < gopher string.
exit10
	longm

; ready to leave
;
	lda RtlAdr+1		;move the return address down the stack
	sta sptr2+2
	lda RtlAdr
	sta sptr2+1
	lda origD		;set the original direct page
	tcd
	tsc		;start adjusting the stack
	php		;but first save the carry bit
	clc		;adjust the stack, but don't set it yet
	adc #20
	plp		;restore the carry bit
	tcs		;finish adjusting the stack
	rtl		;..and return

	
**********************************************************************
*
* This routine is used to determine if a file is dimmed and or
* displayed.
*
* Entry: Uses direct page variables to access information about currently
* read file.
*
* Exit: Z flag = true if entry is to be skipped, else entry is ok.
*       Direct page variable DimmedFile (actually ztemp1) has dimmed status.
*
* Uses direct page: ztemp1 (aka DimmedFile), ztemp3
*
**********************************************************************
ValidEntry	stz DimmedFile		;guess not dimmed.
	
	lda FileType
	cmp #$000F		;Folder?
	beq GoodFolder		;folders always displayed
	sec
	ror DimmedFile		;guess dimmed
	lda FGetPutFlag		;if Put we dim the rest
	bmi good		;forget rest in put
	lsr a		;see if old call (leave in carry)
*
* the rest of this routine down to 'Bad' is for Get only, old style type lists
*
	stz DimmedFile		;back to not dimed again
	lda TypeList+1		;is there a Type List? (cheat check)
	beq GoodfType		;no type list, check for a routine.

*
* old style type list check. Will need to update this to check Aux types as well
*
	ldy #$0002		;will point to flags for new calls
	lda [TypeList]		;number of entries
	bcc NewTypeCheck		;old/new flag bit left in carry
	and #$00FF		;up tp 256
	beq GoodfType		;silly, but maybe 0 entries!
	tay		;scan through the list
NextType
	lda [TypeList],Y		;Get a type
	and #$00FF
	cmp FileType		;see if ok type
	beq GoodfType
	dey
	bne NextType
*------------------------------------------------------------
Bad
	lda #00
	rts
	
GoodFolder	lda ParAccess_GDE		;of the folder.
	and #$0001		;Do we have read access?
	bne AccessOk
	ror DimmedFile		;dim the darn folder since you don't have the privileges.
*
* If multifile mode, they may NOT want to display certain folders so I guess they
* should be passed to any filter proc if available. This will allow them to skip 
* certain folders (but why?)
*
AccessOk	lda FGetPutFlag
	bit #MultiFIleMode		;multi-file?
	bne GoodfType		;yes, pass this to the filter proc
Good
	lda #True
	rts
NewTypeCheck			;a = number of entries (up to 65k)
	beq GoodfType		;no type list, continue
	tax		;count into x as counter
	inx		;cheat so I can pre-decrement
	bra NextNewType
*
* the below branch points are to allow me to move forward through the type list record to the next
* entry when something does not match in the list.
*
NExTNewType6
	iny
	iny
NExTNewType4
	iny
	iny
NExTNewType2
	iny
	iny
NExTNewType
	dex
	beq Bad		;forget it, no match found!
	lda [TypeList],y		;flags
	sta ztemp3		;save them
	iny
	iny		;to file type
	bit ztemp3		;see if I need to check file type
	bvs @1		;nope, wild card file type bit set
	lda [TypeList],y		;file type
	cmp FileType		;first check!
	bne NextNewType6		;file type mismatch, move forward 6 bytes
@1
	bit ztemp3		;see if I need to check aux type.
	bmi GoodfTypeNew		;nope, wild card aux type.
	iny
	iny		;now check the aux type
	lda [TypeList],y
	cmp AuxType
	bne NextNewType4		;aux type mismatch, move forward 4 bytes
	iny		;now check the aux type, word 2
	iny
	lda [TypeList],y
	cmp AuxType+2
	bne NextNewType2		;aux type mismatch. move on 2 bytes to next entry
GoodfTypeNew
*
* if here, we have a good match on both type and aux (or wild card match of some sort).
*
	lda ztemp3		;bit 13 says dim this selection
	asl a
	asl a		;into bit 15
	bpl GoodfType		;not set so leave it up to the possible filter proc
	sec
	ror DimmedFile		;say dimmed
	bra Good		;and return
GoodfType
*
* this section only used by Get type calls
*
	lda FilterProcPtr+1	;is there a User Hook ?(Cheat check)
	beq Good		;none, lets get out of here!

	pha		;Space for Result in below call
	
	lda FGetPutFlag		;old or new call
	lsr a
	bcc NewCall		;go do with existing block
*
* old call must create a ProDos look alike entry.
*
	jsr dir_translate		;create a ProDos look alike block
	PushZLong ProDosDirEntry
	bra CommonCall		;continue....
NewCall	
***	PushZPtr ParBlock		;Entry read with GS/OS
	pushlong #GDE_ParBlock	;25-Mar-91 DAL
CommonCall
	lda #(ReturnAdr-1)>>8	;Where we return to!
	pha
	lda #ReturnAdr-1
	and #$00FF
	xba
	ora FilterProcPtr+2
	pha
	lda FilterProcPtr
	dea
	pha
	rtl		;"jsl" to the user routine
ReturnAdr
	pla		;returned value
	bne OkToDisplay		;0 = don't display
	brl Bad
*
* return code is 1 = no select or 2 = normal
*
OkToDisplay	cmp #$0001		;dimmed?
	bne Good		;say good
	sec
	ror DimmedFile		;say dimmed again
	brl Good		;and display it.

	ENDP


**********************************************************************
*
* DirTranslate - used to convert the new GS/OS GetDirEntry call to 
* an old ProDos type call WHEN an old call has a filterProc. I was 
* originally going to translate everything as close as possible but
* old standard file only translates a few items and all apps work OK
* there so I'm not going to bother either!!! 
* 
* Ok, I'll do it all! (11/14/88)
*
* Uses; dpage temps: handle
**********************************************************************
dir_translate	PROC EXPORT
	ldy #$26		;size of PorDos Dir Entry record
	lda #$0000
ce_clear_loop 
	sta [ProDosDirEntry],y	;clear the entire area to 0
	dey
	bpl ce_clear_loop
	
*
* copy the name from the name pointer to the memory area of the ProDos Block.
* The assumption is made here that since a length is stored we don't really care if we
* copy over additional garbage as well so we move 16 characters always! 16? Oh yea, I 
* "fix" the length word to put the size in the right byte and move 8 words which is 
* faster than 15 bytes and then I put back the length word as it belongs.
*
	ldy #02
	lda [NamePtr],y
	xba
	sta [NamePtr],y		;sawp length "word"
	lda ProDosDirEntry		;need a pointer to the destination
	sec
	sbc #3		;name location offset to allow use of Y
	sta pointer		;temp location as pointer
	lda ProDosDirEntry+2
	sbc #0
	sta pointer+2
	
	ldx #$0008
	ldy #0003
ce_move_loop
	lda [NamePtr],y
	sta [pointer],y		;copy over the name
	iny
	iny
	dex
	bne ce_move_loop
	ldy #02
	lda [NamePtr],y
	xba
	sta [NamePtr],y		;sawp length "word" back as it was.
	
	

	ldax ProDosDirEntry		;create a pointer to get at the other destinations
	clc
	adc #PDType
	bcc @1
	inx
@1
	stax pointer		;this pointer will track the other items	
	lda ParFileType_GDE		;GS/OS file type
	and #$00FF
	sta [pointer]		;file type

	ldy #0003		;y as the offset starting at blocks used
	lda ParBlocks_GDE
	sta [pointer],y		;blocks used
	iny
	iny
	lda ParEOF_GDE		;first 3 bytes of EOF
	sta [pointer],y
	iny
	lda ParEOF_GDE+1
	sta [pointer],y
	tya
	clc
	adc #$08		;pass time & date, ver, min_ver.
	tay
	lda ParAccess_GDE
	sta [pointer],y		;low,high Access (but we only need 1 byte...)
	iny		;y point to AuxType
	lda ParauxType_GDE		;low of aux
	sta [pointer],y
*
* now convert the time fields
*
* First, creation time and date
*
	ldax ProDosDirEntry		;create a pointer to get at the other destinations
	clc
	adc #PDCreateDate
	bcc @2
	inx
@2
	stax pointer		;this pointer will track the other items	
*** changed 25-Mar-91 DAL (the GDE parm block is no longer on direct page)
***	ldaxzptr ParCreateDT_GDE	;pointer to time and date
	ldx #^ParCreateDT_GDE
	lda #ParCreateDT_GDE
*** end of 25-Mar-91 DAL
	stax pointer2
	jsr convert_time		;time returned in x and Y
	phy
	txa
	sta [pointer]		;save date
	ldy #0002
	pla
	sta [pointer],y		;save time
*
* Now the mod date and time
*
	ldax ProDosDirEntry		;create a pointer to get at the other destinations
	clc
	adc #PDModDate
	bcc @3
	inx
@3
	stax pointer		;this pointer will track the other items	
***	ldaxzptr ParModDT_GDE	;pointer to time and date
	ldx #^ParModDT_GDE	;25-Mar-91 DAL
	lda #ParModDT_GDE
	stax pointer2
	jsr convert_time		;time returned in x and Y
	phy
	txa
	sta [pointer]		;save date
	ldy #0002
	pla
	sta [pointer],y		;save time

	rts

	ENDP

;======================================================================
;We call this entry point if the time parameters are setup and need
;only to be convert to the ProDOS format.
;
;Input: GS/OS time field in Get File Info pointed to by [pointer2]
;       (This could be either createTimeDate or modTimeDate.)
;
;Output: format of time:
; 
; |<-------- X Register --------->|<-------- Y Register --------->|
; |                               |                               | 
; |<--high Byte-->|<--low  Byte-->|<--high Byte-->|<--low  Byte-->| 
;  _______________________________________________________________
; | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | |
; |    year     | month |   day   |0 0 0|  hour   |0 0|   minute  |
; |_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|_|
; 
;======================================================================

convert_time	PROC EXPORT
	stz pro_time
	stz pro_time+2	;start with a clean slate
	ldy #day_GDE
	lda [pointer2],y	;day
	and #$001F	;5 bits
	sta pro_time	;save the day in prodos format
	ldy #month_GDE
	lda [pointer2],y	;month
	and #$000F	;4 bits
	asl a
	asl a
	asl a
	asl a
	asl a	;shift to correct position
	ora pro_time	;month is now happy
	sta pro_time
	ldy #year_GDE
	lda [pointer2],y	;year
;;;	and #$007F	;7 bits
*** added 29-Jan-92 DAL -- a class-0 year is 40..99 for 1940..1999, 0..39 for 2000..2039
*** (return unknown-date/time (all zeroes) for out-of-range dates)
	and #$00ff	;year (offset from 1900)
	cmp #40
	bcc @unknownDate
	cmp #139+1
	bcs @unknownDate
	cmp #100
	bcc @yearOK
;	sec
	sbc #100
@yearOK
*** end 29-Jan-92 DAL
	xba
	asl a	;shift year to upper 7 bits
	ora pro_time
	sta pro_time	
	ldy #minutes_GDE
	lda [pointer2],y	;minutes
	and #$003F	;6 bits
	sta pro_time+2
	ldy #hours_GDE	;hours
	lda [pointer2],y
	and #$001F	;5 bits
	xba
	ora pro_time+2
	sta pro_time+2	
;;;	sta pro_time+2	;redundant, 25-Mar-91 DAL
	tay	
	ldx pro_time	
	rts

*** added 29-Jan-92 DAL
@unknownDate	ldx #0
	txy
	rts
*** end 29-Jan-92
	
	ENDP


**********************************************************************
*
* Scan through the list and select the first possible item that can
* be selected. Used in BuildList for a new list and also by UpDown arrow
* control if nothing is selected
*
* Changes the contents of 'seletedptr' if an item is available for
* selection and sets its select bit. If the list is empty or nothing 
* can be selected the routine selects nothing and returns with 
* 'selectedptr' nil. 
*
**********************************************************************
SelectFirst	PROC EXPORT
*
* if the list is not empty hilight the first element of the list
*
	ldy #ListRecord.listCount
	lda [ListRecPtr],y		;how many entries in this list
	beq looksempty
notempty
	pha
	asl a
	asl a
	clc
	adc 1,s		;* 5
	sta ztemp2
	pla		;clean stack
	ldy #$FFFF		;look throught list (proper offset to get to first item
	shortm
keeplooking
	iny
	iny
	iny
	iny
	iny
	cpy ztemp2		;past end of list
	bcs looksempty		;if no items to hilight, just look empty!
	lda [ListPointerPtr],y
	bit #MEM_DISABLE+NOT_POSSIBLE	;item disabled
	bne keeplooking		;find me a selectable slot
	ora #MEM_SEL		;set selected bit
	sta [ListPointerPtr],y
	longm
*
* Need a pointer to hand to _NewList so it selects the right item. Here is another reason
* there cannot be more than 13,107 items in the list! (y is a word!!!!!)
*
	tya
	sec
	sbc #0004		;pointer to start of this record
	clc
	adc ListPointerPtr
	sta selectedptr
	lda ListPointerPtr+2
	adc #0000
	sta selectedptr+2
Exit
	rts
looksempty
	longm
	stzl selectedptr		;no item selected
	rts
	
**********************************************************************
*
* Save and Zero the Ref Cons (wonderful thing the list manager, eh?)
*
**********************************************************************
	ENTRY SaveAndZeroRefCons
SaveAndZeroRefCons	pha		; Get the ref con of the list
	pha		; control and save it
	PushZLong ListControl1
	_GetCtlRefCon
	pla
	sta ListRefCon
	pla
	sta ListRefCon+2

	lda ListControl1		; now find the handle to the
	sta handle		; scroll bar control
	lda ListControl1+2		; (it's at the end of the record
	sta Handle+2		; used by the list control)

	lda [Handle]
	sta Pointer
	ldy #2
	lda [Handle],y
	sta Pointer+2

	ldy #octlListBar		;a known offset (page 11-9 IIgs Reference Book)
	lda [Pointer],y
	sta ScrollControl1		;handle of lists control's scroll bar control
	iny
	iny
	lda [Pointer],y
	sta ScrollControl1+2

	pha		; use this to save and zero
	pha		; ref con of the Scroll bar control
	PushZLong ScrollControl1
	_GetCtlRefCon
	pla
	sta ScrollRefCon
	pla
	sta ScrollRefCon+2

ZeroRefCons	
	PushLong #0		;zero the refcon of the list
	PushZLong ListControl1
	_SetCtlRefCon

	PushLong #0
	PushZLong ScrollControl1
	_SetCtlRefCon

	rts
	ENDP


**********************************************************************
*
* These routines sets the state of the close button to enabled or disabled:
* The common button entry may be used to set either and depends on the value
* of y upon entry.
*
* If the button is already in the desired state no action is taken.
* The global variable openButStat is updated to the new state.
*
* Note that similar functions are performed in the filter routine so
* that some changes take place as soon as items are hit.
*
* if called at the CommonOpen entry, the state must be in 'a'
*
**********************************************************************
SetClose	PROC EXPORT
	EXPORT EnableClose
	EXPORT DisableClose
	EXPORT CommonOpen
*
* set the close button according to the status of topflg
*
*	jsr check_for_top
*	lda topflg		;0 = top level

	lda FGetPutFlag
	and #InVolumeList
	bne DisableClose		;needs to be disabled (waste and fall though otherwise)
EnableClose
	lda #$0000
	bra commonClose
DisableClose
	lda #$00FF		; item not enabled
CommonClose
	ldy #0002		; close ID (Get)
	cmp closeButStat		; see if the state changed
	beq Done		; then skip this, not necessary
	sta closeButStat		; save the new status
	bra CommonButton
CommonOpen
	ldy #0001
	cmp openButStat		; see if the state changed
	beq Done		; then skip this, not necessary
	sta openButStat		; save the new status
CommonButton
	pha		; save state
	PushLongSpace		; handle will return here.
	PushZLong DialogPtr		; the dialog pointer
*
* the item id goes up by 1 if this is PUT and not GET
*
	jsr PutAdjust
	phy		; push item's ID
	_GetControlDItem		; get a handle to the open button
*
* returns handle to item on stack. Stack already has the desired state there!
*
	_HiliteControl		; Make sure it's on
Done
	rts
	ENDP


**********************************************************************
*
* GetSelected -- will pass through the list managers list and get the
*  first item  selected by checking the selected bit.
* A pointer to the string selected is returned in A and X
* N bit set true if item pointer return NIL.
*
* GetNextSelected -- will return the next selected item AFTER the member
* passed in A&X
*
* uses: ztemp3
*
**********************************************************************
GetSelected	PROC EXPORT
	EXPORT GetNextSelected
	
	lda #0000
	tax		;always first item
GetNextSelected
	PushLongSpace
	PushAX
	PushZLong ListRecPtr
	_NextMember		;search specified list record for selected item
	PullLong ztemp3		;put in temp
*
* if this is 0 nothing is selected.
*
	lda ztemp3+1		;cheat check for 0
	beq @done
	ldax ztemp3		;return "handle"
	rep #%00000010		;make sure z bit is cleared!
@done
	rts
	ENDP

**********************************************************************
*
* DirectoryUp -- Step back one directory level. If no levels to
* go back to, return same.
*
* Exit: Carry set if a change occured.
*
**********************************************************************
DirectoryUp	PROC EXPORT

*
* the assumption is that the current path is already pointed to by the
* ptr 'PrefixPtr' in a class 1 string
*	
	ldy #$0002		;length of string
	lda [PrefixPtr],y		;get length
	clc
	adc #$0003		;pass up buffer length and string length - 1
	tay		;hold it!
	shortm		;****SHORT MODE******
	lda Seperator		;current seperation character
loop
	dey
	cpy #$0004		;if here, we have done whole stirng
	beq done		;we are finished if we get here
	cmp [PrefixPtr],y		;see if this is a seperation character
	bne loop		;keep looking
*
* if here, we found a seperation character. Simply store this as the new string length to backup
*
	longm		;*******back to long mode
	tya
	sec
	sbc #0003		;subtract off buffer additions
	ldy #$0002
	sta [PrefixPtr],y		;this shortens the string
	jsr SetThePrefix		;reset the prefix
	jsr check_for_top		;check for top level
	sec
	rts		;return up ok (carry clear)
done
	longm		;*****back to long mode (in case we branched)
	stz topflg
	clc		;no change flag
	rts
	
	ENDP
	
	
**********************************************************************
*
* DirectoryDown -- Step down one directory level. The name of the
*  directory to step to will be indicated by the string selected
*  in the list.
*
* On exit, carry set indicates a change took place else the carry 
* is clear
*
**********************************************************************
DirectoryDown	PROC EXPORT

*
* the assumption is that the current path is already pointed to by the
* ptr 'PrefixPtr' in a class 1 string and the next level is indicated by
* which member of the list is highlighted.
*
	jsr GetSelected		;find which picked
*
* returns pointer to the selected string in A & X. Returns 0 if nothing sleceted.
*
	beq @1
	PushAX		;convert returned member to string pointer.
	jsr DerefHandle		;deref handle
	stax pointer2		;pointer to the string
	jsr AddToPrefix		;add name to prefix string
	
	sec
	ror topflg		;non-0 indicates not top
	jsr SetThePrefix		;reset the prefix
	sec		;carry set indicates a change took place
	rts
@1
	clc		;carry clear indicvates no change happened
	rts

	ENDP
**********************************************************************
*
* See if I am at the root level and set the dpage variable
* 'topflg' to non zero if not otherwise zero it. Assumes that a call to
* GetThePrefix has already been made so that the dpage variable
* 'Seperator' is set correctly.
*
* Uses a,y. Changes topflg
**********************************************************************
check_for_top	PROC EXPORT
	ldy #$0002
	lda [PrefixPtr],y		;length of prefix string
	clc
	adc #$0003		;past buffer again (sheesh!)
	tay
	stz topflg		;guess we are at the top
	shortm
	lda Seperator		;get the seperation char
loop2
	dey
	cpy #$0004		;if here, we have done whole stirng
	beq done_changed		;we are at the top if we branch
	cmp [PrefixPtr],y		;see if this is a seperation character
	bne loop2		;keep looking
*
* if we fell through there is still at least another layer left!
*
	dec topflg		;indicate not top yet
done_changed
	longm
	rts

**********************************************************************
*
* Add to Prefix. This routine will add the name in the string
* pointed to by A&X to the string already pointed to by PrefixPtr. The
* prefix is NOT updated here as this routine is also used to build the
* path for the call return (path+file name) as well as just the new prefix.
*
* Uses: ztemp3, pointer2 A, X, Y. Change string pointed to by PrefixPtr
*
**********************************************************************
AddToPrefix	PROC EXPORT
	stax pointer2		;source location
	ldy #$0002		;length of string
	lda [PrefixPtr],y		;get last slot 
	clc		;get a pointer to the last character (y will point to next)
	adc #$0003		;ASSUMPTION, no overflow here!
*
* GS/OS limits path naes to 8K so I know this won't overflow at +4
*
	adc PrefixPtr		;pointer to end of current string
	sta ztemp3		;use D page temp pointer
	lda PrefixPtr+2
	adc #0
	sta ztemp3+2		;upper byte

	lda [pointer2]		;get length of string (folder or file)
	and #$00FF		;max length is 255
	tay
	phy		;save a copy of length
@loop
	lda [pointer2],y
	sta [ztemp3],y
	dey
	bne @loop		;max folder name length is 32K (oh damn!)
*
* add the seperation character
*
	ply		;recall last character location (from above)
	iny		;one past
	shortm		;WARNING...last minute change
	lda Seperator		;get current seperation character
	sta [ztemp3],y		;add the seperation char to the end
	longm
	tya		;move size added to a
	ldy #$00002
	clc
	adc [PrefixPtr],y		;add length of original string
	sta [PrefixPtr],y
*
* probably again should check to see of the path length is greater than 512 (508 actually)
* and re-size the handle but again I am being too lazy and we will assume that 508 is
* max path size at this time
*
	rts
	ENDP

**********************************************************************
* 
* GetFirst -- Find and Open directory of selected volume as indicated
* by the device specified by Prefix 8. If Prefix 8 is blank, then
* Prefix 0 is taken and copied to Prefix 8.
* Assuming the Prefix 8 is small enough, prefix 8 is coppied to Prefix 0.
*
* NOTE: If the entry was from an old standard file call, we start with
* with prefix 0 instead. 8 will also get the contents of 0 at this point.
*
**********************************************************************

GetFirst	PROC EXPORT
	With PopUpGlobals
*
* ASSUMPTION: At this time no prefix can be more than 512 bytes due to size of allocated memory
* will need to code to expand this later.
*
	ldx #$0008		;guess will use 8
	lda FGetPutFlag
	lsr a		;see if an old call
	bcc NotOld
	ldx #$0000		;old calls use prefix 0
NotOld
	txa		;get the prefix needs # in a
	jsr GetThePrefix		;get the prefix string
	bcs Error		;error, how strange!
*
* Prefix string is now at [PrefixPtr]
*
	ldy #2		;length of string is after buffer length
	lda [PrefixPtr],y
	bne OkPrefix		;if non-0, we found a string in #8
*
* yea, I know. I may have already done 0 if this was an old call. No big deal trying again!
*
* (ALREADY 0)	lda #0
	jsr GetThePrefix		;8 was unused, try prefix #0
	bcs Error
*
* copy 0 to 8 as we need it there. (What if 0 was empty??? Can this happen?)
*
	lda [PrefixPtr],y		;see if also 0 length
	beq Error		;on no, both blank
OkPrefix
	jsr DoGetFileInfo
	lda ParFileType_GFI		;make sure the filetype is a directory FileType
	cmp #$000F
	bne Error		;if not directory then go to next volume

	jsr SetThePrefix		;make 0 & 8 the same.
	jsr OpenPrefix		;open the directory specified by prefix
	bcc @openOk
	cmp #$004E		;was the open error caused by an access error
	bne Error
*
* OpenPrefix can return an error (carry will be set if Prefix NOT openend)
*
@openOk	rts		;return the error flag
	
*
* When standard file first comes up we always try to display the list of files for the volume
* in prefix 8 or 0. If these prefixes are not valid then we end up here.
* Here we try to find the first valid device and display the contents of its directory.
*
Error
	lda #1		;Start search at device number 1.
	sta curDev		
	lda #0		;Force the name currently in prefixptr
	ldy #2		;to become invalid.
	sta [PrefixPtr],y		;Search for first valid device.
	jsr NextDrive2
	bcc GotAGoodDrive		;Carry clear means we found one, carry set
	brl NoVolumes		;means we didn't and now we must display our
;			;"insert a disk..." errow window.

GotAGoodDrive	
	ldx #8		;Since we got a valid device, now we reset
	lda FGetPutFlag		;either prefix 8 or 0 to this volume name.
	lsr a		;see if an old call
	bcc @NotOld
	ldx #0		;set prefix 0 for old-style calls
@NotOld	stx ParNumber_GetPrefix
	lda #2		;pCount
	sta ParBlock
	lda PrefixPtr
	clc
	adc #2		;get past buffer size word
	sta ParPtr_GetPrefix
	lda PrefixPtr+2
	adc #0
	sta ParPtr_GetPrefix+2
	PushZPtr ParBlock	
	PushWord #$2009		;SetPrefix 8 or 0 to first valid device found.
	jsl ProDOS_Stack_Entry
	
	brl GetFirst		;Now try it from the beginning again. 
	
NoVolumes
	stzl selectedptr
	
	jsr PutUpAlert
	bcc GotAGoodDrive
	
	rts		

	
	
**********************************************************************
* OpenPrefix will open the file or directory specified in the prefix
* string with READ ONLY access. 
**********************************************************************
OpenPrefix	PROC


	lda #$0002		;retires on i/o error
	sta ztemp1		;will be used as a flag
TryAgain
	lda #03
	sta ParBlock		;3 parameters to Open ($09 bytes)
	lda #01		;read access only
	sta RequestAccess_Open
	
	ldax PrefixPtr
	clc
	adc #02
	bcc @nocarry
	inx
@nocarry
	stax ParName_Open		;set pointer to path string
	
	PushZPtr ParBlock		;pointer to parameter block
	PushWord #$2010		;open
	jsl ProDos_Stack_Entry	;stack based call
*
* errors are possible here
*
	bcc openok
*
* got an error!!!
*
	cmp #$0027		;i/o error, try again
	bne notIOerror
	dec ztemp1		;have we tried too many times?
	bne TryAgain
NotIOerror
	cmp #$004E		;no access?
	bne anError
	pha		;save error
	_InitCursor		;Set cursor back to arrow cursor.
*
* access error to this volume. Report the error as a dialog...
*..and reset the prefix back "up" one folder level.
*
	PushWordSpace		;results for alert window
	PushWord #0		;indicate C string
	PushLong #0		;no substitution string
	PushWord #$82		;no access
	_ErrorWindow
	pla		;don't care what comes back
	jsr DirectoryUp		;step the name back out of the prefix
	pla		;error saved above
anError	sec
	rts
	
openok
	lda ParRefNumber_Open
	sta RefNumber
	rts
**********************************************************************
* ClosePrefix will close the file or directory specified by the reference
* number stored in the GLOBAL value RefNumber (usually last opened). An alternate entry,
* CloseA will allow one to pass a reference number in A and have that
* item closed. The Global RefNumber in this case is unchanged.
**********************************************************************
	EXPORT CloseA
	EXPORT ClosePrefix
ClosePrefix
	lda RefNumber		;Reference number to close
CloseA
	tax		;14-Jan-91 DAL (just being paranoid!)
	beq @NeverCloseZero		;14-Jan-91 DAL (just being paranoid!)
	sta  ParRefNumber_Open
	lda  #01
	sta  ParBlock		;1 parameters to close
	
	PushZPtr  ParBlock		;pointer to parameter block
	PushWord  #$2014		;_Close_C1
	jsl  ProDos_Stack_Entry	;stack based call
@NeverCloseZero
*
* errors are possible here **DEBUG** What do I do with an error on a close?
*
* I'll ignore it!
*
	clc		;it never happened!!!
	rts
	ENDP

**********************************************************************
* ReadDirSize will return the directory size from the currently opened
* directory (as last opened by OpenPrefix above) referenced by the
* RefNumber stored in the GLOBAL varaible RefNumber
*
* Size returned in A and also stored the GLOBAL variable DirSize
**********************************************************************
ReadDirSize	PROC EXPORT


	lda #$06
	sta ParPCount_GDE
	stz ParBase_GDE
	stz ParDisplacement_GDE	;0 & 0 will return size of directory
	lda RefNumber
	sta ParRefNumber_GDE	;currently opened directory
	ldax NamePtr
	stax ParName_GDE
	
***	PushZPtr ParBlock		;pointer to parameter block
	pushlong #GDE_ParBlock	;25-Mar-91 DAL
	PushWord #$201C		;GetDirEntry_C1
	jsl ProDos_Stack_Entry	;stack based call
*
* errors can be returned here
*
	bcs @ohno		;returning here will cause a blank list
	
@readok
	lda ParEntryNum_GDE	;size of directory
	sta DirSize
@ohno
	stz EntryNum		;make sure this is 0
	rts

	
**********************************************************************
* ReadNextDirEntry will read the next entry from the currently opened
* directory (as last opened by OpenPrefix above) referenced by the
* RefNumber stored in the GLOBAL varaible RefNumber.
*
**********************************************************************
	EXPORT ReadNextDirEntry
ReadNextDirEntry
	lda EntryNum
	cmp DirSize
	bge @too_many		;in case network device and size grew
	lda #$01
	sta ParDisplacement_GDE
	sta ParBase_GDE

***	lda #13
	lda #17		;pCount=17 (25-Mar-91 DAL)
	sta ParPCount_GDE		;13 entries

	lda RefNumber
	sta ParRefNumber_GDE
	ldax NamePtr		;place to put the answer
	stax ParName_GDE

***	PushZPtr ParBlock		;pointer to parameter block
	pushlong #GDE_ParBlock	;25-Mar-91 DAL
	PushWord #$201C		;GetDirEntry
	jsl ProDos_Stack_Entry	;stack based call
	bcs @error
*
* errors can be returned here
*
	lda ParFileType_GDE
	and #$00FF		;file types are bytes
	sta FileType		;save file type in global
	lda ParauxType_GDE
	sta AuxType
	lda ParauxType_GDE+2
	sta AuxType+2
	lda ParEntryNum_GDE
	sta EntryNum		;current entry number
@error
	rts		;return error status
@too_many
	sec
	lda #$61		;fake end of directory
	rts

*** added 25-Mar-91 DAL
	export GDE_ParBlock
GDE_ParBlock
	export ParPCount_GDE
ParPCount_GDE	dc.w 0
	export ParRefNumber_GDE
ParRefNumber_GDE	dc.w 0
	export ParFlags_GDE
ParFlags_GDE	dc.w 0
	export ParBase_GDE
ParBase_GDE	dc.w 0
	export ParDisplacement_GDE
ParDisplacement_GDE dc.w 0
	export ParName_GDE
ParName_GDE	dc.l 0
	export ParEntryNum_GDE
ParEntryNum_GDE	dc.w 0
	export ParFileType_GDE
ParFileType_GDE	dc.w 0
	export ParEOF_GDE
ParEOF_GDE	dc.l 0
	export ParBlocks_GDE
ParBlocks_GDE	dc.l 0
	export ParCreateDT_GDE
ParCreateDT_GDE	dc.l 0,0
	export ParModDT_GDE
ParModDT_GDE	dc.l 0,0
	export ParAccess_GDE
ParAccess_GDE	dc.w 0
	export ParAuxType_GDE
ParAuxType_GDE	dc.l 0		;old SF only had 13 parms
	export ParFileSysID_GDE
ParFileSysID_GDE	dc.w 0
	export ParOptList_GDE
ParOptList_GDE	dc.l OptionListBuffer
	export ParResourceEOF_GDE
ParResourceEOF_GDE	dc.l 0
	export ParResourceBlk_GDE
ParResourceBlk_GDE	dc.l 0		;now we have all 17


OptionListBuffer	dc.w 64
	ds.b 64
*** end of 25-mar-91 DAL

	ENDP

	
**********************************************************************
*
* GetThePrefix
*
* Puts the prefix # passed in A into a class 1 string pointed to by 
* PrefixPtr and clobbers the data currently in the global ParBlock 
* (which is where the string resides).
*
* This routine will also update the direct page variable 'curDev' with
* the device number that this prefix represents (unchanged if the prefix
* is blank).
*
* SetThePrefix
*
* Puts the prefix string in the global ParBlock pointed to by PrefixPtr
* into the prefix number 8 and, if it fits, 0.
*
**********************************************************************	
GetThePrefix	PROC EXPORT
*
* Puts path name into Reply buffer for passed in A
*
* equates for GetDevNumber
*
devName	equ ParBlock+02		;Ptr to Device name
devNumber	equ ParBlock+06		;returned dev number

	sta ParNumber_GetPrefix	;which prefix
	lda #02
	sta ParBlock		;Pcount
	lda PrefixPtr		;memory for path results
	sta ParPtr_GetPrefix
	lda PrefixPtr+2
	sta ParPtr_GetPrefix+2
	PushZPtr ParBlock		;pointer to parameter block
	PushWord #$200A		;GetPrefix
	jsl ProDos_Stack_Entry	;stack based call
	bcs Done		;if an error
*
* Note: This should check the length of the returned string and if longer than the
* current buffer size (pointed to by PrefixPtr), we need to re-size the buffer and
* issue the call again. But for now 512 bytes should be plenty long.
*
	ldy #0002		;current length of string loc
	lda [PrefixPtr],y
	beq done		;skip rest of this string is empty
*
* if not an empty prefix, set curDev to the device # specified by this volume name
*
	pha		;save the original length.
	iny
	iny
	shortm
	ldx #0001		;use as a temp count
	lda [PrefixPtr],y		;get current seperation character
	sta Seperator
loop
	iny		;start with next character
	inx
	cmp [PrefixPtr],y		;look for seperation character
	bne loop		;it's there!
	longm
	ldy #0002		;save length for volume only
	txa
	sta [PrefixPtr],y		;put the temp length in the string

	lda PrefixPtr		;memory for path results
	clc
	adc #2		;Passed the buffer size
	sta DevName
	lda PrefixPtr+2
	adc #0
	sta DevName+2
	lda #0002
	sta ParBlock		;2 parameters

	jsr GetAndFixPrefs		;added 29-Jan-92 DAL (don't prompt for disk)

	PushZPtr ParBlock		;pointer to parameter block
	PushWord #$2020		;GetDevNumber
	jsl ProDos_Stack_Entry	;stack based call

	php		;added 29-Jan-92 DAL
	_SetSysPrefsGS oldPrefs	;added 29-Jan-92 DAL
	plp		;added 29-Jan-92 DAL

	pla
	ldy #0002
	sta [PrefixPtr],y		;restore original length
	
	bcs Done		;in case an error was returned
	
	lda devNumber		;returned value
	sta curDev		;save in global!
	
	clc		;make sure no error reported
done
	rts

*** added 29-Jan-92 DAL -- don't prompt for the boot disk
GetAndFixPrefs	_GetSysPrefsGS oldPrefs
	lda >oldPrefs+2
	and #$1fff	;
	sta >myPrefs+2
	_SetSysPrefsGS myPrefs
	rts

oldPrefs	dc.w 1	;1 parameter
	dc.w 0	;the old SysPrefs

myPrefs	dc.w 1
	dc.w 0	;my modified preferences
*** end 29-Jan-92

	EXPORT SetThePrefix
	EXPORT Force0		;entry to skip size check.
SetThePrefix

	ldy #$0002		;length of prefix
	lda [PrefixPtr],y
*
* A = size of prefix we want to put into 8. If small enough, we will put it back into 0 as
* well, if too big, will warn the user and not change
*
	cmp #$0040		; max size of prefix 0 (64 char)
	bcc Force0		; will fit into 0
*
* warn the person if we came in through an old call that this may not work
*
	ldx #$0008		;also, we skip 0 because we know it's too big
	lda FGetPutFlag
	lsr a		;if carry set, this old mode
	bcc AndAgain		;don't care in new mode, just don't do 0
*
* by the way, simply don't do this and stay where we are as well!
*
	PushWordSpace		;results for alert window
	PushWord #0		;indicate C string
	PushLong #0		;no substitution string
	PushWord #$88		;Pathname too long
	_ErrorWindow
	pla		;don't care what comes back
	jsr DirectoryUp		;and back this mess out!
	sec		;not really an error
	rts		;no change

Force0
	ldx #$0000		;set prefix 0 first, then do 8
AndAgain
	phx		;save for later check
	stx ParNumber_GetPrefix	;which prefix
	lda #02
	sta ParBlock		;Pcount
	lda PrefixPtr		;memory for path results
	clc
	adc #2		;Passed the buffer size
	sta ParPtr_GetPrefix
	lda PrefixPtr+2
	adc #0
	sta ParPtr_GetPrefix+2
	PushZPtr ParBlock		;pointer to parameter block
	PushWord #$2009		;SetPrefix
	jsl ProDos_Stack_Entry	;stack based call
	bcs Oppss
	pla
	bne Setdone		;we are done?
	ldx #$0008		;now do 8
	bra AndAgain
*
* Errors returned through call
*
Oppss
	plx		;return an error
Setdone
	rts
	
	ENDP	
	
**********************************************************************
*
* Misc stuff	
*
**********************************************************************
GetLocInfo	PROC EXPORT 
	
	PushWord #00
	_GetMasterScb
	pla
	and #$80	;if bit set, we are 640, else 320
	rts	
	
**********************************************************************
*
* MoveDialogToMemory -- allocates and locks a memory area in which to
* place the current dialog header. Since old standard file calls
* have a dialog items that now do nothing, this will Mung out the unused items
* by building a new dialog template header list WITHOUT the two unused items;
* Namely, "files" and "scroll"
* In addition, it needs to add 'PathDraw' to the Path item (if nothing there)
* on Patched dialogs.
*
* This also moves the list manager record into RAM as well & updates that 
* area with the proper rectangle.
*
*
* ENTRY: AX points to the dialog template
*
* Exit: AX pointes to the ram area that contains the corrected dialog.
*
* Side effects: Memory is allocated and used. Memory errors may be returned.
*
**********************************************************************
MoveDialogToMemory	PROC EXPORT
	IMPORT ListManagerRec,OrigDialogTempPtr

destptr	equ pointer	;temp usage, destination
srcptr	equ pointer2	;temp usage, source dialog pointer
tmppointer	equ handle	;temp usage, an extra pointer

	stax srcptr	;save a copy as of source

	sta >OrigDialogTempPtr	;added 15-Sep-91 DAL
	txa
	sta >OrigDialogTempPtr+2
*
* Move the List manager Record into ram (so it can be updated)
*
	PushLong #ListManagerRec	;source(pointer)
	PushZLong ListRecHandle	;destination(handle)
	PushLong #40		;move 40 bytes
	_PtrToHand		;move 
	bcc NoError		;Oh No
*
*DEBUG. Do I need to worry about this error or can I just die?
*
	rts
NoError
	lda #MultiFIleMode
	bit FGetPutFlag		;multi mode
	beq NoMulti
	ldy #ListRecord.listFlags
	lda [ListRecPtr],y		;current flags
	and #$FFFD		;Set list manager flag to allow 
	sta [ListRecPtr],y		;multiple selections to be made. 
NoMulti
	
*
* prescan to figure the size of this header and allocate some memory to it.
*
	ldy #0014+1-4	;beginning of dialog item list (low byte + 1 byte offset)
@1
	iny
	iny
	iny	;We're checking bytes 1 and 2 of the pointer and if they're
	iny	;zero we assume this is not a valid ptr and we're at the end.
	lda [srcptr],y	;if this is 0 we are at the end of the list
*
* cheat by looking at bank and page byte which should never be zero unless a template
* somewhow got into absloute zero page which should never happen!
*
	bne @1	;keep looking
*
* y = number of entries * 4. We will be moving 2 less items. We need to allocate a block
* of memory of (y-8)+14 bytes.
* Note that the new Multi entry moves one of these 2 so this
* could be wrong. I'll be safe rather than sorry and since another 28 bytes won't really make
* that much difference in the total memory used, I'll forget all this silly stuff and just use
* y+14. (Changed 2/17/89)
*
	tya	;recall # * 4
*	sec
*	sbc #0008	;subtract out start value. 'A' = (# items * 4) + 14 - 8
	jsr GetSmallHandle	;get me some memory
	PushAX
	jsr DerefAndLock	;lock it down please
	stax destptr	;put it on the stack for return
	PushAX	;save a copy that will not change (pulled below)
*
* move the standard header.
*
	lda #0014	;move the first 14 bytes always
	jsr moveit	;move rect and flags always
	
	ldx #0000	;move items
moveloop
	inx	;count next item
	txy	;cheat to check for different items to skip
*
* Move the put dialog. Walk the list till 0 is found and skip items 6 & 8.
* However, item 7 (files), move the bounding rect to the List Manager Record
* Move the get dialog. Walk the list till 0 is found and skip items 5 & 7.
* unless this is multi get then leave item 5 (this is the ACCEPT button)
* However, item 6 (files), move the bounding rect to the list manager record.
* If get, we can cheat the compare by doing an INY for GET so it checks against the same item #'s
*
	lda FGetPutFlag
	bmi @1	;0 = Get, 1 = put
	iny	;put is 1 higher in the id so bump Get to match
@1
	bit #MultiFIleMode	;in multi mode, do item 5
	bne @11
	cpy #0006	;Put: skip #6 (scroll) and #8 (Files)
	bne @11
	brl skipthis
@11
	cpy #0008	;files entry contains list manager rect.
	beql moverect
	bit #PatchedFlag	;patched?
	beq @4
*
* if path item on patched is not already pointing to a draw routine, fix it!
*
	cpy #0007	;path #7?
	bne @3	;skip fix
	phx
	phy
	PushZlong srcptr
	jsr DerefHandle
	stax tmppointer
	ldy #0013
	lda [tmppointer],y	;see if set
	bne @2
	dey
	ldax #PathDraw
	sta [tmppointer],y
	txa
	iny
	iny
	sta [tmppointer],y		;move in draw routine
	
	lda FGetPutFlag		;set flag that says upon exit we need
	ora #PathDrawPatched	;to unpatch this field in the user's template
	sta FGetPutFlag
@2
	ply
	plx
@3
*
* Set item type of prompt string to StatText+Disable
*
	cpy #0009		;change prompt to StatText
	bne @4
	phx
	PushZlong srcptr
	jsr DerefHandle
	stax tmppointer
	ldy #0010
	lda #StatText+ItemDisable
	sta [tmppointer],y		;change item type
	plx
@4
*
* Item 10 in put needs the maxlen set in the dialog template. This HAS to be done here as
* SetDItemValue cannot be used (LeNew is called at GetNewModalDialog time and SetDItemValue
* cannot be called until AFTER GetNewModalDialog and by that time it's too late!
*
	bit FGetPutFlag
	bpl @41
	cpy #0010	;item 10 in edit needs the length "fixed"
	bne @41
	phy
	phx
	PushZlong srcptr	;moves along with the source and points to item 10
	jsr DerefHandle
	stax tmppointer
	ldy #0016	;userItem location!
	lda MaxLen	;max number of characters
	sta [tmppointer],y	;save it!
	plx
	ply
@41
*
* one to include
*
	lda #0004	;now move these 4 bytes (pointer to the item)
	jsr moveit	;move and update pointers (return 0 if we moved all 0's)
	bnel  moveloop
	PullAX	;recall dest address and return
	rts	;we are done


skipthis
	lda #0004	;skip 4 bytes from source!
	clc
	adc srcptr
	sta srcptr
	bcc @1
	inc srcptr+2
@1
	brl moveloop

moverect
*
* this item is skipped but we want the bounding rect moved to the list manager.
*
	phx
	lda [srcptr]
	clc
	adc #0002	;1 past item number to bounding rect
	sta tmppointer	;use this a s a temp
	ldy #0002
	lda [srcptr],y
	adc #0	;in case of carry
	sta tmppointer+2	;use this a s a temp
	ldy #0006	;move 8 bytes
@1
	lda [tmppointer],y
	sta [ListRecPtr],y
	dey
	dey
	bpl @1
*
* this is also a good place to calculate the number of visible items: ((top-bottom)-2)/10
*
	PushLongSpace	;2 words returned
	ldy #0004	;bottom position
	lda [tmppointer],y	;bottom
	sec
	sbc [tmppointer]	;difference
*	sec
	sbc #0002
	pha	;dividend
	PushWord #0010	;divisor
	_SDivide
	pla	;quotient
	plx	;toss remainder..don't care
*
* place this results at ListManagerRecord + 10 bytes
*
	ldy #0010
	sta [ListRecPtr],y	;# of visible items
	
	plx	
	bra skipthis	;and bump source pointer and continue
	
*-------------------------------------------------------------------
Moveit
*
* move count bytes from Source memory to Destination and update pointers
* This is used to "rebuild" pieces of the dialog template in memory.
* ASSUMPTIONS: Always moves an even number of bytes.
*
*Input:  A = count of bytes. srcptr and destptr are zero page temps used.
*
* Output: a = inclusive or of all bytes moved (for zero test)
*
	pha		;saved for add below
	tay		;count in y
	dey		;move from 0!
	dey
	stz ztemp1		;inclusice or register
@1
	lda [Srcptr],y
	sta [Destptr],y
	ora ztemp1
	sta ztemp1		;will be 0 if we move all 0's
	dey
	dey
	bpl @1
	lda 1,s		;recall count
	clc
	adc srcptr
	sta srcptr
	bcc @2
	inc srcptr+2
@2
	lda 1,s
	clc
	adc destptr
	sta destptr
	bcc @3
	inc destptr+2
@3
	pla		;toss away count
	lda ztemp1		;set z flag
	rts

	ENDP
	
**********************************************************************
*
* GetZeroHandle -- Gets a small hunk of memory < 64K and sets it to zero.
*                  Size is passed in A.
*
**********************************************************************
GetZeroHandle	PROC EXPORT

	pha		;save size
	jsr GetSmallHandle		;handle returned in A & X
	bcs @error		;skip the rest and return the error
	stax handle	
	PushAX
	jsr DerefandLock		;this doesn't use zero page handle or pointer
	stax pointer
	ply		;this big!!!!!!
	dey
	shortm
	lda #0
@loop
	sta [pointer],y
	dey
	bne @loop
	sta [pointer]		;don't forget last byte (the count may have been - Dave!!!)
	longm
	ldax handle
@error
	rts
	ENDP


**********************************************************************
*
* GetSmallHandle -- Get a hunk of memory < 64K. Size passes in A.
*
**********************************************************************	
GetSmallHandle	PROC EXPORT
*
* getting a handle of size smaller than 64K
*
	ldx #0		;make sure x is 0
;
;fall through to GetNewHandle
;	
**********************************************************************
*
* GetNewHandle-- Get a hunk of memory. Size passes in A (lo) and X (hi)
*
**********************************************************************
	EXPORT GetNewHandle
GetNewHandle	
	PushLongSpace		; Output : Handle. (reserve space)
	PushAX		; Block Size.
	stax LastRequest		; save for debug, how much did I need
	PushWord MyID		; Owner.
	PushWord #00		; not purgeable !
	PushLongSpace		; Anywhere.
	_NewHandle
	bcs @error
	PullAX		;handle into a and x
	rts		
@error
*
* DEBUG** This is a real problem. If I get a memory error trying to get a new handle.
* Suggestions?
*
	ply
	ply
	rts		;carry (error) returned from new Handle

**********************************************************************
*
* ExtendHandle -- Check if a recently allocated handle needs to grow.
* Handle assumed to be in GLOBAL variable StringsHandle at entry
* Next size to add is in X. Will check here and expand if more room is needed.
* The logicalsize of the handle is in the GLOBAL StringsLength
* x is preserved
*
**********************************************************************
	EXPORT ExtendHandle
ExtendHandle
	phx		;preserve x
	txa
	clc
	adc #$08		;flag byte, type 2 byte, 4 aux type bytes, size byte
			;(can do this since we know string length is ALWAYS < 256)
	clc
	adc StringsLength		;new size needed
	sta StringsLength
	bcc @1
	inc StringsLength+2
@1
	ldy #4
	lda [StringsHandle],y
	and #$7FFF		;drop lock bit
	sta [StringsHandle],y	;unlocked
	PushLongSpace		;space for results
	PushZLong StringsHandle
	_GetHandleSize		;so how big is it?
	PullAX		;size of handle
	cmpl StringsLength		;see if enough room
	bge @ok		;still enough room
	ldax StringsLength
	clc
	adc #$200		;grow by 512 bytes
	bcc @nocarry
	inx
@nocarry
	PushAX		;new size
	stax LastRequest
	PushZLong StringsHandle
	_SetHandleSize
	bcs Abortexit
@ok
	PushZLong StringsHandle
	jsr DerefAndLock		;relock handle
	stax StringsPtr
	plx		;save x
	clc
	rts
Abortexit
*
* an error occured, handle not resized. Out of memory...now WHAT??????????????
*
	plx
	rts		;return with error	
	
	ENDP
**********************************************************************
* Kill a handle ... handle passed in A and X
**********************************************************************
KillHandle	PROC EXPORT
	PushAX
	_DisposeHandle
	
	rts
	ENDP


**********************************************************************
* Kill a pointer... pointer passed in A and X
**********************************************************************
KillPointer	PROC EXPORT

	PushLongSpace
	PushAX
	_FindHandle
	
	_DisposeHandle
	
	rts
	ENDP


****************************************************************
*
* DerefandLock
* Input: 	Handle on stack
*
* Handle	LONG
*
* Lock the handle to the list
* Value returned in A and X.
*
*
****************************************************************
DerefandLock	PROC EXPORT


	DefineStack
origD	word	;reserve word on stack
Orts	word
Handlel	long	;reserve long on stack

	phd
	tsc
	tcd	;stack is direct page now (a cheap trick, eh?)
	
	ldy #4
	lda [Handlel],y
	ora #$8000	;cheat to lock handle.Is this illegal?
	sta [Handlel],y
	dey
	dey
	lda [Handlel],y
	tax
	lda [Handlel]
	sta Handlel+2	;save the low word of the pointer on top of the passed handle

	pld	;restor direct page
	ply	;save rts address
	pla	;get rid of the low word of the handle
	pla	;get back the low word of the pointer and clean up the stack
	phy	;push the return addr back on the stack
	rts	;leave this place !
	
	ENDP

****************************************************************
*
* DerefHandle
* Input: 	Handle on stack
*
* Handle	LONG
*
* DeRef a handle and return in A&X
*
*
****************************************************************
DerefHandle	PROC EXPORT


	DefineStack
origD	word	;reserve word on stack
Orts	word
Handlel	long	;reserve long on stack

	phd
	tsc
	tcd	;stack is direct page now (a cheap trick, eh?)
	
	ldy #2
	lda [Handlel],y
	tax
	lda [Handlel]
	sta Handlel+2	;save the low word of the pointer on top of the passed handle

	pld	;restor direct page
	ply	;save rts address
	pla	;get rid of the low word of the handle
	pla	;get back the low word of the pointer and clean up the stack
	phy	;push the return addr back on the stack
	rts	;leave this place !
	
	ENDP

	
**********************************************************************
*
* CONVERT reference and RELEASE reference routines:
*
**********************************************************************
*
* Convert reference and verb to a pointer to a PString for Prompt string
* (local use to all above entry points)
* EXIT: Pointer to PString in A & X
*
**********************************************************************
get_prompt_ptr	PROC EXPORT
	EXPORT get_name_ptr
	EXPORT name_release
	EXPORT prompt_release
	
	clc
	PushZLong PromptPtr		;save pointer
;	and #$0003	;removed (and it wasn't even in the right place!) 22-Mar-93 SS
	lda PromptVerb
	beq ItsAPointer		;if a pointer already, return it
	dec a		;1 = handle
	beq ItsAHandleOnStack
	ldy #$8006		;2 = Resource
ItsAResource
	PullAX
	PushLongSpace
	phy		;resource type (DEBUG?)
	PushAX		;ref
	_LoadResource
	tay		;save error
	PullAX
	bcc ItsAHandle		;resource error, exit
	tya
	bra gExit
ItsAHandle
	PushAX		;back on stack!
ItsAHandleOnStack
	jsr DeRefAndLock		;get a pointer to PString
gExit
	rts
ItsAPointer
	PullAX		;pointer to PString
	rts
**********************************************************************
*
* Convert reference and verb to a pointer to a C1InputString for default name
* (local use to all above entry points)
*
**********************************************************************
get_name_ptr
	PushZLong OrigName
	lda OrigNameVerb
	beq ItsAPointer
	dec a
	beq ItsAHandleOnStack
	ldy #$8005		;resource type (DEBUG)
	bra ItsAResource

**********************************************************************
*
* Release if PromptPtr was a handle or a resource
*
**********************************************************************
prompt_Release
	ldax PromptPtr
	stax pointer		;incase it was a handle
	ldy #$8006		;ID if a resource
	lda PromptVerb
;	and #$0003	;removed 22-Mar-93 SS
	bra Release

**********************************************************************
*
* Release if OrigName was a handle or a resource
*
**********************************************************************
name_Release
	ldax OrigName
	stax pointer		;incase it was a handle
	ldy #$8005		;ID if a resource
	lda OrigNameVerb
*	bra Release
**********************************************************************
*
* Release common.
* ENTRY: A = verb. CC = results of loading verb.
*        Y = Resource Type.  (pointer) = original passed reference.
*
* EXIT: Pointer unlocked. Carry set for error.
*
**********************************************************************
Release	clc		;no error
	beq RExit		;pointer, forget it
	dec a
	beq UnlockIt		;it's a handle, unlock it
	pea $0003
	phy
	PushZLong pointer
	_ReleaseResource
	rts
Unlockit
	ldy #$0004
	lda [pointer],y
	and #$7FFF		;drop lock bit
	sta [pointer],y		;unlocked
RExit
	rts
	

	ENDP


**********************************************************************
*
* reset_vars: sets to 0 all variables that MAY not be set when the
* tool is reentered. This prevents a cutsom proc routine from being
* called (for example) in a standard, no proc call.
*
********************************************************************** 
reset_vars	PROC EXPORT
	stzl FilterProcPtr
	stzl PromptPtr	
	stzl TypeList
	stzl IconHookPtr
	stzl DilgHook
	stz PromptVerb
	stz OrigNameVerb		;default verbs to pointers
	stz FRedraw
	rts




**********************************************************************
* will adjust the dialog item number up one if we are in a Put dialog.
* (most items are one off because Put has SAVE as #1.
*
* Input: Y = item number
*
* Output: Y = adjusted item number
*
**********************************************************************
PutAdjust	PROC EXPORT
	bit FGetPutFlag
	bpl @1
	iny		;put is 1 higher in the id.
@1
	rts
	ENDP
	
*****************************************************************
*
* MyDraw
*
* This routine draws the list item when asked by the list mgr
*
*       Ptr to Bounding Rect
*       Ptr to member's record
*       Handle to list Control record
*
* Checks 'IconHookPtr' and if not nil, will use that routine to
* draw the line item rather than local code. The line item is passed
* a pointer to the the list member which is a pstring followed by
* a word of file type and a longword of Auxtype.
*
*
*****************************************************************
MyDraw	PROC EXPORT
***	with IconGlobals
	
	DefineStack
FgetPutCpy	word
TempDpPtr	long
oldmask	block 8
atempptr	long
origB	byte
origD	word
RtlAdr	block 3
CHandle	long
MemberPtr	long
RectPtr	long

	phd	;save old direct page
	phb	;save data bank
	phk	;push program bank
	plb	;set data bank to same as program bank
	tsc	;copy stack ptr to 'A'
	sec
	sbc #0018	;room for temp varible and pen mask
	tcs
	tcd	;set direct page (to stack)
	
	PushLongSpace		;results
	PushWord #0		;system tool
	PushWord #$0017		;Standard File tool set
	_GetWap
	PullLong TempDPPtr		;local use, I need access to my Direct Page

	ldy #FGetPutFlag
	lda [TempDpPtr],y
	sta FgetPutCpy		;get a copy, we need this alot here

	pei RectPtr+2
	pei RectPtr
	_EraseRect	;clear the space
	
	PushZLong MemberPtr
	jsr DerefHandle
	stax atempptr
	PushAX		;on the stack for the possible hook routine
	
	lda FgetPutCpy
	and #InVolumeList
	bne NoItemHook
	
	ldy #IconHookPtr
	lda [TempDpPtr],y
	iny
	iny		;y=iconHookPtr+2
	ora [TempDpPtr],y		;empty pointer?
	beq NoItemHook		;skip if empty
	lda #(ItemReturnHook-1)>>8	;6 bytes needed (3 "dest", 3 return)
	pha
	lda #ItemReturnHook-1
	and #$00FF
	xba
	ora [TempDpPtr],y	
	pha
	dey
	dey
	lda [TempDpPtr],y
	dec a
	pha
	rtl		;go do user hook

NoItemHook
	PullAX		;didn't need this!

*** This is Standard File's default member-draw routine

*
* Set up for DrawIcon call (they are really icons again!)
*

	lda FgetPutCpy
	and #InVolumeList
	beq @notInVolumeList
	
	lda [atempptr]
	and #$00FF
	inc a
	tay
	lda [atempptr],y

*** Now uses GetSysIcon (15-Jan-91 DAL)
	pha
	pha	;space for GetSysIcon result
	pea 1	;device icons
	pha	;device ID
	lda #0
	pha
	pha	;aux value (long)
	_GetSysIcon
	brl do_icon

@notInVolumeList	lda [atempptr]	;size of string
	and #$00FF	;offset
	tay
	iny
	lda [atempptr],y	;this member's file type

	pha
	pha	;space for _GetSysIcon
	pea 0	;files, closed folders
	pha	;filetype

;;;	lda #0
;;;	pha
;;;	pha	;aux value (long)
*** 5-Oct-92 DAL -- pass the real auxiliary type
	iny
	iny
	lda [atempptr],y	;low word of auxtype
	tax
	iny
	iny
	lda [atempptr],y	;high word of auxtype
	pha
	phx
*** end 5-Oct-92
	_GetSysIcon

do_icon	pea 0	;mode for _DrawIcon
	ldy #2
	lda #4	;move over space for 640 mode
	jsr mDrawHalfIf320	;12-Jan-91 DAL
	clc
*** 15-Sep-91 DAL -- moved ADC up here and forced sum to be even
	adc [RectPtr],y	;left position of rect
	and #$fffe	;force even
*** end 15-Sep-91

*** added 26-Aug-91 DAL -- set carry if window position is odd, to make dithering right
	pha
	phy
	pha
	pha	;space for GetPort
	_GetPort
	phd
	tsc
	tcd
	lda [3]
	and #$0080
;;;	clc	;assume CLC from the GetPort call
	beq @ok
	ldy #10	;offset to boundsRect.left
	lda [3],y
	lsr a
@ok	pld
	pla
	pla	;discard port pointer
	ply
	pla
*** end 26-Aug-91 DAL -- carry is set if 640 and window position is odd

	adc #0	;15-Sep-91 DAL

	pha	;X position
	lda [RectPtr]
	inc a	;Y position
	pha
	_DrawIcon

**********************************************************************
	

	ldy #2	;Y=left
	lda #32	;over 6 + 26 for icon size (for 640 mode)
	jsr mDrawHalfIf320	;12-Jan-91 DAL
	adc [RectPtr],y	;left position of rect
	pha
	pha	;one more copy 10-Jun-91 DAL
	iny
	iny
	lda [RectPtr],y	;Y=bottom
	dec a
	dec a
	pha	;y coord = bottom - 2
	_MoveTo	;set pen to drawing location for first element

;	PushZLong atempptr
;	_DrawString
;*** added 10-Jun-91 DAL -- call DrawStringMaybeCrunch to draw the string
;	ldy #6
;	lda [RectPtr],y
;	sec
;	sbc 1,s
;	sta 1,s
;	pushzlong atempptr
;	jsr DrawStringMaybeCrunch
;*** end of 10-Jun-91
*** 16-Mar-92 DAL -- use DrawStringWidth in QD Aux
	plx	;horizontal pen position from above
	pea $6000	;truncate on right
	pei <atempptr+2
	pei <atempptr
	phx
	ldy #6
	lda [RectPtr],y
	sec
	sbc 1,s
	sta 1,s	;available width in pixels
	ldx #$1512
	jsl $e10000
;	_DrawStringWidth
*** end 16-Mar-92


ItemReturnHook
*
* Return point if a hook was used to draw the items.
*
* now test and see if the item needs to be greyed out.
*
	ldy #$0004	;flags in the 5th byte
	lda [MemberPtr],y
	bit #MEM_DISABLE	;if disabled, no selection!
	beq NotGrey	;not disabled, could be selected
	and #$FF7F	;make sure NEVER selected
	sta [MemberPtr],y	;not selected anymore (in case it was!)

	PushZPtr oldmask
	_GetPenMask	;save old mask
	PushLong #GreyMask
	_SetPenMask	;set mask to grey
	pei RectPtr+2
	pei RectPtr
	_EraseRect	;grey it out
	PushZPtr oldmask
	_SetPenMask	;back to normal
	bra NotSelected

notGrey	ldy #$0004
	lda [MemberPtr],y
	and #MEM_SEL	;selected bit
	beq NotSelected
	
	pei RectPtr+2
	pei RectPtr
	_InvertRect	;if selected, invert this member
NotSelected


	tsc
	clc
	adc #0018
	tcs	;get rid of atemp and mask and other stuff
	plb
	pld
	lda 1,s
	sta 13,s
	lda 2,s
	sta 14,s
	tsc
	clc
	adc #12
	tcs
	rtl

GreyMask	dc.w $AA55,$AA55
	dc.w $AA55,$AA55

*
* mDrawHalfIf320 -- 15-Jan-91 DAL
*
* Cuts A in half if we're in 320 mode
*
* Returns carry clear so we can do an addition right
* after the call to this routine.
*
mDrawHalfIf320	phy
	tax
	ldy #FGetPutFlag
	lda [<TempDPPtr],y
	and #$4000
	beq @1	;it's 640
	txa
	lsr a	;cut in half for 320
	tax
@1	txa
	clc
	ply
	rts

;*
;* DrawStringMaybeCrunch
;*
;* push available width
;* push pString ptr
;* JSR here
;*
;DrawStringMaybeCrunch
;	phd
;	tsc
;	tcd
;	lda [5]
;	and #$00ff
;	cmp #16
;	bcc @drawNormal
;
;	pha	;space for StringWidth
;	pei 7
;	pei 5
;	_StringWidth
;	pla
;	inc a
;	cmp 9
;	bcc @drawNormal
;
;	pha
;	pha
;	_GetCharExtra
;	pea $ffff
;	pea $0000
;	_SetCharExtra	;negative one
;	pei 7
;	pei 5
;	_DrawString
;	_SetCharExtra
;	pld
;	plx
;	pla
;	pla
;	pla	;stripped input parameters
;	phx
;	rts
;
;@drawNormal	pld
;	plx
;	ply
;	pla
;	phx
;	pha
;	phy	;moved RTS addr above String ptr
;	_DrawString
;	plx
;	pla	;kill Width input
;	phx
;	rts

	ENDP
	

PathDraw	PROC EXPORT
**********************************************************************
*
* This is the draw routine for the path string in the get and put
* dialog as called by a UserItem
*
* Note that since this is called by the window manager that the direct
* page and data bank will not be set correctly.
*
* The stack contains the dialog pointer and the item id of the object
* pressed but we don't care as this routine is only called in one place.
* they will be tossed at exit time.
*
**********************************************************************
	phd		;save old direct page
	phb
	phk
	plb		;set data bank to program bank
	
	PushLongSpace		;results
	PushWord #0		;system tool
	PushWord #$0017		;Standard File tool set
	_GetWap
	pld		;set DP to old direct page for this routine
	pla		;toss upper			

	jsr DoPathDraw
	
	plb		;restore data bank
	pld		;restore direct page
	lda 2,s		;restore stack!
	sta 8,s
	lda 1,s
	sta 7,s		;move return address
	 
	pla	;dialog ptr
	pla
	pla	;item id	
	
	rtl
	ENDP

**********************************************************************
*
* Does the actual clear and draw of the current path. Called by the
* above custom useritem draw routine and also by close and open buttons.
*
* ASSUMPTION: (**DEBUG??**) Only the normal system font is used at
* this time. Do I need to add code later to determine font size?
*
* Assumptions: It is assumed that PrefixPtr points to the current path
* and the curDev contains the current device number. Also that Seperator
* contains the current seperation character.
*
**********************************************************************
DoPathDraw	PROC EXPORT

DrawAreaWidth	equ ztemp2		;in pixels
TextLength	equ ztemp1		;in characters

*
* First determine which dialog box we are using (needs to be changed to a dialog call)
*
	PushZLong DialogPtr
	lda #$0006		;item number for get
	bit FGetPutFlag
	bpl @1		;correct guess
	inc a
@1
	pha
	PushZPtr tempRect
	_GetDItemBox

	lda tempRect		;top position
	clc
	adc #03		;move down by 3
	sta tempRect

	clc
	lda tempRect+2		;h position
	adc wherex		;dialog position
	lsr a		;bottom bit should be set...
***	bcs @2		;...for proper color
	bcc @2		;15-Mar-91 DAL (previous test seems reversed?)
	inc tempRect+2		;force it even!
@2

	PushZPtr tempRect
	_EraseRect		;erase old information

	lda FGetPutFlag
	bit #InVolumeList		;Check if we're in volume list.
	bne @checkWhichDLog		;If we are then display different 
	brl notInVolList
@checkWhichDLog	bpl getDialog

	lda selectedptr+1
	bne @SomethingSelected

	PushZLong DialogPtr
	PushWord #11
	_HideDItem
@SomethingSelected
	lda #255
	sta saveButStat

	PushWord #255
	pha
	pha
	PushZLong DialogPtr
	PushWord #1		;Deactivate SAVE button. 
	_GetControlDItem		;It is no longer valid when we're 
	_HiliteControl		;displaying the list of volume names.
	
	PushWord #255
	pha
	pha
	PushZLong DialogPtr
	PushWord #12		;Deactivate NEWFOLDER button. 
	_GetControlDItem		;It's is no longer valid when we're 
	_HiliteControl		;displaying the list of volume names.
	bra DoSomeMore
	
getDialog	PushZLong DialogPtr		;If in get dialog hide the prompt string.
	PushWord #8
	_HideDItem

DoSomeMore	PushWord #255
	pha
	pha
	PushZLong DialogPtr
	ldy #3
	jsr PutAdjust
	phy
	_GetControlDItem
	_HiliteControl
	
	lda tempRect+2		;path string.
	pha		;x coordindate
	lda tempRect
	clc
	adc #8
	pha		;y coordindate
	_MoveTo

	PushLong #VolumeString	;display string 'Volumes on-line:'
	_DrawString
	
	rts
	
notInVolList	lda curDev		
	bne KeepOnTruckin		
	rts
*
* need to determine which icon to draw here. Either folder, disk, or appletalk or ...
*
KeepOnTruckin	PushWord #0
	pha
	pha
	PushZLong DialogPtr
	ldy #3
	jsr PutAdjust
	phy
	_GetControlDItem
	_HiliteControl
	
	bit FGetPutFlag
	bmi @notGet
	
	PushZLong DialogPtr		If in get dialog hide the prompt string.
	PushWord #8
	_ShowDItem
	bra @PassPutStuff
@notGet
	PushZLong DialogPtr
	PushWord #11
	_ShowDItem
@PassPutStuff

*** added 18-Dec-91 DAL -- set clip region to path item, leaving old region on stack
	PushZLong DialogPtr
	lda #$0006		;item number for get
	bit FGetPutFlag
	bpl @1b		;correct guess
	inc a
@1b	pha
	pushlong #myClipRect
	_GetDItemBox

	pha
	pha
	_NewRgn
	lda 3,s
	pha
	lda 3,s
	pha		;clone region handle (leave one copy on stack)
	_GetClip
	pushlong #myClipRect
	_ClipRect
*** end 18-Dec-91

	jsr DrawPopUpThing		;14-Jan-91 DAL

*** Padlock-drawing code used to be here

	lda tempRect+2
	pha
	lda tempRect		;top of rect
	clc
	adc #08		;**DEBUG**Assumes system font always
	pha
	_MoveTo		;position pen

	ldy #2
	lda [PrefixPtr],y		;get length of original path
	tax		;counter
	iny
	iny
	shortm
	lda Seperator		;seperation character
@whichloop
	iny
	dex
	cmp [PrefixPtr],y
	bne @whichloop		;look for next sep character
*
* Found next seperation character.  Is it as the end of the string?
*
	longm
	dex		;will be 0 if only volume name
	bne DoAFolder

DoADevice	jsr DoDInfoCall
	pha
	pha		;space for GetSysIcon result
	pea 1		;device icons
	lda devDeviceID_DInfo
	pha
	lda #0
	pha
	pha		;aux value (long)
	_GetSysIcon
	ldx #0		;flag: don't increment Y position
	bra do_icon

DoAFolder	pha
	pha		;space for _GetSysIcon result
	pea $0004		;file icons (open folder)
	pea $000f		;folder
	lda #0
	pha
	pha		;aux value (long)
	_GetSysIcon		;fall into do_icon
	ldx #1		;flag to increment Y position
*
* do_icon--icon already on stack
*
do_icon	pea 0		;mode for _DrawIcon
	lda #4
	jsr HalfIf320
	adc <tempRect+2
	pha		;X position
	clc
	txa
	adc <tempRect
	pha		;Y position
	_DrawIcon
*** End of Device/Folder icon stuff

	lda #30		;move over 30 pixels in 640 mode
	jsr HalfIf320		;12-Jan-91 DAL
	adc <tempRect+2		;left edge of rect
	sta <tempRect+2

	pha		;x position
	lda <tempRect		;top of rect
	clc
	adc #8		;**DEBUG**Assumes system font always
	pha		;y position
	_MoveTo		;position pen

*
* get size in pixels of the drawing rect.
*
	sec
	lda tempRect+6		;right edge
	sbc tempRect+2		;right edge - left edge
*** 14-Jan-91 DAL -- leave room for the padlock on the right
	ldx writeProtect
	beq @noWrProt
	sbc #16
@noWrProt
*** end of 14-Jan-91 DAL
	sta DrawAreaWidth		;save size to work in ( %%% Dead now??? )

*** New pathSeg drawing stuff (15-Jan-91 DAL)
	ldy #2
	lda [<PrefixPtr],y		;get length of original path
	tay
	iny
	iny
	ldx #0

	sep #$20
	longa off

	lda Seperator		;seperation character
@findSegLoop	inx
	dey
	beq @noSegment
	cmp [<PrefixPtr],y
	bne @findSegLoop		;look for next sep character
	iny
	longa on
	rep #$20

*** Set up for DrawText (Y=index to first character to print, X = length)
	clc
	tya
	adc <PrefixPtr
	tay
	lda <PrefixPtr+2
	adc #0
	pha
	phy
	phx
	_DrawText

@noSegment	rep #$20
*** end of new pathSeg drawing stuff

	jsr DrawThePadlock		;added 14-Jan-91 DAL

	jsr DrawTheFileSystem	;added 25-Mar-91 DAL

*** added 18-Dec-91 DAL -- store the right edge of the path item
*** [moved below DrawTheFileSystem 6-Feb-92 DAL]
	pha
	pha		;Pen Loc result buffer
	tsc
	pea 0
	inc a
	pha
	_GetPen
	pla	;y coord
	pla	;x coord
	sta PathItemRightEdge
*** end 18-Dec-91

*** added 18-Dec-91 DAL -- restore the clip region
	lda 3,s
	pha
	lda 3,s
	pha	;clone my region handle
	_SetClip
	_DisposeRgn
*** end 18-Dec-91
	rts

;VolumeString	str 'Volumes on-line:'
VolumeString	str 'Available disks:'	;25-Mar-92 DAL

	export PathItemRightEdge
PathItemRightEdge	dc.w 0		;rightmost position to pop up when they click (18-Dec-91 DAL)
myClipRect	ds.b 8		;temp rectangle for path item (18-Dec-91 DAL)

*
* DrawPopUpThing -- draw a framed down-arrow to the left of the path item
*
* Location = tempRect (bumps tempRect over, too)
*
DrawPopUpThing	lda #4	;move over this far in 640 mode
	jsr HalfIf320
	adc <tempRect+2
	sta <tempRect+2

	pha
	pha	;space for icon
	pea 2	;Misc Icons
	pea 4	;framed down arrow
	lda #0
	pha
	pha	;aux value (ignored)
	_GetSysIcon	;leave icon pointer on stack for DrawIcon

	pea 0	;DrawIcon mode
	pei <tempRect+2	;X position
	pei <tempRect	;Y position
	_DrawIcon

	lda #24	;move over this far in 640 mode
	jsr HalfIf320
	adc tempRect+2
	sta tempRect+2

	rts

*
* Do the Padlock thing
*
DrawThePadlock	lda writeProtect		;see if a write protected disk
	beq @noPadlock

	pea 0
	tdc
	clc
	adc #tempRect
	pha
	_GetPen

	lda tempRect+0	;top
	sec
	sbc #8
	sta tempRect+0

	pha
	pha	;space for GetSysIcon result
	pea 2	;misc icons
	pea 1	;misc icon #1 = padlock
	lda #0
	pha
	pha	;aux value (long)
	_GetSysIcon
	pea 0
	lda #4	;move over 4 in 640 mode
	jsr HalfIf320
	adc <tempRect+2
	pha	;X
	lda <tempRect
	inc a
	pha	;Y
	_DrawIcon

	lda #18		;move over this far in 640 mode (was 12 6-Feb-92 DAL)
	jsr HalfIf320		;12-Jan-91 DAL
*** added 6-Feb-92 DAL -- Also adjust the pen position!
	pha	;preserve delta
	pha	;delta X for Move
	pea 0	;delta Y for Move
	_Move
	pla	;restore delta
*** end 6-Feb-92
	adc tempRect+2		;left edge of rect
	sta tempRect+2

@noPadlock	rts


**********************************************************************
*
* DrawTheFileSystem -- 25-Mar-91 DAL
*
**********************************************************************
DrawTheFileSystem	jsr GetTheFSTName
	bcs @notFound

	pea $0020
	_DrawChar
	pea $0028	;'('
	_DrawChar

	pushlong #fstNameBuffer+4
	lda fstNameBuffer+2
	and #$00ff
	pha
	_DrawText

	pea $0029	;')'
	_DrawChar

@notFound	rts

ParBlock_FSTInfo	dc.w 5	;pCount=5
fstnum_FSTInfo	dc.w 0
fstID_FSTInfo	dc.w 0
fstName_FSTInfo	dc.l fstNameBuffer
fstVersion_FSTInfo	dc.w 0
fstAttr_FSTInfo	dc.w 0

	export fstNameBuffer
fstNameBuffer	dc.w 32
	ds.b 34

	export GetTheFSTName
GetTheFSTName	stz fstnum_FSTInfo
@search	inc fstnum_FSTInfo
	pushlong #ParBlock_FSTInfo
	pea $202b	;GetFSTInfo
	jsl $e100b0
	bcs @notFound
	lda fstID_FSTInfo
	cmp <FileSysID
	bne @search
	clc
@notFound	rts

	ENDP

**********************************************************************
*
* HalfIf320 -- 12-Jan-91 DAL
*
* Cuts A in half if we're in 320 mode
*
* Returns carry clear so we can do an addition right
* after the call to this routine.
*
**********************************************************************
HalfIf320	proc export
	bit <FGetPutFlag
	bvc @1	;it's 640
	lsr a	;cut in half for 320
@1	clc
	rts

	EndP

**********************************************************************
*
* PollForInsertions
*
* Check for a disk insertion and return device number in A if
* something was inserted.
*
* The DO_INSERT_SCAN service scans *all* the devices and then tells
* us about the first insertion it detected.  This is good for two
* things:
*
* 1. We can call PollForInsertion *once* to ignore all pending inserts.
* 2. When a CD with multiple partitions is inserted, we only find out
*    about it once.
*
**********************************************************************

PollForInsertions	proc export

	pha
	_ScanDevices
	pla
	rts

	EndP

**********************************************************************
*
* JudgeTheName
*
* Make sure the filename is valid for this file system.  If it's not,
* put up a big alert explaining what's wrong.
*
* Return values: CLC = name was okay
*                SEC = name was bad, edit line text may or may
*                      not have been replaced
*
* Inputs:
*   Text in the edit line item (dialog item 10).
*   <FileSysID on direct page
*   A = 3 for file, 2 for folder
*
**********************************************************************
JudgeTheName	proc
	import fstNameBuffer
	import GetTheFSTName

	sta jnNameType

	lda <FileSysID
	sta jnFileSys

	jsr GetTheFSTName

;;	pha
;;	pha
;;	_FrontWindow
*** added 18-Dec-91 DAL -- don't use FrontWindow; Bryan P has hidden the window already!
	pushzlong <dialogPtr
*** end 18-Dec-91
	pea 10	;dialog item number for edit line
	pushlong #fileName1+1
	_GetIText
	lda fileName1+1
	and #$00ff
	sta fileName1	;made it into a GS/OS string

	pushlong #fileName1
	pushlong #fileName2+2
	pushlong #41
	_BlockMove

	pushlong #JudgeNameParms
	pea $2007
	jsl $e100b0
;	_JudgeName
	bcc @noExit
	brl @exit
@noExit

	lda jnNameFlags
	clc
;;;	beq @nameOK
	bne @nameNotOK
	brl @nameOK
@nameNotOK

	lda jnSyntaxString+2
	sta theFSTHelpStr+2
	lda jnSyntaxString
	sta theFSTHelpStr

	lda fileName2+2
	xba
	sta fileName2+2	;make fileName2+3 a Pascal string

	lda fileName1
	xba
	sta fileName1	;make fileName1+1 a Pascal string

	lda fstNameBuffer+2
	xba
	sta fstNameBuffer+2	;make fstNameBuffer+3 a Pascal string

	pea $4009	;bad input value, default to bonk
	_SysBeep2

	_InitCursor	;added 3-Sep-91 DAL

	pha	;space for result
	pea 5	;by resource, Pascal substitution strings
	pushlong #JudgeSubstitutions
	pushlong #$07ff1701	;JudgeName alert window ID
	_AlertWindow
	pla
	bcs @exit
	sec
	beq @exit	;they clicked "No Change"--exit with SEC

;;	pha
;;	pha
;;	_FrontWindow
*** 18-Dec-91 DAL
	pushzlong <dialogPtr
***
	pea 10
	pushlong #fileName2+3
	_SetIText

	pha
	pha
	_FrontWindow
	pea 10
	pea 0
	pea $ff
	_SelectIText

	sec	;return SEC since their first name was no good
@nameOK
@exit	rts

JudgeNameParms	dc.w 6	;6 parameters
jnFileSys	dc.w 0	;file system
jnNameType	dc.w 0	;name type (1=volume, 2=file, 3=folder, 0=unknown)
jnSyntaxString	dc.l 0	;(result) pointer to syntax string
jnMaxLength	dc.w 0	;(result)
jnNameBuffer	dc.l fileName2	;input/output
jnNameFlags	dc.w 0	;(result)

JudgeSubstitutions	dc.l fileName1+1	; *0 = their trial name
	dc.l fstNameBuffer+3 ; *1 = file system name
	dc.l fileName2+3	; *2 = fixed-up valid name
theFSTHelpStr	dc.l 0	; *3 = FST-syntax-help message
	dc.l noChangeName	; *4 = "No Change"

fileName1	ds.b 41
fileName2	dc.w 40	;result buffer
	ds.b 42

noChangeName	dc.b 9,'No Change'

	EndP

	END 
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/StdFile/sfmain.asm b/IIGS.601.SRC/GSToolbox/StdFile/sfmain.asm
new file mode 100644
index 0000000..9ff0eef
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/StdFile/sfmain.asm
@@ -0,0 +1 @@
+	title 'Standard File'
**********************************************************************
*
* Standard File
*
* Copyright (c) Apple Computer, Inc. 1988-92
* All Rights Reserved
*
*
* 5/10/89	Mensch
* Made status return the status.
*
* 8/25/89	Yee
* Change the verison from $0301 to $8302.
*
* 18-Nov-90	Dave Lyons
* Changed version from $0302 to $8303.
*
* 5-Feb-92	Dave Lyons
*
* Version $0303.
*
**********************************************************************
*
* 17-Feb-92	Dave Lyons
*
* Version $8304 for 6.1d1.
*
* 2-Apr-93	Steve Stephenson
*
* Version $0304 for 6.0.1 (final)
*
**********************************************************************

	print push
	print off
	INCLUDE  'all.macros'
	INCLUDE  'E16.EVENT'
	include 'e16.dialog'
	INCLUDE  'E16.LIST'
	INCLUDE  '::sys.equs.asm'
	INCLUDE  'GlobalEqu.aii'

	print pop
	string asis

SFVersionNumber	equ $0304	;2-Apr-93 SS
SystemTool	equ $0000
SfToolNumber	equ $0017

SFCallTable	PROC

TheStart
	dc.L (TheEnd-TheStart)/4

	dc.L SFBootInit-1		;$0117
	dc.L SFStartup-1		;$0217
	dc.L SFShutdown-1		;$0317
	dc.L SFVersion-1		;$0417
	dc.L SFReset-1		;$0517
	dc.L SFStatus-1		;$0617
	dc.L SFReserved-1		;$0717
	dc.L SFReserved-1		;$0817


	dc.L SFGetFile-1		;$0917
	dc.L SFPutFile-1		;$0A17
	dc.L SFPGetFile-1		;$0B17
	dc.L SFPPutFile-1		;$0C17
	dc.L SFAllCaps-1		;$0D17
	dc.L SFGetFile2-1		;$0E17
	dc.L SFPutFile2-1		;$0F17
	dc.L SFPGetFile2-1		;$1017
	dc.L SFPPutFile2-1		;$1117
	dc.l SFSetInvisible-1	;$1217
	dc.l SFReScan2-1		;$1317
	dc.l SFMultiGet2-1		;$1417
	dc.l SFPMultiGet2-1		;$1517
*
* additional new calls will be added here!
*	

TheEnd

	ENDP


SFAllCaps	PROC  EXPORT
**********************************************************************
* Takes 1 parameter off stack: But who really cares
*  --------------------
*  |     Flag Value   |  Word
*  --------------------
*  |     RTL          |  3 bytes
*  --------------------
*  |     RTL          |  3 Bytes
*  --------------------
*  |                  |  <- SP
*
**********************************************************************

	DefineStack
Rtl1	block  3	
Rtl2	block  3
flagval	word

	ldy #2
	ldx #0
	jml ToStrip
	ENDP


SFBootInit	PROC
	ENTRY SFReset
SFReset
	ENTRY SFReserved
SFReserved

	lda #0
	clc
	rtl

	ENDP


SFStartup	PROC  EXPORT
**********************************************************************
*
* SFStartup
*
* Takes 2 parameters off stack:
*  --------------------
*  | Direct Page Ptr  |  Word
*  --------------------
*  |     User ID      |  Word
*  --------------------
*  |     RTL          |  3 bytes
*  --------------------
*  |     RTL          |  3 Bytes
*  --------------------
*  |                  |  <- SP
*
*
**********************************************************************


	DefineStack
origD	word
Rtl1	block  3	
Rtl2	block  3
directpage	word
userid	word


*	lda >$00C061
*	and #$0080
*	beq @1
*	brk $88
*@1

	phd
	lda  directpage,s
*** added 7-Apr-91 DAL
	bne @okay
	pld
	ldx #sfNotStarted
	bra @error
@okay
*** end of 7-Apr-91 DAL

	tcd		;and set it.

;	tdc
	jsr SetTheWAP

	pha
	_ListStatus
	plx
	bcc  @2
	PushWord  #0028
	PushWord  #0000
	_LoadOneTool		;list manager
@2

	_ListStartUp

	stz  invisible		;default no invisible files
	
	lda  userid,s		;get passed id
	sta  MyID
	pld

;	ldy #4
;	ldx #0

	ldx #0
@error	ldy #4
	jml ToStrip


	ENDP

SetTheWAP	PROC

	PushWord #SystemTool
	PushWord #SfToolNumber
	pea 0000
	pha
	_SetWAP

	rts

	ENDP


SFShutdown	PROC

	lda #0
	jsr SetTheWAP

	bra SFBootInit

	ENDP



SFVersion	PROC
	DefineStack
RTL1	block 3
RTL2	block 3
VerResult	word

	lda #SFVersionNumber
	sta VerResult,s
	bra SFBootInit

	ENDP



SFStatus	PROC
; Modified to return the actual status 5/10/89 Mensch
	DefineStack
RTL1	block 3
RTL2	block 3
StatResult	word
	cmp #0
	beq NotStarted	; if the WAP is zero, we were not started yet
	lda #-1	; else, we were started
NotStarted
	sta StatResult,s
	bra SFBootInit

	ENDP


SFSetInvisible	PROC  EXPORT
**********************************************************************
*
* SFSetinvisible
*
* Takes 1 parameters off stack:
*  --------------------
*  | space for results|  Word
*  --------------------
*  | Flag value       |  Word
*  --------------------
*  |     RTL          |  3 bytes
*  --------------------
*  |     RTL          |  3 Bytes
*  --------------------
*  |                  |  <- SP
*
*
**********************************************************************

	DefineStack
origD	word
Rtl1	block  3	
Rtl2	block  3
invisibleVal	word
old_results	word

*** added 7-Apr-91 DAL -- make sure we're started
	tay
	bne @started
	ldx #sfNotStarted
	bra @error
@started
*** end of 7-Apr-91 DAL

	phd
	tcd
	lda  invisible
	beq  @1
	lda  #$FFFF		;force all bits on if not 0
@1
	sta  old_results,s
	lda  invisibleVal,s
	beq  @off
	lda  #0004		;same bit in AUX type so I can do and AND
@off
	sta  invisible		;set invisible files
	pld

	ldx #0
@error	ldy #2

;	ldy #2
;	ldx #0
	jml ToStrip

	ENDP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Sys.Resources/Dialog.aii b/IIGS.601.SRC/GSToolbox/Sys.Resources/Dialog.aii
new file mode 100644
index 0000000..8202834
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Sys.Resources/Dialog.aii
@@ -0,0 +1 @@
+****************************************************************
*
VersionDialog	PROC
*
****************************************************************
		With	GlobalData

		Import	GetVersions,VersionFilter

Handle		equ	40
Pointer		equ	44

		ldx	#$0A12			;WaitCursor
		jsl	$E10000

		pha				; get the port and leave it on the
		pha				; stack
		_GetPort

		pha
		pha
		PushLong #Template
		_GetNewModalDialog		; leave	pointer	on stack

		lda	1,s			; save the pointer and set
		sta	VDialogPtr		; the port
		lda	3,s
		sta	VDialogPtr+2
		_SetPort

		jsr	GetVersions

		pha				; space	for result
		pha
		PushLong VDialogPtr
		PushLong #ListRec		; list record
		_CreateList
		pla
		sta	ListControl
		pla
		sta	ListControl+2

		jsr	SaveAndZeroRefCons

		_InitCursor

		pha
		PushLong #VersionFilter+$80000000
		_ModalDialog			; call modal dialog
		pla

		PushLong ListControl
		_DisposeControl

		PushLong VDialogPtr
		_CloseDialog			; close	the dialog

		_SetPort

		rts



SaveAndZeroRefCons
		pha				; Get the ref con of the list
		pha				; control and save it
		PushLong ListControl
		_GetCtlRefCon
		pla
		sta	ListRefCon
		pla
		sta	ListRefCon+2

		lda	ListControl		; now find the handle to the
		sta	handle			; scroll bar control
		lda	ListControl+2		; (its at the end of the record
		sta	Handle+2		; used by the list control)

		lda	[Handle]
		sta	Pointer
		ldy	#2
		lda	[Handle],y
		sta	Pointer+2

		ldy	#52
		lda	[Pointer],y
		sta	ScrollControl
		iny
		iny
		lda	[Pointer],y
		sta	ScrollControl+2

		pha				; use this to save and zero
		pha				; ref con of the Scroll	bar control
		PushLong ScrollControl
		_GetCtlRefCon
		pla
		sta	ScrollRefCon
		pla
		sta	ScrollRefCon+2


		Entry	ZeroRefCons
ZeroRefCons
		PushLong #0			; zero the ref con of the list
		PushLong ListControl		; control
		_SetCtlRefCon

		PushLong #0
		PushLong ScrollControl
		_SetCtlRefCon

		rts

		Entry	RestoreRefCons
RestoreRefCons
		PushLong ListRefCon		; zero the ref con of the list
		PushLong ListControl		; control
		_SetCtlRefCon

		PushLong ScrollRefCon
		PushLong ScrollControl
		_SetCtlRefCon

		rts


		Import	MyDraw,MyList

		Entry	VDialogPtr
VDialogPtr
		DS.B	4

ListControl	DS.B	4
ListRefCon	DS.B	4


ScrollControl	DS.B	4
ScrollRefCon	DS.B	4

Template	DC.W	20,30,185,350		; bounds rect
		DC.W	TRUE			; visible
		DC.L	0			; ref con
		DC.L	item1
		DC.L	item2
		DC.L	0000


item1		DC.W	1			; id
		DC.W	145,250,00,00		; bounds rect for button
		DC.W	ButtonItem		; type
		DC.L	But1			; item descreptor
		DC.W	00			; item value
		DC.W	0			; item flag
		DC.L	0			; item color

item2		DC.W	2			; id
		DC.W	05,10,15,280		; bounds rect
		DC.W	StatText		; type
		DC.L	Msg			; item descreptor
		DC.W	00			; item value
		DC.W	0			; item flag
		DC.L	0			; item color


ListRec		DC.W	27,10,109,280		; lists	enclosing rect
		DC.W	39			; number of members in the list
		DC.W	08			; number seen at once
		DC.W	$01			; list type (c strings)
		DC.W	1			; list start (first seen)
		DC.L	0			; space	for control
		DC.L	MyDraw			; list draw (pointer to	draw routine)
		DC.W	10			; height of single item
		DC.W	6			; size of list record
		DC.L	MyList			; pointer to the list itself
		DC.L	0			; ref con
		DC.L	0			; adr of color table for control


		EXPORT	MyList
MyList
		dc.l	Tool0
		dc.b	0,0
		DC.L	Tool1			; pointer to string
		DC.B	0,1			; memflag byte and index number
		DC.L	Tool2
		DC.B	0,2
		DC.L	Tool3
		DC.B	0,3
		DC.L	Tool4
		DC.B	0,4
		DC.L	Tool5
		DC.B	0,5
		DC.L	Tool6
		DC.B	0,6
		DC.L	Tool7
		DC.B	0,7
		DC.L	Tool8
		DC.B	0,8
		DC.L	Tool9
		DC.B	0,9
		DC.L	Tool10
		DC.B	0,10
		DC.L	Tool11
		DC.B	0,11
		DC.L	Tool12
		DC.B	0,12
		DC.L	Tool13
		DC.B	0,13
		DC.L	Tool14
		DC.B	0,14
		DC.L	Tool15
		DC.B	0,15
		DC.L	Tool16
		DC.B	0,16
		DC.L	Tool17
		DC.B	0,17
		DC.L	Tool18
		DC.B	0,18
		DC.L	Tool19
		DC.B	0,19
		DC.L	Tool20
		DC.B	0,20
		DC.L	Tool21
		DC.B	0,21
		DC.L	Tool22
		DC.B	0,22
		DC.L	Tool23
		DC.B	0,23
		DC.L	Tool24
		DC.B	0,24
		DC.L	Tool25
		DC.B	0,25
		DC.L	Tool26
		DC.B	0,26
		DC.L	Tool27
		DC.B	0,27
		DC.L	Tool28
		DC.B	0,28
		DC.L	Tool29
		DC.B	0,29
		DC.L	Tool30
		DC.B	0,30
		DC.L	Tool31
		DC.B	0,31
		DC.L	Tool32
		DC.B	0,32
		DC.L	Tool33
		DC.B	0,33
		DC.L	Tool34
		DC.B	0,34
		DC.L	Tool35
		DC.B	0,35
		DC.L	Tool36
		DC.B	0,36
		DC.L	Tool37
		DC.B	0,37
		DC.L	Tool38
		DC.B	0,38

		String	Pascal
But1		dc.b	'OK'

Msg		dc.b	'Version Reporter'


Tool0		dc.b	' 0.  GS/OS'
Tool1		dc.b	' 1.  Tool Locator'
Tool2		dc.b	' 2.  Memory Manager'
Tool3		dc.b	' 3.  Miscellaneous Tools'
Tool4		dc.b	' 4.  QuickDraw II'
Tool5		dc.b	' 5.  Desk Manager'
Tool6		dc.b	' 6.  Event Manager'
Tool7		dc.b	' 7.  Scheduler'
Tool8		dc.b	' 8.  Sound Manager'
Tool9		dc.b	' 9.  ADB Tool'
Tool10		dc.b	'10.  SANE'
Tool11		dc.b	'11.  Integer Math'
Tool12		dc.b	'12.  Text Tools'
Tool13		dc.b	'13.  Used Internally'
Tool14		dc.b	'14.  Window Manager'
Tool15		dc.b	'15.  Menu Manager'
Tool16		dc.b	'16.  Control Manager'
Tool17		dc.b	'17.  System Loader'
Tool18		dc.b	'18.  QuickDraw Auxilary'
Tool19		dc.b	'19.  Print Manager'
Tool20		dc.b	'20.  Line Edit'
Tool21		dc.b	'21.  Dialog Manager'
Tool22		dc.b	'22.  Scrap Manager'
Tool23		dc.b	'23.  Standard File'
Tool24		dc.b	'24.  Disk Utilities'
Tool25		dc.b	'25.  Note Synthesizer'
Tool26		dc.b	'26.  Note Sequencer'
Tool27		dc.b	'27.  Font Manager'
Tool28		dc.b	'28.  List Manager'
Tool29		dc.b	'29.  A.C.E.'
Tool30		dc.b	'30.  Resource Manager'
Tool31		dc.b	'31.  not assigned'
Tool32		dc.b	'32.  Midi Tools'
Tool33		dc.b	'33.  Video Overlay'
Tool34		dc.b	'34.  TextEdit'
Tool35		dc.b	'35.  MidiSynth'
Tool36		dc.b	'36.  not assigned'
Tool37		dc.b	'37.  Animation Tools'
Tool38		dc.b	'38.  Media Control'
		String	AsIs

		ENDP


*****************************************************************
*
MyDraw		PROC
*
* This routine draws the list item when	asked by the list mgr
*
*	Ptr to Bounding	Rect
*	Ptr to member record
*	Handle to list Control record
*
*
*****************************************************************

		Import	DrawVerString,VerTable

OrigD		equ	1
RTLAdr		equ	OrigD+2
CHandle		equ	RTLAdr+3
MemberPtr	equ	CHandle+4
RectPtr		equ	MemberPtr+4

		phd
		tsc
		tcd
		phb
		phk
		plb

		ldy	#2
		lda	[RectPtr],y
		clc
		adc	#10
		pha
		ldy	#4
		lda	[RectPtr],y
		dec	a
		dec	a
		pha
		_MoveTo


		ldy	#2
		lda	[MemberPtr],y
		pha
		lda	[MemberPtr]
		pha
		_DrawString

		ldy	#6
		lda	[RectPtr],y
		sec
		sbc	#42
		pha
		ldy	#4
		lda	[RectPtr],y
		dec	a
		dec	a
		pha
		_MoveTo

		ldy	#5
		lda	[MemberPtr],y
		and	#$00FF
		asl	a
		tax
		lda	VerTable,x
		jsr	DrawVerString


		plb
		pld
		lda	1,s
		sta	13,s
		lda	2,s
		sta	14,s
		tsc
		clc
		adc	#12
		tcs
		rtl



		ENDP



*****************************************************************
*
VersionFilter	PROC
*
*
*****************************************************************
		With	GlobalData


oWhere		equ	10			; offset in event record



OrigD		equ	1
OrigB		equ	OrigD+2
RTLAdr		equ	OrigB+1
ItemHitPtr	equ	RTLAdr+3
EventPtr	equ	ItemHitPtr+4
DialogPtr	equ	EventPtr+4
ReturnFlag	equ	DialogPtr+4

		phd				; save d
		phb				; save b
		phk				; set b	to our bank
		plb

		tsc				; turn stack into zp
		tcd

		stz	ReturnFlag		; we always return false

		lda	[EventPtr]
		cmp	#1			; only care about mouse	down
		bne	AllDone

		pha
		PushLong #FoundControl
		ldy	#oWhere+2
		lda	[EventPtr],y
		pha
		dey
		dey
		lda	[EventPtr],y
		pha
		PushLong VDialogPtr
		_FindControl
		pla
		beq	AllDone
		cmp	#5			; if less than a up arrow then skip it
		bcc	AllDone
		cmp	#10			; if less than grow then take it
		bcc	DoIt

		cmp	#$81
		bne	AllDone


DoIt
		jsr	RestoreRefCons

		pha
		ldy	#oWhere+2
		lda	[EventPtr],y
		pha
		dey
		dey
		lda	[EventPtr],y
		pha
		PushLong #$FFFFFFFF
		PushLong FoundControl
		_TrackControl
		pla

		jsr	ZeroRefCons

AllDone

		plb				; restore b
		pld				; restore d


		phb				; put extra byte on stack
		pla				; pull long into x,a
		plx
		ply				; strip	6 words
		ply
		ply
		ply
		ply
		ply
		phx
		pha

		plb				; pull extra byte

		rtl				; done



FoundControl	DS.B	4


		ENDP



*****************************************************************
*
GetVersions	PROC
*
* Fills	the version table with the right version numbers.
*
*****************************************************************

		Import	VerTable

		PushWord #$0426			; start	with Media Controller version
Loop
		lda	1,s
		tax
		pea	0000
		jsl	$E10000
		pla
		bcc	VerOK

		lda	1,s			; lets try loading the tool from
		and	#$00FF			; disk--get ts num in low byte of a
		pha				; push it
		PushWord #$0000			; no min version
		_LoadOneTool			; load it
		lda	#$FFFF			; assume fail
		bcs	VerOK			; oh-well we failed.

		lda	1,s			; it loaded!
		tax				; get the version call number again
		pea	0000			; and make the call
		jsl	$E10000

		lda	3,s			; get tool number again	so I can
		and	#$00FF			; unload the tool
		pha				; twice	for good luck
		pha
		_UnloadOneTool
		pla				; get rid of second

		pla				; now get version result off stack


VerOK		tay
		lda	1,s
		and	#$00FF
		asl	a
		tax
		tya
		sta	VerTable,x

		pla
		dec	a
		pha
		and	#$00FF
		bne	Loop

		pla				; remove tool number from stack

		_GetVersionGS versionParms	; get the OS version number

		lda	osVersion
		sta	VerTable		; pretend it's tool 0

		rts

versionParms	dc.w	1			;pCount
osVersion	ds.w	1			;space for returned version #
		ENDP


*****************************************************************
*
VerTable	Record
*
*****************************************************************

		DS.w	39			;space to hold tool version words

		ENDR

*****************************************************************
*
DrawVerString	PROC
*
* Called when pen is already in	position.  Version number is in
* a-reg.
*
*****************************************************************

		cmp	#$FFFF
		bne	continue

		PushLong #NAStr
		_DrawString
		rts

		String	Pascal
NAStr		dc.b	' N/A'
		String	AsIs

continue
		pha				; save version on stack

		lda	#4
		sta	StrLen

		lda	1,s
		xba
		and	#$007F			; put high byte	of version number on stack
		pha
		PushLong #Chars
		PushWord #2
		PushWord #0			; not signed
		_Int2Dec			; convert to ASCII

		lda	#'.'
		sta	Chars+2

		lda	1,s
		and	#$00FF			; put low byte of version number on stack
		pha
		PushLong #Chars+3
		ldx	#1			; init index
		sep	#$20			; 8-bit	compares, please
		longa	off
@loop
		cmp	magnitude,x		; find out how big to make the number
		bcc	@done			; got it
		inx
		inc	StrLen			; bump string length too
		bne	@loop			; branch always
@done
		rep	#$20			; back to 16-bit mode
		longa	on
		phx				; put length of	number on stack

SizePushed	PushWord #0			; not signed
		_Int2Dec			; convert to ASCII

		pla				; take version off the stack
		bpl	NotProto
		sep	#$30
		longa	off
		longi	off
		inc	StrLen			; bump by 1 to include the 'P'
		ldx	StrLen			; point	to end of string
		lda	#'P'			; put the P there too
		sta	Str,x
		rep	#$30
		longa	on
		longi	on

NotProto
		PushLong #Str
		_DrawString

		rts

Str
StrLen		DS.B	1
Chars		DS.B	6			; 'xx.xxP'

magnitude	dc.b	0,10,100
		ENDP



\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Sys.Resources/FrameControl.aii b/IIGS.601.SRC/GSToolbox/Sys.Resources/FrameControl.aii
new file mode 100644
index 0000000..f1b803e
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Sys.Resources/FrameControl.aii
@@ -0,0 +1 @@
+;---------------------------------------------------------------------
;
;  file  CustomFrameCtl.a
;
;  This file contains assembly routines for GrayFrameCtl description
;
;  created:	13-Dec-89
;  modified:	See Mod History Below
;  Authors:	Xavier Schott, Dave Lyons
;
;  Copyright (C) Apple Computer, Inc. 1989-1991
;  All Rights Reserved.
;
;---------------------------------------------------------------------
;
;  Modification History
;
;  13-Dec-89	XAS	Created
;  10-Jan-90	ADS	Adding "testCtl" handler, so we can call "FindControl"
;			on these frames.  If the control is not inactive,
;			we return a part code of 32.
;  18-Jan-90	XAS	Changing the colorFlag and introducing 'invisibleColor', so
;			non-visible rectangles can be active and return a part.
;  15-Feb-91	DAL	Added this code to Sys.Resources (ID=07ff0003).  This will
;			always be used as an extended control.
;  16-Feb-91	DAL	Adding new optional parameters in the template: pen
;			size, pen mask, pen pattern.  No longer derefs control
;			handleon the recSize message.
;			Now preserves the pen state completely.
;  24-Feb-91	DAL	Changed the pen state buffer to be 50 bytes, not 46.
;
;---------------------------------------------------------------------


		INCLUDE	'new.stack.macros'
		include 'all.macros'

PartCode	EQU	31	; the part code we use - from the System range

drawCtl		EQU	$0000	; DefProc - Draw control command.
testCtl		EQU	$0002	; DefProc - Test for hit command
initCtl		EQU	$0003	; Defproc - Initialize command.
posCtl		EQU	$0005	; DefProc - Move indicator command.
thumbCtl	EQU	$0006	; DefProc - Compute drag parameters command.
recSize		EQU	$000C	; DefProc - Return record size command.

ctlInVis	EQU	$0080	; CtlFlag - invisible mask for any type of control 

defaultHeight	equ 1		;default height
defaultWidth	equ 2		;default width in 640 mode (half in 320)

;---------------------------------------------------------------------
;
;  FUNCTION  FrameCtl(	ctlMessage: INTEGER; ctlParam: LongInt;
;			ctlHandle: CtlRecHndl): LongInt;
;
;  Control Definition Procedure for a custom FrameRect control
;  ¥ Use it to add Gray or black rectangles,
;
;                    +-------------------+
;                    l                   l
;                    l                   l
;                    +-------------------+
;
;  ¥ opened rectangles (to include one or more items in a box, with a title)
;  (Just be sure that the title text gets drawn after the box.  If it's a control,
;  that means the text has to be created *before* the box, since controls are
;  drawn in the opposite order than how they were created.)
;
;                    +---- Box Title ----+
;                    l                   l
;                    l                   l
;                    +-------------------+
;
;  ¥ Vertical or horizontal lines ( just make the rectangle width of height
;  small enough) to hilite or separate items
;
;       l
;       l       and  ---------------------
;       l
;
;  ¥ Invisible key areas in a dialog. Make the control active & visible, but set its
;  color to transparent (0).
;
;  Draw either in black or in gray. Resets penPat to black and PenSize to (2, 1)
;  INPUTS/OUTPUTS standard ctlProc inputs defined page 4-25 of Apple IIGS toolBox reference
;
; NOTE:		Template format
; itemxx	pCount		dc.w	6 or 8 or 9 or 10
; 1	+002	ID		dc.l	xx
; 2	+006	Rect		dc.w	0, 0, 0+1, 0+1
; 3	+014	ProcRef		dc.l	FrameCtl
; 4	+018	Flag		dc.w	0		; Bits 0-1: 0=InvisColor  1=Gray  2=Black  3=reserved
; 5	+020	MoreFlags	dc.w	0		; ignored
; 6	+022	RefCon		dc.l	0
;		--- custom fields in the template
; 7	+026	PenHeight	dc.w	0
; 8	+028	PenWidth	dc.w	0
; 9	+030	PenMask		8 bytes
; 10	+030	PenPattern	32 bytes
;
oTmplHeight	equ 26
oTmplWidth	equ 28
oTmplPenMask	equ 30
oTmplPattern	equ 38
;
; offset constants for CtlRec
;
octlNext	equ 0
octlOwner	equ 4
octlRect	equ 8
octlFlag	equ 16
octlHilite	equ 17
octlValue	equ 18
octlProc	equ 20
octlAction	equ 24
octlData	equ 28
octlRefCon	equ 32
octlColor	equ 36
octlReserved	equ 40
octlID		equ 56
octlMoreFlags	equ 60
octlVersion	equ 62
;--- custom fields in the Frame Control Record
octlHeight	equ 64
octlWidth	equ 66
octlPenMask	equ 68	;8 bytes
octlPattern	equ 76
octlRecSize	equ octlPattern+32

;---------------------------------------------------------------------
;
; Control Defproc
;
FrameCtl	FUNC	EXPORT
		InitFrame
		FrameType	SaveB		; because it's a toolBox callBack

ctlPtr		Local	Ptr
ctlHandle	Param	Handle
ctlParam	Param	LongInt
ctlMessage	Param	INTEGER
theResult	Result	LongInt

		EntryCode

; initialize exitResult to nil
; dispatch the ctlMessage
		stz <theResult		; default return values = 0
		stz <theResult+2
		phb
		phk
		plb				; so we can make absolute adressing

		lda <ctlMessage
		cmp #recSize		; return record size
		bne @notCtlSize
		lda #octlRecSize
		sta <theResult
		brl mainExit
@notCtlSize

;  For every message except recSize, deref the control handle

		ldy #2			; deref to get ctl Record
		lda [<ctlHandle]
		sta <ctlPtr
		lda [<ctlHandle],y
		sta <ctlPtr+2

;  start dispatching the control message

		lda <ctlMessage
		cmp #initCtl
		bne @notInit
		jsr InitControl
		brl MainExit

@notInit	cmp #drawCtl
		bne TryTestCtl

		jsr PreservePen

; draw control, the real stuff
; ctlMessage contains the drawCtl code. But before drawing, check that the control
; is visible first

		ldy #octlFlag		; is control visible ?
		lda [<ctlPtr],y
		tax
		and #ctlInVis
		bne jumptoexit		; bit set, not visible

; Here we are: the control is visible.
; The visual appearance of the rectangle depends on the bits 0 & 1 of ctlFlag
; We now change the pen pattern, change the pen size, frame the controlRect,
; restore the black pattern, and exit with theResult of nil

		txa			; octlFlag still in Xreg
		and #$0003
		beq jumpToExit		; invisible pattern

		clc
		lda #octlPattern
		adc <ctlPtr
		tax
		lda <ctlPtr+2
		adc #0
		pha
		phx
		_SetPenPat

		clc
		lda #octlPenMask
		adc <ctlPtr
		tax
		lda <ctlPtr+2
		adc #0
		pha
		phx
		_SetPenMask

		ldy #octlWidth
		lda [<ctlPtr],y
		pha
		dey
		dey
		lda [<ctlPtr],y
		pha
		_SetPenSize

		clc				; FrameRect( ctlRect)
		lda <ctlptr
		adc #octlRect
		tax
		lda <ctlPtr+2
		adc #0
		pha
		phx
		_FrameRect

		jsr RestorePen

jumptoexit	bra mainExit


;------------------------------------------------------------
;  TestCtl
;
;  Returns partID #32 if (1) pt in rect (2) ctl is active
;------------------------------------------------------------

TryTestCtl	equ	*
		cmp	#testCtl
		bne	moreCodes
		
		stz	<theResult		; assume no hit
		
		ldy	#oCtlHilite		; are we active?
		lda	[<ctlPtr],y
		and	#$FF
		cmp	#$FF
		beq	mainExit		; inactive.  don't return hits.
		
		phy				; call PtInRect
		tdc
		clc
		adc	#ctlParam		; push @ hitPoint
		pea	0
		pha
		lda	<ctlPtr			; push @ ctl Rect
		ldx	<ctlPtr+2
		clc
		adc	#oCtlRect
		bcc	@1
		inx
@1		phx
		pha
		_PtInRect
		pla
		beq	mainExit		; not in rect
		
		lda	#PartCode		; hit - return our part code
		sta	<theResult
		bra	mainExit
		
;------------------------------------------------------------
;
; ctlMessage did not contain any interesting code.
;
; Return correct values anyway, sometimes nil, sometimes one.
;
moreCodes	cmp #posCtl			; return non zero
		beq exitNonZero
		cmp #thumbCtl
		beq exitNonZero

		bra mainExit

exitNonZero	inc <theResult		; non zero return value

mainExit	plb				; restore data bank
		ExitCode



*
* InitControl
*
* Copy the nonstandard fields from the control template
* to the control record, supplying defaults for any parameters
* that are omitted from the template.
*
* CtlPtr points to the control record.  ctlParam points to
* the template.
*
InitControl	ldy #octlHeight
		lda #defaultHeight
		sta [<ctlPtr],y
		iny
		iny
		lda #defaultWidth
		sta [<ctlPtr],y

		ldy #octlFlag
		lda [<ctlPtr],y
		and #3			;00=invisible, 01=gray, 10=black, 11=reserved
		ldx #$3333		;anticipate gray
		cmp #1
		beq @fillPattern
		ldx #$0000
@fillPattern	txa
		ldx #16			;16 words
		ldy #octlPattern
@fill		sta [<ctlPtr],y
		iny
		iny
		dex
		bne @fill

		ldy #octlPenMask
		lda #$ffff		;solid mask default
		ldx #4			;4 words
@fillmask	sta [<ctlPtr],y
		iny
		iny
		dex
		bne @fillmask
*
* Now override the defaults with template values
*
		lda [<ctlParam]		;pcount (Is the height/width in the template?)
		cmp #8
		bcc @done

		ldy #oTmplHeight
		lda [<ctlParam],y
		ldy #octlHeight
		sta [<ctlPtr],y

		ldy #oTmplWidth
		lda [<ctlParam],y
		ldy #octlWidth
		sta [<ctlPtr],y

		lda [<ctlParam]		;pcount (Is the pen mask in the template?)
		cmp #9
		bcc @done

		ldy #oTmplPenMask
		lda [<ctlParam],y
		ldy #octlPenMask
		sta [<ctlPtr],y
		ldy #oTmplPenMask+2
		lda [<ctlParam],y
		ldy #octlPenMask+2
		sta [<ctlPtr],y
		ldy #oTmplPenMask+4
		lda [<ctlParam],y
		ldy #octlPenMask+4
		sta [<ctlPtr],y
		ldy #oTmplPenMask+6
		lda [<ctlParam],y
		ldy #octlPenMask+6
		sta [<ctlPtr],y

		lda [<ctlParam]		;pcount (Is the pattern in the template?)
		cmp #10
		bcc @done

		clc
		lda <ctlParam
		adc #oTmplPattern
		tax
		lda <ctlparam+2
		adc #0
		pha
		phx
		clc
		lda <ctlPtr
		adc #octlPattern
		tax
		lda <ctlPtr+2
		adc #0
		pha
		phx
		pea 0
		pea 32			;32-byte pattern
		_BlockMove

@done
*
* Cut the width in half if we're in 320
*
		pha
		_GetMasterSCB
		pla
		and #$0080
		bne @640
		ldy #octlWidth
		lda [<ctlPtr],y
		lsr a
		sta [<ctlPtr],y
@640
		rts

*
* PreservePen
*
PreservePen	pushlong #oldPenState
		_GetPenState
		rts
*
* RestorePen
*
RestorePen	pushlong #oldPenState
		_SetPenState
		rts

oldPenState	ds.b 50		;was 46, 24-Feb-91 DAL

		ENDFUNC
		END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Sys.Resources/IconButton.aii b/IIGS.601.SRC/GSToolbox/Sys.Resources/IconButton.aii
new file mode 100644
index 0000000..6dd460d
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Sys.Resources/IconButton.aii
@@ -0,0 +1 @@
+	title 'IconButtDefProc'
**********************************************************************
*
* Icon Button Control Def Proc
*
*
* Copyright (C)
* Apple Computer, Inc. 1988-91
* All Rights Reserved
*
* 14 Nov 88	 Konstantin Othmer
*
* Change History:
*
* 22 Mar 89	Harry Yee
*
* Locked down the control handle passed to the icon button defproc. 
* WorkSheet #BCOJHS082.
*
* 28 Mar 89	Steven Glass
*
* Added support for the new ctlWinStateChange message.
*
* 06 Apr 89	Yee & Mensch
*
* We now explicitly set the text mode before drawing any text. The text
* mode is set to mode copy. Before we used whatever text mode the grafport
* happened to be set to. WorkSheet #BCOJHS096.
* 
* Icon buttons were not smearing the color nibble thru the whole word
* but now they do.... (that lazy butt head konstantine)
*
* 07 Apr 89	Mensch
*
* We were calling SetSolidPenPat when we should have been calling SetPenPat
* and creating the pattern ourselves. Also when drawing any text in an icon
* button, we need to call SetFontFlags telling QD to use the whole word of the 
* background/foreground color instead of just the low nibble. WorkSheet #BCOJHS100.
*
* 13 Apr 89	 Harry Yee
*
* We were not checking to see whether the message was RecSize before trying to 
* lock and deref the control handle. Now we check before trying to lock the handle
* and then again when trying to unlock the handle.
*
* 01 May 89	Harry Yee
*
* We were calling SetSolidPenPat when we should have been calling SetPenPat
* and creating the pattern ourselves (this was when we were drawing the icon's 
* border) BRC #47579.
*
* 6/8/89	Mensch, Glass, Harry, Darryl, and Margarita
*
* Geez, what a silly bug this is. If the control defproc happens to
* move (very possible) while an icon button is up then if it uses the
* default color table it will be completely screwed up! Well, now that
* won't happen cause we leave zero as an indicator now...
*
* 6/9/89	Mensch
*
* That bug last night pointed out another bug. The icon button was preserving
* all parts of the grafport that it changed except for the fore and back color.
* It now does this.
*
* 29-Nov-90	Dave Lyons
*
* Defined bit 3 of the Flags to make the control inactive except that it
* still *looks* active.  It just always returns 0 from the Test routine.
*
* 19-Dec-90	Dave Lyons
*
* If bit 3 of Flags is set, we don't inval the control on the ChangeState
* message.
*
* 7-Jul-91	Dave Lyons
*
* Macroized a few tool calls, and changed a couple dozen LDA/PHA into PEI.
*
* 10-Dec-91	Dave Lyons
*
* In UnlockTitle, fixed potentially-random weirdness.  This would have
* crashed before, except GetCtlTitle was reliably returning X=$0004.
* See full description in source.
*
***********************************************************************
*
* BEGIN 6.0.1
*
* 17-Mar-92	Monte Benaresh
*
* Added option and support for "sticky" icon controls.  If bit 4 of the
* ctlFlag field is set, then the control registers a track routine to
* be called from TrackControl.  This routine keeps control until the
* mouse button is released, and leaves the icon drawn in a highlighted
* state if the mouse is inside the control at the release time.  At
* this point, the ctlValue field is set to 1 if the mouse was in the
* control at that time, and is left alone otherwise.  Thus, it is the
* responsibility of the owner of the control to "un-select" it if desired
* by setting the control value to 0 and redrawing the control. The icon
* always draws in the highlighted state if the ctlValue field is not 0.
*
* An extra parameter, #12, has been added to the control template to
* allow for an initial value word for this type of control.
*
* 18-Jun-92	Dave Lyons (6.0.1d6)
*
* Added a few lines in ctlHandleEvent to make Monte's Sticky bit work
* for key equivalents.  For sticky case, had to skip HiliteControl(0)
* and stuff ctlValue=1 and ctlHilite=0.
*
* 15-Jul-92	Dave Lyons (6.0.1d7)
*
* Oops, fix problem I introduced last time, where a non-sticky control
* would stay hilited by accident (I typed the wrong label on a branch).
*
**********************************************************************

	print off
	INCLUDE  'all.macros'
	INCLUDE  'E16.EVENT'

; private macro definition
	MACRO
	PushZPtr &A
	pea  $0000
	tdc
	clc
	adc  #&A
	pha
	MEND


	print on

;-----------------------------------------------------------
;
; Set up template definitions for custom controls
;

Rectangle	RECORD $0
y1	ds.w 1
x1	ds.w 1
y2	ds.w 1
x2	ds.w 1
	ENDR
;
; New Control record template
;

Ctl	RECORD $0
Next	ds.l 1
Owner	ds.l 1
Rect	ds Rectangle
Flag	ds.b 1
Hilite	ds.b 1
Value	ds.w 1
Proc	ds.l 1
Action	ds.l 1
Data	ds.l 1
RefCon	ds.l 1
Color	ds.l 1
Reserved	ds.b $10
ID	ds.l 1
MoreFlags	ds.w 1
Version	ds.w 1
IconRef	ds.l 1
DisplayMode	ds.w 1

ctlKey1	equ Reserved
ctlKey2	equ ctlKey1+1
ctlKeyMods	equ ctlKey2+1
ctlKeyModsCareBits	equ ctlKeyMods+2

	ENDR
	
IconRecSize	equ Ctl.DisplayMode+2
	
	
Icon	RECORD 0
Type	ds.w 1
Size	ds.w 1
Height 	ds.w 1
Width	ds.w 1
Image	ds.l 1	;arbitrarily long
Mask	ds.l 1	;arbitrarily long
	ENDR

;-----------------------------------------------------------
;
; Stack Frame Equates for control
;
	DefineStack
OrigD	word
OrigB	byte
mode	word	;tells us whether we're in 640 or 320 mode
BoundsTemp	long
IconTemp	long
CtlPtr	LONG	;pointer to control record
ret	block 3
theControlHandle	long
ctlParam	long
ctlMessage	word
ReturnValue	long


**********************************************************************
*
* All the custom control stuff for iconbutton control begins here
*
**********************************************************************
*
	EXPORT CtrlCustomProc
CtrlCustomProc	PROC
*
* This is the def_proc for icon button controls.  When this
* routine gets control, the stack looks as described below.
*
*
*
* Inputs:	On entry, the parameters are passed to us on the stack.
*
*	|	| Previous Contents
*	|-------------------|
*	|    ReturnValue	| LONG - Space for return value
*	|-------------------|
*	|    CtlCode	| WORD - operation to perform
*	|-------------------|
*	|    CtlParam	| LONG - add'l parameter
*	|-------------------|
*	|    theCtlHandle	| LONG - Handle to control record
*	|-------------------|
*	|    RtnAddr	| 3 BYTES - RTL address
*	|-------------------|
*	|	| <-- Stack pointer
*
* Outputs:	Put something into ReturnValue, pull off the parameters,
*	and return to the Control Manager.
*
*	|	| Previous Contents
*	|-------------------|
*	|    ReturnValue	| LONG - Space for return value
*	|-------------------|
*	|    RtnAddr	| 3 BYTES - RTL address
*	|-------------------|
*	|	| <-- Stack pointer
*


* set up direct page

	pha	;room for CtlPtr
	pha	
	pha	;room for IconPtr
	pha
	pha	;room for BoundsTemp
	pha
	pha	;room for mode
	
	phb
	phd
	phk
	plb
	tsc	
	tcd

	lda <ctlMessage
	cmp #12	; Is RecSize message being sent?
	beq SkipDeref

	ldy #4
	lda [<theControlHandle],y
	ora #$8000	; lock down handle to control first
	sta [<theControlHandle],y
	
 	lda [<theControlHandle]
	sta <CtlPtr
	ldy #2
	lda [<theControlHandle],y
	sta <CtlPtr+2

	lda <ctlMessage	;dispatch the message
SkipDeref	cmp #19+1	;ignore messages out of range
	bcc InRange
	lda #1	;Returns a null.	
InRange
	asl a
	tax
	jsr (CtrlDispatch,x)
	
	sta <ReturnValue	; save the return value
	stx <ReturnValue+2
	
	lda <ctlMessage
	cmp #12	; Was the RecSize control message sent?
	beq SkipUnlock

	ldy #4
	lda [<theControlHandle],y
	and #$7FFF	; unlock the control handle
	sta [<theControlHandle],y
SkipUnlock
	
;
; The Return Value has been stored on the stack, and it is time for us to
; return back to the Control Manager. Before we do so, however, we must
; remove the parameters that were passed to us on the stack. We do this
; by moving the RTL address up just below the Return Value, getting the
; stack pointer, and adding an amount to it so that we point to where
; the RTL address has been moved to. We can then simply RTL back to the
; Control Manager, and it will pick up the Return Value right off of the
; stack!
;
	lda <Ret	; move the return address up
	sta <ReturnValue-3
	lda <Ret+1
	sta <ReturnValue-2

	tsc	; Get the stack pointer

	pld	; restore caller's Data Bank and
	plb	; Direct Page registers

	clc	; Adjust the stack pointer to point to
	adc #ReturnValue-4	; the new location of the RTL address.
	tcs	; Put the stack pointer back.

	rtl	; back to the caller
	
CtrlDispatch
	dc.w drawCtl
	dc.w Ret_Null	;calcCRect
	dc.w testCtl
	dc.w initCtl
	dc.w dispCtl
	dc.w Ret_Null	;posCtl
	dc.w Ret_Null	;thumbCtl
	dc.w Ret_Null	;dragCtl
	dc.w autoTrack	;proc added 3/16/92 by Monte
	dc.w Ret_Null	;newValue
	dc.w Ret_Null	;setParams
	dc.w Ret_Null	;moveCtl
	dc.w recSize	;12 recSize
	dc.w ctlHandleEvent ;13
	dc.w Ret_Null	;14 ctlChangeActivity
	dc.w Ret_Null	;15 ctlChangeBounds
	dc.w Ret_Null	;16 ctlWindChangeSize
	dc.w Ret_Null	;17 ctlHandleTabl
	dc.w Ret_Null	;18 ctlMultiPart
	dc.w ChangeState	;19 ctlChangeWinState

	ENDP

****************************************************************
*
autoTrack	PROC
*
* Special mouse track routine for "sticky" icons.
*
* This standard control message handler gets called by the
* track loop in TrackControl.  When the current icon is a
* sticky icon, we keep control with our own track loop
* until the mouse button is released.  If the button is
* released while the mouse is in the icon control, the
* control stays "highlighted" to show that it is selected.
*
* By Monte Benaresh -- 3/16/92
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	calls drawCtl
*
*
	longa on	; mode
	longi on
*
****************************************************************

	ldy #Ctl.flag
	lda [CtlPtr],y
	and #$0010	;are we a "sticky" icon?
	bne @is_sticky

	rts	;do nothing if not sticky
@is_sticky
	;when we get called from TrackControl, we are
	;already in the highlighted state

track_loop

; test for mouse in the icon by calling our testCtl routine
; with the current mouse position


	pea $0000	;high word of ptr to point
	tdc
	clc
	adc #ctlParam
	pha	;low word
	_GetMouse

	jsr testCtl	;call our test routine with pt in <ctlParam
	tax	;save result

	ldy #Ctl.Hilite
	eor [CtlPtr],y	;compare to current highlighting
	and #$00FF	;byte only!
	beq no_h_change
change_h
	txa	;restore result of point test

	sep #$20
	LONGA OFF

	ldy #Ctl.Hilite
	sta [CtlPtr],y	;set new highlighting

	rep #$20
	LONGA ON

	lda #$0000
	sta <ctlParam	;set to draw entire control
	jsr drawCtl
no_h_change

; now check for mouse button still down

	pha	;space for result
	pea $0000	;read mouse button
	_WaitMouseUp
	pla	;boolean result
	bne track_loop	;loop if still down
released

; the mouse button was released; if we were inside the control,
; set ctlValue to "selected". in any case, we clear ctlHilite

	ldy #Ctl.Hilite
	lda [CtlPtr],y	;check where we were on mouseup
	tax	;look at result later
	and #$FF00	;clear low (hilite) byte
	sta [CtlPtr],y

	txa	;restore original hilite
	and #$00FF
	beq @outside
@inside
	lda #$0001	;value for "selected"
	ldy #Ctl.value
	sta [CtlPtr],y	;set in record
@outside
; if mouse was outside, leave value field alone

	rts


****************************************************************
*
ChangeState	PROC
*
* Invalidates the controls rectangle so it will be redrawn.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

*** added 19-Dec-90 DAL: don't inval if we're unresponsive to clicks
	ldy #Ctl.Flag
	lda [<CtlPtr],y
	eor #$0008	;flip the bit so I can "beq" with a 0 to exit w/ A=0
	and #$0008
	beq @1
*** end of 19-Dec-90 DAL

	lda <ctlPtr
	clc
	adc #Ctl.Rect
	tax
	lda <ctlPtr+2
	adc #0
	pha
	phx
	_InvalRect

@1	tax

	rts

	ENDP




**********************************************************************
	EXPORT drawCtl
drawCtl	PROC
*
* Draws the control using DrawIcon.
*
*
* Inputs:
*	theControlHandle
*	ctlPtr
*
* Outputs:
*	a-reg and x-reg are zero.
*
* External Refs:
;	import LoadResource
*
* Entry Points:
*	none
*
;
; Bit 7 = 1 => Control is invisible
;
	ldy #Ctl.Flag
	lda [<CtlPtr],y
	bit #$0080	;test bit 7
	beq DrawIt
	rts	;do nothing if control is invisible

DrawIt
;
; Save current pen state before doing anything.
;
	PushLong #OrigPenState	;area to save pen parameters
	_GetPenState
	
;
; 6/9/89 Mensch
; Insert fix here to preserve the text foreground and background colors...
	pha
	_GetForeColor
	pla
	sta >OrigFGColor

	pha
	_GetBackColor
	pla
	sta >OrigBGColor


	lda <CtlPtr	;create pointer to cntrl bounds
	clc
	adc #8
	tax
	lda <CtlPtr+2
	adc #0
	sta <BoundsTemp+2	;temp storage:  keep cntrl bounds ptr
	stx <BoundsTemp
;
; Set up data area for text width and height
;
	pushlong #FontInfoRec
	_GetFontInfo		;gets text height
	
;if there is no text, set text height to zero.

	jsr GetTitlePtr
	cpx #0
	bne NotNull
	cmp #0
	bne NotNull
;
;we have a null string: zero text parameters so their heights are not taken into consideration
;when centering icon and text.
;
	stz ascent
	stz descent
	stz leading
NotNull

	pha	;space for result of string width
	jsr GetTitlePtr
	pha
	phx
	_StringWidth	;leaves width in pixels on the stack
	pla
	sta SWidth
;
; Set up pointer to color table
;

	jsr GetColorPtr	;!! uses icontemp for temporary storage !!
	stx <ctlParam
	sta <ctlParam+2
;
; Set up icon pointer
;
	jsr GetIconPtr
	sta <IconTemp+2
	stx <IconTemp
;
; Setup width and height
;
	ldy #Icon.width
	lda [<IconTemp],y
	pha	;save icon width
	pea #0
	_GetMasterSCB
	pla	;SCB
	and #$80
	sta <mode
	bne Do640Mode
	pla
	bra SaveWidth
	
Do640Mode
	pla
	asl a	;convert it to 640 mode
SaveWidth	sta iWidth

	ldy #Icon.Height
	lda [<IconTemp],y	
	sta iHeight	;save icon height

;
; if bottom right corner of boundsTemp = 0,0 then we calculate it
;

	ldy #CTL.rect.y2
	lda [<CtlPtr],y	;bottom of ctrlbounds
	ldy #CTL.rect.x2
	ora [<CtlPtr],y	;right side of ctrlbounds
	bne NoCalc

;
; Bottom = Top + icon height + text height + 8
; Right = Left + MAX (Icon width, text width) + 12
;

	ldy #CTL.rect.y1
	lda [<CtlPtr],y	;top of ctrlbounds
	clc
	adc iHeight	
	adc ascent
	adc descent
	adc leading	;textheight from fontInfo Record
	adc #8
	ldy #CTL.rect.y2
	sta [<CtlPtr],y	;bottom of ctrlbounds

	lda iWidth
	cmp SWidth
	bcs IconWider
	lda SWidth
IconWider
	ldy #CTL.rect.x1
	clc
	adc [<CtlPtr],y
	adc #12
	ldy #CTL.rect.x2
	sta [<CtlPtr],y
	
;
; Always inset the control rect so that when we draw a round rect with a bold
; outline the whole thing fits in the control rect. 
;
NoCalc
	pushlong <BoundsTemp
	ldx #4
	lda <mode
	bne storeit
	ldx #3
storeit	phx
	pea 2
	_InsetRect

;Now we're set to perform all drawing commands . . .


*** added 16-Mar-92 Monte Benaresh
***	Check if we're currently "selected", which is
***	possible for a "sticky" icon control

	ldy #Ctl.value
	lda [CtlPtr],y
	bne Hilite

*** end 16-Mar-92 Monte Benaresh

;Set pen pattern to either the background color or the hilite color.
;
;
; Check if we need to hilite
;
	ldy #Ctl.Hilite
	lda [<CtlPtr],y
	and #$00FF	;added 3/16/92 by Monte
		;we need this now that ctlValue may
		;be non-0
	bne Hilite
;draw_hilite
 	ldy #2	;No hilite for interior
	lda #6	;no hilite for text
	pha	;text hilite location
	bra NoHilite
;
; Set up hilight color, starts at pos 4 in color table
;
Hilite	
	lda #8	;index to text color when hilited
	pha
	ldy #4	;index to interior color
;
;Set up text color.  Index is on top of the stack
;
NoHilite	
	lda [<ctlParam],y	; get the color and shift it thru all the nibbles

	and #$00F0	; mask off unneeded bits
	pha	; save it on the stack for a sec...
	xba	; put nibble 0 into nibble 2
	ora 1,s	; we now have $x0x0
	sta 1,s	; resave it on the stack
	lsr a	; convert the number to $0x0x
	lsr a
	lsr a
	lsr a	; we now have $0x0x
	ora 1,s	; create $xxxx
	sta 1,s	; resave it on the stack as our param (bgColor)...
; Now push it on the stack 15 more times to create a pattern
	ldy #14
@loopOn	pha
	dey
	bpl @loopOn
	tsc	; now get the stack pointer
	inc a	; increment it
	pea 0000	; push the address of thepattern on the stack
	pha
	_SetPenPat	;color to draw box in
; now pull the pattern off the stack...
	tsc
	clc
	adc #32
	tcs

	ply
	lda [<ctlParam],y
	tax	; save this value for a second
; modify to use full colors...
; by smearing the nibble across the whole word
	and #$000F	; <a>=$000x
	pha	; save it on the stack for a sec...
	xba	; a=$0x00
	ora 1,s	; recover the value (a=$0x0x)
	sta 1,s	; resave it in our temp
	asl a	; now rotate to create $x0x0
	asl a
	asl a
	asl a	; a=$x0x0
	ora 1,s	; a=$xxxx (we have filled the word with the color)
	sta 1,s	; resave it on the stack as our param (fgColor)...

	txa	; recover the color table word...
	and #$00F0	; mask off unneeded bits
	pha	; save it on the stack for a sec...
	xba	; put nibble 0 into nibble 2
	ora 1,s	; we now have $x0x0
	sta 1,s	; resave it on the stack
	lsr a	; convert the number to $0x0x
	lsr a
	lsr a
	lsr a	; we now have $0x0x
	ora 1,s	; create $xxxx
	sta 1,s	; resave it on the stack as our param (bgColor)...
	_SetBackColor
	_SetForeColor	
;
; Now determine type of rect to draw
;
;
; Bits 0 and 1 of flag determine button type:
; 11 => Single-outlined, square-cornered, and drop-shadowed button
; 10 => Single-outlined, square-cornered button
; 01 => Bold-outlined, round-cornered button
; 00 => Single-outlined, round-cornered button

	pushlong <BoundsTemp
	ldy #Ctl.Flag
	lda [<CtlPtr],y	;find type to draw
	and #$0002
	bne RegularRect
;
; Here we fill the round cornered rect. 
;

	ldx #26
	lda <mode
	bne storeit1
	ldx #13
storeit1	phx
	pea 8
	_PaintRRect
	bra PaintDone
	
RegularRect	
	_PaintRect
	
PaintDone
;
;---- Draw the Icon ----------------------------------------
;
	

;
;First push pointer to icon.
;	
	pei <IconTemp+2
	pei <IconTemp
;
;Now the icon pointer is on top of the stack. 
;

;
; Calculate position to draw icon.  All coordinates are local to the window.
; The x-position for 640 mode is ctrlbound.left + .5*(ctrlwidth - iconwidth*2)
; The x-position for 3240 mode is ctrlbound.left + .5*(ctrlwidth - iconwidth)
; Here we use ReturnValue for temporary storage of height and width
;

	ldy #Ctl.DisplayMode
	lda [<CtlPtr],y
	pha	;displayMode	
;
; Check if we need to invert
;

*** added 16-Mar-92 Monte Benaresh
***	Check if we're currently "selected", which is
***	possible for a "sticky" icon control

	ldy #Ctl.value
	lda [CtlPtr],y
	bne invert_icon
*** end 16-Mar-92 Monte Benaresh

	ldy #Ctl.Hilite
	lda [<CtlPtr],y
	and #$00FF	;added 3/16/92 by Monte
		;we need this now that ctlValue may
		;be non-0
	beq DontInvertIcon	;don't invert
invert_icon
	lda #1
	eor 1,s	;bit 1 of displayMode tells whether or not
	sta 1,s	;to invert image.
	
DontInvertIcon
	ldy #CTL.rect.x2
 	lda [<CtlPtr],y	;right side of ctrlbounds
	ldy #CTL.rect.x1
	sec
	sbc [<CtlPtr],y	;this gives Ctrlwidth
	sbc iWidth	;icon width
	cmp #$8000	;set carry to perform arithmetic shift right
	ror a	;*.5
	clc
	adc [<CtlPtr],y	;left side of ctrlbounds	
	bpl StoreXPos
	lda #0
StoreXPos
	and #$FFFE	;put on even boundry to preserve icon color
	pha	;x-pos to draw at
	
; The y-position is ctrlbound.top + .5*(ctrlheight - iconheight - textheight)

	ldy #CTL.rect.y2
	lda [<CtlPtr],y	;bottom of ctrlbounds
	sec
	ldy #CTL.rect.y1
	sbc [<CtlPtr],y	;this gives us ctrlheight
	sbc iHeight	;iconheight
	sbc ascent
	sbc descent
	sbc leading	;textheight from fontInfo Record
	
	cmp #$8000
	ror a	;*.5
	clc
	adc [<CtlPtr],y	;top of ctrlbounds
	bpl StoreYPos
	lda #0

StoreYPos
	pha	;y-pos to draw at
	_DrawIcon
;
;Draw the text.  The foreground and background colors have been set up.
; First decide whether or not there is text to draw
;
	lda ascent
	ora descent
	ora leading
	bne @skip
	brl NoText
@skip
;	
;Determine where to draw the text.
;
	
	ldy #CTL.rect.x2
	lda [<CtlPtr],y
	ldy #CTL.rect.x1
	sec
	sbc [<CtlPtr],y	;now have cntrl width
	sbc SWidth	;subtract width of string
	cmp #$8000
	ror a	;/2
	clc
	adc [<CtlPtr],y
	pha
;	
;Calculate vertical position
;
	ldy #CTL.rect.y2
	lda [<CtlPtr],y
	sec
	ldy #CTL.rect.y1
	sbc [<CtlPtr],y
	sbc ascent
	sbc descent
	sbc leading
	sbc iHeight	;Icon height
	cmp #$8000
	ror a	;only half of blank space
	clc
	adc [<CtlPtr],y
	adc iheight
	adc ascent
	adc descent
	adc leading
	bpl VDone
	lda [<CtlPtr],y
	
VDone	pha
	_MoveTo

	pha	; save original pen mode
	_GetTextMode
	pha
	_getFontFlags

	pea 4
	_SetFontFlags

	lda #0	; set pen mode to copy
	pha
	_SetTextMode

	jsr GetTitlePtr	; !! Destroys IconTemp !!
	pha
	phx
	_DrawString

	_setFontFlags
	_SetTextMode	; restore original pen mode
NoText
;
; If control is dimmed, set the pen to a dimmed pattern
;

	ldy #Ctl.Hilite	;Is the control active?
	lda [<CtlPtr],y
	and #$00FF
	cmp #$00FF
	bne normal
;
; dim the control
;
	pea penmask>>16	;space to save pen mask
	pea penmask
	_GetPenMask
	
	pea dimmed>>16	;Set pen to dim mask.
	pea dimmed
	_SetPenMask
	pushlong <BoundsTemp
	_EraseRect
	
	pea penmask>>16	;space to save pen mask
	pea penmask

	_SetPenMask
normal
;
; Setup outline color which starts @ position 0 in color table
;
DoBorder	
	ldy #Ctl.Flag	;see if we want a border
	lda [<CtlPtr],y	;bit 2=1 means no border
	and #$04	;save bit 2
	beq DoBorder1
	brl BorderDone
DoBorder1

	lda [<ctlParam]	; get the color and shift it thru all the nibbles

	and #$00F0	; mask off unneeded bits
	pha	; save it on the stack for a sec...
	xba	; put nibble 0 into nibble 2
	ora 1,s	; we now have $x0x0
	sta 1,s	; resave it on the stack
	lsr a	; convert the number to $0x0x
	lsr a
	lsr a
	lsr a	; we now have $0x0x
	ora 1,s	; create $xxxx
	sta 1,s	; resave it on the stack as our param (bgColor)...
; Now push it on the stack 15 more times to create a pattern
	ldy #14
@loopOn	pha
	dey
	bpl @loopOn
	tsc	; now get the stack pointer
	inc a	; increment it
	pea 0000	; push the address of thepattern on the stack
	pha
	_SetPenPat	;color to draw box in
; now pull the pattern off the stack...
	tsc
	clc
	adc #32
	tcs

;
; --- Draw the button border ---------------------------------------------
;

	ldx #3
	lda <mode
	bne In640
	ldx #2
In640	phx
	pea 1
	_SetPenSize

;
;Round rect or regular rect?  Bit 1 of ctl.flag tells us.  1 => round cornered rect.
;

	ldy #Ctl.Flag
	lda [<CtlPtr],y
;
; Draw relevent border
;
	
	and #$0003	;save only bits 0 and 1
	pha	;save flag
	lsr a	;put outline width in carry
	lsr a
	bcs DoRegularOutline

; 
; Draw Round cornered rect border
;
	
	pushlong <BoundsTemp	
	ldx #26
	lda <mode
	bne storeit2
	ldx #13
storeit2	phx
	pea 8
	_FrameRRect
	
; regular or bold outline?

	pla	;get flag
	lsr a
	bcs  BoldOutline
	brl BorderDone
	
;Do bold outlined button

BoldOutline
	pushlong <BoundsTemp
	ldx #$FFFC
	lda <mode
	bne storeit3
	ldx #$FFFD
storeit3	phx
	pea $FFFE
	_InsetRect
	
	pushlong <BoundsTemp
	ldx #36
	lda <mode
	bne storeit4	; we're in 640
	ldx #18	; we're in 320
storeit4	phx
	pea 12
	_FrameRRect
		
	pushlong <BoundsTemp
	ldx #4
	lda <mode
	bne storeit5
	ldx #3
storeit5	phx
	pea 2
	_InsetRect

	bra BorderDone

;
; Draw Regular Rect Border
;
DoRegularOutline
	PushLong <BoundsTemp
	_FrameRect
	pla	;get flag
	lsr a	
	bcc BorderDone
	
; Do drop-shadowed button

	ldy #Rectangle.x2
	lda [<BoundsTemp],y
	tax	;final point x-cor
	phx
	ldy #Rectangle.y1
	lda [<BoundsTemp],y
	inc a	;final point y-cor
	inc a
	pha

	phx	;set second point x-cor
	ldy #Rectangle.y2
	lda [<BoundsTemp],y
	tax
	phx	;second point y-cor
	
	ldy #Rectangle.x1	;first point x-cor
	lda [<BoundsTemp],y
	clc
	adc #4	;slight horizontal offset
	
	pha
	phx	;first point-y-cor
	
	ldx #3	;width, height
	lda <mode
	bne in640Mode1
	ldx #2
in640Mode1	phx
	pea 1	;pen size for horizontal line across bottom
	_SetPenSize
	_MoveTo
	_LineTo
	
	_LineTo	; right side

BorderDone
	jsr UnlockIcon
	jsr UnlockTitle
	jsr UnlockColor

;
; put the control rect back to its orinal size
;
	pushlong <BoundsTemp
	ldx #$FFFC
	lda <mode
	bne in640Mode2
	ldx #$FFFD
in640Mode2	phx
	pea $FFFE
	_InsetRect

	
;	
; Set pen to its original state
;
	pushlong #OrigPenState
	_SetPenState
	
;
; 6/9/89 Mensch
; Insert fix here to preserve the pen forground and background colors
	lda >OrigFGColor
	pha
	_SetForeColor

	lda >OrigBGColor
	pha
	_SetBackColor


	rts
;
; Temporary data storage used by the draw routine
;

FontInfoRec
ascent	ds.w 1
descent	ds.w 1
widMax	ds.w 1
leading	ds.w 1

SWidth	ds.w 1
iWidth	ds.w 1
iHeight	ds.w 1

origFGColor	ds.W 1
origBGColor	ds.W 1
OrigPenState	ds.b $32

dimmed	DC.B $55,$AA,$55,$AA,$55,$AA,$55,$AA 	;Dithered mask for pen.

PenMask	ds.b 8

	ENDP
	
**********************************************************************
	EXPORT testCtl
testCtl	PROC

;
; Since we shrink the control rect, we only test for a hit in the interior
; region.
;

*** added 29-Nov-90 DAL
*** If bit 3 is set in the flags, then don't respond to clicks
	ldy #Ctl.Flag
	lda [<CtlPtr],y
	eor #$0008	;flip the bit so I can "beq" with a 0 to exit w/ A=0
	and #$0008
	beq TestDone
*** end of 29-Nov-90 DAL

	lda <CtlPtr	;create pointer to cntrl bounds
	clc
	adc #8
	tax
	lda <CtlPtr+2
	adc #0
	sta <BoundsTemp+2	;temp storage:  keep cntrl bounds ptr
	stx <BoundsTemp
	pushlong <BoundsTemp
	pea 4
	pea 2
	_InsetRect

	pha	;space for result
	pushZptr <ctlParam
	pushlong <BoundsTemp
	_PtInRect
	
	pushlong <BoundsTemp	;put rect back.
	pea $FFFC
	pea $FFFE
	_InsetRect
	
	pla	;result of ptInRect
	beq TestDone
	lda #14	;icon part code
TestDone	rts

	ENDP

**********************************************************************
*
	EXPORT initCtl
initCtl	PROC
*
* For the new control types, param contains a pointer to the control template.
* Here we copy the template information into the Ctl Record.
* 

CTLIconTemp	RECORD 0	;icon template
pCount	ds.w 1	;valid values 7..12
ID	ds.l 1
Rect	ds Rectangle
ProcRef	ds.l 1
Flag	ds.w 1
MoreFlags	ds.w 1
RefCon	ds.l 1
IconRef	ds.l 1
TitleRef	ds.l 1	;optional title 
ColorTableRef	ds.l 1	;optional Color Table 
DisplayMode	ds.w 1	;optional displayMode

key1	ds.b 1	;optional key equivalent information
key2	ds.b 1
mods	ds.w 1
ModsCharBits	ds.w 1

InitVal	ds.w 1	;initial value for "sticky" icon control
		;added 3/17/92 by Monte Benaresh

	ENDR

*** added 16-Mar-92 Monte Benaresh:
***	Now check for "sticky" icon button and set
***	ctlAction to -1 and ctlValue from template if so

	ldy #CTLIconTemp.flag
	lda [ctlParam],y
	and #$0010	;bit 4 set --> sticky icons
	beq @not_sticky
@is_sticky
	ldy #Ctl.action
	lda #$FFFF
	sta [ctlPtr],y	;set to -1
	iny
	iny
	sta [ctlPtr],y
@not_sticky

*** end 16-Mar-92 Monte Benaresh

 	ldy #CTLIconTemp.pcount
	lda [<ctlParam],y		;get pCount
	cmp #9
	bcc DefaultColors		;8 or fewer parameters
CopyColorsAsIs
	ldy #CTLIconTemp.ColorTableRef+2
	lda [<ctlParam],y
	pha
	ldy #CTLIconTemp.ColorTableRef
	lda [<ctlParam],y
	pha
	ora 1,s
	bne SetColor

	pla
	pla
DefaultColors
;
; Here we put the pointer to the default color table in the control record.
;  We also zero bits 2 and 3 of moreflags to indicate that it is a pointer
;
	pea 0
	pea 0
; was this
;	pushLong #DefaultColorTable
; but now, we no longer do that cause a zero means to use the default every time

 	ldy #CTLIconTemp.MoreFlags
	lda [<CtlParam],y
	and #$FFF3	;reset bits 2 and 3
	sta [<CtlParam],y
	
SetColor
	ldy #Ctl.Color
	pla
	sta [<ctlPtr],y
	ldy #Ctl.Color+2
	pla
	sta [<ctlPtr],y
;
; Move MoreFlags, IconRef, TitleRef into control record
;

 	ldy #CTLIconTemp.MoreFlags
	lda [<CtlParam],y
	ldy #CTl.MoreFlags
	sta [<ctlPtr],y
		
	ldy #CtlIconTemp.IconRef+2
	lda [<ctlParam],y
	ldy #Ctl.IconRef+2
	sta [<ctlPtr],y

	ldy #CtlIconTemp.IconRef
	lda [<ctlParam],y
	ldy #Ctl.IconRef
	sta [<ctlPtr],y	;set IconRef

	ldy #CTLIconTemp.pcount
	lda [<ctlParam],y		;get pCount
	cmp #8	;title ref
	bcs DoTitle	;8 or more parameters
	lda #0
	pha
	pha
	bra SetTitle
DoTitle	
	ldy #CtlIconTemp.TitleRef+2
	lda [<ctlParam],y
	pha
	ldy #CtlIconTemp.TitleRef
	lda [<ctlParam],y
	pha
SetTitle
	ldy #Ctl.Data
	pla
	sta [<ctlPtr],y
	ldy #Ctl.Data+2
	pla
	sta [<ctlPtr],y
;
; Here we set the icon display mode word.  This is later passed to the  _drawicon call
;
 
 	ldy #CTLIconTemp.pcount
	lda [<ctlParam],y		;get pCount
	cmp #10
	bcc DefaultDisplayMode	;9 or fewer parameters
	ldy #CtlIconTemp.DisplayMode
	lda [<ctlParam],y
	bra SetDisplayMode
DefaultDisplayMode	
	lda #0

SetDisplayMode	ldy #Ctl.DisplayMode
	sta [<ctlPtr],y

 	lda [<ctlParam]		;get pCount
	cmp #11
	bcc DefaultKeyEquiv

;
; Store away the key equiv data.  Start with the ctlKeyMods
;
	
	ldy #CTLIconTemp.Mods
	lda [ctlparam],y		; read the mods
	tyx		; save y into x
	ldy #Ctl.ctlKeyMods		; store away the mods
	sta [ctlPtr],y
	txy		; get y back from x
	iny		; bump twice for care bits
	iny
	lda [ctlparam],y		; read care bits
	ldy #Ctl.ctlKeyModsCareBits	; write into control record
	sta [ctlPtr],y
	txy		; get y back from x again
	dey		; dec twice
	dey
	lda [ctlparam],y		; read in key1 and key2
	ldy #Ctl.ctlKey1		; put into control record.
	sta [ctlPtr],y
	bra keyDone		;changed 3/17/92 by Monte
DefaultKeyEquiv
	lda #0
	ldy #Ctl.ctlKeyMods		; store away the mods
	sta [ctlPtr],y
	ldy #Ctl.ctlKeyModsCareBits	; write into control record
	sta [ctlPtr],y
	ldy #Ctl.ctlKey1		; put into control record.
	sta [ctlPtr],y
keyDone

*** added 17-Mar-92 Monte Benaresh
***	support for inital value parameter for "sticky" icon
***	control: 0 --> not selected
***	         1 --> selected

	lda [ctlParam]		;get pcount
	cmp #12
	bcc @default_value		;no init value, use default
@get_init
	ldy #CTLIconTemp.InitVal
	lda [ctlParam],y		;initial value in template
	bra @store_val
@default_value
	lda #$0000		;for now, set value to 0
@store_val
	ldy #Ctl.value
	sta [ctlPtr],y
*** end 17-Mar-92 Monte Benaresh

InitDone	rts


	export DefaultColorTable
DefaultColorTable
	dc.w $0000	;black for outline
	dc.w $00F0	;white when not hilited
	dc.w $0000	;black when hilited
	dc.w $00F0	;text color
	dc.w $000F	;text color when hilited
	

	ENDP
	
**********************************************************************
*
	EXPORT UnlockColor
UnlockColor	PROC
*
* Unlocks the last item the following routine (GetColorPtr, GetIconPtr, or
* GetTitlePtr) locked.
*

;
; If it was a handle or resource ID we need to unlock it.  
;
	pha	;space for result
	pei <theControlHandle+2
	pei <theControlHandle
	_GetCtlMoreFlags
	pla
	and #$000C
	lsr a
	tax

;
; put color reference on stack
;

	ldy #CTL.Color+2
	lda [<ctlPtr],y
	pha
	dey
	dey
	lda [<ctlPtr],y
	pha
	jmp (ColorTypeTable,x)

ColorTypeTable	dc.w DoPointer
	dc.w DoHandle
	dc.w DoColorResource

DoPointer	pla
	pla
	rts
DoColorResource
	plx	;get lsw
	ply	;get msw
	pha	;space for result
	pha	
	pea $800D	;ColorTable resource type
	phy	;msw of resource ID
	phx	;lsw of resource ID
	_LoadResource
;	
; It's a handle
;
DoHandle
	pla
	sta <IconTemp
	pla
	sta <IconTemp+2
;
; UnLock it
;
	ldy #4
	lda [<IconTemp],y
	and #$7FFF
	sta [<IconTemp],y
	rts


	ENTRY UnlockIcon
UnlockIcon
;
; If it was a handle or resource ID we need to unlock it.  
;
	pha	;space for result
	pei <theControlHandle+2
	pei <theControlHandle
	_GetCtlMoreFlags
	pla
	and #$0030
	lsr a
	lsr a
	lsr a	;convert to table index
	tax

;
; put icon reference on stack
;

	ldy #CTL.IconRef+2
	lda [<ctlPtr],y
	pha
	ldy #CTL.IconRef
	lda [<ctlPtr],y
	pha
	jmp (IconTypeTable,x)
	
IconTypeTable	dc.w DoPointer
	dc.w DoHandle
	dc.w DoIconResource
	
DoIconResource	plx	;get lsw
	ply	;get msw
	pha	;space for result
	pha	
	pea $8001	;ColorTable resource type
	phy	;msw of resource ID
	phx	;lsw of resource ID
	_LoadResource
	brl DoHandle
	
	ENTRY UnlockTitle
UnlockTitle
;
;put title ref on stack
;
	pha	;space for result
	pha

	pei <theControlHandle+2
	pei <theControlHandle
	_GetCtlTitle
	lda 1,s
	ora 3,s
	bne DoTitleJump
	pla	;no title: return a and x as zero
	plx
	rts

*** Moved label 10-Dec-91 DAL -- Ouch-o-Rama!  DoTitleJump was down below
*** by accident, and it only worked because GetCtlTitle, above, was always
*** leaving 4 in the X register (because it cleaned 4 bytes of input parms
*** off the stack).  This always made us jump to DoTitleResource, where we
*** would interpret a Pointer or Handle title as an rPString resource ID.
*** If no such resource was availbable, it unlocked the NIL handle (turned
*** off bit 7 of byte $00/0005).  In the unlikely case that there actually
*** was an rPString resource with the right ID, it would unlock it.
DoTitleJump
*** end 10-Dec-91
 	pha	;space for result
	pei <theControlHandle+2
	pei <theControlHandle
	_GetCtlMoreFlags
	
	pla
	and #3
	asl a
	tax

;;;This label has been in the wrong place, maybe forever!  10-Dec-91 DAL
;;;DoTitleJump
	jmp (TitleTypeTable,x)
	
TitleTypeTable
	dc.w DoPointer
	dc.w DoHandle
	dc.w DoTitleResource
;
; It's a Resource
;
DoTitleResource

	plx	;get lsw
	ply	;get msw
	pha	;space for result
	pha	
	pea $8006	;Title must be a P-string.
	phy	;msw of resource ID
	phx	;lsw of resource ID
	_LoadResource
	brl DoHandle
	ENDP


	
**********************************************************************
*
	EXPORT GetColorPtr
GetColorPtr	PROC
*
* Routine returns a pointer to the color table in the x (low word) and 
* a (high word) registers.  If it is a handle or resourceID we load it,
* lock it, and pass back the pointer.
*
	import DefaultColorTable

;
; We need to find out if the ColorRef is a pointer, handle, resource, or offset.
;
; Bits 2 and 3 of MoreFlags indicate what ColorRef is:
;	0	Pointer
;	1	Handle
;	2	resource
;
DoColors

	pha	;space for result
	pei <theControlHandle+2
	pei <theControlHandle
	_GetCtlMoreFlags
	pla
	and #$000C
	lsr a
	tax
;
; put color reference on stack
;
	ldy #CTL.Color+2
	lda [<ctlPtr],y
	pha
	ldy #CTL.Color
	lda [<ctlPtr],y
	pha
	jmp (ColorTypeTable,x)
	
ColorTypeTable
	dc.w DoPointer
	dc.w DoHandle
	dc.w DoColorResource


;	
;Color table is a pointer.  Move it to the control record
;
DoPointer
	bra SetColor
;
; It's a Resource
;
DoColorResource
	plx	;get lsw
	ply	;get msw
	pha	;space for result
	pha	
	pea $800D	;ColorTable resource type
	phy	;msw of resource ID
	phx	;lsw of resource ID
	_LoadResource
;	
; It's a handle
;
DoHandle
	pla
	sta <IconTemp
	pla
	sta <IconTemp+2
;
; Lock it
;
	ldy #4
	lda [<IconTemp],y
	ora #$8000
	sta [<IconTemp],y
	
	ldy #2
	lda [<IconTemp],y		;get high word of pointer
	pha
	lda [<IconTemp]
	pha
	
SetColor
; fix this for the default color table cause this was wrong before...
	clc
	plx
	pla
	bne @NotZero
	cpx #0
	bne @NotZero
	ldx #<DefaultColorTable
	lda #^DefaultColorTable
@NotZero	rts
	
**********************************************************************
	ENTRY GetIconPtr
GetIconPtr
*
* Routine returns a pointer to the icon in the x (low word) and 
* a (high word) registers.  If it is a handle or resourceID we load it,
* lock it, and pass back the pointer.
*

;
; We need to find out if the IconRef is a pointer, handle, resource, or offset.
;
; Bits 4 and 5 of MoreFlags indicate what IconRef is:
;	0	Pointer
;	1	Handle
;	2	resource
;	3	Offset
;
DoIcon
 	pha	;space for result
	pei <theControlHandle+2
	pei <theControlHandle
	_GetCtlMoreFlags
	pla
	and #$0030
	lsr a
	lsr a
	lsr a	;convert to table index
	tax
;
; Put IconRef on stack
;
	ldy #Ctl.IconRef+2
	lda [<ctlPtr],y
	pha
	ldy #Ctl.IconRef
	lda [<ctlPtr],y
	pha
	jmp (IconTypeTable,x)
	
IconTypeTable
	dc.w DoPointer
	dc.w DoHandle
	dc.w DoIconResource

;
; It's a Resource
;
DoIconResource	plx	;get lsw
	ply	;get msw
	pha	;space for result
	pha	
	pea $8001	;rIcon resource type
	phy	;msw of resource ID
	phx	;lsw of resource ID
	_LoadResource
	jmp DoHandle
	
**********************************************************************
	ENTRY GetTitlePtr
GetTitlePtr
*
* Routine returns a pointer to the controls title in the x (low word) and 
* a (high word) registers.  If it is a handle or resourceID we load it,
* lock it, and pass back the pointer.  If there is no title, a and x 
* both contain zero.
*
	
;
; We need to find out if the title is a pointer, handle, resource, or offset.
;
; Bits 0 and 1 of MoreFlags indicate what TitleRef is:
;	0	Pointer
;	1	Handle
;	2	resource
;	3	Offset
;
;put title ref on stack
;
	pha	;space for result
	pha

	pei <theControlHandle+2
	pei <theControlHandle
	_GetCtlTitle
	lda 1,s
	ora 3,s
	bne DoTitleJump
	pla	;no title: return a and x as zero
	plx
	rts

	
DoTitleJump

 	pha	;space for result
	pei <theControlHandle+2
	pei <theControlHandle
	_GetCtlMoreFlags
	
	pla
	and #3
	asl a
	tax

	jmp (TitleTypeTable,x)
	
TitleTypeTable
	dc.w DoPointer
	dc.w DoHandle
	dc.w DoTitleResource
;
; It's a Resource
;
DoTitleResource

	plx	;get lsw
	ply	;get msw
	pha	;space for result
	pha	
	pea $8006	;Title must be a P-string.
	phy	;msw of resource ID
	phx	;lsw of resource ID
	_LoadResource
	jmp DoHandle
	ENDP
	

**********************************************************************
	EXPORT recSize
recSize	PROC

	ldx #0
	lda #IconRecSize
	rts

	ENDP
		

**********************************************************************
	EXPORT dispCtl
dispCtl	PROC

	lda #0
	tax
	rts
	ENDP


**********************************************************************
	EXPORT Ret_Null
Ret_Null	PROC
	lda #0
	tax
	rts
	ENDP
	
	
**********************************************************************
	EXPORT ctlHandleEvent
ctlHandleEvent	PROC

 	ldy #Ctl.Hilite
	lda [<ctlPtr],y
	and #$00FF
	cmp #$00FF
	beq DontWantIt

	ldy #oWhat
	lda [ctlParam],y
	cmp #keyDownEvt
	beq TryThisOne

	cmp #autoKeyEvt
	bne DontWantIt

TryThisOne

;
; Start with the modifiers.
;
	ldy #oModifiers		; Look at the high byte
	lda [ctlParam],y		; of the modifiers
	and #$FF00
	ldy #Ctl.ctlKeyModsCareBits	; and with the care bits
	and [ctlPtr],y
	dey		; compare with the desired mods
	dey
	cmp [ctlPtr],y
	bne DontWantIt

;
; If we get to here, then the mods matched.  So look at the key.
;
	dey
	dey
	lda [ctlPtr],y
	tax
	and #$00FF		; first look at key1
	ldy #oMessage
	cmp [ctlParam],y
	beq WantIt

	txa		; now try key2
	xba
	and #$00FF
	cmp [ctlParam],y
	bne DontWantIt

WantIt
	PushWord #14	;icon part code
	pei theControlHandle+2
	pei theControlHandle
	_HiliteControl

*** added 18-Jun-92 -- Make Monte's Sticky bit work for key equivs.  Don't unhilite.
	ldy #Ctl.flag
	lda [CtlPtr],y
	and #$0010	;are we a "sticky" icon?
	beq @not_sticky	;oops, said is_sticky (15-Jul-92 DAL)

	lda #1	;value for "selected"
	ldy #Ctl.value
	sta [CtlPtr],y	;set in record

	ldy #Ctl.Hilite
	lda [CtlPtr],y
	and #$FF00	;clear low (hilite) byte
	sta [CtlPtr],y

	bra @is_sticky
*** end 18-Jun-92

@not_sticky	PushWord #0
	pei theControlHandle+2
	pei theControlHandle
	_HiliteControl
@is_sticky
	lda #$FFFF	;Return true for having handled event
	tax
	rts


DontWantIt	lda #0	;Return False, don't want event.
	tax
	
	rts

	ENDP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Sys.Resources/Launcher.aii b/IIGS.601.SRC/GSToolbox/Sys.Resources/Launcher.aii
new file mode 100644
index 0000000..b835bf9
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Sys.Resources/Launcher.aii
@@ -0,0 +1 @@
+****************************************************************
*
* Apple	IIgs Program Launcher
*
* by Steven Glass
*
* Copyright (C)
* Apple	Computer Inc., 1986-92
* All Rights Reserved
*
* Version 6.0
*
*
* Release Notes
*
* Version 1.0
*
*   Sep	86    First Release.
*
* Version 1.1
*
*   11 Nov 86	  Now supports launching BASIC programs	with
*	      the support of the new BASIC.LAUNCHER
*	      The event	manager	is not started until after
*	      the first	attempt	is made	to load	the tools.
*
* Version 2.0
*
*     31 Dec 86	  Shuts	down all tools before starting up.
*	      Added version check window.
*
* Version 2.1
*
*      4 Jun 87	  SEG
*
*      1.   Bug	in tool	shutdown code fixed.  After finding 
*	   the number of tools to shut down, I corrupted my
*	   call	number for making the calls and	none
*	   of the shutdown calls was made.
*
*      2.  The mount boot volume code no longer	uses prefix 7
*	   but uses the	GetBootVol call	instead.  This saves
*	   a little code and preserves the prefix.
*
* Version 2.2
*
*      7 Jan 88	  Harry	Yee
*
*      1.  Changes made	to dialog.asm to retrieve version numbers for
*	   two new tools, Tool029 (Audio Compression and Expansion) and
*	   Tool032 (Midi Tools).  Also the tool	numbers	Tool030	and Tool031
*	   have	already	been assigned outside of company and therefore are
*	   listed as 'not assigned' in the Version Reporter.
*
*      15 Jun 88    Harry Yee
*
*	   Prototype 'P' taken out of VersionStr string.
*
* Version 6.0
*      22 Oct 90    Greg Branche
*
*	1.  Converted source to	MPW IIGS.
*
*	2.  Updated to use Class 1 GS/OS calls and new toolset
*	    features available in System disk 6.0.
*
*	3.  Removed support for	launching BASIC	programs.
*
*	4.  Converted so that this is a	module of the START program.
*
*	5.  Changed Quit button	to Shutdown button, which now performs
*	    an OSShutdown call.
*
*	14 Mar 91   Greg Branche
*	1.  Modified initial tool shutdown code	to check the tool
*	    status prior to making the shutdown	call to	ensure that
*	    the	tool in	question is actually active.
*
*	26 Mar 91   Greg Branche
*	1.  Altered to use as an official part of GS/OS.
*
*	10 May 91   Greg Branche
*	1.  Added "real" menu bar, so that NDA's are supported.
*
*	27 Aug 91   Greg Branche
*	1.  Added FlushEvents call as part of initialization so
*	    that pending Command-Q events don't automatically
*	    force a ShutDownGS call to occur.
*
*	7 Oct 91    Greg Branche
*	1.  Changed version number from 3.0 to 6.0 to match disk.
*
*	5 Dec 91    Greg Branche
*	1.  Added Scrap Manager and Font Manager to list of tools
*	    to be started up (to better support NDAs)
*	2.  Add handler for wInSpecial TaskMaster return code, so
*	    the Edit menu title is properly unhighlighted when no
*	    DA accepts the menu selection.
*
*	18-Dec-91   Dave Lyons
*	1.  Changed right edge of Item6 (path rectangle).
*
*	11-Feb-92   Greg Branche
*	1.  Added code to allocate 32K of memory and immediately
*	    deallocate it again right after the StartUpTools call.
*	    This is done to ensure that there is enough memory
*	    for the toolbox to operate properly.  If the memory
*	    can't be allocated, we die.
*
****************************************************************
*
* Version 6.1
*
* 25-Mar-92	Dave Lyons
*
* Changed "Volumes" button to read "Disks"
*
* 2-Apr-92	Dave Lyons
*
* Zero the BUSY flag on the way in, since GQuit has left it
* at 1.
*
* 17-Jul-92	Dave Lyons
*
* Set the noResourceMgr bit in StartUpTools to avoid a duplicate
* startup (which StartUpTools now checks for!).  Saved a few bytes
* when pushing result space for tool calls.
*
****************************************************************

;------------------------------------------
;
; Equates
;
;------------------------------------------
tmpPtr		equ	0
stopRef		equ	tmpPtr+4
work		equ	stopRef+4
lastWindow	equ	work+4
dp_size		equ	lastWindow+4

True		equ	$8000
False		equ	$0000
ScreenMode	equ	$80			; 640
MaxX		equ	640
stack_size	equ	2048			; size of my stack/direct page segment
WhereX		equ	115
WhereY		equ	30

appleMenuID	equ	$0001
fileMenuID	equ	$0002
editMenuID	equ	$0003

;
; Item Types
;
;
; To disable an	item for the dialog manager, add ItemDisable to	the ItemType
;

ButtonItem	equ	10
CheckItem	equ	11
RadioItem	equ	12
ScrollBarItem	equ	13
UserCtlItem	equ	14
StatText	equ	15
EditText	equ	16
EditLine	equ	17
IconItem	equ	18
PicItem		equ	19
UserItem	equ	20
UserCtlItem2	equ	21
ItemDisable	equ	$8000

		print	push
		print	off
		Include	'Launcher.mac'
		print	pop

Start		Proc
		Import	Launcher
		jmp	Launcher
		EndP

****************************************************************
*
GlobalData	RECORD
*
****************************************************************

MyDirect	DS.B	2
dp_handle	ds.b	4
userID		ds.b	2
save_stack	ds.b	2
QuitFlag	ds.b	2

		string	Pascal
PromptLine	dc.b	'Select the application youÕd like to use:'
		string	AsIs

ReplyRecord
ReplyGood	DS.B	2
ReplyFType	DS.B	2
ReplyFAuxType	DS.B	4
ReplyNameDesc	dc.w	3			;return	a handle to the	filename
ReplyName	DS.B	4
ReplyPathDesc	dc.w	3			;return	a handle to the	pathname
ReplyPath	DS.B	4

ToolTable	dc.w	0			;flags
		dc.w	ScreenMode+$C000	;videoMode+fUseShadowing+fFastPortAware
		dc.w	0			;resFileID
		dc.l	0			;dPageHandle
		dc.w	(toolcount-*)/4		;numTools
		dc.w	2,$0300			;Memory	Manager
		dc.w	3,$0300			;Miscellaneous Tools
		dc.w	4,$0300			;QuickDraw
		DC.W	5,$0300			;desk manager
		DC.W	6,$0300			;event manager
		dc.w	11,$0200		;IntMath
		DC.W	14,$0300		;window	manager
		DC.W	15,$0300		;menu manager
		DC.W	16,$0300		;control manager
		DC.W	18,$0300		;QDAux
		DC.W	20,$0300		;line edit
		DC.W	21,$0300		;dialog	manager
		DC.W	22,$0300		;Scrap Manager
		DC.W	23,$0300		;standard file
		DC.W	27,$0300		;font manager
		DC.W	28,$0300		;list manager
toolcount

ShutdownParms	dc.w	1			;pCount
		dc.w	0			;flags (normal shutdown)

EventRecord
EventWhat	ds.w	1
EventMessage	ds.w	2
EventWhen	ds.w	2
EventWhere	ds.w	2
EventModifiers	ds.w	1
TaskData	ds.w	2
TaskMask	dc.l	$001FFFFF
		dc.l	0			;wmLastClickTick
		dc.w	0			;wmClickCount
TaskData2	dc.l	0			;wmTaskData2
		dc.l	0			;wmTaskData3
		dc.l	0			;wmTaskData4
		dc.l	0			;wmLastClockPt

		ENDR

****************************************************************
*
MenuData	RECORD
*
* Will the menu	manager	crash if the menus have	no items?
*
****************************************************************

Return		equ	13

AppleMenu	dc.b	'>>@\XH'
		dc.w	appleMenuID
		dc.b	Return
		dc.b	'==About LauncherÉ\H'
		dc.w	0256
		dc.b	Return
		dc.b	'==-\N500D\0'
		dc.b	Return
		dc.b	'.'

FileMenu	dc.b	'>>  File  \H'
		dc.w	fileMenuID
		dc.b	Return
		dc.b	'==LaunchÉ\*LlH'
		dc.w	0257
		dc.b	Return
		dc.b	'==Shut Down\*QqH'
		dc.w	0258
		dc.b	Return
		dc.b	'.'

EditMenu	dc.b	'>>  Edit  \DH'
		dc.w	editMenuID
		dc.b	Return
		dc.b	'==Undo\*ZzH'
		dc.w	0250
		dc.b	Return
		dc.b	'==-\N500D'
		dc.b	Return
		dc.b	'==Cut\*XxH'
		dc.w	0251
		dc.b	Return
		dc.b	'==Copy\*CcH'
		dc.w	0252
		dc.b	Return
		dc.b	'==Paste\*VvH'
		dc.w	0253
		dc.b	Return
		dc.b	'==Clear\H'
		dc.w	0254
		dc.b	Return
		dc.b	'.'

		ENDR


****************************************************************
*
DieOnError	PROC
*
* Dies if carry	is set.
*
* Number to display as death number is in x register.
* Error	code to	make part of string is in a register.
*
****************************************************************

		bcs	RealDeath
		rts

RealDeath
		phx

		pea	0
		pea	0
		pha
		_Hexit
		pla
		sta	codes
		pla
		sta	codes+2

		pla
		ora	#$FF00
		pha

		PushLong #DeathMsg
		_SysDeath

DeathMsg
		DC.B	EndMsg-StartMsg
StartMsg	DC.B	'Could not handle error $'
Codes		DS.B	4
		DC.B	' '
EndMsg

		ENDP

****************************************************************************************************

turnOffTools	Proc
;-------------------------------------------------
;
; Turn off everything I	can that may have been left on.

		PushWord #$0402			; start	by pushing tool	set 2 call 4 on	stack
Loop1		pla				; get num off stack
		inc	a			; bump it
		pha				; put it back
		pha				; make space for result
		tax				; put call number on stack
		jsl	$E10000			; make version call
		plx				; get rid of result
		cmp	#$0001			; look for invalid version number call
		bne	Loop1			; and keep looking

		pla				; this number is one more than last tool
		clc				; convert to a Status call
		adc	#$0200			; (call	number in high byte)
		pha				; put on stack

Loop2		pla				; get call number
		dec	a			; dec tool number
		tax				; put in x for making call
		and	#$00FF			; look at tool number
		cmp	#2			; if it	is 2, we are done
		beq	done
		phx				; put back on stack
		pea	$0000			; initialize return result
		jsl	$E10000			; make the status call
		pla				; is the toolset started?
		beq	loop2			; no, skip the shutdown
		lda	1,s			; get the tool number again
		sec
		sbc	#$0300			; turn into a shutdown call
		tax
		and	#$00FF			; check the toolset number
		cmp	#$001E			; shutting down the resource manager?
		beq	Loop2			; Don't do it!!!
		jsl	$E10000			; make the call
		bra	Loop2

Done
		rts
		EndP

****************************************************************

DoMenu		PROC
		Import	MyDialogHook,MyDialogTemplate,TheFilterProc
		with	menuData,GlobalData

		lda	TaskDATA
		cmp	#259			; >258 is dummy do nothing - ignore
		bge	Unhilite		; do nothing
		sec
		sbc	#250
		asl	a
		tax
		jsr	(MenuTable,x)

Unhilite	PushWord #False			; draw normal
		PushWord TaskDATA+2		; which menu
		_HiliteMenu

Ignore		rts

MenuTable	dc.w	Ignore			; Edit items
		dc.w	Ignore
		dc.w	Ignore
		dc.w	Ignore
		dc.w	Ignore
		dc.w	Ignore
		dc.w	doAbout			; ID 256
		dc.w	doStdFile		; ID 257
		dc.w	doShutdown		; ID 258

doStdFile
		PushWord #WhereX
		PushWord #WhereY
		lda	#0			;NIL item drawing pointer
		pha
		pha
		pha				;promptRefDesc (pointer	to Pascal string)
		PushLong #PromptLine
		PushLong #TheFilterProc
		PushLong #0			; type list pointer
		PushLong #MyDialogTemplate
		PushLong #MyDialogHook
		PushLong #ReplyRecord
		_SFPGetFile2
		ldx	#8
		jsr	DieOnError

		lda	ReplyGood
		beq	just_cancel

		lda	#1
		sta	QuitFlag

just_cancel	rts

doShutdown	lda	#$8000
		sta	QuitFlag
		rts

doAbout
		lda	#0			; else display the about box
		pha				; space	for result
		pea	8			; alertFlags (pointer, C-string, use entire width)
		pha				; subStrPtr
		pha
		pea	aboutString>>16		; alertStrRef
		pea	aboutString
		_AlertWindow			; show the window
		pla				; remove result	from stack
		
		rts				; then exit

		String	AsIs
aboutString
		dc.b	'0'			; custom window
		dc.w	35			; upper	left Y
		dc.w	195			; upper	left X
		dc.w	155			; lower	right Y
		dc.w	445			; lower	right X
		dc.b	'1'			; custom icon
		dc.l	iconImage		; pointer to icon image
		dc.w	10			; width	of image data
		dc.w	16			; height of image data
		dc.b	'/'			; separator character
		dc.b	1,'S'			; font style
		dc.w	%00011			; bold italic
		dc.b	1,'J'			; justification
		dc.w	1			; centered
		dc.b	'Program Launcher'
		dc.b	13,13			; carriage return
		dc.b	1,'S'			; font style
		dc.w	0			; normal
		dc.b	'Written by:'
		dc.b	13
		dc.b	'Steve Glass, Harry Yee,'
		dc.b	13
		dc.b	'and'
		dc.b	13
		dc.b	'Greg Branche'
		dc.b	13,13
		dc.b	'Copyright © 1986-1992'
		dc.b	13
		dc.b	'Apple Computer, Inc.'
		dc.b	13
		dc.b	'All Rights Reserved'
		dc.b	'/'			; separator
		dc.b	'^Nifty!'
		dc.b	0


iconImage
; image	data
		hex	FFFFFFFFFFFFFFFFFFFF
		hex	FFFFFFFF00FFFF00000F
		hex	FFFFFFF03000FF0F0F0F
		hex	FFFFFF0030330F00F00F
		hex	FFFFFF0030330F0F0F0F
		hex	FFFFFF0330330F00F00F
		hex	FFFFFF0330330F0F0F0F
		hex	FFFFFF0330330F00F00F
		hex	FFFFFF0330330F0F0F0F
		hex	FFFFFF0330330F00F00F
		hex	FFFFF00330330F0F0F0F
		hex	FFFF033330330F00F00F
		hex	FFF0000000330F0F0F0F
		hex	FFFFF0F0FF00FF00F00F
		hex	FFFFF00000000000000F
		hex	FFFFFFFFFFFFFFFFFFFF
;mask data
		hex	0000000FFFFFFFFFFFFF
		hex	000000FFFFFFFFFFFFFF
		hex	00000FFFFFFFFFFFFFFF
		hex	00000FFFFFFFFFFFFFFF
		hex	00000FFFFFFFFFFFFFFF
		hex	00000FFFFFFFFFFFFFFF
		hex	00000FFFFFFFFFFFFFFF
		hex	00000FFFFFFFFFFFFFFF
		hex	00000FFFFFFFFFFFFFFF
		hex	00000FFFFFFFFFFFFFFF
		hex	0000FFFFFFFFFFFFFFFF
		hex	000FFFFFFFFFFFFFFFFF
		hex	00FFFFFFFFFFFFFFFFFF
		hex	00FFFFFFFFFFFFFFFFFF
		hex	0000FFFFFFFFFFFFFFFF
		hex	0000FFFFFFFFFFFFFFFF

****************************************************************

Launcher	PROC	Export

		With	GlobalData

		Import	InitStuff,DisplayName

*** added 2-Apr-92 DAL -- Zero the BUSY flag (GQuit has left it at 1)
		lda #0
		sta >$e100ff
*** end 2-Apr-92

;----------------------------------------------------
;
; Set the data bank to code bank so I can use absolute
; addressing.
;
		phb				; save caller's DBR
		phk
		plb

		phd				; save caller's direct page

		tsc				; get current stack pointer
		sta	save_stack		; save it

		_TLStartup			; start Tool locator

		pha				; space	for returned result
		_MMStartup
		pla
		sta	userID			; get our user ID

		ldx	#0
		phx				; space for result
		phx
		phx				; high word of size
		pea	stack_size		; get a 2K stack/direct page
		pha				; userID
		pea	#%1100000000010101	; attributes
		phx				; location pointer (bank 0)
		phx
		ldx	#$0902			; NewHandle
		jsl	$E10000
		ldx	#1
		jsr	DieOnError
		plx				; retrieve handle
		pla
		stx	dp_handle		; save the handle for disposal later
		sta	dp_handle+2
		phb				; save DBR
		xba
		pha
		plb
		plb				; set DBR to bank of Handle
		lda	|0,x			; address of Pointer
		plb				; restore DBR
		
		tcd				; set our direct page
		sta	MyDirect
		clc
		adc	#stack_size-1		; set new stack pointer
		tcs

		jsr	turnOffTools

;-------------------------------------------------
;
; Load Tools and initialize them.
;
		jsr	InitStuff
		bcc	@continue
		brl	SkipName
@continue

;-------------------------------------------------
;
; Flush any pending keyboard events from the queue
; just in case there's an extra Command-Q laying
; around (we don't want to shut down immediately).
;
		pha				;space for result
		pea	%0000000000101000	;event mask (auto key and key-down)
		pea	0			;stop mask (remove ALL events)
		_FlushEvents			;flush 'em
		pla				;retrieve result

;-------------------------------------------------
;
; Post a Menu event so that the Standard File
; window is displayed automatically
;

		pha				;result space
		pea	3			;keyDown event
		pea	%0000000111000000	;modifiers (Apple Key down)
		pea	'L'			;Apple-L to select menu item
		_PostEvent
		pla				;remove return value

;-------------------------------------------------
;
; Drop into the event loop
;
		stz	lastWindow
		stz	lastWindow+2

Again		lda	QuitFlag		;Has Quit been select?
		bne	AllDone			;... if so, stop the loop.

		pha
		pha				;result space
		_FrontWindow			;get the front window
		pla				;retrieve pointer
		plx
		
		cmp	lastWindow		;have we changed states?
		bne	@fix_menu		;yes, must fix the Edit menu
		cpx	lastWindow+2
		beq	@no_change		;no...

@fix_menu
		sta	lastWindow		;update the state variable
		stx	lastWindow+2
		ora	lastWindow+2		;are there any windows?
		beq	@disable_menu		;no, disable the edit menu
		
		lda	#254			;enable all edit menu items
@loop
		pha				;save the item number
		pha				;MItem number
		_EnableMItem
		pla				;retrieve the MItem again
		dec	a
		cmp	#249			;done all items yet?
		bcs	@loop			;no...

		pea	$FF7F			;flag
		bra	@change_menu

@disable_menu
		pea	$0080			;flag

@change_menu
		pea	editMenuID
		_SetMenuFlag

		pea	0
		pea	editMenuID
		_HiliteMenu
@no_change
		pha
		PushWord #$FFFF
		PushLong #EventRecord
		_TaskMaster

		pla
		beq	Again			;No event? loop.

		cmp	#TaskMax
		bcs	Again

		asl	a			;Multiply by two...
		tax				;use for index into...
		jsr	(TaskTable,x)		;dispatch table to execute events.

		bra	Again			;Loop.

AllDone
		bmi	just_shutdown		;if negative, shutdown was selected

		jsr	DisplayName		;draw the name in the menu bar

;--------------------------------------------------
;
; All is done, let's shut down.
;

SkipName

		pea	$0004			; reference is by pointer
		pea	ToolTable>>16
		pea	ToolTable
		_ShutDownTools

		lda	save_stack		; restore original stack pointer
		tcs
		lda	dp_handle+2		; dispose of the handle
		pha
		lda	dp_handle
		pha
		ldx	#$1002			; DisposeHandle
		jsl	$E10000

noMemory
		pld				;restore caller's direct page
		_TLShutdown

;-----------------------------------------------------
;
; Now, we look at the file type	in the reply field
; if the type is $FF or	B3, we just continue quitting.
; If the type is anything else we die cause it should
; not happen.
;

		lda	ReplyFType
		cmp	#$FF
		beq	OKToQuit
		cmp	#$B3
		beq	OKToQuit

		sec
		ldx	#10
		jmp	DieOnError

OKToQuit
		ldx	ReplyPath		;return handle in X and Y
		ldy	ReplyPath+2

		plb				;and DBR
		rtl				;back to GQuit

just_shutdown
		_OSShutdownGS ShutdownParms

TaskTable	dc.w	ignore			;0 null
		dc.w	ignore			;1 mouse down
		dc.w	ignore			;2 mouse up
		dc.w	ignore			;3 key down
		dc.w	ignore			;4 undefined
		dc.w	ignore			;5 auto-key down
		dc.w	ignore			;6 update event
		dc.w	ignore			;7 undefined
		dc.w	ignore			;8 activate
		dc.w	ignore			;9 switch
		dc.w	ignore			;A desk acc
		dc.w	ignore			;B device driver
		dc.w	ignore			;C ap
		dc.w	ignore			;D ap
		dc.w	ignore			;E ap
		dc.w	ignore			;F ap
		dc.w	ignore			;10 in desk
		dc.w	DoMenu			;11 in MenuBar
		dc.w	ignore			;12 wClickCalled
		dc.w	ignore			;13 wInContent
		dc.w	ignore			;14 wInDrag
		dc.w	ignore			;15 wInGrow
		dc.w	ignore			;16 wInGoAway
		dc.w	ignore			;17 wInZoom
		dc.w	ignore			;18 wInInfo
		dc.w	DoMenu			;19 wInSpecial (to handly dummy edit menu)
TaskMax		equ	(*-TaskTable)/2

Ignore		rts

		ENDP

****************************************************************
*
InitStuff	PROC
*
* Gets space in	bank zero for use as zero page by tools	and
* then initializes QuickDraw, EventManager, WindowManager
* MenuManger.
*
****************************************************************
		With	GlobalData
		With	MenuData

		Import	MountBootDisk
;-----------------------------------------------
;
; Now we initialize all	the tools we are going
; use.
;
		pha				; space	for returned result
		pha
		lda	userID
		pha				; put userID on stack
*** 17-Jul-92 DAL -- set the noResourceMgr bit, because we already started it
		pea	$0010			; startStopRefDesc (pointer, noResMgr)
*** end 17-Jul-92
		pea	ToolTable>>16		; pointer to startup list
		pea	ToolTable
		_StartUpTools			; use the new call
DieNow		ldx	#15
		jsr	DieOnError
		plx
		stx	stopRef
		plx
		stx	stopRef+2

;------------------------------------------------------
;
; Allocate 32K to ensure that the Toolbox has enough
; memory to work properly
;
		ldx	#0
		phx				; space for result
		phx
		phx				; high word of size
		pea	$8000			; get 32K (minimum for toolbox)
		lda	userID
		pha				; userID
		pea	#%0000000000010000	; attributes (no cross bank)
		phx				; location pointer (not used)
		phx
		ldx	#$0902			; NewHandle
		jsl	$E10000
		ldx	#2
		jsr	DieOnError

		ldx	#$1002			; now we can dispose of it again
		jsl	$E10000			; DisposeHandle

;------------------------------------------------------
;
; Now build the	menu bar by inserting the menus
; (back	to front).
;

		pha
		pha				; space	for return
		PushLong #EditMenu
		_NewMenu
		PushWord #0
		_InsertMenu

		pha
		pha				; space	for return
		PushLong #FileMenu
		_NewMenu
		PushWord #0
		_InsertMenu

		pha
		pha				; space	for return
		PushLong #AppleMenu
		_NewMenu
		PushWord #0
		_InsertMenu

;------------------------------------------------------
;
; Finish off getting the menu bar ready.
;
		PushWord #1
		_FixAppleMenu

		pha
		_FixMenuBar
		pla				; discard menu bar height

		PushWord #10			;Set starting position of menu
		_SetMTitleStart

		_DrawMenuBar

		stz	QuitFlag

		_InitCursor

		clc				; signal no error

		rts

		ENDP


*****************************************************************************

DisplayName	PROC
		With	GlobalData

		lda	ReplyName		; get handle to	filename
		sta	tmpPtr
		lda	ReplyName+2
		sta	tmpPtr+2

		ldy	#2
		lda	[tmpPtr],y		; deref
		tax
		lda	[tmpPtr]
		sta	tmpPtr
		stx	tmpPtr+2

		ldy	#2			; get length word
		lda	[tmpPtr],y
		xba				; swap bytes
		sta	[tmpPtr],y		; and put length byte preceeding string

		lda	tmpPtr			; adjust pointer to point to Pascal string
		clc
		adc	#3
		sta	tmpPtr
		bcc	@1
		inc	tmpPtr+2
@1
; the following was borrowed from the Finder
		pha				;save the current grafPort
		pha
		_GetPort
		
		pha				;set it to the menu bar
		pha
		_GetMenuMgrPort
		_SetPort
		
		pha
		pha
		_GetMenuBar
		pla
		plx

		sta	work			;deref the handle to our menu bar
		stx	work+2
		ldy	#2
		lda	[work],y
		tax
		lda	[work]
		sta	work
		stx	work+2

		ldy	#8
		ldx	#0
rLoop		lda	[work],y
		sta	myzz3rect,x
		inx
		inx
		iny
		iny
		cpx	#8
		blt	rLoop

		pushlong #myzz3rect
		pea	2
		pea	1
		_InsetRect

		pushlong #myzz3rect
		_EraseRect
		
		pha				;find out how long our app's name is
		pei	tmpPtr+2
		pei	tmpPtr
		_StringWidth
		pla
		lsr	a			;divide by 2 because we're centering it
		pha				;then leave on stack
		
		ldy	#10			;add the right edge to the left edge of
		lda	[work],y		;our menu bar's rect
		clc
		ldy	#14
		adc	[work],y
		lsr	a			;div by 2 because we're centering
		sec
		sbc	1,s			;the total length - the string length
		sta	1,s			;will tell us where to put our text so
		pea	10			;that it's centered.
		_MoveTo
		
		pei	tmpPtr+2		;draw it up there -- everyone is happy
		pei	tmpPtr
		_DrawString
		
		_SetPort			;restore the previous grafport

		pea	0			;we only do this trick if the desktop is going
		pea	0			;to bother to stay on the screen
		_RefreshDesktop

; end of Finder code

		lda	tmpPtr			; fix length word
		bne	@1
		dec	tmpPtr+2
@1
		dec	tmpPtr
		lda	[tmpPtr]
		xba
		sta	[tmpPtr]
		rts

myzz3rect	ds.w	4

		ENDP

****************************************************************
*
TheFilterProc	PROC
*
*     ResultSpace
*     EntryPtr
*
* Called by standard file to decide whether or not to include
* this file.
*
****************************************************************

namePtr		equ	1
OrigDirect	equ	namePtr+4
RTLAdr		equ	OrigDirect+2
EntryPtr	equ	RTLAdr+3
Result		equ	EntryPtr+4

o_name		equ	$0a			; offset to filename
o_FileType	equ	$10			; offset of FileType field in GetDirEntry record

		phd
		pha				; make space for temp pointer
		pha
		tsc
		tcd

		ldx	#1			; assume not selectable

		ldy	#o_FileType
		lda	[EntryPtr],y
		and	#$00FF

		cmp	#$FF			; Is it	ProDOS 8 system	file?
		beq	Selectable

		cmp	#$B3			; GS/OS	application?
		bne	ReturnResult		; no...
SelectAble	jsr	SpecialCheck		; else check the name of the file

ReturnResult	stx	Result

		lda	RTLAdr+1
		sta	RTLAdr+4+1
		lda	RTLAdr
		sta	RTLAdr+4

		pla				; remove temp pointer
		pla
		pld				; restore direct register
		pla				; remove passed	pointer
		pla

		rtl				; return



;------------------------------------------------------------
;
; This is a routine that checks	for two special names and
; prevents the user from selecting them.
;
; The names are
;
;     PRODOS
;     P8
;
; They are special cases because they are launchable files
; (given their file types), but	should not be launched from
; the launcher.
;
SpecialCheck
		phb
		phk
		plb

		ldy	#o_name+2		;get pointer to	name buffer
		lda	[EntryPtr],y
		tax
		dey
		dey
		lda	[EntryPtr],y
		clc
		adc	#2			;bump past buffer length word
		bcc	@1			;to get	to string length word
		inx
@1
		sta	namePtr
		stx	namePtr+2

		lda	[namePtr]		;get the length	of the name
		tay				; put it in y for later	too


;-----------------------------------------------------------------
;
; This works because the two names have different lengths.
; If we	want to	trap out a file	with the same length a different
; method will have to be used.
;

		cmp	P8Name			; could	it be P8?
		beq	CheckP8
		cmp	ProdosName		; could	it be PRODOS
		beq	CheckProDOS

AllsOK		rep	#$20
		longa	on
		ldx	#2
		plb
		rts


CheckP8
		sep	#$20
		longa	off
P8Loop		lda	[namePtr],y
		and	#%11011111		;shift to upper	case
		cmp	P8Name,y
		bne	AllsOK
		dey
		bne	P8Loop

DimThisOne	rep	#$20
		longa	on

		ldx	#1
		plb
		rts

		longa	off
CheckProDOS
		sep	#$20
		longa	off
ProdosLoop	lda	[namePtr],y
		and	#%11011111		;shift to upper	case
		cmp	ProDOSName,y
		bne	AllsOK
		dey
		bne	ProdosLoop

		bra	DimThisOne


P8Name		wstr	'P8'
ProDOSName	wstr	'PRODOS'

		longa	on
		ENDP

************************************************************

MyDialogTemplate PROC
		With	GlobalData

		DC.W	0,0,130,400		; Bounds Rect
		DC.W	-1			; Visible
		DC.L	0			; RefCon
		DC.L	Item1
		DC.L	Item2
		DC.L	Item3
		DC.L	Item4
		DC.L	Item5
		DC.L	Item6
		DC.L	Item7
		DC.L	Item8
		DC.L	Item9
		DC.L	00


Item1		DC.W	1			; Item id
		DC.W	54,265,66,375		; Item Rect.
		DC.W	ButtonItem		; Item Type
		DC.L	StrBut1			; Item Descriptor.
		DC.W	00			; Value
		DC.W	0			; Flag
		DC.L	00			; Color

Item2		DC.W	2			; Item id
		DC.W	72,265,84,375		; Item Rect.
		DC.W	ButtonItem		; Item Type
		DC.L	StrBut2			; Item Descriptor.
		DC.W	00			; Value
		DC.W	0			; Flag
		DC.L	00			; Color

Item3		DC.W	3			; Item id
		DC.W	28,265,40,375		; Item Rect.
		DC.W	ButtonItem		; Item Type
		DC.L	StrBut3			; Item Descriptor.
		DC.W	00			; Value
		DC.W	0			; Flag
		DC.L	00			; Color

Item4		DC.W	4			; Item id
		DC.W	98,265,110,375		; Item Rect.
		DC.W	ButtonItem		; Item Type
		DC.L	StrBut4			; Item Descriptor.
		DC.W	00			; Value
		DC.W	0			; Flag
		DC.L	00			; Color

Item5		DC.W	5			; Item ID
		DC.W	28,214,110,239		; Scroll Bar Rect.
		DC.W	ScrollBarItem		; Type
		DC.L	00			; Filled by GetFile.
		DC.W	00			; Doesn't matter.
		DC.W	03			; Flag
		DC.L	00			; Color

Item6		DC.W	6
		DC.W	12,15,24,376		; Path Rectangle (376 was 215, 18-Dec-91 DAL)
		DC.W	UserItem
		DC.L	00			; Filled by GetFile.
		DC.W	00
		DC.W	00
		DC.L	0000

Item7		DC.W	7
		DC.W	28,15,110,215		; Files	Rectangle
		DC.W	UserItem
		DC.L	00			; Filled by GetFile.
		DC.W	00
		DC.W	00
		DC.L	0000

Item8		DC.W	8
		DC.W	2,15,14,395		; Prompt Rectangle
		DC.W	UserItem
		DC.L	00			; Filled by GetFile.
		DC.W	00
		DC.W	00
		DC.L	0000

Item9		DC.W	9
		DC.W	115,15,127, 202
		DC.W	StatText
		DC.L	VersionStr
		DC.W	00
		DC.W	00
		DC.L	0000

		String	Pascal
StrBut1		dc.b	'Open'
StrBut2		dc.b	'Close'
StrBut3		dc.b	'Disks'		;25-Mar-92 DAL
StrBut4		dc.b	'Cancel'

VersionStr	dc.b	'System 6 Program Launcher'
		String	AsIs

		ENDP



*******************************************************************************
MyDialogHook	PROC
		With	GlobalData

		IMPORT	VersionDialog

		sep	#$20
		lda	>$E0C025		; see if open apple  down
		rep	#$20
		bit	#$0080			; down?
		beq	ButNotDown		; no...

showVersions
		phd				; save d, b and	port
		phb

		pha
		pha
		_GetPort

OrigPort	equ	1
OrigB		equ	OrigPort+4
OrigD		equ	OrigB+1
RTLAdr		equ	OrigD+2
ItemHitPtr	equ	RTLAdr+3
DialogPortPtr	equ	ItemHitPtr+4

		tsc
		tcd
		phk
		plb

		lda	[ItemHitPtr]
		cmp	#9			; is it	the version item?
		bne	SkipVersion

		lda	MyDirect
		tcd
		jsr	VersionDialog

exit
		lda	#0000			; clear ItemHit (we handled it)
		sta	[ItemHitPtr]

SkipVersion
		_SetPort			; restore port,	b and d

		plb
		pld

ButNotDown

		phb				; put extra byte on stack
		ply				; take off extra and low of rtl
		plx				; take off middle and hi of rtl

		pla				; take off 8 bytes of inputs
		pla
		pla
		pla

		phx				; put back middle and hi
		phy				; put back low and extra

		plb				; pull off extra

		rtl				; done.

		ENDP

		INCLUDE	'dialog.aii'

		END

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Sys.Resources/Launcher.mac b/IIGS.601.SRC/GSToolbox/Sys.Resources/Launcher.mac
new file mode 100644
index 0000000..192fa77
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Sys.Resources/Launcher.mac
@@ -0,0 +1 @@
+		MACRO
		_HexIt
		ldx	#$2A0B
		jsl	$E10000
		MEND

		MACRO
		pushlong &addr,&offset
	IF &addr[1:1]='#' THEN
		pea	&addr[2:255]>>16
		pea	|&addr[2:255]
	ELSEIF &addr[1:1]='[' THEN
		ldy	#&offset+2
		pushword &addr,y
		ldy	#&offset
		pushword &addr,y
	ELSEIF &offset='s' THEN
		pushword &addr+2,s
		pushword &addr+2,s
	ELSEIF &offset='' THEN
		pushword &addr+2
		pushword &addr
	ELSE
		pushword &addr+2,&offset
		pushword &addr,&offset
	ENDIF
		MEND

		MACRO
		_SysDeath
		ldx	#$1503
		jsl	$E10000
		MEND

		MACRO
		pushword &addr,&reg
	IF &addr[1:1]='#' AND &SETTING('LONGA')='ON' THEN
		pea	|&addr[2:255]
	ELSE
	  IF &addr­'' THEN
	    IF &reg­'' THEN 
		lda	&addr,&reg
	    ELSE
		lda	&addr
	    ENDIF
	  ENDIF
		pha
	ENDIF
		MEND

		MACRO
		_SFPGetFile2
		ldx	#$1017
		jsl	$E10000
		MEND

		MACRO
		_ShutDownTools
		ldx	#$1901
		jsl	$E10000
		MEND

		MACRO
		_StartUpTools
		ldx	#$1801
		jsl	$E10000
		MEND

		MACRO
		_TLShutdown
		ldx	#$0301
		jsl	$E10000
		MEND

		MACRO
		_OSShutDownGS &params
		jsl	$E100A8
		DC.W	$2003
		DC.L	&params
		MEND

		MACRO
		_TLStartup
		ldx	#$0201
		jsl	$E10000
		MEND

		MACRO
		_MMStartup
		ldx	#$0202
		jsl	$E10000
		MEND

		MACRO
		_NewMenu
		ldx	#15+256*45
		jsl	$E10000
		MEND

		MACRO
		_InsertMenu
		ldx	#15+256*13
		jsl	$E10000
		MEND

		MACRO
		_FixMenuBar
		ldx	#15+256*19
		jsl	$E10000
		MEND

		MACRO
		_DrawMenuBar
		ldx	#15+256*42
		jsl	$E10000
		MEND

		MACRO
		_GetPort
		ldx	#$1C04
		jsl	$E10000
		MEND

		MACRO
		_GetMenuMgrPort
		ldx	#$1B0F
		jsl	$E10000
		MEND

		MACRO
		_SetPort
		ldx	#$1B04
		jsl	$E10000
		MEND

		MACRO
		_GetMenuBar
		ldx	#$0A0F
		jsl	$E10000
		MEND

		MACRO
		_InsetRect
		ldx	#$4C04
		jsl	$E10000
		MEND

		MACRO
		_EraseRect
		ldx	#$5504
		jsl	$E10000
		MEND

		MACRO
		_StringWidth
		ldx	#$A904
		jsl	$E10000
		MEND

		MACRO
		_MoveTo
		ldx	#4+256*58
		jsl	$E10000
		MEND

		MACRO
		_DrawString
		ldx	#4+256*165
		jsl	$E10000
		MEND

		MACRO
		_RefreshDesktop
		ldx	#$390E
		jsl	$E10000
		MEND

		MACRO
		wstr	&str
		lclc	&sset
&sset		setc	&Setting('String')
		String	AsIs
		dc.w	&len(&str)-2
		dc.b	&str
		String	&sset
		MEND

		MACRO
		_AlertWindow
		ldx	#$590E
		jsl	$E10000
		MEND

		MACRO
		hex	&arg
		lclc	&bytes,&hexStr
&hexStr		setc	&arg
	if (&len(&hexStr) AND 1) <> 0 then
		aerror	'Odd number of bytes in HEX directive'
&hexStr		setc	&concat(&hexStr,'0')	; make it even
	endif
&bytes		setc	&concat('$',&substr(&hexStr,1,2))
&hexStr		setc	&substr(&hexStr,3,	&len(&hexStr)-2)
	while &len(&hexStr)>0 do
&bytes		setc	&concat(&bytes,',$',&substr(&hexStr,1,2))
&hexStr		setc	&substr(&hexStr,3,	&len(&hexStr)-2)
	endwhile
		dc.b	&bytes
		MEND

		MACRO
		_GetNewModalDialog
		ldx	#$3215
		jsl	$E10000
		MEND

		MACRO
		_CreateList
		ldx	#$091C
		jsl	$E10000
		MEND

		MACRO
		_InitCursor
		ldx	#$CA04
		jsl	$E10000
		MEND

		MACRO
		_ModalDialog
		ldx	#$0F15
		jsl	$E10000
		MEND

		MACRO
		_DisposeControl
		ldx	#$0A10
		jsl	$E10000
		MEND

		MACRO
		_CloseDialog
		ldx	#$0C15
		jsl	$E10000
		MEND

		MACRO
		_GetCtlRefCon
		ldx	#$2310
		jsl	$E10000
		MEND

		MACRO
		_SetCtlRefCon
		ldx	#$2210
		jsl	$E10000
		MEND

		MACRO
		_FindControl
		ldx	#$1310
		jsl	$E10000
		MEND

		MACRO
		_TrackControl
		ldx	#$1510
		jsl	$E10000
		MEND

		MACRO
		_LoadOneTool
		ldx	#$0F01
		jsl	$E10000
		MEND

		MACRO
		_UnloadOneTool
		ldx	#$1001
		jsl	$E10000
		MEND

		MACRO
		_GetVersionGS &params
		jsl	$E100A8
		dc.w	$202A
		dc.l	&params
		MEND

		MACRO
		_Int2Dec
		ldx	#$260B
		jsl	$E10000
		MEND

		MACRO
		_SetMTitleStart
		ldx	#$190F
     		jsl	$E10000
		MEND

		MACRO
		_FixAppleMenu
		ldx	#$1E05
     		jsl	$E10000
		MEND

		MACRO
		_TaskMaster
		ldx	#$1D0E
		jsl	$E10000
		MEND

		MACRO
		_HiliteMenu
		ldx	#$2C0F
		jsl	$E10000
		MEND

		MACRO
		_PostEvent
		ldx	#$1406
		jsl	$E10000
		MEND

		MACRO
		_FrontWindow
		ldx	#$150E
		jsl	$E10000
		MEND

		MACRO
		_EnableMItem
		ldx	#$300F
		jsl	$E10000
		MEND

		MACRO
		_SetMenuFlag
		ldx	#$1F0F
		jsl	$E10000
		MEND

		MACRO
		_FlushEvents
		ldx	#$1506
		jsl	$E10000
		MEND
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Sys.Resources/New.Stack.Macros b/IIGS.601.SRC/GSToolbox/Sys.Resources/New.Stack.Macros
new file mode 100644
index 0000000..4f28066
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Sys.Resources/New.Stack.Macros
@@ -0,0 +1 @@
+;---------------------------------------------------------------------
;
;  file  stackframe.macros
;
;  This file contains stack frame code, originally designed by Darryl
;  Lovato and further modified by Andy Stadler.  This code creates
;  "best optimized" entry and exit code for pascal-style calling
;  sequences.
;
;  created:	19-Apr-88
;  modified:	See Mod History Below
;  Author:	Andy Stadler
;
;  Copyright (C) Apple Computer, Inc. 1988
;  All Rights Reserved.

;---------------------------------------------------------------------
;
;  Modification History
;
;  19-Apr-88	ADS	Original release
;  20-May-88	ADS	Modified, now there are only 2 cases
;  23-May-88	ADS	Fixed bug in small frame exit case
;  24-May-90	ADS	Added "big locals" support - for strings, etc

;---------------------------------------------------------------------
;
;  Pascal defines a stack frame with the following structure:
;
;	|		|
;	|---------------|
;	|		|
;	|  func result  |	"fsize" 
;	|		|
;	|---------------|
;	|		|
;	|  parameters   |	"psize"
;	|		|
;	|---------------|
;	|		|
;	|      RTL      |	3 bytes
;	|		|
;	|---------------|
;	|		|
;	|  saved D reg	|	2 bytes
;	|		|
;	|---------------|
;	|		|
;	|  local vars	|	"lsize"
;	|		|
;	|---------------|
;   D ->|		|
;	|  big locals	|	"bsize"
;	|		|
;	|---------------|
;  SP ->|		|
;	|		|
;
;
;  These macros generate code to save the old D register, create
;  local variable space (if requested), and point D and the stack
;  pointer to the appropriate stack offsets.  In addition, equates
;  are automatically generated to all variables within the stack
;  frame.
;
;  Using the macros to generate stack frames is quite simple.  The 
;  structure of every procedure/function is as follows:
;
;	ProcName	PROC
;			InitFrame
;			FrameType	flags
;	
;	biglocal1..n	BigLocal	types
;	local1..n	Local		types
;	param1..n	Param		types
;	result		Result		type
;
;			FrameEntry
;
;			{ user code }
;
;			FrameExit
;			ENDPROC
;
;  NOTE that the data must be declared in that order, and it is exactly
;  from bottom to top.  In addition, you must list the parameters in
;  exactly backwards order from the pascal source (see example below).
;
;  The following data types are defined:
;
;	Str255		256 bytes
;	Rect		8
;	Handle		4
;	Ptr		4
;	LongInt		4
;	Integer		2
;	Char		2
;	Byte		2
;	Boolean		2
;
;  Any other size variable may be defined simply by giving the number
;  of bytes to reserve.  Note that Char, Byte, and Boolean reserved two
;  bytes apiece;  this follows the Pascal calling conventions.  For local
;  storage, single byte variables may be declared with size 1 (but they may
;  only be stored to in 8 bit mode).  For code efficiency, however, it's
;  usually easier to just store them in two byte spaces.
;
;  The ExitCode routine includes the final RTL instruction;  none is needed.
;
;  Only one FrameType flag is currently defined:  SaveB will cause the data
;  bank register to be saved and restored.  This allows the procedure to access
;  data other than the standard globals page.  If no flags are set, the FrameType
;  instruction is not needed.
;
;  BigLocals should only be used when you have more than about 250 bytes of
;  stack frame (this means everything from the bottom of the locals up to
;  the top of the function result space.  This will most often be caused by use
;  of a pascal string as a local variable.  Because BigLocals are "below" the
;  true direct page, you can not access them directly.  Instead you can use
;  one of two techniques.  You can calculate the address and work with a pointer,
;  or you can take advantage of the dp,X mode, which WRAPS within bank zero, and
;  effectively allows use of negative offsets.  The equates generated for BigLocals
;  are thus negative numbers.  Here are examples of each technique:
;
;  Pushing a pointer to a BigLocal		Using Negative Indexing
;  -------------------------------		-----------------------
;
;	pea	0000	; push hi word			ldx	#bigloc
;	tdc		; calc lo word			lda	0,x
;	clc						lda	2,x	; hardcoded
;	adc	#bigloc	; negative # !			lda	10,x	; record
;	pha						lda	20,x	; offsets!
;
;  A nice side effect is that the macros restore the stack pointer, no matter
;  what its state when ExitCode is reached.  This was designed mainly for the
;  pascal compiler so it could compile EXIT(proc) easily;  It can be used similarly
;  from assembly.  You don't need to clean up when done because it will be fixed
;  for you!
;
;---------
;
;  The following example demonstr
ates the use of the macros.
;
;  FUNCTION MyFunct(address: Ptr; count: Integer) : Handle;
;  VAR
;    myFlag:	Boolean;
;    myWord:	Integer;
;    myRect:	Rect;
;    myArray:	ARRAY[1..10] OF INTEGER;
;    myString:	Str255;
;
;    BEGIN
;	.....
;    END;
;
;  In assembly:
;
;	MYFUNCT		FUNC			; FUNC and PROC are synonyms
;			InitFrame
;			FrameType	SaveB
;
;	myString	BigLocal	Str255
;	myArray		Local		20	    ; 10 integers is 20 bytes
;	myRect		Local		Rect
;	myWord		Local		Integer
;	myFlag		Local		Boolean	    ; 2 bytes
;	count		Param		Integer
;	address		Param		Ptr
;	theResult	Result		Handle
;
;			EntryCode
;
;			lda	<myArea+top	; all locals are direct page
;
;			ldy	<count
;			lda	[<address],y	; etc, etc
;
;			pea	0000		; call string function
;			tdc
;			clc
;			adc	#myString	; negative number....
;			pha
;			_DrawString
;
;			ExitCode		; (this macros includes the RTL)
;			ENDFUNC			; ENDFUNC and ENDPROC are synonyms
;
;-------------------------------------------------------------------------

;---------------------------------------------------------------------
;
;  Stack Frame Creation Macros
;
;  The following macros are used to initialize SET variables for
;  subsequent stack frame macros.

		MACRO
		InitFrame

Str255		set	256		; Data type sizes
Rect		set	8
Handle		set	4
Ptr		set	4
LongInt		set	4
Integer		set	2
Char		set	2
Byte		set	2
Boolean		set	2

qBSize		set	0		; # bytes of big locals
qLSize		set	0		; # bytes of locals
qPSize		set	0		; # bytes of parameters
qFSize		set	0		; # bytes of function result
qSaveB		set	0		; 1= save the data bank register

		MEND

;---------------------------------------------------------------------
;
;  Frame Options
;
;  The FrameType macro allows the user to choose options within the
;  stack frame.  The only currently defined option is SaveB which will
;  cause the data bank register to be preserved and restored.

		MACRO
		FrameType	&option
		
		IF &option = 'SaveB' THEN
qSaveB		set	1
		ELSE
		  Error:  Unknown_frame_option
		ENDIF
		
		MEND


;---------------------------------------------------------------------
;
;  Local Storage Macros
;
;  The following macros define labels for local stack frame variables
;  (big and small), stack based parameters, and function results.

		MACRO
&lab		BigLocal	&val
qBSize		set	qBSize+&val
&lab		equ	-qBSize+1

		IF qLSize <> 0 THEN
		  Error:  BigLocal_declaration_after_a_Local
		ENDIF
		IF qPSize <> 0 THEN
		  Error:  BigLocal_declaration_after_a_Param
		ENDIF
		IF qFSize <> 0 THEN
		  Error:  BigLocal_declaration_after_a_Result
		ENDIF
	
		MEND

	

		MACRO
&lab		Local	&val
&lab		equ	qLSize+1
qLSize		set	qLSize+&val

		IF qPSize <> 0 THEN
		  Error:  Local_declaration_after_a_Param
		ENDIF
		IF qFSize <> 0 THEN
		  Error:  Local_declaration_after_a_Result
		ENDIF
	
		MEND

	

		MACRO
&lab		Param		&val		; Stack based parameter

&lab		equ		qLSize+6+qSaveB+qPSize
qPSize		set		qPSize+&val

		IF qFSize<>0 THEN
		  Error:  Param_declaration_after_a_Result
		ENDIF
	
		MEND


		MACRO
&lab		Result		&val

		IF qFSize <> 0 THEN
		  Error: Duplicate_Result
		ENDIF

&lab		equ		qLSize+6+qSaveB+qPSize
qFSize		set		&val
		MEND


;---------------------------------------------------------------------
;
;  Entry Code Generation Macro
;
;  The EntryCode macro generates code to create the stack frame.  This
;  code saves the D and (optionally the B) register, creates space for
;  the local variables, and sets the D register and the Stack Ptr to 
;  just below this area (so the first local variable is at address 1).
;


		MACRO
		EntryCode
		longa	on
		longi	on

		IF	qSaveB = 1 THEN
		phb
		ENDIF
		
		phd

		IF	qLSize <= 8 THEN

Qtemp		SET	qLSize		; small # locals, PHY to make space
		WHILE	Qtemp > 0 DO
		phy
Qtemp		SET	Qtemp - 2
		ENDWHILE
		tsc
		
		ELSE
		tsc			; large # locals, calculate new SP
		sec
		sbc	#qLSize

		ENDIF
		
		tcd			; set the direct page
		
		IF	qBSize = 0 THEN
		
		IF	qLSize > 8 THEN
		tcs			; no bigs, large locals
		ENDIF
		
		ELSE
		
		sec			; split off the stack for bigs
		sbc	#qBSize
		tcs
		
		ENDIF

		MEND


;---------------------------------------------------------------------
;
;  Exit Code Generation Macro
;
;  The following macro generates the appropriate exit code for a
;  subprogram.  The stack pointer, D reg, and optionally B reg are
;  restored, and an RTL is executed.
;

		MACRO
&lab		ExitCode

&lab		longa	on
		longi	on
		
		IF	qPSize <> 0 THEN	; move RTL & B up over parms
		lda	<qLSize+4+qSaveB
		sta	<qLSize+4+qSaveB+qPSize
		lda	<qLSize+3
		sta	<qLSize+3+qPSize
		ENDIF

;  If LSize + PSize <= 12 or LSize <= 2 then do smallframe.  Else do largeframe.

		IF	qLSize+qPSize <= 12 GOTO .SMALLFRAME
		IF	qLSize > 2	    GOTO .LARGEFRAME

;  This frame has a small number of locals, zero or two bytes worth.
;  We can pull the D reg right off the stack, and then either pull or
;  calculate to remove the call parameters.

.SMALLFRAME	tdc
		tcs

Qtemp		SET	qLSize			; use ply's to kill locals
		WHILE	Qtemp > 0 DO
		ply
Qtemp		SET	Qtemp - 2
		ENDWHILE
		
		pld				; recover direct page register
		IF	qPSize <= 8 THEN

Qtemp		SET	qPSize			; small # parms, use ply's
		WHILE	Qtemp > 0 DO
		ply
Qtemp		SET	Qtemp - 2
		ENDWHILE

		ELSE				; large # parms, use clc adc
		clc
		adc	#2+qLSize+qPSize
		tcs
		ENDIF
		GOTO	.DONE


;  This frame has a large amount of stack data.  We use a load to get to the
;  saved D register, and dump the stack data by calculating a new stack pointer.

.LARGEFRAME	ldx	<1+qLSize
		tdc
		clc
		adc	#2+qLSize+qPSize
		tcs
		txa
		tcd
		
.DONE		IF	qSaveB = 1 THEN
		plb
		ENDIF
		rtl

		MEND

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Sys.Resources/makefile b/IIGS.601.SRC/GSToolbox/Sys.Resources/makefile
new file mode 100644
index 0000000..cd35efe
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Sys.Resources/makefile
@@ -0,0 +1 @@
+
# Note:  All LinkIIGS commands for code resources should use the -x option
# to suppress generation of ExpressLoad format load files.  Since code resources
# are relatively small, and don't get processed by ExpressLoad anyway, we might
# as well cut down on the ultimate size of the resources.

SYS.RESOURCES	Ä		sys.resources.r	¶
				Thermodial.Load	¶
				IconButton.Load	¶
				FrameControl.Load	¶
				Launcher.load	¶
				makefile
	reziigs -rd sys.resources.r -o SYS.RESOURCES -t "F9  "
	if {AutoDuplicate} == 1
		DuplicateIIGS -y -mac Sys.Resources :
	End

IconButton.Load	Ä		IconButton.aii.obj
	LinkIIGS -x IconButton.aii.obj -o IconButton.Load

IconButton.aii.obj	Ä		IconButton.aii
	asmiigs	IconButton.aii -unsafe -wi

Thermodial.Load	Ä		Thermodial.aii.obj
	LinkIIGS -x Thermodial.aii.obj -o Thermodial.Load

Thermodial.aii.obj	Ä		Thermodial.aii
	asmiigs	Thermodial.aii -unsafe -wi

FrameControl.Load	Ä		FrameControl.aii.obj
	LinkIIGS -x FrameControl.aii.obj -o FrameControl.Load

FrameControl.aii.obj Ä		FrameControl.aii
	asmiigs	FrameControl.aii

Launcher.Load	Ä	Launcher.aii ¶
			Launcher.mac ¶
			Dialog.aii
	Asmiigs Launcher.aii -o Launcher.Obj
	LinkIIGS  -x -t $BC -o Launcher.Load ¶
		-lseg:code:nospecial:static Launcher Launcher.obj
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Sys.Resources/sys.resources.r b/IIGS.601.SRC/GSToolbox/Sys.Resources/sys.resources.r
new file mode 100644
index 0000000..744cf1f
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Sys.Resources/sys.resources.r
@@ -0,0 +1 @@
+/*
 * Copyright 1990-92 Apple Computer, Inc.
 * All Rights Reserved
 *
 * Revision history
 *
 * 5-Feb-92 DAL
 *    Version 6.0.
 * 16-Feb-92 DAL
 *    Version 6.1d1.
 * 26-Feb-92 DAL
 *    Version 6.1d2.
 * 17-Mar-92 DAL
 *    Version 6.1d3.
 * 25-Mar-92 DAL
 *    Changed message to read "disk" instead of "volume."
 * 7-Apr-92 DAL
 *    Version 6.1d4.
 * 26-May-92 DAL
 *    Version 6.0.1d4.
 * 27-May-92 DAL
 *    Version 6.0.1d5.
 * 9-Jun-92 DAL
 *    Version 6.0.1d6.
 * 14-Jul-92 DAL
 *    Version 6.0.1d7.
 * 17-Jul-92 DAL
 *    Version 6.0.1d8.
 * 20-Jul-92 DAL
 *    Version 6.0.1d9.
 * 14-Aug-92 DAL
 *    Version 6.0.1d10.
 * 14-Sep-92 DAL
 *    Version 6.0.1d11.
 * 15-Oct-92 DAL
 *    Version 6.0.1d12.
 * 16-Dec-92 DAL
 *    Version 6.0.1d13.
 * 17-Feb-93 DAL
 *    Version 6.0.1d14.
 * 3-Mar-93 DAL
 *    Changed rVersion to read "System Software" instead of "System".
 * 13-Mar-93 DAL
 *    Version 6.0.1d15.
 * 2-Apr-93 SS
 *    Version 6.0.1
 */

#include "typesiigs.r"

/*---------------------- rCursor ----------------------*/
#define rMyCursor $8027

type rMyCursor {
	height:
	    hex integer;			/* height */
	width:
	    hex integer;			/* width in words */
	hex string[2*$$Word(height)*$$Word(width)];	/* cursor image */
	hex string[2*$$Word(height)*$$Word(width)];	/* cursor mask */
	integer;	/* HotY */
	integer;	/* HotX */
	integer;	/* flags */
	longint = 0;	/* filler */
	longint = 0;	/* filler */
};

/*--------------------------------------------------------------------------------------------------*/

resource rVersion(1)
{
	{ 6,0,1,release,$00 },
	verUS,
	"System Software",
	"Copyright Apple Computer, Inc. 1983-93"
};

/* resource rComment(1) { "ÇApple II ForeverÈ" }; */

resource rComment(2) { "Sys.Resources is used internally by the Apple IIgs "
	   "Toolbox.  You canÕt open it directly." };

read rCtlDefProc (0x07FF0001,Convert,locked)  "IconButton.Load";
read rCtlDefProc (0x07FF0002,Convert,locked)  "Thermodial.Load";
read rCtlDefProc (0x07FF0003,Convert,locked)  "FrameControl.Load";

// GS/OS program launcher - used when no program is on the quit stack.
read rCodeResource ($07ff0001,Convert,locked)  "Launcher.Load";

/* 640-mode I-Beam */
resource rMyCursor(0x07ff0001,locked,fixed,preload,nospecialmemory) {
	13,	/* height */
	3,	/* width */
	$"000000000000"	/* image */
	$"003C0F000000"
	$"000330000000"
	$"0000C0000000"
	$"0000C0000000"
	$"0000C0000000"
	$"0000C0000000"
	$"0000C0000000"
	$"0000C0000000"
	$"0000C0000000"
	$"000330000000"
	$"003C0F000000"
	$"000000000000",

	$"00FF3FC00000"	/* mask */
	$"00FF3FC00000"
	$"000FFC000000"
	$"0003F0000000"
	$"0003F0000000"
	$"0003F0000000"
	$"0003F0000000"
	$"0003F0000000"
	$"0003F0000000"
	$"0003F0000000"
	$"000FFC000000"
	$"00FF3FC00000"
	$"00FF3FC00000",
	6,	/* hot spot Y */
	8,	/* hot spot X */
	$80	/* 640 mode */
};

/* 320-mode I-Beam */
resource rMyCursor(0x07ff0101,locked,fixed,preload,nospecialmemory) {
	13,	/* height */
	4,	/* width */
	$"0000000000000000"	/* image */
	$"000FF000FF000000"
	$"00000F0F00000000"
	$"000000F000000000"
	$"000000F000000000"
	$"000000F000000000"
	$"000000F000000000"
	$"000000F000000000"
	$"000000F000000000"
	$"000000F000000000"
	$"00000F0F00000000"
	$"000FF000FF000000"
	$"0000000000000000",

	$"00FFFF0FFFF00000"	/* mask */
	$"000FFF0FFFF00000"
	$"0000FFFFF0000000"
	$"00000FFF00000000"
	$"00000FFF00000000"
	$"00000FFF00000000"
	$"00000FFF00000000"
	$"00000FFF00000000"
	$"00000FFF00000000"
	$"00000FFF00000000"
	$"0000FFFFF0000000"
	$"000FFF0FFF000000"
	$"00FFFF0FFFF00000",

	6,	/* hot spot Y */
	6,	/* hot spot X */
	$00	/* 320 mode */
};

/* 640-mode Cross */
resource rMyCursor(0x07ff0002,locked,fixed,preload,nospecialmemory) {
	9,	/* height */
	4,	/* width */
	$"00003C0000000000"	/* image */
	$"00003C0000000000"
	$"00003C0000000000"
	$"00003C0000000000"
	$"FFFFFFFFFF000000"
	$"00003C0000000000"
	$"00003C0000000000"
	$"00003C0000000000"
	$"00003C0000000000",

	$"0000000000000000"	/* mask */
	$"0000000000000000"
	$"0000000000000000"
	$"0000000000000000"
	$"0000000000000000"
	$"0000000000000000"
	$"0000000000000000"
	$"0000000000000000"
	$"0000000000000000",
	4,	/* hot spot Y */
	9,	/* hot spot X */
	$0080	/* 640 mode */
};

/* 320-mode Cross */
resource rMyCursor(0x07ff0102,locked,fixed,preload,nospecialmemory) {
	9,	/* height */
	4,	/* width */
	$"00003C0000000000"	/* image */
	$"00003C0000000000"
	$"00003C0000000000"
	$"00003C0000000000"
	$"FFFFFFFFFF000000"
	$"00003C0000000000"
	$"00003C0000000000"
	$"00003C0000000000"
	$"00003C0000000000",
	
	$"0000000000000000"	/* mask */
	$"0000000000000000"
	$"0000000000000000"
	$"0000000000000000"
	$"0000000000000000"
	$"0000000000000000"
	$"0000000000000000"
	$"0000000000000000"
	$"0000000000000000",
	4,	/* hot spot Y */
	9,	/* hot spot X */
	$0000	/* 320 mode */
};



/* 640-mode Plus */
resource rMyCursor (0x07ff0003,locked,fixed,preload,nospecialmemory) {
	9,	/* height */
	4,	/* width */
	$"0000FFF000000000"	/* image */
	$"0000F0F000000000"
	$"0000F0F000000000"
	$"FFFFFFFFFFF00000"
	$"F000F0F000F00000"
	$"FFFFFFFFFFF00000"
	$"0000F0F000000000"
	$"0000F0F000000000"
	$"0000FFF000000000",

	$"0000FFF000000000" /* mask */
	$"0000FFF000000000"
	$"0000FFF000000000"
	$"FFFFFFFFFFF00000"
	$"FFFFF0FFFFF00000"
	$"FFFFFFFFFFF00000"
	$"0000FFF000000000"
	$"0000FFF000000000"
	$"0000FFF000000000",
	4,	/* hot spot Y */
	9,	/* hot spot X */
	$0080	/* 640 mode */
};


/* 320-mode Plus */
resource rMyCursor (0x07ff0103,locked,fixed,preload,nospecialmemory) {
	9,	/* height */
	4,	/* width */
	$"0000FFF000000000"	/* image */
	$"0000F0F000000000"
	$"0000F0F000000000"
	$"FFFFFFFFFFF00000"
	$"F000F0F000F00000"
	$"FFFFFFFFFFF00000"
	$"0000F0F000000000"
	$"0000F0F000000000"
	$"0000FFF000000000",

	$"0000FFF000000000"	/* mask */
	$"0000FFF000000000"
	$"0000FFF000000000"
	$"FFFFFFFFFFF00000"
	$"FFFFF0FFFFF00000"
	$"FFFFFFFFFFF00000"
	$"0000FFF000000000"
	$"0000FFF000000000"
	$"0000FFF000000000",
	4,	/* hot spot Y */
	9,	/* hot spot X */
	$0000	/* 320 mode */
};

/* Stop 640 */
resource rIcon(0x07ff0002,"Stop",locked,fixed,preload,nospecialmemory) {
	$8000,	/* kind */
	18,	/* height */
	24,	/* width */
	
	$"FFFFFC00000000000FFFFFFF"
	$"FFFFC0444444444440FFFFFF"
	$"FFFC044444404444440FFFFF"
	$"FFC04444400F00444440FFFF"
	$"FC0444440F0F0F0444440FFF"
	$"C04444400F0F0F04444440FF"
	$"C044440F0F0F0F04444440FF"
	$"C044440F0F0F0F04044440FF"
	$"C044440F0F0F0F00F04440FF"
	$"C044440FFFFFFFF0F04440FF"
	$"C044440FFFFF000FF04440FF"
	$"C044440FFFF0FFFF044440FF"
	$"C044440FFFFFFFF0444440FF"
	$"FC044440FFFFFF0444440FFF"
	$"FFC044440FFFF0444440FFFF"
	$"FFFC044444444444440FFFFF"
	$"FFFFC0444444444440FFFFFF"
	$"FFFFFC00000000000FFFFFFF",
	
	$"00000FFFFFFFFFFFF0000000"
	$"0000FFFFFFFFFFFFFF000000"
	$"000FFFFFFFFFFFFFFFF00000"
	$"00FFFFFFFFFFFFFFFFFF0000"
	$"0FFFFFFFFFFFFFFFFFFFF000"
	$"FFFFFFFFFFFFFFFFFFFFFF00"
	$"FFFFFFFFFFFFFFFFFFFFFF00"
	$"FFFFFFFFFFFFFFFFFFFFFF00"
	$"FFFFFFFFFFFFFFFFFFFFFF00"
	$"FFFFFFFFFFFFFFFFFFFFFF00"
	$"FFFFFFFFFFFFFFFFFFFFFF00"
	$"FFFFFFFFFFFFFFFFFFFFFF00"
	$"FFFFFFFFFFFFFFFFFFFFFF00"
	$"0FFFFFFFFFFFFFFFFFFFF000"
	$"00FFFFFFFFFFFFFFFFFF0000"
	$"000FFFFFFFFFFFFFFFF00000"
	$"0000FFFFFFFFFFFFFF000000"
	$"00000FFFFFFFFFFFF0000000";
};


/* Note 640 */
resource rIcon(0x07ff0003,"Note",locked,fixed,preload,nospecialmemory) {
	$0000,
	18,	/* height */
	24,	/* width */
	$"000000000000000000000000"
	$"0FFFFFF00000000000000000"
	$"0FFFFFF00000000000000000"
	$"0FFF0FF00000eeeeeee00000"
	$"0FFF0FF0000eeeeeeeee0000"
	$"0FFFFFF000eeeeeeeeeee000"
	$"0FFFFFF000ee00e0e000e000"
	$"0FFFFFF000eeeeeeeeeee000"
	$"0FFFFFF000ee0e0e00e0e000"
	$"0FFFFFF000eeeeeeeeeee000"
	$"0FFFFFF000ee00e00e0ee000"
	$"0FFF000000eeeeeeeeeee000"
	$"0FFFFF0000eeeeeeeeee0000"
	$"0FFFFF000eeeeeeeeee00000"
	$"0FF0000eeeeeeeeee0000000"
	$"0FFFFF000000000000000000"
	$"0FFFFF000000000000000000"
	$"000000000000000000000000",

	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
};


/* Caution 640 */
resource rIcon(0x07ff0004,"Caution",locked,fixed,preload,nospecialmemory) {
	$8000,
	18,	/* height */
	20,	/* width */
	$"FFFFFFFC00003FFFFFFF"
	$"FFFFFFC0000003FFFFFF"
	$"FFFFFF003EEC00FFFFFF"
	$"FFFFFC00EEEE003FFFFF"
	$"FFFFF003E00EC00FFFFF"
	$"FFFFC00EC003E003FFFF"
	$"FFFF003EC003EC00FFFF"
	$"FFFC00EEC003EE003FFF"
	$"FFF003EEC003EEC00FFF"
	$"FFC00EEEE00EEEE003FF"
	$"FF003EEEE00EEEEC00FF"
	$"FC00EEEEEC3EEEEE003F"
	$"F003EEEEEEEEEEEEC00F"
	$"C00EEEEEE00EEEEEE003"
	$"003EEEEEE00EEEEEEC00"
	$"00EEEEEEEEEEEEEEEE00"
	$"00000000000000000000"
	$"C0000000000000000003",

	$"0000000FFFFFF0000000"
	$"000000FFFFFFFF000000"
	$"000000FFFFFFFF000000"
	$"00000FFFFFFFFFF00000"
	$"00000FFFFFFFFFF00000"
	$"0000FFFFFFFFFFFF0000"
	$"0000FFFFFFFFFFFF0000"
	$"000FFFFFFFFFFFFFF000"
	$"000FFFFFFFFFFFFFF000"
	$"00FFFFFFFFFFFFFFFF00"
	$"00FFFFFFFFFFFFFFFF00"
	$"0FFFFFFFFFFFFFFFFFF0"
	$"0FFFFFFFFFFFFFFFFFF0"
	$"FFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFF"

};


/* 3.5" Disk 640 */
resource rIcon(0x07ff0005,"Disk",locked,fixed,preload,nospecialmemory) {
	$8000,
	19,	/* height */
	24,	/* width */
	$"000000000000000000000000"
	$"0FF0dfdfdfdfdfdfdfdf0FF0"
	$"0FF0fdfdfdfdfdfdfdfd0FF0"
	$"0FF0dfdfdfdfdfdfdfdf0FF0"
	$"0FF0fdfdfdfdfdfdfdfd0FF0"
	$"0FF0dfdfdfdfdfdfdfdf0FF0"
	$"0FF0fdfdfdfdfdfdfdfd0FF0"
	$"0FF0dfdfdfdfdfdfdfdf0FF0"
	$"0FF0fdfdfdfdfdfdfdfd0FF0"
	$"0FF0dfdfdfdfdfdfdfdf0FF0"
	$"0FF000000000000000000FF0"
	$"0FFFFFFFFFFFFFFFFFFFFFF0"
	$"0FFFFF000000000000FFFFF0"
	$"0FFFFF00FF00000000FFFFF0"
	$"0FFFFF00FF00000000FFFFF0"
	$"0FFFFF00FF00000000FFFFF0"
	$"0FFFFF00FF00000000FFFFF0"
	$"F0FFFF000000000000FFFFF0"
	$"FF0000000000000000000000",

	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"0FFFFFFFFFFFFFFFFFFFFFFF"
	$"00FFFFFFFFFFFFFFFFFFFFFF"
};

/* Disk Swap 640 */
resource rIcon(0x07ff0006,"Disk Swap",locked,fixed,preload,nospecialmemory) {
	$8000,
	20,	/* height */
	28,	/* width */
	$"FFFFFFFFF000000000000FFFFFFF"
	$"FFFFFFFF0FFFFFFFFFFFF0FFFFFF"
	$"FFFFFFF0FFFFFFFFFFF00000FFFF"
	$"FFFFFF0FFFFFFFFFFFFF000FFFFF"
	$"FFFFFF0FFFFFFFFFFFFFF0FFFFFF"
	$"0000000000000FF0000000000000"
	$"0F0FFFFFFF0F0FF0F0FFFFFFF0F0"
	$"0F0FFFFFFF0F0FF0F0FFFFFFF0F0"
	$"0F0FFFFFFF0F0FF0F0FFFFFFF0F0"
	$"0F000000000F0FF0F000000000F0"
	$"0FFFFFFFFFFF0FF0FFFFFFFFFFF0"
	$"0FF333333FFF0FF0FF333333FFF0"
	$"0FF3F3333FFF0FF0FF3F3333FFF0"
	$"0FF3F3333FFF0FF0FF3F3333FFF0"
	$"F000000000000FFF000000000000"
	$"FFFFFF0FFFFFFFFFFFFFF0FFFFFF"
	$"FFFFF000FFFFFFFFFFFFF0FFFFFF"
	$"FFFF00000FFFFFFFFFFF0FFFFFFF"
	$"FFFFFF0FFFFFFFFFFFF0FFFFFFFF"
	$"FFFFFFF000000000000FFFFFFFFF",

	$"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
};

/* Stop 320 */
resource rIcon(0x07ff0102,locked,fixed,preload,nospecialmemory) {
	$8000,
	18,	/* height */
	24,	/* width */
	$"FFFFFF00000000000FFFFFFF"
	$"FFFFF0777777777770FFFFFF"
	$"FFFF077777707777770FFFFF"
	$"FFF07777700F00777770FFFF"
	$"FF0777770F0F0F0777770FFF"
	$"F07777700F0F0F07777770FF"
	$"F077770F0F0F0F07777770FF"
	$"F077770F0F0F0F07077770FF"
	$"F077770F0F0F0F00F07770FF"
	$"F077770FFFFFFFF0F07770FF"
	$"F077770FFFFF000FF07770FF"
	$"F077770FFFF0FFFF077770FF"
	$"F077770FFFFFFFF0777770FF"
	$"FF077770FFFFFF0777770FFF"
	$"FFF077770FFFF0777770FFFF"
	$"FFFF077777777777770FFFFF"
	$"FFFFF0777777777770FFFFFF"
	$"FFFFFF00000000000FFFFFFF",
	
	$"000000FFFFFFFFFFF0000000"
	$"00000FFFFFFFFFFFFF000000"
	$"0000FFFFFFFFFFFFFFF00000"
	$"000FFFFFFFFFFFFFFFFF0000"
	$"00FFFFFFFFFFFFFFFFFFF000"
	$"0FFFFFFFFFFFFFFFFFFFFF00"
	$"0FFFFFFFFFFFFFFFFFFFFF00"
	$"0FFFFFFFFFFFFFFFFFFFFF00"
	$"0FFFFFFFFFFFFFFFFFFFFF00"
	$"0FFFFFFFFFFFFFFFFFFFFF00"
	$"0FFFFFFFFFFFFFFFFFFFFF00"
	$"0FFFFFFFFFFFFFFFFFFFFF00"
	$"0FFFFFFFFFFFFFFFFFFFFF00"
	$"00FFFFFFFFFFFFFFFFFFF000"
	$"000FFFFFFFFFFFFFFFFF0000"
	$"0000FFFFFFFFFFFFFFF00000"
	$"00000FFFFFFFFFFFFF000000"
	$"000000FFFFFFFFFFF0000000";
};


/* Note 320 */
resource rIcon(0x07ff0103,locked,fixed,preload,nospecialmemory) {
	$0000,
	18,	/* height */
	24,	/* width */
	$"000000000000000000000000"
	$"0FFFFFF00000000000000000"
	$"0FFFFFF00000000000000000"
	$"0FFF0FF00000999999900000"
	$"0FFF0FF00009999999990000"
	$"0FFFFFF00099999999999000"
	$"0FFFFFF00099009090009000"
	$"0FFFFFF00099999999999000"
	$"0FFFFFF00099090900909000"
	$"0FFFFFF00099999999999000"
	$"0FFFFFF00099009009099000"
	$"0FFF00000099999999999000"
	$"0FFFFF000099999999990000"
	$"0FFFFF000999999999900000"
	$"0FF000099999999990000000"
	$"0FFFFF000000000000000000"
	$"0FFFFF000000000000000000"
	$"000000000000000000000000",

	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
};


/* Caution 320 */
resource rIcon(0x07ff0104,locked,fixed,preload,nospecialmemory) {
	$8000,
	18,	/* height */
	20,	/* width */
	$"FFFFFFF100001FFFFFFF"
	$"FFFFFF10000001FFFFFF"
	$"FFFFFF00199100FFFFFF"
	$"FFFFF1009999001FFFFF"
	$"FFFFF0019009100FFFFF"
	$"FFFF100990099001FFFF"
	$"FFFF001990099100FFFF"
	$"FFF10099900999001FFF"
	$"FFF00199900999100FFF"
	$"FF1009999009999001FF"
	$"FF0019999009999100FF"
	$"F100999990099999001F"
	$"F001999999999999100F"
	$"10099999900999999001"
	$"00199999900999999100"
	$"00999999999999999900"
	$"00000000000000000000"
	$"F000000000000000000F",

	$"0000000FFFFFF0000000"
	$"000000FFFFFFFF000000"
	$"000000FFFFFFFF000000"
	$"00000FFFFFFFFFF00000"
	$"00000FFFFFFFFFF00000"
	$"0000FFFFFFFFFFFF0000"
	$"0000FFFFFFFFFFFF0000"
	$"000FFFFFFFFFFFFFF000"
	$"000FFFFFFFFFFFFFF000"
	$"00FFFFFFFFFFFFFFFF00"
	$"00FFFFFFFFFFFFFFFF00"
	$"0FFFFFFFFFFFFFFFFFF0"
	$"0FFFFFFFFFFFFFFFFFF0"
	$"FFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFF"

};


/* 3.5" Disk 320 */
resource rIcon(0x07ff0105,locked,fixed,preload,nospecialmemory) {
	$8000,
	19,	/* height */
	24,	/* width */
	$"000000000000000000000000"
	$"0FF0dfdfdfdfdfdfdfdf0FF0"
	$"0FF0fdfdfdfdfdfdfdfd0FF0"
	$"0FF0dfdfdfdfdfdfdfdf0FF0"
	$"0FF0fdfdfdfdfdfdfdfd0FF0"
	$"0FF0dfdfdfdfdfdfdfdf0FF0"
	$"0FF0fdfdfdfdfdfdfdfd0FF0"
	$"0FF0dfdfdfdfdfdfdfdf0FF0"
	$"0FF0fdfdfdfdfdfdfdfd0FF0"
	$"0FF0dfdfdfdfdfdfdfdf0FF0"
	$"0FF000000000000000000FF0"
	$"0FFFFFFFFFFFFFFFFFFFFFF0"
	$"0FFFFF000000000000FFFFF0"
	$"0FFFFF00FF00000000FFFFF0"
	$"0FFFFF00FF00000000FFFFF0"
	$"0FFFFF00FF00000000FFFFF0"
	$"0FFFFF00FF00000000FFFFF0"
	$"F0FFFF000000000000FFFFF0"
	$"FF0000000000000000000000",

	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFF"
	$"0FFFFFFFFFFFFFFFFFFFFFFF"
	$"00FFFFFFFFFFFFFFFFFFFFFF"
};

/* Disk Swap 320 */
resource rIcon(0x07ff0106,locked,fixed,preload,nospecialmemory) {
	$8000,
	20,	/* height */
	28,	/* width */
	$"FFFFFFFFF000000000000FFFFFFF"
	$"FFFFFFFF0FFFFFFFFFFFF0FFFFFF"
	$"FFFFFFF0FFFFFFFFFFF00000FFFF"
	$"FFFFFF0FFFFFFFFFFFFF000FFFFF"
	$"FFFFFF0FFFFFFFFFFFFFF0FFFFFF"
	$"0000000000000FF0000000000000"
	$"0F0FFFFFFF0F0FF0F0FFFFFFF0F0"
	$"0F0FFFFFFF0F0FF0F0FFFFFFF0F0"
	$"0F0FFFFFFF0F0FF0F0FFFFFFF0F0"
	$"0F000000000F0FF0F000000000F0"
	$"0FFFFFFFFFFF0FF0FFFFFFFFFFF0"
	$"0FF333333FFF0FF0FF333333FFF0"
	$"0FF3F3333FFF0FF0FF3F3333FFF0"
	$"0FF3F3333FFF0FF0FF3F3333FFF0"
	$"F000000000000FFF000000000000"
	$"FFFFFF0FFFFFFFFFFFFFF0FFFFFF"
	$"FFFFF000FFFFFFFFFFFFF0FFFFFF"
	$"FFFF00000FFFFFFFFFFF0FFFFFFF"
	$"FFFFFF0FFFFFFFFFFFF0FFFFFFFF"
	$"FFFFFFF000000000000FFFFFFFFF",

	$"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
	$"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
};

/* old error strings started out "30" (window size 3, no icon) */
/* most new ones are "62" (window size 6, Stop icon) */
/* 3 = talking head instead of stop sign */
/* 4 = caution */

resource rErrorString ($07FF0000) {
	"53/No error occurred ($0)./^#0\0x00"
};

resource rErrorString ($07FF0001) {
	"52/Bad system call number ($1)./^#6\0x00"
};

resource rErrorString ($07FF0004) {
	"52/Invalid parameter count ($4)./^#6\0x00"
};

resource rErrorString ($07FF0007) {
	"52|GS/OS already active ($7).|^#6\0x00"
};

resource rErrorString ($07FF0010) {
	"52/Device not found ($10)./^#6\0x00"
};

resource rErrorString ($07FF0011) {
	"52/Invalid device number ($11)./^#6\0x00"
};

resource rErrorString ($07FF0020) {
	"52/Bad request or demand ($20)./^#6\0x00"
};

resource rErrorString ($07FF0021) {
	"52/Bad control or status code ($21)./^#6"
	"\0x00"
};

resource rErrorString ($07FF0022) {
	"52/Bad call parameter ($22)./^#6\0x00"
};

resource rErrorString ($07FF0023) {
	"52/Character device not open ($23)./^#6\0x00"
};

resource rErrorString ($07FF0024) {
	"52/Character device already open ($24)./"
	"^#6\0x00"
};

resource rErrorString ($07FF0025) {
	"52/Interrupt table full ($25)./^#6\0x00"
};

resource rErrorString ($07FF0026) {
	"52/Resources not available ($26)./^#6\0x00"
};

resource rErrorString ($07FF0027) {
	"52|I/O Error ($27).|^#6\0x00"
};

resource rErrorString ($07FF0028) {
	"52/Device not connected ($28)./^#6\0x00"
};

resource rErrorString ($07FF0029) {
	"52/Driver is busy and not available ($29"
	")./^#6\0x00"
};

resource rErrorString ($07FF002B) {
	"52/Device is write protected ($2B)./^#6\0x00"
};

resource rErrorString ($07FF002C) {
	"52/Invalid byte count ($2C)./^#6\0x00"
};

resource rErrorString ($07FF002D) {
	"52/Invalid block number ($2D)./^#6\0x00"
};

resource rErrorString ($07FF002E) {
	"52/Disk has been switched ($2E)./^#6\0x00"
};

resource rErrorString ($07FF002F) {
	"52|Device off line or no media present ($2F"
	").|^#6\0x00"
};

resource rErrorString ($07FF0040) {
	"52/Invalid pathname syntax ($40)./^#6\0x00"
};

resource rErrorString ($07FF0042) {
	"62/Cannot open file.  Too many files are open "
	"on the server ($42)./^#6\0x00"
};

resource rErrorString ($07FF0043) {
	"52/Invalid reference number ($43)./^#6\0x00"
};

resource rErrorString ($07FF0044) {
	"52/Subdirectory does not exist ($44)./^#6"
	"\0x00"
};

resource rErrorString ($07FF0045) {
	"52/Disk not found ($45)./^#6\0x00"
};

resource rErrorString ($07FF0046) {
	"52/File not found ($46)./^#6\0x00"
};

resource rErrorString ($07FF0047) {
	"52/Duplicate pathname ($47)./^#6\0x00"
};

resource rErrorString ($07FF0048) {
	"52/Disk full ($48)./^#6\0x00"
};

resource rErrorString ($07FF0049) {
	"52/Disk directory full ($49)./^#6\0x00"
};

resource rErrorString ($07FF004A) {
	"52/Version error ($4A)./^#6\0x00"
};

resource rErrorString ($07FF004B) {
	"52/Bad storage type ($4B)./^#6\0x00"
};

resource rErrorString ($07FF004C) {
	"52/End of file encountered ($4C)./^#6\0x00"
};

resource rErrorString ($07FF004D) {
	"52/Position out of range ($4D)./^#6\0x00"
};

resource rErrorString ($07FF004E) {
	"52/Access not allowed ($4E)./^#6\0x00"
};

resource rErrorString ($07FF004F) {
	"52/Buffer too small ($4F)./^#6\0x00"
};

resource rErrorString ($07FF0050) {
	"52/File is already open ($50)./^#6\0x00"
};

resource rErrorString ($07FF0051) {
	"52/Directory is damaged ($51)./^#6\0x00"
};

resource rErrorString ($07FF0052) {
	"52/Unknown disk type ($52)./^#6\0x00"
};

resource rErrorString ($07FF0053) {
	"52/Parameter out of range ($53)./^#6\0x00"
};

resource rErrorString ($07FF0054) {
	"52/Out of memory ($54)./^#6\0x00"
};

resource rErrorString ($07FF0057) {
	"52/Duplicate disk name ($57)./^#6\0x00"
};

resource rErrorString ($07FF0058) {
	"52/Not a block device ($58)./^#6\0x00"
};

resource rErrorString ($07FF0059) {
	"62/Specified level is outside legal rang"
	"e ($59)./^#6\0x00"
};

resource rErrorString ($07FF005A) {
	"52/Block number too large ($5A)./^#6\0x00"
};

resource rErrorString($07FF005B) {
  "62/ChangePath cannot move an item to another disk or "
  "move a folder into one of its subfolders ($5B)./^#6\0x00"
};

resource rErrorString ($07FF005C) {
	"52/Not an executable file ($5C)./^#6\0x00"
};

resource rErrorString ($07FF005D) {
	"52/Operating system not supported ($5D)."
	"/^#6\0x00"
};

resource rErrorString ($07FF005F) {
	"52|GS/OS Quit-stack overflow ($5F).|^#6\0x00"
};

resource rErrorString ($07FF0060) {
	"52/Data unavailable ($60)./^#6\0x00"
};

resource rErrorString ($07FF0061) {
	"52/End of directory has been reached ($6"
	"1)./^#6\0x00"
};

resource rErrorString ($07FF0062) {
	"52/Invalid FST call class ($62)./^#6\0x00"
};

resource rErrorString ($07FF0063) {
	"52/File does not have a resource fork ($63)./^#6\0x00"
};

resource rErrorString ($07FF0064) {
	"62/Specified FST is not present in syste"
	"m ($64)./^#6\0x00"
};

resource rErrorString ($07FF0065) {
	"52/FST does not handle this type of call"
	" ($65)./^#6\0x00"
};

resource rErrorString ($07FF0066) {
	"54/FST handled call, but result is weird"
	" ($66)./^#6\0x00"
};

resource rErrorString ($07FF0067) {
	"52/Internal error ($67)./^#6\0x00"
};

resource rErrorString ($07FF0068) {
	"52/Device list is full ($68)./^#6\0x00"
};

resource rErrorString ($07FF0069) {
	"52/Supervisor list is full ($69)./^#6\0x00"
};

resource rErrorString ($07FF006A) {
	"52/Generic FST error ($6A)./^#6\0x00"
};

resource rErrorString ($07FF0070) {
	"62/Cannot expand file, resource already "
	"exists ($70)./^#6\0x00"
};

resource rErrorString ($07FF0071) {
	"52/Cannot add resource fork to this type"
	" of file ($71)./^#6\0x00"
};

/* Message 72 */

resource rErrorString ($07FF0072) {
	"52/Unknown error:  $*0./^#6\0x00"
};

/* Message 80 */

resource rErrorString ($07FF0080) {
	"62/Error creating the new directory:\0x0D"
	"*0./^#1\0x00"
};

/* Message 81 */

resource rErrorString ($07FF0081) {
	"62/Error saving the file:\0x0D"
	"*0./^#1\0x00"
};

/* Message 82 */

resource rErrorString ($07FF0082) {
	"62/Insufficient access privileges to open that folder."
	"/^#6\0x00"
};

/* Message 83 */

resource rErrorString ($07FF0083) {
	"62/The selected folder cannot be opened:\0x0D"
	"*0./^#1\0x00"
};

/* Message 84 */

resource rErrorString ($07FF0084) {
	"62/You cannot replace a folder with a file."
	"/^#1\0x00"
};

/* Message 85 */

resource rErrorString ($07FF0085) {
	"23/That file already exists."  /* was "20..." 21-Apr-91 DAL */
	"/^#1/#Replace\0x00"
};

/* Message 86 */

resource rErrorString ($07FF0086) {
	"62/Insufficient memory to perform that operation.\0x0D"
	"About *0K additional needed./^#1\0x00"
};

/* Message 87 */

resource rErrorString ($07FF0087) {
	"62/Initialization failed:  Disk write protected."
	"/^#1\0x00"
};

/* Message 88 */

resource rErrorString ($07FF0088) {
	"52/The pathname is too long."
	"/^#1\0x00"
};

/* Message 89 */

resource rErrorString ($07FF0089) {
	"52/The disk is write protected."
	"/^#1\0x00"
};

/* Message 8A */

resource rErrorString ($07FF008A) {
	"52/The disk is full."
	"/^#1\0x00"
};

/* Message 8B */

resource rErrorString ($07FF008B) {
	"52/The disk directory is full."
	"/^#1\0x00"
};

/* Message 8C */

resource rErrorString ($07FF008C) {
	"62/The file is copy-protected and canÕt be copied."
	"/^#1\0x00"
};

/* Message 8D */

resource rErrorString ($07FF008D) {
	"52/Memory is full."
	"/^#1\0x00"
};

/* Message 8E */

resource rErrorString ($07FF008E) {
	"62/There isnÕt enough memory remaining to complete "
	"this operation.\0x0D"
	"Please close some windows and try again./^#1\0x00"
};

/* Message 8F */

resource rErrorString ($07FF008F) {
	"62/The item is locked and canÕt be renamed."
	"/^#1\0x00"
};

/* Message 90 */

resource rErrorString ($07FF0090) {
	"62|An I/O error has occurred while using the disk."
	"|^#1\0x00"
};

/* Message 91 */

resource rErrorString ($07FF0091) {
	"62/This disk seems to be damaged."
	"/^#1\0x00"
};

/* Message 92 */

resource rErrorString ($07FF0092) {
	"52/Not a ProDOS disk."
	"/^#6\0x00"
};

/* Message 93 */

resource rErrorString ($07FF0093) {
	"52/No disks are available."
	"/^#6\0x00"
};

/* Message 94 */

resource rErrorString ($07FF0094) {
	"66/Insert the disk:\0x0D"
	"*0./^#1\0x00"
};

/* Message 95 */
/* message 95 unused --DAL */

/* Message 96 */

resource rErrorString($07ff0096,preload,nospecialmemory,locked,fixed) {
	"74|GS/OS canÕt read this disk (in device *0).  Do you want to "
	"initialize it?|^Eject|Initialize\0x00"
};

/* Message 97 */
/* Was "GS/OS does not recognize the file system on this disk (in device *0). ..." */

resource rErrorString($07ff0097,preload,nospecialmemory,locked,fixed) {
	"74|Using the installed File System Translators, GS/OS does not "
	"recognize this disk "
	"(in device *0).  Do you want to initialize it?|^Eject|Initialize\0x00"
};

/* Message 98 */

resource rErrorString($07ff0098) {
	"32/Font size must be a number from 1 to 255./^#6\0x00"
};

/* Message 99 */

resource rErrorString($07FF0099,preload,nospecialmemory,locked,fixed) {
	"72|The disk could not be formatted."
	"\n\n"
	"800K disks canÕt be formatted as 1440K, and 1440K disks "
	"canÕt be formatted as 800K.|^#6\0x00"
};

/* Message $0201 */

resource rErrorString($07FF0201) {
	"52/Could not allocate needed memory ($0201)./^#6\0x00"
};

/* Message $FF88 for OS error $0088, Network Error */

resource rErrorString($07FFFF88) {
	"52/Impossible operation on network disk ($88)./^#6\0x00"
};

/* rAlertString($07ff1701) used by Standard File for JudgeName stuff */

resource rAlertString($07ff1701) {
	"93|Ò*0Ó is not a valid *1 name.  A similar "
	"valid name is Ò*2Ó.\0x0d\0x0d*3|*4|^Edit New Name\0x00"
};


/* rAlertStrings for HandleDiskInsert */

resource rAlertString($07FF0E01,preload,nospecialmemory,locked,fixed) {
       "72|Ò*0Ó (in device *1) has the same name as another disk, but canÕt be renamed.  "
       "You must eject it or initialize it.|^Eject|Initialize\0x00"
};

resource rAlertString($07FF0E02,preload,nospecialmemory,locked,fixed) {
       "72|Ò*0Ó (in device *1) has the same name as another disk, but canÕt be renamed.  "
       "The disk must be ejected.|^  Eject  \0x00"
};

resource rAlertString($07FF0E03,preload,nospecialmemory,locked,fixed) {
       "72|Ò*0Ó (in device *1) is damaged and cannot be used.  You must eject it or "
       " initialize it.|^Eject|Initialize\0x00"
};



// rWindColor(1) for line title bar
resource rWindColor (0x07ff0001,preload,nospecialmemory) {
	0b0000000000001111,			/* FrameColor */
	0b0000111100000000,			/* TitleColor */
	0b0000001000001111,			/* TBarColor */
	0b0000000000000000,			/* GrowColor */
	0b0000000011110000,			/* InfoColor */
};


/*----------------------------------------*/
/*------------International MENU----------*/
/*----------------------------------------*/
resource rMenu ($07ff1000) {
	3,				/* id of menu */
	RefIsResource*MenuTitleRefShift+RefIsResource*ItemRefShift+fAllowCache,	/* menu flags */
	$07ff1000,				/* id of title string */
	{ $07ff1001, $07ff1002 }; /* add new items here */     /* IDs of items */
};
resource rPString ($07ff1000) {
	"Translation: "
};

/*------------Menu Item 1 = NONE ----------*/
resource rMenuItem ($07ff1001) {
	$01,
	"","",
	0,
	RefIsResource*ItemTitleRefShift+fXOR,
	$07ff1001
};
resource rPString ($07ff1001) {
	"None"
};

/*------------Menu Item 2 = standard ----------*/
resource rMenuItem ($07ff1002)	{
	$02,
	"","",
	0,
	RefIsResource*ItemTitleRefShift+fXOR+rMIItalic,
	$07ff1002
};
resource rPString ($07ff1002) {
	"Standard"
};

/*-------------------------------------------*/
/*----------- Menu Item $10 --> $FE ---------*/
/*----------- use this for new ones! --------*/
/*-------------------------------------------*/

/* resource rMenuItem ($07ff10xx) {
	$xx,
	"","",
	0,
	RefIsResource*ItemTitleRefShift+fXOR,
	$07ff10xx
};
resource rPString ($07ff10xx) {
	"Standard"
};
*/


/* Stuff for the HandleDiskInsert rename/eject dialog */

// --- type $8003 defines
#define CTLLST_07FF0E01 $07FF0E01
#define CTLLST_07FF0E02 $07FF0E02

// --- type $8004 defines
#define CTLTMP_00000001 $07FF0E01
#define CTLTMP_00000002 $07FF0E02
#define CTLTMP_00000003 $07FF0E03
#define CTLTMP_00000004 $07FF0E04
#define CTLTMP_00000005 $07FF0E05
#define CTLTMP_00000006 $07FF0E06
#define CTLTMP_00000101 $07FF0E11
#define CTLTMP_00000102 $07FF0E12
#define CTLTMP_00000103 $07FF0E13
#define CTLTMP_00000104 $07FF0E14
#define CTLTMP_00000105 $07FF0E15
#define CTLTMP_00000106 $07FF0E16

// --- type $8006 defines
#define PSTR_00000002 $07FF0E02
#define PSTR_00000003 $07FF0E03

// --- type $800B defines
#define LETXTBOX_00000001 $07FF0E01
#define LETXTBOX_00000002 $07FF0E02

// --- type $800E defines
#define HandleDiskInsertWindow640 $07FF0E01
#define HandleDiskInsertWindow320 $07FF0E02

// --- Control List Definitions
resource rControlList (CTLLST_07FF0E01, preload,nospecialmemory,locked,fixed) {
       {
       CTLTMP_00000001,        // control 1
///       CTLTMP_00000002,        // control 2
       CTLTMP_00000003,        // control 3
       CTLTMP_00000004,        // control 4
       CTLTMP_00000005,        // control 5
       CTLTMP_00000006,        // control 6
       };
};

// --- Control Templates
resource rControlTemplate (CTLTMP_00000001, preload,nospecialmemory,locked,fixed) {
       $00000001,              // ID
       {  6, 92, 46,405},      // rect
       statTextControl {{
               $0003,          // flag (substitute, pascal strings)
               $1002,          // moreFlags
               $00000000,      // refCon
               LETXTBOX_00000001,     // textRef
               0,              // textSize
               $0000           // just
       }};
};

//resource rControlTemplate (CTLTMP_00000002, preload,nospecialmemory,locked,fixed) {
//       $00000002,              // ID
//       { 7, 16, 27, 72},      // rect
//       iconButtonControl {{
//               $000C,          // flag
//               $1020,          // moreFlags
//               $00000000,      // refCon
//               $07FF0005,      // iconRef (3.5" disk icon, 640 mode)
//               0,              // titleRef
//               0,              // colorTableRef
//               $0000           // displayMode
//       }};
//};

resource rControlTemplate (CTLTMP_00000003, preload,nospecialmemory,locked,fixed) {
       $00000003,              // ID
       { 51, 90, 64,384},      // rect
       editLineControl {{
               $0000,          // flag
               $7002,          // moreFlags
               $00000000,      // refCon
               $001F,          // maxSize
               0               // defaultRef
       }};
};

// Eject button
resource rControlTemplate (CTLTMP_00000004, preload,nospecialmemory,locked,fixed) {
       $00000004,              // ID
       { 76,182, 89,272},      // rect
       simpleButtonControl {{
               $0000,          // flag
               $3002,          // moreFlags
               $00000000,      // refCon
               PSTR_00000002,  // titleRef
               0,              // color table
               {"\0x1b", "\0x1b", 0, 0}
       }};
};

// Rename button
resource rControlTemplate (CTLTMP_00000005, preload,nospecialmemory,locked,fixed) {
       $00000005,              // ID
       { 76,296, 89,386},      // rect
       simpleButtonControl {{
               $0001,          // flag
               $3002,          // moreFlags
               $00000000,      // refCon
               PSTR_00000003,  // titleRef
               0,              // color table
               {"\0x0d", "\0x0d", 0, 0}
       }};
};

resource rControlTemplate (CTLTMP_00000006, preload,nospecialmemory,locked,fixed) {
       $00000006,              // ID
       { 53, 14, 63, 85},      // rect
       statTextControl {{
               $0004,          // flag
               $1002,          // moreFlags
               $00000000,      // refCon
               LETXTBOX_00000002,     // textRef
               0,              // textSize
               $0000           // just
       }};
};

// --- rPString Templates
resource rPString (PSTR_00000002, preload,nospecialmemory,locked,fixed) {
       "Eject"
};

resource rPString (PSTR_00000003, preload,nospecialmemory,locked,fixed) {
       "Rename"
};

// --- rTextForLETextBox2 Templates

resource rTextForLETextBox2 (LETXTBOX_00000001, preload,nospecialmemory,locked,fixed) {
       "There are two disks named Ò*0Ó.  You must rename or eject the one in device *1."
};

resource rTextForLETextBox2 (LETXTBOX_00000002, preload,nospecialmemory,locked,fixed) {
       "New name:"
};

// --- Window Templates

resource rWindParam1 (HandleDiskInsertWindow640, preload,nospecialmemory,locked,fixed) {
       $20A0,                  // plFrame (frame bits)
       NIL,                    // plTitle (no Title)
       $00000000,              // plRefCon
       {  0,  0,  0,  0},      // plZoomRect
       0,                      // plColorTable
       {$0000, $0000},         // plYOrigin, plXOrigin
       {$0000, $0000},         // plDataHeight, plDataWidth
       {$0000, $0000},         // plMaxHeight, plMaxWidth
       {$0000, $0000},         // plVerScroll, plHorScroll
       {$0000, $0000},         // plVerPage, plHorPage
       $00000000,              // plInfoText (info RefCon)
       $0000,                  // plInfoHeight
       { 57,114,152,526},   // plPosition
       infront,                // plPlane
       CTLLST_07FF0E01,        // plControlList
       $0809                   // plInDesc
};

resource rWindParam1 (HandleDiskInsertWindow320, preload,nospecialmemory,locked,fixed) {
       $20A0,                  // plFrame (frame bits)
       NIL,                    // plTitle (no Title)
       $00000000,              // plRefCon
       {  0,  0,  0,  0},      // plZoomRect
       0,                      // plColorTable
       {$0000, $0000},         // plYOrigin, plXOrigin
       {$0000, $0000},         // plDataHeight, plDataWidth
       {$0000, $0000},         // plMaxHeight, plMaxWidth
       {$0000, $0000},         // plVerScroll, plHorScroll
       {$0000, $0000},         // plVerPage, plHorPage
       $00000000,              // plInfoText (info RefCon)
       $0000,                  // plInfoHeight
       { 37, 10,172-15,310},      // plPosition
       infront,                // plPlane
       CTLLST_07FF0E02,        // plControlList
       $0809                   // plInDesc
};

resource rControlList (CTLLST_07FF0E02, preload,nospecialmemory,locked,fixed) {
       {
       CTLTMP_00000101,        // control 1
//       CTLTMP_00000102,        // control 2
       CTLTMP_00000103,        // control 3
       CTLTMP_00000104,        // control 4
       CTLTMP_00000105,        // control 5
       CTLTMP_00000106,        // control 6
       };
};

// --- Control Templates for 320 mode
resource rControlTemplate (CTLTMP_00000101, preload,nospecialmemory,locked,fixed) {
       $00000001,              // ID
       {  6, 56, 66,290},      // rect
       statTextControl {{
               $0003,          // flag (substitute, pascal strings)
               $1002,          // moreFlags
               $00000000,      // refCon
               LETXTBOX_00000001,     // textRef
               0,              // textSize
               $0000           // just
       }};
};

//resource rControlTemplate (CTLTMP_00000102, preload,nospecialmemory,locked,fixed) {
//       $00000002,              // ID
//       { 7, 16, 27, 44},      // rect
//       iconButtonControl {{
//               $000C,          // flag
//               $1020,          // moreFlags
//               $00000000,      // refCon
//               $07FF0005,      // iconRef (3.5" disk icon, 640 mode)
//               0,              // titleRef
//               0,              // colorTableRef
//               $0000           // displayMode
//       }};
//};

resource rControlTemplate (CTLTMP_00000103, preload,nospecialmemory,locked,fixed) {
       $00000003,              // ID
       { 71, 90, 84,290},      // rect
       editLineControl {{
               $0000,          // flag
               $7002,          // moreFlags
               $00000000,      // refCon
               $001F,          // maxSize
               0               // defaultRef
       }};
};

// Eject button
resource rControlTemplate (CTLTMP_00000104, preload,nospecialmemory,locked,fixed) {
       $00000004,              // ID
       { 96,82, 109,172},      // rect
       simpleButtonControl {{
               $0000,          // flag
               $3002,          // moreFlags
               $00000000,      // refCon
               PSTR_00000002,  // titleRef
               0,              // color table
               {"\0x1b", "\0x1b", 0, 0}
       }};
};

// Rename button
resource rControlTemplate (CTLTMP_00000105, preload,nospecialmemory,locked,fixed) {
       $00000005,              // ID
       { 96,196, 109,286},      // rect
       simpleButtonControl {{
               $0001,          // flag
               $3002,          // moreFlags
               $00000000,      // refCon
               PSTR_00000003,  // titleRef
               0,              // color table
               {"\0x0d", "\0x0d", 0, 0}
       }};
};

resource rControlTemplate (CTLTMP_00000106, preload,nospecialmemory,locked,fixed) {
       $00000006,              // ID
       { 73, 14, 83, 85},      // rect
       statTextControl {{
               $0004,          // flag
               $1002,          // moreFlags
               $00000000,      // refCon
               LETXTBOX_00000002,     // textRef "New Name"
               0,              // textSize
               $0000           // just
       }};
};


// --- The "X" icon for Xing out CDev icons & stuff

resource rIcon ($07FF0058, $8000) {
       $8000,                  // kind
       $0014,                  // height
       $001C,                  // width

       $"FFFFFFFFFFFFFFFFFFFFFFFFFFFF"
       $"FFFF44FFFFFFFFFFFFFFFF44FFFF"
       $"FFFFF44FFFFFFFFFFFFFF44FFFFF"
       $"FFFFFF44FFFFFFFFFFFF44FFFFFF"
       $"FFFFFFF44FFFFFFFFFF44FFFFFFF"
       $"FFFFFFFF44FFFFFFFF44FFFFFFFF"
       $"FFFFFFFFF44FFFFFF44FFFFFFFFF"
       $"FFFFFFFFFF44FFFF44FFFFFFFFFF"
       $"FFFFFFFFFFF44FF44FFFFFFFFFFF"
       $"FFFFFFFFFFFF4444FFFFFFFFFFFF"
       $"FFFFFFFFFFFFF44FFFFFFFFFFFFF"
       $"FFFFFFFFFFFF4444FFFFFFFFFFFF"
       $"FFFFFFFFFFF44FF44FFFFFFFFFFF"
       $"FFFFFFFFFF44FFFF44FFFFFFFFFF"
       $"FFFFFFFFF44FFFFFF44FFFFFFFFF"
       $"FFFFFFFF44FFFFFFFF44FFFFFFFF"
       $"FFFFFFF44FFFFFFFFFF44FFFFFFF"
       $"FFFFFF44FFFFFFFFFFFF44FFFFFF"
       $"FFFFF44FFFFFFFFFFFFFF44FFFFF"
       $"FFFF44FFFFFFFFFFFFFFFF44FFFF",

       $"0000000000000000000000000000"
       $"0000FF0000000000000000FF0000"
       $"00000FF00000000000000FF00000"
       $"000000FF000000000000FF000000"
       $"0000000FF0000000000FF0000000"
       $"00000000FF00000000FF00000000"
       $"000000000FF000000FF000000000"
       $"0000000000FF0000FF0000000000"
       $"00000000000FF00FF00000000000"
       $"000000000000FFFF000000000000"
       $"0000000000000FF0000000000000"
       $"000000000000FFFF000000000000"
       $"00000000000FF00FF00000000000"
       $"0000000000FF0000FF0000000000"
       $"000000000FF000000FF000000000"
       $"00000000FF00000000FF00000000"
       $"0000000FF0000000000FF0000000"
       $"000000FF000000000000FF000000"
       $"00000FF00000000000000FF00000"
       $"0000FF0000000000000000FF0000";
};
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/Sys.Resources/thermodial.aii b/IIGS.601.SRC/GSToolbox/Sys.Resources/thermodial.aii
new file mode 100644
index 0000000..6732be0
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/Sys.Resources/thermodial.aii
@@ -0,0 +1 @@
+****************************************************************
*
* File:	 ThermoDial.aii
*
* Thermometer Dial (a Custom Control)
*
* Date:	02/24/88 (created)
* Author:	Don Brady
*	(and Monte Benaresh, and Dave Lyons)
*
* Copyright Apple Computer, Inc. 1987-93
*
****************************************************************
*
* Modification History:
*
* 02/24/88  Created today
*
* 03/01/88  first release  (.01)
*
* 03/14/88  second release (.02)
*
* 09/14/89  Crunched & modified for ArchiverGS
*           by Monte Benaresh
*
* 09/15/89  Converted to an extended control to
*           allow the defProc to be referenced
*           as a resource, by Monte Benaresh
*
* 8-Oct-90  Dave Lyons
*
* Put into Sys.Resources as rCtlDefProc $07FF0002.
* Restored support for 320 mode.
* Needs color table support.
* Changed default mercury color from green (8) to red (4).
*
* 7-Apr-91  Dave Lyons
*
* Adding an optional color table parameter, parameter number
* 9 (reference by pointer, handle, or resource ID).
*
* pCount must be 8 or 9.  moreFlags bits 0-1 indiciate color
* table by pointer (00), handle (01), resource (10).  (Must
* be 00 if you have no color table.)
*
* Default color table:
*
*   DC.W $0000	;low nybble = outline color
*   dc.w $000F	;low nybble = interior color
*   dc.w $0000	;low nybble = foreground mercury color (undefined for solid)
*   dc.w $0004	;low nybble = background mercury color, foreground for solid,É
*	;Éhigh bit set = dotted pattern
*
****************************************************************
*
* Begin 6.0.1
*
* 24-Mar-93	Dave Lyons
*
* Make the newValue routine not draw anything if the control
* is invisible.  Bug found by Steve Stephenson.
*
****************************************************************

	include 'all.macros'


jump	PROC		;first bytes of this code image must be the entry point
	import ThermoDialProc

	brl ThermoDialProc

	ENDP


	DefineStack
ctrlPtr	long		;stack & DP offsets
colorPtr	long
retAddr	block 3
ctrlHandle	long
ctrlParam	long
ctrlMessage	word
retValue	long


paramSize	SET 10		;bytes used by parameters


CtlRec	RECORD  0		;record for the Thermodial control

ctlNext	ds.l  1
ctlOwner	ds.l  1
ctlRect	ds.w  4
ctlFlag	ds.b  1
ctlHilite	ds.b  1
ctlValue	ds.w  1
ctlProc	ds.l  1
ctlAction	ds.l  1
ctlData	ds.l  1
ctlRefCon	ds.l  1
ctlColor	ds.l  1
ctlReserved	ds.b  16
ctlID	ds.l  1
ctlMoreFlags	ds.w  1
ctlVersion	ds.w  1

ctlSize

ctlKey1	equ ctlReserved
ctlKey2	equ ctlKey1+1
ctlKeyMods	equ ctlKey2+1
ctlKeyModsCareBits	equ ctlKeyMods+2

ctlJust	equ ctlReserved

	ENDR


ctlTemp	RECORD 0		;record for Thermodial Control template

pCount	ds.w 1
ID	ds.l 1
rect	ds.b 8
procRef	ds.l 1
flag	ds.w 1
moreFlags	ds.w 1
refCon	ds.l 1
			;control-specific fields
value	ds.w 1		;determines position of mercury
data	ds.w 1		;determines scale
colorTable	ds.l 1

	ENDR


;numMessages	equ 13		;number of control messages+1
numMessages	equ 20		;number of control messages+1, for extended control

patternMask	equ $0FFC

*===============================================*
*  Data for custom control
*===============================================*
MyData	RECORD

	ENTRY Pixels:DATA
	ENTRY Length:DATA
	ENTRY SValue:DATA
	ENTRY Style:DATA
	ENTRY FillRect:DATA
	ENTRY RectY1:DATA
	ENTRY RectX1:DATA
	ENTRY RectY2:DATA
	ENTRY RectX2:DATA
	ENTRY BPattern:DATA
	ENTRY IPattern:DATA
	ENTRY Colors:DATA
	ENTRY ColorPen:DATA
	ENTRY ColorBack:DATA
	ENTRY ColorIFore:DATA
	ENTRY ColorIBack:DATA
	ENTRY OldPenState:DATA
	ENTRY NewPenState:DATA
	ENTRY PenWidth:DATA
	ENTRY PenPattern:DATA
	ENTRY MyColorTbl:DATA
	entry LocalColorTableCopy:DATA

IPattern	DS.B 32		;indicator pattern
BPattern	DS.B 32		;background (interior) pattern  

Pixels	DC.W 0		;number of pixels to draw
Length	DC.W 0		;length of rect
Style	DC.W 0		;0 = vertical, 1 = horizontal
SValue	DC.W 0		;scaled value

Colors
ColorPen	DC.W 0		;outline
ColorBack	DC.W 0		;interior
ColorIFore	DC.W 0		;indicator foreground
ColorIBack	DC.W 0		;indicator background (& solid)

OldPenState	DS.B 50		;space for PenState record

NewPenState	DC.W 0,0		;pen location
	DC.W 1		;pen height
PenWidth	DC.W 1		;pen width
	DC.W $0000		;pen mode
PenPattern	DC.W $0000,$0000,$0000,$0000	;pen pattern
	DC.W $0000,$0000,$0000,$0000
	DC.W $0000,$0000,$0000,$0000
	DC.W $0000,$0000,$0000,$0000
	DC.B $FF,$FF,$FF,$FF	;pen mask
	DC.B $FF,$FF,$FF,$FF

MyColorTbl		;default color table
	DC.W $0000	;low nybble = outline color
	dc.w $000F	;low nybble = interior color
	dc.w $0000	;low nybble = foreground mercury color (undefined for solid)
	dc.w $0004	;low nybble = background mercury color, foreground for solid,É
		;Éhigh bit set = dotted pattern

LocalColorTableCopy	ds.b 8	;copy of current control's color table

FillRect		;indicator boundary rect
RectY1	DC.W 0
RectX1	DC.W 0
RectY2	DC.W 0
RectX2	DC.W 0

	ENDR


*===============================================*
* Setup Data for Custom Control
* - Calculates Length
* - Scales indicator value (SValue)
* - Creates QD Patterns:
*	Pen (PenPattern)
*	Background (BPattern)
*	Indicator (IPattern)
*
* INPUT:	--- In Direct Page ---
*	ctrlParam   (Long)
*	ctrlHandle  (Long)
*
* OUTPUT:	--- In Direct Page ---
*	retValue   (Long)
*
*===============================================*
SetUp	PROC

	ldy #2		;dereference handle
	lda [ctrlHandle],y
	sta <ctrlPtr+2
	lda [ctrlHandle]
	sta <ctrlPtr

	ldy #CtlRec.ctlFlag		;get style flag
	lda [ctrlPtr],y
	and #$0001
	sta Style

	PushLong #0		;scale current value
	ldy #CtlRec.ctlValue
	lda [ctrlPtr],y
	ldy #CtlRec.ctlData
	cmp [ctrlPtr],y		;value < max ?
	bcc scale		;yes, use value
	lda [ctrlPtr],y		;no, use max
scale	pha
	PushWord #100
	_Multiply		;value * 100
	plx
	ply
	pha
	pha
	pha
	pha
	phy		;dividend
	phx
	PushWord #0		;divisor (high word)
	ldy #CtlRec.ctlData
	PushWord [ctrlPtr],y	;divisor (low word)
	_LongDivide		;(value * 100) / max
	PullWord SValue
	pla		;result high-word (ignore)
	pla		;remainder (ignore)
	pla

;	ldy #ctlColor		;get color table ptr
;	lda [ctrlPtr],y
;	sta colorPtr
;	iny
;	iny
;	lda [ctrlPtr],y
;	sta colorPtr+2
;	ora colorPtr
;	bne setColors

;;;	lda #^MyColorTbl		;use default table
;;;	sta colorPtr+2
;;;	lda #MyColorTbl
;;;	sta colorPtr


*** added 7-Apr-91 DAL
	jsr GetColorTablePtr
	sta colorPtr+2
	sty colorPtr

	ora colorPtr
	beq @useDefault

	ldy #6
@copyCT	lda [colorPtr],y
	sta LocalColorTableCopy,y
	dey
	dey
	bpl @copyCT

	lda #^LocalColorTableCopy
	sta colorPtr+2
	lda #LocalColorTableCopy
	sta colorPtr
	bra @continue

@useDefault	lda #^MyColorTbl
	sta colorPtr+2
	lda #MyColorTbl
	sta colorPtr
@continue
*** end of 7-Apr-91 DAL

	ldy #0
@loop	lda [colorPtr],y
	and #$000F
	pha
	asl a
	asl a
	asl a
	asl a
	ora 1,s
	sta 1,s
	xba
	ora 1,s
	sta Colors,y
	pla
	iny
	iny
	cpy #4*2
	bcc @loop

	ldy #6		;check use-pattern flag
	lda [colorPtr],y
	and #$8000
	bne setPattern
	lda ColorIBack		;for a solid pattern
	sta ColorIFore
setPattern			;create indicator pattern
	lda #patternMask
	and ColorIFore
	pha
	lda #patternMask
	eor #$FFFF
	and ColorIBack
	ora 1,s
	sta IPattern
	pla

	ldy #30		;create fill patterns
@loop	lda ColorPen
	sta PenPattern,y
	lda ColorBack
	sta BPattern,y
	dey
	dey
	bpl @loop

setRect			;calculate fill rect
	ldy #CtlRec.ctlRect
	lda [ctrlPtr],y		;Y1
	inc a
	sta RectY1
	iny
	iny
	lda [ctrlPtr],y		;X1
	inc a
	sta RectX1
	iny
	iny
	lda [ctrlPtr],y		;Y2
	dec a
	sta RectY2
	iny
	iny
	lda [ctrlPtr],y		;X2
	dec a
	sta RectX2

	lda #1
	sta PenWidth

	PushWord
	_GetMasterSCB		;check for 640 mode
	pla
	and #$0080
	beq pattern320
			;							*****
	inc RectX1		;640 mode has 2-pixel-wide lines
	dec RectX2

	inc PenWidth

pattern640	lda IPattern

	ldx #30		;crunched next section of code --Monte Benaresh 9/14/89
@loop
	xba
	sta IPattern,x
	dex
	dex
	beq done640

	xba
	sta IPattern,x
	dex
	dex
	bra @loop

pattern320	lda IPattern
	sta IPattern+2		;320 pattern (8x8)
	sta IPattern+8
	sta IPattern+10
	sta IPattern+16
	sta IPattern+18
	sta IPattern+24
	sta IPattern+26
	xba		;shift pattern by 2 pixels
	sta IPattern+4
	sta IPattern+6
	sta IPattern+12
	sta IPattern+14
	sta IPattern+20
	sta IPattern+22
	sta IPattern+28
	sta IPattern+30

done640
setLength			;calculate length
	lda Style
	asl a
	tay
	lda FillRect+4,y
	sec
	sbc FillRect,y
	sta Length
exit	rts

*********************************************************************************
*
* GetColorTablePtr
*
* Input:  ctrlPtr points to control record
*         moreFlags bits 0-1 = reference type (00=ptr, 01=handle, 10=resource)
* Output: AY = pointer to color table (NIL if there's a problem)
*
*********************************************************************************
GetColorTablePtr	ldy #ctlRec.ctlColor+2
	lda [ctrlPtr],y
	pha
	dey
	dey
	lda [ctrlPtr],y
	pha

	ldy #ctlRec.ctlMoreFlags
	lda [ctrlPtr],y
	and #3
	beq @isPointer

	dec a
	beq @isHandle

	ply
	pla
	pha
	pha	;space for result
	pea $800d	;rCtlColorTbl
	pha
	phy
	_LoadResource
	bcc @isHandle

	lda #0
	sta 3,s
	sta 1,s
	bra @isPointer	

@isHandle	phd
	tsc
	tcd
	ldy #2
	lda [3],y
	tax
	lda [3]
	sta 3
	stx 5
	pld

@isPointer	ply
	pla
	rts

	ENDP

*===============================================*
*        Draw Indicator Part
*
* INPUT:	none
*
* OUTPUT:	none
*
*===============================================*
DrawIndicator	PROC
	IMPORT CalcPixels

	jsr CalcPixels

	lda Style		;set pixel length
	bne hort
vert	lda RectY2
	sec
	sbc Pixels
	sta RectY1
	bra fill
hort	lda RectX1
	clc
	adc Pixels
	sta RectX2
fill	PushLong #FillRect
	PushLong #IPattern
	_FillRect
	rts

	ENDP

*===============================================*
*      Erase Part of Indicator
*
* INPUT:	none
*
* OUTPUT:	none
*
*===============================================*
EraseIndicator	PROC

	IMPORT CalcPixels

	jsr CalcPixels

	lda Style		;set pixel length
	bne hort
vert	lda RectY2
	sec
	sbc Pixels
	sta RectY2
	bra fill
hort	lda RectX1
	clc
	adc Pixels
	sta RectX1
fill	PushLong #FillRect
	PushLong #BPattern
	_FillRect
	rts

	ENDP

*===============================================*
*      Draw the Custom Control
*
* INPUT:	--- In Direct Page ---
*	ctrlParam   (Long)
*	ctrlHandle  (Long)
*
* OUTPUT:	--- In Direct Page ---
*	retValue   (Long)
*
*===============================================*
DrawControl	Proc

	jsr SetUp

	PushLong #0
	_GetPort
	PushLong [ctrlPtr],CtlRec.ctlOwner
	_SetPort

	PushLong #OldPenState	;save their settings
	_GetPenState
	PushLong #NewPenState	;use our settings
	_SetPenState

	lda <ctrlPtr		;get pointer to rect
	clc
	adc #CtlRec.ctlRect	;offset
	tax
	lda <ctrlPtr+2
	adc #0
	pha
	phx
	_FrameRect		;draw dial's frame

	PushLong #FillRect
	PushLong #BPattern
	_FillRect		;draw dial's interior

	jsr DrawIndicator

	PushLong #OldPenState	;restore settings
	_SetPenState
	_SetPort
	stz retValue
	stz retValue+2
	rts

	ENDP

*===============================================*
*        Process a new Value
*
* INPUT:	--- In Direct Page ---
*	ctrlParam   (Long)
*
* OUTPUT:	--- In Direct Page ---
*	retValue   (Long)
*
*===============================================*
DoNewValue	PROC

	jsr SetUp

*** added 24-Mar-93 DAL -- don't draw if we're invisible
	ldy #CtlRec.ctlFlag
	lda [<ctrlPtr],y
	and #$0080
	bne exit		;invisible!
*** end 24-Mar-93

	lda <ctrlParam		;new value
	cmp <ctrlParam+2		;previous value
	bcs grow
	jsr EraseIndicator
	bra exit
grow	jsr DrawIndicator
	stz <retValue
	stz <retValue+2
exit	rts

	ENDP

*===============================================*
*     Return Control Record Size
*
* INPUT:	none
*
* OUTPUT:	--- In Direct Page ---
*	retValue   (Long)
*
*===============================================*
RecordSize	PROC

	lda #CtlRec.ctlSize		;record size
	sta <retValue
	stz <retValue+2
	rts

	ENDP

*===============================================*
*     Initialize Control
*
* INPUT:	--- In Direct Page ---
*	ctrlParam   (Long)
*
* OUTPUT:	--- In Direct Page ---
*	retValue   (Long)
*
*===============================================*
InitControl	PROC

	ldy #2		;dereference handle
	lda [ctrlHandle],y
	sta <ctrlPtr+2
	lda [ctrlHandle]
	sta <ctrlPtr

	ldy #ctlTemp.value
	lda [ctrlParam],y		;get mercury value from template
	ldy #CtlRec.ctlValue
	sta [ctrlPtr],y		;stuff it into the record

	ldy #ctlTemp.data
	lda [ctrlParam],y		;get scale value from template
	ldy #CtlRec.ctlData
	sta [ctrlPtr],y		;stuff it into the record

*** added 7-Apr-91 DAL
	jsr GetColorFromTemplate	;return
	ldy #CtlRec.ctlColor
	sta [ctrlPtr],y
	iny
	iny
	txa
	sta [ctrlPtr],y
*** end of 7-Apr-91 DAL

	rts		;retValue is undefined

*
* GetColorFromTemplate -- return XA=NIL or value from template
*
GetColorFromTemplate
	lda [ctrlParam]
	cmp #9	;is the color table present?
	bcc @default
	ldy #CtlTemp.ColorTable+2
	lda [ctrlParam],y
	tax
	dey
	dey
	lda [ctrlParam],y
	rts

@default	lda #0
	tax
	rts

	ENDP

*===============================================*
*  The following Routines are not really used.
*  In most cases the "default" action is taken.
*  They are included for completeness.
*
* INPUT:	none
*
* OUTPUT:	--- In Direct Page ---
*	retValue (Long)	<-- 0
*
*===============================================*
Default	PROC

	ENTRY CalculateRect
	ENTRY TestControl
	;ENTRY InitControl
	ENTRY DisposeControl
	ENTRY PostControl
	ENTRY ThumbControl
	ENTRY DragControl
	ENTRY AutoTrk
	ENTRY SetParam
	ENTRY MoveControl

CalculateRect			;use entire control (default rect)
TestControl			;this control is always inactive
DisposeControl			;continue disposal (default)
PostControl			;not used
ThumbControl			;not used
DragControl			;use default dragging
AutoTrk			;not used
SetParam			;??? should this be used?
MoveControl			;no calculations needed
	stz <retValue
	stz <retValue+2
	rts

	ENDP

*===============================================*
*  Thermometer-Dial Custom Control
*   Control Definition Procedure
*
* INPUT:	--- On the Stack ---
*	longSpace  (Long)
*	ctrlMessage (Word)
*	ctrlParam   (Long)
*	ctrlHandle  (Long)
*
*
* OUTPUT:	--- On the Stack ---
*	retValue   (Long)
*
*===============================================*
	EXPORT ThermoDialProc
ThermoDialProc	PROC

	PushLong #0		;work space
	PushLong #0
	tsc
	phd
	phb
	phk
	plb
	tcd		;set DP to stack


	lda <ctrlMessage
	cmp #numMessages
	bcs exit
	asl a
	tax
	jsr (Operation,x)

exit	plb
	pld
	lda retAddr+1,s
	sta retAddr+paramSize+1,s
	lda retAddr,s
	sta retAddr+paramSize,s
	tsa		;clean up stack
	clc
	adc #paramSize+8
	tas
	rtl


Operation	DC.W DrawControl		;0
	DC.W CalculateRect		;1
	DC.W TestControl		;2
	DC.W InitControl		;3
	DC.W DisposeControl		;4
	DC.W PostControl		;5
	DC.W ThumbControl		;6
	DC.W DragControl		;7
	DC.W AutoTrk		;8
	DC.W DoNewValue		;9
	DC.W SetParam		;10
	DC.W MoveControl		;11
	DC.W RecordSize		;12
	 	;new extended control messages
	dc.w Default		;13 (ctlHandleEvent)
	dc.w Default		;14 (ctlChangeTarget)
	dc.w Default		;15 (ctlChangeBounds)
	dc.w Default		;16 (ctlWindChangeSize)
	dc.w Default		;17 (ctlHandleTab)
	dc.w Default		;18 (ctlNotifyMultiPart)
	dc.w Default		;19 (ctlWinStateChange)

	ENDP

*===============================================*
*        Calulate Pixels
*
* Pixels <--- (SValue * Length)/100
*
* INPUT:	none
*
* OUTPUT:	none
*
*===============================================*
CalcPixels	PROC

	PushLong #0
	PushWord SValue		;Note: 0 ² SValue ² 100
	PushWord Length		;      0 ² Length ² 640
	_Multiply		;SValue * Length
	pla		;result
	PushWord #0
	pha		;dividend
	PushWord #100		;divisor
	_UDivide		;(SValue * Length) / 100
	PullWord Pixels
	pla		;remainder (ignore)
	rts

	ENDP


	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/TEXT.TOOLS/text.tools.asm b/IIGS.601.SRC/GSToolbox/TEXT.TOOLS/text.tools.asm
new file mode 100644
index 0000000..a11b41a
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/TEXT.TOOLS/text.tools.asm
@@ -0,0 +1 @@
+	title 'Text Tools           GS ROM 3.0'
****************************************************************
*			   *
*	    Text Tools		   *
*			   *
****************************************************************


****************************************************************
*			   *
*	Copyright (C) 1985-1989	   *
*	All Rights Reserved		   *
*	Apple Computer, Inc.	   *
*			   *
****************************************************************



**********************************************************************
*
* Change history
*
* 21 March 88	Steven Glass
*
* Device error code was being returned in 8-bit mode rather
* than in 16 bit mode in two calls: TextCtrl and TextStat.
*
* 02 Aug 88	Steven Glass
*
* InitTextDev ignored errors from TTDispatch.   TTDsptch did not
* set the carry register and a-reg for non-error cases correctly.
*
* 15 Nov 88	Konstantin Othmer
*
* Added slot arbiter calls.  Now slot number is stored as number between
*  1-15 instead of 1-7.  The conversion is done is setdevice routines.
*
* 01 Feb 89	Harry Yee
*
* Changed the version number from $0200 to $8300 (3.0P)
*
* 4-Nov-91	Dave Lyons
*
* Make GetInputDevice, GetOutputDevice, GetErrorDevice return
* clean device types (no garbage in the high byte).  (Common
* patch in GetDev--stz Type.)
*
**********************************************************************

	include 'all.macros'
	include '::sys.equs.asm'
	include 'e16.memory'


KSW	equ $000038
CSW	equ $000036

ANDin	equ $E115AA
ORin	equ ANDin+1
ANDout	equ ORin+1
ORout	equ ANDout+1
ANDerr	equ ORout+1
ORerr	equ ANDerr+1
DevType	equ ORerr+1
DevPtr	equ DevType+3
InDevPtr	equ DevPtr
OutDevPt	equ InDevPtr+4
ErrDevPt	equ OutDevPt+4
ErrHook	equ ErrDevPt+4

;
; Slot Arbiter entry point
;
Slot_Arbiter	equ $E10208


;-----------------------------------------------------------
;
; Error Codes
;
IllegalDeviceError	equ $0C01



;-----------------------------------------------
;
;    Imported addresses
;
;-----------------------------------------------

	IMPORT EndCall0
	IMPORT EndCall10
	IMPORT EndCall2
	IMPORT EndCall4
	IMPORT EndCall6
	IMPORT ErrOut10
	IMPORT ErrOut2
	IMPORT ErrOut4
	IMPORT ErrOut8
	IMPORT FFEntry
	IMPORT FWentry
	IMPORT e1vectors
	IMPORT oEndCall0
	IMPORT oEndCall2
	IMPORT oEndCall4
	IMPORT oErrOut2
	IMPORT oErrOut4

;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

	ENTRY EWrBlk
	ENTRY EWrChar
	ENTRY EWrCstr
	ENTRY EWrLine
	ENTRY EWrStr
	ENTRY GetErrDev
	ENTRY GetErrGP
	ENTRY GetInDev
	ENTRY GetInGP
	ENTRY GetItIn
	ENTRY GetOutDev
	ENTRY GetOutGP
	ENTRY MakeDDCB
	ENTRY RdBlk
	ENTRY RdChar
	ENTRY RdLine
	ENTRY SendOut
	ENTRY SetErrDev
	ENTRY SetErrGP
	ENTRY SetInDev
	ENTRY SetInGP
	ENTRY SetOutDev
	ENTRY SetOutGP
	ENTRY TTDsptch
	ENTRY TTInit
	ENTRY TTStat
	ENTRY TextCallTable
	ENTRY TextCtrl
	ENTRY TextInit
	ENTRY TextRes
	ENTRY TextShut
	ENTRY TextSp1
	ENTRY TextSp2
	ENTRY TextStat
	ENTRY TextStrt
	ENTRY TextVer
	ENTRY WrAStr
	ENTRY WrBlk
	ENTRY WrChar
	ENTRY WrCstr
	ENTRY WrLinErr
	ENTRY WrLine
	ENTRY WrString
	ENTRY readit


****************************************************************
*
* Record of changes	to the Text Tool Set.....
*
* Revision     Date	    Description	               Who
*              3-06-86  Initial release	               RBM
*              3-26-86  Beta 1.0	               RBM
*              4-01-86  New Text Tools	               RBM
*
****************************************************************

	EXPORT TextCallTable
TextCallTable	PROC

Here		; 
	DC.L (TheEnd-Here)/4 ; num calls +1
	DC.L TTInit-1	; PowerUp Initialization
	DC.L TextStrt-1	; application startup
	DC.L TextShut-1	; application shutdown
	DC.L TextVer-1	; version number
	DC.L TextRes-1	; Misc. Tools Reset
	DC.L TTStat-1	; Reserved
	DC.L TextSp1-1	; Reserved
	DC.L TextSp2-1	; Reserved
	DC.L SetInGP-1	; Set input global parameters
	DC.L SetOutGP-1	; set output global	parameters
	DC.L SetErrGP-1	; set error output globals
	DC.L GetInGP-1	; get input global parameters
	DC.L GetOutGP-1	; get output global	parameters
	DC.L GetErrGP-1	; get error output globals
	DC.L SetInDev-1	; set input device
	DC.L SetOutDev-1	; set output device
	DC.L SetErrDev-1	; set error device
	DC.L GetInDev-1	; get input device
	DC.L GetOutDev-1	; get output device
	DC.L GetErrDev-1	; get error device
	DC.L TextInit-1	; initialize text device
	DC.L TextCtrl-1	; control text device
	DC.L TextStat-1	; return text device status
	DC.L WrChar-1	; write character to device
	DC.L EWrChar-1	; write character to error device
	DC.L WrLine-1	; write line to output device
	DC.L EWrLine-1	; write line to error device
	DC.L WrString-1	; write string to device
	DC.L EWrStr-1	; write string to error device
	DC.L WrBlk-1	; write text to output device
	DC.L EWrBlk-1	; write text to error device
	DC.L WrCstr-1	; write C-String to	output device
	DC.L EWrCstr-1	; write C-String to	error device
	DC.L RdChar-1	; read character from input device
	DC.L RdBlk-1	; read block from input device
	DC.L RdLine-1	; read line from input device

TheEnd		; 

	ENDP

;          copy  text.tools/glue
****************************************************************
*
* STANDARD TOOL CALLS................................
*
* BOOTINIT:    Sets	the default parameters as follows
*              Input, Output & Error Device type  = BASIC in slot #3
*              AND masks set to $FF
*              OR masks set to $80
*
* STARTUPINIT: Does	nothing
*
* SHUTDOWN:    Does	nothing
*
* VERSION:     Returns the current version number
*
* RESET:       Sets	the BASIC input & ouput hooks back
*              Sets	the default parameters as follows
*              Input & Output Device type = BASIC in slot #3
*              AND masks set to $FF
*              OR masks set to $80
*
* STATUS:      Always returns with ACTIVE
*
* SPARE1:      Does	nothing
*
* SPARE2:      Does	nothing
*
****************************************************************
	EXPORT TTInit
TTInit	PROC	; Tool Boot Initialization

	EXPORT TextRes
TextRes		;       
	phb
	pea ANDin/256
	plb
	plb
	ldx #$000E	; initialize or mask and loc.
	EXPORT TTPloop
TTPloop		; 
	stz |DevType,x
	dex
	dex
	bpl TTPloop
	lda #$80FF	; set global AND masks
	sta |ANDin
	sta |ANDout
	sta |ANDerr
	lda #0003
	sta |InDevPtr	; devices in slot 3
	sta |OutDevPt
	sta |ErrDevPt
	plb
	jmp oEndCall0


	EXPORT TextStrt
TextStrt		;       ; Tool Start Up
	EXPORT TextShut
TextShut		;       ; Tool Shut	Down
	EXPORT TextSp1
TextSp1		;       
	EXPORT TextSp2
TextSp2		;       
	jmp oEndCall0

	ENDP


	EXPORT TextVer
TextVer	PROC

RTL1	equ 1
RTL2	equ RTL1+3
Result	equ RTL2+3

Version	equ $0300	; current version number

	lda #version	; get MT version #
	sta Result,s	; pass to caller
	jmp oEndCall0

	ENDP


	EXPORT TTStat
TTStat	PROC

rtl1	equ 1
rtl2	equ rtl1+3
TheStatus	equ rtl2+3

	lda #$FFFF	; indicate tool active
	sta TheStatus,s
	jmp oEndCall0

	ENDP
;          copy  text.tools/globals
	EXPORT SetInGP
SetInGP	PROC
****************************************************************
*
* Set Input Global Parameters
*
*      Input   Word	    AND mask
*      Input   Word	    OR mask
* sp->
*
****************************************************************

OrigDir	equ 1
rtl1	equ OrigDir+2
rtl2	equ rtl1+3
maskor	equ rtl2+3
maskand	equ maskor+2

	ldx #0	; index input globals
	EXPORT SetG
SetG		;       
	phd	; save direct page
	tsc	; set stack to zp
	tcd
	phb
	pea ANDin/256
	plb
	plb
	sep #$20	; 8 bit 'm'
	longa off
	lda maskor	; set input OR mask
	sta |ORin,x
	lda maskand	; set input AND mask
	sta |ANDin,x
	plb
	rep #$20	; 16 bit 'm'
	longa on
	jmp EndCall4

	ENDP



	EXPORT SetOutGP
SetOutGP	PROC
****************************************************************
*
* Set Output Global	Parameters
*
*      Input   Word	    AND mask
*      Input   Word	    OR mask
* sp->
*
****************************************************************

	ldx #2	; index output globals
	bra SetG

	ENDP

	EXPORT SetErrGP
SetErrGP	PROC
****************************************************************
*
* Set Error Output Global Parameters
*
*      Input     Word     AND mask
*      Input     Word     OR mask
* sp->
*
****************************************************************

	ldx #4	; index error globals
	bra SetG

	ENDP


	EXPORT GetInGP
GetInGP	PROC
****************************************************************
*
* Get Input Global Parameters
*
*      Input     Word     Space for result
*      Input     Word     Space for result
* sp->
*
*      Output    Word     AND mask for input device
*      Output    Word     OR mask for input device
* sp->
*
****************************************************************

OrigDir	equ 1
rtl1	equ OrigDir+2
rtl2	equ rtl1+3
maskor	equ rtl2+3
maskand	equ maskor+2

	ldx #0	; index input globals
	EXPORT GetG
GetG		;       
	phd	; turn stack into zp
	tsc
	tcd
	phb
	pea ANDin/256
	plb
	plb
	sep #$20	; 8 bit 'm'
	longa off
	lda |ORin,x	; get OR mask
	sta maskor
	lda |ANDin,x	; get AND mask
	sta maskand
	rep #$20	; 16 bit 'm'
	longa on
	plb
	jmp EndCall0

	ENDP




	EXPORT GetOutGP
GetOutGP	PROC
****************************************************************
*
* Get Output Global	Parameters
*
*      Input     Word     Space for result
*      Input     Word     Space for result
* sp->
*
*      Output    Word     AND mask for output device
*      Output    Word     OR mask for output device
* sp->
*
****************************************************************

	ldx #2	; index output globals
	bra GetG

	ENDP

	EXPORT GetErrGP
GetErrGP	PROC
****************************************************************
*
* Get Error Output Device Global Parameters
*
*      Input     Word     Space for result
*      Input     Word     Space for result
* sp->
*
*      Output    Word     AND mask for error device
*      Output    Word     OR mask for error device
* sp->
*
****************************************************************

	ldx #4	; index error globals
	bra GetG

	ENDP



	EXPORT SetInDev
SetInDev	PROC
****************************************************************
*
* Set INPUT device type and location.
*
*      Input     Word       Device type
*      Input     LongWord   Device location (Addr or Slot)
* sp->
*
*
* Change History:
*
* Nov. 16 '88	Konstantin Othmer
*
* If it's a slot (and not a ram driver), we check
* whether or not the slot is internal or external.  If it's external,
* we add 8 to the slot number because this is how the arbiter numbers
* slots.
*
****************************************************************

OrigDB	equ 1
OrigDir	equ OrigDB+1
rtl1	equ OrigDir+2
rtl2	equ rtl1+3
Location	equ rtl2+3
Type	equ Location+4

	ldx #0	; this is the input	dev
	EXPORT SetDev
SetDev		; 
	phd	; turn stack into zp
	phb
	tsc
	tcd
	pea DevType/256	; point at parameters
	plb
	plb
	txa
	asl a
	asl a
	tay
	sep #$20	; 8 bit 'm'
	lda type	; set device type
	sta |DevType,x
	rep #$20	; 16 bit 'm'
	lda Location	; set location
	sta |DevPtr,y
	lda Location+2
	sta |DevPtr+2,y
;
; If it's a RAM based driver, we do nothing.
;  If it's a slot number, we leave numbers between 9 and 15 alone (hopefully user 
;   knows about arbiter slot numbering), but we convert numbers between 1 and 7 to
;  1-15 depending on whether or not the slot is currently internal or external.
;  If internal we leave alone.  We add 8 to external slots.
;
	lda type
	cmp #2
	beq DevPtrOK	;Ram based driver
	lda |DevPtr,y	;get slot number
	cmp #8	;is it an old slot number (7 or less)?
	bcs DevPtrOK	;branch if no
;
; Here we check to see if the slot is internal or external
;

	phy	;save index	
	pha	;save slot number
	lda #$8000	;get slot configuration in x
	jsl slot_arbiter	;
	txa	;bit encoded slot information to a
	plx	;get saved slot number
	ply	;restore index
	
	lsr a	;alignment
	
DevLoop	lsr a	;get relevent bit in carry
	dex
	bne DevLoop
	bcs DevPtrOK	;slot is internal and DevPtr is OK
;
;It's an external slot.  Add 8 to slot number and save in DevPtr
;
	lda |DevPtr,y	;slot number
	ora #$0008	;bit 4 indicates external
	sta |DevPtr,y
	
DevPtrOK
	plb
	jmp EndCall6



	EXPORT SetOutDev
SetOutDev		;       
****************************************************************
*
* Set OUTPUT device	type and location.
*
*      Input     Word       Device type
*      Input     LongWord   Device location (Addr or Slot)
* sp->
*
****************************************************************

	ldx #1	; this is the Output dev
	bra SetDev



	EXPORT SetErrDev
SetErrDev		;       
****************************************************************
*
* Set ERROR device type and location.
*
*      Input     Word       Device type
*      Input     LongWord   Device location (Addr or Slot)
* sp->
*
****************************************************************

	ldx #2	; this is the Error	dev
	bra SetDev




	EXPORT GetInDev
GetInDev		;       
****************************************************************
*
* Get INPUT device type and location.
*
*      Input      Word      Space for result
*      Input      LongWord  Space for result
* sp->
*
*      Output     Word      Device type
*      Output     LongWord  Device location (Addr or Slot)
* sp->
*
****************************************************************

	ldx #0	; this is the input	dev
	EXPORT GetDev
GetDev		; 
	phd	; turn stack into zp
	phb
	tsc
	tcd
*** 4-Nov-91 DAL -- zero the Type result parameter (high byte was garbage)
	stz Type
*** end 4-Nov-91 DAL
	pea DevType/256	; point at parameters
	plb
	plb
	txa
	asl a
	asl a
	tay
	sep #$20	; 8 bit 'm'
	lda |DevType,x	; get the device type
	sta Type
	rep #$20	; 16 bit 'm'
	lda |DevPtr,y	; get the device location
	sta Location
	lda |DevPtr+2,y
	sta Location+2
	lda Type
	cmp #2	;Ram based driver?
	beq GetDone	;not a slot - we're done
;
; It's a slot: convert it to number between 1 and 7 (8-15 is external)
;
	lda Location
	and #$07	;convert to 1-7
	sta Location

GetDone
	plb
	jmp EndCall0



	EXPORT GetOutDev
GetOutDev		;       
****************************************************************
*
* Get OUTPUT device	type and location.
*
*      Input      Word      Space for result
*      Input      LongWord  Space for result
* sp->
*
*      Output     Word      Device type
*      Output     LongWord  Device location (Addr or Slot)
* sp->
*
****************************************************************

	ldx #1	; this is the output dev
	bra GetDev



	EXPORT GetErrDev
GetErrDev		;       
****************************************************************
*
* Get ERROR device type and location.
*
*      Input      Word      Space for result
*      Input      LongWord  Space for result
* sp->
*
*      Output     Word      Device type
*      Output     LongWord  Device location (Addr or Slot)
* sp->
*
****************************************************************

	ldx #2	; this is the error	dev
	bra GetDev


	ENDP



TextInit	PROC
****************************************************************
*
* TEXT DEVICE INITIALIZATION
*
*      Input     Word     Device to initialize
* sp->	      0 = Input device
*	      1 = Output device
*	      2 = Error output device	  
*
* If the device is a basic device, the I/O hooks are set
* to the init entry	for the device being called.
*
* Modification History:
*
* 11 Sep 86    RBM	    Updated to handle save/restore of I/O
*	    hooks when initing an error device.
*
* 02 Aug 88    SEG      Look for error from TTDispatch
*
* 15 Oct 88    SEG      Add call to you've got to be kidding.
*
* 31 Oct 88    SEG      Trick or Treat.  Fix stack imbalance in 
*	    error code:  extra word was left on stack
*	    when input was out of range.
*
*
****************************************************************

;-----------------------------------------------------------
;
; Yet another horrible hack from the people who brought you...
;
; This is the only time we can be sure that the OS
; will call the ROM after the drivers are back in place and
; before the application runs.
;
; So we call YouveGotToBeKidding and hope for the best.
;
 IF RAMVERSION<>1 THEN
	import YouveGotToBeKidding
	jsl YouveGotToBeKidding
 ENDIF

;-----------------------------------------------------------


hookspace	equ 1
OrigDBR	equ hookspace+2
OrigDir	equ OrigDBR+1
rtl1	equ OrigDir+2
rtl2	equ rtl1+3
device	equ rtl2+3

	phd	; Save D
	phb	; save B
	pea $0000	; Push 0
	tsc	; turn stack into zp
	tcd
	
	lda Device
	cmp #3	;input, output, or error ?
	bcc DeviceOK

	ldx #IllegalDeviceError ; illegal device error
	pla	; pull off that zero
	plb	; restore b
	pld	; restore d
	jmp oErrOut2	; return the error


DeviceOK

	sep #$30 	; switch to 8 bit mode
	longa off
	longi off
	pea DevType/256	; point at device type
	plb
	plb
	tay	; index to get type 
	lda |DevType,y	; get device type
	bne NotBASIC	; if not basic, leave hooks
	tya	; point at device pointer
	asl a
	asl a
	tax
	rep #$20	; 16 bit 'm'
	longa on
	lda |DevPtr,x	; get slot # = $000n
;
; since slot arbiter slot numbers go from 1-15, we have to convert to 1-7
;
	and #7
;	
	xba	; $0n00
	ora #$C000	; build $Cn00
	cpy #0	; is it the input device?
	bne SetOutHk	; no
	sta >KSW	; set input hook
	bra HookSet


SetOutHk		; 
	cpy #2	; is this an error device?
	bne noterrdev	; no
	pha	; save new output hook
	lda >csw	; and save current output hook
	sta hookspace
	pla


noterrdev		; 
	sta >CSW	; set output hook


HookSet		; 
	sep #$20	; 8 bit 'm'
	longa off


NotBASIC		; 
	lda #0	; its an init call
	jsr MakeDDCB	; build the DDCB
	pha	; save the real DDCB
	pha
	and #%01111111	; init is always a standard device
	rep #$30	; 16 bit 'm' & 'x'
	longa on
	longi on
	pea $0000	; init character
	jsr TTDsptch	; dispatch to device

	tax	; put any error code into x-reg

	pla	; get status and ignore it

	pla	; get the real DDCB
	php	; save dispatch error flag
	and #$00C0	; Y = Error and not	basic
	cmp #$0080	; was it a basic error call?
	bne norestore	; no
	lda >csw	; get error device hook
	sta >ErrHook	; and save for error dispatches
	lda hookspace
	sta >csw	; restore basic output hook


norestore
	
	plp	; get dispatch error flag
	pla	; clean off hookspace
	plb
	pld
	jmp oErrOut2	; rely on x being correct!

	ENDP



	EXPORT TextCtrl
TextCtrl	PROC
****************************************************************
*
* TEXT DEVICE CONTROL
*
*      Input   Word	    Device to control
*      Input   Word	    Control code
* sp->
*
* Change history
*
* 21 March 88	Steven Glass
*
* Device error code was being returned in 8-bit mode rather
* than in 16 bit mode.
*
*
****************************************************************

OrigDB	equ 1
OrigDir	equ OrigDB+1
rtl1	equ OrigDir+2
rtl2	equ rtl1+3
CtrlCode	equ rtl2+3
Device	equ CtrlCode+2

	phd	; turn stack into zp
	phb
	tsc
	tcd
	sep #$30	; 8 bit 'm' and 'x'
	longa off
	longi off
	lda device	; get device type
	cmp #3	; is is a legal type?
	blt DevOK	; yes
	EXPORT TypeErr
TypeErr		; 
	rep #$30
	longa on
	longi on
	ldx #IllegalDeviceError	; else bad dev error
	plb
	pld
	EXPORT CtrlErr
CtrlErr		; 
	jmp oErrOut2


	longa off
	longi off
	EXPORT DevOK
DevOK		; 
	tay	; index to get type
	pea DevType/256
	plb
	plb
	lda |DevType,y	; error if its a BASIC device
	beq TypeErr
	lda #4	; this is a control	call
	jsr MakeDDCB	; build the DDCB
	rep #$30	; 16 bit 'm' and 'x'
	longa on
	longi on
	ldx CtrlCode	; get control code
	phx
	jsr TTDsptch	; dispatch to device
	plx	; get status
	plb
	pld
	bcs CtrlErr	; if error occured
	jmp oEndCall4

	ENDP




	EXPORT TextStat
TextStat	PROC
****************************************************************
*
* TEXT DEVICE STATUS
*
*      Input   Word	    Device to request status
*      Input   Word	    Request code
* sp->
*
*
* Change history
*
* 21 March 88	Steven Glass
*
* Device error code was being returned in 8-bit mode rather
* than in 16 bit mode.
*
****************************************************************

OrigDB	equ 1
OrigDir	equ OrigDB+1
rtl1	equ OrigDir+2
rtl2	equ rtl1+3
StatCode	equ rtl2+3
Device	equ StatCode+2

	phd	; turn stack into zp
	phb
	tsc
	tcd
	sep #$30	; 8 bit 'm' and 'x'
	longa off
	longi off
	lda device	; get device type
	cmp #3	; is it a legal device
	blt DevOK	; yes

	rep #$30	; added 3/21
	longa on	; added 3/21
	longi on	; added 3/21
	ldx #IllegalDeviceError	; bad dev error
	plb
	pld
StatErr		; 
	jmp oErrOut4


	longa off	; added 3/21
	longi off	; added 3/21
DevOK		; 
	tay	; index to get type
	lda #3	; this is a status call
	jsr MakeDDCB	; build the DDCB
	rep #$30	; 16 bit 'm' and 'x'
	longa on
	longi on
	ldx StatCode	; get the stat rqst	code
	phx
	jsr TTdsptch	; dispatch to device driver
	plx	; get status
	plb
	pld
	bcs StatErr
	jmp oEndCall4

	ENDP
;          copy  text.tools/write.stuff
	EXPORT WrChar
WrChar	PROC
****************************************************************
*
* WRITE CHARACTER:
*
* Input     Byte	 Null
* Input     Byte	 Character
*
****************************************************************
	longa on
	longi on

rtl1	equ 1
rtl2	equ rtl1+3
TheChar	equ rtl2+3

	clv	; set OUTPUT flag
	bvc WChar
	EXPORT EWrChar
EWrChar		;       
	sep #%01000000	; set INPUT flag
WChar		; 
	lda TheChar,s	; get character
	jsr SendOut	; and send to device

	jml oErrOut2

	ENDP

****************************************************************
*
* SendItOut
*
* Sends the char in	the A-reg out the device specified by the
* overflow flag after appropriate masking of the character.
*
* ENTRY:
*        V=0   Device is the output device
*        V=1   Device is the error output device
*        A-reg Character in low byte
*
* EXIT:
*        V=0   Device was the output device
*        V=1   Device was the error output device
*        C=0   No error resulted from dispatch
*        C=1   Error resulted from dispatch
*        X-reg Error code returned from	device
*        A-reg trashed
*
*
* Change History
*
* 09 Aug 88	Steven Glass
*
* Comments above said error code came back in a-reg.  It
* comes back in x-reg.
*
****************************************************************
	EXPORT SendOut
SendOut	PROC
	longa on
	longi on

	bvs ESend	; if its an error output
	and >ANDout	; mask character with globals
	ora >ORout
	ldy #1	; for output device	Y=1
	bra SendChar
	EXPORT ESend
ESend		; 
	and >ANDerr	; mask with globals
	ora >ORerr
	ldy #2	; for error device Y=2
	EXPORT SendChar
SendChar		; 
	pha	; put the data word	on the stack
	phy	; save type
	lda #2	; Write or Output call
	sep #$30	; 8 bit 'm' and 'x'
	jsr MakeDDCB	; build DDCB
	rep #$30	; 16 bit 'm' and 'x'
	ply	; restore type
	jsr TTdsptch	; call that thing
	sep #$20	; 8 bit 'm'
	longa off
	tya	; get back DDCB
	lsr a	; STD/ERR to bit 6
	and #%01000000	; only want device type
	clv
	php
	ora 1,s
	sta 1,s	; restore V=type
	plp
	rep #$20	; 16 bit 'm'
	longa on
	bcs FixError
	ldx #0
	bra CleanStack
FixError	txa
	ora #$0C00
	tax
CleanStack	pla	; clean up our mess
	rts	; all done

	ENDP


	EXPORT WrLine
WrLine	PROC
****************************************************************
*
* WRITE LINE
*
* Input     LongWord     Pointer
* This adds a CR/LF	to the end of the string
*
****************************************************************
	longa on
	longi on

	clv	; set OUTPUT flag
	bvc WLine
	EXPORT EWrLine
EWrLine		;       
	sep #%01000000	; set ERROR flag
	EXPORT WLine
WLine		; 
	jsr WrAStr	; send text string
	bcs WrLinErr	; if error occured
	lda #13	; now send a CR
	jsr SendOut
	bcs WrLinErr	; if error occured
	tya	; get DDCB
	and #%01000000	; want driver type
	beq NoLF	; no LF if BASIC device
	lda #10	; no send a LF
	jsr SendOut

	EXPORT WrLinErr
WrLinErr		;       
	EXPORT NoLF
NoLF		; 
	jml oErrOut4

	ENDP




	EXPORT WrString
WrString	PROC
****************************************************************
*
* WRITE STRING
*
* Input     LongWord     Pointer
*
****************************************************************
	longa on
	longi on

	clv	; set OUTPUT flag
	bvc WStr
	EXPORT EWrStr
EWrStr		;       
	sep #%01000000	; set error flag
	EXPORT WStr
WStr		; 
	jsr WrAStr	; send ASCII string
	jmp WrLinErr	; if error occured


	ENDP

	EXPORT WrAStr
WrAStr	PROC
****************************************************************
*
* WrAString
*
* Internal routine for use by WrLine and WrString.
*
****************************************************************
	longa on
	longi on

OrigDir	equ 1
count	equ OrigDir+2
RTSadr	equ count+2
rtl1	equ RTSadr+2
rtl2	equ rtl1+3
TextPtr	equ rtl2+3

	pha	; put extra word on	stack for count
	phd
	tsc
	tcd
	lda [TextPtr]	; get count byte
	and #$00FF	; limit to 256
	inc a
	sta Count
	ldy #1	; index past count byte
	EXPORT textloop
textloop		; 
	cpy Count	; done ?
	beq AllDone	; yes
	LDA [TextPtr],y	; get ascii data
	phy	; save string index
	jsr SendOut	; send character
	ply	; restore string index
	iny	; and point at next	character
	bcs AStrErr	; if error occured
	bra TextLoop	; else go send next	character

	EXPORT AllDone
AllDone		; 
	clc	; clear error flag
	EXPORT AStrErr
AStrErr		; 
	pld	; restore direct
	pla	; clean off word
	rts

	ENDP



	EXPORT WrBlk
WrBlk	PROC
****************************************************************
*
* WRITE BLOCK:
*
* Input     LongWord     Pointer
* Input     Word	     Offset
* Input     Word	     Count
*
****************************************************************
	longa on
	longi on

OrigDir	equ 1
RTL1	equ OrigDir+2
RTL2	equ RTL1+3
Count	equ RTL2+3
Offset	equ Count+2
TextPtr	equ Offset+2

Counter	equ Offset

	clv	; set OUTPUT flag
	bvc WBlk
	EXPORT EWrBlk
EWrBlk		;       
	sep #%01000000	; set ERROR flag
	EXPORT WBlk
WBlk		; 
	phd	; turn stack into zp
	tsc
	tcd
	php	; save entry flag
	clc	; ddr = addr + offset
	lda TextPtr
	adc Offset
	sta TextPtr
	lda TextPtr+2	; Fixed 4 Sep 86 to	work if crosses
	adc #0	; bank boundry. RBM
	sta TextPtr+2
	plp	; restore entry flag
	stz Counter	; init # chars sent
textloop	ldy Counter	; get # chars sent
	cpy Count	; done?
	beq AllDone	; yes
	LDA [TextPtr],y	; else get character
	jsr SendOut	; and send to device
	bcs TextErr	; exit if device error
	inc Counter	; point at next character
	bra TextLoop

AllDone		; 
TextErr		; 
	jml ErrOut8

	ENDP




	EXPORT WrCstr
WrCstr	PROC
****************************************************************
*
* WRITE C STRING
*
* Input     LongWord     Pointer
*
*
* Change History
*
* 09 Aug 88	Steven Glass
*
* When null string was passed, an error code equal to the
* call number was accidently returned.
*
*
****************************************************************
	longa on
	longi on

OrigDir	equ 1
RTL1	equ OrigDir+2
RTL2	equ RTL1+3
TextPtr	equ RTL2+3

	clv	; set OUTPUT flag
	bvc WCStr
	EXPORT EWrCStr
EWrCStr		;       
	sep #%01000000	; set ERROR flag
	EXPORT WCStr
WCStr		; 
	phd	; turn stack into zp
	tsc
	tcd

	ldx #0	; init error code for null string case (SEG 09 Aug 88)

	ldy #0	; init string pointer
TextLoop		; 
	lda [TextPtr],y	; get C-String ASCII
	and #$00FF	; low byte only
	beq AllDone	; $00 is string terminator
	phy	; save string pointer
	jsr SendOut	; send to Pascal device
	ply	; restore string pointer
	iny	; and point at next	char
	bcs CStrErr	; if error occured,	exit
	bra TextLoop	; else send next character

AllDone		; 
CStrErr		; 
	jml ErrOut4

	ENDP
;          copy  text.tools/read.stuff
	EXPORT RdChar
RdChar	PROC
****************************************************************
*
* READ CHARACTER:
*
* Input     Word	 Space for result
* Input     Word	 Echo flag (1=echo)
* Output    Word	 Character
*
****************************************************************
	longa on
	longi on

OrigDir	equ 1
rtl1	equ OrigDir+2
rtl2	equ rtl1+3
echo	equ rtl2+3
TheChar	equ Echo+2

	phd	; turn stack into zp
	tsc
	tcd
	jsr GetItIn	; Read character
	bcs RCharErr	; if error occured
	and >ANDin	; mask character with globals
	ora >ORin
	sta TheChar	; and store character to stack
	ldy echo	; is echo active ?
	beq NoEcho
	clv	; to the output device
	pha	; character to stack
	_WriteChar	; and send it out
NoEcho		; 
	jmp EndCall2

	EXPORT RCharErr
RCharErr		; 
	jmp ErrOut2

	ENDP




	EXPORT GetItIn
GetItIn	PROC
****************************************************************
*
* GetItIn
*
****************************************************************
	longa on
	longi on

	ldy #0	; for input device Y=0
	pea $0000	; put room on the stack
	sep #$30	; 8 bit 'm'
	longa off
	lda #1	; this is a read call
	jsr MakeDDCB	; build DDCB byte
	rep #$30	; 16 bit 'm'
	longa on
	jsr TTdsptch	; call the driver
	sep #$30	; 8 bit 'm' and 'x'
	longa off
	longi off
	tya	; get back DDCB
	asl a
	and #%01000000	; only want driver type
	clv
	php
	ora 1,s
	sta 1,s
	plp
	rep #$30	; 16 bit 'm' and 'x'
	longa on
	longi on
	pla	; get result
	rts	; all done

	ENDP


	EXPORT RdBlk
RdBlk	PROC
****************************************************************
*
* READ BLOCK:
*
* Input     LongWord Pointer
* Input     Word	 Offset
* Input     Word	 Count (Max.)
* Input     Word	 Echo flag (1=echo)
*
****************************************************************
	longa on
	longi on

OrigDir	equ 1
Rtl1	equ OrigDir+2
Rtl2	equ Rtl1+3
echo	equ Rtl2+3
count	equ echo+2
offset	equ count+2
RXcount	equ offset
pointer	equ offset+2

	phd	; save direct page
	tsc	; and turn stack into zp
	tcd
	php	; save type
	clc	; add offset to pointer
	lda offset
	adc pointer
	sta pointer
	lda #0	; (32 bit add)
	adc pointer+2
	sta pointer+2
	plp	; restore type
	stz RXcount	; clear count received
	EXPORT RdBlk0
RdBlk0		; 
	pha	; room for result
	lda echo	; pass echo flag to	rdchar
	pha
	jsl readit	; read character
	bcs RdBlkErr	; if error occured
	phb	; and data bank
	clc
	inc RXcount	; incr received count
	ldx pointer	; move pointer to X	reg
	sep #$20	; 8 bit 'm'
	longa off
	lda pointer+2	; get bank
	pha	; set pointer bank
	plb
	lda 2,s	; get character
	sta |0,x	; write to buffer
	rep #$20	; 16 bit 'm'
	longa on
	plb	; restore bank & direct page
	pla	; remove character
	inc Pointer	; point at next buffer location
	bne NoPtrOv	; if no buffer overflow
	inc Pointer+2
	EXPORT NoPtrOv
NoPtrOv		; 
	lda RxCount	; rcvd count = maximum ?
	cmp count	; count = maximum ?
	bne RdBlk0	; no, get more

	EXPORT RdBlk2
RdBlk2		; 
	jmp EndCall10	; all done

	EXPORT RdBlkErr
RdBlkErr		; 
	pla	; clean up stack
	jmp ErrOut10	; oops!!!

	EXPORT ReadIt
ReadIt		;       
	jsl RdChar	; go read character
	rtl

	ENDP


	EXPORT RdLine
RdLine	PROC
****************************************************************
*
* READ LINE:
*
* Input     Word	 Space for result
* Input     LongWord Pointer
* Input     Word	 Count (max.)
* Input     Word	 EOL character
* Input     Word	 Echo flag (1=echo)
* Output    Word	 Count (rcvd)
*
****************************************************************

OrigDir	equ 1
rtl1	equ OrigDir+2
rtl2	equ rtl1+3
Echo	equ rtl2+3
EOLchar	equ echo+2
count	equ EOLchar+2
pointer	equ count+2
rxcount	equ pointer+4

	phd	; save direct page
	tsc	; and turn stack into zp
	tcd
	stz RxCount	; initialize recv count

	EXPORT LinLoop
LinLoop		; 
	pha	; room for character
	lda echo	; pass echo flag to	rdchar
	pha
	jsl ReadIt	; read character
	pla	; get character
	bcs RlinErr	; if error occured
	sep #$20	; 8 bit 'm'
	cmp EOLchar	; are we done yet?
	rep #$20	; 16 bit 'm'
	beq done	; yes
	xba	; save character
	ldx pointer	; X=addr
	sep #$20	; 8 bit m
	longa off
	phb	; save data bank
	lda pointer+2	; get pointer bank
	pha
	plb
	xba	; get char
	sta |0,x	; send character to	buffer
	plb	; restore data bank
	rep #$20	; 16 bit m
	longa on
	inc pointer	; point at next
	bne NoPtrOV	; if now overflow
	inc pointer+2
NoPtrOV		; 
	inc RxCount	; increment bytes recvd
	beq RLinErr	; if overflow, then	error
	lda rxcount
	cmp count
	bne LinLoop
Done		; 
	jmp EndCall10	; else all done

	EXPORT RLinErr
RLinErr		; 
	jmp ErrOut10	; oops

	ENDP




TTDsptch	PROC
****************************************************************
*
* This routine is called to dispatch to	both BASIC & PASCAL1.1
* device drivers.  Input to this routine is as follows.....
*
* ENTRY:
*        16 bit 'm'	and 'x' native mode
*
*      Input   Word	    Character (in low byte)
* sp->
*      A Register =	DEVICE DISPATCHER CONTROL BYTE  
*      Y Register =	Driver type   0 = Input device
*	              1 = Output device
*	              2 = Error device
*
* This routine returns with the CARRY bit set, and an error
* code on the stack	if an error resulted from a dispatch to	the
* BASIC, PASCAL1.1 or RAM BASED device driver.  If the call	was
* to get input from	the device, the data will be returned on the
* stack.  If the call was to send output to the device, the
* data returned on the stack is unspecified.
*
* EXIT:
*        16 bit 'm'	and 'x' native mode
*
*      Output  Word	    Returned data (in low byte)
* sp->
*      A Register =	Error code
*      Carry = set for error, clear otherwise.  
*
* Low byte of Y register holds the DDCB	from the dispatch
*
* The DEVICE DISPATCHER CONTROL BYTE is	defined as follows:
*
*  ___ ___ ___ ___ ___ ___ ___ ___
* |   |   |   |   |	  |   |   |   |
* | 7 | 6 | 5 | 4 |	3 | 2 | 1 | 0 |
* |___|___|___|___|___|___|___|___|
*   |   |	|   |___|___|______	Call Type
*   |   |	|	0 = Initialization
*   |   |	|	1 = Read
*   |   |	|	2 = Write
*   |   |	|	3 = Status
*   |   |	|	4 = Control
*   |   |	|
*   |   |___________|__________________	Driver Type
*   |		0 = BASIC
*   |		1 = PASCAL
*   |
*   |__________________________________	Driver SubType
*		0 = STANDARD
*		1 = ERROR
*
*
* Change History
*
* 02 Aug 88	Steven Glass
*
* This routine trys to return an error in the a-reg, if the
* an initcall is being made to a device that is not there.
*
* On other calls the a-reg was not set and carry was undefined.
* Now, the a-reg will be zero if no error occurs and the 
* carry will be correct.
*
* 16 Nov 88	Konstantin Othmer
*
* Added support for slot arbiter by switching in proper slot.  I needed 
* a word to store the current slot configuration.  I get the space by
* moving the return address and TheChar down one word and then sticking
* the configuration where TheChar used to be.  The code at the very beginning
* and very end of the routine handle the stack manipulation.
*
****************************************************************

BInit	equ $C000	; BASIC init entry
BInput	equ $FD0C	; BASIC input via rdkey entry
BOutput	equ $FDED	; BASIC output via cout
PInit	equ $C00D	; PASCAL init offset
PRead	equ $C00E	; PASCAL read offset
PWrite	equ $C00F	; PASCAL write offset
PStatus	equ $C010	; PASCAL status offset
POption	equ $C011	; PASCAL option flag
PControl	equ $C012	; PASCAL control offset

SaveHook	equ 1
OrigStat	equ SaveHook+2
DDCB	equ OrigStat+1
OrigDir	equ DDCB+1
OrigDB	equ OrigDir+2
RTSaddr	equ OrigDB+1
TheChar	equ RTSaddr+2

	pha	;make room for slot config on stack
	tax	;save DDCB
	lda 3,s	;return address
	sta 1,s
	lda 5,s	;TheChar
	sta 3,s
;
;now 5,s is empty and can be used to save slot configuration
;
	phx	;save DDCB (was in a)
	phy	;save driver type

;
; Here we request the proper slot and save old configuration
; on the stack (at 5,s).
;
	
	tya	; point at device pointer
	and #$3
	
*** INPUT is messed up - requesting slot 3 for input?? ****

	asl a
	asl a
	tax
	lda |DevPtr,x	;get slot arbiter slot number (1-15)
	and #$000f
	jsl slot_arbiter	;set our slot configuration
	txa	;old slot configuration to a
	
	ply
	plx	;get DDCB back 
	
	sta 5,s	;save old slot configuration under 
		;return address and TheChar
	txa	;put DDCB back in a
;
; End of slot_arbiter stuff
;	
	phb	; save dbr and d-reg
	phd


	sep #$20	; 8 bit 'm'
	longa off


;-----------------------------------------------------------
;
; Set the data banke to bank E1 and see what kind of device
; it is
;

	pha	; save DDCB
	pea DevPtr/256	; point at device type
	plb
	plb
	lda |DevType,y	; get device type
	cmp #2	; is it a ram based	driver ?
	bne NotRB	; no

;-----------------------------------------------------------
;
; Its a RAM driver.
;

	sep #$10	; 8 bit 'x'
	longi off
	tya	; point at device pointer
	asl a
	asl a
	tax
	rep #$10	; 16 bit 'x'
	longi on
	lda 1,s	; get DDCB
	pha	; need its image
	and #$07	; and make entry offset
	sta 1,s
	asl a
	clc
	adc 1,s
	sta 1,s	; save entry offset
	rep #$20	; 16 bit 'm'
	longa on
	and #$00FF	; offset is 16 bits	wide now
	clc
	adc |DevPtr,x	; calculate entry point
	tay
	lda #0
	adc |DevPtr+2,x
	tax
	phk	; set dispatch return addr
	pea RBret-1
	sep #$20	; 8 bit 'm'
	txa	; then set dispatch	address
	pha
	phy
	rep #$20	; 16 bit 'm'
	sec
	lda 1,s	; really need addr-1
	sbc #1
	sta 1,s
	sep #$20	; 8 bit 'm'
	longa off
	lda 3,s
	sbc #0
	sta 3,s
	rep #$20	; 16 bit 'm'
	longa on
	lda 14,s	; get character for	driver
	
	rtl	; dispatch to Ram driver

RBret		; 
	sta 8,s	; save the returned	character
	sep #$20	; 8 bit 'm'
	pla
	pla	; clean off DDCB
	tay	; DDCB must be in Y	on return
	rep #$20	; 16 bit 'm'

	brl NoErrorExit


;-----------------------------------------------------------
;
; Its not a RAM driver, so its a BASIC or Pascal device
;


NotRB		; 
	longa off	; were still in 8 bit 'm'
	lda >StateReg	; save away state register
	pha
	lda #%00001000	; put in the ROM
	sta >StateReg
	pea $0000	; space for hooks
	tsc	; turn stack into zp
	tcd
	lda #0
	xba	; need B=$00
	tya	; point at driver pointer
	asl a
	asl a
	tay
	lda DDCB	; get call type
	and #$0F
	asl a
	tax	; point into dispatch table
	bit DDCB	; V = Driver type
	lda DDCB	; Z=1 if BASIC input call
	dec a
	rep #$30	; 16 bit 'm' & 'x'
	longa on
	longi on
	bne NotBIn	; if not basic input
	lda #BInput	; else set RDKEY
	bra NoOffset


NotBIn		; 
	sep #$20	; 8 bit 'm'
	dec a
	rep #$20	; 16 bit 'm'
	bne NotBOut	; if not basic output

outputb		; 
	lda #BOutput	; else set COUT
	bra NoOffset

NotBOut		; 
	sep #$20	; is it a basic error output?
	longa off
	and #$0F
	rep #$20
	longa on
	beq outputb	; yes
	lda |DevPtr,y	; get driver pointer (slot)
;
; Convert to regular slot number (1-7).  Slot arbiter numbers go 1-15
;
	and #$07
	xba	; in high byte
	ora #$C000	; make $Cn00
	sep #$20	; 8 bit 'm'
	phk
	plb
	ora |DTbl,x	; Addr = Root Addr + Slot
	bvc NoOffset	; no offset if BASIC device
	tax	; else point at offset byte
	lda >0,x	; and get offset

NoOffset		; 
	rep #$20	; 16 bit 'm'
	longa on
	pea TTDret-1	; return address
	dec a	; need dispatch address-1
	pha
	inc a
	xba	; need $Cn in X register
	tax
	asl a	; need $n0 in Y register
	asl a
	asl a
	asl a
	tay
	lda 1,s	; get back dispatch	address
	inc a
	and #$FF00	; make it $Cn00
	phx	; save dispatch X &	Y
	phy
	tax
	bvc ChkBasic	; don't check PASCAL ID if BASIC


CkPascal		; 
	sep #$20	; 8 bit 'm'
	lda >5,x	; get PASCAL ID bytes
	xba
	lda >7,x
	rep #$20	; 16 bit 'm'
	longa on
	cmp #$3818	; is signature OK?
	beq DevOK	; yes


BadDev		; 
	rep #$30	; 16 bit 'm' & 'x'
	longa on
	longi on

	pla	; clean off X
	pla	; clean off Y
	pla	; clean off dispatch addr
	pla	; clean off TTRET-1
	pla	; clean off HOOK space
	sep #$30	; 8 bit 'm' & 'x'
	longa off
	longi off
	pla	; restore state register
	sta >StateReg
	pla	; clean off DDCB

	rep #$30	; 16 bit 'm' & 'x'
	longa on
	longi on

	lda #IllegalDeviceError	; illegal device error
	brl ErrorExit



ChkBasic		; 
	sep #$20	; 8 bit 'm'
	longa off
	lda DDCB	; is it a BASIC read call?
	and #$0F
	dec a
	beq DevOk	; yes
	dec a	; is it a BASIC write call?
	beq DevOk	; yes
	ldy #10
	lda >0,x	; read it once
	beq BadDev	; cant be a BRK


CKBloop		; 
	cmp >0,x	; read rom
	bne BadDev	; if not same, then	no device
	dey
	bpl CKBloop	; check a bunch of times
DevOk		; 
	sep #$20	; 8 bit 'm'
	longa off
	ply	; restore dispatch X and Y
	plx
	bit DDCB	; get driver subtype
	rep #$20	; 16 bit 'm'
	longa on
	bpl NotError	; if not an error driver
	lda >CSW	; Save output hook
	sta SaveHook
	lda >ErrHook	; and set the error	hook
	sta >CSW


NotError
		; 
	lda TheChar	; get character to send

	IF RAMVERSION=1 THEN
	pha
	pha
	pha
	pha
	pha
	phx
	phy
	lda  15,s
	inc a
	pha
	_FWEntry
	ply
	plx
	pla
	plp
	plp
	sta  1,s
	pla	;pull off the initial entry point
	rts
	ELSE

	brl FWentry	; its time to dispatch

	ENDIF

TTDret		 
	sta TheChar	; save return info
	php
	sep #$20	; 8 bit 'm'
	longa off
	lda DDCB	; get dispatch type
	cmp #%01001011	; was it a PASCAL status
	beq NotBRet	; if PASCAL status save C
	plp	; else clear carry
	clc
	php

NotBRet		; 
	sep #$20	; 8 bit 'm'
	bit DDCB	; was it an error call?
	rep #$20	; 16 bit 'm'
	longa on
	bpl NotErr	; if not an error driver
	lda >CSW	; save error hook
	sta >ErrHook
	lda SaveHook	; restore output hook
	sta >CSW

NotErr		; 
	plp	; restore return info
	pla	; clean off hook space
	sep #$20	; 8 bit 'm'
	longa off
	pla	; restore state reg
	sta >StateReg
	pla	; clean off DDCB
	tay	; and save in low Y
	rep #$30	; 16 bit 'm' & 'x'
	longa on
	longi on

NoErrorExit	lda #0
ErrorExit
	cmp #1
	pld
	plb
;
; return slots to original configuration
;
	tax	;save error code
	lda 5,s	;get original slot configuration
	phx	;error code to stack
	php	
	tax
	phy
	
; 
; Restore old slot configuration
;
	lda #$0300	;restore to configuration in x reg
	jsl slot_arbiter

	ply
	plp
	plx	;error code
; Need to fix stack
	lda 3,s
	sta 5,s	;put TheChar back where it was
	lda 1,s
	sta 3,s	;put return address back
	pla	;get empty space off
	txa	;error code is returned in a reg.

	sta $FF0010
	
	rts


DTbl		; 
	DC.W BInit	; BASIC init entry
	DC.W BInput	; BASIC input entry
	DC.W BOutput	; BASIC output entry
	DC.W 0
	DC.W 0
	DC.W 0
	DC.W 0
	DC.W 0
	DC.W PInit	; PASCAL init offset
	DC.W PRead	; PASCAL read offset
	DC.W PWrite	; PASCAL write offset
	DC.W PStatus	; PASCAL status offset
	DC.W PControl	; PASCAL control offset
	DC.W 0
	DC.W 0
	DC.W 0

	ENDP



	EXPORT MakeDDCB
MakeDDCB	PROC
****************************************************************
*
* This routine is to be called in native mode with 8 bit
* 'm' and 'x'.  On entry, the accumulator should contain
* the CALL TYPE, and the Y register should contain the
* pointer to the DEVTYPE table entry for the device being
* called.  The ouput contains the DDCB in the accumulator.
*
* Y=$0000...Device is the input device
* Y=$0001...Device is the standard output device
* Y=$0002...Device is the error output device
*
* Device types are as follows:
*        $00 = BASIC
*        $01 = PASCAL
*        $02 = Ram based driver
*
****************************************************************
	longa off
	longi off
	phb
	pea DevType/256	; point at devtype table
	plb
	plb
	pha	; save call type
	lda |DevType,y	; get device type
	beq GotDDCB	; if its basic
	dec a
	bne GotDDCB	; if its RAM based
	pla	; else set pascal bit
	ora #%01001000
	pha
	EXPORT GotDDCB
GotDDCB		; 
	cpy #2	; is it an error device?
	bne NotErrD	; no
	pla	; else set error dev bit
	ora #%10000000
	pha
	EXPORT NotErrD
NotErrD		; 
	pla	; get DDCB off stack
	plb
	rts


	ENDP



	END

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/TextEdit/GenerateDump b/IIGS.601.SRC/GSToolbox/TextEdit/GenerateDump
new file mode 100644
index 0000000..3928211
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/TextEdit/GenerateDump
@@ -0,0 +1 @@
+
	INCLUDE  'all.macros'
	include  'TextEdit.macros'

	INCLUDE  'E16.Quickdraw'
	INCLUDE  'E16.Event'
	include ':::ControlMgr:CtlCustomEqus.asm'
	INCLUDE  'E16.Window'
	INCLUDE  'Tool.Records'

	INCLUDE  'GlobalRecords'
	INCLUDE  'GlobalEquates'
	INCLUDE  'GlobalVars'

	INCLUDE  '::sys.equs.asm'	

	DUMP  'Include.Symbols'

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/TextEdit/GlobalEquates b/IIGS.601.SRC/GSToolbox/TextEdit/GlobalEquates
new file mode 100644
index 0000000..7395e30
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/TextEdit/GlobalEquates
@@ -0,0 +1 @@
+
****************************************************************
* equates for the tool number and version number
****************************************************************
TEVersionNumber	equ  $0104	;2-Apr-93 SS
TEToolNumber	equ  34
StyleRecordVersion	equ  0
;---------------------------------------------------------------




****************************************************************
* equates for the standard menu items
****************************************************************
	DSECT  250
UndoItemID	byte
CutItemID	byte
CopyItemID	byte
PasteItemID	byte
ClearItemID	byte
;---------------------------------------------------------------




****************************************************************
* Error codes
****************************************************************
	DSECT  TEToolNumber*256+$01
teAlreadyStarted	byte
teNotStarted	byte
teInvalidHandle	byte
teInvalidVerb	byte
teInvalidFlag	byte
teInvalidPCount	byte
teInvalidRect	byte
teBufferOverflow	byte
teInvalidLine	byte
teInvalidCall	byte
teInvalidParameter	byte
teInvalidTextBox2	byte
teNeedsTools	byte
;---------------------------------------------------------------




****************************************************************
* equates for super arrays
****************************************************************
ItemsInSmallBlock	equ  32
ItemsInMediumBlock	equ  256
ItemsInLargeBlock	equ  1024

SuperItemSize	equ  8

SizeOfSmallBlock	equ  ItemsInSmallBlock*SuperItemSize+SuperBlock.RecordSize
SizeOfMediumBlock	equ  ItemsInMediumBlock*SuperItemSize+SuperBlock.RecordSize
SizeOfLargeBlock	equ  ItemsInLargeBlock*SuperItemSize+SuperBlock.RecordSize
;---------------------------------------------------------------




****************************************************************
* equates for the block list
****************************************************************
MinBlockSize	equ  2*1024
SplitBlockSize	equ  4*1024
MaxBlockSize	equ  6*1024
;---------------------------------------------------------------




****************************************************************
* verbs
****************************************************************
dataIsMask	equ  %00000111
dataIsPString	equ  %00000000
dataIsCString	equ  %00000001
dataIsC1Input	equ  %00000010
dataIsC1Output	equ  %00000011
dataIsTextBox2	equ  %00000100
dataIsTextBlock	equ  %00000101
onlyGetSelection	equ  %00100000
;---------------------------------------------------------------
textIsMask	equ  %00011000
textIsPointer	equ  %00000000
textIsHandle	equ  %00001000
textIsResource	equ  %00010000
textIsNewHandle	equ  %00011000
;---------------------------------------------------------------
refIsMask	equ  %00000011
refIsPointer	equ  %00000000
refIsHandle	equ  %00000001
refIsResource	equ  %00000010
refIsNewHandle	equ  %00000011
;---------------------------------------------------------------
colorIsMask	equ  %00001100
colorIsPointer	equ  %00000000
colorIsHandle	equ  %00000100
colorIsResource	equ  %00001000
colorIsNewHandle	equ  %00001100
;---------------------------------------------------------------




****************************************************************
* masks for the inital parameter flags field.
****************************************************************
fNotControl	equ  $8000
fSingleFormat	equ  $4000
fSingleStyle	equ  $2000
fNoWordWrap	equ  $1000
fNoScroll	equ  $0800
fReadOnly	equ  $0400
fSmartCutPaste	equ  $0200
fTabSwitch	equ  $0100
fDrawBounds	equ  $0080
fColorHilight	equ  $0040
fGrowRuler	equ  $0020
fDisableSelection	equ  $0010
fDrawInactiveSelc	equ  $0008
;---------------------------------------------------------------




****************************************************************
* masks for the control flags field.
****************************************************************
fInvisible	equ  $80
fRecordDirty	equ  $40
;---------------------------------------------------------------




****************************************************************
* masks for the text block flags field.
****************************************************************
fBlockIsDirty	equ  $8000
;---------------------------------------------------------------




****************************************************************
* equates for the selectionStyle flag word
****************************************************************
fUseFont	equ  $0020
fUseSize	equ  $0010
fUseForeColor	equ  $0008
fUseBackColor	equ  $0004
fUseUserData	equ  $0002
fUseAttributes	equ  $0001
;---------------------------------------------------------------




****************************************************************
* equates for the TEStyleChange call
****************************************************************
fReplaceFont	equ  $0040
fReplaceSize	equ  $0020
fReplaceForeColor	equ  $0010
fReplaceBackColor	equ  $0008
fReplaceUserData	equ  $0004
fReplaceAttributes	equ  $0002
fSwitchAttributes	equ  $0001
;---------------------------------------------------------------




****************************************************************
* equates for the TEPaintText call
****************************************************************
fPartialLine	equ  $8000
fDontDraw	equ  $4000
;---------------------------------------------------------------




****************************************************************
* masks for the ruler flag word
****************************************************************
fEqualLineSpacing	equ  $8000
fShowInvisibles	equ  $4000
;---------------------------------------------------------------




****************************************************************
* resource ID's for TextEdit
****************************************************************
rStyleBlock	equ  $8012
rTEColorTable	equ  $800D

rTERuler	equ  $8025

rPString	equ  $8006
rCString	equ  $801D
rC1InputString	equ  $8005
rC1OutputString	equ  $8023
rTextBox2	equ  $800B
rTextBlock	equ  $8016
;---------------------------------------------------------------




****************************************************************
* part codes for the TextEdit defProc
****************************************************************
	DSECT  130
Text_Part	byte		;these are indicator part codes
ScrollBar_Part	byte
GrowBox_Part	byte
;---------------------------------------------------------------




****************************************************************
* filter proc command codes
****************************************************************
	DSECT  1
doEraseRect	byte
doEraseBuffer	byte
doRectChanged	byte
doHilightRect	byte
doHilightBuffer	byte

;---------------------------------------------------------------




****************************************************************
* equates for the keystroke operation codes
****************************************************************
	DSECT  0
opNormal	word	;let TextEdit handle the operation
opNothing	word	;ignore the character (or text block)
opReplaceText	word	;replace the selection by the text in theInputHandle
opMoveCursor	word	;move the cursor to the offset given by cursorOffset
opExtendLeft	word	;extend the cursor left to the offset given by cursorOffset
opExtendRight	word	;extend the cursor right to the offset given by cursorOffset
opCut	word	;CUT the selection
opCopy	word	;COPY the selection
opPaste	word	;PASTE the selection
opClear	word	;CLEAR (delete) the selection
;---------------------------------------------------------------




****************************************************************
* tab types
****************************************************************
	DSECT  0
noTabs	byte
equalTabs	byte
variableTabs	byte
;---------------------------------------------------------------




****************************************************************
* ruler justification codes
****************************************************************
	DSECT  0
leftJust	byte
centerJust	byte
fullJust	byte

rightJust	equ  $FFFF
;---------------------------------------------------------------




****************************************************************
* maximum string lengths
****************************************************************
maxPascalSize	equ  256
maxC1InputSize	equ  65535
maxC1OutputSize	equ  65535
maxTextBox2Size	equ  65536-16
;---------------------------------------------------------------




****************************************************************
* miscellaneous equates
****************************************************************
;---------------------------------------------------------------
styleScrap	equ  100
;---------------------------------------------------------------
MaxInfoCount	equ  6
;---------------------------------------------------------------
MinBoundsDeltaH	equ  20
MinBoundsDeltaV	equ  20
;---------------------------------------------------------------
TRUE	equ  $FFFF
FALSE	equ  $0000
;---------------------------------------------------------------
CR	equ  13
TAB	equ  9
;---------------------------------------------------------------




****************************************************************
* Default values for the initial parameter block
****************************************************************
IndentTopDefault		equ  2
IndentLeftDefault		equ  6
IndentBottomDefault		equ  2
IndentRightDefault		equ  4

DefaultVertScrollAmount	equ  9

DefaultTabType		equ  equalTabs
DefaultTabValue		equ  64
;---------------------------------------------------------------




;---------------------------------------------------------------
ReturnSpace	equ  6+2+4+4+1+1
;---------------------------------------------------------------
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/TextEdit/GlobalFormats b/IIGS.601.SRC/GSToolbox/TextEdit/GlobalFormats
new file mode 100644
index 0000000..f69d56d
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/TextEdit/GlobalFormats
@@ -0,0 +1 @@
+
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; STYLE BLOCK FORMAT
;;
;;                    |----------------------|
;; Handle ----------> | Version       (word) |
;;                    | RulerSize     (word) |
;;                    |----------------------|
;;                    | Ruler         (....) |
;;                    ::         ::         ::
;;                    ::         ::         ::
;;                    |----------------------|
;;                    | StyleListSize (long) |
;;                    |----------------------|
;;                    | StyleList     (....) |
;;                    ::         ::         ::
;;                    ::         ::         ::
;;                    |----------------------|
;;                    | StyleCount    (long) |
;;                    |----------------------|
;;                    | StyleArray    (....) |
;;                    ::         ::         ::
;;                    ::         ::         ::
;;                    |----------------------|
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; SUPER ARRAY FORMAT
;;
;;                    |----------------------|
;; Handle ----------> | Start         (long) |
;;                    | MainIndex     (word) |
;;                    | LocalIndex    (word) |
;;                    | ItemNumber    (long) |
;;                    | ItemSize      (word) |
;;                    |----------------------|     |-------------------------|
;;                    | Handle        (long) | --> | LengthOfText     (long) |
;;                    |                      |     | NumberOfItems    (word) |
;;                    |                      |     |-------------------------|
;;                    |                      |     | Length           (long) |  (repeated for)
;;                    |                      | --> | Data             (long) |   (each item)
;;                    |                      |     |-------------------------|
;;                    |                      |     | ...                     |
;;                    |                      | --> |-------------------------|
;;                    |                      |     | Length           (long) |
;;                    |                      |     | Data             (long) |
;;                    |                      |     |-------------------------| (this terminates)
;;                    |                      | --> | $FFFF FFFF       (long) |    (the list)
;;                    |                      |     |-------------------------|
;;                    |----------------------|
;;                    | Handle        (long) |
;;                    |----------------------|
;;                    | ...                  |
;;                    |----------------------|
;;                    | Handle        (long) |
;;                    |----------------------| (this terminates)
;;                    | $FFFF FFFF    (long) |    (the list)
;;                    |----------------------|
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; BLOCK LIST FORMAT
;;
;;                    |-----------------------|
;; Handle ----------> | BlockStart     (long) |
;;                    | BlockIndex     (word) |
;;                    |-----------------------|
;;                    | BlockHandle    (long) |  (repeated for)
;;                    | BlockLength    (long) |   (each block)
;;                    | Flags          (word) |
;;                    |-----------------------|
;;                    | ...                   |
;;                    |-----------------------|
;;                    | BlockHandle    (long) |
;;                    | BlockLength    (long) |
;;                    | Flags          (word) |
;;                    |-----------------------| (this terminates)
;;                    | $FFFF FFFF     (long) |    (the list)
;;                    |-----------------------|
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; STYLE LIST FORMAT
;;
;;                    |-----------------------|
;; Handle ----------> | Count          (long) |
;;                    | FontID         (long) |  (repeated for)
;;                    | ForeColor      (word) |   (each style)
;;                    | BackColor      (word) |
;;                    | UserData       (long) |
;;                    |-----------------------|
;;                    | ...                   |
;;                    |-----------------------|
;;                    | Count          (long) |
;;                    | FontID         (long) |
;;                    | ForeColor      (word) |
;;                    | BackColor      (word) |
;;                    | UserData       (long) |
;;                    |-----------------------|
;;                    | $FFFF FFFF     (long) | (this terminates the list)
;;                    |-----------------------|
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; RULER LIST FORMAT
;;
;;                    |-----------------------|
;; Handle ----------> | Count          (long) |
;;                    | LeftMargin     (word) |
;;                    | LeftIndent     (word) |
;;                    | RightMargin    (word) |
;;                    | Just           (word) |  (repeated for)
;;                    | ExtraLS        (word) |   (each ruler)
;;                    | Flags          (word) |
;;                    | UserData       (long) |
;;                    | TabType        (word) |
;;                    | NumOfTabs      (word) |
;;                    | TabKind        (word) |
;;                    | TabData        (word) |
;;                    |-----------------------|
;;                    | ...                   |
;;                    |-----------------------|
;;                    | Count          (long) |
;;                    | LeftMargin     (word) |
;;                    | LeftIndent     (word) |
;;                    | RightMargin    (word) |
;;                    | Just           (word) |
;;                    | ExtraLS        (word) |  (last ruler)
;;                    | Flags          (word) |
;;                    | UserData       (long) |
;;                    | TabType        (word) |
;;                    | NumOfTabs      (word) |
;;                    | TabKind        (word) |
;;                    | TabData        (word) |
;;                    |-----------------------|
;;                    | $FFFF FFFF     (long) | (this terminates the list)
;;                    |-----------------------|
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/TextEdit/GlobalIncludes b/IIGS.601.SRC/GSToolbox/TextEdit/GlobalIncludes
new file mode 100644
index 0000000..ec20dcb
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/TextEdit/GlobalIncludes
@@ -0,0 +1 @@
+
;---------------------------------------------------------------
	IF  DebugSymbols <> 0  THEN

BreakFlag	equ  1
TraceFlag	equ  1
HeaderFlag	equ  0

	else
	
BreakFlag	equ  0
TraceFlag	equ  0
HeaderFlag	equ  0

	ENDIF
;---------------------------------------------------------------


;---------------------------------------------------------------
FinalRelease	equ  1
;---------------------------------------------------------------


;---------------------------------------------------------------
	LOAD  'Include.Symbols'

	print on,gen,nopage,nowarn,mcall,obj,data,nomdir,nohdr,lits,nostat,nosym
	string asis
;---------------------------------------------------------------
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/TextEdit/GlobalRecords b/IIGS.601.SRC/GSToolbox/TextEdit/GlobalRecords
new file mode 100644
index 0000000..8ec521a
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/TextEdit/GlobalRecords
@@ -0,0 +1 @@
+
WidthTable	RECORD -4
fontID	ds.l  1
charWidth	ds.b  256
height	ds.w  1
ascent	ds.w  1
RecordSize
	ENDR



SuperHandle	RECORD 0
cachedHandle	ds.l  1	;handle to the block to start looking in
cachedTextOffset	ds.l  1	;the text offset for the cached item
cachedIndex	ds.w  1	;index into this block that points to the cached item
itemsPerBlock	ds.w  1	;number of items in each linked block
RecordSize
	ENDR



SuperBlock	RECORD 0
nextHandle	ds.l  1	;handle to the next block in the list
prevHandle	ds.l  1	;handle to the prev block in the list
textLength	ds.l  1	;number of characters represented by this block
reserved	ds.l  1
firstItem
RecordSize
	ENDR



TextList	RECORD 0
cachedHandle	ds.l  1	;handle to the block to start looking in
cachedTextOffset	ds.l  1	;the text offset for the cached block
RecordSize
	ENDR



TextBlock	RECORD 0
nextHandle	ds.l  1	;handle to the next block in the list
prevHandle	ds.l  1	;handle to the prev block in the list
textLength	ds.l  1	;number of characters represented by this block
flags	ds.w  1	;flag word indicating whether the block is in memory or not
reserved	ds.w  1
textStart
RecordSize
	ENDR


;---------------------------------------------------------------


TEColorTable	RECORD 0
content	ds.w  1
outline	ds.w  1
hilight	ds.w  1
caret	ds.w  1
vertBarVerb	ds.w  1		;this is in the same format as more flags
vertBarRef	ds.l  1
horzBarVerb	ds.w  1		;this is in the same format as more flags
horzBarRef	ds.l  1
growVerb	ds.w  1		;this is in the same format as more flags
growRef	ds.l  1
RecordSize
	ENDR



TEInfoRecord	RECORD 0
charCount	ds.l  1	;the number of characters in the record.
lineCount	ds.l  1	;the number of lines in the record
formatMemory	ds.l  1	;the amount of memory needed to contain the format info
totalMemory	ds.l  1	;the total amount of memory used.
styleCount	ds.l  1	;the number of unique styles in the record
rulerCount	ds.l  1	;the number of rulers in the record
RecordSize
	ENDR



TERuler	RECORD 0
leftMargin	ds.w  1
leftIndent	ds.w  1
rightMargin	ds.w  1
just	ds.w  1
extraLS	ds.w  1
flags	ds.w  1	;bit15 = equalLS, bit14 = showInvis
userData	ds.l  1
tabType	ds.w  1
numberOfTabs	ds.w  1
RecordSize
; tabKind	ds.w  1	;these are repeated for each tab. NOTE: these lines MUST be
; tabData	ds.w  1	;..commented out !!!
	ENDR



TEStyle	RECORD 0
fontID	ds.l  1
	ORG   fontID
fontFamily	ds.w  1
fontAttr	ds.b  1
fontSize	ds.b  1
foreColor	ds.w  1
backColor	ds.w  1
userData	ds.l  1	;0=no user data, ­0=call the user style hook
RecordSize
	ENDR



TEStyleRecord	RECORD 0
version	ds.w  1
rulerListLength	ds.l  1
rulerList	ds    TERuler
RecordSize
	ENDR



KeyRecord	RECORD  0
theChar	ds.w  1
theModifiers	ds.w  1
theInputHandle	ds.l  1
cursorOffset	ds.l  1
theOpCode	ds.w  1
RecordSize
	ENDR



TERecord	RECORD  0
;---------------------- Generic Control Record -------------------
CtrlNext	ds.l  1	;*** RESERVED ***
inPort	ds.l  1	;window (grafport) that the record is in.
BoundsRect	ds    Rect	;bounding rectangle for the control (including all the scroll bars)
CtrlFlag	ds.b  1	;*** RESERVED ***
CtrlHilite	ds.b  1	;*** RESERVED ***
LastErrorCode	ds.w  1	;last error code that was generated
CtrlProc	ds.l  1	;this is always $8500 0000
CtrlAction	ds.l  1	;*** RESERVED ***
FilterProc	ds.l  1	;generic filter routine for adding user features to TextEdit
CtrlRefCon	ds.l  1	;*** RESERVED ***
ColorRef	ds.l  1	;reference to the color table
TextFlags	ds.l  1	;copy of the TextFlags passed to TENew
TextLength	ds.l  1	;total number of characters in the text
BlockList	ds    TextList	;handle and cached offset for the text itself
CtrlID	ds.l  1	;the ID number for the textedit control
CtrlMoreFlags	ds.w  1	;the control's generic more flags field
CtrlVersion	ds.w  1	;*** RESERVED ***
;-------------------- Extended Record for TextEdit ---------------
ViewRect	ds    Rect	;rectangle that contains just the text
TotalHeight	ds.l  1	;total height of the text in pixels
LineSuper	ds    SuperHandle	;handle, associated information for the line starts
StyleSuper	ds    SuperHandle	;handle, associated information for the style runs
StyleList	ds.l  1	;handle to the style list
RulerList	ds.l  1	;handle to the ruler list (there is only one ruler)
LineAtEndFlag	ds.w  1	;$FFFF means the last character was a line break (CR, FF)

SelectionStart	ds.l  1	;starting text offset of the selection
SelectionEnd	ds.l  1	;ending text offset of the selection
SelectionActive	ds.w  1	;$0000 = active, $FFFF = inactive
SelectionState	ds.w  1	;$0000 = offscreen, $FFFF = onscreen
CaretTime	ds.l  1	;when the tickcount reaches this number, invert the caret

NullStyleActive	ds.w  1	;$0000 = don't use the null style, $FFFF = use the null style
NullStyle	ds    TEStyle	;the style for the null selection

TopTextOffset	ds.l  1	;the TextOffset of the topmost line in the box
TopTextVPos	ds.w  1	;the difference between the topmost scroll pos and the top of the topmost line

VertScrollBar	ds.l  1	;handle to the vertical scroll bar
VertScrollPos	ds.l  1	;current position of the vertical scroll bar
VertScrollMax	ds.l  1	;maximum position of the vertical scroll bar
VertScrollAmount	ds.w  1	;number of pixels to scroll with each arrow click

HorzScrollBar	ds.l  1	;handle to the horizontal scroll bar
HorzScrollPos	ds.l  1	;number of pixels scrolled offscreen 
HorzScrollMax	ds.l  1	;maximum position of the horizontal scroll bar
HorzScrollAmount	ds.w  1	;number of pixels to scroll with each arrow click

GrowBoxHandle	ds.l  1	;handle to the grow box control

MaximumChars	ds.l  1	;maximum number of characters in the text
MaximumLines	ds.l  1	;maximum number of lines in the text
MaximumCharsPerLine	ds.w  1	;maximum number of characters in a line
MaximumHeight	ds.w  1	;maximum height of the text in pixels

TextDrawMode	ds.w  1	;drawing mode for the text

WordBreakHook	ds.l  1	;this routine is called to determine word breaks
WordWrapHook	ds.l  1	;this routine is called to determine word wraps
KeyFilter	ds.l  1	;this routine is called to filter keys

theFilterRect	ds    Rect	;this rect is passed to the generic filter proc
theBufferVPos	ds.w  1	;these two fields specify the buffer position in the record
theBufferHPos	ds.w  1	;..for the generic filter proc
theKeyRecord	ds    KeyRecord	;this is the parameter block for the KeyFilter

CachedSelcOffset	ds.l  1	;this is for a caret. This is the cached selection offset
CachedSelcVPos	ds.w  1	;..for these vertical and horizontal positions.
CachedSelcHPos	ds.w  1

MouseRect	ds    Rect	;the enclosing rectangle to determine double clicks
MouseTime	ds.l  1	;the tick count of when the mouse was last let up
MouseKind	ds.w  1	;the kind of the last click. (0=single, 1=double, 2=triple)
LastClick	ds    Point	;the last point that the mouse was clicked on
SavedHPos	ds.w  1	;the saved horizontal position for up/down arrows
AnchorPoint	ds.l  1	;this is the anchor point for selections
;---------------------- Data block for temp variables -------------
theFontStats	ds.w  1	;this is the font stat bits
theFontToRelease	ds.l  1	;this is the font to release
theEvent	ds    EventRecord
;---------------------------------------------------------------
RecordSize
	ENDR



TEParam	RECORD 0
count	ds.w  1
id	ds.l  1
boundsRect	ds    Rect
defProc	ds.l  1
ctlFlags	ds.w  1
ctlMoreFlags	ds.w  1
refCon	ds.l  1
textFlags	ds.l  1

indentRect	ds    Rect

vertBar	ds.l  1
vertAmount	ds.w  1
horzBar	ds.l  1
horzAmount	ds.w  1

styleRef	ds.l  1
textVerb	ds.w  1
textRef	ds.l  1
textLength	ds.l  1

maxChars	ds.l  1
maxLines	ds.l  1
maxCharsPerLine	ds.w  1
maxHeight	ds.w  1

colorRef	ds.l  1
textDrawMode	ds.w  1

filterProc	ds.l  1

RecordSize
	ENDR
;---------------------------------------------------------------
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/TextEdit/GlobalVars b/IIGS.601.SRC/GSToolbox/TextEdit/GlobalVars
new file mode 100644
index 0000000..e6153b9
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/TextEdit/GlobalVars
@@ -0,0 +1 @@
+

	DSECT $04



****************************************************************
* these order of these variables must not change
****************************************************************
ParameterSpace	block 28	;this is the space for parameters
****************************************************************



****************************************************************
* these vars must not be changed even BETWEEN calls
****************************************************************
UserID	word
QDDirectPage	word
WidthTableHandle	long
DataBufferHandle	long
DrawPortPtr	long
PPToPortCodeHandle	long
ScrollCodeHandle	long
RecordInUse	long
SuperInUse	word
****************************************************************



****************************************************************
* these vars may be changed between calls
****************************************************************
DataBufferSize	word

WidthTablePtr	long
WidthTableOffset	word
WidthTableDepth	word

ParameterPtr	long
RecordPtr	long

TextOffset	long
TextPtr	long
TextCount	word
TextStyleOffset	long

TempPtr	long		;the order of these three variables MUST
TempWord	word		;..not change !!!
TempLong	long

;---------------------------------------------------------------
FirstFastVariable	DSectSize

BlockHandle	long		;these must all stay together because the
BlockLength	long		;..fast drawing routines use these
BlockStart	long
BlockCount	word

SuperRecordPtr	long		;..and these
TheSuperHandle	long
SuperStart	long
SuperLength	long
SuperMaxIndex	word

SourcePtr	long		;..and these
DestPtr	long
MoveLength	long
MemoryPtr	long

MaxFastVariable	DSectSize
;---------------------------------------------------------------

LineHeight	word
LineAscent	word

InputTextPtr	long
InputStylePtr	long

TextVPos	word
FixedHPos	long

SelectionLength	long

OriginalOffset	long
OriginalVPos	word
OriginalHPos	word

AmountScrolled	long
AmountLeft	long

RemovedHeight	long
ScrollDelta	long

LineLength	word
LastLineLength	word
SelcEndOffset	word
SelcStartOffset	word
LineStartLeft	word
LineStartOffset	long
LineEndOffset	long

StyleItemCount	long

WorkArea	block 20

****************************************************************

TheLastVariable	DSectSize
	IF TheLastVariable>$F0 THEN
	    WRITE 'DummyPC = '
	    WRITELN TheLastVariable
	    AERROR 'WARNING... Direct page variables have overflowed !'
	ENDIF



****************************************************************
* structured variables (always at the end)
****************************************************************
TempRect	RECORD $F0		;full $10 bytes
top	ds.w  1
left	ds.w  1
bottom	ds.w  1
right	ds.w  1
	ORG   top
topleft	ds    Point
botRight	ds    Point
	ENDR
DrawRect	RECORD TempRect+8
top	ds.w  1
left	ds.w  1
bottom	ds.w  1
right	ds.w  1
	ORG   top
topleft	ds    Point
botRight	ds    Point
	ENDR
****************************************************************



****************************************************************
* aliases for the work area variables
****************************************************************
TempStyle	RECORD WorkArea
fontID	ds.l  1
	ORG   fontID
fontFamily	ds.w  1
fontAttr	ds.b  1
fontSize	ds.b  1
foreColor	ds.w  1
backColor	ds.w  1
userData	ds.l  1	;0=no user data, ­0=call the user style hook
	ENDR
	DSECT WorkArea+TEStyle.RecordSize
NewStyleLength	long
FirstTextIndex	word
;---------------------------------------------------------------
	DSECT WorkArea
StyleListPtr	long
NewSuperLength	long
;---------------------------------------------------------------
	DSECT WorkArea
TheLineNumber	long
;---------------------------------------------------------------
	DSECT WorkArea
NewLineLength	long
;---------------------------------------------------------------
	DSECT WorkArea
SmartExtendFlag	long
;---------------------------------------------------------------
	DSECT WorkArea
AnchorPointStart	long
AnchorPointEnd	long
ClickKind	word
SaveForDoubleClick	word
;---------------------------------------------------------------
	DSECT WorkArea
OldBlockSize	word
;---------------------------------------------------------------




****************************************************************
* aliases for the parameter space variables
****************************************************************
RecordHandle	equ  ParameterSpace		;this remains locked during a call

	DSECT ParameterSpace+4
TheEventPtr	long
TheModifierWord	word

	DSECT ParameterSpace+4
OutputStyleRef	long
OutputStyleVerb	word
BufferLength	long
BufferRef	long
BufferVerb	word
NewBufferHandle	long
MustAddResFlag	word
BufferErrorFlag	word


	DSECT ParameterSpace+4
InputStyleRef	long
InputStyleVerb	word
InputTextLength	long
InputTextRef	long
InputTextVerb	word

;---------------------------------------------------------------




****************************************************************
* equates for the fast drawing routines (these reuse the block
* and super variables)
****************************************************************
dstRect	RECORD FirstFastVariable
top	ds.w  1
left	ds.w  1
bottom	ds.w  1
right	ds.w  1
	ENDR

	DSECT FirstFastVariable+8
dstPtr	long
dstWidth	word
numberOfWords	word
numberOfLines	word
leftMask	word
rightMask	word

theCodePtr	long
newCodeSize	word

srcPtr	long
srcWidth	word

LastFastVariable	DSectSize
	IF LastFastVariable>MaxFastVariable THEN
	    WRITE 'DummyPC = '
	    WRITELN LastFastVariable
	    AERROR 'WARNING... The fast drawing variables have overflowed !'
	ENDIF
****************************************************************



****************************************************************
* aliases for other variables
****************************************************************
TextHPos	equ  FixedHPos+2

FixExtraSpace	equ  SelectionLength

;---------------------------------------------------------------
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/TextEdit/Include.Symbols b/IIGS.601.SRC/GSToolbox/TextEdit/Include.Symbols
new file mode 100644
index 0000000..ef7f5c8
Binary files /dev/null and b/IIGS.601.SRC/GSToolbox/TextEdit/Include.Symbols differ
diff --git a/IIGS.601.SRC/GSToolbox/TextEdit/MakeFile b/IIGS.601.SRC/GSToolbox/TextEdit/MakeFile
new file mode 100644
index 0000000..19fee74
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/TextEdit/MakeFile
@@ -0,0 +1 @@
+
#---------------------------------------------------------------
#
#	this file is the make file for GSTextEdit. The two main
#	targets are 'Tool034' and 'TextEdit'
#
#---------------------------------------------------------------

ToolIncludes =	"{AIIGSIncludes}all.macros"		¶
				TextEdit.macros					¶
				Tool.Records					¶
				GlobalRecords					¶
				GlobalEquates					¶
				GlobalVars						¶
				::sys.equs.asm

ToolObjects =	:obj:highlevel.aii.obj			¶
				:obj:block.aii.obj				¶
				:obj:defproc.aii.obj			¶
				:obj:draw.aii.obj				¶
				:obj:entry.aii.obj				¶
				:obj:fastdraw.aii.obj			¶
				:obj:format.aii.obj				¶
				:obj:idle.aii.obj				¶
				:obj:key.aii.obj				¶
				:obj:measure.aii.obj			¶
				:obj:memory.aii.obj				¶
				:obj:record.aii.obj				¶
				:obj:scrap.aii.obj				¶
				:obj:scroll.aii.obj				¶
				:obj:selection.aii.obj			¶
				:obj:super.aii.obj				¶
				:obj:text.aii.obj				¶
				:obj:width.aii.obj				¶
				:obj:wrap.aii.obj

#
# add the following line to the list of objects to add debugging code
#
#				:obj:debug.aii.obj				¶
#

#---------------------------------------------------------------

TextEdit  ÄÄ  Tool034

#---------------------------------------------------------------

Tool034  Ä  MakeFile {ToolObjects}
	Echo "# `date -t` ----- Linking object modules."
	Echo "	LinkIIGS {ToolObjects} -t TOL -o Tool034"
	LinkIIGS {ToolObjects} -t TOL -o Tool034
	If {DaveSys} == 1
		Echo "# `date -t` ----- Copying files to a ProDOS disk."
		Echo "	DuplicateIIGS -y -mac Tool034 Tool034"
		DuplicateIIGS -y -mac Tool034 Tool034
	End
	if {AutoDuplicate} == 1
		DuplicateIIGS -y -mac Tool034 :
	End

#---------------------------------------------------------------

{ToolObjects}  Ä  MakeFile Include.Symbols GlobalIncludes


Include.Symbols  Ä  MakeFile GenerateDump {ToolIncludes}
	Set Echo 0
	Echo "	AsmIIGS -c GenerateDump"
	AsmIIGS -c GenerateDump

#---------------------------------------------------------------

.aii.obj  Ä  .aii
		Set Echo 0
		Set DebugSymbols 0
		Echo "	AsmIIGS -d DebugSymbols=`if {DebugSymbols};echo '1';else;echo '0';end` -wi -unsafe {DepDir}{Default}.aii -o {TargDir}{Default}.aii.obj"
		AsmIIGS -d DebugSymbols=`if {DebugSymbols};echo '1';else;echo '0';end` -wi -unsafe {DepDir}{Default}.aii -o {TargDir}{Default}.aii.obj

:obj:  Ä  :

#---------------------------------------------------------------

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/TextEdit/TextEdit.macros b/IIGS.601.SRC/GSToolbox/TextEdit/TextEdit.macros
new file mode 100644
index 0000000..d9452a8
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/TextEdit/TextEdit.macros
@@ -0,0 +1 @@
+***************************************************************
*
* TextEdit.macros
*
* New file 26-Sep-90
* Dave Lyons
*
* Copyright Apple Computer, Inc 1990
* All Rights Reserved
*
***************************************************************
*
* We're moving to a standardized all.macros file that contains
* just the M16.xxx files, so here are the macros that Text Edit
* needs that aren't in there.
*
***************************************************************

****************************************************************
*
* macro for derefing a handle
*
****************************************************************
;---------------------------------------------------------

	MACRO
	Deref &handle,&ptr,&flags

	IF &flags<>'Y=2' THEN
		ldy  #2
	ENDIF

	IF &handle=&ptr THEN
		lda  [&handle],y
		tax
		lda  [&handle]
		sta  &ptr
		stx  &ptr+2
	ELSEIF &ptr='PUSH' THEN
		lda  [&handle],y
		pha
		lda  [&handle]
		pha
	ELSE
		lda  [&handle],y
		sta  &ptr+2
		lda  [&handle]
		sta  &ptr
	ENDIF

	MEND

****************************************************************
* Dave's macro file.
*
*
*
* 13 Dec 88	David Good
*
* Cleaned up for release as a standard include file. Removed
* old aliases and changed the tab stops
*
*
*
* 20 Jan 89	David Good
*
* Added code to addl to check for the 2nd parameter being a
* constant
*
****************************************************************

;---------------------------------------------------------

	MACRO
	OptionBreak &A
		pha
		lda  >$00C061
		and  #$0080
		beq  @1
	
		brk  &A
@1		pla
	MEND

;---------------------------------------------------------
;;; 1/8/92 JCM - I'm now using PROCNAME instead of ROUTINE so we can generate real
;;; GSBug-style inline function names, so this is now obsolete.
;;;
;;;	MACRO
;;;&lab	Routine &A
;;;&lab		PROC  &A
;;;		IF DebugFlag<>0 THEN
;;;			jml  @1
;;;			dc.b  '&lab',0
;;;@1
;;;		ENDIF
;;;	MEND
;;;
;---------------------------------------------------------------

****************************************************************
*
* macros for branching on conditions that take more than one
* instruction. macros for LONG conditional branching
*
****************************************************************
;---------------------------------------------------------

	MACRO
	ble &A
		blt  &A
		beq  &A
	MEND

;---------------------------------------------------------

	MACRO
	bgt &A
		beq  @dontTake
		bge  &A
@dontTake
	MEND

;---------------------------------------------------------
	MACRO
	bcsl &A
		bcc  @dontTake
		brl  &A
@dontTake
	MEND

;---------------------------------------------------------

	MACRO
	bccl &A
		bcs  @dontTake
		brl  &A
@dontTake
	MEND

;---------------------------------------------------------

	MACRO
	beql &A
		bne  @dontTake
		brl  &A
@dontTake
	MEND

;---------------------------------------------------------

	MACRO
	bnel &A
		beq  @dontTake
		brl  &A
@dontTake
	MEND

;---------------------------------------------------------

	MACRO
	bltl &A
		bge  @dontTake
		brl  &A
@dontTake
	MEND

;---------------------------------------------------------

	MACRO
	bgel &A
		blt  @dontTake
		brl  &A
@dontTake
	MEND

;---------------------------------------------------------

	MACRO
	bmil &A
		bpl  @dontTake
		brl  &A
@dontTake
	MEND

;---------------------------------------------------------

	MACRO
	bpll &A
		bmi  @dontTake
		brl  &A
@dontTake
	MEND

;---------------------------------------------------------

	MACRO
	blel &A
		blt  @takeBranch
		bne  @dontTake
@takeBranch	brl  &A
@dontTake
	MEND

;---------------------------------------------------------

	MACRO
	bgtl &A
		blt  @dontTake
		beq  @dontTake
		brl  &A
@dontTake
	MEND

;---------------------------------------------------------




****************************************************************
*
* macros for pushing things on the stack in a way that saves
* bytes
*
****************************************************************
;---------------------------------------------------------

	MACRO
	PushLongSpace
		pha
		pha
	MEND

;---------------------------------------------------------

	MACRO
	PushWordSpace
		pha
	MEND

;---------------------------------------------------------

	MACRO
	PushAX
		phx
		pha
	MEND

;---------------------------------------------------------

	MACRO
	PullAX
		pla
		plx
	MEND

;---------------------------------------------------------

	MACRO
	PushZPtr &A
		pea  $0000
		tdc
		clc
		adc  #&A
		pha
	MEND

;---------------------------------------------------------

	MACRO
	PushZLong &A
		pei &A+2
		pei &A
	MEND

;---------------------------------------------------------

	MACRO
	PushZWord &A
		pei  &A
	MEND

;---------------------------------------------------------------




****************************************************************
*
* macros that use A and X to do four byte operations
*
****************************************************************
;---------------------------------------------------------

	MACRO
	ldaxZPtr &A
		ldx  #0
		tdc
		clc
		adc  #&A
	MEND

;---------------------------------------------------------

	MACRO
	ldax &addr,&regs
	IF &addr[1:1]='#' THEN
		lda  #&addr[2:255]
		ldx  #&addr[2:255]>>16
	ELSEIF &addr[1:1]='[' THEN
		IF &regs='y' THEN
			lda  &addr,y
			pha
			iny
			iny
			lda  &addr,y
			tax
			pla
		ELSE
			ldy  #&regs+2
			lda  &addr,y
			tax
			ldy  #&regs
			lda  &addr,y
		ENDIF
	ELSEIF &regs='s' THEN
		lda  &addr+2,s
		tax
		lda  &addr,s
	ELSEIF &regs='' THEN
		lda  &addr
		ldx  &addr+2
	ELSE
		lda  &addr+2,&offset
		pha
		lda  &addr,&offset
		plx
	ENDIF
	MEND

;---------------------------------------------------------

	MACRO
	stax &addr,&regs
	IF &addr[1:1]='[' THEN
		IF &regs='y' THEN
			sta  &addr,y
			iny
			iny
			txa
			sta  &addr,y
		ELSE
			ldy  #&regs
			sta  &addr,y
			txa
			ldy  #&regs+2
			sta  &addr,y
		ENDIF
	ELSEIF &regs='s' THEN
		sta  &addr,s
		txa
		sta  &addr+2,s
	ELSEIF &regs='' THEN
		sta  &addr
		stx  &addr+2
	ELSE
		sta  &addr,&offset
		txa
		sta  &addr+2,&offset
	ENDIF
	MEND

;---------------------------------------------------------

	MACRO
	cmpl &A,&B
	IF &B='' THEN
		cpx  &A+2
		bne  @1
		cmp  &A
	ELSE
		lda  &A+2
		cmp  &B+2
		bne  @1
		lda  &A
		cmp  &B
	ENDIF
@1
	MEND

;---------------------------------------------------------

	MACRO
	incl &A
	IF &A='a' THEN
		inc  a
		bne  @1
		inx
	ELSE
		inc  &A
		bne  @1
		inc  &A+2
	ENDIF
@1
	MEND

;---------------------------------------------------------

	MACRO
	decl &A
	IF &A='a' THEN
		cmp  #0
		bne  @1
		dex
@1		dec  a
	ELSE
		lda  &A
		bne  @2
		dec  &A+2
@2		dec  &A
	ENDIF
	MEND

;---------------------------------------------------------

	MACRO
	stzl &A
		stz  &A
		stz  &A+2
	MEND

;---------------------------------------------------------

	MACRO
	subl &A,&B,&C
		lda  &A
		sec
		sbc  &B
		sta  &C
		lda  &A+2
		sbc  &B+2
		sta  &C+2
	MEND

;---------------------------------------------------------
	MACRO
	addl &A,&B,&C
	IF &C='' ** &B='' THEN
		clc
		adc  &A
		sta  &A
		bcc  @1
		inc  &A+2
@1
	ELSEIF &B[1:1]='#' THEN
		lda  &A
		clc
		adc  #&B[2:255]
		sta  &C
		lda  &A+2
		adc  #&B[2:255]>>16
		sta  &C+2
	ELSE
		lda  &A
		clc
		adc  &B
		sta  &C
		lda  &A+2
		adc  &B+2
		sta  &C+2
	ENDIF
	MEND

;---------------------------------------------------------

	MACRO
	subw &A,&B,&C
		lda  &A
		sec
		sbc  &B
		sta  &C
	MEND

;---------------------------------------------------------

	MACRO
	addw &A,&B,&C
		lda  &A
		clc
		adc  &B
		sta  &C
	MEND

;---------------------------------------------------------

	MACRO
	mov &A,&B
		lda  &A
		sta  &B
	MEND

;---------------------------------------------------------

	MACRO
	swap &A,&B
		lda  &A
		pha
		lda  &B
		sta  &A
		pla
		sta  &B
	MEND

;---------------------------------------------------------

	MACRO
	swapl &A,&B
		swap &A,&B
		swap &A+2,&B+2
	MEND

;---------------------------------------------------------

	MACRO
	movl &A,&B
		mov  &A,&B
		mov  &A+2,&B+2
	MEND

;---------------------------------------------------------------




****************************************************************
*
* macros for determining the size of records
*
****************************************************************
;---------------------------------------------------------

	MACRO
	SizeOf &A
Fake&sysndx	RECORD  0
a			ds    &A
b			ds.b  1
			ENDR
theSize		set  &concat('fake',&sysndx,'.b')
	ENDM

;---------------------------------------------------------

	MACRO
	PushLongSizeOf &A
		SizeOf &A
		PushLong #theSize
	ENDM

;---------------------------------------------------------

	MACRO
	PushWordSizeOf &A
		SizeOf &A
		PushWord #theSize
	ENDM

;---------------------------------------------------------

	MACRO
	LDASizeOf &A
		SizeOf &A
		lda #theSize
	ENDM

;---------------------------------------------------------

	MACRO
	LDAXSizeOf &A
		SizeOf &A
		ldax #theSize
	ENDM

;---------------------------------------------------------
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/TextEdit/Tool.Records b/IIGS.601.SRC/GSToolbox/TextEdit/Tool.Records
new file mode 100644
index 0000000..e5cc671
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/TextEdit/Tool.Records
@@ -0,0 +1 @@
+
HandleRecord	RECORD  0
address	ds.l  1
attributes	ds.w  1
ownerID	ds.w  1
length	ds.l  1
prevHandle	ds.l  1
nextHandle	ds.l  1
RecordSize
	ENDR



Point	RECORD  0
v	ds.w  1
h	ds.w  1
	ORG   v
vh	ds.w  2
RecordSize
	ENDR



Rect	RECORD  0
top	ds.w  1
left	ds.w  1
bottom	ds.w  1
right	ds.w  1
	ORG   top
topleft	ds    Point
botRight	ds    Point
RecordSize
	ENDR



Rgn	RECORD  0
length	ds.w  1
bounds	ds    Rect
data
	ENDR



FontStatRec	RECORD  0
fontID	ds.l  1
resultStats	ds.w  1
RecordSize
	ENDR



EventRecord	RECORD  0
what	ds.w  1
message	ds.l  1
when	ds.l  1
where	ds    Point
modifiers	ds.w  1
RecordSize
	ENDR



TaskRecord	RECORD  0
what	ds.w  1
message	ds.l  1
when	ds.l  1
where	ds    Point
modifiers	ds.w  1
taskData	ds.l  1
taskMask	ds.l  1
lastClickWhen	ds.l  1
clickCount	ds.w  1
taskData2	ds.l  1
taskData3	ds.l  1
taskData4	ds.l  1
lastClickPoint	ds    Point
RecordSize
	ENDR



FontInfo	RECORD  0
ascent	ds.w  1
descent	ds.w  1
widMax	ds.w  1
leading	ds.w  1
RecordSize
	ENDR



GrafPort	RECORD  0
PortSCB	ds.w  1
ImageRef	ds.l  1
Width	ds.w  1
BoundsRect	ds    Rect
PortRect	ds    Rect
;---------------------------------------------------------------
ClipRgn	ds.l  1		;start of the stuff that we save
VisRgn	ds.l  1
BkPat	ds.b  32
PnLoc	ds    Point
PnSize	ds    Point
PnMode	ds.w  1
PnPat	ds.b  32
PnMask	ds.b  8
PnVis	ds.w  1
Font	ds.l  1
FontID	ds.l  1
FontFlags	ds.w  1
TxSize	ds.w  1
TxFace	ds.w  1
TxMode	ds.w  1
SpExtra	ds.l  1
ChExtra	ds.l  1
FGColor	ds.w  1
BGColor	ds.w  1		;end of the stuff that we save
;---------------------------------------------------------------
PicSave	ds.l  1
RgnSave	ds.l  1
PolySave	ds.l  1
GrafProcs	ds.l  1
ArcRot	ds.w  1
UserField	ds.l  1
SysField	ds.l  1
RecordSize
	ENDR



FontRecord	RECORD  0
offsetToMF	ds.w  1
family	ds.w  1
style	ds.w  1
size	ds.w  1
version	ds.w  1
fbrExtent	ds.w  1
	ORG  0
fontType	ds.w  1
firstChar	ds.w  1
lastChar	ds.w  1
widMax	ds.w  1
kernMax	ds.w  1
nDescent	ds.w  1
fRectWidth	ds.w  1
fRectHeight	ds.w  1
owTLoc	ds.w  1
ascent	ds.w  1
descent	ds.w  1
leading	ds.w  1
rowWords	ds.w  1
	ENDR



CtrlRecord	RECORD  0
ctlNext	ds.l  1
ctlOwner	ds.l  1
ctlRect	ds    Rect
ctlFlag	ds.b  1
ctlHilite	ds.b  1
ctlValue	ds.w  1
ctlProc	ds.l  1
ctlAction	ds.l  1
ctlData	ds.l  1
	ORG   ctlData
viewSize	ds.w  1
dataSize	ds.w  1
ctlRefCon	ds.l  1
ctlColor	ds.l  1
thumbRect	ds    Rect
pageRegion	ds    Rect
RecordSize
	ENDR



WindowRecord	RECORD  -4
wNext	ds.l  1
port	ds    GrafPort
wDefProc	ds.l  1
wRefCon	ds.l  1
wContDraw	ds.l  1
wReserved	ds.l  1
wStrucRgn	ds.l  1
wContRgn	ds.l  1
wUpdateRgn	ds.l  1
wControls	ds.l  1
wFrameCtrls	ds.l  1
wFrame	ds.w  1
RecordSize
	ENDR



DocWindowRecord	RECORD  0
wind	ds    WindowRecord
wTitle	ds.l  1
wTitle_w	ds.w  1
wOriginMask	ds.w  1
wZoomedRect	ds    Rect
wColor	ds.l  1
yOrigin	ds.w  1
xOrigin	ds.w  1
dataHeight	ds.w  1
dataWidth	ds.w  1
maxHeight	ds.w  1
maxWidth	ds.w  1
vScroll	ds.w  1
hScroll	ds.w  1
vPage	ds.w  1
hPage	ds.w  1
wInfoRef	ds.l  1
wInfoHeight	ds.w  1
wOldYOrigin	ds.w  1
wOldXOrigin	ds.w  1
wInfoDraw	ds.l  1
RecordSize
	ENDR



ScrollColorTable	RECORD 0
barOutline	ds.w  1
barNorArrow	ds.w  1
barSelArrow	ds.w  1
barArrowBack	ds.w  1
barNorThumb	ds.w  1
barSelThumb	ds.w  1
barPageRgn	ds.w  1
barInactive	ds.w  1
RecordSize
	ENDR
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/TextEdit/block.aii b/IIGS.601.SRC/GSToolbox/TextEdit/block.aii
new file mode 100644
index 0000000..e573a20
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/TextEdit/block.aii
@@ -0,0 +1 @@
+**********************************************************************
*
*                      GSTextEdit  Version 1.0
*                          File: block.aii
*
*               Copyright Apple Computer, Inc. 1988-89
*                        All rights reserved
*
*
*
*
* Notes
*
* All the routines in GSTextEdit must be called in full native mode and
* return that way.
*
* All the files in GSTextEdit must be assembled with the "-unsafe"
* option to pass unresolved references to the linker.
*
*
*
*
* Change History
*
* 30 May 89	Dave Good
*
* Cleaned up comments for final release.
*
*
*  5 January 90	Dave Good
*
* Changed KillBlockList so that it zeros the cached block handle after
* it disposed of the block list.
*
* 2/23/90	Mensch
*
* Fixed the join routine in fixBlockList. It was off by $10 (size of the block header) when it
* copied the data AND it called derefAX right after a TAX (obviously bad handle...)
*
* 8/8/90	Mensch
*
* Fixed more stuff in the join routine. Seems that If you joined the second to last
* super block to the last super block, 4 bytes of random memory would get trashed
* Also, Cached block could be still set to a deleted block of memory
* oooops that would be too bad. We had to reset that also
*
**********************************************************************


	INCLUDE  'GlobalIncludes'

TextPrevLinkDB	equ $FE1200
TextNextLinkDB	equ $FE1210

****************************************************************
*
* Description
*
* This routine allocates memory for a new block list and sets
* the BlockList field in the TERecord to the newly created handle
*
*
*
* Inputs:	none
*
* Outputs:	TERecord.BlockList (the cache is filled)
*
*
* Change History
*
* 30 May 89	Dave Good
*
* Initial Release.
*
****************************************************************

NewBlockList	PROCNAME  Export

;---------------------------------------------------------------
	lda  #0		;zero out the cached block start field
	tax
	ldy  #TERecord.BlockList.cachedTextOffset
	jsr  SetRecordLong

	lda  #256+TextBlock.textStart	;get a new,clear handle of the initial
	jsr  GetClearHandle		;..size
	ldy  #TERecord.BlockList.cachedHandle
	brl  SetRecordLong
;---------------------------------------------------------------

	ENDP


****************************************************************
*
* Description
*
* This routine kills all the blocks in the block list.
*
*
*
* Inputs:	TERecord.BlockList
*
* Outputs:	none
*
*
* Change History
*
* 30 May 89	Dave Good
*
* Initial Release.
*
****************************************************************

KillBlockList	PROCNAME  Export

;---------------------------------------------------------------
	jsr  CachedBlockToPtr	;set TempPtr to our current block
	lda  BlockHandle+1		;..if there is no block list, then just
	beq  @exit		;..exit

@loop1	jsr  MoveToPrevBlock	;move back to the first block
	bcc  @loop1	

@loop2	PushZLong BlockHandle	;save the current block handle, then
	jsr  BlockHandleToPtr	;..dereference it, in case it moved
	jsr  MoveToNextBlock	;find the next block
	PullAX		;get the current handle back into A,X
	php		;save the carry flag
	jsr  KillHandle		;kill the current handle
	plp		;if the carry is CLEAR, there was a next
	bcc  @loop2		;..handle, so loop back to kill it

@exit	ldy  #TERecord.BlockList.cachedHandle	;zero out the cached handle for the
	lda  #0		;..block list
	tax
	brl  SetRecordLong
;---------------------------------------------------------------

	ENDP


****************************************************************
*
* Description
*
* This routine finds the block corresponding to TextOffset. It
* then returns the block handle in BlockHandle, the length in
* BlockLength, and finally it sets the cache fields in the
* TERecord.
*
*
*
* Inputs:	TextOffset
*
* Outputs:	BlockHandle
*	BlockLength
*	TERecord.BlockList (the cache is filled)
*
*
* Change History
*
* 30 May 89	Dave Good
*
* Initial Release.
*
****************************************************************

FindBlockInfo	PROCNAME  Export

;---------------------------------------------------------------
	jsr  CachedBlockToPtr	;set TempPtr to our current block

	ldy  #TERecord.BlockList.cachedTextOffset+2
	lda  [RecordPtr],y		;get the cached block start into the
	sta  BlockStart+2		;..direct page variable
	tax
	dey
	dey
	lda  [RecordPtr],y
	sta  BlockStart

	cpx  TextOffset+2		;see which direction we should search
	blt  doForward
	bne  doBackward
	cmp  TextOffset
	blt  doForward
	bne  doBackward
;---------------------------------------------------------------
doForward	ldy  #TextBlock.textLength+2	;if we are going forward, we could already
	lda  [TempPtr],y		;..be in the correct block, so make sure
	sta  BlockLength+2		;..the BlockLength variable is set, then
	dey		;..check to see if we are already on the
	dey		;..current block. If we are then just
	lda  [TempPtr],y		;..exit
	sta  BlockLength
	clc
	adc  BlockStart
	tax
	lda  BlockLength+2
	adc  BlockStart+2
	cmp  TextOffset+2
	blt  @keepGoing
	bne  @alreadyThere
	cpx  TextOffset
	ble  @keepGoing
@alreadyThere	rts

@loop	ldy  #TextBlock.textLength	;add the current block's length to the
	lda  [TempPtr],y		;..block start and leave in X and A
	clc
	adc  BlockStart
	tax
	iny
	iny
	lda  [TempPtr],y
	adc  BlockStart+2
	cmp  TextOffset+2		;have we found the correct block ? If so
	blt  @keepGoing		;..then goto foundIt
	bne  foundIt
	cpx  TextOffset
	bgt  foundIt
@keepGoing	stx  BlockStart		;nope, so store the new BlockStart and
	sta  BlockStart+2		;..move to the next block
	jsr  MoveToNextBlock
	bcc  @loop

	ldy  #TextBlock.textLength	;we are at the very end here, so move
	lda  BlockStart		;..block start back over the last block
	sec		;..and exit
	sbc  [TempPtr],y
	sta  BlockStart
	iny
	iny
	lda  BlockStart+2
	sbc  [TempPtr],y
	sta  BlockStart+2
	bra  foundIt
;---------------------------------------------------------------
doBackward	jsr  MoveToPrevBlock	;move to the previous block
	ldy  #TextBlock.textLength	;subtract the new length from the block
	lda  BlockStart		;..start to find the new block start
	sec
	sbc  [TempPtr],y
	sta  BlockStart
	tax
	iny
	iny
	lda  BlockStart+2
	sbc  [TempPtr],y
	sta  BlockStart+2
	cmp  TextOffset+2		;have we found our TextOffset ? If not
	blt  foundIt		;..then loop back to doBackward
	bne  doBackward
	cpx  TextOffset
	bgt  doBackward
;---------------------------------------------------------------
foundIt	lda  [TempPtr],y		;set the direct page variable to the
	sta  BlockLength+2		;..length of the current block
	dey
	dey
	lda  [TempPtr],y
	sta  BlockLength

	ldy  #TERecord.BlockList.cachedHandle	;set the cached fields in the main record
	lda  BlockHandle		;..to point to the block we just found
	sta  [RecordPtr],y
	iny
	iny
	lda  BlockHandle+2
	sta  [RecordPtr],y
	ldy  #TERecord.BlockList.cachedTextOffset
	lda  BlockStart
	sta  [RecordPtr],y
	iny
	iny
	lda  BlockStart+2
	sta  [RecordPtr],y
	rts
;---------------------------------------------------------------

	ENDP


****************************************************************
*
* Description
*
* This routine sets the size of BlockHandle to the length specified
* by BlockLength. NOTE: this is NOT necessarily the same as
* TERecord.BlockList.cachedHandle. Finally this routine marks the
* block as dirty
*
*
*
* Inputs:	BlockHandle
*	BlockLength
*
* Outputs:	none
*
*
* Change History
*
* 30 May 89	Dave Good
*
* Initial Release.
*
****************************************************************

SetBlockSize	PROCNAME  Export

;---------------------------------------------------------------
	jsr  BlockHandleToPtr	;set TempPtr to the current block

	shortm		;switch into short mode
	ldy  #TextBlock.textLength+1	;compare the middle byte of the length
	lda  [TempPtr],y		;..(xxxxFFxx) with the middle of the
	cmp  BlockLength+1		;..block length. This is the same as
	longm		;..comparing the old and new lengths
	bne  resizeIt		;..rounded down to the nearest $100 bytes
	iny		;If the 'rounded' lengths are NOT equal
	lda  [TempPtr],y		;..then we need to resize this block
	cmp  BlockLength+2
	beq  skipResize
;---------------------------------------------------------------
resizeIt	PushZLong BlockHandle	;SetHandleSize needs the handle on the
	ldax BlockLength		;..stack
	and  #$FF00		;round off the length and add the header
	clc		;..length to get the real handle size
	adc  #256+TextBlock.textStart
	bcc  @1
	inx
@1	jsr  SetHandleSize		;if we get an error, then just exit
	bcs  exit

	jsr  BlockHandleToPtr	;re-dereference the block handle
;---------------------------------------------------------------
skipResize	ldy  #TextBlock.flags	;since we changed this block, mark it as
	lda  [TempPtr],y		;..dirty
	ora  #fBlockIsDirty
	sta  [TempPtr],y

	ldy  #TextBlock.textLength+2	;set the new length field in the block
	lda  BlockLength+2
	sta  [TempPtr],y
	dey
	dey
	lda  BlockLength
	sta  [TempPtr],y

	clc		;indicate no error and exit
;---------------------------------------------------------------
exit	rts
;---------------------------------------------------------------

	ENDP


****************************************************************
*
* Description
*
* This routine makes TextPtr a pointer to the text specified by
* TextOffset. NOTE: this routine does NOT rely on the block
* already being "found"
*
*
*
* Inputs:	TextOffset
*
* Outputs:	TextPtr
*
*
* Change History
*
* 30 May 89	Dave Good
*
* Initial Release.
*
****************************************************************

FindTextPtr	PROCNAME  Export

;---------------------------------------------------------------
	jsr  FindBlockInfo

	lda  TextOffset		;find the difference between the current
	sec		;..offset and the block start. Leave it
	sbc  BlockStart		;..in TextPtr
	sta  TextPtr
	lda  TextOffset+2
	sbc  BlockStart+2
	sta  TextPtr+2

	lda  BlockLength		;find the number of characters left in
	sec		;..the block (BlockCount). The max is
	sbc  TextPtr		;..$FFFF
	sta  BlockCount
	lda  BlockLength+2
	sbc  TextPtr+2
	beq  @1
	lda  #$FFFF
	sta  BlockCount

@1	lda  TempPtr		;add the starting pointer for the block
	clc		;..handle to the difference that we
	adc  TextPtr		;..found earlier.
	sta  TextPtr
	lda  TempPtr+2
	adc  TextPtr+2
	sta  TextPtr+2

	lda  #TextBlock.textStart	;finally, adjust TextPtr past the header
	adc  TextPtr		;..of the text block. NOTE: the carry is
	sta  TextPtr		;..always clear for the ADC
	bcc  @2
	inc  TextPtr+2
@2	rts
;---------------------------------------------------------------

	ENDP


****************************************************************
*
* Description
*
* This routine scans through the entire block list looking for
* blocks that are either too small or too big. If it finds a
* block that is too big, it will split it and then mark the split
* off block as clean. If it finds a block that is too small it
* will join it to the next block, then mark the combined block as
* clean. This routine is called at idle time every 10 ticks, but
* if every block in the block list is clean it will take less
* than 25 ms per megabyte of text.
*
*
*
* Inputs:	none
*
* Outputs:	none
*
*
* Change History
*
* 30 May 89	Dave Good
*
* Initial Release.
*
****************************************************************

FixBlockList	PROCNAME  Export
	Import CacheBlockFix
;---------------------------------------------------------------
	jsr  CachedBlockToPtr	;find the first block in the list
@loop1	jsr  MoveToPrevBlock
	bcc  @loop1

@loop2	ldy  #TextBlock.flags	;loop through all the blocks in the list
	lda  [TempPtr],y		;..looking for dirty ones
	bmi  @foundDirty
@next	jsr  MoveToNextBlock
	bcc  @loop2
	rts		;nothing was dirty, so exit

@foundDirty	ldy  #TextBlock.textLength+2	;we found a dirty block, so check to see
	lda  [TempPtr],y		;..if it is too big.
	bne  checkForSplit
	dey
	dey
	lda  [TempPtr],y
	cmp  #MaxBlockSize
	bge  checkForSplit		;if the block is too big, then split it
	cmp  #MinBlockSize		;if the block is too small, then join it
	bge  @clearDirty
	brl  joinTheBlock
@clearDirty	jsr  clearBlockFlags	;since the block shouldn't be split or
	bra  @next		;..joined, then clear the dirty flag
;---------------------------------------------------------------
checkForSplit	
	ldy  #TextBlock.textLength+2	;get the size of the entire block and
	lda  [TempPtr],y		;..subtract (SplitBlockSize - textStart)
	tax
	dey
	dey
	lda  [TempPtr],y
	sec
	sbc  #SplitBlockSize-TextBlock.textStart
	bcs  @1
	dex
@1	clc		;Then add this to the starting pointer to
	adc  TempPtr		;..make a pointer to where to start searching
	sta  MemoryPtr		;..backwards from.
	txa
	adc  TempPtr+2
	sta  MemoryPtr+2

	ldy  #TextBlock.textLength+2	;Y-Reg is the maximum number of characters
	lda  [TempPtr],y		;..to look through
	beq  @useLength
	lda  #$FFFF
	bra  @useAReg
@useLength	dey
	dey
	lda  [TempPtr],y
@useAReg	sec
	sbc  #SplitBlockSize
	tay

	sty  TempWord		;subtract the maximum number of characters
	lda  MemoryPtr		;..from MemoryPtr to find a pointer to the
	sec		;..beginning of the split area
	sbc  TempWord
	sta  MemoryPtr
	bcs  @2
	dec  MemoryPtr+2
@2
	shortm		;look for a CR (in short mode for speed)
@loop	lda  [MemoryPtr],y
	cmp  #CR
	beq  doTheSplit
	dey
	bne  @loop
	longm
;---------------------------------------------------------------
clearBlockFlags	ldy  #TextBlock.flags	;since we can't split this block, mark it
	lda  [TempPtr],y		;..as clean.
	and  #ÅfBlockIsDirty
	sta  [TempPtr],y
	rts
;---------------------------------------------------------------
doTheSplit	rep  #$20		;back to long mode here
	tya
	sec		;this skips over the CR, so memoryPtr
	adc  MemoryPtr		;..points just past it
	sta  MemoryPtr
	bcc  @11
	inc  MemoryPtr+2
@11
	subl MemoryPtr,TempPtr,BlockLength	;find the new length of the original
	lda  BlockLength		;..block
	sec
	sbc  #TextBlock.textStart
	sta  BlockLength
	bcs  @1
	dec  BlockLength+2
@1	ldx  BlockLength+2		;check for the resulting block being
	bne  @2		;..smaller than the minimum block size
	cmp  #MinBlockSize		;..if it is, then just clear the dirty
	blt  clearBlockFlags	;..flags and exit
@2
	ldy  #TextBlock.textLength	;now find the length of the new block
	lda  [TempPtr],y
	sec
	sbc  BlockLength
	sta  MoveLength
	iny
	iny
	lda  [TempPtr],y
	sbc  BlockLength+2
	sta  MoveLength+2

	tax
	lda  MoveLength		;round off and adjust the new length. Then
	and  #$FF00		;..get a handle of the proper size
	clc
	adc  #256+TextBlock.textStart
	bcc  @3
	inx
@3	jsr  GetLargeHandle		;if we get a memory error, then abort the
	bcc  @weHaveMemory		;..split and clear the dirty flags
	bra  clearBlockFlags
@weHaveMemory	stax TempLong		;save the new handle in TempLong and
	jsr  DerefAX		;..deref it into MemoryPtr
	stax MemoryPtr

	jsr  BlockHandleToPtr	;reset TempPtr in case the block moved

	ldy  #TextBlock.nextHandle	;set the next handle field for both the
	lda  [TempPtr],y		;..new block and the old block
	sta  [MemoryPtr],y
	lda  TempLong
	sta  [TempPtr],y
	iny
	iny
	lda  [TempPtr],y
  sta >TextNextLinkDB+2
	sta  [MemoryPtr],y
	lda  TempLong+2
  sta >TextNextLinkDB+2
	sta  [TempPtr],y

	ldy  #TextBlock.prevHandle	;set the previous handle of the new block
	lda  BlockHandle
	sta  [MemoryPtr],y
	iny
	iny
	lda  BlockHandle+2
	sta  [MemoryPtr],y
  sta >TextPrevLinkDB+2
	ldy  #TextBlock.textLength	;set the length of the new block
	lda  MoveLength
	sta  [MemoryPtr],y
	iny
	iny
	lda  MoveLength+2
	sta  [MemoryPtr],y

	ldy  #TextBlock.flags	;clear the flags for the new block
	lda  #0
	sta  [MemoryPtr],y

	ldax BlockLength		;find the source pointer for moving the
	clc		;..text from the old block to the new one
	adc  #TextBlock.textStart
	bcc  @4
	inx
	clc
@4	adc  TempPtr
	sta  SourcePtr
	txa
	adc  TempPtr+2
	sta  SourcePtr+2

	lda  #TextBlock.textStart	;the dest pointer is the pointer to the
	clc		;..start of the new block adjusted for
	adc  MemoryPtr		;..the header
	sta  DestPtr
	lda  MemoryPtr+2
	adc  #0
	sta  DestPtr+2

	jsr  BlockMove		;move the text

	jsr  SetBlockSize		;set the old handle size to free memory

	Deref TempLong,TempPtr	;make TempPtr point to the newly created
	jsr  MoveToNextBlock	;..block. Then find the next block and
	bcs  allDone		;..if there is one, set the prev handle
	ldy  #TextBlock.prevHandle	;..field to the new block
	lda  TempLong
	sta  [TempPtr],y
	iny
	iny
	lda  TempLong+2
	sta  [TempPtr],y
  sta >TextPrevLinkDB+2
;---------------------------------------------------------------
allDone	rts
;---------------------------------------------------------------


	Export joinTheBlock
;---------------------------------------------------------------
joinTheBlock	
	jsr  clearBlockFlags	;clear the dirty flag for this block

	ldy  #TextBlock.textLength	;save the length of the block in OldBlockSize
	lda  [TempPtr],y
	sta  OldBlockSize

	movl BlockHandle,TempLong	;save the current block handle
	jsr  MoveToNextBlock	;make sure there is another block. If
	bcs  allDone		;..there isn't then exit

	ldy  #TextBlock.textLength
	lda  [TempPtr],y
	sta  MoveLength
	clc
	adc  OldBlockSize
	sta  BlockLength
	iny
	iny
	lda  [TempPtr],y
	sta  MoveLength+2
	adc  #0
	sta  BlockLength+2

	ldy  #TextBlock.nextHandle+2	;save the next block's handle on the stack
	lda  [TempPtr],y		;..so we can link it in properly
	pha
	dey
	dey
	lda  [TempPtr],y
	pha

	PushZLong BlockHandle	;one copy for KillHandle
	PushZLong BlockHandle	;..and another for DerefHandle
;
; 8/8/90	Mensch
; Bad News Chappey, you say above PushZLong BlockHandle ; one copy for KillHandle!
; While thats all well and good, you also do not test the cached handle to determine
; if you need to set a new cached block. Since this seems to crash the system when you
; join with the first super block, we will take this oportunity to reset the cached textblock
; handle to the BlockHandle that we are growing (In this case, tempLong)
	ldax TempLong
	jsr  CacheBlockFix
;

	movl TempLong,BlockHandle	;resize the original block so it is big
	jsr  SetBlockSize		;..enough to contain them both
	bcs  memoryError
	jsr  clearBlockFlags	;clear the dirty flag for this block

	jsr  BlockHandleToPtr	;redereference the original block handle
	lda  TempPtr		;make destptr be a pointer to the end
	clc		;..of the old block
	adc  OldBlockSize
	sta  DestPtr
	lda  TempPtr+2
	adc  #0
	sta  DestPtr+2
;
; 2/23/90	Mensch
; Forgot to bump the destination pointer by the size of the start of the textblock header
; This takes care of a goofy word wrapping nightmare...
;
	lda DestPtr
	clc
	adc #TextBlock.textStart
	sta DestPtr
	bcc @mensch
	inc DestPtr+2
@mensch

	jsr  DerefHandle		;dereference the next handle and skip
	clc		;..over the header to get SourcePtr
	adc  #TextBlock.textStart
	bcc  @1
	inx
@1	stax SourcePtr
	jsr  BlockMove

	PullAX		;get back the next block handle and kill
	jsr  KillHandle		;..it

	ldy  #TextBlock.nextHandle	;reset the next handle link in the chain
	pla
	sta  [TempPtr],y
	iny
	iny
	pla
	sta  [TempPtr],y
	tax
; 2/23/90	Mensch
;
; Fixed bug here where he called DerefAX right after a TAX (don't see right to me either...)
; this seems to fix the random crashing bug during idle...
;
	ldy #TextBlock.NextHandle	; get the low word of the next hndl
;
; 8/8/90	Mensch
; What happens here when the NextHandle field was set to zero? Seems to me that we would simply
; crash memory! So, we must first test to be sure next handle is zero here!
;
	ora [TempPtr],y	; fortunately here we have the high word of next in <A>
	beq @Skip080890	; if this is zero then we can skip the rest of the cleanup
	lda [TempPtr],y		; back into <A>
; end of fix...	
	
	jsr  DerefAX		;set TempPtr to the next handle so we
	stax TempPtr		;..can reset the prev link
	ldy  #TextBlock.prevHandle
	lda  BlockHandle
	sta  [TempPtr],y
	iny
	iny
	lda  BlockHandle+2
	sta  [TempPtr],y
@Skip080890

	rts
;---------------------------------------------------------------
memoryError	pla		;pull the garbage off the stack
	pla
	pla
	pla
	rts		;the carry is already SET here
;---------------------------------------------------------------

	ENDP

	EJECT
*******************************************************************************
*
CacheBlockFix	PROC Export
*
* Description:	
*
*
* Inputs:	<A><X> Contain some valid handle from the text block list
*	since this routine assumes that the Super block list is in fact
*	invalid!
*
* Outputs:	None
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************	
	ldy  #TERecord.BlockList.cachedHandle	;copy handle into the
	sta  [RecordPtr],y		;..record variable CachedHandle
	iny
	iny
	txa
	sta  [RecordPtr],y
; Now move to the head of the super block list!
	jsr  CachedBlockToPtr	;set TempPtr to our current block
@loop1	jsr  MoveToPrevBlock	;move back to the first block
	bcc  @loop1	
	
	ldy  #TERecord.BlockList.cachedHandle	;copy handle into the Cached block
	lda  BlockHandle		; field again
	sta  [RecordPtr],y
	iny
	iny
	lda  BlockHandle+2
	sta  [RecordPtr],y
	
	ldy  #TERecord.BlockList.cachedTextOffset ; now since the cached handle contains
	lda  #0		; the fir block, zero the offset
	sta  [RecordPtr],y
	iny
	iny
	sta  [RecordPtr],y
	rts		; and exit!
	EndP

****************************************************************
*
* Description
*
* This set of utility routines allow one to scan forwards and
* backwards within the block list, dereference the current
* BlockHandle, and access the cached block handle.
*
*
*
* Change History
*
* 30 May 89	Dave Good
*
* Initial Release.
*
****************************************************************

Block1Proc	PROC

;---------------------------------------------------------------
	EXPORT  CachedBlockToPtr
	EXPORT  BlockHandleToPtr
	EXPORT  MoveToNextBlock
	EXPORT  MoveToPrevBlock
;---------------------------------------------------------------

;---------------------------------------------------------------
CachedBlockToPtr	ldy  #TERecord.BlockList.cachedHandle	;copy the cached block handle into the
	lda  [RecordPtr],y		;..global variable BlockHandle
	sta  BlockHandle
	iny
	iny
	lda  [RecordPtr],y
	sta  BlockHandle+2
	bra  BlockHandleToPtr	;now dereference it
;---------------------------------------------------------------
MoveToPrevBlock	ldy  #TextBlock.prevHandle+1
	bra  commonCode
;---------------------------------------------------------------
MoveToNextBlock	ldy  #TextBlock.nextHandle+1
;---------------------------------------------------------------
commonCode	lda  [TempPtr],y		;check for the next (or prev) handle being
	beq  atTheEnd		;..$0000 0000, which indicates the end of
	stz  BlockHandle+2		;..the list. Here we make sure the highest
	sta  BlockHandle+1		;..byte of the handle is zero
	dey
	lda  [TempPtr],y		;copy the low word of the new handle
	sta  BlockHandle
	clc		;indicate NOT at the end of the list
;---------------------------------------------------------------
BlockHandleToPtr	Deref BlockHandle,TempPtr	;deref the block handle into TempPtr
	rts
;---------------------------------------------------------------
atTheEnd	sec		;indicate at the end (or the beginning)
	rts		;..of the block list
;---------------------------------------------------------------

	ENDP

****************************************************************

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/TextEdit/debug.aii b/IIGS.601.SRC/GSToolbox/TextEdit/debug.aii
new file mode 100644
index 0000000..e955862
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/TextEdit/debug.aii
@@ -0,0 +1 @@
+**********************************************************************
*
*                      GSTextEdit  Version 1.0
*                          File: debug.aii
*
*               Copyright Apple Computer, Inc. 1988-89
*                        All rights reserved
*
*
*
*
* Notes
*
* All the routines in GSTextEdit must be called in full native mode and
* return that way.
*
* All the files in GSTextEdit must be assembled with the "-unsafe"
* option to pass unresolved references to the linker.
*
*
*
*
* Change History
*
* 30 May 89	Dave Good
*
* Cleaned up comments for final release.
*
**********************************************************************


;---------------------------------------------------------------
	INCLUDE  'all.macros'

	INCLUDE  'Tool.Records'
	INCLUDE  'GlobalRecords'
	INCLUDE  'GlobalEquates'

	INCLUDE  '::sys.equs.asm'	


	print on,gen,nopage,nowarn,mcall,obj,data,nomdir,nohdr,lits,nostat,nosym
	string asis
;---------------------------------------------------------------


;---------------------------------------------------------------
BreakFlag	equ  1
TraceFlag	equ  1
HeaderFlag	equ  0
;---------------------------------------------------------------


;---------------------------------------------------------------
	DefineStack
LocalLength	long
TheMaxIndex	word
TheLength	long
TempHandle	long
TempPtr	long
TheHandle	long
ThePtr	long
TheMainPtr	long
DebugRecordPtr	long
InvalidFlag	word
DebugStackSize	DSectSize
TEDirectPage	word
;---------------------------------------------------------------


****************************************************************

DebugCheck	PROC  EXPORT

;---------------------------------------------------------------
 Trace $FF8000
	phd		;save the original direct page
	tsc		;allocate space for the debug variables
	sec
	sbc  #DebugStackSize-1
	tcs
	tcd

	ldx  TEDirectPage
	lda  >$04,x		;this is the RecordHandle
	sta  TheHandle
	lda  >$06,x
	sta  TheHandle+2
	jsr  DerefTheHandle
	movl ThePtr,DebugRecordPtr
;---------------------------------------------------------------
	ldy  #TERecord.SelectionStart
	jsr  GetDRecordLong
	stax ThePtr
	ldy  #TERecord.SelectionEnd
	jsr  GetDRecordLong
	cpx  ThePtr+2
	bltl break1
	bne  @1
	cmp  ThePtr
	bltl break1
@1
;---------------------------------------------------------------
 Trace $FF8010
	ldy  #TERecord.BlockList
	jsr  CheckLinkedList
	bcsl break2
 Trace $FF801F

 Trace $FF8020
	jsr  CheckBlockList
	bcs  break3
 Trace $FF802F
;---------------------------------------------------------------
 Trace $FF8030
	ldy  #TERecord.LineSuper
	jsr  CheckLinkedList
	bcs  break4
 Trace $FF803F

 Trace $FF8040
	ldy  #TERecord.LineSuper
	jsr  CheckSuperArray
	bcs  break5
 Trace $FF804F
;---------------------------------------------------------------
 Trace $FF8050
	ldy  #TERecord.StyleSuper
	jsr  CheckLinkedList
	bcs  break6
 Trace $FF805F

 Trace $FF8060
	ldy  #TERecord.StyleSuper
	jsr  CheckSuperArray
	bcs  break7
 Trace $FF806F
;---------------------------------------------------------------
allDone	tsc
	clc
	adc  #DebugStackSize-1
	tcs
	pld
 Trace $FF800F
	rts
;---------------------------------------------------------------
break1	Break $61	;the selection is invalid
break2	Break $62	;the block list structure is bad
break3	Break $63	;something else is wrong with the block list
break4	Break $64	;the line super structure is bad
break5	Break $65	;something else is wrong with the line super
break6	Break $66	;the style super structure is bad
break7	Break $67	;something else is wrong with the style super
break8	Break $68
break9	Break $69
break10	Break $6A
break11	Break $6B
break12	Break $6C
break13	Break $6D
break14	Break $6E
break15	Break $6F
	bra  allDone
;---------------------------------------------------------------

	ENDP

****************************************************************

CheckBlockList	PROCNAME  Entry

;---------------------------------------------------------------
	ldy  #TERecord.BlockList	;move to the first block in the block
	jsr  GetDRecordLong		;..list
	stax TheHandle
	jsr  DerefTheHandle
@loop1	ldy  #TextBlock.prevHandle
	jsr  MoveToHandle
	bne  @loop1

	stzl TheLength
	lda  #$FFFF		;as long as InvalidFlag is $FFFF, the
	sta  InvalidFlag		;..block start is INVALID.

	jsr  compareWithStart
	bcs  badCache
;---------------------------------------------------------------
mainLoop	ldy  #TextBlock.textLength+2	;get the logical length of the block and
	lda  [ThePtr],y		;..convert it to the physical length
	tax
	dey
	dey
	lda  [ThePtr],y
	and  #$FF00
	clc
	adc  #256+TextBlock.textStart
	bcc  @1
	inx
@1	ldy  #HandleRecord.length	;now compare the calculated physical
	cmp  [TheHandle],y		;..length with the actual physical length
	bne  badLength		;if they don't match, then break
	iny
	iny
	txa
	cmp  [TheHandle],y
	bne  badLength
	ldy  #HandleRecord.attributes
	lda  [TheHandle],y
	bmi  badLocked

	ldy  #TextBlock.textLength	;add this block's length to the
	lda  [ThePtr],y		;..cumulative block length. Then compare
	clc		;..this value with the cached block start
	adc  TheLength		;if they match, mark the block start as
	sta  TheLength		;..valid
	iny
	iny
	lda  [ThePtr],y
	adc  TheLength+2
	sta  TheLength+2

	ldy  #TextBlock.nextHandle	;move to the next block in the list.
	jsr  MoveToHandle
	beq  allDone		;if there are no more, then stop looping

	jsr  compareWithStart
	bcs  badCache

	bra  mainLoop
;---------------------------------------------------------------
allDone	lda  InvalidFlag		;is the cached block start valid ?
	bne  badCache

	clc
	rts
;---------------------------------------------------------------
badCache	ldx  #0
	sec
	rts

badLength	ldx  #1
	sec
	rts

badLocked	ldx  #2
	sec
	rts
;---------------------------------------------------------------



;---------------------------------------------------------------
compareWithStart	ldy  #TERecord.BlockList.cachedTextOffset
	jsr  GetDRecordLong
	cmp  TheLength
	bne  @noCheck
	cpx  TheLength+2
	bne  @noCheck

	stz  InvalidFlag

	ldy  #TERecord.BlockList.cachedHandle
	jsr  GetDRecordLong
	cmp  TheHandle
	bne  @error
	cpx  TheHandle+2
	bne  @error

@noCheck	clc
	rts

@error	sec
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

CheckLinkedList	PROCNAME  Entry

;---------------------------------------------------------------
	jsr  GetDRecordLong		;get the handle to start with and deref
	stax TheHandle		;..it.
	jsr  DerefTheHandle
;---------------------------------------------------------------
checkPrev	movl TheHandle,TheMainPtr	;save the current pointer

@loop	ldy  #TextBlock.textLength+2	;see if the text length field is too large
	lda  [ThePtr],y
	cmp  #$0100
	bgel badLength

	movl TheHandle,TempHandle
	ldy  #TextBlock.prevHandle
	jsr  MoveToHandle
	bcs  badHandle
	beq  checkNext
	ldy  #TextBlock.nextHandle
	jsr  MoveToHandle
	bcs  badHandle
	beq  badHandle
	lda  TempHandle
	cmp  TheHandle
	bne  badList
	lda  TempHandle+2
	cmp  TheHandle+2
	bne  badList
	ldy  #TextBlock.prevHandle
	jsr  MoveToHandle
	bra  @loop
;---------------------------------------------------------------
checkNext	movl TheMainPtr,TheHandle
	jsr  DerefTheHandle

@loop	ldy  #TextBlock.textLength+2	;see if the text length field is too large
	lda  [ThePtr],y
	cmp  #$0100
	bge  badLength

	movl TheHandle,TempHandle
	ldy  #TextBlock.nextHandle
	jsr  MoveToHandle
	bcs  badHandle
	beq  goodList
	ldy  #TextBlock.prevHandle
	jsr  MoveToHandle
	bcs  badHandle
	beq  badHandle
	lda  TempHandle
	cmp  TheHandle
	bne  badList
	lda  TempHandle+2
	cmp  TheHandle+2
	bne  badList
	ldy  #TextBlock.nextHandle
	jsr  MoveToHandle
	bra  @loop
;---------------------------------------------------------------
goodList	clc
	rts
;---------------------------------------------------------------
badLength	ldx  #0
	sec
	rts

badHandle	ldx  #1
	sec
	rts

badList	ldx  #2
	sec
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

CheckSuperArray	PROCNAME  Entry

;---------------------------------------------------------------
	tya		;get pointer into the control record where
	clc		;..we want the super handle to be stored.
	adc  DebugRecordPtr
	sta  TheMainPtr
	lda  DebugRecordPtr+2
	adc  #0
	sta  TheMainPtr+2

	ldy  #2
	lda  [TheMainPtr],y
	sta  TheHandle+2
	lda  [TheMainPtr]
	sta  TheHandle
	jsr  DerefTheHandle
@loop	ldy  #SuperBlock.prevHandle
	jsr  MoveToHandle
	bne  @loop

	stzl TheLength
;---------------------------------------------------------------
mainLoop	ldy  #SuperHandle.itemsPerBlock	;check the size of the handle
	lda  [TheMainPtr],y
	asl  a
	asl  a
	asl  a
	clc
	adc  #SuperBlock.RecordSize
	sta  TheMaxIndex
	ldy  #HandleRecord.length
	cmp  [TheHandle],y
	bne  badLength
	iny
	iny
	lda  [TheHandle],y
	bne  badLength
	inc  TheMaxIndex
	inc  TheMaxIndex

	stzl LocalLength
	ldy  #SuperBlock.RecordSize+2
	jsr  checkAgainstCache
	bcs  badCache
@innerLoop	lda  [ThePtr],y
	bmi  @skipItem
	tax
	dey
	dey
	lda  [ThePtr],y
	clc
	adc  LocalLength
	sta  LocalLength
	txa
	adc  LocalLength+2
	sta  LocalLength+2
	iny
	iny
@skipItem	tya
	clc
	adc  #SuperItemSize
	tay
	jsr  checkAgainstCache
	bcs  badCache
	cpy  TheMaxIndex
	blt  @innerLoop

	ldy  #SuperBlock.textLength
	lda  [ThePtr],y
	cmp  LocalLength
	bne  badBlock
	iny
	iny
	lda  [ThePtr],y
	cmp  LocalLength+2
	bne  badBlock

	lda  LocalLength
	clc
	adc  TheLength
	sta  TheLength
	lda  LocalLength+2
	adc  TheLength+2
	sta  TheLength+2

	ldy  #SuperBlock.nextHandle
	jsr  MoveToHandle
	bne  mainLoop
;---------------------------------------------------------------
goodArray	clc
	rts
;---------------------------------------------------------------
badLength	ldx  #0
	sec
	rts

badCache	ldx  #1
	sec
	rts

badBlock	ldx  #2
	sec
	rts
;---------------------------------------------------------------



;---------------------------------------------------------------
checkAgainstCache	phy
	tya
	dec  a
	dec  a
	ldy  #SuperHandle.cachedIndex
	cmp  [TheMainPtr],y
	bne  @notCached

	ldy  #SuperHandle.cachedHandle
	lda  TheHandle
	cmp  [TheMainPtr],y
	bne  @notCached
	iny
	iny
	lda  TheHandle+2
	cmp  [TheMainPtr],y
	bne  @notCached

	lda  TheLength
	clc
	adc  LocalLength
	tax
	lda  TheLength+2
	adc  LocalLength+2
	ldy  #SuperHandle.cachedTextOffset+2
	cmp  [TheMainPtr],y
	bne  @error
	dey
	dey
	txa
	cmp  [TheMainPtr],y
	bne  @error

@notCached	clc
	ply
	rts

@error	sec
	ply
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

Debug1Proc	PROC

;---------------------------------------------------------------
	ENTRY  MoveToHandle
	ENTRY  DerefTheHandle
;---------------------------------------------------------------

;---------------------------------------------------------------
MoveToHandle	lda  [ThePtr],y
	pha
	iny
	iny
	lda  [ThePtr],y
	tax
	ora  1,s
	tay
	pla
	dey
	iny
	beq  atTheEnd
	cpx  #$0100
	bge  error
	stax TheHandle
;---------------------------------------------------------------
DerefTheHandle	ldy  #2
	lda  [TheHandle],y
	sta  ThePtr+2
	lda  [TheHandle]
	sta  ThePtr
	rep  #%00000010
;---------------------------------------------------------------
atTheEnd	clc
	rts
;---------------------------------------------------------------
error	sec
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

GetDRecordLong	PROCNAME  Entry

;---------------------------------------------------------------
	iny
	iny
	lda  [DebugRecordPtr],y
	tax
	dey
	dey
	lda  [DebugRecordPtr],y
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/TextEdit/debug.macros b/IIGS.601.SRC/GSToolbox/TextEdit/debug.macros
new file mode 100644
index 0000000..cb8e53d
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/TextEdit/debug.macros
@@ -0,0 +1 @@
+****************************************************************
* Dave's debug macro file.
*
* contains macros for putting names in object files
*
* Version 1.0  12/31/88
*
****************************************************************

;---------------------------------------------------------
;;;
;;; 1/8/92 JCM - I'm now using PROCNAME instead of HEADER so we can generate real
;;; GSBug-style inline function names, so this is now obsolete.
;;;
;;;	MACRO
;;;&lab	HEADER
;;;&lab	PROC  EXPORT
;;;
;;;	IF DebugFlag<>0 THEN
;;;		jml  @1
;;;		dc.b  '&lab',0
;;; @1
;;;	ENDIF
;;;	MEND
;;;
;---------------------------------------------------------
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/TextEdit/defproc.aii b/IIGS.601.SRC/GSToolbox/TextEdit/defproc.aii
new file mode 100644
index 0000000..f1480cb
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/TextEdit/defproc.aii
@@ -0,0 +1 @@
+**********************************************************************
*
*                      GSTextEdit  Version 1.0
*                         File: defproc.aii
*
*               Copyright Apple Computer, Inc. 1988-89
*                        All rights reserved
*
*
*
*
* Notes
*
* All the routines in GSTextEdit must be called in full native mode and
* return that way.
*
* All the files in GSTextEdit must be assembled with the "-unsafe"
* option to pass unresolved references to the linker.
*
**********************************************************************
*
* Change History
*
* 30 May 89	Dave Good
*
* Cleaned up comments for final release.
*
* 2/28/90	Mensch
*
* Fixe a bug in the Init routine that caused the sub-controls (grow box and scroll bar)
* to be created as visible even if the TEControl was created invisible. This should
* fix that right up!
*
* 8-Dec-91	Dave Lyons
*
* When NewVertScrollBar creates a scroll bar that reaches the top of the window, the
* top is now -1 instead of 0, so it's visually flush.  (The Scroll Bar bug that made
* this undesirable is now finally fixed.)
*
**********************************************************************
*
* Begin 6.0.1
*
* 15-Oct-92	Dave Lyons for 6.0.1d12
*
* MakeTarget now activates non-target controls if they can never be the target,
* instead of activating if-and-only-if it's the target.
*
**********************************************************************


	INCLUDE  'GlobalIncludes'
	INCLUDE  'E16.Font'


****************************************************************

TEDefProc	PROCNAME  Export

;---------------------------------------------------------------
	DefineStack
OrigOrigin	long
OrigPort	long
OrigB	byte
OrigD	word
RTL	block 3
theCtrlHandle	long
ctrlParam	long
ctrlMessage	word
result	long
;---------------------------------------------------------------

;---------------------------------------------------------------
	DefineStack
RTL_Size	block 3
theCtrlHandle_Size	long
ctrlParam_Size	long
ctrlMessage_Size	word
result_Size	long
;---------------------------------------------------------------

;---------------------------------------------------------------
	lda  ctrlMessage_Size,s	;the entry code takes Å 875 microseconds
	cmp  #19+1		;if the message is too large, then just
	bge  quick_exit		;..cleanup the stack and exit
	cmp  #12		;precheck for the record size message
	bne  notRecordSize

do_recordSize	lda  #TERecord.RecordSize	;return the record size using the special
	sta  result_Size,s		;..stack fram
	lda  #0
	sta  result_Size+2,s

quick_exit	lda  RTL_Size+1,s		;move the return address down
	sta  result_Size-2,s
	lda  RTL_Size,s
	sta  result_Size-3,s
	bra  exit		;cleanup the stack and exit
;---------------------------------------------------------------
notRecordSize	phd		;save the direct page and the data bank
	phb
	phk		;set the data bank to the PC
	plb

	jsr  GetDirectPage		;switch to TextEdit's direct page
	tcd

	lda  theCtrlHandle-8,s	;setup the record handle. Our stack equates
	sta  RecordHandle		;..are not correct, because we haven't
	lda  theCtrlHandle-6,s	;..pushed the port yet
	sta  RecordHandle+2
	jsr  LockRecordHandle

	lda  ctrlMessage_Size+3,s	;check for the init message
	cmp  #3
	bne  @skipTextFlags

	lda  ctrlParam_Size+3,s	;make sure the parameter pointer is set
	sta  ParameterPtr		;..correctly.
	lda  ctrlParam_Size+5,s
	sta  ParameterPtr+2
	ldy  #TEParam.textFlags+2	;copy the high word of the flags parameter
	lda  [ParameterPtr],y
	ldy  #TERecord.TextFlags+2
	sta  [RecordPtr],y
@skipTextFlags
	jsr  SetupWindowPort	;save the origin and the port

	lda  ctrlParam,s		;pass the parameters in ParameterPtr
	sta  ParameterPtr		;NOTE: do this AFTER my direct page has
	lda  ctrlParam+2,s		;..been set
	sta  ParameterPtr+2

	lda  ctrlMessage,s		;dispatch to the right routine
;---------------------------------------------------------------
dispatch	asl  a
	tax
	jsr  (MessageTable,x)
;---------------------------------------------------------------
	sta  result,s		;the exit code takes Å 359 microseconds
	txa		;return the result
	sta  result+2,s

	lda  RTL+1,s		;move the return address down
	sta  result-2,s
	lda  RTL,s
	sta  result-3,s

	jsr  RestoreOriginalPort	;restore the original port and origin
	jsr  UnlockRecordHandle	;unlock the record handle

	plb		;restore the original bank
	pld		;..and direct page
exit	tsc		;adjust the stack
	clc
	adc  #10
	tcs
	rtl		;..and return.
;---------------------------------------------------------------


;---------------------------------------------------------------
return_FFFF	lda  #$FFFF
	tax
	rts
;---------------------------------------------------------------
return_0000	lda  #$0000
	tax
	rts
;---------------------------------------------------------------



;---------------------------------------------------------------
MessageTable	dc.w  do_draw		;0
	dc.w  return_0000		;1
	dc.w  do_test		;2
	dc.w  do_init		;3
	dc.w  do_dispose		;4
	dc.w  return_FFFF		;5
	dc.w  return_FFFF		;6
	dc.w  do_track		;7
	dc.w  return_0000		;8
	dc.w  return_0000		;9
	dc.w  return_0000		;10
	dc.w  do_move		;11
	dc.w  return_0000		;12
	dc.w  do_event		;13
	dc.w  do_target		;14
	dc.w  do_changeBounds	;15
	dc.w  do_growwindow		;16
	dc.w  do_handletab		;17
	dc.w  do_multiPart		;18
	dc.w  do_activate		;19
;---------------------------------------------------------------

	ENDP

****************************************************************

do_init	PROC

;---------------------------------------------------------------
	ldx  #teInvalidPCount
	lda  [ParameterPtr]		;this is always the count field
	cmp  #7		;these are the values that are invalid
	blt  errorExit		;..for the count field
	cmp  #23+1
	bge  errorExit
	cmp  #14
	beq  errorExit
	cmp  #15
	beq  errorExit

	lda  #4*1024		;make sure there is at least 4K free. If
	jsr  GetSmallHandle		;..there is, we don't need to check for
	bcc  enoughMemory		;..any memory errors after this
;---------------------------------------------------------------
errorExit	jsr  SetLastErrorCode	;this notifies the filter proc that
			;..TextEdit is out of memory
	lda  #0
	tax
	rts
;---------------------------------------------------------------
enoughMemory	jsr  KillHandle		;kill the 4K handle to leave space

	stzl TextOffset
	stzl TextStyleOffset

	lda  #$FFFF
	tax
	ldy  #TERecord.CtrlAction	;set the track routine to -1
	jsr  SetRecordLong
	ldy  #TERecord.MaximumChars	;set the max chars field to $FFFF FFFF
	jsr  SetRecordLong
	ldy  #TERecord.MaximumLines	;set the max lines field to $FFFF FFFF
	jsr  SetRecordLong
	jsr  ClearOffsetCache	;mark the offset cache as empty

	lda  #DefaultVertScrollAmount	;set the default vertical scroll amount
	ldy  #TERecord.VertScrollAmount
	sta  [RecordPtr],y

	ldy  #TERecord.CtrlMoreFlags
	lda  [RecordPtr],y
	ora  #$7400		;fCtlCanBeTarget, fCtlWantEvents, fCtlProcRefNotPtr, fCtlIsMultiPart
	and  #$7FFF		;bit 15 must be clear
	sta  [RecordPtr],y

	ldy  #TEParam.textFlags	;copy the flags parameters
	jsr  GetParamLong
	ldy  #TERecord.TextFlags
	jsr  SetRecordLong

	txa		;the high word of the flags is still in
	and  #fDisableSelection	;..X-Reg. Should we be selecting text ?
	beq  @1
	ldy  #TERecord.CtrlMoreFlags	;if not, then clear the fCtlCanBeTarget
	lda  [RecordPtr],y		;..and the fCtlWantEvents bits in the
	and  #$9FFF		;..more flags field
	sta  [RecordPtr],y
@1
;---------------------------------------------------------------
allocateHandles	ldy  #TERecord.LineSuper	;get the line starts super-array
	jsr  GetNewSuperHandle

	ldy  #TERecord.StyleSuper	;get the style runs super-array
	jsr  GetNewSuperHandle

	jsr  NewBlockList		;get a new block list

	lda  #1		;get a handle of the one byte to start
	jsr  GetSmallHandle		;..with
	ldy  #TERecord.theKeyRecord.theInputHandle
	jsr  SetRecordLong
;---------------------------------------------------------------
setBoundsRect	ldy  #TERecord.CtrlMoreFlags	;check to see if the record has a grow box
	lda  [RecordPtr],y
	and  #FCtlTellAboutSize
	pha		;save this information on the stack
	beq  @noGrowBox

	jsr  NewGrowBox

@noGrowBox	jsr  GetWindowPortPtr
	ldy  #TERecord.BoundsRect	;get the bounds rect into TempRect
	jsr  CopyIntoTempRect

	pla		;get back whether the record has a grow
	bne  @useWindowEdge		;..box. If so, use the portRect

	lda  TempRect.bottom
	bne  @continue
	lda  TempRect.right
	bne  @continue

@useWindowEdge	ldy  #GrafPort.portRect.bottom
	lda  [TempPtr],y
	inc  a
	ldy  #TERecord.BoundsRect.bottom
	sta  [RecordPtr],y

	ldy  #GrafPort.portRect.right
	lda  [TempPtr],y
	inc  a
	ldy  #TERecord.BoundsRect.right
	sta  [RecordPtr],y
@continue
;---------------------------------------------------------------
copyIndentRect	ldy  #TERecord.BoundsRect	;get the bounds rect into TempRect
	jsr  CopyIntoTempRect

	lda  [ParameterPtr]
	cmp  #8
	blt  @useDefaults

	ldy  #TEParam.indentRect.left
	lda  [ParameterPtr],y
	cmp  #$FFFF
	bne  @1
	lda  #IndentLeftDefault
@1	clc
	adc  TempRect.left
	sta  TempRect.left

	ldy  #TEParam.indentRect.right
	lda  [ParameterPtr],y
	cmp  #$FFFF
	bne  @2
	lda  #IndentRightDefault
@2	eor  #$FFFF
	sec
	adc  TempRect.right
	sta  TempRect.right

	ldy  #TEParam.indentRect.top
	lda  [ParameterPtr],y
	cmp  #$FFFF
	bne  @3
	lda  #IndentTopDefault
@3	clc
	adc  TempRect.top
	sta  TempRect.top

	ldy  #TEParam.indentRect.bottom
	lda  [ParameterPtr],y
	cmp  #$FFFF
	bne  @4
	lda  #IndentBottomDefault
@4	eor  #$FFFF
	sec
	adc  TempRect.bottom
	sta  TempRect.bottom
	bra  @setView		;then set the view rectangle

@useDefaults	lda  #IndentTopDefault	;use the default indent values
	clc
	adc  TempRect.top
	sta  TempRect.top
	lda  #IndentLeftDefault
	clc
	adc  TempRect.left
	sta  TempRect.left
	lda  #ÅIndentBottomDefault+1
	clc
	adc  TempRect.bottom
	sta  TempRect.bottom
	lda  #ÅIndentRightDefault+1
	clc
	adc  TempRect.right
	sta  TempRect.right

@setView	ldy  #TERecord.ViewRect	;set the text rectangle
	jsr  CopyFromTempRect
;---------------------------------------------------------------
copyScrollBars	lda  [ParameterPtr]
	cmp  #9
	blt  @useDefault1
	ldy  #TEParam.vertBar
	jsr  GetParamLong
	jsr  NewVertScrollBar
@useDefault1
	lda  [ParameterPtr]
	cmp  #10
	blt  @useDefault2
	ldy  #TEParam.vertAmount
	lda  [ParameterPtr],y
	beq  @useDefault2
	ldy  #TERecord.VertScrollAmount
	sta  [RecordPtr],y
@useDefault2
;---------------------------------------------------------------
copyInitialStyle	ldy  #TERecord.CtrlMoreFlags
	lda  [RecordPtr],y
	and  #refIsMask
	sta  InputStyleVerb

	lda  [ParameterPtr]
	cmp  #13
	blt  @useDefaults
	ldy  #TEParam.styleRef
	jsr  GetParamLong
	stax InputStyleRef
	ora  InputStyleRef+2	;if the styleRef is zero, use defaults
	beq  @useDefaults

@useParamBlock	jsr  GetTerminatedHandle	;get a four byte terminated handle
	ldy  #TERecord.StyleList	;put the handle in the TE record
	jsr  SetRecordLong

	jsr  GetTerminatedHandle	;get the ruler list offset table.
	ldy  #TERecord.RulerList	;put the handle in the TE record
	jsr  SetRecordLong
	brl  @continue

@useDefaults	
; 12/20/89 Mensch
; Fix bug where style info would be bogus if it was not passed
;
	stz  InputStyleVerb
	stzL InputStyleRef		; zero the initial style ref cause of Bug
	
	jsr  GetWindowPortPtr
	stax MemoryPtr

	lda  #TEStyle.RecordSize+4	;get a new clear handle of the proper size
	jsr  GetClearHandle
	stax TempPtr
	ldy  #TERecord.StyleList	;put the handle in the TE record
	jsr  SetRecordLong
	jsr  DerefTempPtr

	ldy  #GrafPort.FontID	;copy the fontID into the TEStyle
	lda  [MemoryPtr],y
	ldy  #TEStyle.fontID
	sta  [TempPtr],y
	dec  a		;force an install font
	ldy  #GrafPort.FontID
	sta  [DrawPortPtr],y
	ldy  #GrafPort.FontID+2
	lda  [MemoryPtr],y
	ldy  #TEStyle.fontID+2
	sta  [TempPtr],y

	ldy  #GrafPort.FGColor
	lda  [MemoryPtr],y
	ldy  #TEStyle.foreColor
	sta  [TempPtr],y

	ldy  #GrafPort.BGColor
	lda  [MemoryPtr],y
	ldy  #TEStyle.backColor
	sta  [TempPtr],y

	ldy  #TEStyle.RecordSize
	jsr  TerminateTempPtr

	jsr  GetPort		;save the current port on the stack
	jsr  SetDrawPort		;switch to the offscreen drawing port
	jsr  InstallFontAndColor	;install the new font and correct the
	jsr  ReleaseFont		;..style list. Then release the font
	jsr  SetPort		;restore the original port

	lda  #TERuler.RecordSize+4	;get a ruler that has default tabs and
	jsr  GetClearHandle		;..four more bytes for the terminator
	stax TempPtr
	ldy  #TERecord.RulerList	;put the handle in the TE record
	jsr  SetRecordLong
	jsr  DerefTempPtr

	ldy  #TERuler.tabType
	lda  #DefaultTabType
	sta  [TempPtr],y
	ldy  #TERuler.numberOfTabs
	lda  #DefaultTabValue
	sta  [TempPtr],y

	ldy  #TERecord.ViewRect.right
	lda  [RecordPtr],y
	sec
	ldy  #TERecord.ViewRect.left
	sbc  [RecordPtr],y
	ldy  #TERuler.rightMargin
	sta  [TempPtr],y

	ldy  #TERuler.RecordSize
	jsr  TerminateTempPtr
@continue
;---------------------------------------------------------------
copyInitialText	lda  [ParameterPtr]
	cmp  #16
	blt  @useDefaults

	ldy  #TEParam.textVerb
	lda  [ParameterPtr],y
	sta  InputTextVerb

	ldy  #TEParam.textRef
	jsr  GetParamLong
	stax InputTextRef

	ldy  #TEParam.textLength
	jsr  GetParamLong
	stax InputTextLength
	bra  @continue
@useDefaults
	stz  InputTextVerb
	stzl InputTextRef
	stzl InputTextLength
@continue
;---------------------------------------------------------------
copyMaxFields	lda  [ParameterPtr]
	cmp  #17
	blt  @useDefault1
	ldy  #TEParam.maxChars	;copy the max chars field. If it is zero
	jsr  GetParamLong		;..then use $FFFF FFFF
	stx  TempWord
	tsb  TempWord
	ldy  TempWord
	beq  @useDefault1
	ldy  #TERecord.MaximumChars
	jsr  SetRecordLong

@useDefault1	lda  [ParameterPtr]
	cmp  #18
	blt  @useDefault2
	ldy  #TEParam.maxLines	;copy the max lines field. If it is zero
	jsr  GetParamLong		;..then use $FFFF FFFF
	stx  TempWord
	tsb  TempWord
	ldy  TempWord
	beq  @useDefault2
	ldy  #TERecord.MaximumLines
	jsr  SetRecordLong

@useDefault2	lda  [ParameterPtr]
	cmp  #19
	blt  @useDefault3
	ldy  #TEParam.maxHeight
	lda  [ParameterPtr],y
	ldy  #TERecord.MaximumHeight
	sta  [RecordPtr],y
@useDefault3
	lda  [ParameterPtr]
	cmp  #20
	blt  @useDefault4
	ldy  #TEParam.maxCharsPerLine
	lda  [ParameterPtr],y
	ldy  #TERecord.MaximumCharsPerLine
	sta  [RecordPtr],y
@useDefault4
;---------------------------------------------------------------
copyColorRef	lda  [ParameterPtr]
	cmp  #21
	blt  @useDefault

	ldy  #TEParam.colorRef	;copy the color table parameter
	jsr  GetParamLong
	ldy  #TERecord.ColorRef
	jsr  SetRecordLong
@useDefault
;---------------------------------------------------------------
copyDrawMode	lda  [ParameterPtr]
	cmp  #22
	blt  @useDefault

	ldy  #TEParam.textDrawMode	;copy the draw mode parameter
	lda  [ParameterPtr],y
	ldy  #TERecord.TextDrawMode
	sta  [RecordPtr],y
@useDefault
;---------------------------------------------------------------
copyFilterProc	lda  [ParameterPtr]
	cmp  #23
	blt  @useDefault

	ldy  #TEParam.filterProc	;copy the filter proc parameter
	jsr  GetParamLong
	ldy  #TERecord.FilterProc
	jsr  SetRecordLong
@useDefault
;---------------------------------------------------------------
	jsr  SetInitialTextAndStyle	;this will set the LastErrorCode field if
	bcc  @makeItActive		;..there is an error. If there is an error

 	jsr  do_dispose		;..then, kill all the fields that we
	bra  @exit		;..allocated

@makeItActive	jsr  MakeControlActive

@exit	lda  #0
	tax
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

do_dispose	PROC

;---------------------------------------------------------------
	ldy  #TERecord.LineSuper
	jsr  KillSuperHandle

	ldy  #TERecord.StyleSuper
	jsr  KillSuperHandle

	jsr  KillBlockList

	ldy  #TERecord.StyleList
	jsr  checkAndKill

	ldy  #TERecord.RulerList
	jsr  checkAndKill

	jsr  GetVertScrollBar
	jsr  KillControl

	jsr  GetGrowBoxHandle
	jsr  KillControl

	ldy  #TERecord.theKeyRecord.theInputHandle
	jsr  checkAndKill
	jsr  KillHandle

	lda  #0
	tax
	rts
;---------------------------------------------------------------
checkAndKill	phy
	jsr  GetRecordLong
	inc  a
	dec  a
	bne  @kill
	inx
	dex
	beq  @skip

@kill	jsr  KillHandle

@skip	ply
	lda  #0
	tax
	brl  SetRecordLong
;---------------------------------------------------------------

	ENDP

****************************************************************

do_draw	PROC

;---------------------------------------------------------------
	jsr  AreWeInvisible
	bne  allDone
;---------------------------------------------------------------
	jsr  GetTEHighFlags
	and  #fDrawBounds
	beq  skipRect

	jsr  SetupColorPtr		;the pattern to use is the outline color
	ldy  #TEColorTable.outline	;..in the color table
	lda  [TempPtr],y
	ldx  #$FFFF		;the mask is all $FFFF
	jsr  SetupPenState

	ldy  #TERecord.BoundsRect	;copy the boundary rectangle into TempRect
	jsr  CopyIntoTempRect
	PushZPtr TempRect		;frame it.
	_FrameRect

	jsr  RestorePenState
;---------------------------------------------------------------
skipRect	jsr  EraseFrame

	jsr  GetDrawRect
	lda  DrawRect.left
	cmp  DrawRect.right
	beq  allDone

	jsr  DoDraw
;---------------------------------------------------------------
allDone	lda  #0		;return zero
	tax
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

do_test	PROC

;---------------------------------------------------------------
	PushWordSpace		;push space for result
	PushZPtr ParameterPtr	;push pointer to the point
	lda  RecordPtr
	clc
	adc  #TERecord.BoundsRect
	tax
	lda  RecordPtr+2
	adc  #0
	pha		;push pointer to the rect
	phx
	_PtInRect
  	pla
	beql done		;return zero if not in the entire box
;---------------------------------------------------------------
	ldy  #TERecord.CtrlMoreFlags
	lda  [RecordPtr],y
	and  #fCtlTarget
	bne  @isActive

	jsr  GetTEHighFlags		;check to see if we are drawing an
	and  #fDrawInactiveSelc	;..inactive selection. If so, then don't
	bne  @skipNoFlicker		;..change the old selection

	jsr  GetVertScrollBar	;if the point is in either the scroll bar
	jsr  ptInControl		;..or the grow box, then don't change the
	bne  @skipNoFlicker		;..selection

	jsr  GetGrowBoxHandle
	jsr  ptInControl
	bne  @skipNoFlicker

	lda  #0		;indicate that we have a single click
	ldy  #TERecord.MouseKind
	sta  [RecordPtr],y
	tax
	ldy  #TERecord.MouseTime	;..and clear the double click time
	jsr  SetRecordLong

	lda  ParameterPtr		;copy the point into our variables and
	sta  TextVPos		;..convert this to an offset
	lda  ParameterPtr+2
	sta  TextHPos
	jsr  PointToOffset

	jsr  SetSelectionStart	;set the selection start and end to this
	jsr  SetSelectionEnd	;..offset
@skipNoFlicker
	PushZLong ParameterPtr	;save the point we are testing
	jsr  MakeControlActive	;if the record wasn't active, then activate it
	jsr  SetWindowPort		;re-set the window port in case it changed
	PullLong ParameterPtr	;restore the point we are testing
@isActive
;---------------------------------------------------------------
	jsr  GetVertScrollBar	;check to see if the point is in the
	jsr  ptInControl		;..control. If it is we exit with Scroll
	beq  @notInScroll		;..Bar_Part
	lda  #ScrollBar_Part
	bra  done
@notInScroll
	jsr  GetGrowBoxHandle	;check to see if the point is in the
	jsr  ptInControl		;..control. If it is we exit with GrowBox
	beq  @notInGrow		;.._Part
	lda  #GrowBox_Part
	bra  done
@notInGrow
	PushZPtr ParameterPtr	;convert the point to global coordinates
	_LocalToGlobal

	ldy  #TERecord.LastClick
	lda  ParameterPtr		;this is the vertical coordinate of the point
	sta  [RecordPtr],y
	iny
	iny
	lda  ParameterPtr+2		;this is the horizontal coordinate of the point
	sta  [RecordPtr],y

	lda  #Text_Part		;if neither of these, we are in the text
;---------------------------------------------------------------
done	ldx  #0
	rts
;---------------------------------------------------------------



;---------------------------------------------------------------
ptInControl	beq  @done

	jsr  DerefAX
	clc
	adc  #CtrlRecord.ctlRect
	bcc  @1
	inx
@1	stax TempLong
	PushWordSpace		;push space for result
	PushZPtr ParameterPtr	;push pointer to the point
	PushZLong TempLong
	_PtInRect
	pla		;if the Z-Flag is set we are not in the
@done	rts		;..control, if clear we are in the 
;---------------------------------------------------------------

	ENDP

****************************************************************

do_track	PROC

;---------------------------------------------------------------
	lda  ParameterPtr
	pha		;save the part code
	bne  @checkForTrack
	pla		;cleanup the stack
	lda  #0		;return zero if the entire control is to
	tax		;..be dragged
	rts

@checkForTrack	ldy  #TERecord.SelectionActive	;if the record is not active, then don't
	lda  [RecordPtr],y		;..track it
	bmi  @exit
	plx		;get back the part code
	cpx  #Text_Part
	beq  doText
	cpx  #ScrollBar_Part
	bne  @doGrow

	jsr  TakeCareOfUpdate	;make sure any update event is handled first
	jsr  GetVertScrollBar
	bra  @trackIt
@doGrow	jsr  GetGrowBoxHandle
@trackIt	beq  allDone
	stax TempPtr
	PushWordSpace
	PushZPtr TempLong		;get the current mouse position
	_GetMouse
	PushZPtr TempLong
	_LocalToGlobal
	PushZLong TempLong		;push it for the scroll bar
	PushLong #$FFFFFFFF
	PushZLong TempPtr
	_TrackControl
@exit	pla		;discard the part code
	bra  allDone
;---------------------------------------------------------------
doText	jsr  GetTEHighFlags		;should we be selecting text ? If not,
	and  #fDisableSelection	;..then exit
	bne  allDone

	jsr  TakeCareOfUpdate	;make sure any update event is handled first

	lda  RecordPtr		;set the event record pointer to our
	clc		;..spot in the Text Edit record.
	adc  #TERecord.theEvent
	sta  TheEventPtr
	lda  RecordPtr+2
	adc  #0
	sta  TheEventPtr+2
	PushWordSpace
	PushWord #0
	PushZLong TheEventPtr
	_GetNextEvent
	pla		;discard the result

	ldy  #TERecord.LastClick+2	;copy the last clicked point to the event
	lda  [RecordPtr],y		;..where section
	tax
	dey
	dey
	lda  [RecordPtr],y
	ldy  #TERecord.theEvent.where
	sta  [RecordPtr],y
	iny
	iny
	txa
	sta  [RecordPtr],y

	jsr  DoSelectText
;---------------------------------------------------------------
allDone	lda  #$FFFF
	tax
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

do_event	PROC

;---------------------------------------------------------------
	jsr  AreWeInvisible
	bne  notHandled

	movl ParameterPtr,TheEventPtr

	ldy  #EventRecord.what
	lda  [TheEventPtr],y
	cmp  #nullEvt
	beq  doIdle
	cmp  #keyDownEvt
	beq  doKey
	cmp  #autoKeyEvt
	beq  doKey
	cmp  #wInSpecial
	beq  doMenu
;---------------------------------------------------------------
notHandled	lda  #0		;didn't handle the event
	tax
	rts
;---------------------------------------------------------------
doMenu	ldy  #TaskRecord.taskData
	lda  [TheEventPtr],y
	sec
	sbc  #UndoItemID
	beq  notHandled
	cmp  #5
	bge  notHandled
	asl  a
	tax
	jsr  (MenuTable,x)
	bra  gotTheEvent
;---------------------------------------------------------------
doIdle	jsr  DoIdleEvent
	bra  notHandled
;---------------------------------------------------------------
doKey	ldy  #EventRecord.message
	lda  [TheEventPtr],y
	and  #$00FF
	cmp  #TAB
	bne  @checkCommandKey
	jsr  GetTEHighFlags
	and  #fTabSwitch
	beq  insertKey

	PushZLong RecordHandle
	PushLongSpace
	_MakeNextCtlTarget
	PullAX
	ply
	sty  TempLong
	ply
	sty  TempLong+2
	cmp  TempLong
	bne  @notSame
	cpx  TempLong+2
	beq  gotTheEvent

@notSame	PushLongSpace
	PushAX
	PushWord #CtlHandleTab
	PushLong #0
	_CallCtlDefProc
	pla
	pla
	bra  gotTheEvent

*** added 20-Sep-91 DAL -- don't claim Command-key events that we won't use
@checkCommandKey	tax		;keep character in X
	ldy  #EventRecord.message
	lda  [TheEventPtr],y
	and  #$0100
	beq  @goAhead
	cpx  #$0008	;left arrow
	beq  @goAhead
	cpx  #$0015	;right arrow
	beq  @goAhead
	cpx  #$000A	;down arrow
	beq  @goAhead
	cpx  #$000B	;up arrow
	beq  @goAhead
	cpx  #$007F	;delete key
	bnel notHandled
@goAhead	txa
*** end 20-Sep-91

insertKey	jsr  DoKeystroke
;---------------------------------------------------------------
gotTheEvent	lda  #$FFFF		;handled the event
	tax
	rts
;---------------------------------------------------------------



;---------------------------------------------------------------
MenuTable	dc.w  notHandled		;0
	dc.w  CutGuts		;1
	dc.w  CopyGuts		;2
	dc.w  PasteGuts		;3
	dc.w  ClearGuts		;4
;---------------------------------------------------------------

	ENDP

****************************************************************

do_move	PROC

;---------------------------------------------------------------
	DSECT ParameterPtr
vertChange	word
horzChange	word
;---------------------------------------------------------------

;---------------------------------------------------------------
	ldy  #TERecord.ViewRect.top
	lda  [RecordPtr],y
	clc
	adc  vertChange
	sta  [RecordPtr],y

	ldy  #TERecord.ViewRect.bottom
	lda  [RecordPtr],y
	clc
	adc  vertChange
	sta  [RecordPtr],y

	ldy  #TERecord.ViewRect.left
	lda  [RecordPtr],y
	clc
	adc  horzChange
	sta  [RecordPtr],y

	ldy  #TERecord.ViewRect.right
	lda  [RecordPtr],y
	clc
	adc  horzChange
	sta  [RecordPtr],y
;---------------------------------------------------------------
	ldy  #TERecord.MouseRect.top
	lda  [RecordPtr],y
	clc
	adc  vertChange
	sta  [RecordPtr],y

	ldy  #TERecord.MouseRect.bottom
	lda  [RecordPtr],y
	clc
	adc  vertChange
	sta  [RecordPtr],y

	ldy  #TERecord.MouseRect.left
	lda  [RecordPtr],y
	clc
	adc  horzChange
	sta  [RecordPtr],y

	ldy  #TERecord.MouseRect.right
	lda  [RecordPtr],y
	clc
	adc  horzChange
	sta  [RecordPtr],y
;---------------------------------------------------------------
	jsr  GetVertScrollBar
	jsr  moveTheCtrl

	jsr  GetGrowBoxHandle
	jsr  moveTheCtrl

	rts
;---------------------------------------------------------------



;---------------------------------------------------------------
moveTheCtrl	beq  @skip
	PushLongSpace
	PushAX
	jsr  DerefAX
	stax TempPtr
	ldy  #CtrlRecord.ctlRect.top
	lda  [TempPtr],y
	clc
	adc  vertChange
	sta  5,s
	ldy  #CtrlRecord.ctlRect.left
	lda  [TempPtr],y
	clc
	adc  horzChange
	sta  7,s
	_MoveControl
@skip	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

DefProc1Proc	PROC

;---------------------------------------------------------------
	ENTRY  do_target
	ENTRY  do_activate
;---------------------------------------------------------------

;---------------------------------------------------------------
do_target	ldy  #TERecord.CtrlMoreFlags
	lda  [RecordPtr],y
	bmi  makeTarget
	bra  unmakeTarget
;---------------------------------------------------------------
do_activate	lda  ParameterPtr
	bne  makeTarget
;---------------------------------------------------------------
unmakeTarget	ldy  #TERecord.SelectionActive
	lda  [RecordPtr],y
	bmi  exit
	jsr  DeactivateSelection
	lda  #$FFFF
	bra  setTheState
;---------------------------------------------------------------
makeTarget	ldy  #TERecord.SelectionActive
	lda  [RecordPtr],y
	bpl  exit
;;;	ldy  #TERecord.CtrlMoreFlags	;if the record is not the target control
;;;	lda  [RecordPtr],y		;..then don't activate it
;;;	bpl  exit
*** 15-Oct-92 DAL -- make makeTarget activate non-target controls if they can never be the target
	ldy  #TERecord.CtrlMoreFlags	;if the record is not the target control
	lda  [RecordPtr],y		;..but it *could* be then don't activate it
	and  #fCtlCanBeTarget+fCtlTarget
	cmp  #fCtlCanBeTarget
	beq  exit
*** end 15-Oct-92
	jsr  ActivateSelection
	lda  #$0000
;---------------------------------------------------------------
setTheState	ldy  #TERecord.SelectionActive
	sta  [RecordPtr],y

	and  #$00FF		;mask off the high byte of the hilight
	sta  TempWord		;..code and save it in TempWord
	
; 1/11/90 Mensch
; Add the following test to see if the control is visible before performing the following
; operations. This will prevent the controls from being drawn when the TERecord is invisible
;
	ldy  #TERecord.CtrlFlag	; 
	lda [RecordPtr],y
	and #fInvisible
	bne @DontBother
	jsr  GetVertScrollBar
	jsr  hiliteTheControl
	jsr  GetGrowBoxHandle
	jsr  hiliteTheControl
@DontBother
;
; End of change...

exit	lda  #0
	tax
	rts
;---------------------------------------------------------------



;---------------------------------------------------------------
hiliteTheControl	beq  @skip		;if the control doesn't exist, then exit

	stax TempLong
	jsr  DerefAX
	stax TempPtr
	ldy  #CtrlRecord.ctlHilite
	lda  [TempPtr],y
	cmp  TempWord
	beq  @skip

	jsr  GetPort		;save the original port

	ldy  #CtrlRecord.ctlOwner+2	;set the port to the control's port
	lda  [TempPtr],y
	pha
	dey
	dey
	lda  [TempPtr],y
	pha
	jsr  SetPort

	ldy  #CtrlRecord.ctlRect	;copy the control rect into TempRect
	lda  [TempPtr],y
	sta  TempRect.top
	iny
	iny
	lda  [TempPtr],y
	sta  TempRect.left
	iny
	iny
	lda  [TempPtr],y
	sta  TempRect.bottom
	iny
	iny
	lda  [TempPtr],y
	sta  TempRect.right
	PushZPtr TempRect		;validate the control rect, so we don't
	_ValidRect		;..draw twice

	PushZWord TempWord		;push the hilight code, then the control
	PushZLong TempLong		;..handle
	_HiliteControl

	jsr  SetPort		;restore the original port

@skip	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

do_changeBounds	PROC

; ###################################################################################
; ##############################  insert routine here  ##############################
; ###################################################################################

	rts

	ENDP

****************************************************************

do_growwindow	PROC

;---------------------------------------------------------------
calcNewBounds	jsr  GetWindowPortPtr	;get the old bounds rect into TempRect
	ldy  #TERecord.BoundsRect
	jsr  CopyIntoTempRect

	ldy  #GrafPort.portRect.bottom	;set the new bottom coordinate of the
	lda  [TempPtr],y		;..boundsRect
	inc  a
	sta  TempRect.bottom

	ldy  #GrafPort.portRect.right	;set the new right coordinate of the
	lda  [TempPtr],y		;..boundsRect
	inc  a
	sta  TempRect.right

	lda  TempRect.top		;make sure the boundsRect is a certain
	clc		;..minimum size.
	adc  #MinBoundsDeltaV
	cmp  TempRect.bottom
	blt  @1
	sta  TempRect.bottom
@1
	lda  TempRect.left
	clc
	adc  #MinBoundsDeltaH
	cmp  TempRect.right
	blt  @2
	sta  TempRect.right
@2
;---------------------------------------------------------------
calcNewView	lda  TempRect.right		;calculate the new view right and bottom
	sec		;..and set them in the record.
	ldy  #TERecord.BoundsRect.right
	sbc  [RecordPtr],y
	pha		;save the horizontal difference for adjust
	clc		;..ruler
	ldy  #TERecord.ViewRect.right
	adc  [RecordPtr],y		;also save the new view rect values on the
	sta  [RecordPtr],y		;..stack, since NewVertScrollBar will
	pha		;..trash the view rect.

	lda  TempRect.bottom
	sec
	ldy  #TERecord.BoundsRect.bottom
	sbc  [RecordPtr],y
	clc
	ldy  #TERecord.ViewRect.bottom
	adc  [RecordPtr],y
	sta  [RecordPtr],y
	pha
;---------------------------------------------------------------
setNewBounds	ldy  #TERecord.BoundsRect	;set the new boundsRect properly
	jsr  CopyFromTempRect

	PushZPtr TempRect		;invalidate the new boundsRect
	_InvalRect
;---------------------------------------------------------------
moveGrowBox	jsr  GetGrowBoxHandle	;kill the old grow box and get a new one
	jsr  KillControl
	jsr  NewGrowBox

	jsr  GetScrollBarPtr	;save the data, view and value for
	ldy  #CtrlRecord.ctlRect.right	;..the old scroll bar
	lda  [TempPtr],y
	sec
	ldy  #CtrlRecord.ctlRect.left
	sbc  [TempPtr],y
	pha
	ldy  #CtrlRecord.ctlValue
	lda  [TempPtr],y
	pha
	ldy  #CtrlRecord.dataSize
	lda  [TempPtr],y
	pha
	ldy  #CtrlRecord.viewSize
	lda  [TempPtr],y
	pha

	jsr  GetVertScrollBar	;kill the old scroll bar and get a new
	jsr  KillControl		;..one
	lda  #$FFFF
	tax
	jsr  NewVertScrollBar
	jsr  flipScrollBarVis	;make the scroll bar invisible

	jsr  GetVertScrollBar	;restore the data and view size
	PushAX
	_SetCtlParams

	jsr  GetVertScrollBar	;restore the value
	PushAX
	_SetCtlValue

	jsr  GetScrollBarPtr	;save the data, view and value for
	ldy  #CtrlRecord.ctlRect.right	;..the old scroll bar
	lda  [TempPtr],y
	sec
	ldy  #CtrlRecord.ctlRect.left
	sbc  [TempPtr],y
	eor  #$FFFF
	sec
	adc  1,s
	tax
	clc		;adjust the view rect by the difference
	adc  5,s		;..in the scroll bars
	sta  5,s
	txa
	clc		;adjust the right margin amount by the
	adc  7,s		;..difference in the scroll bars
	sta  7,s
	plx
;---------------------------------------------------------------
restoreNewView	ldy  #TERecord.ViewRect.bottom	;restore the new view rect
	pla
	sta  [RecordPtr],y
	ldy  #TERecord.ViewRect.right
	pla
	sta  [RecordPtr],y
;---------------------------------------------------------------
adjustRuler	jsr  GetTEHighFlags
	and  #fGrowRuler
	beq  @justReset

	jsr  GetRightMargin		;adjust the right margin by the difference
	clc		;..(still on the stack)
	adc  1,s
	sta  [TempPtr],y		;Y-Reg is still set here
	jsr  InitialWordWrap	;rewrap the text
	bra  @cleanup

@justReset	jsr  ResetScrollBar		;reset the new scroll bar

@cleanup	pla		;cleanup the stack
	jsr  flipScrollBarVis	;make the scroll bar visible again

	lda  #0
	tax
	rts
;---------------------------------------------------------------



;---------------------------------------------------------------
flipScrollBarVis	jsr  GetScrollBarPtr
	ldy  #CtrlRecord.ctlFlag
	lda  [TempPtr],y
	eor  #$80
	sta  [TempPtr],y
	rts
;---------------------------------------------------------------
GetScrollBarPtr	jsr  GetVertScrollBar
	jsr  DerefAX	
	stax TempPtr
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

do_handletab	PROC

;---------------------------------------------------------------
	jsr  IsTheSelectionACaret
	bne  @1
	jsr  UnhilightSelection
@1
	jsr  GetSelectionStart
	lda  TextOffset
	ora  TextOffset+2
	beq  skipStart

	ldy  #TERecord.SelectionEnd
	jsr  PushRecordLong
	jsr  SetSelectionEnd
	stzl TextOffset
	jsr  SetSelectionStart
	jsr  InvertSelection
	PullLong TextOffset
	jsr  SetSelectionEnd
;---------------------------------------------------------------
skipStart	jsr  GetSelectionEnd
	jsr  IsOffsetAtEnd
	beq  skipEnd

	jsr  SetSelectionStart
	jsr  GetTextLength
	ldy  #TERecord.SelectionEnd
	jsr  SetRecordLong
	jsr  InvertSelection
	stzl TextOffset
	jsr  SetSelectionStart
;---------------------------------------------------------------
skipEnd	ldy  #TERecord.SelectionState
	lda  #$FFFF
	sta  [RecordPtr],y
;---------------------------------------------------------------
	lda  #0
	tax
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

do_multiPart	PROC

;---------------------------------------------------------------
	lda  ParameterPtr
	cmp  #2
	blt  hideIt
	cmp  #3
	beq  drawIt
;---------------------------------------------------------------
showIt	jsr  GetVertScrollBar
	jsr  showTheCtrl

	jsr  GetGrowBoxHandle
	jsr  showTheCtrl		;fall straight thru into draw it
;---------------------------------------------------------------
drawIt	jsr  GetVertScrollBar	;draw each one of the sub controls
	jsr  drawTheCtrl

	jsr  GetGrowBoxHandle
	jsr  drawTheCtrl

	bra  allDone
;---------------------------------------------------------------
hideIt	jsr  GetVertScrollBar
	jsr  hideTheCtrl

	jsr  GetGrowBoxHandle
	jsr  hideTheCtrl
;---------------------------------------------------------------
allDone	lda  #0
	tax
	rts
;---------------------------------------------------------------



;---------------------------------------------------------------
drawTheCtrl	beq  @done		;if the control handle is NULL, then skip
	PushAX
	_DrawOneCtl

@done	rts
;---------------------------------------------------------------



;---------------------------------------------------------------
showTheCtrl	beq  @done		;if the control handle is NULL, then skip
	jsr  DerefAX		;..this routine
	stax TempPtr

	ldy  #CtrlRecord.ctlFlag
	lda  [TempPtr],y
	and  #$FF7F
	sta  [TempPtr],y
@done	rts
;---------------------------------------------------------------



;---------------------------------------------------------------
hideTheCtrl	beq  @done		;if the control handle is NULL, then skip
	jsr  DerefAX		;..this routine
	stax TempPtr

	ldy  #CtrlRecord.ctlFlag
	lda  [TempPtr],y
	ora  #$0080
	sta  [TempPtr],y

	ldy  #CtrlRecord.ctlRect.right
	ldx  #6
@loop	lda  [TempPtr],y
	sta  TempRect.top,x
	dey
	dey
	dex
	dex
	bpl  @loop

	PushZPtr TempRect
	_EraseRect

	lda  ParameterPtr
	dec  a
	beq  @done
	PushZPtr TempRect
	_InvalRect

@done	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

MakeControlActive	PROCNAME  Export

;---------------------------------------------------------------
	jsr  GetTEHighFlags		;check to see if the record is a control
	and  #fNotControl		;..or not
	bne  @notAControl
;---------------------------------------------------------------
	ldy  #TERecord.CtrlMoreFlags	;if the control can't be a target, then
	lda  [RecordPtr],y		;..skip
	and  #fCtlCanBeTarget
	beq  @exit

	PushZLong RecordHandle	;save variables against recursion
	PushZLong RecordHandle
	_MakeThisCtlTarget
	PullLong RecordHandle
	bra  @exit
;---------------------------------------------------------------
@notAControl	ldy  #TERecord.CtrlMoreFlags
	lda  [RecordPtr],y
	ora  #fCtlTarget
	sta  [RecordPtr],y

	lda  #0		;pass zero for the parameters
	tax
	ldy  #ctlChangeActivity	;the message is change activity
	jsr  CallDefProc
;---------------------------------------------------------------
@exit	brl  LockRecordHandle
;---------------------------------------------------------------

	ENDP

****************************************************************

FakeNewControl	PROCNAME  Export

;---------------------------------------------------------------
	ldax #TERecord.RecordSize	;don't bother calling the defproc. Just
	jsr  GetClearHandle		;..get a clear handle of the correct size
	bcc  @noError
	txa		;put the error code in A-Reg. The carry
	rts		;..is already set, so exit

@noError	stax RecordHandle
	jsr  LockRecordHandle
;---------------------------------------------------------------
	jsr  GetPort
	PullAX
	ldy  #TERecord.inPort
	jsr  SetRecordLong

	ldy  #TEParam.ID
	jsr  GetParamLong
	ldy  #TERecord.CtrlID
	jsr  SetRecordLong

	ldy  #TEParam.boundsRect
	jsr  GetParamLong
	ldy  #TERecord.BoundsRect
	jsr  SetRecordLong
	ldy  #TEParam.boundsRect+4
	jsr  GetParamLong
	ldy  #TERecord.BoundsRect+4
	jsr  SetRecordLong

	ldy  #TEParam.ctlFlags
	lda  [ParameterPtr],y
	ldy  #TERecord.CtrlFlag
	sta  [RecordPtr],y

	ldy  #TEParam.ctlMoreFlags
	lda  [ParameterPtr],y
	ldy  #TERecord.CtrlMoreFlags
	sta  [RecordPtr],y

	ldy  #TEParam.refCon
	jsr  GetParamLong
	ldy  #TERecord.CtrlRefCon
	jsr  SetRecordLong

	lda  #TextEditControl>>16	;set the high word of the control proc 
	ldy  #TERecord.CtrlProc+2	;..field
	sta  [RecordPtr],y
;---------------------------------------------------------------
	jsr  UnlockRecordHandle

	PushLongSpace		;result
	PushWord #3		;message
	PushLong ParameterPtr	;parameters
	PushZLong RecordHandle	;control handle
	jsl  TEDefProc

	lda  5,s		;move the return address
	sta  1,s
	lda  RecordHandle		;return the record handle
	sta  3,s
	lda  RecordHandle+2
	sta  5,s

	lda  #0		;return no error
	clc
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

NewGrowBox	PROCNAME  Entry

;---------------------------------------------------------------
	jsr  GetWindowPortPtr

	PushLongSpace		;the width of the scroll bar is the size
	_GrowSize		;..of the grow icon

	ldy  #GrafPort.portRect.bottom
	lda  [TempPtr],y
	inc  a
	sta  TempRect.bottom
	sec
	sbc  1,s
	sta  TempRect.top
	pla

	ldy  #GrafPort.portRect.right
	lda  [TempPtr],y
	inc  a
	sta  TempRect.right
	sec
	sbc  1,s
	sta  TempRect.left
	pla

;
; 2/28/90	Mensch
;
; Fix bug in the visibility of the scroll bar. Seems that we never took the TERecords visibility
; into account when we created the scroll bar. This should fix that...
;
	ldy #TERecord.CtrlFlag
	lda [RecordPtr],y		; get the TERecords ctlFlag field
	and #fInVisible		; strip off the visible bit..
	pha
	lda >MyTempFlags		; get the template value...
	and #$FF7F		; strip the old visible setting
	ora 1,s
	sta >MyTempFlags
	pla

	ldy  #GrowTemplate.RecordSize	;create a new handle and copy this
	ldax #myTemplate		;..template into it. The size is in Y-Reg
	jsr  CopyTemplateToHand

	ldy  #TEColorTable.growVerb
	ldx  #GrowTemplate.ColorRef+2
	jsr  MakeTheControl		;this creates the control

	ldy  #TERecord.GrowBoxHandle
	brl  SetRecordLong
;---------------------------------------------------------------

;---------------------------------------------------------------
myTemplate	dc.w  7		;parameter count
	dc.l  0		;ID number
	ds.w  4		;space for the bounding rectangle
	dc.l  $88000000		;procRef
MyTempFlags	dc.w  $0001		;flags - indicates vertical scroll bar
	dc.w  $1000		;initial more flags
	dc.l  0		;refCon
	ds.l  1		;space for the color table ref
;---------------------------------------------------------------

	ENDP

****************************************************************

NewVertScrollBar	PROCNAME  Entry

;---------------------------------------------------------------
	stax TempLong		;A and X contain the scroll bar 'handle'
	lda  TempLong+1		;..from the parameter block. If the hand
	bne  @notNull		;..is NULL, then exit
	rts

@notNull	cpx  #$FFFF
	beq  makeOne

	lda  TempLong
	stax TempPtr
	jsr  DerefTempPtr

	ldy  #CtrlRecord.ctlRefCon
	lda  RecordHandle
	sta  [TempPtr],y
	iny
	iny
	lda  RecordHandle+2
	sta  [TempPtr],y

	ldax TempLong
	bra  setAction
;---------------------------------------------------------------
makeOne	ldy  #TERecord.BoundsRect	;the initial bounding rectangle for the
	jsr  CopyIntoTempRect	;..scroll bar is the boundRect for the TERecord

	PushLongSpace		;the width of the scroll bar is the size
	_GrowSize		;..of the grow icon
	ldy  #TERecord.CtrlMoreFlags
	lda  [RecordPtr],y
	and  #FCtlTellAboutSize
	beq  @1
	lda  TempRect.bottom
	sec
	sbc  1,s
	inc  a
	sta  TempRect.bottom
@1	plx		;pull garbage

	lda  TempRect.right		;the left edge of the scroll bars bounds
	sec		;..rect is the right edge minus the width
	sbc  1,s
	sta  TempRect.left
	ldy  #TERecord.ViewRect.right	;change the text rectangle too.
	lda  [RecordPtr],y
	sec
	sbc  1,s
	sta  [RecordPtr],y
	pla		;restore the stack
;
; 2/28/90	Mensch
;
; Fix bug in the visibility of the scroll bar. Seems that we never took the TERecords visibility
; into account when we created the scroll bar. This should fix that...
;
	ldy #TERecord.CtrlFlag
	lda [RecordPtr],y		; get the TERecords ctlFlag field
	and #fInVisible		; strip off the visible bit..
	pha
	lda >MyTempFlags		; get the template value...
	and #$FF7F		; strip the old visible setting
	ora 1,s
	sta >MyTempFlags
	pla
	
	ldy  #ScrollTemplate.RecordSize	;create a new handle and copy this
	ldax #myTemplate		;..template into it. The size is in Y-Reg
	jsr  CopyTemplateToHand

*** added 8-Dec-91 DAL -- If vertical scroll bar comes to top of window, make the top -1 instead of 0
*** (The Scroll Bar bug is finally fixed, so this won't make the up-arrow ugly)
	lda  TempRect.top
	bne  @notZero
	dec  TempRect.top
@notZero
*** end 8-Dec-91

	ldy  #TEColorTable.vertBarVerb
	ldx  #ScrollTemplate.ColorRef+2
	jsr  MakeTheControl
;---------------------------------------------------------------
setAction	PushLong #ScrollActionProc	;set the action procedure
	PushAX
	ldy  #TERecord.VertScrollBar
	jsr  SetRecordLong
	_SetCtlAction

	rts
;---------------------------------------------------------------

;---------------------------------------------------------------
myTemplate	dc.w  10		;parameter count
	dc.l  0		;ID number
	ds.w  4		;space for the bounding rectangle
	dc.l  $86000000		;procRef
MyTempFlags	dc.w  $0003		;flags - indicates vertical scroll bar
	dc.w  $1000		;initial more flags
	dc.l  0		;refCon
	dc.w  0		;initial value
	dc.w  0		;view size
	dc.w  0		;data size
	ds.l  1		;space for the color table ref
;---------------------------------------------------------------

	ENDP

****************************************************************

CopyTemplateToHand	PROCNAME  Entry

;---------------------------------------------------------------
	sty  MoveLength		;save the size of the template
	stz  MoveLength+2
	stax SourcePtr		;save the pointer to copy from

	tya
	jsr  GetSmallHandle
	stax TempLong
	jsr  DerefAX
	stax DestPtr
	brl  BlockMove
;---------------------------------------------------------------

	ENDP

****************************************************************

MakeTheControl	PROCNAME  Entry

;---------------------------------------------------------------
	phx		;save the color ref index into the template
	phy		;save the index into the color table

	jsr  SetupColorPtr		;find a pointer to our color table
	Deref TempLong,DestPtr	;deref our scroll template again in case
	lda  1,s		;..it moved.
	tay		;get the color table index back into Y-Reg
	lda  [TempPtr],y		;the index points to the color verb bits
	ldy  #ScrollTemplate.MoreFlags	;..put these bits into the template
	ora  [DestPtr],y
	sta  [DestPtr],y

	ply		;get back the index into the color table
	iny		;..and skip over the verb to get to the
	iny		;..actual color ref for this control
	lda  [TempPtr],y		;get the ref itself into X-Reg and A-Reg
	tax		;..(the opposite of the normal low/high
	iny		;..order)
	iny
	lda  [TempPtr],y

	ply		;get back the index into the template's
	sta  [DestPtr],y		;..color table. This points to the high
	dey		;..word
	dey
	txa
	sta  [DestPtr],y
;---------------------------------------------------------------
	ldy  #TemplateRecord.Rect	;copy TempRect into the bounding rect
	lda  TempRect.top		;..field of the template
	sta  [DestPtr],y
	iny
	iny
	lda  TempRect.left
	sta  [DestPtr],y
	iny
	iny
	lda  TempRect.bottom
	sta  [DestPtr],y
	iny
	iny
	lda  TempRect.right
	sta  [DestPtr],y

	ldy  #TemplateRecord.RefCon	;copy the RecordHandle to the refcon of
	lda  RecordHandle		;..the control
	sta  [DestPtr],y
	iny
	iny
	lda  RecordHandle+2
	sta  [DestPtr],y
;---------------------------------------------------------------
	PushLongSpace
	ldy  #TERecord.inPort	;window pointer (space is already on the stack)
	jsr  PushRecordLong
	PushWord #1		;single handle to the template
	PushZLong TempLong
	_NewControl2

	ldax TempLong		;kill the handle we created for the 
	jsr  KillHandle		;..template

	PullAX
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

KillControl	PROCNAME  Export

	beq  @1
	stax TempPtr
	ldy  #1
	lda  [TempPtr],y
	beq  @1
	phx
	pei  TempPtr
	_DisposeControl
@1	rts

	ENDP

****************************************************************

GetParamLong	PROCNAME  Export

	lda  [ParameterPtr],y
	pha
	iny
	iny
	lda  [ParameterPtr],y
	tax
	pla
	rts

	ENDP

****************************************************************

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/TextEdit/draw.aii b/IIGS.601.SRC/GSToolbox/TextEdit/draw.aii
new file mode 100644
index 0000000..f61ceef
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/TextEdit/draw.aii
@@ -0,0 +1 @@
+**********************************************************************
*
*                      GSTextEdit  Version 1.0
*                          File: draw.aii
*
*               Copyright Apple Computer, Inc. 1988-89
*                        All rights reserved
*
*
*
*
* Notes
*
* All the routines in GSTextEdit must be called in full native mode and
* return that way.
*
* All the files in GSTextEdit must be assembled with the "-unsafe"
* option to pass unresolved references to the linker.
*
*
*
*
* Change History
*
* 30 May 89	Dave Good
*
* Cleaned up comments for final release.
*
**********************************************************************


	INCLUDE  'GlobalIncludes'


****************************************************************

GetDrawRect	PROCNAME  Export

;---------------------------------------------------------------
	jsr  GetViewRect		;clip to the text rectangle

	ldy  #TERecord.inPort	;use the record's grafPort
	jsr  GetRecordLong
	stax MemoryPtr
	ldy  #GrafPort.VisRgn+2	;get the region handle, deref it and store
	lda  [MemoryPtr],y		;..in memory pointer
	tax
	dey
	dey
	lda  [MemoryPtr],y
	jsr  DerefAX
	stax MemoryPtr
;---------------------------------------------------------------
	ldy  #8		;compare right point
	lda  [MemoryPtr],y
	cmp  TempRect.right
	bpl  @1
	sta  TempRect.right
@1	ldy  #6		;compare bottom point
	lda  [MemoryPtr],y
	cmp  TempRect.bottom
	bpl  @2
	sta  TempRect.bottom

@2	ldy  #4		;compare left point
	lda  [MemoryPtr],y
	cmp  TempRect.left
	bmi  @3
	sta  TempRect.left
@3	cmp  TempRect.right		;check for empty rect
	bpl  zeroIt
	ldy  #2		;compare top point
	lda  [MemoryPtr],y
	cmp  TempRect.top
	bmi  @4
	sta  TempRect.top
@4	cmp  TempRect.bottom	;check for empty rect
	bmi  copyIt
;---------------------------------------------------------------
zeroIt	jsr  ZeroTempRect
;---------------------------------------------------------------
copyIt	brl  CopyTempToDrawRect
;---------------------------------------------------------------

	ENDP

****************************************************************

Draw1Proc	PROC

;---------------------------------------------------------------
	EXPORT  DrawFromOffset
	ENTRY   DrawLine
;---------------------------------------------------------------

;---------------------------------------------------------------
DrawFromOffset	jsr  CheckInvisible		;if invisible, then skip drawing

	lda  TextHPos		;TextHPos is where to copy the line to
	sec		;..when copying the text to the screen
	ldy  #TERecord.ViewRect.left
	sbc  [RecordPtr],y		;PnLoc.h is the pixel position in the
	sta  TextHPos		;..offscreen buffer where we should start
	ldy  #GrafPort.PnLoc.h	;..drawing the text
	sta  [DrawPortPtr],y
	bra  commonCode
;---------------------------------------------------------------
DrawLine	jsr  GetLeftEdge
	sta  TextHPos
	jsr  AdjustForJust
	clc
	adc  TextHPos
	ldy  #GrafPort.PnLoc.h	;TextHPos is zero because for an entire
	sta  [DrawPortPtr],y	;..line, we need to erase the area to the
	stz  TextHPos		;..left of the line
;---------------------------------------------------------------
commonCode	jsr  SetupAndClearBuffer	;setup the drawing buffer
	bcc  @gotTheBuffer

	brl  SetLastErrorCode	;just exit without drawing anything

@gotTheBuffer	jsr  FindTextPtr		;find the text pointer and lock the block
	PushZLong BlockHandle	;..that contains it. Also save a copy for
	PushZLong BlockHandle	;..unlocking it
	jsr  LockHandle
	jsr  FindLineInfo		;get the length of the line we are going
	jsr  GetSuperCount		;..to draw. We never draw more than 64K
	sta  LineLength

	ldax SuperStart		;set the starting offset for the line.
	stax LineStartOffset
	clc		;set the ending offset for the line.
	adc  SuperLength
	sta  LineEndOffset
	txa
	adc  SuperLength+2
	sta  LineEndOffset+2

	PushZLong TextPtr		;GetLeftEdge kills the textpointer
	PushZLong TextOffset	;get the left edge of the line into our
	movl LineStartOffset,TextOffset	;..saved left edge
	jsr  GetLeftEdge
	sta  LineStartLeft

	jsr  AdjustForJust
	clc
	adc  LineStartLeft
	sta  TempRect.left
	sta  TempRect.right
	PullLong TextOffset
	PullLong TextPtr		;restore the text pointer

	stz  TempRect.top		;this sets TempRect to the default rect
	lda  LineHeight
	sta  TempRect.bottom

	ldy  #TERecord.SelectionEnd	;find the difference between the end of
	lda  [RecordPtr],y		;..the selection and the current spot
	sec
	sbc  TextOffset
	sta  SelcEndOffset
	iny
	iny
	lda  [RecordPtr],y
	sbc  TextOffset+2
	beq  @1
	lda  #$FFFF
	sta  SelcEndOffset
@1
	ldy  #TERecord.SelectionStart	;do the same thing for the selection
	lda  [RecordPtr],y		;..start
	sec
	sbc  TextOffset
	sta  SelcStartOffset
	iny
	iny
	lda  [RecordPtr],y
	sbc  TextOffset+2
	beq  @2
	lda  #$FFFF
	sta  SelcStartOffset
@2
	ldy  LineLength
	beql allDone
	dey
	lda  [TextPtr],y
	and  #$00FF
	cmp  #CR
	bne  @notACR
	dec  LineLength
	beql allDone
@notACR
	ldy  #GrafPort.PnLoc.v	;set the vertical coordinate of the port
	lda  LineAscent
	sta  [DrawPortPtr],y
;---------------------------------------------------------------
partLoop	jsr  FindStyleInfo		;find the current style
	jsr  GetSuperCount		;get the length of the current style and
	cmp  LineLength		;..see if it is bigger than the line. If
	blt  @saveCount		;..so, then clip to the line.
	lda  LineLength
@saveCount	sta  TextCount

	ldy  #0		;if there is a TAB in the part then stop
	shortm		;..at it.
@loop	lda  [TextPtr],y
	cmp  #TAB
	beq  @foundTab
	iny
	cpy  TextCount
	blt  @loop
@foundTab	longm

	cpy  SelcStartOffset	;clip the count to the selection
	blt  @1
	ldy  SelcStartOffset
@1	cpy  SelcEndOffset
	blt  @2
	ldy  SelcEndOffset
@2	sty  TextCount
	cpy  #0
	beq  @skipDraw

	jsr  InstallFontAndColor
	PushZLong TextPtr		;draw the text.
	PushZWord TextCount
	_DrawText
	jsr  ReleaseFont
@skipDraw
	lda  SelcStartOffset	;see if stopped on a selection. If we did
	sec		;..then set the correct horizontal pos.
	sbc  TextCount
	bne  @notStart
	ldy  #GrafPort.PnLoc.h
	lda  [DrawPortPtr],y
	sta  TempRect.left
	lda  #$FFFF
@notStart	sta  SelcStartOffset

	lda  SelcEndOffset
	sec
	sbc  TextCount
	bne  @notEnd
	ldy  #GrafPort.PnLoc.h
	lda  [DrawPortPtr],y
	sta  TempRect.right
	lda  #$FFFF
@notEnd	sta  SelcEndOffset

	ldy  TextCount		;if we moving to the last character of
	cpy  LineLength		;..the line, then don't check the next
	beq  @skip		;..character for a TAB
	ldy  TextCount
	lda  [TextPtr],y
	and  #$00FF
	cmp  #TAB
	beq  doTab
@skip
	lda  TextCount		;move the TextOffset forward.
	addl TextOffset
nextPart	lda  TextCount		;move the TextPtr forward.
	addl TextPtr
	lda  LineLength		;reduce the line length
	sec
	sbc  TextCount
	sta  LineLength
	beq  allDone
	brl  partLoop
;---------------------------------------------------------------
doTab	inc  TextCount
	lda  TextCount		;move the TextOffset forward.
	addl TextOffset

	PushZWord TextHPos

	ldy  #GrafPort.PnLoc.h
	lda  [DrawPortPtr],y
	sta  TextHPos
	jsr  MoveOverTab
	sta  TextHPos
	jsr  AdjustForJust
	clc
	adc  TextHPos
	ldy  #GrafPort.PnLoc.h
	sta  [DrawPortPtr],y

	dec  SelcEndOffset
	bne  @1
	ldy  #GrafPort.PnLoc.h
	lda  [DrawPortPtr],y
	sta  TempRect.right
	lda  #$FFFF
	sta  SelcEndOffset
@1
	dec  SelcStartOffset
	bne  @2
	ldy  #GrafPort.PnLoc.h
	lda  [DrawPortPtr],y
	sta  TempRect.left
	lda  #$FFFF
	sta  SelcStartOffset
@2
	pla
	sta  TextHPos
	bra  nextPart
;---------------------------------------------------------------
allDone	ldy  #TERecord.SelectionActive
	lda  [RecordPtr],y
	bmi  skipInvert

	ldy  #TERecord.SelectionState	;if the selection is not on the screen
	lda  [RecordPtr],y		;..then don't draw it
	bpl  skipInvert

	jsr  IsTheSelectionACaret
	beq  skipInvert

	ldy  #TERecord.SelectionStart
	jsr  GetRecordLong
	cmpl LineEndOffset
	bge  skipInvert
	cmpl LineStartOffset
	bge  @useLeft
	lda  LineStartLeft
	sta  TempRect.left
@useLeft
	ldy  #TERecord.SelectionEnd
	jsr  GetRecordLong
	cmpl LineStartOffset
	blt  skipInvert
	cmpl LineEndOffset
	blt  @useRight
	bne  @useEdge
	jsr  IsOffsetAtEnd
	bne  @useEdge
	ldy  #TERecord.LineAtEndFlag
	lda  [RecordPtr],y
	beq  @useRight
@useEdge	ldy  #GrafPort.PortRect.right
	lda  [DrawPortPtr],y
	sta  TempRect.right
@useRight
	lda  TempRect.left
	cmp  TempRect.right
	beq  skipInvert

	ldy  #TERecord.FilterProc+1
	lda  [RecordPtr],y
	beq  @noFilter
	jsr  PassTempRect		;pass the TempRect in the TERecord
	lda  #doHilightBuffer	;call the filter proc
	jsr  CallFilterProc
	bne  skipInvert

@noFilter	PushZPtr TempRect
	_InvertRect
;---------------------------------------------------------------
skipInvert	jsr  SetWindowPort

	lda  DrawRect.top
	cmp  TextVPos
	bmi  @noClip1
	beq  @noClip1
	tax
	sec
	sbc  TextVPos
	sta  TempRect.top
	stx  TextVPos
@noClip1
	lda  TempRect.bottom
	clc
	adc  TextVPos
	cmp  DrawRect.bottom
	bmi  @noClip2
	lda  DrawRect.bottom
	sec
	sbc  TextVPos
	clc
	adc  TempRect.top
	cmp  TempRect.bottom
	bge  @noClip2
	sta  TempRect.bottom
@noClip2
	jsr  FastPPToPort

	lda  TextVPos
	sec
	sbc  TempRect.top
	sta  TextVPos

	PushZLong DataBufferHandle
	jsr  UnlockHandle

	jsr  UnlockHandle		;this unlock's the block handle

	movl LineEndOffset,TextOffset	;set textoffset to the end of the line
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

DoDraw	PROCNAME  Export

;---------------------------------------------------------------
	jsr  CheckInvisible		;if invisible, then skip drawing

	jsr  GetViewRect		;clip the draw rect to the view rect
	lda  TempRect.top
	cmp  DrawRect.top
	bmi  @1
	sta  DrawRect.top
@1	lda  TempRect.left
	cmp  DrawRect.left
	bmi  @2
	sta  DrawRect.left
@2	lda  TempRect.bottom
	cmp  DrawRect.bottom
	bpl  @3
	sta  DrawRect.bottom
@3	lda  TempRect.right
	cmp  DrawRect.right
	bpl  @4
	sta  DrawRect.right
@4
	lda  DrawRect.left		;check to see if the remaining DrawRect
	cmp  DrawRect.right		;..is empty. If it is, then exit
	bpl  @exit
	lda  DrawRect.top
	cmp  DrawRect.bottom
	bpl  @exit

	lda  DrawRect.top
	sta  TextVPos
	jsr  VPosToOffset
	bcs  doExtra
	bra  drawLoop

@exit	rts
;---------------------------------------------------------------
drawLoop	jsr  IsOffsetAtEnd
	beq  doExtra

	jsr  FindLineInfo
	pei  LineHeight
	jsr  DrawLine
	pla
	clc
	adc  TextVPos
	sta  TextVPos
	cmp  DrawRect.bottom
	bmi  drawLoop
	bra  allDone
;---------------------------------------------------------------
doExtra	lda  TextVPos
	cmp  DrawRect.top
	bge  @1
	lda  DrawRect.top
@1	sta  TempRect.top
	lda  DrawRect.bottom
	sta  TempRect.bottom
	lda  DrawRect.left
	sta  TempRect.left
	lda  DrawRect.right
	sta  TempRect.right

	jsr  ClipAndEraseRect
;---------------------------------------------------------------
allDone	ldy  #TERecord.SelectionActive
	lda  [RecordPtr],y
	bmi  inactive
;---------------------------------------------------------------
active	jsr  IsTheSelectionACaret
	bne  exit

	ldy  #TERecord.SelectionState
	lda  [RecordPtr],y
	bpl  exit

	jsr  makeCaretRect
	brl  ClipAndInvertRect
;---------------------------------------------------------------
inactive	jsr  GetTEHighFlags		;check to see if we are drawing an
	and  #fDrawInactiveSelc	;..inactive selection. If not, then exit
	beq  exit

	PushLongSpace		;save the old clip region handle
	_GetClipHandle
	jsr  GetNewRgn		;get a temporary region
	PushAX		;push a copy for _DisposeRgn
	PushAX		;push a copy for _SetClipHandle
	PushAX		;push a copy for _SectRgn
	PushAX		;push a copy for _RectRgn
	PushZPtr DrawRect
	_RectRgn
	lda  15,s		;push a copy of the old clip region
	pha
	lda  15,s
	pha
	lda  7,s		;push a copy of the temp region
	pha
	lda  7,s
	pha
	_SectRgn
	_SetClipHandle

	jsr  DoInvertInactive

	jsr  KillRgn		;kill the temp region
	_SetClipHandle		;reset the original clip handle

exit	rts
;---------------------------------------------------------------



;---------------------------------------------------------------
makeCaretRect	jsr  GetSelectionStart
	jsr  CachedOffsetToPoint
	bcs  @exit

	jsr  FindLineInfo
	lda  TextVPos
	cmp  DrawRect.top
	bpl  @topOK
	lda  DrawRect.top
@topOK	sta  TempRect.top

	lda  TextVPos
	clc
	adc  LineHeight
	cmp  DrawRect.bottom
	bmi  @bottomOK
	lda  DrawRect.bottom
@bottomOK	sta  TempRect.bottom

	lda  TextHPos
	cmp  DrawRect.left
	bpl  @leftOK
	lda  DrawRect.left
@leftOK	sta  TempRect.left

	lda  TextHPos
	inc  a
	cmp  DrawRect.right
	bmi  @rightOK
	lda  DrawRect.right
@rightOK	sta  TempRect.right

	lda  TempRect.top
	cmp  TempRect.bottom
	bpl  @exit
	lda  TempRect.left
	cmp  TempRect.right
	bpl  @exit
	rts

@exit	pla
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

PaintLine	PROCNAME  Export

;---------------------------------------------------------------
	DSECT ParameterSpace
xRecordHandle	long
paintFlags	word
theRectPtr	long
startingLine	long
theGrafPort	long
;---------------------------------------------------------------

;---------------------------------------------------------------
	jsr  FindLineStart
	lda  SuperLength
	ldx  SuperLength+2
	beq  @lessThan64K
	lda  #$FFFF
@lessThan64K	sta  LineLength

	jsr  GetLeftEdge
	sta  TextHPos
	jsr  AdjustForJust
	clc
	adc  TextHPos
	ldy  #Rect.left
	adc  [theRectPtr],y
	ldy  #GrafPort.PnLoc.h
	sta  [theGrafPort],y
	lda  TextVPos
	clc
	adc  LineAscent
	ldy  #GrafPort.PnLoc.v
	sta  [theGrafPort],y

	jsr  FindTextPtr		;find the text pointer and lock the block
	PushZLong BlockHandle	;..that contains it. Also save a copy for
	PushZLong BlockHandle	;..unlocking it
	jsr  LockHandle

	ldy  LineLength
	beql allDone
	dey
	lda  [TextPtr],y
	and  #$00FF
	cmp  #CR
	bne  @notACR
	dec  LineLength
	beql allDone
@notACR
;---------------------------------------------------------------
partLoop	jsr  FindStyleInfo
	jsr  GetSuperCount
	cmp  LineLength
	blt  @saveCount
	lda  LineLength
@saveCount	sta  TextCount

	ldy  #0		;if there is a TAB in the part then stop
	shortm		;..at it.
@loop	lda  [TextPtr],y
	cmp  #TAB
	beq  @foundTab
	iny
	cpy  TextCount
	blt  @loop
@foundTab	longm
	sty  TextCount

	tya		;this compares with zero
	beq  @skipDraw
	lda  paintFlags
	and  #fDontDraw
	bne  @skipDraw
	PushZLong DrawPortPtr
	movl theGrafPort,DrawPortPtr
	jsr  InstallFontAndColor
	PushZLong TextPtr		;draw the text.
	PushZWord TextCount
	_DrawText
	jsr  ReleaseFont
	PullLong DrawPortPtr
@skipDraw
	ldy  TextCount		;if we moving to the last character of
	cpy  LineLength		;..the line, then don't check the next
	beq  @skip		;..character for a TAB
	ldy  TextCount
	lda  [TextPtr],y
	and  #$00FF
	cmp  #TAB
	beq  doTab
@skip
	lda  TextCount		;move the TextOffset forward.
	addl TextOffset
nextPart	lda  TextCount		;move the TextPtr forward.
	addl TextPtr
	lda  LineLength		;reduce the line length
	sec
	sbc  TextCount
	sta  LineLength
	beq  allDone
	brl  partLoop
;---------------------------------------------------------------
doTab	inc  TextCount
	lda  TextCount		;move the TextOffset forward.
	addl TextOffset

	ldy  #GrafPort.PnLoc.h
	lda  [theGrafPort],y
	ldy  #Rect.left
	sec
	sbc  [theRectPtr],y
	sta  TextHPos
	jsr  MoveOverTab
	sta  TextHPos
	jsr  AdjustForJust
	clc
	adc  TextHPos
	ldy  #Rect.left
	adc  [theRectPtr],y
	ldy  #GrafPort.PnLoc.h
	sta  [theGrafPort],y
	bra  nextPart
;---------------------------------------------------------------
allDone	jsr  UnlockHandle		;this unlock's the block handle
	incl TheLineNumber
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

EraseFrame	PROCNAME  Export

	jsr  SaveBackground

	stz  TempWord
	jsr  GetTEHighFlags
	and  #fDrawBounds
	beq  @noFrame
	dec  TempWord
@noFrame
	ldy  #TERecord.BoundsRect
	ldx  #0
@loop	lda  [RecordPtr],y
	bit  TempWord
	bpl  @2
	cpx  #4
	blt  @1
	dec  a
	bra  @2
@1	inc  a
@2	sta  DrawRect,x
	sta  TempRect,x
	iny
	iny
	inx
	inx
	cpx  #8
	blt  @loop

	jsr  GetVertScrollBar
	beq  @noBar
	stax TempPtr
	jsr  DerefTempPtr
	ldy  #CtrlRecord.ctlRect.left
	lda  [TempPtr],y
	sta  DrawRect.right
	sta  TempRect.right
@noBar
	ldy  #TERecord.ViewRect.top
	lda  [RecordPtr],y
	sta  TempRect.bottom
	jsr  EraseTempRect

	ldy  #TERecord.ViewRect.bottom
	lda  [RecordPtr],y
	sta  TempRect.top
	mov  DrawRect.bottom,TempRect.bottom
	jsr  EraseTempRect

	ldy  #TERecord.ViewRect.left
	lda  [RecordPtr],y
	sta  TempRect.right
	mov  DrawRect.top,TempRect.top
	jsr  EraseTempRect

	ldy  #TERecord.ViewRect.right
	lda  [RecordPtr],y
	sta  TempRect.left
	mov  DrawRect.right,TempRect.right
	jsr  EraseTempRect

	jsr  RestoreBackground
	rts

	ENDP

****************************************************************

SetupColorPtr	PROCNAME  Export

	ldy  #TERecord.ColorRef
	jsr  GetRecordLong
	stax TempPtr
	ora  TempPtr+2		;check for a zero ref and use defaults
	beq  @useDefaults

	ldy  #TERecord.CtrlMoreFlags
	lda  [RecordPtr],y
	and  #colorIsMask
	cmp  #colorIsPointer
	beq  @done		;0 is pointer so all done

	cmp  #colorIsHandle
	beq  @IsHandle

@IsResource	ldy  #rTEColorTable
	ldax TempPtr
	jsr  LoadResource
	stax TempPtr

@IsHandle	jsr  DerefTempPtr
@done	rts

@useDefaults	ldax #defaultColors
	stax TempPtr
	rts

defaultColors	dc.w  $FFFF		;white inside
	dc.w  $0000		;black bounding box
	dc.w  $0000		;black hilight color
	dc.w  $0000		;black caret color
	dc.w  0		;vert scroll bar verb
	dc.l  0		;vert scroll bar ref
	dc.w  0		;horz scroll bar verb
	dc.l  0		;horz scroll bar ref
	dc.w  0		;grow box verb
	dc.l  0		;grow box ref

	ENDP

****************************************************************

ClipTempRect	PROCNAME  Export

	lda  TempRect.top		;check for a null rect
	cmp  TempRect.bottom
	bpl  empty
	lda  TempRect.left
	cmp  TempRect.right
	bpl  empty

	ldy  #TERecord.ViewRect.top
	lda  [RecordPtr],y
	cmp  TempRect.top
	bmi  @1
	beq  @1
	sta  TempRect.top
@1	cmp  TempRect.bottom
	bpl  empty

	ldy  #TERecord.ViewRect.left
	lda  [RecordPtr],y
	cmp  TempRect.left
	bmi  @2
	beq  @2
	sta  TempRect.left
@2	cmp  TempRect.right
	bpl  empty

	ldy  #TERecord.ViewRect.bottom
	lda  [RecordPtr],y
	cmp  TempRect.bottom
	bpl  @3
	sta  TempRect.bottom
@3	cmp  TempRect.top
	bmi  empty
	beq  empty

	ldy  #TERecord.ViewRect.right
	lda  [RecordPtr],y
	cmp  TempRect.right
	bpl  @4
	sta  TempRect.right
@4	cmp  TempRect.left
	bmi  empty
	beq  empty

	clc
	rts

empty	sec
	rts

	ENDP

****************************************************************

Draw2Proc	PROC
	EXPORT ClipAndInvertRect
	EXPORT ClipAndEraseRect

;---------------------------------------------------------------
ClipAndEraseRect	PushZLong TempRect
	PushZLong TempRect+4
	jsr  ClipTempRect
	bcs  cleanup

	jsr  SaveBackground
	jsr  EraseTempRect
	jsr  RestoreBackground
	bra  cleanup
;---------------------------------------------------------------
ClipAndInvertRect	jsr  CheckInvisible		;if invisible, then skip drawing

	PushZLong TempRect
	PushZLong TempRect+4
	jsr  ClipTempRect
	bcs  cleanup

	ldy  #TERecord.FilterProc+1
	lda  [RecordPtr],y
	beq  @noFilter
	jsr  PassTempRect		;pass the TempRect in the TERecord
	lda  #doHilightRect		;call the filter proc
	jsr  CallFilterProc
	bne  cleanup

@noFilter	jsr  InvertTempRect
;---------------------------------------------------------------
cleanup	PullLong TempRect+4
	PullLong TempRect
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

EraseTempRect	PROC  ENTRY

;---------------------------------------------------------------
	ldy  #TERecord.FilterProc+1
	lda  [RecordPtr],y
	beq  @noFilter

	jsr  PassTempRect		;pass the TempRect in the TERecord
	lda  #doEraseRect		;call the filter erase
	jsr  CallFilterProc
	bne  allDone

@noFilter	PushZPtr TempRect
	_EraseRect
;---------------------------------------------------------------
allDone	ldy  #TERecord.FilterProc+1
	lda  [RecordPtr],y
	beq  @noFilter

	jsr  PassTempRect		;pass the TempRect in the TERecord
	lda  #doRectChanged		;call the filter proc
	brl  CallFilterProc

@noFilter	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

CheckInvisible	PROCNAME  Export

	jsr  AreWeInvisible
	beq  @nope
	pla		;pull the return address to skip a level
@nope	rts

	ENDP

****************************************************************

GetNewRgn	PROCNAME  Export

	PushLongSpace
	_NewRgn
	PullAX
	rts

	ENDP

****************************************************************

ZeroTempRect	PROCNAME  Export

	stz  TempRect.top
	stz  TempRect.left
	stz  TempRect.bottom
	stz  TempRect.right
	rts

	ENDP

****************************************************************

GetPort	PROCNAME  Export

;---------------------------------------------------------------
PortRef	equ  36
;---------------------------------------------------------------

;---------------------------------------------------------------
	ply
	ldx  QDDirectPage
	lda  >PortRef+2,x
	pha
	lda  >PortRef,x
	pha
	phy
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

SetPort	PROCNAME  Export

	ply		;get the return address into Y-Reg
	pla		;get the port pointer into A-Reg and X-Reg
	plx
	phy		;push the return address back on the stack
	phx		;push the port pointer back on the stack
	pha
	_SetPort
	rts

	ENDP

****************************************************************

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/TextEdit/entry.aii b/IIGS.601.SRC/GSToolbox/TextEdit/entry.aii
new file mode 100644
index 0000000..d2e5d29
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/TextEdit/entry.aii
@@ -0,0 +1 @@
+**********************************************************************
*
*                      GSTextEdit  Version 1.0
*                          File: entry.aii
*
*               Copyright Apple Computer, Inc. 1988-89
*                        All rights reserved
*
*
*
*
* Notes
*
* All the routines in GSTextEdit must be called in full native mode and
* return that way.
*
* All the files in GSTextEdit must be assembled with the "-unsafe"
* option to pass unresolved references to the linker.
*
*
*
*
* Change History
*
* 30 May 89	Dave Good
*
* Cleaned up comments for final release.
*
**********************************************************************


	INCLUDE  'GlobalIncludes'


****************************************************************

Entry1Proc	PROC

;---------------------------------------------------------------
	EXPORT  QuickEntry
	EXPORT  QuickExit
	EXPORT  StandardEntry
	EXPORT  StandardExit
;---------------------------------------------------------------


;---------------------------------------------------------------
	DefineStack
ourDirectPage	word
parameterCount	word
userBank	byte
userDirectPage	word
returnAddr1	word		;return to main routine
returnAddr2	word		;return to quick or standard start
userReturnAddr	block  6
userData	word		;these are the parameters
;---------------------------------------------------------------


;---------------------------------------------------------------
MaximumParameters	equ  24
;---------------------------------------------------------------
	MACRO
	CopyMultiple
	LCLA  &counter
&counter	SETA  MaximumParameters
	WHILE  &counter ³ 0  DO
	lda  <userData+&counter
	sta  |&counter,y
&counter	SETA  &counter-2
	ENDWHILE
	MEND
;---------------------------------------------------------------
	MACRO
&lab	MakeJumpTable
	LCLA  &counter
&counter	SETA  0
&lab
	WHILE  &counter < (MaximumParameters/2)  DO
	dc.w  EndAddr-(&counter*5)
&counter	SETA &counter+1
	ENDWHILE
	MEND
;---------------------------------------------------------------


;---------------------------------------------------------------
RealEntry	jsl  IncBusyFlg		;increment busy flag (doesn't change ANYTHING)
	tax		;check to see if TextEdit is started
	beq  notStarted
	tyx		;X-Reg now contains the number of parameters
	beq  noParameters

	phd		;save the user's direct page
	phb		;save the user's data bank

	phy		;save the number of parameters
	pha		;save TextEdit's direct page
	clc		;make a pointer to our direct page space
	adc  #ParameterSpace	;..and leave it in Y-Reg
	tay
	tsc		;set direct page to the old stack pointer
	tcd
	pea  $0000		;set the data bank to $0000 for the copy
	plb
	plb

	jsr  (CopyTable,x)		;X-Reg still contains the number of params

stripStack	lda  userReturnAddr+4	;X-Reg still contains the number of params
	sta  userReturnAddr+4,x	;move the return addresses.
	lda  userReturnAddr+2
	sta  userReturnAddr+2,x
	lda  userReturnAddr
	sta  userReturnAddr,x

	lda  userDirectPage		;move the user direct page and data bank
	sta  userReturnAddr-2,x
	lda  userBank	
	sta  userReturnAddr-3,x

	lda  returnAddr2		;move the local return addresses
	sta  userReturnAddr-5,x
	lda  returnAddr1
	sta  userReturnAddr-7,x

	tsc		;adjust the stack pointer, but don't set
	clc		;..it back yet.
	adc  parameterCount
	adc  #4
	pld		;set TextEdit's direct page
	tcs		;NOW adjust the stack
	phk		;set our data bank
	plb
	rts		;return to caller
;---------------------------------------------------------------
noParameters	plx		;get the two return addresses into
	ply		;..registers
	phd		;save the user's direct page and the data
	phb		;..bank
	phy		;put back the two return addresses
	phx
	tcd		;set our direct page and our data bank
	phk
	plb
	rts		;return to the caller
;---------------------------------------------------------------
notStarted	tyx		;if there are no parameters, then special
	beq  noParamError		;..exit
	phd		;save the user's direct page
	phb		;save the user's data bank

	phy		;save the number of parameters
	pha		;save TextEdit's direct page
	tsc		;set direct page to the old stack pointer
	tcd

	lda  #returnHere-1		;X-Reg is already set to the number of
	sta  returnAddr1		;..parameters
	bra  stripStack

returnHere	ldx  #teNotStarted		;load the not started error
errorExit	pla		;pull off the return address
	bra  QuickExit
;---------------------------------------------------------------
noParamError	pla		;clean both return addrs off the stack
	pla
	lda  #teNotStarted		;put the error code into A
	sec
	jml  DecBusyFlg		;decrement busy flag and return to caller
;---------------------------------------------------------------


;---------------------------------------------------------------
QuickEntry	jsr  RealEntry
	rts		;return to caller
;---------------------------------------------------------------


;---------------------------------------------------------------
StandardExit	stx  TempWord		;save the error code in TempWord

	jsr  RestoreOriginalPort	;restore the origin and the port
	jsr  UnlockRecordHandle

	ldx  TempWord		;restore the error code
;---------------------------------------------------------------
QuickExit	plb		;restore the original data bank
	pld		;restore original direct page
	txa		;put the error code into A
	cmp  #1		;set the carry flag
	jml  DecBusyFlg		;decrement busy flag and return to caller
;---------------------------------------------------------------


;---------------------------------------------------------------
StandardEntry	jsr  RealEntry		;call quick entry (effectively)

	pla		;pull the return address into TempWord
	sta  TempWord

	lda  RecordHandle		;check to see if the record handle is
	ora  RecordHandle+2		;..NULL (use the current record)
	bne  @checkThisHandle

@findTheCtrl	PushLongSpace		;it was NULL, so find the current target
	_FindTargetCtl		;..control
	tax		;put the error code in the X-Reg
	pla
	sta  RecordHandle
	pla
	sta  RecordHandle+2
	bcs  QuickExit		;if there was an error, then exit

@checkThisHandle	ldx  #teInvalidHandle	;load the proper error code
	ldy  #HandleRecord.length
	lda  [RecordHandle],y
	cmp  #TERecord.RecordSize	;if the size of the record handle is not
	bne  QuickExit		;..correct, then exit with teInvalidHandle

	jsr  DerefRecordHandle

	ldx  #teInvalidHandle	;if the record does not have TextEditControl
	ldy  #TERecord.CtrlProc	;..as it's CtrlProc field, then return
	lda  [RecordPtr],y		;..teInvalidHandle
	bne  QuickExit
	iny
	iny
	lda  [RecordPtr],y
	cmp  #TextEditControl>>16
	bne  QuickExit

	jsr  LockRecordHandle	;lock the main record handle

	jsr  SetupWindowPort	;setup the origin and the port

	pei  TempWord
	rts
;---------------------------------------------------------------


;---------------------------------------------------------------
CopyTable	MakeJumpTable
;---------------------------------------------------------------
	CopyMultiple
EndAddr	rts
;---------------------------------------------------------------
	ENDP

****************************************************************

SetupWindowPort	PROCNAME  Export

;---------------------------------------------------------------
returnAddr	equ  0
;---------------------------------------------------------------

;---------------------------------------------------------------
	DefineStack
xReturnAddr	word
vOrigin	word
hOrigin	word
origPort	long
;---------------------------------------------------------------

;---------------------------------------------------------------
	pla		;pull the return address into TempPtr
	sta  returnAddr
	jsr  GetPort		;save the current port
	PushLongSpace		;allocate space for the origin
	pei  returnAddr		;put the return address back on the stack

	jsr  GetTEHighFlags		;if the record is not a control, then
	and  #fNotControl		;..we never need to set the origin
	bne  @noBars

	jsr  GetWindowPortPtr
	ldy  #WindowRecord.wFrame
	lda  [TempPtr],y
	and  #%0001110000000000
	beq  @noBars
;---------------------------------------------------------------
@hasBars	ldy  #GrafPort.PortRect.top
	lda  [TempPtr],y
	sta  vOrigin,s
	iny
	iny
	lda  [TempPtr],y
	sta  hOrigin,s

	PushZLong TempPtr
	_StartDrawing
	rts
;---------------------------------------------------------------
@noBars	brl  SetWindowPort
;---------------------------------------------------------------

	ENDP

****************************************************************

RestoreOriginalPort	PROCNAME  Export

;---------------------------------------------------------------
returnAddr	equ  0
;---------------------------------------------------------------

;---------------------------------------------------------------
	pla		;pull the return address into TempWord
	sta  returnAddr

	jsr  GetTEHighFlags		;if the record is not a control, then
	and  #fNotControl		;..we never need to set the origin
	bne  @noBars

	jsr  GetWindowPortPtr
	ldy  #WindowRecord.wFrame
	lda  [TempPtr],y
	and  #%0001110000000000
	beq  @noBars
;---------------------------------------------------------------
@hasBars	_SetOrigin		;restore the origin
	bra  @exit
;---------------------------------------------------------------
@noBars	PullAX		;restore the stack
;---------------------------------------------------------------
@exit	pei  returnAddr		;push the address where set port should
	brl  SetPort		;..return to and restore the original port
;---------------------------------------------------------------

	ENDP

****************************************************************

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/TextEdit/extra.asm b/IIGS.601.SRC/GSToolbox/TextEdit/extra.asm
new file mode 100644
index 0000000..10f3c00
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/TextEdit/extra.asm
@@ -0,0 +1 @@
+
the TE control should handle scrolling automatically, along with insertion of
text, automatically scrolls the text. insertion must be handled quickly -- no
moving of the entire text array with every character. look into background
tasks to handle recalculating of line starts, etc. the first character
inserted my be slow; as long as all the rest are fast. For now redraw every-
thing after the inserted text. later optimize to only redraw if a line wraps
and to bit-blit text instead of redrawing it. Use offscreen drawing to make 
it all look smooth. provide special speedups for special cases like: single
font, fixed-width font, no word wrap, single text rectangle. allow multiple
rectangles for the text, but must develop a new way of linking them to handle
wrapping. make EVERYTHING into a control; this should be completely automatic.
Must decide how to work scroll bars with muliple text rectangles. must figure
out some way of getting keystrokes when i'm a control.

50 milliseconds maximum per char. so can do 20 chars / sec
200 mils at the beginning of a selection
100 mils per line of scrolling
500 mils per cut, copy, paste
25 mils per idle (1/40) second

   **********   end of notes on GS TextEdit				 ********** */











	print off
	INCLUDE  'all.macros'
	INCLUDE  'E16.EVENT'
	print on
	INCLUDE  'GlobalRecords'
	INCLUDE  'GlobalVars'
	INCLUDE  'MemoryImports'


	string asis


****************************************************************
;
;
;  super arrays are an array of up to 8192 elements each one of which
;  is a handle to up to 8192 elements
;
;
****************************************************************



****************************************************************

setupSuperCache	PROC  ENTRY

	PushLong SuperCacheHandle	;get a pointer to the block of items
	jsr  DerefHandle
	stax SuperLocalPtr
	ldy  SuperCacheIndex	;and load the current index
	rts

	ENDP

****************************************************************

GetSuperOffset	PROC  EXPORT

	lda  SuperCacheHandle	;check to see if the cache handle is zero
	ora  SuperCacheHandle+2	;..if it is, there is no cache
	beq  notInCache
	cmp4 TextOffset,SuperCacheEndOffset	;check the current offset against the
	bge  notInCache		;..cache bounds
	cmp4 TextOffset,SuperCacheOffset
	blt  notInCache

inCache	MoveLong SuperCacheItem,SuperItem	;copy the cached item number
	SubLong TextOffset,SuperCacheOffset,SuperOffsetLeft
	jsr  setupSuperCache	;setup the local pointer and index
	brl  localLoop

notInCache	MoveLong TextOffset,SuperOffsetLeft	;setup the offset counter
	stz4 SuperItem		;zero out the super item number
	PushLong SuperHandle	;get a pointer to the array of handles
	jsr  DerefHandle
	stax SuperMainPtr
mainLoop	ldy  #2
	lda  [SuperMainPtr],y
	sta  SuperCacheHandle+2
	pha
	lda  [SuperMainPtr]
	sta  SuperCacheHandle
	pha
	ora  SuperCacheHandle+2
	beq  notFound
	jsr  DerefHandle
	stax SuperLocalPtr
	ldy  #2
	lda  [SuperLocalPtr],y
	tax
	lda  [SuperLocalPtr]
	cpx  SuperOffsetLeft+2
	blt  skipLocal
	bne  doLocal
	cmp  SuperOffsetLeft
	blt  skipLocal
	bne  doLocal
skipLocal	ldy  #4
	lda  [SuperLocalPtr],y
	clc
	adc  SuperItem
	sta  SuperItem
	bcc  @1
	inc  SuperItem+2
@1	lda  SuperMainPtr
	clc
	adc  #4
	sta  SuperMainPtr
	bcc  mainLoop
	inc  SuperMainPtr+2
	bra  mainLoop

doLocal	clc
	adc  TextOffset
	sta  SuperCacheEndOffset
	txa
	adc  TextOffset+2
	sta  SuperCacheEndOffset+2
	SubLong SuperCacheEndOffset,SuperOffsetLeft,SuperCacheEndOffset
	ldy  #4
	lda  [SuperLocalPtr],y
	clc
	adc  SuperItem
	sta  SuperCacheEndItem
	lda  SuperItem+2
	adc  #0
	sta  SuperCacheEndItem+2
	ldy  #6
localLoop	lda  [SuperLocalPtr],y
	sta  SuperLength
	iny2
	lda  [SuperLocalPtr],y
	sta  SuperLength+2
	cmp4 SuperLength,SuperOffsetLeft
	bgt  foundIt
	SubLong SuperOffsetLeft,SuperLength,SuperOffsetLeft
	inc4 SuperItem
	iny4
	bra  localLoop

foundIt	tya
	dec  A
	dec  A
	sta  SuperCacheIndex
	iny2
	lda  [SuperLocalPtr],y
	sta  SuperData
	SubLong SuperLength,SuperOffsetLeft,SuperLength
	SubLong TextOffset,SuperOffsetLeft,SuperCacheOffset
	MoveLong SuperItem,SuperCacheItem
	clc
	rts

notFound	pla
	pla
	sec
	rts

	ENDP

****************************************************************

GetSuperItem	PROC  EXPORT

	lda  SuperCacheHandle
	ora  SuperCacheHandle+2
	beq  notInCache
	cmp4 SuperItem,SuperCacheEndItem
	bge  notInCache
	cmp4 SuperItem,SuperCacheItem
	blt  notInCache

inCache	MoveLong SuperCacheOffset,TextOffset
	SubLong SuperItem,SuperCacheItem,SuperItemsLeft
	jsr  setupSuperCache
	brl  localLoop

notInCache	MoveLong SuperItem,SuperItemsLeft
	stz4 TextOffset
	PushLong SuperHandle
	jsr  DerefHandle
	stax SuperMainPtr
mainLoop	ldy  #2
	lda  [SuperMainPtr],y
	sta  SuperCacheHandle+2
	pha
	lda  [SuperMainPtr]
	sta  SuperCacheHandle
	pha
	ora  SuperCacheHandle+2
	beq  notFound
	jsr  DerefHandle
	stax SuperLocalPtr
	ldy  #4
	lda  [SuperLocalPtr],y
	tax
	lda  SuperItemsLeft+2
	bne  skipLocal
	cpx  SuperItemsLeft
	blt  skipLocal
	bne  doLocal
skipLocal	lda  SuperItemsLeft
	sec
	sbc  [SuperLocalPtr],y
	sta  SuperItemsLeft
	lda  SuperItemsLeft+2
	sbc  #0
	sta  SuperItemsLeft+2
	ldy  #2
	lda  [SuperLocalPtr]
	clc
	adc  TextOffset
	sta  TextOffset
	lda  [SuperLocalPtr],y
	adc  TextOffset+2
	sta  TextOffset+2
	lda  SuperMainPtr
	clc
	adc  #4
	sta  SuperMainPtr
	bcc  mainLoop
	inc  SuperMainPtr+2
	bra  mainLoop

doLocal	txa
	clc
	adc  SuperItem
	sta  SuperCacheEndItem
	lda  SuperItem+2
	adc  #0
	sta  SuperCacheEndItem+2
	SubLong SuperCacheEndItem,SuperItemsLeft,SuperCacheEndItem
	ldy  #2
	lda  [SuperLocalPtr]
	adc  TextOffset
	sta  SuperCacheEndOffset
	lda  [SuperLocalPtr],y
	adc  TextOffset+2
	sta  SuperCacheEndOffset+2
	ldy  #6
	lda  SuperItemsLeft
	ora  SuperItemsLeft+2
	beq  foundIt
localLoop	lda  [SuperLocalPtr],y
	sta  SuperLength
	clc
	adc  TextOffset
	sta  TextOffset
	iny2
	lda  [SuperLocalPtr],y
	sta  SuperLength+2
	adc  TextOffset+2
	sta  TextOffset+2
	iny4
	dec  SuperItemsLeft
	bne  localLoop	

foundIt	tya
	dec  A
	dec  A
	sta  SuperCacheIndex
	iny2
	lda  [SuperLocalPtr],y
	sta  SuperData
	MoveLong TextOffset,SuperCacheOffset
	MoveLong SuperItem,SuperCacheItem
	clc
	rts

notFound	pla
	pla
	sec
	rts

	ENDP

****************************************************************

SetSuperItem	PROC  EXPORT

	lda  SuperCacheHandle
	ora  SuperCacheHandle+2
	beq  notInCache
	cmp4 SuperItem,SuperCacheEndItem
	bge  notInCache
	cmp4 SuperItem,SuperCacheItem
	blt  notInCache

inCache	SubLong SuperItem,SuperCacheItem,SuperItemsLeft
	PushLong SuperCacheHandle	;get a pointer to the block of items
	jsr  DerefHandle
	clc
	adc  SuperCacheIndex
	sta  SuperLocalPtr
	stx  SuperLocalPtr
	bcc  @1
	inc  SuperLocalPtr+2
@1	brl  doLocal

notInCache	MoveLong SuperItem,SuperItemsLeft
	PushLong SuperHandle
	jsr  DerefHandle
	stax SuperMainPtr
mainLoop	ldy  #2
	lda  [SuperMainPtr],y
	pha
	lda  [SuperMainPtr]
	pha
	ora  3,s
	beq  notFound
	jsr  DerefHandle
	stax SuperLocalPtr
	ldy  #4
	lda  [SuperLocalPtr],y
	tax
	lda  SuperItemsLeft+2
	bne  skipLocal
	cpx  SuperItemsLeft
	blt  skipLocal
	bne  doLocal
skipLocal	lda  SuperItemsLeft
	sec
	sbc  [SuperLocalPtr],y
	sta  SuperItemsLeft
	lda  SuperItemsLeft+2
	sbc  #0
	sta  SuperItemsLeft+2
	lda  SuperMainPtr
	clc
	adc  #4
	sta  SuperMainPtr
	bcc  mainLoop
	inc  SuperMainPtr+2
	bra  mainLoop

doLocal	asl  SuperItemsLeft		;multiply the number of items by six
	lda  SuperItemsLeft
	asl  SuperItemsLeft
	clc
	adc  SuperItemsLeft
	clc
	adc  #6		;skip the first 6 bytes in the handle
	tay		;use as an index.
	lda  SuperLength
	sta  [SuperLocalPtr],y
	iny
	iny
	lda  SuperLength+2
	sta  [SuperLocalPtr],y
	iny
	iny
	lda  SuperData
	sta  [SuperLocalPtr],y
	clc
	rts

notFound	pla
	pla
	sec
	rts

	ENDP

****************************************************************

InsertSuperItem	PROC  EXPORT

	clc
	rts

	ENDP

****************************************************************

RemoveSuperItem	PROC  EXPORT

notInCache	MoveLong SuperItem,SuperItemsLeft

	PushLong SuperHandle
	jsr  DerefHandle
	stax SuperMainPtr

mainLoop	ldy  #2
	lda  [SuperMainPtr],y
	pha
	lda  [SuperMainPtr]
	pha
	ora  3,s
	beq  notFound
	jsr  DerefHandle
	stax SuperLocalPtr
	ldy  #4
	lda  [SuperLocalPtr],y
	tax
	lda  SuperItemsLeft+2
	bne  skipLocal
	cpx  SuperItemsLeft
	blt  skipLocal
	bne  doLocal
skipLocal	lda  SuperItemsLeft
	sec
	sbc  [SuperLocalPtr],y
	sta  SuperItemsLeft
	lda  SuperItemsLeft+2
	sbc  #0
	sta  SuperItemsLeft+2
	lda  SuperMainPtr
	clc
	adc  #4
	sta  SuperMainPtr
	bcc  mainLoop
	inc  SuperMainPtr+2
	bra  mainLoop

doLocal	asl  SuperItemsLeft		;multiply the number of items by six
	lda  SuperItemsLeft
	asl  SuperItemsLeft
	clc
	adc  SuperItemsLeft
	clc
	adc  #6		;skip the first 6 bytes in the handle
	clc
	adc  SuperLocalPtr
	sta  SuperLocalPtr
	bcc  @1
	inc  SuperLocalPtr+2
@1	nop

	clc
	rts

notFound	pla
	pla
	sec
	rts

	ENDP

****************************************************************

	END



GetSuperOffset:	uses TextOffset and SuperHandle. searches the super array in SuperHandle for
	the item at TextOffset. Sets the SuperItem, SuperLength, and SuperData values.
	SuperLength will be the number of characters AFTER TextOffset that the data
	pertains to. The SuperCache values will be used if SuperCacheHandle is non zero.
	They will also be updated by this routine.

GetSuperItem:	uses SuperItem and SuperHandle. Returns the SuperLength, SuperData, and
	TextOffset values. The SuperCache values will be used and updated.

SetSuperItem:	uses SuperHandle and SuperItem. Sets the length and data fields from SuperLength
	and SuperData. The SuperCache values will be used and updated.

InsertSuperItem:	uses SuperHandle and SuperItem. Inserts a new item AFTER SuperItem using
	the SuperLength and SuperData values. The SuperCache values will be
	used and updated.

RemoveSuperItem:	uses SuperHandle and SuperItem. The item specified will be removed from the list.
	The SuperCache values will be used and updated.


****************************************************************

OldDoKeystroke	PROC  EXPORT

	IMPORT  DoRightDelete
	IMPORT  DoLeftArrow
	IMPORT  DoDownArrow
	IMPORT  DoUpArrow
	IMPORT  DoCR
	IMPORT  DoRightArrow
	IMPORT  DoClear
	IMPORT  DoClearEOL
	IMPORT  DoDelete
	IMPORT  ScrollToSelection
	IMPORT  IsSelectionEmpty
	IMPORT  GetRecordLong
	IMPORT  IsItAWordBreak
	IMPORT  SimpleKey
	IMPORT  GetSelectionStart
	IMPORT  SetRecordLong
	IMPORT  AreWeWordWrapping


	lda  TheChar
	casejmp $06,DoRightDelete	;Ctrl-F
	casejmp $08,DoLeftArrow
	casejmp $0A,DoDownArrow
	casejmp $0B,DoUpArrow
	casejmp $0D,DoCR
	casejmp $15,DoRightArrow
	casejmp $18,DoClear		;ctrl-X, clear
	casejmp $19,DoClearEOL	;ctrl-Y
	casejmp $7f,DoDelete	;Delete

normalchar	PushWordSpace		;get the width of the character we
	PushWord TheChar		;..inserted
	_CharWidth
	PullWord TheCharWidth

	jsr  ScrollToSelection	;scroll to the current selection.

	jsr  IsSelectionEmpty	;check to see if we have a selection
	bcsl notEmpty

	jsr  AreWeWordWrapping
	bcsl doSimple		;nope, so do simple case

	jsr  GetSelectionStart	;check to see if we are inserting into
	ldy  #TERecord.FirstWordEnd	;..the first word
	jsr  GetRecordLong
	cmpl TextOffset
	blt  notInFirst

	lda  TheChar		;we are inserting into the first word
	jsr  IsItAWordBreak		;..so check for inserting a word break
	bcc  notWordBreak

	ldax TextOffset		;set the first word end to the
	ldy  #TERecord.FirstWordEnd	;..current offset.
	jsr  SetRecordLong
;	jsr  MeasureTillOffset	;measure from the start of the line to
	ldy  #TERecord.FirstWordWidth	;..the current offset. Store the new width
	sta  [RecordPtr],y		;..in globals
	bra  checkPrevWrap

notWordBreak	ldy  #TERecord.FirstWordEnd	;increment the ending offset for the
	jsr  GetRecordLong		;..first word.
	incl a
	ldy  #TERecord.FirstWordEnd	;increment the ending offset for the
	jsr  SetRecordLong		;re-store the value in globals
	ldy  #TERecord.FirstWordWidth	;add the width of the inserted character
	lda  [RecordPtr],y		;..to the first word width
	clc		;..and re-store this in globals
	adc  TheCharWidth
	sta  [RecordPtr],y
	lda  WasSelectionEmpty	;if the selection was empty the width of
	cmp  #TRUE		;the first word INCREASED, so we don't
	beq  notInFirst		;need to check for wrap to the prev line

checkPrevWrap	ldy  #TERecord.FirstWordWidth	;get the width of the first word into
	lda  [RecordPtr],y		;..TempWord
	sta  TempWord
	ldy  #TERecord.PrevLineLeft	;get the number of pixels left on the
	lda  [RecordPtr],y		;..previous line.
	cmp  TempWord		;If pixels left >= word width we must
	bge  doComplex		;..word wrap, so call doComplex

notInFirst	ldy  #TERecord.LineWidth	;add the width of the character inserted
	lda  [RecordPtr],y		;..to the line width and re-store this
	clc		;..value in globals
	adc  TheCharWidth
	sta  TempWord
	sta  [RecordPtr],y
	ldy  #TERecord.NextFirstWordWidth	;get the width of the first word on the
	lda  [RecordPtr],y		;..next line and check to see if it will
	clc		;..fit on this line (this is necessary
	adc  TempWord		;..there was a non-empty selection)
	sta  TempWord+2		;if this word will fit on this line, we
	ldy  #TERecord.WrapWidth	;..need to word wrap so call doComplex
	lda  [RecordPtr],y
	cmp  TempWord+2
	bge  doComplex
	cmp  TempWord
	blt  doComplex

doSimple	jmp  SimpleKey

notEmpty	nop		;do some checks later
	brk  $26

doComplex	nop
	brk  $25
	rts

	ENDP

****************************************************************

****************************************************************

DoCR	PROC  EXPORT

	clc
	rts

oldHeight	equ  0

	jsr  Save0_4

	jsr  UnhilightSelection	;hide the old cursor
	jsr  ScrollToSelection	;scroll to the current selection.

	jsr  IsSelectionEmpty	;check to see if we have a selection
	bcsl doComplex

	jsr  GetSelectionStart
	jsr  FindLineInfo		;get the info for the current line
	lda  IsLineEndHard		;is this line ended by a CR or by end
	cmp  #FALSE		;..of text ?  If it is not then we need
	beql doComplex		;..to word wrap, so go do that.

	mov  LineHeight,oldHeight	;save the old line height and ascent.

	jsr  InsertChar		;insert the CR into the text.
	jsr  GetSelectionStart
	incl TextOffset
	jsr  SetSelectionStart
	jsr  SetSelectionEnd

	jsr  AddLineBreak		;add a line break at the current TextOffset.
	jsr  GetSelectionStart
	decl TextOffset
	jsr  FindLineInfo
	mov  LineHeight,TextHeight	;the first line new height is in TextHeight
	incl TextOffset
	jsr  FindLineInfo		;the second line new height is in LineHeight

	jsr  GetViewRect
	lda  TextVPos		;this is the top of the line rect
	clc
	adc  oldHeight		;this is the original line height
	sta  TempRect.top

	lda  LineHeight
	clc
	adc  TextHeight
	sec
	sbc  oldHeight
	tax

	PushZPtr TempRect
	PushWord #0
	phx
	PushLong #0
	_ScrollRect

	jsr  GetSelectionRect	;erase the rest of this line from the
	ldy  #TERecord.ViewRect.right	;..selection on.
	jsr  GetRecordWord
	sta  TempRect.right
	lda  TempRect.top
	clc
	adc  TextHeight
	sta  TempRect.bottom
	PushZPtr TempRect
	_EraseRect

	jsr  GetSelectionStart
	jsr  OffsetToPoint
	PushWord TextHPos
	PushWord TextVPos
	_MoveTo

	jsr  GetTextFormat		;get the format values

drawloop	PushLong TextPtr
	PushWord TextCount
	_DrawText
	lda  TextCount
	clc
	adc  TextOffset
	sta  TextOffset
	bcc  @1
	inc  TextOffset+2
@1	lda  WhatStoppedFormat
	cmp  #lineBreak
	beq  done
	cmp  #endOfText
	beq  done
	jsr  GetTextFormat
	bra  drawloop

done	jsr  HilightSelection	;show the new cursor
	jmp  Restore0_4

doComplex	brk  $51

	ENDP

****************************************************************

****************************************************************
* remove all the items from TextOffset to EndOffset
****************************************************************
RemoveSuperItems	PROC  EXPORT

	IMPORT  FindSuperInfo

	PushAX		;save the super handle
	jsr  FindSuperInfo		;find the right spot in the super array

	PushLong TextOffset		;save the starting TextOffset

	addl SuperStart,SuperLength,TextOffset
	cmpl TextOffset,EndOffset
	bgtl nothingToDo

	mov  SuperLocalIndex,DestPtr	;save the local index
	stzl SuperItemNumber	;use this as a counter

removeLoop	lda  SuperLocalIndex	;move the local index to the next
	clc		;..position
	adc  #SuperItemSize
	sta  SuperLocalIndex
	tay

	lda  [TempPtr],y		;add the new length to the original
	pha		;..length. Also save the new length
	clc
	adc  SuperLength
	sta  SuperLength
	iny
	iny
	lda  [TempPtr],y		;add the high word
	tax
	adc  SuperLength+2
	sta  SuperLength+2
	bcsl nextBlock		;if we wrapped around, we are in the
	and  SuperLength		;..next block
	cmp  #$FFFF		;if $FFFF FFFF then also in the next block
	beql nextBlock

	iny		;get the new height
	iny
	lda  [TempPtr],y		;add to the original height
	clc
	adc  LineHeight
	sta  LineHeight

	ldy  #BlockRecord.count	;update the line count field
	lda  [TempPtr],y
	dec  a
	sta  [TempPtr],y
	incl SuperItemNumber	;increment the number of items we removed

	pla		;restore the low word of the new length
	clc		;move TextOffset to the next item
	adc  TextOffset
	sta  TextOffset
	txa		;the high word is still in X
	adc  TextOffset+2
	sta  TextOffset+2
	cmp  EndOffset+2
	blt  removeLoop
	bne  done
	lda  TextOffset
	cmp  EndOffset
	ble  removeLoop

done	ldy  DestPtr		;get our original index
	lda  SuperLength		;copy the length into the original line.
	sta  [TempPtr],y
	iny
	iny
	lda  SuperLength+2
	sta  [TempPtr],y
	iny
	iny
	lda  LineHeight
	sta  [TempPtr],y

	lda  SuperLocalIndex
	clc
	adc  #SuperItemSize
	sta  MoveLength
	adc  TempPtr
	sta  SourcePtr
	lda  TempPtr+2
	adc  #0
	sta  SourcePtr+2

	lda  DestPtr
	adc  #SuperItemSize		;carry is already clear
	sta  SuperLocalIndex
	adc  TempPtr
	sta  DestPtr
	lda  TempPtr+2
	adc  #0
	sta  DestPtr+2

	ldy  SuperMainIndex		;get the local handle into TempPtr
	lda  [MainSuperPtr],y
	tax
	iny
	iny
	lda  [MainSuperPtr],y
	pha		;one copy for set handle size
	phx
	pha		;..and one for get handle size
	phx
	jsr  GetHandleSize
	pha		;save the size (one word)
	sec
	sbc  MoveLength
	sta  MoveLength
	stz  MoveLength+2
	jsr  BlockMove
	pla
	clc
	adc  DestPtr
	sec
	sbc  SourcePtr
	ldx  #0
	jsr  SetHandleSize

nothingToDo	PullLong TextOffset
	PullAX		;restore the super handle
	jmp  FindSuperInfo		;re-position things to the new item.

nextBlock	brk  $33

	ENDP

****************************************************************


;	lda  theOutputHandle,s
;	sta  OutputHandle
;	lda  theOutputHandle+2,s
;	sta  OutputHandle+2

;	PushZLong OutputHandle	;resize the output handle
;	ldy  #TERecord.textLength
;	jsr  GetRecordLong
;	jsr  SetHandleSize
;	bcs  sizeError

;	ldy  #TERecord.textLength	;check for zero length
;	lda  [RecordPtr],y
;	iny
;	iny
;	ora  [RecordPtr],y
;	beq  skipCopy

;	PushZLong OutputHandle	;deref the output handle
;	jsr  LockHandle
;	stax DestPtr		;save the pointer in dest pointer

;	jsr  GetBlockListPtr
;	ldy  #BlockListRecord.firstItem
;copyLoop	lda  [MemoryPtr],y
;	pha		;save the low word of block handle
;	iny
;	iny
;	lda  [MemoryPtr],y
;	tax		;the high word goes in X
;	and  1,s		;check for end of list
;	cmp  #$FFFF
;	beq  copyDone
;	iny
;	iny
;	lda  [MemoryPtr],y		;save the block length in move length
;	sta  MoveLength
;	iny
;	iny
;	lda  [MemoryPtr],y
;	sta  MoveLength+2
;	pla
;	phy		;save our current index
;	jsr  DerefAX		;get the source pointer
;	stax SourcePtr
;	jsr  BlockMove		;move the data
;	addl DestPtr,MoveLength,DestPtr	;bump the dest pointer forward.
;	pla		;get back our index
;	clc
;	adc  #BlockListItemSize-6
;	tay
;	bra  copyLoop

;copyDone	pla		;cleanup stack
;	PushZLong OutputHandle
;	jsr  UnlockHandle



****************************************************************
* remove all the items from TextOffset to EndOffset
****************************************************************
RemoveSuperItems	PROC  EXPORT

	IMPORT  FindSuperInfo

	PushAX		;save the super handle
	jsr  FindSuperInfo		;find the right spot in the super array
	stzl SuperItemNumber	;use this as a counter

	PushZLong TextOffset	;save the starting TextOffset

	addl SuperStart,SuperLength,TextOffset
	cmpl TextOffset,EndOffset
	bgtl nothingToDo

	mov  SuperLocalIndex,DestPtr	;save the local index

removeLoop	lda  SuperLocalIndex	;move the local index to the next
	clc		;..position
	adc  #SuperItemSize
	sta  SuperLocalIndex
	tay

	lda  [TempPtr],y		;add the new length to the original
	pha		;..length. Also save the new length
	clc
	adc  SuperLength
	sta  SuperLength
	iny
	iny
	lda  [TempPtr],y		;add the high word
	tax
	adc  SuperLength+2
	sta  SuperLength+2
	bcsl nextBlock		;if we wrapped around, we are in the
	and  SuperLength		;..next block
	cmp  #$FFFF		;if $FFFF FFFF then also in the next block
	beql nextBlock

	iny		;get the new height
	iny
	lda  [TempPtr],y		;add to the original height
	clc
	adc  LineHeight
	sta  LineHeight

	ldy  #SuperBlockRecord.count	;update the line count field
	lda  [TempPtr],y
	dec  a
	sta  [TempPtr],y
	incl SuperItemNumber	;increment the number of items we removed

	pla		;restore the low word of the new length
	clc		;move TextOffset to the next item
	adc  TextOffset
	sta  TextOffset
	txa		;the high word is still in X
	adc  TextOffset+2
	sta  TextOffset+2
	cmp  EndOffset+2
	blt  removeLoop
	bne  done
	lda  TextOffset
	cmp  EndOffset
	blt  removeLoop

done	ldy  DestPtr		;get our original index
	cpy  SuperLocalIndex
	beq  nothingToDo
	lda  SuperLength		;copy the length into the original line.
	sta  [TempPtr],y
	iny
	iny
	lda  SuperLength+2
	sta  [TempPtr],y
	iny
	iny
	lda  LineHeight
	sta  [TempPtr],y

	lda  SuperLocalIndex
	clc
	adc  #SuperItemSize
	sta  MoveLength
	adc  TempPtr
	sta  SourcePtr
	lda  TempPtr+2
	adc  #0
	sta  SourcePtr+2

	lda  DestPtr
	adc  #SuperItemSize		;carry is already clear
	sta  SuperLocalIndex
	adc  TempPtr
	sta  DestPtr
	lda  TempPtr+2
	adc  #0
	sta  DestPtr+2

	ldy  SuperMainIndex		;get the local handle into TempPtr
	lda  [MainSuperPtr],y
	tax
	iny
	iny
	lda  [MainSuperPtr],y
	pha		;one copy for set handle size
	phx
	pha		;..and one for get handle size
	phx
	jsr  GetHandleSize
	pha		;save the size (one word)
	sec
	sbc  MoveLength
	sta  MoveLength
	stz  MoveLength+2
	jsr  BlockMove
	pla
	clc
	adc  DestPtr
	sec
	sbc  SourcePtr
	ldx  #0
	jsr  SetHandleSize

nothingToDo	PullLong TextOffset
	PullAX		;restore the super handle
	ldy  SuperItemNumber+2
	phy
	ldy  SuperItemNumber
	phy
	jsr  FindSuperInfo		;re-position things to the new item.
	PullAX		;return how many lines we removed
	rts

nextBlock	pla		;pull off trash
	incl SuperLength		;adjust for the $FFFF FFFF length
	lda  SuperLocalIndex
	sec
	sbc  #SuperItemSize
	sta  SuperLocalIndex
;	cmp  DestPtr
;	beq  skipCrunch
;	brk  $33		;crunch it

	movl TempPtr,TempLong
	lda  SuperMainIndex
	clc
	adc  #4
	sta  SuperMainIndex
	tay
	lda  [MainSuperPtr],y
	sta  TempPtr
	iny
	iny
	lda  [MainSuperPtr],y
	sta  TempPtr+2
	and  TempPtr
	cmp  #$FFFF
	beq  atEnd
	brk  $34
atEnd	movl TempLong,TempPtr
	lda  SuperMainIndex
	sec
	sbc  #4
	sta  SuperMainIndex
	brl  done

	ENDP

****************************************************************
* This routine takes TextOffset as an input. TextOffset is an offset
* to the first line that changed. This line and all subsequent lines
* must be reformatted. This routine will also redraw the lines that
* it needs to. It will also scroll lines, by keeping track
* of the old TextVPos and the new TextVPos.
****************************************************************
RewrapUntilScreenEnd PROC  EXPORT

	ldy  #TERecord.TextLength	;if there is no text, we can skip this
	jsr  GetRecordLong		;..entire routine - (there are no lines)
	stx  TempWord
	ora  TempWord
	beql justRedraw

	PushZLong TextOffset	;save the old text offset

	jsr  FindLineInfo		;start at the beginning of this line
	lda  SuperStart		;copy super start into text offset and
	sta  TextOffset		;..set end offset to be at the end of
	clc		;..this line.
	adc  SuperLength
	sta  EndOffset
	lda  SuperStart+2
	sta  TextOffset+2
	adc  SuperLength+2
	sta  EndOffset+2
	mov  LineHeight,oldHeight
	jsr  OffsetToPoint		;find the TextVPos
	lda  TextVPos
	clc
	adc  LineHeight
	sta  OldNextVPos		;this is the old VPos of the next line

lineLoop	jsr  FindNextLineBreak	;carry set means there was no line break
	bcs  done		;..found.
	cmpl TextOffset,EndOffset
	bge  done
	jsr  GetLineSuperHandle	;get the line super pointers -- note
	jsr  SetupSuperPtrs		;..we must already be at the right spot
	lda  [TempPtr],y		;is the new length != the old length ?
	cmp  SuperLength		;then, we need to add a new item
	bne  addItem
	iny
	iny
	lda  [TempPtr],y
	cmp  SuperLength+2
	beq  checkForThru		;exactly equal means we are done.
addItem	lda  #$FFFF
	sta  addFlag
	jsr  GetLineSuperHandle
	jsr  InsertSuperItem	;insert a line at the current offset
	ldy  #TERecord.NumberOfLines	;increment the number of lines
	jsr  IncRecordLong
	decl TextOffset		;move to the previous line
	jsr  CalculateLineHeight	;get the height
	lda  TextVPos		;move the new top of line down by the
	clc		;..height of the previous line
	adc  LineHeight
	sta  TextVPos
	incl TextOffset		;move to the new line
	jsr  CalculateLineHeight	;get the new height
	brl  lineLoop		;go back for another line

checkForThru	ldy  #TERecord.TextLength	;are we at the very end ?
	jsr  GetRecordLong
	cmpl TextOffset
	bne  thruWrapping
	decl TextOffset
	jsr  FindBlockInfo
	jsr  BlockToTextPtr
	incl TextOffset
	lda  [TextPtr]		;was the last character a CR ?
	and  #$00FF
	cmp  #$0D
	bne  thruWrapping		;..nope
	jsr  FindLineInfo		;we are, so find the line info
	cmpl SuperStart,TextOffset	;if there is alreay a new line, then
	bne  addItem		;..quit. otherwise, add the line

thruWrapping	decl TextOffset
	jsr  CalculateLineHeight	;recal the line height for this line
	incl TextOffset
	jsr  GetViewRect		;setup the scrolling rectangle
	lda  OldNextVPos		;start at the old next position
	ldx  addFlag
	bne  skipAdjust
	sec
	sbc  oldHeight
	clc
	adc  LineHeight
skipAdjust	sta  TempRect.top
	lda  TextVPos		;get the new top position of the line
	clc		;..that didn't change
	adc  LineHeight
	sta  TextVPos
	sec
	sbc  OldNextVPos
	sta  OldNextVPos		;save the amount to scroll
	beq  skipScroll
	PushZPtr TempRect
	PushWord #0
	PushZWord OldNextVPos
	PushLong #0
	_ScrollRect
	lda  OldNextVPos
	bpl  skipScroll
; must redraw the bottom here

skipScroll	movl TextOffset,SavedOffset
	lda  1,s
	sta  TextOffset
	lda  3,s
	sta  TextOffset+2
drawLoop	jsr  RedrawLine
	cmpl TextOffset,SavedOffset
	blt  drawLoop

	PullLong TextOffset		;restore text offset

allDone	jmp  Restore0_4

justRedraw	jsr  RedrawLine
	bra  allDone

	ENDP

	PROC
doSimple
	jsr  InsertChar		;put the character into the text block
	jsr  GetSelectionStart	;get the selection start into TextOffset

	jsr  GetJust
	cmp  #leftJust
	bnel notLeftJust

	jsr  UnhilightSelection	;remove the selection hilighting

	jsr  CaretToPoint
	lda  TextHPos
	pha		;save the old horizontal pos in TempRect
	clc
	adc  TheCharWidth
	sta  TextHPos
	jsr  PointToCaret		;this kills TempRect

	ldy  #TERecord.ViewRect.right	;set the right side of the rectangle
	lda  [RecordPtr],y
	sta  TempRect.right

	lda  1,s
	sta  TempRect.left
	lda  TextVPos
	clc
	adc  LineAscent
	pha
	_MoveTo

	jsr  GetTextFormat		;get the format values
	lda  WhatStoppedFormat
	cmp  #lineBreak		;check to see if there are several styles
	beq  drawloop		;..in this line. If there are we want to
	cmp  #endOfText		;..erase the line
	beq  drawloop

	jsr  EraseTempRect

drawloop	PushZLong TextPtr
	PushZWord TextCount
	_DrawText
	lda  TextCount
	clc
	adc  TextOffset
	sta  TextOffset
	bcc  @1
	inc  TextOffset+2
@1	lda  WhatStoppedFormat
	cmp  #lineBreak
	beq  done
	cmp  #endOfText
	beq  done
	jsr  GetTextFormat
	bra  drawloop

done	lda  WasSelectionEmpty
	cmp  #TRUE
	beq  allDone

	PushZPtr TempLong
	_GetPen
	mov  TempLong+2,TempRect.left
	jsr  EraseTempRect

allDone	jsr  GetSelectionStart
	incl TextOffset
	jsr  SetSelectionStart
	jsr  SetSelectionEnd
	jsr  HilightSelection
	clc
	rts

notLeftJust	brk  $49

	ENDP
****************************************************************
* remove all the line starts between TextOffset & EndOffset
* destroys TempPtr, TempWord, & TempLong
****************************************************************
RemoveLineStarts	PROC  EXPORT

ItemsRemoved	equ  SuperItemNumber
MaxLength	equ  EndOffset

	jsr  GetLineSuperHandle	;find the starting line in the super
	jsr  FindSuperInfo		;array.

	lda  SuperStart		;do a quick check to see if we are
	clc		;..removing items or not. If not then
	adc  SuperLength		;..quickly exit.
	tax
	lda  SuperStart+2
	adc  SuperLength+2
	cmp  EndOffset+2
	blt  mustRemoveItems
	cpx  EndOffset
	bgtl nothingToDo

mustRemoveItems	ldy  SuperMainIndex		;save the original local handle
	lda  [MainSuperPtr],y
	sta  SuperLocalHandle
	iny
	iny
	lda  [MainSuperPtr],y
	sta  SuperLocalHandle+2

	subl EndOffset,SuperStart,MaxLength	;we stop when SuperLength reaches MaxLength
	stzl ItemsRemoved		;use this as an item counter
	stzl SuperLength		;zero out SuperLength for the loop and
	stz  LineHeight		;..the same with line height
	ldy  SuperLocalIndex	;start at the current index
itemStart	sty  DestPtr		;save the starting index
itemLoop	lda  [TempPtr],y		;get the length of the current item
	sta  TempWord		;save it temporarily
	clc		;X, A will contain the old super length
	adc  SuperLength		;..plus the length of the new item
	tax		;..X is low, A is High
	iny
	iny
	lda  [TempPtr],y		;but first check to see if we are at
	and  TempWord		;..the end of a block ($FFFF FFFF)
	cmp  #$FFFF
	beql nextBlock		;yes, goto next block
	lda  [TempPtr],y		;add the high word of the lengths and
	clc		;..compare against the maximum length
	adc  SuperLength+2
	cmp  MaxLength+2
	blt  itemContinue
	bne  removeItems
	cpx  MaxLength
	bge  removeItems
itemContinue	stx  SuperLength+2		;store the new length
	sta  SuperLength
	iny
	iny
	tya
	clc
	adc  #SuperItemSize-4
	pha		;save on the stack
	incl ItemsRemoved
	ldy  #SuperBlockRecord.count	;fix the block count field.
	lda  [TempPtr],y
	dec  a
	sta  [TempPtr],y
	ply		;restore our index
	bra  itemLoop

removeItems	bne  skipLastItem		;check to see if we should remove the
	tya		;..last item
	clc
	adc  #SuperItemSize
	pha
	incl ItemsRemoved		;remove one more item.
	ldy  #SuperBlockRecord.count	;fix the block count field.
	lda  [TempPtr],y
	dec  a
	sta  [TempPtr],y
	ply		;restore our index
skipLastItem	dey		;adjust Y back to beginning of item
	dey
	sty  SourcePtr
	cpy  DestPtr
	beq  skipCrunch		;is there anything to do ?
	ldy  SuperMainIndex		;get the current local handle
	lda  [MainSuperPtr],y
	pha
	iny
	iny
	lda  [MainSuperPtr],y
	tax
	pla
	jsr  crunchIt		;crunch it.
skipCrunch	PushZLong SuperLocalHandle	;dereference the orginal handle
	jsr  DerefHandle
	stax TempPtr
	ldy  SuperLocalIndex
	lda  SuperLength
	sta  [TempPtr],y
	iny
	iny
	lda  SuperLength+2
	sta  [TempPtr],y
	iny
	iny
	lda  LineHeight
	sta  [TempPtr],y
	ldy  #TERecord.NumberOfLines	;adjust the number of lines in the record
	lda  [RecordPtr],y
	sec
	sbc  ItemsRemoved
	sta  [RecordPtr],y
	iny
	iny
	lda  [RecordPtr],y
	sbc  ItemsRemoved+2
	sta  [RecordPtr],y
nothingToDo	rts		;go back to caller

nextBlock	lda  #$FFFF		;on next block, mark line height overflow
	sta  LineHeight
	lda  SuperLocalIndex	;move just past the starting line
	clc
	adc  #SuperItemSize
	tay
	jsr  TerminateTempPtr	;terminate our original block
	iny
	iny
	tya
	ldx  #0
	PushZLong SuperLocalHandle	;resize the original handle
	jsr  SetHandleSize

	lda  SuperMainIndex		;save the destination index for the
	clc		;..crunch
	adc  #4
	sta  DestPtr
blockLoop	lda  SuperMainIndex		;move the main index to the next handle
	clc
	adc  #4
	sta  SuperMainIndex
	tay
	lda  [MainSuperPtr],y	;save the local handle in tempPtr
	sta  TempPtr
	iny
	iny
	lda  [MainSuperPtr],y
	sta  TempPtr+2
	and  TempPtr
	cmp  #$FFFF
	beq  atEnd
	PushZLong TempPtr		;save the local handle
	jsr  DerefTempPtr
	ldy  #SuperBlockRecord.length
	lda  [TempPtr],y
	clc
	adc  SuperLength
	tax
	iny
	iny
	lda  [TempPtr],y
	adc  SuperLength+2
	cmp  MaxLength+2
	blt  blockContinue
	bne  removeBlocks
	cpx  MaxLength
	bge  removeBlocks
blockContinue	stx  SuperLength
	sta  SuperLength+2
	ldy  #SuperBlockRecord.count
	lda  [TempPtr],y
	clc
	adc  ItemsRemoved
	sta  ItemsRemoved
	bcc  @1
	inc  ItemsRemoved+2
@1	PullAX
	jsr  KillHandle		;kill the handle on the stack
	bra  blockLoop

atEnd	jsr  GetLineSuperHandle	;get the main line super handle
	PushAX		;put it on the stack
	ldy  DestPtr
	lda  #$FFFF
	sta  [MainSuperPtr],y
	iny
	iny
	sta  [MainSuperPtr],y
	iny
	iny
	ldx  #0		;high word is always zero
	tya		;this is the low word
	jsr  SetHandleSize
	brl  skipCrunch

removeBlocks	bne  skipLast		;if equal, we want to remove this block too
	PullAX
	jsr  KillHandle		;kill the last handle
	stzl TempPtr		;set our last flag
	lda  SuperMainIndex		;saves bytes
	bra  crunchMain
skipLast	PullLong TempPtr		;pull off the handle into temp pointer
	lda  SuperMainIndex		;move the index back
	sec
	sbc  #4
crunchMain	sta  SourcePtr
	jsr  GetLineSuperHandle	;get the main line super handle
	jsr  crunchIt

	lda  TempPtr		;are we all through ?
	ora  TempPtr+2
	beq  allDone
	jsr  DerefTempPtr		;get the local pointer
	ldy  #SuperBlockRecord.firstItem	;start at the first item and go back to
	brl  itemStart		;..the item loop

allDone	rts

crunchIt	PushAX		;(handle comes in in A,X) -  GetHandleSize
	PushAX		;one copy for DerefHandle
	PushAX		;one copy for DerefHandle
	PushAX		;one copy for SetHandleSize
	jsr  GetHandleSize
	sec
	sbc  SourcePtr
	sta  MoveLength		;this is the length to move
	stz  MoveLength
	clc
	adc  DestPtr		;calculate the new size for the handle
	pha		;..and save it on the stack
	jsr  DerefHandle		;add the starting pointer to the source
	clc		;..index
	adc  SourcePtr
	sta  SourcePtr
	bcc  @1
	inx
@1	stx  SourcePtr+2
	jsr  DerefHandle		;add the starting pointer to the dest
	clc		;..index
	adc  DestPtr
	sta  DestPtr
	bcc  @2
	inx
@2	stx  DestPtr+2
	jsr  BlockMove		;move the data
	pla		;recover the new size and set the size of
	ldx  #0		;..the handle
	jsr  SetHandleSize
	rts

	ENDP

****************************************************************
CalculateLineHeight	PROC  EXPORT

	PushZLong EndOffset		;save the original ending offset
	PushZLong TextOffset	;save the original text offset

	jsr  FindLineInfo
	stz  LineHeight
	stz  LineAscent
	lda  SuperStart
	sta  TextOffset
	clc
	adc  SuperLength
	sta  EndOffset
	lda  SuperStart+2
	sta  TextOffset+2
	adc  SuperLength+2
	sta  EndOffset+2
heightLoop	jsr  FindStyleInfo		;find the new style information
	lda  SuperData		;see, if there is a new style item
	cmp  TextStyleItem
	beq  skipSetStyle		;nope = skip this
	sta  TextStyleItem		;yes, so setup the values
	jsr  InstallStyleItem
skipSetStyle	lda  TextHeight
	cmp  LineHeight
	blt  @1
	sta  LineHeight
@1	lda  TextAscent
	cmp  LineAscent
	blt  @2
	sta  LineAscent
@2	addl SuperStart,SuperLength,TextOffset
	cmpl TextOffset,EndOffset
	blt  heightLoop

	mov  LineHeight,SuperData
	mov  LineAscent,SuperData+2
	jsr  GetLineSuperHandle
	jsr  SetSuperData
	PullLong TextOffset		;restore the original text offset
	PullLong EndOffset		;restore the original ending offset
	rts

	ENDP

****************************************************************
* This routine takes TextOffset as an input. TextOffset is an offset
* to the first line that changed. This line and all subsequent lines
* must be reformatted. This routine will also redraw the lines that
* it needs to. It will also scroll lines, by keeping track
* of the old TextVPos and the new TextVPos.
****************************************************************
RewrapLines	PROC  EXPORT

addFlag	equ  0
oldHeight	equ  2

	jsr  Save0_4

	stz  addFlag		;this is for scrolling adjustment

	ldy  #TERecord.TextLength	;if there is no text, we can skip this
	jsr  GetRecordLong		;..entire routine - (there are no lines)
	stx  TempWord
	ora  TempWord
	beql justRedraw
	jsr  AreWeWordWrapping
	bcc  simple		;nope

complex	brk  $4A		;needs more work.

simple	PushZLong TextOffset	;save the starting text offset
	jsr  FindLineInfo		;move the offset to the beginning of the
	movl SuperStart,TextOffset	;..current line
	mov  LineHeight,oldHeight
	jsr  OffsetToPoint		;find the TextVPos
	lda  TextVPos
	clc
	adc  LineHeight
	sta  OldNextVPos		;this is the old VPos of the next line

blockLoopStart	stzl SuperLength		;zero out the length field
blockLoop	jsr  FindBlockInfo		;get the text pointer
	jsr  BlockToTextPtr
	lda  BlockCount		;are we done ?
	beql thruWrapping

	ldy  #0		;search for a CR.
	shortm
findCRLoop	lda  [TextPtr],y
	cmp  #$0D
	beq  foundCR
	iny
	cpy  BlockCount
	blt  findCRLoop

	longm
	tya		;move the text offset forward by block
	clc		;..count
	adc  TextOffset		;(Y is the block count)
	sta  TextOffset
	bcc  @1
	inc  TextOffset+2
@1	tya		;add block count to the new line length
	clc		;(Y is the block count)
	adc  SuperLength
	sta  SuperLength
	bcc  @2
	inc  SuperLength+2
@2	ldy  #TERecord.TextLength	;are we at the end of the text ?
	jsr  GetRecordLong		;..nope so go back to the block loop
	cmp  TextOffset
	bne  blockLoop
	cpx  TextOffset+2
	bne  blockLoop
	brl  checkLine		;we are done if we are at the end

foundCR	longm		;back to long mode
	tya		;where were we at ?
	sec		;skip over the CR
	adc  TextOffset		;move the text offset to the new spot.
	sta  TextOffset
	bcc  @1
	inc  TextOffset+2
@1	tya		;add to the length.
	sec
	adc  SuperLength
	sta  SuperLength
	bcc  checkLine
	inc  SuperLength+2

checkLine	jsr  GetLineSuperHandle	;get the line super pointers -- note
	jsr  SetupSuperPtrs		;..we must already be at the right spot
	lda  [TempPtr],y		;is the new length != the old length ?
	cmp  SuperLength		;then, we need to add a new item
	bne  addItem
	iny
	iny
	lda  [TempPtr],y
	cmp  SuperLength+2
	beq  checkForThru		;exactly equal means we are done.

addItem	lda  #$FFFF
	sta  addFlag
	jsr  GetLineSuperHandle
	jsr  InsertSuperItem	;insert a line at the current offset
	ldy  #TERecord.NumberOfLines	;increment the number of lines
	jsr  IncRecordLong
	decl TextOffset		;move to the previous line
	jsr  CalculateLineHeight	;get the height
	lda  TextVPos		;move the new top of line down by the
	clc		;..height of the previous line
	adc  LineHeight
	sta  TextVPos
	incl TextOffset		;move to the new line
	jsr  CalculateLineHeight	;get the new height
	brl  blockLoopStart		;go back for another line

checkForThru	ldy  #TERecord.TextLength	;are we at the very end ?
	jsr  GetRecordLong
	cmpl TextOffset
	bne  thruWrapping
	decl TextOffset
	jsr  FindBlockInfo
	jsr  BlockToTextPtr
	incl TextOffset
	lda  [TextPtr]		;was the last character a CR ?
	and  #$00FF
	cmp  #$0D
	bne  thruWrapping		;..nope
	jsr  FindLineInfo		;we are, so find the line info
	cmpl SuperStart,TextOffset	;if there is alreay a new line, then
	bne  addItem		;..quit. otherwise, add the line

thruWrapping	decl TextOffset
	jsr  CalculateLineHeight	;recal the line height for this line
	incl TextOffset
	jsr  GetViewRect		;setup the scrolling rectangle
	lda  OldNextVPos		;start at the old next position
	ldx  addFlag
	bne  skipAdjust
	sec
	sbc  oldHeight
	clc
	adc  LineHeight
skipAdjust	sta  TempRect.top
	lda  TextVPos		;get the new top position of the line
	clc		;..that didn't change
	adc  LineHeight
	sta  TextVPos
	sec
	sbc  OldNextVPos
	sta  OldNextVPos		;save the amount to scroll
	beq  skipScroll
	PushZPtr TempRect
	PushWord #0
	PushZWord OldNextVPos
	PushLong #0
	_ScrollRect
	lda  OldNextVPos
	bpl  skipScroll
; must redraw the bottom here

skipScroll	movl TextOffset,SavedOffset
	lda  1,s
	sta  TextOffset
	lda  3,s
	sta  TextOffset+2
drawLoop	jsr  RedrawLine
	cmpl TextOffset,SavedOffset
	blt  drawLoop

	PullLong TextOffset		;restore text offset

allDone	jmp  Restore0_4

justRedraw	jsr  RedrawLine
	bra  allDone

	ENDP

****************************************************************

	INCLUDE  'GlobalIncludes'


****************************************************************

DebugPrintMain	PROC  EXPORT

	phb
	phk
	plb

	jsr  SetupDebugPrint

	PushWord #10
	PushWord #20
	_MoveTo
	PushWord Value1
	PushLong #tempStr
	PushWord #5
	PushWord #1
	_Int2Dec
	PushLong #tempStr
	_DrawCString

	PushWord #110
	PushWord #20
	_MoveTo
	PushWord Value2
	PushLong #tempStr
	PushWord #5
	PushWord #1
	_Int2Dec
	PushLong #tempStr
	_DrawCString

	PushWord #210
	PushWord #20
	_MoveTo
	PushWord Value3
	PushLong #tempStr
	PushWord #5
	PushWord #1
	_Int2Dec
	PushLong #tempStr
	_DrawCString

	PushWord #310
	PushWord #20
	_MoveTo
	PushWord Value4
	PushLong #tempStr
	PushWord #5
	PushWord #1
	_Int2Dec
	PushLong #tempStr
	_DrawCString

	jsr  RestoreDebugPrint
	plb
	rts

	EXPORT Value1,Value2,Value3,Value4
Value1	ds.w  1
Value2	ds.w  1
Value3	ds.w  1
Value4	ds.w  1

tempStr	ds.b  5
	dc.b  ' ',0

	ENDP

****************************************************************

DebugPrintDefProc	PROC  EXPORT

	DefineStack		;these are our direct page variables
OrigB	byte		;..for the defproc
OrigD	word
RTL	block 3
theControlHandle	long
ctrlParam	long
ctrlMessage	word
result	long


	phb
	phk
	plb

	jsr  SetupDebugPrint

	inc  debugCount

	PushWord #100
	PushWord #10
	_MoveTo

	PushLong #mess1
	_DrawCString
	lda  ctrlMessage
	jsr  DrawHexWord

	PushLong #mess2
	_DrawCString
	ldax ctrlParam
	jsr  DrawHexLong

	PushLong #mess3
	_DrawCString
	ldax theControlHandle
	jsr  DrawHexLong

	PushLong #mess4
	_DrawCString
	PushWord debugCount
	PushLong #tempStr
	PushWord #4
	PushWord #0		;not signed
	_Int2Dec
	PushLong #tempStr
	_DrawCString

	lda  ctrlMessage
	cmp  #0
	bra  done

loop	PushWordSpace                    ;pause for a key
	PushWord #$000A
	PushLong #extraRecord
	_GetNextEvent
	pla
	beq  loop

done	jsr  RestoreDebugPrint
	plb
	rts

mess1	dc.b  'Message = $',0
mess2	dc.b  ', Parameter = $',0
mess3	dc.b  ', Handle = $',0
mess4	dc.b  ',  ',0

extraRecord	ds.b  32
debugCount	dc.w  0
tempStr	ds.b  4
	dc.b  0

	ENDP

****************************************************************
SetupDebugPrint	PROC  EXPORT

	EXPORT  SetDebugPort
	EXPORT  RestoreDebugPrint

;---------------------------------------------------------------

	PullWord returnAddr

	PushLongSpace		;save the old port
	_GetPort

	PushLong DebugPort
	_SetPort

	PushLongSpace
	_GetVisHandle		;leave it on the stack

	PushLongSpace
	_NewRgn
	lda  3,s
	tax
	lda  1,s
	PushAX		;save three total copies on the stack
	PushAX
	PushWord #-2000
	PushWord #-2000
	PushWord #2000
	PushWord #2000
	_SetRectRgn		;use first copy
	_SetVisHandle		;use second copy

	PushLong #clearRect
	_EraseRect

	PushWord returnAddr
	rts

;---------------------------------------------------------------
SetDebugPort
	phb
	phk
	plb
	stax DebugPort
	plb
	rts

;---------------------------------------------------------------
RestoreDebugPrint
	PullWord returnAddr

	_DisposeRgn		;dispose our clipping region
	_SetVisHandle
	_SetPort		;restore the port

	PushWord returnAddr
	rts

;---------------------------------------------------------------

returnAddr	ds.w  1
clearRect	dc.w  0,0,28,640
DebugPort	ds.l  1

	ENDP

****************************************************************
* the value to be draw comes in in A
****************************************************************
DrawHexWord	PROC  EXPORT

	phb		;save the data bank
	phk		;set it to ours
	plb

	PushLongSpace
	pha
	_HexIt
	PullLong tempStr
	PushLong #tempStr
	_DrawCString

	plb		;restore the data bank
	rts

tempStr	ds.b  4
	dc.b  0

	ENDP

****************************************************************
* the value to be draw comes in in A and X
****************************************************************
DrawHexLong	PROC  EXPORT

	phb		;save the data bank
	phk		;set it to ours
	plb

	PushLongSpace		;save low word for later
	pha
	PushLongSpace		;do high word first.
	phx
	_HexIt
	PullLong tempStr
	PushLong #tempStr
	_DrawCString
	_HexIt		;now do the low word
	PullLong tempStr
	PushLong #tempStr
	_DrawCString

	plb		;restore the data bank
	rts

tempStr	ds.b  4
	dc.b  0

	ENDP

****************************************************************
****************************************************************
* This routine takes TextOffset as an input and returns the
* top of the line in TextVPos and the left of the character in
* TextHPos
****************************************************************
OffsetToPoint	PROC  EXPORT

originalOffset	equ  0
myCounter	equ  0

	jsr  Save0_4		;get space for our locals

	movl TextOffset,originalOffset	;save this for later

	ldy  #TERecord.ViewRect.top
	jsr  GetRecordLong		;this gets both the top and left
	sta  TextVPos		;this is the top
	stx  TextHPos		;this is the left

	ldy  #TERecord.VertScrollPos	;this is the offset for the top of the
	jsr  GetRecordLong		;..screen.
	stax TextOffset

lineLoop	jsr  FindLineInfo		;get information on the line
	lda  TextOffset
	clc
	adc  SuperLength
	tax		;save in X
	sta  TextOffset
	lda  TextOffset+2
	adc  SuperLength+2
	sta  TextOffset+2
	cmp  originalOffset+2
	blt  keepGoing
	bne  foundLine
	cpx  originalOffset
	blt  keepGoing
	bne  foundLine
checkEnd	ldy  #TERecord.NumberOfLines+2
	lda  [RecordPtr],y
	cmp  LineNumber+2
	bne  keepGoing
	dey
	dey
	lda  [RecordPtr],y
	cmp  LineNumber
	beq  foundLine
keepGoing	lda  TextVPos		;add the line height to TextVPos
	clc
	adc  LineHeight
	sta  TextVPos
	bra  lineLoop

foundLine	movl SuperStart,TextOffset	;start at the beginning of this line
	lda  originalOffset
	sec
	sbc  TextOffset
	sta  myCounter
	lda  originalOffset+2
	sbc  TextOffset+2
	sta  myCounter+2

	jsr  GetLeftMargin		;later on, we need to test for stuff
	clc		;..like left just, etc
	adc  TextHPos
	sta  TextHPos

	jsr  SetupWidthTable	;setup the width table pointer

mainLoop	jsr  GetTextFormat
	lda  myCounter+2
	bne  skipCheck
	lda  myCounter
	beq  done
	cmp  TextCount
	bge  skipCheck
	sta  TextCount
skipCheck	lda  myCounter
	sec
	sbc  TextCount
	sta  myCounter
	bcs  @1
	dec  myCounter+2
@1	lda  #0
	shortm
	ldx  TextCount
	bra  loopEnd
widthLoop	txy
	lda  [TextPtr],y
	tay
	lda  [WidthTablePtr],y
	clc
	adc  TextHPos
	sta  TextHPos
	bcc  loopEnd
	inc  TextHPos+1
loopEnd	dex
	bne  widthLoop
	lda  [TextPtr]		;do the last one.
	tay
	lda  [WidthTablePtr],y
	longm		;back to long mode here
	clc
	adc  TextHPos
	sta  TextHPos
	lda  TextOffset
	clc
	adc  TextCount
	sta  TextOffset
	bcc  @2
	inc  TextOffset+2
@2	lda  myCounter
	ora  myCounter+2
	bne  mainLoop

done	jsr  FreeWidthTable		;unlock the width table
	jmp  Restore0_4

	ENDP

****************************************************************
* This routine takes TextOffset as an input. It draws the line
* from TextOffset to the end if it is left justified; otherwise
* it draws the entire line.
****************************************************************
RedrawLine	PROC  EXPORT

	jsr  FindLineInfo

	jsr  GetJust		;get the current justification
	cmp  #leftJust
	beq  doLeft

	movl SuperStart,TextOffset
	jsr  OffsetToPoint
	jsr  MeasureLineWidth
	sta  TextHPos
	jsr  GetLeftEdge
	pha
	jsr  GetRightMargin
	sec
	sbc  1,s
	plx
;	sta  WrapWidth

doLeft	lda  TextHPos		;position the cursor for drawing
	sta  TempRect.left
	pha
	lda  TextVPos
	sta  TempRect.top
	clc
	adc  LineAscent
	pha
	_MoveTo

drawloop	jsr  GetTextFormat		;get the format values
	ldy  #o_PnLoc+2		;get the horizontal pen position before
	lda  [GrafPortPtr],y	;..the draw operation
	sta  TempRect.left
	PushZLong TextPtr
	PushZWord TextCount
	_DrawText
	lda  TextCount
	clc
	adc  TextOffset
	sta  TextOffset
	bcc  @1
	inc  TextOffset+2
@1	lda  WhatStoppedFormat
	cmp  #lineBreak
	beq  done
	cmp  #endOfText
	beq  done
	cmp  #styleBreak		;if not style break then loop back
	bne  drawloop
	lda  LineAscent
	sec
	sbc  TextAscent
	beq  drawLoop
	clc
	adc  TextVPos
	sta  TempRect.bottom
	ldy  #o_PnLoc+2		;horizontal pen position
	lda  [GrafPortPtr],y
	sta  TempRect.right
	jsr  EraseTempRect
	bra  drawloop

done	ldy  #o_PnLoc+2		;horizontal pen position
	lda  [GrafPortPtr],y	;erase the rest of the line
	sta  TempRect.left
	lda  TempRect.top
	clc
	adc  LineHeight
	sta  TempRect.bottom
	ldy  #TERecord.ViewRect.right
	lda  [RecordPtr],y
	sta  TempRect.right
	jsr  EraseTempRect
	clc
	rts

	ENDP
****************************************************************

DoDelete	PROC  EXPORT

	jsr  UnhilightSelection	;remove the selection from the screen

	jsr  GetSelectionStart	;where are we ?
	lda  TextOffset
	ora  TextOffset+2
	beql allDone

	decl TextOffset		;move back one character
	jsr  SetSelectionStart	;set the new cursor offset.
	jsr  SetSelectionEnd

	ldax TextOffset
;	jsr  DeleteChar		;remove this character from the block

;	lda  TextOffset		;we need to find some way to fix
;	ora  TextOffset+2		;..this bug without kludges
;	beq  skip
;	decl TextOffset
skip
;	jsr  RewrapLines

	jsr  GetSelectionStart	;set the new cursor position.
	jsr  OffsetToPoint
	jsr  PointToCaret

allDone	jsr  HilightSelection
	clc
	rts

	ENDP

****************************************************************

InsertChar	PROC  EXPORT

	jsr  GetSelectionStart	;get the selection start into TextOffset
	jsr  FindBlockInfo		;get block info for the current selection

	subl TextOffset,BlockStart,SourcePtr	;the number of chars before the insert
	subl BlockLength,SourcePtr,MoveLength	;calculate the number of chars to move
	incl BlockLength		;increment the block length and re-store
	jsr  SetBlockSize		;..it in the block list

	ldy  #2		;add the start of the block to source ptr
	lda  [BlockHandle]
	clc
	adc  SourcePtr
	sta  SourcePtr
	lda  [BlockHandle],y
	adc  SourcePtr+2
	sta  SourcePtr+2
	ldax SourcePtr		;copy source ptr to dest ptr. dest will be
	inc  a		;..one greater than source, so as to make
	bne  @1		;..space for one character.
	inx
@1	stax DestPtr
	jsr  BlockMove
	shortm
	lda  TheChar		;store the character in the text
	sta  [SourcePtr]
	longm

	ldy  #TERecord.TextLength	;increment the text length
	jsr  IncRecordLong

	jsr  FindLineInfo		;bump the line length counter by one
	incl SuperLength
	jsr  SetLineLength

	ldy  #TERecord.monoStyle
	lda  [RecordPtr],y
	cmp  #TRUE
	beq  skipStyle

	jsr  FindStyleInfo		;bump the style length counter by one
	incl SuperLength
	jsr  SetStyleInfo		;..since we didn't add any lines.

skipStyle	clc
	rts

	ENDP

****************************************************************

DeleteChar	PROC  EXPORT

	jsr  GetSelectionStart	;get the selection start into TextOffset
	jsr  FindBlockInfo		;get block info for the current selection

	subl TextOffset,BlockStart,DestPtr	;the number of chars before the delete
	subl BlockLength,DestPtr,MoveLength	;calculate the number of chars to move
	decl MoveLength

	ldy  #2		;add the start of the block to source ptr
	lda  [BlockHandle]
	clc
	adc  DestPtr
	sta  DestPtr
	lda  [BlockHandle],y
	adc  DestPtr+2
	sta  DestPtr+2
	ldax DestPtr		;copy source ptr to dest ptr. dest will be
	inc  a		;..one greater than source, so as to make
	bne  @1		;..space for one character.
	inx
@1	stax SourcePtr
	jsr  BlockMove

	decl BlockLength		;decrement the block length and re-store
	jsr  SetBlockSize		;..it in the block list

	ldy  #TERecord.TextLength
	lda  [RecordPtr],y
	dec  a
	sta  [RecordPtr],y
	cmp  #$FFFF
	bne  @2
	iny
	iny
	lda  [RecordPtr],y
	dec  a
	sta  [RecordPtr],y

@2	jsr  FindLineInfo		;bump the line length counter by one
	decl SuperLength
	jsr  SetLineLength

	ldy  #TERecord.monoStyle
	lda  [RecordPtr],y
	cmp  #TRUE
	beq  skipStyle

	jsr  FindStyleInfo		;bump the style length counter by one
	decl SuperLength
	jsr  SetStyleInfo

skipStyle	clc
	rts

	ENDP

****************************************************************

	END
;---------------------------------------------------------------
; Quickdraw equates...stolen directly from the qd.equate file. Maybe later
; use QD's actual file.
;---------------------------------------------------------------
	DSECT $00

o_PortSCB	word
o_ImageRef	long
o_Width	word
o_BoundsRect	block 8
o_PortRect	block 8

o_ClipRgn	long		;start of the stuff that we save
o_VisRgn	long

o_BkPat	block 32

o_PnLoc	long
o_PnSize	long
o_PnMode	word
o_PnPat	block 32
o_PnMask	block 8
o_PnVis	word

o_Font	long
o_FontID	long
o_FontFlags	word
o_TxSize	word
o_TxFace	word
o_TxMode	word
o_SpExtra	long
o_ChExtra	long
o_FGColor	word
o_BGColor	word		;end of the stuff that we save

o_PicSave	long
o_RgnSave	long
o_PolySave	long
o_GrafProcs	long

o_ArcRot	word
o_UserField	long
o_SysField	long
;---------------------------------------------------------------



	PushLongSpace		;space for control handle
	PushZLong GrafPortPtr	;push the current port's pointer
	ldax ParameterPtr		;pointer to the bounding rectangle
	clc
	adc  #TEParam.viewRect
	bcc  @1
	inx
@1	PushAX
	PushLong #0		;CtlData field
	PushWord #0		;CtlFlags field
	PushWord #0		;CtlValue
	PushLong #0		;Param1 + Param2
	PushLong #TEDefProc		;my custom defproc
	PushLong #0		;refcon.. for application use
	PushLong #0		;color table pointer
	_NewControl		;get our text edit control
****************************************************************
* This routine takes a pointer to the new ruler block in A,X
****************************************************************
AddToRulerList	PROC  EXPORT

	stax MemoryPtr		;save the pointer to the new ruler

	ldx  #MinRulerSize		;calculate the ruler size
	ldy  #TERuler.tabType
	lda  [MemoryPtr],y
	cmp  #noTabs
	beq  resizeIt
	inx		;if equal tabs then the ruler is two bytes
	inx		;..bigger
	cmp  #equalTabs
	beq  resizeIt
	inx		;if user tabs then the ruler is four bytes
	inx		;..bigger than the minimum
	cmp  #variableTabs
	bne  resizeIt
	ldy  #TERuler.numberOfTabs	;the ruler has a variable number of tabs
	lda  [MemoryPtr],y		;..so find out how many, multiply by four
	asl  a		;..add the minimum size, and add two for
	asl  a		;..the count to get the final ruler size.
	clc
	adc  #MinRulerSize+2
	tax

resizeIt	stx  RulerSize
	ldy  #TERecord.RulerList	;the new ruler is not in the list, so
	jsr  GetRecordLong		;..add it to the end of the list
	PushAX		;three copys of the list handle for
	PushAX		;..Get, Set, and Deref.
	PushAX
	jsr  GetHandleSize
	stax TextRulerOffset
	clc
	adc  RulerSize
	bcc  @1
	inx
@1	jsr  SetHandleSize
	lda  TextRulerOffset
	sec
	sbc  #4
	sta  TextRulerOffset
	bcs  @2
	dec  TextRulerOffset+2
@2	jsr  DerefHandle		;get a pointer to the end of the new list.
	clc
	adc  TextRulerOffset
	sta  TempPtr
	txa
	adc  TextRulerOffset+2
	sta  TempPtr+2

	ldy  #2		;set the new count field to one.
	lda  #1
	sta  [TempPtr]
	dec  a
	sta  [TempPtr],y
	ldy  #4		;then copy in the new ruler
@loop	lda  [MemoryPtr],y
	sta  [TempPtr],y
	iny
	iny
	cpy  RulerSize
	blt  @loop

	jmp  TerminateTempPtr

	ENDP

****************************************************************
****************************************************************

InitialWordWrapOld	PROC  EXPORT

NewLineLength	equ  $00

	PushZLong NewLineLength

	PushLong [RecordPtr],TERecord.LineSuper
	jsr  KillSuperHandle

	ldy  #TERecord.NumberOfLines	;clear the number of lines field
	lda  #0
	tax
	jsr  SetRecordLong

	ldy  #TERecord.TextLength	;if there is no text, we can skip this
	jsr  GetRecordLong		;..entire routine - (there are no lines)
	stx  TempWord
	ora  TempWord
	bne  wordWrap
	PullLong NewLineLength
	rts		;return right here, if there is no text.
;---------------------------------------------------------------
wordWrap	stzl TextOffset		;start at the beginning of the text and

	lda  #LineSuperItemSize*256+MinSuperBlockSize
	jsr  GetSmallHandle		;get a handle for the new line starts
	stax LineBlockHandle	;..array
	PushAX		;lock it down and get two pointers:
	jsr  LockHandle		;..one to the start and one to the current
	stax LineBlockStart		;..item
	clc
	adc  #SuperBlockRecord.firstItem
	bcc  @1
	inx
@1	stax LineStartsPtr
	ldy  #TERecord.TextLength	;set the initial length field of the super
	jsr  GetRecordLong		;..block
	stax [LineBlockStart],SuperBlockRecord.length
	ldy  #SuperBlockRecord.count	;clear the initial count field of the
	lda  #0		;..super block
	sta  [LineBlockStart],y
	stz  LineStartsCount	;zero out the count field.
	jsr  SetupWidthTable	;setup the width table pointer
;---------------------------------------------------------------
lineLoop	stz  NewLineLength
	stz  LineHeight
	stz  LineAscent
	jsr  GetWrapWidth		;get the width of the line.
	sta  WrapWidth
	sta  LineWidth
;---------------------------------------------------------------
mainLoop	jsr  FindStyleInfo		;find the new style information
	bcc  @1
	jsr  InstallStyleItem
@1	jsr  GetSuperCount
	sta  TextCount

	jsr  FindBlockInfo		;find the current block information
	jsr  BlockToTextPtr
	lda  BlockCount
	cmp  TextCount
	bge  @2
	sta  TextCount

@2	lda  TextHeight		;set the height and ascent fields
	cmp  LineHeight
	blt  @skipHeight
	sta  LineHeight
@skipHeight	lda  TextAscent
	cmp  LineAscent
	blt  @skipAscent
	sta  LineAscent
@skipAscent	lda  #0		;zero out both A and X
	tax
	shortm		;short mode for speed
;---------------------------------------------------------------
widthLoop	txy
	lda  [TextPtr],y		;get the character
	cmp  #$0D		;is it a carriage return ?
	beq  foundCR
	cmp  #TAB
	beq  doTab
	tay		;use as an index into the width table
	lda  WrapWidth		;subtract the character width
	sec
	sbc  [WidthTablePtr],y
	sta  WrapWidth
	bcs  @1
	dec  WrapWidth+1
	bmi  breakIt		;did we go below zero ?
@1	inx		;increment our counter
	cpx  TextCount
	blt  widthLoop		;branch back
;---------------------------------------------------------------
	longm		;we need a new block of text, here
	ldx  TextCount		;add TextCount to the new line's length
	jsr  addXToTextOffset
	ldy  #TERecord.TextLength	;check for being at the end of the text.
	jsr  GetRecordLong
	cmp  TextOffset
	bne  mainLoop
	cpx  TextOffset+2
	bne  mainLoop
	brl  lastBreak
;---------------------------------------------------------------
doTab	longm
	brk  $4B
;---------------------------------------------------------------
foundCR	longm
	inx		;skip over the CR
	jsr  addXToTextOffset
	jsr  forceBreak
	brl  lineLoop
;---------------------------------------------------------------
breakIt	lda  [WidthTablePtr],y	;get the width of the current char
	longm		;back to long mode (B = 0)
	clc		;add it back to the WrapWidth
	adc  WrapWidth
	sta  WrapWidth
	sta  LineWidth
	jsr  addXToTextOffset
	tya		;the character was in the Y-Reg
	jsr  IsItNotAWordBreak	;is the character a word break ?
	bcc  skipOverThem		;if yes, then skip over them
	lda  TextOffset		;move back to the beginning of this line
	sec
	sbc  NewLineLength
	sta  TextOffset
	bcs  @1
	dec  TextOffset+2
@1	jsr  FindTextPtr
	ldx  NewLineLength
;---------------------------------------------------------------
@loop	dex
	bmi  breakAtEnd
	txy
	lda  [TextPtr],y
	and  #$00FF
	tay
	lda  [WidthTablePtr],y
	and  #$00FF
	clc
	adc  WrapWidth
	sta  WrapWidth
	tya
	jsr  IsItNotAWordBreak
	bcs  @loop
;---------------------------------------------------------------
	lda  [WidthTablePtr],y	;subtract the width of the character
	and  #$00FF
	sta  TempWord
	lda  WrapWidth
	sec
	sbc  TempWord
	sta  WrapWidth
	inx
	stx  NewLineLength
	txa
addIt	addl TextOffset
	jsr  forceBreak
	brl  lineLoop
breakAtEnd	mov  LineWidth,WrapWidth
	lda  NewLineLength
	bra  addIt	
;---------------------------------------------------------------
skipOverThem	inc  NewLineLength
	incl TextOffset
	ldy  #TERecord.TextLength
	lda  [RecordPtr],y
	cmp  TextOffset
	bne  @ok
	iny
	iny
	lda  [RecordPtr],y
	cmp  TextOffset+2		;if at the end, then break.
	beq  lastBreak
@ok	jsr  FindTextPtr
	lda  #0
	shortm
	lda  [TextPtr]
	tay
	lda  WrapWidth
	sec
	sbc  [WidthTablePtr],y
	sta  WrapWidth
	bcs  @1
	dec  WrapWidth+1
@1	longm
	tya
	jsr  IsItNotAWordBreak
	bcc  skipOverThem
	jsr  forceBreak
	brl  lineLoop
;---------------------------------------------------------------
lastBreak	jsr  forceBreak		;break at the very end of the text.
	jsr  FreeWidthTable
	ldy  #TERecord.NumberOfLines
	jsr  GetRecordLong
	clc
	adc  LineStartsCount
	bcc  @1
	inx
@1	ldy  #TERecord.NumberOfLines
	jsr  SetRecordLong

	ldy  #2
	lda  #$FFFF
	sta  [LineStartsPtr]
	sta  [LineStartsPtr],y

  IF LineSuperItemSize<>8 THEN
      AERROR 'WARNING... The multiply code must change !'
  ENDIF

	ldax LineBlockHandle
	PushAX		;for the set handle size
	PushAX		;for the get handle size
	PushAX		;for the unlock
	jsr  UnlockHandle
	lda  #256
	sec
	sbc  LineStartsCount
	asl  a
	asl  a
	asl  a
	sta  LineStartsCount
	jsr  GetHandleSize
	sec
	sbc  LineStartsCount
	bcs  @2
	dex
@2	jsr  SetHandleSize
;---------------------------------------------------------------
	lda  #MinSuperSize
	jsr  GetClearHandle
	PushAX		;for the unlock
	PushAX		;for the lock
	stax [RecordPtr],TERecord.LineSuper
	jsr  LockHandle
	stax TempPtr
	ldy  #SuperRecord.terminator
	jsr  TerminateTempPtr

	ldy  #SuperRecord.mainIndex
	lda  #SuperRecord.firstItem	;set the main index cache value
	sta  [TempPtr],y
	iny
	iny
	lda  #SuperBlockRecord.firstItem	;set the local index cahce value
	sta  [TempPtr],y
	ldy  #SuperRecord.itemNumber	;set the low word of item # to one
	lda  #1
	sta  [TempPtr],y
	ldy  #SuperRecord.itemSize	;set the item size field
	lda  #LineSuperItemSize
	sta  [TempPtr],y

	jsr  UnlockHandle		;unlock the main handle from the stack
;---------------------------------------------------------------
	ldy  #SuperRecord.firstItem
	lda  LineBlockHandle
	sta  [TempPtr],y
	iny
	iny
	lda  LineBlockHandle+2
	sta  [TempPtr],y
;---------------------------------------------------------------

	ldy  #TERecord.VertScrollBar
	jsr  GetRecordLong
	stx  TempWord
	ora  TempWord
	beq  @skipParams

	ldy  #TERecord.NumberOfLines	;this won't work for more than 64K lines
	lda  [RecordPtr],y
	pha
	jsr  CountLinesInView	;returns the number of lines in the view
	pha		;..rect
	ldy  #TERecord.VertScrollBar
	jsr  GetRecordLong
	PushAX
	stax TempPtr
	_SetCtlParams

 	jsr  DerefTempPtr
	ldy  #CtrlRecord.ctlRect
@loop	lda  [TempPtr],y
	tyx
	sta  TempRect-CtrlRecord.ctlRect,x
	iny
	iny
	cpy  #CtrlRecord.ctlRect+8
	blt  @loop

	PushZPtr TempRect
	_InvalRect

@skipParams	stzl TextOffset
	PullLong NewLineLength
	rts
;---------------------------------------------------------------



;---------------------------------------------------------------
; this subroutine puts a line break in at the current NewLineLength
;---------------------------------------------------------------
forceBreak	ldy  #2
	lda  NewLineLength		;set the new line length
	sta  [LineStartsPtr]
	lda  #0
	sta  [LineStartsPtr],y
	iny
	iny
	lda  LineHeight		;set the new line height
	sta  [LineStartsPtr],y
	iny
	iny
	lda  LineAscent		;set the new line ascent
	sta  [LineStartsPtr],y
	iny
	iny
	lda  #LineSuperItemSize
	addl LineStartsPtr

	ldy  #SuperBlockRecord.count
	lda  [LineBlockStart],y
	inc  a
	sta  [LineBlockStart],y

	inc  LineStartsCount	;increment our count
	lda  LineStartsCount
	cmp  #256
	bne  @done

	ldax LineBlockHandle
	PushAX		;for the lock
	PushAX		;for the set handle size
	PushAX		;for the get handle size
	PushAX		;for the unlock
	jsr  UnlockHandle
	jsr  GetHandleSize
	stax MoveLength
	clc
	adc  #LineSuperItemSize*256
	bcc  @1
	inx
@1	jsr  SetHandleSize
	jsr  LockHandle
	stax LineBlockStart
	clc
	adc  MoveLength
	sta  LineStartsPtr
	txa
	adc  MoveLength+2
	sta  LineStartsPtr+2
	stz  LineStartsCount	;zero out the count field.
	ldy  #TERecord.NumberOfLines
	jsr  GetRecordLong
	clc
	adc  #256
	bcc  @2
	inx
@2	ldy  #TERecord.NumberOfLines
	jsr  SetRecordLong

@done	rts
;---------------------------------------------------------------



;---------------------------------------------------------------
; this subroutine adds the X-Reg to both NewLineLength and TextOffset
;---------------------------------------------------------------
addXToTextOffset	txa
	clc
	adc  NewLineLength
	sta  NewLineLength
	txa
	addl TextOffset
	rts
;---------------------------------------------------------------

	ENDP

scrollColors	dc.w  $0000		;Outline.
	dc.w  $00F0		;Arrow when normal.
	dc.w  $00F0		;Arrow when selected.
	dc.w  $00F0		;Arrow's box interior.
	dc.w  $00F0		;Thumber when normal.
	dc.w  $0000		;Not used and should	never be used.
	dc.w  $0030		;Page region interior.
	dc.w  $00F0		;Interior color of inactive bar.

****************************************************************
; this routine takes TextOffset pointing anywhere within the current
; line and it calculates the width of the LAST field in the line.
; It returns TextOffset pointing to the start of the last field, X-Reg
; as an offset into the line for the same thing. Finally TempWord is
; the field width
****************************************************************
MeasureLastField	PROCNAME

	jsr  FindLineStart		;start at the beginning of the line

	jsr  FindTextPtr		;setup the text pointer
	ldy  SuperLength		;start at the end of the line
	shortm		;short mode for speed

@tabLoop	dey		;search backwards for the first TAB
	bmi  atStart
	lda  [TextPtr],y
	cmp  #TAB
	bne  @tabLoop

atStart	longm		;back to long mode
	iny		;skip over the TAB
	tya		;move TextOffset to the start of the last
	addl TextOffset		;..field
	cpy  SuperLength		;are we at the end of the line ?
	beq  tabAtEnd
	phy		;nope, so save Y-Reg
	jsr  MeasureField		;measure the last field
	sta  TempWord		;store the result in TempWord
	plx		;restore our index into X
	rts

tabAtEnd	stz  TempWord		;zero out our width
	tyx		;X-Reg is our returned index
	rts

	ENDP
****************************************************************

****************************************************************
* This checks TempRect to see if it is contained by the vis region
* of the current grafport. carry clr if TempRect IS inside the
* region. carry set if not. Uses MemoryPtr.
****************************************************************

IsTempRectInVisRgn	PROCNAME

	ldy  #GrafPort.VisRgn+2	;get the region handle out of the grafport
	lda  [GrafPortPtr],y
	sta  MemoryPtr+2
	ldy  #GrafPort.VisRgn
	lda  [GrafPortPtr],y
	sta  MemoryPtr
	ldy  #2		;deref it into a pointer.
	lda  [MemoryPtr],y
	tax
	lda  [MemoryPtr]
	stax MemoryPtr

	lda  [MemoryPtr]		;is the vis region rectangular ?
	cmp  #10		;if not then we can't check so return
	bne  outside		;..FALSE

	lda  [MemoryPtr],y
	cmp  TempRect.top
	bgt  outside
	ldy  #4
	lda  [MemoryPtr],y
	cmp  TempRect.left
	bgt  outside
	ldy  #6
	lda  [MemoryPtr],y
	cmp  TempRect.bottom
	blt  outside
	ldy  #8
	lda  [MemoryPtr],y
	cmp  TempRect.right
	blt  outside
	clc		;we are completly within the region !!
	rts

outside	sec
	rts

	ENDP

****************************************************************

ScrollUpOne	PROCNAME

	jsr  GetScreenTopOffset
	lda  TextOffset
	ora  TextOffset+2
	beq  atTop

	decl TextOffset		;get the height of the line right before
	jsr  FindLineStart		;..the screen top. start at the line start
	jsr  SetScreenTopOffset	;set the new screen top offset
	jsr  GetViewRect		;get the view rectangle
	lda  LineHeight		;scroll it down by the line height
	jsr  VScrollTempRect

	jsr  CalculateSelection

	jsr  GetScreenTopOffset
	jsr  FindLineInfo
	jsr  GetViewRect
	lda  TempRect.top
	clc
	adc  LineHeight
	sta  TempRect.bottom

	ldy  #GrafPort.VisRgn
	jsr  GetPortLong
	PushAX
	jsr  SetupVisRgn		;setup our vis region to clip to the textRect.
 
	jsr  OffsetToPoint		;find TextVPos for the drawLine
	jsr  DrawLine

	PullAX
	ldy  #GrafPort.VisRgn
	jsr  SetPortLong

	jsr  SetCtrlValue
	clc
	rts

atTop	sec
	rts

	ENDP

****************************************************************

ScrollDownOne	PROCNAME

	jsr  GetScreenTopOffset	;start at the top of the screen for both
	ldy  #TERecord.ViewRect.top	;..TextOffset and TextVPos
	lda  [RecordPtr],y
	sta  TextVPos

@loop	jsr  IsTextOffsetAtEnd
	beq  atBottom
	jsr  FindLineInfo
	addl TextOffset,SuperLength,TextOffset
	lda  TextVPos
	clc
	adc  LineHeight
	sta  TextVPos
	ldy  #TERecord.ViewRect.bottom
	cmp  [RecordPtr],y
	blt  @loop

	jsr  GetScreenTopOffset	;get the height of the line at the screen
	jsr  FindLineInfo
	addl TextOffset,SuperLength,TextOffset
	jsr  SetScreenTopOffset	;set the new screen top offset
	jsr  FindLineInfo

	jsr  GetViewRect		;get the view rectangle
	lda  LineHeight		;scroll it down by the line height
	eor  #$FFFF		;change the sign (the INC is part of the
	inc  a		;..sign change)
	pha
	jsr  VScrollTempRect

	jsr  CalculateSelection
	PullWord LineHeight		;get our saved value into LineHeight

	ldy  #GrafPort.VisRgn
	jsr  GetPortLong
	PushAX
	jsr  SetupVisRgn		;setup our vis region to clip to the textRect.

	ldy  #TERecord.ViewRect.left
	lda  [RecordPtr],y
	sta  DrawRect.left
	ldy  #TERecord.ViewRect.bottom
	jsr  GetRecordLong
	sta  DrawRect.bottom
	stx  DrawRect.right
	clc
	adc  LineHeight
	sta  DrawRect.top
	jsr  DoDraw

	PullAX
	ldy  #GrafPort.VisRgn
	jsr  SetPortLong

	jsr  SetCtrlValue

atBottom	clc
	rts

	ENDP

****************************************************************

SetCtrlValue	PROCNAME

	jsr  GetScreenTopOffset
	jsr  FindLineInfo

	jsr  GetVertScrollBar
	beq  skipSet
	ldy  LineNumber		;save the new value
	dey
	phy
	PushAX		;the control handle for the scroll bar.
	stax TempPtr
	jsr  DerefTempPtr
	ldy  #CtrlRecord.dataSize
	lda  [TempPtr],y
	ldy  #CtrlRecord.viewSize
	sec
	sbc  [TempPtr],y
	cmp  5,s
	bge  @ok
	sta  5,s
@ok	_SetCtlValue

skipSet	rts

	ENDP

****************************************************************

SetupVisRgn	PROCNAME

	jsr  GetViewRect		;clip to the text rectangle

	ldy  #GrafPort.VisRgn	;get the region handle, deref it and store
	jsr  GetPortLong		;..in memory pointer
	jsr  DerefAX
	stax MemoryPtr

	lda  [MemoryPtr]		;is the region rectangular ? If not, we
	cmp  #10		;..must intersect the regions
	bne  mustSectRgn

	lda  [MemoryPtr],y		;Y-Reg is still two here
	cmp  TempRect.top
	bgt  notContained
	ldy  #4
	lda  [MemoryPtr],y
	cmp  TempRect.left
	bgt  notContained
	ldy  #6
	lda  [MemoryPtr],y
	cmp  TempRect.bottom
	blt  notContained
	ldy  #8
	lda  [MemoryPtr],y
	cmp  TempRect.right
	bge  setRectClip
;---------------------------------------------------------------
notContained	ldy  #8		;compare right point
	lda  [MemoryPtr],y
	cmp  TempRect.right
	bpl  @1
	sta  TempRect.right
@1	ldy  #6		;compare bottom point
	lda  [MemoryPtr],y
	cmp  TempRect.bottom
	bpl  @2
	sta  TempRect.bottom

@2	ldy  #4		;compare left point
	lda  [MemoryPtr],y
	cmp  TempRect.left
	bmi  @3
	sta  TempRect.left
@3	cmp  TempRect.right		;check for empty rect
	bpl  @zeroIt
	ldy  #2		;compare top point
	lda  [MemoryPtr],y
	cmp  TempRect.top
	bmi  @4
	sta  TempRect.top
@4	cmp  TempRect.bottom	;check for empty rect
	bmi  setRectClip

@zeroIt	jsr  zeroTempRect
;---------------------------------------------------------------
setRectClip	jsr  SetRectClipRgn
	bra  setClip
;---------------------------------------------------------------
mustSectRgn	jsr  SetRectClipRgn		;set our clipping region to the ViewRect
	ldy  #GrafPort.VisRgn
	jsr  GetPortLong
	PushWordSpace		;space for empty region results
	PushAX		;for EmptyRgn
	PushAX		;for sect region
	ldax TextClipRgn		;push two copies of TempRgn
	stax TempPtr		;save in TempPtr for deref
	PushAX
	PushAX
	_SectRgn
	_EmptyRgn
	pla
	beq  @notEmpty
	jsr  zeroTempRect
	bra  setClip

@notEmpty	jsr  DerefTempPtr		;dereference the TextClipRgn's handle
	ldy  #2		;copy the bounding box into DrawRect
@loop	lda  [TempPtr],y
	tyx
	sta  TempRect-2,x
	iny
	iny
	cpy  #10
	blt  @loop
;---------------------------------------------------------------
setClip	ldax TextClipRgn
	ldy  #GrafPort.VisRgn
	jsr  SetPortLong

	mov  TempRect.top,DrawRect.top	;copy TempRect into DrawRect
	mov  TempRect.left,DrawRect.left
	mov  TempRect.bottom,DrawRect.bottom
	mov  TempRect.right,DrawRect.right

	jsr  SetupColorPtr		;set the background pattern for the text
	ldy  #TEColorTable.content
	lda  [TempPtr],y
	jsr  SmearColor
	ldy  #GrafPort.BkPat
@loop	sta  [GrafPortPtr],y
	iny
	iny
	cpy  #GrafPort.BkPat+32
	blt  @loop

	lda  #0		;zero out the space and character extra
	tax		;..fields
	ldy  #GrafPort.SpExtra
	jsr  SetPortLong
	ldy  #GrafPort.ChExtra
	jmp  SetPortLong		;exit back to the caller
;---------------------------------------------------------------

	ENDP

****************************************************************

ZeroTempRect	PROCNAME

	stz  TempRect.top
	stz  TempRect.left
	stz  TempRect.bottom
	stz  TempRect.right
	rts

	ENDP

****************************************************************

SetRectClipRgn	PROCNAME

	jsr  derefTextRgn		;dereference the Text region and leave
	lda  #10		;..the pointer in TempPtr. Also leave Y-Reg
	cmp  [TempPtr]		;..set to #2
	beq  @sizeOK

	sta  [TempPtr]		;the new size is 10 bytes
	ldx  #0
	PushZLong TextClipRgn
	jsr  SetHandleSize
	jsr  derefTextRgn

@sizeOK	lda  TempRect.top
	sta  [TempPtr],y
	iny
	iny
	lda  TempRect.left
	sta  [TempPtr],y
	iny
	iny
	lda  TempRect.bottom
	sta  [TempPtr],y
	iny
	iny
	lda  TempRect.right
	sta  [TempPtr],y
	rts

derefTextRgn	ldy  #2
	lda  [TextClipRgn],y
	sta  TempPtr+2
	lda  [TextClipRgn]
	sta  TempPtr
	rts

	ENDP

****************************************************************
****************************************************************
	ldy  #2
@loop	lda  [MemoryPtr],y
	cmp  #$FFFF
	beq  @done
	tya
	adc  #6		;carry is already clear from the compare
	tay
	bra  @loop

@done	tya
	sbc  #8		;carry is set from the compare
	tay
	lda  [MemoryPtr],y
	sta  TempLong
	iny
	iny
	lda  [MemoryPtr],y
	sta  TempLong+2
	ldy  #TERecord.SelectionStart
	jsr  GetRecordLong
	cmpl TempLong
	bgel notOnScreen
****************************************************************
	jsr  SetupColorPtr		;set the background pattern for the text
	ldy  #TEColorTable.content
	lda  [TempPtr],y
	jsr  SmearColor
	ldy  #GrafPort.BkPat
@loop	sta  [GrafPortPtr],y
	iny
	iny
	cpy  #GrafPort.BkPat+32
	blt  @loop

****************************************************************

DrawFromOffset	PROCNAME
	EXPORT  DrawLine

	jsr  GetJust		;if the text is not left justified then
	cmp  #leftJust		;..we must redraw the entire line
	bnel DrawLine

	jsr  OffsetToPoint		;find the starting point
	ldy  #TERecord.ViewRect.left	;subtract the left edge of the text rect
	lda  TextHPos
	sec
	sbc  [RecordPtr],y
	sta  TextHPos
;---------------------------------------------------------------
moveIt	lda  TextVPos
	clc
	adc  LineAscent
	ldy  #GrafPort.PnLoc.v
	sta  [GrafPortPtr],y
	lda  TextVPos		;move the text position down to the next
	sta  TempRect.top		;..line. Also set TempRect to the line
	clc		;..rect
	adc  LineHeight
	sta  TextVPos
	sta  TempRect.bottom

	lda  TextHPos		;erase before we draw
	ldy  #TERecord.ViewRect.left	;add the left edge of the view rect
	clc		;..to get the final HPos
	adc  [RecordPtr],y
	sta  TempRect.left
	ldy  #TERecord.ViewRect.right
	lda  [RecordPtr],y
	sta  TempRect.right
	jsr  EraseTempRect

	lda  TextHPos
moveHorz	ldy  #TERecord.ViewRect.left	;add the left edge of the view rect
	clc		;..to get the final HPos
	adc  [RecordPtr],y
	ldy  #GrafPort.PnLoc.h
	sta  [GrafPortPtr],y
;---------------------------------------------------------------
partLoop	jsr  GetTextFormat		;get the next chunck of text

	PushZLong TextPtr		;.. and draw it.
	PushZWord TextCount
	_DrawText

	lda  TextCount		;move the TextOffset forward.
	addl TextOffset
	lda  WhatStoppedFormat
	cmp  #endOfText		;are we at the end ? Yes = stop drawing
	beq  atEnd
	cmp  #tabBreak
	beq  doTab
	cmp  #lineBreak
	bne  partLoop

	clc
allDone	rts

atEnd	sec
	bra  allDone
;---------------------------------------------------------------
doTab	incl TextOffset		;skip over the TAB
	ldy  #GrafPort.PnLoc.h
	lda  [GrafPortPtr],y
	sec
	ldy  #TERecord.ViewRect.left
	sbc  [RecordPtr],y
	sta  TextHPos

	jsr  MoveOverTab
	sta  TextHPos
	jsr  AdjustForJust
	clc
	adc  TextHPos
	bra  moveHorz
;---------------------------------------------------------------
DrawLine	jsr  FindLineStart		;skip offset to point
	jsr  GetLeftEdge
	sta  TextHPos
	jsr  AdjustForJust
	clc
	adc  TextHPos
	sta  TextHPos
	brl  moveIt
;---------------------------------------------------------------

	ENDP

	ldy  #TERecord.SelectionState
	lda  [RecordPtr],y
	cmp  #offScreen
	beq  @skipFlip

	ldy  #TERecord.ViewRect
	ldx  #0
@loop1	lda  [RecordPtr],y
	pha
	lda  DrawRect,x
	sta  [RecordPtr],y
	inx
	inx
	iny
	iny
	cpy  #TERecord.ViewRect+8
	blt  @loop1

	jsr  FlipSelection

	ldy  #TERecord.ViewRect+6
@loop2	pla
	sta  [RecordPtr],y
	dey
	dey
	cpy  #TERecord.ViewRect
	bge  @loop2

@skipFlip	ldy  #TERecord.InsideDrawFlag
	lda  #$0000
	sta  [RecordPtr],y
****************************************************************

DoLeftArrow	PROCNAME

	ldy  #TERecord.SavedHPos
	lda  #$FFFF
	sta  [RecordPtr],y

	jsr  GetSelectionStart	;see if we are at the beginning.
	lda  TextOffset
	ora  TextOffset+2
	bne  notAtStart
	bit  ExtendFlag		;are we extending the selection
	bmi  nothingToDo

setEnd	jsr  SetSelectionEnd	;make the selection a caret
	jsr  UnhilightSelection
	jsr  CalculateSelection
	jsr  HilightSelection
nothingToDo	brl  ScrollToSelection	;scroll to the selection if we are offscreen
;---------------------------------------------------------------
notAtStart	lda  MoveByFlag
	cmp  #2
	beq  moveLine
	cmp  #1
	beq  moveWord
	decl TextOffset		;move the selection back
	bra  moveIt
;---------------------------------------------------------------
moveWord	decl TextOffset
	jsr  FindTextPtr
	lda  [TextPtr]
	jsr  IsItNotAWordBreak
	bcs  @nowMove
	lda  TextOffset
	ora  TextOffset+2
	beq  moveIt
	bra  moveWord
@nowMove	jsr  FindWordStart
	bra  moveIt
;---------------------------------------------------------------
moveLine	jsr  FindLineStart
;---------------------------------------------------------------
moveIt	bit  ExtendFlag
	bmi  extend
	jsr  SetSelectionStart
	bra  setEnd
;---------------------------------------------------------------
extend	ldy  #TERecord.SelectionState
	lda  #onScreen
	cmp  [RecordPtr],y
	beq  @1
	sta  [RecordPtr],y
	bra  @2
@1	ldy  #TERecord.SelectionType
	lda  [RecordPtr],y
	cmp  #caretType
	bne  @2
	jsr  FlipSelection
@2	ldy  #TERecord.SelectionEnd
	jsr  PushRecordLong
	ldy  #TERecord.SelectionStart
	jsr  GetRecordLong
	ldy  #TERecord.SelectionEnd
	jsr  SetRecordLong
	jsr  SetSelectionStart
	jsr  CalculateSelection
	jsr  FlipSelection
	PullAX
	ldy  #TERecord.SelectionEnd
	jsr  SetRecordLong
	jsr  CalculateSelection
	brl  ScrollToSelection
;---------------------------------------------------------------

	ENDP

****************************************************************

DoRightArrow	PROCNAME

	ldy  #TERecord.SavedHPos
	lda  #$FFFF
	sta  [RecordPtr],y

	jsr  GetSelectionEnd	;see if we are at the beginning.
	jsr  IsTextOffsetAtEnd
	bne  notAtEnd
	bit  ExtendFlag
	bmi  nothingToDo

setStart	jsr  SetSelectionStart	;make the selection a caret
	jsr  UnhilightSelection
	jsr  CalculateSelection
	jsr  HilightSelection
nothingToDo	brl  ScrollToSelection	;scroll to the selection if we are offscreen
;---------------------------------------------------------------
notAtEnd	lda  MoveByFlag
	cmp  #2
	beq  moveLine
	cmp  #1
	beq  moveWord
	incl TextOffset		;move the selection forward
	bra  moveIt
;---------------------------------------------------------------
moveWord	jsr  FindTextPtr
	lda  [TextPtr]
	jsr  IsItNotAWordBreak
	bcs  @nowMove
	incl TextOffset
	jsr  IsTextOffsetAtEnd
	beq  moveIt
	bra  moveWord
@nowMove	incl TextOffset
	jsr  FindWordEnd
	bra  moveIt
;---------------------------------------------------------------
moveLine	jsr  FindLineInfo
	jsr  MoveOffsetToNextItem
	decl TextOffset
;---------------------------------------------------------------
moveIt	bit  ExtendFlag
	bmi  extend
	jsr  SetSelectionEnd
	bra  setStart
;---------------------------------------------------------------
extend	ldy  #TERecord.SelectionState
	lda  #onScreen
	cmp  [RecordPtr],y
	beq  @1
	sta  [RecordPtr],y
	bra  @2
@1	ldy  #TERecord.SelectionType
	lda  [RecordPtr],y
	cmp  #caretType
	bne  @2
	jsr  FlipSelection
@2	ldy  #TERecord.SelectionStart
	jsr  PushRecordLong
	ldy  #TERecord.SelectionEnd
	jsr  GetRecordLong
	ldy  #TERecord.SelectionStart
	jsr  SetRecordLong
	jsr  SetSelectionEnd
	jsr  CalculateSelection
	jsr  FlipSelection
	PullAX
	ldy  #TERecord.SelectionStart
	jsr  SetRecordLong
	jsr  CalculateSelection
	brl  ScrollToSelection
;---------------------------------------------------------------

	ENDP

****************************************************************

DoDownArrow	PROCNAME

	jsr  GetSelectionEnd
	jsr  FindLineInfo		;find the current line
	ldy  #TERecord.NumberOfLines
	jsr  GetRecordLong
	cpx  LineNumber+2
	bne  notAtEnd
	cmp  LineNumber
	bne  notAtEnd

	bit  ExtendFlag
	bmi  nothingToDo

	jsr  SetSelectionStart	;make the selection a caret
	jsr  UnhilightSelection
	jsr  CalculateSelection
	jsr  HilightSelection
nothingToDo	brl  ScrollToSelection	;scroll to the selection if we are offscreen
;---------------------------------------------------------------
notAtEnd	jsr  OffsetToPoint
	ldy  #TERecord.SavedHPos
	lda  [RecordPtr],y
	cmp  #$FFFF
	beq  @1
	sta  TextHPos
@1	pei  TextHPos		;save the old horizontal position

	jsr  FindLineInfo
	jsr  MoveOffsetToNextItem
	jsr  HPosToOffset

	bit  ExtendFlag
	bmi  extend
	jsr  SetSelectionEnd
	jsr  SetSelectionStart	;make the selection a caret
	jsr  UnhilightSelection
	jsr  CalculateSelection
	jsr  HilightSelection
setSave	ldy  #TERecord.SavedHPos
	pla
	sta  [RecordPtr],y
	bra  nothingToDo
;---------------------------------------------------------------
extend	ldy  #TERecord.SelectionState
	lda  #onScreen
	cmp  [RecordPtr],y
	beq  @1
	sta  [RecordPtr],y
	bra  @2
@1	ldy  #TERecord.SelectionType
	lda  [RecordPtr],y
	cmp  #caretType
	bne  @2
	jsr  FlipSelection
@2	ldy  #TERecord.SelectionStart
	jsr  PushRecordLong
	ldy  #TERecord.SelectionEnd
	jsr  GetRecordLong
	ldy  #TERecord.SelectionStart
	jsr  SetRecordLong
	jsr  SetSelectionEnd
	jsr  CalculateSelection
	jsr  FlipSelection
	PullAX
	ldy  #TERecord.SelectionStart
	jsr  SetRecordLong
	jsr  CalculateSelection
	bra  setSave
;---------------------------------------------------------------

	ENDP

****************************************************************

DoUpArrow	PROCNAME

	jsr  GetSelectionStart
	jsr  FindLineInfo		;find the current line
	lda  LineNumber+2
	bne  notAtStart
	lda  LineNumber
	cmp  #1
	bne  notAtStart

	bit  ExtendFlag
	bmi  nothingToDo

	jsr  SetSelectionEnd	;make the selection a caret
	jsr  UnhilightSelection
	jsr  CalculateSelection
	jsr  HilightSelection
nothingToDo	brl  ScrollToSelection	;scroll to the selection if we are offscreen
;---------------------------------------------------------------
notAtStart	jsr  OffsetToPoint
	ldx  #0
	bcs  @notOnScreen
	dex
@notOnScreen	stx  ScreenFlag
	ldy  #TERecord.SavedHPos
	lda  [RecordPtr],y
	cmp  #$FFFF
	beq  @1
	sta  TextHPos
@1	pei  TextHPos		;save the old horizontal position
	jsr  FindLineInfo
	ldax SuperStart
	decl a
	stax TextOffset
	jsr  HPosToOffset

	bit  ExtendFlag
	bmi  extend
	jsr  SetSelectionStart
	jsr  SetSelectionEnd	;make the selection a caret
	jsr  UnhilightSelection
	bit  ScreenFlag
	bmi  @checkIt
	jsr  ScrollToSelection
	bra  calcIt

@checkIt	ldy  #TERecord.TopTextOffset
	jsr  GetRecordLong
	cmpl TextOffset
	blt  calcIt

	jsr  ScrollUpOne

calcIt	jsr  CalculateSelection
	jsr  HilightSelection
setSave	ldy  #TERecord.SavedHPos
	pla
	sta  [RecordPtr],y
	rts
;---------------------------------------------------------------
extend	ldy  #TERecord.SelectionState
	lda  #onScreen
	cmp  [RecordPtr],y
	beq  @1
	sta  [RecordPtr],y
	bra  @2
@1	ldy  #TERecord.SelectionType
	lda  [RecordPtr],y
	cmp  #caretType
	bne  @2
	jsr  FlipSelection
@2	PushZLong TextOffset
	bit  ScreenFlag
	bpl  @cont
	ldy  #TERecord.TopTextOffset
	jsr  GetRecordLong
	cmpl TextOffset
	blt  @nope
	jsr  ScrollUpOne
	bra  @cont

@nope	stz  ScreenFlag

@cont	PullLong TextOffset
	ldy  #TERecord.SelectionEnd
	jsr  PushRecordLong
	ldy  #TERecord.SelectionStart
	jsr  GetRecordLong
	ldy  #TERecord.SelectionEnd
	jsr  SetRecordLong
	jsr  SetSelectionStart
	jsr  CalculateSelection
	jsr  FlipSelection
	PullAX
	ldy  #TERecord.SelectionEnd
	jsr  SetRecordLong
	jsr  CalculateSelection
	bit  ScreenFlag
	bpl  setSave
	jsr  ScrollToSelection
	bra  setSave
;---------------------------------------------------------------

	ENDP

****************************************************************
****************************************************************
; this routine returns the screen point TextVPos and TextHPos
; associated with TextOffset. It returns carry set (TRUE) if the
; offset is not on the screen. In this case TextVPos and TextHPos
; will be the topleft of the viewRect or the botRight of the viewRect
****************************************************************
OffsetToPoint	PROCNAME

	movl TextOffset,OriginalOffset	;save this for comparing against later

	ldy  #TERecord.ViewRect.top	;start TextVPos at the top of the
	lda  [RecordPtr],y		;..viewRect
	sec
	ldy  #TERecord.TopTextVPos
	sbc  [RecordPtr],y
	sta  TextVPos

	ldy  #TERecord.TopTextOffset	;start scanning from the top of the screen
	jsr  GetRecordLong
	cpx  TextOffset+2		;check to see if the offset we are looking
	blt  pastTheTop		;..for is before the top of the screen.
	bne  abortTop		;If so, then abort with carry set and
	cmp  TextOffset		;..TextVPos set to the viewRect.top
	ble  pastTheTop		;we're on screen here so continue
;---------------------------------------------------------------
abortTop	ldy  #TERecord.ViewRect.top	;start TextVPos at the top of the
	lda  [RecordPtr],y		;..viewRect
	sta  TextVPos
	jsr  GetLeftMargin		;find the leftmost position in the line
	sta  TextHPos		;..and return this as the TextHPos when
	jsr  GetLeftEdge		;..aborting because of being before the
	cmp  TextHPos		;..screen top
	bge  abortBottom
	sta  TextHPos
abortBottom	ldy  #TERecord.ViewRect.left
	lda  TextHPos
	clc
	adc  [RecordPtr],y
	sta  TextHPos
	movl OriginalOffset,TextOffset	;restore the original text offset
	sec		;set the carry to indicate the text is
	rts		;..off the screen. Then return
;---------------------------------------------------------------
pastTheTop	stax TextOffset		;start at the offset of the screen top.

@lineLoop	jsr  FindLineInfo		;find the line length and height
	lda  TextOffset		;add the length to TextOffset and leave
	clc		;..the result in the X-Reg (low) and the
	adc  SuperLength		;..A-Reg (high)
	tax
	lda  TextOffset+2
	adc  SuperLength+2
	cmp  OriginalOffset+2	;are we at (or past) the original offset?
	blt  @storeIt		;..yes = goto foundLine
	bne  foundLine
	cpx  OriginalOffset
	blt  @storeIt
	bne  foundLine

@storeIt	sta  TextOffset+2		;save the new value of TextOffset
	stx  TextOffset
	ldy  #TERecord.NumberOfLines+2	;check to see if there are any more lines
	lda  [RecordPtr],y		;..in the record. If not, we must be on
	cmp  LineNumber+2		;..the last line, since illegal values
	bne  @keepGoing		;..of text offset are not permited.
	ldy  #TERecord.NumberOfLines
	lda  [RecordPtr],y
	cmp  LineNumber
	beq  @lastLine

@keepGoing	jsr  AreWePageBreaking
	beq  @skipPage
	lda  TextOffset
	ora  TextOffset+2
	beq  @skipPage
	jsr  FindPageInfo
	lda  TextOffset
	cmp  SuperStart
	bne  @skipPage
	lda  TextOffset+2
	cmp  SuperStart+2
	bne  @skipPage
	mov  PageHeight,LineHeight

@skipPage	lda  TextVPos		;add the line height to TextVPos to move
	clc		;..to the next line
	adc  LineHeight
	sta  TextVPos
	ldy  #TERecord.ViewRect.bottom	;are we still in the viewRect ?
	cmp  [RecordPtr],y
	bmi  @lineLoop		;..yep, so continue looping

	lda  [RecordPtr],y		;get the bottom of the view rect again
	sta  TextVPos		;..and put it in TextVPos
	jsr  GetRightMargin
	sta  TextHPos
	brl  abortBottom		;abort with past the end of the screen

@lastLine	subl TextOffset,SuperLength,TextOffset
;---------------------------------------------------------------
foundLine	jsr  GetLeftEdge		;start at the left edge of the rectangle
	sta  TextHPos
	jsr  FindAndInstallStyle	;find and install the new style info, then
	jsr  SetupWidthTable	;..setup the width table

	lda  OriginalOffset		;find out how many characters are left
	sec		;..in the line.
	sbc  TextOffset
	sta  AmountLeft		;this is our outer text counter
	sta  LineOffset		;cache this for later with tabs
	beql foundChar
;---------------------------------------------------------------
mainLoop	jsr  FindAndInstallStyle	;find and install the current style info
	jsr  GetSuperCount		;count how many characters are in the
	cmp  AmountLeft		;..current style. If this is > 64k, $FFFF
	bge  useLeft		;..will be returned.
	sta  TextCount		;the amount left is greater than the count
	lda  AmountLeft		;..in the current style, so reduce the amount
	sec		;..left and use the current style count.
	sbc  TextCount		;In this case we will need to loop back to
	sta  AmountLeft		;..mainLoop eventually.
	bra  widthStart

useLeft	lda  AmountLeft		;the current style extends at least to the offset
	sta  TextCount		;..we are looking for.
	stz  AmountLeft		;zero out our outer text counter
;---------------------------------------------------------------
widthStart	jsr  FindTextPtr		;setup the text pointer
	lda  #0		;set the high word of A to zero
	tax		;also clear the index (X-Reg)
	shortm		;short mode for speed

widthLoop	txy
	lda  [TextPtr],y		;get the character
	cmp  #TAB		;is it a TAB ?
	beq  doTab
	tay		;nope, so use the char as an index into
	lda  [WidthTablePtr],y	;..the width table. Add the width of the
	clc		;..character to the current horz position
	adc  TextHPos
	sta  TextHPos
	bcc  nextChar
	inc  TextHPos+1		;we are in short mode, so take care of the
nextChar	inx		;..high BYTE !
	cpx  TextCount
	blt  widthLoop

	longm		;back to long mode
	lda  TextCount		;move TextOffset past the characters
	addl TextOffset		;..we just processed.
	lda  AmountLeft		;are there any more "parts" to process ?
	bne  mainLoop		;..yep = go back to the main loop
	bra  foundChar		;Nope, we found our character - goto foundChar
;---------------------------------------------------------------
doTab	longm		;goto long mode for Tab processing
	jsr  MoveOverTab
	sta  TextHPos		;store the new HPos
	sep  #$20		;set the processor to short mode
	bra  nextChar		;back to short mode and off to the next char
;---------------------------------------------------------------
foundChar	jsr  AdjustForJust
	clc
	adc  TextHPos
	sta  TextHPos
	lda  FixExtraSpace		;if no fractional adjustment then we are
	ora  FixExtraSpace+2	;..done
	beq  skipAdjust

	jsr  FindLineStart
	jsr  FindTextPtr
	ldx  #0
	ldy  LineOffset
@loop	dey
	beq  @done
	lda  [TextPtr],y
	cmp  #' '
	bne  @nope
	inx
@nope	cmp  #TAB
	bne  @loop
@done	PushLongSpace		;space for the multiply
	PushZLong FixExtraSpace	;the fractional pixel amount for spaces
	phx		;the number of spaces
	pea  $0000
	_FixMul
	plx		;discard the fraction
	pla		;the carry will be set if X > $8000 and
	cpx  #$8000		;..clr if less than $8000. This rounds
	adc  TextHPos		;..the fraction into the nearest integer
	sta  TextHPos

skipAdjust	ldy  #TERecord.ViewRect.left
	lda  TextHPos
	clc
	adc  [RecordPtr],y
	sta  TextHPos
	jsr  FreeWidthTable
	movl OriginalOffset,TextOffset
	clc		;clear the carry to indicate we are on the
	rts		;..screen
;---------------------------------------------------------------

	ENDP

****************************************************************
****************************************************************
; the super handle comes in in A,X. the item that is operated on
; is the current one and the new length is in SuperLength. The
; extra amount is added to or subtracted from the NEXT item in
; the super array.
;---------------------------------------------------------------
ChangeSuperLength	PROCNAME

	stax TempLong		;save the passed super handle
	jsr  SetupSuperPtrs		;the SuperHandle comes in in A,X
;---------------------------------------------------------------
	lda  [TempPtr],y		;calculate (oldValue - newValue). leave
	sec		;..the low word of the result on the
	sbc  SuperLength		;..stack and the high word in X-Reg.
	pha
	lda  SuperLength		;also move the newValue into the array
	sta  [TempPtr],y
	iny
	iny
	lda  [TempPtr],y
	sbc  SuperLength+2
	tax
	lda  SuperLength+2
	sta  [TempPtr],y

	jsr  checkForRemove		;remove this item if the new length is zero
	bcs  @skipAdd		;TRUE means the item was removed, so don't
	lda  SuperLocalIndex	;..move to the next item
	clc
	adc  SuperItemSize

@skipAdd	inc  a		;start with the high word of the item
	inc  a
	tay
	lda  [TempPtr],y
	dey
	dey
	and  [TempPtr],y		;if both the low and high words are $FFFF
	inc  a		;..then goto next block
	beq  nextBlock
;---------------------------------------------------------------
doItem	pla		;get back the low part of the difference
	clc		;add the difference to the next item
	adc  [TempPtr],y
	sta  [TempPtr],y
	iny
	iny
	txa
	adc  [TempPtr],y
	sta  [TempPtr],y
	brl  checkForRemove		;remove this item if the length is zero
;---------------------------------------------------------------


;---------------------------------------------------------------
nextBlock	ldy  #2		;update the length field in the first
	lda  1,s		;..block
	clc
	adc  [TempPtr]
	sta  [TempPtr]
	txa
	adc  [TempPtr],y
	sta  [TempPtr],y

	lda  SuperMainIndex		;move the main index to the next block
	clc
	adc  #4
	sta  SuperMainIndex
	jsr  GetLocalSuperHandle
	sta  TempPtr
	stx  TempPtr+2
	bmi  @atEnd		;is this the final end ?
	jsr  DerefTempPtr		;local handle goes to local ptr

	ldy  #2		;update the length field of the new block
	lda  [TempPtr]
	sec
	sbc  1,s
	sta  [TempPtr]
	phx
	lda  [TempPtr],y
	sbc  1,s
	sta  [TempPtr],y
	plx
	ldy  #SuperBlockRecord.firstItem
	bra  doItem

@atEnd	rts
;---------------------------------------------------------------


;---------------------------------------------------------------
checkForRemove	dey		;A-Reg contains the high word of the item
	dey		;check for the item being zero
	ora  [TempPtr],y
	beq  @removeIt		;..if it is then remove it.
	clc		;FALSE = did not remove an item
	rts

@removeIt	phx		;save the high word of the difference

	bit  StyleFlag
	bpl  @skipStyle

	tya
	clc
	adc  #4
	tay
	lda  [TempPtr],y
	sta  TextStyleOffset
	iny
	iny
	lda  [TempPtr],y
	sta  TextStyleOffset+2
	PushZLong TempPtr
	jsr  SetupStylePtr
	ldy  #2
	lda  [TempPtr]
	bne  @decIt
	lda  [TempPtr],y
	dec  a
	sta  [TempPtr],y
	lda  [TempPtr]
@decIt	dec  a
	sta  [TempPtr]
	PullLong TempPtr

@skipStyle	ldy  #SuperBlockRecord.count
	lda  [TempPtr],y
	dec  a
	sta  [TempPtr],y
	bne  @insideBlock

	lda  #SuperBlockRecord.firstItem	;for reseting the pointers later
	sta  SuperLocalIndex
	lda  SuperMainIndex
	sta  DestPtr
	clc
	adc  #4
	sta  SourcePtr
	ldax TempLong
	bra  @crunchIt

@insideBlock	lda  SuperLocalIndex
	sta  DestPtr
	clc
	adc  SuperItemSize
	sta  SourcePtr
	jsr  GetLocalSuperHandle

@crunchIt	stz  SourcePtr+2		;zero the high words of the pointers
	stz  DestPtr+2
	jsr  CrunchHandle
	ldax TempLong
	jsr  SetupSuperPtrs

	plx
	lda  SuperLocalIndex
	sec
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

InsertSuperItem	PROCNAME

	PushAX		;save the super handle
	jsr  FindSuperInfo		;find the right spot in the super array

	ldy  SuperMainIndex		;get the local handle into TempPtr
	lda  [MainSuperPtr],y
	sta  TempPtr
	tax
	iny
	iny
	lda  [MainSuperPtr],y
	sta  TempPtr+2
	pha		;one copy for set handle size
	phx
	pha		;..and one for get handle size
	phx
	jsr  GetHandleSize
	stax MoveLength
	clc
	adc  SuperItemSize
	bcc  @1
	inx
@1	jsr  SetHandleSize

	jsr  DerefTempPtr		;the local handle is still in TempPtr
	lda  SuperLocalIndex
	clc
	adc  SuperItemSize
	pha		;save this value for later
	adc  TempPtr
	sta  SourcePtr		;calculate the source pointer
	lda  TempPtr+2
	adc  #0
	sta  SourcePtr+2
	sta  DestPtr+2
	lda  SourcePtr		;..and the destination pointer
	clc
	adc  SuperItemSize
	sta  DestPtr
	bcc  @2
	inc  DestPtr+2
@2	lda  MoveLength		;calculate the length to move
	sec
	sbc  1,s
	plx
	sta  MoveLength
	lda  MoveLength+2
	sbc  #0
	sta  MoveLength+2
	jsr  BlockMove		;move it !!

	ldy  SuperLocalIndex	;adjust the length of the first item
	lda  TextOffset
	sec
	sbc  SuperStart
	sta  TempLong
	sta  [TempPtr],y
	iny
	iny
	lda  TextOffset+2
	sbc  SuperStart+2
	sta  TempLong+2
	sta  [TempPtr],y

	dey
	dey
	tya		;move the index to the next item
	clc
	adc  SuperItemSize
	tay

	lda  SuperLength		;adjust the length of the next item
	sec
	sbc  TempLong
	sta  [TempPtr],y
	iny
	iny
	lda  SuperLength+2
	sbc  TempLong+2
	sta  [TempPtr],y

	ldy  #SuperBlockRecord.count	;increment the item count
	lda  [TempPtr],y
	inc  a
	sta  [TempPtr],y

	PullAX		;restore the super handle
	brl  FindSuperInfo		;re-position things to the new item.

	ENDP

****************************************************************

GetLocalSuperHandle	PROCNAME

	ldy  SuperMainIndex
	lda  [MainSuperPtr],y
	pha
	iny
	iny
	lda  [MainSuperPtr],y
	tax
	pla
	rts

	ENDP

****************************************************************

InsertStyleItem	PROCNAME

	ldy  #TERecord.StyleSuper
	jsr  GetRecordLong
	brl  InsertSuperItem

	ENDP

****************************************************************

ChangeStyleLength	PROCNAME

	lda  #$FFFF
	sta  StyleFlag
	ldy  #TERecord.StyleSuper
	jsr  GetRecordLong
	brl  ChangeSuperLength

	ENDP

****************************************************************
****************************************************************

FlipSelection	PROCNAME

tempRgn1	equ  0
tempRgn2	equ  4

	ldy  #TERecord.SelectionActive
	lda  [RecordPtr],y
	bne  deactivate

	ldy  #TERecord.SelectionRect1
	jsr  CopyIntoTempRect
	jsr  InvertTempRect

	ldy  #TERecord.SelectionRect2
	jsr  CopyIntoTempRect
	jsr  InvertTempRect

	ldy  #TERecord.SelectionRect3
	jsr  CopyIntoTempRect
	jsr  InvertTempRect

done	rts

deactivate	jsr  IsTheSelectionACaret
	bne  notCaret

	PushLong #greyMask
	_SetPenMask

	ldy  #TERecord.SelectionRect1
	jsr  CopyIntoTempRect
	jsr  InvertTempRect

	PushLong #blackMask
	_SetPenMask

	bra  done

notCaret	PushZLong tempRgn1		;save these temps
	PushZLong tempRgn2

	jsr  GetNewRgn		;get two temporary regions
	stax tempRgn1
	jsr  GetNewRgn
	stax tempRgn2

	ldy  #TERecord.SelectionRect1
	jsr  CopyIntoTempRect
	PushZLong tempRgn1
	PushZPtr TempRect
	_RectRgn

	ldy  #TERecord.SelectionRect2
	jsr  CopyIntoTempRect
	PushZLong tempRgn2
	PushZPtr TempRect
	_RectRgn

	PushZLong tempRgn1
	PushZLong tempRgn2
	PushZLong tempRgn1
	_UnionRgn

	ldy  #TERecord.SelectionRect3
	jsr  CopyIntoTempRect
	PushZLong tempRgn2
	PushZPtr TempRect
	_RectRgn

	PushZLong tempRgn1
	PushZLong tempRgn2
	PushZLong tempRgn1
	_UnionRgn

	PushWord #$8002		;use not X-OR mode
	_SetPenMode

	PushWord #0		;black pattern
	_SetSolidPenPat

	PushZLong tempRgn1
	_FrameRgn

	PushZLong tempRgn1
	_DisposeRgn
	PushZLong tempRgn2
	_DisposeRgn

	PullLong tempRgn2		;restore these temps
	PullLong tempRgn1

	rts

greyMask	dc.w  $AA55,$AA55
	dc.w  $AA55,$AA55

blackMask	dc.w  $FFFF,$FFFF
	dc.w  $FFFF,$FFFF

	ENDP
****************************************************************

****************************************************************

CheckForFastReplace	PROCNAME

	sec
	rts

	jsr  GetTextLength
	cpx  #0
	bne  @1
	cmp  #2
	blt  notFast
@1
	jsr  GetJust		;if the text is not left justified then
	cmp  #leftJust		;..we must redraw the entire line
	bne  notFast

	lda  RemovedHeight
	ora  RemovedHeight+2
	bne  notFast
	lda  RemovedAscent
	ora  RemovedAscent+2
	bne  notFast

	ldy  InputTextLength+2
	bne  notFast
	ldy  InputTextLength
	bmi  notFast
@loop	dey
	bmi  @2
	lda  [InputTextPtr],y
	and  #$00FF
	cmp  #$0D
	beq  notFast
	cmp  #PAGE_BREAK
	beq  notFast
	bra  @loop
@2
	jsr  GetRightMargin
	clc
	ldy  #TERecord.ViewRect.left
	adc  [RecordPtr],y
	sta  LineRightEdge

	jsr  GetSelectionStart
	jsr  FindLineStart
	lda  TextOffset
	ora  TextOffset+2
	beq  @skipFirst
	decl TextOffset
	jsr  checkLine
@skipFirst
	jsr  GetSelectionStart
	jsr  checkLine

	clc
	rts
;---------------------------------------------------------------
notFast	sec
	rts
;---------------------------------------------------------------



;---------------------------------------------------------------
checkLine	jsr  FindLineStart
	PushZWord LineAscent
	PushZWord LineHeight
	jsr  FindAndInstallStyle

	lda  #0		;clear the maximum text height and ascent
	tax
	ldy  #TERecord.MaxTextHeight
	jsr  SetRecordLong

	lda  LineRightEdge
	sta  TextHPos
	jsr  HPosToOffset
	lda  LineRightEdge		;compare the right edge with our position
	cmp  TextHPos
	bge  @1
	decl TextOffset
@1	jsr  FindTextPtr
	lda  [TextPtr]
	and  #$00FF
	cmp  #CR
	bne  @2
	incl TextOffset
@2
	PullAX
	ldy  #TERecord.MaxTextHeight
	cmp  [RecordPtr],y
	bne  @nope
	txa
	ldy  #TERecord.MaxTextAscent
	cmp  [RecordPtr],y
	bne  @nope

	jsr  IsTextOffsetAtEnd
	beq  @checkEnd
	jsr  FindLineInfo
	lda  TextOffset
	cmp  SuperStart
	bne  @nope
	lda  TextOffset+2
	cmp  SuperStart+2
	bne  @nope
@done	rts

@checkEnd	decl TextOffset
	jsr  FindTextPtr
	lda  [TextPtr]
	and  #$00FF
	cmp  #CR
	beq  @ccc
	ldy  #TERecord.LineAtEndFlag
	lda  [RecordPtr],y
	bpl  @nope
	bra  @done
@ccc	ldy  #TERecord.LineAtEndFlag
	lda  [RecordPtr],y
	bmi  @nope
	bra  @done

@nope	pla		;go back one level
	sec
	rts
;---------------------------------------------------------------

	ENDP
****************************************************************

;---------------------------------------------------------------
&index	SETA 80
	WHILE >&index > 0 DO

	lda  |&index,y
	sta  >&index,x

&index	SETA &index-1
	ENDWHILE
;---------------------------------------------------------------

****************************************************************

Entry1Proc	PROC

	EXPORT  QuickEntry
	EXPORT  QuickExit
	EXPORT  StandardEntry
	EXPORT  StandardExit

;---------------------------------------------------------------
	DSECT 1
TEDirectPtr	long
UserDirectPage	word
RPart1	word
RPart2	word
RPart3	word
UserStuff	word
;---------------------------------------------------------------
ErrorCode	equ  0
;---------------------------------------------------------------
RetSave	equ  0
;---------------------------------------------------------------

;---------------------------------------------------------------
QuickEntry	jsl  IncBusyFlg		;increment busy flag (doesn't change ANYTHING)

	plx		;pull the return address in X-Reg
	phd		;save the user's direct page
	tcd		;set ours from our WAP
	beq  notStarted		;if zero, then we are not started
	stx  TempWord		;use TempWord to hold the return address
	tyx		;check to see if the number of parameters
	beq  @skipMove		;..is zero.
	clc		;make a pointer to our parameter
	adc  #ParameterSpace-2	;..area in our direct page and save it
	pea  $0000		;the high word is zero
	pha
	tsc		;get the current stack pointer
	phx		;save the number of parameters for adjust
	phd		;save our direct page
	phx		;save the number of parameters for move
	tcd		;set direct page to the old stack pointer

@loop	lda  UserStuff-2,x		;copy our parameters to OUR direct page
	txy
	sta  [TEDirectPtr],y
	dex
	dex
	bne  @loop

@stripIt	plx		;get back the number of parameters
	lda  RPart3		;copy the user's direct page and the two
	sta  RPart3,x		;..return addrs over the parameters
	lda  RPart2
	sta  RPart2,x
	lda  RPart1
	sta  RPart1,x
	lda  UserDirectPage	
	sta  UserDirectPage,x
	tdc		;get the original stack pointer
	pld		;restore our direct page
	clc		;adjust the stack pointer by
	adc  1,s		;..the number of parameters
	adc  #4		;skip over the allocated pointer
	tcs		;and set it back.
@skipMove	phb		;save the user's data bank
	phk		;set our data bank.
	plb
	pei  TempWord
	rts		;return to caller

notStarted	tsc
	tcd
	lda  RPart3-4		;copy the user's direct page and the two
	sta  RPart3-4,x		;..return addrs over the parameters
	lda  RPart2-4
	sta  RPart2-4,x
	lda  RPart1-4
	sta  RPart1-4,x
	lda  UserDirectPage-4
	sta  UserDirectPage-4,x
	phx
	tdc		;adjust the stack
	clc
	adc  1,s
	tcs
	phb		;save the user's data bank
	phk		;set our data bank.
	plb
	ldx  #teNotStarted		;load the not started error
;---------------------------------------------------------------
QuickExit	plb		;restore the original data bank
	pld		;restore original direct page
	txa		;put the error code into A
	cmp  #1		;set the carry flag
	jml  DecBusyFlg		;decrement busy flag and return to caller
;---------------------------------------------------------------
StandardEntry	plx		;pull off the return address
	phd		;save the user's direct page
	tcd		;set ours from our WAP
	beq  notStarted		;if zero, then we are not started, so use
	stx  RetSave		;..quick entry to exit.
	pld
	jsr  QuickEntry		;setup TextEdit. number of parameters in Y

	lda  RecordHandle
	ora  RecordHandle+2
	bne  useThisOne

	PushLongSpace
	_FindActiveCtl
	tax		;put the error code in the X-Reg
	pla
	sta  RecordHandle
	pla
	sta  RecordHandle+2
	bcs  QuickExit
useThisOne
	jsr  LockRecordHandle	;lock the main record handle

	PushLongSpace		;save the current port
	_GetPort
	jsr  SetWindowPort

	pei  RetSave
	rts
;---------------------------------------------------------------
StandardExit	stx  ErrorCode

	_SetPort
	jsr  UnlockRecordHandle

	ldx  ErrorCode
	bra  QuickExit
;---------------------------------------------------------------

	ENDP

****************************************************************
	DSECT WorkArea
dstPortPtr	long		;these are for the low level drawing
srcPtr	long		;..routines
dstPtr	long
srcWidth	word
dstWidth	word
numberOfWords	word
numberOfLines	word
leftMask	word
rightMask	word

****************************************************************

FindWordEnd	PROCNAME

 bra  FindWordEndNew
	decl TextOffset
	jsr  FindTextPtr
	lda  [TextPtr]
	jsr  IsItAWordBreak
	bcs  alreadyThere

@loop	incl TextOffset
	jsr  IsOffsetAtEnd
	beq  atEnd
	jsr  FindTextPtr
	lda  [TextPtr]
	jsr  IsItAWordBreak
	bcc  @loop
atEnd	rts

alreadyThere	incl TextOffset
	rts

	ENDP

****************************************************************
* the value to be draw comes in in A
****************************************************************
DebugHexWord	PROC  EXPORT

	phb		;save the data bank
	phk		;set it to ours
	plb

	PushLongSpace
	pha
	_HexIt
	PullLong tempStr

	PushLong #theRect
	_GetPen
	PushLong #theInfo
	_GetFontInfo

	PushWordSpace
	PushLong #tempStr
	_CStringWidth
	pla
	clc
	adc  theRectLeft
	sta  theRectRight
	lda  theRectTop
	clc
	adc  theInfoAscent
	adc  theInfoDescent
	sta  theRectBottom
	PushLong #theRect
	_EraseRect

	PushWord #0
	PushWord theInfoAscent
	_Move
	PushLong #tempStr
	_DrawCString

	lda  #30
	jsr  DebugDelay

	plb		;restore the data bank
	rts

origTicks	ds.l  1

theRect
theRectTop	ds.w  1
theRectLeft	ds.w  1
theRectBottom	ds.w  1
theRectRight	ds.w  1

theInfo
theInfoAscent	ds.w  1
theInfoDescent	ds.w  1
theInfoWidMax	ds.w  1
theInfoLeading	ds.w  1

tempStr	ds.b  4
	dc.b  0

	ENDP

****************************************************************

DebugDelay	PROC

	sta  origTicks
	stz  origTicks+2
	PushLongSpace
	_TickCount
	pla
	clc
	adc  origTicks
	sta  origTicks
	pla
	adc  origTicks+2
	sta  origTicks+2

@loop	PushLongSpace
	_TickCount
	PullAX
	cmpl origTicks
	blt  @loop

	rts

origTicks	ds.l  1

	ENDP

****************************************************************

CalculateRemovedHeight PROCNAME

;---------------------------------------------------------------
	stzl RemovedHeight		;this is for removing lines

	jsr  GetSelectionLength
	lda  SelectionLength
	ora  SelectionLength+2
	bne  doIt
	rts
;---------------------------------------------------------------
doIt	ldy  #TERecord.LineSuper
	jsr  FindSuperInfo

	jsr  GetSuperMaxIndex
	ldy  #SuperHandle.cachedIndex	;get the current index for the selection
	lda  [SuperRecordPtr],y	;..start into Y-Reg
	inc  a		;start with the high word
	inc  a
	tay

	lda  TextOffset		;check to see if we are starting on the
	cmp  SuperStart		;..first item
	bne  @notAtStart
	lda  TextOffset+2
	cmp  SuperStart+2
	beq  itemLoop

@notAtStart	sty  TempWord
	jsr  GetLongSuperCount
	stax SuperLength
	jsr  adjustSelection
	bcc  allDone
	ldy  TempWord
	bra  enterLoop
;---------------------------------------------------------------
ItemLoop	lda  [TempPtr],y
	bmi  deletedItem
	lda  [TempPtr],y
	sta  SuperLength+2
	dey
	dey
	lda  [TempPtr],y
	sta  SuperLength
	jsr  adjustSelection
	bcc  allDone
	iny
	iny
enterLoop	iny
	iny
	lda  [TempPtr],y
	addl RemovedHeight
	tya
	clc
	adc  #SuperItemSize-2
	bra  nextItem
deletedItem	tya
	clc
	adc  #SuperItemSize
nextItem	tay
	cpy  SuperMaxIndex
	blt  ItemLoop

	jsr  MoveToNextHandle
	bcs  allDone
	ldy  #SuperBlock.RecordSize+2
	bra  ItemLoop
;---------------------------------------------------------------
allDone	rts
;---------------------------------------------------------------



;---------------------------------------------------------------
adjustSelection	lda  SelectionLength
	sec
	sbc  SuperLength
	sta  SelectionLength
	lda  SelectionLength+2
	sbc  SuperLength+2
	sta  SelectionLength+2	;carry remains set if we are continuing
	ora  SelectionLength	;carry is clear if we are done
	rts		;..the Z-Flag is set if we are done
;---------------------------------------------------------------

	ENDP

****************************************************************

SplitBlockList	PROCNAME  Export

;---------------------------------------------------------------
	jsr  CachedBlockToPtr	;set TempPtr to our current block and
	movl BlockHandle,TempLong	;..save the block handle in TempLong

@loop1	ldy  #TextBlock.textLength+2	;move back through all the previous blocks
	lda  [TempPtr],y		;..including the current one and see if
	bne  splitBlock		;..any of them are too big. If they are
	ldy  #TextBlock.textLength	;..then split just one of them
	lda  [TempPtr],y
	cmp  #MaxBlockSize
	bge  splitBlock
	jsr  MoveToPrevBlock
	bcc  @loop1

	movl TempLong,BlockHandle	;restore our original block handle, then
	jsr  BlockHandleToPtr	;..move through all the blocks after this
	bra  @enter2		;..one to see if any of these are too big.
@loop2	ldy  #TextBlock.textLength+2	;..If one is, then split it.
	lda  [TempPtr],y
	bne  splitBlock
	ldy  #TextBlock.textLength
	lda  [TempPtr],y
	cmp  #MaxBlockSize
	bge  splitBlock
@enter2	jsr  MoveToNextBlock
	bcc  @loop2

exit	rts		;everything was small, so exit
;---------------------------------------------------------------
splitBlock	ldx  #$FFE0		;find the maximum number of characters
	ldy  #TextBlock.textLength+2	;..to search through
	lda  [TempPtr],y
	bne  @1
	dey
	dey
	lda  [TempPtr],y
	cmp  #$FFE0
	bge  @1
	tax

@1	ldy  #TextBlock.textStart+SplitBlockSize
	shortm		;look for the first carriage return after
@loop	lda  [TempPtr],y		;..the splitting block size. Note that
	cmp  #CR		;..if we can't find a CR in the first
	beq  doIt		;..64K, we abort the split
	iny
	dex
	bne  @loop
	longm
abortIt	rts
;---------------------------------------------------------------
doIt	longm		;back to long mode
	cpy  #$FEFF		;If our index is greater than this, we
	bge  abortIt		;..will break some other code later on
	tya		;..that assumes no overflow from a word.
	sec		;If our index is too big, then abort the
	sbc  #TextBlock.textStart	;..split. Otherwise adjust the index back
	sta  TempWord		;..to a text offset and this is the new

	ldy  #TextBlock.textLength	;..length of the old block. Now find the
	lda  [TempPtr],y		;..length of the NEW block.
	sec
	sbc  TempWord
	sta  MoveLength
	lda  TempWord		;also set the new length of the old block
	sta  [TempPtr],y		;..in the record.
	iny
	iny
	lda  [TempPtr],y
	sbc  #0
	sta  MoveLength+2
	lda  #0		;the high word of the new length is always
	sta  [TempPtr],y		;..zero

	ldax MoveLength		;round off and adjust the new length. Then
	and  #$FF00		;..get a handle of the proper size
	clc
	adc  #256+TextBlock.textStart
	bcc  @1
	inx
@1	jsr  GetLargeHandle		;if we get a memory error, then abort the
	bcs  abortIt		;..split
	stax TempLong		;save the new handle in TempLong and
	jsr  DerefAX		;..deref it into MemoryPtr
	stax MemoryPtr

	jsr  BlockHandleToPtr	;reset TempPtr in case the block moved

	ldy  #TextBlock.nextHandle	;set the next handle field for both the
	lda  [TempPtr],y		;..new block and the old block
	sta  [MemoryPtr],y
	lda  TempLong
	sta  [TempPtr],y
	iny
	iny
	lda  [TempPtr],y
	sta  [MemoryPtr],y
	lda  TempLong+2
	sta  [TempPtr],y

	ldy  #TextBlock.prevHandle	;set the previous handle of the new block
	lda  BlockHandle
	sta  [MemoryPtr],y
	iny
	iny
	lda  BlockHandle+2
	sta  [MemoryPtr],y

	ldy  #TextBlock.textLength	;set the length of the new block
	lda  MoveLength
	sta  [MemoryPtr],y
	iny
	iny
	lda  MoveLength+2
	sta  [MemoryPtr],y

	ldy  #TextBlock.flags	;clear the flags for the new block
	lda  #0
	sta  [MemoryPtr],y

	lda  TempWord		;find the source pointer for moving the
	clc		;..text from the old block to the new one
	adc  #TextBlock.textStart
	adc  TempPtr
	sta  SourcePtr
	lda  TempPtr+2
	adc  #0
	sta  SourcePtr+2

	lda  #TextBlock.textStart	;the dest pointer is the pointer to the
	clc		;..start of the new block adjusted for
	adc  MemoryPtr		;..the header
	sta  DestPtr
	lda  MemoryPtr+2
	adc  #0
	sta  DestPtr+2

	jsr  BlockMove		;move the text

	PushZLong BlockHandle	;set the size of the old handle to free
	ldx  #0		;..up memory
	lda  TempWord
	and  #$FF00
	clc
	adc  #256+TextBlock.textStart
	jsr  SetHandleSize

	jsr  BlockHandleToPtr	;reset TempPtr in case the block moved
	jsr  MoveToNextBlock	;this moves to the newly created block
	jsr  MoveToNextBlock	;find the next block and if there is one
	bcs  @allDone		;..then set the prev handle field of it
	ldy  #TextBlock.prevHandle	;..to the new block
	lda  TempLong
	sta  [TempPtr],y
	iny
	iny
	lda  TempLong+2
	sta  [TempPtr],y
@allDone	rts
;---------------------------------------------------------------

	ENDP

****************************************************************
* this routine concatenates two handles
****************************************************************
HandAndHand	PROCNAME  Export

;---------------------------------------------------------------
	DefineStack
origD	word
returnAddr	word
srcHandle	long
dstHandle	long
;---------------------------------------------------------------

	phd		;save the old direct page
	tsc		;setup our new direct page
	tcd

	ldy  #HandleRecord.length	;get the size of the destination handle
	lda  [dstHandle],y
	pha		;save the low word of the old length
	clc
	adc  [srcHandle],y
	tax
	iny
	iny
	lda  [dstHandle],y
	pha		;save the high word of the old length
	adc  [srcHandle],y
	pha		;Push the new size for set handle size
	phx
	PushZLong dstHandle
	_SetHandleSize
	bcs  error

	lda  [dstHandle],y		;add the size of the original dest
	tax		;..handle and put it in dest handle
	pla
	clc
	adc  [dstHandle]
	sta  dstHandle
	txa
	adc  1,s
	sta  dstHandle+2
	plx

	ldy  #2
	lda  [srcHandle],y
	tax
	lda  [srcHandle]
	PushAX
	PushZLong dstHandle		;now a pointer to the end of the old dest
	ldy  #HandleRecord.length+2	;get the size of the source handle
	lda  [srcHandle],y
	pha
	dey
	dey
	lda  [srcHandle],y
	pha
	PushWord #%0000100000000101
	jsl  $E10200		;use the memory mover

	lda  returnAddr
	sta  dstHandle+2

	clc		;indicate no error
;---------------------------------------------------------------
done	pld
	pla		;pull off 8 bytes of garbage
	pla
	pla
	pla
	rts	
;---------------------------------------------------------------
error	tax
	pla		;cleanup the stack
	pla
	sec
	bra  done
;---------------------------------------------------------------

	ENDP

****************************************************************

Save0_4	PROCNAME  Export

	ply
	pei  2
	pei  0
	phy
	rts

	ENDP

****************************************************************

Restore0_4	PROCNAME  Export

	pha
	lda  5,s
	sta  2
	pla
	sta  3,s
	pla
	sta  0
	pla
	rts

	ENDP

****************************************************************

IncRecordLong	PROCNAME  Export

	lda  [RecordPtr],y
	inc  a
	sta  [RecordPtr],y
	bcc  skipHigh
	iny
	iny
	lda  [RecordPtr],y
	inc  a
	sta  [RecordPtr],y
skipHigh	rts

	ENDP

moveGrowBox	PushLongSpace		;find the new top/left of the grow box
	_GrowSize		;..and move it to this position
	ldy  #GrafPort.portRect.bottom
	lda  [TempPtr],y
	inc  a
	sec
	sbc  1,s		;leave the new Y-Pos on the stack
	sta  1,s
	ldy  #GrafPort.portRect.right
	lda  [TempPtr],y
	inc  a
	sec
	sbc  3,s		;leave the new X-Pos on the stack
	sta  3,s
	jsr  GetGrowBoxHandle	;push the control handle
	PushAX
	_MoveControl
****************************************************************

TEScroll	PROCNAME  Export

;---------------------------------------------------------------
	DSECT ParameterSpace
xRecordHandle	long
horzAmount	long
vertAmount	long
theScrollVerb	word
;---------------------------------------------------------------

;---------------------------------------------------------------
	ldy  #14
	jsr  StandardEntry

	ldx  #teInvalidVerb		;check for a verb overflow. If the verb
	lda  theScrollVerb		;..is ok, then jump thru the table.
	cmp  #6
	bge  error
	asl  a
	tax
	jmp  (table,x)
;---------------------------------------------------------------
doTopOffset	nop
doCenterOffset	nop
doTopLine	nop
doCenterLine	nop
;---------------------------------------------------------------
doSetValue	ldy  #TERecord.VertScrollPos	;get the difference between the new value
	lda  vertAmount		;..and the old one and store it back in
	sec		;..vertAmount.
	sbc  [RecordPtr],y
	sta  vertAmount
	iny
	iny
	lda  vertAmount+2
	sbc  [RecordPtr],y		;then, fall through into doOffsetValue
	sta  vertAmount+2		;..to do the actual scroll

doOffsetValue	ldax vertAmount		;A-Reg and X-Reg contain the amount to scroll
	jsr  ScrollByAmount		;..Then do it and fall thru into goodExit
;---------------------------------------------------------------
goodExit	ldx  #0		;no error
error	brl  StandardExit
;---------------------------------------------------------------

;---------------------------------------------------------------
table	dc.w  doTopOffset
	dc.w  doCenterOffset
	dc.w  doTopLine
	dc.w  doCenterLine
	dc.w  doSetValue
	dc.w  doOffsetValue
;---------------------------------------------------------------

	ENDP
****************************************************************

;---------------------------------------------------------------
checkitnow
	ldy  #TERecord.LastErrorCode
	lda  [RecordPtr],y
	bne  @error

	jsr  CachedBlockToPtr
	lda  TempPtr
	ora  TempPtr+2
	beq  @break
	rts

@break	brk  $49
	rts
@error	brk  $48
	rts

;---------------------------------------------------------------

****************************************************************

WalkText	PROCNAME  Export
	DSECT ParameterSpace
xRecordHandle	long
CallBackPtr	long
CallBackData	long
TheVerb	word
iTheLength	long		; use some temp space in parameter area
iTheTemp	long		; use some more temps!
MaxVerb	equ $000F
TEInvalidCallBack	equ $0024
TEBadLength	equ $0025
;---------------------------------------------------------------
	lda  TheVerb		;first validate the verb
	and  #$00FF
	cmp  #MaxVerb
	blt  @VerbOK
	ldx  #teInvalidFlag
	sec
	rts
@VerbOK
	lda CallBackPtr+1		; next validate the callback pointer
	beq @BadCallBack		; see if some bozo passed a nil
	lda CallBackPtr+2
	and #$00FF
	cmp CallBackPtr+2		; see if some bozo passed a random 4byte
	beq @GoodCallBack
@BadCallBack	ldx #teInvalidCallBack
	sec
	rts
;---------------------------------------------------------------
@GoodCallBack
; At this point we have done all the initializing that we can be expected to do...
;
; First position us at the very beginning of the text super block list...
	jsr  CachedBlockToPtr	;find the first block in the list
@loop1	jsr  MoveToPrevBlock
	bcc  @loop1
; now at the top of the super block list, examine the verb to determine where to start
; and how long to go...
	lda  theVerb
	and #$00FF		; strip off the flags byte..
	asl  a
	tax
	jsr  (WalkTbl,x)		; calc the proper start/length
	bcc  @Loop		; start thru the loop if no error
	ldx  #teBadLength
	sec
	rts
;
; At this point textOffset is set to the proper starting location for us to run the list
; and the temp length variable is set to the length that we want to run.
;--------------------------------------------------------------- 
@loop	jsr  FindTextPtr	; set text ptr and block ptr to proper place...
; Now set up the data for our callback...
	pha	; room for result
	ldax TextOffset	; push block offset
	PushAX
	ldax BlockLength	; get the size of the current block
	stax iTheTemp	; save it for later in the temp
	ldax BlockStart	; see if we are at the beginning of a block..
	cmp  TextOffset	; by comparing to the text offset
	bne  @NotAtStart
	cpx  TextOffset+2
	beq  @AtStart
@NotAtStart
	subl TextOffset,BlockStart,iTheTemp	; temp:=offset-blkStart
	subl BlockLength,iTheTemp,iTheTemp	; temp:=Length-temp
@AtStart	ldax iTheTemp	; temp now contains the size of the rest of the block
	PushAX	; save the current block length...
	ldax TextPtr	; push the BlockPointer
	pushAX
	ldax xRecordHandle	; and finally the record handle..
	pushAX
	jsl CallCallBack	; now call the callback routine!
	
	jsr  BlockHandleToPtr	; re-deref the current super handle
	ldy  #TextBlock.nextHandle+1	; see if this was the last block
	lda  [tempPtr],y
	beq  @AtTheEnd		; if we are at the last block then just get out!
; bump textoffset and continue
	addl TextOffset,iTheTemp,TextOffset	; offset := offset+temp
	subl iTheLength,iTheTemp,iTheLength	; length:=length-temp
	lda  iTheLength+2
	bmi  @AtTheEnd		; if negative, then we are done..
	ora  iTheLength
	beq  @AtTheEnd		; or if its zero we are done!
	bra  @loop
;---------------------------------------------------------------
@AtTheEnd	ldx  #0
;---------------------------------------------------------------
allDone			;if the buffer was full, return buffer
	cpx  #1		;..full error
	rts
;---------------------------------------------------------------
CallCallBack
; This routine calls the routine passed by the programmer by cleverly
; stuffing its address-1 on the stack and RTLing
	pha		; make room on the stack for 3 bytes..
	phk
	lda  CallBackPtr+1
	sta  2,s
	lda  CallBackPtr
	dec  a
	sta  1,s
	rtl
	
;---------------------------------------------------------------
doWholeRecord
; Set up the start to 0 and the length to the number of chars in the record
	stzL TextOffset		; set the start to 0
	jsr  GetTextLength
	stx  iTheLength+2
	sta  iTheLength
doTestLength	ora  iTheLength+2		; be sure we have data to run!
	bne  @ok
	sec
	rts
@ok	clc		; flag that its ok data
	rts
	
;---------------------------------------------------------------
doFromSelStart	jsr  GetSelectionStart	; set text offset first
dFSelCont	stax TextOffset
	jsr  GetTextLength		; now, to calculate the remaining bytes
	stax iTheLength
	subl iTheLength,textOffset,iTheLength ; length:=length-offset
	lda  iTheLength
	bra  doTestLength
;---------------------------------------------------------------
doFromSelEnd	jsr  GetSelectionEnd
	bra  dfSelCont
;---------------------------------------------------------------
doSelectionOnly	jsr  GetSelectionStart
	stax TextOffset
	jsr  GetSelectionLength
	stax iTheLength
	lda  iTheLength
	bra  doTestLength
;---------------------------------------------------------------
doFromArbitrary	ldax CallBackData		; programmer passed us the starting point
	stax TextOffset
	jsr  GetTextLength
	stax iTheLength
	subl iTheLength,TextOffset,iTheLength	; length:=length-offset
	bcs  @LengthOK		; test here to see if subtract created
	sec		; a negative number
	rts		; if so flag an error and end.
@LengthOK	lda  iTheLength
	bra  doTestLength
;---------------------------------------------------------------
doGivenRange	ldy  #2
	lda  [CallBackData],y	;  call back data for this is ptr
	sta  TextOffset+2		; to the 2 longs of data
	lda  [callBackData]
	sta  TextOffset
	iny
	iny
	lda  [CallBackData],y
	sta  iTheLength
	iny
	iny
	lda  [CallBackData],y
	sta  iTheLength+2
; Now we must validate the length passed to be sure we don't crash
	jsr  GetTextLength		; test the offset first..
	sec
	sbc  TextOffset
	tay		; save it for a second..
	txa
	sbc  TextOffset+2
	bcc  @BadOffset		; if carry clear out of record here!
	tax
	tya
	sbc  iTheLength		; now see if we are too long..
	txa		; the result is un important..
	sbc  iTheLength+2
	bcc  @BadLength		; carry set here means they want too much data
@Cont	lda  iTheLength
	brl  doTestLength
@BadLength	tya		; get the proper remaining chars in <A><X>
	stax iTheLength
	bra  @cont
@BadOffset	sec
	rts
;---------------------------------------------------------------
WalkTbl	dc.w  doWholeRecord
	dc.w  doFromSelStart
	dc.w  doFromSelEnd
	dc.w  doSelectionOnly
	dc.w  doFromArbitrary
	dc.W  doGivenRange
;---------------------------------------------------------------

	ENDP

****************************************************************
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/TextEdit/fastdraw.aii b/IIGS.601.SRC/GSToolbox/TextEdit/fastdraw.aii
new file mode 100644
index 0000000..8d58c39
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/TextEdit/fastdraw.aii
@@ -0,0 +1 @@
+**********************************************************************
*
*                      GSTextEdit  Version 1.0
*                         File: fastdraw.aii
*
*               Copyright Apple Computer, Inc. 1988-89
*                        All rights reserved
*
*
*
*
* Notes
*
* All the routines in GSTextEdit must be called in full native mode and
* return that way.
*
* All the files in GSTextEdit must be assembled with the "-unsafe"
* option to pass unresolved references to the linker.
*
*
*
*
* Change History
*
* 30 May 89	Dave Good
*
* Cleaned up comments for final release.
*
**********************************************************************


	INCLUDE  'GlobalIncludes'


****************************************************************

FastPPToPort	PROCNAME  Export

;---------------------------------------------------------------
	lda  TextVPos		;copy the top coordinate
	sta  dstRect.top

	lda  TempRect.bottom	;copy the bottom coordinate
	sec
	sbc  TempRect.top
	clc
	adc  dstRect.top
	sta  dstRect.bottom

	ldy  #TERecord.ViewRect.left	;copy the left coordinate
	lda  [RecordPtr],y
	clc
	adc  TextHPos
	sta  dstRect.left

	ldy  #GrafPort.PortRect.right	;copy the right coordinate
	lda  [DrawPortPtr],y
	sec
	sbc  TextHPos
	clc
	adc  dstRect.left
	sta  dstRect.right
;---------------------------------------------------------------
	jsr  SetupDstPtr		;find the destination pointer
	bcs  doSlow

	jsr  SetupSrcPtr		;find the source pointer
	bcs  doSlow

	jsr  SetupPPToPortCode	;setup our code buffer
	bcs  doSlow

doFast	jsr  CallMemoryCode
;---------------------------------------------------------------
allDone	brl  TellAboutDstRect
;---------------------------------------------------------------
doSlow	PushZLong DrawPortPtr	;source port pointer
	PushZPtr dstRect		;source rect
	pei  dstRect.left		;horizontal destination position
	pei  dstRect.top		;vertcial destination position
	PushWord #0		;mode copy

	ldy  #TERecord.ViewRect.left	;offset the left and right edges of the
	lda  dstRect.left		;..dest rect back to being a source rect
	sec
	sbc  [RecordPtr],y
	sta  dstRect.left
	lda  dstRect.right
	sec
	sbc  [RecordPtr],y
	sta  dstRect.right

	lda  TempRect.top		;offset the top and bottom edges of the
	sec		;..dest rect back to being a source rect
	sbc  TextVPos
	tax
	clc
	adc  dstRect.top
	sta  dstRect.top
	txa
	clc
	adc  dstRect.bottom
	sta  dstRect.bottom

	_PPToPort
	bra  allDone
;---------------------------------------------------------------

	ENDP

****************************************************************

SetupPPToPortCode	PROCNAME  Entry

;---------------------------------------------------------------
MinWordsInHandle	equ  20
;---------------------------------------------------------------

;---------------------------------------------------------------
	phb		;save the data bank

	jsr  derefCodeHandle	;this also sets the data bank and Y-Reg

	lda  |2,y		;check the maximum number of bytes that
	cmp  numberOfWords		;..this handle can move
	bge  SizeOK

	PushZLong PPToPortCodeHandle	;set the handle size to the proper amount
	lda  numberOfWords		;when we build the handle it must be a
	cmp  #MinWordsInHandle	;..certain minimum size
	bge  @ok
	lda  #MinWordsInHandle
@ok	dec  a		;the first and last words are treated
	dec  a		;..specially
	sta  TempWord
	asl  a
	asl  a
	asl  a		;we are multiplying the count by seven
	sbc  TempWord		;..and skipping over the PROCNAME  Export to find
	adc  #EndOfCode-StartOfCode+5+2	;..our total variable offset
	ldx  #0
	jsr  SetHandleSize		;if we got a memory error then exit
	bcs  exit

	jsr  fillTheHandle		;deref and fill the handle

	ldy  theCodePtr		;reload Y-Reg with the correct offset
;---------------------------------------------------------------
sizeOK	shortm		;check to see if the bank in the code
	lda  |10,y		;..handle is the same as the destination
	cmp  dstPtr+2		;..bank. If not, then reset the bank
	longm		;..bytes.
	beq  bankOK
	jsl  ResetPPToPortBank	;this routine saves the Y-Reg
;---------------------------------------------------------------
bankOK	lda  |0,y		;this is the size of the variable field
	clc		;we want to skip over that, so we can
	adc  theCodePtr		;..patch the items we want to.
	tay		;Y-Reg is now our pointer

	lda  numberOfWords		;here we find the amount to branch back
	dec  a		;..by
	tax		;save the number of words minus one
	bne  @notSingle
	lda  #StartOfCode-singleStart
	bra  @subtractIt
@notSingle	dec  a
	bne  @notDouble
	lda  >patch5+1
	bra  @setJumpAddr
@notDouble	sta  TempWord
	asl  a
	asl  a
	asl  a
	sec
	sbc  TempWord
@subtractIt	sta  TempWord
	lda  >patch5+1
	sec
	sbc  TempWord
@setJumpAddr	sta  |patch5-StartOfCode+1,y

	txa		;get back the number of words minus one
	asl  a		;..and multiply by two
	sta  |patch1-StartOfCode+1,y	;patch all the spots that need to be
	sta  |patch2-StartOfCode+1,y
	sta  |patch3-StartOfCode+1,y
	sta  |patch4-StartOfCode+1,y

	ldy  theCodePtr		;here we calculate the code pointer which
	lda  |2,y		;..is the address, we must jsl to in order
	sec		;..to start this entire process
	sbc  numberOfWords
	sta  TempWord
	asl  a
	asl  a
	asl  a		;the carry is always CLEAR here, so we
	sbc  TempWord		;..must add an extra one in addition to
	clc		;..the four to skip the PROCNAME  Export, minus one
	adc  #4+1-1		;..to make it into a return addr.
	clc		;ensure the carry is CLEAR here

	ldx  numberOfWords		;if we are moving one word, then we need
	dex		;..a further adjustment of 10
	bne  @notOne
	adc  #10		;the carry is always clear here

@notOne	adc  theCodePtr		;add to the original starting address of
	sta  theCodePtr		;..of codePtr. (carry is always CLR)
;---------------------------------------------------------------
exit	plb
	rts
;---------------------------------------------------------------



;---------------------------------------------------------------
ResetPPToPortBank	phb		;save the bank byte and the X and Y
	phx		;..registers
	phy

	ldy  #1		;deref the handle, but don't save the
	lda  [PPToPortCodeHandle],y	;..result. Instead use B-Reg and Y-Reg
	pha		;..to hold our pointer into the code
	plb		;..handle
	plb
	lda  [PPToPortCodeHandle]
	tay
	lda  |2,y		;get the number of words minus one for
	dec  a		;..a counter
	tax
	shortm		;switch to short mode for safety

	lda  dstPtr+2		;this is the new bank byte
@loop	sta  |10,y
	iny
	iny
	iny
	iny
	iny
	iny
	iny
	dex
	bne  @loop

	sta  |9,y		;there are five copies of the bank byte
	sta  |13,y		;..outside the loop
	sta  |20,y
	sta  |26,y
	sta  |30,y

	longm		;back to long mode
	ply		;restore the X and Y registers and the
	plx		;..bank byte
	plb
	clc		;clear the carry. This routine MUST return
	rtl		;..carry clear.
;---------------------------------------------------------------



;---------------------------------------------------------------
fillTheHandle	jsr  derefCodeHandle	;this also sets the data bank and Y-Reg

	lda  numberOfWords		;when we build the handle it must be a
	cmp  #MinWordsInHandle	;..certain minimum size
	bge  @ok
	lda  #MinWordsInHandle
@ok	sta  |2,y
	dec  a		;the first and last words are treated
	dec  a		;..specially
	sta  TempWord
	asl  a
	tax		;this is our index and count register
	asl  a
	asl  a		;we are multiplying the count by seven
	sbc  TempWord		;..and skipping over the PROCNAME  Export to find
	adc  #4		;..our total variable offset
	sta  |0,y		;The carry gets set by the subtract
	iny		;skip over the buffer PROCNAME  Export
	iny
	iny
	iny

	clc		;the carry will be CLEAR throughout the
@loop	lda  #$B9		;..entire loop
	sta  |0,y		;these first two should really be in
	lda  #$9F		;..short mode, but it doesn't save us
	sta  |3,y		;..anything
	txa		;use the index
	sta  |1,y
	sta  |4,y
	tya
	adc  #7		;the carry is always CLEAR here
	tay
	dex
	dex
	bne  @loop

	PushLong #StartOfCode	;this is the source pointer
	shortm		;this is the destination pointer
	lda  #0
	pha
	phb
	longm
	phy
	PushLong #EndOfCode-StartOfCode	;the amount of memory to move
	PushWord #%0000100000000101	;flags for moving forward
	jsl  $E10200		;memory mover entry point

	jsl  ResetPPToPortBank	;the bank bytes are wrong
	rts
;---------------------------------------------------------------



;---------------------------------------------------------------
StartOfCode
patch1	lda  |$BBBB,y		;*** this must be patched ***
patch2	eor  >$EEBBBB,x		;*** this must be patched ***
	and  rightMask
patch3	eor  >$EEBBBB,x		;*** this must be patched ***
patch4	sta  >$EEBBBB,x		;*** this must be patched ***

singleStart	lda  |0,y
	eor  >$EE0000,x
	and  leftMask
	eor  >$EE0000,x
	sta  >$EE0000,x

	dec  numberOfLines
	beq  codeDone
	txa
	adc  dstWidth
	tax
	bcs  dstWrap
doSrc	tya
	adc  srcWidth
	tay
	bcs  srcWrap
patch5	brl  StartOfCode		;*** this must be patched ***

srcWrap	phb
	pla
	inc  a
	pha
	plb
	clc
	bra  patch5

dstWrap	inc  dstPtr+2
	jsl  ResetPPToPortBank
	bra  doSrc

codeDone	rtl
EndOfCode
;---------------------------------------------------------------



;---------------------------------------------------------------
derefCodeHandle	ldy  #2		;deref the code handle and make the data
	lda  [PPToPortCodeHandle],y	;..bank and the Y-Reg a pointer into it
	sta  theCodePtr+2		;..at the same time
	pei  theCodePtr+1
	plb
	plb
	lda  [PPToPortCodeHandle]
	sta  theCodePtr
	tay
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

FastScrollRect	PROCNAME  Export

;---------------------------------------------------------------
	stax ScrollDelta		;save the amount to scroll

	lda  TempRect.top		;copy the top coordinate
	sta  dstRect.top
	lda  TempRect.left		;copy the left coordinate
	sta  dstRect.left
	lda  TempRect.bottom	;copy the bottom coordinate
	sta  dstRect.bottom
	lda  TempRect.right		;copy the right coordinate
	sta  dstRect.right
;---------------------------------------------------------------
	jsr  SetupDstPtr		;find the destination pointer
	bcc  @1
	jsr  CopyTempToDrawRect
	brl  allDone
@1
	lda  dstRect.top		;copy the dest rect into draw rect
	sta  DrawRect.top
	lda  dstRect.left
	sta  DrawRect.left
	lda  dstRect.bottom
	sta  DrawRect.bottom
	lda  dstRect.right
	sta  DrawRect.right

	ldx  ScrollDelta+2		;find out which way we are scrolling
	bmi  goingUp
	beq  goingDown
	brl  allDone
;---------------------------------------------------------------
goingDown	lda  ScrollDelta
	beq  allDone
	bmi  allDone
	clc
	adc  DrawRect.top
	cmp  DrawRect.bottom
	bpl  allDone
	sta  DrawRect.bottom

	lda  NumberOfLines
	dec  a
	sec
	sbc  ScrollDelta
	ldx  dstWidth
	jsr  WordMultiply
	adc  dstPtr		;carry is clear here
	sta  srcPtr
	lda  dstPtr+2
	adc  #0
	sta  srcPtr+2

	lda  NumberOfLines
	dec  a
	ldx  dstWidth
	jsr  WordMultiply
	adc  dstPtr		;carry is clear here
	sta  dstPtr
	bcs  @1
	inc  dstPtr+2
@1
	lda  NumberOfLines
	sec
	sbc  ScrollDelta
	beq  allDone
	sta  NumberOfLines

	lda  dstWidth
	eor  #$FFFF
	inc  a
	sta  dstWidth

	bra  setItUp
;---------------------------------------------------------------
goingUp	inx
	bne  allDone
	lda  ScrollDelta
	bpl  allDone
	clc
	adc  DrawRect.bottom
	cmp  DrawRect.top
	bmi  allDone
	sta  DrawRect.top

	lda  ScrollDelta
	clc
	adc  NumberOfLines
	beq  allDone
	sta  NumberOfLines

	lda  ScrollDelta
	eor  #$FFFF
	inc  a
	ldx  dstWidth
	jsr  WordMultiply
	adc  dstPtr		;carry is clear here
	sta  srcPtr
	lda  dstPtr+2
	adc  #0
	sta  srcPtr+2
;---------------------------------------------------------------
setItUp	jsr  SetupScrollCode	;setup our code buffer
	bcs  allDone

	jsr  CallMemoryCode

allDone	brl  TellAboutDstRect
;---------------------------------------------------------------

	ENDP

****************************************************************

SetupScrollCode	PROCNAME  Entry

;---------------------------------------------------------------
MinWordsInHandle	equ  20
;---------------------------------------------------------------

;---------------------------------------------------------------
	phb		;save the data bank

	jsr  derefCodeHandle	;this also sets the data bank and Y-Reg

	lda  |2,y		;check the maximum number of bytes that
	cmp  numberOfWords		;..this handle can move
	bge  SizeOK

	PushZLong ScrollCodeHandle	;set the handle size to the proper amount
	lda  numberOfWords		;when we build the handle it must be a
	cmp  #MinWordsInHandle	;..certain minimum size
	bge  @ok
	lda  #MinWordsInHandle
@ok	dec  a		;the first and last words are treated
	dec  a		;..specially
	asl  a		;this multiplies by six
	sta  TempWord
	asl  a
	adc  TempWord
	adc  #EndOfCode-StartOfCode+5+1
	ldx  #0
	jsr  SetHandleSize		;if we got a memory error then exit
	bcs  exit

	jsr  fillTheHandle		;deref and fill the handle

	ldy  theCodePtr		;reload Y-Reg with the correct offset
;---------------------------------------------------------------
sizeOK	lda  |0,y		;this is the size of the variable field
	clc		;we want to skip over that, so we can
	adc  theCodePtr		;..patch the items we want to.
	tay		;Y-Reg is now our pointer

	lda  numberOfWords		;here we find the amount to branch back
	dec  a		;..by
	tax		;save the number of words minus one
	bne  @notSingle
	lda  #StartOfCode-singleStart
	bra  @subtractIt
@notSingle	dec  a
	bne  @notDouble
	lda  >patch5+1
	bra  @setJumpAddr
@notDouble	asl  a
	sta  TempWord
	asl  a
	adc  TempWord
@subtractIt	sta  TempWord
	lda  >patch5+1
	sec
	sbc  TempWord
@setJumpAddr	sta  |patch5-StartOfCode+1,y

	txa		;get back the number of words minus one
	asl  a		;..and multiply by two
	sta  |patch1-StartOfCode+1,y	;patch all the spots that need to be
	sta  |patch2-StartOfCode+1,y
	sta  |patch3-StartOfCode+1,y
	sta  |patch4-StartOfCode+1,y

	ldy  theCodePtr		;here we calculate the code pointer which
	lda  |2,y		;..is the address, we must jsl to in order
	sec		;..to start this entire process
	sbc  numberOfWords
	asl  a
	sta  TempWord
	asl  a
	adc  TempWord
	adc  #4-1

	ldx  numberOfWords		;if we are moving one word, then we need
	dex		;..a further adjustment of 8
	bne  @notOne
	adc  #8		;the carry is always clear here

@notOne	adc  theCodePtr		;add to the original starting address of
	sta  theCodePtr		;..of codePtr. (carry is always CLR)
;---------------------------------------------------------------
exit	plb
	rts
;---------------------------------------------------------------



;---------------------------------------------------------------
fillTheHandle	jsr  derefCodeHandle	;this also sets the data bank and Y-Reg

	lda  numberOfWords		;when we build the handle it must be a
	cmp  #MinWordsInHandle	;..certain minimum size
	bge  @ok
	lda  #MinWordsInHandle
@ok	sta  |2,y
	dec  a		;the first and last words are treated
	dec  a		;..specially
	asl  a
	sta  TempWord
	tax		;this is our index and count register
	asl  a
	adc  TempWord
	adc  #4
	sta  |0,y
	iny
	iny
	iny
	iny

	clc		;the carry will be CLEAR throughout the
@loop	lda  #$B9		;..entire loop
	sta  |0,y		;these first two should really be in
	lda  #$9D		;..short mode, but it doesn't save us
	sta  |3,y		;..anything
	txa		;use the index
	sta  |1,y
	sta  |4,y
	tya
	adc  #6		;the carry is always CLEAR here
	tay
	dex
	dex
	bne  @loop

	PushLong #StartOfCode	;this is the source pointer
	shortm		;this is the destination pointer
	lda  #0
	pha
	phb
	longm
	phy
	PushLong #EndOfCode-StartOfCode	;the amount of memory to move
	PushWord #%0000100000000101	;flags for moving forward
	jsl  $E10200		;memory mover entry point

	rts
;---------------------------------------------------------------



;---------------------------------------------------------------
StartOfCode
patch1	lda  |$BBBB,y		;*** this must be patched ***
patch2	eor  |$BBBB,x		;*** this must be patched ***
	and  rightMask
patch3	eor  |$BBBB,x		;*** this must be patched ***
patch4	sta  |$BBBB,x		;*** this must be patched ***

singleStart	lda  |0,y
	eor  |$0000,x
	and  leftMask
	eor  |$0000,x
	sta  |$0000,x

	dec  numberOfLines
	beq  codeDone		;NOTE: the pixel map must not cross a
	txa		;..bank !!!
	clc
	adc  dstWidth
	tax
	tya
	clc
	adc  dstWidth
	tay
patch5	brl  StartOfCode		;*** this must be patched ***

codeDone	rtl
EndOfCode
;---------------------------------------------------------------



;---------------------------------------------------------------
derefCodeHandle	ldy  #2		;deref the code handle and make the data
	lda  [ScrollCodeHandle],y	;..bank and the Y-Reg a pointer into it
	sta  theCodePtr+2		;..at the same time
	pei  theCodePtr+1
	plb
	plb
	lda  [ScrollCodeHandle]
	sta  theCodePtr
	tay
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

CallMemoryCode	PROCNAME  Entry

;---------------------------------------------------------------
	phb		;save the bank register
	jsr  ShieldTheCursor

	ldx  dstPtr		;the X-reg is the destination ptr
	ldy  srcPtr		;..and the Y-Reg is the source ptr
	pei  srcPtr+1		;set the bank to the source bank
	plb
	plb
	pea  |(returnHere-1)>>8	;push the return address combined with
	lda  #(returnHere-1)<<8	;..the pointer to jump to.
	ora  theCodePtr+2
	pha
	pei  theCodePtr
	clc		;the carry should be clear for the code
	rtl		;..handle

returnHere	jsr  UnshieldTheCursor
	plb		;restore the bank register
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

TellAboutDstRect	PROCNAME  Entry

;---------------------------------------------------------------
	ldy  #TERecord.FilterProc+1	;is there a filter procedure ? If not then
	lda  [RecordPtr],y		;..just exit
	beq  @noFilter

	ldy  #TERecord.theFilterRect.top	;copy the dest rect to the record handle
	lda  dstRect.top
	sta  [RecordPtr],y
	iny
	iny
	lda  dstRect.left
	sta  [RecordPtr],y
	iny
	iny
	lda  dstRect.bottom
	sta  [RecordPtr],y
	iny
	iny
	lda  dstRect.right
	sta  [RecordPtr],y

	lda  #doRectChanged		;call the filter proc
	brl  CallFilterProc

@noFilter	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

SetupSrcPtr	PROCNAME  Entry

;---------------------------------------------------------------
	ldy  #GrafPort.ImageRef	;get the starting source pointer
	lda  [DrawPortPtr],y
	sta  srcPtr
	ldy  #GrafPort.ImageRef+2
	lda  [DrawPortPtr],y
	sta  srcPtr+2
	ldy  #GrafPort.Width
	lda  [DrawPortPtr],y
	sta  srcWidth

	lda  dstRect.top
	sec
	sbc  TextVPos
	clc
	adc  TempRect.top
	tax
	beq  @skipMult
	lda  srcWidth
	jsr  WordMultiply
	bcs  @goSlow
	adc  srcPtr
	sta  srcPtr
	bcc  @skipMult
	inc  srcPtr+2
@skipMult
	ldy  #GrafPort.PortSCB	;get which mode we are into X-Reg
	lda  [DrawPortPtr],y
	tax

	lda  dstRect.left
	sec
	ldy  #TERecord.ViewRect.left
	sbc  [RecordPtr],y
	sec
	ldy  #GrafPort.BoundsRect.left
	sbc  [DrawPortPtr],y
	beq  @skipLeft
	lsr  a
	lsr  a
	cpx  #0
	beq  @1
	lsr  a
@1	asl  a
	adc  srcPtr
	sta  srcPtr
	bcc  @skipLeft
	inc  srcPtr+2
	clc
@skipLeft	rts

@goSlow	sec
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

SetupDstPtr	PROCNAME  Entry

;---------------------------------------------------------------
	jsr  GetWindowPortPtr	;TempPtr = the window's port ptr

	ldy  #GrafPort.BoundsRect.bottom	;clip the dstRect to the bottom of the
	lda  [TempPtr],y		;..boundsRect
	cmp  dstRect.bottom
	bpl  @1
	sta  dstRect.bottom
@1
	ldy  #GrafPort.BoundsRect.right	;clip the dstRect to the right of the
	lda  [TempPtr],y		;..boundsRect
	cmp  dstRect.right
	bpl  @2
	sta  dstRect.right
@2
	stz  TempWord		;this will be the combined sizes of the
	ldy  #GrafPort.ClipRgn	;..clipRgn and the visRgn. Also clip the
	jsr  clipToRgn		;..dstRect to both regions
	ldy  #GrafPort.VisRgn
	jsr  clipToRgn

	lda  dstRect.top		;check to see if we still have a non zero
	cmp  dstRect.bottom		;..rectangle.
	bpl  @quickExit
	lda  dstRect.left
	cmp  dstRect.right
	bmi  @continue
@quickExit	pla		;if we don't, then pull off one return
	rts		;..addr and exit

@continue	lda  TempWord
	cmp  #10
	bne  doSlow
;---------------------------------------------------------------
doFast	ldy  #GrafPort.ImageRef	;initialize dstPtr and dstWidth
	lda  [TempPtr],y
	sta  dstPtr
	ldy  #GrafPort.ImageRef+2
	lda  [TempPtr],y
	sta  dstPtr+2
	ldy  #GrafPort.Width
	lda  [TempPtr],y
	sta  dstWidth

	lda  dstRect.top		;offset dstPtr to get to the beginning
	sec		;..of our scan line.
	ldy  #GrafPort.BoundsRect.top
	sbc  [TempPtr],y
	tax
	lda  dstWidth
	jsr  WordMultiply
	bcs  doSlow
	adc  dstPtr
	sta  dstPtr
	bcc  @1
	inc  dstPtr+2
@1
	lda  dstRect.bottom		;initialize the number of lines
	sec
	sbc  dstRect.top
	sta  numberOfLines

	ldy  #GrafPort.PortSCB
	lda  [TempPtr],y
	bne  do640
	bra  do320
;---------------------------------------------------------------
doSlow	sec
	rts
;---------------------------------------------------------------
do320	lda  dstRect.left		;convert the local coordinates to "semi-
	sec		;..global" coordinates
	ldy  #GrafPort.BoundsRect.left
	sbc  [TempPtr],y
	tax
	lsr  a		;divide by four to get the number of
	lsr  a		;..words and save this value.
	sta  numberOfWords		;then multiply by two to get the number	
	asl  a		;..of bytes. (this leaves the carry CLR)
	adc  dstPtr		;make dstPtr point to the first word in
	sta  dstPtr		;..the line
	bcc  @2
	inc  dstPtr+2
@2	txa		;get back the original semi-global HPos
	and  #$0003		;find the number of pixels left in this
	asl  a		;..word. Use that as an index into the
	tax		;..left mask table
	lda  >LeftMaskTable320,x
	sta  leftMask

	lda  dstRect.right		;the two grafPorts are word aligned so we
	sec		;..can use the source grafPort to find
	sbc  [TempPtr],y		;..the right mask. (Y-Reg hasn't changed)
	tax
	lsr  a
	lsr  a
	inc  a
	sec
	sbc  numberOfWords
	sta  numberOfWords
	txa
	and  #$0003
	beq  exactEdge
	asl  a		;this clears the carry
	tax
	lda  >RightMaskTable320,x
	bra  setTheMasks
;---------------------------------------------------------------
do640	lda  dstRect.left		;convert the local coordinates to "semi-
	sec		;..global" coordinates
	ldy  #GrafPort.BoundsRect.left
	sbc  [TempPtr],y
	tax
	lsr  a		;divide by eight to get the number of
	lsr  a		;..words and save this value.
	lsr  a
	sta  numberOfWords		;then multiply by two to get the number	
	asl  a		;..of bytes. (this leaves the carry CLR)
	adc  dstPtr		;make dstPtr point to the first word in
	sta  dstPtr		;..the line
	bcc  @1
	inc  dstPtr+2
@1	txa		;get back the original semi-global HPos
	and  #$0007		;find the number of pixels left in this
	asl  a		;..word. Use that as an index into the
	tax		;..left mask table
	lda  >LeftMaskTable640,x
	sta  leftMask

	lda  dstRect.right		;the two grafPorts are word aligned so we
	sec		;..can use the source grafPort to find
	sbc  [TempPtr],y		;..the right mask. (Y-Reg hasn't changed)
	tax
	lsr  a
	lsr  a
	lsr  a
	inc  a
	sec
	sbc  numberOfWords
	sta  numberOfWords
	txa
	and  #$0007
	beq  exactEdge
	asl  a		;this clears the carry
	tax
	lda  >RightMaskTable640,x
;---------------------------------------------------------------
setTheMasks	sta  rightMask
	ldx  numberOfWords
	dex
	bne  @2
	and  leftMask
	sta  leftMask
@2	rts		;the carry is still clear here
;---------------------------------------------------------------
exactEdge	dec  numberOfWords
	lda  #$FFFF
	sta  rightMask
	clc
	rts
;---------------------------------------------------------------



;---------------------------------------------------------------
RightMaskTable640	dc.w  %0000000000000000
	dc.w  %0000000011000000
	dc.w  %0000000011110000
	dc.w  %0000000011111100
	dc.w  %0000000011111111
	dc.w  %1100000011111111
	dc.w  %1111000011111111
	dc.w  %1111110011111111
;---------------------------------------------------------------
LeftMaskTable640	dc.w  %1111111111111111
	dc.w  %1111111100111111
	dc.w  %1111111100001111
	dc.w  %1111111100000011
	dc.w  %1111111100000000
	dc.w  %0011111100000000
	dc.w  %0000111100000000
	dc.w  %0000001100000000
;---------------------------------------------------------------
RightMaskTable320	dc.w  %0000000000000000
	dc.w  %0000000011110000
	dc.w  %0000000011111111
	dc.w  %1111000011111111
;---------------------------------------------------------------
LeftMaskTable320	dc.w  %1111111111111111
	dc.w  %1111111100001111
	dc.w  %1111111100000000
	dc.w  %0000111100000000
;---------------------------------------------------------------



;---------------------------------------------------------------
clipToRgn	lda  [TempPtr],y		;copy the region handle into our temporary
	sta  theCodePtr		;..pointer
	iny
	iny
	lda  [TempPtr],y
	sta  theCodePtr+2

	Deref theCodePtr,theCodePtr	;this leaves Y-Reg equal to two

	lda  [theCodePtr]		;or the size field into TempWord. If the
	ora  TempWord		;..combined value is 10, both sizes must
	sta  TempWord		;..be either 10 or 0 (which is illegal).

	lda  [theCodePtr],y		;Y-Reg is still 2 here (boundsRect.top)
	cmp  dstRect.top
	bmi  @1
	sta  dstRect.top
@1
	ldy  #4
	lda  [theCodePtr],y
	cmp  dstRect.left
	bmi  @2
	sta  dstRect.left
@2
	ldy  #6
	lda  [theCodePtr],y
	cmp  dstRect.bottom
	bpl  @3
	sta  dstRect.bottom
@3
	ldy  #8
	lda  [theCodePtr],y
	cmp  dstRect.right
	bpl  @4
	sta  dstRect.right
@4
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

Fast1Proc	PROC
	ENTRY  ShieldTheCursor
	ENTRY  UnshieldTheCursor

;---------------------------------------------------------------
MinRect	RECORD 0
top	ds.w  1
left	ds.w  1
bottom	ds.w  1
right	ds.w  1
	ENDR

ImageRef	equ  14

BoundsRect	RECORD 20
top	ds.w  1
left	ds.w  1
bottom	ds.w  1
right	ds.w  1
	ENDR
;---------------------------------------------------------------


;---------------------------------------------------------------
ShieldTheCursor	phb		;save the data bank
	phd		;save our direct page

	ldy  #TERecord.inPort+1	;make the data bank and Y-Reg into a
	lda  [RecordPtr],y		;..pointer to our grafPort
	pha
	plb
	plb
	dey
	lda  [RecordPtr],y
	tay

	ldx  QDDirectPage		;make X-Reg into a pointer to quickdraw's
	lda  dstRect.top		;..direct page
	sta  >MinRect.top,x
	lda  dstRect.bottom
	sta  >MinRect.bottom,x
	lda  dstRect.left
	sta  >MinRect.left,x
	lda  dstRect.right
	sta  >MinRect.right,x

	txa		;set quickdraw's direct page
	tcd

	lda  |GrafPort.BoundsRect.top,y	;copy the bounds rect to QD's direct page
	sta  BoundsRect.top
	lda  |GrafPort.BoundsRect.left,y
	sta  BoundsRect.left
	lda  |GrafPort.BoundsRect.bottom,y
	sta  BoundsRect.bottom
	lda  |GrafPort.BoundsRect.right,y
	sta  BoundsRect.right

	lda  |GrafPort.ImageRef,y	;copy the image ref to QD's direct page
	sta  ImageRef
	lda  |GrafPort.ImageRef+2,y
	sta  ImageRef+2

	jsl  $E01E98		;this is the shield cursor vector

	pld		;restore our direct page
	plb		;restore our data bank
	rts
;---------------------------------------------------------------
UnshieldTheCursor	phd		;save our direct page
	lda  QDDirectPage		;set quickdraw's
	tcd
	jsl  $E01E9C		;this is the unshield cursor vector
	pld
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

InvertTempRect	PROCNAME  Export

;---------------------------------------------------------------
	lda  TempRect.right
	sec
	sbc  TempRect.left
	cmp  #3
	blt  tryFast
;---------------------------------------------------------------
doSlow	PushZPtr TempRect
	_InvertRect
	brl  allDone
;---------------------------------------------------------------
tryFast	lda  TempRect.top		;copy the top coordinate
	sta  dstRect.top
	lda  TempRect.bottom	;copy the bottom coordinate
	sta  dstRect.bottom
	lda  TempRect.left		;copy the left coordinate
	sta  dstRect.left
	lda  TempRect.right		;copy the right coordinate
	sta  dstRect.right

	jsr  GetWindowPortPtr
	ldy  #GrafPort.PnMask
@loop	lda  [TempPtr],y
	cmp  #$FFFF
	bne  doSlow
	iny
	iny
	cpy  #GrafPort.PnMask+8
	blt  @loop

	jsr  SetupDstPtr		;find the destination pointer
	bvc  @mustDraw
	rts		;return here if nothing more to draw

@mustDraw	bcs  doSlow

	lda  numberOfWords
	dec  a
	beq  doSingle
	dec  a
	bne  doSlow
;---------------------------------------------------------------
doEdges	phb		;save the bank register
	jsr  ShieldTheCursor

	ldx  #$FFFF
	ldy  #2
@slowLoop	clc		;the carry must remain clear throughout
@fastLoop	txa		;..the loop
	and  leftMask
	eor  [dstPtr]
	sta  [dstPtr]
	txa
	and  rightMask
	eor  [dstPtr],y
	sta  [dstPtr],y
	dec  numberOfLines
	beq  fastDone
	lda  dstPtr
	adc  dstWidth
	sta  dstPtr
	bcc  @fastLoop
	inc  dstPtr+2
	bra  @slowLoop
;---------------------------------------------------------------
doSingle	phb		;save the bank register
	jsr  ShieldTheCursor

	lda  leftMask
	and  rightMask
	sta  leftMask

	ldx  #$FFFF
@slowLoop	clc		;the carry must remain clear throughout
@fastLoop	txa		;..the loop
	and  leftMask
	eor  [dstPtr]
	sta  [dstPtr]
	dec  numberOfLines
	beq  fastDone
	lda  dstPtr
	adc  dstWidth		;carry is already clear
	sta  dstPtr
	bcc  @fastLoop
	inc  dstPtr+2
	bra  @slowLoop
;---------------------------------------------------------------
fastDone	jsr  UnshieldTheCursor
	plb		;restore the bank register
;---------------------------------------------------------------
allDone	ldy  #TERecord.FilterProc+1
	lda  [RecordPtr],y
	beq  @noFilter

	jsr  PassTempRect		;pass the TempRect in the TERecord
	lda  #doRectChanged		;call the filter proc
	brl  CallFilterProc

@noFilter	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

SetupAndClearBuffer	PROCNAME  Export

;---------------------------------------------------------------
	phb		;save the original data bank
;---------------------------------------------------------------
	jsr  GetWindowPortPtr	;get a pointer to the control's port
	ldy  #GrafPort.BoundsRect.left	;save the boundsRect.left of the window's
	lda  [TempPtr],y		;..port in TempWord
	sta  TempWord
	ldy  #GrafPort.PortSCB	;copy the 320/640 flag into the X-Reg
	lda  [TempPtr],y
	tax

	ldy  #TERecord.ViewRect.left	;copy the parts of the viewRect that we
	lda  [RecordPtr],y		;..need into TempRect
	sta  TempRect.left
	ldy  #TERecord.ViewRect.right
	lda  [RecordPtr],y
	sta  TempRect.right
;---------------------------------------------------------------
	pei  DrawPortPtr+1		;set the new data bank to the drawing port
	plb
	plb
	ldy  DrawPortPtr

	txa		;copy the 320/640 flag into the new
	sta  |GrafPort.PortSCB,y	;..grafPort

	lda  #0		;clear the top of the boundsRect and the
	sta  |GrafPort.BoundsRect.top,y	;..top and left of the port rect
	sta  |GrafPort.PortRect.top,y
	sta  |GrafPort.PortRect.left,y

	lda  LineHeight		;set the bounds and port rect bottom to
	sta  |GrafPort.BoundsRect.bottom,y	;..the line height
	sta  |GrafPort.PortRect.bottom,y
	sta  |GrafPort.UserField,y	;save the line height in the userField

	lda  TempRect.right		;set the right coordinate of the port
	sec		;..rect
	sbc  TempRect.left
	sta  |GrafPort.PortRect.right,y

	ldy  #TERecord.TextDrawMode	;copy the text drawing mode
	lda  [RecordPtr],y
	ldy  DrawPortPtr
	sta  |GrafPort.TxMode,y
;---------------------------------------------------------------
	cpx  #$0080
	beq  do640Mode

do320Mode	lda  TempWord		;newBounds.left =
	sec		;..[ -1 * [(view.left - oldBounds.left)
	sbc  TempRect.left		;.. mod 4] ]. which is the same as
	ora  #$FFFC		;..[(oldBounds.left - view.left) mod 4]
	cmp  #$FFFC
	bne  @1
	lda  #0
@1	sta  |GrafPort.BoundsRect.left,y
	lda  |GrafPort.PortRect.right,y
	sec
	sbc  |GrafPort.BoundsRect.left,y
	clc
	adc  #15+4
	and  #$FFF0
	lsr  a
	sta  |GrafPort.Width,y
	bra  common

do640Mode	lda  TempWord		;newBounds.left =
	sec		;..[ -1 * [(view.left - oldBounds.left)
	sbc  TempRect.left		;.. mod 8] ]. which is the same as
	ora  #$FFF8		;..[(oldBounds.left - view.left) mod 8]
	cmp  #$FFF8
	bne  @1
	lda  #0
@1	sta  |GrafPort.BoundsRect.left,y
	lda  |GrafPort.PortRect.right,y
	sec
	sbc  |GrafPort.BoundsRect.left,y
	clc
	adc  #31+4
	and  #$FFE0
	lsr  a
	lsr  a
	sta  |GrafPort.Width,y
	asl  a

common	asl  a		;this clears the carry
	adc  |GrafPort.BoundsRect.left,y
	sta  |GrafPort.BoundsRect.right,y
;---------------------------------------------------------------
	lda  |GrafPort.Width,y	;multiply the width by the height and
	ldx  LineHeight		;..round up to the nearest multiple of
	jsr  WordMultiply		;..32 bytes to get the total size
	adc  #31
	and  #$FFE0
	sta  DataBufferSize

	ldy  #HandleRecord.length
	lda  [DataBufferHandle],y
	cmp  DataBufferSize
	bge  @bufferOK
	PushZLong DataBufferHandle
	lda  DataBufferSize
	ldx  #0
	jsr  SetHandleSize
	bcc  @bufferOK

	plb		;restore the original data bank and
	sec		;..return the carry set to indicate an
	rts		;..error

@bufferOK	PushZLong DataBufferHandle
	jsr  LockHandle
	ldy  DrawPortPtr
	sta  |GrafPort.ImageRef,y
	txa
	sta  |GrafPort.ImageRef+2,y

	jsr  SetDrawPort
;---------------------------------------------------------------
	ldy  #TERecord.FilterProc+1
	lda  [RecordPtr],y
	beq  noFilter
;---------------------------------------------------------------
	ldy  #TERecord.theFilterRect
	ldx  DrawPortPtr
@loop	lda  |GrafPort.PortRect,x
	sta  [RecordPtr],y
	iny
	iny
	inx
	inx
	cpy  #TERecord.theFilterRect+8
	blt  @loop

	ldy  #TERecord.theFilterRect.left	;cut down the size of the filter rect
	lda  TextHPos		;..to just what we need to draw
	sta  [RecordPtr],y

	ldy  #TERecord.ViewRect.left	;set the buffer horizontal and vertical
	lda  [RecordPtr],y		;..positions
	ldy  #TERecord.theBufferHPos
	sta  [RecordPtr],y

	lda  TextVPos
	ldy  #TERecord.theBufferVPos
	sta  [RecordPtr],y

	lda  #doEraseBuffer		;call the filter erase
	jsr  CallFilterProc
	beq  noFilter

	bra  done
;---------------------------------------------------------------
noFilter	jsr  SetupColorPtr		;set the background pattern for the text
	ldy  #TEColorTable.content
	lda  [TempPtr],y
	sta  TempWord		;save the color to clear to

	ldy  DrawPortPtr
	ldx  |GrafPort.ImageRef,y
	lda  |GrafPort.ImageRef+1,y
	pha
	plb
	plb

	lda  DataBufferSize
	lsr  a
	lsr  a
	lsr  a
	lsr  a
	lsr  a		;carry is always clear here because the
	tay		;..size is a multiple of 32
;---------------------------------------------------------------
loop	lda  TempWord
	sta  |30,x
	sta  |28,x
	sta  |26,x
	sta  |24,x
	sta  |22,x
	sta  |20,x
	sta  |18,x
	sta  |16,x
	sta  |14,x
	sta  |12,x
	sta  |10,x
	sta  |8,x
	sta  |6,x
	sta  |4,x
	sta  |2,x
	sta  |0,x
	txa
	adc  #32
	tax
	bcs  bumpBank
nextBlock	dey
	bne  loop
;---------------------------------------------------------------
done	clc
	plb
	rts
;---------------------------------------------------------------
bumpBank	phb
	pla		;the high byte will never be changed
	inc  a		;..so it is safe to pull and push it
	pha
	plb
	clc
	bra  nextBlock
;---------------------------------------------------------------

	ENDP

****************************************************************

SaveBackground	PROCNAME  Export

;---------------------------------------------------------------
portPtr	equ  6
saveBuffer	equ  9
;---------------------------------------------------------------


;---------------------------------------------------------------
	jsr  MakeQDDirty		;make sure QD knows we are changing the port

	tsc		;adjust the stack to allow for 32 + 4
	sec		;..bytes of space if we write over the
	sbc  #34		;..two byte return address
	tcs
;---------------------------------------------------------------
	_GetPort
	lda  35,s		;copy the return address down the stack
	pha
	phb		;save the bank register
;---------------------------------------------------------------
	jsr  SetupColorPtr		;save the background pattern for the text
	ldy  #TEColorTable.content
	lda  [TempPtr],y
	pha

	tsx		;(9,x) is now a pointer to the save buffer

	lda  portPtr+1,s		;set the bank to the high byte of the
	pha		;..port pointer
	plb
	plb
	lda  portPtr,s		;Y-Reg is the low word of the port ptr
	tay
;---------------------------------------------------------------
	lda  |GrafPort.BkPat,y	;save the background pattern
	sta  >saveBuffer,x
	lda  |GrafPort.BkPat+2,y
	sta  >saveBuffer+2,x
	lda  |GrafPort.BkPat+4,y
	sta  >saveBuffer+4,x
	lda  |GrafPort.BkPat+6,y
	sta  >saveBuffer+6,x
	lda  |GrafPort.BkPat+8,y
	sta  >saveBuffer+8,x
	lda  |GrafPort.BkPat+10,y
	sta  >saveBuffer+10,x
	lda  |GrafPort.BkPat+12,y
	sta  >saveBuffer+12,x
	lda  |GrafPort.BkPat+14,y
	sta  >saveBuffer+14,x
	lda  |GrafPort.BkPat+16,y
	sta  >saveBuffer+16,x
	lda  |GrafPort.BkPat+18,y
	sta  >saveBuffer+18,x
	lda  |GrafPort.BkPat+20,y
	sta  >saveBuffer+20,x
	lda  |GrafPort.BkPat+22,y
	sta  >saveBuffer+22,x
	lda  |GrafPort.BkPat+24,y
	sta  >saveBuffer+24,x
	lda  |GrafPort.BkPat+26,y
	sta  >saveBuffer+26,x
	lda  |GrafPort.BkPat+28,y
	sta  >saveBuffer+28,x
	lda  |GrafPort.BkPat+30,y
	sta  >saveBuffer+30,x
;---------------------------------------------------------------
	pla
	sta  |GrafPort.BkPat,y
	sta  |GrafPort.BkPat+2,y
	sta  |GrafPort.BkPat+4,y
	sta  |GrafPort.BkPat+6,y
	sta  |GrafPort.BkPat+8,y
	sta  |GrafPort.BkPat+10,y
	sta  |GrafPort.BkPat+12,y
	sta  |GrafPort.BkPat+14,y
	sta  |GrafPort.BkPat+16,y
	sta  |GrafPort.BkPat+18,y
	sta  |GrafPort.BkPat+20,y
	sta  |GrafPort.BkPat+22,y
	sta  |GrafPort.BkPat+24,y
	sta  |GrafPort.BkPat+26,y
	sta  |GrafPort.BkPat+28,y
	sta  |GrafPort.BkPat+30,y
	plb
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

RestoreBackground	PROCNAME  Export

;---------------------------------------------------------------
portPtr	equ  4
saveBuffer	equ  7
;---------------------------------------------------------------


;---------------------------------------------------------------
	jsr  MakeQDDirty		;make sure QD knows we are changing the port

	phb
	tsx		;(9,x) is now a pointer to the save buffer

	lda  portPtr+1,s		;set the bank to the high byte of the
	pha		;..port pointer
	plb
	plb
	lda  portPtr,s		;Y-Reg is the low word of the port ptr
	tay
;---------------------------------------------------------------
	lda  >saveBuffer,x
	sta  |GrafPort.BkPat,y	;save the background pattern
	lda  >saveBuffer+2,x
	sta  |GrafPort.BkPat+2,y
	lda  >saveBuffer+4,x
	sta  |GrafPort.BkPat+4,y
	lda  >saveBuffer+6,x
	sta  |GrafPort.BkPat+6,y
	lda  >saveBuffer+8,x
	sta  |GrafPort.BkPat+8,y
	lda  >saveBuffer+10,x
	sta  |GrafPort.BkPat+10,y
	lda  >saveBuffer+12,x
	sta  |GrafPort.BkPat+12,y
	lda  >saveBuffer+14,x
	sta  |GrafPort.BkPat+14,y
	lda  >saveBuffer+16,x
	sta  |GrafPort.BkPat+16,y
	lda  >saveBuffer+18,x
	sta  |GrafPort.BkPat+18,y
	lda  >saveBuffer+20,x
	sta  |GrafPort.BkPat+20,y
	lda  >saveBuffer+22,x
	sta  |GrafPort.BkPat+22,y
	lda  >saveBuffer+24,x
	sta  |GrafPort.BkPat+24,y
	lda  >saveBuffer+26,x
	sta  |GrafPort.BkPat+26,y
	lda  >saveBuffer+28,x
	sta  |GrafPort.BkPat+28,y
	lda  >saveBuffer+30,x
	sta  |GrafPort.BkPat+30,y
;---------------------------------------------------------------
	plb

	lda  1,s
	sta  37,s
	tsc
	clc
	adc  #36
	tcs

	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

SetupPenState	PROCNAME  Export

;---------------------------------------------------------------
newPattern	equ  TempLong
newMask	equ  TempLong+2
;---------------------------------------------------------------


;---------------------------------------------------------------
	sta  newPattern
	stx  newMask

	jsr  MakeQDDirty		;make sure QD knows we are changing the port

	jsr  GetWindowPortPtr
	plx
;---------------------------------------------------------------
	ldy  #GrafPort.PnSize
@loop	lda  [TempPtr],y
	pha
	iny
	iny
	cpy  #GrafPort.PnVis+2
	blt  @loop
;---------------------------------------------------------------
	phb
	pei  TempPtr+1
	plb
	plb
	ldy  TempPtr

	lda  #1
	sta  |GrafPort.PnSize.v,y
	sta  |GrafPort.PnSize.h,y
	lda  #modeCopy
	sta  |GrafPort.PnMode,y

	lda  #0
	sta  |GrafPort.PnVis,y

	lda  newPattern
	sta  |GrafPort.PnPat,y
	sta  |GrafPort.PnPat+2,y
	sta  |GrafPort.PnPat+4,y
	sta  |GrafPort.PnPat+6,y
	sta  |GrafPort.PnPat+8,y
	sta  |GrafPort.PnPat+10,y
	sta  |GrafPort.PnPat+12,y
	sta  |GrafPort.PnPat+14,y
	sta  |GrafPort.PnPat+16,y
	sta  |GrafPort.PnPat+18,y
	sta  |GrafPort.PnPat+20,y
	sta  |GrafPort.PnPat+22,y
	sta  |GrafPort.PnPat+24,y
	sta  |GrafPort.PnPat+26,y
	sta  |GrafPort.PnPat+28,y
	sta  |GrafPort.PnPat+30,y
	sta  |GrafPort.PnPat+32,y

	lda  newMask
	sta  |GrafPort.PnMask,y
	sta  |GrafPort.PnMask+2,y
	sta  |GrafPort.PnMask+4,y
	sta  |GrafPort.PnMask+6,y

	plb
;---------------------------------------------------------------
	phx
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

RestorePenState	PROCNAME  Export

	jsr  MakeQDDirty		;make sure QD knows we are changing the port

	jsr  GetWindowPortPtr
	plx

	ldy  #GrafPort.PnVis
@loop	pla
	sta  [TempPtr],y
	dey
	dey
	cpy  #GrafPort.PnSize
	bge  @loop

	phx
	rts

	ENDP

****************************************************************

WordMultiply	PROCNAME  Export

;---------------------------------------------------------------
	cmp  #160
	bne  realMult
;---------------------------------------------------------------
	cpx  #409
	bge  @done
	txa
	asl  a
	asl  a
	asl  a
	asl  a
	asl  a
	sta  TempWord
	asl  a
	asl  a
	adc  TempWord
@done	rts
;---------------------------------------------------------------
realMult	stax TempLong
	lda  #0		;NOTE: this won't work if TempLong is
@loop	ldx  TempLong		;..zero to start with
	beq  @done
	lsr  TempLong
	bcc  @noAdd
	clc
	adc  TempLong+2
	bcs  @done
@noAdd	asl  TempLong+2
	bcc  @loop
@done	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

MakeQDDirty	PROCNAME  Export

;---------------------------------------------------------------
DirtyFlags	equ  $2EC
;---------------------------------------------------------------

;---------------------------------------------------------------
	ldx  QDDirectPage		;use the X-Reg as an offset to quickdraw's
	lda  >DirtyFlags,x		;..direct page
	and  #$8000		;clear all the bits in the dirty flags
	sta  >DirtyFlags,x		;..to tell quickdraw to rebuild everything
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/TextEdit/format.aii b/IIGS.601.SRC/GSToolbox/TextEdit/format.aii
new file mode 100644
index 0000000..08360f7
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/TextEdit/format.aii
@@ -0,0 +1 @@
+**********************************************************************
*
*                      GSTextEdit  Version 1.0
*                          File: format.aii
*
*               Copyright Apple Computer, Inc. 1988-89
*                        All rights reserved
*
*
*
*
* Notes
*
* All the routines in GSTextEdit must be called in full native mode and
* return that way.
*
* All the files in GSTextEdit must be assembled with the "-unsafe"
* option to pass unresolved references to the linker.
*
*
*
*
* Change History
*
* 30 May 89	Dave Good
*
* Cleaned up comments for final release.
*
**********************************************************************


	INCLUDE  'GlobalIncludes'
	INCLUDE  'E16.Font'


****************************************************************
* This routine takes a pointer to the new style block in A,X
****************************************************************
AddToStyleList	PROCNAME  Export

;---------------------------------------------------------------
	stax MemoryPtr		;save our input pointer

	ldy  #TERecord.StyleList
	jsr  GetRecordLong
	jsr  DerefAX
	stax TempPtr

	stzl TextStyleOffset

scanLoop	ldy  #2
	lda  [TempPtr],y
	and  [TempPtr]
	cmp  #$FFFF
	beq  atEnd
checkItem	ldy  #TEStyle.fontID
@loop	lda  [TempPtr],y
	cmp  [MemoryPtr],y
	bne  noMatch
	iny
	iny
	cpy  #TEStyle.RecordSize
	blt  @loop

	bra  allDone
;---------------------------------------------------------------
noMatch	lda  #TEStyle.RecordSize
	addl TextStyleOffset
	lda  TempPtr
	clc
	adc  #TEStyle.RecordSize
	sta  TempPtr
	bcc  scanLoop
	inc  TempPtr+2
	bra  scanLoop
;---------------------------------------------------------------
atEnd	ldy  #TERecord.StyleList
	jsr  GetRecordLong
	PushAX
	PushAX
	PushAX
	jsr  GetHandleSize
	stax MoveLength
	clc
	adc  #TEStyle.RecordSize
	bcc  @1
	inx
@1	jsr  SetHandleSize
	bcs  memoryError
	jsr  DerefHandle
	clc
	adc  MoveLength
	sta  TempPtr
	txa
	adc  MoveLength+2
	sta  TempPtr+2

	lda  TempPtr		;move back before the terminator.
	sec
	sbc  #4
	sta  TempPtr
	bcs  @2
	dec  TempPtr+2
@2
	ldy  #TEStyle.fontID
@loop	lda  [MemoryPtr],y
	sta  [TempPtr],y
	iny
	iny
	cpy  #TEStyle.RecordSize
	blt  @loop

	jsr  TerminateTempPtr

	ldy  #TEStyle.fontID	;force an install font to calculate the
	lda  [TempPtr],y		;..height and ascent fields of the
	dec  a		;..TextEdit record
	ldy  #GrafPort.FontID
	sta  [DrawPortPtr],y
;---------------------------------------------------------------
allDone	jsr  GetPort
	jsr  SetDrawPort
	jsr  InstallFontAndColor
	jsr  ReleaseFont
	jsr  SetPort
	clc
	rts
;---------------------------------------------------------------
memoryError	pla		;cleanup the stack
	pla
	stzl TextStyleOffset	;return the initial style for this item
	rts		;the carry is SET and the error is in X-Reg
;---------------------------------------------------------------

	ENDP

****************************************************************

InstallFontAndColor	PROCNAME  Export

;---------------------------------------------------------------
	jsr  SetupStylePtr		;the port must be set to the draw port

	ldy  #TEStyle.foreColor	;set the foreground color
	lda  [TempPtr],y
	ldy  #GrafPort.FGColor
	sta  [DrawPortPtr],y

	ldy  #TEStyle.backColor	;set the background color
	lda  [TempPtr],y
	ldy  #GrafPort.BGColor
	sta  [DrawPortPtr],y

	ldy  #TEStyle.fontID+2	;push the fontID
	lda  [TempPtr],y
	pha
	dey
	dey
	lda  [TempPtr],y
	pha
	PushWord #$0000		;push the scale word (yes, scale)
	PushZPtr TempPtr		;push a pointer to the FntStatRec
	_InstallWithStats
	ldy  #TERecord.theFontToRelease	;save the font to release
	lda  TempPtr
	sta  [RecordPtr],y
	iny
	iny
	lda  TempPtr+2
	sta  [RecordPtr],y
	ldy  #TERecord.theFontStats	;save the fontStatBits
	lda  TempWord
	sta  [RecordPtr],y

	jsr  SetupStylePtr		;reset the style pointer
	ldy  #GrafPort.fontID+2	;reset the font ID in the style list
	lda  [DrawPortPtr],y
	tax
	dey
	dey
	lda  [DrawPortPtr],y
	ldy  #TEStyle.fontID
	sta  [TempPtr],y
	iny
	iny
	txa
	sta  [TempPtr],y

	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

ReleaseFont	PROCNAME  Export

	ldy  #TERecord.theFontStats	;save the fontStatBits
	lda  [RecordPtr],y
	and  #purgeBit
	beq  @skip

	ldy  #TERecord.theFontToRelease+2
	lda  [RecordPtr],y
	pha
	dey
	dey
	lda  [RecordPtr],y
	pha
	ldy  #TERecord.theFontStats	;save the fontStatBits
	lda  [RecordPtr],y
	pha
	_SetPurgeStat

@skip	rts

	ENDP

****************************************************************

Format1Proc	PROC

;---------------------------------------------------------------
	EXPORT  GetLeftEdge
	EXPORT  GetLeftMargin
	EXPORT  GetLeftIndent
;---------------------------------------------------------------

;---------------------------------------------------------------
GetLeftEdge	lda  TextOffset
	ora  TextOffset+2
	beq  GetLeftIndent

	decl TextOffset
	jsr  FindTextPtr
	incl TextOffset

	lda  [TextPtr]
	and  #$00FF
	cmp  #CR
	beq  GetLeftIndent
;---------------------------------------------------------------
GetLeftMargin	jsr  SetupRulerPtr
	ldy  #TERuler.leftMargin
	lda  [TempPtr],y
	rts
;---------------------------------------------------------------
GetLeftIndent	jsr  SetupRulerPtr
	ldy  #TERuler.leftIndent
	lda  [TempPtr],y
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

GetRightMargin	PROCNAME  Export

	jsr  SetupRulerPtr
	ldy  #TERuler.rightMargin
	lda  [TempPtr],y
	rts

	ENDP

****************************************************************

GetJust	PROCNAME  Export

	jsr  SetupRulerPtr
	ldy  #TERuler.just
	lda  [TempPtr],y
	rts

	ENDP

****************************************************************

GetTabType	PROCNAME  Export

	jsr  SetupRulerPtr
	ldy  #TERuler.tabType
	lda  [TempPtr],y
	rts

	ENDP

****************************************************************

GetTabNumber	PROCNAME  Export

	jsr  SetupRulerPtr
	ldy  #TERuler.numberOfTabs
	lda  [TempPtr],y
	rts

	ENDP

****************************************************************

GetTabPtr	PROCNAME  Export

	jsr  SetupRulerPtr
	lda  #TERuler.numberOfTabs
	addl TempPtr
	rts

	ENDP

****************************************************************

SetupStylePtr	PROCNAME  Export

	ldy  #TERecord.StyleList
	lda  [RecordPtr],y
	sta  TempPtr
	ldy  #TERecord.StyleList+2
	lda  [RecordPtr],y
	sta  TempPtr+2
	ldy  #2
	lda  [TempPtr]
	clc
	adc  TextStyleOffset
	tax
	lda  [TempPtr],y
	adc  TextStyleOffset+2
	sta  TempPtr+2
	stx  TempPtr
	rts

	ENDP

****************************************************************

SetupRulerPtr	PROCNAME  Export

	ldy  #TERecord.RulerList
	lda  [RecordPtr],y
	sta  TempPtr
	ldy  #TERecord.RulerList+2
	lda  [RecordPtr],y
	sta  TempPtr+2
	ldy  #2
	lda  [TempPtr],y
	tax
	lda  [TempPtr]
	stax TempPtr
	rts

	ENDP

****************************************************************

GetTextHeightAndAscent PROCNAME  Export

;---------------------------------------------------------------
	jsr  SetupWidthTable	;this sets up the correct width table

	jsr  SetupRulerPtr		;cache the height of the font
	ldy  #TERuler.extraLS
	lda  [TempPtr],y
	sta  TempWord		;save the extra line spaceing

	ldy  #WidthTable.ascent	;as long as we don't allocate memory, we
	lda  [WidthTablePtr],y	;..are OK here
	clc
	adc  TempWord
	pha
	ldy  #WidthTable.height
	lda  [WidthTablePtr],y
	clc
	adc  TempWord
	pha

	jsr  FreeWidthTable

	PullAX
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/TextEdit/highlevel.aii b/IIGS.601.SRC/GSToolbox/TextEdit/highlevel.aii
new file mode 100644
index 0000000..e430ec4
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/TextEdit/highlevel.aii
@@ -0,0 +1 @@
+**********************************************************************
*
*                      GSTextEdit  Version 1.0
*                        File: highlevel.aii
*
*               Copyright Apple Computer, Inc. 1988-89,92
*                        All rights reserved
*
*
*
*
* Notes
*
* All the routines in GSTextEdit must be called in full native mode and
* return that way.
*
* All the files in GSTextEdit must be assembled with the "-unsafe"
* option to pass unresolved references to the linker.
*
*
*
*
* Change History
*
* 30 May 89	Dave Good
*
* Cleaned up comments for final release.
*
* 8/8/90	Mensch
* Fixed bug in common style record stuff in GetSelectionStyle. This should now
* produce a proper style record
*
* 4-Oct-90	Dave Lyons
*
* Rolled version to $8103.
*
* Fixed a problem in TEScroll doTopOffset where we were sometimes clipping the
* character position to the end of the text even if we had a valid position.
*
* The bad case was when the high word of the position was smaller than the high
* word of the maximum allowed position (the end of the text)--then it went ahead
* and compared the low words to see if we were too big!  Added a single BNE to
* fix it.
*
* 28-Jan-92	Dave Lyons
*
* Fixed error-exit path in TEInsert, where it was leaving 4 bytes on the stack
* and crashing (when you run out of memory).  (This was crashing Monte's
* VolTest application.)
*
* Fixed a hanging bug in TEScroll.  Verb 1 was hanging when you scrolled
* forwards to a character position that didn't fall on the beginning of
* a line.
*
**********************************************************************
*
* 17-Jun-92	Dave Lyons (6.0.1d6)
*
* Version $8104.
*
* FMStatus call pushes zero result space in case Font Manager isn't
* even loaded.
*
**********************************************************************


	INCLUDE  'GlobalIncludes'


DaveStatus	equ  33


****************************************************************

TECallTable	PROC  EXPORT

TheStart	dc.l (TheEnd-TheStart)/4
	dc.l TEBootInit-1		; call $01
	dc.l TEStartup-1		; call $02
	dc.l TEShutdown-1		; call $03
	dc.l TEVersion-1		; call $04
	dc.l TEReset-1		; call $05
	dc.l TEStatus-1		; call $06
	dc.l NullRoutine-1		; call $07
	dc.l NullRoutine-1		; call $08
	dc.l TENew-1		; call $09
	dc.l TEKill-1		; call $0A
	dc.l TESetText-1		; call $0B
	dc.l TEGetText-1		; call $0C
	dc.l TEGetTextInfo-1	; call $0D
	dc.l TEIdle-1		; call $0E
	dc.l TEActivate-1		; call $0F
	dc.l TEDeactivate-1		; call $10
	dc.l TEClick-1		; call $11
	dc.l TEUpdate-1		; call $12
	dc.l TEPaintText-1		; call $13
	dc.l TEKey-1		; call $14
	dc.l TEUndo-1		; call $15
	dc.l TECut-1		; call $16
	dc.l TECopy-1		; call $17
	dc.l TEPaste-1		; call $18
	dc.l TEClear-1		; call $19
	dc.l TEInsert-1		; call $1A
	dc.l TEReplace-1		; call $1B
	dc.l TEGetSelection-1	; call $1C
	dc.l TESetSelection-1	; call $1D
	dc.l TEGetSelectionStyle-1	; call $1E
	dc.l TEStyleChange-1	; call $1F
	dc.l TEOffsetToPoint-1	; call $20
	dc.l TEPointToOffset-1	; call $21
	dc.l TEGetDefProc-1		; call $22
	dc.l TEGetRuler-1		; call $23
	dc.l TESetRuler-1		; call $24
	dc.l TEScroll-1		; call $25
	dc.l TEGetInternalProc-1	; call $26
	dc.l TEGetLastError-1	; call $27
	dc.l TECompactRecord-1	; call $28
TheEnd

	ENDP

****************************************************************

TEBootInit	PROC  EXPORT
	EXPORT TEReset
TEReset
	EXPORT NullRoutine
NullRoutine	lda  #0
	clc
	rtl

	ENDP

****************************************************************

TEStartUp	PROCNAME  Export

;---------------------------------------------------------------
	DefineStack
OrigD	word
RTL1	block 3
RTL2	block 3
InputDPage	word
InputUserID	word
;---------------------------------------------------------------

;---------------------------------------------------------------
	jsl  IncBusyFlg		;increment the busy flag

	phd		;save the original direct page.
	ldx  #teAlreadyStarted
	dec  a		;check the WAP. if it is not zero, we
	inc  a		;..are already started, so return error.
	bne  error2

	lda  InputDpage,s		;set the direct page and the WAP
	tcd
	jsr  SetTheWAP
	lda  InputUserID,s		;set the userID
	sta  UserID

;;;	PushWordSpace		;make sure the font manager is started
	pea 0		;17-Jun-92 DAL -- in case FM isn't even loaded
	_FMStatus
	ldx  #teNeedsTools
	pla
	beq  error1

	PushLongSpace
	PushWord #0		;system toolset
	PushWord #$04		;toolset number for quickdraw
	_GetWAP
	PullAX
	sta  QDDirectPage		;cache quickdraw's direct page

	lda  #8*1024		;make sure we have enough memory
	jsr  GetSmallHandle
	bcc  allOK
;---------------------------------------------------------------
error1	phx
	lda  #0		;set the WAP to zero
	jsr  SetTheWAP
	plx
error2	brl  allDone
;---------------------------------------------------------------
allOK	jsr  KillHandle

	ldax #GrafPort.RecordSize
	ldy  #$C000		;locked and fixed
	jsr  GetSpecialHandle
	jsr  DerefAX
	stax DrawPortPtr
	jsr  GetPort		;save the current port
	PushZLong DrawPortPtr
	_OpenPort
	ldy  #GrafPort.ClipRgn	;copy the clip region into the visRgn
	jsr  GetPortLong		;..so we don't have to worry about
	PushAX		;..clipping
	ldy  #GrafPort.VisRgn
	jsr  GetPortLong
	PushAX
	_CopyRgn
	jsr  SetPort		;restore the current port

	ldy  #GrafPort.FontFlags	;set the text drawing to use full dithered
	lda  #%0000000000000100	;..patterns
	sta  [DrawPortPtr],y

	ldy  #GrafPort.Width	;get the starting handle for the offscreen
	lda  [DrawPortPtr],y	;..buffer
	jsr  GetSmallHandle
	stax DataBufferHandle

	ldax #2		;size of two
	ldy  #$0300		;attributes of purgable
	jsr  GetSpecialHandle
	stax WidthTableHandle
	PushAX
	_PurgeHandle		;start with this purged
	stz  WidthTableDepth
	lda  #2		;start the offset at two
	sta  WidthTableOffset

	ldax #4		;size of two
	ldy  #$0010		;attributes of no bank cross
	jsr  GetSpecialHandle
	stax PPToPortCodeHandle
	jsr  clearSizeField		;clear the size fields to start with

	ldax #4		;size of two
	ldy  #$0010		;attributes of no bank cross
	jsr  GetSpecialHandle
	stax ScrollCodeHandle
	jsr  clearSizeField		;clear the size fields to start with

	stzl RecordInUse		;clear the in use variables
	stz  SuperInUse
;---------------------------------------------------------------
	ldx  #0		;no error code
allDone	lda  7,s		;move 8 bytes on the stack over the input
	sta  11,s
	lda  5,s
	sta  9,s
	lda  3,s
	sta  7,s
	lda  1,s
	sta  5,s
	pla		;pull off four bytes of garbage
	pla
	phb		;save the data bank
	brl  QuickExit
;---------------------------------------------------------------



;---------------------------------------------------------------
clearSizeField	jsr  DerefAX		;clear the size fields to start with
	stax TempPtr
	ldy  #2
	lda  #0
	sta  [TempPtr]
	sta  [TempPtr],y
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

TEShutDown	PROCNAME  Export

;---------------------------------------------------------------
	ldy  #0
	jsr  QuickEntry		;setup the TE direct page and the busy flag

	lda  #0		;set the WAP to zero
	jsr  SetTheWAP

	PushZLong DrawPortPtr	;close the offscreen grafPort
	_ClosePort
	PushLongSpace		;dispose of the offscreen grafPort
	PushZLong DrawPortPtr
	_FindHandle
	PullAX
	jsr  KillHandle

	ldax DataBufferHandle	;kill the offscreen buffer
	jsr  KillHandle

	ldax WidthTableHandle	;kill the width table handle
	jsr  KillHandle

	ldax PPToPortCodeHandle	;kill the pptoport code handle
	jsr  KillHandle

	ldax ScrollCodeHandle	;kill the scroll code handle
	jsr  KillHandle

	ldx  #0
	brl  QuickExit
;---------------------------------------------------------------

	ENDP

****************************************************************

TEVersion	PROCNAME  Export

;---------------------------------------------------------------
	DefineStack
RTL1	block 3
RTL2	block 3
output	word
;---------------------------------------------------------------

	lda  #TEVersionNumber
	sta  output,s

	brl  NullRoutine
;---------------------------------------------------------------

	ENDP

****************************************************************

TEStatus	PROCNAME  Export

;---------------------------------------------------------------
	DefineStack
RTL1	block 3
RTL2	block 3
output	word
;---------------------------------------------------------------

	ldx  #FALSE		;return $0000 if not started up
	cmp  #0
	beq  notStarted

          IF FinalRelease <> 0 THEN
	ldx  #TRUE
          ELSE
	ldx  #DaveStatus
          ENDIF

notStarted	txa
	sta  output,s

	brl  NullRoutine
;---------------------------------------------------------------

	ENDP

****************************************************************

TENew	PROCNAME  Export

;---------------------------------------------------------------
	DefineStack
origB	byte
origD	word
RTL1	block 3
RTL2	block 3
result	long
;---------------------------------------------------------------

;---------------------------------------------------------------
	ldy  #4		;number of parameters
	jsr  QuickEntry		;setup the TE direct page and the busy flag

	movl ParameterSpace,ParameterPtr	;copy the input to the parameter pointer

	ldy  #TEParam.textFlags+2	;check to see if the record is a control
	lda  [ParameterPtr],y	;..or not
	and  #fNotControl
	beq  doControl
	jsr  FakeNewControl
	bra  setIt
;---------------------------------------------------------------
doControl	PushLongSpace
	jsr  GetPort		;push a pointer to the current port
	PushWord  #0		;single pointer verb
	PushZLong ParameterPtr
	_NewControl2
;---------------------------------------------------------------
setIt	bcs  error
	pla
	plx
	sta  result,s
	sta  RecordHandle
	txa
	sta  result+2,s
	sta  RecordHandle+2

	jsr  DerefRecordHandle
	ldy  #TERecord.LastErrorCode	;return the error from the defProc
	lda  [RecordPtr],y
	tax
	beq  @noError
	phx
	ldax RecordHandle
	jsr  KillControl
	plx

@noError	brl  QuickExit
;---------------------------------------------------------------
error	tax
	pla
	pla
	brl  QuickExit
;---------------------------------------------------------------

	ENDP

****************************************************************

TEKill	PROCNAME  Export

;---------------------------------------------------------------
	DSECT ParameterSpace
xRecordHandle	long
;---------------------------------------------------------------

;---------------------------------------------------------------
	ldy  #4
	jsr  StandardEntry		;setup the TE direct page and the busy f.

	jsr  GetTEHighFlags		;check to see if the record is a control
	and  #fNotControl		;..or not
	beq  doControl
;---------------------------------------------------------------
	lda  #0		;pass nothing for the parameters
	tax
	ldy  #dispCtl		;the message is dispose
	jsr  CallDefProc

	jsr  UnlockRecordHandle
	ldax RecordHandle		;kill the main record handle
	jsr  KillHandle
	bra  done		;return the error from kill handle
;---------------------------------------------------------------
doControl	jsr  UnlockRecordHandle
	ldax RecordHandle		;dispose of the TE control.
	jsr  KillControl
;---------------------------------------------------------------
done	sta  0		;return the error from DisposeControl
	PullAX		;pull off the saved origin
	jsr  SetPort
	ldx  0		;we are using $00 as scratch space
	brl  QuickExit
;---------------------------------------------------------------

	ENDP

****************************************************************

TESetText	PROCNAME  Export

;---------------------------------------------------------------
	DSECT ParameterSpace
xRecordHandle	long
xInputStyleRef	long
xInputStyleVerb	word
xInputTextLength	long
xInputTextRef	long
xInputTextVerb	word
;---------------------------------------------------------------

;---------------------------------------------------------------
	ldy  #20
	jsr  StandardEntry		;setup the TE direct page and the busy f.

	jsr  KillBlockList		;destroy the block list and get a fresh
	jsr  NewBlockList		;..one

	ldy  #TERecord.StyleSuper	;kill the old style super array and get a
	jsr  KillSuperHandle	;..new one
	ldy  #TERecord.StyleSuper
	jsr  GetNewSuperHandle

	jsr  SetInitialTextAndStyle	;return the error code from this routine
	bcs  exit

	jsr  GetViewRect		;redraw the viewRect
	jsr  CopyTempToDrawRect
	jsr  DoDraw

	ldx  #0		;no error
exit	brl  StandardExit
;---------------------------------------------------------------

	ENDP

****************************************************************

TEGetText	PROCNAME  Export

;---------------------------------------------------------------
	DSECT ParameterSpace
xRecordHandle	long
xOutputStyleRef	long
xOutputStyleVerb	word
xBufferLength	long
xBufferRef	long
xBufferVerb	word
;---------------------------------------------------------------

;---------------------------------------------------------------
	ldy  #20
	jsr  StandardEntry		;setup the TE direct page and the busy f.

	jsr  GetTextLength		;return the total text size
	sta  ReturnSpace,s
	txa
	sta  ReturnSpace+2,s

	jsr  ExtractText
	bcs  exit		;if got an error, then exit

	jsr  ExtractStyles
exit	brl  StandardExit		;the X-Reg will be set by ExtractStyles
;---------------------------------------------------------------

	ENDP

****************************************************************

TEGetTextInfo	PROCNAME  Export

;---------------------------------------------------------------
	DSECT ParameterSpace
xRecordHandle	long
bufferCount	word
bufferPtr	long
;---------------------------------------------------------------

;---------------------------------------------------------------
	ldy  #10
	jsr  StandardEntry		;setup the TE direct page and the busy f.

	inc  bufferCount
	jsr  decBufferCount
;---------------------------------------------------------------
doCharCount	jsr  GetTextLength		;set the character count field
	ldy  #TEInfoRecord.charCount
	jsr  setBufferLong

	jsr  decBufferCount
;---------------------------------------------------------------
doLineCount	ldy  #TERecord.LineSuper	;set the line count field
	jsr  CountSuperItems
	ldy  #TEInfoRecord.lineCount
	jsr  setBufferLong

	jsr  decBufferCount
;---------------------------------------------------------------
doFormat	jsr  GetStyleRecordSize	;set the format memory needed field	
	ldy  #TEInfoRecord.formatMemory
	jsr  setBufferLong

	jsr  decBufferCount
;---------------------------------------------------------------
doTotal	lda  #TERecord.RecordSize+1	;add an extra one for the input handle
	sta  MoveLength		;..field in the record. (it's size is
	stz  MoveLength+2		;..always one)

	jsr  GetVertScrollBar
	beq  @skip1
	PushAX
	jsr  GetHandleSize
	jsr  addToMoveLength

@skip1	ldy  #TERecord.LineSuper
	jsr  CalculateSuperSize
	jsr  addToMoveLength

	ldy  #TERecord.StyleSuper
	jsr  CalculateSuperSize
	jsr  addToMoveLength

	jsr  CachedBlockToPtr	;set TempPtr to our current block
@loop1	jsr  MoveToPrevBlock	;move back to the first block
	bcc  @loop1	
@loop2	PushZLong BlockHandle
	jsr  GetHandleSize
	jsr  addToMoveLength
	jsr  MoveToNextBlock
	bcc  @loop2

	ldy  #TERecord.StyleList
	jsr  PushRecordLong
	jsr  GetHandleSize
	jsr  addToMoveLength

	ldy  #TERecord.RulerList
	jsr  PushRecordLong
	jsr  GetHandleSize
	jsr  addToMoveLength

	ldax MoveLength
	ldy  #TEInfoRecord.totalMemory
	jsr  setBufferLong

	jsr  decBufferCount
;---------------------------------------------------------------
doStyleCount	ldy  #TERecord.StyleList
	jsr  GetRecordLong
	PushAX
	jsr  GetHandleSize
	PushLongSpace
	PushLongSpace
	PushAX
	PushLong #TEStyle.RecordSize
	_LongDivide
	PullAX
	ply		;pull garbage
	ply
	ldy  #TEInfoRecord.styleCount
	jsr  setBufferLong

	jsr  decBufferCount
;---------------------------------------------------------------
doRulerCount	lda  #1		;set the ruler count field to one
	ldy  #TEInfoRecord.rulerCount
	sta  [bufferPtr],y
	iny
	iny
	dec  a
	sta  [bufferPtr],y

	jsr  decBufferCount
;---------------------------------------------------------------
	ldx  #teInvalidPCount	;if there are still more params, return an error
;---------------------------------------------------------------
exit	brl  StandardExit
;---------------------------------------------------------------



;---------------------------------------------------------------
decBufferCount	dec  bufferCount
	beq  @atEnd
	rts

@atEnd	pla
	ldx  #0
	bra  exit
;---------------------------------------------------------------
setBufferLong	sta  [bufferPtr],y
	iny
	iny
	txa
	sta  [bufferPtr],y
	rts
;---------------------------------------------------------------
addToMoveLength	clc
	adc  MoveLength
	sta  MoveLength
	txa
	adc  MoveLength+2
	sta  MoveLength+2
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

TEIdle	PROCNAME  Export

;---------------------------------------------------------------
	DSECT ParameterSpace
xRecordHandle	long
;---------------------------------------------------------------

;---------------------------------------------------------------
	ldy  #4
	jsr  StandardEntry

	jsr  DoIdleEvent

	ldx  #0
	brl  StandardExit
;---------------------------------------------------------------

	ENDP

****************************************************************

TEActivate	PROCNAME  Export

;---------------------------------------------------------------
	DSECT ParameterSpace
xRecordHandle	long
;---------------------------------------------------------------

;---------------------------------------------------------------
	ldy  #4
	jsr  StandardEntry

	jsr  MakeControlActive

	ldx  #0
	brl  StandardExit
;---------------------------------------------------------------

	ENDP

****************************************************************

TEDeactivate	PROCNAME  Export

;---------------------------------------------------------------
	DSECT ParameterSpace
xRecordHandle	long
;---------------------------------------------------------------

;---------------------------------------------------------------
	ldy  #4
	jsr  StandardEntry

	ldy  #TERecord.CtrlMoreFlags
	lda  [RecordPtr],y
	and  #ÅfCtlTarget
	sta  [RecordPtr],y

	lda  #0		;pass zero for the parameters
	tax
	ldy  #ctlChangeActivity	;the message is change activity
	jsr  CallDefProc

	ldx  #0
	brl  StandardExit
;---------------------------------------------------------------

	ENDP

****************************************************************

TEClick	PROCNAME  Export

;---------------------------------------------------------------
	DSECT ParameterSpace
xRecordHandle	long
xTheEventPtr	long
;---------------------------------------------------------------

;---------------------------------------------------------------
	ldy  #8
	jsr  StandardEntry

	jsr  AreWeInvisible		;if invisible, then exit
	bne  exit

	ldy  #EventRecord.where
	lda  [TheEventPtr],y
	sta  TempLong
	iny
	iny
	lda  [TheEventPtr],y
	sta  TempLong+2
	PushZPtr TempLong		;convert the point to local coordinates
	_GlobalToLocal

	ldax TempLong		;pass the point in local coordinates
	ldy  #testCtl		;the message is test
	jsr  CallDefProc

	ldy  #dragCtl		;pass the part code that was returned
	jsr  CallDefProc		;the message is drag

exit	ldx  #0		;no error
	brl  StandardExit
;---------------------------------------------------------------

	ENDP

****************************************************************

TEUpdate	PROCNAME  Export

;---------------------------------------------------------------
	DSECT ParameterSpace
xRecordHandle	long
;---------------------------------------------------------------

;---------------------------------------------------------------
	ldy  #4
	jsr  StandardEntry

	ldy  #TERecord.SelectionActive
	lda  [RecordPtr],y
	tax
	lda  #0
	ldy  #drawCtl		;the message is draw
	jsr  CallDefProc

	ldx  #0		;no error
	brl  StandardExit
;---------------------------------------------------------------

	ENDP

****************************************************************

TEPaintText	PROCNAME  Export

;---------------------------------------------------------------
	DSECT ParameterSpace
xRecordHandle	long
paintFlags	word
theRectPtr	long
startingLine	long
theGrafPort	long
;---------------------------------------------------------------

;---------------------------------------------------------------
	ldy  #18
	jsr  StandardEntry		;setup the TE direct page and the busy f.

	PushZLong theGrafPort
	jsr  SetPort

	jsr  GetNewRgn
	PushAX		;save one copy for the dispose
	PushAX		;save one copy for the setClip
	PushAX
	_GetClip

	jsr  GetNewRgn
	PushAX		;save one copy for the dispose
	PushAX		;save one copy for the sectRgn
	PushAX		;save one copy for the rectRgn
	PushZLong theRectPtr
	_RectRgn
	PushLongSpace		;combine with the original clipping rgn
	_GetClipHandle
	lda  3,s		;leave the result in the original clip
	pha		;..rgn
	lda  3,s
	pha
	_SectRgn
	jsr  KillRgn		;dispose of the temporary region
;---------------------------------------------------------------
	ldy  #TERecord.LineSuper
	jsr  ClearSuperCache

	stzl TextOffset
	stzl TheLineNumber

@loop	jsr  IsOffsetAtEnd
	beq  foundEnd

	lda  TheLineNumber
	cmp  startingLine
	bne  @1
	lda  TheLineNumber+2
	cmp  startingLine+2
	beq  foundFirst
@1
	ldy  #TERecord.LineSuper
	jsr  FindSuperInfo
	jsr  MoveOffsetToNextItem
	incl TheLineNumber
	bra  @loop
;---------------------------------------------------------------
foundEnd	_SetClip		;restore the original clipping region
	jsr  KillRgn		;dispose of the temporary region
	lda  #$FFFF		;return line number $FFFF FFFF
	sta  ReturnSpace,s
	sta  ReturnSpace+2,s
	ldx  #teInvalidLine
	brl  allDone
;---------------------------------------------------------------

*** 2-Feb-93 JCM - Hacked fix for GS+'s full justification bug report. I'll spend time making this
***                right for 6.1, but for now this works.

foundFirst	pei  DrawPortPtr+2
	pei  DrawPortPtr
	
	lda  theGrafPort
	sta  DrawPortPtr
	lda  theGrafPort+2
	sta  DrawPortPtr+2

*** End 2-Feb-93 JCM

	ldy  #Rect.top
	lda  [theRectPtr],y
	sta  TextVPos
;---------------------------------------------------------------
mainLoop	jsr  FindLineInfo
	lda  TextVPos
	clc
	adc  LineHeight
	tax
	ldy  #Rect.bottom
	cmp  [theRectPtr],y
	ble  @notTheLast
	lda  paintFlags
	and  #fPartialLine
	beq  cleanup
@notTheLast
	lda  SuperStart
	clc
	adc  SuperLength
	pha
	lda  SuperStart+2
	adc  SuperLength+2
	pha
	phx
	jsr  PaintLine
	pla
	sta  TextVPos
	pla
	sta  TextOffset+2
	pla
	sta  TextOffset

	lda  TextVPos
	ldy  #Rect.bottom
	cmp  [theRectPtr],y
	bge  cleanup
	jsr  IsOffsetAtEnd
	bne  mainLoop
	lda  #$FFFF
	sta  TheLineNumber
	sta  TheLineNumber+2
;---------------------------------------------------------------
*** 2-Feb-93 JCM - Hacked fix for GS+'s full justification bug report. I'll spend time making this
***                right for 6.1, but for now this works.

cleanup	pla
	sta  DrawPortPtr
	pla
	sta  DrawPortPtr+2
	
*** End - 2-Feb-93 JCM
	
	_SetClip		;restore the original clipping region
	jsr  KillRgn		;dispose of the temporary region

	lda  TheLineNumber
	sta  ReturnSpace,s
	lda  TheLineNumber+2
	sta  ReturnSpace+2,s

	ldx  #0		;no error
allDone	phx
	jsr  SetWindowPort
	plx
	brl  StandardExit
;---------------------------------------------------------------

	ENDP

****************************************************************

TEKey	PROCNAME  Export

;---------------------------------------------------------------
	DSECT ParameterSpace
xRecordHandle	long
xTheEventPtr	long
;---------------------------------------------------------------

;---------------------------------------------------------------
	ldy  #8
	jsr  StandardEntry

	jsr  GetTEHighFlags		;should we be selecting text ? If not,
	and  #fDisableSelection	;..then we can't take keys either
	bne  exit

	jsr  DoKeystroke

exit	ldx  #0		;no error
	brl  StandardExit
;---------------------------------------------------------------

	ENDP

****************************************************************

TEUndo	PROCNAME  Export

	ldy  #0		;number of parameters
	jsr  StandardEntry

; ###################################################################################
; ##############################  insert routine here  ##############################
; ###################################################################################

	ldx  #0		;no error
	brl  StandardExit

	ENDP

****************************************************************

TECut	PROCNAME  Export

;---------------------------------------------------------------
	DSECT ParameterSpace
xRecordHandle	long
;---------------------------------------------------------------

;---------------------------------------------------------------
	ldy  #4
	jsr  StandardEntry

	jsr  CutGuts		;this will set the X-Reg

	brl  StandardExit
;---------------------------------------------------------------

	ENDP

****************************************************************

TECopy	PROCNAME  Export

;---------------------------------------------------------------
	DSECT ParameterSpace
xRecordHandle	long
;---------------------------------------------------------------

;---------------------------------------------------------------
	ldy  #4
	jsr  StandardEntry

	jsr  CopyGuts		;this will set the X-Reg

	brl  StandardExit
;---------------------------------------------------------------

	ENDP

****************************************************************

TEPaste	PROCNAME  Export

;---------------------------------------------------------------
	DSECT ParameterSpace
xRecordHandle	long
;---------------------------------------------------------------

;---------------------------------------------------------------
	ldy  #4
	jsr  StandardEntry

	jsr  PasteGuts		;this will set the X-Reg

	brl  StandardExit
;---------------------------------------------------------------

	ENDP

****************************************************************

TEClear	PROCNAME  Export

;---------------------------------------------------------------
	DSECT ParameterSpace
xRecordHandle	long
;---------------------------------------------------------------

;---------------------------------------------------------------
	ldy  #4
	jsr  StandardEntry

	jsr  ClearGuts		;this will set the X-Reg

	brl  StandardExit
;---------------------------------------------------------------

	ENDP

****************************************************************

TEInsert	PROCNAME  Export

;---------------------------------------------------------------
	DSECT ParameterSpace
xRecordHandle	long
xInputStyleRef	long
xInputStyleVerb	word
xInputTextLength	long
xInputTextRef	long
xInputTextVerb	word
;---------------------------------------------------------------

;---------------------------------------------------------------
	ldy  #20
	jsr  StandardEntry

	jsr  UnhilightSelection
	jsr  GetSelectionLength
	PushAX		;save the original selection length
	jsr  SetSelectionEnd	;make the selection a caret

	jsr  TranslateInputVerbs
	bcs  error2
	jsr  ReplaceText
	bcs  error1
	jsr  ReleaseInputVerbs

	jsr  UnhilightSelection
	jsr  GetSelectionStart
	ldax TextOffset		;set the new anchor point
	ldy  #TERecord.AnchorPoint
	jsr  SetRecordLong
	pla
	clc
	adc  TextOffset
	sta  TextOffset
	pla
	adc  TextOffset+2
	sta  TextOffset+2
	jsr  SetSelectionEnd
	jsr  HilightSelection

	ldx  #0		;no error
exit	brl  StandardExit
;---------------------------------------------------------------
error1
*** added 28-Jan-92 DAL -- yank the old selection length of the stack
	pla
	pla
*** end 28-Jan-92
	phx
	jsr  ReleaseInputVerbs
	plx
;---------------------------------------------------------------
error2	phx
	jsr  HilightSelection
	plx
	bra  exit
;---------------------------------------------------------------

	ENDP

****************************************************************

TEReplace	PROCNAME  Export

;---------------------------------------------------------------
	DSECT ParameterSpace
xRecordHandle	long
xInputStyleRef	long
xInputStyleVerb	word
xInputTextLength	long
xInputTextRef	long
xInputTextVerb	word
;---------------------------------------------------------------

;---------------------------------------------------------------
	ldy  #20
	jsr  StandardEntry

	jsr  TranslateInputVerbs
	bcs  error

	jsr  ReplaceText
	bcs  @saveError
	ldx  #0
@saveError	phx
	jsr  ReleaseInputVerbs
	plx

error	brl  StandardExit
;---------------------------------------------------------------

	ENDP

****************************************************************

TEGetSelection	PROCNAME  Export

;---------------------------------------------------------------
	DSECT ParameterSpace
xRecordHandle	long
theEndPtr	long
theStartPtr	long
;---------------------------------------------------------------

;---------------------------------------------------------------
	ldy  #12
	jsr  StandardEntry

	ldy  #TERecord.SelectionStart
	jsr  GetRecordLong
	ldy  #2
	sta  [theStartPtr]
	txa
	sta  [theStartPtr],y

	ldy  #TERecord.SelectionEnd
	jsr  GetRecordLong
	ldy  #2
	sta  [theEndPtr]
	txa
	sta  [theEndPtr],y

	ldx  #0		;no error
	brl  StandardExit
;---------------------------------------------------------------

	ENDP

****************************************************************

TESetSelection	PROCNAME  Export

;---------------------------------------------------------------
	DSECT ParameterSpace
xRecordHandle	long
theEndOffset	long
theStartOffset	long
;---------------------------------------------------------------

;---------------------------------------------------------------
	ldy  #12
	jsr  StandardEntry

	jsr  ClearSavedHPos		;clear the saved horizontal position

	ldax theStartOffset		;see if we need to swap the two ends
	cmpl theEndOffset
	blt  @skipSwap

	lda  theEndOffset		;swap the start and the end, so that the
	ldx  theStartOffset		;..start is always less than or equal to
	sta  theStartOffset		;..the end
	stx  theEndOffset
	lda  theEndOffset+2
	ldx  theStartOffset+2
	sta  theStartOffset+2
	stx  theEndOffset+2
@skipSwap
	jsr  GetTextLength		;clip both of them to the text length
	cmpl theStartOffset
	bge  @noClip1
	stax theStartOffset
@noClip1
	cmpl theEndOffset
	bge  @noClip2
	stax theEndOffset
@noClip2
	jsr  IsTheSelectionACaret
	beq  setTheNewOne
	lda  theStartOffset
	cmp  theEndOffset
	bne  @checkCombine
	lda  theStartOffset+2
	cmp  theEndOffset+2
	beq  setTheNewOne

@checkCombine	jsr  GetSelectionStart
	cmpl theEndOffset,TextOffset
	blt  setTheNewOne
	jsr  GetSelectionEnd
	cmpl theStartOffset,TextOffset
	ble  combineThem
;---------------------------------------------------------------
setTheNewOne	jsr  UnhilightSelection

	ldax theStartOffset		;set the anchor point and the new selection
	stax TextOffset		;..start
	ldy  #TERecord.AnchorPoint
	jsr  SetRecordLong
	jsr  SetSelectionStart

	ldax theEndOffset
	ldy  #TERecord.SelectionEnd
	jsr  SetRecordLong

	jsr  HilightSelection
	brl  exit
;---------------------------------------------------------------
combineThem	jsr  GetSelectionStart
	cmpl theStartOffset,TextOffset
	blt  @extendStart
	beq  @skipStart

@contractStart	ldy  #TERecord.SelectionEnd
	jsr  PushRecordLong
	ldax theStartOffset
	jsr  SetRecordLong
	jsr  InvertSelection
	ldax theStartOffset
	ldy  #TERecord.SelectionStart
	jsr  SetRecordLong
	bra  @restoreEnd
@extendStart	ldy  #TERecord.SelectionEnd
	jsr  PushRecordLong
	jsr  GetSelectionStart
	jsr  SetSelectionEnd
	ldax theStartOffset
	ldy  #TERecord.SelectionStart
	jsr  SetRecordLong
	jsr  InvertSelection
@restoreEnd	PullAX
	ldy  #TERecord.SelectionEnd
	jsr  SetRecordLong

@skipStart	jsr  GetSelectionEnd
	cmpl theEndOffset,TextOffset
	blt  @contractEnd
	beq  @skipEnd

@extendEnd	ldy  #TERecord.SelectionStart
	jsr  PushRecordLong
	jsr  GetSelectionEnd
	jsr  SetSelectionStart
	ldax theEndOffset
	ldy  #TERecord.SelectionEnd
	jsr  SetRecordLong
	jsr  InvertSelection
	bra  @restoreStart
@contractEnd	ldy  #TERecord.SelectionStart
	jsr  PushRecordLong
	ldax theEndOffset
	jsr  SetRecordLong
	jsr  InvertSelection
	ldax theEndOffset
	ldy  #TERecord.SelectionEnd
	jsr  SetRecordLong
@restoreStart	PullAX
	ldy  #TERecord.SelectionStart
	jsr  SetRecordLong
@skipEnd
;---------------------------------------------------------------
exit	ldy  #TERecord.SelectionStart
	jsr  ScrollToSelection

	ldx  #0		;no error
	brl  StandardExit
;---------------------------------------------------------------

	ENDP

****************************************************************

TEGetSelectionStyle	PROCNAME  Export

;---------------------------------------------------------------
	DSECT ParameterSpace
xRecordHandle	long
bufferHandle	long
commonPtr	long
commonFlag	word		;this is a temporary equate for output
styleCount	word		;this is a temporary equate for the style count
;---------------------------------------------------------------

;---------------------------------------------------------------
	ldy  #12		;number of parameters
	jsr  StandardEntry

	lda  #%111111		;the common flag is inited to use everything
	sta  commonFlag

	jsr  IsTheSelectionACaret
	bnel notACaret
;---------------------------------------------------------------
isACaret	PushZLong bufferHandle
	lda  #TEStyle.RecordSize+2
	ldx  #0
	jsr  SetHandleSize
	Deref bufferHandle,DestPtr
	lda  #1
	sta  [DestPtr]
	lda  #2
	addl DestPtr

	ldy  #TERecord.NullStyleActive
	lda  [RecordPtr],y
	bpl  @notNull

@useNull	lda  #TERecord.NullStyle
	clc
	adc  RecordPtr
	sta  TempPtr
	lda  RecordPtr+2
	adc  #0
	sta  TempPtr+2
	bra  @caretDone

@notNull	jsr  GetSelectionStart
	jsr  FindStyleInfo
	lda  TextOffset
	cmp  SuperStart
	bne  @1
	lda  TextOffset+2
	cmp  SuperStart+2
	bne  @1
	ora  TextOffset
	beq  @1
	decl TextOffset
	jsr  FindStyleInfo
	incl TextOffset
	bra  @2
@1	jsr  FindStyleInfo
@2	jsr  SetupStylePtr

@caretDone	jsr  copyAStyle		;copy the style into the buffer handle

	movl commonPtr,DestPtr	;copy the style into common pointer
	jsr  copyAStyle

	ldx  #0		;this is the error code
	brl  reallyDone
;---------------------------------------------------------------
notACaret	PushZLong bufferHandle	;set the buffer size to two
	ldax #2
	jsr  SetHandleSize
	stz  styleCount		;zero the initial style counter

	ldy  #TERecord.StyleList	;lock down the style list
	jsr  PushRecordLong
	jsr  LockHandle

	jsr  GetSelectionStart	;copy the starting style into commonPtr
	jsr  FindStyleInfo
	jsr  SetupStylePtr
	movl commonPtr,DestPtr
	jsr  copyAStyle
	bra  enterLoop		;save cycles - don't setup twice
;---------------------------------------------------------------
mainLoop	jsr  FindStyleInfo		;find the style offset and get a pointer
	jsr  SetupStylePtr		;..to the style info

enterLoop	PushZLong bufferHandle	;get a pointer to the start of the buffer
	jsr  DerefHandle
	clc
	adc  #2
	sta  MemoryPtr
	txa
	adc  #0
	sta  MemoryPtr+2

	ldx  styleCount		;compare the current style with all the
@nextStyle	cpx  #0		;..styles already in the buffer. If we
	beq  mustAdd		;..get a match, then don't add the style
	ldy  #0		;..again.
@loop	lda  [TempPtr],y
	cmp  [MemoryPtr],y
	beq  @nextWord
	dex
	lda  #TEStyle.RecordSize
	addl MemoryPtr
	bra  @nextStyle
@nextWord	iny
	iny
	cpy  #TEStyle.RecordSize
	blt  @loop
;---------------------------------------------------------------
noAdd	addl SuperStart,SuperLength,TextOffset
	ldy  #TERecord.SelectionEnd
	jsr  GetRecordLong
	cmpl TextOffset
	bgt  mainLoop
;---------------------------------------------------------------
	ldx  #0

allDone	phx
	ldy  #TERecord.StyleList
	jsr  PushRecordLong
	jsr  UnlockHandle

	Deref bufferHandle,MemoryPtr	;get a pointer to the start of the buffer
	lda  styleCount
	sta  [MemoryPtr]
	plx		;get back the error code

reallyDone	lda  commonFlag		;return the common flag
	sta  ReturnSpace,s

	brl  StandardExit
;---------------------------------------------------------------
mustAdd	lda  [TempPtr]		;set the new common flag if things don't
	cmp  [commonPtr]		;..match
	beq  @1
	lda  #fUseFont
	trb  commonFlag	

@1	shortm
	ldy  #TEStyle.fontSize
	lda  [TempPtr],y
	cmp  [commonPtr],y
	beq  @2
	lda  #fUseSize
	trb  commonFlag	
@2	longm

	ldy  #TEStyle.foreColor
	lda  [TempPtr],y
	cmp  [commonPtr],y
	beq  @3
	lda  #fUseForeColor
	trb  commonFlag	

@3	ldy  #TEStyle.backColor
	lda  [TempPtr],y
	cmp  [commonPtr],y
	beq  @4
	lda  #fUseBackColor
	trb  commonFlag	

@4	ldy  #TEStyle.userData
	lda  [TempPtr],y
	cmp  [commonPtr],y
	bne  @5
	iny
	iny
	lda  [TempPtr],y
	cmp  [commonPtr],y
	beq  @6
@5	lda  #fUseUserData
	trb  commonFlag	
@6
;
; 7/31/90	Mensch
; The following confusing bit of code seems to have a bit of a problem in that it performs no
; real usefull function. Since there is a bug where the attributes entry in the common
; style record is not correct (the bit should always be set that its right!). I will insert code
; here that will make the common attributes more correct, I will do this by simply always 
; only allowing bits that are common in ALL styles in the selection be highlighted. And only
; reset the flag in certain specific instances
	shortm
	ldy  #TEStyle.fontAttr
	lda  [TempPtr],y	; see if these attributes are different
	cmp  [commonPtr],y
	beq  @6_2
; attributes are not equal , lets trim the common record back..
	and  [commonPtr],y
	sta  [commonPtr],y	; excess attributes now trimmed
	bne  @6_2	; now, if there is still any common style, then simply end
@clearIt	lda  #fUseAttributes
	trb  commonFlag
@6_2	longm

	PushZLong bufferHandle
	PushZLong bufferHandle
	PushZLong bufferHandle
	jsr  GetHandleSize
	stax MoveLength
	clc
	adc  #TEStyle.RecordSize
	bcc  @7
	inx
@7	jsr  SetHandleSize
	bcs  memoryError
	jsr  DerefHandle
	clc
	adc  MoveLength
	sta  DestPtr
	txa
	adc  MoveLength+2
	sta  DestPtr+2

	jsr  copyAStyle
	inc  styleCount
	brl  noAdd
;---------------------------------------------------------------
memoryError	pla
	pla
	jsr  SetLastErrorCode
	brl  allDone
;---------------------------------------------------------------



;---------------------------------------------------------------
copyAStyle	ldy  #2
	lda  [TempPtr]
	sta  [DestPtr]
@loop	lda  [TempPtr],y	
	sta  [DestPtr],y
	iny
	iny
	cpy  #TEStyle.RecordSize
	blt  @loop
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

TEStyleChange	PROCNAME  Export

;---------------------------------------------------------------
	DSECT ParameterSpace
xRecordHandle	long
theStylePtr	long
theStyleFlag	word

fontAttrFlag	word		;scratch variables
noWrapFlag	word		;scratch variables
;---------------------------------------------------------------

;---------------------------------------------------------------
	ldy  #10		;number of parameters
	jsr  StandardEntry

	jsr  GetTEHighFlags		;if the record is read only, then don't
	and  #fReadOnly		;..change the style
	bnel allDone

	jsr  TakeCareOfUpdate	;make sure any update event is handled first
	jsr  CenterTheSelection	;make sure the selection is on screen

	jsr  ClearSavedHPos		;clear the saved horizontal position
	jsr  ClearOffsetCache	;we want the cache set to the SelectionStart

	lda  #$FFFF		;for now indicate no word wrap. If we ever
	sta  noWrapFlag		;..change anything except color, this will be cleared

	jsr  GetTEHighFlags		;check for the record being a single style
	and  #fSingleStyle		;..record
	beq  notSingle
;---------------------------------------------------------------
doSingle	stzl TextStyleOffset	;use the first (only) style in the list

	lda  theStyleFlag		;if we are not switching attributes then
	and  #fSwitchAttributes	;..skip the pre-check
	beq  @skipSwitch

	jsr  SetupStylePtr		;setup TempPtr to point to the style
	stz  fontAttrFlag		;clear the switch attributes flag
	shortm
	ldy  #TEStyle.fontAttr
	lda  [TempPtr],y
	and  [theStylePtr],y
	cmp  [theStylePtr],y
	longm
	beq  @skipSwitch		;if the attribute was not set, then add it
	dec  fontAttrFlag		;the attribute was not set, so remove it

@skipSwitch	jsr  makeNewStyle		;create the new style

	ldy  #TEStyle.RecordSize-2	;copy the style back into the style list
@loop	tyx
	lda  TempStyle,x
	sta  [TempPtr],y
	dey
	dey
	bpl  @loop

	jsr  SetDirtyFlag		;mark the record as dirty

	bit  noWrapFlag		;if the only change was color, then skip
	bmi  @skipWrap		;..the word wrap
	brl  doFullWrap
@skipWrap	jsr  GetViewRect		;assume we are going to draw the entire 
	jsr  CopyTempToDrawRect	;..viewRect
	brl  callDoDraw
;---------------------------------------------------------------
notSingle	jsr  IsTheSelectionACaret	;if the selection is a caret then set the
	beq  setTheNull		;..null style.

	lda  theStyleFlag		;if we are not switching attributes then
	and  #fSwitchAttributes	;..skip the pre-check
	beq  @skipSwitch

	stz  fontAttrFlag
	jsr  GetSelectionStart	;pre-scan the styles to find out if the
@loop	jsr  FindStyleInfo		;..passed attributes are common to the
	jsr  GetLongSuperCount	;..entire selection. If they are NOT then
	clc		;..set the fontAttrFlag to -1
	adc  TextOffset		;if the fontAttrFlag is plus, then we are
	sta  TextOffset		;..removing the passed attributes, otherwise
	txa		;..we are adding them
	adc  TextOffset+2
	sta  TextOffset+2
	jsr  SetupStylePtr
	shortm
	ldy  #TEStyle.fontAttr
	lda  [TempPtr],y
	and  [theStylePtr],y
	cmp  [theStylePtr],y
	longm
	beq  @1
	dec  fontAttrFlag		;there was a style difference, so set the
	bra  @skipSwitch		;flag to add styles and exit the loop
@1	ldy  #TERecord.SelectionEnd
	jsr  GetRecordLong
	cmpl TextOffset
	bgt  @loop

@skipSwitch	jsr  GetSelectionStart	;start the style change loop with the
	jsr  ShouldWePartialWrap	;if we are doing a full word wrap then
	bcc  mainLoop		;..skip the unhilight
	jsr  UnhilightSelection	;remove the selection hilighting
	bra  mainLoop		;..selection start
;---------------------------------------------------------------
setTheNull	jsr  GetSelectionStart	;find the style of the previous character
	lda  TextOffset		;if text offset is zero, then skip the
	bne  @1		;..decrement
	lda  TextOffset+2
	beq  @2
	dec  TextOffset+2
@1	dec  TextOffset
@2	jsr  FindStyleInfo

	ldy  #TERecord.NullStyleActive	;should we use the null style ?
	lda  [RecordPtr],y
	bmi  @useNull
@useSuper	jsr  copyStyleIntoTemp	;nope, so copy the previous style into
	bra  @checkSwitch		;..TempStyle and check for switch attr
@useNull	ldy  #TERecord.NullStyle
	ldx  #0		;here we should copy the null style into
@loop1	lda  [RecordPtr],y		;..TempStyle
	sta  TempStyle,x
	iny
	iny
	inx
	inx
	cpx  #TEStyle.RecordSize
	blt  @loop1

@checkSwitch	lda  theStyleFlag		;if we are not switching attributes then
	and  #fSwitchAttributes	;..skip the pre-check
	beq  @skipSwitch
	stz  fontAttrFlag
	shortm
	lda  TempStyle+TEStyle.fontAttr
	ldy  #TEStyle.fontAttr
	and  [theStylePtr],y
	cmp  [theStylePtr],y
	longm		;if the style attributes are already set
	beq  @skipSwitch		;..then remove them
	dec  fontAttrFlag

@skipSwitch	jsr  makeNewStyle2		;make a new style from TempStyle

	ldy  #TERecord.NullStyle
	ldx  #0
@loop2	lda  TempStyle,x
	sta  [RecordPtr],y
	iny
	iny
	inx
	inx
	cpx  #TEStyle.RecordSize
	blt  @loop2
	ldy  #TERecord.NullStyleActive
	lda  #$FFFF
	sta  [RecordPtr],y
	brl  allDone
;---------------------------------------------------------------
mainLoop	jsr  FindStyleInfo		;get the current style
	jsr  makeNewStyle		;create the new one

	addl SuperStart,SuperLength,TempLong
	ldy  #TERecord.SelectionEnd
	jsr  GetRecordLong
	cmpl TempLong
	blt  @useSelectionEnd
	ldax TempLong

@useSelectionEnd	sec
	sbc  TextOffset
	sta  SuperLength
	txa
	sbc  TextOffset+2
	sta  SuperLength+2

	tdc		;make a pointer to the temporary style
	clc		;..and add it to the style list
	adc  #TempStyle
	ldx  #0
	jsr  AddToStyleList
	bcs  drawIt		;if there was an error, then exit

	jsr  ChangeStyleItem	;this updates TextOffset also.

	ldy  #TERecord.SelectionEnd
	jsr  GetRecordLong
	cmpl TextOffset
	bgt  mainLoop
;---------------------------------------------------------------
drawIt	jsr  SetDirtyFlag

	jsr  GetViewRect		;assume we are going to draw the entire 
	jsr  CopyTempToDrawRect	;..viewRect

	bit  noWrapFlag
	bmi  noWrap

	jsr  ShouldWePartialWrap
	bcc  doFullWrap
;---------------------------------------------------------------
doPartialWrap	jsr  GetSelectionLength	;remove the line starts for the selection
	stax InputTextLength	;..but make sure the total length remains
	jsr  ReplaceLines		;..the same

	jsr  IncrementalWordWrap	;rewrap just what we need to

	lda  DrawRect.top
	cmp  DrawRect.bottom
	beq  @skipDraw
	jsr  DoDraw
@skipDraw
	jsr  HilightSelection
	bra  allDone
;---------------------------------------------------------------
doFullWrap	jsr  InitialWordWrap
	bra  callDoDraw
;---------------------------------------------------------------
noWrap	jsr  ShouldWePartialWrap
	bcc  @skip
	jsr  HilightSelection	;hilight the selection again
@skip
	jsr  GetSelectionStart
	jsr  OffsetToVPos
	bcs  @1
	mov  TextVPos,DrawRect.top
@1
	jsr  GetSelectionEnd
	jsr  OffsetToVPos
	bcs  @2
	jsr  FindLineInfo
	lda  TextVPos
	clc
	adc  LineHeight
	sta  DrawRect.bottom
@2
callDoDraw	jsr  DoDraw
;---------------------------------------------------------------
allDone	ldx  #0		;no error
	brl  StandardExit
;---------------------------------------------------------------



;---------------------------------------------------------------
copyStyleIntoTemp	jsr  SetupStylePtr		;get a pointer to the current style and
	ldy  #TEStyle.RecordSize-2	;..copy it to the temp buffer
@loop	lda  [TempPtr],y
	tyx
	sta  TempStyle,x
	dey
	dey
	bpl  @loop
	rts
;---------------------------------------------------------------



;---------------------------------------------------------------
makeNewStyle	jsr  copyStyleIntoTemp	;copy the style to the TempStyle buffer

makeNewStyle2	lda  theStyleFlag
	and  #fReplaceFont
	beq  @1
	ldy  #TEStyle.fontFamily
	lda  [theStylePtr],y
	sta  TempStyle+TEStyle.fontFamily
	stz  noWrapFlag

@1	lda  theStyleFlag
	and  #fReplaceSize
	beq  @2
	ldy  #TEStyle.fontSize
	shortm
	lda  [theStylePtr],y
	sta  TempStyle+TEStyle.fontSize
	longm
	stz  noWrapFlag

@2	lda  theStyleFlag
	and  #fReplaceForeColor
	beq  @3
	ldy  #TEStyle.foreColor
	lda  [theStylePtr],y
	sta  TempStyle+TEStyle.foreColor

@3	lda  theStyleFlag
	and  #fReplaceBackColor
	beq  @4
	ldy  #TEStyle.backColor
	lda  [theStylePtr],y
	sta  TempStyle+TEStyle.backColor

@4	lda  theStyleFlag
	and  #fReplaceUserData
	beq  @5
	ldy  #TEStyle.userData
	lda  [theStylePtr],y
	sta  TempStyle+TEStyle.userData
	iny
	iny
	lda  [theStylePtr],y
	sta  TempStyle+TEStyle.userData+2
	stz  noWrapFlag

@5	lda  theStyleFlag
	and  #fReplaceAttributes
	beq  @6
	ldy  #TEStyle.fontAttr
	shortm
	lda  [theStylePtr],y
	sta  TempStyle+TEStyle.fontAttr
	longm
	stz  noWrapFlag

@6	lda  theStyleFlag
	and  #fSwitchAttributes
	beq  @7
	shortm
	ldy  #TEStyle.fontAttr
	lda  [theStylePtr],y
	bit  fontAttrFlag
	bpl  @removeThem
	ora  TempStyle+TEStyle.fontAttr
	bra  @storeIt
@removeThem	eor  #$FF
	and  TempStyle+TEStyle.fontAttr
@storeIt	sta  TempStyle+TEStyle.fontAttr
	longm
	stz  noWrapFlag

@7	rts
;---------------------------------------------------------------



;---------------------------------------------------------------
ShouldWePartialWrap	PushZLong TextOffset

	jsr  GetSelectionStart
	ldy  #TERecord.SelectionEnd
	jsr  GetRecordLong
	sec
	sbc  TextOffset
	sta  TempLong
	txa
	sbc  TextOffset+2
	sta  TempLong+2
	asl  TempLong
	rol  TempLong+2

	PullLong TextOffset

	jsr  GetTextLength
	cmpl TempLong		;carry clear = full wrap, carry set =
	rts		;..partial wrap
;---------------------------------------------------------------

	ENDP

****************************************************************

TEOffsetToPoint	PROCNAME  Export

;---------------------------------------------------------------
	DSECT ParameterSpace
xRecordHandle	long
horzPosPtr	long
vertPosPtr	long
theOffset	long
;---------------------------------------------------------------

;---------------------------------------------------------------
	ldy  #16
	jsr  StandardEntry
;---------------------------------------------------------------
	stzl TempLong
	stzl TextOffset
	bra  @loopEnd

@loop	jsr  FindLineInfo
	jsr  MoveOffsetToNextItem
	cmpl theOffset,TextOffset
	blt  foundLine
	lda  LineHeight
	addl TempLong
@loopEnd	jsr  IsOffsetAtEnd
	bne  @loop

	ldy  #TERecord.LineAtEndFlag
	lda  [RecordPtr],y
	beq  foundLine
	lda  LineHeight
	addl TempLong

foundLine	ldy  #TERecord.VertScrollPos	;multiply the current scroll position by
	jsr  GetRecordLong		;..the vertAmount and subtract it from
	jsr  MultiplyByScrollAmount	;..our current position
	jsr  NegateAX
	clc
	adc  TempLong
	sta  TempLong
	txa
	adc  TempLong+2
	sta  TempLong+2

	ldy  #TERecord.ViewRect.top	;offset our position by the viewrect.top
	lda  [RecordPtr],y
	addl TempLong

	lda  TempLong		;adjust for the VPos delta
	sec
	ldy  #TERecord.TopTextVPos
	sbc  [RecordPtr],y
	sta  TempLong
	bcs  @1
	dec  TempLong+2
@1
	ldy  #2		;return the vertical position
	lda  TempLong
	sta  [vertPosPtr]
	lda  TempLong+2
	sta  [vertPosPtr],y
;---------------------------------------------------------------
findHorzPos	movl theOffset,TextOffset
	jsr  OffsetToHPos
	ldy  #2
	lda  TextHPos
	sta  [horzPosPtr]
	lda  #0
	sta  [horzPosPtr],y

	ldx  #0		;no error
error	brl  StandardExit
;---------------------------------------------------------------

	ENDP

****************************************************************

TEPointToOffset	PROCNAME  Export

;---------------------------------------------------------------
	DSECT ParameterSpace
xRecordHandle	long
horzPos	long
vertPos	long
;---------------------------------------------------------------

;---------------------------------------------------------------
	ldy  #12
	jsr  StandardEntry

	lda  horzPos		;convert horzPos down to a word value.
	ldx  horzPos+2		;..if it is still negative we use zero
	bpl  @positive		;..if it is bigger than $FFFF, we use $FFFF
	lda  #0
	bra  @useHorz
@positive	beq  @useHorz
	lda  #$FFFF
@useHorz	sta  TextHPos
;---------------------------------------------------------------
	ldy  #TERecord.VertScrollPos	;multiply the current scroll position by
	jsr  GetRecordLong		;..the vertAmount and add it from
	jsr  MultiplyByScrollAmount	;..our current position
	clc
	adc  vertPos
	sta  vertPos
	txa
	adc  vertPos+2
	sta  vertPos+2

	lda  vertPos		;offset our position by the viewrect.top
	sec
	ldy  #TERecord.ViewRect.top
	sbc  [RecordPtr],y
	sta  vertPos
	bcs  @1
	dec  vertPos+2
@1
	ldy  #TERecord.TopTextVPos
	lda  [RecordPtr],y
	addl vertPos
;---------------------------------------------------------------
	stzl TextOffset
	bra  enterLoop

mainLoop	jsr  FindLineInfo
	lda  vertPos
	sec
	sbc  LineHeight
	sta  vertPos
	lda  vertPos+2
	sbc  #0
	sta  vertPos+2
	bcc  foundLine
	jsr  MoveOffsetToNextItem
enterLoop	jsr  IsOffsetAtEnd
	bne  mainLoop
	bra  returnIt

foundLine	jsr  HPosToOffset
;---------------------------------------------------------------
returnIt	lda  TextOffset
	sta  ReturnSpace,s
	lda  TextOffset+2
	sta  ReturnSpace+2,s

	ldx  #0		;no error
error	brl  StandardExit
;---------------------------------------------------------------

	ENDP

****************************************************************

TEGetRuler	PROCNAME  Export

;---------------------------------------------------------------
	DSECT ParameterSpace
xRecordHandle	long
theRulerRef	long
theRulerVerb	word
;---------------------------------------------------------------

;---------------------------------------------------------------
	ldy  #10
	jsr  StandardEntry

	ldx  #teInvalidVerb		;check for an invalid verb
	lda  theRulerVerb
	and  #ÅrefIsMask
	bnel error

	ldy  #TERecord.RulerList
	jsr  PushRecordLong
	jsr  PushRecordLong
	jsr  GetHandleSize		;get the size of the ruler list into
	stax MoveLength		;..MoveLength
	jsr  LockHandle		;lock down the handle and put the pointer
	stax SourcePtr		;..in SourcePtr

	lda  theRulerVerb		;determine what type of reference we were
	and  #refIsMask		;..passed
;	cmp  #refIsPointer		;since refIsPointer is zero, don't compare
	beq  @doPointer
	cmp  #refIsHandle
	beq  @doHandle
	cmp  #refIsResource
	beq  @doResource
;---------------------------------------------------------------
@doNewHandle	jsr  makeNewHandle		;create the new handle
	ldy  #2
	lda  TempLong
	sta  [theRulerRef]
	lda  TempLong+2
	sta  [theRulerRef],y
	bra  @moveIt
;---------------------------------------------------------------
@doResource	PushLongSpace		;try to load the given resource
	PushWord #rTERuler	
	PushZLong theRulerRef
	_LoadResource
	tax
	pla
	sta  TempLong
	pla
	sta  TempLong+2
	bcc  @useThisRes		;if we were able to load it, then use the
	cpx  #$1E06		;..existing handle
	bne  unlockList		;on any other error, we exit

@makeNewRes	jsr  makeNewHandle		;we need to make a new one here, so create
	jsr  BlockMove		;..a new handle
	PushZLong TempLong		;the handle to make into a resource
	PushWord #$0300		;purgable
	PushWord #rTERuler
	PushZLong theRulerRef	;the resource ID
	_AddResource
	tax
	bra  unlockList

@useThisRes	jsr  resizeHandle
	jsr  BlockMove
	PushWord #$FFFF
	PushWord #rTERuler
	PushZLong theRulerRef
	_MarkResourceChange
	tax
	bra  unlockList
;---------------------------------------------------------------
@doHandle	movl theRulerRef,TempLong
	jsr  resizeHandle
	bra  @moveIt
;---------------------------------------------------------------
@doPointer	movl theRulerRef,DestPtr
;---------------------------------------------------------------
@moveIt	jsr  BlockMove
	ldx  #0
;---------------------------------------------------------------
unlockList	phx
	ldy  #TERecord.RulerList
	jsr  PushRecordLong
	jsr  UnlockHandle
	plx
	jsr  SetLastErrorCode

error	brl  StandardExit
;---------------------------------------------------------------



;---------------------------------------------------------------
makeNewHandle	ldax MoveLength
	jsr  GetLargeHandle
	bcs  memoryError
	stax TempLong
	bra  derefTempLong

resizeHandle	PushZLong TempLong
	ldax MoveLength
	jsr  SetHandleSize
	bcs  memoryError

derefTempLong	Deref TempLong,DestPtr
	rts

memoryError	pla		;pull off the return address
	bra  unlockList
;---------------------------------------------------------------

	ENDP

****************************************************************

TESetRuler	PROCNAME  Export

;---------------------------------------------------------------
	DSECT ParameterSpace
xRecordHandle	long
theRulerRef	long
theRulerVerb	word
;---------------------------------------------------------------

;---------------------------------------------------------------
	ldy  #10
	jsr  StandardEntry

	ldx  #teInvalidVerb		;check for an invalid verb
	lda  theRulerVerb
	and  #ÅrefIsMask
	bnel error

	lda  theRulerVerb		;determine what type of reference we were
	and  #refIsMask		;..passed
;	cmp  #refIsPointer		;since refIsPointer is zero, don't compare
	beq  doPointer
	cmp  #refIsHandle
	beq  doHandle
	cmp  #refIsResource
	bnel error
;---------------------------------------------------------------
doResource	ldy  #rTERuler
	ldax theRulerRef
	jsr  LoadResource
	bra  joinHandle
;---------------------------------------------------------------
doHandle	ldax theRulerRef

joinHandle	PushAX		;duplicate the item on the stack twice
	PushAX		;..for the lock and the get handle size
	PushAX
	jsr  GetHandleSize
	stax MoveLength
	jsr  LockHandle
	stax SourcePtr
	bra  copyTheRuler
;---------------------------------------------------------------
doPointer	movl theRulerRef,SourcePtr

	ldy  #TERuler.tabType
	lda  [SourcePtr],y
	iny
	iny
	cmp  #noTabs		;if no tabs, then this is it
	beq  @setLength
	iny
	iny
	cmp  #equalTabs
	beq  @setLength
	dey
	dey

@loop	lda  [SourcePtr],y
	iny
	iny
	inc  a		;fast compare with $FFFF
	bne  @loop

@setLength	sty  MoveLength
	stz  MoveLength+2
;---------------------------------------------------------------
copyTheRuler	ldy  #TERecord.RulerList
	jsr  PushRecordLong
	jsr  PushRecordLong
	ldax MoveLength
	jsr  SetHandleSize
	bcs  memoryError
	jsr  DerefHandle
	stax DestPtr

	jsr  BlockMove

	lda  theRulerVerb		;if the verb is refIsPointer, then skip
	beq  @skipUnlock		;..the unlock
	jsr  UnlockHandle
@skipUnlock
	jsr  InitialWordWrap
	jsr  DoDraw

	jsr  ClearSavedHPos		;clear the saved horizontal position
	jsr  SetDirtyFlag
;---------------------------------------------------------------
	ldx  #0		;no error
error	brl  StandardExit
;---------------------------------------------------------------
memoryError	pla
	pla
	phx
	PushZLong theRulerRef
	jsr  UnlockHandle
	plx
	jsr  SetLastErrorCode
	bra  error
;---------------------------------------------------------------

	ENDP

****************************************************************

TEScroll	PROCNAME  Export

;---------------------------------------------------------------
	DSECT ParameterSpace
xRecordHandle	long
horzAmount	long
vertAmount	long
theScrollVerb	word
;---------------------------------------------------------------

;---------------------------------------------------------------
	ldy  #14
	jsr  StandardEntry

	ldy  #TERecord.TextFlags+2	;check to see if we should scroll. If not
	lda  [RecordPtr],y		;..then exit
	and  #fNoScroll
	bne  exit

	ldx  #teInvalidVerb		;check for a verb overflow. If the verb
	lda  theScrollVerb		;..is ok, then jump thru the table.
	cmp  #6
	bge  error

	jsr  TakeCareOfUpdate	;make sure any update event is handled first

	lda  theScrollVerb
	asl  a
	tax
	jmp  (table,x)
;---------------------------------------------------------------
exit	ldx  #0		;no error
error	brl  StandardExit
;---------------------------------------------------------------

;---------------------------------------------------------------
table	dc.w  doTopOffset
	dc.w  doTopOffset
	dc.w  doTopLine
	dc.w  doTopLine
	dc.w  doSetValue
	dc.w  doOffsetValue
;---------------------------------------------------------------



;---------------------------------------------------------------
doTopLine	ldy  #TERecord.LineSuper
	jsr  GetSuperRecordPtr
	jsr  MoveToFirstSuperHandle
	jsr  GetSuperMaxIndex

	lda  vertAmount		;copy the line number into TempLong
	sta  TempLong
	lda  vertAmount+2
	sta  TempLong+2
	ora  TempLong		;if the line number to scroll to is zero
	beq  moveToOffset		;..then scroll to a text offset of zero
	stzl vertAmount		;otherwise start at zero

@outerLoop	ldy  #SuperBlock.RecordSize+2
@loop	lda  [TempPtr],y
	bmi  @skip
	tax
	dey
	dey
	lda  [TempPtr],y
	clc
	adc  vertAmount
	sta  vertAmount
	txa
	adc  vertAmount+2
	sta  vertAmount+2
	iny
	iny
	lda  TempLong
	bne  @1
	dec  TempLong+2
@1	dec  a
	sta  TempLong
	ora  TempLong+2
	beq  moveToOffset
@skip	tya
	clc
	adc  #8
	tay
	cpy  SuperMaxIndex
	blt  @loop
	jsr  MoveToNextHandle
	bcc  @outerLoop		;if we are at the end, then just move to
	bra  moveToOffset		;..the last offset
;---------------------------------------------------------------



;---------------------------------------------------------------
doTopOffset	ldy  #TERecord.TextLength	;make sure the amount is less than the
	jsr  GetRecordLong		;..total length. If it isn't, then clip
	cpx  vertAmount+2		;..it.
	blt  @clipIt
	bne  @checkEnd		;added this line 4-Oct-90 DAL (was clipping accidentally)
	cmp  vertAmount
	beq  @checkEnd
	bge  @findStart
@clipIt	stax vertAmount
@checkEnd	ldy  #TERecord.LineAtEndFlag	;now check for whether we have an extra
	lda  [RecordPtr],y		;..line at the end. If we do, then keep
	bne  @skip		;..the ending offset.

@findStart	movl vertAmount,TextOffset	;otherwise round down to the nearest line
	jsr  FindLineInfo		;..start
	movl SuperStart,vertAmount
@skip
;---------------------------------------------------------------



;---------------------------------------------------------------
moveToOffset	ldy  #TERecord.TopTextVPos
	lda  [RecordPtr],y
	sta  TempLong
	stz  TempLong+2

	jsr  GetScreenTopOffset
	cmpl vertAmount,TextOffset
	blt  moveBack
	jsr  FindLineInfo
	jsr  MoveOffsetToNextItem
	cmpl vertAmount,TextOffset
	blt  inFirstLine
;---------------------------------------------------------------
moveForward	jsr  GetScreenTopOffset
	jsr  NegateTempLong

@loop	jsr  FindLineInfo
	jsr  MoveOffsetToNextItem
	lda  LineHeight
	addl TempLong
	cmpl vertAmount,TextOffset
*** 28-Jan-92 DAL -- replace BNE with BGT to fix hang when scroll-to pos is not at beginning of line
;;;	bne  @loop
	beq  @done
	bcs  @loop
@done
*** end 28-Jan-92

	jsr  getCenterValue
	sta  TempWord
	ldax TempLong
	sec
	sbc  TempWord
	bcs  @1
	dex
	bpl  @1
	jsr  NegateAX
	bra  switchToBack
@1	jsr  DivideByScrollAmount
	bra  doTheScroll
;---------------------------------------------------------------
moveBack	jsr  GetScreenTopOffset

@loop	decl TextOffset
	jsr  FindLineStart
	lda  LineHeight
	addl TempLong
	cmpl vertAmount,TextOffset
	blt  @loop

inFirstLine	jsr  getCenterValue
	ldx  TempLong+2
	clc
	adc  TempLong
	bcc  switchToBack
	inx
switchToBack	jsr  DivideByScrollAmount
	jsr  NegateAX
	bra  doTheScroll
;---------------------------------------------------------------



;---------------------------------------------------------------
doSetValue	ldy  #TERecord.VertScrollPos	;get the difference between the new value
	lda  vertAmount		;..and the old one and store it back in
	sec		;..vertAmount.
	sbc  [RecordPtr],y
	sta  vertAmount
	iny
	iny
	lda  vertAmount+2
	sbc  [RecordPtr],y		;then, fall through into doOffsetValue
	sta  vertAmount+2		;..to do the actual scroll

doOffsetValue	ldax vertAmount		;A-Reg and X-Reg contain the amount to scroll
;---------------------------------------------------------------
doTheScroll	jsr  ScrollByAmount		;..Then do it and fall thru into Exit
	brl  exit
;---------------------------------------------------------------



;---------------------------------------------------------------
getCenterValue	lda  theScrollVerb
	dec  a		;small compare with one
	beq  @doCenter
	dec  a		;small compare with three
	dec  a
	beq  @doCenter
	lda  #0
	rts

@doCenter	jsr  GetViewRect
	lda  TempRect.bottom
	sec
	sbc  TempRect.top
	lsr  a
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

TEGetDefProc	PROCNAME  Export

;---------------------------------------------------------------
	DefineStack
RTL1	block 3
RTL2	block 3
output	long
;---------------------------------------------------------------

	lda  #TEDefProc		;return the defProc pointer
	sta  output,s
	lda  #^TEDefProc
	sta  output+2,s

	brl  NullRoutine
;---------------------------------------------------------------

	ENDP

****************************************************************

TEGetInternalProc	PROCNAME  Export

;---------------------------------------------------------------
	DefineStack
RTL1	block 3
RTL2	block 3
output	long
;---------------------------------------------------------------

	lda  #TEInternalProc	;return the internal proc pointer
	sta  output,s
	lda  #^TEInternalProc
	sta  output+2,s

	brl  NullRoutine
;---------------------------------------------------------------

	ENDP

****************************************************************

TEInternalProc	PROCNAME  Export

	rtl

	ENDP

****************************************************************

TEGetLastError	PROCNAME  Export

;---------------------------------------------------------------
	DSECT ParameterSpace
xRecordHandle	long
clearFlag	word
;---------------------------------------------------------------

;---------------------------------------------------------------
	pha		;clear the stack error code
	lda  #0
	sta  15,s
	pla

	ldy  #6
	jsr  StandardEntry

	ldy  #TERecord.LastErrorCode
	lda  [RecordPtr],y
	sta  ReturnSpace,s

	lda  clearFlag
	beq  exit
	ldy  #TERecord.LastErrorCode
	lda  #0
	sta  [RecordPtr],y

exit	ldx  #0		;no error
	brl  StandardExit
;---------------------------------------------------------------

	ENDP

****************************************************************

TECompactRecord	PROCNAME  Export

;---------------------------------------------------------------
	DefineStack
userBank	byte
userDirectPage	word
userReturnAddr	block  6
xSpace1	long		;this is the space for the old RecordHandle
xSpace2	long		;..and RecordPtr. these declarations make
xRecordHandle	long		;..sure that xRecordHandle is correct.
;---------------------------------------------------------------

;---------------------------------------------------------------
	jsl  IncBusyFlg		;increment busy flag (doesn't change ANYTHING)
	phd		;save the user's direct page
	phb		;save the user's data bank

	ldx  #teNotStarted		;load the not started error, just in case
	tay		;..then, check to see if TextEdit is
	beq  exit		;..started
	tcd		;set textedit's direct page
	phk		;set the data bank to textedit's program
	plb		;..bank

	PushZLong RecordHandle	;save the old record handle and the old
	PushZLong RecordPtr		;..record pointer
	lda  xRecordHandle,s	;copy the record handle
	sta  RecordHandle
	lda  xRecordHandle+2,s
	sta  RecordHandle+2
	ldy  #4		;save the locked state of the record handle
	lda  [RecordHandle],y	;lock the main record handle and deref
	pha		;..it
	ora  #$8000
	sta  [RecordHandle],y
	jsr  DerefRecordHandle
;---------------------------------------------------------------
	ldy  #TERecord.LineSuper	;compact the line starts
	jsr  CompactSuperHandle

	ldy  #TERecord.StyleSuper	;compact the style runs
	jsr  CompactSuperHandle

	jsr  CompactStyleList	;compact the style list
;---------------------------------------------------------------
	ldy  #4		;restore the state of the record handle
	pla
	sta  [RecordHandle],y
	PullLong RecordPtr
	PullLong RecordHandle

	ldx  #0		;no error
;---------------------------------------------------------------
exit	lda  userReturnAddr+4,s	;copy the return address over the parameters
	sta  userReturnAddr+8,s
	lda  userReturnAddr+2,s
	sta  userReturnAddr+6,s
	lda  userReturnAddr,s
	sta  userReturnAddr+4,s
	plb		;restore the user's data bank
	pld		;restore user's direct page
	pla		;clean the parameter off the stack
	pla

	txa		;put the error code into A
	cmp  #1		;set the carry flag
	jml  DecBusyFlg		;decrement busy flag and return to caller
;---------------------------------------------------------------

	ENDP

****************************************************************

CompactStyleList	PROCNAME  Export

;---------------------------------------------------------------
FirstHandle	equ  WorkArea
;---------------------------------------------------------------

;---------------------------------------------------------------
	lda  RecordInUse		;if this record is in use, then don't
	cmp  RecordHandle		;..crunch the style list
	bne  doIt
	lda  RecordInUse+2
	cmp  RecordHandle+2
	bne  doIt
	rts
;---------------------------------------------------------------
doIt	PushZLong TempPtr		;save all the variables we are going to
	PushZLong SuperRecordPtr	;..use
	PushZLong TheSuperHandle
	PushZLong TextStyleOffset
	PushZWord SuperMaxIndex
	PushZWord TempWord
	PushZLong MoveLength

	PushZLong FirstHandle
;---------------------------------------------------------------
	ldy  #TERecord.StyleSuper	;setup super record pointer
	jsr  GetSuperRecordPtr

	jsr  MoveToFirstSuperHandle	;save the first super handle
	movl TheSuperHandle,FirstHandle

	jsr  GetSuperMaxIndex	;get and save the SuperMaxIndex

	ldy  #TERecord.StyleList	;scan thru the style list backwards stripping
	jsr  PushRecordLong		;..off the styles at the very end that are
	jsr  GetHandleSize		;..NOT used
	sec
	sbc  #4
	bcs  @loop
	dex
@loop	stax MoveLength
	sec
	sbc  #TEStyle.RecordSize
	bcs  @1
	dex
@1	stax TextStyleOffset
	jsr  LookForStyle
	bcc  checkAll
	ldax TextStyleOffset
	bra  @loop
;---------------------------------------------------------------
checkAll	stzl TextStyleOffset	;now start scanning forwards thru the styles

@loop	jsr  LookForStyle		;is the style used ? If so, move to the
	bcc  @nextStyle		;..next style

	lda  MoveLength		;the style was NOT used here, so check to
	sec		;..see if we are at the end of the new
	sbc  #TEStyle.RecordSize	;..style list. If we are, then we are thru
	sta  MoveLength
	bcs  @1
	dec  MoveLength+2
@1	lda  TextStyleOffset
	cmp  MoveLength
	bne  @2
	lda  TextStyleOffset+2
	cmp  MoveLength+2
	beq  @done		;swap this style with the one at the end
@2	jsr  SwapOutTheStyle

@nextStyle	lda  TextStyleOffset	;move TextStyleOffset to the next item
	clc		;..in the list.
	adc  #TEStyle.RecordSize
	sta  TextStyleOffset
	bcc  @3
	inc  TextStyleOffset+2
@3	cmp  MoveLength		;are we at the end ? If we are, then
	bne  @loop		;..resize the list
	lda  TextStyleOffset+2
	cmp  MoveLength+2
	bne  @loop
@done
;---------------------------------------------------------------
resizeList	ldy  #TERecord.StyleList
	jsr  PushRecordLong
	jsr  PushRecordLong
	ldax MoveLength		;add an extra four for the terminator
	clc
	adc  #4
	bcc  @1
	inx
@1	jsr  SetHandleSize
	jsr  DerefHandle
	clc
	adc  MoveLength
	sta  TempPtr
	txa
	adc  MoveLength+2
	sta  TempPtr+2
	ldy  #0
	jsr  TerminateTempPtr
;---------------------------------------------------------------
	PullLong FirstHandle

	PullLong MoveLength
	PullWord TempWord
	PullWord SuperMaxIndex
	PullLong TextStyleOffset
	PullLong TheSuperHandle
	PullLong SuperRecordPtr
	PullLong TempPtr
	rts
;---------------------------------------------------------------



;---------------------------------------------------------------
LookForStyle	movl FirstHandle,TheSuperHandle
	jsr  SuperHandleToPtr

@blockLoop	ldy  #SuperBlock.RecordSize+2
@itemLoop	sty  TempWord
	lda  [TempPtr],y
	bmi  @nextItem
	iny
	iny
	lda  [TempPtr],y
	cmp  TextStyleOffset
	bne  @nextItem
	iny
	iny
	lda  [TempPtr],y
	cmp  TextStyleOffset+2
	beq  @foundIt
@nextItem	lda  TempWord
	clc
	adc  #SuperItemSize
	tay
	cpy  SuperMaxIndex
	blt  @itemLoop
	jsr  MoveToNextHandle
	bcc  @blockLoop
	rts		;carry set indicates NOT found.

@foundIt	clc
	rts
;---------------------------------------------------------------



;---------------------------------------------------------------
SwapOutTheStyle	movl FirstHandle,TheSuperHandle
	jsr  SuperHandleToPtr

@blockLoop	ldy  #SuperBlock.RecordSize+2
@itemLoop	sty  TempWord
	lda  [TempPtr],y
	bmi  @nextItem
	iny
	iny
	lda  [TempPtr],y
	cmp  MoveLength
	bne  @nextItem
	iny
	iny
	lda  [TempPtr],y
	cmp  MoveLength+2
	bne  @nextItem
	lda  TextStyleOffset+2
	sta  [TempPtr],y
	dey
	dey
	lda  TextStyleOffset
	sta  [TempPtr],y

@nextItem	lda  TempWord
	clc
	adc  #SuperItemSize
	tay
	cpy  SuperMaxIndex
	blt  @itemLoop
	jsr  MoveToNextHandle
	bcc  @blockLoop

	ldy  #TERecord.StyleList
	jsr  PushRecordLong
	jsr  DerefHandle
	pha
	clc
	adc  TextStyleOffset
	sta  DestPtr
	txa
	adc  TextStyleOffset+2
	sta  DestPtr+2
	pla
	adc  MoveLength		;carry is always clear here
	sta  SourcePtr
	txa
	adc  MoveLength+2
	sta  SourcePtr+2

	ldy  #TEStyle.RecordSize-2
@copyLoop	lda  [SourcePtr],y
	sta  [DestPtr],y
	dey
	dey
	bpl  @copyLoop

	PushZLong TextStyleOffset
	ldax MoveLength
@lookLoop	stax MoveLength
	sec
	sbc  #TEStyle.RecordSize
	bcs  @1
	dex
@1	stax TextStyleOffset
	jsr  LookForStyle
	bcc  @done
	ldax TextStyleOffset
	bra  @lookLoop
@done	PullLong TextStyleOffset
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

SetTheWAP	PROCNAME  Entry

	PushWord #0		;system toolset
	PushWord #TEToolNumber	;toolset number for textedit
	pea  $0000		;set the WAP to A-Reg
	pha
	_SetWAP
	rts

	ENDP

****************************************************************

GetDirectPage	PROCNAME  Export

	PushLongSpace
	PushWord #0		;system toolset
	PushWord #TEToolNumber	;toolset number for textedit
	_GetWAP
	PullAX
	rts

	ENDP

****************************************************************
; A-Reg,X-Reg are the parameters and Y-Reg is the message
;
CallDefProc	PROCNAME  Export

	PushLongSpace		;leave space for the result
	phy		;pass the message
	PushAX		;pass the parameters
	PushZLong RecordHandle	;pass the record handle
	jsl  TEDefProc		;call the defProc
	jsr  LockRecordHandle	;lock the record back down
	PullAX		;get back the returned value
	rts

	ENDP

****************************************************************

TakeCareOfUpdate	PROCNAME  Export

;---------------------------------------------------------------
	jsr  GetTEHighFlags		;if the textedit record is not a control
	and  #fNotControl		;..then don't do this
	bne  noUpdate

	jsr  GetWindowPortPtr	;get the update region pointer into
	ldy  #WindowRecord.wUpdateRgn+2	;..memoryPtr
	jsr  PushTempPtrLong
	jsr  DerefHandle
	stax MemoryPtr

	lda  [MemoryPtr]		;check the update region to see if it is
	cmp  #10		;..empty
	bne  checkForUpdate
	ldy  #Rgn.bounds.top
	lda  [MemoryPtr],y
	ldy  #Rgn.bounds.bottom
	cmp  [MemoryPtr],y
	bpl  noUpdate
	ldy  #Rgn.bounds.left
	lda  [MemoryPtr],y
	ldy  #Rgn.bounds.right
	cmp  [MemoryPtr],y
	bmi  checkForUpdate
;---------------------------------------------------------------
noUpdate	rts
;---------------------------------------------------------------
checkForUpdate	ldy  #TERecord.BoundsRect	;get the bounds rect of the textedit box
	jsr  CopyIntoTempRect	;..into TempRect

	ldy  #GrafPort.BoundsRect.top	;convert TempRect.topLeft into global
	lda  TempRect.top		;..coordinates
	sec
	sbc  [TempPtr],y
	sta  TempRect.top
	iny
	iny
	lda  TempRect.left
	sec
	sbc  [TempPtr],y
	sta  TempRect.left

	ldy  #GrafPort.BoundsRect.top	;convert TempRect.botRight into global
	lda  TempRect.bottom	;..coordinates
	sec
	sbc  [TempPtr],y
	sta  TempRect.bottom
	iny
	iny
	lda  TempRect.right
	sec
	sbc  [TempPtr],y
	sta  TempRect.right

	ldy  #Rgn.bounds.top	;if the top of the update region is greater
	lda  [MemoryPtr],y		;..than the bottom of the textedit box
	cmp  TempRect.bottom	;..then they don't intersect
	bge  noUpdate
	ldy  #Rgn.bounds.bottom	;if the bottom of the update region is
	lda  [MemoryPtr],y		;..less than the top of the textedit
	cmp  TempRect.top		;..box then they don't intersect
	ble  noUpdate

	ldy  #Rgn.bounds.left	;if the left of the update region is greater
	lda  [MemoryPtr],y		;..than the right of the textedit box
	cmp  TempRect.right		;..then they don't intersect
	bge  noUpdate
	ldy  #Rgn.bounds.right	;if the right of the update region is
	lda  [MemoryPtr],y		;..less than the left of the textedit
	cmp  TempRect.left		;..box then they don't intersect
	ble  noUpdate
;---------------------------------------------------------------
mustUpdate	ldy  #WindowRecord.wUpdateRgn+2	;save the old update region handle
	jsr  PushTempPtrLong

	jsr  GetNewRgn		;get a new temp region for our update region
	PushAX		;for the kill region
	stax TempLong

	ldy  #WindowRecord.wUpdateRgn+2
	jsr  PushTempPtrLong
	PushZLong TempLong
	_CopyRgn

	PushZLong TempLong
	ldy  #GrafPort.BoundsRect.topLeft+2
	jsr  PushTempPtrLong
	_OffsetRgn

	ldy  #GrafPort.VisRgn+2
	jsr  PushTempPtrLong
	PushZLong TempLong
	PushZLong TempLong
	_SectRgn

	ldy  #WindowRecord.wUpdateRgn
	lda  TempLong
	sta  [TempPtr],y
	iny
	iny
	lda  TempLong+2
	sta  [TempPtr],y

	jsr  swapVisAndUpdate	;swap the visible and update regions so

	ldy  #TERecord.SelectionActive	;..we clip to the update region
	lda  [RecordPtr],y
	tax
	lda  #0
	ldy  #drawCtl		;the message is draw
	jsr  CallDefProc

	jsr  GetVertScrollBar
	beq  @1
	PushAX
	_DrawOneCtl
@1
	jsr  GetGrowBoxHandle
	beq  @2
	PushAX
	_DrawOneCtl
@2	
	jsr  GetWindowPortPtr
	jsr  swapVisAndUpdate	;restore the original visible region

	jsr  KillRgn
	ldy  #WindowRecord.wUpdateRgn	;restore the original update handle
	pla
	sta  [TempPtr],y
	iny
	iny
	pla
	sta  [TempPtr],y

	ldy  #TERecord.BoundsRect	;validate the bounds rect of the textedit
	jsr  CopyIntoTempRect	;..control, so we don't draw it twice
	PushZPtr TempRect
	_ValidRect

	rts
;---------------------------------------------------------------



;---------------------------------------------------------------
swapVisAndUpdate	ldy  #GrafPort.VisRgn
	lda  [TempPtr],y
	sta  TempLong
	iny
	iny
	lda  [TempPtr],y
	sta  TempLong+2
	ldy  #WindowRecord.wUpdateRgn+2
	lda  [TempPtr],y
	tax
	dey
	dey
	lda  [TempPtr],y
	ldy  #GrafPort.VisRgn
	sta  [TempPtr],y
	iny
	iny
	txa
	sta  [TempPtr],y
	ldy  #WindowRecord.wUpdateRgn
	lda  TempLong
	sta  [TempPtr],y
	iny
	iny
	lda  TempLong+2
	sta  [TempPtr],y
	rts
;---------------------------------------------------------------



;---------------------------------------------------------------
PushTempPtrLong	plx
	lda  [TempPtr],y
	pha
	dey
	dey
	lda  [TempPtr],y
	pha
	phx
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/TextEdit/idle.aii b/IIGS.601.SRC/GSToolbox/TextEdit/idle.aii
new file mode 100644
index 0000000..a7797cb
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/TextEdit/idle.aii
@@ -0,0 +1 @@
+**********************************************************************
*
*                      GSTextEdit  Version 1.0
*                           File: idle.aii
*
*               Copyright Apple Computer, Inc. 1988-89
*                        All rights reserved
*
*
*
*
* Notes
*
* All the routines in GSTextEdit must be called in full native mode and
* return that way.
*
* All the files in GSTextEdit must be assembled with the "-unsafe"
* option to pass unresolved references to the linker.
*
*
*
*
* Change History
*
* 30 May 89	Dave Good
*
* Cleaned up comments for final release.
*
* 9-Feb-92	Dave Lyons
*
* Fixed don't-blink-the-caret fix so the insertion point shows up
* (before you start typing) if the cursor blink is set to 0.
*
**********************************************************************


	INCLUDE  'GlobalIncludes'


****************************************************************

DoIdleEvent	PROCNAME  Export

;---------------------------------------------------------------
doFixBlocks	php		;disable interrupts for this
	sei
	lda  >TickCnt+2
	tax
	lda  >TickCnt
	plp		;restore interrupt status
	cmpl BlockListTickCount	;should we call the main split routine ?
	blt  @skip
	clc
	adc  #10		;this goes off every ten ticks
	bcc  @1
	inx
@1	stax BlockListTickCount

	jsr  FixBlockList
@skip
;---------------------------------------------------------------
doBlink	jsr  AreWeInvisible		;if we are invisible, then don't blink
	bne  @toDone		;..the cursor

	jsr  GetTEHighFlags		;should we be selecting text ? If not,
	and  #fDisableSelection	;..then we shouldn't idle
	bne  done

	ldy  #TERecord.CtrlMoreFlags	;if the record is not active then exit
	lda  [RecordPtr],y
	bpl  done

	jsr  IsTheSelectionACaret
@toDone	bne  done

	PushLongSpace		;get the current flash time
	_GetCaretTime
;
; 2/14/90	Mensch
; added a test for zero comming back from this call.
;
	lda 1,s		; get the long value
	ora 3,s		; or it with itself
	bne @CaretTimeOK
	pla		; discard the data
	pla
*** added 9-Feb-92 DAL -- If the caret time is zero but there is no caret showing
***   yet, then we had better invert the thing for the first time.
	ldy #TERecord.SelectionState
	lda [RecordPtr],y
	beq mustBlink
*** end 9-Feb-92
	brl done		; and exit

@CaretTimeOK
	ldy  #TERecord.CaretTime
	pla
	clc
	adc  [RecordPtr],y
	sta  TempLong
	iny
	iny
	pla
	adc  [RecordPtr],y
	sta  TempLong+2

	php		;disable interrupts for this
	sei
	lda  >TickCnt
	sta  TempPtr
	lda  >TickCnt+2
	sta  TempPtr+2
	plp		;restore interrupt status

	lda  TempPtr+2
	cmp  TempLong+2
	blt  done
	bne  mustBlink
	lda  TempPtr
	cmp  TempLong
	blt  done

mustBlink	jsr  InvertSelection	;flip the cursor
	ldy  #TERecord.SelectionState
	lda  #0
	cmp  [RecordPtr],y
	bne  @setIt
	dec  a
@setIt	sta  [RecordPtr],y

	php		;save the interrupt state
	sei		;disable interrupts for this
	lda  >TickCnt		;time stamp the last time the selection
	ldy  #TERecord.CaretTime	;..went on.
	sta  [RecordPtr],y
	iny
	iny
	lda  >TickCnt+2
	sta  [RecordPtr],y
	plp		;restore interrupt status

done	rts
;---------------------------------------------------------------


;---------------------------------------------------------------
BlockListTickCount	dc.l  0
;---------------------------------------------------------------

	ENDP

****************************************************************

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/TextEdit/key.aii b/IIGS.601.SRC/GSToolbox/TextEdit/key.aii
new file mode 100644
index 0000000..dcf2fed
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/TextEdit/key.aii
@@ -0,0 +1 @@
+**********************************************************************
*
*                      GSTextEdit  Version 1.0
*                           File: key.aii
*
*               Copyright Apple Computer, Inc. 1988-89
*                        All rights reserved
*
*
*
*
* Notes
*
* All the routines in GSTextEdit must be called in full native mode and
* return that way.
*
* All the files in GSTextEdit must be assembled with the "-unsafe"
* option to pass unresolved references to the linker.
*
*
*
*
* Change History
*
* 30 May 89	Dave Good
*
* Cleaned up comments for final release.
*
**********************************************************************


	INCLUDE  'GlobalIncludes'


****************************************************************

DoKeystroke	PROCNAME  Export

;---------------------------------------------------------------
	_ObscureCursor		;obscure the cursor for typing

	jsr  ShrinkInputHandle	;size the input handle down to one byte
	jsr  DerefInputHandle	;..then deref it into InputTextPtr

	ldy  #EventRecord.message	;copy the character into the input text
	shortm		;..handle. make sure we are in SHORT mode
	lda  [TheEventPtr],y	;..since the input handle could be just
	sta  [InputTextPtr]		;..one character
	longm
	and  #$00FF		;clear the high byte of the character
	ldy  #TERecord.theKeyRecord.theChar	;copy the character into the character
	sta  [RecordPtr],y		;..field

	ldy  #EventRecord.modifiers	;copy the modifiers into the modifiers
	lda  [TheEventPtr],y	;..field
	ldy  #TERecord.theKeyRecord.theModifiers
	sta  [RecordPtr],y

	ldy  #TERecord.KeyFilter+1	;check for a filter routine
	lda  [RecordPtr],y
	beq  noFilter
;---------------------------------------------------------------
useFilter	tax		;get the filterProcPtr into A-Reg and
	dey		;..X-Reg
	lda  [RecordPtr],y

	PushZLong RecordHandle	;pass the current record handle
	PushWord #1		;this tells the filter to accept a single char
	jsl  LongCall		;A-Reg and X-Reg contain the filterProcPtr

	ldy  #TERecord.theKeyRecord.theOpCode	;get the operation code to execute, put
	lda  [RecordPtr],y		;..it in X-Reg and use as an index into
	tax		;..the jump table. Note we never come
	jmp  (table,x)		;..back here.
;---------------------------------------------------------------
noFilter	jsr  DerefInputHandle	;deref the handle back into InputTextPtr

	ldy  #TERecord.theKeyRecord.theModifiers
	lda  [RecordPtr],y		;get the modifiers into the X-Reg
	sta  TheModifierWord
	tax

	lda  [InputTextPtr]		;get the character into the A-Reg and
	and  #$00FF		;..check for the arrow keys first
	cmp  #$08
	beql doLeftArrow
	cmp  #$15
	beql doRightArrow
	cmp  #$0A
	beql doDownArrow
	cmp  #$0B
	beql doUpArrow

	cmp  #$7f		;is it the delete key ?
	beql doLeftDelete

	txa		;get back the modifiers and check for the
	and  #appleKey		;..apple key being down. if so, then exit
	bne  ignoreIt
	txa		;get back the modifiers and check for the
	and  #controlKey		;..control key being down
	shortm		;switch to short mode for space reasons
	bne  controlDown
;---------------------------------------------------------------
controlUp	lda  [InputTextPtr]		;get the character into the A-Reg

	ldx  #opClear		;check for the CLEAR key
	cmp  #$18
	beq  doTheJump

	ldx  #opReplaceText		;check for an insertable character
	cmp  #CR		;Carriage return
	beq  doTheJump
	cmp  #TAB		;TAB
	beq  doTheJump
	cmp  #' '		;NOT a unknown control key.
	bge  doTheJump
;---------------------------------------------------------------
ignoreIt	rep  #$20		;switch back to long mode, but still
	rts		;..assemble in short mode
;---------------------------------------------------------------
controlDown	lda  [InputTextPtr]		;put the character in A-Reg for now

	ldx  #opCut
	cmp  #$18		;is it the cut key (Ctrl-X) ?
	beq  doTheJump

	ldx  #opCopy
	cmp  #$03		;is it the copy key (Ctrl-C) ?
	beq  doTheJump

	ldx  #opPaste
	cmp  #$16		;is it the paste key (Ctrl-V) ?
	beq  doTheJump

	cmp  #$19		;is it the delete to EOL key (Ctrl-Y) ?
	beq  doDeleteEOL

	cmp  #$06		;is it the delete right key (Ctrl-F) ?
	beq  doRightDelete

	cmp  #$04		;is it the Ctrl-D key ?
	beq  doLeftDelete

	bne  ignoreIt		;..if not, then it is unknown, so ignore it
;---------------------------------------------------------------
doTheJump	longm		;back to long mode
	jmp  (table,x)		;execute the right code from the jump table
;---------------------------------------------------------------



;---------------------------------------------------------------
doDeleteEOL	rep  #$20
	jsr  GetTEHighFlags		;check to see if the record is editable
	and  #fReadOnly		;..or not
	bne  @exit
	jsr  GetSelectionStart
	jsr  IsOffsetAtEnd
	bne  @notAtEnd
@exit	rts

@notAtEnd	jsr  UnhilightSelection
	jsr  FindLineInfo
	jsr  MoveOffsetToNextItem
	decl TextOffset
	jsr  FindTextPtr
	lda  [TextPtr]
	and  #$00FF
	cmp  #CR		;don't remove the ending carriage return
	beq  @setIt
	incl TextOffset

@setIt	jsr  SetSelectionEnd
	brl  RemoveText
;---------------------------------------------------------------



;---------------------------------------------------------------
table	dc.w  noFilter		;opNormal
	dc.w  ignoreIt		;opNothing
	dc.w  doReplaceText		;opReplaceText
	dc.w  doMoveSelection	;opMoveCursor
	dc.w  doExtendLeft		;opExtendLeft
	dc.w  doExtendRight		;opExtendRight
	dc.w  CutGuts		;opCut
	dc.w  CopyGuts		;opCopy
	dc.w  PasteGuts		;opPaste
	dc.w  ClearGuts		;opClear
;---------------------------------------------------------------

	ENDP

****************************************************************

Key1Proc	PROC

;---------------------------------------------------------------
	ENTRY  doLeftDelete
	ENTRY  doRightDelete
;---------------------------------------------------------------

;---------------------------------------------------------------
doRightDelete	jsr  commonSetup
	jsr  IsOffsetAtEnd
	beq  atEdge
	incl TextOffset		;the end is one more than the start
	jsr  SetSelectionEnd
	decl TextOffset
	bra  doIt
;---------------------------------------------------------------
doLeftDelete	jsr  commonSetup
	lda  TextOffset
	ora  TextOffset+2
	beq  atEdge
	decl TextOffset		;the start is one less than the end
	jsr  SetSelectionStart
;---------------------------------------------------------------
doIt	jsr  FindStyleInfo
	pea  $0000
	lda  SuperLength+2
	bne  @removeIt
	lda  SuperLength
	dec  a		;quick compare with one. If not one then
	bne  @removeIt		;..exit

	jsr  SetupStylePtr
	ldy  #0
	lda  #TERecord.NullStyle
	clc
	adc  RecordPtr
	sta  MemoryPtr
	tya
	adc  RecordPtr+2
	sta  MemoryPtr+2
@loop	lda  [TempPtr],y
	sta  [MemoryPtr],y
	iny
	iny
	cpy  #TEStyle.RecordSize
	blt  @loop
	lda  #$FFFF
	sta  1,s
@removeIt
	jsr  RemoveText		;this will hilight the new selection

	pla
	ldy  #TERecord.NullStyleActive
	sta  [RecordPtr],y
	rts
;---------------------------------------------------------------
atEdge	brl  HilightSelection
;---------------------------------------------------------------



;---------------------------------------------------------------
commonSetup	rep  #$20		;turn long mode back on

	jsr  GetTEHighFlags		;check to see if the record is editable
	and  #fReadOnly		;..or not
	bne  @exit

	jsr  IsTheSelectionACaret	;if the selection is a caret, unhilight
	bne  @notACaret		;..it and return
	jsr  UnhilightSelection
	brl  GetSelectionStart

@notACaret	pla		;remove one return address
	brl  RemoveText		;remove the selection

@exit	pla
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

setupAnchorPoint	PROCNAME  Entry

;---------------------------------------------------------------
	jsr  IsTheSelectionACaret	;if the selection is NOT a caret, then
	bne  @notACaret		;..use the saved anchor point

@isACaret	ldy  #TERecord.SelectionStart	;it was a caret, so the saved anchor point
	jsr  GetRecordLong		;..is invalid. Get the selection start and
	stax AnchorPointStart	;..set the anchor point to that. Also save
	ldy  #TERecord.AnchorPoint	;..this in the TERecord
	brl  SetRecordLong

@notACaret	ldy  #TERecord.AnchorPoint	;use the saved anchor point
	jsr  GetRecordLong
	stax AnchorPointStart
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

moveToACaret	PROCNAME  Entry

;---------------------------------------------------------------
	ldy  #TERecord.SelectionStart	;check to see if the selection changed
	jsr  GetRecordLong		;..if it did, then clear the null style
	cmp  TextOffset
	bne  @clearNull
	cpx  TextOffset+2
	bne  @clearNull
	ldy  #TERecord.SelectionEnd
	jsr  GetRecordLong
	cmp  TextOffset
	bne  @clearNull
	cpx  TextOffset+2		;if the selection did NOT change, then
	beq  @skipClear		;..don't clear the null style

@clearNull	jsr  ClearNullStyle

@skipClear	jsr  UnhilightSelection	;take the old selection off the screen
	jsr  SetSelectionStart	;..set the new one, and put it back on
	jsr  SetSelectionEnd	;..the screen
	jsr  HilightSelection

	ldy  #TERecord.SelectionStart	;scroll to the start of the new selection
	brl  ScrollToSelection
;---------------------------------------------------------------

	ENDP

****************************************************************

removeTheCaret	PROCNAME  Entry

;---------------------------------------------------------------
	jsr  GetRecordLong		;Y-Reg tells which end of the selection
	cmp  TextOffset		;..to check. If this end didn't change
	bne  @1		;..then pull off one return address and
	cpx  TextOffset+2		;..exit
	bne  @1
	pla
	rts

@1	jsr  IsTheSelectionACaret	;if the selection is not a caret, then
	bne  @2		;..it is already on the screen
	jsr  UnhilightSelection	;take the caret off the screen, but leave
	ldy  #TERecord.SelectionState	;..it marked as ON screen, so when we
	lda  #$FFFF		;..extend it, the state is correct
	sta  [RecordPtr],y
@2	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

fixTheCaret	PROCNAME  Entry

;---------------------------------------------------------------
	phy		;save the Y-Reg (the routine preserves Y-Reg)
	jsr  IsTheSelectionACaret	;if the selection is not a caret then we
	bne  @exit		;..are OK, so exit

	ldy  #TERecord.SelectionState	;the selection is a caret, but not visible
	lda  #0		;..so mark it off screen
	sta  [RecordPtr],y
@exit	ply		;restore the Y-Reg
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

decTextOffset	PROCNAME  Entry

;---------------------------------------------------------------
	lda  TextOffset		;if TextOffset is already zero, then pull
	bne  @1		;..one set of return addreses and exit
	lda  TextOffset+2
	beq  @2
	dec  TextOffset+2
@1	dec  TextOffset
	rts

@2	pla
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

checkAndSwap	PROCNAME  Entry

;---------------------------------------------------------------
	phy
	jsr  GetSelectionStart	;make sure the end is greater than or
	ldy  #TERecord.SelectionEnd	;..equal to the source
	jsr  GetRecordLong
	cmpl TextOffset
	bge  @exit

@swapThem	ldy  #TERecord.SelectionStart	;if not, then swap the selection start and
	jsr  SetRecordLong		;..end
	jsr  SetSelectionEnd
	lda  #TERecord.SelectionStart
	cmp  1,s
	bne  @useA
	lda  #TERecord.SelectionEnd
@useA	sta  1,s

@exit	ply
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

doLeftArrow	PROCNAME  Entry

;---------------------------------------------------------------
	jsr  ClearSavedHPos		;clear the saved horizontal position

	lda  TheModifierWord
	and  #shiftKey
	bne  extendIt
;---------------------------------------------------------------
noExtend	jsr  GetSelectionStart
	jsr  adjustTextOffset

	brl  moveToACaret
;---------------------------------------------------------------
extendIt	jsr  ClearNullStyle		;clear the null style active
	jsr  setupAnchorPoint	;setup the anchor point

	ldy  #TERecord.SelectionStart
	jsr  GetRecordLong
	cmp  AnchorPointStart
	bne  @extendIt
	cpx  AnchorPointStart+2
	bne  @extendIt
	ldy  #TERecord.SelectionEnd
	jsr  GetRecordLong
	cmp  AnchorPointStart
	bne  @contractIt
	cpx  AnchorPointStart+2
	beq  @extendIt

@contractIt	jsr  GetSelectionEnd
	jsr  adjustTextOffset
	ldy  #TERecord.SelectionEnd
	jsr  removeTheCaret
	jsr  SetSelectionStart
	jsr  InvertSelection
	jsr  GetSelectionStart
	jsr  SetSelectionEnd
	ldy  #TERecord.SelectionStart
	ldax AnchorPointStart
	jsr  SetRecordLong
	ldy  #TERecord.SelectionEnd	;checkAndSwap will set Y-Reg to the correct
	jsr  checkAndSwap		;..end of the selection to scroll to.
	jsr  fixTheCaret		;this routine preserves the Y-Reg
	brl  ScrollToSelection

@extendIt	jsr  GetSelectionStart
	jsr  adjustTextOffset
	ldy  #TERecord.SelectionStart
	jsr  removeTheCaret
	ldy  #TERecord.SelectionEnd
	jsr  PushRecordLong
	ldy  #TERecord.SelectionStart
	jsr  GetRecordLong
	ldy  #TERecord.SelectionEnd
	jsr  SetRecordLong
	jsr  SetSelectionStart
	jsr  InvertSelection
	PullAX
	ldy  #TERecord.SelectionEnd
	jsr  SetRecordLong
	jsr  fixTheCaret
	ldy  #TERecord.SelectionStart
	brl  ScrollToSelection
;---------------------------------------------------------------



;---------------------------------------------------------------
adjustTextOffset	lda  TheModifierWord
	and  #optionKey
	bne  @doLineStart
	lda  TheModifierWord
	and  #appleKey
	bne  @doWordLeft

@doCharLeft	jsr  decTextOffset
	rts

@doWordLeft	jsr  decTextOffset
	jsr  FindTextPtr
	lda  [TextPtr]
	jsr  IsItAWordBreak
	bcs  @doWordLeft
	brl  FindWordStart

@doLineStart	lda  TheModifierWord
	and  #shiftKey
	beq  @1
	jsr  FindLineInfo
	lda  SuperStart
	cmp  TextOffset
	bne  @1
	lda  SuperStart+2
	cmp  TextOffset+2
	bne  @1
	jsr  decTextOffset
@1	brl  FindLineStart
;---------------------------------------------------------------

	ENDP

****************************************************************

doRightArrow	PROCNAME  Entry

;---------------------------------------------------------------
	jsr  ClearSavedHPos		;clear the saved horizontal position

	lda  TheModifierWord
	and  #shiftKey
	bne  extendIt
;---------------------------------------------------------------
noExtend	jsr  GetSelectionEnd
	jsr  adjustTextOffset

	brl  moveToACaret
;---------------------------------------------------------------
extendIt	jsr  ClearNullStyle		;clear the null style active
	jsr  setupAnchorPoint	;setup the anchor point

	ldy  #TERecord.SelectionEnd
	jsr  GetRecordLong
	cmp  AnchorPointStart
	bne  @extendIt
	cpx  AnchorPointStart+2
	bne  @extendIt
	ldy  #TERecord.SelectionStart
	jsr  GetRecordLong
	cmp  AnchorPointStart
	bne  @contractIt
	cpx  AnchorPointStart+2
	beq  @extendIt

@contractIt	jsr  GetSelectionStart
	jsr  adjustTextOffset
	ldy  #TERecord.SelectionStart
	jsr  removeTheCaret
	jsr  SetSelectionEnd
	jsr  InvertSelection
	jsr  GetSelectionEnd
	jsr  SetSelectionStart
	ldax AnchorPointStart
	ldy  #TERecord.SelectionEnd
	jsr  SetRecordLong
	ldy  #TERecord.SelectionStart	;checkAndSwap will set Y-Reg to the correct
	jsr  checkAndSwap		;..end of the selection to scroll to.
	jsr  fixTheCaret		;this routine preserves the Y-Reg
	brl  ScrollToSelection

@extendIt	jsr  GetSelectionEnd
	jsr  adjustTextOffset
	ldy  #TERecord.SelectionEnd
	jsr  removeTheCaret
	ldy  #TERecord.SelectionStart
	jsr  PushRecordLong
	ldy  #TERecord.SelectionEnd
	jsr  GetRecordLong
	ldy  #TERecord.SelectionStart
	jsr  SetRecordLong
	jsr  SetSelectionEnd
	jsr  InvertSelection
	PullAX
	ldy  #TERecord.SelectionStart
	jsr  SetRecordLong
	jsr  fixTheCaret
	ldy  #TERecord.SelectionEnd
	brl  ScrollToSelection
;---------------------------------------------------------------



;---------------------------------------------------------------
adjustTextOffset	jsr  IsOffsetAtEnd		;if the offset is already at the end, then
	beq  @exit		;..exit
	lda  TheModifierWord
	and  #optionKey
	bne  @doLineEnd
	lda  TheModifierWord
	and  #appleKey
	bne  @doWordRight

@doCharRight	incl TextOffset
@exit	rts

@doWordRight	jsr  FindTextPtr
	lda  [TextPtr]
	jsr  IsItAWordBreak
	bcc  @nowMove
	incl TextOffset
	jsr  IsOffsetAtEnd
	bne  @doWordRight
	rts

@nowMove	incl TextOffset
	brl  FindWordEnd

@doLineEnd	jsr  FindLineInfo
	jsr  MoveOffsetToNextItem
	lda  TheModifierWord
	and  #shiftKey
	bne  @exit
	jsr  decTextOffset
	jsr  FindTextPtr		;the character at the end should be a word
	lda  [TextPtr]		;..wrap. If it is not, then move one
	jsr  IsItAWordWrap		;..more character
	bcs  @exit
	bra  @doCharRight
;---------------------------------------------------------------

	ENDP

****************************************************************

doUpArrow	PROCNAME  Entry

;---------------------------------------------------------------
	lda  TheModifierWord
	and  #shiftKey
	bne  extendIt
;---------------------------------------------------------------
noExtend	jsr  GetSelectionStart
	ldy  #TERecord.SavedHPos	;set the new saved horizontal position
	lda  [RecordPtr],y		;..if there isn't one already
	bpl  @useSaved
	jsr  FindLineInfo		;find the correct line to start with, then
	jsr  OffsetToHPos		;..find the hpos on this line
	lda  TextHPos
	ldy  #TERecord.SavedHPos
	sta  [RecordPtr],y
@useSaved	sta  TextHPos

	jsr  adjustTextOffset
	brl  moveToACaret
;---------------------------------------------------------------
extendIt	jsr  ClearNullStyle		;clear the null style active
	jsr  setupAnchorPoint	;setup the anchor point

	ldy  #TERecord.SelectionStart
	jsr  GetRecordLong
	cmp  AnchorPointStart
	bne  @extendIt
	cpx  AnchorPointStart+2
	bne  @extendIt
	ldy  #TERecord.SelectionEnd
	jsr  GetRecordLong
	cmp  AnchorPointStart
	bne  @contractIt
	cpx  AnchorPointStart+2
	beq  @extendIt

@contractIt	jsr  GetSelectionEnd
	ldy  #TERecord.SavedHPos	;set the new saved horizontal position
	lda  [RecordPtr],y		;..if there isn't one already
	bpl  @useSaved1
	jsr  FindLineInfo		;find the correct line to start with, then
	jsr  OffsetToHPos		;..find the hpos on this line
	lda  TextHPos
	ldy  #TERecord.SavedHPos
	sta  [RecordPtr],y
@useSaved1	sta  TextHPos
	jsr  adjustTextOffset
	ldy  #TERecord.SelectionEnd
	jsr  removeTheCaret
	jsr  SetSelectionStart
	jsr  InvertSelection
	jsr  GetSelectionStart
	jsr  SetSelectionEnd
	ldy  #TERecord.SelectionStart
	ldax AnchorPointStart
	jsr  SetRecordLong
	ldy  #TERecord.SelectionEnd	;checkAndSwap will set Y-Reg to the correct
	jsr  checkAndSwap		;..end of the selection to scroll to.
	jsr  fixTheCaret		;this routine preserves the Y-Reg
	brl  ScrollToSelection

@extendIt	jsr  GetSelectionStart
	ldy  #TERecord.SavedHPos	;set the new saved horizontal position
	lda  [RecordPtr],y		;..if there isn't one already
	bpl  @useSaved2
	jsr  FindLineInfo		;find the correct line to start with, then
	jsr  OffsetToHPos		;..find the hpos on this line
	lda  TextHPos
	ldy  #TERecord.SavedHPos
	sta  [RecordPtr],y
@useSaved2	sta  TextHPos
	jsr  adjustTextOffset
	ldy  #TERecord.SelectionStart
	jsr  removeTheCaret
	ldy  #TERecord.SelectionEnd
	jsr  PushRecordLong
	ldy  #TERecord.SelectionStart
	jsr  GetRecordLong
	ldy  #TERecord.SelectionEnd
	jsr  SetRecordLong
	jsr  SetSelectionStart
	jsr  InvertSelection
	PullAX
	ldy  #TERecord.SelectionEnd
	jsr  SetRecordLong
	jsr  fixTheCaret
	ldy  #TERecord.SelectionStart
	brl  ScrollToSelection
;---------------------------------------------------------------



;---------------------------------------------------------------
adjustTextOffset	lda  TheModifierWord
	and  #optionKey
	bne  @doTop
	lda  TheModifierWord
	and  #appleKey
	bne  @doPageUp

@doLineUp	jsr  IsOffsetAtEnd		;if we are at the very end of the text
	bne  @1		;..and if there is a CR at the end, then
	ldy  #TERecord.LineAtEndFlag	;.. we move to the last line of text
	lda  [RecordPtr],y		;..instead of going back an extra line.
	bpl  @1
	jsr  FindLineStart
	bra  @3
@1	jsr  FindLineStart
	lda  TextOffset
	bne  @2
	lda  TextOffset+2
	beq  @3
	dec  TextOffset+2
@2	dec  TextOffset
@3	brl  HPosToOffset

@doPageUp	jsr  ClearSavedHPos		;clear the saved horizontal position
	jsr  FindLineInfo
	jsr  GetScreenTopOffset
	lda  TextOffset
	cmp  SuperStart
	bne  @exit
	lda  TextOffset+2
	cmp  SuperStart+2
	bne  @exit
	jsr  GetViewRect
	lda  TempRect.bottom
	sec
	sbc  TempRect.top
	ldx  #0
	jsr  DivideByScrollAmount
	bcs  @4
	dec  a
@4	dec  a
	jsr  NegateAX
	jsr  ScrollByAmount
	brl  GetScreenTopOffset

@doTop	jsr  ClearSavedHPos		;clear the saved horizontal position
	stzl TextOffset
@exit	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

doDownArrow	PROCNAME  Entry

;---------------------------------------------------------------
	lda  TheModifierWord
	and  #shiftKey
	bne  extendIt
;---------------------------------------------------------------
noExtend	jsr  GetSelectionEnd
	ldy  #TERecord.SavedHPos	;set the new saved horizontal position
	lda  [RecordPtr],y		;..if there isn't one already
	bpl  @useSaved
	jsr  FindLineInfo		;find the correct line to start with, then
	jsr  OffsetToHPos		;..find the hpos on this line
	lda  TextHPos
	ldy  #TERecord.SavedHPos
	sta  [RecordPtr],y
@useSaved	sta  TextHPos

	jsr  adjustTextOffset
	brl  moveToACaret
;---------------------------------------------------------------
extendIt	jsr  ClearNullStyle		;clear the null style active
	jsr  setupAnchorPoint	;setup the anchor point

	ldy  #TERecord.SelectionEnd
	jsr  GetRecordLong
	cmp  AnchorPointStart
	bne  @extendIt
	cpx  AnchorPointStart+2
	bne  @extendIt
	ldy  #TERecord.SelectionStart
	jsr  GetRecordLong
	cmp  AnchorPointStart
	bne  @contractIt
	cpx  AnchorPointStart+2
	beq  @extendIt

@contractIt	jsr  GetSelectionStart
	ldy  #TERecord.SavedHPos	;set the new saved horizontal position
	lda  [RecordPtr],y		;..if there isn't one already
	bpl  @useSaved1
	jsr  FindLineInfo		;find the correct line to start with, then
	jsr  OffsetToHPos		;..find the hpos on this line
	lda  TextHPos
	ldy  #TERecord.SavedHPos
	sta  [RecordPtr],y
@useSaved1	sta  TextHPos
	jsr  adjustTextOffset
	ldy  #TERecord.SelectionStart
	jsr  removeTheCaret
	jsr  SetSelectionEnd
	jsr  InvertSelection
	jsr  GetSelectionEnd
	jsr  SetSelectionStart
	ldax AnchorPointStart
	ldy  #TERecord.SelectionEnd
	jsr  SetRecordLong
	ldy  #TERecord.SelectionStart	;checkAndSwap will set Y-Reg to the correct
	jsr  checkAndSwap		;..end of the selection to scroll to.
	jsr  fixTheCaret		;this routine preserves the Y-Reg
	lda  TheModifierWord
	and  #appleKey
	bne  @exit
	brl  ScrollToSelection

@extendIt	jsr  GetSelectionEnd
	ldy  #TERecord.SavedHPos	;set the new saved horizontal position
	lda  [RecordPtr],y		;..if there isn't one already
	bpl  @useSaved2
	jsr  FindLineInfo		;find the correct line to start with, then
	jsr  OffsetToHPos		;..find the hpos on this line
	lda  TextHPos
	ldy  #TERecord.SavedHPos
	sta  [RecordPtr],y
@useSaved2	sta  TextHPos
	jsr  adjustTextOffset
	ldy  #TERecord.SelectionEnd
	jsr  removeTheCaret
	ldy  #TERecord.SelectionStart
	jsr  PushRecordLong
	ldy  #TERecord.SelectionEnd
	jsr  GetRecordLong
	ldy  #TERecord.SelectionStart
	jsr  SetRecordLong
	jsr  SetSelectionEnd
	jsr  InvertSelection
	PullAX
	ldy  #TERecord.SelectionStart
	jsr  SetRecordLong
	jsr  fixTheCaret
	lda  TheModifierWord
	and  #appleKey
	bne  @exit
	ldy  #TERecord.SelectionEnd
	brl  ScrollToSelection

@exit	rts
;---------------------------------------------------------------



;---------------------------------------------------------------
adjustTextOffset	jsr  IsOffsetAtEnd		;if the offset is already at the end, then
	beq  @exit		;..exit
	lda  TheModifierWord
	and  #optionKey
	bne  @doBottom
	lda  TheModifierWord
	and  #appleKey
	bne  @doPageDown

@doLineDown	jsr  FindLineInfo
	jsr  MoveOffsetToNextItem
	jsr  IsOffsetAtEnd
	bne  @useHPos
	ldy  #TERecord.LineAtEndFlag
	lda  [RecordPtr],y
	bmi  @exit
@useHPos	brl  HPosToOffset

@doPageDown	jsr  ClearSavedHPos		;clear the saved horizontal position
	jsr  FindLineInfo
	PushZLong SuperStart
	jsr  findTheBottom
	PullAX
	cmpl TextOffset
	blt  @checkShift
	jsr  GetViewRect
	lda  TempRect.bottom
	sec
	sbc  TempRect.top
	ldx  #0
	jsr  DivideByScrollAmount
	bcs  @1
	dec  a
@1	dec  a
	jsr  ScrollByAmount
	jsr  findTheBottom
@checkShift	lda  TheModifierWord	;if the shift key is down, then we must
	and  #shiftKey		;..extend to the end of the line, other
	beq  @exit		;..wise just use the beginning
	jsr  FindLineInfo
	brl  MoveOffsetToNextItem

@doBottom	jsr  ClearSavedHPos		;clear the saved horizontal position
	jsr  GetTextLength
	stax TextOffset
@exit	rts
;---------------------------------------------------------------



;---------------------------------------------------------------
findTheBottom	jsr  GetViewRect
	lda  TempRect.top
	sec
	ldy  #TERecord.TopTextVPos
	sbc  [RecordPtr],y
	sta  TextVPos
	jsr  GetScreenTopOffset
	bra  @enter

@loop	jsr  FindLineInfo
	lda  LineHeight
	clc
	adc  TextVPos
	cmp  TempRect.bottom
	beq  @exit
	bpl  @foundIt
	sta  TextVPos
	jsr  MoveOffsetToNextItem
@enter	jsr  IsOffsetAtEnd
	bne  @loop
	ldy  #TERecord.LineAtEndFlag
	lda  [RecordPtr],y
	beq  @foundIt
@exit	rts

@foundIt	jsr  decTextOffset
	brl  FindLineStart
;---------------------------------------------------------------

	ENDP

****************************************************************

doReplaceText	PROCNAME  Entry

;---------------------------------------------------------------
	ldy  #TERecord.theKeyRecord.theInputHandle
	jsr  PushRecordLong		;one copy for the unlock call
	jsr  PushRecordLong		;another copy for the GetHandleSize call
	jsr  PushRecordLong		;lock down the input handle and put the
	jsr  LockHandle		;..pointer in InputTextPtr
	stax InputTextPtr

	jsr  GetHandleSize		;the size of the handle is the number of
	stax InputTextLength	;..characters to insert (actually replace)

	stzl InputStyleRef		;no styles

	jsr  ReplaceText		;replace the text

	jsr  UnlockHandle		;unlock the input text handle
	brl  ShrinkInputHandle	;set the size of the handle back to one
;---------------------------------------------------------------

	ENDP

****************************************************************

doMoveSelection	PROCNAME  Entry

;---------------------------------------------------------------
	jsr  ClearSavedHPos		;clear the saved horizontal position

	ldy  #TERecord.theKeyRecord.cursorOffset
	jsr  GetRecordLong
	stax TextOffset
	brl  moveToACaret
;---------------------------------------------------------------

	ENDP

****************************************************************

doExtendLeft	PROCNAME  Entry

;---------------------------------------------------------------
	jsr  ClearSavedHPos		;clear the saved horizontal position

	jsr  ClearNullStyle		;clear the null style active
	jsr  setupAnchorPoint	;setup the anchor point

	ldy  #TERecord.SelectionStart
	jsr  GetRecordLong
	cmp  AnchorPointStart
	bne  @extendIt
	cpx  AnchorPointStart+2
	bne  @extendIt
	ldy  #TERecord.SelectionEnd
	jsr  GetRecordLong
	cmp  AnchorPointStart
	bne  @contractIt
	cpx  AnchorPointStart+2
	beq  @extendIt

@contractIt	jsr  GetSelectionEnd
	ldy  #TERecord.theKeyRecord.cursorOffset
	jsr  GetRecordLong
	stax TextOffset
	ldy  #TERecord.SelectionEnd
	jsr  removeTheCaret
	jsr  SetSelectionStart
	jsr  InvertSelection
	jsr  GetSelectionStart
	jsr  SetSelectionEnd
	ldy  #TERecord.SelectionStart
	ldax AnchorPointStart
	jsr  SetRecordLong
	ldy  #TERecord.SelectionEnd	;checkAndSwap will set Y-Reg to the correct
	jsr  checkAndSwap		;..end of the selection to scroll to.
	jsr  fixTheCaret		;this routine preserves the Y-Reg
	brl  ScrollToSelection

@extendIt	jsr  GetSelectionStart
	ldy  #TERecord.theKeyRecord.cursorOffset
	jsr  GetRecordLong
	stax TextOffset
	ldy  #TERecord.SelectionStart
	jsr  removeTheCaret
	ldy  #TERecord.SelectionEnd
	jsr  PushRecordLong
	ldy  #TERecord.SelectionStart
	jsr  GetRecordLong
	ldy  #TERecord.SelectionEnd
	jsr  SetRecordLong
	jsr  SetSelectionStart
	jsr  InvertSelection
	PullAX
	ldy  #TERecord.SelectionEnd
	jsr  SetRecordLong
	jsr  fixTheCaret
	ldy  #TERecord.SelectionStart
	brl  ScrollToSelection
;---------------------------------------------------------------

	ENDP

****************************************************************

doExtendRight	PROCNAME  Entry

;---------------------------------------------------------------
	jsr  ClearSavedHPos		;clear the saved horizontal position

	jsr  ClearNullStyle		;clear the null style active
	jsr  setupAnchorPoint	;setup the anchor point

	ldy  #TERecord.SelectionEnd
	jsr  GetRecordLong
	cmp  AnchorPointStart
	bne  @extendIt
	cpx  AnchorPointStart+2
	bne  @extendIt
	ldy  #TERecord.SelectionStart
	jsr  GetRecordLong
	cmp  AnchorPointStart
	bne  @contractIt
	cpx  AnchorPointStart+2
	beq  @extendIt

@contractIt	jsr  GetSelectionStart
	ldy  #TERecord.theKeyRecord.cursorOffset
	jsr  GetRecordLong
	stax TextOffset
	ldy  #TERecord.SelectionStart
	jsr  removeTheCaret
	jsr  SetSelectionEnd
	jsr  InvertSelection
	jsr  GetSelectionEnd
	jsr  SetSelectionStart
	ldax AnchorPointStart
	ldy  #TERecord.SelectionEnd
	jsr  SetRecordLong
	ldy  #TERecord.SelectionStart	;checkAndSwap will set Y-Reg to the correct
	jsr  checkAndSwap		;..end of the selection to scroll to.
	jsr  fixTheCaret		;this routine preserves the Y-Reg
	brl  ScrollToSelection

@extendIt	jsr  GetSelectionEnd
	ldy  #TERecord.theKeyRecord.cursorOffset
	jsr  GetRecordLong
	stax TextOffset
	ldy  #TERecord.SelectionEnd
	jsr  removeTheCaret
	ldy  #TERecord.SelectionStart
	jsr  PushRecordLong
	ldy  #TERecord.SelectionEnd
	jsr  GetRecordLong
	ldy  #TERecord.SelectionStart
	jsr  SetRecordLong
	jsr  SetSelectionEnd
	jsr  InvertSelection
	PullAX
	ldy  #TERecord.SelectionStart
	jsr  SetRecordLong
	jsr  fixTheCaret
	ldy  #TERecord.SelectionEnd
	brl  ScrollToSelection
;---------------------------------------------------------------

	ENDP

****************************************************************

ClearSavedHPos	PROCNAME  Export

	ldy  #TERecord.SavedHPos	;clear the saved horizontal position
	lda  #$FFFF
	sta  [RecordPtr],y
	rts

	ENDP

****************************************************************

ShrinkInputHandle	PROCNAME  Export

;---------------------------------------------------------------
	ldy  #TERecord.theKeyRecord.theInputHandle
	lda  [RecordPtr],y
	sta  TempLong
	iny
	iny
	lda  [RecordPtr],y
	sta  TempLong+2

	ldy  #HandleRecord.length+2
	lda  [TempLong],y
	bne  @sizeIt
	dey
	dey
	lda  [TempLong],y
	dec  a
	bne  @sizeIt
	rts

@sizeIt	PushZLong TempLong
	lda  #1		;this loads A-Reg and X-Reg with
	tax		;..$00000001
	dex
	jsr  SetHandleSize		;set the size of the input handle to one
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

DerefInputHandle	PROCNAME  Export

;---------------------------------------------------------------
	ldy  #TERecord.theKeyRecord.theInputHandle
	jsr  GetRecordLong
	jsr  DerefAX
	stax InputTextPtr
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/TextEdit/measure.aii b/IIGS.601.SRC/GSToolbox/TextEdit/measure.aii
new file mode 100644
index 0000000..38d5998
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/TextEdit/measure.aii
@@ -0,0 +1 @@
+**********************************************************************
*
*                      GSTextEdit  Version 1.0
*                         File: measure.aii
*
*               Copyright Apple Computer, Inc. 1988-89
*                        All rights reserved
*
*
*
*
* Notes
*
* All the routines in GSTextEdit must be called in full native mode and
* return that way.
*
* All the files in GSTextEdit must be assembled with the "-unsafe"
* option to pass unresolved references to the linker.
*
*
*
*
* Change History
*
* 30 May 89	Dave Good
*
* Cleaned up comments for final release.
*
**********************************************************************


	INCLUDE  'GlobalIncludes'


****************************************************************

ClearOffsetCache	PROCNAME  Export

;---------------------------------------------------------------
	ldy  #TERecord.CachedSelcOffset
	lda  #$FFFF
	sta  [RecordPtr],y
	iny
	iny
	sta  [RecordPtr],y
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

IsOffsetCached	PROCNAME  Export

;---------------------------------------------------------------
	ldy  #TERecord.CachedSelcOffset
	lda  TextOffset
	cmp  [RecordPtr],y
	bne  @done
	iny
	iny
	lda  TextOffset+2
	cmp  [RecordPtr],y
@done	rts
;---------------------------------------------------------------

	ENDP

****************************************************************
; this routine returns the screen point TextVPos and TextHPos
; associated with TextOffset. It returns carry set (TRUE) if the
; offset is not on the screen.
****************************************************************

CachedOffsetToPoint	PROCNAME  Export

;---------------------------------------------------------------
	jsr  OffsetToVPos
	bcs  @done
	jsr  OffsetToHPos
	ldy  #TERecord.CachedSelcOffset
	lda  TextOffset
	sta  [RecordPtr],y
	iny
	iny
	lda  TextOffset+2
	sta  [RecordPtr],y
	iny
	iny
	lda  TextVPos
	sta  [RecordPtr],y
	iny
	iny
	lda  TextHPos
	sta  [RecordPtr],y
	clc
@done	rts
;---------------------------------------------------------------

	ENDP

****************************************************************
; this routine returns the screen point TextVPos and TextHPos
; associated with TextOffset. It returns carry set (TRUE) if the
; offset is not on the screen.
****************************************************************
OffsetToPoint	PROCNAME  Export

;---------------------------------------------------------------
	jsr  OffsetToVPos
	bcc  @continue
	rts

@continue	brl  OffsetToHPos
;---------------------------------------------------------------

	ENDP

****************************************************************
; this routine returns the vertical position of the current TextOffset
; associated with TextOffset. It returns carry set (TRUE) if the
; offset is not on the screen. In this case TextVPos is the top
; or bottom of the viewRect depending on how it is off the screen
****************************************************************
OffsetToVPos	PROCNAME  Export

;---------------------------------------------------------------
	jsr  IsOffsetCached
	bne  @notCached

	ldy  #TERecord.CachedSelcVPos
	lda  [RecordPtr],y
	sta  TextVPos
	clc
	rts
;---------------------------------------------------------------
@notCached	ldy  #TERecord.ViewRect.top	;start TextVPos at the top of the
	lda  [RecordPtr],y		;..viewRect
	sec
	ldy  #TERecord.TopTextVPos
	sbc  [RecordPtr],y
	sta  TextVPos

	ldy  #TERecord.TopTextOffset
	jsr  GetRecordLong
	cmpl TextOffset
	beq  @quickExit
	blt  findIt

	ldy  #TERecord.ViewRect.top
	lda  [RecordPtr],y
	sta  TextVPos
	sec		;set the carry to indicate the text is
	rts		;..off the screen. Then return

@quickExit	clc
	rts
;---------------------------------------------------------------
findIt	ldy  TextOffset
	sty  OriginalOffset
	ldy  TextOffset+2
	sty  OriginalOffset+2
	stax TextOffset		;this is now the TopTextOffset

	jsr  GetTextLength
	stax TempLong

	ldy  #TERecord.LineSuper
	jsr  FindSuperInfo
	dey
	dey
;---------------------------------------------------------------
@loop	sty  TempWord
	lda  [TempPtr],y
	bmi  @deleted
	tax
	dey
	dey
	lda  [TempPtr],y
	clc
	adc  TextOffset
	sta  TextOffset
	txa
	adc  TextOffset+2
	sta  TextOffset+2
	iny
	iny
	iny
	iny
	lda  [TempPtr],y
	sta  LineHeight

	ldax TextOffset
	cmp  TempLong
	bne  @notAtEnd
	cpx  TempLong+2
	beq  atTheEnd
@notAtEnd	cpx  OriginalOffset+2
	blt  @continue
	bne  foundIt
	cmp  OriginalOffset
	bgt  foundIt

@continue	lda  LineHeight
	clc
	adc  TextVPos
	ldy  #TERecord.ViewRect.bottom	;are we still in the viewRect ?
	cmp  [RecordPtr],y
	bpl  abortIt
	sta  TextVPos

@deleted	lda  TempWord
	clc
	adc  #SuperItemSize
	tay
	cpy  SuperMaxIndex
	blt  @loop
	jsr  MoveToNextHandle	;NOTE: we should never reach the end
	ldy  #SuperBlock.RecordSize+2	;..here
	bra  @loop
;---------------------------------------------------------------
atTheEnd	movl OriginalOffset,TextOffset
	jsr  IsOffsetAtEnd
	bne  @exit
	ldy  #TERecord.LineAtEndFlag
	lda  [RecordPtr],y
	beq  foundIt
	lda  TextVPos
	clc
	adc  LineHeight
	sta  TextVPos
@exit	clc
	rts
;---------------------------------------------------------------
foundIt	clc
exit	movl OriginalOffset,TextOffset
	rts
;---------------------------------------------------------------
abortIt	lda  [RecordPtr],y
	sta  TextVPos
	sec		;the text is off the screen
	bra  exit
;---------------------------------------------------------------

	ENDP

****************************************************************

OffsetToHPos	PROCNAME  Export

;---------------------------------------------------------------
	jsr  IsOffsetCached
	bne  @notCached

	ldy  #TERecord.CachedSelcHPos
	lda  [RecordPtr],y
	sta  TextHPos
	clc
	rts
;---------------------------------------------------------------
@notCached	jsr  IsOffsetAtEnd		;if the offset is not at the end then
	bne  findIt		;..find the horizontal position
	ldy  #TERecord.LineAtEndFlag	;if there is not a line at the end then
	lda  [RecordPtr],y		;..we must also find the horizontal pos
	beq  findIt

	jsr  GetLeftIndent		;return the left indent adjusted by the
	sta  TextHPos		;..justification
	jsr  AdjustForJust
	clc
	adc  TextHPos
	brl  addViewLeft
;---------------------------------------------------------------
findIt	jsr  setupLineStart		;set the line start and get the amount left

	jsr  GetLeftEdge		;start at the left edge of the rectangle
	sta  TextHPos

	jsr  FindStyleInfo		;find the current style and setup the
	jsr  SetupWidthTable	;..width table

	bra  loopEnd
;---------------------------------------------------------------
mainLoop	jsr  FindStyleInfo		;find and install the current style info
	jsr  GetSuperCount		;count how many characters are in the
	cmp  AmountLeft		;..current style. If this is > 64k, $FFFF
	bge  useLeft		;..will be returned.
	sta  TextCount		;the amount left is greater than the count
	lda  AmountLeft		;..in the current style, so reduce the amount
	sec		;..left and use the current style count.
	sbc  TextCount		;In this case we will need to loop back to
	sta  AmountLeft		;..mainLoop eventually.
	bra  widthStart

useLeft	lda  AmountLeft		;the current style extends at least to the offset
	sta  TextCount		;..we are looking for.
	stz  AmountLeft		;zero out our outer text counter
;---------------------------------------------------------------
widthStart	jsr  FindTextPtr		;setup the text pointer
	lda  #0		;set the high word of A to zero
	tax		;also clear the index (X-Reg)
	shortm		;short mode for speed

widthLoop	txy
	lda  [TextPtr],y		;get the character
	cmp  #TAB		;is it a TAB ?
	beq  doTab
	tay		;nope, so use the char as an index into
	lda  [WidthTablePtr],y	;..the width table. Add the width of the
	clc		;..character to the current horz position
	adc  TextHPos
	sta  TextHPos
	bcc  nextChar
	inc  TextHPos+1		;we are in short mode, so take care of the
nextChar	inx		;..high BYTE !
	cpx  TextCount
	blt  widthLoop

	longm		;back to long mode
	lda  TextCount		;move TextOffset past the characters
	addl TextOffset		;..we just processed.
loopEnd	lda  AmountLeft		;are there any more "parts" to process ?
	bne  mainLoop		;..yep = go back to the main loop
	bra  foundChar		;Nope, we found our character - goto foundChar
;---------------------------------------------------------------
doTab	rep  #$20		;goto long mode for Tab processing
	jsr  MoveOverTab
	sta  TextHPos		;store the new HPos
	lda  #0		;clear the high word of the A-Reg again
	sep  #$20		;set the processor to short mode
	bra  nextChar		;back to short mode and off to the next char
;---------------------------------------------------------------
foundChar	jsr  AdjustForJust
	clc
	adc  TextHPos
	sta  TextHPos
	lda  FixExtraSpace		;if no fractional adjustment then we are
	ora  FixExtraSpace+2	;..done
	beq  skipAdjust

	jsr  setupLineStart		;set the line start and get the amount left
	jsr  FindTextPtr
	ldx  #0
	ldy  AmountLeft
	beq  skipAdjust
	shortm
@loop	dey
	beq  @done
	lda  [TextPtr],y
	cmp  #' '
	bne  @nope
	inx
@nope	cmp  #TAB
	bne  @loop
@done	longm
	PushLongSpace		;space for the multiply
	PushZLong FixExtraSpace	;the fractional pixel amount for spaces
	phx		;the number of spaces
	pea  $0000
	_FixMul
	plx		;discard the fraction
	pla		;the carry will be set if X > $8000 and
	cpx  #$8000		;..clr if less than $8000. This rounds
	adc  TextHPos		;..the fraction into the nearest integer
	sta  TextHPos
	lda  AmountLeft		;restore TextOffset
	addl TextOffset

skipAdjust	jsr  FreeWidthTable
	lda  TextHPos

addViewLeft	clc
	ldy  #TERecord.ViewRect.left
	adc  [RecordPtr],y
	sta  TextHPos
	clc		;%%% Test
	rts
;---------------------------------------------------------------



;---------------------------------------------------------------
setupLineStart	jsr  FindLineInfo
	lda  TextOffset
	sec
	sbc  SuperStart
	sta  AmountLeft		;this is our outer text counter
	movl SuperStart,TextOffset
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************
* This routine takes TextVPos and TextHPos as a point and it
* returns the corresponding TextOffset. The point must be in the
* view rect. on exit TextHPos and TextVPos are at the begining
* of the character that the point was on.
****************************************************************
PointToOffset	PROCNAME  Export

;---------------------------------------------------------------
	jsr  VPosToOffset
	bcs  done
	jsr  HPosToOffset
	clc
done	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

VPosToOffset	PROCNAME  Export

;---------------------------------------------------------------
	mov  TextVPos,OriginalVPos

	ldy  #TERecord.ViewRect.top	;start TextVPos at the top of the
	lda  [RecordPtr],y		;..viewRect
	sec
	ldy  #TERecord.TopTextVPos
	sbc  [RecordPtr],y
	sta  TextVPos

	jsr  GetScreenTopOffset
	bra  loopEnd
;---------------------------------------------------------------
mainLoop	jsr  FindLineInfo
	lda  LineHeight
	clc
	adc  TextVPos
	cmp  OriginalVPos
	beq  @1
	bpl  foundIt
@1	sta  TextVPos

	jsr  MoveOffsetToNextItem
loopEnd	jsr  IsOffsetAtEnd
	bne  mainLoop
;---------------------------------------------------------------
atTheEnd	sec
	rts

foundIt	clc
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

HPosToOffset	PROCNAME  Export

;---------------------------------------------------------------
	jsr  FindLineStart
	jsr  GetSuperCount		;find the length of the line ($FFFF max)
	sta  AmountLeft

	jsr  FindStyleInfo		;find the current style and setup the
	jsr  SetupWidthTable	;..width table

	ldy  #TERecord.ViewRect.left	;save the original HPos and set the new
	lda  TextHPos		;..one to the left edge of the line.
	sec
	sbc  [RecordPtr],y
	sta  OriginalHPos
	jsr  GetLeftEdge
	sta  FixedHPos+2		;Note: the HPos is beging kept track of
	stz  FixedHPos		;..as a fixed value, for full just.

	stzl FixExtraSpace		;the extra amount for each space under full just

	jsr  AdjustForJust		;if the just is not left, then adjust
	clc		;..HPos for it.
	adc  FixedHPos+2
	sta  FixedHPos+2
;---------------------------------------------------------------
mainLoop	jsr  FindStyleInfo		;find and install the current style info
	jsr  GetSuperCount		;count how many characters are in the
	cmp  AmountLeft		;..current style. If this is > 64k, $FFFF
	bge  useLeft		;..will be returned.
	sta  TextCount		;the amount left is greater than the count
	lda  AmountLeft		;..in the current style, so reduce the amount
	sec		;..left and use the current style count.
	sbc  TextCount		;In this case we will need to loop back to
	sta  AmountLeft		;..mainLoop eventually.
	bra  widthStart

useLeft	lda  AmountLeft		;the current style extends at least to the offset
	sta  TextCount		;..we are looking for.
	stz  AmountLeft		;zero out our outer text counter
;---------------------------------------------------------------
widthStart	jsr  FindTextPtr		;setup the text pointer
	ldx  #0		;set the index to zero

widthLoop	txy
	lda  [TextPtr],y		;get the next character
	and  #$00FF
	cmp  #TAB		;is it a TAB ?
	beql doTab
	cmp  #CR		;is it a carriage return ?
	beql foundChar2
backToLoop	cmp  #' '		;is it a space ?
	beq  doSpace
	tay		;it's something else so find the width of
	lda  [WidthTablePtr],y	;..it from the table
	and  #$00FF
useWidth	pha		;save the width of the character
	lsr  a		;see if the point is within the first half
	clc		;..of the character. If it is then we
	adc  FixedHPos+2		;..have found the offset.
	cmp  OriginalHPos
	bpll foundChar
	pla		;get back the entire width.
	clc		;add it to the current Horz Position
	adc  FixedHPos+2
	sta  FixedHPos+2
nextChar	inx		;move to the next character and loop back
	cpx  TextCount
	blt  widthLoop

	lda  TextCount		;move TextOffset past the characters
	addl TextOffset		;..we just processed.
	lda  AmountLeft		;are there any more "parts" to process ?
	bne  mainLoop		;..yep = go back to the main loop

	lda  TextOffset		;move back before the last character on
	ora  TextOffset+2		;..the line, unless the last character
	beq  @1		;..is not a word wrap
	decl TextOffset
	jsr  FindTextPtr
	lda  [TextPtr]
	jsr  IsItAWordWrap
	bcs  @1
	incl TextOffset
@1	brl  foundChar3
;---------------------------------------------------------------
doSpace	tay		;get the space into the Y-Reg
	lda  [WidthTablePtr],y	;get the standard width of the space
	and  #$00FF		;..add to the extra amount for full just.
	clc		;..this will be zero if we are not full
	adc  FixExtraSpace+2	;..justifaction.
	pha
	lsr  a		;take half of this and see if we are in
	sta  TempWord		;..the current char,
	lda  FixExtraSpace		;the width is being added as a fixed point
	ror  a		;..number
	clc
	adc  FixedHPos
	bcc  @noInc
	inc  TempWord
@noInc	lda  TempWord
	adc  FixedHPos+2
	cmp  OriginalHPos		;are we within the current char ? Yes = 
	bpl  foundChar		;..we have found the char.
	lda  FixExtraSpace		;nope, so add the full width of the space
	clc		;..as a fixed point value to the current
	adc  FixedHPos		;..HPos.
	sta  FixedHPos
	pla
	adc  FixedHPos+2
	sta  FixedHPos+2
	bra  nextChar		;loop back to the next char.
;---------------------------------------------------------------
doTab	PushZLong TextOffset	;save text offset
	txa
	inc  a
	addl TextOffset
	jsr  MoveOverTab
	sec
	sbc  FixedHPos+2
	phx		;save our index
	pha
	jsr  AdjustForJust
	clc
	adc  1,s
	plx		;pull off garbage
	plx		;restore our index
	ply		;restore text offset
	sty  TextOffset
	ply
	sty  TextOffset+2
	brl  useWidth
;---------------------------------------------------------------
foundChar	pla
foundChar2	txa
	addl TextOffset

foundChar3	ldy  #TERecord.ViewRect.left
	lda  [RecordPtr],y
	clc
	adc  FixedHPos+2
	ldx  FixedHPos		;round the fixed part off into a whole
	bpl  @skipInc		;..number
	inc  a

@skipInc	sta  TextHPos		;same as FixedHPos
	brl  FreeWidthTable		;unlock the width table
;---------------------------------------------------------------

	ENDP

****************************************************************

AdjustForJust	PROCNAME  Export

;---------------------------------------------------------------
	stzl FixExtraSpace		;clear the extra space field
	lda  #0
	tax
	ldy  #GrafPort.SpExtra
	jsr  SetPortLong

	jsr  GetJust		;if the justifaction is left, then skip
	cmp  #leftJust		;..this call
	beq  @quickExit

	jsr  IsThereAnotherTab	;if there are more tabs on the line, then
	bcc  mustAdjust		;..this field is leftJust. Otherwise, adjust

@quickExit	lda  #0
	rts
;---------------------------------------------------------------
mustAdjust	PushZWord LineLength	;save the line length, the text offset,
	PushZLong TextOffset	;..the horizontal position, the text
	PushZWord TextCount		;..count and the text pointer
	PushZLong TextPtr
	PushZWord LineHeight
	PushZWord LineAscent
	PushZWord TextHPos

	jsr  IsOffsetAtEnd		;if the offset is not at the end then
	bne  @notAtEnd		;..find the horizontal position
	ldy  #TERecord.LineAtEndFlag	;if there is not a line at the end then
	lda  [RecordPtr],y		;..we must also find the horizontal pos
	beq  @notAtEnd
	stz  LineLength
	bra  @skipLength

@notAtEnd	jsr  FindLineStart		;start at the beginning of the line
	mov  SuperLength,LineLength	;save the line length
@skipLength	jsr  GetLeftEdge		;start measuring from the left edge of the
	sta  TextHPos		;..text rectangle

	PushZLong TextOffset	;save the new text offset
	lda  LineLength		;are there any characters on this line ?
	beq  @done		;..if not, then we are thru
	dec  a		;there are so find the end of the line
	addl TextOffset		;..and get a pointer to there
	jsr  FindTextPtr
	lda  [TextPtr]		;is the last character a CR ? If not,
	and  #$00FF		;..then strip off white space
	cmp  #CR
	bne  @loop
	dec  LineLength		;it was a CR, so make sure we skip the
	bra  @done		;..CR and we are done

@loop	lda  [TextPtr]		;decrement LineLength so it doesn't reflect
	jsr  IsItAWordWrap		;..any of the extra whitespace on the line
	bcc  @done
	decl TextPtr
	dec  LineLength
	bne  @loop

@done	PullLong TextOffset		;restore TextOffset
	mov  LineLength,LastLineLength

	jsr  FindStyleInfo		;find the current style and setup the
	jsr  SetupWidthTable	;..width table
;---------------------------------------------------------------
mainLoop	lda  LineLength		;if there are zero chars left to measure
	beq  foundEnd		;..we are done

	jsr  FindStyleInfo
	jsr  GetSuperCount
	cmp  LineLength
	blt  @1
	lda  LineLength
@1	sta  TextCount
	jsr  FindTextPtr
	lda  #0		;clear the high byte of A
	tax		;clear X (out index) also
	shortm		;go into short mode for speed

widthLoop	txy
	lda  [TextPtr],y
	cmp  #TAB
	beq  @foundTab
	tay
	lda  [WidthTablePtr],y
	clc
	adc  TextHPos
	sta  TextHPos
	bcc  @1
	inc  TextHPos+1
@1	inx
	cpx  TextCount
	blt  widthLoop

	longm		;back to long mode here
	txa
	addl TextOffset
	lda  LineLength
	sec
	sbc  TextCount
	sta  LineLength
	bra  mainLoop

@foundTab	longm		;back to long mode.
	inx
	stx  TextCount
	txa
	addl TextOffset
	lda  LineLength
	sec
	sbc  TextCount
	sta  LineLength
	sta  LastLineLength
	jsr  MoveOverTab		;move TextHPos over the TAB
	sta  TextHPos
	bra  mainLoop
;---------------------------------------------------------------
foundEnd	jsr  FreeWidthTable

	lda  TextHPos		;copy our ending position to TempWord
	sta  TempWord
	pla		;restore TextHPos
	sta  TextHPos

	jsr  GetJust		;get the just and push it on the stack
	pha
	jsr  GetRightMargin		;take the right edge and subtract the end
	sec		;..of the line to determine how many pixels
	sbc  TempWord		;..are left on the line. Leave it in A-Reg
	plx		;restore the just into X-Reg
	cpx  #rightJust
	beq  doRight
	cpx  #fullJust
	beq  doFull
;---------------------------------------------------------------
doCenter	cmp  #$8000		;this sets the carry properly for the
	ror  a		;..shift right
;---------------------------------------------------------------
doRight	plx		;restore the saved line height and ascent
	stx  LineAscent
	plx
	stx  LineHeight
	plx		;restore the saved text pointer
	stx  TextPtr
	plx
	stx  TextPtr+2
	plx
	stx  TextCount
	plx		;restore the saved text offset
	stx  TextOffset
	plx
	stx  TextOffset+2
	plx
	stx  LineLength
	rts
;---------------------------------------------------------------
doFull	pha		;save the amount of whitespace for divide
	lda  LastLineLength
	beq  @noAdjustment

	jsr  IsOffsetAtEnd
	beq  @noAdjustment
	jsr  FindTextPtr
	lda  [TextPtr]
	and  #$00FF
	cmp  #CR
	beq  @noAdjustment
	jsr  FindLineInfo
	lda  SuperStart
	clc
	adc  SuperLength
	tax
	lda  SuperStart+2
	adc  SuperLength+2
	ldy  #TERecord.TextLength+2
	cmp  [RecordPtr],y
	bne  @notAtEnd
	dey
	dey
	txa
	cmp  [RecordPtr],y
	beq  @noAdjustment
@notAtEnd
	lda  TextOffset
	sec
	sbc  LastLineLength
	sta  TextOffset
	bcs  @1
	dec  TextOffset+2
@1	jsr  FindTextPtr
	ldy  LastLineLength
	ldx  #0
	shortm
@loop	dey
	cpy  #$FFFF
	beq  @done
	lda  [TextPtr],y
	cmp  #' '
	bne  @loop
	inx
	bra  @loop
@done	longm
	cpx  #0		;if no spaces then there is no adjustment
	beq  @noAdjustment
	pla		;get back the amount of whitespace and
	PushLongSpace		;..divide by the number of spaces to find
	pha		;..the spaceExtra
	phx
	_FixRatio
	ldy  #GrafPort.SpExtra	;set both the spaceExtra field of the
	pla		;..grafPort and the variable FixExtraSpace
	sta  FixExtraSpace
	sta  [DrawPortPtr],y
	iny
	iny
	lda  1,s		;leave a word on the stack so noAdjustment
	sta  FixExtraSpace+2	;..can take it off
	sta  [DrawPortPtr],y

@noAdjustment	pla		;restore the stack
	lda  #0		;return an adjustment of zero
	brl  doRight
;---------------------------------------------------------------

	ENDP

****************************************************************

IsThereAnotherTab	PROCNAME  Entry

;---------------------------------------------------------------
	PushZLong TextPtr		;save text pointer

	jsr  FindTextPtr
	jsr  FindLineInfo
	jsr  GetSuperCount
	tax

	shortm
@loop	txy
	lda  [TextPtr],y
	cmp  #TAB
	beq  foundOne
	dex
	bpl  @loop
	clc
	bra  exit
;---------------------------------------------------------------
foundOne	sec
;---------------------------------------------------------------
exit	longm
	PullLong TextPtr
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

MoveOverTab	PROCNAME  Export

;---------------------------------------------------------------
	phx		;save X-Reg
	jsr  GetTabType		;what kind of tabs do we have here ?
	cmp  #noTabs		;noTabs = use the width of a space
	beq  useSpace
	cmp  #equalTabs		;equalTabs = move to the next evenly spaced
	beq  doEvenTabs		;..tab stop
;---------------------------------------------------------------
doTabList	jsr  GetTabPtr		;must be a list then - get a ptr to the tab list
	ldy  #2		;skip the tab kind and start with the data
@loop	lda  [TempPtr],y		;get the next tab stop (MUST BE ASCENDING !)
	iny		;move our index to the next tab stop's data
	iny
	iny
	iny
	cmp  TextHPos		;are we past our current HPos yet ?
	bmi  @loop		;..nope, so loop
	beq  @loop
	cmp  #$FFFF		;if we are at the end, then use a space
	bne  foundNewPos		;..otherwise, exit with the new position
;---------------------------------------------------------------
useSpace	ldy  #' '		;get the width of a space
	lda  [WidthTablePtr],y	;..the width table.
	and  #$00FF
	clc
	adc  TextHPos
	bra  foundNewPos
;---------------------------------------------------------------
doEvenTabs	jsr  GetTabNumber		;get the number of pixels for each tab
	sta  TempWord		;save it temporarily
	lda  #0
@clear	clc		;find the first tab that is to the right
@loop	adc  TempWord		;..of the current HPos
	cmp  TextHPos
	bcc  @loop		;fast loop
	beq  @clear		;slow loop (extra 2 cycles)
;---------------------------------------------------------------
foundNewPos	plx		;restore X-Reg
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/TextEdit/memory.aii b/IIGS.601.SRC/GSToolbox/TextEdit/memory.aii
new file mode 100644
index 0000000..700ea92
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/TextEdit/memory.aii
@@ -0,0 +1 @@
+**********************************************************************
*
*                      GSTextEdit  Version 1.0
*                          File: memory.aii
*
*               Copyright Apple Computer, Inc. 1988-89
*                        All rights reserved
*
*
*
*
* Notes
*
* All the routines in GSTextEdit must be called in full native mode and
* return that way.
*
* All the files in GSTextEdit must be assembled with the "-unsafe"
* option to pass unresolved references to the linker.
*
*
*
*
* Change History
*
* 30 May 89	Dave Good
*
* Cleaned up comments for final release.
*
**********************************************************************


	INCLUDE  'GlobalIncludes'


****************************************************************
; A,X contain the size of the new handle
; Y contains the atrributes
; on exit A,X contain the new handle
;---------------------------------------------------------------
Memory1Proc	PROC

;---------------------------------------------------------------
	EXPORT  GetSmallHandle
	EXPORT  GetLargeHandle
	EXPORT  GetSpecialHandle
;---------------------------------------------------------------

;---------------------------------------------------------------
GetSmallHandle	ldx  #0		;the high word of the size is zero
;---------------------------------------------------------------
GetLargeHandle	ldy  #0		;the attributes are also zero
;---------------------------------------------------------------
GetSpecialHandle	PushLongSpace		;space for result
	PushAX		;the size of the handle to create
	PushZWord UserID		;get this from the Global Variables
	phy		;free floating, everywhere
	PushLongSpace		;space for ignored pointer
	_NewHandle
	bcs  error
	PullAX		;get the returned handle in A,X
	rts		;return carry clr
;---------------------------------------------------------------
error	tax
	pla		; discard the bad handle..
	pla
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

Memory2Proc	PROC

;---------------------------------------------------------------
	EXPORT  GetTerminatedHandle
	EXPORT  GetClearHandle
;---------------------------------------------------------------

;---------------------------------------------------------------
	DefineStack
origD	word
thePtr	long
theHandle	long
;---------------------------------------------------------------

;---------------------------------------------------------------
GetTerminatedHandle	lda  #4		;get the new handle
	jsr  GetSmallHandle
	bcs  error
	PushAX
	PushAX

	phd
	tsc
	tcd

	Deref theHandle,thePtr	;this leaves Y-Reg equal to two
	lda  #$FFFF
	sta  [thePtr]
	sta  [thePtr],y

done	pld		;restore the original direct page
	PullAX		;pull off garbage
	PullAX		;get the returned handle in A,X
	clc
error	rts
;---------------------------------------------------------------
GetClearHandle	pha		;save the size
	jsr  GetSmallHandle
	ply		;recover the saved size
	bcs  error
	PushAX
	PushAX

	phd
	tsc
	tcd

	tyx		;save the saved size
	Deref theHandle,thePtr	;this leaves Y-Reg equal to two
	txa		;get back the size
	tay
	lsr  a
	lda  #0		;reload the zero (doesn't clear carry)
	bcc  loop
	dey
	shortm
	sta  [thePtr],y
	longm
loop	dey
	dey
	sta  [thePtr],y
	bne  loop
	clc		;indicate no error
	bra  done
;---------------------------------------------------------------

	ENDP

****************************************************************

Memory3Proc	PROC

;---------------------------------------------------------------
	EXPORT LockHandle
	EXPORT DerefHandle
	EXPORT UnlockHandle
;---------------------------------------------------------------

;---------------------------------------------------------------
	DSECT 1
origD	word
returnAddr	word
theHandle	long
;---------------------------------------------------------------

;---------------------------------------------------------------
LockHandle	phd
	tsc
	tcd
	ldy  #4
	lda  [theHandle],y
	ora  #$8000
	sta  [theHandle],y
	bra  derefIt
;---------------------------------------------------------------
DerefHandle	phd
	tsc
	tcd
derefIt	ldy  #2
	lda  [theHandle],y
	tax
	lda  [theHandle]
	sta  theHandle+2
exit	pld
	ply
	pla
	pla
	phy
	rts
;---------------------------------------------------------------
UnlockHandle	phd
	tsc
	tcd
	ldy  #4
	lda  [theHandle],y
	and  #$7FFF
	sta  [theHandle],y
	bra  exit
;---------------------------------------------------------------

	ENDP

****************************************************************

Memory4Proc	PROC

;---------------------------------------------------------------
	EXPORT LockRecordHandle
	EXPORT DerefRecordHandle
	EXPORT UnlockRecordHandle
;---------------------------------------------------------------

;---------------------------------------------------------------
LockRecordHandle	ldy  #4
	lda  [RecordHandle],y
	ora  #$8000
	sta  [RecordHandle],y
	movl RecordHandle,RecordInUse	;mark this record as in use
;---------------------------------------------------------------
DerefRecordHandle	Deref RecordHandle,RecordPtr
	rts
;---------------------------------------------------------------
UnlockRecordHandle	ldy  #4
	lda  [RecordHandle],y
	and  #$7FFF
	sta  [RecordHandle],y
	stzl RecordInUse		;clear the record in use variable
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

DerefAX	PROCNAME  Export

	DSECT 1
theHandle	long

	phd
	phx
	pha
	tsc
	tcd
	ldy  #2
	lda  [theHandle],y
	tax
	lda  [theHandle]
	sta  theHandle+2
	pla
	pla
	pld
	rts

	ENDP

****************************************************************

Memory5Proc	PROC

;---------------------------------------------------------------
	EXPORT  KillRgn
	EXPORT  KillHandle
;---------------------------------------------------------------

;---------------------------------------------------------------
KillRgn	ply		;get the return address into Y-Reg
	PullAX		;get the region handle into A-Reg and X-Reg
	phy		;push the return address back on the stack
;---------------------------------------------------------------
KillHandle	PushAX		;push passed handle on the stack
	_DisposeHandle
	tax		;save the error code in X-Reg
	rts		;the carry will be set/clr by _DisposeH.
;---------------------------------------------------------------

	ENDP

****************************************************************

Memory6Proc	PROC

;---------------------------------------------------------------
	EXPORT  QuickMove
	EXPORT  BlockMove
;---------------------------------------------------------------

;---------------------------------------------------------------
QuickMove	lda  MoveLength+2
	bne  entry1
	ldy  MoveLength
	beq  @quickExit
	cpy  #10
	bge  entry2
	dey

	lda  SourcePtr+2
	cmp  DestPtr+2
	bne  @doQuick
	lda  DestPtr
	cmp  SourcePtr
	bge  @doQuick
	adc  #10
	cmp  SourcePtr
	bge  entry3

@doQuick	shortm
@loop	lda  [SourcePtr],y
	sta  [DestPtr],y
	dey
	bpl  @loop
	longm
@quickExit	rts
;---------------------------------------------------------------
BlockMove	lda  MoveLength+2
entry1	ora  MoveLength
	beq  done

entry2	lda  SourcePtr+2
	cmp  DestPtr+2
	blt  backwards
	bne  forewards
entry3	lda  SourcePtr
	cmp  DestPtr
	blt  backwards
;---------------------------------------------------------------
forewards	PushZLong SourcePtr
	PushZLong DestPtr
	ldy  #%0000100000000101
;---------------------------------------------------------------
doIt	PushZLong MoveLength
	phy
	jsl  $E10200		;memory mover entry point
done	rts
;---------------------------------------------------------------
backwards	decl MoveLength
	lda  SourcePtr
	clc
	adc  MoveLength
	tax
	lda  SourcePtr+2
	adc  MoveLength+2
	pha
	phx
	lda  DestPtr
	clc
	adc  MoveLength
	tax
	lda  DestPtr+2
	adc  MoveLength+2
	pha
	phx
	incl MoveLength
	ldy  #%0000100000001010
	bra  doIt
;---------------------------------------------------------------

	ENDP

****************************************************************

GetHandleSize	PROCNAME  Export

;---------------------------------------------------------------
	DefineStack
origD	word
returnAddr	word
theHandle	long
;---------------------------------------------------------------

;---------------------------------------------------------------
	phd		;save the old direct page
	tsc		;setup our new direct page
	tcd

	ldy  #HandleRecord.length+2
	lda  [theHandle],y
	tax
	dey
	dey
	lda  [theHandle],y

	ldy  returnAddr
	sty  theHandle+2
	pld		;restore the original direct page
	ply		;pull off the garbage
	ply
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

SetHandleSize	PROCNAME  Export

;---------------------------------------------------------------
	PushAX		;push the size to set to
	
	lda  9,s		;copy the handle
	pha
	lda  9,s
	pha
	_SetHandleSize
	tax		;save the error code in X-Reg
	
	ply		;save return address
	pla		;pull off the passed handle
	pla
	phy		;restore return address
	rts		;carry will be set/clr by SetHandleSize.
;---------------------------------------------------------------

	ENDP

****************************************************************

DerefTempPtr	PROCNAME  Export

	Deref TempPtr,TempPtr	;WARNING: this code must NOT change the
	rts		;..carry flag

	ENDP

****************************************************************

TerminateTempPtr	PROCNAME  Export

	lda  #$FFFF
	sta  [TempPtr],y
	iny
	iny
	sta  [TempPtr],y
	rts

	ENDP

****************************************************************

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/TextEdit/misc.aii b/IIGS.601.SRC/GSToolbox/TextEdit/misc.aii
new file mode 100644
index 0000000..1f24ec1
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/TextEdit/misc.aii
@@ -0,0 +1 @@
+**********************************************************************
*
*                      GSTextEdit  Version 1.0
*                           File: misc.aii
*
*               Copyright Apple Computer, Inc. 1988-89
*                        All rights reserved
*
*
*
*
* Notes
*
* All the routines in GSTextEdit must be called in full native mode and
* return that way.
*
* All the files in GSTextEdit must be assembled with the "-unsafe"
* option to pass unresolved references to the linker.
*
*
*
*
* Change History
*
* 30 May 89	Dave Good
*
* Made obsolete (moved all the routines into record.aii).
*
**********************************************************************

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/TextEdit/record.aii b/IIGS.601.SRC/GSToolbox/TextEdit/record.aii
new file mode 100644
index 0000000..1447f65
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/TextEdit/record.aii
@@ -0,0 +1 @@
+**********************************************************************
*
*                      GSTextEdit  Version 1.0
*                          File: record.aii
*
*               Copyright Apple Computer, Inc. 1988-89
*                        All rights reserved
*
*
*
*
* Notes
*
* All the routines in GSTextEdit must be called in full native mode and
* return that way.
*
* All the files in GSTextEdit must be assembled with the "-unsafe"
* option to pass unresolved references to the linker.
*
*
*
*
* Change History
*
* 30 May 89	Dave Good
*
* Cleaned up comments for final release.
*
**********************************************************************


	INCLUDE  'GlobalIncludes'


****************************************************************

GetPortLong	PROCNAME  Export

	iny
	iny
	lda  [DrawPortPtr],y
	tax
	dey
	dey
	lda  [DrawPortPtr],y
	rts

	ENDP

****************************************************************

SetPortLong	PROCNAME  Export

	sta  [DrawPortPtr],y
	iny
	iny
	txa
	sta  [DrawPortPtr],y
	rts

	ENDP

****************************************************************

GetRecordLong	PROCNAME  Export

	iny
	iny
	lda  [RecordPtr],y
	tax
	dey
	dey
	lda  [RecordPtr],y
	rts

	ENDP

****************************************************************

PushRecordLong	PROCNAME  Export

	lda  1,s
	pha
	pha

	lda  [RecordPtr],y
	sta  3,s
	iny
	iny
	lda  [RecordPtr],y
	sta  5,s
	dey
	dey

	rts

	ENDP

****************************************************************

SetRecordLong	PROCNAME  Export

	sta  [RecordPtr],y
	iny
	iny
	txa
	sta  [RecordPtr],y
	rts

	ENDP

****************************************************************

AddWordToRecordLong	PROCNAME  Export

	clc
	adc  [RecordPtr],y
	sta  [RecordPtr],y
	bcc  skipHigh
	iny
	iny
	lda  [RecordPtr],y
	inc  a
	sta  [RecordPtr],y
skipHigh	rts

	ENDP

****************************************************************

Record1Proc	PROC

	EXPORT GetSelectionStart
	EXPORT GetSelectionEnd
	EXPORT GetScreenTopOffset

;---------------------------------------------------------------
GetScreenTopOffset	ldy  #TERecord.TopTextOffset+2
	bra  getIt
;---------------------------------------------------------------
GetSelectionEnd	ldy  #TERecord.SelectionEnd+2
	bra  getIt
;---------------------------------------------------------------
GetSelectionStart	ldy  #TERecord.SelectionStart+2
;---------------------------------------------------------------
getIt	lda  [RecordPtr],y
	sta  TextOffset+2
	dey
	dey
	lda  [RecordPtr],y
	sta  TextOffset
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

Record2Proc	PROC

	EXPORT SetSelectionStart
	EXPORT SetSelectionEnd
	EXPORT SetScreenTopOffset

;---------------------------------------------------------------
SetScreenTopOffset	ldy  #TERecord.TopTextOffset
	bra  setIt
;---------------------------------------------------------------
SetSelectionEnd	ldy  #TERecord.SelectionEnd
	bra  setIt
;---------------------------------------------------------------
SetSelectionStart	ldy  #TERecord.SelectionStart
;---------------------------------------------------------------
setIt	lda  TextOffset
	sta  [RecordPtr],y
	iny
	iny
	lda  TextOffset+2
	sta  [RecordPtr],y
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

GetTextLength	PROCNAME  Export

	ldy  #TERecord.TextLength
	brl  GetRecordLong	

	ENDP

****************************************************************

GetTEHighFlags	PROCNAME  Export

	ldy  #TERecord.TextFlags+2
	lda  [RecordPtr],y
	rts

	ENDP

****************************************************************

Record3Proc	PROC

;---------------------------------------------------------------
	EXPORT  GetVertScrollBar
	EXPORT  GetGrowBoxHandle
;---------------------------------------------------------------

;---------------------------------------------------------------
GetGrowBoxHandle	ldy  #TERecord.GrowBoxHandle+2	;get the grow box handle
	bra  getTheHandle
;---------------------------------------------------------------
GetVertScrollBar	ldy  #TERecord.VertScrollBar+2	;get the scroll bar handle
;---------------------------------------------------------------
getTheHandle	lda  [RecordPtr],y		;now get the handle into the A and X regs
	tax
	dey
	dey
	lda  [RecordPtr],y
	bne  @done
	inx		;this compares X-Reg with zero in only
	dex		;..two bytes
@done	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

IsOffsetAtEnd	PROCNAME  Export

	ldy  #TERecord.TextLength	;compare the low word
	lda  [RecordPtr],y
	cmp  TextOffset
	bne  @done

	ldy  #TERecord.TextLength+2	;compare the high word
	lda  [RecordPtr],y
	cmp  TextOffset+2

@done	rts

	ENDP

****************************************************************

Record4Proc	PROC

;---------------------------------------------------------------
	EXPORT  GetViewRect
	EXPORT  CopyIntoTempRect
;---------------------------------------------------------------

;---------------------------------------------------------------
GetViewRect	ldy  #TERecord.ViewRect
;---------------------------------------------------------------
CopyIntoTempRect	lda  [RecordPtr],y
	sta  TempRect.top
	iny
	iny
	lda  [RecordPtr],y
	sta  TempRect.left
	iny
	iny
	lda  [RecordPtr],y
	sta  TempRect.bottom
	iny
	iny
	lda  [RecordPtr],y
	sta  TempRect.right
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

CopyFromTempRect	PROCNAME  Export

	lda  TempRect.top
	sta  [RecordPtr],y
	iny
	iny
	lda  TempRect.left
	sta  [RecordPtr],y
	iny
	iny
	lda  TempRect.bottom
	sta  [RecordPtr],y
	iny
	iny
	lda  TempRect.right
	sta  [RecordPtr],y
	rts

	ENDP

****************************************************************

CopyTempToDrawRect	PROCNAME  Export

	mov  TempRect.top,DrawRect.top
	mov  TempRect.left,DrawRect.left
	mov  TempRect.bottom,DrawRect.bottom
	mov  TempRect.right,DrawRect.right
	rts

	ENDP

****************************************************************

Record5Proc	PROC

;---------------------------------------------------------------
	EXPORT  SetWindowPort
	EXPORT  SetDrawPort
;---------------------------------------------------------------

;---------------------------------------------------------------
SetWindowPort	ldy  #TERecord.inPort
	jsr  PushRecordLong
	bra  doIt
;---------------------------------------------------------------
SetDrawPort	PushZLong DrawPortPtr
;---------------------------------------------------------------
doIt	jsr  SetPort		;we must jsr to this routine since it
	rts		;..uses the stack
;---------------------------------------------------------------

	ENDP

****************************************************************

GetWindowPortPtr	PROCNAME  Export

	ldy  #TERecord.inPort
	jsr  GetRecordLong
	stax TempPtr
	rts

	ENDP

****************************************************************

AreWeInvisible	PROCNAME  Export

	ldy  #TERecord.CtrlFlag	;returns zero if visible and not zero
	lda  [RecordPtr],y		;..if invisible
	and  #fInvisible
	rts

	ENDP

****************************************************************

SetDirtyFlag	PROCNAME  Export

	ldy  #TERecord.CtrlFlag
	lda  [RecordPtr],y
	ora  #$0040
	sta  [RecordPtr],y
	rts

	ENDP

****************************************************************

ClearNullStyle	PROCNAME  Export

	ldy  #TERecord.NullStyleActive	;this MUST NOT change the state of the
	lda  #0		;..carry flag !!!
	sta  [RecordPtr],y
	rts

	ENDP

****************************************************************

CompareOffsetWithSelcEnd PROCNAME  Export

	ldy  #TERecord.SelectionEnd+2
	lda  TextOffset+2
	cmp  [RecordPtr],y
	bne  @done
	dey
	dey
	lda  TextOffset
	cmp  [RecordPtr],y
@done	rts

	ENDP

****************************************************************

NegateTempLong	PROCNAME  Export

	lda  TempLong
	eor  #$FFFF
	tax
	lda  TempLong+2
	eor  #$FFFF
	inx
	bne  @1
	inc  a
@1	stx  TempLong
	sta  TempLong+2
	rts

	ENDP

****************************************************************

NegateAX	PROCNAME  Export

	eor  #$FFFF
	tay
	txa
	eor  #$FFFF
	tax
	tya
	incl a
	rts

	ENDP

****************************************************************

PushDrawRect	PROCNAME  Export

	ply
	PushZWord DrawRect.top
	PushZWord DrawRect.left
	PushZWord DrawRect.bottom
	PushZWord DrawRect.right
	phy
	rts

	ENDP

****************************************************************

PullDrawRect	PROCNAME  Export

	lda  9,s
	sta  DrawRect.top
	pla
	sta  7,s
	pla
	sta  DrawRect.right
	pla
	sta  DrawRect.bottom
	pla
	sta  DrawRect.left
	rts

	ENDP

****************************************************************

CallFilterProc	PROCNAME  Export

	PushWordSpace		;leave space for the filter result
	PushZLong RecordHandle	;pass the current record handle
	pha		;the message to pass is in the A-Reg
	ldy  #TERecord.FilterProc+1
	lda  [RecordPtr],y
	tax
	dey
	lda  [RecordPtr],y
	jsl  LongCall
	pla		;return the filter result in A-Reg
	rts

	ENDP

****************************************************************

PassTempRect	PROCNAME  Export

	ldy  #TERecord.theFilterRect

	lda  TempRect.top
	sta  [RecordPtr],y
	iny
	iny
	lda  TempRect.left
	sta  [RecordPtr],y
	iny
	iny
	lda  TempRect.bottom
	sta  [RecordPtr],y
	iny
	iny
	lda  TempRect.right
	sta  [RecordPtr],y

	rts

	ENDP

****************************************************************

SetLastErrorCode	PROCNAME  Export

;---------------------------------------------------------------
	txa
	beq  exit2
	ldy  #TERecord.LastErrorCode
	sta  [RecordPtr],y
	cpx  #$0201		;is the error out of memory ?
	bne  exit1

	phx		;save the error code
	nop
	plx		;restore the error code
;---------------------------------------------------------------
exit1	sec
exit2	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

LongCall	PROCNAME  Export

	dec  a		;the low word is in A-Reg. Make it look
	phx		;..like a return address. Push the high
	tsx		;..and middle bytes. Now adjust the stack
	inx		;..to leave only the high byte of the
	txs		;.address
	pha		;push the low word of the address
	rtl		;go to the address.

	ENDP

****************************************************************

AddFourToDestPtr	PROCNAME  Export

	lda  #4
	clc
	adc  DestPtr
	sta  DestPtr
	bcc  @1
	inc  DestPtr+2
@1	rts

	ENDP

****************************************************************

AddEightToDestPtr	PROCNAME  Export

	lda  #8
	clc
	adc  DestPtr
	sta  DestPtr
	bcc  @1
	inc  DestPtr+2
@1	rts

	ENDP

****************************************************************

AddFourToSourcePtr	PROCNAME  Export

	lda  #4
	clc
	adc  SourcePtr
	sta  SourcePtr
	bcc  @1
	inc  SourcePtr+2
@1	rts

	ENDP

****************************************************************

AddEightToSourcePtr	PROCNAME  Export

	lda  #8
	clc
	adc  SourcePtr
	sta  SourcePtr
	bcc  @1
	inc  SourcePtr+2
@1	rts

	ENDP

****************************************************************

LoadResource	PROCNAME  Export

	PushLongSpace		;push space for the result, then the type
	phy		;..(the Y-Reg), then the resource ID (the
	PushAX		;..A and X-Regs).
	_CMLoadResource		;this tool call will check for errors and
	PullAX		;..call system death if any occur
	rts		;return the handle in the A and X-Regs

	ENDP

****************************************************************

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/TextEdit/scrap.aii b/IIGS.601.SRC/GSToolbox/TextEdit/scrap.aii
new file mode 100644
index 0000000..ae9105f
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/TextEdit/scrap.aii
@@ -0,0 +1 @@
+**********************************************************************
*
*                      GSTextEdit  Version 1.0
*                          File: scrap.aii
*
*               Copyright Apple Computer, Inc. 1988-89
*                        All rights reserved
*
*
*
*
* Notes
*
* All the routines in GSTextEdit must be called in full native mode and
* return that way.
*
* All the files in GSTextEdit must be assembled with the "-unsafe"
* option to pass unresolved references to the linker.
*
*
*
*
* Change History
*
* 30 May 89	Dave Good
*
* Cleaned up comments for final release.
*
**********************************************************************


	INCLUDE  'GlobalIncludes'
	INCLUDE  'E16.Scrap'


****************************************************************

CutGuts	PROCNAME  Export

;---------------------------------------------------------------
	jsr  ReturnIfCaret

	jsr  CopyGuts
	bcc  @1
	rts

@1	jsr  GetTEHighFlags
	and  #fSmartCutPaste
	beql skipSmart
;---------------------------------------------------------------
	jsr  UnhilightSelection

	lda  #$FFFF
	sta  SmartExtendFlag
;---------------------------------------------------------------
extendTheStart	jsr  GetSelectionStart
	lda  TextOffset
	ora  TextOffset+2
	beq  extendTheEnd

@startLoop	decl TextOffset
	jsr  FindTextPtr
	lda  [TextPtr]
	and  #$00FF
	cmp  #' '
	beq  @startLoop
	incl TextOffset
	ldy  #TERecord.SelectionStart
	jsr  GetRecordLong
	cmp  TextOffset
	bne  @setStart
	cpx  TextOffset+2
	beq  extendTheEnd

@setStart	jsr  SetSelectionStart
	stz  SmartExtendFlag
;---------------------------------------------------------------
extendTheEnd	jsr  GetSelectionEnd
@endLoop	jsr  IsOffsetAtEnd
	beq  @setEnd
	jsr  FindTextPtr
	lda  [TextPtr]
	and  #$00FF
	cmp  #' '
	bne  @setEnd
	stz  SmartExtendFlag
	incl TextOffset
	bra  @endLoop

@setEnd	jsr  SetSelectionEnd
;---------------------------------------------------------------
addASpace	lda  SmartExtendFlag
	bmi  @notEnd

	jsr  GetSelectionStart
	jsr  FindTextPtr
	lda  [TextPtr]
	and  #$00FF
	cmp  #' '
	bne  @notStart
	incl TextOffset
	jsr  SetSelectionStart
	bra  @notEnd

@notStart	jsr  GetSelectionEnd
	decl TextOffset
	jsr  SetSelectionEnd

@notEnd	jsr  HilightSelection
;---------------------------------------------------------------
skipSmart	brl  ClearGuts
;---------------------------------------------------------------

	ENDP

****************************************************************

ClearGuts	PROCNAME  Export

;---------------------------------------------------------------
	jsr  ReturnIfCaret
	brl  RemoveText
;---------------------------------------------------------------

	ENDP

****************************************************************

CopyGuts	PROCNAME  Export

;---------------------------------------------------------------
	jsr  ReturnIfCaret

	jsr  GetSelectionLength
	_ZeroScrap

@loop	jsr  FindTextPtr
	PushZLong BlockHandle	;lock the block handle
	jsr  LockHandle
	lda  SelectionLength+2
	bne  @1
	lda  SelectionLength
	cmp  BlockCount
	bge  @1
	sta  BlockCount
@1	pea  $0000		;push the length
	pei  BlockCount
	PushWord #textScrap
	PushZLong TextPtr
	_PutScrap
	php
	phx
	PushZLong BlockHandle	;unlock the block handle
	jsr  UnlockHandle
	plx
	plp
	bcsl memoryError

	lda  BlockCount
	addl TextOffset
	lda  SelectionLength
	sec
	sbc  BlockCount
	sta  SelectionLength
	bcs  @2
	dec  SelectionLength+2
@2	ora  SelectionLength+2
	bne  @loop
;---------------------------------------------------------------
copyStyles	lda  #StyleRecordVersion	;start the style record with the version
	sta  TempWord		;..number
	ldy  #TERecord.RulerList	;follow this by the length of the ruler
	jsr  PushRecordLong		;..list
	jsr  GetHandleSize
	stax MoveLength
	sec
	sbc  #4
	bcs  @1
	dex
@1	stax TempLong
	PushLong #6
	PushWord #styleScrap
	PushZPtr TempWord
	_PutScrap
	bcsl memoryError

	ldy  #TERecord.RulerList	;next put the ruler list on the end of the
	jsr  PushRecordLong		;..scrap
	jsr  LockHandle
	PushZLong MoveLength
	PushWord #styleScrap
	PushAX
	_PutScrap
	php
	phx
	ldy  #TERecord.RulerList
	jsr  PushRecordLong
	jsr  UnlockHandle
	plx
	plp
	bcsl memoryError
;---------------------------------------------------------------
countItems	stzl StyleItemCount		;count the number of items in the selection
	jsr  GetSelectionStart
@loop	jsr  FindStyleInfo
	jsr  MoveOffsetToNextItem
	incl StyleItemCount
	jsr  CompareOffsetWithSelcEnd
	blt  @loop

	ldax StyleItemCount		;find the number of bytes that this many
	stx  TempLong+2		;..items will take up
	asl  a		;multiply by eight
	rol  TempLong+2
	asl  a
	rol  TempLong+2
	asl  a
	rol  TempLong+2
	clc
	adc  #4
	bcc  @1
	inc  TempLong+2
@1	ldx  TempLong+2
	jsr  GetLargeHandle		;get a new handle to contain the new items
	bcsl memoryError
	stax NewBufferHandle

	PushAX		;lock the handle down and leave the
	jsr  LockHandle		;..pointer in DestPtr
	stax DestPtr
	ldy  #2		;store the item count in the first four
	lda  StyleItemCount		;..bytes of the buffer
	sta  [DestPtr]
	lda  StyleItemCount+2
	sta  [DestPtr],y
	jsr  AddFourToDestPtr	;skip over this count
;---------------------------------------------------------------
copyItems	ldy  #TERecord.StyleList
	jsr  PushRecordLong		;save a copy of the old style list on the
	jsr  PushRecordLong		;..stack. Also lock the list down and put
	jsr  LockHandle		;..the pointer in SourcePtr
	stax SourcePtr
	jsr  GetTerminatedHandle	;get a four byte terminated handle for the
	ldy  #TERecord.StyleList	;..selection's style list and put this in
	jsr  SetRecordLong		;..the control record !?!

	jsr  GetSelectionStart
@loop	movl TextOffset,OriginalOffset
	jsr  FindStyleInfo
	jsr  GetLongSuperCount
	clc
	adc  TextOffset
	sta  TextOffset
	txa
	adc  TextOffset+2
	sta  TextOffset+2
	jsr  CompareOffsetWithSelcEnd
	blt  @ok
	jsr  GetSelectionEnd
@ok	ldy  #2
	lda  TextOffset
	sec
	sbc  OriginalOffset
	sta  [DestPtr]
	lda  TextOffset+2
	sbc  OriginalOffset+2
	sta  [DestPtr],y

	PushZLong SourcePtr
	PushZLong DestPtr
	lda  SourcePtr
	clc
	adc  TextStyleOffset
	pha
	lda  SourcePtr+2
	adc  TextStyleOffset+2
	tax
	pla
	jsr  AddToStyleList
	bcsl memoryError3
	PullLong DestPtr
	PullLong SourcePtr

	ldy  #4
	lda  TextStyleOffset
	sta  [DestPtr],y
	iny
	iny
	lda  TextStyleOffset+2
	sta  [DestPtr],y
	jsr  AddEightToDestPtr
	jsr  CompareOffsetWithSelcEnd
	blt  @loop
;---------------------------------------------------------------
cleanup	jsr  getScrapEndPtr
	ldy  #TERecord.StyleList
	jsr  PushRecordLong
	jsr  GetHandleSize
	sec
	sbc  #4
	bcs  @1
	dex
@1	stax TempLong
	ldy  #2
	sta  [TempPtr]
	txa
	sta  [TempPtr],y

	ldy  #TERecord.StyleList
	jsr  PushRecordLong
	jsr  LockHandle
	PushZLong TempLong
	PushWord #styleScrap
	PushAX
	_PutScrap
	bcs  memoryError2
	ldy  #TERecord.StyleList	;kill the newly allocated style list
	jsr  GetRecordLong
	jsr  KillHandle

	PushZLong NewBufferHandle
	jsr  GetHandleSize
	PushAX
	PushWord #styleScrap
	PushZLong NewBufferHandle
	jsr  LockHandle
	PushAX
	_PutScrap
	bcs  memoryError1
	ldax NewBufferHandle
	jsr  KillHandle

	lda  3,s		;get the original style list into A,X
	tax
	lda  1,s
	ldy  #TERecord.StyleList
	jsr  SetRecordLong
	jsr  UnlockHandle
	ldx  #0
	clc
	rts
;---------------------------------------------------------------



;---------------------------------------------------------------
memoryError3	pla		;cleanup the stack
	pla
	pla
	pla
;---------------------------------------------------------------
memoryError2	phx
	ldy  #TERecord.StyleList	;kill the newly allocated style list
	jsr  GetRecordLong
	jsr  KillHandle
	plx
;---------------------------------------------------------------
memoryError1	phx
	ldax NewBufferHandle
	jsr  KillHandle
	lda  3,s		;get the original style list into A,X
	tax
	lda  1,s
	ldy  #TERecord.StyleList
	jsr  SetRecordLong
	jsr  UnlockHandle
	plx
;---------------------------------------------------------------
memoryError	phx		;save the error code
	_ZeroScrap		;clear the scrap, so we don't leave any
	plx		;..bogus data. Restore the error code
	brl  SetLastErrorCode	;report the last error
;---------------------------------------------------------------



;---------------------------------------------------------------
getScrapEndPtr	PushLongSpace
	PushWord #styleScrap
	_GetScrapHandle
	lda  3,s
	sta  TempPtr+2
	lda  1,s
	sta  TempPtr
	jsr  DerefTempPtr
	jsr  GetHandleSize
	sec
	sbc  #4
	bcs  @2
	dex
@2	clc
	adc  TempPtr
	sta  TempPtr
	txa
	adc  TempPtr+2
	sta  TempPtr+2
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

PasteGuts	PROCNAME  Export

;---------------------------------------------------------------
	PushLongSpace
	PushWord #textScrap
	_GetScrapHandle
	tax
	pla
	sta  InputTextRef
	pla
	sta  InputTextRef+2
	bcc  @weHaveText
	cpx  #$1610
	beql noError
	brl  errorInX
@weHaveText
;---------------------------------------------------------------
doSmart1	jsr  GetTEHighFlags
	and  #fSmartCutPaste
	beq  @skip

	jsr  GetSelectionStart
	lda  TextOffset
	ora  TextOffset+2
	beq  @skip
	decl TextOffset		;check the character just before the
	jsr  FindTextPtr		;..selection
	lda  [TextPtr]
	jsr  IsItAWordBreak		;if it is already a word break, then don't
	bcs  @skip		;..insert a space

	Deref InputTextRef,TextPtr	;now check the first character in the
	lda  [TextPtr]		;..scrap
	jsr  IsItAWordBreak		;if it is already a word break, then we
	bcs  @skip		;..also don't need a space

	jsr  insertSpace
	bcs  errorInX
@skip
;---------------------------------------------------------------
doThePaste	PushLongSpace
	PushWord #styleScrap
	_GetScrapHandle
	tay
	PullAX
	bcc  @1
	cpy  #$1610		;type not found
	bne  errorInY
	lda  #0
	tax
@1	stax InputStyleRef

	lda  #dataIsTextBlock+textIsHandle
	sta  InputTextVerb
	lda  #refIsHandle
	sta  InputStyleVerb
	jsr  TranslateInputVerbs
	jsr  ReplaceText
	php
	phx
	jsr  ReleaseInputVerbs
	plx
	plp
	bcs  errorInX
;---------------------------------------------------------------
doSmart2	jsr  GetTEHighFlags
	and  #fSmartCutPaste
	beq  @skip

	jsr  GetSelectionStart
	jsr  FindTextPtr
	lda  [TextPtr]
	jsr  IsItAWordBreak
	bcs  @skip		;TextOffset MUST be > 0, since we just
	decl TextOffset		;..pasted something
	jsr  FindTextPtr		;check the character just before the
	lda  [TextPtr]		;..selection
	jsr  IsItAWordBreak		;if it is already a word break, then don't
	bcs  @skip		;..insert a space

	brl  insertSpace
@skip
;---------------------------------------------------------------
noError	ldx  #0
	clc
	rts
;---------------------------------------------------------------
errorInY	tyx
errorInX	sec
	rts
;---------------------------------------------------------------



;---------------------------------------------------------------
insertSpace	jsr  GetTEHighFlags		;check to see if the record is editable
	and  #fReadOnly		;..or not
	beq  @insertIt
	ldx  #0
	clc
	rts

@insertIt	lda  #' '		;we are inserting a space
	ldy  #TERecord.theKeyRecord.theChar
	sta  [RecordPtr],y
	tya		;make a pointer into the TERecord
	clc
	adc  RecordPtr
	sta  InputTextPtr
	lda  RecordPtr+2
	adc  #0
	sta  InputTextPtr+2
	lda  #1		;length of one
	sta  InputTextLength
	stz  InputTextLength+2
	stzl InputStyleRef		;no styles
	brl  ReplaceText		;replace the text
;---------------------------------------------------------------

	ENDP

****************************************************************

ReturnIfCaret	PROCNAME  Entry

;---------------------------------------------------------------
	jsr  IsTheSelectionACaret
	beq  @exit
	rts

@exit	pla		;pull off one set of return addresses
	ldx  #0
	clc
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/TextEdit/scroll.aii b/IIGS.601.SRC/GSToolbox/TextEdit/scroll.aii
new file mode 100644
index 0000000..38fe867
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/TextEdit/scroll.aii
@@ -0,0 +1 @@
+**********************************************************************
*
*                      GSTextEdit  Version 1.0
*                          File: scroll.aii
*
*               Copyright Apple Computer, Inc. 1988-89
*                        All rights reserved
*
*
*
*
* Notes
*
* All the routines in GSTextEdit must be called in full native mode and
* return that way.
*
* All the files in GSTextEdit must be assembled with the "-unsafe"
* option to pass unresolved references to the linker.
*
*
*
*
* Change History
*
* 30 May 89	Dave Good
*
* Cleaned up comments for final release.
*
**********************************************************************


	INCLUDE  'GlobalIncludes'


****************************************************************

ScrollActionProc	PROCNAME  Export

;---------------------------------------------------------------
	DefineStack
origPort	long
origD	word
origB	byte
returnAddr	block 3
theCtrlHandle	long
partCode	word
;---------------------------------------------------------------

;---------------------------------------------------------------
	phb		;save the old data bank
	phk		;set the new data bank
	plb
	phd		;save the old direct page

	jsr  GetDirectPage		;setup our direct page
	tcd

	jsr  GetPort		;save the current port

	lda  theCtrlHandle,s	;find the TextEdit record associated
	sta  TempPtr		;..with this scroll bar.
	lda  theCtrlHandle+2,s
	sta  TempPtr+2
	jsr  DerefTempPtr
	ldy  #CtrlRecord.ctlRefCon
	lda  [TempPtr],y
	sta  RecordHandle
	iny
	iny
	lda  [TempPtr],y
	sta  RecordHandle+2
	jsr  LockRecordHandle	;lock the main record handle

	jsr  SetWindowPort		;switch to the TextEdit port

	ldx  #0
	lda  partCode,s
	cmp  #upArrow
	beq  doUp
	cmp  #downArrow
	beq  doDown
	cmp  #pageUp
	beq  doPageUp
	cmp  #pageDown
	beq  doPageDown
	cmp  #thumb
	beq  doThumb
;---------------------------------------------------------------
allDone	jsr  SetPort		;restore the current port
	jsr  UnlockRecordHandle
	pld
	lda  3,s
	sta  9,s
	lda  1,s
	sta  7,s
	pla		;pull off the garbage
	pla
	pla
	plb
	rtl
;---------------------------------------------------------------
doThumb	ldy  #CtrlRecord.ctlValue
	lda  [TempPtr],y
	sec
	ldy  #TERecord.VertScrollPos
	sbc  [RecordPtr],y
	bpl  doTheScroll
	dex
	bra  doTheScroll
;---------------------------------------------------------------
doUp	lda  #-1
	dex
	bra  doTheScroll
;---------------------------------------------------------------
doDown	lda  #1
	bra  doTheScroll
;---------------------------------------------------------------
doPageUp	ldy  #CtrlRecord.viewSize
	lda  [TempPtr],y
	dec  a
	eor  #$FFFF
	inc  a
	dex
	bra  doTheScroll
;---------------------------------------------------------------
doPageDown	ldy  #CtrlRecord.viewSize
	lda  [TempPtr],y
	dec  a
;---------------------------------------------------------------
doTheScroll	jsr  ScrollByAmount
	bra  allDone
;---------------------------------------------------------------

	ENDP

****************************************************************

Scroll1Proc	PROC

;---------------------------------------------------------------
	EXPORT  CenterTheSelection
	EXPORT  ScrollToSelection
;---------------------------------------------------------------

;---------------------------------------------------------------
AdjustmentForCenter	equ  ScrollDelta
;---------------------------------------------------------------

;---------------------------------------------------------------
CenterTheSelection	jsr  GetSelectionStart
	jsr  FindLineInfo

	stz  AdjustmentForCenter

	ldy  #TERecord.ViewRect.bottom
	lda  [RecordPtr],y
	sec
	ldy  #TERecord.ViewRect.top
	sbc  [RecordPtr],y
	sbc  LineHeight
	bcc  @skip	
	lsr  a
	sta  AdjustmentForCenter
@skip
	bra  doIt
;---------------------------------------------------------------
ScrollToSelection	stz  AdjustmentForCenter

	jsr  GetRecordLong		;find either the start or the end of the
	stax TextOffset		;..current selection
;---------------------------------------------------------------
doIt	jsr  checkForNoScroll	;if we cannot scroll, then exit

	jsr  OffsetToVPos		;check to see if the current text offset
	movl TextOffset,OriginalOffset	;..is off the screen. Also save the text
	bcs  @offScreen		;..offset

	lda  TextVPos		;the line is on screen here, now check to
	ldy  #TERecord.ViewRect.top	;..see if the top is off the screen. If it
	cmp  [RecordPtr],y		;..is, then moveBack specially
	bmi  @specialBack
	jsr  FindLineInfo		;now see if the bottom of the line is off
	lda  TextVPos		;..the screen. If it is, then move forward
	clc
	adc  LineHeight
	ldy  #TERecord.ViewRect.bottom
	cmp  [RecordPtr],y
	bmi  @exit
	bne  @specialForward
@exit	rts

@specialBack	ldy  #TERecord.TopTextVPos
	lda  [RecordPtr],y
	ldx  #0
	bra  realBack

@specialForward	sec		;find out how far the line is off the
	ldy  #TERecord.ViewRect.bottom	;..bottom of the screen
	sbc  [RecordPtr],y
	clc		;add the adjustment for center
	adc  AdjustmentForCenter
	ldx  #0
	jsr  DivideByScrollAmount	;convert to scroll chunks and save the number
	sta  TempWord		;..of chunks in TempWord
	jsr  MultiplyByScrollAmount	;convert back to pixels and see if the top
	eor  #$FFFF		;..of the line will be moved off the
	inc  a		;..screen.
	clc
	adc  TextVPos
	ldy  #TERecord.ViewRect.top
	cmp  [RecordPtr],y		;if it will be moved off the top, then
	bmi  @exit		;..exit
	lda  TempWord		;otherwise scroll by the saved amount
	ldx  #0
	brl  ScrollByAmount

@offScreen	lda  TextVPos		;if the TextVPos is not equal to the top
	ldy  #TERecord.ViewRect.top	;..then move forward
	cmp  [RecordPtr],y
	bne  moveForward
;---------------------------------------------------------------
moveBackward	jsr  GetScreenTopOffset
	ldy  #TERecord.TopTextVPos
	lda  [RecordPtr],y
	sta  TempLong
	stz  TempLong+2

@loop	decl TextOffset
	jsr  FindLineStart
	lda  LineHeight
	addl TempLong
	cmpl OriginalOffset,TextOffset
	blt  @loop

	ldax TempLong
realBack	clc
	adc  AdjustmentForCenter
	bcc  @1
	inx
@1	jsr  DivideByScrollAmount
	jsr  NegateAX
	brl  ScrollByAmount
;---------------------------------------------------------------
moveForward	ldy  #TERecord.ViewRect.bottom
	lda  [RecordPtr],y
	sta  TextVPos
	jsr  VPosToOffset

	lda  #$FFFF
	sta  TempLong+2
	lda  TextVPos
	sec
	ldy  #TERecord.ViewRect.bottom
	sbc  [RecordPtr],y
	sta  TempLong
	bne  @1
	stz  TempLong+2
@1
	jsr  FindLineInfo
@loop	jsr  MoveOffsetToNextItem
	jsr  FindLineInfo
	lda  LineHeight
	addl TempLong
	cmpl OriginalOffset,TextOffset
	bgt  @loop

	jsr  IsOffsetAtEnd
	bne  @skipEnd
	ldy  #TERecord.LineAtEndFlag
	lda  [RecordPtr],y
	beq  @skipEnd
	lda  LineHeight
	addl TempLong

@skipEnd	ldax TempLong
	clc
	adc  AdjustmentForCenter
	bcc  @2
	inx
@2	jsr  DivideByScrollAmount
	brl  ScrollByAmount
;---------------------------------------------------------------

	ENDP

****************************************************************

ScrollByAmount	PROCNAME  Export

;---------------------------------------------------------------
	stax AmountScrolled		;this is the number of chunks to scroll

	jsr  checkForNoScroll	;if we are not scrolling, then exit
;---------------------------------------------------------------
doIt	jsr  ClearOffsetCache

	ldy  #TERecord.VertScrollMax
	jsr  GetRecordLong
	stax TempPtr

	ldy  #TERecord.VertScrollPos	;update the new vertical position,
	lda  [RecordPtr],y		;..clipping to TempPtr. Also leave the
	sta  TempLong		;..original in TempLong
	clc
	adc  AmountScrolled
	tax
	iny
	iny
	lda  [RecordPtr],y
	sta  TempLong+2
	adc  AmountScrolled+2
	bpl  @notMinus
	lda  #0
	tax
@notMinus	cmp  TempPtr+2
	blt  @noClip
	bne  @clipIt
	cpx  TempPtr
	ble  @noClip
@clipIt	lda  TempPtr+2
	ldx  TempPtr
@noClip	sta  [RecordPtr],y
	dey
	dey
	txa
	sta  [RecordPtr],y
	sta  TempWord		;save the new value in TempPtr

	jsr  GetVertScrollBar
	beq  @skipSet
	PushZWord TempWord
	PushAX
	_SetCtlValue
@skipSet
;---------------------------------------------------------------
	lda  TempLong		;the old position minus the new position
	sec		;..is the amount we are scrolling.
	ldy  #TERecord.VertScrollPos
	sbc  [RecordPtr],y
	pha
	iny
	iny
	lda  TempLong+2
	sbc  [RecordPtr],y
	tax
	ora  1,s
	bne  doTheScroll
	pla
	rts
;---------------------------------------------------------------
doTheScroll	pla		;cleanup the stack
	jsr  MultiplyByScrollAmount	;convert chunks to pixels and save in
	stax AmountScrolled		;..AmountScrolled

	jsr  GetViewRect		;scroll the entire view rect

	ldax AmountScrolled		;get back the amount to scroll
	jsr  FastScrollRect

	lda  AmountScrolled+2
	bpl  movingBack
;---------------------------------------------------------------
movingForward	jsr  GetScreenTopOffset

	lda  AmountScrolled
	sec
	ldy  #TERecord.TopTextVPos
	sbc  [RecordPtr],y
	sta  AmountScrolled
	bcs  @1
	dec  AmountScrolled+2
@1
@loop	jsr  FindLineInfo
	lda  LineHeight
	addl AmountScrolled
	lda  AmountScrolled+2
	bpl  @done
	jsr  MoveOffsetToNextItem
	bra  @loop

@done	lda  AmountScrolled
	bne  @subIt
	jsr  MoveOffsetToNextItem
	lda  #0
	bra  setAndDraw

@subIt	lda  LineHeight
	sec
	sbc  AmountScrolled
	bra  setAndDraw
;---------------------------------------------------------------
movingBack	jsr  GetScreenTopOffset

	ldy  #TERecord.TopTextVPos
	lda  [RecordPtr],y
	sec
	sbc  AmountScrolled
	sta  AmountScrolled
	lda  #0
	sbc  AmountScrolled+2
	sta  AmountScrolled+2
	bcs  @thru

@loop	decl TextOffset
	jsr  FindLineStart
	lda  LineHeight
	addl AmountScrolled
	lda  AmountScrolled+2
	bmi  @loop

@thru	lda  AmountScrolled
;---------------------------------------------------------------
setAndDraw	ldy  #TERecord.TopTextVPos
	sta  [RecordPtr],y
	jsr  SetScreenTopOffset
	brl  DoDraw
;---------------------------------------------------------------

	ENDP

****************************************************************

DivideByScrollAmount PROCNAME  Export

	PushLongSpace
	PushLongSpace
	PushAX		;this is what to divide
	pea  $0000
	ldy  #TERecord.VertScrollAmount
	lda  [RecordPtr],y
	pha
	_LongDivide
	ply		;get back the low word of the result
	plx		;get back the high word of the result
	pla
	sta  TempWord
	pla
	ora  TempWord
	beq  @exact
	tya
	incl a
	clc
	rts

@exact	tya
	sec
	rts

	ENDP

****************************************************************

MultiplyByScrollAmount PROCNAME  Export

;---------------------------------------------------------------
	PushLongSpace		;space for the result
	PushLongSpace
	PushAX		;push the amount in chuncks
	pea  $0000		;push the chunk size
	ldy  #TERecord.VertScrollAmount
	lda  [RecordPtr],y
	pha
	_LongMul
	PullAX		;this is the number of pixels
	ply		;cleanup the stack
	ply
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

ResetScrollBar	PROCNAME  Export

;---------------------------------------------------------------
	jsr  checkForNoScroll	;if we are not scrolling, then exit
;---------------------------------------------------------------
	ldy  #TERecord.TotalHeight	;find the new maximum value for the
	jsr  GetRecordLong		;..vertical scroll bar
	clc
	ldy  #TERecord.ViewRect.top
	adc  [RecordPtr],y
	bcc  @1
	inx
@1	sec
	ldy  #TERecord.ViewRect.bottom
	sbc  [RecordPtr],y
	bcs  @2
	dex
@2	cpx  #$8000
	blt  @notZero
	lda  #0
	tax
	bra  @clipToMax
@notZero	jsr  DivideByScrollAmount

@clipToMax	PushAX		;save the new maximum scroll pos on the
	ldy  #TERecord.VertScrollMax	;..stack. Also save it in the record.
	jsr  SetRecordLong
	lda  1,s		;restore the A-Reg
	ldy  #TERecord.VertScrollPos
	sec
	sbc  [RecordPtr],y
	pha
	iny
	iny
	txa
	sbc  [RecordPtr],y
	tax
	pla
	cpx  #$8000
	blt  @noClip

	stax TempLong
	jsr  NegateAX
	jsr  MultiplyByScrollAmount
	cpx  #0
	bne  @clearDrawRect
	cmp  #$8000
	bge  @clearDrawRect
	sta  TempWord
	clc
	adc  DrawRect.top
	bvs  @clearDrawRect
	ldy  #TERecord.ViewRect.bottom
	cmp  [RecordPtr],y
	bpl  @clearDrawRect
	sta  DrawRect.top
	lda  TempWord
	clc
	adc  DrawRect.bottom
	bvs  @useView
	ldy  #TERecord.ViewRect.bottom
	cmp  [RecordPtr],y
	bmi  @useAReg
@useView	ldy  #TERecord.ViewRect.bottom
	lda  [RecordPtr],y
@useAReg	sta  DrawRect.bottom
	bra  @skipClear

@clearDrawRect	stz  DrawRect.top
	stz  DrawRect.bottom

@skipClear	jsr  PushDrawRect
	ldax TempLong
	jsr  ScrollByAmount
	jsr  PullDrawRect

@noClip	PullLong TempLong
;---------------------------------------------------------------
fixTheBar	jsr  GetVertScrollBar	;is there a vertical scroll bar ? If not,
	beq  @done		;..then exit.
	stax TempPtr
	jsr  DerefTempPtr

	ldy  #TERecord.ViewRect.bottom	;find the view size in scroll increments
	lda  [RecordPtr],y
	sec
	ldy  #TERecord.ViewRect.top
	sbc  [RecordPtr],y
	ldx  #0
	jsr  DivideByScrollAmount
	sta  TempWord

	lda  TempLong		;clip TempLong to a word for accessing the
	ldx  TempLong+2		;..scroll bar
	beq  @1
	lda  #$FFFF
@1	clc
	adc  TempWord
	sta  TempLong

	ldy  #CtrlRecord.viewSize	;are the scroll bar parameters changing ?
	lda  [TempPtr],y
	cmp  TempWord
	bne  @setIt

	ldy  #CtrlRecord.dataSize
	lda  [TempPtr],y
	cmp  TempLong
	beq  @done		;..nope, so done

@setIt	PushZWord TempLong		;push the new data size
	PushZWord TempWord		;push the new view size
	jsr  GetVertScrollBar
	PushAX
	_SetCtlParams

@done	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

RecalcScrollBar	PROCNAME  Export

;---------------------------------------------------------------
	jsr  checkForNoScroll	;if we are not scrolling, then exit
;---------------------------------------------------------------
	ldy  #TERecord.TotalHeight	;find the new maximum value for the
	jsr  GetRecordLong		;..vertical scroll bar
	clc
	ldy  #TERecord.ViewRect.top
	adc  [RecordPtr],y
	bcc  @1
	inx
@1	sec
	ldy  #TERecord.ViewRect.bottom
	sbc  [RecordPtr],y
	bcs  @2
	dex
@2	cpx  #$8000
	blt  @notZero
	lda  #0
	tax
	bra  @clipToMax
@notZero	jsr  DivideByScrollAmount

@clipToMax	stax TempLong		;save the new maximum value in TempLong
	ldy  #TERecord.VertScrollMax	;..and put it in the record
	jsr  SetRecordLong
	lda  TempLong		;restore A-Reg (SetRecordLong killed it)
	ldy  #TERecord.VertScrollPos	;see if the old scroll position is greater
	sec		;..that the new maximum.
	sbc  [RecordPtr],y
	iny
	iny
	txa		;the high word of the maximum is still in
	sbc  [RecordPtr],y		;..the X-Reg
	bpl  @noClip
	txa		;yes, the old position is greater than the
	sta  [RecordPtr],y		;..maximum, so set the new position
	dey
	dey
	lda  TempLong
	sta  [RecordPtr],y
@noClip
;---------------------------------------------------------------
fixTheBar	jsr  GetVertScrollBar	;is there a vertical scroll bar ? If not,
	beq  @noScrollBar		;..then exit.

	ldy  #TERecord.ViewRect.bottom	;find the view size in scroll increments
	lda  [RecordPtr],y
	sec
	ldy  #TERecord.ViewRect.top
	sbc  [RecordPtr],y
	ldx  #0
	jsr  DivideByScrollAmount
	sta  TempWord

	lda  TempLong		;clip TempLong to a word for accessing the
	ldx  TempLong+2		;..scroll bar
	beq  @1
	lda  #$FFFF
@1	clc
	adc  TempWord
	pha		;push the new data size
	PushZWord TempWord		;push the new view size
	jsr  GetVertScrollBar
	PushAX
	_SetCtlParams

	ldy  #TERecord.VertScrollPos	;set the new scroll bar value
	lda  [RecordPtr],y
	pha
	jsr  GetVertScrollBar
	PushAX
	_SetCtlValue
@noScrollBar
;---------------------------------------------------------------
resetTheTop	ldy  #TERecord.VertScrollPos
	lda  [RecordPtr],y
	ldx  #0
	jsr  MultiplyByScrollAmount	;this is the top of the text box in
	stax TempLong		;..pixels

	stzl TextOffset
	ldy  #TERecord.LineSuper
	jsr  FindSuperInfo
	dey
	dey
;---------------------------------------------------------------
@loop	sty  TempWord
	lda  [TempPtr],y		;get the high word of the length and
	bmi  @deleted		;..check to see if the item has been
	tax		;..deleted. If not, then save the high word
	iny		;..in X-Reg
	iny		;move to the line height field
	lda  TempLong		;subtract the line height from the pixel
	sec		;..scroll position. If this number is
	sbc  [TempPtr],y		;..negative, we have found the line
	sta  TempLong
	bcs  @1
	dec  TempLong+2
	bmi  foundIt
@1	
	dey		;move back to the low word of the length
	dey		;..and add the length to the current
	dey		;..text offset
	dey
	lda  [TempPtr],y
	clc
	adc  TextOffset
	sta  TextOffset
	txa
	adc  TextOffset+2
	sta  TextOffset+2

	lda  TempLong		;if there are no more pixels to go thru
	ora  TempLong+2		;..we have found the line we are looking
	beq  foundZero		;..for

@deleted	lda  TempWord		;move to the next item
	clc
	adc  #SuperItemSize
	tay
	cpy  SuperMaxIndex
	blt  @loop

	jsr  MoveToNextHandle	;NOTE: we should never reach the end
	ldy  #SuperBlock.RecordSize+2	;..here
	bra  @loop
;---------------------------------------------------------------	
foundIt	lda  TempLong
	clc
	adc  [TempPtr],y
foundZero	ldy  #TERecord.TopTextVPos
	sta  [RecordPtr],y

	brl  SetScreenTopOffset
;---------------------------------------------------------------

	ENDP

****************************************************************

checkForNoScroll	PROCNAME  Entry

;---------------------------------------------------------------
	ldy  #TERecord.TextFlags+2
	lda  [RecordPtr],y
	and  #fNoScroll
	beq  @mustExecute
	pla		;get rid of one return address, so we skip
@mustExecute	rts		;..the main routine
;---------------------------------------------------------------

	ENDP

****************************************************************

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/TextEdit/selection.aii b/IIGS.601.SRC/GSToolbox/TextEdit/selection.aii
new file mode 100644
index 0000000..e26f95b
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/TextEdit/selection.aii
@@ -0,0 +1 @@
+**********************************************************************
*
*                      GSTextEdit  Version 1.0
*                        File: selection.aii
*
*               Copyright Apple Computer, Inc. 1988-89
*                        All rights reserved
*
*
*
*
* Notes
*
* All the routines in GSTextEdit must be called in full native mode and
* return that way.
*
* All the files in GSTextEdit must be assembled with the "-unsafe"
* option to pass unresolved references to the linker.
*
*
*
*
* Change History
*
* 30 May 89	Dave Good
*
* Cleaned up comments for final release.
*
**********************************************************************


	INCLUDE  'GlobalIncludes'


****************************************************************

DoSelectText	PROCNAME  Export

;---------------------------------------------------------------
	jsr  GetWindowPortPtr	;get a pointer to the control's port
	jsr  ClearNullStyle		;after a click, don't use the null style
	jsr  ClearSavedHPos

	ldy  #EventRecord.where.v	;get the global coordinates of the point
	lda  [TheEventPtr],y	;..that was clicked.
	clc
	ldy  #GrafPort.BoundsRect.top
	adc  [TempPtr],y
	sta  TextVPos
	ldy  #EventRecord.where.h
	lda  [TheEventPtr],y
	clc
	ldy  #GrafPort.BoundsRect.left
	adc  [TempPtr],y
	sta  TextHPos

	stz  ClickKind		;the click is single until proved otherwise

	ldy  #TERecord.MouseRect	;get the rectangle that encloses the last
	jsr  CopyIntoTempRect	;..mouse click.
	lda  TextHPos		;is the point inside that rectangle ?
	cmp  TempRect.left
	bmi  notDouble		;less than
	lda  TextHPos
	cmp  TempRect.right
	bpl  notDouble		;greater than or equal
	lda  TextVPos
	cmp  TempRect.top
	bmi  notDouble		;less than
	lda  TextVPos
	cmp  TempRect.bottom
	bpl  notDouble		;greater than or equal

	PushLongSpace		;get the amount of time for a double click
	_GetDblTime
	ldy  #TERecord.MouseTime	;get the ceiling on the tick count for
	pla		;..this click to qualify as a double.
	clc
	adc  [RecordPtr],y
	sta  TempLong
	iny
	iny
	pla
	adc  [RecordPtr],y
	sta  TempLong+2

	ldy  #EventRecord.when+2	;compare the click times - do we have a
	lda  [TheEventPtr],y	;..double click
	cmp  TempLong+2
	blt  wasDouble
	bne  notDouble
	dey
	dey
	lda  [TheEventPtr],y
	cmp  TempLong
	bgt  notDouble
;---------------------------------------------------------------
wasDouble	inc  ClickKind		;indicate double click
	ldy  #TERecord.MouseKind
	lda  [RecordPtr],y
	beq  notDouble
	inc  ClickKind		;indicate triple click
;---------------------------------------------------------------
notDouble	lda  ClickKind
	ldy  #TERecord.MouseKind
	sta  [RecordPtr],y

	lda  TextHPos
	sta  SaveForDoubleClick
	dec  a
	dec  a
	sta  TempRect.left
	clc
	adc  #4
	sta  TempRect.right
	lda  TextVPos
	dec  a
	dec  a
	sta  TempRect.top
	clc
	adc  #4
	sta  TempRect.bottom
	ldy  #TERecord.MouseRect	;set the rectangle that encloses the last
	jsr  CopyFromTempRect	;..mouse click.

	ldy  #EventRecord.when+2
	lda  [TheEventPtr],y
	tax
	dey
	dey
	lda  [TheEventPtr],y
	ldy  #TERecord.MouseTime
	jsr  SetRecordLong

	jsr  GetViewRect
	lda  TempRect.left
	cmp  TextHPos
	bmi  @skipLeft		;less than
	sta  TextHPos
	sta  SaveForDoubleClick
@skipLeft
	lda  TempRect.right
	cmp  TextHPos
	bpl  @skipRight		;greater than or equal
	sta  TextHPos
	sta  SaveForDoubleClick
@skipRight
	lda  TempRect.top
	cmp  TextVPos
	bmi  @skipTop		;less than
	sta  TextVPos
@skipTop
	lda  TempRect.bottom
	cmp  TextVPos
	bpl  @skipBottom		;greater than or equal
	sta  TextVPos
@skipBottom
	ldy  #EventRecord.modifiers
	lda  [TheEventPtr],y
	and  #shiftKey
	beql noExtend
;---------------------------------------------------------------
extendIt	jsr  PointToOffset

	ldax TextOffset		;initialize the anchor points
	stax AnchorPointStart
	stax AnchorPointEnd

	ldy  #TERecord.SelectionStart	;check to see if we are still at one of
	jsr  GetRecordLong		;..the edges
	cmpl TextOffset
	beq  @takeItOut
	bgtl @beforeSelection

	ldy  #TERecord.SelectionEnd
	jsr  GetRecordLong
	cmpl TextOffset
	beq  @takeItOut
	bltl @afterSelection
	bra  @insideSelection
;---------------------------------------------------------------
@takeItOut	jsr  removeCaret
	brl  enterLoop
;---------------------------------------------------------------
@insideSelection	ldy  #TERecord.SelectionEnd
	jsr  GetRecordLong
	sec
	sbc  TextOffset
	sta  TempLong
	txa
	sbc  TextOffset+2
	sta  TempLong+2

	ldy  #TERecord.SelectionStart
	lda  TextOffset
	sec
	sbc  [RecordPtr],y
	sta  TempWord
	iny
	iny
	lda  TextOffset+2
	sbc  [RecordPtr],y
	cmp  TempLong+2
	blt  @closerStart
	bne  @closerEnd
	lda  TempWord
	cmp  TempLong
	blt  @closerStart
;---------------------------------------------------------------
@closerEnd	ldy  #TERecord.SelectionStart	;save the original start
	jsr  PushRecordLong
	PushZLong TextOffset	;save, so we can set the new end to TextOffset
	jsr  SetSelectionStart	;set the new start to TextOffset
	jsr  InvertSelection	;invert the difference
	PullAX		;restore the new end
	ldy  #TERecord.SelectionEnd
	jsr  SetRecordLong
	PullAX		;restore the original start
	stax AnchorPointStart	;set the anchor points
	stax AnchorPointEnd
	ldy  #TERecord.SelectionStart
	jsr  SetRecordLong
	brl  enterLoop
;---------------------------------------------------------------
@closerStart	ldy  #TERecord.SelectionEnd	;save the original end
	jsr  PushRecordLong
	PushZLong TextOffset	;save, so we can set the new start to TextOffset
	jsr  SetSelectionEnd	;set the new end to TextOffset
	jsr  InvertSelection	;invert the difference
	PullAX		;restore the new start
	ldy  #TERecord.SelectionStart
	jsr  SetRecordLong
	PullAX		;restore the original end
	stax AnchorPointStart	;set the anchor points
	stax AnchorPointEnd
	ldy  #TERecord.SelectionEnd
	jsr  SetRecordLong
	brl  enterLoop
;---------------------------------------------------------------
@afterSelection	jsr  removeCaret
	lda  ClickKind
	beq  @notDouble1
	dec  a
	beq  @notTriple1
	jsr  FindLineStart
	jsr  MoveOffsetToNextItem
	bra  @notDouble1
@notTriple1	jsr  FindWordEnd

@notDouble1	ldy  #TERecord.SelectionStart	;save the original start
	jsr  PushRecordLong
	ldy  #TERecord.SelectionEnd	;set the new start to the old end, so we
	jsr  GetRecordLong		;..can invert the difference between the
	ldy  #TERecord.SelectionStart	;..old and new selections
	jsr  SetRecordLong
	jsr  SetSelectionEnd	;set the new end from TextOffset
	jsr  InvertSelection	;invert the difference
	PullAX		;restore the original start
	stax AnchorPointStart	;set the anchor points
	stax AnchorPointEnd
	ldy  #TERecord.SelectionStart
	jsr  SetRecordLong
	brl  enterLoop
;---------------------------------------------------------------
@beforeSelection	jsr  removeCaret
	lda  ClickKind
	beq  @notDouble2
	dec  a
	beq  @notTriple2
	jsr  FindLineStart
	bra  @notDouble2
@notTriple2	jsr  FindWordStart

@notDouble2	ldy  #TERecord.SelectionEnd	;save the original end
	jsr  PushRecordLong
	ldy  #TERecord.SelectionStart	;set the new end to the old start, so we
	jsr  GetRecordLong		;..can invert the difference between the
	ldy  #TERecord.SelectionEnd	;..old and new selections
	jsr  SetRecordLong
	jsr  SetSelectionStart	;set the new start from TextOffset
	jsr  InvertSelection	;invert the difference
	PullAX		;restore the original end
	stax AnchorPointStart	;set the anchor points
	stax AnchorPointEnd
	ldy  #TERecord.SelectionEnd
	jsr  SetRecordLong
	brl  enterLoop
;---------------------------------------------------------------
noExtend	jsr  UnhilightSelection	;unhilight the current selection
	jsr  PointToOffset
	ldax TextOffset
	stax AnchorPointStart
	stax AnchorPointEnd

	lda  ClickKind
	beql initSingle
	dec  a
	beq  initDouble

initTriple	jsr  FindLineStart
	movl TextOffset,AnchorPointStart
	jsr  SetSelectionStart
	jsr  MoveOffsetToNextItem
	movl TextOffset,AnchorPointEnd
	jsr  SetSelectionEnd
	brl  hilightIt

initDouble	PushZLong TextOffset
	jsr  IsOffsetAtEnd
	beq  @foundIt
	jsr  FindTextPtr
	lda  [TextPtr]
	jsr  IsItAWordBreak
	bcc  @search
	incl TextOffset
	bra  @foundIt
@search	jsr  FindWordEnd
@foundIt	movl TextOffset,AnchorPointEnd
	jsr  SetSelectionEnd
	PullLong TextOffset
	jsr  FindWordStart
	movl TextOffset,AnchorPointStart
	jsr  SetSelectionStart
	ldy  #TERecord.SelectionEnd
	jsr  GetRecordLong
	cmpl TextOffset
	bne  hilightIt
	lda  SaveForDoubleClick
	cmp  TextHPos
	blt  @goBack
	jsr  IsOffsetAtEnd
	beq  hilightIt
	incl TextOffset
	movl TextOffset,AnchorPointEnd
	jsr  SetSelectionEnd
	bra  hilightIt
@goBack	lda  TextOffset
	ora  TextOffset+2
	beq  hilightIt
	decl TextOffset
	movl TextOffset,AnchorPointStart
	jsr  SetSelectionStart
hilightIt	jsr  InvertSelection
	bra  enterLoop

initSingle	jsr  SetSelectionStart
	jsr  SetSelectionEnd
;---------------------------------------------------------------
enterLoop	ldy  #TERecord.SelectionState	;force the selection to be on-screen
	lda  #$FFFF
	sta  [RecordPtr],y

mainLoop	PushWordSpace
	PushWord #0
	_WaitMouseUp
	pla
	beql done
	PushZPtr TextVPos
	_GetMouse
	mov  FixedHPos,TextHPos

	jsr  GetViewRect
	lda  TempRect.left
	cmp  TextHPos
	bmi  @skipLeft		;less than
	sta  TextHPos
	bra  @skipRight
@skipLeft
	lda  TempRect.right
	cmp  TextHPos
	bpl  @skipRight		;greater than or equal
	sta  TextHPos
@skipRight
	lda  TempRect.top
	cmp  TextVPos
	bmi  @skipTop		;less than
	pha		;save the top of the viewRect
	ldax #-1
	jsr  callScroll
	ldy  #TERecord.ViewRect.left
	lda  [RecordPtr],y
	sta  TextHPos
	PullWord TextVPos
	bra  @doTheExtend
@skipTop
	lda  TempRect.bottom
	cmp  TextVPos
	bpl  @skipBottom		;greater than or equal
	pha		;save the bottom of the viewRect
	PushZWord TextHPos
	ldax #1
	jsr  callScroll
	PullWord TextHPos
	PullWord TextVPos
	bra  @doTheExtend
@skipBottom
@doTheExtend	jsr  PointToOffset
	jsr  ExtendToOffset
	brl  mainLoop
;---------------------------------------------------------------
done	jsr  GetSelectionStart
	lda  TextOffset
	cmp  AnchorPointStart
	bne  @isEnd
	lda  TextOffset+2
	cmp  AnchorPointStart+2
	bne  @isEnd

@isStart	ldax AnchorPointStart	;save the anchor point
	bra  @setIt

@isEnd	ldax AnchorPointEnd

@setIt	ldy  #TERecord.AnchorPoint
	jsr  SetRecordLong

	jsr  IsTheSelectionACaret
	bne  exit
	ldy  #TERecord.SelectionState	;force the selection to be off screen
	lda  #$0000
	sta  [RecordPtr],y
	brl  HilightSelection
;---------------------------------------------------------------
exit	rts
;---------------------------------------------------------------



;---------------------------------------------------------------
removeCaret	jsr  IsTheSelectionACaret
	bne  exit
	brl  UnhilightSelection
;---------------------------------------------------------------



;---------------------------------------------------------------
callScroll	PushZLong AnchorPointStart	;save the variables that the scroll code
	PushZLong AnchorPointEnd	;..is going to trash
	PushZWord ClickKind
	PushZWord SaveForDoubleClick

	PushAX		;save the amount to scroll
	jsr  IsTheSelectionACaret	;if the selection is a caret, then make
	bne  @1		;..sure it is marked as offscreen
	ldy  #TERecord.SelectionState
	lda  #$0000
	sta  [RecordPtr],y
@1	PullAX		;restore the amount to scroll

	jsr  ScrollByAmount

	jsr  IsTheSelectionACaret	;if the selection was a caret then mark
	bne  @2		;..it as being on screen again
	ldy  #TERecord.SelectionState
	lda  #$FFFF
	sta  [RecordPtr],y
@2
	PullWord SaveForDoubleClick	;restore the variables that the scroll
	PullWord ClickKind		;..code trashed
	PullLong AnchorPointEnd
	PullLong AnchorPointStart
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

ExtendToOffset	PROCNAME  Export

;---------------------------------------------------------------
	ldy  #TERecord.SelectionStart	;check to see if we are still at one of
	jsr  GetRecordLong		;..the edges
	cmp  TextOffset
	bne  checkEnd
	cpx  TextOffset+2
	bne  checkEnd

	ldy  #TERecord.SelectionEnd
	jsr  GetRecordLong
	cmp  AnchorPointEnd
	bne  @setIt
	cpx  AnchorPointEnd+2
	bne  @setIt
	rts

@setIt	ldy  #TERecord.SelectionStart
	jsr  PushRecordLong
	ldax AnchorPointEnd
	jsr  SetRecordLong
	jsr  InvertSelection
	ldy  #TERecord.SelectionEnd
	ldax AnchorPointEnd
	jsr  SetRecordLong
	ldy  #TERecord.SelectionStart
	bra  setAndExit
;---------------------------------------------------------------
checkEnd	ldy  #TERecord.SelectionEnd
	jsr  GetRecordLong
	cmp  TextOffset
	bne  notEdge
	cpx  TextOffset+2
	bne  notEdge

	ldy  #TERecord.SelectionStart
	jsr  GetRecordLong
	cmp  AnchorPointStart
	bne  @setIt
	cpx  AnchorPointStart+2
	bne  @setIt
	rts

@setIt	ldy  #TERecord.SelectionEnd
	jsr  PushRecordLong
	ldax AnchorPointStart
	jsr  SetRecordLong
	jsr  InvertSelection
	ldy  #TERecord.SelectionStart
	ldax AnchorPointStart
	jsr  SetRecordLong
	ldy  #TERecord.SelectionEnd
setAndExit	PullAX
	brl  SetRecordLong
;---------------------------------------------------------------
notEdge	cmpl TextOffset,AnchorPointStart
	bltl lessThanAnchor
	cmpl TextOffset,AnchorPointEnd
	bge  greaterThanAnchor
;---------------------------------------------------------------
	ldy  #TERecord.SelectionStart
	jsr  GetRecordLong
	cmp  AnchorPointStart
	bne  @doStart
	cpx  AnchorPointStart+2
	bne  @doStart
	ldy  #TERecord.SelectionEnd
	jsr  GetRecordLong
	cmp  AnchorPointEnd
	bne  @doEnd
	cpx  AnchorPointEnd+2
	bne  @doEnd
	rts

@doEnd	movl AnchorPointEnd,TextOffset
	jsr  SetSelectionStart
	jsr  InvertSelection
	movl AnchorPointEnd,TextOffset
	jsr  SetSelectionEnd
	movl AnchorPointStart,TextOffset
	brl  SetSelectionStart

@doStart	movl AnchorPointStart,TextOffset
	jsr  SetSelectionEnd
	jsr  InvertSelection
	movl AnchorPointStart,TextOffset
	jsr  SetSelectionStart
	movl AnchorPointEnd,TextOffset
	brl  SetSelectionEnd
;---------------------------------------------------------------
greaterThanAnchor	lda  ClickKind
	beq  @notDouble
	dec  a
	beq  @notTriple
	jsr  FindLineInfo
	jsr  MoveOffsetToNextItem
	bra  @checkIt
@notTriple	jsr  FindWordEnd
@checkIt	ldy  #TERecord.SelectionEnd
	jsr  GetRecordLong
	cmp  TextOffset
	bne  @notDouble
	cpx  TextOffset+2
	bne  @notDouble
	rts
@notDouble	ldy  #TERecord.SelectionStart
	jsr  GetRecordLong
	cmp  AnchorPointStart
	bne  @setAnchor
	cpx  AnchorPointStart+2
	beq  @skipSet
@setAnchor	PushZLong TextOffset
	jsr  GetSelectionEnd
	PushZLong TextOffset
	movl AnchorPointStart,TextOffset
	jsr  SetSelectionEnd
	jsr  InvertSelection
	movl AnchorPointStart,TextOffset
	jsr  SetSelectionStart
	PullLong TextOffset
	jsr  SetSelectionEnd
	PullLong TextOffset
@skipSet	ldy  #TERecord.SelectionEnd
	jsr  GetRecordLong
	cmpl TextOffset
	blt  extendEnd
;---------------------------------------------------------------
contractEnd	movl TextOffset,TempLong
	PushZLong TextOffset
	jsr  GetSelectionStart
	PushZLong TextOffset
	movl TempLong,TextOffset
	jsr  SetSelectionStart
	jsr  InvertSelection
	PullLong TextOffset
	jsr  SetSelectionStart
	PullLong TextOffset
	brl  SetSelectionEnd
;---------------------------------------------------------------
extendEnd	stax TempLong
	jsr  SetSelectionEnd
;---------------------------------------------------------------
moveEnd	jsr  GetSelectionStart
	PushZLong TextOffset
	movl TempLong,TextOffset
	jsr  SetSelectionStart
	jsr  InvertSelection
	PullLong TextOffset
	brl  SetSelectionStart
;---------------------------------------------------------------



;---------------------------------------------------------------
lessThanAnchor	lda  ClickKind
	beq  @notDouble
	dec  a
	beq  @notTriple
	jsr  FindLineStart
	bra  @checkIt
@notTriple	jsr  FindWordStart
@checkIt	ldy  #TERecord.SelectionStart
	jsr  GetRecordLong
	cmp  TextOffset
	bne  @notDouble
	cpx  TextOffset+2
	bne  @notDouble
	rts
@notDouble	ldy  #TERecord.SelectionEnd
	jsr  GetRecordLong
	cmp  AnchorPointEnd
	bne  @setAnchor
	cpx  AnchorPointEnd+2
	beq  @skipSet
@setAnchor	PushZLong TextOffset
	jsr  GetSelectionStart
	PushZLong TextOffset
	movl AnchorPointEnd,TextOffset
	jsr  SetSelectionStart
	jsr  InvertSelection
	movl AnchorPointEnd,TextOffset
	jsr  SetSelectionEnd
	PullLong TextOffset
	jsr  SetSelectionStart
	PullLong TextOffset
@skipSet	ldy  #TERecord.SelectionStart
	jsr  GetRecordLong
	cmpl TextOffset
	bge  extendStart
;---------------------------------------------------------------
contractStart	movl TextOffset,TempLong
	PushZLong TextOffset
	jsr  GetSelectionEnd
	PushZLong TextOffset
	movl TempLong,TextOffset
	jsr  SetSelectionEnd
	jsr  InvertSelection
	PullLong TextOffset
	jsr  SetSelectionEnd
	PullLong TextOffset
	brl  SetSelectionStart
;---------------------------------------------------------------
extendStart	stax TempLong
	jsr  SetSelectionStart
;---------------------------------------------------------------
moveStart	jsr  GetSelectionEnd
	PushZLong TextOffset
	movl TempLong,TextOffset
	jsr  SetSelectionEnd
	jsr  InvertSelection
	PullLong TextOffset
	brl  SetSelectionEnd
;---------------------------------------------------------------

	ENDP

****************************************************************

Selection1Proc	PROC

	EXPORT UnhilightSelection
	EXPORT HilightSelection
	EXPORT InvertSelection
	EXPORT ActivateSelection
	EXPORT DeactivateSelection
	EXPORT DoInvertInactive

;---------------------------------------------------------------
ActivateSelection	jsr  DoInvertInactive
	ldy  #TERecord.SelectionState
	lda  #0
	sta  [RecordPtr],y
	bra  HilightSelection
;---------------------------------------------------------------
DeactivateSelection	jsr  UnhilightSelection
	bra  DoInvertInactive
;---------------------------------------------------------------
UnhilightSelection	ldy  #TERecord.SelectionState
	lda  [RecordPtr],y
	bpl  allDone
	lda  #0
	sta  [RecordPtr],y		;mark us as off screen
	bra  InvertSelection
;---------------------------------------------------------------
HilightSelection	ldy  #TERecord.SelectionState
	lda  [RecordPtr],y
	bmi  allDone
	lda  #$FFFF
	sta  [RecordPtr],y		;mark us as on screen
	php		;save the interrupt state
	sei		;disable interrupts for this
	lda  >TickCnt		;time stamp the last time the selection
	ldy  #TERecord.CaretTime	;..went on.
	sta  [RecordPtr],y
	iny
	iny
	lda  >TickCnt+2
	sta  [RecordPtr],y
	plp		;restore interrupt status
;---------------------------------------------------------------
InvertSelection	NAME

	PushZWord TextVPos
	PushZWord TextHPos
	PushZLong TextOffset
	jsr  IsTheSelectionACaret
	beq  @doCaret

	lda  #ClipAndInvertRect-1
	jsr  CreateSelectionRgn
	bra  cleanup

@doCaret	jsr  makeCaretRect
	bcs  cleanup
	jsr  ClipAndInvertRect
;---------------------------------------------------------------
cleanup	PullLong TextOffset		;restore TextOffset
	PullWord TextHPos		;restore TextHPos and TextVPos
	PullWord TextVPos
;---------------------------------------------------------------
allDone	rts
;---------------------------------------------------------------
DoInvertInactive	jsr  GetTEHighFlags		;check to see if we are drawing an
	and  #fDrawInactiveSelc	;..inactive selection. If not, then exit
	beq  allDone

	PushZWord TextVPos
	PushZWord TextHPos
	PushZLong TextOffset
	jsr  IsTheSelectionACaret
	beq  @doCaret

	jsr  FrameSelectionRgn
	bra  cleanup

@doCaret	jsr  makeCaretRect
	bcs  cleanup
	lda  #$FFFF		;pen pattern
	ldx  #$AA55		;the mask is all $AA55
	jsr  SetupPenState
	jsr  ClipAndInvertRect
	jsr  RestorePenState
	bra  cleanup
;---------------------------------------------------------------



;---------------------------------------------------------------
makeCaretRect	jsr  GetSelectionStart
	jsr  CachedOffsetToPoint
	bcs  @done

	jsr  FindLineInfo
	lda  TextVPos
	sta  TempRect.top
	clc
	adc  LineHeight
	sta  TempRect.bottom
	lda  TextHPos
	sta  TempRect.left
	inc  a
	sta  TempRect.right
	clc
@done	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

FrameSelectionRgn	PROC  ENTRY

;---------------------------------------------------------------
	DSECT  $00
TempRgn1	long
TempRgn2	long
;---------------------------------------------------------------


;---------------------------------------------------------------
	PushZLong TempRgn1
	PushZLong TempRgn2

	jsr  GetNewRgn
	stax TempRgn1
	jsr  GetNewRgn
	stax TempRgn2

	lda  #doTheRect-1
	jsr  CreateSelectionRgn

	PushWordSpace
	PushZLong TempRgn2
	_EmptyRgn
	pla
	bne  @skip

; 1/11/90 Mensch
; Add the following test to see if the control is visible before performing the following
; operations. This will prevent the controls from being drawn when the TERecord is invisible
;
	ldy  #TERecord.CtrlFlag	; 
	lda [RecordPtr],y
	and #fInvisible
	bne @skip
	
	lda  #$FFFF		;pen pattern
	ldx  #$FFFF		;pen mask
	jsr  SetupPenState
	jsr  GetWindowPortPtr
	ldy  #GrafPort.PnMode
	lda  #modeXOR
	sta  [TempPtr],y
	PushZLong TempRgn2
	_FrameRgn
	jsr  RestorePenState
@skip
	PushZLong TempRgn2
	jsr  KillRgn
	PushZLong TempRgn1
	jsr  KillRgn

	PullLong TempRgn2
	PullLong TempRgn1
	rts
;---------------------------------------------------------------



;---------------------------------------------------------------
doTheRect	jsr  ClipTempRect
	PushZLong TempRgn1
	PushZPtr TempRect
	_RectRgn
	PushZLong TempRgn1
	PushZLong TempRgn2
	PushZLong TempRgn2
	_UnionRgn
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

CreateSelectionRgn	PROC  ENTRY

;---------------------------------------------------------------
	pha		;save the routine to call
	jsr  GetSelectionStart

@loop	jsr  OffsetToPoint
	bcc  onTheScreen
	ldy  #TERecord.ViewRect.bottom
	lda  TextVPos
	cmp  [RecordPtr],y
	beq  @exit
	jsr  FindLineInfo
	jsr  MoveOffsetToNextItem
	jsr  CompareOffsetWithSelcEnd
	blt  @loop

@exit	pla		;clean off the stack
	rts
;---------------------------------------------------------------
onTheScreen	jsr  GetLeftEdge		;text edit is always at a line start
	clc		;..unless it is at the selection start
	ldy  #TERecord.ViewRect.left	;..in which case we will ignore the
	adc  [RecordPtr],y		;..incorrect left edge
	tax
	ldy  #TERecord.SelectionStart
	lda  TextOffset
	cmp  [RecordPtr],y
	bne  @useLeft
	iny
	iny
	lda  TextOffset+2
	cmp  [RecordPtr],y
	bne  @useLeft
	ldx  TextHPos
@useLeft	stx  TempRect.left

	ldy  #TERecord.ViewRect.right
	lda  [RecordPtr],y
	sta  TempRect.right

	jsr  FindLineInfo
	jsr  MoveOffsetToNextItem

	lda  TextVPos
	bra  enterLoop
;---------------------------------------------------------------
mainLoop	jsr  GetLeftEdge		;TextOffset is always at a line start
	clc
	ldy  #TERecord.ViewRect.left
	adc  [RecordPtr],y
	sta  TempRect.left

	jsr  FindLineInfo
	jsr  MoveOffsetToNextItem

	lda  TempRect.bottom
enterLoop	sta  TempRect.top
	clc
	adc  LineHeight
	sta  TempRect.bottom

	jsr  CompareOffsetWithSelcEnd
	blt  @1
	bne  lastLine
	jsr  IsOffsetAtEnd
	beq  lastLine
@1	pea  @return-1
	lda  3,s		;call the line subroutine
	pha
	rts
@return	lda  TempRect.bottom
	ldy  #TERecord.ViewRect.bottom
	cmp  [RecordPtr],y
	blt  mainLoop

	pla		;clean off the stack
	rts
;---------------------------------------------------------------
lastLine	bne  @useHPos		;if NE then we are not at the end
	ldy  #TERecord.LineAtEndFlag
	lda  [RecordPtr],y
	bne  @useRightEdge
@useHPos	jsr  GetSelectionEnd
	jsr  OffsetToHPos
	mov  TextHPos,TempRect.right
@useRightEdge	rts		;return through the line subroutine
;---------------------------------------------------------------

	ENDP

****************************************************************

GetSelectionLength	PROCNAME  Export

	jsr  GetSelectionStart

	ldy  #TERecord.SelectionEnd
	lda  [RecordPtr],y
	sec
	sbc  TextOffset
	sta  SelectionLength

	ldy  #TERecord.SelectionEnd+2
	lda  [RecordPtr],y
	sbc  TextOffset+2
	sta  SelectionLength+2

	tax
	bne  @large
	lda  SelectionLength
	rts

@large	lda  SelectionLength
	rep  #%00000010		;clear the zero bit
	rts

	ENDP

****************************************************************

IsTheSelectionACaret PROCNAME  Export

	ldy  #TERecord.SelectionStart
	lda  [RecordPtr],y
	ldy  #TERecord.SelectionEnd
	cmp  [RecordPtr],y
	bne  @done
	ldy  #TERecord.SelectionStart+2
	lda  [RecordPtr],y
	ldy  #TERecord.SelectionEnd+2
	cmp  [RecordPtr],y
@done	rts

	ENDP

****************************************************************

FindWordEnd	PROCNAME  Export

	jsr  IsOffsetAtEnd
	beq  @done

	jsr  FindTextPtr
	lda  [TextPtr]
	jsr  IsItAWordBreak
	bcs  @done

@loop	incl TextOffset
	jsr  IsOffsetAtEnd
	beq  @done
	jsr  FindTextPtr
	lda  [TextPtr]
	jsr  IsItAWordBreak
	bcc  @loop

@done	rts

	ENDP

****************************************************************

FindWordStart	PROCNAME  Export

	jsr  IsOffsetAtEnd
	bne  @notAtEnd
	lda  TextOffset
	ora  TextOffset+2
	beq  @done
	decl TextOffset

@notAtEnd	jsr  FindTextPtr
	lda  [TextPtr]
	jsr  IsItAWordBreak
	bcs  @done

@loop	lda  TextOffset
	ora  TextOffset+2
	beq  @done
	decl TextOffset
	jsr  FindTextPtr
	lda  [TextPtr]
	jsr  IsItAWordBreak
	bcc  @loop
	incl TextOffset

@done	rts

	ENDP

****************************************************************

IsItAWordBreak	PROCNAME  Export

;---------------------------------------------------------------
	and  #$00FF
	pha
	ldy  #TERecord.WordBreakHook+1
	lda  [RecordPtr],y
	beq  noHook
;---------------------------------------------------------------
useHook	tax
	PushZLong RecordHandle
	lda  5,s		;one word is space for result and the
	pha		;..other one is the passed character
	dey
	lda  [RecordPtr],y
	jsl  LongCall
	pla
	beq  notWordBreak
	bra  isWordBreak
;---------------------------------------------------------------
noHook	pla
	cmp  #' '+1
	blt  isWordBreak
;---------------------------------------------------------------
notWordBreak	clc
	rts
;---------------------------------------------------------------
isWordBreak	sec
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/TextEdit/super.aii b/IIGS.601.SRC/GSToolbox/TextEdit/super.aii
new file mode 100644
index 0000000..ae929f6
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/TextEdit/super.aii
@@ -0,0 +1 @@
+**********************************************************************
*
*                      GSTextEdit  Version 1.0
*                          File: super.aii
*
*               Copyright Apple Computer, Inc. 1988-89
*                        All rights reserved
*
*
*
*
* Notes
*
* All the routines in GSTextEdit must be called in full native mode and
* return that way.
*
* All the files in GSTextEdit must be assembled with the "-unsafe"
* option to pass unresolved references to the linker.
*
*
*
*
* Change History
*
* 30 May 89	Dave Good
*
* Cleaned up comments for final release.
*
**********************************************************************


	INCLUDE  'GlobalIncludes'


****************************************************************

FindStyleInfo	PROCNAME  Export

	ldy  #TERecord.StyleSuper
	jsr  FindSuperInfo
	lda  [TempPtr],y
	sta  TextStyleOffset
	iny
	iny
	lda  [TempPtr],y
	sta  TextStyleOffset+2
	brl  ChangeWidthTable

	ENDP

****************************************************************

SetStyleInfo	PROCNAME  Export

	ldy  #TERecord.StyleSuper
	jsr  SetSuperInfo
	lda  TextStyleOffset
	sta  [TempPtr],y
	iny
	iny
	lda  TextStyleOffset+2
	sta  [TempPtr],y
	rts

	ENDP

****************************************************************

FindLineInfo	PROCNAME  Export

	ldy  #TERecord.LineSuper
	jsr  FindSuperInfo
	lda  [TempPtr],y
	sta  LineHeight
	iny
	iny
	lda  [TempPtr],y
	sta  LineAscent
	rts

	ENDP

****************************************************************

FindLineStart	PROCNAME  Export

	jsr  FindLineInfo
	movl SuperStart,TextOffset
	rts

	ENDP

****************************************************************

SetLineInfo	PROCNAME  Export

	ldy  #TERecord.LineSuper
	jsr  SetSuperInfo
	lda  LineHeight
	sta  [TempPtr],y
	iny
	iny
	lda  LineAscent
	sta  [TempPtr],y
	rts

	ENDP

****************************************************************

GetNewSuperHandle	PROCNAME  Export

;---------------------------------------------------------------
	jsr  GetSuperRecordPtr

	ldy  #SuperHandle.itemsPerBlock	;set the initial items per block
	lda  #ItemsInSmallBlock
	sta  [SuperRecordPtr],y

	lda  #SizeOfSmallBlock	;get a handle of the starting block size
	jsr  GetHandleFromSuper
	bcs  memoryError
	stax TheSuperHandle
	jsr  SetSuperCachedHandle
	jsr  SuperHandleToPtr	;get a pointer to our newly allocated handle

	lda  #0		;fill the links and the text length fields
	tay		;..with zeros. Also fill the first item
@loop1	sta  [TempPtr],y		;..with zeros.
	iny
	iny
	cpy  #SuperBlock.RecordSize+SuperItemSize
	blt  @loop1

@loop2	lda  #$FFFF
	sta  [TempPtr],y		;..deleted item marker (highest bit set)
	iny
	iny
	sta  [TempPtr],y
	tya
	clc
	adc  #SuperItemSize-2
	tay
	cpy  #SizeOfSmallBlock
	blt  @loop2

	ldy  #SuperHandle.cachedIndex
	lda  #SuperBlock.RecordSize
	sta  [SuperRecordPtr],y

	ldy  #SuperHandle.cachedTextOffset
	lda  #0
	sta  [SuperRecordPtr],y
	iny
	iny
	sta  [SuperRecordPtr],y
	clc
memoryError	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

KillSuperHandle	PROCNAME  Export

;---------------------------------------------------------------
	jsr  GetSuperRecordPtr

	ldy  #2		;check to see if the cached super handle
	lda  [SuperRecordPtr],y	;..is clear. If it is, then this super
	ora  [SuperRecordPtr]	;..handle has already been killed.
	beq  @exit

	jsr  MoveToFirstSuperHandle

@loop	PushZLong TheSuperHandle
	jsr  SuperHandleToPtr
	jsr  MoveToNextHandle
	PullAX
	php
	jsr  KillHandle
	plp
	bcc  @loop

@exit	ldy  #2		;clear the super cache handle to indicate
	lda  #0		;..that we have killed this super handle
	sta  [SuperRecordPtr],y
	sta  [SuperRecordPtr]
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

FindSuperInfo	PROCNAME  Export

;---------------------------------------------------------------
	jsr  GetSuperRecordPtr	;get a pointer to the super record
	jsr  GetSuperCachedPtr	;get a pointer into the cached handle

	jsr  GetSuperMaxIndex

	ldy  #SuperHandle.cachedTextOffset+2
	lda  [SuperRecordPtr],y
	sta  SuperStart+2
	tax
	dey
	dey
	lda  [SuperRecordPtr],y
	sta  SuperStart
	cpx  TextOffset+2
	blt  checkForward
	bne  doBackward
	cmp  TextOffset
	bgt  doBackward
;---------------------------------------------------------------
checkForward	ldy  #SuperHandle.cachedIndex
	lda  [SuperRecordPtr],y
	tay
	lda  [TempPtr],y
	sta  SuperLength
	iny
	iny
	clc
	adc  SuperStart
	tax
	lda  [TempPtr],y
	sta  SuperLength+2
	iny
	iny
	adc  SuperStart+2
	cmp  TextOffset+2
	blt  doForward
	bne  alreadyThere
	cpx  TextOffset
	blt  doForward
	bne  alreadyThere

	lda  SuperStart
	cmp  TextOffset
	bne  doForward
	lda  SuperStart+2
	cmp  TextOffset+2
	bne  doForward
;---------------------------------------------------------------
alreadyThere	rts
;---------------------------------------------------------------
doBackward	brl  FindSuperBackward
doForward	brl  FindSuperForward
;---------------------------------------------------------------

	ENDP

****************************************************************

FindSuperBackward	PROCNAME  Entry

;---------------------------------------------------------------
	ldy  #SuperHandle.cachedIndex
	lda  [SuperRecordPtr],y
	tay
;---------------------------------------------------------------
mainLoop	iny
	iny
innerLoop	tya		;move the index back an item
	cmp  #SuperBlock.RecordSize+2
	beq  prevBlock
inBlock	sec
	sbc  #SuperItemSize
	tay
	lda  [TempPtr],y
	bmi  innerLoop
	sta  SuperLength+2
	dey
	dey

	lda  SuperStart		;subtract the length of the item from
	sec		;..SuperStart.
	sbc  [TempPtr],y
	sta  SuperStart
	tax
	lda  SuperStart+2
	sbc  SuperLength+2
	sta  SuperStart+2
	cmp  TextOffset+2		;is SuperStart < TextOffset ?
	blt  @foundIt
	bne  mainLoop
	cpx  TextOffset
	bgt  mainLoop

@foundIt	brl  ExitFindSuper
;---------------------------------------------------------------
prevBlock	jsr  MoveToPrevHandle

	ldy  #SuperBlock.textLength
	lda  SuperStart
	sec
	sbc  [TempPtr],y
	tax
	iny
	iny
	lda  SuperStart+2
	sbc  [TempPtr],y
	cmp  TextOffset+2
	blt  @foundBlock
	bne  @notFound
	cpx  TextOffset
	ble  @foundBlock
@notFound	stx  SuperStart
	sta  SuperStart+2
	bra  prevBlock

@foundBlock	jsr  SetSuperCachedHandle
	lda  SuperMaxIndex
	bra  inBlock
;---------------------------------------------------------------

	ENDP

****************************************************************

FindSuperForward	PROCNAME  Entry

;---------------------------------------------------------------
	ldy  #SuperHandle.cachedIndex
	lda  [SuperRecordPtr],y
	sec
	sbc  #SuperItemSize
	tay
;---------------------------------------------------------------
mainLoop	iny
	iny
@loop	tya
	clc
	adc  #SuperItemSize
	cmp  SuperMaxIndex
	beq  nextBlock
	tay
	lda  [TempPtr],y
	bmi  @loop

	sta  SuperLength+2
	dey
	dey
	lda  [TempPtr],y
	clc
	adc  SuperStart		;and add it to the current start
	tax		;save the low word in X
	lda  SuperLength+2
	adc  SuperStart+2
	cmp  TextOffset+2
	blt  @notFound
	bne  @foundIt
	cpx  TextOffset
	bgt  @foundIt
@notFound	sta  SuperStart+2		;this is the reverse of the normal order
	stx  SuperStart		;..(remember the LOW word is in X-Reg)
	bra  mainLoop

@foundIt	brl  ExitFindSuper
;---------------------------------------------------------------
nextBlock	jsr  MoveToNextHandle
	bcs  atEnd

	ldy  #SuperBlock.textLength
	lda  SuperStart
	clc
	adc  [TempPtr],y
	tax
	iny
	iny
	lda  SuperStart+2
	adc  [TempPtr],y
	cmp  TextOffset+2
	blt  @notFound
	bne  @foundBlock
	cpx  TextOffset
	bgt  @foundBlock
@notFound	stx  SuperStart
	sta  SuperStart+2
	bra  nextBlock

@foundBlock	jsr  SetSuperCachedHandle
	ldy  #SuperBlock.RecordSize-SuperItemSize
	bra  mainLoop
;---------------------------------------------------------------
atEnd	ldy  SuperMaxIndex

@loop2	tya
	cmp  #SuperBlock.RecordSize+2
	beq  @movePrev
	sec
	sbc  #SuperItemSize
	tay
	lda  [TempPtr],y
	bmi  @loop2

	phy
	jsr  SetSuperCachedHandle
	ply
	lda  [TempPtr],y
	sta  SuperLength+2
	dey
	dey
	lda  SuperStart
	sec
	sbc  [TempPtr],y
	sta  SuperStart
	lda  SuperStart+2
	sbc  SuperLength+2
	sta  SuperStart+2
	brl  ExitFindSuper

@movePrev	jsr  MoveToPrevHandle
	bra  atEnd
;---------------------------------------------------------------

	ENDP

****************************************************************

ExitFindSuper	PROCNAME  Entry

;---------------------------------------------------------------
	lda  [TempPtr],y		;save the low word of the length
	sta  SuperLength
	tya
	ldy  #SuperHandle.cachedIndex
	sta  [SuperRecordPtr],y
	clc		;skip over the length and save this index
	adc  #4		;..for later
	tax
	ldy  #SuperHandle.cachedTextOffset
	lda  SuperStart
	sta  [SuperRecordPtr],y
	iny
	iny
	lda  SuperStart+2
	sta  [SuperRecordPtr],y
	txy		;restore the index
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

ClearSuperCachedHandle PROCNAME  Export

;---------------------------------------------------------------
	jsr  GetSuperCachedPtr
	ldy  #SuperHandle.itemsPerBlock	;use X-Reg as a counter to count all
	lda  [SuperRecordPtr],y	;..the items in the super handle
	tax

	ldy  #SuperBlock.textLength	;clear the textLength field
	lda  #0
	sta  [TempPtr],y
	iny
	iny
	sta  [TempPtr],y

	ldy  #SuperBlock.RecordSize
	clc
@loop	lda  #$FFFF
	sta  [TempPtr],y
	iny
	iny
	sta  [TempPtr],y
	tya
	adc  #SuperItemSize-2	;carry is always clear here
	tay
	dex
	bne  @loop

	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

SetSuperInfo	PROCNAME  Export

;---------------------------------------------------------------
	jsr  GetSuperRecordPtr	;setup the pointers to access the cached
	jsr  GetSuperCachedPtr	;..handle in the passed super (in Y-Reg)

	ldy  #SuperHandle.cachedIndex	;get the current index into the cached
	lda  [SuperRecordPtr],y	;..handle
	tay

	lda  SuperLength		;subtract the old value from the new one
	sec
	sbc  [TempPtr],y
	pha		;save the low word on the stack
	lda  SuperLength		;copy the new length into the super array
	sta  [TempPtr],y
	iny		;NOTE: the carry hasn't changed from the
	iny		;..subtract
	lda  SuperLength+2		;subtract the high word of the old value
	sbc  [TempPtr],y		;..from the new one
	tax		;save the high word in the X-Reg
	lda  SuperLength+2		;copy the high word of the new length into
	sta  [TempPtr],y		;..the super array
	iny		;leave the index pointing to the SuperData
	iny
	pla		;get the low word of the diff back into A-Reg
	phy		;save the final index to the SuperData

	ldy  #SuperBlock.textLength	;add the difference to the textLength for
	clc		;..the entire block. This will update the
	adc  [TempPtr],y		;..block length field.
	sta  [TempPtr],y
	iny
	iny
	txa
	adc  [TempPtr],y
	sta  [TempPtr],y

	ply		;restore index to the SuperData
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

AddANewSuperHandle	PROCNAME  Export

;---------------------------------------------------------------
	jsr  GetSuperRecordPtr
	jsr  GetSuperCachedPtr
	PushZLong TheSuperHandle

	lda  #SizeOfLargeBlock
	jsr  GetHandleFromSuper
	bcs  memoryError
	PushAX

	jsr  SuperHandleToPtr	;re-dereference the super handle
	ldy  #SuperBlock.nextHandle	;set the next handle link in the previous
	pla		;..handle to the new handle
	sta  TheSuperHandle
	sta  [TempPtr],y
	iny
	iny
	pla
	sta  TheSuperHandle+2
	sta  [TempPtr],y
	jsr  SetSuperCachedHandle
	jsr  SuperHandleToPtr

	ldy  #SuperBlock.prevHandle	;set the prev handle link in the new
	pla		;..handle to the previous handle
	sta  [TempPtr],y
	iny
	iny
	pla
	sta  [TempPtr],y

	ldy  #SuperBlock.nextHandle	;clear the next handle field in the new
	lda  #0		;..super handle
	sta  [TempPtr],y
	iny
	iny
	sta  [TempPtr],y
	jsr  ClearSuperCachedHandle

	ldy  #SuperHandle.cachedIndex	;set the current index to the start of the
	lda  #SuperBlock.RecordSize	;..new handle
	sta  [SuperRecordPtr],y

	clc
	rts
;---------------------------------------------------------------
memoryError	pla		;pull off the garbage
	pla		;the carry is alreay SET and the X-Reg
	rts		;..already contains the error
;---------------------------------------------------------------

	ENDP

****************************************************************
* this inserts a new super item at the current text offset
* the new super data is a copy of the old one
****************************************************************
InsertSuperItem	PROCNAME  Export

;---------------------------------------------------------------
          IF SuperItemSize <> 8 THEN
              AERROR 'WARNING... This routine relies on the SuperItemSize equate being eight'
          ENDIF
;---------------------------------------------------------------

;---------------------------------------------------------------
	jsr  FindSuperInfo		;find the item at the current TextOffset
	subl TextOffset,SuperStart,SuperLength

	ldy  #SuperHandle.cachedTextOffset	;update the cached SuperStart field
	lda  [SuperRecordPtr],y
	clc
	adc  SuperLength
	sta  [SuperRecordPtr],y
	iny
	iny
	lda  [SuperRecordPtr],y
	adc  SuperLength+2
	sta  [SuperRecordPtr],y

	ldy  #SuperHandle.cachedIndex	;check to see if we are at the end of the
	lda  [SuperRecordPtr],y	;..current super block
	clc
	adc  #SuperItemSize+2
	tay
	cpy  SuperMaxIndex
	beq  mustSearch		;yes, so we must search for a deleted item
	lda  [TempPtr],y		;nope, are we alreay on a deleted item ?
	bpl  mustSearch		;..nope = must search
;---------------------------------------------------------------
insertIt	lda  TempPtr		;make a pointer to the next item in
	clc		;..MemoryPtr
	adc  #SuperItemSize
	sta  MemoryPtr
	lda  TempPtr+2
	adc  #0
	sta  MemoryPtr+2

	ldy  #SuperHandle.cachedIndex	;get an index to the current item
	lda  [SuperRecordPtr],y
	tay
	lda  [TempPtr],y		;subtract the new length from the old one
	sec		;..to get the length of the new item
	sbc  SuperLength
	sta  [MemoryPtr],y
	tax
	lda  SuperLength		;also, set the old length to SuperLength
	sta  [TempPtr],y
	stx  SuperLength		;set SuperLength to the new length
	iny
	iny
	lda  [TempPtr],y
	sbc  SuperLength+2
	sta  [MemoryPtr],y
	tax
	lda  SuperLength+2
	sta  [TempPtr],y
	stx  SuperLength+2
	iny		;copy the remaining super data into the
	iny		;..next item. Rely on SuperData being
	lda  [TempPtr],y		;..four bytes
	sta  [MemoryPtr],y
	iny
	iny
	lda  [TempPtr],y
	sta  [MemoryPtr],y

	ldy  #SuperHandle.cachedIndex	;move the index on to the next item
	lda  [SuperRecordPtr],y
	clc
	adc  #SuperItemSize
	sta  [SuperRecordPtr],y

	clc
	rts
;---------------------------------------------------------------
mustSearch	sty  TempWord		;save the index to the next item
	ldy  #SuperBlock.RecordSize+2
@loop	lda  [TempPtr],y
	bmi  @foundIt
	tya
	clc
	adc  #SuperItemSize
	tay
	cpy  TempWord
	bne  @loop
	bra  searchAfter

@foundIt	tya
	eor  #$FFFF
	sec		;add one to make a full negate
	adc  TempWord
	lsr  a
	lsr  a
	lsr  a
	tax
	jsr  makeJustPointers
	ldy  #2
@copyLoop	lda  [SourcePtr],y
	bmi  @skipCopy
	jsr  copyAndFreeItem
	jsr  AddEightToDestPtr
@skipCopy	jsr  AddEightToSourcePtr
	dex
	bne  @copyLoop
	lda  DestPtr
	sec
	sbc  TempPtr
	sbc  #SuperItemSize
	ldy  #SuperHandle.cachedIndex
	sta  [SuperRecordPtr],y
	brl  insertIt
;---------------------------------------------------------------
searchAfter	cpy  SuperMaxIndex
	beq  mustExtend
	ldy  SuperMaxIndex
@loop	tya
	sec
	sbc  #SuperItemSize
	tay
	cmp  TempWord
	beq  mustExtend
	lda  [TempPtr],y
	bpl  @loop

@foundIt	jsr  makePointers
	inx
	ldy  #2
@copyLoop	lda  [SourcePtr],y
	bmi  @skipCopy
	jsr  copyAndFreeItem
	lda  DestPtr
	sec
	sbc  #8
	sta  DestPtr
	bcs  @skipCopy
	dec  DestPtr+2
@skipCopy	lda  SourcePtr
	sec
	sbc  #8
	sta  SourcePtr
	bcs  @1
	dec  SourcePtr+2
@1	dex
	bne  @copyLoop
	brl  insertIt
;---------------------------------------------------------------
mustExtend	ldy  #SuperHandle.itemsPerBlock	;we must extend the super array here, so
	lda  [SuperRecordPtr],y	;..check to see if we can just extend the
	cmp  #ItemsInSmallBlock	;..handle or whether we need to make a new
	beql doSmallToMedium	;..one
	cmp  #ItemsInMediumBlock
	beql doMediumToLarge
;---------------------------------------------------------------
addNewHandle	ldy  #SuperHandle.cachedIndex	;subtract SuperLength from the old item
	lda  [SuperRecordPtr],y	;..length, then set the old item length
	tay		;..to SuperLength. Finally put the result
	lda  [TempPtr],y		;..of the subtraction into SuperLength
	sec
	sbc  SuperLength
	tax
	lda  SuperLength
	sta  [TempPtr],y
	stx  SuperLength
	iny
	iny
	lda  [TempPtr],y
	sbc  SuperLength+2
	tax
	lda  SuperLength+2
	sta  [TempPtr],y
	stx  SuperLength+2
	iny
	iny
	lda  [TempPtr],y		;save the original item's super data on
	pha		;..the stack.
	iny
	iny
	lda  [TempPtr],y
	pha
	jsr  SubLengthFromBlock	;subtract super length from the block length

	jsr  InsertSuperHandle	;add a new super handle
	bcc  @noError1

	jsr  SuperHandleToPtr	;redereference the pointer
	pla		;pull the saved data off the stack
	pla
	phx		;save the error code on the stack
	jsr  AddLengthToBlock	;add super length to the block
	ldy  #SuperHandle.cachedIndex	;add super length to the current item
	lda  [SuperRecordPtr],y
	tay
	lda  [TempPtr],y
	tax
	clc
	adc  SuperLength
	sta  [TempPtr],y
	stx  SuperLength
	iny
	iny
	lda  [TempPtr],y
	tax
	adc  SuperLength+2
	sta  [TempPtr],y
	stx  SuperLength+2
	plx
	brl  memoryError

@noError1	ldy  #SuperHandle.cachedIndex	;get the old cache index and see if we
	lda  [SuperRecordPtr],y	;..were at the end of the block.
	clc
	adc  #SuperItemSize+2	;add an extra two so we can compare against
	cmp  SuperMaxIndex		;..SuperMaxIndex. If we weren't at the end
	bne  @moveIt		;..of the block then move the items

@setFirstItem	ldy  #SuperHandle.cachedIndex
	lda  #SuperBlock.RecordSize	;set the cache index for the new block
	sta  [SuperRecordPtr],y
	tay		;Y-Reg now points to the first item. Set
	lda  SuperLength		;..this item to the remaining length
	sta  [TempPtr],y
	iny
	iny
	lda  SuperLength+2
	sta  [TempPtr],y
	iny
	iny
	plx		;copy the old super data into the new
	pla		;..item
	sta  [TempPtr],y
	iny
	iny
	txa
	sta  [TempPtr],y
	jsr  AddLengthToBlock	;set the total block length field
	clc
	rts

@moveIt	PushZLong SuperLength	;save the super length for the new item
	sta  TempWord
	dec  a
	dec  a
	sta  SourcePtr
	stz  SourcePtr+2

	lda  SuperMaxIndex		;make a pointer to the end of the new
	dec  a		;..super block
	dec  a
	clc
	adc  TempPtr
	sta  DestPtr
	lda  TempPtr+2
	adc  #0
	sta  DestPtr+2

	jsr  MoveToPrevHandle
	addl TempPtr,SourcePtr,SourcePtr
	lda  SuperMaxIndex
	sec
	sbc  TempWord
	sta  MoveLength
	stz  MoveLength+2
	lda  DestPtr
	sec
	sbc  MoveLength
	sta  DestPtr
	bcs  @1
	dec  DestPtr+2
@1	jsr  BlockMove

	stzl SuperLength
	lda  MoveLength
	lsr  a
	lsr  a
	lsr  a
	tax
	ldy  #0

	clc		;clear the carry for the duration of the
@loop	lda  [SourcePtr],y		;..loop
	adc  SuperLength
	sta  SuperLength
	lda  #$FFFF
	sta  [SourcePtr],y
	iny
	iny
	lda  [SourcePtr],y
	adc  SuperLength+2		;this always clears the carry again
	sta  SuperLength+2
	lda  #$FFFF
	sta  [SourcePtr],y
	tya
	adc  #SuperItemSize-2	;the carry is always clear here
	tay
	dex
	bne  @loop

	jsr  SubLengthFromBlock
	jsr  MoveToNextHandle
	jsr  AddLengthToBlock

	PullLong SuperLength
	lda  MoveLength
	asl  a
	cmp  SuperMaxIndex
	bltl @setFirstItem

@putInOldBlock	jsr  MoveToPrevHandle
	jsr  SetSuperCachedHandle

	lda  SuperLength
	sta  [SourcePtr]
	ldy  #2
	lda  SuperLength+2
	sta  [SourcePtr],y
	iny
	iny
	plx		;copy the old super data into the new
	pla		;..item
	sta  [SourcePtr],y
	iny
	iny
	txa
	sta  [SourcePtr],y
	jsr  AddLengthToBlock	;set the total block length field

	ldy  #SuperHandle.cachedIndex
	lda  [SuperRecordPtr],y
	clc
	adc  #SuperItemSize
	sta  [SuperRecordPtr],y	;carry is always CLR here
	rts
;---------------------------------------------------------------
doSmallToMedium	lda  #ItemsInMediumBlock	;resize the super handle to medium
	bra  resizeIt

doMediumToLarge	lda  #ItemsInLargeBlock	;resize the super handle to large

resizeIt	PushZWord SuperMaxIndex
	ldy  #SuperHandle.itemsPerBlock
	sta  [SuperRecordPtr],y

	lda  SuperRecordPtr		;mark this super array as in use
	sec
	sbc  RecordPtr
	sta  SuperInUse
	PushZLong TheSuperHandle
	jsr  GetSuperMaxIndex	;find the correct size for the new handle
	dec  a
	dec  a
	ldx  #0
	jsr  SetHandleSize
	stz  SuperInUse
	bcc  @noError1
	pla		;pull the saved data off the stack
	phx
	jsr  SuperHandleToPtr
	plx
	bra  memoryError

@noError1	jsr  SuperHandleToPtr
	ply
	sty  TempWord
@loop1	lda  #$FFFF
	sta  [TempPtr],y
	dey
	dey
	sta  [TempPtr],y
	tya
	clc
	adc  #SuperItemSize+2
	tay
	cpy  SuperMaxIndex
	blt  @loop1

	ldy  #SuperHandle.cachedIndex
	lda  [SuperRecordPtr],y
	clc
	adc  #SuperItemSize
	tay
	sta  MoveLength
	lda  TempWord
	dec  a
	dec  a
	sec
	sbc  MoveLength
	sta  MoveLength
	beq  @skipMove
	stz  MoveLength+2
	tya
	clc
	adc  TempPtr
	sta  SourcePtr
	lda  TempPtr+2
	adc  #0
	sta  SourcePtr+2
	lda  SuperMaxIndex
	dec  a
	dec  a
	clc
	adc  TempPtr
	sta  DestPtr
	lda  TempPtr+2
	adc  #0
	sta  DestPtr+2
	subl DestPtr,MoveLength,DestPtr
	jsr  BlockMove

	ldy  #SuperHandle.cachedIndex
	lda  [SuperRecordPtr],y
	clc
	adc  #SuperItemSize+2
	tay
@loop2	lda  #$FFFF
	sta  [TempPtr],y
	dey
	dey
	sta  [TempPtr],y
	tya
	clc
	adc  #SuperItemSize+2
	tay
	cpy  TempWord
	blt  @loop2

@skipMove	brl  insertIt
;---------------------------------------------------------------
memoryError	ldy  #SuperHandle.cachedTextOffset	;update the cached SuperStart field
	lda  [SuperRecordPtr],y
	sec
	sbc  SuperLength
	sta  [SuperRecordPtr],y
	iny
	iny
	lda  [SuperRecordPtr],y
	sbc  SuperLength+2
	sta  [SuperRecordPtr],y

	ldy  #SuperHandle.cachedIndex
	lda  [SuperRecordPtr],y
	tay
	lda  [TempPtr],y
	sta  SuperLength
	iny
	iny
	lda  [TempPtr],y
	sta  SuperLength+2

	sec		;the error code is still in X-Reg
	rts
;---------------------------------------------------------------



;---------------------------------------------------------------
copyAndFreeItem	lda  [SourcePtr]
	sta  [DestPtr]
	lda  [SourcePtr],y
	sta  [DestPtr],y
	lda  #$FFFF		;clear the source
	sta  [SourcePtr]
	sta  [SourcePtr],y
	iny
	iny
	lda  [SourcePtr],y
	sta  [DestPtr],y
	iny
	iny
	lda  [SourcePtr],y
	sta  [DestPtr],y
	ldy  #2
	rts
;---------------------------------------------------------------
makePointers	tya
	sec
	sbc  TempWord
	lsr  a
	lsr  a
	lsr  a
	tax		;this is our item counter
makeJustPointers	dey
	dey
	tya
	clc
	adc  TempPtr
	sta  DestPtr
	sta  SourcePtr
	lda  TempPtr+2
	adc  #0
	sta  DestPtr+2
	sta  SourcePtr+2
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

ChangeStyleItem	PROCNAME  Export

;---------------------------------------------------------------
	movl SuperLength,NewSuperLength
	ldy  #TERecord.StyleSuper
	jsr  FindSuperInfo
	lda  [TempPtr],y
	iny
	iny
	cmp  TextStyleOffset
	bne  doIt
	lda  [TempPtr],y
	cmp  TextStyleOffset+2
	bne  doIt
	brl  allDone
;---------------------------------------------------------------
doIt	lda  SuperStart
	cmp  TextOffset
	bne  @addBefore
	lda  SuperStart+2
	cmp  TextOffset+2
	beq  @skip1

@addBefore	ldy  #TERecord.StyleSuper	;make a new item at the current text offset
	jsr  InsertSuperItem
	bcc  @noError1		;if we get a memory error, then return
	rts
@noError1
@skip1	lda  SuperLength
	cmp  NewSuperLength
	bne  @addAfter
	lda  SuperLength+2
	cmp  NewSuperLength+2
	beq  @skip2

@addAfter	addl TextOffset,NewSuperLength,TextOffset
	ldy  #TERecord.StyleSuper	;make a new item at the current text offset
	jsr  InsertSuperItem
	php		;save the state of the carry
	subl TextOffset,NewSuperLength,TextOffset
	plp		;restore the carry
	bcc  @noError2
	rts		;if we get a memory error, then return
@noError2
@skip2	ldy  #TERecord.StyleSuper
	jsr  FindSuperInfo
	lda  TextStyleOffset
	sta  [TempPtr],y
	iny
	iny
	lda  TextStyleOffset+2
	sta  [TempPtr],y
;---------------------------------------------------------------
checkPrev	ldy  #SuperHandle.cachedIndex
	lda  [SuperRecordPtr],y
	inc  a
	inc  a
	tay

@loop1	tya
	cmp  #SuperBlock.RecordSize+2
	bne  @1
	jsr  MoveToPrevHandle
	bcs  checkNext
	lda  SuperMaxIndex
@1	sec
	sbc  #SuperItemSize
	tay
	lda  [TempPtr],y
	bmi  @loop1

@foundIt	iny
	iny
	lda  [TempPtr],y
	cmp  TextStyleOffset
	bne  checkNext
	iny
	iny
	lda  [TempPtr],y
	cmp  TextStyleOffset+2
	bne  checkNext

	movl NewSuperLength,SuperLength
	PushZLong TheSuperHandle
	dey
	dey
	dey
	dey
	lda  [TempPtr],y		;copy the original length to a scratch
	sta  SuperStart+2		;..variable. (we can overwrite SuperStart
	dey		;..here since we are going to reset it
	dey		;..later)
	lda  [TempPtr],y
	sta  SuperStart
	phy		;save this index for later
	jsr  addLength
	jsr  AddLengthToBlock

	ldy  #SuperHandle.cachedTextOffset	;update the cached starting offset field
	lda  [SuperRecordPtr],y
	sec
	sbc  SuperStart
	sta  SuperStart
	sta  [SuperRecordPtr],y
	iny
	iny
	lda  [SuperRecordPtr],y
	sbc  SuperStart+2
	sta  SuperStart+2
	sta  [SuperRecordPtr],y

	jsr  GetSuperCachedPtr
	ldy  #SuperHandle.cachedIndex
	lda  [SuperRecordPtr],y
	tay
	lda  #$FFFF
	sta  [TempPtr],y
	iny
	iny
	sta  [TempPtr],y
	jsr  SubLengthFromBlock

	ldy  #SuperHandle.cachedIndex
	pla
	sta  [SuperRecordPtr],y
	ldy  #SuperHandle.cachedHandle
	pla
	sta  [SuperRecordPtr],y
	iny
	iny
	pla
	sta  [SuperRecordPtr],y
;---------------------------------------------------------------
checkNext	jsr  GetSuperCachedPtr	;get the cached handle back

	jsr  GetSuperMaxIndex
	ldy  #SuperHandle.cachedIndex
	lda  [SuperRecordPtr],y
	inc  a
	inc  a
	tay

@loop1	tya
	clc
	adc  #SuperItemSize
	cmp  SuperMaxIndex
	bne  @1
	jsr  MoveToNextHandle
	bcs  allDone
	lda  #SuperBlock.RecordSize+2
@1	tay
	lda  [TempPtr],y
	bmi  @loop1

@foundIt	iny
	iny
	lda  [TempPtr],y
	cmp  TextStyleOffset
	bne  allDone
	iny
	iny
	lda  [TempPtr],y
	cmp  TextStyleOffset+2
	bne  allDone

	tya
	sec
	sbc  #6
	tay
	lda  [TempPtr],y
	sta  SuperLength
	lda  #$FFFF
	sta  [TempPtr],y
	iny
	iny
	lda  [TempPtr],y
	sta  SuperLength+2
	lda  #$FFFF
	sta  [TempPtr],y
	jsr  SubLengthFromBlock

	jsr  GetSuperCachedPtr
	ldy  #SuperHandle.cachedIndex
	lda  [SuperRecordPtr],y
	tay
	jsr  addLength
	jsr  AddLengthToBlock
;---------------------------------------------------------------
allDone	addl TextOffset,NewSuperLength,TextOffset	;carry is always
	rts			;..clear at the end
;---------------------------------------------------------------



;---------------------------------------------------------------
addLength	lda  [TempPtr],y
	clc
	adc  SuperLength
	sta  [TempPtr],y
	iny
	iny
	lda  [TempPtr],y
	adc  SuperLength+2
	sta  [TempPtr],y
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

RemoveSuperSelection PROCNAME  Export

;---------------------------------------------------------------
          IF SuperItemSize <> 8 THEN
              AERROR 'WARNING... This routine relies on the SuperItemSize equate being eight'
          ENDIF
;---------------------------------------------------------------

;---------------------------------------------------------------
	phy		;save the index into the TERecord

	jsr  IsTheSelectionACaret	;if there is a selection, then we need
	bne  doIt		;..to do something

	ply		;cleanup the stack
	rts
;---------------------------------------------------------------
doIt	jsr  GetSelectionLength	;this sets TextOffset to SelectionStart
	ply		;get back the index into the TERecord and
	jsr  FindSuperInfo		;..find the correct super info

	jsr  GetSuperMaxIndex
	ldy  #SuperHandle.cachedIndex	;get the current index for the selection
	lda  [SuperRecordPtr],y	;..start into Y-Reg
	inc  a		;start with the high word
	inc  a
	tay

	lda  TextOffset		;check to see if we are starting on the
	cmp  SuperStart		;..first item
	bne  @notAtStart
	lda  TextOffset+2
	cmp  SuperStart+2
	beq  itemLoop

@notAtStart	sty  TempWord
	jsr  GetLongSuperCount
	stax SuperLength
	jsr  adjustSelection
	bccl lastItem
	jsr  subtractFromItem
	bra  itemLoopEnd
;---------------------------------------------------------------
ItemLoop	sty  TempWord
	lda  [TempPtr],y
	bmi  itemLoopEnd
	dey
	dey
	jsr  adjustFromTempPtr
	bccl lastItem
	jsr  SubLengthFromBlock

	ldy  TempWord
	lda  #$FFFF		;mark this item as deleted
	sta  [TempPtr],y
	dey
	dey
	sta  [TempPtr],y

itemLoopEnd	lda  TempWord
	clc
	adc  #SuperItemSize
	tay
	cpy  SuperMaxIndex
	blt  ItemLoop
;---------------------------------------------------------------
	jsr  MoveToNextHandle
	bcs  atEnd2

blockLoop	movl TheSuperHandle,TempLong	;save the original super handle in TempLon
	ldy  #SuperBlock.textLength
	jsr  adjustFromTempPtr	;if we cannot remove this block wholesale
	bcc  @backToItems		;..then go back to items
	ldy  #SuperBlock.prevHandle+2	;save the previous handle on the stack
	lda  [TempPtr],y
	pha
	dey
	dey
	lda  [TempPtr],y
	pha
	jsr  MoveToNextHandle	;move on to the next handle
	bcs  atEnd1
	ldax TempLong		;dispose of the original super handle
	jsr  KillHandle
	pla		;get back the original handle's previous
	sta  TempLong		;..handle into TempLong
	pla
	sta  TempLong+2
	ldy  #SuperBlock.prevHandle	;fix the previous handle field of the
	lda  TempLong		;..new current handle
	sta  [TempPtr],y
	iny
	iny
	lda  TempLong+2
	sta  [TempPtr],y
	Deref TempLong,TempPtr	;deref the previous handle
	ldy  #SuperBlock.nextHandle	;fix the next handle field of the
	lda  TheSuperHandle		;..previous handle
	sta  [TempPtr],y
	iny
	iny
	lda  TheSuperHandle+2
	sta  [TempPtr],y
	jsr  SuperHandleToPtr	;make TempPtr point to the current block
	bra  blockLoop		;..again

@backToItems	ldy  #SuperBlock.RecordSize+2
	brl  ItemLoop
;---------------------------------------------------------------
atEnd1	pla		;get back the previous handle
	sta  TheSuperHandle
	pla
	sta  TheSuperHandle+2
	ldax TempLong		;kill the last handle
	jsr  KillHandle
	jsr  SuperHandleToPtr	;dereference the second to last handle
	ldy  #SuperBlock.nextHandle	;clear it's next handle field to indicate
	lda  #0		;..that it is the end of the list
	sta  [TempPtr],y
	iny
	iny
	sta  [TempPtr],y

atEnd2	jsr  MoveToFirstSuperHandle
	ldy  #SuperBlock.RecordSize+2
	lda  [TempPtr],y
	bpl  allDone
	lda  #0
	sta  [TempPtr],y
	dey
	dey
	sta  [TempPtr],y
	bra  allDone
;---------------------------------------------------------------
lastItem	movl SelectionLength,SuperLength

subtractFromItem	jsr  SubLengthFromBlock
	ldy  TempWord
	dey
	dey
	lda  [TempPtr],y
	sec
	sbc  SuperLength
	sta  [TempPtr],y
	iny
	iny
	lda  [TempPtr],y
	sbc  SuperLength+2
	sta  [TempPtr],y
;---------------------------------------------------------------
allDone	jsr  GetSuperCachedPtr
	ldy  #SuperHandle.cachedTextOffset
	lda  [SuperRecordPtr],y
	sta  SuperStart
	iny
	iny
	lda  [SuperRecordPtr],y
	sta  SuperStart+2
	ldy  #SuperHandle.cachedIndex	;get the current index for the selection
	lda  [SuperRecordPtr],y	;..start into Y-Reg
	inc  a		;start with the high word
	inc  a
	tay
	lda  [TempPtr],y
	bpl  exit

@loop1	cpy  #SuperBlock.RecordSize+2
	bne  @notPrevBlock
	jsr  MoveToPrevHandle
	bcs  @atTheEnd
	ldy  SuperMaxIndex
@notPrevBlock	tya
	sec
	sbc  #SuperItemSize
	tay
	lda  [TempPtr],y
	bmi  @loop1

	dey
	dey
	lda  SuperStart
	sec
	sbc  [TempPtr],y
	sta  SuperStart
	iny
	iny
	lda  SuperStart+2
	sbc  [TempPtr],y
	sta  SuperStart+2
	bra  exit

@atTheEnd	stzl SuperStart
@outerLoop	ldy  #SuperBlock.RecordSize+2
@firstLoop	lda  [TempPtr],y
	bpl  @foundFirst
	tya
	clc
	adc  #SuperItemSize
	tay
	cpy  SuperMaxIndex
	blt  @firstLoop
	jsr  MoveToNextHandle
	bra  @outerLoop
@foundFirst	phy
	jsr  SetSuperCachedHandle
	ply
;---------------------------------------------------------------
exit	dey
	dey
	tya
	ldy  #SuperHandle.cachedIndex
	sta  [SuperRecordPtr],y
	ldy  #SuperHandle.cachedTextOffset
	lda  SuperStart
	sta  [SuperRecordPtr],y
	iny
	iny
	lda  SuperStart+2
	sta  [SuperRecordPtr],y
	brl  SetSuperCachedHandle
;---------------------------------------------------------------



;---------------------------------------------------------------
adjustFromTempPtr	lda  [TempPtr],y
	sta  SuperLength
	iny
	iny
	lda  [TempPtr],y
	sta  SuperLength+2

adjustSelection	ldax SelectionLength
	cpx  SuperLength+2
	blt  @done
	bne  @adjustIt
	cmp  SuperLength
	blt  @done
@adjustIt	sec
	sbc  SuperLength
	sta  SelectionLength
	txa
	sbc  SuperLength+2
	sta  SelectionLength+2	;carry remains set if we are continuing
@done	rts		;carry is clear if we are done
;---------------------------------------------------------------

	ENDP

****************************************************************

CountSuperItems	PROCNAME  Export

;---------------------------------------------------------------
	jsr  GetSuperRecordPtr
	jsr  MoveToFirstSuperHandle
	jsr  GetSuperMaxIndex

	stzl TempLong
	clc		;clear the carry for the ENTIRE loop

@loop1	ldy  #SuperBlock.RecordSize+2
@loop2	lda  [TempPtr],y
	bmi  @skip
	inc  TempLong
	bne  @skip
	inc  TempLong+2
@skip	tya		;move to the next item.
	adc  #SuperItemSize		;the carry is alreay clear here
	tay
	cpy  SuperMaxIndex
	blt  @loop2
	jsr  MoveToNextHandle
	bcc  @loop1

	ldax TempLong
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

CalculateSuperSize	PROCNAME  Export

;---------------------------------------------------------------
	jsr  GetSuperRecordPtr	;setup the pointers to access the cached
	jsr  MoveToFirstSuperHandle

	stzl TempLong

@loop2	PushZLong TheSuperHandle
	jsr  GetHandleSize
	clc
	adc  TempLong
	sta  TempLong
	txa
	adc  TempLong+2
	sta  TempLong+2
	jsr  MoveToNextHandle
	bcc  @loop2

@done	ldax TempLong
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

ClearSuperCache	PROCNAME  Export

	jsr  GetSuperRecordPtr

	ldy  #SuperHandle.cachedIndex
	lda  #SuperBlock.RecordSize
	sta  [SuperRecordPtr],y

	ldy  #SuperHandle.cachedTextOffset
	lda  #0
	sta  [SuperRecordPtr],y
	iny
	iny
	sta  [SuperRecordPtr],y

	jsr  MoveToFirstSuperHandle
	brl  SetSuperCachedHandle

	ENDP

****************************************************************
****************************************************************
****************************************************************
****************************************************************
****************************************************************

GetSuperRecordPtr	PROCNAME  Export

	tya		;get pointer into the control record where
	clc		;..we want the super handle to be stored.
	adc  RecordPtr
	sta  SuperRecordPtr
	lda  RecordPtr+2
	adc  #0
	sta  SuperRecordPtr+2
	rts

	ENDP

****************************************************************

InsertSuperHandle	PROCNAME  Entry

;---------------------------------------------------------------
	lda  #SizeOfLargeBlock	;get a large super block and save the
	jsr  GetHandleFromSuper	;..handle on the stack
	bcs  exit
	PushAX
	jsr  DerefAX		;get a pointer for this new handle
	stax MemoryPtr

	ldy  #SuperBlock.prevHandle	;set the prevHandle field in the new super
	lda  TheSuperHandle		;..handle to the current SuperHandle
	sta  [MemoryPtr],y
	iny
	iny
	lda  TheSuperHandle+2
	sta  [MemoryPtr],y

	jsr  SuperHandleToPtr	;re-dereference the super handle
	ldy  #SuperBlock.nextHandle	;set the nextHandle field of the newly
	lda  [TempPtr],y		;..allocated super handle to whatever
	sta  [MemoryPtr],y		;..was in this same field in the current
	pla		;..super handle. At the same time set the
	sta  TheSuperHandle		;..nextHandle field of the current super
	sta  [TempPtr],y		;..handle to the newly allocated handle.
	iny		;Finally set the current handle to the
	iny		;..newly allocated handlle.
	lda  [TempPtr],y
	sta  [MemoryPtr],y
	pla
	sta  TheSuperHandle+2
	sta  [TempPtr],y
	jsr  SetSuperCachedHandle	;set the cached handle to our new handle
	jsr  ClearSuperCachedHandle	;clear the newly allocated handle

	ldy  #SuperBlock.nextHandle+1	;is there another handle after the new one
	lda  [TempPtr],y
	beq  atEdge		;nope, then exit
	iny
	lda  [TempPtr],y		;get a pointer from the next handle.
	tax
	dey
	dey
	lda  [TempPtr],y
	jsr  DerefAX
	stax MemoryPtr
	ldy  #SuperBlock.prevHandle	;set this super block's prevHandle field
	lda  TheSuperHandle		;..to the newly allocated handle
	sta  [MemoryPtr],y
	iny
	iny
	lda  TheSuperHandle+2
	sta  [MemoryPtr],y

atEdge	clc
;---------------------------------------------------------------
exit	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

Super5Proc	PROC

;---------------------------------------------------------------
	EXPORT GetSuperCachedPtr
	EXPORT MoveToNextHandle
	EXPORT MoveToPrevHandle
	EXPORT SuperHandleToPtr
;---------------------------------------------------------------

;---------------------------------------------------------------
GetSuperCachedPtr
          IF SuperHandle.cachedHandle = 0 THEN
	ldy  #2
	lda  [SuperRecordPtr],y
	sta  TheSuperHandle+2
	lda  [SuperRecordPtr]
	sta  TheSuperHandle
	bra  quickDeref
          ELSE
	ldy  #SuperHandle.cachedHandle+2
	lda  [SuperRecordPtr],y
	sta  TheSuperHandle+2
	dey
	dey
	lda  [SuperRecordPtr],y
          ENDIF
	bra  storeLow
;---------------------------------------------------------------
MoveToNextHandle	ldy  #SuperBlock.nextHandle+1
	bra  checkHandle
;---------------------------------------------------------------
MoveToPrevHandle	ldy  #SuperBlock.prevHandle+1
;---------------------------------------------------------------
checkHandle	lda  [TempPtr],y
	beq  atEdge
	iny
	clc		;the carry must stay clear through all
	lda  [TempPtr],y		;..the following  code
	sta  TheSuperHandle+2
	dey
	dey
	lda  [TempPtr],y
storeLow	sta  TheSuperHandle
;---------------------------------------------------------------
SuperHandleToPtr	ldy  #2
quickDeref	lda  [TheSuperHandle]
	sta  TempPtr
	lda  [TheSuperHandle],y
	sta  TempPtr+2
	rts
;---------------------------------------------------------------
atEdge	sec
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

MoveToFirstSuperHandle PROCNAME  Export

	jsr  GetSuperCachedPtr
@loop	jsr  MoveToPrevHandle
	bcc  @loop
	rts

	ENDP

****************************************************************

SetSuperCachedHandle PROCNAME  Entry

	ldy  #SuperHandle.cachedHandle+2
	lda  TheSuperHandle+2
	sta  [SuperRecordPtr],y
          IF SuperHandle.cachedHandle = 0 THEN
	lda  TheSuperHandle
	sta  [SuperRecordPtr]
          ELSE
	dey
	dey
	lda  TheSuperHandle
	sta  [SuperRecordPtr],y
          ENDIF
	rts

	ENDP

****************************************************************

GetSuperMaxIndex	PROCNAME  Export

;---------------------------------------------------------------
          IF SuperItemSize <> 8 THEN
              AERROR 'WARNING... This routine relies on the SuperItemSize equate being eight'
          ENDIF
;---------------------------------------------------------------

;---------------------------------------------------------------
	ldy  #SuperHandle.itemsPerBlock
	lda  [SuperRecordPtr],y
	asl  a
	asl  a
	inc  a		;this adds two
	asl  a
	adc  #SuperBlock.RecordSize	;carry is already clear
	sta  SuperMaxIndex
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

SubLengthFromBlock	PROCNAME  Export

	ldy  #SuperBlock.textLength
	lda  [TempPtr],y
	sec
	sbc  SuperLength
	sta  [TempPtr],y
	iny
	iny
	lda  [TempPtr],y
	sbc  SuperLength+2
	sta  [TempPtr],y
	rts

	ENDP

****************************************************************

AddLengthToBlock	PROCNAME  Export

	ldy  #SuperBlock.textLength
	lda  [TempPtr],y
	clc
	adc  SuperLength
	sta  [TempPtr],y
	iny
	iny
	lda  [TempPtr],y
	adc  SuperLength+2
	sta  [TempPtr],y
	rts

	ENDP

****************************************************************

CompactSuperHandle	PROCNAME  Export

;---------------------------------------------------------------
	DSECT WorkArea
sourceHandle	long
destHandle	long
sourceCount	word
destCount	word
;---------------------------------------------------------------

;---------------------------------------------------------------
	lda  RecordInUse
	cmp  RecordHandle
	bne  doIt
	lda  RecordInUse+2
	cmp  RecordHandle+2
	bne  doIt
	cpy  SuperInUse
	bne  doIt
	rts
;---------------------------------------------------------------
doIt	PushZLong WorkArea		;save the variables we are going to use
	PushZLong WorkArea+4
	PushZLong WorkArea+8

	PushZLong SuperRecordPtr	;save all the local variables also
	PushZLong TheSuperHandle
	PushZLong TempPtr
	PushZLong TempLong
	PushZLong SourcePtr
	PushZLong DestPtr

	jsr  ClearSuperCache	;this moves to the first handle and clears
	ldax TheSuperHandle		;..the cache
	stax sourceHandle		;copy the super handle into both source
	stax destHandle		;..and dest handles

	ldax TempPtr		;make both the source and the dest pointers
	clc		;..point to the beginning of the handle
	adc  #SuperBlock.RecordSize
	bcc  @1
	inx
@1	stax SourcePtr
	stax DestPtr

	ldy  #SuperHandle.itemsPerBlock	;set both the source and dest count fields
	lda  [SuperRecordPtr],y	;..to the number of items in the block
	sta  sourceCount
	sta  destCount

	stzl TempLong		;this is the total length of the new block
;---------------------------------------------------------------
mainLoop	ldy  #2
	lda  [SourcePtr],y		;copy the high word of the length
	bmi  @skipDest
	sta  [DestPtr],y
	tax
	lda  [SourcePtr]		;copy the low word of the length
	sta  [DestPtr]
	clc		;update the total length of the new block
	adc  TempLong
	sta  TempLong
	txa
	adc  TempLong+2
	sta  TempLong+2
	iny
	iny
	lda  [SourcePtr],y		;copy the low word of the data
	sta  [DestPtr],y
	iny
	iny
	lda  [SourcePtr],y		;copy the high word of the data
	sta  [DestPtr],y

	jsr  AddEightToDestPtr
	dec  destCount
	bne  @skipDest
	movl destHandle,TheSuperHandle
	jsr  SuperHandleToPtr
	ldy  #SuperBlock.textLength	;set the length field in the old block
	lda  TempLong
	sta  [TempPtr],y
	iny
	iny
	lda  TempLong+2
	sta  [TempPtr],y
	stzl TempLong		;clear TempLong for the next block
	jsr  MoveToNextHandle
	bcsl allDone
	movl TheSuperHandle,destHandle
	ldy  #SuperHandle.itemsPerBlock
	lda  [SuperRecordPtr],y
	sta  destCount
	ldy  #2
	lda  [destHandle]
	clc
	adc  #SuperBlock.RecordSize
	sta  DestPtr
	lda  [destHandle],y
	adc  #0
	sta  DestPtr+2
@skipDest
	jsr  AddEightToSourcePtr
	dec  sourceCount
	bne  mainLoop
	movl sourceHandle,TheSuperHandle
	jsr  SuperHandleToPtr
	jsr  MoveToNextHandle
	bcs  lastLoop
	movl TheSuperHandle,sourceHandle
	ldy  #SuperHandle.itemsPerBlock
	lda  [SuperRecordPtr],y
	sta  sourceCount
	ldy  #2
	lda  [sourceHandle]
	clc
	adc  #SuperBlock.RecordSize
	sta  SourcePtr
	lda  [sourceHandle],y
	adc  #0
	sta  SourcePtr+2
	brl  mainLoop
;---------------------------------------------------------------
lastLoop	ldy  #2		;clear the remaining items in the last
	lda  #$FFFF		;..block
	sta  [DestPtr]
	sta  [DestPtr],y
	jsr  AddEightToDestPtr
	dec  destCount
	bne  lastLoop
;---------------------------------------------------------------
	movl destHandle,TheSuperHandle
	jsr  SuperHandleToPtr
	ldy  #SuperBlock.textLength	;set the length field in the old block
	lda  TempLong
	sta  [TempPtr],y
	iny
	iny
	lda  TempLong+2
	sta  [TempPtr],y

	movl TempPtr,DestPtr	;save the original block pointer
	jsr  MoveToNextHandle	;is there another block ? If not, then
	bcs  allDone		;..allDone

	ldy  #SuperBlock.nextHandle	;there was another block, so set the next
	lda  #0		;..handle field of the last dest handle
	sta  [DestPtr],y		;..to NULL to terminate the super list
	iny		;..there
	iny
	sta  [DestPtr],y

@loop	PushZLong TheSuperHandle	;kill all the remaining handles
	jsr  MoveToNextHandle
	PullAX
	php
	jsr  KillHandle
	plp
	bcc  @loop
;---------------------------------------------------------------
allDone	jsr  GetSuperCachedPtr	;get a pointer to the first block
	ldy  #SuperBlock.nextHandle+1	;if there is another handle, then exit
	lda  [TempPtr],y
	bne  exit

	ldy  #SuperHandle.itemsPerBlock	;if the block is already small, then exit
	lda  [SuperRecordPtr],y
	cmp  #ItemsInSmallBlock
	beq  exit

	ldx  #ItemsInMediumBlock+1
	clc
	ldy  #SuperBlock.RecordSize+2
@loop	lda  [TempPtr],y
	bmi  @foundTheEnd
	tya
	adc  #SuperItemSize		;the carry is always clear here
	tay
	dex
	bne  @loop
	bra  exit

@foundTheEnd	cpx  #ItemsInMediumBlock-ItemsInSmallBlock+1
	bge  @makeItSmall
@makeItMedium	lda  #ItemsInMediumBlock
	bra  @sizeIt
@makeItSmall	lda  #ItemsInSmallBlock
@sizeIt	PushZLong TheSuperHandle
	ldy  #SuperHandle.itemsPerBlock
	sta  [SuperRecordPtr],y
	asl  a
	asl  a
	asl  a
	adc  #SuperBlock.RecordSize	;carry is already clear
	ldx  #0		;we are getting smaller, so don't check
	jsr  SetHandleSize		;..for errors
;---------------------------------------------------------------
exit	PullLong DestPtr		;restore all the local variables
	PullLong SourcePtr
	PullLong TempLong
	PullLong TempPtr
	PullLong TheSuperHandle
	PullLong SuperRecordPtr

	PullLong WorkArea+8		;restore the work area
	PullLong WorkArea+4
	PullLong WorkArea
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

MoveOffsetToNextItem PROCNAME  Export

	addl SuperStart,SuperLength,TextOffset
	rts

	ENDP

****************************************************************

GetSuperCount	PROCNAME  Export

	lda  SuperLength+2
	bne  slow
	lda  SuperStart
	clc
	adc  SuperLength
	sec
	sbc  TextOffset
	rts

slow	jsr  GetLongSuperCount
	cpx  #0
	bne  tooLarge
	sec
	rts

tooLarge	lda  #$FFFF
	clc
	rts

	ENDP

****************************************************************

GetLongSuperCount	PROCNAME  Export

	lda  SuperStart
	clc
	adc  SuperLength
	tax
	lda  SuperStart+2
	adc  SuperLength+2
	tay
	txa
	sec
	sbc  TextOffset
	pha
	tya
	sbc  TextOffset+2
	tax
	pla
	rts

	ENDP

****************************************************************

GetHandleFromSuper	PROCNAME  Entry

	tax		;save the size of the handle to create
	lda  SuperRecordPtr		;mark this super array as in use
	sec
	sbc  RecordPtr
	sta  SuperInUse
	txa		;get back the size of the handle

	jsr  GetSmallHandle

	stz  SuperInUse
	rts

	ENDP

****************************************************************

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/TextEdit/superinterface.aii b/IIGS.601.SRC/GSToolbox/TextEdit/superinterface.aii
new file mode 100644
index 0000000..b62c2b8
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/TextEdit/superinterface.aii
@@ -0,0 +1 @@
+**********************************************************************
*
*                      GSTextEdit  Version 1.0
*                      File: superinterface.aii
*
*               Copyright Apple Computer, Inc. 1988-89
*                        All rights reserved
*
*
*
*
* Notes
*
* All the routines in GSTextEdit must be called in full native mode and
* return that way.
*
* All the files in GSTextEdit must be assembled with the "-unsafe"
* option to pass unresolved references to the linker.
*
*
*
*
* Change History
*
* 30 May 89	Dave Good
*
* Made obsolete (moved all the functions into super.aii).
*
**********************************************************************

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/TextEdit/templates b/IIGS.601.SRC/GSToolbox/TextEdit/templates
new file mode 100644
index 0000000..d2872ec
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/TextEdit/templates
@@ -0,0 +1 @@
+_START			Point
v			w
h			w
_END




_START			Rect
top			w
left			w
bottom			w
right			w
_END




_START			Rgn
size			w
;----------------------
top			w
left			w
bottom			w
right			w
;----------------------
data			w  8
			w  8
			w  8
			w  8
_END




_START			Handle
address			l
attributes		w
ownerID			w
length			l
prevHandle		l
nextHandle		l
_END




_START			Event
what			w
message			l
when			l
where			w 2
modifiers		w
_END




_START			Task
what			w
message			l
when			l
where			w 2
modifiers		w
taskData		l
taskMask		l
lastClickTick		l
clickCount		w
taskData2		l
taskData3		l
taskData4		l
lastClickPt		w 2
_END




_START			Ctrl
ctlNext			l
ctlOwner		l
ctlRect			w  4
ctlFlag			b
ctlHilite		b
ctlValue		w
ctlProc			l
ctlAction		l
ctlData			l
ctlRefCon		l
ctlColor		l
thumbRect		w  4
pageRegion		w  4
_END




_START			Port
PortSCB			w
ImageRef		l
Width			w
BoundsRect		w  4
PortRect		w  4
ClipRgn			l
VisRgn			l
BkPat			l  8
PnLoc			w  2
PnSize			w  2
PnMode			w
PnPat			l  8
PnMask			b  8
PnVis			w 
Font			l
FontID			l
FontFlags		w
TxSize			w
TxFace			w
TxMode			w
SpExtra			l
ChExtra			l
FGColor			w
BGColor			w
PicSave			l
RgnSave			l
PolySave		l
GrafProcs		l
ArcRot			w
UserField		l
SysField		l
;----------------------
wDefProc		l
wRefCon			l
wContDraw		l
wReserved		l
wStrucRgn		l
wContRgn		l
wUpdateRgn		l
wControls		l
wFrameCtrls		l
wFrame			w
_END




_START			Window
wNext			l
PortSCB			w
ImageRef		l
Width			w
BoundsRect		w  4
PortRect		w  4
ClipRgn			l
VisRgn			l
BkPat			l  8
PnLoc			w  2
PnSize			w  2
PnMode			w
PnPat			l  8
PnMask			b  8
PnVis			w 
Font			l
FontID			l
FontFlags		w
TxSize			w
TxFace			w
TxMode			w
SpExtra			l
ChExtra			l
FGColor			w
BGColor			w
PicSave			l
RgnSave			l
PolySave		l
GrafProcs		l
ArcRot			w
UserField		l
SysField		l
;----------------------
wDefProc		l
wRefCon			l
wContDraw		l
wReserved		l
wStrucRgn		l
wContRgn		l
wUpdateRgn		l
wControls		l
wFrameCtrls		l
wFrame			w
_END




_START			TEColor
content			w
outline			w
hilight			w
caret			w
vertBarVerb		w
vertBarRef		l
horzBarVerb		w
horzBarRef		l
growVerb		w
growRef			l
_END




_START			Ruler
leftMargin		w
leftIndent		w
rightMargin		w
just			w
extraLS			w
flags			w
userData		l
tabType			w
numberOfTabs		w

tabKind			w
tabData			w

tabKind			w
tabData			w

tabKind			w
tabData			w
_END




_START			Style
fontFamily		w
fontAttr		b
fontSize		b
foreColor		w
backColor		w
userData		l
_END




_START			StyleList
fontID			l
foreColor		w
backColor		w
userData		l

fontID			l
foreColor		w
backColor		w
userData		l

fontID			l
foreColor		w
backColor		w
userData		l

fontID			l
foreColor		w
backColor		w
userData		l

fontID			l
foreColor		w
backColor		w
userData		l

fontID			l
foreColor		w
backColor		w
userData		l

fontID			l
foreColor		w
backColor		w
userData		l

fontID			l
foreColor		w
backColor		w
userData		l

fontID			l
foreColor		w
backColor		w
userData		l

fontID			l
foreColor		w
backColor		w
userData		l
_END




_START			Format
version			w
rulerLength		l

leftMargin		w
leftIndent		w
rightMargin		w
just			w
extraLS			w
flags			w
userData		l
tabType			w
tabSize			w

styleListLength		l

fontID			l
foreColor		w
backColor		w
userData		l

numberOfStyles		l

length1			l
offset1			l

length2			l
offset2			l

length3			l
offset3			l

length4			l
offset4			l

length5			l
offset5			l
_END




_START			Text
nextHandle		l
prevHandle		l
textLength		l
flags			w
reserved		w
theText			a 425
_END




_START			SB
nextHandle		l
prevHandle		l
textLength		l
reserved		l

length1			l
data1			l

length2			l
data2			l

length3			l
data3			l

length4			l
data4			l

length5			l
data5			l

length6			l
data6			l

length7			l
data7			l

length8			l
data8			l

length9			l
data9			l

length10		l
data10			l

length11		l
data11			l

length12		l
data12			l

length13		l
data13			l

length14		l
data14			l

length15		l
data15			l

length16		l
data16			l

length17		l
data17			l

length18		l
data18			l

length19		l
data19			l

length20		l
data20			l

length21		l
data21			l

length22		l
data22			l

length23		l
data23			l

length24		l
data24			l

length25		l
data25			l

length26		l
data26			l

length27		l
data27			l

length28		l
data28			l

length29		l
data29			l

length30		l
data30			l

length31		l
data31			l

length32		l
data32			l
_END




_START			Param
count			w
id			l
boundsRect		w  4
defProc			l
ctlFlags		w
ctlMoreFlags		w
refCon			l
textFlags		l

indentRect		w  4

vertBar			l
vertAmount		w
horzBar			l
horzAmount		w

styleRef		l
textVerb		w
textRef			l
textLength		l

maxChars		l
maxLines		l
maxCharsPerLine		w
maxHeight		w

colorRef		l
textDrawMode		w

filterProc		l
_END




_START			Rec
;------------------
CtrlNext		l
inPort			l
BoundsRect		w  4
CtrlFlag		b
CtrlHilite		b
LastErrorCode		w
CtrlProc		l
CtrlAction		l
FilterProc		l
CtrlRefCon		l
ColorRef		l
TextFlags		l
TextLength		l
BlockList		l  2
CtrlID			l
CtrlMoreFlags		w
CtrlVersion		w
;------------------
ViewRect		w  4
TotalHeight		l

LineSuper.hand		l
LineSuper.start		l
LineSuper.index		w
LineSuper.items		w

StyleSuper.hand		l
StyleSuper.start	l
StyleSuper.index	w
StyleSuper.items	w

StyleList		l
RulerList		l
LineAtEndFlag		w

SelectionStart		l
SelectionEnd		l
SelectionActive		w
SelectionState		w
CaretTime		l

NullStyleActive		w
NullStyle.fontID	l
NullStyle.foreC		w
NullStyle.backC		w
NullStyle.user		l

TopTextOffset		l
TopTextVPos		w

VertScrollBar		l
VertScrollPos		l
VertScrollMax		l
VertScrollAmount	w

HorzScrollBar		l
HorzScrollPos		l
HorzScrollMax		l
HorzScrollAmount	w

GrowBoxHandle		l

MaximumChars		l
MaximumLines		l
MaximumCharsPerLine	w
MaximumHeight		w

TextDrawMode		w

WordBreakHook		l
WordWrapHook		l
KeyFilter		l

theFilterRect		w  4
theBufferPos(V,H)	w  2
theKeyRec.char		w
theKeyRec.modf		w
theKeyRec.hand		l
theKeyRec.offset	l
theKeyRec.opCode	w

CachedSelcOffset	l
CachedSelcVPos		w
CachedSelcHPos		w

MouseRect		w  4
MouseTime		l
MouseKind		w
LastClick		w  2
SavedHPos		w
AnchorPoint		l
;------------------
theEvent.what		w
theEvent.message	l
theEvent.when		l
theEvent.where		w  2
theEvent.modifiers	w
_END




_START			Var
			l
RecordHandle		l
ParameterSpace		l 6

UserID			w
QDDirectPage		w
WidthTableHandle	l
DataBufferHandle	l
DrawPortPtr		l
PPToPortCodeHandle	l
ScrollCodeHandle	l
RecordInUse		l
SuperinUse		w

DataBufferSize		w

WidthTablePtr		l
WidthTableOffset	w
WidthTableDepth		w

ParameterPtr		l
RecordPtr		l

TextOffset		l
TextPtr			l
TextCount		w
TextStyleOffset		l

TempPtr			l
TempWord		w
TempLong		l

BlockHandle		l
BlockLength		l
BlockStart		l
BlockCount		w

SuperRecordPtr		l
TheSuperHandle		l
SuperStart		l
SuperLength		l
SuperMaxIndex		w

SourcePtr		l
DestPtr			l
MoveLength		l
MemoryPtr		l

LineHeight		w
LineAscent		w

InputTextPtr		l
InputStylePtr		l

TextVPos		w
FixedHPos		l

SelectionLength		l

OriginalOffset		l
OriginalVPos		w
OriginalHPos		w

AmountScrolled		l
AmountLeft		l

RemovedHeight		l
ScrollDelta		l

LineLength		w
LastLineLength		w
SelcEndOffset		w
SelcStartOffset		w
LineStartLeft		w
LineStartOffset		l
LineEndOffset		l

StyleItemCount		l

WorkArea		l  5
_END




_START			Width
fontID			l
charWidth		b 256
height			w
ascent			w
_END




_START			WidthTable
count			w

fontID			l
charWidth		b 256
height			w
ascent			w

fontID			l
charWidth		b 256
height			w
ascent			w

fontID			l
charWidth		b 256
height			w
ascent			w

fontID			l
charWidth		b 256
height			w
ascent			w

fontID			l
charWidth		b 256
height			w
ascent			w
_END




_START			Debug
			b
LocalLength		l
TheMaxIndex		w
TheLength		l
TempHandle		l
TempPtr			l
TheHandle		l
ThePtr			l
TheMainPtr		l
DebugRecordPtr		l
InvalidFlag		w
TEDirectPage		w
_END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/TextEdit/text.aii b/IIGS.601.SRC/GSToolbox/TextEdit/text.aii
new file mode 100644
index 0000000..13f9b5c
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/TextEdit/text.aii
@@ -0,0 +1 @@
+**********************************************************************
*
*                      GSTextEdit  Version 1.0
*                           File: text.aii
*
*               Copyright Apple Computer, Inc. 1988-92
*                        All rights reserved
*
*
*
*
* Notes
*
* All the routines in GSTextEdit must be called in full native mode and
* return that way.
*
* All the files in GSTextEdit must be assembled with the "-unsafe"
* option to pass unresolved references to the linker.
*
*
*
*
* Change History
*
* 30 May 89	Dave Good
*
* Cleaned up comments for final release.
*
* 26 July 89	Dave Good
*
* Fixed bug in extracting styles where the refIsPointer and refIsHandle
* verbs were reversed and the other two didn't work. Also fixed bug
* where PStrings, C1InputStrings, C1OutputStrings and TextBox2 strings
* were not being clipped to the buffer properly.
*
* 27 August 89	Dave Good
*
* Fixed bug in deleting text. If the selection started exactly at the
* start of a block and continued for more than one block, TextEdit
* would leave a zero length block in the block list! This would make
* TextEdit hang the next time the block list was searched. I fixed the
* bug by checking the first block i modified, to see if it is zero
* length. If it is, then i remove it from the list, making sure to
* modify the cache in the process.
*
*
*  5 January 90	Dave Good
*
* Fixed bug in deleting text. If the selection started somewhere in
* a block and continued through the next block, the end of the text
* would look garbaged. What was happening was the ReplaceBlocks routine
* was not updating the BlockLength when it moved to the second block.
* This meant that the new length for the second block was derived from
* the first block's length instead of it's own length. I fixed this in
* two spots by reloading BlockLength directly from the block list structure.
*
* 2/7/90	Mensch
*
* Fixed bug relating to retrieving text into a pascal string in a handle.
* seems the handle was always overwritten by $0100 bytes because of improper
* use of shortm and longm. This has been fixed.
*
* 2/22/90	Mensch & Stadman
*
* Fixed bug in SetInitialText. When the new text length was zero, the textlength
* field of the record was not being updated. It is now updated properly.
*
* 3/2/90	Mensch
*
* Fixed several bugs relating to LETextBox2 output. See code for more info
*
* 4/13/90	Mensch
*
* Added New feature for extract text, it now also allows extraction of the current selection
* as an arbitrary block of text. This was added to make life groovy for Iduna and maybe someone
* else might like to use it, at any rate... its here... This requires the prepatching of gettextlength
* So that it can be modified to support the current selection length.
*
* 8/1/90 - 8/15/90	Mensch
* Many changes to the replace text engine. See code for specific comments. Should make input much
* smoother and increase reliability.
*
* 17-Nov-92	Dave Lyons
*
* Changed IsAtWordWrap routine to only treat Space specially, not all control characters.
* Fixes problem where typing lots of Tabs eventually draws garbage.
*
* 24-Mar-93 JCM
*
* Removed the fix to IsAtWordWrap because it screws up option-arrowing to move to the ends of lines.
*
**********************************************************************


	INCLUDE  'GlobalIncludes'
	INCLUDE  'E16.Font'


****************************************************************

ExtractText	PROCNAME  Export

;---------------------------------------------------------------
	lda  BufferRef		;are we supposed to return text ?
	ora  BufferRef+2
	bne  @extractIt
	ldx  #0		;if not, then return no error
	clc
	rts
;---------------------------------------------------------------
@extractIt	lda  BufferVerb		;check the buffer verb for illegal bits
	and  #Å(textIsMask+dataIsMask+OnlyGetSelection)
	bne  verbError

	stz  BufferErrorFlag	;assume the buffer is large enough

	lda  BufferVerb		;the buffer length parameter is only
	and  #textIsMask		;..significant for textIsPointer
;	cmp  #textIsPointer		;..descripters. Otherwise set it to
	beq  @skipMaxSet		;.. $FFFF FFFF
	lda  #$FFFF
	sta  BufferLength
	sta  BufferLength+2

@skipMaxSet	lda  BufferVerb
	and  #dataIsMask
	asl  a
	tax
	jmp  (table,x)
;---------------------------------------------------------------
verbError	ldx  #teInvalidVerb		;return the invalid verb error
	sec
	rts
;---------------------------------------------------------------
doPascal

	lda  #maxPascalSize		;clip the buffer length to 255 characters
	jsr  clipBufferLength	;..and get the total text length in A,X-Reg
	incl a		;we need an extra byte for the length
	jsr  checkAndSetLength	;check this size against bufferLength
	jsr  findBufferPtr		;make a pointer into the buffer
;
; The following code was changed to fix a handle overwritting bug
; length used to be dec'd in short leaving it at $01ff instead of $00ff (handle size -1)
;
; 2/7/90	Mensch
;
	dec  BufferLength
	shortm		;set the text length field in the buffer
	lda  BufferLength
	sta  [DestPtr]
	longm
	incl DestPtr		;skip over the length byte
	brl  copyTheText
;---------------------------------------------------------------
doCString	jsr  MyGetTextLength		;get the length of the text and add one
	incl a		;..for the terminator
	jsr  checkAndSetLength	;check the size against bufferLength
	jsr  findBufferPtr		;make a pointer into the buffer
	decl BufferLength		;the text length does not include the
	addl DestPtr,BufferLength,TempPtr	;..terminator
	shortm		;put the terminator byte in the buffer
	lda  #0
	sta  [TempPtr]
	longm
	brl  copyTheText
;---------------------------------------------------------------
doC1Input	lda  #maxC1InputSize
	jsr  clipBufferLength
	incl a
	incl a
	jsr  checkAndSetLength
	jsr  findBufferPtr
	dec  BufferLength
	dec  BufferLength
	lda  BufferLength
	sta  [DestPtr]
	lda  #2
	addl DestPtr
	brl  copyTheText
;---------------------------------------------------------------
doC1Output	lda  #maxC1OutputSize
	jsr  clipBufferLength
	clc
	adc  #4
	bcc  @1
	inx
@1	jsr  checkAndSetLength
	jsr  findBufferPtr
	lda  BufferLength
	sta  [DestPtr]
	sec
	sbc  #4
	sta  BufferLength
	ldy  #2
	sta  [DestPtr],y
	jsr  AddFourToDestPtr
	brl  copyTheText
;---------------------------------------------------------------
doTextBox2	
;
; 4/13/90	Mensch
; Added test here for the selection only flag. TextBox2 Output will NOT support
; this feature no matter what those whiners in DTS say!
;
	lda  BufferVerb		
	and  #OnlyGetSelection	
	beq  @DTB2010
	brl  VerbError		; seems I can still call this at this point.
@DTB2010
	jsr  SetupRulerPtr		;check to see if we need to allocate
	ldx  #12		;..space for the extra line space field
	ldy  #TERuler.extraLS
	lda  [TempPtr],y
	beq  @skipLS		;nope, we don't need the extra space field
	ldx  #16
@skipLS	phx		;save this minimum style size on the stack

	ldy  #TERecord.StyleSuper	;get the number of styles items in the
	jsr  CountSuperItems	;..record. Multiply this by 14 (16 - 2)
	stx  StyleItemCount+2	;..to find the extra number of bytes we
	asl  a		;..need for the style information
	rol  StyleItemCount+2
	pei  StyleItemCount+2
	pha
	asl  a
	rol  StyleItemCount+2
	asl  a
	rol  StyleItemCount+2
	asl  a
	rol  StyleItemCount+2
	sec
	sbc  1,s
	sta  StyleItemCount
	plx
	lda  StyleItemCount+2
	sec
	sbc  1,s
	sta  StyleItemCount+2
	plx
	pla		;get back the minimum size and add it to
	addl StyleItemCount		;..the count for the items to get the total size

	lda  #maxTextBox2Size	;clip the buffer length to our maximum
	jsr  clipBufferLength	;..size
;
; 3/1/90	Mensch
; Fixed bug here where it was clipping the buffer size to only house the style information
; This was causing a hang. Now I get the text length and add it to the style first.
; of course this screws up the StyleItemCount information, but... I guess its better than
; crashing. 
; 
	jsr GetTextLength
	addl StyleItemCount		;make sure we have this many bytes in the
	ldax StyleItemCount
	jsr  checkAndSetLength	;..buffer
	jsr  findBufferPtr		;lock down ouur buffer
;---------------------------------------------------------------
	lda  BufferLength		;pre-check for enough space to store the
	cmp  #12		;..initial ruler information
	bltl @allDone

	jsr  SetupRulerPtr

	lda  #$4A01		;'J'
	sta  [DestPtr]
	ldy  #TERuler.Just
	lda  [TempPtr],y
	ldy  #2
	sta  [DestPtr],y
	jsr  AddFourToDestPtr

	lda  #$4C01		;'L'
	sta  [DestPtr]
	ldy  #TERuler.LeftMargin
	lda  [TempPtr],y
	ldy  #2
	sta  [DestPtr],y
	jsr  AddFourToDestPtr

	lda  #$5201		;'R'
	sta  [DestPtr]
	ldy  #TERecord.ViewRect.right
	lda  [RecordPtr],y
	sec
	ldy  #TERuler.RightMargin
	sbc  [TempPtr],y
	ldy  #2
	sta  [DestPtr],y
	jsr  AddFourToDestPtr

	lda  BufferLength
	sec
	sbc  #12
	sta  BufferLength

	ldy  #TERuler.extraLS	;add the extra line space information if
	lda  [TempPtr],y		;..we need it
	beq  @skipExtra
	tax
	lda  BufferLength
	cmp  #4
	bltl @allDone

	lda  #$5801		;'X'
	sta  [DestPtr]
	txa
	ldy  #2
	sta  [DestPtr],y
	jsr  AddFourToDestPtr

	lda  BufferLength
	sec
	sbc  #4
	sta  BufferLength
@skipExtra
;---------------------------------------------------------------
	stzl TextOffset		;start at the beginning of the text
@styleLoop
	lda  BufferLength		;do we have enough space for the style
	cmp  #14		;..information ? Nope = exit
	bltl @allDone
	jsr  FindStyleInfo
	jsr  SetupStylePtr

	lda  #$4601		;'F'
	sta  [DestPtr]
;
; 3/2/90	Mensch
;
; Added +2 here so that the proper high and low words will be in <A><X> when we save to destptr
;
	ldy  #TEStyle.fontID+2
	lda  [TempPtr],y
	tax
	dey
	dey
	lda  [TempPtr],y
	ldy  #2
	sta  [DestPtr],y
	iny
	iny
	txa
	sta  [DestPtr],y
	iny
	iny

	lda  #$4301		;'C'
	sta  [DestPtr],y
	ldy  #TEStyle.foreColor
	lda  [TempPtr],y
	ldy  #8
	sta  [DestPtr],y
	iny
	iny

	lda  #$4201		;'B'
	sta  [DestPtr],y
	ldy  #TEStyle.backColor
	lda  [TempPtr],y
	ldy  #12
	sta  [DestPtr],y
	iny
	iny

	lda  #14		;move past the style information and
	addl DestPtr		;..update our buffer length variable
	lda  BufferLength
	sec
	sbc  #14
	sta  BufferLength

	jsr  GetSuperCount		;get the number of bytes of text that are
	sta  TextCount		;..in this style
	lda  BufferLength
	sec
	sbc  TextCount
	sta  BufferLength
	bcs  @stillinBuffer
	lda  BufferLength
	sta  TextCount
	lda  #0
@stillinBuffer	sta  BufferLength
	stz  MoveLength+2		;all our moves are less than 64K

@textLoop	jsr  FindTextPtr		;move all the text in this item
	movl TextPtr,SourcePtr
	lda  BlockCount
	cmp  TextCount
	blt  @1
	lda  TextCount
@1	sta  MoveLength
	addl TextOffset
	jsr  BlockMove
	lda  MoveLength
	addl DestPtr
	lda  TextCount
	sec
	sbc  MoveLength
	sta  TextCount
	bne  @textLoop

	brl  @styleLoop
@allDone
	stzl OutputStyleRef		;don't return any style information
	brl  releaseBuffer		;release the buffer ref
;---------------------------------------------------------------
doSelectBlock	
; Added routine 4/13/90	Mensch
; Added this routine that gets the text contained in the current selection into a text block
; This will be similar to the doTextBlock code except that I will extract the starting and ending 
; selection. NOTE At this time the stack is set such that ReturnSpace+2 points to the result
; from this call... (Which MUST be updated for this output format...)
	jsr  GetSelectionLength	; put length of current selection into <X><A>
	tay		; save the low word for now...
	sta ReturnSpace+2,s
	txa
	sta ReturnSpace+2+2,s	; and save the high word
	tya		; recover low word.
	bne @SelectionNotEmpty
	cpx #0
	bne @SelectionNotEmpty
; NOTE: if we are here the selection is empty so return an empty block of text
	brl releaseBuffer
@SelectionNotEmpty
	jsr  checkAndSetLength
	jsr  findBufferPtr
	jsr  GetSelectionStart	; and set textOffset to start of current selecion
	bra  CopyTheText2
;---------------------------------------------------------------
doTextBlock	jsr  MyGetTextLength
	jsr  checkAndSetLength
	jsr  findBufferPtr
;---------------------------------------------------------------
copyTheText	
;
; 4/13/90	Mensch
; Added code at the top here to support the OnlyGetSelection bit
; This code will decide how to set the text offset parameter
; NOTE At this time the stack is set such that ReturnSpace+2 points to the result
; from this call... (Which MUST be updated for this output format...)
	lda  BufferVerb		
	and  #OnlyGetSelection	
	beq  @NormalCTT		;If flag not set do the normal stuff
	lda  BufferLength		; see if there is any text to copy
	sta  ReturnSpace+2,s	;
	lda  BufferLength+2
	sta  ReturnSpace+2+2,s
	ora  BufferLength
	beq  @SelectionEmpty
	jsr  GetSelectionStart	; and set textOffset to start of current selecion
	bra  CopyTheText2
@SelectionEmpty	brl releaseBuffer
 
@NormalCTT	stzl TextOffset		;start at the beginning of the text
CopyTheText2	stz  MoveLength+2		;MoveLength is always less than 64K

@loop	jsr  FindTextPtr
	movl TextPtr,SourcePtr
	lda  BlockCount
	ldx  BufferLength+2
	bne  @1
	cmp  BufferLength
	blt  @1
	lda  BufferLength
@1	sta  MoveLength
	addl TextOffset
	jsr  BlockMove
	lda  MoveLength
	addl DestPtr
	lda  BufferLength
	sec
	sbc  MoveLength
	sta  BufferLength
	bcs  @2
	dec  BufferLength+2
@2	bne  @loop
	ora  BufferLength+2
	bne  @loop
;---------------------------------------------------------------
releaseBuffer	lda  BufferVerb		;release the buffer reference
	and  #textIsMask
;	cmp  #textIsPointer		;this is zero, so don't need to compare
	beq  allDone
	cmp  #textIsHandle
	beq  @doHandle
	cmp  #textIsResource
	beq  @doResource

@doNewHandle	ldy  #2
	lda  NewBufferHandle+2
	sta  [BufferRef],y
	pha
	lda  NewBufferHandle
	sta  [BufferRef]
	pha
	bra  @unlockIt

@doResource	PushZLong NewBufferHandle
	jsr  UnlockHandle
	lda  MustAddResFlag
	bmi  @addTheRes

@changeTheRes	PushWord #$FFFF
	lda  BufferVerb
	jsr  VerbToResourceType
	phy
	PushZLong BufferRef
	_MarkResourceChange
	bcc  allDone
	tax		;return the error code in X-Reg
	rts		;the carry is already set

@addTheRes	PushZLong NewBufferHandle
	PushWord #$0300
	lda  BufferVerb
	jsr  VerbToResourceType
	phy
	PushZLong BufferRef
	_AddResource
	bcc  allDone
	tax		;return the error code in X-Reg
	rts		;the carry is already set

@doHandle	PushZLong BufferRef
@unlockIt	jsr  UnlockHandle
;---------------------------------------------------------------
allDone	ldx  BufferErrorFlag	;if the buffer was full, return buffer
	cpx  #1		;..full error
	rts
;---------------------------------------------------------------
table	dc.w  doPascal
	dc.w  doCString
	dc.w  doC1Input
	dc.w  doC1Output
	dc.w  doTextBox2
	dc.w  doTextBlock
	dc.w  verbError		; added 4/13/90 Mensch
	dc.w  verbError
;---------------------------------------------------------------



;---------------------------------------------------------------
findBufferPtr	lda  BufferVerb
	and  #textIsMask
;	cmp  #textIsPointer		;this is zero, so don't need to compare
	beq  @doPointer
	cmp  #textIsHandle
	beq  @doHandle
	cmp  #textIsNewHandle
	beq  @doNewHandle

@doResource	stz  MustAddResFlag
	PushLongSpace		;try to load the given resource
	lda  BufferVerb
	jsr  VerbToResourceType
	phy
	PushZLong BufferRef
	_LoadResource
	tax
	pla
	sta  NewBufferHandle
	pla
	sta  NewBufferHandle+2
	bcs  @makeNewRes
@useThisRes	PushZLong NewBufferHandle
	ldax BufferLength
	jsr  SetHandleSize
	bcs  @memoryError
	PushZLong NewBufferHandle
	bra  @lockIt
@makeNewRes	cpx  #$1E06		;if the resource does not exist, then fall
	bne  @memoryError		;..thru to @doNewHandle, otherwise exit
	dec  MustAddResFlag		;set the must add flag to minus one

@doNewHandle	ldax BufferLength		;this works for both textIsResource and
	jsr  GetLargeHandle		;..textIsNewHandle
	bcs  @memoryError
	stax NewBufferHandle
	PushAX
	bra  @lockIt

@doPointer	ldax BufferRef
	bra  @setPtr

@doHandle	PushZLong BufferRef		;set the user's handle to the correct size
	ldax BufferLength
	jsr  SetHandleSize
	bcs  @memoryError
	PushZLong BufferRef
@lockIt	jsr  LockHandle
@setPtr	stax DestPtr
	rts

@memoryError	pla		;pull off one return address
	rts
;---------------------------------------------------------------
;
MyGetTextLength
;
; 4/16/90	Mensch
; Added code to clip the buffer length to the current selection if the OnlyGetSelection bit
; is set in text edit. Also, I will be calling getSelStart to set the text offset properly
; if said bit is set!	
; First test the verb to see if we want to modify contents of <A><X>
; Also note that this routine relies on us being inside of 2 jsr's so we can modify
; return space properly...

	lda  BufferVerb		
	and  #OnlyGetSelection	
	beq  @NormalGTL		;If flag not set do the normal stuff

	brl  GetSelectionLength	; put length of current selection into <X><A>
@NormalGTL	brl  GetTextLength


;---------------------------------------------------------------
checkAndSetLength
	cpx  BufferLength+2
	blt  @bufferOK
	bne  @bufferTooSmall
	cmp  BufferLength
	bgt  @bufferTooSmall

@bufferOK	stax BufferLength
	rts

@bufferTooSmall	lda  #teBufferOverflow
	sta  BufferErrorFlag
	rts
;---------------------------------------------------------------



;---------------------------------------------------------------
clipBufferLength
	ldx  BufferLength+2
	bne  @1
	cmp  BufferLength
	bge  @2
@1	sta  BufferLength
	stz  BufferLength+2
@2	brl  MyGetTextLength
;---------------------------------------------------------------

	ENDP

****************************************************************

VerbToResourceType	PROCNAME  Entry

	and  #dataIsMask

	cmp  #dataIsPString
	bne  @1
	ldy  #rPString
	rts
@1
	cmp  #dataIsCString
	bne  @2
	ldy  #rCString
	rts
@2
	cmp  #dataIsC1Input
	bne  @3
	ldy  #rC1InputString
	rts
@3
	cmp  #dataIsC1Output
	bne  @4
	ldy  #rC1OutputString
	rts
@4	
	cmp  #dataIsTextBox2
	bne  @5
	ldy  #rTextBox2
	rts
@5
	ldy  #rTextBlock	;must be textBlock
	rts

	ENDP

****************************************************************

ExtractStyles	PROCNAME  Export

;---------------------------------------------------------------
	lda  OutputStyleRef		;are we returning styles ?
	ora  OutputStyleRef+2
	bne  extractIt
	ldx  #0		;if not, then return no error
	clc
	rts
;---------------------------------------------------------------
extractIt	lda  OutputStyleVerb	;check for a verb error
	and  #ÅrefIsMask
	bnel verbError

	jsr  GetStyleRecordSize
	stax TempLong

	lda  OutputStyleVerb
;	cmp  #refIsPointer		;since refIsPointer is $0000 we don't
	beq  @doPointer		;..need this
	cmp  #refIsHandle
	beq  @doHandle
	cmp  #refIsNewHandle
	beq  @doNewHandle

@doResource	stz  MustAddResFlag
	PushLongSpace		;try to load the given resource
	PushWord #rStyleBlock
	PushZLong OutputStyleRef	;the resource ID
	_LoadResource
	tax
	pla
	sta  NewBufferHandle
	pla
	sta  NewBufferHandle+2
	bcs  @makeNewRes
@useThisRes	PushZLong NewBufferHandle
	ldax TempLong
	jsr  SetHandleSize
	bcsl memoryError
	PushZLong NewBufferHandle
	bra  @lockIt
@makeNewRes	cpx  #$1E06		;if the resource does not exist, then fall
	bnel memoryError		;..thru to @doNewHandle, otherwise exit
	dec  MustAddResFlag		;set the must add flag to minus one

@doNewHandle	ldax TempLong
	jsr  GetLargeHandle
	bcsl memoryError
	stax NewBufferHandle
	PushAX
	bra  @lockIt

@doPointer	ldax OutputStyleRef
	bra  @setPtr

@doHandle	PushZLong OutputStyleRef
	ldax TempLong
	jsr  SetHandleSize
	bcsl memoryError
	PushZLong OutputStyleRef
@lockIt	jsr  LockHandle
@setPtr	stax DestPtr
;---------------------------------------------------------------
	lda  #StyleRecordVersion	;the version is the first word.
	sta  [DestPtr]
	incl DestPtr
	incl DestPtr

	ldy  #TERecord.RulerList	;add the ruler list to the style record.
	jsr  addTheListToDestPtr

	ldy  #TERecord.StyleList
	jsr  addTheListToDestPtr

	lda  StyleItemCount		;set the style item count field in the
	sta  [DestPtr]		;..style record
	ldy  #2
	lda  StyleItemCount+2
	sta  [DestPtr],y
	jsr  AddFourToDestPtr
;---------------------------------------------------------------
copyItems	ldy  #TERecord.StyleSuper
	jsr  GetSuperRecordPtr
	jsr  MoveToFirstSuperHandle

          IF SuperItemSize <> 8 THEN
              AERROR 'WARNING... This code relies on the SuperItemSize equate being eight'
          ENDIF

mainLoop	ldy  #SuperHandle.itemsPerBlock	;get the number of items per block
	lda  [SuperRecordPtr],y
	tax		;use X-Reg as our item counter

	lda  TempPtr		;get a pointer to the beginning of the
	clc		;..style items
	adc  #SuperBlock.RecordSize
	sta  SourcePtr
	lda  TempPtr+2
	adc  #0
	sta  SourcePtr+2

	ldy  #2
@loop	lda  [SourcePtr],y		;check for a deleted entry
	bmi  @skipEntry
	ldy  #6		;it is not deleted, so copy it
	lda  [SourcePtr],y
	sta  [DestPtr],y
	ldy  #4
	lda  [SourcePtr],y
	sta  [DestPtr],y
	ldy  #2
	lda  [SourcePtr],y
	sta  [DestPtr],y
	lda  [SourcePtr]
	sta  [DestPtr]
	jsr  AddEightToDestPtr
@skipEntry	jsr  AddEightToSourcePtr
	dex
	bne  @loop

	jsr  MoveToNextHandle
	bcc  mainLoop
;---------------------------------------------------------------
cleanup	lda  OutputStyleVerb
;	cmp  #refIsPointer		;since refIsPointer is $0000 we don't
	beq  noError		;..need this
	cmp  #refIsHandle
	beq  @doHandle
	cmp  #refIsResource
	beq  @doResource

@doNewHandle	ldy  #2
	lda  NewBufferHandle+2
	sta  [OutputStyleRef],y
	pha
	lda  NewBufferHandle
	sta  [OutputStyleRef]
	pha
	bra  @unlockIt

@doResource	PushZLong NewBufferHandle
	jsr  UnlockHandle
	lda  MustAddResFlag
	bmi  @addTheRes

@changeTheRes	PushWord #$FFFF
	PushWord #rStyleBlock
	PushZLong OutputStyleRef	;the resource ID
	_MarkResourceChange
	tax
	bra  allDone

@addTheRes	PushZLong NewBufferHandle
	PushWord #$0300
	PushWord #rStyleBlock
	PushZLong OutputStyleRef	;the resource ID
	_AddResource
	tax
	bra  allDone

@doHandle	PushZLong OutputStyleRef
@unlockIt	jsr  UnlockHandle
;---------------------------------------------------------------
noError	ldx  #0
allDone	clc
	rts
;---------------------------------------------------------------
verbError	ldx  #teInvalidVerb
	sec
memoryError	rts		;the carry is already set
;---------------------------------------------------------------



;---------------------------------------------------------------
addTheListToDestPtr	jsr  PushRecordLong
	jsr  PushRecordLong
	jsr  DerefHandle
	stax SourcePtr
	jsr  GetHandleSize
	sec
	sbc  #4
	bcs  @1
	dex
@1	stax MoveLength
	ldy  #2
	sta  [DestPtr]
	txa
	sta  [DestPtr],y
	jsr  AddFourToDestPtr
	jsr  BlockMove
	addl DestPtr,MoveLength,DestPtr
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

GetStyleRecordSize	PROCNAME  Export

;---------------------------------------------------------------
          IF SuperItemSize <> 8 THEN
              AERROR 'WARNING... This code relies on the SuperItemSize equate being eight'
          ENDIF
;---------------------------------------------------------------

;---------------------------------------------------------------
	ldy  #TERecord.StyleSuper	;find the total size of the style handle
	jsr  CountSuperItems	;..to return.
	stax StyleItemCount
	stx  TempLong+2
	asl  a		;multiply by eight
	rol  TempLong+2
	asl  a
	rol  TempLong+2
	asl  a
	rol  TempLong+2
	clc
	adc  #14
	sta  TempLong
	bcc  @1
	inc  TempLong+2
@1
	ldy  #TERecord.RulerList	;add the size of the ruler list to the
	jsr  addListSize		;..size of the style items

	ldy  #TERecord.StyleList	;add the size of the style list and exit
	jsr  addListSize

	ldax TempLong
	rts
;---------------------------------------------------------------
addListSize	jsr  PushRecordLong
	jsr  GetHandleSize
	sec
	sbc  #4
	bcs  @1
	dex
@1	clc
	adc  TempLong
	sta  TempLong
	txa
	adc  TempLong+2
	sta  TempLong+2
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

SetInitialText	PROCNAME  Export

;---------------------------------------------------------------
	lda  InputTextLength
	ora  InputTextLength+2
	beq  SetTextLength
;---------------------------------------------------------------
doIt	ldy  #TERecord.MaximumChars	;clip the text length to the maximum
	jsr  GetRecordLong		;..number of characters
	cmpl InputTextLength
	bge  @noClip
	stax InputTextLength

@noClip	movl InputTextLength,BlockLength	;set the block size
	jsr  CachedBlockToPtr
	jsr  SetBlockSize
	bcs  memoryError

	ldy  #2		;get a pointer to the block that will
	lda  [BlockHandle]		;..contain the text.
	clc
	adc  #TextBlock.textStart
	sta  DestPtr
	lda  [BlockHandle],y
	adc  #0
	sta  DestPtr+2
	movl InputTextPtr,SourcePtr
	movl InputTextLength,MoveLength
	jsr  BlockMove		;block move it all in.

SetTextLength	ldy  #TERecord.TextLength	;set the length field in the TERecord
	ldax InputTextLength
	clc
	brl  SetRecordLong		;this preserves the carry flag
;---------------------------------------------------------------
memoryError	rts		;the carry is already set
;---------------------------------------------------------------

	ENDP

****************************************************************

SetInitialStyle	PROCNAME  Export

;---------------------------------------------------------------
	lda  InputStyleRef
	ora  InputStyleRef+2
	bne  doStyles

skipStyles	ldy  #TERecord.StyleList	;crunch the style list handle down to one
	jsr  PushRecordLong		;..item.
	jsr  PushRecordLong
	ldax #TEStyle.RecordSize+4
	jsr  SetHandleSize
	jsr  DerefHandle
	stax TempPtr
	ldy  #TEStyle.RecordSize
	jsr  TerminateTempPtr

	movl InputTextLength,SuperLength
	stzl TextStyleOffset
	jsr  SetStyleInfo

	clc
	rts
;---------------------------------------------------------------
doStyles	movl InputStylePtr,SourcePtr
	lda  [SourcePtr]		;check the style record version
	cmp  #StyleRecordVersion
	bne  skipStyles
	incl SourcePtr
	incl SourcePtr

	ldy  #TERecord.RulerList	;copy the ruler list
	jsr  copyToList

	ldy  #TERecord.StyleList	;copy the style list
	jsr  copyToList

	jsr  GetTEHighFlags		;if the record is single style, go back and
	and  #fSingleStyle		;..use just the first style
	bne  skipStyles

	lda  [SourcePtr]		;get the number of items in the style
	sta  StyleItemCount		;..super array
	ldy  #2
	lda  [SourcePtr],y
	sta  StyleItemCount+2
	jsr  AddFourToSourcePtr

	ldy  #TERecord.StyleSuper	;setup the style record pointer
	jsr  GetSuperRecordPtr

	lda  StyleItemCount+2	;check to see how many items we have - do
	bne  @doLarge		;..we need a small, medium, or large super
	lda  StyleItemCount
	cmp  #ItemsInSmallBlock+1
	blt  @doSmall
	cmp  #ItemsInMediumBlock+1
	blt  @doMedium

@doLarge	lda  #ItemsInLargeBlock
	bra  allocIt
@doMedium	lda  #ItemsInMediumBlock
	bra  allocIt
@doSmall	lda  #ItemsInSmallBlock

allocIt	ldy  #SuperHandle.itemsPerBlock	;set the items per block field
	sta  [SuperRecordPtr],y
	ldy  #SuperHandle.cachedHandle+2	;save the cached super handle on the
	lda  [SuperRecordPtr],y	;..stack
	pha
	dey
	dey
	lda  [SuperRecordPtr],y
	pha
	jsr  GetSuperMaxIndex	;find the correct size
	lda  SuperMaxIndex
	dec  a
	dec  a
	ldx  #0
	jsr  SetHandleSize
	bcc  @ok

	ldy  #SuperHandle.itemsPerBlock	;we got an error, so reset the items per
	lda  #ItemsInSmallBlock	;..block field and exit
	sta  [SuperRecordPtr],y
	rts		;the X-Reg and carry are still set here

@ok	jsr  ClearSuperCachedHandle

	movl InputTextLength,TempLong	;this is the total length of the text
;---------------------------------------------------------------
mainLoop	ldy  #SuperHandle.itemsPerBlock	;get the number of items per block
	lda  [SuperRecordPtr],y
	tax

	lda  StyleItemCount+2
	bne  @tooBig
	cpx  StyleItemCount
	blt  @tooBig
	ldx  StyleItemCount
	stz  StyleItemCount
	bra  @doIt

@tooBig	stx  TempWord
	lda  StyleItemCount
	sec
	sbc  TempWord
	sta  StyleItemCount
	bcs  @doIt
	dec  StyleItemCount+2

@doIt	lda  #SuperBlock.RecordSize
	clc
	adc  TempPtr
	sta  DestPtr
	lda  TempPtr+2
	adc  #0
	sta  DestPtr+2
	stzl MoveLength
	txa		;see if there are any items at all. If
	bne  @loop		;..there are, then copy them

@noItems	ldy  #6		;A-Reg is zero here
	sta  [DestPtr],y
	dey
	dey
	sta  [DestPtr],y
	dey
	dey
	lda  InputTextLength+2	;set the length of both the item and
	sta  [DestPtr],y		;..the text length to the total text length
	ldy  #SuperBlock.textLength
	sta  [TempPtr],y
	dey
	dey
	lda  InputTextLength
	sta  [DestPtr]
	sta  [TempPtr],y
	brl  allDone

          IF SuperItemSize <> 8 THEN
              AERROR 'WARNING... This code relies on the SuperItemSize equate being eight'
          ENDIF

@loop	lda  [SourcePtr]
	sta  [DestPtr]
	sta  SuperLength
	clc
	adc  MoveLength
	sta  MoveLength
	ldy  #2
	lda  [SourcePtr],y
	sta  [DestPtr],y
	sta  SuperLength+2
	adc  MoveLength+2
	sta  MoveLength+2
	ldy  #4
	lda  [SourcePtr],y
	sta  [DestPtr],y
	ldy  #6
	lda  [SourcePtr],y
	sta  [DestPtr],y

	lda  SuperLength
	ora  SuperLength+2
	beq  @atTheEnd
	lda  TempLong		;subtract the item length from the
	sec		;..remaining total length
	sbc  SuperLength
	sta  TempLong
	lda  TempLong+2
	sbc  SuperLength+2
	sta  TempLong+2
	bcc  @atTheEnd

	jsr  AddEightToSourcePtr
	jsr  AddEightToDestPtr
	dex
	bne  @loop

	ldy  #SuperBlock.textLength
	lda  MoveLength
	sta  [TempPtr],y
	iny
	iny
	lda  MoveLength+2
	sta  [TempPtr],y

	lda  StyleItemCount
	ora  StyleItemCount+2
	beq  allDone
	PushZLong TempLong
	ldy  #TERecord.StyleSuper
	jsr  AddANewSuperHandle
	PullLong TempLong
	bccl mainLoop

@memoryError	phx		;save the error code
	ldy  #TERecord.StyleSuper	;if there was an error, then kill the old
	jsr  KillSuperHandle	;.. style super array and get a new one
	ldy  #TERecord.StyleSuper
	jsr  GetNewSuperHandle
	plx		;restore the error code and set the carry
	sec		;..flag. Then exit
	rts

@atTheEnd	lda  TempLong		;make the length of the item be the remaining
	clc		;..length of the text (we must add super
	adc  SuperLength		;..length since it has been subtracted
	sta  [DestPtr]		;..from the remaining length)
	ldy  #2
	lda  TempLong+2
	adc  SuperLength+2
	sta  [DestPtr],y

	ldy  #SuperBlock.textLength	;the length of this block is (MoveLength
	lda  MoveLength		;..- SuperLength + (TempLong + SuperLength))
	clc		;..which is just (MoveLength + TempLong)
	adc  TempLong
	sta  [TempPtr],y
	iny
	iny
	lda  MoveLength+2
	adc  TempLong+2
	sta  [TempPtr],y		;fall thru into all done
;---------------------------------------------------------------
allDone	clc
	rts
;---------------------------------------------------------------



;---------------------------------------------------------------
copyToList	jsr  PushRecordLong		;save the list handle twice
	jsr  PushRecordLong
	ldy  #2		;get the list length into MoveLength and
	lda  [SourcePtr],y		;..A,X-Reg
	sta  MoveLength+2
	tax
	lda  [SourcePtr]		;get the length of the list into MoveLength
	sta  MoveLength
	clc		;add four to the list size
	adc  #4
	bcc  @1
	inx
@1	jsr  SetHandleSize		;set the new list size
	bcs  @memoryError
	jsr  DerefHandle
	stax DestPtr
	jsr  AddFourToSourcePtr	;move the sourcePtr past the length field
	jsr  BlockMove
	addl SourcePtr,MoveLength,SourcePtr
	addl DestPtr,MoveLength,TempPtr
	ldy  #0
	brl  TerminateTempPtr

@memoryError	tsc		;pull off one copy of the list handle and
	clc		;..the return address
	adc  #6
	tcs
	sec
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

SetInitialTextAndStyle PROCNAME  Export

;---------------------------------------------------------------
	jsr  TranslateInputVerbs
	bcs  error

	jsr  SetInitialText		;set the initial text
	bcs  memoryError1
	jsr  SetInitialStyle	;set the initial style information
	bcs  memoryError2

	jsr  ReleaseInputVerbs

	jsr  InitialWordWrap	;wrap the text.

	jsr  GetVertScrollBar	;set the scroll bar and all associated
	beq  @skipSet		;..fields to the top
	PushWord #0
	PushAX
	_SetCtlValue
@skipSet	ldy  #TERecord.TopTextVPos
	lda  #0
	sta  [RecordPtr],y
	tax
	ldy  #TERecord.VertScrollPos
	jsr  SetRecordLong

	stzl TextOffset
	jsr  SetScreenTopOffset
	jsr  SetSelectionStart	;set the current selection to the top.
	jsr  SetSelectionEnd

	jsr  ClearSavedHPos

	ldx  #0
	clc
	rts
;---------------------------------------------------------------
memoryError2	phx
	jsr  KillBlockList		;destroy the block list and get a fresh
	jsr  NewBlockList		;..one
	plx
;---------------------------------------------------------------
memoryError1	phx		;if we got an error, then release the
	jsr  ReleaseInputVerbs	;..input verbs
	plx
;---------------------------------------------------------------
error	brl  SetLastErrorCode	;notify the filter: we're out of memory
;---------------------------------------------------------------

	ENDP

****************************************************************

TranslateInputVerbs	PROCNAME  Export

;---------------------------------------------------------------
	lda  InputTextVerb
	and  #Å(textIsMask+dataIsMask)
	bne  verbError
	lda  InputStyleVerb
	cmp  #refIsNewHandle
	beq  verbError
	and  #ÅrefIsMask
	bne  verbError

	lda  InputTextRef		;if the text ref is NULL, then just
	ora  InputTextRef+2		;..destroy all the old text, but don't
	bne  @doIt		;..move any new stuff in.

	stzl InputTextLength
	lda  #textIsPointer
	sta  InputTextVerb
	brl  TranslateInputStyle

@doIt	lda  InputTextVerb
	and  #dataIsMask
	asl  a
	tax
	jmp  (theTable,x)
;---------------------------------------------------------------
doPascal	jsr  GetInputTextPtr
	lda  [InputTextPtr]
	and  #$00FF
	sta  InputTextLength
	stz  InputTextLength+2
	lda  #1
	bra  addToInputPtr
;---------------------------------------------------------------
doCString	jsr  GetInputTextPtr
	stz  InputTextLength+2

	ldy  #0
	shortm
@loop	lda  [InputTextPtr],y
	beq  @done
	iny
	bne  @loop
	inc  InputTextLength+2
	inc  InputTextPtr+2
	bra  @loop

@done	longm
	sty  InputTextLength
	lda  InputTextPtr+2
	sec
	sbc  InputTextLength+2
	sta  InputTextPtr+2
	bra  TranslateInputStyle
;---------------------------------------------------------------
verbError	ldx  #teInvalidVerb
	sec
	rts
;---------------------------------------------------------------
doC1Input	jsr  GetInputTextPtr
	lda  [InputTextPtr]
	sta  InputTextLength
	stz  InputTextLength+2
	lda  #2
	bra  addToInputPtr
;---------------------------------------------------------------
doC1Output	jsr  GetInputTextPtr
	ldy  #2
	lda  [InputTextPtr],y
	sta  InputTextLength
	stz  InputTextLength+2
	lda  #4
;---------------------------------------------------------------
addToInputPtr	addl InputTextPtr
	bra  TranslateInputStyle
;---------------------------------------------------------------
doTextBlock	jsr  GetInputTextPtr
	lda  InputTextVerb
	and  #textIsMask
;	cmp  #textIsPointer		;this is zero, so don't need to compare
	beq  TranslateInputStyle

	PushZLong TempLong
	jsr  GetHandleSize
	stax InputTextLength	;fall through into translate input style
;---------------------------------------------------------------

;---------------------------------------------------------------
TranslateInputStyle	lda  InputStyleRef
	ora  InputStyleRef+2
	bne  @doIt

	lda  #refIsPointer
	sta  InputStyleVerb
	bra  allDone
@doIt
	lda  InputStyleVerb
;	cmp  #refIsPointer		;since refIsPointer is $0000 we don't
	beq  @doPointer		;..need this
	cmp  #refIsHandle
	beq  @doHandle

@doResource	ldy  #rStyleBlock		;loads the resource into memory. NOTE: we
	ldax InputStyleRef		;..never release this resource
	jsr  LoadResource
	PushAX
	bra  @lockIt

@doHandle	PushZLong InputStyleRef
@lockIt	jsr  LockHandle
	bra  @setPtr

@doPointer	ldax InputStyleRef
@setPtr	stax InputStylePtr
;---------------------------------------------------------------
allDone	ldx  #0
	clc
	rts
;---------------------------------------------------------------



;---------------------------------------------------------------
theTable	dc.w  doPascal
	dc.w  doCString
	dc.w  doC1Input
	dc.w  doC1Output
	dc.w  TranslateTextBox2
	dc.w  doTextBlock
	dc.w  verbError
	dc.w  verbError
;---------------------------------------------------------------

	ENDP

****************************************************************

GetInputTextPtr	PROCNAME  Entry

;---------------------------------------------------------------
	lda  InputTextVerb
	and  #textIsMask
;	cmp  #textIsPointer		;this is zero, so don't need to compare
	beq  @doPointer
	cmp  #textIsHandle
	beq  @doHandle
	cmp  #textIsNewHandle
	beq  verbError

@doResource	lda  InputTextVerb
	jsr  VerbToResourceType	;this returns the type in the Y-Reg
	ldax InputTextRef
	jsr  LoadResource
	bra  @lockIt

@doHandle	ldax InputTextRef
@lockIt	stax TempLong
	PushAX
	jsr  LockHandle
	bra  @setPtr

@doPointer	ldax InputTextRef
@setPtr	stax InputTextPtr
	rts
;---------------------------------------------------------------
verbError	ldx  #teInvalidVerb
	pla		;pull off the return address so we return
	sec		;..one level upwards
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

TranslateTextBox2	PROCNAME  Export

;---------------------------------------------------------------
;	jsr  GetInputTextPtr	;must take out the GetInputTextPtr right
;	lda  InputTextVerb		;..after setupInitialStyle, when this code
;	and  #textIsMask		;..gets uncommented
;	cmp  #textIsPointer		;this is zero, so don't need to compare
;	beq  @skipGetLength
;	PushZLong TempLong
;	jsr  GetHandleSize
;	stax InputTextLength	;fall through into translate input style
@skipGetLength
	lda  InputTextLength+2
	bne  formatError
	lda  InputTextLength
	cmp  #maxTextBox2Size+1
	blt  lengthOK
;---------------------------------------------------------------
formatError	ldx  #teInvalidTextBox2
	sec
	rts
;---------------------------------------------------------------
lengthOK	lda  #TEStyleRecord.RecordSize+4	;get a new handle of the minimum size
	jsr  GetClearHandle
	bcc  @gotTheMemory
	rts
@gotTheMemory	stax InputStyleRef
	PushAX
	jsr  LockHandle
	stax InputStylePtr

	ldy  #TEStyleRecord.rulerListLength
	lda  #TERuler.RecordSize
	sta  [InputStylePtr],y

	ldy  #TEStyleRecord.rulerList.tabType
	lda  #DefaultTabType
	sta  [InputStylePtr],y

	ldy  #TEStyleRecord.rulerList.numberOfTabs
	lda  #DefaultTabValue
	sta  [InputStylePtr],y

	ldy  #TERecord.ViewRect.right
	lda  [RecordPtr],y
	sec
	ldy  #TERecord.ViewRect.left
	sbc  [RecordPtr],y
	ldy  #TEStyleRecord.rulerList.rightMargin
	sta  [InputStylePtr],y

	jsr  GetWindowPortPtr

	ldy  #GrafPort.FontID+2	;re-install the current font, in case
	lda  [TempPtr],y		;..we are using the system font
	pha
	dey
	dey
	lda  [TempPtr],y
	pha
	PushWord #$0000
	PushZPtr TempWord		;push a pointer to the FntStatRec
	_InstallWithStats

	ldy  #GrafPort.FontID	;re-install the current font, in case
	lda  [TempPtr],y		;..we are using the system font
	sta  TempStyle.fontID
	iny
	iny
	lda  [TempPtr],y
	sta  TempStyle.fontID+2

	lda  TempLong+2
	and  #purgeBit
	beq  @skipPurge
	PushZLong TempStyle.fontID
	pei  TempLong+2
	_SetPurgeStat
@skipPurge
	ldy  #GrafPort.FGColor
	lda  [TempPtr],y
	sta  TempStyle.foreColor

	ldy  #GrafPort.BGColor
	lda  [TempPtr],y
	sta  TempStyle.backColor

	stzl TempStyle.userData
;---------------------------------------------------------------
setupInitialStyle	jsr  GetInputTextPtr
	ldy  #0
@loop	lda  [InputTextPtr],y
	and  #$00FF
	cmp  #$01
	bnel doTheText
	iny
	lda  [InputTextPtr],y
	and  #$00FF
	cmp  #'J'
	beq  @doJust
	cmp  #'L'
	beq  @doLeft
	cmp  #'M'
	beq  @doRight
	cmp  #'X'
	beq  @doExtra
	cmp  #'S'
	beq  @doStyle
	cmp  #'C'
	beq  @doForeColor
	cmp  #'B'
	beq  @doBackColor
	cmp  #'F'
	beq  @doFont
@skipChange	iny
@skipWord	iny
	iny
	cpy  InputTextLength
	blt  @loop
	bnel formatError
	brl  noText

@doJust	phy
	iny
	lda  [InputTextPtr],y
	ldy  #TEStyleRecord.rulerList.just
	sta  [InputStylePtr],y
	ply
	bra  @skipChange

@doLeft	phy
	iny
	lda  [InputTextPtr],y
	ldy  #TEStyleRecord.rulerList.leftMargin
	sta  [InputStylePtr],y
	ldy  #TEStyleRecord.rulerList.leftIndent
	sta  [InputStylePtr],y
	ply
	bra  @skipChange

@doRight	phy
	iny
	lda  [InputTextPtr],y
	sta  TempWord
	ldy  #TERecord.ViewRect.right
	lda  [RecordPtr],y
	sec
	sbc  TempWord
	ldy  #TEStyleRecord.rulerList.rightMargin
	sta  [InputStylePtr],y
	ply
	bra  @skipChange

@doExtra	phy
	iny
	lda  [InputTextPtr],y
	ldy  #TEStyleRecord.rulerList.extraLS
	sta  [InputStylePtr],y
	ply
	bra  @skipChange

@doStyle	iny
	shortm
	lda  [InputTextPtr],y
	sta  TempStyle.fontAttr
	longm
	bra  @skipWord

@doForeColor	iny
	lda  [InputTextPtr],y
	sta  TempStyle.foreColor
	bra  @skipWord

@doBackColor	iny
	lda  [InputTextPtr],y
	sta  TempStyle.backColor
	bra  @skipWord

@doFont	iny
	lda  [InputTextPtr],y
	sta  TempStyle.fontID
	iny
	iny
	lda  [InputTextPtr],y
	sta  TempStyle.fontID+2
	bra  @skipWord
;---------------------------------------------------------------
doTheText	sty  FirstTextIndex

	lda  InputTextLength
	sta  MoveLength		;get a new handle that is the total size
	jsr  GetSmallHandle		;..of the text and style (we will cut it
	bcc  @memoryOK		;..down later)

	phx		;save the error code
	ldax InputStyleRef		;kill the style handle
	jsr  KillHandle
	stzl InputStyleRef		;zero out the styles and text
	stzl InputTextRef
	plx		;restore the error code and set the carry
	sec
	rts

@memoryOK	stax NewBufferHandle
	jsr  DerefAX
	decl a
	stax DestPtr

	ldy  #0
	shortm
@loop	lda  [InputTextPtr],y
	iny
	cmp  #$01		;this is the change flag
	beq  @change
	sta  [DestPtr],y
	cpy  InputTextLength
	blt  @loop
	rep  #$20		;back to long mode
	bra  @textDone

@change	ldx  #-4
	lda  [InputTextPtr],y
	cmp  #'F'
	bne  @skipWord
	ldx  #-6
	iny
	iny
@skipWord	iny
	iny
	iny
	longm
	txa
	clc
	adc  DestPtr
	sta  DestPtr
	bcs  @1
	dec  DestPtr+2
@1	shortm
	cpy  InputTextLength
	blt  @loop
	longm		;back to long mode
	bnel formatError
;---------------------------------------------------------------
@textDone	PushZLong NewBufferHandle
	PushZLong NewBufferHandle
	jsr  GetHandleSize
	sec		;add an extra one for the one that we
	adc  DestPtr		;..subtracted earlier to make the ptrs
	sta  DestPtr		;..come out
	txa
	adc  DestPtr+2
	sta  DestPtr+2
	ldy  #2
	lda  DestPtr
	sec
	sbc  [NewBufferHandle]
	pha
	lda  DestPtr+2
	sec
	sbc  [NewBufferHandle],y
	tax
	pla		;this is always smaller, so we don't need
	jsr  SetHandleSize		;..to check for memory errors
;---------------------------------------------------------------
doTheStyles	PushZLong InputStyleRef
	jsr  UnlockHandle

	ldy  #TERecord.StyleList
	jsr  PushRecordLong

	stzl TextStyleOffset

	jsr  GetTerminatedHandle
	ldy  #TERecord.StyleList
	jsr  SetRecordLong
	tdc		;add the first style to the list
	clc
	adc  #TempStyle
	ldx  #0
	jsr  AddToStyleList
;---------------------------------------------------------------
	ldy  FirstTextIndex
mainStyleLoop	stz  NewStyleLength

@loop	lda  [InputTextPtr],y
	and  #$00FF
	cmp  #$01
	beq  @doChange
	inc  NewStyleLength
	iny
	cpy  InputTextLength
	blt  @loop
	brl  @addTheLastOne

@doChange	iny
	lda  [InputTextPtr],y
	and  #$00FF
	cmp  #'S'
	beq  @doStyle
	cmp  #'C'
	beq  @doForeColor
	cmp  #'B'
	beq  @doBackColor
	cmp  #'F'
	beq  @doFont
	iny
@skipWord	iny
	iny
	cpy  InputTextLength
	beq  @addTheLastOne
	blt  @1
	ldy  #TERecord.StyleList
	jsr  PushRecordLong
	jsr  KillHandle
	PullAX
	ldy  #TERecord.StyleList
	jsr  SetRecordLong
	brl  formatError
@1	lda  [InputTextPtr],y
	and  #$00FF
	cmp  #$01
	beq  @doChange
	bra  @addTheStyle

@doStyle	iny
	shortm
	lda  [InputTextPtr],y
	sta  TempStyle.fontAttr
	longm
	bra  @skipWord

@doForeColor	iny
	lda  [InputTextPtr],y
	sta  TempStyle.foreColor
	bra  @skipWord

@doBackColor	iny
	lda  [InputTextPtr],y
	sta  TempStyle.backColor
	bra  @skipWord

@doFont	iny
	lda  [InputTextPtr],y
	sta  TempStyle.fontID
	iny
	iny
	lda  [InputTextPtr],y
	sta  TempStyle.fontID+2
	bra  @skipWord

@addTheStyle	phy		;save the current index
	PushZLong TextStyleOffset
	tdc
	clc
	adc  #TempStyle
	ldx  #0
	jsr  AddToStyleList
	PullAX
	stax TempLong
	ply		;restore the current index
	cmpl TextStyleOffset
	beql @loop

	phy		;save the current index
	jsr  addStyleItem
	ply		;restore the current index
	brl  mainStyleLoop

@addTheLastOne	movl TextStyleOffset,TempLong
	jsr  addStyleItem
;---------------------------------------------------------------
combineTheStyle	ldy  #TERecord.StyleList
	jsr  PushRecordLong
	jsr  PushRecordLong
	jsr  GetHandleSize
	stax TempLong

	PushZLong InputStyleRef
	PushZLong InputStyleRef
	jsr  GetHandleSize
	stax MoveLength
	clc
	adc  TempLong
	pha
	txa
	adc  TempLong+2
	tax
	pla
	jsr  SetHandleSize

	lda  MoveLength
	sec
	sbc  #TEStyleRecord.RecordSize+4
	sta  MoveLength
	bcs  @1
	dec  MoveLength+2
@1	PushZLong InputStyleRef
	jsr  DerefHandle		;use the saved style list handle
	clc
	adc  #TEStyleRecord.RecordSize+4
	bcc  @2
	inx
@2	stax SourcePtr
	addl SourcePtr,TempLong,DestPtr
	jsr  BlockMove

	lda  DestPtr
	sec
	sbc  #4
	sta  DestPtr
	bcs  @3
	dec  DestPtr+2
@3	ldy  #2
	lda  StyleItemCount
	sta  [DestPtr]
	lda  StyleItemCount+2
	sta  [DestPtr],y

	lda  TempLong		;subtract four from the style list length
	sec		;..for the terminator
	sbc  #4
	sta  TempLong
	bcs  @4
	dec  TempLong+2
@4
	movl SourcePtr,DestPtr
	lda  SourcePtr
	sec
	sbc  #4
	sta  SourcePtr
	bcs  @5
	dec  SourcePtr+2
@5	ldy  #2
	lda  TempLong
	sta  MoveLength
	sta  [SourcePtr]
	lda  TempLong+2
	sta  MoveLength+2
	sta  [SourcePtr],y
	jsr  DerefHandle
	stax SourcePtr
	jsr  BlockMove

	ldy  #TERecord.StyleList
	jsr  GetRecordLong
	jsr  KillHandle
	PullAX
	ldy  #TERecord.StyleList
	jsr  SetRecordLong

	PushZLong InputStyleRef
	jsr  LockHandle
	stax InputStylePtr

	jsr  ReleaseTextVerb

	lda  #textIsHandle+dataIsTextBox2
	sta  InputTextVerb
	ldax NewBufferHandle
	stax InputTextRef
	PushAX
	PushAX
	jsr  GetHandleSize
	stax InputTextLength
	jsr  LockHandle
	stax InputTextPtr

	clc
	rts
;---------------------------------------------------------------
noText	PushZLong InputStyleRef
	jsr  UnlockHandle

	PushZLong InputStyleRef
	ldax #TEStyleRecord.RecordSize+4+TEStyle.RecordSize+4+8
	jsr  SetHandleSize

	PushZLong InputStyleRef
	jsr  LockHandle
	stax InputStylePtr

	ldy  #TEStyleRecord.RecordSize
	lda  #TEStyle.RecordSize
	sta  [InputStylePtr],y
	iny
	iny
	lda  #0
	sta  [InputStylePtr],y
	iny
	iny
	ldx  #0
@noTextLoop1	lda  TempStyle,x
	sta  [InputStylePtr],y
	iny
	iny
	inx
	inx
	cpx  #TEStyle.RecordSize
	blt  @noTextLoop1

	lda  #1
	sta  [InputStylePtr],y
	iny
	iny
	dec  a
	ldx  #5
@noTextLoop2	sta  [InputStylePtr],y
	iny
	iny
	dex
	bne  @noTextLoop2

	jsr  ReleaseTextVerb

	lda  #textIsHandle+dataIsTextBox2
	sta  InputTextVerb
	lda  #1
	jsr  GetSmallHandle
	stax InputTextRef
	stzl InputTextLength

	clc
	rts
;---------------------------------------------------------------



;---------------------------------------------------------------
addStyleItem	incl StyleItemCount
	PushZLong InputStyleRef
	PushZLong InputStyleRef
	PushZLong InputStyleRef
	jsr  GetHandleSize
	stax MoveLength
	clc
	adc  #SuperItemSize
	bcc  @1
	inx
@1	jsr  SetHandleSize
	jsr  DerefHandle
	clc
	adc  MoveLength
	sta  TempPtr
	txa
	adc  MoveLength+2
	sta  TempPtr+2
	ldy  #2
	lda  NewStyleLength
	sta  [TempPtr]
	lda  #0
	sta  [TempPtr],y
	iny
	iny
	lda  TempLong
	sta  [TempPtr],y
	iny
	iny
	lda  TempLong+2
	sta  [TempPtr],y
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

ReleaseInputVerbs	PROCNAME  Export

;---------------------------------------------------------------
	lda  InputTextVerb		;unlock the passed text handle
	and  #dataIsMask
	cmp  #dataIsTextBox2
	bne  @notTextBox2

	ldax InputTextRef
	jsr  KillHandle
	ldax InputStyleRef
	brl  KillHandle

@notTextBox2	jsr  ReleaseTextVerb
;---------------------------------------------------------------
	lda  InputStyleVerb
;	cmp  #refIsPointer		;since refIsPointer is $0000 we don't
	beq  @exit		;..need this
	cmp  #refIsHandle
	beq  @doHandle

@doResource	ldy  #rStyleBlock		;get the handle to the resource again
	ldax InputStyleRef
	jsr  LoadResource
	PushAX
	bra  @unlockIt

@doHandle	PushZLong InputStyleRef
@unlockIt	jsr  UnlockHandle

@exit	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

ReleaseTextVerb	PROCNAME  Export

;---------------------------------------------------------------
	lda  InputTextVerb		;unlock the passed text handle
	and  #textIsMask
;	cmp  #textIsPointer		;this is zero, so don't need to compare
	beq  done
	cmp  #textIsHandle
	beq  @doHandle

@doResource	lda  InputTextVerb
	jsr  VerbToResourceType	;this returns the type in the Y-Reg
	ldax InputTextRef
	jsr  LoadResource
	PushAX
	bra  @unlockIt

@doHandle	PushZLong InputTextRef
@unlockIt	jsr  UnlockHandle

done	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

Text1Proc	PROC

;---------------------------------------------------------------
	EXPORT RemoveText
	EXPORT ReplaceText
;---------------------------------------------------------------

;---------------------------------------------------------------
RemoveText	stzl InputTextLength
	stzl InputStyleRef
;---------------------------------------------------------------
ReplaceText	jsr  GetTEHighFlags		;check to see if the record is editable
	and  #fReadOnly		;..or not
	bne  @exit

	jsr  GetSelectionLength	;check to see if the record has exceded its
	jsr  GetTextLength		;..bounds
	clc
	adc  InputTextLength
	sta  TempLong
	txa
	adc  InputTextLength+2
	sta  TempLong+2
	subl TempLong,SelectionLength,TempLong
	ldy  #TERecord.MaximumChars
	jsr  GetRecordLong
	cmpl TempLong
	bge  doIt

@exit	clc
	rts
;---------------------------------------------------------------
doIt	jsr  TakeCareOfUpdate	;make sure any update event is handled first
	jsr  SetDirtyFlag
	jsr  ClearSavedHPos

	jsr  CenterTheSelection	;make sure the selection is on the screen
	jsr  UnhilightSelection	;remove the selection hilighting

	jsr  GetViewRect		;assume we are going to draw the entire 
	jsr  CopyTempToDrawRect	;..viewRect

	jsr  ReplaceBlocks
	bcs  memoryError

 	jsr  ReplaceStyles
	bcs  @skipRewrap

	jsr  ReplaceLines		;this routine will never generate any errors

	jsr  IncrementalWordWrap
@skipRewrap
	jsr  GetSelectionStart	;set the selection just past what we inserted
	addl TextOffset,InputTextLength,TextOffset
	jsr  SetSelectionStart
	jsr  SetSelectionEnd

	lda  DrawRect.top
	cmp  DrawRect.bottom
	beq  @skipDraw

	jsr  DoDraw
@skipDraw
	jsr  HilightSelection

	ldy  #TERecord.SelectionStart
	jsr  ScrollToSelection

	ldx  #0
	clc
	rts
;---------------------------------------------------------------
memoryError	phx
	jsr  HilightSelection
	plx
	brl  SetLastErrorCode	;report the last error
;---------------------------------------------------------------

	ENDP

****************************************************************

ReplaceBlocks	PROCNAME  Export

;---------------------------------------------------------------
;
; 4/24/90	Mensch
; Added this blockendkludgeflag stuff so that I could fix the block break
; bug in a reasonable manner.
;
; brk 0
	lda #0
	sta >BlockEndKludgeFlag

	jsr  GetSelectionStart	;move to the current selection start
	jsr  FindBlockInfo

	subl TextOffset,BlockStart,SourcePtr	;SourcePtr is the index of TextOffset
	subl BlockLength,SourcePtr,MoveLength	;MoveLength is the number of bytes left
	jsr  GetSelectionLength	;..in the block
	PushAX		;save the selection length on the stack
	cpx  MoveLength+2		;if the selection length is greater than
	blt  @1		;..the number of bytes left in the block
	bne  removeBlocks		;..then goto removeBlocks. Otherwise
	cmp  MoveLength		;..branch to insideBlock
	beq  @1
	bge  removeBlocks
@1	brl  insideBlock
;---------------------------------------------------------------
removeBlocks	
	subl SelectionLength,MoveLength,SelectionLength
	movl SourcePtr,BlockLength
	jsr  SetBlockSize		;the block is getting smaller, so no errors
	PushZLong BlockHandle	;save the original block handle
;
; 8/9/90	Mensch
; Moved this fix here to always cause a join after this operation is completed. This should take care
; of more block list bugs.
  	lda #$FFF1
	sta >BlockEndKludgeFlag
	ldax BlockHandle
	sta  >BlockEndKludgeBlock
	txa
	sta  >BlockEndKludgeBlock+2
; 8/9/90 END

	jsr  BlockHandleToPtr
	jsr  MoveToNextBlock

@loop	ldy  #TextBlock.textLength
	lda  SelectionLength	; subtract length of current block
	sec		; from the length of our deletion
	sbc  [TempPtr],y
	tax
	iny
	iny
	lda  SelectionLength+2	; if this value turns up negative then
	sbc  [TempPtr],y		; we must stop since the selection
	bmi  @done		; ends in this block!
	stx  SelectionLength
	sta  SelectionLength+2
	PushZLong BlockHandle
	jsr  MoveToNextBlock
	PullAX
	php		;save the state of the carry
	jsr  KillHandle
	jsr  BlockHandleToPtr
	plp
	bcc  @loop

	pla
	sta  BlockHandle
	pla
	sta  BlockHandle+2
	jsr  BlockHandleToPtr
	ldy  #TextBlock.nextHandle
	lda  #0
	sta  [TempPtr],y
	iny
	iny
	sta  [TempPtr],y

;###############################################################
;# This was added 1/5/89 by DDG
;###############################################################
	lda  InputTextLength	;check for there being no insertion of
	ora  InputTextLength+2	;..text. If that's so, then we are done,
	beql allDone		;.. so exit.

	ldy  #TextBlock.textLength	;load the latest block length from the
	lda  [TempPtr],y		;..current block into BlockLength
	sta  BlockLength
	iny
	iny
	lda  [TempPtr],y
	sta  BlockLength+2
	stzl MoveLength		;indicate that there are no bytes left in
	lda  #0		;..the block. Then load the selection
	tax		;..length (always zero) and jump to
	brl  insideBlock		;..insideBlock to do the insert.
;###############################################################
;# End of the 1/5/89 addition.
;###############################################################
;
; The following code is executed when the remove is across super blocks and 
; the selection ends in the middle of the super block list
;
; NOTE: On entry BlockHandle contains the selection end super block
; and the top of the stack has the new previos super block. And TempPtr points to
; the selection end super block..
;
@done	movl BlockHandle,TempLong
	ldy  #TextBlock.prevHandle
	pla
	sta  BlockHandle
	sta  [TempPtr],y
	iny
	iny
	pla
	sta  BlockHandle+2
	sta  [TempPtr],y
	jsr  BlockHandleToPtr
	ldy  #TextBlock.nextHandle
	lda  TempLong
	sta  BlockHandle
	sta  [TempPtr],y
	iny
	iny
	lda  TempLong+2
	sta  BlockHandle+2
	sta  [TempPtr],y

;###############################################################
;# This was added 8/27/89 by DDG
;###############################################################
	ldy  #TextBlock.textLength+2	;check the length of the first block we
	lda  [TempPtr],y		;..deleted. If it not zero, then skip the
	tax		; save this in the high word for now..
	dey		;..cleanup.
	dey
	ora  [TempPtr],y
	beq  @ThisBlockZero		; length of this block is zero so leave it alone
;
; 8/9/90	MENSCH
; DUE TO ANOTHER BUG WHICH CAUSED ME TO HAVE TO USE FLAG $FFF0 HERE INSTEAD OF $FFFF I HAVE DECIDED
; TO REMOVE THE TEST FOR SPLIT FROM THIS SEGMENT ALL TOGETHER, INSTEAD I NOW WILL SIMPLY ALWAYS
; CAUSE THE SUPER BLOCK THAT CONTAINS SELECTION START TO JOIN, MOVING A PORTION OF THIS CODE ABOVE
; AND SIMPLY NOT USING THE REST.
;
; 4/17/90	Mensch
; Code added here to fix the situation when the removed text will create a super block that
; does not have a carrige return at its end, This should fix a number of display and crashing
; problems associated with cutting across super blocks.. Note that tempPtr contains a pointer
; to the selstart block and block handle contains the handle of the next block.
;
; First and formost, test to see if this block ends in a carrige return
;	lda [tempPtr],y
;	sta tempLong
;	stx tempLong+2
;	addl tempLong,tempPtr,tempPtr	; make tempptr point to the last character in this block
;	lda  #TextBlock.textStart-1	; off by one to get last character
;	addl tempPtr
;	lda [tempPtr]
;	and #$00FF
;	cmp #$0D		; is it a carrige return?
;	beq  @SkipCleanup		; it sure is, must not be a problem!

;  	lda #$FFF0
;	sta >BlockEndKludgeFlag
; 8/9/90	Mensch
; REMOVED SAME DAY! THIS FIX NOT NEEDED HERE YET, BUT I LEAVE THE CODE FOR YOU TO USE IN CASE
; YOU DECIDE THAT YOU NEED IT LATER!
; 8/9/90	Mensch Re-ADDED SAME DAY! Found a case where we need to cache the super block
; here as well!
; Due to the nature of the block end kludge fix, this routine will now save the handle to the block
; that needs joining, thus avoid confusion and squash several bugs!
;	ldax BlockHandle
;	sta  >BlockEndKludgeBlock
;	txa
;	sta  >BlockEndKludgeBlock+2

	bra  @SkipCleanup
@ThisBlockZero
; 8/15/90	Mensch
; Simply adding a comment here to describe what this routine does.
; This routine is called when the block containing the selection start ends up with a zero length
; this routine will remove it from our block list. 
	ldy  #TERecord.BlockList.cachedHandle	;we are going to kill the cached block
	lda  BlockHandle		;..handle. Therefore we must fix the cache.
	sta  [RecordPtr],y		;..Since the length of the block we are
	iny		;..destroying is zero, we should set the
	iny		;..cache to the handle after the empty one
	lda  BlockHandle+2		;..which happens to be stored in BlockHandle
	sta  [RecordPtr],y

	ldy  #TextBlock.prevHandle	;save the handle just before the empty
	lda  [TempPtr],y		;..one in TempLong.
	sta  TempLong
	iny
	iny
	lda  [TempPtr],y
	sta  TempLong+2

	jsr  BlockHandleToPtr	;BlockHandle "points" to the block just
	ldy  #TextBlock.prevHandle+2	;..after the empty one. Deref BlockHandle
	lda  [TempPtr],y		;..into TempPtr and using the prevHandle
	tax		;..field, kill the empty block.
	dey
	dey
	lda  [TempPtr],y
	jsr  KillHandle
;
; 8/15/90	Mensch
; NOTE, since this routine is called after multi block delete and the BlockEndKludgeBlock would then
; be set to the block that I just deleted (It is the first block in the selection) I must now turn off
; the block end kludge flag because joining now would be very bad!
	lda  #$0000
	sta  >BlockEndKludgeFlag	; zero flag, no need to join a deleted block

	ldy  #TextBlock.prevHandle	;link the "before" block to the "after"
	lda  TempLong		;..block in the prevHandle field.
	sta  [TempPtr],y
	iny
	iny
	lda  TempLong+2
	sta  [TempPtr],y
	ora  TempLong		;if there is no "before" block, then skip
	beq  @skipCleanup		;..setting it's link field.

	Deref TempLong,TempPtr	;link the next field of the "before" block
	ldy  #TextBlock.nextHandle	;..to the "after" block.
	lda  BlockHandle
	sta  [TempPtr],y
	iny
	iny
	lda  BlockHandle+2
	sta  [TempPtr],y
@skipCleanup
;###############################################################
;# End of the 8/27/89 addition.
;###############################################################

;###############################################################
;# This was added 1/5/89 by DDG
;###############################################################
	jsr  BlockHandleToPtr

	ldy  #TextBlock.textLength	;copy the latest block length into
	lda  [TempPtr],y		;..BlockLength
	sta  BlockLength
	iny
	iny
	lda  [TempPtr],y
	sta  BlockLength+2
;###############################################################
;# End of the 1/5/89 addition.
;###############################################################

	stzl SourcePtr
	movl BlockLength,MoveLength
	ldax SelectionLength
;---------------------------------------------------------------
insideBlock	cpx  InputTextLength+2
	blt  @expandIt
	bne  @crunchIt
	cmp  InputTextLength
	blt  @expandIt
	bne  @crunchIt
	movl SourcePtr,DestPtr
	brl  @derefIt

@expandIt	jsr  subSelcLength
	addl SourcePtr,TempLong,DestPtr
	jsr  addTempLong
	jsr  SetBlockSize
	bcsl exit
	jsr  setupSrcAndDest
	jsr  BlockMove
	movl SourcePtr,DestPtr
	brl  @moveIt

@crunchIt	jsr  subSelcLength
	addl SourcePtr,InputTextLength,DestPtr
	subl DestPtr,TempLong,SourcePtr
	subl BlockLength,SourcePtr,MoveLength
	jsr  setupSrcAndDest
	jsr  BlockMove
	jsr  addTempLong
	jsr  SetBlockSize		;the block is getting smaller, so no errors
;
; 8/14/90-03	Mensch
; seems to be a bug here! Later in this routine I found a problem where when text was being removed
; from across various super blocks that this inside routine didn't seem to be setting up the destPtr
; properly. I believe that this is due to the fact that at this moment in time BlockStart is still
; set for the first block in the selection. What I propose to do instead is to ignore block start
; at this time if the kludge flag is set to $FFF1 (indicating multiblock remove) and to simply
; zero out the dest Ptr. This should fix them bugs!

	lda  >BlockEndKludgeFlag
	cmp  #$FFF1
	bne  @OK081490
	stzL DestPtr
	bra  @Skip081490
@ok081490	subl TextOffset,BlockStart,DestPtr

;
; 8/8/90	Mensch 	Enabled 7/31/90
; Fix bug here where the final carrige return of a block is deleted while deleting
; inside of a block (sheesh!) This should test the end of the text block and determine if
; we have no CR at the end.. If we don't then we set the BlockEndKludgeFlag so that this
; block will get joined to the next one (I could kill dave for this!)
; 4/17/90	Mensch
; Code added here to fix the situation when the removed text will create a super block that
; does not have a carrige return at its end, This should fix a number of display and crashing
; problems associated with cutting across super blocks.. Note that tempPtr contains a pointer
; to the selstart block and block handle contains the handle of the next block.;
; First and formost, test to see if this block ends in a carrige return
;
; 8/14/90	Mensch
; OOOps, new block end kludge above conflicts with this test right here! If the current block
; happens to be the last one in the list and not end in a return we have a problem (Prior cached
; block will be forgoten!). Instead since we know that if we saved that last block already then
; we also know that we are deleting over supers and that this block happens to be the selection
; end block. Hence, we can't hurt it any more than it is, so no need to test here!
; so, add kludge flag test.
	lda  >BlockEndKludgeFlag
	cmp  #$FFF1		; is this set from removeBlocks?
	beq  @derefIt		; if so we don't need to test here!
; FUTURE NOTE: No time to get it tested for 5.0.3 but Why not test the recordPtr.nextblock field
; to see if this is the last super, if it is, forget the rest of the tests since it will quite often
; require joining! and this might pick up some lost speed
	ldy  #TextBlock.textLength+2	;check the length of the first block we
	lda  [TempPtr],y		;..deleted. If it not zero, then skip the
	tax		; save this in the high word for now..
	dey		;..cleanup.
	dey
	lda [tempPtr],y
	sta tempLong
	stx tempLong+2
	addl tempLong,tempPtr,tempPtr	; make tempptr point to the last character in this block
	lda  #TextBlock.textStart-1	; off by one to get last character
	addl tempPtr
	lda [tempPtr]
	and #$00FF
	cmp #$0D		; is it a carrige return?
	beq  @derefIt		; it sure is, must not be a problem!
  	lda #$FFF0
	sta >BlockEndKludgeFlag
;
; 8/9/90	Mensch
; Due to the nature of the block end kludge fix, this routine will now save the handle to the block
; that needs joining, thus avoid confusion and squash several bugs!
	ldax BlockHandle
	sta  >BlockEndKludgeBlock
	txa
	sta  >BlockEndKludgeBlock+2

;
; 8/14/90-03	Mensch
; HEY! Something is wrong with sourcePtr and Dest ptr here when falling into the inside block routine
; from removeBlocks! SourcePtr already seems to be set up and dest ptr seems to be set wrong!
; of course, we don't really need sourceptr, but dest ptr might be a nice thing to have setup!
; REFER TO ABOVE FIX #8/14/90-03
@Skip081490
@derefIt	jsr  setupSrcAndDest	;we don't really need the SourcePtr

@moveIt	lda  InputTextLength	;check for nothing to insert
	ora  InputTextLength+2
	beq  allDone
	movl InputTextPtr,SourcePtr
	movl InputTextLength,MoveLength
	jsr  QuickMove
;---------------------------------------------------------------
allDone	lda  InputTextLength
	sec
	sbc  1,s
	tax
	lda  InputTextLength+2
	sbc  3,s
	sta  TempLong
	txa
	ldy  #TERecord.TextLength
	clc
	adc  [RecordPtr],y
	sta  [RecordPtr],y
	iny
	iny
	lda  TempLong
	adc  [RecordPtr],y
	sta  [RecordPtr],y
;
; 4/24/90	Mensch
; Added this kludge here to clean un the block list if the flag is set telling us
; that we have screwed up the block list somehow.
;
	clc
	lda >BlockEndKludgeFlag
	beq Exit
	inc  a	; determine if the flag <>$FFFF
	bne  @DoKludgeBlock	; if not, then join from the saved block handle
	jsr  BlockHandleToPtr
	jsr  MoveToPrevBlock	; set the current block as the broken one
	bra  @DoJoin
@DoKludgeBlock	lda  >BlockEndKludgeBlock+2
	tax
	lda  >BlockEndKludgeBlock
	stax BlockHandle		; use the saved handle
	jsr  BlockHandleToPtr	; and be sure to set a pointer to it
@DoJoin	jsr  joinTheBlock
	clc
exit	pla		;cleanup the stack
	pla
	rts
;---------------------------------------------------------------
BlockEndKludgeFlag	ds.W 1	; tell whether the blocks need joining..
BlockEndKludgeBlock	ds.L 1	; if Flag<>$FFFF then Join this block

;---------------------------------------------------------------
subSelcLength	subl InputTextLength,SelectionLength,TempLong
	rts
;---------------------------------------------------------------
addTempLong	addl BlockLength,TempLong,BlockLength
	rts
;---------------------------------------------------------------



;---------------------------------------------------------------
setupSrcAndDest	ldy  #2
	lda  [BlockHandle]
	clc
	adc  #TextBlock.textStart
	sta  TempWord
	lda  [BlockHandle],y
	adc  #0
	tax
	lda  SourcePtr
	clc
	adc  TempWord
	sta  SourcePtr
	txa
	adc  SourcePtr+2
	sta  SourcePtr+2
	lda  DestPtr
	clc
	adc  TempWord
	sta  DestPtr
	txa
	adc  DestPtr+2
	sta  DestPtr+2
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

ReplaceStyles	PROCNAME  Export

;---------------------------------------------------------------
	jsr  GetTEHighFlags		;if the record is single style, then don't
	and  #fSingleStyle		;..set the null style
	bne  skipNull

	jsr  IsTheSelectionACaret
	beq  skipNull
;---------------------------------------------------------------
	jsr  FindStyleInfo		;get the current style
	jsr  SetupStylePtr
	ldy  #TERecord.NullStyle
	ldx  #0
@loop	phy
	txy
	lda  [TempPtr],y
	ply
	sta  [RecordPtr],y
	iny
	iny
	inx
	inx
	cpx  #TEStyle.RecordSize
	blt  @loop
	ldy  #TERecord.NullStyleActive
	lda  #$FFFF
	sta  [RecordPtr],y
;---------------------------------------------------------------
skipNull	ldy  #TERecord.StyleSuper	;remove the style super items
	jsr  RemoveSuperSelection

	jsr  GetSelectionStart
	ldy  #TERecord.StyleSuper
	jsr  FindSuperInfo
	lda  TextOffset
	cmp  SuperStart
	bne  @notAtStart
	lda  TextOffset+2
	cmp  SuperStart+2
	bne  @notAtStart
	ora  TextOffset
	beq  @notAtStart

	decl TextOffset
	ldy  #TERecord.StyleSuper
	jsr  FindSuperInfo
	incl TextOffset

@notAtStart	dey
	dey
	dey
	dey
	jsr  AddInputToTempPtr
	ldy  #SuperBlock.textLength
	jsr  AddInputToTempPtr

	jsr  GetTEHighFlags		;if the record is single style, then clear
	and  #fSingleStyle		;..the null style and exit
	bne  @clearNull

	lda  InputStyleRef
	ora  InputStyleRef+2
	bne  doStyles

	lda  InputTextLength
	ora  InputTextLength+2
	beq  exit

	ldy  #TERecord.NullStyleActive
	lda  [RecordPtr],y
	bmi  useNullStyle
	clc
@clearNull	brl  ClearNullStyle		;after an edit then clear the null style
;---------------------------------------------------------------
useNullStyle	movl InputTextLength,SuperLength
	ldax RecordPtr
	clc
	adc  #TERecord.NullStyle
	bcc  @1
	inx
@1	jsr  AddToStyleList
	bcs  memoryError
	jsr  ChangeStyleItem	;this updates TextOffset also.
	bcs  memoryError
	brl  ClearNullStyle		;after an edit then clear the null style
;---------------------------------------------------------------
exit	clc
	rts
;---------------------------------------------------------------
memoryError	jsr  SetLastErrorCode	;report the last error
	brl  ClearNullStyle		;the carry remains set here
;---------------------------------------------------------------
doStyles	lda  [InputStylePtr]	;check the style record version. NOTE: on
	cmp  #StyleRecordVersion	;..a version error, we just ignore this
	bne  exit		;..style information.

	ldy  #4		;get the length of the ruler list
	lda  [InputStylePtr],y
	tax
	dey
	dey
	lda  [InputStylePtr],y
	clc		;add four bytes for the length itself and
	adc  #6		;..two byte for the version number
	bcc  @1
	inx
	clc
@1	adc  InputStylePtr		;add to the input style pointer to skip
	sta  InputStylePtr		;..over the ruler list
	sta  StyleListPtr		;save another copy in style list pointer
	txa
	adc  InputStylePtr+2
	sta  InputStylePtr+2
	sta  StyleListPtr+2

	lda  #4		;move the style list pointer over the
	addl StyleListPtr		;..style list length

	ldy  #2		;skip over the style list
	lda  [InputStylePtr],y
	tax
	lda  [InputStylePtr]
	clc
	adc  #4
	bcc  @2
	inx
	clc
@2	adc  InputStylePtr
	sta  InputStylePtr
	txa
	adc  InputStylePtr+2
	sta  InputStylePtr+2

	lda  [InputStylePtr]	;get the number of items in the style
	sta  StyleItemCount		;..super array
	lda  [InputStylePtr],y	;Y-Reg is already two
	sta  StyleItemCount+2
	lda  #4
	addl InputStylePtr
;---------------------------------------------------------------
styleLoop	lda  StyleItemCount
	ora  StyleItemCount+2
	beq  done

	ldy  #2
	lda  [InputStylePtr]
	sta  SuperLength
	lda  [InputStylePtr],y
	sta  SuperLength+2
	iny
	iny
	lda  [InputStylePtr],y
	clc
	adc  StyleListPtr
	pha
	iny
	iny
	lda  [InputStylePtr],y
	adc  StyleListPtr+2
	tax
	pla
	jsr  AddToStyleList
	bcsl memoryError

	jsr  ChangeStyleItem	;this updates TextOffset also.
	bcsl memoryError

	lda  #SuperItemSize
	addl InputStylePtr
	decl StyleItemCount
	bra  styleLoop
;---------------------------------------------------------------
done	clc
	brl  ClearNullStyle		;after an edit then clear the null style
;---------------------------------------------------------------

	ENDP

****************************************************************

ReplaceLines	PROCNAME  Export

;---------------------------------------------------------------
	ENTRY  AddInputToTempPtr
;---------------------------------------------------------------

;---------------------------------------------------------------
	jsr  RemoveLineStarts	;this leaves TextOffset set to SelcStart

	ldy  #TERecord.LineSuper
	jsr  FindSuperInfo
	dey
	dey
	dey
	dey
	lda  InputTextLength
	ora  InputTextLength+2
	beq  checkForZero
	jsr  AddInputToTempPtr

	ldy  #SuperBlock.textLength
;---------------------------------------------------------------
AddInputToTempPtr	lda  [TempPtr],y
	clc
	adc  InputTextLength
	sta  [TempPtr],y
	iny
	iny
	lda  [TempPtr],y
	adc  InputTextLength+2
	sta  [TempPtr],y
	rts
;---------------------------------------------------------------
checkForZero	lda  [TempPtr],y
	bne  @exit
	iny
	iny
	lda  [TempPtr],y
	bne  @exit
	cpy  #SuperBlock.RecordSize+2	;see if we are the first item in the block
	bne  @clear		;..if not, then clear it
	jsr  MovetoPrevHandle	;if there is no previous handle, then we
	bcs  @exit		;..are on the first item, so DON'T clear it
	jsr  MoveToNextHandle
	ldy  #SuperBlock.RecordSize+2
@clear	iny		;get the height of the item we are
	iny		;..deleting
	lda  [TempPtr],y		;add this height to the removed height
	addl RemovedHeight
	dey		;move the index back to the high word
	dey
	lda  #$FFFF		;this makes A-Reg minus one
	sta  [TempPtr],y
	dey
	dey
	sta  [TempPtr],y
@exit	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

RemoveLineStarts	PROCNAME  Entry

;---------------------------------------------------------------
	stzl RemovedHeight		;start with removing zero pixels

	jsr  GetSelectionLength	;get the selection length and test to
	bne  doIt		;..see if there is a selection. If there
	rts		;..isn't then exit
;---------------------------------------------------------------
doIt	ldy  #TERecord.LineSuper	;find the line info for the selection
	jsr  FindSuperInfo		;..start

	jsr  GetSuperMaxIndex	;get the size of each super handle
	ldy  #SuperHandle.cachedIndex	;start at the high word of the current
	lda  [SuperRecordPtr],y	;..index into the line starts. Put this
	inc  a		;..in both Y-Reg and TempWord
	inc  a
	sta  TempWord
	tay

	lda  TextOffset		;check to see if we are starting on the
	cmp  SuperStart		;..first item
	bne  @notAtStart
	lda  TextOffset+2
	cmp  SuperStart+2
	bne  @notAtStart

	ldax SelectionLength	;check to see if the selection is contained
	cpx  SuperLength+2		;..by the current line. If it is, then
	blt  @adjustAndExit		;..adjust the line length and exit.
	bne  itemLoop
	cmp  SuperLength
	bge  itemLoop

@adjustAndExit	stax SuperLength		;the line length gets adjusted by SuperLength
	brl  subtractFromItem

@notAtStart	jsr  GetLongSuperCount	;we aren't at the start so find out how
	stax SuperLength		;..many chars are left on the line and
	jsr  adjustSelection	;..subtract that from the selection length
	bcs  @keepGoing		;If there is more selection, then keep going

	addl SuperLength,SelectionLength,SuperLength
	brl  subtractFromItem	;we are wholly contained, so exit here

@keepGoing	jsr  subtractFromItem
	bra  nextItem
;---------------------------------------------------------------
itemLoop	sty  TempWord		;use TempWord to store our index
	lda  [TempPtr],y		;is the current item deleted ? If so, then
	bmi  nextItem		;..skip it.

	sta  SuperLength+2		;store the high word of the length and
	lda  #$FFFF		;..then delete this item
	sta  [TempPtr],y
	dey
	dey
	lda  [TempPtr],y		;store the low word of the length
	sta  SuperLength
	lda  #$FFFF
	sta  [TempPtr],y
	iny
	iny
	iny
	iny
	lda  [TempPtr],y		;add the current line height to Removed
	sta  LineHeight		;..Height. Also cache the last used line
	addl RemovedHeight		;..height
	jsr  SubLengthFromBlock	;subtract the length we just removed from
	jsr  adjustSelection	;..the cached length
	bcc  lastItem		;If there is no more selection, then we're done

nextItem	lda  TempWord		;move to the next item
	clc
	adc  #SuperItemSize
	tay
	cpy  SuperMaxIndex
	blt  itemLoop

	jsr  MoveToNextHandle	;move to the next handle and start at the
	ldy  #SuperBlock.RecordSize+2	;..beginning of it. If we are not on the
	bcc  itemLoop		;..last handle, then loop back
;---------------------------------------------------------------
	bra  lastitem
	jsr  MoveToFirstSuperHandle	;we are really at the end here, so check
	ldy  #SuperBlock.RecordSize+2	;..to see if we removed the first item.
	lda  [TempPtr],y
	bpl  removeHandles
	iny		;If we did, then set the length to zero
	iny		;..as the first item CANNOT be deleted.
	lda  RemovedHeight		;..Also subtract the first line's length
	sec		;..back from the removed height to make
	sbc  [TempPtr],y		;..it consistant
	sta  RemovedHeight
	bcs  @1
	dec  Removedheight+2
@1	dey
	dey
	lda  #0
	sta  [TempPtr],y
	dey
	dey
	sta  [TempPtr],y
	bra  removeHandles
;---------------------------------------------------------------
lastItem	jsr  GetSuperCachedPtr	;go back to the item we started on
	ldy  #SuperHandle.cachedIndex
	lda  [SuperRecordPtr],y
	tax		;save the index to the low word in X-Reg
	inc  a
	inc  a
	tay		;save the index to the high word in Y-Reg
	lda  [TempPtr],y		;if the item is not deleted, then just
	bpl  @notDeleted		;..add the remaining length

	lda  RemovedHeight		;the first item was deleted, so the
	sec		;..RemovedHeight is too big. Subtract
	sbc  LineHeight		;..the height of the line we last added
	sta  RemovedHeight		;..from removed height to get back the
	bcs  @1		;..correct amount
	dec  RemovedHeight+2
@1	lda  #0
	sta  [TempPtr],y
	iny		;set the line height of the original line
	iny		;..to the line we are concatinating
	lda  LineHeight
	sta  [TempPtr],y
	txy
	lda  #0
	sta  [TempPtr],y
@notDeleted
	txy		;add the remaining length to the original
	lda  [TempPtr],y		;..line. SelectionLength is the negative
	sec		;..of the remaining length
	sbc  SelectionLength
	sta  [TempPtr],y
	iny
	iny
	lda  [TempPtr],y
	sbc  SelectionLength+2
	sta  [TempPtr],y

	movl SelectionLength,SuperLength	;adjust the cache by the correct amount
	jsr  SubLengthFromBlock
;---------------------------------------------------------------
removeHandles	jsr  GetSuperCachedPtr	;start with the handle that contains
	jsr  MoveToNextHandle	;..selection start. If there are no more
	bcs  @exit		;..handles, then exit

@loop	ldy  #SuperBlock.textLength	;as long as we are finding handles with
	lda  [TempPtr],y		;..no text, then we keep killing. As soon
	iny		;..as we find a handle that contains text
	iny		;..we are done
	ora  [TempPtr],y
	bne  @done
	movl TheSuperHandle,TempLong
	jsr  MoveToNextHandle
	php
	ldax TempLong
	jsr  KillHandle
	plp
	bcc  @loop		;if we are at the very end, then zero out
	stzl TheSuperHandle		;..the super handle to update the list rightt

@done	PushZLong TheSuperHandle	;save the handle we stopped on
	jsr  GetSuperCachedPtr	;switch back to the first handle and set
	ldy  #SuperBlock.nextHandle	;..the next field to the handle we
	pla		;..stopped on.
	sta  [TempPtr],y
	sta  TempLong		;save the handle we stopped on in TempLong
	iny
	iny
	pla
	sta  [TempPtr],y
	sta  TempLong+2
	ora  TempLong		;if the handle we stopped on is NULL, then
	beq  @exit		;..don't update it's previous field
	Deref TempLong,TempPtr	;make TempPtr point to the handle we
	ldy  #SuperBlock.prevHandle	;..stopped on.
	lda  TheSuperHandle		;set the previous handle field to the
	sta  [TempPtr],y		;..last valid handle
	iny
	iny
	lda  TheSuperHandle+2
	sta  [TempPtr],y
	jsr  SuperHandleToPtr	;make TempPtr point to the cached super
@exit	rts		;..handle again
;---------------------------------------------------------------



;---------------------------------------------------------------
adjustSelection	lda  SelectionLength
	sec
	sbc  SuperLength
	sta  SelectionLength
	lda  SelectionLength+2
	sbc  SuperLength+2
	sta  SelectionLength+2
	rts		;carry is clear if we are done
;---------------------------------------------------------------



;---------------------------------------------------------------
subtractFromItem	ldy  TempWord
	dey
	dey
	lda  [TempPtr],y
	sec
	sbc  SuperLength
	sta  [TempPtr],y
	iny
	iny
	lda  [TempPtr],y
	sbc  SuperLength+2
	sta  [TempPtr],y
	brl  SubLengthFromBlock
;---------------------------------------------------------------

	ENDP

****************************************************************

IsItAWordWrap	PROCNAME  Export

;---------------------------------------------------------------
	and  #$00FF
	pha
	ldy  #TERecord.WordWrapHook+1
	lda  [RecordPtr],y
	beq  noHook
;---------------------------------------------------------------
useHook	tax
	PushZLong RecordHandle
	lda  5,s		;one word is space for result and the
	pha		;..other one is the passed character
	dey
	lda  [RecordPtr],y
	jsl  LongCall
	pla
	beq  notWordWrap
	bra  isWordWrap
;---------------------------------------------------------------
noHook	pla

*** changed 17-Nov-92 DAL, as suggested by Jim Murphy
*** Now only Space is allowed trail a word without making that word
*** wrap to the next line.
	cmp  #' '+1	;24-Mar-93 JCM old code is back for now
	blt  isWordWrap

;;;	cmp  #' '
;;;	beq  isWordWrap
*** end 17-Nov-92

;---------------------------------------------------------------
notWordWrap	clc
	rts
;---------------------------------------------------------------
isWordWrap	sec
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/TextEdit/width.aii b/IIGS.601.SRC/GSToolbox/TextEdit/width.aii
new file mode 100644
index 0000000..24e6195
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/TextEdit/width.aii
@@ -0,0 +1 @@
+**********************************************************************
*
*                      GSTextEdit  Version 1.0
*                          File: width.aii
*
*               Copyright Apple Computer, Inc. 1988-89
*                        All rights reserved
*
*
*
*
* Notes
*
* All the routines in GSTextEdit must be called in full native mode and
* return that way.
*
* All the files in GSTextEdit must be assembled with the "-unsafe"
* option to pass unresolved references to the linker.
*
*
*
*
* Change History
*
* 30 May 89	Dave Good
*
* Cleaned up comments for final release.
*
* 7-Apr-91	Dave Lyons (DAL)
*
* Changed the CharWidth loop to include the control characters,
* except we still treat Return as zero-width.  There are some
* printable control characters we want to be able to deal with
* correctly (check mark, Apple, etc).
*
**********************************************************************


	INCLUDE  'GlobalIncludes'


****************************************************************

Width1Proc	PROC

;---------------------------------------------------------------
	EXPORT  SetupWidthTable
	EXPORT  FreeWidthTable
	EXPORT  ChangeWidthTable
;---------------------------------------------------------------

;---------------------------------------------------------------
SetupWidthTable	lda  WidthTableDepth
	bne  @skipSetup
	inc  WidthTableDepth
	bra  RealSetupWidth

@skipSetup	inc  WidthTableDepth
	bra  checkForChange
;---------------------------------------------------------------
FreeWidthTable	dec  WidthTableDepth
	bne  exit

	PushZLong WidthTableHandle
	jsr  UnlockHandle
	rts
;---------------------------------------------------------------
ChangeWidthTable	lda  WidthTableDepth
	beq  exit
;---------------------------------------------------------------
checkForChange	phy
	PushZLong TempPtr
	lda  WidthTablePtr
	sec
	sbc  #4
	sta  TempPtr
	lda  WidthTablePtr+2
	sbc  #0
	sta  TempPtr+2
	ldy  #2
	lda  [TempPtr],y
	pha
	lda  [TempPtr]
	pha
	jsr  SetupStylePtr
	PullAX
	ldy  #TEStyle.fontID
	cmp  [TempPtr],y
	bne  changeIt
	iny
	iny
	txa
	cmp  [TempPtr],y
	bne  changeIt
	PullLong TempPtr
	ply
;---------------------------------------------------------------
exit	rts
;---------------------------------------------------------------
changeIt	pla
	pla
	pla
	jsr  RealSetupWidth
	ldy  #TERecord.StyleSuper
	jsr  FindSuperInfo
	iny
	iny
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

RealSetupWidth	PROC  ENTRY

;---------------------------------------------------------------
	DefineStack
theAscent	word
theDescent	word
theWidMax	word
theLeading	word
;---------------------------------------------------------------


;---------------------------------------------------------------
	PushZLong TempLong

	jsr  SetupStylePtr
	ldy  #TEStyle.fontID+2
	lda  [TempPtr],y
	sta  TempLong+2
	dey
	dey
	lda  [TempPtr],y
	sta  TempLong

	jsr  lockWTHandle		;lock down the width table handle and
	lda  WidthTablePtr+1	;..check for null master pointer
	beq  mustRealloc

	ldy  WidthTableOffset	;are we already pointing to the correct
	lda  [WidthTablePtr],y	;..font ? If not, we must search for it
	cmp  TempLong
	bne  mustFind
	iny
	iny
	lda  [WidthTablePtr],y
	cmp  TempLong+2
	bne  mustFind
;---------------------------------------------------------------
makeWidthPtr	iny		;add the offset to width table pointer
	iny
	tya
	addl WidthTablePtr
;---------------------------------------------------------------
allDone	PullLong TempLong
	rts
;---------------------------------------------------------------
foundIt	tya
	dec  a
	dec  a
	sta  WidthTableOffset
	bra  makeWidthPtr
;---------------------------------------------------------------
mustRealloc	jsr  unlockWTHandle		;unlock the purged handle and reallocate
	jsr  reallocWTHandle	;..it
	lda  #0		;clear the count field
	sta  [WidthTablePtr]
;---------------------------------------------------------------
mustFind	lda  [WidthTablePtr]	;get the total number of items and if this
	beq  notFound		;..is zero, then add the font to the list
	tax		;put the count in the X-Reg
	ldy  #2
@loop	lda  [WidthTablePtr],y	;check the cached fontID against TempLong
	iny		;..(the fontID we are looking for)
	iny
	cmp  TempLong
	bne  @next
	lda  [WidthTablePtr],y
	cmp  TempLong+2		;if they match, then we have found the
	beq  foundIt		;..font, so adjust the index and make the
@next	tya		;..widthTablePtr
	clc		;move to the next item in the table
	adc  #WidthTable.RecordSize+2
	tay
	dex		;count down thru all the items
	bne  @loop
;---------------------------------------------------------------
notFound	jsr  GetPort		;save the old port and set the new one
	jsr  SetDrawPort		;..to draw port

	lda  [WidthTablePtr]	;increment our count of fonts in the table
	inc  a
@tryAgain	sta  [WidthTablePtr]
	jsr  unlockWTHandle		;unlock the table, so we can resize it
	PushZLong WidthTableHandle	;get the original size of the handle and
	ldy  #HandleRecord.length	;..add the correct amount to make it one
	lda  [WidthTableHandle],y	;..font bigger. If this new size is over
	sta  WidthTableOffset	;..64K, then purge the handle and start
	clc		;..over
	adc  #WidthTable.RecordSize+4
	bcs  @purgeTheHandle
	ldx  #0		;make sure the X-Reg is zero
	jsr  SetHandleSize		;if we get the memory we need, then
	bcc  @weHaveMemory		;..continue. Otherwise purge the handle
@purgeTheHandle	PushZLong WidthTableHandle	;..and try again
	_PurgeHandle
	jsr  reallocWTHandle
	lda  #1
	bra  @tryAgain
@weHaveMemory
	jsr  lockWTHandle		;lock the handle down and make a pointer
	ldy  WidthTableOffset	;..to the new font
	lda  TempLong
	sta  [WidthTablePtr],y
	iny
	iny
	lda  TempLong+2
	sta  [WidthTablePtr],y
	iny
	iny
	tya
	addl WidthTablePtr

	jsr  InstallFontAndColor	;make sure the font is installed

	ldx  #0		;now the X-Reg has zero cached
	ldy  #GrafPort.SpExtra+2	;save the space extra field and set it to
	lda  [DrawPortPtr],y	;..$0000 0000
	pha
	txa
	sta  [DrawPortPtr],y
	dey
	dey
	lda  [DrawPortPtr],y
	pha
	txa
	sta  [DrawPortPtr],y

	txa		;loop thru every character in the font
	txy		;..finding the width and caching it in
			;..the table.

*** 7-Apr-91 DAL -- let's don't skip the control characters, eh?
*** Control characters are people, too.
;@loop1	sta  [WidthTablePtr],y
;	iny
;	iny
;	cpy  #$20
;	blt  @loop1
;	tyx

@loop2	phx
	PushWordSpace
	phx
	_CharWidth
	pla
	plx
	txy
	sta  [WidthTablePtr],y
	inx
	cpx  #255
	bne  @loop2

*** added 7-Apr-91 DAL -- make Return still be zero width (this might be important)
	ldy #13
	lda #0
	sta [WidthTablePtr],y
*** end of 7-Apr-91 DAL

	PushLongSpace		;make space for the font info record
	PushLongSpace
	tsc
	pea  $0000		;adjust to make a pointer to the stack
	inc  a		;..space and push it
	pha
	_GetFontInfo
	lda  theAscent,s		;ascent = ascent + leading
	clc
	adc  theLeading,s
	ldy  #WidthTable.ascent	;the offset for the ascent
	sta  [WidthTablePtr],y
	adc  theDescent,s		;the height is in A-Reg
	dey		;the offset for the height
	dey
	sta  [WidthTablePtr],y
	pla		;cleanup the stack in the least number
	pla		;..of bytes
	pla
	pla

	ldy  #GrafPort.SpExtra	;get back the saved space extra field
	pla
	sta  [DrawPortPtr],y
	iny
	iny
	pla
	sta  [DrawPortPtr],y

	jsr  ReleaseFont		;release the font
;---------------------------------------------------------------
	jsr  SetPort		;restore the saved port
	brl  allDone
;---------------------------------------------------------------



;---------------------------------------------------------------
reallocWTHandle	PushLong #2		;reallocate the handle with a size of two
	PushZWord UserID		;..and purgable attributes
	PushWord #$0300
	PushLongSpace
	PushZLong WidthTableHandle
	_ReAllocHandle		;fall through into lock the handle
;---------------------------------------------------------------
lockWTHandle	ldy  #4
	lda  [WidthTableHandle],y
	ora  #$8000
	sta  [WidthTableHandle],y
	dey
	dey
	lda  [WidthTableHandle],y
	sta  WidthTablePtr+2
	lda  [WidthTableHandle]
	sta  WidthTablePtr
	rts
;---------------------------------------------------------------
unlockWTHandle	ldy  #4
	lda  [WidthTableHandle],y
	and  #$7fff
	sta  [WidthTableHandle],y
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/TextEdit/wrap.aii b/IIGS.601.SRC/GSToolbox/TextEdit/wrap.aii
new file mode 100644
index 0000000..47548db
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/TextEdit/wrap.aii
@@ -0,0 +1 @@
+**********************************************************************
*
*                      GSTextEdit  Version 1.0
*                           File: wrap.aii
*
*               Copyright Apple Computer, Inc. 1988-89
*                        All rights reserved
*
*
*
*
* Notes
*
* All the routines in GSTextEdit must be called in full native mode and
* return that way.
*
* All the files in GSTextEdit must be assembled with the "-unsafe"
* option to pass unresolved references to the linker.
*
*
*
*
* Change History
*
* 30 May 89	Dave Good
*
* Cleaned up comments for final release.
*
**********************************************************************


	INCLUDE  'GlobalIncludes'

****************************************************************

IncrementalWordWrap	PROCNAME  Export

;---------------------------------------------------------------
	stzl TextOffset		;see if the record is totally empty
	jsr  IsOffsetAtEnd
	bne  @notEmpty

	ldy  #TERecord.LineSuper	;if it is, then destroy the old line starts
	jsr  KillSuperHandle	;..array and create a new one
	ldy  #TERecord.LineSuper
	jsr  GetNewSuperHandle

	jsr  FindStyleInfo		;find the starting height and ascent
	jsr  GetTextHeightAndAscent
	sta  LineHeight
	stx  LineAscent
	stzl SuperLength
	jsr  SetLineInfo		;set our initial line info

	lda  LineHeight		;the total height is the lineHeight
	ldx  #0
	ldy  #TERecord.TotalHeight
	jsr  SetRecordLong

	ldy  #TERecord.LineAtEndFlag	;set the line at the end flag
	lda  #0
	sta  [RecordPtr],y

	jsr  GetViewRect
	jsr  CopyTempToDrawRect
	brl  ResetScrollBar
@notEmpty
;---------------------------------------------------------------
	jsr  GetSelectionStart

	jsr  FindStyleInfo		;find the current style and setup the
	jsr  SetupWidthTable	;..width table

	jsr  OffsetToPoint		;set the super start and the line height
	jsr  FindLineInfo		;..correctly

	jsr  IsOffsetAtEnd
	bne  @skipAtEnd
	ldy  #TERecord.LineAtEndFlag
	lda  [RecordPtr],y
	bpl  @skipAtEnd
*###############################################################
*# changed this piece of code from an add to a subtract. This
*# should fix the redraw bug
*###############################################################
	lda  TextVPos
	sec
	sbc  LineHeight
	sta  TextVPos
*###############################################################
@skipAtEnd
	lda  SuperStart+2		;start at the beginning of our line
	sta  TextOffset+2
	lda  SuperStart
	sta  TextOffset		;is there a previous line ? If not, then
	ora  TextOffset+2		;..don't check to see if it wrapped.
	beq  noPrevLine
	decl TextOffset
	jsr  FindLineStart		;find the previous line's start and see
	lda  TextVPos		;move TextVPos back to the previous line
	sec
	sbc  LineHeight
	sta  TextVPos
	sta  DrawRect.top
	jsr  WrapToLineEnd		;..if the previous line's end changed.

	jsr  ShouldWeAdjust		;should we adjust the scroll bar
	bcc  @skipAdjust

	ldy  #TERecord.ViewRect.top	;save the new top of the draw rect
	lda  [RecordPtr],y
	pha
	sec
	sbc  TextVPos
	ldx  #0
	jsr  DivideByScrollAmount
	jsr  NegateAX
	jsr  ScrollByAmount
	pla		;..drawrect.top
	sta  DrawRect.top
	jsr  GetScreenTopOffset
	jsr  OffsetToPoint
	jsr  WrapToLineEnd		;..if the previous line's end changed.
@skipAdjust
	jsr  InsertALine		;if the end changed, then we don't need
	bcc  mainLoop		;..to set the draw top again

noPrevLine	lda  TextVPos
	sta  DrawRect.top
;---------------------------------------------------------------
mainLoop	jsr  WrapToLineEnd
	jsr  InsertALine
	bcc  mainLoop
;---------------------------------------------------------------
	jsr  IsOffsetAtEnd
	bne  @notAtEnd

	jsr  FindTextPtr
	decl TextPtr
	lda  [TextPtr]
	and  #$00FF
	cmp  #CR
	bne  @clearLineEnd
	ldy  #TERecord.LineAtEndFlag
	lda  #$FFFF
	cmp  [RecordPtr],y
	beq  @notAtEnd
	sta  [RecordPtr],y
	lda  LineHeight
	ldy  #TERecord.TotalHeight
	jsr  AddWordToRecordLong
	bra  @clearCache

@clearLineEnd	ldy  #TERecord.LineAtEndFlag
	lda  #$0000
	cmp  [RecordPtr],y
	beq  @notAtEnd
	sta  [RecordPtr],y
	ldy  #TERecord.TotalHeight
	lda  [RecordPtr],y
	sec
	sbc  LineHeight
	sta  [RecordPtr],y
	bcs  @clearCache
	iny
	iny
	lda  [RecordPtr],y
	dec  a
	sta  [RecordPtr],y

@clearCache	jsr  ClearOffsetCache

@notAtEnd	lda  TextVPos
	sta  DrawRect.bottom
;---------------------------------------------------------------
checkForSingle	ldy  #TERecord.TotalHeight	;subtract the removed height from the
	lda  [RecordPtr],y		;..total height
	sec
	sbc  RemovedHeight
	sta  [RecordPtr],y
	iny
	iny
	lda  [RecordPtr],y
	sbc  RemovedHeight+2
	sta  [RecordPtr],y

	lda  RemovedHeight
	ora  RemovedHeight+2
	bnel notSingleLine

	jsr  GetJust
	cmp  #leftJust
	bnel notSingleLine

	jsr  GetSelectionStart
	jsr  OffsetToPoint
	lda  TextVPos
	cmp  DrawRect.top
	bnel notSingleLine
	jsr  FindLineInfo
	lda  TextVPos
	clc
	adc  LineHeight
	cmp  DrawRect.bottom
	bnel notSingleLine

	lda  InputTextLength+2
	bne  @notCached
	lda  InputTextLength
	dec  a
	bne  @notCached

	jsr  IsOffsetCached
	bne  @notCached

	ldy  #TERecord.CachedSelcOffset
	lda  [RecordPtr],y
	inc  a
	sta  [RecordPtr],y
	bne  @1
	iny
	iny
	lda  [RecordPtr],y
	inc  a
	sta  [RecordPtr],y
@1
	jsr  FindStyleInfo

	jsr  FindTextPtr
	lda  #0
	shortm
	lda  [TextPtr]
	cmp  #TAB
	bne  @notTab
@doTab	rep  #$20		;goto long mode for Tab processing
	pei  TextHPos
	ldy  #TERecord.CachedSelcHPos
	lda  [RecordPtr],y
	sec
	ldy  #TERecord.ViewRect.left
	sbc  [RecordPtr],y
	sta  TextHPos
	jsr  MoveOverTab
	clc
	ldy  #TERecord.ViewRect.left
	adc  [RecordPtr],y
	ldy  #TERecord.CachedSelcHPos
	plx
	stx  TextHPos
	bra  @useHPos
@notTab	tay
	lda  [WidthTablePtr],y
	longm
	clc
	ldy  #TERecord.CachedSelcHPos
	adc  [RecordPtr],y
@useHPos	sta  [RecordPtr],y
	bra  @drawTheLine

@notCached	jsr  ClearOffsetCache

@drawTheLine	jsr  DrawFromOffset

	stz  DrawRect.top
	stz  DrawRect.bottom

	jsr  FreeWidthTable
	brl  ResetScrollBar		;fix the scroll bar view and data size
;---------------------------------------------------------------
notSingleLine	jsr  ClearOffsetCache
	jsr  FreeWidthTable

	jsr  GetViewRect

	lda  TempRect.left
	sta  DrawRect.left
	lda  TempRect.right
	sta  DrawRect.right

	lda  RemovedHeight
	ora  RemovedHeight+2
	beq  @skipAdjust

	lda  TempRect.bottom
	cmp  DrawRect.bottom
	beq  @skipAdjust

	jsr  PushDrawRect

	lda  RemovedHeight+2
	bmi  @goingDown

@goingUp	lda  DrawRect.bottom
	sta  TempRect.top
	bra  @doTheScroll

@goingDown	lda  DrawRect.bottom
	clc
	adc  RemovedHeight
	sta  TempRect.top

@doTheScroll	ldx  #0
	lda  RemovedHeight
	eor  #$FFFF
	inc  a
	bpl  @plus
	dex
@plus	jsr  FastScrollRect

	lda  DrawRect.top
	cmp  3,s
	bge  @1
	lda  3,s
	sta  DrawRect.top
@1	lda  DrawRect.bottom
	cmp  DrawRect.top
	beq  @restoreDraw
	bmi  @restoreDraw
	jsr  DoDraw

@restoreDraw	jsr  PullDrawRect

@skipAdjust	brl  ResetScrollBar		;fix the scroll bar view and data size
;---------------------------------------------------------------

	ENDP

****************************************************************

ShouldWeAdjust	PROCNAME  Entry

;---------------------------------------------------------------
	PushZLong TextOffset

	lda  TextVPos		;move the vertical position down by this
	ldy  #TERecord.ViewRect.top
	cmp  [RecordPtr],y
	bpl  @noChange
	clc		;..line height
	adc  LineHeight
	ldy  #TERecord.ViewRect.top
	cmp  [RecordPtr],y
	bmi  @mustAdjust

	subl TextOffset,OriginalOffset,NewLineLength
	lda  NewLineLength
	ora  NewLineLength+2
	beq  @noChange

	movl OriginalOffset,TextOffset
	ldy  #TERecord.LineSuper
	jsr  FindSuperInfo
	lda  SuperLength+2
	cmp  NewLineLength+2
	bne  @mustAdjust
	lda  SuperLength
	cmp  NewLineLength
	bne  @mustAdjust

@noChange	clc
@done	pla
	sta  TextOffset
	pla
	sta  TextOffset+2
	rts

@mustAdjust	sec
	bra  @done
;---------------------------------------------------------------

	ENDP

****************************************************************

InsertALine	PROCNAME  Entry

;---------------------------------------------------------------
	PushZLong TextOffset

	lda  LineHeight
	clc		;move the vertical position down by this
	adc  TextVPos		;..line height
	ldy  #TERecord.ViewRect.bottom
	cmp  [RecordPtr],y
	blt  @1
	lda  [RecordPtr],y
@1	sta  TextVPos

	subl TextOffset,OriginalOffset,NewLineLength
	lda  NewLineLength
	ora  NewLineLength+2
	beq  secAndExit
	movl OriginalOffset,TextOffset
	ldy  #TERecord.LineSuper
	jsr  FindSuperInfo

	lda  SuperLength+2
	cmp  NewLineLength+2
	blt  removeThem
	bne  addOne
	lda  SuperLength
	cmp  NewLineLength
	blt  removeThem
	bne  addOne
;---------------------------------------------------------------
alreadyThere	jsr  addTheDifference	;now we must find the difference between
secAndExit	sec		;..the new line and the old one and sub
	bra  exit		;..that amount from the removed height
;---------------------------------------------------------------
addOne	lda  3,s		;the value on the stack is the original
	sta  TextOffset+2		;..offset plus the new line length
	lda  1,s
	sta  TextOffset
	ldy  #TERecord.LineSuper	;insert a new line
	jsr  InsertSuperItem
	bcs  memoryError

	movl OriginalOffset,TextOffset	;go back to the original offset
	ldy  #TERecord.LineSuper
	jsr  FindSuperInfo
	lda  LineHeight
	sta  [TempPtr],y
	iny
	iny
	lda  LineAscent
	sta  [TempPtr],y

	lda  LineHeight
	jsr  addHeight

	clc
;---------------------------------------------------------------
exit	pla		;restore the text offset
	sta  TextOffset
	pla
	sta  TextOffset+2
	rts
;---------------------------------------------------------------
memoryError	pla		;clean up the stack
	pla
	jsr  SetLastErrorCode	;report the last error
	pla		;pull off one level of return address
	rts		;..and return to ReplaceText
;---------------------------------------------------------------
removeThem	jsr  GetSuperMaxIndex

	ldy  #SuperHandle.cachedIndex	;get the current index for the selection
	lda  [SuperRecordPtr],y	;..start into Y-Reg
	tay
	lda  NewLineLength		;set the new item length and at the same
	sta  [TempPtr],y		;..time subtract the old length from the
	sec		;..new one
	sbc  SuperLength
	sta  SuperLength
	sta  NewLineLength
	iny
	iny
	lda  NewLineLength+2
	sta  [TempPtr],y
	sbc  SuperLength+2
	sta  SuperLength+2
	sta  NewLineLength+2
	iny		;now we must find the difference between
	iny		;..the new line and the old one and sub
	jsr  addTheDifference	;..that amount from the removed height
	jsr  AddLengthToBlock

	ldy  #SuperHandle.cachedIndex	;get the current index for the selection
	lda  [SuperRecordPtr],y	;..start into Y-Reg
	inc  a
	inc  a
	bra  @enterLoop

@itemLoop	sty  TempWord
	lda  [TempPtr],y
	bmi  @deletedItem
	sta  SuperLength+2
	dey
	dey
	lda  [TempPtr],y
	sta  SuperLength

	lda  NewLineLength
	sec
	sbc  SuperLength
	sta  NewLineLength
	lda  NewLineLength+2
	sbc  SuperLength+2
	sta  NewLineLength+2	;carry remains set if we are continuing
	bcc  @lastItem

	jsr  SubLengthFromBlock

	ldy  TempWord
	lda  #$FFFF		;mark this item as deleted
	sta  [TempPtr],y
	dey
	dey
	sta  [TempPtr],y
	iny
	iny
	iny
	iny
	lda  [TempPtr],y
	sta  LineHeight
	addl RemovedHeight

	lda  NewLineLength		;if the new length is zero, then exit
	ora  NewLineLength+2
	bne  @notZero
	clc
	brl  exit
@notZero
@deletedItem	lda  TempWord
@enterLoop	clc
	adc  #SuperItemSize
	tay
	cpy  SuperMaxIndex
	blt  @itemLoop

	jsr  MoveToNextHandle	;NOTE: we should never reach the end here
	ldy  #SuperBlock.RecordSize+2	;..so we don't check the carry - we assume
	bra  @itemLoop		;..that there will always be another handle

@lastItem	addl SuperLength,NewLineLength,SuperLength
	jsr  SubLengthFromBlock

	ldy  TempWord		;set the last item to (SuperLength - 
	dey		;..the last valid NewLineLength)
	dey
	lda  NewLineLength+2
	eor  #$FFFF
	tax
	lda  NewLineLength
	eor  #$FFFF
	inc  a
	bne  @2
	inx
@2	stax SuperLength		;set the correct super length for later
	sta  [TempPtr],y
	txa
	iny
	iny
	sta  [TempPtr],y

	clc
	brl  exit
;---------------------------------------------------------------



;---------------------------------------------------------------
addTheDifference	lda  LineHeight		;subtract the old line height from the
	sec		;..the new one to get the amount to add.
	sbc  [TempPtr],y
	tax
	lda  LineHeight
	sta  [TempPtr],y
	iny
	iny
	lda  LineAscent
	sta  [TempPtr],y
	txa		;fall through to add height
;---------------------------------------------------------------
addHeight	sta  TempLong
	stz  TempLong+2
	bpl  @plus
	dec  TempLong+2
@plus
	lda  RemovedHeight
	sec
	sbc  TempLong
	sta  RemovedHeight
	lda  RemovedHeight+2
	sbc  TempLong+2
	sta  RemovedHeight+2

	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

WrapToLineEnd	PROCNAME  Entry

;---------------------------------------------------------------
	movl TextOffset,OriginalOffset	;save the original text offset

	jsr  GetTEHighFlags
	and  #fNoWordWrap
	beq  wrapIt
;---------------------------------------------------------------
@mainLoop	jsr  FindTextPtr		;setup the text pointer

	jsr  GetTextLength
	sec
	sbc  TextOffset
	tay
	txa
	sbc  TextOffset+2
	beq  @useY
	ldy  #$FFFF
@useY	tyx
	beq  @exit

	ldy  #0
	shortm
@innerLoop	lda  [TextPtr],y
	iny
	cmp  #CR
	beq  @foundCR
	dex
	bne  @innerLoop
	longm
	tya
	addl TextOffset
	bra  @mainLoop

@foundCR	longm
	tya
	addl TextOffset
@exit	jsr  SetupWidthTable
	brl  allDone
;---------------------------------------------------------------
wrapIt	jsr  FindLineStart		;find the start of the line
	jsr  FindStyleInfo		;find the current style and setup the
	jsr  SetupWidthTable	;..width table

	jsr  GetRightMargin
	sta  OriginalHPos
	jsr  GetLeftEdge
	sta  TextHPos
;---------------------------------------------------------------
mainLoop	jsr  FindStyleInfo		;install the style first, so the maximum
	jsr  GetSuperCount		;..height gets set properly
	sta  TextCount

	jsr  IsOffsetAtEnd
	beql allDone

	jsr  FindTextPtr		;setup the text pointer
	ldx  #0		;start our initial index at zero

widthLoop	txy
	lda  [TextPtr],y		;get the next character
	and  #$00FF
	cmp  #TAB		;is it a TAB ?
	beq  doTab
	cmp  #CR		;is it a carriage return ?
	beq  foundCR
	tay
	lda  [WidthTablePtr],y	;..it from the table
	and  #$00FF
	clc
	adc  TextHPos
useValue	cmp  OriginalHPos
	bpl  foundChar
	sta  TextHPos
	inx		;move to the next character and loop back
	cpx  TextCount
	blt  widthLoop

	lda  TextCount		;move TextOffset past the characters
	addl TextOffset		;..we just processed.
	bra  mainLoop
;---------------------------------------------------------------
doTab	jsr  MoveOverTab
	bra  useValue
;---------------------------------------------------------------
foundCR	inx
	txa
	addl TextOffset
	bra  allDone

foundChar	txa
	addl TextOffset
	txa
	addl TextPtr
	lda  [TextPtr]
	jsr  IsItAWordWrap
	bcs  @skipOverSpace

	movl TextOffset,TempLong
@loop	decl TextPtr
	lda  [TextPtr]
	jsr  IsItAWordWrap
	bcs  allDone
	decl TextOffset
	lda  TextOffset
	cmp  OriginalOffset
	bne  @loop
	lda  TextOffset+2
	cmp  OriginalOffset+2
	bne  @loop
	movl TempLong,TextOffset
	bra  allDone

@skipOverSpace	incl TextOffset
	jsr  IsOffsetAtEnd
	beq  allDone
	incl TextPtr
	lda  [TextPtr]
	and  #$00FF
	cmp  #CR
	beq  lastCR
	jsr  IsItAWordWrap
	bcs  @skipOverSpace
;---------------------------------------------------------------
allDone	movl TextOffset,TempLong	;save text offset in TempLong
	movl OriginalOffset,TextOffset
	stz  LineHeight
	stz  LineAscent

@loop	jsr  SetupRulerPtr		;save the extra line spacing on the stack
	ldy  #TERuler.extraLS
	lda  [TempPtr],y
	pha
	jsr  FindStyleInfo
	ldy  #WidthTable.height
	lda  [WidthTablePtr],y
	clc
	adc  1,s
	cmp  LineHeight
	blt  @1
	sta  LineHeight
@1	ldy  #WidthTable.ascent
	lda  [WidthTablePtr],y
	clc
	adc  1,s
	cmp  LineAscent
	blt  @2
	sta  LineAscent
@2	pla		;clean off the garbage on the stack
	jsr  MoveOffsetToNextItem
	cmpl TextOffset,TempLong
	blt  @loop

	movl TempLong,TextOffset	;restore text offset

	brl  FreeWidthTable		;unlock the width table
;---------------------------------------------------------------
lastCR	incl TextOffset		;skip over the CR
	bra  allDone
;---------------------------------------------------------------

	ENDP

****************************************************************

InitialWordWrap	PROCNAME  Export

;---------------------------------------------------------------
	jsr  ClearOffsetCache	;make sure the offset cache is clear

	ldy  #TERecord.LineSuper	;destroy the old line starts super and get
	jsr  KillSuperHandle	;..a new one
	ldy  #TERecord.LineSuper
	jsr  GetNewSuperHandle
	jsr  GetTextLength		;the new line length is the total text length
	stax SuperLength		;if there is no text, we can skip this
	ora  SuperLength+2		;..entire routine - (there are no lines)
	bne  mustWordWrap
;---------------------------------------------------------------
noText	ldy  #TERecord.LineAtEndFlag
	lda  #0
	sta  [RecordPtr],y

	stzl TextOffset
	jsr  FindStyleInfo
	jsr  GetTextHeightAndAscent
	sta  LineHeight
	stx  LineAscent
	stzl SuperLength
	jsr  SetLineInfo

	lda  LineHeight		;the total height is the lineHeight
	ldx  #0
	ldy  #TERecord.TotalHeight
	jsr  SetRecordLong

	brl  exit
;---------------------------------------------------------------
mustWordWrap	stz  LineHeight
	stz  LineAscent
	jsr  SetLineInfo

	lda  #0
	tax
	ldy  #TERecord.TotalHeight	;clear the total height field
	jsr  SetRecordLong
	ldy  #TERecord.LineAtEndFlag
	sta  [RecordPtr],y

	stzl TextOffset
	jsr  FindStyleInfo		;find the current style and setup the
	jsr  SetupWidthTable	;..width table

	jsr  SetupRulerPtr		;save the original justification of the ruler
	ldy  #TERuler.just		;..on the stack, then set the just to
	lda  [TempPtr],y		;..leftJust so HPosToOffset will measure
	pha		;..correctly
	lda  #leftJust
	sta  [TempPtr],y
;---------------------------------------------------------------
lineLoop	jsr  WrapToLineEnd
	jsr  IsOffsetAtEnd
	beq  lastBreak

	jsr  setupNewLine

	ldy  #TERecord.LineSuper
	jsr  InsertSuperItem
	bcs  memoryError

	bra  lineLoop
;---------------------------------------------------------------
lastBreak	jsr  FindTextPtr
	decl TextPtr
	lda  [TextPtr]
	and  #$00FF
	cmp  #CR
	bne  @noLineAtEnd

@lineAtEnd	ldy  #TERecord.LineAtEndFlag
	lda  #$FFFF
	sta  [RecordPtr],y
	lda  LineHeight
	ldy  #TERecord.TotalHeight
	jsr  AddWordToRecordLong
@noLineAtEnd
	jsr  setupNewLine
;---------------------------------------------------------------
allDone	stzl TextOffset
	ldy  #TERecord.LineSuper	;make sure the super cache information is
	jsr  ClearSuperCache	;..accurate

	jsr  SetupRulerPtr		;restore the original just
	ldy  #TERuler.just
	pla
	sta  [TempPtr],y

	jsr  FreeWidthTable		;free the width table
;---------------------------------------------------------------
exit	jsr  RecalcScrollBar	;recalculate the scroll bar values

	jsr  ClearOffsetCache	;clear the selection cache

	jsr  GetViewRect		;set the DrawRect to the entire view rect
	brl  CopyTempToDrawRect
;---------------------------------------------------------------
memoryError	jsr  SetLastErrorCode
	bra  allDone
;---------------------------------------------------------------



;---------------------------------------------------------------
setupNewLine	lda  LineHeight
	ldy  #TERecord.TotalHeight
	jsr  AddWordToRecordLong

	ldy  #TERecord.LineSuper
	jsr  FindSuperInfo
	lda  LineHeight
	sta  [TempPtr],y
	iny
	iny
	lda  LineAscent
	sta  [TempPtr],y

	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/ToolPatch/ToolPatch.asm b/IIGS.601.SRC/GSToolbox/ToolPatch/ToolPatch.asm
new file mode 100644
index 0000000..76fac37
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/ToolPatch/ToolPatch.asm
@@ -0,0 +1 @@
+**********************************************************************
*
* ToolPatch.ASM
*
* 
* Copyright 1988-1989
* Apple Computer, Inc.
* All rights Reserved.
*
* This file contains a jump table and jumps back into the regular code.
* It is designed so that it can be linked to the object files that will
* be linked in ROM.  Each manager that uses this mechanism will have
* a subset of this code in its own source that is not linked to the ROM
* so that the tool can be linked stand alone.
*
*
* Change History
*
* 11 Oct 88	Steven Glass
*
* Coding begins.
*
**********************************************************************
	Export ToolboxPatcher:EQU
ToolBoxPatcher	equ $E101BC


****************************************************************
*
iToolboxPatcher	PROC EXPORT
*
* This is the only entry point to this code.  The control
* manager calls to this routine with the x-register set
* to indicate what real call it wants to make.
*
* In this way, the call can be patched.
*
*
* Inputs:
*	x-reg    Call To Make
*
* Outputs:
*	no registers are altered.
*
* External Refs:
*	The real routines.
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


	jmp (Table,x)


Table	dc.w ToCMDispatcher
	dc.w ToWMActivate
	dc.w ToWMDeactivate
	dc.w oops


ToCMDispatcher	
	import RealCMDispatcher
	jml RealCMDispatcher


ToWMActivate
	import RealWMActivate
	jml RealWMActivate

ToWMDeActivate
	import RealWMDeActivate
	jml RealWMDeActivate

Oops	brk 17

	ENDP


	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/ToolPatch/ToolPatchEquates.asm b/IIGS.601.SRC/GSToolbox/ToolPatch/ToolPatchEquates.asm
new file mode 100644
index 0000000..9b9b0ea
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/ToolPatch/ToolPatchEquates.asm
@@ -0,0 +1 @@
+oCMDispatcher	equ $0000
oWMActivate		equ $0002
oWMDeActivate	equ $0004
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/VideoMix/Equates.asm b/IIGS.601.SRC/GSToolbox/VideoMix/Equates.asm
new file mode 100644
index 0000000..90f4c18
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/VideoMix/Equates.asm
@@ -0,0 +1 @@
+****************************************************
*
* Copyright 1990-92 Apple Computer, Inc
* All Rights Reserved
*
****************************************************
*
* REVISION HISTORY
*
* 11-Feb-91 Dave Lyons
*   Changed version to $8103.
*
* 5-Feb-92 Dave Lyons
*   Changed version to $0103 for 6.0 final.
*
****************************************************

	blanks off



;------------------------------------------
;
; Equates from procedure Equates
;
;------------------------------------------
RelVersion	equ 1	;release version number
TheVDVersionNum	equ $0103	;version (5-Feb-92 DAL)
NoVideoDevice	equ $2110
AlreadyStarted	equ $2111
InvalidSelect	equ $2112
InvalidParam	equ $2113
VideoOverlay	equ 1
FrameGrabber	equ 2
InVStandards	equ 3
OutVStandards	equ 4
KeyDissLevels	equ 5
NKeyDissLevels	equ 6
AdjSideEffect	equ 7
KeyColorBits	equ 8
InHueAdj	equ 9
InSatAdj	equ 10
InContrastAdj	equ 11
InBrightAdj	equ 12
OutSetup	equ 13
OutChromaFltr	equ 14
OutExtBlank	equ 15
KeyEnhDiss	equ 16
LineInterrupts	equ 17
GGBus	equ 18
DualOut	equ 19
TextMonoOver	equ 20
LastFeature	equ TextMonoOver+1	;Indicates last feature in list
Genlock	equ 50
VideoDetect	equ 51
Genlocked	equ 52
AdjInc	equ 80
AdjDec	equ 81
AdjSave	equ 82
KColorEnable	equ 100
VerticalBlank	equ 130
MainPageLin	equ 200
RAMPageSel	equ 201
VBLInterrupt	equ 202
InterlaceMode	equ 203
ClearVBLInt	equ 204
ClearLineInt	equ 205
DisplayField	equ 206
VBLIntRequest	equ 207
LineIntRequest	equ 208
NTSC	equ 1
PAL	equ 2
SECAM	equ 4
SNTSC	equ 8
SPAL	equ 16
SSECAM	equ 32
RGB60	equ 64
RGB50	equ 128
True	equ 1
False	equ 0
Avail	equ true
NotAvail	equ false
Yes	equ true
No	equ false
Enable	equ true
Disable	equ false
Graphics	equ true
External	equ false
Vblank	equ true
AvtiveVideo	equ false
On	equ true
Off	equ false
Field1	equ true
Field0	equ false
Aux	equ 0
Main	equ 16
Interlace	equ 48
;****Changed minimum timing loop values to $42 to support PAL
min_IIGS	equ $42	;minimum # of timing loops acceptable to be TRON
max_IIGS	equ $55	;maximum * of timing loops acceptable to be TRON
min_IIe	equ $42	;minimum # of timing loops acceptable to be TRON
max_IIe	equ $55	;maximum * of timing loops acceptable to be TRON
reg_ptr_lo	equ $01	;pointer to device select space ("C0n0 space")
reg_ptr_hi	equ $02
rom_ptr_lo	equ $04	;pointer to IO select space ("C100 space")
rom_ptr_hi	equ $05
not_a_slot	equ $08	;number greater than highest slot number
test_count	equ $0A
stat_mask	equ $04	;mask for bit
delay_count1	equ $01
delay_count2	equ $01
dcount	equ 50
SlotMask	equ $00ff
ActvMask	equ $8000
TMOMask	equ $0100
NotTMOMask	equ $feff
MessNo	equ 36	;my message number
TheTool	equ 33	;Tool 33
IncBusyFlg	equ $e10064
DecBusyFlg	equ $e10068
LangSel	equ $00c02b	;language selection softswitch (NTSC/PAL)
	EXPORT Equates
Equates	PROC
;------------------------------------------------------------------------------
; REVISION HISTORY
;------------------------------------------------------------------------------
;Version 1.0d5
;  7-14-88     -VDGetFeatures wasn't returning an error for null selector value
;              -VDInControl with Genlock, disable and enable were reversed.
;              -VDKeyControl with KColorEnable, disable and	enable reversed.
;              -VDOutStatus with OutExtBlank was always returning error.
;Version 1.0d6
;  7-21-88     -VDGGStatus (InterlaceMode) was returning funny error (no jump)
;Version 1.0d7
;  7-22-88     -VDInConvAdj (InHueAdj or InSatAdj,AdjSave) was returning funny
;               error (jump instruction	was missing
;              -VDFeatures wasn't returning 'NotAvail' for invalid selector
;Version 1.0b1
;              -Presence test was rewitten to correctly find card
;              -VDKeyGetKDiss and VDKeyGetNKDiss was rewritten to return
;               value depending on value from card.
;              -All	reads and writes to	the card are now slot independent (for
;               working in TenSpeed.)
;
;Version 1.0b2
;  2-15-89     -Fixed bugs:
;                VDGetFeatures	:Not returning VDInvalidSelector >20
;                VDOutControl	:VDInvalidParam not	returned
;                VDGGStatus
;                VDGGControl	:MainPageLin, RAMPageSel, VBLInterrupt
;		 LineINterrupts, ClearLineInt, GGBus
;
;Version 1.0f1
;   2-20-89    -Fixed bug with VDGGControl not enabling and	disabling GGBus.
;
;Version 1.1f1
;   4-24-89    -Rewrote VDStartup and VDShutdown so that we	only need to
;               so we only need to determine if the card is	there one time
;               (turns off interrupts for a long time) and send a message
;               with the slot number in	it.  Also, setup WAP as a place to
;               store the slot number, active bit, and TMO flag.
;              -We are now reentrant.
;
;Version 1.1f2
;    4-25-89   -Took out turning interrupts off when really	didnt need to.
;
;Version 1.2b1
;    8-10-89   -Changed minimum timing loop "min_iigs" from $45 to $42 for PAL card
;    8-11-89   -Changed VDStartup, VDGetFeatures, VDInSetStd, VDInGetStd, VDOutSetStd
;               and VDOutGetStd to support PAL. (also added LangSel to equates)
;



;------------------------------------------------------------------------------










;-----------------------------------------------------------------------------








	ENDP

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/VideoMix/VD.asm b/IIGS.601.SRC/GSToolbox/VideoMix/VD.asm
new file mode 100644
index 0000000..bf95c30
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/VideoMix/VD.asm
@@ -0,0 +1 @@
+;------------------------------------------------------------------------------
; Copyright Apple Computer, Inc. 1988, 1989, 1991
; All rights reserved
;
; Programmed by Dan	D. Hitchens
;
;------------------------------------------------------------------------------
;
; REVISION HISTORY
;
; 11-Feb-91 Dave Lyons
;   Fixed a bug in VDGGStatus where selector $11 (LineInterrupts) would crash
;   because it wasn't doing a REP #$30.  It also wasn't trying to return quite
;   the right values (should be $0000 and $0001).
;   Tool set version is now $8103.
;
;------------------------------------------------------------------------------

	ENTRY ActDeact
	ENTRY DissTable
	ENTRY ERRORX
	ENTRY FindCard
	ENTRY Get_Mach_Info
	ENTRY MACH_TEST
	ENTRY MessSlot
	ENTRY MyMessData
	ENTRY MyMessHdl
	ENTRY MyMessSig
	ENTRY NotImp
	ENTRY Rid0
	ENTRY Rid2
	ENTRY SetupWAP
	ENTRY TMOFlag
	ENTRY Time_0_to_1
	ENTRY VDBootInit
	ENTRY VDGGControl
	ENTRY VDGGStatus
	ENTRY VDGetFeatures
	ENTRY VDInControl
	ENTRY VDInConvAdj
	ENTRY VDInGetStd
	ENTRY VDInSetStd
	ENTRY VDInStatus
	ENTRY VDKeyControl
	ENTRY VDKeyGetKBCol
	ENTRY VDKeyGetKDiss
	ENTRY VDKeyGetKGCol
	ENTRY VDKeyGetKRCol
	ENTRY VDKeyGetNKDiss
	ENTRY VDKeySetKCol
	ENTRY VDKeySetKDiss
	ENTRY VDKeySetNKDiss
	ENTRY VDKeyStatus
	ENTRY VDOutControl
	ENTRY VDOutGetStd
	ENTRY VDOutSetStd
	ENTRY VDOutStatus
	ENTRY VDReset
	ENTRY VDShutDown
	ENTRY VDStartup
	ENTRY VDStatus
	ENTRY VDVersion
	ENTRY Wait
	ENTRY slot

	TITLE 'Video I/O Overlay Tool Set'
		;KEEP VD
		;absaddr on
	PRINT NOGEN
	PRINT NOSYM
	PAGESIZE 70
	MACHINE M65816


	longa on
	longi on
	INCLUDE 'all.macros'
	INCLUDE 'equates.asm'

	EXPORT VDMain
VDMain	PROC
;
FPT	DC.L (ENDFPT-FPT)/4
	DC.L VDBootInit-1	1
	DC.L VDStartup-1	2
	DC.L VDShutDown-1	3
	DC.L VDVersion-1	4
	DC.L VDReset-1	5
	DC.L VDStatus-1	6
	DC.L NotImp-1	7
	DC.L NotImp-1	8
	DC.L VDInStatus-1	$09
	DC.L VDInSetStd-1	$0a
	DC.L VDInGetStd-1	$0b
	DC.L VDInConvAdj-1	$0c
	DC.L VDKeyControl-1	$0d
	DC.L VDKeyStatus-1	$0e
	DC.L VDKeySetKCol-1	$0f
	DC.L VDKeyGetKRCol-1 $10
	DC.L VDKeyGetKGCol-1 $11
	DC.L VDKeyGetKBCol-1 $12
	DC.L VDKeySetKDiss-1 $13
	DC.L VDKeyGetKDiss-1 $14
	DC.L VDKeySetNKDiss-1 $15
	DC.L VDKeyGetNKDiss-1 $16
	DC.L VDOutSetStd-1	$17
	DC.L VDOutGetStd-1	$18
	DC.L VDOutControl-1	$19
	DC.L VDOutStatus-1	$1a

	DC.L VDGetFeatures-1 $1b
	DC.L VDInControl-1	$1c
	DC.L VDGGControl-1	$1d
	DC.L VDGGStatus-1	$1e

ENDFPT		; 
	ENDP

;
;           copy  VDInit.asm	 ;Housekeeping routines



	TITLE 'Video I/O Overlay Manager Init. Routines'


;______________________________________________________________________________
;
;        VDBootInit
;
;       input: none
;
;      output: none
;______________________________________________________________________________

	EXPORT VDBootInit
VDBootInit	PROC


	lda #0	;system
	pha
	lda #TheTool	;tool 33
	pha
	PushLong #0
	_SetWAP	;set WAP to zero
	lda #0
	clc
	rtl

	ENDP


;______________________________________________________________________________
;
;        VDStartup
;
;       input: ProgramID:WORD - ID to use with the Memory Manager
;
;      output: none
;______________________________________________________________________________

	EXPORT VDStartup
VDStartup	PROC
		;using data


;Save processor status
	jsl IncBusyFlg	;inc. busy flag
	php
;Save the users data bank register on the stack
	phb	;save data bank reg.
	phk	;push programs bank
	plb	;set data bank to programs bank

	ldx #ActvMask	;get active bit to be ored in
	stx ActDeact	;set for activate

	tax	;save info in x
	and #SlotMask	;only want slot value
	sta slot
	beq error	;branch if no device found

	ldy #AlreadyStarted	;assume error
	txa	;get info back

	bmi errorAS	;branch if already started
	jmp oksofar
ErrorY	tay	;put error in y
ErrorAS		; 
	jsl $e10068	;dec. busy flag
	jmp Rid0	;return with error


error		; 
;
;We arrive here if the WAP hasnt already been set, so look for message
;
;First get a new handle for message to go into
	PushLong #0	;space for result
	PushLong #20	;size of message in	bytes
	PushWord #$4021	;User ID for memory	manager
	PushWord #$c018	;attributes, locked
	PushLong #0	;address (not used)
	_NewHandle	;get a new handle
	sta ERRORX
	PullLong MyMessHdl	;save message handle
	ldy ERRORX
	bne ErrorAS

;Now get the message from the message center
	PushWord #2	;get message
	PushWord #MessNo
	PushLong MyMessHdl	;My Message Handle (data area)
	_MessageCenter
	bcs NoMessage	;branch if no message or error

;Clear out message signature so we wont	think we got one
	lda #0
	sta MyMessSig
	sta MyMessSig
;We arrive here when the message has been found, so lets see if it's really
;mine
	PushLong MyMessHdl	;handle to the message
	PushLong #MyMessData ;Pointer to My message data area
	PushLong #20	;No. of bytes
	_HandToPtr	;copy message into my data area
	bcs NoMessage	;branch if error

;Now check the signature for $21211212
	lda MyMessSig
	cmp #$2121
	bne MessError	;branch if not mine
	lda MyMessSig+2
	cmp #$1212
	bne MessError	;branch if not mine

;Now see if the slot is not zero (zero if video overlay card not found)
	ldy #Novideodevice	;error, no device found
	sty ErrorX
	lda MessSlot
	and #SlotMask	;look at slot
	beq NoCdMesg	;branch if bad slot

;Now take out the slot no. and status from message
	lda MessSlot	;good slot
	jmp oksofar

;
;We arrive here if there was no message	or incorrect message or error
NoMessage		; 
MessError		; 

;
;Now see if card is	there (takes lots of time)
;

;Now get zero page for finding the card
	PushLong #0	;space for result
	PushLong #10	;size of direct page needed
	PushWord #$4021	;User ID for memory	manager
	PushWord #$c005	;attributes, locked
	PushLong #0	;address
	_NewHandle	;get a new handle
	sta ERRORX	;save error

	PullLong ZPHandle	;save zero page handle
	lda ErrorX	;get error
	bne NoCdFound	;branch if error occured

	phd	;save current D
	PushLong ZPHandle	;put handle back onto stack
	tsc	;turn stack into direct page
	tcd
	lda [1]	;deref the pointer
	sta ErrorX
	tcd	;set to new direct page
	pla	;get long off stack
	pla	;get long off stack
	jsr FindCard
	pld	;restore direct page
	lda slot	;get slot (not zero	if found)
	bne NowAddMess	;branch if found card
	ldy #Novideodevice	;error, no device found
	sty ErrorX

;We arrive here when there was no message and was unable to	find the card
NoCdFound		; 
	PushLong ZPHandle
	_DisposeHandle
NoCdMesg		; 
	PushLong MyMessHdl
	_DisposeHandle
	jsl $e10068	;dec. busy flag
	ldy ErrorX
	jmp Rid0

NowAddMess		; 
;OK, we found the card, now add the message
	ora ActDeact	;or on active bit
	sta MessSlot	;set slot fields of	message
	EXPORT ChgMess
ChgMess		;       
	lda #$2121
	sta MyMessSig	;setup signature
	lda #$1212
	sta MyMessSig+2

;Now move the data to the handle
	PushLong #MyMessData ;Pointer to My message data area
	PushLong MyMessHdl	;handle to the message
	PushLong #20	;No. of bytes
	_PtrToHand	;copy message into my data area

;Now send the message to the message center
	PushWord #1	;add message
	PushWord #MessNo
	PushLong MyMessHdl	;My Message Handle (data area)
	_MessageCenter

	lda slot	;get slot no.

oksofar		; 

	ora ActDeact	;or on active bit if activate
	tax	;save for now
;**************************
	lda #0	;system
	pha
	lda #TheTool	;tool 33
	pha
	lda #0	;high word
	pha
	txa	;get active and TMO	flag and slot
	pha
	_SetWAP
;**************************
	PushLong MyMessHdl
	_DisposeHandle
	
;**This determines the video mode NTSC/PAL
	ldx #NTSC	;assume its NTSC
	lda >LANGSEL	;get softswitch (language select)
	and #$0010	;and out all but NTSC/PAL bit
	beq wasNTSC	;branch if was NTSC
	ldx #PAL
wasNTSC	stx VideoStd	;save at video standard

	
	jsl $e10068	;dec. busy flag

	ldy #0
	jmp Rid0


	EXPORT ERRORX
ERRORX		;       
	DS.B 2

	EXPORT ActDeact
ActDeact		;       
	DS.B 2	;space to store if active or deactive

	EXPORT MyMessHdl
MyMessHdl		;       
	DS.B 4	;My message handle save area

ZPHandle	DS.B 4	;My zero page handle save area

	EXPORT MyMessData
MyMessData		;       
	DS.B 4	;Reserved Space LONG
	DS.B 2	;Reserved Space WORD
	EXPORT MyMessSig
MyMessSig		;       
	DS.B 4	;My signature $21211212
	EXPORT MessSlot
MessSlot		;       
	DS.B 2	;15-active,8-flag, 0-7 slot
	DS.B 10	;Extra Space for now
	
	EXPORT VideoStd
VideoStd
	DS.B 2	;saved video standard area (NTSC or PAL)
	ENDP

;______________________________________________________________________________
;
;        VDVersion
;
;       input: none
;
;      output: Version:WORD - This tools version number
;______________________________________________________________________________

	EXPORT VDVersion
VDVersion	PROC

Version	equ 7	; stack relative

	lda #TheVDVersionNum
	sta Version,s
	lda #0
	clc
	rtl
	ENDP


;______________________________________________________________________________
;
;        VDShutDown
;
;       input: none
;
;      output: none
;______________________________________________________________________________

	EXPORT VDShutDown
VDShutDown	PROC


	jsl IncBusyFlg	;inc. busy flag
;Save processor status, turn off interrupts
	php

	phb
	phk
	plb

	cmp #0	;get status
	bpl ErrorOut	;do nothing if not active
	and #$7fff	;and off active bit	(bit-15)
	sta slot
	sta MessSlot

;First get a new handle for message to go into
	PushLong #0	;space for result
	PushLong #20	;size of message in	bytes
	PushWord #$4021	;User ID for memory	manager
	PushWord #$c018	;attributes, locked
	PushLong #0	;address (not used)
	_NewHandle	;get a new handle
	sta ErrorX	;save error
	PullLong MyMessHdl	;save message handle
	ldy ErrorX
	beq oktogo
ErrorOut		; 
	jsl $e10068	;dec. busy flag
	ldy #0
	jmp Rid0	;return without updating message

oktogo		; 
	ldx #0
	stx ActDeact	;set for deactive
	jmp ChgMess	;go update message

	ENDP


;______________________________________________________________________________
;
;        VDReset
;
;       input: none
;
;      output: none
;______________________________________________________________________________

	EXPORT VDReset
VDReset	PROC

	lda #0
	clc
	rtl
	ENDP


;_____________________________________________________________________________
;
;        VDStatus
;
;       input: none
;
;      output: status:WORD - TRUE if the tool set is initialized
;______________________________________________________________________________

	EXPORT VDStatus
VDStatus	PROC

SigRtn	equ 7

	rol a	;active bit into carry
	rol a	;active bit into bit-0
	and #$0001	;and out all but bit-0 (active bit)
	sta SigRtn,s	;put on stack

	lda #0
	clc
	rtl
	ENDP
;_____________________________________________________________________________
;
;        NotImp
;
;       input: none
;
;      output: none
;______________________________________________________________________________

	EXPORT NotImp
NotImp	PROC

	txa	; tool set number and function were
;		; in X on entry
	xba	; Tool set number in LSB, move to MSB
	ora #$00FF	; FF for error code
	sec	; indicate error on	return
	rtl
	ENDP

;_____________________________________________________________________________
;
;        FindCard
;
;     purpose: To determine the presence of the Apple II Video Overlay Card
;
;       input: none
;
;      output: none
;        NOTE: This	routine requires a direct page
;        NOTE: Upon	return slot will contain the slot number (zero if not found)
;        NOTE: This	routine turns off interrupts for around	1/6 of a second.
;______________________________________________________________________________

	EXPORT FindCard
FindCard	PROC
	php	;save status
	sei	;turn off interrupts

	lda Reg_ptr_lo	;save direct page values
	sta Saved_ZP
	lda Reg_ptr_lo+2
	sta Saved_ZP+2
	lda Reg_ptr_lo+4
	sta Saved_ZP+4
;Now see if card is	there
	longa off
	longi off
	sep #$30	;8-bit mode

	jsr Get_Mach_Info	;go get machine info (TRON out there?)

	rep #$30	;16-bit mode
	longi on
	longa on

	lda Saved_ZP	;restore zero page stuff
	sta Reg_ptr_lo
	lda Saved_ZP+2
	sta Reg_ptr_lo+2
	lda Saved_ZP+4
	sta Reg_ptr_lo+4

	plp	;restore status
	rts

Saved_ZP	DS.B 6	;zero page saved area

	EXPORT SLOT
SLOT		;       
	DC.B $00
	DC.B $00	;high byte (for 16-bit loads)

	ENDP



;           COPY  PRESENCE.ASM	 ;TRON PRESENCE TEST ROUTINES
	EXPORT Data
Data	PROC

	EXPORT proc_type
proc_type	DS.B 1

	EXPORT stat_addr_hi
stat_addr_hi	DC.B $C0

	EXPORT stat_addr_lo
stat_addr_lo	DC.B $00
	DC.B $90
	DC.B $A0
	DC.B $B0
	DC.B $C0
	DC.B $D0
	DC.B $E0
	DC.B $F0

	EXPORT rom_addr_hi
rom_addr_hi	DC.B $C1
	EXPORT rom_addr_lo
rom_addr_lo	DC.B $00

	EXPORT min_accept
min_accept	DS.B 1
	EXPORT max_accept
max_accept	DS.B 1

	EXPORT range_result
range_result	DS.B 1
	EXPORT success_count
success_count	DS.B 1
	EXPORT temp
temp	DS.B 1
	EXPORT is_result
is_result	DS.B 1
	EXPORT delay_temp
delay_temp	DS.B 1

	ENDP







******************************************************************************************
; determine machine	type (code passed in X by MACH_TEST)
; store result in global proc_type
******************************************************************************************
	EXPORT MACHINE_TYPE
MACHINE_TYPE	PROC
		;using   equates
		;using   data
	longa off	;use 8-bit Acc
	longi off	;use 8-bit index reg.
	JSR MACH_TEST
	STX proc_type
	RTS
	ENDP



















***********************************************************************************

;CODE TO FIND SLOT TRON CARD IS IN

***********************************************************************************


***********************************************************************************************
;Monitor status bit	until it shows a 1.	 If no 1 after 255 passes of
;WAIT_FOR_ONE, fail	(0 is returned in A).  If 1 shows within time range, call
;TIME_0_TO_1 to monitor time it takes to go high again.  This time (0->1) will
;determine if this is the TRON status register or not.
********************************************************************************

	EXPORT Wait_for_1
Wait_for_1	PROC
		;using   equates
		;using   data
	longa off	;use 8-bit Acc
	longi off	;use 8-bit index reg.

	LDY #$00
	LDX #$00

WAIT_FOR_ONE	INX
	BEQ NO_CHANGE1
	lda #$05
	jsr Wait	;about 140us delay
	LDA [reg_ptr_lo],Y
	AND #stat_mask
	CMP #stat_mask
	BNE WAIT_FOR_ONE

	jsr Time_0_to_1

NO_CHANGE1	TXA
	RTS
	ENDP










***********************************************************************************************
;Wait for a 0 (if not already 0) and find number of loops it takes to get 1
;If no 0 within 255	passes of WAIT_FOR_0, fail (0 is returned in A)
;Otherwise count # of passes of HAVE_A_O it takes to get a 0.  Return number in	A.
;If no 1 within 255	passes of HAVE_A_0,	fail (0 is returned	in A)
***********************************************************************************************
	EXPORT TIME_0_TO_1
TIME_0_TO_1	PROC
		;using   equates
		;using   data
	longa off	;use 8-bit Acc
	longi off	;use 8-bit index reg.

	LDY #$00
	LDX #$00

WAIT_FOR_0	INX
	BEQ NO_CHANGE2
	lda #$02
	jsr WAIT	;about a 49us delay
	LDA [reg_ptr_lo],Y
	AND #stat_mask
	CMP #$00
	BNE WAIT_FOR_0
	LDX #$00

HAVE_A_0	INX	;2
	BEQ NO_CHANGE2
	lda #$05
	jsr wait	;about a 140us delay
	LDA [reg_ptr_lo],Y	;4
	AND #stat_mask	;2
	CMP #stat_mask	;2
	BNE HAVE_A_0	;3

NO_CHANGE2	TXA
	RTS
	ENDP










***********************************************************************************************
;Looks at bit 2 of status.  If it's zero, wait for a one and then, when a 0
;shows again, time 0-->1.  If its's one, wait for a zero and then find time it
;takes to change to	1.  Then number of loops required for 0-->1 will be
;returned in A.  If	a time-out is discovered, a 0 is returned.
********************************************************************************
	EXPORT Time_VBL
Time_VBL	PROC
		;using   equates
		;using   data
	longa off	;use 8-bit Acc
	longi off	;use 8-bit index reg.

	TYA	;save Y on stack
	PHA
	LDY #$00
	LDA [reg_ptr_lo],Y
	AND #stat_mask
	CMP #$00
	BEQ IS_ZERO	;if it's zero, wait for a one and find the time it takes
;		        ;to change to a 0
	JSR TIME_0_TO_1
	JMP DONE1
IS_ZERO	JSR Wait_for_1
DONE1	STA temp	;save A since we need A to pull from stack
	PLA
	TAY	;restore Y
	LDA temp
	RTS
	ENDP







***********************************************************************************************
;routine to check if value in A is < max_accept and > min_accept
;input ---  A (value to check)
;      ---  min_accept, max_accept (min	and max values)
;output --  range_result (#$00 if fail,	#$01 if pass)
***********************************************************************************************

	EXPORT WITHIN_RANGE
WITHIN_RANGE	PROC
		;using   equates
		;using   data
	longa off	;use 8-bit Acc
	longi off	;use 8-bit index reg.

	CMP min_accept
	BMI FAIL1
	CMP max_accept
	BPL FAIL1
	LDA #$01
	STA range_result
	JMP DONE2

FAIL1	LDA #$00
	STA range_result

DONE2	RTS
	ENDP
















;*****************************************************************************
;
;
;*****************************************************************************

	EXPORT TEST
TEST	PROC
		;using   equates
		;using   data
	longa off	;use 8-bit Acc
	longi off	;use 8-bit index reg.

	lda #$00
	sta reg_ptr_hi+1
	LDA #$C0
	STA reg_ptr_hi
	LDA #$B0
	STA reg_ptr_lo
	LDY #$00
test_again	JSR TIME_VBL
	CLC
	ADC #$B0
;               JSR	    cout
	INY
	CPY #$05
	BNE test_again
	RTS
	ENDP









***********************************************************************************************
;RUN_10 runs TIME_SCAN_INT 10 times. If	card passes 10 times in a row, it's a TRON
***********************************************************************************************

	EXPORT RUN_10
RUN_10	PROC
		;using   equates
		;using   data
	longa off	;use 8-bit Acc
	longi off	;use 8-bit index reg.

	LDA #$00
	STA success_count
REPEAT	JSR Time_VBL
	JSR WITHIN_RANGE
	LDA range_result
	BEQ FAIL3
	INC success_count
	LDA success_count
	CMP #test_count
	BNE REPEAT
FAIL3	RTS
	ENDP











***********************************************************************************************
;Determines if slot	indicated by rom_ptr has non-disk ROM ID
;input -- ROM address in rom_ptr_lo and	rom_ptr_hi
;output -- A is 0 if not non-disk ROM, 1 if it is
***********************************************************************************************

	EXPORT IS_NON_DISK
IS_NON_DISK	PROC
		;using   equates
		;using   data
	longa off	;use 8-bit Acc
	longi off	;use 8-bit index reg.

	TYA	;save Y on stack
	PHA
	LDY #$05
	LDA [rom_ptr_lo],Y
	CMP #$38
	BNE FAIL4
	LDY #$07
	LDA [rom_ptr_lo],Y
	CMP #$18
	BNE FAIL4
	LDY #$0B
	LDA [rom_ptr_lo],Y
	CMP #$01
	BNE FAIL4
	LDY #$0C
	LDA [rom_ptr_lo],Y	;check for 80 column card.  If it is, fail..
	CMP #$88	;this slot needs to	be checked for TRON.. 
	BEQ FAIL4	;since TRON could be in slot 3
	LDA #$01
	STA is_result
	JMP DONE
FAIL4	LDA #$00
	STA is_result
DONE	PLA	;restore Y
	TAY
	LDA is_result
	RTS
	ENDP









***********************************************************************************************
;Determines if slot	indicated by rom_ptr has non-disk ROM ID
;input -- ROM address in rom_ptr_lo and	rom_ptr_hi
;output -- A is 0 if not disk ROM, 1 if	it is
***********************************************************************************************


	EXPORT IS_DISK
IS_DISK	PROC
		;using   equates
		;using   data
	longa off	;use 8-bit Acc
	longi off	;use 8-bit index reg.

	TYA	;save Y on stack
	PHA
	LDY #$01
	LDA [rom_ptr_lo],Y
	CMP #$20
	BNE FAIL5
	LDY #$03
	LDA [rom_ptr_lo],Y
	CMP #$00
	BNE FAIL5
	LDY #$05
	LDA [rom_ptr_lo],Y
	CMP #$03
	BNE FAIL5
	LDA #$01
	STA is_result
	JMP DONE
FAIL5	LDA #$00
	STA is_result
DONE	PLA	;restore Y
	TAY
	LDA is_result
	RTS
	ENDP










***********************************************************************************************    
;Test C(8+s)00 bit 2 to see if it is toggling at a rate between lower and upper	bound.  Output 
;number of any slots that pass test.  Bit 2 is the VBL status in TRON status
;register.
***********************************************************************************************
	EXPORT FIND_TRON
FIND_TRON	PROC
		;using   equates
		;using   data
	longa off	;use 8-bit Acc
	longi off	;use 8-bit index reg.

	lda #0
	sta slot	;init. slot not found
	sta rom_ptr_hi+1
	sta reg_ptr_hi+1	;set banks to zero
	LDA rom_addr_hi
	STA rom_ptr_hi
	LDA rom_addr_lo
	STA rom_ptr_lo
	LDA stat_addr_hi
	STA reg_ptr_hi
	LDY #$01	;init. slot to try

NEXT_SLOT	JSR IS_NON_DISK	;see if slot contains non-disk device ROM ID
	BNE FAIL6
	JSR IS_DISK	;see if slot contains disk device ROM ID
	BNE FAIL6
	LDA stat_addr_lo,Y
	STA reg_ptr_lo
	JSR RUN_10
	LDA success_count
	CMP #test_count
	BNE FAIL6
	TYA
	STA slot
	rts

FAIL6	INY
	INC rom_ptr_hi	;point to next card's rom
	CPY #not_a_slot
	BNE NEXT_SLOT

	RTS
	ENDP

*********************************************************************************** 




;****************************************************************************
; This performs the	same as a firmware WAIT routine
;****************************************************************************
	EXPORT WAIT
WAIT	PROC
		;using   equates
		;using   data
	longa off	;use 8-bit Acc
	longi off	;use 8-bit index reg.
	sec	;enter with count in A-reg.
Wait2	pha	;delay is:
Wait3	sbc #$01
	bne Wait3	;13+11*A+5*A*A cycles
	pla	;at 1.023 usec per cycle
	sbc #$01
	bne Wait2
	rts
	ENDP






***********************************************************************************************
; get machine-dependent info (processor	type and TRON card slot #)
; MACHINE_TYPE gets	processor type, FIND_SLOT gets TRON slot #
***********************************************************************************************

	EXPORT GET_MACH_INFO
GET_MACH_INFO	PROC
		;using   equates
		;using   data
	longa off	;use 8-bit Acc
	longi off	;use 8-bit index reg.

	lda >$00C036	;get soft switch speed ctrl
	sta save_speed	;save it for latter
	and #$7f	;force to slow speed
	sta >$00c036	;now we are running	slow

	JSR MACH_TEST	;find processor type
	STX proc_type
	TXA
	BNE NOT_IIGS	;if MACH_TEST returns 0, it's a IIGS (65186) machine
	LDA #min_IIGS
	STA min_accept
	LDA #max_IIGS
	STA max_accept
	JMP RUN_FIND_TRON
NOT_IIGS	LDA #min_IIe
	STA min_accept
	LDA #max_IIe
	STA max_accept
RUN_FIND_TRON		; 
	JSR FIND_TRON	;find slot TRON is in


	lda save_speed	;get saved speed value
	and #$80	;only look at speed	bit
	beq was_slow	;branch if was already slow speed
	lda >$00C036	;get soft switch speed ctrl
	ora #$80	;force back to fast	speed
	sta >$00c036	;now we are running	fast again



was_slow		; 
	LDA slot
	BNE FOUND_TRON
	JMP DONE
FOUND_TRON		; 
	tay
	lda Stat_addr_lo,y	;get low byte of slots address
	sta slot
DONE	RTS

Save_Speed	DS.B 1	;saved system speed	value
	ENDP


;****************************************************************************************
;determine machine (processor) type of the machine that is running this program		    
;input --- none
;output -- machine type code in X register.  0=II_GS, 1=65C02 machine, 2=6502 machine.

	EXPORT MACH_TEST
MACH_TEST	PROC
	longa off	;use 8-bit Acc
	longi off	;use 8-bit index reg.

II_GS	EQU $00
SIXTY_5C02	EQU $01
SIXTY_502	EQU $02


	SED
	LDA #$99
	CLC
	ADC #$01
	BMI ITS_A_6502

	CLC
	XCE
	BCC ITS_A_65C02

ITS_A_GS	SEC	;set emul mode...
	XCE	;
	SEP #$30	;8 bit accum, index
	LDX #II_GS	;load ii_gs id number
	JMP DONE

ITS_A_65C02	LDX #SIXTY_5C02
	JMP DONE

ITS_A_6502	LDX #SIXTY_502

DONE	CLD
	RTS

	longa on	;use 16-bit Acc
	longi on	;use 16-bit index reg.
	ENDP



;           copy  Features.asm	 ;Features routine

;______________________________________________________________________________
;
;        MDGetFeatures
;
;       input: wordspace:WORD - Space for result
;              Selector:WORD - Selects which feature info. to return
;
;      output: VDFeature:WORD - Feature	information
;______________________________________________________________________________

	EXPORT VDGetFeatures
VDGetFeatures	PROC
		;using Equates

SavedBank	equ 2
RTL1	equ SavedBank+1
RTL2	equ RTL1+3
Selector	equ RTL2+3
VDFeature	equ Selector+2


;Save processor status, turn off interrupts
	php
;Save the users data bank register on the stack
	phb	;save data bank reg.
	phk	;push programs bank
	plb	;set data bank to programs bank

	ldy #InvalidSelect	;assume invalid selector error
	lda Selector,s	;get selector value
	beq Ridjump	;branch if invalid ($0000 passed)
	cmp #LastFeature	;see if selector is	valid
	bcc goodselect	;branch if selector	fine
	lda #NotAvail	;if beyond list, force not available
	bra Force_NotA

GoodSelect	
	asl A	;multiply by two
	tax	;use as index into table
;**For NTSC/PAL
	lda VideoStd	;get video standard
	cpx #6	;is it InVStandards?
	beq @1	;branch if it was (returns determined video standard)
	cpx #8	;is it OutVStandards?
	beq @1	;branch if it was (returns determined video standard)
	lda FeatureTbl-2,x	;get feature from table
@1	ldy #0	;indicate no errors
Force_NotA		; 
	sta VDFeature,s	;store as returned value
RidJump	jmp Rid2

;---------------------
;Features table
;--------------------
FeatureTbl		; 
	DC.W Avail	;VideoOverlay
	DC.W NotAvail	;FrameGrabber
	DC.W NTSC	;InVStandards
	DC.W NTSC	;OutVStandards
	DC.W 8	;KeyDissLevels
	DC.W 8	;NKeyDissLevels
	DC.W Yes	;AdjSideEffect
	DC.W 4	;KeyColorBits
	DC.W Avail	;InHueAdj
	DC.W Avail	;InSatAdj
	DC.W NotAvail	;InContrastAdj
	DC.W NotAvail	;InBrightAdj
	DC.W Avail	;OutSetup
	DC.W Avail	;OutChromFltr
	DC.W Avail	;OutExtBlank
	DC.W Avail	;KeyEnhDiss
	DC.W Avail	;LineInterrupts
	DC.W Avail	;GGBus
	DC.W Avail	;DualOut
	DC.W Avail	;TextMonoOver
	ENDP
;------------------------------------------------------------------------------
;
; Rid code (gets rid of passed parameters off the stack)
;
;-----------------------------------------------------------------------------
	EXPORT Rid
Rid	PROC
;------------------------------------------------------------------------------
;Gets rid of no paramters
;------------------------------------------------------------------------------
	EXPORT Rid0
Rid0		;       
	plb	;restore users data	bank
	plp	;restore processor status (interrupts)
Rid0X		; 
	tya	;get error (if any)
	sec	;assume error
	beq noerror	;branch if no error
	rtl	;return with error
noerror		; 
	clc	;indicate no errors
	rtl

;------------------------------------------------------------------------------
;Gets rid of 2-bytes worth of paramters
;------------------------------------------------------------------------------
	EXPORT Rid2
Rid2		;       
	plb	;restore users data	bank
	plp
	lda 5,s
	sta 5+2,s
	lda 3,s
	sta 3+2,s
	lda 1,s
	sta 1+2,s
	pla
	bra Rid0X

;------------------------------------------------------------------------------
;Gets rid of 4-bytes worth of paramters
;------------------------------------------------------------------------------
	EXPORT Rid4
Rid4		;       
	plb	;restore users data	bank
	plp
	lda 5,s
	sta 5+4,s
	lda 3,s
	sta 3+4,s
	lda 1,s
	sta 1+4,s
	pla
	pla
	bra Rid0X

;------------------------------------------------------------------------------
;Gets rid of 6-bytes worth of paramters
;------------------------------------------------------------------------------
	EXPORT Rid6
Rid6		;       
	plb	;restore users data	bank
	plp
	lda 5,s
	sta 5+6,s
	lda 3,s
	sta 3+6,s
	lda 1,s
	sta 1+6,s
	pla
	pla
	pla
	bra Rid0X

	ENDP



;           copy  Input.asm	 ;Input routines
;______________________________________________________________________________
;
;        VDInControl
;              (Sets the video input control values)
;
;      input:  Selector:WORD - Selects which input control value to set
;              InCtrlValue:WORD - The input control value
;
;      output: None
;______________________________________________________________________________

	EXPORT VDInControl
VDInControl	PROC
		;using Equates

SavedBank	equ 2
RTL1	equ SavedBank+1
RTL2	equ RTL1+3
InCtrlValue	equ RTL2+3
Selector	equ InCtrlValue+2


;Save processor status, turn off interrupts
	php
;Save the users data bank register on the stack
	phb	;save data bank reg.
	phk	;push programs bank
	plb	;set data bank to programs bank

;Now get slot number from WAP
	and #SlotMask	;and out all but slot no. from WAP
	sta slot

	ldy #InvalidParam	;assume invalid 'InCtrlvalue'
	lda InCtrlValue,s	;get control value
	tax	;save in x for now
	beq OkValue	;branch if ok
	cpx #1
	beq OkValue
	jmp not4	;not a vailid parameter

OkValue		; 
	ldy #InvalidSelect	;assume bad selector error
	lda Selector,s	;get selector value

	cmp #Genlock
	bne not4	;branch if not Genlock select

;----------------------
; GenLock selected
;----------------------
	longa off
	longi off
	sep #$30
	phx	;save x
	ldx slot	;get slot card is in
	lda >$00c005,x
	plx	;restore x
	and #$df	;and it out (assume	its enabled)
	cpx #1	;see if enabled
	beq GLjmp	;branch if enabled
	ora #$20	;or it disabled
GLjmp		; 
	ldx slot
	sta >$00c005,x

	rep #$30
	longi on
	longa on


OutOK	ldy #0	;indicate no errors
not4		; 
	jmp Rid4

	ENDP
;______________________________________________________________________________
;
;        VDInStatus
;              (Gets the current input status information)
;
;      Input:  WordSpace: WORD, Space for result
;              Selector: WORD, Selects what to status
;
;      output: InStatus: Word, Current Status Value
;______________________________________________________________________________

	EXPORT VDInStatus
VDInStatus	PROC
		;using Equates

SavedBank	equ 2
RTL1	equ SavedBank+1
RTL2	equ RTL1+3
Selector	equ RTL2+3
InStatus	equ Selector+2


;Save processor status, turn off interrupts
	php
;Save the users data bank register on the stack
	phb	;save data bank reg.
	phk	;push programs bank
	plb	;set data bank to programs bank

;Now get slot number from WAP
	and #SlotMask	;and out all but slot no. from WAP
	sta slot

	ldx #0	;assume disabled
	ldy #InvalidSelect	;assume bad selector error
	lda Selector,s	;get selector value

	cmp #GenLock
	bne not2	;branch if not Genlock

;----------------------
; Genlock selected
;----------------------
	longa off
	longi off
	sep #$30
	ldx slot	;get slot no.
	lda >$00c005,x
	ldx #0
	and #$20	;and it out (assume	its enabled)
	bne GLjmp	;branch if enabled
	ldx #1
GLjmp		; 

	rep #$30
	longi on
	longa on

	jmp OutOK	;return without errors


not2	cmp #VideoDetect
	bne not3	;branch if not videodetect

;----------------------
; Video Detect selected
;----------------------
	longa off
	longi off
	sep #$30

	ldx slot
	lda >$00c000,x
	ldx #0
	and #$08	;and it out (assume	its disabled)
	beq VDjmp	;branch if disabled
	ldx #1	;it was enabled
VDJmp		; 

	rep #$30
	longi on
	longa on
	bra OutOK	;return without errors

not3	cmp #GenLocked
	bne not4	;branch if invalid selector

;----------------------
; GenLocked Selected
;----------------------
	longa off
	longi off
	sep #$30

	ldx slot
	lda >$00c000,x
	ldx #0
	and #$10	;and it out (assume	its external)
	beq JLkjmp	;branch if genlocked
	ldx #1	;it wasn't
JLkJmp		; 

	rep #$30
	longi on
	longa on

OutOK	ldy #0	;indicate no errors
	txa
	sta InStatus,s	;set returned value
not4		; 
	jmp Rid2

	ENDP
;______________________________________________________________________________
;
;        VDInSetStd
;              (Sets the video composite input standard.)
;
;      Input:  VDInSetStd:WORD, Video input standard
;
;      output: None
;______________________________________________________________________________

	EXPORT VDInSetStd
VDInSetStd	PROC
		;using Equates

SavedBank	equ 2
RTL1	equ SavedBank+1
RTL2	equ RTL1+3
InSetStd	equ RTL2+3



;Save processor status, turn off interrupts
	php
;Save the users data bank register on the stack
	phb	;save data bank reg.
	phk	;push programs bank
	plb	;set data bank to programs bank

	ldy #InvalidParam	;assume invalid for	now

	lda InSetStd,s	;get input standard
;**For PAL/NTSC
	cmp VideoStd	;is it the determined video standard
	bne notgood
	ldy #0	;was good
notgood		; 
	jmp Rid2

	ENDP
;______________________________________________________________________________
;
;        VDInGetStd
;              (Gets the currently selected video composite	input standard.)
;
;      Input:  WordSpace: WORD, Space for result
;
;      output: InStandard: WORD, current video output standard
;______________________________________________________________________________

	EXPORT VDInGetStd
VDInGetStd	PROC
		;using Equates

SavedBank	equ 2
RTL1	equ SavedBank+1
RTL2	equ RTL1+3
InStandard	equ RTL2+3



;Save processor status, turn off interrupts
	php
;Save the users data bank register on the stack
	phb	;save data bank reg.
	phk	;push programs bank
	plb	;set data bank to programs bank

;**For PAL/NTSC
	lda VideoStd	;get determined video standard
	sta InStandard,s

	ldy #0
	jmp Rid0

	ENDP
;______________________________________________________________________________
;
;        VDInConvAdj
;              (Performs video input adjustment)
;
;      input:  Selector:WORD - Selects which input control value to set
;              AdjFunction:WORD - The function to perform
;
;      output: None
;______________________________________________________________________________

	EXPORT VDInConvAdj
VDInConvAdj	PROC
		;using Equates

SavedBank	equ 2
RTL1	equ SavedBank+1
RTL2	equ RTL1+3
AdjFunction	equ RTL2+3
Selector	equ AdjFunction+2


;Save processor status, turn off interrupts
	php
;Save the users data bank register on the stack
	phb	;save data bank reg.
	phk	;push programs bank
	plb	;set data bank to programs bank

;Now get slot number from WAP
	and #SlotMask	;and out all but slot no. from WAP
	sta slot

	lda Selector,s	;get selector value
	ldx #8	;get XICOR select bit
	cmp #InHueAdj
	beq OkValue	;branch if ok

	ldx #4	;get XICOR Sat. bit
	cmp #InSatAdj
	beq OkValue	;branch if ok

	ldy #InvalidSelect	;assume invalid selector
	jmp not4	;not a vailid selector

OkValue		; 
	ldy #InvalidParam	;assume bad parameter error
	lda AdjFunction,s	;get selector value

	cmp #AdjSave
	bne not1	;branch if not a save function

;----------------------
; AdjSave selected
;----------------------
	longa off
	longi off
	sep #$30

	phx
	ldx slot
	lda #0
	sta >$00c006,x	;force a save to occur
	plx

	rep #$30
	longa on
	longi on
	bra OutOK

not1	cmp #AdjInc
	bne not2	;branch if not an AdjInc

;----------------------
; AdjInc selected
;----------------------

	txa
	longa off
	longi off
	sep #$30

	phx
	ldx slot
	sta >$00c006,x	;set the initial bits
	nop
	nop
	nop
	nop
	nop
	ora #$01	;turn on step bit
	sta >$00c006,x
	nop
	nop
	nop
	nop
	nop
	and #$fe
	sta >$00c006,x
	plx

	rep #$30
	longa on
	longi on
	bra OutOK

not2	cmp #AdjDec
	bne not4	;branch if not an AdjDec

;----------------------
; AdjDec Selected
;----------------------

	txa
	longa off
	longi off
	sep #$30
	ora #02	;or in dec.

	phx
	ldx slot
	sta >$00c006,x	;set the initial bits
	nop
	nop
	nop
	nop
	nop
	ora #$01	;turn on step bit
	sta >$00c006,x
	nop
	nop
	nop
	nop
	nop
	and #$fe	;turn off step bit
	sta >$00c006,x
	plx

	rep #$30
	longa on
	longi on


OutOK	ldy #0	;indicate no errors
not4		; 
	jmp Rid4

	ENDP



;           copy  Keyer.asm	 ;Keyer routines
;______________________________________________________________________________
;
;        VDKeyControl
;              (Sets the keyer control values)
;
;      input:  Selector:WORD - Selects which keyer control value to set
;              KeyerCtrlVal:WORD - The keyer control value
;
;      output: None
;______________________________________________________________________________

	EXPORT VDKeyControl
VDKeyControl	PROC
		;using Equates

SavedBank	equ 2
RTL1	equ SavedBank+1
RTL2	equ RTL1+3
KeyerCtrlVal	equ RTL2+3
Selector	equ KeyerCtrlVal+2


;Save processor status, turn off interrupts
	php
;Save the users data bank register on the stack
	phb	;save data bank reg.
	phk	;push programs bank
	plb	;set data bank to programs bank

;Now get slot number from WAP
	and #SlotMask	;and out all but slot no. from WAP
	sta slot

	ldy #InvalidParam	;assume invalid 'InCtrlvalue'
	lda KeyerCtrlVal,s	;get control value
	tax	;save in x for now
	beq OkValue	;branch if ok
	cpx #1
	beq OkValue
	jmp not4	;not a vailid parameter

OkValue		; 
	ldy #InvalidSelect	;assume bad selector error
	lda Selector,s	;get selector value

	cmp #KColorEnable
	bne not1	;branch if not Key color enable

;----------------------
; Key color enable selected
;----------------------
	longa off
	longi off
	sep #$30

	phx
	ldx slot
	lda >$00c005,x
	plx
	and #$bf	;and it out (assume	its enabled)
	cpx #1	;is it enabled?
	beq KCjmp	;branch if enabled
	ora #$40	;or it disabled
KCjmp		; 
	ldx slot
	sta >$00c005,x

	rep #$30
	longi on
	longa on
	bra OutOk

not1	cmp #KeyEnhDiss
	bne not4	;branch if not Key color enable

;----------------------
; Enhanced Dissolve	was selected
;----------------------
	longa off
	longi off
	sep #$30

	phx
	ldx slot
	lda >$00c003,x
	plx
	and #$f7	;and it out (assume	its disabled)
	cpx #1
	bne EDjmp	;branch if want disabled
	ora #$08	;or it enable
EDjmp		; 
	ldx slot
	sta >$00c003,x

	rep #$30
	longi on
	longa on



OutOK	ldy #0	;indicate no errors
not4		; 
	jmp Rid4

	ENDP
;______________________________________________________________________________
;
;        VDKeyStatus
;              (Gets the current Keyer control status information)
;
;      Input:  WordSpace: WORD, Space for result
;              Selector: WORD, Selects what to status
;
;      output: KeyerStatus: Word, Current Status Value
;______________________________________________________________________________

	EXPORT VDKeyStatus
VDKeyStatus	PROC
		;using Equates

SavedBank	equ 2
RTL1	equ SavedBank+1
RTL2	equ RTL1+3
Selector	equ RTL2+3
KeyerStatus	equ Selector+2


;Save processor status, turn off interrupts
	php
;Save the users data bank register on the stack
	phb	;save data bank reg.
	phk	;push programs bank
	plb	;set data bank to programs bank

;Now get slot number from WAP
	and #SlotMask	;and out all but slot no. from WAP
	sta slot

	ldx #0	;assume disabled
	ldy #InvalidSelect	;assume bad selector error
	lda Selector,s	;get selector value

	cmp #KColorEnable
	bne not2	;branch if not key color enable

;----------------------
; Key color enable selected
;----------------------
	longa off
	longi off
	sep #$30

	ldx slot
	lda >$00c005,x
	ldx #0
	and #$40	;and it out (assume	its enabled)
	bne GLjmp	;branch if enabled
	ldx #1	;show disabled
GLjmp		; 

	rep #$30
	longi on
	longa on

	jmp OutOK	;return without errors


not2	cmp #KeyEnhDiss
	bne not4	;branch if not enhanced dissolve

;----------------------
; Enhanced dissolve	selected
;----------------------
	longa off
	longi off
	sep #$30

	ldx slot
	lda >$00c003,x
	ldx #0
	and #$08	;and it out (assume	its disabled)
	beq VDjmp	;branch if disabled
	ldx #1	;it was enabled
VDJmp		; 

	rep #$30
	longi on
	longa on

OutOK	ldy #0	;indicate no errors
	txa
	sta KeyerStatus,s	;set returned value
not4		; 
	jmp Rid2

	ENDP
;______________________________________________________________________________
;
;        VDKeySetKCol
;              (Sets the key color value)
;
;      Input:  RedValue:Word, Red component of control color
;              GreenValue:Word, Green component of control color
;              BlueValue:Word, Blue component of control color
;
;      output: None
;______________________________________________________________________________

	EXPORT VDKeySetKCol
VDKeySetKCol	PROC
		;using Equates

SavedBank	equ 2
RTL1	equ SavedBank+1
RTL2	equ RTL1+3
BlueValue	equ RTL2+3
GreenValue	equ BlueValue+2
RedValue	equ GreenValue+2


;Save processor status, turn off interrupts
	php
;Save the users data bank register on the stack
	phb	;save data bank reg.
	phk	;push programs bank
	plb	;set data bank to programs bank

;Now get slot number from WAP
	and #SlotMask	;and out all but slot no. from WAP
	sta slot

	lda RedValue,s	;get red value
	lsr a
	lsr a
	lsr a
	lsr a
	sei	;turn off interrupts
	sta SaveitR

	lda BlueValue,s	;get blue part
	xba
	lsr a
	lsr a
	lsr a
	lsr a
	and #$000f
	sta saveit	;save it for now
	lda GreenValue,s	;get green part
	xba
	and #$00f0	;and out unwanted bits
	ora saveit	;or in blue bits

	longa off
	longi off
	sep #$30

	ldx slot
	sta >$00c004,x	;set blue and green

	lda >$00c005,x
	and #$f0
	ora saveitR+1	;or in red part
	sta >$00c005,x

	rep #$30
	longi on
	longa on

	ldy #0
	jmp Rid6

Saveit	DS.B 2
SaveitR	DS.B 2
	ENDP
;______________________________________________________________________________
;
;        VDKeyGetKRCol
;              (Gets the Red component of the key color)
;
;      Input:  WordSpace: WORD
;
;      output: RedValue: WORD
;______________________________________________________________________________

	EXPORT VDKeyGetKRCol
VDKeyGetKRCol	PROC
		;using Equates

SavedBank	equ 2
RTL1	equ SavedBank+1
RTL2	equ RTL1+3
RedValue	equ RTL2+3


;Save processor status, turn off interrupts
	php
;Save the users data bank register on the stack
	phb	;save data bank reg.
	phk	;push programs bank
	plb	;set data bank to programs bank

;Now get slot number from WAP
	and #SlotMask	;and out all but slot no. from WAP
	sta slot

	longa off
	longi off
	sep #$30

	ldx slot
	lda >$00c005,x	;get red part of key color

	rep #$30
	longi on
	longa on


	xba	;put into high byte
	asl a
	asl a
	asl a
	asl a
	and #$f000	;mask out unwanted bits

	sta RedValue,s	;put onto stack to return

	ldy #0
	jmp Rid0

	ENDP
;______________________________________________________________________________
;
;        VDKeyGetKGCol
;              (Gets the Green component of the key color)
;
;      Input:  WordSpace: WORD
;
;      output: GreenValue: WORD
;______________________________________________________________________________

	EXPORT VDKeyGetKGCol
VDKeyGetKGCol	PROC
		;using Equates

SavedBank	equ 2
RTL1	equ SavedBank+1
RTL2	equ RTL1+3
GreenValue	equ RTL2+3


;Save processor status, turn off interrupts
	php
;Save the users data bank register on the stack
	phb	;save data bank reg.
	phk	;push programs bank
	plb	;set data bank to programs bank

;Now get slot number from WAP
	and #SlotMask	;and out all but slot no. from WAP
	sta slot

	longa off
	longi off
	sep #$30

	ldx slot
	lda >$00c004,x	;get green part of key color

	rep #$30
	longi on
	longa on


	xba	;put into high byte
	and #$f000	;mask out unwanted bits

	sta GreenValue,s	;put onto stack to return

	ldy #0
	jmp Rid0

	ENDP
;______________________________________________________________________________
;
;        VDKeyGetKBCol
;              (Gets the Blue component	of the key color)
;
;      Input:  WordSpace: WORD
;
;      output: BlueValue: WORD
;______________________________________________________________________________

	EXPORT VDKeyGetKBCol
VDKeyGetKBCol	PROC
		;using Equates

SavedBank	equ 2
RTL1	equ SavedBank+1
RTL2	equ RTL1+3
BlueValue	equ RTL2+3


;Save processor status, turn off interrupts
	php
;Save the users data bank register on the stack
	phb	;save data bank reg.
	phk	;push programs bank
	plb	;set data bank to programs bank

;Now get slot number from WAP
	and #SlotMask	;and out all but slot no. from WAP
	sta slot

	longa off
	longi off
	sep #$30

	ldx slot
	lda >$00c004,x	;get blue part of key color

	rep #$30
	longi on
	longa on


	xba	;put into high byte
	asl a
	asl a
	asl a
	asl a
	and #$f000	;mask out unwanted bits

	sta BlueValue,s	;put onto stack to return

	ldy #0
	jmp Rid0

	ENDP
;______________________________________________________________________________
;
;        VDKeySetKDiss
;              (Sets the key colors dissolve value)
;
;      Input:  KDissolve:Word, Key colors dissolve value (15-0)
;
;      output: None
;______________________________________________________________________________

	EXPORT VDKeySetKDiss
VDKeySetKDiss	PROC
		;using Equates

SavedBank	equ 2
RTL1	equ SavedBank+1
RTL2	equ RTL1+3
KDissolve	equ RTL2+3



;Save processor status, turn off interrupts
	php
;Save the users data bank register on the stack
	phb	;save data bank reg.
	phk	;push programs bank
	plb	;set data bank to programs bank

;Now get slot number from WAP
	and #SlotMask	;and out all but slot no. from WAP
	sta slot

	ldx #0
	lda KDissolve,s
	cmp #5462
	bcc got_it
	inx
	cmp #16384
	bcc got_it
	inx
	cmp #27308
	bcc got_it
	inx
	inx
	cmp #38230
	bcc got_it
	inx
	cmp #49152
	bcc got_it
	inx
	cmp #60075
	bcc got_it
	inx
Got_it		; 
	sei	;turn off interrupts
	stx saveit
	longa off
	longi off
	sep #$30

	ldx slot
	lda >$00c003,x	;get dissolve value
	and #$f8	;and out old dissolve value
	ora saveit	;or in new bits

	sta >$00c003,x	;save new key colors dissolve

	rep #$30
	longi on
	longa on

	ldy #0
	jmp Rid2

Saveit	DS.B 2
	ENDP
;______________________________________________________________________________
;
;        VDKeyGetKDiss
;              (Gets the key colors dissolve value)
;
;      Input:  WordSpace: WORD, Space for result
;
;      output: KDissolve: WORD, Current	key colors dissolve	value
;______________________________________________________________________________

	EXPORT VDKeyGetKDiss
VDKeyGetKDiss	PROC
		;using Equates

SavedBank	equ 2
RTL1	equ SavedBank+1
RTL2	equ RTL1+3
KDissolve	equ RTL2+3



;Save processor status, turn off interrupts
	php
;Save the users data bank register on the stack
	phb	;save data bank reg.
	phk	;push programs bank
	plb	;set data bank to programs bank

;Now get slot number from WAP
	and #SlotMask	;and out all but slot no. from WAP
	tax

	lda >$00c003,x	;get dissolve value	from card
	and #$0007	;look only at dissolve bits
	asl a	;times 2 (16 bit table)
	tax	;use as index
	lda DissTable,x	;get entry from table
	sta KDissolve,s

	ldy #0
	jmp Rid0

	EXPORT DissTable
DissTable		;       
	DC.W 0	;0
	DC.W 5462
	DC.W 16384
	DC.W 27308
	DC.W 27308
	DC.W 38230
	DC.W 49152
	DC.W 65535

	ENDP
;______________________________________________________________________________
;
;        VDKeySetNKDiss
;              (Sets the nonkey colors dissolve value)
;
;      Input:  NKDissolve:Word, nonKey colors dissolve value (15-0)
;
;      output: None
;______________________________________________________________________________

	EXPORT VDKeySetNKDiss
VDKeySetNKDiss	PROC
		;using Equates

SavedBank	equ 2
RTL1	equ SavedBank+1
RTL2	equ RTL1+3
NKDissolve	equ RTL2+3



;Save processor status, turn off interrupts
	php
;Save the users data bank register on the stack
	phb	;save data bank reg.
	phk	;push programs bank
	plb	;set data bank to programs bank

;Now get slot number from WAP
	and #SlotMask	;and out all but slot no. from WAP
	sta slot

	ldx #0
	lda NKDissolve,s
	cmp #5462
	bcc got_it
	inx
	cmp #16384
	bcc got_it
	inx
	cmp #27308
	bcc got_it
	inx
	inx
	cmp #38230
	bcc got_it
	inx
	cmp #49152
	bcc got_it
	inx
	cmp #60075
	bcc got_it
	inx
Got_it		; 
	txa
	asl a	;put bits 0-3 to 4-6
	asl a
	asl a
	asl a
	sei	;turn off interrupts
	sta saveit

	longa off
	longi off
	sep #$30	;8-bit mode now


	ldx slot
	lda >$00c003,x	;get dissolve value
	and #$8f	;and out old dissolve value
	ora saveit

	sta >$00c003,x	;save new nonkey colors dissolve

	rep #$30
	longi on
	longa on

	ldy #0
	jmp Rid2
saveit	DS.B 2
	ENDP
;______________________________________________________________________________
;
;        VDKeyGetNKDiss
;              (Gets the nonkey colors dissolve value)
;
;      Input:  WordSpace: WORD, Space for result
;
;      output: NKDissolve: WORD, Current nonkey colors dissolve value
;______________________________________________________________________________

	EXPORT VDKeyGetNKDiss
VDKeyGetNKDiss	PROC
		;using Equates

SavedBank	equ 2
RTL1	equ SavedBank+1
RTL2	equ RTL1+3
NKDissolve	equ RTL2+3



;Save processor status, turn off interrupts
	php
;Save the users data bank register on the stack
	phb	;save data bank reg.
	phk	;push programs bank
	plb	;set data bank to programs bank


;Now get slot number from WAP
	and #SlotMask	;and out all but slot no. from WAP
	tax

	lda >$00c003,x	;get dissolve value	from card
	and #$0070	;look only at dissolve bits
	lsr a
	lsr a
	lsr a
	tax	;use as index
	lda DissTable,x	;get entry from table
	sta NKDissolve,s


	ldy #0
	jmp Rid0

	ENDP




;           copy  Output.asm	 ;Output routines
;______________________________________________________________________________
;
;        VDOutSetStd
;              (Sets the video composite output standard.)
;
;      Input:  OutStandard:WORD, Video output standard
;
;      output: None
;______________________________________________________________________________
	EXPORT VDOutSetStd
VDOutSetStd	PROC
		;using Equates

SavedBank	equ 2
RTL1	equ SavedBank+1
RTL2	equ RTL1+3
OutSetStd	equ RTL2+3


;Save processor status, turn off interrupts
	php

;Save the users data bank register on the stack
	phb	;save data bank reg.
	phk	;push programs bank
	plb	;set data bank to programs bank

;Now get slot number from WAP
	and #SlotMask	;and out all but slot no. from WAP
	sta slot

	ldy #InvalidParam	;assume invalid for	now

	lda OutSetStd,s	;get output standard
;**For PAL/NTSC
	cmp VideoStd	;is it the determined video standard?
	bne notgood
	ldy #0	;was good
notgood		; 
	jmp Rid2

	ENDP
;______________________________________________________________________________
;
;        VDOutGetStd
;              (Gets the currently selected video composite	output standard.)
;
;      Input:  WordSpace: WORD, Space for result
;
;      output: OutStandard: WORD, current video output standard
;______________________________________________________________________________

	EXPORT VDOutGetStd
VDOutGetStd	PROC
		;using Equates

SavedBank	equ 2
RTL1	equ SavedBank+1
RTL2	equ RTL1+3
OutStandard	equ RTL2+3


;Save processor status
	php

;Save the users data bank register on the stack
	phb	;save data bank reg.
	phk	;push programs bank
	plb	;set data bank to programs bank

;**For PAL/NTSC
	lda VideoStd	;get the determined video standard
	sta OutStandard,s

	ldy #0
	jmp Rid0

	ENDP
;______________________________________________________________________________
;
;        VDOutControl
;              (Sets the video composite output control values)
;
;      Input:  Selector: WORD, Selects which control to set
;              OutCtrlValue: WORD, The value to set
;
;      output: None
;______________________________________________________________________________

	EXPORT VDOutControl
VDOutControl	PROC
		;using Equates

SavedBank	equ 2
RTL1	equ SavedBank+1
RTL2	equ RTL1+3
OutCtrlValue	equ RTL2+3
Selector	equ OutCtrlValue+2


;Save processor status, turn off interrupts
	php
	sei	;turn off interrupts
;Save the users data bank register on the stack
	phb	;save data bank reg.
	phk	;push programs bank
	plb	;set data bank to programs bank

	sta TMOFlag	;save WAP value
;Now get slot number from WAP
	and #SlotMask	;and out all but slot no. from WAP
	sta slot

	ldy #InvalidParam	;first assume bad parameter
	lda OutCtrlValue,s	;get control value
;Now check passed value for true or false (and External/Graphics)
	beq OK_value
	cmp #true
	beq OK_value
	jmp Rid4	;return with Invalid Param

OK_value	tax	;save in x for now
	ldy #InvalidSelect	;assume bad selector error
	lda Selector,s	;get selector value

	cmp #TextMonoOver
	bne not1	;branch if not TextMonoOver

;----------------------
; TextMonoOver selected
;----------------------
	cpx #0	;see if disabled
	bne NotDeTMO	;branch if enable

;Disable TextMonoOver
	lda TMOFlag
	and #NotTMOMask	;and off TMO bit
	sta TMOFlag
	jsr SetupWAP	;go set the new WAP

	longa off
	longi off
	sep #$30
	ldx slot
;1. Get and save current page select bits
	lda >$00c001,x	;get current value
	pha	;save it for now

;2. Clear page0 and	set page1
	and #$cf	;and out page0 and page1
	ora #$24	;or on page1 and luma pre_filter
	sta >$00c001,x
	nop
	nop
;3. Turn off page 1
	and $cf
	sta >$00c001,x	;turn page1 off
	nop
	nop
;4. Restore page select bits
	pla	;get old value
	sta >$00c001,x	;restore value
	rep #$30
	longi on
	longa on

	jmp OutOk

NotDeTMO		; ;enable TextMonoOver

	lda TMOFlag
	ora #TMOMask	;or on TMO bit
	sta TMOFlag
	jsr SetupWAP	;go set the new WAP

	ldx slot
;1. Wait for vertical interval
	longa off
	longi off
	sep #$30

	cli	;enable interrupts while waiting
notVByet	lda >$00c000,x
	and #$04	;and it out other bits
	beq notVByet	;wait for vertical blank
	sei	;disable interrupts	for now
;2. Clear page0 and	set page1
	lda >$00c001,x
	and #$cf	;and out page0 and page1
	ora #$24	;or on page1 and luma pre_filter
	sta >$00c001,x
	nop
	nop
;3. Toggle luma prefilter from ON to OFF, then ON again.
	nop	;wait alittle
	and #$fb	;turn off luma pre_filter
	sta >$00c001,x
	nop
	nop
	nop
	ora #$24
	sta >$00c001,x	;turn on luma pre_filter
	nop
	nop
;4. Turn off page 1
	and $cf
	sta >$00c001,x	;turn page1 off
	rep #$30
	longi on
	longa on

	jmp OutOK	;return without errors

not1	cmp #OutChromaFltr
	bne not2	;branch if not OutChromafltr

;----------------------
; OutChroma Filter selected
;----------------------
	longa off
	longi off
	sep #$30

	phx
	ldx slot
	lda >$00c001,x
	plx
	and #$fb	;and it out (assume	its disabled)
	cpx #0
	bne CFjmp	;branch if disabled
	ora #$04	;or it enabled
CFjmp		; 
	ldx slot
	sta >$00c001,x

	rep #$30
	longi on
	longa on
	bra OutOK	;return without errors

not2	cmp #OutSetup
	bne not3	;branch if not outsetup

;----------------------
; Output Setup selected
;----------------------
	longa off
	longi off
	sep #$30

	phx
	ldx slot
	lda >$00c003,x
	plx
	and #$7f	;and it out (assume	its disabled)
	cpx #0
	bne Setupjmp	;branch if disabled
	ora #$80	;or it enabled
SetupJmp		; 
	ldx slot
	sta >$00c003,x

	rep #$30
	longi on
	longa on
	bra OutOK	;return without errors

not3	cmp #OutExtBlank
	bne not4	;branch if invalid selector

;----------------------
; Blanking source select selected
;----------------------
	longa off
	longi off
	sep #$30

	phx
	ldx slot
	lda >$00c005,x
	plx
	and #$ef	;and it out (assume	its disabled)
	cpx #0
	bne SSjmp	;branch if disabled
	ora #$10	;or it enabled
SSJmp		; 
	ldx slot
	sta >$00c005,x

	rep #$30
	longi on
	longa on

OutOK	ldy #0	;indicate no errors
not4		; 
	jmp Rid4

	EXPORT TMOFlag
TMOFlag		;       
	DC.W 0	;text mono over flag (saved area)
	DC.B 0	;needed (dont delete)

	EXPORT SetupWAP
SetupWAP		;       
;**************************
	lda #0	;system
	pha
	lda #33	;tool 33
	pha
	lda #0	;high word
	pha
	lda TMOFlag	;get slot (low word)
	pha
	_SetWAP
;**************************
	rts
	ENDP
;______________________________________________________________________________
;
;        VDOutStatus
;              (Gets the current video composite output control status)
;
;      Input:  WordSpace: WORD, Space for result
;              Selector: WORD, Selects which control to set
;
;      output: OutStatus: Word, Current	Status Value
;______________________________________________________________________________

	EXPORT VDOutStatus
VDOutStatus	PROC
		;using Equates

SavedBank	equ 2
RTL1	equ SavedBank+1
RTL2	equ RTL1+3
Selector	equ RTL2+3
OutStatus	equ Selector+2


;Save processor status, turn off interrupts
	php
	sei	;turn off interrupts
;Save the users data bank register on the stack
	phb	;save data bank reg.
	phk	;push programs bank
	plb	;set data bank to programs bank

	sta TMOFlag	;save WAP
;Now get slot number from WAP
	and #SlotMask	;and out all but slot no. from WAP
	sta slot

	ldx #0	;assume disabled
	ldy #InvalidSelect	;assume bad selector error
	lda Selector,s	;get selector value

	cmp #TextMonoOver
	bne not1	;branch if not TextMonoOver

;----------------------
; TextMonoOver selected
;----------------------
	lda TMOFlag+1	;get TMO from saved	WAP
	and #$0001
	tax	;x=0 or x=1 now
	jmp OutOK	;return without errors

not1	cmp #OutChromaFltr
	bne not2	;branch if not OutChromafltr

;----------------------
; OutChroma Filter selected
;----------------------
	longa off
	longi off
	sep #$30

	phx
	ldx slot
	lda >$00c001,x
	plx
	and #$04	;and it out (assume	its disabled)
	bne CFjmp	;branch if disabled
	ldx #1	;it was enabled
CFjmp		; 

	rep #$30
	longi on
	longa on
	bra OutOK	;return without errors

not2	cmp #OutSetup
	bne not3	;branch if not outsetup

;----------------------
; Output Setup selected
;----------------------
	longa off
	longi off
	sep #$30

	phx
	ldx slot
	lda >$00c003,x
	plx
	and #$80	;and it out (assume	its disabled)
	bne Setupjmp	;branch if disabled
	ldx #1	;it was enabled
SetupJmp		; 

	rep #$30
	longi on
	longa on
	bra OutOK	;return without errors

not3	cmp #OutExtBlank
	bne not4	;branch if invalid selector

;----------------------
; Blanking source select selected
;----------------------
	longa off
	longi off
	sep #$30

	phx
	ldx slot
	lda >$00c005,x
	plx
	and #$10	;and it out (assume	its external)
	bne SSjmp	;branch if external
	ldx #1	;it was graphics (internal)
SSJmp		; 

	rep #$30
	longi on
	longa on
	bra OutOK	;return without errors

not4	cmp #VerticalBlank
	bne not5	;branch if invalid

;----------------------
; VerticalBlank selected
;----------------------
	longa off
	longi off
	sep #$30

	phx
	ldx slot
	lda >$00c000,x
	plx
	and #$04	;and it out (assume	its external)
	bne VBSjmp	;branch if external
	ldx #1	;it was graphics (internal)
VBSjmp		; 

	rep #$30
	longi on
	longa on

OutOK	ldy #0	;indicate no errors
	txa
	sta OutStatus,s	;set returned value
not5		; 
	jmp Rid2

	ENDP



;           copy  GG.asm	 ;Graphics Generator routines
;______________________________________________________________________________
;
;        VDGGControl
;              (Sets the graphics generator control values)
;
;      Input:  Selector: WORD, Selects which control to set
;              OutCtrlValue: WORD, The value to set
;
;      output: None
;______________________________________________________________________________

	EXPORT VDGGControl
VDGGControl	PROC
		;using Equates

SavedBank	equ 2
RTL1	equ SavedBank+1
RTL2	equ RTL1+3
GGCtrlValue	equ RTL2+3
Selector	equ GGCtrlValue+2

;Save processor status, turn off interrupts
	php
	sei	;turn off interrupts
;Save the users data bank register on the stack
	phb	;save data bank reg.
	phk	;push programs bank
	plb	;set data bank to programs bank

	sta TMOFlag
;Now get slot number from WAP
	and #SlotMask	;and out all but slot no. from WAP
	sta slot

	ldy #InvalidSelect	;assume bad selector error
	lda GGCtrlValue,s	;get control value
	tax	;save in x for now
	lda Selector,s	;get selector value

	cmp #MainPageLin
	bne not1	;branch if not MainPageLin

;----------------------
; MainPageLin was selected
;----------------------
	longa off
	longi off
	sep #$30

	phx
	ldx slot
	lda >$00c001,x
	plx
	and #$f7	;and it out (assume	its disabled)
	cpx #0
	beq MPjmp	;branch if disabled
	ora #$08	;or it enabled
MPjmp		; 
	ldx slot
	sta >$00c001,x

	rep #$30
	longi on
	longa on

	jmp OutOK	;return without errors

not1	cmp #RamPageSel
	bne not2	;branch if not OutChromafltr

;----------------------
; RamPageSel selected
;
;Note:
;Bit-4     Bit-5
;0         0	Aux. memory
;1         0	Main memory
;1         1	Interlaced
;----------------------

	cpx #Main	;see if main
	beq leavealone	;branch if doesn't affect

	phx	;save x-reg.
	lda TMOFlag
	and #NotTMOMask	;and off TMO bit
	sta TMOFlag
	jsr SetupWAP	;go set the new WAP
	plx	;restore x-reg.


leavealone		; 
	longa off
	longi off
	sep #$30

	phx
	ldx slot
	lda >$00c001,x
	plx
	and #$cf	;and it out (assume	its Aux. memory)
	cpx #Aux
	beq RPjmp	;branch if Aux
	cpx #Main
	bne Intlm	;branch if not main
	ora #$10	;or it as main
	jmp RPjmp
Intlm	cpx #Interlace
	bne ErrorJ	;branch if invalid parameter
	ora #$30	;or it as interlace

RPjmp		; 
	ldx slot
	sta >$00c001,x
	rep #$30

	jmp OutOK	;return without errors
ErrorJ		; 
	rep #$30
	longi on
	longa on
	ldy #InvalidParam	;incase of an error
	jmp Error	;jump to error

not2	cmp #VBLInterrupt
	bne not3	;branch if not VBLInterrupt select

;----------------------
; VBLInterrupt enable selected
;----------------------
	longa off
	longi off
	sep #$30

	phx
	ldx slot
	lda >$00c001,x
	plx
	and #$bf	;and it out (assume	its disabled)
	cpx #false
	beq VBLjmp	;branch if disabled
	cpx #true
	bne ErrorJ
	ora #$40	;or it enabled
VBLJmp		; 
	ldx slot
	sta >$00c001,x

	rep #$30
	longi on
	longa on
	jmp OutOK	;return without errors

not3	cmp #InterlaceMode
	bne not4	;branch if not InterlaceMode

;----------------------
; Interlace mode was selected
;----------------------
	longa off
	longi off
	sep #$30

	phx
	ldx slot
	lda >$00c005,x
	plx
	and #$7f	;and it out (assume	its disabled)
	cpx #0
	beq IMjmp	;branch if disabled
	ora #$80	;or it enabled
IMJmp		; 
	ldx slot
	sta >$00c005,x

	rep #$30
	longi on
	longa on
	jmp OutOK

not4	cmp #ClearVBLInt
	bne not5	;branch if not ClearVBLInt

;----------------------
; ClearVBLInt was selected
;----------------------
	longa off
	longi off
	sep #$30
	lda #0
	ldx slot
	sta >$00c000,x	;clear vbl interrupts

	rep #$30
	longi on
	longa on
	jmp OutOk

not5	cmp #LineInterrupts
	bne not6	;branch if not

;----------------------
; LineInterrupt was	selected
;----------------------
	cpx #disable
	bne LIEnable	;branch if enableing them

;Disable line interrupts
	longa off
	longi off
	sep #$30

	ldx slot
	lda >$00c001,x
	and #$7f
	sta >$00c001,x	;clear MegaII/VGC interrupts

	rep #$30
	longi on
	longa on

	jmp OutOk

;Enabling line interrupts
LIEnable		; 
	cpx #enable
	beq LIEOK
	jmp ErrorJ	;branch if not enable or disable
LIEOK		; 
	longa off
	longi off
	sep #$30
;1. Save the current processor status and disable interrutps
	php	;save processor status
	sei	;disable interrupts
;2. Save the GGBus status and then enable it
	ldx slot
	lda >$00c001,x
	pha	;save GG for now
	ora #$01	;disable the fifos
	sta >$00c001,x
;3. Save the state of the VGC interrupt	register
	lda >$00c023
	pha	;save VGC for now too
;4. Enable scan_line interrupts, disable 1 sec and external	interrupts
	and #$fb	;disable 1-sec. interrupts
;??????????????disable external interrupts
	ora #$02	;turn on scan line interrupts
	sta >$00c023
;5. Disable the GGBus
	lda >$00c001,x
	and #$fe	;enable the fifos
	sta >$00c001,x
;6. Restore saved VGC interrupt register, but clear line_interrupt enable bit
	pla	;get saved VGC interrupt register
	and #$fd	;and out scan_line interrupts
	sta >$00c023
;7. Restore GGBus
	pla	;get saved GGBus value
	sta >$00c001,x
;8. Enable Pokeys VGC interrupts
	lda >$00c001,x
	ora #$80
	sta >$00c001,x
;9. Restore processor status
	plp	;restore processor status

	rep #$30
	longi on
	longa on
	jmp OutOk

not6	cmp #ClearLineInt
	bne not7	;branch if not

;----------------------
; ClearLineInt was selected
;----------------------
	cpx #0
	beq CLI_OK
	jmp ErrorJ	;branch if Nil not passed
CLI_OK		; 
	longa off
	longi off
	sep #$30

;1. Save the current processor status and disable interrutps
	php	;save processor status
	sei	;disable interrupts
;2. Save the GGBus status and then enable it
	ldx slot
	lda >$00c001,x
	pha	;save it for now
	ora #$01	;disable the fifos
	sta >$00c001,x
;3. Clear the VGC line interrupt (c032 bit5)
	lda >$00c032
	and #$df
	sta >$00c032
;4. Restore GGBus
	pla	;get saved value back
	sta >$00c001,x
;5. Restore processor status
	plp	;restore processor status

	rep #$30
	longi on
	longa on
	jmp OutOk

not7	cmp #GGBus
	bne not8	;branch if not

;----------------------
; GGBus was selected
;----------------------
	longa off
	longi off
	sep #$30

	phx
	ldx slot
	lda >$00c001,x
	plx
	and #$fe	;and it out (assume	its disabled)
	cpx #disable
	beq GGBjmp	;branch if disabled
	cpx #enable
	beq GGB_OK
	jmp ErrorJ
GGB_OK		; 
	ora #$01	;or it enabled
GGBjmp		; 
	ldx slot
	sta >$00c001,x

	rep #$30
	longi on
	longa on


OutOK	ldy #0	;indicate no errors
not8		; 
Error		; 
	jmp Rid4

	ENDP
;______________________________________________________________________________
;
;        VDGGStatus
;              (Gets the current status	of the graphics generator control)
;
;      Input:  WordSpace: WORD, Space for result
;              Selector: WORD, Selects which control to set
;
;      output: GGGetStatus: Word, Current Status Value
;______________________________________________________________________________

	EXPORT VDGGStatus
VDGGStatus	PROC
		;using Equates

SavedBank	equ 2
RTL1	equ SavedBank+1
RTL2	equ RTL1+3
Selector	equ RTL2+3
GGGetStatus	equ Selector+2


;Save processor status, turn off interrupts
	php
;Save the users data bank register on the stack
	phb	;save data bank reg.
	phk	;push programs bank
	plb	;set data bank to programs bank

;Now get slot number from WAP
	and #SlotMask	;and out all but slot no. from WAP
	sta slot

	ldx #0	;assume disabled
	ldy #InvalidSelect	;assume bad selector error
	lda Selector,s	;get selector value

	cmp #MainPageLin
	bne not1	;branch if not MainPageLin

;----------------------
; MainPageLin was selected
;----------------------
	longa off
	longi off
	sep #$30

	phx
	ldx slot
	lda >$00c001,x
	plx
	and #$08	;and it out (assume	its disabled)
	beq MPjmp	;branch if disabled
	ldx #1	;indicate enabled
MPjmp		; 

	rep #$30
	longi on
	longa on

	jmp OutOK	;return without errors

not1	cmp #RamPageSel
	bne not2	;branch if not OutChromafltr

;----------------------
; RamPageSel selected
;
;Note:
;Bit-4     Bit-5
;0         0	Aux. memory
;1         0	Main memory
;1         1	Interlaced
;----------------------


	longa off
	longi off
	sep #$30

	ldx slot
	lda >$00c001,x
	and #$30	;and it out
	tax
	rep #$30
	longi on
	longa on
	jmp OutOK	;return without errors

not2	cmp #VBLInterrupt
	bne not3	;branch if not VBLInterrupt select

;----------------------
; VBLInterrupt enable selected
;----------------------
	longa off
	longi off
	sep #$30

	phx
	ldx slot
	lda >$00c001,x
	plx
	and #$40	;and it out (assume	its disabled)
	beq VBLjmp	;branch if disabled
	ldx #1	;indicate its enabled
VBLJmp		; 

	rep #$30
	longi on
	longa on
	jmp OutOK	;return without errors

not3	cmp #InterlaceMode
	bne not4	;branch if not InterlaceMode

;----------------------
; Interlace mode was selected
;----------------------
	longa off
	longi off
	sep #$30

	phx
	ldx slot
	lda >$00c005,x
	plx
	and #$80	;and it out (assume	its disabled)
	beq IMjmp	;branch if disabled
	ldx #1	;indicate its enabled
IMJmp		; 

	rep #$30
	longi on
	longa on
	jmp OutOK	;return without errors

Not4	cmp #DisplayField
	bne not5	;branch if not

;----------------------
; DisplayField was selected
;----------------------
	longa off
	longi off
	sep #$30

	phx
	ldx slot
	lda >$00c000,x
	plx
	and #$20	;and it out (assume	its disabled)
	beq DFjmp	;branch if disabled
	ldx #1	;indicate enabled
DFjmp		; 

	rep #$30
	longi on
	longa on

	jmp OutOK	;return without errors

not5	cmp #VBLIntRequest
	bne not6	;branch if not

;----------------------
; VBLIntRequest selected
;----------------------


	longa off
	longi off
	sep #$30

	phx
	ldx slot
	lda >$00c000,x
	plx
	and #$40	;and it out
	beq Isnoton	;branch if not on
	ldx #1
Isnoton		; 
	rep #$30
	longi on
	longa on
	jmp OutOk

not6	cmp #LineInterrupts
	bne not7	;branch if not

;----------------------
; LineInterrupt was	selected
;----------------------
	longa off
	longi off
	sep #$30

*** 11-Feb-91 DAL.  This wasn't quite right before.  It wasn't doing the
*** REP #$30 before jumping to OutOk, and it wasn't loading X with 0 or 1
*** (it was returning 0 or $80 instead).  Let's try it again.
***
***	ldx slot
***	lda >$00c001,x
***	and #$80
***
***	tax
***	jmp OutOk
***
***	rep #$30
***	longi on
***	longa on

	phx
	ldx slot
	lda >$00c001,x
	plx
	rep #$30
	longi on
	longa on

	and #$0080
	beq @isNotOn
	ldx #1
@isNotOn	jmp OutOk

not7	cmp #GGBus
	bne not8	;branch if not

;----------------------
; GGBus was selected
;----------------------
	longa off
	longi off
	sep #$30

	phx
	ldx slot
	lda >$00c001,x
	plx
	ldx #disable
	and #$01	;and it out (assume	its disabled)
	beq GGBjump	;branch if disabled
	ldx #enable
GGBjump		; 

	rep #$30
	longi on
	longa on
	jmp OutOk


not8	cmp #LineIntRequest
	bne not9	;branch if not

;----------------------
; LineIntRequest was selected
;----------------------
	longa off
	longi off
	sep #$30

;First see if the VGC Interrupts are enabled
	phx
	ldx slot
	lda >$00c001,x
	plx
	and #$80
	beq VIRjmp
;Now see if an interrupt is pending
	phx
	ldx slot
	lda >$00c000,x
	plx
	and #$80
	beq VIRjmp
	ldx #1

VIRjmp		; 
	rep #$30
	longi on
	longa on

OutOK	ldy #0	;indicate no errors
	txa
	sta GGGetStatus,s	;set returned value
not9		; 
	jmp Rid2

	ENDP





	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/VideoMix/makefile b/IIGS.601.SRC/GSToolbox/VideoMix/makefile
new file mode 100644
index 0000000..95f0441
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/VideoMix/makefile
@@ -0,0 +1 @@
+### Dependencies for building video mix (Tool033) ###

Tool033		Ä	VD.asm.obj
	Linkiigs 	VD.asm.obj	¶
	-o Tool033 -t TOL
		

VD.asm.obj		Ä		VD.asm    Equates.asm
	Asmiigs	VD.asm


\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/WindMgr/NewCalls.asm b/IIGS.601.SRC/GSToolbox/WindMgr/NewCalls.asm
new file mode 100644
index 0000000..3b2be50
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/WindMgr/NewCalls.asm
@@ -0,0 +1 @@
+**********************************************************************
*
* NewCalls.asm
*
* Copyright (C) 1986-1993 Apple Computer, Inc.
* All rights reserved
*
* Original Code
* by Dan Oliver
*
**********************************************************************
*
* Contains:
*
*	AlertWindow
*	CompileText
*	ErrorWindow
*
*	GetAuxWindInfo	;added 19-Jan-91 Dave Lyons
*	DoModalWindow	;...
*	MWGetCtlPart
*	MWSetMenuProc
*	MWStdDrawProc
*	MWSetUpEditMenu
*	FindCursorCtl
*	ResizeInfoBar	;added 5-Mar-91 DAL
*	HandleDiskInsert	;added 12-Mar-91 DAL
*
**********************************************************************

**********************************************************************
*
* Change History
*
* 22 June 88	Harry Yee
*
* Converted to MAX development system. 
*
* 19 Oct 88	Dan O.
*
* Added internal call compileString.  Made AlertWindow use 
* compileString call.  TaskMasterContent wasn't being called if 
* TM_CONTENT was zero.  TaskMasterContent changed to track only
* top window.
*
* 11/04/88	Dan O.
*
* Implemented alert string as handle or resource in addition to 
* already supported pointer.
*
* XX Jan 89	Konstantin
*
* Error window added to Source.
*
* 21-Sep-90	Dave Lyons
*
* Fixed returned carry status on ErrorWindow.
* Changed hard-coded memory IDs from $1001 to $400E.
* Saved a few bytes here and there (all marked).
*
* 14-Nov-90	Dave Lyons
*
* Working on AlertWindow.  TS3 will use this version.
*
* (done) Bit 3 of flags = ignore icon width in rectangle computation
* (We draw the icon -after- the text now, to support bit 3.)
* Doesn't hang if you have a "^" in your alert text.
*
* 10-Dec-90	Dave Lyons
*
* Added check of xxBounds+x2 before PPToPort code, in case we don't
* have an icon to draw (discovered by Bill Mitchell/Mensch).
*
* 19-Jan-91	Dave Lyons
*
* Adding new call GetAuxWindInfo.
*
* Adding new calls DoModalWindow, MWGetCtlPart, MWSetMenuProc,
* MWStdDrawProc, MWSetUpEditMenu, FindCursorCtl.
*
* 22-Jan-91	Dave Lyons
*
* Finished adding the modal window calls.
*
* 14-Feb-91	Dave Lyons
*
* Bit 31 of the DoModalWindow event hook now translates Apple-period
* into Escape for you.
*
* 15-Feb-91	Dave Lyons
*
* DoModalWindow calls SysBeep2(4) if you click in the wrong window.
* Removed special handling for zero-length text scraps, since these
* no longer cause Line Edit to trash memory.
*
* 17-Feb-91	Dave Lyons
*
* DoModalWindow now calls GetNextEvent with even mask $0FFF, not $FFFF.
* We don't fetch any application events.
*
* 28-Feb-91	Dave Lyons
*
* When GetAuxWindInfo expanded its handle, the calculated size was too
* low by 4 bytes, so it was trashing 4 bytes of memory.
*
* 3-Mar-91	Dave Lyons
*
* Fixed GetAuxWindInfo again; I was really trashing 8 bytes before, and
* 4 after the previous fix.  Now it's 0.
*
* 4-Mar-91	Dave Lyons
*
* AlertWindow now has an update routine!
*
* 7-Mar-91	Dave Lyons
*
* Make AlertWindow beep when you click outside the window.
*
* 9-Mar-91	Dave Lyons
*
* Made ErrorWindow call SysBeep2($CExx) for error numbers $00xx.
* Adding alertSoundBit ($0010) to AlertWindow; calls SysBeep2
* $C05x, except for icon #1 (custom) and #5 (Disk).
*
* Stop and Note (icons #2 and #4) use sound even if you don't set
* the bit asking it to.
*
* 11-Mar-91	Dave Lyons
*
* AlertWindow has key equivalents now.  Default button gets Return,
* "Cancel" button gets ESC, Apple-period equals ESC, and all other
* buttons get the upper- and lower-case versions of their title's
* first letter.  There is no checking for conflicts yet.
*
* 12-Mar-91	Dave Lyons
*
* AlertWindow disk-swap icon gives SysBeep2($C030) instead of $C056
* now, if the alertSound bit is on.
*
* 13-Mar-91	Dave Lyons
*
* Made ErrorWindow with an error >$FF call SysBeep2($CEFF).
* Implemented AlertWindow flag bit $0020, alertSpacingBit.  If you
* set this, your up-to-three buttons get allocated from right to
* left, in lower-right, left-of-lower-right, and way-left order.
*
* If any button has the same first letter as another button, it
* doesn't get a key equivalent.  (Unless it's default or Cancel,
* in which case it gets Return or Apple-period/Esc as usual.)
*
* AlertWindow with the disk-swap icon always calls SysBeep2($C030).
*
* 15-Mar-91	Dave Lyons
*
* For a *default* Cancel button, Return and Esc and Apple-period
* all work for the key equivalent.
*
* 26-Mar-91 	Dave Lyons
*
* AlertWindow flag bit 7 ($0080) makes it call ReleaseResource(3)
* instead of ReleaseResource(-1), so if you locked your resource
* it will stay in memory.
*
* Leading blanks are now tolerated when computing AlertWindow key
* equivalents.
*
* 27-Mar-91	Dave Lyons
*
* AlertWindow window positions are now forced to be at even X
* positions (so that icon dithering comes out right in 640 mode).
*
* 1-Apr-91	Dave Lyons
*
* AlertWindow masks off System Window bit from TaskMaster so that
* clicking in a System window beeps.  Also getting a wInDrag beeps
* (this can happen if you used WindowGlobal to leave a window
* hilited!).
*
* 2-Apr-91	Dave Lyons
*
* Oops, PollForInsertions wasn't conditioning the carry flag after
* calling ScanDevices.
*
* 7-Apr-91	Dave Lyons
*
* AlertWindow bit $0100 forces a disk-insert scan even if there's no
* disk-swap icon.
*
* 8-Apr-91	Dave Lyons
*
* Dang, the 7-Apr addition made it usually display no icon.  Fixed.
*
* 12..13-Apr-91	Dave Lyons
*
* Adding new call HandleDiskInsert.
*
* 14-Apr-91	Dave Lyons
*
* Tweaks to HandleDiskInsert (cursor handling).
*
* 18-Apr-91	Dave Lyons
*
* Made DoModalWindow zero out the MWGetCtlPart value so that we return
* part code zero if no TrackControl was performed (for example, when
* a keypress activates a control with a key equivalent).
*
* After attempting to eject a disk, I now record its *current* status
* rather than always recording it offline if the DControl Eject gave
* me no error.
*
* 21-Apr-91	Dave Lyons
*
* More work on the HandleDiskInsert rename dialog.
*
* Make DoModalWindow update the thing before allowing SysBeep2
* to trigger.
*
* 23-Apr-91	Dave Lyons
*
* Add flag bit to HandleDiskInsert to simulate a duplicate-disk
* error, for use by the Finder.
*
* Fix the above DoModalWindow fix to not be bothered by another
* window's deactivate event.
*
* 30-Apr-91	Dave Lyons
*
* When DoModalWindow calls MWSetMenuProc to get the menu proc, it was
* passing NIL; now it passes $FFFFFFFF.
*
* 8-May-91	Dave Lyons
*
* Fixed major AlertWindow problem where having the separator character
* in a substitution string would fry.  Now I compile the text once,
* search for a character that does not appear anywhere, and use that
* for the separator character.
*
* 9-May-91	Dave Lyons
*
* Increased HandleDiskInsert Volume pCount to 8 so Volume will return
* fileSysID/etc even if a dup-vol error comes back.  So now the right
* number of characters are allowed in the rename-disk edit line.
*
* 20-May-91	Dave Lyons
*
* DoModalWindow--new flag bit mwWantActivate must be set for DoModalWindow
* to return activate/deactivate events.  Otherwise it just eats them for
* speed.  On activate/deactivate, no longer redraws $87FFxxxx controls.
*
* In HandleDiskInsert SetDevStatus, we don't do anything unless
* fDoDeviceScan or fUpdateDevStatus is set in the flags.
*
* HandleDiskInsert RenameVolume gives the user another chance to rename
* the thing if an error occurs.
*
* 21-May-91	Dave Lyons
*
* HandleDiskInsert:  Dim the Rename button when there's no new name
* entered.
*
* 10-Jun-91	Dave Lyons
*
* HandleDiskInsert now calls InitCursor when you hit the Rename
* button.
*
* FindCursorCtl now ignores invisible controls.
*
* 27-Jun-91	Dave Lyons
*
* Fixed AlertWindow to beep if you click in a window's info bar,
* grow box, zoom box, or close box.
*
* 8-Jul-91	Dave Lyons
*
* HandleDiskInsert calls SysBeep2($4033 = sbBadDisk + sbDefer) when
* it detects an I/O error or an unrecognized file system.
*
* 5-Aug-91	Dave Lyons
*
* AlertWindow bit $0200 means there is are four bytes of custom icon
* data, which are an rIcon resource ID.  The icon must be available
* in memory, or online--it must not cause another AlertWindow to pop
* up because the OS wants a disk!
*
* 16-Sep-91	Dave Lyons
*
* AlertWindow disk-swap icon no longer calls LoadResource at AlertWindow
* time; instead, we load it at WindStartUp.  This way we do not try a
* reentrant call to LoadResource if LoadResource causes the OS to prompt
* for a disk!
*
* Added missing LDX #$FFFF on releasing rAlertString resource if bit
* $0080 is clear.  Was not releasing resources reliably.
*
* 4-Oct-91	Dave Lyons
*
* HandleDiskInsert--tabbing to a new control returns the handle and id
* of the new control, not the old one.
*
* AlertWindow--sets Font Flags to $0004 so you can have 16-color text
* in 640-mode if you want.
*
* 10-Oct-91	Dave Lyons
*
* HandleDiskInsert special-cases error $0021 (bad control code) from
* a Format to a 3.5 drive, to put up the special ErrorWindow(99)
* explaining that the user tried to format 800K as 1400K or vice versa.
*
* HandleDiskInsert ignores Apple tape drives unless fCheckTapeDrives
* is set (flags $0200).
*
* ErrorWindow always uses cool button positions.
*
* 24-Oct-91	Dave Lyons
*
* HandleDiskInsert has logic to check for never-writeable devices
* and read-only file systems, when handling a duplicate-name volume.
* There are two new dialogs (rAlertString $07FF0E01 and $07FF0E02 in
* Sys.Resources) for these cases.
*
* 27-Oct-91	Dave Lyons
*
* HandleDiskInsert special-cases AppleShare (can never rename an
* AppleShare volume).
*
* DoModalWindow invalidates static text control on activates *if*
* the control's fTextCanDim bit is set.
*
* 30-Oct-91	Dave Lyons
*
* The can't-rename dialogs now force an arrow cursor (was already
* being restored).
*
* AlertWindow calls WindowGlobal($FFFE) right after creating the
* window, instead of when the window gets closed.  This way we don't
* lose the activate event for window behind the alert.
*
* 5-Nov-91	Dave Lyons
*
* AlertWindow now unlocks the rAlertString resource handle before
* releasing it (for dispose, doesn't matter; for the alertNoDispose
* bit, this leaves the handle unlocked!).
*
* AlertWindow disables key translation during the call, unless there
* are buttons with high-ASCII equivalents.
*
* 13-Nov-91	Dave Lyons
*
* FindCursorCtl--removed special casing for TE controls.
*
* 14-Nov-91	Dave Lyons
*
* HandleDiskInsert--for error $5A, put up a disk-damaged dialog and
* let them eject/initialize (was ignoring error $5A).
*
* 21-Nov-91	Dave Lyons
*
* HandleDiskInsert polling was doing DInfo pcount=8, which caused
* device access.  Now uses pcount=3 (like it did a couple months
* ago) when just checking status.
*
* 320-mode rename dialog now works (has separate window/ctl templates).
*
* 22-Nov-91	Dave Lyons
*
* HandleDiskInsert rename dialog must draw icon manually instead of
* using an icon button control, since the defproc cannot be guaranteed
* to be loaded.
*
* HandlediskInsert rename AlertWindow calls now set the fAlertNoDispose
* bit.
*
* AlertWindow no longer unlocks rAlertString resources that are marked
* locked in their resource attributes.
*
* 2-Dec-91	Dave Lyons
*
* HandleDiskInsert calls GetFileInfo after a successful Volume call,
* because the HFS FST can detect a damaged disk during GetFileInfo.
*
* 3-Dec-91	Dave Lyons
*
* AlertWindow is using a lot of stack space, largely thanks to TaskMaster
* and DrawControls.  When GS/OS calls us, the stack is near $BFFF; there
* are 2 pages or less of stack available, so we're hosing GS/OS direct page
* when it overruns.
*
* The fix:  after our direct page stuff set up, we switch to a new 6-page
* stack segment (size = ExtraStackSize).  If we can't allocate a separate
* stack, we don't call ScanDevices.
*
* On closing alert, AlertWindow now flushes keyDown events only if it
* was scanning for disk insertions.
*
* 5-Dec-91	Dave Lyons
*
* When HandleDiskInsert renames a disk, it sets the TrustMe bit in the
* new 3rd parameter, so that the OS does not do RenamePathname, rename
* VCRs/FCRs, or change its record of the boot volume name.
*
* 6-Dec-91	Dave Lyons
*
* AlertWindow now uses correct key equivalents for Cancel button even
* when it is padded with leading blanks, or when Cancel is capitalized
* in a nonstandard way.
*
* 9-Dec-91	Dave Lyons
*
* HandleDiskInsert:  Add new flag bit, hdiUnreadable ($0100), that
* makes me skip the Volume call and assume the device is unreadable
* (that Volume would return error $27).
*
* 10-Dec-91	Dave Lyons
*
* HandleDiskInsert NewWindow2 for the rename-this-disk window is
* now by Pointer instead of Resource, so that NewWindow2 does not
* detach my handy pre-loaded resource!
*
* After HandleDiskInsert calls ErrorWindow, it calls LoadResource
* to re-lock the rErrorString $07FF0096 and -7 handles, so they
* can't get purged.
*
* 17-Dec-91	Dave Lyons
*
* AlertWindow now sets system preferences to prompt for disk,
* no Cancel button.  (Caller is typically not checking for an
* error, and it's dangerous to let them act on the result-space
* garbage as a user choice.)
*
* Added alertFullColorBit ($0400); AlertWindow only does the
* SetFontFlags(4) if this bit is set, for compatibility.
*
* 8-Jan-92	Dave Lyons
*
* HandleDiskInsert now does a SendRequest(systemSaysEjecting) when
* it ejects a disk.  This way EasyMount can avoid doing a bogus open
* on a duplicate volume that was mounted and then ejected.
*
* 16-Jan-92	Dave Lyons
*
* Optimizations in AlertWindow:  Killed 10 bytes of dead storage,
* and a dozen or two bytes of redundant code (noted by Yvan Koenig).
* Made the AlertWindow "Cancel" check more easily localizable (cost
* ten bytes).
*
* 17-Jan-92	Dave Lyons
*
* Make AlertWindow SetKeyTranslation calls *not* affect Battery RAM
* (key translation was getting permanently turned off if you rebooted
* during an AlertWindow, like the "Restart" dialog).
*
* 31-Jan-92	Dave Lyons
*
* HandleDiskInsert never handles an Apple Tape Drive (it just returns
* no error, without making a Volume call).
*
* HandleDiskInsert now treats a still-online disk as an insert if
* there is a disk-switched condition returned from DStatus.
*
**********************************************************************
*
* BEGIN 6.0.1
*
* 6-Mar-92	Dave Lyons
*
* Added new UpdateWindow call.
*
* 19-Jun-92	Dave Lyons
*
* Added flags word parameter to UpdateWindow.  DoModalWindow and
* AlertWindow updated to pass flags.  DoModalWindow sets bit 31 of
* the default wContDraw.
*
* AlertWindow now uses UpdateWindow to update other people'sl windows,
* if those windows are smart enough (wContDraw bit 31 set).
*
* 10-Jul-92	Dave Lyons
*
* Bits 31-24 of the updateProc to HandleDiskInsert are now honored
* even if the rest of the pointer is NIL.  This way you can flag your
* window as not needing GS/OS for its update. -- Also, we never
* replace a window's existing wContDraw procedure, if it has one
* (we give it a wContDraw on the first call if it doesn't have one).
*
* 28-Oct-92	Dave Lyons
*
* HandleDiskInsert now treats error $51 (directory damaged) like error
* $5A (damaged bitmap).  Puts up "This disk is damaged and can't be
* used.  Eject/Initialize".
*
* 30-Nov-92	Dave Lyons
*
* Added "jsr setValues" after LECut, LEPaste, TECut, TEPaste, so that
* DoModalWindow returns the control IDs when the user changes the
* an editable control's contents by cutting or pasting.
*
* 19-Feb-93	Dave Lyons
*
* Changed the HandleDiskInsert duplicate-disk dialog to use a Note
* icon instead of a 3.5" disk icon (since it happens for many kinds
* of disks that look nothing like the icon).
*
* 21-Mar-93	Dave Lyons
*
* DoModalWindow handles an Update event with mwUpdateAll clear by
* calling UpdateWindow with flags of $0000 for the dialog window,
* but $8000 for other windows--so the other windows update only if
* it's safe for them to background-update.  If the mwUpdateAll bit
* is set, it always passes flags of $0000.
*
* Cleaned out a bunch of crusty comments & dead code from AlertWindow.
*
* 23-Mar-93	Dave Lyons
*
* Changed UpdateWindow to return an error for a background update
* of a System window, since System windows should alwyas get updated
* from inside SystemEvent.  (Some people, like ModalDialog, are calling
* GetNextEvent and ingoring the return flag that says "you should not
* handle this, it's already taken care of by SystemEvent".)
*
* Changed DoModalWindow so it doesn't invalidate controls on an
* activate if the window's fCtlTie bit is set, saying that the control
* states are independent of the window state.
*
* 5-Apr-93	Dave Lyons (for 6.0.1d17)
*
* On a DoModalWindow background update, zero out code so we will blink
* insertion points even if we never handling pending updates behind our
* dialog.
*
**********************************************************************
	Blanks off
	String asis

	print push
	print off
	INCLUDE 'ALL.MACROS'
	INCLUDE 'e16.control'
	include 'e16.event'		;22-Jan-91 DAL
	include 'e16.lineedit'	;22-Jan-91 DAL
	include 'e16.locator'	;8-Jan-92 DAL
	include 'WindMgrEquates.asm'

	print pop

;===========================================
;          Create an Alert Window.
;===========================================
;
;   IN:    PUSH:WORD - space for result, button number selected.
;          PUSH:WORD - bit 0 = 0 if substitution strings are C type (null or return).
;	   bit 0 = 1 if substitution strings are Pascal type (length byte).
;	   bit 1&2 = 00 if alert string passed is a pointer.
;	   bit 1&2 = 01 if alert string passed is a handle.
;	   bit 1&2 = 11 if alert string passed is a resource ID.
;	   bit 3 = don't adjust text rectangle for icon
;	   bit 4 = do a SysBeep2 call
;	   bit 5 = space buttons unevenly
;	   bit 6 = skip initial disk-insert scan
;	   bit 7 = don't dipose of resource (make it purgeable instead)
;	   bit 8 = scan for disk insertions even without disk-swap icon
;                      bit 9 = custom icon is resource
;                      bit 10 = full color--set FontFlags to $0004
;          PUSH:LONG - pointer to substitution strings.
;          PUSH:LONG - pointer to alert	string.
;
;  OUT:    WORD - button number selected.
;
;===========================================
	EXPORT AlertWindow
AlertWindow	PROC

	import FlushKeyEvents,WindowUpdateCount

ExtraStackSize	equ $0600	;added 3-Dec-91 DAL

alertResourceID	equ 1	;ID of loaded alert string resource, NIL if none.
alertStrgHand	equ alertResourceID+4
windRect	equ alertStrgHand+4	;RECT of window's content.
xxLocInfo	equ windRect+8	;SCB.
xxImage	equ xxLocInfo+2	;Pointer to pixel image.
xxWidth	equ xxImage+4	;Width of image.
xxBounds	equ xxWidth+2	;Bounds RECT of image.
terminate	equ xxBounds+8
separator	equ terminate+2
butt1	equ separator+2
butt2	equ butt1+4
butt3	equ butt2+4
handle	equ butt3+4
ptr	equ handle+4
ptr2	equ ptr+4
taskRec	equ ptr2+4	;Task record overlaps work.
TheWork	equ taskRec+exTaskRecSize
DoingButtons	equ TheWork+8	;added 25-Nov-90 DAL
diskInsertFlag	equ DoingButtons+2	;added 7-Mar-91 DAL
theNewSeparator	equ diskInsertFlag+2 ;added 8-May-91 DAL
oldKeyTranslation	equ theNewSeparator+2 ;added 5-Nov-91 DAL
oldStack	equ oldKeyTranslation+2 ;added 3-Dec-91 DAL
oldSysPrefs	equ oldStack+2	;added 17-Dec-91 DAL
realDrawIconFlag	equ oldSysPrefs+2
alertWind	equ realDrawIconFlag+2
saveDpage	equ alertWind+4
saveDbank	equ saveDpage+2
returnAddr	equ saveDbank+1
alertStrg	equ returnAddr+6
substrgs	equ alertStrg+4
strgType	equ substrgs+4
result	equ strgType+2

strgTypeBit	equ 1
alertStrgBit	equ 6	;bits 1-2
alertStrgPtr	equ 0	;value for bits 1-2
alertStrgHandle	equ 2	;value for bits 1-2
alertStrgResource	equ 4	;value for bits 1-2
alertRectBit	equ $08	;14-Nov-90 DAL: bit 3 = don't subtract icon width from rect
alertSoundBit	equ $10	;9-Mar-91 DAL: bit 4 = call SysBeep2
alertSpacingBit	equ $20	;13-Mar-91 DAL: bit 5 = space buttons unevenly
alertSkipScanBit	equ $40	;15-Mar-91 DAL: bit 6 = skip initial disk scan
alertNoDisposeBit	equ $80	;26-Mar-91 DAL: bit 7 = don't dispose resource
alertDiskScanBit	equ $100	;7-Apr-91 DAL: bit 8 = default button on disk insert
alertIconRsrcBit	equ $200	;5-Aug-91 DAL: bit 9 = icon is resource, not pointer
alertFullColorBit	equ $400	;17-Dec-91 DAL: bit 10 = set font flags to $0004

rAlertString	equ $8015

*** If ROM 3 AlertWindow is calling us, force $0020 flag on (button pos)
	lda 5,s
	cmp #$fd38
	bne @notErrorWindow
	lda 4,s
	cmp #$38fe
	bne @notErrorWindow
	lda 15,s
	ora #$0020
	sta 15,s
@notErrorWindow

	jsl IncBusyFlg
	phb	;Save caller's data bank pointer
	phd	;Save caller's direct page pointer

	tsc	;Swtich to direct page in stack
	sec
	sbc #saveDpage-1
	tcs
	tcd

	phk	;Switch data bank to program bank
	plb

*** Switch to a new, safe stack segment
	ldx #0
	phx
	phx	;space for new handle
	phx	;size, high word
	pea ExtraStackSize	;size of new stack
	pea $400E	;id for new stack handle
	pea $C015	;fixed-bank, etc
	phx
	phx
	_NewHandle
	phd
	tsc
	tcd
	lda [3]
	php
	adc #ExtraStackSize-1  ;carry was clear if we will use this
	plp
	pld
	ply
	ply
	tsx	;stack to restore to
	bcc @gotSpecial
	tsc	;don't change stack
	ldx #0	;don't restore when done
@gotSpecial	tcs
	stx <oldStack

;
; Preserve key translation
;
	pha
	_GetKeyTranslation
	pla
	sta <oldKeyTranslation

*** Set system prefs to prompt for disk, no Cancel
	pha	;space for old sys prefs word
	pea 1	;pcount
	tsc
	inc a
	pea 0
	pha
	pea $200F	;GetSysPrefsGS
	jsl $e100b0
	pla
	pla
	sta <oldSysPrefs

	and #$1fff
	ora #$c000	;prompt for disk, no Cancel
	pha	;new sys prefs word
	pea 1	;pcount
	tsc
	inc a
	pea 0
	pha
	pea $200C	;SetSysPrefsGS
	jsl $e100b0
	pla
	pla
;
; --- Load alert string if resource.
;
	stz <alertResourceID   ;Start with no resource
	stz <alertResourceID+2

	lda <strgType	;Was a resource ID passed?
	and #alertStrgBit
	beq @skip1
	pha
	ldy <alertStrg	;Save resource ID
	ldx <alertStrg+2
	sty <alertResourceID
	stx <alertResourceID+2
	pla
	cmp #alertStrgHandle
	beq @alertHandle

	pha	;Space for result
	pha
	pea rAlertString	;Pass resource type of alert string
	phx	;Pass resource ID of alert string
	phy
	_LoadResource
	plx
	stx <alertStrg
	plx
	stx <alertStrg+2
	bcc @alertHandle
	tay	;Return error code
	brl errorExit

@alertHandle	ldy #4	;Lock alert string
	lda [<alertStrg],y
	ora #$8000
	sta [<alertStrg],y
	dey	;Dereference the string
	dey
	lda [<alertStrg],y
	tay
	lda [<alertStrg]
	sta <alertStrg
	sty <alertStrg+2
@skip1
;
; --- Save caller's port -------------------------------------
;
	pha	;Space for result.
	pha
	_GetPort	;Leave port on stack.

	pha	;Space for result.
	_GetMasterSCB
	pla
	sta <xxLocInfo	;Store current video mode.
;
; --- Turn window highlighting off ---------------------------
;
	lda #1	;Turn window hiliting off for now.
	jsr windowGlobal
;
; --- Allocate a new window parameter table ------------------
;
	pha	;Space for result.
	pha
	pea 0	;Pass number of bytes to allocate.
	pea p_size
	pea $400e
	pea $C010	;Pass attributes, fixed, in bank.
	pha	;Pass address (not used).
	pha
	_NewHandle
	pla
	sta <handle
	pla
	sta <handle+2

	jsr derefHand	;<ptr = (handle)
;
; ------ Initialize	table ------------------------------------
;
	ldy #p_size-2	;Zero the table.
	lda #0
lop3	sta [<ptr],y
	dey
	dey
	bpl lop3

	lda #p_size	;Set p_length field.
	sta [<ptr]

	ldy #p_wFrame
	lda #%0010000000101001
	sta [<ptr],y

	ldy #p_updateDraw
	lda #UpdateGuts
	sta [<ptr],y
	iny
	iny
	lda #UpdateGuts>>16
	ora #$C000	;background + no GS/OS
	sta [<ptr],y

	ldy #p_behind
	lda #$FFFF
	sta [<ptr],y
	iny
	iny
	sta [<ptr],y
;
; --- Get alert window's size and position -------------------
;
	jsr fetchDigit	;a = number.
	dec a
	bpl ok1	;Custom size and position?
;
;
; ------ Custom position and size ----------------------------
;
	ldx #y1
lop1	lda [<alertStrg]
	sta <windRect,x
	jsr incStrg	;Add one to <alertStrg.
	jsr incStrg	;Add one to <alertStrg.
	inx
	inx
	cpx #x2+2
	bne lop1
	bra done1
;
;
; ------ Default position and size ---------------------------
;
ok1	asl a	;Convert to index.
	tax

	lda <xxLocInfo	;320 mode?
	and #$0080
	bne use640high

	ldy heights320,x
	bra ok2

use640high	ldy heights640,x

ok2	phy
	lda #200
	sec
	sbc 1,s
	lsr a
	sta <windRect+y1
	clc
	adc 1,s
	sta <windRect+y2
	pla

	lda <xxLocInfo	;320 mode?
	and #$0080
	bne use640wide

	ldy widths320,x
	lda #320
	bra store1

use640wide	ldy widths640,x
	lda #640
store1	phy
	sec
	sbc 1,s
	lsr a
	sta <windRect+x1
	clc
	adc 1,s
	sta <windRect+x2
	pla
done1		; rect = new window	portRect.

*** For icon dithering, put window at even X position
	lda <windRect+x1
	lsr a
	bcc @alreadyEven
	dec <windRect+x1
	dec <windRect+x2
@alreadyEven

	ldy #p_position+x2	;Move <windRect into parameter table
	ldx #x2
lop4	lda <windRect,x
	sta [<ptr],y
	dey
	dey
	dex
	dex
	bpl lop4
;
; --- Create the window --------------------------------------
;
	pha	;Space for result
	pha
	pei <ptr+2	;Pass address of parameter block
	pei <ptr
	_NewWindow

*** Turn window hiliting back on right away
	lda #$FFFE	;Turn window hiliting back on.
	jsr windowGlobal

	lda 1,s	;Remember alert window pointer
	sta <alertWind
	lda 3,s
	sta <alertWind+2

	_SetPort	;Switch to window's port

*** Only set Font Flags to $0004 if they ask for it (16-color text)
	lda <strgType
	and #alertFullColorBit
	beq @skipSFF
	pea $0004
	_SetFontFlags
@skipSFF

	pei <handle+2	;Pass handle of new window parameter
	pei <handle	;table
	_DisposeHandle

	jsr alertGuts	;Draw guts of window.
	jsr monitor	;Monitor alert.
	sta <result	;Return ID of button pressed.

;
; --- Free button controls ------------------------------------
;
	ldx #8
lop2	lda <butt1+1,x	;Valid handle?
	beq next2

	phx

	lda <butt1+2,x	;Free handle.
	and #$00FF	;Clear default button flag.
	pha
	lda <butt1,x
	pha
	_DisposeHandle

	plx

next2	dex
	dex
	dex
	dex
	bpl lop2

*
* dispose of awTextHandle
*
	lda >awTextHandle+1
	beq @skip
	pushlong >awTextHandle
	_DisposeHandle
	lda #0
	sta >awTextHandle+1
@skip

;
; --- Dispose of alert window --------------------------------
;
	pei <alertWind+2
	pei <alertWind
	_CloseWindow

*** Don't flush keys if we aren't scanning for disks
	lda <diskInsertFlag
	beq @noFlush
	jsr FlushKeyEvents	;added 4-Oct-91 DAL
@noFlush
;
; --- Clean up stack and return ------------------------------
;
	_SetPort	;Restore caller's port.

	lda <strgType	;Was a resource ID passed?
	and #alertStrgBit
	beq @skip2
	cmp #alertStrgHandle
	beq @alertHandle

*** If resource attr = locked, don't unlock it!
	pha	;space for result
	pea $8015	;rAlertString
	pei <alertResourceID+2
	pei <alertResourceID
	_GetResourceAttr
	pla
	bmi @keepLocked
*** Unlock the handle before releasing resource
	pha
	pha	;space for LoadResource
	pea rAlertString
	pei <alertResourceID+2
	pei <alertResourceID
	_LoadResource
	bcs @ouch
	phd
	tsc
	tcd
	ldy #4
	lda [3],y
	asl a
	lsr a	;clear bit 15
	sta [3],y
	pld
@ouch	ply
	ply
@keepLocked

	ldx #$ffff	;added line 16-Sep-91 DAL, oops
	lda <strgType
	and #alertNoDisposeBit
	beq @likeBefore
	ldx #3	;purge level 3
@likeBefore	phx
	pea rAlertString	;Pass resource type of alert string.
	pei <alertResourceID+2
	pei <alertResourceID
	_ReleaseResource
	bra @skip2

@alertHandle	ldy #4	;Leave alert string handle unlocked.
	lda [<alertResourceID],y
	and #$7FFF
	sta [<alertResourceID],y
@skip2

	ldy #0	;No error.

errorExit

*** Restore system preferences
	phy	;preserve error code
	pei <oldSysPrefs	;previous sys prefs word
	pea 1	;pcount
	tsc
	inc a
	pea 0
	pha
	pea $200C	;SetSysPrefsGS
	jsl $e100b0
	pla
	pla
	ply	;restore error code

*** Restore key translation
	phy
	lda <oldKeyTranslation
	jsr mySetKeyTranslation
	ply

*** Resume using caller's stack; dispose special stack
*** Must preserve Y (error code)
	tsx	;special stack
	lda <oldStack	;old stack (0=don't restore)
	beq @noSpecialStack
	tcs
	phy	;preserve error code
	phx
	phx	;space for FindHandle
	pea 0
	phx
	_FindHandle
	_DisposeHandle
	ply	;restore error code
@noSpecialStack

	lda <returnAddr+4	;Move return address down stack.
	sta <result-2
	lda <returnAddr+2
	sta <result-4
	lda <returnAddr
	sta <result-6

	tsc	;Free temp direct page.
	clc
	adc #saveDpage-1
	tcs

	pld	;Restore caller's direct page pointer.
	plb	;Restore caller's data bank pointer.
	pla	;Remove input parameter from stack.
	pla
	pla
	pla
	pla

	jsl DecBusyFlg
	tya	;Error code.
	cmp #1
	rtl

*** Set key translation without changing BRAM (Input in A)
mySetKeyTranslation	pha	;new trans code
	pea $0020	;vector # for restore SetVector

	pha
	pha	;space for GetVector
	pea $0020
	_GetVector

	pea $0020
	pushlong #myRTL
	_SetVector

	lda 7,s
	pha
	_SetKeyTranslation

	_SetVector
	pla	;discard kTransID
	rts

myRTL	rtl

awTextHandle	dc.l 0
awTextPtr	dc.l 0
awTextLen	dc.w 0
awTextRect	ds.b 8

buttonChars	dc.w 0,0,0	;first character of each button title

; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = =	=
;          Fetch and convert a ASCII decimal digit.
;100= = = = = = = =	= = = = = = = = = =	= = = = = = = = = =	=
;
;   IN:    alertStrg = pointer to ASCII	decimal digit.
;
;  OUT:    a = digit.
;          alertStrg = advanced to next character.
;
fetchDigit	jsr fetchChar
	sec
	sbc #'0'
	rts


; = = = = = = = = =	= = = = = = = = = =	= = = = = =
;          Fetch character from string.
; = = = = = = = = =	= = = = = = = = = =	= = = = = =
;
;   IN:    alertStrg = pointer to string.
;
;  OUT:    a = first character in string.
;          alertStrg = advanced to next	character.
;
fetchChar	lda [<alertStrg]
	and #$00FF


; = = = = = = = = =	= = = = = = = = = =	= = = = = = =
;          Add one to <alertStrg pointer.
;110= = = = = = = =	= = = = = = = = = =	= = = = = = =
;
incStrg	inc <alertStrg
	bne exit110
	inc <alertStrg+2
exit110	rts


; = = = = = = = = =	= = = = = = = = = =	= = = = = = =
;          Set Window Manager global flag.
; = = = = = = = = =	= = = = = = = = = =	= = = = = = =
;
;   IN:    a = flag.
;
windowGlobal	pha	;Space for result.
	pha	;Turn window hiliting back on.
	_WindowGlobal
	pla	;No need for result.
	rts


; = = = = = = = = =	= = = = = = = = = =	= = = = = = =
;          Create and draw contents of alert.
;200= = = = = = = =	= = = = = = = = = =	= = = = = = =
;
;   IN:    alertStrg = pointer to icon character in string:
;
;                1/Alert text./Button 1/Button 2/Button 3
;
;                Icon numbers:
;	0 = custom icon, pointer follows.
;	1 = no icon.
;	2 = stop
;	3 = note
;	4 = caution
;	5 = disk
;	6 = disk swap
;	7-9 = reserved
;
alertGuts
;
; --- Draw icon ----------------------------------------------
;
	stz <xxBounds+x2	;No icon, just in case.

	jsr fetchDigit
*** check for disk-swap icon
	pha
	lda <strgType
	and #alertDiskScanBit
	sta <diskInsertFlag
	pla
	cmp #6	;disk swap icon
	bne @notDiskSwap
	inc <diskInsertFlag
@notDiskSwap
***
	pha
	cmp #2	;always do SysBeep2 for Stop alerts
	beq @someSound
	cmp #4	;always do SysBeep2 for Caution alerts
	beq @someSound
	cmp #6	;always do SysBeep2 for Disk-Swap alerts
	bne @notDiskReq
	lda #$C030	;disk-request sound
	bra @thisSound
@notDiskReq	lda <strgType
	and #alertSoundBit
	beq @noSound
@someSound	lda 1,s
	cmp #1	;custom icon--no sound
	beq @noSound
	cmp #5	;disk icon--no sound
	beq @noSound
	clc
	adc #$C050	;default to silence, defer till GNE
@thisSound	pha
	_SysBeep2
@noSound	pla	;retrieve icon number
***
	stz realDrawIconFlag  ;8-Mar-91 DAL

	dec a	;No icon?
	bpl ok204
	brl skip200
ok204	dec a
	bpl @ok200	;Custom icon?

	lda [<alertStrg]	;Get pointer to image data.
	sta <xxImage
	ldy #2
	lda [<alertStrg],y
	sta <xxImage+2

*** Check for resource-based icon
	lda <strgType
	and #alertIconRsrcBit
	beq @notIconRsrc

	inc <realDrawIconFlag

	clc
	lda <alertStrg
	adc #4
	sta <alertStrg
	bcc @1
	inc <alertStrg+2
@1

	pha
	pha	;space for LoadResource
	pea $8001	;rIcon
	pei <xxImage+2
	pei <xxImage
	stz <xxImage+1
	bra @loadIconRsrc
@notIconRsrc

	iny
	iny	;y is now 4
	lda [<alertStrg],y	;Get width, in bytes.
	tax
	iny
	iny
	lda [<alertStrg],y	;Get height.
	tay

	lda <alertStrg	;Skip over custom icon data.
	clc
	adc #8
	sta <alertStrg
	bcc store200
	inc <alertStrg+2
	bra store200

@ok200
*
* We'll do a real DrawIcon from a standard resource-based icon.
* The icon number MINUS TWO is in A.
* Set realDrawIconFlag so the draw routine knows this.
* Set xxImage to point to the icon.
*
	inc a
	inc a	;got real icon number back

	inc <realDrawIconFlag
	stz <xxImage+1

*** added 16-Sep-91 DAL -- check for disk-swap icon, don't use LoadResource
	cmp #6
	bne @notDS

	lda >DiskSwap640Hndl+2
	tay
	lda >DiskSwap640Hndl
	ldx <xxLocInfo-1
	bmi @ds640
	lda >DiskSwap320Hndl+2
	tay
	lda >DiskSwap320Hndl
@ds640	bra @haveIconHandle
@notDS
*** end 16-Sep-91

	ldy <xxLocInfo-1
	bmi @icon640
	ora #$0100	;icons $07ff01xx are for 320
@icon640	pha
	pha	;space for LoadResource result
	pea $8001	;rIcon
	pea $07FF
	pha
@loadIconRsrc	_LoadResource
	pla
	ply
	bcs didIconSetup

@haveIconHandle	sty <xxImage+2
	sta <xxImage
	ldy #2
	lda [<xxImage]
	tax
	lda [<xxImage],y
	sta <xxImage+2
	stx <xxImage
*** get icon height in xxBounds+y2, width in xxBounds+x2
	ldy #4	;offset to icon height
	lda [<xxImage],y
	sta <xxBounds+y2
	iny
	iny	;6=offset to icon width
	lda [<xxImage],y
	bra commonStoreBounds  ;16-Jan-92 DAL

store200	sty <xxBounds+y2
	stx <xxWidth
	txa	;Compute width in pixels.
	asl a	;2 pixels per byte.
commonStoreBounds	ldx <xxLocInfo-1	;320 or 640 mode?
	bpl store202
	asl a	;4 pixels per byte.
store202	sta <xxBounds+x2
	stz <xxBounds+y1
	stz <xxBounds+x1

didIconSetup

;
; --- Perform substitution on rest of string.
;
skip200	ldy #0	;Compute size of rest of alert string.
	sep #$20
	LONGA OFF
	lda [<alertStrg]
@lop200	iny
	cmp [<alertStrg],y
	bne @lop200
@lop201	iny
	lda [<alertStrg],y
	bne @lop201
	rep #$20
	LONGA ON
	iny	;Move the zero also.

*** Find a suitable separator character
	phy

	pha
	pha	;space for CompileText result
	lda <strgType
	and #strgTypeBit
	pha
	pei <substrgs+2
	pei <substrgs
	pei <alertStrg+2
	pei <alertStrg
	phy
	_CompileText
	jsr FindUniqueCharacter  ;input = handle on stack; out=<theNewSeparator
	_DisposeHandle

*** make a safe new copy of the string so we can mess with it
	lda 1,s	;copy of size needed
	pha
	pha	;space for NewHandle result
	pea 0
	pha
	pea $400e	;memory ID
	pea $C000	;locked and fixed
	pha
	pha	;ignored
	_NewHandle
	plx
	ply
;;;	bcs @error
	sty <alertStrgHand+2
	stx <alertStrgHand

	pei <alertStrg+2
	pei <alertStrg	;ptr to old string for BlockMove

	ldy #2
	lda [<alertStrgHand],y
	sta <alertStrg+2
	lda [<alertStrgHand]
	sta <alertStrg

	pei <alertStrg+2
	pei <alertStrg
	pea 0
	lda 1+10,s	;size of string (still on stack)
	pha
	_BlockMove

*** replace separator character with unique new separator (<theNewSeparator)
*** The first character in <alertStrg is the old separator.
	lda 1,s
	tay
	dey
	sep #$20
@replace	lda [<alertStrg],y
	cmp [<alertStrg]
	bne @next
	lda <theNewSeparator
	sta [<alertStrg],y
@next	dey
	bpl @replace
	rep #$20

	ply	;size of string


	pha	;Space for result.
	pha
	lda <strgType	;Pass substitution string type.
	and #strgTypeBit
	pha
	pei <substrgs+2	;Pass pointer to substitution strings.
	pei <substrgs
	pei <alertStrg+2	;Pass pointer to source string.
	pei <alertStrg
	phy	;Pass size of alert string.
	_CompileText

	pei <alertStrgHand+2
	pei <alertStrgHand
	_DisposeHandle

	pla	;Handle of compiled alert string.
	sta <alertStrgHand
	pla
	sta <alertStrgHand+2

	ldy #4
	lda [<alertStrgHand],y
	ora #$8000
	sta [<alertStrgHand],y
	dey
	dey
	lda [<alertStrgHand],y
	sta <alertStrg+2
	lda [<alertStrgHand]
	sta <alertStrg

;
; --- Get separation character -------------------------------
;
	jsr fetchChar
	sta <separator	;Text terminator.
	sta <terminate	;Alert string terminator.

;
; --- Compile text string ------------------------------------
;
	stz <DoingButtons	;added 25-Nov-90 DAL
	lda #MaxString	;Maximum number of characters.
	jsr compileStrg
	ldx <TheWork	;Length of string.

;
; --- Print text box -----------------------------------------
;
rect2	equ TheWork

	lda <windRect+y2
	sec
	sbc <windRect+y1
	sta <rect2+y2

	lda <windRect+x2
	sec
	sbc <windRect+x1
	sbc #8
	ldy <xxLocInfo-1	;320 or 640 mode?
	bpl store204
	sbc #8
store204	sta <rect2+x2

	lda #TextTop
	sta <rect2+y1

	lda <strgType	;added 14-Nov-90 DAL
	and #alertRectBit	;added 14-Nov-90 DAL
	eor #alertRectBit	;added 14-Nov-90 DAL
	beq @1	;added 14-Nov-90 DAL
	lda <xxBounds+x2	;Right side of icon,
@1	clc
	adc #10	;plus some padding.
	ldy <xxLocInfo-1	;320 or 640 mode?
	bpl store205
	adc #10	;More padding in 640 mode.
store205	sta <rect2+x1

	lda <ptr+2	;pass pointer to string
	sta >awTextPtr+2
	pha
	lda <ptr
	inc a	;Skip length byte (does not cross bank)
	sta >awTextPtr
	pha
	phx	;Pass length of string.
	txa
	sta >awTextLen
	jsr pushrect2	;Pass pointer to text box.
	lda <rect2
	sta >awTextRect
	lda <rect2+2
	sta >awTextRect+2
	lda <rect2+4
	sta >awTextRect+4
	lda <rect2+6
	sta >awTextRect+6
	pea 0	;Pass 'left justification' flag.
	_LETextBox2

	jsr DrawTheAWIcon

	tdc
	sta >DirPageCheat+1	;give DP to the update routine


	lda <handle+2
	sta awTextHandle+2
	lda <handle
	sta awTextHandle

;
; --- Get button titles --------------------------------------
;
buttCount	equ TheWork+2

	stz <butt1+1	;Set 'no title' flag.
	stz <butt2+1	;Set 'no title' flag.
	stz <butt3+1	;Set 'no title' flag.

	stz <buttCount	;Button counter.
	stz <terminate	;Alert string terminator (16-Jan-92 DAL)

lop200	lda #MaxButtStrg	;Maximum number of characters.
	sec	;added 25-Nov-90 DAL
	ror <DoingButtons	;added 25-Nov-90 DAL
	jsr compileStrg
	php	;Save 'end of string' flag.

	lda <buttCount	;Remember handle of title.
	asl a
	asl a
	tax
	lda <handle
	sta <butt1,x
	lda <handle+2
	sta <butt1+2,x

	inc <buttCount
	plp	;End of alert string?
	bcc lop200

	dec <buttCount	;Zero relative.

;
; --- Find widest title --------------------------------------
;
counter	equ TheWork
widest	equ TheWork+4

	lda <buttCount	;Start with last button.
	sta <counter
	stz <widest	;Start with no width.

*** Flag that we don't have any button first-characters yet
	stz ButtonChars
	stz ButtonChars+2
	stz ButtonChars+4

lop201	lda <counter
	asl a
	asl a
	tax
	lda <butt1,x
	sta <handle
	lda <butt1+1,x
	sta <handle+1

	pha	;Space for result.
	ldy #2	;Pass pointer to string.
	lda [<handle],y
	pha
	lda [<handle]
	pha
*** Remember the first character for duplicate-checking later
	lda <counter
	asl a
	tax
	phd
	tsc
	tcd

	ldy #0	;skip over blanks
@search	tya
	sep #$30
	cmp [3],y
	rep #$30
	lda #0
	bcs @gotKeyEq
	iny
	lda [3],y
	and #$00ff
	cmp #$0020
	beq @search

@gotKeyEq	jsr upcase
	sta ButtonChars,x
	pld
*** done finding key equivalent

	_StringWidth
	pla
	cmp <widest	;Is this button the widest so far?
	bcc next201
	sta <widest	;Remember widest.

next201	dec <counter
	bpl lop201

	lda <widest	;Pad the button size.
	clc
	ldy <xxLocInfo-1	;320 or 640 mode?
	bpl ck320min

	adc #20
	cmp #minWidth640	;Minimum size?
	bcs store201
	lda #minWidth640	;Make minimum size.
	bra store201
;
ck320min	adc #10
	cmp #minWidth320	;Minimum size?
	bcs store201
	lda #minWidth320	;Make minimum size.
	bra store201

store201	sta <widest

;
; --- Compute space	between buttons --------------------------
;
Thewidth	equ TheWork

	stz <TheWidth	;No space between buttons, just in case.

	lda <windRect+x2	;Compute width of window.
	sec
	sbc <windRect+x1

	ldx <buttCount
lop202	sbc <widest
	bcc done2	;Buttons don't fit in window?
	dex
	bpl lop202
;	                  a	= space between all	buttons.

	ldx <buttCount	;Compute space between buttons.
	bne next203

	lsr a	;One button.
	bra store203

next203	dex
	bne threeButts

	pha	;Space for result.
	pha
	pha	;Pass remaining space.
	pea 3	;Divide by 3.
	_UDivide
	pla	;Get quotient
	plx	;Get remainder (not used).
	bra store203

threeButts	lsr a
	lsr a

store203	sta <TheWidth	;Width between buttons.
done2

;
; --- Create buttons -----------------------------------------
;
counter2	equ TheWork+6
;
	stz <ptr2+1	No default button flag, just in case.
;
	lda <windRect+y2
	sec
	sbc <windRect+y1
	sbc #5
	sta <windRect+y2
	sbc #13
	sta <windRect+y1
;
	stz <windRect+x2
	stz <counter2
;
lop204	lda <counter2
	asl a
	asl a
	tax
	lda <butt1,x
	sta <handle
	lda <butt1+2,x
	sta <handle+2
;
	lda <windRect+x2
	clc
	adc <TheWidth
*** If we're doing uneven button spacing, do stuff here
	pha
	lda <strgType
	and #alertSpacingBit
	beq @notUneven

	lda <buttCount	;zero-relative count
	sec
	sbc <counter2
	beq @rightmost
	dec a
	beq @center
@leftmost	lda >awTextRect+2	;left button aligned w/ left of text
	bra @uneven

@center	lda >awTextRect+6	;center button to left of rightmost button
	sec
	sbc <widest
	sbc <widest
	sbc #14
	bra @uneven

@rightmost	lda >awTextRect+6	;rightmost button aligned w/ right of window
	sec
	sbc <widest

@uneven	sta 1,s
@notUneven	pla

	sta <windRect+x1
	adc <widest
	sta <windRect+x2

*** Use NewControl2 to make our buttons
	lda <windRect
	sta buttonRect
	lda <windRect+2
	sta buttonRect+2
	lda <windRect+4
	sta buttonRect+4
	lda <windRect+6
	sta buttonRect+6

	ldy #2
	lda [<handle],y
	sta <ptr+2
	sta buttonTitle+2
	lda [<handle]
	sta buttonTitle
	sta <ptr

	lda <handle+2
	rol a
	rol a
	and #1
	sta buttonFlags

*** compute the key equivalents
	beq @notDefault

	jsr CheckForCancel
	beq @defaultCancel

	bra @isDefault

@notDefault	jsr CheckForCancel
	beq @isCancel

*** see if this is the only button that starts with this letter
	stz buttonKeyEquivs	 ;anticipate that it's a duplicate

	jsr GetFirstNonBlank

	jsr upcase
	ldx #0
	cmp ButtonChars
	bne @key1
	inx
@key1	cmp ButtonChars+2
	bne @key2
	inx
@key2	cmp ButtonChars+4
	bne @key3
	inx
@key3	dex	;did we have exactly one match?
	bne @didKeys

;;; NOTE--A is still the first non-blank character (uppercase)
	jsr BuildKeyEquivs
	bra @setKeys

@isCancel	lda #$1b1b
	bra @setKeys

@defaultCancel	lda #$1b0d	;Cancel *and* Return
	bra @setKeys

@isDefault	lda #$0d0d
@setKeys	sta buttonKeyEquivs
@didKeys
	lda <counter2
	sta buttonRefcon

	pha
	pha	;space for NewControl2 result
	pei <alertWind+2
	pei <alertWind
	pea 0	;by pointer
	pushlong #extButtonTemplate
	_NewControl2
	pla
	plx
	brl aroundTemplate

extButtonTemplate	dc.w 9	;pCount
	dc.l 0	;control ID
buttonRect	dc.w 0,0,0,0	;rect
	dc.l $80000000	;procRef
buttonFlags	dc.w 0
	dc.w $3000	;moreFlags = fCtlWantEvents+fCtlProcNotPtr
buttonRefCon	dc.l 0
buttonTitle	dc.l 0
	dc.l 0	;color table
buttonKeyEquivs	dc.b 0,0	;key equivalents
	dc.w 0,0	;key modifiers


*** CheckForCanel tolerates leading blanks and nonstandard case
CheckForCancel	lda [<ptr]
	and #$00ff
	tax
	ldy #1
@skipBlanks	lda [<ptr],y
	and #$00ff
	cmp #$0020
	bne @pastBlanks
	iny
	dex
	bpl @skipBlanks

*** Allow localization (string is inline with padding for longer spellings)
@pastBlanks	cpx theCancelString	;compare against length
	bcc @notCancel
	ldx #0
@compareLoop	lda [<ptr],y
	iny
	and #$00df	;case insensitivity
	sep #$20
	cmp theCancelString+2,x
	rep #$20
	bne @notCancel
	inx
	cpx theCancelString
	bcc @compareLoop
	lda #0	;BEQ
	rts

@notCancel	lda #1	;BNE
	rts

theCancelString	dc.w 6	;Length of localizable Cancel string
	dc.b 'CANCEL'
	dc.b 'xxxxxxxxx'	;space for expansion


BuildKeyEquivs	jsr downcase
	pha
	jsr upcase
	xba
	ora 1,s
	plx
	rts

downcase	cmp #$41
	bcc @x
	cmp #$5B
	bcs @x
	ora #$20
@x	rts

upcase	cmp #$61
	bcc @x
	cmp #$7B
	bcs @x
	and #$00df
@x	rts

aroundTemplate

	ldy <handle+2	;Was that the default button?
	bpl next204

	sta <ptr2	;Remember default button's handle.
	stx <ptr2+2

next204	inc <counter2
	lda <buttCount
	cmp <counter2
	bcc @blah
	brl lop204
@blah

*** 5-Nov-91 DAL -- if no button has a high-ascii key equivalent, disable key trans
***  (It's restored at a very outer level of AlertWindow.)
	lda ButtonChars
	ora ButtonChars+2
	ora ButtonChars+4
	and #$0080
	bne @someHighAscii

	lda #0
	jsr mySetKeyTranslation
@someHighAscii

;
; --- Draw buttons -------------------------------------------
;
	pei <alertWind+2		;Draw buttons in alert.
	pei <alertWind
	_DrawControls

	pei <alertStrgHand+2	;Free compiled string.
	pei <alertStrgHand
	_DisposeHandle

	rts

*
* GetFirstNonBlank
*
* Return A = first interesting character in PString at [ptr], for
* possible use as the button's key equivalent
*
GetFirstNonBlank	ldy #0
@search	sep #$30
	tya
	cmp [<ptr]
	rep #$30
	lda #0
	bcs @done
	iny
	lda [<ptr],y
	and #$00ff
	cmp #$0020
	beq @search
@done	rts

*
* DrawTheAWIcon
*
* Made this a subroutine so we can call it from the Update
*
DrawTheAWIcon	lda <realDrawIconFlag
	bne @drawIcon

	lda <xxBounds+x2
	beq @noIcon

	lda #xxLocInfo	;Pass pointer to parameter block.
	jsr pushDpage
	lda #xxBounds	;Pass pointer to source RECT.
	jsr pushDpage
	lda #4	;320 X position.
	ldx <xxLocInfo-1	;320 or 640 mode?
	bpl @store206
	asl a	;640 x position.
@store206	pha	;Pass X position.
	pea 4	;Pass Y position. 
	pea 0	;Pass mode (normal copy).
	_PPToPort	;Blit.
@noIcon	rts

@drawIcon	pei <xxImage+2
	pei <xxImage
	pea 0	;mode
	lda #4	;X=4 for 320
	ldx <xxLocInfo-1
	bpl @320width
	asl a	;X=8 for 640
@320width	pha
	pea 4	;Y is always 4
	_DrawIcon
	rts

	export DiskSwap640Hndl
DiskSwap640Hndl	dc.l 0
	export DiskSwap320Hndl
DiskSwap320Hndl	dc.l 0

**********************************************************************
*
* FindUniqueCharacter -- input = handle on stack
*
* Output = <theNewSeparator (some character not present anywhere in
*                            the string)
*
**********************************************************************
FindUniqueCharacter	phd
	pha
	pha	;space for <thePtr

	tsc
	tcd

@thePtr	equ 1
@oldD	equ @thePtr+4
@rts	equ @oldD+2
@theString	equ @rts+2

	pha
	pha
	pei <@theString+2
	pei <@theString
	_GetHandleSize

	ldy #2
	lda [<@theString],y
	sta <@thePtr+2
	lda [<@theString]
	sta <@thePtr

	lda #1	;start trying with Ctrl-A

@tryCharA	rep #$20
	pha
	lda 3,s
	tay
	dey
	pla
	sep #$20

@keepLooking	cmp [<@thePtr],y
	beq @tryNextChar
	dey
	bpl @keepLooking
	bra @foundIt

@tryNextChar	inc a
	bne @tryCharA
	lda [<@thePtr]	;if no unique characters, return unchanged

@foundIt	rep #$20
	and #$00ff

	plx
	plx	;kill handle size
	plx
	plx	;kill <thePtr
	pld
	sta <theNewSeparator
	rts

; = = = = = = = = =	= = = = = = = = = =	= =
;          Compile a text string.
;800= = = = = = = =	= = = = = = = = = =	= =
;
;   IN:    a = maximum size of string.
;          <alertStrg = pointer to string.
;          <separator = text termination character.
;          <terminate = alert string termination character.
;          <DoingButtons = bit 15 set if we're parsing button text (DAL)
;
;  OUT:    <handle = handle of text string, high bit set if	'>' found.
;          <ptr = pointer to string (length byte first).
;          <work = length of string.
;          Carry set if end of alert string.
;
compileStrg

buffSize	equ 1
;
	pha	;Save buffer size.

;
; --- Allocate memory for text string ------------------------
;
	pha	;Space for result.
	pha
	pea 0	;Pass number of bytes to allocate.
	pha
	pea $400e	;pass ID to use
	pea $C010	;Pass attributes, fixed, in bank.
	pha	;Pass address (not used).
	pha
	_NewHandle
	pla
	sta <handle
	pla
	sta <handle+2

	jsr derefHand	;ptr = (handle)

	inc <ptr	;Start past length byte.
	stz <TheWork	;Start length counter.

	pla	;Adjust max buffer size for easy compare.
	dec a
	pha
;
;
; --- Compile text string ------------------------------------
;
lop800	jsr fetchChar

*** "^" is not special until we get to the button text
	bit <DoingButtons	;added 25-Nov-90 DAL
	bpl next802	;added 25-Nov-90 DAL
	cmp #'^'	;Default character for buttons?
	bne next802

	lda #$8000
	tsb <handle+2
	bra lop800

next802	cmp <separator	;End of this string?
	beq exit800
	cmp <terminate	;End of line?
	beq exit801

store800	sta [<ptr]	;Store character in text string.
	inc <ptr
	inc <TheWork	;Length counter.

	lda <TheWork	;Is buffer full?
	cmp buffSize,s
	bcc lop800
; End line if buffer full.

exit800	clc	;Continue flag.
;
exit801	jsr derefHand	;ptr = (handle).
;
	sep #$30	;Store length byte.
	lda <TheWork
	sta [<ptr]
	rep #$30
;
	pla	;Get rid of buffer size.
	rts
;
;
; = = = = = = = = =	= = = = = = = = = =	=
;          Dereference handle.
; = = = = = = = = =	= = = = = = = = = =	=
;
derefHand	ldy #2	;Dereference the handle.
	lda [<handle],y
	sta <ptr+2
	lda [<handle]
	sta <ptr
	rts
;
;
; = = = = = = = = =	= = = = = = = = =
;          Monitor the alert.
;900= = = = = = = =	= = = = = = = = =
;
;   IN:    alertWind = window to monitor.
;          ptr2 = handle of default button, ptr2+1 = zero if none.
;
bigRect	dc.w 0,0,1000,1000

monitor	lda #%1000000000000100
	sta <taskRec+TaskMask
	lda #%0000000000000011	;tmControlKey+tmContentControls
	sta <taskRec+TaskMask+2

	pushlong #bigRect
	_ValidRect

	lda <strgType
	and #alertSkipScanBit
	bne @skipInitialScan
	jsr PollForInsertion
@skipInitialScan

poll900	jsr PostReturnOnInsertion
	pha	;Space for result.
	pea $0E6E	;Mouse Up+Down, keys, switch, deskAcc, driver, update
	jsr pushTask	;Pass pointer to Task record.
	_TaskMaster
	pla
	beq poll900

	asl a	;strip off system-window bit
	lsr a

;
; --- Handle event ----------------------------------------------------
;
	cmp #6	;update event? (DAL)
	bne @notUpdate

	pha
	pha
	_FrontWindow
	plx
	pla
	cmp <taskRec+4
	bne @notMyUpdate
	cpx <taskRec+2
	bne @notMyUpdate
	pea 0	;UpdateWindow flags (19-Jun-92 DAL)
	pha
	phx
*** added 6-Mar-92 DAL -- use UpdateWindow
;	_UpdateWindow
	ldx #$6c0e
	jsl $e10000
;	pha
;	phx
;	_BeginUpdate
;	jsl UpdateGuts
;	_EndUpdate
*** end 6-Mar-92
	bra poll900

*** 19-Jun-92 DAL -- update other people's windows!
@notMyUpdate	lda >WindowUpdateCount	;so GS/OS won't call AlertWindow!
	inc a
	sta >WindowUpdateCount

	pea $8000		;window knows about bank register
	pei <taskRec+4
	pei <taskRec+2
;	_UpdateWindow
	ldx #$6C0E
	jsl $e10000

	lda >WindowUpdateCount
	dec a
	sta >WindowUpdateCount

	bra poll900
*** end 19-Jun-92

@notUpdate	cmp #wInControl
	bne next900

enter899	lda <taskRec+taskData2	;Handle of selected button.
	ldx <taskRec+taskData2+2

enter900	pha	;Space for result.
	pha
	phx	;Pass handle of selected control.
	pha
	_GetCtlRefCon	;Get control's refCon.
	pla	;Control's ID number.
	plx
	rts
;
; --- Handle key event ---------------------------------------
;
next900	cmp #wInKey		;Key?
	beq doKey
	cmp #wInAutoKey
	bne notKey

doKey	lda <taskRec+message
	cmp #$2e	;period
	bne @notApplePeriod
	lda <taskRec+oModifiers
	and #$0100	;Apple key?
	beq @notApplePeriod

	lda #$1b
	sta <taskRec+message  ;turn it into an ESC
	stz <taskRec+oModifiers

	pha
	pea 0	;target-only flag
	pha
	pha
	_FrontWindow
	jsr pushTask
	_SendEventToCtl
	pla
	bne enter899

@notApplePeriod	pea $0008
	brl BonkNoisePushed	;27-Mar-91 DAL

notKey	cmp #wInFrame
	beq BonkNoise

	cmp #wInDrag
	beq BonkNoise

	cmp #wInMenuBar
	beq BonkNoise

	cmp #wInDesk
	beq BonkNoise

	cmp #wInInfo
	beq BonkNoise

	cmp #wInGrow
	beq BonkNoise
	
	cmp #wInZoom
	beq BonkNoise
	
	cmp #wInGoAway
	beq BonkNoise

	cmp #wInContent
	bne notContent

	pha
	pha
	_FrontWindow
	plx
	pla
	cmp <taskRec+TaskData+2
	bne BonkNoise
	cpx <taskRec+TaskData
	bne BonkNoise	;bonk for any other window
	bra goNextEvent

BonkNoise	pea $0004
BonkNoisePushed	_SysBeep2
notContent
goNextEvent	brl poll900


**********************************************************************
*
* UpdateGuts
*
* Draw the contents of the alert window
*
**********************************************************************
UpdateGuts	phd
DirPageCheat	lda #$7777	;*** modified ***
	tcd

	pushlong >awTextPtr
	pushword >awTextLen
	pushlong #awTextRect
	pea 0	;left justify
	_LETextBox2

	jsr DrawTheAWIcon	;requires our local direct page

	pha
	pha
	_GetPort
	_DrawControls

	pld
	rtl


**********************************************************************
*
* PostReturnOnInsertion
*
* Check for a disk insertion, and post a Return keypress if we
* actually find that something was inserted.
*
**********************************************************************
PostReturnOnInsertion
	
	pha
	pha
	_TickCount
	pla
	plx
	tay
	sec
	sbc >previousTickCount
	cmp #40	;every 40 ticks
	bcc @notPollTime
	tya
	sta >previousTickCount

	jsr PollForInsertion
	bcs @nothingInserted

	pha	;space for result
	pea 3	;keyDown event
	pea 0
	pea $000D
	_PostEvent
	pla

@nothingInserted
@notPollTime	rts

previousTickCount	dc.w 0


**********************************************************************
*
* PollForInsertion
*
* If it's been long enough, check for a disk insertion and return
* CLC+device number in A if something was inserted
*
* The DO_INSERT_SCAN service scans *all* the devices and then tells
* us about the first insertion it detected.  This is good for two
* things:
*
* 1. We can call PollForInsertion *once* to ignore all pending inserts.
* 2. When a CD with multiple partitions is inserted, we only find out
*    about it once.
*
**********************************************************************
PollForInsertion	sec
	lda <diskInsertFlag
	beq @dontScan

*** If we're sharing stack with GS/OS, don't poll!  If there was enough
*** memory in bank 0, we'll be using our own stack at this point.
	tsc
	cmp #$bd00
	bcs @dontScan	;leave with carry set, no insertion

	pha
	_ScanDevices
	pla

	clc
	bne @gotSomething
	sec
@gotSomething

@dontScan	rts


; = = = = = = = = =	= = = = = = = = = =	=
;          Push a direct page
;          address on the stack.
; = = = = = = = = =	= = = = = = = = = =	=
;
;   IN:    a = direct page offset.
;
pushHandle	lda #handle
	bra pushDpage

pushrect2	lda #rect2
	bra pushDpage

pushTask	lda #taskRec
pushDpage	plx
	pea 0
	pha
	tdc
	clc
	adc 1,s
	sta 1,s
	phx
	rts

;
; --- Task Master return codes -------------------------------
;
wInKey	equ 3
wInAutoKey	equ 5

;
; --- Alert window default sizes -----------------------------
;
MaxString	equ 1001	Maximum length of alert text.
MaxButtStrg	equ 81	Maximum length of button string.
minWidth320	equ 30	Minimum button width in 320 mode.
minWidth640	equ 60	Minimum button width in 640 mode.

TextTop	equ 3	Y position of first	line of text.

heights320	DC.W 46	1
	DC.W 62	2
	DC.W 62	3
	DC.W 90	4
	DC.W 54	5
	DC.W 62	6
	DC.W 80	7
	DC.W 108	8
	DC.W 134	9

heights640	DC.W 46	1
	DC.W 54	2
	DC.W 62	3
	DC.W 72	4
	DC.W 46	5
	DC.W 54	6
	DC.W 62	7
	DC.W 72	8
	DC.W 80	9

widths320	DC.W 152	1
	DC.W 176	2
	DC.W 252	3
	DC.W 252	4
	DC.W 252	5
	DC.W 300	6
	DC.W 300	7
	DC.W 300	8
	DC.W 300	9

widths640	DC.W 200	1
	DC.W 228	2
	DC.W 300	3
	DC.W 352	4
	DC.W 400	5
	DC.W 452	6
	DC.W 500	7
	DC.W 552	8
	DC.W 600	9

;
; --- New window parameter list offsets	----------------------------
;
p_length	equ 0	Number of bytes in parameter list.
p_wframe	equ p_length+2	Type of window, frame flags.
p_wtitle	equ p_wframe+2	Pointer to window's title.
p_wrefCon	equ p_wtitle+4	Reserved for application.
p_wfull	equ p_wrefCon+4	Size of window, used with ZoomWindow.
p_wcolor	equ p_wfull+8	Pointer to window's color table.
p_y_origin	equ p_wcolor+4	Content's vertical offset.
p_x_origin	equ p_y_origin+2	Content's horizontal offset.
p_data_h	equ p_x_origin+2	Height of total data area.
p_data_w	equ p_data_h+2	Width of total data	area.
p_wmaxheight	equ p_data_w+2
p_wmaxwidth	equ p_wmaxheight+2
p_vscroll	equ p_wmaxwidth+2	Amount to scroll vertically (arrows).
p_hscroll	equ p_vscroll+2	Amount to scroll horizonally (arrows).
p_vpage	equ p_hscroll+2	Amount to page vertically (page region).
p_hpage	equ p_vpage+2	Amount to page horizontally (page rgn).
p_wInfoText	equ p_hpage+2
p_wInfoH	equ p_wInfoText+4	Height of infomation bar.
p_wdefProc	equ p_wInfoH+2	NOT USED.
p_wInfoDraw	equ p_wdefProc+4	Address of routine to draw Info Bar.
p_updateDraw	equ p_wInfoDraw+4	Address of routine to draw content region.
p_position	equ p_updateDraw+4
p_behind	equ p_position+8
p_windrec	equ p_behind+4
p_size	equ p_windrec+4

	ENDP


****************************************************************
*
* ErrorWindow
*
* Description	This call displays an alert window containing
*	standard system error messages.  
*
* Inputs:
*	Previous contents
*	Result space	WORD
*	Sub. Strng. Type	WORD  0 = C string, 1 = Pascal
*	Pointer to sub mess	LONG
*	Error number	WORD
*
* Outputs:
*	Previous contents
*	Result	WORD  Button number selected
*
****************************************************************
	longa on	; mode
	longi on

ErrorWindow   	PROC EXPORT

	DefineStack
OrigD	word

HexString	long
Terminator	word
Temp	long
Ret1	block 3
Ret2	block 3
ErrorNum	word
substrgs	long
strgType	word
result	word

	jsl IncBusyFlg

	lda #0	;Cstring terminator
	pha
	pha	;room hex string
	pha

	pha	;temp
	pha

	phd
	tsc
	tcd
;
; Call SysBeep2 if the error code is 0..FF
;
	lda <errorNum
	and #$ff00
	beq @inRange

	lda #$CEFF
	bra @thisBeep

@inRange	lda <errorNum
	ora #$CE00	;default silent, defer to GNE, beep $0Exx
@thisBeep	pha
	_SysBeep2

;
; Set up for the alert window call
;
	pha	;space for result
*** Force the cool button position bit on
	lda <strgType
	ora #$0020
	pha
;
; Alert Window wants a pointer to a table of pointers for the substitution strings.
;  Since we only allow one substitution, item 0, we simply need a pointer to a pointer.
;  We are passed a pointer, so we pass a pointer to the pointer we are passed.
;
	pea $0000	;msw of pointer to pointer
	tdc
	clc
	adc #substrgs	;lsw of pointer to pointer
	pha
;
; Make LoadResource call to get error message
;
	pha	;space for result
	pha
	pea $8020	;Resource ID type: rErrorString

	pea $07FF	;msw of error is 0
	pei <ErrorNum	;21-Sep-90 DAL
	_LoadResource

	bcc NoRezLoadError
;
; Error in load resource.  Clean stack and display 'unknown error' message
;
	tax	;save error number
	pla	;clean stack
	pla
	pla
	pla
	pla
	pla
;
; Start over: first create hex error number and a pointer to it
;

	pha	;space for result
	pha
	pei <ErrorNum	;21-Sep-90 DAL
	_HexIt	;leaves 4 byte hex string on stack

	pla
	sta <HexString
	pla
	sta <HexString+2
;
;create pointer to string and put it in substrgs
;
	lda #0
	sta <substrgs+2	;msw is 0 since its on the stack
	tdc
	clc
	adc #HexString
	sta <substrgs
;
; Set up for the alert window call
;
	pha	;space for result
	pea $0020	;C string, cool button position (10-Oct-91 DAL)

;
; Create a pointer to the error number and pass it to alert window
;
	pea $0000	;msw of pointer error number
	tdc
	clc
	adc #substrgs	;lsw of pointer to pointer
	pha

;
; Make LoadResource call to get unknown error message
;
	pha	;space for result
	pha
	pea $8020	;Resource ID type: rErrorString

	pea $07FF	;msw of error is 0
	pea $0072	;optimized 21-Sep-90 DAL
	_LoadResource

	bcc NoRezLoadError
	
;
; Error in loading unknown error resource.  Clean stack and exit
;
LoadError
	tax	;save error number

	pla	;clean stack: resource handle
	pla

	pla	;remove sub string pointer
	pla
	
	pla	;string type
	pla	;result space

	bra ErrorExit

NoRezLoadError
	pla
	sta temp	;handle to resource
	pla
	sta temp+2

	ldy #4
	lda [<temp],y
	ora #$8000	;lock it
	sta [<temp],y

	dey
	dey
	lda [<temp],y
	pha	;pass pointer to error message
	lda [<temp]
	pha

	_AlertWindow
	tax
	pla
	sta <result

	ldy #4
	lda [<temp],y
	and #$7FFF
	sta [<temp],y	;unlock handle

	phx	;save error message
;
; setup for release resource call
;
	pea $0003	;most purgeable
	pea $8020	;resource type
	pea $07FF
	pei <ErrorNum	;optimized 21-Sep-90 DAL
	_ReleaseResource

	plx	;restore error message
	
errorExit	lda <Ret1+4	;Move return address down stack.
	sta <result-2
	lda <Ret1+2
	sta <result-4
	lda <Ret1
	sta <result-6

	pld
	pla	;temp work area
	pla

	pla	;hex string
	pla	;hex string
	pla	;0 terminator	

	pla	;remove input parameters froms stack
	pla
	pla
	pla
	phx	;error result from AlertWindow	

	jsl DecBusyFlg
	pla	;get error result
	cmp #1	;21-Sep-90 DAL (was CMP #0)
	
	rtl


	ENDP


;===================================================
;	Compile string.
;===================================================
;
;   IN:    PUSH:LONG - space for result, handle of compiled string.
;          PUSH:WORD - 0 if substitution strings are C type	(null or return).
;	   1 if substitution strings are Pascal	type (length byte).
;          PUSH:LONG - pointer to substitution strings.
;          PUSH:LONG - pointer to source string.
;          PUSH:WORD - size of source string.
;
;  OUT:    Carry clear, handle of compiled string on stack. Handle size is size of text.
;          Carry set if error, a = error code (compileTooLarge = compiled string too large).
;
; Any '#' followed by an ASCII digit character with be substituted with a standard string
; defined in AlertWindow documentation.  Any '*' character followed by an ASCII digit 
; character with be substituted with its corresponding string in the given substitution
; array.  If no * substitutions are in the string the pointer to the substitution array
; can be any value including nil.
;
; Characters # and * can be made part of the compiled string by having them twice in the
; source string.
;
CompileString	PROC EXPORT

srcIndex	equ 1
desIndex	equ srcIndex+2
desSize	equ desIndex+2
ptr	equ desSize+2
ptr2	equ ptr+4
saveDpage	equ ptr2+4
saveDbank	equ saveDpage+2
returnAddr	equ saveDbank+1
inputs	equ returnAddr+6

srcSize	equ inputs
srcStrg	equ srcSize+2
substrgs	equ srcStrg+4
strgType	equ substrgs+4
result	equ strgType+2


	phb	Save caller's data bank pointer.
	phd	Save caller's direct page pointer.

	tsc	Swtich to direct page in stack.
	sec
	sbc #saveDpage-1
	tcs
	tcd

	phk	Switch data bank to	program bank.
	plb
;
;
; --- Allocate memory for text string ------------------------
;
	ldx #0	Common need.

	pha	Space for result.
	pha
	phx	Pass number of bytes to allocate.
	lda <srcSize
	sta <desSize
	pha
***	pea $1001	Pass ID to use.
	pea $400e	;21-Sep-90 DAL
	phx	Pass attributes, anywhere, anyhow.
	pha	Pass address (not used).
	pha
	_NewHandle
	pla
	sta <result
	pla
	sta <result+2
;
	jsr derefHand	ptr = (handle)
;
	stz <desIndex	Start storing into first byte in destination.
	stz <srcIndex
;
;
; --- Compile text string.
;
@lop1	jsr fetchSrcChar	Fetch next source character.
	bcs @done	All done?
;
;
; ------ Substitute standard string?
;
	cmp #'#'	Substitute standard	string character?
	bne @next1
;
	jsr fetchDigit	Fetch which standard string to use.
	bcs @store1	Next character a digit?
;
	asl a	Substitute standard	string.
	tax
	lda |standButts,x
	sta <ptr2
	lda #standButts>>16
	sta <ptr2+2
	jsr Ctype	Move standard string into text.
	bcc @lop1	Get next character if buffer not full.
	bra @errorOut	Buffer is full.
;
;
; ------ Speical subsitution character?
;
@next1	cmp #'*'	Speical subsitution	character?
	bne @store1
;
	jsr fetchDigit	Fetch which subsitute string to use.
	bcs @store1	Next character a digit?
;
	jsr storeSub	Store substitution string in text.
	bcc @lop1	Get next character if buffer not full.
	bra @errorOut	Buffer is full.
;
;
@store1	jsr storeChar	Store character in destination buffer.
	bcc @lop1
;
;
; --- Error exit.
;
@errorOut	pha		Save error code.
;
	pei <result+2	Pass handle of destination buffer.
	pei <result
	_DisposeHandle	Free destination buffer.
	stz <result	Return NIL handle.
	stz <result+2

	ply		Restore error code.
	bra @exit
;
;
; --- Clean up stack and exit.
;
@done	pea 0	Set compiled string handle to size of text.
	pei <desIndex
	pei <result+2
	pei <result
	_SetHandleSize

	ldy #0	No error.

@exit	lda <returnAddr+4
	sta <result-2
	lda <returnAddr+2
	sta <result-4
	lda <returnAddr
	sta <result-6

	tsc	Free temp direct page.
	clc
	adc #saveDpage-1
	tcs

	pld	Restore caller's direct page pointer.
	plb	Restore caller's data bank pointer.

	tsc	Remove input parameter from stack.
	clc
	adc #result-inputs
	tcs

	tya	Return error code in a.
	cmp #1	Set error flag.
	rtl


;------------------------------------------------------------------------------
;	Fetch a character from source buffer.
;------------------------------------------------------------------------------
;
;    IN: <srcStrg = pointer to source buffer.
;        <srcIndex = index to next character in source buffer.
;        <srcSize = size of source buffer.
;
;   OUT: <srcIndex = incremented to next character.
;        Carry clear if a = character in low byte, high byte = zero.
;        Carry set if no more characters.
;
fetchSrcChar	ldy <srcIndex
	cpy <srcSize
	bcs @exit	;No more characters?

	lda [<srcStrg],y
	and #$00FF
	inc <srcIndex
	clc	;Character fetched flag.
@exit	rts


;-------------------------------------------------------------
;          Fetch and convert a ASCII decimal digit.
;-------------------------------------------------------------
;
;    IN: <srcStrg = pointer to source buffer.
;        <srcIndex = index to ASCII decimal digits.
;
;  OUT:  <srcIndex = next character.
;        Carry clear, a = digit.
;        Carry set, a = character that wasn't a decimal digit.
;
fetchDigit	jsr fetchSrcChar	;Fetch the next character.
	bcc @ok1	;No more characters?
	lda #0	;Return null character.
@notDigitExit	sec
	rts

@ok1	cmp #'0'	;Is the next character a digit?
	bcc @notDigitExit
	cmp #'9'+1
	bcs @notDigitExit
*** CARRY IS CLEAR
***	sec
***	sbc #'0'
***	clc	;a = digit.
	and #$000f	;opt 21-Sep-90 DAL
* CARRY IS CLEAR FROM ABOVE
	rts


;------------------------------------------------------------------------------
;	Store character into destination buffer.
;------------------------------------------------------------------------------
;
;   IN: a = character to store, only the low byte used.
;       <desPtr = pointer to destination buffer.
;       <desIndex = index to where to store character in destination buffer.
;       <desSize = size of destination buffer.
;
;  OUT: Carry set if error, a = error code (1=des too large).
;       Destination buffer may have had to be resized.  If so, handle is dereferenced again.
;
storeChar	ldy <desIndex	;Is there room in the destination buffer?
	cpy <desSize
	bcc @ok1
;
;
; --- Grow the destination buffer.
;
	pha		Save character to store.
	lda <desSize	Increase destination buffer size.
	clc
	adc #256
	bcc @ok2
	lda #$0E04		Error, destination too large.
;			(compileTooLarge not available)
@errorOut	plx		Clean up stack.
	rts

@ok2	sta <desSize	New buffer size.
	pea 0	Pass new size.
	pha
	pei <result+2	Pass handle of destination buffer.
	pei <result
	_SetHandleSize
	bcs @errorOut
	jsr derefHand	Dereference destination buffer.
	pla		Restore character to store.
;
;
; --- Store the character.
;
@ok1	ldy <desIndex
	sep #$20	Go to 8 bit.
	LONGA OFF
	sta [<ptr],y	Store character in destination buffer.
	rep #$20	Back to 16 bit.
	LONGA ON

	inc <desIndex	Increment destination index.

	clc	No error.
	rts
;
;
;------------------------------------------------------------------------------
;	Move string into destination text.
;------------------------------------------------------------------------------
;
;   IN:    a = substitution string number.
;          <subStrgs = pointer to array	of string pointers.
;          <ptr = pointer to destination string.
;          <work = length counter of destination string.
;          <strgType = 0 if C sub strings, 1 if Pascal sub strings.
;
;  OUT:    Carry set if buffer full.
;
storeSub	asl a	Compute index.
	asl a
	tay
	lda [<subStrgs],y	Get pointer to subsitute string.
	sta <ptr2
	iny
	lda [<subStrgs],y
	sta <ptr2+1

	lda <strgType	C type string?
	beq Ctype
;
;
; --- Pascal type string -------------------------------------
;
	lda [<ptr2]	Get number of bytes	in string.
	and #$00FF
	beq @exit1
	tax
	ldy #1
@lop1	lda [<ptr2],y
	and #$00FF
	phy
	phx
	jsr storeChar
	plx
	ply
	bcs @exit2
	iny
	dex
	bne @lop1
@exit1	clc
@exit2	rts


;---------------------------------------------------------------
;	Insert C type string.
;---------------------------------------------------------------
;
;   IN: <ptr2 = pointer to C string to insert.
;
Ctype	ldy #0
@lop1	lda [<ptr2],y
	and #$00FF
	beq @exit1	End of substitution	string?
	iny
	phy
	jsr storeChar
	ply
	bcc @lop1
	rts

@exit1	clc	Buffer OK.
	rts


;---------------------------------------------------------------
;	Dereference handle.
;---------------------------------------------------------------
;
derefHand	ldy #2
	lda [<result],y
	sta <ptr+2
	lda [<result]
	sta <ptr
	rts
;
;
; --- Standard button strings --------------------------------
;
standButts	dc.w OK	0
	dc.w Cancel	1
	dc.w Yes	2
	dc.w No	3
	dc.w TryAgain	4
	dc.w Quit	5
	dc.w Continue	6
	dc.w Bad	7
	dc.w Bad	8
	dc.w Bad	9

	STRING ASIS
OK	dc.b 'OK',0
	export Cancel	;6-Dec-91 DAL
Cancel	dc.b 'Cancel',0
Yes	dc.b 'Yes',0
No	dc.b 'No',0
TryAgain	dc.b 'Try Again',0
Quit	dc.b 'Quit',0
Continue	dc.b 'Continue'
Bad	dc.b 0

	ENDP

**********************************************************************
*
* $630E GetAuxWindInfo -- new call 19-Jan-91 DAL
*
* Input:
*   space for result (LONG)
*   window pointer   (LONG)
*
* Uses <auxInfoHandle on Window Manager direct page.  If it's NIL,
* we allocate it for the first time.
*
* If we don't find the window we're looking for, we need to grow the
* handle to make more room.
*
* The AuxWindHandle block has this structure:
*   +000: number of aux window record that will fit in the handle
*   +002: number of aux window records really in the list
*   +004: first record
*   +xxx: ...
* Each record has the form:
*   -004:window pointer
*   +000:size in bytes
*   +002:bank register value (low byte of word)
*   +004:data register value
*   +006:resource app value
*   +008:old update region handle
*   +012:old port (for EndUpdate)
*   +016:window layer (for Windoid support) (LONG)
*   +020:min vertical size for window (used only for system windows?)
*   +022:min horizontal size for window (used only for system windows?)
*   +024:NDA Structure Pointer (points to what's handy for the Desk Mgr)
*   +028:(size of record)
*
**********************************************************************
GetAuxWindInfo	proc export
	export KillAuxInfoRecord
	export DerefMyhandle
	export IncResultBy4

auxWindRecSize	equ 28+4	;size includes window pointer
auxWindUserSize	equ 28	;34 bytes in the user-visible area
GrowByNWindows	equ 5	;grow the list 10 windows at a time

DirPagePtr	equ 1
myPtr	equ DirPagePtr+4
myHandle	equ myPtr+4
oldD	equ myHandle+4
rtl	equ oldD+2
windPtr	equ rtl+6
result	equ windPtr+4

	phd
	pha
	pha	;space for myHandle
	pha
	pha	;space for myPtr
	phy
	pha	;push direct-page pointer on stack frame
	tsc
	tcd
	
	stz <result+2
	stz <result
	jsr GetAuxPointer

	ldy #2
	lda [<myPtr],y	;number of entries in the list
	beq @noMatch
	tax	;keep the count in X

	ldy #4
@scan	lda [<myPtr],y
	iny
	iny
	cmp <windPtr
	bne @tryNext
	lda [<myPtr],y
	cmp <windPtr+2
	bne @tryNext
	iny
	iny
	tya
	clc
	adc <myPtr
	sta <result
	lda <myPtr+2
	bcc @1
	inc a
@1	sta <result+2
	brl @exit

@tryNext	dey
	dey
	tya
	clc
	adc #auxWindRecSize
	tay
	dex
	bne @scan

*
* No matching entry found--allocate another one, clean it out, and return
* the pointer.
*
* May need to grow the handle to make room.
*
@noMatch	ldy #2
	lda [<myPtr],y	;number of entries in list
	cmp [<myPtr]	;equal to number that will fit?
	bcc @itFits

	pha
	pha	;space for _Multiply result
	clc
	lda [<myPtr]
	adc #GrowByNWindows
	sta [<myPtr]
	pha
	pea auxWindRecSize
	_Multiply
*** added 28-Feb-91 DAL--Oops, I forgot to add 4 for the header stuff
	pla
	plx
;	clc	;carry is already clear
	adc #4
	bcc @coolBeans
	inx
@coolBeans	phx
	pha
*** end of 28-Feb-91 DAL

	pei <myHandle+2
	pei <myHandle
	_SetHandleSize	;this had better work....

	jsr DerefMyHandle	;maybe it moved when we grew it

	ldy #2
	lda [<myPtr],y	;get entry count back in A
@itFits	inc a
	sta [<myPtr],y	;increment count of entries in list

	pha
	pha	;space for _Multiply result
	dec a
	pha	;zero-based index to new entry
	pea auxWindRecSize
	_Multiply
	clc
	pla
	adc <myPtr
	sta <result
	pla
	adc <myPtr+2
	sta <result+2

	jsr IncResultBy4

	lda <windPtr
	sta [<result]
	ldy #2
	lda <windPtr+2
	sta [<result],y

	jsr IncResultBy4

	lda #0
	ldy #auxWindUserSize-2  ;oops, was auxWindRecSize! 3-Mar-91 DAL
@clear	sta [<result],y
	dey
	dey
	bne @clear
	lda #auxWindUserSize
	sta [<result]	;set up the user-visible record size word

@exit	pla
	pla	;pulled direct-page pointer
	pla
	pla	;pulled myPtr
	pla
	pla	;pulled myHandle
	pld	;restored D
	ldx #0
	ldy #4
	jml $e10184	;ToStrip

*
* GetAuxPointer -- allocate the AuxInfoHandle if necessary, and return
*   myHandle, myPtr.
*
GetAuxPointer	ldy #AuxInfoHandle+1
	lda [<DirPagePtr],y
	bne @allocated

	pha
	pha	;space for handle
	pea 0
	pea GrowByNWindows*auxWindRecSize+4
	ldy #MyID
	lda [<DirPagePtr],y
	pha	;mem id
	pea 0	;attributes
	pha
	pha	;location unused
	_NewHandle
	pla
	ldy #AuxInfoHandle
	sta [<DirPagePtr],y
	sta <myHandle
	pla
	iny
	iny
	sta [<DirPagePtr],y
	sta <myHandle+2

*** Initialize the new handle
	jsr DerefMyHandle
	lda #GrowByNWindows	;init the how-many-fit field
	sta [<myPtr]
	ldy #2
	lda #0	;init the how-many-there-are field
	sta [<myPtr],y	

@allocated	ldy #AuxInfoHandle
	lda [<DirPagePtr],y
	sta <myHandle
	iny
	iny
	lda [<DirPagePtr],y
	sta <myHandle+2
	jsr DerefMyHandle
	rts

DerefMyHandle	ldy #2
	lda [<myHandle]
	sta <myPtr	
	lda [<myHandle],y
	sta <myPtr+2
	rts

IncResultBy4	clc
	lda <result
	adc #4
	sta <result
	bcc @1
	inc <result+2
@1	rts

**********************************************************************
*
* KillAuxInfoRecord -- new subroutine 20-Jan-91 DAL
*
* Input:
*   PUSH Window Pointer (LONG)
*   JSL KillAuxInfoRecord
*
* (This is a subroutine, not a tool call)
*
* Direct page must be set to the Window Manager
*
**********************************************************************
KillAuxInfoRecord

@DirPagePtr	equ 1
@myPtr	equ @DirPagePtr+4
@myHandle	equ @myPtr+4
@oldD	equ @myHandle+4
@rtl	equ @oldD+2
@windPtr	equ @rtl+3

	phd
	pha
	pha	;space for myHandle
	pha
	pha	;space for myPtr
	pea 0
	phd	;push direct-page pointer on stack frame
	tsc
	tcd

	jsr GetAuxPointer	;creates it if necessary
	ldy #2
	lda [<myPtr],y
	beq @exit	;no aux window records--just leave
	tax
	ldy #4	;offset to first record
@scan	lda [<myPtr],y
	iny
	iny
	cmp @windPtr
	bne @tryNext
	lda [<myPtr],y
	cmp @windPtr+2
	beq @foundIt
@tryNext	dey
	dey
	tya
	clc
	adc #auxWindRecSize
	tay
	dex
	bne @scan

@exit	pla
	pla	;pulled direct-page pointer
	pla
	pla	;pulled myPtr
	pla
	pla	;pulled myHandle
	pld	;restored D
	lda 2,s
	sta 2+4,s
	lda 1,s
	sta 1+4,s
	pla
	pla
	rtl
*
* Found the matching aux window record at myPtr+Y.  Squish
* the rest of them in and decrement the total count.
*
@foundIt	dey
	dey
	tya
	clc
	adc #auxWindRecSize
	sta >@minusSize
	adc <myPtr
	tax
	lda <myPtr+2
	adc #0
	pha
	phx	;pushed pointer to the next record

	clc
	tya
	adc <myPtr
	tax
	lda <myPtr+2
	adc #0
	pha
	phx

	pha
	pha	;space for GetHandleSize
	pei <@myHandle+2
	pei <@myHandle
	_GetHandleSize
	sec
	lda 1,s
	sbc >@minusSize
	sta 1,s	;size to copy (remaineder of record)
	_BlockMove

	ldy #2	;decrement number-of-entries count
	lda [<myPtr],y
	dec a
	sta [<myPtr],y
	bra @exit

@minusSize	dc.w 0

	endp

**********************************************************************
*
* $640E DoModalWindow -- new call 22-Jan-91 DAL
*
* Input:
*
*
*
* First, a little about fakeModalDialog:
*
* fakeModalDialog returns a long as a result.
* If the result is NULL:
*     Nothing happened.  Unlike ModalDialog, control is returned to
*     the application during null events.  This is so the application
*     can do stuff like switch cursors, or other idle tasks.
* If bit 31 of the result is true:
*     The user chose a menu item.  Bits 0-15 are the menu item ID.
*                                  Bits 16-30 are the menu ID.
* If bit 31 of the result is false:
*     The user clicked on a control.  Bits 0-30 are the control ID.
*
* Now, the sample code fragment:
*
*   #define aboutBoxID 0x1001L
*
*   void    doAboutBox()
*   {
*       WindowPtr       wptr, keepPort;
*       unsigned long   id;
*       unsigned int    item;
*       keepPort = GetPort();   /* Preserve the current port. */
*
*       wptr = NewWindow2(NULL, NULL, NULL, NULL, 2, aboutBoxID, rWindParam1);
*           /* Open the about box from a resource. */
*
*       if (!_toolErr) {            /* If the window opened successfully... */
*           aboutWindow = wptr;     /* Set the aboutWindow global variable. */
*                                   /* This tells other routines what state */
*                                   /* we are in.                           */
*
*           for (;;) {      /* Loop, due to NULL events being returned. */
*
*               id = fakeModalDialog(
*                   &event,         /* Pointer to extended event record.   */
*                   NULL,           /* Use default update procedure.       */
*                   NULL,           /* There will be no event mods.        */
*                   NULL,           /* Do standard beep.                   */
*                   mwMenuSelect+   /* Allow pullDowns.                    */
*                   mwMenuKey+      /* Allow menu keys.                    */
*                   mwDeskAcc+      /* Allow desk accessories.             */
*                   mwUpdateAll     /* Update all windows, not just about. */
*               );
*
*               item = id;          /* Get lo-word from result. */
*
*               if (id & 0x80000000L) {             /* If menu command...    */
*                   if (item == 255) {              /* If close command then */
*                       HiliteMenu(0, FileMenuID);  /* turn menu inv. off.   */
*                       break;                      /* Go close about box.   */
*                   }
*                   doMenuCommand(id);      /* Do other menus (like quit).   */
*                   if (quitFlag) break;    /* User did do a quit from menu. */
*               }
*               else {                          /* ...else handle controls. */
*                   if (item == 1) break;       /* User clicked OK button.  */
*               }
*           }
*
*           SetPort(keepPort);      /* Put port back before closing about. */
*           CloseWindow(wptr);      /* Close aboutBox.                     */
*           aboutWindow = NULL;     /* Let others know it is closed.       */
*           appSetMenus();          /* Update the menus to reflect a new.  */
*       }                           /* top window.                         */
*   }
*
**********************************************************************
DoModalWindow	proc export
	entry theIBeamAdr
	import ctlPart
	import doInitCursor	;14-Nov-91 DAL

fVis	equ $0020	;visible bit in window frame

mwNoScrapForLE	equ $0001
mwMenuSelect	equ $0002
mwMenuKey	equ $0004
mwIBeam	equ $0008
mwDeskAcc	equ $0010
mwWantActivate	equ $0020	;added 20-May-91 DAL
mwUpdateAll	equ $4000
mwMovable	equ $8000

	DefineStack
dlgwptr	long	;Must be at 1,s
keepPort	long	;Must be at 5,s
ctlHndl	long
ctlPtr	long
theHndl	long
thePtr	long
whichWindow	long
tempwptr	long
code	word
editTask	word
yloc	word
xloc	word
wkind	word
menunum	word
zero	word
sizeLocals	EndLocals

saveDPage	word
returnAddr	block 6	;was 3 (DAL)

	BegParms
flags	word
beepProc	long	;Null, SysBeep.  Negative, do nothing.
eventHook	long	;Optional -- pass a NULL for none.
updateProc	long	;Optional -- pass a NULL for default.
event	long	;Must be extended 5.0 event rec ptr.
sizeParms	EndParms

retval	long	;Control ID hit.  NULL if none.
		;If bit 31 is on, then retval
		;is a menu ID.

	lda #0	;added 18-Apr-91 DAL
	sta >ctlPart	;added 18-Apr-91 DAL

	phd	;Save directPage register.
	tsc	;Make space for locals.
	sec
	sbc #sizeLocals
	tcs
	tcd	;Set directPage register.

	pla
	pla
	_GetPort	;Result space already there (keepPort).

	pha
	pha
	_FrontWindow	;Result space already there (dlgwptr).

	pha	;Find out if it is a DA window.
	pei dlgwptr+2
	pei dlgwptr
	_GetWKind
	pla
	sta wkind
	bpl @gotit

@get1stRegWnd	pha	;Result space for _GetWFrame.

	pha	;Result space for _GetNextWindow.
	pha

	pei dlgwptr+2
	pei dlgwptr
	_GetNextWindow

	lda 1,s	;Param for _GetWFrame.
	sta dlgwptr
	lda 3,s
	sta dlgwptr+2

	_GetWFrame
	pla

	and #fVis
	beq @get1stRegWnd	;Window is invisible, so skip it.

	pha
	pei dlgwptr+2
	pei dlgwptr
	_GetWKind
	pla
	bmi @get1stRegWnd	;Window is system window, so skip it.

@gotit	stz retval	;Assume nothing interesting is
	stz retval+2	;going to happen.
	stz code
	stz editTask	;For cut/copy/paste/clear signal.
	stz zero	;For optimization purposes.

*** Note that updateProc+3 can have flag bits set
	lda updateProc+1	;Set up the update procedure for all
	bne @a	;cases.  This also sets it up so that
		;TaskMaster can handle this window
		;from other parts of the application.

*** added 10-Jul-92 DAL -- See if the window already has a wContDraw procedure
	pha
	pha
	pei <dlgwptr+2
	pei <dlgwptr
	_GetContentDraw
	pla
	plx
	bne @aa
	tax
	bne @aa
*** end 10-Jul-92

	lda #doStdDrawProc>>16
;;;	sta updateProc+2
*** 10-Jul-92 DAL -- OR in so we don't mess up the no-GS/OS-needed flag bit (bit 30)
	tsb updateProc+2
*** end 10-Jul-92
	lda #doStdDrawProc
	sta updateProc	;Use the default update procedure.
@a
*** added 10-Jul-92 DAL -- assume modal windows are always smart about B/D/ResApp/CtlParamPtr
	lda #$8000
	tsb <updateProc+2
*** end 10-Jul-92
	pei updateProc+2
	pei updateProc
	pei dlgwptr+2
	pei dlgwptr
	_SetContentDraw	;Let the window and TaskMaster know.

@aa	pha	;Make sure that top window is
	pha	;the active window.
	_GetPort
	pla
	sta keepPort
	pla
	sta keepPort+2
	pei dlgwptr+2
	pei dlgwptr
	_SetPort

	lda flags
	and #mwIBeam
	beq @b	;No cursor changes.

	lda wkind
	bmi @b

	pha	;Result space for control part.

	ldy #0	;Point to where to put the handle.
	phy
	tdc
	clc
	adc #ctlHndl
	pha	;Pointer to ctlHndl now on stack.

	phy
	adc #yloc-ctlHndl
	pha	;Pointer to yloc now on stack.
	_GetMouse

	pei xloc	;Now that they are right, pass 'em on.
	pei yloc
	pei dlgwptr+2
	pei dlgwptr
	_FindCursorCtl	;Find which control cursor is over.
	pla	;The part code, which we don't care
		;about here.

	beq @arrowCursor	;Not over any control -- use arrow.

	jsr getCtlProc	;Find out what kind of control it is.
	cmp #editTextControl>>16
	beq @ibeamCursor	;It is a TextEdit ctl, kind of
		;See fmdFindCursorCtl for more info.
	cmp #editLineControl>>16
	beq @ibeamCursor	;It is a LineEdit tool.

@arrowCursor	jsr ibeamTest
	bcc @b
	jsr doInitCursor	;14-Nov-91 DAL
	bra @b	;We have an arrow cursor.

@ibeamCursor	jsr ibeamTest
	bcs @b	;We have an ibeam cursor.
	_IBeamCursor
	pha
	pha
	_GetCursorAdr
	pla
	sta >theIBeamAdr
	pla
	sta >theIBeamAdr+2

@b	_SystemTask

	lda flags	;See if cut/copy/paste is tied to menu.
	and #mwMenuSelect+mwMenuKey
	beq @c	;Isn't keyDownEvt or mouseDownEvt.
	_MWSetUpEditMenu	;Update the edit menu.

@c
*** added 21-Apr-91 DAL -- to let sounds happen right, do our update before
*** calling GetNextEvent allowing mouse and key events
@eventAgain	pha
	pea $0140	;update and activate events only
	pei <event+2
	pei <event
	_GetNextEvent
	pla
	beq @noSpecialUpdate
	lda [<event]
	cmp #8	       ;8=activate
	beq @handleSpecialUpdate   ;munch other window's deactivate event
; (event must be an update, #6)

*** compare middle word of window ptr
	ldy #3	;middle word of message field
	lda [<event],y
	cmp <dlgwptr+1
	beq @handleSpecialUpdate

@noSpecialUpdate
*** end of 21-Apr-91 DAL

	pha	;Get the event.
	pea $0FFF	;was $FFFF 17-Feb-91 DAL
	pei event+2
	pei event
	_GetNextEvent
	pla
	beq @exit	;Event shouldn't be handled by app.

@handleSpecialUpdate

	lda [event]
	sta code
	bne @gotEvent

@exit	lda code	;See if code is 0.  If it is, force a
	bne @exit0	;NULL event, so the cursor will flash
	sta [event]	;for lineedit items, etc.
	pha
	pea 1
	pha
	pha
	pei event+2
	pei event
	_SendEventToCtl
	pla

@exit0	pei keepPort+2
	pei keepPort
	_SetPort
	tsc	;Get rid of local variables.
	clc
	adc #sizeLocals
	tcs
	pld	;Restore directPage register.

	ldx #0
	ldy #sizeParms
	jml $e10184	;ToStrip


@gotEvent	jsr XlateApplePeriod
	lda eventHook+1
	beq @noEventHook	;Zero, no event massaging.

	pei event+2	;Give the event hook something
	pei event	;to play with.
	phk	;Push where we want to return to.
	pea @noEventHook-1

	pha	;Push the eventHook address and return
	phb	;to it.
	pla
	lda eventHook
	dec a
	pha
	rtl

@noEventHook	lda [event]
	sta code

	jsr doMouseDown
	bcc @exit

	jsr doMenuKey
	bcc @exit	;The key was a menu key.

	jsr doCutCopyPaste
	bcc @exit	;We did a cut, copy, or paste.

	jsr doActivate
***	bcc @exit	;We did an activate.
*** added 20-May-91 DAL
	bcs @didNotActivate
	lda <flags
	and #mwWantActivate
	bne @exit	;return with the activate event
	brl @eventAgain	;shortcut back for another one
@didNotActivate
*** end of 20-May-91 DAL

	jsr doUpdate
	bcc @exit	;We did an update.

	pha
	lda #0
	pha
	pha
	pha
	pei event+2
	pei event
	_SendEventToCtl
	pla
	beq @exit0

*** added 4-Oct-91 DAL -- if we Tabbed to another control, return the new one
	lda [<event]
	cmp #keyDownEvt
	beq @isKey
	cmp #autoKeyEvt
	bne @notKey
@isKey	ldy #oMessage
	lda [<event],y
	and #$00ff
	cmp #$0009	;Tab?
	bne @notTab

	pha
	pha
	_FindTargetCtl
	pla
	plx
	bcs @notTab

	pha
	pha	;space for GetCtlID
	phx
	pha

	ldy #owmTaskData2	;store ctl handle in TaskData2
	sta [<event],y
	iny
	iny
	txa
	sta [<event],y

	_GetCtlID	;store ctl id in TaskData4
	pla
	ldy #owmTaskData4
	sta [<event],y
	pla
	iny
	iny
	sta [<event],y

@notTab
@notKey
*** end 4-Oct-91

	ldy #owmTaskData2	;Get the ctl hndl of affected ctl.
	lda [event],y
	sta ctlHndl	;Save this in ctlHndl.
	iny
	iny
	lda [event],y
	sta ctlHndl+2
	jsr setValues
	brl @exit

***

doCutCopyPaste	lda editTask	;We already have a task, 
	bne @atask	;so don't check keypress.

	lda code
	cmp #keyDownEvt
	beq @akey
	cmp #autoKeyEvt
	beq @akey

@secexit	sec
	rts

@akey	lda flags
	and #mwMenuKey
	bne @secexit
	ldy #omodifiers	;See if it is a cut/copy/paste command.
	lda [event],y
	and #controlKey+optionKey+appleKey
	cmp #appleKey
	bne @secexit	;Wrong modifiers -- no go.

	ldy #omessage
	lda [event],y
	ora #$20	;Lower-case it.

	ldx #251
	cmp #'x'
	beq @yes
	inx
	cmp #'c'
	beq @yes
	inx
	cmp #'v'
	sec
	bne @secexit
@yes	stx editTask	;We have a valid task now.

@atask	pha	;Find out what control we are talking
	pha	;about.
	_FindTargetCtl
	ply
	sty ctlHndl
	ply
	sty ctlHndl+2
	bcs @secexit

	lda editTask	;251 thru 254 (cut/copy/paste/clear)
	stz editTask	;This is also a flag, so we need to set
	sec	;it back.
	sbc #251-4
	asl a	;Assume TextEdit.
	tax
	stz theHndl	
	stz theHndl+2

	jsr getCtlProc	;Find out what tool it is.
	cmp #editTextControl>>16
	beq @b	;It is TextEdit, and the xreg is set up
		;for TextEdit.

	cmp #editLineControl>>16
	bne @secexit	;Not a LineEdit tool, so there can be
		;no cut/copy/paste.

	ldy #octlData	;It is LineEdit.
	lda [ctlPtr],y
	sta theHndl
	iny
	iny
	lda [ctlPtr],y
	sta theHndl+2
	txa
	and #7
	tax	;LineEdit tool.

@b	pei theHndl+2	;All the below routines will use this
	pei theHndl	;parameter eventually.
	jmp (@theTask,x)

@theTask	dc.w @leCut, @leCopy, @lePaste, @leClear
	dc.w @teCut, @teCopy, @tePaste, @teClear

@leCut	_LECut	;Do the cut.
	jsr setValues	;added 30-Nov-92 DAL
@leCut0	lda flags
	lsr a
	bcs @clcexit

***	_ZeroScrap	;Then conditionally do the LEToScrap.
***	pha	;Conditionally, because of the bug for
***	_LEGetScrapLen	;zero-length scrap.
***	pla
***	beq @clcexit

	_LEToScrap
@clcexit	clc
	rts
@clcexitz	pla
	pla
	clc
	rts

@leCopy	_LECopy	;Do the copy.
	bra @leCut0

@lePaste	lda flags
	lsr a
	bcs @c

	pha	;Boy, are we good citizens, or what?
	pha
	pei zero
	_GetScrapSize
	plx
	ply
	bcs @clcexitz	;Give up and do nothing.
	tya
	bne @clcexitz	;Way too big, so give up.
	txa
	beq @clcexitz	;Too small, so give up.
	_LEFromScrap
	bcs @clcexitz	;Somebody wasn't pleased, so give up.
@c	_LEPaste
	jsr setValues	;added 30-Nov-92 DAL
	clc
	rts

@leClear	_LEDelete	;Do the clear.
	clc
	rts

@teCut	ldy #$28+2	;Find out if we are read-only.
	lda [ctlPtr],y
	and #$0400	;Bit 26, please.
	beq @teCut0	;Not read-only, so it is okay.
	pla
	pla
	bra @teCut1
@teCut0	_TECut	;Do the cut.
	jsr setValues	;added 30-Nov-92 DAL
@teCut1	clc
	rts

@teCopy	_TECopy	;Do the copy.
	clc
	rts

@tePaste	_TEPaste	;Do the paste.
	jsr setValues	;added 30-Nov-92 DAL
	clc
	rts

@teClear	_TEClear	;Do the clear.
	clc
	rts

getCtlProc	ldy #2	;Find out what tool it is.
	lda [ctlHndl],y
	sta ctlPtr+2
	lda [ctlHndl]
	sta ctlPtr	;Handle now dereferenced.
	ldy #octlProc+2	;Get hi-word of proc address.
	lda [ctlPtr],y
	rts

***

doActivate	lda code
	cmp #activateEvt
	beq @a
	sec
	rts

@a	pha
	pha
	_GetPort

	pha	;Result space for _GetWControls.
	pha
	ldy #omessage+2	;Find out which window we are
	lda [event],y	;talking about.
	tax
	dey
	dey
	lda [event],y
	phx
	pha
	phx
	pha
	_SetPort

	ldy #omodifiers	;See if we are activating.
	lda [event],y
	lsr a
	bcc @noMenuProc	;We are not, so don't update menus.

	pha	;See if we have a proc to set the state
	pha	;of the menus.
	lda #$ffff	;was 0 30-Apr-91 DAL
	pha
	pha
	_MWSetMenuProc	;pass 0 to get the current menu proc
	plx	;Lo-word of address.
	pla	;Hi-word of address.
	bne @haveMenuProc	;We have a menu proc -- go do it.
	txy
	beq @noMenuProc	;We don't have one.

@haveMenuProc	phk	;Push where we want to return to.
	pea @noMenuProc-1
	xba	;Push just the lo-byte as the hi-byte
	pha	;of ret addr.
	phb
	pla
	dex	;Push the lo-word minus 1 for rtl.
	phx
	rtl

@noMenuProc	_GetWControls
	pla
	sta ctlHndl
	pla
	sta ctlHndl+2

*** added 23-Mar-93 DAL -- if the window's fCtlTie bit is set, then don't invalidate controls
	pha	;space for GetWFrame
	ldy #omessage+2
	lda [<event],y
	pha
	dey
	dey
	lda [<event],y
	pha
	_GetWFrame
	pla
	and #$0008	;fCtlTie = 1 --> ctl state is independent of window state
	bne @exit
*** end 23-Mar-93

@loop	lda ctlHndl+1
	beq @exit
	jsr getCtlProc

*** added 27-Oct-91 DAL -- special-case Static Text
	tax
	cmp #$8100
	bne @notST
	ldy #oCtlFlag
	lda [<ctlPtr],y
	and #$0008	;fTextCanDim
	bne @inval	;inval if it can dim
@notST	txa
*** end 27-Oct-91
	ldx #@nakend-@nak-2
@naklook	cmp >@nak,x
	beq @nextCtl
	dex
	dex
	bpl @naklook

	cmp #editLineControl>>16
	bne @inval	;Invalidate unless lineEdit.
		;Invalidate this one selectively.  If
		;it is the window's target, then
		;invalidate it.

	ldy #octlMoreFlags
	lda [ctlPtr],y
	bpl @nextCtl	;It doesn't need invalidating (not target).

@inval	lda ctlPtr	;Push pointer to bounding rect of ctl.
	clc
	adc #octlRect
	tax
	lda ctlPtr+2
	adc #0
	pha
	phx
	_InvalRect
	jsr getCtlProc	;An easy way to redereference.

@nextCtl	ldy #2
	lda [ctlPtr]
	sta ctlHndl
	lda [ctlPtr],y
	sta ctlHndl+2
	bra @loop

@exit	_SetPort
	clc	;displayed in the correct state.
	rts

@nak	dc.w $8100,$8900,$8D00 ;These don't need invalidating ever.
	dc.w $87ff	;added 20-May-91 DAL
@nakend

*
* XLateApplePeriod
*
* Added 14-Feb-91 DAL: bit 31 of eventhook translates
*                      Apple-period into ESC
*
XlateApplePeriod	lda eventHook+2	;bit 31 set?
	bpl @noTranslate
	lda [<event]
	cmp #5	;auto key
	beq @xlate
	cmp #3	;key down
	bne @noTranslate
@xlate	ldy #14	;modifiers
	lda [<event],y
	tax
	and #$0100	;Apple key down?
	beq @noTranslate
	ldy #2	;message (key in low byte)
	lda [<event],y
	and #$00ff
	cmp #$002e	;period?
	bne @noTranslate
	lda #$001b	;escape
	sta [<event],y
	txa
	and #$ffff-$0100
	ldy #14
	sta [<event],y	;new modifiers
@noTranslate	rts
*** end of 14-Feb-91 DAL

***

doUpdate	lda code
	cmp #updateEvt
	beq @a
	sec
	rts	;Event isn't an update event.

@noUpdate	stz code	;We don't do this update, since the
	clc	;window that needs to be updated isn't
	rts	;the modal dialog.

@a	ldy #omessage+2	;Find out which window we are
	lda [event],y	;talking about.
	sta tempwptr+2
	tax
	dey
	dey
	lda [event],y
	sta tempwptr
	tay

	lda flags
	and #mwUpdateAll
	bne @doUpdate	;We are movable/modal, so update it, whatever it is.

	cpy dlgwptr
	bne @backgndUpdate
	cpx dlgwptr+2
	beq @doUpdate

@backgndUpdate
*** added 5-Apr-93 DAL for 6.0.1d17 -- Zero out code so we will blink insertion points even if
***   we never handling pending updates behind our dialog.
	stz code
*** end 5-Apr-93
	pea $8000	;UpdateWindow flags (update a background window if possible)
	bra @commonUpdate

@doUpdate	pea 0	;UpdateWindow flags (19-Jun-92 DAL)
@commonUpdate	pei <tempwptr+2
	pei <tempwptr
;	_UpdateWindow
	ldx #$6c0e
	jsl $e10000
*** end 6-Mar-92

@exit	clc
	rts

***

doMouseDown	lda code
	cmp #mouseDownEvt
	beq @a
	sec
	rts

@a	pha	;Find out what window we clicked on.
	pei zero
	tdc
	clc
	adc #whichWindow
	pha
	ldy #owhere+2
	lda [event],y
	sta xloc
	pha
	dey
	dey
	lda [event],y
	sta yloc
	pha
	_FindWindow
	pla
	bpl @aa

	tax	;Keep it for _SystemClick's use.
	lda flags
	and #mwDeskAcc
	beq @toBeep

	pei event+2	;Let the DA have some fun, too.
	pei event
	pei whichWindow+2
	pei whichWindow
	phx
	_SystemClick
	clc
	rts

@aa	cmp #wInDrag
	bne @b

	jsr isMyWindow	;See if "whichWindow" equals dlgwptr.
	bcc @toBeep	;Wrong window -- nice try, though.

	lda flags
	bpl @az	;@noBeep

	ldy #0	;Drag resolution -- default.
	phy
	pei xloc	;Starting mouse location.
	pei yloc
	pea 8	;TaskMaster uses this value, so we do.
	phy	;Default cursor boundary.
	phy
	pei dlgwptr+2
	pei dlgwptr
	_DragWindow
	ldy #omodifiers
	lda [event],y
	and #appleKey
	bne @az
	pei dlgwptr+2
	pei dlgwptr
	_SelectWindow
@az	brl @noBeep

@b	cmp #wInMenuBar
	bne @c	;Not in menu bar.
	lda flags
	lsr a
	lsr a
	bcc @toBeep	;_MenuSelect not allowed -- go do beep.
	lda flags
	and #mwMenuSelect+mwMenuKey
	beq @toBeep	;Modal dialog, no menus allowed, so go
		;do beep.
	brl doMenuTask	;Movable/modal dialog, so go
		;handle menu bar.

@c	cmp #wInFrame	;Don't beep if on dialog frame.  This
	beq @d	;branch is the most efficient sizewise,
		;since we won't hit any controls.
	cmp #wInContent
	bne @toBeep	;We didn't click in a content.

@d	jsr isMyWindow
	bcs @e
@toBeep	brl @beep

@e	pha
	pha
	_FrontWindow
*** 20-May-91 DAL -- don't select the already-front window!
	lda 1,s
	cmp <dlgwptr
	bne @needToSelectIt
	lda 3,s
	cmp <dlgwptr+2
	beq @alreadyFront
@needToSelectIt
*** end of 20-May-91 DAL
	pei dlgwptr+2
	pei dlgwptr
	_SelectWindow
@alreadyFront
	pla
	plx
	cmp whichWindow
	bne @noBeep
	cpx whichWindow+2
	bne @noBeep

@f	pha
	pei zero
	tdc
	clc
	adc #ctlHndl
	pha
	pei xloc
	pei yloc
	pei dlgwptr+2
	pei dlgwptr
	_FindControl
	pla
	beq @noBeep	;Missed all of the controls.	

	jsr fixLEflash

	pha
	pei xloc
	pei yloc
	lda #-1
	pha
	pha
	pei ctlHndl+2
	pei ctlHndl
	_TrackControl
	pla
	sta >ctlPart
	beq @noBeep

	ldy #owmTaskData2	;Put the found control in TaskData2
	lda ctlHndl	;for application.
	sta [event],y
	iny
	iny
	lda ctlHndl+2
	sta [event],y
	jsr setValues
	clc
	rts

@beep	lda beepProc+2
	bmi @noBeep	;Negative, do nothing.
	ora beepProc
	beq @sysBeep	;Zero, regular SysBeep.

	pei event+2	;Give the custom "beep" something
	pei event	;to play with.
	phk	;Push where we want to return to.
	pea @noBeep-1
	lda beepProc+1	;Push beepProc addr and return to it.
	pha
	phb
	pla
	lda beepProc
	dec a
	pha
	rtl
@sysBeep	pea 4	;clicked outside the dialog
	_SysBeep2
@noBeep	clc
	rts

fixLEflash	jsr getCtlProc
	cmp #editLineControl>>16
	bne @rts
	ldy #octlMoreFlags
	lda [ctlPtr],y
	bmi @rts	;LineEdit control already target.

	ldy #octlData	;For lineEdit controls that are
	lda [ctlPtr],y	;inactive, make sure that there is no
	sta theHndl	;text currently selected.  If there is,
	iny	;TrackControl will temporarily flash
	iny	;the selected range.  So, we check to
	lda [ctlPtr],y	;see if we are a lineEdit control.  If
	sta theHndl+2	;we are, we see if we are active.  If
	ldy #2	;we aren't, we set selEnd to be the
	lda [theHndl]	;same as selStart.  Simple, huh?
	sta thePtr
	lda [theHndl],y
	sta thePtr+2

	ldy #oleSelStart	;thePtr is deref'ed lineEdit record.
	lda [thePtr],y	;Set selEnd to be the same as selStart.
	iny
	iny
	sta [thePtr],y	;It is done.  It is good.  The end.

@rts	rts

***

setValues	pha	;Convert the control handle into an ID
	pha	;for application.
	pei ctlHndl+2
	pei ctlHndl
	_GetCtlID
	pla
	ply
	bcs @a	;List controls have non-super-control
		;scrollbars.  We therefore don't want
		;to return a control-id here, since
		;non-super-controls don't have an id to
		;return anyway.  (We get an error $1007
		;if it isn't a super-control, so we
		;don't want to return anything
		;anything, since it garbage.)
	sta retval
	sty retval+2	;Return the ctlID in retval.

@a	jsr getCtlProc	;See if radio button or checkbox.
	cmp #radioControl>>16
	beq @radioButtonHit
	cmp #checkControl>>16
	bne @rts

@checkBoxHit	pha
	pei ctlHndl+2
	pei ctlHndl
	_GetCtlValue
	pla
	beq @c	;Do a true NOT.
	lda #$FFFF
@c	inc a
@d	pha
	pei ctlHndl+2
	pei ctlHndl
	_SetCtlValue
@rts	rts

@radioButtonHit	lda #1
	bra @d

doMenuTask	clc
doMenuTaskz	php	;Keep carry status.
	pei event+2
	pei event
	lda #0
	pha
	pha
	bcs @b
	jsr ibeamTest
	bcc @a
	jsr doInitCursor	;This only gets done if it is currently an ibeam.
@a	_MenuSelect	;Handle the pullDown.
	bra @c
@b	_MenuKey	;Handle the menu key.

@c	plp	;Restore carry status.
	ldy #owmTaskData
	lda [event],y
	beq @rts	;PullDown, cclear.  MenuKey, cset.
	tax
	iny
	iny
	lda [event],y
	sta menunum

	cpx #250	;See if we should open a DA.
	bcs @d

	lda flags	;See if we should handle DA's.
	and #mwDeskAcc
	beq @y	;No, so hilite menu to normal.
	phx	;Open the can-o-worms.
	phx
	jsr doInitCursor	;14-Nov-91 DAL
	_OpenNDA
	pla
	bra @y	;Do _HiliteMenu and leave.

@d	cpx #256	;Anything above close, let app do it.
	bcs @z	;Not an undo/cut/copy/paste/clear/close
		;menu item.

	ldy wkind
	bpl @e

	cpx #255
	beq @closeNDA	;Go let the DA handle it.

	txa
	sec
	sbc #249
	pha
	pha
	_SystemEdit
	pla
	bra @y	;Do _HiliteMenu and leave.

@e	cpx #255
	beq @z	;Let app do close for non DA windows.
	cpx #250
	beq @z	;Let app do undo also.

	stx editTask	;Let cut/copy/paste know what to do.
	jsr doCutCopyPaste

@y	pei zero
	pei menunum
	_HiliteMenu
	clc
	rts

@z	stx retval	;Low-order word contains the ID # of
	ora #$8000	;item selected.  Hi-order word contains
	sta retval+2	;the menu ID # with hi-bit turned on.
	clc	;The hi-bit is to allow the application
		;to distinguish this from a control ID.
		;This means ID's must be hi-bit off!!
@rts	rts

@closeNDA	pha
	pha
	_FrontWindow
	lda 1,s	;Be extra paranoid -- it helps.
	cmp keepPort	;Make sure that the desk accessory was
	bne @db	;not active port when fakeModalDialog
	lda 3,s	;was called.  If it is, we will get
	cmp keepPort+2	;into trouble closing it, because we
	bne @db	;will do a SetPort to keepPort when we
	lda dlgwptr	;leave.  So, if keepPort is the port we
	sta keepPort	;are about to close, change it to the
	lda dlgwptr+2	;dlgwptr (the app's dialog window).
	sta keepPort+2
@db	_CloseNDAByWinPtr
	bra @y

isMyWindow	lda whichWindow
	cmp dlgwptr
	bne @no
	lda whichWindow+2
	cmp dlgwptr+2
	beq @yes
@no	clc
@yes	rts

***

doMenuKey	lda code
	cmp #keyDownEvt
	beq @a
	sec
@rts	rts	;It isn't a menu key, since it isn't
		;even a key.

@a	lda flags
	and #mwMenuKey
	sec
	beq @rts	;Menu keys not allowed (carry is set).

	brl doMenuTaskz	;Carry still set, which is important.

***

*** IBeamTest -- return SEC if we're displaying the I-Beam cursor

ibeamTest	lda wkind
	clc
	bmi @rts	;Don't do our ibeam when a DA is up.
	pha	;This is so we know what cursor we
	pha	;currently have.  Otherwise, we will be
	_GetCursorAdr	;setting the cursor a lot, and it will

;	pha	;flash.
;	pha
;	jsl fmdGetIBeamAdr	;This clears carry (no error returned.)
;	pla
;	ply

	clc
	lda >theIBeamAdr+2
	tay
	lda >theIBeamAdr	;DAL

	eor 1,s
	bne @no	;Carry is clear.
	tya
	eor 3,s
	bne @no	;Carry is clear.
	sec
@no	pla
	pla
@rts	rts	;Carry set means we now have ibeam.

	export theIBeamAdr
theIBeamAdr	dc.l 0

doStdDrawProc	_MWStdDrawProc
	rtl

	EndP

**********************************************************************
*
* doInitCursor
*
* (JSRing here instead of _InitCursor saves 4 bytes per.)
*
**********************************************************************
doInitCursor	proc export
	_InitCursor
	rts
	EndP

**********************************************************************
*
* $650E MWGetCtlPart -- new call 22-Jan-91 DAL
*
* Input:
*   WORD  space for result
*
**********************************************************************
MWGetCtlPart	proc export

	lda >ctlPart
	sta 7,s
	lda #0
	clc
	rtl

	export ctlPart
ctlPart	dc.w 0

	EndP

**********************************************************************
*
* $660E MWSetMenuProc -- new call 19-Jan-91 DAL
*
* Input:
*   LONG space for result: old menu proc
*   LONG pointer to menu proc, $FFFFFFFF to leave unchanged
*
* To tell fakeModalDialog to automatically call a menu update routine when
* it gets an activate event, make a call to fmdSetMenuProc.  For an application
* menu update routine called appSetMenus, you would tell fakeModalDialog
* about it by the following:
*     ignore = fmdSetMenuProc(appSetMenus);
* To turn off menu updating again, do this:
*     ignore = fmdSetMenuProc(NULL);
*
**********************************************************************
MWSetMenuProc	proc export

newProc	equ 7	;on stack
result	equ newProc+4	;on stack

	lda >menuProc+2
	sta result+2,s
	lda >menuProc
	sta result,s

	lda newProc+2,s
	inc a
	beq @noChange	;$FFFFxxxx = keep old value
	dec a
	sta >menuProc+2
	lda newProc,s
	sta >menuProc

@noChange	ldx #0	;no error
	ldy #4	;strip 4 bytes of input
	jml $e10184	;ToStrip

	export MenuProc
MenuProc	dc.l 0

	EndP

**********************************************************************
*
* $670E MWStdDrawProc -- new call 22-Jan-91 DAL
*
* Input: none
*
* Window to draw is current port.  We always draw the controls, and
* we may also draw our own "alert" type frame inside the content.
*
**********************************************************************
MWStdDrawProc	proc export

	pha	;What kind of window frame do we want?
	pha
	pha
	_GetPort
	_GetWFrame
	pla	;fAlert is bit 13.  fFlex is bit 9.
	asl a
	asl a	;fAlert is now in bit 15.
	bmi @noFrame	;We already have a frame, and
		;it looks maaahvelous!

	and #$0800	;Bit 9 moved into bit 11.
	bne @noFrame

	pha
	_GetMasterSCB
	pla
	xba
	asl a
	lda #5
	bcs @in640
	lsr a
@in640	pha	;Keep the width for _InsetRect.
	pha	;Push the width for _FrameRect.
	pea 2
	_SetPenSize
	plx	;The width for _InsetRect.
	lda #@workRect
	ldy #@workRect>>16
	phy	;Push parameters for _FrameRect.
	pha
	phy	;Push parameters for _InsetRect.
	pha
	phx	;Push the width for _InsetRect.
	pea 2
	phy	;Push parameters for _GetPortRect.
	pha
	_GetPortRect
	_InsetRect
	_FrameRect
	_PenNormal

@noFrame	pha
	pha
	_GetPort
	_DrawControls
	rtl

@workRect	ds.w 4

	EndP

**********************************************************************
*
* $680E MWSetUpEditMenu -- new call 19-Jan-91 DAL
*
* Input:
*
*
* fmdEditMenu figures the state of cut, copy, paste, and clear in
* the edit menu based on the state of controls in the window.
* It looks up the target control (either lineEdit or textEdit) and
* then sets the states appropriately.  For lineEdit, if anything
* is selected, then cut, copy and clear are available.  If there is
* anything in the scrap, then paste is also available.  TextEdit 
* works the same way, unless the textEdit control is a read-only
* control.  In that case, cut, paste, and clear are not available.
* If there is no lineEdit or textEdit control, then the state of
* these menu items is left alone.  The application needs to take care
* of them in that case.  (It is possible that there are custom
* controls for the application that can use these menu items, and
* there is no way for fakeModalDialog to know about them.  Therefore
* the correct thing to do is to do nothing.)
*
**********************************************************************
MWSetUpEditMenu	proc export

	DefineStack
selStart	long
selEnd	long
leHndl	long
lePtr	long
ctlPtr	long	;Must be 2nd from end of local space.
ctlHndl	long	;Must be at end of local space.
sizeLocals	EndLocals

saveDPage	word
returnAddr	block 6	;was 3 (DAL)

	phd	;Save directPage register.

	tsc	;Make space for locals, part 1.
	sec
	sbc #sizeLocals
	tcd

	pha	;Find out if it is a DA window.
	pha
	pha
	_FrontWindow
	_GetWKind
	pla
	bpl @a	;It is a regular window.
	pea 250
	_EnableMItem	;Enable undo.
	pea 255
	_EnableMItem	;Enable close.
	ldx #%1111	;Enable cut/copy/paste/clear.
	brl @setMenus

@a	pha
	pha
	_FindTargetCtl
	bcc @aa	;There is a target, so go do some work.
	brl @noTool

@aa	ldy #2	;Deref target ctl handle into ctlPtr.
	lda [ctlHndl],y
	pha
	lda [ctlHndl]
	pha

	tdc	;Make space for locals, part 2.
	tcs	;Stack ptr & directPage ptr agree now.

	ldy #octlProc+2	;Get hi-word of proc address.
	lda [ctlPtr],y


	cmp #editTextControl>>16
	beq @textEdit	;It is TextEdit tool.
	cmp #editLineControl>>16
	bne @noTool	;Not LineEdit tool.

@lineEdit	ldy #octlData	;Get the lineEdit handle from
	lda [ctlPtr],y	;the control's data field.
	sta leHndl
	iny
	iny
	lda [ctlPtr],y
	sta leHndl+2

	ldy #2	;Dereference leHndl.
	lda [leHndl]
	sta lePtr
	lda [leHndl],y
	sta lePtr+2

	ldx #0
	jsr canWePaste

	ldy #oleSelStart
	lda [lePtr],y
	iny
	iny
	cmp [lePtr],y
	beq @setMenus
	txa
	ora #%1011	;Enable cut/copy/clear.
	tax	
	bra @setMenus

@textEdit	ldy #0
	phy
	tdc
	clc
	adc #selStart
	pha
	phy
	adc #selEnd-selStart
	pha
	pei ctlHndl+2
	pei ctlHndl
	_TEGetSelection
	ldx #%1011
	lda selStart
	cmp selEnd
	bne @hasSelect
	lda selStart+2
	cmp selEnd+2
	bne @hasSelect
	ldx #0

@hasSelect	jsr canWePaste

	ldy #$28+2	;Find out if we are read-only.
	lda [ctlPtr],y
	and #$0400	;Bit 26, please.
	beq @setMenus

	txa	;Don't allow cut & paste.
	and #2
	tax
	bra @setMenus

@noTool	ldx #0	;Bit 0 for cut, 1 for copy,
		;2 for paste.
@setMenus	txa
	ldy #251
	jsr setOneMenu
	jsr setOneMenu
	jsr setOneMenu
	jsr setOneMenu

@exit	tdc	;Remove local space.
	clc
	adc #sizeLocals
	tcs
	pld	;Restore directPage register.

	lda #0
	clc
	rtl

setOneMenu	lsr a
	pha
	phy
	phy
	bcs @enable
@disable	_DisableMItem
	bra @a
@enable	_EnableMItem
@a	ply
	iny
	pla
	rts

canWePaste	txa	;Assume no paste.
	and #$FFFF-4
	pha

	pha	;See if paste should be available.
	pha
	pea 0
	_GetScrapSize
	plx
	ply

	pla	;Get cut/copy/paste status back.

	bcs @exit	;Error, so no paste.
	phy
	ply
	bne @yes
	txy
	beq @exit
@yes	ora #4

@exit	tax
	rts

	EndP

**********************************************************************
*
* $690E FindCursorCtl -- new call 22-Jan-91 DAL
*
* Input:
*    LONG  pointer to buffer to receive control handle
*    WORD  X position
*    WORD  Y position
*    LONG  window pointer
*
* FindCursorCtl is used to find which control is at a certain point.
* The toolbox call FindControl can't be used for this because TextEdit
* controls become active when called with a point in them.  That is not
* the desired effect of fmdFindCursorCtl.  If you just want to know what
* control you are over and have nothing affected, then use this entry
* point.  It is used by fakeModalDialog to determine whether or not to
* display an i-beam cursor.  If the i-beam bit is set and the user moves
* the mouse over a lineEdit or textEdit control, then the cursor changes
* to an i-beam.  Note that the scrollbars for a textEdit control are
* considered a separate control.  This is so that the cursor stays
* an arrow when over the scrollbars.
*
**********************************************************************
FindCursorCtl	proc export

	DefineStack

hndl	long	;Must be at 1,s
ctlHndl	long
ctlPtr	long

sizeLocals	EndLocals

saveDPage	word
returnAddr	block 6	;was 3 (DAL)

	BegParms
wptr	long
yloc	word
xloc	word
ctlHndlPtr	long	;Where to store the control handle.
sizeParms	EndParms

ctlPart	word

	phd	;Save directPage register.
	tsc	;Make space for locals.
	sec
	sbc #sizeLocals
	tcs
	tcd	;Set directPage register.

	pei wptr+2
	pei wptr
	_GetWControls	;Result space already there (hndl).

	stz ctlPart	;Assume failure.
	stz ctlHndl
	stz ctlHndl+2

@loop	lda hndl+1
	beq @exit	;No more controls to check.

	ldy #2	;Deref hndl.
	lda [hndl]
	sta ctlPtr
	lda [hndl],y
	sta ctlPtr+2

*** added 10-Jun-91 DAL -- see if this control is invisible
	ldy #octlFlag
	lda [<ctlPtr],y
	and #$0080
	bne @nextCtl
*** end of 10-Jun-91

	pha	;Result space for _PtInRect
	pea 0	;Push pointer to point.
	tdc
	clc
	adc #yloc
	pha
	lda ctlPtr	;Push ptr to bounding rect of ctl.
	clc
	adc #octlRect
	tax
	lda ctlPtr+2
	adc #0
	pha
	phx
	_PtInRect
	pla
	beq @nextCtl

	sta ctlPart
	lda hndl	;Copy the temp hndl to the "real" one.
	sta ctlHndl
	lda hndl+2
	sta ctlHndl+2

*** added 13-Nov-91 DAL -- no need for special Text Edit handling
;;	ldy #octlProc+2	;Get hi-word of proc address.
;;	lda [ctlPtr],y
;;	cmp #editTextControl>>16
;;	bne @exit
	bra @exit
*** end 13-Nov-91 DAL

@nextCtl	ldy #2
	lda [ctlPtr]	;Get the next control handle.
	sta hndl
	lda [ctlPtr],y
	sta hndl+2
	bra @loop

@exit	lda ctlHndl	;Return the ctl hndl (could be NULL).
	sta [ctlHndlPtr]
	lda ctlHndl+2
	ldy #2
	sta [ctlHndlPtr],y

	tsc	;Get rid of local variables.
	clc
	adc #sizeLocals
	tcs
	pld	;Restore directPage register.

	ldx #0	;no error
	ldy #sizeParms	;number of bytes to strip
	jml $e10184	;ToStrip

	EndP


**********************************************************************
*
* $6A0E ResizeInfoBar -- new call 5-Mar-91 DAL
*
* Input:
*    WORD  flags (reserved, use 0)
*    WORD  new info bar height
*    LONG  window pointer
*
* WARNING: This only works for standard windows, not custom windows.
*
**********************************************************************
ResizeInfoBar	proc export

	phd
	tsc
	tcd

@oldD	equ 1
@rtl	equ @oldD+2
@window	equ @rtl+6
@height	equ @window+4
@flags	equ @height+2

	ldy #$100-4	;offset to info bar height
	lda @height
	sta [@window],y

	pha
	pha
	_GetPort
	pei @window+2
	pei @window
	_SetPort

	pushlong #ThePortRect
	_GetPortRect

	_SetPort

	sec
	lda >ThePortRect+6
	sbc >ThePortRect+2
	pha
	lda >ThePortRect+4
	sbc >ThePortRect
	pha
	pei @window+2
	pei @window
	_SizeWindow

	pld
	ldx #0
	ldy #8
	jml $e10184	;ToStrip

ThePortRect	ds.b 8

	EndP

**********************************************************************
**********************************************************************
*
* $6B0E HandleDiskInsert -- new call 12-Apr-91 DAL
*
* Input:
*   WORD space for result flags
*   WORD space for result devnum
*   WORD flags
*   WORD devNum
* Output:
*   WORD resultFlags
*   WORD resultDevNum
*
* Input flags:
*   Bit 15 = perform device scanning
*   Bit 14 = perform Volume call & user interaction on errors
*   Bit 13 = update the status of a particular device or all devices
*   Bit 12 = report any detected disk-ejects too, not just inserts
*   Bit 11 = bypass the normal 1-second delay, scan immediately
*   Bit 10 = simulate a duplicate-volume error on a specific device
*            (set bit 14 also, and pass in devNum)
*   Bit  0 = initialize all devices to "offline" status so that each
*            device already online will appear as an insertion
* 
* Input devnum: Normally zero.  Pass a nonzero device number if you
* already detected an insert & want the system to check it out & possibly
* ask the user to format it (flag bit 15 clear, 14 set); or if you are
* informing the system that you have already taken care of the new status
* of a particular device (flag bit 13 set).
* 
* ResultDevNum: the device number of a device that was inserted or ejected.
* Zero if nothing happened, or if the user chose to Eject a disk that was
* discovered to be inserted.
* 
* ResultFlags: Bit 0 = set if resultDevNum is an ejection.  Bit 1 = set if
* ResultDevNum represents a disk that the user elected to format.
* 
* Implementation notes:
* ¥ When scanning, Apple 5.25 devices are ignored, as are character devices.
* ¥ Block devices with NON-removable media are still scanned, since it's
*   important for some applications to get an "insert" for them the first
*   time around (after WindStartUp).  May or may not scan them if they're
*   already known to be online.
* ¥ The call will check the tick count against the last time it was called &
*   take no action if it hasn't been long enough (bypass this check if input
*   flag bit 11 is set).
* ¥ Will keep a table indicating which devices are considered online & offline
*   and will make a series of DStatus calls looking for a status that differs
*   from before.
* ¥ When an eject is detected, it is reported if the flags say it should be.
* ¥ When an insert is detected, it does a Volume call on the device.  If there's
*   no error, continue with the scan.
* ¥ If Volume returns an I/O error or unrecognized-volume error, call AlertWindow
*   with the strings already in Sys.Resources (used by Standard File) asking the
*   user to Eject or Initialize.
* ¥ If the user elects to Eject, make the DControl Eject call to get rid of it.
* ¥ If the user elects to Initialize, make the GS/OS Format call to format it
*   (letting the user name the disk and specify the file system & format options
*   within the Format call).
* ¥ If they cancel out of the Format dialog, eject the disk and return no error.
* ¥ If the format is successful, return the device number as the ResultDevNum.
* ¥ If the Volume call returns a *weird* error, leave it online, return the
*   device number to the caller, and return the Volume error to the caller!
*
* If an insert or eject is reported, there is no 1-second delay enforced on the
* next call.
*
* When the volume call returns error $52, we call SendRequest($0002)
* to see if anybody wants to put up a special dialog for the disk.
* They get to specify eject/initialize/erase.  Low word of dataIn =
* device number, offset 4 of dataOut = disposition (0=eject, 1=init,
* 2=erase, $FFFF = leave the volume online and report no error).
*
* If nobody wants to special-case it, then we put up the standard
* AlertWindow with Eject/Initialize buttons (and Option-initialize
* means to Erase instead).
*
* If they click Option-Initialize on our standard dialog for error $52,
* then we do an Erase instead of a Format.
*
* When call completes, the cursor is set to the same thing it was before.
* During the call, Arrow and Watch cursors are used.
*
* ¥ NOTE -- This code only goes as high as device 127.  References to
*           DevStatTable need to change if you want more.
*
* WindStartUp calls HandleDiskInsert($2000,$0000) to initialize us.
*
**********************************************************************
HandleDiskInsert	proc export
	import FlushKeyEvents

	phb
	phk
	plb

	phd

	pea 0	;space/initial value for @theError

	tsc
	tcd

fDoDeviceScan	equ $8000	;must be bit 15 (BPL!)
fHandleInsertion	equ $4000
fUpdateDevStatus	equ $2000
fReportEjects	equ $1000
fNoDelay	equ $0800
fDuplicateVolume	equ $0400	;23-Apr-91 DAL
fCheckTapeDrives	equ $0200	;10-Oct-91 DAL
hdiUnreadable	equ $0100	;9-Dec-91 DAL
fInitialize	equ $0001	;must be bit 0

@theError	equ 1
@oldD	equ @theError+2
@oldB	equ @oldD+2
@rtl	equ @oldB+1
@devNum	equ @rtl+6
@flags	equ @devNum+2
@resultDevNum	equ @flags+2
@resultFlags	equ @resultDevNum+2

	stz <@resultDevNum
	stz <@resultFlags

	lda <@flags
	lsr a
	bcc @noInit
	lda #0
	ldx #14
@clear	sta DevStatTable,x
	dex
	dex
	bpl @clear
@noInit	

	lda <@flags
	and #fUpdateDevStatus
	beq @noUpdate
	jsr @UpdateDevStatus
@noUpdate

	lda <@flags
	bpl @noScanning
	jsr @DoScanning
	bra @cont
@noScanning	lda <@devNum
	sta <@resultDevNum
@cont
	lda <@flags
	and #fHandleInsertion
	beq @noUserStuff
	jsr @PreserveCursor
	jsr @HandleAnInsertion
	jsr @RestoreCursor
@noUserStuff
	ldx <@theError

	pla	;pull <@theError

	pld
	plb
	ldy #4
	jml $e10184	;ToStrip

**********************************************************************
*
* PreserveCursor
*
**********************************************************************
@PreserveCursor	pha
	pha
	_GetCursorAdr
	pla
	sta @theCursor
	pla
	sta @theCursor+2
	rts

**********************************************************************
*
* RestoreCursor -- if the cursor has changed, put it back
*
* (If it hasn't changed, avoid bogus flicker by not doing anything.)
*
**********************************************************************
@RestoreCursor	pha
	pha
	_GetCursorAdr
	plx
	pla
	cmp @theCursor+2
	bne @setIt
	cpx @theCursor
	bne @setIt
	rts
@setIt	pushlong @theCursor
	_SetCursor
	rts

@theCursor	dc.l 0

**********************************************************************
*
* DoScanning
*
* If fNoDelay is clear and it's been less than a second since the
* last time we polled, return without doing anything.
*
**********************************************************************
@doScanning	lda <@flags
	and #fNoDelay
	bne @noDelay

	jsr @GetTickCount
	sec
	sbc PrevTime
	cmp #60	;has it been a second yet?
	bcs @longEnough
	rts	;return, no action
@longEnough
@noDelay

	lda #0
@scanLoop	inc a
	cmp #128
	bcs @scanDone
	jsr @ScanDeviceA
	bcc @scanLoop

@scanDone	jsr @GetTickCount
	sta PrevTime
	rts


**********************************************************************
*
* UpdateDevStatus
*
* Update our private idea of whether a device is online, or all
* devices.  <@devNum is 0 or a specific device.
*
**********************************************************************
@UpdateDevStatus	lda <@devNum
	bne @updateDeviceA

@updateLoop	inc a
	pha
	jsr @updateDeviceA
	pla
	bcc @updateLoop
	rts

@updateDeviceA	cmp #128
	bcs @updated
	pha
	jsr @GetStatusDeviceA  ;SEC=online, CLC=offline, X<>0 if done
	pla
	txy
	bne @errorMeansOnline
	jsr @SetDevStatus
	clc
@updated	rts

@errorMeansOnline	sec
	rts

**********************************************************************
*
* ScanDeviceA -- see if an insert/eject happened for device A
*
* If nothing happened, return CLC.
* If we're out of devices, return SEC.
* If we find an insert/eject, set <@resultDevNum and <@resultFlags
*   and return SEC.
*
* Side effect: updates the DevStatusTable to reflect the device's
* new status.
*
**********************************************************************
@ScanDeviceA	pha
	jsr @GetStatusDeviceA
	txa
	beq @stillGoing
	pla
	sec	;out of devices!
	rts

@stillGoing	bcc @nowOffline	;carry still has online status
@nowOnline	lda 1,s
	phy	;added 31-Jan-92 DAL (keep TheStatusWord)
	jsr @LookupDevStatus
	ply	;added 31-Jan-92 DAL
	bcs @stillOnline
; now we know it's an insert
@weHaveAnInsert	sec
	lda 1,s
	jsr @SetDevStatus
	bra @returnThisDev

@nowOffline	lda 1,s
	jsr @LookupDevStatus
	bcc @stillOffline
; now we know it's an eject
	clc
	lda 1,s
	jsr @SetDevStatus	;mark it offline
	lda <@flags
	and #fReportEjects
	beq @stillOffline
	lda #$0001	;bit = 0 ejection
	tsb <@resultFlags
@returnThisDev	pla
	sta <@resultDevNum
	stz PrevTime	;don't make them wait for the next one!
	sec
	rts

*** added 31-Jan-92 DAL -- If there was a disk-switched, treat online as insert
@stillOnline	tya
	and #1
	bne @weHaveAnInsert
*** end 31-Jan-92
@stillOffline	pla
	clc
	rts

**********************************************************************
*
* GetStatusDeviceA
*
* Input: device number in A
*
* Result: SEC=online, CLC=offline
*         X<>0 if we're out of devices
*         Y = device status word (bit 0 = device switched)
*
* (Apple 5.25s are always reported as offline)
*
**********************************************************************
@GetStatusDeviceA	sta DInfoDevNum
	sta DStatusDevNum
	stz TheStatusWord	;added 31-Jan-92 DAL

*** added 21-Nov-91 DAL -- set up pcount
	lda #3	;pcount
	sta DInfoParms
*** end 21-Nov-91
	pushlong #DInfoParms
	pea $202c	;DInfo
	jsl $e100b0
	tax
	clc
	bne @gotStat	;error --> treat it as offline

	jsr @GetDeviceID

	clc
	lda DeviceID
	beq @returnStat	;say the 5.25 is offline

*** 10-Oct-91 DAL -- check for Apple tape drive, only scan if we want to
	cmp #$0020	;Apple tape drive
	bne @notTape
	lda <@flags
	and #fCheckTapeDrives
	clc
	beq @returnStat	;return offline for tape
@notTape
*** end 10-Oct-91 DAL


	lda DInfoChar	;characteristics
	and #$0080
	clc
	beq @returnStat	;character device--return offline

	lda DInfoChar
	and #$0004	;Removable media?
	sec
	beq @returnStat	;if not removable, report online!

	pushlong #DStatusParms
	pea $202d	;DStatus
	jsl $e100b0

	lda TheStatusWord
	and #$0010
	cmp #1	;SEC = online

@returnStat	ldx #0
@gotStat
	ldy TheStatusWord	;added 31-Jan-92 DAL
	rts

**********************************************************************
*
* GetDeviceID
*
* Input: DInfoDevNum
* Output: DeviceID
*
* This routine cheats & gets a device's device_id without making a
* DInfo call.  Calling DInfo with a lot of parameters does device
* access, which takes too much time to do here.
*
* $E100BE bit 15 is the GS/OS busy flag.  To make sure I have use of
* GS/OS direct page, I check the bit & then keep it set while I'm
* doing the work.
*
* $01FC00 is the device dispatcher.  DevNum = 0 does special stuff,
* like finding DIBs.  How handy.
*
**********************************************************************
@GetDeviceID	stz DeviceID
	lda >$e100be
	bmi @osBusy
	ora #$8000
	sta >$e100be

	phd
	lda #$bd00	;hard-coded GS/OS direct page location
	tcd
	sep #$30
	lda >$e0c068
	pha
	lda >$e0c08b
	lda >$e0c08b
	rep #$30

	lda DInfoDevNum
	sta <4	;driver number
	stz <0	;$BD00 = 0 (device #)
	stz <2
	inc <2	;$BD02 = 1 (get_dib_ptr)

	jsl $01fc00	;returns dib pointer at <$20

	ldy #$0034	;offset of device_id in DIB
	lda [$20],y	;$20 points to current DIB
	sta DeviceID

	sep #$30
	pla
	sta >$e0c068
	rep #$30
	pld

	lda >$e100be
;;;	and #$7fff
	asl a
	lsr a	;cleared bit 15
	sta >$e100be

@osBusy	rts

**********************************************************************
*
* LookupDevStatus
*
* In: A = device number
*
* Out: SEC=device online, CLC=device offline
*
**********************************************************************
@LookupDevStatus	jsr @computeTableOffset
	and DevStatTable,x
	cmp #1
	rts

**********************************************************************
*
* SetDevStatus
*
* A = device number, SEC=online, CLC=offline
*
**********************************************************************
@SetDevStatus
*** added 20-May-91 DAL -- only update status table if application wants it
*** NOTE THAT CARRY FLAG IS PRESERVED HERE!
	tax
	lda <@flags
	and #fDoDeviceScan+fUpdateDevStatus
	bne @continue
	rts
@continue	txa
*** end of 20-May-91 DAL
	php
	jsr @computeTableOffset
	plp
	bcc @clearTheBit
	ora DevStatTable,x
	bra @store
@clearTheBit	eor #$ffff
	and DevStatTable,x
@store	sta DevStatTable,x
	rts

**********************************************************************
*
* ComputeTableOffset
*
* In: A = devnum
* Out: X = offset, A = bit mask
*
**********************************************************************
@computeTableOffset	tay
	and #$0007
	tax
	lda @bitmasks,x
	and #$00ff
	pha
	tya
	lsr a
	lsr a
	lsr a
	tax
	pla
	rts

@bitmasks	dc.b $01,$02,$04,$08,$10,$20,$40,$80

**********************************************************************
*
* GetTickCount -- return A = low word of tick count
*
**********************************************************************
@GetTickCount	pha
	pha
	_TickCount
	pla
	plx
	rts

**********************************************************************
*
* HandleAnInsertion
*
* resultDevNum and resultFlags are valid
*
* If there's no insert, we're done right away.
*
**********************************************************************
@goInsDone	brl @insDone

@HandleAnInsertion	lda <@resultDevNum
	beq @goInsDone
	lda <@resultFlags
	lsr a
;;;	bcs @insDone	;14-Apr-91 (it's an Eject)
*** 31-Jan-92 DAL -- branch was too long
	bcc @notInsDone
	rts
@notInsDone
*** 31-Jan-92 DAL

; okay, we have a real insert -- do a DInfo and Volume call
	lda <@resultDevNum
	sta DInfoDevNum
*** added 21-Nov-91 DAL -- set up large pcount
	lda #8	;pcount
	sta DInfoParms
*** end 21-Nov-91
	pushlong #DInfoParms
	pea $202c	;DInfoGS
	jsl $e100b0
	bcs @insDone

*** added 31-Jan-92 DAL -- Never handle a Tape Drive insertion
	lda device_id
	cmp #$0020	;Apple tape drive
	beq @insDone
*** end 31-Jan-92

*** added 9-Dec-91 DAL -- check hdiUnreadable bit, pretend we got I/O error
	lda <@flags
	and #hdiUnreadable	;simulate an I/O error
	beq @notUnreadable
	lda #$27
	bra @volumeErr
@notUnreadable
*** end 9-Dec-91

; try making a volume call, see if we get an error
	pushlong #VolumeParms
	pea $2008	;VolumeGS
	jsl $e100b0
	bcs @volumeErr

*** added 2-Dec-91 DAL -- after successful Volume call, try GetFileInfo
	pushlong #gfiParms
	pea $2006
	jsl $e100b0
	bcs @volumeErr
*** end 2-Dec-91

	lda <@flags
	and #fDuplicateVolume
	beq @insDone
	lda #$57

@volumeErr	cmp #$2f	;offline?
	beq @insDone

	cmp #$27
	beq @ioError

	cmp #$52
	bne @not52
	brl @badFileSystem
@not52
	cmp #$57	;duplicate volume
	bne @notDupVol
	jsr @RenameVolume
	bcc @insDone	;24-Oct-91 DAL
	brl @handleDisposition  ;24-Oct-91 DAL (was bra @insDone)
@notDupVol

*** 28-Oct-92 DAL -- treat $51 (directory damaged) like $5A
	cmp #$0051
	beq @is5a
*** end 28-Oct-92

*** added 2-Dec-91 DAL -- treat $46 (file not found) like $5A (damaged disk)
	cmp #$0046
	bne @not46
@is5a	lda #$005a
@not46
*** end 2-Dec-91

*** 14-Nov-91 DAL
	cmp #$5A	;disk damaged (especially from HFS)
	bne @not5A
	brl @diskDamaged
@not5A
*** end 14-Nov-91

; unknown error -- return it to the caller
	sta <@theError
@insDone	rts

*
* Handle I/O error
*
@ioError	pea $4033	;bad disk + defer
	_SysBeep2

	lda #$0096
	jsr @CallAlertWindow
	dec a
	bmi @EjectThatThang

	_WaitCursor
	pushlong #FormatParms
	pea $2024	;Format
	jsl $e100b0
	bcs @ioErr2
	brl @didFormat
@ioErr2	tay
	beq @EjectThatThang	;Cancel (error 0)
*** added 10-Oct-91 DAL -- special-case error $21 for a 3.5" disk
@handleFmtError	cmp #$0021
	bne @not21
	ldx Device_id
	cpx #$0017	;MFM disk?
	beq @is21
	dex	;is it $0001 = 3.5"?
	bne @not21
@is21	lda #$0099	;special error for HandleDiskInsert (wrong media)
@not21
*** end 10-Oct-91 DAL
	bra @ErrorAndEject

*
* ErrorAndEject
*
* Input:  A = error code, <@resultDevNum = device number
*
@ErrorAndEject	pha	;space for result
	pea $0020	;substitution type + flags (button positions)
	pea 0
	pea 0	;substitution array
	pha	;error code
	jsr doInitCursor	;14-Nov-91 DAL
	_ErrorWindow
	pla	;button number (ignore)
*
* Eject device <@resultDevNum (and zero it out)
*
@EjectThatThang	lda <@resultDevNum
	sta EjectDevNum
	sta DStatusDevNum
	pushlong #EjectParms
	PushWord #$202E		;_DControl
	jsl $e100b0

	lda <@resultDevNum	;18-Apr-91 DAL
	jsr NotifyEjecting	;8-Jan-92
	jsr @UpdateDeviceA	;18-Apr-91 DAL

	lda <@resultDevNum
	clc
	jsr @SetDevStatus
@noMarkEject	stz <@resultDevNum

	rts

*** added 14-Nov-91 DAL
*
* Handle a disk-damaged error (14-Nov-91 DAL)
*
@diskDamaged	jsr doInitCursor
	jsr @futzWStrings
	pha	;space for button result
	pea $00A5	;22-Nov-91 DAL
	pushlong #mySubstitutions
	pushlong #$07FF0E03	;damaged-disk message in Sys.Res
	_AlertWindow
	jsr @unfutzWStrings
	pla
	beq @dmgZero
	jsr @computeInitErase  ;option-init --> erase
@dmgZero	bra @gotResponse


@unfutzWStrings	lda FormatDeviceName   ;make WStrings into PStrings
	xba
	sta FormatDeviceName
	lda VolumeName+1
	xba
	inc a
	sta VolumeName
	lda #$3a
	sep #$20
	sta VolumeName+2
	rep #$20
	rts
*** end 14-Nov-91 DAL

*
* Handle unknown-file-system error
*
@badFileSystem	pea $4033	;bad disk + defer
	_SysBeep2
; try SendRequest(unknownDisk,devnum,result)
	pea $0002	;systemSaysUnknownDisk
	pea $8000	;how=$8000 (send to one)
	pea 0
	pea 0	;target=nil
	pea 0	;high word of dataIn
	pei <@resultDevNum
	pushlong #srqDataOut
	_SendRequest
	lda srqDataOut+4
	bcc @gotResponse

	lda #$0097
	jsr @CallAlertWindow
@handleDisposition
@gotResponse	tay	;added 13-Apr-91 DAL:
	bmi @outtaHere	;  ...negative from SRQ = leave online!
	dec a
	bmi @EjectThatThang0
	pushlong #FormatParms
	dec a
	bmi @FormatIt
@EraseIt	pea $2025
	bra @together
@FormatIt	pea $2024
@together	jsl $e100b0
	bcc @didFormat
	tay
	beq @EjectThatThang0
	brl @handleFmtError	;24-Oct-91 DAL
@didFormat	lda #$0002	;bit 1 = they just formatted this
	tsb <@resultFlags
@outtaHere	rts

@EjectThatThang0	brl @EjectThatThang
*
* CallAlertWindow
*
* Call AlertWindow & see what they want to do.
*
* Return in A: 0=Eject, 1=Initialize, 2=Erase, $ffff = leave online, no error
*
@CallAlertWindow	pha	;save error number
	sta @theErrorNumber	;10-Dec-91 DAL

	lda FormatDeviceName
	xba
	sta FormatDeviceName

	plx	;get error number

	pha	;space for ErrorWindow result
	pea $0021	;Pascal substitution string
	pushlong #FormatDeviceName+1
	phx
	jsr doInitCursor	;14-Nov-91 DAL
	_ErrorWindow

*** added 10-Dec-91 DAL -- re-lock the rErrorString handle to make it stay around
	pha
	pha	;space for LoadResource
	pea $8020	;rErrorString
	pea $07FF
	lda @theErrorNumber
	pha
	_LoadResource
	pla
	pla	;ignore result (side effect locks handle)
*** end 10-Dec-91

	lda FormatDeviceName
	xba
	sta FormatDeviceName

	pla	;ErrorWindow result
	beq @zero

; if they held down the Option key, turn the Init request into an Erase request
	jsr @computeInitErase

@zero	rts

@computeInitErase	ldx #1	;anticipate Init
	lda >$e0c025
	and #$0040
	beq @notErase
	inx	;2=Erase
@notErase	txa
	rts

@theErrorNumber	dc.w 0	;10-Dec-91 DAL

**********************************************************************
*
* RenameVolume
*
* Prompt the user to rename or eject the duplicate volume in device
* @resultDevNum.
*
* The DInfoParms block is already set up from a DInfo call (pcount=8).
* The VolumeParms block is also set up from a Volume call.  The
* volume name is valid even if the call returned error $57.
*
* If carry is set on return:
*   A=0: eject, 1=Init, 2=Erase, $FFFF=leave online
*
**********************************************************************
@RenameVolume

*** added 24-Oct-91 DAL -- see if we can possibly rename this volume
	lda volCharacteristics	;from Volume call
	tax
	and #$0040	;can we ever write this device?
	beq @mustEject

	txa
	lsr a	;$0001=read-only FST
	bcs @cantRename

	lda #$ffff
	sta gfiAccess	;in case of strange error, assume full access
	pushlong #getFileInfoParms
	pea $2006	;GetFileInfo
	jsl $e100b0
	lda gfiAccess
	and #$0040	;Rename enabled?
	beq @cantRename
*** added 27-Oct-91 DAL
;
; check for AppleShare (special case--GetFileInfo can return duplicate-volume,
; in which case the gfiAccess is not valid)
;
	lda volDeviceID
	cmp #$001E	;Is it AppleShare?
	beq @cantRename
*** end 27-Oct-91

	bra @RenameIsPossible

*** can't rename--either eject, or eject/initialize
@cantRename	lda volCharacteristics
	and #$0008	;can we format this device?
	beq @mustEject

*** it's a read-only FST -- give can't rename-->Eject or Initialize msg
@ejectOrInit	jsr @futzWStrings
	pha	;space
	pea $00A5	;22-Nov-91 DAL
	pushlong #mySubstitutions
	pushlong #$07FF0E01
	jsr doInitCursor	;14-Nov-91 DAL
	_AlertWindow
	pla
	beq @ejectIt
	lda FormatDeviceName   ;make PString back into WString
	xba
	sta FormatDeviceName
	jsr @computeInitErase
	sec	;tell caller to Format!
	rts

*** can't write to disk--tell them they have to eject (error $07FF0E02)
@mustEject	jsr @futzWStrings
	pha	;space
	pea $00A5	;22-Nov-91 DAL
	pushlong #mySubstitutions
	pushlong #$07FF0E02
	jsr doInitCursor	;14-Nov-91 DAL
	_AlertWindow
	pla
@ejectIt	sec
	lda #0	;eject
	rts

@futzWStrings	lda FormatDeviceName   ;make WStrings into PStrings
	xba
	sta FormatDeviceName
	lda VolumeName
	xba
	dec a
	sta VolumeName+1	;remove leading colon and convert to pstring
	rts
*** end 24-Oct-91 DAL

**********************************************************************
@RenameIsPossible	pha
	pha
	_GetCtlParamPtr
	pushlong #mySubstitutions
	_SetCtlParamPtr
	pha
	pha
	_GetCursorAdr
	jsr doInitCursor	;14-Nov-91 DAL

; construct an initial value for the new name & run it through JudgeName
	pushlong #VolumeName+3
	pushlong #TheNewVolumeName+2
	pushlong #34-3
	_BlockMove
	lda VolumeName
	dec a
	sta TheNewVolumeName  ;now we have no leading colon

	inc TheNewVolumeName
	ldy TheNewVolumeName
	lda #'2'
	sep #$20
	sta TheNewVolumeName+1,y
	rep #$20

	lda volFileSys	;this is valid for dup-vol if we ask for 8 parms!
	sta jnFileSystem

	pushlong #JudgeNameParms
	pea $2007	;JudgeNameGS
	jsl $e100b0
	bcc @judged1
	brl @abort
@judged1

	lda FormatDeviceName   ;make WStrings into PStrings
	xba
	sta FormatDeviceName
	lda VolumeName
	xba
	dec a
	sta VolumeName+1	;remove leading colon and convert to pstring

	pha
	pha	;space for NewWindow2 result
	ldx #0
	phx
	phx	;override title
	phx
	phx	;override refcon
	phx
	phx	;content draw routine
	phx
	phx	;override defproc
;;;	pea 2	;by resource
*** changed 10-Dec-91 DAL -- do this by pointer so we don't lose the resource
	phx	;0 = by pointer (to NewWindow2)
	pha
	pha	;space for LoadResource
	pea $800E	;rWindParam1
	pea $07ff
;;;	pea $0e01	;resource id for 640 window
*** added 21-Nov-91 DAL -- use $0E02 for 320 mode
	pha
	_GetMasterSCB
	pla
	ldy #$0E01
	and #$0080
	bne @640
	iny
@640	phy
*** end 21-Nov-91
	_LoadResource
	phd
	tsc
	tcd
	ldy #2
	lda [3],y
	tax
	lda [3]
	sta 3
	stx 5
	pld
*** end 10-Dec-91
	pea $800e	;resource type
	_NewWindow2	;leave window pointer on stack

	pea $4052	;Stop-icon sound
	_SysBeep2

; set the edit line maximum length from the JudgeName maximum-length value
	pha
	pha	;space for GetCtlTitle
	pha
	pha	;space for GetCtlHandleFromID
	pha
	pha	;space for FrontWindow
	_FrontWindow
	pushlong #3	;edit line control ID
	_GetCtlHandleFromID	;got control handle
	_GetCtlTitle	;got Line Edit record handle
	phd
	tsc
	tcd
	ldy #2
	lda [3]
	tax
	lda [3],y
	sta 5
	stx 3	;derefed line edit record
	ldy #6
	lda jnMaxLength
	cmp #32
	bcs @whoops
	sta [3],y	;stuff in a new maximum length
@whoops	pld
	pla
	pla

	lda TheNewVolumeName
	xba
	sta TheNewVolumeName  ;change to pstring
	pha
	pha
	_FrontWindow
	pushlong #3	;edit line control ID
	pushlong #TheNewVolumeName+1
	_SetLETextByID
	lda TheNewVolumeName
	xba
	sta TheNewVolumeName

*** @modalLoop -- come back here for another try at renaming the thing

@modalLoop	pha
	pha	;space for DoModalWindow result
	pushlong #myEventRec
	ldx #0
	phx
	phx	;update routine
	pushlong #myEventFilter+$80000000 ;bit 31 of event hook = do Apple-period-->ESC
	phx
	phx	;beep proc
	pea $0009	;noScrapForLE, use I-Beam cursor
	_DoModalWindow
	pla
	plx
	cmp #4	;Eject button?
	bne @notEject

; eject the device and update its status
@doEject	lda <@resultDevNum
	sta EjectDevNum
	pushlong #EjectParms
	pea $202E	;_DControl
	jsl $e100b0

	lda <@resultDevNum
	jsr NotifyEjecting	;added 8-Jan-92 DAL
	jsr @UpdateDeviceA

	stz <@resultDevNum	;don't tell the caller about it

	brl @done

@notEject	cmp #5	;Rename button?
	beq @hitRename

	cmp #3	;Edit line control?
	bne @modalLoop

	pha	;space for LEGetTextLen
	pha
	pha	;space for GetCtlTitle
	pha
	pha	;space for GetCtlHandleFromID
	pha
	pha	;space for FrontWindow
	_FrontWindow
	pea 0
	pea 3	;ctl ID (long)
	_GetCtlHandleFromID
	_GetCtlTitle
	_LEGetTextLen
	tax	;X=0
	pla
	bne @hiliteX
	ldx #$00ff
@hiliteX	phx
	pha
	pha	;space for GetCtlHandleFromID
	pha
	pha	;space for FrontWindow
	_FrontWindow
	pushlong #5	;Rename button control ID
	_GetCtlHandleFromID
	_HiliteControl

	brl @modalLoop

@hitRename	jsr doInitCursor	;14-Nov-91 DAL
	pha
	pha
	_FrontWindow
	pushlong #3	;Edit Line Control ID
	pushlong #TheNewVolumeName+2
	_GetLETextByID
	lda TheNewVolumeName+2
	and #$00ff
	inc a
	sta TheNewVolumeName
	lda #$3a
	sep #$20
	sta TheNewVolumeName+2 ;put a colon on the beginning
	rep #$20

	lda FormatDeviceName
	xba
	sta FormatDeviceName

; @@@ should do a JudgeName here

	pushlong #RenameParms
	pea $2004	;ChangePathGS
	jsl $e100b0

	tax
	lda FormatDeviceName
	xba
	sta FormatDeviceName
	txa

	bcc @done

	pha	;space
	ldx #0
	phx
	phx
	phx
	pha	;error number
	_ErrorWindow
	pla	;get rid of button number
	brl @modalLoop	;20-May-91 DAL

@done	_CloseWindow

	jsr FlushKeyEvents	;4-Oct-91 DAL

@abort	_SetCursor	;restore cursor
	_ShowCursor	;because typing into the Edit Line obscured it!
	_SetCtlParamPtr	;restore old substitution array
	clc	;don't format
	rts

mySubstitutions	dc.l VolumeName+2   ;volume name
	dc.l FormatDeviceName+1   ;disk name

myEventRec	ds.b 46

RenameParms	dc.w 3	;was 2 (5-Dec-91 DAL)
	dc.l FormatDeviceName
	dc.l TheNewVolumeName
	dc.w $8000	;Trust me!  (5-Dec-91 DAL)

NewVolNameResultBuff dc.w 37
TheNewVolumeName	ds.b 35

JudgeNameParms	dc.w 6	;pcount
jnFileSystem	dc.w 0	;file sys id
	dc.w 1	;name type = volume name
	dc.l 0	;syntax string (result)
jnMaxLength	dc.w 0	;max name length
	dc.l NewVolNameResultBuff
	dc.w 0	;name flags (result)

getFileInfoParms	dc.w 2	;just get the access
	dc.l FormatDeviceName
gfiAccess	dc.w 0

**********************************************************************
*
* NotifyEjecting -- send a SendRequest(systemSaysEjectingDev) so
*                   that EasyMount will not try to open a window
*                   for a duplicate volume.
*
* Input:  device number in A (preserved)
*
* systemSaysEjectingDev:  dataIn low word = devNum.  High word and
*                         dataOut are reserved.
*
* 8-Jan-92 DAL
*
**********************************************************************
NotifyEjecting	pha	;preserve devnum

	ldx #0
	pea systemSaysEjectingDev
	phx	;send to all
	phx
	phx	;target=all
	phx
	pha	;dataIn = devnum
	phx
	phx	;dataOut = nil
	_SendRequest

	pla	;restore devnum
	rts

**********************************************************************
*
* DoModalWindow event filter for the Rename-volume dialog.
*
* Changes keypresses of ":" and up/down arrows into null events,
* Apple-e and Apple-E into escape (Eject).
*
* For an update event, draws the Disk icon in the top left.
*
**********************************************************************
MyEventFilter	phd
	tsc
	tcd
	lda [6]
	cmp #3
	beq @key
	cmp #5
	bne @notKey

@key	ldy #2	;message
	lda [6],y
	and #$00ff
	cmp #$000a
	beq @killKey
	cmp #$000b
	beq @killKey
	cmp #$003a	;Colon?
	bne @notColon
@killKey	lda #0
	sta [6]	;make it a null event
	bra @exit
	
@notColon	ldy #14	;modifiers
	lda [6],y
	and #$0100	;Apple key down?
	beq @notKey	;nope

	ldy #2	;check message field for character
	lda [6],y
	and #$00df
	cmp #$0045	;'e' or 'E'
	bne @notKey
	lda #$001B	;Escape for Eject
	sta [6],y
*** added 22-Nov-91 DAL -- handle updates
	bra @exit

@notKey	cmp #6	;Update event
	bne @notUpdate

	pha
	pha
	_FrontWindow
	pla
	plx
	ldy #2	;offset to Message field (window ptr)
	cmp [6],y
	bne @notMyUpdate
	iny
	iny
	txa
	cmp [6],y
	bne @notMyUpdate

	jsr pushIconPtr
	pea 0	;mode 0
	pea 20	;X=20
	pea 7	;Y=7
	_DrawIcon
@notMyUpdate
@notUpdate
*** end 22-Nov-91

@exit	pld
	lda 2,s
	sta 2+4,s
	lda 1,s
	sta 1+4,s
	pla
	pla
	rtl

*** added 22-Nov-91 DAL -- push ptr to 640 or 320 disk icon
pushIconPtr	pha
	pha
	pea $8001	;rIcon
	pea $07FF
	pha
	_GetMasterSCB
	pla
;;;	ldy #$0005	;anticipate 640
	ldy #$0003	;640 note icon (19-Feb-93 DAL)
	and #$0080
	bne @640
;;;	ldy #$0105
	ldy #$0103	;320 note icon (19-Feb-93 DAL)
@640	phy
	_LoadResource
	phd
	tsc
	tcd
	ldy #2
	lda [3],y
	tax
	lda [3]
	sta <3
	stx <5
	pld	;result is now on stack

	ply
	pla	;AY=resul
	plx	;RTS address
	pha
	phy	;pushed result
	phx	;pushed RTS address
	rts
*** end 22-Nov-91

**********************************************************************

PrevTime	dc.w 0
DevStatTable	dc.w 0,0,0,0,0,0,0,0  ;128 status bits!

DInfoParms	dc.w $7777	;caller must store 3 or 8 (21-Nov-91 DAL)
DInfoDevNum	dc.w 0	;device number
	dc.l FormatDeviceBuffer
DInfoChar	dc.w 0
	dc.l 0	;total blocks
	dc.w 0	;slot num
	dc.w 0	;unit num
	dc.w 0	;version
device_id	dc.w 0


DeviceID	dc.w 0	;dev_id from skanky @GetDeviceID

DStatusParms	dc.w 5
DStatusDevNum	dc.w 0
	dc.w 0	;status code 0
	dc.l TheStatusWord
	dc.l 2	;request count
	dc.l 0	;transfer count

TheStatusWord	dc.w 0

VolumeParms	dc.w 8
	dc.l FormatDeviceName
	dc.l VolumeNameBuffer
	dc.l 0	;blocks
	dc.l 0	;free blocks
volFileSys	dc.w 0	;file system (valid for dup-vol err if 8 parms!)
	dc.w 0	;block size
volCharacteristics	dc.w 0	;device/filesys characteristics
volDeviceID	dc.w 0	;device ID

*** added 2-Dec-91 DAL
gfiParms	dc.w 2	;2 parameters
	dc.l VolumeName
	dc.w 0	;access
*** end 2-Dec-91

FormatParms	dc.w 1	;just one parameter
	dc.l FormatDeviceName

FormatDeviceBuffer	dc.w 36
FormatDeviceName	ds.b 34

VolumeNameBuffer	dc.w 36
VolumeName	ds.b 34

EjectParms	dc.w 5
EjectDevNum	dc.w 0
	dc.w 2	;control code
	dc.l 0	;control list
	dc.l 0	;request count
	dc.l 0	;transfer count

srqDataOut	dc.w 0,0,0	;recvCount, reserved, disposition

**********************************************************************

	EndP

**********************************************************************
*
* FlushKeyEvents -- kill all pending keyDown and autoKey events (DAL)
*
**********************************************************************
FlushKeyEvents	proc export
	pha	;space for result
	pea $0028	;keyDown and autoKey events
	pea $0000	;don't stop, kill 'em all
	_FlushEvents
	pla	;discard result flag
	rts

	EndP

****************************************************************
*
* UpdateWindow $6C0E -- new call 6-Mar-92 DAL for 6.0.1
*
* Input:
*   push flags (word)
*   push window pointer (long)
*
* Flags:
*   bit 15 = window's expected environment may not be set up ("background update")
*            (requires wContDraw bit 31, saying that the wContDraw routine can take
*             care of itself)
*   bit 14 = GS/OS is *not* available or not safe to call
*            (requires wContDraw bit 30, saying that the wContDraw doesn't need to
*             call GS/OS)
*   bits 13-0 = reserved, use 0
*
****************************************************************
UpdateWindow	proc export
	import longCall

	phd
	pha
	pha	;space for drawPtr
	tsc
	tcd

@drawPtr	equ 1
@oldD	equ @drawPtr+4
@rtls	equ @oldD+2
@window	equ @rtls+6
@flags	equ @window+4

*** added 23-Mar-93 DAL -- never background-update a System window (that should only
***    happen from a System window's code, called from inside SystemEvent, so the
***    background-update flag will not be set).
	lda <@flags
	bpl @notBackground

	pha
	pei <@window+2
	pei <@window
	_GetSysWFlag
	pla
	bpl @notSysWind

	ldx #cantUpdateErr
	bra @errorExit
@notSysWind
@notBackground
*** end 23-Mar-93 DAL

	pha
	pha	;space for GetContentDraw
	pei <@window+2
	pei <@window
	_GetContentDraw
	pla
	sta <@drawPtr
	pla
	sta <@drawPtr+2
	ldx #cantUpdateErr
	lda <@drawPtr+1
	beq @errorExit

*** If GS/OS is busy, force flag bit 14
	lda >$e100be
	bpl @notBusy
	lda #$4000
	tsb <@flags
@notBusy

*** Any bits in <flags require bits in wContDraw to be set, or we can't update.
	lda <@drawPtr+2
	eor #$ffff
	and <@flags
	ldx #cantUpdateErr
	and #$ff00
	bne @errorExit

	lda <@window+2
	ldx <@window
	pha
	phx	;for EndUpdate
	pha
	phx	;for StartDrawing
	pha
	phx	;for BeginUpdate
	_BeginUpdate
	_StartDrawing

	ldx <@drawPtr+1
	lda <@drawPtr
	jsl longCall

	lda #0
	pha
	pha
	_SetOrigin
	_EndUpdate

@noError	ldx #0	;no error
@errorExit	pla
	pla
	pld
	ldy #6	;strip 6 bytes
	jml $e10184	;ToStrip

	EndP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/WindMgr/WCtlDef.asm b/IIGS.601.SRC/GSToolbox/WindMgr/WCtlDef.asm
new file mode 100644
index 0000000..e004f19
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/WindMgr/WCtlDef.asm
@@ -0,0 +1 @@
+	Blanks off
	String asis

;
;
;          Copyright Apple Computer, Inc. 1986-89
;	  All rights reserved
;	 Written by Dan Oliver
;
;          This module contains control	definition procedures that define
;          title bar and info bar controls.
;
;
; Files needed:
;          WINDCTL.ASM
;            WC.MACROS
;
; 10/28/88  Dan O.	Handle titles and color tables as pointers or handles.
;
; 02/16/89  Harry 	Window titles could appear pass the right side of the zoom box. 
;                   The clip rect is now set to the left side of the zoom box or if 
;                   no zoom box the right side of the control rect before the title 
;                   is drawn. I also subtract a little slop so that the title does 
;                   not end right at the edge of either the zoom box or right side of 
;                   control rect. BRC #36699.
;
; 21-Sep-90  Dave Lyons
;
; Fixed window title clipping (see "bpl titleFits").  Now it doesn't draw the title
; on the desktop if the window is too narrow.
;
; 27-Sep-90	Dave Lyons
;
; Changes for using Get640Colors instead of hard-coding our own solid-colors table.
;
; 14-Nov-90	Dave Lyons
;
; Fixed memory-trashing bug in unlockColor (the two words of the color table handle
; were reversed, so we were turning off bit 15 of a semi-random location).
; See separate fix in WDefProc.asm's own unlockColor subroutine.
; (This bug means that Window Color Table Resources can't be used reliably in
; System 5.0 through 5.0.3.)
;

	INCLUDE 'ALL.MACROS'
	include 'WindMgrEquates.asm'

;===============================================================
;          Control DefProc Equates
;===============================================================
;
;
; --- DefProc direct page offsets ----------------------------
;
ctlWind	equ 1	Pointer to window controls on.
globals	equ ctlWind+4	Pointer to Window Manager globals.
colors	equ globals+4	Pointer to window's color table.
rgnSize	equ colors+4	To make 'rect' look	like a region.
cRect	equ rgnSize+2	General RECT area.
ctlPtr	equ cRect+8	Pointer to locked control.
cWork	equ ctlPtr+4	cWork space.
DIRECTSIZE	equ cWork+10	Size of allocated direct page.
saveDpage	equ DIRECTSIZE+1	Caller's direct page.
returnAddr	equ saveDpage+2	Long return addresses.
ctlHand	equ returnAddr+3	Handle of control.
cParam	equ ctlHand+4	Parameter defined by defProc operation.
operation	equ cParam+4	DefProc operation to perform.
result	equ operation+2	Result defined by defProc operation.
;
;
;
;
; --- Document window record offsets -------------------------
;
wtitle	equ 212	Pointer to window's title.
wtitle_w	equ wtitle+4	Width of title in pixels.
worgn_mask	equ wtitle_w+2	Mask for horizontal	origin.
wfull	equ worgn_mask+2	Size of window, used with ZoomWindow.
wcolor	equ wfull+8	Pointer to window's color table.
y_origin	equ wcolor+4	Content's vertical offset.
x_origin	equ y_origin+2	Content's horizontal offset.
data_h	equ x_origin+2	Height of total data area.
data_w	equ data_h+2	Width of total data	area.
wmaxheight	equ data_w+2	Maximum height for grow window.
wmaxwidth	equ wmaxheight+2	Maximum width for grow window.
vscroll	equ wmaxwidth+2	Amount to scroll vertically (arrows).
hscroll	equ vscroll+2	Amount to scroll horizonally (arrows).
vpage	equ hscroll+2	Amount to page vertically (page region).
hpage	equ vpage+2	Amount to page horizontally (page rgn).
wInfoRef	equ hpage+2	Value passed to Draw Info routine.
wInfoHeight	equ wInfoRef+4	Height of information bar.
woldYOrg	equ wInfoHeight+2	Save y origin on full window.
woldXOrg	equ woldYOrg+2	Save x origin on full window.
wInfoDraw	equ woldXOrg+2	Address of routine to draw Info Bar.
DOCSIZE	equ wInfoDraw+4	!!! Change 'port' size in WDATA.ASM !!!
;
;
; --- Window color table offsets -----------------------------
;
FRAME_CLR	equ 0	Frame's outline.
TITLE_CLR	equ FRAME_CLR+2	Title's color.
BAR_CLR	equ TITLE_CLR+2	Title bar's initerior.
GROW_CLR	equ BAR_CLR+2	Grow box interior.
INFOR_CLR	equ GROW_CLR+2	Information bar interior.
COLORSIZ	equ INFOR_CLR+2	Size of color table.
;
;
; --- Window DefProc frame offsets -----------------------------
;
TITLEH	equ 13	Height of title bar.
TITLEL	equ 2	Space on left and right of title bar pattern.
TITLET	equ 3	Space on top and bottom of title bar pattern.
;
CLOSEL	equ 10	Left side of window	to left side of close box.
CLOSET	equ 2	Top of window to top of close box.
CLOSEW	equ 22	Width of close box.
CLOSEH	equ 11	Height of close box.
;
;
;
; --- GraphPort record offsets -------------------------------
;
boundsRect	equ $0008
clipRgn	equ $0018
visRgn	equ $001C
;
;
; --- Control defProc operation numbers	----------------------
;
drawCntl	equ 0	Draw the control.
calcCRect	equ drawCntl+1	Compute the drag RECT.
testCntl	equ calcCRect+1	Perform a hit test on the control.
initCntl	equ testCntl+1	Perform additional initialization.
dispCntl	equ initCntl+1	Perform additional disposal.
posCntl	equ dispCntl+1	Called when dragging complete with delta.
thumbCntl	equ posCntl+1	Setup for dragging.
dragCntl	equ thumbCntl+1	Perform dragging.
autoTrack	equ dragCntl+1	Called while dragging.
newValue	equ autoTrack+1	Called when new value is set.
setParams	equ newValue+1	Called when min and	max are set.
moveCntl	equ setParams+1	Move entire control.
recSize	equ moveCntl+1	Return size of control's record.
;


titlePart	equ 16
closePart	equ 17
zoomPart	equ 18
infoPart	equ 19
;
;
; --- CtlFlags for title bar control -------------------------
;
closeCtl	equ $0040	1 = title bar has close box.
zoomCtl	equ $0001	1 = title bar has zoom box.



;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

	IMPORT Fill
	IMPORT Print
	IMPORT Restore
	IMPORT Return
	IMPORT Save
	IMPORT Set
	IMPORT Switch
	IMPORT longCall
	IMPORT pushDpage

;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

	ENTRY pushWindTitle
	ENTRY unlockTitle
***	ENTRY colorBlack
	ENTRY defRefCtl
	ENTRY drawInfo
	ENTRY drawTitle
	ENTRY fillFrameRect
	ENTRY getCloseCor
	ENTRY getColorTable
	ENTRY unlockColor
	ENTRY getCoords
	ENTRY getCtlRect
	ENTRY getLineSize
	ENTRY getWindPtr
	ENTRY initTitle
	ENTRY nullHandler
	ENTRY pushLineSize
	ENTRY pushRect
	ENTRY set_patt
	ENTRY shutdown
	ENTRY smear
	ENTRY startup
	ENTRY testInfo
	ENTRY testTitle
	ENTRY titleRecSize
	ENTRY titleValue


;
;
;===============================================================
;          Title bar custom control defProc.
;===============================================================
;
;   IN:    PUSH:LONG - space for result.
;          PUSH:WORD - operation to perform.
;          PUSH:LONG - additional parameter defined by operation.
;          PUSH:LONG - handle of control.
;
	EXPORT titleBarDefProc
titleBarDefProc	PROC
;
;
;
	jsr startup	Allocate direct page.
;
	stz <result	Initialize result to null.
	stz <result+2
;
	lda <operation
	cmp #recSize+1
	bcs shutdown
	asl a
	tax
	jsr (tHandlers,x)
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = =	= =
;       Cleanup and	exit control defProc.
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = =	= =
;
	ENTRY shutdown
shutdown		;       
;
	lda <returnAddr+1	Move return address	over inputs.
	sta <result-2
	lda <returnAddr
	sta <result-3
;
	ldx <saveDpage	Get original direct	page.
;
	tsc	Free allocated direct page and inputs.
	clc
	adc #result-4
	tcs
;
	txa	Restore caller's direct page.
	tcd
	rtl	Return to defProc caller.
;
;
tHandlers	DC.W drawTitle	0 drawCtl
	DC.W nullHandler	1 calcCRect
	DC.W testTitle	2 testCtl
	DC.W initTitle	3 initCtl
	DC.W nullHandler	4 dispCtl
	DC.W nullHandler	5 posCtl
	DC.W nullHandler	6 thumbCtl
	DC.W nullHandler	7 dragCtl
	DC.W nullHandler	8 autoTrack
	DC.W titleValue	9 newValue
	DC.W nullHandler	A setParams
	DC.W nullHandler	B moveCtl
	DC.W titleRecSize	C recSize
;
	ENDP
;
;
;===============================================================
;          Operation: drawCtl
;===============================================================
;
;   IN:    <cParam =	part code to draw, zero if whole control.
;
drawTitle	PROC
;
		;using equates
;
flags	equ cWork
minX	equ flags+2
active	equ minX+2
iconNumber	equ active+2
;
;
	jsr defRefCtl	<ctlPtr = pointer to control record.
	jsr getCtlRect	<cRect = control's bounds.
	jsr getWindPtr	<ctlWind = pointer to window.
	jsr getColorTable	<colors = pointer to color table.
;
	ldy #wFrame	Active state of controls same as
	lda [<ctlWind],y	window's state.
	and #F_HILITED	TRUE = frame is highlighted.
	sta <active
;
;
; --- Set colors ---------------------------------------------
;
	ldy #ctlFlag
	lda [<ctlPtr],y
	sta <flags
;
	pea 4	Smear text colors.
	_SetFontFlags
;
	ldy #TITLE_CLR	Inactive title bar color.
	lda [<colors],y
	xba
	ldx <active	Is control active?
	beq ok2
	ldy #BAR_CLR	Lay down title bar background
	lda [<colors],y	for an active window.
ok2	jsr smear	Smear color into all 4 nibbles.
	pha	Save background color.
;
	pha	Pass color of text's background.
	_SetBackColor	Set title, close, zoom background color.
;
;
	ldy #TITLE_CLR	Set color of text
	lda [<colors],y
	ldx <active	Is control active?
	bne ok3
	lsr a	Get its inactive color.
	lsr a
	lsr a
	lsr a
ok3	jsr smear	Smear color into all 4 nibbles.
	pha
	_SetForeColor	Set color of text.
;
;
;---------------------------------------------------
;          Fill and	frame title bar.
;---------------------------------------------------
;
	pea 0	Set text mode to copy.
	_SetTextMode
;
	pla	Restore background color.
	ldy <cParam	Whole control?
	beq @DrawWhole
	brl drawClose
;
@DrawWhole	and #$00F0	Put color into proper nibble for fill.
	pha	Save fill color.
;
	ldy #FRAME_CLR	Pass outline color.
	lda [<colors],y
	and #$00F0
	ply	Pass fill color.
	jsr fillFrameRect	Draw blank title bar.
;
;
	lda <active	If title bar is inactive don't fill
	beq printTitle	with active pattern.
;
	ldy #BAR_CLR	Get title bar pattern.
	lda [<colors],y
	and #$FF00	Solid pattern?
	beq printTitle	If solid, no foreground to fill.
;
	jsr pushRect	Indent cRECT for pattern fill.
	jsr getLineSize	a = width of lines,	x = height of lines.
	asl a
	inx
	pha	Pass width.
	phx	Pass height.
	_InsetRect
;
	jsr pushRect	Pass address of 'cRect'.
	ldy #BAR_CLR	Get title bar pattern.
	lda [<colors],y
	tay
	jsr set_patt	Generate pattern.
	phx	Pass pointer to pattern.
	phy
	_FillRect	Fill with highlight	pattern.
;
	jsr getCtlRect	<cRect = control's bounds.
;
;
; ------- Print title in title bar -----------------------
; 
;  IN: <cRect = control's bounds
;      <ctlPtr = ptr to title's control record
; OUT: <cRect = trashed
;
printTitle	jsr defRefCtl	<ctlPtr = pointer to control record.
;
	lda <flags	Check if there is a zoom box
	and #zoomctl
	beq NoZoom
	
	ldx #2	There is a zoom box, so get the coordinates for it
	jsr (getcoords,x)	Coordinates are put into <cRect
	lda <cRect+x1	We just need left side
	pha
	jsr getCtlRect	<cRect = control's bounds
	pla
	bra storeit
	
NoZoom	lda <cRect+x2	Compute right side of title
storeit	sec
	sbc #8	Subtract a little slop
	sta <cRect+x2
	
	ldy #ctlValue
	lda [<ctlPtr],y	Get left side of title
	sta <cRect+x1
	
	lda <cRect+x2
	sec
	sbc <cRect+x1
	ldy #wtitle_w
	cmp [<ctlwind],y
***	bcs TitleFits
	bpl TitleFits	;21-Sep-90 DAL (window title clipping)
	
	jsr MakeTitleFit	a-reg = space we have to work with
	pea $0000	Flag for DrawString that says orig title has been chopped
	bra around

TitleFits	pea $FFFF	Flag for DrawString to tell us to use original title
around	ldy #ctlValue	Pass x position.
	lda [<ctlPtr],y
	pha
	ldy #titleYPos	Pass y position.
	lda [<globals],y
	pha
	_MoveTo	Set pen's starting position.

	jsr defRefCtl	<ctlPtr = pointer to control record.

	pla
	bmi TitleGood
	lda <globals
	ldx <globals+2
	clc
	adc #WindTitle
	bcc @noCarry
	inx
@noCarry	phx
	pha
	bra drawit
	
TitleGood	jsr pushWindTitle	Pass pointer to window's title.
drawit	_DrawString	Print window's title.
	
	jsr unlockTitle	Leave title unlocked.

;
;-------------------------------------
;          Draw close box.
;-------------------------------------
;
drawClose	lda <active	If title bar is inactive then done.
	beq exit
;
	jsr defRefCtl	<ctlPtr = pointer to control record.
;
	ldy #ctlHilite	Set hilite flag.
	lda [<ctlPtr],y
	and #$00FF
	sta <cParam+2
;
	lda <cParam	Draw whole control?
	beq ok5
	cmp #closePart	Draw just the close	box?
	bne drawZoom
;
ok5	lda <flags
	and #closeCtl	Is there a close box?
	beq drawZoom
;
	lda #0	Draw close box.
	jsr drawBox
	jsr defRefCtl	<ctlPtr = pointer to control record.
;
;
;-------------------------------------
;          Draw zoom box.
;-------------------------------------
;
drawZoom	lda <cParam	Draw entire window?
	beq ok4
	cmp #zoomPart	Draw just the close	box?
	bne exit
;
ok4	lda <flags
	and #zoomCtl	Is there a zoom box?
	beq exit
;
	lda #2	Draw zoom box.
	jsr drawBox
;
;
exit	pea 0	Restore to normal.
	_SetFontFlags
;
	jsr unlockColor	Leave color table unlocked.
;
	ENTRY nullHandler
nullHandler		;       
	rts
	

;===============================================================
;           	MakeTitleFit
;===============================================================
;
;   IN:    a-reg	= amount of space we actually have to work with
;
;  OUT:    #windTitle offset from globals data area contains new window title

	ENTRY MakeTitleFit
MakeTitleFit	
	DefineStack
OrigD	word
Count	word
NextCharSize	word
DestTitle	long
OrigTitle	long
TotalSpace	word


	pha	Space we have to work with (TotalSpace)
	jsr pushWindTitle	Get pointer to window title
	lda <globals	Get pointer to where new and improved title will go
	ldx <globals+2	(space for this is on the window mgr's global data area)
	clc
	adc #WindTitle
	bcc @Skip
	inx
@Skip	phx	
	pha
	pha	Space to hold next character in title
	pha	Counter
	phd	Save original direct page
	
	tsc	Turn stack into direct page
	tcd
	
;
; --- Subtract width of elipsis and space character from total width -------------------
;
	lda #$20C9	
	sta <NextCharSize
	
	pea 0	Space for result
	pea 0	Pointer to text
	tdc
	clc
	adc #NextCharSize
	pha
	pea 2	length of string
	_TextWidth
	lda <TotalSpace
	sec
	sbc 1,s
	sta <TotalSpace
	pla	Get length off of stack
	
	stz <count
	
lop1	ldy <count
	iny	Bump <count and get size of next character
	lda [<OrigTitle],y
	and #$00FF
	pha	Save next char in window title on stack
	pha	Space for result
	pha	Character that we want width for
	_CharWidth
	pla
	sta <NextCharSize
	lda <TotalSpace	Subtract nextchar from total width we have to fit title in
	sec
	sbc <NextCharSize
	bpl KeepInserting	Can't fit any more characters
	pla	Clean up stack first
	bra doneInserting
KeepInserting	sta <TotalSpace
	inc <count
	ldy <count
	pla	Get next char off stack
	sta [<DestTitle],y
	bra lop1
	
doneInserting	lda #$20C9	Add '...' character to end of window's title
	ldy <count
	iny
	sta [<DestTitle],y
	iny
	sty <count	
	lda [<OrigTitle]	Store new length of title
	and #$FF00
	ora <count	'OR' count in
	sta [<DestTitle]
	
	pld	Restore our stack.
	tsc
	clc
	adc #14
	tcs
		
	rts


; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = =	= =
;          Draw close or zoom box.
;100= = = = = = = =	= = = = = = = = = =	= = = = = = = = = =	= =
;
;   IN:    cParam+2 = FALSE if normal, TRUE if selected.
;          a = 0 draw close box, 2 draw	zoom box.
;
;          Icon numbers are:  0 = normal close box.
;	          1 = selected close or zoom box.
;	          2 = normal zoom box.
;
;  OUT:    <cRect = trash.
;
drawBox	tax	Save box kind.
	ldy <cParam+2
	beq store100	If normal, use icon	number.
	lda #1	Use selected icon.
store100	sta <iconNumber	Save icon number.
;
;
; --- Get coordinates of box ---------------------------------
;
	jsr (getCoords,x)	x = 0 if close box,	2 if zoom.
;
;
; --- Draw the box -------------------------------------------
;
	pha
	pha
	_GetFontID	Save current font ID.
	pha
	pha
	_GetFont	Save current font.
;
	ldy #windIconFont+2	Pass address of font pointer (handle).
	lda [<globals],y
	pha
	dey
	dey
	lda [<globals],y
	pha
	_SetFont	Switch to icon font.
;
	pei <cRect+x1	Move pen to where icon should be.
	pei <cRect+y1
	_MoveTo
;
	pei <iconNumber	Pass character to print.
	_DrawChar	Print icon.
;
	_SetFont	Restore original font.
	_SetFontID	Restore orginal font ID.
	rts
;
	ENDP
;
;
;===============================================================
;          Operation: initCtl
;===============================================================
;
;   IN:    wtitle_w	= width of title string.
;
;  OUT:    ctlValue	= x position of title.
;
*initTitle  PRIVATE
initTitle	PROC
;
		;using equates
;
minX	equ cWork


	ENTRY titleValue
titleValue

	jsr defRefCtl	<ctlPtr = pointer to control record.
	jsr getWindPtr	<ctlWind = pointer to window.
;
;
; --- Set ctlValue field -------------------------------------
;
	stz <cRect+x2	Use left side of window if no close box.

	ldy #ctlFlag	Is there a close box?
	lda [<ctlPtr],y
	and #closeCtl
	beq skip1

	jsr getCloseCor	Use right side of close box.

skip1	lda <cRect+x2	Compute minimum x1 position of title.
	clc
	adc #8
	sta <minX

	jsr getCtlRect	<cRect = control's bounds.

	lda <cRect+x2	Compute width of title bar.
	sec
	sbc <cRect+x1
	ldy #wtitle_w	Subtract width of title.
	sbc [<ctlWind],y
	bcc tooBig	Title won't fit?

	lsr a	Center the title.
	cmp <minX	To the left of the close box?
	bcs store1

tooBig	lda <minX	Use minimum x position.

store1	ldy #ctlValue	Store x position in	ctlValue.
	sta [<ctlPtr],y

	rts
	ENDP


;===============================================================
;          Operation: testCtl
;===============================================================

testTitle	PROC

boxNumber	equ cWork

	jsr defRefCtl	<ctlPtr = pointer to control record.
	jsr getWindPtr	<ctlWind = pointer to window.

	lda #titlePart	Return title bar part code, just in case.
	sta <result

	ldy #wFrame	Is the title bar active?
	lda [<ctlWind],y
	and #F_HILITED
	beq exit

;
; --- Check for hit	on close box --------------------------------
;
	ldy #ctlFlag
	lda [<ctlPtr],y
	and #closeCtl	Is there a close box?
	beq ckZoom
;
	ldx #0	Check if point in close box.
	jsr checkBox
	beq ckZoom	Inside?
;
	lda #closePart	Return close box part code.
	sta <result
	rts
;
;
; --- Check for hit	on zoom box --------------------------------
;
ckZoom	ldy #ctlFlag
	lda [<ctlPtr],y
	and #zoomCtl	Is there a zoom box?
	beq exit
;
	ldx #2	Check if point in zoom box.
	jsr checkBox
	beq exit	Inside?
;
	lda #zoomPart	Return zoom box part code.
	sta <result
exit	rts


; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = =	= =
;          Check if	point in box.
;100= = = = = = = =	= = = = = = = = = =	= = = = = = = = = =	= =
;
;   IN:    x = 0 to	check close box, 2 to check zoom box.
;          <cParam =	point to check.
;
;  OUT:    BEQ if point not in box.
;
checkBox	jsr (getCoords,x)	x = 0 if close box,	2 if zoom.

	pha	Space for return value.
	lda #cParam	Pass pointer to point to check.
	jsr pushDpage
	jsr pushRect	Pass RECT to check.
	_PtInRect
	pla
	rts

	ENDP


;===============================================================
;          Operation: recSize
;===============================================================
;
titleRecSize	PROC

	lda #ctlRecSize	Return size of standard control record.
	sta <result
	rts
	ENDP


;===============================================================
;          Info bar	custom control defProc.
;===============================================================
;
;   IN:    PUSH:LONG - space for result.
;          PUSH:WORD - operation to perform.
;          PUSH:LONG - additional parameter defined by operation.
;          PUSH:LONG - handle of control.
;
	EXPORT infoBarDefProc
infoBarDefProc	PROC

	jsr startup	Allocate direct page.

	stz <result	Initialize result to null.
	stz <result+2

	lda <operation	Is operation in range?
	cmp #recSize+1
	bcs exit
	asl a
	tax
	jsr (iHandlers,x)
exit	brl shutdown

iHandlers	DC.W drawInfo	drawCtl
	DC.W nullHandler	calcCRect
	DC.W testInfo	testCtl
	DC.W nullHandler	initCtl
	DC.W nullHandler	dispCtl
	DC.W nullHandler	posCtl
	DC.W nullHandler	thumbCtl
	DC.W nullHandler	dragCtl
	DC.W nullHandler	autoTrack
	DC.W nullHandler	newValue
	DC.W nullHandler	setParams
	DC.W nullHandler	moveCtl
	DC.W titleRecSize	C recSize

	ENDP


;====================================
;          Draw info bar.
;====================================
;
drawInfo	PROC
;
;
portPtr	equ cWork
dummyHand	equ portPtr+4
;
;
	jsr defRefCtl	<ctlPtr = pointer to control record.
	jsr getCtlRect	<cRect = control's bounds.
	jsr getWindPtr	<ctlWind = pointer to window.
	jsr getColorTable	<colors = pointer to color table.
;
	ldy #INFOR_CLR	Information bar pattern.
	lda [<colors],y
	and #$00F0	Force solid.
	pha	Save fill color.
;
	ldy #FRAME_CLR	Pass outline color.
	lda [<colors],y
	and #$00F0
	ply	Pass fill color.
	jsr fillFrameRect	Fill and frame 'rect'.
;
	jsr pushRect
	jsr pushLineSize	Push size of lines.
	_InsetRect
;
	jsr defRefCtl	<ctlPtr = pointer to control record.
	ldy #ctlOwner	Get pointer to owner window.
	lda [<ctlPtr],y
	sta <portPtr
	iny
	iny
	lda [<ctlPtr],y
	sta <portPtr+2
;
	ldy #wPort+clipRgn+2 Save window's clip region handle.
	lda [<portPtr],y
	pha
	lda #0	Replace with my dummy handle.
	sta [<portPtr],y
	dey
	dey
	lda [<portPtr],y
	pha
	tdc
	clc
	adc #dummyHand
	sta [<portPtr],y
;
	lda #10	Make <rect look like a region.
	sta <rgnSize
;
	tdc	Compute pointer to dummy region.
	clc
	adc #rgnSize
	sta <dummyHand	Make dummy region handle.
	stz <dummyHand+2
;
;
	jsr pushRect	Pass information bar RECT.
;
	ldy #wInfoRef+2	Pass value in wInfoRef.
	lda [<ctlWind],y
	pha
	dey
	dey
	lda [<ctlWind],y
	pha
;
	ldx <ctlWind+2	Pass pointer to window port.
	lda <ctlWind
	clc
	adc #4
	bcc store1
	inx
store1	phx
	pha
;
	ldy #wInfoDraw+1
	lda [<ctlWind],y
	tax
	dey
	lda [<ctlWind],y
	jsl longCall	Call draw routine.
;
	ldy #wPort+clipRgn	Retore clip handle.
	pla
	sta [<portPtr],y
	iny
	iny
	pla
	sta [<portPtr],y
;
	jsr unlockColor	Leave color table unlocked.
	clc	No error flag.
	rts
	ENDP
;
;
;===============================================================
;          Operation: testCtl
;===============================================================
;
testInfo	PROC
;
;
	lda #infoPart	Return info bar part code.
	sta <result
	rts
	ENDP
;
;
;===============================================================
;          Allocate	a direct page for the control defProc.
;===============================================================
;
startup	PROC
;
		;using equates
;
;
; --- Allocate a stack based direct page -----------------------
;
	plx	Get return address.
;
	phd	Save original direct page.
;
	tsc	Allocate a stack based direct page.
	sec
	sbc #saveDpage-1
	tcs
	tcd
;
	phx	Put return address back.
;
	pha
	pha
	_GetWindowMgrGlobals
	pla
	sta <globals
	pla
	sta <globals+2
;
	rts
	ENDP
;
;
;===============================================================
;          Dereference the control handle.
;===============================================================
;
defRefCtl	PROC
;
		;using equates
;
;
	ldy #2	Dereference the handle.
	lda [<ctlHand],y
	sta <ctlPtr+2
	lda [<ctlHand]
	sta <ctlPtr
	rts
	ENDP
;
;
;===============================================================
;          Clone control's bounds RECT.
;===============================================================
;
;   IN:    <ctlPtr = pointer to control	record.
;
;  OUT:    <cRect = clone of control's ctlRect field.
;
*getCtlRect PRIVATE
getCtlRect	PROC
;
		;using equates
;
;
	ldy #ctlRect+x2
	ldx #x2
lop1	lda [<ctlPtr],y
	sta <cRect,x
	dey
	dey
	dex
	dex
	bpl lop1
	rts
	ENDP
;
;
;===============================================================
;          Set color table pointer.
;===============================================================
;
;   IN:    <ctlWind = pointer to window.
;          <globals	= pointer to Window	Manager globals.
;
;  OUT:    <colors = pointer to control's color table.
;
getColorTable	PROC
;
	ldy #wcolor	Fetch color table field from window record.
	lda [<ctlWind],y
	tax
	iny
	iny
	lda [<ctlWind],y
	bmi @handle	Is the color table a handle?
	bne @store1	Is the color table a pointer?
	txy
	bne @store1
;
;
; --- NIL color table, use default.
;
	ldy #defWindClr	Use default color table.
	lda [<globals],y
	tax
	iny
	iny
	lda [<globals],y
	bpl @store1	Is default a pointer?
;
;
; --- Handle for color table.
;
@handle	stx <colors	Store handle.
	sta <colors+2
;
	ldy #4	Lock the color table.
	lda [<colors],y
	ora #$8000
	sta [<colors],y
	dey	Dereference the color table.
	dey
	lda [<colors],y
	pha
	lda [<colors]
	tax
	pla
;
@store1	stx <colors
	sta <colors+2
;
	rts
	ENDP
;
;
;
;====================================================
;          Unlock window's color table.
;====================================================
;
;   IN:    <ctlWind = pointer to window.
;
;  OUT:    Color table unlocked if it is a handle.  This includes the default table.
;
unlockColor	PROC
;
	ldy #wcolor	Fetch color table field from window record.
	lda [<ctlWind],y
	tax
	iny
	iny
	lda [<ctlWind],y
	bmi @handle	Is the color table a handle?
	bne @exit	Is the color table a pointer?
	txy
	bne @exit	If a pointer, nothing to unclock.
;
;
; --- NIL color table, unlock default.
;
	ldy #defWindClr	Use default color table.
	lda [<globals],y
	tax
	iny
	iny
	lda [<globals],y
	bpl @exit	Is default a pointer?  If yes, nothing to unlock.
;
;
; --- Handle for color table.
;
@handle	pei <cWork+2	Save.
	pei <cWork
;
*****	sta <cWork	Store handle.	*****  This is how it is in ROM 3 --DAL 14-Nov-90
*****	stx <cWork+2		*****  The two words are interchanged.
	sta <cWork+2	;fixed 14-Nov-90 DAL for TOOL014
	stx <cWork	;fixed 14-Nov-90 DAL for TOOL014
;
	ldy #4	Unlock the color table.
	lda [<cWork],y
	and #$7FFF
	sta [<cWork],y
;
	pla	Restore.
	sta <cWork
	pla
	sta <cWork+2
;
@exit	rts
	ENDP
;
;
;===============================================================
;          Fill and	frame <cRect.
;===============================================================
;
;   IN:    <cRect = RECT to frame and fill.
;          a = bits	4-7 = frame color, others bits are zero.
;          y = pattern type in high byte,
;              pattern color number in high nybble of low byte,
;              background color in low nibble of low byte.
;
*fillFrameRect PRIVATE
fillFrameRect	PROC
;
		;using equates
;
fillPatt	equ 1
framePatt	equ fillPatt+2
;
;
	pha	Save frame pattern.
	phy	Save fill pattern.
;
	tya	Fill with solid color?
	and #$FF00
	bne enter1	Can't do special if pattern fill.
;
;
; --- Special case fill and frame in one call ----------------
;
	jsr pushRect	Pass address of 'rect'.
	lda framePatt+4,s
	jsr pushSmear	Push smeared color.
	lda fillPatt+6,s
	jsr pushSmear	Push smeared color.
	_SpecialRect
	bcc exit	Error?
;
	pla	Remove inputs to SpecialRect.
	pla
	pla
	pla
;
;
; --- Draw box with	fill pattern -----------------------------
;
enter1	lda framePatt,s
	tay
	jsr set_patt	Compute pointer to pattern.
	phx	Pass address of pattern.
	phy
	_SetPenPat	Set color of frame outline.
;
	jsr pushRect	Pass address of 'rect'.
	lda fillPatt+4,s
	tay
	jsr set_patt
	phx	Pass address of pattern.
	phy
	_FillRect
;
	jsr pushRect	Pass address of 'rect'.
	_FrameRect
;
exit	ply	Take fill pattern off stack.
	pla	Take frame pattern off stack.
	rts
;
;
; = = = = = = = = =	= = = = = = = = = =
;          Push smeared color.
;100= = = = = = = =	= = = = = = = = = =
;
;   IN:    a = color in bits 4-7.
;
;  OUT:    Color smeared into all 4 nibbles and pushed on stack.
;
pushSmear	plx	Get return address.
;
	and #$00F0
	pha
	lsr a
	lsr a
	lsr a
	lsr a
	ora 1,s
	sta 1,s
	xba
	ora 1,s
	sta 1,s
;
	phx	Put return address back.
	rts
	ENDP
;
;
;===============================================================
;          Smear a mono bit image into color.
;===============================================================
;
;  IN:     y = pattern type in high byte,
;          pattern color number in high	nybble of low byte,
;          background color in low nibble of low byte.
;
; OUT:     x = high	word address of pattern.
;          y = low word address of pattern.
;
*set_patt   PRIVATE
set_patt	PROC
;
		;using equates
;
;
	lda <globals
	ldx <globals+2
	ENDP
;
;
;   IN:    x/a = pointer to Window Manager's global data area.
;
	EXPORT makePattern
makePattern	PROC
;
		;using equates
;
dataArea	equ 1
;
;
	phd	Save caller's direct page pointer.
;
	phx	Save pointer to data area.
	pha
;
	tsc	Switch direct page into stack.
	tcd
;
;
; --- Solid color --------------------------------------------
;
	tya	Special case, solid	pattern.
	and #$FF00
	bne buildPatt
;
	tya
	and #$00F0
	asl a
	clc
***	adc #colorBlack
	export SelfMod1Low
SelfMod1Low	adc #$7777	;low word of 640Colors 27-Sep-90 DAL
	tay
***	ldx #colorBlack>>16
	export SelfMod1High
SelfMod1High	ldx #$7777	;high word of 640Colors 27-Sep-90 DAL
	brl exit
;
;
; --- Fill pattern buffer with pattern color ----------
.
buildPatt	tya	Get pattern color.
	lsr a
	lsr a
	lsr a
	lsr a
	jsr getcolor	Get color of next to lowest nibble.
;
	pha	Save color of pattern.
	tya
	jsr getcolor	Get color of background in low nibble.
	pha	Save color of background.
;
	cpy #$0200	Lined or Dither pattern?
	bcs enter1	If lined, then ready.
;
;
; --- Special dither pattern -------------------------------------------
;
	tay	Save background color.
	and #$F0F0	Dither the background color,
	sta 1,s	save dither,
	lda 3,s	get foreground color,
	and #$0F0F	dither the foreground color.
	ora 1,s	add background color,
	sta 1,s	to get background dithered color.
;
	lda 3,s	Get foreground color,
	and #$F0F0	dither it,
	sta 3,s	save it.
	tya	Get original background color,
	and #$0F0F	dither it,
	ora 3,s	and the foreground dithered color,
	sta 3,s	to get foreground dithered color.
;
;
;  On stack:     3 foreground color.
;                1 background color.
;
;
enter1	ldx #pattern+14	16 bytes if 640 mode.
	ldy #screenMode
	lda [<dataArea],y	Get current mode.
	bne ok1	Which mode are we in?
	ldx #pattern+30	32 bytes if 320 mode.
ok1	txy	y = index into pattern buffer.
	tax	x = mode, FALSE if 320, TRUE if 640.
;
lop3	jsr setFore	Store a WORD of foreground color.
	txa	Which mode?
	bne skip1
	jsr setFore	If 320 store 2 words of foreground.
;
skip1	jsr setBack	Store a WORD of background color.
	bcc done	Buffer full?
	txa	Which mode?
	bne lop3
	jsr setBack	If 320 store 2 words of background.
	bcs lop3	Buffer full?
;
;
done	pla	Get rid of fore and	background colors.
	pla
;
;
	ldx <dataArea+2	Return address of pattern buffer.
	lda <dataArea
	clc
	adc #pattern
	bcc ok2
	inx
ok2	tay
;
exit	pla	Get rid of stack direct page.
	pla
;
	pld	Return caller's direct page.
	rts
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = =	= =
;          Put word	of foreground color	into pattern buffer.
;100= = = = = = = =	= = = = = = = = = =	= = = = = = = = = =	= =
;
;   IN:    y = index into pattern buffer to store foreground color.
;
;  OUT:    Carry clear if pattern is now full.
;
setFore	lda 5,s	Get foreground color.
	bra enter110
;
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = =	= =
;          Put word	of background color	into pattern buffer.
;110= = = = = = = =	= = = = = = = = = =	= = = = = = = = = =	= =
;
;   IN:    y = index into pattern buffer to store background color.
;
;  OUT:    Carry clear if pattern is now full.
;
setBack	lda 3,s	Get background color.
;
enter110	sta [<dataArea],y
	dey
	dey
	cpy #pattern
	rts
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = =	= =
;          Smear low nibble into all nibbles.
;120= = = = = = = =	= = = = = = = = = =	= = = = = = = = = =	= =
;
;   IN:    a = color in low nibble.
;
;  OUT:    a = color in all four nibbles.
;
getcolor	and #$000F
	pha
	asl a
	asl a
	asl a
	asl a
	ora 1,s
	sta 1,s
	xba
	ora 1,s
	plx
	rts
;
	ENDP
;
;
;===============================================================
;          Push pointer to direct page location.
;===============================================================
;
*pushRect   PRIVATE
pushRect	PROC
;
		;using equates
;
;
	lda #cRect
	brl pushDpage
	ENDP
;
;
;===============================================================
;          Push long value from control	record.
;===============================================================
;
;   IN:    <ctlPtr = pointer to control	record.
;          y = index to high word of field to push.
;
*pushCtlLong PRIVATE
pushCtlLong	PROC
;
		;using equates
;
;
	plx	Get return address.
;
	lda [<ctlPtr],y
	pha
	dey
	dey
	lda [<ctlPtr],y
	pha
;
	phx	Put return address back.
	rts
	ENDP
;
;
;===============================================================
;          Get zoom	box's coordinates.
;===============================================================
;
;   IN:    <ctlPtr = pointer to title bar control.
;
;  OUT:    <cRect = zoom box's coordinates.
;
*getzoomcor  PRIVATE
getzoomcor	PROC
;
		;using equates
;
;
	ldy #ctlRect+x2
	lda [<ctlPtr],y
	sec
	sbc #CLOSEL
	sta <cRect+x2
	sec
	ldy #closeWidth
	sbc [<globals],y	Less width of icon font.
	sta <cRect+x1
;
	bra top_bottom	Compute top and bottom.
;
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = =	= =
;          Get close box's coordinates.
;100= = = = = = = =	= = = = = = = = = =	= = = = = = = = = =	= =
;
;   IN:    <globals	= pointer to Window	Manager globals.
;
;  OUT:    <cRect = close box's coordinates.
;
	ENTRY getCloseCor
getCloseCor		;       
;
	lda #CLOSEL
	sta <cRect+x1
	clc
	ldy #closeWidth
	adc [<globals],y	Add width of icon font.
	sta <cRect+x2
;
top_bottom	lda #CLOSET
	sta <cRect+y1
	clc
	ldy #closeHeight
	adc [<globals],y	Add height of icon font.
	sta <cRect+y2
	rts
;
	ENTRY getCoords
getCoords		;       
	DC.W getCloseCor,getzoomcor
;
	ENDP
;
;
;==================================================
;          Smear color into all 4 nibbles.
;==================================================
;
;   IN:    a = color in low nibble.
;
;  OUT:    a = color in all 4 nibbles.
;
*smear      PRIVATE
smear	PROC
;
	and #$000F
	pha
	asl a
	asl a
	asl a
	asl a
	ora 1,s
	sta 1,s
	xba
	ora 1,s
	plx
	rts
	ENDP
;
;
;================================
;          Push line size.
;================================
;
;   IN:    <globals	= pointer to Window	Manager's global data area.
;
;  OUT:    PUSH:WORD - width of lines.
;          PUSH:WORD - height of lines.
;
*pushLineSize PRIVATE
pushLineSize	PROC
;
		;using equates
;
;
	jsr getLineSize	a = width, x = height.
;
	ply	Get return address.
;
	pha	Push width.
	phx	Push height.
;
	phy	Put return address back.
	rts
	ENDP
;
;
;===================================
;          Get size	of lines.
;===================================
;
;   IN:    <globals	= pointer to Window	Manager's global data area.
;
;  OUT:    a = width of lines.
;          x = height of lines.
;
*getLineSize PRIVATE
getLineSize	PROC
;
		;using equates
;
;
	ldy #lineW
	lda [<globals],y	Return width in a.
	ldx #1	Return height in x.
	rts
	ENDP
;
;
;=======================================================
;          Get pointer to window controls control.
;=======================================================
;
;   IN:    <ctlPtr = pointer to control.
;          ctlData = pointer to window.
;
;  OUT:    <ctlWind = pointer to window that controls are around.
;
*getWindPtr PRIVATE
getWindPtr	PROC
;
		;using equates
;
;
	ldy #ctlData
	lda [<ctlPtr],y
	sta <ctlWind
	iny
	iny
	lda [<ctlPtr],y
	sta <ctlWind+2
	rts
	ENDP
;
;========================================
;          Solid color patterns.
;========================================
;
	if 0 then		;removed 27-Sep-90 DAL
	EXPORT solidColors
solidColors	PROC

	EXPORT colorBlack
colorBlack    
	DC.B $00
	DC.B $00
	DC.B $00
	DC.B $00
	DC.B $00
	DC.B $00
	DC.B $00
	DC.B $00
	DC.B $00
	DC.B $00
	DC.B $00
	DC.B $00
	DC.B $00
	DC.B $00
	DC.B $00
	DC.B $00
	DC.B $00
	DC.B $00
	DC.B $00
	DC.B $00
	DC.B $00
	DC.B $00
	DC.B $00
	DC.B $00
	DC.B $00
	DC.B $00
	DC.B $00
	DC.B $00
	DC.B $00
	DC.B $00
	DC.B $00
	DC.B $00
	DC.B $11
	DC.B $11
	DC.B $11
	DC.B $11
	DC.B $11
	DC.B $11
	DC.B $11
	DC.B $11
	DC.B $11
	DC.B $11
	DC.B $11
	DC.B $11
	DC.B $11
	DC.B $11
	DC.B $11
	DC.B $11
	DC.B $11
	DC.B $11
	DC.B $11
	DC.B $11
	DC.B $11
	DC.B $11
	DC.B $11
	DC.B $11
	DC.B $11
	DC.B $11
	DC.B $11
	DC.B $11
	DC.B $11
	DC.B $11
	DC.B $11
	DC.B $11
	DC.B $22
	DC.B $22
	DC.B $22
	DC.B $22
	DC.B $22
	DC.B $22
	DC.B $22
	DC.B $22
	DC.B $22
	DC.B $22
	DC.B $22
	DC.B $22
	DC.B $22
	DC.B $22
	DC.B $22
	DC.B $22
	DC.B $22
	DC.B $22
	DC.B $22
	DC.B $22
	DC.B $22
	DC.B $22
	DC.B $22
	DC.B $22
	DC.B $22
	DC.B $22
	DC.B $22
	DC.B $22
	DC.B $22
	DC.B $22
	DC.B $22
	DC.B $22
	DC.B $33
	DC.B $33
	DC.B $33
	DC.B $33
	DC.B $33
	DC.B $33
	DC.B $33
	DC.B $33
	DC.B $33
	DC.B $33
	DC.B $33
	DC.B $33
	DC.B $33
	DC.B $33
	DC.B $33
	DC.B $33
	DC.B $33
	DC.B $33
	DC.B $33
	DC.B $33
	DC.B $33
	DC.B $33
	DC.B $33
	DC.B $33
	DC.B $33
	DC.B $33
	DC.B $33
	DC.B $33
	DC.B $33
	DC.B $33
	DC.B $33
	DC.B $33
	DC.B $44
	DC.B $44
	DC.B $44
	DC.B $44
	DC.B $44
	DC.B $44
	DC.B $44
	DC.B $44
	DC.B $44
	DC.B $44
	DC.B $44
	DC.B $44
	DC.B $44
	DC.B $44
	DC.B $44
	DC.B $44
	DC.B $44
	DC.B $44
	DC.B $44
	DC.B $44
	DC.B $44
	DC.B $44
	DC.B $44
	DC.B $44
	DC.B $44
	DC.B $44
	DC.B $44
	DC.B $44
	DC.B $44
	DC.B $44
	DC.B $44
	DC.B $44
	DC.B $55
	DC.B $55
	DC.B $55
	DC.B $55
	DC.B $55
	DC.B $55
	DC.B $55
	DC.B $55
	DC.B $55
	DC.B $55
	DC.B $55
	DC.B $55
	DC.B $55
	DC.B $55
	DC.B $55
	DC.B $55
	DC.B $55
	DC.B $55
	DC.B $55
	DC.B $55
	DC.B $55
	DC.B $55
	DC.B $55
	DC.B $55
	DC.B $55
	DC.B $55
	DC.B $55
	DC.B $55
	DC.B $55
	DC.B $55
	DC.B $55
	DC.B $55
	DC.B $66
	DC.B $66
	DC.B $66
	DC.B $66
	DC.B $66
	DC.B $66
	DC.B $66
	DC.B $66
	DC.B $66
	DC.B $66
	DC.B $66
	DC.B $66
	DC.B $66
	DC.B $66
	DC.B $66
	DC.B $66
	DC.B $66
	DC.B $66
	DC.B $66
	DC.B $66
	DC.B $66
	DC.B $66
	DC.B $66
	DC.B $66
	DC.B $66
	DC.B $66
	DC.B $66
	DC.B $66
	DC.B $66
	DC.B $66
	DC.B $66
	DC.B $66
	DC.B $77
	DC.B $77
	DC.B $77
	DC.B $77
	DC.B $77
	DC.B $77
	DC.B $77
	DC.B $77
	DC.B $77
	DC.B $77
	DC.B $77
	DC.B $77
	DC.B $77
	DC.B $77
	DC.B $77
	DC.B $77
	DC.B $77
	DC.B $77
	DC.B $77
	DC.B $77
	DC.B $77
	DC.B $77
	DC.B $77
	DC.B $77
	DC.B $77
	DC.B $77
	DC.B $77
	DC.B $77
	DC.B $77
	DC.B $77
	DC.B $77
	DC.B $77
	DC.B $88
	DC.B $88
	DC.B $88
	DC.B $88
	DC.B $88
	DC.B $88
	DC.B $88
	DC.B $88
	DC.B $88
	DC.B $88
	DC.B $88
	DC.B $88
	DC.B $88
	DC.B $88
	DC.B $88
	DC.B $88
	DC.B $88
	DC.B $88
	DC.B $88
	DC.B $88
	DC.B $88
	DC.B $88
	DC.B $88
	DC.B $88
	DC.B $88
	DC.B $88
	DC.B $88
	DC.B $88
	DC.B $88
	DC.B $88
	DC.B $88
	DC.B $88
	DC.B $99
	DC.B $99
	DC.B $99
	DC.B $99
	DC.B $99
	DC.B $99
	DC.B $99
	DC.B $99
	DC.B $99
	DC.B $99
	DC.B $99
	DC.B $99
	DC.B $99
	DC.B $99
	DC.B $99
	DC.B $99
	DC.B $99
	DC.B $99
	DC.B $99
	DC.B $99
	DC.B $99
	DC.B $99
	DC.B $99
	DC.B $99
	DC.B $99
	DC.B $99
	DC.B $99
	DC.B $99
	DC.B $99
	DC.B $99
	DC.B $99
	DC.B $99
	DC.B $AA
	DC.B $AA
	DC.B $AA
	DC.B $AA
	DC.B $AA
	DC.B $AA
	DC.B $AA
	DC.B $AA
	DC.B $AA
	DC.B $AA
	DC.B $AA
	DC.B $AA
	DC.B $AA
	DC.B $AA
	DC.B $AA
	DC.B $AA
	DC.B $AA
	DC.B $AA
	DC.B $AA
	DC.B $AA
	DC.B $AA
	DC.B $AA
	DC.B $AA
	DC.B $AA
	DC.B $AA
	DC.B $AA
	DC.B $AA
	DC.B $AA
	DC.B $AA
	DC.B $AA
	DC.B $AA
	DC.B $AA
	DC.B $BB
	DC.B $BB
	DC.B $BB
	DC.B $BB
	DC.B $BB
	DC.B $BB
	DC.B $BB
	DC.B $BB
	DC.B $BB
	DC.B $BB
	DC.B $BB
	DC.B $BB
	DC.B $BB
	DC.B $BB
	DC.B $BB
	DC.B $BB
	DC.B $BB
	DC.B $BB
	DC.B $BB
	DC.B $BB
	DC.B $BB
	DC.B $BB
	DC.B $BB
	DC.B $BB
	DC.B $BB
	DC.B $BB
	DC.B $BB
	DC.B $BB
	DC.B $BB
	DC.B $BB
	DC.B $BB
	DC.B $BB
	DC.B $CC
	DC.B $CC
	DC.B $CC
	DC.B $CC
	DC.B $CC
	DC.B $CC
	DC.B $CC
	DC.B $CC
	DC.B $CC
	DC.B $CC
	DC.B $CC
	DC.B $CC
	DC.B $CC
	DC.B $CC
	DC.B $CC
	DC.B $CC
	DC.B $CC
	DC.B $CC
	DC.B $CC
	DC.B $CC
	DC.B $CC
	DC.B $CC
	DC.B $CC
	DC.B $CC
	DC.B $CC
	DC.B $CC
	DC.B $CC
	DC.B $CC
	DC.B $CC
	DC.B $CC
	DC.B $CC
	DC.B $CC
	DC.B $DD
	DC.B $DD
	DC.B $DD
	DC.B $DD
	DC.B $DD
	DC.B $DD
	DC.B $DD
	DC.B $DD
	DC.B $DD
	DC.B $DD
	DC.B $DD
	DC.B $DD
	DC.B $DD
	DC.B $DD
	DC.B $DD
	DC.B $DD
	DC.B $DD
	DC.B $DD
	DC.B $DD
	DC.B $DD
	DC.B $DD
	DC.B $DD
	DC.B $DD
	DC.B $DD
	DC.B $DD
	DC.B $DD
	DC.B $DD
	DC.B $DD
	DC.B $DD
	DC.B $DD
	DC.B $DD
	DC.B $DD
	DC.B $EE
	DC.B $EE
	DC.B $EE
	DC.B $EE
	DC.B $EE
	DC.B $EE
	DC.B $EE
	DC.B $EE
	DC.B $EE
	DC.B $EE
	DC.B $EE
	DC.B $EE
	DC.B $EE
	DC.B $EE
	DC.B $EE
	DC.B $EE
	DC.B $EE
	DC.B $EE
	DC.B $EE
	DC.B $EE
	DC.B $EE
	DC.B $EE
	DC.B $EE
	DC.B $EE
	DC.B $EE
	DC.B $EE
	DC.B $EE
	DC.B $EE
	DC.B $EE
	DC.B $EE
	DC.B $EE
	DC.B $EE
	EXPORT colorWhite
colorWhite
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF
	DC.B $FF

	ENDP
	endif	;27-Sep-90 DAL

;=====================================================================
;	Push pointer to window's title.
;=====================================================================
;
;   IN: <ctlWind = pointer to window.
;
;  OUT: Window title pointer on stack, handle locked.
;       Call unlockTitle when done.
;
pushWindTitle	PROC
;
	ldy #wTitle+2	Is title a handle?
	lda [<ctlWind],y
	bmi @handle
@justPush	plx	Get return address.
	pha
	dey
	dey
	lda [<ctlWind],y
	pha
	phx
	rts
;
;
; --- Title is a handle.
;
@handle	pei <cWork+2	Save.
	pei <cWork
;
	sta <cWork+2
	dey
	dey
	lda [<ctlWind],y
	sta <cWork
;
	ldy #4	Lock the title.
	lda [<cWork],y
	ora #$8000
	sta [<cWork],y
	dey	Get title pointer.
	dey
	lda [<cWork],y
	tay
	lda [<cWork]
;
	plx	Restore.
	stx <cWork
	plx
	stx <cWork+2
;
	plx	Get return address.
	phy	Push title pointer on stack.
	pha
	phx	Put return address back.
	rts
;
	ENDP
;
;
;================================================================
;	Unlock window title handle.
;================================================================
;
;   IN: <ctlWind = pointer to window.
;
;  OUT: Window title handle unlocked if it is a handle.
;
unlockTitle	PROC
;
	ldy #wTitle+2	Is title a handle?
	lda [<ctlWind],y
	bpl @exit
;
	pei <cWork+2	Save.
	pei <cWork
;
	sta <cWork+2
	dey
	dey
	lda [<ctlWind],y
	sta <cWork
;
	ldy #4	Unlock the title.
	lda [<cWork],y
	and #$7FFF
	sta [<cWork],y
;
	plx	Restore.
	stx <cWork
	plx
	stx <cWork+2

@exit	rts
	ENDP
;
;
	END
;
;
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/WindMgr/WDefProc.asm b/IIGS.601.SRC/GSToolbox/WindMgr/WDefProc.asm
new file mode 100644
index 0000000..e90e3c8
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/WindMgr/WDefProc.asm
@@ -0,0 +1 @@
+	Blanks off
	String asis

	TITLE 'Apple IIGS Window Manager                   DOCDEF.ASM'
;
;          Copyright Apple Computer, Inc. 1986
;          All rights reserved
;          Written by Dan Oliver
;
;        This module contains the window definition procedure
;        of a standard square cornered window.  The window can
;        have, title bar with a close and/or zoom box, information
;        bar, vertical scroll bar, horizontal scroll bar drop shadow,
;        grow box or just a frame.
;
;
; Files needed:
;          DOCDEF.ASM
;            DEF.MACROS
;          DOCCALL.ASM
;          ALERTDEF.ASM
;          DEFUTIL.ASM
;          DDATA.ASM
;
; Change history:
;
; 07/18/88  Dan O.	Changed hSetTitle to draw info bar in addition to the title bar because versions
;	of the Window Manager on System Disks 3.1 and before redrew the entire frame
;	when the title changed.  The application "List Plus" depended on the info bar
;	being redrawn when the title was changed.
;
; 08/08/88  Dan O.	I had (a while ago) removed masking the scroll bar thumb position in TaskScroll
;	with the window's origin mask.  I've now put that back in.  This means that
;	sometimes the thumb may not go all the way to the right side (horizontal scroll
;	bars).
;
; 10/28/88  Dan O.	Close window free's title and color table if they're a handle.
;	DefProcs also handle titles and color tables as pointers or handles.
;	Change set title and color table to dispose of exsisting handles first.

;
; 21 May 89	Steven Glass
;
; Minor change to new origin to prevent the orphaning of regions during
; scrolling.
;
; 27-Sep-90	Dave Lyons
;
; Changes to use Get640Colors instead of hard-coding our own solid-color
; table.
;
; 14-Nov-90	Dave Lyons
;
; Fixed memory-trashing bug in unlockColor (the two words of the color table handle
; were reversed, so we were turning off bit 15 of a semi-random location).
; See separate fix in WCtlDef.asm's own unlockColor subroutine.
; (This bug means that Window Color Table Resources can't be used reliably in
; System 5.0 through 5.0.3.)
;

	INCLUDE 'ALL.MACROS'
	include 'WindMgrEquates.asm'



;
; --- DefProc direct page offsets ----------------------------
;
windColors	equ 1	Pointer to window's color table.
w_wrect	equ windColors+4	Bounds of window's strucRgn.
w_rect	equ w_wrect+8	General RECT area.
w_work	equ w_rect+8	w_work space.
DIRECTSIZE	equ w_work+37	Size of allocated direct page.
saveDpage	equ DIRECTSIZE+1	Caller's direct page.
returnAddr	equ saveDpage+2	Long return addresses.
w_param	equ returnAddr+3	Parameter defined by defProc operation.
w_wind	equ w_param+4	Pointer to window record.
operation	equ w_wind+4	DefProc operation to perform.
globals	equ operation+2	Pointer to Window Manager globals.
result	equ globals+4	Result defined by defProc operation.
;
;
;
; --- wCallDefProc parameter list offsets --------------------
;
dRequest	equ 0
defProcID	equ dRequest+2
newParam	equ defProcID+2
;
;
; --- Document window record offsets -------------------------
;
wtitle	equ 212	212 Pointer to window's title.
wtitle_w	equ wtitle+4	216 Width of title in pixels.
worgn_mask	equ wtitle_w+2	218 Mask for horizontal origin.
wfull	equ worgn_mask+2	220 Size of window,	used with ZoomWindow.
wcolor	equ wfull+8	228 Pointer to window's color table.
y_origin	equ wcolor+4	232 Content's vertical offset.
x_origin	equ y_origin+2	234 Content's horizontal offset.
data_h	equ x_origin+2	236 Height of total	data area.
data_w	equ data_h+2	238 Width of total data area.
wmaxheight	equ data_w+2	240 Maximum height for grow window.
wmaxwidth	equ wmaxheight+2	242 Maximum width for grow window.
vscroll	equ wmaxwidth+2	244 Amount to scroll vertically (arrows).
hscroll	equ vscroll+2	246 Amount to scroll horizonally (arrows).
vpage	equ hscroll+2	248 Amount to page vertically (page region).
hpage	equ vpage+2	250 Amount to page horizontally (page rgn).
wInfoRef	equ hpage+2	252 Value passed to	Draw Info routine.
wInfoHeight	equ wInfoRef+4	256 Height of information bar.
woldYOrg	equ wInfoHeight+2	258 Save y origin on full window.
woldXOrg	equ woldYOrg+2	260 Save x origin on full window.
wInfoDraw	equ woldXOrg+2	262 Address of routine to draw Info Bar.
DOCSIZE	equ wInfoDraw+4	266 Size of document window record.
;
;
; --- New window parameter list offsets	----------------------------
;
p_length	equ 0	Number of bytes in parameter list.
p_wframe	equ p_length+2	Type of window, frame flags.
p_wtitle	equ p_wframe+2	Pointer to window's title.
p_wrefCon	equ p_wtitle+4	Reserved for application.
p_wfull	equ p_wrefCon+4	Size of window, used with ZoomWindow.
p_wcolor	equ p_wfull+8	Pointer to window's color table.
p_y_origin	equ p_wcolor+4	Content's vertical offset.
p_x_origin	equ p_y_origin+2	Content's horizontal offset.
p_data_h	equ p_x_origin+2	Height of total data area.
p_data_w	equ p_data_h+2	Width of total data	area.
p_wmaxheight	equ p_data_w+2
p_wmaxwidth	equ p_wmaxheight+2
p_vscroll	equ p_wmaxwidth+2	Amount to scroll vertically (arrows).
p_hscroll	equ p_vscroll+2	Amount to scroll horizonally (arrows).
p_vpage	equ p_hscroll+2	Amount to page vertically (page region).
p_hpage	equ p_vpage+2	Amount to page horizontally (page rgn).
p_wInfoText	equ p_hpage+2
p_wInfoH	equ p_wInfoText+4	Height of infomation bar.
p_wdefProc	equ p_wInfoH+2	NOT USED.
p_wInfoDraw	equ p_wdefProc+4	Address of routine to draw Info Bar.
p_updateDraw	equ p_wInfoDraw+4	Address of routine to draw content region.
p_position	equ p_updateDraw+4
p_behind	equ p_position+8
p_windrec	equ p_behind+4
p_size	equ p_windrec+4
;
;
; --- Window DefProc frame offsets -----------------------------
;
TITLEH	equ 13	Height of title bar.
TITLEL	equ 2	Space on left and right of title bar pattern.
TITLET	equ 3	Space on top and bottom of title bar pattern.
;
CLOSEL	equ 10	Left side of window	to left side of close box.
CLOSET	equ 2	Top of window to top of close box.
CLOSEW	equ 22	Width of close box.
CLOSEH	equ 11	Height of close box.
;
;
; --- Window color table offsets -----------------------------
;
FRAME_CLR	equ 0	Frame's outline.
TITLE_CLR	equ FRAME_CLR+2	Title's color.
BAR_CLR	equ TITLE_CLR+2	Title bar's initerior.
GROW_CLR	equ BAR_CLR+2	Grow box interior.
INFOR_CLR	equ GROW_CLR+2	Information bar interior.
COLORSIZ	equ INFOR_CLR+2	Size of color table.
;
;
; --- Offsets into GrafPort
;
boundsRect	EQU   $08  ; Rect - LocInfo - BoundsRect
clipRgn	EQU   $18  ; RgnHandle - GrafPort - Clip Rgn. Pointer
visRgn	EQU   $1C  ; RgnHandle - GrafPort - Vis. Rgn. Pointer

;
;
; --- Part codes for standard controls -----------------
;
;
titlePart	equ 16
closePart	equ 17
zoomPart	equ 18
infoPart	equ 19
;
;
; --- IDs of window	frame controls ---------------------------
;
titleBarID	equ 0
infoBarID	equ 2
VScrollID	equ 4
HScrollID	equ 6
GrowID	equ 8
;


;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

	IMPORT Allocate
	IMPORT Bring
	IMPORT Convert
	IMPORT Current
	IMPORT Draw
	IMPORT Expand
	IMPORT Get
	IMPORT Have
	IMPORT Make
	IMPORT Redraw
	IMPORT Restore
	IMPORT Save
	IMPORT Set
	IMPORT Window
***	IMPORT colorBlack
	IMPORT infoBarDefProc
	IMPORT longCall
	IMPORT pushDpage
	IMPORT setTheOrigin
	IMPORT titleBarDefProc
	IMPORT zeroOrigin

;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

	ENTRY pushWindTitle
	ENTRY unlockTitle
	ENTRY TaskScroll
	ENTRY ckZoom
	ENTRY ck_origin
	ENTRY cloneRect
	ENTRY docBehind
	ENTRY docCallDefProc
	ENTRY docPosition
	ENTRY docRecSize
	ENTRY docDispose
	ENTRY endFrameDraw
	ENTRY findCtlHand
	ENTRY frameRect
	ENTRY getDeskBounds
	ENTRY getGlobalRect
	ENTRY getLineSize
	ENTRY getLocalRect
	ENTRY getLong
	ENTRY getRgnBounds
	ENTRY hDrawInfo
	ENTRY hEndInfoDraw
	ENTRY hGetColorTable
	ENTRY hGetDataSize
	ENTRY hGetFrameFlag
	ENTRY hGetInfoDraw
	ENTRY hGetInfoRect
	ENTRY hGetInfoRefCon
	ENTRY hGetMaxGrow
	ENTRY hGetOrgMask
	ENTRY hGetOrigin
	ENTRY hGetPage
	ENTRY hGetScroll
	ENTRY hGetTitle
	ENTRY hGetZoomRect
	ENTRY hNewSize
	ENTRY hSetColorTable
	ENTRY hSetDataSize
	ENTRY hSetFrameFlag
	ENTRY hSetInfoDraw
	ENTRY hSetInfoRefCon
	ENTRY hSetMaxGrow
	ENTRY hSetOrgMask
	ENTRY hSetOrigin
	ENTRY hSetPage
	ENTRY hSetScroll
	ENTRY hSetTitle
	ENTRY hSetZoomRect
	ENTRY hStartDrawing
	ENTRY hStartInfoDraw
	ENTRY hStartMove
	ENTRY hTask
	ENTRY hZoomWindow
	ENTRY makeRectLocal
	ENTRY new_origin
	ENTRY pushLineSize
	ENTRY pushParam
	ENTRY pushPort
	ENTRY pushWindLong
	ENTRY pushrect
	ENTRY pushwrect
	ENTRY saveWOrigin
	ENTRY saveWRect
	ENTRY setDefFull
	ENTRY setLong
	ENTRY setTitleWidth
	ENTRY setWindField
	ENTRY setcolorptr
	ENTRY unlockColor
	ENTRY setoutline
	ENTRY shutdown
	ENTRY startFrameDraw
	ENTRY startup
	ENTRY swap_origin
	ENTRY swap_word
	ENTRY zeroDesRect



;
;
;====================================================
;          Standard	document window defProc.
;====================================================
;
;   IN:    PUSH:LONG - space for result.
;          PUSH:LONG - pointer to Window Manager globals.
;          PUSH:WORD - operation to perform.
;          PUSH:LONG - pointer to window's port.
;          PUSH:LONG - addtional parameter defined by operation.
;          JSL to defProc.
;
;  OUT:    result =	result from operation.
;          Carry clear if no error.
;          Carry set if error, Y = error code.
;
	EXPORT docDefProc
docDefProc	PROC
;
;
; --- Set up for defProc call --------------------------------
;
	jsr startup
;
;
; --- Dispatch to operation handler --------------------------
;
	lda <operation
	cmp #11	Operation out of range?
	bcs skip1
;
	asl a
	tax
	jsr (taskTable,x)
	sta <result	x/a = result.
	stx <result+2	y = error code if carry set.
	bcs skip1
	ldy #0	No error code.
;
;
; --- Return to caller ---------------------------------------
;
skip1	brl shutdown
;
;
taskTable	DC.W docDraw	0  Draw window frame.
	DC.W docHit	1  Hit test window.
	DC.W docRgns	2  Compute struc and content regions.
	DC.W docInit	3  Additional initailization.
	DC.W docDispose	4  Additional diaposal.
	DC.W docDrag	5  Return address of draw frame routine.
	DC.W docGrow	6  Draw grow window	outline.
	DC.W docRecSize	7  Return window record size.
	DC.W docPosition	8  Return position and size of window.
	DC.W docBehind	9  Return where window goes in list.
	DC.W docCallDefProc	10 Generic call to defProc.
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = =
; 0        Draw document window's frame.
;100= = = = = = = =	= = = = = = = = = =	= = = = =
;
;   IN:    <w_wind = window to draw.
;          <w_param =	part to draw, 0=entire, 1=close, 2=zoom, 3=info.
;          <w_param+2	= bit 15 = 1 to hilite.
;
;  OUT:    x/a = result.
;
docDraw	lda <w_param	Dispatch to part to	draw.
	asl a
	tax
	jmp (drawParts,x)
;
drawParts	DC.W drawWhole,drawClose,drawZoom,drawInfo
;
;
;--------------------------------------------
;          Draw entire window frame.
;110-----------------------------------------
;
drawWhole	jsr setcolorptr	Set window's color table pointer.
;
	ldy #FRAME_CLR
	jsr setoutline	Set pen color and pattern.
;
	jsr getLocalRect	<w_wrect = frame RECT	in local.
;	                  <w_rect = frame RECT in	local.
;
	jsr pushLineSize
	_SetPenSize
;
	jsr frameRect	Draw outline around	frame.
;
	ldy #wFrameCtls+1	Does the window have any frame controls?
	lda [<w_wind],y
	beq exit110
;
	jsr pushPort	Pass port that has frame controls.
	_DrawControls
;
exit110	jsr unlockColor	Leave color table unlocked.
	clc	No error flag.
	rts
;
;
;--------------------------------------------
;          Draw close box.
;120-----------------------------------------
;
;   IN:    <w_param+2	= negative to hilite.
;
drawClose	lda #closePart	Hilite close box, just in case.
;
enter120	ldx <w_param+2	Hilite?
	bmi store120
	lda #0	Unhilite.
store120	sta <w_param+2	Part to hilite.
;
	lda #titleBarID	Find title bar control.
	jsr findCtlHand
	bcs exit120
;
	pei <w_param+2	Pass part to hilite	or unhilite.
	phx	Pass handle of control.
	pha
	_HiliteControl	Draw the part.
;
exit120	clc
	rts
;
;
;--------------------------------------------
;          Draw zoom box.
;130-----------------------------------------
;
;   IN:    <w_param+2	= negative to hilite.
;
drawZoom	lda #zoomPart	Hilite zoom box.
	bra enter120
;
;
;--------------------------------------------
;          Draw info bar.
;140-----------------------------------------
;
drawInfo		; 
	clc
	rts
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = =
; 1        Test hit	on a standard documnet window.
;200= = = = = = = =	= = = = = = = = = =	= = = = = = = = = =
;
;   IN:    w_param = y point to check, local to window frame.
;          w_param+2 = x point to check, local to window frame.
;          yrat = y	global point to check.
;          xrat = x	global point to check.
;          w_param = y local point to check.
;          w_param+2 = x local point to check.
;
;  OUT:    a = part	point is zero if no	point found,
;              else	a = wInContent
;	    wInDrag
;	    wInGrow
;	    wInGoAway
;	    wInZoom
;	    wInInfo
;	    wInFrame
;
docHit		; 
;
foundCtl	equ w_work
;
	lda #wInFrame	If no controls, on frame, just in case.
	ldy #wFrameCtls+1	Does the window have any frame controls?
	lda [<w_wind],y
	beq exit
;
	jsr pushParam	Pass pointer to point to check.
	_LocalToGlobal	Convert point to check to global.
;
	pha	Space for result.
	lda #foundCtl	Pass place to store	handle of control.
	jsr pushDpage
	pei <w_param+2	Pass x point to check (global).
	pei <w_param	Pass y point to check (global).
	pha	Pass pointer to window.
	pha
	_GetPort	Current port is port to check.
	_FindControl
	lda #wInFrame	Not on control, just in case.
	plx	Control found?
	beq exit
;
	lda #wInGoAway
	cpx #closePart	In close box part?
	beq exit
;
	lda #wInZoom
	cpx #zoomPart	In zoom box part?
	beq exit
;
	pha	Space for result.
	pha
	pei <foundCtl+2	Pass handle of found control.
	pei <foundCtl
	_GetCtlRefCon
	pla
	plx	Get control's ID.
	lda >hitCodes,x	Fetch code to return.
	cmp #wInDrag	Special case wInDrag.
	bne exit
;
	ldy #wFrame	Is window moveable?
	lda [<w_wind],y
	and #F_MOVE
	bne okMove
	lda #wInFrame	Window is not moveable.
	bra exit
;
okMove	lda #wInDrag	Window is moveable.
;
exit	clc	No error.
	rts
;
hitCodes	DC.W wInDrag,wInInfo,wInFrame,wInFrame,wInGrow
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = =
; 3        Perform additional initialization.
;400= = = = = = = =	= = = = = = = = = =	= = = = = = = =
;
;   IN:    w_wrect = content area in global coordinates.
;          w_param = pointer to NewWindow	parameter list:
;	   WORD - window frame type:
;	                  $8000 - title bar.
;	                  $4000 - close box.
;	                  $1000 - right scroll bar.
;	                  $0800 - bottom scroll	bar.
;	                  $0400 - sizer box.
;	                  $0100 - full box.
;	                  $0080 - allow move on	title bar.
;	                  $0020 - visible.
;	   LONG - pointer to window's title (first byte = length).
;	   LONG - reference	value, application reserved.
;	   RECT - full rect	for content, zero for default.
;	   LONG - pointer to color window's table.
;	   WORD - vertical offset of content region.
;	   WORD - horizontal offset of content region.
;	   WORD - height of	total data area.
;	   WORD - width of total data area.
;	   WORD - maximum height of content allowed in grow window.
;	   WORD - maximum width of content allowed in grow window.
;	   WORD - pixels to	scroll vertically for arrows.
;	   WORD - pixels to	scroll horizontally	for arrows.
;	   WORD - pixels to	scroll vertically for page region.
;	   WORD - pixels to	scroll horizontally	for page region.
;	   LONG - value passed to draw Information bar routine.
;	   WORD - height of	information bar.
;	   LONG - address of window's definition procedure.
;	   LONG - address of routine that will draw on Info. Bar.
;	   LONG - address of routine that will draw content region.
;	   RECT - the position and size of content area.
;	   LONG - poistion window goes in window list.
;	   LONG - address of window record, zero to allocate.
;
;  OUT:    Carry clear if window created if no error.
;          Carry set if error, y = error code.
;
docInit		; 
;
;
; --- Transferr data from parameter list to window record ----
;
; wFrame, wTitle, wRefCon, wZoom, wColor, wYOrigin, wXorigin, wDataH, wDataW,
; wMaxH, wMaxW, wScrollVer, wScrollHor,	wPageVer, wPageHor,	wInfoRefCon,
; wInfoHeight, wFrameDefProc, wInfoDefProc.
;
	ldy #wframe	Place in record to put parameter list.
	ldx #p_wframe
lop2	phy
	txy
	lda [<w_param],y
	ply
	ora [<w_wind],y	OR to not disturb wFrame bits already set.
	sta [<w_wind],y
	iny
	iny
	inx
	inx
	cpx #p_updateDraw
	bne lop2
;
;
	ldy #wOrgn_mask	Set the wOrgn_mask field.
	lda #$FFFF	Set horizontal origin mask to single
	sta [<w_wind],y	pixel resolution.
;
	ldy #p_wRefCon	Set the wRefCon field.
	ldx #wRefCon+2
	jsr setWindField
;
	ldy #p_updateDraw	Set the wContDraw field.
	ldx #wContDraw+2
	jsr setWindField
;
;
; --- Make sure that the data sizes are	in range -------------
;
	ldy #data_h	Force data size to be in bounds.
	lda [<w_wind],y
	and #$3FFF
	sta [<w_wind],y
	iny
	iny
	lda [<w_wind],y
	and #$3FFF
	sta [<w_wind],y
;
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = =	= = =
; 2        Initialize window's StructRgn and ContentRgn.
;400= = = = = = = =	= = = = = = = = = =	= = = = = = = = = =	= = =
;
;   IN:    w_wind = window pointer.
;
;  OUT:    w_rect = trashed.
;          w_wrect = trashed.
;
growHeight	equ w_work	Local direct page use.
growWidth	equ growHeight+2
frame	equ growWidth+2
portPtr	equ frame+2
temp	equ portPtr+4
contentH	equ temp+4
contentW	equ contentH+2
;
;
docRgns	jsr getGlobalRect	w_wrect = port bounds.
	jsr cloneRect	Clone 'w_wrect' into 'w_rect'.
;
;
;----------------------------------------------
;          Set size	of content region.
;----------------------------------------------
;
	lda <w_rect+y2	Compute and save content height.
	sec
	sbc <w_rect+y1
	sta <contentH
;
	lda <w_rect+x2	Compute and save content width.
	sec
	sbc <w_rect+x1
	sta <contentW
;
	ldy #wcontRgn+2	Pass handle of content region.
	jsr pushWindLong
	jsr pushrect
	_RectRgn
;
;
;----------------------------------------------------------------------
;          Compute size of frame by expanding the content area.
;----------------------------------------------------------------------
;
;
; ------ Get size of grow box --------------------------------
;
	ldy #wframe
	lda [<w_wind],y
	sta <frame	Save wFrame.
	and #F_RSCRL+F_BSCRL+F_GROW Any controls that need grow?
	beq skip404	Don't call GrowSize if none.
;
	pha	Space for result
	pha
	_GrowSize	Get the size of the	grow box.
	pla
	sta <growHeight
	pla
	sta <growWidth
;
;
; ------ Expand width of frame outline -----------------------
;
skip404	jsr pushrect	Pass RECT of entire	window.
	ldy #lineW	Pass width of vertical line negated.
	lda [<globals],y
	eor #$FFFF
	inc a
	pha
	pea $FFFF	Pass height of horizontal line negated.
	_InsetRect	Expand window RECT by width of frame.
;
;
; ------ Add title bar ---------------------------------------
;
	lda <frame	Save wFrame.
	bpl skip400	Title bar?
;
	ldy #titleHeight
	lda <w_rect+y1
	sec
	sbc [<globals],y
	inc a	Share top line.
	sta <w_rect+y1
;
;
; ------ Add info bar ----------------------------------------
;
skip400	lda <frame
	and #F_INFO	Information bar?
	beq skip401
;
	lda <w_rect+y1
	ldy #wInfoHeight
	sec
	sbc [<w_wind],y	Raise top side for information bar.
	inc a	Share top line.
	sta <w_rect+y1
;
;
; ------ Add vertical scroll bar -----------------------------
;
skip401	lda <frame
	and #F_RSCRL	Right scroll bar?
	beq skip402
;
	lda <w_rect+x2
	clc
	adc <growWidth	Expand right side for vertical scroll.
;
	ldy #lineW
	sec
	sbc [<globals],y
	sta <w_rect+x2
;
;
; ------ Add horizontal scroll bar ---------------------------
;
skip402	lda <frame
	and #F_BSCRL	Bottom scroll bar?
	beq skip403
;
	lda <w_rect+y2
	clc
	adc <growHeight	Expand bottom side for bottom scroll.
	dec a
	sta <w_rect+y2
;
;
; --- Set size of window's strucRgn --------------------------
;
skip403	ldy #wstrucRgn+2	Pass handle of StructRgn.
	jsr pushWindLong
	jsr pushrect	Set to global RECT in 'w_rect'.
	_RectRgn
;
;
;------------------------------------------------------
;          Create any needed frame controls.
;------------------------------------------------------
;
;   <w_rect = frame's rect, in global.
;   <w_wrect = content rect, in global.
;
	pha	Space for result.
	pha
	_GetPort
	pla
	sta <portPtr	Save pointer to current port.
	pla
	sta <portPtr+2
;
	lda <frame
	and #F_RSCRL+F_BSCRL+F_GROW+F_TITLE+F_INFO
	bne ok403
	brl setDefFull	If no controls, skip kill and create.
;
ok403	pei <portPtr+2	Pass port to kill controls in.
	pei <portPtr
	_KillControls
;
;
;-------------------------------------------
;          Create frame controls.
;-------------------------------------------
;
; --- Convert bounds to local --------------------------------
;
	jsr makeRectLocal	<w_wrect = local, <w_rect = <w_wrect clone.
;
;          <w_wrect =	bounds of window structure in local.
;          <w_rect = bounds of window structure in local.
;
; --- Create title bar control -------------------------------
;
	lda <frame	Is there a title bar?
	and #F_TITLE
	bne ok404
;
	inc <w_rect+y1	Special case no title bar so info bar
	bra makeInfo	and vertical scroll	bar can share lines.
;
ok404	ldy #titleHeight	Compute bounds of title bar.
	lda [<globals],y
	sta <w_rect+y2
;
	jsr setTitleWidth	Set the width of the new title.
;
	pha	Space for result.
	pha
	pei <portPtr+2	Pass window owner.
	pei <portPtr
	jsr pushRect	Pass address of bounds RECT.
	pei <w_wind+2	Pass ctlData.
	pei <w_wind
	lda <frame	Pass flags.
	and #F_CLOSE+F_ZOOM
	xba
	pha
	pha	Pass value (not used, set by control).
	pha	Pass param1 (not used).
	pha	Pass param2 (not used).
	pea titleBarDefProc>>16 Pass address of	control defProc.
	pea titleBarDefProc
	pea titleBarID	Pass refCon.
	pha	Low word not used.
	pha	Pass color table (not used).
	pha
	_NewControl
	pla	Don't need returned handle.
	pla
;
	lda <w_rect+y2	Subtract title bar from frame RECT.
	sta <w_rect+y1
	lda <w_wrect+y2
	sta <w_rect+y2
;
;
; --- Create info bar control --------------------------------
;
makeInfo	lda <frame	Is there a info bar?
	and #F_INFO
	beq makeVScroll
;
	dec <w_rect+y1	Share top line with	bottom of title.
;
	ldy #wInfoHeight	Compute bounds of info bar.
	lda [<w_wind],y
	clc
	adc <w_rect+y1
	sta <w_rect+y2
;
	pha	Space for result.
	pha
	pei <portPtr+2	Pass window owner.
	pei <portPtr
	jsr pushRect	Pass address of bounds RECT.
	pei <w_wind+2	Pass ctlData.
	pei <w_wind
	lda #0	Common need.
	pha	Pass flags.
	pha	Pass value.
	pha	Pass param1 (not used).
	pha	Pass param2 (not used).
	pea infoBarDefProc>>16 Pass address of control defProc.
	pea infoBarDefProc
	pea infoBarID	Pass refCon.
	pha	Low word not used.
	pha	Pass color table (not used).
	pha
	_NewControl
	pla	Don't need returned handle.
	pla
;
	lda <w_rect+y2	Subtract info bar from frame RECT.
	sta <w_rect+y1
	lda <w_wrect+y2
	sta <w_rect+y2
;
;
; --- Create vertical scroll bar -----------------------------
;
makeVScroll	lda <frame	Is there a vertical	scroll bar?
	and #F_RSCRL
	beq makeGrow
;
	dec <w_rect+y1	Share top side.
	lda <w_rect+x2	Compute bounds of info bar.
	sec
	sbc <growWidth
	sta <w_rect+x1
;
	lda <frame	If no grow box or horizontal scroll
	and #F_BSCRL+F_GROW	bar than go to bottom of window.
	beq ok401
;
	lda <w_rect+y2	Pull bottom of vertical scroll bar up
	sec	to make room for grow box and/or
	sbc <growHeight	horizontal scroll bar.
	inc a
	sta <w_rect+y2
;
ok401	pha	Space for result.
	pha
	pei <portPtr+2	Pass window owner.
	pei <portPtr
	jsr pushRect	Pass address of bounds RECT.
	pha	Pass title (not used).
	pha
	pea $0003	Pass flags.
	ldy #y_origin	Pass value.
	lda [<w_wind],y
	pha
	pei <contentH	Pass view height in	param1.
	ldy #data_h	Pass data height in	param2.
	lda [<w_wind],y
	pha
	lda #0	Common need.
	pea $0600	Pass defProc for scroll bar.
	pha
	pea VScrollID	Pass refCon (ID for	vertical bar).
	pha
	pha	Pass default color table.
	pha
	_NewControl
	pla	Get handle of scroll bar.
	plx
	jsr setBarValue	Move scroll bar value into refCon
;
;
; --- Create grow box control --------------------------------
;
makeGrow	lda <frame	Is there a grow box?
	and #F_GROW
	beq makeHScroll
;
	lda <w_wrect+x2	Compute bounds of grow box.
	sta <w_rect+x2
	sec
	sbc <growWidth
	sta <w_rect+x1
	lda <w_wrect+y2
	sta <w_rect+y2
	sec
	sbc <growHeight
	sta <w_rect+y1
;
	pha	Space for result.
	pha
	pei <portPtr+2	Pass window owner.
	pei <portPtr
	jsr pushRect	Pass address of bounds RECT.
	lda #0	Common need.
	pha	Pass title (not used).
	pha
	pha	Pass flags.
	pha	Pass value.
	pha	Pass param1 (not used).
	pha	Pass param2 (not used).
	pea $0800	Pass defProc for grow box.
	pha
	pea GrowID	Pass refCon (ID for	grow box).
	pha
	pha	Pass default color table.
	pha
	_NewControl
	pla	Don't need returned handle.
	pla
;
;
; --- Create horizontal scroll bar ---------------------------
;
makeHScroll	lda <frame	Is there a horizontal scroll bar?
	and #F_BSCRL
	beq setDefFull
;
	lda <w_wrect+y2	Compute bounds of horizontal scroll bar.
	sta <w_rect+y2
	sec
	sbc <growHeight
	sta <w_rect+y1
;
	lda <w_wrect+x1
	sta <w_rect+x1
	lda <w_wrect+x2
	sta <w_rect+x2
;
	lda <frame	If no grow box or vertical scroll
	and #F_RSCRL+F_GROW	bar than go to right side of window.
	beq ok402
;
	lda <w_rect+x2	Pull right side of horizontal scroll
	sec	bar in to make room	for grow box and/or
	sbc <growWidth	vertical scroll bar.
	ldy #lineW
	clc
	adc [<globals],y
	sta <w_rect+x2
;
ok402	pha	Space for result.
	pha
	pei <portPtr+2	Pass window owner.
	pei <portPtr
	jsr pushRect	Pass address of bounds RECT.
	pha	Pass title (not used).
	pha
	pea $001C	Pass flags.
	ldy #x_origin	Pass value.
	lda [<w_wind],y
	pha
	pei <contentW	Pass view height in	param1.
	ldy #data_w	Pass data height in	param2.
	lda [<w_wind],y
	pha
	lda #0	Common need.
	pea $0600	Pass defProc for scroll bar.
	pha
	pea HScrollID	Pass refCon (ID for	horizontal bar).
	pha
	pha	Pass default color table.
	pha
	_NewControl
	pla	Get handle of scroll bar.
	plx
	jsr setBarValue	Move scroll bar value into refCon
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = =
;          Set default maximum grow size
;          and full	size and position.
;410= = = = = = = =	= = = = = = = = = =	= = = = = =
;
;   IN:    w_wind = pointer to window.
;          w_wind[wmaxheight] = 0 to set default max grow height.
;          w_wind[wmaxwidth]  = 0 to set default max grow width.
;          w_wind[wfull+y2]   = 0 to set default full size and position.
;
;  OUT:    Values set if zero flags passed in record.
;          w_rect = trash.
;          w_wrect = trash.
;
	ENTRY setDefFull
setDefFull		;       
;
	ldy #wstrucRgn	Get global coordinates of content.
	jsr getRgnBounds	<w_wrect = wwStructRgn bounds.
	jsr cloneRect	<w_rect = <w_wrect.
;
	ldy #wcontRgn	Get global coordinates of content.
	jsr getRgnBounds	<w_wrect = content bounds.
;
	ldx #2
lop410	lda <w_wrect+y2,x	Get width/height of	wcontRgn.
	sec
	sbc <w_wrect+y1,x
	sta <w_wrect+y2,x	Store width/height in x2/y2.
;
	lda <w_rect+y2,x	Get width/height of	wstrucRgn,
	sec
	sbc <w_rect+y1,x
	sbc <w_wrect+y2,x	less width/height of wcontRgn,
	sta <w_rect+y2,x	equals window border width/height.
;
	lda <w_wrect+y1,x	Get left/top window	border,
	sec
	sbc <w_rect+y1,x
	sta <w_rect+y1,x	and store in w_rect+x1/w_rect+y1.
;
	dex
	dex
	bpl lop410
;
	jsr getDeskBounds	<w_wrect = bounds of desktop.
;
	ldx #2
lop411	lda <w_wrect+y2,x
	sec
	sbc <w_wrect+y1,x	Width/height of desktop,
	sbc <w_rect+y2,x	less width/height of window border,
	sta <w_rect+y2,x	equals max content width/height.
	dex
	dex
	bpl lop411
;
;
	ldy #wmaxheight	Does maximum grow height need setting?
	lda [<w_wind],y
	bne ok410
;
	lda <w_rect+y2	Set default max grow height.
	sta [<w_wind],y
;
ok410	iny
	iny
	lda [<w_wind],y	Does maximum grow width need setting?
	bne ok411
;
	lda <w_rect+x2	Set default max grow width.
	sta [<w_wind],y
;
;
; --- Set default full RECT ------------------------------------------
;
ok411	ldy #wfull+y2
	lda [<w_wind],y	Does full RECT need	setting?
	bne exit410
;
	lda <w_wrect+y1	Get desktop's top side,
	clc
	adc <w_rect+y1	plus window's top border,
	ldy #wfull+y1
	sta [<w_wind],y	equals full top side,
	adc <w_rect+y2	plus max height,
	ldy #wfull+y2
	sta [<w_wind],y	equals full bottom side.
;
	lda <w_wrect+x1	Get desktop's left side,
	clc
	adc <w_rect+x1	plus window's left border,
	ldy #wfull+x1
	sta [<w_wind],y	equals full left side,
	adc <w_rect+x2	plus max width,
	ldy #wfull+x2
	sta [<w_wind],y	equals full right side.
;
exit410	clc	No error flag.
	rts
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = =
;          Move scroll bar value into refCon.
;420= = = = = = = =	= = = = = = = = = =	= = = = = = = =
;
;   In:    x/a = handle of control.
;
;  OUT:    CtlRefCon field = CtlValue field.
;          <temp = trash.
;
setBarValue	sta <temp
	stx <temp+2
;
	ldy #2	Deference handle.
	lda [<temp],y
	tay
	lda [<temp]
	sta <temp
	sty <temp+2
;
	ldy #CtlValue	Set control's refcon to its value.
	lda [<temp],y	The refcon is used by TaskScroll
	ldy #CtlrefCon	is call for dragged	thumber.  The
	sta [<temp],y	refcon is the old position.
	rts
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = =
;          Move a long value from the
;          parameter list into the window record.
;430= = = = = = = =	= = = = = = = = = =	= = = = = = = = = =
;
;   IN:    w_param = pointer to parameter	list.
;          w_wind = pointer to window record.
;          y = index to LOW word of value in parameter list.
;          x = index to HIGH word of value in window record.
;
	ENTRY setWindField
setWindField		;       
;
	lda [<w_param],y
	pha
	iny
	iny
	lda [<w_param],y
	txy
	sta [<w_wind],y
	dey
	dey
	pla
	sta [<w_wind],y
	rts
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = =
;          Set width of title.
;440= = = = = = = =	= = = = = = = = = =	= = = = = = = = = =
;
;   IN:    <w_wind = pointer to window.
;          Pointer to title in wTitle field of window record.
;
;   OUT:   wTitle_w	field of window record = width of window.
;
	ENTRY setTitleWidth
setTitleWidth
;
	IMPORT pushWindTitle
	IMPORT unlockTitle
;
	pha	Space for result.
	jsr pushWindTitle	Pass pointer to title.
	_StringWidth
	pla	Set width of title in window record.
	ldy #wTitle_w
	sta [<w_wind],y
;
	brl unlockTitle	Leave title unlocked.
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = =
; 4        Draw grow outline of window.
;500= = = = = = = =	= = = = = = = = = =	= = = = =
;
;   IN: <w_wind = pointer to window to be closed.
;
;  OUT: x/a = NIL to continue close, else abort.
;
	ENTRY docDispose
docDispose	ldy #wtitle+2	Was the title allocated?
	lda [<w_wind],y
	bpl @skip1
	jsr @dispose	Free title.
;
@skip1	ldy #wColor+2	Was the color table allocated?
	lda [<w_wind],y
	bpl @skip2
	jsr @dispose	Free color table.
@skip2	bra docDrag	Return NIL.
;
;
;-------------------------------------------------------------------
;	Dispose of handle in window record.
;-------------------------------------------------------------------
;
@dispose	and #$7FFF
	pha
	dey
	dey
	lda [<w_wind],y
	pha
	_DisposeHandle
	rts
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = =	= = = = = =
; 5        Return address of routine to	draw window outline.
;510= = = = = = = =	= = = = = = = = = =	= = = = = = = = = =	= = = = = =
;
;  OUT:    x/a = result, zero for default outline.
;
docDrag		; 
;
	lda #0	Return FALSE to continue disposal.
	tax
	clc	No error flag.
	rts
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = =
; 6        Draw grow window outline.
;600= = = = = = = =	= = = = = = = = = =	= = = = =
;
;  OUT:    x/a = result.
;
docGrow		; 
;
	lda #0	Perform default action.
	tax
	clc	No error flag.
	rts
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = =
; 7        Return window record size.
;610= = = = = = = =	= = = = = = = = = =	= = = = =
;
;   IN:    <w_param =	pointer to parameter table.
;
;  OUT:    a = additional bytes needed in window record.
;
	ENTRY docRecSize
docRecSize		;       
;
	lda [<w_param]	Check length paramter.
	cmp #p_size	Proper size?
	beq ok610
;
	ldy #$0E01	Bad parameter list length error.
	sec	Error flag.
	rts
;
;
ok610	ldy #p_windrec+1	Has a record already been allocated?
	lda [<w_param],y
	beq ok611
	iny
	lda [<w_param],y	Return pointer to record.
	ora #$8000	Make negative to say record is allocated.
	tax
	dey
	dey
	lda [<w_param],y

;-----------------------------------------------------------
;
; Zero the record provided
;
	phx
	pha
	phd
	tsc
	tcd

	ldy #DOCSIZE-2	Get size of record.(this includes the window
	lda #0	record header)
@loop	sta [3],y
	dey
	dey
	bpl @loop
	sta [3]	In case it was not even
;
	pld
	pla
	plx
;
	clc
	rts
;
ok611	lda #DOCSIZE-wtitle	Addtional bytes needed.
	ldx #0
	clc	No error flag.
	rts
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = =
; 8        Return position and size of window.
;620= = = = = = = =	= = = = = = = = = =	= = = = =
;
;   IN:    w_param = pointer to parameter	table.
;
;  OUT:    x/a = pointer to RECT that is new window's position and size.
;
	ENTRY docPosition
docPosition		;       
;
	ldx <w_param+2	Return pointer to RECT in w_param list.
	lda <w_param
	clc
	adc #p_position
	bcc exit620
	inx
;
exit620	clc	No error flag.
	rts
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = =
; 9        Return where window goes in list.
;630= = = = = = = =	= = = = = = = = = =	= = = = =
;
;   IN:    w_param = pointer to parameter	table.
;
;  OUT:    x/a = pointer to window this	window should be behind, or
;                $00000000 if this window should be bottom most, or
;                $FFFFFFFF if this window should be top most.
;
	ENTRY docBehind
docBehind		;       
;
	ldy #p_behind+2	Return value in parameter list.
	lda [<w_param],y
	tax
	dey
	dey
	lda [<w_param],y
;
	clc	No error flag.
	rts
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = =
;        Get zoom box's coordinates.
;750= = = = = = = =	= = = = = = = = = =	= = = = =
;
;   IN:    w_wind = window to check.
;          w_wrect = window's coordinates, local to window.
;
;  OUT:    w_rect = zoom box's coordinates.
;
	ENTRY getzoomcor
getzoomcor		;       
;
	lda <w_wrect+x2
	sec
	sbc #CLOSEL
	sta <w_rect+x2
	sec
	ldy #closeWidth
	sbc [<globals],y	Less width of icon font.
	sta <w_rect+x1
;
	bra top_bottom	Compute top and bottom.
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = =
;        Get close box's coordinates.
;760= = = = = = = =	= = = = = = = = = =	= = = = =
;
;   IN:  w_wind = pointer to window.
;
;  OUT:  w_rect = close box's coordinates.
;
	ENTRY getclosecor
getclosecor		;       
;
	lda #CLOSEL
	sta <w_rect+x1
	clc
	ldy #closeWidth
	adc [<globals],y	Add width of icon font.
	sta <w_rect+x2
;
top_bottom	lda #CLOSET
	sta <w_rect+y1
	clc
	ldy #closeHeight
	adc [<globals],y	Add height of icon font.
	sta <w_rect+y2
;
	rts
;
	ENDP
;
;            APPEND	DOCCALL.ASM
	TITLE 'Apple IIGS Window Manager                   DOCCALL.ASM'
;
;          Copyright Apple Computer, Inc. 1986
;          All rights reserved
;          Written by Dan Oliver
;
;
;
;============================================
; 10       Generic call to defProc.
;============================================
;
;   IN:    <w_wind = pointer to window record.
;          <globals	= pointer to Window	Manager globals.
;          <w_param =	pointer to parameter table:
;	   dRequest   WORD	operation.
;	   defProcID  WORD	0 for this defProc.
;	   newParam   LONG	possible new value to set.
;
;  OUT:    x/a = result.
;
docCallDefProc	PROC
;
	ldy #defProcID	Is this a call to me?
	lda [<w_param],y
	bne exit1
;
	lda [<w_param]	Get special operation number.
	cmp #34	In range?
	bcs exit1
;
	asl a
	tax
	lda >specialOps,x
	pha
;
	ldy #newParam+2
	lda [<w_param],y
	tax	Pass high word of newParam in X.
	dey	Pass y = to newParam offset.
	dey
	lda [<w_param],y	Pass low word of newParam in A.
exit1	rts	Go to special op handler.
;
;
specialOps	DC.W hSetOrgMask-1	0
	DC.W hSetMaxGrow-1	1
	DC.W hSetScroll-1	2
	DC.W hSetPage-1	3
	DC.W hSetInfoRefCon-1 4
	DC.W hSetInfoDraw-1	5
	DC.W hSetOrigin-1	6
	DC.W hSetDataSize-1	7
	DC.W hSetZoomRect-1	8
	DC.W hSetTitle-1	9
	DC.W hSetColorTable-1 10
	DC.W hSetFrameFlag-1 11
	DC.W hGetOrgMask-1	12
	DC.W hGetMaxGrow-1	13
	DC.W hGetScroll-1	14
	DC.W hGetPage-1	15
	DC.W hGetInfoRefCon-1 16
	DC.W hGetInfoDraw-1	17
	DC.W hGetOrigin-1	18
	DC.W hGetDataSize-1	19
	DC.W hGetZoomRect-1	20
	DC.W hGetTitle-1	21
	DC.W hGetColorTable-1 22
	DC.W hGetFrameFlag-1 23
	DC.W hGetInfoRect-1	24
	DC.W hDrawInfo-1	25
	DC.W hStartInfoDraw-1 26
	DC.W hEndInfoDraw-1	27
	DC.W hZoomWindow-1	28
	DC.W hStartDrawing-1 29
	DC.W hStartMove-1	30
	DC.W ckZoom-1	31
	DC.W hNewSize-1	32
	DC.W hTask-1	33
;
	ENDP
;
;
;=======================================
;          Set origin mask.
;=======================================
;
;   IN:    a = new mask.
;          <w_wind = pointer to window record.
;
hSetOrgMask	PROC

	ldy #worgn_mask
	sta [<w_wind],y
	clc	No error flag.
	rts
	ENDP
;
;
;=======================================
;          Set maximum grow size.
;=======================================
;
;   IN:    a = maximum window height.
;          x = maximum window width.
;
hSetMaxGrow	PROC

	ldy #wmaxHeight
	jsr setLong
	brl setDefFull	Check to set default max grow.
	ENDP
;
;
;=======================================
;          Set amount to scroll
;          when arrows selected.
;=======================================
;
hSetScroll	PROC

	ldy #vscroll
;
setLong	sta [<w_wind],y
	iny
	iny
	txa
	sta [<w_wind],y
	clc	No error flag.
	rts
	ENDP
;
;
;
;=======================================
;          Set amount to scroll
;          when page region selected.
;=======================================
;
hSetPage	PROC

	ldy #vpage
	bra setLong
	ENDP
;
;
;=======================================
;          Set info	bar refCon.
;=======================================
;
hSetInfoRefCon	PROC

	ldy #wInfoRef
	bra setLong
	ENDP
;
;
;=================================================
;          Set info	bar draw procedure.
;=================================================
;
hSetInfoDraw	PROC

	ldy #wInfoDraw
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = =
;          Set a long value in window record.
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = =
;
;   IN:    y = offset into window record of field to set.
;          a = low word of long value.
;          x = high	word of long value.
;          w_wind = pointer to window record.
;
;  OUT:    Carry clear, no error.
;
	ENTRY setLong
setLong		;       
;
	sta [<w_wind],y
	iny
	iny
	txa
	sta [<w_wind],y
;
	clc	No error flag.
	rts
;
	ENDP
;
;
;=======================================
;          Set content's origin.
;=======================================
;
;   IN:    <w_param+newParam = WORD new Y	origin.
;	         WORD new X	origin.
;	         WORD flag.
;          a = new y origin.
;          x = new x origin.
;
hSetOrigin	PROC
;
		;using equates
;
newYorigin	equ w_work
newXorigin	equ newYorigin+2
temp1	equ newXorigin+2
temp2	equ temp1+4
matchID	equ temp2+4
;
;
	sta <newYorigin	Save new Y origin.
	stx <newXorigin	Save new X origin.
;
	ldy #newParam+4
	lda [<w_param],y
	beq skip1	Should content be scrolled?
;
;
; --- Scroll content to new origin ---------------------------
;
	jsr scrollContent
	clc	No error flag.
	rts

;
;
; --- Set new origin without scrolling content ---------------
;
skip1	lda <newYorigin	Pass new Y origin in A, new X in X.
	ldy #y_origin
	jsr setLong
;
	jsr setScrollBars
	clc	No error flag.
	rts
;
; 
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = =
;          Scroll content and set new origon.
;100= = = = = = = =	= = = = = = = = = =	= = = = = = = = =
;
;   IN:    New origin on stack.
;
scrollContent		; 
; 
	ldx <newXorigin
	lda <newYorigin
	jsr new_origin
;
;
;--------------------------------------------------------------------
;          Set the frame scroll bars to	reflect the change.
;--------------------------------------------------------------------
;
setScrollBars		; 
;
	jsr startFrameDraw
;
;
; --- Set horizontal scroll bar ------------------------------
;
	lda #HScrollID	Get handle of horizontal scroll bar.
	jsr findCtlHand
	bcs skip100	Is there a horizontal scroll bar?
;
	pei <newXorigin	Pass new value.
	phx	Pass handle of control.
	pha
	_SetCtlValue
;
	jsr derefTemp1	<temp2 = (<temp1).
	lda <newXorigin	Get control's new value.
	ldy #CtlrefCon
	sta [<temp2],y	Remeber value for scrolling.
;
;
; --- Set vertical scroll bar --------------------------------
;
skip100	lda #VScrollID	Get handle of vertical scroll bar.
	jsr findCtlHand
	bcs exit100	Is there a vertical	scroll bar?
;
	pei <newYorigin	Pass new value.
	phx	Pass handle of control.
	pha
	_SetCtlValue
;
	jsr derefTemp1	<temp2 = (<temp1).
	lda <newYorigin	Get control's new value.
	ldy #CtlrefCon
	sta [<temp2],y	Remeber value for scrolling.
;
exit100	brl endFrameDraw
;
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = =
;          Push handle of first control.
;110= = = = = = = =	= = = = = = = = = =	= = = = =
;
;   IN:    <w_wind = pointer to window that has frame controls.
;          a = ID of control to find.
;
;  OUT:    Carry set if control not found.
;          Carry clear if control found, x/a = handle of control.
;
	ENTRY findCtlHand
findCtlHand		;       
;
	sta <matchID	Save ID to match.
;
	ldy #wFrameCtls+2	Get handle of first	control.
	lda [<w_wind],y
	tax
	dey
	dey
	lda [<w_wind],y
	bra enter110
;
lop110	jsr derefTemp1	<temp2 = (<temp1).
;
	ldy #ctlRefCon+2	Get control's ID.
	lda [<temp2],y
	cmp <matchID
	beq gotit110
;
	ldy #ctlNext+2	Get handle of next control.
	lda [<temp2],y
	tax
	lda [<temp2]
;
enter110	sta <temp1	Store handle of control.
	stx <temp1+2
	ora <temp1+2	Any more controls?
	bne lop110
	sec	Control not found.
	rts
;
gotit110	lda <temp1	Return handle of control.
	ldx <temp1+2
	clc	Control found flag.
	rts
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = =
;          Dereference <temp1.
;120= = = = = = = =	= = = = = = = = = =	= = = = =
;
;   IN:    <temp1 =	handle.
;
;  OUT:    <temp2 =	(temp1)
;
derefTemp1	ldy #2
	lda [<temp1],y
	sta <temp2+2
	lda [<temp1]
	sta <temp2
	rts
;
;
; = = = = = = = = =	= = = = = = = = = =	= =
;          Set window's data size.
;200= = = = = = = =	= = = = = = = = = =	= =
;
;   IN:    <w_param+newParam = new height	of data area.
;          <w_param+newParam+2 = new width of data area.
;
	ENTRY hSetDataSize
hSetDataSize		;       
;
newHeight	equ newYorigin
newWidth	equ newXorigin
;
;
	and #$3FFF	Limit new data size.
	sta <newHeight
	txa
	and #$3FFF
	sta <newWidth
;
	jsr startFrameDraw
;
;
; --- Set vertical scroll bar --------------------------------
;
	lda #VScrollID	Get handle of vertical scroll bar.
	jsr findCtlHand
	bcs skip200	Is there a vertical	scroll bar?
;	                  <temp1 = control's handle.
;	                  <temp2 = control's pointer.
;
	ldy #ctlValue	Compute maximum data size.
	lda [<temp2],y	Origin,
	ldy #ctlData	plus view,
	clc
	adc [<temp2],y	equals minimum.
	cmp <newHeight
	bcc ok200
;
	sta <newHeight	Reset data height to minimum.
;
ok200	ldy #data_h	Change the data width in the window.
	lda <newHeight
	cmp [<w_wind],y	Has there been a change?
	beq skip200	If no change, don't call control.
	sta [<w_wind],y	Store new data width in window record.
;
	pha	Pass new data size to scroll bar.
	pea $FFFF	Don't change view.
	pei <temp1+2	Pass handle of scroll bar.
	pei <temp1
	_SetCtlParams
;
;
;
; --- Set horizontal scroll bar ------------------------------
;
skip200	lda #HScrollID	Get handle of horizontal scroll bar.
	jsr findCtlHand
	bcs exit200	Is there a horizontal scroll bar?
;	                  <temp1 = control's handle.
;	                  <temp2 = control's pointer.
;
	ldy #ctlValue	Compute maximum data size.
	lda [<temp2],y	Origin,
	ldy #ctlData	plus view,
	clc
	adc [<temp2],y	equals minimum.
	cmp <newWidth
	bcc ok201
;
	sta <newWidth	Reset data width to	minimum.
;
ok201	ldy #data_w	Change the data width in the window.
	lda <newWidth
	cmp [<w_wind],y	Has there been a change?
	beq exit200	If no change, don't call control.
	sta [<w_wind],y	Store new data width in window record.
;
	pha	Pass new data size to scroll bar.
	pea $FFFF	Don't change view.
	pei <temp1+2	Pass handle of scroll bar.
	pei <temp1
	_SetCtlParams
;
;
exit200	jsr endFrameDraw
	clc	No error flag.
	rts
;
	ENDP
;
;
;=============================================
;          Change window's origin,
;          and scroll content.
;=============================================
;
;   IN:    a = new y origin.
;          x = new x origin.
;          w_wind = window pointer.
;
;
; Change History
;
; 21 May 89	Steven Glass
;
; Dispose of the temp region at exit time so it is not orphaned
; when the user has his own draw proc.
;
new_origin	PROC
;
;
newYorigin	equ w_work
newXorigin	equ newyorigin+2
tempRgn	equ newXorigin+2
deltay	equ tempRgn+4
deltax	equ deltay+2
;
;
	sta <newYorigin	Save new y origin.
;
	txa	Force x origin to grid.
	ldy #worgn_mask
	and [<w_wind],y
	sta <newXorigin	Save new x origin.
;
;
; --- Compute deltas -----------------------------------------
;
	ldy #x_origin
	lda [<w_wind],y
	sec
	sbc <newXorigin
	sta <deltax	Horizontal change.
	lda <newXorigin	Set new origin.
	sta [<w_wind],y
	dey
	dey
	lda [<w_wind],y
	sec
	sbc <newYorigin
	sta <deltay	Vertical change.
	lda <newYorigin	Set new origin.
	sta [<w_wind],y
;
;
; --- Offset the current update region to the new position ---------------
;
	ldy #wupdateRgn+2	Pass handle to window's update region.
	jsr pushWindLong
	pei <deltax
	pei <deltay
	_OffsetRgn
;
;
; --- Scroll the window's content region -------------------------------
;
	pha	Space for result.
	pha
	_NewRgn	Allocate a temp. region.
	pla
	sta <tempRgn
	pla
	sta <tempRgn+2
;
;
; --- Scroll the content -------------------------------------
;
	pha	Save current port.
	pha
	_GetPort
;
	jsr hStartDrawing	Switch to window's content.
;
	ldx <w_wind+2	Compute address of window's port,
	lda <w_wind	which is RECT to scroll.
	clc
	adc #wPort+GP_PortRect (Port RECT is local to content.)
	bcc store1
	inx
store1	phx	Pass pointer to RECT to scroll.
	pha
	pei <deltax
	pei <deltay
	pei <tempRgn+2	Update region to fill.
	pei <tempRgn
	_ScrollRect
;
	ldy #wContDraw+1	Is there a routine that will update
	lda [<w_wind],y	the content?
	bne redrawClobbered	If yes, redraw exposed area.
;
;
; --- Add clobbered	region from scroll to window's update region ----------
;
	pei <tempRgn+2
	pei <tempRgn
	ldy #wPort+boundsRect+x1
	lda [<w_wind],y
	eor #$FFFF
	inc a
	pha
	dey
	dey
	lda [<w_wind],y
	eor #$FFFF
	inc a
	pha
	_OffsetRgn	Make clobbered area	global.
;
	pei <tempRgn+2	Clobbered region.
	pei <tempRgn
	ldy #wupdateRgn+2	Add clobbered to update region.
	jsr pushWindLong
	ldy #wupdateRgn+2
	jsr pushWindLong
	_UnionRgn
;
	bra exit
;
;
; --- Refresh part that was exposed by scroll -----------------
;
redrawClobbered		; 
;
	ldy #wport+visRgn+2	Save window's current visRgn.
	lda [<w_wind],y
	pha
	lda <tempRgn+2	Replace visRgn with	clobbered region.
	sta [<w_wind],y
	dey
	dey
	lda [<w_wind],y
	pha
	lda <tempRgn
	sta [<w_wind],y
;
;
	ldy #wContDraw+1	Get address of content draw routine.
	lda [<w_wind],y
	tax
	dey
	lda [<w_wind],y
;
	phd	Save my zero page.
	phb	Save current data bank.
	pha	Save.
;
	ldy #callerDataB	Get caller's data bank pointer,
	lda [<globals],y
	pha	and switch to it.
	plb
	plb
	ldy #callerDpage	Get original direct	page,
	lda [<globals],y
	tcd	and switch to caller's direct page.
;
	pla	Restore.
	jsl longCall
;
	plb	Restore last data bank.
	pld	Restore my direct page pointer.
;
	ldy #wport+visRgn	Restore window's original visRgn.
	pla
	sta [<w_wind],y
	iny
	iny
	pla
	sta [<w_wind],y
;
exit
	pei <tempRgn+2	Free temp. region.
	pei <tempRgn
	_DisposeRgn

	jsr zeroOrigin	Return window's origin to 0,0.
	_SetPort	Restore original port.
	rts
	ENDP
;
;
;=======================================
;          Return origin mask.
;=======================================
;
hGetOrgMask	PROC

	ldy #worgn_mask
	lda [<w_wind],y
	ldx #0
	clc
	rts
	ENDP
;
;
;=======================================
;          Return maximum grow size.
;=======================================
;
hGetMaxGrow	PROC

	ldy #wmaxheight+2
	bra getLong
	ENDP
;
;
;=============================================
;          Return amount to scroll
;          when arrows are selected.
;=============================================
;
hGetScroll	PROC

	ldy #vscroll+2
	bra getLong
	ENDP
;
;
;=============================================
;          Return amount to scroll
;          when page regions are selected.
;=============================================
;
hGetPage	PROC

	ldy #vpage+2
	bra getLong
	ENDP
;
;
;==============================================
;          Return info bar's refCon.
;==============================================
;
hGetInfoRefCon	PROC

	ldy #wInfoRef+2
	bra getLong
	ENDP
;
;
;==============================================
;          Return address of info
;          bar's draw procedure.
;==============================================
;
hGetInfoDraw	PROC

	ldy #wInfoDraw+2
	bra getLong
	ENDP
;
;
;==============================================
;          Return content's origin.
;==============================================
;
hGetOrigin	PROC

	ldy #y_origin+2
	bra getLong
	ENDP
;
;
;========================================================
;          Return pointer to window's title.
;========================================================
;
hGetTitle	PROC

	ldy #wTitle+2
	bra getLong
	ENDP
;
;
;========================================================
;          Return pointer to window's color table.
;========================================================
;
;  OUT:    x/a = pointer or handle of window's color table (never null).  High bit set if handle.
;
hGetColorTable	PROC
;
	ldy #wcolor+2	Fetch color table field from window record.
	lda [<w_wind],y
	tax
	dey
	dey
	lda [<w_wind],y
	bne @exit	Is the color table a pointer?
	txy
	bne @exit
;
;
; --- NIL color table, use default.
;
	ldy #defWindClr+2	Use default color table.
	lda [<globals],y
	tax
	dey
	dey
	lda [<globals],y
;
@exit	clc	No error flag.
	rts
	ENDP
;
;
;==============================================
;          Return window's data size.
;==============================================
;
hGetDataSize	PROC

	ldy #data_h+2
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = =
;          Fetch a long value from a window record.
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = =
;
;   IN:    y = offset to high word of long in window record.
;          w_wind = pointer to window record.
;
;  OUT:    x/a = long fetched from window record.
;          Carry clear, no error.
;
	ENTRY getLong
getLong		;       
;
	lda [<w_wind],y
	tax
	dey
	dey
	lda [<w_wind],y
;
	clc	No error flag.
	rts
	ENDP
;
;
;
;==============================================
;          Set new zoom RECT in window.
;==============================================
;
;   IN:    <w_wind = window to set zoom RECT in.
;          x/a = pointer to new zoom RECT.
;
hSetZoomRect	PROC
;
		;using equates
;
newZoom	equ w_work
temp1	equ newZoom+4
;
;
	sta <newZoom	Save pointer to new	zoom RECT.
	stx <newZoom+2
;
	ldy #wframe	Reset zoomed flag.
	lda [<w_wind],y
	and #_F_ZOOMED	Clear zoomed bit.
	sta [<w_wind],y
;
;
; --- Move new zoom	RECT into window record ------------------
;
	jsr hGetZoomRect	Compute address of wfull field.
	sta <temp1
	stx <temp1+2
;
	ldy #x2	Move new RECT into window record.
lop1	lda [<newZoom],y
	sta [<temp1],y
	dey
	bpl lop1
;
	brl setDefFull	Check to set default zoom RECT.
	ENDP
;
;
;==============================================
;          Change window's title.
;==============================================
;
;   IN:    <w_wind = pointer to window to	set new title.
;          x/a = pointer to new title.
;
hSetTitle	PROC
;
	phx	Save title.
	pha
;
	ldy #wtitle+2	Is there a handle there now?
	lda [<w_wind],y
	bpl @ok1
	and #$7FFF	Free the exsisting handle first.
	pha
	dey
	dey
	lda [<w_wind],y
	pha
	_DisposeHandle
;
@ok1	pla	Restore new title.
	plx
;
	ldy #wtitle	Store new title.
	sta [<w_wind],y
	iny
	iny
	txa
	sta [<w_wind],y
;
	jsr startFrameDraw
	jsr setTitleWidth	Set the width of the new title.
;
	lda #titleBarID	Find title bar control.
	jsr findCtlHand
	bcs exit	Control found?
;
	phx	Pass handle of control to DrawOneCtl/
	pha
;
	pha	Pass new value (not	used).
	phx	Pass handle of control to SetCtlValue.
	pha
	_SetCtlValue	Have control compute title's x1 position.
;
	ldy #wFrame	Is the window visible?
	lda [<w_wind],y
	and #F_VIS
	bne ok1	If not, don't draw.
	pla	Get rid of handle.
	pla
	bra exit	And don't draw.
;
ok1	_DrawOneCtl	Redraw the title bar.
;
;
; --- Draw the info also, because system disk 3.1 and before did, some apps need this ---------------
;
	lda #infoBarID	Find info bar control.
	jsr findCtlHand
	bcs exit	Control found?
	phx	Pass handle of info	bar control.
	pha
	_DrawOneCtl	Draw the info bar.
;
exit	brl endFrameDraw
	ENDP
;
;
;==============================================
;          Change window's color table.
;==============================================
;
;   IN:    <w_wind = pointer to window, zero to replace system table.
;          x/a = pointer to new color table, zero to use default color table.
;
hSetColorTable	PROC
;
	tay	Use default color table?
	bne ok1
	txy
	bne ok1
	lda #def_color	Use default color table.
	ldx #def_color>>16
;
ok1	phx	Save new color table.
	pha
;
	ldy #wColor+2	Is there a handle there now?
	lda [<w_wind],y
	bpl @ok2
	and #$7FFF	Free the exsisting handle first.
	pha
	dey
	dey
	lda [<w_wind],y
	pha
	_DisposeHandle
;
@ok2	pla	Restore new color table.
	plx
;
	ldy #wColor	Replace window's color table.
	sta [<w_wind],y
	iny
	iny
	txa
	sta [<w_wind],y
;
exit	rts
;
;
; --- Default pattern/color table for windows ------------------
;
def_color	DC.W $0000	Frame outline.
	DC.W $0F0F	Unused/Inactive Bar/Inactive Title/Title.
	DC.W $0000	Title bar.
	DC.W $F0F0	Inside grow box.
	DC.W $00F0	Inside info bar.
;
	ENDP
;
;
;==============================================
;          Change window's frame flags.
;==============================================
;
;   IN:    <w_wind = window pointer.
;          a = new frame flag.
;
hSetFrameFlag	PROC

	ldy #wframe
	sta [<w_wind],y
	rts
	ENDP
;
;
;===============================================================
;          Return pointer to window's zoom RECT field.
;===============================================================
;
;   IN:    <w_wind = window pointer.
;
;  OUT:    x/a = pointer to window's zoom RECT field.
;
hGetZoomRect	PROC

	ldx <w_wind+2
	lda <w_wind
	clc
	adc #wfull
	bcc exit
	inx
exit	rts
	ENDP
;
;
;==============================================
;          Return window's frame flags.
;==============================================
;
;   IN:    <w_wind = window pointer.
;
;  OUT:    a = window's frame flags.
;
hGetFrameFlag	PROC

	ldy #wframe
	lda [<w_wind],y
	rts
	ENDP
;
;
;==============================================
;          Return info bar RECT.
;==============================================
;
;   IN:    <w_wind = window pointer.
;          x/a = place to store RECT.
;
;  OUT:    Carry clear if there is an info bar.
;
hGetInfoRect	PROC
;
		;using equates
;
desRect	equ w_work
ctlHand	equ desRect+4
srcRect	equ ctlHand+4
;
;
	sta <desRect	Place to store info	bar RECT.
	stx <desRect+2
;
	lda #infoBarID	Pass ID of info bar	control.
	jsr findCtlHand	Get info bar control handle.
	bcs zeroDesRect	Is there an info bar control?
;
	sta <ctlHand
	stx <ctlHand+2
;
	ldy #2	Dereference control	handle.
	lda [<ctlHand],y
	tay
	lda [<ctlHand]
	clc	Compute pointer to ctlRect foeld.
	adc #ctlRect
	bcc store1
	iny
store1	sta <srcRect
	sty <srcRect+2
;
	ldy #x2
lop1	lda [<srcRect],y
	sta [<desRect],y
	dey
	dey
	bpl lop1
;
	pei <desRect+2	Pass pointer of destination RECT.
	pei <desRect
	jsr pushLineSize	Pass size of lines.
	_InsetRect	Return inside RECT of info bar.
;
	clc	There is an info bar.
	rts
;
;
; --- Zero destination RECT ----------------------------------
;
	ENTRY zeroDesRect
zeroDesRect		;       
;
	ldy #x2
	lda #0
lop2	sta [<desRect],y
	dey
	dey
	bpl lop2
	sec	No info bar.
	rts
;
	ENDP
;
;
;===========================================================
;          Setup to	draw in window's info bar.
;===========================================================
;
;   IN:    <w_wind = window pointer.
;          x/a = pointer of where to store info bar RECT.
;
hStartInfoDraw	PROC

	jsr hGetInfoRect
	bcs ok1	Is there an info bar?
;
	ldy #wframe	Is the window visible?
	lda [<w_wind],y
	and #F_VIS
	bne ok1
	brl zeroDesRect	Return zero RECT.
;
ok1		; 
;
;
; --- Clip visRgn to window's above --------------------------
;
	ENTRY clipVis
clipVis		;       
;
clipVisRgn	equ w_work
windPtr	equ clipVisRgn+4
;
	pha
	pha
	_GetWMgrPort
	pla
	sta <windPtr
	pla
	sta <windPtr+2
;
	ldy #clipRgn
	lda [<windPtr],y
	sta <clipVisRgn
	iny
	iny
	lda [<windPtr],y
	sta <clipVisRgn+2
;
	pha
	pha
	_FrontWindow
	pla
	plx
	sec
	sbc #wPort
	bcs enter1
	dex
	bra enter1
;
lop1	pei <clipVisRgn+2	Pass region.
	pei <clipVisRgn
	ldy #wStrucRgn+2	Pass window's strucRgn to subtract.
	lda [<windPtr],y
	pha
	dey
	dey
	lda [<windPtr],y
	pha
	pei <clipVisRgn+2	Pass result region.
	pei <clipVisRgn
	_DiffRgn
;
	ldy #2	Get pointer to next	window.
	lda [<windPtr],y
	tax
	lda [<windPtr]
;
enter1	sta <windPtr
	stx <windPtr+2
;
	cmp <w_wind
	bne lop1
	cpx <w_wind+2
	bne lop1
;
	brl startFrameDraw
	ENDP
;
;
;============================================================
;          Redraw interior of window's info bar.
;============================================================
;
hDrawInfo	PROC

	ldy #wFrame	Is the window visible?
	lda [<w_wind],y
	and #F_VIS
	bne ok1
	rts	If invisible, don't draw.
;
ok1	jsr clipVis	Set visRgn to clip windows above.
;
	lda #infoBarID	Pass ID of info bar	control.
	jsr findCtlHand	Find handle of info	bar control.
	bcs skip1	No info bar control?
;
	phx	Pass handle of info	bar control.
	pha
	_DrawOneCtl	Draw the info bar.
;
skip1		; 
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = =
;          Restore states after info bar draw.
;100= = = = = = = =	= = = = = = = = = =	= = = = = = = = = =
;
	ENTRY hEndInfoDraw
hEndInfoDraw		;       
;
	pea screenRect>>16	Restore Window Manager's clipRgn to full.
	pea screenRect
	_ClipRect
;
	brl endFrameDraw
;
screenRect	DC.W 0,0,200,640
;
	ENDP
;
;
;=================================================
;          Flip a window's zoom position.
;=================================================
;
;   IN:    w_wind = window to zoom (or unzoom).
;
;  OUT:    None.
;
hZoomWindow	PROC

; --- Flip Full flag -------------------------------------------------
;
	ldy #wframe	Flip full window flag.
	lda [<w_wind],y
	eor #F_ZOOMED
	sta [<w_wind],y
;
	and #F_ZOOMED	Going to zoomed?
	bne skip1
;
; --- Unzooming -------------
;
	jsr swap_origin	Replace old origin.
	bra skip2
;
; --- Zooming ---------------
;
skip1	jsr saveWOrigin	Save current, unzoomed, origin.
;
;
; --- Swap Full RECT wth current content size ------------------------
;
skip2	jsr saveWRect
;
;
; --- Reset orgin if needed -------------------------------------------
;
	lda <w_rect+x2
	sec
	sbc <w_rect+x1
	tax	Pass content width in X.
;
	lda <w_rect+y2
	sec
	sbc <w_rect+y1	Pass content height	in A.
	jsr ck_origin	Check origin and reset if needed.
;
;
; --- Now resize and position window ----------------------------------
;
	pea 0	Redraw entire content region.
	jsr pushrect	Pass pointer to new	size of content.
	ldx <w_wind+2	Pass pointer to graphPort.
	lda <w_wind
	clc
	adc #wPort
	bcc store1
	inx
store1	phx
	pha
	_ResizeWindow
;
	clc	No error flag.
	rts
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = =
;          Save window origin to its wold fields.
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = =
;
;   IN:    w_wind = pointer to window.
;
;  OUT:    woldYOrg	field = y_origin field.
;          woldXOrg	field = x_origin field.
;
	ENTRY saveWOrigin
saveWOrigin		;       
;
	ldy #y_origin	Save current, unzoomed, origin.
	lda [<w_wind],y
	ldy #woldYOrg
	sta [<w_wind],y
;
	ldy #x_origin
	lda [<w_wind],y
	ldy #woldXOrg
	sta [<w_wind],y
	rts
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = =	= = = = =
;          Save window size/position to	its wfull field.
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = =	= = = = =
;
;   IN:    <w_wind = pointer to window.
;
;  OUT:    <w_rect = window's wfull field.
;          <wfull =	window's current size.
;
	ENTRY saveWRect
saveWRect		;       
;
	ldy #wcontRgn
	jsr getRgnBounds	<w_wrect = content bounds.
;
	ldy #wfull+x2	last position = w_wrect (saved position).
	ldx #x2
lop2	lda [<w_wind],y	Put current wFull into 'w_rect'.
	sta <w_rect,x
	lda <w_wrect,x	Replace wFull with current content size.
	sta [<w_wind],y
	dey
	dey
	dex
	dex
	bpl lop2
;
	rts
;
	ENDP
;
;
;================================================
;          Set up window for drawing.
;================================================
;
;   IN:    w_wind = window pointer.
;
;  OUT:    Nothing.
;
hStartDrawing	PROC

	ldx <w_wind+2	Pass pointer to window's port.
	lda <w_wind
	clc
	adc #wPort
	bcc store1
	inx
store1	phx
	pha
	_SetPort
;
	ldy #x_origin
	lda [<w_wind],y
	tax
	dey
	dey
	lda [<w_wind],y
	jsr setTheOrigin
	clc	No error flag.
	rts
	ENDP
;
;
;==============================================
;          Called with new position.
;==============================================
;
;   IN:    <w_wind = pointer to window.
;          a = new y position.
;          x = new x position.
;
;  OUT:    a = new y position.
;          x = new x position.
;
hStartMove	PROC

	pha	Save new y.
	phx	Save new x.
;
	jsr ckZoom	Save position if zoomed.
;
	plx	Return new x.
	pla	Return new y.
	rts
	ENDP
;
;
;==================================================
;          If window is Zoomed, unzoom it.
;==================================================
;
;   IN:    w_wind = pointer to window.
;
;  OUT:    If window is currently zoomed:
;                Window's zoomed flag is cleared.
;                Save current position as next zoomed position.
;                Save current origin as	next zoomed origin.
;
ckZoom	PROC

	ldy #wframe	Is the window currently zoomed?
	lda [<w_wind],y
	and #F_ZOOMED
	beq exit	If not, exit.
;
;
; --- Mark the window as not zoomed ----------------------------------------
;
	lda [<w_wind],y	Clear zoomed flag.
	eor #F_ZOOMED
	sta [<w_wind],y
;
;
; --- Save the window's current size, position, and origin (zoomed size) ----
;
	jsr saveWRect	wfull = current content size / position.
	jsr saveWOrigin	woldYOrg, woldXOrg = y_origin, x_origin.
;
exit	rts
	ENDP
;
;
;=======================================================
;          Swap 'y_origin' and 'x_origin'
;          with 'woldYOrg' and 'woldXOrg'.
;=======================================================
;
;   IN:    w_wind = pointer to window.
;
swap_origin	PROC

	ldy #y_origin
	ldx #woldYOrg
	jsr swap_word	Swap 'y_origin' and	'woldYOrg'.
;
	iny
	iny
	inx
	inx
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = =
;          Swap 2 words in the window .
; = = = = = = = = =	= = = = = = = = = =	= = = = =
;
	ENTRY swap_word
swap_word		;       
;
;   IN:    y = offset to one word to swap.
;          x = offset to the other word	to swap.
;          w_wind = pointer to window.
;
;  OUT:    y = same	as in.
;          x = same	as in.
;
	phx	Save offset to param2.
	phy	Save offset to param1.
;
	lda [<w_wind],y	Get param1,
	pha	and save it.
	txy	Get offset to param2.
	lda [<w_wind],y	Get param2,
	tax	and save in X.
	pla	Retrieve param1,
	sta [<w_wind],y	and store it where param2 was.
	ply	Retrieve offset to param1.
	txa	Retrieve param2,
	sta [<w_wind],y	and store it where param1 was.
	plx	Retrieve offset to param2.
	rts
	ENDP
;
;
;=====================================================
;          Adjust origin if new size to
;          larger than data area.
;=====================================================
;
;   IN:    w_param = pointer to new height, width.
;
;  OUT:    y_origin	reset if needed.
;          x_origin	reset if needed.
;
hNewSize	PROC

	sta <w_work	Save pointer to new	height / width.
	stx <w_work+2
;
	ldy #2	Pass new height / width.
	lda [<w_work],y
	tax	Pass new width in X.
	lda [<w_work]	Pass new height in A.
;
	ldy #wMaxHeight	New height cannot be greater than max.
	cmp [<w_wind],y
	bcc ok1
	lda [<w_wind],y	Use max height.
ok1	pha	Save new height.
;
	ldy #wMaxWidth
	txa
	cmp [<w_wind],y
	bcc ok2
	lda [<w_wind],y
;
ok2	ldy #2	Store new width.
	sta [<w_work],y
	tax	Pass width in x.
;
	pla	Get new height.
	sta [<w_work]	Store new height.
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = =
;          Adjust origin if new size to
;          larger than data area.
;100= = = = = = = =	= = = = = = = = = =	= = = = = = =
;
;   IN:    a = new content height.
;          x = new content width.
;
;  OUT:    a = FALSE if origin reset, TRUE if not moved.
;          y_origin	reset if needed.
;          x_origin	reset if needed.
;
	ENTRY ck_origin
ck_origin		;       
;
newHeight	equ w_work
newWidth	equ newHeight+2
w_uncovered	equ newWidth+2
;
;
	sta <newHeight	Save new content height.
	stx <newWidth	Save new content width.
;
	stz <w_uncovered	Default to draw only what's uncovered.
	inc <w_uncovered
;
;
; --- Does window want its origin moved? --------------------------------
;
	ldy #wframe
	lda [<w_wind],y
	and #F_FLEX
	beq fixOrigin
;
;
; ------ If not, the window's data size must be set -----------------
;
	ldy #y_origin
	lda [<w_wind],y	y_origin plus,
	clc
	adc <newHeight	content height,
	ldy #data_h	equals total data height exposed.
	cmp [<w_wind],y	Is the new height greater than the old?
	bcc skip100
	sta [<w_wind],y	If yes, set the height to the greater.
;
skip100	ldy #x_origin
	lda [<w_wind],y	x_origin plus,
	clc
	adc <newWidth	content width,
	ldy #worgn_mask
	and [<w_wind],y
	ldy #data_w	equals width of data exposed.
	cmp [<w_wind],y	Is the new width greater than the old?
	bcc exit100
	sta [<w_wind],y	If yes, set the width to the greater.
	bra exit100
;
;
; --- Check Y origin -----------------------------------
;
fixOrigin	ldy #y_origin
	lda [<w_wind],y	y_origin plus,
	clc
	adc <newHeight	content height,
	ldy #data_h	equals total data height exposed.
	cmp [<w_wind],y	Is it greater than the data height?
	bcc ok100
	beq ok100
;
;
; ------ Reset Y origin -------------------------------
;
	lda [<w_wind],y
	sec
	sbc <newHeight
	bcs ok101
	lda #0	Minimum.
ok101	ldy #y_origin
	sta [<w_wind],y
;
	stz <w_uncovered	Set flag to redraw entire content region.
;
;
; --- Check X origin -----------------------------------
;
ok100	ldy #x_origin
	lda [<w_wind],y	x_origin plus,
	clc
	adc <newWidth	content width,
	ldy #worgn_mask
	and [<w_wind],y
	ldy #data_w	equals width of data exposed.
	cmp [<w_wind],y	Is it greater than the data width?
	bcc exit100
	beq exit100
;
;
; ------ Reset x_orgin ----------------------------------
;
	lda [<w_wind],y
	sec
	sbc <newWidth
	bcs ok102
	lda #0	Minimum.
;
ok102	ldy #worgn_mask	Force X origin to desired boundary.
	and [<w_wind],y
;
	ldy #x_origin
	sta [<w_wind],y
;
	stz <w_uncovered	Set flag to redraw entire content region.
;
exit100	lda <w_uncovered	Return content draw	flag.
	clc	No error flag.
	rts
	ENDP
;
;
;============================================
;          Handle TaskMaster task.
;============================================
;
;   IN:    x/a = pointer to task record.
;          <w_param =	pointer to:
;	          WORD - request code.
;	          WORD - defProc ID.
;	          LONG - task record pointer.
;	          WORD - result from FindWindow.
;          <w_wind = pointer to window's record.
;          <taskRec+taskData = pointer to window's port.
;
;  OUT:    a = zero	if task handled, else result from FindWindow.
;          x = task	action.
;
hTask	PROC
;
		;using equates
;
taskRec	equ w_work
foundCtl	equ taskRec+4
;
;
	sta <taskRec
	stx <taskRec+2
;
;
; --- Dispatch to the specific task handler --------------------------
;
	ldy #newParam+4	Get result from FindWindow.
	lda [<w_param],y
	sec
	sbc #$13
	bcc cant
	cmp #9
	bcc ok
cant	lda #6	Force call to cantHandle.
ok	asl a
	tax
	jmp (taskDoers,x)
;
taskDoers	DC.W content	$13  0
	DC.W drag	$14  1
	DC.W grow	$15  2
	DC.W goAway	$16  3
	DC.W zoom	$17  4
	DC.W infoBar	$18  5
	DC.W cantHandle	$19  6
	DC.W cantHandle	$1A  7
	DC.W frame	$1B  8
;
;
; = = = = = = = = =	= = = = = = = = = =	=
;          wInInfo
;100= = = = = = = =	= = = = = = = = = =	=
;
infoBar	ldy #taskMask	Check if window should be made top.
	lda [<taskRec],y
	and #TM_INFO
	beq ok100
	ldx #0	No action taken.
	lda #wInInfo	Return in info flag.
	rts
;
ok100	jsr check_top	Check if window is active,
	bcc cantHandle	if the window has to be made active
;	                  it means the event is	handled.
;
	ldx #wInInfo	Return action taken.
	lda #0	Task handled.
	rts
;
;
; = = = = = = = = =	= = = = = = = = = =	=
;          TaskMaster can't handle
;          this task (must not be a Master).
;110= = = = = = = =	= = = = = = = = = =	=
;
cantHandle	ldy #newParam+4	Return the code passed to me, back.
	lda [<w_param],y
	ldx #0	No action.
	rts
;
;
; = = = = = = = = =	= = = = = = = = = =	=
;          Drag Window.
;120= = = = = = = =	= = = = = = = = = =	=
;
;
; ------ Check if window should be brought to the top --------------
;
drag	ldy #taskMask	Check if window should be made top.
	lda [<taskRec],y
	and #TM_DRAGW
	bne ok120
	ldx #0	No action taken.
	lda #wInDrag	Return in drag flag.
	rts
;
ok120	ldy #wFrame	Check if window can	be moved.
	lda [<w_wind],y
	and #F_MOVE
	beq exit120
;
	jsr startToGlobal	Convert starting point to global.
;
	ldx #0	Default grid, don't bring window to top.
;
	ldy #modif	Read modifier keys state from event.
	lda [<taskRec],y
	and #K_COMMAND	Is the command key down?
	bne skip120
;
	ldx #$8000	Default grid, bring	window to front.
;
;
; ------ Now drag the window in its current plane ---------------------
;
skip120	phx	Pass drag flag.
	jsr pushStartPos	Pass starting point.
	pea 8	Grace buffer.
	pea 0	Use default bounds RECT.
	pea 0
	jsr pushWgraphPort	Pass pointer to window's graphPort.
	_DragWindow
;
exit120	ldx #wInDrag	Window was dragged action message.
	lda #0	Task handled.
	rts
;
;
; = = = = = = = = =	= = = = = = = = = =	=
;          wInContent
;130= = = = = = = =	= = = = = = = = = =	=
;
content	ldy #taskMask	Check if window should be made top.
	lda [<taskRec],y
	and #TM_CONTENT
	beq exit130
;
	jsr check_top
	bcc cantHandle	Did the window have	to be selected?
;	                  	If not, return wInContent message.
;
	ldy #wframe	Does the window wish to reuse the button?
	lda [<w_wind],y
	and #F_QCONTENT
	bne cantHandle	Reuse the button down.
;
exit130	ldx #wInContent	Button in content brought window to top.
	lda #0	Task handled.
	rts
;
;
; = = = = = = = = =	= = = = = = = = = =	=
;          wInGoAway
;140= = = = = = = =	= = = = = = = = = =	=
;
goAway	jsr startToGlobal	Convert starting point to global.
;
	pha	Return space.
	jsr pushStartPos	Pass starting point.
	jsr pushWgraphPort	Pass pointer to window's graphPort.
	_TrackGoAway
	pla	Was the user inside	the close box?
	bne exit140	-yes.
;
	ldx #wInGoAway	User clicked in close box, but it was
	lda #0	Task handled.
	rts
;
exit140	ldx #0	No action.
	lda #wInGoAway	Close window.
	rts
;
;
; = = = = = = = = =	= = = = = = = = = =	=
;          wInZoom
;150= = = = = = = =	= = = = = = = = = =	=
;
zoom	jsr startToGlobal	Convert starting point to global.
;
	pha	Return space.
	jsr pushStartPos	Pass starting point.
	jsr pushWgraphPort	Pass pointer to window's graphPort.
	_TrackZoom
	ldx #wTrackZoom	Tell caller that the zoom box was tracked,
	pla	but not selected, just in case.
	beq exitZoom	Did the user select	the zoom box?
;
;
; ---------- Zoom window ------------------------------------------
;
	jsr pushWgraphPort	Save pointer to window's graphPort.
	_ZoomWindow	(Window pointer already on stack.)
;
	ldx #wInZoom	Window was zoomed.
exitZoom	lda #0	Task handled.
	rts
;
;
; = = = = = = = = =	= = = = = = = = = =	=
;          wInGrow
;160= = = = = = = =	= = = = = = = = = =	=
;
grow	jsr check_top	Check if window is top most.
	bcc ok160	If not, made top, and done.
;
	lda #0	Task handled.
	tax	No action.
	rts
;
ok160	jsr startToGlobal	Convert starting point to global.
;
	pha	Space for result.
	pha
	pea 100	Minimum width allowed.
	pea 40	Minimum height allowed.
	jsr pushStartPos	Pass starting point.
	jsr pushWgraphPort	Pass pointer to window's graphPort.
	_GrowWindow
;	                  Pass new height/width	from GrowWindow.
	jsr pushWgraphPort	Save pointer to window's graphPort.
	_SizeWindow	(Window pointer already on stack.)
;
	ldx #wInGrow	Window resized.
	lda #0	Task handled.
	rts
;
;
; = = = = = = = = =	= = = = = = = = = =	=
;          wInFrame
;170= = = = = = = =	= = = = = = = = = =	=
;
frame	jsr check_top	Check if window is top most.
	bcs exit171	If not, made top and task handled.
;
;
; --- Check for hit	on frame control -------------------------
;
	jsr startFrameDraw
;
	jsr startToGlobal	Convert starting point to global.
;
	pha	Space for result.
	lda #foundCtl	Pass place to store	handle of control.
	jsr pushDpage
	jsr pushStartPos	Pass starting point.
	pha	Pass pointer to window.
	pha
	_GetPort	Current port is port to check.
	_FindControl
	pla	Control found?
	beq exit170
;
	pha	Space for result.
	pha
	pei <foundCtl+2	Pass handle of found control.
	pei <foundCtl
	_GetCtlRefCon
	pla
	pla	Get control's ID.
	cmp #HScrollID	Is the control a scroll bar?
	beq ok170
	cmp #VScrollID
	beq ok170
;
exit170	jsr endFrameDraw
;
exit171	ldx #wHitFrame	Tell caller user clicked in window frame.
	lda #0	Task handled.
	rts
;
;
; --- Track the control --------------------------------------
;
ok170	pha	Space for result.
	jsr pushStartPos	Pass starting point.
	pea TaskScroll>>16	Pass action procedure address.
	pea TaskScroll	w_wind = window pointer for TrackScroll.
	pei <foundCtl+2	Pass handle of control to track.
	pei <foundCtl
	_TrackControl
	pla	Result not used.
;
	jsr endFrameDraw
;
	ldx #wInFrame	Scroll bar may have	changed.
	lda #0	Task handled.
	rts
;
;
; = = = = = = = = =	= = = = = = = = = =	= = =
;          Check if	window is top.
;190= = = = = = = =	= = = = = = = = = =	= = =
;
;   IN:    w_wind = pointer to window's record.
;
;  OUT:    Carry clear of window already on top.
;          Carry set if window made top.
;
check_top		; 
;
	pha	Space for result.
	pha
	_FrontWindow
	pla	Get pointer to top graphPort.
	plx
;
	ldy #taskData	Compare top to this	window.
	cmp [<taskRec],y
	bne totop
	txa
	iny
	iny
	cmp [<taskRec],y
	bne totop
	clc	Window is on top flag.
	rts
;
totop	jsr pushWgraphPort	Pass pointer to window's graphPort.
	_SelectWindow	Bring the window to	the top.
;
	sec	Window made top window.
	rts
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = =
;          Push long value from task record.
;200= = = = = = = =	= = = = = = = = = =	= = = = = = = = =
;
;   IN:    <taskRec	= pointer to task record.
;
;  OUT:    Pointer to window graphPort on stack.
;
pushWgraphPort		; 
;
	ldy #taskData+2
	bra pushTaskField
;
pushStartPos		; 
;
	ldy #where+x1
;
pushTaskField		; 
;
	plx
;
	lda [<taskRec],y
	pha
	dey
	dey
	lda [<taskRec],y
	pha
;
	phx
	rts
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = =
;          Convert starting point to global.
;210= = = = = = = =	= = = = = = = = = =	= = = = = = = = =
;
startToGlobal		; 
;
	lda #taskRec+where	Pass pointer to starting point.
	jsr pushDpage
	_LocalToGlobal
	rts
;
	ENDP
;
;
;========================================
;          Setup to	draw frame.
;========================================
;
;   IN:    <w_wind = pointer to window record of window to draw.
;
startFrameDraw	PROC

	pei <w_wind+2	Pass window record pointer.
	pei <w_wind
	_StartFrameDrawing
;
	rts
	ENDP
;
;
;===========================================
;          Undo setup to draw frame.
;===========================================
;
;   IN:    startFrameDraw must have been called.
;
endFrameDraw	PROC
;
	_EndFrameDrawing
	rts
	ENDP
;
;
;///////////////////////////////////////////////////
;          Action routine for scrolling
;          from scroll bars in window frame.
;///////////////////////////////////////////////////
;
;   IN:    PUSH:WORD - part code.
;          PUSH:LONG - handle of control.
;
;          Direct page is same as defProc's.
;                <w_wind = pointer to window this scroll bar controls.
;
TaskScroll	PROC
;
		;using equates
;
return	equ 1
control	equ return+3
part	equ control+4
;
ctlPtr	equ w_work
sAmount	equ ctlPtr+4
pAmount	equ sAmount+2
horDelta	equ pAmount+2
verDelta	equ horDelta+2
;
;
	lda control+2,s
	tax
	lda control,s
	jsr getcontrol2	Get control pointer.
;
	ldx #vscroll
	ldy #CtlFlag
	lda [<ctlPtr],y
	and #DIR_SCROLL	Vertical or horizontal?
	beq ok1
	ldx #hscroll
ok1	txy
	lda [<w_wind],y
	sta <sAmount	Scroll amount.
	iny
	iny
	iny
	iny
	lda [<w_wind],y
	bne store1	Use default page value?
;
	ldx #CtlRect+y2
	ldy #CtlFlag
	lda [<ctlPtr],y
	and #DIR_SCROLL	Vertical or horizontal?
	beq ok4
	inx
	inx
ok4	txy
	lda [<ctlPtr],y	y2 or x2.
	dey
	dey
	dey
	dey
	sec
	sbc [<ctlPtr],y	y1 or x1.
	sbc #10
;          
store1	sta <pAmount	Page amount.
;
;
	lda part,s
	and #$7F
	bne ok5
	brl exit
ok5	asl a
	tax
	ldy #CtlValue	Common need.
	jmp (part_act-2,x)
;
part_act	DC.W act_thumb	1
	DC.W act_butt	2 Just exit.
	DC.W act_check	3 Just exit.
	DC.W act_radio	4 Just exit.
	DC.W act_up	5
	DC.W act_down	6
	DC.W act_pup	7
	DC.W act_pdown	8
;
;
;----------------------------------
;          Track thumb.
;----------------------------------
;
act_thumb	lda [<ctlPtr],y	Get new value (was set by Control Manager),
	tax		(Save the actual new value.)
	pha	and put on stack like everyone else.
;
	ldy #CtlrefCon	Now get last value,
	lda [<ctlPtr],y	and make current value,
	ldy #ctlValue	so code can compute change (delta) in position for scroll.
	sta [<ctlPtr],y
	ldy #ctlRefCon	Save actual new value.
	txa
	sta [<ctlPtr],y
	bra new_value	Now go do scroll.
;
;
;------------------------------------------
;          Track up/left arrow.
;------------------------------------------
;
act_up	lda [<ctlPtr],y
	sec
	sbc <sAmount
	bra enter1
;
;
;------------------------------------------
;          Track down/right arrow.
;------------------------------------------
;
act_down	lda <sAmount
	bra add_value
;
;
;------------------------------------------
;          Track up/left page.
;------------------------------------------
;
act_pup	lda [<ctlPtr],y
	sec
	sbc <pAmount
enter1	pha	Pass new value to SetCtlValue.
	bcs new_value
	lda #0
	bra reset
;
;
;------------------------------------------
;          Track down/right page.
;------------------------------------------
;
act_pdown	lda <pAmount
;
;
add_value	clc
	adc [<ctlPtr],y	Add to current value.
	pha	Pass new value to SetCtlValue.
;
	ldy #CtlData+2	Maximum value allowed is,
	lda [<ctlPtr],y	data size,
	dey
	dey
	sec
	sbc [<ctlPtr],y	less view size.
	cmp 1,s
	bcs new_value	Is max greater than	new value?
;
reset	sta 1,s	If not, set to max.
;
;
; ------ Compute the RECT to scroll and	switch to window's port --------
;
new_value
	ldy #ctlFlag	Is this the horizontal scroll bar.
	lda [<ctlPtr],y
	and #DIR_SCROLL
	beq @skip1
	ldy #worgn_mask	Mask position of horizontal scroll bar.
	pla
	and [<w_wind],y
	pha
@skip1
;
	ldy #CtlValue
	lda [<ctlPtr],y	Old value,
	sec
	sbc 1,s	less new value
	tax	is change.
	ldy #CtlFlag
	lda [<ctlPtr],y
	ldy #0	Y = zero cause it's the other delta and only one can change.
	and #DIR_SCROLL	Vertical or horizontal?
	beq ok3
	tya
	txy
	tax
ok3	sty <horDelta	Horizontal change.
	stx <verDelta	Vertical change.
;
	ldy #y_origin	Current y origin,
	lda [<w_wind],y
	sec
	sbc <verDelta	less y delta,
	pha	equals new y origin.
;
	ldy #x_origin	Current x origin,
	lda [<w_wind],y
	sec
	sbc <horDelta	less x delta.
	bpl @ok
	lda #0	New X can't be negative. Sometimes the x origin of the
;		window doesn't match the scroll bar value.
@ok	tax	Pass new X origin.
	pla	Pass new Y origin.
	jsr new_origin
;
;
; --- Set scroll bar to new value ----------------------------
;
	jsr getcontrol	Dereference control's handle.
;
	ldy #CtlRefCon	Save new position as old position.
	lda [<ctlPtr],y		Save old in case of thumb.
	tax
	lda 1,s
	sta [<ctlPtr],y
;
;
; ------ Special case when thumb dragged.
;
	lda part+1,s	If page or arrows then ready to set new position.
	bpl @ok1
;
	txa	Actual value into A.
	ldy #ctlValue
	sta [<ctlPtr],y	Set new value, position of thumb already correct.
;
@ok1
;		New value already on stack.
	lda control+4,s	Pass handle of control.
	pha
	lda control+4,s
	pha
	_SetCtlValue
;
;
;
act_butt		; 
act_check		; 
act_radio		; 
;
EXIT	lda 0,s
	sta 6,s
	lda 2,s
	sta 8,s
	pla
	pla
	pla
	rtl
;
;
;
getcontrol	lda control+6,s
	tax
	lda control+4,s
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = =
;          Convert handle into pointer.
; = = = = = = = = =	= = = = = = = = = =	= = = = =
;
;   IN:    x/a = handle.
;
;  OUT:    <ctlPtr = pointer (handle dereferenced).
;
getcontrol2		; 
;
	sta <ctlPtr
	stx <ctlPtr+2
;
	ldy #2
	lda [<ctlPtr],y
	tay
	lda [<ctlPtr]
	sta <ctlPtr
	sty <ctlPtr+2
	rts
;
	ENDP
;
;
;            APPEND	ALERTDEF.ASM
	TITLE 'Apple IIGS Window Manager                   ALERTDEF.ASM'
;
;          Copyright Apple Computer, Inc. 1986-1987
;          All rights reserved
;          Written by Dan Oliver
;
;        This module contains the window definition procedure
;        of a standard alert window.
;
;
;====================================================
;        Alert window definition procedure.
;====================================================
;
;   IN:    PUSH:LONG - space for result.
;          PUSH:LONG - pointer to Window Manager globals.
;          PUSH:WORD - operation to perform.
;          PUSH:LONG - pointer to window's port.
;          PUSH:LONG - addtional parameter defined by operation.
;          JSL to defProc.
;
;          For this	defProc the direct page is the Window Manager's.
;
	EXPORT alertDefProc
alertDefProc	PROC
;
;
; --- Set up for defProc call --------------------------------
;
	jsr startup
;
;
; --- Dispatch to operation handler --------------------------
;
	lda <operation
	cmp #11
	bcs skip2
	asl a
	tax
	jsr (taskTable,x)
	sta <result
	stx <result+2
	bcs skip1
skip2	ldy #0	No error code.
;
;
; --- Return to caller ---------------------------------------
;
skip1	brl shutdown
;
;
taskTable	DC.W alertDraw	0 Draw window frame.
	DC.W alertHit	1 Hit test window.
	DC.W alertRgns	2 Compute struc and	content regions.
	DC.W alertInit	3 Additional initailization.
	DC.W docDispose	4 Additional diaposal.
	DC.W alertDrag	5 Return address of	draw frame routine.
	DC.W alertGrow	6 Draw grow window outline.
	DC.W docRecSize	7 Return window record size.
	DC.W docPosition	8 Return position and size of window.
	DC.W docBehind	9 Return where window goes in list.
	DC.W docCallDefProc	10Generic call to defProc.
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = =
; 0        Draw alert window's frame.
;100= = = = = = = =	= = = = = = = = = =	= = = = =
;
;   IN:    w_wind = window to draw.
;          w_wrect = coordinates of entire window in local coordinates.
;          justInfo	= TRUE to only draw	the info bar.
;
;  OUT:    x/a = result.
;
alertDraw		; 
;
frame	equ w_work	Window's frame type.
highlight	equ frame+2	TRUE if this window	is on top.
;
;
	ldy #wFrame
	lda [<w_wind],y
	sta <frame	For easy access.
	and #F_HILITED	Get highlight bit.
	sta <highlight	Set flag.
;
	jsr setcolorptr	Set pointer to window's color table.
;
;
; --- Set frame outline pattern/color --------------------
;
	ldy #FRAME_CLR
	jsr setoutline	Set pen color and pattern.
;
	jsr getLocalRect	<w_rect & <w_wrect = frame RECT in local.
;
;
; --- Draw an alert	frame -----------------------------------
;
; ------ Draw outside frame ----------------------------------
;
	jsr pushrect	For InsetRect call.
;
	jsr getLineSize
	inc a	Width = 2 in 320, 3	in 640.
	pha
	ldy #screenMode	640 mode?
	lda [<globals],y
	beq ok100
	pla	Width = 2 in 640.
	dec a
	pha
;
ok100	pla
;
	pha	For InsetRect call.
	phx
;
	pha
	phx
	_SetPenSize
;
	jsr framerect	Draw outline around	the window.
;
	_InsetRect
;
;
; ------ Draw middle frame ---------------------------------------------
;
	ldy #GROW_CLR+1
	jsr setoutline	Set pen color and pattern.
;
	jsr pushrect	For InsetRect call.
;
	jsr getLineSize
	asl a
	inc a	Width = 3 in 320, 5	in 640.
	inx	Line height.
;
	pha	For InsetRect call.
	phx
;
	pha
	phx
	_SetPenSize
;
	jsr framerect	Draw outline around	the window.
;
	_InsetRect
;
;
; ------ Draw inside frame ---------------------------------------------
;
	ldy #INFOR_CLR+1
	jsr setoutline	Set pen color and pattern.
;
	jsr framerect	Draw outline around	the window.
;
	jsr unlockColor	Leave color table unlocked.
	clc	No error.
	rts
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = =
; 1        Test hit	on a standard documnet window.
;200= = = = = = = =	= = = = = = = = = =	= = = = = = = = = =
;
;   IN:    <w_param =	y point to check.
;          <w_param+2	= x point to check.
;
;  OUT:    a = part	point is zero if no	point found,
;              else	a = wInContent
;	    wInDrag
;	    wInGrow
;	    wInGoAway
;	    wInZoom
;	    wInInfo
;	    wInVScroll
;	    wInHScroll
;	    wInFrame
;  OUT:    x/a = result.
;
;
alertHit		; 
;
savframe	equ w_work+4
;
;
	pha	Space for returned value.
	lda #w_param	Pass pointer to point to check.
	jsr pushDpage
	ldy #wcontRgn+2
	jsr pushWindLong	Pass handle of region to check.
	_PtInRgn
	pla	Get result.
	beq not_content
;
	lda #wInContent	On content.
	clc	No error.
	rts
;
;
not_content		; 
;
	ldy #wframe	Is there a title bar?
	lda [<w_wind],y
	and #F_MOVE
	bne ok_move
;
	lda #wInFrame	On window frame, but no region.
	clc	No error.
	rts
;
ok_move	lda #wInDrag	On title bar.
	clc	No error.
	rts
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = =
; 3        Perform additional initialization.
;400= = = = = = = =	= = = = = = = = = =	= = = = = = = =
;
;   IN:    w_wrect = content area in global coordinates.
;          w_param = pointer to parameter	list.
;          w_wind = window pointer.
;
;  OUT:    x/a = result.
;
alertInit		; 
;
;
;
; --- Make sure parameter list is the proper size ------------
;
	lda [<w_param]	Check length paramter.
	cmp #p_size	Proper size?
	beq ok400
;
	ldy #$0E01	Bad parameter list length error.
	sec	Error flag.
	rts
;
ok400		; 
;
;
; --- Transferr data from parameter list to window record ----
;
	ldy #wframe	Place in record to put parameter list.
	ldx #p_wframe
lop2	phy
	txy
	lda [<w_param],y
	ply
	ora [<w_wind],y	OR to not disturb wFrame bits already set.
	sta [<w_wind],y
	iny
	iny
	inx
	inx
	cpx #p_updateDraw
	bne lop2
;
	ldy #p_wRefCon	Set the wRefCon field.
	ldx #wRefCon+2
	jsr setWindField
;
	ldy #p_updateDraw	Set the wContDraw field.
	ldx #wContDraw+2
	jsr setWindField
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = =	= = =
; 2        Initialize window's StructRgn and ContentRgn.
;300= = = = = = = =	= = = = = = = = = =	= = = = = = = = = =	= = =
;
;   IN:    <w_wind = window pointer.
;          <globals	= pointer to Window	Manager's global data area.
;
;  OUT:    <w_wrect =	trashed.
;
alertRgns	jsr getGlobalRect	w_wrect = port bounds.
;
;
; --- Compute content region ---------------------------------
;
	ldy #wcontRgn+2	Pass handle of content region.
	jsr pushWindLong
	jsr pushwrect
	_RectRgn
;
;
; --- Compute size of frame by expanding the content area ----
;
	jsr pushwrect	Common need.
;
	ldx #-8	Width of vertical frame in 320 mode.
	ldy #screenMode
	lda [<globals],y
	beq store300
	ldx #-12
store300	phx
	pea $FFFB	Horizontal frame height.
	_InsetRect
;
	ldy #wstrucRgn+2	Pass handle of StructRgn.
	jsr pushWindLong
	jsr pushwrect	Set to global RECT in 'w_wrect'.
	_RectRgn
;
	clc	No error.
	rts
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = =	= = = = = =
; 5        Return address of routine to	draw window outline.
;510= = = = = = = =	= = = = = = = = = =	= = = = = = = = = =	= = = = = =
;
;  OUT:    x/a = result, zero for default outline.
;
alertDrag		; 
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = =
; 6        Draw grow window outline.
;600= = = = = = = =	= = = = = = = = = =	= = = = =
;
;  OUT:    x/a = result.
;
alertGrow		; 
;
	lda #0	Perform default action.
	tax
	clc	No error.
	rts
;
	ENDP
;
;
;            APPEND	DEFUTIL.ASM
	TITLE 'Apple IIGS Window Manager                   DEFUTIL.ASM'
;
;          Copyright Apple Computer, Inc. 1986-1987
;          All rights reserved
;          Written by Dan Oliver
;
;        This module contains routines common to standard window defProcs.
;
;
;=====================================
;        Get a region's bounds.
;=====================================
;
;   IN:    <w_wind = window record that contain region handle.
;          y = index into window for region handle.
;
;  OUT:    <w_wrect =	bounds of region.
;
getRgnBounds	PROC
;
		;using equates
;
	lda [<w_wind],y	Get handle from window record.
	tax
	iny
	iny
	lda [<w_wind],y
	bra enter1
;
;
; = = = = = = = = =	= = = = = = = = = =	= =
;          Get bounds of desktop.
;100= = = = = = = =	= = = = = = = = = =	= =
;
	ENTRY getDeskBounds
getDeskBounds		;       
;
	pha	Space for result.
	pha
	pea 2	Pass 'get desktop region' command.
	pha	Pass parameter (not	used).
	pha
	_Desktop
	plx	Get handle of desktop region.
	pla
;
enter1	pei <w_work+2	Save.
	pei <w_work
;
	stx <w_work
	sta <w_work+2
;
	ldy #2
	lda [<w_work],y
	tay
	lda [<w_work]
	clc
	adc #Rgn_Bounds	I'm after the region's bounds.
	bcc store1
	iny
store1	sta <w_work
	sty <w_work+2	That's the pointer to bounds.
;
	ldy #x2	Put bounds into 'w_wrect'.
lop1	tyx
	lda [<w_work],y
	sta <w_wrect,x
	dey
	dey
	bpl lop1
;
	pla	Restore.
	sta <w_work
	pla
	sta <w_work+2
;
	rts
	ENDP
;
;
;===================================================
;        Push address of direct page location.
;===================================================
;
pushwrect	PROC

	lda #w_wrect
	bra ok1
;
	ENTRY pushParam
pushParam		;       
	lda #w_param
	bra ok1
;
	ENTRY pushrect
pushrect		;       
	lda #w_rect
ok1	brl pushDpage
	ENDP
;
;
;==============================================
;        Push a long from window record.
;==============================================
;
;   IN:    y = offset into window record.
;          <w_wind = pointer to window record.
;
pushWindLong	PROC
;
		;using equates
;
	plx	Get return address.
;
	lda [<w_wind],y	Put long on stack.
	pha
	dey
	dey
	lda [<w_wind],y
	pha
;
	phx	Put return address back on stack.
	rts
	ENDP
;
;
;========================================
;        Move 'w_wrect' into 'w_rect'
;========================================
;
;   IN:    <w_wrect = RECT to clone.
;
;  OUT:    <w_rect = clone of <w_wrect.
;
cloneRect	PROC
;
		;using equates
;
	ldx #x2
lop	lda <w_wrect,x
	sta <w_rect,x
	dex
	dex
	bpl lop
	rts
	ENDP
;
;
;====================================================
;          Set window's color table pointer.
;====================================================
;
;   IN:    w_wind = pointer to window.
;
;  OUT:    <windColors = pointer to color table.
;
setcolorptr	PROC
;
	ldy #wcolor	Fetch color table field from window record.
	lda [<w_wind],y
	tax
	iny
	iny
	lda [<w_wind],y
	bmi @handle	Is the color table a handle?
	bne @store1	Is the color table a pointer?
	txy
	bne @store1
;
;
; --- NIL color table, use default.
;
	ldy #defWindClr	Use default color table.
	lda [<globals],y
	tax
	iny
	iny
	lda [<globals],y
	bpl @store1	Is default a pointer?
;
;
; --- Handle for color table.
;
@handle	stx <windColors	Store handle.
	sta <windColors+2
;
	ldy #4	Lock the color table.
	lda [<windColors],y
	ora #$8000
	sta [<windColors],y
	dey	Dereference the color table.
	dey
	lda [<windColors],y
	pha
	lda [<windColors]
	tax
	pla
;
@store1	stx <windColors
	sta <windColors+2
	rts
	ENDP
;
;
;====================================================
;          Unlock window's color table.
;====================================================
;
;   IN:    <w_wind = pointer to window.
;
;  OUT:    Color table unlocked if it is a handle.  This includes the default table.
;
unlockColor	PROC
;
	ldy #wcolor	Fetch color table field from window record.
	lda [<w_wind],y
	tax
	iny
	iny
	lda [<w_wind],y
	bmi @handle	Is the color table a handle?
	bne @exit	Is the color table a pointer?
	txy
	bne @exit	If a pointer, nothing to unclock.
;
;
; --- NIL color table, unlock default.
;
	ldy #defWindClr	Use default color table.
	lda [<globals],y
	tax
	iny
	iny
	lda [<globals],y
	bpl @exit	Is default a pointer?  If yes, nothing to unlock.
;
;
; --- Handle for color table.
;
@handle	pei <w_work+2	Save.
	pei <w_work
;
*****	sta <w_work	Store handle.	***** This is how it is in ROM 3.  --DAL 14-Nov-90
*****	stx <w_work+2		***** The two words are interchanged.
	sta <w_work+2	;fixed 14-Nov-90 DAL
	stx <w_work	;fixed 14-Nov-90 DAL
;
	ldy #4	Unlock the color table.
	lda [<w_work],y
	and #$7FFF
	sta [<w_work],y
;
	pla	Restore.
	sta <w_work
	pla
	sta <w_work+2
;
@exit	rts
	ENDP
;
;
;================================================
;        Set pen to	a pattern and color.
;================================================
;
;   IN:    y = offset into color table to get pattern/color.
;          <w_wind = pointer to window.
;          <windColors = pointer to color table.
;
	EXPORT setoutline
setoutline	PROC

	lda [<windColors],y
	and #$00F0	Solid color for line only.
	asl a
	clc
***	adc #colorBlack	Compute address of solid color.
	export SelfMod2Low
SelfMod2Low	adc #$7777	;27-Sep-90 DAL

***	pea colorBlack>>16	Pass pointer to pattern.
	export SelfMod2High
SelfMod2High	pea $7777	;27-Sep-90 DAL
	pha
	_SetPenPat	Set Pen Pattern.
	rts
	ENDP


;==================================
;          Frame a RECT.
;==================================
;
;  IN:     <w_rect = RECT to draw and frame.
;          Pen set to pattern.
;
framerect	PROC
;
	jsr pushrect	Pass address of 'w_rect'.
	_FrameRect
	rts
	ENDP
;
;
;=================================================
;          Push pointer to current port.
;=================================================
;
;   IN:    Nothing.
;
;  OUT:    PUSH:LONG - pointer to current port.
;
pushPort	PROC
;
	pha	Space for result.
	pha
	_GetPort	Get current port.
	pla
	plx
;
	ply	Get return address.
;
	phx	Push current port.
	pha
;
	phy	Put return address back.
	rts
	ENDP
;
;
;================================
;          Push line size.
;================================
;
;   IN:    <globals	= pointer to Window	Manager's global data area.
;
;  OUT:    PUSH:WORD - width of lines.
;          PUSH:WORD - height of lines.
;
pushLineSize	PROC

	jsr getLineSize	a = width, x = height.
;
	ply	Get return address.
;
	pha	Push width.
	phx	Push height.
;
	phy	Put return address back.
	rts
	ENDP
;
;
;===================================
;          Get size	of lines.
;===================================
;
;   IN:    <globals	= pointer to Window	Manager's global data area.
;
;  OUT:    a = width of lines.
;          x = height of lines.
;
getLineSize	PROC

	ldy #lineW
	lda [<globals],y	Return width in a.
	ldx #1	Return height in x.
	rts
	ENDP
;
;
;====================================================
;          Get bounds of window's strucRgn.
;====================================================
;
;   IN:    <w_wind = pointer to window.
;
;  OUT:    <w_wrect =	bounds of window's strucRgn in local.
;          <w_rect = bounds of window's strucRgn in local.
;          <w_work = trash.
;
getLocalRect	PROC

	ldy #wStrucRgn	Fetch window's strucRgn handle.
	jsr getRgnBounds	<w_wrect = bounds of strucRgn in global.
	jsr cloneRect	<w_rect = <w_wrect.
;
;
; = = = = = = = = =	= = = = = = = = = =	= =
;          Convert <w_wrect to local.
;100= = = = = = = =	= = = = = = = = = =	= =
;
;   IN:    <w_wrect = RECT.
;
;  OUT:    <w_wrect =	local (where y1,x1 are now 0,0)
;          <w_rect = clone of <w_wrect.
;
	ENTRY makeRectLocal
makeRectLocal		;       
;
	ldx #x1
lop100	lda <w_rect+y2,x
	sec
	sbc <w_rect+y1,x
	sta <w_rect+y2,x
	sta <w_wrect+y2,x
	stz <w_rect+y1,x
	stz <w_wrect+y1,x
	dex
	dex
	bpl lop100
;
	rts
	ENDP
;
;
;==========================================================
;          Get global coordinates of window port.
;==========================================================
;
;   IN:    w_wind = pointer to window record.
;
;  OUT:    w_wrect = RECT of window grafPort in global.
;
getGlobalRect	PROC

	ldy #wport+GP_PortRect+y1
	lda [<w_wind],y
	ldy #wport+boundsRect+y1
	sec
	sbc [<w_wind],y
	sta <w_wrect+y1
;
	ldy #wport+GP_PortRect+x1
	lda [<w_wind],y
	ldy #wport+boundsRect+x1
	sec
	sbc [<w_wind],y
	sta <w_wrect+x1
;
	ldy #wport+GP_PortRect+y2
	lda [<w_wind],y
	ldy #wport+boundsRect+y1
	sec
	sbc [<w_wind],y
	sta <w_wrect+y2
;
	ldy #wport+GP_PortRect+x2
	lda [<w_wind],y
	ldy #wport+boundsRect+x1
	sec
	sbc [<w_wind],y
	sta <w_wrect+x2
;
	rts
	ENDP
;
;
;=================================================================
;          Allocate	a stack based direct page for defProc.
;=================================================================
;
startup	PROC

	plx	Get return address.
;
	phd	Save caller's direct page.
;
	tsc	Allocate direct page.
	sec
	sbc #DIRECTSIZE
	tcs
	tcd
;
	phx	Put return address back on stack.
	rts
	ENDP
;
;
;==============================================================
;          Strip input parameters and exit defProc call.
;==============================================================
;
shutdown	PROC

	ldx <saveDpage
;
	lda <returnAddr+1
	sta <returnAddr+15
	lda <returnAddr
	sta <returnAddr+14
;
	tsc
	clc
	adc #DIRECTSIZE+16
	tcs
;
	txa	Restore caller's direct page pointer.
	tcd
;
	tya	Return error code in A.
	cmp #1	Set carry if error.
	rtl
	ENDP
;
;
;=====================================================================
;	Push pointer to window's title.
;=====================================================================
;
;   IN: <w_wind = pointer to window.
;
;  OUT: Window title pointer on stack, handle locked.
;       Call unlockTitle when done.
;
pushWindTitle	PROC
;
	ldy #wTitle+2	Is title a handle?
	lda [<w_wind],y
	bpl @justPush
;
	pei <w_work+2	Save.
	pei <w_work
;
	sta <w_work+2
	dey
	dey
	lda [<w_wind],y
	sta <w_work
;
	ldy #4	Lock the title.
	lda [<w_work],y
	ora #$8000
	sta [<w_work],y
	dey	Get title pointer.
	dey
	lda [<w_work],y
	tay
	lda [<w_work]
;
	plx	Restore.
	stx <w_work
	plx
	stx <w_work+2
	plx	Get return address.
	phy	Push title pointer on stack.
	pha
	phx	Put return address back.
	rts
;
@justPush	brl pushWindLong	Push title pointer directly from window record.
	ENDP
;
;
;================================================================
;	Unlock window title handle.
;================================================================
;
;   IN: <w_wind = pointer to window.
;
;  OUT: Window title handle unlocked if it is a handle.
;
unlockTitle	PROC
;
	ldy #wTitle+2	Is title a handle?
	lda [<w_wind],y
	bpl @exit
;
	pei <w_work+2	Save.
	pei <w_work
;
	sta <w_work+2
	dey
	dey
	lda [<w_wind],y
	sta <w_work
;
	ldy #4	Unlock the title.
	lda [<w_work],y
	and #$7FFF
	sta [<w_work],y
;
	plx	Restore.
	stx <w_work
	plx
	stx <w_work+2

@exit	rts
	ENDP
;
	END

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/WindMgr/WMPatch.asm b/IIGS.601.SRC/GSToolbox/WindMgr/WMPatch.asm
new file mode 100644
index 0000000..ebc3436
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/WindMgr/WMPatch.asm
@@ -0,0 +1 @@
+**********************************************************************
*
* WMPatch.ASM
*
* 
* Copyright 1989
* Apple Computer, Inc.
* All rights Reserved.
*
* This file contains a jump table and jumps back into the regular code.
* This code is only used when the window manager is built stand-alone.
*
* Change History
*
* 30 Mar 89	Steven Glass
*
* Coding begins.
*
**********************************************************************

****************************************************************
*
ToolboxPatcher	PROC EXPORT
*
* This is the only entry point to this code.  The window manager
* manager calls to this routine with the x-register set
* to indicate what real call it wants to make.
*
* In this way, the call can be patched.
*
* When the Window Manager is linked into ROM, this file
* is not linked, but rather the global ToolPatch file is.
* This file contains any of the patchable routines in the 
* window manager.  The big file contains these and others.
*
*
* Inputs:
*	x-reg    Call To Make
*
* Outputs:
*	no registers are altered.
*
* External Refs:
*	The real routines.
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


	jmp (Table,x)


Table	dc.w oops
	dc.w ToWMActivate
	dc.w ToWMDeactivate
	dc.w oops




ToWMActivate
	import RealWMActivate
	jml RealWMActivate

ToWMDeActivate
	import RealWMDeActivate
	jml RealWMDeActivate



Oops	brk 17

	ENDP


	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/WindMgr/WindMgrEquates.asm b/IIGS.601.SRC/GSToolbox/WindMgr/WindMgrEquates.asm
new file mode 100644
index 0000000..faf077d
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/WindMgr/WindMgrEquates.asm
@@ -0,0 +1 @@
+**********************************************************************
*
* Window Manager Equates
*
* Copyright (C)
* Apple Computer, Inc. 1986-1992
* All rights reserved
*
* Original Equates by Dan Oliver
*
* 5/11/89	Mensch
*
* Changed size of globals record to allow for longer window titles
* without crashing.
*
* 7/19/89	Mensch
*
* Added new equates for the task mask.
*
* 19-Jun-92	Dave Lyons
*
* New error code $0E05 cantUpdateErr for UpdateWindow.
*
**********************************************************************

IncBusyFlg	equ $E10064	; equate added 29 Jun 88
DecBusyFlg	equ $E10068	; equate added 29 Jun 88

TRUE	equ $FFFF	; equate added 23 Jul 88
FALSE	equ $0000	; equate added 23 Jul 88


;
;============================================
;          Window Manager equates.
;============================================
;
;
; --- Direct page offsets ------------------------------------------
;
; ------ Direct page shared with Event Manager ---------------------
;
FlgActive	equ 128	128 $80
FlgDeActive	equ FlgActive+2	130 $82
CurActive	equ FlgDeActive+2	132 $84
CurDeActive	equ CurActive+4	136 $88
CurKind	equ CurDeActive+4	140 $8C
;
;
; ------ Direct page used only by Window Manager -------------------
;
topwind	equ CurKind+2	142 $8E Address of top window structure.
deskpatt	equ topwind+4	146 $92 Pattern/Color of desktop.
rect	equ deskpatt+4	150 $96 Work RECT.
wrect	equ rect+8	158 $9E Window's coordinates.
wind	equ wrect+8	166 $A6 Window pointer.
wind_color	equ wind+4	170 $AA Pointer for window's color table.
workptr	equ wind_color+4	174 $AE Work pointer.
uncovered	equ workptr+4	178 $B2 0 = redraw whole content when resized.
yrat	equ uncovered+2	180 $B4 Place to keep Y position of cursor.
xrat	equ yrat+2	182 $B6 Place to keep X position of cursor.
rgnptr	equ xrat+2	184 $B8 General region pointer.
rgnptr2	equ rgnptr+4	188 $BC General region pointer.
GrayRgn	equ rgnptr2+4	192 $C0 Handle of desktop region.
param	equ GrayRgn+4	196 $C4 Parameter passed to window defProc.
top_vis	equ param+4	200 $C8 Top visible window set by find_top call.
boxflag	equ top_vis+4	204 $CC 0 = close, 1 = zoom.
old_port	equ boxflag+2	206 $CE Original port on entry.
save_cnt	equ old_port+4	208 $D0 Counter for save port.
FloorRgn	equ save_cnt+2	212 $D4 Desktop region less windows above.
data	equ FloorRgn+4	216 $D8 Pointer to data area.
MyID	equ data+4	220 $DC Memory ID number.
work	equ MyID+2	222 $DE Work area. (ONLY 12 BYTES? GrowWindow seems to use the most --DAL 19-Jan-91)
AuxInfoHandle	equ work+12	230 $EA handle to auxiliary window info block (DAL)
;
; --- Tool call function numbers ------------------------------
;
GetNextEvent	equ $0A06
EventAvail	equ $0B06
UnionRgn	equ $7204
DiffRgn	equ $7304
;
;
; --- RECT record offsets --------------------------------------
;
y1	equ 0
x1	equ y1+2
y2	equ x1+2
x2	equ y2+2
RECTSIZE	equ x2+2
;
;
; --- Offset into GrafPort Record ------------------------------
;
GP_PortInfo	equ 0
GP_Bounds	equ GP_PortInfo+8
GP_PortRect	equ GP_Bounds+8
GP_ClipRgn	equ GP_PortRect+8
GP_VisRgn	equ GP_ClipRgn+4
GP_BkPat	equ GP_VisRgn+4
;
;
; --- Paint Pixels parameter block -----------------------------
;
PP_SrcInfo	equ 0
PP_DesInfo	equ PP_SrcInfo+4
PP_SrcRect	equ PP_DesInfo+4
PP_DesRect	equ PP_SrcRect+4
PP_Mode	equ PP_DesRect+4
PP_Clip	equ PP_Mode+2
;
;
; --- LocInfo record -------------------------------------------
;
PortSCB	equ 0
PixelImage	equ PortSCB+2
Width	equ PixelImage+4
PBounds	equ Width+2
LOCINFO	equ PBounds+8
;
;
; --- Region record	--------------------------------------------
;
Rgn_Len	equ 0
Rgn_Bounds	equ Rgn_Len+2
;
;
; --- Desk pattern message record offsets.
;
messNext	equ 0	DeskMessage record offsets.
messType	equ messNext+4
messFormat	equ messType+2	0=pattern, 1=picture.
messInfo	equ messFormat+2	Pattern or picture data.
;
;
; --- Task record offsets --------------------------------------
;
what	equ 0
message	equ what+2
when	equ message+4
where	equ when+4
modif	equ where+4
TaskData	equ modif+2
TaskMask	equ TaskData+4
lastClickWhen	equ TaskMask+4
clickCount	equ lastClickWhen+4
taskData2	equ clickCount+2
taskData3	equ taskData2+4
taskData4	equ taskData3+4
lastClicky	equ taskData4+4	Y position of last button down.
lastClickx	equ lastClicky+2	X position od last button down.
exTaskRecSize	equ lastClickx+2
;
;
; --- Event codes ----------------------------------------
;
inNull	equ $00	No further action required.
inButtDwn	equ $01	Button down event.
inButtUp	equ $02	Button up event.
inKey	equ $03	Key event.
inAutoKey	equ $05	Auto-Key event.
inUpdate	equ $06	Update event.
inActWind	equ $08	Activate window event.
inSwitch	equ $09	Switch event.
inAccess	equ $0A	Desk Accessory event.
inDevice	equ $0B	Device driver event.
;
;
; --- Modifier key flags --------------------------------
;
K_KEYPAD	equ $2000
K_CTL	equ $1000
K_OPTION	equ $0800
K_CAPSLOCK	equ $0400
K_SHIFT	equ $0200
K_COMMAND	equ $0100
K_BUTT0	equ $0080
K_BUTT1	equ $0040
K_CHANGE	equ $0002
K_ACTIVE	equ $0001
;
;
; --- Window record	header offsets ---------------------------
;
wNext	equ 0	Pointer to next window, 0=bottom.
wPort	equ wNext+4	Window's port.
wDefProc	equ wPort+170	Address of window's defProc.
wRefCon	equ wDefProc+4	Reserved for application's use.
wContDraw	equ wRefCon+4	Address of routine to draw content.
wReserved	equ wContDraw+4
wStrucRgn	equ wReserved+4	Handle of window's entire region.
wContRgn	equ wStrucRgn+4	Handle of window's content region.
wUpdateRgn	equ wContRgn+4	Handle of area needing to be redrawn.
wControls	equ wUpdateRgn+4	Pointer to controls	in window.
wFrameCtls	equ wControls+4	Pointer to controls	in frame.
wFrame	equ wFrameCtls+4	Type of window, frame flags.
WHEADERSIZE	equ wFrame+2	Size of window record header.
;
;
; --- Flag masks for wkind ------------------------------
;
W_SYSTEM	equ $8000	1 = system window.
;
;
; --- Window Frame Type Masks ----------------------
;
F_TITLE	equ $8000	TRUE = title bar.
F_CLOSE	equ $4000	TRUE = close box.
F_ALERT	equ $2000
F_RSCRL	equ $1000	TRUE = right scroll	bar.
F_BSCRL	equ $0800	TRUE = bottom scroll bar.
F_GROW	equ $0400	TRUE = grow box.
F_FLEX	equ $0200	TRUE = don't change origin.
F_ZOOM	equ $0100	TRUE = zoom box.
F_MOVE	equ $0080	TRUE = allow move on title bar.
F_QCONTENT	equ $0040	TRUE = reuse button	in content.
F_VIS	equ $0020	TRUE = window is visible.
F_INFO	equ $0010	TRUE = content inset from left side.
F_CTL_TIE	equ $0008	FALSE= control state tied to window's
F_ALLOCATE	equ $0004	TRUE = window record allocated by me.
F_ZOOMED	equ $0002	TRUE = window is full.
F_HILITED	equ $0001	TRUE = frame is highlighted.
;
;
; ------ AND masks --------------
;
_F_TITLE	equ $7FFF
_F_CLOSE	equ $BFFF
_F_ALERT	equ $DFFF
_F_RSCRL	equ $EFFF
_F_BSCRL	equ $F7FF
_F_GROW	equ $FBFF
_F_ZOOM	equ $FEFF
_F_MOVE	equ $FF7F
_F_QCONTENT	equ $FFBF
_F_VIS	equ $FFDF
_F_INFO	equ $FFEF
_F_CTL_TIE	equ $FFF7
_F_ALLOCATE	equ $FFFB
_F_ZOOMED	equ $FFFD
_F_HILITED	equ $FFFE
;
;
; --- Window Manager's Tool number -----------------------------
;
WindToolNum	equ 14
;
;
; --- Variation code, command to window	definition procedure ----------
;
wDraw	equ 0	Draw window's frame.
wHit	equ 1	Tell what region given point is in.
wCalcRgns	equ 2	Calculate wstrucRgn	and wcontRgn.
wNew	equ 3	Do any additional initialization.
wDispose	equ 4	Take any additional	disposal actions.
wGetDrag	equ 5	Get routine to draw	window outline.
wGrowFrame	equ 6	Draw window's grow image.
wRecSize	equ 7	Return size of additional record space.
wPosition	equ 8	Return new window's portRect.
wBehind	equ 9	Return where in list to insert new window.
wCallDefProc	equ 10	Generic call to defProc.
;
;
; --- wCallDefProc request numbers ---------------------------
;
wSetOrgMask	equ 0
wSetMaxGrow	equ 1
wSetScroll	equ 2
wSetPage	equ 3
wSetInfoRefCon	equ 4
wSetInfoDraw	equ 5
wSetOrigin	equ 6
wSetDataSize	equ 7
wSetZoomRect	equ 8
wSetTitle	equ 9
wSetColorTable	equ 10
wSetFrameFlag	equ 11
wGetOrgMask	equ 12
wGetMaxGrow	equ 13
wGetScroll	equ 14
wGetPage	equ 15
wGetInfoRefCon	equ 16
wGetInfoDraw	equ 17
wGetOrigin	equ 18
wGetDataSize	equ 19
wGetZoomRect	equ 20
wGetTitle	equ 21
wGetColorTable	equ 22
wGetFrameFlag	equ 23
wGetInfoRect	equ 24
wDrawInfo	equ 25
wStartInfoDraw	equ 26
wEndInfoDraw	equ 27
wZoomWindow	equ 28
wStartDrawing	equ 29
wStartMove	equ 30
wStartGrow	equ 31
wNewSize	equ 32
wTask	equ 33
;
;
; --- Hit return flags ---------------------------------------
;
Null	equ $0000
wInDesk	equ $0010	On Desktop.
wInMenuBar	equ $0011	On System Menu Bar.
wClickCalled	equ $0012	SystemClick called (returned only as action).
winContent	equ $0013	In content region.
wInDrag	equ $0014	In drag region.
wInGrow	equ $0015	In grow region, active window only.
wInGoAway	equ $0016	In go-away region, active window only.
wInZoom	equ $0017	In zoom region, active window only.
wInInfo	equ $0018	In information bar.
wInSpecial	equ $0019	Item ID selected was 250-255.
wInDeskItem	equ $001A	Item ID selected was 1-249.
wInFrame	equ $001B	In frame, but not on anything else.
wInactMenu	equ $001C	Inactive menu item selected.
wClosedNDA	equ $001D	Desk accessory closed (returned only as	action).
wCalledSysEdit	equ $001E	SystemEdit called (returned only as action).
wTrackZoom	equ $001F	Zoom box clicked, but not selected (action only).
wHitFrame	equ $0020	Button down on frame, made active (action only).
wInControl	equ $0021
wInControlMenu	equ $0022	Control took the menu item (action only)
wNotInModal	equ $0023
;
;
; --- TaskMaster feature masks -------------------------------
;
TM_MENUKEY	equ $00000001	0
TM_UPDATE	equ $00000002	1
TM_FINDW	equ $00000004	2
TM_MENUSLT	equ $00000008	3
TM_OPENNDA	equ $00000010	4
TM_SYSCLK	equ $00000020	5
TM_DRAGW	equ $00000040	6
TM_CONTENT	equ $00000080	7
TM_CLOSE	equ $00000100	8
TM_ZOOM	equ $00000200	9
TM_GROW	equ $00000400	10
TM_SCROLL	equ $00000800	11
TM_SPECIAL	equ $00001000	12
TM_CREDRAW	equ $00002000	13
TM_INACTIVE	equ $00004000	14
TM_INFO	equ $00008000	15
;
;
; --- Window Manager Error Codes.
;
paramLenErr	equ $0E01
allocateErr	equ $0E02
taskMaskErr	equ $0E03
compileTooLarge	equ $0E04
cantUpdateErr	equ $0E05	;new for UpdateWindow, 19-Jun-92 DAL
;
;
; --- Color indexes	into color table ---------------------------
;
BLACK	equ $0000
WHITE	equ $FFFF
;
; --- Window frame pattern types -------------------------------
;
P_SOLID	equ $0000
P_DITHER	equ $0100
P_DOTTED	equ $0200
P_LINED	equ $0300
;
;
;
; --- Control record offsets -----------------------------------
;
CtlNext	equ 0
CtlOwner	equ CtlNext+4
CtlRect	equ CtlOwner+4
CtlFlag	equ CtlRect+RECTSIZE
CtlHilite	equ CtlFlag+1
CtlValue	equ CtlHilite+1
CtlProc	equ CtlValue+2
CtlAction	equ CtlProc+4
CtlData	equ CtlAction+4
CtlrefCon	equ CtlData+4
CtlColor	equ CtlrefCon+4
ThumbRect	equ CtlColor+4
PageRegion	equ ThumbRect+RECTSIZE
CtlRecSize	equ CtlColor+4
;
;
; --- CtlFlag bit flags --------------------
;
C_HILITE	equ $00FF	Hilited part, 255 =	inactive.
UP_FLAG	equ $0001	Up arrow.
DOWN_FLAG	equ $0002	Down arrow.
LEFT_FLAG	equ $0004	Left arrow.
RIGHT_FLAG	equ $0008	Right arrow.
DIR_SCROLL	equ $0010	0 = vertical, 1 = horizontal scroll.
CTL_INVIS	equ $0080	1 if control is invisible.
;
;
; --- Part codes for standard controls -----------------
;
BUTT_PART	equ 2
CHECK_PART	equ 3
UP_PART	equ 5
DOWN_PART	equ 6
UPP_PART	equ 7
DOWNP_PART	equ 8
GROW_PART	equ 10
THUMB_PART	equ 129
;
;
;
; = = = = = = = = =	= = = = = = =
;          Dynamic RAM.
; = = = = = = = = =	= = = = = = =
;
;
; --- Offsets into Window Manager global data ----------------
;
lineW	equ 0	WORD - Width of lines.
titleHeight	equ lineW+2	WORD - Height of title bar.
titleYPos	equ titleHeight+2	WORD - Y position of title in title bar.
closeHeight	equ titleYPos+2	WORD - Height of close and zoom boxes.
closeWidth	equ closeHeight+2	WORD - Width of close and zoom boxes.
defWindClr	equ closeWidth+2	LONG - Pointer to default color table.
windIconFont	equ defWindClr+4	LONG - Handle of window icon font.
screenMode	equ windIconFont+4	WORD - TRUE if 640 mode, FALSE if 320.
pattern	equ screenMode+2	BYTE[32] - Pattern buffer.
callerDpage	equ pattern+32	WORD
callerDataB	equ callerDpage+2	WORD
;
;
; --- Rest of data area not global ---------------------------
;
scrn2scrn	equ callerDataB+2	BYTES[22] - Paint pixels parameter block.
hiflag	equ scrn2scrn+22	WORD
justInfo	equ hiflag+2	WORD
myevent	equ justInfo+2	BYTE[16] - Internal	event record.
scInfo	equ myevent+16	BYTE[8]
screen	equ scInfo+8	BYTE[8]
LocInfo1	equ screen+8	LOCINFO
drag_bound	equ LocInfo1+16	RECT
slop_bound	equ drag_bound++8	RECT
wmgr_wind	equ slop_bound+8	LONG         Make Window Manager port
port	equ wmgr_wind+4	BYTE[270]    look like a window record.
fontHandle	equ port+270	BYTE[6] - Fake handle for icon font.
WindGlobal	equ fontHandle+6	WORD - Global flag:
;		        bit 0=1 to turn hiliting off.
iconNum	equ WindGlobal+2	WORD - Temp work space for icon number.
TaskAction	equ iconNum+2	WORD - Action that Task Master performed.
blitsrc	equ TaskAction+2	RECT
blitdes	equ blitsrc+8	RECT
taskRequest	equ blitdes+8	WORD
callProcList	equ taskRequest+2	BYTE[10] - table passed to defProc.
foundFCtl	equ callProcList+10	LONG - handle of found scroll bar.

DATaskFlag	equ foundFCtl+4	WORD - flag for task master so DA's can use it.
WindTitle	equ DATaskFlag+2	BYTES[32] - Used to hold window's title
;
RAMSIZE	equ WindTitle+255	Size of RAM data block.







;-----------------------------------------------------------
;
; New task master bits
;
tmContentControls	equ $0001
tmControlKey	equ $0002
tmControlMenu	equ $0004
tmMultiClick	equ $0008
tmIdleEvents	equ $0010
tmNoGetNextEvent	equ $0020
tmModalWindow	equ $0040


;-----------------------------------------------------------
;
; Extended task record def
;

NewTaskRecord	Record 0
taskWhat   	ds.W 1	EQU   $00 ; Word - WmTaskRec -  
taskMessage   	ds.L 1	EQU   $02 ; Long - WmTaskRec -  
taskWhen   	ds.L 1	EQU   $06 ; Long - WmTaskRec -  
taskWhere   	ds.L 1	EQU   $0A ; Point - WmTaskRec -  
taskModifiers   	ds.W 1	EQU   $0E ; Word - WmTaskRec -  
taskData   	ds.L 1	EQU   $10 ; Long - WmTaskRec - TaskMaster return value.
taskMask   	ds.L 1	EQU   $14 ; Long - WmTaskRec - TaskMaster feature mask.
taskLastClick	ds.L 1
taskClickCount	ds.W 1
taskData2	ds.L 1
taskData3	ds.L 1
taskData4	ds.L 1



	ENDR


\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/WindMgr/makefile b/IIGS.601.SRC/GSToolbox/WindMgr/makefile
new file mode 100644
index 0000000..feb6279
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/WindMgr/makefile
@@ -0,0 +1 @@
+##### Dependencies for the Window Manager #####

Tool014		Ä		WindMgr.asm.obj  	¶
					Task.asm.obj  		¶
					NewCalls.asm.obj	¶
					WDefProc.asm.obj  	¶
					WCtlDef.asm.obj  	¶
					WMPatch.asm.obj		¶
					::menumgr:wcm.asm.obj
		Linkiigs  ¶
			WindMgr.asm.obj  		¶
			Task.asm.obj 	 		¶
			NewCalls.asm.obj		¶
			WDefProc.asm.obj 		¶
			WCtlDef.asm.obj  		¶
			WMPatch.asm.obj			¶
			::menumgr:wcm.asm.obj	¶
			-o Tool014 -t TOL
	if {AutoDuplicate} == 1
		DuplicateIIGS -y -mac Tool014 :
	End


WindMgr.asm.obj		Ä		WindMgr.asm WindMgrEquates.asm
	Asmiigs  WindMgr.asm

Task.asm.obj		Ä		Task.asm WindMgrEquates.asm
	Asmiigs  Task.asm

NewCalls.asm.obj	Ä		NewCalls.asm WindMgrEquates.asm
	Asmiigs  NewCalls.asm

WDefProc.asm.obj	Ä		WDefProc.asm WindMgrEquates.asm
	Asmiigs  WDefProc.asm

WCtlDef.asm.obj		Ä		WCtlDef.asm WindMgrEquates.asm
	Asmiigs  WCtlDef.asm

WMPatch.asm.obj		Ä		WMPatch.asm
	Asmiigs WMPatch.asm

::menumgr:wcm.asm.obj		Ä		::menumgr:wcm.asm
	directory ::menumgr
	Asmiigs  wcm.asm
	directory ::windmgr


wm.loader					Ä		wm.loader.asm.obj
	linkiigs wm.loader.asm.obj -o wm.loader

wm.loader.asm.obj			Ä		wm.loader.asm
	asmiigs wm.loader.asm
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/WindMgr/task.asm b/IIGS.601.SRC/GSToolbox/WindMgr/task.asm
new file mode 100644
index 0000000..e2f3b0e
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/WindMgr/task.asm
@@ -0,0 +1 @@
+	title 'TaskMaster'
**********************************************************************
*
* TaskMaster (All by itself)
*
* Copyright Apple Computer, Inc. 1986-89
* All rights reserved
* Original Code written by Dan Oliver
* 
**********************************************************************

**********************************************************************
*
* CHANGE HISTORY
*
* 22 June 88	Harry Yee
*	Converted to MAX development system. 
*
* 20 Sep 88	Steven Glass
*
* Added features to task master so that it will find and track control
* and handle keystrokes.
*
* 04 Oct 88	Steven Glass
*
* Got TaskMasterDA working.
*
* 06 Oct 88	Steven Glass
*
* There are a number of places where the event record pointer can get 
* trashed.  I've tried to identify them all and restore it after 
* this occurs.
*
* 20 Oct 88	Dan O.
*
* Implemented TaskMaster multi-click.  Task record had to be extended.
* Made CompileString a tool call.
*
* 22 Nov 88	Steven Glass
*
* Minor change to TaskMaster to preserve register around call to 
* ckDoubleClick.
*
* 01 Dec 88	Steven Glass
*
* Changed the way CkActiveate works so that the controls are
* not drawn, but rather their rects are made invalid.
*
* Changed TaskMasterKey to see if there is a top window before 
* sending events to it.
*
* 22 Jan 89	Steven Glass
*
* Changed routine that passed idle events on to controls.  We had
* a problem that we were passing too many events including events
* that were only idle because the DeskManager handled them.  We
* now only pass them if the event manager says no event and the
* event code is zero.
*
*
* 15 Feb 89	Dave Good
*
* Added code to pass menu item events to the active control. I added a
* new taskmaster code (wInControlMenu) which is returned as an action only
* to inform the application that the control already accepted the menu
* item. The way that menu events are passed to controls is a little funny;
* I replace the event.what field of the task record with wInSpecial or wInMenuBar
* depending on which item numbers are being passed. The menu item ID is passed
* in TaskData, just as it would be returned to the application. If the control
* returns non zero, I return a null task code to the application since the
* control took the menu event. If the control returns zero, I pass the menu event
* back to the application.
*
* 19 Feb 89	Steven Glass
*
* Made InvertIfNecessary into a subroutine and called it from
* inside TaskMasterContent and TaskMasterKey.
*
* Changed way SendEventToCtl is called to save code (in TaskMaster).
*
* 20 Feb 89	Steven Glass
*
* Removed non-TaskMaster calls (now in file NewCalls.asm).
* Made TaskMaster stack-based so it would be re-entrant.
*
* 23 Feb 89	Steven Glass
*
* Fixed bug in update routine.  StartDrawing is now called before
* user routine is called.  ZeroOrigin is called after.
*
* 13 Mar 89	
*
* Fixed bug in TaskMasterKey (BRC #45532, 45533). Origin was not being 
* set up correctly when control was being selected. 
*
* 3/15/89	Mensch
* Fixed brc #45932. Now return window ptr in task data when a control
* key equiv is being used.
*
* 28 Mar 89	Steven Glass
*
* Changed ck_activate to call futzCtls rather than invalctls.  This
* lets controls that are not going to do total redraws to optimize
* their handling of activation.
*
* 30 Mar 89	Steven Glass
*
* Saved port around handling idle events in TaskMaster.
*
* 31 Mar 89	Steven Glass
*
* Pulled yesterday's change and made a global change to save
* and restore grafPort.
*
* 31 Mar 89	Steven Glass
*
* Pushed right value for TaskMasterDA case.
*
* 09 Apr 89	Steven Glass
*
* Found that busyflag was always set when going into CDAs if
* TaskMaster was being used.  Problem was that TaskMaster incremented
* the busy flag before calling GetNextEvent (where CDA menu was
* displayed).  So we moved the call.
*
* Also took out a little redundant code that was found in the 
* code review we had last Tuesday.
*
* 13 Apr 89	Steven Glass
*
* Save DBR and D-page in global data area so it can be used by
* w-def proc.
*
* 19 Apr 89	Steven Glass
*
* Change to code that tracks controls.  Treats scroll bars
* specially.
*
* Change to code that calls Task_menu2 in TaskMasterKey so 
* that handled events are returned correctly.
*
* 8/24/89	Mensch
*
* Implement the tmNoGetNextEvent bit in taskmask. When this bit is set
* TaskMaster does not call SystemTask or GetNextEvent, the event record
* MUST be already filled in by the application.
* 
**********************************************************************


	blanks off

	print Push
	print off
	include 'all.macros'
	include 'WindMgrEquates.asm'
	include ':::ControlMgr:CtlCustomEqus.asm'

	MACRO
	bccl &A
	bcs  @dontTake
	brl  &A
@dontTake
	MEND

	MACRO
	beql &A
	bne  @dontTake
	brl  &A
@dontTake
	MEND

	MACRO
	PushWordSpace
	pha
	MEND

	print pop

**********************************************************************
*
* Equates for direct page during execution of task master
*
**********************************************************************

	DefineStack
WindMgrD	word
ThisAction	word
TheTaskMask	LONG
WindPtr	LONG
DataPtr	LONG
CallingFlag	WORD
OrigB	BYTE
OrigD	word
RTL1	block 3
RTL2	block 3
InputTaskRecPtr	LONG
InputEventMask	WORD
OutputTaskCode	WORD


	title 'TaskMaster'
****************************************************************
*
TaskMaster	PROC EXPORT
*
* App's little helper
*
*
*   IN:    PUSH:WORD - space for result code
*          PUSH:WORD - event mask used when calling GetNextEvent.
*          PUSH:LONG - pointer to Task record.
*
*  OUT:    WORD - Same as Event Code with a few changes:
*
* External Refs:
	IMPORT ckDoubleClick
	import ePop6Bytes
	import Task_Menu
	import MakeGPIntoWP
	import Do_Update2
	import CkActivate
	import BreakOut
	import PushFrontWindow
	import CallProc2
*
* Entry Points:
	ENTRY DAEntry
*
	longa on	; mode
	longi on
*
*
* Change History
*
* 22 Nov 88	Steven Glass
*
* Saved task code around call to check double click.
*
* 22 Jan 89	Steven Glass
*
* Changed routine that passed idle events on to controls.  We had
* a problem that we were passing too many events including events
* that were only idle because the DeskManager handled them.  We
* now only pass them if the event manager says no event and the
* event code is zero.
*
* 19 feb 89	Steven Glass
*
* Changed way SendEvtToCtl was called to save code.
*
* 20 Feb 89	Steven Glass
*
* Started conversion to Stack Based code
*
* 30 Mar 89	Steven Glass
*
* TaskMaster now preserves the grafPort even when the idle 
* event is sent to the target control.
*
* 31 Mar 89	Steven Glass
*
* TaskMaster saves the port on entry and restores it on exit.
*
* Change above is removed as being redundant.
*
* 31 Mar 89	Steven Glass
*
* Pushed right value for TaskMasterDA case.
* 
* 13 Apr 89	Steven Glass
*
* Save DBR and D-page in global data area for w-def proc.
*
* 8/25/89	Mensch
*
* Add tmNoGetNextEvent bit.
* Add tmModalWindow bit.
*
****************************************************************


	phd	Save d-page and dbr on stack
	phb
	tcd	Switch in wmgr's dPage for a momment

	pea $0000	Push CallingFlag of zero to indicate call origin

DAEntry


	pei <Data+2	Push pointer to window mgr's globals
	pei <Data

	pha	Push space for Window Pointer
	pha

	pha	Push space for the task mask
	pha

	pea $0000	ThisAction starts as zero

	phd	Push window manager's direct page!

	tsc	Turn our stack into direct page
	tcd


	pha	Save the Port on the stack
	pha
	_GetPort

	bit CallingFlag
	bpl DoNormalStuff
	pei CallingFlag	; push a non-zero value so it looks like there was an event.
	bra SkipNormalStuff
DoNormalStuff
;
; Call System Task now and get it over with
;
; 8/24/89 Mensch
; Added code here to skip getNextEvent in the case where the tmNoGetNextEvent bit is set in the
; task mask.

	ldy #taskMask+2	; get high word of the task mask
	lda [InputTaskRecPtr],y
	and #tmNoGetNextEvent
	beq @getEvent	; if zero, get an event here
; If we get this far, then no call to get next event should be made,
; what we will do instead is get the taskwhat field and push it on the stack as the result of 
; getnextevent, so that we can proceed
	lda [InputTaskRecPtr] ; event what is first field
	pha
	bra SkipNormalStuff	  ; and continue with the rest of the call...

@getEvent
;
	_SystemTask		Call Desk Manager so it can pass a tick.


	pha
	pei InputEventMask
	pei InputTaskRecPtr+2
	pei InputTaskRecPtr
	_GetNextEvent

SkipNormalStuff
	jsl IncBusyFlg		Inc flag so that shared resources are in danger

;
; Put d-page and dbr in global data for use by w-def Procs.
; 13 Apr 89 SEG
	ldy #callerDPage
	lda OrigD
	sta [<dataPtr],y
	ldy #callerDataB		high byte must be valid
	lda OrigB-1
	sta [<DataPtr],y
; End Change

	lda [<InputTaskRecPtr]	Check this so we don't zero important data
	cmp #wInContent		for TaskMasterDA case
	beq SkipThisShit
	
	ldy #message		Clone message into TaskData just in case.
	lda [<InputTaskRecPtr],y
	tax
	iny
	iny
	lda [<InputTaskRecPtr],y
	ldy #TaskData+2
	sta [<InputTaskRecPtr],y
	dey
	dey
	txa
	sta [<InputTaskRecPtr],y

SkipThisShit
	ldy #TaskMask+2		Get TaskMask into a	zero page location.
	lda [<InputTaskRecPtr],y
	sta TheTaskMask+2
	and #$FF80		Bits 23-31 must be clear.
	beq mask_ok

	pla		Get rid of return flag from GetNextEvent.
	stz OutputTaskCode		Return event state.
	ldy #TaskMaskErr	 	Bits 21-31 not clear in TaskMask err.
	brl UnlinkWithError

mask_ok	dey
	dey
	lda [<InputTaskRecPtr],y
	sta <TheTaskMask
	pla		Get returned flag from GetNextEvent.
	bne do_event


;-----------------------------------------------------------
;
; If we get here, then the event was null or taken by the 
; desk manager.  If it was really null, see if we 
; should send it on to the active control
;
	lda [<InputTaskRecPtr]
	bne NotNull

	lda TheTaskMask+2
	and #tmIdleEvents
	beq NotNull


	pha	; is there a window?
	pha
	_FrontWindow
	lda 3,s
	ora 1,s
	bne ThereIsAWindow

NoWindow	pla	; no window, clean the stack
	pla
	bra NotNull

ThereIsAWindow
	_StartDrawing	; start drawing in front window so can send idle

	pha	; space for result
	PushWord #True	; Send only to active control
	lda #0	; zero means front window
	pha
	pha
	pei InputTaskRecPtr+2
	pei InputTaskRecPtr
	_SendEventToCtl
	pla	; ignore result

	lda #0	; reset origin
	pha
	pha
	_SetOrigin


NotNull
;-----------------------------------------------------------


	ldx #inNull	No event to act on if MenuSelect off.
	jsr task_menu
	brl GoHome	Return event flag.
;
;
; --- Event happened, handle it ----------------------------
;
; --- Is this an event the Task Master should handle? ------
;
do_event	lda [<InputTaskRecPtr]	Event code.
	cmp #inButtDwn	Button down event?
	beq ck_butt
	cmp #inKey	Key event?
	beq ck_key
	cmp #inAutoKey	Auto key?
	beq ck_key
	cmp #inActWind	Activate/Inactivate	event?
	beq ck_act
	cmp #inUpdate	Update event?
	beq ck_update

; not an event we will handle.
	tax	put code in x-reg
	brl GoHome	and clear out.


ck_update
	tax	Save inUpdate.
	lda <TheTaskMask	Ok to handle update	event?
	and #TM_UPDATE
	bne ok31
	brl GoHome	Update feature is masked off.
;
ok31	jsr MakeGPIntoWP	turn TaskData into a pointer to wind record
;
	jsr do_update2	Have application draw update region.
;
	tax	Was update handled?
	bne skip3
	lda #inUpdate	Tell caller that update was performed.
	sta <ThisAction
;
skip3	brl GoHome
;
;
;
; --- Never fear, Task Master will handle the event. ------------------------
;
; ------- Check to redraw controls for activate/inactivate events -----------
;
; Always return the inActWind event code in case application wants to 
; do more with the event.
; 
ck_act	pha	Save event code.
	jsr ckactivate	Redraw window's controls.
	plx	Get inActWind event	code.
	brl GoHome	Return event code to user.
;
;
; ------- Call routine to handle keys ------------------
;
ck_key
	pha
	pha
	pei <InputTaskRecPtr+2
	pei <InputTaskRecPtr
	jsr PushFrontWindow
	_TaskMasterKey

	brl JoinTMContent

;
;
; ------- Handle button down event -------------------------------
;
ck_butt	
	pha	Save the event code

	lda <InputTaskRecPtr	Pass pointer to task record.
	ldx <InputTaskRecPtr+2
	jsr ckDoubleClick	Set double-click fields.

	plx	Get event code off stack

	lda <TheTaskMask	Ok to handle button	down event?
	and #TM_FINDW
	bne ok32
	brl GoHome	Button handler is masked off.

;
; Call FindWindow
;
ok32	pha		Return space.
	ldx <InputTaskRecPtr+2	Return window pointer in TaskData.
	lda <InputTaskRecPtr
	clc
	adc #TaskData
	bcc store1
	inx
store1	phx
	pha
	ldy #where+2		Pass point where button down.
	lda [<InputTaskRecPtr],y
	pha
	dey
	dey
	lda [<InputTaskRecPtr],y
	pha		Find if down on window.
	_FindWindow
	plx		Get returned value.

;
; At this point, check to see if the tmModalWindow bit is set and if it is call the modal window
; routine...
	lda <theTaskMask+2	; get the taskmask
	and #tmModalWindow	; test the modal window bit
	beq @NoModalWindow	; if zero, we are not using modal windows

	cpx #$0013	; is it an inContent? if not then its an error
	bne @NotInModal	; and we should simply report it.

	pha
	pha
	_FrontWindow	; get the front most window (it would be the modal one)
	pla	; get the result into <X> and <A>
	plx
	ldy #taskData	; now compare the result from findwindow
	cmp [InputTaskRecPtr],y
	bne @NotInModal
	iny
	iny
	txa
	cmp [InputTaskRecPtr],y
	beq @InModalWindow	; if both are equal we are in a modal window and we should continue

; This routine will be called if we are not inside of a modal window
@NotInModal
	ldx #wNotInModal	; return the not in modal result
	brl goHome	; and exit the call...
;
;
@InModalWindow
	ldx #$0013	; reload the inContent message and continue

@NoModalWindow
;
; ------- Handle system menu bar interaction ----------------------
;
	cpx #wInMenuBar
	bne next5
;
	stx <ThisAction	Assume this will be the action (its changed if it is different)

	jsr task_menu	Handle system menu bar.
	brl GoHome	x = return code.
;
;
; --- Do some common setups --------------------------------------
;
next5	jsr breakout	Break out parameters from event rec.

	bit CallingFlag
	bpl @CheckForSystem

	txa
	and #$7FFF
	bra ok6

@CheckForSystem
	txa	Get value returned from FindWindow.
	bpl ok6	System window?
;
;
; --- Handle system	window ---------------------------------------
;
	lda <TheTaskMask	Ok to handle system	window event?
	and #TM_SYSCLK
	bne ok35
	brl GoHome	System window feature is masked off.
;
ok35	pei <InputTaskRecPtr+2	Pass pointer to event record.
	pei <InputTaskRecPtr
	pei <WindPtr+2	Pass pointer to window's port.
	pei <WindPtr
	phx	Pass result from FindWindow.
	_SystemClick
;
	lda #wClickCalled	SystemClick called.
	sta <ThisAction
;
null_out	ldx #0
	bra GoHome
;
;
; --- Handle the specific task -----------------------------------
;
ok6	ldy #taskRequest	Save task code.
	sta [<DataPtr],y
	ldx WindMgrD
	sta >work,x	Pass result from FindWindow to callProc2.
;
	sec
	sbc #$0013
	bcs ok8
	lda #6	Can't handle if because out of range.
ok8	asl a
	tax
	lda >masks,x
	beq dontHandle
	bpl ok10
	and <TheTaskMask
	beq ok9
;
dontHandle	ldy #taskRequest	Get task code.
	lda [<DataPtr],y
	bra ckControls
;
ok10	and <TheTaskMask
	beq dontHandle
;
ok9	


	jsr MakeGPIntoWP		turn TaskData into a pointer to wind record

	phd		Save our local D-page

; Put the windPtr (the real one) on window managers
; direct page.
	ldx WindMgrD
	lda WindPtr		
	sta >Wind,x
	lda WindPtr+2
	sta >Wind+2,x

	ldx <InputTaskRecPtr	Pass pointer to task record.
	ldy <InputTaskRecPtr+2
	lda #wTask		Pass command.
	pei WindMgrD		Make WindMgr D-Page current
	pld
	jsr callProc2

	pld		Restore our local D-page
;	                  		a = result, x = action taken.
;
ckControls	cmp #wInContent
	bne skip7

	pha
	pha
	pei <InputTaskRecPtr+2
	pei <InputTaskRecPtr
	_TaskMasterContent

joinTMContent
	plx	; action take
	pla	; result code


skip7	stx <ThisAction
	tax	



; --- Return to caller --------------------------------------------
;
; X-reg contains the value to be put in OutputTaskCode and
; ThisAction contains the value of the taskCode acted on if
; OutputTaskCode is zero.
;
GoHome
	stx OutputTaskCode		Return result to caller

	txa		Null event?
	bne UnlinkWithoutError

	lda <ThisAction
	ldy #TaskData		Return action performed in TaskData.
	sta [<InputTaskRecPtr],y
;
UnLinkWithoutError
	ldy #0		Indicate No Error


UnLinkWithError
	sty WindMgrD		Save error  for momment
	_SetPort		restore port from stack
	ldy WindMgrD		Get error back

	pla		Pull off WindMgrs D
	pla		Pull off ThisAction

	pla		Pull Off TaskMask
	pla

	pla		Pull Off window pointer
	pla

	pla		Pull Off window manager globals
	pla

	pla		Pull off Calling Flag

; dbr already on stack!

	brl epop6bytes
;
;


masks	DC.W TM_CONTENT	$0013     0 wInContent
	DC.W TM_DRAGW	$0014     1 wInDrag
	DC.W TM_GROW	$0015     2 wInGrow
	DC.W TM_CLOSE	$0016     3 wInGoAway
	DC.W TM_ZOOM	$0017     4 wInZoom
	DC.W TM_INFO	$0018     5 wInInfo
	DC.W 0	$0019     6 wInSpecial
	DC.W 0	$001A     7 wInDeskItem
	DC.W TM_SCROLL	$001B     8 wInDeskItem
;
	ENDP




	title 'TaskMasterContent'
****************************************************************
*
TaskMasterContent   PROC EXPORT
*
* Description
*
*
* Inputs:
*	none
*	taskData = window to track controls in.
*
* Outputs:
*	none
*
* External Refs:
	import InvertIfNecessary
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
*
* Change History
*
* 19 Apr 89	Steven Glass
*
* Treat scroll bars specially so that after tracking the control, 
* we always return the part code of the scroll bar.
*
* The problem arrised if you tracked the scroll for a while and
* then pulled out.  The app might think nothing happend.
*
* Worksheet # BCOJHS111
*
****************************************************************
	DefineStack
TMsD	word
MyTemp	long
Ret1	block 3
Ret2	block 3
Event	long
Result	long

	pha
	pha

	phd
	tsc
	tcd


;-----------------------------------------------------------
;
; Assume that there are no controls.
;

	lda #wInContent
	sta Result+2
	stz Result

;-----------------------------------------------------------
;
; Look and see if program wants me to look for controls
;
	ldy #NewTaskRecord.TaskMask+2
	lda [<event],y
	and #tmContentControls
	bne LookForControls

	brl CleanStack

;
;
; --- Only look for controls in top window.
;
LookForControls	pha	Space for result.
	pha
	_FrontWindow
	pla
	plx
	ldy #taskData
	cmp [<event],y
	bne @exit
	txa
	iny
	iny
	cmp [<event],y
	beq @ok1
@exit	brl CleanStack
@ok1


;-----------------------------------------------------------
;
; The program wants me to look for controls, so I start
; by zeroing out the output fields in the task record.
;
; Zero taskData2, taskData3 and taskData4
;
;
	ldy #NewTaskRecord.taskData2
	lda #0
Loop	sta [<event],y
	iny
	iny
	cpy #NewTaskRecord.taskData2+12
	bcc Loop

;-----------------------------------------------------------
;
; Before trying to find the control, fix the window 
; coordinate system.
;
	jsr PushWPtr
	_StartDrawing


;-----------------------------------------------------------
;
; Call find control
;
	pha
	lda <event		Pointer to TaskData2
	clc
	adc #NewTaskRecord.taskData2
	tax
	lda <event+2
	adc #0
	pha
	phx
	ldy #where+2		Pass point where button down.
	lda [<event],y
	pha
	dey
	dey
	lda [<event],y
	pha		Find if down on window.
	jsr PushWPtr
	_FindControl
	pla

	ldy #NewTaskRecord.taskData3
	sta [<event],y
	tay		Was anything found?
	bne FoundAControl

	brl NoControlFound
FoundAControl
;-----------------------------------------------------------
;
; put ControlID into taskData4
;
	pha	Get control ID
	pha
	ldy #NewTaskRecord.taskData2+2
	lda [<event],y
	pha
	dey
	dey
	lda [<event],y
	pha
	_GetCtlID
	pla
	plx
	bcs NoID
	ldy #NewTaskRecord.taskData4
	sta [<event],y
	iny
	iny
	txa
	sta [<event],y

NoID


;-----------------------------------------------------------
;
; Track the control
;

	pha
	ldy #where+2	Pass point where button down.
	lda [<event],y
	pha
	dey
	dey
	lda [<event],y
	pha	Find if down on window.
	pea $FFFF
	pea $FFFF
	jsr PushTaskData2
	_TrackControl

;
; was this a scroll bar (but not the thumb)
;
	ldy #newTaskRecord.TaskData3
	lda [<event],y
	cmp #upArrow
	bcc NotScroll
	cmp #pageDown+1
	bcs NotScroll

	pla
	bra YesScroll

NotScroll
	pla
	beq GaveUp


YesScroll
	ldy #newTaskRecord.TaskData3+2
	sta [<event],y

;-----------------------------------------------------------
;
; If the type is a check control or a radio control, 
; then we have to diddle with its value.
;

	jsr PushTaskData2
	pla
	plx
	
	jsr InvertIfNecessary

	lda #wInControl
	ldx #0
	bra GetOut



NoControlFound	lda #wInContent
	ldx #0
	bra GetOut


GaveUp	lda #0
	ldx #wInContent

GetOut
	sta Result+2
	stx Result

	lda #0
	pha
	pha
	_SetOrigin

CleanStack

	lda Ret1+4	; move the rtl address up 4 bytes
	sta Ret1+4+4
	lda Ret1+2
	sta Ret1+2+4
	lda Ret1
	sta Ret1+4
	pld	; restore d-reg

	pla	; clean off 4 bytes of temp storage
	pla

	pla	; clean off 4bytes of input
	pla

	lda #0	; return no error
	clc
	rtl


PushWPtr
	plx
	ldy #NewTaskRecord.TaskData+2
	bra JoinPusher
PushTaskData2
	plx

	ldy #NewTaskRecord.TaskData2+2
JoinPusher	lda [<event],y
	pha
	dey
	dey
	lda [<event],y
	pha

	phx

	rts

	ENDP


	title 'TaskMasterKey'
****************************************************************
*
TaskMasterKey	PROC EXPORT
*
* This is the routine that handles keystrokes.  We've broken
* it out from the rest of task master so that it will be 
* easy to patch (if necessary).
*
*
* Inputs:
*     Space For result         LONG
*     Pointer To TaskRec       LONG
*     Pointer To Front Window  LONG
*
* Outputs:
*     HiWord  Function Result for TaskMaster
*     LoWORD  Original Event we handled
*	
*
* External Refs:
	import task_menu2
	import InvertIfNecessary
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
*
* Change History
*
* 01 Dec 88	Steven Glass
*
* Checked to see if there was a top window before calling trying
* to send keystrokes to it.
*
* 08 Feb 89	Harry Yee
*
* If DATaskFlag is negative, then we were called by TaskMasterDA otherwise
* we were just called by TaskMaster. If we were called by TaskMasterDA then
* then the top window must be a system window otherwise the key event is
* not passed on. If we were called by TaskMaster then the top window cannot
* be a system window otherwise the key event will not get passed on.
*
*
* 15 Feb 89	Dave Good
*
* The last change didn't work; harry gave me some new code and I implemented
* it. Key events should be passed to the controls properly now.
*
* 19 Feb 89	Steven Glass
*
* Called invertIfNeccessary if inControl is returned for keystrokes.
*
* 20 Feb 89	Steven Glass
*
* If the original calling program is TaskMasterDA, then we do
* not send the keystroke to MenuKey.
*
* 13 Mar 89	Steven Glass and Harry Yee
*
* The origin was being set to zero before InvertIfNecessary was called.
* This would cause controls to be drawn incorrectly. BRC #45532, 45533.
*
* 19 Apr 89	Steven Glass and Harry Yee
*
* TaskMaster could not return wClosedNDA, wCalledSysEdit, wInControlMenu
* or wInDeskItem.  This was caused by TaskMenu2's return of the action
* taken being ignored here.  So now we look at it if the action is taken.
*
****************************************************************
	DefineStack
TMsD	word
Ret1	block 3
Ret2	block 3
TheTopWind	long
Event	long
Result	long


	phd
	tsc
	tcd


;-----------------------------------------------------------
;
; Start by copy the event to result.
;
	ldy #NewTaskRecord.taskWhat
	lda [event],y
	sta Result
	sta Result+2


;-----------------------------------------------------------
;
; Now see if the key is a menu key.
;
TryMenus

	ldx TMsD
	lda >CallingFlag,x
	bne CannotBeMenuKey

	ldy #NewTaskRecord.taskmask
	lda [event],y
	and #TM_MENUKEY
	beq TryCtlKey
;
ok30	pei <event+2	Pass pointer to event.
	pei <event
	lda #0	Pass pointer to menu bar,
	pha	zero = system menu bar.
	pha
	_MenuKey

	phd	Switch TaskMasters D back in and call...
	lda TMsD
	tcd

	ldx #inKey	Just in case its not a menu
	stx <ThisAction	Init this field too
	jsr task_menu2

	lda <ThisAction

	pld	restore my d-page

	stx Result+2
	cpx #inKey
	beq TryCtlKey	keep trying

	sta Result
	bra GetOut



CannotBeMenuKey

TryCtlKey
;-----------------------------------------------------------
;
; See if the user wants to send key to controls.
;


	ldy #4	;four bytes into the window is a flag that tells us whether
	lda [<TheTopWind],y	;..this is a system or application window
	ldx TMsD
	eor >CallingFlag,x	;..window and TaskMaster then pass key, otherwise exit
	and #$8000	;if system window and TaskDA then pass key. If application
	beq @WeMatch
	brl GetOut

@WeMatch	lda >TheTaskMask+2,x
	and #TMcontrolKey
	beq GetOut

;-----------------------------------------------------------
;
; Zero taskData2, taskData3 and taskData4
;
	ldy #NewTaskRecord.taskData2
	lda #0
Loop	sta [<event],y
	iny
	iny
	cpy #NewTaskRecord.taskData2+12
	bcc Loop


;-----------------------------------------------------------
;
; Lets see if there even is a window
;
	lda TheTopWind
	ora TheTopWind+2
	beq GetOut

;-----------------------------------------------------------
;
; Before doing anything else, fix the window 
; coordinate system.
;
	pei TheTopWind+2
	pei TheTopWind
	_StartDrawing


;-----------------------------------------------------------
;
; Now we send the key to the controls
;
	pha
	PushWord #False
	pei TheTopWind+2
	pei TheTopWind
	pei event+2
	pei event
	_SendEventToCtl

;-----------------------------------------------------------
;
; Look at the result
;
	pla
	beq ZeroAndGetOut

	lda #wInControl
	sta Result+2

;-----------------------------------------------------------
;
; Added 3/15/89	Mensch
; Return the front window pointer in taskData because a control in
; that window was just messed with.

	ldy #TaskData	; offset to taskdata in the event record
	lda <TheTopWind	; place the top window pointer into task data
	sta [<event],y
	ldy #TaskData+2
	lda <TheTopWind+2
	sta [<event],y
; End of change

	ldy #NewTaskRecord.TaskData2+2
	lda [event],y
	tax
	dey
	dey
	lda [event],y
	jsr InvertIfNecessary

ZeroAndGetOut
;-----------------------------------------------------------
;
; Fix the origin
	lda #0
	pha
	pha
	_SetOrigin

GetOut
	lda Ret1+4	; move the rtl address up 4 bytes
	sta Ret1+4+8
	lda Ret1+2
	sta Ret1+2+8
	lda Ret1
	sta Ret1+8
	pld	; restore d-reg

	pla	; clean off 8 bytes of input
	pla
	pla
	pla

	lda #0	; return no error
	clc
	rtl



	endp


	title 'TaskMasterDA'
****************************************************************
*
TaskMasterDA	PROC EXPORT
*
* This is the routine that can be called by desk accessories
* that to let TaskMaster do its work for it.
*
*
* Inputs:
*     Space For result         WORD
*     DummyWord	           WORD
*     Pointer To TaskRec       LONG
*
* Outputs:
*     WORD    ResultCode (same as task master
*	
*
* External Refs:
*	import task_menu2
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

	phd	Save d-page and dbr on stack
	phb
	tcd	Switch in wmgr's dPage for a momment

	pea $FFFF	Push CallingFlag of -1 to indicate call origin

	brl DAEntry


	endp


	title 'BreakOut'
****************************************************************
*
breakout	PROC
*
* Gets window pointer from event record and puts it into WindPtr.
*
*
* Inputs:
*	InputTaskRecPtr
*
* Outputs:
*	WindPtr
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

	ldy #TaskData
	lda [<InputTaskRecPtr],y
	sta <WindPtr
	iny
	iny
	lda [<InputTaskRecPtr],y
	sta <WindPtr+2

	rts

	ENDP


	title 'do_update2'
****************************************************************
*
do_update2	PROC
*
* Have the application draw the update region
*
*
* Inputs:
*	WindPtr is pointer to window's grafPort
*	OrigD 
*
* Outputs:
*	a-reg:  0 if update was handled
*	        wInUpdate if not handled
*
* External Refs:
	import LongCall
	import ZeroOrigin
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* Change History
*
* 23 Feb 89	Steven Glass
*
* In original implementation of this routine, shared
* direct page made it possible to call internal window manager
* routines rather than the making real calls.
*
* The stack based re-write made us make real calls including
*
*     BeginUpdate
*     StartDrawing
*     ZeroOrigin
*     EndUpdate
*
*
****************************************************************

	ldx #inUpdate
	ldy #wContDraw	Is there an address	of a redraw routine?
	lda [<WindPtr],y
	iny
	ora [<WindPtr],y
	beq exit
;
	jsr PushWinPtr
	_BeginUpdate

	jsr PushWinPtr
	_StartDrawing

;
	ldy #wContDraw+1	Get address of draw	routine.
	lda [<WindPtr],y
	tax
	dey
	lda [<WindPtr],y
;
	phd	Save my zero page.
	phb	Save current data bank.
;
	pei OrigB-1
	plb
	plb
	pei OrigD
	pld

	jsl longCall
;
	plb	Restore last data bank.
	pld	Switch to my zero page.
;

	jsr ZeroOrigin

	jsr PushWinPtr
	_EndUpdate
;
	ldx #0	Null event, event handled flag.
;
exit	txa	Return event flag in A.
	rts


PushWinPtr
	plx
	ldy #TaskData+2
	lda [InputTaskRecPtr],y
	pha
	dey
	dey
	lda [InputTaskRecPtr],y
	pha
	phx
	rts


	ENDP


	title 'task_menu'
****************************************************************
*
task_menu	PROC
*
* Handles system menu bar interactions for TaskMaster.
*
*
* Inputs:
*	x-reg   wInMenuBar
*
* Outputs:
*	x-reg   Task master return code
*
* External Refs:
	import PushFrontWindow
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

	lda <TheTaskMask		Ok to call MenuSelect?
	and #TM_MENUSLT
	bne ok1
exit1	rts		MenuSelect handler is masked off.
;
ok1	pei <InputTaskRecPtr+2	Pass pointer to event record.
	pei <InputTaskRecPtr
	lda #0		System menu bar flag.
	pha
	pha
	_MenuSelect		Let user make a selection.
;
	ldx #Null		Just in case.
;
;
	ENTRY task_menu2
task_menu2     
;
	ldy #TaskData		See if there was a selection.
	lda [<InputTaskRecPtr],y
	bne selection
;
	lda <TheTaskMask		Allow selection of inactive menu items?
	and #TM_INACTIVE
	beq exit1
;
	iny
	iny
	lda [<InputTaskRecPtr],y	Inactive item selected?
	beq exit1
;
	ldx #wInactMenu		Inactive item selected event.
	rts		No selection made.


;
; --- Handle special menu selection -----------------------------------------
;
selection	ldx #wInMenuBar		Application menu selection made.
;
	cmp #256		Special or desk accessory item ID?
	bcs doCtrlMenu		IDs greater than 255 are application's.
;
	cmp #250		Special or Desk accessory item ID?
	bccl desk_item
;
;
; ------ Special Undo, Cut, Copy, Paste, Clear, Close item ------------------
;
	lda <TheTaskMask
	and #TM_SPECIAL		Ok to handle it?
	beq skip4
;
	pha
	jsr PushFrontWindow
	_GetSysWFlag
	pla

	beqL doCtrlSpecial		Application window if positive.
;
;
; -------------- Handle special item for system window -----------------------
;
	ldy #TaskData		See if there was a selection.
	lda [<InputTaskRecPtr],y
	cmp #255		Close command?
	bne edit_item
;
;
; -----------------	Close item select with system window on	top --------------
;
	jsr PushFrontWindow
	_CloseNDAbyWinPtr		Close desk accessory window.
;
	lda #wClosedNDA		Tell user that desk	accessory was closed.
	brl unliteMenu
;
;
; -----------------	Edit item selected with system window on top -------------
;
edit_item	pha		Space for result.
	sec
	sbc #249		Proper command edit	command.
	pha
	_SystemEdit
	lda #wCalledSysEdit		Action, just in case.
	plx
	bne unliteMenu		Did Desk Manager handle it?

;
skip4	ldx #wInSpecial		Special menu item.
	rts


;---------------------------------------------------------------
;
; See if the controls want to know about menu selections
;
doCtrlMenu	ldy  #NewTaskRecord.TaskMask+2
	lda  [InputTaskRecPtr],y
	and  #tmControlMenu
	beq  @exit2

	phx		;save the correct menu event to return
	lda  [<InputTaskRecPtr]	;save the event.what field
	pha
	txa		;pass the correct menu event to the
	sta  [<InputTaskRecPtr]	;..control
	PushWordSpace		;space for result
	PushWord #True		;only send menu events to the active ctrl
	PushLong #0		;use the front window
	pei InputTaskRecPtr+2
	pei InputTaskRecPtr
	_SendEventToCtl
	pla
	beq  @exit1
	pla		;restore the event.what field
	sta  [<InputTaskRecPtr]
	pla		;cleanup the stack
	lda  #wInControlMenu
	bra  unliteMenu

@exit1	pla		;restore the event.what field
	sta  [<InputTaskRecPtr]
	plx		;get back the correct menu event
@exit2	rts


doCtrlSpecial	ldx  #wInSpecial		;use the wInSpecial event
	bra  doCtrlMenu



;
; --- Desk accessory menu item ---------------------------
;
desk_item	
	ldx #wInDeskItem		Desk accessory event, just in case.
;
	lda <TheTaskMask		Ok to handle desk accessory event?
	and #TM_OPENNDA
	beq exit2		Let application handle desk accessory.
;
	pha		Space for result.
	ldy #TaskData
	lda [<InputTaskRecPtr],y
	pha		Pass item ID number.
	_OpenNDA		Open desk accessory.
	pla		Throw away returned	ref value.
;
	lda #wInDeskItem		Tell application that a desk accessory
;			was opened.
	
unliteMenu
	sta <ThisAction

;
	pea 0		Unhighlight.
	ldy #TaskData+2
	lda [<InputTaskRecPtr],y	Pass selected menu's ID,
	pha		to HiliteMenu.
	_HiliteMenu
;
	ldx #Null		Menu selection was handled.
exit2	rts		x = task return code.



	ENDP


	title 'PushFrontWindow'
****************************************************************
*
PushFrontWindow	PROC
*
* Returns the pointer to the window's grafPort.
*
*
* Inputs:
*	none
*
* Outputs:
*	window's grafPort ptr on stack
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


	plx
	pha
	pha
	phx

	pha
	pha
	_FrontWindow
	pla
	plx

	sta 3,s
	txa
	sta 5,s

	rts

	ENDP




	title 'ckActivate'
****************************************************************
*
ckactivate	PROC
*
* Check to handle activate/inactivate events.
*
* WindPtr is trashed.
*
*
* Inputs:
*	TheTaskMask
*	InputTaskRecPtr
*
* Outputs:
*	none
*
* External Refs:
	import MakeGPIntoWP
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* Change History
*
* 01 Dec 88	Steven Glass
*
* If the window is active and the control tie bit is clear, 
* then we invalidate the controls (we used to draw the controls).
* Drawing the controls made them draw twice (once for activate
* and once for the update).  Now the only draw during the update.
*
****************************************************************

;
;
	lda <TheTaskMask	Check if it's ok to try and handle
	and #TM_CREDRAW	the event.
	beq exit	If not, just exit.
;
	jsr MakeGPIntoWP	turn TaskData into a pointer to wind record
;
	ldy #wframe	Check if controls are tied to window's
	lda [<WindPtr],y	activate state.
	and #F_CTL_TIE
	bne exit	If not, just exit.
;
	jsr breakout	Get window port pointer.
;
	ldy #NewTaskRecord.TaskModifiers
	lda [<InputTaskRecPtr],y
	and #$0001		; only care about low bit
	pha
	pei WindPtr+2
	pei WindPtr
;	_FutzCtls
	ldx #$3610
	jsl $E10000

exit	rts


	ENDP

	title 'MakeGPIntoWP'
****************************************************************
*
MakeGPIntoWP	PROC
*
* This routine takes the window's grafPort pointer in
* taskData and turns it into a window record pointer
* putting the result in WindPtr
*
*
* Inputs:
*	none
*
* Outputs:
*	WindPtr
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************



	stz <WindPtr
	stz <WindPtr+2

	ldy #TaskData+2	Break out pointer to window effected.
	lda [<InputTaskRecPtr],y
	dey
	dey
	tax
	beq IsZero

	lda [<InputTaskRecPtr],y
	sec
	sbc #wport
	sta <WindPtr
	bcs NoBorrow
	dex
NoBorrow	stx <WindPtr+2

IsZero	rts

	ENDP



	title 'InvertIfNecessary'
****************************************************************
*
InvertIfNecessary	PROC
*
* This routine takes a control handle as input in a & x and
* checks to see if the control is a checkbox or radio button
* control.  If it is such a control, we change the
* control value.
*
*
* Inputs:
*	a & x = control handle
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* Change History
*
* 19 Feb 89	STeven Glass
*
* This used to be in line code inside Taskmaster Content.
* It is now a subroutine so that it can be called from
* inside TaskMasterKey.
*
****************************************************************

	DefineStack
CallersD	word
TempA	long
TempB	long
RTS	word


	phx
	pha
	phx
	pha
	phd
	tsc
	tcd

	

	lda [TempA]		deref handle
	tax
	ldy #2
	lda [TempA],y
	sta TempB+2
	stx TempB

	ldy #NewCtlRecord.ctlProc	Look at the Proc ref
	lda [TempB],y
	bne NotSpecial		If not zero, its not check or radio
	iny
	iny
	lda [TempB],y
	and #$7FFF
	cmp #^checkControl**$7FFFFFFF	Is it check?
	bne NotCheck

	pha		Get Current Check value
	pei TempA+2
	pei TempA
	_GetCtlValue
	pla
	beq SetValueTo1

	PushWord #0
	bra SetTheValue


NotCheck	cmp #^radioControl**$7FFFFFFF	Is it radio
	bne NotSpecial


SetValueTo1	PushWord #1
SetTheValue	pei TempA+2
	pei TempA
	_SetCtlValue

NotSpecial	pld
	pla
	pla
	pla
	pla

	rts

	ENDP








	title 'ckDoubleClick'
****************************************************************
*
ckDoubleClick	PROC EXPORT
*
* Set the appropriate double click fields in the taskrecord.
*
*
*   IN:	x/a = pointer to task record.
*	Called only when there has been a button down.
*	ClickCount field must be set to zero by 
*	    application first time record is used.
*
*  Out:             All registers trashed.
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

;
@saveDpage	equ 1
@taskRec	equ @saveDpage+2
;
;
	phx	Save pointer to task record.
	pha
;
	phd	Save caller's direct page pointer.
	tsc	Switch direct page into stack.
	tcd
;
;
; --- Check if caller wants double-clicks checked.
;
	ldy #taskMask+2
	lda [<@taskRec],y
	and #tmMultiClick
	beq @exit
;
	ldy #clickCount	Is this the first time through?
	lda [<@taskRec],y
	beq @singleClick	Set first click.
;
;
; --- Check for multi click.
;
	ldy #when
	lda [<@taskRec],y	Time of this click.
	sec
	ldy #lastClickWhen
	sbc [<@taskRec],y	less time of last click,
	tax
	ldy #when+2
	lda [<@taskRec],y
	ldy #lastClickWhen+2
	sbc [<@taskRec],y	equals time inbetween.
	bne @singleClick	Is it a double click?
;
	phx	Save time between clicks.
	pha	Space for result.
	pha
	_GetDblTime
	pla
	plx
	cmp 1,s	Is double-click speed less than the
	pla	time between clicks?
	bcc @singleClick	If it is, no multi click, reset to single.
;
	ldy #lastClicky	Is position of new click near last?
	lda [<@taskRec],y
	sec
	ldy #where+y1
	sbc [<@taskRec],y
	clc
	adc #2
	cmp #7
	bcs @singleClick
;
	ldy #lastClickx
	lda [<@taskRec],y
	sec
	ldy #where+x1
	sbc [<@taskRec],y
	clc
	adc #3
	cmp #11
	bcs @singleClick
;
	ldy #clickCount	Multi click, increment number of clicks.
	lda [<@taskRec],y
	inc a
	bra @storeClick
;
;
; --- Set information about this click in task record.
;
@singleClick	lda #1	Set click number.
	ldy #clickCount
@storeClick	sta [<@taskRec],y

	ldy #when	Set when.
	ldx #lastClickWhen+2
	jsr @moveLong

	ldy #where	Set where.
	ldx #lastClicky+2
	jsr @moveLong
;
;
; --- Clean up stack and exit.
;
@exit	pld	Restore caller's direct page pointer.
	plx	clean up stack (removing pointer pushed at
	plx	beginning).
	rts

;--------------------------------------------
;	Move a long within task record.
;--------------------------------------------
;
;   IN: y = source index.
;       x = destination index + 2.
;
@moveLong	lda [<@taskRec],y
	pha
	iny
	iny
	lda [<@taskRec],y
	txy
	sta [<@taskRec],y
	dey
	dey
	pla
	sta [<@taskRec],y
	rts

	ENDP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/WindMgr/windmgr.asm b/IIGS.601.SRC/GSToolbox/WindMgr/windmgr.asm
new file mode 100644
index 0000000..0b17043
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/WindMgr/windmgr.asm
@@ -0,0 +1 @@
+**********************************************************************
*
*	Window Manager Version 3.2
*
*          Copyright Apple Computer, Inc. 1986-1992
*          All rights reserved
*          Written by Dan Oliver
*
* Change History
*
* 08/20/87 	Dan
*
* Start ROMing.
*
* 26 Jun 88	Harry Yee
*
* Converted to MAX
*
* 27 Jan 88	Steven Glass
*
* Removed Pop routines and used shared routines in WCM library.
* Used shared PushDPage routine in WCM library.
* Changed name of SetOrigin to SetTheOrigin to avoid naming conflict with 
*   QuickDraw.
*
* 29 Jun 88	Steven Glass
*
* Made WindDragRect public so that we can have control manager
* link to it in ROM.  (CtlStartup was getting address and patching
* call table.  This does not work in ROM so we must have right value
* in place to start with.)
*
* 14 JUL 88	Dan Oliver
*
* Changed TaskScroll routine so that it would not pass a negative X origin to new_origin.  The
* problem seems to be that a window's origin may not match the scroll bar values when the origin
* is being masked to a grid.  This is OK as long as the move deltas (as in this case) don't get
* out of range.  The top end of the range is checked in new_origin, the bottom is now checked in
* TaskScroll.
*
* 23 Jul 88	Steven Glass
*
* Changed CheckUpdate, TrackGoAway and TrackZoom so that when they
* return TRUE, all the bits in the returned word are set.  A problem has
* occured for developers using high level languages:  The language test
* for TRUE was not always working.  Pascal looks in bit 0, C looks in 
* bit 15.  By setting all the bits, it might work.
*
* 10 Aug 88	Dan Oliver
*
* Free allocated data area on shutdown.
*
* 20 Oct 88	Dan O.
*
* Added CompileString to function table.
* Added Window Manager error code equates.
*
* 21 Oct 88	Dan O.
*
* Changed airport & calc_vis routines to limit the window that have their visRgn recomputed
* when a window is brought to the top.  Now visRgns for windows behind the window being brought
* foreward are not recomputed.
*
* DragRect changed to draw 4 lines rather than 1 RECT.  This keeps the cursor from blinking off
* and on in some cases.
*
*
* 24 Oct 88	Dan O.
*
* Window Manager nows looks for DeskMessage (defined in Message Center documentation) to determine
* what to draw for the desktop.  The Window Manager does not look for the message each time, rather
* it is set by a Desktop call.
*
* Added an operation number FindDeskPatt (8) added to Desktop call.  No additional parameter 
* passed and no parameter returned.  This operation makes the Window Manager check the Message
* Center for a DeskMessage it can use to draw the desktop image.  If a message is found it will
* be used when drawing the desktop in the future.  This call will not redraw the desktop.
*
* WindStartup and WindNewRes make the above call to Desktop to log in any new desktop patterns.
*
*
* 10/28/88	Dan O.
*
* Added NewWindow2 call.
* Window Manager can now handle titles as handles.  If high bit set in title pointer it's a handle.
* Remove break from PaintDesk.
*
* 07 Dec 88	Steven Glass
*
* Added check to DeskTop and RefreshDesktop to see if the window
* manager is active.  These calls are special since they are
* made by the menu manager.  In the past, the menu manager could
* be used without the window manager.  When this occured, the window
* manager was not loaded and these calls generated dispatcher
* errors.  The check just added simulates dispatcher errors
* to keep the menu manager from crashing.
*
* 14 Dec 88	Mensch
*
* Modified NewWindw2 call so that it would conform to new toolbox verb/reference
* conventions. This required the addition of an extra parameter to be passed to
* the NewWindow2 call as well as a new parameter for the window template itself.
* NewWindow2 will now accept a pointer/handle/or resourceID as input for the template
* specifier.  In addition, the title, colortable, and control list fields can now also
* take pointers and handles.
*
* 1 Jan 89	Mensch
*
* Changed DragWindow so that it does not call ReadMouse.  This was done to allow
* journaling of clicks in a window's title bar.
*
* 9 Jan 89	Konstantin
*
* Added ErrorWindow call.
*
*
* 2 Mar 89	Dave Good
*
* Rewrote SelectWindow to not use the airport routine unless either the
* window that was selected or the previous topmost window was invisible.
* Also changed DragWindow to not call MoveWindow unless it was actually
* moved.
*
* 28 Mar 89	Steven Glass
*
* Removed some unimportant commented out lines left over from APW.
*
*
* 09 Apr 89	Steven Glass
*
* Changed CkButton where it sees if mouse is really down while we are waiting
* it to come up.  It was possible for MouseUp event to be left in the queue.
*
*
* 19 Apr 89	David Good
*
* Fixed bug in SelectWindow
*
*
* 26 Apr 89	David Good
*
* Fixed bug in EraseWindow (called by CloseWindow). If the WindGlobal
* flag said to NOT change the hilighting on windows, CloseWindow used to
* skip drawing. Now it just skips the hilighting, but it still draws the
* frame.
*
* 5/10/89	Mensch
* Fixed bug in GetFrameColor, it was not dereferencing the handle if the
* frame color table is stored in a handle.
*
* 5/11/89	Mensch
* Patched GetWRefCon so that it would not trash window manager temp storage.
* This was do in order to make List Plus still compatible.
*
* 20-Sep-90	Dave Lyons
*
* Version is $8303.
*
* 21-Sep-90	Dave Lyons
*
* Fixed ErrorWindow to return with the carry set appropriately
* (was always set before).
*
* Fixed window defproc not to draw titles outside the window for
* extremely narrow windows.
*
* 24-Sep-90	Dave Lyons
*
* Modified WindStatus to return SEC/A=0 if there are any pending
* BeginUpdates.  This indicates it isn't safe to create any new
* windows (and it'll make the OS use a text alert instead of an
* AlertWindow call).  Added WindowUpdateCount word, and modified
* BeginUpdate and EndUpdate to increment and decrement it.
* (WindowUpdateCount is inline currently--not ROMmable.)
*
* 26-Sep-90	Dave Lyons
*
* Put back all.macros.
*
* 26-Nov-90	Dave Lyons
*
* Added code at beginning and end of GrowWindow to preserve the
* zoomRect and wFrame in case the window doesn't change size at all.
*
* 19-Jan-91	Dave Lyons
*
* Adding new call $630E GetAuxWindInfo to return a pointer to the
* auxiliary window info record for a window.  I'm going to put several
* very cool tidbits of information about windows in there.
*
* Adding new calls DoModalWindow, MWGetCtlPart, MWSetMenuProc,
* MWStdDrawProc, MWSetUpEditMenu, FindCursorCtl.
*
* 21-Jan-91	Dave Lyons
*
* GetAuxWindInfo seems to be working.  WindShutDown disposes of the
* handle if it exists.  CloseWindow calls KillAuxInfoRecord for the
* window being closed.
*
* [See NewCalls.asm for more comments.]
*
* 5-Mar-91	Dave Lyons
*
* Added new ResizeInfoBar call for Andy N to use in the Finder.
* Code is in NewCalls.asm.
*
* 25-Mar-91	Dave Lyons
*
* Fixed bug in FindWindow where it was returning a window pointer,
* instead of NIL, when it reported that the point was in the menu
* bar.
*
* 12-Apr-91	Dave Lyons
*
* Add HandleDiskInsert to call table (code in NewCalls.asm).
* In WindStartUp, add call to HandleDiskInsert(1,0) to initialize.
*
* 15-May-91	Dave Lyons
*
* Fixed GetWKind/GetSysWFlag(NIL) to always return False.
*
* 20-May-91	Dave Lyons
*
* Made WindStartUp try to load and start QDAux if it isn't
* already started, so that AlertWindow can use DrawIcon.
*
* 16-Sep-91	Dave Lyons
*
* Made WindStartUp prelocate the 320 and 640 disk-swap icons
* so AlertWindow can avoid a reentrant call to LoadResource.
*
* 12-Dec-91	Dave Lyons
*
* Made Desktop(8) call SendRequest systemSaysNewDeskMsg (8).
* Desktop operations 5 and 8 now free the WM's old copy of
* the desk message, if it changes.
*
* 5-Feb-92	Dave Lyons
*
* Version $0303 for 6.0 final.
*
**********************************************************************
*
* 6-Mar-92	Dave Lyons
*
* Version $8304 for 6.1d2.
*
* Adding new call UpdateWindow.
*
* 1-Apr-93	Steve Stephenson
*
* Version $0304 for 6.0.1 final.
*
**********************************************************************
	Blanks off
	String asis

	include 'all.macros'

	include 'e16.control'
	include 'WindMgrEquates.asm'
	include '::ToolPatch:ToolPatchEquates.asm'

	include 'e16.event'

	MACRO
	PushAX
	phx
	pha
	MEND

	MACRO
	stax &addr,&regs
	IF &addr[1:1]='[' THEN
	  IF &regs='y' THEN
	    sta  &addr,y
	    iny
	    iny
	    txa
	    sta  &addr,y
	  ELSE
	    ldy  #&regs
	    sta  &addr,y
	    txa
	    ldy  #&regs+2
	    sta  &addr,y
	  ENDIF
	ELSEIF &regs='s' THEN
	  sta  &addr,s
	  txa
	  sta  &addr+2,s
	ELSEIF &regs='' THEN
	  sta  &addr
	  stx  &addr+2
	ELSE
	  sta  &addr,&offset
	  txa
	  sta  &addr+2,&offset
	ENDIF
	MEND


	MACRO
	ldax &addr,&regs
	IF &addr[1:1]='#' THEN
	  lda  #&addr[2:255]
	  ldx  #&addr[2:255]>>16
	ELSEIF &addr[1:1]='[' THEN
	  IF &regs='y' THEN
	    lda  &addr,y
	    pha
	    iny
	    iny
	    lda  &addr,y
	    tax
	    pla
	  ELSE
	    ldy  #&regs+2
	    lda  &addr,y
	    tax
	    ldy  #&regs
	    lda  &addr,y
	  ENDIF
	ELSEIF &regs='s' THEN
	  lda  &addr+2,s
	  tax
	  lda  &addr,s
	ELSEIF &regs='' THEN
	  lda  &addr
	  ldx  &addr+2
	ELSE
	  lda  &addr+2,&offset
	  pha
	  lda  &addr,&offset
	  plx
	ENDIF
	MEND


	MACRO
	ble &A
	blt  &A
	beq  &A
	MEND

	MACRO
	bgt &A
	beq  @dontTake
	bge  &A
@dontTake
	MEND

	MACRO
	bcsl &A
	bcc  @dontTake
	brl  &A
@dontTake
	MEND

	MACRO
	bccl &A
	bcs  @dontTake
	brl  &A
@dontTake
	MEND

	MACRO
	beql &A
	bne  @dontTake
	brl  &A
@dontTake
	MEND

	MACRO
	bnel &A
	beq  @dontTake
	brl  &A
@dontTake
	MEND

	MACRO
	bltl &A
	bge  @dontTake
	brl  &A
@dontTake
	MEND

	MACRO
	bgel &A
	blt  @dontTake
	brl  &A
@dontTake
	MEND

	MACRO
	bmil &A
	bpl  @dontTake
	brl  &A
@dontTake
	MEND

	MACRO
	bpll &A
	bmi  @dontTake
	brl  &A
@dontTake
	MEND

	MACRO
	blel &A
	blt  @takeBranch
	bne  @dontTake
@takeBranch	brl  &A
@dontTake
	MEND

	MACRO
	bgtl &A
	blt  @dontTake
	beq  @dontTake
	brl  &A
@dontTake
	MEND

;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

	IMPORT Add
	IMPORT AlertWindow
	IMPORT Ask
	IMPORT Check
	IMPORT Clear
	IMPORT ClipRgn
	IMPORT Clobbered
	IMPORT Clone
	IMPORT Close
	IMPORT Compute
	IMPORT Convert
	IMPORT Deallocate
	IMPORT Draw
	IMPORT Empty
	IMPORT Entry
	IMPORT ErrorWindow
	IMPORT Expand
	IMPORT Find
	IMPORT Free
	IMPORT Get
	IMPORT Intersection
	IMPORT Is
	IMPORT Make
	IMPORT Offset
	IMPORT Reset
	IMPORT Restore
	IMPORT Return
	IMPORT Save
	IMPORT Set
	IMPORT Shutdown
	IMPORT Subtract
	IMPORT Switch
	IMPORT TaskMaster
	IMPORT Tell
	IMPORT Window
	IMPORT alertDefProc
	IMPORT clip
	IMPORT docDefProc
	IMPORT makePattern

	import GetAuxWindInfo	;$630E added 19-Jan-91 DAL
	import DoModalWindow	;$640E added 19-Jan-91 DAL
	import MWGetCtlPart		;$650E added 19-Jan-91 DAL
	import MWSetMenuProc	;$660E added 19-Jan-91 DAL
	import MWStdDrawProc	;$670E added 19-Jan-91 DAL
	import MWSetUpEditMenu	;$680E added 19-Jan-91 DAL
	import FindCursorCtl	;$690E added 19-Jan-91 DAL
	import ResizeInfoBar	;$6A0E added 5-Mar-91 DAL
	import HandleDiskInsert	;$6B0E added 12-Apr-91 DAL

;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

	ENTRY BeginUpdate
	ENTRY BringToFront
	ENTRY CheckUpdate
	ENTRY CloseWindow
	ENTRY Desktop
	ENTRY DragWindow
	ENTRY DrawInfoBar
	ENTRY ENDFPT
	ENTRY EndFrameDrawing
	ENTRY EndInfoDrawing
	ENTRY EndUpdate
	ENTRY FindWindow
	ENTRY FrontWindow
	ENTRY GetCDraw
	ENTRY GetCOrigin
	ENTRY GetContRgn
	ENTRY GetDataSize
	ENTRY GetDefProc
	ENTRY GetDragRect
	ENTRY GetFirstWindow
	ENTRY GetFrameColor
	ENTRY GetInfoDraw
	ENTRY GetInfoRefCon
	ENTRY GetMaxGrow
	ENTRY GetNextWindow
	ENTRY GetPage
	ENTRY GetRectInfo
	ENTRY GetScroll
	ENTRY GetStructRgn
	ENTRY GetSysWFlag
	ENTRY GetUpdateRgn
	ENTRY GetWControls
	ENTRY GetWFrame
	ENTRY GetWKind
	ENTRY GetWMgrPort
	ENTRY GetWRefCon
	ENTRY GetWTitle
	ENTRY GetWindowMgrGlobals
	ENTRY GetZoomRect
	ENTRY GrowWindow
	ENTRY HideWindow
	ENTRY HiliteWindow
	ENTRY InvalRect
	ENTRY InvalRgn
	ENTRY MoveWindow
	ENTRY NewWindow
	ENTRY PaintDesk
	ENTRY PaintOne
	ENTRY PinRect
	ENTRY Refresh
	ENTRY Reserved
	ENTRY ResizeWindow
	ENTRY SelectWindow
	ENTRY SendBehind
	ENTRY SetCDraw
	ENTRY SetCOrigin
	ENTRY SetCOrigin2
	ENTRY SetDataSize
	ENTRY SetDefProc
	ENTRY SetFrameColor
	ENTRY SetInfoDraw
	ENTRY SetInfoRefCon
	ENTRY SetMaxGrow
	ENTRY SetOrgnMask
	ENTRY SetPage
	ENTRY SetScroll
	ENTRY SetSysWindow
	ENTRY SetWFrame
	ENTRY SetWMgrIcons
	ENTRY SetWRefCon
	ENTRY SetWTitle
	ENTRY SetZoomRect
	ENTRY ShowHide
	ENTRY ShowWindow
	ENTRY SizeWindow
	ENTRY StartDrawing
	ENTRY StartFrameDrawing
	ENTRY StartInfoDraw
	ENTRY SubStructLoop
	ENTRY TrackGoAway
	ENTRY TrackZoom
	ENTRY ValidRect
	ENTRY ValidRgn
	ENTRY WNewRes
	ENTRY WindBootInit
	ENTRY WindDragRect
	ENTRY WindReset
	ENTRY WindShutDown
	ENTRY WindStartup
	ENTRY WindStatus
	ENTRY WindVersion
	ENTRY WindowGlobal
	ENTRY ZoomWindow
	ENTRY activate
	ENTRY addframe
	ENTRY airport
	ENTRY alloc_rgn
	ENTRY allocate
	ENTRY calc_vis
	ENTRY callDrag
	ENTRY callProc
	ENTRY callProc2
	ENTRY clipabove
	ENTRY closeWMgrport
	ENTRY deactivate
	ENTRY def_color
	ENTRY deskBounds
	ENTRY dispatch
	ENTRY dispatch2
	ENTRY drawframe
	ENTRY erasewind
	ENTRY RealFastExit
	ENTRY find_top
	ENTRY findloc
	ENTRY finiupdate
	ENTRY fixworkptr
	ENTRY fullport
	ENTRY getWMgrCtls
	ENTRY get_long
	ENTRY get_port
	ENTRY get_portp2
	ENTRY get_portptr
	ENTRY get_wptr
	ENTRY getbounds
	ENTRY getbounds1
	ENTRY getbounds3
	ENTRY getcontwh
	ENTRY getpre
	ENTRY getwgrect
	ENTRY hilite
	ENTRY initres
	ENTRY intolist
	ENTRY longCall
	ENTRY moveWMgrOnWind
	ENTRY moveWmgrBack
	ENTRY new_size
	ENTRY openWMgrport
	ENTRY outoflist
	ENTRY paintonedown
	ENTRY pos_wind
	ENTRY pullparam
	ENTRY pushGP_Bounds
	ENTRY pushGray
	ENTRY pushWlong
	ENTRY pushandle
	ENTRY pushblitdes
	ENTRY pushblitsrc
	ENTRY pushcallProcList
	ENTRY pushclip
	ENTRY pushdrag_bound
	ENTRY pushfontHandle
	ENTRY pushparam
	ENTRY pushport
	ENTRY pushptr
	ENTRY pushrect
	ENTRY pushrgn2
	ENTRY pushrgnptr
	ENTRY pushscInfo
	ENTRY pushscreen
	ENTRY pushscrn2scrn
	ENTRY pushslop_bound
	ENTRY pushwork
	ENTRY pushwrect
	ENTRY pushyrat
	ENTRY restore_port
	ENTRY save_port
	ENTRY setCallProc
	ENTRY setTheOrigin
	ENTRY setWAP
	ENTRY setup
	ENTRY setwmgrport
	ENTRY sizeguts
	ENTRY startupdate
	ENTRY testVis
	ENTRY test_pt
	ENTRY testclip
	ENTRY tofront
	ENTRY trackbox
	ENTRY unhilite
	ENTRY wind320
	ENTRY wind640
	ENTRY wrect2rect
	ENTRY zeroOrigin
	ENTRY disposeRgnPtr
	ENTRY drawEntireFrame
	ENTRY offsetToLocal
	ENTRY offsetToGlobal

	import pop0bytes
	import pop2bytes
	import pop4bytes
	import Epop4bytes
	import pop6bytes
	import pop8bytes
	import pop10bytes
	import pop12bytes
	import pop16bytes
	import pop18bytes
	import pop26bytes
	import pop28bytes
	import pop32bytes
	
	import pushDpage

;=================================================
;          Window Manager Function Table
;=================================================

WindowCallTable	PROC EXPORT
	import TaskMasterContent
	import TaskMasterKey
	import TaskMasterDA
	import CompileString
	import NewWindow2
	import UpdateWindow

	EXPORT FPT
FPT	DC.W (ENDFPT-FPT)/4
	DC.W 0
	DC.L WindBootInit-1		;$010E
	DC.L WindStartup-1		;$020E
	DC.L WindShutDown-1		;$030E
	DC.L WindVersion-1		;$040E
	DC.L WindReset-1		;$050E
	DC.L WindStatus-1		;$060E
	DC.L Reserved-1		;$070E
	DC.L Reserved-1		;$080E
	DC.L NewWindow-1		;$090E
	DC.L CheckUpdate-1		;$0A0E
	DC.L CloseWindow-1		;$0B0E
	DC.L Desktop-1		;$0C0E
	DC.L SetWTitle-1		;$0D0E
	DC.L GetWTitle-1		;$0E0E
	DC.L SetFrameColor-1	;$0F0E
	DC.L GetFrameColor-1	;$100E
	DC.L SelectWindow-1		;$110E
	DC.L HideWindow-1		;$120E
	DC.L ShowWindow-1		;$130E
	DC.L SendBehind-1		;$140E
	DC.L FrontWindow-1		;$150E
	DC.L SetInfoDraw-1		;$160E
	DC.L FindWindow-1		;$170E
	DC.L TrackGoAway-1		;$180E
	DC.L MoveWindow-1		;$190E
	DC.L DragWindow-1		;$1A0E
	DC.L GrowWindow-1		;$1B0E
	DC.L SizeWindow-1		;$1C0E
	DC.L TaskMaster-1		;$1D0E
	DC.L BeginUpdate-1		;$1E0E
	DC.L EndUpdate-1		;$1F0E
	DC.L GetWMgrPort-1		;$200E
	DC.L PinRect-1		;$210E
	DC.L HiliteWindow-1		;$220E
	DC.L ShowHide-1		;$230E
	DC.L BringToFront-1		;$240E
	DC.L WNewRes-1		;$250E
	DC.L TrackZoom-1		;$260E
	DC.L ZoomWindow-1		;$270E
	DC.L SetWRefCon-1		;$280E
	DC.L GetWRefCon-1		;$290E
	DC.L GetNextWindow-1	;$2A0E
	DC.L GetWKind-1		;$2B0E
	DC.L GetWFrame-1		;$2C0E
	DC.L SetWFrame-1		;$2D0E
	DC.L GetStructRgn-1		;$2E0E
	DC.L GetContRgn-1		;$2F0E
	DC.L GetUpdateRgn-1		;$300E
	DC.L GetDefProc-1		;$310E
	DC.L SetDefProc-1		;$320E
	DC.L GetWControls-1		;$330E
	DC.L SetOrgnMask-1		;$340E
	DC.L GetInfoRefCon-1	;$350E
	DC.L SetInfoRefCon-1	;$360E
	DC.L GetZoomRect-1		;$370E
	DC.L SetZoomRect-1		;$380E
	DC.L Refresh-1		;$390E
	DC.L InvalRect-1		;$3A0E
	DC.L InvalRgn-1		;$3B0E
	DC.L ValidRect-1		;$3C0E
	DC.L ValidRgn-1		;$3D0E
	DC.L GetCOrigin-1		;$3E0E
	DC.L SetCOrigin-1		;$3F0E
	DC.L GetDataSize-1		;$400E
	DC.L SetDataSize-1		;$410E
	DC.L GetMaxGrow-1		;$420E
	DC.L SetMaxGrow-1		;$430E
	DC.L GetScroll-1		;$440E
	DC.L SetScroll-1		;$450E
	DC.L GetPage-1		;$460E
	DC.L SetPage-1		;$470E
	DC.L GetCDraw-1		;$480E
	DC.L SetCDraw-1		;$490E
	DC.L GetInfoDraw-1		;$4A0E
	DC.L SetSysWindow-1		;$4B0E
	DC.L GetSysWFlag-1		;$4C0E
	DC.L StartDrawing-1		;$4D0E
	DC.L SetWMgrIcons-1		;$4E0E
	DC.L GetRectInfo-1		;$4F0E
	DC.L StartInfoDraw-1	;$500E
	DC.L EndInfoDrawing-1	;$510E
	DC.L GetFirstWindow-1	;$520E added to version $8104
	DC.L WindDragRect-1		;$530E
	DC.L GetDragRect-1		;$540E not public.
	DC.L DrawInfoBar-1		;$550E
	DC.L WindowGlobal-1		;$560E added 02/19/87
	DC.L SetCOrigin2-1		;$570E added 04/07/87
	DC.L GetWindowMgrGlobals-1	;$580E added 03/08/88
	DC.L AlertWindow-1		;$590E added 11/03/87
	DC.L StartFrameDrawing-1	;$5A0E added 03/15/88
	DC.L EndFrameDrawing-1	;$5B0E added 03/15/88
	DC.L ResizeWindow-1		;$5C0E added 03/15/88

	dc.L TaskMasterContent-1	;$5D0E added 22 Sep 88  SEG
	dc.L TaskMasterKey-1	;$5E0E added 28 Sep 88  SEG
	dc.L TaskMasterDA-1		;$5F0E added 02 Oct 88  SEG
	dc.l CompileString-1	;$600E added 10/20/88 Dan O.
	dc.l NewWindow2-1		;$610E added 10/26/88 Dan O.
	dc.l ErrorWindow-1		;$620E added 1/9/89 Konstantin
*** 6.0
	dc.l GetAuxWindInfo-1	;$630E added 19-Jan-91 DAL
	dc.l DoModalWindow-1	;$640E added 19-Jan-91 DAL
	dc.l MWGetCtlPart-1		;$650E added 19-Jan-91 DAL
	dc.l MWSetMenuProc-1	;$660E added 19-Jan-91 DAL
	dc.l MWStdDrawProc-1	;$670E added 19-Jan-91 DAL
	dc.l MWSetUpEditMenu-1	;$680E added 19-Jan-91 DAL
	dc.l FindCursorCtl-1	;$690E added 19-Jan-91 DAL
	dc.l ResizeInfoBar-1	;$6A0E added 5-Mar-91 DAL
	dc.l HandleDiskInsert-1	;$6B0E added 12-Apr-91 DAL
*** 6.1
	dc.l UpdateWindow-1		;$6C0E added 6-Mar-92 DAL

	EXPORT ENDFPT
ENDFPT
	ENDP



WindowUpdateCount	proc export		;added 24-Sep-90 DAL
	dc.w 0
	EndP

;=========================================
;        Initialize	Window Manager
;=========================================
;
;  IN:     PUSH:WORD - ID to use.
;
; OUT:     Nothing.
;
WindStartup	PROC
	import SelfMod1Low,SelfMod1High,SelfMod2Low,SelfMod2High
	import DiskSwap640Hndl,DiskSwap320Hndl

newID	equ 9

	jsl IncBusyFlg

	phd	Save current zero page.

	tax	Am I already initialized?
	beq ok1
	phb
	jmp pop2bytes
ok1

*** added 16-Sep-91 DAL -- pre-locate the disk-swap icons
	pha
	pha
	pea $8001	;rIcon
	pea $07ff
	pea $0006	;disk-swap 640
	_LoadResource
	pla
	sta >DiskSwap640Hndl
	pla
	sta >DiskSwap640Hndl+2

	pha
	pha
	pea $8001	;rIcon
	pea $07ff
	pea $0106	;disk-swap 320
	_LoadResource
	pla
	sta >DiskSwap320Hndl
	pla
	sta >DiskSwap320Hndl+2
*** end 16-Sep-91

*** added 27-Sep-90 DAL (self-modify references to 640-solid color table)
	phb
	phk
	plb

	stz WindowUpdateCount	;as long as we have B right, zero this here

	pha
	pha
	_Get640Colors
	pla
	sta SelfMod1Low+1
	sta SelfMod2Low+1
	pla
	sta SelfMod1High+1
	sta SelfMod2High+1

	plb
*** end of 27-Sep-90 addition

*** added 12-Apr-91 DAL -- initialize the disk-insert stuff
	pha
	pha
	pea $2000	;18-Apr-91 DAL -- init everything to current (not offline)
	pea 0
	_HandleDiskInsert
	pla
	pla
*** added 12-Apr-91 DAL

*** added 20-May-91 DAL -- try to load and start QDAux if it isn't already here
	pea 0
	_QDAuxStatus
	pla
	bne @haveQDAux
	pea $0012	;tool set = QDAux
	pea $0304	;version = 3.4
	_LoadOneTool
	_QDAuxStartUp
@haveQDAux
*** end of 20-May-91 DAL

;
; --- Get zero page	to use from Event Manager and use it from now on -----
;
	pha	Space for returned zero page.
	_DoWindows	Ask Event Manager for zero page.
	pld	Switch to returned zero page.
;
	tdc	Pass direct page pointer to WAP.
	jsr setWAP
;
;
; --- Clear my half	of my direct page -----------------------
;
	ldx #$7E
clearzp	stz <$80,x
	dex
	bpl clearzp
;
;
; --- Allocate a data area block -----------------------------
;
	lda newID,s	My memory ID.
	sta <MyID
;
	lda #RAMSIZE	Size of data area needed.
	jsr allocate
	sta <work	Handle of data area.
	stx <work+2
	lda [<work]	Dereference handle.
	sta <data	Store pointer to data area.
	ldy #2
	lda [<work],y
	sta <data+2
;
;
; --- Initialize data area --------------------------------
;
	lda #0
	ldy #RAMSIZE-2
lop1	sta [<data],y
	dey
	dey
	bpl lop1
;
	jsr pushscInfo
	ldy #scrn2scrn+PP_SrcInfo
	jsr getPointer
;
	jsr pushscInfo
	ldy #scrn2scrn+PP_DesInfo
	jsr getPointer
;
	jsr pushblitsrc
	ldy #scrn2scrn+PP_SrcRect
	jsr getPointer
;
	jsr pushblitdes
	ldy #scrn2scrn+PP_DesRect
	jsr getPointer
;
;
; --- Initialize Manager's variables ----------------------
;
	ldy #defwindclr	Set current window color table pointer
	lda #def_color	to the default.
	sta [<data],y
	lda #def_color>>16
	iny
	iny
	sta [<data],y
;
	lda #docDefProc	Stuff address of doc window defProc in
	ldy #wmgr_wind+wDefProc window manager's dummy window record
	sta [<data],y	cause Word Perfect uses it as a window.
	lda #docDefProc>>16
	iny
	iny
	sta [<data],y
;
	jsr alloc_rgn	Allocate a region for the desktop.
	sta <GrayRgn
	stx <GrayRgn+2
;
	jsr initres	Do additional initialization for mode.
;
	phb
	jmp pop2bytes


;
;
; = = = = = = = = =	= = = = = = = = = =	= = =
;          Common code.
; = = = = = = = = =	= = = = = = = = = =	= = =
;
;   IN:    y = offset into data area to	store LONG value.
;          LONG value on stack.
;
;  OUT:    LONG value removed from stack and stored in data	area.
;
getPointer		; 
;
	plx
;
	pla
	sta [<data],y
	iny
	iny
	pla
	sta [<data],y
;
	phx
	rts
;
	ENDP
;
;
;=====================================================
;        Set up in current Screen Resolution.
;=====================================================
;
;   IN:    Nothing.
;  OUT:    Nothing.
;
WNewRes	PROC
;
;
;
	jsr setup
;
	jsr save_port
;
	jsr closeWMgrport	Close Window Manager's current port.
;
	jsr initres	Make needed initialization.
;
;
; --- Reinitialize bounds of all window	ports --------------------
;
	lda <topwind
	ldx <topwind+2
	bra enter1
;
lop1	ldy #scInfo+PortSCB
	lda [<data],y	Get current SCB byte.
	ldy #wport+GP_PortInfo+PortSCB
	sta [<wind],y	Set proper SCB byte.
;
	and #$0080	Get mode flag.
	php
	lda #320	Max port width for 320 mode.
	plp
	beq ok1	320 or 640 mode?
	asl a	Double width for 640 mode.
ok1	ldy #wport+GP_PortInfo+PBounds+x1
	clc
	adc [<wind],y
	ldy #wport+GP_PortInfo+PBounds+x2
	sta [<wind],y
;
	jsr moveWMgrOnWind	Move Window Manager's port on window.
	ldx #wCalcRgns
	jsr dispatch	Trash 'rect' and 'wrect'.
	jsr moveWmgrBack	Move Window Manager's port back.
;
	ldy #2	Next window.
	lda [<wind],y
	tax
	lda [<wind]
;
enter1	sta <wind
	stx <wind+2
	ora <wind+2	Any more windows?
	bne lop1
;
	jsr calc_vis
	jsr restore_port
;
exit	phb
	jmp pop0bytes
	ENDP
;
;
;===========================================
;        Initialize	for resolution.
;===========================================
;
initres	PROC
;
	IMPORT pushLocInfo1
;
;
; --- Open Window Manager's port -------------------------
;
	jsr save_port	Save current port.
;
	jsr openWMgrport	Open Window Manager's port.
;
	jsr pushscInfo	Pass address of scInfo.
	_GetPortLoc	Get the parameters of the screen.
;
	jsr pushLocInfo1	Pass address of locInfo1.
	_GetPortLoc	Get the parameters of the screen.
;
;
; --- Initialize my	variables for mode ------------------
;
	ldy #scInfo-1
	lda [<data],y
	and #$8000
	ldy #screenMode
	sta [<data],y
	tay
	bne do640
;
;
; ------ Initialize	for 320 mode -------------------------
;
	ldx #1	Thickness of vertical lines.
	lda #wind320	320 icon font.
	ldy #P_SOLID+$B0	Default desktop pattern.
	bra store1
;
;
; ------ Initialize	for 640 mode --------------------------
;
do640	ldx #2	Thickness of vertical lines.
	lda #wind640	640 icon font.
	ldy #P_SOLID+$D0	Default desktop pattern.


store1	sty <deskpatt	Initialize desktop pattern.
	ldy #$4000
	sty <deskpatt+2

	ldy #fontHandle	Initialize font handle.
	sta [<data],y	Put address of font	into dummy handle.
	lda #wind320>>16
	iny
	iny
	sta [<data],y

	ldy #lineW	Initialize thickness of vertical lines.
	txa
	sta [<data],y

	jsr pushfontHandle	Push pointer to fontHandle.
	pla
	ldy #windIconFont
	sta [<data],y	Store the icon font	handle.
	pla
	iny
	iny
	sta [<data],y


	pei <GrayRgn+2	Pass handle of region.
	pei <GrayRgn
	jsr pushscreen	Pass pointer to screen bounds.
	_RectRgn	Make desktop region	the entire screen.
;
;
; --- Initialize global widths and heights ------------------
;
; ------- Height of	window's title bar ----------------------
;
	jsr pushwork	Push address of work.
	_GetFontInfo

	lda <work	Font's ascent,
	clc
	adc #3	Pad the top.
	ldy #titleYPos
	sta [<data],y	Y position to print	title in title bar.
	clc
	adc <work+2	plus decent is the height.
	adc #2	Pad bottom.
	ldy #titleHeight
	sta [<data],y	That's the height of title bars.
;
; --- Compute width	and height of close	and zoom box --------------
;
	pha
	pha
	_GetFontID
	pha	Space for current font.
	pha
	_GetFont	Get handle of current font.

	ldy #windIconFont+2	Pass handle of icon	font.
	lda [<data],y
	pha
	dey
	dey
	lda [<data],y
	pha
	_SetFont	Switch to window icon font.

	pea 0	Close box character.
	jsr pushrect	Place to store bounds.
	_CharBounds

	lda <rect+y2	Compute height of close box icon.
	sec
	sbc <rect+y1
	ldy #closeHeight
	sta [<data],y	Keep height of close box (and zoom).

	lda <rect+x2	Compute width of close box icon.
	sec
	sbc <rect+x1
	ldy #closeWidth
	sta [<data],y	Keep width of close	box (and zoom).

	_SetFont	Restore original font.
	_SetFontID

	pea 8	Check if there is another desktop pattern.
	pha
	pha
	_Desktop

	brl restore_port	Restore original port.
	ENDP


;=================================================
;          Return status of Window Manager.
;=================================================
;
;   IN:    None.
;
;  OUT:    WORD - 1	if active, 0 if not	active.
;
;
; 24-Sep-90 DAL
; Now returns with the carry set if there are any windows
; being updated.
;
WindStatus	PROC
	
**	tax
**	beq store
**	lda #$0012	Dan O. version number.
**store
	sta 7,s	Return status.

	lda >WindowUpdateCount	;added 24-Sep-90
	cmp #1		;added 24-Sep-90

	lda #0
	rtl

	ENDP


;=========================================
;          Shut down Window Manager.
;=========================================
;
;   IN:  None.
;
;  OUT:  None.
;
WindReset	PROC

	jsl IncBusyFlg

	phd
	bra quicky

	ENTRY WindShutDown
WindShutDown	
	cmp #0	See if we are active
	bne @continue 	if a-reg is zero, we are not active!

	clc
	rtl

@continue

	jsl IncBusyFlg

	phd
	tcd
;
; --- Close every window, in every way -------------------------
;
	bra enter1
lop1	lda <topwind
	jsr get_portp2


	phx	; push window pointer for closewindow
	pha

	ldy #wFrame
	lda [<topwind],y
	and #$FFFF-f_Vis
	sta [<topwind],y

	_CloseWindow
;
enter1	lda <topwind+2
	tax
	ora <topwind
	bne lop1

*** 21-Jan-91 DAL
*** If there's an AuxWindHandle, dispose of it.
	lda <AuxInfoHandle+1
	beq @noHandle
	pei <AuxInfoHandle+2
	pei <AuxInfoHandle
	_DisposeHandle
	stz <AuxInfoHandle+1
@noHandle
*** end of 21-Jan-91 DAL

;
;
; --- refresh the desktop ----------------------------------
;
	PushLong #ScreenRect
	_RefreshDeskTop

;
;
; --- Free desktop region ----------------------------------
;
	jsr pushGray
	_DisposeRgn
;
;
; --- Close the Window Manager's port ----------------------
;
	jsr closeWMgrport	Close Window Manager's port.
;
	_CtlReset	Shutdown the Control Manager.
;
;
; --- Free allocated data area.
;
	pha
	pha
	pei <data+2	Find handle of data area.
	pei <data
	_FindHandle
	_DisposeHandle
;
;
; --- Set my Tool Locator variable to zero ------------------
;
quicky	lda #0	Clear WAP.
	jsr setWAP
;
	phb
	jmp pop0bytes	All done.


ScreenRect	dc.w 0,0,200,640

	ENDP
;
;
;===============================
;          Call SetWAP.
;===============================
;
;   IN:    a = value to pass to WAP.
;
setWAP	PROC
;
		;using equates
;
;
	ldx #0
	phx
	pea WindToolNum	Pass Window Manager	tool number.
	phx
	pha
	_SetWAP	Tell Tool Locator about it.
	rts
	ENDP
;
;
;=========================================
;        Stuff any update messages
;        into event	record.
;=========================================
;
;   IN:  PUSH:LONG - pointer to event record.
;
;  OUT:  WORD - 1 if update event passed, 0 if no update event found.
;
CheckUpdate	PROC
;
		;using equates
;
eventRec	equ 9
RetFlag	equ eventRec+4
;
;
	jsl IncBusyFlg

	phd	Save orginal zero page.
	tcd	Switch to my zero page.
;
	lda eventRec,s	Move event pointer into 'workptr'.
	sta <workptr
	lda eventRec+2,s
	sta <workptr+2
;
;
; --- Search window	list for windows with valid update regions ----------
;
	lda <topwind	Start with the top most window.
	ldx <topwind+2
lop	stx <wind+2
	sta <wind
	ora <wind+2
	beq exit	Any more windows?
;
; ------- Is the window even visible? ---------------------------
;
	jsr testVis	Test the window's F_VIS flag.
	beq nextwind	Only check visible windows.
;
; ------- Check if window's update region is empty -----------------
;
	pha	Space for result.
	ldy #wupdateRgn+2
	jsr pushandle	Push window's update region handle.
	_EmptyRgn	Check if region is empty.
	pla
	bne nextwind	Empty?
;
; ------- Pass update information in event record -------------------
;
	lda #6	Set event code.
	sta [<workptr]
;
	jsr get_portptr	Compute pointer to window's port.
;
	ldy #message	Return pointer to window
	sta [<workptr],y
	iny
	iny
	txa
	sta [<workptr],y
	lda #TRUE	Update flag.
	bra exit	That's it.
;
nextwind	ldy #2	Next window in list.
	lda [<wind],y
	tax
	lda [<wind]
	bra lop
;
;
exit	sta RetFlag,s	0 = no update, not 0 = update.
	phb
	jmp pop4bytes
	ENDP
;
;
;========================================
;          Redraw entire desktop.
;========================================
;
;   IN:    PUSH:LONG - pointer to RECT,	or zero for whole screen.
;  OUT:    None.
;
Refresh	PROC
;
;
;
badRect	equ 9
;
;
	tax
	bne @Continue
	lda #2
	sec
	rtl
@Continue

	jsl IncBusyFlg

	phd	Save zero page.
	tcd	Switch to my zero page.
;
;
; --- Check if caller wants whole screen -------------------------------
;
	lda badRect+2,s
	tay
	lda badRect,s
	tax
	bne skip1
	tya
	bne skip1	Use default whole screen RECT?
;
	jsr pushGP_Bounds	Push pointer to my port's bounds.
	plx
	ply
;
;
; --- Redraw the clobbered area ----------------------------------------
;
skip1	sty <work+2	Save address of RECT to redraw.
	stx <work
;
	jsr alloc_rgn	Allocate a temp work region, 'rgnptr'.
;
	jsr pushrgnptr	Pass address of clobbered region.
	pei <work+2	Pass address of clobbered RECT.
	pei <work
	_RectRgn	Set clobbered region to clobbered RECT.
;
	jsr setwmgrport
	jsr fullport
;
	pei <GrayRgn+2	Desktop,
	pei <GrayRgn
	jsr pushrgnptr	AND clobbered region.
	jsr pushrgnptr
	_SectRgn	rgnptr = rgnptr AND	GrayRgn.
;
	lda <topwind	Draw every window.
	sta <wind
	lda <topwind+2
	sta <wind+2
	jsr paintonedown
;
	jsr disposeRgnPtr	Free temp work region.
;
	jsr restore_port	Restore original port.
;
	phb
	jmp pop4bytes	Restore zero page.
	ENDP
;
;
;======================================================
;        Return Window Manager's Version Number
;======================================================
;  IN:   Nothing
; OUT:   WORD - version number.
;
WindVersion	PROC
	lda #$0304	;1-Apr-93 SS
	sta 7,s
	brl RealFastExit

	ENDP

;======================================================
;        Return pointer to Window Manager's port.
;======================================================
;  IN:   Nothing
; OUT:     LONG - pointer to Window Manager's port.
;
GetWMgrPort	PROC
;
;
result	equ 9
;
	jsl IncBusyFlg
;
	phd
	tcd
;
	jsr pushport	Push address of Window Manager port.
	pla	Return address of Window Manager port.
	plx
	bra return
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = =
;        Return pointer to current active window.
;100= = = = = = = =	= = = = = = = = = =	= = = = = = = = =
;
;  IN:   Nothing
;
; OUT:   LONG - pointer to current active window's port.
;
	ENTRY FrontWindow
FrontWindow		;       
;
	jsl IncBusyFlg
;
	phd
	tcd
;
	jsr find_top	Find the top most visible window.
	jsr get_portp2	Convert window pointer to port pointer.
	bra return
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = =
;          Return pointer to first
;          window in window list.
;110= = = = = = = =	= = = = = = = = = =	= = = =
;
;  IN:   Nothing
;
; OUT:   LONG - pointer to first window	in window list, zero if none.
;
	ENTRY GetFirstWindow
GetFirstWindow		;       
;
;
	jsl IncBusyFlg

	phd
	tcd
;
	lda <topwind	Return pointer to top window port.
	ldx <topwind+2
	bne ok1
	tay
	beq return
ok1	clc
	adc #wport
	bcc return
	inx
;
return	sta result,s	Return pointer to top window port.
	txa
	sta result+2,s
;
	phb
	jmp pop0bytes
;
	ENDP
;
;
;===============================================
;        Swap Window Manager Icon Font.
;===============================================
;
;   IN:    PUSH:LONG - handle of new Window Manager icon font, -1 for none.
;
;  OUT:    LONG - current (before swap)	icon font.
;
SetWMgrIcons	PROC
;
;
newFont	equ 9
oldFont	equ newFont+4
;
;
	jsl IncBusyFlg
	phd
	tcd
;
	ldy #windIconFont	Return old font.
	lda [<data],y
	sta oldFont,s
	iny
	iny
	lda [<data],y
	sta oldFont+2,s
;
	lda newFont+2,s	Use new font?
	bmi exit
;
	sta [<data],y	Initialize new icon	font.
	dey
	dey
	lda newFont,s
	sta [<data],y
;
exit	phb
	jmp pop4bytes
	ENDP
;
;
;===============================================================
;          Return pointer to Window Manager globals.
;===============================================================
;
GetWindowMgrGlobals	PROC
;
;
result	equ 9
;
;
	jsl IncBusyFlg
	phd
	tcd
;
	lda <data
	sta result,s
	lda <data+2
	sta result+2,s
;
	phb
	jmp pop0Bytes
	ENDP
;
;
;==================================================
;          Setup to	draw window frame.
;==================================================
;
;   IN:    PUSH:LONG - pointer to window RECORD to setup for.
;
	EXPORT StartFrameDrawing
StartFrameDrawing	PROC
;
		;using equates
;
theWindow	equ 9
;
;
	jsl IncBusyFlg
	phd	Save caller's direct page pointer.
	tcd	Switch to Window Manager's direct page.
;
	lda theWindow,s	Pass pointer to window record.
	sta <wind
	lda theWindow+2,s
	sta <wind+2
;
	jsr pushGray	Pass handle to desktop, source 1.
	ldy #wstrucRgn+2	Pass handle window's StructRgn.
	jsr pushandle
	jsr pushclip	Pass handle of region for result.
	_SectRgn	Intersection of strucRgn and desktop.
;
	jsr SubStructLoop	Subtract all windows above.
	jsr moveWMgrOnWind	Move Window Manager	port over window.
;
	phb
	jmp pop4bytes
	ENDP
;
;
;==================================================
;          Undo setup to draw window frame.
;==================================================
;
;   IN:    No inputs.
;          StartFrameDrawing must have been called.
;
	EXPORT EndFrameDrawing
EndFrameDrawing	PROC
;
	jsl IncBusyFlg
	phd	Save caller's direct page pointer.
	tcd	Switch to Window Manager's direct page.
;
	jsr moveWMgrBack
	jsr fullPort
;
	phb
	jmp pop0bytes


	ENDP
;
;
;            APPEND	WREGION.ASM
	TITLE 'Apple IIGS Window Manager                   WREGION.ASM'
;
;          Copyright Apple Computer, Inc. 1986,1987,1988
;          All rights reserved
;          Written by Dan Oliver
;
;
;======================================================
;          Subtract	region from update region.
;======================================================
;
;   IN:    PUSH:LONG - handle of region	to take from window's update region.
;          Current port is window's.
;
;  OUT:    None.
;
ValidRgn	PROC
;
;
;
	ldx #1	Subtract region flag.
	bra common100
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = =
;          Add region to update region.
;100= = = = = = = =	= = = = = = = = = =	= = = =
;
;   IN:    PUSH:LONG - handle of region	 to be added to window's update region.
;          Current port is window's.
;
;  OUT:    None.
;
	ENTRY InvalRgn
InvalRgn		;       
;
badRgn	equ 9
;
;
	ldx #0	Add flag.
;
common100	
	jsl IncBusyFlg
	phd	Save caller's zero page.
	tcd	Switch to my zero page.
;
	jsr chg_update	Add the region to the update region.
;
	phb
	jmp pop4bytes
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = =
;          Subtract	RECT to update region.
;110= = = = = = = =	= = = = = = = = = =	= = = = = = =
;
;   IN:    PUSH:LONG - pointer to RECT to take from window's update region.
;          Current port is window's.
;
;  OUT:    None.
;
	ENTRY ValidRect
ValidRect		;       
;
;
	ldx #1	Subtract flag.
	bra common120
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = =
;          Add RECT	to update region.
;120= = = = = = = =	= = = = = = = = = =	= = = =
;
;   IN:    PUSH:LONG - pointer to RECT to be added to window's update region.
;          Current port is window's.
;
;  OUT:    None.
;
	ENTRY InvalRect
InvalRect		;       
;
	ldx #0	Add flag.
;
common120	
	jsl IncBusyFlg
	jsr init_rgn	Allocate and initialize temp region.
;
	jsr disposeRgnPtr	Free temp region.
;
	phb
	brl pop4bytes
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = =
;       Get window pointer from current	port
;130= = = = = = = =	= = = = = = = = = =	= = = = = = =
;
init_rgn	ply	Get return address.
;
	phd	Save caller's zero page.
	tcd	Switch to my zero page.
;
	phy	Put return address back.
;
;
; --- Allocate and initialize a temp region -------------
;
	stx <work	Save operation flag.
;
	jsr alloc_rgn	Get temp region.
;
	jsr pushrgnptr	Set temp = to given	RECT.
	lda 17,s	Pass address of RECT.
	pha
	lda 17,s
	pha
	_RectRgn
;
	lda <rgnptr	Replace pointer to RECT with region.
	sta 11,s
	lda <rgnptr+2
	sta 13,s
;
	ldx <work	Save operation flag.
;
;
chg_update	stx <work	Save operation.
;
	jsr get_port
;
; --- Convert region to global coordinates ------------------
;
	lda 13,s	Region handle.
	pha
	lda 13,s
	pha
	ldy #wport+GP_Bounds+x1 Get window's port offset.
	lda [<wind],y
	eor #$FFFF
	inc a
	pha
	dey
	dey
	lda [<wind],y
	eor #$FFFF
	inc a
	pha
	_OffsetRgn
;
;		            
; --- Add/Subtract region to update region ------------------------
;
	ldy #wupdateRgn+2	Starting region.
	jsr pushandle
	lda 17,s	Region to subtract.
	pha
	lda 17,s
	pha
	ldy #wupdateRgn+2	Region to place result.
	jsr pushandle
;
	lda <work	Was that add or subtract?
	beq add2
;
	_DiffRgn	Subtract region.
	rts
;
add2	_UnionRgn	Add region
	rts
;
	ENDP
;
;
;=======================================================================
;          Set the window's origin to draw.
;          The caller should perform SetOrigin(0,0) when done.
;=======================================================================
;
;   IN:    PUSH:LONG - pointer to window's port.
;
;  OUT:    None.
;                Current port equals window's.
;                Origin set.
;
StartDrawing	PROC
;
;
;
	jsr setup
;
	lda #wStartDrawing	Pass command to defProc.
	jsr callProc2	Call window's defProc.
;
	phb
	brl pop4bytes
	ENDP
;
;
;======================================
;        Replace visRgn with
;        visRgn AND	wupdateRgn.
;======================================
;
;   IN:  PUSH:LONG - pointer to window's port.
;
;  OUT:  Nothing.
;
	EXPORT BeginUpdate
BeginUpdate	PROC

	jsr setup

	lda >WindowUpdateCount	;added 24-Sep-90 DAL
	inc a		;added 24-Sep-90 DAL
	sta >WindowUpdateCount	;added 24-Sep-90 DAL

	jsr startupdate

	jsr get_portptr	Get pointer to window's port.
	phx
	pha
	_SetPort

	phb
	brl pop4bytes
;
;
; = = = = = = = = =	= = = = = = = = = =	= =
;          Guts of BeginUpdate.
;100= = = = = = = =	= = = = = = = = = =	= =
;
;   IN:    wind = window pointer.
;
;  OUT:    window's visRgn = update region.
;          port = window's.
;
	EXPORT startupdate
startupdate		;       
;
;
; --- Convert updateRgn to local coordinates ------------------
;
	ldy #wupdateRgn+2
	jsr pushandle
	ldy #wport+GP_Bounds+x1 Get window's port offset.
	jsr pushWlong
	_OffsetRgn	Make update local to window.
;
;
; --- updateRgn = updateRgn AND visRgn ------------------------
;
	ldy #wport+GP_VisRgn+2
	jsr pushandle	Pass the visRgn handle.
	ldy #wupdateRgn+2	Pass the update region handle.
	jsr pushandle
	ldy #wupdateRgn+2	Put the intersection of vis and
	jsr pushandle	update into update.
	_SectRgn	Get the intersection.
;
;
; --- Switch the visRgn and updateRgn handles ----------
;
	jsr swapRgn
;
;
; --- Switch to the	window's port ----------------------
;
	jsr save_port	Save the original port.
	rts
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = =
;          Replace visRgn with wupdateRgn.
;110= = = = = = = =	= = = = = = = = = =	= = = = = = =
;
;   IN:    PUSH:LONG - pointer to window's port.
;
;  OUT:    Nothing.
;
	EXPORT EndUpdate
EndUpdate

	jsr setup

	lda >WindowUpdateCount	;added 24-Sep-90 DAL
	dec a		;added 24-Sep-90 DAL
	sta >WindowUpdateCount	;added 24-Sep-90 DAL

	jsr finiupdate
	phb
	brl pop4bytes
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = =
;          Guts to EndUpdate.
;120= = = = = = = =	= = = = = = = = = =	= = = = = = =
;
;   IN:    wind = window pointer.
;
	EXPORT finiupdate
finiupdate
;
	jsr swapRgn	Exchange updateRgn and visRgn handles.
;
	ldy #wupdateRgn+2
	jsr pushandle	Push updateRgn handle.
	_SetEmptyRgn	Empty the update region.
;
	brl restore_port	Restore original port.
;
;	       
; = = = = = = = = =	= = = = = = = = = =	= = = = = = =
;        Swap updateRgn and visRgn handles.
;130= = = = = = = =	= = = = = = = = = =	= = = = = = =
;
;   IN:    <wind = pointer to window.
;
swapRgn	ldy #wport+GP_VisRgn+2
	jsr pushandle	Save the visRgn handle.
;
	ldy #wupdateRgn+2
	jsr pushandle	Get the handle for updateRgn.
	ldy #wport+GP_VisRgn Store wupdateRgn handle in visRgn.
	pla
	sta [<wind],y
	iny
	iny
	pla
	sta [<wind],y
;
	ldy #wupdateRgn	Store visRgn handle	in wupdate.
	pla
	sta [<wind],y
	iny
	iny
	pla
	sta [<wind],y
	rts
;
	ENDP
;
;
;========================================
;        Redraw a clobbered region.
;========================================
;
;   IN:  wind = window to start with, and go down list from	there.
;        rgnptr = clobbered region.
;
;  OUT:  wind trashed.
;        rgnptr trashed.
;
paintbehind	PROC
;
; --- Go down list and draw all windows	-----------
;
lop1	ldy #2	;Next window.
	lda [<wind],y
	tay
	lda [<wind]
	sta <wind
	sty <wind+2
;
;
	ENTRY paintonedown
paintonedown
;
	jsr PaintOne	;Paint the window.
;
	lda <wind
	ora <wind+2
	bne lop1
;
	rts
;
;
; = = = = = = = = =	= = = = = = = = = =	= =
;        Draw a single window.
;100= = = = = = = =	= = = = = = = = = =	= =
;
;   IN:    wind = window to be drawn, zero to draw desktop pattern.
;          rgnptr =	handle of region to	be redrawn (clobbered region).
;          Current port = window manager's.
;
;  OUT:    rgnptr =	rgnptr - redrawn area.
;
	ENTRY PaintOne
PaintOne
;
	lda <wind	Is window NIL?
	ora <wind+2
	bne gopaintone
;
;
; --- Draw desktop in clobbered region -----------
;
	jsr pushrgnptr
	jsr pushclip
	_CopyRgn
;
	jsr PaintDesk	Fill the current port with desktop.
;
	jsr pushrgnptr	Clobbered region.
	_SetEmptyRgn	Clear clobbered region, all painted.
toExit100	brl exit100
;
;
; --- Draw the given window in the given region ------------------
;
gopaintone	jsr testVis	Test the window's F_VIS flag.
	beq toExit100	Don't draw invisible windows
;
	jsr pushrgnptr	Pass handle of clobbered region.
	ldy #wstrucRgn+2	Pass handle window's StructRgn.
	jsr pushandle
	jsr pushclip	Pass clip region handle.
	_SectRgn	ClipRgn = clobbered	and wind StructRgn
;
	jsr testclip	Is clip region empty?
	bne toExit100
;
;
; ------- There is something to draw -----------------------
;
	jsr clipabove	Subtract windows above 'wind' from clip
	bne toExit100	Anything left in clip region?
;
;
; --- Draw window's frame --------------------------------------
;
	jsr drawframe
;
;
; --- Subtract redrawn area from clobbered region ----------
;
	jsr pushrgnptr	Clobbered region.
	jsr pushclip	Subtract redrawn region from clobbered.
	jsr pushrgnptr	Result in clobbered	region.
	_DiffRgn	Clobbered = clobbered - redrawn.
;
;
; --- Compute clobbered content region ------------------
;
	ldy #wcontRgn+2	Region 1, content region.
	jsr pushandle
	jsr pushclip	Region 2, clobbered	region.
	jsr pushclip	Result into clip.
	_SectRgn
;
;
; --- Erase content	area to be redrawn -------------------------
;
	jsr pushclip	Content part needing to be redrawn.
	ldx <wind+2	Pass address of window's background
	lda <wind	pattern.
	clc
	adc #wport+GP_BkPat
	bcc store100
	inx
store100	phx
	pha
	_FillRgn	Draw floor of content area.
;
;
; --- Add clobbered	content area to window's update region --------------
;
	jsr pushclip	Clobbered part of content region.
	ldy #wupdateRgn+2	Current update region for window.
	jsr pushandle
	ldy #wupdateRgn+2	Result in window's update region.
	jsr pushandle
	_UnionRgn	Add the clobbered to the update.
;
exit100	jsr fullport	Set clip to full desktop.
	rts
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = =
;        Fill screen with desktop pattern.
;110= = = = = = = =	= = = = = = = = = =	= = = = = = =
;
	ENTRY PaintDesk
PaintDesk

	IMPORT pushLocInfo1
	IMPORT pushDataAddr


	lda <deskpatt+2	Get format of desktop pattern.
	and #$FF00
	xba
	cmp #$0080
	beq readyPatt
	cmp #$0040
	beq makePatt
	asl a
	tax
	jmp (@types,x)
@types	dc.w customType
	dc.w messageType


;
; --- Pattern pointer in deskpatt.
;
readyPatt	jsr pushscreen	Pass pointer to screen bounds.
	pei <deskpatt+2	Pass address of fill pattern.
	pei <deskpatt
	_FillRect	Draw desktop.
	rts
;
;
; --- Pattern number in deskpatt.
;
makePatt	jsr pushscreen	Pass pointer to screen bounds.
	ldy <deskpatt	Pass pattern number to generate.
	lda <data	Pass pointer to global data area.
	ldx <data+2
	jsr makePattern	Generate pattern.
	phx	Pass address of generated pattern
	phy
	_FillRect	Draw desktop.
	rts
;
;
; --- Call outside routine to draw desktop.
;
customType	ldx <deskpatt+1	Address of routine to draw desktop.
	lda <deskpatt
	jsl longCall	Make long distance call.
	rts
;
;
; --- deskpatt is a handle deskMessage that defines desktop.
;
messageType	ldy #4	Lock message.
	lda [<deskpatt],y
	pha		Save attributes.
	ora #$8000
	sta [<deskpatt],y
;
	pei <work+2		Save.
	pei <work
;
	ldy #2	Dereference the message.
	lda [<deskpatt],y
	sta <work+2
	lda [<deskpatt]
	sta <work
;
	ldy #messFormat	Dispatch to message format handler.
	lda [<work],y
	asl a
	tax
	jsr (@formats,x)
;
	pla		Restore.
	sta <work
	pla
	sta <work+2
;
	ldy #4	Restore handle's attributes.
	pla
	sta [<deskpatt],y
	rts
;
@formats	dc.w @pattern	0
	dc.w @picture	1
;
;
;----------------------------------------------------------
;	Pattern message handler.
;----------------------------------------------------------
;
@pattern	jsr pushscreen	Pass pointer to screen bounds.
	jsr @getMessInfo	Pass pattern pointer.
	phx
	pha
	_FillRect	Draw desktop.
	rts
;
;
;----------------------------------------------------------
;	Picture message handler.
;----------------------------------------------------------
;
@picture	jsr @getMessInfo		Store address of image in locInfo record.
	ldy #LocInfo1+PixelImage
	sta [<data],y
	iny
	iny
	txa
	sta [<data],y
;
	jsr pushLocInfo1		Pass pointer to LocInfo record.
	lda #LocInfo1+PBounds	Pass pointer to source RECT.
	jsr pushDataAddr
	lda #0			Common need.
	pha		Pass destination point.
	pha
	pha
	_PPToPort
	rts
;
;
;------------------------------------------------------------------------------
;	Compute pointer to messInfo part of message.
;------------------------------------------------------------------------------
;
@getMessInfo	ldx <work+2	Compute pointer to info part of message.
	lda <work
	clc
	adc #messInfo
	bcc @ok100
	inx
@ok100	rts
;
	ENDP
;
;
;==========================================================
;        Compute visible region of window's content.
;==========================================================
;
;   IN:    Nothing.
;
;  OUT:    Visible content computed for	every window.
;          'wind' preserved.
;
calc_vis	PROC
	EXPORT calc_vis2
;
	lda #0	Calc to bottom window.
	tax
;
;
;  IN: x/a = window to stop at, this window and below does not have its visRgn computed.
;
stopWindow	equ 1
;
calc_vis2	pei <wind	Saves.
	pei <wind+2
;
	phx	Save window to stop at.
	pha
;
	lda <FloorRgn+1	Is there a floor region?
	beq skip1
;
	jsr pushGray	Copy desktop region	into FloorRgn.
	pei <FloorRgn+2
	pei <FloorRgn
	_CopyRgn
;
;
skip1	lda <topwind	Start with the top window.
	ldy <topwind+2
	bra enter1
;
lop1	jsr testVis	Test the window's F_VIS flag.
	beq nextwind
;
;
	ldy #wcontRgn+2	Pass handle of window's content.
	jsr pushandle
	jsr pushclip	Pass handle of clip	region.
	_CopyRgn	clip = wcontRgn.
;

	jsr clipabove	Subtract all windows above.
;
	jsr pushclip
	ldy #wport+GP_Bounds+x1 Get window's port offset.
	jsr pushWlong
	_OffsetRgn	Make clip local to window.
;
	jsr pushclip	Put visible content	into visRgn.
	ldy #wport+GP_VisRgn+2
	jsr pushandle
	_CopyRgn
;
;
	lda <FloorRgn+1	Is there a Floor region?
	beq nextwind
;
	pei <FloorRgn+2	From the Floor region,
	pei <FloorRgn
	ldy #wstrucRgn+2	subtract the window's entire region,
	jsr pushandle
	pei <FloorRgn+2	and place the answer back in the Floor.
	pei <FloorRgn
	_DiffRgn
;
;
;
nextwind	ldy #2	Next window.
	lda [<wind],y
	tay
	lda [<wind]
;
enter1	sta <wind
	sty <wind+2
;
	cmp stopWindow,s	Stop at this window?
	bne lop1
	tya
	cmp stopWindow+2,s
	bne lop1
;
;
	jsr fullport	Reset Window Manager's clip.
;
	pla	Get rid of window to stop at.
	pla
;
	pla	Restores.
	sta <wind+2
	pla
	sta <wind
	rts
	ENDP
;
;
;==================================================
;        Remove any	thing that doesn't
;        belong to 'wind from clip region.
;==================================================
;
;   IN:  wind = window to start with.
;
;  OUT:  clip = intersection of clip region and desktop,
;	   less windows above.
;        Equal = FALSE if 'rgnptr' region is NIL.
;
clipgabove	PROC
;
		;using equates
;
;
	jsr fullport	Set port to GrayRgn.
	brl SubStructLoop
;
	ENTRY clipabove
clipabove		;       
;
	jsr pushGray	Pass handle to desktop, source 1.
	jsr pushclip	Pass handle of clip	region, source 2.
	jsr pushclip	Pass handle of region for result.
	_SectRgn	Intersection of clip and desktop.
;
	brl SubStructLoop	Subtract all windows above and exit.
	ENDP
;
;
;======================================
;        Set current port (wmgr)
;        to GrayRgn	(desktop).
;=======================================
;
fullport	PROC
;
	jsr pushGray	Clip to whole desktop.
	jsr pushclip
	_CopyRgn
	rts
	ENDP
;
;
;================================================
;        Subtract all windows above 'wind'
;        from clip region.
;================================================
;
;   IN:  wind = window to start with.
;        clip = region to subtract from.
;
;  OUT:  clip = clip region less windows above 'wind'.
;        Equal = FALSE if 'rgnptr' is NIL.
;
SubStructLoop	PROC
;
		;using equates
;
;
	lda <topwind	Start subtracting from top window.
	ldx <topwind+2
	bra enter1
;
lop1	ldy #wframe	Is this window visible.
	lda [<work],y
	and #F_VIS
	beq nextwind	Don't subtract invisible windows.
;
	jsr pushclip	Pass region handle,	source 1.
	ldy #wstrucRgn+2
	lda [<work],y
	pha
	dey
	dey
	lda [<work],y
	pha	Pass window's StructRgn, source 2.
	jsr pushclip	Region handle, destination.
	_DiffRgn	Find the difference.
;
;
nextwind	ldy #2	Get pointer to next	window.
	lda [<work],y
	tax
	lda [<work]
enter1	sta <work
	stx <work+2
;
	cmp <wind	Have we reached the	given window?
	bne lop1
	cpx <wind+2
	bne lop1
;
exit	brl testclip	Set flag to empty or not and return.
	ENDP
;
;
;==================================================
;        Test if region in 'rgnptr' is NIL.
;==================================================
;
;   IN:  rgnptr = handle of region to check.
;
;  OUT:  Equal is FALSE (a=nonzero) if 'rgnptr' is empty.
;
testrgnptr	PROC
;
		;using equates
;
;
	pha	Space for returned value.
	jsr pushrgnptr	Pass handle in 'rgnptr'.
	bra testrgn
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = =
;        Test if clip region is empty.
;100= = = = = = = =	= = = = = = = = = =	= = = = =
;
;   IN:  Clip region to check is current port.
;
;  OUT:  Equal is FALSE (a=nonzero) if clip region is empty.
;
	ENTRY testclip
testclip		;       
;
	pha	Space for returned value.
	jsr pushclip	Pass handle of clip	region.
;
testrgn	_EmptyRgn	Is the region empty?
	pla	Set return flag.
	rts
;
	ENDP
;
;
;============================
;        Edit Desktop
;============================
;
;   IN:  PUSH:WORD - operation number:
;	                  0	= subtract region from desktop.
;	                  1	= add region to desktop.
;	                  2	= return handle of desktop region.
;	                  3	= set handle of desktop region.
;	                  4	= return desktop pattern.
;	                  5	= set new desktop pattern.
;	                  6	= return visible desktop.
;	                  7	= install background region.
;	                  8 = check for new desktop pattern in message center.
;        PUSH:LONG - input parameter.
;
;  OUT:  LONG - output parameter.
;
Desktop	PROC
;
	IMPORT allocate3
;
in_param	equ 9
operation	equ in_param+4
out_param	equ operation+2
;
;
	tax
	bne @Continue
	lda #2
	sec
	rtl
@Continue
;
	jsl IncBusyFlg
;
	phd	Save orginal zero page.
	tcd	Switch to my zero page.
;
	lda operation,s
	asl a
	tax
	lda >op_table,x
	pha
	lda in_param+4,s
	tax
	lda in_param+2,s
	rts	Go to operation.
;
op_table	DC.W FromDesk-1		0
	DC.W ToDesk-1		1
	DC.W GetDesktop-1		2
	DC.W SetDesktop-1		3
	DC.W GetDeskPat-1		4
	DC.W SetDeskPat-1		5
	DC.W VisDesktop-1		6
	DC.W BackRegion-1		7
	dc.w desktopMessage-1	8
;
;
; --- Check for new desktop pattern message.
;
GetMessage	equ 2	Message command.
DeskMessage	equ 2	Message type.
;
desktopMessage	lda #24	Number of bytes to allocate.
	ldx #0	Handle attributes.
	ldy <MyID
	jsr allocate3
	sta <work	Save handle.
	stx <work+2
;
	pea GetMessage	Pass action value.
	pea DeskMessage	Pass type of message.
	phx	Pass handle to MessageCenter.
	pha
	_MessageCenter	Parameters on stack.
	bcc @ok1	Was a pattern message found?
;
	pei <work+2
	pei <work
	_DisposeHandle	Handle not used or needed.
	brl exit2
;
@ok1
*** added 12-Dec-91 DAL -- if old pattern was pat/pic handle, dispose it
	lda <deskpatt+2
	and #$ff00
	cmp #$0100
	bne @notHandle
	lda <deskPatt+2
	and #$00ff
	pha
	pei <deskPatt
	_DisposeHandle
@notHandle
*** end 12-Dec-91
	lda <work	Set handle of desktop image.
	sta <deskpatt
	lda <work+2
	ora #$0100	Set flag that tell format of data in deskpatt.
	sta <deskpatt+2
*** added 12-Dec-91 DAL -- tell anyone who cares of new message
	pea 8	;reqCode = systemSaysNewDeskMsg
	ldx #0
	phx	;sendToAll
	phx
	phx	;target=NIL
	phx
	phx	;dataIn=NIL
	phx
	phx	;dataOut=NIL
	_SendRequest
*** end 12-Dec-91
	brl exit2
;
;
; --- Install a background region --------------------------------
;
BackRegion	sta <FloorRgn
	stx <FloorRgn+2
	brl exit2
;
;
; --- Add/Subtract region from the desktop ------------------------
;
ToDesk		; 
FromDesk	pei <GrayRgn+2	Pass handle to current desktop region.
	pei <GrayRgn
	phx	Pass handle of given region.
	pha
	pei <GrayRgn+2	Put result in desktop region.
	pei <GrayRgn
;
	ldx #UnionRgn
	lda operation+12,s	Union of Diff call?
	bne ok1
	ldx #DiffRgn
ok1	jsl $E10000	Execute _UnionRgn or _DiffRgn.
;
	jsr calc_vis	Recompute visRgns for every window.
	bra exit2
;
;
;
; --- Set new handle to desktop region ------------------------
;
SetDesktop	sta <GrayRgn
	stx <GrayRgn+2
;
	jsr calc_vis	Recompute visRgns for every window.
;
;
; --- Return handle	of desktop region -------------------------
;
GetDesktop	lda <GrayRgn
	ldx <GrayRgn+2
	bra exit
;
;
; --- Install new desktop pattern -----------------------------
;
SetDeskPat
*** added 12-Dec-91 DAL -- dispose of old pic/patt handle if present
*** (Keep it if it matches the new one, so you can set the pattern to
*** its current value to refresh!)
	phx
	pha
	lda <deskPatt+2
	and #$ff00
	cmp #$0100
	bne @noDispose

	lda <deskPatt+2
	cmp 3,s
	bne @killOld
	lda <deskPatt
	cmp 1,s
	beq @noDispose

@killOld	lda <deskPatt+2
	and #$00ff
	pha
	pei <deskPatt
	_DisposeHandle
@noDispose	pla
	plx
*** end 12-Dec-91
	sta <deskpatt
	stx <deskpatt+2
	bra skip1	Paint new desktop.
;
;
; ------ Return visible desktop ----------------------------------
;
VisDesktop	sta <rgnptr	Save given region.
	stx <rgnptr+2
;
;
; ------ Paint new desktop ---------------------------------------
;
skip1	jsr setwmgrport	Switch to Window Manager's port.
	jsr fullport	Make sure port's clip is entire desktop.
;
	stz <wind	Subtract all windows from clip.
	stz <wind+2
	jsr SubStructLoop
;
	lda operation,s
	cmp #6
	bne skip2
;
	jsr pushclip	Copy visible desktop
	jsr pushrgnptr	into given region.
	_CopyRgn
	bra skip3
;
skip2	jsr PaintDesk	Paint just the desktop.
skip3	jsr fullport	Leave with Window Manager's port full.
;
	jsr restore_port
	bra exit2
;
;
; --- Return desktop pattern ----------------------------------
;
GetDeskPat	lda <deskpatt
	ldx <deskpatt+2
;
exit	sta out_param,s
	txa
	sta out_param+2,s
;
exit2	phb
	brl pop6bytes
	ENDP
;

*******************************************************************************
*
	Export FakeReadMouse
FakeReadMouse	PROC
*
* Description:  	This routine can be used as a direct replacement for the
*	ReadMouse misc tools call.  Its inputs and outputs are
*	identical in every way to the real read mouse. The main 
*	difference is that this readmouse calls eventavail instead
*	of going directly to the mouse. This allows journalling to
*	take place.
*
*	NOTE: This call Clears all bits of the mode byte.
*
*
* Inputs:   	Space	- Word
*	Space	- Word
*	Space	- Word
*	ReturnAddr
*
* Outputs:  	CurrentX (Word)	- Y position in global coordinants
*	CurrentY (Word)	- X position in global coordinants
*	ButtonState (word)	- status of the buttons. (Mode clear)
*	
* External Refs:
*
* Entry Points:
*
*******************************************************************************
*
* First define a stack frame for our use
@tempEvent	equ 1
@xevent	equ @tempEvent+16
@SaveDPage	equ @xEvent+2
@ReturnAddr	equ @SaveDPage+2
@ButtonState	equ @ReturnAddr+3
@CurrentY	equ @ButtonState+2
@CurrentX	equ @CurrentY+2

;
	phd	Save current direct	page.
;
	tsc	Make room for event	record.
	sec	on the stack
	sbc #@xevent+1
	tcs
	tcd
;
	pha	Space for returned flag.
	pea 0	Looking for NULL event only.
	pea 0	Pass pointer to event record.
	inc a	NOTE: <A> still holds the direct
	pha	page pointer at this point.
	_EventAvail
	plx	Get returned flag and ignore it.

	lda <@tempEvent+10	get the mouse coordinants
	sta <@CurrentY
	lda <@tempEvent+12
	sta <@CurrentX
	
	lda <@tempEvent+14	get the button states
	and #$00C0	strip off just the button status
	eor #$00C0
	xba	put it in the high byte
	sta <@ButtonState
	
	tsc	Remove the bogus event record 
	clc	on the stack
	adc #@xevent+1
	tcs
	pld
	rtl
	EndP


;
;===============================================
;        Drag a Window to a New Position.
;===============================================
;
;   IN:    PUSH:WORD - drag flag:
;	      bit 15:    1 = bring window to top after drag.
;	      bits 8-14: reserved (zero).
;	      bits 0-7:  horizontal movement resolution:
;		   0 = default grid:
;		             4 pixels in 320 mode.
;		             8 pixels in 640 mode.
;		   1 = every pixel.
;		   2 = every 2 pixels.
;		   4 = every 4 pixels.
;		   8 = every 8 pixels.
;		  16 = every 16 pixels.
;		  32 = every 32 pixels.
;		  64 = every 64 pixels.
;		 128 = every 128 pixels.
;          PUSH:LONG - starting y,x point in global coordinates.
;          PUSH:WORD - grace buffer.
;          PUSH:LONG - pointer to bounds RECT.
;          PUSH:LONG - pointer to window's port.
;
;  OUT:    None.
;
DragWindow	PROC
;
;
theWind	equ 9
bounds	equ theWind+4
grace	equ bounds+4
ystart	equ grace+2
xstart	equ ystart+2
dragFlag	equ xstart+2
;
;
	jsr setup	Get parameters.
;
;
; --- Set default grid -------------------------------------------
;
	lda dragFlag,s
	and #$00FF
	bne skip1
;
	ldx #8	640 grid
	ldy #scInfo-1
	lda [<data],y	Get current mode.
	bmi ok2
	ldx #4	320 grid.
ok2	txa
	ora dragFlag,s
	sta dragFlag,s
;
;
; --- Set default drag bounds RECT ------------------------------
;
skip1	lda bounds,s	Did the caller give	a bounds RECT?
	ora bounds+2,s
	bne ok3
;
	jsr deskBounds	wrect = GrayRgn bounds.
;
	jsr pushwrect	Pass pointer to 'wrect'.
	lda dragFlag+4,s
	and #$00FF
	pha
	pea 4	Vertical.
	_InsetRect	Make bounds smaller	than desktop.
;
	tdc	Set address of default bounds RECT.
	clc
	adc #wrect
	sta <workptr	Store pointer to default bounds RECT.
	stz <workptr+2
;
;
; --- Set drag bounds -----------------------------------
;
ok3	lda ystart,s
	sta <yrat
	lda xstart,s
	sta <xrat
;
	ldy #x2
lop1	lda [<workptr],y	Clone bounds RECT.
;
	pha	Save A.
	tyx	Save Y.
	txa	Compute index into data area.
	clc
	adc #slop_bound
	tay
	pla
	sta [<data],y
	txy	Restore Y.
;
	txa	Compute min and max	deltas.
	and #3
	tax
	lda [<workptr],y
	sec
	sbc <yrat,x
;
	pha	Save A.
	tyx	Save Y.
	txa	Compute index into data area.
	clc
	adc #drag_bound
	tay
	pla
	sta [<data],y
	txy	Restore Y.
;
	dey
	dey
	bpl lop1
;
;
	jsr pushslop_bound	Pass address of slop_bound.
	lda grace+4,s
	eor #$FFFF
	inc a
	pha
	pha
	_InsetRect	Expand bounds for grace buffer.
;
;
	jsr getwgrect	Get window's global coordinates.
;
	jsr setwmgrport	Switch to Window Manager's port.
	jsr fullport	Set clip to GrayRgn.
;
	lda dragFlag,s	Special case, window will be top.
	bmi ok4
	jsr SubStructLoop	Can't drag over windows on top.
;
ok4	lda dragFlag,s	Pass grid resolution.
	and #$00FF
	xba
	ora #$0010	Min and max deltas in limit RECT.
	sta <work
;
	ldx #wGetDrag	Get address of outline draw routine.
	jsr dispatch
	sta <work+2
	stx <work+4
	ora <work+4	Is there a custom draw routine?
	beq ok5
;
	lda <work	Set 'custom draw routine' flag.
	ora #$0008
	sta <work
;
ok5	jsr callDrag	Let user reposition	the window.
;
	sta ystart,s	Save deltay.
	txa
	sta xstart,s	Save deltax.
;
;
; --- Move window to new position --------------------------
;
	jsr get_portptr	Get pointer to window's port,
	phx	Pass window to SelectWindow.
	pha
;
	lda  xstart,s		;added 3/2/89 by DDG to special case
	ora  ystart,s		;..moving by zero
	beq  skipMove

	ldy #wport+GP_Bounds+x1 Compute new content position.
	lda [<wind],y
	sec
	sbc xstart+4,s
	eor #$FFFF
	inc a
	pha	Pass new x position.
	dey
	dey
	lda [<wind],y
	sec
	sbc ystart+6,s
	eor #$FFFF
	inc a
	pha	Pass new y position.
	lda 7,s	Pass window pointer.
	pha
	lda 7,s
	pha
	_MoveWindow
skipMove
	plx
	ply
	lda dragFlag,s	Should window be brought foreward?
	bpl done
;
	phy
	phx
	_SelectWindow
;
done	jsr restore_port	Restore original port.
	jsr fullport	!!!!! Set clip to GrayRgn.
;
	phb
	brl pop16bytes
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = =
;        Check if button is stil down.
;150= = = = = = = =	= = = = = = = = = =	= = = = =
;
;  OUT:    X = FALSE if button still down, TRUE if up.
;          Y = Y position of mouse in local.
;          A = X position of mouse in local.
;
tempEvent	equ 1
xevent	equ tempEvent+16
;
	ENTRY ckbutton
ckbutton		;       
;
	phd	Save current direct	page.
;
	tsc	Make room for event	record.
	sec
	sbc #xevent+1
	tcs
	tcd
;
	pha	Space for returned flag.
	pea 4	Looking for button up event only.
	pea 0	Pass pointer to event record.
	inc a
	pha
	_GetNextEvent
	plx	Get returned flag.
	bne exit150	Was there an up event?
;
;
; --- Button has not come up yet, but double check ----------------------
; --- This makes sure that if mouse was already up when got in here
; --- that we don't stay here for-ever.
;
; Changed by mensch and glass 9 apr 89
;
	lda <tempEvent+modif
	and #Btn0State
	tax

;
;
; --- Button up event, use position of event -------------------------------
;
exit150	phx	Save return flag.
;
	lda #tempEvent+where+y1
	jsr pushDpage
	_GlobalToLocal	Convert position to	local.
;
	plx	Restore return flag.
;
	lda <tempEvent+where+x1
	sta <xevent
	ldy <tempEvent+where+y1
;
	tsc
	clc
	adc #xevent-1
	tcs
	pla	Get xevent.
;
	pld	Restore original direct page.
;
	phx
	plx	Return TRUE if button up event.
	rts
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = =
;          Check two number's delta.
;110= = = = = = = =	= = = = = = = = = =	= = = = = = =
;
;   IN:    a = one number.
;          x = the other number.
;
;  OUT:    Carry is	set if the two number differ by 5 (plus	or minus 2).
;
ck_move	stx <work
	sbc <work
	bpl ok110
	eor #$FFFF
ok110	cmp #5
	rts
;
	ENDP
;
;
;=====================================
;        Drag a xor	rectangle.
;=====================================
;
;   IN:    wrect = starting position of	rectangle, in global.
;          yrat = cursor's starting y position.
;          xrat = cursor's starting x position.
;          work = grid and drag flag.
;          work+2 =	action proc or custom draw routine.
;          drag_bound = bounds RECT.
;          slop_bound = grace bounds RECT.
;
;  OUT:    a = deltay.
;          x = deltax.
;
callDrag	PROC
;
		;using equates
		;using staticRAM
;
;
	pha	Space for result.
	pha
	pei <work+4	Pass address of action proc or draw.
	pei <work+2

*** replaced 27-Sep-90 DAL
***	pea colorWhite>>16	Drag pattern.
***	pea colorWhite
	pha	;27-Sep-90 DAL
	pha
	_Get640Colors
	pla
	clc
	adc #15*32	;offset to color 15
	pha
*** end of 27-Sep-90 replacement

	pei <xrat	Starting position.
	pei <yrat
	jsr pushwrect	RECT to drag.
	jsr pushdrag_bound	Pass pointer to limit RECT.
	jsr pushslop_bound	Pass pointer to slop RECT.
	pei <work	Drag flag.
	_WindDragRect
	pla
	plx
	rts

	ENDP


;=============================
;        Move a window.
;=============================
;
;   IN:    PUSH:WORD - new x content origin in global coordinates.
;          PUSH:WORD - new y content origin in global coordinates.
;          PUSH:LONG - pointer to window port.
;
;  OUT:    None.
;
MoveWindow	PROC
;
;
theWind	equ 10
yOrigin	equ theWind+4
xOrigin	equ yorigin+2
;
deltay	equ work
deltax	equ deltay+2
;
;
	jsr setup
;
	phb	Save current data bank.
	phk	Make program and data banks the same.
	plb
;
;
; --- If window is full, save current position ---------------
;
	lda yOrigin,s
	tax
	lda xOrigin,s
	tay
	lda #wStartMove	Tell window defProc	move is happening.
	jsr callProc2
	sta yOrigin,s
	txa
	sta xOrigin,s
;
;
; --- Set source and destination RECT bounds -----------------
;
	jsr getwgrect	Get window's starting RECT.
;
	ldy #blitsrc+x2	Copy Window's bounds into blit's.
	jsr copywrect
	ldy #blitdes+x2
	jsr copywrect
;
;
; --- Compute the window's visible structRgn ---------------
;
	jsr setwmgrport	Switch to Window Manager's port.
;
	ldy #wstrucRgn+2	Set wmgr's clip region
	jsr pushandle	to the window's StructRgn.
	_SetClip
;
	jsr clipabove	Compute visible area of window.
;	           clip = visible region.
;
	jsr alloc_rgn
	jsr alloc_rgn	Allocate region for	destination.
;	           rgnptr2 = rgnptr.
;	           rgnptr =	new region.
	jsr pushclip
	jsr pushrgnptr
	_CopyRgn rgnptr	= clip (visible window).
;
	jsr pushclip
	jsr pushrgn2
	_CopyRgn rgnptr2	= clip (visible window).
;
;
; --- Move the window by changing its Bounds RECT -------------
;
	lda yorigin,s	Pass new position of content.
	tax
	lda xorigin,s
	jsr pos_wind	Reposition the window.
	stx <deltay	Save delta y.
	sta <deltax	Save delat x.
;
	ldy #wstrucRgn+2	Offset window's StructRgn.
	jsr offsetrgn
;
	ldy #wcontRgn+2	Offset window's content region.
	jsr offsetrgn
;
	ldy #wupdateRgn+2	Offset window's update region.
	jsr offsetrgn
;
	jsr testVis	Is the window visible?
	bne ok1
	brl skip1	If not, no need to redraw.
;
;
; --- Offset the destination region from the source region ------
;
ok1	jsr pushrgnptr	Pass destination region handle.
	pei <deltax
	pei <deltay
	_OffsetRgn
;
	jsr pushblitdes	Pass pointer to destination RECT.
	pei <deltax
	pei <deltay
	_OffsetRect	Offset destination RECT.
;
;
; --- Clip blit to not over draw any windows on top of this	one -------
;
	jsr pushrgnptr	Copy destination region into
	jsr pushclip	the clip region (used by clipabove).
	_CopyRgn
;
	jsr clipabove	Subtract any windows on top.
;
	jsr pushclip	Copy clipped region	back
	jsr pushrgnptr	into 'rgnptr'.
	_CopyRgn
;
;
; --- BLIT the window to its new home ------------------------
;
	lda <rgnptr+2	Destination clip region.
	ldy #scrn2scrn+PP_Clip+2
	sta [<data],y
	lda <rgnptr
	dey
	dey
	sta [<data],y
;
	jsr pushscrn2scrn
	_PaintPixels
;
;
;
; --- Redraw any part of the window newly exposed -----------
;
	ldy #wstrucRgn+2
	jsr pushandle	Pass window's StructRgn.
	jsr pushrgnptr	Pass destination region.
	jsr pushrgnptr	Result into 'rgnptr'.
	_DiffRgn	rgnptr = StructRgn - Blitted area.
;
	jsr fullport	Set clip to full screen.
	jsr PaintOne	Draw the remainder of the window.
;
;
; --- Redraw whole left by window when moved ----------------
;
	jsr pushrgn2	Pass where window was.
	ldy #wstrucRgn+2
	jsr pushandle	Pass where window is.
	jsr pushrgnptr	Result in 'rgnptr'.
	_DiffRgn	rgnptr = clobbered region.
;
	jsr paintbehind	Redraw what's in 'rgnptr'.
;
;
; --- Free temp. regions ---------------------------
;
skip1	jsr disposeRgnPtr
;
	pei <rgnptr2+2
	pei <rgnptr2
	_DisposeRgn
;
;
; --- Fix up every window's visRgn ----------------
;
	jsr calc_vis
;
	jsr restore_port	Restore original port.
;
	plb	Restore original data bank.
	phb
	brl pop8bytes
;
;
; = = = = = = = = =	= = = = = = = =
;          Offset region.
;100= = = = = = = =	= = = = = = = =
;
;
;   IN:    y = index to region to offset
;
offsetrgn	jsr pushandle
	pei <deltax
	pei <deltay
	_OffsetRgn
	rts
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = =
;          Copy 'wrect' into data area.
;110= = = = = = = =	= = = = = = = = = =	= = = = = =
;
;   IN:    y = offset to X2 destination	in data area.
;          wrect = RECT to copy.
;
copywrect	ldx #x2
lop110	lda <wrect,x
	sta [<data],y
	dey
	dey
	dex
	dex
	bpl lop110
	rts
;
	ENDP
;
;
;===================================================
;          Return the address of DragRect.
;===================================================
;
GetDragRect	PROC
;
;
result	equ 7
;
;
	lda #WindDragRect-1
	sta result,s
	lda #WindDragRect>>16
	sta result+2,s
;
	lda #0	No error.
	clc
	rtl
;
	ENDP
;
;
;====================================
;          Drag a rectangle.
;====================================
;
;   IN:    PUSH:LONG - pointer to action procedure routine.
;          PUSH:LONG - address of drag pattern.
;          PUSH:WORD - x starting point	of mouse, in local.
;          PUSH:WORD - y starting point	of mouse, in local.
;          PUSH:LONG - pointer to RECT to be dragged, in local.
;          PUSH:LONG - pointer to bounds RECT, in local.
;          PUSH:LONG - pointer to slop RECT, in local.
;          PUSH:WORD - constraining axis:
;	    %xxxxxxxxxxxxxx00 - no constraint.
;	    %xxxxxxxxxxxxxx01 - Allow only horizontal movement.
;	    %xxxxxxxxxxxxxx10 - Allow only vertical movement.
;	    %xxxxxxxxxxxxx0xx - Drag RECT.
;	    %xxxxxxxxxxxxx1xx - Rubber-band RECT.
;	    %xxxxxxxxxxxx0xxx - default drag, action=action proc.
;	    %xxxxxxxxxxxx1xxx - Custom RECT, action=draw routine.
;	    %xxxxxxxxxxx0xxxx - limit_rect = bounds RECT.
;	    %xxxxxxxxxxx1xxxx - limit_rect = min and max values.
;	    %xxxxxxxxxx0xxxxx - don't return drag rect in drag_rect.
;	    %xxxxxxxxxx1xxxxx - return drag rect in drag_rect.
;	    %xxxxxxxxx0xxxxxx - don't bind cursor to limit_rect.
;	    %xxxxxxxxx1xxxxxx - bind cursor to limit_rect.
;	    %xxxxxxxx0xxxxxxx - don't pass draw flag to custom draw.
;	    %xxxxxxxx1xxxxxxx - pass draw flag to custom draw.
;	    %00000000xxxxxxxx - grid values, 0,	1, 2, 4, 8, ect...
;
;  OUT:    LONG - low WORD is delta y, high WORD is delta x.
;
WindDragRect	PROC EXPORT
;
		;using equates
;
VERTAXIS	equ $0001	Set to allow only vertical movement.
HORAXIS	equ $0002	Set to allow only horizontal movement.
RUBBERBAND	equ $0004	Set if rubber band RECT.
CUSTOMRECT	equ $0008	Set if custom RECT draw routine.
MMPASSED	equ $0010	Min and Max passed in limit_rect.
RETURNDRAG	equ $0020	Return drag RECT in	drag_rect.
BOUNDXY	equ $0040	Set to bind cursor to limit_rect.
PASSFLAG	equ $0080	Pass draw flag to custom draw routine.
;
grid_val	equ 1
grid_val2	equ grid_val+2
grid_msk	equ grid_val2+2
min_deltay	equ grid_msk+2
min_deltax	equ min_deltay+2
max_deltay	equ min_deltax+2
max_deltax	equ max_deltay+2
trect	equ max_deltax+2
drag	equ trect+RECTSIZE
ypt	equ drag+RECTSIZE
xpt	equ ypt+2
moveFlag	equ xpt+2
worksize	equ moveFlag+1
;
constraint	equ worksize+9	Direction of movement allowed.
slop_rect	equ constraint+2	Pointer to RECT that is cursor bounds.
limit_rect	equ slop_rect+4	Pointer to RECT that is movement bounds.
drag_rect	equ limit_rect+4	Pointer to RECT to drag.
starty	equ drag_rect+4	Starting point.
startx	equ starty+2
drag_patt	equ startx+2	Pattern for xor dragging.
action	equ drag_patt+4	Address of routine to call while dragging.
deltay	equ action+4	Return values.
deltax	equ deltay+2
;
;
	jsl IncBusyFlg
	phd
;
	tsc
	sec
	sbc #worksize
	tcs
	tcd
;
	stz <moveFlag	Set 'draw' flag.
	inc <moveFlag
;
;
; --- Clone RECTs into my direct page --------------------------
;
	ldy #x2
lop1	tyx
	lda [<drag_rect],y
	sta <drag,x
	lda [<limit_rect],y
	sta <min_deltay,x
	dey
	dey
	bpl lop1
;
;
; --- Set up grid values -------------------------------------
;
	lda <constraint+1	Get grid value.
	and #$00FF
	bne store1
	inc a	At least one pixel.
store1	sta <grid_val	$0001 $0002 $0004 $0008...
	sta <grid_val2
	lsr <grid_val2	$0000 $0001 $0002 $0004...
	dec a
	eor #$FFFF
	sta <grid_msk	$FFFF $FFFE $FFFC $FFF8...
;
;
; --- Compute min and max deltax -----------------------------
;
	lda <constraint	Was the min and max	values passed?
	and #MMPASSED
	bne ok2
;
	ldx #x1
	lda <constraint	Bind the drag RECT or the cursor?
	and #BOUNDXY
	beq bindRect
;
;
; ------ Bind the cursor to the limit RECT -------------------
;
; MMPASSED = 0
; BOUNDXY  = 1
;
lop5	lda <min_deltay,x
	sec
	sbc <starty,x
	sta <min_deltay,x
;
	lda <max_deltay,x
	sec
	sbc <starty,x
	sta <max_deltay,x
;
	dex
	dex
	bpl lop5
	bra skip3
;
;
; ------ Bind the drag RECT to the limit RECT ----------------
;
; MMPASSED = 0
; BOUNDXY  = 0
;
bindRect		; 
lop3	lda <min_deltay,x
	sec
	sbc <drag+y1,x
	sta <min_deltay,x
;
	lda <max_deltay,x
	sec
	sbc <drag+y2,x
	sta <max_deltay,x
;
	dex
	dex
	bpl lop3
;
;
; --- Place deltas on grid -----------------------------------
;
skip3	lda <grid_msk	Round up minimum up, if needed.
	eor #$FFFF
	and <min_deltax
	beq skip4	Already on grid?
;
	lda <min_deltax	Round up.
	and <grid_msk
	clc
	adc <grid_val2
	adc <grid_val2
	sta <min_deltax
;
skip4	lda <max_deltax	Round down.
	and <grid_msk
	sta <max_deltax
;
;
; --- Constrain movement -------------------------------------
;
ok2	ldx #0
	lda <constraint
	and #VERTAXIS+HORAXIS
	beq ok1	Any constrain on?
	dec a	Constrain horizontally?
	beq con_hor
	dec a
	bne ok1
	inx	Constrain vertically.
	inx
con_hor	stz <min_deltay,x
	stz <max_deltay,x
;
;
;
; --- More initialization ------------------------------------
;
ok1	stz <deltay	Start with no movement.
	stz <deltax
;
;
; --- Set up pen for outline dragging ------------------------
;
	pei <drag_patt+2	Pass address of xor	pattern.
	pei <drag_patt
	_SetPenPat		;was PenPat 17-Sep-90 DAL
;
	pea 2	XOR mode.
	_SetPenMode		;was PenMode 17-Sep-90 DAL
;
	pea 2
	pea 1
	_SetPenSize
;
;
; --- Drag RECT ----------------------------------------------
;
lop2	jsr xorbox	Draw XOR box.
;
lop4	jsr ckbutton	Is button still down?
	sty <ypt
	sta <xpt
	bne done2
;
;
; --- Call action routine ------------------------------------
;
	lda <constraint	Is there a custom draw routine?
	and #CUSTOMRECT
	bne skip1
;
	ldx <action+1	Was an action routine passed?
	beq skip1
	lda <action
	jsl longCall	Call action routine.
;
;
skip1	jsr ckposition
	bcc lop2	Redraw?
	bra lop4
;
;
; --- Exit ---------------------------------------------------
;
done2	jsr ckposition	Check position one last time.
	bcc skip2	Box already erased?
	jsr xorbox	Erase xor box.
;
skip2	_PenNormal	Reset pen patteren.
;
	tsc
	clc
	adc #worksize
	tcs
;
;
	phb
	brl pop26bytes


;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = =
;        Check cursor, move RECT if needed.
;100= = = = = = = =	= = = = = = = = = =	= = = = = = =
;
;  OUT:  Carry flag	set if no need to redraw.
;
ckposition		; 
;
;
; --- Check if cursor is inside 'slop_rect' ------------------
;
	pha	Space for result.
	lda #ypt	Pass pointer to point to check.
	jsr pushDpage
	pei <slop_rect+2	Pass pointer to RECT to check.
	pei <slop_rect
	_PtInRect	Is the cursor in slop_rect?
	pla
	bne ok100
;
;
; ------ Reset RECT	to starting place ------------------------
;
	lda <starty
	sta <ypt
	lda <startx
	sta <xpt
;
;
; --- Check if there has been any movement -------------------
;
ok100	jsr getdelta	Did the mouse move?
	cmp <deltay
	bne moveit100
	cpx <deltax
	beq ckCustom
;
moveit100	jsr xorbox	Erase XOR box before move.
;
	jsr getdelta	Compute and set the	new deltas.
	sta <deltay
	stx <deltax
	clc	Redraw flag.
	rts
;
;
ckCustom	lda <constraint	Should the draw routine be called anyway.
	and #PASSFLAG
	beq exit100
;
	stz <moveFlag	Clear draw flag.
	jsr xorbox	Call custom draw routine.
	inc <moveFlag	Set draw flag back to drawing.
;
exit100	sec	No need to redraw.
	rts	Carry set, no need to redraw.
;
;
; = = = = = = = = =	= = = = = = = = =
;        Compute delta
;110= = = = = = = =	= = = = = = = = =
;
;   IN:    ypt, xpt	= new point.
;          starty, startx = original point.
;
;  OUT:    a = delta y.
;          x = delta x.
;
getdelta	lda <xpt	Current position,
	sec
	sbc <startx	less starting position,
	tax	equals delta x.
;
	and <grid_msk	Force delta x to grid.
	pha
;
	txa	Should delta x be rounded?
	and <grid_val2
	beq ok110
;
	asl a	Round delta x up.
	clc
	adc 1,s
	sta 1,s
;
ok110	pla	New delta x.
	ldx #x1
	jsr bindDelta
	tya
	and <grid_msk	Force delta x to grid.
	pha
;
	tya	Should delta x be rounded?
	and <grid_val2
	beq ok111
;
	asl a	Round delta x up.
	clc
	adc 1,s
	sta 1,s
;
ok111		; Delta x on stack.
;
;
; --- Compute the y	delta ------------------------------------
;
	lda <ypt
	sec
	sbc <starty	New delta y.
	ldx #y1
	jsr bindDelta
	tya
	plx
	rts
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = =
;          Bind delta to limit RECT.
;120= = = = = = = =	= = = = = = = = = =	= = = =
;
;   IN:    a = new delta.
;          x = x or	y offset.
;
bindDelta	ldy <min_deltay,x
	jsr find_max	a = max.
;
	ldy <min_deltay,x	Did the point start	outside limit?
	bmi ok120
;
	sec
	sbc <min_deltay,x
	bcs ok120
;
	lda #0
;
ok120	ldy <max_deltay,x
	jsr find_max	New delta x bound to min and max.
;
	lda <max_deltay,x
	bpl ok121
;
	tya
	sec
	sbc <max_deltay,x
	tay
	bmi ok121
;
	ldy #0
;
ok121	rts
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = =
;        Find the greater of two signed	numbers.
;130= = = = = = = =	= = = = = = = = = =	= = = = = = = =
;
;   IN:    a = one signed number.
;          y = the other signed number.
;
;  OUT:    a = the greater of a or y.
;          y = the lesser of a or y.
;          x = same	as in.
;
agr_y	equ 1
;
find_max	phx	Save x.
;
	phy	Save y.
	tax	Save a.
	sec
	sbc agr_y,s
	bvs lab130
	bmi dest130
	bra exit130
lab130	bmi exit130
dest130	txy	x = A.
	pla	a = X.
	plx
	rts
;
exit130	txa	a = A.
	ply	x = X.
	plx
	rts
;
;
; = = = = = = = = =	= = = = = = = = = =
;        Draw a XOR	rectangle.
;140= = = = = = = =	= = = = = = = = = =
;
;   IN:    starty =	cursor starting y position.
;          startx =	cursor starting x position.
;          deltay =	cursor y position to draw at.
;          deltax =	cursor x position to draw at.
;          drag = starting RECT.
;
xorbox	lda <constraint	Rubber-band or drag?
	and #RUBBERBAND
	beq dragit140
;
;
; --- Set RECT for drag or rubber-band -----------------------
;
	ldx #x1
lop140	ldy <drag+y1,x
	lda <drag+y2,x
	clc
	adc <deltay,x
;
	jsr find_max
;
	sty <trect+y1,x
	sta <trect+y2,x
	dex
	dex
	bpl lop140
;
	bra draw140
;
;
; ------ Offset the	RECT for dragging ------------------------
;
dragit140	ldx #x1
lop141	lda <drag+y1,x
	clc
	adc <deltay,x
	sta <trect+y1,x
;
	lda <drag+y2,x
	clc
	adc <deltay,x
	sta <trect+y2,x
;
	dex
	dex
	bpl lop141
;
;
; --- Draw the shape -----------------------------------------
;
draw140	lda <constraint	Return the drag RECT?
	and #RETURNDRAG
	beq skip140
;
	ldy #x2	Return the RECT to the caller.
lop142	tyx
	lda <trect,x
	sta [<drag_rect],y
	dey
	dey
	bpl lop142
;
;
skip140	lda <constraint	Custom draw routine?
	and #CUSTOMRECT
	beq default140
;
;
; ------ Custom RECT drag ------------------------------------
;
	lda <constraint	Pass draw flag?
	and #PASSFLAG
	beq skip141
;
	pei <moveFlag	Pass the movement flag.
;
skip141	pei <deltax	Pass deltas.
	pei <deltay
;
	ldx <action+1
	lda <action
	jsl longCall	Call draw routine.
	rts
;
;
; ------ Default draw ----------------------------------------
;
default140	pei <trect+x1	; get into place
	pei <trect+y1
	_MoveTo
;
	lda <trect+x2	; draw top
	dec a
	dec a
	pha
	pei <trect+y1
	_LineTo

	pea 0	; move down one
	pea 1
	_Move
;
	lda <trect+x2	; draw right
	dec a
	dec a
	pha
	lda <trect+y2
	dec a
	pha
	_LineTo

	pea -2	; move left two
	pea 0
	_move
;
	pei <trect+x1	; draw bottom
	lda <trect+y2
	dec a
	pha
	_LineTo
;
	pea 0	; move up one
	pea -1
	_Move
;
	pei <trect+x1	; draw left
	lda <trect+y1
	inc a
	pha
	_LineTo
	rts
;
	ENDP
;
;
;==========================================
;        Get current mouse position.
;==========================================
;
;  OUT:  yrat = mouse y position.
;        xrat = mouse x position.
;
getratpos	PROC
;
		;using equates
;
;
	lda #yrat
;
	ENTRY getratpos2
getratpos2		;       
;
	jsr pushDpage
	_GetMouse
	rts
	ENDP
;
;
;            APPEND	WACCESS.ASM
	TITLE 'Apple IIGS Window Manager                   WACCESS.ASM'
;
;          Copyright Apple Computer, Inc. 1986,1987,1988
;          All rights reserved
;          Written by Dan Oliver
;
;
;==========================================
;          Get/Set global flag.
;==========================================
;
;   IN:    WORD - negative to clear bits, positive to set bits,
;                 zero to just return current global flag.
;
;  OUT:    WORD - global flag after change.
;
WindowGlobal	PROC
;
;
newState	equ 9
newFlag	equ newState+2
;
;
	jsl IncBusyFlg
	phd	Save caller's zero page.
	tcd
;
	ldy #WindGlobal
;
	lda newState,s	Set or reset bits?
	bpl setBits
;
	and [<data],y
	bra exit3
;
setBits	ora [<data],y
exit3	sta [<data],y
	sta newFlag,s
;
	phb
	brl pop2bytes
	ENDP
;
;
;=========================================
;          Set the system window flag
;          in the window record.
;=========================================
;
;   IN:    PUSH:LONG - pointer to window's port.
;
;  OUT:    None.
;
SetSysWindow	PROC
;
;
;
	jsr setup
;
	ldy #wport+4
	lda [<wind],y
	ora #$8000	Set system window flag.
	sta [<wind],y
;
	phb
	brl pop4bytes
	ENDP
;
;
;=========================================
;          Set updateDraw
;=========================================
;
;   IN:    PUSH:LONG - address of routine to draw window's content region.
;          PUSH:LONG - pointer to window's port.
;
;  OUT:    None.
;
SetCDraw	PROC
;
;
theWind	equ 9
newContDraw	equ theWind+4
;
;
	jsr setup
;
	ldy #wContDraw
;
;
	ENTRY setWindLong
setWindLong		;       
;
	lda newContDraw,s
	sta [<wind],y
	iny
	iny
	lda newContDraw+2,s
	sta [<wind],y
;
	phb
	brl pop8bytes
	ENDP
;
;
;==================================================
;          Set application's reserved
;          LONG in window record.
;==================================================
;
;   IN:    PUSH:LONG - value to set.
;          PUSH:LONG - pointer to window's port.
;
;  OUT:    None.
;
SetWRefCon	PROC
;
;
;
	jsr setup
;
	ldy #wRefCon
	bra setWindLong
	ENDP
;
;
;=============================================
;          Set wdefProc in window record.
;=============================================
;
;   IN:    PUSH:LONG - address of new window definition procedure.
;          PUSH:LONG - pointer to window's port.
;
;  OUT:    None.
;
SetDefProc	PROC
;
;
;
theWind	equ 9
newDefProc	equ theWind+4
;
;
	jsr setup
;
	ldy #wDefProc
	bra setWindLong
	ENDP
;
;
;=====================================================
;          Return wdefProc from window record.
;=====================================================
;
;   IN:    PUSH:LONG - pointer to window's port.
;
;  OUT:    LONG - wdefProc from window's record.
;
GetDefProc	PROC
;
;
theWindow	equ 9
result	equ theWindow+4
;
;
	jsr setup
;
	ldy #wDefProc
	bra get_long
	ENDP
;
;
;======================================================
;          Return wcontrol from window record.
;======================================================
;
;   IN:    PUSH:LONG - pointer to window's port.
;
;  OUT:    LONG - wcontrol from window's record.
;
GetWControls	PROC
;
;
theWindow	equ 9
result	equ theWindow+4
;
;
	jsr setup
;
	ldy #wControls
	bra get_long
	ENDP
;
;
;==================================================
;          Read application's reserved
;          LONG in window record.
;==================================================
;
;   IN:    PUSH:LONG - pointer to window's port.
;
;  OUT:    LONG - application's reserved LONG,
;                 set only by NewWindow	and SetWRefCon.
;
GetWRefCon	PROC Export
; Change getWRefCon to not alter workptr. This is due to the listplus application
; which calls GetWRefCon in its custom control procedure. Since the control happens to
; be in the frame of the window, this was causing many window manager temps to be destroyed
; that were not supposed to be destroyed in select window. Future versions of the window
; manager should change selectwindow to save and restore needed vars around the call to 
; drawentireframe.
;
; Stack for getWRefCon...
oldDPage	equ 1
RTL1	equ oldDPage+2
RTL2	equ RTL1+3
TheWindow	equ RTL2+3
Result1	equ TheWindow+4
	phd	; save the callers dpage
	tsc	; now use the stack as temp dpage
	tcd
	ldy #wRefCon-4	; offset to refcon (-4 cause this ain't window ptr)
	lda [<theWindow],y	; and get the data to return
	sta <result1
	iny
	iny
	lda [<theWindow],y
	sta <Result1+2
; Since pop4Bytes might need something I don't know about at this late hour...
	lda RTL1+4	; move the return address
	sta RTL1+8	; down by 4 bytes

	lda RTL1+2
	sta RTL1+6

	lda RTL1
	sta RTL1+4

	pld	; recover the direct page

	pla	; strip off 4 bytes
	pla
	lda #0	; no errors possible
	clc	; clear the error flag
	rtl	; and go home
	EndP
;;
;
; Change getlong to be an internal proc now...
; 5/11/89 mensch
get_long	proc		;       
theWind	equ 9
result	equ theWind+4
;
;
	lda [<wind],y
	sta result,s
	iny
	iny
	lda [<wind],y
	sta result+2,s
;
	phb
	brl pop4bytes
	ENDP
;
;
;=========================================
;          Get uContDraw
;=========================================
;
;   IN:    PUSH:LONG - pointer to window's port.
;
;  OUT:    LONG - address of routine to	draw window's content region.
;
GetCDraw	PROC
;
;
;
	jsr setup
;
	ldy #wContDraw
	bra get_long
	ENDP
;
;
;====================================================
;          Return wframe from window record.
;====================================================
;
;   IN:    PUSH:LONG - pointer to window's port.
;
;  OUT:    WORD - wframe from window's record.
;
GetWFrame	PROC
;
;
theWindow	equ 9
result	equ theWindow+4
;
;
	jsr setup
;
	ldy #wframe
	lda [<wind],y
	sta result,s
;
	phb
	brl pop4bytes
	ENDP
;
;
;========================================================
;          Return wstrucRgn from window	record.
;========================================================
;
;   IN:    PUSH:LONG - pointer to window's port.
;
;  OUT:    LONG - wstrucRgn from window's record.
;
GetStructRgn	PROC
;
;
;
	jsr setup
;
	ldy #wStrucRgn
	bra get_long
	ENDP
;
;
;========================================================
;          Return wcontRgn from window record.
;========================================================
;
;   IN:    PUSH:LONG - pointer to window's port.
;
;  OUT:    LONG - wcontRgn from window's record.
;
GetContRgn	PROC
;
;
;
	jsr setup
;
	ldy #wContRgn
	bra get_long
	ENDP
;
;
;========================================================
;          Return wupdateRgn from window record.
;========================================================
;
;   IN:    PUSH:LONG - pointer to window's port.
;
;  OUT:    LONG - wupdateRgn from window's record.
;
GetUpdateRgn	PROC
;
;
;
	jsr setup
;
	ldy #wUpdateRgn
	bra get_long
	ENDP
;
;
;=================================================
;          Return wnext from window record.
;=================================================
;
;   IN:    PUSH:LONG - pointer to window's port.
;
;  OUT:    LONG - pointer to next window's record.
;
GetNextWindow	PROC
;
;
theWind	equ 9
result	equ theWind+4
;
;
	jsr setup
;
	ldy #wnext+2	Get pointer to next	window,
	lda [<wind],y
	tax
	dey
	dey
	lda [<wind],y
	jsr get_portp2	convert it to a port pointer,
	sta result,s	and return it.
	txa
	sta result+2,s
;
	phb
	brl pop4bytes
	ENDP
;
;
;=========================================
;          Return the window type.
;=========================================
;
;   IN:    PUSH:LONG - pointer to window's port.
;
;  OUT:    WORD - not zero if a system window, zero if application window.
;
GetSysWFlag	PROC
;
		;using equates
;
theWindow	equ 9
result	equ theWindow+4
;
;
;   OUT:   WORD - negative if a system window, positive if an application's.
;
	ENTRY GetWKind
GetWKind

*** added 15-May-91 DAL -- if input pointer is NIL, always return False
	pha
	lda 7+1+2,s
	bne @notNIL
	sta 11+2,s	;zero out result word
	pla
	ldx #0	;no error
	ldy #4	;pop 4 bytes
	jml $e10184	;ToStrip

@notNIL	pla
*** end of 15-May-91 DAL

	jsr setup
;
	ldy #wport+4
	lda [<wind],y
	and #$8000	Get system window flag.
	sta result,s	Return state to caller.

	phb
	brl pop4bytes
	ENDP
;
;
;
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%%%			             %%%
;%%%   The following Window Manager calls are specific to the window     %%%
;%%%   defProc.  The Window Manager hands the call off to the defProc.   %%%
;%%%			             %%%
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;
;
;==================================================
;          Set application's horizontal
;          origin mask.
;==================================================
;
;   IN:    PUSH:WORD - value to set.
;          PUSH:LONG - pointer to window's port.
;
;  OUT:    None.
;
SetOrgnMask	PROC
;
;
;
	jsr setup
;
	lda #wSetOrgMask	Request number.
	jsr callProc
;
	phb
	brl pop6bytes
	ENDP
;
;
;=========================================
;          Set wmaxheight & wmaxwidth.
;=========================================
;
;   IN:    PUSH:WORD - maximum width of	content allowed when sizing the window.
;          PUSH:WORD - maximum height of content allowed when sizing the window.
;          PUSH:LONG - pointer to window's port.
;
;  OUT:    None.
;
SetMaxGrow	PROC
;
;
;
	jsr setup
;
	lda #wSetMaxGrow	Request number.
	bra setCallProc
	ENDP
;
;
;=========================================
;          Set vscroll & hscroll
;=========================================
;
;   IN:    PUSH:WORD - number of pixels	to scroll when arrowed in right scroll.
;          PUSH:WORD - number of pixels	to scroll when arrowed in bottom scroll.
;          PUSH:LONG - pointer to window's port.
;
;  OUT:    None.
;
SetScroll	PROC
;
;
	jsr setup
;
	lda #wSetScroll	Request number.
	bra setCallProc
	ENDP
;             
;
;=========================================
;          Set vpage & hpage.
;=========================================
;
;   IN:    PUSH:WORD - number of pixels	to scroll when paged in right scroll.
;          PUSH:WORD - number of pixels	to scroll when paged in bottom scroll.
;          PUSH:LONG - pointer to window's port.
;
;  OUT:    None.
;
SetPage	PROC
;
;
;
	jsr setup
;
	lda #wSetPage	Request number.
	bra setCallProc
	ENDP
;
;
;=============================================
;          Set wInfoRef  in window record.
;=============================================
;
;   IN:    PUSH:LONG - pointer to text string to appear in information bar.
;          PUSH:LONG - pointer to window's port.
;
;  OUT:    None.
;
SetInfoRefCon	PROC
;
;
;
	jsr setup
;
	lda #wSetInfoRefCon	Request number.
	bra setCallProc
	ENDP
;
;
;=============================================
;          Set wInfoDraw in window record.
;=============================================
;
;   IN:    PUSH:LONG - address of routine to draw in information bar.
;          PUSH:LONG - pointer to window's port.
;
;  OUT:    None.
;
SetInfoDraw	PROC
;
;
;
	jsr setup
;
	lda #wSetInfoDraw	Request number.
	bra setCallProc
	ENDP
;
;
;=========================================
;          Set y_origin & x_origin.
;=========================================
;
;   IN:    PUSH:WORD - flag, TRUE to scroll content.
;          PUSH:WORD - x origin of content.
;          PUSH:WORD - y origin of content.
;          PUSH:LONG - pointer to window's port.
;
;  OUT:    None.
;
SetCOrigin2	PROC
;
;
;
	jsr setup
;
	lda 1,s	Save caller's direct page.
	ldy #callerDpage
	sta [<data],y
	phb
	phb
	pla
	ldy #callerDataB
	sta [<data],y
;
	lda #wSetOrigin	Request number.
	jsr callProc	Call window's defProc.
;
;
	phb
	brl pop10bytes
	ENDP
; 
;
;=========================================
;          Set y_origin & x_origin.
;=========================================
;
;   IN:    PUSH:WORD - x origin of content.
;          PUSH:WORD - y origin of content.
;          PUSH:LONG - pointer to window's port.
;
;  OUT:    None.
;
SetCOrigin	PROC
;
;
theWindow	equ 9
newYorigin	equ theWindow+4
newXorigin	equ newYorigin+2
;
;
	jsl IncBusyFlg
	phd	Save direct page for pop.
;
	pea 1	Scroll content.
	lda newXorigin+2,s
	pha
	lda newYorigin+4,s
	pha
	lda theWindow+8,s
	pha
	lda theWindow+8,s
	pha
	_SetContentOrigin2
;
	phb
	brl pop8bytes
	ENDP
;
;
;=========================================
;          Set data_h & data_w.
;=========================================
;
;   IN:    PUSH:WORD - width of data size.
;          PUSH:WORD - height of data size.
;          PUSH:LONG - pointer to window's port.
;
;  OUT:    None.
;
SetDataSize	PROC
;
;
;
	jsr setup
;
	lda #wSetDataSize	Request number.
	bra setCallProc
	ENDP
;
;
;=============================================
;          Set new window full size.
;=============================================
;
;   IN:    PUSH:LONG - pointer to RECT to be replace wFull.
;          PUSH:LONG - pointer to window's port.
;
;  OUT:    None.
;
SetZoomRect	PROC
;
;
;
	jsr setup
;
	lda #wSetZoomRect	Request number.
;
	ENTRY setCallProc
setCallProc		;       
;
	jsr callProc	Call window's defProc.
;
	phb
	brl pop8bytes
	
	ENDP

;
;
;====================================
;        Change a window's title
;====================================
;
;  IN:   LONG - pointer to new title.
;        LONG - pointer to window port.
;
SetWTitle	PROC
;
;
;
	jsr setup
;
	lda #wSetTitle	Request number.
	bra setCallProc
	ENDP
;
;
;==========================================
;        Change frame pattern/colors.
;==========================================
;
;  IN:   LONG - pointer to new color table.
;        LONG - pointer to window port.
;
; OUT:   Nothing.
;
SetFrameColor	PROC
;
;
theWind	equ 9
colorTable	equ theWind+4
;
;
	jsr setup	Put input parameters in zero page.
;
	lda theWind,s	Set window's color table or system
	bne ok1	default color table?
	lda theWind+1,s
	beq skip1
;
ok1	lda #wSetColorTable	Request number.
	bra setCallProc
;
;
skip1	lda colorTable,s	Use default table?
	bne ok2
	lda colorTable+2,s
	bne ok2
;
	lda #def_color	Use default color table.
	sta colorTable,s
	lda #def_color>>16
	sta colorTable+2,s
;
ok2	ldy #defWindClr	New default color table.
	lda colorTable,s
	sta [<data],y
	iny
	iny
	lda colorTable+2,s
	sta [<data],y
	phb
	brl pop8bytes
;
	ENDP
;
;
;=============================================
;          Set wframe in window record.
;=============================================
;
;   IN:    PUSH:WORD - new wframe for window's record.
;          PUSH:LONG - pointer to window's port.
;
;  OUT:    None.
;
SetWFrame	PROC
;
;
;
	jsr setup
;
	lda #wSetFrameFlag
	jsr callProc	Call window's defProc.
;
	phb
	brl pop6bytes
	ENDP
;             
;
;=========================================
;          Get wmaxheight & wmaxwidth.
;=========================================
;
;   IN:    PUSH:LONG - pointer to window's port.
;              
;  OUT:    LONG - high word = max width, low word = max height.
;
GetMaxGrow	PROC
;
;
theWindow	equ 9
result	equ theWindow+4
;
;
	jsr setup
;
	lda #wGetMaxGrow
;
	ENTRY getProcLong
getProcLong		;       
;
	jsr callProc	Call window's defProc.
	sta result,s
	txa
	sta result+2,s
;
	phb
	brl pop4bytes
	ENDP
;             
;
;=========================================
;          Set vscroll & hscroll
;=========================================
;
;   IN:    PUSH:LONG - pointer to window's port.
;              
;  OUT:    LONG - high word = number of	pixels scrolled horizontally,
;                 low word = number of pixels scrolled vertically.
;
GetScroll	PROC
;
;
;
	jsr setup
;
	lda #wGetScroll
	bra getProcLong
	ENDP
;             
;
;=========================================
;          Get vpage & hpage.
;=========================================
;
;   IN:    PUSH:LONG - pointer to window's port.
;              
;  OUT:    LONG - high word = number of	pixels paged horizontally,
;                 low word = number of pixels paged vertically.
;
GetPage	PROC
;
;
	jsr setup
;
	lda #wGetPage
	bra getProcLong
	ENDP
;
;
;=======================================================
;          Return wInfoRef from window record.
;=======================================================
;
;   IN:    PUSH:LONG - pointer to window's port.
;
;  OUT:    LONG - wInfoRef field in window record.
;
GetInfoRefCon	PROC
;
;
;
	jsr setup
;
	lda #wGetInfoRefCon
	bra getProcLong
	ENDP
;
;
;=======================================================
;          Return wInfoDraw from window	record.
;=======================================================
;
;   IN:    PUSH:LONG - pointer to window's port.
;
;  OUT:    LONG - wInfoDraw from window's record.
;
GetInfoDraw	PROC
;
;
	jsr setup
;
	lda #wGetInfoDraw
	bra getProcLong
	ENDP
;
;
;=========================================
;          Get y_origin & x_origin.
;=========================================
;
;   IN:    PUSH:LONG - pointer to window's port.
;
;  OUT:    LONG - high word = x origin,	low word = y origin.
;
GetCOrigin	PROC
;
;
;
	jsr setup
;
	lda #wGetOrigin
	bra getProcLong
	ENDP
;
;
;=========================================
;          Get data_h & data_w.
;=========================================
;
;   IN:    PUSH:LONG - pointer to window's port.
;           
;  OUT:    LONG - high word = width of data, low word = height of data area.
;
GetDataSize	PROC
;
;
;
	jsr setup
;
	lda #wGetDataSize
	bra getProcLong
	ENDP
;
;
;=============================================
;          Return pointer to zoom RECT.
;=============================================
;
;   IN:    PUSH:LONG - pointer to window's port.
;
;  OUT:    LONG - pointer to wFull in window's record.
;
GetZoomRect	PROC
;
;
;
	jsr setup
;
	lda #wGetZoomRect
	bra getProcLong
	ENDP
;
;
;================================================
;        Return address of window's title.
;================================================
;
;  IN:   LONG - pointer to window port.
;
; OUT:   LONG - pointer to title.
;
GetWTitle	PROC
;
	jsr setup
;
	lda #wGetTitle
	bra getProcLong
	ENDP
;
;
;==========================================
;        Return frame pattern/colors.
;==========================================
;
;  IN:     PUSH:LONG - pointer to place	to store color table.
;          PUSH:LONG - pointer to window port.
;
; OUT:     Nothing.
;
GetFrameColor	PROC
;
		;using equates
;
theWind	equ 9
desTable	equ theWind+4
;
;
	jsr setup
;
	lda #wGetColorTable	Ask defProc for color table pointer
	jsr callProc
	sta <work	Store pointer to color table.
	stx <work+2	
; Modified 5/10/89 Mensch
; Add code here to detect if this is a handle or a pointer.
	txa	put high word into <A> to test for handle
	bpl @WorkOK	High bit clear, work ok.
	ldy #2	else, dereference it in place.
	lda [<work],y
	tax
	lda [<work]
	sta <work
	stx <work+2
;
@WorkOK
	lda desTable,s	Get pointer to destination table.
	sta <work+4
	lda desTable+2,s
	sta <work+6
;
	ldy #8	Clone color table into given table.
lop1	lda [<work],y
	sta [<work+4],y
	dey
	dey
	bpl lop1
;
	phb
	brl pop8bytes
	ENDP
;
;
;=============================================
;          Return the RECT of a
;          window's information bar.
;=============================================
;
;   IN:    PUSH:LONG - pointer to destination RECT for information bar RECT.
;          PUSH:LONG - pointer to window's port.
;
;  OUT:    None.
;
GetRectInfo	PROC
;
;
;
	jsr setup
;
	lda #wGetInfoRect
	jsr callProc
;
	phb
	brl pop8bytes
	ENDP
;
;
;=======================================================
;          Draw the	interior of the info bar.
;========================================================
;
;   IN:    PUSH:LONG - pointer to window port.
;
;  OUT:    None.
;
DrawInfoBar	PROC
;
;
;
	jsr setup
;
	lda #wDrawInfo
	jsr callProc	Call window's defProc.
;
exit	phb
	brl pop4bytes
	ENDP
;
;
;=======================================================
;          Set up to draw in information bar.
;========================================================
;
;   IN:    PUSH:LONG - pointer to destination RECT for information bar RECT.
;          PUSH:LONG - pointer to window's port.
;
;  OUT:    None.
;
StartInfoDraw	PROC
;
;
	jsr setup
;
	lda #wStartInfoDraw
	brl setCallProc	Call window's defProc.
	ENDP
;
;
;=======================================================
;          Reste Window Manager's port
;          after StartInfoDrawing call.
;========================================================
;
;   IN:    None.
;
;  OUT:    None.
;
EndInfoDrawing	PROC
;
;
	jsl IncBusyFlg
	phd	Save original zero page.
	tcd	Switch to my zero page.
;
	lda #wEndInfoDraw
	jsr callProc
;
	phb
	brl pop0bytes
	ENDP
;
;
;==============================================================
;          Call window defProc through generic entry.
;==============================================================
;
;   IN:    a = request number.
;
	EXPORT callProc
callProc	PROC
;
		;using equates
;
theWind	equ 11
newParam	equ theWind+4
;
;
	pha
;
	lda newParam+6,s
	sta <work
	lda newParam+4,s
	tay
	lda newParam+2,s
	tax
;
	pla
;
;
; = = = = = = = = =	= = = = = = = = = =	= = =
;          Call window defProc.
; = = = = = = = = =	= = = = = = = = = =	= = =
;
;   IN:    a = request number.
;          x = newParam.
;          y = newParam+2
;          work = newParam+4
;
;  OUT:    x/a = returned value from defProc.
;
	EXPORT callProc2
callProc2		;       
;
	phy
;
;
; --- Initialize call procedure list -------------------------
;
	ldy #callProcList	Set request number.
	sta [<data],y
	iny
	iny
	lda #0	Set defProc ID.
	sta [<data],y
	iny
	iny
	txa
	sta [<data],y	Set new parameter.
	iny
	iny
	pla
	sta [<data],y
	iny
	iny
	lda <work
	sta [<data],y
;
	jsr pushcallProcList
	pla	Pass proc list pointer to defProc.
	sta <param
	pla
	sta <param+2
;
	ldx #wCallDefProc	Have window defProc	perform operation.
	brl dispatch
	ENDP
;
;	      
;            APPEND	WNEW.ASM
	TITLE 'Apple IIGS Window Manager                   WNEW.ASM'
;
;          Copyright Apple Computer, Inc. 1986,1987,1988
;          All rights reserved
;          Written by Dan Oliver
;
;
;
;==================================
;        Create a New Window.
;==================================
;
;   IN:    PUSH:LONG - space for result.
;          PUSH:LONG - pointer to window parameter list.
;
; OUT:     LONG - pointer to window's port if OK, zero if error.
;
NewWindow	PROC
;
		;using equates
;
param_list	equ 9
ret_wind	equ param_list+4
;
;
; --- New parameter	list offsets -----------------------------
;
paramID	equ 0	ID of parameter list.
newDefProc	equ paramID+2	DefProc of window.
newData	equ newDefProc+4	Additional data for	new window.
;
;
	jsl IncBusyFlg

	phd	Save caller's direct page pointer.
	tcd	Switch to my direct	page.
;
	lda param_list,s	Get pointer to parameter list.
	sta <param
	lda param_list+2,s
	sta <param+2
;
	lda #0	No window, just in case.
	sta ret_wind,s
	sta ret_wind+2,s
;
;
; --- Ask defProc for record size ----------------------------
;
	lda [<param]	What kind of parameter list do I have?
	beq ok1
;
;
; ------ Old parameter list ----------------------------------
;
	ldy #2	Document or Alert window?
	lda [<param],y
	and #F_ALERT
	bne alertProc
;
	lda #docDefProc	Address of document	defProc.
	ldy #docDefProc>>8
	bra enter1
;
alertProc	lda #alertDefProc	Address of alert defProc.
	ldy #alertDefProc>>8
	bra enter1
;
;
; ------ New parameter list ----------------------------------
;
ok1	ldy #newDefProc+1	Pass address of custom defProc.
	lda [<param],y
	pha
	dey
	lda [<param],y
	ply
;
enter1	sta <workptr	Remember the defProc address.
	sty <workptr+1
	ldx #wRecSize	Pass operation number.
	stz <wind	Pass invalid window	pointer.
	stz <wind+2
	jsr dispatch2	Ask defProc for extra window record size.
	sta <wind	Save possible window record.
	stx <wind+2
	bcs errorExit1
	txy	Should the record even be allocated?
	bmi skip1
;
;
; --- Allocate a window record -------------------------------
;
	clc	Add window record header size
	adc #WHEADERSIZE	to addtional size needed by defProc.
	sta <work	Remember size.
	jsr allocate	Allocate a window record.
	sta <wind	Store handle of window record.
	stx <wind+2
	bcc ok4	Error allocating window?
;
	ldy #allocateErr	Return error code.
errorExit1	phb
	brl Epop4bytes	Pop 4 bytes and pass error code.
;
ok4	ldy #2	Deference handle.
	lda [<wind],y
	tay
	lda [<wind]
	sta <wind	Pointer to window record.
	sty <wind+2
;
;
; --- Zero the window record -----------------------
;
	lda <work	Get size of record.
	and #$FFFE	Make sure it's even.
	tay
	lda #0
	bra enter3
lop3	sta [<wind],y
enter3	dey
	dey
	bpl lop3
;
	ldy #wframe	Set flag to show record was allocated.
	lda #F_ALLOCATE
	sta [<wind],y
skip1
;
;
; --- Open graf port for window ------------------------------
;
	lda <wind+2
	and #$7FFF
	sta <wind+2
;
	jsr save_port	Save current port.
;
	jsr get_portptr	Compute where in record port goes.
	phx
	pha
	_OpenPort
	bcc ok5	Error opening port?
;
	tay	Place error code in	y.
errorExit2	phy	Save error code.
	jsr restore_port	Restore original port.
	ply	Return error code in Y.
	phb
	brl Epop4bytes	Pop 4 bytes and pass error code.
;
;
; --- Set window's defProc -----------------------------------
;
ok5	ldy #wDefProc
	lda <workptr
	sta [<wind],y
	iny
	lda <workptr+1
	sta [<wind],y
;
;
; --- Ask the defProc for the window port size and position	--
;
	ldx #wPosition	Pass operation number.
	jsr dispatch
	bcs errorExit2
;
	sta <workptr	Store pointer to position RECT.
	stx <workptr+2
	ldy #x2	Move position RECT into 'wrect'.
lop2	lda [<workptr],y
	tyx
	sta <wrect,x
	dey
	dey
	bpl lop2
;
;
; --- Set the width	and height of the window (and put content RECT into wrect).
;
	lda <wrect+x2	Compute window's width.
	sec
	sbc <wrect+x1
	pha	Pass width.
	lda <wrect+y2	Compute window's height.
	sec
	sbc <wrect+y1
	pha	Pass height.
	_SetPortSize	Set size of window's port.
;
;
; --- Position Bounds RECT so window will be in the correct	position ----
;
	pei <wrect+x1
	pei <wrect+y1
	_MovePortTo
;
	jsr zeroOrigin	SetOrigin( 0,0,).
;
;
; --- Allocate regions for window -----------------------
;
	ldy #wstrucRgn	First region in record.
lop5	phy	Save.
;
	pha	Return space for region handle.
	pha
	_NewRgn	Allocate an empty region.
;
	pla
	plx
	ply
	sta [<wind],y	Store the region handle in the window.
	iny
	iny
	txa
	sta [<wind],y
	iny
	iny
	cpy #wstrucRgn+12	All 3 regions allocated?
	bne lop5
;
;
; --- Let window initialize anything else -----------
;
	jsr moveWMgrOnWind	Move Window Manager's port on window.
;
	ldx #wNew	Initialize flag.
	jsr dispatch	Pass message to window.
;
	jsr getWMgrCtls	Move control list into window and
;	                  call moveWmgrBack.
;
;
; --- Draw new Window ---------------------
;
; ------- Will new window cause the current top window to go under? ----
;
	ldy #wframe	Start as unhilited.
	lda [<wind],y
	and #_F_HILITED
	sta [<wind],y
;
	ldx #wBehind
	jsr dispatch
	sta <workptr	workptr = where to send new window.
	stx <workptr+2
;
	jsr testVis	Test the window's F_VIS flag.
	bne ok3	Is the new window visible?
;
	ldy #wport+GP_VisRgn+2 Set window's VisRgn to empty.
	jsr pushandle
	_SetEmptyRgn
	bra skip2
;
ok3	lda #$FFFF
	cmp <workptr
	bne skip2
	cmp <workptr+2
	bne skip2
;
	jsr find_top	Find the top most visible window.
	beq skip2	Is there a top?
;
;
; ----------- Unhilite top most window -----------------------------------
;
	pei <workptr+2	Save behind parameter.
	pei <workptr
	pei <wind+2	Save window pointer.
	pei <wind
;
	sta <wind	Put pointer to top most visible window
	stx <wind+2	into 'wind'.
;
	ldy #WindGlobal	Is unhiliting turned off?
	lda [<data],y
	bne skip3
;
	ldy #wstrucRgn+2	Pass handle window's StructRgn.
	jsr pushandle
	jsr pushGray	Pass handle of desktop.
	jsr pushclip	Pass clip region handle.
	_SectRgn	Set clip to window and desktop.
;
	jsr unhilite	Inactivate top window.
	jsr deactivate	Send deactivate message to window.
	jsr drawframe	Draw inactivated window.
;
skip3	pla	Restore new window pointer.
	sta <wind
	pla
	sta <wind+2
	pla
	sta <workptr
	pla
	sta <workptr+2
;
;
skip2	jsr fullport	Set clip to full desktop.
;
	lda <workPtr
	ora <workPtr+2
	bne ok2
;
	dec <workPtr+2	Make $FFFF
	dec <workPtr
	dec <workPtr	Make $FFFE to send behind all others.
;
ok2	jsr fixworkptr	Make workptr a window pointer if plus.
	jsr intolist	Put window into list.
;
	jsr find_top	Find the top most visible window.
	cmp <wind	Is the new window top?
	bne skip4
	cpx <wind+2
	bne skip4
;
	jsr hilite	Hilite new window.
	jsr activate	Send activate message to window.
;
;
; --- Compute visible content regions for every window --------
;
skip4	jsr calc_vis
;
;
; --- Draw new window -----------------------------------------
;
	jsr alloc_rgn	Allocate a work region.
;
	ldy #wstrucRgn+2
	jsr pushandle
	jsr pushrgnptr
	_CopyRgn	Draw the whole window.
;
	jsr PaintOne	Draw the window.
;
	jsr disposeRgnPtr	Free work region.
;
;
; --- Return pointer to window ------------
;
	jsr get_portptr	Get pointer to window's port.
	sta ret_wind,s
	txa
	sta ret_wind+2,s
;
	jsr restore_port	Restore original port.
	jsr restore_port	Restore original port.
;
	phb
	brl pop4bytes
	ENDP
;
;
;=======================================================================
;          Move control list into window and call moveWMgrBack.
;=======================================================================
;
getWMgrCtls	PROC
;
;
;
	ldy #wmgr_wind+wControls Move any created controls into
	lda [<data],y	the window's wFrameCtls field.
	tax
	iny
	iny
	lda [<data],y
	ldy #wFrameCtls+2
	sta [<wind],y
	dey
	dey
	txa
	sta [<wind],y
;
	brl moveWMgrBack	Back Window Manager	port back to global.
	ENDP
;
;
;==============================
;        Close a Window
;==============================
;
; IN:    LONG - pointer to window port to close.
;OUT:    x = 0 if error, else 1.
;
CloseWindow	PROC
	import KillAuxInfoRecord

		;using equates

	jsr setup	Get address of theWind.
;
	stz <param	No additional parameter send to defProc.
	stz <param+2
	ldx #wDispose	Tell defProc to do additional disposal.
	jsr dispatch
	tax	Does defProc want to abort close?
	beq @1
	phb
	brl pop4bytes
@1
;
;
	jsr setwmgrport	Switch to Window Manager's port.
;
	jsr erasewind	Take window out of list.
;
*** Kill the auxiliary info record, if any (added 21-Jan-91 DAL)
	lda 9+2,s
	pha
	lda 9+2,s
	pha	;copy of the window pointer passed in
	jsl KillAuxInfoRecord
*** end of 21-Jan-91 addition

	jsr pullparam	Get window pointer again.
;
;
; --- Deallocate any controls in the window ---------------
;
	jsr get_portptr	Get window's port pointer.
	phx	Pass pointer to window's port.
	pha
	_KillControls	Deallocate all controls in window.
	bcc ok1	Is the Control Manager installed?
	pla
	pla
	bra skip1
;
ok1	ldy #wFrameCtls+2	wControls = wFrameCtls.
	lda [<wind],y
	tax
	dey
	dey
	lda [<wind],y
;
	ldy #wControls
	sta [<wind],y
	iny
	iny
	txa
	sta [<wind],y
;
	jsr get_portptr	Get window's port pointer.
	phx	Pass pointer to window's port.
	pha
	_KillControls	Deallocate all frame controls in window.
;
;
; --- Remove any activate or deactivate	events for the window being closed ---
;
skip1	jsr get_portptr	Get window's port pointer.
	cmp <CurActive	Does the window have an activate waiting?
	bne checkDeact
	cpx <CurActive+2
	bne checkDeact
;
	stz <FlgActive	Remove the activate	flag.
;
checkDeact	cmp <CurDeActive	Does the window have a deactivate waiting?
	bne skip2
	cpx <CurDeActive+2
	bne skip2
;
	stz <FlgDeActive	Remove the deactivate flag.
;
;
; --- Deallocate memory used by the window's record. ------
;
skip2	phx	Pass to port pointer.
	pha
	_ClosePort	Close window's port.
;
	ldy #wframe	Was the window allocated by me?
	lda [<wind],y
	and #F_ALLOCATE

	beq JoinTheExitCode

;	bne @2
;	phb
;	brl pop4bytes	Done if not allocated.
;@2
;
	pha	Space for returned handle.
	pha
	pei <wind+2	Convert pointer to handle.
	pei <wind
	_FindHandle
	_DisposeHandle	Free block allocated for window record.
;
JoinTheExitCode
	jsr restore_port	Restore original port.
;
	phb
	brl pop4bytes

	ENDP
;
;===============================================
;        Erase a window from the screen.
;===============================================
;
;   IN:    wind = window to be erased and taken out of the list.
;
*
*
* 26 Apr 89	David Good
*
* If the windGlobal flag said to NOT change the hilighting on windows,
* CloseWindow used to skip drawing. Now it just skips the hilighting,
* but it still draws the frame.
*
****************************************************************

erasewind	PROC

;---------------------------------------------------------------
	jsr  testVis		;if the window we are closing is invisible
	bne  doVis		;..then do it the slow way

	jsr  killAllPortRgns	;dispose of all the regions in the window
	brl  outoflist		;..we are killing and take the window out
;---------------------------------------------------------------
doVis	jsr  alloc_rgn		;allocate a temporary region

	ldy  #wstrucRgn+2		;combine the structure region of the
	jsr  pushandle		;..window we are closing with the desktop
	jsr  pushGray		;..and leave it in our temporary region
	pei  <rgnptr+2
	pei  <rgnptr
	_SectRgn

	lda  <topwind		;subtract the structure regions of all
	ldx  <topwind+2		;..the windows above the current one
	bra  @enterLoop		;..from the temporary region

@loop	ldy  #wframe		;if the window is invisible, then don't
	lda  [<work],y		;..subtract it.
	and  #F_VIS
	beq  @nextWindow

	pei  <rgnptr+2		;do the subtract
	pei  <rgnptr
	ldy  #wstrucRgn+2
	lda  [<work],y
	pha
	dey
	dey
	lda  [<work],y
	pha
	pei  <rgnptr+2
	pei  <rgnptr
	_DiffRgn

@nextWindow	ldy  #2		;move to the next window
	lda  [<work],y
	tax
	lda  [<work]
@enterLoop	stax <work
	cmp  <wind		;are we at the topmost window ? If so,
	bne  @loop		;..then we are done
	cpx  <wind+2
	bne  @loop

	jsr  fullport		;set the clip region to the full desktop
;---------------------------------------------------------------
findNewTop	jsr  killAllPortRgns	;dispose of all the regions in the window

	ldy  #2		;index for the high word of wNext
	lda  [<wind],y		;save the pointer to the next window on
	pha		;..the stack
	lda  [<wind]
	pha

	jsr  outoflist		;take the window out of the list

	jsr  find_top		;find the topmost visible window. If
	beq  @skipDraw		;..there aren't any then skip the hilite
	stax <wind

	ldy  #WindGlobal		;hiliting off?
	lda  [<data],y
	bne  @skipHilite

	ldy  #wframe		;if the window is already hilited then
	lda  [<wind],y		;..skip the hilite
	and  #F_HILITED
	bne  @skipHilite
	lda  [<wind],y
	ora  #F_HILITED
	sta  [<wind],y

	jsr  activate		;send a activate message to the window
@skipHilite	jsr  drawEntireFrame	;otherwise draw the entire frame
@skipDraw
;---------------------------------------------------------------
drawAllWindows	pla
	sta  <wind
	pla
	sta  <wind+2

@loop	lda  <wind
	ora  <wind+2
	beql addToDeskRgn

	jsr  testVis		;if the window is invisible, then skip
	beql @nextWindow		;..it

	pei  <rgnptr+2		;see if this window should be drawn by
	pei  <rgnptr		;..finding the intersection of the clip
	ldy  #wstrucRgn+2		;..and the structure region
	jsr  pushandle
	jsr  pushclip
	_SectRgn
	jsr  testclip		;is the clip region NOT empty ? if yes,
	bnel @nextWindow		;..then skip drawing

	lda  <wind		;is this window the new topmost window ?
	cmp  <top_vis		;..If so, then we have already drawn it
	bne  @notTheTop		;..so skip just the draw step
	lda  <wind+2
	cmp  <top_vis+2
	beq  @skipDraw
@notTheTop	jsr  drawEntireFrame	;draw the new window clipped to our region
@skipDraw
	ldy  #wContRgn+2		;the new area to update is the intersection
	jsr  pushandle		;..of the content region and our clip
	jsr  pushclip		;..region. Put it back into the clip
	jsr  pushclip		;..region for now.
	_SectRgn
	jsr  pushclip		;erase the new update area
	ldax <wind
	clc
	adc  #wport+GP_BkPat
	bcc  @1
	inx
@1	phx
	pha
	_FillRgn
	jsr  pushclip		;add the new update area to the update
	ldy  #wUpdateRgn+2		;..region
	jsr  pushandle
	ldy  #wUpdateRgn+2
	jsr  pushandle
	_UnionRgn

	ldy  #port+GP_ClipRgn+2	;offset the new update area to local
	lda  [<data],y		;..coordinates, so we can add it to the
	tax		;..visible region
	dey
	dey
	lda  [<data],y
	jsr  offsetToLocal
	jsr  pushclip		;add the new update area to the visible
	ldy  #wport+GP_VisRgn+2	;..region also
	jsr  pushandle
	ldy  #wport+GP_VisRgn+2
	jsr  pushandle
	_UnionRgn

	pei  <rgnptr+2		;subtract the struct region from our temp
	pei  <rgnptr		;..so the next window will be clipped
	ldy  #wStrucRgn+2		;..properly.
	jsr  pushandle
	pei  <rgnptr+2
	pei  <rgnptr
	_DiffRgn
@nextWindow
	ldy  #2		;move to the next window
	lda  [<wind],y
	tax
	lda  [<wind]
	stax <wind

	brl  @loop
;---------------------------------------------------------------
addToDeskRgn	lda  <FloorRgn+1		;if there isn't a floor region then don't
	beq  @skipFloor		;..change it !

	pei  <FloorRgn+2		;add whatever is left to the floor region
	pei  <FloorRgn
	jsr  pushrgnptr
	pei  <FloorRgn+2
	pei  <FloorRgn
	_UnionRgn
@skipFloor
	pei  <rgnptr+2		;clip to our remaining region
	pei  <rgnptr
	jsr  pushclip
	_CopyRgn

	jsr  disposeRgnPtr		;free the temporary work region

	jsr  PaintDesk		;paint the desktop using cliprgn

	jsr  fullport		;set the clip back to a full port
	rts
;---------------------------------------------------------------



;---------------------------------------------------------------
killAllPortRgns	ldy  #wport+GP_VisRgn+2	;clear the vis rgn of the killed window
	jsr  pushandle
	_SetEmptyRgn

	ldy  #wUpdateRgn+2		;dispose of all the regions in the window
	jsr  @killTheRgn		;..we are killing
	ldy  #wContRgn+2
	jsr  @killTheRgn
	ldy  #wStrucRgn+2

@killTheRgn	jsr  pushandle
	_DisposeRgn
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************
;
;
;==========================================
;          Change a	window's size.
;==========================================
;
;   IN:    PUSH:WORD - new content region width.
;          PUSH:WORD - new content region height, if both zero, just exit.
;          PUSH:LONG - pointer to window's port.
;
;  OUT:    None.
;
SizeWindow	PROC

theWindow	equ 9
newHeight	equ theWindow+4
newWidth	equ newHeight+2
updateFlag	equ newWidth+2
;
;
	jsr setup
;
	lda newWidth,s
	ora newHeight,s	Are both width and height zero?
	beq exit	If yes, just exit.
;
;
; --- Force height and width to be at least one --------------------------
;
	lda newWidth,s
	bne ok4
	inc a
	sta newWidth,s
;
ok4	lda newHeight,s
	bne ok5
	inc a
	sta newHeight,s
;
;
; --- Check if there is no change ----------------------------------------
;
ok5	jsr getcontwh	Compute width/height of content region.
;
	lda <wrect+y2
	cmp newHeight,s	Change in height?
	bne ok1
	lda <wrect+x2	Change in width?
	cmp newWidth,s
	beq exit	If no change, I'm done (nothing to do).
;
;
; --- Tell window's defProc about new size -------------------
;
ok1	ldy #0	Pass address of newHeight and newWidth.
	tsc
	clc
	adc #newHeight
	tax
	lda #wNewSize	Pass command.
	jsr callProc2	Call window's defProc.
	sta <uncovered
;
;
; --- Compute new content size -------------------------------
;
	lda <wrect+y1
	sta <rect+y1
	clc
	adc newHeight,s
	sta <rect+y2
;
	lda <wrect+x1
	sta <rect+x1
	clc
	adc newWidth,s
	sta <rect+x2
;
;
; --- Resize window	------------------------------------------
;
	jsr sizeguts	Resize window, makes content = rect.
;
exit	phb
	brl pop8bytes
	ENDP
;
;
;===============================================
;          Resize and position a window.
;===============================================
;
;   IN:    PUSH:WORD - TRUE to only draw what's uncovered,
;	   FALSE to redraw entire content region.
;          PUSH:LONG - pointer to new content RECT in global.
;          PUSH:LONG - pointer to window's port.
;
;  OUT:    None.
;
ResizeWindow	PROC
;
;
theWindow	equ 9
newRect	equ theWindow+4
redrawFlag	equ newRect+4
;
srcRect	equ work
;
;
	jsr setup
;
;
	lda newRect,s	Get pointer to new RECT.
	sta <srcRect
	lda newRect+2,s
	sta <srcRect+2
;
	ldy #x2	Clone new RECT.
lop1	lda [<srcRect],y
	tyx
	sta <rect,x
	dey
	dey
	bpl lop1
;
	lda redrawFlag,s	Pass redraw flag.
	sta <uncovered
;
	jsr sizeguts	Resize window, makes content = rect.
;
	phb
	brl pop10bytes
	ENDP
;
;
;============================================
;          Change a	window's size.
;============================================
;
;   IN:    <wind = pointer to window to	be sized.
;          <rect = new size and position of content region.
;          <uncovered = FALSE if whole content should be redrawn,
;	    TRUE if original content should not	be redrawn.
;
;  OUT:    <rect = trashed.
;          <wrect =	trashed.
;
;
; Change History
;
; 04 Nov 88	Steven Glass
;
; Notifies controls of size change.
;
sizeguts	PROC
;
		;using equates
;
;
; --- Remember window's current strucRgn ----------------
;
	jsr alloc_rgn	Get a temp region.
;
	lda <uncovered	Just whats uncovered?
	beq skip1
;
	ldy #wcontRgn+2	Save the original content region.
	jsr pushandle
	jsr pushrgnptr
	_CopyRgn	rgnptr = content region before resize.
	jsr alloc_rgn	rgnptr2 = rgnptr.
;
;
skip1	ldy #wstrucRgn+2
	jsr pushandle
	jsr pushrgnptr
	_CopyRgn	rgnptr = wstrucRgn.
;
	jsr new_size	content is set to 'rect'.
;
;
; --- Compute new wsturcRgn and wcontRgn ---------------------
;
	jsr moveWMgrOnWind	Move Window Manager's port on window.
	ldx #wCalcRgns
	jsr dispatch	Trash 'rect' and 'wrect'.
	jsr getWMgrCtls	Move control list into window and
;	                  call moveWmgrBack.
;
; --- Draw anything	uncovered by size change ------------------
;
	jsr setwmgrport	Current port = Window Manager's,
;
	jsr testVis	Is the window visible?
	beq skip4	If not, no need to draw anything.
;
	jsr calc_vis
;          
	jsr pushrgnptr	From the hole,
	ldy #wstrucRgn+2	add the new window,
	jsr pushandle
	jsr pushrgnptr	and that's the clobbered region.
	_UnionRgn
;
;
; --- Subtract any windows above ----------------------------------
;
	jsr pushclip	Save current clip handle.
;
	lda <rgnptr	Replace clip handle	with
	ldy #port+GP_ClipRgn region to subtract	from.
	sta [<data],y
	lda <rgnptr+2
	iny
	iny
	sta [<data],y
;
	jsr SubStructLoop	Subtract windows above.
;
	pla	Restore clip handle.
	ldy #port+GP_ClipRgn
	sta [<data],y
	pla
	iny
	iny
	sta [<data],y
;
;
	lda <uncovered	Just whats uncovered?
	beq skip2
;
	jsr pushrgn2	Intersect old content,
	ldy #wcontRgn+2	and new content region.
	jsr pushandle
	jsr pushrgn2
	_SectRgn
;
	jsr pushrgnptr	Clobbered region,
	jsr pushrgn2	less common area of	old and new content,
	jsr pushrgnptr	equals new clobbered region.
	_DiffRgn	rgnptr = rgnptr - rgnptr2
;
;
skip2	ldx #GrayRgn
	jsr pushptr
	jsr pushrgnptr
	jsr pushrgnptr
	_SectRgn	Clip clobbered region to desktop.
;
;
	jsr paintonedown	Redraw clobbered area.
;
skip4	jsr disposeRgnPtr	Free temp region
;
;
	lda <uncovered	Just whats uncovered?
	beq skip3
;
	jsr pushrgn2	Free copy of original content region.
	_DisposeRgn
;
	stz <uncovered	Reset default redraw global flag.
;
;
skip3	
;
; Notify the controls in this window about the change in size.
; (added 04 Nov 88 SEG)
;
	PushWord #FctlTellAboutSize
	PushWord #ctlWindChangeSize
	PushLong #0
	jsr get_PortPtr
	phx
	pha
	_NotifyCtls


	brl restore_port	Restore original port.
	ENDP
;
;
;=====================================================
;          Set a window's size and position.
;=====================================================
;
;   IN:    rect = new size and position.
;          wind = window pointer.
;
;  OUT:    window's port changed.
;
new_size	PROC
;
		;using equates
;
;
	jsr save_port	Save original port.
;
	jsr get_portptr
	phx
	pha
	_SetPort	Switch to window's port.
;
	lda <rect+x2
	sec
	sbc <rect+x1
	pha	Pass new width.
	lda <rect+y2
	sec
	sbc <rect+y1
	pha	Pass new height.
	_SetPortSize
;
	ldx <rect+y1	Global Y position.
	lda <rect+x1	Global X position.
	jsr pos_wind	Position the window.
;
	brl restore_port
	ENDP
;
;
;===============================================
;        Offset a window's Bounds RECT.
;        Used to position a window.
;===============================================
;
;   IN:  x = global	y position of content.
;        a = global	x position of content.
;        wind = window to reposition.
;
;  OUT:  x = deltay.
;        a = deltax.
;
pos_wind	PROC
;
		;using equates
;
deltay	equ 1
deltax	equ deltay+2
;
;
	eor #$FFFF	Negate x position.
	inc a
	pha	Save.
;
	txa
	eor #$FFFF	Negate y position.
	inc a
	pha	Save.
;
;
	ldy #wport+GP_Bounds+x1 Compute delta x.
	lda [<wind],y
	sec
	sbc deltax,s
	sta deltax,s
;
	dey	Compute delta y.
	dey
	lda [<wind],y
	sec
	sbc deltay,s
	sta deltay,s
;
;
lop1	lda [<wind],y	Offset bounds RECT.
	sec
	sbc deltay,s
	sta [<wind],y
;
	iny
	iny
	lda [<wind],y
	sec
	sbc deltax,s
	sta [<wind],y
;
	iny
	iny
	cpy #wport+GP_Bounds+x2 Done?
	bcc lop1
;
;
	plx	Return deltay.
	pla	Return deltax.
	rts
	ENDP


;=====================================
;          Track grow region.
;=====================================
;
;   IN:    PUSH:WORD - minimum horizontal position.
;          PUSH:WORD - minimum vertical	position.
;          PUSH:WORD - x starting position.
;          PUSH:WORD - y starting position.
;          PUSH:LONG - pointer to window's port.
;
;  OUT:    LONG - low word is content's new height,
;                 high word is content's new width.
;
GrowWindow	PROC

theWindow	equ 9
ystart	equ theWindow+4
xstart	equ ystart+2
min_h	equ xstart+2
min_w	equ min_h+2
new_h	equ min_w+2
new_w	equ new_h+2
;
content_h	equ work+8
content_w	equ content_h+2
;
;

*** added 26-Nov-90 DAL
	pha

	pha	;space for GetWFrame result
	lda 9+4,s
	pha
	lda 7+6,s
	pha
	_GetWFrame
	pla
	sta >gwTheFrame

	pha
	pha
	lda 9+6,s	;window pointer, high word
	pha
	sta >gwTheWindow+2
	lda 7+8,s	;window pointer, low word
	pha
	sta >gwTheWindow
	_GetZoomRect
	pushlong #oldZoomRect
	pea 0
	pea 8
	_BlockMove

	pla
*** end of 26-Nov-90 DAL

	jsr setup

	lda #wStartGrow	Tell window's defProc starting to grow.
	jsr callProc2
;
	jsr setwmgrport	Switch to Window Manager's port.
	jsr fullport
;
	ldy #wcontRgn	Get global coordinates of content.
	jsr getbounds	wrect = content bounds.
	jsr wrect2rect	rect = wrect.
;
	ldy #wstrucRgn	Get global coordinates of content.
	jsr getbounds	wrect = wwStructRgn	bounds.
;
;
; --- Compute min and max deltas -------------------------------------------
;
	lda <rect+y2	Compute the height of the content area.
	sec
	sbc <rect+y1
	inc a
	sta <content_h
;
	lda <rect+x2	Compute the width of the content area.
	sec
	sbc <rect+x1
	inc a
	sta <content_w
;
	lda min_h,s
	sec
	sbc <content_h
	ldy #drag_bound+y1	Min y delta.
	sta [<data],y
;
	lda min_w,s
	sec
	sbc <content_w
	ldy #drag_bound+x1	Min x delta.
	sta [<data],y
;
	lda #wGetMaxGrow	Pass request number.
	jsr callProc2	a = max height.
;	                  x	= max width.
;
	sec
	sbc <content_h
	ldy #drag_bound+y2	Max y delta.
	sta [<data],y
;
	txa
	sec
	sbc <content_w
	ldy #drag_bound+x2	Max x delta.
	sta [<data],y
;
;
; --- Set slop bounds ------------------------------------------------
;
	ldy #scInfo+8+x2
	ldx #slop_bound+x2
lop1	lda [<data],y
	phy
	txy
	sta [<data],y
	ply
	dey
	dey
	dex
	dex
	cpx #slop_bound
	bcs lop1
;
;
; --- Call DragRect	---------------------------------------------------
;
	lda xstart,s	Pass cursor's starting position.
	sta <xrat
	lda ystart,s
	sta <yrat
;
	lda #$013C	Custom draw, on one	pixel grid.
	sta <work
;
	lda #draw_grow>>16	Address of custom draw routine.
	sta <work+4
	lda #draw_grow
	sta <work+2
;
	jsr callDrag	Drag the grow box.
;	                  a	= delta y.
;	                  x	= delta x.
;
;
; --- Compute new width and height ---------------------------------
;
	tay	Any change?
	bne ok3
	txy
	beq store3	Return zero if no change.
;
ok3	clc	Compute new content	height.
	adc <content_h
	dec a
	tay
;
	txa	Compute new content	width.
	clc
	adc <content_w
	dec a
;
store3	sta new_w,s	Return new content size to caller.
	tya
	sta new_h,s
;
;
; --- Clean-up and exit -----------------------------------------
;
	jsr restore_port	Restore original port.
;
;
	stz <uncovered	Global flag.
	inc <uncovered	Don't redraw original content region.

*** added 26-Nov-90 DAL
	lda new_w,s
	ora new_h,s
	bne @changedSize

	pushlong #oldZoomRect
	lda >gwTheWindow+2
	pha
	lda >gwTheWindow
	pha
	_SetZoomRect

	lda >gwTheFrame
	pha
	lda >gwTheWindow+2
	pha
	lda >gwTheWindow
	pha
	_SetWFrame
@changedSize
*** end of 26-Nov-90 DAL

	phb
	brl pop12bytes

oldZoomRect	ds.b 8	;26-Nov-90 DAL
gwTheWindow	dc.l 0	;26-Nov-90 DAL
gwTheFrame	dc.w 0	;26-Nov-90 DAL
;
; = = = = = = = = =	= = = = = = = = = =	= = =
;          Custom DragRect outline
;          draw routine.
; = = = = = = = = =	= = = = = = = = = =	= = =
;
draw_grow
;
deltay	equ 6
deltax	equ deltay+2
;
;
	phd	Save caller's direct page.
;
	pha	Space for result.
	pha
	pea 0	Pass system tool flag.
	pea WindToolNum	Pass Window Manager	tool number.
	_GetWAP
	pld	Window Manager's direct page pointer.
	pla	Don't need high word.
;
	stz <param	Pass address of window frame RECT.
	tdc
	clc
	adc #wrect
	sta <param+2
;
	ldx #wGrowFrame	Ask defProc to draw	outline.
	jsr dispatch	Pass message to window's defProc.
	tax	Did defProc complete task?
	bne exit10
;
;
; --- Draw default grow outline ----------------------------------------
;
;   IN:    wrect = window frame RECT.
;          rect = content RECT.
;
	jsr pushwrect	Push the address of	'wrect'.
	_FrameRect
;
	lda <rect+y1
	sta <work+y1
	lda <rect+x1
	sta <work+x1
;
	lda <rect+y2
	clc
	adc deltay,s
	sta <work+y2
;
	lda <rect+x2
	clc
	adc deltax,s
	sta <work+x2
;
	jsr pushwork
	_FrameRect
;
;
exit10	pld	Restore caller's direct page.
;
	lda 0,s	Move return address	down stack.
	sta 4,s
	lda 2,s
	sta 6,s
	pla	Remove input parameters.
	pla
	rtl
;
	ENDP
;
;
;============================================
;          Pin a point in a RECT.
;============================================
;
;   IN:    PUSH:WORD - x coordinate of point to pin.
;          PUSH:WORD - y coordinate of point to pin.
;          PUSH:LONG - pointer to RECT in which to pin point.
;
;  OUT:    LONG - high word is pinned y	coordinate,
;                 low word is pinned x coordinate.
;
PinRect	PROC
;
		;using equates
;
bindRect	equ 9
ypoint	equ bindRect+4
xpoint	equ ypoint+2
ypinned	equ xpoint+2
xpinned	equ ypinned+2
;
;
	jsl IncBusyFlg
	phd	Save orginal zero page.
;
	tsc	Switch zero page into stack.
	tcd
;
; Zero out the result
	lda <yPoint
	sta <yPinned
	lda <xPoint
	sta <xPinned
	
; now test to see the Y value first...
	lda <yPoint	; test to see if this is greaterthan or equal to
	cmp [<bindRect]
	bpl @1	; if this test is ok, then <yPoint is greater than bind.y1
	lda [<bindRect]
	sta <yPinned
	bra @testX	; now tets the <X> value
@1
	ldy #4
	cmp [<bindRect],y
	bmi @testX	; <Y> value is fine...
	lda [<bindRect],y
	dec a
	sta <yPinned
; and test the X value
@testX
	ldy #2
	lda <xPoint	; test to see if this is greaterthan or equal to
	cmp [<bindRect],y
	bpl @2	; if this test is ok, then <yPoint is greater than bind.y1
	lda [<bindRect],y
	sta <xPinned
	bra @TestDone	; now tets the <X> value
@2
	ldy #6
	cmp [<bindRect],y
	bmi @testDone	; <Y> value is fine...
	lda [<bindRect],y
	dec a
	sta <xPinned
@TestDone	phb
	brl pop8bytes

	ENDP

;
; Was:
;
;
; --- Force negative top and left to zero ------------
;
;	lda [<bindRect]
;	bpl ok1
;	lda #0
;ok1	sta <ypinned
;;
;	ldy #x1
;	lda [<bindRect],y
;	bpl ok2
;	lda #0
;ok2	sta <xpinned
;;
;;
;; --- Pin the point	--------------------------------------------
;;
;	lda <ypoint
;	cmp <ypinned
;	bcs skip1
;	lda <ypinned	Pin to top side.
;;
;skip1	iny
;	iny
;	cmp [<bindRect],y
;	bcc store1
;	lda [<bindRect],y	Pin to bottom side,
;	dec a	less one.
;store1	sta <ypinned
;;
;;
;	lda <xpoint
;	cmp <xpinned
;	bcs skip2
;	lda <xpinned	Pin to left side.
;;
;skip2	iny
;	iny
;	cmp [<bindRect],y
;	bcc store2
;	lda [<bindRect],y	Pin to right side,
;	dec a	less one.
;store2	sta <xpinned
;;
;;
;	phb
;	brl pop8bytes
;	ENDP
;
;=================================================
;          Flip a window's zoom position.
;=================================================
;
;   IN:    PUSH:LONG - pointer of window's port.
;
;  OUT:    None.
;
ZoomWindow	PROC
;
;
;
	jsr setup
;
	lda #wZoomWindow	Request number.
	jsr callProc2	Tell defProc to Zoom Window.
;
	phb
	brl pop4bytes
	ENDP
;
;
;            APPEND	WFIND.ASM
	TITLE 'Apple IIGS Window Manager               WFIND.ASM'
;
;          Copyright Apple Computer, Inc. 1986,1987,1988
;          All rights reserved
;          Written by Dan Oliver
;
;
;=====================================
;        Find Window Function.
;=====================================
;
;  IN:   PUSH - LONG - address of where	to store window pointer.
;        PUSH - LONG - point on screen of where to check.
;
; OUT:   WORD - function at given point, window also set at	given address.
;
;               wInDesk         On Desktop.
;               wInMenuBar      On System Menu Bar.
;               wInSysWindow    On System window.
;               wInContent      In content region.
;               wInDrag         In drag	region.
;               wInGrow         In grow	region, active window only.
;               wInGoAway       In go-away region, active window only.
;               wInZoom         In zoom	region, active window only.
;               wInInfo         In information bar.
;               wInVScroll      In right scroll bar.
;               wInHScroll      In bottom scroll bar.
;               wInFrame        In frame, but not on anything else.
;
;
FindWindow	PROC
;
		;using equates
;
point	equ 9	Point to check.
retWind	equ point+4	Address of where to	store window.
retLoc	equ retWind+4	Location on stack of return parameter.
;
;
	jsl IncBusyFlg

	phd
	tcd
*** added 25-Mar-91 DAL
	stz <wind+2
	stz <wind
*** end of 25-Mar-91 DAL
;
	jsr fullport	Set clip to GrayRgn.
;
;
; --- Check if point is on the desktop ----------------------------
;
	pha	Space for return value.
	pea 0	Pass pointer to point to check.
	tsc
	clc
	adc #point+4
	pha
	pei <GrayRgn+2	Region to check, desktop.
	pei <GrayRgn
	_PtInRgn	Check if the point is on the desktop.
	lda #wInMenuBar	Not on the desktop flag, just in case.
	plx
	beq exit1
;
;
; ------ We're on the desktop.  Are we on a window? ------------------------
;
ck_wind	ldx <topwind	Start at top and check every window.
	lda <topwind+2
	bra enter1
;
lop1	jsr testVis	Test the window's F_VIS flag.
	beq next1	Check only visible windows.
;
	lda point+x1,s	Past point to check.
	tax
	lda point+y1,s
	jsr findloc	Check if on a window part.
	tax
	beq next1	On any part of window?
;
	sta retLoc,s	Save part found.
	ldy #wport+4	Set the system/nonsystem window
	lda [<wind],y	flag in the part code.
	and #$8000
	ora retLoc,s
	bra exit1
;
next1	ldy #wnext	Check the next window.
	lda [<wind],y
	tax
	iny
	iny
	lda [<wind],y
enter1	sta <wind+2
	stx <wind
;
	ora <wind
	bne lop1	Any more windows to	check?
;
;    On desktop, but not on any window,	flag is zero.
;
	lda #wInDesk
;
exit1	sta retLoc,s	Return location to caller.
;
	lda retWind,s	Return window pointer.
	sta <workptr
	lda retWind+2,s
	sta <workptr+2
;
	jsr get_portptr	Convert 'wind' to port pointer.
	sta [<workptr]
	ldy #2
	txa
	sta [<workptr],y
;
	phb
	brl pop8bytes
	ENDP
;
;
;=======================================
;        Find point	on window.
;=======================================
;
;  IN:   a = y point in global.
;        x = x point in global.
;        wind = window to check.
;
; OUT:     a =   Zero if not on anything.
;                wInContent if in content region.
;                wInDrag if in drag region.
;                wInGrow if in grow region.
;                wInGoAway if in go-away region.
;                wInZoom if in zoom region.
;                wInInfo
;                wInVScroll
;                wInHScroll
;                wInFrame
;
findloc	PROC
;
		;using equates
;
;
	sta <yrat	Save point.
	stx <xrat
;
;
; --- Check for hit	on window --------------------------------
;
	ldy #wstrucRgn+2
	jsr test_pt	Is the point on the	window?
	bne next1
;
	lda #0	Not on window flag.
	rts
;
;
; --- Point is on the window, now find out where -------------
;
next1	ldy #wcontRgn+2	Is the point on the	content region?
	jsr test_pt
	beq next2
;
	lda #wInContent	On content.
	rts
;
;
; --- Check other regions on window --------------------------
;
next2	jsr getwgrect	wrect = window's strucRgn bounds (global).
;
	lda <yrat	Convert point to check to window's local.
	sec
	sbc <wrect+y1
	sta <param
;
	lda <xrat
	sec
	sbc <wrect+x1
	sta <param+2
;
	jsr moveWMgrOnWind	Move Window Manager	over window.
;
	ldx #wHit	Check hit message.
	jsr dispatch	Call window definition procedure.
	pha
;
	jsr moveWMgrBack	Put Window Manager's port back.
;
	pla
	rts
	ENDP
;
;
;===============================================
;        Check if a	point is in a region.
;===============================================
;
;   IN:  yrat = y point.
;        xrat = x point.
;        wind = window to check.
;        y = offset	into window record where region handle is.
;
;  OUT:  Equal = FALSE if point is in region.
;
test_pt	PROC
;
	pha	Space for returned value.
	jsr pushyrat	Pass pointer to point to check.
	jsr pushandle	Pass handle of region to check.
	_PtInRgn
	pla	Get result which sets return flag.
	rts
	ENDP
;
;
;=====================================
;        Check point inside rect.
;=====================================
;
;   IN:  a = y position.
;        x = x position.
;        rect = rectangle to check.
;
;  OUT:  if inside equal = FALSE, 'A' and 'Y' = 1.
;        if not inside equal = TRUE, 'A' and 'Y' = 0.
;
inside	PROC
;
		;using equates
;
;
	ldy #0	Not inside flag.
;
	bit <rect+y1	Is top side off top	of screen?
	bmi ok1
	cmp <rect+y1	Below top side?
	bcc exit1
ok1	bit <rect+y2	Is bottom off top?
	bmi exit1
	cmp <rect+y2	Above bottom side?
	bcs exit1
;
	bit <rect+x1
	bmi ok2
	cpx <rect+x1	To right of left side?
	bcc exit1
ok2	bit <rect+x2	Is right side off left side of screen?
	bmi exit1
	cpx <rect+x2	To left of right side?
	bcs exit1
;
	iny	Set inside flag.
;
exit1	tya	Set return equal flag.
	rts
	ENDP
;
;
;===================================
;        Watch Zoom	Box.
;===================================
;
;   IN:    PUSH:LONG - y,x starting point of cursor in global coordinates.
;          PUSH:LONG - pointer to window port.
;
;  OUT:    WORD - TRUE if button released inside zoom box, else FALSE.
;
TrackZoom	PROC
;
;
theWind	equ 9
point	equ theWind+4
retFlag	equ point+4
;
;
	jsr setup
;
	lda #wInZoom	Zoom box flag.
	bra trackbox
;
;
; = = = = = = = = =	= = = = = = = = =
;        Watch Box.
; = = = = = = = = =	= = = = = = = = =
;
;   IN:    PUSH:LONG - y,x starting point of cursor in global coordinates.
;          PUSH:LONG - pointer to window port.
;
;  OUT:    WORD - TRUE if button released inside close box,	else FALSE.
;
	ENTRY TrackGoAway
TrackGoAway		;       
;
;
	jsr setup
;
	lda #wInGoAway	Close box flag.
;
	ENTRY trackbox
trackbox		;       
;
	sta <boxflag	wInGoAway or wInZoom.
;
	lda #0	Starts out as normal.
	sta retFlag,s
;
	jsr clipabove
	jsr moveWMgrOnWind	Move Window Manager	over window.
;
	lda point,s	Pass local coordinates to defProc.
	sta <param
	lda point+2,s
	sta <param+2
;
	jsr pushparam
	_GlobalToLocal
;
;
	jsr ck_inbox	Check if rat in box.
	lda retFlag,s	Must start out in box.
	beq exit
;
;
lop1	jsr ckbutton	Check for a button up event.
	sty <param
	sta <param+2
	bne released	Done if button up.
;
	jsr ck_inbox	Check if rat in box.
	bra lop1
;
;
; --- Button has been released ------------------------------------
;
released	jsr ck_inbox	Check if still in box.
;
	lda #0	Always exit with box as normal.
	jsr drawbox
;
;
exit	jsr moveWMgrBack	Put Window Manager's port back.
	phb
	brl pop8bytes
;
;
; = = = = = = = = =	= = = = = = = = = =	=
;          Check if	rat in box.
; = = = = = = = = =	= = = = = = = = = =	=
;
;   IN:    <param =	position to check, in local.
;          <boxFlag	= wInGoAway or wInZoom.
;
;  OUT:    retFlag = TRUE if in box, FALSE if outside box.
;
ck_inbox	ldx #wHit	Pass hit test window command.
	jsr dispatch	Call defProc.
;
	ldx #0	Not in box flag, just in case.
	cmp <boxFlag	In proper part?
	bne store100
	ldx #TRUE	In box flag.
store100	txa
	cmp retFlag+2,s	Has state changed?
	beq exit100
;
	sta retFlag+2,s	New state.
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = =	= = = =
;          Ask window defProc to draw close or zoom box.
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = =	= = = =
;
;   IN:    a = 0 to	unhilite box, $8000	to hilite.
;          <boxFlag	= wInGoAway to draw	close box, wInZoom to draw zoom box.
;
drawBox	pei <param+2	Save.
	pei <param
;
	sta <param+2	Pass hilite flag.
	lda <boxFlag
	sec
	sbc #wInGrow	Convert wInGoAway to 1, wInZoom to 2.
	sta <param	Pass part to draw.
;
	pei <wrect+y2	Save.
	pei <wrect+x2
;
	ldx #wDraw	Pass draw command to defProc.
	jsr dispatch
;
	pla	Restore.
	sta <wrect+x2
	pla
	sta <wrect+y2
	stz <wrect+y1
	stz <wrect+x1
;
	pla	Restore.
	sta <param
	pla
	sta <param+2
;
exit100	rts
;
	ENDP
;
;
;=============================================
;        Bring a window to the front.
;=============================================
;
;   IN:  PUSH:LONG - window port to bring to front.
;
;  OUT:  Nothing.
;
BringToFront	PROC
;
	jsr setup
;
	lda #0	Don't do any highlighting flag.
	bra tofront	Execute common code.
	ENDP
;
;
;========================================
;        Make Window the top window.
;========================================
;
;   IN:  PUSH:LONG - pointer to the window port to become top.
;
;  OUT:  None.
;
;
; Change History
*
* Feb 89	David Good
*
* Changed a bunch of stuff to make it go faster.
*
* 19 Apr 89	David Good
*
* Made vis region equal to the intersection of Gray and
* content regions instead of just content.  Fixed a number 
* fun and hard to track bugs.
*
****************************************************************

SelectWindow	PROC

;---------------------------------------------------------------
	DefineStack
origD	word
RTL1	block 3
RTL2	block 3
theWindow	long
;---------------------------------------------------------------

;---------------------------------------------------------------

	jsl  IncBusyFlg

	phd		;save the user's direct page pointer
	tcd		;switch to our direct page

	lda  theWindow,s		;make the window we are selecting a window
	sec		;..pointer and put in in <workptr
	sbc  #4
	sta  <workptr
	lda  theWindow+2,s
	sbc  #0
	sta  <workptr+2
;---------------------------------------------------------------
checkList	ldax <topwind		;check to make sure the window we are
	bra  @enter		;..selecting is in the list
@loop	lda  <wind
	cmp  <workptr
	bne  @1
	lda  <wind+2
	cmp  <workptr+2
	beq  @foundIt
@1	ldy  #2		;move to the next window
	lda  [<wind],y
	tax
	lda  [<wind]
@enter	stax <wind
	ora  <wind+2		;check to see if there are more windows
	bne  @loop		;..in the list. If not, then exit
	brl  exit

@foundIt	jsr  testVis		;if the window is invisible, then call the
	beq  gotoAirport		;..airport

	ldax <topwind		;are we selecting the topmost window ?
	cmp  <wind		;..if so, then call the airport
	bne  @notTheTop
	cpx  <wind+2
	beq  gotoAirport
@notTheTop	stax <wind
	jsr  testVis		;is the topmost window invisible ? If so,
	beq  gotoAirport		;..then call the airport
	lda  [<wind],y		;is the topmost window hilighted ? If so,
	and  #F_HILITED		;..then we can do things the fast way
	bne  doFast
;---------------------------------------------------------------
gotoAirport	ldax <workptr		;copy <workptr to <wind
	stax <wind
	lda  #1		;do highlighting flag.

	ENTRY tofront
tofront	ldx  #$FFFF		;move window to top flag.
	txy
	jsr  airport		;change window's plane.

	brl  exit
;---------------------------------------------------------------
doFast	jsr  setwmgrport		;switch to the window manager's port
	jsr  fullport		;set the clip region to a full port

	jsr  unhilite		;clear the hilight bit on the topmost window
	jsr  deactivate		;send deactivate message to 'wind'.
	
	jsr  drawEntireFrame	;draw the frame as unhilighted

	ldy  #wStrucRgn+2		;get the structure region into work
	lda  [<workptr],y
	sta  <work+2
	dey
	dey
	lda  [<workptr],y
	sta  <work

	lda  <topwind		;start with the topmost window
	ldx  <topwind+2
;---------------------------------------------------------------

mainLoop	stax <wind		;the window we are working with goes in
	cmp  <workptr		;..<wind. Is it the same as the window
	bne  @1		;..we are moving to the top ? If it is
	cpx  <workptr+2		;..then stop changing visible regions
	beq  @done
@1
	jsr  testVis		;is this window invisible ? If so, then
	beq  @skip		;..skip it

	ldax <work		;make the structure region local to the
	jsr  offsetToLocal		;..window

	ldy  #wport+GP_VisRgn+2	;the visible region is the old visible
	jsr  pushandle		;..region minus the entire struct region
	pei  <work+2		;..of the window that moved up
	pei  <work
	ldy  #wport+GP_VisRgn+2
	jsr  pushandle
	_DiffRgn

	ldax <work		;make the structure region global again
	jsr  offsetToGlobal
@skip
	ldy  #2		;get the next window ptr into A and X
	lda  [<wind],y		;..wNext is zero, so take advantage of
	tax		;..this
	lda  [<wind]
	bra  mainLoop

@done	jsr  outoflist		;take the new topmost window out of the
	lda  #$FFFF		;..list and put it back on top
	sta  <workptr
	sta  <workptr+2
	jsr  intolist

;---------------------------------------------------------------
calcUpdateRgn	jsr  alloc_rgn		;allocate a temp work region in <rgnptr

	ldy  #wport+GP_VisRgn+2	;offset the visible region to global
	lda  [<wind],y		;..coordinates
	tax
	dey
	dey
	lda  [<wind],y
	jsr  offsetToGlobal

	ldy  #wContRgn+2		;the new update region is the difference
	jsr  pushandle		;..between the content region and the
	ldy  #wport+GP_VisRgn+2	;..old visible region
	jsr  pushandle
	pei  <rgnptr+2
	pei  <rgnptr
	_DiffRgn

	pei  <rgnptr+2		;add the new update area to the old
	pei  <rgnptr		;..update region
	ldy  #wUpdateRgn+2
	jsr  pushandle
	ldy  #wUpdateRgn+2
	jsr  pushandle
	_UnionRgn

	ldy  #wContRgn+2		;set the new visible region to the
	jsr  pushandle		;..intersection of the content region
	jsr  pushGray		;..and the desktop
	ldy  #wport+GP_VisRgn+2
	jsr  pushandle
	_SectRgn

	ldy  #wport+GP_VisRgn+2	;offset the visible region back to local
	lda  [<wind],y		;..coordinates
	tax
	dey
	dey
	lda  [<wind],y
	jsr  offsetToLocal

	jsr  hilite		;hilight the new topmost window
	jsr  activate		;send activate message to 'wind'.
	jsr  drawEntireFrame	;draw the new window frame

 	pei  <rgnptr+2		;erase the new update area
	pei  <rgnptr
	ldax <wind
	clc
	adc  #wport+GP_BkPat
	bcc  @1
	inx
@1	phx
	pha
	_FillRgn

	jsr  disposeRgnPtr		;dispose of the temporary region

	jsr  restore_port		;restore original port.
;---------------------------------------------------------------
exit	phb

	brl pop4bytes		;pop input parameters and return.
;---------------------------------------------------------------

	ENDP

****************************************************************

WindXXXProc	PROC  ENTRY

;---------------------------------------------------------------
	ENTRY  offsetToLocal
	ENTRY  offsetToGlobal
;---------------------------------------------------------------

;---------------------------------------------------------------
offsetToLocal	PushAX
	ldy  #wport+GP_Bounds+x1
	jsr  pushWlong
	bra  offsetIt
;---------------------------------------------------------------
offsetToGlobal	PushAX
	ldy  #wport+GP_Bounds+x1
	lda  [<wind],y
	eor  #$FFFF
	inc  a
	pha
	dey
	dey
	lda  [<wind],y
	eor  #$FFFF
	inc  a
	pha
offsetIt	_OffsetRgn
	rts
;---------------------------------------------------------------

	ENDP

****************************************************************

drawEntireFrame	PROC  ENTRY

;---------------------------------------------------------------
	jsr  moveWMgrOnWind		;setup for drawing the frame

	stz  <param		;pass 'draw entire frame' flag.
	stz  <param+2		;pass 'unhilited' flag.
	ldx  #wDraw
	jsr  dispatch

	brl  moveWMgrBack		;restore the clip region
;---------------------------------------------------------------

	ENDP

****************************************************************
;
;==============================================
;        Send a window behind another one.
;==============================================
;
;   IN:  PUSH:LONG - pointer to window in front of first given window,
;	   or -2 to put it on the bottom.
;        PUSH:LONG - pointer to the window's port.
;  OUT:  None.
;
SendBehind	PROC
;
;
;
	jsr setup	Get 2 pointers of input.
;
	jsr fixworkptr
	tay	Pass which window wind goes behind.
	lda #1	Perform hiliting flag.
	jsr airport
;
	phb
	brl pop8bytes
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = =
;          Make workptr a window pointer.
;100= = = = = = = =	= = = = = = = = = =	= = = = =
;
;   IN:    workptr = window port pointer.
;
;  OUT:    workptr = window pointer.
;          a = workptr.
;          x = workptr+2.
;
	ENTRY fixworkptr
fixworkptr		;       
;
	lda <workptr
	ldx <workptr+2	Was a window pointer passed?
	bmi exit100
;
	sec	Make window pointer	a record pointer.
	sbc #wport
	bcs store100
	dex
;
store100	sta <workptr
	stx <workptr+2
exit100	rts
;
	ENDP
;
;
;==================================================
;          Change window plane and redraw.
;===================================================
;
;   IN:    a = $xxx1 to doing hiliting/unhiliting, $xxx0 to	not.
;              $8xxx if window was invisible, $0xxx if window was visible.
;          x/y = window to put <wind behind.
;                $FFFFFFFF to move <wind to top.
;                $FFFFFFFE to move <wind to bottom.
;          <wind = window to send behind, if invisible no drawing done.
;
;  OUT:  None.
;
airport	PROC
;
nextWindow	equ 1
behind	equ nextWindow+4
dohilite	equ behind+4
;
;
	pha	1=hilite, 0=don't do hiliting.
;
	sty <workptr	Save behind parameter.
	stx <workptr+2
	phx
	phy
;
	ldy #wNext+2	Save window under one being changed.
	lda [<wind],y
	pha
	lda [<wind]
	pha
;
;
; --- Get copy of visible window that I	beginnin with --------------------
;
	jsr setwmgrport	Swicth to Window Manager's port.
;
	jsr alloc_rgn	Allocate a temp work region.
;
	lda dohilite,s	Did the window start as invisible?
	bmi skip1
;
	jsr testVis	If window is invisible don't do drawing.
	beq skip1
;
	ldy #wstrucRgn+2	Clone window's region.
	jsr pushandle
	jsr pushclip
	_CopyRgn
;
	jsr clipabove	Subtract all windows above 'wind'.
;
	jsr pushclip	Clone beginning visible window part.
	jsr pushrgnptr	rgnptr = beginning visible window.
	_CopyRgn
;
;
; --- Reorder window list ---------------------------------------------
;
skip1	jsr outoflist	Remove 'wind' from window list.
	bpl ok1	Was 'wind' in the list?
	brl exit
;
ok1	lda behind,s	Pass window to send	'wind' behind.
	sta <workptr
	lda behind+2,s
	sta <workptr+2
	jsr intolist	Put 'wind' into proper plane.
;
;
; --- Compute the area of the screen that changed -----------------------
;
	jsr testVis	If window is invisible don't do drawing.
	bne @ok2
	brl exit
@ok2
;
	lda #$FFFF
	cmp behind,s
	bne @toBottom
	cmp behind+2,s
	bne @toBottom
;
	lda nextWindow+2,s	Compute visRgns to where new top window came from.
	tax
	lda nextWindow,s
	bra @ok1
;
@toBottom	inc a	Compute visRgns for every window.
	tax
@ok1	jsr calc_vis	Compute visRgns.
;
;
	ldy #wstrucRgn+2	Clone window's region.
	jsr pushandle
	jsr pushclip
	_CopyRgn
;
	jsr clipabove	Subtract all windows above 'wind'.
;
	jsr pushrgnptr	Beginning visible window.
	jsr pushclip	Visible window after plane change.
	jsr pushrgnptr	Result in clobbered	region.
	_XorRgn	Compute the part that changed.
;
;
; --- Unhilite/Hilite as needed, and add frames to clobbered region --------
;
skip2	lda dohilite,s	Did caller want hiliting changes?
	and #$0001
	beq exit1
;
	stz <work	Set top window not found flag.
;
	lda <topwind
	ldx <topwind+2
	bra enter1
;
lop1	jsr testVis	Test the window's F_VIS flag.
	beq nextwind	If not, skip it.
;
	lda [<wind],y
	and #F_HILITED	Get hilite bit.
	ldx <work	Has the first visible window been found?
	bne ck_unlite	If yes, this window	should be unhilited.
;
	tax	Is the window hilited?
	bne exit1	If yes, top still top, clobbered ready.
;
	inc <work	Set 'top window found' flag.
;
	jsr hilite	Hilite the new top window.
	jsr activate	Send activate message to 'wind'.
	bra plusFrame	Add window's frame to clobbered area.
;
ck_unlite	tax	Is inactive window unhilited?
	beq nextwind	If yes, it hasn't changed states.
;
	jsr unhilite	Clear hilite bit.
	jsr deactivate	Send deactivate message to 'wind'.
;
plusFrame	jsr addframe	Add window's frame to clobbered region.
;
nextwind	ldy #2
	lda [<wind],y
	tax
	lda [<wind]
;
enter1	sta <wind
	stx <wind+2
	ora <wind+2	Any more windows?
	bne lop1
;
;          
exit1	lda <topwind	Start with first window in list.
	sta <wind
	lda <topwind+2
	sta <wind+2
;
	jsr paintonedown	Draw all windows in	clobbered region.
;
exit	jsr disposeRgnPtr	Free temp work region.
;
	jsr zeroOrigin	SetOrigin( 0,0,).
	jsr restore_port	Restore original port.
;
	pla
	pla
	pla
	pla
	pla
	rts
	ENDP
;
;
;===========================================================
;        Add window's frame region to rgnptr region.
;===========================================================
;
;   IN:    wind = window frame to add.
;
;  OUT:    rgnptr =	rgnptr + wind's visible frame.
;          Window Manager's clip region is trashed.
;
addframe	PROC
;
		;using equates
;
;
; --- Compute area of frame to draw -----------------------------------------
;
	ldy #wstrucRgn+2
	jsr pushandle
	ldy #wcontRgn+2
	jsr pushandle
	jsr pushclip
	_DiffRgn	clip = wstrucRgn - wcontRgn.
;
	jsr clipabove	Remove any windows above.
;
	jsr pushrgnptr
	jsr pushclip
	jsr pushrgnptr
	_DiffRgn	clobbered = clobbered - visible frame.
;
;
; --- Redraw frame ----------------------------------------------------------
;
	brl drawframe
	ENDP
;
;
;========================================
;        Make a window visible.
;========================================
;
;   IN:  PUSH - LONG - pointer to the window port.
;  OUT:  None.
;
;        If the window isn't going to be the top visible window
;              then	just call ShowHide.
;        Else
;              call	SelectWindow:
;		Unhighlight current	top window.
;		Moves the window to	the top of list.
;              call	ShowHide to make the window visible.
;
ShowWindow	PROC
;
;
	jsr setup
;
	jsr testVis	Test the window's F_VIS flag.
	bne exit100	Is the window already visible?
;
;
; --- Is the window	going to be the active window? ----
;
	lda <topwind+2
	ldx <topwind
lop100	cmp <wind+2	Are we at the window?
	bne next100
	cpx <wind
	beq newtop	The window is in front of the
;	                  current active window.
next100	stx <workptr
	sta <workptr+2
;
	ldy #wframe	Is this window visible?
	lda [<workptr],y
	and #F_VIS
	bne justshowit	The window is not in front of
;	                  current active window.
;
	lda [<workptr]
	tax
	ldy #wnext+2
	ora [<workptr],y	Is the window event	in the list?
	beq exit100
;
	lda [<workptr],y
	bra lop100
;
;
; --- Window is going to be the new active window. ----
;
newtop	ldy #wframe
	lda [<wind],y
	ora #F_VIS	Set visible flag.
	sta [<wind],y
;
;	                  VisRgn must be empty.
;
	lda #$8001	Window was invisible, do hiliting.
	ldx #$FFFF	Make the window top.
	txy
	jsr airport
	bra exit100
;
;
; --- Show the window. -----------------
;
justshowit	pea F_VIS	Make window visible.
	jsr get_portptr
	phx
	pha
	_ShowHide
;
;
exit100	phb
	brl pop4bytes	Pop input parameters and return.
	ENDP
;
;
;============================
;        Hide a window.
;============================
;
;   IN:    PUSH:LONG - pointer to window's port.
;
;  OUT:    None.
;
;          Hide the	window.
;          Select a	new active window if the hidden window was active.
;
HideWindow	PROC
;
		;using equates
;
theWind	equ 9
;
;
	jsr setup
;
	jsr testVis	Test the window's F_VIS flag.
	beq exit100
;
	jsr find_top	Find top most visible window.
;	                  and make it the new top window.
;
	jsr get_portp2	Get pointer to window's port.
	phx	Save.
	pha
;
	pea 0	Hide window.
	lda theWind+8,s	Pass window pointer.
	pha
	lda theWind+8,s
	pha
	_ShowHide
;
;
; --- Was the window the active window?	----
;
	pla	Get saved prior top	window.
	plx
	cpa theWind,s	Did I just hide the	top window?
	bne exit100
	txa
	cmp theWind+2,s
	bne exit100	Don't worry, I didn't hide the top window.
;
	jsr find_top	Find the next visible window,
;	                  and make it the new top window.
	beq exit100	Are there any windows left?
;
	jsr get_portp2	Pass pointer to window's port.
	phx
	pha
	_SelectWindow
;
exit100	phb
	brl pop4bytes
	ENDP
;
;
;===================================
;        ShowHide a	window.
;===================================
;
;   IN:  PUSH - WORD - FALSE to hide, TRUE to show.
;        PUSH - LONG - pointer to window port.
;
;        If flag is	already in the requested state then just exit.
;        Else
;              Put visible flag into desired state.
;              Redraw affected screen area.
;
;
ShowHide	PROC
;
;
theWindow	equ 9
vis_flag	equ theWindow+4
;
;
	jsr setup
;
;
; --- Is the caller	requesting the visible state change? ---
;
	lda vis_flag,s
	beq store1
	lda #F_VIS
store1	sta <workptr
	tax
;
	jsr testVis	Get the window's F_VIS flag.
	eor <workptr
	beq exit100	No change if zero.
;
; --- Change visible flag ------
;
	lda [<wind],y
	eor #F_VIS	Flip visible flag.
;
	cpx #0	Hiding window?
	bne store2
;
	and #_F_HILITED	Unhilite window to be hidden.
;
store2	sta [<wind],y
;
	txa	Hiding window?
	bne skip2
;
	ldy #wport+GP_VisRgn+2 Set window's VisRgn to empty.
	jsr pushandle
	_SetEmptyRgn
;
;    
; --- Redraw affected screen area -----
;
skip2	jsr setwmgrport	Swicth to Window Manager's port.
;
	ldy #wstrucRgn+2	Pass window's region.
	jsr pushandle
	jsr pushclip	Pass handle of wmgr	clip region.
	_CopyRgn	Clip = window region.
;
	jsr clipabove	Subtract windows above 'wind' from clip.
	bne skip1
;
	jsr alloc_rgn	Get temp. region, for clobbered region.
;
	jsr pushclip	Pass handle of clip	(clobbered) region.
	jsr pushrgnptr	Pass handle of real	clobbered region.
	_CopyRgn	Clone clobbered region.
;
	lda <topwind	Redraw all windows
	sta <wind
	lda <topwind+2
	sta <wind+2
	jsr paintonedown	in clobbered region.
;
	jsr disposeRgnPtr	Free temp. clobbered region.
;
skip1	jsr calc_vis	Compute visible regions for every window.
;
	jsr restore_port	Restore original port.
;
exit100	phb
	brl pop6bytes
	ENDP




;====================================================
;          Send a activate message to window.
;====================================================
;
;   IN:    wind = window to activate.
;

	import ToolboxPatcher
activate	PROC

	ldx #oWMActivate
	jml ToolboxPatcher


	EXPORT RealWMActivate
RealWMActivate

	inc <FlgActive	Set activate event flag.

	jsr get_portptr	Get port pointer of	'wind'.
	sta <CurActive	Set window that's activated.
	stx <CurActive+2
	rts


	ENDP



;====================================================
;          Send a deactivate message to	window.
;====================================================
;
;   IN:    wind = window to deactivate.
;
	import ToolboxPatcher

deactivate	PROC

	ldx #oWMDeActivate
	jml ToolboxPatcher


	EXPORT RealWMDeActivate
RealWMDeActivate



	inc <FlgDeActive	Set deactivate event flag.
;
	jsr get_portptr	Get port pointer of	'wind'.
	sta <CurDeActive	Set window that's deactivated.
	stx <CurDeActive+2
	rts


	ENDP


;====================================================
;        Set/Clear Highlight bit in top
;        window frame and redraw frame.
;====================================================
;
;   IN:    wind = window to hilite or unhilite.
;
hilite	PROC
;
		;using equates
;
;
	ldy #wframe
	lda [<wind],y
	ora #F_HILITED	Set highlight bit.
	bra common
;
	ENTRY unhilite
unhilite		;       
;
	ldy #wframe
	lda [<wind],y
	and #$FFFE	Clear highlight bit.
;
common	sta [<wind],y
;
	rts
	ENDP
;
;
;===================================================
;        Take a window out of the list.
;===================================================
;
;   IN:    wind = window to take out of	list.
;
;  OUT:    Neg = TRUE if window not in list.
;
;
outoflist	PROC
;
		;using equates
;
;
	jsr getpre
	bmi exit100	Window not in list?
	php	Save status.
;
;   wind = window to take out of list.
;   workptr = window in front of wind (might be address of 'topwind').
;
	ldy #wnext
	lda [<wind],y
	sta [<workptr],y
	iny
	iny
	lda [<wind],y
	sta [<workptr],y
;
	plp	Return status of 'getpre'.
;
exit100	rts
	ENDP
;
;
;=============================================
;        Insert a window into the list.
;=============================================
;
;   IN:    wind = window to be inseted,	must not be currently in list.
;          workptr = window where wind will be inserted behind.
;	 $FFFFFFFF to insert as top most.
;	 $FFFFFFFE to insert as bottom most.
intolist	PROC
;
		;using equates
;
;
	lda <workptr+2	Window pointer or specical command?
	bpl insertit	Must be a window pointer.
;
	lda <workptr	Should window go to	the bottom?
	cmp #$FFFE
	beq tobottom	If negative and not	-2, must be -1.
;
;
; ------ Insert as top window ---------------------------
;
	ENTRY wind2top
wind2top		;       
;
	stz <workptr+2	Set to address of 'topwind'.
	tdc
	clc
	adc #topwind
	sta <workptr
	bra insertit
;
; ------ Insert under bottom window ---------------------
;
tobottom	stz <workptr+2
;
	ldx <topwind	Start at top and work down.
	lda <topwind+1
	beq wind2top
;
	ldy #wnext+1
lop100	stx <workptr
	sta <workptr+1
;
	lda [<workptr]	Next window.
	tax
	lda [<workptr],y
	bne lop100
;
;
; --- Insert the window ---------------------------------
;
;  wind = window to	be put under.
;  workptr = window	to be in front of 'wind'.
;
insertit	ldy #wnext+2	Insert window back in list.
	lda [<workptr],y
	sta [<wind],y
	lda <wind+2
	sta [<workptr],y
;
	lda [<workptr]
	sta [<wind]
	lda <wind
	sta [<workptr]
;
	rts
	ENDP
;
;
;====================================================
;        Highlight or Unhighlight a window.
;====================================================
;
;  IN:   PUSH - WORD - TRUE = highlight	the window.
;	   FALSE = unhighlight the window.
;        PUSH - LONG - pointer to the window's port.
;
HiliteWindow	PROC
;
;
;
	jsr setup
;
	jsr setwmgrport	Switch to Window Manager's port.
;
	lda <workptr	Highlight or Unhighlight?
	bne liteit
;
	jsr unhilite	Clear highlight bit	in frame.
	bra skip
;
liteit	jsr hilite	Set highlight bit in frame.
;
skip	ldy #wstrucRgn+2	Pass handle window's StructRgn.
	jsr pushandle
	jsr pushclip	Pass clip region handle.
	_CopyRgn	Set clip to window.
;
	jsr clipabove	Clip to above windows.
;
	jsr drawframe	Draw window's frame.
;
	jsr restore_port	Restore original port.
;
	phb
	brl pop6bytes
	
	ENDP


;
;
;====================================
;        Draw window's frame
;        and do setup.
;====================================
;
;   IN:    current port = Window Manager's.
;          wind = window to draw.
;
drawframe	PROC
;
		;using equates
;
;
	jsr moveWMgrOnWind	Move Window Manager	over window.
;
	ldy #justInfo
	lda [<data],y
	beq store1
	lda #3	Draw just the info bar.
store1	sta <param	Pass 'draw entire frame' flag.
	stz <param+2	Pass 'unhilited' flag.
	ldx #wDraw
	jsr dispatch
;
	brl moveWMgrBack	Put Window Manager's port back.
	ENDP
;
;
;========================================
;        Move 'wrect' into 'rect'
;========================================
;
wrect2rect	PROC
;
		;using equates
;
	ldx #x2
lop	lda <wrect,x
	sta <rect,x
	dex
	dex
	bpl lop
	rts
	ENDP
;
;
;          APPEND WUTIL.ASM
	TITLE 'Apple IIGS Window Manager                   WUTIL.ASM'
;
;          Copyright Apple Computer, Inc. 1986,1987,1988
;          All rights reserved
;          Written by Dan Oliver
;
;
;==========================================================
;          Move Window Manager's port on window.
;==========================================================
;
;   IN:    <wind = pointer to window record.
;
moveWMgrOnWind	PROC
;
;
;
	jsr setwmgrport	Switch to Window Manager's port.
;
;
; --- Set up Window	Manager port over window -----------------
;
	jsr getwgrect	wrect = window's strucRgn bounds (global).
;
;
; --- Make Window Manager's origin the same as window's screen origin ----
;
	lda <wrect+x1
	eor #$FFFF
	inc a
	tax
	lda <wrect+y1
	eor #$FFFF
	inc a
	jsr setTheOrigin
;
	jsr pushclip	Offset clipping region.
	lda <wrect+x1
	eor #$FFFF
	inc a
	pha
	lda <wrect+y1
	eor #$FFFF
	inc a
	pha
	_OffsetRgn
;
;
; --- Put window's frame controls in Window Mgr window record -----------
;
	ldy #wFrameCtls
	lda [<wind],y
	tax
	iny
	iny
	lda [<wind],y
	ldy #wmgr_wind+wControls+2
	sta [<data],y
	dey
	dey
	txa
	sta [<data],y
;
	ldy #wFrame
	lda [<wind],y
	and #_F_CTL_TIE	Force state of controls to be window's.
	ldy #wmgr_wind+wFrame
	sta [<data],y
;
	rts
	ENDP
;
;
;===========================================================
;          Back Window Manager port back to global.
;===========================================================
;
moveWMgrBack	PROC
;
;
;
	jsr pushclip	Offset clipping region back.
	ldy #port+GP_Bounds+x1
lop1	lda [<data],y
	eor #$FFFF
	inc a
	pha
	dey
	dey
	cpy #port+GP_Bounds+y1
	beq lop1
	_OffsetRgn
;
	jsr zeroOrigin	SetOrigin( 0,0,).
	brl restore_port
	ENDP
;
;
;======================================================
;          Call window's definition procedure.
;======================================================
;
;   IN:    x = operation number.
;          wind = window affected.
;          param = additional parameter.
;
;  OUT:    x/a = returned value from defProc.
;
dispatch	PROC
;
		;using equates
;
;
	ldy #wdefProc+1	Pass address of defProc.
	lda [<wind],y
	pha
	dey
	lda [<wind],y
	ply
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = =
;          Call a defProc at a given address.
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = =
;
;   IN:    x = operation number.
;          a = low word of address.
;          y = middle word of address.
;          wind = window affected.
;          param = additional parameter.
;
;  OUT:    x/a = returned value from defProc.
;
	ENTRY dispatch2
dispatch2		;       
;
	pha	Space for return.
	pha
	pei <data+2	Pass pointer to Window globals.
	pei <data
	phx	Operation number to	perform.
	pei <wind+2
	pei <wind
	pei <param+2	Pass parameter.
	pei <param
;	                  a	= low word of address.
	tyx	x = mid word of address.
	jsl longCall	Call defProc.
	pla	Return result.
	plx
	rts
	ENDP
;
;
;================================================
;        Switch to window manager's port.
;================================================
;
setwmgrport	PROC
;
;
	jsr save_port	Save current port.
;
	ENTRY wmgrport2
wmgrport2		;       
;
	jsr pushport	Switch to window manager's graf port.
	_SetPort
	rts
	ENDP
;
;
;======================================
;          Save current port.
;======================================
;
;  OUT:    old_port	= current port, if old_port = zero on entry.
;
save_port	PROC
;
		;using equates
;
;
;	lda <Save_Cnt
;	sta >$Fd1236

	inc <save_cnt
;
	lda <old_port
	ora <old_port+2
	bne exit
;
	pha
	pha
	_GetPort
	pla
	sta <old_port
	pla
	sta <old_port+2
;
exit	rts
	ENDP
;          
;
;=========================================
;          Restore original port.
;=========================================
;
;   IN:    old_port	= original port, zero if no need for restore.
;
;  OUT:    current port = old_port.
;
	EXPORT restore_port
restore_port	PROC
;
		;using equates
;
;
	lda <old_port
	tay
	ldx <old_port+2
	ora <old_port+2
	beq exit	No port to restore.
;
;	lda <Save_Cnt
;	sta >$Fd1234

	dec <save_cnt
	bne exit
;
	phx
	phy
	_SetPort
;
	stz <old_port
	stz <old_port+2
;
exit	rts
	ENDP
;
;
;============================================
;          Dereference a handle.
;============================================
;
dereference	PROC
;
		;using equates
;
;
	ldy #2	Dereference the control's handle.
	lda [<workptr],y
	tay
	lda [<workptr]
	sta <workptr
	sty <workptr+2
	rts
	ENDP
;
;
;======================================================
;       Get window pointer from current	port
;======================================================
;
get_port	PROC
;
	pha
	pha
	_GetPort
	pla
	plx
	brl get_wptr	Convert port pointer to window pointer.
	ENDP
;
;
;===============================================
;          Find front most visible window.
;===============================================
;
;   IN:    topwind = first window in window list.
;
;  OUT:    top_vis = top visible window.
;          a = top_vis.
;          x = top_vis+2.
;          BEQ if no visible window found.
;          BNE if visible window found.
;
	EXPORT find_top
find_top	PROC
;
		;using equates
;
;
	ldx <topwind+2
	lda <topwind
	bra enter1
;
lop1	ldy #2
	lda [<top_vis],y
	tax
	lda [<top_vis]
;
enter1	sta <top_vis
	stx <top_vis+2
	ora <top_vis+2	Last window?
	beq exit
;
	ldy #wframe	Is this window visible?
	lda [<top_vis],y
	and #F_VIS
	beq lop1	Stop when first visible window found.
;
	php
	lda <top_vis
	ldx <top_vis+2
	plp
;
exit	rts
	ENDP
;
;
;===============================================
;        Find window in front of this one.
;===============================================
;
;   IN:    wind = window to find window	in front of.
;  OUT:    equal = TRUE  if found.
;                a = low word of window's address.
;                x = high word.
;                workptr = window in front of the one in wind.
;                wind = unchanged.
;          equal = FALSE
;                minus = TRUE if window	not in list.
;                minus = FALSE if window is top window.
;
getpre	PROC
;
		;using equates
;
	lda <topwind
	ldx <topwind+2
;
	cmp <wind
	bne lop110
	cpx <wind+2
	bne lop110
;
	lda #0	Previous window is the
	sta <workptr+2	address of 'topwind'.
	tdc
	ora #topwind
	sta <workptr
;
	ldy #1	It's the top window flag.
	rts
;
lop110	sta <workptr
	stx <workptr+2
;
	ora <workptr+2
	bne ok100
;
	ldy #$FFFF	Window not in list flag.
	rts
;
ok100	ldy #wnext
	lda <wind
	cmp [<workptr],y
	bne next100
	iny
	iny
	lda <wind+2
	cmp [<workptr],y
	beq gotit
;
next100	ldy #wnext+2
	lda [<workptr],y
	tax
	dey
	dey
	lda [<workptr],y
	bra lop110
;
gotit	lda <workptr
	ldx <workptr+2
	ldy #0	Ok flag.
errout	rts
;
	ENDP
;
;
;========================================================
;          Open/Close the Window Manager's port.
;========================================================
;
openWMgrport	PROC
;
		;using equates
;
OpenPort	equ $1804	Function number for	OpenPort call.
ClosePort	equ $1A04	Function number for	ClosePort call.
;
;
	ldx #OpenPort
	bra enter
;
;
	ENTRY closeWMgrport
closeWMgrport		;       
;
	ldx #ClosePort
;
enter	jsr pushport	Pass pointer to Window Mgr's port.
	jsl $E10000
	rts
	ENDP
;
;
;=================================================
;          Push address in data area.
;=================================================
;
;  OUT:    x = same	as in.
;
pushport	PROC
;
		;using equates
;
;
	lda #port
	bra enter
;
	ENTRY pushmyeventpos
pushmyeventpos		;       
	lda #myevent+where
	bra enter
;
	ENTRY pushscrn2scrn
pushscrn2scrn		;       
	lda #scrn2scrn
	bra enter
;
	ENTRY pushblitdes
pushblitdes		;       
	lda #blitdes
	bra enter
;
	ENTRY pushblitsrc
pushblitsrc		;       
	lda #blitsrc
	bra enter
;
	ENTRY pushdrag_bound
pushdrag_bound		;       
	lda #drag_bound
	bra enter
;
	ENTRY pushmyevent
pushmyevent		;       
	lda #myevent
	bra enter
;
	ENTRY pushslop_bound
pushslop_bound		;       
	lda #slop_bound
	bra enter
;
	ENTRY pushGP_Bounds
pushGP_Bounds		;       
	lda #port+GP_Bounds
	bra enter
;
	ENTRY pushscreen
pushscreen		;       
	lda #screen
	bra enter
;
	ENTRY pushfontHandle
pushfontHandle		;       
	lda #fontHandle
	bra enter
;
	ENTRY pushCallProcList
pushCallProcList		;       
	lda #callProcList
	bra enter
;
	ENTRY pushscInfo
pushscInfo		;       
	lda #scInfo
	bra enter
;
	ENTRY pushLocInfo1
pushLocInfo1	lda #locInfo1
;
	ENTRY pushDataAddr
pushDataAddr	
enter	ply	Get return address.
	pei <data+2	Pass high word (doesn't cross bank).
	clc
	adc <data
	pha	Pass low word address.
	phy	Put return address back.
	rts
	ENDP
;
;
;===================================================
;        Push address of zero page variables.
;===================================================
;
pushyrat	PROC
;
		;using equates
;
;
	lda #yrat
	bra ok1
;
	ENTRY pushwork
pushwork		;       
	lda #work
	bra ok1
;
	ENTRY pushwrect
pushwrect		;       
	lda #wrect
	bra ok1
;
	ENTRY pushparam
pushparam		;       
	lda #param
	bra ok1
;
	ENTRY pushrect
pushrect		;       
	lda #rect	Most used.
ok1	brl pushDpage
	ENDP

****************************************************************

pushrgnptr	PROC

	ply
	pei  rgnptr+2
	pei  rgnptr
	phy
	rts

	ENDP

****************************************************************

pushGray	PROC

	ply
	pei  GrayRgn+2
	pei  GrayRgn
	phy
	rts

	ENDP

****************************************************************
;
;
;=================================================
;        Push long value in direct page.
;=================================================
;
pushrgn2	PROC
;
		;using equates
;
;
	ldx #rgnptr2
;
;
;
;   IN:  x = offset	into zero page.
;
	ENTRY pushptr
pushptr		;       
;
	ply	Grab return address.
;
	lda <2,x
	pha
	lda <0,x
	pha
;
	phy	Put back return address and return.
	rts
	ENDP
;
;
;====================================================
;          Push long value from data area.
;====================================================
;
;   IN:    None.
;
;  OUT:    handle to Window Manager's clip region on stack.
;
pushclip	PROC
;
		;using equates
;
;
	ldy #port+GP_ClipRgn+2
	bra enter
;
;
	ENTRY pushvis
pushvis		;       
	ldy #port+GP_VisRgn+2
;
;
enter	plx	Save return address.
;
	lda [<data],y	Push long from data	area.
	pha
	dey
	dey
	lda [<data],y
	pha
;
	phx	Put return address back.
	rts
	ENDP
;
;
;==================================
;        Allocate a	region.
;==================================
;
;  IN:   None.
;
; OUT:   rgnptr2 = what rgnptr was when	entered.
;        rgnptr = handle of allocated region.
;        a = low address of region handle.
;        x = high address of region handle.
;
alloc_rgn	PROC
;
		;using equates
;
;
	lda <rgnptr	Move rgnptr into rgnptr2.
	sta <rgnptr2
	lda <rgnptr+2
	sta <rgnptr2+2
;
	pha	Space for returned handle.
	pha
	_NewRgn	Allocate a region.
	pla
	sta <rgnptr	Store handle of allocated region,
	plx
	stx <rgnptr+2	in 'rgnptr'.
	rts
	ENDP
;
;
;================================================
;          Allocate	a block of memory.
;================================================
;
;   IN:    a = number of bytes to allocate.
;          MyID = ID to use.
;
;  OUT:    x/a = handle.
;
allocate	PROC
	IMPORT allocate2
;
;
	ldy <MyID
	brl allocate2
	ENDP
;
;
;=======================================================
;        Swicth to Window Manager's zero page,
;        and put input parameters into zero page.
;=======================================================
;
;  IN:   a = zero page to switch to.
;
setup	PROC
;
;
; REMOVE ME!
;	pha
;	txa
;	sta >$FD2345
;	pla
; END OF REMOVAL

	jsl IncBusyFlg
;
	plx	Get return address.
	phd	Save current zero page pointer.
	phx	Put return address back on stack.
;
	tcd	Switch to Window Manager's zero page.
;
;
	ENTRY pullparams
pullparams		;       
;
	lda 15,s	Pull second to last	input parameter.
	sta <workptr
	lda 17,s
	sta <workptr+2
;
	ENTRY pullparam
pullparam		;       
;
	lda 13,s	Pull last input parameter.
	tax
	lda 11,s
	brl get_wptr
	ENDP
;
;
;============================================
;          Compute window pointer
;          from port pointer.
;============================================
;
;   IN:    a = low word of port pointer.
;          x = high	word of port pointer.
;
;  OUT:    wind = window pointer.
;          a = low word of window pointer.
;          x = high	word of window pointer.
;          y = trashed.
;
	EXPORT get_wptr
get_wptr	PROC
;
		;using equates

	tay
	bne ok1	Null pointer?
	txy
	beq store1

ok1	sec
	sbc #wport	Compute pointer to window record
	bcs store1	from pointer to window's port.
	dex
store1	sta <wind
	stx <wind+2

	rts
	ENDP


WMInit	PROC
;

	ENTRY WindBootInit
WindBootInit
	ENTRY Reserved
Reserved

	ENTRY RealFastExit
RealFastExit       
	lda #0
	clc
	rtl


	ENDP
;
;
;==============================================
;        Push a long from window record.
;==============================================
;
;   IN:    y = offset into window record.
;          wind = pointer to window record.
;
pushandle	PROC
;
;
	ENTRY pushWlong
pushWlong		;       
;
	plx	Get return address.
;
	lda [<wind],y	Put long on stack.
	pha
	dey
	dey
	lda [<wind],y
	pha
;
	phx	Put return address back on stack.
	rts
	ENDP
;
;
;===============================================
;          Compute pointer to window's
;          port in window's record.
;===============================================
;
;   IN:    wind = window's pointer.
;
;  OUT:    a = low word port pointer.
;          x = high	word of port pointer.
;
	EXPORT get_portptr
get_portptr	PROC
;
		;using equates
;
;
	ldx <wind+2
	lda <wind
;
	EXPORT get_portp2
get_portp2		;       
;
	bne ok1	Is it a null pointer?
	txy
	beq exit
;
ok1	clc
	adc #wport
	bcc exit
	inx
exit	rts
	ENDP
;
;
;=============================================================
;           Set 'wrect' to bounds of desktop.
;=============================================================
;
;   IN:  None.
;
;  OUT:  wrect = screen coordinates of GrayRgn.
;
deskBounds	PROC
;
;
	ldx <GrayRgn
	lda <GrayRgn+1
	bra getbounds1	Put GrayRgn bounds into 'wrect'.
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = =	= =
;        Put window's global coordinates into 'wrect'.
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = = =	= =
;
;   IN:    wind = pointer to window.
;
;  OUT:    wrect = screen coordinates of window.
;
	ENTRY getwgrect
getwgrect		;       
;
	ldy #wstrucRgn	Get pointer to window's StructRgn.
;
;
; = = = = = = = = =	= = = = = = = = =
;        Get a region's bounds.
; = = = = = = = = =	= = = = = = = = =
;
;   IN:    wind = window record that contain region handle.
;          y = index into window for region handle.
;
;  OUT:    wrect = bounds of region.
;
	ENTRY getbounds
getbounds		;       
;
	lda [<wind],y
	tax
	iny
	lda [<wind],y
;
;
; = = = = = = = = =	= = = = = = = = =
;        Get a region's bounds.
; = = = = = = = = =	= = = = = = = = =
;
;   IN:    x = low word of region handle.
;          a = middle word of region handle (bits 8-23).
;
;  OUT:    wrect = bounds of region.
;
	ENTRY getbounds1
getbounds1		;       
;
	stx <work
	sta <work+1	That's the handle.
;
	ENTRY getbounds2
getbounds2		;       
;
	ldy #2
	lda [<work],y
	tay
	lda [<work]
	clc
	adc #Rgn_Bounds	I'm after the region's bounds.
	bcc getbounds3	&&
	iny	&&
;
	ENTRY getbounds3
getbounds3		;       
;
	sta <work
	sty <work+2	That's the pointer to bounds.
;
	ldy #x2	Put bounds into 'wrect'.
lop1	tyx
	lda [<work],y
	sta <wrect,x
	dey
	dey
	bpl lop1
;
	rts
	ENDP
;
;
;================================================
;          Test a window's visible flag.
;================================================
;
;  OUT:    Equal set to F_VIS state.
;
testVis	PROC
;
		;using equates
;
;
	ldy #wframe
	lda [<wind],y
	and #F_VIS	Is this window visible?
	rts
	ENDP
;
;
;======================================================
;          Get width/height of content region.
;======================================================
;
;   IN:    wind = window pointer.
;
;  OUT:    wrect+y2	= wrect's height.
;          wrect+x2	= wrect's width.
;          a = height
;
getcontwh	PROC
;
		;using equates
;
;
	ldy #wcontRgn
	jsr getbounds	wrect = coordinates	of content region.
;
;
;   IN:    wrect = RECT.
;
;  OUT:    wrect+y2	= wrect's height.
;          wrect+x2	= wrect's width.
;          a = height
;
;
	ENTRY getwrectwh
getwrectwh		;       
;
	ldx #x1
lop1	lda <wrect+y2,x
	sec
	sbc <wrect+y1,x
	inc a
	sta <wrect+y2,x	Get current height/width of content.
	dex
	dex
	bpl lop1
	rts
	ENDP
;
;
;            APPEND	WCOMMON.ASM
	TITLE 'Apple IIGS Window Manager                   WCOMMON.ASM'
;
;          Copyright Apple Computer, Inc. 1986,1987,1988
;          All rights reserved
;          Written by Dan Oliver
;
;  This file contains procedures that can be called from anywhere
;  without depending on a direct page.
;
;
;
;
;============================
;          Long call.
;============================
;
;   IN:    x = middle WORD (bits 8-23) of address of destination routine.
;          a = low WORD of address of destination routine.
;
;  OUT:    Calling this routine is the same as:
;
;                jsl   (ax)
;
;          where the low byte in 'a' is	the low byte of the	destination
;          address,	and x = the next 2 bytes of the destination address.
;
	EXPORT longCall
longCall	PROC
;
	dec a	Make low word look like a return address.
;	              !!! High byte of address is not decremented
;	                  because the program counter doesn't wrap
;	                  to the next bank!!!!
;
	phx	Push the high byte.
	tsx	Leave only the high	byte of the address.
	inx
	txs
;
	pha	Push the low word of the address.
;
	rtl	Go to the address.
;
;  When the routine	called returns, it
;  will return to the routine that called 'longCall', not here.
;
	ENDP
;
;
;=======================================================
;          Set origin of current port to 0,0.
;=======================================================
;
	EXPORT zeroOrigin
zeroOrigin	PROC
;
	lda #0
	tax
;
;
; = = = = = = = = =	= = = = = = = = =
;          Call SetOrigin.
; = = = = = = = = =	= = = = = = = = =
;
;   IN:    a = new y origin.
;          x = new x origin.
;
	EXPORT setTheOrigin
setTheOrigin		;       
;
	phx
	pha
	_SetOrigin
	rts
	ENDP
;
;
;            APPEND	WSTATIC.ASM
	TITLE 'Apple IIGS Window Manager                   WSTATIC.ASM'
;
;          Copyright Apple Computer, Inc. 1986,1987,1988
;          All rights reserved
;          Written by Dan Oliver
;
;
;=====================================
;          Static data area.
;=====================================
;
	EXPORT staticRAM
staticRAM	PROC
;
;
; --- Default pattern/color table for windows ------------------
;
	EXPORT def_color
def_color	DC.W $0000	Frame outline.
	DC.W $0F0F	Unused/Inactive Bar/Inactive Title/Title.
	DC.W $0000	Title bar.
	DC.W $F0F0	Inside grow box.
	DC.W $00F0	Inside info bar.
;
;
; --- Default zoom window size ---------------------------------
;
	EXPORT def_zoom
def_zoom	DC.W 25,30,199,639
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = =
;           Window Manager icon font.
; = = = = = = = = =	= = = = = = = = = =	= = = = =
;
	EXPORT wind640
wind640		; 
;
	DC.W $0006	; {offset word}
	DC.W $00CE	; {FontID}
	DC.W $0000	; {style}
	DC.W $000A	; {size}
	DC.W $0101	; {version}
	DC.W $01E6	; {FBRextent}
;
	DC.W $9001	; {FontType}
	DC.W $0000	; {FirstChar}
	DC.W $0002	; {LastChar}
	DC.W $0013	; {WidMax}
	DC.W $0000	; {KernMax}
	DC.W $FFF7	; {nDescent}
	DC.W $000F	; {fRectWidth}
	DC.W $0009	; {FrectHeight}
	DC.W $0025	; {owTLoc}
	DC.W $0000	; {ascent}
	DC.W $0009	; {descent}
	DC.W $0000	; {leading}
	DC.W $0003	; {RowWords}
;
; BitImage:
	DC.B $00,$00,$00,$00,$00,$00,$FF,$FF,$FF,$FF,$FF,$F8,$C0,$07,$9F,$CF
	DC.B $06,$18,$C0,$07,$E7,$3F,$06,$18,$C0,$07,$B8,$EF,$FE,$18,$C0,$07
	DC.B $E7,$3F,$00,$18,$C0,$07,$9F,$CF,$00,$18,$FF,$FF,$FF,$FF,$FF,$F8
	DC.B $00,$00,$00,$00,$00,$00
;
; LocTable:
	DC.W $0000	Close box.
	DC.W $000F	Hilited close/zoom boxes.
	DC.W $001E	Zoom box.
	DC.W $002D	Total width of bit image in pixels.
	DC.W $002D	; Total Width in Pixels
;
; OWTable:
	DC.W $0213	; Char (00)
	DC.W $0213	; Char (01)
	DC.W $0213	; Char (02)
	DC.W $0401	; Missing Symbol
	DC.W $0000	; End of Table - (often -1)
;
;
	EXPORT wind320
wind320		;       
;
	DC.W $0006	; {offset word}
	DC.W $00CF	; {FontID}
	DC.W $0000	; {style}
	DC.W $000A	; {size}
	DC.W $0101	; {version}
	DC.W $01F2	; {FBRextent}
;
	DC.W $9001	; {FontType}
	DC.W $0000	; {FirstChar}
	DC.W $0002	; {LastChar}
	DC.W $000D	; {WidMax}
	DC.W $0000	; {KernMax}
	DC.W $FFF7	; {nDescent}
	DC.W $0009	; {fRectWidth}
	DC.W $0009	; {FrectHeight}
	DC.W $001C	; {owTLoc}
	DC.W $0000	; {ascent}
	DC.W $0009	; {descent}
	DC.W $0000	; {leading}
	DC.W $0002	; {RowWords}
;
; BitImage:
	DC.B $00,$00,$00,$00,$FF,$FF,$FF,$E0,$80,$DF,$62,$20,$80,$FB,$E2,$20
	DC.B $80,$F5,$FE,$20,$80,$FB,$E0,$20,$80,$DF,$60,$20,$FF,$FF,$FF,$E0
	DC.B $00,$00,$00,$00
;
; LocTable:
	DC.W $0000	; Char (00)
	DC.W $0009	; Char (01)
	DC.W $0012	; Char (02)
	DC.W $001B	; Missing Symbol
	DC.W $001B	; Total Width in Pixels
;
; OWTable:
	DC.W $020D	; Char (00)
	DC.W $020D	; Char (01)
	DC.W $020D	; Char (02)
	DC.W $0401	; Missing Symbol
	DC.W $0000	; End of Table - (often -1)
;
	ENDP
;
;
	Blanks off
	String asis
;
;
;==================================================================
;	Create window from new template.
;	it can be fetched from a resource or be passed
;	by pointer or handle.
;
; Modified 12-dec-88 Mensch
;    Added support for input verbs so that NewWindow2 can use ptrs
;      and handles. Added Input verb to passed parms and template
;==================================================================
;
;   IN:  PUSH:LONG - space for result.
;        PUSH:LONG - window title.
;        PUSH:LONG - refCon.
;        PUSH:LONG - address of content draw routine, NIL if none.
;        PUSH:LONG - address of window defProc, NIL for standard.
;        PUSH:WORD - input verb defines what next long word is.
;        PUSH:LONG - ID of resource that is window parameter table template.
;        PUSH:WORD - type of resource that is window parameter table template.
;
;  OUT:  LONG - pointer to window graphPort, NIL if window not created.
;
NewWindow2	PROC EXPORT
;
	IMPORT shutdown
	IMPORT allocate1
	IMPORT allocate3
;
;
; --- New window parameter list offsets.
;
p_length	equ 0	Number of bytes in parameter list.
p_wframe	equ p_length+2	Type of window, frame flags.
p_wtitle	equ p_wframe+2	Pointer to window's title.
p_wrefCon	equ p_wtitle+4	Reserved for application.
p_wfull	equ p_wrefCon+4	Size of window, used with ZoomWindow.
p_wcolor	equ p_wfull+8	Pointer to window's color table.
p_y_origin	equ p_wcolor+4	Content's vertical offset.
p_x_origin	equ p_y_origin+2	Content's horizontal offset.
p_data_h	equ p_x_origin+2	Height of total data area.
p_data_w	equ p_data_h+2	Width of total data	area.
p_wmaxheight	equ p_data_w+2
p_wmaxwidth	equ p_wmaxheight+2
p_vscroll	equ p_wmaxwidth+2	Amount to scroll vertically (arrows).
p_hscroll	equ p_vscroll+2	Amount to scroll horizonally (arrows).
p_vpage	equ p_hscroll+2	Amount to page vertically (page region).
p_hpage	equ p_vpage+2	Amount to page horizontally (page rgn).
p_wInfoText	equ p_hpage+2
p_wInfoH	equ p_wInfoText+4	Height of infomation bar.
p_wdefProc	equ p_wInfoH+2	NOT USED.
p_wInfoDraw	equ p_wdefProc+4	Address of routine to draw Info Bar.
p_updateDraw	equ p_wInfoDraw+4	Address of routine to draw content region.
p_position	equ p_updateDraw+4
p_behind	equ p_position+8
p_windrec	equ p_behind+4	control template 
p_wInVerbs	equ p_windrec+4	Input verbs describing title,color tbl, and ctl template
p_size	equ p_wInVerbs+2
;
;
; --- Resource types.
;
rPString	equ $8006
rWindParam1	equ $800E
rWindParam2	equ $800F
rWindColor	equ $8010
;
;
; --- Input verbEquates
resIDVAsPtr	equ 0
resIDVAsHandle	equ 1
resIDVAsResource	equ 2
;
; --- parmameter template verb word equates
; the first byte is the same as the verb for NewControl2 call
titleAsPtr	equ $0000
titleAsHandle	equ $0100
titleAsResource	equ $0200
colorAsPtr	equ $0000
colorAsHandle	equ $0400
colorAsResource	equ $0800
;
;
; --- Direct page offsets.
;
@ID	equ 1
@hand	equ @ID+4
@ptr	equ @hand+4
@paramPtr	equ @ptr+4
@memoryID	equ @paramPtr+4
;
@saveDbank	equ @memoryID+2
@saveDpage	equ @saveDbank+1
@retAddrs	equ @saveDpage+2
@resType	equ @retAddrs+6
@resID	equ @resType+2
@resIDVerb	equ @resID+4	; added 12/12/88 Mensch
@defProc	equ @resIDVerb+2
@contentDraw	equ @defProc+4
@refCon	equ @contentDraw+4
@title	equ @refCon+4
@result	equ @title+4
;
	jsl IncBusyFlg
	phd	Save caller's direct page pointer.
	phb	Save caller's data bank pointer.
;
	phk	Switch data bank to program bank.
	plb
;
	tcd	Switch to Window Manager's direct page.
;
	tsc
	pei <MyID	Put memory ID on my page.
;
	sec	Switch direct page into stack.
	sbc #@saveDbank-1
	tcs
	tcd
;
	stz <@result	Start with no window, just in case.
	stz <@result+2
;
;
; --- Test InputVerb to determine the method of parm passing
;
	lda <@resIDVerb	get the passed verb
	cmp #resIDVAsResource
	beq @ResIDIsRes	If passed as resource, go load it 
; if neither of these, then passed by handle or pointer, first allocate temp storage
; to copy the users template into
	lda #p_size	template size.
	ldy <@memoryID
	ldx #$8000	pass attributes in <X> (Locked)
	jsr allocate3	Allocate memory for template.
	sta <@hand
	stx <@hand+2
	lda [<@hand]	deref the handle now...
	tax
	ldy #2
	lda [<@hand],y
	sta <@ParamPtr+2
	stx <@ParamPtr

	lda <@resIDVerb	get the res ID verb again
	beq @ResIDIsPtr	if pointer, then pass it...

; if it gets here the user passed us a handle, so copy the data now...
	pei <@resID+2	Pass handle to copy from
	pei <@resID
	pei <@ParamPtr+2	pass the handle to copy to
	pei <@ParamPtr
	pea $0000	now pass the size
	pea p_size	to copy
	_handToPtr
	brl @TD0010
;
; --- New template ref was passed by pointer, so just copy the pointer
;
@ResIDIsPtr
	pei <@ResID+2	pointer to the source parm block
	pei <@ResID
	pei <@paramPtr+2	pointer to destination
	pei <@paramPtr
	pea $0000
	pea p_size
	_BlockMove	copy the data
	bra @TD0010	and continue

; 
; --- Load new window parameter table resource.
;
@ResIDIsRes
	pha	Space for result.
	pha
	pei <@resType	Pass type.
	pei <@resID+2	Pass ID.
	pei <@resID
	_LoadResource
	tay	Possible error code in y.
	plx
	stx <@paramPtr
	plx
	stx <@paramPtr+2
	bcc @ok2	Error?
@toExit2	brl @exit2	Error.
@ok2
;
; Now, take the handle from resource mgr or passed by app and dereference it.
@TemplateDeref
	ldy #4	Lock parameter table.
	lda [<@paramPtr],y
	ora #$8000
	sta [<@paramPtr],y
	dey	Dereference the table.
	dey
	lda [<@paramPtr],y
	tay
	lda [<@paramPtr]
	sta <@paramPtr
	sty <@paramPtr+2
@TD0010
;
;
; --- Fix up parameter table.
;
	lda <@resType	Which kind of parameter table?
	cmp #rWindParam1
	beq @doParam1
;
	jsr @fixParam2
	bra @done1
;
@doParam1	jsr @fixParam1
@done1	tya	Place possible error code in A.
	bcs @errOut	Error?
;
;
; --- Have NewWindow create the window.
;
; First adjust parameter list count back to new window size...
	lda [<@paramPtr]	remove the input verb from the parm count
	dec a
	dec a
	sta [<@paramPtr]

	pha	Save for result.
	pha
	pei <@paramPtr+2	Pass pointer to parameter table.
	pei <@paramPtr
	_NewWindow
	ply	Return window pointer.
	sty <@result
	ply
	sty <@result+2
	bcc @skip1	Erorr? y = error code if any.
;
@errOut	pha	Save error code.
;
	lda <@resType	Free items allocated by me.
	cmp #rWindParam1
	bne @skip3	Only for parameter table type 1.
;
	ldy #p_wtitle+2	Free title if there is one.
	jsr @freeField
;
	ldy #p_wcolor+2	Free the color table if there is one.
	jsr @freeField
;
@skip3	pla	Restore error code.
;
;
; --- Free parameter table.
;
@skip1	pha	Save error code.
;
	lda <@resIDVerb	get the passed verb
	cmp #resIDVAsResource
	beq @DumpRes	If passed as resource, release it...
; If not a resource, then I made a copy of the passed param block and I should 
; dispose of it right now...
	pha	room for result
	pha
	pei <@paramPtr+2	first get the handle back for the temp parm block
	pei <@paramPtr
	_FindHandle	get the handle back
	_DisposeHandle	and get rid of it.
	bra @MkCtrls
;
@DumpRes
	pea $FFFF	Pass 'dispose' flag.
	pei <@resType	Pass type.
	pei <@resID+2	Pass ID.
	pei <@resID
	_ReleaseResource
;
;
; --- Create controls in window. Use the low order byte of the wInVerb as the
;     input verb for this call.
;
@MkCtrls
	lda <@ID	Is there a control list?
	ora <@ID+2
	beq @skip2
;
	lda <@result	Was a window created?
	ora <@result+2
	beq @skip2
;
	pha	Space for result.
	pha
	pei <@result+2	Pass window owner.
	pei <@result
	ldy #p_wInVerbs	load the offset to the template verbs
	lda [<@paramPtr],y	load in the input verb
	and #$00FF	strip off the high byte, low byte for this call
	pha	and pass it as inputverb for NewControl2
	pei <@ID+2	Pass ID of item list.
	pei <@ID
	_NewControl2
	plx	Don't need result.
	plx
	bcc @skip2	Error?
	sta 1,s	Replace saved error code with error from NewControl2.
;
@skip2	ply	Restore error code from NewWindow.
;
;
; --- Clean up stack and exit.
;      mod 12/12/88 pull off 24 bytes parameter. Mensch
;
@exit2	tsc	Free allocated direct page.
	clc
	adc #@saveDbank-1
	tcs
	ldx #24	Number of bytes to pop.
	brl shutDown
;
@desIndex	dc.w p_wrefCon,p_wdefProc,p_updateDraw
@srcIndex	dc.w @refCon,@defProc,@contentDraw
;
;
;-----------------------------------------------
;        Free handle in parameter table.
;-----------------------------------------------
;
;   IN: y = index to high word of field.  If highest bit set it is a handle to free.
;
@freeField	lda [<@paramPtr],y
	bpl @exit100
;
	and #$00FF
	pha
	dey
	dey
	lda [<@paramPtr],y
	pha
	_DisposeHandle
@exit100	rts
;
;
;---------------------------------------------------------------------
;	Fix up parameter table type 1.
;-200-----------------------------------------------------------------
;
;  OUT:  Carry set if error, y = error code.
;        <@ID = ID of control list, NIL if none.
;
@fixParam1	stz <@ID	Start with no controls.
	stz <@ID+2
;
;
; --- Set window title in table.
;
	lda <@title	Was a title passed?
	ora <@title+2
	beq @loadTitle	Use the passed title if there is one.
;
;
; ------ Clone the given title.
;
@Clonetitle
	lda [<@title]	Compute size of string,
	and #$00FF
	inc a	including length byte.
	pha	Save size.
	ldy <@memoryID
	jsr allocate1	Allocate fixed memory for title.
	sta <@hand
	stx <@hand+2
;
	ply	Restore size of string.
;
	pei <@title+2	Pass source pointer.
	pei <@title
	phx	Pass destination handle.
	pha
	pea 0	Pass number of bytes to move.
	phy
	_PtrToHand	Clone title.
;
	ldy #p_wtitle	Store handle of title.
	lda <@hand
	sta [<@paramPtr],y
	iny
	iny
	lda <@hand+2
	ora #$8000	Set bit that states this is a handle.
	sta [<@paramPtr],y
	brl @noTitle
;
;
; ------ Load title from wherever.
;
@loadTitle	ldy #p_wtitle+2	Is there a title in the template?
	lda [<@paramPtr],y
	tax
	dey
	dey
	ora [<@paramPtr],y
	beq @noTitle
;
	ldy #p_wInVerbs	get the input verbs
	lda [<@paramPtr],y	
	tay	and save em for a second
	and #titleAsResource
	bne @LoadTByRes	if by resource load it
	tya
	and #titleAsHandle
	bne @LoadTByHandle
	ldy #p_wtitle+2
	lda [<@paramPtr],y	load the pointer
	sta <@title+2	save it in the string pointer field
	dey
	dey
	lda [<@paramPtr],y
	sta <@title
	brl @Clonetitle	now create a buffer and copy the title
@LoadTByHandle
	ldy #p_wtitle+2
	lda [<@paramPtr],y	load the pointer
	sta <@title+2	save it in the string pointer field
	dey
	dey
	lda [<@paramPtr],y
	sta <@title
	ldy #2
	lda [<@title],y
	tay
	lda [<@title]
	sta <@title
	sty <@title+2
	brl @Clonetitle
@LoadTByRes
	ldy #p_wtitle	
	pha	Space for result.
	pha
	pea rPString	Pass type.
	phx	Pass ID.
	lda [<@paramPtr],y
	pha
	sta <@ID	Remember ID.
	stx <@ID+2
	_LoadResource
	tay	Posible error code.
	pla
	plx
	bcc @ok200	Error?
@errOut200	rts	Error.
@ok200
;
	ldy #p_wtitle	Store handle of title.
	sta [<@paramPtr],y
	iny
	iny
	txa
	ora #$8000	Set bit that states this is a handle.
	sta [<@paramPtr],y
;
	pea rPString	Pass type.
	pei <@ID+2	Pass ID.
	pei <@ID
	_DetachResource	Unlink the title handle from resource.
;
@noTitle
;
;
; --- Set window color table pointer in table.
;
	ldy #p_wcolor+2	Is there a color table resource?
	lda [<@paramPtr],y
	tax
	dey
	dey
	ora [<@paramPtr],y
	bne @LCT0005
	brl @noColor
;
@LCT0005
	ldy #p_wInVerbs	get the input verbs
	lda [<@paramPtr],y	
	and #colorAsResource
	bne @LoadCByRes	if by resource load it
;
; If not passed by resource ID we will have to make a copy of the color table
; so first create a handle
	lda #$0000
	pha	room for result
	pha
	pha	zero for high word of size
	pea $000A	room for a color table
	pei <@memoryID
	pha	zero for attributes
	pha	no specific location
	pha
	_NewHandle	allocate the space 
	tay	Possible error code.
	pla
	sta <@ID	save the handle for a sec...
	pla
	sta <@ID+2
	bcs @errOut200	Error?

	ldy #p_wcolor+2	push ref of the color table.
	lda [<@paramPtr],y
	pha
	dey
	dey
	lda [<@paramPtr],y
	pha
	pei <@ID+2	address to copy to
	pei <@ID
	pea $0000	size to copy
	pea $000A
;
; Now that the parms are set up properly, lets copy the right way depending on
; the input verb
	ldy #p_wInVerbs	get the input verbs
	lda [<@paramPtr],y	
	and #colorAsHandle
	bne @LoadCByHandle
	_PtrToHand	copy the data from ptr to our handle
	bra @LCT0020
;
@LoadCByHandle
	_HandToHand	copy the data from handle to handle
@LCT0020
	ldy #p_wcolor+2	offset to high word of color table
	lda <@ID+2	high byte of our handle
	ora #$8000	set high bit to indicate by handle
	sta [<@paramPtr],y
	dey
	dey
	lda <@ID
	sta [<@paramPtr],y
	bra @noColor
@LoadCByRes
	ldy #p_wcolor
	pha	Space for result.
	pha
	pea rWindColor	Pass type.
	phx	Pass ID.
	lda [<@paramPtr],y
	pha
	sta <@ID	Remember ID.
	stx <@ID+2
	_LoadResource
	tay	Possible error code.
	pla
	plx
	bcc @LCT0030
	brl @errOut200	Error?
;
@LCT0030
	ldy #p_wcolor	Store handle of the colot table.
	sta [<@paramPtr],y
	iny
	iny
	txa
	ora #$8000	Set bit that states this is a handle.
	sta [<@paramPtr],y
;
	pea rWindColor	Pass type.
	pei <@ID+2	Pass ID.
	pei <@ID
	_DetachResource	Unlink color table handle from resource.
;
@noColor
;
;
; --- Store passed values in parameter table.
;
	ldx #4
@lop200	phx
;
	ldy |@desIndex,x
	lda |@srcIndex,x
	tax
;
	lda <0,x
	sta [<@paramPtr],y
	iny
	iny
	lda <2,x
	sta [<@paramPtr],y
;
	plx
	dex
	dex
	bpl @lop200
;
;
; --- Get ID of control list.
;
	ldx #0
	ldy #p_windrec
	lda [<@paramPtr],y	Get the ID of the window's control list.
	sta <@ID
	txa
	sta [<@paramPtr],y	Clear the windRec field also, window record to be 
	iny	allocated.
	iny
	lda [<@paramPtr],y
	sta <@ID+2
	txa
	sta [<@paramPtr],y
	clc	No error.
	rts
;
;
;---------------------------------------------------------------------
;	Fix up parameter table type 2.
;-300-----------------------------------------------------------------
;
;  OUT:  Carry set if error, y = error code.
;        <@ID = ID of control list, NIL if none.
;
@fixParam2
;
; --- New parameter	list offsets -----------------------------
;
@paramID	equ 0	ID of parameter list.
@newDefProc	equ @paramID+2	DefProc of window.
@newData	equ @newDefProc+4	Additional data for	new window.
;
;
	stz <@ID	No control list.
	stz <@ID+2
;
	ldy #@newDefProc	Store address of defProc.
	lda <@defProc
	sta [<@paramPtr],y
	iny
	iny
	lda <@defProc+2
	sta [<@paramPtr],y
;
	clc	No error.
	rts
;
	ENDP
;
;
;========================================================
;          Dispose the temporary region
;========================================================
;
disposeRgnPtr	PROC

	pei  rgnptr+2
	pei  rgnptr
	_DisposeRgn
	rts

	ENDP
;
;
	END

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/WindMgr/wm.loader.asm b/IIGS.601.SRC/GSToolbox/WindMgr/wm.loader.asm
new file mode 100644
index 0000000..a1360be
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/WindMgr/wm.loader.asm
@@ -0,0 +1 @@
+	include 'all.macros'
	include 'e16.locator'


MMLoader	PROC

	bra RealStart



True	equ $FFFF
False	equ 0



TheUserID	equ $400E
TheToolNumber	equ $0E
TheName	str '1/tool014'

RealStart


;-----------------------------------------------------------
;
; Brk if necessary
;
	lda >$C062
	and #$0080
	beq @NoBreak
	brk 17
@NoBreak



;-----------------------------------------------------------
;
; Set dbr
;

	phk
	plb


;-----------------------------------------------------------
;
; Unload last patch
;

	pha	; space for result
	PushWord #TheUserID
	PushWord #0
	_UserShutdown

	pla

;-----------------------------------------------------------
;
; Load the new one
;


	pha	; space for dir page stack size
	pha	; space for addr of	dir page stack seg
	pha	; space for starting addr
	pha
	pha	; space for user id
	PushWord #TheUserID	; user id
	PushLong #TheName	; ptr to path name
	PushWord #True
	_InitialLoad
	bcs Die

	pla	; ignore userid
	pla	; put starting address
	sta TableAddress
	pla
	sta TableAddress+2
	pla	; ignore dir page
	pla	; ignore dir page size


;-----------------------------------------------------------
;
; Install
;
	PushWord #0	; system call
	PushWord #TheToolNumber	; install the patch
	PushLong TableAddress
	_SetTSPtr
	
	_SetDefaultTPT

;-----------------------------------------------------------
;
; Quit
	_Quit QuitParams


QuitParams	DC.L 0
	DC.W 0


TableAddress	DS.B 4





Die		; 
	pha
	PushLong #ErrorString
	_SysFailMgr

ErrorString	str 'Could not load.  Error was $'

	ENDP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/build.rom b/IIGS.601.SRC/GSToolbox/build.rom
new file mode 100644
index 0000000..b614047
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/build.rom
@@ -0,0 +1 @@
+#
# Build.ROM   [-e]
#
# Steven Glass
# November 16, 1988
#
# This script builds the toolbox portion of the ROM.  Its easy to use
# and fun too.
#
# Just have your directory set to the folder that this script is in and
# type BUILD.ROM.
#
# If you want to force the entire rom to be re assembled, just pass
# the -e option:  BUILD.ROM -e.
#
# What files do you need to build the ROM?  Well you need all the files
# in the project GSToolbox.  To get these files you could use the following
# commands:
#
#     MountProject fettuccine:gsprojects:gstoolbox
#     CheckOutDir -project gstoolbox work:gstoolbox -r
#     CheckOut -a -r -project gstoolbox
#
# The -a option could be replaced with a -newer if you already have sources
# on your disk and you only want the latest.
#
#     CheckOut -newer -r -project gstoolbox
#
############################################################################
directory rom
BuildProgram {parameters} ROM.LOAD
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/build.tools b/IIGS.601.SRC/GSToolbox/build.tools
new file mode 100644
index 0000000..1fda12d
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/build.tools
@@ -0,0 +1 @@
+#
# This command file builds all the files associated with the toolbox.
# These include the Patch files, the TOOLXXX files and the printer 
# drivers.
#
# If you execute this file without any parameters, only those files
# that need to be re-built will be built.  If you pass the -e command,
# all files will be built.
#
# Steven Glass
# 15 Oct 88
#

#
# Patch Files
#
directory :patch:
Build {parameters}
Directory ::


#
# Toolbox
#
directory windmgr
BuildProgram {parameters} tool014
directory ::menumgr
BuildProgram {parameters} tool015
directory ::controlmgr
BuildProgram {parameters} tool016
directory ::qdaux
BuildProgram {parameters} tool018
directory ::printmgr
BuildProgram {parameters} tool019
directory ::lineedit
BuildProgram {parameters} tool020
directory ::dialogmgr
BuildProgram {parameters} tool021
directory ::scrap
BuildProgram {parameters} tool022
directory ::stdfile
BuildProgram {parameters} tool023
directory ::notesynth
BuildProgram {parameters} tool025
directory ::noteseq
BuildProgram {parameters} tool026
directory ::fontmgr
BuildProgram {parameters} tool027
directory ::listmgr
BuildProgram {parameters} tool028
directory ::ace
BuildProgram {parameters} tool029
directory ::midi:miditools:
BuildProgram {parameters} tool032
directory ::drivers:apple.midi:
BuildProgram {parameters} apple.midi
directory ::card6850.midi
BuildProgram {parameters} card6850.midi
directory ::::resourcemgr
BuildProgram {parameters} Resource.Mgr
directory ::VideoMix
BuildProgram {parameters} tool033
directory ::textedit
BuildProgram {parameters} tool034
directory ::midisynth
BuildProgram {parameters} tool035
directory ::sys.resources
BuildProgram {parameters} Sys.Resources
directory ::MediaCtlTool:
BuildProgram {parameters} tool038
#directory ::FredWorld:
#BuildProgram {parameters} tool037
#directory ::Patch:Patch3:
#BuildProgram {parameters} QuickerGraph
#directory ::

#
# Printer Drivers
#
directory ::PrinterDrivers:LW
BuildProgram {parameters} LaserWriter
directory ::New.IW
BuildProgram {parameters} ImageWriter
directory ::LQ
BuildProgram {parameters} ImageWriter.LQ
directory ::Epson
BuildProgram {parameters} Epson
directory ::Tabasco
BuildProgram {parameters} StyleWriter
# directory ::HP.DeskJet
# BuildProgram {parameters} DeskJet.Plus
directory ::Printer
BuildProgram {parameters} Printer
directory ::Modem
BuildProgram {parameters} Modem
directory ::AppleTalk
BuildProgram {parameters} AppleTalk
directory ::GraphiCard
BuildProgram {parameters} Parallel.Card
directory ::IWEM
BuildProgram {parameters} IWEM
directory :::


#
# ToolboxMisc stuff (FindFile, Teach, etc...,)
#
directory ::ToolboxMisc:FindFileGS
buildProgram {parameters} FindFile
directory ::Teach:
buildProgram {parameters} Teach
directory ::ReadMeFiles:
buildProgram {parameters} ReadMeFiles
directory :::GSToolbox:



\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/common/common.asm b/IIGS.601.SRC/GSToolbox/common/common.asm
new file mode 100644
index 0000000..42c244d
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/common/common.asm
@@ -0,0 +1 @@
+	title 'COMMON       GS ROM 3.0'
****************************************************************
*			   *
*              Common		   *
*			   *
****************************************************************


****************************************************************
*			   *
*	Copyright (C) 1985-1988	   *
*	All Rights Reserved		   *
*	Apple Computer, Inc.	   *
*			   *
****************************************************************

**********************************************************************
*
* Change History
*
* 10 Jun 88	Steven Glass
*
* This file contains the strip code again.
*
* The 0-strip routines do not fall through the common code but rather
* short cut the process saving cycles.  This should get the 
* UCSD Pascal working again.
*
**********************************************************************

	include '::sys.equs.asm'

;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

	ENTRY ErrOut
	ENTRY oBusyErr
	ENTRY oErrOut
	ENTRY oErrOut0

****************************************************************
*
* NotImp
*
****************************************************************
	EXPORT NotImp
NotImp	PROC

	ldx #$FFFF
	jmp oErrOut0

	ENDP


****************************************************************
*
* EndCall Routines.
*
* Functions exit through the EndCall routines.  These routines
* fix the stack by moving the RTL addresses up and stripping
* off any input parameters.
*
* The number of bytes to strip off the stack is passed in the
* y-register.
*
* There are 8 end call routines
*
*       EndCall	   Pulls D off stack before cleaning up.  Sets
*	   a-reg to zero and clears carry.
*       oEndCall	   Does not pull D off the stack before
*	   cleaning up.  Sets a-reg to zero and	clears
*	   carry.
*       ErrOut	   Pulls D off stack, cleans up and returns
*	   error code passed in x-register, setting
*	   carry if x is not zero.
*       oErrOut	   Does not pull D off stack before cleaning up.
*	   returns error code passed in x-register,
*	   setting carry if	x is not zero.
*
*       BusyEC	   Decrements the busy flag, pulls D off stack
*	   and cleans up.
*       oBusyEC	   Decrements the busy flag, does not pull D off stack
*	   and cleans up.
*       BusyErr	   Decrements the busy flag, pulls D off stack,
*	   cleans up and returns error code passed in
*	   x-register, setting the carry if x is not zero.
*       oBusyErr	   Decrements the busy flag, does not pull D off
*	   the stack, cleans up and returns error code passed
*	   in x-register.
*
****************************************************************



	EXPORT oEndCall0
oEndCall0	PROC
	phd
	EXPORT EndCall0
EndCall0		;       
	ldx #0
	EXPORT ErrOut0
ErrOut0		;       
	pld
	EXPORT oErrOut0
oErrOut0		;       
	txa
	cmp #1
	rtl
	ENDP

	EXPORT oBusyEC0
oBusyEC0	PROC
	phd
	EXPORT BusyEC0
BusyEC0		;       
	ldx #0
	EXPORT BusyErr0
BusyErr0		;       
	pld
	EXPORT oBusyErr0
oBusyErr0		;       
	txa
	cmp #1
	jsl DecBusyFlg
	rtl
	ENDP


	EXPORT oEndCall2
oEndCall2	PROC
	phd
	EXPORT EndCall2
EndCall2		;       
	ldx #0
	EXPORT ErrOut2
ErrOut2		;       
	pld
	EXPORT oErrOut2
oErrOut2		;       
	ldy #2
	jmp oErrOut
	ENDP

	EXPORT oBusyEC2
oBusyEC2	PROC
	phd
	EXPORT BusyEC2
BusyEC2		;       
	ldx #0
	EXPORT BusyErr2
BusyErr2		;       
	pld
	EXPORT oBusyErr2
oBusyErr2		;       
	ldy #2
	jmp oBusyErr
	ENDP

	EXPORT oEndCall4
oEndCall4	PROC
	phd
	EXPORT EndCall4
EndCall4		;       
	ldx #0
	EXPORT ErrOut4
ErrOut4		;       
	pld
	EXPORT oErrOut4
oErrOut4		;       
	ldy #4
	jmp oErrOut
	ENDP

	EXPORT oBusyEC4
oBusyEC4	PROC
	phd
	EXPORT BusyEC4
BusyEC4		;       
	ldx #0
	EXPORT BusyErr4
BusyErr4		;       
	pld
	EXPORT oBusyErr4
oBusyErr4		;       
	ldy #4
	jmp oBusyErr
	ENDP

	EXPORT oEndCall6
oEndCall6	PROC
	phd
	EXPORT EndCall6
EndCall6		;       
	ldx #0
	EXPORT ErrOut6
ErrOut6		;       
	pld
	EXPORT oErrOut6
oErrOut6		;       
	ldy #6
	jmp oErrOut
	ENDP

	EXPORT oBusyEC6
oBusyEC6	PROC
	phd
	EXPORT BusyEC6
BusyEC6		;       
	ldx #0
	EXPORT BusyErr6
BusyErr6		;       
	pld
	EXPORT oBusyErr6
oBusyErr6		;       
	ldy #6
	jmp oBusyErr
	ENDP

	EXPORT oEndCall8
oEndCall8	PROC
	phd
	EXPORT EndCall8
EndCall8		;       
	ldx #0
	EXPORT ErrOut8
ErrOut8		;       
	pld
	EXPORT oErrOut8
oErrOut8		;       
	ldy #8
	jmp oErrOut
	ENDP

	EXPORT oBusyEC8
oBusyEC8	PROC
	phd
	EXPORT BusyEC8
BusyEC8		;       
	ldx #0
	EXPORT BusyErr8
BusyErr8		;       
	pld
	EXPORT oBusyErr8
oBusyErr8		;       
	ldy #8
	jmp oBusyErr
	ENDP

	EXPORT oEndCall10
oEndCall10	PROC
	phd
	EXPORT EndCall10
EndCall10		;       
	ldx #0
	EXPORT ErrOut10
ErrOut10		;       
	pld
	EXPORT oErrOut10
oErrOut10		;       
	ldy #10
	jmp oErrOut
	ENDP

	EXPORT oBusyEC10
oBusyEC10	PROC
	phd
	EXPORT BusyEC10
BusyEC10		;       
	ldx #0
	EXPORT BusyErr10
BusyErr10		;       
	pld
	EXPORT oBusyErr10
oBusyErr10		;       
	ldy #10
	jmp oBusyErr
	ENDP

	EXPORT oEndCall12
oEndCall12	PROC
	phd
	EXPORT EndCall12
EndCall12		;       
	ldx #0
	EXPORT ErrOut12
ErrOut12		;       
	pld
	EXPORT oErrOut12
oErrOut12		;       
	ldy #12
	jmp oErrOut
	ENDP

	EXPORT oBusyEC12
oBusyEC12	PROC
	phd
	EXPORT BusyEC12
BusyEC12		;       
	ldx #0
	EXPORT BusyErr12
BusyErr12		;       
	pld
	EXPORT oBusyErr12
oBusyErr12		;       
	ldy #12
	jmp oBusyErr
	ENDP

	EXPORT oEndCall14
oEndCall14	PROC
	phd
	EXPORT EndCall14
EndCall14		;       
	ldx #0
	EXPORT ErrOut14
ErrOut14		;       
	pld
	EXPORT oErrOut14
oErrOut14		;       
	ldy #14
	jmp oErrOut
	ENDP

	EXPORT oBusyEC14
oBusyEC14	PROC
	phd
	EXPORT BusyEC14
BusyEC14		;       
	ldx #0
	EXPORT BusyErr14
BusyErr14		;       
	pld
	EXPORT oBusyErr14
oBusyErr14		;       
	ldy #14
	jmp oBusyErr
	ENDP

	EXPORT oEndCall16
oEndCall16	PROC
	phd
	EXPORT EndCall16
EndCall16		;       
	ldx #0
	EXPORT ErrOut16
ErrOut16		;       
	pld
	EXPORT oErrOut16
oErrOut16		;       
	ldy #16
	jmp oErrOut
	ENDP

	EXPORT oBusyEC16
oBusyEC16	PROC
	phd
	EXPORT BusyEC16
BusyEC16		;       
	ldx #0
	EXPORT BusyErr16
BusyErr16		;       
	pld
	EXPORT oBusyErr16
oBusyErr16		;       
	ldy #16
	jmp oBusyErr
	ENDP





	EXPORT Strip
Strip	PROC

	EXPORT BusyEC
BusyEC		;       
	ldx #0

	EXPORT BusyErr
BusyErr		;       
	jsl DecBusyFlg
	bra ErrOut

	EXPORT EndCall
EndCall		;       
	ldx #0

	EXPORT ErrOut
ErrOut		;       
	pld	; restore direct register


	EXPORT oErrOut
oErrOut        	
	phy	; save amount to strip on stack
	tsc	; get stack pointer
	clc	; add to it the amount to strip
	adc 1,s
	tay	; put this result in Y
	tsc	; get back orig stack pointer
	phx	; save error on stack
	tax	; put orig stack in	X
	phb	; now save the data	bank reg
	pea $0000	; set data bank reg	to 0
	plb
	plb
	lda |3+4,x	;now use x and y to move 6 bytes
	sta |3+4,y	; of rtl info from	current pos
	lda |3+2,x	; to final pos.
	sta |3+2,y
	lda |3+0,x
	sta |3+0,y
	plb	; restore data bank	register
	plx	; restore x register with error
	
	tsc	; get stack again
	clc	; bump it by amount	to strip Plus 2
	adc 1,s	; to make up for amount to strip
	adc #2	; still on stack
	tcs	; reset stack pointer
	txa	; error into a-reg
	cmp #1	; set carry correctly
	rtl	; fini
	
	
	
	
	EXPORT oBusyEC
oBusyEC		;       
	ldx #0

	EXPORT oBusyErr
oBusyErr		;       
	jsl DecBusyFlg
	bra oErrOut

	EXPORT oEndCall
oEndCall		;       
	ldx #0
	bra oErrOut

	ENDP




	END

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/desk/CDACalls.asm b/IIGS.601.SRC/GSToolbox/desk/CDACalls.asm
new file mode 100644
index 0000000..f0ced63
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/desk/CDACalls.asm
@@ -0,0 +1 @@
+	title 'Desk Manager--CDACalls'
**********************************************************************
*
* Desk Manager--CDACalls  
* for the Apple II GS
*
* original CDA code by John Worthinton.
* original NDA code by Steven Glass
*
* Additions and alterations by Steven Glass and
* Konstantin Othmer
*
*
* This file contains
*
*	SaveScreen
*	svscreen
*	RestScreen
*	rstscreen
*	SaveAll
*	svmousstate
*	rstmousstate
*	RestAll
*	InstCDA
*	MyDeref
*	GrowTable
*	RemoveCDA
*	SetDAStrPtr
*	GetDAStrPtr
*
**********************************************************************

**********************************************************************
*			         *
*	Copyright (C) 1985-1988	         *
*	All Rights Reserved		         *
*	Apple Computer, Inc.	         *
*			         *
**********************************************************************




**********************************************************************
*
* Change History
*
*
* 11 February 87	  Steven Glass
*
*    Both SaveScreen and RestoreScreen went to EndCall0
*    when complete but had not pushed D	on the stack.
*    They now use oEndCall0.
*
* 26-Sep-90	Dave Lyons
*
* Changed setmode8 to shortmx, setmode16 to longmx.
*
**********************************************************************


	include 'all.macros'
	include '::sys.equs.asm'
	include 'e16.memory'



;=================================================
;
; Special Macros
;

	MACRO
&lab	movelong &src,&dest
&lab	lda &src
	sta &dest
	lda &src+2
	sta &dest+2
	mend


DAVersionNumber	equ $8300	;8300



	include 'Desk.Equates.asm'





; Desk Manager memory usage

; The desk manager has 4.5k of dedicated ram in bank E0.
; The memory (from $E0/0C00 to $E0/DFFF) is used as follows:

; bank 00 text screen saved at $E0/0C00
; bank 01 text screen saved at $E0/1000
; bank E0 text screen saved at $E0/1400
; bank E1 text screen saved at $E0/1800
; zero page (bank 00 page 00) saved at $E0/1C00
; desk manager data	space is 1 page starting at $E0/1D00

****************************************************************

	longa on
	longi on


****************************************************************
;
;    svscreen -- save the 80-col text screen
;
;    Note that the quick entry points don't save the bank.
;    When the routine returns the data bank is set to E0.
;    If you really want the data bank preserved, use the tool
;    entries.



; This is the tool call for saving the screen. The desk manager
; currently calls the svscreen directly. Is this wrong?!?


savescreen	PROC EXPORT
	phb
	jsr svscreen
	plb
	jml oEndCall0	; right end call 11	Feb 87 SEG

	ENDP




svscreen	PROC EXPORT

	longmx
	ldx #$400	;save bank 00 main
	ldy #$0C00
	lda #$3FF
	mvn $000000,$E00000

	ldx #$400	;save bank 00 aux
	ldy #$1000
	lda #$3FF
	mvn $010000,$E00000

	ldx #$400	;save bank E0 main
	ldy #$1400
	lda #$3FF
	mvn $E00000,$E00000

	ldx #$400	;save bank E0 aux
	ldy #$1800
	lda #$3FF
	mvn $E10000,$E00000

	rts

	ENDP


****************************************************************
;
;    RestoreScreen -- restore the 80-col text screen in
;	  bank 00 and bank E0
;
;    Same note as above. If you wnat the data bank preserved, call
;    restorescreen,	instead of rstscreen.

; This is the tool entry to rstscreen. Should the manager use this too?


restScreen	PROC EXPORT

	phb
	jsr rstscreen
	plb
	jml oEndCall0	; right end call 11	Feb 87

	ENDP


rstscreen	PROC EXPORT


	longmx

	ldx #$07
loop	cpx |mymslot
	beq @1
	cpx #$03
	beq @1
	jsr copysholes
@1	dex
	bne loop

	ldx #$C00	;restore bank 0 main
	ldy #$400
	lda #$3FF
	mvn $E00000,$000000

	ldx #$1000	;restore bank 0 aux
	ldy #$400
	lda #$3FF
	mvn $E00000,$010000

	ldx #$1400	;restore bank E0 main
	ldy #$400
	lda #$3FF
	mvn $E00000,$E00000

	ldx #$1800	;restore bank E0 aux
	ldy #$400
	lda #$3FF
	mvn $E00000,$E10000

	rts


copysholes	shortmx
	lda >$000478,x
	sta >$E01478,x
	sta >$E00C78,x

	lda >$0004F8,x
	sta >$E014F8,x
	sta >$E00CF8,x

	lda >$000578,x
	sta >$E01578,x
	sta >$E00D78,x

	lda >$0005F8,x
	sta >$E015F8,x
	sta >$E00DF8,x

	lda >$000678,x
	sta >$E01678,x
	sta >$E00E78,x

	lda >$0006F8,x
	sta >$E016F8,x
	sta >$E00EF8,x

	lda >$000778,x
	sta >$E01778,x
	sta >$E00F78,x

	lda >$0007F8,x
	sta >$E017F8,x
	sta >$E00FF8,x

	longmx
	rts


	ENDP

**********************************************************************
*
*     saveall  -- save the state information prior to
*                 activating the desk accessory.
*
* Change History
*
* 3 Jun 87     JW and SEG
*
* When SaveAll and RestoreAll deal with	mmode, it is possible
* for the code to become confused.  The	code that looks for
* the mouse card initializes the mmode word in 8 bit mode.
* It later reads the word in 16 bit mode and if the
* uninitialized byte powered up with the high bit set,
* then the code thinks the mouse is off	even when it is on.
*
* The fix here is to always zero the mmode before calling
* the old code.
*

**********************************************************************
saveall	PROC EXPORT


	lda #0
	sta >mmode


	shortmx
	phb

	pla
	sta >bregsave

	lda #$E0	; set data bank reg	to $E0
	pha
	plb


	lda #$00
	sta |intstatus
; Make sure that main memory, etc is set correctly.

	lda |statereg	; set memory state
	sta |svstatereg
	lda #$0C
	sta |statereg	; mega // kludge

; The code here should save the interrupt info, so we can handle
; multiple desk accessories.


	phb
	lda |intstatus
	longmx
	bpl czz
	jmp cantopen
czz	beq int2a
	ldx #irq_intflag**$FFFF
	ldy #int1ay**$FFFF
	bra czz1

int2a	ldx #irq_intflag**$FFFF
	ldy #int2ay**$FFFF

czz1	lda #$0C
	mvn $E10000,$E00000

	shortmx
	ldy |intstatus
	lda >irq_mousvbl
	sta |mousvblsv,y
	longmx

	tya
	beq int2b
	ldx #irq_a**$FFFF
	ldy #int1by**$FFFF
	bra czz2

int2b	ldx #irq_a**$FFFF
	ldy #int2by**$FFFF
czz2	lda #$13
	mvn $E10000,$E00000
	plb

	phd	;save the direct page and set
	pla	; it to page 00 bank 00.
	sta |dirpgsv

	lda #$00
	pha
	pld

	shortmx

; Save the video mode softswitches.

	lda |rd80col
	sta |col80sv
	lda |newvideo
	sta |newvidsv

	longmx
	lda |rdtext	;save rdtext and rdmix
	sta |txtsv
	lda |rdpage2	;save rdpage2 and rdhires
	sta |page2sv
	lda |altcharset	;save altcharset and rd80vid
	sta |altcharsv


; Save the 80-col text screens. Note that the mvn instruction
; will leave the data bank register set	to $E0

	longa on
	longi on

	jsr svscreen

; Save zero page (bank 00 page 00) and the 80-col video
; screens.

	ldx #$0000	; save zp and stack
	ldy #$1C00
	lda #$FF
	mvn $000000,$E00000


; Save the mouse info. Note that the //e mouse card has to
; be special cased.	** need to add code	for that **

; note that svmousstate must be called with 16-bit m and x.


	jsr svmousstate


	lda >cursor
	sta |cursorsave


; Initialize the 80-col firmware. Note that the desk manager
; uses the basic entry points, as does the control panel.
; Uses the fake 40-col stuff if the user has that set as a
; preference.


	shortmx

	sec
	jsl tobramsetup

	lda |rdc3rom
	sta |c3romsv
	lda |newvideo
	and #%01111111
	sta |newvideo
	sta |txtset
	sta |mixclr
	sta |txtpage1

	lda #$FF
	sta >$000032	; inverse switch
	longmx

	pha	; space for result
	pha
	pha
	_GetOutputDevice

	pla
	sta |oldoutdev	; save old output globals
	pla
	sta |oldoutdev+2
	pla
	sta |oldoutdev+4

	pha	; save the old output device
	pha	; so we don't have any problems
	_GetOutGlobals

	pla
	sta |oldoutglob
	pla
	sta |oldoutglob+2

	pha	; save the old input device
	pha
	pha
	_GetInputDevice
	pla
	sta |oldindev
	pla
	sta |oldindev+2
	pla
	sta |oldindev+4

	pha	; save the oldinput	globals too
	pha
	_GetInGlobals
	pla
	sta |oldinglob
	pla
	sta |oldinglob+2

	pea $FF	; and mask
	pea $00	; or mask
	_SetOutGlobals
	bcc cz1
;	brk 01
	dc.b 0,1

cz1	pea 00	; device type
	pushlong #$03	; pointer to driver
	_SetOutputDevice
	bcc loop1
;	brk 02
	dc.b 0,2


loop1	shortmx
	ldx #$00	; check for 80-col card in place
loop4card	lda $C305
	cmp #$38
	bne nocard
	lda $C307
	cmp #$18
	bne nocard
	inx
	bne loop4card
	bra cz2

nocard	sta |setintc3rom	; just to make sure	its really in
	bra loop4card

cz2	longmx
	pea 01	; init device to output
	_inittextdev
	bcc cz3
;	brk 03
	dc.b 0,3

cz3	PushWord #00
	PushWord #$19	; want 40 cols
	_ReadBParam
	pla
	sta |sv4080
	bne cont1

	pea $11
	_writechar


cont1	lda #$00
	pha
	plb
	plb

	cli
	jml oEndCall0



cantopen	
	brk $FF


	ENDP

****************************************************************
;
;    svmousstate --	save the clamp values of the mouse.
;


; This routine should save the clamp values for the mouse.
; The intent is to make this routine function for both the
; FDB mouse and the	//e mouse card. The	diagnostic calls for the
; mouse card need to be added.

svmousstate	PROC EXPORT

; Cn0C : 20
; CnFB : D6

	lda #$C700
	sta |slot
loop		; 
	lda |slot
	pha
	shortmx
	ldy #$0C
	lda (1,s),y
	cmp #$20
	bne miss
	ldy #$FB
	lda (1,s),y
	cmp #$D6
	beq gotit

miss	longmx
	pla
	lda |slot
	xba
	dec a
	cmp #$C0
	beq fail
	xba
	sta |slot
	bra loop

fail		; 
	lda #$FFFF
	sta |mmode
	bra exit

gotit	longmx
	pla
	xba
	and #$0F
	sta |mymslot	; push mouse slot for init call
	clc
	adc #$7F8
	tax
	longa off
	longi on
	sep #$20
	lda 0,x
	beq noton

	sta |mmode
	shortmx
	lda >mouseslot
	pha
	lda |mymslot
	sta >mouseslot
	longmx
	lda #$00
	pha
	_setmouse

	bra saveclamps

noton	longmx
	lda #$00
	sta |mmode
	bra exit


saveclamps	PushWord #00
	PushWord #00
	PushWord #00
	PushWord #00
	_getmouseclamp

	pla
	sta |hiyclampsv
	pla
	sta |loyclampsv
	pla
	sta |hixclampsv
	pla
	sta |loxclampsv

	shortmx
	pla
	sta >mouseslot
	longmx

exit	rts

	ENDP


****************************************************************
;
;    rstmousstate -- save the clamp values of the mouse.
;

; Note that the diagnostic calls for the //e mouse card need to
; be added.

rstmousstate	PROC EXPORT

	lda |mmode
	bmi noton
	beq noton
	shortmx
	lda >mouseslot
	pha
	lda |mymslot
	sta >mouseslot
	longmx
	lda |mmode
	pha
	_setmouse

	lda |loxclampsv
	pha
	lda |hixclampsv
	pha
	lda |loyclampsv
	pha
	lda |hiyclampsv
	pha

	_clampmouse

	shortmx
	pla
	sta >mouseslot
	longmx

noton	rts

	ENDP


****************************************************************
;
;   restall -- put everything back the way it was.
;
;   called on exit from the desk manager


restall	PROC EXPORT

	sei	;turn off interrupts


; set data bank reg	to $E0

	shortmx
	lda #$E0
	pha
	plb


; Restore the 80 col video switches. There might be more to	be added
; here.


	lda |col80sv
	bmi a1
	sta |clr80col
	bra cont
a1	sta |set80col
cont	lda |vid80sv
	bmi a2
	sta |clr80vid
	bra cont2
a2	sta |set80vid

; This code will restore the old interrupt info. Currently,	it is
; saved so that the	desk accessory interrupt is semi-reentrant.
; Not currently supported.


cont2	phb
	lda |intstatus
	longmx
	beq int2a
	ldx #int1ay**$FFFF
	ldy #irq_intflag**$FFFF
	bra cz1

int2a	ldx #int2ay**$FFFF
	ldy #irq_intflag**$FFFF

cz1	lda #$0C
	mvn $E00000,$E10000

	shortmx
	plb
	ldy |intstatus
	lda |mousvblsv,y
	sta >irq_mousvbl
	phb
	longmx

	tya
	beq int2b
	ldx #int1by**$FFFF
	ldy #irq_a**$FFFF
	bra cz2

int2b	ldx #int2by**$FFFF
	ldy #irq_a**$FFFF
cz2	lda #$13
	mvn $E00000,$E10000


; Restore the 80-col text screens



	jsr rstscreen

; Bank 00 page 00 restored.

	ldx #$1C00	;restore the zero page
	ldy #$0000
	lda #$FF
	mvn $E00000,$000000

	plb

; restore the mouse	clamps etc. Currently, I'm only supporting
; the FDB mouse. Will fix ...

	jsr rstmousstate	;restore mouse clamps

; restore the cursor

	lda |cursorsave
	sta >cursor

; restore the direct page

	lda |dirpgsv	;restore the direct	page
	pha
	pld

; Restore the data bank to what it was before the desk accessory

	shortmx

	lda |newvidsv
	and #$C0
	ora |newvideo
	sta |newvideo
	lda |altcharsv
	bpl aa1
	sta |setaltchar
	bra aa2
aa1	sta |clraltchar
aa2	lda |txtsv
	bpl aa3
	sta |txtset
	bra aa4
aa3	sta |txtclr
aa4	lda |mixsv
	bpl aa5
	sta |mixset
	bra aa6
aa5	sta |mixclr
aa6	lda |page2sv
	bpl aa7
	sta |txtpage2
	bra aa8
aa7	sta |txtpage1
aa8	lda |hiressv
	bpl aa9
	sta |hires
	bra aa10
aa9	sta |lores
aa10	lda |c3romsv
	bpl aa11
	sta |setslotc3rom
	bra rstmem
aa11	sta |setintc3rom

	longmx
	lda |oldoutdev+4
	pha
	lda |oldoutdev+2
	pha
	lda |oldoutdev
	pha
	_SetOutputDevice

	lda |oldoutglob+2
	pha
	lda |oldoutglob
	pha
	_SetOutGlobals

	lda |oldindev+4
	pha
	lda |oldindev+2
	pha
	lda |oldindev
	pha
	_SetInputDevice

	lda |oldinglob+2
	pha
	lda |oldinglob
	pha
	_setinglobals

	shortmx



; Restore the old memory state.

rstmem	lda |svstatereg
	sta |statereg	;mega // kludge


	longmx

	PushWord #0
	PushWord #$20	;want 40 cols
	_ReadBParam
	pla
	shortmx
	bne fast
	lda >irq_shadow+1
	and #%01111111
	sta >irq_shadow+1
	bra checkvol
fast	lda >irq_shadow+1
	ora #%10000000
	sta >irq_shadow+1

checkvol	longmx
	PushWord #0
	PushWord #$1E
	_ReadBParam
	pla
	shortmx
	sta >irq_volume

	lda >bregsave
	pha
	plb

exit	longmx

	jml oEndCall0

	ENDP



**********************************************************************
*
* procedure InstallCDA (DAHandle : Handle);
*
* Takes a handle to the da to install on the stack
*
* Change History
*
* 25 Jul 88	Steven Glass
*
* Error code was loaded into a-reg instead of x-reg.  Fixed today.
*
* 
* 10 Oct 88	Konstantin Othmer
*
* Since scrollable menu was added, number of CDAs is no longer limited
* so this routine no longer returns an error code.
*
* Also temp1 and temp2 changed to MyTemp1 and MyTemp2 so zero page is no 
* longer destroyed.
*
* 25 Oct 88	Steven Glass
*
* Moved code to unlock the handle into growtable.  Don't bother locking
* and unlocking in this routine any more.
*
**********************************************************************
InstCDA	PROC EXPORT
	DefineStack
OrigD	word	;2
MyTemp1	long	;4
MyTemp2	long	;8
ret1	block 3
ret2	block 3
DAHandle	long

	pha	; push 8 bytes of work space on stack
	pha
	pha
	pha
	phd	; save d-reg
	
	tsc	; make stack into direct page
	tcd

	phb	; save dbr
	pea $E0E0
	plb
	plb
	lda |roomleft	; number of da's before we grow
	lsr a
	lsr a	; if less than 4 then grow
	bne cont

	jsr growtable

cont	lda |cdatabhndl	; dereference the handle
	sta Mytemp1
	lda |cdatabhndl+2
	sta Mytemp1+2
	jsr MyDeref

	lda |numdas	; # of da's currently installed
	asl a
	asl a
	tay
	lda DAHandle	; get lo part
	sta [Mytemp2],y
	lda DAHandle+2	; get hi part
	iny
	iny
	sta [Mytemp2],y
	dec |roomleft
	inc |numdas	; increment number of da's installed
		
	plb
	pld
	
	pla
	pla
	pla
	pla
	jml oEndCall4

	ENDP

****************************************************************
*
MyDeref	PROC EXPORT
*
* This routine is used by both InstallCDA and RemoveCDA to
* dereference the handle in MyTemp1 and put the pointer in 
* MyTemp2.
*
* The direct page layout is the same for InstallCDA, RemoveCDA
* and this call.
*
*
* Inputs:
*	MyTemp1
*
* Outputs:
*	MyTemp2
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


	DefineStack	;(same as InstallCDA and RemoveCDA)
OrigD	word
MyTemp1	long
MyTemp2	long
ret1	block 3
ret2	block 3
DAHandle	long

	ldy #0002
	lda [Mytemp1]
	sta Mytemp2
	lda [Mytemp1],y
	sta Mytemp2+2
	rts

	ENDP


****************************************************************
*
growtable	PROC EXPORT
*
* This routine is called when the table of CDAs needs to
* be grown.  It makes the handle $20 bytes bigger and 
* increments RoomLeft by 8.
*
*
* Inputs:
*	CDATabHndl
*	RoomLeft
*
* Outputs:
*	RoomLeft
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
*
* Change History
*
* 25 Oct 88	Steven Glass
*
* No longer uses direct page.
*
****************************************************************

;-----------------------------------------------------------
;
; Make sure the table is not locked.
;
	pushlong |cdatabhndl
	_hunlock	


;-----------------------------------------------------------
;
; Get the table size.
;
	pha
	pha
	pushlong |cdatabhndl
	_gethandlesize

;-----------------------------------------------------------
;
; Add $20 and set the size.
;
	lda 1,s	; bump the size by $20
	clc
	adc #$0020
	sta 1,s
	lda 3,s
	adc #$0000
	sta 3,s
	pushlong |cdatabhndl
	_sethandlesize

;-----------------------------------------------------------
;
; Bump room left.
;
	lda |roomleft
	clc
	adc #$08
	sta |roomleft

	rts

	ENDP

****************************************************************
* RemoveCDA -- takes a handle to the da to remove on the stack
*
* Change History
*
* 05 Oct 88	Added by Konstantin Othmer
*

RemoveCDA	PROC EXPORT

	DefineStack

OrigD	word
MyTemp1	long
MyTemp2	long
ret1	block 3
ret2	block 3
DAHandle	long

	pha	; push 8 bytes of work space on stack
	pha
	pha
	pha
	phd	; save d-reg
	tsc	; make stack into direct page
	tcd

	phb
	pea $E0E0
	plb
	plb
	
	pushlong |cdatabhndl ; push handle to da table
	_hlock	; lock the handle
	lda |cdatabhndl	; dereference the handle
	sta Mytemp1
	lda |cdatabhndl+2
	sta Mytemp1+2
	jsr Myderef
	
;try to find this handle in the list


	ldy #0	;beginning of list
findCDA
	tya
	lsr a
	lsr a	;convert index to da number
	cmp |numdas
	bne cont1	;if we've checked the whole list, branch
	brl AllDone
	
cont1	lda DAHandle	; get lo part
	cmp [Mytemp2],y
	bne notit
	iny
	iny
	lda DAHandle+2	; get hi part
	cmp [Mytemp2],y
	bne notit1
	
;we found it.  Move all CDA's at [temp2],y+4 to [temp2],y
; currently y points to hi part of da to replace

move1

	iny
	iny	;bump to lo part of next cda
	tya
	lsr a
	lsr a	
	cmp |numdas	;check if there are more to move
	beq RemoveDone
	lda [Mytemp2],y	;low part of CDA we want to move
	tax
	iny
	iny	;bump to high part
	lda [Mytemp2],y	;get high part
	dey
	dey	;back to low part
	dey
	dey	;high part of previous
	sta [Mytemp2],y	;save high part
	dey
	dey
	txa
	sta [Mytemp2],y	;save low part of previous
	iny
	iny	;back to high part of previous
	iny
	iny	;low part of next da to replace
	iny
	iny	;high part of next da
	bra move1

;this isn't it.  Align pointer to next CDA entry.

notit		;lo word didn't match: branches here
	iny
	iny	
notit1		;high word didn't match: branch here
	iny
	iny
	bra findCDA
	
RemoveDone
	dec |numdas
	inc |roomleft
	
;unlock handle and then check to see if we can free up some space

	pushlong |cdatabhndl
	_hunlock
	ldx #0	;no error
	lda |roomleft	; number of da's before we grow
	cmp #20	;if there is room for 20 more, shrink by 12
	bcc ShrinkDone	;branch if there is room for 20 or less
	
;here we shrink the CDA handle size


	pushlong #$00
	pushlong |cdatabhndl
	_gethandlesize
	pla
	sec
	sbc #$20
	sta Mytemp1
	pla
	sbc #$00
	sta Mytemp1+2
	pushlong Mytemp1
	pushlong |cdatabhndl
	_sethandlesize
	lda |roomleft
	sec
	sbc #$08
	sta |roomleft
	ldx #0	;no error
	bra ShrinkDone
	
AllDone	
	pushlong |cdatabhndl
	_hunlock
	ldx #daNotFound	;not found error: $0510
	
ShrinkDone		;handle has already been unlocked		
	plb
	pld
	pla
	pla
	pla
	pla
	jml oErrOut4

	ENDP




**********************************************************************
*
* setdastrptr
*
* This routine will	takes a pointer on the stack and will
* install it in dastrptr
*
* dastrptr points to the strings to be printed for the
* 2 builtin desk accessories -- Control	Panel and Quit, as
* well as the title	string for the desk	manager
*
* The pointer should point to a table containing pointers
* to c style strings (hi-bit on, zero terminated). The first
* entry in the table contains a pointer	to the title string, the second
* a pointer to the name of the control panel. The final string points to
* the name used for	the quit option
*
**********************************************************************
setdastrptr	PROC EXPORT

	DefineStack
Temp	LONG
OrigB	BYTE
OrigD	WORD
Ret1	block 3
Ret2	block 3
strptr	long
dahand	long

	phd	; save d-reg
	phb	; save b-reg

	pha	; 4 bytes on stack
	pha

	tsc	; turn stack into d-page
	tcd
	

	pea $E0E0	; set bank to $E0
	plb
	plb

	lda strptr	; move strptr into final location
	sta |dastrptr
	lda strptr+2
	sta |dastrptr+2

	lda |cdatabhndl+2	; copy handle to temp
	sta temp+2
	lda |cdatabhndl
	sta temp

	ldy #4	; lock the handle
	lda [temp],y
	ora #$8000
	sta [temp],y

	ldy #2	; deref the handle
	lda [temp],y
	tax
	lda [temp]
	sta temp
	stx temp+2

	ldy #$0002	; copy the passed handle into the
	lda dahand	; first location in the derefed
	sta [temp]	; table
	lda dahand+2
	sta [temp],y

	lda |cdatabhndl+2	; unlock the handle
	sta temp+2
	lda |cdatabhndl
	sta temp
	ldy #0004
	lda [temp],y
	and #$7fff
	sta [temp],y

	pla	; clean off the stack (4 bytes)
	pla
	plb	; b-reg
	pld	; d-reg

	jml oEndCall8	; call strip routine to strip inputs

	ENDP


; returns the current value of dastrptr

getdastrptr	PROC EXPORT

ret1	equ 1
ret2	equ ret1+3
strptrlo	equ ret2+3
strptrhi	equ strptrlo+2

	lda >dastrptr
	sta strptrlo,s
	lda >dastrptr+2
	sta strptrhi,s
	jml oEndCall0

	ENDP



	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/desk/CDAMenu.asm b/IIGS.601.SRC/GSToolbox/desk/CDAMenu.asm
new file mode 100644
index 0000000..ea237a2
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/desk/CDAMenu.asm
@@ -0,0 +1 @@
+	title 'Desk Manager--CDAMenu'
**********************************************************************
*
* Desk Manager--CDAMenu for the Apple II GS
*
* Original CDA code by John Worthinton.
* Original NDA code by Steven Glass
*
* Additions and alterations by Steven Glass and
* Konstantin Othmer
*
* This file contains all the code necessary to handle the CDA menu.
*
* The procedures in this file are:
*
*	DAHandler
*	DoCDAMenu
*	DisplayData
*	SortCDAs
*	ChooseCDA
*	InitStuff
*	GotReturn
*	MonKeyIn
*	EvntKeyIn
*	Pg2Kludge
*	UpdateCDAMenu
*	PrintDAList
*	WriteDAName
*	SetUpTab
*	OpenDA
*	Deref*
*
**********************************************************************

**********************************************************************
*			         *
*	Copyright (C) 1985-1991	         *
*	Apple Computer, Inc.	         *
*	All Rights Reserved		         *
*			         *
**********************************************************************
*
* 26-Sep-90	Dave Lyons
*
* Change setmode8 to shortmx, setmode16 to longmx.
*
* 27-Nov-90	Dave Lyons
*
* Added SortCDAs routine, and made ChooseCDA call it.
* Optimized a few bytes from cout.
*
* 12-Feb-91	Dave Lyons
*
* Changed the GetNextEvent call to use event mask $0028 instead of
* $FFFF (we don't want to get update events and cause CheckUpdate
* calls, since this interferes with QuickDraw debugging!).
*
* 30-Sep-91	Dave Lyons
*
* Added support in MyWriteline for Ctrl-N to cancel Inverse text,
* since the Text.Clock CDA uses this:  "[Text Clock]: on"
*
**********************************************************************
*
* 7-Jul-92	Dave Lyons
*
* PanelActive checks ROM version using FWEntry before trying to check
* for the ROM 3 Control Panel disable jumper using ReadKeyMicroMemory.
*
**********************************************************************

	msb ON

	include 'all.macros'
	include '::sys.equs.asm'
	include 'e16.memory'



;=================================================
;
; Special Macros
;

	MACRO
&lab	movelong &src,&dest
&lab	lda &src
	sta &dest
	lda &src+2
	sta &dest+2
	mend


DAVersionNumber	equ $8301	;8300

Slot_Arbiter	equ $E10208

	include 'Desk.Equates.asm'


	title 'CDAMenu--DAhandler'
****************************************************************
*
DAHandler	PROC EXPORT
*
* This is the code that handles Desk Accessory interrupts.
* When a CDA interrupt occurs, this handler gets control
* in 8-bit native mode.  It decides whether actually put
* up the CDA menu or schedule an event.
*
* Note that this handler does not get called if the EventManger
* is active.  In that case, the Event Manager installs its own
* interrupt handler whose job it is to post events.
*
*
* Inputs:
*	none
*
* Outputs:
*	carry clear indicates that interrupt
*	is handled.
*
* External Refs:
	import DoCDAMenu
*
* Entry Points:
*	none
*
	longa off	; mode
	longi off
*
* Change History
*
* 19 Jul 88	Steven Glass
*
* This code used to be part of the procedure DABootInit.  It is
* now separate and more self contained.  
*
****************************************************************

	php	; save status register

;-----------------------------------------------------------
;
; Check the global variable NumInts.  If this number is
; is negative, we aren't alread in the CDA menu.  This
; prevents multiple entries into the CDA menu.
;
	lda >numints
	inc a
	bne AllDone


;-----------------------------------------------------------
;
; Check the busy flag.  If it is not zero, we schedule
; an interrupt.  If it is zero, we go ahead now.
;
	lda >busyflag	; if busyflg is 0 then we can
	bne ScheduleIt

	jsl DoCDAMenu
	bra AllDone

ScheduleIt	longmx	; switch to full native to make call
	pha	; space for result
	PushLong #DoCDAMenu ; get in the scheduler's que
	_SchAddTask
	pla	; ignore result

	shortmx	; switch back to 8-bit native

	lda #$FF	; reset the NumInts variable
	sta >numints

AllDone	plp	; restore P
	clc	; claim the interrupt
	rtl	; all done.


	ENDP

	title 'CDAMenu--DoCDAMenu'
****************************************************************
*
DoCDAMenu	PROC
*
* This is the routine that is called to display the CDA
* menu.  It is either called by the DA interrupt handler
* (if it is safe to do so) or by the scheduler.
*
* This code can be called in either 8, or 16 bit native
* mode and should work fine.
*
* This code resets the variable NumInts to $FF and it sets
* the next byte after it (mmode) to zero.  Why it does this
* is not really know, but must accesses to NumInts seem
* to trash mmode.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* Change History
*
* 19 Jul 88	Steven Glass
*
* This code used to be part of the procedure DABootInit.  It is
* now separate and more self contained.  The same code is called
* in the same way whether or not the scheduler is used.
*
* This code used to save and restore the dbr around the 
* code that moved the stack.  Instead, we save and restore the dbr at
* the same time as the processor.
*
****************************************************************

 	php	; save m&x bits
	phb	; save dbr
	longmx	; now in full native mode.

	tsc	; save stack for integer basic
	sta >stacksv

; Save stack but don't worry about changing data bank.
; it is saved above and restored below with P.
;
	ldx #$0100	; stack is saved as $E0/0300
	ldy #$0300
	lda #$FF
	mvn $000000,$E00000

	lda #$1FB	; make sure there's room on stack
	tcs

	_SaveAll	; save everything
	_ChooseCDA	; display the list of da's
	_RestAll	; unsave everything


	lda #$FF	; clear numints on exit
	sta >numints	; trash next byte too!!!!!!!!!!!!!!

	ldx #$0300	; move stack from buffer back to 
	ldy #$0100	; page 1.
	lda #$FF
	mvn $E00000,$000000

	lda >stacksv	; restore stack pointer.
	tcs

	plb	; restore dbr
	plp	; restore m & x bits.
	rtl


	ENDP



	title 'CDAMenu--DisplayData'
displaydata	PROC EXPORT


	EXPORT topofmenu
topofmenu	DC.B $A0
	DC.B $DF
	DC.B $DF
	DC.B $DF
	DC.B $DF
	DC.B $DF
	DC.B $DF
	DC.B $DF
	DC.B $DF
	DC.B $DF
	DC.B $DF
	DC.B $DF
	DC.B $DF
	DC.B $DF
	DC.B $DF
	DC.B $DF
	DC.B $DF
	DC.B $DF
	DC.B $DF
	DC.B $DF
	DC.B $DF
	DC.B $DF
	DC.B $DF
	DC.B $DF
	DC.B $DF
	DC.B $DF
	DC.B $DF
	DC.B $DF
	DC.B $DF
	DC.B $DF
	DC.B $DF
	DC.B $DF
	DC.B $DF
	DC.B $DF
	DC.B $DF
	DC.B $DF
	DC.B $DF
	DC.B $DF
	DC.B $DF
	DC.B $A0,$00

	EXPORT mainstr
mainstr	DC.B $5A,$A0,$41,$A0
	DC.B 'Desk Accessories '
	DC.B $20
	DC.B $20
	DC.B $20
	DC.B $20
	DC.B $20
	DC.B $20
	DC.B $20
	DC.B $20
	DC.B $20
	DC.B $20
	DC.B $20
	DC.B $20
	DC.B $20
	DC.B $20
	DC.B $20
	DC.B $20
	DC.B $20
	DC.B $20
	DC.B $5F,$00

	EXPORT bottmofmenu
bottmofmenu	DC.B $5A
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $5F,$00

;	EXPORT midstr
;midstr	DC.B $5A
;	DC.B $FF,$24,$A0
;	DC.B $5F,$00

	EXPORT selectstr
selectstr	DC.B $5A
	DC.B ' Select: '
	DC.B $4A,$A0,$4B
	DC.B $A0
	DC.B $A0
	DC.B $A0
	DC.B $A0
	DC.B $A0
	DC.B $A0
	DC.B $A0
	DC.B $A0
	DC.B $A0
	DC.B $A0
	DC.B $A0
	DC.B $A0
	DC.B $A0
	DC.B $A0
	DC.B $A0
	DC.B $A0
	DC.B $A0
	DC.B 'Open: '
	DC.B $4D,$A0,$A0,$5F,$00

	EXPORT laststr
laststr	DC.B $A0
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $4C
	DC.B $00

	EXPORT uparrows
uparrows
*** Commented out the text because it's exactly the same as downarrows.  12-Feb-91 DAL
***	DC.B $5B,$5B,$5B,$A0,'more',$A0,$5B,$5B,$5B ;up arrows are 4B
***	DC.B $00
	EXPORT downarrows
downarrows	DC.B $5B,$5B,$5B,$A0,'more',$A0,$5B,$5B,$5B ;down arrows are 4A
	DC.B $00

	EXPORT blankline
blankline	DC.B '                                    '
	DC.B $00


	EXPORT dastr
dastr	DC.L mainstr
	DC.L cntrlstr
	DC.L quitstr
	DC.L selectstr

	EXPORT cntrlstr
cntrlstr	DC.B 'Control Panel'
	DC.B $00

	EXPORT quitstr
quitstr	DC.B 'Quit'
	DC.B $00


	ENDP


****************************************************************
*
* SortCDAs  27-Nov-90 DAL
*
* If bit 0 of battery-RAM location $5F is on, we sort the CDA
* handles into alphabetical order before displaying the menu.
*
* ChooseCDA calls SortCDAs (from RAM on ROM 1, and through a
* patch to ROM 3).
*
****************************************************************
SortCDAs	proc export

	pha	;space for result
	pea $5F
	_ReadBParam
	pla
	lsr a
	bcc cdaDontSort

swapFlag	equ 1
counter	equ swapFlag+2
str1	equ counter+2
str2	equ str1+4
myPtr	equ str2+4

	lda >NumDAs
	beq @SortDone	;if there aren't any, we're done
	dec a
	beq @SortDone	;if there's only one, we're done

	phd
	lda >CDATabHndl+2
	pha
	lda >CDATabHndl
	pha
	phx
	phx	;space for str2
	phx
	phx	;space for str1
	phx	;space for counter
	phx	;space for swapFlag
	tsc
	tcd
** deref myPtr=CDATabHndl into pointer
	ldy #2
	lda [<myPtr],y
	tax
	lda [<myPtr]
	sta <myPtr
	stx <myPtr+2

	jsr cdaDoTheSort

	plx
	plx
	plx
	plx
	plx
	plx
	plx
	plx
	pld
@SortDone

cdaDontSort	rts

*
* cdaDoTheSort
*
* Input: myPtr = pointer to the list of CDA handles
*        >NumDAs = number of CDAs (AT LEAST 2!)
*
* Output: the handles in myPtr are sorted so that the
*         CDAs are in alphabetical order
*
* Uses:  swapFlag, counter, str1, str2 (on dp/stack)
*
* The sort ignores bit 7 and ignores case.
*
cdaDoTheSort	lsr <swapFlag
	ldy #0	;index into myPtr (list of handles)
	lda >NumDAs
	dec a
	sta <counter

@checkPair	phy
	jsr GetCDANamePtr
	stx <str1+2
	sta <str1
	iny
	iny
	iny
	iny
	jsr GetCDANamePtr
	stx <str2+2
	sta <str2

	jsr CompareDANames
	bcc @noSwap
	ror <swapFlag	;set bit 15 = we had to swap something

	ply
	phy
	jsr SwapYandNext

@noSwap	ply
	iny
	iny
	iny
	iny	
	dec <counter
	bne @checkPair

	bit <swapFlag
	bmi cdaDoTheSort
	rts
*
* GetCDANamePtr
*
* Input: Y = index into handle list (preserved)
*        <myPtr = pointer to list of handles
*
* Output: XA = pointer to CDA (name)
*
GetCDANamePtr	phy
	lda [<myPtr],y
	tax
	iny
	iny
	lda [<myPtr],y	;got XA = handle to a CDA
	phd
	pha
	phx	;push handle on stack for dereference
	tsc
	tcd
	ldy #2
	lda [1],y
	tax	;return high word of pointer
	lda [1]	;return low word of pointer
	ply	;throw away handle
	ply	;throw away handle
	pld	;restore D
	ply	;restore caller's Y
	rts

*
* CompareCDANames
*
* Input: str1, str2
*
* Output: CLC if DAs are correctly ordered
*
CompareDANames	ldy #0
@pchar	tya
	sep #$20
	cmp [<str1]
	rep #$20
	bcs @clc	;return with carry clear (hit end of first string)

	sep #$20
	cmp [<str2]
	rep #$20
	bcs @rts	;return with carry set (hit end of 2nd string)

	iny
	lda [<str2],y
	jsr @upcase
	sta >@cheat+1
	lda [<str1],y
	jsr @upcase
@cheat	cmp #$7777	;self-modified
	beq @pchar
@rts	rts	;returns carry

@upcase	and #$007f
	cmp #'a'
	bcc @1
	cmp #'z'+1
	bcs @1
	and #$df
@clc	clc
@1	rts

*
* SwapYandNext
*
* Input: Y = index to a handle in the <myPtr list
*
* Swaps the handle with the one following
*
* Trashes A, X, Y.
*
SwapYandNext	ldx #4
	phy
@push	lda [<myPtr],y
	pha
	iny
	iny
	dex
	bne @push
	lda 9,s	;get old index back
	tay
	plx
	pla	;XA=2nd handle
	sta [<myPtr],y
	iny
	iny
	txa
	sta [<myPtr],y

	plx
	pla	;XA=old first handle
	iny
	iny
	sta [<myPtr],y
	iny
	iny
	txa
	sta [<myPtr],y

	ply
	rts

	EndP


****************************************************************
*
ChooseCDA	PROC EXPORT
*
* ChooseCDA is the internal routine that causes the CDA menu
* to be displayed.
*
* The system must already be in text mode before this call is
* made.  This call assumes that stack and d-page are already
* set to page 1 and page 0.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
*
* Change History:
*
*  Halloween	Kontstantin Othmer
*
*   Added warm entry point so that current state of desk manager
* is saved and returned to after the cda call is done.
* Also took out all the brks.
*
****************************************************************

	jsr SortCDAs	;added 27-Nov-90 DAL

	phb	; save dbr

	lda #0
	sta >firstMenuItem	; tell UpdateCDA to start at item 0
	sta >curCDA	; select item 0 (control panel)
	
	lda #$0003	;request current bit encoded configuration
	jsl Slot_Arbiter	;and make slot 3 internal
	phx	;saves bit encoded configuration

	
	ENTRY ChooseCDAWarm
ChooseCDAWarm

 	pea $E0E0	;Reset dbr to bank $E0
	plb
	plb
SkipWarm
	jsr initstuff	;This inits all formatting parameters

	pea $FF	; and mask
	pea $00	; or mask
	_SetOutGlobals

	pea 00	; device type
	pushlong #$03	; pointer to driver
	_SetOutputDevice

*
* Determine whether or not we have an 80 column card
*  Later we will use this information for setting the position of the menu
*  In 40 column mode, the menu starts in column 0
*  In 80 column mode, the menu starts in column 20
*
loop13	shortmx
	ldx #$00	; check for 80-col card in place
loop4card	lda $C305
	cmp #$38
	bne nocard
	lda $C307
	cmp #$18
	bne nocard
	inx
	bne loop4card
	bra cz2

nocard	sta |setintc3rom	; just to make sure	its really in
	bra loop4card

cz2	lda #$FF
	sta >$000032	; turn off inverse
	longmx
	pea 01	; init device to output
	_InitTextDev

cz3	PushWord #00
	PushWord #$19	; want 40 cols
	_ReadBParam
	pla
	and #$00FF
	sta |sv4080
	bne c1	;not 40 column; everything is ok

; From here to c1 is 40 column init.
; Initstuff assumes 80 columns.
; The only difference is the position of the left border

	lda #$11	;Special 40 column init stuff
	jsr cout

	sep #$20
	sta >$00C000
	sta >$00C00C
	rep #$20
	lda #LeftBorder40	;Only difference between 80 & 40 is left
	sta |leftborder	;column starting location
	lda #LeftBorder40-3
	sta |hpos	;menu border starts two to the left of text

c1		 
	lda #>topofmenu
	sta temp2+1
	lda #<topofmenu
	sta temp2
	jsr mywritecstringnt
	inc |vpos
	lda |dastrptr	; mainstr for international
	sta temp1
	lda |dastrptr+2
	sta temp1+2
	ldy #$02
	lda [temp1],y
	sta temp2+2
	lda [temp1]
	sta temp2
	jsr MyWriteCStringnt ;Draws the Desk Accessories line
	inc |vpos
	lda #>bottmofmenu
	sta temp2+1
	lda #<bottmofmenu
	sta temp2
	jsr MyWriteCStringnt ;Draws the bar under Desk Access.
;
; Now print right and left borders of menu
;
	pushword #$14	;$14 = 20 lines of bars in all
	lda |hpos
	pha	;save to use in following routine

loop	
	lda 1,s
	sta |hpos
	inc |vpos
	pla
	plx
	dex
	beq cont	;Leave loop if borders are done
	phx
	pha

	lda #$5A	;Left Border Bar Character
	jsr MyCout

	lda 1,s	;replaces pla pha
	clc
	adc #WindowWidth	;Right Border = LeftBorder + Width
	sta |hpos

	lda #$5F	;Right Border Bar Char
	jsr MyCout
	
	bra loop

cont	lda |dastrptr	; mainstr for international
	sta temp1	
	lda |dastrptr+2
	sta temp1+2
	ldy #$0E
	lda [temp1],y
	sta temp2+2
	dey
	dey
	lda [temp1],y
	sta temp2
	jsr MyWriteCstringnt ;draw bottom  "Select:....
	inc |vpos
	
	lda #>laststr
	sta temp2+1
	lda #<laststr
	sta temp2
	jsr MyWriteCStringnt ;Draws the bar under Desk Access.
	
;
; if control panel active goto panelactive
;
	jsr panelactive
	lda |numdas	;calculate last vertical position which
	bcc active
	dec a
active
	
	clc	;contains text
	adc #$05	;This is used to know where quit will be
	cmp #Top+NumLines-1 ;last line a DA can show on
	blt ok
	lda #Top+NumLines-1
ok	sta |bottomline	;save last text position

	jsr UpdateCDAMenu	;draw all available CDAs
;
; Calculate position to draw selected (inverted) item
; Postion is top+(curcda-firstmenuitem)
;

	lda |curcda
	sec
	sbc |firstmenuitem
	clc
	adc #top
	sta |vpos	;invert string routine which inverts
	lda |leftborder	;the DA with some given number
	sta |hpos

	lda #$FF	; inverse
	ldy |curcda	;Item to highlight
	jsr writedaname	;Always start by selecting first item


loop1	per ret-1
	lda |keyinput	;simulate a jsr through |keyinput
	dec a	;(which isn't in the program bank!)
	pha
	rts
;
; Read keyboard and dispatch to appropriate routine
;
	longa on
	longi on
ret	and #$7F
	cmp #$0D	;Open CDA?
	bne contt
	jmp gotreturn	;Open it
contt	cmp #$0B	;up arrow?
	bne contt1
	brl upaline
contt1
	cmp #$0A	;down arrow?
	beq downaline
	cmp #$1B	;escape key
***	bne loop1
	bne @notESC
	brl DoEscape

*
* Added 12-Feb-91 DAL.  If they didn't type something special, try
* to jump to the next CDA that starts with the character they
* typed.
*
@notESC	longmx
	cmp #$20
	bcc loop1
	pha
	lda #0
	ldy |curcda
	jsr WriteDAName
	pla
	jsr SearchCDALetter
*
	jsr GetCDANum	;Quit = NumDAs+1
	sec
	sbc |FirstMenuItem
	clc
	adc #Top
	sta |vpos
*
	ldy |curcda
	lda #$ff
	jsr WriteDAName
	bra loop1

* Support routines for possible inputs follow

downaline	longmx
	ldy |curcda	; unhighlight current da
	lda #$00
	jsr writedaname
	lda |curcda	; if curcda = quit then do nothing
	cmp #$FF
	bne cont1
*If quit is selected, do nothing.
	lda |leftborder
	sta |hpos
	lda #$FF
	bra drawnam

cont1
* first check to see if the apple key was also pressed.  If it was, we move by pages.
	lda |ModKeyReg	;Modifier key register $c025
	and #$0080	;apple key bit (page 124 harware ref)
	bne DoPageDown
* here we move down 1 line
* first check if we need to scroll
	lda |vpos
	cmp #Top+NumLines-1	;are we at the bottom?
	bne contt2
	brl scrollit
contt2	lda |curcda
	inc a	;bump to next cda
	cmp |numdas	; if curcda > numdas ->
	bcc nowrap1
	beq nowrap1

	lda #$FF	;set to quit
	
nowrap1	pha
	inc |vpos
	pla

drawnam	sta |curcda	; hilight curcda
	tay
	lda #$FF
	jsr writedaname

	brl loop1	; loop again

DoPageDown
*Apple and the down arrow key were pressed
	lda |firstmenuitem
	clc
	adc #numlines-1	;this is the number of bottom menu item
	cmp |curcda	;is this the selected one?
	beq DoPageDown1	;branch if it is
*See if its over the end
	
	cmp |numdas	;are we off the bottom of the menu?
	beq DoPageDownOK	;less than or = to #das
	bcc DoPageDownOK	;then we're not over the bottom

	lda #$FF	;move to quit if off the end 
DoPageDownOK	pha	;if it isn't, select and drawit
	lda |bottomline	
	sta |vpos
	lda |leftborder
	sta |hpos
	pla	;a has curcda
	bra drawnam
DoPageDown1
*We want to page down
	inc a	
	sta |firstmenuitem	;page down by one
	clc
	adc #numlines-1	;item on new screen bottom
	cmp |numdas	;is it valid
	bcc DoPageD2 	;it's OK: scroll
	beq DoPageD2	;it's Ok: scroll
*We went off the bottom.  Make quit the selected item.
	lda |numdas
	sec
	sbc #numlines-2	;-2 to make room for quit
	bcs EndOfDown	;were're ok: branch.  A has new start loc.

	lda #0	;less menu items than lines.  Start @ top 
EndOfDown	sta |firstmenuitem
	jsr UpdateCDAMenu
	lda #$FF	;quit item
	pha
EndOfDown1	lda |leftborder
	sta |hpos
	lda |bottomline
	sta |vpos
	pla
	bra drawnam

DoPageD2
*Here we just want to scroll down one page (numlines)
	pha
	jsr UpdateCDAMenu
	bra EndOfDown1	
	
DoPageUp
*Apple and the up arrow key were pressed
	lda #top
	sta |vpos
	lda |leftborder
	sta |hpos
	lda |firstmenuitem
	cmp |curcda	;are we at the top?
	beq JumpUp	;branch if we are at top
	sta |curcda	;set to top of screen
	brl drawnam

JumpUp	
*Jump up one page (numlines)
	sec
	sbc #NumLines	;subtract from firstmenuitem
	bcc GoToTop	;branch if it puts us over the top
JumpUp1	sta |firstmenuitem	;otherwise we move up by one page
	sta |curcda
	jsr UpdateCDAMenu	;scroll
	lda #top	;we are at the top
	sta |vpos
	lda |leftborder
	sta |hpos
	lda |curcda
	brl drawnam
GoToTop	lda #0
	bra JumpUp1

scrollit
*we are on last line.  Bump da pointer, scoll, then inverse video to select
	lda |curcda
	inc a
	cmp |numdas
	bcc scrollit1	;branch if not on last item
	beq scrollit1

	lda #$FF	;no more CDA's.  Quit is last item.
scrollit1	sta |curcda	;we have the new DA number
	inc |firstmenuitem	;start display one item later
	jsr UpdateCDAMenu
	lda #Top+Numlines-1
	sta |vpos
	lda |leftborder
	sta |hpos
	lda |curcda
	brl drawnam

upaline	longmx

	ldy |curcda	; unhighlight current da
	lda #$00
	jsr writedaname
*move by pages?
	lda |ModKeyReg	;Modifier key register $c025
	and #$0080	;apple key bit (page 124 harware ref)
	beq NoPageUp
	brl DoPageUp	;jump by pages

NoPageUp	lda |curcda	; if curcda = cntrl	pan, wrap
	bne cont2

*We're at the top (control panel)  Don't wrap.  Do nothing.
	lda |leftborder
	sta |hpos
	lda #0
	brl drawnam
*We're at the top (control panel)  

cont2
* not at control panel
* check if we are at top
	lda |vpos
	cmp #top
	beq scrollup	;if we're at the top we need to scroll up
;
;just move up a line; no scrolling necessary.  A contains vpos.
;
	dec a
	sta |vpos
	lda |curcda
	cmp #$FF
	bne cont4
	lda |numdas
	brl drawnam

scrollup
* Here we need to scroll up a line.  We know we're not @ the very top because
* we weren't @ the control panel
* We decrement firstmenuitem & redraw
	dec |firstmenuitem
	dec |curcda
	jsr UpdateCDAMenu
	lda #top
	sta |vpos
	lda |leftborder
	sta |hpos
	lda |curcda
	brl drawnam

cont4	dec a
	brl drawnam

DoEscape
*here we select the quit item.

	ldy |curcda	; unhighlight current da
	lda #$00
	jsr writedaname
*Goto bottom
*First calculate new firstmenuitem = numdas-numlines

selectquititem
	lda |numdas
	sec
	sbc #numlines-2	;-2 because 1 for quit and one because
	bcs selectok
	lda #0
selectok	sta |firstmenuitem	;we start with item 1 (ctrl. panel = 0)
	lda #$FF
	sta |curcda
	jsr UpdateCDAMenu
	lda |bottomline
	sta |vpos
	lda #$FF	;quit item
	brl drawnam

	ENTRY DONE
done		;       
	shortmx
	lda #$FF
	sta $000032	; inverse flag
	longmx
	
	plx	;get bit encoded slot configuation
	lda #$0300
	jsl Slot_Arbiter	;restore original configuration

;
; Need to unlock table of CDA's (|CDATabHndl) when exiting.  setuptab (called by
; initstuff (below) locked the table.
;
	lda |CDATabHndl+2
	pha
	lda |CDATabHndl
	pha
	_HUnlock
	
	plb
	jml oendcall0
	ENDP

	EXPORT initstuff
initstuff	PROC
	lda #LeftBorder80	;default init assumes 80 column screen
	sta |leftborder
	lda #LeftBorder80-3	;start position for border of menu
	sta |hpos
	lda #0
	sta |vpos
	jsr setuptab	;sets up table of CDA strings
	sep #$20
	longa off
	sta >$00C00d
	sta >$00C001
	
	lda >$00C02d
	and #$08
	bne NotInternalSlot3
	lda #0
	sta >$0007FB
NotInternalSlot3
	rep #$20
	longa on
;
; Set up screen holes to the values CDA expect
;
	
	rts
	ENDP

gotreturn	PROC EXPORT

	longmx
	lda |curcda
	beq conpan
	cmp #$FF
	beq quitcode

	jsr openda
	jmp choosecdaWarm

conpan	shortmx
	lda #$00	; set b to bank zero
	pha
	plb
	jsl toctrl_panel
	longmx
	jmp choosecdaWarm

quitcode	jmp done

	ENDP

monkeyin	PROC EXPORT
	shortmx

	lda $C000	;read keyboard
	bpl monkeyin	;wait for keypress
	sta $C010	;acknowledge keypress: clear keyboard
	longmx
	rts

	ENDP

	EXPORT evntkeyin
evntkeyin	PROC

	pushword #$00	; result
***	pushword #$FFFF	;event mask -- keyboard only
	pushword #$0428	;keydown and autokey only (12-Feb-91 DAL) + deskAcc (23-Feb-91)
	pea evntrec>>16
	pea evntrec**$FFFF
	_GetNextEvent
	pla
	beq evntkeyin	; if 0 we don't handle
	lda |evntrec
	cmp #$03
	beq  @1	; if keydown then exit
	cmp #$05
	bne evntkeyin	; if not autokey then skip
@1	lda |message
	and #$00FF	; make sure we only	have bottom byte
	rts

	ENDP

	EXPORT pg2kludge
pg2kludge	PROC
	DC.L foo

foo	DC.B $16
	DC.B 'Alternate Display Mode'
	DC.L open
	DC.L AnRTL

open	shortmx
	phb
	lda #$00
	pha
	plb
	jsl topg2kludge
	plb
	longmx
AnRTL	rtl

	ENDP

**********************************************************************
*
* This routine displays the CDAs
*
* The Pascal string list of CDA names is assumed to be setup already
*
* The first DA shown is in |firstmenuitem (0 = first one = Control Panel)
*
* |numdas contains the number of CDAs in the list
*
* This routine is called at the beginning and everytime the display 
* scrolls.
*
* Added by Konstantin Othmer Sept 21, 1988
*
****************************************************************
	EXPORT UpdateCDAMenu
UpdateCDAMenu	PROC
* Set cursor to first location.
	lda |leftborder
	sta |hpos
	lda #Top-1	;vertical text start position  
	sta |vpos

;
; check if jumper is in
; force it in for testing purposes
;
	jsr panelactive
	bcc test2	;panel active => goto test2
;
;control panel not active - force firstmenuitem to 1 if it is 0 and same with curcda
;
	lda |curcda
	bne test1
	inc a
	sta |curcda
	sta |firstmenuitem
test1	lda |firstmenuitem
	bne test2
	inc a
	sta |firstmenuitem
test2

* If we are at item 0, print a blank line and 'control panel'

	lda |firstmenuitem
	bne Update0

*We're @ top.  Blank uparrows if they are there by drawing blank line
	
	lda #>blankline
	sta temp2+1
	lda #<blankline
	sta temp2
	jsr MyWriteCString

	lda |leftborder
	sta |hpos
	inc |vpos
	
	lda #>blankline	;blank control panel line to the end
	sta temp2+1
	lda #<blankline
	sta temp2
	jsr MyWriteCString

	lda |leftborder
	sta |hpos
	lda #0	;normal text
	ldy #0	;control panel
	jsr writedaname	;print control panel: item 0
	inc |vpos
	ldy #1	;y-reg contains number of 1st item to do
	bra Update1
Update0
;not at top.  print up arrows @ top-1
;
; If control panel enabled => goto test3
;
	jsr panelactive
	bcc test3
;
; control panel not enabled: skip arrows when 1,1
;
	lda |firstmenuitem
	cmp #1
	bne test3
;
; Blank uparrows line
;
	lda #>blankline
	sta temp2+1
	lda #<blankline
	sta temp2
	jsr MyWriteCString
	bra test4

test3
	lda #>uparrows
	sta temp2+1
	lda #<uparrows
	sta temp2
	jsr MyWriteCStringnt
test4
	lda |leftborder
	sta |hpos
	inc |vpos
	ldy |firstmenuitem
Update1
	lda #0
	pha	;set up flag for quit item
	lda |numdas	;calculate number of items to print

*number of items to print is numdas - firstmenuitem +1

	sec	;x-reg will contain number of items to do
	sbc |firstmenuitem
	tax
	lda |firstmenuitem	;Did we do control panel (above)?
	bne Update2	;If we didn't, branch.

*This section assumes control panel done.


	cpx #NumLines-2	;Control panel and quit each take up one line
	bcc Update4	;If 13 or less, there is quit item: branch
	beq Update4
	ldx #NumLines-1	;print maximum w/ control panel & no quit
	lda #$ffff	;signal no quit item
	sta 1,s
	bra Update4
Update2
* No Control Panel
	inx
	cpx #NumLines	;Total length of display
	bcc Update4	;branch on 14 or less
	ldx #NumLines	;print maximum w/o control panel & no quit
	lda #$ffff	;signal no quit item
	sta 1,s

Update4	
	jsr PrintDAList	;Print list of DAs
* Handle Quit Item
	lda |leftborder
	sta |hpos
	pla	;$ff signals no quit item, 0 signals quit
	bne DoDownArrows

	lda |bottomline
	sta |vpos
	lda |leftborder
	sta |hpos

	lda #>blankline
	sta temp2+1
	lda #<blankline
	sta temp2
	jsr MyWriteCString

	lda |leftborder
	sta |hpos
	lda #0	; normal
	ldy #$FF	;quit item identification
	jsr writedaname

* Here we erase bottom row.  It may contain down arrows which we don't want.
	inc |vpos
	
	lda #>blankline
	sta temp2+1
	lda #<blankline
	sta temp2
	jsr MyWriteCString
	
	bra UpdateDone
DoDownArrows
;
; There is no quit item, so there must be more.  A "*** more ***" message shows this.
;	
	lda #>blankline
	sta temp2+1
	lda #<blankline
	sta temp2
	jsr MyWriteCString

	lda |leftborder
	sta |hpos
	
	lda #>downarrows
	sta temp2+1
	lda #<downarrows
	sta temp2
	jsr MyWriteCStringnt


UpdateDone	
	rts
	ENDP
	

**********************************************************************
*
* PrintDAList
*
*  Prints an excerpt from a list of C-strings
*
* y-reg has # of 1st item to print (list starts at 1)
* x-reg has # of items to print
*
* Routine assumes initial print location is set up 
*
* Everything printed in normal (not inverse) type
*
* Added by Konstantin Othmer Sept 21, 1988
*
**********************************************************************
	EXPORT PrintDAList
PrintDAList	PROC
	inx
PrintC1	dex	;Number items left zero?
	beq PrintCDone	
	phx
	phy

	lda |leftborder
	sta |hpos
	ply
	phy
	lda #0	;normal
	jsr writedaname	;does not change |hpos
	clc	;a-reg contains length of da string
	adc |hpos
	sta |hpos

PrintLoop
	lda |leftborder
	clc
	adc #36	;screen width
	cmp |hpos	;have we filled to the right border yet?
	beq LoopDone
	lda #' '
	jsr Mycout	;blank char
	inc |hpos
	bra PrintLoop

LoopDone
	inc |vpos	;advance vertical position
	ply
	plx
	iny
	bra PrintC1
PrintCDone	rts
	ENDP

**********************************************************************
*
* PanelActive
*
*  Checks whether or not to display the control panel.  This is set
* via a jumper on the board.  The jumper controls bit 7 of $00C046.  If
* bit 7 of $00C046 = 0 then we show the control panel and return with the 
* carry clear.  Otherwise the carry is set.
* 
*
PanelActive	PROC EXPORT
	pha
	phx
	phy

*** added 7-Jul-92 DAL -- For ROM 1, there is no Control Panel Disable jumper
	pha
	pha
	pha
	pha	;space for results
	pha
	pha
	pha	;A, X, Y (who cares)
	pea $FE1F
	_FWEntry
	ply	;Y value
	plx	;X value
	pla	;A value
	pla	;P value
	cpy #3	;Is this ROM 3?
	bne PanelShow
*** end 7-Jul-92

	pushlong #IsPanelActive
	pushlong #ReadLocation
	pea $0009	;read location and store result at IsPanelActive
	_ReadKeyMicroMemory
	
	lda >IsPanelActive
	and #$0040	;save bit 6
	beq PanelShow
	sec	;don't show control panel
	bra PanelDone
	
PanelShow	clc	;show control panel
PanelDone
	ply
	plx
	pla
	rts
	
ReadLocation	dc.l $00E8	;key micro $E8 bit 6 has control panel jumper

	ENDP


**********************************************************************
*
* SetPanelActive
*
*  Checks whether or not to display the control panel.  This is set
* via a jumper on the board.  The jumper controls bit 7 of $00C046.  If
* bit 7 of $00C046 = 0 then we show the control panel and return with the 
* carry clear.  Otherwise the carry is set.
*
****************************************************************
SetPanelActive	PROC EXPORT
;	pha
;	sep #$20	;8 bit m
;	longa off
;	lda >$00C060
;	rep #$20
;	longa on
;	and #$0080
;	eor #$0080	;change sense of bit
;	sta >IsPanelActive
;	pla
	rts
	ENDP
	
**********************************************************************
*
* Sends character in a to $FDED
*
****************************************************************
	EXPORT cout
cout	PROC


;	pea 00	; space for result
;	pea 00	; space for result
;	pea 00	; space for result
;	pea 00	; space for result
	pha	; space for result (DAL)
	pha	; space for result (DAL)
	pha	; space for result (DAL)
	pha	; space for result (DAL)
	pha	; acc at entry
;	pea 00	; xreg at entry
;	pea 00	; yreg at entry
	pha	; xreg at entry (DAL)
	pha	; yreg at entry (DAL)
	pea $FDED
	_FWEntry
	pla
	pla
	pla
	pla

	rts
	ENDP

**********************************************************************
*
* Screen driver:  A-reg contains character to print
*
**********************************************************************
	EXPORT MyCout
MyCout	PROC
	and #$00FF
	pha	;save character to print
	jsr SetScreenLoc
	ldx |CurScreenLoc
	cpx #$400
	bcs DoBank1
	lda >$400,x	;screen
	and #$FF00
	ora 1,s
	sta >$400,x
	bra Bank0Done
DoBank1
	txa
	and #$03FF
	tax
	lda >$010400,x	;screen
	and #$FF00
	ora 1,s
	sta >$010400,x
Bank0Done
	pla	
	rts
	
	ENDP
	
**********************************************************************
*
* Sets SetScreenLoc to position specified in Hpos and Vpos.  Uses MyCout.
*
****************************************************************
	EXPORT SetScreenLoc
SetScreenLoc	PROC
;
;Calculate starting position.  Lookup ypos start and then add xpos
;
	lda |Vpos
	asl a
	tax
	lda >ScreenTab,x	;get starting screen location

	sta |CurScreenLoc
	lda |Leftborder
	cmp #4	;if less than 4, then 40 column mode
	bcc FortyColumn
;
; Do 80 column stuff.
;

	lda |Hpos
	pha
	lsr a
	clc
	adc |CurScreenLoc
	sta |CurScreenLoc
	pla
	lsr a	;odd or even position?
	bcs OnBank0
	lda |CurScreenLoc
	ora #$400
	sta |CurScreenLoc
OnBank0	
	bra AllDone	
FortyColumn	lda |Hpos
	clc
	adc |CurScreenLoc
	sta |CurScreenLoc
AllDone	rts

ScreenTab	dc.w $000,$080,$100,$180,$200,$280,$300,$380
	dc.w $028,$0A8,$128,$1A8,$228,$2A8,$328,$3A8
	dc.w $050,$0D0,$150,$1D0,$250,$2D0,$350,$3D0	
	ENDP


**********************************************************************
*
* Faster writeline routine.  Uses MyCout.
*
*  Assumes pointer to p-string is in temp2
*
**********************************************************************
	EXPORT MyWriteLine
MyWriteLine	PROC

	lda [temp2]
	and #$3f	;get string length
	inc a	;offset because compare is done before print
	pha
	ldy #1
PrintLoop	lda [temp2],y
*** added 30-Sep-91 DAL -- support Ctrl-N for normal video
	and #$007f
	cmp #$000E
	bne @notCtrlN
	sep #$20
	longa off
	lda #$FF
	sta >$32
	rep #$20
	longa on
	bra Did1Character
@notCtrlN
*** end 30-Sep-91 DAL
	bit $000031	;bit 7 of inverse flag
	bmi NormalVideo
	
	and #$7F
	pha
;
;check for upper case inverse text
;
	and #$20
	bne ItsLowerCase
	pla
	and #$BF	;reset bit 6
	pha
	
ItsLowerCase
	pla
	bra DoVideo
NormalVideo
	ora #$80
DoVideo
	phy
	jsr Mycout	
	inc |hpos
	ply
Did1Character	iny
	tya
	cmp 1,s	
	bne PrintLoop
	pla	;clear stack
	rts
	ENDP

**********************************************************************
*
* Faster writeCString routine.  Uses MyCout.
*
*  Assumes pointer to p-string is in temp2
*
****************************************************************
	EXPORT MyWriteCString
MyWriteCString	PROC

	ldx |hpos
	phx
	
Translate
	ldy #0
PrintLoop
	lda [temp2],y
	and #$FF
	beq Done
	bit $000031	;bit 7 of inverse flag
	bmi NormalVideo
	
	and #$7F
	pha
;
;check for upper case inverse text
;
	and #$20
	bne ItsLowerCase
	pla
	and #$BF	;reset bit 6
	pha
	
ItsLowerCase
	pla
	bra DoVideo
NormalVideo
	ora #$80
DoVideo
	phy
	jsr Mycout	
	inc |hpos
	ply
	iny
	bra PrintLoop
	
Done	plx
	stx |hpos
	rts
;
; don't translate characters
;
	EXPORT MyWriteCStringnt
MyWriteCStringnt	
	ldx |hpos
	phx
	ldy #0
NoTLoop
	lda [temp2],y
	and #$FF
	beq Done
	phy
	jsr Mycout	
	inc |hpos
	ply
	iny
	bra NoTLoop

	ENDP

;-----------------------------------------------------------
; Write the name of the da corresponding to the number in the y
; register at the current cursor position. If the accumulator is zero
; then the item is drawn in 'normal' mode. If non-zero, the	name is
; displayed in inverse mode. Note that the routine assumes that
; cdatabptr is valid and cdatab is locked.

	EXPORT writedaname
writedaname	PROC

	cmp #$00
	bne inverse

	shortmx
	lda #$FF
;;;	sta $000032	; clear the inverse	flag
;;;	longmx
	bra cont

inverse	shortmx
	lda #$7F
cont	sta $000032	; set the inverse flag
	longmx

;;;cont
	cpy #$00
	bne cont1

	ldy #$06	; offset to control	panel string
;;;	jsr drbltin	; write the string
;;;	rts
	bra drbltin

cont1	cpy #$FF
	bne cont2

	ldy #$0A	; offset to quit string
;;;	jsr drbltin
;;;	rts
	bra drbltin

cont2	jsr DerefCDAy	;made subroutine 12-Feb-91 DAL

	lda |hpos
	pha
	jsr MyWriteline	
	pla
	sta |hpos
	lda [temp2]	;length of string
	and #$3f	;only byte long
	rts

drbltin	phy
	lda |dastrptr	; high part
	sta temp1
	lda |dastrptr+2	; lo part
	sta temp1+2
	ply
	lda [temp1],y
	sta temp2+2
	dey
	dey
	lda [temp1],y
	sta temp2
	jsr MyWriteCString
	rts

	ENDP

**********************************************************************
*
* SearchCDALetter -- move to the next CDA starting with the
*                    specified character (in A)
*
* (The current selection has already been unhilited, and the
* caller will hilite the new one when we get back.  We need
* to return a valid curcda and firstmenuitem, and if we scroll
* we need to call UpdateCDAMenu in here.)
*
**********************************************************************
SearchCDALetter	proc export
	jsr upcase
	pha	;keep target value at 1,s
	ldx |numdas
	inx
	inx
	
	ldy |curCDA
@find	jsr NextCDAy
	jsr GetCDALetterY
	cmp 1,s
	beq @gotIt
	dex
	bne @find

	pea $8008	;bad keypress, default to silence
	_SysBeep2
@exit	pla	;remove target value from stack
	rts

@gotIt	sty |curcda
	jsr GetCDANum	;Quit=NumDAs+1
*** If current item is less than first menu item, it's invalid.
	cmp |FirstMenuItem
	bcc @RecalcFirst

*** If current item is greater than or equal to first item + NumLines,
*** it's invalid.  In other words, if current item minus NumLines is
*** greater than or equal to first item, current item is invalid (signed
*** comparison).
	sec
	sbc #NumLines
	cmp |FirstMenuItem
	bmi @exit	;no problem
*
* RecalcFirst--current item is out of range, so we need to figure out
* a good place to scroll to.
*
@RecalcFirst	stz |FirstMenuItem	;anticipate scrolling to the top
	jsr GetCDANum	;Quit=NumDAs+1
	sbc #NumLines-3	;why 3?  It works.
	bcc @scrollTheThing	;scroll to the top
	beq @scrollTheThing

	sta |FirstMenuItem

	lda |curcda
	cmp #$ff	;Quit?  Force to bottom.
	bne @scrollTheThing
	dec |FirstMenuItem
	dec |FirstMenuItem

@scrollTheThing	jsr UpdateCDAMenu
	bra @exit

*
* GetCDANum--return curcda, with $FF (Quit) translated into NumDAs+1
*
	export GetCDANum
GetCDANum	lda |curcda
	cmp #$00ff	;translate $FF (Quit) into NumDAs+1
	bne @1
	lda |numdas
	inc a
@1	rts

*
* GetCDALetterY
*
* Input:  CDA number in Y ($FF=Quit, 0=Control Panel, 1..NumDAs=other)
* Output: A (uppercase)
*
GetCDALetterY	tya
	bne @NotLetterCP
	lda #$43	;C for Control Panel
	rts
@NotLetterCP	cmp #$00ff
	bne @NotLetterQuit
	lda #$51	;Q for Quit
	rts
@NotLetterQuit	phy
	jsr DerefCDAy
	ldy #1
	lda [temp2],y	;CDA names sometimes have bit 7 on!
	ply
upcase	and #$007f
	cmp #$61	;'a', high bit off
	bcc @1
	cmp #$7a+1	;'z'+1, high bit off
	bcs @1
	and #$5f
@1	rts

*
* NextCDAy -- advance Y to the next CDA
*
* (If Y = NumDAs, advance to $FF; else advance by 1, and keep
* bottom 8 bits.  Advances from Quit($FF) to Control Panel(0),
* from Control Panel(0) to 1.)
*
NextCDAy	cpy |NumDAs
	bne @1
	ldy #$fe
@1	iny
	tya
	and #$00ff
	tay
	rts

	EndP

**********************************************************************
*
* DerefCDAy -- split into a subroutine 12-Feb-91 DAL
*
* Input: Y = 1..NumDAs
* Output: temp2 = pointer to CDA header (pString, entry, shutdown)
*
**********************************************************************
DerefCDAy	proc export
	lda |cdatabptr	; copy the table pointer into
	sta temp2	; the direct page
	lda |cdatabptr+2
	sta temp2+2
	tya
	dec a
	asl a	; adjust y
	asl a
	tay
	lda [temp2],y	; get a handle to the da
	sta temp1
	iny
	iny
	lda [temp2],y
	sta temp1+2
	jsr deref	; deref the handle
	rts
	EndP

; set up cdatabptr and lock the table

	EXPORT setuptab
setuptab	PROC

	lda |CDATabHndl+2
	pha
	sta temp1+2
	lda |CDATabHndl
	pha
	sta temp1
	_HLock
	jsr deref
	lda temp2
	sta |cdatabptr
	lda temp2+2
	sta |cdatabptr+2

	rts
	ENDP

**********************************************************************
	EXPORT openda
openda	PROC

	sei
	tay
	shortmx
	lda #$FF
	sta $000032	; clear the inverse	flag
	longmx

	lda |cdatabptr	; copy the table pointer into
	sta temp2	; the direct page
	lda |cdatabptr+2
	sta temp2+2
	tya
	dec a
	asl a	; adjust y
	asl a
	tay
	lda [temp2],y	; get a handle to the da
	sta temp1
	iny
	iny
	lda [temp2],y
	sta temp1+2
	jsr deref	; deref the handle
	lda [temp2]	; get the length
	and #$00FF
	tay
	iny
	phk	; set up return address
	per ret-1
	lda [temp2],y	; get low part of open addr
	tax	; save
	iny
	iny
	lda [temp2],y	; get high part
	sep #$20	; 8-bit m
	pha	; push bank info
	rep #$30
	dex
	phx	; push open address

	cli	; enable interrupts	for the da
	rtl	; call the routine
ret	rts	; all done

	ENDP

	EXPORT deref
deref	PROC
	ldy #$02
	lda [temp1]
	sta temp2
	lda [temp1],y
	sta temp2+2
	rts
	ENDP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/desk/Desk.Equates.asm b/IIGS.601.SRC/GSToolbox/desk/Desk.Equates.asm
new file mode 100644
index 0000000..29623a8
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/desk/Desk.Equates.asm
@@ -0,0 +1 @@
+
;----------------------------------------------------
;
; Zero page equates	used carelessly by CDA calls
;
temp1	equ $00003C
temp2	equ $000040

;----------------------------------------------------
;
; Zero page equates	used by NDA calls
;
	Dsect 1
NDAListPtr	long
OffsetToThisOne	long
PtrToThisOne	long
NDAHandle	long
NDAPtr	long
NDAListHandle	long
OrigDirect	long

StdZPSize	equ OrigDirect-1

FirstInput	equ OrigDirect+2+6

;------------------------------------------------------
;
; Descrition of NDA	ID section
;
; PtrToOpen    4
; PtrToClose   4
; PtrToAction  4
; PtrToInit    4
; Period       2
; EventMask    2
; Menu Item Line
;
;


;----------------------------------------------------
;
; NDA Record
;
	DSect 0
o_NDAStatus	word
o_Open	long
o_Close	long
o_Action	long
o_Init	long
o_Period	word
o_EventMask	word
o_LastServiced	long
o_WindowPtr	long
o_Handle	long
o_UserID	word	; added 19 Feb 89

NDARecSize	DSectSize

;-----------------------------------------------------------
;
; RunQ Item record
;  Added by Konstantin Othmer Oct 2
Signature	equ $A55A
o_NextItemPtr	equ 0	;long
o_RunPeriod	equ 4	;word
o_Signature	equ 6	;word $A55A
o_RunService	equ 8	;long: last time serviced
o_RunEntry	equ 12	;code starts here


;----------------------------------------------------
;
; The nine messages	that can be passed to an
; action routine
;
DAEventCode	equ 1
DARunCode	equ 2
DACursorCode	equ 3
DAMenuCode	equ 4
DAUndoCode	equ 5
DACutCode	equ 6
DACopyCode	equ 7
DAPasteCode	equ 8
DAClearCode	equ 9
sysClickAction	equ $000A	;for 6.0 (DAL)
optionalCloseAction	equ $000B	;for 6.0 (DAL)
reOpenAction	equ $000C	;for 6.0.1 (2-Jul-92 DAL)

;-------------------------------------------------
;
; Structure of the Desk Manager's global Data
; structure.
;
	Dsect 0
o_NumEntries	word	; num NDA's installed.
o_ActiveFlag	word	; Has DeskStartup call been made
o_NotAgain	word	; is CDA menu active
o_TickAddress	long	; Where is the tick	count kept.
o_TaskQueueHeader	long	; Pointer to first item in task queue
SizeofDeskGlobals	DSectSize



;                copy Data.asm
	title 'Desk         Manager--desk/DESK.DATA'
;               copy desk/desk.data
*********************************************************
*
* DAData
*
* The first part of	this is data info required by
* new DAs.  The second part is a repeat	of the
* data structures used by the ROM.  Very little of it
* is used but it is	easier to repeat it	all than
* to cull out the unwanted.
*
*********************************************************
;----------------------------------------------------
;
; Part 1 (used by NDAs)

o_what	equ 0
o_message	equ 2
o_when	equ 6
o_where	equ 10
o_modifiers	equ 14

m_ActiveFlag	equ %0000000000000001
m_ChangeFlag	equ %0000000000000010
m_Btn1State	equ %0000000001000000
m_Btn0State	equ %0000000010000000
m_AppleKey	equ %0000000100000000
m_ShitKey	equ %0000001000000000
m_CapsLock	equ %0000010000000000
m_OptionKey	equ %0000100000000000
m_ControlKey	equ %0001000000000000
m_KeyPad	equ %0010000000000000

;----------------------------------------------------
;
; Part 2 (same as in ROM)
;

; E0 storage locations for the desk manager

bregsave	equ $E01D00
intstatus	equ $e01D02	;2
svstatereg	equ $e01D03	;1
col80sv	equ $e01D04	;1
loxclampsv	equ $e01D05	;1
loyclampsv	equ $e01D07	;2
hixclampsv	equ $e01D09	;2
hiyclampsv	equ $e01D0B	;2
outglobals	equ $e01D0D	;2
want40	equ $e01D14	;6
cursorsave	equ $e01D16	;2
newvidsv	equ $e01D18	;2
txtsv	equ $e01D1A	;1
mixsv	equ $e01D1B	;1
page2sv	equ $e01D1C	;1
hiressv	equ $e01D1D	;1
altcharsv	equ $e01D1E	;1
vid80sv	equ $e01D1F	;1
int1ay	equ $e01D20	;D
int1by	equ $e01D2D	;D
int2ay	equ $e01D39	;13
int2by	equ $e01D4C	;13
mousvblsv	equ $e01D61	;1
dirpgsv	equ $e01D63	;2
c3romsv	equ $e01D65	;1
sv4080	equ $e01D66	;1 
numints	equ $E01D67	;1
mmode	equ $e01D68	;2
mymslot	equ $e01D6A	;2
slot	equ $e01D6C	;2
EntryCount	equ $E01D6E	;2
IsPanelActive	equ $E101A5	;2
bottomline	equ $E01D70	;2
hpos	equ $E01D72	;2
vpos	equ $E01D74	;2
CurScreenLoc	equ $E01D76	;4 - current cursor position
xxxx2	equ $E01D7A	;2
numdas	equ $E01D7C	;2
leftborder	equ $E01D7E	;2
firstmenuitem	equ $E01D80	;2
idnum	equ $E01D82	;2
cdatabhndl	equ $E01D84	;4
roomleft	equ $E01D88	;2
keyinput	equ $E01D8A	;2
evntrec	equ $E01D8C	;2
message	equ $E01D8E	;4
when	equ $E01D92	;4
where	equ $E01D96	;4
mods	equ $E01D9A	;2
stacksv	equ $E01D9C	;2
oldoutglob	equ $E01D9E	;4
oldoutdev	equ $E01DA2	;6
cdatabptr	equ $E01DA8	;4
dastrptr	equ $E01DAC	;4
curcda	equ $E01DB0	;2
oldouthook	equ $E01DB2	;2
oldindev	equ $E01DB4	;6
oldinglob	equ $E01DBA	;4
RealDeskStatus	equ $E01DBE	;2   17-Sep-91 DAL
next	equ $E01DC0	;(the next free location to assign)


* REMEMBER THAT THE	LAST 20 BYTES ARE USED BY SCHEDULER


scheduler	equ $E01DED	; memory used by the scheduler
lastbyte	equ $E01DFF

topg2kludge	equ $E100A4


**********************************************************************
*
* Constant Equates for CDA
*
* Added by Konstantin Othmer
* Sept 20, 88
*
* CDA Select Code was overhauled and a scrolling CDA menu was added.
*
WindowWidth	equ 39	;CDA Menu Window is 39 chars wide
LeftBorder40	equ 3	;For 40 columns, text starts @ pos 3	
LeftBorder80	equ 23	;For 80 columns
* NOTE:  Menu border is border value - 3
Top	equ 4	;First DA name starts on line 4 [0-$17]
NumLines	equ 14	;Total # DA's Displayable - 1 (15)
MouseOn	equ $1B	;turns mouse text on
MouseOff	equ $18	;turns mouse text off
ModKeyReg	equ $00C025	;modifier key register


**********************************************************************
*
* Constant Equates for TaskQ
*
* Added by Konstantin Othmer
* Sept 29, 88
*
AddToQueue	equ $2E03
DeleteFromQueue	equ $2F03



****************************************************************
*
* DeskErrors
*
* Change History
*
* 28 August 1986   SEG
*
*     Had wrong tool set number in errors
*
* 02 Oct 87	    Steven Glass
*
* Added BadNDA for use by FixAppleMenu
*
****************************************************************

DANotFound	equ $0510
NotSysWindow	equ $0511
BadNDA	equ $0512	; added 02 Oct 87 for FixAppleMenu
deskBadSelector	equ $0520	;1-Jul-91 DAL

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/desk/NDACalls.asm b/IIGS.601.SRC/GSToolbox/desk/NDACalls.asm
new file mode 100644
index 0000000..a97c361
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/desk/NDACalls.asm
@@ -0,0 +1 @@
+	title 'Desk Manager--NDA Calls'
**********************************************************************
*
* Desk Manager  
* for the Apple II GS
*
* original CDA code by John Worthinton.
* original NDA code by Steven Glass
*
* Additions and alterations by Steven Glass and
* Konstantin Othmer
*
* 5.x work by Harry Yee and Mensch
*
* System 6.0 work by Dave Lyons
*
* This file contains
*
*	SystemEvent
*	CheckNDAStuff
*	CallCDAMenu
*	InstallNDA
*	OpenNDA
*	CloseNDA
*	CloseNDAByWinPtr
*	CloseAllNDAs2
*	DoCloseStuff
*	SystemTask
*	SystemClick
*	SystemEdit
*	FixAppleMenu2
*	GetNumNDAs
*	DeskUtils
*	FindThisWindow
*	AreWeTop
*	SendAction
*	SendOpen
*	SendClose
*	SendInit
*	StartNDACall
*	EndNDACall
*	AddToRunQ
*	RemoveFromRunQ
*	ExecuteRunItem
*	RemoveNDA
*	GetDeskAccInfo	DAL
*	CallDeskAcc	DAL
*	GetDeskGlobal	DAL
*
**********************************************************************

**********************************************************************
*			         *
*	Copyright (C) 1985-1989	         *
*	All Rights Reserved		         *
*	Apple Computer, Inc.	         *
*			         *
**********************************************************************


**********************************************************************
*
* Change History
*
* 19 Feb 89 	Steven Glass
*
* Made this work with resource manager.
*
* 15 Mar 89	Steven Glass
*
* Added FrontToAX to call front window for other routines.  Saved
* lots of calls.
*
* SystemClick selects window if grow clicked in back window
* instead of growing.
*
* 3/16/89	Mensch
* Added stilldown call to clickinDrag routine, selecting the window was
* occuring too slowly, and there was enough time to click somewhere else
* before draw was being called.
*
* 19 Apr 89	Steven Glass
*
* Fixed bug in SystemEdit where return code from DA was trashed while 
* restoring the resource manager's user id.
*
* 02 Jun 89	Steven Glass
*
* Fixed bugs relating to re-entrancy.  When the desk manager
* is re-entered the handle is locked and unlocked, leaving the first
* entry with a dangling pointer.  We now inc a counter and dec a 
* counter so that the unlock only occurs when the counter gets to zero.
*
* 28 Aug 89	Harry Yee
* Fixed bugs relating to fix made 02 Jun 89. The counter thats inc'ed
* is done in routine DerefNDAList and dec'ed in UnlockNDAList. This 
* counter gets imbalanced on occasion because the routines GetNumNDAs,
* AddtoRunQ, and RemoveFromRunQ call DerefNDAList but not UnlockNDAList.
* I now make sure both calls are made. BRC #52333. This fixes the 
* problem for ROM 01 machines but not for ROM 03. Fix must be made in
* the desk mgr patch file.
*
* 15 Feb 90	Harry Yee
* Fix bug in RemoveNDA. The ptr PtrToThisOne was being used to keep track
* of where the next NDA was to be moved to. This ptr was never updated 
* during each iteration of the loop that moved all NDAs up one position.
*
* 17-Sep-90	Dave Lyons
* Removed dependency on all.macros.
*
* 20..25-Nov-90	Dave Lyons
*
* Changed FixAppleMenu (procedure now named FixAppleMenu2) to insert
* the NDA items in alphabetical order if bit 0 of battery RAM location
* $5F is set.
* Put back all.macros.
*
* 27-Nov-90	Dave Lyons
*
* Made sorting ignore leading blanks (GetNamePointer skips past them).
*
* 30-Nov-90	Dave Lyons
*
* Changed CompareTwo to return CLC for equal names, so it doesn't hang
* if there are two identically-named NDAs.
*
* 3-Jan-90	Dave Lyons
*
* Changed SystemEvent so that Apple-w or Apple-W with a System
* window in front calls CloseNDAByWinPtr and returns TRUE, instead
* of letting the DA or the application handle the Apple-W.
*
* 19-Feb-91	Dave Lyons
*
* Changed FindThisWindow to examine the Aux Wind Info & fetch an
* NDA Structure pointer from there.  This works pretty dang well!
* Didn't have to modify the other things that call it.
*
* New call GetDeskGlobal.  For selector 0, returns the pointer of
* the last window the Desk Manager examined.  Other selectors return
* error $0520.
*
* 11-Mar-91	Dave Lyons
*
* Implementing GetDeskAccInfo and CallDeskAcc.
*
* 17-Apr-91	Dave Lyons
*
* Removed GetWKind call from SystemEvent; now I look directly at the
* window record instead, since GetWKind was changing some Window Mgr
* direct page stuff.  This was very bad if SystemEvent got called
* from within a window manager call, and it was making DragWindow
* always drag the front window!
*
* 21-Apr-91	Dave Lyons
*
* Changed SystemTask to return with no error if GS/OS is busy.
* Changed SystemClick to honor the qContent bit of a system window
* (if set, click is passed to the NDA after it is selected).
*
* 2-May-91	Dave Lyons
*
* After CloseAllNDAs closes true NDAs, now it goes through open
* windows closing any remaining system windows (by calling
* CloseNDAByWinPtr).
*
* 10-May-91	Dave Lyons
*
* Fixed CloseAllNDAs logic so that getting an error on CloseNDAByWinPtr
* on a non-NDA system window does not cause an infinite loop!  This
* was causing a hang with Video Keyboard open.
*
* 4-Jul-91	Dave Lyons
*
* Modified SystemClick so the first thing is does is offer to let the
* NDA handle the event completely, by calling CallDeskAcc with action
* code 10.
*
* 24-Jul-91	Dave Lyons
*
* FixAppleMenu calls SendRequest($051E=systemSaysFixedAppleMenu) after
* it's done.
*
* 9-Aug-91	Dave Lyons
*
* OpenNDA now preserves the current port and sets the "standard" QD
* port.
*
* 16-Sep-91	Dave Lyons
*
* FixAppleMenu now checks RealDeskStatus to see if we're started up;
* if not, it tries DeskStartUp.  If we're *still* not started up, then
* no NDA items are added to the Apple menu.
*
* 17-Sep-91	Dave Lyons
*
* Small changes to support moving calls into Tool.Setup.
*
* 11-Oct-91	Dave Lyons
*
* Added a WindStatus check in the Command-W handling.
*
* 9-Nov-91	Dave Lyons
*
* Changed default minimum-size for a system window (when the system
* calls GrowWindow) to width=78, height=34.
*
* 4-Dec-91	Dave Lyons
*
* When SystemClick handles a click on a non-front system window that has
* the fQContent bit set, after the window comes to the front SystemClick
* calls FindWindow to see what part of the window the click is really in.
* (To see the result, try clicking in the close box of a not-in-front system
* window with the fQContent bit set, like Control Panels 2.0 or an individual
* control panel window.  Now it closes.  Before, the event got passed to the
* system window's Action routine, which was not prepared to handle it.
* Typically it just called TaskMasterDA, which would track the close box, but
* nobody would close the window.)
*
* 12-Dec-91	Dave Lyons
*
* When SystemEvent sees a Command-W and a system window is in front, it
* now uses CallDeskAcc to pass action $000B, giving the NDA a chance to
* handle the key itself before forcibly calling CloseNDAbyWinPtr.
*
**********************************************************************
*
* 26-Jun-92	Dave Lyons for 6.0.1
*
* Changed SendAction to allow stack-based action rouines.  If you set
* bit 31 of the action routine pointer, we push the stuff on the stack
* so you can write in Pascal or whatever.
*
*   function MyActionProc(code: integer; data:long): integer;
*
* 2-Jul-92	Dave Lyons
*
* When you OpenNDA sees the NDA is already open (has a window pointer),
* it tries sending a CallDeskAcc(reOpenAction=$000C).  If the DA takes
* that and puts a $0001 in the word pointed to by XY, OpenNDA takes no
* further action (otherwise it calls SelectWindow).
*
**********************************************************************

	include 'all.macros'

	include '::sys.equs.asm'
	include 'Desk.Equates.asm'
	include 'e16.memory'


;=================================================
;
; Special Macros
;
;=================================================

	MACRO
&lab	movelong &src,&dest
&lab	lda &src
	sta &dest
	lda &src+2
	sta &dest+2
	mend

	title 'Desk Manager--desk/DESK.SRC'
*****************************************************************
*
* System Event
*
*         result  :	 boolean     (word)
*         mods    :	 modifiers   (long)
*         where   :	 point       (long)
*         when    :	 long
*         message :	 long
*         what   :	 event code  (word)
*   SP->
*
* Apologies to those who follow but we had to perform a little
* kludge here.  The	ChoseCDA routine in	ROM does a silly thing
* to decide how to get input.  It loads	the address of an
* input routine decrements it once and does an RTS.  This
* address unfortunatley is setup by SystemEvent.  With this
* patch, SystemEvent is not in the same	bank and does not
* know the addresses of the input routines.
*
* So what do I do?	Well the input routine not to use has its
* address in the variable KeyINput.  It	is easy to save and
* restore it without caring what it is.	 The routine that
* we need to use is	$D bytes after the routine not to use.
*
* Without knowing where it is I can guarentee that the routine
* will not change size or relative position in future ROMs.
*
* Thus I calculate the address of the routine to use by adding
* $D to the address	of the routine not to use.
*
* This routine also	has to prevent multiple entries into the
* CDA menu.  I do this by checking a flag on entry.  If this
* flag is non zero we skip the work.  If the flag is zero,
* we set the flag to non zero and bring	up the menu.  When
* we return from the menu, we set the flag back to zero.
*
* Modification History
*
* 01 Oct 87    Steven Glass
*
* Routine rewritten	to run in ROM.
*
*
* 31 Mar 88	Steven Glass
*
* This code now checks to see if the CDA menu is active before
* trying to pass events to NDAs.
*
* 12/5/89	Mensch
*
* Added code so that system event does not claim certain keyboard events. This allows
* DA's to accept certain menu key equivalents.
*
****************************************************************
	EXPORT SystemEvent
SystemEvent	PROC EXPORT


	DefineStack
OrigD	word
DAPtr	long
DAHandle	long
procstat	byte
ret1	block 3
ret2	block 3
swhat	word
smessage	long
swhen	long
swhere	long
smods	word
result	word


SizeOfMonKeyIn	equ $D

	php	; turn off interrupts because
	sei	; dahandler expects	them off

	phy	; save handle to data structure
	pha	; on stack (value from WAP table)
	phy	; save again to make room for
	pha	; pointer.
	phd	; save direct page
	tsc	; get stack pointer
	tcd	; make it direct
	
	stz Result	; assume that we will not handle this event

	lda swhat	; get the event type
	cmp #$000A	; is it a DA event
	beq ItsNDAEvent
	
;-------------------------------------------------
;
; Look at the NotAgain flag.  If it is set,
; we cannot send events to an NDA.
;
	jsr LocalDeref

	ldy #o_NotAgain
	lda [DAPtr],y
	bne CannotGoOn
	
	brl CheckNDAStuff	; No, move on.

ItsNDAEvent
;-------------------------------------------------
;
; It is a DA event.	 We will have to try to call
; the CDA menu but...
;
;
; Calling SaveScrn clobbers the important variable
; NumInts.  So I save NumInts here and restore it
; below.
;
	sep #$30
	lda >NumInts	; get num ints and
	pha
	rep #$30

;-------------------------------------------------
;
; Look at the NotAgain flag.  If it is set,
; we cannot do this	again.
;
	jsr LocalDeref

	ldy #o_NotAgain
	lda [DAPtr],y
	bne SkipThisOne

;-------------------------------------------------
;
; Set the KeyInput field so that right routine
; is called.  (Save	orig KeyInput on stack.)
;
	lda >keyinput
	pha
	clc
	adc #SizeofMonKeyIn
	sta >keyinput

;-------------------------------------------------
;
; Zero the Active flag so that we do not send
; keystrokes to NDA's on screen that cannot be
; seen by user.  (Save for later restoration.)
;
	ldy #o_ActiveFlag
	lda [DAPtr],y
	pha
	lda #0
	sta [DAPtr],y

;-------------------------------------------------
;
; Set notagain flag	to prevent multiple	entries
; into CDA menu.
;
	ldy #o_NotAgain
	lda #$8000
	sta [DAPtr],y

;-------------------------------------------------
;
; Save current shadow register and set it for
; use by CDA menu.
;
	sep #$30
	longa off
	longi off
	lda >Shadow
	pha
	and #$FE	; force text shawdow on
	sta >Shadow
	rep #$30
	longa on
	longi on

;-------------------------------------------------
;
; Display the CDA menu and run any CDAs.
;

	jsl CallCDAMenu

;-------------------------------------------------
;
; Restore the shadow register
;
	sep #$30
	longa off
	longi off
	pla
	sta >Shadow
	rep #$30
	longa on
	longi on


;-------------------------------------------------
;
; Restore pointer to global data and restore
; the ActiveFlag.  Then clear the NotAgain flag.
;
	jsr LocalDeref

	ldy #o_ActiveFlag
	pla
	sta [DAPtr],y

	ldy #o_NotAgain
	lda #0
	sta [DAPtr],y

;-------------------------------------------------
;
; Restore original value of KeyInput (from
; stack).
;
	pla
	sta >keyinput


SkipThisOne		;
	lda #$01	; nil means I handled the event
	sta result


;-----------------------------------------------------
;
; Restore the NumInts variable from above
;
	sep #$30
	pla
	sta >NumInts
	rep #$30



CannotGoOn
	pld	; restore the direct page register
	pla	; pull off the 8 bytes used
	pla	; for DAHandle and DAPtr
	pla
	pla

	plp	; restore interrupt	status

	jml oEndCall16



LocalDeref	lda [DAHandle]
	sta DAPtr
	ldy #2
	lda [DAHandle],y
	sta DAPtr+2
	rts


	ENDP



****************************************************************
*
* CheckNDAStuff
*
* We look at the event type.  For certain events I pass them
* to the Active DA.	 For others, I do not.
*
****************************************************************
	EXPORT CheckNDAStuff
CheckNDAStuff	PROC

	pld	; restore direct page
	pla	; get WAP values back in A & Y
	ply
	pla
	ply
	plp	; restore interrupt	state

	phy
	pha
	phy
	pha
	phd
	tsc
	tcd


;-------------------------------------------------
;
; Direct page equates until StartNDACall is made.
;

	DefineStack
OrigD	word
DAPtr	long
DAHandle	long
sret1	block 3
sret2	block 3
swhat	word
smessage	long
swhen	long
swhere	long
smods	word
sresult	word

*** added 3-Jan-91 DAL--Apple-W handled by the system
	lda <sWhat
	cmp #$0005	; is it auto key down?
	beq @isKey
	cmp #$0003	; is it a key down?
	bne @toDoSysEvent
@isKey	lda <sMods
	and #$0100	; see if the apple key is down...
	beq @DoSysEvent

	lda <sMessage
	and #$00ff
	cmp #'w'
	beq @DoCloseNDA
	cmp #'W'
@toDoSysEvent	bne @DoSysEvent

@DoCloseNDA

*** added 11-Oct-91 DAL -- if Window Manager not here, leave
	pea 0
	_WindStatus
	pla
	beq @DoSysEvent
*** end 11-Oct-91

	pha
	pha
	_FrontWindow
	ply
	pla
	bne @aWindow
	tyx
	bne @aWindow
	bra @DoSysEvent

@aWindow	pha
	pha
	phy
	_GetSysWFlag
	pla
	bpl @DoSysEvent

*** added 12-Dec-91 DAL -- give smart NDAs a chance to handle the fascist Command-W
	lda #0
	sta >@sysEventBlock

	pea 0	;space for CallDeskAcc result
	pea $0001	;call NDA Action routine by window pointer
	pha
	pha	;space for window pointer
	_FrontWindow
	pea $000B	;action code = handle Command-W
	pea @sysEventBlock>>16
	pea @sysEventBlock
	_CallDeskAcc
	plx	;discard
	lda >@sysEventBlock	;nonzero = NDA handled it
	bne @exitTrue
*** end 12-Dec-91

	pha
	pha
	_FrontWindow
	_CloseNDAByWinPtr

@exitTrue	lda #$ffff	;result = TRUE
	bra StoreResult

@sysEventBlock	dc.w 0	;12-Dec-91 DAL

@DoSysEvent
*** end of 3-Jan-91 DAL addition

	lda swhat
	asl a	; double the event type
	tax	; and put in x for later

	lda [DAHandle]
	sta DAPtr
	ldy #2
	lda [DAHandle],y
	sta DAPtr+2
	ldy #o_ActiveFlag
	lda [DAPtr],y
	bne WeAreActive

	lda #0
	bra NeverMind

WeAreActive	cpx #18
	bcc ValidEvent
	lda #0
	bra NeverMind

ValidEvent	jsr (EventTable,x)

NeverMind
StoreResult	sta sResult

	pld	; clean up the stack
	pla
	pla
	pla
	pla
	jml oEndCall16


EventTable	DC.W Ignore	; 0  null events
	DC.W Ignore	; 1  mouse down
	DC.W DoIfWants	; 2  mouse upt
	DC.W DoIfWantsKey	; 3  key down
	DC.W DoIfWants	; 4  undefined
	DC.W DoIfWants	; 5  auto key down
	DC.W DoUpdate	; 6  update
	DC.W Ignore	; 7  undefined
	DC.W DoActivate	; 8  activate
	DC.W Ignore	; 9  switch event
	DC.W Ignore	; 10 desk acc
	DC.W Ignore	; 11 device driver
	DC.W Ignore	; 12 Ap
	DC.W Ignore	; 13
	DC.W Ignore	; 14
	DC.W Ignore	; 15


;-------------------------------------------------
;
; Equates for direct page after the startNDACall
; is made.
; 
	DSect OrigDirect+2
rtsadr	word
xOrigD	word
xDAPtr	long
xDAHandle	long
xret1	block 3
xret2	block 3
Dwhat	word
Dmessage	long
Dwhen	long
Dwhere	long
Dmods	word
Dresult	word


Ignore	lda #0
	rts

DoIfWantsKey
; This routine tests the event to see if its a keydown that might have menu implications
; If it does this routine will deny that the event belongs to that NDA
; This will allow NDA's to handle the cut/copy/paste menu items properly
	lda DAHandle
	ldy DAHandle+2

	jsr StartNDACall
	ldy #4
	lda [NDAListHandle],y
	bpl @1
	brl reallyNo
@1
	jsr DerefNDAList

	jsr AreWeTop
	bcc No
	jsr TestMenuKey
	bcc DIW0010
	bra no	; if carry set don't handle it! 

DoIfWants	lda DAHandle
	ldy DAHandle+2

	jsr StartNDACall
	ldy #4
	lda [NDAListHandle],y
	bmi reallyNo
	jsr DerefNDAList

	jsr AreWeTop
	bcc No
DIW0010
	lda Dwhat
	asl a
	tax
	lda >MaskTable,x
	ldy #o_EventMask
	and [PtrToThisOne],y
	bne SendItOn


No	jsr UnlockNDAList
ReallyNo	jsr EndNDACall

	lda #0
	rts

;----------------------------------------------------
; This routine tests the keyboard event for menu keyness...
;
TestMenuKey
	lda Dmods
	and #$0100	; see if the apple key is down....
;	bne @Keeptrying
	clc	; say not menu key...
	rts

@KeepTrying	
; for this release , no command keys for DA's
	sec
	rts


;	lda #$FFFF	; task mask
;	ldx #0
;	pha
;	pha
;	phx	; task data
;	phx
;	pei DMods	; modifiers
;	pei Dwhere+2
;	pei Dwhere
;	pei Dwhen+2
;	pei DWhen
;	pei DMessage+2
;	pei DMessage
;	pei DWhat
;	tsc	; now get the stack pointer...
;	inc a	; bump it by 1..
;	phx	; high word of task rec ptr
;	pha	; low word of task rec ptr
;	phx
;	phx
;	_MenuKey	; call the menu key routine...
;	pla	; yank what
;	pla	; yank message
;	pla
;	pla	; yank When
;	pla
;	pla	; yank where
;	pla
;	pla	; yank modifiers
;	pla	; yank and save menu item ID
;	ply	; get the menu number
;	plx	; yank task mask
;	plx
; Now <A> contains the menu number if any...
;	cmp #0
;	beq @NDAKey
;	pha
;	pea 0	; send a false
;	phy	; the menu number
;	_HiliteMenu	; turn off menu hiliting
;	pla
;@NotNDAKey	sec	; always pass valid menu keys to the app...
;	rts
;@NDAKey
;	clc
;	rts

;----------------------------------------------------
;
; events greater than 9 are not passed on.
;
MaskTable	DC.W %0000000000000001 ; 0
	DC.W %0000000000000010 ; 1
	DC.W %0000000000000100 ; 2
	DC.W %0000000000001000 ; 3
	DC.W %0000000000010000 ; 4
	DC.W %0000000000100000 ; 5
	DC.W %0000000001000000 ; 6
	DC.W %0000000010000000 ; 7
	DC.W %0000000100000000 ; 8
	DC.W %0000001000000000 ; 9

DoActivate		; 
DoUpdate		; 
	lda DAHandle	; set a and y registers before
	ldy DAHandle+2	; calling StartNDACall
	jsr StartNDACall
	jsr DerefNDAList

	lda DMessage
	ldx DMessage+2
	jsr FindThisWindow
	bcc No


SendItOn	jsr SetResID

	tdc
	clc
	adc #DWhat
	tax
	ldy #0
	lda #DAEventCode
	jsl SendAction

	jsr RepResID


	jsr UnlockNDAList
	jsr EndNDACall

	lda #$8000
	rts


	ENDP


****************************************************************
*
* CallCDAMenu
*
* This routine is almost identical to the daHandle routine
* in rom except that we know that we did not get here from
* an interrupt so interrupt processing code was removed.
*
* Also, since this is called through system event, we know
* that there is no need for scheduling.
*
* This routine is called in full native	mode (the routine
* in rom was called	in 8 bit mode).
*
* There is no information returned by this routine.
*
* Change History
*
* 01 Oct 87	    Steven Glass
*
* This routine used	in-line storage to preserve the data
* bank.  It now uses the stack.
*
****************************************************************
CallCDAMenu	PROC EXPORT

	phb	; save dbr on stack	before anything happens

	tsc	; save stack for integer basic
	sta >stacksv

	phb	; stack is saved as	$E0/0300
	ldx #$0100
	ldy #$0300
	lda #$FF
	mvn $000000,$E00000

	plb

	lda #$1FB	; make sure there's room on stack
	tcs

	_saveall	; save everything
	_choosecda	; display the list of da's
	_restall	; unsave everything

;               phb		 ; restore stack (but save b)
;               phb
;               pla
;               sta	     >LocalBRegSave

	ldx #$0300
	ldy #$0100
	lda #$FF
	mvn $E00000,$000000

	lda >stacksv
	tcs

;               lda	     >LocalBRegSave
;               pha
;               plb
;               plb

	plb	; restore dbr saved	first thing.

	rtl

;LocalBRegSave  ds 2


	ENDP




****************************************************************
*
* InstallNDA
*
*           HandleToNDA
*
* This is the routine we use to install	a new da in the system.
* We pass a handle to this call (rather	than a pointer) because
* InstallCDA uses a	handle.  (InstallCDA used a handle by
* accident and we regret it but there is nothing we can do.)
*
* This call makes a	new entry in the NDAList for the NDA.  This
* entry contains most of the information in the NDA header.
*
* Change History
*
* 02 Oct 87	    Steven Glass
*
* Changes were made	here to use the new	structure of the 
* NDAGlobals record.
*
*
****************************************************************
InstallNDA	PROC EXPORT

	DSect OrigDirect+2
Rtl1	block 3
RTL2	block 3
UserHandle	long


	jsr StartNDACall
	jsr DerefNDAList

	lda [NDAListPtr]	; get the num entries

	inc a

	pha	; space for result
	pha
	pha	; Num entries after	adding one
	PushWord #NDARecSize ; Size of a NDArecord
	_Multiply

	lda 1,s	; add result to 2 to get new size
	clc
	adc #SizeOfDeskGlobals
	sta 1,s
	bcc SizeIsAdjusted
	lda 3,s
	inc a
	sta 3,s

SizeIsAdjusted	lda 1,s	; now calculate where new rec will
	sec
	sbc #NDARecSize
	sta OffsetToThisOne
	lda 3,s
	sbc #0
	sta OffsetToThisOne+2

	jsr UnlockNDAList

	pei NDAListHandle+2
	pei NDAListHandle
	_SetHandleSize
	bcs ERROR


	jsr DerefNDAList

;----------------------------------------------------
;
; Bump the NDA list	count.
;
	lda [NDAListPtr]
	inc a
	sta [NDAListPtr]

	lda NDAListPtr
	clc
	adc OffsetToThisOne
	sta PtrToThisOne
	lda NDAListPtr+2
	adc OffsetToThisOne+2
	sta PtrToThisOne+2

	movelong userhandle,NDAHandle
	jsr DerefNDAHandle

	lda #0	; zero the status flags (first
	sta [PtrToThisOne]	; word of NDA record)

;----------------------------------------------------
;
; Move 20 bytes of info from the da to the table.
; The NDA offsets are 2 less than the table offsets.
;
	ldy #0
Loop	lda [NDAPtr],y
	iny
	iny
	sta [PtrToThisOne],y
	cpy #20
	bcc Loop

	ldy #o_WindowPtr	; zero the window ptr
	lda #0
	sta [PtrToThisOne],y
	iny
	iny
	sta [PtrToThisOne],y

	ldy #o_Handle
	lda UserHandle
	sta [PtrToThisOne],y
	iny
	iny
	lda UserHandle+2
	sta [PtrToThisOne],y

;
; Find the UserID of the handle
;
	ldy #6		; user id is 6 bytes into handle
	lda [UserHandle],y
	pha		; save on stack while
	pei UserHandle+2		; validating the handle.
	pei UserHandle
	_CheckHandle
	bcc ValidHandle		; handle was valid

	lda #0		; handle was not valid, use 0
	sta 1,s

ValidHandle			; put the id into the record
	pla
	ldy #o_UserID
	sta [PtrToThisOne],y


	jsr UnlockNDAList

	ldx #0

GetOut	jsr EndNDACall
	jml oErrOut4


Error	tax
	bra GetOut

	ENDP



****************************************************************
*
* OpenNDA
*
*     Input     ID : word
*     Output    Refnum
*
*
* Stack looks like:
*
*      Space For Output
*      ID of NDA to	open
*      =================
*	      <- SP
*
*
* The menu manager reserves menu item IDs 1 to 255 for
* the system.  I use 1 through NumNDAs for the IDs of
* desk accessories.	 When an application wants to open
* an NDA, it just calls OpenNDA with the item ID returned
* from the menu manager.
*
* Change History
*
* 02 Oct 87	    Steven Glass
*
* Changes were made	here to use the new	structure of the 
* NDAGlobals record.
*
* In addition, I changed the error exit	and normal exit
* routines to share	code.
*
*
* 16 Jun 88 	Steven Glass
*
* If the NDA returns a NIL window pointer I do not mark it as 
* being open.  This allows DAs to be modal dialogs and 
* not be tricky when trying to close.
*
****************************************************************
OpenNDA	PROC EXPORT

	DSect OrigDirect+2
RTL1	block 3
RTL2	block 3
ID	word
Result	word

	jsr StartNDACall

	jsr DerefNDAList

	lda ID
	dec a
	cmp [NDAListPtr]
	bcc @GotIt
	brl NotFound

@GotIt	pha	; space for result
	pha	; (2 words)
	pha	; one less the id of this one
	PushWord #NDARecSize
	_Multiply

	pla	; take result of multply and
	plx	; add in the size of the globals
	clc	; at the beginning of the handle.
	adc #SizeOfDeskGlobals

	sta Result	; use this result as the ref num


;----------------------------------------------------
;
; Fix the PtrToThisOne variable using offset just
; calculated.
;
	clc
	adc NDAListPTr
	sta PtrToThisOne
	lda NDAListPtr+2
	bcc NoCarry
	inc a
NoCarry	sta PtrToThisOne+2

	lda [PtrToThisOne]	; look at status flags
	beq OpenIt	; if zero then not open yet

;----------------------------------------------------
;
; The DA is already	open, so we go and select it.
;

*** added 2-Jul-92 DAL -- But first, let it handle its own re-open if it wants to
	lda #0
	sta >@handledReOpen
	pha	;space for CallDeskAcc result
	pea $0001	;call NDA Action routine by window pointer
	ldy #o_WindowPtr+2
	lda [PtrToThisOne],y
	pha
	dey
	dey
	lda [PtrToThisOne],y
	pha
	pea $000C	;action code = handle re-open
	pea @handledReOpen>>16
	pea @handledReOpen
	_CallDeskAcc
	plx	;discard
	lda >@handledReOpen
	bne @handled
*** end 2-Jul-92

	ldy #o_WindowPtr+2
	lda [PtrToThisOne],y
	pha
	dey
	dey
	lda [PtrToThisOne],y
	pha
	_SelectWindow
@handled	brl AllDone

@handledReOpen	dc.w 0

;----------------------------------------------------
;
; The DA is not open, so we get it opened.
;
OpenIt	jsr SetResID

*** added 9-Aug-91 DAL -- save the port and set a safe one!
	pha
	pha
	_GetPort

	pha
	pha
	pea 0
	pea 4
	_GetWAP
	plx
	pla
; Look at $10A on QD Direct page to find the Handle to the First Port
	lda >$10A+2,x
	pha
	lda >$10A,x
	pha
	phd
	tsc
	tcd
	ldy #2
	lda [3],y
	tax
	lda [3]
	sta <3
	stx <5	;dereferenced into Port Pointer
	pld
	_SetPort
*** end of 9-Aug-91 DAL

	PushLong #0	; put room on stack
	jsl SendOpen	; call the open routine

	lda 1,s	; if pointer is zero, do nothing more.
	ora 3,s
	bne @1
	pla
	pla
	bra NoWindow
@1

	ldy #o_WindowPtr	; put result in windowPtr field
	pla
	sta [PtrToThisOne],y
	iny
	iny
	pla
	sta [PtrToThisOne],y

	lda #$8000	; make status word indicate this is
	sta [PtrToThisOne]	; open.

	pha	; Init the last serviced field 
	pha
	_GetTick
	ldy #o_LastServiced
	pla
	sta [PtrToThisOne],y
	iny
	iny
	pla
	sta [PtrToThisOne],y

NoWindow
*** added 9-Aug-91 DAL -- restore the port
	_SetPort
*** end of 9-Aug-91 DAL
	jsr RepResID

;----------------------------------------------------
;
; All done, so clean up.

AllDone	ldx #0
JoinExit	phx
	jsr UnlockNDAList
	plx
	jsr EndNDACall

	jml oErrOut2

NotFound	ldx #DANotFound
	bra JoinExit


	ENDP



****************************************************************
*
* CloseNDA
*
*     Input     Refnum
*
*
* Stack looks like:
*
*      Refnum
*      =================
*	      <- SP
*
*
* Change History
*
* 02 Oct 87	    Steven Glass
*
* No changes were needed here to use the new structure of the 
* NDAGlobals record.
*
*
****************************************************************
CloseNDA	PROC EXPORT

	DSect OrigDirect+2
RTL1	block 3
RTL2	block 3
RefNum	word

	jsr StartNDACall

	jsr DerefNDAList

	lda NDAListPtr
	clc
	adc RefNum
	sta PtrToThisOne
	lda NDAListPtr+2
	bcc NoCarry
	inc a
NoCarry	sta PtrToThisOne+2

	lda [PtrToThisOne]
	beq NeverMind

	jsr DoCloseStuff

NeverMind	jsr UnlockNDAList

	jsr EndNDACall

	jml oEndCall2

	ENDP


****************************************************************
*
* CloseNDAbyWinPtr
*
*     Input     WinPtr
*
*
* Stack looks like:
*
*      WinPtr
*      =================
*	      <- SP
*
*
*
* Change History
*
* 02 Oct 87	    Steven Glass
*
* No changes were needed here to use the new structure of the 
* NDAGlobals record.
*
* However, I changed the error exit and	normal exit
* routines to share	code.
*
****************************************************************
CloseNDAbyWinPtr	PROC EXPORT

	DSect OrigDirect+2
RTL1	block 3
RTL2	block 3
WinPtr	long

	jsr StartNDACall
	jsr DerefNDAList

	lda WinPtr
	ldx WinPtr+2
	jsr FindThisWindow
	bcc CannotFind

	jsr DoCloseStuff

	ldx #0
JoinExit	phx
	jsr UnlockNDAList
	plx
	jsr EndNDACall

	jml oErrOut4

CannotFind	ldx #NotSysWindow
	bra JoinExit

	ENDP


****************************************************************
*
* CloseAllNDAs
*
*     Input     none
*
*
* Change History
*
* 02 Oct 87	    Steven Glass
*
* No changes were needed here to use the new structure of the 
* NDAGlobals record.
*
* However, I changed the code to use the stack to hold a counter
* instead of storage in line.
*
****************************************************************
CloseAllNDAs2	PROC EXPORT

	jsr StartNDACall
	jsr DerefNDAList

	PushWord #0	; init counter on stack

	lda NDAListPtr
	clc
	adc #SizeOfDeskGlobals
	sta PtrToThisOne
	lda NDAListPtr+2
	bcc NoCarry1
	inc a
NoCarry1	sta PtrToThisOne+2

Loop	lda 1,s
	cmp [NDAListPtr]
	bcs AllDone

	lda [PtrToThisOne]
	beq NotOpen

	jsr DoCloseStuff

NotOpen	lda PtrToThisOne
	clc
	adc #NDARecSize
	sta PtrToThisOne
	bcc NoCarry2
	inc PtrToThisOne+2
NoCarry2
;	lda 1,s
;	inc a
;	sta 1,s
	pla	;2-May-91 DAL
	inc a	;2-May-91 DAL
	pha	;2-May-91 DAL

	bra Loop

AllDone	pla	; clean off the stack

*** added 2-May-91 DAL -- walk the window list, closing non-NDA system windows
	pea 0
	_WindStatus
	pla
	beq @noWindows

@anotherPass	pha
	pha
	_GetFirstWindow

@nextWindow	lda 2,s
	beq @noMoreWindows

	pha	;space for GetWKind result
	lda 5,s
	pha
	lda 5,s
	pha	;pushed a copy of window pointer
	_GetWKind
	pla
	bpl @advanceToNext

@isSysWindow	lda 3,s
	pha
	lda 3,s
	pha	;keep a copy of the window pointer in case Close fails
	_CloseNDAByWinPtr
	bcs @advanceToNext
	pla
	pla
	bra @anotherPass

@advanceToNext	lda 3,s
	pha
	lda 3,s
	pha	;made space for result
	_GetNextWindow
	bra @nextWindow

@noMoreWindows	pla
	pla
@noWindows
*** end of 2-May-91 DAL

	jsr UnlockNDAList
	jsr EndNDACall
	jml oEndCall0

	ENDP


****************************************************************
*
* DoCloseStuff
*
* This is a routine	that is shared by CloseNDA and
* by SystemClick for close the NDAs.
*
*
* Change History
*
* 02 Oct 87	    Steven Glass
*
* No changes required to support new data structures.
*
****************************************************************
DoCloseStuff	PROC EXPORT
	jsr SetResID

	jsl SendClose

	jsr RepResID

	ldy #o_WindowPtr
	lda #0
	sta [PtrToThisOne],y
	iny
	iny
	sta [PtrToThisOne],y

	lda #0	; the the status word
	sta [PtrToThisOne]

	rts

	ENDP



****************************************************************
*
* SystemTask
*
* This is the routine that an application must call
* periodically to keep desk accessories	alive.  The suggestion
* is that applications call this routine every time through
* the main event loop.
*
* This routine also	makes the CURSOR calls to the da that
* is the front window.
*
* Change History
*
* 02 Oct 87	    Steven Glass
*
* Changes were made	here to use the new	structure of the 
* NDAGlobals record.
*
* Additionally, the	code that reads the	tick count was changed
* do turn interrupts off (rather than turning them on) while
* the two words are	read.  (The code did a cli rather than
* an sei.)
*
****************************************************************
SystemTask	PROC EXPORT

TickCount	equ OffsetToThisOne	; zp aliasing

*** added 21-Apr-91 DAL -- make SystemTask take no action if GS/OS is busy
	tax
	lda >$e100be
	bpl @1
	clc
	lda #0
	rtl
@1	txa
*** end of 21-Apr-91 DAL

	jsr StartNDACall	;inc busy flag
	jsr DerefNDAList	;deref and lock handle to NDAListPtr

;------------------------------------------------------
;
; first send cursor	message if the front window is
; one of our windows.
;
	jsr AreWeTop	;is top window a system window?
	bcc NotOnTop

	jsr SetResID

	lda #DACursorCode
	jsl SendAction

	jsr RepResID
;------------------------------------------------------
;
; Now go through the list of open DA's and see if
; any need periodic	wake ups

NotOnTop		; 
	ldy #o_TickAddress	; put the address of the tick
	lda [NDAListPtr],y	; count on direct page.
	sta NDAPtr
	iny
	iny
	lda [NDAListPtr],y
	sta NDAPtr+2

	php	; ints off while accessing
	sei
	lda [NDAPtr]
	sta TickCount
	ldy #2
	lda [NDAPtr],y
	sta TickCount+2
	plp	; restore ints

	lda NDAListPtr	; initialize PtrToThisOne
	clc
	adc #SizeOfDeskGlobals
	sta PtrToThisOne
	lda NDAListPtr+2
	adc #0
	sta PtrToThisOne+2

	pea 0	; put counter on stack

Loop	lda 1,s	; is counter greater or equal num das
	cmp [NDAListPtr]
	bcs NDAsDone

	lda [PtrToThisOne]	; see if it is open
	beq NotThisOne


	ldy #o_Period	; if period is $FFFF then it
	lda [PtrToThisOne],y ; does not want this shit
	cmp #$FFFF
	beq NotThisOne

;------------------------------------------------------
;
; Calculate how many ticks since last service.
;
;    TickCount - LastServiced
;
; If result is negative, invert it (very unlikely since
; it takes two years of constant running for the tick
; count to wrap.
;
	lda TickCount
	sec
	ldy #o_LastServiced
	sbc [PtrToThisOne],y
	tax	; put result in x
	iny	; do rest of divide
	iny
	lda TickCount+2
	sbc [PtrToThisOne],y
	bpl IsPos	; if this is pos then it is 0
	txa	; if neg then we wrapped.
	eor #$FFFF
	inc a
	tax
IsPos	txa	; get back from x and see
	ldy #o_Period	; if this is greater than
	cmp [PtrToThisOne],y ; period
	bcc NotThisOne

;------------------------------------------------------
;
; It is greater than period so save new	value for
; last serviced.
;
	ldy #o_LastServiced	; fix last serviced	field in rec
	lda TickCount
	sta [PtrToThisOne],y
	iny
	iny
	lda TickCount+2
	sta [PtrToThisOne],y

	jsr SetResID

	lda #DARunCode	; send the run code	to NDA
	jsl SendAction

	jsr RepResID

NotThisOne	lda PtrToThisOne	; now bump pointer to current da
	clc
	adc #NDARecSize
	sta PtrToThisOne
	bcc NoCarry2
	inc PtrToThisOne+2
NoCarry2	pla	; bump counter on stack
	inc a
	pha
	bra Loop

NDAsDone	pla	;remove counter from stack

;-----------------------------------------------------------
;
;  Now check run queue
;

	ldy #o_TaskQueueHeader ;initialize PtrToThisOne for runQ
	lda [NDAListPtr],y
	sta PtrToThisOne
	iny
	iny
	lda [NDAListPtr],y
	sta PtrToThisOne+2

Loop1	lda PtrToThisOne	;check for nil address (end of list)
	bne Loop2
	lda PtrToThisOne+2
	beq AllDone
Loop2
	ldy #o_RunPeriod	; if period is $FFFF then it
	lda [PtrToThisOne],y ; does not want this shit
	cmp #$FFFF
	beq SkipThisOne

;------------------------------------------------------
;
; Calculate how many ticks since last service.
;
;    TickCount - LastServiced
;
; If result is negative, invert it (very unlikely since
; it takes two years of constant running for the tick
; count to wrap.
;
	lda TickCount
	sec
	ldy #o_RunService
	sbc [PtrToThisOne],y
	tax	; put result in x
	iny	; do rest of divide
	iny
	lda TickCount+2
	sbc [PtrToThisOne],y
	bpl IsPos1	; if this is pos then it is 0
	txa	; if neg then we wrapped.
	eor #$FFFF
	inc a
	tax
IsPos1	txa	; get back from x and see
	ldy #o_RunPeriod	; if this is greater than
	cmp [PtrToThisOne],y ; period
	bcc SkipThisOne

;------------------------------------------------------
;
; It is greater than period so save new	value for
; last serviced.
;
	ldy #o_RunService	; fix last serviced	field in rec
	lda TickCount
	sta [PtrToThisOne],y
	iny
	iny
	lda TickCount+2
	sta [PtrToThisOne],y
;Check signature
	ldy #o_Signature
	lda [PtrToThisOne],y
	cmp #Signature
	bne SkipthisOne	;signature corrupt: skip it

	jsl ExecuteRunItem

SkipthisOne	lda [PtrToThisOne]	; now bump pointer to current da
	tax
	ldy #2
	lda [PtrToThisOne],y
	sta PtrToThisOne+2
	stx PtrToThisOne
	bra Loop1
	
AllDone		
	jsr UnlockNDAList
	jsr EndNDACall

	jml oEndCall0


	ENDP



****************************************************************
*
* SystemClick
*
*              PtrToEvent
*              PtrToWindow
*              ResultFromFindWindow
*              ====================
*	                <- SP
*
* This is called when an application determines that the mouse
* went down in a system window.
*
* It is the job os SystemClick to
*
*      Drag if in DragRegion
*      TrackGoAway and close if neccessary if in GoAwayBox
*      TrackZoom and zoom if necessary if in ZoomBox
*      Grow if in GrowBox
*      Select if in	content and not on top or Pass it on
*         to the NDA
*
* Change History
*
* 02 Oct 87	    Steven Glass
*
* No changes required to support new data structures.  However
* a couple of changes were made to save	code.
*
* 15 Mar 89	Steven Glass
*
* Added check for click in grow to select window if not front.
*
* Use FrontToAX instead of inline FrontWindow calls.
*
****************************************************************
SystemClick	PROC EXPORT

	DSect OrigDirect+2
ret1	block 3	; equates for zp after StartNDACall
ret2	block 3
FindResult	word
WindowPtr	long
EventPtr	long

*** added 4-Jul-91 DAL -- call CallDeskAcc in case the NDA wants to handle the click
	pha
	phy	;save for later

	lda #0
	sta >sysClickBlock
	lda 11,s	;FindWindow result
;;;	and #$7fff
	asl a
	lsr a
	sta >sysClickBlock+2
	lda 13,s	;low word of Window Pointer
	sta >sysClickBlock+4
	lda 15,s	;high word of Window Pointer
	sta >sysClickBlock+6
	lda 17,s	;low word of event pointer
	sta >sysClickBlock+8
	lda 19,s	;high word of event pointer
	sta >sysClickBlock+10

	pea 0	;space for CallDeskAcc result
	pea $0001	;call NDA Action routine by window pointer
	lda 15+4,s
	pha
	lda 15+4,s
	pha	;pushed window pointer
	pea $000A	;action code = handle SystemClick
	pushlong #sysClickBlock  ;data value
	_CallDeskAcc
	plx	;discard
	lda >sysClickBlock
	beq sysClickCont	;nonzero result = handled it

	ply
	pla	;discard saved registers

	ldx #0	;no error
	ldy #10	;strip 10 bytes
	jml $e10184	;ToStrip

sysClickBlock	dc.w 0	;result
	dc.w 0	;FindWindow result (SysClick parm)
	dc.l 0	;Window Pointer (SysClick parm)
	dc.l 0	;Event Pointer (SysClick parm)

sysClickCont	ply
	pla
*** end of 4-Jul-91 DAL

	jsr StartNDACall
	jsr DerefNDAList

	lda FindResult	; in content
;;;	and #$7FFF	; mask off the system window bit
;;;	sec
;;;	sbc #19
;;;	asl a
*** opt 2-Jul-92 DAL
	asl a
	sec
	sbc #19+19
*** end opt
	tax
	cpx #ClickTableEnd-ClickTable
	bcs @ignore
	jsr (ClickTable,x)
@ignore
	jsr UnlockNDAList
	jsr EndNdaCall

	jml oEndCall10


ClickTable	DC.W ClickInContent	; 19
	DC.W ClickInDrag	; 20
	DC.W ClickInGrow	; 21
	DC.W ClickInGoaway	; 22
	DC.W ClickInZoom	; 23
	DC.W ClickInInfo	; 24
	DC.W ClickInVScroll	; 25
	DC.W ClickInHScroll	; 26
	DC.W ClickInFrame	; 27
ClickTableEnd

****************************************************************
*
* A click in the content area means one	of two things:
*
*      The da is the top window:   Pass	click on to NDA
*      da is not the top window:   Select the sucker.
*
****************************************************************
ClickInContent		; 
ClickInInfo		; 
ClickInVScroll		; 
ClickInHScroll		; 
ClickInFrame		; 

	import FrontToAX

;;;PassItAnyway
	jsr FrontToAX

	cmp WindowPtr
	bne SelectIt
	cpx WindowPtr+2
	bne SelectIt

;------------------------------------------------------
;
; It is top so send	the event on!
;
	jsr FindThisWindow
	bcc ImConfused

	jsr SetResID

	lda #DAEventCode
	ldx EventPtr
	ldy EventPtr+2
	jsl SendAction

	jsr RepResID

ImConfused	rts

SelectIt
;	PushLong WindowPtr
	pei <WindowPtr+2
	pei <WindowPtr
	_SelectWindow

*** added 21-Apr-91 DAL -- if the window frame qContent bit is set, pass it along to the NDA!
	pha
	pei <WindowPtr+2
	pei <WindowPtr
	_GetWFrame
	pla
	and #$0040	;bit 6 = qContent
;;;	bne PassItAnyway
*** added 4-Dec-91 DAL -- recompute what part of the window it is and make a
*** tail-recursive call to SystemClick with the new values
	beq @ignoreIt
	pei <EventPtr+2
	pei <EventPtr
	pei <WindowPtr+2
	pei <WindowPtr
	pha	;space for FindWindow
	pea 0
	tdc
	clc
	adc #WindowPtr	;new value not used (we assume it's the same)
	pha
	ldy #12	;event.where.x
	lda [<EventPtr],y
	pha	;X value for FindWindow
	dey
	dey
	lda [<EventPtr],y
	pha	;Y value for FindWindow
	_FindWindow
	_SystemClick
@ignoreIt
*** end 4-Dec-91 DAL
*** end of 21-Apr-91 DAL

	rts


ClickInDrag	ldy #o_modifiers	; if this is shift click
	lda [EventPtr],y	; then drag in current plain
	and #m_AppleKey	; else bring to top	then drag
	bne SkipSelect

;------------------------------------------------------
;
; First see if we are the top window
;
	jsr FrontToAX

	cmp WindowPtr
	bne MustSelect
	cpx WindowPtr+2
	beq SkipSelect

MustSelect	jsr SelectIt


SkipSelect
;
; 3/16/89	Mensch
; Added call to stilldown to be sure that the mouse button state hasn't
; changed during the select.

	pha	; room for result
	pea 00	; button number
	_StillDown	; test for it to still be down
	pla
	beq @Done	; if not still down, then just leave...
;
; Done with change
	PushWord #0	; default grid
	ldy #o_Where+2	; where
	lda [EventPtr],y
	pha
	dey
	dey
	lda [EventPtr],y
	pha
	PushWord #8	; grace
	PushLong #0	; bounds rect (default)
	PushLong WindowPtr
	_DragWindow
@Done
	rts

ClickInGrow	
	jsr FrontToAX
	cmp WindowPtr
	bne toSelectIt
	cpx WindowPtr+2
	bne toSelectIt

	pha	; space for result
	pha

	jsr PushMinSize	;DAL 4-Mar-91
***	PushWord #20	; min x
***	PushWord #10	; min y
	ldy #o_Where+2	; where x
	lda [EventPtr],y
	pha
	dey
	dey
	lda [EventPtr],y	; where y
	pha
	PushLong WindowPtr	; pointer to window
	_GrowWindow

	PushLong WindowPtr	; don't forget to set the final size
	_SizeWindow

	rts

toSelectIt	brl SelectIt	;added 4-Dec-91 DAL

*
* PushMinSize -- push 20,10 or the min size from the AuxWindInfo (4-Mar-91 DAL)
*
PushMinSize	pha
	pha
	pushlong WindowPtr
	_GetAuxWindInfo
	phd
	tsc
	tcd
	ldy #20	;offset to min height
	lda [3],y
	tax
	iny
	iny
	lda [3],y	;min width
	pld
	ply
	ply	;min height/width in XA
	txy	;zero?
	bne @nonzero
;;;	ldx #10	;old default height
;;;	lda #20	;old default width
	ldx #34	;min height (9-Nov-91 DAL)
	lda #78	;min width (9-Nov-91 DAL)
@nonzero	ply	;pull return address
	pha
	phx
	phy
	rts


ClickInGoAway	pha	; space for result
	ldy #o_Where+2	; where x
	lda [EventPtr],y
	pha
	dey
	dey
	lda [EventPtr],y	; where y
	pha
	PushLong WindowPtr	; pointer to window
	_TrackGoaway

	pla
	beq DontClose


	lda WindowPtr
	ldx WindowPtr+2
	jsr FindThisWindow
	bcc DontClose

	jsr DoCloseStuff

DontClose	rts



ClickInZoom	PushWord #0
	ldy #o_Where+2	; where x
	lda [EventPtr],y
	pha
	dey
	dey
	lda [EventPtr],y	; where y
	pha
	PushLong WindowPtr	; pointer to window
	_TrackZoom

	pla
	beq DontZoom

	PushLong WindowPtr
	_ZoomWindow

DontZoom	rts


	ENDP




****************************************************************
*
* SystemEdit
*
*        Space for boolean result
*        Edit Code
*        ------------------------
*	                <-SP
*
* The application calls this when the user selects cut, copy
* paste, undo or clear from the edit menu.  The
* user passes the edit code on the stack.
*
* NDA returns boolean in a register.  True if action is
* taken, false otherwise.
*
* The Edit codes are
*
*                  Action code send	Code sent to System	Edit
*                  to NDA	by application
*      Undo	  5	       1
*      Cut	  6	       2
*      Copy	  7	       3
*      Paste	  8	       4
*      Clear	  9	       5
*
* Change History
*
* 02 Oct 87	    Steven Glass
*
* No changes required to support new data structures.  However
* a couple of changes were made to save	code.
*
* 19 Apr 89	Steven Glass
*
* Fixed bug where return code from DA was trashed while 
* restoring the resource manager's user id.
*
****************************************************************
SystemEdit	PROC EXPORT


	import FrontToAX


	DSect OrigDirect+2
RTL1	block 3
RTL2	block 3
EditID	word
Result	word

	jsr StartNDACall
	jsr DerefNDAList

	stz Result	; start by assuming no!  added 19 Apr 89 SEG

	jsr FrontToAX

	jsr FindThisWindow
	bcc NotOurs

	jsr SetResID

	lda EditID	; add the edit id number to
	clc	; undo code to get right code
	adc #DAUndoCode-1
	jsl SendAction	; return result in a-reg
	sta Result	; Save it now!  added 19 Apr 89 SEG
	jsr RepResID
	
NotOurs	
	jsr UnlockNDAList
	jsr EndNDACall

	jml oEndCall2

	ENDP


DieHorribly	PROC EXPORT
	rep #$30
	lda #BadNDA
	and #$00FF
	ora #$0500
	pha
	PushLong #0
	_SysFailMgr

	EndP

****************************************************************
*
* FixAppleMenu2
*
*      input     ID	of menu to add to
*
*      output    none
*
* This is called fix apple menu but, it	can fix any menu
* whose id is passed.
*
* Change History
*
* 02 Oct 87	Steven Glass
*
* Changes were needed here to use the new structure of the 
* NDAGlobals record.
*
* Additionally, I changed the code to use the stack to hold	a counter
* instead of storage in line.
*
* 12 Oct 87	Steven Glass
*
* If an error occurs in parsing the menu data, we branch to
* die in where the process mode bits are cleared.
*
* 20-Nov-90	Dave Lyons
*
* Add sorting option.
*
****************************************************************
FixAppleMenu2	PROC EXPORT
	import DieHorribly

	DSect OrigDirect+2
RTL1	block 3
RTL2	block 3
WhichMenu	word

*** added 16-Sep-91 DAL
***
*** If the Desk Manager is not yet started, try to start it up.  This
*** can happen if the application called DeskStartUp too early, so it
*** did not start up then. -- If we *still* can't start up, then let's
*** don't add any NDA items to the Apple menu.
***
	pha
	phy	;preserve WAP

	lda >RealDeskStatus
	bne @weAreStarted

	_DeskStartUp
	lda >RealDeskStatus
	bne @weAreStarted

	ply
	pla	;discard original WAP

	ldx #0	;no error
	ldy #2	;strip 2 bytes
	jml $e10184	;ToStrip

@weAreStarted	ply	;restore WAP
	pla
*** end 16-Sep-91 DAL

	jsr StartNDACall
	jsr DerefNDAList

	jsr VerifyBRAM

	lda [NDAListPtr]
	beq @1
	jsr NDASurrogateSort	;added 20-Nov-90 DAL
@1
	PushWord #0		; init counter on stack

InstallLoop	lda 1,s
	cmp [NDAListPtr]
	bcc Continue
	brl AllDone

Continue	jsr SurrogateLookup		;DAL
	jsr PointAtNDA		;DAL
	jsr DerefThisNDAHandle	;made subroutine 20-Nov-90 DAL

;
; Now I have to find the H (or h) that appears after
; the back slash.
;
	sep #%00100000	; switch to 8 bit a	reg
	longa off

	ldy #1	; start with first char
@SlashLoop	lda [NDAPtr],y
	cmp #'\'
	beq @FoundSlash
	iny
	cpy #255
	bcc @SlashLoop

	brl DieHorribly		; die horribly if the da is bad

@FoundSlash	iny
@HLoop	lda [NDAPtr],y
	cmp #'H'
	beq FoundH
	cmp #'h'
	beq FoundH
	iny
	cpy #255
	bcc @HLoop

	brl DieHorribly		; die horribly if the DA is bad

FoundH	rep #%00100000
	longa on
	iny		; put id number into string
	lda 1,s		; right after H

	phy
	jsr surrogateLookup 
	ply

	inc a
	sta [NDAPtr],y

	PushLong NDAPtr
	PushWord #$FFFF
	PushWord WhichMenu
	_InsertMItem

	pla
	inc a
	pha
	bra InstallLoop

AllDone	pla		; clean up stack

	lda [NDAListPtr]
	beq @1
	jsr SurrogateDispose	;DAL 20-Nov-90
@1

	jsr UnlockNDAList

*** added 24-Jul-91 DAL -- call SendRequest(systemSaysFixedAppleMenu)
	pea $051E	;systemSaysFixedAppleMenu
	ldx #0
	phx	;sendHow
	phx
	phx	;target = nil
	phx
	phx	;dataIn = nil
	phx
	phx	;dataOut = nil
	_SendRequest
*** end 24-Jul-91 DAL

	jsr ENDNDACall
	jml oEndCall2

************************************************************
*
* Made this into a subroutine, 20-Nov-90 DAL
*
* Input:  PtrToThisOne
* Output: NDAPtr (points to menu line for NDA)
*
DerefThisNDAHandle	ldy #o_handle
	lda [PtrToThisOne],y
	sta NDAhandle
	iny
	iny
	lda [PtrToThisOne],y
	sta NDAHandle+2

	jsr DerefNDAHandle

	lda NDAPtr
	clc
	adc #20
	sta NDAPtr
	bcc @NoCarryToLine
	inc NDAPtr+2
@NoCarryToLine	rts


**********************************************************************
*
* PointAtNDA (20-Nov-90 DAL)
*
* Input:  A = NDA number (0..NumNDAs-1)
*
* Output:  PtrToThisOne points to our data for this DA
*
PointAtNDA	pha
	pha	;long space for _Multiply result
	pha	;input to _Multiply
	pea NDARecSize
	_Multiply

	lda NDAListPtr
	clc
	adc #SizeOfDeskGlobals
	sta PtrToThisOne
	lda NDAListPtr+2
	bcc @NoCarry1
	inc a
@NoCarry1	sta PtrToThisOne+2

	pla	;add on the result of the _Multiply
	clc
	adc PtrToThisOne
	sta PtrToThisOne
	pla
	adc PtrToThisOne+2
	sta PtrToThisOne+2

	rts


**********************************************************************
*
* NDASurrogateSort
* 20-Nov-90 DAL
*
* Allocates
*
NDASurrogateSort	pha
	pha	;space for NewHandle
	pea 0	;size high
	lda [<NDAListPtr]	;number of NDAs
	asl a	;  times 2
	pha	;size low
	pea $5001	;id
	pea $8000	;attributes
	pha
	pha
	_NewHandle
	phd
	tsc
	tcd
	ldy #2
	lda [3],y
	sta >SurrogatePtr+2
	lda [3]
	sta >SurrogatePtr
	pld
	pla
	sta >SurrogateHandle
	pla
	sta >SurrogateHandle+2

*** Initialize the surrogate array to linear list:  a[n]=n

	lda [<NDAListPtr]	;number of NDAs
	dec a	;minus one
	tax

	phd
	pushlong >SurrogatePtr
	tsc
	tcd
	txa
	asl a
	tay
	txa
@init	sta [1],y
	dey
	dey
	dec a
	bpl @init
	ply
	ply
	pld

	pha	;space for result
	pea $5f	;toolbox misc parameter
	_ReadBParam
	pla
	lsr a
	bcc @noSortDA	;bit 0 clear = don't sort

*** do the sort
	phb
	phk
	plb

	lda [<NDAListPtr]
	dec a
	beq @sorted
@OutBubble	stz sortIndex
	stz swappedFlag
@InBubble	jsr compareTwo
	bcc @ordered
	ror swappedFlag
	jsr swapTwo
@ordered	inc sortIndex
	lda sortIndex
	inc a
	cmp [<NDAListPtr]
	bcc @InBubble
	lda swappedFlag
	bne @OutBubble

@sorted	plb

@noSortDA	rts

sortIndex	dc.w 0
swappedFlag	dc.w 0


**********************************************************************
*
* compareTwo
*
* Compare the sortIndex-th NDA name with the (sortIndex+1)th NDA
* name.  Return CLC if they are already properly ordred.
*
compareTwo	phd

	lda sortIndex
	inc a
	jsr GetNamePointer	;into XA
	phx
	pha

	lda sortIndex
	jsr GetNamePointer	;into XA
	phx
	pha

	tsc
	tcd

** compare "\"-terminated string at [1] string at [5]

	sep #$30
	longa off
	longi off

	ldy #0
@compare	lda [1],y
	cmp #'\'	;moved from below 30-Nov-90 DAL (to not hang with identical names)
	beq @lesser	;moved from below 30-Nov-90 DAL
	lda [5],y
	cmp #'\'
	beq @greater
	jsr upcase
	sta @cheat+1
	lda [1],y
;;;;	cmp #'\'	;moved above 30-Nov-90 DAL
;;;;	beq @lesser	;moved above 30-Nov-90 DAL
	jsr upcase
@cheat	cmp #$77
	bne @done
	iny
	bra @compare

@lesser	clc
	bra @done
@greater	sec
@done	rep #$30
	longa on
	longi on

	ply
	ply
	ply
	ply
	pld
	rts


**********************************************************************
*
* upcase
*
	longa off
upcase	cmp #'a'
	bcc @1
	cmp #'z'+1
	bcs @1
	and #$DF
@1	rts
	longa on


**********************************************************************
*
* GetNamePointer
*
* Input:  A,  D=desk manager stuff
*
* Output: XA = pointer to NDA's PString name
*
GetNamePointer	jsr SurrogateLookup
	jsr PointAtNDA
	jsr DerefThisNDAHandle

* skip past two boring leading bytes plus any leading blanks
	ldy #1
@skipblanks	iny
	lda [<NDAPtr],y
	and #$00ff
	cmp #$0020
	beq @skipblanks
	clc
	tya
	adc NDAPtr
	ldx NDAPtr+2
	rts

**********************************************************************
*
* swapTwo
*
* Swaps the sortIndex-th and (sortIndex+1)th surrogate entries.
*
* Inputs:  SurrogatePtr, sortIndex.
*
* The bank register must be set.
* Trashes Y.
*
swapTwo	lda sortIndex
	asl a
	tay
	phd
	lda SurrogatePtr+2
	pha
	lda SurrogatePtr
	pha
	tsc
	tcd
	lda [1],y
	pha	;save first value
	iny
	iny
	lda [1],y	;get 2nd value
	dey
	dey
	sta [1],y	;put it in first location
	iny
	iny
	pla	;put old first value into 2nd location
	sta [1],y
	ply
	ply
	pld
	rts

*
* SurrogateLookup
* 20-Nov-90 DAL
*
* Input:  A = position in surrogate-sort array
* Output: A = NDA number
*
* Looks up an NDA number from a position index
*
* Trashes Y.
*
SurrogateLookup	asl a
	tay
	phd
	lda >SurrogatePtr+2
	pha
	lda >SurrogatePtr
	pha
	tsc
	tcd
	lda [1],y
	ply
	ply
	pld
	rts
*
* SurrogateDispose
* 20-Nov-90 DAL
*
SurrogateDispose	pushlong >SurrogateHandle
	_DisposeHandle
	rts

SurrogateHandle	dc.l 0
SurrogatePtr	dc.l 0


*
* VerifyBRAM -- if the toolbox misc location isn't initialized,
*               give it a nice default value.
*
* We have to do this because it defaults to 0 on ROM 1 and
* $ff on ROM 3.
*
	entry VerifyBRAM
VerifyBRAM	pha
	pea $5f
	_ReadBParam
	pla
	and #%11000000
	cmp #%10000000
	beq @okay
	pea $81	;Initialize toolbox location to default value ($81)
	pea $5F
	_WriteBParam
@okay	rts


	ENDP


****************************************************************
*
* GetNumNDAs
*
*     Input     none
*     Output    number
*
*
* Stack looks like:
*
*      Space For Output
*      =================
*	      <- SP
*
*
* Change History
*
* 02 Oct 87	    Steven Glass
*
* No changes were needed here to use the new structure of the 
* NDAGlobals record.
*
* I changed the equates to use DSect macros.
*
* 23 Mar 88	Steven Glass
*
* There was a space in definition of DSect causing equs to be
* wrong.
*
****************************************************************
GetNumNDAs	PROC EXPORT

	DSect OrigDirect+2
RTL1	block 3
RTL2	block 3
Result	word

	jsr StartNDACall
	jsr DerefNDAList

	lda [NDAListPtr]
	sta Result

	jsr UnlockNDAList
	jsr EndNDACall

	jml oEndCall0

	ENDP

****************************************************************
*
* SystemMenu
*
* This is not really a call that anyone	can use.
*
* Removed by Steven	Glass
* 02 Oct 87
*
****************************************************************



	title 'Desk Manager--desk/DESK.UTILS'
;               copy desk/desk.utils
****************************************************************
*
* Desk Utility Routines
*
* Change History
*
* 02 Oct 87	    Steven Glass
*
* Changes were made	to get these to work with new global data
* structures.  The DerefNDAHandle routine no longer
* locks the handle (we assume that it is already locked)
*
* UnlockNDAHandle was removed (it was never called).
*
* A number of start/end's were combined into one.
*
*
****************************************************************
DeskUtils	PROC EXPORT

;----------------------------------------------------
;
; DerefNDAList
;
; Locks the NDAListHandle and deref's it into
; NDAListPtr

	
	EXPORT DerefNDAList
DerefNDAList
	lda >EntryCount
	inc a
	sta >EntryCount

	ldy #4
	lda [NDAListHandle],y
	ora #$8000	;lock the handle
	sta [NDAListHandle],y
	dey
	dey
	lda [NDAListHandle],y
	sta NDAListPtr+2
	lda [NDAListHandle]
	sta NDAListPtr

	rts

;----------------------------------------------------
;
; UnlockNDAList
;
; Unlocks the NDAList handle.

	EXPORT UnlockNDAList
UnlockNDAList	lda >EntryCount
	dec a
	sta >EntryCount
	bne LeaveItLocked

	ldy #4
	lda [NDAListHandle],y
	and #$7FFF
	sta [NDAListHandle],y

LeaveItLocked	rts

;----------------------------------------------------
;
; DerefNDAHandle
;
; Derefs but does not bother locking the handle to
; the NDA.
;

	EXPORT DerefNDAHandle 
DerefNDAHandle	ldy #2
	lda [NDAHandle],y
	sta NDAPtr+2
	lda [NDAHandle]
	sta NDAPtr
	rts

	ENDP


****************************************************************
*
* FindThisWindow
*
* Inputs
*       a-reg:  low	word of window ptr to look for
*       x-reg:  high word of window ptr to look for
*
* Outputs:
*   carry:  set if window is found
*           clear if window is not found
*   DPage:
*     OffsetToThisOne & PtrToThisOne set to point into
*     global data.
*
* We search through	the NDAList for an NDA with a window ptr
* equal to the one passed in the a and x register.
*
* If we find it, we	return with the carry set and the
* variables OffsetToThisOne and PtrToThisOne set on zero page.
*
* If we do not find	it we return with carry clear.
*
* 
* Change History
*
* 02 Oct 87	    Steven Glass
*
* Changes were made	to get this to work	with new global data
* structures.
*
****************************************************************
FindThisWindow	PROC EXPORT

	phx	; store the pointer	on the stack
	pha	;

*** added 19-Feb-91 DAL
	sta >DeskGlobalWindow
	txa
	sta >DeskGlobalWindow+2
*** end of 19-Feb-91 DAL

	ldy #SizeOfDeskGlobals ; y points to first NDA record
	ldx #1	; x is count

KeepLooking	txa	; compare count to num scrap records
	cmp [NDAListPtr]
	beq LastItem
	bcs NotInTable

LastItem	tya
	clc
	adc #o_WindowPtr
	tay
	lda [NDAListPtr],y	; get the type of this scrap record
	iny	; bump y before compare
	iny
	cmp 1,s	; compare to value on stack
	bne NotThisOne
	lda [NDAListPtr],y
	cmp 3,s
	beq FoundIt

NotThisOne	tya	; bump y by size of	record
	clc	; minus what we've already bumped
	adc #NDARecSize-o_WindowPtr-2
	tay
	inx	; bump count by 1
	bra KeepLooking


FoundIt	pla	; clear pointer off	stack
	pla
	tya	; fix Offset To this one by subtracting
	sec	; off the extra we just added to get to
	sbc #o_WindowPtr+2	; window ptr.
	sta OffsetToThisOne
	stz OffsetToThisOne+2
	lda NDAListPtr
	clc
	adc OffsetToThisOne
	sta PtrToThisOne
	lda NDAListPtr+2
	adc OffsetToThisOne+2
	sta PtrToThisOne+2
	sec
	rts

*** 19-Feb-91 DAL
*** Call GetAuxWindInfo and grab a pointer to the NDA-like structure from there, if any.
*** Window pointer is still on stack.

NotInTable	plx
	pla
	phy
	phy	;space for GetAuxWindInfo result
	pha
	phx	;pushed window pointer

;	pha	;space for GetWKind result
;	pha
;	phx	;pushed second copy of window pointer
;	_GetWKind
;	pla
;	bpl @appWindow
*** 16-Apr-91 DAL -- calling GetWKind trashes some WM direct page, so look in the record directly
*** (the system-window bit is bit 31 of the window's port's pixelMap pointer!)
	phd
	pha
	phx
	tsc
	tcd
	ldy #4
	lda [1],y
	plx
	plx
	pld
	tax
	bpl @appWindow
*** end of 16-Apr-91 DAL

	_GetAuxWindInfo
	pla
	plx
	bcs @notfound

	phd
	phx
	pha
	tsc
	tcd
	ldy #24	;offset into aux wind info of NDAStruct
	lda [1],y
	tax
	iny
	iny
	lda [1],y	;NDAStruct pointer in AX
	ply
	ply
	pld

	tay
	bne @found
	txy
	beq @notfound

@found	sta <PtrToThisOne+2	;not nil--return it in PtrToThisOne
	stx <PtrToThisOne
	stz <OffsetToThisOne
	stz <OffsetToThisOne+2	;make sure nobody's using this!
	sec
	rts

@appWindow	pla
	pla
	pla
	pla
@notfound	clc
	rts

	export DeskGlobalWindow
DeskGlobalWindow	dc.l 0

	ENDP

****************************************************************
*
* AreWeTop
*
* Decides if the top window is a system	window.  If it is
* then AreWeTop returns with carry set.	 If the top window
* is not a system window, then AreWeTop	returns with carry
* clear.
*
* Additionally, if the window is a system window, I call
* find this window which sets up PtrToThisOne.  FindThisWindow
* must also succeed	for AreWeTop to return true.
*
*
* Change History
*
* 02 Oct 87	    Steven Glass
*
* No changes were needed for new data structures but
* I changed a PushLong #0 to pha pha to	save space.
*
* 15 mar 89	Steven Glass
*
* Uses FrontToAX instead of calling FrontWindow directly
* saving lots of code.
*
* Also branch directly to FindThisWindow rather than
* jsr followed by rts.  This saves more code.
*
****************************************************************
AreWeTop	PROC EXPORT


	jsr FrontToAX
	tay
	bne FindthisWindow0
	txy
	bne FindThisWindow0

NotSystem	clc
	rts

FindThisWindow0	brl FindThisWindow	;DAL

	ENDP


****************************************************************
*
FutzResIDs	proc
*
* Two routines here are used to set and restore the Resource
* Manager's current Resource App.
*
* These calls are meant to be made around calls to the
* NDA.  Example:
*
*	jsr SetResID
*	send msg to NDA
*	jsr RepResID
*
* The first call puts the current resID on the stack,
* The second call pulls it off.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
	Export SetResID
	Export RepResID
*
	longa on	; mode
	longi on
*
* Change History
*
* 01 Mar 89	Steven Glass & Harry Yee
*
* Harry scolds steve and tells him that you cannot call the 
* resource manager and expect it to work, if the resource 
* manager is not there.
*
* No disk other that 4.1 worked at all.
*
****************************************************************

SetResID	plx	; make room on the stack above
	pha	; the rts
	phx

	pea 0	; call resource status
	_ResourceStatus
	pla	; get result in a-reg
	bcs @Done	; carry set means got dispatch error
	beq @Done	; 0 means resource manager not active

	pha	; get the current res app id
	_GetCurResourceApp
	pla
	sta 3,s	; put it on the stack above the RTS

	ldy #o_UserID	; set the id of the NDA about to be called
	lda [PtrToThisOne],y
	pha
	_SetCurResourceApp

@Done	rts	; done

	


RepResID	plx	; pull off the old ID and put back
	pla
	phx	; the rts addr
	pha	; save id on this side of rts adr

	pea 0	; call status
	_ResourceStatus
	pla	; get status result
	plx	; get id off stack
	tay	; set the zero bit of processor
	bcs @Done
	beq @Done



	phx	; push id now in x-reg
	_SetCurResourceApp

@Done	rts	; done.

	ENDP


****************************************************************
*
SendOpen	PROC EXPORT
*
* This routine transfers control to the	open routine of the
* DA pointed to by PointerToThisOne.  All registers and
* relative stack locations are preserved.  Control returns
* from the DA to the Calling routine, not here.
*
*
*
* Inputs:
*	a, x and y are all passed on to the NDA
*	unchanged.
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
	ENTRY SendSomething
*
	longa on	; mode
	longi on
*
* Change History
*
* 02 Oct 87	    Steven Glass
*
* No chnages were necessary to support the new data structures.
*
* 19 Feb 89	Steven Glass
*
* All the send routines ended the same way, so they now 
* share code with SendOpen.  The new entry point is SendSomething.
*
****************************************************************


s_YReg	equ 1
s_AReg	equ 3
s_AdrForOpen	equ 5

	pha	; put 3 bytes on stack
	phb	; for addr of action routine

	pha	; save a
	phy	; save y

	ldy #o_Open+1	; get addr from table

SendSomething
	lda [PtrToThisOne],y
	sta s_AdrForOpen+1,s
	dey
	lda [PtrToThisOne],y ; rtl adds 1 so sub 1
	dec a
	sta s_AdrForOpen,s

	ply
	pla

	rtl

	ENDP


****************************************************************
*
* SendClose
*
* This routine transfers control to the	close routine of the
* DA pointed to by PointerToThisOne.  All registers and
* relative stack locations are preserved.  Control returns
* from the DA to the Calling routine, not here.
*
*
*
* Change History
*
* 02 Oct 87	    Steven Glass
*
* No chnages were necessary to support the new data structures.
*
****************************************************************
SendClose	PROC EXPORT

s_YReg	equ 1
s_AReg	equ 3
s_AdrForClose	equ 5

	pha	; put 3 bytes on stack
	phb	; for addr of action routine

	pha	; save a
	phy	; save y

	ldy #o_Close+1	; get addr from table
	bra SendSomething

	ENDP


****************************************************************
*
* SendInit
*
* This routine transfers control to the	init routine of the
* DA pointed to by PointerToThisOne.  All registers and
* relative stack locations are preserved.  Control returns
* from the DA to the Calling routine, not here.
*
*
*
* Change History
*
* 02 Oct 87	    Steven Glass
*
* No chnages were necessary to support the new data structures.
*
****************************************************************
SendInit	PROC EXPORT

s_YReg	equ 1
s_AReg	equ 3
s_AdrForInit	equ 5

	pha	; put 3 bytes on stack
	phb	; for addr of action routine

	pha	; save a
	phy	; save y

	ldy #o_Init+1	; get addr from table
	bra SendSomething

	ENDP


****************************************************************
*
* SendAction
*
* Inputs
*    All-registers
*    PtrToThisOne
*
* Output
*    Depends on routine called.
*
* This routine transfers control to the	action routine of the
* DA pointed to by PointerToThisOne.  All registers and
* relative stack locations are preserved.  Control returns
* from the DA to the Calling routine, not here.
*
*
* Change History
*
* 02 Oct 87	    Steven Glass
*
* No chnages were necessary to support the new data structures.
*
****************************************************************
SendAction	PROC EXPORT

s_YReg	equ 1
s_AReg	equ 3
s_AdrForAction	equ 5

	pha	; put 3 bytes on stack
	phb	; for addr of action routine

	pha	; save a
	phy	; save y

*** 26-Jun-92 DAL -- Add stack-based dispatch option.  Set bit 31 of action pointer.
;	ldy #o_Action+1	; get addr from table
;;	bra SendSomething
;;SendSomething	lda [PtrToThisOne],y
;	sta s_AdrForOpen+1,s
;	dey
;	lda [PtrToThisOne],y ; rtl adds 1 so sub 1
;	dec a
;	sta s_AdrForOpen,s
;
;	ply
;	pla
;
;	rtl

	ldy #o_Action+2	; get address from table
	lda [<PtrToThisOne],y
	bmi @stack_dispatch
	dey	; Y = o_Action+1
	bra SendSomething	; old way

*** A = code, YX = data value (sometimes event pointer)

@stack_dispatch	ply
	pla

*** strip 3 extra bytes off stack (we pushed them at beginning of SendAction)
	sta 2,s
	phb
	pla
	pla

	pea 0	;push result space
	pha	;action code
	phy
	phx	;data/pointer
	jsl @jump_action
	pla	;get result into A
	rtl

@jump_action	ldy #o_Action+1
	lda [<PtrToThisOne],y
	pha
	phb
	dey
	lda [<PtrToThisOne],y
	dec a
	sta 1,s
	rtl
*** end 26-Jun-92

	ENDP


****************************************************************
*
* StartNDACall
*
* Inputs:
*    A-reg:  Low word of WAP value
*    Y-reg:  High word of WAP value
*
* Outputs
*    D-reg:  set to	place on stack
*    b-reg:  set to	code bank (k)
*    a-reg, x-reg and y-reg are trashed.
*
* Side Effects:
*
*    busy flag is incremented.
*
*
* This routine sets	up direct page, adjusts the stack and
* data bank, calls IncBusyFlag in preperation for the
* start of a NDA Calls.
*
* It also leaves the WAP value (the handle to the global
* data structure) in the NDAListHandle field on direct page.
*
*
*
* Change History
*
* 02 Oct 87	    Steven Glass
*
* Changes were necessary to support the new data structures.  The
* A & Y registers contain the WAP value	for this tool.
*
****************************************************************
StartNDACall	PROC EXPORT

	plx	; get rts adr in x

	phd	; save direct reg

	phy	; this is the handle to the
	pha	; global data structure.

	tsc	; and get my zero page off stack
	sec
	sbc #StdZPSize-4
	tcs
	tcd

	phb	; save data bank
	phk	; set data bank to
	plb	; code bank


	jsl IncBusyFlg

	phx	; put rts adr back on stack
	rts

	ENDP




****************************************************************
*
* EndNDACall
*
* Inputs:
*     None
*
* Outputs:
*     None, but the	x-register is preserved!
*
* This routine restores direct page and	data bank, and adjusts
* the stack and calls DecBusyFlg to undo everything that 
* StartNDACall did.
*
*
*
* Change History
*
* 02 Oct 87	    Steven Glass
*
* Changes were made	to support the new data structures.  This 
* routine now undoes everything done by	the StartNDACall including
* the busyflag and the direct page.
*
****************************************************************
EndNDACall	PROC EXPORT

	ply	; save rts adr in y

	plb	; restore data bank
	tsc	; adjust stack
	clc
	adc #StdZPSize
	tcs

	pld	; restore direct page


	phy	; put rts back on stack

	jsl DecBusyFlg

	rts

	ENDP


**********************************************************************
*
* AddToRunQ
*
*  Written by Konstantin Othmer  Sept 29 88
*
* Adds a task to the run queue.  
*  Input:
*    HeaderPtr	LONG	;address of routine to add
*
*  Output:
*    None	
*
**********************************************************************
AddToRunQ	PROC EXPORT

PtrToHeader	equ FirstInput

 	jsr StartNDACall
	jsr DerefNDAList	;set up NDAListPtr

	pei PtrToHeader+2
	pei PtrToHeader

	lda NDAListPtr
	clc
	adc #o_TaskQueueHeader
	tax
	lda NDAListPtr+2
	adc #0
	pha
	phx

;	_AddToQueue	;this needs to be made into a macro
	ldx #AddToQueue
	jsl Dispatch1

	tax
	jsr UnlockNDAList
	jsr EndNDACall

	jml oErrOut4
	
	ENDP


**********************************************************************
*
* RemoveFromRunQ
*
*  Written by Konstantin Othmer  Sept 29 88
*
* Removes a task from the run queue.  
*  Input:
*    HeaderPtr	LONG	;address of routine to add
*
*  Output:
*    None	
*
**********************************************************************
RemoveFromRunQ	PROC EXPORT

PtrToHeader	equ FirstInput

	jsr StartNDACall
	jsr DerefNDAList	;set up NDAListPtr

	pei PtrToHeader+2
	pei PtrToHeader

	lda NDAListPtr
	clc
	adc #o_TaskQueueHeader
	tax
	lda NDAListPtr+2
	adc #0
	pha
	phx

;	_DeleteFromQueue	;this needs to be made into a macro
	ldx #DeleteFromQueue
	jsl Dispatch1

	tax
	jsr UnlockNDAList
	jsr EndNDACall

	jml oErrOut4
	
	ENDP


****************************************************************
*
* ExecuteRunItem
*
* Inputs
*    PointerToThisOne
*
* Output
*    Depends on RunQ item
*
* This routine transfers control to PointerToThisOne + RunEntry.
* All registers and relative stack locations are preserved.
* Control returns from the run item to the Calling routine, not here.
*
*
* Added by:
*
* Konstantin Othmer		02 Oct 88	    
*
****************************************************************
ExecuteRunItem	PROC EXPORT

s_YReg	equ 1
s_AReg	equ 3
s_AdrForAction	equ 5	;stack + 5 has low byte

	pha	; put 3 bytes on stack
	phb	; for addr of action routine

	pha	; save a
	phy	; save y

	lda PtrToThisOne+1	;high byte and PCBank
	sta s_AdrForAction+1,s ;high byte and PCBank

	lda #o_RunEntry	; Code starts here
	clc
	adc PtrToThisOne
	dec a
	sta s_AdrForAction,s ;low and high byte return address

	ply
	pla

	rtl	;jump to RunEntry

	ENDP

	
****************************************************************
*
* RemoveNDA
*
*           HandleToNDA
*
* This is the routine we use to remove a new da in the system.
*
* This call removes an entry in the NDAList.  This
* entry contains most of the information in the NDA header.
*
* Change History
*
* 05 Oct 88	    Added by Konstantin Othmer
*
****************************************************************
RemoveNDA	PROC EXPORT

	import DerefNDAList
	import UnlockNDAList

	DSect OrigDirect+2
Rtl1	block 3
RTL2	block 3
UserHandle	long

	jsr StartNDACall
	jsr DerefNDAList	;this locks the handle
	
;First set up PtrToThisOne to first NDA in the list

	lda #SizeofDeskGlobals
	clc
	adc NDAListPtr
	sta PtrToThisOne
	lda NDAListPtr+2
	adc #0
	sta PtrToThisOne+2
	
	lda [NDAListPtr]	;number of entries
	pha		

;Scan list to try to find UserHandle in the o_Handle field of the NDAList.

SearchLoop	pla
	beq NotFound
	dec a	;keep track of number left to search
	pha
	
	ldy #o_Handle
	lda UserHandle
	cmp [PtrToThisOne],y
	bne Search1
	iny
	iny
	lda UserHandle+2
	cmp [PtrToThisOne],y
	bne Search1
	bra FoundIt

;	
; Didn't find it yet.  Set up PtrtoThisOne for next NDA record and search again
;
Search1	lda PtrToThisOne
	clc
	adc #NDARecSize
	sta PtrToThisOne
	lda PtrToThisOne+2
	adc #0
	sta PtrToThisOne+2
	bra SearchLoop

;
;found it.  Now we need to remove it.  All the remaining NDA's move up 20 bytes
; Top word on stack contains the number of NDAs left in list (not including this one)
;
FoundIt	lda [NDAListPtr]	;number of NDAs:  decrement because
	dec a	;we remove one
	sta [NDAListPtr]
	bra enter
MoveStart
	lda PtrToThisOne	;Bump ptrtothisone so we can copy the next
	ldx PtrToThisOne+2	;NDA to its proper place in the list.
	clc
	adc #NDARecSize
	bcc @nocarry
	inx
@nocarry	sta PtrToThisOne
	stx PtrToThisOne+2

enter	pla	;number of NDA's left to search/move
	beq SizeHandle	;is this the last one?
	dec a
	pha	;This now is the number of NDA's we need to
		;move
;
;move record at PtrToThisOne+NDARecSize to PtrToThisOne
;
	ldx #NDARecSize-2	;length of record to move
	ldy #NDARecSize*2-2	;end of source
	
MoveIt	lda [PtrToThisOne],y
	phy
	phx
	ply	;transfer destination offset to y
	sta [PtrToThisOne],y
	ply	;get y back
	dey
	dey
	dex
	dex	;update offsets
	cpx #-2
	bne MoveIt
	bra MoveStart
;
; this is inserted here so we can use a short branch to get to it
NotFound	ldx #daNotFound	;Not found Error
	bra GetOut
; end of insert
	
;	
; We've removed it.  Now free up extra room w/ memory manager
;
SizeHandle	pha	; space for result
	pha
	lda [NDAListPtr]	;new number of NDAs
	pha	; New Number of entries 
	PushWord #NDARecSize ; Size of a NDArecord
	_Multiply

	lda 1,s	; This is size of all NDA Records
	clc	;now add in the header size (Deskglobals)
	adc #SizeOfDeskGlobals

SizeIsAdjusted	sta 1,s
	lda 3,s
	adc #0	
	sta 3,s	;top of stack contains new handle size

	jsr UnlockNDAList

	pei NDAListHandle+2
	pei NDAListHandle
	_SetHandleSize
	bcs ERROR

AllDone	ldx #0	;Successful removal

GetOut	jsr EndNDACall
	jml oErrOut4

Error	tax	;Handle Error
	bra GetOut

	ENDP


****************************************************************
*
* $2305 GetDeskAccInfo
*
* New call for 6.0   11-Mar-91 DAL
*
* Inputs:
*    WORD  flags
*            bit 15: 0=call NDA, 1=call CDA
*            bits 14-1: reserved
*            bit  0: 0=daReference is index, 1=NDA window pointer
*    LONG  DA Reference (index number or window pointer)
*    WORD  buffer size in bytes
*    LONG  buffer pointer
*
* In the buffer, the first word returned is the number of bytes
* of valid data that follow.
*
****************************************************************
	longa on	; mode
	longi on

GetDeskAccInfo	PROC EXPORT

	jsr StartNDACall
	jsr DerefNDAList

@buffer	equ FirstInput
@buffSize	equ @buffer+4
@daReference	equ @buffSize+2
@flags	equ @daReference+4

@temp	equ PtrToThisOne

	lda <@flags
	bmi @CDAinfo

@NDAinfo	lsr a	;bit 0: 1 for window pointer
	bcs @byWindow

	lda <@daReference
	beq @invalid0
	dec a
	cmp [<NDAListPtr]
	bcs @invalid0
	pha
	pha	;space for Multiply result
	pha	;NDA number
	pea NDARecSize
	_Multiply

	clc
	lda <NDAListPtr
	adc #SizeOfDeskGlobals
	sta <PtrToThisOne
	lda <NDAListPtr+2
	adc #0
	sta <PtrToThisOne+2

	clc
	pla
	adc <PtrToThisOne
	sta <PtrToThisOne
	pla
	adc <PtrToThisOne+2
	sta <PtrToThisOne+2
	bra @copyInfo

@invalid0	bra @invalid

@byWindow	ldx <@daReference+2
	lda <@daReference
	jsr FindThisWindow
	bcc @invalid

@copyInfo	lda <@buffSize
	cmp #4
	bcc @invalid
	cmp #NDARecSize
	bcc @thisMuch
	lda #NDARecSize
@thisMuch	sta [<@buffer]
	tay
@copyStuff	dey
	dey
	lda [<ptrToThisOne],y
	iny
	iny
	sta [<@buffer],y
	dey
	dey
	bne @copyStuff
	bra @noProblem

@CDAinfo	lda <@buffSize
	cmp #4
	bcc @buffTooSmall

	lda <@daReference
	beq @invalid
	dec a
	cmp >NumDAs
	bcs @invalid
	asl a
	asl a
	pha

	lda >CDATabHndl+2
	sta <@temp+2
	lda >CDATabHndl
	sta <@temp
	ldy #2
	lda [<@temp],y
	tax
	lda [<@temp]
	sta <@temp
	stx <@temp+2
	ply
	lda [<@temp],y
	tax
	iny
	iny
	lda [<@temp],y
	ldy #4
	sta [<@buffer],y
	dey
	dey
	txa
	sta [<@buffer],y
	lda #4
	sta [<@buffer]

@noProblem	ldx #0
	bra @exit
@buffTooSmall	ldx #$054F	;dmBufferTooSmall
	bra @exit
@invalid	ldx #$0520	;bad input value

@exit	phx
	jsr UnlockNDAList
	plx
	jsr EndNDACall
	ldy #12
	jml $e10184	;ToStrip

	EndP


****************************************************************
*
* $2405 CallDeskAcc
*
* New call for 6.0   11-Mar-91 DAL
*
* Inputs:
*   WORD  space for result
*   WORD  flags
*           bit 15: 0=call NDA, 1=call CDA
*           bit 1: call the Init routine instead of Action (NDA)
*           bit 0: 0=daReference is index, 1=window pointer
*   LONG  daReference (index or window pointer)
*   WORD  action code
*   LONG  data to pass to NDA
*
****************************************************************
	longa on	; mode
	longi on

CallDeskAcc	PROC EXPORT

	jsr StartNDACall
	jsr DerefNDAList

@data	equ FirstInput
@action	equ @data+4
@daReference	equ @action+2
@flags	equ @daReference+4
@result	equ @flags+2

@temp	equ PtrToThisOne

	stz <@result

	lda <@flags
	bpl @callNDA
	brl @callCDA

@callNDA	lsr a	;bit 0: 1 for window pointer
	bcs @byWindow

	lda <@daReference
	beq @invalid0
	dec a
	cmp [<NDAListPtr]
	bcc @ok
@invalid0	brl @invalid

@ok	pha
	pha	;space for Multiply result
	pha	;NDA number
	pea NDARecSize
	_Multiply

	clc
	lda <NDAListPtr
	adc #SizeOfDeskGlobals
	sta <PtrToThisOne
	lda <NDAListPtr+2
	adc #0
	sta <PtrToThisOne+2

	clc
	pla
	adc <PtrToThisOne
	sta <PtrToThisOne
	pla
	adc <PtrToThisOne+2
	sta <PtrToThisOne+2
	bra @callTheNDA

@byWindow	ldx <@daReference+2
	lda <@daReference
	jsr FindThisWindow
	bcc @invalid

@callTheNDA	lda <@flags
	and #2
	bne @callNDAInit

	ldy #o_EventMask
	lda [<PtrToThisOne],y
	and #$f000
	cmp #$a000
	beq @eatsAnything
	lda <@action
	cmp #10
	bcs @invalid

@eatsAnything	jsr SetResID
	lda <@action
	ldy <@data+2
	ldx <@data
	jsl SendAction	;A=action, YX=data
	sta <@result
	jsr RepResID
	bra @noProblem

@callNDAInit	ldy #o_EventMask
	lda [<PtrToThisOne],y
	and #$f000
	cmp #$a000
	beq @eatAnything2
	lda <@action
	cmp #2
	bcs @invalid

@eatAnything2	jsr SetResID
	lda <@action
	ldy <@data+2
	ldx <@data
	jsl SendInit
	sta <@result
	jsr RepResID
	bra @noProblem

@callCDA
	bra @invalid


@noProblem	ldx #0
	bra @exit
@invalid	ldx #$0520	;bad input value
@exit	phx
	jsr UnlockNDAList
	plx
	jsr EndNDACall
	ldy #12
	jml $e10184	;ToStrip

	EndP


****************************************************************
*
* $2505 GetDeskGlobal
*
* Inputs:
*    LONG space for result
*    WORD selector
*
* Selector values:
*    0 = return the current window pointer (to be used
*        when an Action proc gets called, in case the
*        same action proc is shared among multiple windows)
*
* New call for 6.0   19-Feb-91 DAL
*
****************************************************************
GetDeskGlobal	proc export
	import DeskGlobalWindow

selector	equ 7	;stack
result	equ selector+2

	ldx #$0520	;bad input value
	lda selector,s
	bne @error

	lda >DeskGlobalWindow
	sta result,s
	lda >DeskGlobalWindow+2
	sta result+2,s
	ldx #0
@error	ldy #2	;strip 2 bytes
	jml >$e10184	;ToStrip


****************************************************************
*
FrontToAX	PROC export
*
* Returns the pointer to the front window to in the A & X 
* registers.
*
*
* Inputs:
*	none
*
* Outputs:
*	a-reg
*	x-reg
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************
	pha
	pha
	_FrontWindow
	pla
	plx
	rts

	ENDP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/desk/desk.asm b/IIGS.601.SRC/GSToolbox/desk/desk.asm
new file mode 100644
index 0000000..9e7ed1a
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/desk/desk.asm
@@ -0,0 +1 @@
+	title 'Desk Manager  GS ROM 3.0'
**********************************************************************
*
* Desk Manager  
* for the Apple II GS
*
* original CDA code by John Worthinton.
* original NDA code by Steven Glass
*
* Additions and alterations by Steven Glass and
* Konstantin Othmer
*
* System 6.0 work by Dave Lyons
*
**********************************************************************

**********************************************************************
*			         *
*	Copyright (C) 1985-1991	         *
*	All Rights Reserved		         *
*	Apple Computer, Inc.	         *
*			         *
**********************************************************************


**********************************************************************
*
* Change History
*
* Version 1.0
*    John Worthington 20 May 86
*
* Version 2.0
*    Steven Glass	  Winter 86-87
*
* Version 3.0
*    Steven Glass	  Fall 87
*
* Change History
*
* 08 Oct 87    Steven Glass
*
* RAM patches included into rom source for first time.  Source
* code was re-organized.
*
* 12 Oct 87    Steven Glass
*
* The orig ROM and ROM 2 code was built	with MSB on.  The
* Desk Mgr patch was built with MSB off.  We adjust MSB
* below depending on what code is being	assembled.
*
*
* 23 Mar 88	Steven Glass
*
* There was a space in definition equs for GetNumDas.  This
* caused wrong offsets on stack to be used.
*
* 31 Mar 88	Steven Glass
*
* SystemEvent now looks at the state of CDAs before sending
* events on to NDAs.  This prevents CDAs from being locked out
* when an NDA window is active.
*
* 16 Jun 88 	Steven Glass		
*			
* OpenNDA call looks for zero coming back from NDA.
*
* 19 Jul 88	Steven Glass
*
* The DAHandler has been separated from the BootInit code.  It
* has been re-organized and uses much less code.  Finally, a bug
* where the dbr was being pulled after the processor reg (p) was
* pushed is fixed.	
*
*
* 25 Jul 88	Steven Glass
*
* Error code from InstCDA was in wrong reg.
*
*
* Sept-Oct 88	Konstantin Othmer
*
* Scrolling was added to CDA menu so more than 13 CDAs could be installed.
* A run queue was added so anyone can get a call at system task time.
* Removal of CDAs and NDAs added.
*
* 25 Oct 88	Steven Glass
*
* Major re-organization of files.  The purpose of the new orgainization
* is to allow the patch file to share code and objecs with the ROM.
*
* The new orgainzation keeps the init calls in Desk.asm and
* moves all other code into one of three files:
*
*      CDACalls.asm
*      CDAMenu.asm
*      NDACalls.asm
*
* The patch file for ROM 2.0 uses all of NDAcalls, all of CDAMenu
* and small parts of CDACalls and Desk.
*
* A fifth file Desk.Equates.asm is also used.  It contains the 
* global equates that are shared by all.
*
* 02 Jun 89	Steven Glass
*
* Zeroed variable in NDA init code.
*
* 15 Feb 90	Harry Yee
* Fix bug in RemoveNDA. The NDA was not being removed from 
* NDA list properly. Bumped version number from 3.0 to 3.1
*
* 26-Sep-90	Dave Lyons
*
* Changed macro names so it'll build.  setmode8 --> shortmx,
* setmode16 --> longmx.
*
* 19-Feb-91	Dave Lyons
*
* Adding call table entries for 6.0 calls, even though this
* call table doesn't actually get used for TS2 and TS3.
*
* 4-Mar-91	Dave Lyons
*
* Added SendRequest calls at the end of DeskStartUp and
* DeskShutDown (used by TS2).
*
* 5-Aug-91	Dave Lyons
*
* Made DeskStartUp paranoid about the environment.  Checks
* for GS/OS and for several tools being started; if things
* aren't right, DeskStartUp returns, taking no action.
*
* 16-Sep-91	Dave Lyons
*
* Made DeskStartUp and DeskShutDown maintain RealDeskStatus,
* for use by FixAppleMenu.
*
* 17-Sep-91	Dave Lyons
*
* Small changed to support moving calls into Tool.Setup.
*
* 8-Dec-91	Dave Lyons
*
* Conditioned out DeskShutDown fiddling with special bits
* in $E100BE, since this is part of the ROM 3 kludge to make
* System 4.0 run.  No point in having it lying around RAM,
* and it makes old versions of SoftSwitch not run on ROM 1
* (the versions that don't run on ROM 3, since they check
* for $E100BE to be zero instead of checking bit 15 = GS/OS
* busy).
*
*********************************************************

	eject

	include 'all.macros'
	include '::sys.equs.asm'
	include 'e16.memory'

;=================================================
;
; Special Macros
;

	MACRO
&lab	movelong &src,&dest
&lab	lda &src
	sta &dest
	lda &src+2
	sta &dest+2
	mend


DAVersionNumber	equ $0301

	include 'Desk.Equates.asm'

	title 'Desk Manager--CALL TABLE'
****************************************************************
*
* DACallTable
*
* 
*
****************************************************************

	EXPORT DACallTable
DACallTable	PROC

TheBeginning
	DC.L (TheEnd-TheBeginning)/4 ; num calls + 1
	DC.L DABootInit-1	; 1
	DC.L DAStartup-1	; 2
	DC.L DAShutdown-1	; 3
	DC.L DAVersion-1	; 4
	DC.L DAReset-1	; 5
	DC.L DAStatus-1	; 6
	DC.L oEndCall0-1	; 7     reserved
	DC.L oEndCall0-1	; 8     reserved

	DC.L SaveScreen-1	; 9
	DC.L RestScreen-1	; A

	EXPORT SaveAllTableEntry
SaveAllTableEntry		;       
	DC.L SaveAll-1	; B
	DC.L RestAll-1	; C
	DC.L oEndCall0-1	; D
	DC.L InstallNDA-1	; E
	DC.L instcda-1	; F
	DC.L oEndCall0-1	; 10
	DC.L choosecda-1	; 11
	DC.L oEndCall0-1	; 12
	DC.L setdastrptr-1	; 13
	DC.L getdastrptr-1	; 14
	DC.L OpenNDA-1	; 15
	DC.L CloseNDA-1	; 16
	DC.L SystemClick-1	; 17
	DC.L SystemEdit-1	; 18
	DC.L SystemTask-1	; 19
	DC.L SystemEvent-1	; 1A
	DC.L GetNumNDAs-1	; 1B
	DC.L CloseNDAbyWinPtr-1 ; 1C
	DC.L CloseAllNDAs-1	; 1D
	DC.L FixAppleMenu2-1 ; 1E
	DC.L AddToRunQ-1	; 1F
	DC.L RemoveFromRunQ-1 ;20
	DC.L RemoveCDA-1	;21
	DC.L RemoveNDA-1	;22

	dc.l GetIndDAInfo	;2305 added 19-Feb-91 DAL
	dc.l CallDeskAcc	;2405 added 19-Feb-91 DAL
	dc.l GetDeskGlobal	;2505 added 19-Feb-91 DAL

TheEnd
	ENDP




****************************************************************
*
DABootInit	PROC
*
* This is the routine that inits the desk manager
* at tool startup time.  This routine is only called
* by the Tool Locator.
*
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
	import DAHandler
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* Change History
*
* Original Version	John Worthington
*
* Second ROM	John Worthington
*
*   ROM DAs are re-installed if desired
*  
*
* Third ROM	Steven Glass
*
*   Support for NDA's (originally in RAM) added.
*
*
* 3 Oct 88	Konstantin Othmer
*
*  Added initialization for run queue at system task time.
*
****************************************************************

	jsr DoCDAInit
	jsr DoNDAInit
	jsr SetPanelActive

	jml oEndCall0


	ENDP


****************************************************************
*
DoNDAInit	PROC EXPORT
*
* This routine contains the code that inits the NDA system.
* It used to be part of the BootInit call but I've separated
* it to make it more useable with the ROM patch for version
* 2.0 of the ROM>
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* Change History
*
* 02 Jun 89	Steven Glass
*
* Zeroed the EntryCounter
*
****************************************************************


    IF RAMVersion=0 THEN


;-----------------------------------------------------------
;
; Init this counter.
;
	lda #0
	sta >EntryCount


;-------------------------------------------------
;
; Init stuff for NDAs.  Note that NDAListHandle
; on direct page is	not valid yet.
;
	jsr StartNDACall	; get some direct page spack off stack


;-------------------------------------------------
;
; Get handle for desk manager globals and put 
; result on direct page.
;

	lda #SizeOfDeskGlobals
	ldx #attrNoSpec
	jsr DAGetMem
	bcc @1
	brl DieHorribly
@1
	sta NDAListHandle
	stx NDAListHandle+2

;-------------------------------------------------
;
; Also put copy of handle in WAP for desk mgr
;

	PushWord #$0000	; system
	PushWord #5	; tool 5
	pei NDAListHandle+2	; handle to globals
	pei NDAListHandle
	_SetWAP

;-------------------------------------------------
;
; Deref and lock handle so can init some of the
; fields in memory.
;

	jsr DerefNDAList

	lda #0	; clear the a-reg

	ldy #o_NumEntries	; no ndas are installed yet
	sta [NDAListPtr],y

	ldy #o_ActiveFlag	; DeskStartup has not been called
	sta [NDAListPtr],y

	ldy #o_NotAgain	; CDA menu is not active.
	sta [NDAListPtr],y

	ldy #o_TaskQueueHeader ;beginning of run queue link list
	sta [NDAListPtr],y	; make it a null pointer
	iny
	iny
	sta [NDAListPtr],y

	pha	; get address of tick count.
	pha
	PushWord #5
	_GetAddr
	ldy #o_TickAddress
	pla
	sta [NDAListPtr],y
	iny
	iny
	pla
	sta [NDAListPtr],y


;-------------------------------------------------
;
; Unlock the handle	and give back the direct
; page.
;

	jsr UnlockNDAList

	jsr EndNDACall

    ELSE
	phd
	lda #0
	tcd

	pushlong #pg2kludge	; a kludge to install foreign kludges
	pushlong #dastr
	_SetDAStrPtr

	pld

    ENDIF

	RTS

	ENDP




****************************************************************
*
DoCDAInit	PROC EXPORT
*
* This routine contains the code that inits the CDA system.
* It used to be part of the BootInit call but I've separated
* it to make it more useable with the ROM patch for version
* 2.0 of the ROM.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************



;-------------------------------------------------
;
; Start setting up CDA stuff.  (Do this	setup 
; with interrupts off.)
;
	php	; save processor
	sei	; turn interrupts off

	PushWord #$12	; install the address of the cda int
	PushLong #daHandler	; handler.
	_setvector

	lda #$FF	; init the NumInts global.
	sta >numints	; note that this trashes the next byte too!!!!!!!

; The kbm data interrupt is now initialzed by Fern...

	lda #monkeyin	; init the KeyInput	global.
	sta >keyinput


    IF RAMVersion=0 THEN


	lda #$00	; init the NumDAs global
	sta >numdas

	lda #$08	; init the RoomLeft	global
	sta >roomleft

	pha	; get id for the CDATabHndl
	pushword #$5000	; it will have a type of $5
	_getnewid
	pla
	sta >idnum


	lda #$0020	; Get memory for CDATabHndl 
	ldx #attrNoSpec	; (only $20 bytes)
	jsr DAGetMem
	bcc GotIt
	brl DieHorribly
GotIt	sta >cdatabhndl
	txa
	sta >cdatabhndl+2

	pushlong #pg2kludge	; install pg2kludge	as a user accessory
	_InstallCDA

	pushlong #pg2kludge	; a kludge to install foreign kludges
	pushlong #dastr
	_SetDAStrPtr

	jsl $FFC06E	; install the rom-based da's

    ENDIF


	plp	; restore interrupt	state.


	rts

	ENDP



****************************************************************
*
DAGetMem	PROC EXPORT
*
* Routine to get memory with the desk manager's
* user id.  (This used to be part of the boot init code.
* It is now separate to make building the patch easier.)
*
* Inputs:
*    a-reg  Size
*    x-reg  Attributes
*
* Outputs:
*
*    a-reg  low word of handle or error	code
*    x-reg  high word of handle
*    carry  clear if no error, set if error.
*
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


	pha	; space for result handle
	pha
	PushWord #0	; high word of size
	pha	; low word of size
	PushWord >IDNum
	phx	; attributes
	pha	; loc info (not used)
	pha
	_NewHandle
	bcs GetMemOops
	pla
	plx
	rts

GetMemOops	plx
	plx
	rts



	ENDP






*********************************************************
*
* DAStartup
*
* This call activates NDA features for applications
* that want them.
*
* Change History
*
* 09 Oct 87    Steven Glass
*
*    Original ROM and ROM 2 did not do anything
*    with this call	and it was always patched.
*
*
*********************************************************
	EXPORT DAStartup
DAStartup	PROC

*** added 5-Aug-91 DAL -- if proper environment is not set up, do nothing
	pha
	phy

	lda >$e100bc	;OS_Kind
	and #$00ff
	dec a
	bne @error	;must be $01=GS/OS

	ldx #@neededToolsEnd-@neededTools
@checkOneTool	dex
	bmi @toolsAreHere
	phx
	lda >@neededTools,x
	and #$00FF
	ora #$0600	;compute xxxStatus function code
	tax
	pea 0
	jsl $e10000	;make the call
	pla
	plx
	tay
	bne @checkOneTool	;nonzero status --> go back for more

@error	ply
	pla
	bra @outtaHere

@neededTools	dc.b $0E	;window
	dc.b $0F	;menu
	dc.b $10	;control
	dc.b $14	;line edit
	dc.b $15	;dialog
;;;	dc.b $16	;scrap (omitted...I'm feeling generous)
@neededToolsEnd

@toolsAreHere	ply
	pla
*** end 5-Aug-91 DAL

	jsr StartNDACall
	jsr DerefNDAList

	ldy #o_ActiveFlag
	lda #$8000
	sta [NDAListPtr],y

	lda #$ffff	;16-Sep-91 DAL
	sta >RealDeskStatus	;16-Sep-91 DAL

	jsr InitAll	; wake everyone up (a-reg is input here)

	jsr UnlockNDAList
	jsr EndNDACall

*** added 4-Mar-91 DAL
	pea $0502	;request code
	lda #0
	pha	;how = everybody
	pha
	pha	;target = nil
	pha
	pha	;dataIn = nil
	pha
	pha	;dataOut = nil
	_SendRequest

@outtaHere	jml oEndCall0


	ENDP



*********************************************************
*
* DAShutdown
*
* This call deactivates NDA features for applications
* that want them.  In addition, it causes all installed
* DA's (New and Classic) to get a shutdown call.
*
* Change History
*
* 09 Oct 87    Steven Glass
*
*    Original ROM and ROM 2 did not do anything
*    with this call	and it was always patched.
*
* XX Oct 88	Steven Glass
*
* Horrible hack added.
*
* 07 Dec 88	Steven Glass
*
* Added setting of PatchLoadedBit.
*********************************************************
DAShutdown	PROC EXPORT

*** This "Kidding" stuff isn't needed in RAM!  8-Dec-91 DAL
;;; (I should put a cool conditional-assembly symbol in the
;;; patch makefiles in case somebody does a new ROM, but that
;;; seems unlikely, so I'll be lazy.)
	if 0 then
;-----------------------------------------------------------
;
; This is part of our horrible hack to keep GS/OS from
; system disk 4.0 running under the 3.0 rom.
;
; If P8 is active now, we must clear the bit that
; tells YouveGotToBeKidding not to patch the os.
;
; Also always set the patch loaded bit so that 
; the tool locator can know when the patch has
; finished loading
;

	pha	; save the a-reg

	lda >OS_Flag	; set the patch loaded bit: there is no way we can
	ora #PatchLoadedBit	; get here without loading the patch first.
	sta >OS_Flag

	lda >OS_Kind	; is P8 active now
	and #$00FF
	bne NeverMind	; no, so skip the rest

	lda >OS_Flag	; look at the OS_flag. If bit 1 is set
	and #BadOSBit	; then this is a situation that we do our silly stuff
	beq NeverMind	; If not, we skip the rest

	lda >OS_Flag	; Clear bit 0 so that the patch routine will try again.
	and #$FFFF-SpecialBit
	sta >OS_Flag


NeverMind
	pla	; restore the a-reg

	endif
*** end 8-Dec-91

;-----------------------------------------------------------



;-------------------------------------------------
;
; First shutdown all the NDAs and clear	the
; active flag in the global data structure.
;

	phy	; save WAP value on	stack
	pha

	_CloseAllNDAs	; close all open NDAs

	pla
	ply
	jsr StartNDACall
	jsr DerefNDAList

	ldy #o_ActiveFlag
	lda #$0000
	sta [NDAListPtr],y
	sta >RealDeskStatus	;16-Sep-91 DAL
	jsr InitAll	; shut all NDAs down (a-reg is intput here)

	jsr UnlockNDAList


;-----------------------------------------------------
;
; Now comes the hard work of sending the shutdown
; message to the classic desk accessories.
;
;
; Look at the count	of das.
; Strange Notes:
;
;    This number is	not what it seems.	The control panel
;    is not counted	in this value nor is the handle to the
;    control panel in the list.
;
;    If the value is 1, the only CDA installed is the Alt
;    display mode.
;
;    So the number here is the number of CDAs other than the
;    control panel that have been installed.

 	lda >numdas	; Get the number and dec by one
	dec a	;
	bmi SkipThis	; If neg, something	weird has
;		; happened and we quit
;		; (its Weird cause Alt disp mode
;		; is supposed to be	there.)


	pha	; put this on stack	as counter

	lda >cdatabhndl	; get the handle to	the list
	sta NDAListHandle
	lda >cdatabhndl+2
	sta NDAListHandle+2

	jsr DerefNDAList

	lda NDAListPtr
	sta PtrToThisOne
	lda NDAListPtr+2
	sta PtrToThisOne+2

Loop		; ; shut them down one at a time.
	lda [PtrToThisOne]	; get the handle to	the CDA out of table
	sta NDAHandle
	ldy #2
	lda [PtrToThisOne],y
	sta NDAHandle+2
	jsr DerefNDAHandle

	lda NDAPtr+1	; look at the address of the da
	cmp #$F000	; is it in ROM?
	bcs SkipThisCall	; don't make call to rom DA's

	jsl CallCDA	; call this thing

SkipThisCall		; 
	lda PtrToThisOne
	clc
	adc #4
	sta PtrToThisOne
	bcc NoBump2
	inc PtrToThisOne+2
NoBump2		 

	lda 1,s	; dec the counter
	dec a
	sta 1,s
	bpl Loop	; if still positive, there is more

	pla	; pull counter off stack

	jsr UnlockNDAList	; unlock the CDA list


SkipThis	jsr EndNDACall

*** added 4-Mar-91 DAL
	pea $0503	;request code for DeskShutDown
	lda #0
	pha	;how = everybody
	pha
	pha	;target = nil
	pha
	pha	;dataIn = nil
	pha
	pha	;dataOut = nil
	_SendRequest

	jml oEndCall0

;;;	export RealDeskStatus
;;;RealDeskStatus	dc.w 0

;-----------------------------------------------------
;
; local routine to actually call the CDA
;
CallCDA		; 
	lda [NDAPtr]	; get length byte
	and #$00FF	; mask off first char
	clc	; add 1 for length byte and 4
	adc #6	; for main entry point to find
;		; and 1 for high 2 bytes
	tay	; shutdown entry point

	lda [NDAPtr],y
	pha
	dey
	lda [NDAPtr],y
	phb
	dec a
	sta 1,s
	rtl


	ENDP



****************************************************************
*
* InitAll
*
* This routine sends the word passed in	the a register to
* each of the NDAs in the list.
*
****************************************************************
	EXPORT InitAll
InitAll	PROC
	DefineStack
Counter	word
MsgToSend	word

	pha	; put msg to send on stack
	PushWord #0	; init counter on stack

	lda NDAListPtr
	clc
	adc #SizeofDeskGlobals
	sta PtrToThisOne
	lda NDAListPtr+2
	bcc NoCarry
	inc a
NoCarry	sta PtrToThisOne+2


InitLoop		; ; keep initing until done
	lda Counter,s
	cmp [NDAListPtr]
	bcs AllDone

; Stack Equates are off by 2 after this call.
	jsr SetResID

	lda MsgToSend+2,s
	jsl SendInit

	jsr RepResID
; Stack equates are now correct.

	lda Counter,s	; bump the counter
	inc a
	sta Counter,s

	lda PtrToThisOne	; bump the PtrToThisOne
	clc
	adc #NDARecSize
	sta PtrToThisOne
	bcc NoCarry2
	inc PtrToThisOne+2
NoCarry2	bra InitLoop	; do it again


AllDone		; 
	pla	; clear the stack
	pla
	rts

	ENDP



*********************************************************
*
*********************************************************
	EXPORT DAVersion
DAVersion	PROC

ret1	equ 1
ret2	equ ret1+3
result	equ ret2+3

	lda #DAVersionNumber
	sta result,s

	jml oEndCall0

	ENDP


*********************************************************
*
*********************************************************
	EXPORT DAReset
DAReset	PROC

	shortmx
	lda #$FF
	sta >numints
	longmx
	jml oEndCall0

	ENDP


*********************************************************
*
* DAStatus
*
* This routine returns whether or not the DestStartup
* call has been made.  
*
* Change History
*
* 09 Oct 87        Steven Glass
*
*    Original ROM and ROM 2 always returned true but 
*    were also always patched out.
*
*
*
*********************************************************
	EXPORT DAStatus
DAStatus	PROC
Result	equ FirstInput

	jsr StartNDACall
	jsr DerefNDAList

	ldy #o_ActiveFlag
	lda [NDAListPtr],y
	sta Result

	jsr UnlockNDAList
	jsr EndNDACall

	jml oEndCall0

	ENDP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/desk/desk.loader.asm b/IIGS.601.SRC/GSToolbox/desk/desk.loader.asm
new file mode 100644
index 0000000..730f60b
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/desk/desk.loader.asm
@@ -0,0 +1 @@
+	include 'all.macros'
	include 'e16.locator'


MMLoader	PROC

True	equ $FFFF
False	equ 0

MyHandle	equ 0
MyPointer	equ 4
Ptr	equ 8


TheUserID	equ $B005

	phk
	plb



	lda >$C061
	and #$0080
	beq @1
	brk $15
@1



;-----------------------------------------------------------
;
; Unload last patch
;

	pha	; space for result
	PushWord #TheUserID
	PushWord #0
	_UserShutdown

	pla


;-----------------------------------------------------------
;
; Load this one.
;



	pha	; space for dir page stack size
	pha	; space for addr of	dir page stack seg
	pha	; space for starting addr
	pha
	pha	; space for user id
	PushWord #TheUserID	; user id
	PushLong #TheName	; ptr to path name
	PushWord #True
	_InitialLoad
	bcs Die

	pla	; ignore userid
	pla	; put starting address
	sta TableAddress
	pla
	sta TableAddress+2
	pla	; ignore dir page
	pla	; ignore dir page size


	lda >$C062
	and #$0080
	beq @NoBreak
	brk 17
@NoBreak



	PushWord #1	; system call
	PushWord #5	; install the patch
	PushLong TableAddress
	_SetTSPtr

	_SetDefaultTPT

	_Quit QuitParams

	rtl


QuitParams	DC.L 0
	DC.W 0


TheName	str '1/DESK.IN.RAM'  ;'*/SYSTEM/SYSTEM.SETUP/DESK.IN.RAM'

TableAddress	DS.B 4





Die		; 
	pha
	PushLong #ErrorString
	_SysFailMgr

ErrorString	str 'Could not load.  Error was $'

	ENDP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/desk/makefile b/IIGS.601.SRC/GSToolbox/desk/makefile
new file mode 100644
index 0000000..45b6317
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/desk/makefile
@@ -0,0 +1 @@
+desk.in.ram		Ä	desk.in.ram.asm.obj				¶
					cdacalls.asm.obj				¶
					cdamenu.asm.obj					¶
					ndacalls.asm.obj				
	Linkiigs 		desk.in.ram.asm.obj  			¶
					cdacalls.asm.obj				¶
					cdamenu.asm.obj					¶
					ndacalls.asm.obj				¶
					::qd:qdalone:strip.asm.obj 		¶
	-o desk.in.ram  -t $BC -at $0000


desk.in.ram.asm.obj		Ä		 desk.asm	desk.equates.asm
	Asmiigs	   desk.asm -d RAMVersion=1 -o desk.in.ram.asm.obj -unsafe -print nowarn
cdacalls.asm.obj		Ä	 	cdacalls.asm	desk.equates.asm
	Asmiigs	   cdacalls.asm		 -unsafe -print nowarn
cdamenu.asm.obj		Ä	 	cdamenu.asm	desk.equates.asm
	Asmiigs	   cdamenu.asm		 -unsafe -print nowarn
ndacalls.asm.obj		Ä	 	ndacalls.asm	desk.equates.asm
	Asmiigs	   ndacalls.asm		 -unsafe -print nowarn



desk.loader		Ä   makefile desk.loader.asm.obj
	linkiigs desk.loader.asm.obj		¶
	-o desk.loader -t $B3 -at $0000
	
desk.loader.asm.obj 	Ä	makefile desk.loader.asm
	asmiigs desk.loader.asm
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/sys.equs.asm b/IIGS.601.SRC/GSToolbox/sys.equs.asm
new file mode 100644
index 0000000..bbfcd67
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/sys.equs.asm
@@ -0,0 +1 @@
+	print push
	print off
****************************************************************
*
*              SYSEQUS
*
*
*  Bank FF Equates
*  Bank E1 Equates
*
*
*  Original Equates	by Fern Bachman
*  Modified by Steven E. Glass, February 5, 1985
*  Modified by Joe Bo, 1987-1988
*  Minor mods Dave Lyons 25-Sep-90
*  Fixed a comment 26-Jan-93 DAL
*
****************************************************************


****************************************************************
*
*        Copyright (C) 1985-1987,1993
*        Apple Computer, Inc.
*        All Rights	Reserved
*
****************************************************************

	Blanks off


;                copy equates1

F8VERSION	EQU $06	; F8 ROM //e ID byte


LOC0	EQU $00	;vector for autostart from disk 
LOC1	EQU $01
PRINTTMP	EQU $06	;$06-$08 saved and restore by print rtne
WNDLFT	EQU $20	;left edge of text window 
WNDWDTH	EQU $21	;width of text window 
WNDTOP	EQU $22	;top of text window 
WNDBTM	EQU $23	;bottom+1 of text window 
CH	EQU $24	;cursor horizontal position 
CV	EQU $25	;cursor vertical position 
GBASL	EQU $26	;lo-res graphics base addr. 
GBASH	EQU $27
BASL	EQU $28	;text base address 
BASH	EQU $29
BAS2L	EQU $2A	;temp base for scrolling 
BAS2H	EQU $2B
H2	EQU $2C	;temp for lo-res graphics 
LMNEM	EQU $2C	;temp for mnemonic decoding 
V2	EQU $2D	;temp for lo-res graphics 
RMNEM	EQU $2D	;temp for mnemonic decoding 
MASK	EQU $2E	;color mask for lo-res gr. 
FORMAT	EQU $2E	;temp for opcode decode 
LENGTH	EQU $2F	;temp for opcode decode 
COLOR	EQU $30	;color for lo-res graphics 
MONMODE	EQU $31	;Monitor mode
INVFLG	EQU $32	;normal/inverse(/flash)  
PROMPT	EQU $33	;prompt character 
YSAV	EQU $34	;position in Monitor command 
YSAV1	EQU $35	;temp for Y register 
CSWL	EQU $36	;character output hook 
CSWH	EQU $37
KSWL	EQU $38	;character input hook 
KSWH	EQU $39
PCL	EQU $3A	;temp for program counter 
PCH	EQU $3B
A1L	EQU $3C	;Monitor temp 
A1H	EQU $3D	;Monitor temp 
A2L	EQU $3E	;Monitor temp 
A2H	EQU $3F	;Monitor temp 
A3L	EQU $40	;Monitor temp 
A3H	EQU $41	;Monitor temp 
A4L	EQU $42	;Monitor temp 
A4H	EQU $43	;Monitor temp 
*A5L            EQU	$44 ;Monitor temp ?????
A5H	EQU $45	;Monitor temp 
*ACC            EQU	$45 ;Acc after break (destroys A5H) 
XREG	EQU $46	;X reg after break 
YREG	EQU $47	;Y reg after break 
STATUS	EQU $48	;P reg after break 
SPNT	EQU $49	;SP after break 
RNDL	EQU $4E	;random counter low 
RNDH	EQU $4F	;random counter high 


GOODF8	EQU $06	;//e ID byte
X8	EQU $10	;Mask for interrupt	code
M8	EQU $20	;Mask for interrupt	code
EXMEMCMD	EQU $38	;Mask for extnd mem	designator/sctr # cmd
CHKSMCNST	EQU $AAAA	;BATTERYRAM checksum EOR constant


MNEMSTKPTR	EQU $010100	;Main stack pointer
ALEMSTKPTR	EQU $010101	;Alternate stack pointer


* Characters read by GETLN are placed in
* IN, terminated by	a carriage return.
*

IN	EQU $0200	;input buffer for GETLN  


OSWMSTRT	EQU $3D0	;QUITMON jumps here
BRKV	EQU $03F0	;vectors here after	break 
SOFTEV	EQU $03F2	;vector for warm start
PWREDUP	EQU $03F4	;THIS MUST = EOR #$A5 OF SOFTEV+1 
*AMPERV         EQU	$03F5 ;APPLESOFT & EXIT VECTOR
USRADR	EQU $03F8	;monitor Ctrl-Y vector
NMI	EQU $03FB	;NMI vector 
IRQLOC	EQU $03FE	;Maskable interrupt	vector 
LINE1	EQU $0400	;first line of text	screen 

;                copy hw.equates1

IOADR	EQU $C000	;All I/O is at $Cxxx
KBD	EQU $C000	;Bit 7=1 if keystroke 
CLR80COL	EQU $C000	;disable 80 column store 
SET80COL	EQU $C001	;enable 80 column store 
RDMAINRAM	EQU $C002	;read from main 48K	RAM 
RDCARDRAM	EQU $C003	;read from alt. 48K	RAM 
WRMAINRAM	EQU $C004	;write to main 48K RAM 
WRCARDRAM	EQU $C005	;write to alt. 48K RAM 
SETSLOTCXROM	EQU $C006	;use ROMS on cards
SETINTCXROM	EQU $C007	;use internal ROM
SETSTDZP	EQU $C008	;use main zero page/stack 
SETALTZP	EQU $C009	;use alt. zero page/stack 
SETINTC3ROM	EQU $C00A	;Enable internal slot 3 ROM
SETSLOTC3ROM	EQU $C00B	;Enable external slot 3 ROM
CLR80VID	EQU $C00C	;disable 80 column hardware 
SET80VID	EQU $C00D	;enable 80 column hardware 
CLRALTCHAR	EQU $C00E	;normal LC, flashing UC 
SETALTCHAR	EQU $C00F	;normal inverse, LC; no flash 
KBDSTRB	EQU $C010	;turn off key pressed flag 
RDLCBNK2	EQU $C011	; DFB 0 ;Bit 7=1 if	LC bank 2 is in 
RDLCRAM	EQU $C012	; DFB 0 ;Bit 7=1 if	LC RAM read enabled 
RDRAMRD	EQU $C013	; DFB 0 ;Bit 7=1 if	reading alt 48K
RDRAMWRT	EQU $C014	; DFB 0 ;Bit 7=1 if	writing alt 48K 
RDCXROM	EQU $C015	; DFB 0 ;Bit 7=1 if	using int rom
RDALTZP	EQU $C016	; DFB 0 ;Bit 7=1 if	slot zp enabled
RDC3ROM	EQU $C017	; DFB 0 ;Bit 7=1 if	slot c3 space enabled
RD80COL	EQU $C018	; DFB 0 ;Bit 7=1 if	80 column store   
RDVBLBAR	EQU $C019	; DFB 0 ;Bit 7=1 if	not VBL 
RDTEXT	EQU $C01A	; DFB 0 ;Bit 7=1 if	text (not graphics) 
RDMIX	EQU $C01B	; DFB 0 ;Bit 7=1 if	mixed mode on
RDPAGE2	EQU $C01C	; DFB 0 ;Bit 7=1 if	TXTPAGE2 switched in 
RDHIRES	EQU $C01D	; DFB 0 ;Bit 7=1 if	HIRES is on
ALTCHARSET	EQU $C01E	; DFB 0 ;Bit 7=1 if	alternate char set in use
RD80VID	EQU $C01F	; DFB 0 ;Bit 7=1 if	80 column hardware in 
*	$C020 ; DFB 0 ;Reserved for future system expansion


*-------------------------------------------------------------------
* __7______6______5______4______3______2______1______0___
*|      |      |	  |      |      |	   |      |      |
*|Enable|      |	  |      |      |	   |      |      | 
*|color/|   0  |   0  |   0  |   0  |	0  |   0  |   0  |
*| mono |      |	  |      |      |	   |      |      |
*|______|______|______|______|______|______|______|______|
*           ^^^^^  MONOCOLOR Status Byte ^^^^^

* MONOCOLOR bits defined as follows
*    bit 7= 0 enables color -- 1 disables color
*    bit 6,5,4,3,2,1,0  Must be 0

MONOCOLOR	EQU $C021	; DFB 0 ;Monochrome/color select register






*-----------------------------------------------------------------------
* __7______6______5______4______3______2______1______0___
*|      |      |	  |      |      |	   |      |      |
*|      |      |	  |      |      |	   |      |      | 
*|       Text Color	Bits     |   Background Color Bits   |
*|      |      |	  |      |      |	   |      |      |
*|______|______|______|______|______|______|______|______|
*               ^^^^^  TBCOLOR Byte ^^^^^

* TBCOLOR bits defined as follows
*    bit 7,6,5,4 = Text color bits
*    bits 3,2,1,0 =	Background color bits
*
*   Color bits =
*                $0	= Black
*                $1	= Magenta
*                $2	= Dark Blue
*                $3	= Purple
*                $4	= Dark green
*                $5	= Dark Gray
*                $6	= Medium Blue
*                $7	= Light Blue
*                $8	= Brown
*                $9	= Orange
*                $A	= Light Gray
*                $B	= Pink
*                $C	= Green
*                $D	= Yellow
*                $E	= Aquamarine
*                $F	= White

TBCOLOR	EQU $C022	; DFB 0 ;Text/background color select register




*-----------------------------------------------------------------------
* __7______6______5______4______3______2______1______0___
*|      |      |	  |      |      |	   |      |      |
*| VGC  | 1sec | Scan | Ext  |      | 1sec | Scan | Ext  | 
*|  int |  int |  int | int  |Unused|  int |  int | int  |
*|active|active|active|active|      |enable|enable|enable|
*|______|______|______|______|______|______|______|______|
*           ^^^^^  VGCINT Status Byte ^^^^^

* VGCINT bits defined as follows
*    bit 7= 1 if interrupt generated by	VGC
*    bit 6= 1 if 1 second timer interrupt
*    bit 5= 1 if scan line interrupt
*    bit 4= 1 if external interrupt
*    bit 3= unused
*    bit 2= 1 second timer interrupt enable
*    bit 1= scan line interrupt enable
*    bit 0= external interrupt enable

VGCINT	EQU $C023	; DFB 0 ;VGC interrupt register




*-----------------------------------------------------------------------
* __7______6______5______4______3______2______1______0___
*|      |      |	  |      |      |	   |      |      |
*|Button|      |		                 | 
*|status|Delta |	         Delta movement              |
*| now  | sign |		                 |
*|______|______|______|______|______|______|______|______|
*              ^^^^^  MOUSEDATA Byte ^^^^^

* MOUSEDATA bits defined as follows
*    bit 7= if reading X data = button 1 status
*           if reading Y data = button 0 status
*    bit 6= sign of	delta 0='+' -- 1='-'
*    bit 5,4,3,2,1,0 = delta movement

MOUSEDATA	EQU $C024	; DFB 0 ;X or Y mouse data register




*-----------------------------------------------------------------------
* __7______6______5______4______3______2______1______0___
*|      |      |Update|      |      |	   |      |      |
*| Open |Closed| mod  |Keypad|Repeat| Caps | Ctrl |Shift | 
*| Apple| Apple|no key|  key |active| lock |  key | key  |
*|  key |  key | press|active|      |active|active|active|
*|______|______|______|______|______|______|______|______|
*           ^^^^^  KEYMODREG Status Byte ^^^^^

* KEYMODREG bits defined as follows
*    bit 7= Open Apple key active
*    bit 6= Closed Apple key active
*    bit 5= Updated	modifier latch without keypress
*    bit 4= Keypad key active
*    bit 3= Repeat active
*    bit 2= Caps lock active
*    bit 1= Control	key active
*    bit 0= Shift key active

KEYMODREG	EQU $C025	; DFB 0 ;Key modifier register






*-----------------------------------------------------------------------
* __7______6______5______4______3______2______1______0___
*|      |      |	  |      |      |	   |      |      |
*|		                 | 
*|              Data to/from keyboard micro              |
*|		                 | 
*|______|______|______|______|______|______|______|______|
*               ^^^^^  DATAREG Byte ^^^^^

* DATAREG bits defined as follows
*    bit 7,6,5,4,3,2,1,0 = data to/from	keyboard micro
*
* Data at interrupt	time in this register is defined as
*    bit 7= Response byte if set, otherwise status byte
*    bit 6= ABORT valid if set and all other bits reset
*    bit 5= Desktop	manager key sequence pressed
*    bit 4= Flush buffer key sequence pressed
*    bit 3= SRQ valid if set
*    bit 2,1,0 If all bits clear then no FDB data valid,
*              else	the bits indicate the number of valid
*              bytes received minus 1. (2-8 bytes total)

DATAREG	EQU $C026	; DFB 0 ;Data register in KeyGlu chip




*-----------------------------------------------------------------------
* __7______6______5______4______3______2______1______0___
*|      |      |	  |      |      |	   |      |      |
*| Mouse| Mouse| Data | Data | Key  | Key  | Mouse| Cmd  | 
*|  reg |  int |  reg |  int | data | int  |X/Yreg| reg  |
*| full |enable| full |enable| full |enable| data | full |
*|______|______|______|______|______|______|______|______|
*           ^^^^^  KMSTATUS Status Byte	^^^^^

* KMSTATUS bits defined as follows
*    bit 7= 1 if mouse register full
*    bit 6= mouse interrupt disable/enable
*    bit 5= 1 if data register full
*    bit 4= data interrupt enable
*    bit 3= 1 if key data full
*    bit 2= key data interrupt enable
*    bit 1= 0 = mouse 'X' register data	available
*           1 = mouse 'Y' register data	available
*    bit 0= Command	register full

KMSTATUS	EQU $C027	; DFB 0 ;Keyboard/mouse status register
ROMBANK	EQU $C028	; DFB 0 ;ROM bank select toggle





*-----------------------------------------------------------------------
* __7______6______5______4______3______2______1______0___
*|      |      |	  |      |      |	   |      |      |
*|Enable|Linear| B/W  |      |      |	   |      |Enable| 
*| super| video|Color |  0   |  0   |  0   |  0   |bank 1|
*|hi-res|      |DHires|      |      |	   |      |latch |
*|______|______|______|______|______|______|______|______|
*               ^^^^^  NEWVIDEO Byte ^^^^^

* NEWVIDEO bits defined as follows
*    bit 7= 1 to disable Apple //e video (enables super hi-res)
*    bit 6= 1 to linearize for super hi-res
*    bit 5= 0 for color double hi-res -- 1 for B/W hi-res
*    bit 4,3,2,1= MUST be pregrammed as	0
*    bit 0= Enable bank 1 latch to allow long instructions
*           to access bank 1 directly.

NEWVIDEO	EQU $C029	; DFB 0 ;Video/enable read alt mem with	long instr
*               EQU	$C02A ; DFB 0 ;Reserved for future system expansion




*-----------------------------------------------------------------------
* __7______6______5______4______3______2______1______0___
*|      |      |	  |      |      |	   |      |      |
*| Character Generator| NTSC/| Lang |	   |      |      | 
*|   language select  |  PAL |select|	0  |   0  |   0  |
*|      |      |	  |      |  bit |	   |      |      |
*|______|______|______|______|______|______|______|______|
*               ^^^^^  LANGSEL Byte ^^^^^

* LANGSEL bits defined as follows
*    bit 7,6,5= Character generator language select
*	Primary language	Secondary language
*              $0 =	      USA	      Dvorak 
*              $1 =	      UK	       USA
*              $2 =	    French	       USA
*              $3 =	    Danish	       USA
*              $4 =	    Spanish	       USA
*              $5 =	    Italian	       USA
*              $6 =	    German	       USA 
*              $7 =	    Swedish	       USA
*    bit 4= 0 if NTSC video mode -- 1 if PAL video mode
*    bit 3= LANGUAGE switch bit 1 if primary lang set selected
*    bit 2,1,0 ;MUST be programmed as 0's

LANGSEL	EQU $C02B	; DFB 0 ;Language/PAL/NTSC select register
CHARROM	EQU $C02C	; DFB 0 ;Addr for tst mode read of character ROM




*-----------------------------------------------------------------------
* __7______6______5______4______3______2______1______0___
*|      |      |	  |      |      |	   |      |      |
*|Slot7 |Slot6 |Slot5 |Slot4 |      |Slot2 |Slot1 |      | 
*|intext|intext|intext|intext|   0  |intext|intext|   0  |
*|enable|enable|enable|enable|      |enable|enable|      |
*|______|______|______|______|______|______|______|______|
*               ^^^^^  SLTROMSEL Byte ^^^^^

* SLTROMSEL bits defined as follows
*    bit 7= 0 enables internal slot 7 -- 1 enables slot ROM
*    bit 6= 0 enables internal slot 6 -- 1 enables slot ROM
*    bit 5= 0 enables internal slot 5 -- 1 enables slot ROM
*    bit 4= 0 enables internal slot 4 -- 1 enables slot ROM
*    bit 3= MUST be	0
*    bit 2= 0 enables internal slot 2 -- 1 enables slot ROM
*    bit 1= 0 enables internal slot 1 -- 1 enables slot ROM
*    bit 0= Must be	0

SLTROMSEL	EQU $C02D	; DFB 0 ;Slot ROM select



VERTCNT	EQU $C02E	; DFB 0 ;Addr for read of video cntr bits V5-VB
HORIZCNT	EQU $C02F	; DFB 0 ;Addr for read of video cntr bits VA-H0
SPKR	EQU $C030	; DFB 0 ;clicks the	speaker  




*-----------------------------------------------------------------------
* __7______6______5______4______3______2______1______0___
*|      |      |	  |      |      |	   |      |      |
*| 3.5" | 3.5" |	  |      |      |	   |      |      | 
*| head | drive|  0	  |  0   |  0   |  0   |  0   |  0   |
*|select|enable|	  |      |      |	   |      |      |
*|______|______|______|______|______|______|______|______|
*           ^^^^^  DISKREG Status Byte ^^^^^

* DISKREG bits defined as follows
*    bit 7= 1 to select head on 3.5" drive to use
*    bit 6= 1 to enable 3.5" drive
*    bit 5,4,3,2,1,0= unused

DISKREG	EQU $C031	; DFB 0 ;Used for 3.5" disk drives




*-----------------------------------------------------------------------
* __7______6______5______4______3______2______1______0___
*|      |      |	  |      |      |	   |      |      |
*|      |Clear |Clear |      |      |	   |      |      | 
*|   0  |1 sec | scan |   0  |   0  |	0  |   0  |   0  |
*|      | int  |ln int|      |      |	   |      |      |
*|______|______|______|______|______|______|______|______|
*                 ^^^^^  SCANINT Byte ^^^^^

* SCANINT bits defined as follows
*    bit 7= unused
*    bit 6= write a	0 here to reset 1 second interrupt
*    bit 5= write a	0 here to clear scan line interrupt
*    bit 4= unused
*    bit 3= unused
*    bit 2= unused
*    bit 1= unused
*    bit 0= unused

SCANINT	EQU $C032	; DFB 0 ;Scan line interrupt register


* continued in next	file
;                copy hw.equates2
*---------------------------------------------------------------
* __7______6______5______4______3______2______1______0___
*|      |      |	  |      |      |	   |      |      |
*|		                 | 
*|	Clock data register	                 |
*|		                 | 
*|______|______|______|______|______|______|______|______|
*               ^^^^^  CLOCKDATA Byte ^^^^^

* CLOCKDATA bits defined as follows
*    bit 7,6,5,4,3,2,1,0 -- Data passed	to/from clock chip

CLOCKDATA	equ $C033	; DFB 0 ;Clock data	register



*---------------------------------------------------------------
* __7______6______5______4______3______2______1______0___
*|      |      |	  |      |      |	   |      |      |
*| Clock| Read/|Chip  |      |	                 | 
*| xfer |Write |enable|Unused|        Border Color       |
*|      | chip |assert|      |	                 |
*|______|______|______|______|______|______|______|______|
*               ^^^^^  CLOCKCTL Byte ^^^^^

* CLOCKCTL bits defined as follows
*    bit 7= Set =1 to start transfer to	clock
*           Read =0	when transfer to clock is complete
*    bit 6= 0= write to clock chip -- 1= read from clock chip
*    bit 5= Clock chip enable asserted after transfer 0=no 1=yes
*    bit 4= unused
*    bit 3,2,1,0 = select border color (see TBCOLOR for values)

CLOCKCTL	equ $C034	; DFB 0 ;Clock control register




*---------------------------------------------------------------
* __7______6______5______4______3______2______1______0___
*|      |      |	  |      |      |	   |      |      |
*|      | Stop | Stop | Stop | Stop | Stop | Stop | Stop | 
*|   0  |I/O/LC|txtpg2|auxh-r|suprhr|hires2|hires1|txt pg|
*|      |shadow|shadow|shadow|shadow|shadow|shadow|shadow|
*|______|______|______|______|______|______|______|______|
*               ^^^^^  SHADOW Byte ^^^^^

* SHADOW bits defined as follows
*    bit 7= Must write 0
*    bit 6= 1 to inhibit I/O and language card operation
*    bit 5= 1 to inhibit shadowing text page 2
*    bit 4= 1 to inhibit shadowing aux hi-res page
*    bit 3= 1 to inhibit shadowing 32k video buffer
*    bit 2= 1 to inhibit shadowing hires page 2
*    bit 1= 1 to inhibit shadowing hires page 1
*    bit 0= 1 to inhibit shadowing text	pages
*
* Note: bit 5 is only implemented in new CYA chip, if using
*       FPI chip then must write 0.

SHADOW	equ $C035	; DFB 0 ;Shadow register



*---------------------------------------------------------------

* __7______6______5______4______3______2______1______0___
*|      |      |	  |      |      |	   |      |      |
*| Slow/|Power |	  |Shadow|Slot 7|Slot 6|Slot 5|Slot 4| 
*| fast | Up   |   0  |in all|motor |motor | motor| motor|
*| speed|Detect|	  | RAM  |detect|detect|detect|detect|
*|______|______|______|______|______|______|______|______|
*               ^^^^^  CYAREG Byte ^^^^^

* CYAREG bits defined as follows
*    bit 7= 0=slow system speed -- 1=fast system speed
*    bit 6= 1=cold start -- 0=warm start
*    bit 5= Must write 0
*    bit 4= Shadow in all RAM banks
*    bit 3= Slot 7 disk motor on detect
*    bit 2= Slot 6 disk motor on detect
*    bit 1= Slot 5 disk motor on detect
*    bit 0= Slot 4 disk motor on detect
*
* Note: bit 6 only implemented in new CYA chip, if using
*       FPI chip then must always write 0.

CYAREG	equ $C036	; DFB 0 ;Speed and motor on detect


DMAREG	equ $C037	; DFB 0 ;Used during DMA as bank address
SCCBREG	equ $C038	; DFB 0 ;SCC channel B cmd register
SCCAREG	equ $C039	; DFB 0 ;SCC channel A cmd register
SCCBDATA	equ $C03A	; DFB 0 ;SCC channel B data register
SCCADATA	equ $c03B	; DFB 0 ;SCC channel A data register




*---------------------------------------------------------------
* __7______6______5______4______3______2______1______0___
*|      |      |	  |      |      |	   |      |      |
*| Busy | Auto |Access|      |	                 | 
*| flag | inc  | doc/ |   0  |         Volume DAC        |
*|      |adrptr|  RAM |      |	                 |
*|______|______|______|______|______|______|______|______|
*               ^^^^^  SOUNDCTL Byte ^^^^^

* SOUNDCTL bits defined as follows
*    bit 7= 0 if not busy -- 1 if busy
*    bit 6= 0=disable auto incrementing	of address pointer
*           1=enable auto incrementing of address pointer
*    bit 5= 0=access doc -- 1=access RAM
*    bit 4= Must be	0
*    bit 3,2,1,0= volume DAC $0=off $F=full volume

SOUNDCTL	equ $C03c	; DFB 0 ;Sound control register




*---------------------------------------------------------------
* __7______6______5______4______3______2______1______0___
*|      |      |	  |      |      |	   |      |      |
*|		                 | 
*|               Sound data read/written                 |
*|		                 |
*|______|______|______|______|______|______|______|______|
*           ^^^^^  SOUNDDATA Byte ^^^^^

* SOUNDDATA bits defined as follows
*    bit 7,6,5,4,3,2,1,0 = Data read from/written to sound RAM

SOUNDDATA	equ $C03d	; DFB 0 ;Sound data	register



*---------------------------------------------------------------
* __7______6______5______4______3______2______1______0___
*|      |      |	  |      |      |	   |      |      |
*|		                 | 
*|            Low byte of sound address	pointer          |
*|		                 |
*|______|______|______|______|______|______|______|______|
*           ^^^^^  SOUNDADRL Byte ^^^^^

* SOUNDADRL bits defined as follows
*    bit 7,6,5,4,3,2,1,0 = Address into	sound RAM low byte

SOUNDADRL	equ $C03E	; DFB 0 ;Sound address pointer, low byte





*---------------------------------------------------------------
* __7______6______5______4______3______2______1______0___
*|      |      |	  |      |      |	   |      |      |
*|		                 | 
*|           High byte of sound address	pointer          |
*|		                 |
*|______|______|______|______|______|______|______|______|
*           ^^^^^  SOUNDADRH Byte ^^^^^

* SOUNDADRH bits defined as follows
*    bit 7,6,5,4,3,2,1,0 = Address into	sound RAM high byte

SOUNDADRH	equ $C03F	; DFB 0 ;Sound address pointer, high byte
*               equ	$C040 ; DFB 0 ;Reserved for future system expansion




*---------------------------------------------------------------
* __7______6______5______4______3______2______1______0___
*|      |      |	  |      |      |	   |      |      |
*|      |      |	  |Enable|Enable|Enable|Enable|Enable| 
*|   0  |   0  |   0  |1/4sec| VBL  |switch| move | mouse|
*|      |      |	  | ints | ints | ints | ints |      |
*|______|______|______|______|______|______|______|______|
*               ^^^^^  INTEN Byte ^^^^^

* INTEN bits defined as follows
*    bit 7= Must be	0
*    bit 6= Must be	0
*    bit 5= Must be	0
*    bit 4= 1 to enable 1/4 second interrupts
*    bit 3= 1 to enable VBL interrupts
*    bit 2= 1 to enable Mega // mouse switch interrupts
*    bit 1= 1 to enable Mega // mouse movement interrupts
*    bit 0= 1 to enable Mega // mouse operation

INTEN	equ $c041	; DFB 0 ;Interrupt enable register
*               equ	$C042 ; DFB 0 ;Reserved for future system expansion
*               equ	$C043 ; DFB 0 ;Reserved for future system expansion




*---------------------------------------------------------------
* __7______6______5______4______3______2______1______0___
*|      |      |	  |      |      |	   |      |      |
*|		                 | 
*|           Mega // mouse delta movement byte           |
*|		                 |
*|______|______|______|______|______|______|______|______|
*              ^^^^^  MMDELTAX Byte ^^^^^

* MMDELTAX bits defined as follows
*    bit 7,6,5,4,3,2,1,0 = delta movement in 2's complement notation

MMDELTAX	equ $C044	; DFB 0 ;Mega // mouse delta X register



*---------------------------------------------------------------
* __7______6______5______4______3______2______1______0___
*|      |      |	  |      |      |	   |      |      |
*|		                 | 
*|           Mega // mouse delta movement byte           |
*|		                 |
*|______|______|______|______|______|______|______|______|
*             ^^^^^	 MMDELTAY Byte ^^^^^

* MMDELTAY bits defined as follows
*    bit 7,6,5,4,3,2,1,0 = delta movement in 2's complement notation

MMDELTAY	equ $C045	; DFB 0 ;Mega // mouse delta Y register




*---------------------------------------------------------------
* __7______6______5______4______3______2______1______0___
*|      |      |	  |      |      |	   |      |      |
*|Self/ |MMouse|Status|Status|Status|Status|Status|Status| 
*|burnin| last |  AN3 |1/4sec| VBL  |switch| move |system|
*| diags|button|	  | int  | int  | int  | int  | IRQ  |
*|______|______|______|______|______|______|______|______|
*               ^^^^^  DIAGTYPE Byte ^^^^^

* DIAGTYPE bits defined as follows
*    bit 7= 0 if self diagnostics get used if BUTN0=1 and BUTN1=1
*    bit 7= 1 if burn-in diagnostics get used if BUTN0=1 and BUTN1=1
*    bits 6-0 = same as INTFLAG

* __7______6______5______4______3______2______1______0___
*|      |      |	  |      |      |	   |      |      |
*|MMouse|MMouse|Status|Status|Status|Status|Status|Status| 
*|  now | last |  AN3 |1/4sec| VBL  |switch| move |system|
*|button|button|	  | int  | int  | int  | int  | IRQ  |
*|______|______|______|______|______|______|______|______|
*               ^^^^^  INTFLAG Byte ^^^^^

* INTFLAG bits defined as follows
*    bit 7= 1 if mouse button currently	down
*    bit 6= 1 if mouse button was down on last read
*    bit 5= status of AN3
*    bit 4= 1 if 1/4 second interrupted
*    bit 3= 1 if VBL interrupted
*    bit 2= 1 if Mega // mouse switch interrupted
*    bit 1= 1 if Mega // mouse movement	interrupted
*    bit 0= 1 if system IRQ line is asserted

DIAGTYPE	equ $C046	; EQU * ;0/1 Self/burn-in diagnostics
INTFLAG	equ $C046	; DFB 0 ;Interrupt flag register
CLRVBLINT	equ $C047	; DFB 0 ;Clear the VBL and 3.75Hz interrupt flags
CLRXYINT	equ $C048	; DFB 0 ;Clear Mega	// mouse interrupt flags
*               equ	$c049 ; DFB 0 ;Reserved for future system expansion
*               equ	$C04A ; DFB 0 ;Reserved for future system expansion
*               equ	$C04B ; DFB 0 ;Reserved for future system expansion
*               equ	$C04C ; DFB 0 ;Reserved for future system expansion
*               equ	$C04D ; DFB 0 ;Reserved for future system expansion
*               equ	$C04E ; DFB 0 ;Reserved for future system expansion
*               equ	$C04F ; DFB 0 ;Reserved for future system expansion
TXTCLR	equ $C050	; DFB 0 ;switch in graphics (not text) 
TXTSET	equ $C051	; DFB 0 ;switch in text (not graphics) 
MIXCLR	equ $C052	; DFB 0 ;clear mixed-mode 
MIXSET	equ $C053	; DFB 0 ;set mixed-mode (4 lines text) 
TXTPAGE1	equ $c054	; DFB 0 ;switch in text page 1 
TXTPAGE2	equ $C055	; DFB 0 ;switch in text page 2 
LORES	equ $C056	; DFB 0 ;low-resolution graphics 
HIRES	equ $c057	; DFB 0 ;high-resolution graphics 

SETAN0	equ $c058	; DFB 0 ;Clear annunciator 0
CLRAN0	equ $c059	; DFB 0 ;Set annunciator 0
SETAN1	equ $C05A	; DFB 0 ;Clear annunciator1
CLRAN1	equ $C05b	; DFB 0 ;Set annunciator 1
SETAN2	equ $c05c	; DFB 0 ;Clear annunciator 2
CLRAN2	equ $c05d	; DFB 0 ;Set annunciator 2
SETAN3	equ $c05e	; DFB 0 ;Clear annunciator 3
CLRAN3	equ $c05f	; DFB 0 ;Set annunciator 3
BUTN3	equ $C060	; DFB 0 ;Read switch 3
BUTN0	equ $c061	; DFB 0 ;open apple	key
BUTN1	equ $c062	; DFB 0 ;closed apple key
BUTN2	equ $c063	; DFB 0 ;Read switch 2
PADDL0	equ $c064	; DFB 0 ;Read paddle 0 
*               equ	$C065 ; DFB 0 ;Read	paddle 1
*               equ	$C066 ; DFB 0 ;Read	paddle 2
*               equ	$c067 DFB 0 ;Read paddle 3


*---------------------------------------------------------------
* __7______6______5______4______3______2______1______0___
*|      |      |	  |      |      |	   |      |      |
*| ALZP | PAGE2| RAMRD|RAMWRT| RDROM|LCBNK2|ROMBNK| INTCX| 
*|status|status|status|status|status|status|status|status|
*|      |      |	  |      |      |	   |      |      |
*|______|______|______|______|______|______|______|______|
*           ^^^^^  STATEREG Status Byte	^^^^^

* STATEREG bits defined as follows
*    bit 7= ALZP status
*    bit 6= PAGE2 status
*    bit 5= RAMRD status
*    bit 4= RAMWRT status
*    bit 3= RDROM status (Read only RAM/ROM (0/1))

* IMPORTANT NOTE:
*           Do two reads to $C083 then change STATEREG
*           to change LCRAM/ROM banks (0/1) and still
*           have the language card write enabled.

*    bit 2= LCBNK2 status 0=LC bank 0 -	1=LC bank 1
*    bit 1= ROMBANK	status
*    bit 0= INTCXROM status

STATEREG	equ $C068	; DFB 0 ;State register
*               equ	$c069 ; DFB 0 ;Reserved for future system expansion
*               equ	$C06a ; DFB 0 ;Reserved for future system expansion
*               equ	$C06b ; DFB 0 ;Reserved for future system expansion
*               equ	$C06c ; DFB 0 ;Reserved for future system expansion

TESTREG	equ $c06D	; DFB 0 ;Test mode bit register
CLRTM	equ $C06E	; DFB 0 ;Clear test	mode
ENTM	equ $c06F	; DFB 0 ;Enable test mode
PTRIG	equ $C070	; DFB 0 ;trigger the paddles 


*               equ	$c071 ;  DS 15,0 ;ROM interrupt code jump table




*               equ	$c080 ; DFB 0 ;Sel LC RAM bank2 rd, wrt	protect LC RAM
ROMIN	equ $c081	; DFB 0 ;Enable ROM	read, 2 reads write	enb LC RAM
*               equ	$c082 ; DFB 0 ;Enable ROM read, wrt protect LC RAM
LCBANK2	equ $c083	; DFB 0 ;Sel LC RAM	bank2, 2 rds wrt enb LC RAM




*               equ	$c084 ; DFB 0 ;Sel LC RAM bank2 rd, wrt	protect LC RAM
*               equ	$c085 ; DFB 0 ;Enable ROM read, 2 reads	wrt enb LC RAM
*               equ	$c086 ; DFB 0 ;Enable ROM read, wrt protect LC RAM
*               equ	$c087 ; DFB 0 ;Sel LC RAM bank2, 2 rds wrt enb LC RAM




*               equ	$C088 ; DFB 0 ;Sel LC RAM bank1 rd, wrt	protect LC RAM
*               equ	$c089 ; DFB 0 ;Enable ROM read, 2 reads	wrt enb LC RAM
*               equ	$C08A ; DFB 0 ;Enable ROM read, wrt protect LC RAM
LCBANK1	equ $c08B	; DFB 0 ;Sel LC RAM	bank1, 2 rds wrt enb LC RAM




*               equ	$C08C ;  DFB 0 ;Sel	LC RAM bank1 rd, wrt protect LC RAM
*               equ	$c08D ;  DFB 0 ;Enable ROM read, 2 reads wrt enb LC RAM
*               equ	$c08E ;  DFB 0 ;Enable ROM read, wrt protect LC RAM
*               equ	$c08F ;  DFB 0 ;Sel	LC RAM bank1, 2 rds	wrt enb LC RAM



CLRROM	EQU $CFFF	;switch out $C8 ROMs 
;                copy equates2


BASIC	EQU $E000	;BASIC entry point
BASIC2	EQU $E003	;BASIC warm entry point 


* Permanent data in	screenholes 
*
* Note: these screenholes are only used	by 
* the 80 column firmware if an 80 column card 
* is detected or if	the user explicitly	activates 
* the firmware.  If	the 80 column card is not
* present, only MODE is trashed on RESET.  
*
* The success of these routines rely on	the
* fact that if 80 column store is on (as it
* normally is during 80 column operation), that
* text page 1 is switched in.  Do not call the
* video firmware if	video page 2 is switched in!!

MSLOT	EQU $7F8	;=$Cn ;n=slot using	$C800

OLDCH	EQU $478+3	;LAST CH used by video firmware 
MODE	EQU $4F8+3	;video firmware operating mode 
OURCH	EQU $578+3	;80 column CH 
OURCV	EQU $5F8+3	;80 column CV
CHAR	EQU $678+3	;character to be printed/read 
XCOORD	EQU $6F8+3	;GOTOXY X-coord (pascal only) 
;TEMP1 EQU $778+3 ;temp
OLDBASL	EQU $778+3	;last BASL (pascal only) 
OLDBASH	EQU $7F8+3	;last BASH (pascal only) 

*
*
* BASIC VMODE BITS
*
* 0....... - BASIC active
* 1....... - Pascal	active 
* .0...... - Print mouse chars 
* .1...... - Don't print mouse characters 
* ..0..... - Print control characters  
* ..1..... - Don't print ctrl chars 
* ...0.... - 
* ...1.... -
* ....0... - Print control characters 
* ....1... - Don't print ctrl chars. 
* .....0.. -
* .....1.. - 
* ......0. - Scroll	normally 
* ......1. - 1200 baud: home instead of	scroll 
* .......0 - Mouse text inactive
* .......1 - Mouse text active
*
M_6	EQU $40	;
M_CTL2	EQU $20	;Don't print controls
M_4	EQU $10	;
M_CTL	EQU $08	;Don't print controls 
M_2	EQU $04	;
M_1	EQU $02	;
M_MOUSE	EQU $01	;Don't print mouse chars
*
* Pascal Mode Bits 
*
* 0....... - BASIC active
* 1....... - Pascal	active 
* .0...... - Print mouse chars 
* .1...... - Don't print mouse characters 
* ..0..... -
* ..1..... -
* ...0.... - Cursor	always on 
* ...1.... - Cursor	always off 
* ....0... - GOTOXY	n/a 
* ....1... - GOTOXY	in progress 
* .....0.. - Normal	Video
* .....1.. - Inverse Video
* ......0. - Scroll	normally  
* ......1. - 1200 baud: home instead of	scroll  
* .......0 -
* .......1 -
*
M_PASCAL	EQU $80	;Pascal active 
M_CURSOR	EQU $10	;Don't print cursor
M_GOXY	EQU $08	;GOTOXY IN PROGRESS
M_VMODE	EQU $04
M_PAS1_0	EQU $02	;Pascal 1.0 mode


;                copy bank.e1.equates




BRAMBUFFER	EQU $E102C0

USERPORT1	equ BRAMBUFFER	; DFB $00 ;This port is a: Printer
*DFB $00 ;Line Length: Unlimited
*DFB $00 ;Delete First LF after CR: No
*DFB $01 ;Add LF after CR: Yes
*DFB $00 ;Echo: No
*DFB $00 ;Buffering: No
*DFB $0D ;Baud: 9600
*DFB $07 ;Data/Stop	Bits: 8/2
*DFB $02 ;Parity: None
*DFB $01 ;DCD Handshake: Yes
*DFB $01 ;DSR Handshake: Yes
*DFB $00 ;XON/XOFF Handshake: No



USERPORT2	equ UserPort1+12	; DFB $01 ;This port is a: Modem
*DFB $00 ;Line Length: Unlimited
*DFB $00 ;Delete First LF after CR: No
*DFB $00 ;Add LF after CR: No
*DFB $00 ;Echo: No
*DFB $00 ;Buffering: No
*DFB $07 ;Baud: 1200
*DFB $06 ;Data/Stop	Bits: 8/1
*DFB $02 ;Parity: None
*DFB $01 ;DCD Handshake: Yes
*DFB $01 ;DSR Handshake: Yes
*DFB $00 ;XON/XOFF Handshake: No



* Display selections

USERCOLOR	equ UserPort2+12	; DFB $01 ;Type: Monochrome
USERCOL	equ UserColor+1	; DFB $00 ;Columns:	40
USERTEXT	equ UserCol+1	; DFB $01 ;TEXT: (WHITE)
USERBACK	equ UserText+1	; DFB $06 ;Background: (medium blue)
USERBORDER	equ UserBack+1	; DFB $05 ;Border: (dark gray)
USERHERTZ	equ UserBorder+1	; dfb $00 ; Hertz: 60

* Sound selections

USERVOL	equ UserHertz+1	; DFB $08 ;Volume: |-------*-------|
USERBELL	equ UserVol+1	; DFB $08 ;Chimes: |-------*-------|



* Speed selections

USERSPEED	equ UserBell+1	; DFB $00 ;Speed: Normal

* Slots' selections

USERSLT1	equ UserSpeed+1	; DFB $00 ;Slot 1: Port 1
USERSLT2	equ UserSlt1+1	; DFB $00 ;Slot 2: Port 2
USERSLT3	equ UserSlt2+1	; DFB $00 ;Slot 3: Text Display
*	           ; DFB $00 ;Slot 4: Mouse
*	           ; DFB $00 ;Slot 5: Smart Port
*	           ; DFB $00 ;Slot 6: Disk Port
USERSLT7	equ UserSlt3+4	; DFB $01 ;Slot 7: Your Card

USERSLTST	equ UserSlt7+1	; DFB $00 ;Startup Slot: Scan



* Language selections

USERDISP	equ UserSltSt+1	; DFB $00 ;Text Display: English (U.S.)
USERLANG	equ UserDisp+1	; DFB $00 ;Keyboard: English (U.S.)
USERKBUFF	equ UserLang+1	; DFB $00 ;Keyboard	Buffering: No
USERRSPD	equ UserKBuff+1	; DFB $03 ;Repeat Speed: |-------*-------|
USERRDLY	equ UserRSPD+1	; DFB $02 ;Repeat Delay: |-----*---------|
*	           ; DFB $02 ;Double Click: |-----*---------|
*	           ; DFB $02 ;Cursor Flash: |-----*---------|
USERCAPS	equ UserRdly+3	; DFB $00 ;Shift Caps/Lower Case: No
USERFSPDE	equ UserCAPS+1	; DFB $00 ;Fast Space/Delete Keys: No
USERDUAL	equ UserFSpde+1	; DFB $00 ;Dual Speed: Normal
USERHMR	equ UserDual+1	; DFB $00 ;High Mouse Resolution: No


* Clock selections

USERDATE	equ UserHMR+1	; DFB $00 ;Format: MM/DD/YY
USERAMPM	equ UserDate+1	; DFB $00 ;Format: AM-PM


* Ramdisk selections

USERMRAM	equ UserAMPM+1	; DFB $00  ;Minimum	RAM for Ramdisk
USERXRAM	equ UserMRam+1	; DFB $00  ;Maximum	RAM for Ramdisk
USERRSTRAM	equ USERXRAM+1	; Reset RAM disk size during next reset

LANGS	equ UserXRAM+1	; DS 9,0 ;Count/Number of languages

LAYOUTS	equ Langs+9	; DS 17,0 ;Count/Numbers of layouts


APTALKNODE	equ $E102c0+$80	; DFB 0 ;AppleTalk node number

OSVARIABLES	equ ApTalkNode+1	; DS 32,0 ;Operating system variables

BRAMSUM1	equ $E103bC	; DW 0 ;Main BATTERYRAM checksum
BRAMSUM2	equ BRAMSum1+2	; DW 0 ;= BRAMCHKSUM1 EOR BRAMCNST



* Important vectors	the user may change
* RAM space from locations $0000->$02B7	are allocated for
* monitor and RAM vectors use.

DISPATCH1	equ $E10000	; DS 4,0 ;Jmp vector to Tool Locator1
DISPATCH2	equ Dispatch1+4	; DS 4,0 ;Jmp vector to Tool Locator2
UDISPATCH1	equ Dispatch2+4	; DS 4,0 ;Jmp vector to User's tool locator1
UDISPATCH2	equ UDispatch1+4	; DS 4,0 ;Jmp vector to User's tool locator2
INTMGRV	equ UDispatch2+4	; DS 4,0 ;Jmp vector to Interrupt ma
COPMGRV	EQU INTMGRV+4
ABORTMGRV	EQU COPMGRV+4
SYSDMGRV	EQU ABORTMGRV+4


IRQ_APTLK	equ SysDMgrV+4	; DS 4,0 ;Jmp vector to APTLK interrupt handler
IRQ_SERIAL	equ IRQ_APTLK+4	; DS 4,0 ;Jmp vector to serial port int handler
IRQ_SCAN	EQU IRQ_SERIAL+4	; DS 4,0 ;Jmp vector to scan line interrupt handler
IRQ_SOUND	EQU IRQ_SCAN+4	; DS 4,0 ;Jmp vector to sound interrupt handler
IRQ_VBL	EQU IRQ_SOUND+4	; DS 4,0 ;Jmp vector to VBL interrupt handler
IRQ_MOUSE	EQU IRQ_VBL+4	; DS 4,0 ;Jmp vector to mouse interrupt handler
IRQ_QTR	EQU IRQ_MOUSE+4	; DS 4,0 ;Jmp vector to 1/4 sec interrupt handler
IRQ_KBD	EQU IRQ_QTR+4	; DS 4,0 ;Jmp vector to keyboard interrupt handler
IRQ_RESPONSE	EQU IRQ_KBD+4	; DS 4,0 ;Jmp vctr to FDB response byte	int hndlr
IRQ_SRQ	EQU IRQ_RESPONSE+4	; DS 4,0 ;Jmp vector to SRQ int handler
IRQ_DSKACC	EQU IRQ_SRQ+4	; DS 4,0 ;Jmp vector to desk accessory int handler
IRQ_FLUSH	EQU IRQ_DSKACC+4	; DS 4,0 ;Jmp vector to flush buffer int handler
IRQ_MICRO	EQU IRQ_FLUSH+4	; DS 4,0 ;Jmp vector to key micro int handler
IRQ_1SEC	EQU IRQ_MICRO+4	; DS 4,0 ;Jmp vector to 1 second interrupt handler
IRQ_EXT	EQU IRQ_1SEC+4	; DS 4,0 ;Jmp vector to EXT VGC interrupt handler
IRQ_OTHER	EQU IRQ_EXT+4	; DS 4,0 ;Jmp vector to other interrupt	handler

CUPDATE	EQU IRQ_OTHER+4	; DS 4,0 ;Jmp vector to cursor update handler

IncBusyFlg	equ CUPDATE+4
DecBusyFlg	equ IncBusyFlg+4

BellVector	equ DecBusyFlg+4	; added 4 Dec 86
BreakVector	equ BellVector+4	...

TraceVector	equ BreakVector+4	...
StepVector	equ TraceVector+4	...
RomToolHook	equ StepVector+4	; added 4 Dec 86


TOWRITEBRAM	EQU $E10080	; DS 4,0 ;Jmp vector to write BATTERYRAM routine
TOREADBRAM	EQU TOWRITEBRAM+4	; DS 4,0 ;Jmp vector to read BATTERYRAM	routine
TOWRITETIME	EQU TOREADBRAM+4	; DS 4,0 ;Jmp vector to write time routine
TOREADTIME	EQU TOWRITETIME+4	; DS 4,0 ;Jmp vector to read time routine
TOCTRL_PANEL	EQU TOREADTIME+4	; DS 4,0 ;Jmp vctr to Control Panel desk accessory
TOBRAMSETUP	EQU TOCTRL_PANEL+4	; DS 4,0 ;Jmp vector for ext Menu to setup stuff
TOPRTMSG8	EQU TOBRAMSETUP+4	; DS 4,0 ;Jmp vector to print a msg- 8 bit entry
TOPRTMSG16	EQU TOPRTMSG8+4	; DS 4,0 ;Jmp vector to print a msg- 16 bit entry

OSVECTORS	EQU $E100A8	; DS 24,0 ;Operating system 4 byte jump	vectors

MSGPOINTER	EQU OSVECTORS+24	; DS 3,0 ;Pointer to messages table


* IRQ_SECFLAG, IRQ_INTFLAG, IRQ_DATAREG	are setup
* during interrupt time.  They are defined as follows
*
* IRQ_INTFLAG = value of INTFLAG read during interrupt
*               processing.
* IRQ_DATAREG = value of DATAREG read during interrupt
*               processing.
* IRQ_KMSTATUS value of KMSTATUS read during interrupt
*             processing.
* IRQ_SECFLAG =0 if	all interrupts processed by handlers
*             =<>0 if any interrupt not	processed by handlers
* IRQ_SERIAL1 is set up by serial interrupt manager
*             for the user to read.
* IRQ_SERIAL2 is set up by serial interrupt manager
*             for the user to read.
* IRQ_APTLKHI is set up by AppleTalk interrupt manager
*             for the user to read.
*
* IRQ_SECFLAG, IRQ_INTFLAG, IRQ_DATAREG, IRQ_KMSTATUS are set
* to zero in irq_done2.


IRQ_INTFLAG	EQU MSGPOINTER+3	; DS 1,0 ;Status of	INTFLAG at interrupt time
IRQ_DATAREG	EQU IRQ_INTFLAG+1	; DS 1,0 ;Status of	DATAREG at interrupt time
IRQ_KMSTATUS	EQU IRQ_DATAREG+1	; DS 1,0 ;Status of	KMSTATUS at interrupt time
IRQ_SECFLAG	EQU IRQ_KMSTATUS+1	; DS 1,0 ;0/<>0 = int not processed/processed
IRQ_SER1	EQU IRQ_SECFLAG+1	; DS 1,0 ;Interrupt	info for users
IRQ_SER2	EQU IRQ_SER1+1	; DS 1,0 ;Interrupt	info for users
IRQ_APTLKHI	EQU IRQ_SER2+1	; DS 1,0 ;Interrupt	info for users
IRQ_VOLUME	EQU IRQ_APTLKHI+1	; DS 1,0 ;Volume used during interrupt time
IRQ_ACTIVE	EQU IRQ_Volume+1	; ds 1,0 ; <> 0 if called during IRQ
IRQ_SOUNDD	EQU IRQ_ACTIVE+1	; ds 1,0 ; sound register during IRQ



SIOFLAG	EQU $E100CF	; DS 1,0 ;Slts enabled via init call to	Misc Tl Loc
INMASK	EQU SIOFLAG+1	; DS 3,0 ;AND mask / OR mask / slot #
InSlot	equ InMask
InOr	equ InSlot+1
InAnd	equ InOr+1
OUTMASK	EQU INand+1	; DS 3,0 ;AND mask / OR mask / slot #
OutSlot	equ OutMask
OutOr	equ OutSlot+1
OutAnd	equ OutOr+1


ENSONIQFLG	EQU OUTMASK+3	; DS 1,0 ;0=chip installed / 1=no chip installed
IRQ_MOUSVBL	EQU ENSONIQFLG+1	; DS 1,0 ;0 if mouse not using VBL

HBPTR	EQU IRQ_MOUSVBL+1	; DS 4,0 ;Heart beat pointer to 1st item in list
TICKCNT	EQU HBPTR+4	; DS 4,0 ;Tick count updated by heart beat
MOUSESLOT	EQU TICKCNT+4	; DS 1,0 ;Mouse slot in use

EVMGRDATA	EQU MOUSESLOT+1	; DS 30,$00 ;Event manager permanent information
JournalFlag	equ EVMGRDATA	; <0-play back, 0-no journal, >0-record
JournalPtr	equ JournalFlag+2	; address of journaling driver
EMBStat	equ JournalPtr+4	; mouse button status
EMXPos	equ EMBStat+2	; X position
EMYPos	equ EMXPos+2	; Y position
TaskHead	equ EMYPos+2	; RAM part of mouse	card heartbeat task
;		; uses 12 bytes.


BusyFlag	equ EvMgrDATA+30

SCCSTAT	EQU BusyFlag+2	; DS 1,0 ;=0 then not SCC int- <>0 then	SCC int
SCCFLAG	EQU SCCSTAT+1	; DS 1,0 ;0=no ApTalk-$3C=chanA-$3B=chanB=ApTalk
SCCFLAG2	EQU SCCFLAG+1	; DS 1,0 ;Aptalk int mask -$07=chanB-$38=chanA
SERFLAG	EQU SCCFLAG2+1	; DS 1,0 ;Ser int msk-$07=chanB-$38=chanA-$3F=both
SCC1	EQU SERFLAG+1	; DS 1,0 ;1st data byte read in by int handler
SCC2	EQU SCC1+1	; DS 1,0 ;2nd data byte read in by int handler
SCC3	EQU SCC2+1	; DS 1,0 ;3rd data byte read in by int handler



* Interrupt uses all variables with 'irq_'

irq_A	EQU SCC3+1	; DS 2
irq_X	EQU IRQ_A+2	; DS 2
irq_Y	equ irq_X+2	; DS 2
irq_S	equ irq_Y+2	; DS 2
irq_D	equ irq_S+2	; DS 2
irq_P	equ irq_D+2	; DS 1
irq_DB	equ irq_p+1	; DS 1 ;irq_DB and irq_e canNOT be separated

irq_e	equ irq_DB+1	; DS 1
irq_K	equ irq_e+1	; DS 1
irq_PC	equ irq_K+1	; DS 2
irq_state	equ irq_PC+2	; DS 1
irq_shadow	equ irq_state+1	; DS 2
irq_mslot	equ irq_shadow+2	; DS 1



AVAL	equ $E10120	; DW 0 ;A register value
*	         ; DW 0 ;X register value
*	         ; DW 0 ;Y register value
SVAL	equ AVAL+6	; DW 0 ;S (stack pointer) value
DVAL	equ SVAL+2	; DW 0 ;D (direct (zero page) register)	value
PVAL	equ DVal+2	; DFB 0 ;P (processor status) value
BVAL	equ PVal+1	; DFB 0 ;B (data bank register) value
KVAL	equ BVal+1	; DFB 0 ;K (program	bank register) value
MVAL	equ KVal+1	; DFB 0 ;M (memory status) value
QVAL	equ MVal+1	; DFB 0 ;Q (bit7=speed - bits6-0 match shadow reg)
LVAL	equ QVal+1	; DFB 0 ;L (language card bank 0/1 selected) value
MPVAL	equ LVal+1	; DFB 0 ;m memory access mode bit value
XPVAL	equ MPVal+1	; DFB 0 ;x index mode bit value
EPVAL	equ XPVal+1	; DFB 0 ;e (emulation mode status) value
DDVAL	equ EPval+1	; DFB 0 ;d (disassembly option) value
ASCFILTER	equ DDVAL+1	; DFB 0 ;F (filter mask for ASCII input	in mon)
CURSOR	equ ASCFilter+1	; DFB 0 ;Cursor
NXTCUR	equ Cursor+1	; DFB 0 ;Cursor
CHGCURFLG	equ NxtCur+1	; DFB 0 ;<>0=change	cursor/ 0=no change	cursor

SYSTEMSPD	equ ChgCurFlg+1	; DFB 0 ;$00=slow speed -- $80=high speed mask
SLOTSFG	equ SYSTEMSPD+1	; DFB 0 ;SLTROMSEL value for reset
;ORGMEMORY	equ SystemSPD+1	; DFB 0 ;Used in executed BRK/COP disassembly

E1PCLH	equ SYSTEMSPD+1	; DW 0 ;Program counter for 'G'o routine
GOS	equ E1PCLH+2	; DW 0 ;'S' value to return to after a 'G'o cmd

BANKS	equ GOS+2	; DFB 0 ;Source bank
BANKD	equ BANKS+1	; DFB 0 ;Destination bank

EXTENDBNK	equ BANKD+1	; DW 0 ;Extend+bank	bytes that user entered 
DIGITCNT	equ EXTENDBNK+2	; DFB 0 ;Used by GETNUM - how many digits entered

;TWKEY	equ DigitCNT+1	; DFB 0 ;Storage pointer for type ahead	buffer
;TRKEY	equ TWKey+1	; DFB 0 ;Retrieve pointer for type ahead buffer
;TYPHED	equ TRKey+1	; DFB 0 ;Used by keyboard buffering routine


;FIXST1	equ $E10146	; TYPHED+1 ; DW 0 ;Used by FIXSTATEREG routine
;FIXST2	equ FIXST1+2	; DW 0 ;
;FIXST3	equ FIXST2+2	; DW 0 ;

C1FLAG	equ DIGITCNT+1	; Serial code uses as indicator
C2FLAG	equ C1FLAG+1	; serial code uses as indicator
CURSHIFTER 	equ C2FLAG+1	; Shifts to 0 which causes cursor to flash

EXTENDBNKS	equ CURSHIFTER+1	; Saved extend+bank bytes entered
IRQ_3031SOUND	equ EXTENDBNKS+2	; Jmp vector to Apple sound irqs

KEYTASKHDR0	equ $E1014C	; Key press task handler buffer, 12 BYTES
EVMKEYBUFF	equ KEYTASKHDR0+12	; 16 bytes required
WHATEVENT 	equ EVMKEYBUFF	; 1st byte is event number
EVMKEY	equ EVMKEYBUFF+2	; ASCII key pressed is here

RDMEMDATA	equ EVMKEYBUFF+16	; Powerup byte read from keyboard micro

TOGGLEPAT 	equ RDMEMDATA+1 	; Speaker ptggle ptrn for NEWBELL1 sounds
DURATION 	equ TOGGLEPAT+2	; Hold time counter for NEWBELL1
PITCH	equ DURATION+2 	; User chosen pitch value for NEWBELL1
VOLUME	equ PITCH+2	; Volume counter for NEWBELL1

TP2THDR	equ VOLUME+1 	; Task header for text page 2 copier
TP2TCNT	equ TP2THDR+4	; VBL count
TP2TSIG	equ TP2TCNT+2	; Signature byte
TP2TJMP	equ TP2TSIG+2	; Jmp vector
TP2MODE	equ TP2TJMP+4	; 0/1 text page 2 copier off/on

ROMDAACT 	equ TP2MODE+1 	; 0 = Do not activate, <> = activate
NOTESEQ	equ ROMDAACT+1	; 2 bytes for note sequencer usage

ToBusyStrip	equ $E10180	; Jmp to dec busy flag
ToStrip	equ $E10184	; Jmp vector to 0ErrOut routine (X=error, Y=bytes to strip)
DefaultTPTPtr	equ $E10188	; for SetDefaultTPT (moved equate 25-Sep-90 DAL)
STEPSP	equ $E1018C	;Step/Trace return address after each instruction
JSX	equ STEPSP+1	;Flag for real time execution
KEYUCVER	equ JSX+1 	;KeyUc version#
ORGMEMORY	equ KEYUCVER+1 	;Used in executed BRK/COP disassembly

* New locations for mouse to be used

lowabsx	equ ORGMEMORY+1     ;Mouse x/y absolute position
lowabsy	equ lowabsx+1	;
highabsx	equ lowabsy+1	;
highabsy	equ highabsx+1	; 
MseInfo	equ highabsy+1	;Bits 6, 7 for Y clamps
MseSpare	equ MseInfo+1	;For mouse routine usage
msestat	equ MseSpare+1	;Button 0/1 interrupt status byte
msemode	equ msestat+1	;Mode byte
MDISPATCH	equ msemode+1 	;DS 4,0 for Jmp vector to monitor dispatch
MAINSIDEPATCH	equ MDISPATCH+4	;DS 4,0 for Jmp vector to main side dispatch
GUS	equ MAINSIDEPATCH+4 ;DS 4,0 for gs/os scsi manager usage
ROMDEBUGGER	equ GUS+4 	;ROM debugger uses for storing data bank


;-----------------------------------------------------------
;
; Location of MidiInputPoll
;
MidiInputPoll	equ $E101B2

;-----------------------------------------------------------
;
; New LowLevel Toolbox vector
;
LLToolboxVector	equ $E101BC	; low level patch vector for toolbox
		; four bytes long.



* New $e1 vectors start from $e10200

TOMEMMOVER	equ $E10200	;DS 4,0 for Jmp vector to memory mover

BlockMoveCommandWord equ %0000100000000101 ; word means move src to dest incing one
		; byte at a time.


TOSETSPEED	equ TOMEMMOVER+4	;DS 4,0 for Jmp vector to set system speed
SLTARBITER	equ TOSETSPEED+4	;DS 4,0 for Jmp vector to slot arbitration


FILL2CLAMPS	equ $E102B8
LOWXCLAMP	equ FILL2CLAMPS	; Low X clamp
LOWYCLAMP	equ LOWXCLAMP+2	; Low Y clamp
HIXCLAMP 	equ LOWYCLAMP+2	; High X clamp
HIYCLAMP	equ HIXCLAMP+2	; High Y clamp

** $e102c0 - $e1003bf already used by battery ram buffer !!!!

ADBSCALE 	equ $E103D0	; 16 bytes absolute device scale data area

TIMEOUT	equ $E103E0	; DFB 0 ;Timeout counter
CLKRDATA	equ TimeOut+1	; DS 4,0 ;Time read	from clock in seconds
CLKWDATA	equ ClkRData+4	; DS 4,0 ;Time to write to clock in seconds
ASCIITIME	equ ClkWData+4	; DS 23,0 ;Time in ASCII 'mm/dd/yy hh:mm:ss am/pm'


SMARTPORTTEMP	equ $E10FB0	; 25 bytes, SmartPort uses to replace screenholes


MTHANDLE	EQU $E10FD0	; STORAGE FOR ID TAG HANDLE
KBDIRQFLAG	EQU MTHANDLE+4	; KEYBOARD INTERRUPT FLAG


* ADB buffer and variables

FILL2ADBVAR	equ $E10FD6
ADBFLAGS	equ FILL2ADBVAR	;ADB variables
STATUSTMP	equ ADBFLAGS+1	;Holds any pending Uc status
SRQNUM	equ STATUSTMP+1	;# of devices installed in SRQ chain
SRQCNT	equ SRQNUM+1	;Count of devices polled since last data
SRQPTR	equ SRQCNT+1	;Pointer of next device in SRQ list
SRQMRU	equ SRQPTR+1	;Most recently used device (top of list)


FILL2SERPWRUP       equ $E10FFE	;
SERPWRUP	equ FILL2SERPWRUP	;serial port power up byte (low)
SERPWRUP2	equ SERPWRUP+1	;serial port power up byte (high)

FILL2ADBVCTRS	equ $E1154A	;Additional ADB devices (max 16) completion vectors
ADBVCTRS	equ FILL2ADBVCTRS	;DS 64,0 completion vector for each device

FILL2RAMDSKPWRUP	equ $E115FF
RAMDSKPWRUP	equ FILL2RAMDSKPWRUP ;<>0 if powered up before

FILL2SYSVOLLOC	equ $E11DB0
SYSVOLLOC 	equ FILL2SYSVOLLOC	;Volume for sound tools is in hi byte

FILL2ABSCLAMPS	equ $E11DD0
AbsClamps	equ FILL2ABSCLAMPS	;DS 8,0 for absolute clamps value


;                copy bank.ff.equates


FDBTABLE	EQU $FF8000	;Call table for front desk manager tool
SOUNDTABLE	EQU $FF3E00	;Call table for Init sound manager tool
MEMORYTABLE	EQU $FF0000	;Call table for Init memory manager tool
RAMDISKTABLE	equ $FF00C0	;Call table for the	RAM disk driver tool


MAINEXIT	EQU $F8D4	;Exit point from bank 00 to calling bank
MAINSIDE	EQU $F8B5	;Entry point causes	bank 00 routine to run


INITDISMGR	EQU $FE0000	;Initialize DISPATCH handler
DIAGS	EQU $FF7400	;Diagnostics start here
PROCONINIT	EQU $FF5A00	;Initialize protocol converter
MSGTBL	EQU $FF8500	;Message 'DW' table	starts here
CPDEFTBL	EQU $FF8EA0	;Control Panel BRAM	default table
CPDTBLLN	EQU $50	;Current default table length $50
CTRL_PANEL	EQU $FF8F00	;Control Panel desk	accessory


BOOTMSG	equ 0	; DS 1 ;'I/O error!' message number
DISKMSG	equ BootMsg+1	; DS 1 ;'Not a bootable disk!' message number
DEVMSG	equ DiskMsg+1	; DS 1 ;'No device connected!' message number
CHKDEVMSG	equ DevMsg+1	; DS 1 ;'Check startup device!' message	number
TIMEMSG	equ ChkDevMsg+1	; DS 1 ;'Time=' message number
STEPMSG	equ TimeMsg+1	; DS 1 ;'Step' message number
TRACEMSG	equ StepMsg+1	; DS 1 ;'Trace' message number
CBANKMSG	equ TraceMsg+1	; DS 1 ;'Cbank' message number
DECMSG	equ CBankMsg+1	; DS 1 ;'Decimal= '	message number
HEXMSG	equ DecMsg+1	; DS 1 ;'Hex= ' message number
TLERRMSG	equ HexMsg+1	; DS 1 ;'Tool error= ' message number
SYSDMSG	equ TLerrMsg+1	; DS 1 ;'Fatal system error-> ' message	number


;                copy pascal.equates

InitEP	equ $c00D
ReadEP	equ $c00E
WritEP	equ $c00F
StatEP	equ $c010
CtrlEP	equ $c012


;=================================================
;
; Tool locator equates for bank E1
;

TPTPtr	equ $E103C0	; Ram based TPT Pointer
U_TPTPtr	equ TPTPtr+4	; Ram based User TPT Pointer
WAPTPtr	equ U_TPTPtr+4	; Pointer to Work Area Pointer Table
U_WAPTPtr	equ WAPTPtr+4	; Pointer to users ...

** DefaultTPTPtr	equ $E10188	; Pointer to default TPT (see earlier)


;-----------------------------------------------------------
;
; Public OS equates.
;
OS_Kind	equ $E100BC
OS_Boot	equ $E100BD
OS_Flag	equ $E100BE

OS_StackEntry	equ $E100B0
OS_Entry	equ $E100A8

;-----------------------------------------------------------
;
; OS_Flag was originally the OS busy flag.  It used only
; one bit.  We now use other bits in the flag to do other
; things.
;
SpecialBit	equ 1
BadOSBit	equ 2
PatchLoadedBit	equ 4
PatchedOnceBit	equ 8


	print pop
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/tl/MessageCenter.asm b/IIGS.601.SRC/GSToolbox/tl/MessageCenter.asm
new file mode 100644
index 0000000..bae93b0
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/tl/MessageCenter.asm
@@ -0,0 +1 @@
+	title 'Tool Locator--MessageCenter'
****************************************************************
*			   *
*	   MessageCenter		   *
*			   *
****************************************************************


****************************************************************
*			   *
*	Copyright (C) 1985-1988,1991	   *
*	All Rights Reserved		   *
*	Apple Computer, Inc.	   *
*			   *
****************************************************************
*
* REVISION HISTORY
*
* 2-Dec-91	Dave Lyons for 6.0d60
*
* Hack MessageCenter so that deleting message 1 (list of Pascal
* strings to Open/Print, from Finder) automatically deletes
* message $11 (new mesage, list of GS/OS strings to Open/Print
* from Finder). -- This is needed so that a new app doesn't
* accidentally act on message $11 after transferring out of
* an old application that didn't know about the new message.
*
****************************************************************

	blanks off
	string asis

	print push
	print off
	include 'all.macros'
	include '::sys.equs.asm'
	INCLUDE 'e16.memory'

	include 'tl.equates.asm'
	print pop


	title ' Imported Addresses'
;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

	IMPORT EndCall4
	IMPORT EndCall8
	IMPORT ErrOut4
	IMPORT ErrOut8
	IMPORT oBusyErr4
	IMPORT oEndCall0

	eject
****************************************************************
*
MessageCenter	PROC EXPORT
*
* Description
*
*
;   IN:    PUSH:WORD - Action:
;	                  1	= Add message.
;	                  2	= Get message.
;	                  3	= Delete message.
;          PUSH:WORD - Type.
;          PUSH:LONG - Handle.
;
;  OUT:    None.
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

;
;
; --- Direct page and stack offsets ----------------------------------
;
pointer	equ 0
hand1	equ pointer+4
hand2	equ hand1+4
;
directPage	equ hand2+4
longRet1	equ directPage+2
longRet2	equ longRet1+3
;
theHandle	equ longRet2+3
theType	equ theHandle+4
theAction	equ theType+2
endStack	equ theAction+2
;
;
; --- Message record offsets --------------------------------------------
;
messNext	equ 0	Handle of next message.
messType	equ messNext+4	Message type.
messData	equ MessType+2	Message defined data.
;
messageID	equ $9001	Memory manager ID number.

*** added 2-Dec-91 DAL -- when deleting message 1, also delete $11
sTheHandle	equ 7	;offsets into stack
sTheType	equ sTheHandle+4
sTheAction	equ sTheType+2

	lda sTheAction,s
	cmp #3	;delete
	bne @notKludge
	lda sTheType,s
	dec a
	bne @notKludge

	pea 3	;action=delete
	pea $0011	;message = new Types msg
	phx
	phx	;handle = ignored
	_MessageCenter
@notKludge
*** end 2-Dec-91

;
; --- Initialize direct page ------------------------------------------
;
	phd	Save original direct page.
;
	tsc	Make room on stack for local direct page.
	sec
	sbc #directPage
	tcs
;
	inc a	(Direct offset is one more than stack.)
	tcd	Switch to direct page in stack.
;
;
; --- Dispatch message task ------------------------------------------
;
	lda <theAction
	dec a
	asl a
	tax
	jsr (messTasks,x)
	tax	Put error code in x.
;
;
; --- Clean up stack and exit ----------------------------------------
;
	lda <longRet1	Move return addresses down over
	sta <endStack-6	the parameters passed.
	lda <longRet1+2
	sta <endStack-4
	lda <longRet1+4
	sta <endStack-2
;
	lda <directPage	Restore original direct page.
	tcd
;
	tsc	Free local stack space.
	clc
	adc #endStack-6
	tcs
;
	txa	Return error code in A.
	cmp #1	Set return error flag.
	rtl
;
;
;
messTasks	DC.W addMessage
	DC.W getMessage
	DC.W delMessage
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = =
;          Add a message to the message	queue.
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = =
;
;  OUT:    a = error code.
;
addMessage		; 
;
	jsr delMessage	First, try to delete exsisting message.
;	                  Error doesn't matter.
;
; --- Allocate a handle and clone the given message ------------------------
;
	lda <theHandle	Set handle of message tobe cloned.
	sta <hand1
	lda <theHandle+2
	sta <hand1+2
;
	pha	Space for result.
	pha
	pea 0	Pass size of needed	handle.
	pea 2	(Will be resized anyway.)
	pea MessageID	Pass ID number to use.
	pea attrNoSpec	Anywhere but special.  (3 Apr 89)
	pha	Address, anywhere.
	pha
	_NewHandle
	plx
	stx <theHandle
	plx
	stx <theHandle+2
	bcs exit100
;
	jsr cloneMessage	theHandle = hand1.
	bcs exit100
;
;
; --- Link the new message into the message queue --------------------
;
	jsr getFirst	hand1 = handle of first message.
;
	pei <hand1+2	Save handle of first message.
	pei <hand1
;
	lda <theHandle	New handle must be a real handle.
	ldx <theHandle+2
	jsr deref
;
	pla	Current first message will be after
	sta [<pointer]	new message.
	pla
	sta [<pointer],y
;
	iny	Set the type field.
	iny
	lda <theType
	sta [<pointer],y
;-----------------------------------------------------------
;
; Kludge to fix Bug In Finder 1.0, 1.1 and 1.2
;
	cmp #2	; is the message the desktop pattern message?
	bne NoKludge

	pha	; what is the handle size
	pha
	pei <hand1+2
	pei <hand1
	_GetHandleSize
	pla
	plx
	bne NoKludge	; if its > $10000, it cannot right but need not be adjusted
	cmp #$28	; if it is >= $28 then it is OK
	bcs NoKludge

	PushLong #$28	; Make it $28
	pei <hand1+2
	pei <hand1
	_SetHandleSize

	lda <hand1	; deref the new handle
	ldx <hand1+2
	jsr deref

	ldy #$08	; copy the lower half of the pattern into
	ldx #$18	; the upper half of the pattern
@Loop	lda [Pointer],y
	phy
	txy
	sta [Pointer],y
	tyx
	ply
	iny
	iny
	inx
	inx
	cpy #$18
	bcc @Loop

NoKludge

;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = =
;          Set new first handle in message gueue.
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = =
;
;   IN:    hand1 = handle of first message.
;
setNewFirst		; 
;
	pea 0	System.
	pea 2	Memory manager.
	pei <hand1+2	New first message.
	pei <hand1
	_SetWAP
exit100	rts	Return error flag from SetWAP.
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = =
;          Get a message from the message queue.
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = =
;
;  OUT:    a = error code.
;
getMessage		; 
;
	jsr findMessage	Find the message.
	bcs exit200	Was the message found?
;
;
;   IN:    hand1 = handle of message to	clone.
;          theHandle = handle of cloned	message.
;
;  OUT:    Carry set if error and A equals error code.
;
cloneMessage		; 
;
	pha	Space for result.
	pha
	pei <hand1+2	Pass handle of found message.
	pei <hand1
	_GetHandleSize	Get the size of the	message.
	ply
	plx
	bcs exit200
;
	sty <hand2	Keep size in 'hand2'.
	stx <hand2+2
;
	phx	Pass size of message.
	phy
	pei <theHandle+2	Pass the handle given by caller.
	pei <theHandle
	_SetHandleSize	Given handle = size	of message.
	bcs exit200
;
	pei <hand1+2	Pass handle of found message, source.
	pei <hand1
	pei <theHandle+2	Pass the handle given by caller.
	pei <theHandle
	pei <hand2+2	Pass number of bytes to copy.
	pei <hand2
	_HandtoHand
exit200	rts
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = =
;          Delete a	message from the message queue.
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = =
;
;   IN:    theType = message type to delete.
;
;  OUT:    Carry clear if deleted, set if not found.
;          a = error code.
;
delMessage		; 
;
	jsr findMessage
	bcs exit300	Was the message found?
;
;
; hand1 = message to delete.
; hand2 = previous message.
; pointer = (hand1).
;
	pei <hand1+2	Pass dead message handle
	pei <hand1	to _DisposeHandle.
;
;
	lda [<pointer]	Get handle of message after dead message.
	sta <hand1
	ldy #2
	lda [<pointer],y
	sta <hand1+2
;
	lda <hand2	Was there a previous message?
	ora <hand2+2
	bne relink
;
	jsr setNewFirst
	bra exit301
;
;
relink	lda [<hand2]	Dereference preivous message handle.
	sta <pointer
	lda [<hand2],y
	sta <pointer+2
;
	lda <hand1	Message after dead message, is now
	sta [<pointer]	the message after the previous message.
	lda <hand1+2
	sta [<pointer],y
;
;
exit301	_DisposeHandle	Free dead message (handle on stack).
;	                  Return error from DisposeHandle.
exit300	rts
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = =
;          Get first handle in message gueue.
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = =
;
;   IN:    None.
;
;  OUT:    hand1 = handle of first message.
;          hand2 = zero.
;          pointer = (hand1)
;          BEQ if no first message.
;
getFirst		; 
;
	stz <hand2
	stz <hand2+2
;
	pha	Space for result.
	pha
	pea 0	System.
	pea 2	Memory manager's.
	_GetWAP
	pla	Handle of first message.
	plx
;
;
; = = = = = = = = =	= = = = = = = = = =
;          Dereference handle.
; = = = = = = = = =	= = = = = = = = = =
;
;   IN:    a = low word of handle.
;          x = high	word of handle.
;
;  OUT:    hand1 = given handle.
;          pointer = (hand1).
;          y = 2.
;          BEQ if hand1 was zero.
;
deref	sta <hand1
	stx <hand1+2
;
	lda [<hand1]	Dereference the message handle.
	sta <pointer
	ldy #2
	lda [<hand1],y
	sta <pointer+2
;
	lda <hand1
	ora <hand1+2
	rts
;
;
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = =
;          Find a message in the message gueue.
; = = = = = = = = =	= = = = = = = = = =	= = = = = = = = =
;
;   IN:    theType = message type to delete.
;
;  OUT:    Carry clear if found:
;            hand1 = handle of message found.
;            hand2 = handle of message before found message	(zero if first).
;            pointer = (hand1)
;          Carry set if not found:
;            a = error code.
;
findMessage		; 
;
	jsr getFirst	Get handle of first	message.
	beq exit401	Are there any messages?
;
lop400	lda [<pointer],y	(Get high word handle of next message)
	tax	(while Y is set correctly.)
;
	iny	Match type.
	iny
	lda [<pointer],y	This message's type.
	cmp <theType	Match?
	clc	Found flag, just in	case.
	beq exit400
;
	lda <hand1	Remember previous handle.
	sta <hand2
	lda <hand1+2
	sta <hand2+2
;
	lda [<pointer]	Get handle of next message.
;	                  X	already equals high	word.
;
enter400	jsr deref
	bne lop400	Any more messages?
;
exit401	lda #MessNotFound
	sec	Message not found flag.
exit400	rts

	ENDP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/tl/loading.asm b/IIGS.601.SRC/GSToolbox/tl/loading.asm
new file mode 100644
index 0000000..6ea5509
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/tl/loading.asm
@@ -0,0 +1 @@
+	title 'Tool Locator--Tool Loading'
****************************************************************
*			   *
*	   Tool Loading		   *
*			   *
****************************************************************


****************************************************************
*			   *
*	Copyright (C) 1985-1989	   *
*	All Rights Reserved		   *
*	Apple Computer, Inc.	   *
*			   *
****************************************************************

**********************************************************************
*
* Change History
*
* 15 Mar 89	Steven Glass
*
* UnloadThisTool no longer can cause a system death.  It used to
* die on unexpected loader errors.  There are now just ignored.
*
* 07 Apr 89	Steven Glass
*
* Added range check to UnloadThisTool
*
* 4/6/90	Mensch
* Fixed range check in UnloadThisTool it will now correctly test the
* current TPT.
*
* 18-Nov-90	Dave Lyons
*
* Changed CheckVersion to reflect new definition of version bits 14-12.
* These flag special things about the tool version.
*
* 3-Dec-91	Dave Lyons
*
* Changed LoadThisTool to always prompt for boot disk (state of Cancel
* button is not forced).
*
* 16-Dec-91	Dave Lyons
*
* Fixed capitalization of StartChars string (*/System/Tools/Tool),
* since the Loader now makes the original capitalization visible
* through LGetPathname[2].
*
* Added ReportIfMissing to LoadTools, to tell user what tool they
* need to install.
*
* 17-Dec-91	Dave Lyons
*
* Changed Quit to Continue in ReportIfMissing.
*
**********************************************************************
*
* 7-Jul-92	Dave Lyons for 6.0.1
*
* Changed ReportIfMissing to never complain that a tool that is
* present is missing just because the version is too low.
*
**********************************************************************

	blanks off
	string asis

	print push
	print off
	include 'all.macros'
	include '::sys.equs.asm'
	INCLUDE 'e16.memory'

	include 'tl.equates.asm'
	print pop




	title ' Imported Addresses'
;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

	IMPORT BusyErr4

	eject
****************************************************************
*
LoadTools	PROC EXPORT
*
*         Pointer to ToolTable
*
* where ToolTable looks
*
*              dc i'NumTools'
*              dc i'ToolNum1,MinVersion1'
*              dc i'ToolNum2,MinVersion2'
*              .
*              .
*              .
*
*
* The tools are kept in the subdirectory TOOLS in the system
* subdirectory with	the following naming convention:
*
*          Tool015	 for tool set 15
*          Tool023	 for tool set 23
*
* etc.
*
* Tools 1 through 13 are in ROM.  The only parts of them that
* will be in RAM are not loaded in this	way but are part of	the
* patch mechanism.
*
*
*
*
* Inputs:
*	ToolTablePtr : Long
*
* Outputs:
*	none
*
* External Refs:
	import GetSpecialFlag
	import LoadThisTool
	import ReportIfMissing	;16-Dec-91 DAL
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* Change History
*
* 05 Oct 87    Steven Glass
*
*    Changes were made to this call to accomdate new calling
*    structure for LoadThisTool.  Additionally, changes were
*    made to get rid of the special memory global variable.
*
*    Finally, this call was adjusted to	use the new exit
*    routines.
*
****************************************************************


	DefineStack
Counter	word
SpecialFlag	word
CurPtr	long
OrigD	word
RTL1	block 3
RTL2	block 3
ToolTablePtr	long

	phd	; save direct
	lda #0	; put eight extra bytes on stack
	pha	; (all zeros)
	pha
	pha
	pha
	tsc	; get stack
	tcd	; set stack to zp

	jsl IncBusyFlg

	phb	; save and set data	bank
	phk
	plb

	jsr GetSpecialFlag	; init the special flag.
	sta SpecialFlag

	lda ToolTablePtr	; init CurPtr
	clc
	adc #2
	sta CurPtr
	lda ToolTablePtr+2
	adc #0
	sta CurPtr+2

Loop	lda Counter	; test counter to see if we are
	cmp [ToolTablePtr]	; done.
	bcs AllDone


	pha	; space for result
	lda [CurPtr]	; Push Tool Number
	pha
	ldy #2	; Push min version from table
	lda [CurPtr],y	; 
	pha
	pei SpecialFlag
	jsr LoadThisTool	; get it loaded
	plx
	stx SpecialFlag
	bcs ErrorOut	; if error occured,	quit.

	lda CurPtr	; bump pointer into	table
	clc
	adc #4
	sta CurPtr
	lda CurPtr+2
	adc #0
	sta CurPtr+2

	inc Counter	; bump counter
	bra Loop

AllDone		; 
	lda #0	; signal no error and fall into
;		; error out routine

ErrorOut
	plb	; restore DBR
	tax
*** added 16-Dec-91 DAL -- put up a nice missing-tool dialog
	lda [CurPtr]
	jsr ReportIfMissing
*** end 16-Dec-91

	ply	; clean up the stack
	ply
	ply
	ply
	jml BusyErr4

	ENDP


****************************************************************
*
* ReportIfMissing -- new routine 16-Dec-91 DAL for 6.0d62
*
* Input: A = tool number, X = error code
*
* Registers are preserved.
*
****************************************************************
ReportIfMissing	proc export

	cpx #$0046	;file not found?
	bne @noMessage

	pha
	phx
	phy

*** added 7-Jul-92 DAL -- Don't complain that a loaded tool is missing just
***                       because the version is too low.
	lda 5,s	;tool number
	ora #$0400	;xxxVersion
	tax
	pha	;space for result
	jsl $e10000
	pla	;discard result
	bcc @noMsg

	lda 5,s
*** end 7-Jul-92

	pha	;tool # for Int2Dec
	pushlong #toolNumTxt
	pea 3	;3 character length
	pea 0	;unsigned
	_Int2Dec

	sep #$20
	longa off
	lda >toolNumTxt+0
	cmp #$20	;blank
	bne @notBlank1
	lda #$30	;zero
	sta >toolNumTxt+0
@notBlank1	lda >toolNumTxt+1
	cmp #$20	;blank
	bne @notBlank2
	lda #$30	;zero
	sta >toolNumTxt+1
@notBlank2	rep #$20
	longa on

	pha	;space for TLTextMountVol result
	pushlong #missingLine1
	pushlong #missingLine2
	pushlong #nullText
	pushlong #OKStrText
	_TLTextMountVolume
	pla	;discard result

@noMsg	ply
	plx
	pla
@noMessage	rts

missingLine1	dc.b 30,'This application needs Tool'
toolNumTxt	dc.b '000'
missingLine2	dc.b 27,'in the System:Tools folder.'

; text OK button string for TLTextMountVolume
; spaces push Button2 (left button) to the right (to right-justify it)
;   (canÕt be Button1 because escape chars are counted in Button1Õs right justification!)
; $1B: ESC to enable mousetext in the firmware
; $0F: turns on Inverse
; ÔMÕ is mousetext for return char
; $0E: turns off inverse
; $18: Ctrl-X to disable mousetext in the firmware
OKStrText	dc.b EndOKStrText-*-1,'                       Continue '
	dc.b $0f,$1b,'M',$0E,$18
EndOKStrText

nullText	dc.b 0

	EndP


	title 'LoadOneTool'
****************************************************************
*
LoadOneTool	PROC EXPORT
*
* Assures that the specified tool is available and has a version 
* number equal to or greater than MinVersion.  If the tool is not
* loaded when the call is made it trys to load the tool from disk.
*
* If the tool is not on disk or the required version is not available
* errors are returned.
*
*
* Inputs:
*         ToolNumber : word
*         MinVersion : word
*
* Outputs:
*	none
*
* External Refs:
	import GetSpecialFlag
	import LoadThisTool
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
*
* Change History
*
*   05 Nov 86   SEG	   The Stack equates were off by one.  The
*	   data bank register was not accounted	for.
*
*   05 Oct 87   SEG	   Uses direct page	addressing instead of 
*	   stack.
*
*	   Uses new format of LoadThisTool call.
*
*	   Uses new exit routines.
*
*   14 Oct 87   SEG	   Extra D-reg no longer left on stack.
*
****************************************************************


	DefineStack
OrigD	word
RTL1	block 3
RTL2	block 3
MinVersion	word
ToolNumber	word

	phd	; save direct
	tsc	; get stack
	tcd	; set stack to zp

	jsl IncBusyFlg

	phb
	phk
	plb

	pha	; space for result
	pei ToolNumber
	pei MinVersion
	jsr GetSpecialFlag
	pha
	jsr LoadThisTool	; get it loaded

	plx	; ignore the result

	plb	; restore dbr

	tax	; error code in x
	jml BusyErr4

	ENDP


	title 'UnloadOneTool'
****************************************************************
*
UnLoadOneTool	PROC EXPORT
*
* Unloads the specified tool in the following way:  If it was
* loaded from disk it calls the Loader to put it in zombie state
* and installs a dummy tool table for the specified tool.
*
* If the tool was not loaded from disk, this proc does nothing.
*
*
* Inputs:
*	ToolNumber : integer
*
* Outputs:
*	none
*
* External Refs:
	import SetupForUnload
	import CleanupForUnload
	import UnloadThisTool
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* Change History
*
* 05 Oct 87    Steven Glass
*
*    This call was adjusted to use the new exit routines.
*
*    No changes were need to make this run in ROM.  Many changes
*    were made however to adjust this to the new tool loading
*    algorithm.  
*
****************************************************************



RTL1	equ 1
RTL2	equ RTL1+3
ToolNumber	equ RTL2+3


	jsl IncBusyFlg

	lda ToolNumber,s


	DefineStack
OrigD	word
RealTPT	long
DefaultTPT	long
Counter	word

	jsr SetupforUnload	; preserves a-reg

	sta Counter

	jsr UnloadThisTool

	jsr CleanupForUnload

	tax

	ldy #2
	jml ToBusyStrip

	ENDP

	title 'SetDefaultTPT'
****************************************************************
*
SetDefaultTPT	PROC EXPORT
*
* Makes the current TPT the default TPT by making a copy of it.
* To do this we first size the default TPT, then copy the 
* real TPT to the default one.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
	import SetupForUnload
	import CleanupForUnload
	import TLGetMem
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* Change History
*
* 05 Oct 87    Steven Glass
*
*    This call was added to support new	tool loading algorithm.
*
****************************************************************

	DefineStack
OrigD	word
RealTPT	long
DefaultTPT	long
Counter	word

;---------------------------------------------------
;
; Set things up.  Inc busy flag and use	same routine
; as used for unloading to setup stack as d-page.
;

	jsl IncBusyFlg

	jsr SetupForUnload

;---------------------------------------------------
;
; First make the default table the same	size as
; the real table.
;

	lda DefaultTPT
	ora DefaultTPT+2
	beq NoneToDispose

	pha	; start by finding the handle
	pha	; to the default tpt memory
	pei DefaultTPT+2
	pei DefaultTPT
	_FindHandle
	_DisposeHandle	; and disposing it

NoneToDispose	lda [RealTPT]	; Now get size of the real
	asl a	; tpt by taking num	entries
	asl a	; times 4
	ldx #attrNoSpec+attrLocked ; Get handle	of this size and 
	jsr TLGetMem	; these attributes
	sta DefaultTPT	; Deref handle and put ptr
	stx DefaultTPT+2	; in place.
	lda [DefaultTPT]
	tax
	ldy #2
	lda [DefaultTPT],y
	sta DefaultTPT+2
	sta >DefaultTPTPtr+2
	stx DefaultTPT
	txa
	sta >DefaultTPTPtr


;---------------------------------------------------
;
; Now copy the contentes of the real table to the
; default table.
;
	lda [RealTPT]
	asl a
	asl a
	tay
	dey
	dey

Loop	lda [RealTPT],y
	sta [DefaultTPT],y
	dey
	dey
	bpl Loop


;---------------------------------------------------
;
; Clean everything up.
;
	jsr CleanupForUnload


	ldx #0
	ldy #0
	jml ToBusyStrip

	ENDP


	title 'GetSpecialFlag'
****************************************************************
*
GetSpecialFlag	PROC
*
* Returns value of SpecialMemory flag in a-reg.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* Change History
*
* 05 Oct 87    Steven Glass
*
*    This call no longer sets a global variable, but rather
*    returns with the value fo that variable in the a-reg.
*
*    The name of this routine was changed from SetSpecialFlag
*    to GetSpecialFlag.
*
****************************************************************


	pha
	pha
	_TotalMem
	pla
	pla
	cmp #^256*1024
	beq BaseMachine

	pha
	pha
	_FreeMem
	pla
	pla
	cmp #^200*1024
	bcc NotEnough

	lda #$8000
	rts

NotEnough		; 
BaseMachine		; 
	lda #0
	rts


	ENDP


	title 'LoadThisTool'
****************************************************************
*
LoadThisTool	PROC
*
*
* Loads the tool, installs it, checks its version number 
* against the min required.
*
* How its done
*
*     Version is checked for desired tool.  If the currently installed
*     tool has a good enough version number, we are done.  If the version 
*     number is bad or the tool is not installed we try and load
*     the tool from disk as follows:
*
*       First try a restart in case the tool is alread in memory.  If this
*       works, install the tool, do the version check and quit
*
*       If the tool cannot be restarted, create the pathname 
*       of the the tool to load.
*
*       Use the specialFlag to decide how to load the tool (special
*       mem or not).  If a non special mem load fails, try again in 
*       special.
*
*       Install the TPT that is at the start of the load file.
*
*       Verify the version number.
*
*     Many different errors can be returned:
*
*       Any loader errors including volume not found and not enough memory.
*       The version error can also be returned.
*
*
*
* Inputs:
*     ToolNumber	           : word
*     MinVersion	           : word
*     SpecialFlag	           : word
*
* Outputs:
*     NewValue of SpecialFlag  : word
*
* External Refs:
	import TLGetMem
	import MakeIDNum
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* Change History
*
* 29 January 87    Steven Glass
*
*    When a prodos error occured I was comparing the error code to $0201
*    (memfull).  When not equal I was trying to exit with error code in
*    A-reg but compare cleared carry causing all sorts of grief.
*
*
* 05 Oct 87    Steven Glass
*
*    Adjustments were necessary to run out of ROM.
*    This routine now has inputs and outputs on the stack.	It
*    does not use inline data storage.
*
*    Version checking is now in-line rather than a subroutine
*    call.  This made it possible to share local variables
*    and since no other routine was using this code, it saved
*    the JSR/RTS.
*
*    MakeToolPath is now part of this routine.  It was never
*    called by any other routine and making it part of this
*    routine makes it easier to share local data.
*
*    The tool path name is now created in a handle rather than
*    in line.  The handle is obtained by MakeToolPath and
*    disposed of during clean up.
*
****************************************************************


	DefineStack
PathHandle	long
PathPtr	long
OrigD	word
RTSAdr	word
TheSpecialFlag	word
TheMinVersion	word
TheToolNumber	word
ResultSpecialFlag	word


;---------------------------------------------------
;
; Save, direct reg,	get space for locals and 
; turn stack into direct page.
;

	phd	; save direct
	lda #0	; put zeros on stack
	pha	; for path handle and
	pha	; ptr
	pha
	pha
	tsc	; turn stack into 
	tcd	; direct page

;---------------------------------------------------
;
; Check to see if this is a tool we have to load.
; If the version number checks out then	there is
; nothing else to do.  If the version does not
; check out, then try to load it from the 
; system disk.
;
	jsr CheckVersion
;;;	bcc FastExit
	bcs @noFastExit
	brl FastExit
@noFastExit

*** added 3-Dec-91 DAL -- prompt for boot disk if needed
	_GetSysPrefsGS oldPrefs
	lda >oldPrefs+2
	and #$5fff	;keep the reserved bits and the Cancel state
	ora #$8000	;turn on Use Volume Mount Dialog
	sta >myPrefs+2
	_SetSysPrefsGS myPrefs
*** end 3-Dec-91

	lda <TheToolNumber	; line added 18-Nov-90 DAL
	cmp #17	; the loader is never loaded
	beq DoNotLoad	; from disk

;---------------------------------------------------
;
; Try Restart, just	in case it is already in 
; memory.
;

	lda TheToolNumber
	jsr MakeIDNum

	phx	; space for zp segment size
	phx	; space for zp segment starting address
	phx	; space for starting address
	phx
	phx	; make space for returning user id
	pha	; push the id of the tool
	_RESTART
	bcc SkipInitialLoad

	pla	; clear off junk id
	pla	; clear off junk starting addr
	pla
	pla	; clear off junk zp	seg
	pla	; clear off junk zp	size

;---------------------------------------------------
;
; Restart failed, so make pathname of tool to load
;

	jsr MakeToolPath	; make tool path uses ts num in a-reg
	bcs LoadError

;---------------------------------------------------
;
; First look at the	SpecialFlag.  If it	is clear
; then don't try to	load outside of special memory
; (we already know that it won't work).
;
	ldx TheSpecialFlag
	beq TooSmall
	jsr DoInitialLoad	; load into non special memory
	bcc LoadOK
	cmp #MemFullError
	bne LoadError
	stz TheSpecialFlag	; don't try this again
	ldx TheSpecialFlag
TooSmall	jsr DoInitialLoad
	bcs LoadError
	bcc LoadOK

;---------------------------------------------------
;
; Restart was successful, make stack look same
; as if called DoInitialLoad.
;
SkipInitialLoad	pla	; don't need user id
	plx	; need starting addr
	ply
	pla	; don't need zp adr
	pla	; don't need zp size

LoadOK


;---------------------------------------------------
;
; Install the tool
;
	PushWord #0	; System Flag
	pei TheToolNumber	; Tool number
	phy	; Table Address
	phx
	_SetTSPtr
	bcs InstallError


DoNotLoad	jsr CheckVersion	; any error will be	in a-reg

;---------------------------------------------------
;
; Copy the final value for SpecialFlag from to
; result word, and clean up the stack.

LoadError
InstallError

*** added 3-Dec-91 DAL -- restore OS preferences
	pha	;save error code
	_SetSysPrefsGS oldPrefs
	pla	;retrieve error code
*** end 3-Dec-91

FastExit	ldx TheSpecialFlag
	stx ResultSpecialFlag

	pha	; save the error code
	lda PathHandle
	ora PathHandle+2
	beq NoHandle
	pei Pathhandle+2
	pei Pathhandle
	_DisposeHandle

NoHandle	pla	; get error code

	plx	; strip off 4 words	of local vars
	plx
	plx
	plx
	pld	; restore direct page
	ply	; get rts adr in y-reg for momment
	plx	; pull 3 input words off stack
	plx
	plx
	phy	; put rts adr back on stack

	cmp #1	; set carry based on error code
	rts

*** added 3-Dec-91 DAL
oldPrefs	dc.w 1	;1 parameter
	dc.w 0	;the old SysPrefs

myPrefs	dc.w 1
	dc.w 0	;my modified preferences
*** end 3-Dec-91

;---------------------------------------------------
;
; Local routine to handle making the intial load
; call.
;
; Inputs:
;    TheToolNumber
;    TheSpecialFlag
;
; Outputs:
;    x-reg   Low word of address of tool
;    y-reg   High word of address of tool
;    a-reg   Error code from InitialLoad call
;    carry   set if	error, clear if none.
;    
;
DoInitialLoad	lda TheToolNumber	; get ID num back
	jsr MakeIDNum
	phx	; space for zp segment size
	phx	; space for zp segment starting address
	phx	; space for starting address
	phx
	phx	; space for userid
	pha	; Push the Tools userID
	pei PathPtr+2	; Push pointer to the path name
	pei PathPtr
	pei TheSpecialFlag	; special memory flag
	_InitialLoad
	sta 9,s	; save any error over zp size on stack
	pla	; don't need user id
	plx	; need starting addr in x,y
	ply
	pla	; don't need zp adr
	pla	; put error (if any	back in a-reg)

	rts


*** old way  18-Nov-90 DAL
*** old way
*** old way	CheckVersion
*** old way	;---------------------------------------------------
*** old way	;
*** old way	; Check the version	of the tool installed to
*** old way	; be sure it is high enough.
*** old way	;
*** old way	; The Tool Set number and the Min required version are
*** old way	; on direct page.
*** old way	;
*** old way	; I use the tool set number to make a version call.  If an error
*** old way	; occurs, I return it.
*** old way	;
*** old way	; Using the version	number that has returned, I mask off the
*** old way	; high bit and start comparing.
*** old way	;
*** old way	; If the major part	of the version number is greater than the
*** old way	; minimum required version, the compare	is complete.  If the
*** old way	; major part of the	version number is the same as the required
*** old way	; version number then I go on to compare the minor part.
*** old way	;
*** old way	
*** old way	TempStorage	equ 3
*** old way	RealVersionNum	equ 1
*** old way	
*** old way		pha	; space for temp storage.
*** old way		pha	; space for version	call result.
*** old way		lda TheToolNumber	; get tool number and make into
*** old way		ora #$0400	; version call
*** old way		tax
*** old way		jsl $E10000	; (this will be RealVersion)
*** old way		bcs FixStack
*** old way	
*** old way		lda RealVersionNum,s ; clear the high bit that means
*** old way		and #$7FFF	; prototype
*** old way		sta RealVersionNum,s
*** old way		and #$FF00	; start with major version
*** old way		sta TempStorage,s
*** old way	
*** old way		lda TheMinVersion	; get desired version
*** old way		and #$FF00
*** old way		cmp TempStorage,s
*** old way		bcc AllIsWell
*** old way		beq CheckMinor
*** old way	
*** old way	VersionError	lda #BadVersionNum
*** old way		bra FixStack
*** old way	
*** old way	CheckMinor	lda RealVersionNum,s ; get the minor part
*** old way		and #$00FF
*** old way		sta TempStorage,s
*** old way		lda TheMinVersion
*** old way		and #$00FF
*** old way		cmp TempStorage,s
*** old way		beq AllIsWell
*** old way		bcs VersionError
*** old way	
*** old way	;---------------------------------------------------
*** old way	;
*** old way	; The version checked out okay.  Set error code
*** old way	; to zero and fall into clean up code.
*** old way	;
*** old way	
*** old way	AllIsWell		; 
*** old way		lda #0	; No Error
*** old way	
*** old way	FixStack	plx
*** old way		plx
*** old way	
*** old way		cmp #1
*** old way		rts

**********************************************************************************
*
* CheckVersion
* 18-Nov-90 DAL
*
* Inputs:  TheToolNumber, TheMinVersion
*
* Output:  carry flag = clear if we're okay
*          A = error code
*
* Version Number format:
*
*  ---------------------------------
*  |P|f|f|f|m|m|m|m|v|v|v|v|v|v|v|v|
*  ---------------------------------
*      P = prototype bit
*      f = flag bits
*      m = major version
*      v = minor version
*
* The Prototype bit is ignored in version comparisons.
*
* The Flag bits are handled specially.  If you don't
* ask for a given flag, it doesn't affect the comparison
* at all.  But if you ask for one, it's required in the
* actual version.
*
CheckVersion	pha	; space for version	call result
	lda TheToolNumber	; get tool number and make into
	ora #$0400	; version call
	tax
	jsl $E10000	; (this will be RealVersion)
	bcc @1
	plx	;pull result space
	rts

@1	pla
	tay	;Y=copy of real version
	and #$7000
	eor #$7000	;Which flag bits are actually off?
	and <TheMinVersion	;Did we need any of them?
	bne @VersionError	;Oops, we did.

	lda <TheMinVersion
	and #$0fff
	pha
	tya	;Get real tool version back
	and #$0fff	;check major and minor versions
	cmp 1,s
	pla
	bcs @AllIsWell	;Version is at least equal to MinVersion

@VersionError	lda #BadVersionNum
	sec
	rts

@AllIsWell	lda #0	; No Error
	clc
	rts

;---------------------------------------------------
;
; MakeToolPath
;
; 1.  Gets memory to hold a pathname.  Handle
;     is put into PathHandle, and derefed into
;     PathPtr.
; 2.  Creates the path in PathHandle
;
;
MakeToolPath

;---------------------------------------------------
;
; First get memory and deref the handle.
;
	lda #PathSize
	ldx #attrLocked
	jsr TLGetMem
	bcc GotIt
	rts

GotIt	sta PathHandle
	stx PathHandle+2
	lda [PathHandle]
	sta PathPtr
	ldy #2
	lda [PathHandle],y
	sta PathPtr+2


;---------------------------------------------------
;
; Now copy the first part of the path name into
; the memory we've obtained.
;
	phb	; set bank to this code bank
	phk
	plb

	sep #$30	; switch to 8 bit mode
	longa off
	longi off

	ldy #PathSize-1	; move the string
MoveLoop	lda |ToolPath,y
	sta [PathPtr],y
	dey
	bpl MoveLoop

	rep #$30	; back to full native
	longa on
	longi on

	plb	; restore dbr.

;---------------------------------------------------
;
; Finish up the path name by converting	the tool
; number into ascii	characters at the end of the
; path name.

	pei TheToolNumber	; push the int
	lda PathPtr
	clc
	adc #o_OutChars
	tax
	lda PathPtr+2
	bcc NoCarry
	inc a
NoCarry	pha
	phx
	PushWord #3	; 3 character output
	PushWord #0	; unsigned
	_Int2Dec

;---------------------------------------------------
;
; Fix the path string so that any blanks left
; by _Int2Dec are converted to zeros.
;
	sep #$30
	longa off
	longi off
	ldy #o_OutChars
	lda [PathPtr],y
	cmp #' '
	bne NoMoreBlanks
	lda #'0'
	sta [PathPtr],y
	iny
	lda [PathPtr],y
	cmp #' '
	bne NoMoreBlanks
	lda #'0'
	sta [PathPtr],y

NoMoreBlanks	rep #$30
	longa on
	longi on

	clc	; signal no error

	rts


ToolPath	DC.B PathLength
StartChars	DC.B '*/System/Tools/Tool'
o_OutChars	equ *-ToolPath
PathLength	equ *-StartChars+3

PathSize	equ PathLength+1

	ENDP



	title 'UnloadTools'
****************************************************************
*
UnloadTools	PROC EXPORT
*
* The Default TPT is restored.  Any tools that are active 
* but not part installed in the default	TPT are made into
* zombies.
*
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
	import MakeIDNum
	import DummyTable
*
* Entry Points:
	ENTRY UnloadThisTool
	ENTRY SetupForUnload
	ENTRY CleanupForUnload
*
	longa on	; mode
	longi on
*
* Change History
*
* 05 Oct 87    Steven Glass
*
*    No changes were need to make this run in ROM.
*    However, many chnages were made to	this routine because
*    we changed the	UnloadTools algorithm.
*
*    In the original version of this routine, all tools not
*    in the original rom (1-13) except the loader (17) were
*    unloaded.  That is a user shutdown	call was made on 
*    them to put them in zombie state and a dummy call table
*    was installed.
*
*    In this version we do a little more work.  The idea here
*    is to restore the "default" TPT.  
*
* 14 Oct 87    Steven Glass
*
* The loader (tool 17) is never unloaded.
*
*
* 15 Mar 89	Steven Glass
*
* _UserShutdown returns some undocumented errors that can
* really cause trouble so we just now ignore all errors.
*
* 07 Apr 89	Steven Glass
*
* Added range check to UnloadThisTool so that DummyTable would
* not be stored beyond the end of the real tpt if an unload call is
* made for a tool not in the defaultTPT.
*
****************************************************************



	DefineStack
OrigD	word
RealTPT	long
DefaultTPT	long
Counter	word


;---------------------------------------------------
;
; Set things up.
;

	jsr SetupforUnload	; set up direct page


	lda #1	; init the counter
	sta Counter

;---------------------------------------------------
;
; Loop through each	tool installed.
;

Loop		; 
	lda Counter	; Check to see if we are done.
	cmp [RealTPT]
	bcs Done

	jsr UnloadThisTool	; no so unload this	one

	inc counter	; bump the counter
	bra Loop

Done

;---------------------------------------------------
;
; Update the count in the real table from the
; default table.  Note that the default	TPT may
; never be bigger than the real TPT.
;
	ldy #0
	jsr MoveToReal


;---------------------------------------------------
;
; Clean things up.
;

	jsr CleanupForUnload

	rts


;---------------------------------------------------
;
; UnloadThisTool
;
; Input
;    Counter  ToolNumber
;
; This is the routine that does the work for each
; tool to be unloaded.
;
UnloadThisTool

	lda Counter

	cmp #17	; is it the loader?
	bne continue	; No, so go on
	rts	; never unload the loader.

continue	cmp [DefaultTPT]	; is it in the default table?
	bcc InDefaultTable


;
; See if the tool is in the real table.  07 Apr 89  SEG
;
; 4/6/90	Mensch
; Fixed instruction below, was [RealTPT],y ....
;
	cmp [RealTPT]
	bcc ItsIn

	rts


ItsIn
;---------------------------------------------------
;
; This tool is not in the default table	so 
; install the dummy	table into the real	TPT
;
	lda Counter
	asl a
	asl a
	tay

	lda #DummyTable
	sta [RealTPT],y
	lda #^DummyTable
	iny
	iny
	sta [RealTPT],y
	bra ShutItDown


;---------------------------------------------------
;
; This tool is in the default table.  If it is 
; pointer is not the same in the real and the default
; then copy from default to real and shut the tool
; down.
;
InDefaultTable	lda Counter
	asl a
	asl a
	tay
	lda [DefaultTPT],y
	cmp [RealTPT],y
	bne Adjust
	iny
	iny
	lda [DefaultTPT],y
	cmp [RealTPT],y
	bne Adjust

	lda #0	;no error (added 26-Nov-90 DAL)

	rts

Adjust	lda Counter	; use counter to create table
	asl a	; offset used as input to 
	asl a	; movetoreal.
	tay
	jsr MoveToReal

ShutItDown		; 
; If the OS_Kind is not P16 then we skip this part.
	lda >OS_Kind
	and #$0001
	beq SkipShutDown

	pha	; space for result
	lda Counter
	jsr MakeIDNum
	pha	; ID to shut down
	PushWord #$4000	; leave me in memory as a ZOMBIE
	_UserShutdown	; ignore errors

	plx	; clear stack from user shutdown call

SkipShutDown	rts




;---------------------------------------------------
;
; SetupForUnload
;
; Routine to setup stack and d-page for	unloading 
; tools.  Must be ballenced by a CleanupForUnload
; call.
;
; Note that the a-reg is preserved by this routine.
;

SetupForUnload		;       
	plx	; get rts adr in x.
	tay	; preserve the a-reg
	pha
	pha
	pha
	pha
	pha
	phd

	tsc
	tcd

	lda >TPTPtr
	sta RealTPT
	lda >TPTPtr+2
	sta RealTPT+2

	lda >DefaultTPTPtr
	sta DefaultTPT
	lda >DefaultTPTPtr+2
	sta DefaultTPT+2

	phx	; put rts adr back.
	tya
	rts


;---------------------------------------------------
;
; CleanupForUnload
;
; Cleans up the stack and d-page after unload calls.
; Must follow a SetupForUnload call.
; 
; Preserves the a-reg.
;

CleanupForUnload	plx
	pld
	ply
	ply
	ply
	ply
	ply
	phx
	rts


;---------------------------------------------------
;
; MoveToReal
;
; Copies 4 bytes from the DefaultTPT to	the RealTPT
; starting from the	byte indicated by the y-reg.
;
MoveToReal	lda [DefaultTPT],y
	sta [RealTPT],y
	iny
	iny
	lda [DefaultTPT],y
	sta [RealTPT],y
	rts

	ENDP



****************************************************************
*
MakeIDNum	PROC
*
* Using the tool number in the a-register, return a
* UserID for the Loader to use for the tool.
*
*
* Inputs:
*	a-reg : tool num
*
* Outputs:
*	a-reg : UserID for tool.
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* Change History
*
* 05 Oct 87    Steven Glass
*
*    No changes were needed to make this run in ROM.
*
****************************************************************

	and #$00FF	; mask off high word
	ora #$4000	; or in word for tools
	rts
	ENDP


	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/tl/makefile b/IIGS.601.SRC/GSToolbox/tl/makefile
new file mode 100644
index 0000000..61fd1f1
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/tl/makefile
@@ -0,0 +1 @@
+tl.in.ram		Ä				¶
		tl.in.ram.asm.obj			¶
		loading.asm.obj		¶
		mount.asm.obj			¶
		textstate.asm.obj		¶
		MessageCenter.asm.obj		¶
		MsgByName.asm.obj		¶
		StartStop.asm.obj
	linkiigs 				¶
		tl.in.ram.asm.obj			¶
		loading.asm.obj		¶
		mount.asm.obj			¶
		textstate.asm.obj		¶
		MessageCenter.asm.obj		¶
		MsgByName.asm.obj		¶
		StartStop.asm.obj		¶
		::common:common.asm.obj	¶
	-o tl.in.ram
	
	
### Dependancies for components
tl.in.ram.asm.obj			Ä	tl.asm
	asmiigs tl.asm -d RAMVersion=1 -o tl.in.ram.asm.obj
Loading.asm.obj		Ä	Loading.asm
	asmiigs Loading.asm
Mount.asm.obj			Ä	Mount.asm
	asmiigs Mount.asm
TextState.asm.obj		Ä	TextState.asm
	asmiigs TextState.asm
MessageCenter.asm.obj		Ä	MessageCenter.asm
	asmiigs MessageCenter.asm
MsgByName.asm.obj		Ä	MsgByName.asm
	asmiigs MsgByName.asm
StartStop.asm.obj		Ä	StartStop.asm
	asmiigs StartStop.asm



tl.loader			Ä	tl.loader.asm.obj
	linkiigs tl.loader.asm.obj -o tl.loader

tl.loader.asm.obj	Ä	tl.loader.asm
	asmiigs tl.loader.asm
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/tl/mount.asm b/IIGS.601.SRC/GSToolbox/tl/mount.asm
new file mode 100644
index 0000000..6f0602e
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/tl/mount.asm
@@ -0,0 +1 @@
+	title 'Tool Locator--Mount'
****************************************************************************
*			               *
*	               Mount	               *
*			               *
****************************************************************************


****************************************************************************
*			   
*	CopyRight Apple Computer, Inc. 1985-1989	   
*	All Rights Reserved		   
*			   
*			   
* 21 Feb 89	Harry Yee		   
*
* Fixed problem in TLTextMountVolume and TLMountVolume. Before we were calling  
* GetNextEvent which caused problems if there happened to be a system window 
* beneath us. Key downs and mouse downs were never getting back to the tool locator    
* because they were passed onto the Desk Mgr via SystemEvent. Now I call GetOSEvent  
* which doesn't call the Desk Mgr and if there was a desk accessary event 
* i.e. <ctrl><open-apple><esc> I pass on this event to the Desk Mgr myself 
* via SystemEvent. BRC #41721. 
*
* Also for TLTextMountVolume we were not taking mouse downs or mouse ups. This
* caused problems if the user was clicking the mouse while in the text screen because
* when they finally returned to the program all the mouse events would be queued up.
* I now take mouse events and just discard them.
*
****************************************************************************


	blanks off
	string asis

	print push
	print off
	include 'all.macros'
	include '::sys.equs.asm'
	INCLUDE 'e16.memory'
	include 'e16.event'

	include 'tl.equates.asm'
	print pop




	title ' Imported Addresses'
;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

	IMPORT EndCall4
	IMPORT EndCall8
	IMPORT ErrOut4
	IMPORT ErrOut8
	IMPORT oBusyErr4
	IMPORT oEndCall0

	eject
****************************************************************
*
TLMountVolume	PROC EXPORT
*
* This is the mount	volume call that is	part of the tool
* locator.  Why is it part of the tool locator?  A very good
* question.  It is part of the tool locator because it
* needs to be loaded and stay loaded when other tools
* cannot be loaded.
*
* For example, an application calls load tools which fails
* because the the boot volume is not on	line.  The application
* cannot call a tool that is not loaded	to tell the user to
* insert the disk.
*
* So this routine does this work for the desk top application.
* It does not do the work for a text, lo res or hi-res
* application.  Such routines are left as exercises to the
* application writer.
*
* Assumptions:
*
*     1) QuickDraw is already initialized so I can safely make
*        QuickDraw calls.
*     2) Event Manager is already initialized so I can safely
*        make Event	manager calls.
*     3) Memory will be available.
*
*
* This routine actually makes no OS calls.  It just returns
* the button number	pressed by the user.  The application
* then can make the	call that failed again and see if it
* works.
*
* By not guarenteeing the volume is mounted this routine is
* more general (and	shorter).
*
*
*
* Inputs:
*              WhereX : word
*              WhereY : word
*              PromptPtr : long
*              VolPtr : long
*              OKPtr : long
*              CancelPtr : long
*
* Outputs:
*              ButtonSelected : word
*
* External Refs:
	import TLGetMem2
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* Change History
*
* 17 Jun 88	Steven Glass
*
* Removed internal copy of TLGetMem and used the global version.
* Why we had a separate copy, I don't know.
*
*
* 06 Jan 89	Steven Glass
*
* Added error checking to routines that allocate memory.  If
* error occurs, we try to call TLTextMountVolume.
*
****************************************************************

;
; Equates for dialog
;

DialogWidth	equ 280
DialogHeight	equ 65
ButWidth	equ 115
ButHeight	equ 13
Size320	equ DialogHeight*(8+DialogWidth)/2
Size640	equ DialogHeight*(16+DialogWidth)/4
Width320	equ 2+(DialogWidth/2)
Width640	equ 4+(DialogWidth/4)
LeftFace	equ 15
PromptX	equ LeftFace
PromptY	equ 15
VolX	equ LeftFace
VolY	equ 30
TopFace	equ 22	; space from bottom	of dialog to
OKy	equ DialogHeight-TopFace+ButHeight-3
Cancely	equ DialogHeight-TopFace+ButHeight-3





;
; Local Data
;
	DefineStack

SaveHandle	long

EvtWhat	word
EvtMessage	long
EvtWhen	long
EvtWhere	long
EvtModifiers	word
TheEvent	equ EvtWhat

OrigPort	long
SizeofSaveSpace	long	; this is size of handle
MountPortHandle	long
MountPortPtr	long

SaveSCB	word	; ds 2
PtrToSaveSpace	long	; ds 4	       ; pointer to	memory
SaveWidth	word	; ds 2
SaveBounds	block 8	; dc i'0,0,200,640'
SaveLocInfo	equ SaveSCB

SrcRect	block 8
DialogRect	equ SrcRect

InnerDRect	block 8

HLRect	block 8
HiliteFlag	word

WhichButton	word


OrigD	word

; Stack on entry
;
RTL1	block 3
RTL2	block 3
CancelPtr	long
OKPtr	long
VolPtr	long
PromptPtr	long
WhereY	word
WhereX	word
Result	word

SizeLocals	equ OrigD-1

	eject

	phd
	tsc
	sec
	sbc #SizeLocals
	tcs
	tcd

	phb
	phk
	plb

	jsl IncBusyFlg

	pha
	pha
	_GetPort


	lda #180
	ldx #$C000	; locked and fixed
	jsr TLGetMem2
	bcc @2
	brl MemError1
@2

	sta MountPortHandle
	stx MountPortHandle+2
	lda [MountPortHandle]
	sta MountPortPtr
	ldy #2
	lda [MountPortHandle],y
	sta MountPortPtr+2

	pei MountPortPtr+2
	pei MountPortPtr
	_OpenPort
	bcc @1
	brl PortError
@1

;------------------------------------------------------
;
; First I need to figure out how big the rectangle
; that will be saved is so I can get a handle for it.
;
	lda [MountPortPtr]
	sta SaveSCB	; put this in the save LocInfo
	and #$0080
	beq Mode320

	lda #Width640
	sta SaveWidth
	lda #Size640
	bra GotSize

Mode320	lda #Width320
	sta SaveWidth
	lda #Size320

GotSize	sta SizeofSaveSpace
	stz SizeofSaveSpace+2


;-------------------------------------------------
;
; Fix SaveLocInfo's	bounds rect.  This bounds
; rect is identical	to the destrect.
;
	ldy #DestRect
	ldx #SaveBounds
	jsr MoveRect


;------------------------------------------------------
;
; Set up important variables.  First SourceRect and
; InnerDRect are calculated from WhereX, WhereY and
; size contants.  InnerDRect is then calculated by
; inseting its initial value.
;
	lda WhereX
	sta SrcRect+2
	sta InnerDRect+2
	clc
	adc #DialogWidth
	sta SrcRect+6
	sta InnerDRect+6

	lda WhereY
	sta SrcRect
	sta InnerDRect
	clc
	adc #DialogHeight
	sta SrcRect+4
	sta InnerDRect+4

	lda #InnerDRect
	jsr PushDP
	jsr WhichMode
	beq Inset320
	PushWord #4
	bra ContInset
Inset320	PushWord #2
ContInset	PushWord #2
	_InsetRect


;------------------------------------------------------
;
; Get memory for the pixels being saved.
;
	lda SizeOfSaveSpace
	ldx #$8000	; locked
	jsr TLGetMem2
	bcc @3
	brl MemError2
@3
	sta SaveHandle
	stx SaveHandle+2
	lda [SaveHandle]
	sta PtrToSaveSpace
	ldy #2
	lda [SaveHandle],y
	sta PtrToSaveSpace+2


	_HideCursor	; hide cursor to avoid stamping


	PushLong #0	; build parameter block on the
	PushWord #0	; stack for PaintPixels
	PushLong #DestRect
	lda #SrcRect	; we build it backwards.
	jsr PushDP
	lda #SaveLocInfo
	jsr PushDP
	pei MountPortPtr+2
	pei MountPortPtr
	jsr Paint

	_ShowCursor

	lda #DialogRect	; pointer to DialogRect
	jsr PushDP
	_EraseRect

	jsr WhichMode
	beq PS320
	PushWord #2
	bra FiniPenSize
PS320	PushWord #1
FiniPenSize	PushWord #1
	_SetPenSize

	lda #DialogRect
	jsr PushDP
	_FrameRect

	lda #InnerDRect
	jsr PushDP
	_FrameRect

	lda #DialogRect
	jsr PushDP
	_SetPortRect

	PushWord #0
	PushWord #0
	_SetOrigin

	jsr DrawDialog

	jsr PlayWithIt	; returns 1 for ok,	2 for cancel

	sta Result

	pei MountPortPtr+2	; re init loc info in mount port
	pei MountPortPtr
	_InitPort

	PushLong #0	; build parameter block on the
	PushWord #0	; stack for PaintPixels
	lda #SrcRect	; we build it backwards.
	jsr PushDP
	PushLong #DestRect
	pei MountPortPtr+2
	pei MountPortPtr
	lda #SaveLocInfo
	jsr PushDP
	jsr Paint

	pei SaveHandle+2	; free the memory
	pei SaveHandle
	_DisposeHandle


GetOutHere
	_SetPort	; restore orig port

	jsr ClosePort
	jsr DisposePortHandle
	plb

	tsc
	clc
	adc #SizeLocals
	tcs


	ldy #20
	ldx #0
	pld
	jml ToBusyStrip




;
; Got mem error trying to get buffer for bits.  This is 
; after port allocated.  So close port and fall into other error
; routines.
;
MemError2
	jsr ClosePort
;
; Got error opening grafPort.
;
PortError
	jsr DisposePortHandle

;
; Got error getting memory for port.  Boy are we in trouble now.
;
MemError1

;
; Try to call TLTextMountVolume and keep fingers crossed.
;
	pha
	pei PromptPtr+2
	pei PromptPtr
	pei VolPtr+2
	pei VolPtr
	pei OkPtr+2
	pei OkPtr
	pei CancelPtr+2
	pei CancelPtr
	_TLTextMountVolume
	pla
	sta Result
	bra GetOutHere


ClosePort	
	pei MountPortPtr+2	; close our port
	pei MountPortPtr
	_ClosePort
	rts

DisposePortHandle
	pei MountPortHandle+2
	pei MountPortHandle
	_DisposeHandle
	rts

	eject

;-------------------------------------------------
;
; Paint
;
; Calls paint pixels using PPParam block on stack
; just above the rts adr.
;
; After calling paint pixels, it strips	22 bytes
; off the stack.
;

Paint		; 
rtsadr	equ 1
PPParams	equ 3
	tsc
	pea 0000
	clc
	adc #PPParams
	pha
	_PaintPixels

	ply
	tsc
	clc
	adc #22
	tcs
	phy

	rts

;-------------------------------------------------
;
; PushDP
;
; Pushes a long pointer to a value on direct page.
; the offset on D is passed in the a-reg.
;
; Input:  a-reg    offset
; Output: Stack
;
; Trashed:  a-reg
;           x-reg
; Preserved y-reg
;
PushDP		; 
	plx	; get rts off stack
	pea 0000	; push hi word of 0
	pha	; get offset on D page onto stack
	tdc	; get dpage value
	clc	; add to offset and
	adc 1,s
	sta 1,s	; overstore
	phx	; put back rts value
	rts



	eject
;-------------------------------------------------
;
; WhichMode
;
; This routine returns 0 in the a-reg if the
; screen is in 320 mode and nonzero if it is
; in 640 mode.
;
WhichMode		; 
	lda [MountPortPtr]
	and #$0080
	rts




;-------------------------------------------------
;
; PlayWithIt
;
; This is the routine that gets events and waits for a
; response from the	user.
;
PlayWithIt		; 

;
; --- The only events we want are MouseDown, MouseUp, KeyDown, AutoKeyDown and DeskAcc -------
; 
	lda #mDownMask+mUpMask+keyDownMask+autoKeyMask+deskAccMask
	jsr GetThisEvent
	beq PlayWithIt	; no event of that type in queue so keep looking

	lda EvtWhat	; got something!
	asl a
	tax
	jsr (EventTable,x)
	bcc PlayWithIt


	rts


EventTable	DC.W ignore
	DC.W DoMouseDown	; 1
	DC.W ignore	; 2 mouse up
	DC.W DoKey	; 3
	DC.W ignore	; 4 undefined
	DC.W DoKey	; 5 auto key
	DC.W ignore	; 6 update
	DC.W ignore	; 7 undefined
	DC.W ignore	; 8 activate 
	DC.W ignore	; 9 switch
	DC.W DoDeskAcc	; 10 deskAccEvt


	eject
;-------------------------------------------------
;
; GetThisEvent
;
; Called by PlayWithIt to read
; character using event manager.
;
; Event mask is passed in a-reg.  boolean returned in a reg.
;
GetThisEvent		; 
	pha	; space for result
	pha	; use mask coming in
	lda #TheEvent
	jsr PushDP
	_GetOSEvent	

	pla

	rts

	eject
;-------------------------------------------------
;
; DoDeskAcc
;
; Called when a desk accessory event is returned from 
; GetOSEvent. The desk accessory event occurs when
; the user has typed <ctrl><open-apple><esc>.
;
; When we get this message we call SystemEvent to
; handle it.
;

DoDeskAcc

	pha	; space for result
	ldx #EvtModifiers	; copy the contents of the event record, gotten
loop	lda <0,x	; back from GetOSEvent as input to SystemEvent
	pha	; event record is on stack, which is also 
	dex	; currently our direct page
	dex
	cpx #EvtWhat-2	; are we past beginning of event record?
	bne loop	
	_SystemEvent
	pla
	clc
	
	rts
	

	eject
;-------------------------------------------------
;
; DoMouseDown
;
; Called when the mouse button goes down.
;
; Returns carry set	if the mouse button	goes back up inside
; same button it went down in.  If carry is set then
; a-reg has number of button.
;
; Modification History
;
; 31 Dec 86    SEG
;
;    Simple code reduction.  No changes	in features.
;

DoMouseDown		; 


	lda #EvtWhere	; figure out where it is
	jsr PushDP
	_GlobalToLocal

	lda #OKRect
	jsr InRectLong
	bne TrackOK

	lda #CancelRect
	jsr InRectLong
	bne TrackCancel

Ignore		; 
	clc	; it was somewhere else
	rts



TrackOk		; 
	ldy #OKRect	; Put OKRect in HLRect
	lda #1	; this will be result later
	bra StartTracking

TrackCancel		; 
	ldy #CancelRect	; Put CancelRect in	HLRect
	lda #2

StartTracking		; 
	sta WhichButton
	ldx #HLRect
	jsr MoveRect

MakeDark	lda #$8000	; and setting this flag
	sta HiliteFlag
	jsr DarkButton

CheckMouse	pha	; space for result
	PushWord #0	; button 0
	_WaitMouseUp
	pla
	beq ItsNowUp	; false means yes it is now up.

	lda #EvtWhere	; its still down so	check to see if
	jsr PushDP
	_GetMouse	; it is still in the button

	lda #HLRect
	jsr InRectShort
	beq NotIn

	lda HiliteFlag	; Its in, check to see if but is still
	beq MakeDark	; dark, if not, light it
	bra CheckMouse	; otherwise try again.

NotIn	lda HiliteFlag	; Its not in, check	to see but is dark
	bne UnliteIt	; if yes, light it
	bra CheckMouse

UnliteIt	lda #0
	sta HiliteFlag
	jsr LightButton
	bra CheckMouse

ItsNowUp		; ; button came up so return lit state
	lda HiLiteFlag
	beq Nevermind

	jsr LightButton

	lda WhichButton	; return button number
	sec	; signal end of secession
	rts

NeverMind	clc	; signal to continue
	rts



	eject
;-------------------------------------------------
;
; InRect
;
; Returns whether or not the eventWhere	point is
; in the rectangle passed in the a-reg
;
; The result is returned in the z flag.
;    z-set means that ptinrect returned	false.
;    z-clear means that ptinrect returned true.
;
; Modification History
;
; 31 Dec 86    SEG
;
;    New this day.
;

InRectShort		; 

	pha	; space for result and save incoming
;		; button.
	lda #EvtWhere
	jsr PushDP
	lda 5,s
	jsr PushDP
JoinInRect	_PtInRect
	pla
	rts

InRectLong		; 
	pha
	lda #EvtWhere
	jsr PushDP
	lda 5,s
	PushWord #OKRect>>16
	pha
	bra JoinInRect

	eject
;-------------------------------------------------
;
; DarkButton
;
; This is the routine that draws a hilited (dark) button.  It
; uses WhichButton to tell which to draw.
;
; Modification History
;
; 31 Dec 86    SEG
;
;    Simple code reduction.  No changes	in features.
;

DarkButton		; 

	jsr PushHLStuff
	_PaintRRect

	PushWord #$000F
	_SetForeColor
	PushWord #$0000
	_SetBackColor

	lda WhichButton
	jsr DrawButString

	rts



;-------------------------------------------------
;
; LightButton
;
; This is the routine that draws the normal
; (unhilited) buttons. It uses WhichButton to
; determine which to draw.
;
; Modification History
;
; 31 Dec 86    SEG
;
;    Simple code reduction.  No changes	in
;    features.
;
;
LightButton		; 

	jsr PushHLStuff
	_EraseRRect

	jsr PushHLStuff
	_FrameRRect

	PushWord #$0000
	_SetForeColor
	PushWord #$000F
	_SetBackColor

	lda WhichButton
	jsr DrawButString

	rts


	eject
;-------------------------------------------------
;
; PushHLStuff
;
; Modification History
;
; 31 Dec 86    SEG
;
;    New this day.
;

PushHLStuff		; 

	ply
	lda #HLRect
	jsr PushDP	; preserves y-reg
	PushWord #20
	PushWord #10
	phy
	rts


	eject
;-------------------------------------------------
;
; DrawButString
;
; This routine draws the contents of a button.
; The button to draw is passed in the a-reg
;
; Modification History
;
; 31 Dec 86    SEG
;
;    Simple code reduction.  No changes	in features.
;
;
DrawButString		; 

	cmp #1
	bne DoCancel

	pha	; figure string width to
	pei OKPtr+2	; center string in button
	pei OKPtr
	_StringWidth

	lda #ButWidth
	sec
	sbc 1,s
	lsr a
	clc	; add to left edge
	adc OkRect+2
	sta 1,s	; push result
	PushWord #OKy
	_MoveTo

	pei OkPtr+2	; draw ok string
	pei OKPtr
	_DrawString

	rts



DoCancel	pha	; do it all again.
	pei CancelPtr+2
	pei CancelPtr
	_StringWidth

	lda #ButWidth
	sec
	sbc 1,s
	lsr a
	clc
	adc CancelRect+2
	sta 1,s
	PushWord #Cancely
	_MoveTo

	pei CancelPtr+2
	pei CancelPtr
	_DrawString

	rts

	eject
;-------------------------------------------------
;
; DoKey
;
; This is the routine that checks key strokes
; for RETURN and ESC.
;
; It returns with carry set if either are
; pressed and the button number in the a-reg.
;
; If different key is pressed, it returns with
; carry clear.
;
; Modification History
;
; 31 Dec 86    SEG
;
;    Simple code reduction.  No changes	in features.
;

DoKey		; 


	lda EvtMessage	; look at char typed.
	cmp #13	; RETURN = ok button
	beq OK

	cmp #27	; ESC = cancel button
	beq Cancel


	clc	; bad key so signal	that we must
	rts	; continue


OK	lda #1	; return result.
	sta WhichButton
	ldy #OKRect


FinishUp		; 
	ldx #HLRect
	jsr MoveRect
	jsr DarkButton
	jsr LightButton
	lda WhichButton
	sec
	rts

Cancel	lda #2
	sta WhichButton
	ldy #CancelRect
	bra FinishUp


	eject
;-------------------------------------------------
;
; DrawDialog
;
; This little routine draws the dialog.
;
; Modification History
;
; 31 Dec 86    SEG
;
;    Simple code reduction.  No changes	in features.
;

DrawDialog		; 

	PushWord #PromptX	; first put up the user's prompt
	PushWord #PromptY
	_moveto

	pei PromptPtr+2
	pei PromptPtr
	_DrawString

	PushWord #VolX	; now the volume name
	PushWord #VolY
	_MoveTo

	pei VolPtr+2
	pei VolPtr
	_DrawString

	lda #1
	ldy #OKRect
	jsr DrawAButton

	lda #2
	ldy #CancelRect

DrawAButton		; 
	sta WhichButton
	ldx #HLRect
	jsr MoveRect
	jmp LightButton


	eject
;-------------------------------------------------
;
; MoveRect
;
; Moves 8 bytes from <<0,x to <<0,y.
;

MoveRect		; 

	lda |0,y
	sta <0,x
	lda |2,y
	sta <2,x
	lda |4,y
	sta <4,x
	lda |6,y
	sta <6,x

	rts




DestRect	DC.W 0,0,DialogHeight,DialogWidth

CancelRect	DC.W DialogHeight-TopFace
	DC.W LeftFace
	DC.W DialogHeight-TopFace+ButHeight
	DC.W LeftFace+ButWidth

OKRect	DC.W DialogHeight-TopFace
	DC.W DialogWidth-LeftFace-ButWidth
	DC.W DialogHeight-TopFace+ButHeight
	DC.W DialogWidth-LeftFace



	ENDP




****************************************************************
*
TLTextMountVolume	PROC EXPORT
*
* This is the same call as TLMountVol except that it works in
* text rather than in super hires graphics.
*
* Assumptions:
*
*     1) The machine is already in text	mode.
*     2) The text screen may be trashed.
*
* [3-Jun-91 DAL: Those assumptions are way out of date.  These
*  days it's calling SaveTextState and RestoreTextState.]
*
* This routine actually makes no OS calls.  It just returns
* the button number	pressed by the user.  The application
* then can make the	call that failed again and see if it
* works.
*
* By not guarenteeing the volume is mounted this routine is
* more general (and	shorter).
*
*
*
* Inputs:
*              PromptPtr : long
*              VolPtr : long
*              OKPtr : long
*              CancelPtr : long
*
* Outputs:
*              ResultWord : word
*
* External Refs:
	import GoToXY
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
CancelPtr	equ RTL2+3
OKPtr	equ CancelPtr+4
VolPtr	equ OKPtr+4
PromptPtr	equ VolPtr+4
Result	equ PromptPtr+4


TextStartX	equ 3
PromptLine	equ 6
VolLine	equ 9
ButtonLine	equ 13


;-------------------------------------------------
;
; The event record is kept on real zero	page
; since this is saved and restored by this call.
;
	DSect 0
EvtWhat	word
EvtMessage	long
EvtWhen	long
EvtWhere	long
EvtModifiers	word
TheEvent	equ EvtWhat


	phd

	tsc
	tcd

	phb
	phk
	plb

	pha	; Save the current text screen
	pha	; environment
	_SaveTextState

	lda >CSWL	; save the input and output hooks
	pha
	lda >KSWL
	pha

	jsl IncBusyFlg

	PushWord #0
	PushLong #3
	_SetOutputDevice

	PushWord #0
	PushLong #3
	_SetInputDevice

	PushWord #$FF
	PushWord #0
	_SetOutGlobals

	PushWord #1
	_InitTextDev

	PushLong #Codes
	jsl ToWriteCString


	jsr DoBar

	PushWord #$20
	_WriteChar

	lda #9
BarLoop	pha
	sep #$30
	longa off
	longi off
	lda #39
	sta >$24
	rep #$30
	longa on
	longi on
	PushLong #Edges
	jsl ToWriteCString
	pla
	dec a
	bpl BarLoop

	sep #$30
	longa off
	longi off
	lda #0
	sta >$24
	sta >$57B
	rep #$30
	longa on
	longi on

	jsr DoBar

	PushWord #$FF
	PushWord #$80
	_SetOutGlobals

	ldy #PromptLine
	ldx #TextStartX
	jsr GoToXY

	PushLong PromptPtr
	jsl ToWriteString

	ldy #VolLine
	ldx #TextStartX
	jsr Gotoxy

	PushLong VolPtr
	jsl ToWriteString

	ldy #ButtonLine
	ldx #TextStartX
	jsr Gotoxy

	PushLong CancelPtr
	jsl ToWriteString

	lda [OKPtr]
	and #$00FF
	pha
	lda #40-TextStartX+1
	sbc 1,s
	tax
	pla
	ldy #ButtonLine
	jsr Gotoxy

	PushLong OKPtr
	jsl ToWriteString

NotESC		; 

;-----------------------------------------------------
;
; First try to read	through the event manager
;

	lda #mDownMask+mUpMask+keyDownMask+autoKeyMask+deskAccMask
	jsr GetThisEvent	; call event manager
	bcs ReadMyself	; if error then try to read status of keys yourself 

	beq NotESC	; null event returned
	lda >EvtWhat
	cmp #keyDownEvt	; Is it a key down event?
	beq ItsKeyDown
	cmp #autoKeyEvt
	beq ItsKeyDown
	cmp #deskAccEvt	; Is it a desk accessory event?
	bne NotESC	; Neither keydown or deskacc so it must be a mouse down or
;		; mouse up which we'll just disregard.
	
;
; --- Call SystemEvent to handle calling the cda's ----------------------------------------
;	
	pha	; space for result
	ldx #EvtModifiers	; push all the values from the event record we got back
loop	lda >0,x	; from GetOSEvent
	pha
	dex
	dex
	bpl loop
	_SystemEvent	; handle <ctrl><open-apple><esc>
	pla	; we don't care what we got back
	bra NotESC	

ItsKeyDown	lda >EvtMessage	; Get ASCII character that was typed.
	bra GotKey

ReadMyself	sep #$30
	lda $E0C000
	bpl NoKey
	sta $E0C010
NoKey	rep #$30
	bpl NotESC
	and #$7F


GotKey	cmp #13	; we only care about RETURN and ESC
	bne NotReturn
	lda #1
	bra Done

NotReturn	cmp #27
	bne NotEsc
	lda #2

Done	sta Result


	PushWord #1	; clear screen again.
	_InitTextDev

	pla
	sta >KSWL	; input hook low
	pla
	sta >CSWL	; output hook low


	_RestoreTextState


	plb


	ldy #16
	ldx #0
	pld
	jml ToBusyStrip


NormalText		; 
	sep #$30
	longa off
	longi off
	lda #$FF
CommonText	sta >$32
	rep #$30
	longa on
	longi on
	rts

InverseText		; 
	sep #$30
	longa off
	longi off
	lda #$7F
	bra CommonText
	longa on
	longi on

DoBar		; 
	jsr InverseText
	PushLong #Bar
	jsl ToWriteCString
	jsr NormalText
	rts

ToWriteCString		; 
	ldx #$200C
	jsl $E10004
	rtl

ToWriteString		; 
	ldx #$1A0C
	jsl $E10004
	rtl


;-------------------------------------------------
;
; GetThisEvent
;
; Called to read character using event manager.
;
; Event mask is passed in a-reg.  boolean returned in a reg.
;
GetThisEvent		; 
	pha	; space for result
	pha	; use mask coming in
	PushLong #TheEvent
	_GetOSEvent	; call GetOSEvent instead of GetNextEvent because we don't
;		; want keydowns to be passed onto the desk mgr
	pla

	rts



Bar	DC.B '                                        '
;	      1234567890123456789012345678901234567890
	DC.B 0

Edges	DC.B $20
	DC.B $20
	DC.B 0
	DC.B $5A
	DC.B $5F
	DC.B 0


Codes	DC.B 17,13,13,13,13,0

	ENDP


GoToXY	PROC
	sep #$30
	longa off
	longi off
	txa	; long address
	sta >$24
	tya
	sta >$25
	rep #$30
	longa on
	longi on
	lda #0
	pha
	pha
	pha
	pha
	pha
	pha
	pha
	PushWord #$FC22
	_fwentry
	pla
	pla
	pla
	pla
	rts

	ENDP

	title ' TLMemRoutines'
****************************************************************
*
TLMemRoutines2	PROC
*
* Gets a handle of the size passed in the a-reg.  If GetMem
* is used, attributes are passed from calling routine in
* x-reg.  If TLNewhandle is used, attributes are TLAttributes.
*
*
* Inputs:
*    a-reg  Size of	handle
*    x-reg  attributes of handle (for GetMem only)
*
* Outputs:
*    a-reg  Low word of handle (or error)
*    x-reg  high word of handle
*    carry  set on error, clear on success
*
* External Refs:
*	none
*
* Entry Points:
	export TLGetMem2
	entry TLNewHandle2
*
	longa on	; mode
	longi on
*
* Change History
*
* 06 Oct 87    Steven Glass
*
*    Added.
*
* 17 Jun 88	Steven Glass
*
* Combined this with TLNewHandle.  Code was almost identical
* but duplicated.  By changing the calls to TLNewHandle to
* use the a-reg and x-reg for output we could share code.
*
****************************************************************

TLNewHandle2
	ldx #TLAttributes
TLGetMem2
	pha
	pha
	pea $0000
	pha
	PushWord #TLUserID
	phx
	pha
	pha
	_NewHandle
	bcs oops
	pla
	plx

	rts

oops	plx
	plx
	rts

	ENDP


	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/tl/msgbyname.asm b/IIGS.601.SRC/GSToolbox/tl/msgbyname.asm
new file mode 100644
index 0000000..a049c3c
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/tl/msgbyname.asm
@@ -0,0 +1 @@
+	title 'MessageByName'
**********************************************************************
*
* MessageByName
*
* Copyright 1988,1989
* Apple Computer, Inc.
* All Rights Reserved.
*
* Original Code by Pete MacDonald
* converted to MAX by Steven Glass
*
* This file contains the code to implement the function MessageByName.
*
*
* 3/30/89	Mensch
* Fixed bug that allowed only 63 byte names instead of 64 byte names.
*
**********************************************************************

	include 'all.macros'


 MACRO
&lab moveword &from,&to
&lab
 lda &from
 sta &to
 MEND

;------------------------------------------
;
; Equates from procedure MessageData
;
;------------------------------------------
IdNotAvailable	equ $0112	;new error means all Id's used up
MessNotFound	equ $0111	;Did not find the requested message.
NameTooLong	equ $0113	;Name was longer than 64 chars.
MemId	equ $9001	;Mem manager's ID
oMessageId	equ 4	;offset in message record to ID
IncBusy	equ $e10064	;system utility increment the busy flag
BusyStrip	equ $e10180	;" decrement busy, fix stack



	DefineStack
NumMessages	word	; total number of develper type messages
MessageHandle	long	; general use handle for messages
MaxID	word	; highest ID found during scan
Pointer	long	; general use pointer
NamePtr	long	; pointer to name string (for compare)
Direct	word
RTL1	block 3
RTL2	block 3
RecordPtr	long	; pointer to input record
CreateIt	word	; Create flag.  Used if no msg is found.
IDTemp	word	; space supplied by caller
CFlag	word	; space supplied by caller


localbytes	equ Direct-1	;direct -1 = number	of bytes in locals.

;-----------------------------------------------
;
;   Forward addresses and entries
;
;-----------------------------------------------

	ENTRY AddPtr
	ENTRY DeLink
	ENTRY DerefNGetType
	ENTRY DoHoles
	ENTRY GetFirst
	ENTRY IsitMe
	ENTRY Main
	ENTRY MakeIt
	
	
	
	eject
****************************************************************
*
MessageByName	PROC EXPORT
*
* function MessageByName (CreateFlag : boolean; RecordPtr : LONG ) : LONG
*
* This is the function entry point. It takes 3 inputs.
* a word space for the returned ID, a word for the create/found
* flag, and a long pointer to the record that contains the name string
* that Identifies the the message we want to find/create, as well as
* an optional block	of data with which to initialize the message if
* it's to be created..
*
*
* Inputs:
*	space for result	: LONG
*	CreateFlag	: WORD
*	RecordPtr	: LONG
*
* Outputs:
*	CreatedFlag	: WORD
*	MessageNumber	: WORD
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


	phd	;save direct page under params
	tsc	;current stack <Pointer
	sec	;ready for subtract
	sbc #localbytes	;number of locals
	tcs	;new stack <Pointer
	tcd	;get the new direct	page-1

	stz <NumMessages	;init number of messages counter
	stz <MaxId	;init highest Id var.


	clc	;init namePtr,
	lda <RecordPtr	;so that it points past the
	adc #2	;len word in record
	sta <NamePtr
	lda <RecordPtr+2
	adc #0
	sta <NamePtr+2

	jsl IncBusy

	lda [<NamePtr]	;validate length of	string.(source)
	and #$00FF	; strip to get the length byte
	cmp #65	;is the low byte bigger than 64 ?
	blt GoodLen	;taken if not
;
; was
;	bit #$00c0
;	beq GoodLen
;
;?????????????????????????????should we	also check if record len enough for name
	lda #NameTooLong
	bra Split

GoodLen		; 

	jsr Main	;go to work

Split	tax	;pass error to BusyStrip

	tsc	;remove locals
	clc
	adc #LocalBytes
	tcs

	pld	;and direct page

	ldy #6	;num input bytes to	strip for BusyStrip

	jml BusyStrip	;This decs busy, fixes stack, sets error

	ENDP

	title 'MessageByName -- Main'
****************************************************************
*
Main	PROC
*
* Scan all messages	in the developer range (i.e 8000-$ffff)	of message types,
* looking for one that contains the same ID string as was requested.
* Also noting the number of developer range messages that are used, as well
* as the largest used message Id. If no	messages exist at all, then create one
* with ID $8000, and set Cflag true indicating that a new message was created
* If a message with	the requested Id string is found, then copy the input record
* to it, and return	it's Id, set cflag false saying message was not created, but
* rather we are returning the ID of an existing message that contains the same
* Id String as was requested. If there is no message with the Id String we
* are looking for then check NumMessages, and MaxID to see if there are any
* holes, if there aren't any holes, (i.e. MaxId - $8000 = NumMessages) and the
* last used Id (MaxId = $ffff) then all	Id's are used up, and we return error
* # $0112 IdNotAvailable. If MaxId-$8000 > NumMessages, then there is a hole.
* At that point the	list is again scanned, until the first hole is found,
* and the hole's Id is then the Id used to create the message, and Cflag is
* set true indicating a newly created message Id. If there were no holes,
* and MaxId < $ffff, then MaxId + 1 is used to create a new	message, and
* clag is set true to indicate that we did create a message.
*
*
* Inputs:
*	all on direct page
*
* Outputs:
*	all on direct page
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


	jsr GetFirst	;get Pointer to the	first message record
	beq NoDevIds	;if 0 then no messages

Loop	jsr DerefNGetType	;deref Handle to Pointer and get type.
	tax	;type -> x for later.
	bpl AroundAgain	;if < $8000 it's not a developer type

	inc <NumMessages	;up count of developer messages found
	pushlong <pointer
	jsr IsitMe
	tay	;is this record the	same type as requ ?
	pulllong <pointer
	tya
	bne NoMatch	;set Z says it was the one I want

	stx <IdTemp	;set Id to the one we found,
	lda <CreateIt	;pre-check createit	before we call
	beq NoMake	;makeit. to insure proper error result.

	jsr MakeIt	;re-create message with input record

NoMake	stz <Cflag	;say it's an existing message
	rts	;and split

NoMatch	cpx <MaxId	;is Id bigger than biggest found (MaxID)
	blt AroundAgain	;taken if current Id < than max ID

	stx <MaxId	;current ID is > MaxId so update MaxID

AroundAgain	jsr DeLink	;get and validate forward link
	bne Loop	;taken if there is a valid handle

	lda <MaxId	;compare to the highest used Id
	bpl NoDevIds	;if < $8000 then no	developer Ids exist
	and #$7fff	;this works cause we only look at $8000+
	inc a	;MaxId + 1 cause we	start at 0 not 1
	cmp <NumMessages	;total number of developer messages.
	beq NoHoles	;if = then no holes	so check max
	jmp DoHoles	;else go find one of the holes.
;              rts	!!! EXIT !!!

GiveUp	lda #IdNotAvailable	;say all Id's are used up
	rts

NoDevIds	MoveWord #$8000,<IdTemp ;set Id to first developer ID
	jmp Makeit	;Make 1 with this ID and exit from there
;              rts !!!EXIT!!!

NoHoles	lda <MaxId	;Get Max Id
	inc a	;add one to point at next available
	beq GiveUp	;if 0 then none are	left error out.

	sta <IdTemp	;maxid+1 = next avaialable ID
	jmp Makeit	;use it and make a new message.
;              rts !!!EXIT!!!
	ENDP

	title 'MessageByName -- MakeIt'
****************************************************************
*
MakeIt	PROC
*
* Make a message with the name we were passed, and the Id in IdTemp
*
*
* Inputs:
*	on direct page
*
* Outputs:
*	on direct page
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


	lda <CreateIt	;am I supposed to create a message ?
	bne DoMake	;if non 0 then yes,	so continue.
	lda #MessNotFound	;Else say the message wasn't found
	rts	;and split


DoMake	pha	;handle for message/space for newhandle
	pha

	clc	;push the len of the record + 6 overhead
	lda [<RecordPtr]	;the entire data block i.e. the word len
	adc #6	;plus the string, and it's len. + the 6
	tax	;bytes of overhead.
	lda #0	;synth a high word lda #0 ,rol a. will
	rol a	;save one byte versus lda #0, adc #0
	pha	;push the hibyte of	the block len.
	phx	;and the low byte.

	PushWord #MemId	;My ID
	PushWord #0	;attributes
	pha	;this is the where long. but
	pha	;since it's not used. we need't use 0's
	_NewHandle
	tax	;save error if any
	PullLong <MessageHandle ;get the handle
	bcc KeepGoing	;if no error keep going.
	txa	;recover the error code.
	rts

KeepGoing	jsr DerefNGetType	;deref messghandle to Pointer lose type.

	lda #6	;set pointer just past the standard
	jsr AddPtr	;message overhead of 6 bytes.

	lda [<RecordPtr]	;get the record len
	tay	;to y for copy
	dey	;- 1 cause we copy from len-1 down to 0

	sep #$20
	LongA Off

CopyLp	lda [<RecordPtr],y	;copy the name to handle
	sta [<Pointer],y
	dey	;next one
	bpl CopyLp

	rep #$20
	LongA On

	PushWord #1	;now create a message with the name
	PushWord <IdTemp	;we were passed, and the ID we
	PushLong <MessageHandle ;found available.
	_MessageCenter
	pha	;save error result

	MoveWord #$ffff,<Cflag ;say we actually	created this record

Exit	PushLong <MessageHandle ;dump the handle we created
	_DisposeHandle

	pla	;recover the error result
	rts	;done and split
	ENDP

	title 'MessageByName -- IsItMe'

****************************************************************
*
IsitMe	PROC
*
* Check to see if the message we got has the same name as was
* passed to us by the caller. Z flag is	used to indicate match or not.
*
*
* Inputs:
*	on direct page
*
* Outputs:
*	z-flag
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


	lda #8	;skip the link and Id fields (6)
	jsr AddPtr	;and skip word of data len (2)=8 bytes

	lda #0000	;set a to zero for when we sep #$20

	longa Off
	sep #$20

	lda [<NamePtr]	;get the name len from input record
	cmp [<Pointer]	;(name in message)
	bne Exit	;if not same len try next ID

	tay	;move len to y for count and index

NameLp	lda [<NamePtr],y	;7 bit compare the name strings.(source)
	eor [<Pointer],y	;blend with name in	message
	and #$7f	;clear the msb
	bne Exit	;if they are same try the next one

	dey	;else next char to check
	bne NameLp	;don't check the zero'th char.(i.e.Len)

Exit
	longa on
	rep #$20
	rts
	ENDP

	title 'MessageByName -- DoHoles'
****************************************************************
*
DoHoles	PROC
*
* Scan the message list looking for $8000.8001.8002.etc. as	soon
* one is not found in the list we know it's a hole, and we use it
* to create a message
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


	MoveWord #$7fff,<IdTemp ;init counter to look for holes

ScanLp	jsr GetFirst	;get the handle of the first message.
	inc <IdTemp

Loop	jsr DerefNGetType	;deref Messagehandle to Pointer get type
	bpl NextOne	;if taken it's not a developer Id ignore

	cmp <IdTemp	;it's a dev Id is it the one we want ?
	beq Scanlp	;taken if yes to start over with next Id

NextOne	jsr DeLink	;get and validate forward link to next
	bne Loop	;taken if there is a valid handle

	jmp MakeIt	;if we make it here	Idtemp = Id of hole

	ENDP
	
	
	
	
	title 'MessageByName -- Utilities'
**********************************************************************
* These are various	utility routines.
**********************************************************************

GetFirst	PROC
**********************************************************************
* Get handle to the	first message in the list. It happens to be kept
* in the memory managers WAP. Leave it in messagehandle
**********************************************************************
	pha
	pha
	PushWord #0	;system tool
	PushWord #2	;memory managers WAP
	_GetWap	;get it

	pla
	sta <MessageHandle
	pla
	sta <MessageHandle+2
	ora <MessageHandle	;or with low word
	rts
**********************************************************************
* Deref MessageHandle to Pointer. Then return with the message type
* In the a-reg.
**********************************************************************

	entry DerefNGetType
DerefNGetType		;       
	lda [<MessageHandle]
	sta <Pointer	;deref/check this message
	ldy #2
	lda [<MessageHandle],y
	sta <Pointer+2

	ldy #oMessageID	;offset to message ID
	lda [<Pointer],y	;get it
	rts


**********************************************************************
* Add a-reg to Pointer result in Pointer
**********************************************************************

	entry AddPtr
AddPtr		;       
	clc
	adc <Pointer
	sta <Pointer
	bcc ExitAddPtr
	inc <Pointer+2
ExitAddPtr	rts

**********************************************************************
* Get and validate forward link to next	message. The Z flag	is set or
* clear to indicate	whether or not the link is valid or not.
**********************************************************************

	entry Delink
Delink		;       
	lda [<Pointer]
	sta <MessageHandle	;get forward link to the
	ldy #2
	lda [<Pointer],y
	sta <MessageHandle+2
	ora <MessageHandle	;next one, and validate there is one
	rts
	ENDP



	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/tl/startstop.asm b/IIGS.601.SRC/GSToolbox/tl/startstop.asm
new file mode 100644
index 0000000..f06cc78
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/tl/startstop.asm
@@ -0,0 +1 @@
+**********************************************************************
*
* File:  StartStop.asm
*
* Copyright Apple Computer, Inc. 1988-92
* All Rights Reserved
*
* by Dan Oliver & Steven Glass
*
* This file has two entry points:
*
*    StartupTools
*    ShutDownTools
*
* Change History
*
* 02 Nov 88	Dan Oliver
*
* Coding began.
*
* 08 Nov 88	Steven Glass
*
* Integrated with tool locator.  Changed order of tool loading and
* shutdown.
*
* Fixed bug for FontManager direct page allocation and startup.
*
* 09 Nov 88	Steven Glass
*
* Changed StartStop record to include flags word and dPage handle.
* Flags word can be used later to indicate whether application wants 
* certain things. (Currently no flags defined.)
*
* DPage hanndle is saved in startstop record at startup so it can
* be disposed at shutdown.
*
* Wrote central disposing routine: KillIt to dispose handles.
*
* Returned result of startstop to calling routine by always 
* copying the handle to result before exit.  This meant 
* that in the pointer case, I had to put the pointer into
* the handle to begin with.
*
* If the shutdown call is called with a handle, we dispose
* of it.
*
* 09 Dec 88	Mensch
*
* Added support for Note Synth, Note sequencer, MIDI, and ACE
* Modified addPages routine so that it allocates the proper amount of
* dpage space when the note seq and sound tools are both started up. 
* Also, the sound tools startup routine had to be modified to not be  
* called when the user wants to use the note seq.
*
* Modified Note synth shutdown and sound tools shutdown so that errors 
* are ignored. This is so that if you started them up with the noteseq
* the shutdown routine will be able to shut everything down.
*
*  01/25/89	Dan - Corrected some comments.
*
* 06 Feb 89	Steven Glass
*
* Added TL to shutdown table.
*
* 06 Feb 89	Harry Yee
*
* Fixed problem in StartTools call. If an error is encountered in starting up
* one of the toolsets the stack is not cleaned up correctly. The tool number
* is still left on the stack. If an error returns from @StartupTools then an
* extra word is pulled off the stack before branching to @errout2.
*
* 10 Feb 89	Harry Yee
*
* In StartTools, we now set the OS global system preferences so that under 
* certain circumstances, the system's Mount facility will be called to display
* a dialog asking the user to mount a specified volume. BRC #41150.
*
* 17 Feb 89	Dave Good
*
* In the start/stop record there a word for the video mode which is passed to
* qdstartup and used to determine the mouse clamps for the event manager. The
* problem is that there is a new feature in QuickDraw that allows an application
* to tell quickdraw to use shadowed memory and this feature uses the high bit
* of the video mode. I presume that we want the video mode in the start/stop
* record to be used the same way, so I masked it with $00FF in the emStartup
* code.
*
* 22 Feb 89	Steven Glass
*
* Changed call to OpenResourceFile to use new inputs.
*
* 03 Mar 89	Dan O
*
* Switched to arrow cursor before leaving StartupTools.  If QDAux was 
* started the watch cursor was being left.
*
* 14 Mar 89	Steven Glass
*
* Undid dan's fix above.
*
* 30 Mar 89	Steven Glass
*
* Make scrambler safe.  The handle to the start stop record is now
* locked before it is used.  It is unlocked just before it is 
* returned.
*
* 11 Apr 89	Steven Glass
*
* Changed tool number for misc tools.  Was listed as 2, its really 3.
*
* Made it handle all tools except 13.  Any tool not in list is assumed to have
* no startup and no direct page needs.
*
* 17-Nov-90	Dave Lyons
*
* Currently, TS2 and TS3 both use this whole file.  It might be
* possible later to optimize by having TS3 use part of the old ROM
* code.
*
* Fixed to start up MidiSynth (#35), Animation (#37) (with 0 Flags and PatchTable),
* and Media Control (#38).
*
* Bits 2-15 of startStopRefDesc (startRecFlag) are now ignored, so we can
* use them for new things later.
*
* Changed OpenResourceFile stuff to use LGetPathname2 instead of
* creating the path "1/"+GET_NAME.
*
* 19-Nov-90	Dave Lyons
*
* Defining ShutDownTools bit 2 to be "Don't turn off the graphics
* screen," which means we set bit $0100 in SetMasterSCB before calling
* QDShutDown.
*
* 20-Nov-90	Dave Lyons
*
* Changed StartQuickDraw so that it passes bit $0100 to QDStartUp
* if we're going to start up the Window Manager too.  This makes
* QD not clear the screen if it's already on.  RefreshDesktop will
* get around to clearing the screen eventually.
*
* StartWindowMgr skips the RefreshDesktop call if we're going to
* start the Menu Manager too.  StartMenu calls RefreshDesktop.
* This gives us a perfectly-smooth app-to-app transition when
* possible.
*
* 4-Dec-90	Dave Lyons
*
* AnimStartUp ModeFlag is reall a long, not a word.  Fixed.
*
* 15-Feb-91	Dave Lyons
*
* Implemented bit 0 of the StartStopRecord.Flags word to open the
* resource fork "as allowed" instead of always read-only.
*
* 17-Feb-91	Dave Lyons
*
* Changed ShutDownTools to force the leaveScreenOn bit on if it
* detects that GQuit's idea of the current application ID is the
* same as the current QuickDraw user ID (masked with $F0FF).
*
* 18-Feb-91	Dave Lyons
*
* Oops, my StartUpTools change above is really, really stupid, because
* I have no access to that bit before opening the resource file, in
* the case that the startup record is referenced by resource.
*
* Instead, StartUpTools startStopRefDesc bit 3 means to open the
* resrouce fork as-allowed.
*
* 19-Feb-91	Dave Lyons
*
* Added User ID parameter to AnimStartUp.  Oops.
*
* 21-Feb-91	Dave Lyons
*
* When shutting down the Menu Manager, now I check flag bit 2 to
* ShutDownTools; if the bit is clear, I wipe out the menu bar
* rectangle before MenuShutDown.
*
* Renamed ShutDownTools flag bit 2 from leaveScreenOn to
* leaveScreenIntact.  We have a leaveScreenOn bit internally
* that we set if the QD user id matches the GetName user ID.
*
* LeaveScreenIntact means we don't wipe out the menu bar.
* (If it's invisible, we don't wipe it out.)
*
* 25-Feb-91	Dave Lyons
*
* If we're starting both QD and EM, the ShowCursor now happens
* after EMStartUp instead of after QDStartUp.  This way we don't
* see the cursor at the top left of the screen if EMStartUp is
* going to put it someplace else.
*
* StartUpTools: flags bit 4 ($0010) avoids starting the Resource
* Manager and pre-allocating the super-hires memory.  Intended for
* use when it's not your first StartUpTools call, or QD is already
* on, or you don't want to start the Resource Manager.
*
* ShutDownTools: flags bit 4 ($0010) avoids shutting down the
* Resource Manager.
*
* Including the Resource Manager in the tool record is now a no-op.
*
* 26-Feb-91	Dave Lyons
*
* Whoops, I apparently didn't actually try my previous changes.  Fixed
* it so it builds now.
*
* 28-Feb-91	Dave Lyons
*
* Changed value of leaveScreenOn (used internally only) so it doesn't
* conflict with any external flag bits.
*
* 21-Apr-91	Dave Lyons
*
* Made ShutDownTools call InitCursor.
*
* 30-Apr-91	Dave Lyons
*
* Made ShutDownTools call HideCursor instead of InitCursor.
*
* 15-Sep-91	Dave Lyons
*
* ShutDownTools no longer hides the cursor if flag bit 4 is
* set ("partial shutdown", skip resource manager stuff, etc).
*
* 19-Sep-91	Dave Lyons
*
* ShutDownTools resets the ShowBootInfo location for drawing icons.
*
* 25-Oct-91	Dave Lyons
*
* Moved a TAX in BuildLoadTable so StartUpTools will work okay for
* tools that are bigger than we recognized (will use no parameters
* when calling StartUp function).
*
* 17-Dec-91	Dave Lyons
*
* In BuildToolTable, added code to call ReportIfMissing, so that
* missing tools show a "This application needs ToolXXX" dialog.
*
**********************************************************************
*
* 17-Mar-92	Dave Lyons for 6.0.1
*
* Shutting down Standard File now tolerates errors (in case some
* NDA stupidly shut it down during DeskShutDown).
*
* 2-Apr-92	Dave Lyons
*
* ShutDownTools no longer calls HideCursor if QD is inactive.
*
* 1-Jul-92	Dave Lyons
*
* StartUpTools now returns any error from ResourceStartUp.  When
* we would have returned garbage for the result, we return NIL.
*
* ShutDownTools:  We check for a NIL input and behave sanely.
* ResourceShutDown is now in the error-exit path, so it shuts
* down the RM even if you get some other error.
*
**********************************************************************

	Blanks off	;No white space in the operand field.
	
	INCLUDE 'all.macros'
	include 'e16.memory'


**********************************************************************
*
*   Startup - Shutdown tool equates.
*
**********************************************************************


StartStopRecord	Record 0
Flags	ds.w 1	Flags for starting and stopping
VideoMode	ds.w 1	SCB byte of mode to	startup in.
ResFileID	ds.w 1 	Return file ID of app's res file, NIL = none.
DPageHandle	ds.L 1	holds handle allocated for dpage

NumTools	ds.w 1  	Number of tools to	load.
ToolArray	ds.w 2	Array of tools to load, elements defined as:
;		     WORD - tool number.
;		     WORD - minimum version number.

	ENDR

;
; --- Direct page offsets.
;
loading	equ 1	TRUE if loading tools.
loadTable	equ loading+2	Load tool hash table, enough for 48 tools.
directPages	equ loadTable+6
numPages	equ directPages+4
getNameBlk	equ numPages+2
getName	equ getNameBlk+2
getUserID	equ getName+4
handle	equ getUserID+2	;added 2nd parameter to GetName, 17-Feb-91 DAL
ptr	equ handle+4
UtilFlags	equ ptr+4
saveDbank	equ UtilFlags+4	Flags for use with sound tool startup (used Bits 0-3)
saveDpage	equ saveDbank+1
retAddr	equ saveDpage+2
startRec	equ retAddr+6
startRecFlag	equ startRec+4
userID	equ startRecFlag+2
result	equ userID+2

leaveScreenIntact	equ 4	;bit 2 for ShutDownTools startRecFlag (DAL)
openResReadWrite	equ 8	;(MUST BE BIT 3!) for StartUpTools: open resource fork read/write
skipResMgr	equ $10	;bit 4 for StartUpTools/ShutDownTools: skip RM & pre-allocation
leaveScreenOn	equ $20	;bit 5 for ShutDownTools startRecFlag (used internally ONLY!)

;
; --- Tool error codes.
;
TLBadRecFlag	equ $0103	Invalid startup record flag passed.
TLCantLoad	equ $0104	Cant load a tool.
;
;
; --- Tool startup resource equates.
;
rToolStartup	equ $8013	Resource type of tool startup record.
;
;
; --- UtilFlags codes.
WantsSound	equ $0001	indicates sound tools desired
WantsSynth	equ $0002	indicates Note Synth desired
WantsSeq	equ $0004	indicates wants note seuqencer started
WantsMIDI	equ $0008	indicates wants MIDI started
;
; --- Tool set numbers used
;
SoundToolSet	equ 8
NoteSynth	equ 25
NoteSeq	equ 26
MIDITools	equ 32
; --- System equates.
;
IncBusyFlg	equ $E10064
DecBusyFlg	equ $E10068

Stack_Entry	equ $E100B0


****************************************************************
*
StartupTools	PROC EXPORT
*
* Description
*
*
*   IN: 
*     PUSH:LONG - space for result.
*     PUSH:WORD - User ID.
*     PUSH:WORD - 0 if startup record is a pointer, 4 if a resource ID.
*     PUSH:LONG - pointer or resource ID of startup record.
*
*  OUT: 
*     PULL:LONG - handle of startup record if a resource ID was passed, 
*	else pointer to record.
*
* External Refs:
	IMPORT startCall
	IMPORT openAppRes
	IMPORT getStartupPtr
	IMPORT walkToolArray
	IMPORT pop
	import KillIt
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

	jsr startCall		Allocate a direct page.

*** added 1-Jul-92 DAL -- Pre-zero the result field so we do not return garbage
	stz <result
	stz <result+2
*** end 1-Jul-92

;
; Set the global system preferences so that under certain circumstances the
; system's Mount facility will be called asking the user to mount a specified volume
;

; First save the current System Preferences

	pea 0	Set up paramBlock for call
	pea 1	
	tsc	calculate address to paramblock
	inc a	and push on stack
	pea 0
	pha
	pea $200F	Get_Sys_Prefs
	jsl Stack_Entry	Leave parameter block on the stack so we can restore later

; Now set the System preferences to display volume mount dialog w/o the cancel button

	pea $C000	system preferences
	pea 1	pcount
	tsc	calculate address to paramblock
	inc a	and push on stack
	pea 0	
	pha
	pea $200C	Set_Sys_Prefs
	jsr Stack_Entry
	pla	Get Parameter block off the stack.
	pla
;
;
; --- Open application's resource file.
;
	jsr openAppRes		Open application's resource file.
*** added 1-Jul-92 DAL -- check for bad error
	bcs @toErrOut		;Y = error if SEC
*** end 1-Jul-92

	pha 		Save open resource file ID.
	jsr getStartupPtr		Get startup record pointer.
	pla
	bcc @ok1		Error?  Y = error code.
@toErrOut	brl @errOut

@ok1	ldy #StartStopRecord.ResFileID	Return file ID of app's open resource file.
	sta [<startRec],y
;
;
; --- Allocate direct pages for tools.
;
	stz <numPages		Start with no pages.
	stz <UtilFlags		zero out the flags
;
	lda #addPages		Compute number of direct pages needed.
	jsr walkToolArray
;
	lda <numPages		Any direct pages needed?
	beq @skip1
;
	lda #0		Common need.
	pha 		Space for result.
	pha
	pha 		Pass number of bytes to allocate.
	pei <numPages
	pei <userID		Pass my user ID.
	pea $C005		Pass attributes; locked, fixed bank, page aligned.
	pha 		Pass address, bank zero.
	pha
	_NewHandle
	tay 		Possible error code.
	pla
	sta <directPages
	pla
	sta <directPages+2
	bcs @toErrOut

;-----------------------------------------------------------
;
; Put direct page handle into the startstop record.
;

	ldy #StartStopRecord.DPageHandle
	lda directPages
	sta [StartRec],y
	iny
	iny
	lda directPages+2
	sta [StartRec],y


;
;
; --- Load and start tools requested by	caller.
;
@skip1	
	stz <loadTable		Clear tool load table.
	stz <loadTable+2
	stz <loadTable+4
;
	stz <loading		TRUE for loading tools.
	inc <loading
;

	lda #0
	pha
	pha
*** added 25-Feb-91 DAL
	lda <startRecFlag
	and #skipResMgr
	bne @skipPreallocate	;if we skip, there is a NIL handle on the stack
*** end of 25-Feb-91 DAL
	PushLong #$00008000
	PushWord #$4001		; tool locator's user id
	PushWord #attrAddr
	PushLong #$00E12000
	_NewHandle
@skipPreallocate

	lda #buildLoadTable		Build hash table of	tools to load.
	jsr walkToolArray

	pla		Get handle to screen into
	plx		a & X

	php		Save error status
	phy		Save error code

	jsr KillIt

	ply		Restore error code and
	plp		status register

	bcc @ok2		Error loading tools?
;
	tya
@errOut2	pha 		Save error code.
	ldx <directPages+2		Free allocated direct pages.
	lda <directPages
	jsr KillIt
	ply 		Restore error code.
	brl @errOut
;
@ok2	stz <numPages		Start with first page.
;
; --- Startup loop.
;
	ldx #0
	bra @enter1
@lop1	phx

	jsr checkLoadTable		Check if user wants	this tool started.
	beq @next1

	lda 1,s		Call startup handler.
	tax
	jsr (@startupTable+1,x)
	bcc @next1		No error?
	plx		Error, so clean up stack and beat it.
	bra @errOut2

@next1	plx 		Next tool.
	inx
	inx
	inx
@enter1	lda |@startupTable,x 	Next tool to start.
	and #$00FF
	bne @lop1		Any more tools?



;-----------------------------------------------------------
;
; Return the result to the calling routine.
;
	lda handle
	sta Result
	lda handle+2
	sta Result+2

;-----------------------------------------------------------
;
; Unlock if input was handle or resource
;
;
	lda StartRecFlag
	and #3	;bits 0-1	(added 17-Nov-90 DAL)
	beq @IsPtr
	ldy #4
	lda [<handle],y
;	and #$7FFF
	asl a
	lsr a
	sta [<handle],y
@IsPtr

	ldy #0	No error.

@errOut	tsc	Parameter block for Set_Sys_Prefs still on stack
	inc a
	pea 0000
	pha
	pea $200C
	jsl Stack_Entry
	plx	Get parameter block off the stack.
	plx
;
; --- Exit.
;
;  y = error code.
;
	ldx #8	Number of bytes to strip.
	brl pop


**********************************************************************
*
* This is the startup table.  To add a	tool to be started up add
* a record to this table at the position you want it to be started.
* The first tool started is the first tool in the table.
* A record is a one byte tool number followed by a one word
* address of a routine that starts the tool.  The routine should 
* start the tool and return carry set if there is an error with
* an error code in	a.
*
**********************************************************************
	IMPORT startMiscTools
	IMPORT startQuickDraw
	IMPORT startQDAux
	IMPORT startEventMgr
	IMPORT startWindowMgr
	IMPORT startControlMgr
	IMPORT startMenuMgr
	IMPORT startDialog
	IMPORT startLineEdit
	IMPORT startStandardFile
	IMPORT startDeskMgr
	IMPORT startScrap
	IMPORT startSound
	IMPORT startSANE
	IMPORT startPrintMgr
	IMPORT startFont
	IMPORT startTextEdit
	IMPORT startNoteSynth
	IMPORT StartNoteSeq
	IMPORT startMIDI
	IMPORT startACE
	import startPokey
	import startAnimation	;added 17-Nov-90 DAL
	import startMediaCtl	;added 17-Nov-90 DAL
	import startMidiSynth	;added 17-Nov-90 DAL
	import startResMgr		;26-Feb-91 DAL

@startupTable	dc.b 3
	dc.w startMiscTools
	dc.b 4
	dc.w startQuickDraw
	dc.b 18
	dc.w startQDAux
	dc.b 6
	dc.w startEventMgr
	dc.b 14
	dc.w startWindowMgr
	dc.b 16
	dc.w startControlMgr
	dc.b 15
	dc.w startMenuMgr
	dc.b 20
	dc.w startLineEdit
	dc.b 21
	dc.w startDialog
	dc.b 22
	dc.w startScrap
	dc.b 23
	dc.w startStandardFile
	dc.b 27
	dc.w startFont
	dc.b 19
	dc.w startPrintMgr
	dc.b 34
	dc.w startTextEdit
	dc.b 8
	dc.w startSound
	dc.b NoteSynth
	dc.W startNoteSynth
	dc.b NoteSeq
	dc.W StartNoteSeq
	dc.b MIDITools
	dc.W StartMIDI
	dc.b 29
	dc.W startACE
	dc.b 10
	dc.w startSANE
	dc.b 33
	dc.w startPokey
	dc.b 35		;added 17-Nov-90 DAL
	dc.w startMidiSynth		;added 17-Nov-90 DAL
	dc.b 37		;added 17-Nov-90 DAL
	dc.w startAnimation		;added 17-Nov-90 DAL
	dc.b 38		;added 17-Nov-90 DAL
	dc.w startMediaCtl		;added 17-Nov-90 DAL
	dc.b 5
	dc.w startDeskMgr
	dc.b $1E		;added 25-Feb-91 DAL
	dc.w startResMgr		;added 25-Feb-91 DAL (no-op)
	dc.b 0		;No more tools.


;-----------------------------------------------------
;   Compute number of direct pages needed.
;-----------------------------------------------------
;
;   IN: y = index to tool in startup record.
;   a = tool number.
;   <numPages = current number of direct pages needed.
;
addPages	cmp #endTools-toolTable Tool number in range?
	bcs @exit
	tay	place the tool number in <Y>
;
; First test to see if this is one of the sound tools
	ldx #0	use <X> as a temp flag
	cmp #SoundToolSet	is this the sound tools?
	bne @AP0010	if not test for note synth
	lda #WantsSound	load the proper flag
	bra @SetFlag	and set it

@AP0010	cmp #NoteSynth	is it the Note synthesizer?
	bne @AP0020	if not test for MIDI
	lda #WantsSynth	load the proper flag
	bra @SetFlag	and set it

@AP0020	cmp #MIDITools	is it the MIDI Tools?
	bne @AP0030	if not test for Note Sequencer
	lda #WantsMIDI
	tax	set <X> flag to be true
	bra @SetFlag

@AP0030	cmp #NoteSeq	is it the note sequencer?
	bne @DoAdd	if not, just add in the proper value
	lda #WantsSeq	load the proper flag
	tax	and set our <X>flag to be true

; The SetFlag routine sets the proper flag in the UtilFlags word for the tool
; and then checks to see if the Note sequencer has already been added, If so, 
; we will skip adding more direct page space for the tools.
@SetFlag	ora <UtilFlags	set the flag
	sta <UtilFlags
	cpx #00	test <X> for zero
	bne @AddSeq	if its non-zero we are adding the sequencer or MIDI
	and #WantsSeq	next test if they already added sequencer direct page
	bne @Exit	if so, then we no longer need to add direct page

; Now add the standard direct page value
@DoAdd	lda |toolTable,y 	Get pages this tool needs.
	and #$007F
	xba
	clc
	adc <numPages	Increment total pages needed.
	sta <numPages
;
@exit	clc 	Continue flag.
	rts
; Add the sequencer direct page, but first test to see if the other tools have
; already been added.
@AddSeq	lda <UtilFlags	get the flags
	tax	save it for later
	and #WantsSound	test to see if sound already added in
	bne @AS0010	if not the test for MIDI
	dec <numPages-1	decrement the number of pages by 1
@AS0010	bra @DoAdd	if not, go ahead and add the proper number of pages
	
canLoad	equ $0080	TRUE if I can load this tool.

	ENTRY toolTable
toolTable	dc.b 0	0 - not used.
	dc.b canLoad+0	1 - Tool Locator, startup not needed.
	dc.b canLoad+0	2 - Memory Manager,	started by application.
	dc.b canLoad+0	3 - Misc. Tool set.
	dc.b canLoad+3	4 - QuickDraw II.
	dc.b canLoad+0	5 - Desk Manager.
	dc.b canLoad+1	6 - Event Manger.
	dc.b canLoad+0	7 - Scheduler, startup not needed.
	dc.b canLoad+1	8 - Sound tool set.
	dc.b canLoad+0	9 - Apple Desktop Bus Tool set, startup	not needed.
	dc.b canLoad+1	10 - SANE
	dc.b canLoad+0	11 - Integer Math tool set, startup not	needed.
	dc.b canLoad+0	12 - Text tool set,	startup not needed.
	dc.b 0	13 - not used.
	dc.b canLoad+0	14 - Window Manager.
	dc.b canLoad+1	15 - Menu Manager.
	dc.b canLoad+1	16 - Control Manager.
	dc.b canLoad+0	17 - System Loader,	startup not needed.
	dc.b canLoad+0	18 - QuickDraw Auxiliary.
	dc.b canLoad+2	19 - Print Manager.
	dc.b canLoad+1	20 - LineEdit
	dc.b canLoad+0	21 - Dialog Manager.
	dc.b canLoad+0	22 - Scrap Manager.
	dc.b canLoad+1	23 - Standard File Operations.
	dc.b canLoad+0	24 - future Tool.
	dc.b canLoad+0	25 - Note synthesizer.
	dc.b canLoad+3	26 - Note sequencer.
	dc.b canLoad+1	27 - Font Manager.
	dc.b canLoad+0	28 - List Manager, startup not needed.
	dc.b canLoad+1	29 - ACE
	dc.b canLoad+0	30 - Resource Manager, startup always happens.
	dc.b canLoad+0	31 - not used.
	dc.b canLoad+3	32 - MIDI
	dc.b canLoad+0	33 - Pokey
	dc.b canLoad+1	34 - Text edit.
	dc.b canLoad+0	35 - MidiSynth	(added 17-Nov-90 DAL)
	dc.b 0	36 - not used	(added 17-Nov-90 DAL)
	dc.b canLoad+1	37 - Animation	(added 17-Nov-90 DAL)
	dc.b canLoad+0	38 - Media Control	(added 17-Nov-90 DAL)
endTools



**********************************************************************
*
*   Load tool.
*
*
*   IN: 
*        y 	= index to tool in startup record.
*        a 	= tool number.
*        <numPages 	= next available direct page.
*        <loading 	= TRUE to load tools.
*
*  OUT:  Carry set if error, y = error code.
*
**********************************************************************
	import ReportIfMissing

	entry buildLoadTable
buildLoadTable
	tax		;25-Oct-91 DAL
	cmp #endTools-toolTable	Tool number in range?
	bcs @OkToTry

;;;	tax		;moved above 25-Oct-91 DAL
	lda |toolTable,x		;Is there a loader for the tool?
	and #$00FF
	beq @cantError

@OkToTry
;
	lda <loading		Am I loading tools?
	beq @skip1
;
	phx 		Save tool number.
;
	phx 		Pass tool number.
	iny
	iny
	lda [<startRec],y		Pass minimum tool version.
	pha
	_LoadOneTool
	tay 		Possible error code.
	plx 		Restore tool number.
	bcc @skip1
*** added 17-Dec-91 DAL -- put up an alert saying they need the tool
	phy
	txa	;tool # in A
	tyx	;error in X for ReportIfMissing
	jsr ReportIfMissing
	ply	;error code
	sec
*** end 17-Dec-91
	rts 	Abort.

@skip1	txa 	Compute index to bit in LoadTable.
	and #$0007
	tay
;
	txa
	lsr a
	lsr a
	lsr a
	tax
;
	sep #$20	Set bit in hash table for tool to be loaded.
	LONGA OFF
	lda <loadTable,x
	ora |loadMasks,y
	sta <loadTable,x
	rep #$20
	LONGA ON
;
	clc 	Continue flag.
	rts
;
@cantError	ldy #TLCantLoad	Error code.
	sec
	rts
;
loadMasks	dc.b $80,$40,$20,$10,$08,$04,$02,$01


**********************************************************************
*
*   Check loadTable	if tool should be loaded.
*
*
*   IN: a 	= tool number, already checked for being in range.
*       <loadTable 	= pointer to load table.
*
**********************************************************************

	entry checkLoadTable
checkLoadTable	pha
	and #$0007
	tay

	pla
	lsr a
	lsr a
	lsr a
	tax

	sep #$20
	LONGA OFF
	lda <loadTable,x
	and |loadMasks,y
	rep #$20
	LONGA ON
	rts
	ENDP



****************************************************************
*
ShutdownTools	PROC EXPORT
*
*   If handle of startup record is passed the handle is disposed of.
*
*
*   IN: 
*     PUSH:WORD - 0 if startup record is a pointer, 2 if a handle.
*     PUSH:LONG - pointer or handle of startup record.
*
*  OUT: 
*     Nothing.
*
* Outputs:
*	none
*
* External Refs:
	IMPORT startCall
	IMPORT getStartupPtr
	IMPORT checkLoadTable
	IMPORT walkToolArray
	import KillIt
	IMPORT StopNoteSynth
	IMPORT StopSound
	import StopMM
	import stopQuickDraw
	import stopMenuMgr
	import stopResMgr		;26-Feb-91 DAL
	import stopStdFile		;17-Mar-92 DAL

*
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

	jsr startCall	;Allocate a direct page.

*** added 1-Jul-92 DAL -- If tool table reference is NIL, use a clean by-pointer table
	lda <startRec+2
	ora <startRec
	bne @notNIL
	lda #@defaultStopRecord>>16
	ldx #@defaultStopRecord
	sta <startRec+2
	stx <startRec
	stz <handle
	stz <handle+2
	lda #3
	trb <startRecFlag	;force it to be a pointer
	bra @ok1

@defaultStopRecord	dc.w 0	;flags
	dc.w 0	;QD masterSCB
	dc.w 0	;resFileID
	dc.l 0	;direct page handle
	dc.w 0	;tool count

@notNIL
*** end 1-Jul-92
	jsr getStartupPtr	;Get startup record pointer.
	bcc @ok1	;Error?  Y = error code.
	brl @errOut

@ok1	stz <loadTable	;Clear tool load table.
	stz <loadTable+2
	stz <loadTable+4

	pea $8000
	lda #0
	pha	;StringPtr = $80000000
	pha
	pha	;IconPtr = nil
	_ShowBootInfo	;initialize ShowBootInfo!

	lda <startRecFlag	;added 15-Sep-91 DAL
	and #skipResMgr	;
	bne @skipHide	;(fixes bug 1009954)

*** added 2-Apr-92 DAL -- Don't call HideCursor if QD is not started (6.0.1)
	pha
	_QDStatus
	pla
	beq @skipHide
*** end 2-Apr-92
	_HideCursor

@skipHide

*** Force the leaveScreenOn bit on in the flags if GetName says
*** the user ID matches ours.

	lda #2
	sta <getNameBlk	;GetNameGS with 2 parameters

	tsc	;built a 32-character filename result buffer on the stack
	sec
	sbc #36	;space for filename buffer
	tcs
	inc a
	sta <getName
	stz <getName+2
	lda #36
	sta 1,s	;store buffer size in first word

	pea 0
	tdc
	clc
	adc #getNameBlk
	pha
	pea $2027	;GetNameGS
	jsl $e100b0	;stack OS entry
	bcs @err

	pha
	pha	;space for GetWAP result
	pea 0	;system tool
	pea 4	;QuickDraw II
	_GetWAP
	plx
	pla
*** added 17-Feb-92 DAL for 6.0.1d1 -- If QD isn't started, don't check bogus zpage value
	txa
	beq @differentID
*** end 17-Feb-92
	lda >$00000A,x	;QuickDraw user ID
	and #$f0ff	;master ID
	cmp <getUserID
	bne @differentID

	lda #leaveScreenOn
	tsb <startRecFlag	;force the bit on

@differentID
@err	tsc
	clc
	adc #36
	tcs
*** end of leaveScreenOn code

	stz <loading		;FALSE for no loading.

	lda #buildLoadTable		;Build hash table of tools that were loaded.
	jsr walkToolArray


;-----------------------------------------------------------
; 
; Shutdown loop.
;
	ldx #0
	bra @enter1
@lop1	phx
;
	jsr checkLoadTable		Check if user wants	this tool started.
	clc 		Make flag correct.
	beq @next1
;
	plx		Call shutdown handler.
	phx
	lda |shutdownTable+1,x 	Is there a handler?
	bne @ok2
;
	lda |shutdownTable,x	Compute shutdown call number.
	and #$00FF
	ora #$0300
	tax
	jsl $E10000		Call tool's shutdown, no parameters.
	bra @enter2
;
@ok2	jsr (shutdownTable+1,x)
@enter2	tay		Possible error code into y.
@next1	plx
	bcs @errOut		Error?
;
	inx		Next tool.
	inx
	inx
@enter1	lda |shutdownTable,x 	Next tool to shutdown.
	and #$00FF
	bne @lop1		Any more tools?


;-----------------------------------------------------------
;
; Dispose of the handle we allocated for direct page.
;
	ldy #StartStopRecord.DPageHandle+2
	lda [startrec],y
	tax
	dey
	dey
	lda [startrec],y
	jsr KillIt

;-----------------------------------------------------------
;
; If the input to this call is a handle, dispose of it.
;
	lda <StartRecFlag
	and #3	;17-Nov-90 DAL
	beq @NotHandle
	lda <handle
	ldx <handle+2
	jsr KillIt

@NotHandle

;-----------------------------------------------------------
;
; We log off the res mgr last just in case any of the
; other tools need the res mgr to shut down.
;

;;;	lda <startRecFlag
;;;	and #skipResMgr
;;;	bne @skipRMSD
;;;	_ResourceShutdown	;Log off of Resource Manager.
;;;@skipRMSD

	ldy #0	;No error.
;
; @errOut -- Exit
;
@errOut

*** 1-Jul-92 DAL -- Moved ResourceShutDown code here (in error-exit path)
	phy	;save error code
	lda <startRecFlag
	and #skipResMgr
	bne @skipRMSD
	_ResourceShutDown
@skipRMSD	ply	;restore error code
*** end 1-Jul-92

	ldx #6	;Number of bytes to strip.

	entry pop
pop	jsl DecBusyFlg
;
; --- Restore saved	parameters from startupCall.
;
;
	tsc 	;Free allocate direct page in stack.
	clc
	adc #saveDbank-1
	tcs

	plb 	;Restore original data bank.

;
; --- Move return addresses over top of	input parameters.
;
	tsc
	tcd
	lda 7,s
	sta 7,x
	lda 5,s
	sta 5,x
	lda 3,s
	sta 3,x

;
; --- Adjust stact for popped parameters.
;
	pld 	;Get original direct page pointer.

	tsc 	;Current stack,
	phx
	clc
	adc 1,s	;plus number of bytes popped,
	tcs 	;equals new stack.

	tya 	;Return error code in Y.
	cmp #1	;Set carry if error.

	rtl


**********************************************************************
*
* This is the shutdown table.  To add a tool to be shutdown 
* add a record to this table at the position you want it to be shutdown.
* The first tool shutdown is the first tool in the table.
* A record is a one byte tool number followed by a one word 
* address of a routine that shutdown the tool or zero to just call 
* its shutdown call.  The routine should shutdown the tool and 
* return carry set if there is an error with an error code in a.
*
* Change History
*
* 06 Feb 89	Steven Glass
*
* Added tool locator to end of list.
*
* 17-Nov-90	Dave Lyons
*
* Added Media Control, Animation, MidiSynth right after Desk Manager.
*
**********************************************************************
shutdownTable	
	dc.b 5	;Desk Mgr
	dc.w 0
	dc.b 38	;Media Control	(added 17-Nov-90 DAL)
	dc.w 0		(added 17-Nov-90 DAL)
	dc.b 37	;Animation	(added 17-Nov-90 DAL)
	dc.w 0		(added 17-Nov-90 DAL)
	dc.b 35	;MidiSynth	(added 17-Nov-90 DAL)
	dc.w 0		(added 17-Nov-90 DAL)
	dc.b 33	;Video Overlay
	dc.w 0
	dc.b 10	;SANE
	dc.w 0
	dc.b 29	;ACE
	dc.W 0
	dc.b NoteSeq	;Note sequencer
	dc.W 0
	dc.B MIDITools	;MIDI
	dc.W 0
	dc.B NoteSynth	;Note Synth
	dc.W StopNoteSynth
	dc.b 8	;Sound Tool
	dc.w StopSound
	dc.b 34	;Text Edit
	dc.w 0
	dc.b 19	;Print Mgr
	dc.w 0
	dc.b 27	;Font Mgr
	dc.w 0
	dc.b 23	;Standard File
	dc.w stopStdFile
	dc.b 21	;Dialog Mgr
	dc.w 0
	dc.b 22	;Scrap Mgr
	dc.w 0
	dc.b 20	;Line Edit
	dc.w 0
	dc.b 15	;Menu Mgr
	dc.w stopMenuMgr
	dc.b 16	;Control Mgr
	dc.w 0
	dc.b 14	;Window Manager
	dc.w 0
	dc.b 6	;Event Mgr
	dc.w 0
	dc.b 18	;QD Aux
	dc.w 0
	dc.b 4	;Quick Draw
	dc.w stopQuickDraw
	dc.b 3	;Misc. Tools
	dc.w 0
	dc.b 2	;Memory Manager
	dc.w StopMM
	dc.b $1E	;Resource Manager 25-Feb-91 DAL
	dc.w StopResMgr	; (no-op)
	dc.b 1	;Tool Locator
	dc.w 0
	dc.b 0	;(No more tools)

	ENDP


****************************************************************
*
getStartupPtr	PROC
*
* Description
*
*
* Inputs:
*	none
*
* Outputs:
*        <handle = handle of startup record, NIL if none.
*        <startRec = pointer to startup record.
*        Carry set if error, y = error code.
*
* External Refs:
	IMPORT derefHand
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

;;;	ldy #TLBadRecFlag	;Possible error code.
	lda <startRecFlag	;Dispatch to converter.
	and #3	;17-Nov-90 DAL
	asl a
	tax
;;;	cpx #5
;;;	bcs @errOut
	jmp (@converters,x)
@converters	dc.w @pointer
	dc.w @hand
	dc.w @res
*** added 1-Jul-92 DAL
	dc.w @illegal

@illegal	ldy #TLBadRecFlag
	sec
	rts
*** end 1-Jul-92
;
;
; ------ Startup record is a handle.
;
@hand	lda <startRec	;Save handle.
	ldx <startRec+2
	sta <handle
	stx <handle+2
	brl derefHand	;<startRec = (<handle)
;
;
; ------ Startup record is a resource ID.
;
@res	pha 	;Space for result.
	pha
	pea rToolStartup	;Pass resource type of resource startup record.
	pei <startRec+2	;Pass resource ID of resource startup record.
	pei <startRec
	_LoadResource
	tay	;Put possible error code in y.
	pla
	plx
	bcs @errOut
;
	sta <handle
	stx <handle+2
;
	pea rToolStartup	;Pass resource type of resource startup record.
	pei <startRec+2	;Pass resource ID of resource startup record.
	pei <startRec
	_DetachResource	;Let startup record float.
;
	brl derefHand	;<startRec = (<handle)
;
;
; ------ Startup record is a pointer.
;
@pointer	lda startRec	No handle so copy pointer to handle to use
	sta <handle	as output
	lda startRec+2
	sta <handle+2

	clc 	No error.
@errOut	rts

	ENDP


****************************************************************
*
startCall	PROC
*
* Incs the busy flag, and gets d-page off stack for use
* in call.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

;
	jsl IncBusyFlg
;
	plx 	Get caller's return address.
;
	phd 	Save caller's direct page pointer.
	phb 	Save caller's data bank pointer.
	phk
	plb
;
	tsc 	Allocate direct page in stack.
	sec
	sbc #saveDbank-1
	tcs
	tcd
;
	phx 	Put return address back.
	rts


	ENDP


****************************************************************
*
derefHand	PROC
*
* Derefernce handle of startup record	if there is a handle.
*
*
* Inputs:
*	handle
*
* Outputs:
*	startRec
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

;
	lda <handle+1	NIL handle?
	beq @exit
;
	ldy #4	Lock the handle  (added 30 Mar 89)
	lda [<handle],y
	ora #$8000
	sta [<handle],y

	ldy #2	Dereference the handle.
	lda [<handle],y
	sta <startRec+2
	lda [<handle]
	sta <startRec
;
@exit	clc 	No error.
	rts
	ENDP



****************************************************************
*
openAppRes	PROC
*
* Open the application's resource fork.
*
*
* Inputs:
*	direct page stuff
*
* Outputs:
*	a-reg = openfile id, NIL if none
*                   SEC = bad error (in Y) (added 1-Jul-92)
*
* External Refs:
	import KillIt
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

*** added 25-Feb-91 DAL
	lda <startRecFlag
	and #skipResMgr
	beq @doResMgr
	brl @errOut
@doResMgr
*** end of 25-Feb-91 DAL

	pha 	;Is the Resource Manager loaded?
	_ResourceStatus
	pla
	bcc @1
	brl @errOut
@1
	pei <userID	;Pass user ID.
	_ResourceStartUp	;Log application in with Resource Manager.
*** added 1-Jul-92 DAL -- Check for an error from ResourceStartUp
	bcc @resStarted
	tay
;	sec
	rts
@resStarted
*** end 1-Jul-92
;
; ------ Get name of application.
;
	pha 	;Space for result.
	pha
	pea 0	;Pass number of bytes to allocate.
	pea 1024
	pei <userID	;Pass user ID.
	pea $C000	;Pass attributes, fixed.
	pha	;Pass address, not used.
	pha
	_NewHandle
	plx
	stx <handle
	plx
	stx <handle+2
	tay 	;Possible error code.
	bcs @errOut

	ldy #2	;Dereference the handle.
	lda [<handle],y
	sta <getName+2
	lda [<handle]
	sta <getName


*** The old way:  use "1/" + GetName (17-Nov-90 DAL)
*** old way	;
*** old way		lda #1024	Size of name buffer.
*** old way		sta [<getName]
*** old way	;
*** old way		lda #1	Initialize parameter block.
*** old way		sta <getNameBlk
*** old way	;
*** old way		pea 0	Pass pointer to parameter block.
*** old way		tdc
*** old way		clc
*** old way		adc #getNameBlk
*** old way		pha
*** old way		pea $2027	GetName.
*** old way		jsl $E100B0	Call GS/OS to get the name of the appliation.
*** old way	;
*** old way		ldy #2	Get length of name,
*** old way		lda [<getName],y
*** old way		inc a	add size of prefix to be added,
*** old way		inc a
*** old way		sta [<getName]	turn into an input name.
*** old way	;
*** old way		lda #$2F31	Add application prefix '1/'
*** old way		sta [<getName],y
*** old way	
*** old way	
*** old way	; Let me take a moment to say how much fun it is to
*** old way	; get the application's pathname.  And soooo easy too!

*** The New Way:  Use LGetPathname2 on the master UserID passed in

	pha
	pha	;space for LGetPathname2 result
	lda <UserID
	and #$f0ff
	pha
	pea 1	;file number
	_LGetPathname2

	pla	;anticipate error:
	bcs @pathError	;take branch with ONE word to be pulled
	pha	;put half of result back on stack

	phd
	tsc
	tcd
	lda [3]	;get length of pathname
	inc a
	inc a
	pld

* leave LGetPathname2 result on stack for BlockMove
	pei <getName+2	;destination for BlockMove
	pei <getName
	pea 0
	pha	;length of string
	_BlockMove
;
; ------ Open application's resource file.
;
	pha 	;Space for OpenResourceFile result

***	PushWord #1	;Read only access!
*** 15,18-Feb-91 DAL -- bit 3 of the StartStopRefRef means open res fork "as allowed" instead of read-only
	lda <startRecFlag
	and #openResReadWrite
	lsr a
	lsr a
	lsr a
	eor #1
	pha
*** end of 15,18-Feb-91 DAL
	lda #0	;Pass map pointer, none.
	pha
	pha
	pei <getName+2	;Pass pointer to GS/OS input name of application.
	pei <getName
	_OpenResourceFile

@pathError	php 	;Save result.

	ldx <handle+2	;Free pathname buffer.
	lda <handle
	jsr KillIt

	plp 	;Restore status.
	pla	;Get file ID returned by OpenResource (or 2nd word of LGetPathname2 result)
	bcc @exit

@errOut	lda #0	;Return no open file ID.
@exit	clc	;always return from here with CLC, started ResMgr (1-Jul-92)
	rts

	ENDP



****************************************************************
*
walkToolArray	PROC
*
* Calls the indicated routine for each tool in the array.  The
* indicated routine is called with following inputs:
*
*	y = index to tool in startup record
*
* The output from the routine is the carry flag: set to abort.
*
*
*   IN: 
*      a = 	address of routine to call for each tool in the array.
*      <startRec = 	pointer to start record that contains the tool array.
*
*  OUT: 
*      Carry set if routine aborted walk.
*      Carry clear if entire list walk.
*
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

@saveToolIndex	equ 1
@saveToolCounter	equ @saveToolIndex+2
@routine	equ @saveToolCounter+2

	dec a	;Make address a return address.
	pha	;Save address.

	ldy #StartStopRecord.NumTools	;Get number of tools in array.
	lda [<startRec],y
	tax
	iny	;Index to first tool.
	iny
	bra @enter1

@lop1	phx	;Save tool counter.
	phy	;Save tool index.

	lda @routine,s
	pea @return-1	;Put return address on stack.
	pha 	;Dispatch to routine to call.
	lda [<startRec],y	;Pass tool number.
	rts
@return	pla
	plx
	bcs @exit	;Did routine abort?

	clc	;Increment index to next tool element.
	adc #4
	tay

@enter1	dex	;Any more tools?
	bpl @lop1

	clc	;Entire array walked flag.
@exit	pla	;Get rid of return address.
	rts
	ENDP


;=====================================================================
;   Pass pointer to	direct page and increment counter.
;=====================================================================
;
;   IN: a = tool number, range already checked.
;   <directPages = handle of direct pages.
;   <numPages = next available direct page.
;
;  OUT: Pointer to available direct page on stack.
;   <numPages = next available direct page.
;
pushDirectPage	PROC

	IMPORT toolTable

	tay 	;Save tool number.

	plx 	;Pull return address.
	lda [<directPages]	;Push pointer to next available direct page.
	clc
	adc <numPages
	pha
	phx 	;Put return address back.

	lda |toolTable,y	;Increment page counter.
	and #$007F
	xba
	clc
	adc <numPages
	sta <numPages
	rts

	ENDP


;*************************************************************************************
;           Tool Startup handlers.
;*************************************************************************************

;===========================================
;   Start Miscellaneous Tools.
;===========================================

startMiscTools	PROC

	_MTStartup
	rts
	ENDP


;===========================================
;   Start QuickDraw.
;===========================================

startQuickDraw	PROC

	IMPORT pushDirectPage

	lda #4		;Pass address of QuickDraw's direct pages.
	jsr pushDirectPage
	ldy #StartStopRecord.VideoMode	;Pass video mode to start in.
	lda [<startRec],y
	pha
*** added 20-Nov-90 DAL: If we're starting the Window Manager too, don't clear the screen
	lda #14	;window manager
	jsr checkLoadTable
	beq @noWM
	pla
	ora #$0100	;force bit $0100 on in the MasterSCB word
	pha
@noWM
*** end of 20-Nov-90 DAL
	pea 160	;Pass bytes per scan line.
	pei <userID	;Pass user ID.
	_QDStartup
	bcs @errOut2

*** added 25-Feb-91 DAL: If we're starting the Event Mgr too, don't show the cursor yet
	lda #6
	jsr checkLoadTable
	bne @doingEM
***
	_ShowCursor 	;Turn on cursor.
@doingEM	clc
@errOut2	rts
	ENDP


;===========================================
;   Start QuickDraw	Aux.
;===========================================

startQDAux	PROC

	_QDAuxStartup
	_WaitCursor

	rts
	ENDP


;===========================================
;   Start Event Manager.
;===========================================

startEventMgr	PROC

	IMPORT pushDirectPage

	lda  #6		;pointer to Event Manager direct page.
	jsr  pushDirectPage
	pea  20		;queue size.
	pea  0		;minimum x mouse clamp.
	ldx  #640
	ldy  #StartStopRecord.VideoMode	;video mode to start in.
	lda  [<startRec],y
***	and  #$00FF		;Added by DDG to fix shadowed QD bug
	and #$0080		;changed from $ff to $80 17-Nov-90 DAL
	bne  @okEM
	ldx  #320
@okEM	phx		;maximum x mouse clamp.
	pea  0		;minimum y mouse clamp.
	pea  200		;maximum y mouse clamp.
	pei  <userID		;application's user ID.
	_EMStartup
	bcs @outtahere
*** 25-Feb-91 DAL: If we started QD too, do a ShowCursor now
	lda #4
	jsr checkLoadTable
	beq @noQD
	_ShowCursor
@noQD	clc
***
@outtahere	rts

	ENDP


;===========================================
;   Start Window Manager.
;===========================================

startWindowMgr	PROC

	pei <userID	;Pass application's user ID.
	_WindStartup
	bcs @toerrOut2

	lda #15	;Menu Manager too?   21-Nov-90 DAL
	jsr checkLoadTable	; (Refresh *after* MenuStartUp if we can!)
	clc	;
	bne @toerrOut2	;

	pea 0	;Pass 'entire screen' flag.
	pea 0
	_RefreshDesktop 	;Draw screen.
@toerrOut2	rts
	ENDP


;===========================================
;   Start Control Manager.
;===========================================

startControlMgr	PROC

	IMPORT pushDirectPage

	pei <userID	;Pass application's user ID.
	lda #16	;Pass pointer to Control Manager direct page.
	jsr pushDirectPage
	_CtlStartup
	rts
	ENDP


;===========================================
;   Start Menu Manager.
;===========================================

startMenuMgr	PROC

	IMPORT pushDirectPage

	pei <userID	;Pass application's user ID.
	lda #15	;Pass pointer to direct page.
	jsr pushDirectPage
	_MenuStartup
	bcs @1

	pea 0	;added 21-Nov-90 DAL
	pea 0
	_RefreshDesktop

@1	rts
	ENDP


;===========================================
;   Start Dialog Manager.
;===========================================

startDialog	PROC

	pei <userID	;Pass application's user ID.
	_DialogStartup
	rts
	ENDP


;===========================================
;   Start Line Edit.
;===========================================

startLineEdit	PROC

	IMPORT pushDirectPage

	pei <userID	;Pass application's user ID.
	lda #20	;Pass pointer to direct page.
	jsr pushDirectPage
	_LEStartup
	rts
	ENDP


;===========================================
;   Start Standard File.
;===========================================

startStandardFile	PROC

	IMPORT pushDirectPage

	pei <userID	;Pass application's user ID.
	lda #23	;Pass pointer to direct page.
	jsr pushDirectPage
	_SFStartup
	rts
	ENDP


;===========================================
;   Start Desk Manager.
;===========================================

startDeskMgr	PROC
	_DeskStartup
	rts
	ENDP


;===========================================
;   Start Resource Manager (no-op)
;===========================================

startResMgr	PROC
	clc
	rts
	ENDP


;===========================================
;   Start Scrap Manager.
;===========================================

startScrap	PROC
	_ScrapStartup
	rts
	ENDP


;===========================================
;   Start Sound Tool.
;	8 dec 88 Modified to check for note seq startup - Mensch
;===========================================

startSound	PROC

	IMPORT pushDirectPage

	lda <UtilFlags	;first test to see if we are going to start the seq
	and #WantsSeq	
	bne @done	;if so, then skip NoteSynth startup
	lda #8	;Pass pointer to direct page.
	jsr pushDirectPage
	_SoundStartup
@done
	rts
	ENDP


;===========================================
;   Start Note Synth Tool.
;	8 dec 88 Added - Mensch
;===========================================

startNoteSynth	PROC

	IMPORT pushDirectPage

	lda <UtilFlags	;first test to see if we are going to start the seq
	and #WantsSeq	
	bne @done	;if so, then skip NoteSynth startup
	
	lda #0
	pha	;default update rate
	pha	;no user update rtn
	pha
	_NSStartUp
@done
	rts
	ENDP


;============================================
;    Stop QuickDraw
;	19-Nov-90 Dave Lyons -- added
;
; Calls QDShutDown, but first we set bit $0100
; of the MasterSCB if we should leave the SHR
; screen turned on.
;
;============================================
stopQuickDraw	proc
	lda <startRecFlag
	and #leaveScreenOn+leaveScreenIntact
	beq @1
	pha
	_GetMasterSCB
	pla
	ora #$0100
	pha
	_SetMasterSCB

	pha
	_GetMasterSCB
	_SetAllSCBS	;experimental 21-Nov-90 DAL (Andy N was whining for this)

	_HideCursor
@1	_QDShutDown
	rts


;============================================
;    Stop Menu Manager
;	21-Feb-91 Dave Lyons -- added
;
; Checks the leaveScreenIntact flag in startRecFlag.
; If clear, we wipe out the menu bar before
; calling MenuShutDown.
;
;============================================
stopMenuMgr	proc
	lda <startRecFlag
	and #leaveScreenIntact
	bne @noWipe

	pha
	pha
	_GetPort	;preserve old port
	pha
	pha
	_GetMenuMgrPort
	_SetPort	;set menu manager port

	pha
	pha
	_GetSysBar
	phd	;dereference system menu bar handle
	tsc
	tcd
	ldy #2
	lda [3],y
	tax
	lda [3]
	clc	;add 8 (offset to rectangle)
	adc #8
	sta 3
	bcc @1
	inx
@1	stx 5	;deference system menu bar

	ldy #8	;offset past rectangle to flags
	lda [3],y
	and #$0080	;menu bar invisible?
	bne @menuBarInvis

	ldy #6
@pushrect	lda [3],y
	pha
	dey
	dey
	bpl @pushrect

	tsc
	inc a
	pea 0
	pha	;pushed rectangle pointer for EraseRect
	pea 0
	pha	;push rectangle pointer again for InsetRect
	pea 2	;horizontal inset
	pea 1	;vertical inset
	_InsetRect
	_EraseRect

	pla
	pla
	pla
	pla	;pulled rectangle

@menuBarInvis	pld	;restore direct page
	pla
	pla	;pull dereferenced value

	_SetPort	;restore old port
@nowipe	_MenuShutDown
	rts


;============================================
;    Stop MM (Memory Manager).
;	11 Apr 89 added - Glass
; Does nothing.
;============================================
StopResMgr	proc
	EndP
StopMM	PROC
	rts
	ENDP

;============================================
; Stop Standard File
;   New routine 17-Mar-92 DAL to tolerate error
;============================================
stopStdFile	proc
	_SFShutDown
	clc
	rts
	EndP


;============================================
;    Stop Note synth Tool.
;	9 dec 88 added - Mensch
;============================================
StopNoteSynth	Proc
	_NSShutDown	;shut down note synth and ignore errors
	clc	;they mean nothing since only error is not started
	rts


;============================================
;    Stop Sound Tools
;	9 dec 88 added - mensch
;============================================
StopSound	Proc
	_SoundShutDown	;ignore errors here
	clc
	rts


;===========================================
;   Start MIDI tools.
;	8 dec 88 Added - Mensch
;===========================================
startMIDI	PROC

	IMPORT pushDirectPage

	pei <userID	;Pass application's user ID.
	lda #32	;Pass pointer to direct page.
	jsr pushDirectPage
	_MIDIStartup

	rts
	ENDP


;===========================================
;   Start NOTE sequencer.
;	8 dec 88 Added - Mensch
;===========================================
startNoteSeq	PROC

	IMPORT pushDirectPage

	lda #26	;Pass pointer to direct page.
	jsr pushDirectPage
	lda <UtilFlags	;see if the user wanted MIDI started up
	and #WantsMIDI	
	beq @SNS0010	;if not then just push a zero for MODE
	lda #$8000	;if MIDI then set high bit of MODE
@SNS0010	pha	;push the mode
	pea $0000	;use the standard update rate
	pea #20	;use 20 as the standard increment
	_SeqStartup
	bcs @SNSErr
	_StopInts	;turn off sequencer interupts for now
@SNSErr
	rts
	ENDP


;===========================================
;   Start ACE.
;	8 dec 88 added - Mensch
;===========================================

startACE	PROC

	IMPORT pushDirectPage

*** Note that this doesn't call ACEInfo to see how much DP space we need.  17-Nov-90 DAL

	lda #29	;Pass pointer to direct page.
	jsr pushDirectPage
	_ACEStartup

	rts
	ENDP

;===========================================
;   Start SANE.
;===========================================

startSANE	PROC

	IMPORT pushDirectPage

	lda #10	;Pass pointer to direct page.
	jsr pushDirectPage
	_SANEStartup
	rts
	ENDP

;===========================================
;   Start Pokey.
;===========================================

startPokey	PROC

	ldx #$0221	; _StartVideoMix
	jsl $E10000
	rts

	ENDP

;===========================================
;   Start Print Manager.
;===========================================

startPrintMgr	PROC

	IMPORT pushDirectPage

	pei <userID	;Pass application's user ID.
	lda #19	;Pass pointer to direct page.
	jsr pushDirectPage
	_PMStartup
	rts
	ENDP


;===========================================
;   Start Font Manager.
;===========================================

startFont	PROC

	pei <userID	;Pass application's user ID.
	lda #27	;Pass pointer to direct page.
	jsr pushDirectPage
	_FMStartup
	rts
	ENDP

;===========================================
;   Start Text Edit.
;===========================================

startTextEdit	PROC

	IMPORT pushDirectPage

	pei <userID	;Pass application's user ID.
	lda #34	;Pass pointer to direct page.
	jsr pushDirectPage
	_TEStartup
	rts
	ENDP

;===========================================
;   StartMidiSynth
;===========================================
;(Added 17-Nov-90 DAL)

startMidiSynth	PROC

	ldx #$0223	;_MidiSynthStartUp, or whatever it's called
	jsl $e10000
	rts
	ENDP


;===========================================
;   StartAnimation
;===========================================
;(Added 17-Nov-90 DAL)

startAnimation	PROC

	IMPORT pushDirectPage

	pei <userID	;push the user ID!  19-Feb-91 DAL

	lda #37	;Pass pointer to direct page.
	jsr pushDirectPage
	lda #0
	pha	;ModeFlag=0
	pha	;added 4-Dec-90 DAL (ModeFlag is really a LONG)
	pha	;PatchTable=NIL
	pha	;PatchTable=NIL
	ldx #$0225	;_AnimStartUp
	jsl $e10000
	rts
	ENDP


;===========================================
;   StartMediaCtl
;===========================================
;(Added 17-Nov-90 DAL)

startMediaCtl	PROC

	IMPORT pushDirectPage

	pei <userID	;Pass application's user ID.
	ldx #$0226	;_MCStartUp
	jsl $e10000
	rts
	ENDP


****************************************************************
*
* Central handle disposing routine.  Inputs handle in a & x
*
*
* Inputs:
*	a-reg low word of handle
*	x-reg high word of handle
*
* Outputs:
*	a-reg error code
*	carry error condition
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

KillIt	PROC
	phx
	pha
	_DisposeHandle
	rts
	ENDP


	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/tl/textstate.asm b/IIGS.601.SRC/GSToolbox/tl/textstate.asm
new file mode 100644
index 0000000..83c88b6
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/tl/textstate.asm
@@ -0,0 +1 @@
+	title 'Tool Locator--TextState'
****************************************************************
*			   *
*	   TextState		   *
*			   *
****************************************************************


****************************************************************
*			   *
*	Copyright (C) 1985-1988,1991	   *
*	All Rights Reserved		   *
*	Apple Computer, Inc.	   *
*			   *
****************************************************************
*
* 6-Jun-91 Dave Lyons
*
* Text page 1 shadowing state (from bit 0 of $E0C035) is now
* stored in bit 0 of the s_80col byte in the Text State handle.
* SaveTextState saves the status and enables shadowing;
* RestoreTextState restores the old state.
*
* RestoreTextState(NIL) now does nothing.
*
****************************************************************


	blanks off
	string asis

	print push
	print off
	include 'all.macros'
	include '::sys.equs.asm'
	INCLUDE 'e16.memory'

	include 'tl.equates.asm'
	print pop




	title ' Imported Addresses'
;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

	IMPORT EndCall4
	IMPORT EndCall8
	IMPORT ErrOut4
	IMPORT ErrOut8
	IMPORT oBusyErr4
	IMPORT oEndCall0

	eject
****************************************************************
*
SaveTextState	PROC EXPORT
*
* Saves the text screen and releated variables into a buffer
* obtained from the memory manager.  Returns handle to buffer.
* 
* Inputs:
*	none
*
* Outputs:
*	StateHandle : long
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


	DefineStack
OrigDirect	WORD
StatePtr	LONG
RTL1	BLOCK 3
RTL2	BLOCK 3
StateHandle	LONG

	pha	; push 4 bytes on to use as
	pha	; StatePtr
	phd
	tsc
	tcd

	phb	; save data bank
	pea $E0E0	; set it to bank e0
	plb
	plb

; Get Memory

;	pha
;	pha
;	PushLong #SizeStateRecord
;	PushWord #TLUserID
;	PushWord #$0000
;	PushLong #0
;	_NewHandle
*** Optimized 6-Jun-91 DAL
	pha
	pha	;space for NewHandle
	lda #0
	pha	;high word of size=0
	pea SizeStateRecord	;low word of size
	pea TLUserID	;ID=$9001
	pea $8000	;attributes=locked
	pha
	pha	;location doesn't matter
	_NewHandle
*** end 6-Jun-91 DAL
	bcc NoMemError
	plx
	plx
	tax	; put error in x
	brl GetOutNow

NoMemError	pla
	sta StateHandle
	pla
	sta StateHandle+2

	lda [StateHandle]
	sta StatePtr
	ldy #2
	lda [StateHandle],y
	sta StatePtr+2


; Now save important zero page information relating to
; state of firmware.

	sep #$30
	longa off
	longi off

; Make sure that main memory, etc is set correctly.

	lda |statereg	; get memory state
;;;;;	ldy #s_statereg	; put into memory block
;;;;;	sta [StatePtr],y
	sta [StatePtr]	;optimized 6-Jun-91 DAL

; Save the video mode softswitches.

	lda |rd80col
*** added 6-Jun-91 DAL -- hide the text shadow state in bit 0
	lsr a
	pha
	lda >$E0c035
	lsr a	;shadow state in Carry

	php
	asl a
	sta >$E0C035	;force text shadowing on
	plp

	pla
	rol a	;put shadow state in bit 0
*** end of 6-Jun-91 DAL
	ldy #s_80Col
	sta [StatePtr],y

	lda |newvideo
	ldy #s_NewVideo
	sta [StatePtr],y

;----------------------------------------------------------
;
; Note that we take	advantage of the fact that these next
; six soft switches	line up just right and can be read
; two at a time.  (We also made sure that they lined up
; in the state record too.)

	rep #$30
	longa on
	longi on

	lda |rdtext	;save rdtext and rdmix
	ldy #s_text
	sta [StatePtr],y

	lda |rdpage2	;save rdpage2 and rdhires
	ldy #s_Page2
	sta [StatePtr],y

	lda |altcharset	;save altcharset and rd80vid
	ldy #s_altCharSet
	sta [StatePtr],y


;----------------------------------------------------------
;
; I don't know why this one is a word, but it is!

	lda >cursor
	ldy #s_Cursor
	sta [StatePtr],y

;----------------------------------------------------------
;
; Note that I go into mixed mode here--long index but short
; memory.

	sep #%00100000
	longa off

	lda |rdc3rom
	ldy #s_c3rom
	sta [StatePtr],y


;----------------------------------------------------------
;
; Back to full 16 bit mode!
;
	rep #%00100000
	longa on


;----------------------------------------------------------
;
; Now we save All of zero page!!!!
;
	ldx #0
	ldy #s_ZeroPage
ZPLoop	lda >0,x
	sta [StatePtr],y
	iny
	iny
	inx
	inx
	cpx #256
	bcc ZPLoop

;----------------------------------------------------------
;
; Now we set the video to be the way we	want it!
;
	sep #$30
	longa off
	longi off

	lda |newvideo
	and #%01111111
	sta |newvideo
	sta |txtset
	sta |mixclr
	sta |txtpage1

;----------------------------------------------------------
;
; Set Normal video (not inverse/flash)
;

	lda #$FF
	sta >$000032	; inverse switch


;----------------------------------------------------------
;
; Back to full native to get the text tool global variables
;

	rep #$30
	longa on
	longi on

	pha	; Start with output	device
	pha
	pha
	_GetOutputDevice
	ldy #s_OutputDevice
	pla
	sta [StatePtr],y
	iny
	iny
	pla
	sta [StatePtr],y
	iny
	iny
	pla
	sta [StatePtr],y

	pha	; now the output globals
	pha
	_GetOutGlobals
	ldy #s_OutGlobals
	pla
	sta [StatePtr],y
	pla
	iny
	iny
	sta [StatePtr],y


	pha	; Next the input device
	pha
	pha
	_GetInputDevice
	ldy #s_InputDevice
	pla
	sta [StatePtr],y
	iny
	iny
	pla
	sta [StatePtr],y
	iny
	iny
	pla
	sta [StatePtr],y


	pha	; finally, the intput globals too
	pha
	_GetInGlobals
	ldy #s_InGlobals
	pla
	sta [StatePtr],y
	iny
	iny
	pla
	sta [StatePtr],y


;----------------------------------------------------------
;
; Finally, we save the screen contents.
;
; Note that I save the entire screen including screen
; holes.  But I carefully refrain from putting back
; any of the screen	holes except for slot 3.
;

	jsl SaveTheScreen

*** added 6-Jun-91 DAL -- unlock the state handle
	ldy #4
	lda [<StateHandle],y
	and #$7fff
	sta [<StateHandle],y
*** end of 6-Jun-91 DAL

	ldx #0	; signal no error

GetOutNow	plb	; restore the data bank
	pld	; restore direct page reg

	pla	; get rid of pointer
	pla

	txa
	cmp #1
	rtl

;----------------------------------------------------------
;
; SaveTheScreen
;
SaveTheScreen	ldx #0
	ldy #s_TextBank0
B0Loop	lda >$000400,x
	sta [StatePtr],y
	iny
	iny
	inx
	inx
	cpx #$400
	bcc B0Loop

	ldx #0
	ldy #s_TextBank1
B1Loop	lda >$010400,x
	sta [StatePtr],y
	iny
	iny
	inx
	inx
	cpx #$400
	bcc B1Loop

	ldx #0
	ldy #s_TextBankE0
BE0Loop	lda >$E00400,x
	sta [StatePtr],y
	iny
	iny
	inx
	inx
	cpx #$400
	bcc BE0Loop

	ldx #0
	ldy #s_TextBankE1
BE1Loop	lda >$E10400,x
	sta [StatePtr],y
	iny
	iny
	inx
	inx
	cpx #$400
	bcc BE1Loop

	rtl

	ENDP


****************************************************************
*
RestoreTextState	PROC EXPORT
*
* Restores text screen and related variables from handle 
* passed by user.  (Handle should have been created by SaveTextState
* call.)  Disposes of handle.
*
*
* Inputs:
*	ScreenDataHandle : long
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************



	DefineStack
OrigDirect	WORD
StatePtr	LONG
RTL1	BLOCK 3
RTL2	BLOCK 3
StateHandle	LONG

	pha	; push 4 bytes on to use as
	pha	; StatePtr
	phd
	tsc
	tcd

	phb	; save data bank
	pea $E0E0	; set it to bank e0
	plb
	plb

*** added 6-Jun-91 DAL -- if StateHandle=NIL, take no action
	lda <StateHandle+1
	bne @continue

	ldx #0
	brl ExitRestTextState

@continue	ldy #4
	lda [StateHandle],y
	ora #$8000
	sta [StateHandle],y
*** end of 6-Jun-91 DAL

;----------------------------------------------------------
;
; Dereference the state record handle.
;
	lda [StateHandle]
	sta StatePtr
	ldy #2
	lda [StateHandle],y
	sta StatePtr+2


; Now save important zero page information relating to
; state of firmware.

	sep #$30
	longa off
	longi off

; Now the video mode switches

	ldy #s_80Col
*** added 6-Jun-91 DAL -- restore text shadow state from bit 0
	lda [StatePtr],y
	lsr a	;shadow state in Carry
	php
	lda >$e0c035
	lsr a
	plp	;shadow state in Carry again
	rol a
	sta >$e0c035
*** end 6-Jun-91 DAL
	lda [StatePtr],y
	bpl Clear80Col
	sta |Set80Col
	bra Done80Col
Clear80Col	sta |Clr80Col
Done80Col		; 

	ldy #s_80Vid
	lda [StatePtr],y
	bpl Clear80Vid
	sta |Set80Vid
	bra Done80Vid
Clear80Vid	sta |Clr80Vid
Done80Vid		; 

	ldy #s_NewVideo	; new video
	lda [StatePtr],y
	and #$C0
	ora |newvideo
	sta |newvideo

	ldy #s_text	; text
	lda [StatePtr],y
	bpl ClearText
	sta |txtset
	bra DoneText
ClearText	sta |txtclr
DoneText		; 

	ldy #s_mix	; text mix
	lda [StatePtr],y
	bpl ClearMix
	sta |MixSet
	bra DoneMix
ClearMix	sta |MixClr
DoneMix		; 

	ldy #s_Page2	; page 2
	lda [StatePtr],y
	bpl DoPage1
	sta |TxtPage2
	bra DonePage
DoPage1	sta |TxtPage1
DonePage		; 

	ldy #s_Hires	; hires
	lda [StatePtr],y
	bpl DoLoRes
	sta |hires
	bra DoneHires
DoLoRes	sta |lores
DoneHires		; 

	ldy #s_altCharSet	; alternate character set.
	lda [StatePtr],y
	bpl ClearAC
	sta |setaltchar
	bra DoneAltChar
ClearAC	sta |ClrAltChar
DoneAltChar		; 
	sta |altcharset

	ldy #s_c3rom	; slot 3 rom
	lda [StatePtr],y
	bpl DoInternal
	sta |setslotc3rom
	bra DoneSlot3
DoInternal	sta |setintc3rom
DoneSlot3		; 

;----------------------------------------------------------
;
; Retore the State register
;
;;;;;	ldy #s_statereg
;;;;;	lda [StatePtr],y
	lda [StatePtr]	;optimized 6-Jun-91 DAL
	sta |statereg


	rep #$30
	longa on
	longi on

;----------------------------------------------------------
;
; I don't know why this one is a word, but it is!

	ldy #s_Cursor
	lda [StatePtr],y
	sta >cursor


;----------------------------------------------------------
;
; Now we restore All of zero page!!!!
;
	ldx #0
	ldy #s_ZeroPage
ZPLoop	lda [StatePtr],y
	sta >0,x
	iny
	iny
	inx
	inx
	cpx #256
	bcc ZPLoop


;----------------------------------------------------------
;
; Back to full native to get the text tool global variables
;

	rep #$30
	longa on
	longi on

	ldy #s_OutputDevice+4
	lda [StatePtr],y
	pha
	dey
	dey
	lda [StatePtr],y
	pha
	dey
	dey
	lda [StatePtr],y
	pha
	_SetOutputDevice

	ldy #s_OutGlobals+2
	lda [StatePtr],y
	pha
	dey
	dey
	lda [StatePtr],y
	pha
	_SetOutGlobals


	ldy #s_InputDevice+4
	lda [StatePtr],y
	pha
	dey
	dey
	lda [StatePtr],y
	pha
	dey
	dey
	lda [StatePtr],y
	pha
	_SetInputDevice

	ldy #s_InGlobals+2
	lda [StatePtr],y
	pha
	dey
	dey
	lda [StatePtr],y
	pha	; now the output globals
	_SetInGlobals


;----------------------------------------------------------
;
; Finally, we restore the screen contents.
;
; Note that I save the current screen holes on the stack
; restore the entire screen and then restore the screen
; holes.
;
	php	; save int state
	sei	; off the ints!

	jsr SaveScreenHoles

	jsl RepTheScreen

	jsr RestoreScreenHoles

	plp	; restore int state!

	pei StateHandle+2
	pei StateHandle
	_DisposeHandle
	tax

ExitRestTextState	plb	; restore the data bank
	pld	; restore direct page reg

	pla	; get rid of pointer
	pla

	ldy #4
	jml ToStrip

;----------------------------------------------------------
;
; RepTheScreen
;
RepTheScreen	ldx #0
	ldy #s_TextBank0
B0Loop	lda [StatePtr],y
	sta >$000400,x
	iny
	iny
	inx
	inx
	cpx #$400
	bcc B0Loop

	ldx #0
	ldy #s_TextBank1
B1Loop	lda [StatePtr],y
	sta >$010400,x
	iny
	iny
	inx
	inx
	cpx #$400
	bcc B1Loop

	ldx #0
	ldy #s_TextBankE0
BE0Loop	lda [StatePtr],y
	sta >$E00400,x
	iny
	iny
	inx
	inx
	cpx #$400
	bcc BE0Loop

	ldx #0
	ldy #s_TextBankE1
BE1Loop	lda [StatePtr],y
	sta >$E10400,x
	iny
	iny
	inx
	inx
	cpx #$400
	bcc BE1Loop

	rtl

;----------------------------------------------------------
;
; Routines to save and restore screen holes
;
SaveScreenHoles		; 
	ply	; get rts address off stack

; Warning: mixed mode again!!!!
	sep #%00100000
	longa off
	ldx #1	; start with slot 1
SaveLoop		; 
	cpx #3
	beq Skip3Save
	lda >$000478,x
	pha
	lda >$0004F8,x
	pha
	lda >$000578,x
	pha
	lda >$0005F8,x
	pha
	lda >$000678,x
	pha
	lda >$0006F8,x
	pha
	lda >$000778,x
	pha
	lda >$0007F8,x
	pha
Skip3Save	inx
	cpx #8
	bcc SaveLoop
	rep #$30	; put rts adr back on the stack
	longa on
	longi on
	phy
	rts

RestoreScreenHoles		; 
	ply	; get rts address off stack
; Warning: mixed mode again!!!!

	sep #%00100000
	longa off

	ldx #7	; start with slot 7	when restoreing

RepLoop		; 
	cpx #3
	beq Skip3Rep
	pla
	sta >$0007F8,x
	pla
	sta >$000778,x
	pla
	sta >$0006F8,x
	pla
	sta >$000678,x
	pla
	sta >$0005F8,x
	pla
	sta >$000578,x
	pla
	sta >$0004F8,x
	pla
	sta >$000478,x
Skip3Rep	dex
	bne RepLoop
	rep #$30	; put rts adr back on the stack
	longa on
	longi on
	phy
	rts


	ENDP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/tl/tl.asm b/IIGS.601.SRC/GSToolbox/tl/tl.asm
new file mode 100644
index 0000000..a7177ac
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/tl/tl.asm
@@ -0,0 +1 @@
+	title 'Tool Locator         GS ROM 3.0'
****************************************************************
*			   *
*	   Tool Locator		   *
*			   *
****************************************************************


****************************************************************
*			   *
*	Copyright (C) 1985-1989	   *
*	All Rights Reserved		   *
*	Apple Computer, Inc.	   *
*			   *
****************************************************************

****************************************************************
*
* Change History
*
* ?? ??? 86	Steven Glass
*
* Original ROM release
*
* ?? ??? 87	Steven Glass
*
* Release for rom 2.0
*
* ?? Oct 87	Steven Glass
*
* Code that was in patch is integrated with ROM code for 
* first time.
*
* ?? Feb 88	Steven Glass
*
* Code converted to work with MAX
*
* 23 Oct 88	Steven Glass
*
* Added MessageByName.
* Changed size of default TPT from 32 to 48.
*
* 04 Nov 88	Steven Glass
*
* Incorporated ResetUserPtr into TLStartup.
*
* 07 Dec 88	Steven Glass
*
* Changed code that calls bootinit routine so that it never calls
* the memory manager boot init routine in ROM.
*
* 19 Apr 89	Steven Glass
*
* Add AppleIIForever Vector.
*
* 26-Sep-90	Dave Lyons
*
* Changed _SysDeathMgr to _SysFailMgr so this file will build
* with current interfaces.
*
* 6-Jun-91	Dave Lyons
*
* Added SANEShutDown call at the beginning of TLShutDown.
*
* 14-Sep-91	Dave Lyons
*
* Made TLShutDown call QDAuxShutDown for some BONEHEADS who
* are making ShutDownTools shut down the tool locator, and
* *then* they are shutting down QuickDraw, which would have
* shut down QDAux for them, but it's already gone.  (They
* never asked for QDAux in the first place, but Window Mgr
* loaded it so AlertWindow could use icons.)
*
****************************************************************


	eject
****************************************************************
*
* Terminology
*
* The Tool Pointer Table (TPT) is the table of pointers to the
*        individual	Function Pointer Tables.
* A Function Pointer Table (FPT) is the table of pointers to the
*        to the individual functions in	a single tool set.
* The Work Area Pointer Table (WAP Table) is the table of longs
*        that are used by individual tools to store information
*        without having access to permenent memory.  Tools usually
*        keep the address of their direct page or a handle to some 
*        other data here.  The value of a tools WAP is always put
*        in the A & X registers when a function of the tool is 
*        called.
*
* Included in this file is the source to the tool dispatcher, 
* the tool init routine (SpecialInit) and the Tool Locator
* calls.
*
* Tool Locator has the following calls:
*
*   1     TLBootInit
*   2     TLApInit
*   3     TLApShutDown
*   4     TLVersion
*   5     TLReset
*   6     TLStatus
*   9     GetTSPtr
*   10    SetTSPtr
*   11    GetFuncPtr
*   12    GetWAP
*   13    SetWAP
*   14    LoadTools
*   15    LoadOneTool
*   16    UnloadOneTool
*   17    TLMountVolume
*   18    TLTextMountVolume
*   19    SaveTextState
*   20    RestoreTextState
*   21    MessageCenter
*   22    SetDefaultTPt
*
*
*
*
****************************************************************

****************************************************************
*
* How the Dispatching mechanism works:
*
*     There are four entry points in Bank E0
*
*         SystemDispatch
*         Glue Dispatch
*         UserDispatch
*         Glue UserDispatch
*
*     The only difference between the system and user entry
*     points is that the pointers come out of different
*     tables.
*
*     The calling program must call these dispatchers in
*     full native mode as follows:
*
*         ldx #FuncNum*256+TSNum
*         jsl Dispatch
*
*     The difference between Dispatch and AutoPopDispatch is that
*     there is one extra return address	on the stack at the
*     time of the auto pop dispatch call.  The Dispatch entry point
*     puts an extra	rtl address on the stack so that any parameters
*     to a function	are the same depth in the stack no matter what
*     entry point is used.
*
****************************************************************

	blanks off
	string asis

	print push
	print off
	include 'all.macros'
	include '::sys.equs.asm'
	INCLUDE 'e16.memory'

	include 'tl.equates.asm'
	print pop




	title ' Imported Addresses'
;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

	IMPORT EndCall4
	IMPORT EndCall8
	IMPORT ErrOut4
	IMPORT ErrOut8
	IMPORT oBusyErr4
	IMPORT oEndCall0

	if RAMVersion=0 then

	title ' Bank FE Vectors'
	
****************************************************************
*
BankFEVectors	PROC
*
* These are the only public entry points into the bank FE
* ROM.  All other entry is through the tool locator and 
* associated mechinisms.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
	import SpecialInit
	import InstallPeekerDA
	import DAHandler
	import ATSReset
	import ATHReset
	import STool
	import AppleIIForever
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* Change History
*
* 03 Nov 88	STeven Glass & Joe Bo
*
* Added a new vectors for entry into ADB tool.
*
****************************************************************


	jml SpecialInit
	jml InstallPeekerDA
	jml DAHandler
	jml ATHReset	; apple talks hard reset
	jml ATSReset	; apple talks soft reset
	jml STool	; Special entry into ADB tool added 3 Nov 88 by Joe and Steve
	jml AppleIIForever

	ENDP



	title ' SpecialInit'
****************************************************************
*
SpecialInit	proc 
*
* This routine copies the pointer to the ROM based TPT to
* and U_TPT pointers to RAM.
*
* It also fixes the	RAM vectors in bank	E0 to point to this
* code.
*
* This is called and returns in 8 bit native mode.
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
	import oErrOut
	import ROM_TPT
	import UserDummyTable
	import Dispatch
	import GluDispatch
	import U_Dispatch
	import U_GluDispatch
	import iToolboxPatcher
	import FixOSStackEntry
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* Modification History
*
*  17 May 86   Reset user pointers was being called before
*              the memory manager was initialized.
*  20 May 86   User	TPTPtr is now initialized before the TL
*              boot	init call is made.
*
*  04 Dec 86   I do	not make the WAPTPtr point to the top
*              of the ROM any more.  I rely on the BootInit
*              call	to set it correctly.
*
*              Added JSL to RomToolHook, a vector in bank E1
*              which installs any ROM tools in from the lower banks
*              that	may be present.
*
*  20 Jan 87   Oops, we found that some	fools were coming in in
*              mixed native mode and relying on the code in	the dispatcher
*              to clear the m-bit.  With great regret and trepidation
*              I put the rep #$30 back into the dispatcher at all
*              four	entry points.
*
* 10 Jun 88    Init code uses oErrOut in this bank rather than bank
*              FF for strip vectors.
*
* 11 Oct 88    Added code to init the LLToolboxVector in bank $E1.
*
****************************************************************


;----------------------------------------------------
;
; Fern calls me in Native mode with m and x set to 1
;
	rep #%00110000
	longa on
	longi on

	ldx #14	; put the jump table in
OtherLoop	lda >JumpTable,x	; ram
	sta >RealDispatch,x
	dex
	dex
	bpl OtherLoop

;---------------------------------------------
;
; Put the pointers to the TPT and dummy	WAPT
; into RAM.
;
	lda #ROM_TPT
	sta >TPTPtr
	lda #^ROM_TPT
	sta >TPTPtr+2

	sta >WAPTPtr+2	; set high word of this pointer
*		; to prevent accidental access
*		; to any softswitches

	lda #UserDummyTable	; set this first time
	sta >U_TPTPtr
	lda #^UserDummyTable
	sta >U_TPTPtr+2


;--------------------------------------------------------
;
; Fix the end call vector
;
	ldx #6	; put the Strip vectors in
LastLoop	lda >EndCallVector,x ; place
	sta >ToBusyStrip,x
	dex
	dex
	bpl LastLoop


;-----------------------------------------------------------
;
; Init the LLToolboxVector
;
	lda >ToToolboxPatcher
	sta >LLToolboxVector
	lda >ToToolboxPatcher+2
	sta >LLToolboxVector+2


	jsl FixOSStackEntry


;-----------------------------------------------------------
;
; Init all the tools.
;


	ldx #$0101
	jsl RealDispatch
	bcs SomethingsWrong

	jsl RomToolHook
	clc


SomethingsWrong		; 
	sep #%00110000	; set back to 8 bit	m and x for Fern
	longa off
	longi off

	rtl

JumpTable		; 
	jml Dispatch
	jml GluDispatch
	jml U_Dispatch
	jml U_GluDispatch

EndCallVector		; 
	jsl DecBusyFlg
	jml oErrOut


ToToolboxPatcher	jml iToolBoxPatcher

	ENDP



	title 'U_Dispatch and U_GluDispatch'
****************************************************************
*
TheU_Dispatcher	PROC 
*
* Called with a JSL	after loading x with
* the TSNum, FuncNum
*
*
* Called directly and makes the stack look as follows
*
*       Real Return	Address
*       TOS
*
* The ToolNum FuncNum are in the x-reg.
*
* Function expects
*       Real Return	Address
*       Another Return Address
*       TOS
*
* Inputs:
*	x-reg  Call Number
*
* Outputs:
*	x-reg  Unchanged
*	a-reg  trashed
*
* External Refs:
	IMPORT UserEntry
	IMPORT AnRTL
*
* Entry Points:
	ENTRY U_Dispatch
	ENTRY U_GluDispatch
*
	longa on	; mode
	longi on
*
*
* Modification History
*
*  04 Dec 86   SEG	   Removed code which returned error if
*	   called from emulation.  This speeds
*	   dispatch up by a	few cycles and saves
*	   some code.
*
* 20 Jan 87	Steven Glass
*
* Started code with REP #30 because some dumb apps called tools
* in mixed native mode and had luckily worked.
*
* 09 Jul 88	Steven Glass
*
* Andy Stadler pointed out that it takes fewer cycles to 
* build the stack frame by loads and pushes than it does 
* by subtracting and then loading and storing.
*
****************************************************************


WAPTRef	equ 1	; 1    4
TPTRef	equ WAPTRef+4	; 5    3
RetADR1	equ TPTRef+3	; 8    4
RetADR2	equ RetADR1+3	;11

WorkSpace	equ RetADR2-WAPTRef
FTableRef	equ TPTRef

U_GluDispatch	phb	; push an extra byte on the stack and
	bra GluJoin	; join the rest.
U_Dispatch
	pea AnRTL-1>>8	; put the address of an RTL on the stack
	pea AnRTL-1<<8	; and one more byte too.


GluJoin	rep #$30	; force full native mode
	lda >U_TPTPtr	; put low word of TPT on stack
	pha	; get middle and high bytes in place
	lda >U_TPTPtr+1
	sta 2,s
	lda >U_WAPTPtr+2	; get WAPT ptr on stack
	pha
	lda >U_WAPTPtr
	pha
	tsc	; turn stack to d-page.
	phd
	tcd

	bra UserEntry

	ENDP


	title 'Dispatch and GluDispatch'
****************************************************************
*
TheDispatcher	PROC 
*
* Called with a JSL	after pushing a word on the stack
* which is the TSNum and the FuncNum
*
*
* Called directly and makes the stack look as follows
*
*       Real Return	Address
*       TOS
*
* The ToolNum FuncNum are in the x-reg.
*
* Function expects
*       Real Return	Address
*       Another Return Address
*       TOS
*
* Inputs:
*	x-reg  Call Number
*
* Outputs:
*	a-reg  Low Word of WAP
*	y-reg  High word of WAP
*	x-reg  Unchanged
*
* External Refs:
*	none
*
* Entry Points:
	entry GluDispatch
	entry Dispatch
	entry UserENTRY
	entry BadToolNumber
	entry BadFunctionNumber
	entry AnRTL
	
*
	longa on	; mode
	longi on
*
*
* Modification History
*
* 04 Dec 86   SEG	   Removed code which returned error if
*	   called from emulation.  This speeds
*	   dispatch up by a	few cycles and saves
*	   some code.
*
*
* 20 Jan 87	Steven Glass
*
* Started code with REP #30 because some dumb apps called tools
* in mixed native mode and had luckily worked.
*
*
* 09 Jul 88	Steven Glass
*
* Andy Stadler pointed out that it takes fewer cycles to 
* build the stack frame by loads and pushes than it does 
* by subtracting and then loading and storing.
*
****************************************************************


WAPTRef	equ 1	; 1    4
TPTRef	equ WAPTRef+4	; 5    3
RetADR1	equ TPTRef+3	; 8    4
RetADR2	equ RetADR1+3	;11

WorkSpace	equ RetADR2-WAPTRef
FTableRef	equ TPTRef


GluDispatch	phb	; push an extra byte on the stack and
	bra GluJoin	; join the rest.
Dispatch
	pea AnRTL-1>>8	; put the address of an RTL on the stack
	pea AnRTL-1<<8	; and one more byte too.


GluJoin	rep #$30	; force full native mode
	lda >TPTPtr	; put low word of TPT on stack
	pha	; get middle and high bytes in place
	lda >TPTPtr+1
	sta 2,s
	lda >WAPTPtr+2	; get WAPT ptr on stack
	pha
	lda >WAPTPtr
	pha
	tsc	; turn stack to d-page.
	phd
	tcd


UserENTRY       
;----------------------------------------------
;
;    Now Check Tool	Set Number (still in x)
;
;    To get the WAP	info and Function info from the
;    memory we change the stack into zero page
;

	txa
	pha	; save on stack for	later
	and #$00FF
	beq BadToolNumber
	cmp [TPTRef]
	bcs BadToolNumber

;----------------------------------------------------
;
;    Tool number is	good.
;
	asl a
	asl a

	tay


	lda [WAPTRef],y	; get entry in WAPT	for tool
	tax
	iny
	iny
	lda [WAPTRef],y
	sta WAPTRef+2
	stx WAPTRef


	dey	; back y down 1
	lda [TPTRef],y	; now get pointer to Tool's FPT
	tax
	dey
	lda [TPTRef],y
	sta TPTRef
	stx TPTRef+1

;-------------------------------------------------
;
;   Now we get the adr of the function out
;   of the table
;


	lda 2,s	; now get func num in low byte of a
	and #$00FF	; mask off high byte
	beq BadFunctionNumber
	cmp [FTableRef]
	bcs BadFunctionNumber

	asl a
	asl a
	tay

	lda [FTableRef],y
	tax
	iny
	lda [FTableRef],y

	sta FTableRef+1
	stx FTableRef

;--------------------------------------------------
;
; Now if everything	went right, we pull	things off
; the stack that we	need for the function.
;
;     DirectReg   2	bytes
;     WAP         4	bytes  first two in	A last 2 in Y
;     FuncAdr     3	bytes
;

	plx	; put func,tool num	in x for rich
	pld	; restore direct register
	pla	; WAP (low word)
	ply	; WAP (high word)


	rtl	; go to function!

BadToolNumber		; 
	ldx #BadTSNum
	bra GoHome

BadFunctionNumber		; 
	ldx #BadFuncNum

GoHome	pla	; get TSNum & FuncNum off stack

	pld	; restore d

	tsc	; clean off crap from stack
	clc
	adc #WorkSpace
	tcs

	txa
	sec	; set carry

AnRTL		;       
	rtl


	ENDP




	title ' Tables'
****************************************************************
*
ROM_TPT	PROC 
*
* The ROM tool pointer table is the table which contains
* pointers to all the individual function pointer tables
* (FPT's).
*
* The first entry is a count.  It equals the number of tools
* plus one.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
	import TLTable	
	import MMCallTable	
	import MTCallTable	
	import CallTable	
	import DACallTable	
	import EMCallTable	
	import SchedulerCallTable	
	import SoundCallTable	
	import SKIFNCTBL	
	import SaneCallTable	
	import IMCallTable	
	import TextCallTable	
	import RDCallTable	
	import DummyTable	
	import LECallTable	
	import DialogCallTable 
	import ScrapCallTable	
	import FMCallTable	

	import WindowCallTable
	import MenuCallTable
	import ListCallTable
	import ControlCallTable

*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************	

	DC.L (TheEnd-ROM_TPT)/4 	; number of active tools + 1
	DC.L TLTable		; 1 Tool Locator
	DC.L MMCallTable		; 2 Memory Manager
	DC.L MTCallTable		; 3 misc tools
	DC.L CallTable		; 4 Graphics Core
	DC.L DACallTable		; 5 Desk Acc Mgr
	DC.L EMCallTable		; 6 Event Manager
	DC.L SchedulerCallTable	; 7 SchCallTable
	DC.L SoundCallTable		; 8 SoundTable
	DC.L SKIFNCTBL		; 9 FDB tool
	DC.L SaneCallTable		; 10 (SANE)
	DC.L IMCallTable		; 11 Integer math
	DC.L TextCallTable		; 12 Text Tools
	DC.L RDCallTable		; 13 Ram DISK
	DC.L WindowCallTable	; 14 Window Manager
	DC.L MenuCallTable		; 15 Menu Manager
	DC.L ControlCallTable	; 16 Control Manager
	DC.L DummyTable		; 17 Loader (not in rom)
	DC.L DummyTable		; 18 QDAux
	DC.L DummyTable		; 19 Print Manager
	DC.L LECallTable		; 20 LineEdit
	DC.L DialogCallTable 	; 21 Dialog Manager
	DC.L ScrapCallTable		; 22 Scrap Manager
	DC.L DummyTable		; 23 Standard File
	DC.L DummyTable		; 24 
	DC.L DummyTable		; 25 Note Synth
	DC.L DummyTable		; 26 Note Seq
	DC.L FMCallTable		; 27 Font Manager
	DC.L ListCallTable		; 28 List Manager
	DC.L DummyTable		; 29 A.C.E.
	DC.L DummyTable		; 30
	DC.L DummyTable		; 31
	DC.L DummyTable		; 32 Midi
	DC.L DummyTable		; 33
	DC.L DummyTable		; 34
	DC.L DummyTable		; 35
	DC.L DummyTable		; 36
	DC.L DummyTable		; 37
	DC.L DummyTable		; 38
	DC.L DummyTable		; 39
	DC.L DummyTable		; 40
	DC.L DummyTable		; 41
	DC.L DummyTable		; 42
	DC.L DummyTable		; 43
	DC.L DummyTable		; 44
	DC.L DummyTable		; 45
	DC.L DummyTable		; 46
	DC.L DummyTable		; 47
	DC.L DummyTable		; 48

TheEnd 


	ENDP


	ENDIF

****************************************************************
*
TLTable	PROC 
*
* This is the Function pointer Table (FPT) for the tool
* locator tool set.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
	import BootInit
	import TLStartUp
	import TLShutDown
	import TLVersion
	import TLReset
	import TLStatus
	import NotImp
	import GetTSPtr
	import SetTSPtr
	import GetFuncPtr
	import GetWAP
	import SetWAP
	import LoadTools
	import LoadOneTool
	import UnloadOneTool
	import TLMountVolume
	import TLTextMountVolume
	import SaveTextState
	import RestoreTextState
	import MessageCenter
	import SetDefaultTPT
	import MessageByName
	import StartupTools
	import ShutdownTools
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


	DC.L (TheEnd-TLTable)/4 ; call count + 1
	DC.L BootInit-1	; 1

	if RAMVersion=1 then
	dc.L 0
	dc.L 0
	else
	DC.L TLStartUp-1	; 2 app calls for init
	DC.L TLShutDown-1	; 3 app calls to stop
	ENDIF

	DC.L TLVersion-1	; 4 version call
	DC.L TLReset-1	; 5 reset call
	DC.L TLStatus-1	; 6 status call
	DC.L NotImp-1	; 7
	DC.L NotImp-1	; 8
	DC.L GetTSPtr-1	; 9
	DC.L SetTSPtr-1	; 10
	DC.L GetFuncPtr-1	; 11
	DC.L GetWAP-1	; 12
	DC.L SetWAP-1	; 13

	DC.L LoadTools-1	; (14)
	DC.L LoadOneTool-1	; (15)
	DC.L UnloadOneTool-1 ; (16)
	DC.L TLMountVolume-1 ; (17)
	DC.L TLTextMountVolume-1 ; (18)
	DC.L SaveTextState-1 ; (19)
	DC.L RestoreTextState-1 ; (20);
	DC.L MessageCenter-1 ; (21);
	DC.L SetDefaultTPT-1 ; (22);
	DC.L MessageByName-1 ; (23)	added 23 Oct 88
	dc.L StartupTools-1	; (24)	added 08 nov 88
	dc.L ShutdownTools-1 ; (25)	added 08 nov 88

TheEnd		; 

	ENDP


****************************************************************
*
DummyTable	PROC EXPORT
*
* This is a dummy call table with no pointers in it and a
* count of zero.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

	DC.L 0

	ENDP


****************************************************************
*
UserDummyTable	PROC EXPORT
*
* This is a dummy user TPT with a length of 0 + 1 meaning no
* tools in it.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


	DC.L 1

	ENDP






	title ' TLBootInit'
****************************************************************
*
BootInit	PROC
*
* The boot init code must do the following:
*
*     Initialize the memory manager
*     Find out how many tool sets there	are in ROM
*     Allocate enough space for the WAP	table for these tools
*     Set the pointers in the WAP table	to zero
*     Call the boot	initialization function of each of the
*        other (besides tool locator and mm) tool sets in ROM.
*
* Calling Sequence
*
*     ldx #thenumbers
*     jsl Dispatch
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
	import TLNewHandle
	import SetUpUserWAPT
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* Modification History
*
* 05 Dec 86    SEG	    Changed Push #0	to pha, where all I	needed
*	    was space for result.  Removed jsr to
*	    ResetUserPtrs since they do not need to
*	    be reset when they have not yet been changed.
*
* 17 Jun 88	Steven Glass
*
* Changed use of TLNewHandle for new reg usage.
*
****************************************************************

	if RAMVersion=1 then 

	rtl

	ENDIF



TPTRef	equ 1
WAPTRef	equ TPTRef+4

ZPSize	equ WAPTRef+4

RTL1	equ ZPSize
RTL2	equ RTL1+3

ParamSize	equ 0

;----------------------------------------
;
; Get some space off the stack.
;

	tsc	; get stack pointer
	sec	; subtract zpsize
	sbc #ZPSize-1
	tcs	; put back
	phd	; save d
	tcd	; make stack zp

;----------------------------------------
;
; Initialize the memory manager.
;

	ldx #$0102
	jsl $E10000	; initialize the memory manager
	bcc cont1
	jmp Die

cont1		; 
	jsl MMWarmStart1	; call mm mgr warm start vector

;----------------------------------------
;
; use the number of	Tool Sets in ROM
; to calculate how much space to
; reserve for the WAPT.
;
	lda >TPTPtr	; look at the count	in the TPT
	sta TPTRef
	lda >TPTPtr+2
	sta TPTRef+2

	lda [TPTRef]

	asl a	; multiply by four
	asl a


* Get enough memory	to store the number	of bytes in a
	jsr TLNewHandle
	bcc cont2
	brl Die

cont2	sta WAPTRef	; put handle on zp
	stx WaptRef+2
	lda [WAPTRef]	; and dereference it
	tax
	ldy #2
	lda [WaptRef],y
	sta WAPTRef+2	; store pointer on zp and in
	sta >WAPTPtr+2	; permanent loc
	stx WAPTRef
	txa
	sta >WAPTPtr

;----------------------------------------
;
; Zero the new WAPT.
;

	lda [TPTRef]
	asl a
	asl a
	tay
	dey	; subtract 2
	dey
	lda #0	; zero the memory
ZeroLoop	sta [WAPTRef],y
	dey
	dey
	bpl ZeroLoop


;----------------------------------------------------
;
; The system WAPT is set up and zeroed.
; Now I must set up	the user WAPT.
;

	jsr SetUpUserWAPT
	bcs die


;---------------------------------------
;
; The WAPT is set up and zeroed.  The
; individual tools can now be initialized
; starting with number 3.

	pea $0103	; put this call number on the stack
InitLoop	lda 1,s	; get the current call number
	tax	; put it on the stack
	jsl $E10000	; make call
	bcs CheckError	; check error code
KeepGoing	lda 1,s	; get call number back
	inc a	; increment the tool number part
	sta 1,s	; put it back on stack
	bra InitLoop	; do it again

CheckError	cmp #BadFuncNum	; bad func number but ts is there
	beq KeepGoing	; so go to next

	ldx #0	; assume no error
	cmp #BadTSNum	; if error passed back is BadTSNum
	beq NoError	; then there was no	error

	tax	; return this error	code
NoError	pla	; clean stack

Die		; 
	pld	; restore zero page
	tsc	; fix stack
	clc
	adc #ZPSize+ParamSize-1
	tcs

	txa	; put error code back in a
	cmp #1	; compare to one to	fix carry
	bcs NeverMind

	jsl MMWarmStart2	; cannot return error



;---------------------------------------------------
;
; Zero the pointer to the default TPT and call
; set DefaultTPT.
;
	lda #0
	sta >DefaultTPTPtr
	sta >DefaultTPTPtr+2

	_SetDefaultTPT


	clc
NeverMind	rtl


	ENDP

	title 'SetUpUserWAPT'
****************************************************************
*
SetUpUserWAPT	PROC
*
* Routine to set up the UserWAPT pointer.  This routine gets a
* handle for four bytes and puts the dereferenced pointer in
* U_WAPTPtr.
*
* It also zeros the four bytes that are obtained.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
	import TLNewHandle
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
* 17 Jun 88	Steven Glass
*
* Changed use of TLNewHandle for new reg usage.
*
****************************************************************


	lda #4
	jsr TLNewHandle
	bcs done

	phx	; put handle back on stack
	pha
	phd
	tsc
	tcd

Handle	equ 3

	lda [Handle]	; and dereference it
	tax
	ldy #2
	lda [Handle],y
	sta Handle+2
	sta >U_WAPTPtr+2	; and put in permanent loc
	stx Handle
	txa
	sta >U_WAPTPtr

	lda #0	; zero it
	sta [Handle]
	ldy #2
	sta [Handle],y

	pld	; restore d
	pla	; clear stack
	pla

Done	rts	; carry is already clear.

	ENDP

	title 'TLStartAndStop'
****************************************************************
*
TLStartAndStop	PROC EXPORT
*
* All this does is to clear out the User Tool Pointers.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
	import UnloadTools
	import ResetUserPtrs
*
* Entry Points:
	EXPORT TLShutDown
	EXPORT TLStartup
*
	longa on	; mode
	longi on
*
* Change History
*
* 04 Nov 88	Steven Glass
*
* Reset user pointer is now incorporated into this code.TLStartup
* is also public so can be linked to patch file.
*
****************************************************************

TLShutDown
	_QDAuxShutDown	;added 14-Sep-91 DAL

*** added 6-Jun-91 DAL -- force SANE off
	_SANEShutDown
*** end of 6-Jun-91 DAL

	jsr UnloadTools


TLStartUp

;-----------------------------------------------------------
;
; Reset User Pointer is now inline.  It is not called from
; anywhere else.
;

	lda >U_TPTPtr
	cmp #UserDummyTable
	bne DumpHandle
	lda >U_TPTPtr+2
	cmp #^UserDummyTable
	beq NothingToReset

DumpHandle	pha	; space for result
	pha
	lda >U_TPTPtr+2
	and #$00FF	; just in case the high word is trash.
	pha
	lda >U_TPTPtr
	pha
	_FindHandle	; note:  I do not check for errors
	_DisposeHandle	; here because they	are very unlikely
*		; moveover, If the handle cannot
*		; be found, FindHandle returns
*		; NIL and DisposeHandle won't dispose
*		; anything when passed a NIL

ResetIt		; 
	lda #UserDummyTable
	sta >U_TPTPtr
	lda #^UserDummyTable
	sta >U_TPTPtr+2

	pha	; space for result
	pha
	lda >U_WAPTPtr+2
	and #$00FF
	pha
	lda >U_WAPTPtr
	pha
	_FindHandle	; again I do not check for an error
*		; here for the same	reasons as above

	phd	; save d
	tsc	; and make stack into direct page
	tcd

TheD	equ 1
TheHandle	equ 3
	ldy #4	; unlock the orig handle
	lda [TheHandle],y
	and #$7FFF
	sta [TheHandle],y

	PushLong #4	; resize the handle
	pei TheHandle+2
	pei TheHandle
	_SetHandleSize

	ldy #4	; lock the handle and deref it
	lda [TheHandle],y	; putting result back in
	ora #$8000	; U_WAPTPtr
	sta [TheHandle],y
	lda [TheHandle]
	sta >U_WAPTPtr
	dey
	dey
	lda [TheHandle],y
	sta >U_WAPTPtr+2

	pld	; restore direct
	pla	; clear handle of stack
	pla

NothingToReset
	jmp oEndCall0

	ENDP


	title 'TLReset'
****************************************************************
*
TLReset	PROC
*
* Resets the user pointers and calls the reset function 
* for every tool set.  If any of the tools returns an error, 
* this routine calls SystemDeath. If no tools return an error, 
* then this routine returns with no error.
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************



	ldx #$0502	; start by reseting	the memmgr
	jsl $E10000	; this cannot fail?

	pea 0	; put this flag on the stack

	pea $0503	; the reset call is	5, start w/ts #3
ResetLoop	lda 1,s
	tax
	jsl $E10000
	bcs CheckError
KeepGoing	lda 1,s
	inc a
	sta 1,s
	bra ResetLoop

CheckError	cmp #BadTSNum	; if the error is BadTSNum then we are
	beq AllDone	; done, otherwise we die later so save
*		; error code and keepgoing

	cmp #BadFuncNum	; if the error is bad func num
	beq KeepGoing	; then just a dummy	table

	sta 3,s	; otherwise all is not kosher so
	bra KeepGoing	; trash my indicator and continue.

AllDone		; 
	pla	; bad ts number so clean stack
	pla
	bne Die

	_TLShutdown
	jmp oEndCall0

Die	pha	; put death info on	stack
	PushLong #DeathString


	ldx #$0101	; re-init all the tools
	jsl $E10000

	_SysFailMgr	; now die


DeathString	str 'Cannot Reset $'

	ENDP

	title 'TLStatus and TLVersion'
****************************************************************
*
TLSTATUS	PROC
*
* Returns true all the time since the TL is always active!
*
*
* Inputs:
*	none
*
* Outputs:
*	StatusFlag : Boolean
*
* External Refs:
	import JoinVersion
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
*
* Modification History
*
* 05 Dec 86    SEG	    Put result at right place on stack
*
* 24 Oct 88    SEG      This now shares code with TLVersion.
*
****************************************************************


	lda #True
	bra JoinVersion




	ENDP


****************************************************************
*
TLVersion	PROC EXPORT
*
* Returns the version number of the tool locator.
*
*
* Inputs:
*	none
*
* Outputs:
*	VersionNum : Word
*
* External Refs:
*	none
*
* Entry Points:
	entry JoinVersion
*	
*
	longa on	; mode
	longi on
*
*
* Modification History
*
* 05 Dec 86    SEG	    Shares code with TLStatus (saving
*	    3 bytes)
*
* 24 Oct 88    SEG      This is now self contained so that it
*	    can link by itself.  TLStatus shares
*	    code with this instead of the otherway
*	    around.
*
****************************************************************


	lda #TLVersionNumber


JoinVersion       
	sta 7,s
	jmp oEndCall0

	ENDP




	title 'GetTSPtr'
****************************************************************
*
GetTSPtr	PROC
*
* Returns the pointer to a Function Pointer Table in the
* Tool Pointer Table.
*
* Calling Sequence
*
*        pha		; make room
*        pha
*        PushWord UserOrSystem
*        PushWord TSNum
*        _GetTSPtr
*
*
* Inputs:
*	UserOrSystemFlag : word
*	ToolNumber : word
*
* Outputs:
*	ToolPointer : long
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
*
* Change History
*
* 23 Jan 86	SEG
*
*     Should work now and is now written in more common style.
*
****************************************************************


OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
TSNum	equ RTL2+3
UserOrSystem	equ TSNum+2
FTablePtr	equ UserOrSystem+2

TPTRef	equ TSNum	; overwrite after reading

	phd	; save this
	tsc	; get stack pointer
	tcd	; make stack zp

	ldx TSNum	; get his in register

	bit UserOrSystem
	bmi UserPtrs

	lda >TPTPtr	; get the TPTPtr to	zero page
	sta TPTRef
	lda >TPTPtr+1
	bra GotPtrs

UserPtrs	lda >U_TPTPtr
	sta TPTRef
	lda >U_TPTPtr+1

GotPtrs	sta TPTRef+1


	txa
	and #$00FF
	asl a
	asl a
	tay

	lda [TPTRef],y
	sta FTablePtr
	iny
	iny
	lda [TPTRef],y
	sta FTablePtr+2

	jmp EndCall4


	ENDP
	
	title 'SetTSPtr'
****************************************************************
*
SetTSPtr	PROC Export
*
* Installs the pointer to a Function Pointer Table in the
* Tool Pointer Table.
*
* If the Tool Pointer Table is not in RAM, it
* copies the table into RAM.
*
* If there is not enough room in the TPT for the new entry,
* the TPT is moved to a bigger chunk of	memory.  Likewise the
* WAP Table is expanded.
*
* If the new pointer table has zero entries, old entries are
* moved from prior table to new table.
*
* After the table is installed, the BootInit call of the
* newly installed tool is made.
*
* Possible Errors:
*
*        Not enough	memory.
*
*
* Calling Sequence
*
*        PushWord UserOrSystem
*        PushWord FuncNumber
*        PushPtr FuncTable
*        _SetTSPtr
*
*
*
* Inputs:
*        UserOrSystem : integer
*        TSNumber :	integer
*        FTablePtr : Ptr
*
* Outputs:
*	none
*
* External Refs:
	import GrowTables
	import ResetTPTPtr
	import TLNewHandle
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
*
* Modification History
*
* June 5, 1986   SEG
*
*     Patches were not being installed properly.  On close
*     inspection I discovered that I was Trashing the value
*     of OldTSPtr as I moved it from the TPT Table to zero
*     page.  This meant that whenever I	found a zero in the
*     new table, I put garbage there instead of the real
*     previous address.
*
* System Disk 1.1 SEG
*
*     I found that the case where we had to grow the existing
*     table did not	work
*
* 04 Dec 86 For ROM	2.0 SEG
*
*     Saved a few bytes here and there turning PushLong #0
*     to pha, pha when all we needed was space for results.
*
* 17 Jun 88	Steven Glass
*
* Changed use of TLNewHandle for new reg usage.
*
* 24 Oct 88	Steven Glass
*
* Changed the way this works for tools 1 and 5.  If the tool number is
* 1 or 5 and it is a system tools, I don't install it.  This prevents
* the tool locator and desk manager patch from system disks 1.0 - 3.1
* from being installed.  It forces the use of the tools in ROM.
*
* To patch tool 1 or 5 we have to set the SysOrUser flag to non
* zero with high bit clear.  Zero will not work.
*
*
* 07 Dec 88	Steven Glass
*
* Changed code that calls bootinit routine so that it never calls
* the memory manager boot init routine in ROM.
*
* 3/2/89	Mensch
* Fixed a bug in detecting if the default table is being pointed at.
* This call should now be able to run out of ROM
*
****************************************************************


TPTRef	equ 1	; this is where I put pointer to
*		; old TPT
OldTSPtr	equ TPTRef+4	; this is pointer to old FPT
NewTPTRef	equ OldTSPtr+4	; this is where I put pointer to
*		; new TPT
WAPTRef	equ NewTPTRef+4	; pointer to current WAPT
*
AHandle	equ WAPTRef+4	; this is temp storage for any
*		; handle I need to deal with.

ZPSize	equ AHandle+4

RTL1	equ ZPSize
RTL2	equ RTL1+3
FTablePtr	equ RTL2+3
TSNum	equ FTablePtr+4
UserOrSystem	equ TSNum+2

ParamSize	equ 8



;-----------------------------------------------
;
; First get some space for zero page.
;
	tsc	; get stack pointer
	sec	; subtract zpsize
	sbc #ZPSize-1
	tcs	; put back
	phd	; save d
	tcd	; make stack zp


;-----------------------------------------------------------
;
; In order to prevent system disks 1.0 through 3.1 from
; patching out the tool locator and desk manager, we
; look at the OS_Flag word.  Bit 2 of this word is FPatchLoaded.
; It is set every time DeskShutdown is called.
;
; The first time DeskShutdown is called is right after the setup
; files are loaded and just before the first application is about
; to run.
;
; We use this bit to tell us whether or not to ignore attemps
; to patch out the tool locator and desk manager.  Until
; this bit is set, we will ignore all such attempts.
;
;
	lda >OS_Flag
	and #PatchLoadedBit
	bne NoProblem

	lda TSNum
	cmp #1
	beq EGads
	cmp #5
	bne NoProblem

EGads	lda UserOrSystem
	bne NoProblem

	brl InitDone

NoProblem

;-----------------------------------------------
;
; Move the right pointers to zero page depending
; on whether this is a system or user call.
;

	bit UserOrSystem
	bmi UserPtrs

	lda >TPTPtr	; get the TPTPtr to	zero page
	sta TPTRef
	lda >TPTPtr+2
	sta TPTRef+2
	lda >WAPTPtr
	sta WAPTRef
	lda >WAPTPtr+2
	bra GotPtrs

UserPtrs	lda >U_TPTPtr
	sta TPTRef
	lda >U_TPTPtr+2
	sta TPTRef+2
	lda >U_WAPTPtr
	sta WAPTRef
	lda >U_WAPTPtr+2
GotPtrs	sta WAPTRef+2

;-----------------------------------------------
;
; check to see if we need to move the TPT
;
	lda TPTRef+2
	and #$00FF
	cmp #$00FE
	beq NeedToMove

;-----------------------------------------------------------
;
; Added the following for RAM basedc tool locator...
;
	lda TPTRef
	cmp #UserDummyTable
	bne NoNeedToMove
	lda TPTRef+2
	cmp #^UserDummyTable
	bne NoNeedToMove
	bra NeedToMove

;-----------------------------------------------
;
; It is already in RAM so move the pointer to it
; into NewTPTRef
;
NoNeedToMove		; 
	lda TPTRef
	sta NewTPTRef
	lda TPTRef+2
	sta NewTPTRef+2
	bra TableInPlace

;-----------------------------------------------
;
; It is still in ROM so we get space for it in
; RAM and copy it over.
;
NeedToMove		; 
	lda [TPTRef]	; The size I need is
	asl a	; 4 * count
	asl a

	jsr TLNewHandle
	sta AHandle
	stx AHandle+2

	lda [AHandle]
	sta NewTPTRef
	ldy #2
	lda [AHandle],y
	sta NewTPTRef+2

	pei TPTRef+2	; copy the old to the new
	pei TPTRef
	pei NewTPTRef+2
	pei NewTPTRef
	lda [TPTRef]
	asl a
	asl a
	PushWord #0
	pha
	_BlockMove

	jsr ResetTPTPtr

TableInPlace		; 

	lda TSNum
	cmp [TPTRef]	; see if TS with this number
*		; already exists, or if we
*		; have to grow the table
	bcc NoGrow


	jsr GrowTables
	lda TSNum

NoGrow		; 

;-----------------------------------------------
;
; Get original pointer and replace it with
; new pointer.
;
	asl a	; ts num is in a so	double it
	asl a	; twice

	tay
	lda [TPTRef],y
	sta OldTSPtr
	lda FTablePtr
	sta [NewTPTRef],y
	iny
	iny	; move whole long word SEG 5 Jun 86
	lda [TPTRef],y
	sta OldTSPtr+2	; +2 instead of 1 to move whole
	lda FTablePtr+2	; long word SEG 5 Jun 86
	sta [NewTPTRef],y


;-----------------------------------------------
;
; Now go thru the new table looking at each
; function pointer.	 For each function pointer
; that is zero, we copy the old pointer	to the
; new table.  This way a patch does not	have to
; have pointers to functions that are not changing.
;
	lda [FTablePtr]	; get number of entries in new FuncTable
	beq NoEntries
	asl a	; times 4 for num bytes to deal with
	asl a
	tay
	dey
	dey

PatchLoop	lda [FTablePtr],y	; look at high word	of entry
	bne NewFunc1	; if not zero then must be new function
	dey	; pointer so skip it.
	dey
	lda [FTablePtr],y	; look at low word of entry
	bne NewFunc2	; if not zer then must be new function
*		; pointer so skip it.

	lda [OldTSPtr],y	; New entry was zero (both words)
	sta [FTablePtr],y	; so copy the old entry to the new
	iny	; entry.  (low word	then high word)
	iny
	lda [OldTSPtr],y
	sta [FTablePtr],y

NewFunc1	dey	; now need to dec 4	times
	dey
NewFunc2	dey	; if jumped here we	have already
	dey	; decremented twice	before getting here

	bpl PatchLoop

NoEntries		; 

	lda TSNum	; now make the boot	init call for this ts

;-----------------------------------------------------------
;
; Special code to make AppleWorks GS work.  Never call the
; BootInit code for the memory manager if the BootInit code
; is still in ROM.
;

	cmp #$0002	; is it the memory manager?
	bne @Continue

	ldy #6	; if the address of  the init routine of the
	lda [FTablePtr],y	; memory manager is in ROM, don't run it.  It
	cmp #$00F0	; is not safe.
	bcs InitDone

	lda #$0002

@Continue
	ora #$0100
	tax
	bit UserOrSystem
	bpl SysInit
	jsl $E10008
	bra InitDone

SysInit	jsl $E10000


InitDone	ldx #0

ErrorOut		; 

	lda RTL1+4
	sta RTL1+4+ParamSize
	lda RTL1+2
	sta RTL1+2+ParamSize
	lda RTL1
	sta RTL1+ParamSize

	pld	; restore zero page
	tsc	; fix stack
	clc
	adc #ZPSize+ParamSize-1
	tcs

	txa
	cmp #1
	rtl

	ENDP


	title 'ResetTPTPtr'
****************************************************************
*
ResetTPTPtr	PROC
*
* This routine copies the NewTPTRef back to the appropirate
* master pointer.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


TPTRef	equ 1	; this is where I put pointer to
*		; old TPT
OldTSPtr	equ TPTRef+4	; this is pointer to old FPT
NewTPTRef	equ OldTSPtr+4	; this is where I put pointer to
*		; new TPT
WAPTRef	equ NewTPTRef+4	; pointer to current WAPT
*
AHandle	equ WAPTRef+4	; this is temp storage for any
*		; handle I need to deal with.

ZPSize	equ AHandle+4

RTL1	equ ZPSize
RTL2	equ RTL1+3
FTablePtr	equ RTL2+3
TSNum	equ FTablePtr+4
UserOrSystem	equ TSNum+2


	bit UserOrSystem
	bmi UserPtrs2

	lda NewTPTRef	; put new value into RAM pointer
	sta >TPTPtr
	lda NewTPTRef+2
	sta >TPTPtr+2
	bra done

UserPtrs2	lda NewTPTRef	; put new value into RAM pointer
	sta >U_TPTPtr
	lda NewTPTRef+2
	sta >U_TPTPtr+2

done	rts

	ENDP




	title 'GrowTables'
****************************************************************
*
GrowTables	PROC
*
* This is the tricky code that grows TPT and WAP.
*
*
* Inputs:
*	none
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


TPTRef	equ 1	; this is where I put pointer to
*		; old TPT
OldTSPtr	equ TPTRef+4	; this is pointer to old FPT
NewTPTRef	equ OldTSPtr+4	; this is where I put pointer to
*		; new TPT
WAPTRef	equ NewTPTRef+4	; pointer to current WAPT
*
AHandle	equ WAPTRef+4	; this is temp storage for any
*		; handle I need to deal with.

ZPSize	equ AHandle+4

RTL1	equ ZPSize
RTL2	equ RTL1+3
FTablePtr	equ RTL2+3
TSNum	equ FTablePtr+4
UserOrSystem	equ TSNum+2

	pha	; make room for result
	pha
	pei NewTPTRef+2
	pei NewTPTRef
	_FindHandle

	pla
	sta AHandle
	pla
	sta AHandle+2

	pei AHandle+2
	pei AHandle
	_HUnlock

	lda TSNum	; figure out how big we need it
	and #$00FF	; use ts num
	inc a	; plus 1
	asl a	; times 4
	asl a
	PushWord #0	; push size on stack
	pha
	pei AHandle+2
	pei AHandle
	_SetHandleSize

	pei AHandle+2	; relock it
	pei AHandle
	_HLock

	lda [AHandle]	; dereference it
	sta NewTPTRef
	ldy #2
	lda [AHandle],y
	sta NewTPTRef+2

	jsr ResetTPTPtr	; now fix the master pointer to TPT


;-----------------------------------------------
;
; Since I grew the TPT, I also have to grow the
; WAP.
	pha	; make room for result
	pha
	pei WAPTRef+2
	pei WAPTRef
	_FindHandle

	pla
	sta AHandle
	pla
	sta AHandle+2

	pei AHandle+2
	pei AHandle
	_HUnlock

	lda TSNum	; calc size
	and #$00FF	; ts num +1 times 4
	inc a
	asl a
	asl a
	PushWord #0	; push size on stack
	pha
	pei AHandle+2
	pei AHandle
	_SetHandleSize

	pei AHandle+2	; relock it
	pei AHandle
	_HLock

	lda [AHandle]	; dereference it
	sta WAPTRef
	ldy #2
	lda [AHandle],y
	sta WAPTRef+2

	bit UserOrSystem
	bmi UserPtrs

	lda WAPTRef	; put new value into RAM pointer
	sta >WAPTPtr
	lda WAPTRef+2
	sta >WAPTPtr+2
	bra done

UserPtrs	lda WAPTRef	; put new value into RAM pointer
	sta >U_WAPTPtr
	lda WAPTRef+2
	sta >U_WAPTPtr+2

done		; 
;-----------------------------------------------
;
; Now I must adjust	the TSCount and put	a pointer
; to the dummy table in the new entries	of the
; TPT and zeros in new entries of the WAP
;
	lda [NewTPTRef]
	and #$00FF
	asl a
	asl a
	tay

DummyFill	lda #DummyTable
	sta [NewTPTRef],y
	lda #0
	sta [WAPTRef],y
	iny
	iny
	lda #^DummyTable
	sta [NewTPTRef],y
	lda #0
	sta [WAPTRef],y
	iny
	iny

	lda [NewTPTRef]	; bump counter in TPT
	inc a
	sta [NewTPTRef]
	lda TSNum	; compare counter with last entry
	and #$00FF	; counter should be	lastentry + 1
	inc a	; when done
	cmp [NewTPTRef]
	beq LoopDone
	bcs DummyFill


LoopDone	rts




	ENDP


	title 'GetFuncPtr'
****************************************************************
*
GetFuncPtr	PROC
*
* Returns pointer to a specified Function.
*
* Calling sequence:
*
*         PushPtr 0		; make room for result
*         PushWord UserOrSystem
*         PushWord TSNum,FuncNum
*         _GetFuncPtr
*
*
*
* Inputs:
*	UserOrSystemFlag : word
*	ToolAndFuncNumber : word
*
* Outputs:
*	FuncAdr : long
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


TPTRef	equ 1
FTableRef	equ TPTREf+4
OrigDirect	equ FTableRef+4
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
TSNum	equ RTL2+3
FuncNum	equ TSNum+1
UserOrSystem	equ FuncNum+1
FuncPtr	equ UserOrSystem+2


	phd	; save this thing

	pha	; put 8 bytes (four	words)
	pha
	pha
	pha

	tsc	; get stack pointer
	tcd	; make stack zp


	bit UserOrSystem
	bmi UserPtrs

	lda >TPTPtr
	sta TPTRef
	lda >TPTPtr+1
	bra GotPtr

UserPtrs	lda >U_TPTPtr
	sta TPTRef
	lda >U_TPTPtr+1
GotPtr	sta TPTRef+1


	lda TSNum
	and #$FF
	beq ABadTSNum
	cmp [TPTRef]
	bcc GoOn1

ABadTSNum	ldx #xBadTSNum
	bra ErrorOut

GoOn1	asl a
	asl a

	tay
	lda [TPTRef],y
	sta FTableRef
	iny
	lda [TPTRef],y
	sta FTableRef+1

	lda FuncNum
	and #$00FF
	beq aBadFNum
	cmp [FTableRef]
	bcc GoOn2

ABadFNum	ldx #xBadFuncNum
	bra ErrorOut

GoOn2	asl a
	asl a

	tay
	lda [FTableRef],y
	sta FuncPtr
	iny
	lda [FTableRef],y
	sta FuncPtr+1

	ldx #0

ErrorOut	pla	; clear off the 8 bytes on stack
	pla
	pla
	pla

	jmp ErrOut4	; this goes out this way all the
*		; time because for no error
*		; x is zero

	ENDP

	title 'GetWAP'
****************************************************************
*
GetWAP	PROC
*
* Returns the pointer to work area of specified tool number
*
*
* Possible Errors:
*     None.  I do not check for valid tool number!
*
*
* Calling Sequence
*
*     PushPtr 0		; make room for result
*     PushWord UserOrSystem
*     PushWord TSNum
*     _GetWAP
*
*
* Inputs:
*	UserOrSystemFlag : word
*	ToolNumber : word
*
* Outputs:
*	WAP value : LONG
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************


OrigDirect	equ 1
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
TSNum	equ RTL2+3
UserOrSystem	equ TSNum+2
WAP	equ UserOrSystem+2

WAPTRef	equ TSNum	; overwrite after read



	phd	; save direct
	tsc	; get stack pointer
	tcd	; make stack zp

	ldx TSNum	; put this in x

	bit UserOrSystem
	bmi UserPtrs

	lda >WAPTPtr
	sta WAPTRef
	lda >WAPTPtr+2
	bra GotPtrs

UserPtrs	lda >U_WAPTPtr
	sta WAPTRef
	lda >U_WAPTPtr+2
GotPtrs	sta WAPTRef+2

	txa
	and #$00FF
	asl a	; times 4
	asl a
	tay	; put it in y
	lda [WAPTRef],y	; get low word of WAP
	sta WAP
	iny	; get high word of WAP
	iny
	lda [WAPTRef],y
	sta WAP+2

	jmp EndCall4


	ENDP



	title 'SetWAP'
****************************************************************
*
SetWAP	PROC
*
* Sets entry in WAP	table to specified value for specified
* tool set.
*
* Possible Errors:
*        Bad Tool Set Number
*
*
* Calling Sequence
*
*        PushPtr WAP
*        PushWord UserOrSystem
*        PushWord TSNum
*        ldx
*        jsl Dispatch
*
*
*
* Inputs:
*	UserOrSystemFlag : word
*	ToolNumber : word
*	WAP value : LONG
*
* Outputs:
*	none
*
* External Refs:
*	none
*
* Entry Points:
*	none
*
	longa on	; mode
	longi on
*
****************************************************************

TPTRef	equ 1
OrigDirect	equ TPTRef+4
RTL1	equ OrigDirect+2
RTL2	equ RTL1+3
WAP	equ RTL2+3
TSNum	equ WAP+4
UserOrSystem	equ TSNum+2

WAPTRef	equ TSNum	; overwrite these


	phd	; save this thing

	pea 0	; put two words on stack
	pea 0

	tsc	; get stack pointer
	tcd	; make stack zp

	ldx TSNum	; get the TSNum

	bit UserOrSystem
	bmi UserPtrs

	lda >WAPTPtr
	sta WAPTRef
	lda >WAPTPtr+2
	sta WAPTRef+2

	lda >TPTPtr
	sta TPTRef
	lda >TPTPtr+2
	bra GotPtrs

UserPtrs	lda >U_WAPTPtr
	sta WAPTRef
	lda >U_WAPTPtr+2
	sta WAPTRef+2

	lda >U_TPTPtr
	sta TPTRef
	lda >U_TPTPtr+2
GotPtrs	sta TPTRef+2

	txa	; get ts num back from x
	and #$00FF
	beq BadNum
	cmp [TPTRef]
	bcc ValidNum

BadNum	ldx #xBadTSNum
	pla	; clean up the stack
	pla
	jmp ErrOut8

ValidNum		; 
	asl a	; times 4
	asl a
	tay	; put it in y
	lda WAP
	sta [WAPTRef],y
	iny
	iny
	lda WAP+2
	sta [WAPTRef],y


	pla	; clean up the stack
	pla
	jmp EndCall8


	ENDP



	title ' TLMemRoutines'
****************************************************************
*
TLMemRoutines	PROC
*
* Gets a handle of the size passed in the a-reg.  If GetMem
* is used, attributes are passed from calling routine in
* x-reg.  If TLNewhandle is used, attributes are TLAttributes.
*
*
* Inputs:
*    a-reg  Size of	handle
*    x-reg  attributes of handle (for GetMem only)
*
* Outputs:
*    a-reg  Low word of handle (or error)
*    x-reg  high word of handle
*    carry  set on error, clear on success
*
* External Refs:
*	none
*
* Entry Points:
	export TLGetMem
	entry TLNewHandle
*
	longa on	; mode
	longi on
*
* Change History
*
* 06 Oct 87    Steven Glass
*
*    Added.
*
* 17 Jun 88	Steven Glass
*
* Combined this with TLNewHandle.  Code was almost identical
* but duplicated.  By changing the calls to TLNewHandle to
* use the a-reg and x-reg for output we could share code.
*
****************************************************************

TLNewHandle
	ldx #TLAttributes
TLGetMem
	pha
	pha
	pea $0000
	pha
	PushWord #TLUserID
	phx
	pha
	pha
	_NewHandle
	bcs oops
	pla
	plx

	rts

oops	plx
	plx
	rts

	ENDP

	EJECT
*******************************************************************************
*
AppleIIForever	PROC
*
* Description:	Wouldn't you like to know ...
*
*
* Inputs:	None
*
* Outputs:	None
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
Sound1	equ $FF1000
Sound2	equ $FF1D00

	php
	rep #$30


	pea 0
	_SoundToolStatus
	pla
	bne @StartedAlready
			
	pea $2000
	_SoundStartup
	bcs @Error
@StartedAlready
; Now play the sound!
@Again
	pea #$7FFF
	_FFStopSound
			
	sep #$20	; crank the volume a little!
	Longa Off
	lda >$E100CA
	ora #$08
	sta >$E100CA
	rep #$20
	Longa On

	pea 1
	PushLong #MyPBlock
	_FFStartSound
@Error
	plp
	rtl
MyPBlock
	dc.L Sound1
	dc.W $000C
	dc.W $00F6	; 5kHz 97
	dc.W $0000
	dc.W $000F
	dc.L MyOTHERPBlock
	dc.W $00FF
MyOTHERPBlock
	dc.L Sound2
	dc.W $001F
	dc.W $00F6	; 5kHz 97
	dc.W $0000
	dc.W $000F
	dc.L 0
	dc.W $00FF
	EndP

	END

\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/tl/tl.equates.asm b/IIGS.601.SRC/GSToolbox/tl/tl.equates.asm
new file mode 100644
index 0000000..8cbd7a0
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/tl/tl.equates.asm
@@ -0,0 +1 @@
+	title ' Tool Locator Equates'
****************************************************************
*			   *
*                   Tool Locator Equates	   *
*			   *
****************************************************************


****************************************************************
*			   *
*	Copyright (C) 1985-1989	   *
*	All Rights Reserved		   *
*	Apple Computer, Inc.	   *
*			   *
****************************************************************

TLVersionNumber	equ $0300	; release version 3.0
TLUserID	equ $9001
MemFullError	equ $0201


TRUE	equ $FFFF
FALSE	equ $0

;---------------------------------------------------
;
; Tool Locator Error Codes.

BadVersionNum	equ $0110	; error returned by	load tools
MessNotFound	equ $0111	; message not found	from message
;		; center

TLAttributes	equ attrNoSpec+attrLocked
*
* The memory I use is also "fixed" in that it will never move but by
* not giving it the	"fixed" attribute, it will allocate from the top
* down rather than the bottom up.  Since it is allocated early on in
* the process this is desireable.  The "fixed" attribute will be used
* mostly by code which can go away and come in somewhere else.

RealDispatch	equ $E10000

MMWarmStart1	equ $E11680	; Memory manager vector to call
*		; after it is safe to patch a tool.
MMWarmStart2	equ $E11684	; Memory manager vector to call
*		; after all tools are inited.


* First location on	ZP to be used by TL	functions
ZP	equ 0


* Errors for Dispatching
;NoError	equ  0              
BadTSNum	equ 1
BadFuncNum	equ 2

* Errors for Tool Locator Calls
xBadTSNum	equ $0111
xBadFuncNum	equ $0112
xNoMemory	equ $0113



;-----------------------------------------------------------
;
; Text State Record	Definition
; Shared by two text state calls.
;

	DSECT 0

s_StateReg	BYTE
s_80Col	BYTE	;bit 0 = text page 1 shadow state (6-Jun-91 DAL)
s_NewVideo	BYTE
s_Text	BYTE	; note that we take	advantage
s_Mix	BYTE	; of the placement of some of these
s_Page2	BYTE
s_Hires	BYTE
s_AltCharSet	BYTE
s_80Vid	BYTE
s_Cursor	WORD
s_c3ROM	BYTE
s_OutputDevice	BLOCK 6
s_OutGlobals	BLOCK 4
s_InputDevice	BLOCK 6
s_InGlobals	BLOCK 4
s_ZeroPage	BLOCK 256

s_TextBank0	BLOCK $400
s_TextBank1	BLOCK $400
s_TextBankE0	BLOCK $400
s_TextBankE1	BLOCK $400

SizeStateRecord	BLOCK 0




\ No newline at end of file
diff --git a/IIGS.601.SRC/GSToolbox/tl/tl.loader.asm b/IIGS.601.SRC/GSToolbox/tl/tl.loader.asm
new file mode 100644
index 0000000..3c8bed4
--- /dev/null
+++ b/IIGS.601.SRC/GSToolbox/tl/tl.loader.asm
@@ -0,0 +1 @@
+	include 'all.macros'
	include 'e16.locator'


MMLoader	PROC

	bra RealStart



True	equ $FFFF
False	equ 0



TheUserID	equ $B001
TheToolNumber	equ $01
TheName	str '1/tl.in.ram'

RealStart


;-----------------------------------------------------------
;
; Brk if necessary
;
	lda >$C062
	and #$0080
	beq @NoBreak
	brk 17
@NoBreak



;-----------------------------------------------------------
;
; Set dbr
;

	phk
	plb


;-----------------------------------------------------------
;
; Cannot  Unload last patch
;

;	pha	; space for result
;	PushWord #TheUserID
;	PushWord #0
;	_UserShutdown
;
;	pla

;-----------------------------------------------------------
;
; Load the new one
;


	pha	; space for dir page stack size
	pha	; space for addr of	dir page stack seg
	pha	; space for starting addr
	pha
	pha	; space for user id
	PushWord #TheUserID	; user id
	PushLong #TheName	; ptr to path name
	PushWord #True
	_InitialLoad
	bcs Die

	pla	; ignore userid
	pla	; put starting address
	sta TableAddress
	pla
	sta TableAddress+2
	pla	; ignore dir page
	pla	; ignore dir page size


;-----------------------------------------------------------
;
; Install
;
	PushWord #1	; system call
	PushWord #TheToolNumber	; install the patch
	PushLong TableAddress
	_SetTSPtr
	
	_SetDefaultTPT

;-----------------------------------------------------------
;
; Quit
	_Quit QuitParams


QuitParams	DC.L 0
	DC.W 0


TableAddress	DS.B 4





Die		; 
	pha
	PushLong #ErrorString
	_SysFailMgr

ErrorString	str 'Could not load.  Error was $'

	ENDP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/IIGS source code (1983).daa b/IIGS.601.SRC/IIGS source code (1983).daa
new file mode 100644
index 0000000..2891db2
Binary files /dev/null and b/IIGS.601.SRC/IIGS source code (1983).daa differ
diff --git a/IIGS.601.SRC/MountImageGS/MountImage.aii b/IIGS.601.SRC/MountImageGS/MountImage.aii
new file mode 100644
index 0000000..7d73cd1
--- /dev/null
+++ b/IIGS.601.SRC/MountImageGS/MountImage.aii
@@ -0,0 +1 @@
+*******************************************************************************
*
* Mount Image GS
*  by Steve Stephenson
*
* !!! 6.0.1 required !!!
*
*******************************************************************************

DebugSymbols	equ 1

	print push
	print off
	
	include 'e16.types'
	include 'e16.resources'
	include 'e16.window'
	include 'e16.finder'
	include 'e16.gsos'
	include 'e16.control'
	include 'all.macros'

	macro
&lab	DateTimeStamp
&lab	dc.b '&Sysdate &SysTime'
	mend
	
	print pop

* resource equates

MainWindowTmp	equ $00001000
MainWindColor	equ $00001000
MainWindTitle	equ $00001000
MainCtlList	equ $00001000

MountBtn	equ $00000001
EjectBtn	equ $00000002
MainList	equ $00000003
VersionStr	equ $00000004

AboutBox	equ $00000001

SFPromptStr	equ $00002001	
	
**********************************************************************
DriverVersion	equ $100E	;experimental

* Status word bits

diskSwitchedBit	equ $01
diskInDriveBit	equ $10

* GS/OS direct page equates and constants

deviceNum	equ $00
callNum	equ $02
bufferPtr	equ $04
requestCount	equ $08
transferCount	equ $0C
blockNum	equ $10
blockSize	equ $14
controlCode	equ $16
statusCode	equ $16
fstID	equ $16
volumeID	equ $18
cachePriority	equ $1A
cachePointer	equ $1C
dibPointer	equ $20

INSTALL_DRIVER	equ $01FCA8
SET_DISKSW	equ $01FC90
MOVE_INFO	equ $01FC70
moveblkcmd	equ $0800
move_sinc_dinc	equ $05+moveblkcmd
move_scon_dinc	equ $04+moveblkcmd	; for zeroing blocks

* DIB offsets
	dsect 0
kLinkPtr	long
kEntryPtr	long
kCharacteristics	word
kBlockCount	long	
kDevName	block 32	
kSlotNum	word
kUnitNum	word
kVersion	word
kDeviceID	word
kHeadLink	word
kForwardLink	word
kExtendedDIBPtr	long
kDIBDevNum	word
* my extra stuff
kDataHandle	long
kStatusFlag	word
	block 6	;header size
kDibSize	block 0

**********************************************************************

* Image file header constants
	dsect 0
kDiskName	block 64
kDataSize	long
kTagSize	long
kDataChecksum	long
kTagChecksum	long
kDiskFormat	byte
kFormatByte	byte
kPrivate	word

*******************************************************************************
*
* The NDA
*
*******************************************************************************
NDAHeader           proc

                    dc.l NDAOpen        ; Pointer to the open routine
                    dc.l NDAClose       ; Pointer to the close routine
                    dc.l NDAAction      ; Pointer to the action routine glue
                    dc.l NDAInit        ; Pointer to the init routine glue
NDAPeriod           dc.w $FFFF          ; How often the NDA gets run actions (never)
NDAEventMask        dc.w $fFFF          ; Describes what events the NDA wants
                    dc.b '**'           ; two place-holding characters
NDAMenuLine         dc.b 'Mount Image GS'
                    dc.b '\H**'         ; \H and two place-holding characters
                    dc.b 0              ; The menu item string terminator
                    
*******************************************************************************
*
* NDA Open
*
*******************************************************************************

NDAOpen	name

	phb	;save B
	phk
	plb	;reset B
	
	lda OpenAllowed	;got proper environment?
	bne @yup
	brl @nope	; no.
@yup
* open main window
	pha
	pea #readEnable	;open my resource fork read-only
	pha
	_MMStartup
	lda 1,s
	sta MyID
;	_OpenResourceFileByID
	ldx #$2e1e
	jsl $e10000
	pla
	bcc @opened
	
	pha
	_GetCurResourceApp
	pla
	cmp MyID
	beq @shutmedown
	brl @error
@shutmedown	_ResourceShutdown
	brl @error
	
@opened	ldx #0
	pha	;result spc
	pha
	phx	;title=nil
	phx
	phx	;refcon=nil
	phx
	pushlong #ContentDraw
	phx	;defproc=nil
	phx
	pea #refIsResource
	pushlong #mainWindowTmp
	pea #rWindParam1
	_NewWindow2
	plx
	ply
	bcs @error
	stx WindowPtr
	sty WindowPtr+2
	
	tya
	sta 7,s	;inform Desk Mgr
	txa
	sta 5,s
	
	phy
	phx
	_SetSysWindow
	
	pushlong WindowPtr
	_SetPort

	pha	;add the list control
	pha
	pushlong WindowPtr
	pea #singlePtr
	pushlong #ListTemplate
	_NewControl2
	plx
	ply
	stx ListCtlHandle
	sty ListCtlHandle+2
	
*``` setup list

	jsr SetButtonDims
	
	pushlong WindowPtr
	_ShowWindow
	
@error	
@nope	plb
	rtl
	

*******************************************************************************
*
* Content Draw
*
*******************************************************************************

ContentDraw	name
	phb
	phk
	plb
	pushlong WindowPtr
	_DrawControls
	plb
	rtl
	
	
*******************************************************************************
*
* NDA Close
*
*******************************************************************************

NDAClose	name
	phb
	phk
	plb
	lda WindowPtr+1
	beq @notOpen
	pushlong WindowPtr
	_CloseWindow
	stz WindowPtr+1
@notOpen	plb
	rtl
	
	
*******************************************************************************
*
* NDA Action
*
*******************************************************************************

NDAAction           name
	phb
	phk
	plb
                    phy                 ;event record
                    phx
	asl a
	tax
	jsr (@actions,x)
	plx
	ply
 	plb
	rtl
@actions
	dc.w NoAction
	dc.w NDAEvent
	dc.w NDARun
	dc.w NDACursor
	dc.w NoAction
	dc.w NDAUndo
	dc.w NDACut
	dc.w NDACopy
	dc.w NDAPaste
	dc.w NDAClear
	
NDAUndo	name
NDACut	name
NDACopy	name
NDAPaste	name
NDAClear	name
	lda #-1
NDARun	name
NDACursor	name
NoAction	rts
	
**********************************************************************
NDAEvent	name

	phd
	tsc
	tcd
	dsect 5
EventPtr	long

	pei <EventPtr+2
	pei <EventPtr
	pushlong #EventRecord
	pushlong #16
	_BlockMove
	
	pha
	pea $ffff
	pushlong #EventRecord
	_TaskMasterDA
	pla
	cmp #wInControl
	bne @done
	
	jsr DoInControl
	
@done	pld
	rts
	
**********************************************************************
DoInControl	name

	lda TaskData4
	beq @oops	;needed???
	cmp #4+1
	bcs @oops
	asl a
	tax
	jsr (@controls-2,x)
	jsr SetButtonDims
@oops	rts

@controls	dc.w doMountButton
	dc.w doEjectButton
	dc.w doMainList
	dc.w doAbout
	
**********************************************************************
doMountButton	name
	stz SFStatus	;clr SF started flag
	pea #0
	_SFStatus
	pla	;is it loaded?
	bcs @load	; no, loaded it
	sta SFStatus	; yes, is it started?
	beq @loaded	;  no, start it
	bne @started	;  yes, use it.
@load	
	pea #023	;load it
	pea #$0304
	_LoadOneTool
	bcs @toerror
@loaded		;start it
	pha
	pha
	pea 0
	pea #$0100
	pea MyID
	pea #$c005
	pea 0
	pea 0
	_NewHandle	;get dp mem
	plx
	ply
	bcs @toerror
	stx SFdpHandle
	sty SFdpHandle+2
	pea MyID
	phx
	_SFStartup
	bcs @toerror
@started		;use it to choose an image file
	pea #20
	pea #20
	pea #refIsResource
	pushlong #SFPromptStr
	pushlong #0
	pushlong #typeList
	pushlong #SFReply
	_SFGetFile2
	bcc @noerr
@toerror	brl @error

@noerr	lda SFReply
	bne @mount
	brl @cancel	;user cancelled
	
@mount	pushlong SFpathRef	;lock & deref the path
	phd
	tsc
	tcd
	pei <5
	pei <3
	_HLock
	_WaitCursor	;this may take a while..
	ldy #2
	lda [3]
	inc a	;move past buffer length word to c1Str
	inc a
	tax
	lda [3],y
	tay	;X,Y hold name pointer
	pld
	pla
	pla

	jsr MountIt	;mount the image

	php	;save the result
	pha
	_InitCursor	;fix the cursor
	pla
	plp	;error?
	bcc @mounted	; no, continue
	
	ldx #0	; yes, show it
	phx
	phx
	phx
	phx
	pha
	_ErrorWindow
	pla
	brl @error2
@mounted
* add it to the list
	jsr SetImageAddr	;set XY=addr of image header
	phy
	phx
	lda dibNum	;find my spot in the member array
	asl a
	asl a
	asl a
	tax
	pla	;ptr to header/name
	sta |ListPtr,x
	pla
	sta |ListPtr+2,x
	lda dibNum	;local dib number
	xba
	sta |ListPtr+4,x
	lda devNum	;bogus!!!```
	sta |ListPtr+6,x
	inc ListSize

	jsr NewSort	;resize and resort	
	
@error2	pushlong SFnameRef	;release SF reply handles
	_DisposeHandle
	pushlong SFpathRef
	_DisposeHandle
@cancel
@error
	lda SFStatus	;did we start it?
	bne @done	; no, we're done
	_SFShutdown	; else, shutdown and unload
	pea #023
	_UnloadOneTool
	pushlong SFdpHandle
	_DisposeHandle
@done	
	rts
	
	
**********************************************************************
* Mount the image
* Entry: X,Y = ptr to GS/OS pathname
* Exit:  A & C affected
MountIt	name

	stx Opathname	;save the c1Str pointer
	sty Opathname+2
	
	jsr FindAvailableDIB ;get a DIB spot
	bcc @found
	lda #$68	;```temp
@toError1	brl @error
	
@found
	stx dibAddr	;lo word of DIB addr (hi is this bank)
	sty dibNum	;my 0-rel number of the DIB to use
	sta devNum	;device number from DIB (zero if virgin)
; open file
	_OpenGS OpenParam	;open the file
	bcs @toError1
	
; read first 84 bytes
	lda OrefNum	;clone refNums
	sta RWrefNum
	sta CloseRefNum
	
	lda #84	;length of the image file header
	sta RWreqCount
	stz RWreqCount+2

	jsr SetImageAddr	;addr for the header
	stx RWbuffer
	sty RWbuffer+2

	_ReadGS RWparam	;read the header
	bcs @toError2
	
	pha	;long spc
	pha
	ldx RWbuffer
	lda |kDataSize,x	;size hi
	xba
	pha
	lda |kDataSize+2,x	;size lo
	xba
	pha
	pha
	_MMStartup	;ID
	lda #0
	pha	;attrib
	pha	;addr
	pha
	_NewHandle	;get mem for image
	plx
	ply
	bcc @gotmem	
@toError2	brl @error2
	
@gotmem
; finish filling the DIB while RWbuffer is still set to header data
	txa	;XY hold the handle
	ldx dibAddr
	sta |kDataHandle,x	;put it into the post-DIB spot
	tya
	sta |kDataHandle+2,x
	
	ldx RWbuffer	;calc the block count (size/$200)
	lda |kDataSize+1,x
	xba
	lsr a
	ldx dibAddr
	sta |kBlockCount,x
	lda #0
	sta |kBlockCount+2,x

	ldx RWbuffer	;setup the device ID to look like the image
	lda |kDiskFormat,x
	and #$ff
	asl a
	tax
	lda IDtable,x
	ldx dibAddr
	sta |kDeviceID,x

	lda #(diskSwitchedBit+diskInDriveBit)
	sta |kStatusFlag,x	;init the local status
	
; read in the data
	ldx RWbuffer	;setup the request count
	lda |kDataSize,x
	xba
	sta RWreqCount+2
	lda |kDataSize+2,x
	xba
	sta RWreqCount
	
	ldx dibAddr	;setup the read addr (deref the handle)
	lda |kDataHandle+2,x
	tay
	lda |kDataHandle,x
	tax
	phb
	phy
	plb
	lda |2,x
	tay
	lda |0,x
	plb
	plb
	sta RWbuffer
	sty RWbuffer+2
	
	_ReadGS RWparam	;read the disk

@error2	php
	pha	;keep error code
	_CloseGS CloseParam
	pla
	plp
	bcs @error
	
; if not already started, call INSTALL_DRIVER
	lda devNum	;already have a devNum?
	bne @good	; yes, don't reinstall.
	
	lda dibaddr	;finish creating the DIB list
	sta thisDIBaddr
	
	sep #$20
	lda >$e0c068	;save the slots
	pha
	lda >$e0c08b	;onto the proper bank
	lda >$e0c08b
	rep #$20

	ldx #DIBList	;point to the DIB list
	ldy #^DIBList
	jsl INSTALL_DRIVER	;get a devNum assigned
	tax
	
	sep #$20
	pla
	sta >$e0c068	;restore the slots
	rep #$20
	
	txa
	bcs @error
	
	ldx dibAddr
	lda |kDIBDevNum,x	;get a bogus devNum!!!```
	sta devNum
	
@good	clc
	rts
	
@error	sec
	rts
	
IDtable
	dc.w $03	;0=400k
	dc.w $03	;1=800k
	dc.w $17	;2=720k
	dc.w $17	;3=1440k
	
DIBList	dc.l 1
thisDIBaddr	dc.l DIB_1

**********************************************************************
* Input:  none
* Output: C= success
*         A= devNum (zero if never installed)
*         X= DIB addr
*         Y= nth dib
*
FindAvailableDIB	name
	ldy #0
	ldx #DIB_1
@next	lda |KStatusFlag,x	;already have one mounted?
	and #diskInDriveBit
	beq @found	; no, it's available
	iny	; yes, keep looking
	cpy #8	;tried all 8?
	bcs @none	; yup, none available; return carry set.
	txa	; no, step to next dib
	clc
	adc #kDibSize	; inc X by size of a dib
	tax
	bra @next
	
@found	lda |kDIBDevNum,x	;return devNum in A
	clc
@none	rts
	

**********************************************************************
* Input:  dibNum valid
* Output: XY = Image header addr
*
SetImageAddr	name

	pha
	pha
	pea #84	;multiply the dibNum by the header size
	pushword dibNum
	_Multiply
	pla
	adc #ImageHeaders	;and add the offset from the first
	tax
	pla
	lda #^ImageHeaders
	tay
	rts
	
**********************************************************************
doEjectButton	name

	lda ListSize	;use a local copy
	sta @count
	
	pushlong #SelectSort ;sort all selected members to the end
	pushlong ListCtlHandle
	_SortList2
	
	stz @next	;start at top of list
@loop	pha
	pushword @next
	pushlong ListCtlHandle
	_NextMember2	;get first selected
	pla	;got one?
	beq @none	; no, we're done.
	sta @next	; yes, set next search start spot

	dec a
	asl a
	asl a
	asl a
	tax
	lda |ListPtr+5,x	;get dibNum
	and #$ff
	pha
	pha
	pha
	pea #kDIBsize
	_Multiply
	pla
	adc #DIB_1
	tax	;X=this DIB addr
	pla	;(fix stk)
	lda |kDIBdevNum,x	;get the real devNum	
	sta EjectNum
	_DControlGS EjectParam

	dec @count
	bra @loop

@none	lda @count
	sta ListSize
	brl NewSort	;reset and resort the list

@next	dc.w 0
@count	dc.w 0

**********************************************************************
* Compare routine to move all selected members to the end of the list
SelectSort	name

	ldy #5	;index to ListMgr select byte
	
	sep #$20
	lda [4],y
	cmp [8],y
	rep #$20
	
	lda 0,s
	sta 8,s
	lda 2,s
	sta 10,s
	pla
	pla
	pla
	pla
	rtl
	

**********************************************************************
doMainList	name

* need to do anything here?

	rts
	
**********************************************************************
doAbout	name

	lda #0
	pha
	pea awButtonLayout+awResource
	pha
	pha
	pushlong #AboutBox
	_AlertWindow
	pla
	rts

**********************************************************************
* Set the hilite state of the buttons
* If no items are selected in the list, dim the Eject button
* If there are already 8 mounted images, dim the Mount button

SetButtonDims	name

	pha
	pea 0
	pushlong ListCtlHandle
	_NextMember2
	pla	;anything selected?
	beq @dimEject	; no, dim it
@undimEject	lda #noHilite	; yes, undim it
	bra @setEject
@dimEject	lda #inactiveHilite
@setEject	pha
	pushlong WindowPtr
	pushlong #EjectBtn
;	_HiliteCtlByID
	ldx #$3f10
	jsl $e10000
	
	lda ListSize
	cmp #8	;list already full?
	beq @dimMount	; yes, dim it
@undimMount	lda #noHilite	; no, undim it
	bra @setMount
@dimMount	lda #inactiveHilite
@setMount	pha
	pushlong WindowPtr
	pushlong #MountBtn
;	_HiliteCtlByID
	ldx #$3f10
	jsl $e10000
	
	rts
	
**********************************************************************
* Update the List globals and sort it
NewSort	name
	ldx #0
	phx
	phx
	pea 1	;display from #1
	pushlong #ListPtr
	phx
	pushword ListSize
	pushlong ListCtlHandle
	_NewList2
	
	lda #0	;use default alpha sort
	pha
	pha
	pushlong ListCtlHandle
	_SortList2
	rts
	
	
*******************************************************************************
*
* NDA Init
*
*******************************************************************************

NDAInit	name
	phb
	phk
	plb
	pha
	
	stz OpenAllowed
	_GET_VERSION OSversion
	lda OSversion
	and #$7fff
	cmp #$0402	;6.0.1 required
	bcc @bad
	sta OpenAllowed
@bad
	pla
	bcc @done
	beq @shutdown
@startup	
* on startup: add request proc
;	pushlong #RequestName
;	pha
;	_MMStartup
;	pushlong #RequestProc
;	_AcceptRequests
@shutdown	
*``` on shutdown: ???
@done
	plb
	rtl
	
	
*******************************************************************************
*
* Request Proc
*
*******************************************************************************
RequestProc	name
	phb
	phk
	plb
	phd
	tsc
	tcd
	dsect 1
@d	word
@b	byte
@rtl	block 3
dataOut	long
dataIn	long
reqCode	word
result	word

	lda <reqCode
	cmp #finderSaysBeforeOpen
	bne @notOurs

	ldy #$16
	lda [dataIn],y	;printing?
	bne @notOurs	; yes, skip
	
	ldy #$0a
	lda [dataIn],y	;type
	cmp #$E0	;ours?
	bne @notOurs	; no, skip
	iny
	iny
	lda [dataIn],y	;auxtype lo
	cmp #$0005	;ours?
	bne @notOurs	; no, skip
	iny
	iny
	lda [dataIn],y	;auxtype hi (must be 0)
	bne @notOurs	; no, skip

	ldy #2
	lda [dataIn],y
	tax
	iny
	iny
	lda [dataIn],y
	tay	;pass pathname ptr in XY
	jsr MountIt	;try to mount it
	bcs @notOurs	; treat error same as not handled
	
	lda #$8000	;we handled it
	bra @exit
@notOurs	
	lda #0	;we did not handle it
@exit	sta <result
	pld	;restore D
	plx	;hold B and hi addr
	ply	;hold lo addr
	pla	;pop 10 bytes
	pla
	pla
	pla
	pla
	phy	;restore lo addr
	phx	;restore hi addr and B
	plb	;restore B
	rtl
	
	
*******************************************************************************
*
* NDA Variables
*
*******************************************************************************

MyID	dc.w 0
OSversion	dc.w 0
OpenAllowed	dc.w 0
WindowPtr	dc.l 0

EventRecord
What	dc.w 0
Message	dc.l 0
When	dc.l 0
Where	dc.l 0
Modifiers	dc.w 0
TaskData	dc.l 0
TaskMask	dc.l tmMenuKey+tmUpdate+tmFindW+tmMenuSel+tmOpenNDA+tmSysClick+\
	     tmDragW+tmContent+tmClose+tmZoom+tmGrow+tmScroll+tmSpecial+\
	     tmCRedraw+tmInactive+tmInfo+tmContentControls+tmControlKey+\
	     tmControlMenu+tmMultiClick+tmIdleEvents
LastClickTick	dc.l 0
ClickCount	dc.w 0
TaskData2	dc.l 0
TaskData3	dc.l 0
TaskData4	dc.l 0
LastClickPoint	dc.l 0

RequestName	str 'Apple~Mount Image GS~'

SFStatus	dc.w 0
SFdpHandle	dc.l 0

TypeList	dc.w 1
@flags	dc.w 0	;must match both type and auxtype
@type	dc.w $E0
@auxtype	dc.l $0005
	
SFReply	dc.w 0
@type	dc.w 0
@auxtype	dc.l 0
@nameRefDesc	dc.w refIsNewHandle
SFnameRef	dc.l 0
@pathRefDesc	dc.w refIsNewHandle
SFpathRef	dc.l 0

OpenParam	dc.w 5
OrefNum	dc.w 0
Opathname	dc.l 0
OreqAccess	dc.w 0
@fork	dc.w 0
Oaccess	dc.w 0

RWparam	dc.w 4
RWrefNum	dc.w 0
RWbuffer	dc.l 0
RWreqCount	dc.l 0
RWtransCount	dc.l 0

CloseParam	dc.w 1
CloseRefNum	dc.w 0
	
EjectParam	dc.w 5
EjectNum	dc.w 0
@code	dc.w 2
	dc.l 0
	dc.l 0
	dc.l 0

dibAddr	dc.w 0
dibNum	dc.w 0
devNum	dc.w 0

ListCtlHandle	dc.l 0

ListTemplate	dc.w 14
	dc.l MainList	;ID
	dc.w 4,10,86,284	;rect
	dc.l listControl
	dc.w 0	;flag
	dc.w fCtlProcRefNotPtr+fCtlIsMultiPart
	dc.l 0	;refcon
ListSize	dc.w 0
	dc.w 8	;list view
	dc.w 0	;pStrings, multi-select, scrollbar outside
	dc.w 1	;list start
	dc.l 0	;list draw
	dc.w 10	;font height
	dc.w 8	;member size
	dc.l ListPtr	;list ptr
	
ListPtr	ds 64

ImageHeaders
IMAGE_1
@DiskName	ds 64
@DataSize	dc.l 0
@TagSize	dc.l 0
@DataChecksum	dc.l 0
@TagChecksum	dc.l 0
@DiskFormat	dc.b 0
@FormatByte	dc.b 0
@Private	dc.w 0

IMAGE_2
@DiskName	ds 64
@DataSize	dc.l 0
@TagSize	dc.l 0
@DataChecksum	dc.l 0
@TagChecksum	dc.l 0
@DiskFormat	dc.b 0
@FormatByte	dc.b 0
@Private	dc.w 0

IMAGE_3
@DiskName	ds 64
@DataSize	dc.l 0
@TagSize	dc.l 0
@DataChecksum	dc.l 0
@TagChecksum	dc.l 0
@DiskFormat	dc.b 0
@FormatByte	dc.b 0
@Private	dc.w 0

IMAGE_4
@DiskName	ds 64
@DataSize	dc.l 0
@TagSize	dc.l 0
@DataChecksum	dc.l 0
@TagChecksum	dc.l 0
@DiskFormat	dc.b 0
@FormatByte	dc.b 0
@Private	dc.w 0

IMAGE_5
@DiskName	ds 64
@DataSize	dc.l 0
@TagSize	dc.l 0
@DataChecksum	dc.l 0
@TagChecksum	dc.l 0
@DiskFormat	dc.b 0
@FormatByte	dc.b 0
@Private	dc.w 0

IMAGE_6
@DiskName	ds 64
@DataSize	dc.l 0
@TagSize	dc.l 0
@DataChecksum	dc.l 0
@TagChecksum	dc.l 0
@DiskFormat	dc.b 0
@FormatByte	dc.b 0
@Private	dc.w 0

IMAGE_7
@DiskName	ds 64
@DataSize	dc.l 0
@TagSize	dc.l 0
@DataChecksum	dc.l 0
@TagChecksum	dc.l 0
@DiskFormat	dc.b 0
@FormatByte	dc.b 0
@Private	dc.w 0

IMAGE_8
@DiskName	ds 64
@DataSize	dc.l 0
@TagSize	dc.l 0
@DataChecksum	dc.l 0
@TagChecksum	dc.l 0
@DiskFormat	dc.b 0
@FormatByte	dc.b 0
@Private	dc.w 0

*¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥
*¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥

*******************************************************************************
*
* The Driver
*
*******************************************************************************

*******************************************************************************
*
* The Main Driver entry point
*
*  All calls start here with the command number in A.
*
*  Returns a result/error code in A and affects the carry.
*
*******************************************************************************

MainEntry	name

	phk
	plb

	cmp #8+1
	bcc @handleCall

	lda #DrvrBadReq	;command out of range
	bra @exitDriver	;return the error and condition the carry

@handleCall	asl a	;index into handler table
	tax
	
	stz OurError	;init to noError
	
	jsr (DrvrTable,X)	;handle it

	lda OurError	;setup result in A

@exitDriver	cmp #1	;and success in P
	rtl
	
DrvrTable	dc.w Startup
	dc.w Open
	dc.w Read
	dc.w Write
	dc.w Close
	dc.w Status
	dc.w Control
	dc.w Flush
	dc.w Shutdown

*******************************************************************************
*
* Startup
*
*******************************************************************************
Startup	name

* do nothing
	rts

	
*******************************************************************************
*
* Open
*
*******************************************************************************
Open	name

* do nothing
	rts

	
*******************************************************************************
*
* Read
*
*******************************************************************************
Read	name

	jsr SetupTheMove
	bcs @Exit
	
; lookup the disk's handle
@handle	equ requestCount
	pei <requestCount+2	;save original
	pei <requestCount
	
	ldy #kDataHandle+2
	lda [dibPointer],y
	and #$ff
	sta <@handle+2
	dey
	dey
	lda [dibPointer],y
	sta <@handle
	
; calc the offset into the block using a temp long on the stack
	lda #0
	pha
	pha
	lda <blockNum
	asl a
	sta 2,s
	
; add the offset to the start of the block to get the abs addr
	ldy #2
	lda [@handle]
	clc
	adc 1,s
	sta 1,s
	lda [@handle],y
	adc 3,s
	sta 3,s	; source address now on stack

	pei <bufferPtr+2
	pei <bufferPtr	; destination address on the stack

	pei <transferCount+2
	pei <transferCount	; request count on stack

	pea move_sinc_dinc	; the command word
	jsl MOVE_INFO	; system service call
	
	pla
	sta <requestCount	;restore
	pla
	sta <requestCount+2
	
@Exit	rts
	

*******************************************************************************
*
* Write
*
*******************************************************************************
Write	name
	
	jsr SetupTheMove
	bcs @Exit
	
; lookup the disk's handle
@handle	equ requestCount
	pei <requestCount+2	;save original
	pei <requestCount
	
	ldy #kDataHandle+2
	lda [dibPointer],y
	and #$ff
	sta <@handle+2
	dey
	dey
	lda [dibPointer],y
	sta <@handle
	
	pei <bufferPtr+2
	pei <bufferPtr	; source address on the stack

; calc the offset into the block using a temp long on the stack
	lda #0
	pha
	pha
	lda <blockNum
	asl a
	sta 2,s
	
; add the offset to the start of the block to get the abs addr
	ldy #2
	lda [@handle]
	clc
	adc 1,s
	sta 1,s
	lda [@handle],y
	adc 3,s
	sta 3,s	; destination address now on stack

	pei <transferCount+2
	pei <transferCount	; request count on stack

	pea move_sinc_dinc	; the command word
	jsl MOVE_INFO	; system service call
	
	pla
	sta <requestCount	;restore
	pla
	sta <requestCount+2
	
	ldy #kDataHandle+2
	lda [dibPointer],y
	ora #$8000	;set image dirty flag
	sta [<dibPointer],y
	
@Exit	rts
	

**********************************************************************
*
* Check for errors and set <transferCount to the amount to do
* Return carry set to skip the move
*
**********************************************************************

SetupTheMove
	jsr CheckSwitched
	beq @notswitched
	sec
	brl @Bad
@notswitched
; Make sure there is something to do
	lda <requestCount
	ora <requestCount+2
	bne @CheckTheCount
	sec
	brl @Bad	; no action in this case (but also no error)

@CheckTheCount	lda <requestCount
	and #$1FF	;is the requestCount a multiple of $200
	beq @CheckSize	; yes
	
@BadCount	lda #DrvrBadCount
	sta OurError
	sec
	brl @Bad

; Make sure this has our block size
@CheckSize	lda <BlockSize	;is the blockSize $200
	cmp #$200
	bne @BadCount	; no
	
; Setup amount to do..
	lda <requestCount+2	;clone amount to do in bytes
	sta <transferCount+2
	lda <requestCount
	sta <transferCount
	
	lda <requestCount+3	;convert bytes to blocks on the stack
	and #$00FF
	lsr a
	pha
	lda <requestCount+1
	ror a
	pha
	
; Check starting block + requested block count <= total blocks

	lda <blockNum	;starting blk	
	clc
	adc 1,s	;+ requested amount
	sta 1,s	;= requested total
	lda <blockNum+2
	adc 3,s
	sta 3,s
	
	ldy #kBlockCount	;see if blockCount is = or greater
	lda [dibPointer],y
	sec
	sbc 1,s
	pla	;(fix stk as we go)
	iny
	iny
	lda [dibPointer],y
	sbc 1,s
	pla
	bcs @Good	; yes, it's in range, continue
	
	lda #DrvrBadBlock	; no, flag as out of bounds,
	sta OurError
	
	stz <transferCount	; but do what will fit anyway.
	stz <transferCount+2
	ldy #kBlockCount
	lda [dibPointer],y	;reset bytes to do
	sec	; to amount between starting blk and last blk
	sbc <blockNum	;  (convert blks to bytes)
	asl a
	sta <transferCount+1
	
@Good	clc
@Bad	rts


*******************************************************************************
*
* Close
*
*******************************************************************************
Close	name

* do nothing
	rts
	

*******************************************************************************
*
* Status
*
*******************************************************************************
Status	name
	lda <statusCode
	cmp #4+1	;check code in range
	bcc @handleCall
	
	lda #DrvrBadCode	;out of range
	sta OurError
	rts
	
@handleCall	asl a
	tax

	jsr (StatusTable,x)
	rts

StatusTable	dc.w doGetDeviceStatus
	dc.w doGetConfigParameters
	dc.w doGetWaitStatus
	dc.w doGetFormatOptions
	dc.w doGetPartitionMap
	
**********************************************************************
doGetDeviceStatus	name
	lda #2
	sta <transferCount
	ldy #kStatusFlag
	lda [dibPointer],y
	sta [<BufferPtr]

	lda <requestCount
	cmp #6
	bcc @skipBlockCount
	lda #6
	sta <transferCount

	ldy #kBlockCount
	lda [dibPointer],y
	tax
	iny
	iny
	lda [dibPointer],y

	ldy #4
	sta [<BufferPtr],y
	dey
	dey
	txa
	sta [<BufferPtr],y
@skipBlockCount
	rts
	
**********************************************************************
doGetConfigParameters name
; -- fall thru --
**********************************************************************
doGetWaitStatus	name
	lda #0
	sta [<BufferPtr]

	lda #2
	sta <transferCount
	rts
	
**********************************************************************
doGetFormatOptions	name	;none
* do nothing
; -- fall thru --
**********************************************************************
doGetPartitionMap	name	;none
* do nothing
	rts
	
	
*******************************************************************************
*
* Control
*
*******************************************************************************
Control	name

	jsr CheckSwitched
	beq @notswitched
	rts
@notswitched
	lda <controlCode
	cmp #9+1	;check code in range
	bcc @handleCall
	
	lda #DrvrBadCode	;out of range
	sta OurError
	rts
	
@handleCall	asl a
	tax

	jsr (controlTable,x)
	rts

ControlTable	dc.w doResetDevice
	dc.w doFormatDevice
	dc.w doEjectMedium
	dc.w doSetConfigParameters
	dc.w doSetWaitStatus
	dc.w doSetFormatOptions
	dc.w doAssignPartitionOwner
	dc.w doArmSignal
	dc.w doDisarmSignal
	dc.w doSetPartitionMap
	
**********************************************************************
doResetDevice	name
* do nothing
; -- fall thru --
**********************************************************************
doFormatDevice	name
* do nothing
; -- fall thru --
**********************************************************************
doSetConfigParameters name
* do nothing
; -- fall thru --
**********************************************************************
doSetFormatOptions	name
* do nothing
; -- fall thru --
**********************************************************************
doAssignPartitionOwner name
* do nothing
; -- fall thru --
**********************************************************************
doArmSignal	name
* do nothing
; -- fall thru --
**********************************************************************
doDisarmSignal	name
* do nothing
; -- fall thru --
**********************************************************************
doSetPartitionMap	name
* do nothing
	rts
	
**********************************************************************
doEjectMedium	name
	ldx #0
	ldy #kDataHandle+2
	lda [dibPointer],y
	pha
	txa
	sta [dibPointer],y
	dey
	dey
	lda [dibPointer],y
	pha
	txa
	sta [dibPointer],y
	_DisposeHandle

	ldy #kStatusFlag
	lda #diskSwitchedBit
	sta [dibPointer],y
	
	rts
	
**********************************************************************
doSetWaitStatus	name
	lda [<BufferPtr]
	bne @err
	rts
	
@err	lda #DrvrBadParm
	sta OurError
	rts
	

*******************************************************************************
*
* Flush
*
*******************************************************************************
Flush	name

* do nothing
	rts
	

*******************************************************************************
*
* Shutdown
*
*******************************************************************************
Shutdown	name

	jsr doEjectMedium

	ldy #1
	ldx #DIB_1
@next	lda |KStatusFlag,x	;already have one mounted?
	and #diskInDriveBit	;got one mounted here?
	bne @notAllGone	; yes, then we can't shutdown.
	iny	; no, keep looking
	cpy #8+1	;tried all 8?
	bcs @allGone	; yup, none mounted.
	txa	; no, step to next dib
	clc
	adc #kDibSize	; inc X by size of a dib
	tax
	bra @next
	

@notAllGone	lda #DrvrBusy
	sta OurError
@allGone	rts
	

*******************************************************************************
*
* Check Disk Switched
*
*******************************************************************************
CheckSwitched
	ldy #kStatusFlag
	lda [dibPointer],y
	bit #diskSwitchedBit
	beq @notswitched
	and #$ffff-diskSwitchedBit
	sta [dibPointer],y
	jsl SET_DISKSW
	lda #drvrDiskSwitch
	sta OurError
@notswitched	rts


*******************************************************************************
*
* DIBs
*
*******************************************************************************
MyChar	equ %1000101111100100
*  ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___
* |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |
* | F | E | D | C | B | A | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 |
* |___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |_ RESERVED
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |   |_____ RESERVED
*   |   |   |   |   |   |   |   |   |   |   |   |   |   |_________ REMOVABLE
*   |   |   |   |   |   |   |   |   |   |   |   |   |_____________ FORMAT
*   |   |   |   |   |   |   |   |   |   |   |   |_________________ RESERVED
*   |   |   |   |   |   |   |   |   |   |   |_____________________ READ
*   |   |   |   |   |   |   |   |   |   |_________________________ WRITE
*   |   |   |   |   |   |   |   |   |_____________________________ BLOCK DEVICE
*   |   |   |   |   |   |   |   |_________________________________ SPEED GROUP (LSB)
*   |   |   |   |   |   |   |_____________________________________ SPEED GROUP (MSB)
*   |   |   |   |   |   |_________________________________________ FIXED NAME
*   |   |   |   |   |_____________________________________________ RESTARTABLE
*   |   |   |   |_________________________________________________ BUSY
*   |   |   |_____________________________________________________ LINKED
*   |   |_________________________________________________________ GENERATED
*   |_____________________________________________________________ RAM/ROM DEV
*

DIB_1_HEADER
@DIBoffset	dc.w DIB_1-@DIBoffset
@devCount	dc.w 1
@configListOffset	dc.w 0	;none
DIB_1
@linkPtr	dc.l 0
@entryPtr	dc.l MainEntry
@characteristics	dc.w MyChar
@blockCount	dc.l $77777777	;fill this in later	
@devName	str 'MOUNTED.IMAGE.1'	
@padding	ds.b (@devName+32)-*
@slotNum	dc.w $8003	;independent of hardware resources
@unitNum	dc.w 1
@version	dc.w DriverVersion
@deviceID	dc.w $7777	;fill this in later
@headLink	dc.w 0	;not used
@forwardLink	dc.w 0	;not used
@extendedDIBPtr	dc.l 0	;not used
@DIBDevNum	dc.w 0	;filled in by the device dispatcher
@dataHandle	dc.l 0	;image block handle
@statusFlag	dc.w 0	;device status word

DIB_2_HEADER
@DIBoffset	dc.w DIB_2-@DIBoffset
@devCount	dc.w 1
@configListOffset	dc.w 0	;none
DIB_2
@linkPtr	dc.l 0
@entryPtr	dc.l MainEntry
@characteristics	dc.w MyChar
@blockCount	dc.l $77777777	;fill this in later	
@devName	str 'MOUNTED.IMAGE.2'	
@padding	ds.b (@devName+32)-*
@slotNum	dc.w $8003	;independent of hardware resources
@unitNum	dc.w 2
@version	dc.w DriverVersion
@deviceID	dc.w $7777	;fill this in later
@headLink	dc.w 0	;not used
@forwardLink	dc.w 0	;not used
@extendedDIBPtr	dc.l 0	;not used
@DIBDevNum	dc.w 0	;filled in by the device dispatcher
@dataHandle	dc.l 0	;image block handle
@statusFlag	dc.w 0	;device status word

DIB_3_HEADER
@DIBoffset	dc.w DIB_3-@DIBoffset
@devCount	dc.w 1
@configListOffset	dc.w 0	;none
DIB_3
@linkPtr	dc.l 0
@entryPtr	dc.l MainEntry
@characteristics	dc.w MyChar
@blockCount	dc.l $77777777	;fill this in later	
@devName	str 'MOUNTED.IMAGE.3'	
@padding	ds.b (@devName+32)-*
@slotNum	dc.w $8003	;independent of hardware resources
@unitNum	dc.w 3
@version	dc.w DriverVersion
@deviceID	dc.w $7777	;fill this in later
@headLink	dc.w 0	;not used
@forwardLink	dc.w 0	;not used
@extendedDIBPtr	dc.l 0	;not used
@DIBDevNum	dc.w 0	;filled in by the device dispatcher
@dataHandle	dc.l 0	;image block handle
@statusFlag	dc.w 0	;device status word

DIB_4_HEADER
@DIBoffset	dc.w DIB_4-@DIBoffset
@devCount	dc.w 1
@configListOffset	dc.w 0	;none
DIB_4
@linkPtr	dc.l 0
@entryPtr	dc.l MainEntry
@characteristics	dc.w MyChar
@blockCount	dc.l $77777777	;fill this in later	
@devName	str 'MOUNTED.IMAGE.4'	
@padding	ds.b (@devName+32)-*
@slotNum	dc.w $8003	;independent of hardware resources
@unitNum	dc.w 4
@version	dc.w DriverVersion
@deviceID	dc.w $7777	;fill this in later
@headLink	dc.w 0	;not used
@forwardLink	dc.w 0	;not used
@extendedDIBPtr	dc.l 0	;not used
@DIBDevNum	dc.w 0	;filled in by the device dispatcher
@dataHandle	dc.l 0	;image block handle
@statusFlag	dc.w 0	;device status word

DIB_5_HEADER
@DIBoffset	dc.w DIB_5-@DIBoffset
@devCount	dc.w 1
@configListOffset	dc.w 0	;none
DIB_5
@linkPtr	dc.l 0
@entryPtr	dc.l MainEntry
@characteristics	dc.w MyChar
@blockCount	dc.l $77777777	;fill this in later	
@devName	str 'MOUNTED.IMAGE.5'	
@padding	ds.b (@devName+32)-*
@slotNum	dc.w $8003	;independent of hardware resources
@unitNum	dc.w 5
@version	dc.w DriverVersion
@deviceID	dc.w $7777	;fill this in later
@headLink	dc.w 0	;not used
@forwardLink	dc.w 0	;not used
@extendedDIBPtr	dc.l 0	;not used
@DIBDevNum	dc.w 0	;filled in by the device dispatcher
@dataHandle	dc.l 0	;image block handle
@statusFlag	dc.w 0	;device status word

DIB_6_HEADER
@DIBoffset	dc.w DIB_6-@DIBoffset
@devCount	dc.w 1
@configListOffset	dc.w 0	;none
DIB_6
@linkPtr	dc.l 0
@entryPtr	dc.l MainEntry
@characteristics	dc.w MyChar
@blockCount	dc.l $77777777	;fill this in later	
@devName	str 'MOUNTED.IMAGE.6'	
@padding	ds.b (@devName+32)-*
@slotNum	dc.w $8003	;independent of hardware resources
@unitNum	dc.w 6
@version	dc.w DriverVersion
@deviceID	dc.w $7777	;fill this in later
@headLink	dc.w 0	;not used
@forwardLink	dc.w 0	;not used
@extendedDIBPtr	dc.l 0	;not used
@DIBDevNum	dc.w 0	;filled in by the device dispatcher
@dataHandle	dc.l 0	;image block handle
@statusFlag	dc.w 0	;device status word

DIB_7_HEADER
@DIBoffset	dc.w DIB_7-@DIBoffset
@devCount	dc.w 1
@configListOffset	dc.w 0	;none
DIB_7
@linkPtr	dc.l 0
@entryPtr	dc.l MainEntry
@characteristics	dc.w MyChar
@blockCount	dc.l $77777777	;fill this in later	
@devName	str 'MOUNTED.IMAGE.7'	
@padding	ds.b (@devName+32)-*
@slotNum	dc.w $8003	;independent of hardware resources
@unitNum	dc.w 7
@version	dc.w DriverVersion
@deviceID	dc.w $7777	;fill this in later
@headLink	dc.w 0	;not used
@forwardLink	dc.w 0	;not used
@extendedDIBPtr	dc.l 0	;not used
@DIBDevNum	dc.w 0	;filled in by the device dispatcher
@dataHandle	dc.l 0	;image block handle
@statusFlag	dc.w 0	;device status word

DIB_8_HEADER
@DIBoffset	dc.w DIB_8-@DIBoffset
@devCount	dc.w 1
@configListOffset	dc.w 0	;none
DIB_8
@linkPtr	dc.l 0
@entryPtr	dc.l MainEntry
@characteristics	dc.w MyChar
@blockCount	dc.l $77777777	;fill this in later	
@devName	str 'MOUNTED.IMAGE.8'	
@padding	ds.b (@devName+32)-*
@slotNum	dc.w $8003	;independent of hardware resources
@unitNum	dc.w 8
@version	dc.w DriverVersion
@deviceID	dc.w $7777	;fill this in later
@headLink	dc.w 0	;not used
@forwardLink	dc.w 0	;not used
@extendedDIBPtr	dc.l 0	;not used
@DIBDevNum	dc.w 0	;filled in by the device dispatcher
@dataHandle	dc.l 0	;image block handle
@statusFlag	dc.w 0	;device status word

*******************************************************************************
*
* Driver Variables
*
*******************************************************************************

OurError	dc.w 0

**********************************************************************

	DateTimeStamp

	ENDP
	END
	

\ No newline at end of file
diff --git a/IIGS.601.SRC/MountImageGS/MountImage.r b/IIGS.601.SRC/MountImageGS/MountImage.r
new file mode 100644
index 0000000..b0bfb95
--- /dev/null
+++ b/IIGS.601.SRC/MountImageGS/MountImage.r
@@ -0,0 +1 @@
+/*------------------------------*/
/* Mount Image resources	*/
/* by Steve Stephenson		*/
/*------------------------------*/

#include "TypesIIGS.r"

#define MainWindowTmp	$00001000
#define MainWindColor	$00001000
#define MainWindTitle	$00001000
#define MainCtlList	$00001000

#define MountBtn	$00000001
#define EjectBtn	$00000002
#define MainList	$00000003
#define VersionStr	$00000004

#define SFPromptStr	$00002001

#define AboutBox	$00000001


resource rWindParam1 (MainWindowTmp) {
	fTitle+fClose+fMove,	// plFrame (frame bits)
	MainWindTitle,		// plTitle (title ID)
	$00000000,		// plRefCon
	{  0,  0,  0,  0},	// plZoomRect
	MainWindColor,		// plColorTable
	{$0000, $0000},		// plYOrigin, plXOrigin
	{$0000, $0000},		// plDataHeight, plDataWidth
	{$0000, $0000},		// plMaxHeight, plMaxWidth
	{$0000, $0000},		// plVerScroll, plHorScroll
	{$0000, $0000},		// plVerPage, plHorPage
	$00000000,		// plInfoText (info RefCon)
	$0000,			// plInfoHeight
	{ 53,160,172,478},	// plPosition
	infront,		// plPlane
	MainCtlList,		// plControlList
	$0A09			// plInDesc
};

resource rWindColor (MainWindColor) {
	$0000,			// frameColor
	$0F00,			// titleColor
	$020E,			// tBarColor
	$F0FF,			// growColor
	$00F0			// infoColor
};

resource rPString (MainWindTitle) {
	" Mount Image GS "
};

resource rControlList (MainCtlList) {
	{
	MountBtn,
	EjectBtn,
//	MainList,
	VersionStr,
	};
};

resource rControlTemplate (MountBtn) {
	MountBtn,		// ID
	{ 93,172,106,262},	// rect
	simpleButtonControl {{
		$0000,		// flag
		fCtlProcNotPtr+fCtlWantsEvents+refIsResource,	// moreFlags
		$00000000, 	// refCon
		MountBtn,	// titleRef
		0,		// colorTableRef
		{"M", "m",$0100,$0100}	// key equivalents
	}};
};

resource rPString (MountBtn) {
	"Mount"
};

resource rControlTemplate (EjectBtn) {
	EjectBtn,		// ID
	{ 93, 46,106,136},	// rect
	simpleButtonControl {{
		$0000,		// flag
		fCtlProcNotPtr+fCtlWantsEvents+refIsResource,	// moreFlags
		$00000000, 	// refCon
		EjectBtn,	// titleRef
		0,		// colorTableRef
		{"E", "e",$0100,$0100}	// key equivalents
	}};
};

resource rPString (EjectBtn) {
	"Eject"
};

resource rControlTemplate (MainList) {
	MainList,		// ID
	{  4, 10, 86,284},	// rect
	listControl {{
		$0000,		// flag
		fCtlProcNotPtr+fCtlIsMultiPart+refIsPointer,	// moreFlags
		$00000000, 	// refCon
		$0000,		// listSize
		$0008,		// listView
		$0000,		// listType
		$0000,		// listStart
		$000A,		// listMemHeight
		$0008,		// listMemSize
		$00000000	// listRef
	}};
};

resource rControlTemplate (VersionStr) {
	VersionStr,		// ID
	{107,270,116,315},	// rect
	statTextControl {{
		$0000,		// flag
		fCtlProcNotPtr+refIsPointer,	// moreFlags
		$00000000, 	// refCon
		0,	// textRef
		0,	// textSize
		$0000		// just
	}};
};

resource rPString (SFPromptStr) {
	"Select an Image file"
};

resource rAlertString (AboutBox) {
	"35~Mount Image GS"
	"\$0D"
	"by Steve Stephenson~^Cool"
	"\$00"
};

resource rVersion (1) {
	{ 1, 0, 0, development, 1},
	verUS,
	"Mount Image GS",
	"Copyright 1993 Apple Computer, Inc."
};


// need rComment (1)
// need rComment (2)
// need rIcon
// need rBundle
\ No newline at end of file
diff --git a/IIGS.601.SRC/MountImageGS/MountImageGS b/IIGS.601.SRC/MountImageGS/MountImageGS
new file mode 100644
index 0000000..391d85e
Binary files /dev/null and b/IIGS.601.SRC/MountImageGS/MountImageGS differ
diff --git a/IIGS.601.SRC/MountImageGS/MountImageGS.make b/IIGS.601.SRC/MountImageGS/MountImageGS.make
new file mode 100644
index 0000000..0281e00
--- /dev/null
+++ b/IIGS.601.SRC/MountImageGS/MountImageGS.make
@@ -0,0 +1 @@
+#   File:       MountImageGS.make
#   Target:     MountImageGS
#   Created:    Saturday, April 17, 1993 4:10:01 PM

App	=	MountImageGS

SrcDir	=	:

ObjDir	=	:

Sources	=				"{SrcDir}MountImage.aii" ¶
			"{SrcDir}MountImage.r"

Objects	=	

"{App}"	ÄÄ	"{ObjDir}{App}"
	DuplicateIIGS -mac -y "{ObjDir}{App}" :

"{ObjDir}{App}"	ÄÄ	"{SrcDir}MountImage.r"
	RezIIGS "{SrcDir}MountImage.r" -o "{ObjDir}{App}"

"{ObjDir}{App}"	ÄÄ	 ¶
		"MountImage.aii.obj"
	LinkIIGS -t NDA ¶
		"MountImage.aii.obj" ¶
		-o "{ObjDir}{App}"

"{ObjDir}"	Ä	"{SrcDir}"

.aii.obj	Ä	.aii
	AsmIIGS -l "{DepDir}{Default}.aii" -o "{TargDir}{Default}.aii.obj"

\ No newline at end of file
diff --git a/IIGS.601.SRC/MountImageGS/MountImageGS.makeout b/IIGS.601.SRC/MountImageGS/MountImageGS.makeout
new file mode 100644
index 0000000..1625797
--- /dev/null
+++ b/IIGS.601.SRC/MountImageGS/MountImageGS.makeout
@@ -0,0 +1 @@
+Set Echo 1
RezIIGS ":MountImage.r" -o ":MountImageGS"
AsmIIGS -l "MountImage.aii" -o "MountImage.aii.obj"
LinkIIGS -t NDA ¶
	"MountImage.aii.obj" ¶
	-o ":MountImageGS"
DuplicateIIGS -mac -y ":MountImageGS" :
\ No newline at end of file
diff --git a/IIGS.601.SRC/NuMustang/CalcSubrs.aii b/IIGS.601.SRC/NuMustang/CalcSubrs.aii
new file mode 100644
index 0000000..20258c1
--- /dev/null
+++ b/IIGS.601.SRC/NuMustang/CalcSubrs.aii
@@ -0,0 +1 @@
+		eject
*	'SUBROUTINES OF ALL KINDS' 
;***********************************************
; ClearCache
;	 This routine sets all the unit	numbers	in
; the cache to indicate	that each buffr	in
; the cache is available if its	not locked
;
;  Destorys: A,X
;
;**********************************************
ClearCache	equ	*
		lda	#$80
		ldx	#maxcache
@lp		bit	cachunit-1,X	;is this one unavailable?
		bvs	@10		;yes. leave it
		sta	cachunit-1,x	;no. clear this	cache entry
@10		dex
		bne	@lp
		rts


*******************************************************
* FreeBuf
*	   Clears one buffer in	the cache ram 
*
*  Input   : Y = bufr index (1..12) of buffer to clear
*  Output  : Y unchanged
*	     A = bufr number of	buffer Y
*	     ramblk = bufr number (same	as A)
*	     cachndx set to y
*	     X unchanged
*
* Usually called to de-allocate	a buffer for temporary
* operations such as Status, Ctrl, and by the CBUS dvr
*******************************************************
FreeBuf		equ	*
		lda	cachunit-1,y
		bit	#$40		;locked	out
		bne	@10
		lda	#$80
		sta	cachunit-1,y
@10		lda	bufrnums-1,y
		sty	cachndx
		sta	ramblk
		rts


***************************************************
* AllocCBuf (Allocate Cache Buffer)
*	 Allocates the proper Cache buffer given
* the sector number of the target block
*
*      Input:  X-reg = sector number to	be cached (0..28)
*
*     Output: (ramblk)	<- host	bank select addrs of buffr 
*	      (cachndx)	<- index  of cache buffr (1..12)
*		(r0)	<- base	address	of Cache buffer
*		(r2)	<- base	address	+256 of	Cache buffer
*
***************************************************
AllocCBuf	equ	*
		lda	sect2Cndx,x	;map sector into cache posn
		tax
		lda	#$8F
		sta	cachunit-1,x	;empty the cache buffr??
		lda	bufrnums-1,x	;lookup	allows random order allocatn
		sta	ramblk		;and save it for later passing to host
		stx	cachndx		;and save for table refs (1..maxcache)
; fall thru into setCBptrs
* |	     |		  |
* v	     v		  v
***************************************************
*  SetCBptrs (set Cache	Buffer pointers)
*	 This routine returns the base address of 
* the cache buffer in R0 & adrs+256 in R2
*
*	 eats: A,X
*
*	 in:	  A <- number of cache buffr (2,3,6 .. F)
*
*  A mapping table is used to support expected 
*  non contiguous caching memory space
*
*	 out:	r0 <- base address of Cache buffer
*		r2 <- base address+256 of Cache	buffer
*
***************************************************
SetCBptrs	tax			;save value for	later use
		lda	cachpgadr,x
		sta	r2h
		dec	a
		sta	r0h
		stz	r0L
		stz	r2l
		rts

cachpgadr	equ	*
		DC.B	$01,$03,$05,$07
		DC.B	$09,$0B,$0D,$0F
		DC.B	$11,$13,$15,$17
		DC.B	$19,$1B,$1D,$1F
		DC.B	$21,$23,$25,$27
		DC.B	$29,$2B,$2D,$2F
		DC.B	$31,$33,$35,$37

**********************************************************************
* ORIGINAL Obsolete tables for old 8K RAM Mustang Card
*	bufrnums	DC.B	8,9,10,11,12,13,14,15,7,2,6,3
*	Sect2Cndx	DC.B	1,2,3,4,5,6,7,8,9,10
*			DC.B	1,2,3,4,5,6,7,8
**********************************************************************
* The entry in the bufrnums table is used to index the cachpgadr table 
* the bufrnums table entry is also the buffer number given to the host cpu
* bufrnums / 2 is the host side	bank address
bufrnums	DC.B	8,9,10,11,12,13,14,15,16,17,18,19
		DC.B	20,21,22,23,24,25,26,27

* The entry in the Sect2Cndx table is used to index the bufrnums table 
*  sector to Cindex for 0 1 2 3 4 5 6 7 8  9 10 11 12 13 14 15 16 17
Sect2Cndx	DC.B	1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18


****************************************************
* CacheSCA
*  This	routine	records	cyl+side, sect,	and unit_num in	the
*  Cache control tables	cachtrk, cachsect, cachunit
*  using the last cachndx set by GetBLk	or FirstBlk
*
*      INPUT: A-reg = sector number in cache
*   Destorys: Y-reg
*
*****************************************************
CacheSCA	equ	*
		ldy	cachndx		;get offset for	current	cach blk
		beq	@errQ
		sta	cachsect-1,y

		lda	side
		cmp	#01		;clc if side=0 sec if side <> 0
		lda	cyl
		rol	a		;A = Track (0..159)
		sta	cachtrk-1,y	;save it in cache control tbl

		lda	unit_num	;get unit number
		cmp	numdevs
		bcs	@errQ
		sta	cachunit-1,y	; save it for InCache 
		rts
@errQ		lda	#$8E
		sta	cachunit-1,y
		rts


;********************************************
; ChkBlk
;	 This routine checks if	the block number
; in blocknum is in the	range 0-63F.
;
;	 in: blocknum -	holds current block number
;
;	 out : C=1 - block number not in legal range
;	       C=0 - block number in range 0-63F
;
*	      A=badblk (error code) if C=1
;
;*******************************************
ChkBlk		equ	*
		ldx	unit_num
		lda	blocknum	;check low byte
		cmp	Totblksl,x
		lda	blocknum+1	;check high byte
		sbc	TotBlksh,x	;C=1 if	blocknum >= $640 (unsigned)
		bcc	@10
		lda	#badblk		;return	a = error code
@10		rts


*************************************************
*
* ClrCacheX
*   Clear the cache of all blks	for local unit x
*      
*    Input : X = unit to clear from cache
*
*************************************************
ClrCacheX	equ	*
		stx	drive
		ldy	#maxcache
@lp		lda	cachunit-1,y	;is this cache buffer
		cmp	#32		;allocated or locked?
		bge	@10		;yes. leave it alone
		cmp	drive		;does it belong	to this	unit?
		bne	@10		;not the right unit
		lda	#$80
		sta	cachunit-1,y
@10		dey
		bne	@lp
		rts


;***********************************************
; InCache:
;    This routine checks to see	if the requested
;    blocknum (as side,cyl,sector) and unit_num 
;    is	already	in its fixed cache buffer
;
;    The sectors are mapped into fixed positions in
;    the cache so its fast to check residenancy
;
;	 in : side,cyl,sector <- of blocknum we're looking for
;	      unit_num	  <- unit number of block we're looking for
;
;	 out: y	= bufrndx (1..12)
;	      a	= buffer number	(0..15)
;	      c	= 1 - block is in buffr
;**********************************************
InCache		equ	*
		ldy	sector
		lda	sect2Cndx,y
		tay
		jsr	InBufr
		bne	@none
@foundit	lda	bufrnums-1,y	;get ramblk in A
		sec			;yep, data is in this cachblk
		rts
@none		clc			;indicate block	is not in cache
		rts


**********************************************
* InBufr
*
* INPUT	 : Y = index of	buffr to test (1..12)
* 
* OUTPUT : EQ set if matches NE	set otherwise
*
**********************************************
InBufr		equ	*
		lda	cachunit-1,y	;get unit num of block
		cmp	unit_num	;compare to unit num of	new block
		bne	@nope		;nope, not this	block
		lda	side
		cmp	#$01		;clc = zero , SEC = nzero
		lda	cyl
		rol	a
		cmp	cachtrk-1,y
		bne	@nope		;nope, not this	block
		lda	sector		;now verify the	sector
		cmp	cachsect-1,y
@nope		rts


***********************************************************
* Blk2SCS
*	 Convert the logical block number number parameter into
*  side, cyl, and sector number	for the	current	volume type
*
*   Destroys: all registers
*      Input:
*		(blocknumL,H)  - block number parameter 
*     Output: 
*		A-reg -	sectors/track for the blocknum
*		Side  -	 side of disk for the block
*		Cyl   -	 cylinder of the disk for the block
*		Sector - sector	on the cylinder	for the	block
*
*  Implemented with tables and straight	line code (no loops)
*  for speed!
**********************************************************
Blk2SCS		equ	*
		ldx	unit_num
		lda	voltype,x	;is this the 1 SS fmt?
		tax
		jmp	(blkxlate,x)

blkxlate	DC.W	badxlate	;00
		DC.W	xl400K		;02   400K gcr	  SS DD
		DC.W	xl800K		;04  800K gcr  DT DS DD	var 4:1
		DC.W	xl800K		;06  800K gcr  DT DS DD	var 2:1

		DC.W	xl720K		;08  720K mfm  DT DS DD
		DC.W	Xl1440K		;10 1440K mfm  DT DS HD 2:1
		DC.W	Xl1440K		;12 1440K mfm  DT DS HD 1:1 

*
badxlate	stz	side
		stz	cyl
		stz	sector
		lda	#$3D		;bad blkxlate
		sec
		rts


**************************************
* XL400K translates blockun into
* side,cyl,sector for 400K gcr volumes
**************************************
XL400K		equ	*
		lda	blocknum
		sta	side
		and	#$0F		;save low 4 bits
		sta	sector
		lda	blocknum+1	;A=xxxxxxab  side=cdefxxxx
		rol	side
		rol	a		;A=xxxxxabc  side=defxxxxx
		rol	side
		rol	a		;A=xxxxabcd  side=efxxxxxx
		rol	side
		rol	a		;A=xxxabcde  side=fxxxxxxx
		rol	side
		rol	a		;A=xxabcdef  side=xxxxxxxx
		tax
		lda	TrkAD400K,x	;get proto tracknum
		sta	trk
		lda	SectAD400K,x	;get index and base sector #
		and	#$E0
		ora	sector		;combine 0.15 index with 0,32,64,96,128 
		tay			;y now = index to AdjTabl
		lda	SectAD400K,x	;get base sector number
		jsr	AdjstVST4		
		rts			

* contains track number	*2 (side always	=0)
TrkAD400K	DC.B	00,02,04,08,10,12
		DC.B	16,18,20,24,26,28
		DC.B	32,34,36,40,42
		DC.B	46,48,52,54,58,60
		DC.B	64,66,70,72,76
		DC.B	80,82,86,88,92
		DC.B	96,98,102,106
		DC.B	110,112,116,120,124
		DC.B	128,132,136,140
		DC.B	144,148,152,156

SectAD400K	DC.B	$00,$04,$08,$00,$04,$08
		DC.B	$00,$04,$08,$00,$04,$08
		DC.B	$20,$25,$2A,$24,$29
		DC.B	$23,$28,$22,$27,$21,$26
		DC.B	$40,$46,$42,$48,$44
		DC.B	$40,$46,$42,$48,$44
		DC.B	$60,$67,$65,$63
		DC.B	$61,$68,$66,$64,$62
		DC.B	$80,$80,$80,$80
		DC.B	$80,$80,$80,$80


**************************************
* XL800K translates blocknum into
* side,cyl,sect	for 800K gcr volumes
**************************************
XL800K		lda	blocknum
		sta	side
		and	#$1F		;save low 5 bits
		sta	sector
		lda	blocknum+1	;A=xxxxxabc  side=defxxxxx
		rol	side
		rol	a		;A=xxxxabcd  side=efxxxxxx
		rol	side
		rol	a		;A=xxxabcde  side=fxxxxxxx
		rol	side
		rol	a		;A=xxabcdef  side=xxxxxxxx
		tax
		lda	TrkAD800K,x	;get proto track+side
		sta	trk
		lda	SectAD800K,x	;get index and base sector #
		and	#$E0
		ora	sector		;combine 0.31 index with 0,32,64,96,128 
		tay			;y now = index to AdjTabl
		lda	SectAd800K,x	;get base sector number
		jsr	AdjstVST	;returns with Carry Clear!!
		rts


*******************************************
* TrkAD800K has	1 entry	for every 32 blocks
* on a AD800K disk
* for a	total of 50 entries in 5 groups
* of 12,11,10,9,8 entries each
*
* Table	is indexed by blocknum DIV 32
* and returns 'track';	 where each side
* counts as a track (thus 'track' has side
* as the least significant bit)
*******************************************
TrkAD800K	DC.B	00,02,05,08,10,13
		DC.B	16,18,21,24,26,29
		DC.B	32,34,37,40,43
		DC.B	46,49,52,55,58,61
		DC.B	64,67,70,73,76
		DC.B	80,83,86,89,92
		DC.B	96,99,103,106,110
		DC.B	113,117,120,124
		DC.B	128,132,136,140
		DC.B	144,148,152,156
*
SectAD800K	DC.B	0,8,4,0,8,4
		DC.B	0,8,4,0,8,4
		DC.B	$20,$2A,$29,$28,$27
		DC.B	$26,$25,$24,$23,$22,$21
		DC.B	$40,$42,$44,$46,$48
		DC.B	$40,$42,$44,$46,$48
		DC.B	$60,$65,$61,$66,$62
		DC.B	$67,$63,$68,$64
		DC.B	$80,$80,$80,$80
		DC.B	$80,$80,$80,$80

		eject
**********************************************************************
*
*  XL1440K  is always double sided and 36 sect per cylinder
*
**********************************************************************
XL1440K		EQU	*
		LDX	#-2
@searchRT	INX
		INX
		lda	@BlkRangeTbl+2,x
		CMP	blocknum	; if tblentry+1 < blocknum?
		lda	@BlkRangeTbl+3,x
		sbc	blocknum+1
		BCC	@searchRT	; yes. so try next larger entry
		LDA	blocknum
		SBC	@BlkRangeTbl,X	;rem (0-179) = blknum - tblentry
		STA	exindex		;save remainder in a zpg temp
		lda	blocknum+1
		sbc	@BlkRangeTbl+1,x
		sta	exindex+1
		LDA	@TrkOriginTbl,X	;get starting track value

		tax			; get initial cylinder in X 
		lda	exindex		;get remainder back (00..$B3)
		bpl	@10		;remainder is < 128 (max of 7 times thru the loop)
		sec
		sbc	#AD1440KSectors*7	;7*18 = 126
		tay
		txa
		clc
		adc	#07		;limits the number of times around the loop 
		tax			;below to three  (179-126 = 53/18 = 2.94444...)
		tya
@10		cmp	#AD1440KSectors
		bcc	@fast		;this makes track 00/10/20/... etc faster
@divNloop	sec
		sbc	#AD1440KSectors
		BMI	@done
		INX			;count whole tracks
		BRA	@divNloop	; loop max of 10 times

@done		clc			;sectors start from 0 like on GCR disks
		adc	#AD1440KSectors	;add 18 back in
		
@fast		STA	sector		; result is 0..17 (not 1-18)!
		STX	trk
		txa
		LSR	a		; convert track(0-159) into cylinder (0-79)
		sta	cyl		; set carry if side = 1

		lda	#00
		bcc	@20
		lda	#$20
@20		sta	side
		
		lda	#AD1440KSectors	;sects/trk returned in A
		clc
		rts
		

@BlkRangeTbl	DC.W	0000
		DC.W	180
		DC.W	180*2
		DC.W	180*3
		DC.W	180*4
		DC.W	180*5
		DC.W	180*6
		DC.W	180*7
		DC.W	180*8
		DC.W	180*9
		DC.W	180*10
		DC.W	180*11
		DC.W	180*12
		DC.W	180*13
		DC.W	180*14
		DC.W	180*15	; BlkNum < 2700
		DC.W	180*16	; BlkNum < 2880
		DC.W	-1	;end of table flag
		
@TrkOriginTbl	DC.W	0000
		DC.W	0010
		DC.W	0020
		DC.W	0030
		DC.W	0040
		DC.W	0050
		DC.W	0060
		DC.W	0070
		DC.W	0080
		DC.W	0090
		DC.W	0100
		DC.W	0110
		DC.W	0120
		DC.W	0130
		DC.W	0140
		DC.W	0150
		DC.W	-1
		
		eject
**********************************************************************
*
*  XL720K  is always double sided and 18 sect per cylinder; 9 per track
*
**********************************************************************
XL720K		EQU	*
		LDX	#-2
@searchRT	INX
		INX
		lda	@BlkRangeTbl+2,x
		CMP	blocknum	; if tblentry+1 < blocknum?
		lda	@BlkRangeTbl+3,x
		sbc	blocknum+1
		BCC	@searchRT	; yes. so try next larger entry
		LDA	blocknum
		SBC	@BlkRangeTbl,X	;rem (0-179) = blknum - tblentry
		STA	exindex		;save remainder in a zpg temp
		lda	blocknum+1
		sbc	@BlkRangeTbl+1,x
		sta	exindex+1
		LDA	@TrkOriginTbl,X	;get starting track value

		tax			; get initial cylinder in X 
		lda	exindex		;get remainder back (00..$59)
@10		cmp	#DD720KSectors
		bcc	@fast		;this makes track 00/10/20/... etc faster
@divNloop	sec
		sbc	#DD720KSectors
		BMI	@done
		INX			;count whole tracks
		BRA	@divNloop	; loop max of 10 times

@done		clc			;sectors start from 0 like on GCR disks
		adc	#DD720KSectors	;add 9 back in
		
@fast		STA	sector		; result is 0..8 (not 1-9)!
		STX	trk
		txa
		LSR	a		; convert track(0-159) into cylinder (0-79)
		sta	cyl		; set carry if side = 1

		lda	#00
		bcc	@20
		lda	#$20
@20		sta	side
		
		lda	#DD720KSectors
		clc
		rts
		

@BlkRangeTbl	DC.W	00
		DC.W	90
		DC.W	90*2
		DC.W	90*3
		DC.W	90*4
		DC.W	90*5
		DC.W	90*6
		DC.W	90*7
		DC.W	90*8
		DC.W	90*9
		DC.W	90*10
		DC.W	90*11
		DC.W	90*12
		DC.W	90*13
		DC.W	90*14
		DC.W	90*15	; BlkNum < 1350
		DC.W	90*16	; BlkNum < 1440
		DC.W	-1	;end of table flag
		
@TrkOriginTbl	DC.W	0000
		DC.W	0010
		DC.W	0020
		DC.W	0030
		DC.W	0040
		DC.W	0050
		DC.W	0060
		DC.W	0070
		DC.W	0080
		DC.W	0090
		DC.W	0100
		DC.W	0110
		DC.W	0120
		DC.W	0130
		DC.W	0140
		DC.W	0150
		DC.W	-1
		

***********************************
* AdjstVST
*
* Adjust cyl and A-reg for Variable
* number of Sectors per	Track
* 
*     Input : A	base sector number to adjust
*	     cyl = track (cyl+side) to adjust
*    Output : sector, side, cyl
*
***********************************
AdjstVST	equ	*
		and	#$1F		;drop the Adjtabl index
		clc
		sta	sector
		lda	AdjTablG,y
		and	#$1F
		adc	sector
		tax			;save almost sector in x
		lda	AdjTablG,y	;yyysssss
		lsr	a
		lsr	a
		lsr	a
		lsr	a
		lsr	a		;00000yyy 
		clc
		adc	trk
		sta	trk
		lsr	a		;drop side bit
		lsr	a
		lsr	a
		lsr	a
		lsr	a		;trk DIV 16 = speed group index
		tay			;y = speed group (0..4)
		txa			;get almost sector again
		cmp	fldlenG,y
		bcc	@10
		sbc	fldlenG,y	;mod it	to give	the final sector
		inc	trk		;overflow into trk
@10		sta	sector
		lda	trk
		lsr	a		;remove	side from trk to get cyl 
		sta	cyl		;and save it in	cyl
		lda	#00
		bcc	@20
		lda	#$20
@20		sta	side
		lda	fldlenG,y	;return	curNsect in A
		clc
		rts

AdjstVST4	equ	*
		and	#$1F		;drop the Adjtabl index
		clc
		sta	sector
		lda	AdjTablG,y
		and	#$1F
		adc	sector
		tax			;save almost sector in x
		lda	AdjTablG,y	;yyysssss
		lsr	a
		lsr	a
		lsr	a
		lsr	a
		and	#$0E		;0000yyy0
		clc
		adc	trk
		sta	trk
		lsr	a		;drop side bit
		lsr	a
		lsr	a
		lsr	a
		lsr	a		;trk DIV 16 = speed group index
		tay			;y = speed group (0..4)
		txa			;get almost sector again
		cmp	fldlenG,y
		bcc	@10
		sbc	fldlenG,y	;mod it	to give	the final sector
		inc	trk		;overflow into trk
		inc	trk
@10		sta	sector
		lda	trk
		lsr	a		;remove	side from trk to get cyl 
		sta	cyl		;and save it in	cyl
@20		stz	side
		lda	fldlenG,y	;return	curNsect in A
		clc
		rts


*****************************************
* AdjTabl contains a sector and	track
* adjustments for the 5	speed groups
* which	have 12,11,10,9, and 8 sect/trk
* thus 5 tables	of 32 bytes each
* 
* low 5	bits are sector	adjust 
* hi  3	bits are the track adjust
* 
****************************************
AdjTablG	equ	*
AdjTSMod12	DC.B	0,1,2,3,4,5,6,7,8,9,10,11
		DC.B	$20,$21,$22,$23,$24,$25,$26,$27,$28,$29,$2A,$2B
		DC.B	$40,$41,$42,$43,$44,$45,$46,$47
AdjTSMod11	DC.B	0,1,2,3,4,5,6,7,8,9,10
		DC.B	$20,$21,$22,$23,$24,$25,$26,$27,$28,$29,$2A
		DC.B	$40,$41,$42,$43,$44,$45,$46,$47,$48,$49
AdjTSMod10	DC.B	0,1,2,3,4,5,6,7,8,9
		DC.B	$20,$21,$22,$23,$24,$25,$26,$27,$28,$29
		DC.B	$40,$41,$42,$43,$44,$45,$46,$47,$48,$49
		DC.B	$60,$61
AdjTSMod09	DC.B	0,1,2,3,4,5,6,7,8
		DC.B	$20,$21,$22,$23,$24,$25,$26,$27,$28
		DC.B	$40,$41,$42,$43,$44,$45,$46,$47,$48
		DC.B	$60,$61,$62,$63,$64
AdjTSMod08	DC.B	0,1,2,3,4,5,6,7
		DC.B	$20,$21,$22,$23,$24,$25,$26,$27
		DC.B	$40,$41,$42,$43,$44,$45,$46,$47
		DC.B	$60,$61,$62,$63,$64,$65,$66,$67

AdjTSMod18	DC.B	0,1,2,3,4,5,6,7,8
		DC.B	9,10,11,12,13,14,15,16,17
		DC.B	0,1,2,3,4,5,6,7,8
		DC.B	9,10,11,12,13,14,15,16,17
		DC.B	0,1,2,3,4,5,6,7,8
		DC.B	9,10,11,12,13,14,15,16,17
		DC.B	0,1,2,3,4,5,6,7,8,9


**********************************
fldlenM1	DC.B	18,17,16,15,14,13
fldlenG		DC.B	12,11,10,9,8



;**********************************************
; DoError:
;	 This routine decrements a local counter
; which	if it is not yet 0 means that we should	try again.
; It also keeps	a variable which holds the number
; errors that have occured 
;
;	 out: Carry = 1	::= errcnt decremented to zero 
;	      Error variable set to IOError
;
;	      Carry = 0	::= retry (errnct still	> zero)
;	      X	= value	of last	error
;	      Error variable reset to zero (for	retry)
;
;************************************************
DoErr2		equ	*
		inc	numerrs		;increment total number	of errors
		bne	@10		;
		inc	numerrs+1	;

@10		dec	errcnt		;decrement task	error count
		bpl	@retry		;if not	yet neg, retry task

		lda	#ioerror
		sta	error
		sec			;don't retry
		rts

@retry		lda	error2
		stz	error2
		clc			;retry
		rts



\ No newline at end of file
diff --git a/IIGS.601.SRC/NuMustang/DrivSubrs.aii b/IIGS.601.SRC/NuMustang/DrivSubrs.aii
new file mode 100644
index 0000000..1b6c0ab
--- /dev/null
+++ b/IIGS.601.SRC/NuMustang/DrivSubrs.aii
@@ -0,0 +1 @@
+		eject
*	'Drive Control Subrtns'
**********************************************
* MountVol
*
* Assumes unit x is enabled and	vol online
*
**********************************************
MountVol	equ	*
		php			;save callers n,v,z,c status
		pha			;save callers error code 
		stx	drive		;save which drive
		jsr	UnkVolX		;clear it state	to Online unknown volume type

		lda	#DskIn
		jsr	ReadBit		;make sure he didn't lie 
		bcc	@isOnline
		pla
		lda	#Offline
		bra	@errexit	;you can't trust everyone

@isOnline	lda	#UTfdhd
		bit	UnitType,x
		beq	@90
	
		lda	#MediaAdr	;Since unit is FDHD
		jsr	ReadBit		;  sens the media type
		bcs	@90		;not HD media so must read 1Meg media
		lda	#$80
		sta	twosided,x
		lda	#UMmfmHD+UMdsw+UMnotmr
		ora	UnitMode,x	;incase liron emulation bit is set
		sta	UnitMode,x	
		
		lda	volsts,x
		and	#-1-VSoffline	;cancel	offline	state
		sta	volsts,x

		jsr	Recal
		jsr	EnableMFM	;enable MFM FClk etc
		jsr	U35MtrOn
		stz	side
		stz	cyl
		jsr	WaitReady	;be sure drive is ready
		lda	#4
		sta	errcnt		;retry count for each mode to try
@searchlp	stz	side		;always	try side 0
		jsr	GetAddr		;for now its simple
		bcc	@foundHDvol
		lda	error2
		bit	#adrerror	;bit slip/check	sum error?
		bne	@retry		;yes. so try again
		bit	#cylerror	;not on	the right track?
		beq	@retry
		lda	CylFnd
		sta	cyl		;make where I am where I want to be
@retry		dec	errcnt
		bne	@searchlp
		bra	@errxit		;return an ioerror if media not readable
		
@foundHDvol	jsr	DeSelectISM	;switch back to IWM side after mounting
		ldx	drive
		jsr	EnblnSens	;set volsts when found
		ldy	#HD1440K2
		lda	TotBlks,y
		sta	TotBlksL,x
		lda	TotBlks+1,y
		sta	TotBlksH,x	;setup block count for status etc

		sty	voltype,x	;record the voltype
		clc
@80		pla
		plp
		rts

* now have 1Meg media to read and survery for 1meg volume type
@90		jsr	Recal		;recal to trk0
		jsr	U35MtrOn	;enable	units motor (wait iff)
		stz	side

		ldx	drive		;go find an address mark in some mode
		jsr	SurveyLcl	;& IFF set voltype,volmode,Totblks,etc
		bcc	@80		;I found something
@errxit		pla
		lda	#ioerror	;Mounted but can't read => ioerror 
@errexit	plp
		sec
		rts


**********************************************************************
*
* Unmount Volume 
*	INPUT	X = drive (0,1)
*
* Must preserve	X & Y
**********************************************************************
UnMountX	equ	*
		lda	#VSoffline	;assume	nothing	else (re next DIP Chuck)
		sta	volsts,x
		
UnkVolX		stz	totblksl,x	;unknown blkl
		stz	totblksh,x	;unknown blksh
		lda	unitmode,x
		and	#UMudemul
		sta	unitmode,x
		lda	#$FF
		sta	curcyl,x	;zap the cur track
		stz	voltype,x	;unknown voltype
		phx
		phy
		jsr	ClrCacheX	
		ply
		plx
		rts


******************************************************
*
* U35MtrOn
*
******************************************************
U35MtrOn	equ	*
* First	check if the motor is on already
		lda	#runmotor
		jsr	ReadBit
		bcc	@20		;motor still/already on
*
* Now the drive mode must be checked and set if its wrong
*	
		JSR	SetDrivMode
*
* It wasn't.  Turn it on now.  Control lines are already set.
*
		LDA	#runmotor
		JSR	WriteBit

* Has the 1st MotorON chucking time been insured?
		ldx	unit_num	;by now	this can only be 0/1
		lda	#VSchukwait
		bit	volsts,x	;has this been done?
		bne	@10		;yes
		ora	volsts,x
		sta	volsts,x
		lda	#200		;400+100=500 
		jsr	Wait2Ms		;wait 500 ms the first time

@10		lda	#100		;delay 100 ms so I don't
		jsr	WaitaMs		;seek during motorON inrush
@20		rts

**********************************************************************
*	SetDrivMode
*
* Only called from MotorOn if motor is off 
*
**********************************************************************
SetDrivMode	equ	*
		ldx	unit_num
		lda	#UTfdhd
		bit	unittype,X	;is this an FDHD unit?
		beq	@doNothing	;nope so it can't do MFM 
		LDY	#DrivMFMadr	;assume MFM mode set (6)
		lda	#UMmfmHD+UMmfmDD ;is volume either HD or DD
		BIT	unitmode,X	;is volume MFM HD media?
		BNE	@itsMFM		;YES!
		INY			; GCR Mode (7)
@itsMFM		LDA	#MFMmodeAdr	;should do this in SensNChk for FDHD's
		jsr	ReadBit		;read the drive's current mode
		bcs	@drivIsMFM	;sense drive Mode (1 = mfm mode)
@drivIsGCR	CPY	#DrivGCRadr	;is it in the right mode?
		BEQ	@doNothing	;yep
		BRA	@setMode
@drivIsMFM	CPY	#DrivMFMadr	;is it in the right mode?
		BEQ	@doNothing	;yep.
@setMode	TYA	
		JSR	WriteBit	;send cmd to set FDHD mode
		LDA	#MFMmodeAdr
@doNothing	RTS


********************************************************
;
; SendSteps
;	 Steps the head	the given number of tracks
;	 Then wait 155 usecs after last	step 
;	      until /READY status becomes valid
;
;	 x - number of tracks to step
;
********************************************************
SendSteps	equ	*
		lda	#onestep	;values	to cause a one track step
		jsr	WriteBit	;send values to	Sony
		lda	#instep		;see if	still in step
		jsr	WaitHi		;wait until sense bit is hi
		dex			;decrement track counter
		bne	SendSteps	;if more, step to next track

* Now delay 155	usecs until Ready becomes valid
		ldx	#62
@20		dex			;(2)
		bne	@20		;(3) 5*62/2= 155 usecs after seek
		rts



**********************************************************
;
; Seek
;	 This routine tries to get to the cylinder in (cyl) on
; the drive in (drive).	 If current cylinder for that drive is negative
; then the current cylinder is not known and we	must recalibrate
; to track 0.  The number of tracks to travel and the direction	are then
; calculated and the head is then moved	to cyl by calling SendSteps
;
* This routine may be called with or without the motor running!
;
;	 input:
;	   cyl - cylinder to find
;	   curcyl - current cylinder where head	resides
;	   drive - drive we shold be seeking on
;
;     OUTPUT : Carry Set if Unable to seek / recal
;
;	       Carry Clr if OK then
;		EQ set if no seek required
;		NE set if seek was done	and WaitRdy is needed
****************************************************************
Seek		jmp	SeekHook

SeekToCyl	ldx	unit_num	;use drive as an offset	to curcyl
		lda	curcyl,x	;get current cylinder for this drive
		bpl	@10		;if positive, then believe it

		jsr	recal		;otherwise, reset head to track	0
		bcs	@90		;recal didn't find TK0 sense

@10		equ	*
		ldx	unit_num	;get drive number again
		lda	curcyl,x	;get current cylinder again
		sec			;set carry for subtraction
		sbc	cyl		;subtract desired cylinder
		beq	@30		;already on the	right cylinder
		ldy	#dirout		;assume	dir0 will be the direction
		bcs	@20		;we did	want 'out' direction 

		ldy	#dirin		;no, we	want 'in' direction
		eor	#$ff		;negate	a to make it positive
		adc	#1		;carry always clear

@20		tax			;save #	of tracks to move in x
		tya			;get desired direction in a
		jsr	WriteBit	; and send it to Sony

		jsr	SendSteps	;now step # of tracks in x

		ldx	unit_num	;get offset to current cylinder
		lda	cyl		;we should be on this cylinder
		sta	curcyl,x	;  so save it for future reference
		lda	#01		;set NE	status true; need WaitRdy
@30		clc			;indicate no error
@90		rts

********************************************************
;
; Recal:
;	 This routine moves the	head to	track 0	by
; sending several clumps of steps to the SendStep routine
; and then checking if track 0 has yet been reached. If
; we have stepped as many times	as there are tracks then
; something is wrong and we indicate an	error.
;
* This routine may be called with or without the motor running!
;
;	 destroys:
;	    x,y, and a
;	 output:
;	    c =	1 - *error* could not sense track 0
;
********************************************************
Recal		equ	*
		stz	error2		;clear error mask
		lda	#dirout		;point in direction of track 0
		jsr	WriteBit	;and send to Sony

		lda	#istrack0	;already on trk0?
		jsr	ReadBit		;ask the drive
		bcc	@done		;yep. don't step it

		ldy	#5		;5*16 =	80 tracks
@loop		ldx	#16		;number	of tracks to step each try
		jsr	SendSteps	; do steps
* Can't have jsr WaitReady here since motor may not be running!!!

		ldx	#16
@wloop		equ	*
		lda	#07
		jsr	WaitaMS		;wait 7	ms for each try	 

		lda	#istrack0	;are we	on track 0
		jsr	ReadBit		;...ask drive
		bcc	@done		;if c=0	then we've reached trk zero
		dex
		bne	@wloop

		dey			;otherwise, step a little more
		bne	@loop

		lda	#rcalerror
		tsb	error2		;remember why
		lda	#-1
		sec			;set carry indicating an error
		bra	@exit		;mark unk cyl for unit

@done		lda	#00
		clc
@exit		ldx	unit_num	;set current cylinder to 0
		sta	curcyl,x	;
		rts


;***********************************************
; SelHd:
;	 Select	the head using variable	'side'
;
;***********************************************
SelHd		equ	*
		lda	side		;get side number
		beq	SelSide0	;if not side 1, go get side 0
***********************************************
* SelSide1
*
***********************************************
SelSide1	sta	Hedsel_one	;it's now side 1
		rts

*************************************************
* SelSide0 
*
*************************************************
SelSide0	sta	Hedsel_zero	;it's now side 0
		rts
		eject
	if 0	then
**********************************************************************
*	DeBug SWIM State for analyzer tracing
**********************************************************************
DeBugSWIM	equ	*
		lda	#$38		;turn off action and write in case ISM side
		sta	IsmMode0W	; also is an IWM CA3off
		lda	#$F5-256
		sta	IsmPhaseW	; also is an IWM CA2off (but as a Write)
		cmp	IsmPhaseR	; also is an IWM Q6L ref
		bne	@IWM
		lda	#$F4-256
		sta	IsmPhaseW
		cmp	IsmPhaseR
		bne	@IWM
		lda	IsmStatsR
		sta	temp
		lda	IsmSetupR
		sta	CurISMsu
		rts

@IWM		bit	q7l
		bit	q6l
		bit	DeSelect
		bit	q6h
		lda	q7l		;read IWM status register
		sta	CurIWMode	;save it
		rts
	endif

*	    'MFM Mode control Routines'
**************************************************************
*
* Enter	setIWMmode with	A set to the IWM mode desired
*
*     INPUT :	A = needed IWM mode
*    OUTPUT :	Y = input A reg
*    Destorys	A
*    Preserves	X
*
**************************************************************
SetIWMMode	EQU	*
		BIT	Q7L		; belt and suspenders 
		TAY			;Preserve the mode byte 
		BIT	DeSelect	;deactivate the	enables
		BIT	Q6H		;setup for StatusRd and	ModeWr
@05		LDA	Q7L		; get the status reg
		AND	#$20
		BNE	@05		;wait for enable's to drop
		BRA	@20
@10		STY	Q7H		;write the mode	register
@20		TYA
		EOR	Q7L		;compare with low 5 bits of status reg
		AND	#$1F		;mask off upper	3 bits
		BNE	@10		;try again if it doesn't match
		LDA	#$40
		TRB	MFMflag		;mark ISM off
		LDA	Q6L		;return	to read	state
		RTS
**********************************************************************
*   Setup MFM Decoding parameters
*
*   Assumes that CYL has been determined from blocknum
*
**********************************************************************
SetMFMParms	EQU	*
		LDA	CYL		;(in the range 0..79)
		CMP	#80
		BCC	@ok
		LDA	#00		;higher	is unknown so assume a RECAL will occur
@ok		LDX	#-2
@loop		INX
		INX
		CMP	mfmCylZones,X
		BCS	@loop
		LDA	mfmCylZones+1,X ;get the parmamter group offset
		TAX
		LDY	#5		;retry count
@1		LDA	#$18
		STA	ISMMode0W	;clear 0->WRITE	& ACTION (reset	parm adrs to zero)
		PHX			;save starting parameter offset
@rLoop		DEX
		LDA	mfmParams,X	; x starts at parameter	zero
		BEQ	@done
		CMP	ISMParmsR	; must read parameters in sequence
		BNE	@Wparms
		BRA	@rLoop
@done		PLX
		CLC
		RTS			;Parameters all	matched	so It worked

@Wparms		LDA	#$18
		STA	ISMMode0W	;reset param auto inc ctr to zero
		PLX
		PHX
@wLoop		PHA
		PLA
		DEX			;delay a few cycles
		LDA	mfmParams,X
		BEQ	@Wdone
		STA	ISMParmsW	;have to write all 16 parms in sequence
		BRA	@wloop		;nope
@wDone		PLX			;get index back	for retry &/ exit
		DEY
		BNE	@1		;so go back and	read em	all again or retry
		SEC
		RTS

mfmCylZones	DC.B	40,17
		DC.B	80,34
		DC.B	80,00
		DC.B	80,00

mfmParams	DC.B	0
		DC.B	(31-2)*2+1	;[F] Time1 = 31.5
		DC.B	$57		;[E] Early/Norm	= $57
		DC.B	(15-2)*2+1	;[D] Time0 = 15.5
		DC.B	$97		;[C] Late/Norm = $97
		DC.B	(14-2)*2+1	;[B] LLS = 14.5
		DC.B	(14-2)*2+1	;[A] LLL = 14.5
		DC.B	(25-2)*2+1	;[9] LSS = 25.5
		DC.B	(25-2)*2+1	;[8] LSL = 25.5
		DC.B	(15-2)*2+1	;[7] CSLS = 15.5
		DC.B	(15-2)*2+1	;[6] RPT = 15.5
		DC.B	(14-2)*2+0	;[5] SLS = 14.0
		DC.B	(14-2)*2+0	;[4] SLL = 14.0
		DC.B	(25-2)*2+0	;[3] SSS = 25.0
		DC.B	(25-2)*2+0	;[2] SSL = 25.0
		DC.B	65		;[1] Mult = 65
		DC.B	(15-3)*2	;[0] Min = 15.0

		DC.B	00
		DC.B	(31-2)*2+1	;[F] Time1 = 31.5
		DC.B	$57		;[E] Early/Norm	= $57
		DC.B	(15-2)*2+1	;[D] Time0 = 15.5
		DC.B	$97		;[C] Late/Norm = $97
		DC.B	(14-2)*2+1	;[B] LLS = 14.5
		DC.B	(14-2)*2+1	;[A] LLL = 14.5
		DC.B	(25-2)*2+1	;[9] LSS = 25.5
		DC.B	(25-2)*2+1	;[8] LSL = 25.5
		DC.B	(15-2)*2+1	;[7] CSLS = 15.5
		DC.B	(15-2)*2+1	;[6] RPT = 15.5
		DC.B	(14-2)*2+0	;[5] SLS = 14.0
		DC.B	(14-2)*2+0	;[4] SLL = 14.0
		DC.B	(25-2)*2+0	;[3] SSS = 25.0
		DC.B	(25-2)*2+0	;[2] SSL = 25.0
		DC.B	65		;[1] Mult = 65
		DC.B	(15-3)*2	;[0] Min = 15.0

**********************************************************************
*
* Startup ISM side of SWIM
*   
*   Assumes that SWIM is in IWM mode when called
*
**********************************************************************
StartupISM	EQU	*
		stz	MFMflag
		stz	CurISMsu
		JSR	SelectISM
		
		LDA	#%00000000	;
		sta	IsmSetupW	;de-assert EN3.5 at reset or pwron
		sta	CurISMsu	;record ISM setup reg value
		
		LDA	IsmSetupR
		LDA	#$38
		STA	IsmMode0W	;0-> WRITE & ACTION bits and 8M FCLK (HDSEL=0)
		LDA	#$00
		STA	IsmConfgW	;config	timer for 8Mhz	FCLK
		
		LDA	IsmStatsR	
		lda	IsmPhaseR
		ora	#$F0
		sta	IsmPhaseW	;make sure the phases are enabled as outputs
		JSR	SetMFMParms	;do this at pwron/Reset once
		jmp	DeSelectISM	;switch back to IWM mode

**********************************************************************
*
* Select ISM mode of SWIM
*   
*   Assumes that SWIM in in IWM mode when called 
*   It preserves 
*
**********************************************************************
SelectISM	EQU	*
		phx
		BIT	MFMflag
		BVS	@alreadyISM
		bit	q7l		;insure read mode
		bit	q6H		;setup for write to IWM	mode Reg
		lda	q7l		;read the status register first
		pha			;save it for drive enable restore
		BIT	DeSelect	;disable the IWM drive enable (may starts 3.5 Drive's Timer!)
		and	#$1F
		ora	#$40		;add the ISM bit to IWM mode reg value
		STA	Q7H
		EOR	#$40		;turn the bit off
		STA	Q7H		; continue the tap dance
		EOR	#$40
		STA	Q7H
		STA	Q7H		; finish the fast slow fast fast dance steps
		LDA	#$40
		TSB	MFMflag
		pla
		bit	#$20		;was drive enabled at entry?
		beq	@no
@alreadyISM	lda	IsmStatsR
		and	#%110
		cmp	#%110
		bne	@10
		lda	#%110
		sta	IsmMode0W	;clear both if both enables are on
@10		LDX	unit_num
		cpx	#02
		bcs	@no
		lda	#%00000110
		sta	IsmMode0W	;clear both drive bits from prior use
		LDA	DrivSelBit,X
		STA	IsmMode1W	;select	the ONE proper drive
		LDA	#$80
		STA	IsmMode1W	;Select the proper drive so it can't timeout
@no		plx
		LDA	IsmStatsR	;re read for debugging analyzer
		RTS

DrivSelBit	DC.B	02		;enable	for drive 1 ( x = 0)
		DC.B	04		;enable	for drive 2 ( x = 1)
**********************************************************************
*
* DeSelect the ISM mode	of SWIM
*
*   Assumes that SelectISM above has been called and that SWIM
*   is still in	ISM mode
*
**********************************************************************
DeSelectISM	EQU	*
		LDA	ISMStatsR	;get status 
		PHA
		LDA	#%10011110	;reset DrvEnable,Write,Action bits
		STA	ISMmode0W
		LDA	#$40
		STA	ISMmode0W	;disable ISM side with this write
		pha
		pla			;delay a few cycles
		BIT	Q7L
		BIT	Q6L		;insure IWM back into read mode
		LDA	#$40
		TRB	MFMflag		;mark ISM off
		PLA
		BMI	@20		;Drive enable was asserted so restore it
		phx

		ldx	unit_num
		cpx	#02
		bcs	@10
		bit	enable1,x	;select the proper drive even if not enabled
@10		plx
		rts
		
@20		phx
		ldx	#00
		bit	#$04		;is it drive 2 that was enabled?
		beq	@30
		ldx	#01		;yep
@30		bit	enable1,x	; enable proper drive ;
		plx
		bit	Select		; activate the enable line
		rts

**********************************************************************
*   Select IWM mode if ISM is enabled
**********************************************************************
SelectIWM	BIT	MFMflag		;is ISM	enabled?
		BVC	@exit
		JSR	DeSelectISM
@exit		RTS

****************************************************
* Enable35
*
* Enable35 and Disabl35	need to	keep a history bit
* and only switch to ISM mode when /ENBL35 is 
* not in the desired state.
*
****************************************************
Enable35	equ	*
		pha
		lda	#%00000010
		bit	CurISMsu	;is EN35 already asserted?
		bne	@90 		;yep. so do nothing
		jsr	SelectISM	;switch	to ISM side
		lda	#%00000010	;set bit 1 for /ENBL35 low
		ora	IsmSetupR	;note: pin level is opposite of	bit
		sta	IsmSetupW
		sta	CurISMsu
		cmp	IsmSetupR
		jsr	DeSelectISM	;deselect ISM mode
@90		pla
		rts

******************************************************
* Disabl35
* Enable35 and Disabl35	need to	keep a history bit
* and only switch to ISM mode when /ENBL35 is 
* not in the desired state. 
*
******************************************************
Disabl35	equ	*
		pha
		lda	#%00000010
		bit	CurISMsu	;is EN35 de-asserted already?
		beq	@90		;yep so exit
		jsr	SelectISM	;switch	to ISM side
		lda	#%11111101	;note: reg bit is opposite of pin
		and	IsmSetupR
		sta	IsmSetupW	;set bit 1 for /ENBL35 high
		sta	CurISMsu	;save for history
		cmp	IsmSetupR
		jsr	DeSelectISM	;deselect ISM side
@90		pla
		rts
**********************************************************************
* ENABLE MFM modes on ISM side
**********************************************************************
EnableMFM	equ	*
		lda	#$80
		tsb	MFMflag		;b7 = mfm  
		lda	#$20		;test the drive type bit (set if in MFM mode)
		bit	CurISMsu
		bne	@90		;already did this
		jsr	SelectISM

		lda	#$20
		sta	IsmMode1W	;switch to 15.6M FClk (sets just 1 bit!)

		ora	IsmSetupR		
		sta	IsmSetupW	;switch to IBM drive type for MFM I/O
		sta	CurISMsu

		lda	#$40
		sta	IsmConfgW	;set timer for 15.6M FCLK
		
		jsr	DeSelectISM
@90		rts
		
**********************************************************************
* ENABLE GCR modes on ISM side (drive type and clk switch to GCR states)
**********************************************************************
EnableGCR	lda	#$80
		trb	MFMflag		;b7 = mfm 
		lda	#$20
		bit	CurISMsu	; is drive type set for GCR I/O?
		beq	@90		;yep. don't need to do this
		jsr	SelectISM

		lda	#$20
		sta	IsmMode0W	;switch to 7.8M FClk (clrs just 1 bit!)
		lda	IsmSetupR
		and	#%11011111
		sta	IsmSetupW	;switch to Apple drive type for GCR I/O
		sta	CurISMsu
		lda	#$00
		sta	IsmConfgW	;set timer for 7.8M FCLK
		
		jsr	DeSelectISM	;switch back to IWM mode
@90		lda	#GCRmode
		jsr	SetIWMMode
		rts

*****************************************************
* DTCancel
* 
* Drive	Timer Cancel
*
* This routine performs	the reset of /ENBL35 before
* removal of Drive enable to cancel the drive timer
*
*    INPUT :  x	= drive	to cancel (0,1)
*
*****************************************************
DTCancel	equ	*
		cpx	#02
		bcs	@90		;invalid or unknown drive
		stx	unit_num
		jsr	SelectISM	;switch	to ISM side
		lda	DrivSelBit,x	
		ora	#$80
		sta	IsmMode1W	;assert the proper drive enable

		lda	#50
@20		dec	a
		bne	@20		;delay a while
		
		lda	IsmSetupR
		and	#%11111101	;bit is	0 for /ENBL35 high
		sta	IsmSetupW	;de-assert /ENBL35
		sta	CurISMsu
		lda	#25
@30		dec	a
		bpl	@30		;delay a bit for drive gate array to act
		jsr	DeSelectISM	;switch back to IWM side
@90		rts
********************************************************
;
; sdclines
;	 This routine sets corresponding pulse bits as defined
; by parameter in reg a.
;	  A - 4	bits indicate how to set ca1,ca0,sel,ca2
;					 b3  b2	 b1  b0
;
********************************************************
sdclines	equ	*
*
* MUST clr CA0 and Set CA1 before HDSEL changes 1->0
* THIS ORDER IN WHICH THIS CODE CHANGES THE PHASE LINES
*	IS REQUIRED BY THE DRIVE DON'T REORDER IT!
		
		bit	ca0off
		bit	ca1on
		bit	pulseoff
		
		bit	ca2off		;assume	lsb clear
		lsr	a		;put lsb in carry bit
		bcc	@10		;if it was clear, do nothing
		bit	ca2on		;otherwise, turn it on

@10		lsr	a		;put head number in carry
		bcc	@20		;if carry clear, select side 0
		bit	Hedsel_one	;otherwise select side 1
		bra	@30
@20		bit	Hedsel_zero	;select side 0

@30		lsr	a		;should	ca0 remain set
		bcc	@40		;if lsb	is clr,	it stays off
		bit	ca0on		;otherwise, turn it on

@40		lsr	a		;should	ca1 remain set
		bcs	@50		;if lsb	is set,	it stays on too
		bit	ca1off		;otherwise turn	it off
@50		rts


********************************************************
;
; WriteBit 
;	 This routine writes commands to
;	 the Apple 3.5 and Apple 3.5HD drives
;	 input:
;	  A - 4	bits indicate how to set ca1,ca0,sel,ca2
;					 b3  b2	 b1  b0
;	 preserves : x
********************************************************
WriteBit	equ	*
		jsr	sdclines	;set the lines for command in a

		bit	pulseon		;turn on pulse to send command
		bit	pulseoff	;turn off pulse	(2usec later)
		rts


*********************************************************
;
; ReadBit 
;	 This routine reads one	of 16 status bits from
;	 the Apple 3.5 and Apple 3.5HD drives
;	 input:
;	  A - 4	bits indicate status to	read ca1,ca0,sel,ca2
;					      b3  b2  b1  b0
;
;	returns	the status bit in the carry
;	    carry set if bit = 1
;	    carry clear	if bit = 0
;
;	 preserves : x
********************************************************
ReadBit		equ	*
		jsr	sdclines	;set up	lines for command in a
		bit	Q6h		;read status register (x1x)
		lda	Q7l		; (01x)
		and	#$80		;keep only the data bit
		asl	a		;b7 (where the data bit	is) to carry
		rts


********************************************
* WaitRdyTO
*      This routine waits unit an Apple	3.5
* drive	/READY sense bit indicate the drive 
* is ready or until the	timeout	expires
*
*     Input: proper drive selected and enabled
*	     and motorON and/or	seek cmd sent
*
*    Output: Carry clr if ready
*	     Carry Set if Timeout
*
********************************************
WaitRdyTO	equ	*
		lda	#ready
		jsr	Readbit
		bcc	@itis
		ldx	#>1000		;1000*.001=1 second
		ldy	#<1000
@10		lda	#146		;146*14=2046 = 1Ms
		sta	delayctr
@20		bit	Q7L		;+04
		bpl	@30		;+06
		dec	delayctr	;+11
		bne	@20		;+14
		dey
		bne	@10		;
		dex
		bne	@10
		sec			;a timeout!
		rts
@30		clc
@itis		rts


;**********************************************
; WaitReady
;	 This routine waits until an Apple 3.5 drive 
;	 ready line indicates that the drive is	ready.
;
;**********************************************
WaitReady	equ	*
		lda	#ready		;now wait til disk is ready
WaitLow		equ	*
		jsr	ReadBit		;
		bcc	@20		;it is low
@10		lda	Q7L
		and	#$80
		bmi	@10
		asl	a		;result	is alway clr
@20		rts

* WaitHi
WaitHi		equ	*
		jsr	ReadBit
@10		lda	Q7L
		and	#$80
		bpl	@10
		asl	a		;result	is always set
		rts


;******************************************************
; ChkEject:
;	 ChkEject is called at about .45 sec rate in the 
;	 command wait loop to check to see if local A3.5 
;	 disk drives have been ejected.
;
;	 eats :	A,X,Y
;   
;******************************************************
ChkEject	equ	*
		ldx	#$00		;start with disk 0
		lda	unittype,x	;are there any local A3.5 drives?
		bmi	@30		;no local drives!
		beq	@30		;no units at all!!
		jsr	Enable35	;assert /EN35 if needed
@nxtdrv		ldy	#10
@dly		dey
		bne	@dly		;25us delay
		jsr	EnblnSens	;enable drive and see if disk is in
		bvc	@dskok		;if online then	do nothing
		jsr	UnMountX	;unmount volume	in that drive
@dskok		inx
		cpx	#01		;
		bne	@20		;max of	2 locals
		lda	unittype,x	;is 2nd	unit local/remote
		bmi	@20		;remote
		bne	@nxtdrv		;local
@20		dex
		jsr	DTCancel	;cancel	the drive timer
@30		rts


* "Enable & Check Drive	state"
*****************************************************
* EnblnChk  (Enable and	Check local drive)
*
*      This routine checks the sense status of the 
* drive	and returns priority encoded errors as follows:
*
* If vol offline 
* Then unit unmounted and Offline error	returned.
* If online but	not after eject 
* Then IF voltype is UNKNOWN 
*      Then return WP error iff	but fake 'swapped' status.
* If vol swapped 
* Then clear eject latch : IF Extended SP cmd 
*			   Then	return Disk Switched error.
* Else return no error with WritProt status in A-reg.
*
*   Input : X -	unit to	be enabled  (X = 0/1) 
* Preserved: X	  Destoryed :A,Y
*
*  Output : case description c	 v   n	  A
*	    vol	is offline   1	 1   x	 $2F (eject latch left alone)
*	    vol	is switched  1	 0   1	 $2E (XSP cmd :ejct ltch clr)
*	    vol	is online    0	 0   1	 $00 (StdSP : ejct ltch	clrd)
*	    vol	is online    0	 0   0	 $00  (everything is ok!)
*	    vol	is writ	Prot 0	 0   1	 $2B (swaped WP	vol: ejct clr)
*	    vol	is writ	Prot 0	 0   0	 $2B (known WP volume)
*	    volstat,x is set per drive status
*
*	    ! the N bit	used by	caller to force	mountvol
*	    ! the C bit	used by	caller after mountvol to report	err
*	    
*	  voltype,x & volstat,x	& TotBlksl/h,x &
*	  unitmode,x are all reset if disk Offline
*
******************************************************
EnblnChk	equ	*
		jsr	EnblnSens	;Enable drive X	and sense em
		bvc	@online
		php
		jsr	UnmountX	;clear drive state to unknown
		plp
		bpl	@05		;offline and not dsw
		jsr	ClearDSW
		bcs	chkexit
@05		lda	#Offline	;record	offline	(leave dsw)
@err		sec
		bra	chkexit

@online		bmi	@10		;online	after eject so clr latch
*   online but not after eject but do I	know its volume	type?
*    (somehow an ejected latch got reset behind	my back)
		lda	voltype,x	;has volume been logically 'mounted'
		bne	chkwp		;yes. exit normally
		jsr	chkwp		;no. So	don't return an error
		bit	fakebit		;set n (keep z)	so mountvol will happen
		rts
* online after eject so	reset the drive	ejected	latch
@10		jsr	UnkVolX		;mark volume as Online and Unknown type
		jsr	ClearDSW	;reset ejected latch on drive
		bcs	Chkexit		;yes. IF DSW_ERROR report it back
* (Status Call doesn't use this routine)

* Now set NE status in OK result if its	WritProted
chkwp		equ	*
		lda	#VSwrprot	;is it writprotected?
		and	volsts,x	;this will set A = 00
		beq	@10
		lda	#noWrite	;return	error code in a
@10		clc			;tell caller no	error
Chkexit		bit	volsts,x	;setup n,v result bits 
		rts
*
fakebit		DC.B	VSswaped+VSwrprot

**********************************************************************
*
* Clear Drive Disk Ejected Latch
*
*	INPUT	X = drive number (0,1)
*	OUTPUT	A = ) or $2E
*
**********************************************************************
ClearDSW	equ	*
		lda	#ejct_reset
		jsr	Writebit	;reset ejected latch on drive
		lda	#dswerror	;assume	its reportable
		sec
		bit	cmdmode		;is this extended cmd?
		bvs	@10		;yes. 
		lda	#00	
		clc
@10		rts

************************************************
* EnblnSens   (used by DoStatus	and EnblnChk)
*
*     Enable the drive and sense three status
* bits and save	them is	volstat,x
*
*    Input : X = unit to enable	and sense (0/1)
*
*   Output : volstat,x bits set	per drive
*	     A = $00 or	$20 if WP
*  
*  Destorys: Y,A   X unchanged
************************************************
EnblnSens	equ	*
		lda	enable1,x
		bit	select		;turn on the drive select
SensX		lda	volsts,x	
		sta	priorsts	;save for status history compare
		and	#$1F		;preserve other	bits
		ora	#VSwrprot	;preset	so eor resets
		sta	volsts,x	;preset	all three bits (b7..b5)
		ldy	#3		;3 bits	to sense
@loop		lda	SensBit-1,y
		jsr	readbit
		bcc	@10		;leave bit as preset
		lda	StatBit-1,Y
		eor	volsts,x	;invert	bit
		sta	volsts,x
@10		dey
		bne	@loop
		lda	#VSwrprot
		bit	volsts,x	;return	BMI,BVS,BNE per	sense
		rts

SensBit		DC.B	Wrprt,dskin,Rdejctd
StatBit		DC.B	VSwrprot,VSoffline,VSswaped


\ No newline at end of file
diff --git a/IIGS.601.SRC/NuMustang/Equates.aii b/IIGS.601.SRC/NuMustang/Equates.aii
new file mode 100644
index 0000000..c847672
--- /dev/null
+++ b/IIGS.601.SRC/NuMustang/Equates.aii
@@ -0,0 +1 @@
+Card_isIIgs	equ	Host_CC00_pseudoROM+09
SmartSig	equ	%11000000	;$CnFB,	smartport type is Xtended + additionals
			;||||||||___bit 0 RAM card
			;|||||||____bit 1 SCSI
			;||\|||
			;|| \||
			;||  \|_____bits 2-5 Reserved
			;||_________bit 6 Additional Commands 
			;|__________bit 7 Extended Commands 
			
VersionHi	equ	$01
VersionLo	equ	$00

		eject
zero_page_template RECORD 0
**************************************************
*    UC/IC 65c02 zero page equates
**************************************************
msg		DS.B	1		;$FF ;A//e -> 65c02 message port

reply		DS.B	1		;$FF ;65c02 -> A//e  message port

parms:					;the group of the next 9 bytes
cmdmode		DS.B	1		;$00 ;$0x=SP, $4x=XSP, $8x= ProDOS
unitno		DS.B	1		;$FF ;unit number of request
syncflag	DS.B	1		;$00 ;filler for copy of g.devndx

Cmdpkt6		equ	*		;contents for SmartPort	Cmd Packet
cmdcode		equ	*		;code for SP Status and	Ctrl requests
bytecnt		equ	*		;Read Bytes size (in & out)
blocknum	DS.W	1		;$FFFF ;logical	block RD/WR Blk	requests
intrlv		DS.W	1		;$0000 ;address	of RD/WR byte requests
blockcnt	DS.W	1		;$0000 ;address	of RD/WR byte requests

xfrcnt		DS.W	1		;$0000 ;size of	Status & ReadBytes xfer

curcyl		DS.B	2		;$FF,$FF ;current cyl posns (2 local units)

twosided	DS.B	2		;$80,$80 ;SS=$00 DS =$80 (local	units only)

VolIntrlv	DS.B	2		;$00,$00 ;FmtFnd from RdAddr of	local units

drive		DS.B	1		;$00 ;LIRON EMULATION 'drive' (always zero)

cyl		DS.B	1		;$FF ;cylinder being looked for

sector		DS.B	1		;$FF ;sector for Rdadr/Rdata to	find

side		DS.B	1		;$FF ;side to look on

topbits		DS.B	1		;$FF ;for CBUS driver &	LIRON EMULATION
topbits1	equ	*		;for CBUS driver
grp7ctr		DS.B	1		;$FF ;for LIRON	EMULATION
WPacketType	DS.B	1		;$FF ;for CBUS driver &	LIRON EMULATION

curNsect	DS.B	1		;$00

trk		DS.B	1		;$FF ;request cyl+side to find

sectcnt		DS.B	1		;$FF ;number of	sectors	which have been	read

		DS.B	1		;$00 ;LIRON EMULATION 'xtions'

csum		DS.B	1		;$FF ;LIRON Emulation 

csumc		DS.B	1		;$00 ;used to store check sums
csumb		DS.B	1		;$00
csuma		DS.B	1		;$00
wcsum		DS.B	1		;$00

exindex		DS.B	1		;$00 
exindex2	DS.B	1		;$00

pointerl	DS.W	1		;$0000
pointerh	equ	pointerl+1

sectinfo	equ	*		;data from addr	header of sector
CSFnd		DS.B	1		;$00 ;CheckSum Found
FmtFnd		DS.B	1		;$00 ;sector format found
SideFnd		DS.B	1		;$00 ;side + trkb7 found
SectFnd		DS.B	1		;$00 ;sector found
CylFnd		DS.B	1		;$00 ;Cylinder found (6	bits)
fmtsect		EQU	SectFnd		;used during mfm formattrk

temp		DS.B	1		;$00 ;LIRON EMULATION 'oddbytes'

ramblk		DS.B	1		;$00 ;buffr bank-switch	select address
cachndx		DS.B	1		;$00 ;buffr index number (1..12) 

unit_num	DS.B	1		;0 ;unitno -1 for cur requst

delayctr	DS.B	1		;0 ;time delay counter

CurIWMode	DS.B	1		;0 ;last value set into	IWM mode reg

smartdev	DS.B	1		;0 ;first SmartPort device (zero if none)
numdevs		DS.B	1		;0 ;number of devices on chain;	dumb+smart
*********************

unittype	DS.B	4		;0,0,0,0,0,0 ;CBUS,,Liron,,SUPER,A3.5
* UnitType bit masks
UTremote	equ	$80		;Remote	CBUS device
UTliron		equ	$08		;UniDisk 3.5 device on CBUS
UTfdhd		equ	$02		;UTa35 also set	when this set
UTa35		equ	$01		;AppleDisk3.5 (unified drive)

begsect		ds.b	1		;for readNblks
begtrack	ds.b	1		;for readNblks

unitmode	DS.B	4		;0,0,0,0 ;UDE,ISM/iwm,14/7m,DSW,F/s,HD/sd,GCR/mfm
* UnitMode bit Masks
UMudemul	equ	$80		;UniDisk Emulation (LIRON EMULATION)
UMmfmHD		equ	$40		;volume is MFM HD
UMmfmDD		equ	$20		;volume is MFM DD
UMdsw		equ	$10		;Unit Supports disk switched status
UMfast		equ	$08		;IWM speed mode
UMnotmr		equ	$04		;No Timer mode for IWM 

		ds.b	1		;unused
priorsts	ds.b	1

voltype		DS.B	2		;0,0 ;400k,800K,720K,1200K,1440K,2000K
*
;		    0 =	volume not logically mounted yet
AD400K		equ	02		; 400K 8-12s/trk SS 80 Trk GCR 6:8
AD800K		equ	04		; 800K 8-12s/trk DS 80 Trk GCR 6:8  4:1 interleave
AD800K2		equ	06		; 800K 8-12s/trk DS 80 Trk GCR 6:8  2:1 interleave
DD720K		equ	08		; 720K	 9s/trk	DS 80 Trk MFM 500khz
HD1440K2	equ	10		;1440K	18s/trk	DS 80 Trk MFM 2:1 interleave
HD1440K1	equ	12		;1440K	18s/trk	DS 80 Trk MFM 1:1 interleave

Totblksl	DS.B	2		;0,0 ;total blk	count low byte
Totblksh	DS.B	2		;0,0 ;total blk	count hi byte

volsts		DS.B	2		;0,0 ;Swapped,Offline,WrProt,1sided,,Chukwait
* VolStat bit masks
VSswaped	equ	$80		;vol swaped as of last sense
VSoffline	equ	$40		;vol offline as	of last	sense
VSwrprot	equ	$20		;vol is	WritProt as of last sense
VSsingle	equ	$10		;single	sided volume if	online
VSchukwait	equ	$01		;500MS MotorONwait on nxt R/W access 

FmtOption	DS.B	2		;0,0 ;saved by SetFmtOpt (by unit)
FmtIntrlv	DS.B	2		;0,0 ;saved by SetFmtOpt (by unit)

* The CBUS Command Packet
*
CBcmdpkt	equ	*
CBCmd		DS.B	1		;0
CBPCount	DS.B	1		;0
CBpktjunk	DS.B	1		;0
CBpktguts	DS.B	6		;0,0,0,0,0,0,0
		DS.B	1		;0 ;filler

error		DS.B	1		;$00 ;errors returned to a//e via this port
error2		DS.B	1		;$00 ;soft error bits
* error2 bits defs
adrerror	equ	$20		;adrs mark chksum/bitslip error
dcserror	equ	$10		;data field check sum error
dbserror	equ	$08		;data field bitslip error
siderror	equ	$08		;ended up on wrong side	(head)
cylerror	equ	$04		;ended up on wrong track
rcalerror	equ	$02		;unable	to detect trk 0
nomkerror	equ	$01		;adrs/data mark	timeout	error

errcnt		DS.B	1		;0 ;error3 , retry 
execregs	equ	*		;reg save after	execute
numerrs		DS.B	1		;0 ;error4	   (A)
		DS.B	1		;0 ;error5, numerrsh, (X)
Cerrcnt		DS.B	1		;0 ;error6, Cache err cnt  (Y)
reseekcnt	DS.B	1		;0 ;error7	   (P)
adrerrcnt	DS.B	1		;0 ;error8	   

statbyte	DS.B	1		;0

Cachlock	DS.B	1		;$00 ;set to $80 to lockout caching
Cstate		DS.B	1		;$00 ;Caching state ($80=locked, $40=after)
tagsflag	DS.B	1		;0 ;set	to zero	for 512, -1 for	524

interleave	DS.B	1		;$00 ;last Set interleave Ctrl cmd value
FormSides	DS.B	1		;$80 ;$80 = two	sided (only used by GCR)

dwnldaddr	DS.W	1		;$0000

byte0		DS.B	1		;$00 ;must end up at $66
byte1		DS.B	1		;$00 ;used to store bytes when
byte2		DS.B	1		;$00 ; deniblyzing them	during read/write
byte3		DS.B	1		;$00

CurISMsu	DS.B	1		;0 ;current ISM	SetUp register
DrvrFlag	DS.B	1		;flag for GS/OS driver interface
Bytecountl	DS.W	1		;$0000
ByteCounth	equ	Bytecountl+1
rePrepCnt	DS.B	1		;$00
mideject	DS.B	1		;$80

Hooks		DS.B	2		;0,0
RdAddrHook	DS.B	3		;0,0,0
ReadDataHook	DS.B	3		;0,0,0
WritDataHook	DS.B	3		;0,0,0
SeekHook	DS.B	3		;0,0,0
FormatHook	DS.B	3		;0,0,0
WritTrkHook	DS.B	3		;0,0,0
VerifyHook	DS.B	3		;0,0,0
VectorHook	DS.B	3		;0,0,0
ResetHook	DS.B	3		;0,0,0

* Mark TAB
*
afdmtab		DS.B	1		;$FF ;after DataMark tab
datamarks	DS.B	4		;$AD,$AA,$D5,$FF
synctab		DS.B	5		;$FC,$F3,$CF,$3F,$FF
bsmarks		DS.B	1		;$FF
bslip2		DS.B	1		;$AA
bslip1		DS.B	1		;$DE
adrguts		DS.B	5		;$FF,$FF,$FF,$FF,$FF
adrmarks	DS.B	4		;$96,$AA,$D5,$FF

result		DS.B	1		;$00 ;CBUS driver
recvBuff	DS.B	7		;0,0,0,0,0 ;CBUS driver
grp7cnt		equ	recvBuff	;CBUS driver
oddbytes	equ	recvBuff+1	;CBUS driver
datastat	equ	recvBuff+2	;CBUS driver
auxtype		equ	recvBuff+3	;CBUS driver (sense extended)
pkttype		equ	recvBuff+4	;CBUS driver

r0		DS.W	1		;$0000 ;general	purpose	registers
r0L		equ	r0
r0H		equ	r0+1

r1		DS.W	1		;$0000
r1L		equ	r1
r1H		equ	r1+1

r2		DS.W	1		;$0000
r2L		equ	r2
r2H		equ	r2+1

minCsect	DS.B	1		;0 ;DoRead min Cache sect #
maxCsect	DS.B	1		;0 ;DoRead temp	max+1 Cache sect #
z_debug		DS.B	1		;0

MFMflag		DS.B	1
DDflag		DS.B	1		;$80 = DD mfm format
Gap3Size	DS.B	1		;mfm intersector gap size
		DS.B	1
		ds.b	1
TESTWRITE	DS.B	1		;always a zero except when UserTest is writing
MediaChkVect	DS.W	1		;vector setup during any reset
* pwrcon must be last item in zero page
pwrcon		DS.B	4		;$4A,$CF,$41,$55
zp_init_lgth	equ	*
		ENDR



host_zp_template RECORD	$40		
g_zpage		equ	*
g_DPtr		DS.B	3		;$40 = global Data Pointer 
g_cmdnum	DS.B	1		;$43 = global cmdnum
g_unitnum	DS.B	1		;$44 = global unitnum
		DS.B	1		;$45 = unused
g_Code		equ	*		;$46 = Status/Control code (1 byte)
g_DskBlk	equ	*		;$46 = disk logical block# (2/4	byts) 
g_XfrCnt	DS.B	2		;$46 = Byte Xfer Count (2 bytes)
g_Addrs		DS.B	4		;$48 = Byte xfer Address 
g_PPtr		DS.B	2		;$4C = global Param Ptr	(2/3 byts)
xrtn		DS.B	1		;x rtn value	  (3rd byte overlap!)
yrtn		DS.B	1		;y rtn value
g_error		DS.B	1		;a rtn value (error flag)
g_devndx	DS.B	1		; $N0 after call to "execute" subr
zpgsav		equ	*-g_zpage

		ENDR

******************************************************************
**************** EQUATES FOR BOTH HOST and CARD	******************
******************************************************************


*** disk command equates (global)
status		equ	0		;same command #'s used for ProDOS 
read		equ	1		;and SmartPort (nee Protocol Converter)
write		equ	2
format		equ	3
ctrl		equ	4
init		equ	5
readbyts	equ	8
writbyts	equ	9
*
usertestcmd	equ	$3D		;this must be < $7F
*** ProDOS Blk Dev & SmartPort error codes
*
BadCmd		equ	$01
BadPCnt		equ	$04
BusErr		equ	$06
BadUnit		equ	$11
BadCtrl		equ	$21
BadParm		equ	$22
IOError		equ	$27
NoDrive		equ	$28
NoWrite		equ	$2B
BadBlk		equ	$2D
DswError	equ	$2E
OffLine		equ	$2F
*


*  "EQUATES and	ALLOCATIONS"
Hedsel_zero	equ	$0A40		;makes the HEDSEL line low
Hedsel_one	equ	$0A41		;makes the HEDSEL line high
IWM		equ	$0A00		;actually this is the decode for the SWIM
SnapBank	equ	IWM+$10		;ref this to latch RdBank0..2
RdBank0		equ	IWM+$11		;b7 (Read Only)	= host bank bit	0
RdBank1		equ	IWM+$12		;b7 (Read Only)	= host bank bit	1
RdBank2		equ	IWM+$13		;b7 (Read Only)	= host bank bit	2
ClkSwtch	equ	IWM+$14		;b7 = 1	FCLK = 14.318; 0 = 7.159Mhz

LEDon		equ	$0A80
LEDoff		equ	$0A81

CCmdCnt		equ	13
maxSmarts	equ	02		;maximum of Smart units (UniDisk 3.5's)
maxUnits	equ	maxSmarts+2	;maximum total units (2 dumb + smarts)

nybblkndx	equ	12
wrblkndx	equ	11		;logical buffer	number of wrblk
wrblk2ndx	equ	09		;logical buffer	number of wrblk2
wrblk		equ	06		;must be lower blk of 2	block group
wrblk2		equ	wrblk+1		;for CBUS/unified 524 byte read

wrblkadd	equ	$0C00		;so CBUSdvr won't access IWM when lookin

numtracks	equ	80		;number	of tracks on 1 side of disk

maxcache	equ	18

;** Phase Control Lines	**

ca0off		equ	IWM+0
ca0on		equ	IWM+1

ca1off		equ	IWM+2
ca1on		equ	IWM+3

ca2off		equ	IWM+4
ca2on		equ	IWM+5

pulseoff	equ	IWM+6
pulseon		equ	IWM+7

*****************************************************
* the bits of the following equates correspond to 
* 	CA1 CA0 HdSel CA2
*        b3  b2   b1   b0
*****************************************************
* Cmd equates
dirout		equ	$01		;towards outside edge (trk0)
dirin		equ	$00		;towards center	of disk

runmotor	equ	$08
offmotor	equ	$09

onestep		equ	$04
eject		equ	$0D
rdejctd		equ	$0C		;this reads the	ejected	latch
ejct_reset	equ	$03		;write this to reset ejected latch

* Sense equates
* 	CA1 CA0 HdSel CA2
*        b3  b2   b1   b0
istrack0	equ	$0A		;SelSide1
instep		equ	$04		;SelSide0
ready		equ	$0B		;SelSide1
dskin		equ	$02		;SelSide1
rddir		equ	$00		;SelSide0
rdhd0		equ	$01		;SelSide0
wrprt		equ	$06		;SelSide1
is35HD		equ	$05		;SelSide0
drivMFMadr	equ	$06		
drivGCRadr	equ	$07
mfmmodeadr	equ	$07
mediaadr	equ	$0F
FDHDadr		equ	$05

******************************************************
;** IWM	read and write lines **

DeSelect	equ	IWM+8
Select		equ	IWM+9

enable1		equ	IWM+10
enable2		equ	IWM+11

Q6l		equ	IWM+12
Q6h		equ	IWM+13

Q7l		equ	IWM+14
Q7h		equ	IWM+15

********************************************************
*  MFM constants and such
********************************************************
gapByte		EQU	$4E		;Inter/intra sector gap	byte
theSync		EQU	$00		;Sync byte preceeding each mark
fmtFillByte	EQU	$FA-256		;Format	byte to	fill sectors with

; SpliceCnt must be tuned to put MFM slice 22 bytes after end of the address mark
SpliceCnt	EQU	36		;36 * 17  .5us cycles + overhead between 
;  end of GetAddr (mfm) and mfmWriteData must total very close to 366 us
AD1440KSectors	EQU	18
DD720KSectors	EQU	09
;Field sizes:

gap4aSize	EQU	80		;Gap between index and index mark   
gap1Size	EQU	50		;Gap between index mark	and sector 1
gap2Size	EQU	22		;Gap between address and data fields
gap3Sz1440K	EQU	101		;Gap between adjacent sectors (1440K)   
gap3Sz720K	EQU	80		;Gap between adjacent sectors (720K)
gap4bSize	EQU	1024		;Gap from end of last sector to	index (max) 
syncSize	EQU	12		;Sync field size
*

**********************************
* ISM register equates
**********************************
IsmDataW	equ	IWM+0
IsmMarkW	equ	IWM+1
IsmCRCW		equ	IWM+2		;action	= 1
IsmConfgW	equ	IWM+2		;action	= 0
IsmParmsW	equ	IWM+3
IsmPhaseW	equ	IWM+4
IsmSetupW	equ	IWM+5
IsmMode0W	equ	IWM+6
IsmMode1W	equ	IWM+7

IsmDataR	equ	IWM+8		;action	= 1
IsmCorrR	equ	IWM+8		;action	= 0
IsmMarkR	equ	IWM+9
IsmErrorR	equ	IWM+10
IsmParmsR	equ	IWM+11
IsmPhaseR	equ	IWM+12
IsmSetupR	equ	IWM+13
IsmStatsR	equ	IWM+14
IsmHndShR	equ	IWM+15
***********************************

GCRmode		equ	%00011111
*			    IWM	mode = IWM,notst,8M,Fast,NoTimr,async,latch

Stat_disk	equ	$E8		;Block dev,Write,Read,x,Format,x,0,x
Stat_onl	equ	$10
stat_wp		equ	$04
stat_dsw	equ	$01		;PC general stat byte masks

Stat_char	equ	$60		;Char dev,Write,Read,x,NoFmt,x,0,x
stat_open	equ	$01		;character device open

adrmTO		equ	8*256		;byte count to find GCR	adrmark

cachtrk		equ	$0B00
cachsect	equ	cachtrk+$20
cachunit	equ	cachtrk+$40


intlvtab	equ	$600		;max 32	bytes
rcount		equ	$600		;result count for readNblks
rtable		equ	$602		;result table for readNblks

sectrtbl	equ	$620		;max 32	bytes
nybl12buf	equ	$1C0		;16 nybles 
rwbuf12		equ	$1B2		;12 bytes
nyblbufa	equ	$100		;thru $1B0
nyblbufb	equ	$640		;thru $6F0
nyblbufc	equ	$740		;thru $7F0


* * *******************	CBUS Equates ********************* * *
CBusSlow	equ	%0010111	;IWM mode for slow CBUS	conversations
*     IWM mode = IWM,notst,8M,slow,off,async,latch
*CBusFast	equ	%0011111	;IWM mode for fast CBUS	conversations
*     IWM mode = IWM,notst,8M,fast,off,async,latch

cmdmark		equ	$80
datamark	equ	$82
cmdlength	equ	9

packetbeg	equ	$C3
packetend	equ	$C8

* CBUS error codes (stored in error2) *
*
nomarkerr	equ	$80
noenderr	equ	$81
noanswer	equ	$82
badcsum		equ	$83
busyerr		equ	$84

* timeouts *
*
statmTO		equ	$20		;timeout if no mark found by this time
bsyTO1		equ	250		;timeout for BSY to go low
bsyTO2		equ	250		;timeout for ACK to go low



* "HOST	FIRMWARE EQUATES"
*######### global equates and ram allocation  #################
reEntryFlag	EQU	$CA00
zsave		EQU	$CA02		;256 bytes of RAM in bank2 "behind" card I/O page
RAM_base_h	equ	$C800		;the base of the 1K RAM 'window'

;** for	message	sending	to 65c02 card **
h_msg		equ	RAM_base_h+Zero_Page_template.msg	;A//e -> UC/IC 65c02 message semaphore

h_reply		equ	RAM_base_h+Zero_Page_template.reply	;65c02 -> A//e	reply semaphore
h_syncflag	equ	RAM_base_h+Zero_Page_template.syncflag	;65c02 -> A//gs	syncronuous writePrep flag

h_parms		equ	RAM_base_h+Zero_Page_template.parms	;A//e parms -> UC/IC 65c02 (9 bytes)
h_xfrcnt	equ	RAM_base_h+Zero_Page_template.xfrcnt	;a word	transfer count 

h_error		equ	RAM_base_h+Zero_Page_template.error	;UC/IC error return semaphore 

;** for	determining machine type **
StateReg	equ	$C068		;state register	on GS
MachineID	equ	$FE1F		;ID routine on GS and Enhanced //e
IDbyte1		equ	$FBB3		;ID bytes
IDbyte2		equ	$FBC0		;

PDflag		equ	0		;PD status code

;** ProDOS Block Device	Interface Equates
PDCnt		equ	4		;ProDOS	BLock Device Protocol has 4 cmds
command		equ	$42		;prodos	positions for passing these
unitnum		equ	$43		; parameters
buffaddr	equ	$44		;2 bytes
dskblk		equ	$46		;3 bytes

SPCnt		equ	12		;My SmartPort has 12 commands (0..11)
ldblk0		equ	spcnt		;slave cmds => 0..SPCnt-1


***************	boot stuff ********************
loc0		equ	$00		;autoscan boot entry vector
loc1		equ	$01

ptemp		equ	$478		;used only when	interrupts off
mslot_h		equ	$7F8		;$Cn stored here
*** Slot TEMPS
scrn1		equ	$478-$C0
scrn2		equ	$4F8-$C0
scrn3		equ	$578-$C0
scrn4		equ	$5F8-$C0
scrn5		equ	$678-$C0
scrn6		equ	$6F8-$C0
scrn7		equ	$778-$C0
scrn8		equ	$7F8-$C0

power_up_byte_h	equ	$3F4		;power up byte used to see if warmstart
reset_vector_h	equ	$3F2		;reset vector address
setvid_h	equ	$FE93		;set video hooks back
setkbd_h	equ	$FE89		;set keyboard hooks back
text_h		equ	$FB39		;set text mode
home_h		equ	$FC58		;clear scrn
cr_h		equ	$FC62		;begin a new line
cout_h		equ	$FDED		;output a character
kbd_h		equ	$C000		;bit 7=1 if keystroke, bits 6-0=key pressed
kbdstrb_h	equ	$C010		;turn off keystroke flag ($C000 bit 7)
prbyte_h	equ	$FDDA		;output a hex byte
prhex_h		equ	$FDE3		;output a hex nibble
Basic		equ	$E000		;basic entry point
autoscan	equ	$FABA		;autoscan loop

shadow		equ	$C035		;Apple//GS shadow register
cyareg		equ	$C036		;msb controls sytem speed


************* test stuff ****************
zp1		equ	Zero_Page_template.msg
zp2		equ	Zero_Page_template.msg+1
zp3		equ	Zero_Page_template.msg+2
zp4		equ	Zero_Page_template.msg+3
z_addr		equ	Zero_Page_template.msg+4
;NOTE: zp1-zp4 and z_addr must be together and they must be in locations 0-5!
;There should be no conflict with the regular variable usage

clear_code	equ	$00
pass_code	equ	$A1
fail_code	equ	$4F
disk_fail_code	equ	$4E
reboot_code	equ	$55

zp_addr_h	equ	$3E	;these are temp. monitor zero page locations
zp_addr1_h	equ	$40
zp_byte_h	equ	$42
zp_byte1_h	equ	$43
zp_byte2_h	equ	$44
zp_byte3_h	equ	$45
\ No newline at end of file
diff --git a/IIGS.601.SRC/NuMustang/Format.aii b/IIGS.601.SRC/NuMustang/Format.aii
new file mode 100644
index 0000000..4b8b955
--- /dev/null
+++ b/IIGS.601.SRC/NuMustang/Format.aii
@@ -0,0 +1 @@
+	if 0	then
		eject
*******************************************
* DoTrkRead
*
* Special test routine for analysis of track
* format
* 
*  INPUT : Unit	num
*	   Blocknum = trk (cyl+side)
*
*  Output : 2K buffer (banks 6 & 7)
*
*********************************************
DoTrkRead	equ	*
		lda	#badCmd		;incase	neg unit_num
		ldx	unit_num	;get unit number
		bmi	@err1
		lda	#ejct_reset	;clear any dsw status
		jsr	WriteBit	;FMT doesn't report dswerror
		jsr	EnblnChk	;enable	local drive and	chk status
@10		bcc	@noerr		;volume	is online 

@err1		jmp	DoErr		;if error, indicate it to host

@noerr		bne	@err1		;if not	0, then	disk is	write protected

		jsr	ClrCacheX	;clear this unit from cache
		jsr	U35MtrOn	;turn unified motor on

		jsr	Recal		;start in the right place
		bcs	@IOerr		;can't recal ?

		jsr	WaitReady	;wait until motor up to	speed

		ldy	unit_num
		lda	blocknum	;get trk+side
		sta	trk
		lsr	a
		sta	cyl
		lda	#00
		bcc	@20
		lda	#$20
@20		sta	side		;side =	0/1

@nxttrack	equ	*
		lda	#3		;3 retries to read whole trk
		sta	errcnt		;

@nthRetry	jsr	RdGCRTrk	;read the whole	track

		bcc	@30		;trk read ok
		jsr	DoErr2		;count number of retries
		bcc	@nthRetry	; if we're ok, try again

		ldx	unit_num
		jsr	resetFmt	;reset Interleave,Formsides,FMToption
		jsr	EjectLcl	;eject the sucker
		lda	#$38		;device	dependant error	code
		bra	@anerr
@IOerr		lda	#IOerror
@anerr		bra	@err1

@30		lda	#12
		stz	error
		sta	reply
		clc			;normal	return  
		rts


*******************************************
* RdGCRTrk
*
* FUNCTION: read entire	GCR track into
*	    a 2K buffer	(less data fields)
*	    located at $3000...	$37FF
*   Find last sector on	track and skip it
*   Then start filling buffer 
*
*   INPUT : cyl	= cylinder to read
*	    side = side	to read
*	    trk	= cyl+side
*	    unit selected and ready
*******************************************
RdGCRTrk	equ	*
		lda	cyl
		lsr	a
		lsr	a
		lsr	a
		lsr	a
		tax			;x = speed group (0..4)
		lda	fldlenG,x	;a = sect/trk (12..8)
		sta	CurNsect	;get sects/trk
		lda	#$FF
		sta	sector
		sta	sectFnd
		jsr	Seek		;seek to cyl rqsted

		lda	#$30
		sta	pointerh
		stz	pointerl

		jsr	rdmode		;select head and put drive & IWM in read mode

; Wait until any sector's data mark appears
; then read sectors, resetting pointer after each
; sector until sector zero is captured and then
; fill the buffer in order from	zero until sector
; zero appears again
		lda	#>16384
		sta	r1L
		ldy	#<16384
@waitAnyDM	equ	*
		dey
		bne	@01
		dec	r1l
		bne	@01
		sec			;return	nothing	found error
		rts
@01		lda	Q6L
		bpl	*-3
		cmp	#$D5
		bne	@waitAnyDM
		lda	Q6L
		bpl	*-3
		cmp	#$AA		;D5 then AA
		bne	@waitAnyDM
		lda	Q6L
		bpl	*-3
		cmp	#$AD		;AD = data field id
		bne	@waitAnyDM
		jmp	@1stEntry
@sectloop	equ	*
@waitD5		equ	*
		lda	Q6L
		bpl	*-3
		sta	(pointerl)
		inc	pointerl
		bne	*+4
		inc	pointerh
		cmp	#$D5
		bne	@waitD5

		lda	Q6L
		bpl	*-3
		sta	(pointerl)
		inc	pointerl
		bne	*+4
		inc	pointerh
		cmp	#$AA
		bne	@waitD5

		lda	Q6L
		bpl	*-3
		sta	(pointerl)
		inc	pointerl
		bne	*+4
		inc	pointerh
		cmp	#$96		;adrs mark?
		bne	@waitD5

		ldx	Q6L		;get track
		bpl	*-3
		lda	denibtab,x
		sta	(pointerl)
		inc	pointerl
		bne	*+4
		inc	pointerh

		ldx	Q6L		;get sector
		bpl	*-3
		lda	denibtab,x
		sta	sectfnd		;save sector number
		sta	(pointerl)
		inc	pointerl
		bne	*+4
		inc	pointerh

		ldy	#3		;get side,fmt,chksum
@adrsmrklp	equ	*
		ldx	Q6L
		bpl	*-3
		lda	denibtab,x
		sta	(pointerl)
		inc	pointerl
		bne	*+4
		inc	pointerh
		dey
		bne	@adrsmrklp

@w10		lda	Q6L
		bpl	*-3
		sta	(pointerl)
		inc	pointerl
		bne	*+4
		inc	pointerh
		cmp	#$D5		;begin data mark?
		bne	@w10		;no. so	loop and store

		lda	Q6L		;get the $AA
		bpl	*-3
		sta	(pointerl)	;store $AA
		inc	pointerl
		bne	*+4
		inc	pointerh

		lda	Q6L		;get the $AD
		bpl	*-3
		sta	(pointerl)	;store $96
		inc	pointerl
		bne	*+4
		inc	pointerh

@1stEntry	ldx	Q6L		;get the sector	#
		bpl	*-3
		lda	denibtab,X
		sta	(pointerl)	;store sector number
		inc	pointerl
		bne	*+4
		inc	pointerh
		ldy	#175
		bra	@sectgo
@sectlp		equ	*
		lda	Q6L		;read C
		bpl	*-3

@sectgo		lda	Q6L		;read top
		bpl	*-3

		lda	Q6L		;read A
		bpl	*-3

		lda	Q6L		;read B
		bpl	*-3
		dey
		bne	@sectlp

		ldx	Q6L		;read csum topbits
		bpl	*-3
		lda	denibtab,X	;denib
		sta	(pointerl)	;store csum top
		inc	pointerl
		bne	*+4
		inc	pointerh

		ldx	Q6L		;read csum A
		bpl	*-3
		lda	denibtab,X
		sta	(pointerl)	;store csum A
		inc	pointerl
		bne	*+4
		inc	pointerh

		ldx	Q6L		;read csum B
		bpl	*-3
		lda	denibtab,X
		sta	(pointerl)	;store CSUM B
		inc	pointerl
		bne	*+4
		inc	pointerh

		ldx	Q6L		;read csum C
		bpl	*-3
		lda	denibtab,X
		sta	(pointerl)	;store csum C 
		inc	pointerl
		bne	*+4
		inc	pointerh

		lda	Q6L		;get $DE bit slip
		bpl	*-3
		sta	(pointerl)
		inc	pointerl
		bne	*+4
		inc	pointerh

		lda	Q6L		;get $AA bit slip
		bpl	*-3
		sta	(pointerl)
		inc	pointerl
		bne	*+4
		inc	pointerh

		lda	sectfnd		;was AdrsMark captured?
		bmi	@90		;no
		bne	@80		;this is not sect zero

* This is sector zero. IF its the first
* capture of sector zero set the flag
* and leave it in buffer OTHERWISE
* this must be then second capture of 0 
* so I am all done
		ldx	sector
		beq	@done		;sect 0	after sect 0
		sta	sector		;record	sect 0 captured
		bra	@99

* This sector was not sector zero so 
* IF sector zero has been found	then
* leave	this one and read next one
@80		ldx	sector		;has sect 0 been found?
		beq	@99		;yes
@90		lda	#$30		;no. so	reset buffer pointer
		sta	pointerh
		stz	pointerl
@99		jmp	@sectloop

@done		equ	*
		clc
		rts
	endif


		Title	'Formatter Routines'
****************************************************
* DoGetFmt   (local 3.5" units)
*
*  Return a list of format options or Offline err
*
*  input : xfrcnt says how big is output buffr is
*
*  Output: like	a status command (a buffer of data)
****************************************************
DoGetFmt	equ	*
		ldx	unit_num	; 
		bpl	@10		;these are ok
* GetFmtOptions for unit zero is undefined operation
		lda	#badUnit
@err1		jmp	Doerr

@10		equ	*
		jsr	EnblnChk	;do I have a volume
		bpl	@30		;no vol	after eject
		jsr	MountVol	;re-mount new volume (if I can)
* make a buffer for reply data
@30		
		ldx	#255
@40		stz	wrblkadd,x
		stz	wrblkadd+$100,x	;512 bytes of zeros
		dex
		bne	@40		;clear a reply buffer

		lda	#<(wrblkadd+8)
		sta	r2l
		lda	#>(wrblkadd+8)
		sta	r2h		;entry put pointer setup
		stz	wrblkadd	;entry count is	0
		stz	wrblkadd+2	;display count = 0

		ldx	unit_num
		lda	voltype,x	;gets a zero if no volume
		sta	wrblkadd+6	;current volume's refnum
		
		lda	#UTfdhd
		bit	unittype,x	;is this an FDHD drive?
		beq	@doGCRtypes	;AD3.5 drive only does GCR stuff
		
		lda	#HD1440K2
		sta	wrblkadd+4	;HD1440K 2:1 interleave is the default for FDHD
		
		lda	unitmode,x
		bit	#UMmfmHD	;High Density media?
		bne	@44		;recommended is already set
		lda	#AD800K2
		sta	wrblkadd+4	;AD800K2 2:1 interleave for low density media
@44		equ	*
		
		lda	#HD1440K2
		jsr	BldFMTentry
		lda	#AD800K2
		jsr	BldFmtEntry
		lda	#DD720K
		jsr	BldFMTentry
 		bra	@finishup	

* now fake GetFmt for 400 & 800	K only
@doGCRtypes	
		lda	#AD800K2	;
		sta	wrblkadd+4	;default refnum for AD3.5 drive

* Now put some entries
		lda	#AD800K2
		jsr	BldFMTentry

* Now return the result
@finishup	ldy	#00		;assume	1 page or less
		lda	wrblkadd	;convert entry count to	bytes
		asl	a
		asl	a
		asl	a
		asl	a		;entries are 16	bytes each
		bcc	@60
		iny			;carry set if 16-31 entries
@60		clc
		adc	#08		;+ 8 header bytes
		cpy	bytecnt+1
		bcc	@70		;yes
		beq	@65		;mabye
@63		jmp	BadParmErr
@65		cmp	bytecnt
		beq	@70
		bcs	@63
@70		sta	xfrcnt
		sty	xfrcnt+1
		lda	#wrblk
		sta	reply
		clc
		rts


**********************************************************************
* BldFMTentry
*
*    Create an entry in	the GETFMTOPTS list for	the
* Format option	given in the A-reg
* and increment	the entry pointer by 16	(r2)
*
*    Input : A = format	option to create
*	     r2	= pointer to where to put the dat
*
*   Output : r2	= r2+16
*	     wrblkadd incremented for each added entry
*	     wrblkadd+2 incremented for each added entru
*
**********************************************************************
BldFmtEntry	equ	*
@01		inc	wrblkadd	;add 1 to entry	count
		inc	wrblkadd+2	;add 1 to display count	also
		ldy	#00
		sta	(r2)		;set fmtoption
		tax
		lda	FmtFlags,x
		and	#$0F		;just flags bits please
		ldy	#4
		sta	(r2),y
		lda	FmtFlags,x
		lsr	a
		lsr	a
		lsr	a
		lsr	a		;discard the flag bits
		ldy	#12
		sta	(r2),y

		lda	TotBlks,x
		ldy	#06
		sta	(r2),y
		iny
		lda	TotBlks+1,x
		sta	(r2),y
		ldy	#10+1
		lda	#>512
		sta	(r2),y
		lda	TotBlks+1,x
		lsr	a
		ldy	#14+1		;hi byte first
		sta	(r2),y
		lda	TotBlks,x
		ror	a		;shift in bit from hi byte
		dey
		sta	(r2),y		;size in Kbytes	= blks/2

		lda	r2
		clc
		adc	#16		;= length of 1 entry
		sta	r2
		bcc	@30
		inc	r2h
@30		equ	*
		lda	FmtFlags+1,x	;Interleave related entries to do?
		beq	@90		;no.
		bpl	@01		;stick another entry in
@90		rts


********************************************
* Format option	tables
*
* This table contains 3	items in low byte
* Low Byte  b7..b4  = interleave factor	n:1
*	    b3,b2   = Kbytes format size 
*	    b1,b0   = format flags Univ,Appl,NonAppl
* Hi Byte  refnum of related format 
*    $8x is alias format
*     0x is alternate interleave format
*
********************************************
FmtFlags	equ	*
Kb		equ	$04
Univ		equ	$00
Appl		equ	$01
NonAppl		equ	$02
		DC.B	0,0			;0 null
		DC.B	$20+Kb+Appl,0		;02 AD400K    2:1
		DC.B	$40+Kb+Appl,00	 	;04 AD800K    4:1
		DC.B	$20+Kb+Appl,AD800K	;06 AD800K2   2:1
		DC.B	$10+Kb+NonAppl,0	;08 DD720K    1:1
		DC.B	$20+Kb+Univ,HD1440K1	;10 HD1440K2  2:1
		DC.B	$10+Kb+Univ,0		;12 HD1440K1  1:1
maxfopt		equ	13

*****************************************************
TotBlks		equ	*
		DC.W	0000		;0 null
		DC.W	0800		;02 AD400K  (2:1) 
		DC.W	1600		;04 AD800K  (2:1)
		DC.W	1600		;06 AD800K  (4:1)
		DC.W	1440		;08 DD720K  (1:1)
		DC.W	2880		;10 HD1440K (2:1)
		DC.W	2880		;12 HD1440K (1:1)
		DC.W	0000		;spare

****************************************************
* DoSetFmt
*
*  Set the format option for the next Format command
*
*  INPUT a format option number	(0..maxfopt)
*
*  OUTPUT : Error messages for conflicts between the
*	    selected option and	media density
****************************************************
DoSetFmt	EQU	*
		lda	cmdcode+1	;hi byte of option zero?
		beq	@10		;yep.
@bcerr		jmp	BadCode
@10		lda	cmdcode		;get format option
		cmp	#maxfopt	;check parm range
		bcs	@bcerr		;its bad.
		and	#01		;is it odd?
		bne	@bcerr		;bad also.
		ldx	unit_num	;parm in range
		lda	cmdcode		;get the option	again
		bne	@15		;specific fmt requested
		lda	#02		;fake an option	so reset works
		sta	FmtOption,x
		jsr	resetFmt	;reset to defaults
		bra	@20		;and reply 'ok'
@15		sta	FMToption,x
		tay
		lda	FmtFlags,y	;get interleave	from table
		lsr	a
		lsr	a
		lsr	a
		lsr	a
		sta	FMTintrlv,x	;save interleave from tbl
		lda	intrlv		;did he	spec something else?
		beq	@20		;nope.
		cmp	#12+1
		bcs	@bcerr
		sta	FMTintrlv,x	;use callers override interleave
@20		equ	*

* later	will need something to verify that the 
* media	can be formatted with the selected option
		stz	reply		;dummy reply
		clc
		rts


****************************************************
* DoFormat
*	 This routine calls the	write track routine for
* every	track on the disk
*
*
****************************************************
DoFormat	jmp	FormatHook
TheFormat:
		lda	#badCmd		;incase	neg unit_num
		ldx	unit_num	;get unit number
		bmi	@err1
		jsr	ClrCacheX	;clear cache for this unit
		lda	#ejct_reset	;clear any dsw status
		jsr	WriteBit	;FMT doesn't report dswerror
		jsr	EnableGCR	;set FCLK and drivType for GCR format
		ldx	unit_num
		jsr	EnblnChk	;enable	local drive and	chk status
@10		bcc	@noerr		;volume	is online 

@err1		jmp	DoErr		;if error, indicate it to host

@noerr		bne	@err1		;if not	0, then	disk is	write protected
* Now setup the ISM with 16M clk and params since this is MFM media
*
* New stuff to handle MFM formatting
		LDA	#$80
		STA	twosided,x
		LDA	#UTfdhd
		BIT	UnitType,X	;is this a FDHD drive?
		bne	@12		;Yes. so it could be MFM format
		lda	FmtOption,x	;is format a GCR choice?
		beq	@11		;yep. the default case
		cmp	#DD720K
		bge	@badFmtOpt	;bad format option for 800K drive!
@11		jsr	@jsrVector	;jsr to a jmp (abs) to clc : rts
		bcs	@badFmtopt	;Media checker reported BAD media!
		bra	@25
@jsrVector	jmp	(MediaChkVect)

@12		LDA	#MediaAdr
		jsr	ReadBit
		bcc	@HDfmts		;drive has HD media so do 2Meg formats
* Setup variables for DD media formatting		
		ldy	FmtOption,x
		cpy	#DD720K		;only 1 1Meg MFM format supported
		bne	@13		;do GCR 800K format
		lda	#Gap3Sz720K
		sta	Gap3Size	;setup for FmtTrack
		lda	#UMmfmDD
		sta	unitmode,x	;setup so motor will be in 1Meg mfm mode
		bra	@20
* Now verify format opt is valid for DD media
@13		cpy	#DD720K
		bcc	@25		;HD fmts are bad if DD media present
@badFmtopt	LDA	#badCtrl	;wrong media type error 
		bra	@err1		;indicate error to host
		
* Setup variables for HD media formatting		
@HDfmts		lda	#UMmfmHD
		sta	unitmode,x	;set this for U35MtrOn to set drive mode
		lda	#02
		sta	Interleave	;set the default mfmHD interleave
		lda	#Gap3Sz1440K
		sta	Gap3Size
		LDX	unit_num
		LDA	FmtOption,X	;default format or specific format?
		BEQ	@20
		CMP	#HD1440K2	
		BEQ	@20
		CMP	#HD1440K1	;1:1 interleave factor?
		bne	@badFmtopt	;yep.

@20		JSR	EnableMFM	;enable MFM drive mode and 16M FCLK
		stz	byte0
		stz	byte1		;for mfm formatter to use
@25		
		jsr	ClrCacheX	;clear this unit from cache
		jsr	U35MtrOn	;turn unified motor on

		jsr	Recal		;start in the right place
		bcs	@IOerr		;can't recal ??

		jsr	WaitRdyTO	;wait until motor up to	speed
		bcs	@IOerr		;Never Ready??

		ldy	unit_num
		ldx	FmtOption,y
		beq	@30		;no Set	Fmt option done
		lda	FMTintrlv,y
		sta	Interleave	;tell fmttrk what interleave
		cpx	#AD400K		;single	sided fmt?
		bne	@30		;nope
		stz	Formsides	
@30		stz	side		;
		stz	cyl

@nxttrack	equ	*
		lda	#3		;3 retries to reformat a trk
		sta	errcnt		;

@nthRetry	jsr	FormatTrk	;write the track
		bcs	@IOerr
		jsr	VerifyTrk	;see if	track is good
		bcc	@verifd		;if not, jump to error
		jsr	DoErr2		;count number of retries
		bcc	@nthRetry	; if we're ok, try again
		bra	@IOerr		;otherwise, indicate an	error

@verifd		bit	Formsides	;single sided format?
		bmi	@40		;no. so do next one

@erasetrk	lda	#$20
		sta	side		;force side 1 for the clear
		
		jsr	ZapGCRtrk	;insure 2nd side is erased in 400K fmt

@40		lda	#$20		;use the bit required by GetGCRAddr!
		eor	side		;invert the side flag for
		sta	side
		bne	@nxttrack	;do the	other side

@newtrk		equ	*
		inc	cyl		;get next track
		lda	cyl		;increment to next track
		cmp	#numtracks	;see if	we've done all the tracks
		blt	@nxttrack	;if not, do some more

		stz	side	
		stz	cyl
		ldx	unit_num
		jsr	resetFmt	;reset Interleave,Formsides,FMToption
		jsr	Recal
		clc
		jsr	MountVol	;
		bcs	@fmterr		;can't rdaddr after fmt
		rts

@IOerr		lda	#IOerror
@fmterr		pha
		ldx	unit_num
		jsr	resetFmt	;reset Interleave,Formsides,FMToption
		jsr	EjectLcl	;eject the sucker
		pla
		jmp	DoErr


************************************************
* ResetFmt
************************************************
ResetFmt	equ	*
		lda	FmtOption,x	;was SetFmt option used?
		beq	@10		;no. leave interleave,sides alone
		lda	#$80
		sta	Formsides	;default GCR is	DS & 4:1
		lda	#04
		sta	Interleave
		stz	FMTintrlv,x	;zero user interleave
		stz	FmtOption,x	;zero means use	default
@10		rts

**********************************************************************
*	Erase Side 1 of single sided 400K fmt disk
**********************************************************************
ZapGCRtrk	bit	mfmFlag
		bmi	@dont
		lda	cyl
		lsr	a
		lsr	a
		lsr	a
		and	#%1110	;class now contains class * 2
		sta	temp
		
		jsr	rdmode
		ldx	temp
		lda	GCRtrkSize+1,x	;hi byte of count to Y
		tay
		lda	GCRtrkSize,x
		tax			;lo byte of count to X
		lda	#$BB
		bit	Q6h		;write prep mode
		sta	Q7h		;write 1st byte
@TrkErase	bit	Q6l
		bpl	*-3
		sta	Q6h		;writ nth byte
		dex
		bne	@TrkErase
		dey
		bne	@TrkErase
		bit	Q7l		;turn write gate off
		bit	Q6l		;back to read mode
@dont		rts
*
* Table of approximate track length for each GCR speed group

GCRtrkSize	DC.w	9620	; .152284 / 16.3398e-6 * 1.03 => 9620
		DC.w	8820	; .139860 / 16.3398e-6 * 1.03 => 8820
		DC.w	8020	; .127118 / 16.3398e-6 * 1.03 => 8020
		DC.W	7220	; .114285 / 16.3398e-6 * 1.03 => 7220
		DC.W	6420	; .101694 / 16.3398e-6 * 1.03 => 6420
		
		eject
**********************************************************************
*	Format Track
**********************************************************************
FormatTrk	equ	*
		bit	mfmFlag
		bpl	@10
		jmp	FmtMFMTrk
@10		jmp	WritTrkHook
;***********************************************
; FmtGCRTrk
;	 This routine tries to write a track of	sectors	filled
; with 0 data bytes.
;
;	 in:
;	   r0L - # of sets of sync bytes to write between sectors
;	     Y - # of sets of sync bytes to write at beginning
;	   sectinfo - set up with info for this	track and sector 0
;	   sectcnt - number of sectors on this track
;
;***********************************************
FmtGCRTrk:
		jsr	seek		;seek to cyl
		jsr	GCRfmtinit	;setup GCR track format
		jsr	waitready	;wait for seek to complete
		stz	error2		;clear error result

* Formatting in	GCR requires extra waiting when
* crossing the speed group boundaries (forget about sprialing) 
		lda	side
		bne	@10		;new tracks occur on side 0

		lda	cyl
		and	#$0F		;speed group boundary?
		bne	@10		;nope.

* extra	delay needed now
		lda	cyl
		lsr	a
		lsr	a
		lsr	a
		lsr	a
		tax
		lda	waittab,x
		jsr	Wait2Ms
@10		jsr	rdmode		;select	head and read mode
		lda	CurNsect
		sta	sectcnt		;setup sector loop counter

* Write	about a	whole sector (1000 nybles) before the Sect 0
* to insure that a re-format leaves no 'old' address marks 
* showing in the track seam
		ldy	#200		;write 200 sync	fields to disk
		lda	#$FF		;
		bit	Q6h		;set IWM (011)
		sta	Q7h		;write a byte to the disk

@wrsync		ldx	#5-1
@wrnxtsy	lda	synctab,x
@w20		bit	Q6l		;see if	we're ready to write
		bpl	@w20		;if not	wait
		sta	Q6h		;
		dex
		bpl	@wrnxtsy
		dey
		bne	@wrsync

** write address marks **
*
		ldx	#4-1		;4 address marks to write
@wradrmrk	lda	adrmarks,x	;get next address mark
@w30		bit	Q6l		;see if	ready
		bpl	@w30		;if not, wait til it is
		sta	Q6h		; and write it to the disk
		dex			;decrement address mark	count
		bpl	@wradrmrk	;if not	done, write the	rest

** write address info **
*
		ldx	#5-1		;5 bytes including the check sum
@wraddr		ldy	sectinfo,x	;get next byte of address
		lda	nibtab,y	;nibblelize data
@w40		bit	Q6l		;see if	ready for next byte to write
		bpl	@w40		;if not, wait til it is
		sta	Q6h		; and write it to the disk
		dex			;decrement address count
		bpl	@wraddr		;if more, do it	up

** write  slip bits, sync bytes, and data marks	**
*
		ldx	#12-1		;12 bytes in all
@wrdtamrk	lda	datamarks,x	;get next data mark
@w50		bit	Q6l		;see if	ready for next byte
		bpl	@w50		;if not, wait til it is
		sta	Q6h		; and write it to disk
		dex			;decrement counter
		bpl	@wrdtamrk	;if still more,	go get em

** write sector	number **
*
		ldx	SectFnd		;get sector number
		lda	nibtab,x	;nibbleize data
@w60		bit	Q6l		;wait till ready
		bpl	@w60
		sta	Q6h

** write data and 4 check sum nybles (699+4=703)
** as 235+234+234 = 703
*
		ldx	#3		;we'll do it in 3 sets
		ldy	#235		;first set is 235 nybles
		bra	@wrdata		;jump to write first set

@loop		ldy	#234		;next 2	sets have 234 nybles
@wrdata		lda	#$96
@w70		bit	Q6l		;see if	ready for next nybl to write
		bpl	@w70		; if not, wait til it is
		sta	Q6h		; to the disk
		dey
		bne	@wrdata

		dex
		bne	@loop

** write slip bits **
*
		ldx	#2-1		;2 slip	bits to	write
@wrslip		lda	bslip2,x	;get next slip bit
@w80		bit	Q6l		;see if	ready  to write
		bpl	@w80		;if not, wait til it is
		sta	Q6h		; and write it to the disk
		dex			;+02 decrement counter
		bpl	@wrslip		;+04 if	more, keep going

** update sector number	**
*
		dec	sectcnt		;+09 see if we've written all sectors
		beq	@done		;+11 if	we have, then we're done  

		lda	SectFnd		;+14 get sector	number
		eor	CSFnd		;+17 lose its effect on	the checksum
		ldy	sectcnt		;+20 index downwards thru intlvtab  
		ldx	intlvtab-1,y	;+24	   (T. Rudin 8Jul91)
		stx	SectFnd		;+27 save sector number
		eor	SectFnd		;+30 use to fix	checksum
		ldy	#$FF		;+32
		sty	Q6h		;+36 prevent under run
		sta	CSFnd		;    update csum for new sector	#

		ldy	#10		;10*4 =40 sync nybles (10 for 7.8336 Mhz FClk)
		jmp	@wrsync		; (GS uses 13 for 7.159 Mhz FCLK )

@done		equ	*
		lda	#$40
		and	Q6l		;read the under	run bit
		eor	#$40
		tsb	error2		;record	error in case

@w90		lda	Q6l		;make sure last	byte gets written out
		bpl	@w90		;

		lda	#$FF		;byte doesn't matter
		sta	Q6H		;

@w99		bit	Q6L		;wait for underrun on turnoff nybl
		bvs	@w99

		bit	Q7l		;turn write off
		lda	error2
		cmp	#01		;return	carry set if underrun
		rts

waittab		DC.B	150,25,25,25,25


;****************************************************
; VerifyTrk
;	 This routine expects to find sector 0 first and then
; to find all the consecutive sectors to following and then to
; find sector 0	again.
;
;	 in:
;	   r0L - nibblized low 6 bits of track
;	   r0H - nibblized high	bit of track number and side number
;	   r1L - nibblized format number
;
;	 out:
;	   C = 1 - ** error ** track is	no good
;
;	 eats:
;	   A,Y
;
;******************************************************
VerifyTrk	jmp	VerifyHook

TheVerify	jsr	wait1ms		;wait for write	turnoff	delay

		lda	#0		;make sure it puts data	in a safe place
		sta	r0L		;
		sta	r2L		;
		lda	#>wrblkadd
		sta	r0H		;
		sta	r2H

		jsr	rdmode		;

		ldx	curNsect	;get number of sectors on this track
		stx	sectcnt		; and save as offset to	sector numbers
@05		stz	sectrtbl,x
		dex
		bpl	@05

@nxtsect	jsr	GetAddr		;get address of	next sector
		bcs	@err		;couldn't find anything

		ldx	SectFnd
		cpx	curNsect
		bge	@swIWMerr

* now check if this one	seen before
		lda	sectrtbl,x
		bmi	@swIWMerr	;yep. something	wrong here
* now mark this	sector
		lda	#$FF
		sta	sectrtbl,x

		jsr	ReadData	;make sure block is ok
		bcs	@err		;

		dec	sectcnt		;seen enough sectors?
		bne	@nxtsect	; if not keep looking

		clc			;good track
		rts
@swIWMerr	jsr	SelectIWM
@err		sec			;set carry to indicate error
		rts


************************************************
* GCRFmtInit
*
*    Init the address mark for this track and
* pre-calcuate the adrs	mark checksum
* with an initial sector number	of zero
*
***********************************************
GCRFmtInit	equ	*
		lda	cyl		;first determine how many sects	on trk
		lsr	a
		lsr	a
		lsr	a
		lsr	a
		tax
		lda	fldlenG,x
		sta	curNsect	;put where setIntrlv needs it

		jsr	SetIntlv	;build the requested interleave 

* Now setup the	address	mark for this track
		lda	cyl
		and	#$3F		;only room for 6 bits of track
		sta	CylFnd

		stz	SectFnd		;first sector is always	Sect 0

* now build the Side byte
		lda	cyl
		and	#$40
		beq	@10
		inc	a		;b0 of Side = b6 of cyl
@10		ldx	side		;side =	0/1
		beq	@20
		ora	#$20		;set the side one bit
@20		sta	SideFnd

* now build the	GCR Fmt	byte
		lda	interleave	;get the input interleave
		bit	formsides	;two sided disk?
		bpl	@30		;no
		ora	#$20		;set the fmt 'two sided' bit
@30		sta	FmtFnd		;contains b0..b4 =interleave b5	=DS

* now calculate	the address info checksum
		eor	SideFnd
* SectFnd is zero. no need to eor with a zero
		eor	CylFnd
		sta	CSFnd		;and save checksum
		rts


**************************************************************
* SetIntLv
*	    Build an interleave	table (max 32)
* in reverse order (sector zero	at hi addrs)
*
* So that the sectcnt can be decremented toward
* zero rather than incremented toward curNsect
* during the writetrk loop
*
*     Input: CurNsect is number	of sectors on the track
*	     Interleave	is the interleave factor (1..12:1)
*
*    Output : example for 4:1 interleave for 10	sec/trk
*
* intlvtab index = 0  1	 2  3  4  5  6	7  8  9	ff ff ff ff
* Physical sector= 7  2	 9  4  6  1  8	3  5  0	    
* usage	order	 = 9  8	 7  6  5  4  3	2  1  0
*
**************************************************************
SetIntLv	equ	*
		lda	interleave
		bne	@10
		lda	#01
		sta	interleave
@10		equ	*
		lda	CurNSect
		dec	a
		dec	a
		cmp	Interleave
		bge	@20
		sta	interleave	;limit intrleave to  sects/trk - 2
@20		ldx	CurNSect	;support up to 32 sec/trk
		inx
		lda	#$FF		;clear the interleave table
@cleartab	sta	intlvtab,x	;
		dex			;
		bpl	@cleartab	;

		ldx	curNsect	;start at last position
		dex			;
		ldy	#0		;  with	sector 0
@savesect	tya			;put sector number in a
		sta	intlvtab,x	;save sector in	this location
		iny			;get next sector
		cpy	curNsect	;see if	that was the last sector
		beq	@done		;  if so, then we're done

		txa			;check position
		sec			;subtract interleave value from	positio
		sbc	interleave	;
		tax			;
@chkbound	bpl	@valok		;if positive then it's ok
		txa			;otherwise, wrap
		clc			;
		adc	curNsect	;
		tax			;if not, save as new position

@valok		bit	intlvtab,x	;see if	there is something there alread
		bmi	@savesect	;if not, save the sector at this pos

		dex			;if something is there already
		bra	@chkbound	;  try next position over

@done		clc
rts55		rts

		eject
**********************************************************************
*
* Format MFM Track
*
**********************************************************************
FmtMFMTrk	JSR	seek
		stz	DDflag
		lda	#AD1440KSectors	;assume HD mfm format
		ldx	unit_num
		ldy	FmtOption,x	;is this a 720K format?
		cpy	#DD720K		;do a DD mfm format
		bne	@11
		lda	#DD720KSectors
		dec	DDflag		;flag this as a 720K format
@11		sta	curnsect	;
		sta	sectcnt
		JSR	setIntlv	;setup interleave table etc
;
		JSR	WaitRdyTO
		BCS	rts55		;return an error
*
* To meet the Sony formatting spec, one must wait extra time on track 0
		LDA	cyl
		BNE	@wtnowait		
		LDA	side
		BNE	@wtnowait
*
		LDA	#150
		JSR	wait2ms		;wait an extra 300ms before 1st track
		LDA	#150
		JSR	wait2ms		;wait an extra 300 ms before 1st track
*
@WTNOWAIT	EQU	*
		JSR	rdmode		;Set the head correctly
		JSR	SelectISM	;switch modes for formatting
* enable write (search for index pulse etc)

		BIT	IsmErrorR
		LDA	#$18
		STA	IsmMode0W
		LDA	#$10
		STA	IsmMode1W	;LIGHTS! enable Write with action OFF
		LDA	#$01
		STA	IsmMode1W
		STA	IsmMode0W	;2+ us clear FIFO toggle
		STA	fmtsect		;set start sector is 1 for MFM volumes
		BIT	IsmErrorR
	
		ldy	#<13620		;.2 secs / 16 us/byte (plus variation) < 13620 
		ldx	#>13620
		bit	DDflag
		bpl	@15
		ldy	#<6810
		ldx	#>6810		; .1 secs / 16 us/byte (plus mtr variance) < 6810
@15		LDA	#GapByte
		STA	IsmDataW	;preload FIFO with 1st two gaper's
		STA	IsmDataW	;preload FIFO with 1st two 
		LDA	#$08		
		STA	IsmMode1W	;ACTION!  (Write Current on NOW!)
		
@waitIndexLo	BIT	IsmHndShR
		BPL	@waitIndexLo
		BEQ	@20
		LDA	#GapByte	;
		STA	IsmDataW	;write a gap byte
		lda	#$08		;get BIT mask back
		dey
		BNE	@waitIndexLo
		dex
		bne	@waitIndexLo
		jmp	NoFmtIndex
	
@20		lda	#GapByte
		sta	IsmDataW	;write a gap byte
		lda	#$08		;get BIT mask back
@waitIndexHi	bit	IsmHndShR
		bpl	@waitIndexHi
		bne	mfmStartFmt
		lda	#GapByte	
		sta	IsmDataW	;write a gap byte
		lda	#$08		;get BIT mask back
		dey
		bne	@waitIndexHi
		dex
		bne	@waitIndexHi
		jmp	NoFmtIndex

; first insure that the Index/Tach adrs is not the lingering phase line setting
; to prevent the Index Pulse cross talk from RdData line to WriteData line problem
mfmStartFmt	lda	#GapByte
		STA	IsmDataW
		LDA	#%11110000	;CA [3210] = 0000
		STA	IsmPhaseW	; select the /DIRTN Drive sense adrs
*
* Write out the index mark ($C2 $C2 $C2 $FC) and following gap
*
		LDX	#Gap4aSize-1	;
		LDA	#gapByte
@10		BIT	IsmHndShR
		BPL	@10		;wait for FIFO empty
		STA	IsmDataW
		DEX
		BNE	@10
*
* Write out sync (pre-index mark)
*
		LDX	#syncSize		;
@20		BIT	IsmHndShR
		BPL	@20		;wait for FIFO empty
		STZ	IsmDataW
		DEX
		BNE	@20
		
		LDX	#03		; three bytes of $C2 Index mark Writes
@30		BIT	IsmHndShR
		BPL	@30
		LDA	#$C2
		STA	IsmMarkW
		DEX
		BNE	@30
		
@40		BIT	IsmHndShR
		BPL	@40
		LDA	#$FC
		STA	IsmDataW	;4th byte of mark is just data write
*
* Index mark has no field or CRC bytes

		LDX	#Gap1Size	;
		LDA	#gapByte
@50		BIT	IsmHndShR
		BPL	@50		;wait for FIFO empty
		STA	IsmDataW
		DEX
		BNE	@50
		BRA	mfmAdrsSync
		
*
* Format a sector Address mark
*
mfmFmtSectLp	EQU	*
		LDX	Gap3Size	;
	
@10		LDA	#gapByte
@20		BIT	IsmHndShR
		BPL	@20		;wait for FIFO empty
		STA	IsmDataW
		DEX
		BNE	@20
		
mfmAdrsSync	LDX	#syncSize		;
@30		BIT	IsmHndShR
		BPL	@30		;wait for FIFO empty
		STZ	IsmDataW
		DEX
		BNE	@30
		
		LDX	#03		; three bytes of $A1 mark Writes
@40		BIT	IsmHndShR
		BPL	@40
		LDA	#$A1
		STA	IsmMarkW	;write 3 adrs Mark bytes
		DEX
		BNE	@40
		
@50		BIT	IsmHndShR
		BPL	@50
		LDA	#$FE
		STA	IsmDataW	; write 4th Adrs Mark byte of $FE

		LDA	cyl		
@55		BIT	IsmHndShR
		BPL	@55
		STA	IsmDataW	;write cylinder
		
		LDA	#00
		ldx	side
		beq	@60
		INC	A
@60		BIT	IsmHndShR
		BPL	@60
		STA	IsmDataW	;write side number
		
		LDA	fmtsect		;
@70		BIT	IsmHndShR
		BPL	@70
		STA	IsmDataW	;write sector
		
@80		BIT	IsmHndShR
		BPL	@80
		LDA	#$02
		STA	IsmDataW	;format (length in 256's)

@90		BIT	IsmHndShR
		BPL	@90
		STZ	IsmCRCW		;This dummy store writes 2 CRC bytes!
*
* Format a Data Field
*
fmtmfmData	EQU	*
		LDX	#Gap2Size		;
		LDA	#gapByte
@20		BIT	IsmHndShR
		BPL	@20		;wait for FIFO empty
		STA	IsmDataW
		DEX
		BNE	@20
		
		LDX	#syncSize		;
@30		BIT	IsmHndShR
		BPL	@30		;wait for FIFO empty
		STZ	IsmDataW
		DEX
		BNE	@30
		
		LDX	#03		; three bytes of $A1 mark Writes
@40		BIT	IsmHndShR
		BPL	@40
		LDA	#$A1
		STA	IsmMarkW
		DEX
		BNE	@40
		
@50		BIT	IsmHndShR
		BPL	@50
		LDA	#$FB
		STA	IsmDataW	;4th byte of Data mark is just data write
		
		LDX	#0
		LDA	#00		;fill with $00 to id as an Apple II formatter
@60		BIT	IsmHndShR
		BPL	@60
		STA	IsmDataW
		DEX
		BNE	@60

@65		BIT	IsmHndShR
		BPL	@65
		STA	IsmDataW
		DEX
		BNE	@65
		
@70		BIT	IsmHndShR
		BPL	@70
		STZ	IsmCRCW		;This dummy store writes 2 CRC bytes!!!
*
* More sectors this track?
*
		dec	sectcnt		; count physical sectors
		beq	@lastsect
		ldy	sectcnt		; n-1 .. 1 (n was done at top by implication)
*
* Need another sector... update the sector number
*
		lda	intlvtab-1,y	; Translate physical to logical sect#
		inc	A		; mfm sectors start at 1 instead of 0
		sta	fmtsect		;
		jmp	mfmFmtSectLp	;Back for next sectors 
*
* Done with last sector
*
@lastsect	equ	*
		lda	#>gap4bSize
		sta	temp
		LDX	#$05
@80		bit	IsmHndShR
		bpl	@80
		lda	#GapByte
		sta	IsmDataW
		dex
		bne	@80		;write 5 gap bytes minimum 

		LDY	#<gap4bSize	
		
@turnIndexOn	LDA	#%11110100	;now turn on index for search
		STA	IsmPhaseW
		ldx	#gapByte
		
@85		lda	IsmHndShR
		BPL	@85
		stx	IsmDataW
		BIT	#%00001000	;found index high yet?
		BNE	@fmtdone	;yep
		DEY
		BNE	@85
		DEC	temp
		BNE	@85
		BRA	noFmtIndex

@fmtdone	AND	#$20		;
		BEQ	@nounder
		LDA	#$34		;write underrun error for debug
		SEC
		BRA	mfmwtexit
@nounder	LDA	#00
		CLC
mfmwtexit	STA	error2		;save where debug is easy
*
* now Back into read mode
		php
		LDA	#$18
		STA	IsmMode0W	;CUT!  (turn write and ACTION off)
		JSR	DeSelectISM
		plp
		RTS
*
* Exit when can't find the Index pulse
noFmtIndex	LDA	#$35
		SEC
		BRA	mfmwtexit		
		

\ No newline at end of file
diff --git a/IIGS.601.SRC/NuMustang/Host.aii b/IIGS.601.SRC/NuMustang/Host.aii
new file mode 100644
index 0000000..7f23cc7
--- /dev/null
+++ b/IIGS.601.SRC/NuMustang/Host.aii
@@ -0,0 +1 @@
+		eject
* "CNxx	HOST FIRMWARE"
*#####################	START UP  ###########################
*## These routines are the ones	first jumped into by the   ##
*## dos	when it	wants the card to do something to the disk ##
*############################################################
		machine	M6502
Host_CnXX_Code	PROC	ENTRY
		WITH	zero_page_template
		WITH	host_zp_template
		IMPORT	iorts
		IMPORT	N0_index
		IMPORT	Bootcode
		IMPORT	CheckRE
		IMPORT	CheckGS
		IMPORT	MvPCparms
		IMPORT	PDparms
		IMPORT	execute
		IMPORT	isIIgs:data
		IMPORT	SndUserTest
		IMPORT	factory_sig_h:data
		
		ENTRY	Fact_sig_copy
		ENTRY	UserPatch
		ENTRY	Bootptch1
		ENTRY	Bootptch2
		ENTRY	GOEntry

CNxx		LDX	#$20		;ID marks for card
		LDX	#$00		;so its	a disk device
		LDY	#$03
		LDA	#$00

		sec
		adc	#$7F		;set the overflow flag to make the next	branch always happen
Bootptch1	BVS	*		;'*' replaced by GoEntry offset, remember +1 for the branch addr byte
UserTestEntry	php			;save interrupt state for //gs
		sei
		bit	$CFFF
		jsr	SndUserTest
DoUserTests	plp			;restore interrupts in case its a GS
		tax			; so control panel and such still works?
UserPatch	beq	UserPatch
		jmp	$CC00		;jump into the test code that should now be there

PDIentry	clc			;Prodos	called
		bcc	PDIbranch	; skip the following SEC

PCIentry	sec			;Protocol converter called (SmartPort)
PDIbranch	CLV			;PDIentry branches to here skipping the	above sec

Bootptch2	BVC	*		;'*' replaced by GoEntry offset, remember +1 for the branch addr byte

GOEntry		php			;save V,I, and C status	bits
		sei			;turn off interrupts
*   the	$CFFF turn off must be done with interrupts off
*   since the interrupt	service	routine	might restore some
*   other card's $C8xx rom space from MSLOT in interrupt restore
		lda	$CFFF		;reset all other I/O Select spaces
		jsr	iorts		;call my own c800 space
		tsx
		lda	$100,x
		sta	mslot_h		;save my $Cn into the proper system byte, for interrupts

		tay			; Y= $CN
		LDX	N0_index-$C1,Y	;X = $N0
		LDA	$C080+02,X	;select	Bank 2 in $C8..CB
		jsr	CheckRE		;check for re entry during command via Interrupt

;save the zero page values into	the hidden, from card, RAM at latch bank $2 
		ldx	#zpgsav
@zsav		lda	g_zpage-1,X
		sta	zsave-1,X
		dex
		bne	@zsav
		plp			;restore interrupts and	V and C	bits 

		LDX	N0_index-$C1,Y	;X = $N0
		LDA	$C080+00,X	;select	Bank 0 in $C8..CB

		BVC	@10		;V bit set is boot flag
		jsr	Bootcode	;if we are, then boot
***>>>> NOTE: this jsr only returns if user Diagnostics are invoked
		beq	DoUserTests	;ALWAYS TAKEN

@10		bit	isIIgs		;is machine type known?
		bpl	@20		;yep. once is enough
		jsr	CheckGS		;preserves carry status
		ldy	mslot_h		;restore Y with	$CN
@20		equ	*
		bcc	PDentry


;*************************************************
; PCentry
;	 This routine finds the	location of the	PC parameters
; and puts the base address for	them in	T1 
;
;  Destorys: A,X,Y
;
;*************************************************
PCentry		equ	*
		pla			;find calling address
		sta	g_DPtr		; and put it in	T0
		pla			;
		sta	g_DPtr+1	;

		ldy	#1		;offset	to command
		lda	(g_DPtr),y	;load command
		sta	g_error		;  store here for awhile

		iny			;move on to command list address
		lda	(g_DPtr),y	;load it and
		sta	g_PPtr		; store	it in g_PPtr
		iny			;get high byte of address
		lda	(g_DPtr),y	;
		sta	g_PPtr+1	;

		iny			;assume	extended SmartPort 
		lda	(g_DPtr),y	; get bank byte	of command list	address

		dey			;y now = 3
		BIT	g_error		;extended SmartPort?
		BVC	@20		;no. bank byte must = zero
		ldy	#05		;Extended SmartPort stack offset 
		BIT	isIIgs		;extended SmartPort in IIgs?
		BVS	@30		;yes. use the bank byte	 
@20		LDA	#00		;force a zero
@30		sta	g_PPtr+2	;  and put it in bank byte of g_PPtr

		tya			;get stack adjust 
		clc			;add to	return address that
		adc	g_DPtr		; was taken off	of stack
		tax			; and put it back on stack
		lda	#0		;
		adc	g_DPtr+1	;
		pha			;
		txa
		pha			;adjust	rtn adrs before	I step on it

		JSR	MvPCparms	;move parms to zero page

		lda	g_cmdnum	;get command again
		and	#$BF		;get rid of extended bit
		cmp	#SPCnt		;see if	it's a legal command

		bcc	docmd

cn_cmderr	lda	#badcmd
		bne	g_aexit
cn_unterr	lda	#badunit
		bne	g_aexit


;********************************************************
; PDentry:
;	 This routine looks at the prodos command and calls
; the appropriate routine for handling it.
;
;	 in: command <-	zero page location where prodos	command	resides.
;
;    destorys: all
;
;*******************************************************
PDentry		equ	*
		lda	command		;get prodos command
		cmp	#PDCnt		;see if	command	is legal
		bcs	cn_cmderr	;otherwise, indicate bad command

		jsr	PDparms		;Convert ProDOS	parms to SP

		LDA	g_cmdnum
		CLC
		ADC	#SPCnt+$80	;shift set b7 out as carry
* Now fall into	do the command
*  |		|	    |
*  v		v	    v
**************************************************
*
*   INPUT : A =	dispatch #  0..SPCnt+3
*		SmartPort = 00..SPcnt-1
*	       XSmartPort = 00..SPcnt-1
*	    ProDOS BlkDev = SPCnt..SPCnt+3
**************************************************
docmd		equ	*
		jsr	execute		;A-reg = command number

**********************************
*
**********************************
g_exit		EQU	*
		lda	g_error		;get error result from zpage
g_aexit		equ	*
		pha
		lda	xrtn
		pha
		lda	yrtn
		pha
		ldy	mslot_h		;get $Cn
		LDX	N0_index-$C1,Y	;X = $N0
		LDA	$C080+02,X	;select	Bank 2 in $C8..CB

		ldx	#00
@10		ldy	zsave,X		;get saved zero	page byte
		sty	g_zpage,X	;put original zpage back
		inx
		cpx	#zpgsav
		blt	@10
		lda	#00
		sta	reEntryFlag	;reentry now legal again
* setup	register results for caller
		pla
		tay
		pla
		tax
		pla
		cmp	#01		;set carry if any error
		ora	#00		;set z & n as needed
		rts
**********************************************************************
*
**********************************************************************
Fact_sig_copy	ldy	#15
@lp		lda	$C100,y
		bit	$CFFF
		sta	factory_sig_h,y
		dey
		bpl	@lp
		rts



**************************************************
* ProDOS Block Device and Protocol Converter
*    Interface signature & info	bytes
**************************************************
endNspc		EQU	*
		DCB.B	256-5-(endNspc-Host_CnXX_Code),$00 ;fill almost	to end of the page
		DC.B	SmartSig	;$CnFB,	smartport type is Xtended + additionals
		DC.W	$0000		;use status call to get	block size
		DC.B	%10111111	;ProDOS	Block Device signature (type)
			;||||||||___bit 0 device's status can be read (must be on)
			;|||||||____bit 1 device can be read from (must be on)
			;||||||_____bit 2 device can be written to
			;|||||______bit 3 device supports formatting
			;||\|_______bit 5-4 number of volumes on the device (0-3),2 for us
			;||_________bit 6 device is interruptable
			;|__________bit 7 Medium is removable
		DC.B	PDIentry-Host_CnXX_Code	;offset	of PDIentry in CNxx firmware

CnXX_length	EQU	*-Host_CnXX_Code ;generate the length of this proc
		if	(CnXX_length	<> 256)	then
		aerror	'!!! Host_CnXX_Code segment is not equal to 256 bytes !!!'
		endif

		ENDP


Host_ROM_code	PROC	ENTRY,TEMPORG	Host_CA00_code_start ;host $C800 'ROM' space 
		WITH	zero_page_template
		WITH	host_zp_template
		ENTRY	iorts
		ENTRY	N0_index
		ENTRY	Bootcode
		ENTRY	CheckGS
		ENTRY	MvPCparms
		ENTRY	PDparms
		ENTRY	execute
		ENTRY	isIIgs
		ENTRY	SndUserTest
		ENTRY	CheckRE

* $C8..$CB code	must NOT switch	banks since it resides only in RAM bank 0 

;Page2tables
CARomAdrs	equ	*
;******************************************
; CheckGS
;	 This routine attempts to determine
; whether or not the machine is	a //GS.
;
;	 in: none
;	 out: isIIgs = $40 if is a IIgs
;	      isIIgs = 0 if not	a IIgs
;    Destorys: A,X
;   Preserves: Carry status
;
;****************************************
CheckGS		php
		sei
		lda	StateReg	;save state register in	case it	is
		pha

		ldx	#10
@chkstate	eor	#$0E		;toggle	bits
		sta	StateReg	; and try to save them
		cmp	StateReg	;see if	they were saved
		bne	@nostate	;if not, this can't be a GS
		dex
		bne	@chkstate	;check 10 times
		pla			;restore state register
		sta	StateReg	;

		lda	IDByte1		;is it GS or Enhanced //e
		cmp	#$06		;
		bne	@notGS		;if not, then not a GS

		lda	IDByte2		;try another ID	byte
		cmp	#$E0		;
		bne	@notGS		;

		sec			;call machine ID routine
		jsr	MachineID	;
		bcs	@notGS		;it was	an Enhanced //e
	
		lda	#$7F		;indicate a IIgs
		bne	@setflag
@noState	pla
@notGS		lda	#$7E
@setflag	bit	h_msg
		bpl	@setflag	;wait for card to be ready for cmds
		sta	h_msg		;tell card CPU to set the isIIgs flag for me

@waitforclr	bit	h_msg		;wait for acknowledge from card
		bpl	@waitforclr

		plp			; restore carry	status
		rts


**********************************
*
* Move SmartPort Parameters to 
* zero page
**********************************
MvPCParms	bit	g_error		;extended SmartPort?
		bvs	@50		;yes.

* Now do split block move of Std SP parms to zero page
		ldy	#08		;no. Std SmartPort
@10		tax			;save prior store 
		lda	(g_PPtr),Y
		dey
		bmi	@40
		cpy	#4-1		;y is now 1 less than lda index
		bcc	@20
		sta	g_DPtr+2+1,Y	;parm(8,7,6,5,4) -> zpage(10,9..6)
		bcs	@10		;ALWAYS	TAKEN
@20		sta	g_DPtr+1,Y	;parm(3,2,1) ->	zpage(3,2,1)
		bcc	@10		;ALWAYS	TAKEN
@40		iny			;y now = 0
		sty	g_DPtr+1+3	;zero 3rd Ptr byte for 816
		sty	g_DPtr+11	;zero 4th adrs byte
		beq	@90		;ALWAYS	TAKEN. all done

* Now copy Extended SmartPort Parms (11..1)
@50		ldy	#11
@55		TAX			;save prior store
		bit	isIIgs		;do I have an 816?
		bvs	@70		;yes do	LDA [g_PPtr]
@60		lda	(g_PPtr),Y	;no. Extended SP in IIe/II+
		bvc	@75
@70		DC.B	$B7		; LDA [g_PPtr],Y
		DC.B	g_PPtr
@75		dey
		bmi	@90
		sta	g_DPtr+1,Y
		bpl	@55		;always	taken

* Now A-reg = ParmCount	& X-reg	= unitnum
* and g_error =	cmdnum
@90		ldy	g_error		;get g_cmdnum 
		sta	g_error		;save the parm count
		lda	g_DPtr+2
		sta	g_DPtr
		lda	g_DPtr+3
		sta	g_DPtr+1
		lda	g_DPtr+4
		sta	g_DPtr+2
		stx	g_unitnum
		sty	g_cmdnum
		rts


* "Command Dispatch Tables
**********************************************
* Protocol Converter & ProDOS Block Device
*	  Command Address Tables
**********************************************
cmdadrL		EQU	*
		DC.B	PCStatus-Host_ROM_code-1+Host_CA00_code_start and $FF
		DC.B	ReadBlk-Host_ROM_code-1+Host_CA00_code_start and $FF
		DC.B	WriteBLk-Host_ROM_code-1+Host_CA00_code_start and $FF
		DC.B	FormatVol-Host_ROM_code-1+Host_CA00_code_start and $FF
		DC.B	PCCtrl-Host_ROM_code-1+Host_CA00_code_start and	$FF
		DC.B	PCInit-Host_ROM_code-1+Host_CA00_code_start and	$FF
		DC.B	Open-Host_ROM_code-1+Host_CA00_code_start and $FF
		DC.B	Close-Host_ROM_code-1+Host_CA00_code_start and $FF
		DC.B	ReadBytes-Host_ROM_code-1+Host_CA00_code_start and $FF ;read bytes
		DC.B	WriteBytes-Host_ROM_code-1+Host_CA00_code_start	and $FF	;write bytes
		DC.B	SetFmtOpt-Host_ROM_code-1+Host_CA00_code_start and $FF ;set format option
		DC.B	GetFmtOpt-Host_ROM_code-1+Host_CA00_code_start and $FF ;get format option

		DC.B	PDstatus-Host_ROM_code-1+Host_CA00_code_start and $FF
		DC.B	ReadBlk-Host_ROM_code-1+Host_CA00_code_start and $FF
		DC.B	WriteBlk-Host_ROM_code-1+Host_CA00_code_start and $FF
		DC.B	FormatVol-Host_ROM_code-1+Host_CA00_code_start and $FF

cmdadrH		EQU	*
		DC.B	((PCStatus-Host_ROM_code-1+Host_CA00_code_start) È 8)
		DC.B	((ReadBlk-Host_ROM_code-1+Host_CA00_code_start)	È 8)
		DC.B	((WriteBLk-1-Host_ROM_code-1+Host_CA00_code_start) È 8)
		DC.B	((FormatVol-1-Host_ROM_code-1+Host_CA00_code_start) È 8)
		DC.B	((PCCtrl-1-Host_ROM_code-1+Host_CA00_code_start) È 8)
		DC.B	((PCInit-1-Host_ROM_code-1+Host_CA00_code_start) È 8)
		DC.B	((Open-1-Host_ROM_code-1+Host_CA00_code_start) È 8)
		DC.B	((Close-1-Host_ROM_code-1+Host_CA00_code_start)	È 8)
		DC.B	((ReadBytes-1-Host_ROM_code-1+Host_CA00_code_start) È 8)
		DC.B	((WriteBytes-1-Host_ROM_code-1+Host_CA00_code_start) È 8)
		DC.B	((SetFmtOpt-1-Host_ROM_code-1+Host_CA00_code_start) È 8)
		DC.B	((GetFmtOpt-1-Host_ROM_code-1+Host_CA00_code_start) È 8)

		DC.B	((PDstatus-1-Host_ROM_code-1+Host_CA00_code_start) È 8)
		DC.B	((ReadBlk-1-Host_ROM_code-1+Host_CA00_code_start) È 8)
		DC.B	((WriteBlk-1-Host_ROM_code-1+Host_CA00_code_start) È 8)
		DC.B	((FormatVol-1-Host_ROM_code-1+Host_CA00_code_start) È 8)

parmtbl		equ	*
		DC.B	$03,$03,$03,$01
		DC.B	$03,$01,$01,$01
		DC.B	$04,$04,$03,$03
		DC.B	$FF,$FF,$FF,$FF


* SBTL "PR#n BOOT ROUTINE"
****************************************************
*
* BOOT ROUTINE
*
****************************************************
Bootcode	stx	g_devndx	;must be setup for WtRdData
		jsr	CheckGS		;set isIIgs flag
		lda	#0
		sta	$4E		;zero the timeout counter
		sta	$4F
		
		ldx	#03		;need 3 Control-D's 
		stx	$3C

		ldy	$FBB3		;do cpu have AKD flag? (= $06 if any IIe/IIgs)
		cpy	#$06
		beq	@03
* for a II+ just check the key latch
		lda	$C000		;is there a Control-D at beginning
		ora	#$80		;since monitor clears the keystrobe before boot'n me
		bmi	@gotakey	;ALWAYS TAKEN
* any cpu with ADK flag must have some key down to qualify for these checks
@03		bit 	$C010		;any key down? two plus doesn't have this flag!
		bpl	@09		;no
		bmi	@waitautorep

@05		sta	$C010		;clear the a Control-D keypress
@waitautorep	lda	$c000
		bmi	@gotakey	
		cpy	#06
		bne	@07
		bit	$C010
		bpl	@09		;any-key-down went up! so forget this noise
@07		inc	$4E
		bne	@waitautorep
		inc	$4F
		bne	@waitautorep
		dec	$3C
		bne	@waitautorep
		beq	@09		;didnt find enought Control-D's to do it
@gotakey	cmp	#$84		;is it a Control-D?
		bne	@09		;nope. so forget it
		dex
		bne	@05		;yep. have I found enough of em yet?
* NOW I have seen enough Control-D's to invoke userTest diagnostics
		php
		sei		;interrupts now disabled
		pla
		tay		;save pre SEI interrupt state in Y
		pla
		sta	$4e	;get rtn low off
		pla
		sta	$4f	;get rtn hi off
		tya
		pha		;put P on behind rtn adrs (only use N6502 opcodes!!)
		lda	$4f
		pha
		lda	$4e
		pha
		jmp	SndUserTest	;which will return to CNxx and branch
		
@09		ldx	#03		;wait 3	s in //e; 1 sec	in //gs
@10		lda	h_msg
		bmi	@20		;no waiting to boot: card ready
		inc	$4E
		bne	@10		;(14 cyc * 256
		inc	$4F		;+4
		bne	@10		;+7) * 256 = 919xxx cycles
		DEX			;* 3 = about 3 secs in //e: 1 in IIgs 
		bne	@10		;'card never came ready' boot failure
		lda	#$30		;device	didn't respond
		sta	g_error
		bne	@30
********************************
@20		lda	#$FF
		sta	h_reply		;insure	handshake starts ok
		lda	#00
		sta	h_parms+1	;set unit 0 for	boot
		lda	#$81
		sta	g_cmdnum	;look like a read cmd
		lda	#ldblk0		;try to	get blk	0000 from boot device
		sta	h_msg		;if we got it, try to run it
		lda	#8		;set up	read buffer
		sta	g_DPtr+1	;
		lda	#0		;
		sta	g_DPtr		;
		sta	g_DPtr+2	;incase	I am in	a IIgs

		jsr	WtRdData	; wait for Read	Data

		ldx	g_devndx	;get $N0 into x for bootstrap block code
		cmp	#01		;any error?
		bcs	@30		;if block was good, use	it
**********************************************************************
* This routine makes zero page look like a ProDOS Block Device Protocol
* Read of drive zero into $800 for block zero
*
* A compatability fix for third party hack version of DOS 3.3
**********************************************************************
		lda	#01
		sta	command
		stx	unitnum
		lda	#$08
		sta	buffaddr+1
		lda 	#00
		sta	buffaddr
		sta	dskblk
		sta	dskblk+1
**********************************************************************
		lda	$800		;do some additional checks on the block
		cmp	#01		;see if	first byte is a	1
		bne	@30		;if not, can't boot
		lda	$801
		beq	@30		;it can't be a break opcode!

		lda	#00
		bit	isIIgs
		bvc	@25		;leave IIgs register alone
		sta	Shadow
@25		jmp	$801		;with $N0 in X
@30		equ	*
		stx	g_devndx
		jmp	BootFail


******************************************************
* ReMapErr
*
*  This	routine	remaps errors from slave firmware
*  into	those acceptable to the	calling	protocol
*
*  INPUT A = error code	to map
*	 cmdmode_b7b6 =	$8x=ProDOS,$4x=ExtSP,$0x=SP
*  OUTPUT A = new error	code
* 
* ProDOS only wants to see
* $27 IOerror
* $28 NoDrive
* $2B NoWrite
* $2F Offline
* All other hard errors	are mapped to IOerror
******************************************
ReMapErr	equ	*
		bit	g_cmdnum	;is it ProDOS call?
		bpl	@90		;no.	leave em alone for SP calls
		cmp	#00
		beq	@90		;no error to fix
		cmp	#NoWrite	;is it musketeer # 1?
		beq	@90
		cmp	#NoDrive	;#2 perhaps?
		beq	@90
		cmp	#Offline	;mabye its #3??
		beq	@90
		cmp	#BadUnit
		bne	@10
		lda	#NoDrive
		rts
@10		lda	#IOerror	;remap all (Gross me completely	out)
@90		rts
**********************************************************************
*
**********************************************************************
FixPDStsErr	cpy	#%10000		;is it Online and Not Write Protected?
		beq	@20		;yes. error already is zero
		lda	#$2B
		cpy	#%10100		;is it online and WP?
		beq	@10		;yes. return WP error
		lda	#$2F		;else return offline error
@10		sta	h_error		;change the a-reg returned to user
@20		rts

********************************************
* fill up to end of $CB	page
* so Execute is	justified to end of page
********************************************
		DCB.B	Host_CC00_code_start-Host_CA00_code_start-$2C-(*-Host_ROM_code),$00 ;EProm fill	please
par_err		lda	#badPCnt
		sta	g_error
		rts


*******************************************
* Command Dispatcher
* 
*   INPUT : A-reg = command # (0..14)
*	    Y-reg = $CN
*	    X-reg = $N0+$88
*******************************************
execute		
		ldy	mslot_h		;Y = $CN
		ldx	N0_index-$C1,Y	;X=$N0
		stx	g_devndx	;save device index
		tax			;cmd index to X
		lda	parmtbl,X	;need to check parm cnt?
		bmi	@10		;no
		cmp	g_error		;does it match saved parm_cnt?
		bne	par_err
@10		lda	cmdadrh,X
		pha
		lda	cmdadrl,X
		pha
		LDA	#00
		STA	g_error
		STA	yrtn
		STA	xrtn
		ldx	g_devndx
		jsr	Notifier	;call the GS/OS notifier "user" routines
* Now fall across the boundary to non bank switched
* firmware to do a bank	switch
		if	((*-Host_ROM_code) <> Host_CC00_code_start-Host_CA00_code_start) THEN 
		aerror	'!! ERROR - Host $CC00 code is not positioned correctly !!'
		endif

		lda	$C080+00,X	;switch	in bank 0. NEXT instr opcode must be at $CC00!
@wait		lda	h_msg		;is card CPU ready for cmd?
		bpl	@wait		;no. wait till it is
IORTS		rts			;go execute command

isIIgs		dc.b	$80		;this is changed to $40 for IIgs and $00 otherwise


* 'ProDOS/SmartPort Routines'  
;**************************************************
; Formatvol 
;	 This routine sends the	format command and the
;	 unit number to	the card  stalls until cmd done
;*************************************************
Formatvol	equ	*
Open		equ	*		;send it thru in case Remote unit
Close		equ	*		;send it thru in case remote unit
		jsr	SndCmd		;and send cmd to card
		CLC			;wait for error	code return
		jmp	retrn


;***************************************************
; PDstatus
;	 This routine sends the	status command and the
; unit number to the 65c02 card	and then waits for a reply.
;
;	 out: A	<- status
;	      X <- length of status data (low)
;	      Y <- length of status data (hi)
;
;****************************************************
PDstatus	equ	*
		lda	#00		;do a PC status	code zero call
		sta	g_code		;can't use stz cuz its C02
		jsr	SndCmd		; and send it to the card

@wait1		lda	h_reply		;load the reply
		bmi	@wait1		;if isn't in yet, wait
		beq	@90		;invalid reply so exit (no wait)

		jsr	GetCDAdr	;get address of	status result

		ldy	#2		;offset	to byte count
		lda	(g_PPtr),y	;get byte count hi
		sta	yrtn
		dey
		lda	(g_PPtr),Y	;get byte count lo
		sta	xrtn
		dey
		lda	(g_PPtr),Y	;get status byte
		and	#%10100		;preserve Online and WP bits only
		tay
		ldx	g_devndx
		lda	$C080+00,x	;switch in Bank zero
		jsr	FixPDStsErr	;Y = status [$10 / $14 / $0X]
@90		jmp	return		;no wait exit


;****************************************************
; PCStatus 
;
;	 This routines ask card	for a status report
;	 and move the resulting	data to	users buffer
;**************************************************
PCStatus	equ	*
ReadBytes	equ	*
GetFmtOpt	equ	*
		lda	g_xfrcnt
		sta	h_xfrcnt
		lda	g_xfrcnt+1
		sta	h_xfrcnt+1

		JSR	SndCmd		;send command
@10		lda	h_reply		;load reply
		bmi	@10		;if negative, then no reply at all
		beq	@90		;zero means error in parms

		ldx	h_xfrcnt
		stx	xrtn		;return	the length in x,y
		ldx	h_xfrcnt+1
		stx	yrtn

		jsr	GetCdAdr	;switch	bank, and put addr   
;			  $C800/CA00 of	ram block in g_PPtr
		ldx	yrtn		;any full pages	to move?
		beq	@30		;nope.
		sec			;move x	pages
		jsr	ReadXBP
@30		ldx	xrtn		;any bytes left	to move?
		beq	@90		;no.
		clc
		jsr	ReadXBP		;move x	bytes
@90		jmp	return		;no wait return


************************************************
* MoveXBP
*  INPUT : X = byte or page count
*	   C = 1 for page move
*	   C = 0 for byte move
*
* No instruction in the	loop may change	the Carry!
************************************************
ReadXBP		EQU	*
		ldy	#00
@30		lda	(g_PPtr),Y	;get data from card ram
		bit	isIIgs		;is 816	available
		bvc	@40		;no. do	6502 sta

		DC.B	$97		; sta [g_DPtr],Y
		DC.B	g_DPtr
		bvs	@50		;(can't use bra)
@40		equ	*
		sta	(g_DPtr),y	;and store it in callers buffer

@50		iny			;increment pointer to next byte
		bcc	@60		;C=1 means pages C=0 means bytes
		bne	@30		;loop until page done
		inc	g_PPtr+1	;move src ptr up a page
		inc	g_DPtr+1	;move Dst ptr up a page
		bne	@60		;
		inc	g_DPtr+2	;move Dst ptr up a bank	IFF
@60		dex			;decrement buffer size counter
		bne	@30		;if buffer no empty, get some more
		rts


***********************************************
*
* PCWriteBytes
*
***********************************************
WriteBytes	equ	*
* parameters have the length for slave to check
		lda	g_xfrcnt
		sta	h_xfrcnt
		pha			;push low 1st
		lda	g_xfrcnt+1
		sta	h_xfrcnt+1
		pha			;push hi 2nd (pull 1st)
		jmp	WaitXYWrit


***********************************************
*
* PCCtrl
*
***********************************************
PCCtrl		equ	*
* Now extract the length from CTRL data	list
		ldy	#00
		bit	isIIgs
@15		bvc	@20
		DC.B	$B7		;lda [g_DPtr],Y	;get length
		DC.B	g_DPtr
		bvs	@25
@20		lda	(g_DPtr),Y
@25		sta	h_xfrcnt,y	;tell slave how	much
		pha			;save on stack
		iny
		cpy	#01		;low 1st Then hi
		beq	@15		;branch	once

		lda	g_Dptr
		clc
		adc	#02
		sta	g_Dptr
		bcc	@30
		inc	g_Dptr+1
		bne	@30
		inc	g_Dptr+2
@30		equ	*		;fall into WaitXYWrit


*****************************************************
* WaitXYWrit 
*****************************************************
WaitXYWrit	equ	*
		Jsr	SndCmd		;send the CTRL/WriteBytes cmd over

@10		lda	h_reply		;load reply
		bmi	@10		;if negative, then no reply at all
		beq	@95		;bad cmd/parms so clr stack & exit

		jsr	GetCdAdr	;switch	bank, and put addr   
;			  $C800/CA00 of	ram block in g_PPtr
		pla			;(pull hi 1st) any full	pages to move?
		tax			;can't use plx cuz its C02 opcode
		beq	@30		;nope.
		sec			;move x	pages
		jsr	WritXBP
@30		pla			;(pull lo 2nd) any bytes left to move?
		tax			;can't use plx cuz its C02 opcode
		beq	@90		;no.
		clc
		jsr	WritXBP		;move x	bytes
@90		clc
		jmp	retrn		;wait for error	code 
@95		pla
		pla			;clear lgth from stack
		jmp	Return		;no wait. error	code already stored


************************************************
* WritXBP
*  INPUT : X = byte or page count
*	   C = 1 for page move
*	   C = 0 for byte move
*
* No instruction in the	loop may change	the Carry!
************************************************
WritXBP		EQU	*
		ldy	#00
@30		bit	isIIgs		;is 816	available
		bvc	@40		;no. do	6502 lda

		DC.B	$B7		; lda [g_DPtr],Y
		DC.B	g_DPtr
		bvs	@50		;(can't use bra cus of II+'s)
@40		lda	(g_DPtr),Y	;get C02 data
@50		sta	(g_PPtr),y	;and store it in slave ram

		iny			;increment pointer to next byte
		bcc	@60		;C=1 means pages C=0 means bytes
		bne	@30		;loop until page done
		inc	g_PPtr+1	;move dst ptr up a page
		inc	g_DPtr+1	;move src ptr up a page
		bne	@60		;
		inc	g_DPtr+2	;move src ptr up a bank	IFF
@60		dex			;decrement buffer size counter
		bne	@30		;if buffer no empty, get some more
		rts
**********************************************************************
*	SetFmtOptions
*
*	INPUT	:g_DPtr points to one or two words
**********************************************************************
SetFmtOpt	equ	*
* Now extract the length from CTRL data	list
		lda	#00
		ldx	g_XfrCnt	;sets the Z flag for beq below!
		sta	g_Code
		sta	g_Code+1
		sta	g_Code+2
		sta	g_Code+3	;tell slave to select the defaults
		beq	@90		;no parameters given so send all zeros
		cpx	#05
		bcc	@10
		ldx	#04		;transfer max of 4 bytes
@10		ldy	#00
@15		bit	isIIgs
		bvc	@20
		DC.B	$B7		;lda [g_DPtr],y
		DC.B	g_DPtr
		bvs	@25
@20		lda	(g_DPtr),y
@25		sta	g_Code,y
		iny
		dex
		bne	@15
@90
*		FALL THRU to SndCmd to slave
*		|	|
*		v	v
***********************************************
*
* PCInit
*
***********************************************
PCInit		equ	*
		Jsr	SndCmd		;send the INIT/SetFmtOpt cmd to card

		clc
		jmp	retrn		;and wait for error code


* "HOST	SERVICE	& SUPPORT ROUTINES"     
;***************************************************
; GetCdAdr
;
;	 This routine selects the input	Card RAM buffer
; into the host	$C8xx..$CBFF window and 
; creates the address for the buffer ($C800/$CA00) in g_PPtr
;
;   INPUT :  A <- ram buffer number (0..31) 
;
; Destorys:  X,	Y regs
;
;  OUTPUT :  RAM buffer	selected and pointer in	g_PPtr
;	     g_PPtr <- addr of ram buffer in window
;
;***************************************************
GetCdAdr	equ	*
		and	#$1F		;insure that address in in range for my slot
		lsr	a		;drop buffer in	bank bit (0..$1F in A)
		php			;save buffer posn bit
		clc
		adc	g_devndx
		tax
		LDA	$C080,X		;select	bank without false read

		lda	#$00		;clear other bytes of address
		sta	g_PPtr+0	;

		plp			;recover lsbit
		rol	a		;shift carry into b0
		asl	a		;make it 0 or 2	(also does CLC)
		adc	#$C8		;result	is $C8 or $CA
		sta	g_PPtr+1	;save page adrs	of buffer
		rts


;************************************************
; Read a block for ProDOS/SmartPort/XSmartPort
;
;*************************************************
ReadBlk		equ	*
		jsr	SndCmd		; send g_cmdnum,g_dskblk,g_unitnum


;**************************************************
; WtRdData:
;	 This routine waits for	a h_reply from the card.
;  The reply indicates which ram block the requested data
;  has been put	into.  This routine calculates where that
;  ram block is, and then move the data	from that block	into
;  the dos buffer.
;
;	 in:  g_DPtr <-	address	of dos buffer
;
;	 eats: A,X,Y
;
;**************************************************
WtRdData	equ	*
@wait		lda	h_reply		;see if	65c02 card has replied
		bmi	@wait		;if not, keep waiting
		bne	@05		;no wait error in cmd/parms
		lda	h_error
		jmp	@90		;
		
@05		jsr	GetCdAdr	;use block number to move us into the
;			  correct bank with g_PPtr = addr of blk
		ldx	#2		;number	of pages to load
		ldy	#0		;offset	into page of buffers

		BIT	isIIgs		;see if	this is	a IIgs
		bvs	@IIgsLoop	;if is,	do 65816 fast stuff

@shrtmove	lda	(g_PPtr),y	;get next byte from card ram
		sta	(g_DPtr),y	; and store it into prodos buffer

		iny			;increment offset
		bne	@shrtmove	;if not	on a page boundary, continue

		inc	g_PPtr+1	;move to next page
		inc	g_DPtr+1	;
		dex			;decrement page	counter
		bne	@shrtmove	;if another page, load it in

@90		sec
		jmp	rtn512		;go finish up before returning
		
		machine M65816
		longa	off
		longi	off

@IIgsLoop:		
		clc			
		xce			;switch to native
		php			;save emulation state
		lda	cyareg
		pha
		ora	#$80
		sta	cyareg		;switch to fast speed

		lda	#$02
		bit	g_PPtr+1	;is it $C8 bufr or $CA bufr
		rep	#$20
	longa	on			;16 bit accum Mode
		bne	@doCAbufr	; it the upper half
		
@10		lda	$C800,y		;get data from card
		sta	[g_DPtr],y	; and put it in	the GS buffer
		iny			
		iny			
		lda	$C800,y		;get data from card
		sta	[g_DPtr],y	; and put it in	the GS buffer
		iny			
		iny			
		bne	@10		;if not	on page	boundary, continue

		inc	g_DPtr+1	;increment high	2 bytes of g_DPtr

@20		lda	$C900,y		;get data from card
		sta	[g_DPtr],y	; and put it in	the GS buffer
		iny			
		iny			
		lda	$C900,y		;get data from card
		sta	[g_DPtr],y	; and put it in	the GS buffer
		iny			
		iny			
		bne	@20		;if not	on page	boundary, continue
		beq	@done		;can't use BRA cuz its C02

@doCAbufr:
@30		lda	$CA00,y		;get data from card
		sta	[g_DPtr],y	; and put it in	the GS buffer
		iny			
		iny			
		lda	$CA00,y		;get data from card
		sta	[g_DPtr],y	; and put it in	the GS buffer
		iny			
		iny			
		bne	@30		;if not	on page	boundary, continue

		inc	g_DPtr+1	;increment high	2 bytes of g_DPtr

@40		lda	$CB00,y		;get data from card
		sta	[g_DPtr],y	; and put it in	the GS buffer
		iny			
		iny			
		lda	$CB00,y		;get data from card
		sta	[g_DPtr],y	; and put it in	the GS buffer
		iny			
		iny			
		bne	@40		;if not	on page	boundary, continue
		
@done		sep	#$30
	longa	off
		pla
		sta	cyareg		;switch speed back
		plp
		xce			;restore emulation mode
		machine M6502
		sec			;no wait return
		jmp	rtn512


;***************************************************
; Write	Block for ProDOS/SmartPort/XSmartPort
;***************************************************
WriteBlk	equ	*
		jsr	SndCmd		; pass g_cmdnum,g_dskblk,g_unitnum

;*******************************************************
;  LdWrBlk
;	 This routine claims the oldest	ram block and then
; moves	the data to be written to the disk from	the dos	buffer
; into this ram	block.
;    **	this routine must reside in every bank	**
;
;	 in: g_DPtr <- dos buffer address
;
;	 out: ramblk <-	ram block number of data to be written
;
;	 eats: A,X,Y
;
;*******************************************************
@10		ldx	h_reply		;wait til card gives us	the ram	block #
		bmi	@10		;if FF,	then it	hasn't been sent yet
		bne	@15
		jmp	return		;cmd/parms error!

@15		lda	h_syncflag	;time to sync?
		php
		bpl	@20
		sei			;turn off interrupts if syncronous WritePrep by slave
		lda	#$C0
		sta	h_syncflag	;interrupts are now off so delay and go
@20		txa
		jsr	GetCdAdr	;switch	bank and setup addr of ram blk
		
		ldy	#0		;offset	to position in buffers

		BIT	isIIgs		;see if	we're a IIgs
		bvs	lwIIgs		;if we are, then do 65816 block	move
		plp			;restore interrups now for IIe case

		ldx	#2		;number	of pages to load
@shrtmove	lda	(g_DPtr),y	;get byte from prodos buffer
		sta	(g_PPtr),y	; and put it in	card ram

		iny			;increment offset
		bne	@shrtmove	;if not	at a page boundary, continue

		inc	g_DPtr+1	;move to next page (4 byte problem?)
		inc	g_PPtr+1	; in both buffers
		dex			;decrement page	counter
		bne	@shrtmove	;if another page, do it	up

		jmp	Wrtn512		;finish	up (no bra allowed)

lwIIgs:
		machine	M65816
		longa	off
		longi	off
		
		clc			
		xce			;switch to native
		php			;save emulation state
		lda	cyareg
		pha
		ora	#$80
		sta	cyareg		;switch to fast speed
		phx			;save buffer's bank on stack
		lda	#$02
		bit	g_PPtr+1	;is it $C8 bufr or $CA bufr
		rep	#$20
		longa	on		;16 bit accum
		bne	@doCAbufr	; it the upper half
		

@10		lda	[g_DPtr],y	;
		sta	$C800,y		;  and put it in card buffer
		iny
		iny			;increment offset
 		lda	[g_DPtr],y	;
		sta	$C800,y		;  and put it in card buffer
		iny
		iny			;increment offset
		bne	@10		;if not	on page	boundary, continue

		inc	g_DPtr+1	;increment high	2 bytes of g_DPtr
		
		sep	#$20
		longa	off
		ldx	g_devndx
		lda	$C080+0,x	;switch back to bank zero
		inc	h_syncflag
		plx			;816 has this opcode
		lda	$C080+0,x	;switch back to buffer's bank
		rep	#$20
		longa	on

@20		lda	[g_DPtr],y
		sta	$C900,y
		iny
		iny
		lda	[g_DPtr],y
		sta	$C900,y
		iny
		iny
		bne	@20
		beq	@done		;NO BRA's allowed cuz its C02

@doCAbufr:
@30		lda	[g_DPtr],y	;
		sta	$CA00,y		;  and put it in card buffer
		iny
		iny			;increment offset
 		lda	[g_DPtr],y	;
		sta	$CA00,y		;  and put it in card buffer
		iny
		iny			;increment offset
		bne	@30		;if not	on page	boundary, continue

		inc	g_DPtr+1	;increment high	2 bytes of g_DPtr
		
		sep	#$20
		longa	off
		ldx	g_devndx
		lda	$C080+0,x	;switch back to bank zero
		inc	h_syncflag	;tell host 1st half is done
		plx			;816 has this opcode
		lda	$C080+0,x	;switch back to buffer's bank
		rep	#$20
		longa	on

@40		lda	[g_DPtr],y
		sta	$CB00,y
		iny
		iny
 		lda	[g_DPtr],y
		sta	$CB00,y
		iny
		iny
		bne	@40

@done		sep	#$30
		longa	off
		pla
		sta	cyareg		;switch speed back
		plp
		xce			;restore emulation mode
		ldx	g_devndx
		lda	$C080+00,X	;switch back to bank zero
		lda	#$D0
		sta	h_syncflag	;tell CPU 2nd 256 bytes are done
		plp		;restore interrupts if syncrounous WritePrep was going
		
		machine	M6502

***********************************
WRtn512		equ	*
		CLC			;wait for complete b4 returning


***********************************
rtn512		equ	*
		lda	#>512
		sta	yrtn		;hi byte of xfer size
		bne	retrn		;always	taken


;*************************************************
; return:
;	 This routine is the last thing	executed before
; returning control to dos.  It	checks to see if there has
; been an error	lately on the card.  **	note **	 If a large
; number of writes are being done, there is no way to know which
; one generated	the error.
;
;*************************************************
return		equ	*
		SEC			;no wait return

retrn		equ	*
		ldx	g_devndx
		lda	$C080+00,X
		lda	h_reply
		ora	#$F0		;host side is done (sav	reply)
		sta	h_reply

		BCS	@20		;if Set	don't stall after reads
@wait		lda	h_msg
		bpl	@wait		;stall until cmd done

@20		equ	*
		if	trace		THEN
		lda	#'r'
		jsr	TraceChr
		lda	h_dbug
		jsr	TraceHex
		endif
		lda	h_error		;check error message semaphore
		if	trace		THEN
		lda	#':'
		jsr	TraceChr
		lda	h_dbug
		jsr	TraceHex
		lda	#$8D
		jsr	TraceChr
		lda	h_dbug
		endif
		jsr	ReMapErr	;map errors IFF
		sta	g_error
		ldx	#0		;clear error for next time
		stx	h_error		;
		rts


;************************************************
; SndCmd:
;	 This is the general purpose command routine
;	 that sends a command to the slave processor  
;	 after passing the parameters from g_xxxxxx  
;    INPUT : g_cmdnum ... g_adrs 
;	   : X = devndx	 ($n0)
;
;  Destorys : A
;
; Preserves : X,Y
;
;************************************************
SndCmd		equ	*
@wait		lda	h_msg		;is prior cmd finished?
		bpl	@wait		;no. wait until	it is
		lda	#$FF
		sta	h_reply		;force this off

		txa
		pha		;Can't use PHX cuz its C02 
		ldx	#9-1		;pass 9	bytes to UC/IC
@10		lda	g_cmdnum,x
		sta	h_parms,x
		dex
		bpl	@10

	if trace	THEN
		lda	#'c'
		jsr	traceChr
		lda	#'='
		jsr	traceChr
		lda	h_parms+0
		jsr	traceHex
		lda	#$20
		jsr	traceChr
		lda	h_parms+1
		jsr	traceHex
		lda	#$20
		jsr	TraceChr	;make it 8 char	sequence
		lda	#'$'
		jsr	TraceChr
		bit	h_parms+0
		bvc	@991
		lda	h_parms+5
		jsr	TraceHex
@991		equ	*
		lda	h_parms+4
		jsr	TraceHex
		lda	h_parms+3
		jsr	tracehex
	endif

		pla
		tax			;Can't use PLX cuz its C02
		lda	h_parms+0	;get g_cmdnum back
		and	#$1F		;make it 0..B
		sta	h_msg		;send command last
		rts


****************************************
* convert $CN into $N0+$88
****************************************
N0_index	DC.B	$10,$20,$30,$40
		DC.B	$50,$60,$70


****************************************
* PDparms
*
* COnvert ProDOS block device Protocol
* parameter into standard SmartPort 
* 
****************************************
PDparms		ORA	#$80		;looks like SmartPort with $80 bit on
		LDX	unitnum		;get unitnum before sta	g_cmdnum
		STA	g_cmdnum	;save it for now
		LDA	buffaddr
		STA	g_DPtr
		LDA	buffaddr+1
		STA	g_DPtr+1

		IF	((g_zpage-$40)	<> 0) THEN ;only needed	if moved for debug
		lda	dskblk
		sta	g_dskblk
		lda	dskblk+1
		sta	g_dskblk+1
		endif

		LDA	#00
		sta	g_Dptr+2
		sta	g_dskblk+2
		sta	g_dskblk+3


**************************************
* Convert ProDOS BlkDev	Protocol
* Drv+Slot into	a SmartPort Unit #
*
*   INPUT : X-reg = Drv+Slot
*	    Y-reg = $CN	= slot # of card
*   OUTPUT: A-reg = S.P. Unit#
*	    X-reg = unchanged
*	    Y-reg = unchanged
*	    g_unitnum =	S.P. Unit #
*
* FUNCTION : if	card in	slot 4,5,6,7 
*	     Then unit # =(~b6*2+b7)+1
*	     if	card in	slot 1,2,3 
*	     Then unit # =(b6*2+b7)+1
**************************************
		txa			; dsss xxxx 
		and	#$70
		beq	@30		;unit 0	if slot	0
		lsr	a
		lsr	a
		lsr	a
		lsr	a
		ora	#$C0
		sta	g_unitnum	;req slot = $CN 
		lda	#00
		cpy	g_unitnum	;is req	for my slot?
		beq	@20		;yes (units 1,2)
		lda	#$C0
		eor	g_unitnum
		cmp	#02		;'other' req for slot 2?
		beq	@20		;yes. return unit 3,4
		lda	#04		;'other' req for not slot 2 =5,6
@20		cpx	#$80		;factor	in drive
		ADC	#01		;return	unit # 1,2,3,4
@30		STA	g_unitnum	;set unit number
		RTS

**********************************************************************
* SndUserTest
**********************************************************************
SndUserTest:
		tsx
		lda	$102,x
		sta	mslot_h
		tay
		ldx	N0_index-$C1,y
		lda	$C080,x		;switch in bank zero of card's RAM
@waitready	bit	h_msg
		bpl	@waitready
		lda	#usertestcmd
		sta	h_msg		;tell host to do the diagnostics
		lda	#00
		rts


********************************************
* Boot Failure exit routine
* resets the host state	and
* issues an error message
* to be	polite to the user
*******************************************
bootfail	equ	*
		bit	$C082		;switch	in the ROM for sure
		lda	loc0		;see if	card called by Monitor autoscan
		bne	@noauto
		lda	loc1		;
		cmp	mslot_h		;
		bne	@noauto		;
		jmp	autoscan	;if so,	jump back in

@noauto		jsr	setvid_h	;
		jsr	setkbd_h	;
		jsr	text_h		;
		jsr	home_h		;

		ldy	#bfstr1-bfstr1
		lda	g_error		;never ready msg?
		cmp	#$30
		bne	@20		;no.
		ldy	#bfstr2-bfstr1	;yes.
@20		ldx	#0
@25		lda	bfstr1,Y
		beq	@30
		sta	$488,X		;on 2nd	line of	screen
		iny
		inx
		bne	@25
@30		
		jmp	Basic		;restore for beta

		msb	on
bfstr1		DC.B	'UNABLE TO BOOT'
		DC.B	0
bfstr2		DC.B	'CONTROLLER NEVER READY'
		DC.B	0
		msb	off

**********************************************************************
*	Firmware "access" detector logic for GS/OS driver to use
**********************************************************************
Notifier	lda	g_unitnum
		beq	@notZero
		cmp	#maxUnits+1
		bcs	@notZero	;only notify if unitnum = 1..4
		tya
		pha
		txa
		pha
		lda	$C080+2,x	;switch in Bank2 of RAM ($800-$BFF of slave RAM)
		jsr	Caller
		pla
		tax
		lda	$C080+0,x	;switch Bank0 back in for execute
		pla
		tay			;restore Y
@notZero	rts

Caller		lda	#$CB		;high address byte of "user" routines
		pha
		ldx	g_unitnum
		lda	CBentry-1,x
		pha
		rts			;dispatch to "user" routine notify routine
		
CBentry		dc.b	$80-1		;=$CB80 for unit #1
		dc.b	$A0-1		;=$CBA0
		dc.b	$C0-1		;=$CBC0
		dc.b	$E0-1		;=$CBE0 for unit #4

**********************************************************************
* Check the re Entry Flag to prevent reentrant call to my firmware
* 
* Assumes RAM bank 02 has been selected before calling 
*
* Assumes isIIgs is reset to "unknown" on every reset Warm/Cold
*
* Must preserve Y reg 
**********************************************************************
CheckRE:
		bvs	@boot		;reset flag on a boot entry
		bit	isIIgs		;has flag been cleared since RESET?
		bpl	@10		;yep
@boot		lda	#00
		sta	reEntryFlag	;	1st call after reset!
		rts
@10		bit	reEntryFlag
		bmi	@NOTREENTRANT
		lda	#$80
		sta	reEntryFlag	;set the "I am BUSY flag"
		rts
@NOTREENTRANT	pla
		pla			;discard return address of my JSR
		LDA	#$01		;BAD COMMAND ERROR FOR EVERYTHING NOW
		plp
		sec
		rts	;return for entire call to firmware
		
		

Host_ROM_length	equ	*-Host_ROM_code
		if	(Host_ROM_length > 1536) then
		aerror	'!! Host_ROM_code length is longer than 1.5K !!'
		else
		DCB.B	1536-Host_ROM_length,$00 ;fill the remaining bytes with	zero's
		endif

		ENDP





\ No newline at end of file
diff --git a/IIGS.601.SRC/NuMustang/NuMustang.aii b/IIGS.601.SRC/NuMustang/NuMustang.aii
new file mode 100644
index 0000000..2af4f19
--- /dev/null
+++ b/IIGS.601.SRC/NuMustang/NuMustang.aii
@@ -0,0 +1 @@
+		machine	M65C02
		longa	off
		longi	off

*** Conditional	Assembly Switches ********************************************
trace		set	0

*** global assembly equates
RAM_start		equ	$0000		;start of the physical RAM
ROM_start		equ	$8000		;start of physical ROM
Host_CA00_code_start 	equ	$CA00		;start of the $CA00 bank switched space
Host_CA00_physical 	equ	ROM_start+$200	;the physical Host_ROM_code location
Host_CA00_test_physical	equ	ROM_start+$800	;the physical Host test ROM $CA00 image location
Host_CC00_test_physical	equ	ROM_start+$A00	;the physical Host test ROM $CC00 image location
Host_CC00_code_start	equ	$CC00		;start of host $CC00 'ROM' ($C800 'ROM'	space)
Host_CnXX_pseudoROM	equ	$7B00		;start of cards	RAM area that appears at the host $CnXX	area
Host_CA00_pseudoROM	equ	$0200		;start of cards	RAM area that is host 'ROM' at $CA00-$CBFF
Host_CC00_pseudoROM	equ	$7C00		;start of cards	RAM area that appears at host $CC00-$CFFE
Card_code_start		equ	$D000		;this will place the card's code in the top half of the 32K ROM

		include	'Equates.aii'
		include	'ZPageInit.aii'
		include	'Host.aii'

		include	'SelfTest.aii'	;fills up to Card_code_start

Card_Code	PROC	ORG		Card_code_start
		WITH	zero_page_template
		IMPORT	CARomAdrs
		IMPORT	Bootoffst
		IMPORT	bootptch1
		IMPORT	bootptch2
		IMPORT	GOEntry
		IMPORT	PDSPoffst
		IMPORT	z_initlen
		
		IMPORT	PwrONDiag
		IMPORT	UserTest
		
		ENTRY	InitCard
		ENTRY	ColdStartup
		ENTRY	CallCmd
		ENTRY	SetCBPtrs
		ENTRY	EnableGCR
		ENTRY	Begin
		ENTRY	Wait1MS
		ENTRY	CRC_checkwords
		ENTRY	Checksum_word
		
		ENTRY	GetGCRAddr
		ENTRY	ReadGCRData
		ENTRY	WriteGCRData
		ENTRY	SeekToCyl
		ENTRY	TheFormat
		ENTRY	FmtGCRTrk
		ENTRY	TheVerify
		ENTRY	CallCmd
		ENTRY	DoInit
		
		include	'Reset.Init.Idle.aii'
		include	'DrivSubrs.aii'
		include	'CalcSubrs.aii'
		include	'ReadWriteBoot.aii'
		include	'ReadWriteData.aii'
		include	'StatusControl.aii'
		include	'Format.aii'
		include	'SmartBuss.aii'

BRKSTALL	;if the code hits a BRK the light will flash with short flashes
@00		LDX	#-1
@01		INX
@02		BIT	LEDon,x
		LDY	#00
@05		LDA	#00
@10		DEC	A
		BNE	@20
@20		BNE	@10
		DEY
		BNE	@05
		TXA
		BEQ	@01
		BRA	@00
		
		DCB.B	($FFDA-Card_code_start)-(*-Card_code),$00 ;fill to end
CRC_checkwords	DC.W	$0000		;check word for first 2K bytes of ROM
		DC.W	$0000		; ..next 2K
		DC.W	$0000		; ..next 2K
		DC.W	$0000		; ..next 2K
		DC.W	$0000		; ..next 2K
		DC.W	$0000		; ..next 2K
		DC.W	$0000		; ..next 2K
		DC.W	$0000		; ..next 2K
		DC.W	$0000		; ..next 2K
		DC.W	$0000		; ..next 2K
		DC.W	$0000		; ..next 2K
		DC.W	$0000		; ..next 2K
		DC.W	$0000		; ..next 2K
		DC.W	$0000		; ..next 2K
		DC.W	$0000		; ..next to last 2K (30K bytes)
Checksum_word	DC.W	$0000		;checksum word, use 16 bit add
* vectors follow
		DC.W	InitCard
		DC.W	initcard
		DC.W	BRKSTALL

	print	Nowarn
		ENDP
	print	warn
*********************************
* END OF SOURCE 
*********************************
		END


\ No newline at end of file
diff --git a/IIGS.601.SRC/NuMustang/NuMustang.make b/IIGS.601.SRC/NuMustang/NuMustang.make
new file mode 100644
index 0000000..94a85cf
--- /dev/null
+++ b/IIGS.601.SRC/NuMustang/NuMustang.make
@@ -0,0 +1 @@
+#   File:       NuMustang.make
#   Created:    July 03, 1991   by JOA
# 	Copyright Apple Computer, Inc. 1991
# 	All rights reserved.

NuMustang	ÄÄ	NuMustang.make checksum.c
	C -r  checksum.c
	Link -d -c 'MPS ' -t MPST ¶
		checksum.c.o ¶
		"{CLibraries}"StdClib.o ¶
		"{Libraries}"Runtime.o ¶
		"{Libraries}"Interface.o ¶
		-o checksum

NuMustang 	ÄÄ	NuMustang.make			¶
				checksum.c				¶
				NuMustang.aii			¶
				Equates.aii				¶
				ZPageInit.aii			¶
				Host.aii				¶
				SelfTest.aii			¶
				Reset.Init.Idle.aii		¶
				DrivSubrs.aii			¶
				CalcSubrs.aii			¶
				ReadWriteBoot.aii		¶
				ReadWriteData.aii		¶
				StatusControl.aii		¶
				Format.aii				¶
				SmartBuss.aii
	AsmIIgs  {userAOptions} -h NuMustang.aii -wt -o NuMustang.obj
	LinkIIgs  NuMustang.obj -o NuMustang.rel
	MakeBinIIgs NuMustang.rel -o NuMustang
	checksum NuMustang NuMustang.bin
\ No newline at end of file
diff --git a/IIGS.601.SRC/NuMustang/ReadWriteBoot.aii b/IIGS.601.SRC/NuMustang/ReadWriteBoot.aii
new file mode 100644
index 0000000..431e6e8
--- /dev/null
+++ b/IIGS.601.SRC/NuMustang/ReadWriteBoot.aii
@@ -0,0 +1 @@
+		eject
*	Read_Write Block and Boot Commands
*******************************************************
* DoRWByts
*
* See if the Read/WriteBytes cmd could apply to	the 
* local	unit and its current volume.
*******************************************************
DoRWByts	equ	*
		lda	#BadUnit
		ldx	unit_num
		bpl	@05
@DoErr		jmp	DoErr

@05		jsr	EnblnChk	;check drive and vol status
		bpl	@10
		jsr	mountVol	;gotta do this now
@10		bcs	@DoErr		;volume	offline/Disk Switch error

* need to know voltype for this	call
		lda	voltype,y
		cmp	#AD800K
		beq	@20
		cmp	#AD400K
		beq	@20
		lda	#IOError
		jmp	DoErr
@20		lda	xfrcnt+1
		cmp	#>524
		beq	@30
@25		jmp	BadParmErr
@30		lda	xfrcnt
		cmp	#<524
		bne	@25

* now do 524 byte block	read and write on local	unit
		lda	Blocknum+2
		sta	blocknum
		lda	blocknum+3
		sta	blocknum+1
		stz	blocknum+2
		stz	blocknum+3	;shift 'address' to blocknum
		dec	tagsflag	;tell em 524 byte 
		
		lda	#wrblk
		sta	ramblk

		lda	msg
		cmp	#read
		beq	@readbyts

		jmp	DoWrite		;go duddly go

@readbyts	equ	*

		jsr	Aread
		bcs	@bye

* Now the 12 tag bytes must be merged with the 512 byte	block
* which	was read into the upper	buffer 
		ldy	#12-1
@movthe12	lda	rwbuf12,y
		sta	wrblkadd,y
		dey
		bpl	@movthe12

		ldy	#0
@mv512		lda	wrblkadd+512,y
		sta	wrblkadd+12,y
		lda	wrblkadd+512+256,y
		sta	wrblkadd+12+256,y
		iny			;must inc cuz of mov down overlap
		bne	@mv512

* now that all the data	is available tell host firmware
		lda	ramblk		;tell em which block (more or less)
		stz	error
		sta	reply
@bye		clc			;normal	return
		rts


***********************************
* Aread
***********************************
Aread		equ	*
		jsr	ChkBlk
		bcs	@errexit	;bad blocknum
* Now read a sector and	patch pieces together afterwards
		lda	#6
		sta	errcnt
		stz	MFMflag		;make its a GCR read

		jsr	U35MtrOn	;turn motor and	IFF chuckwait(500ms)
		jsr	Blk2SCS		;convert blocknum to side,cyl,sector
		bcs	@errexit	;bad blk xlate?
		asl	a		;Blk2SCS returns sects/track in	A-reg
		asl	a
		asl	a		;allow Sect/trk	* 8 AdrsMarks to pass
		sta	sectcnt		;by the	head before 'nosect found' err

@doseek		jsr	Seek		;Seek to cyl IFF  (recal IFF also)
		bcs	@IOerr		;recal error so	return IOERROR

@erretry	lda	ramblk		;(set by caller)
		jsr	SetCBptrs	;setup R0&R2 for the buffer
		jsr	WaitReady	;wait for drive	/READY status

@lookagn	jsr	GetAddr		;get address of	current	sector
		bcc	@rddsk		;if no error, keep going

		jsr	DoErr2		;update	error counters
		bcs	@IOerr		;if too	many, give it up
		bit	#cylerror	;if wrong track, retry seek
		bne	@doseek		;retry seek
		bit	#nomkerror	;no adrs mark
		beq	@80
		jsr	recal		;recal it 
		bcc	@doseek		;recal ok 

@80		bit	#adrerror	;bad adrs mark?
		beq	@IOerr
@itsnot		dec	sectcnt
		bne	@lookagn

@IOerr		lda	#IOError	;couldn't read
@errexit	jsr	DoErr
		sec
		rts

@rddsk		lda	SectFnd		;check if its the sector I want
		cmp	sector
		bne	@itsnot		;keep waiting

		jsr	ReadData	;read only the right one
		bcc	@ok		;if good, keep going

		jsr	DoErr2		;update	error counters
		bcc	@erretry	;if not	too many, try another block
		bra	@IOerr		;if too	many, it's all over

@ok		equ	*
		clc			;normal	return
		rts


*****************************************************************
* DoRead
*	 This routine first checks to see if the requested unit 
* still	has a volume mounted that has not been switched. If so,
* the cache is examined	to see if the block can	be returned
* without reading the volume. 
* If the block is not in the cache then	the block and possibly the 
* adjacent ones	on the same cylinder are read into the cache
* 
*	 eats: A,X,Y
*
*****************************************************************
DoRead		equ	*
		lda	#BadUnit
		ldx	unit_num
		bpl	@01
@err1		jmp	Doerr

@01		jsr	EnblnChk	;enable	and check errors
		bpl	@10		;got a known volume
		jsr	mountvol	;gotta do the logical volume mount
@10		bcs	@err1		;offline or IFF	disk switched error

* Can't check blknum until voltype known
		jsr	ChkBlk		;see if	block is a legal value
		bcs	@err1		;badblk	error
		lda	#$80
		sta	DrvrFlag	;indicate that sector not yet found
		
* Now setup the ISM with 16M clk and params if this is MFM volume
		ldx	unit_num
		lda	#UMmfmHD+UMmfmDD	;fdhd bit mask
		bit	unitmode,x		;is this MFM volume 
		beq	@notMFMvol
		bit	tagsflag		;is this a read/write bytes CMD?
		bpl	@mfmok		;no
* later this should generate 12 fake tag bytes and add 12 to the buffer pointer 
* fake tag bytes to read "John Arkley!"
		lda	#badctrl		;WRONG MEDIA TYPE for now
		sta	statbyte
		rts
@mfmok		jsr	EnableMFM	;enable MFM mode and switch to 16M FCLK
@notMFMvol	EQU	*

		jsr	Blk2SCS		;convert blocknum to side,cyl,sector
		bcs	@err1		;bad blk xlate?
		sta	curNsect	;save sects/track
		and	#%10000
		asl	a
		adc	#96
		sta	adrerrcnt	;allow  lots of adrs mark errors

		jsr	InCache		;see if	SCS is already in ramcache
		bcc	@nohit		; enable cache
		sta	reply		;if it is, put ram blk number in reply
		clc			;normal	return
		rts

@nohit		equ	*
		lda	#6
		sta	errcnt		;6 retries on the reqsted sector
		lda	#4
		sta	reseekcnt	;3 reseeks to the cyl
		lda	#20
		sta	Cerrcnt		;20 I/O	errors on cache	sectors

		jsr	U35MtrOn	;turn motor and	IFF chuckwait(500ms)
		
		lda	#00
		sta	minCsect
		
		lda	curNsect
		sta	maxCsect	;= largest sector number + 1
		dec	a		;don't include the target sector in the cache count
		sta	sectcnt		; max cache count
*
		lda	#$C0
		ldx	curNsect
@zlp		sta	sectrtbl,x	;mark sector as	"don't cache"
		cpx	minCsect
		bcc	@z10
		cpx	maxCsect
		bcs	@z10
		stz	sectrtbl,x	;mark sector as	not yet	cached
@z10		dex
		bpl	@zlp

		lda	cachlock
		sta	Cstate		;setup caching state control
		bra	@reseek		;and begin

@recal		jsr	recal
		bcs	@IOerr		;recal error!
@reseek		dec	reseekcnt
		bmi	@IOerr
		jsr	Seek		;Seek to cyl IFF  (recal IFF also)
		bcs	@IOerr		;recal error so	return IOERROR
		jsr	WaitRdyTO	;wait /READY or	timeout
		bcc	@findadrs	;it ready now!
@offl		lda	#Offline
		bra	@errxit		;if never ready	report offline err

@findadrs	stz	error2		;clear error result
		jsr	GetAddr		;find the next adrs mark on track
		bcc	@rddsk		;if no error, keep going
* GetAddr checks for side and cylinder match
		lda	error2
		bit	#cylerror	;if wrong track, retry seek
		bne	@reseek		;retry seek
		bit	#adrerror	;bad adrs mark?
		beq	@20		;no.

* adrs mark checksum, bit-slip or wrong side error
		dec	adrerrcnt
		beq	@IOerr
		lda	adrerrcnt
		and	#%00111111	;allow recal at least twice
		lsr	a		;drop lsb and check against curNsect
		cmp	curNsect
		beq	@chkrecal
		bit	#siderror
		beq	@findadrs	; if not wrong side error
		bra	@reseek		; if Wrong Side error the reseek
@chkrecal	bit	Cstate
		bvc	@recal		;ok to recal before rqst done
*
* exit after Reply already given so don't set msg or reply again
@postReplyexit	jsr	SelectIWM	;switch to IWM iff mfm mode
		sec			;no recal during post rqst caching
		rts			;cuz it	takes too much time

* here if couldn't find any address marks at all
@20		bit	#nomkerror	;can't find anything on track?
		beq	@IOerr		;bail out if other (assumed fatal) err
		bit	Cstate		;request done?
		bvs	@postReplyexit	;yep. ignore after rqst	done.
		lda	#dskin		;have I	still got media?
		jsr	ReadBit
		bcs	@offl		;nope. kiss it off
		dec	reseekcnt
		bmi	@IOerr		;too many
		jsr	recal		;move back to trk 00
		stz	error2
		jsr	GetAddr		;can I read adrsmrk on trk00
		bcc	@reseek		;yes. re seek to track
* Disk-In-Place	is True	but can't read any 
* address marks	in the current mode! 
		ldx	unit_num	;can't read adrsmrks on Trk00 so
		jsr	UnMountX	;so zap	voltype,mode,stat,blks,curcyl
@IOerr		lda	#IOError	;couldn't read
@errxit		bit	Cstate		;post rqst error?
		bvs	@postReplyexit	;yes. can't clear msg again
		jmp	DoErr		;no. so	return normal

@rddsk		ldx	SectFnd		;get the sector number found (0..n-1)
		cpx	sector		;is this the reqsted sector?
		bne	@cachread	;go do a caching read
		bit	Cstate		;already returned the request?
		bvs	@postReplyexit	;yes. stop caching and just poll rtrn
		jsr	AllocCbuf	;get adrs of buffr for read (sets ramblk for GS/OS driver)
		stz	DrvrFlag	; tell GS/OS driver sector coming NOW
		jsr	ReadData	;read the requested sector
		bcc	@reply
		jsr	DoErr2		;count retires on the rqsted sect only
		bcs	@IOerr		;bail out if too many retries
		bra	@finda1
@reply		lda	ramblk
		sta	reply
		lda	sectcnt
		ora	#$80		;tell host how much caching left to do
		sta	msg		;reset msg so next req may happen
		lda	#$40
		tsb	Cstate		;set the reqst done bit
		bra	@nextsect

* Now have a sector other than requested one
@cachread	bit	Cstate		;caching allowed?
		bmi	@finda1		;no. just get next adrsmark
		bit	sectrtbl,x	;already or not-to-be cached?
		bvs	@noncache	;yes. just idle	for a while
		ldy	sect2Cndx,x
		lda	cachunit-1,y
		bmi	@doit		;empty slot
		cmp	unit_num
		bne	@doit		;some other unit has this one
		lda	cachtrk-1,y
		cmp	trk		;same cyl+side?
		bne	@doit		;no. so	go cache it
		lda	cachsect-1,y
		cmp	SectFnd		;is the	one here same sect#
		bne	@doit		;no. so	cache it
		lda	#$40
		sta	sectrtbl,x	;mark it as done if already cached
		bra	@70
@noncache	bit	Cstate		;is reqst done yet?
		bvc	@finda1		;no. just keep looking
* during a sector I am not caching look	for user reqst
		ldx	#8		;spend next 8 ms looking for cmd
@waitc		lda	#204
@waitcmd	bit	msg		;+03
		bpl	@done		;+05 return and	process	cmd
		dec	a		;+07
		bne	@waitcmd	;+10
		dex
		bne	@waitc
		bra	@finda1		;ok now	find next adrsmark

@doit		jsr	AllocCbuf	;setup adrses for sector in X
		jsr	ReadData	; cache	a sector in its	buffer
		bcc	@nextsect	;read it ok so remember	it

		dec	Cerrcnt		;count caching errors
		bpl	@70		;go see if rqst done yet?
		lda	#$80
		tsb	Cstate		;turn caching off if too many errors
		bra	@70		;go see if request done

@nextsect	ldx	SectFnd		;same as sector	for rqsted one
		lda	#$40
		sta	sectrtbl,x	;mark is as cached
		lda	SectFnd		;sectFnd in A
		jsr	CacheSCA	;mark it as in the cache
		bcc	@70
@IOErr1		jmp	@IOerr
@70		bit	Cstate		;is the	request	done yet?
		bvc	@finda1		;continue until	rqstd found
		bmi	@done		;caching not allowed or terminated. so quit
		dec	sectcnt		;all the sectors in the cache?
		beq	@done		;yep.
		lda	msg		;has a 2nd request arrived after 1st reply?
		bpl	@done		
@finda1		jsr	SelectIWM	;switch back to IWM if in mfm mode
		dec	adrerrcnt	;count down good sectors I don't want too
		beq	@IOErr1	
		jmp	@Findadrs	;no so keep caching until rqst
@done		jsr	SelectIWM	;switch back to IWM iff mfm mode
		bit	Cstate
		bvs	@99
		clc
		rts
@99		sec
		rts
		eject
;******************************************************
; DoWrite
;	 This routine waits til	it finds the right block on the
; disk and then	writes the data	in the given ram block to that
; block	on the disk.
;
;	 eats: A,X,Y
;
;*****************************************************
DoWrite		equ	*
		lda	#BadUnit
		ldx	unit_num
		bmi	@err1		;can't write unit zero
		jsr	EnblnChk	;sense and check for errors
		bpl	@10
		jsr	MountVol	;gotta do the logical mount 
@10		bcc	@noerr		;no offline/switched error
@err1		jmp	Doerr
@noerr		bne	@err1		;if NE Then disk is write protected

		jsr	ChkBlk		;see if	block is a legal value
		bcs	@err1		;badblk	error
		
* Now setup the ISM with 16M clk and params if this is MFM volume
		ldx	unit_num
		lda	#UMmfmHD+UMmfmDD	;fdhd bit mask
		bit	unitmode,x		;is this MFM volume 
		beq	@notMFMvol
		bit	tagsflag		;is this a read/write bytes CMD?
		bpl	@mfmok		;no
* later this should generate 12 fake tag bytes and add 12 to the buffer pointer 
* fake tag bytes to read "John Arkley!"
		lda	#badctrl		;WRONG MEDIA TYPE for now
		sta	statbyte
		rts
@mfmok		jsr	EnableMFM	;enable MFM modes and switch on 16M FCLK
@notMFMvol	EQU	*

		lda	#6		;number	of errors that we'll allow
		sta	errcnt		;
		lda	#3
		sta	reseekcnt

		jsr	Blk2SCS		;convert blocknum to side,cyl,sector
		bcs	@err1		;bad blk xlate?
		sta	curNsect	
		and	#%11000
		asl	a
		adc	#96
		sta	adrerrcnt	; allow lots of adrs marks
		
		ldx	sector		;get sector number to be written
		jsr	AllocCBuf	;use the same buffer used for read caching

		stz	syncflag
		bit	TESTWRITE	;is this a testWrite for diagnostics?
		bmi	@nosync
		bit	Card_isIIgs	;is host a IIgs?
		bvc	@nosync		;nope
		bit	tagsflag	;524 case?
		bmi	@nosync
		bit	mfmflag	
		bmi	@nosync
		dec	syncflag	;tell host if write xfer is to be syncronous
@nosync		lda	ramblk
		sta	reply		;tell host to fill the buffer with the new data

		jsr	U35MtrON	;enable	the motor if blknum is ok
	
		jsr	Seek		;Seek to the cyl IFF (and recal	IFF)
		bcs	@IOerr		;recal error (no track zero)

		bit	TESTWRITE	;UserTest doing a Write to disk in factory diag mode?
		bmi	@do512		;YES. (Factory test doesn't call WriteBytes cmd)

		bit	syncflag	;should I wait for reply?
		bmi	@overlapWP	;no overlap xfer and WritePrep
		
@wtld		lda	reply		;see if	data has been loaded
		bpl	@wtld		;if not, wait until it is all there
		
@overlapWP	bit	tagsflag
		bpl	@do512
		jsr	WrtPrep524	;write prep with tags
		bra	@wrdy

@do512		jsr	WrtPrep512	;calc check sums and code data
@wrdy		jsr	WaitRdyTO	;It should be ready by now
		bcc	@findadrs
@offline	lda	#Offline	;didn't become ready within 3 seconds?
		bra	@errAxit
**********************************************************************
*
* WARNING:  Changing the "sucessful" code path between the "jsr GetAddr"
* 	    and the @Write Label below may effect the MFM "SpliceCnt" delay 
*	    equate that is selected to put the mfm Write Splice as close
* 	    as possible to the end of the Gap after the address field
*		(see equates file and WriteMFMData routine for more specifics)
*
**********************************************************************
@findadrs	jsr	GetAddr		;get address of	current	sector
		bcc	@chkaddr	;if no error, keep going
* here if wrong	cylinder/ wrong side/ no Mark found / chksum-bitslip error
		lda	error2
		bit	#cylerror	;if bad	track, need to seek again
		bne	@reseek		;retry seek
		bit	#adrerror	;bad adrs mark?
		beq	@20		;nope
		dec	adrerrcnt	;count down bad adrs marks
		beq	@IOerr
		lda	adrerrcnt
		and	#%00111111	;allow recal at least twice
		lsr	a		;drop lsb and check against curNsect
		cmp	curNsect
		beq	@recal
		bit	#siderror
		beq	@findadrs	; if not wrong side error
		bra	@reseek		; if Wrong Side error the reseek
@recal		jsr	Recal
		bcs	@IOerr
@reseek		dec	reseekcnt
		bmi	@IOerr
		jsr	Seek		;reSeek 
		bcc	@wrdy
		bra	@IOerr
@20		bit	#nomkerror	;can't find anything?
		beq	@IOerr		;bail out for any other error
		lda	#dskin
		jsr	ReadBit		;is media still there?
		bcs	@offline	;nope. so kiss it off
		bra	@recal		;do my best to find the track

@chkaddr	lda	SectFnd		;get the sector	number from adrsmrk
		cmp	sector		;compare to the	one we're looking for
		beq	@Write		;if its	the one, go write it
		dec	adrerrcnt	;count off the good but not requested sectors
		beq	@IOerr
		jsr	SelectIWM	;switch back to ISM side
		bra	@findadrs

@Write		jsr	WriteData	;write the data	to the disk
		bcs	@IOerr		;no Write Underrun error
		bit	TESTWRITE
		bmi	@nocache
		lda	sector
		jsr	CacheSCA	;mark the cache entry as valid
@nocache	clc
		rts
@IOerr		lda	#IOError
@errAxit	sta	error
@writDone	clc			;normal	return
		rts


* "BOOT	'command' ROUTINE"
****************************************************************
*
* BOOT requested of unit zero	 
* DoBoot will boot from	unit 1 
*
* (unless DiskII support included and then will	  
* only boot if unit 1 is NOT a disk II drive)
*
****************************************************************
DoBoot		equ	*
		stz	error
		stz	side		;block 0 is on side 0
		stz	cyl		;  on track 0
		stz	trk
		jsr	ClearCache	;clear the cache all units!

		lda	#read		;show as a BlkDev protocol read	cmd
		sta	msg		;
		ora	#$80
		sta	cmdmode		;
		stz	blocknum	;we want block 0
		stz	blocknum+1	;
		stz	blocknum+2	;
		stz	unit_num	;set unit_num for Local device boot
		lda	#01
		sta	unitno		;set unitno for CBUS unit #1 boot
		stz	drive
		ldx	drive

		lda	unittype,x
		beq	@NoDrives
		bmi	@remboot	;A = unitmode byte
* Boot from local unit
		jsr	UnMountX	;make it remount the volume for read
		jmp	CallLocal	;read block 0
* Boot from remote unit
@remboot	lda	#255
		jsr	Wait2Ms
		jmp	CallRemote	;call the CBUS driver

@NoDrives	equ	*
		lda	#NoDrive	;return a Device Not Conntected Error
		sta	error
		stz	reply
		clc			;normal	return
		rts

alignpg1	EQU	(*-Card_code)	and $FF
		DCB.B	$100-alignpg1,$00 ;align to next page


* 		"GCR LookUp Tables "
ashift		EQU	*
		DCB.B	16,$00
		DCB.B	16,$40
		DCB.B	16,$80
		DCB.B	16,$C0

bshift		EQU	*
		DC.W	$0000,$0000,$4040,$4040,$8080,$8080,$C0C0,$C0C0
		DC.W	$0000,$0000,$4040,$4040,$8080,$8080,$C0C0,$C0C0
		DC.W	$0000,$0000,$4040,$4040,$8080,$8080,$C0C0,$C0C0
		DC.W	$0000,$0000,$4040,$4040,$8080,$8080,$C0C0,$C0C0

cshift		equ	*
		DC.B	$00,$40,$80,$C0,$00,$40,$80,$C0
		DC.B	$00,$40,$80,$C0,$00,$40,$80,$C0
		DC.B	$00,$40,$80,$C0,$00,$40,$80,$C0
		DC.B	$00,$40,$80,$C0,$00,$40,$80,$C0
		DC.B	$00,$40,$80,$C0,$00,$40,$80,$C0
		DC.B	$00,$40,$80,$C0,$00,$40,$80,$C0
		DC.B	$00,$40,$80,$C0,$00,$40,$80,$C0
		DC.B	$00,$40,$80,$C0,$00,$40,$80,$C0


**********************************************************************
*	Do Block Calc "N"
*
*	Computes how many logical blocks are on the track 
*	that contains the input block number and blockcnt
*
*  INPUT	: blocknum (4 bytes; 2 used)
*		: blockcnt (2 bytes)
*  OUTPUT	: xfrcnt   (2 bytes) 
*
**********************************************************************
		eject
DoBlkCalcN	equ	*
		lda	#BadUnit
		ldx	unit_num
		bpl	@01
@err1		jmp	Doerr

@01		jsr	EnblnChk	;enable	and check errors
		bpl	@10		;got a known volume
		jsr	mountvol	;gotta do the logical volume mount
@10		bcs	@err1		;offline or IFF	disk switched error

* Can't check blknum until voltype known
		jsr	ChkBlk		;see if	block is a legal value
		bcs	@err1		;badblk	error
		lda	#$80
		sta	DrvrFlag	;indicate that sector not yet found
		
* Now setup the ISM with 16M clk and params if this is MFM volume
		ldx	unit_num
		lda	#UMmfmHD+UMmfmDD	;fdhd bit mask
		bit	unitmode,x		;is this MFM volume 
		beq	@notMFMvol
@mfmok		jsr	EnableMFM	;enable MFM mode and switch to 16M FCLK
@notMFMvol	EQU	*
		lda	blocknum+1
		pha
		lda	blocknum
		pha
		clc
		adc	blockcnt
		sta 	blocknum
		lda	blocknum+1
		adc	blockcnt+1
		sta	blocknum
		jsr	ChkBlk		;is the implied ending blocknum vaild?
		bcs	@err1		;nope. give error now so driver knows up front
		pla
		sta	blocknum
		pla
		sta	blocknum+1	;restore starting blocknum

		jsr	Blk2SCS		;convert blocknum to side,cyl,sector
		bcs	@err1		;bad blk xlate?
		sta	curNsect	;save sects/track
		stz	xfrcnt+1	;zero the upper byte
		lda	curNsect	;    8/9/10/11/12/18/9 
		sec			; less
		sbc	sector		;(0..7/8/9/10/11/17/8)
		sta	sectcnt		;this is max number of sects I can get on this trk
		ldy	blockcnt+1	;is blockcnt > 255
		bne	@20		;yep. so all of em count
		cmp	blockcnt	;is availcnt <= blockcnt?
		beq	@20
		bcc	@20		; yep. so all of em count
		lda	blockcnt	;nope. return blockcnt since its smaller
@20		sta	xfrcnt		;return the resulting block count on this track
		stz	reply		;indicate result now in zero page
		lda	#$FF
		sta	msg		;make ready for next cmd
*
* Delay a while looking for ReadNBlks cmd before giving up and deSelecting the drive
		lda	#05
		sta	r1h
		stz	r1l
@wait		dec	r1l
		bne	@wtmsg
		dec	r1h
		bmi	@quit
@wtmsg		lda	msg		;has the next cmd arrived yet?
		bmi	@wait		;nope. keep waiting a while for GS/OS driver
@quit		sec
		rts

		eject
**********************************************************************
*		Reads N block all on same track for any volume type
*
*  INPUT	: blocknum	first desired block
*		: blockcnt	number of desired blocks
*  OUTPUT	: Trkvector[blockcnt]
*			each entry contains zero until that block is read
*			contains buffer number when block in the buffer
*			set to $FF when buffer emptied by GS/OS driver
*			set to $80..AF if I/O error for that block
*		: xfrcnt := count of requested block that have been read
*		: reply contains error code if all blocks are not on same track
*	
*
**********************************************************************
DoReadNBlks	equ	*
		lda	#BadUnit
		ldx	unit_num
		bpl	@01
@err1		jmp	Doerr

@01		jsr	EnblnChk	;enable	and check errors
		bpl	@10		;got a known volume
		jsr	mountvol	;gotta do the logical volume mount
@10		bcs	@err1		;offline or IFF	disk switched error

* Can't check blknum until voltype known
		jsr	ChkBlk		;see if	begin block is a legal value
		bcs	@err1		;badblk	error
		lda	#$80
		sta	DrvrFlag	;indicate that sector not yet found
		
* Now setup the ISM with 16M clk and params if this is MFM volume
		ldx	unit_num
		lda	#UMmfmHD+UMmfmDD	;fdhd bit mask
		bit	unitmode,x		;is this MFM volume 
		beq	@notMFMvol
@mfmok		jsr	EnableMFM	;enable MFM mode and switch to 16M FCLK
@notMFMvol	EQU	*

		jsr	Blk2SCS		;convert begin blocknum to side,cyl,sector
		bcs	@err1		;bad blk xlate?
		sta	curNsect	;save sects/track
		lda	sector
		sta	begsect
		lda	trk
		sta	begtrack	;save sector and track
		lda	blockcnt
		clc
		adc	blocknum
		sta	blocknum
		lda	blockcnt+1
		adc	blocknum+1
		sta	blocknum+1	;blocknum = beginblk + blockcnt
		lda	blocknum
		bne	@05
		dec	blocknum+1
@05		dec	blocknum	;first + count - 1 = last blocknum
		
		jsr	ChkBlk		;must be a valid blknum for the volume!
		bcs	@err1
		jsr	Blk2SCS		;convert end blocknum to side,cyl,sector
		bcs	@err1		;why me boss?
		lda	trk		;is the ending block on same track as begin
		cmp	begtrack	;
		beq	sametrk
		lda	#BadBlk
		jmp	DoErr		;exit with bad block error
*
* Now have side,cyl, "last" sector plus begsect and begtrack
sametrk	equ	*
*
* Now create the rtable and rcount
		stz	rcount
		stz	rcount+1
		ldx	curNsect
@10		dex
		stz	rtable,x	;
		bne	@10
		
		lda	begsect		;(zero based)
		sta	minCsect
		lda	sector		;ending sector number (zero based)
		inc	a
		sta	maxCsect
		sec
		sbc	begsect		;compute the sector count
		sta	sectcnt
		asl	a
		asl	a
		sta	errcnt	 
		
		lda	#$40
		ldx	curNsect
		stx	SectFnd		;in case @IOErr exit taken
@zlp		sta	sectrtbl,x	;mark sector as	"not needed"
		cpx	minCsect
		bcc	@z10
		cpx	maxCsect
		bcs	@z10
		stz	sectrtbl,x	;mark sector as	not yet	found
@z10		dex
		bpl	@zlp
*
* Now return a reply of three indicating that the $600 page is setup 
		lda	#03
		sta	reply		;
*
* Now turn on the motor and seek etc
		lda	curNsect
		asl	a
		asl	a
		inc	a
		sta	adrerrcnt
		lda	#02
		sta	reseekcnt
		
		jsr	U35MtrOn	;turn on the motor if it aint
		bra	@reseek
		
@recal		jsr	recal
		bcs	@IOerror
@reseek		dec	reseekcnt
		bmi	@IOerror
		jsr	Seek
		bcs	@IOerror
		jsr	WaitRdyTO
		bcc	@findadrs
@offl		lda	#Offline
		bra	@MyDoErr	
*
* Now find an address mark
@findA1		jsr	SelectIWM
@findadrs	stz	error2
		jsr	GetAddr		;find an address mark on media
		bcc	@rddsk
		lda	error2
		bit	#cylerror
		bne	@reseek
		bit	#adrerror
		bne	@20
		bit	#nomkerror
		bne	@offl
@IOerror	bra	@IOerr
@20		dec	adrerrcnt
		beq	@IOerr
		lda	adrerrcnt
		cmp	curNsect
		bne	@30
		bra	@recal
@30		bit	#siderror
		beq	@findadrs
		bra	@reseek
*
* now read it into it buffer
@rddsk		ldx	SectFnd
		bit	sectrtbl,x	;do I need this one?
		bvs	@dontneed	;no. or already read it before
		jsr	AllocCbuf	;"empty" the cache too!
		jsr	ReadData
		bcs	@rderror
		ldx	SectFnd
		lda	#$40
		sta	sectrtbl,x	;mark it as found
		txa			;get sector number
		sec
		sbc	begsect		;subtract the sector number of first sector
		tax			; x = offset of this block in group of N
		lda	ramblk
		sta	rtable,x	;mark the result table for GS/OS driver
		
		inc	rcount		;tell driver another famous sector is available
		dec 	sectcnt
		beq	@done
		bra	@cntAdrs
		
@dontneed	stz	temp
		ldx	#8		;spend next 8 ms doing nothing
@waits		lda	#204
@wait10		bit	temp		;+03
		bpl	@wait20		;+05 
@wait20		dec	a		;+07
		bne	@wait10		;+10
		dex
		bne	@waits
@cntAdrs	dec	adrerrcnt
		bne	@FindA1
		bra	@IOerr
		
@rderror	dec	errcnt		;too many read errors on requested sectors?
		bpl	@findA1		;nope. keep going
		lda	SectFnd
		sec
		sbc	begsect
		tax
		lda	#IOError+$80
		sta	rtable,x	;mark the result vector with the error code 
@IOerr		lda	#IOError
@myDoErr	sta	error	
		lda	#01
		sta	rcount+1	;make rcount much too big
		clc
		rts

@done		equ	*
		lda	#$FF
		sta	msg		;make ready for next cmd
*
* Delay a while looking for a cmd before giving up and deSelecting the drive

		lda	#05
		sta	r1h
		stz	r1l
@wait		dec	r1l
		bne	@wtmsg
		dec	r1h
		bmi	@quit
@wtmsg		lda	msg		;has the next cmd arrived yet?
		bmi	@wait		;nope. keep waiting a while for the GS/OS driver
@quit		sec
		rts
\ No newline at end of file
diff --git a/IIGS.601.SRC/NuMustang/ReadWriteData.aii b/IIGS.601.SRC/NuMustang/ReadWriteData.aii
new file mode 100644
index 0000000..8318932
--- /dev/null
+++ b/IIGS.601.SRC/NuMustang/ReadWriteData.aii
@@ -0,0 +1 @@
+		eject
alignpg2	EQU	(*-Card_code)	and $FF
		DCB.B	$100-alignpg2,$00 ;align to next page
* "ReadAddrs Mark Routine"
;************************************************
; GetAddr
;	 This routine finds the	next address and loads
; it in.
;
;    Destroys: A,X,Y
;
;************************************************
DeNibTab	equ	*

GetAddr		bit	mfmFlag
		bpl	@10	
		jmp	GetMFMAddr
@10		jmp	RdAddrHook
**********************************************************************
GetGCRAddr:
		jsr	rdmode		;select read mode and select head
		
		stz	error2		;clear error mask
		lda	Q6l
		lda	Q7l		;insure	read mode
		lda	#>adrmTO	;adrs Mark TimeOut
		sta	r1l		; and save for counting
		ldy	#<adrmTO	;let y be low byte of time out counter

@stover		ldx	#3-1		;nybles	in an address mark

@chktime	dey			;service time out counter
		bne	@wtbyte		;jump if hasn't run out

		dec	r1l		;decrement high	byte of	counter
		beq	@errto		;if times out, the there's an error

@wtbyte		lda	q6l		;see if	there's a byte
		bpl	@wtbyte		;  if not, wait	for one

		cmp	adrmarks,x	;see if	it's next address mark
		bne	@stover		;if not, start from beginning

		dex			;if found one, decrement number	left
		bpl	@chktime	;if any	left, look for them

		ldx	#5-1		;number	of bytes in address header
		stz	csum		;
@wtbyte1	ldy	q6l		;see if	there is data
		bpl	@wtbyte1	; if not, wait until there is

		lda	denibtab,y	;get 6 bit info	from 8 bit code
		sta	sectinfo,x	;save this info	for later
		eor	csum		;xor it	with the check sum
		sta	csum		; and save new check sum value

		dex			;decrement data	counter
		bpl	@wtbyte1	;if more info, go get it

		tay			;last byte was check sum so set	flags
		bne	@errCS		; if it	wasn't zero, there was an erro

@wtbyte2	ldx	q6l		;see if	there's any data
		bpl	@wtbyte2	; if not, wait for some

		cpx	bslip1		;byte should be	a bit slip mark
		bne	@errCS		;if not, we got	an error

@wtbyte3	ldx	q6l		;see if	there's any data
		bpl	@wtbyte3	;  if not wait for some

		cpx	bslip2		;byte should be	2nd bit	slip mark
		bne	@errCS		;if not, we've got an error

		ldx	unit_num
		lda	FmtFnd
		sta	VolIntrlv,x	;save interleave found
		and	#$20
		asl	a		;set the twosided flag per volume
		asl	a		;so survey can recognize 400K gcr
		sta	twosided,x	;disks.	(Liron Emulatn wants this)

		lda	SideFnd
		eor	Side
		lsr	a
		bne	@sideErr

		lda	CylFnd		;make sure we're on the right track
		bcc	@chkcyl
		ora	#$40
@chkcyl		cmp	cyl
		beq	@done
		ldx	unit_num	;
		sta	curcyl,x	;
		lda	#cylerror	;indicate we're on the wrong cylinder
		bra	@err

@done		clc			;address info is right
		rts
@sideErr	equ	*
		lda	#siderror+adrerror
		bra	@err

@errTO		equ	*
		lda	#nomkerror	; mark timeout error
		bra	@err

@errCS		lda	#adrerror	;Chksum/bitslip
@err		tsb	error2		;
		sec			;set error flag
		rts



***************************************************
* DeNibTab
***************************************************
		DCB.B	DeNibTab+$96-*,$FF ;align table	to $96 + tag (on page boundry)
		DC.B	$00,$01,$98,$99,$02,$03,$9C,$04,$05,$06,$A0,$A1
		DC.B	$A2,$A3,$A4,$A5,$07,$08,$A8,$A9,$AA,$09,$0A,$0B
		DC.B	$0C,$0D,$B0,$B1,$0E,$0F,$10,$11,$12,$13,$B8,$14
		DC.B	$15,$16,$17,$18,$19,$1A,$C0,$C1,$C2,$C3,$C4,$C5
		DC.B	$C6,$C7,$C8,$C9,$CA,$1B,$CC,$1C,$1D,$1E,$D0,$D1
		DC.B	$D2,$1F,$D4,$D5,$20,$21,$D8,$22,$23,$24,$25,$26
		DC.B	$27,$28,$E0,$E1,$E2,$E3,$E4,$29,$2A,$2B,$E8,$2C
		DC.B	$2D,$2E,$2F,$30,$31,$32,$F0,$F1,$33,$34,$35,$36
		DC.B	$37,$38,$f8,$39,$3A,$3b,$3C,$3D,$3E,$3F

RdMode		lda	#rdhd0		;put unit in read mode
		jsr	ReadBit		;
		jsr	SelHd		; select the head per side variable
		bit	q6l
		bit	q7l
		rts

**********************************************************************
*	ReadData field of sector
**********************************************************************
ReadData	bit	mfmFlag
		bpl	@10
		jmp	ReadMFMData
@10		jmp	ReadDataHook

* "GCR READ DISK SECTOR	"
****************************************************************
* 
* READDSK
*
****************************************************************
ReadGCRData:
		stz	csuma		;clear check sums
		stz	csumb		;
		stz	csumc
		stz	error2		;clear the error mask

* read data marks *
		ldy	#25		;short timeout counter
@tryagain	ldx	#2		;number	of data	marks to look for

@goodmark	dey			;decrement timeout counter
		beq	@err1

@wtbyte		lda	Q6l		;try to	read next byte
		bpl	@wtbyte		;  if it's not there, wait for it

		cmp	datamarks,x	;see if	it's the right mark
		bne	@tryagain	;if not, start from beginning

		dex			;if found next mark,
		bpl	@goodmark	;  look	for next if any	left

* read sector number *
		ldy	#12		;preload y now 
@wtsect		ldx	Q6l		;try to	read sector mark
		bpl	@wtsect		; if not there,	wait for it

		lda	denibtab,x	;denibblize sector number
		eor	SectFnd		;should	be same	as in addr field
		beq	@hdrok		;if it is, begin with csumc=zero

@err1		lda	#nomkerror	;mark timeout error
		jmp	@erra

* read data *
@hdrok		clc			;clear carry for 1st adc csumc 
@wtjnk0		ldx	Q6l		;+31 try to read next byte

		bpl	@wtjnk0		;+02
		adc	csumc		;+05
		cmp	#$80		;+07  (copies b7 into carry!)
		rol	a		;+09  rotate but not thru carry
		sta	csumc		;+12
		lda	denibtab,x	;+16 denibblize	data
		sta	exindex		;+19 save index	4 topbits of nxt 3 
@wtjnkA		ldx	Q6l		;+23 try to read next byte

		bpl	@wtjnkA		;+02  if it's not there wait for it
		lda	denibtab,x	;+06 denibblize	data
		ldx	exindex		;+09 get index to top 2	bits
		ora	ashift,x	;+13 add on top	2 bits
		eor	csumc		;+16 decode data
		sta	rwbuf12-1,y	;+21 save data
		dey			;+23  
		adc	csuma		;+26 follow algorithm for check	sum
		sta	csuma		;+29 save check	sum value

@wtjnkB		ldx	Q6l		;+33 blind read	next byte
		bpl	@wtjnkb		;+02
		lda	denibtab,x	;+06 denibblize	data
		ldx	exindex		;+09 get index to top 2	bits
		ora	bshift,x	;+13 add on top	2 bits
		eor	csuma		;+16 decode data
		sta	rwbuf12-1,Y	;+21
		dey			;+23  
		adc	csumb		;+26 follow algorithm for check	sum
		sta	csumb		;+29	and save it's new value
@wtjnkC		ldx	Q6l		;+33 read next byte

		bpl	@wtjnkc		;+02
		lda	denibtab,x	;+06 denibblize	data
		ldx	exindex		;+09 get index to top 2	bits
		ora	cshift,x	;+13 add on top	2 bits
		eor	csumb		;+17 decode data
		sta	rwbuf12-1,y	;+22
		dey			;+24 get next junk byte
		bne	@wtjnk0		;+27

		bra	@wtbyte0	;+29


***********************************************************
* The following	4 nybl loop must total not more	than
* 124 cycles to	allow for 2.5% fast drives (128	- 2.5%)
***********************************************************
@wtbyteB	ldx	Q6l		;+36 blind read	'B' byte

		lda	denibtab,x	;+04 denibblize	data
		ora	bshift,Y	;+08 add on top	2 bits
		eor	csuma		;+11 decode data
		sta	(r0)		;+16 save data
		inc	r0		;+21 next position
		adc	csumb		;+24 follow algorithm for check	sum
		sta	csumb		;+27	and save it's new value
@wtbyteC	ldx	Q6l		;+31 read 'C' byte

		bpl	@wtbytec	;+02
		lda	denibtab,x	;+06 denibblize	data
		ora	cshift,Y	;+10 add on top	2 bits
		eor	csumb		;+13 decode data
		sta	(r0)		;+18 save data
		inc	r0		;+23
@wtbyte0	ldx	Q6l		;+27 try to read 'T' byte

		bpl	@wtbyte0	;+02  if it's not there, wait for it
		adc	csumc		;+05 
		cmp	#$80		;+07 (copies b7	into carry
		rol	a		;+09 Rotate csumc but not thru carry
		sta	csumc		;+12
		ldy	denibtab,x	;+16 denibblize	Topbits	into Y-reg
@wtbyteA	ldx	Q6l		;+20 try to read 'A' byte

		bpl	@wtbyteA	;+02  if it's not there wait for it
		lda	denibtab,x	;+06 denibblize	data
		ora	ashift,Y	;+10 add on top	2 bits
		eor	csumc		;+13 decode data
		sta	(r0)		;+18 save data
		adc	csuma		;+21 follow algorithm for check	sum
		sta	csuma		;+24 save check	sum value
		inc	r0		;+29 decrement counter
		bne	@wtbyteB	;+32 if	more sets of data, continue

* Cross	over nybl to 2nd loop and 2nd PAGE!
		ldx	Q6l		;+36 blind read	'B' byte
		lda	denibtab,x	;+04 denibblize	data
		ora	bshift,Y	;+08 add on top	2 bits
		eor	csuma		;+11 decode data
		sta	(r2)		;+16 save data
		adc	csumb		;+19 follow algorithm for check	sum
		sta	csumb		;+22	and save it's new value
		inc	r2		;+27 increment counter 
		nop			;+29 can't blind read to early!

@wtbyteF	ldx	Q6l		;+36 blind read	'C' byte

		lda	denibtab,x	;+04 denibblize	data
		ora	cshift,Y	;+08 add on top	2 bits
		eor	csumb		;+11 decode data
		sta	(r2)		;+16 save data
		inc	r2		;+21 
@wtbyte1	ldx	Q6l		;+25 read 'T' byte

		bpl	@wtbyte1	;+02
		adc	csumc		;+05
		cmp	#$80		;+07 (copies b7	into carry!)
		rol	a		;+09 Rotate csumc but not thru carry
		sta	csumc		;+12
		ldy	denibtab,x	;+16 denibblize	data
@wtbyteD	ldx	Q6l		;+20 try to read 'A' byte

		bpl	@wtbyteD	;+02  if it's not there wait for it
		lda	denibtab,x	;+06 denibblize	data
		ora	ashift,Y	;+10 add on top	2 bits
		eor	csumc		;+13 decode data
		sta	(r2)		;+18 save data
		inc	r2		;+23 
		adc	csuma		;+26 follow algorithm for check	sum
		sta	csuma		;+29
@wtbyteE	ldx	Q6l		;+33 read 'B' byte

		bpl	@wtbyteE	;+02
		lda	denibtab,x	;+06 denibblize	data
		ora	bshift,Y	;+10 add on top	2 bits
		eor	csuma		;+13 decode data
		sta	(r2)		;+18 save data
		adc	csumb		;+21 follow algorithm for check	sum
		sta	csumb		;+24	and save it's new value
		inc	r2		;+29 increment counter
		bne	@wtbyteF	;+32 if	more sets of data, continue

* Read CheckSum 
@wtchkt		ldx	Q6L		;+36 blind read	checksum Top bits

		ldy	denibtab,x	;+04 denibblize	high bits
		lda	cshift,y	;+08 get high bits of third checksum
		sta	exindex		;+11 save for later
		lda	bshift,y	;+15 get high bits of second checksum
		sta	exindex+1	;+18 save for later
		lda	ashift,y	;+22 get high bits of first checksum
		ldx	#2		;+24 for ABC check sums	(+4=28)
@wtchk		ldy	Q6l		;+27 wait for check sum

		bpl	@wtchk		;+02 if	not there, wait	some more
		ora	denibtab,y	;+06 add high bits to denibblized data
		eor	csumc,x		;+10 should generate a zero
		sta	csumc,x		;+14 save for check later
		lda	exindex-1,x	;+18 get high bits of next checksum
		dex			;+20 decrement checksum	count
		bpl	@wtchk		;+23 if	more, process them

* read slip bits before	they disappear
		ldx	#2		;check 2 slip bits
@wtslip		lda	Q6l		;try to	load slip bit
		bpl	@wtslip		;if not	there, wait some more

		cmp	bsmarks,x	;compare to what we expect
		bne	@errbs		;if it's not, indicate error

		dex			;decrement slip	bit counter
		bne	@wtslip		;if another one, go check it
		bra	@vercsum	;now verify csum

* mark the bit slip error
@errbs		lda	#dbserror
		tsb	error2		;record	the error

* Now test for check sum ok
@vercsum	lda	csuma
		ora	csumb
		ora	csumc		;all three should be zero
		bne	@chkerr

* Checksum OK return Bitslip error (if any)
		lda	error2
		cmp	#01		;set carry if any error
		rts

* Checksum was not the same as diskCsum
@chkerr		lda	#dcserror	;check sum error
@erra		tsb	error2		;set soft error	mask
		sec
		rts


* "WRITE PRE NYBLIZE ROUTINE"
;*********************************************************
; WrtPrep512
; WrtPrep524
;	 This routine calculates the check sums	and puts
; the data or'ed with the appropriate check sum values into
; the write buffer.
;
;	 in : r0 - address of 512 or 524 byte buffer
;
;********************************************************
WrtPrep524	equ	*
		ldx	#175		;write prep a 524 byte buffer
		bra	WrtPrepX

WrtPrep512	equ	*
		ldx	#4		;4 * 3 = 12 lead null bytes
@wp12		stz	nyblbufa+171,x	;12 bytes of zeros does
		stz	nyblbufb+171,x	;nothing to change the 
		stz	nyblbufc+171,x	;checksum or the nybles
		dex
		bne	@wp12
		ldx	#171		;writeprep a 512 byte buffer

WrtPrepX	equ	*
		bit	mfmFlag
		bpl	@10
* mfm prep just sets up R2 from R0
		lda	r0+1
		inc 	a
		sta	r2+1
		lda	r0
		sta	r2
		rts

@10		stx	rePrepCnt	;save this for retrying
		lda	r0+1
		sta	r2+1		;save for retry
@15		lda	syncflag	
		bpl	@nosync
		cmp	#$D0		;is host already done anyway?
		beq	@nodelay	;yep. 
		cmp	#$C1		;are 1st 256 bytes available yet?
		beq	@nosync		;yep. so sync at mid point 
		cmp	#$C0
		bne	@15		;no. so wait until host has started 1st page
* now delay 500us so host can finish 115us before I end the 1st half
* and check for host completion
*
* DON'T MESS WITH THE ldy #CONSTANT BELOW
* IT CONTROLS HOW MUCH Host margin there is relative to Slave headstart
* Slave headstart = 385 us and host margin should be no more than half 
* the slave head start
		ldy	#200
@18		dey
		bne	@18		;2.5us * 200 ?= 500 us
		bra	@nosync
		
@nodelay	stz	syncflag	; forget the check up at the end

@nosync		stz	csuma		;
		stz	csumb		;
		stz	csumc		;
		clc			;initial adc carry status
		ldy	#0		;
		bra	@chk1

@chk0		
		lda	(r0),y		;get data byte
		eor	csumb		; and xor it with checksum b
		sta	nyblbufc+1,x	;save as data to be nibblized

		eor	csumb		;get data BACK again
		adc	csumc		;add to	checksum c
		cmp	#$80		;copies	b7 to carry
		rol	a		;rotate	csumc but not thru carry
		sta	csumc		;save new checksum value

		iny			;increment offset
		bne	@chk1
		inc	r0H		;increment hi pointer 
*
* Dont cross page until its all there
		lda	syncflag
		bpl	@chk1
		eor	#$D0		;DONT CHANGE THE CARRY BOYS!
		bne	@restart	;host didn't make it all in time
@chk1		
		lda	(r0),y		;get next data byte
		eor	csumc		;xor it	with checksum c
		sta	nyblbufa,x	; and save it as data to be nibblized

		eor	csumc		;get data BACK again
		adc	csuma		; add to checksum a
		sta	csuma		;save as new value of checksum a

		iny			;increment offset
		bne	@chk2		; if no	wrap, don't inc buffer address
		inc	r0H		;increment buffer address
*
* Dont cross page until its all there
		lda	syncflag
		bpl	@chk2
		eor	#$D0		;DONT CHANGE THE CARRY BOYS!
		bne	@restart	;host didn't make it all in time
@chk2		
		lda	(r0),y		;get next data byte
		eor	csuma		; xor it with check sum	a
		sta	nyblbufb,x	;  save	it as data to be nibblized

		eor	csuma		;get data BACK byte
		adc	csumb		; add to checksum b
		sta	csumb		; save as new value of check sum b

		iny
		bne	@30
		inc	r0h		;for 524 byte case
*
* Dont cross page until its all there
		lda	syncflag
		bpl	@30
		eor	#$D0		;DONT CHANGE THE CARRY BOYS!
		beq	@30
@restart	cmp	#$11		;is 1st half done now?
		beq	@reDo		;yes. don't wait for finish
		lda	#$D0
@waitend	cmp	syncflag	;something weird happening in host land
		bne	@waitend	;so wait for the host to finish
		stz	syncflag	;and don't check it again
@reDo		lda	r2+1
		sta	r0+1		;restore hi byte of buffer pointer
		ldx	rePrepCnt	;get original x back
		bra	@nosync

@30		dex			;decrement counter group counter
		bne	@chk0		;branch	up if we're not done

* Calculate the	Checksum Topbits byte (afap)
		lda	csumc
		lsr	a
		lsr	a		;00ccxxxx
		eor	csumb
		and	#%00110000
		eor	csumb		;bbccxxxx
		lsr	a
		lsr	a		;00bbccxx
		eor	csuma
		and	#%00111100
		eor	csuma		;aabbccxx
		lsr	a
		lsr	a
		sta	wcsum		;00aabbcc

		lda	nyblbufa+175	;get first data	byte
		sta	byte1		; and save as byte 1
		asl	a		;move 2	high bits into byte 0
		rol	byte0		;xxxxxxxA
		asl	a		;
		rol	byte0		;xxxxxxAA

		lda	nyblbufb+175	;get next data byte
		sta	byte2		; and save as byte 2
		asl	a		;move 2	high bits into byte 0
		rol	byte0		;xxxxxAAB
		asl	a		;
		rol	byte0		;xxxxAABB

		lda	nyblbufc+175	;get next data byte
		sta	byte3		;save as byte 3
		asl	a		;move hi 2 bits	into byte 0
		rol	byte0		; xxxAABBC
		asl	a
		rol	byte0		;xxAABBCC
	if 0	then
	endif
@90		rts
**********************************************************************
*	WriteData
**********************************************************************
WriteData	bit	mfmFlag
		bpl	@10 
		jmp	WriteMFMData
@10		jmp	WritDataHook

* "GCR WRITE BLOCK ROUTINE"
******************************************************************
*
* WRITEDSK
*
******************************************************************
WriteGCRData:
		bit	Q6h		;set up	IWM lines (011)
		lda	#$FF		;write anything	to prevent underrun
		sta	Q7h		; (111)	WRITE ENABLED FROM HERE	ON!
		stz	error2		;clear the error mask

		ldx	#08-1		;number	of sync	bytes and data marks
@nxtmrk		lda	datamarks,x	;(4) get next data mark	or sync	bytes
@wtwrt		bit	Q6l		;(4) see if ready to write
		bpl	@wtwrt		;(2) if	not, wait until	it is
		sta	Q6h		;(4) write mark	to disk
		dex			;(2) decrement mark counter
		bpl	@nxtmrk		;(2/3) if still	more, go get 'em

		ldy	SectFnd		;(4) get sector	number
		lda	nibtab,y	;(4)  and nibblize it

@wrsect		bit	Q6l		;(4) wait til read to write
		bpl	@wrsect		;(2)
		sta	Q6h		;(4)   and write it to disk

		ldx	#175-1		;start 1 back since pump primed
		bra	@snd0		; begin	with topbits 

@snd3		ldy	byte3		;+10 put byte 3	in x
		lda	nyblbufc+1,x	;+14 get next byte c
		sta	byte3		;+17 and save as byte 3
		asl	a		;+19 save top 2	bits of	next byte 3
		rol	byte0		;+24
		asl	a		;+26

		lda	nibtab,y	;+30 nibblize current byte 3
		sta	Q6h		;+34 and write it to disk
		rol	byte0		;+05 finish the	last shift

@snd0		ldy	byte0		;+08 get high bits
		lda	nibtab,y	;+13 get nibblized data
@wtwrt1		bit	Q6l		;+17 see if disk is ready for write
		bpl	@wtwrt1		;+20 if	not, wait until	it is
		sta	Q6h		;+23,+30,+37 write high	bits to	disk

@snd1		ldy	byte1		;+03 get byte 1	in x
		lda	nyblbufa,x	;+07 get next byte 1
		sta	byte1		;+10  and save as such

		asl	a		;+12 put high to bits in byte 0
		rol	byte0		;+17
		asl	a		;+19
		rol	byte0		;+24

		lda	nibtab,y	;+28 nibblize current byte 1
		sta	Q6h		;+32 write byte	1 to disk

@snd2		ldy	byte2		;+03 get byte 2	in x
		lda	nyblbufb,x	;+07 get next byte 2
		sta	byte2		;+10 and save as such

		asl	a		;+12 put high to bits in byte 0
		rol	byte0		;+17
		asl	a		;+19
		rol	byte0		;+24

		lda	nibtab,y	;+28 nibblize current byte 2
		sta	Q6h		;+32 write byte	2 to disk

		dex			;+02 decrement byte counter
		cpx	#-1		;+04
		bne	@snd3		;+07 if	not, branch up and continue

		ldx	#4-1		;+09 4 checksum	bytes to write
@wrcslp		ldy	csumc,x		;+13 get csum (with topbits intact)
		lda	nibtab,y	;+17 (dropout the topbits here)
@wtcsum		bit	Q6l		;+21 wait till fifo avail
		bpl	@wtcsum		;+24
		sta	Q6h		;+27,+34 and write it to disk
		dex			;+02
		bpl	@wrcslp		;+05

		ldx	#3-1		; 3 bit	slip marks to write
@wrslip		lda	bsmarks,x	;get next bit slip mark
@wtslip		bit	Q6l		;see if	ready to write
		bpl	@wtslip		;if not, wait
		sta	Q6h		;  and write it	to the disk
		dex
		bpl	@wrslip

		lda	#$40		;get the underrun bit
		and	Q6l		;all by	itself
		eor	#$40		;invert	to true	if underrun
		tsb	error2		;record	it just	in case

@80		bit	Q6l		;wait for write	underrun
		bvs	@80		;of the	turn-off nyble 

		bit	Q7l		;before	turning	OFF WRITE mode
		lda	error2
		cmp	#01		;return	carry set if underrun error
		rts
		eject
*	    'MFM RdAddr Routine'
**********************************************************************
*
*   MFM	Read Address Field
*
*   The	timeout	process	must be	absolute timing	since the ISM
*   doesn't return any data until a mark byte appears and blank
*   media doesn't have any marks so MFM rdaddr can't count "bytes"
*   the	way GCR-IWM RdAddrs routine does.
*
*   The	logic polls for	mark bytes for 65535 times around the polling
*   loop (5us each at 2.8Mhz) for a total of .327 seconds and then
*   aborts 
*
**********************************************************************
GetMFMAddr	equ	*
		JSR	rdmode		;select	rdmode & proper head (before ISM switch)
		stz	error2
		
		JSR	SelectISM	;reselect ISM side of SWIM

		LDY	#-1		;65535 * 5us/poll = .36 seconds at 2 Mhz
		sty	r1l		;init hi byte for timeout counter
		BRA	@reAction

@Indexmark	LDX	#03-1		;three mark bytes after	initial	$C2
		LDY	#-1
@05		BIT	IsmHndShR
		BMI	@08
		DEY	
		BMI	@05
		bra	@reAction
@08		LDA	IsmMarkR
		CMP	mfmIndexMarks,X
		BNE	@reAction	;restart the Read Action after $C2
		DEX			;found all 4 yet?
		BPL	@05		;no.

@reAction	BIT	IsmErrorR	;clear the error register
		LDA	#$18
		STA	IsmMode0W	;clear write and action	bits
		LDA	#$01
		STA	IsmMode1W
		STA	IsmMode0W	;toggle	the FIFO bit to	clear the fifo
		BIT	IsmErrorR	;again for grins (per mac mRdAddr)
		LDA	#$08
		STA	IsmMode1W	;start the Read	ACTION going

@20		BIT	IsmHndShR	;4	anything available yet
		BMI	@25		;6	Yes.
		DEY			;8
		BNE	@20		;11	/2 = 5.5us
		DEC	r1l
		BNE	@20
@neveraMark	lda	#nomkerror
		jmp	@E2exit

@25		LDA	IsmMarkR
		CMP	#$A1		;adrs/data mark?
		BEQ	@a1Mark		;yep.
		CMP	#$C2		;index mark?
		BEQ	@IndexMark	;yep
		BRA	@reAction	;nope. start over again

@a1Mark		LDY	#-1		;128 * 11 cycles = 688 usecs
		LDX	#03-1		;three mark bytes after	initial	#$A1
@35		BIT	IsmHndShR
		BMI	@37
		DEY
		BMI	@35		
		BRA	@reAction

@37		LDA	IsmMarkR
		CMP	mfmAddrMarks,X
		BNE	@reAction	;restart the fifo etc
		DEX			;found all 4 yet?
		BPL	@35		;no.

@40		BIT	IsmHndShR	;is a data byte	available
		BPL	@40
		LDA	IsmDataR	;field order =>	cyl,head,sect,size
		STA	cylfnd

@50		BIT	IsmHndShR	;is a data byte	available
		BPL	@50
		LDA	#00
		LDY	IsmDataR	;get mfm "head"	= 0/1
		BEQ	@55
		LDA	#$20
@55		STA	sidefnd		;look like GCR sidefnd

@60		BIT	IsmHndShR	;is a data byte	available
		BPL	@60
		LDA	IsmDataR	;almost	same as	GCR sectfnd
		DEC	A		;mfm sectors start at 1
		STA	sectfnd		;but we	want zero based	ones

@70		BIT	IsmHndShR	;is a data byte	available
		BPL	@70
		LDA	#$20		;look like GCR "fmt" bytes
		ORA	IsmDataR
		STA	fmtfnd

@80		BIT	IsmHndShR
		BPL	@80
		LDA	IsmDataR
		STA	csum		;1st byte of CRC

@90		LDA	IsmHndShR
		BPL	@90
		LDY	IsmDataR
		STY	csum+1		;2nd byte of CRC

		LDY	IsmErrorR
		STY	csum+2

		STA	csum+3
		AND	#%00100010	;save CRC error	and 
		BNE	@CRCerr
		LDA	#$18
		STA	IsmMode0W	;zero ACTION and WRITE bits
; behave like GCR dblsided bit that is extracted from GCR "format" byte
		ldx	unit_num
		LDA	#$80
		STA	twoSided,x	;mfm is	always dbl sided
		
		lda	SideFnd		;this should be 00 or 01
		beq	@95
		lda	#$20		;convert $01 to $20
@95		eor	Side		;side is set to 00 or $20
		bne	@sideErr	;
		lda	CylFnd
		cmp	Cyl		;am I on the right cylinder?
		beq	@done		;yes.
		sta	curcyl,x	;save where I am for reseek
		lda	#cylerror
		bra	@E2exit
		
@CRCerr		LDA	#adrerror

@E2exit		TSB	error2
		LDA	#$18
		STA	IsmMode0W	;zero ACTION and WRITE bits
		LDA	IsmErrorR
		JSR	DeSelectISM
		SEC
		RTS
		
@done		CLC
		RTS			;Leave ISM mode	selected for ReadData?

@sideErr	lda	#siderror+adrerror
		bra	@E2exit

mfmIndexMarks	DC.B	$FC,$C2,$C2
mfmAddrMarks	DC.B	$FE,$A1,$A1
mfmDataMarks	DC.B	$FB,$A1,$A1,$A1

**********************************************************************
*
*   MFM	Read Sector Routine
*
**********************************************************************
ReadMFMData	EQU	*
		BIT	IsmErrorR	;clear the error register
		LDA	#$18
		STA	IsmMode0W	;clear write and action	bits
		LDA	#$01
		STA	IsmMode1W
		STA	IsmMode0W	;toggle	the FIFO bit to	clear the fifo
		BIT	IsmErrorR	;again for grins (per mac mRdAddr)

		LDA	#$08
		STA	IsmMode1W	;start the Read	ACTION going
		LDY	#128		; 127 * 12 cycles = 745 us to 1st A1 mark

@20		DEY			;+9
		BNE	@25		;+12	
@err		LDA	#$18
		STA	IsmMode0W
		JSR	DeSelectISM	;back into IWM mode on exit
		SEC
		RTS

@25		BIT	IsmHndShR	;+4
		BPL	@20		;+7
		LDA	IsmMarkR
		CMP	#$A1		;a mark	byte?
		BNE	@20

		LDX	#03		;last mark bytes
		LDY	#20		; 20 * 11 cycles = 100+ usecs for 3 more marks

@30		BIT	IsmHndShR	;anything available yet
		BMI	@35
		DEY
		BPL	@30
		BRA	@err
		
@35		LDA	IsmMarkR
		CMP	mfmDataMarks-1,X
		BNE	@err		;not the right mark so forget it
		DEX			;found all 3 yet?
		BNE	@30		;no.
*
@40		bit	IsmHndShR	;+4
		bvc	*-3		;+6
		lda	IsmDataR	;+10	
		ldx	IsmDataR	;+14
		sta	(r0)		;+19
		inc	r0		;+24	r0 mod 2 = 1
		txa			;+26	
		sta	(r0)		;+31
		inc	r0		;+36	r0 mod 2 = 0
		bne	@40		;+39

@50		bit	IsmHndShR	;+4
		bvc	*-3		;+2
		lda	IsmDataR	;+4	
		ldx	IsmDataR	;+4
		sta	(r2)		;+5
		inc	r2		;+5	r2 mod 8 = 1
		txa			;+2	
		sta	(r2)		;+5
		inc	r2		;+5	r2 mod 8 = 0
		bne	@50		;+3 

@80		BIT	IsmHndShR
		BPL	@80
		LDA	IsmDataR
		STA	csum		;1st byte of CRC

@90		LDA	IsmHndShR
		BPL	@90
		LDY	IsmDataR
		STY	csum+1		;2nd byte of CRC

		LDY	IsmErrorR
		STY	csum+2

		STA	csum+3
		AND	#%00100010	;save CRC error	and 
		BNE	@errxit
		LDA	#$18
		STA	IsmMode0W	;zero ACTION and WRITE bits
		STZ	error2
		JSR	DeSelectISM	;put it	back into IWM mode
		CLC
		RTS

@errxit		LDA	#$18
		STA	IsmMode0W	;zero ACTION and WRITE bits
		JSR	DeSelectISM
		LDA	#dcserror
		ORA	error2
		STA	error2
		SEC
		RTS

**********************************************************************
*
* WriteMFMData Field
*
**********************************************************************
WriteMFMData	EQU	*
; first insure that the Index/Tach adrs is not the lingering phase line setting
; to prevent the Index Pulse cross talk problem
*
* WARNING: Adding any code between here and the splice timing loop
* 	   MAY effect the SpliceCnt equate (minor changes allowed +/- a few us)
*
		LDA	#%11110000	;CA [3210] = 0000
		STA	IsmPhaseW	; select the /DIRTN Drive sense adrs
	
		BIT	IsmErrorR
		LDA	#$18
		STA	IsmMode0W
		LDA	#$10
		STA	IsmMode1W	;enable Write with action OFF
		LDA	#$01
		STA	IsmMode1W
		STA	IsmMode0W	;2+ us clear FIFO toggle
		BIT	IsmErrorR
		LDY	#SpliceCnt	; this has been tuned to get splice timing right
* Measured overhead from last byte of Adrs field to this point is 
* (The envelope please)  60.3 us
* Write Splice timing must be 22 gap bytes from end of address mark
* or 366 us after read of 2nd CRC byte of address field

@20		LDA	IsmHndShR	;4  cycles
		LDA	IsmHndShR	;4  cycles
		LDA	IsmHndShR	;4  cycles
		DEY			;2  cycles
		BNE	@20		;3  cycles = 17 cycles = 1/2 byte time 
* Twice thru the above loop is 16.65 us
		STZ	IsmDataW	;preload FIFO with 1st two bytes
		STZ	IsmDataW	;preload FIFO with 1st two bytes

		LDA	#$08		
		STA	IsmMode1W	;Write Current on NOW

		LDX	#syncSize-2	;adjust for preloaded two
@30		BIT	IsmHndShR
		BPL	@30		;wait for FIFO empty
		STZ	IsmDataW
		DEX
		BNE	@30
		
		LDX	#03		; three bytes of $A1 mark Writes
@40		BIT	IsmHndShR
		BPL	@40
		LDA	#$A1
		STA	IsmMarkW
		DEX
		BNE	@40
		
@50		BIT	IsmHndShR
		BPL	@50
		LDA	#$FB
		STA	IsmDataW	;4th byte of mark is just data write

		LDY	#00
@60		LDA	(r0),Y
@61		BIT	IsmHndShR
		BPL	@61
		STA	IsmDataW
		INY
		BNE	@60
		
@66		LDA	(r2),Y
@67		BIT	IsmHndShR
		BPL	@67
		STA	IsmDataW
		INY
		BNE	@66
		
@70		BIT	IsmHndShR
		BPL	@70
		STZ	IsmCRCW		;This dummy store writes 2 CRC bytes!!!

		LDX	#04
		LDA	#gapByte
		
@80		LDY	IsmHndShR
		BPL	@80
		STA	IsmDataW
		DEX
		BNE	@80		;write enough of the gap to force CRC +1 gap to write
		
@85		BIT	IsmHndShR
		BVC	@85		;wait til fifo says 2 are empty
		
		LDA	#$18
		STA	IsmMode0W	;turn off Write mode and action
		
		TYA			;get trailing handshake
		AND	#$20		;any errors (underrun is it?)
		CLC
		BEQ	@90
		LDA	IsmErrorR	;clear the error register
		STA	csum+2		;save it for analyzer
@90		php

		ldx	#120
@wait		bne	*+2		;+3
		nop			;+5
		dex			;+7
		bne	@wait		;+10	5us * 120 = 600 usec delay
		
		jsr	DeSelectISM	;before switching back to IWM side
		plp
		rts



\ No newline at end of file
diff --git a/IIGS.601.SRC/NuMustang/Reset.Init.Idle.aii b/IIGS.601.SRC/NuMustang/Reset.Init.Idle.aii
new file mode 100644
index 0000000..9853e1c
--- /dev/null
+++ b/IIGS.601.SRC/NuMustang/Reset.Init.Idle.aii
@@ -0,0 +1 @@
+		eject
*	    'Nibble Table'
nibtab		EQU	*
		DC.B	$96,$97,$9A,$9B,$9D,$9E,$9F,$A6,$A7
		DC.B	$AB,$AC,$AD,$AE,$AF,$B2,$B3,$B4,$B5
		DC.B	$B6,$B7,$B9,$BA,$BB,$BC,$BD,$BE,$BF
		DC.B	$CB,$CD,$CE,$CF,$D3,$D6,$D7,$D9,$DA
		DC.B	$DB,$DC,$DD,$DE,$DF,$E5,$E6,$E7,$E9
		DC.B	$EA,$EB,$EC,$ED,$EE,$EF,$F2,$F3,$F4
		DC.B	$F5,$F6,$F7,$F9,$FA,$FB,$FC,$FD,$FE,$FF

		DC.B	$96,$97,$9A,$9B,$9D,$9E,$9F,$A6,$A7
		DC.B	$AB,$AC,$AD,$AE,$AF,$B2,$B3,$B4,$B5
		DC.B	$B6,$B7,$B9,$BA,$BB,$BC,$BD,$BE,$BF
		DC.B	$CB,$CD,$CE,$CF,$D3,$D6,$D7,$D9,$DA
		DC.B	$DB,$DC,$DD,$DE,$DF,$E5,$E6,$E7,$E9
		DC.B	$EA,$EB,$EC,$ED,$EE,$EF,$F2,$F3,$F4
		DC.B	$F5,$F6,$F7,$F9,$FA,$FB,$FC,$FD,$FE,$FF

		DC.B	$96,$97,$9A,$9B,$9D,$9E,$9F,$A6,$A7
		DC.B	$AB,$AC,$AD,$AE,$AF,$B2,$B3,$B4,$B5
		DC.B	$B6,$B7,$B9,$BA,$BB,$BC,$BD,$BE,$BF
		DC.B	$CB,$CD,$CE,$CF,$D3,$D6,$D7,$D9,$DA
		DC.B	$DB,$DC,$DD,$DE,$DF,$E5,$E6,$E7,$E9
		DC.B	$EA,$EB,$EC,$ED,$EE,$EF,$F2,$F3,$F4
		DC.B	$F5,$F6,$F7,$F9,$FA,$FB,$FC,$FD,$FE,$FF

		DC.B	$96,$97,$9A,$9B,$9D,$9E,$9F,$A6,$A7
		DC.B	$AB,$AC,$AD,$AE,$AF,$B2,$B3,$B4,$B5
		DC.B	$B6,$B7,$B9,$BA,$BB,$BC,$BD,$BE,$BF
		DC.B	$CB,$CD,$CE,$CF,$D3,$D6,$D7,$D9,$DA
		DC.B	$DB,$DC,$DD,$DE,$DF,$E5,$E6,$E7,$E9
		DC.B	$EA,$EB,$EC,$ED,$EE,$EF,$F2,$F3,$F4
		DC.B	$F5,$F6,$F7,$F9,$FA,$FB,$FC,$FD,$FE,$FF

* Jmp table for HDMediaChk douwn load routine for GS/OS driver
		jmp	U35MtrOn
		jmp	Recal
		jmp	Seek
		jmp	WaitRdyTO
		jmp	rdmode
		jmp	DoEject

		Title	'INITIALIZE AND DISPATCH'
******************************************************
* DoInit
******************************************************
DoInit		jsr	disabl35	;do this first to cancel timer
		jsr	Wait1Ms
		bit	DeSelect	;turn the drive	enable off
		stz	reply		;tell host 'done'

		
**************************************
* RESET	AND NMI	ENTRY POINT FOR	CPU
**************************************
InitCard	CLD
		SEI			;turn interrupts off
		ldx	#$FF		;set stack to ff
		txs
		stz	msg		;lockout host if Warm Reset
		lda	mideject
		jmp	pwrondiag	;do pwron tests

Begin		lda	mideject
		jsr	CopyRom2Ram	;setup the host	firmware image
		
* 
* Now determine	if Cold	or Warm	Start
		ldx	#4
@pwrChk		dex
		bmi	@WarmReset	;a CTRL-RESET key restart
		lda	pwrcon+ROM_start,x
		cmp	pwrcon,x
 		beq	@pwrchk		;
		
* Do everything to power on startup this mess
		jsr	ColdStartup
		
		bra	@60
@warmReset	jsr	ZapCache	;clear the cache
*
* Reset forced the SWIM back into IWM mode so reset variable and re-init ISM side
		ldx	#-1
		stx	unit_num
		jsr	StartupISM	;restart ISM and it flags and De-asserts EN3.5
		jsr	EnableGCR	;set clk switch to known state
		
		ldx	smartdev	; X=1st unit to re-assign
		beq	@45
		lda	#$80		;warm restart flag
		jsr	AssignID	;init any CBUS devices on the chain 
		lda	#GCRmode
		jsr	SetIWMmode	;reset to GCR mode in IWM
* A CTRL-RESET may have	interrupted a long eject operation
* and may not have been	completed properly
@45		
*
* If only UniDisk or Smart units don't assert Enable35 signal at all
		lda	smartdev	;
		cmp	#01		;are there any dumb drives to enable?
		beq	@60		;no local units!
*
		ldx	numdevs
@50		dex
		bmi	@55
		bit	unittype,x
		bmi	@50
		stx	drive
		stx	unit_num	;set this too for subrs 
		jsr	Enable35	;
		ldx	drive
		jsr	EnblnChk	;clear DSW if set
		phx
		clc
		jsr	MountVol
		jsr	EnableGCR	;reset to GCR mode for next drive
		ldx	drive
		jsr	DTCancel
		plx
		bra	@50
@55		jsr	Enable35
					
@60		
		bit	mideject	;was eject in progress?
		bmi	@70		;no.
* enable the drive and retry the eject
		ldx	#-1		;make Enable35 leave the drives alone
		stx	unit_num
		jsr	Enable35
		ldx	mideject
		lda	Enable1,x
		bit	Select

		jsr	EjectLcl	;eject a local drive if	I can

@70		equ	*
		lda	#$FF
		sta	reply		;insure	that its off
		sta	msg		;Finally look ready to the host firmware
		ldx	#03


* Now fall into	process	wait for cmd idle loop
* "CARD	CMD PROCESSOR"
;*****************************************************
; IdleLoop
;	 This is the infinite loop that	the 65c02 sits in while
; waiting for the next command.	 When it gets a	command, it loads
; the address of the routine that will process that command and
; then jumps to	it.
;
;*****************************************************
IdleLoop	equ	*
		dec	r1L		;decrement counter  (just for debugging)
		bne	@wtmsg		;if not	0 see if cmd requested yet
		dec	r1H		;decrement high	byte of	counter ( it indicates CPU is in the idle loop)	
		bne	@wtmsg		;if not	0 see if cmd requstd
		dex			;
		bne	@wtmsg
		
	if 1	then
 		jsr	ChkEject	;14*65536*.5 = .45 sec poll interval
	else
		nop
		nop
		nop
	endif
		ldx	#03

@wtmsg		lda	msg		;see if	command	requested ?
		bmi	IdleLoop	; if not, wait for one
		sta	$E0
		lda	cmdmode
		sta	$E1
		lda	unitno
		sta	$E2
		lda	blocknum
		sta	$E3
		lda	blocknum+1
		sta	$E4

@go		jsr	VectorHook	;vector	to the cmd routine
		bcs	@10		;caller	reset msg so just poll it
		lda	#$FF		;indicate that we're ready
		sta	msg		; for another command
@10		stz	r1h		;insure	the timeout is long 
		stz	drive		;reset for Liron Emulation mode
* 
* Besure to always put SWIM back into IWM mode on completion of each command
		jsr	EnableGCR	;only switches if MFM mode was used by the prior call

		lda	msg		;is cmd	already	pending?
		bpl	@go		;yep. don't deselect
		bit	DeSelect	;turn the drive	enable off
					; thus starting	drive timeout
		ldx	#03		;3 causes 1.5 sec before 1st poll
		bra	IdleLoop	;infinite loop


******************************************************
*
* CallCmd	 Mainline msg and unit_num validation
*      
*    This routine verifies the command code and 
*  then	clears the error result 
*
*  (if DiskII support included later Timeout waiting 
*  (will occur here if switching from diskII to	3.5's)
*
*   Input : msg	 (0..C)
*    Regs : Destorys A,X,Y
*
*  Output :
*
******************************************************
CallCmd		stz	error
		stz	errcnt		;set to	6 if DoRead reads media
		stz	tagsflag	;assume	512 byte blocks	 (changed for Read/Write Bytes Cmd)
		stz	MFMflag		;assume GCR I/O (set if MFM vol in FDHD)
		lda	#$FF
		sta	sector
		sta	trk
		sta	cyl
		lda	msg
		cmp	#CCmdcnt+2
		bcc	@10		;cmd is	ok
* CMD = $7E means clear the isIIgs flag  $7F means set the isIIgs flag
		cmp	#$7E
		bcc	@CheckDiag	;
		eor	#$7E		;makes a zero or a one
		beq	@notIIgs
		lda	#$40
@notIIgs	sta	Card_isIIgs	;set the flag in "host" ROM image
		clc	
		rts

@checkDiag	equ	*
		cmp	#usertestcmd	;go do User Diagnostics
		bne	@30
		jmp	UserTest

@10		equ	*
		stz	DDflag		;so DevStat will cancel Drive enable
@15		lda	numdevs		;
		cmp	unitno		;is numdevs >= unitno?
		bcs	@20		;yes.
		lda	msg		;if its a Status call
		ora	cmdcode		;status code zero?
		bne	@badUnit	
		bit	cmdmode
		bvc	@badunit	;and Extended Sp call?
		lda	unitno
		bpl	@badunit	;is it negative unit#?
		sta	DDflag		;so DevStat will enable Drive & LED
		and	#$7F
		sta	unitno
		bne	@15		;try again for $81..84
		
@badunit	lda	#BadUnit
		bra	DoErr

@20		ldx	unitno
		dex
		stx	unit_num	;unit_num = unitno - 1
		bmi	CallLocal	;unit zero is done by local
		lda	unittype,x	;local or remote unit?
		bpl	CallLocal
		lda	msg
		cmp	#CCmdcnt	;valid cmd for cbus devices?
		bcc	CallRemote	;remote	unit!
@30		bra	DoBadCmd
@doUnitZero	equ	*

* Now call the AppleDisk driver
CallLocal	lda	#GCRmode	
		jsr	SetIWMMode	;set IWM mode register for GCR
		jsr	Enable35	;enable 35 iff not enabled now
		lda	msg
		asl	a
		tax
		JMP	(lclcmds,x)	;enter the AD3.5 driver

* Now call the CBUS driver 
CallRemote	EQU	*
		ldx	#-1
		stx	unit_num
		jsr	Disabl35	;turn local units off
		jsr	EnableGCR	;inusre it 7.83Mhz clock
		ldx	unitno
		stx	unit_num	;CBUSDVR wants 1 based unit_num

		jsr	DoRemote	;enter Remote unit driver
		
		lda	smartdev	;is smartdev the first device?
		cmp	#01
		beq	KnownRTS	;yep so don't switch back to 3.5 mode
		lda	#-1
		sta	unit_num
		jsr	Enable35	;re-assert /EN35 signal
KnownRTS	clc
		rts

*********************************
* Command dispatch table
*********************************
Lclcmds		equ	*
		DC.W	DoStatus	;00 read status	(unit)
		DC.W	DoRead		;01 read blk	(unit)
		DC.W	DoWrite		;02 write blk	(unit)
		DC.W	DoFormat	;03 format vol	(unit)
		DC.W	DoCtrl		;04 write Ctrl	(unit)
		DC.W	DoInit		;05 init SmartPort (card)
		DC.W	DoBadCmd	;06 not	for local drives
		DC.W	DoBadCmd	;07 not	for local drives
		DC.W	DoRWByts	;08 read bytes	(unit)
		DC.W	DoRWByts	;09 write bytes	(unit)
		DC.W	DoSetFmt	;0A Set	Format Opts (unit)
		DC.W	DoGetFmt	;0B Get	Format Optn (unit)
		DC.W	DoBoot		;0C Boot (Init & read blk0)
		DC.W	DoBlkCalcN	;0D Compute blks on track
		DC.W	DoReadNBlks	;0E Read n blocks on track



DoBadCmd	equ	*
		lda	#BadCmd

DoErr		clc			;normal	err return
DoErrC		sta	error
		stz	reply		;indicate err reply
		rts

BadParmErr	lda	#BadParm
		bra	Doerr
		
**********************************************************************
*  Cold Startup Code
**********************************************************************
ColdStartup:
* This code is executed	only at	pwrup
		jsr	InitZeroPag	;copy zero page	image NOT including pwrcon
*
		lda	#>KnownRTS
		sta	MediaChkVect+1
		lda	#<KnownRTS
		sta	MediaChkVect	;setup for the format call addition
		
		lda	#-1
		sta	unit_num	;indicate no drive to enable or select
		jsr	StartupISM	;setup ISM side and De-asserts EN3.5

* Now init the device chain
		lda	#150		;150x2 = 300 Ms
		jsr	wait2Ms		;delay for drive pwron reset

		lda	#GCRmode	;init CurIWMode	before any uses	 
		jsr	SetIWMMode

		jsr	Disabl35	;set /Enbl35 high to set 'LAST'
		jsr	resetchain	;perform CBUS reset for	LIRON's etc
		jsr	Enable35	;low again to block daisy chns

		jsr	Wait1Ms
		jsr	Disabl35	;pulse ENBL35 to set drive modes

		jsr	ConfigLcl	;configure any local drives

		stz	smartdev	;assume no smartdevs out there
		ldx	numdevs
		inx			;X = 1st smart unit number to assign (if possible)
		lda	#00		;cold reset for	CBUSdvr
		jsr	AssignID	;
		beq	@40		;didn't find an smart units !
		ldx	numdevs
		inx
		stx	smartdev	;remember 1st smartunit num for Com/Warm reset
		clc
		adc	numdevs
		sta	numdevs		;add the smart unit count to the total
@40		stz	unit_num	;don't leave unit_num with 2/3 or such
		jsr	InitPwrCon	;init the power-up constant
*	|	|	|
*	v	v	v	Fall thru into ZapCache
**********************************************************************
*
**********************************************************************
ZapCache	equ	*
* Clear the cache control tables on a Warm/Cold reset
		ldx	#32-1
		lda	#$40
@zapctbls	stz	cachtrk,x	;reset all cache vars on reset
		stz	cachsect,x
		sta	cachunit,x	;mark extra buffers as not available
		cpx	#maxcache
		bne	@10
		lda	#$80		;mark as available bufs maxcache-1 thru zero
@10		dex
		bpl	@zapctbls
		rts
* "CARD	RESET ROUTINES"
*****************************************************
* InitZeroPag
****************************************************
InitZeroPag	equ	*
		ldx	#zp_init_lgth-5	;offset	into page
@ldzpg		lda	Zero_Page_Init_Data,x ;get the initial data from the ROM
		sta	$00,x		;copy it into card zero	page
		dex
		bne	@ldzpg		;except	for first byte (msg)
		rts
*********************************************************
* InitPwrCon 
*
* Power-up Constant is 4 bytes long
*********************************************************
InitPwrCon	equ	*
		ldx	#zp_init_lgth-1
@copypwrcon	lda	Zero_Page_Init_data,x
		sta	$00,x
		dex
		cpx	#zp_init_lgth-5
		bne	@copypwrcon
		rts
;*****************************************************
; CopyRom2Ram
;	 This routine puts all the firmware that the Apple //e
; uses to run card in the ram and also initializes z-page for
; the 65c02.
;
;*****************************************************
CopyRom2Ram	equ	*
		ldy	#0		;offset	into page
@ldcn		lda	Host_CnXX_Code,y ;get the $CnXX	ROM image
		sta	Host_CnXX_pseudoROM,y ;and put it into the pseudoROM area
		iny
		bne	@ldcn

@ldram		lda	Host_CA00_physical,y ;get next byte of firmware
		sta	Host_CA00_pseudoROM,y ;	and put	it in host CAxx

		lda	Host_CA00_physical+$100,y ;
		sta	Host_CA00_pseudoROM+$100,y ;	 put in	host CBxx

		lda	Host_CA00_physical+$200,y ;
		sta	Host_CC00_pseudoROM,y ;	    put	in host	CCxx

		lda	Host_CA00_physical+$300,y ;put some code in bank 0
		sta	Host_CC00_pseudoROM+$100,y ;  put in host $CDxx	page

		lda	Host_CA00_physical+$400,y ;
		sta	Host_CC00_pseudoROM+$200,y ; put in  host CExx page

		lda	Host_CA00_physical+$500,y ;
		sta	Host_CC00_pseudoROM+$300,y ; put in  host CFxx page

		iny			;increment page	offset
		bne	@ldram		;continue if page not finished

* Now release the infinite loop	in Host_CnXX_Code code
		lda	#GOEntry-Bootptch1-2 ;relative offset from Bootpatch1 to GOEntry
		sta	|Bootptch1-Host_CnXX_Code+Host_CnXX_pseudoROM+1	;force branch to GOEntry
		stz	|Bootptch2-Host_CnXX_Code+Host_CnXX_pseudoROM+1	;force branch to next opcode

*
* Now setup the null "user" routines for the Notifer (see Host code)
		lda	#$60		;rts opcode for null "user" routines
		sta	$B80
		sta	$B80+32
		sta	$B80+64
		sta	$B80+96		;at 32 byte intervals from $B80

		rts


*************************************
* ConfigLcl Drives 
*
*  Function: Determine number of local drives
*	     and setup unittype	for each
*
*
************************************
ConfigLcl	equ	*
		jsr	EnableGCR	;insure clk speed set right at start
		ldx	#0
@gd35		stx	drive
		stx	unit_num
*
* Enable drive select and look for a disk device
		jsr	Is35		;see if	disk is	a unified/Super	drv
		bcs	@nope		;if not, look for CBUS devices
* Is35 returns drive type in A if drive found
		ora	#UTa35		;if unit is a A35 or FDHD set A35 bit
		sta	unittype,x	;ID the	unittype as AD35 and/or FDHD
		
		lda	#ejct_reset
		JSR	WriteBit	;clear dsw on Cold Reset!
		
		jsr	SensX		;set the volsts bits from drive
		bvc	@10		;something is online
		jsr	UnMountX	;nothing online so set states 
		bra	@20
@10		clc
		jsr	MountVol	;see if voltyp can be determined
		bcc	@20		;vol type now known
* Disk in place	sensed but no adrs mark	in any mode so eject
* on the assumption its	empty drive or dummy ship disk
		ldx	drive
		jsr	EjectLcl	;eject non-volume in local unit in 'drive'

@20		jsr	EnableGCR	;reset ISM side to GCR mode
		ldx	drive
		inx			;look at next local drive
		cpx	#2		;if 2, can't be a unified drive
		blt	@gd35		;

@nope		stx	numdevs		;save #	of local units
		txa
		beq	@30
		dex			;get drive # of last unit
		jsr	DTCancel	; cancel timer
@30		rts

***********************************
* Is35
***********************************
Is35		equ	*
		jsr	Enable35	;enable	any 3.5's out there
		lda	enable1,x	;now try to enable the one in y
		bit	Q6L		;don't accidentally write to disk
		bit	Q7L		;
		bit	Select		;activate the drive enable

		lda	#dirout		;point head out
		jsr	WriteBit	;

		lda	#rddir		;see if	it's going the right way
		jsr	ReadBit		;
		bcc	@nope		;nothing's out there

		lda	#dirin		;point head in
		jsr	WriteBit	;

		lda	#rddir		;see if	it's going the right way
		jsr	ReadBit		;
		bcs	@nope		;nothing's out there

		lda	#dirout		;point head out
		jsr	WriteBit	;

		lda	#rddir		;see if	it's going the right way
		jsr	ReadBit		;
		bcc	@nope		;nothing's out there

		lda	#is35HD		;is it a A35HD Drive 
		jsr	ReadBit		;returns A = $00
		bcc	@exit		;A35
		lda	#UTfdhd		;A35HD
		clc			;indicate a drive exists
		rts
@nope		sec			;indicate no Apple drive found
@exit		rts

******************************************************
* SurveyLcl
*
* Determine what volume	type is	mounted	in
* a local drive.
* AppleDisk 3.5s can have AD400K,AD800K
* AppleDisk 3.5HD can have AD400K,AD800K,SD720K,HD1440K
*
* set UnitMode,	VolType, and VolStat per type found
*
*  Assumed: drive has been selected and	motorOn	started
*
*   Input : X =	unit_num of local drive	to check (0/1)
*
*   Output: c =	0 voltype determined 
*	    A =	unitmode
*	    Y =	voltype
*	    X =	input unitnum 
*      
*	    c =	1 no readable address mark in any mode
*
* Destorys: A,Y	  Preserves X
*	    X ->  drive	(zeropage var)
*
******************************************************
SurveyLcl	equ	*
		stx	drive
		lda	#4
		sta	errcnt		;retry count for each mode to try
		jsr	WaitReady	;be sure drive is ready
@searchlp	stz	side		;always	try side 0
		jsr	GetAddr		;for now its simple
		bcc	@found
		lda	error2
		bit	#adrerror	;bit slip/check	sum error?
		bne	@GCRretry	;yes. so try again
		bit	#cylerror	;not on	the right track?
		beq	@nomrk
		lda	CylFnd
		sta	cyl		;make where I am where I want to be
@GCRretry	dec	errcnt
		bne	@searchlp
		bra	tryMFM		
@nomrk		bit	#nomkerror	
		bne	tryMFM
@errxit		sec
		rts
*
* Found	a valid	GCR adrs mark
*
@found		ldx	drive
		jsr	EnblnSens
		ldy	#AD800K		;assume	2 sided	GCR 4:1 
		lda	VolIntrlv,x
		and	#$1F		;drop 2 sided bit
		cmp	#02		;is it 2:1 interleave?
		bne	@05
		ldy	#AD800K2
@05		bit	twosided,x
		bmi	@10		;double sided!
		lda	volsts,x
		ora	#VSsingle
		sta	volsts,x
		ldy	#AD400K		;2:1 only
@10		lda	TotBlks,y	;set data for Status calls
		sta	TotBlksl,x
		lda	TotBlks+1,y	;to return to SmartPort
		sta	Totblksh,x	;etc
		lda	volsts,x
		and	#-1-VSoffline	;cancel	offline	state
		sta	volsts,x
		
		lda	unitmode,x
		and	#%10010100
		ora	DfltMode,y
		sta	UnitMode,x
		sty	VolType,x	;save the volume type
		clc
		rts

* now setup and	try the	MFM mode for IBM 720K 
tryMFM		equ	*
		ldx	drive
		lda	#UTfdhd		;can drive do MFM?
		bit	UnitType,x	
		beq	@notFDHD	;Not with an Apple 3.5" drive
		
		lda	#DrivMFMadr	;switch Drive to MFM mode
		JSR	WriteBit	;send cmd to set FDHD mode
		lda	#11
		jsr	Wait2Ms		;delay at least 20 ms before sampling Ready
		jsr	EnableMFM	;switch to ISM and enable 16M clock etc
		LDA	#MFMmodeAdr
		jsr	ReadBit		;read back the drive mode
		bcc	tryMFM		;try again
		jsr	WaitReady	;be sure drive is ready

		stz	cyl
		lda	#4
		sta	errcnt		;retry count for each mode to try
@searchlp	stz	side		;always	try side 0
		jsr	GetAddr		;for now its simple
		bcc	@foundMFM
		lda	error2
		bit	#adrerror	;bit slip/check	sum error?
		bne	@retry		;yes. so try again
		bit	#cylerror	;not on	the right track?
		beq	@retry
		lda	CylFnd
		sta	cyl		;make where I am where I want to be
@retry		dec	errcnt
		bne	@searchlp
		
* Following a mode change with motor already running
@noMFM		
		lda	#DrivGCRadr
		jsr	WriteBit
		lda	#11
		jsr	Wait2Ms		;enforce delay for bad Ready sense line
@notFDHD	jsr	EnableGCR
		ldx	drive
		lda	unitmode,x
		and	#%10011111
		sta	unitmode,x	;zap mfm media bits just to be sure
		sec
		rts
*
* Found valid MFM adrs mark
*
@foundMFM	jsr	DeSelectISM	;switch back to IWM side
		ldx	drive
		jsr	EnblnSens	;sense drive state and set volsts
		ldy	#DD720K		;
		lda	TotBlks,y	;set data for Status calls
		sta	TotBlksl,x
		lda	TotBlks+1,y	;to return to SmartPort
		sta	Totblksh,x	;etc
		lda	volsts,x
		and	#-1-VSoffline	;cancel	offline	state
		sta	volsts,x
			
		lda	DfltMode,y
		sta	UnitMode,x
		sty	VolType,x	;save the volume type
		clc
		rts

******************************************
* Data Tables for SURVEY
******************************************
DfltMode	equ	*
		DC.B	$00		;null
		DC.B	00		;zero blks/trk
		DC.B	%00010001	;AD400K
		DC.B	$80+8		;var blks/trk min =8
		DC.B	%00010001	;AD800K (4:1)
		DC.B	$80+8		;var blks/trk min = 8
		DC.B	%00010001	 ;AD800K  (2:1)
		DC.B	$80+8		;var blks/trk min = 8
		DC.B	%00110010	;DD720K
		DC.B	9		;9 blks/trk
		DC.B	%01010010	;HD1400K
		DC.B	18		;18 blks/trk
		DC.B	%01010010	;HD1400K
		DC.B	18		;18 blks/trk


\ No newline at end of file
diff --git a/IIGS.601.SRC/NuMustang/SelfTest.aii b/IIGS.601.SRC/NuMustang/SelfTest.aii
new file mode 100644
index 0000000..4b18675
--- /dev/null
+++ b/IIGS.601.SRC/NuMustang/SelfTest.aii
@@ -0,0 +1 @@
+
		machine M6502	;the following code runs on the host processor

*********************************************************
* Host_test_code					*
* 							*
* This code segment will be moved to			*
* Host bank #0 upper 512 bytes and the			*
* Host_CC00_pseudoROM by the card 			*
*							*
* perform a sequence of tests of the RAM and		*
* ROM areas the host can access on the card 		*
*							*
* 1. Do a checksum on the ROM/RAM areas.		*
*	Read and write all memory spaces checking	*
*	for data, address and changing 'ROM'		*
*	errors.  The host display will be used to	*
*	monitor the progress of the operations.		*
*							*
* 2. (future)						*
*							*
*							*
*********************************************************
Host_test_code	PROC ENTRY,TEMPORG $CA00 ;appearently at the host location
		WITH zero_page_template ;allows zero page variables to be used simply
		ENTRY	factory_sig_h
		IMPORT	fact_sig_copy

;the card has just attempted to see what drives are out there
;inform the user as to what we see
Disk_info_user	jsr	cr_h			;** put out the info to the screen **
		lda	#>disk_read_title
		sta	zp_addr_h+1
		lda	#<disk_read_title
		jsr	string_out
		lda	RAM_base_h+numdevs	;get the number of devices
		tax				;save it for later
		jsr	prhex_h			;put it out
		jsr	cr_h
		txa				;set the flags
		bne	@Disk			;we have at least one drive
		jmp	@Disk_info_end		;there are no drives so we're done
		
@Disk		lda	#1			;start with the first drive
		pha				;put the drive # on the stack

@Disk1		pla				;get the drive number
		pha				;save it back
		tay				;Y is the index
		jsr	prhex_h			;tell the user which drive
		lda	RAM_base_h+unittype-1,y	;get the unit type
		cmp	#UTa35			;is it an apple 3.5 drive?
		bne	@Disk2			;no
****
* AD35_out
****
		lda	#<AD35_msg
		jsr	string_out
		jmp	@Disk_volume		;go to volume type
@Disk2		cmp	#UTfdhd	or UTa35	;is it a FDHD?
		bne	@Disk3			;no
****
* FDHD_out
****
		lda	#<FDHD_msg
		jsr	string_out
		jmp	@Disk_volume		;go to volume type
@Disk3		cmp	#UTremote		;is it a UniDisk 3.5?
		bne	@Disk_volume		;no
****
* UD35_out
****
		lda	#<UD35_msg
		jsr	string_out
		jmp	@Disk_end_test		;skip volume type and write protect for unidisk
@Disk4		jsr	unk_out
		jmp	@Disk_end_test		;this will skip the rest of the line

@Disk_volume	pla				;get the drive number
		pha				;save it back
		tay				;Y is the index
		lda	RAM_base_h+voltype-1,y	;get the volume type
		cmp	#AD400K			;is it a 400k?
		bne	@Disk5			;no
****
* v400K_out
****
		lda	#<v400K_msg
		jsr	string_out
		jmp	@Disk_wrt_pro		;go to prite protect?
@disk5		cmp	#DD720K			;is it a 720K?
		bne	@disk6			;no
****
* v720K_out
****
		lda	#<v720K_msg
		jsr	string_out
		jmp	@Disk_wrt_pro		;go to prite protect?
@disk6		cmp	#AD800K			;is it a 800K?
		bne	@disk7			;maybe...
		jsr	v800K_out		;yes
		jmp	@Disk_wrt_pro		;go to prite protect?
@disk7		cmp	#AD800K2		;is it a 800K?
		bne	@disk8			;no
		jsr	v800K_out		;yes
		jmp	@Disk_wrt_pro		;go to prite protect?
@disk8		cmp	#HD1440K2		;is it a 1440K?
		bne	@disk9			;maybe...
		jsr	v1440K_out		;yes
		jmp	@Disk_wrt_pro		;go to prite protect?
@disk9		cmp	#HD1440K1		;is it a 1440K?
		bne	@Disk10			;no
		jsr	v1440K_out		;yes
		jmp	@Disk_wrt_pro		;go to prite protect?
@disk10		jsr	unk_out
		jmp	@Disk_end_test		;this will skip the rest of the line


@Disk_wrt_pro	pla				;get the drive number
		pha				;save it back
		cmp	#3			;is the drive number less than 3?
		bcs	@Disk_end_test		;no, skip the write protect
		tay				;Y is the index
		lda	RAM_base_h+volsts-1,y	;get the volume status
		and	#VSwrprot		;is it write protected?
		beq	@Disk11			;no
****
* yes_out
****
		lda	#<yes_msg
		jsr	string_out
		jmp	@Disk_end_test		;go check if we are done
@Disk11
****
* no_out
****
		lda	#<no_msg
		jsr	string_out


@Disk_end_test	pla				;get the drive number
		tay				;put it in y
		cmp	RAM_base_h+numdevs	;did we do the last drive?
		beq	@Disk_info_end		;yes, go on to next section
		iny				;no, do the next drive
		tya
		pha				;save the new drive number
		jsr	cr_h
		jmp	@disk1			;again...


@Disk_info_end	jsr	cr_h
		jsr	cr_h
		jsr	Host_pass_disk		;wait for the card to determine if write needed

;if we returned then we must be at the factory and we are passed the first drive write test
		lda	#<disk_pass_msg
		jsr	string_out
		lda	#1			;disk 1
		jsr	prhex_h
		jsr	cr_h
		jsr	Host_pass_disk		;wait for the second drive write test
;if we returned then we must have passed the second drive write test
		lda	#<disk_pass_msg
		jsr	string_out
		lda	#2			;disk 2
		jsr	prhex_h
		jsr	cr_h
		jsr	Host_pass_disk		;wait for the host to handshake the exit

*******************************		
***!!!*** END of CODE ***!!!***
*******************************

****
* v1440K_out
****
v1440K_out	lda	#<v1440K_msg
		jsr	string_out
		rts

****
* v800K_out
****
v800K_out	lda	#<v800K_msg
		jsr	string_out
		rts


****
* unk_out
****
unk_out		lda	#<unk_msg
		jsr	string_out
		rts



**********************
* Host Disk test data*
**********************

;fill the gap with zeroes
		DCB.B	512-193-(*-Host_test_code),$00

		STRING C	;make the following 'C' strings, terminated with a $00 byte
		MSB ON

disk_pass_msg	DC.B	'Passed R/W for Unit '
disk_fail_msg	DC.B	'R/W Failure on block $'
disk_fail_msg2	DC.B	'  Err=$'
disk_read_title	DC.B	'# Unit        Volume  W/P   Drives='
UD35_msg	DC.B	' UniDisk 3.5'
AD35_msg	DC.B	' Apple 3.5  '
FDHD_msg	DC.B	' Apple FDHD '
v400K_msg	DC.B	' 400K '
v720K_msg	DC.B	' 720K '
v800K_msg	DC.B	' 800K '
v1440K_msg	DC.B	' 1440K'
unk_msg		DC.B	'  ??? '
yes_msg		DC.B	'   YES'
no_msg		DC.B	'   NO'

		STRING ASIS	;return to the default string setting
		MSB OFF
		
;these locations will be at the top of the bank switched host code
factory_sig_h	DCB.B	16,0	;Factory signature will be placed here
rnd_h		DC.B	0	;host will place the random number here
hndsk_h		DC.B	0	;handshake byte durring disk tests and exiting



***** This is the point where the initial $CnXX code jumps to after being released *****
;The first thing to do is clear the host's screen and put out a message
CC00_test_code	sei			;disable interrupts (when we force coldstart they will be fixed)
		jsr	setvid_h	;make sure that the screen is the output device
		jsr	setkbd_h	;and that the keyboard is the input device
		jsr	text_h		;put the host into text mode
		jsr	home_h		;clear the scren and put the cursor at the top left
		lda	#%11111111
		sta	zp_byte1_h	;assume we can display lowere case
		lda	#$06		;this is the ID of //e or later systems
		cmp	IDbyte1		;does the system support lower case characters
		beq	@message_out	;yes
		lda	#%11011111	;no, this will force bit 5 off
		sta	zp_byte1_h	;put it in a safe place

@message_out	lda	#>Sign_on_msg1
		sta	zp_addr_h+1	;store the high address byte
		lda	#<Sign_on_msg1	;low byte of the strings addr
		jsr	String_out	;go display the string
		jsr	cr_h		;go to next line

		lda	#<Sign_on_msg2
		jsr	String_out	;go display the string
		jsr	cr_h		;go to next line

		lda	#<copywrt_msg
		jsr	String_out	;go display the string
		jsr	cr_h		;go to next line
		jsr	cr_h		;go to next line

		lda	#<test_title
		jsr	String_out	;go display the string
		jsr	cr_h		;go to next line

		lda	#<test_1
		jsr	String_out	;go display the string

;find out what slot we're in and tell the user
		lda	mslot_h		;get the $Cn from where it was stored (which slot we're in)
		jsr	prhex_h		;output lower nibble to the screen, A is scrambled
		lda	mslot_h		;get the $Cn from where it was stored (which slot we're in)
		asl	A
		asl	A
		asl	A
		asl	A		;A=$n0
		ora	#$80		;$n0 or'd w/ $80 will give low byte of I/O base address
		sta	zp_addr1_h	;place it in the low byte
		lda	#$C0
		sta	zp_addr1_h+1	;high byte, indirect address to our slot I/O space
		jsr	cr_h		;go to next line

;PseudoROM test
		lda	#<test_2
		jsr	String_out	;go display the string
		jsr	host_idle	;wait for the test to complete

;Card ROM CRC
		lda	#<test_3
		jsr	String_out	;go display the string
		jsr	host_idle	;wait for the test to complete

;Card ROM Checksum
		lda	#<test_4
		jsr	String_out	;go display the string
		jsr	host_idle	;wait for the test to complete

;SWIM
		lda	#<test_5
		jsr	String_out	;go display the string
		jsr	host_idle	;wait for the test to complete

;Card RAM
		lda	#<test_6
		jsr	String_out	;go display the string
		jsr	host_idle	;wait for the test to complete

;Host/Card shared data
		lda	#<test_7
		jsr	String_out	;go display the string

;Perform a checksum on the host RAM/ROM
; The host can check the entire 'ROM' and RAM space, less the cards I/O bank ($0AXX)
; which corresponds to the host latch bank $2 $CAXX, for reading all the data correctly.
;
; the order in which the memory is to be added is:
;	(1)  latch bank $0, $C806-$CBFF
;	(2)  latch bank $1, $C800-$CBFF
;	(3)  latch bank $3, $C800-$CBFF
;	(4)  latch bank $4, $C800-$CBFF
;	(5)  latch bank $5, $C800-$CBFF
;	(6)  latch bank $6, $C800-$CBFF
;	(7)  latch bank $7, $C800-$CBFF
;	(8)  latch bank $8, $C800-$CBFF
;	(9)  latch bank $9, $C800-$CBFF
;	(10) latch bank $A, $C800-$CBFF
;	(11) latch bank $B, $C800-$CBFF
;	(12) latch bank $C, $C800-$CBFF
;	(13) latch bank $D, $C800-$CBFF
;	(14) latch bank $E, $C800-$CBFF
;	(15) latch bank $F, $C800-$CBFF
;	(16) $CC00-$CFFE
;	(17) latch bank $2, $CB00-$CBFF
;	(18) $Cn00-$CnFF
;	(19) latch bank $2, $C800-$C9FF
;
; when the sum of the data is complete if it is incremented the result
; should be $00, if it is not then inform both the card and the user
;
; A destroyed
; X destroyed
; Y destroyed
h_add1		lda	#0
		tax			;zero the x index reg
		ldy	#6		;put 6 into the y index reg
		stx	zp_addr_h	;zero into the low byte of the address
@h_add2		stx	zp_byte_h	;save the latch bank #
		sty	zp_byte2_h	;save the Y
		ldy	zp_byte_h	;bank # in Y
		sta	(zp_addr1_h),y	;this will switch in the correct latch bank
		ldy	zp_byte2_h	;restore Y
		ldx	#$C8		;the page address
		stx	zp_addr_h+1	;set the high address byte
		ldx	#$CC		;this is the compare value for the page to stop at
@h_add3		clc			;get ready to add
		adc	(zp_addr_h),y	;do the add
		iny			;point to the next byte
		bne	@h_add3		;no need to do anything to the bank byte
		inc	zp_addr_h+1	;the page needs to change
		cpx	zp_addr_h+1	;are we done with this section (?)?
		bne	@h_add3		;no
		ldx	zp_byte_h	;get the just completed bank latch #
		cpx	#$01		; have we just completed the first two latch banks?
		bne	@h_add4		;no; continue on
		inx			;skip latch bank #2
@h_add4		cpx	#$0F		;have we just completed the last latch bank?
		beq	@h_add5		;yes, we are done with sections (1) through (15)
		inx			;no, point to the next latch bank #
		jmp	@h_add2		;go add the next latch bank #

@h_add5		ldx	#$CC
		stx	zp_addr_h+1	;set high address byte to starting page of section (16)
		ldx	#$CF		;this is the compare value for the page to stop at
@h_add6		clc			;get ready to add
		adc	(zp_addr_h),y	;do the add
		iny			;point to the next byte
		bne	@h_add6		;no need to do anything to the bank address
		inc	zp_addr_h+1	;the page needs to change
		cpx	zp_addr_h+1	;are we done with  the first part of section (16)?
		bne	@h_add6		;no
@h_add6b	clc			;get ready to add
		adc	(zp_addr_h),y	;do the add
		iny			;point to the next byte
		cpy	#$FF		;are we done with the rest of section (16)?
		bne	@h_add6b	;no

		ldy	#2		;bank #2
		sta	(zp_addr1_h),y	;switch in latch bank $2
		ldy	#0		;the next routine assumes Y is equal to zero
		ldx	#$CB
		stx	zp_addr_h+1	;set the address to proper page for section (17)
@h_add7		clc			;get ready to add
		adc	(zp_addr_h),y	;do the add
		iny			;point to the next byte
		bne	@h_add7		;we are not done yet

		ldx	mslot_h		;get the cards $Cn page location
		stx	zp_addr_h+1	;set the correct page address for section (18)
@h_add8		clc			;get ready to add
		adc	(zp_addr_h),y	;do the add
		iny			;point to the next byte
		bne	@h_add8		;we are not done yet

		ldx	#$C8
		stx	zp_addr_h+1	;set high address byte to starting page of section (19)
		ldx	#$CA		;this is the compare value for the page to stop at
@h_add9		clc			;get ready to add
		adc	(zp_addr_h),y	;do the add
		iny			;point to the next byte
		bne	@h_add9		;no need to do anything to the bank address
		inc	zp_addr_h+1	;the page needs to change
		cpx	zp_addr_h+1	;are we done with section (19)?
		bne	@h_add9		;no

		cmp	#$FF		;the accumulator should equal $FF if all is ok
		beq	add_pass_h	;the checksum is good go report the news
add_fail_h	jsr	test_fail_sub	;the test failed tell the user
		jmp	Ask_exit	;does the user want to exit
			
add_pass_h	jsr	test_pass_sub	;passed the test tell the user

;perform the host RAM test through all banks execpt #0
host_RAM_test	lda	#<test_8
		jsr	String_out	;go display the string

		ldx	#0		;zero the x index reg
		stx	zp_addr_h	;zero into the low byte of the address
		inx			;skip bank #0
@h_write1	stx	zp_byte_h	;save the latch bank #
		jsr	Live_indicator	;update the live indicator
		ldy	zp_byte_h	;Y = bank #
		sta	(zp_addr1_h),y	;this will switch in the correct latch bank
		ldy	#0		;zero the y index reg
		ldx	#$C8		;the page address
		stx	zp_addr_h+1	;set the high address byte
		ldx	#$CC		;this is the compare value for the page to stop at
@h_write2	tya			;get the page offset
		clc			;get ready to add
		adc	zp_byte_h	;add the bank latch #
		adc	zp_addr_h+1	;and add the page
		sta	(zp_addr_h),y	;write the data
		iny			;point to the next byte
		bne	@h_write2	;no need to do anything to the bank byte
		inc	zp_addr_h+1	;the page needs to change
		cpx	zp_addr_h+1	;are we done with this latch bank?
		bne	@h_write2	;no
		ldx	zp_byte_h	;get the just completed bank latch #
		cpx	#$0F		;have we just completed the last latch bank?
		beq	@h_read1	;yes, we are done with the writing of the paged RAM
		inx			;no, point to the next latch bank #
		jmp	@h_write1	;go add the next latch bank #

@h_read1	ldx	#0		;zero the x index reg
		stx	zp_addr_h	;zero into the low byte of the address
		inx			;skip bank #0
@h_read2	stx	zp_byte_h	;save the latch bank #
		jsr	Live_indicator	;update the live indicator
		ldy	zp_byte_h	;Y = bank #
		sta	(zp_addr1_h),y	;this will switch in the correct latch bank
		ldy	#0		;zero the y index reg
		ldx	#$C8		;the page address
		stx	zp_addr_h+1	;set the high address byte
		ldx	#$CC		;this is the compare value for the page to stop at
@h_read3	tya			;get the page offset
		clc			;get ready to add
		adc	zp_byte_h	;add the bank latch #
		adc	zp_addr_h+1	;and add the page
		cmp	(zp_addr_h),y	;compare the data
		beq	@h_read4	;the data is good
; if we fail jump to the host checksum fail routine to save some bytes
		jmp	add_fail_h	;the test failed
@h_read4	iny			;point to the next byte
		bne	@h_read3	;no need to do anything to the bank byte
		inc	zp_addr_h+1	;the page needs to change
		cpx	zp_addr_h+1	;are we done with this latch bank?
		bne	@h_read3	;no
		ldx	zp_byte_h	;get the just completed bank latch #
		cpx	#$0F		;have we just completed the last latch bank?
		beq	@h_read_pass	;yes, we are done with the compare of the paged RAM
		inx			;no, point to the next latch bank #
		jmp	@h_read2	;go add the next latch bank #
@h_read_pass	jsr	test_pass_sub	;passed the test tell the user

;Done with all the host tests so before we let the card do a disc read
;we need to copy the factory ID bytes and a random # into card RAM
		ldy	#0		;bank 0
		sta	(zp_addr1_h),y	;this will switch in the correct latch bank
		lda	#>(@copy_rtn-1)
		pha
		lda	#<(@copy_rtn-1)
		pha			;we have put the proper return address on the stack
		lda	mslot_h
		pha
		lda	#<fact_sig_copy-1
		pha
		rts			;this jumps to the $CnXX routiene
@copy_rtn	lda	$C02F		;get a rnd number
		sta	rnd_h		;store it in common RAM
		jsr	Host_pass_disk	;wait for the card to read the drive info
		jmp	Disk_info_user	;the bank is 0, go jump into the RAM


;ask the user to exit
Ask_exit	lda	#$A6		;this is an '&'
		sta	$48D		;fix the screen
		ldy	#0		;bank 0
		sta	(zp_addr1_h),y	;this will switch in the latch bank 0
		lda	#fail_code
		sta	hndsk_h		;inform the card the host failed a test
		jsr	cr_h		;go to next line
		lda	#>test_ask1
		sta	zp_addr_h+1	;store the high address byte
		lda	#<test_ask1
		jsr	String_out	;go display the string
		jsr	cr_h		;go to next line

;watch the keyboard for the user input and then act on it
; Also: read through all areas just to exercise the logic
;	(1) all latch banks $0-$F
;	(2) $CnXX host 'ROM'
;	(3) $CC00-$CFFE

		lda	kbdstrb_h	;clear the keystroke flag
@Keybord_h	ldx	#0		;zero the x index reg
		stx	zp_addr_h	;zero into the low byte of the address
@h_read1	stx	zp_byte_h	;save the latch bank #
		ldy	zp_byte_h	;Y = bank #
		sta	(zp_addr1_h),y	;this will switch in the correct latch bank
		ldy	#0		;zero the y index reg
		ldx	#$C8		;the page address
		stx	zp_addr_h+1	;set the high address byte
		ldx	#$CC		;this is the compare value for the page to stop at
@h_read2	lda	(zp_addr_h),y	;read the data
		iny			;point to the next byte
		bne	@h_read2	;no need to do anything to the bank byte
		inc	zp_addr_h+1	;the page needs to change
		cpx	zp_addr_h+1	;are we done with this latch bank?
		bne	@h_read2	;no
		ldx	zp_byte_h	;get the just completed bank latch #
@h_read3	cpx	#$0F		;have we just completed the last latch bank?
		beq	@h_read4	;yes, we are done with the reads of this section (1)
		inx			;no, point to the next latch bank #
		jmp	@h_read1	;go add the next latch bank #

@h_read4	ldx	mslot_h		;get the cards $Cn page location
		stx	zp_addr_h+1	;set the correct page address for section (2)
@h_read5	lda	(zp_addr_h),y	;read the byte
		iny			;point to the next byte
		bne	@h_read5	;we are not done yet

		ldx	#$CC
		stx	zp_addr_h+1	;set high address byte to starting page of section (3)
		ldx	#$CF		;this is the compare value for the page to stop at
@h_read6	lda	(zp_addr_h),y	;read the byte
		iny			;point to the next byte
		bne	@h_read6	;no need to do anything to the bank address
		inc	zp_addr_h+1	;the page needs to change
		cpx	zp_addr_h+1	;are we done with  the first part of section (3)?
		bne	@h_read6	;no
@h_read7	lda	(zp_addr_h),y	;read the byte
		iny			;point to the next byte
		cpy	#$FF		;are we done with the rest of section (3)?
		bne	@h_read7	;no

		lda	kbd_h		;get the keyboard data?
		bpl	@Keybord_h	;nothing yet, so we'll try again
		sta	kbdstrb_h	;clear the key
		cmp	#$C5		;E?
		beq	Exit_h
		cmp	#$E5		;e?
		beq	Exit_h
		bne	@Keybord_h	;go look for another character

;guess the user wants out
Exit_h		lda	reset_vector_h+1	;get the high byte of the reset vector
		sta	power_up_byte_h		;store it in the power-up byte, this will force cold start
		lda	$FFFD			;get the high byte of the system reset vector
		pha				;put it on the stack
		lda	$FFFC			;get the low byte of the system reset vector
		pha				;finish building a 'rts' address to cold start
		ldy	#0			;bank 0
		sta	(zp_addr1_h),y		;flip in the bank
		lda	#reboot_code		;reboot code
		sta	hndsk_h			;tell the Card we are about to reboot
@exit_wait	lda	hndsk_h			;look for handshake
		bne	@exit_wait		;Card's not ready to re-copy the pseudoROM area (re-Init)
		rts				;cold start the host


****
* host_idle
*
* This is where We'll sit waiting for the Card
*  to finish the current test.
* While waiting, the 'Hidden' RAM area will
*  be tested and if an error is found will
*  inform the user.
* The 'live' indicator will be made active
* The pass or fail message will be put out
*  then We're done and will return.
*
* Y destroyed
* A destroyed
****
host_idle	jsr	Live_indicator	;update the live indicator
; write and then read back a page af RAM latch bank #2, $CA00-$CAFF ($0AXX on Card)
		ldy	#2		;Y = bank #2
		sta	(zp_addr1_h),y	;flip in the correct bank, #2
		ldy	#0
		lda	$CA00		;get a value
		tax			;put it in x
@s_write_h	inx			;change the data
		txa			;need to have it in A
		sta	$CA00,y		;write the data to the SRAM
		iny			;point to the next location
		bne	@s_write_h	;not done with the page

@s_read_h	inx			;next data
		txa			;put the compare value in A
		cmp	$CA00,y		;is the data good?
		bne	@s_read_err	;no
		iny			;point to the next byte
		bne	@s_read_h	;not done with the page
		jmp	@ck_card	;we pased this time so go check if the card is waiting

@s_read_err	lda	#$C5		;'E' go tell the user
		sta	$606		;put the 'E' on the screen

; check to see if the card has completed its test and report the results
@ck_card	ldy	#0		;Y = bank #0
		sta	(zp_addr1_h),y	;flip in the correct bank, #0
		lda	RAM_base_h+zp3	;check to see if the Card has responded?
		beq	host_idle	;not yet, so idle some more

		cmp	#pass_code	;did the Card's test pass?
		beq	@passed		;yes, passed

; if the value is non-zero and is not the pass code then assume it's a failure
		jsr	test_fail_sub	;the test failed tell the user
		jmp	Ask_exit	;wait for the user to Exit

@passed		sty	RAM_base_h+zp3	;pass  handshake the Card (Y = 0)
		jmp	test_pass_sub	;passed the test tell the user, rts in other sub


****
* Live_indicator
*
* this will place the next character on the screen
* at the 'live' indicator location
*
* A destroyed
* Y destroyed
****
Live_indicator	lda	$48D		;this is the 'live' indicator location
		ldy	#4		;offset into data
@live1		cmp	live_data,y	;does it match?
		beq	@live2		;yes
		dey			;no, point to the previous character
		bne	@live1		;if we are not done then continue check
		iny			;no matches, must be some other characer so this will force a '-'
@live2		lda	live_data-1,y	;get the next character in the sequence
		sta	$48D		;change the live indicator
		rts

****
* test_pass_sub
*
* this will put the test_pass message out to the screen
****
test_pass_sub	lda	#>test_pass
		sta	zp_addr_h+1
		lda	#<test_pass
		jsr	String_out	;go display the string
		jsr	cr_h		;go to next line
		rts


****
* test_fail_sub
*
* this will put the test_fail message out to the screen
****
test_fail_sub	lda	#>test_fail
		sta	zp_addr_h+1
		lda	#<test_fail	;Failed the checksum tell the user
		jsr	String_out	;go display the string
		jsr	cr_h		;go to next line
		rts


****
* String_out
*
* This subroutine will output a 'C' string, the last character is
* followed by a $00 byte, to the monitor. 256 char Max. limit.
*
* The A should have the low byte of the address of the string
* and the high byte should be in zp_addr_h+1
*
* A destroyed
* Y destroyed
****
String_out	sta	zp_addr_h	;store the low byte of the address
		ldy	#0		;set the index to zero
@string1	lda	(zp_addr_h),y	;get the string data
		bne	@string2	;this must be data to be put out
		rts			;we hit an end of string
@string2	cmp	#$C0		;is it a special character?
		bcc	@string3	;yes, don't do any thing
		and	zp_byte1_h	;make it upper case if we have to
@string3	jsr	cout_h		;put the character out to the screen
		iny			;point to the next location
		bne	@string1
		rts			;we have put out the maximum number of characters


****
* Host_pass_disk
*
* This is where we'll tell the Card that
* we passed a test or completed an operation
* and then wait for a reply either a zero to
* indicate continue, the fail_code if we
* need to exit or the disk_fail_code if
* we need to tell the user we failed then
* exit.
*
* We will also update the 'live' inicator
*
* card bank #0 will be flipped in
* the byte used for the hand shake is in bank 0
*
* Y destroyed
* A destroyed
****
Host_pass_disk	ldy	#0		;Y = bank #0
		sta	(zp_addr1_h),y	;flip in the correct bank, #0
		lda	#pass_code
		sta	hndsk_h		;tell the card we can continue
@wait1		jsr	Live_indicator	;update the live indicator
		lda	hndsk_h
		cmp	#fail_code	;does the card want out?
		bne	@wait2		;no
		jmp	Ask_exit	;wait for the user to Exit
@wait2		cmp	#disk_fail_code	;did the disk write fail?
		bne	@wait3		;no
		lda	#<disk_fail_msg
		jsr	String_out
		lda	RAM_base_h+blocknum+3	;get the high byte of the block we failed on
		jsr	prbyte_h		;put it out to the screen
		lda	RAM_base_h+blocknum+2	;get the low byte of the block we failed on
		jsr	prbyte_h		;put it out to the screen
		lda	#<disk_fail_msg2
		jsr	String_out
		lda	RAM_base_h+error	;get the error code
		jsr	prbyte_h		;put it out to the screen
		jsr	cr_h
		jmp	Ask_exit		;wait for the user to exit
@wait3		cmp	#clear_code	;is the card ready to continue?
		bne	@wait1		;no
		rts



*****************
*** Host DATA ***
*****************

		DCB.B 1536-223-(*-Host_test_code),$00 ;push the data up to the end of the page

		STRING C	;make the following 'C' strings, terminated with a $00 byte
		MSB ON
Sign_on_msg1	DC.B	' 3.5" Disk Controller Test'
Sign_on_msg2	DC.B	'    J.Arkley & T.Rudin'
copywrt_msg	DC.B	'(C)Apple Computer Inc.,1991'
test_title	DC.B	'Tests:'
test_1		DC.B	'Slot #'
test_2		DC.B	'Card pseudoROM'
test_3		DC.B	'Card ROM CRC'
test_4		DC.B	'Card ROM Checksum'
test_5		DC.B	'SWIM Regs.'
test_6		DC.B	'Card RAM'
test_7		DC.B	'Host/Card shared data'
test_8		DC.B	'Host RAM'
test_pass	DC.B	'-PASS'
test_fail	DC.B	'-FAIL'
test_ask1	DC.B	'Press E to Exit'

		STRING ASIS	;return to the default string setting

live_data	DC.B	'-/|\-'

		MSB OFF


Host_test_length EQU *-Host_test_code ;generate the length of this proc
	if (Host_test_length > 1535) then
		aerror '!!! CC00_test_code segment larger than 1023 bytes !!!'
	else
		DCB.B 1536-Host_test_length,$00 ;fill the remaining bytes with $00's

	endif


		ENDP


		MACHINE M65C02	;this next code runs on the NuMustang card w/65C02


Self_Test	PROC	ENTRY
		WITH	zero_page_template
		IMPORT	InitCard
		IMPORT	Begin
		IMPORT	UserPatch
		IMPORT	CRC_checkwords
		IMPORT	Checksum_word
		IMPORT	Bootptch1
		IMPORT	Bootptch2
		IMPORT	ColdStartup
		IMPORT	CallCmd
		IMPORT	SetCBptrs
		IMPORT	EnableGCR
		ENTRY	PwrONDiag
		ENTRY	UserTest

****************** DIAGNOSTICS *******************
* There are three Diagnostics that are supported.
*  1.The Power-on quick check
*  2.The User diagnostic
*  3.The Factory diagnostic (future)
*
* The card's red LED is used to give an
*  indication of its status.
*
*   CARD STATE		   	     INDICATION
* ------------------		-------------------------
* Card code BRK			LED Flashes short...
* Card failed Power-UP test	LED Flashes long-short...
* Card failed User/Factory test	LED Flashes long-short-short...
* Card is DEAD			LED is ON
* Card is OK			LED is OFF
*
* If the Card is waiting for the Host to reply during User/Factory diagnostics
*  the LED will be dimmed.
*
* When the User or Factory diagnostics are
*  executed the screen should give detailed
*  informaton back to the user, if possible.


************** Invoking Diagnostics **************
*
* The Power-up quick check is executed every time
*  the system is powered up or reset.
*
* The User diagnostic can be invoked by two
*  methods.  The first way is to power up the
*  system while holding down the Control
*  and D keys simultaneously, the card must
*  be the boot device.  The second method is
*  to jump into the User diagnostic entry point in
*  the card's CnXX space.  This can be done easily
*  from the monitor by typing Cn0DG at the monitor
*  prompt (*).  Where n = slot# of the card.
*  For example if the card is in slot 5 then from
*  the monitor type C50DG then press return.
*
* The Factory diagnostic is invoked by a signature
*  in the $C100 firmware space of another mustang 
* located in slot 1


************* Diagnostic Coverage ***************
*
* The scope and thus the exhaustiveness of the
*  tests are basically two levels, limited vs
*  good coverage.  The Power-on quick check is
*  a fast hardware sanity check.  The Host side
*  is not checked.  Both the User and Factory
*  diagnostics perform a longer and more detailed
*  test suite, with more helpful error feedback
*  displayed on the screen.  The Host side is checked.
*  The major difference between the User and the
*  Factory diagnostics are the automation of the
*  Factory diagnostics as compared to the user
*  interactivity needed to run the User diagostics.




zero_page_test_data:		;this must be on a page boundry
		DC.B	$55	;zp1  some initial data values, no significance
		DC.B	$0F	;zp2
		DC.B	$00	;zp3
		DC.B	$00	;zp4
		DC.W	$0000	;z_addr !!NOTE zp1-zp4 and z_addr must be together
zptd_length	EQU	*-zero_page_test_data ;generate the length of the data (for a check)

	if (zptd_length > 256) then
		aerror '!!! The zero page test data is longer than 256 bytes !!!'
	else
		DCB.B 256-zptd_length,$00 ;fill the remaining bytes with $00's
	endif




UserTest:		;Entry points can't be equated
*************************************************
* UserTest-Self_Test				*
*						*
* will do the following things:			*
*						*
* Initialize the card environment		*
* move CC00_test_code to Host_CC00_pseudoROM	*
*	make sure that all the			*
*	data was correectly moved		*
*   by comparing the it with			*
*	the ROM data - the host			*
*	needs to see the $CnXX and $CC00 present*
*	and this code will keep the host	*
*	looping until the card diagnostics	*
*	are completed				*
* do a ROM checksum				*
* finish the RAM test by more exhaustive	*
*	testing of the remaining RAM space	*
* calculate a checksum for the host to check    *
* dim the LED if these checks pass and waiting	*
* for the host to respond			*
*	else flash an error code?		*
* move zero_page_test_data to $0000		*
* allow the host to continue			*
* turn light off if host responds with 'good'	*
*  any other responce will flash LED		*
* find out if the host wants to Exercise	*
*  or perform SRAM test				*
*Exercise:					*
* send a reply to the host			*
* exersise the i/o locations			*
* loop through i/o and memory r/w's		*
* support host Command mode (future)		*
*SRAM test:					*
* send a reply to the host			*
* write then read back the data in a page	*
*  of the SRAM ($6000-$60FF)			*
* if all is ok, change the data and do it again	*
* if an error happens flash the LED		*
*						*
* Also, last little things to do, like...	*
* fill the gap in the ROM with $FF's		*
* set up the interrupt vectors			*
*************************************************
Card_test_code:

**some test equates**
factory_sig	equ	$3EE	;Factory signature will be placed here
rnd		equ	$3FE	;host will place the random number here
hndsk		equ	$3FF	;handshake byte durring disk tests and exiting

; initialize the processor
; This may be redundant but the test code is a world to itself
		sei				;disable interrupts, the hardware interrupts are tied inactive (to +5V)
		cld				;binary mode, just to be sure
		ldx	#$FF
		txs				;init the stack pointer to $01FF

;test the first few SRAM locations 'cos their used ALL the time and need to work
zp_memory_test	ldx	#5		;set index for data offset and count of six
@loop1		lda	MT_data1,x	;get some data
		sta	zp1,x		;write it to zero page
		dex			;done
		bpl	@loop1		;no
		ldx	#5		;yes, check the data
@loop2		lda	MT_data1,x
		cmp	zp1,x		;does the data check?
		beq	@ok1		;yes
		jmp	Card_error	;no
@ok1		dex			;done
		bpl	@loop2		;no
		ldx	#5		;yes, do the inverse data now
@loop3		lda	MT_data2,x	;get some inverted data
		sta	zp1,x		;write it to zero page
		dex			;done?
		bpl	@loop3		;no
		ldx	#5		;yes, check the data
@loop4		lda	MT_data2,x
		cmp	zp1,x		;does the data check?
		beq	@ok2		;yes
		jmp	Card_error	;no
@ok2		dex			;done?
		bpl	@loop4		;no

; move the zero page data into the RAM (this will overwrite any previously used bytes)
		jsr	Memory_move_zero_page_test	;move the zero page data from ROM to RAM

; did it get there?
		jsr	Memory_compare_zero_page
		bcc	flip_in_host		;the compare was ok
		jmp	Card_error		;the compare failed, let user know


; move the host  $CC00 test code
flip_in_host	jsr	Memory_move_CC00_test	;move the host $CC00 code to the correct place

;before we unlock the host make sure the Host will wait for test results
; The Convention is:
;	Host prints test message then waits.... (for non zero)
;	Card finishes puts out pass or fail code
;	then waits for Host to return the value to zero before going to next test (or time out)
;
;	The Card after its last test waits for the reboot code from host to re-init the card
		stz	zp3			;Host should wait

;unlock the host (assume the code is there)
		stz	|UserPatch-Host_CnXX_Code+Host_CnXX_pseudoROM+1 ;relaese the Host

;restore the infinite loops in Host_CnXX_Code code, for comparison purpose
		lda	#$FE			;relative offset for infinite lockup loops
		sta	|Bootptch1-Host_CnXX_Code+Host_CnXX_pseudoROM+1	;force branch to itself (restore)
		sta	|Bootptch2-Host_CnXX_Code+Host_CnXX_pseudoROM+1	;force branch to itself	(restore)

; compare the host $CnXX and $CC00 code in ROM with RAM see if it got there
		jsr	Memory_compare_CnXX	;do a simple check to make sure it is still there
		bcc	@ok1			;the compare was ok
		jmp	Card_error		;the compare failed, let user know
@ok1		jsr	Memory_compare_CC00_test;do a simple check to make sure it got there
		bcc	@ok2			;the compare was ok
		jmp	Card_error		;the compare failed, let user know
@ok2		jsr	Pass_handshake		;the test passed

; perform a CRC on the ROM
		jsr	CRC_ROM
		bcc	@ok3			;passed the test
		jmp	Card_error		;the compare failed, let user know
@ok3		jsr	Pass_handshake		;the test passed
		

; perform a checksum on the ROM areas			
		jsr	Checksum_ROM
		bcc	@ok4
		jmp	Card_error
@ok4		jsr	Pass_handshake		;the test passed


; perform a SWIM test
		jsr	SWIM_user_test
		bcc	@ok5
		jmp	Card_error
@ok5		jsr	Pass_handshake		;the test passed



; Perform a test on the remaining (unused) areas of RAM.
;  This will test the cards 32K static RAM.
;  Since the host's code has already been loaded
;  and the host is running out of it these areas
;  will not be disturbed, they have been checked
;  once anyway. The stack now has nothing on it
;  so it is ok to check it. The I/O page must also
;  be skipped. So pages $0A, $7B through $7F
;  ($7B and above, RAM only goes to $7FFF) must be skipped.
;
;  The RAM test performed will be to store a sequence
;  of 16 bit pseudorandom numbers generated from the
;  primitive polynomial into memory as words (two bytes per
;  random number). Then the sequence will be regenerated
;  and compared to the stored values, they should match.
;  One more test sequence will be done this time the 
;  sequence will be inverted to check the opposite states
;  of the bits.
;
;  The generator polynomial, P(X)=X^16 + X^12 + X^3 + X + 1, will
;  generate GF(2^16). The Galois field will be a 16 bit sequence
;  of length (2^16 - 1), the only value skipped will be $0000, if
;  the entire sequence is generated.
;
;  But, first check the two zero page locations that are used
;  in the generation of the pseudorandom number sequence.
;
; zero page locations: zp1, zp2 and z_addr destroyed
; A destroyed
; X destroyed
Memory_test	lda	#6		;the address of the byte following the zero page variables
		sta	z_addr		;put it in the low byte of the address to start checking from here
		stz	z_addr+1	;zero the high address byte, the data is in zero page
		lda	#1
		sta	zp1
		stz	zp2 		;the pseudorandom seed value is $0001

		;now it's time to write and generate the data
@MT1		lda	#$0A		;I/O page
		cmp	z_addr+1	;have we gotten to the first 'hole'?
		bne	@MT2		;no
		lda	#$0B		;yes, this is the next place to test
		sta	z_addr+1	;change the page address
@MT2		lda	#$7B		;page to stop at
		cmp	z_addr+1	;are we done filling RAM?
		beq	@MTC1		;yes, go do the compare
		lda	zp1		;no, get the low random byte
		sta	(z_addr)	;place it in RAM
		inc	z_addr		;point to the next byte, never a carry must be an odd address
		lda	zp2		;get the high random byte
		sta	(z_addr)	;place it in RAM
		inc	z_addr		;point to the next byte
		bne	@MT3		;are we into a new page? branch if no
		inc	z_addr+1	;yes, increment the page address
@MT3		clc			;prepare to generate the next random number
		rol	zp1
		rol	zp2		;new 16 bit random number if no carry shifted out
		bcc	@MT1		;no carry, continue filling RAM
		lda	#$0B
		eor	zp1
		sta	zp1		;new random low byte
		lda	#$10
		eor	zp2
		sta	zp2		;new random high byte
		bra	@MT1		;continue filling RAM
		
@MTC1		lda	#6		;the address of the byte following the zero page variables
		sta	z_addr		;put it in the low byte of the address to start checking from here
		stz	z_addr+1	;zero the high address byte, the data is in zero page
		lda	#1
		sta	zp1
		stz	zp2		;the pseudorandom seed value is $0001

		;now it's time to re-generate the data and compare it to RAM
@MTC2		lda	#$0A		;I/O page
		cmp	z_addr+1	;have we gotten to the first 'hole'?
		bne	@MTC3		;no
		lda	#$0B		;yes, this is the next place to test
		sta	z_addr+1	;change the page address
@MTC3		lda	#$7B		;page to stop at
		cmp	z_addr+1	;are we done checking RAM?
		beq	@MT4		;yes, go test the inverse random data
		lda	zp1		;no, get the low random byte
		cmp	(z_addr)	;compare it to RAM, is it the same?
		beq	@MTC4		;yes
		jmp	Card_error	;no, the RAM's bad
@MTC4		inc	z_addr		;point to the next byte, never a carry must be an odd address
		lda	zp2		;get the high random byte
		cmp	(z_addr)	;compare it to RAM, is it the same?
		beq	@MTC5		;yes
		jmp	Card_error	;no, the RAM's bad
@MTC5		inc	z_addr		;point to the next byte
		bne	@MTC6		;are we into a new page? branch if no
		inc	z_addr+1	;yes, increment the page address
@MTC6		clc			;prepare to generate the next random number
		rol	zp1
		rol	zp2		;new 16 bit random number if no carry shifted out
		bcc	@MTC2		;no carry, continue filling RAM
		lda	#$0B
		eor	zp1
		sta	zp1		;new random low byte
		lda	#$10
		eor	zp2
		sta	zp2		;new random high byte
		bra	@MTC2		;continue checking RAM

		;so far so good now do the same test but this time invert the data
@MT4		lda	#6		;the address of the byte following the zero page variables
		sta	z_addr		;put it in the low byte of the address to start checking from here
		stz	z_addr+1	;zero the high address byte, the data is in zero page
		lda	#1
		sta	zp1
		stz	zp2		;the pseudorandom seed value is $0001

		;now it's time to write and generate the data
@MT5		lda	#$0A		;I/O page
		cmp	z_addr+1	;have we gotten to the first 'hole'?
		bne	@MT6		;no
		lda	#$0B		;yes, this is the next place to test
		sta	z_addr+1	;change the page address
@MT6		lda	#$7B		;page to stop at
		cmp	z_addr+1	;are we done filling RAM?
		beq	@MTC7		;yes, go do the compare
		lda	zp1		;no, get the low random byte
		eor	#$FF		;invert it
		sta	(z_addr)	;place it in RAM
		inc	z_addr		;point to the next byte, never a carry must be an odd address
		lda	zp2		;get the high random byte
		eor	#$FF		;invert it
		sta	(z_addr)	;place it in RAM
		inc	z_addr		;point to the next byte
		bne	@MT7		;are we into a new page? branch if no
		inc	z_addr+1	;yes, increment the page address
@MT7		clc			;prepare to generate the next random number
		rol	zp1
		rol	zp2		;new 16 bit random number if no carry shifted out
		bcc	@MT5		;no carry, continue filling RAM
		lda	#$0B
		eor	zp1
		sta	zp1		;new random low byte
		lda	#$10
		eor	zp2
		sta	zp2		;new random high byte
		bra	@MT5		;continue filling RAM
		
@MTC7		lda	#6		;the address of the byte following the zero page variables
		sta	z_addr		;put it in the low byte of the address to start checking from here
		stz	z_addr+1	;zero the high address byte, the data is in zero page
		lda	#1
		sta	zp1
		stz	zp2		;the pseudorandom seed value is $0001

		;now it's time to re-generate the data and compare it to RAM
@MTC8		lda	#$0A		;I/O page
		cmp	z_addr+1	;have we gotten to the first 'hole'?
		bne	@MTC9		;no
		lda	#$0B		;yes, this is the next place to test
		sta	z_addr+1	;change the page address
@MTC9		lda	#$7B		;page to stop at
		cmp	z_addr+1	;are we done checking RAM?
		beq	Verify_Host	;yes, the RAM test is completed go to the next section
		lda	zp1		;no, get the low random byte
		eor	#$FF		;invert it
		cmp	(z_addr)	;compare it to RAM, is it the same?
		beq	@MTC10		;yes
		jmp	Card_error	;no, the RAM's bad
@MTC10		inc	z_addr		;point to the next byte, never a carry must be an odd address
		lda	zp2		;get the high random byte
		eor	#$FF		;invert it
		cmp	(z_addr)	;compare it to RAM, is it the same?
		beq	@MTC11		;yes
		jmp	Card_error	;no, the RAM's bad
@MTC11		inc	z_addr		;point to the next byte
		bne	@MTC12		;are we into a new page? branch if no
		inc	z_addr+1	;yes, increment the page address
@MTC12		clc			;prepare to generate the next random number
		rol	zp1
		rol	zp2		;new 16 bit random number if no carry shifted out
		bcc	@MTC8		;no carry, continue filling RAM
		lda	#$0B
		eor	zp1
		sta	zp1		;new random low byte
		lda	#$10
		eor	zp2
		sta	zp2		;new random high byte
		bra	@MTC8		;continue checking RAM

;all the card tests have been performed.  Before we tell the host we passed the Card RAM test
;we will copy the host test $CA00 code into $0200-$03FF, this will also set the NEW HANDSHAKE
;location to zero.  Then its ok to fix the checksum byte.
;Then wait for the Host to do it's thing and tell us to start the Disk tests or Exit.
Verify_Host:

;copy the Host bank #0 $CA00-$CBFF code segment into corresponding card area
;do this before the checksum is generated
		ldy	#0				;set the offset
copy_test_CA00	lda	Host_CA00_test_physical,y	;get the data
		sta	Host_CA00_pseudoROM,y		;put it in the RAM
		lda	Host_CA00_test_physical+256,y	;get the data in the next page
		sta	Host_CA00_pseudoROM+256,y	;put it in the RAM
		dey					;point to another location
		bne	copy_test_CA00			;not done

;because we do a jsr instruction after the checksum is generated and before the host reads memory
;we need to put on the stack the data the host will read
		lda	#>jsr_label+2			;the future jsr high byte put on stack
		pha					;put it on the stack
		lda	#<jsr_label+2			;the future low byte put on stack
		pha					;put it on the stack
		pla
		pla					;restore the stack pointer
		

; Put a complemented checksum in the top byte of host RAM for the host to check.
;  The previous RAM test has left the RAM filled with random numbers.
;  So if a checksum is generated and placed at the top of the host '$F' bank the
;  the host can check its entire 'ROM' and RAM space,less the cards I/O bank ($0AXX),
;  for reading all the data correctly.
;
;  the order in which the memory is to be added is:
;	(1) $0006-$07FF
;	(2) $0C00-$3FFF
;	(3) $7C00-$7FFE 'hROM'
;	(4) $0B00-$0BFF
;	(5) $7B00-$7BFF 'hROM'
;	(6) $0800-$09FE
;  the complemented checksum will then be put into $09FF
;
;  the host will scan its memory in a corresponding order (see host code section)
;
;  the stack area can't be changed until the host has verified the checksum
;
; A destroyed
; X destroyed
; Y destroyed
ck_add1		stz	zp1		;this is being used as the low byte of the indirect address
		stz	zp2		;this is the high byte
		lda	#0		;start the A at zero
		ldy	#6		;start the offset at 6, the first six bytes will be skipped
		stz	$09FF		;make sure that the last byte doesn't change the checksum

@add2		clc			;get ready to do an add
		adc	(zp1),y		;add the byte
		iny			;point to the next byte
		bne	@add2		;no need to inc the high byte of the adddress
		inc	zp2		;the page needs to change
		ldx	#$08
		cpx	zp2		;are we done with range (1)?
		bne	@add2		;no

		ldx	#$0C		;starting page of next range
		stx	zp2		;set the address pointer to range (2)
@add3		clc			;bit bucket the carry
		adc	(zp1),y		;add the byte
		iny			;point to the next byte
		bne	@add3		;no carry to worry about
		inc	zp2		;the page must change
		ldx	#$40
		cpx	 zp2		;are we done with range (3)?
		bne	@add3		;no

		ldx	#$7C		;starting page of next range
		stx	zp2		;set the address pointer to range (3)
@add4		clc
		adc	(zp1),y		;add the byte
		iny			;point to the next byte
		bne	@add4		;no carry to worry about
		inc	zp2		;the page must change
		ldx	#$7F
		cpx	zp2		;are we done with the first part of range (3)?
		bne	@add4		;no
@add4b		clc
		adc	(zp1),y		;add the byte
		iny			;point to the next byte
		cpy	#$FF		;are we done with rang (3)?
		bne	@add4b		;no
		iny			;yes, and the next section assumes Y is equal to zero
			
		ldx	#$0B		;starting page of next range
		stx	zp2		;set the address pointer to range (4)
@add5		clc
		adc	(zp1),y		;add the byte
		iny			;point to the next location
		bne	@add5		;still more
			
		ldx	#$7B		;this is where the host $CnXX 'rom' space is
		stx	zp2		;set the address pointer to range (5)
@add6		clc
		adc	(zp1),y		;add the byte
		iny			;point to the next location
		bne	@add6		;still more

		ldx	#$08		;starting page of last range
		stx	zp2		;set the address pointer to range (6)
@add7		clc
		adc	(zp1),y		;add the byte
		iny			;point to the next byte
		bne	@add7		;no carry to worry about
		inc	zp2		;the page must change
		ldx	#$0A
		cpx	zp2		;are we done with range (6)?
		bne	@add7		;no

		eor	#$FF		;complement the checksum
		sta	$09FF		;put the byte at the end of the hosts scan


		lda	#pass_code	;passed the last card test
		sta	zp3		;let the Host know and GO (last time we use OLD Handshake)

;wait for the host to do its tests and set up some locations before we read, or exit if host fails
jsr_label	jsr	card_idle_disk	;wait... (or exit)

;lets go ahead and read
		jsr	ColdStartup	;see what we have out there
		lda	#$FF
		sta	msg		;put the proper handshake data in zero page
		stz	hndsk		;let the host inform the user about drive info
		jsr	card_idle_disk	;wait for host.. to tell the user what we found

;now we need to check to see if we are at the factory
factory_id_ck	ldy	#15		;there are 16 bytes in the ID
@factory	lda	factory_sig,y	;get the slot #1 data
		cmp	factory_data,y	;is it a match
		bne	@not_factory	;no
		dey
		bpl	@factory	;not done yet
		jmp	@factory_pass	;we are at the factory

@not_factory	lda	#fail_code
		sta	hndsk		;tell the host to exit
		jmp	Restart_loop	;wait for the user to exit

;we are at the factory!
;we need to write a sector read and check it then do it again w/ new data
;but only if there is a drive
@factory_pass	lda	numdevs		;are there any drives out there?
		bne	factory_write	;yes, we can try writing
		jmp	@not_factory	;no drives, wait for the user to exit
		
factory_write

*****************************************************************************************
* init zero page for the write
		lda	#01
		sta	unitno
		jsr	WrRdWrRd
		
		lda	numdevs
		cmp	#02
		bcc	@only1Unit
		
		lda	#02
		sta	unitno		;set unit number for WrRdWrRd
		jsr	WrRdWrRd
		
@only1Unit	lda	#fail_code
		sta	hndsk		;tell the host to exit
		jmp	Restart_loop	;wait for the user to exit

**********************************************************************
*
**********************************************************************
WrRdWrRd	jsr	@FillAllP1
		jsr	@TstWrite
		bcs	@exit
		jsr	@TstRdBack
		bcs	@exit
		jsr	@FillAllP2
		jsr	@TstWrite
		bcs	@exit
		jsr	@TstRdBack
		stz	hndsk		;passed Wr Rd Wr Rd
		lda	DeSelect	;deselet the drive
		jsr	card_idle_disk	;wait for the host...
		rts
@exit		lda	blocknum
		sta	blocknum+2
		lda	blocknum+1
		sta	blocknum+3
		lda	#disk_fail_code	;failed let the user know then exit
		sta	hndsk
		lda	DeSelect	;deselet the drive
		jmp	Restart_loop	;wait for the user to exit
		
@TstWrite	jsr	EnableGCR	;force SWIM back to GCR mode
		lda	#02
		sta	cmdmode		;suppress disk switched errors
		
		lda	rnd
		lsr	a
		lda	rnd
		stz	blocknum+1
		rol	a		;rnd * 2 + lsb of rnd
		sta	blocknum
		rol	blocknum+1	;shift the carry into hi byte = 0..$1ff
		lda	#$FF
		sta	reply		;make reply negative like host would have
		sta	TESTWRITE
		
		lda	#02
		sta	msg		;setup for a fake write block
				
		jsr	CallCmd		;DoWrite will set reply = buffer number
		stz	TESTWRITE
		bcs	@skip1
		lda	#$FF
		sta	msg
@skip1		lda	error		;did write work?
		beq	@goodWr
		sec
		rts
		
@goodWr		lda	ramblk
		jsr	SetCBptrs	;setup R0 and R2
		
		ldy	#00
@saveWrData	lda	(r0),y
		sta	$400,y
		lda	(r2),y
		sta	$500,y
		iny
		bne	@saveWrData
		clc
		rts

**********************************************************************
*
**********************************************************************
@TstRdBack	jsr	EnableGCR	;always reset to GCR mode
		lda	#01
		sta	cmdmode		;now read it back

		lda	rnd
		lsr	a
		lda	rnd
		stz	blocknum+1
		rol	a		;rnd * 2 + lsb of rnd
		sta	blocknum
		rol	blocknum+1	;shift the carry into hi byte = 0..$1ff


		lda	#$FF
		sta	reply	
		sta	CachLock
		
		lda	#01
		sta	msg
		jsr	CallCmd		;do the read of the block (sets reply = buffer again)

		lda	#$FE
		sta	msg

		lda	ramblk
		jsr	SetCBptrs	;setup pointers again
		
		lda	#$FF
		sta	reply
		lda	error
		beq	@doVerify
@RdBackFail	sec
		rts
		
@doVerify	ldy	#00
@verifyRdData	lda	(r0),y
		cmp	$400,y
		bne	@RdBackFail
		
		lda	(r2),y
		cmp	$500,y
		bne	@RdBackFail
		iny
		bne	@verifyRdData
		clc
		rts

@fillAllP2	ldy	#$C3
		bra	@fillAll
@FillAllP1	ldy	#$A5
@fillAll	lda	#08
@fillnext	jsr	@FillBufr
		inc	a
		cmp	#28
		bcc	@Fillnext
		rts

@FillBufr	pha
		jsr	SetCBptrs
		tya
		sec
		phy
		ldy	#00
@fillLp		sta	(r0),y
		sta	(r2),y
		rol	A
		iny
		bne	@fillLp
		ply
		pla
		rts
*********************************************************


;this is where the card synchronizes the coldstart
Restart_loop	

; read and write most RAM and ROM locations, this will also check the I/O decodes
;
;  the section for reading is:
;	(R) $0000-$FFFF read the entire memory space
;
;  the sectons for writing are:
;	(1) $0200-$0AFF skip zero page, the stack page and the host $CnXX area
;	(2) $0C00-$7BFF skip skip the host $CC00-$CFFF area
;	(3) $8000-$FFFF just to make sure the control lines are behaving ok
;
Test_loop	ldy	#0
		sty	z_addr
		sty	z_addr+1	;start the address and index at zero
@loop1		lda	#$0A		;where the I/O (swim) might be
		cmp	z_addr+1	;are we in the I/O page?
		bne	@loop2		;no continue
		tya			;get the low byte of the address
		and	#%11000000	;is it I/O other than the swim?
		bne	@loop2		;yes, continue
		bra	@loop3		;its in the swim area so skip reading it
@loop2		lda	(z_addr),y	;read the location
@loop3		iny			;point to the next byte
		bne	@loop1		;no need to do anything to the page
		inc	z_addr+1	;point to the next page
		bne	@loop1		;still more to read


@restart	lda	hndsk
		cmp	#reboot_code		;should we reboot?
		bne	Restart_loop		;not yet wait
Restart_loop1	lda	#clear_code
		sta	hndsk			;tell the card to coldstart
		sta	LEDon			;put the light back on for the power-up diags. to turn off
		nop
		nop
		nop
		nop				;pause a bit so the Host can begin the coldstart
		jmp	InitCard		;START AGAIN




*		v*v*v*v*> subroutines <*v*v*v*v

****
* card_idle_disk
*
* wait for the host to tell us what happened
*  if it is a pass then continue
*  if it is a fail then coldstart
*
****
card_idle_disk	lda	hndsk			;read the NEW handshake byte
		cmp	#pass_code		;did it pass?
		bne	@idle1			;no
		rts				;yes, let the card continue
@idle1		cmp	#fail_code		;did it fail?
		bne	card_idle_disk		;no, continue...
		pla				;yes, fix the stack
		pla
		jmp	Restart_loop		;go wait for the reboot


****
* Pass_handshake
*
* tells the Host the test passed
* and waits for a reply
****
Pass_handshake	lda	#pass_code		;passed this test
		sta	zp3			;let the Host know
@pass_loop	lda	zp3			;check for Host handshake
		bne	@pass_loop		;not yet wait
		rts


****
* SWIM_user_test
*
* this will test
* the SWIM
****
SWIM_user_test	bit	Q7L		;L7=0
		bit	Q6L		;L6=0
		bit	ca0off		;Phase0=0
		bit	ca1off		;Phase1=0
		bit	ca2off		;Phase2=0
		bit	pulseoff	;Phase3=0
		bit	Deselect	;Motor-on=0, the state register is now 0000	0x00

		lda	Q7L		;read all ones register
		cmp	#$FF		;did we read all ones?
		beq	@all_ones_ok	;yes
		sec			;error, set the carry
		rts

@all_ones_ok	lda	#%00011111	;ck 4 mode reg bit stuck at zero
		bit	Q6H
		sta	Q7H		;now in	mode set (write	mode register)
		eor	Q7L		;verify	mode reg write (read status register), flip bits 0-4 to	0's
		and	#%00011111	;are any of bits 0-4 not the same as written?
		beq	@ok1		;no mode regs bits stuck at zero
		sec			;error, set the carry
		rts

* now test for stuck at	1 bits
@ok1		lda	#%00000000
		sta	Q7H		;mode set (write mode register)
		eor	Q7L		;verify	mode reg write (read status register), keep bits 0-4 as	0's
		and	#%11111		;are any of bits 0-4 not the same as written?
		beq	@moderegok	;no mode regs bits stuck at one
		sec			;error, set the carry
		rts

@moderegok	lda	#%00001111
		bit	Q6H
		sta	Q7H		;mode set (write mode reg)
		eor	Q7L		;read status reg
		and	#%00011111	;are any of bits 0-4 not the same as written, is it in 7MHz?
		beq	@ok2
		sec			;error, set the carry
		rts

@ok2		lda	#%01001111
		bit	Q6H
		sta	Q7H		;mode set (write mode reg) :bit	6=1
		eor	#%01000000	;A=$00001111
		sta	Q7H		;mode set (write mode reg) :bit	6=0
		eor	#%01000000	;A=$01001111
		sta	Q7H		;mode set (write mode reg) :bit	6=1
		sta	Q7H		;mode set (write mode reg) :bit	6=1 ISM	should be switched in

		lda	#5
@dly1		dec	a
		bne	@dly1		;wait a	bit after mode switch
		lda	ISMPhaseR
		cmp	#$F0		;if it aint $F0	Not in ISM mode!
		bne	@badISM
		lda	IsmStatsR
		and	#%11000000	;mask all but the two upper bits
		cmp	#%01000000	;motor-on=0 and in ISM mode
		bne	@badISM

		stz	IsmMode0W	;don't change any bits but reset the p-RAM counter
		lda	#1		;get ready to march 1's
@walk1		sta	IsmParmsW	;store data in the parameter RAM
		asl	A		;walk the 1
		bcc	@walk1		;if not done with the 1's continue
		lda	#%11111110	;get ready to walk 0's
@walk0		sta	IsmParmsW	;store data in the parameter RAM
		rol	A		;walk the 0
		bcs	@walk0		;if not done with the 0's continue
		stz	IsmMode0W	;don't change any bits but reset the p-RAM counter
		lda	#1		;get ready to march 1's
@walk3		cmp	IsmParmsR	;compare the data in the parameter RAM
		bne	@badISM		;if it's not the same then error
		asl	A		;walk the 1
		bcc	@walk3		;if not done with the 1's continue
		lda	#%11111110	;get ready to walk 0's
@walk2		cmp	IsmParmsR	;compare data in the parameter RAM
		bne	@badISM		;if it's not the same then error
		sec			;reset the carry that was cleared during the compare
		rol	A		;walk the 0
		bcs	@walk2		;if not done with the 0's continue
		bra	@ok3		;we must have passed the ISM tests
@badISM		sec			;error, set the carry
		rts

@ok3		lda	#%11111000
		sta	IsmMode0W	;reset to IWM mode please
		bit	Q7L
		bit	Q6L		;reset to read mode
		bit	ca0off
		bit	ca1off
		bit	ca2off
		bit	pulseoff
		bit	Deselect	;the state register is now 0000	0x00

		lda	Q7L		;read all ones register
		cmp	#$FF		;did we read all ones?
		beq	@all_ones_ok1	;yes
		sec			;error, set the carry
		rts


@all_ones_ok1	lda	#%00011111	;ck 4 mode reg bit stuck at zero
		bit	Q6H
		sta	Q7H		;now in	mode set (write	mode register)
		eor	Q7L		;verify	mode reg write (read status register), flip bits 0-4 to	0's
		and	#%00011111	;are any of bits 0-4 not the same as written?
		beq	@ok4		;no mode regs bits stuck at zero
		sec			;error, set the carry
		rts

* now test for stuck at	1 bits
@ok4		lda	#%00000000
		sta	Q7H		;mode set (write mode register)
		eor	Q7L		;verify	mode reg write (read status register), keep bits 0-4 as	0's
		and	#%11111		;are any of bits 0-4 not the same as written?
		beq	@ok5		;no mode regs bits stuck at one
		sec			;error, set the carry
		rts

@ok5		lda	#%00001111
		bit	Q6H
		sta	Q7H		;mode set (write mode reg)
		eor	Q7L		;read status reg
		and	#%00011111	;are any of bits 0-4 not the same as written, is it in 7MHz?
		bne	@swim_fail	;yes, failed the test
		clc			;passed, clear the carry
		rts
@swim_fail	sec			;error, set the carry
		rts


****
* Checksum_ROM
*
* This  will sum all but one
* byte in the ROM into a 16 bit
* checksum.  The one byte left,
* Checksum_word+1, is added to
* the high byte of the checksum.
* The result should be $0000
****
* The following zero_page locations are used (changed) BEWARE!
ROM_adr		equ	$FE		;low byte of the ROM address pointer
ROM_adr_high	equ	$FF		;high byte of the ROM address pointer

Checksum_ROM	stz	ROM_adr		;init the ROM_adr pointer to the start of ROM
		lda	#>ROM_start	; assume the ROM is on a page boundry
		sta	ROM_adr_high
		lda	#0		;clear the low and
		tax			; the high bytes of the checksum
		tay			;start the offset at 0
@add_0		clc
		adc	(ROM_adr),y	;add the byte into the checksum
		bcc	@add_1		;no carry, so high byte is ok
		inx			;add the carry into the high byte
@add_1		iny			;point to the next byte
		bne	@add_0		;not done with page
		inc	ROM_adr_high	;point to the next page
		tay			;save the low checksum byte
		lda	ROM_adr_high	;get the new page
		inc	A		;is it the last page ($FF)?  Note:This is hard coded
		beq	@add_2		;-yes, special case it
		tya			;restore the low checksum byte
		ldy	#0		;set the offset back to zero
		bra	@add_0		;continue...

@add_2		tya			;restore the low checksum byte
		ldy	#0		;set the offset back to zero
@add_3		clc
		adc	(ROM_adr),y	;add the byte into the checksum
		bcc	@add_4		;no carry, so high byte is ok
		inx			;add the carry into the high byte
@add_4		iny			;point to the next byte
		beq	@add_5		;we are almost done
		cpy	#<Checksum_word+1 ;are we about to add the high byte of the Checksum_word?
		bne	@add_3		  ;-no, continue...
		iny			  ;-yes, skip it (it will never be at locaton $XXFF)
		bra	@add_3

@add_5		tay			;set the flags
		beq	@add_6		;the low checksum byte is zero, its ok
		jmp	Error_found	;the low checksum byte is wrong, failed the test
@add_6		txa			;get the high byte
		clc
		adc	Checksum_word+1	;add the high byte of the Checksum_word
		beq	@add_7		;it's ok
		sec			;failed, so set the carry
		rts
@add_7		clc			;passed, clear carry
		rts

****
* CRC_ROM
*
* This  will perform a 16 bit CRC
* on all the bits in the ROM (except the last 2K bytes), in
* groups of 16384 bits (2K bytes)
* using the CRC-CCITT Code polynomial
* g(x)=X^16 + X^12 + X^5 + 1,
* then compare the results with
* the precalculated CRCs.
****

* The following zero_page locations are used (changed) BEWARE!
;ROM_adr	equ	$FE		;low byte of the ROM address pointer
;ROM_adr_high	equ	$FF		;high byte of the ROM address pointer
CRC_low		equ	$FC		;low byte of the 16 bit CRC
CRC_high	equ	$FD		;high byte of the 16 bit CRC

		MACRO
		CRC_feedback
		lda	#$21
		eor	CRC_low
		sta	CRC_low		;save low CRC byte
		lda	#$10
		eor	CRC_high	;xor completed and bit zero set to a 1
		sta	CRC_high	;save high CRC byte
		ENDM


		MACRO
		CRC_shift
		clc
		rol	CRC_low		;start the CRC shift assuming zero shifted it
		rol	CRC_high	;finish the shift
		ENDM


CRC_ROM		stz	ROM_adr		;init the ROM_adr pointer to the start of ROM
		lda	#>ROM_start	; assume the ROM is on a page boundry
		sta	ROM_adr_high
@CRC_ROM1	stz	CRC_low		;init the CRC to $0000
		stz	CRC_high

*bit 0
@CRC0		CRC_shift
		bcs	@carry0_1	;there was a carry
		lda	(ROM_adr)	;there is no CRC carry, get the ROM data byte
		ror	A		;get bit 0 into the carry
		tay			;save the shifted data in Y
		bcc	@CRC1		;if bit 0 is zero then no feedback, check the next bit
@carry0		CRC_feedback		;there is feedback
		bra	@CRC1		;go and check next bit
@carry0_1	lda	(ROM_adr)	;there is a CRC carry, get the ROM data byte
		ror	A		;get bit 0 into the carry
		tay			;save the shifted data in Y
		bcs	@CRC1		;if bit 0 is one then no feedback, check the next bit
		bra	@carry0		;there is feedback go do it
*bit 1
@CRC1		CRC_shift
		bcs	@carry1_1	;there was a carry
		tya			;get the once shifted data
		ror	A		;get bit 1 into the carry
		tay			;save it
		bcc	@CRC2		;if bit 1 is zero then no feedback, check the next bit
@carry1		CRC_feedback		;there is feedback
		bra	@CRC2		;go and check next bit
@carry1_1	tya			;there is a CRC carry, get the once shifted data
		ror	A		;get bit 0 into the carry
		tay			;save the shifted data in Y
		bcs	@CRC2		;if bit 0 is one then no feedback, check the next bit
		bra	@carry1		;there is feedback go do it
*bit 2
@CRC2		CRC_shift
		bcs	@carry2_1	;there was a carry
		tya			;get the twice shifted data
		ror	A		;get bit 1 into the carry
		tay			;save it
		bcc	@CRC3		;if bit 1 is zero then no feedback, check the next bit
@carry2		CRC_feedback		;there is feedback
		bra	@CRC3		;go and check next bit
@carry2_1	tya			;there is a CRC carry, get the twice shifted data
		ror	A		;get bit 0 into the carry
		tay			;save the shifted data in Y
		bcs	@CRC3		;if bit 0 is one then no feedback, check the next bit
		bra	@carry2		;there is feedback go do it
*bit 3
@CRC3		CRC_shift
		bcs	@carry3_1	;there was a carry
		tya			;get the three times shifted data
		ror	A		;get bit 1 into the carry
		tay			;save it
		bcc	@CRC4		;if bit 1 is zero then no feedback, check the next bit
@carry3		CRC_feedback		;there is feedback
		bra	@CRC4		;go and check next bit
@carry3_1	tya			;there is a CRC carry, get the three times shifted data
		ror	A		;get bit 0 into the carry
		tay			;save the shifted data in Y
		bcs	@CRC4		;if bit 0 is one then no feedback, check the next bit
		bra	@carry3		;there is feedback go do it
*bit 4
@CRC4		CRC_shift
		bcs	@carry4_1	;there was a carry
		tya			;get the four times shifted data
		ror	A		;get bit 1 into the carry
		tay			;save it
		bcc	@CRC5		;if bit 1 is zero then no feedback, check the next bit
@carry4		CRC_feedback		;there is feedback
		bra	@CRC5		;go and check next bit
@carry4_1	tya			;there is a CRC carry, get the four times shifted data
		ror	A		;get bit 0 into the carry
		tay			;save the shifted data in Y
		bcs	@CRC5		;if bit 0 is one then no feedback, check the next bit
		bra	@carry4		;there is feedback go do it
*bit 5
@CRC5		CRC_shift
		bcs	@carry5_1	;there was a carry
		tya			;get the five times shifted data
		ror	A		;get bit 1 into the carry
		tay			;save it
		bcc	@CRC6		;if bit 1 is zero then no feedback, check the next bit
@carry5		CRC_feedback		;there is feedback
		bra	@CRC6		;go and check next bit
@carry5_1	tya			;there is a CRC carry, get the five times shifted data
		ror	A		;get bit 0 into the carry
		tay			;save the shifted data in Y
		bcs	@CRC6		;if bit 0 is one then no feedback, check the next bit
		bra	@carry5		;there is feedback go do it
*bit 6
@CRC6		CRC_shift
		bcs	@carry6_1	;there was a carry
		tya			;get the six times shifted data
		ror	A		;get bit 1 into the carry
		tay			;save it
		bcc	@CRC7		;if bit 1 is zero then no feedback, check the next bit
@carry6		CRC_feedback		;there is feedback
		bra	@CRC7		;go and check next bit
@carry6_1	tya			;there is a CRC carry, get the six times shifted data
		ror	A		;get bit 0 into the carry
		tay			;save the shifted data in Y
		bcs	@CRC7		;if bit 0 is one then no feedback, check the next bit
		bra	@carry6		;there is feedback go do it
*bit 7
@CRC7		CRC_shift
		bcs	@carry7_1	;there was a carry
		tya			;get the once shifted data
		ror	A		;get bit 1 into the carry
		tay			;save it
		bcc	@CRC_next	;if bit 1 is zero then no feedback, done with this byte
@carry7		CRC_feedback		;there is feedback
		bra	@CRC_next	;done with this byte
@carry7_1	tya			;there is a CRC carry, get the once shifted data
		ror	A		;get bit 0 into the carry
		tay			;save the shifted data in Y
		bcs	@CRC_next	;if bit 0 is one then no feedback, done with this byte
		bra	@carry7		;there is feedback go do it

@CRC_next	inc	ROM_adr		;point to the next ROM byte
		beq	@next_page	;we are in the next page
		jmp	@CRC0		;-still in the same page continue
@next_page	inc	ROM_adr_high	;change to the next page
		lda	ROM_adr_high
		sec
		sbc	#>ROM_start	;subtract the start of rom from where we are
		tax			;save it, we might need it
		and	#%00000111	;are we at the next 2K chunk?
		beq	@CRC_check	;-yes, check the results
		jmp	@CRC0		;-no, contine...
@CRC_check	txa			;get the next page location back
		clc
		ror	A
		ror	A
		ror	A		;divide by 8
		dec	A		;and subtract one (this should give a range 0-14)
		asl	A		;mutiply by two (two bytes per CRC)
		tax			;put it in the X for an offset
		lda	CRC_checkwords,x ;get the low byte of the expected CRC
		cmp	CRC_low		;is it the same?
		beq	@CRC_check1	;-yes, check the high byte
@CRC_check0	sec			;-no, there is an ERROR
		rts
@CRC_check1	lda	CRC_checkwords+1,x ;get the high byte of the expected CRC
		cmp	CRC_high	;is it the same?
		bne	@CRC_check0	;-no, there is an ERROR
		cpx	#$1C		;no error but are we done?
		beq	@CRC_check2	;-yes, go on to next test
		jmp	@CRC_ROM1	;-no, go check the next 2K chunk
@CRC_check2	clc			;passed, clear carry
		rts


****
* Memory_compare_CnXX
*
* This subroutine will compare the $CnXX images in
* ROM and RAM.  If they are the same then the carry
* is cleared.  If they are different then the carry
* is set.
*
* A destroyed
* X destroyed
****
Memory_compare_CnXX:
		ldx	#0			;this will give a 256 byte move
@comp_loop 	cpx	#<UserPatch-Host_CnXX_Code+1	;are we at the changed byte?
							; remember when the card reads the next byte it will
							; have been changed to a zero, this is the 'self
							; modifying code byte', so use the correct data
		bne	@compare		;no
		lda	#0			;this is the changed data
		bra	@compare1
@compare	lda	Host_CnXX_Code,x	;get a byte of data from ROM
@compare1	cmp	Host_CnXX_pseudoROM,x	;compare it with the RAM equivalent byte
		bne	@comp_fail		;failed the compare
		dex				;are we done?
		bne	@comp_loop		;not done, continue the compare
		clc				;successful compare clear the carry before returning
		rts
@comp_fail	sec				;compare error set the carry before returning
		rts


****
* Memory_move_CC00_test
*
* This subroutine will move the host test $CC00 code
* from CC00_test_code to Host_CC00_pseudoROM for a length of 1024 bytes
*
* A destroyed
* X destroyed
****
Memory_move_CC00_test:
		ldx	#0				;this will move 256 bytes
@move_loop1	lda	Host_CC00_test_physical,x 	;get a byte of data
		sta	Host_CC00_pseudoROM,x		;store it
		dex					;are we done with the first loop?
		bne	@move_loop1			;no
@move_loop2	lda	Host_CC00_test_physical+256,x	;get a byte of data
		sta	Host_CC00_pseudoROM+256,x	;store it
		dex					;are we done with the second loop?
		bne	@move_loop2			;no
@move_loop3	lda	Host_CC00_test_physical+512,x	;get a byte of data
		sta	Host_CC00_pseudoROM+512,x	;store it
		dex					;are we done with the third loop?
		bne	@move_loop3			;no
@move_loop4	lda	Host_CC00_test_physical+768,x	;get a byte of data
		sta	Host_CC00_pseudoROM+768,x	;store it
		dex					;are we done with the fourth loop?
		bne	@move_loop4			;no
		rts


****
* Memory_compare_CC00_test
*
* This subroutine will compare the $CC00 images in
* ROM and RAM.  If they are the same then the carry
* is cleared.  If they are different then the carry
* is set.
*
* A destroyed
* X destroyed
* Y destroyed
****
Memory_compare_CC00_test:
		ldx	#0				;this will give a 256 byte compare
@comp_loop1	lda	Host_CC00_test_physical,x	;get a byte of data from ROM
		cmp	Host_CC00_pseudoROM,x		;compare it with the RAM equivalent byte
		bne	@comp_fail			;failed the compare
		dex					;are we done?
		bne	@comp_loop1			;not done, continue the compare
@comp_loop2	lda	Host_CC00_test_physical+256,x	;get a byte of data from ROM
		cmp	Host_CC00_pseudoROM+256,x	;compare it with the RAM equivalent byte
		bne	@comp_fail			;failed the compare
		dex					;are we done?
		bne	@comp_loop2			;not done, continue the compare
@comp_loop3	lda	Host_CC00_test_physical+512,x	;get a byte of data from ROM
		cmp	Host_CC00_pseudoROM+512,x	;compare it with the RAM equivalent byte
		bne	@comp_fail			;failed the compare
		dex					;are we done?
		bne	@comp_loop3			;not done, continue the compare
@comp_loop4	lda	Host_CC00_test_physical+768,x	;get a byte of data from ROM
		cmp	Host_CC00_pseudoROM+768,x	;compare it with the RAM equivalent byte
		bne	@comp_fail			;failed the compare
		dex					;are we done?
		bne	@comp_loop4			;not done, continue the compare
		clc					;successful compare, clear the carry before returning
		rts
@comp_fail	sec					;compare error set the carry before returning
		rts



****
* Memory_move_zero_page_test
*
* This subroutine will move the zero page data
* from zero_page_test_data to RAM_start for a length
* of 256 bytes
*
*	A destroyed
*	X destroyed
****
Memory_move_zero_page_test:
		ldx	#0			;this will give a 256 byte move
@move_loop	lda	zero_page_test_data,x	;get a byte of data
		sta	RAM_start,x		;store it
		dex				;are we done?
		bne	@move_loop		;not done, continue the move
		rts


****
* Memory_compare_zero_page
*
* This subroutine will compare the zero page images in
* ROM and RAM.  If they are the same then the carry
* is cleared.  If they are different then the carry
* is set.
*
* A destroyed
* X destroyed
****
Memory_compare_zero_page:
		ldx	#0			;this will give a 256 byte move
@comp_loop 	lda	zero_page_test_data,x	;get a byte of data from ROM
		cmp	0,x			;compare it with the RAM equivalent byte
		bne	@comp_fail		;failed the compare
		dex				;are we done?
		bne	@comp_loop		;not done, continue the compare
		clc				;successful compare clear the carry before returning
		rts
@comp_fail	sec				;compare error set the carry before returning
		rts


****
* Card_error
*
* Any card diagnostic that fails will jump into here so that
* the user can be informed that all is not well.  The LED will
* be flashed One long Two short, to differentiate it from other
* places where errors are generated.
*
*
* Will send the fail_code to the host 
*
* Will wait for the host to send the Reboot command, then 
* it will jump to its reset vector. If the first RAM test
* fails then we will be stuck here (the host is still locked).
****
Card_error	lda	#fail_code	;we failed a test
		sta	zp3		;tell the Host
@card_err_loop	sta	LEDoff
		ldx	#$0		;this will make the total time about .5 seconds
@delay_st	lda	#$0		;this will wait approx 1ms, without using the stack.
@delay		dec	A		;(2)
		bne	@delay1		;(3)
@delay1		nop			;(2)
		nop
		bne	@delay		;(3) = 10 * 203	= 2030
		dex
		bne	@delay_st
		sta	LEDon
		ldx	#$0		;this will make the total time about .9 seconds
@delay_st1	lda	#$0		;this will wait approx 1ms, without using the stack.
@delay2		dec	A		;(2)
		bne	@delay3		;(3)
@delay3		bne	@delay3_1	;(3)
@delay3_1	bne	@delay3_2	;(3)
@delay3_2	bne	@delay3_3	;(3)
@delay3_3	bne	@delay3_4	;(3)
@delay3_4	bne	@delay3_5	;(3)
@delay3_5	nop			;(2)
		bne	@delay2		;(3) = 10 * 203	= 2030
		dex
		bne	@delay_st1
		sta	LEDoff
		ldx	#$FF		;this will make the total time about .25 seconds
@delay_st2	lda	#203		;this will wait approx 1ms, without using the stack.
@delay4		dec	A		;(2)
		bne	@delay5		;(3)
@delay5		nop			;(2)
		bne	@delay4		;(3) = 10 * 203	= 2030
		dex
		bne	@delay_st2
		sta	LEDon
		ldx	#150		;this will make the total time about .15 seconds
@delay_st3	lda	#203		;this will wait approx 1ms, without using the stack.
@delay6		dec	A		;(2)
		bne	@delay7		;(3)
@delay7		nop			;(2)
		bne	@delay6		;(3) = 10 * 203	= 2030
		dex
		bne	@delay_st3
		sta	LEDoff
		ldx	#$FF		;this will make the total time about .25 seconds
@delay_st4	lda	#203		;this will wait approx 1ms, without using the stack.
@delay8		dec	A		;(2)
		bne	@delay9		;(3)
@delay9		nop			;(2)
		bne	@delay8		;(3) = 10 * 203	= 2030
		dex
		bne	@delay_st4
		sta	LEDon
		ldx	#150		;this will make the total time about .15 seconds
@delay_st5	lda	#203		;this will wait approx 1ms, without using the stack.
@delay10	dec	A		;(2)
		bne	@delay11	;(3)
@delay11	nop			;(2)
		bne	@delay10	;(3) = 10 * 203	= 2030
		dex
		bne	@delay_st5
		sta	LEDoff
;check for user ending the test here, rebooting
		lda	hndsk
		cmp	#reboot_code	;should we reboot
		bne	@card_err_loop	;no, loop
		jmp	Restart_loop1	;yes, go do it!



PwrONDiag:

**********************************************
* Power	up diagnostics for NuMustang hardware
**********************************************
*
* Assume, for now, ROM and RAM work and setup 
* critical host CnXX firmware space immediately!
* This must be done before anything else
* because this card must be recognized
* as a disk card by the	Apple II monitor
* cold start slot scan if card is boot device
*
* Copy only the	bytes necessary	to look
* like a disk card for slot scan purposes
* with a lockup	infinite loop that will
* hold host 'boot' until the hardware
* diagnostics can be completed.
*
**********************************************
;only copy enough of the $CnXX code to halt the	host processor,
; and do it backwords so that if all the disk ID bytes are seen	by the host
; the infinite lockup loop must	already	be present
		ldy	#Bootptch2+1-Host_CnXX_Code	;byte count through the 'hold loop'
@wrcn		lda	Host_CnXX_Code,y		;get the code out of ROM
		sta	Host_CnXX_pseudoROM,y		;put it into the host $CnXX pseudoROM area
		dey
		bpl	@wrcn
*
* Simply reaching this point during pwron/reset
* Necessarily implies that the CPU, ROM and the GAL
* logic (selects and decoding) all function sufficiently
* to execute Card code. This means we can properly
* enable the ROM on the	data bus to fetch the reset
* vector and execute instructions.
*

*
* The quick pwron checks include:
* (if any of the tests fail the
*  uncompleted tests are skipped)
*
* 1. Checksum of the ROM contents
*
* 2. Check the SWIM
*    a. Check of the IWM registers
*    b. Check switching into the ISM side
*    c. Check ISM side registers
*    d. Check switching back to the IWM side
* 
* 3. Some checks of the	SRAM, without
*    disturbing areas necessary for
*    warmstart.
*


****
* Checksum_ROM_P (Power-up)
*
* This  will sum all but one
* byte in the ROM into a 16 bit
* checksum.  The one byte left,
* Checksum_word+1, is added to
* the high byte of the checksum.
* The result should be $0000
****

* The following zero_page locations are used (changed) BEWARE!
;ROM_adr ($FE)
;ROM_adr_high ($FF)

Checksum_ROM_P	stz	ROM_adr		;init the ROM_adr pointer to the start of ROM
		lda	#>ROM_start	; assume the ROM is on a page boundry
		sta	ROM_adr_high
		lda	#0		;clear the low and
		tax			; the high bytes of the checksum
		tay			;start the offset at 0
@add_0		clc
		adc	(ROM_adr),y	;add the byte into the checksum
		bcc	@add_1		;no carry, so high byte is ok
		inx			;add the carry into the high byte
@add_1		iny			;point to the next byte
		bne	@add_0		;not done with page
		inc	ROM_adr_high	;point to the next page
		tay			;save the low checksum byte
		lda	ROM_adr_high	;get the new page
		inc	A		;is it the last page ($FF)?  Note:This is hard coded
		beq	@add_2		;-yes, special case it
		tya			;restore the low checksum byte
		ldy	#0		;set the offset back to zero
		bra	@add_0		;continue...

@add_2		tya			;restore the low checksum byte
		ldy	#0		;set the offset back to zero
@add_3		clc
		adc	(ROM_adr),y	;add the byte into the checksum
		bcc	@add_4		;no carry, so high byte is ok
		inx			;add the carry into the high byte
@add_4		iny			;point to the next byte
		beq	@add_5		;we are almost done
		cpy	#<Checksum_word+1 ;are we about to add the high byte of the Checksum_word?
		bne	@add_3		  ;-no, continue...
		iny			  ;-yes, skip it (it will never be at locaton $XXFF)
		bra	@add_3

@add_5		tay			;set the flags
		beq	@add_6		;the low checksum byte is zero, its ok
		jmp	Error_found	;the low checksum byte is wrong, failed the test
@add_6		txa			;get the high byte
		clc
		adc	Checksum_word+1	;add the high byte of the Checksum_word
		beq	SWIM_test	;it's ok go on to next test
		jmp	Error_found	;failed the test



****
* SWIM_test
*
* this will test
* the SWIM
****
SWIM_test	bit	Q7L		;L7=0
		bit	Q6L		;L6=0
		bit	ca0off		;Phase0=0
		bit	ca1off		;Phase1=0
		bit	ca2off		;Phase2=0
		bit	pulseoff	;Phase3=0
		bit	Deselect	;Motor-on=0, the state register is now 0000	0x00

		lda	Q7L		;read all ones register
		cmp	#$FF		;did we read all ones?
		beq	@all_ones_ok	;yes
		jmp	Error_found	;no failed the test

@all_ones_ok	lda	#%00011111	;ck 4 mode reg bit stuck at zero
		bit	Q6H
		sta	Q7H		;now in	mode set (write	mode register)
		eor	Q7L		;verify	mode reg write (read status register), flip bits 0-4 to	0's
		and	#%00011111	;are any of bits 0-4 not the same as written?
		beq	@ok1		;no mode regs bits stuck at zero
		jmp	Error_found	;failed the test

* now test for stuck at	1 bits
@ok1		lda	#%00000000
		sta	Q7H		;mode set (write mode register)
		eor	Q7L		;verify	mode reg write (read status register), keep bits 0-4 as	0's
		and	#%11111		;are any of bits 0-4 not the same as written?
		beq	@moderegok	;no mode regs bits stuck at one
		jmp	Error_found	;failed the test

@moderegok	lda	#%00001111
		bit	Q6H
		sta	Q7H		;mode set (write mode reg)
		eor	Q7L		;read status reg
		and	#%00011111	;are any of bits 0-4 not the same as written, is it in 7MHz?
		beq	@ok2
		jmp	Error_found	;failed the test

@ok2		lda	#%01001111
		bit	Q6H
		sta	Q7H		;mode set (write mode reg) :bit	6=1
		eor	#%01000000	;A=$00001111
		sta	Q7H		;mode set (write mode reg) :bit	6=0
		eor	#%01000000	;A=$01001111
		sta	Q7H		;mode set (write mode reg) :bit	6=1
		sta	Q7H		;mode set (write mode reg) :bit	6=1 ISM	should be switched in

		lda	#5
@dly1		dec	a
		bne	@dly1		;wait a	bit after mode switch
		lda	ISMPhaseR
		cmp	#$F0		;if it aint $F0	Not in ISM mode!
		bne	@badISM
		lda	IsmStatsR
		and	#%11000000	;mask all but the two upper bits
		cmp	#%01000000	;motor-on=0 and in ISM mode
		bne	@badISM

		stz	IsmMode0W	;don't change any bits but reset the p-RAM counter
		lda	#1		;get ready to march 1's
@walk1		sta	IsmParmsW	;store data in the parameter RAM
		asl	A		;walk the 1
		bcc	@walk1		;if not done with the 1's continue
		lda	#%11111110	;get ready to walk 0's
@walk0		sta	IsmParmsW	;store data in the parameter RAM
		rol	A		;walk the 0
		bcs	@walk0		;if not done with the 0's continue
		stz	IsmMode0W	;don't change any bits but reset the p-RAM counter
		lda	#1		;get ready to march 1's
@walk3		cmp	IsmParmsR	;compare the data in the parameter RAM
		bne	@badISM		;if it's not the same then error
		asl	A		;walk the 1
		bcc	@walk3		;if not done with the 1's continue
		lda	#%11111110	;get ready to walk 0's
@walk2		cmp	IsmParmsR	;compare data in the parameter RAM
		bne	@badISM		;if it's not the same then error
		sec			;reset the carry that was cleared during the compare
		rol	A		;walk the 0
		bcs	@walk2		;if not done with the 0's continue
		bra	@ok3		;we must have passed the ISM tests
@badISM		jmp	Error_found	;failed the test

@ok3		lda	#%11111000
		sta	IsmMode0W	;reset to IWM mode please
		bit	Q7L
		bit	Q6L		;reset to read mode
		bit	ca0off
		bit	ca1off
		bit	ca2off
		bit	pulseoff
		bit	Deselect	;the state register is now 0000	0x00

		lda	Q7L		;read all ones register
		cmp	#$FF		;did we read all ones?
		beq	@all_ones_ok1	;yes
		jmp	Error_found	;no failed the test


@all_ones_ok1	lda	#%00011111	;ck 4 mode reg bit stuck at zero
		bit	Q6H
		sta	Q7H		;now in	mode set (write	mode register)
		eor	Q7L		;verify	mode reg write (read status register), flip bits 0-4 to	0's
		and	#%00011111	;are any of bits 0-4 not the same as written?
		beq	@ok4		;no mode regs bits stuck at zero
		jmp	Error_found	;failed the test

* now test for stuck at	1 bits
@ok4		lda	#%00000000
		sta	Q7H		;mode set (write mode register)
		eor	Q7L		;verify	mode reg write (read status register), keep bits 0-4 as	0's
		and	#%11111		;are any of bits 0-4 not the same as written?
		beq	@ok5		;no mode regs bits stuck at one
		jmp	Error_found	;failed the test

@ok5		lda	#%00001111
		bit	Q6H
		sta	Q7H		;mode set (write mode reg)
		eor	Q7L		;read status reg
		and	#%00011111	;are any of bits 0-4 not the same as written, is it in 7MHz?
		beq	SRAM_test
		jmp	Error_found	;failed the test


****
* SRAM_test
*
* this will test
* selective ram locations
****
SRAM_test	lda	#0		;start with locaton and data of zero
		tax
@bank01		sta 	$0100,x		;fill the bank with data
		inc	A		
		inx
		bne	@bank01
		lda	#1
		sta	$0403
		asl	A		;change the data
		sta	$0503
		asl	A		;change the data
		sta	$0603
		asl	A		;change the data
		sta	$0803
		asl	A		;change the data
		sta	$1003
		asl	A		;change the data
		sta	$1203
		asl	A		;change the data
		sta	$2003
		asl	A		;change the data
		sta	$4003
;check the data just written
		lda	#1
		cmp	$0403
		beq	@bank05
		jmp	Error_found	;failed the test
@bank05		asl	A		;change the compare data
		cmp	$0503
		beq	@bank06
		jmp	Error_found	;failed the test
@bank06		asl	A		;change the compare data
		cmp	$0603
		beq	@bank08
		jmp	Error_found	;failed the test
@bank08		asl	A		;change the compare data
		cmp	$0803
		beq	@bank10
		jmp	Error_found	;failed the test
@bank10		asl	A		;change the compare data
		cmp	$1003
		beq	@bank12
		jmp	Error_found	;failed the test
@bank12		asl	A		;change the compare data
		cmp	$1203
		beq	@bank20
		jmp	Error_found	;failed the test
@bank20		asl	A		;change the compare data
		cmp	$2003
		beq	@bank40
		jmp	Error_found	;failed the test
@bank40		asl	A		;change the compare data
		cmp	$4003
		beq	@bank01ck
		jmp	Error_found	;failed the test

@bank01ck	lda	#0
		tax
@bank01ck1	cmp	$0100,x	;is it ok?
		bne	@bank01err
		inc	A
		inx
		bne	@bank01ck1
		bra	@bank01_inv
@bank01err	jmp	Error_found	;failed the test

@bank01_inv	lda	#$FF		;start with inverse of $00
		ldx	#0		;at location $00
@bank01_inv1	sta	$0100,x		;fill the bank with inverse data
		dec	A
		inx
		bne	@bank01_inv1

		lda	#$FF
		ldx	#0
@bank01_inv_ck	cmp	$0100,x		;is it ok?
		bne	@bank01_inv_err
		dec	A
		inx
		bne	@bank01_inv_ck
		bra	@ckeck_again
@bank01_inv_err	jmp	Error_found	;failed the test

@ckeck_again	lda	#1
		cmp	$0403
		beq	@bank05_
		jmp	Error_found	;failed the test
@bank05_	asl	A		;change the compare data
		cmp	$0503
		beq	@bank06_
		jmp	Error_found	;failed the test
@bank06_	asl	A		;change the compare data
		cmp	$0603
		beq	@bank08_
		jmp	Error_found	;failed the test
@bank08_	asl	A		;change the compare data
		cmp	$0803
		beq	@bank10_
		jmp	Error_found	;failed the test
@bank10_	asl	A		;change the compare data
		cmp	$1003
		beq	@bank12_
		jmp	Error_found	;failed the test
@bank12_	asl	A		;change the compare data
		cmp	$1203
		beq	@bank20_
		jmp	Error_found	;failed the test
@bank20_	asl	A		;change the compare data
		cmp	$2003
		beq	@bank40_
		jmp	Error_found	;failed the test
@bank40_	asl	A		;change the compare data
		cmp	$4003
		bne	Error_found	;failed the test
		sta	LEDoff		;passed the tests so turn the light off
		jmp	Begin		;return	without	using stack

Error_found	stz	Host_CnXX_pseudoROM+5	;change the third ProDOS signature byte
					     	; the host may not have tried to boot us yet.
		lda	#$4C			;JMP instruction to be place in the pseudoROM
		sta	Host_CnXX_pseudoROM
		sta	|Bootptch1-Host_CnXX_Code+Host_CnXX_pseudoROM+2
		sta	|Bootptch2-Host_CnXX_Code+Host_CnXX_pseudoROM+2
		lda	#$59						;low byte of OLD-MONitor entry point
		sta	Host_CnXX_pseudoROM+1
		sta	|Bootptch1-Host_CnXX_Code+Host_CnXX_pseudoROM+3
		sta	|Bootptch2-Host_CnXX_Code+Host_CnXX_pseudoROM+3
		lda	#$FF						;high byte of OLD-MONitor entry point
		sta	Host_CnXX_pseudoROM+2
		sta	|Bootptch1-Host_CnXX_Code+Host_CnXX_pseudoROM+4
		sta	|Bootptch2-Host_CnXX_Code+Host_CnXX_pseudoROM+4
		stz	|Bootptch1-Host_CnXX_Code+Host_CnXX_pseudoROM+1	;force branch to JMP
		stz	|Bootptch2-Host_CnXX_Code+Host_CnXX_pseudoROM+1	;force branch to JMP

		ldx	#Bootptch2-Host_CnXX_Code+Host_CnXX_pseudoROM+5
@10		stz	Host_CnXX_pseudoROM,x	;zero out all the remaining $CnXX space, this should cause a BRK
		inx
		bne	@10		;not done with the page
		
Flash_error	sta	LEDoff
		ldx	#$0		;this will make the total time about .5 seconds
@delay_st	lda	#$0		;this will wait approx 1ms, without using the stack.
@delay		dec	A		;(2)
		bne	@delay1		;(3)
@delay1		nop			;(2)
		nop
		bne	@delay		;(3) = 10 * 203	= 2030
		dex
		bne	@delay_st
		sta	LEDon
		ldx	#$0		;this will make the total time about .9 seconds
@delay_st1	lda	#$0		;this will wait approx 1ms, without using the stack.
@delay2		dec	A		;(2)
		bne	@delay3		;(3)
@delay3		bne	@delay3_1	;(3)
@delay3_1	bne	@delay3_2	;(3)
@delay3_2	bne	@delay3_3	;(3)
@delay3_3	bne	@delay3_4	;(3)
@delay3_4	bne	@delay3_5	;(3)
@delay3_5	nop			;(2)
		bne	@delay2		;(3) = 10 * 203	= 2030
		dex
		bne	@delay_st1
		sta	LEDoff
		ldx	#$FF		;this will make the total time about .25 seconds
@delay_st2	lda	#203		;this will wait approx 1ms, without using the stack.
@delay4		dec	A		;(2)
		bne	@delay5		;(3)
@delay5		nop			;(2)
		bne	@delay4		;(3) = 10 * 203	= 2030
		dex
		bne	@delay_st2
		sta	LEDon
		ldx	#150		;this will make the total time about .15 seconds
@delay_st3	lda	#203		;this will wait approx 1ms, without using the stack.
@delay6		dec	A		;(2)
		bne	@delay7		;(3)
@delay7		nop			;(2)
		bne	@delay6		;(3) = 10 * 203	= 2030
		dex
		bne	@delay_st3
		sta	LEDoff
		jmp	Flash_error	;loop forvever



****
* Data for user/factory diagnostics RAM test
****
MT_data1	DC.B $00, $FF, $55, $AA, $CC, $33 ;Data for testing the four locations used in
MT_data2	DC.B $FF, $00, $AA, $55, $33, $CC ; the begining of Memory_test.
factory_data	DC.B $4C, $59, $FF, 'AVEX Manufact'

*************************************************
* Fill_ROM_gap					*
*						*
* this will fill the gap between the end of 	*
* the Self_Test code and the start of		*
* the Card_code	with $00's 			*
*************************************************
fill_length	equ	Card_code_start-(*-UserTest+256+256+512+1024+256+512+1024+ROM_start)
		DCB.B	fill_length,$00  ;causes BRK if PC goes wild 


		ENDP

\ No newline at end of file
diff --git a/IIGS.601.SRC/NuMustang/SmartBuss.aii b/IIGS.601.SRC/NuMustang/SmartBuss.aii
new file mode 100644
index 0000000..2b82aef
--- /dev/null
+++ b/IIGS.601.SRC/NuMustang/SmartBuss.aii
@@ -0,0 +1 @@
+		eject
alignpg3	EQU	(*-Card_code)	and $FF
		DCB.B	$100-alignpg3,$00 ;align to next page


* "SmartPort Communication Routines"
*************************************************
* Divide7	   Do DIV and MOD 7 and	set auxptr
*
*   This routine divides the bytecount by 7. The
* quotient gives the number of groups of 7 bytes to
* be sent, and the remainder gives the number of "odd"
* bytes.  (Yee old long	division: shift	* sbc)
*
*   Input: r1l,r1h <- #	of bytes to write
*   Output:oddbytes	<- bytecount MOD 7
*	   grp7cnt	<- bytecount DIV 7
*
*************************************************
Divide7		equ	*
		stz	grp7cnt
		ldx	#8		;8 bits	to shift
		lda	r1H
@loop		asl	r1L		;shift dividend	1 bit
		rol	a
		cmp	#07		;see if	high byte >= 7
		bcc	@10		;if not	enough shift in	a zero
		sbc	#07		;subtract a 7 and shift	in a one
@10		rol	grp7cnt		;move carry into low bit
		dex
		bne	@loop
		sta	oddbytes
		rts


**************************************************
* RecvOnePckt	     Get a packet from bus resident
*	      ______________________
*  REQ ______|2			   5|__________
*	 _________________________
* /BSY _|1	     3		 4|___________
*
*	 1) Drive signals ready	to send	packet
*	 2) Host signals ready to receive data
*	 3) Packet is transmitted (sync, mark, IDs, data, csum)
*	 4) Drive signals packet dispatched
*	 5) Host acknowledge receipt of	packet
*
*	 The bytes are sent in slow mode (64 cycles/byte) and
*  the timing is critical.  Branches which should not cross
*  page	boundaries are marked.
*
*	 Input:	buffer <- address where	packet guts left
*
*	 Output: carry = 1 - handshake error
*		 carry = 0 - bytes received
*		 A <- error code if carry is set
*
*     Preserves: none
*
****************************************************
RecvOnePckt	equ	*
		ldx	#7
@01		stz	recvbuff-1,x	;clr recvbuff before read
		dex
		bne	@01

		stz	csum
		stz	error2		;clear error mask

		jsr	enablechain	;enable	proper phases for rcv
		tsx
@03		stz	$100,x		;clear stack below here	as debg	assist
		dex
		cpx	#$E1
		bcs	@03

		bit	Q6H		;Prep for sense	mode

* wait for BSY to go hi, signalling 'ready with packet & status'
*
		ldx	30		;wait max of 3 seconds for packet start
@rdh0a		lda	#100		;100 Ms	= .1 seconds
@rdh0b		ldy	#205		;205*10/2=1.00 Ms
@rdh0c		bit	Q7l		;+04
		bmi	@rdh1		;+06
		dey			;+08
		bne	@rdh0c		;+10 loop until	timeout
		dec	a
		bne	@rdh0b
		dex
		bne	@rdh0a
		bra	@mke1
@rdh1		lda	CA0on		;reply with request line hi

* wait for a byte from Remote device or	timeout
*
		ldy	#00		;256*13/2 = 1.6	Ms for packet mark
@rdh2		lda	Q6L		;+04 read sent byte
		dey			;+06 decrement timeout counter
@mke1		beq	@markerr	;+08 if	we timed out, indicate an error

		cmp	#packetbeg	;+10 see if it's the begnin of a pkt
		bne	@rdh2		;+13 if	not, keep looking

		ldy	#7		;seven bytes of	packet header
@rdh3		lda	Q6L		;if byte ready,	grab it
		bpl	@rdh3		;ohterwise, wait til it	is

		and	#$7f		;strip off MSB
		sta	recvBuff-1,y	;  and save result IN REVERSE ORDER!
		ora	#$80		;return	MSB for	csum
		eor	csum		;calculate csum
		sta	csum

		dey			;decrement count
		bne	@rdh3		;if not	done w/	info bytes, loop
		lda	grp7cnt
		bmi	@errG7
		sta	grp7ctr		;leave grp7cnt unchanged

* read in packet data
*
*    Y = zero from above loop
		ldx	oddbytes	;use oddbyte count for first pass
		beq	@rd7grp

@rdtop		lda	Q6l		;try to	read topbits
		bpl	@rdtop		;if not	there, wait for	it

		asl	a		;get rid of MSB
		sta	topbits		;  and save result

@rddata		lda	Q6l		;try to	read next byte of data
		bpl	@rddata		;if not	there, wait for	it

		asl	topbits		;get MSB
		bcs	@save		;is msb	should be 1 then leave it
		and	#$7F		;otherwise, clear it

@save		sta	(r0),y		;store data in buffer
		eor	csum		;calculate checksum
		sta	csum		;

		iny			;increment offset
		bne	@noinc		;branch	if not a page boundary

		inc	r0H		;if is a page boundary,	inc high byte

@noinc		dex			;decrement 7 byte counter
		bne	@rddata		;if not	7 bytes, keep going

@rd7grp		ldx	#07
		dec	grp7ctr		;decrement number of groups of 7
		bpl	@rdtop		;keep going if not zero

@docsum		lda	Q6l		;try to	read check sum
		bpl	@docsum		;if not	there, wait for	it
		sta	temp		;1st checksum byte  1 c6 1 c4 1	c2 1 c0

@docsum2	lda	Q6l		;try to	read next csum byte
		bpl	@docsum2	;if not	there, wait for	it

		sec			;create	csum byte
		rol	a		;c7 1 c5 1 c3 1	c1 1
		and	temp		;c7 c6 c5 c4 c3	c2 c1 c0
		eor	csum		;see if	it is the same as calulated one
		bne	@csumerr	;if not, indicate an error

* Get the packet end mark
*
@rdend		lda	Q6l		;read end mark
		bpl	@rdend		;if not	there, wait for	it

		cmp	#packetend	;is it the right byte
		bne	@enderr		;if not, indicate an error

* Wait for /BSY	to go low
*
		lda	Q6h		;
@wtBSY		lda	Q7L		;read the sense	line
		bmi	@wtBSY		;if hi,	wait for it to go low

		lda	ca0off		;lower REQ
		clc
		rts
@errG7		lda	#$8A
		bra	@errxit

@markerr	lda	#nomarkerr
		bra	@errxit

@enderr		lda	#noenderr
		bra	@errxit

@csumerr	lda	#badcsum
@errxit		sta	error2
		sec
		rts


***************************************************
*
* SendOnePckt	      Send a CBUS packet
*
*
*	 This routine sends a packet of	data across
* the bus.  The	protocol is as follows:
*	       ____________________
* REQ ________|2		  5|_________
*	  _______________________
*/BSY ___|1	    3		4|__________
*
*	 1) Device signals ready for data
*	 2) Host signals data iminent
*	 3) Packet is transmitted (sync, cmd mark, ids,	contents, csum)
*	 4) Device signals packet received
*	 5) Host finishes send data cycle
*
*	 The bytes are sent in slow mode (64 cycles/byte)
*
*
**************************************************
SendOnePckt	equ	*
		bit	Q7L		;insure	IWM read mode
		bit	Q6L		;just to be sure

* prep for the transmission
		jsr	WritePrep	;primes	the pump for a write

* enable PC chain
		jsr	enablechain	;get Lirons listening

* turn on the IWM
		lda	enable1		;CBUS devices which enable?
		lda	Select		;activate the drive enable

* loop until the chain becomes unbusy
		bit	Q6H		;set up	IWM to read sense (x11)
		ldy	#bsyTO1		;each loop is 5	usec
@ubsy1		lda	Q7L		;test if /BSY is hi
		bmi	@chainunbsy	;if it is, then	we're ready

		dey			;decrement timeout counter
		bne	@ubsy1		;if we haven't timed out, keep trying

		lda	#Busyerr
		jmp	@errxit

@chainunbsy	lda	CA0on		;raise REQ
		ldy	#5		;sync +	packetbegin mark
		lda	#$FF		;write anything	to prevent underrun
		sta	Q7h		; (111)

@lp1		lda	preamble,y	;get next sync byte

@lp2		bit	Q6l		;see if	we're ready to write
		bpl	@lp2		;if not, wait for it

		sta	Q6h		;write the next	byte
		dey			;decrement number in preamble
		bpl	@lp1		;if there are more, keep going

		lda	#0
		sta	csum		;init checksum to 0

* send destination ID
		lda	unit_num	;get the unit number
		ora	#$80		;set MSB
		jsr	SendXByte	;

* send source ID  (that's us ... we're an $80)
		jsr	Send80		;

* send over packet type	(command or data)
		lda	Wpackettype	;
		jsr	SendXByte	;

* send the auxillary type byte (an $80 from this rec PC)
		jsr	Send80

* send status byte (null for us), and length bytes
		jsr	Send80

* send number of bytes in the packet
		lda	oddbytes
		ora	#$80		;set MSB
		jsr	SendXByte

		lda	grp7cnt
		ora	#$80		;set MSB
		jsr	SendXByte

		ldy	#0		;set index into	buffer to 0
		ldx	oddbytes	;load number of	oddbytes we have
		beq	@dogrp7		;if no oddbytes, skip this part

* now send the "oddbyte" part of the packet
		lda	topbits		;topbits for oddbytes was done by prep
		jsr	SendByte

@lp3		lda	(r0),y		;get next byte of data
		jsr	SendXByte	;  and send it across CBUS

		iny			;increment offset into the buffer
		dex			;decrement number of oddbytes left
		bne	@lp3		;if not	done, continue

@dogrp7		dec	grp7cnt		;decrement number of groups of 7
		bmi	@sendcsum	;if done, go send checksum

		lda	topbits1	;get precalculated topbits value
		jsr	SendByte	;  and send it across CBUS

		lda	#1		;start topbits of next 7 bytes
		sta	topbits1
		ldx	#7		;7 bytes / group
@lp4		lda	(r0),y		;get next byte from buffer
		jsr	SendXByte	; and send it across CBUS

		lda	(r1),y		;look 7	bytes ahead
		asl	a		; and put MSB into the carry
		rol	topbits1	;  and put carry into LSB of topbits

		iny			;increment buffer offset
		bne	@noinc		;see if	we're on a page boundary

		inc	r0H		;if end	of page, increment high	bytes
		inc	r1H

@noinc		dex			;see if	we're done with this 7
		bne	@lp4		;if not, keep working on it
		beq	@dogrp7		;if so,	see if there is	another	group

* send the checksum
@sendcsum	lda	csum		;create	1st checksum byte
		ora	#$AA		; 1 c6 1 c4 1 c2 1 c0
		jsr	SendByte	; and send it across CBUS

		lda	csum		;create	2nd checksum byte
		lsr	a		; move bits 1 to the right
		ora	#$AA		; 1 c7 1 c5 1 c3 1 c1
		jsr	SendByte	; and send it across CBUS

		lda	#packetend	;send the end of packet	mark
		jsr	SendByte	;

* wait until write underflow
@lp5		bit	Q6L		;wait for underflow
		bvs	@lp5		;if hasn't occurred, wait for it

		sta	Q6H		;back to sense mode

*now wait til drive acknowledges receipt of the	packet or timeout
		ldy	#bsyTO2		;load in timeout count
@wtack		dey			;decrement timeout counter
		bne	@chkline	;

		lda	#noanswer
@errxit		sec
		bra	@done

@chkline	lda	Q7L		;read sense line
		bmi	@wtack		;if still hi, wait some	more

		lda	#00
		clc
@done		bit	ca0off		;shut down
		bit	Q6L
		sta	error2
		rts


***********************************
* RcvCount
***********************************
RcvCount	equ	*
		stz	temp		;clear temp
		lda	grp7cnt		;get number of groups of 7
		asl	a		;mult by 8 (temp = hi byte of result)
		rol	temp
		asl	a
		rol	temp
		asl	a
		rol	temp
		sec			;now subtract original value
		sbc	grp7cnt		; to get original value	* 7
		bcs	@nodec
		dec	temp
@nodec		clc			;now add number	of odd bytes
		adc	oddbytes	;A <-  lobyte(grp7cnt*7	+ oddbytes)
		bcc	@noinc
		inc	temp		;temp <- hibyte(grp7cnt*7 + oddbytes)
@noinc		ldy	temp
		rts

Send80		equ	*
		lda	#$80

SendXByte	equ	*
		pha			;save value
		eor	csum		;add byte to checksum
		sta	csum
		pla			;restore value
		ora	#$80		;set top bit

SendByte	equ	*
		bit	Q6l		;see if	IWM's ready for data
		bpl	sendByte	;if not, wait til it is

		sta	Q6h		;send the byte
		rts


***********************************
* WritePrep 
*
* prepares data	for SendOnePack
*
***********************************
WritePrep	equ	*
		lda	bytecountL	;get number of groups of 7
		sta	r1L		;  and number of oddbytes
		lda	bytecountH	;
		sta	r1H
		jsr	Divide7

		lda	r0L		;create	another	address
		clc			; which	points
		adc	#7		;  7 bytes ahead of
		sta	r1L		;   buffer pointer
		lda	r0H		;
		adc	#0
		sta	r1H

		ldy	#0		;create	a byte of MSB's of the
		jsr	CalcTopBits	; oddbytes to prime pump for write

		lda	topbits1	;get the MSB's
		sta	topbits		;  and save in another place

		ldy	oddbytes	;now do	the same, for the 1st group
		jsr	CalcTopBits	; of 7
		rts

CalcTopBits	equ	*
		ldx	#7		;repeat	for 7 bytes
		lda	#1		;set first bit (becomes	bit 8 (MSB))
		sta	topbits1	;

@lp		lda	(r0),y		;get next byte from buffer
		asl	a		;put its MSB in	the carry
		rol	topbits1	;now rotate it into topbits

		iny			;get offset to next position in	buffer
		dex			;decrement our 7 byte counter
		bne	@lp		;if not	done, keep going
		rts

enablechain	equ	*
		jsr	ClrPhases
		lda	CA1on
		lda	pulseon
		rts

resetchain	equ	*
		jsr	ClrPhases
		lda	CA0on
		lda	CA2on

		lda	#80		;hard reset for	80 ms
		jsr	WaitaMs

		jsr	ClrPhases	;

		lda	#05		;about 10 ms reset time

Wait2Ms		equ	*
		pha
		jsr	WaitaMs
		pla

WaitaMs		equ	*		;+06 for jsr 
@lp		jsr	wait1MS		;+2043
		dec	a		;+05
		bne	@lp		;+08 =A*2052
		rts			;+11 = A*2052+11

Wait1MS:
		pha			;jsr=6+3=09
		lda	#203		;+02 (-02 on EQ	fall thru)
@delay		dec	A		;(2)
		BNE	*+2		;(3)
		nop			;(2)
		bne	@delay		;(3) = 10 * 203	= 2030
		pla			;+13
		rts			;+19 = 2049 cycles
*     ;=(2049)/2.046 Mhz =1.0015 Ms

ClrPhases	equ	*
		bit	CA0off
		bit	CA1off
		bit	CA2off
		bit	pulseoff
		rts

preamble	equ	*
		DC.B	packetbeg
		DC.B	$FF,$FC,$F3,$CF,$3F


**************************************
* BldCmdPkt
*
* Function : Build the CBcmdpkt	from the
*	     input parameters and sets up
*	     for call to SendOnePack
*
*	    Translates extended	calls to
*	    standard CBUS cmds	and ProDOS calls
*	    into standard CBUS cmds
*	     Translates	the parms into proper
*	     positions for standard CBUS cmd
*
*   Input : cmd	parameters
*  Oubput : SPCmdPkt built
*	  : R0 points at CBcmdpkt in zeropage
*	  : bytecount contains an 0009
*
**************************************
BldCmdPkt	equ	*
		lda	#cmdmark
		sta	WpacketType	;setup for cmd pkt
		lda	cmdmode		;with PD and XSP bits
		and	#$0F		;
		sta	CBcmd		;make calls Std CBUS cmds
		ldy	msg
		lda	paramcnt,y
		and	#$0F
		sta	CBPCount
		stz	CBpktjunk
		stz	CBpktjunk+1	

		ldx	#06
@mvlp		lda	Cmdpkt6-1,x
		sta	CBpktguts,x	;standard parms	
		dex
		bne	@mvlp		;copy the stuff	from parm list

SetCPlgth	equ	*
		lda	#cmdlength
		sta	bytecountl
		stz	bytecounth
		lda	#CBcmdpkt
		sta	r0l
		stz	r0h
		rts


*************************************
* SendDataPkt
*
*************************************
SendDataPkt	equ	*
		jsr	SendnPkts
		bcs	ComReset
		rts


*************************************
* ComReset
*
* Builds an 'init' cmd packet and sends	to each	smartport device
*************************************
ComReset	EQU	*
		lda	unit_num
		pha
		ldx	smartdev
		lda	#$80		;warm reset please
		jsr	AssignID	;reAssign CBUS ids (clobbers CBcmdpkt)
		pla
		sta	unit_num
		sec
		rts


***********************************************
*
* SendCmdPkt
*
*	Send a packet with retry and reset
**********************************************
SendCmdPkt	equ	*
		lda	#01		;try just once incase it got reset by FDHD sense
		jsr	SendaPkts
		bcc	@ok
		jsr	ComReset
		jsr	BldCmdPkt	;rebuild cmd packet
		lda	#100
		jsr	SendaPkts	
		bcc	@ok
		jsr	ComReset	;reset the buss
		jsr	BldCmdPkt	;rebuild cmd packet
		lda	#100
		jsr	SendaPkts	;and try again
@ok		rts


**********************************************
* SendnPkts
*
* Send n packets ( short ones sent every 5 ms)
**********************************************
SendnPkts	equ	*
		lda	#32		;short pkt retries
SendAPkts	equ	*
		ldx	bytecounth
		beq	@20
@10		lsr	a		;256..511 = 127; 512-767= 63; etc
		dex			;big packts retry fewer	times so
		bne	@10		;that max time here is about 1 second
@20		sta	errcnt
@resend		jsr	SendOnePckt	;cmd pkts =.7 MS data pkts = 19	Ms
		bcc	@exit
		dec	errcnt
		beq	@exit		;carry Still set
		ldx	bytecounth	;short packet?
		bne	@resend		;nope.
		lda	#05		;delay 5 MS between small pkts
		jsr	WaitaMs		;wait a	while before trying again
		bra	@resend
@exit		rts


***********************************************
*
* RecvPacket
*
*	Recv a packet with retry and reset
**********************************************
RecvPacket	equ	*
		lda	#05
		sta	errcnt		;set retry at 5	(unless	formatting)
		lda	msg		; get the command we are waiting for
		cmp	#format		;is it a format?
		bne	@reread		;-no, 5	is enough
		lda	#60		;-yes
		sta	errcnt		;set retry while formatting to 60 (approx. 3 minutes)
@reread		jsr	RecvOnePckt
		bcc	@ok
		jsr	Wait1MS

		sec
		bit	ca0off		;reset REQ (handshake) to low
		bit	Q6L		;back into read	mode

		dec	errcnt		;rereads exhausted?
		bne	@reread
@ok		rts

**********************************************************************
*
* FixStatus
*
*	This routine adds 1 zero byte in the middle of the Stardard
*	Smartport status call result data for an Extended status call
*
*	INPUT:	status data resides at wrblkadd
*		X must be preserved
*
**********************************************************************
FixStatus	ldy	#25
@loop		lda	wrblkadd-1,y	;24,23,22,...05,04 = y-1
		sta	wrblkadd,y	;25,24,23,...06,05 = y
		dey
		cpy	#04
		bne	@loop
		stz	wrblkadd+4	;put in the Ray Montagne memorial zero 
		inc	xfrcnt		;add 1 to the result length
		rts
		
		eject
**************************************
* DoRemote is the CBUS driver entry
*
*  Only	called for Remote units 
*
**************************************
DoRemote	equ	*
		lda	#CBusSlow
		jsr	SetIWMMode	;set IWM mode to slow (250Khz I/O)

		stz	datastat	;zero the error	flag

		jsr	BldCmdpkt	;do all	the stuff

		jsr	ClrPhases	;get ready to send

		jsr	SendCmdPkt	;send the CMD packet (255 times)
		bcs	@buserr1

		ldx	msg		;get flags again
		bit	paramcnt,x	;

		bpl	@getstat	;if no data to send, read data or status
		cpx	#write		;need to check xfrcnt?
		beq	@senddata	;no.
		lda	xfrcnt+1	;byte cnt < $500
		cmp	#$05
		bcc	@senddata	;yes. ctrl/Writebytes lgth ok
		bit	paramcnt	;sev (status entry has $40 bit on)
		ldy	#00		;null reply
		lda	#BadParm	;tell em its junk
		bra	@errxit		;set error then	reply

@senddata	
		lda	#wrblk
		sta	reply		; to get data from host
@wtld1		lda	reply		;wait til write	block is loaded
		bpl	@wtld1		;

		ldx	xfrcnt		;input for CTRL	or WriteBytes!
		ldy	xfrcnt+1
		lda	msg		;WriteBlk
		cmp	#write		;?
		bne	@setcnt		;no. Ctrl or WriteBytes!

		ldy	#>512		;otherwise, 512	bytes /	block
		ldx	#<512
@setcnt		sty	bytecounth	;
		stx	bytecountl	;

@dosend2	lda	#datamark	;indicate a data packet
		sta	WpacketType	;
		jsr	ClrPhases	;prepare to send

		stz	r0L		;get address of	buffer in r0
		lda	#>wrblkadd
		sta	r0H

		jsr	SendDataPkt	;send the data packet (63 times)
@buserr1	bcs	@buserr

@getstat	equ	*
		stz	r0L		;get address of	buffer in r0
		lda	#>wrblkadd
		sta	r0H		;

		jsr	RecvPacket	;try recv 5 times
		bcs	@anerr
		jsr	RcvCount	;convert rcv pkt size
		sta	xfrcnt
		sty	xfrcnt+1

@rout		ldy	#00
		ldx	msg
		bne	@noFixup
		bit	cmdmode		;was this extended Status call?
		bvc	@noFixup
		jsr	FixStatus	;add the stupid 4th byte to block count
@noFixup	cpx	#10
		clv
		bcs	@errxit
		bit	paramcnt,x	;reply needed?
		bvc	@rdone		;nope
		ldy	#wrblk
@rdone		lda	datastat	;from recvd packet hdr status
@errxit		sta	error		;gotta set error before	reply!
		bvc	@rtn
		sty	reply		;reply if status,read,readbyts 
@rtn		jsr	ClrPhases	;leave em all off 
		clc			;normal	return
		rts

@anerr		equ	*
		cmp	#nomarkerr	;no response error?
		beq	@buserr		;yes.

		lda	#ioerror
		bra	@zerr

@buserr		lda	#BusErr		;indicate bus error in data stat byte
@zerr		sta	datastat
		bra	@rout

paramcnt	equ	*		;msb set for WritBlk,Ctrl,WritByt 
		DC.B	$43,$43,$83,$01,$83
		DC.B	$01,$01,$01,$44,$84


**********************************************************************
* 
* AssignID
*
* Assigns the CBUS ID numbers to the remote
* units	attached (if any ) 
*
* Returns in A the number of drive found
*
* Called from InitCard (cold and warm) and ComReset
*
* INPUT	:	A = 00 (cold) / $80 (warm) reset flag
*		X = first unit number to assign if units exist
*
* OUTPUT:	A = number of units assigned (0/1/2)
*		flags set per contents of A 
*
**********************************************************************
AssignID	equ	*
		sta	CBpktguts+1	;standard cmds shifted 1 later
		phx
		
		lda	#00
@zapoldones	sta	unittype-1,x	;zero remaining unittype
		inx
		cpx	#maxUnits	;
		bcc	@zapoldones	;Smart Units might have thier only power switches!!!
		
		bit	DeSelect	;remove drive enables so ISM switching leaves em off
		lda	#-1
		sta	unit_num
		jsr	Disabl35	;remove	ENBL35 to enable A35 daisychains
		jsr	EnableGCR	;make sure the clock is 7.83Mhz
		lda	#CBusSlow	;set IWM for CBUS communication
		jsr	SetIWMMode
		plx
		stx	unit_num	;set unit num for SendOnePckt

		jsr	resetchain	;
		
		jsr	ClrPhases
		
		stz	drive		; counter for smart drives
* send an ID for the next device in the	chain
@moreunits	lda	#cmdmark
		sta	WpacketType	;std init's only
		lda	#init		;send init command to set unit numbers
		sta	CBcmd
		lda	#02
		sta	CBPcount	;send a	'init' pcount on Reset Init
		stz	CBpktguts
		stz	CBpktguts+2
		jsr	SetCPlgth	;setup bytecount,a ptr and drive

		jsr	SendOnePckt	;send INIT command pkt (without	retry)
		bcs	@exit		;branch	if some error (no ACK)

		stz	r0L
		lda	#>wrblkadd
		sta	r0H

		jsr	RecvOnePckt	;get return status (without retry)
		bcs	@exit		;assume	nomarkerr due to bad datastat

		ldy	unit_num	;add SmartPort devices to list of units
		cpy	#maxUnits+1
		bge	@norecord	;unit table is of limited size
		lda	#UTremote	;Remote	CBUS device 
		sta	unittype-1,y	;
		lda	#00
		sta	unitmode-1,y	;-1 cuz unit numbers are 1 based
@norecord	equ	*
		inc	drive		;count number of SmartDevs 
		inc	unit_num	;tell SendOnePckt next unit to init	
		
		lda	datastat	;see if	'last device' status
		beq	@moreunits	;no. assign ID to all of em 

		lda	drive
		cmp	#MaxSmarts+1	;is this the third UniDisk3.5 or other Smart unit?
		bcc	@exit		;nope.
		lda	#02		;yep.  only get two of these!
		sta	drive				
@exit		jsr	ClrPhases	;reset all for A35 operns
		bit	DeSelect	
* load result for caller and set status flags
		lda	drive		;return number of smart devs inited (0/1/2)
		rts
\ No newline at end of file
diff --git a/IIGS.601.SRC/NuMustang/StatusControl.aii b/IIGS.601.SRC/NuMustang/StatusControl.aii
new file mode 100644
index 0000000..c5c29c7
--- /dev/null
+++ b/IIGS.601.SRC/NuMustang/StatusControl.aii
@@ -0,0 +1 @@
+		eject
*	    'SmartPort Control Command'
*************************************************************
* DoCtrl
*
*  Local driver	 Control command processing routine
*
*************************************************************
DoCtrl		equ	*
		ldx	cmdcode
		cpx	#maxcode
		bcs	badcode
		lda	unit_num
		bpl	@normunit
* now check if unit zero ctrl cmd allowed
		bit	uzctable,x	;unit zero allowed?
		bmi	Badcode		;no
		bvc	@normunit	;use the normal	ones

* later	add any	unit zero ctrl cmds
@uzCtrls	equ	*		;any unit zero only ctrls go here
		bra	badcode

@normUnit	
* Now be sure the control list will fit	in my buffer
		ldx	xfrcnt+1	;get page of ctrllist size
		cpx	#04
		bge	PCntErr
		lda	#wrblk
		sta	reply		;cmd list is <=	767 bytes
*
@wait		lda	reply		;wait until command list is loaded
		bpl	@wait

* now decide what to do	for local units
		lda	cmdcode
		asl	a
		tax
		jmp	(cctable,x)

badCode		lda	#BadCtrl	;bad ctrl code
		bra	DoErr3
PCntErr		lda	#BadParm
DoErr3		jmp	DoErr


***********************************
* Unit Zero Code table
* $80 indicates	not allowed
* $40 indicates	unit zero special code
* $00 indicates	use normal ctrl	routine
***********************************
uzctable	equ	*
		DC.B	$80		;00
		DC.B	$80		;01
		DC.B	$80		;02
		DC.B	$80		;03
		DC.B	$80		;04
		DC.B	$80		;05 
		DC.B	$80		;06
		DC.B	$80		;07
		DC.B	$80		;08
		DC.B	$80		;09
		DC.B	$80		;10
		DC.B	$80		;11
		DC.B	$00		;12
		DC.B	$80		;13
		DC.B	$00		;14
		DC.B	$00		;15
		DC.B	$00		;16
		DC.B	$00		;17
		DC.B	$00		;18
		DC.B	$00		;19


********************************************
* Control Code Dispatch	Table
********************************************
cctable		DC.W	DoReset		;00
		DC.W	BadCode		;01
		DC.W	BadCode		;02
		DC.W	BadCode		;03
		DC.W	DoEject		;04
		DC.W	BadCode		;05	= GS setHook
		DC.W	BadCode		;06	= GS resetHook
		DC.W	BadCode		;07	= GS setMark
		DC.W	BadCode		;08	= GS resetMark
		DC.W	DoSetSides	;09
		DC.W	DoSetIntrlv	;10
		DC.W	BadCode		;11
		DC.W	DoPoke		;12
		DC.W	DoResetMarks	;13
		DC.W	DoResetHooks	;14
		DC.W	DoSetCachLk	;15
		DC.W	DoSetAddr	;16 
		DC.W	DoDwnLoad	;17
		DC.W	DoExec		;18
		DC.W	DoPeek		;19
maxcode		equ	(*-cctable)/2

*********************************************
* Do the reset of all GCR marks
*********************************************
DoResetMarks	equ	*
		ldx	#$16
@copymarks	lda	MarkInitTbl-1,x
		sta	afdmtab-1,x
		dex
		bne	@copymarks
		bra	goolxit		;good exit
*********************************************
* Do the reset of all hooks
*********************************************
DoResetHooks	equ	*
		ldx	HookInitTbl-2
@copyhooks	lda	HookInitTbl-1,x
		sta	RdAddrHook-1,x
		dex
		bne	@copyhooks
		bra	goolxit		;good exit
******************************************
*
******************************************
DoSetCachLk	equ	*
		lda	#01
		jsr	ChkXfrcnt
		lda	wrblkadd
		and	#$80
		sta	Cachlock
		jsr	ClearCache	;clear all cached blocks
		bra	goolxit
******************************************
*
******************************************
DoSetIntrlv	equ	*
		lda	#01
		jsr	ChkXfrcnt
		bne	PCntErr
		lda	#$32		;bad interleave
		ldy	wrblkadd
		cpy	#12+1
		bcs	DoErr3
		sty	interleave
		ldx	unit_num
		sty	FmtIntrlv,x
		bra	goolxit		;exit with no error
******************************************
*
******************************************
DoSetSides	equ	*
		lda	#01
		jsr	ChkXfrcnt
		bne	PCntErr1
		lda	wrblkadd
		and	#$80
		sta	FormSides	;set for GCR format
goolxit		lda	#00
		jmp	Doerr3
*************************************************************
*
* RESET	a drive 
*************************************************************
DoReset		equ	*
		ldx	unit_num
		jsr	UnMountX	; make no assumptions

		jsr	EnblnChk	;go see	what I find
		bpl	@10		;
		jsr	MountVol	;aha, a	volume is there 
@10		bcc	@20
		jmp	Doerr
@20		rts
*************************************************************
*
*************************************************************
DoEject		equ	*
		ldx	unit_num
		jsr	EnblnSens	;enable	the drive and sense

		jsr	EjectLcl	;eject local unit in X-reg

		ldx	unit_num
		jsr	ClrCacheX	;clears	cache

		clc
		rts
*************************************************************
*
*************************************************************
DoExec		equ	*
		jsr	callrout	;call the routine
		sta	execregs	;save registers	after execute command
		stx	execregs+1	;
		sty	execregs+2	;
		php			;
		pla			;
		sta	execregs+3	;

* is there any convention about	error reporting	here?
		clc			;normal	return
		rts
**************************************************************
* DoPeek
**************************************************************
DoPeek		equ	*
		jsr	DoSetAddr
		lda	(dwnldaddr)
		sta	errcnt		;put result in convienent place
		clc
		rts
**************************************************************
* DoPoke
**************************************************************
DoPoke		equ	*
		lda	#03
		jsr	DoSetAddrA	;
		lda	wrblkadd+4	;get value to poke
		sta	(dwnldaddr)
		clc
		rts
*************************************************************
*
*************************************************************
DoSetAddr	equ	*
		lda	#02
DoSetAddrA	equ	*
		jsr	ChkXfrCnt	;count is two?
		bne	pcnterr1
		lda	wrblkadd	;get download addr
		sta	dwnldaddr	;
		lda	wrblkadd+1	;
		sta	dwnldaddr+1	;
		clc
		rts
pcnterr1	jmp	PCntErr
*************************************************************
*
*************************************************************
DoDwnLoad	equ	*
		ldx	dwnldaddr+1	;save high byte of download addr

		ldy	#0		;zero offset
		lda	#<wrblkadd
		sta	r1L
		lda	#>wrblkadd
		sta	r1H

@lp		lda	(r1),y		;get byte from cmdlist
		sta	(dwnldaddr),y	;  and store it	at dnload address

		iny
		bne	@noinc		;

		inc	r1H		;increment at 256 byte boundary
		inc	dwnldaddr+1	;

@noinc		dec	xfrcnt		;decrement counter
		bne	@lp
		dec	xfrcnt+1
		bpl	@lp

		stx	dwnldaddr+1	;restore high byte of download addr
		clc
		rts


*************************************************************
* dispatch to user speced routine (only	called by DoExec)
*************************************************************
CallROut	EQU	*
		lda	wrblkadd+4	;get address of	routine
		sta	r1L		;   and	put it in zero page
		lda	wrblkadd+5	;      register
		sta	r1H		;

		lda	wrblkadd+3	;get status byte
		pha			;  and save it on stack

		ldx	wrblkadd+1	;load up registers
		ldy	wrblkadd+2	;
		lda	wrblkadd+0	;
		plp			;pull status byte off of stack
		jmp	(r1)		;jump into the routine


*************************************
* Check	xfrcnt for a 0001
*************************************
ChkXfrcnt	equ	*
		ldy	xfrcnt+1
		bne	@10
		cmp	xfrcnt
@10		rts


* "Eject Local Unit"
***************************************************
* 
* EjectLcl
*	     Eject the enabled,	and selected unit
* given	by the input parameter.	Support	the 'reset'
* before completion problem with the mid-eject flag
*
*    Input : X reg = unitnum to	eject (0/1)
*   Destorys: A,Y   Preserves X
*
***************************************************
EjectLcl	equ	*
		stx	mideject	;set the flag for CTRL-RESET
		lda	#dskin
		jsr	Readbit
		bcs	@90		;nothing to eject!

		lda	#runmotor	;/motoron sense
		jsr	ReadBit		;is the	motor on?
		bcs	@10		;no. so	don't turn it off

		lda	#offmotor
		jsr	WriteBit
		lda	#200
		jsr	WaitaMs		;delay until stopped

@10		lda	#03
		sta	errcnt		;eject retries = 3

@20		lda	#eject
		jsr	WriteBit	;send eject cmd	to drive

		ldy	#195
@30		lda	#10
		jsr	WaitaMS

		lda	#dskin		;see if	its out	yet
		jsr	ReadBit
		bcs	@40		;its out. now

		dey
		bne	@30		;keep trying

		lda	#ioerror
		sta	error
		bra	@90

@40		jsr	UnMountX	;logical unmount volume
@90		lda	#$80
		sta	mideject	;clear flag
		clc			;normal	return
		rts
		eject
		msb	OFF
UCICmsg		dc.b	'APPLE UNIVERSAL 3.5 CONTROLLER'
DCBmsglen	equ	*-UCICmsg
*************************************************************
*  Do SmartPort Status Requests
*************************************************************
DoStatus	equ	*
		stz	xfrcnt
		stz	xfrcnt+1	;assume	nothing	to return

		ldx	unit_num	;see if	it's for a Liron
		bpl	@normunit	;bmi only if unit was zero

@UnitZero	lda	cmdcode		;cmdcode must be 0 to use unit 0
		beq	@U0Stat		;if it is, then	do that	status call
		cmp	#01		;get DCB for unit0 means zeropage
		bne	@BadCode

* DCB for unit zero is UC/IC identification string
* 	
		ldx	#DCBmsglen
		stx	wrblkadd	;save msg length
@copyidstring	lda	UCICmsg-1,x
		sta	wrblkadd,x
		dex
		bne	@copyidstring
		ldx	#DCBmsglen
		inx
		bra	@done		

@normunit	ldx	cmdcode		;check for other status	calls
		beq	@devstat	;short status

		cpx	#3		;DIB status (long)
		beq	@devstat	;yes.

		cpx	#5		;check if it's an extended status call
		bne	@try06		;if not	try get	media format
		jmp	@ExtStat	;extended status call

@try06		cpx	#06		;get media status?
		bne	@badcode

* call survey routine and then analyze the interleave
* and return results like GetFormatOptions

@badCode	lda	#BadCtrl
@somerr		jmp	DoErr

@done		stx	xfrcnt		;store number of bytes returned
		lda	#wrblk		;indicate info is in block 6
		sta	reply		;
		ldx	unit_num	;tell dt cancel	which drive
		bit	DDflag		;phantom unit # status request?
		bmi	@fini
		jsr	DTCancel	;cancel	the drive timer
 		clc			;normal	return
		rts
@fini		clc			;normal	return
		rts

@U0Stat		lda	numdevs		;number	of units 
		sta	wrblkadd
		ldx	#1		;start at 1
		lda	#0		;fill rest with	0's
@lp1		sta	wrblkadd,x
		inx
		cpx	#8
		bne	@lp1
* Put out a visible Firmware version
		lda	#01
		sta	wrblkadd+2	;Vendor ID = Apple Computer Inc.
		lda	#VersionLo
		sta	wrblkadd+4
		lda	#VersionHi
		sta	wrblkadd+5
@done1		bra	@done		;X = 8 result count

@ExtStat	ldx	#0
@exstlp		lda	error,x
		sta	wrblkadd,x
		inx
		cpx	#08
		blt	@exstlp
		bra	@done


***********************************
* Device status	routine
***********************************
@devStat	equ	*
		ldx	unit_num
		jsr	EnblnSens	;Enable	& sense	the drive 
		php
		and	volsts,x	;extract VSwrprot bit
		lsr	a
		lsr	a
		lsr	a		;move WP to $04
		ora	#stat_disk	;add Blkdev,Wok,Rok,,FMTok,x,x,x
		bvs	@offline	;its offline
		ora	#stat_onl	;assert	the online status bit 
@offline	plp
		bmi	@15		;drive had ejected latch set
		bvs	@savstat	;offline so this can't be off->online transisiton
		bit	priorsts	;was prior status offline?
		bvc	@savstat	;no. so not the case to fake a dsw
;	now its the offline -> online transition without dsw true
@15		bit	cmdmode		;extended call
		bvc	@savstat	;no. don't return dsw status
		ora	#stat_dsw	;return	dsw status
@savstat	sta	wrblkadd	;first byte of devstat

* X-reg	still has unit_num
		jsr	EnblnChk	;now determine if I should mount first
		bpl	@20		;volume	online and known type
		jsr	mountvol	;mount new unknown volume & set	type
@20		equ	*
		ldx	#$04		;start at beginning
		ldy	unit_num
		lda	TotBlksl,y	;number	of blocks
		sta	wrblkadd+1
		lda	TotBlksh,y
		sta	wrblkadd+2
		stz	wrblkadd+3

		bit	cmdmode		;need an extra byte if extended	SP
		bvc	@chkDIB

		stz	wrblkadd+4	;save extra byte
		inx			;5 bytes in message

@chkDIB		lda	cmdcode		;see if	it wants more info
		beq	@done1		; if not we're done

		ldy	unit_num
		lda	unittype,y
		ldy	#00		;assume	AD35
		bit	#UTfdhd		;AD35 or SD35
		beq	@loop
		ldy	#DIBHD-DIBtable
@loop		lda	DIBtable,y	;get byte
		sta	wrblkadd,x	;  and save as status info
		inx			;increment pointers
		iny
		cmp	#$FF		;end of	entry?
		bne	@loop		;otherwise, ke	ON
		dex
		jmp	@done
****************************
DIBtable	equ	*
		DC.B	d1Strl
		DC.B	'DISK 3.5'	;16 char string
d1strl		equ	*-DIBtable-1
		DCB.B	16-d1strl,$20	;space filler
		DC.B	$01,$C0		;TYPE,SUBTYPE
		DC.W	$1010		;version word
		DC.B	$FF
DIBHD		DC.B	D2Strl
		DC.B	'DISK 3.5'	;removed the 'HD' 12/11/91 JOA
d2strl		equ	*-DIBhd-1
		DC.B	'HD'
		DCB.B	14-d2strl,$20	;space filler
		DC.B	$01,$C1		;TYPE,SUBTYPE
		DC.W	$1010		;version word
		DC.B	$FF



\ No newline at end of file
diff --git a/IIGS.601.SRC/NuMustang/ZPageInit.aii b/IIGS.601.SRC/NuMustang/ZPageInit.aii
new file mode 100644
index 0000000..06d8bab
--- /dev/null
+++ b/IIGS.601.SRC/NuMustang/ZPageInit.aii
@@ -0,0 +1 @@
+		eject
Zero_Page_Init_Data PROC ENTRY,ORG	ROM_start
		IMPORT	GetGCRAddr
		IMPORT	ReadGCRData
		IMPORT	WriteGCRData
		IMPORT	SeekToCyl
		IMPORT	TheFormat
		IMPORT	FmtGCRTrk
		IMPORT	TheVerify
		IMPORT	CallCmd
		IMPORT	DoInit
		ENTRY	HookInitTbl
		ENTRY	MarkInitTbl

		DC.B	$FF		;msg

		DC.B	$FF		;reply

		DC.B	00		;cmdmode
		DC.B	$FF		;unitno	of request
		DC.B	00		;filler	for copy of g.devndx in	parms

		DC.W	$FFFF		;blocknum, bytecount, code
		DC.W	0000		;address
		DC.W	0000		;address

		DC.W	0		;xfercnt (Status, ReadBytes)

		DCB.B	2,$FF		;curcyl	table (2 local units only)

		DCB.B	2,$80		;twosided (2 local units only)

		DCB.B	2,00		;VolIntrlv

		DC.B	$00		;LIRON EMULATION 'drive' (always zero)

		DC.B	$FF		;cyl 

		DC.B	$FF		;sector	(for Rdadr to find)

		DC.B	$FF		;side  (for ReadData to	find)

		DC.B	$FF		;topbits  (CBUS driver & EMULATION)

		DC.B	$FF		;topbits1,grp7ctr (CBUS driver * EMULATION)
		DC.B	$FF		;WpacketType (CBUS driver & EMULAT)

		DC.B	$00		;curNsect (current sectors / cyl)

		DC.B	$FF		;rsector (requested sector to r/w)

		DC.B	$FF		;sectcnt (READ sector retry cnt)

		DC.B	$00		;LIRON EMULATION 'xtions'

		DC.B	$FF		;csum  

		DC.B	$00		;csumc
		DC.B	$00		;csumb
		DC.B	$00		;csuma
		DC.B	$00		;wcsum (write routine)

		DC.B	$00		;exindex
		DC.B	$00		;exindex2

		DC.W	0000		;pointerl (LIRON EMULATION)
*				;sectinfo
		DC.B	$00		;CSFnd	 (RdAdrs Chksum	found)
		DC.B	$00		;FmtFnd	 (" format found )
		DC.B	$00		;SideFnd (" side + cyl b6 found	)
		DC.B	$00		;SectFnd (" sector found )
		DC.B	$00		;CylFnd	 ("Cylinder found b0..b5)

		DC.B	$00		;temp (CBUS driver & EMULATION)

		DC.B	$00		;ramblk
		DC.B	$00		;cachndx

		DC.B	00		;unit_num

		DC.B	00		;delayctr

		DC.B	00		;CurIWMode (ram	copy of	IWM mode reg)

		DC.B	00		;Smartdev (1st smartport device)
		DC.B	00		;numdevs (number of devices on chain)
		DCB.B	6,0		;UnitType (CBUS,LIRON,,,SUPER,UNIFIED)
		DCB.B	6,0		;UnitMode (UDE,ISM,14M,DSW,FST,NT,HD,GCR
		DCB.B	2,0		;VolType (400K,800K,1200K,720K,1440K,etc
		DCB.B	4,0		;TotBlksl & h
		DCB.B	2,0		;VolSts	(Swaped,Offlin,WrProt,,,,,chukw)
		DCB.B	2,0		;FmtOption (0 =	use default for	media)
		DCB.B	2,0		;FmtIntrlv (0 =	use default for	media)

*		The CBUS Command Packet
*
					;CBcmdpkt
		DC.B	00		;CBCmd
		DC.B	00		;CBPCount
		DC.B	0		;CBpktjunk
		DCB.B	6,0		;CBpktguts
		DC.B	0		;filler

		DC.B	00		;error	(return	to host)
		DC.B	$00		;error2	(detailed error	info) 
*				;execute registers also
		DC.B	00		;errcnt	(error3) retry counter
		DC.B	00		;numerrs (error4)
		DC.B	00		;found	 (error5)
		DC.B	00		;error6
		DC.B	00		;error7
		DC.B	00		;error8

		DC.B	00		;statbyte (LIRON EMULATION)

		DC.B	0		;cachlock ($80 = lockout caching)
		DC.B	0		;Cstate	($40 = post reqst caching)
		DC.B	0		;tagsflag

		DC.B	04		;Interleave (last Ctrl cmd value)
		DC.B	$80		;FormSides ($80	= two sided,$00= one)

		DC.W	$0500		;dwnldaddr

		DC.B	$00		;byte0 (LIRON EMULATE adrs =$66	)
		DC.B	$00		;byte1	  used to store	bytes when
		DC.B	$00		;byte2	deniblyzing them during	r/w
		DC.B	$00		;byte3

		DC.B	0		;CurISMsu
		DC.B	0		;DrvrFlag for GS/OS driver interface
		DC.W	0		;ByteCountl,h (LIRON EMULATION)

		DC.B	0		;filler
		DC.B	$80		;mideject ($80=eject NOT in progress)

*		       Hooks 
		DC.W	HooksTabLen	;length
HookInitTbl	DC.B	$4C		;RdAddrHook
		DC.W	GetGCRAddr	
		DC.B	$4C		;ReadDataHook
		DC.W	ReadGCRData
		DC.B	$4C		;WriteDataHook
		DC.W	WriteGCRData
		DC.B	$4C		;SeekHook
		DC.W	SeekToCyl
		DC.B	$4C		;FormatHook
		DC.W	TheFormat
		DC.B	$4C		;WriteTrackHook
		DC.W	FmtGCRTrk
		DC.B	$4C		;VerifyHook
		DC.W	TheVerify
		DC.B	$4C		;VectorHook
		DC.W	CallCmd
		DC.B	$4C		
		DC.W	DoInit
HooksTabLen	equ	*-HookInitTbl
*		    Mark TAB
*
MarkInitTbl	DC.B	$FF		; afdmtab (after DataMark tab)
		DC.B	$AD,$AA,$D5,$FF	;datamarks
		DC.B	$FC,$F3,$CF,$3F,$FF ;syncmarks
		DC.B	$FF		;bsmarks
		DC.B	$AA		;bslip2
		DC.B	$DE		;bslip1
		DCB.B	5,$FF		;adrguts = adrs	mark data
		DC.B	$96,$AA,$D5,$FF	;adrmarks
*
		DC.B	$00		;result	(CBUS driver)
		DCB.B	7,0		;RecvBuff,grp7cnt,oddbytes,datastat
*
		DC.W	0000		;r0
		DC.W	0000		;r1
		DC.W	0000		;r2
*
		DC.B	0		;minCsect
		DC.B	0		;maxCsect
		DC.B	0		;z_debug
		DC.B	00		;mfmFlag
		DC.B	00		;DDflag
		DC.B	0		;Gap3Size
		DC.B	0		;spare
		DC.B	0		;spare
		DC.B	0		;TESTWRITE
		DC.W	0		;formatter HDmediaCk vector

		DC.B	$4A,$CF,$41,$55
z_initlen	equ	*-Zero_Page_Init_Data

		if	(z_initlen	<> zero_page_template.zp_init_lgth) then
		aerror	'!!! Zero_Page_Init_Data and zero_page_template are NOT EQUAL length !!!'
		endif
		if	(z_initlen	> 256) then
		aerror	'!!! The zero page data is longer than 256 bytes !!!'
		else
		DCB.B	256-z_initlen,$00 ;fill the remaining bytes to make init rec 256 bytes
		endif

		ENDP


\ No newline at end of file
diff --git a/IIGS.601.SRC/NuMustang/checksum.c b/IIGS.601.SRC/NuMustang/checksum.c
new file mode 100644
index 0000000..bc048a7
--- /dev/null
+++ b/IIGS.601.SRC/NuMustang/checksum.c
@@ -0,0 +1 @@
+/********************************
 *                              *
 *			checksum			*
 *								*
 * This will take a binary file *
 * (32767 bytes long only)		*
 * as input and output a		*
 * binary file with a 16 bit	*
 * complemented checksum + 1,	*
 * made by summing each byte of	*
 * the ROM into a 16 bit total	*
 * comlementing the results and	*
 * adding 1. The two bytes are	*
 * stored, low byte - high byte,*
 * in location $FFF8 and $FFF9.	*
 *                              *
 *                              *
 *                              *
 *		13-MAR-91 : vs 0.0		*
 *		3-SEP-91  : vs 0.1		*
 *		5-SEP-91  : vs 1.0		*
 *		13-SEP-91 : vs 1.1		*
 *								*
 *                              *
 *                              *
 *       BY: Todd Rudin         *
 *                              *
 *                              *
 * (C) Apple Computer Inc.,1991 *
 ********************************/

/****************** Change log ***********************

vs 0.0	- initial release. Generates an 8 bit checksum
			that is equal to $FF, modified bytes
				
vs 0.1	- made the sum a 16 bit total and moved the
			location of where the changed word is stored,
			$7FF8 and $7FF9. The result of summing all the
			bytes into a checksum word + the changed word
			should be $0000.
		Note: The data stored in $7FF9 ($FFF9) is
				summed into the high byte of the
				checksum, this is the only time an
				actual 16 bit add is performed.

vs 1.0	- added calculating and storing 15 words of
			16 bit CRCs one word for each of the first
			15 2K byte sections of the ROM (30K).  The
			words are placed starting at $7FDA ($FFDA)
			and end just before where the checksum
			modified word is at $7FF8,9 ($FFF8,9).
			The polinomial used to generate the CRC is
			the CCITT-16 standard G(X)=X^16 + X^12 + X^5 + 1.

vs 1.1 - commented out the printing of the CRCs and
			added a output of the 'standard' 8 bit
			values summed into a 32 bit checksum

******************************************************/

#include "stdlib.h"
#include "stdio.h"
#include "string.h"
 

FILE *fpin, *fpout;

main(argc,argv)
int argc;
char *argv[];

{
	char infile[255], outfile[255];
	int x, y, z;
	unsigned short int temp_data, modify_byte, data7FF[16];
	unsigned long int  addr, checksum, checksum_standard, cs_sub, modify_word, crc_words[16];

	if ((argc == 1) || (argc > 3)) 
	{
		printf("Usage is: checksum inputfile [outputfile]\n");
		printf(" If the outputfile is omitted the default is inputfile.ck\n\n");
		exit(0);
	}

	strcpy(infile,argv[1]);	/* get the input file name */
	
	if (argc == 2) /* if only two arguments then generate fname_2 */
	{
		strcpy(outfile,infile);	/* make the output file name the same as the input file name */
		strcat(outfile,".ck");	/* then add the '.ck' suffix to it */
	}
	
	if (argc == 3) /* the output file name was supplied so use it */
	{
		strcpy(outfile,argv[2]);
	}

	if ((fpin = fopen(infile,"rb"))==NULL)	/* open the binary input file for reading */
	{
		printf("cannot open the input file ");
		printf(infile);
		printf(".\n");
		exit(0);
	}

	if ((fpout = fopen(outfile,"wb"))==NULL)	/* create a binary output file */
	{
		printf("cannot create the output file ");
		printf(outfile);
		printf(".\n");
		fclose(fpin);	/* close the file now open */
		exit(0);
	}

/* the following section calculates the CRCs for each 2K bytes of the file, except the last 2K. */
	for(x=1;x<=15;x++)	/* do this for 15 groups of 2K bytes (30K) */
	{
		crc_words[x]=0;		/* initalize the crc to zero */
		for(y=0;y<2048;y++)	/* do this for each 2K bytes */
		{
			temp_data=getc(fpin);
			for(z=0;z<8;z++)	/* do this for each bit of the data byte */
			{
				crc_words[x]=crc_words[x] << 1;		/* shift the crc word, assume no feedback */
				if (((crc_words[x] & 0x10000)!=0) ^ (((1 << z) & temp_data)!=0))		/* if this is true we need the feedback */
					crc_words[x]=crc_words[x]^0x1021;
			}
		}
	}
	rewind(fpin);	/* rewind the file */

/* the following section calculates the checksum bytes and writes out the new file */
	checksum=0;							/* zero the checksum */
	for(addr=0;addr<=0x7FFF;addr++)		/* do this until the location of the checksum byte of the input file */
	{
		if (addr==0x7FDA)	/* if we are at the CRC bytes */
		{
			for(x=1;x<=15;x++)	/* do this for each CRC word, 15 of them */
			{
/*				printf("### The CRC for 2K section #%d is  $%-4.4X\n",x,0xFFFF & crc_words[x]);*/	/* give the user the CRC values */
				addr=addr+2;	/* keep the address current */
				temp_data=crc_words[x] & 0xFF;	/* get the low byte */
				putc(temp_data,fpout);			/* put it out */
				checksum=checksum+temp_data; 	/* calculate the checksum */
				temp_data=getc(fpin);			/* keep the input file in sync */
				temp_data=(crc_words[x] & 0xFF00) >> 8;	/* get the high byte */
				putc(temp_data,fpout);			/* put it out */
				checksum=checksum+temp_data; 	/* calculate the checksum */
				temp_data=getc(fpin);			/* keep the input file in sync */
			}
			cs_sub=checksum;		/* make a copy of the checksum */
			addr=addr+2;	/* we are at the checksum bytes, skip over them */
			temp_data=getc(fpin);
			temp_data=getc(fpin);
		}

		if (addr < 0x7FFA)	/* before the checksum bytes */
		{
			temp_data=getc(fpin); 		/* get the data */
			putc(temp_data,fpout);	/* copy the data */
			checksum=checksum+temp_data; /* calculate the checksum */
		}
		else	/* after the checksum bytes */
		{
			temp_data=getc(fpin);
			data7FF[addr & 0xF]=temp_data;		/* save the few bytes following in the array */
			checksum=checksum+temp_data; 		/* calculate the checksum */
		}
	}

	modify_word=~checksum+1;		/* invert the checksum and add one */
	modify_byte=0xFF & modify_word;	/* truncate the checksum to get the low byte */
	putc(modify_byte,fpout);		/* put the low byte into $7FF8 */
	cs_sub=cs_sub+modify_byte;		/* continue calculating the checksum */
	checksum_standard=cs_sub;		/* set the standard checksum variable */
	modify_byte=0xFF & (modify_word >> 8);	/* shift and truncate the checksum to get the high byte */
	putc(modify_byte,fpout);		/* and the high byte into $7FF9 */
	cs_sub=cs_sub+(modify_byte << 8);		/* continue calculating the checksum */
	checksum_standard=checksum_standard+modify_byte;	/* continue the standard checksum calculation */
	for (addr=0x7FFA;addr<=0x7FFF;addr++)
	{
		putc(data7FF[addr & 0xF],fpout);		/* finish putting out the bytes */
		cs_sub=cs_sub+data7FF[addr & 0xF];	/* final checksum bytes */
		checksum_standard=checksum_standard+data7FF[addr & 0xF];	/* continue the standard checksum calculation */
	}

	printf("### The internal checksum is now = $%-4.4X\n",0xFFFF & cs_sub);		/* give the user the internal checksum */
	printf("### The standard checksum is now = $%-8.8X\n",checksum_standard);		/* give the user the standard checksum */

	fclose(fpin);		/* close the files */
	fclose(fpout);
}

\ No newline at end of file
diff --git a/IIGS.601.SRC/NuMustang/checksum.make b/IIGS.601.SRC/NuMustang/checksum.make
new file mode 100644
index 0000000..8d33ad6
--- /dev/null
+++ b/IIGS.601.SRC/NuMustang/checksum.make
@@ -0,0 +1 @@
+#   File:       checksum.make
#   Target:     checksum
#   Sources:    checksum.c
#   Created:    Thursday, March 14, 1991 12:40:41 AM


OBJECTS = checksum.c.o



checksum ÄÄ checksum.make {OBJECTS}
	Link -d -c 'MPS ' -t MPST ¶
		{OBJECTS} ¶
		"{CLibraries}"CSANELib.o ¶
		"{CLibraries}"Math.o ¶
		#"{CLibraries}"Complex.o ¶
		"{CLibraries}"StdClib.o ¶
		"{Libraries}"Stubs.o ¶
		"{Libraries}"Runtime.o ¶
		"{Libraries}"Interface.o ¶
		"{Libraries}"ToolLibs.o ¶
		-o checksum
checksum.c.o Ä checksum.make checksum.c
	 C -r  checksum.c
\ No newline at end of file
diff --git a/IIGS.601.SRC/SD.ODDS.N.Ends/A.U.G.ToDiskImage b/IIGS.601.SRC/SD.ODDS.N.Ends/A.U.G.ToDiskImage
new file mode 100644
index 0000000..50d11ce
--- /dev/null
+++ b/IIGS.601.SRC/SD.ODDS.N.Ends/A.U.G.ToDiskImage
@@ -0,0 +1 @@
+# A.U.G.ToDiskImage
#
# This script copies the local image of a.u.g. files to the designated
# destination images.
#
##########################################################################

########################################
#
# Set the destination
#
########################################
IF "{2}" == ""
	set Dest "A2CE_Sources:System Disk 6.0:"
	set DestSD "A2CE_Sources:System Disk 6.0:Install:"
	set DestST1 "A2CE_Sources:System Disk 6.0:SystemTools1:"
	set DestST2 "A2CE_Sources:System Disk 6.0:SystemTools2:"
	set SynthLab "A2CE_Sources:System Disk 6.0:SynthLab:"
	set Fonts "A2CE_Sources:System Disk 6.0:Fonts:"
ELSE
	# First we make sure the directory name ends in a colon.
	IF "{2}" !~ /Å[:]/
		set 2 "{2}"¶:
	END
	set Dest "{2}"
	set DestSD "{2}"Install:
	set DestST1 "{2}"SystemTools1:
	set DestST2 "{2}"SystemTools2:
	set SynthLab "{2}"SynthLab:
	set Fonts "{2}"Fonts:
END

########################################
#
# Set the source
#
########################################
IF "{1}" == ""
	set AUG "{GSProjects}A.U.G.:"
ELSE
	# First we make sure the directory name ends in a colon.
	IF "{1}" !~ /Å[:]/
		set 1 {1}¶:
	END
	SET AUG {1}
END


########################################
#
# Now do the copying.
#
########################################
echo "# Copying AUG objects from {AUG} to {Dest}."

set echo on
unset exit

duplicate -Y "{AUG}"CtlPanel:SetStartCDEV:Start		"{DestSD}"system:Start
SetLoadName "{DestSD}"System:Start -n SetStart

duplicate -Y "{AUG}"finder:finder					"{DestST1}"system:Finder
SetLoadName "{DestST1}"System:Finder -n Finder

duplicate -Y "{AUG}"installer:installer				"{DestSD}"Installer
#Duplicate -y -d "{AUG}"Installer:Installer.Icons	"{DestSD}"Icons:Installer.Icons
duplicate -Y "{AUG}"ADU:Adv.Disk.Util				"{DestST1}"Adv.Disk.Util

begin
	delete -i "{DestSD}"Scripts:Å  
end >>dev:null ³³dev:null
duplicate -d -y "{AUG}"installerscripts:Å			"{DestSD}"Scripts:

#
# Now kill any scripts that were copied that should not have been
For File in "{DestSD}"Scripts:All.Drivers ¶
			"{DestSD}"Scripts:CD.Driver ¶
			"{DestSD}"Scripts:HD.Driver ¶
			"{DestSD}"Scripts:Scanner.Driver ¶
			"{DestSD}"Scripts:Tape.Driver ¶
			"{DestSD}"Scripts:Stuff ¶
			"{DestSD}"Scripts:Animation.Tool ¶
			"{DestSD}"Scripts:QuickerGraph	¶
			"{DestSD}"Scripts:EtherTalk
	Delete -i "{File}"
end

# Now correct the character case of the script names

for f in ¶
	Adv.Disk.Util ¶
	Apple.MIDI ¶
	AppleDisk5.25 ¶
	AppleShare ¶
	ATImageWriter ¶
	ATImageWriterLQ ¶
	Card6850.MIDI ¶
	CDROM ¶
	DCImageWriter ¶
	DCImageWriterLQ ¶
	DOS3.3.FST ¶
	Epson ¶
	Fonts ¶
	HFS.FST ¶
	Inst.Sys.Min ¶
	Inst.SysF.NoFin ¶
	Instal.Sys.File ¶
	LaserWriter ¶
	Local.Net.Boot ¶
	Namer ¶
	Pascal.FST ¶
	Quick.Logoff ¶
	SCSI.Hard.Disk ¶
	Server.Sys.File ¶
	StyleWriter ¶
	synthLAB ¶
	UniDisk3.5 ¶
	VideoMix
		Rename "{DestSD}"Scripts:{f} "{DestSD}"Scripts:{f}
end

# the following scripts should have the "GS" removed from their names
	
Rename "{DestSD}"Scripts:ArchiverGS	"{DestSD}"Scripts:Archiver
Rename "{DestSD}"Scripts:GSCalc.NDA	"{DestSD}"Scripts:Calculator
Rename "{DestSD}"Scripts:TeachGS	"{DestSD}"Scripts:Teach

# the following scripts must be renamed to follow the new conventions

Rename "{DestSD}"Scripts:MediaCtrl		"{DestSD}"Scripts:MediaControl
Rename "{DestSD}"Scripts:CloseView.Init	"{DestSD}"Scripts:CloseView
Rename "{DestSD}"Scripts:Find.File.NDA	"{DestSD}"Scripts:FindFile
Rename "{DestSD}"Scripts:Tape6.0		"{DestSD}"Scripts:SCSI.Tape
Rename "{DestSD}"Scripts:Scan6.0		"{DestSD}"Scripts:SCSI.Scanner

# and to prevent any legal hassles...

Rename "{DestSD}"Scripts:Slinky			"{DestSD}"Scripts:A2.RAMCard

# now we set the proper filetype and auxtype on all scripts

for file in `files -f "{DestSD}"Scripts`
	Echo "FOO" | Rez -o "{file}" -m -c pdos -t $70B00017 ³ DEV:NULL
	SetFile -m . "{file}"
end

# Kill the cdevs in case any extra are in place.
begin
	delete -i -y "{DestSD}"system:cdevs:Å
	delete -i -y "{DestST1}"system:cdevs:Å
	delete -i -y "{DestST2}"system:cdevs:Å
end  >>dev:null ³³dev:null

duplicate -Y	"{AUG}"CDRemote:CDRemote						"{DestST1}"system:desk.accs:CDRemote
duplicate -Y	"{AUG}"GSCalcNDA:GSCalc.NDA						"{DestST1}"system:desk.accs:Calculator
#duplicate -Y	"{AUG}"ctlpanel:cdev.init:cdev.init				"{DestSD}"system:system.setup:CDev.Init
duplicate -Y	"{AUG}"ctlpanel:ctlpanelnda:ctlpanel.nda		"{DestSD}"system:desk.accs:ControlPanel
duplicate -Y	"{AUG}"ctlpanel:GeneralCDEV:General				"{DestSD}"system:CDEVS:General
duplicate -Y	"{AUG}"ctlpanel:KeyboardCDEV:Keyboard			"{DestST1}"system:CDEVS:Keyboard
duplicate -Y	"{AUG}"ctlpanel:ModemCDEV:Modem					"{DestST1}"system:CDEVS:Modem
duplicate -Y	"{AUG}"ctlpanel:MonitorCDEV:Monitor				"{DestST1}"system:CDEVS:Monitor
duplicate -Y	"{AUG}"ctlpanel:NetPrinterCDEV:NetPrinter		"{DestST2}"system:CDEVS:NetPrinter
duplicate -Y	"{AUG}"ctlpanel:NetworkCDEV:Network				"{DestST2}"system:CDEVS:Network
duplicate -Y	"{AUG}"ctlpanel:PrinterCDEV:PRINTER				"{DestST1}"system:CDEVS:Printer
duplicate -Y	"{AUG}"ctlpanel:RAMDiskCDEV:RAMDisk				"{DestSD}"system:CDEVS:RAM
duplicate -Y	"{AUG}"ctlpanel:SlotsCDEV:Slots					"{DestST1}"system:CDEVS:Slots
duplicate -Y	"{AUG}"ctlpanel:SoundCDEV:Sound					"{DestST1}"system:CDEVS:Sound
duplicate -Y	"{AUG}"ctlpanel:TimeCDEV:Time					"{DestST1}"system:CDEVS:Time
duplicate -Y	"{AUG}"ctlpanel:NamerCDEV:Namer					"{DestST2}"system:CDEVS:Namer
duplicate -Y	"{AUG}"ctlpanel:DirectConnectCDEV:DIRECTCONNECT	"{DestST1}"system:CDEVS:DirectConnect
duplicate -Y	"{AUG}"ctlpanel:AppleShareCDEV:Appleshare		"{DestST2}"system:CDEVS:AppleShare
duplicate -Y	"{AUG}"ctlpanel:FolderPrivCDEV:FolderPriv		"{DestST2}"system:CDEVS:FolderPriv
duplicate -Y	"{AUG}"CtlPanel:SetStartCDEV:SetStart			"{DestSD}"system:CDevs:SetStart
duplicate -Y	"{AUG}"CtlPanel:MidiCDev:MIDI					"{SynthLab}"MIDI

duplicate -Y	"{AUG}"videomix:VideoMix.NDA:VideoMix.NDA		"{DestST2}"system:desk.accs:VideoMix
duplicate -Y	"{AUG}"videomix:VideoMix.INIT:AppleIIVOC.INIT	"{DestST2}"system:system.setup:AppleIIVOC
duplicate -Y	"{AUG}"CloseView:Closeview						"{DestST2}"system:system.setup:CloseView
duplicate -Y -d	"{AUG}"VideoKeyboard:VideoKeyboard				"{DestST2}"system:Desk.Accs:VideoKeyboard
duplicate -Y	"{AUG}"MediaCtl:AppleCDSC:AppleCDSC				"{DestST2}"system:drivers:Media.Control:AppleCDSC
duplicate -Y	"{AUG}"MediaCtl:MediaCtlCDEV:MediaCtrl			"{DestST2}"system:CDevs:MediaControl
duplicate -Y	"{AUG}"MediaCtl:MediaCtlNDA:MediaCtlNDA			"{DestST2}"system:Desk.accs:MediaControl
duplicate -Y	"{AUG}"MediaCtl:P4200:P4200						"{DestST2}"system:drivers:Media.Control:Pioneer4200
duplicate -Y	"{AUG}"MediaCtl:Pioneer2000:P2000				"{DestST2}"system:drivers:Media.Control:Pioneer2000
duplicate -Y	"{AUG}"EasyAccess:EasyAccess					"{DestST2}"system:system.setup:EasyAccess
duplicate -y	"{AUG}"Finder:EasyMount:EasyMount				"{DestST2}"System:System.Setup:EasyMount
duplicate -y	"{AUG}"Apple.Bowl:Apple.Bowl					"{Fonts}"Goodies:Apple.Bowl
duplicate -y	"{AUG}"Apple.Bowl:Read.Me						"{Fonts}"Goodies:Read.Me
duplicate -y -d	"{AUG}"Apple.Bowl:AppleBowl.Icon				"{Fonts}"Icons:AppleBowl.Icon

For F in Ahh Doorbell Droplet Eastern Frog PipeOrgan Quack SimpleBeep Sosumi Swish Trumpets Whoosh
	Duplicate -y "{AUG}"CtlPanel:SoundCDev:Sounds:{f}			"{DestST2}"System:Sounds
end

# Reset the create dates on all CDevs so that the Control.Panel will rebuild it's
# CDev.Data file

SetFile -d . "{DestSD}"System:CDevs:Å "{DestST1}"System:CDevs:Å "{DestST2}"System:CDevs:Å

set exit 1
unset echo
\ No newline at end of file
diff --git a/IIGS.601.SRC/SD.ODDS.N.Ends/APW.Scripts/Build.Fonts b/IIGS.601.SRC/SD.ODDS.N.Ends/APW.Scripts/Build.Fonts
new file mode 100644
index 0000000..375e512
--- /dev/null
+++ b/IIGS.601.SRC/SD.ODDS.N.Ends/APW.Scripts/Build.Fonts
@@ -0,0 +1 @@
+* Remove the following line if you don't want to see the progress of the
* file transfer
Set Echo On

* Modify the following line so that the Source variable is set to the
* location of the SpongeBoy files
set Source ":A2CE_Sources:System Disk 6.0:"

* The following lines duplicate the SpongeBoy files to the :Fonts disk.
MkDir :Fonts:System:
  MkDir :Fonts:System:Fonts:
    Duplicate "{Source}Fonts:System:Fonts:Courier.27" ":Fonts:System:Fonts:Courier.27"
    Duplicate "{Source}Fonts:System:Fonts:Courier.28" ":Fonts:System:Fonts:Courier.28"
    Duplicate "{Source}Fonts:System:Fonts:Courier.30" ":Fonts:System:Fonts:Courier.30"
    Duplicate "{Source}Fonts:System:Fonts:Courier.36" ":Fonts:System:Fonts:Courier.36"
    Duplicate "{Source}Fonts:System:Fonts:Courier.42" ":Fonts:System:Fonts:Courier.42"
    Duplicate "{Source}Fonts:System:Fonts:Helvetica.27" ":Fonts:System:Fonts:Helvetica.27"
    Duplicate "{Source}Fonts:System:Fonts:Helvetica.28" ":Fonts:System:Fonts:Helvetica.28"
    Duplicate "{Source}Fonts:System:Fonts:Helvetica.30" ":Fonts:System:Fonts:Helvetica.30"
    Duplicate "{Source}Fonts:System:Fonts:Helvetica.36" ":Fonts:System:Fonts:Helvetica.36"
    Duplicate "{Source}Fonts:System:Fonts:Helvetica.42" ":Fonts:System:Fonts:Helvetica.42"
    Duplicate "{Source}Fonts:System:Fonts:Helvetica.48" ":Fonts:System:Fonts:Helvetica.48"
    Duplicate "{Source}Fonts:System:Fonts:Helvetica.60" ":Fonts:System:Fonts:Helvetica.60"
    Duplicate "{Source}Fonts:System:Fonts:Helvetica.72" ":Fonts:System:Fonts:Helvetica.72"
    Duplicate "{Source}Fonts:System:Fonts:Helvetica.96" ":Fonts:System:Fonts:Helvetica.96"
    Duplicate "{Source}Fonts:System:Fonts:Times.27" ":Fonts:System:Fonts:Times.27"
    Duplicate "{Source}Fonts:System:Fonts:Times.28" ":Fonts:System:Fonts:Times.28"
    Duplicate "{Source}Fonts:System:Fonts:Times.30" ":Fonts:System:Fonts:Times.30"
    Duplicate "{Source}Fonts:System:Fonts:Times.36" ":Fonts:System:Fonts:Times.36"
    Duplicate "{Source}Fonts:System:Fonts:Times.42" ":Fonts:System:Fonts:Times.42"
    Duplicate "{Source}Fonts:System:Fonts:Times.48" ":Fonts:System:Fonts:Times.48"
    Duplicate "{Source}Fonts:System:Fonts:Times.60" ":Fonts:System:Fonts:Times.60"
    Duplicate "{Source}Fonts:System:Fonts:Times.72" ":Fonts:System:Fonts:Times.72"
    Duplicate "{Source}Fonts:System:Fonts:Times.96" ":Fonts:System:Fonts:Times.96"
MkDir ":Fonts:Goodies"
  Duplicate "{Source}Fonts:Goodies:Apple.Bowl"    ":Fonts:Goodies:Apple.Bowl"
  Duplicate "{Source}Fonts:Goodies:Read.Me"       ":Fonts:Goodies:Read.Me"
MkDir ":Fonts:Icons"
  Duplicate "{Source}Fonts:Icons:AppleBowl.Icon"  ":Fonts:Icons:AppleBowl.Icon"
\ No newline at end of file
diff --git a/IIGS.601.SRC/SD.ODDS.N.Ends/APW.Scripts/Build.Install b/IIGS.601.SRC/SD.ODDS.N.Ends/APW.Scripts/Build.Install
new file mode 100644
index 0000000..cbf1910
--- /dev/null
+++ b/IIGS.601.SRC/SD.ODDS.N.Ends/APW.Scripts/Build.Install
@@ -0,0 +1 @@
+Set Echo On

set Source ":A2CE_Sources:System Disk 6.0:"

Duplicate "{Source}Install:ProDOS" ":Install:ProDOS"
  MkDir :Install:System:
  Duplicate "{Source}Install:System:Start.GS.OS"                ":Install:System:Start.GS.OS"
  Duplicate "{Source}Install:System:GS.OS"                      ":Install:System:GS.OS"
  Duplicate "{Source}Install:System:Error.Msg"                  ":Install:System:Error.Msg"
  Duplicate "{Source}Install:System:GS.OS.Dev"                  ":Install:System:GS.OS.Dev"
  MkDir :Install:System:FSTs:
    Duplicate "{Source}Install:System:FSTs:Pro.FST"             ":Install:System:FSTs:Pro.FST"
  MkDir :Install:System:Drivers:
    Duplicate "{Source}Install:System:Drivers:AppleDisk3.5"     ":Install:System:Drivers:AppleDisk3.5"
    Duplicate "{Source}Install:System:Drivers:AppleDisk5.25"    ":Install:System:Drivers:AppleDisk5.25"
    Duplicate "{Source}Install:System:Drivers:SCSI.Manager"     ":Install:System:Drivers:SCSI.Manager"
    Duplicate "{Source}Install:System:Drivers:SCSIHD.Driver"    ":Install:System:Drivers:SCSIHD.Driver"
    Duplicate "{Source}Install:System:Drivers:Console.Driver"   ":Install:System:Drivers:Console.Driver"
    Duplicate "{Source}Install:System:Drivers:UniDisk3.5"       ":Install:System:Drivers:UniDisk3.5"
  MkDir :Install:System:System.Setup:
    Duplicate "{Source}Install:System:System.Setup:Tool.Setup"  ":Install:System:System.Setup:Tool.Setup"
    Duplicate "{Source}Install:System:System.Setup:TS2"         ":Install:System:System.Setup:TS2"
    Duplicate "{Source}Install:System:System.Setup:TS3"         ":Install:System:System.Setup:TS3"
    Duplicate "{Source}Install:System:System.Setup:Resource.Mgr" ":Install:System:System.Setup:Resource.Mgr"
    Duplicate "{Source}Install:System:System.Setup:Sys.Resources" ":Install:System:System.Setup:Sys.Resources"
  MkDir :Install:System:CDevs:
    Duplicate "{Source}Install:System:CDevs:SetStart"           ":Install:System:CDevs:SetStart"
    Duplicate "{Source}Install:System:CDevs:General"            ":Install:System:CDevs:General"
    Duplicate "{Source}Install:System:CDevs:RAM"                ":Install:System:CDevs:RAM"
  MkDir :Install:System:Desk.Accs:
    Duplicate "{Source}Install:System:Desk.Accs:ControlPanel"   ":Install:System:Desk.Accs:ControlPanel"
    Duplicate "{Source}Install:System:Start"                    ":Install:System:Start"
    Duplicate "{Source}Install:System:SetStart.data"            ":Install:System:SetStart.data"
  Duplicate "{Source}Install:System:P8"                         ":Install:System:P8"
    Duplicate "{Source}Install:System:FSTs:Char.FST"            ":Install:System:FSTs:Char.FST"
  MkDir :Install:System:Fonts:
    Duplicate "{Source}Install:System:Fonts:FastFont"           ":Install:System:Fonts:FastFont"
  MkDir :Install:System:Tools:
    Duplicate "{Source}Install:System:Tools:Tool014"            ":Install:System:Tools:Tool014"
    Duplicate "{Source}Install:System:Tools:Tool015"            ":Install:System:Tools:Tool015"
    Duplicate "{Source}Install:System:Tools:Tool016"            ":Install:System:Tools:Tool016"
    Duplicate "{Source}Install:System:Tools:Tool018"            ":Install:System:Tools:Tool018"
    Duplicate "{Source}Install:System:Tools:Tool019"            ":Install:System:Tools:Tool019"
    Duplicate "{Source}Install:System:Tools:Tool020"            ":Install:System:Tools:Tool020"
    Duplicate "{Source}Install:System:Tools:Tool021"            ":Install:System:Tools:Tool021"
    Duplicate "{Source}Install:System:Tools:Tool022"            ":Install:System:Tools:Tool022"
    Duplicate "{Source}Install:System:Tools:Tool023"            ":Install:System:Tools:Tool023"
    Duplicate "{Source}Install:System:Tools:Tool027"            ":Install:System:Tools:Tool027"
    Duplicate "{Source}Install:System:Tools:Tool028"            ":Install:System:Tools:Tool028"
    Duplicate "{Source}Install:System:Tools:Tool034"            ":Install:System:Tools:Tool034"
MkDir :Install:Icons:
  Duplicate "{Source}Install:Icons:FType.Apple"                 ":Install:Icons:FType.Apple"
Duplicate "{Source}Install:Installer"                           ":Install:Installer"
MkDir :Install:Scripts:
  Duplicate "{Source}Install:Scripts:A2.RAMCard"                ":Install:Scripts:A2.RAMCard"
  Duplicate "{Source}Install:Scripts:RAM5"                      ":Install:Scripts:RAM5"
  Duplicate "{Source}Install:Scripts:Adv.Disk.Util"             ":Install:Scripts:Adv.Disk.Util"
  Duplicate "{Source}Install:Scripts:Apple.Bowl"                ":Install:Scripts:Apple.Bowl"
  Duplicate "{Source}Install:Scripts:Apple.MIDI"                ":Install:Scripts:Apple.MIDI"
  Duplicate "{Source}Install:Scripts:AppleDisk5.25"             ":Install:Scripts:AppleDisk5.25"
  Duplicate "{Source}Install:Scripts:AppleShare"                ":Install:Scripts:AppleShare"
  Duplicate "{Source}Install:Scripts:AppleShare3.5"             ":Install:Scripts:AppleShare3.5"
  Duplicate "{Source}Install:Scripts:Archiver"                  ":Install:Scripts:Archiver"
  Duplicate "{Source}Install:Scripts:Aristotle.Patch"           ":Install:Scripts:Aristotle.Patch"
  Duplicate "{Source}Install:Scripts:ATImageWriter"             ":Install:Scripts:ATImageWriter"
  Duplicate "{Source}Install:Scripts:ATImageWriterLQ"           ":Install:Scripts:ATImageWriterLQ"
  Duplicate "{Source}Install:Scripts:Calculator"                ":Install:Scripts:Calculator"
  Duplicate "{Source}Install:Scripts:Card6850.MIDI"             ":Install:Scripts:Card6850.MIDI"
  Duplicate "{Source}Install:Scripts:CDROM"                     ":Install:Scripts:CDROM"
  Duplicate "{Source}Install:Scripts:CloseView"                 ":Install:Scripts:CloseView"
  Duplicate "{Source}Install:Scripts:DCImageWriter"             ":Install:Scripts:DCImageWriter"
  Duplicate "{Source}Install:Scripts:DCImageWriterLQ"           ":Install:Scripts:DCImageWriterLQ"
  Duplicate "{Source}Install:Scripts:DOS3.3.FST"                ":Install:Scripts:DOS3.3.FST"
  Duplicate "{Source}Install:Scripts:Easy.Access"               ":Install:Scripts:Easy.Access"
  Duplicate "{Source}Install:Scripts:Epson"                     ":Install:Scripts:Epson"
  Duplicate "{Source}Install:Scripts:FindFile"                  ":Install:Scripts:FindFile"
  Duplicate "{Source}Install:Scripts:Fonts"                     ":Install:Scripts:Fonts"
  Duplicate "{Source}Install:Scripts:Fonts.Max"                 ":Install:Scripts:Fonts.Max"
  Duplicate "{Source}Install:Scripts:Fonts.Std"                 ":Install:Scripts:Fonts.Std"
  Duplicate "{Source}Install:Scripts:HFS.FST"                   ":Install:Scripts:HFS.FST"
  Duplicate "{Source}Install:Scripts:Inst.Sys.Min"              ":Install:Scripts:Inst.Sys.Min"
  Duplicate "{Source}Install:Scripts:Inst.SysF.NoFin"           ":Install:Scripts:Inst.SysF.NoFin"
  Duplicate "{Source}Install:Scripts:Instal.Sys.File"           ":Install:Scripts:Instal.Sys.File"
  Duplicate "{Source}Install:Scripts:LaserWriter"               ":Install:Scripts:LaserWriter"
  Duplicate "{Source}Install:Scripts:Local.Net.Boot"            ":Install:Scripts:Local.Net.Boot"
  Duplicate "{Source}Install:Scripts:MediaControl"              ":Install:Scripts:MediaControl"
  Duplicate "{Source}Install:Scripts:MediaCtrl.CDSC"            ":Install:Scripts:MediaCtrl.CDSC"
  Duplicate "{Source}Install:Scripts:MediaCtrl.P2000"           ":Install:Scripts:MediaCtrl.P2000"
  Duplicate "{Source}Install:Scripts:MediaCtrl.P4200"           ":Install:Scripts:MediaCtrl.P4200"
  Duplicate "{Source}Install:Scripts:MSDOS.FST"          ":Install:Scripts:MSDOS.FST"
  Duplicate "{Source}Install:Scripts:Namer"                     ":Install:Scripts:Namer"
  Duplicate "{Source}Install:Scripts:Pascal.FST"                ":Install:Scripts:Pascal.FST"
  Duplicate "{Source}Install:Scripts:Quick.Logoff"              ":Install:Scripts:Quick.Logoff"
  Duplicate "{Source}Install:Scripts:SCSI.Hard.Disk"            ":Install:Scripts:SCSI.Hard.Disk"
  Duplicate "{Source}Install:Scripts:SCSI.Scanner"              ":Install:Scripts:SCSI.Scanner"
  Duplicate "{Source}Install:Scripts:SCSI.Tape"                 ":Install:Scripts:SCSI.Tape"
  Duplicate "{Source}Install:Scripts:Server.Sys.File"           ":Install:Scripts:Server.Sys.File"
  Duplicate "{Source}Install:Scripts:Sounds.All"                ":Install:Scripts:Sounds.All"
  Duplicate "{Source}Install:Scripts:StyleWriter"               ":Install:Scripts:StyleWriter"
  Duplicate "{Source}Install:Scripts:synthLAB"                  ":Install:Scripts:synthLAB"
  Duplicate "{Source}Install:Scripts:Teach"                     ":Install:Scripts:Teach"
  Duplicate "{Source}Install:Scripts:UniDisk3.5"                ":Install:Scripts:UniDisk3.5"
  Duplicate "{Source}Install:Scripts:VideoKeyboard"             ":Install:Scripts:VideoKeyboard"
  Duplicate "{Source}Install:Scripts:VideoMix"                  ":Install:Scripts:VideoMix"

Backup -from "{Source}Install:" -to ":Install:" -r -a -c -e >/Ram5/Install.Extras
\ No newline at end of file
diff --git a/IIGS.601.SRC/SD.ODDS.N.Ends/APW.Scripts/Build.Synth b/IIGS.601.SRC/SD.ODDS.N.Ends/APW.Scripts/Build.Synth
new file mode 100644
index 0000000..93dbd7b
--- /dev/null
+++ b/IIGS.601.SRC/SD.ODDS.N.Ends/APW.Scripts/Build.Synth
@@ -0,0 +1 @@
+Set Source ":A2CE_Sources:System Disk 6.0:"
set echo on

Duplicate "{Source}synthlab:synthLAB"           ":SynthLab:synthLAB"
MkDir :SynthLab:Icons:
Duplicate "{Source}synthlab:Icons:SL.Icons"     ":SynthLab:Icons:SL.Icons"

Duplicate "{Source}synthlab:Reference"          ":SynthLab:Reference"
Duplicate "{Source}synthlab:Tool035"            ":SynthLab:Tool035"
Duplicate "{Source}synthlab:MIDI"               ":SynthLab:MIDI"

MkDir :SynthLab:Seq.and.Instr:
Duplicate "{Source}synthlab:Seq.and.Instr:Synth.bnk"    ":SynthLab:Seq.and.Instr:Synth.bnk"
Duplicate "{Source}synthlab:Seq.and.Instr:Synth.seq"    ":SynthLab:Seq.and.Instr:Synth.seq"
Duplicate "{Source}synthlab:Seq.and.Instr:Synth.wav"    ":SynthLab:Seq.and.Instr:Synth.wav"
Duplicate "{Source}synthlab:Seq.and.Instr:Bee.seq"      ":SynthLab:Seq.and.Instr:Bee.seq"
Duplicate "{Source}SynthLab:Seq.and.Instr:Capri.seq"    ":SynthLab:Seq.and.Instr:Capri.seq"
Duplicate "{Source}synthlab:Seq.and.Instr:Combo.bnk"    ":SynthLab:Seq.and.Instr:Combo.bnk"
Duplicate "{Source}synthlab:Seq.and.Instr:Combo.wav"    ":SynthLab:Seq.and.Instr:Combo.wav"
Duplicate "{Source}synthlab:Seq.and.Instr:Demo.bnk"     ":SynthLab:Seq.and.Instr:Demo.bnk"
Duplicate "{Source}synthlab:Seq.and.Instr:Demo.wav"     ":SynthLab:Seq.and.Instr:Demo.wav"
Duplicate "{Source}synthlab:Seq.and.Instr:Fugue.seq"    ":SynthLab:Seq.and.Instr:Fugue.seq"
Duplicate "{Source}synthlab:Seq.and.Instr:Midsummer.seq" ":SynthLab:Seq.and.Instr:Midsummer.seq"
Duplicate "{Source}synthlab:Seq.and.Instr:Orch.bnk"     ":SynthLab:Seq.and.Instr:Orch.bnk"
Duplicate "{Source}synthlab:Seq.and.Instr:Orch.wav"     ":SynthLab:Seq.and.Instr:Orch.wav"
Duplicate "{Source}synthlab:Seq.and.Instr:Piano.bnk"    ":SynthLab:Seq.and.Instr:Piano.bnk"
Duplicate "{Source}synthlab:Seq.and.Instr:Piano.wav"    ":SynthLab:Seq.and.Instr:Piano.wav"
Duplicate "{Source}SynthLab:Seq.and.Instr:Rhythm.seq"   ":SynthLab:Seq.and.Instr:Rhythm.seq"
Duplicate "{Source}SynthLab:Seq.and.Instr:Sonata.seq"   ":SynthLab:Seq.and.Instr:Sonata.seq"
Backup -from "{Source}SynthLab:" -to ":SynthLab:" -r -a -c -e
\ No newline at end of file
diff --git a/IIGS.601.SRC/SD.ODDS.N.Ends/APW.Scripts/Build.SysDisk b/IIGS.601.SRC/SD.ODDS.N.Ends/APW.Scripts/Build.SysDisk
new file mode 100644
index 0000000..145c7df
--- /dev/null
+++ b/IIGS.601.SRC/SD.ODDS.N.Ends/APW.Scripts/Build.SysDisk
@@ -0,0 +1 @@
+* Remove the following line if you don't want to see the progress of the
* file transfer
Set Echo On

* Modify the following line so that the Source variable is set to the
* location of the SpongeBoy files
set Source ":A2CE_Sources:System Disk 6.0:"

* The following lines duplicate the SpongeBoy files to the :System.Disk disk.
Duplicate "{Source}Install:ProDOS"                                  ":System.Disk:ProDOS"
MkDir :System.Disk:System
  Duplicate "{Source}Install:System:Start.GS.OS"                    ":System.Disk:System:Start.GS.OS"
  Duplicate "{Source}Install:System:GS.OS"                          ":System.Disk:System:GS.OS"
  Duplicate "{Source}Install:System:Error.Msg"                      ":System.Disk:System:Error.Msg"
  Duplicate "{Source}Install:System:GS.OS.Dev"                      ":System.Disk:System:GS.OS.Dev"

  MkDir :System.Disk:System:FSTs
    Duplicate "{Source}Install:System:FSTs:Pro.FST"                 ":System.Disk:System:FSTs:Pro.FST"

  MkDir :System.Disk:System:Drivers
    Duplicate "{Source}Install:System:Drivers:AppleDisk3.5"         ":System.Disk:System:Drivers:AppleDisk3.5"
    Duplicate "{Source}Install:System:Drivers:AppleDisk5.25"        ":System.Disk:System:Drivers:AppleDisk5.25"
    Duplicate "{Source}Install:System:Drivers:Console.Driver"       ":System.Disk:System:Drivers:Console.Driver"

    Duplicate "{Source}Install:System:FSTs:Char.FST"                ":System.Disk:System:FSTs:Char.FST"

  MkDir :System.Disk:System:System.Setup:
    Duplicate "{Source}Install:System:System.Setup:Tool.Setup"      ":System.Disk:System:System.Setup:Tool.Setup"
    Duplicate "{Source}Install:System:System.Setup:TS2"             ":System.Disk:System:System.Setup:TS2"
    Duplicate "{Source}Install:System:System.Setup:TS3"             ":System.Disk:System:System.Setup:TS3"
    Duplicate "{Source}Install:System:System.Setup:Resource.Mgr"    ":System.Disk:System:System.Setup:Resource.Mgr"
    Duplicate "{Source}Install:System:System.Setup:Sys.Resources"   ":System.Disk:System:System.Setup:Sys.Resources"

  MkDir :System.Disk:System:Desk.Accs:
    Duplicate "{Source}Install:System:Desk.Accs:ControlPanel"       ":System.Disk:System:Desk.Accs:ControlPanel"

  MkDir :System.Disk:System:CDevs:
    Duplicate "{Source}SystemTools1:System:CDevs:Printer"           ":System.Disk:System:CDevs:Printer"
    Duplicate "{Source}SystemTools1:System:CDevs:Time"              ":System.Disk:System:CDevs:Time"

  Duplicate "{Source}SystemTools1:System:Finder"                    ":System.Disk:System:Start"

  MkDir :System.Disk:System:Tools
    Duplicate "{Source}Install:System:Tools:Tool014"                ":System.Disk:System:Tools:Tool014"
    Duplicate "{Source}Install:System:Tools:Tool015"                ":System.Disk:System:Tools:Tool015"
    Duplicate "{Source}Install:System:Tools:Tool016"                ":System.Disk:System:Tools:Tool016"
    Duplicate "{Source}Install:System:Tools:Tool018"                ":System.Disk:System:Tools:Tool018"
    Duplicate "{Source}Install:System:Tools:Tool019"                ":System.Disk:System:Tools:Tool019"
    Duplicate "{Source}Install:System:Tools:Tool020"                ":System.Disk:System:Tools:Tool020"
    Duplicate "{Source}Install:System:Tools:Tool021"                ":System.Disk:System:Tools:Tool021"
    Duplicate "{Source}Install:System:Tools:Tool022"                ":System.Disk:System:Tools:Tool022"
    Duplicate "{Source}Install:System:Tools:Tool023"                ":System.Disk:System:Tools:Tool023"
    Duplicate "{Source}SystemTools1:System:Tools:Tool025"           ":System.Disk:System:Tools:Tool025"
    Duplicate "{Source}Install:System:Tools:Tool027"                ":System.Disk:System:Tools:Tool027"
    Duplicate "{Source}Install:System:Tools:Tool028"                ":System.Disk:System:Tools:Tool028"
    Duplicate "{Source}Install:System:Tools:Tool034"                ":System.Disk:System:Tools:Tool034"

  MkDir :System.Disk:System:Fonts

  Duplicate "{Source}Install:System:P8"                             ":System.Disk:System:P8"

  MkDir :System.Disk:Icons:
    Duplicate "{Source}Install:Icons:FType.Apple"                   ":System.Disk:Icons:FType.Apple"

  Duplicate "{Source}SystemTools1:BASIC.System"                     ":System.Disk:BASIC.System"
Eject :System.Disk:
\ No newline at end of file
diff --git a/IIGS.601.SRC/SD.ODDS.N.Ends/APW.Scripts/Build.SysTools1 b/IIGS.601.SRC/SD.ODDS.N.Ends/APW.Scripts/Build.SysTools1
new file mode 100644
index 0000000..b48e104
--- /dev/null
+++ b/IIGS.601.SRC/SD.ODDS.N.Ends/APW.Scripts/Build.SysTools1
@@ -0,0 +1 @@
+Set Echo On
set Source ":A2CE_Sources:System Disk 6.0:"

MkDir :SystemTools1:System:
  Duplicate "{Source}SystemTools1:System:Finder"                ":SystemTools1:System:Finder"
  MkDir :SystemTools1:System:CDevs:
    Duplicate "{Source}SystemTools1:System:CDevs:DirectConnect"     ":SystemTools1:System:CDevs:DirectConnect"
    Duplicate "{Source}SystemTools1:System:CDevs:Keyboard"          ":SystemTools1:System:CDevs:Keyboard"
    Duplicate "{Source}SystemTools1:System:CDevs:Modem"             ":SystemTools1:System:CDevs:Modem"
    Duplicate "{Source}SystemTools1:System:CDevs:Monitor"           ":SystemTools1:System:CDevs:Monitor"
    Duplicate "{Source}SystemTools1:System:CDevs:Printer"           ":SystemTools1:System:CDevs:Printer"
    Duplicate "{Source}SystemTools1:System:CDevs:Slots"             ":SystemTools1:System:CDevs:Slots"
    Duplicate "{Source}SystemTools1:System:CDevs:Sound"             ":SystemTools1:System:CDevs:Sound"
    Duplicate "{Source}SystemTools1:System:CDevs:Time"              ":SystemTools1:System:CDevs:Time"
  MkDir :SystemTools1:System:Desk.Accs:
    Duplicate "{Source}SystemTools1:System:Desk.Accs:CDRemote"      ":SystemTools1:System:Desk.Accs:CDRemote"
    Duplicate "{Source}SystemTools1:System:Desk.Accs:FindFile"      ":SystemTools1:System:Desk.Accs:FindFile"
    Duplicate "{Source}SystemTools1:System:Desk.Accs:Calculator"    ":SystemTools1:System:Desk.Accs:Calculator"
  MkDir :SystemTools1:System:Drivers:
    Duplicate "{Source}SystemTools1:System:Drivers:SCSI.Manager"    ":SystemTools1:System:Drivers:SCSI.Manager"
    Duplicate "{Source}SystemTools1:System:Drivers:SCSICD.Driver"   ":SystemTools1:System:Drivers:SCSICD.Driver"
    Duplicate "{Source}SystemTools1:System:Drivers:SCSIScan.Driver" ":SystemTools1:System:Drivers:SCSIScan.Driver"
    Duplicate "{Source}SystemTools1:System:Drivers:SCSITape.Driver" ":SystemTools1:System:Drivers:SCSITape.Driver"
    Duplicate "{Source}SystemTools1:System:Drivers:A2.RAMCard"      ":SystemTools1:System:Drivers:A2.RAMCard"
    Duplicate "{Source}SystemTools1:System:Drivers:RAM5"            ":SystemTools1:System:Drivers:RAM5"
    Duplicate "{Source}SystemTools1:System:Drivers:Modem"           ":SystemTools1:System:Drivers:Modem"
    Duplicate "{Source}SystemTools1:System:Drivers:Parallel.Card"   ":SystemTools1:System:Drivers:Parallel.Card"
    Duplicate "{Source}SystemTools1:System:Drivers:Printer"         ":SystemTools1:System:Drivers:Printer"
    Duplicate "{Source}SystemTools1:System:Drivers:Epson"           ":SystemTools1:System:Drivers:Epson"
    Duplicate "{Source}SystemTools1:System:Drivers:ImageWriter"     ":SystemTools1:System:Drivers:ImageWriter"
    Duplicate "{Source}SystemTools1:System:Drivers:ImageWriter.LQ"  ":SystemTools1:System:Drivers:ImageWriter.LQ"
    Duplicate "{Source}SystemTools1:System:Drivers:StyleWriter"     ":SystemTools1:System:Drivers:StyleWriter"
    Duplicate "{Source}SystemTools1:System:Drivers:Apple.Midi"      ":SystemTools1:System:Drivers:Apple.Midi"
    Duplicate "{Source}SystemTools1:System:Drivers:Card6850.MIDI"   ":SystemTools1:System:Drivers:Card6850.MIDI"
  MkDir :SystemTools1:System:Fonts:
    Duplicate "{Source}SystemTools1:System:Fonts:Courier.09"        ":SystemTools1:System:Fonts:Courier.09"
    Duplicate "{Source}SystemTools1:System:Fonts:Courier.10"        ":SystemTools1:System:Fonts:Courier.10"
    Duplicate "{Source}SystemTools1:System:Fonts:Courier.12"        ":SystemTools1:System:Fonts:Courier.12"
    Duplicate "{Source}SystemTools1:System:Fonts:Courier.14"        ":SystemTools1:System:Fonts:Courier.14"
    Duplicate "{Source}SystemTools1:System:Fonts:Courier.18"        ":SystemTools1:System:Fonts:Courier.18"
    Duplicate "{Source}SystemTools1:System:Fonts:Courier.20"        ":SystemTools1:System:Fonts:Courier.20"
    Duplicate "{Source}SystemTools1:System:Fonts:Courier.24"        ":SystemTools1:System:Fonts:Courier.24"
    Duplicate "{Source}SystemTools1:System:Fonts:Geneva.10"         ":SystemTools1:System:Fonts:Geneva.10"
    Duplicate "{Source}SystemTools1:System:Fonts:Geneva.12"         ":SystemTools1:System:Fonts:Geneva.12"
    Duplicate "{Source}SystemTools1:System:Fonts:Geneva.14"         ":SystemTools1:System:Fonts:Geneva.14"
    Duplicate "{Source}SystemTools1:System:Fonts:Geneva.16"         ":SystemTools1:System:Fonts:Geneva.16"
    Duplicate "{Source}SystemTools1:System:Fonts:Geneva.18"         ":SystemTools1:System:Fonts:Geneva.18"
    Duplicate "{Source}SystemTools1:System:Fonts:Geneva.20"         ":SystemTools1:System:Fonts:Geneva.20"
    Duplicate "{Source}SystemTools1:System:Fonts:Geneva.24"         ":SystemTools1:System:Fonts:Geneva.24"
    Duplicate "{Source}SystemTools1:System:Fonts:Helvetica.09"      ":SystemTools1:System:Fonts:Helvetica.09"
    Duplicate "{Source}SystemTools1:System:Fonts:Helvetica.10"      ":SystemTools1:System:Fonts:Helvetica.10"
    Duplicate "{Source}SystemTools1:System:Fonts:Helvetica.12"      ":SystemTools1:System:Fonts:Helvetica.12"
    Duplicate "{Source}SystemTools1:System:Fonts:Helvetica.14"      ":SystemTools1:System:Fonts:Helvetica.14"
    Duplicate "{Source}SystemTools1:System:Fonts:Helvetica.18"      ":SystemTools1:System:Fonts:Helvetica.18"
    Duplicate "{Source}SystemTools1:System:Fonts:Helvetica.20"      ":SystemTools1:System:Fonts:Helvetica.20"
    Duplicate "{Source}SystemTools1:System:Fonts:Helvetica.24"      ":SystemTools1:System:Fonts:Helvetica.24"
    Duplicate "{Source}SystemTools1:System:Fonts:Shaston.16"        ":SystemTools1:System:Fonts:Shaston.16"
    Duplicate "{Source}SystemTools1:System:Fonts:Times.09"          ":SystemTools1:System:Fonts:Times.09"
    Duplicate "{Source}SystemTools1:System:Fonts:Times.10"          ":SystemTools1:System:Fonts:Times.10"
    Duplicate "{Source}SystemTools1:System:Fonts:Times.12"          ":SystemTools1:System:Fonts:Times.12"
    Duplicate "{Source}SystemTools1:System:Fonts:Times.14"          ":SystemTools1:System:Fonts:Times.14"
    Duplicate "{Source}SystemTools1:System:Fonts:Times.18"          ":SystemTools1:System:Fonts:Times.18"
    Duplicate "{Source}SystemTools1:System:Fonts:Times.20"          ":SystemTools1:System:Fonts:Times.20"
    Duplicate "{Source}SystemTools1:System:Fonts:Times.24"          ":SystemTools1:System:Fonts:Times.24"
    Duplicate "{Source}SystemTools1:System:Fonts:Venice.12"         ":SystemTools1:System:Fonts:Venice.12"
    Duplicate "{Source}SystemTools1:System:Fonts:Venice.14"         ":SystemTools1:System:Fonts:Venice.14"
    Duplicate "{Source}SystemTools1:System:Fonts:Venice.24"         ":SystemTools1:System:Fonts:Venice.24"
  MkDir :SystemTools1:System:FSTs:
    Duplicate "{Source}SystemTools1:System:FSTs:DOS3.3.FST"         ":SystemTools1:System:FSTs:DOS3.3.FST"
    Duplicate "{Source}SystemTools1:System:FSTs:HFS.FST"            ":SystemTools1:System:FSTs:HFS.FST"
    Duplicate "{Source}SystemTools1:System:FSTs:HS.FST"             ":SystemTools1:System:FSTs:HS.FST"
    Duplicate "{Source}SystemTools1:System:FSTs:Pascal.FST"         ":SystemTools1:System:FSTs:Pascal.FST"
    Duplicate "{Source}SystemTools1:System:FSTs:MSDOS.FST"          ":SystemTools1:System:FSTs:MSDOS.FST"
  MkDir :SystemTools1:System:Tools:
    Duplicate "{Source}SystemTools1:System:Tools:Tool025"           ":SystemTools1:System:Tools:Tool025"
    Duplicate "{Source}SystemTools1:System:Tools:Tool026"           ":SystemTools1:System:Tools:Tool026"
    Duplicate "{Source}SystemTools1:System:Tools:Tool029"           ":SystemTools1:System:Tools:Tool029"
    Duplicate "{Source}SystemTools1:System:Tools:Tool032"           ":SystemTools1:System:Tools:Tool032"
MkDir :SystemTools1:Icons:
Duplicate "{Source}SystemTools1:Adv.Disk.Util"                      ":SystemTools1:Adv.Disk.Util"
Duplicate "{Source}SystemTools1:BASIC.System"                       ":SystemTools1:BASIC.System"

Backup -from "{Source}SystemTools1:" -to ":SystemTools1:" -r -a -c -e >/Ram4/ST1.Extras
\ No newline at end of file
diff --git a/IIGS.601.SRC/SD.ODDS.N.Ends/APW.Scripts/Build.SysTools2 b/IIGS.601.SRC/SD.ODDS.N.Ends/APW.Scripts/Build.SysTools2
new file mode 100644
index 0000000..3f243d8
--- /dev/null
+++ b/IIGS.601.SRC/SD.ODDS.N.Ends/APW.Scripts/Build.SysTools2
@@ -0,0 +1 @@
+set echo on
Set Source ":A2CE_Sources:System Disk 6.0:"

MkDir :SystemTools2:AppleTalk:
  Duplicate "{Source}SystemTools2:AppleTalk:Boot.Driver"                ":SystemTools2:AppleTalk:Boot.Driver"
  Duplicate "{Source}SystemTools2:AppleTalk:Display.0"                  ":SystemTools2:AppleTalk:Display.0"
  Duplicate "{Source}SystemTools2:AppleTalk:QuickLogoff"                ":SystemTools2:AppleTalk:QuickLogoff"
  Duplicate "{Source}SystemTools2:AppleTalk:Start"                      ":SystemTools2:AppleTalk:Start"
MkDir :SystemTools2:System:
  MkDir :SystemTools2:System:CDevs:
    Duplicate "{Source}SystemTools2:System:CDevs:AppleShare"            ":SystemTools2:System:CDevs:AppleShare"
    Duplicate "{Source}SystemTools2:System:CDevs:FolderPriv"            ":SystemTools2:System:CDevs:FolderPriv"
    Duplicate "{Source}SystemTools2:System:CDevs:MediaControl"          ":SystemTools2:System:CDevs:MediaControl"
    Duplicate "{Source}SystemTools2:System:CDevs:Namer"                 ":SystemTools2:System:CDevs:Namer"
    Duplicate "{Source}SystemTools2:System:CDevs:NetPrinter"            ":SystemTools2:System:CDevs:NetPrinter"
    Duplicate "{Source}SystemTools2:System:CDevs:Network"               ":SystemTools2:System:CDevs:Network"
  MkDir :SystemTools2:System:Desk.Accs:
    Duplicate "{Source}SystemTools2:System:Desk.Accs:MediaControl"      ":SystemTools2:System:Desk.Accs:MediaControl"
    Duplicate "{Source}SystemTools2:System:Desk.Accs:VideoKeyboard"     ":SystemTools2:System:Desk.Accs:VideoKeyboard"
    Duplicate "{Source}SystemTools2:System:Desk.Accs:VideoMix"          ":SystemTools2:System:Desk.Accs:VideoMix"
  MkDir :SystemTools2:System:Drivers:
    Duplicate "{Source}SystemTools2:System:Drivers:SCC.Manager"         ":SystemTools2:System:Drivers:SCC.Manager"
    Duplicate "{Source}SystemTools2:System:Drivers:AppleTalk"           ":SystemTools2:System:Drivers:AppleTalk"
    Duplicate "{Source}SystemTools2:System:Drivers:ATP1.ATROM"          ":SystemTools2:System:Drivers:ATP1.ATROM"
    Duplicate "{Source}SystemTools2:System:Drivers:ATP2.ATRAM"          ":SystemTools2:System:Drivers:ATP2.ATRAM"
    Duplicate "{Source}SystemTools2:System:Drivers:ATalk"               ":SystemTools2:System:Drivers:ATalk"
    Duplicate "{Source}SystemTools2:System:Drivers:LaserWriter"         ":SystemTools2:System:Drivers:LaserWriter"
    Duplicate "{Source}SystemTools2:System:Drivers:IWEM"                ":SystemTools2:System:Drivers:IWEM"
    MkDir :SystemTools2:System:Drivers:Media.Control:
      Duplicate "{Source}SystemTools2:System:Drivers:Media.Control:AppleCDSC" ":SystemTools2:System:Drivers:Media.Control:AppleCDSC"
      Duplicate "{Source}SystemTools2:System:Drivers:Media.Control:Pioneer2000" ":SystemTools2:System:Drivers:Media.Control:Pioneer2000"
      Duplicate "{Source}SystemTools2:System:Drivers:Media.Control:Pioneer4200" ":SystemTools2:System:Drivers:Media.Control:Pioneer4200"
  MkDir :SystemTools2:System:Fonts:
  MkDir :SystemTools2:System:FSTs:
    Duplicate "{Source}SystemTools2:System:FSTs:AppleShare.FST"         ":SystemTools2:System:FSTs:AppleShare.FST"
  MkDir :SystemTools2:System:System.Setup:
    Duplicate "{Source}SystemTools2:System:System.Setup:AppleIIVOC"     ":SystemTools2:System:System.Setup:AppleIIVOC"
    Duplicate "{Source}SystemTools2:System:System.Setup:ATInit"         ":SystemTools2:System:System.Setup:ATInit"
    Duplicate "{Source}SystemTools2:System:System.Setup:ATResponder"    ":SystemTools2:System:System.Setup:ATResponder"
    Duplicate "{Source}SystemTools2:System:System.Setup:CloseView"      ":SystemTools2:System:System.Setup:CloseView"
    Duplicate "{Source}SystemTools2:System:System.Setup:EasyAccess"     ":SystemTools2:System:System.Setup:EasyAccess"
    Duplicate "{Source}SystemTools2:System:System.Setup:EasyMount"      ":SystemTools2:System:System.Setup:EasyMount"
  MkDir :SystemTools2:System:Tools:
    Duplicate "{Source}SystemTools2:System:Tools:Tool033"               ":SystemTools2:System:Tools:Tool033"
    Duplicate "{Source}SystemTools2:System:Tools:Tool038"               ":SystemTools2:System:Tools:Tool038"
  MkDir :SystemTools2:System:Sounds:
    Duplicate "{Source}SystemTools2:System:Sounds:Ahh"                  ":SystemTools2:System:Sounds:Ahh"
    Duplicate "{Source}SystemTools2:System:Sounds:Doorbell"             ":SystemTools2:System:Sounds:Doorbell"
    Duplicate "{Source}SystemTools2:System:Sounds:Droplet"              ":SystemTools2:System:Sounds:Droplet"
    Duplicate "{Source}SystemTools2:System:Sounds:Eastern"              ":SystemTools2:System:Sounds:Eastern"
    Duplicate "{Source}SystemTools2:System:Sounds:Frog"                 ":SystemTools2:System:Sounds:Frog"
    Duplicate "{Source}SystemTools2:System:Sounds:PipeOrgan"            ":SystemTools2:System:Sounds:PipeOrgan"
    Duplicate "{Source}SystemTools2:System:Sounds:Quack"                ":SystemTools2:System:Sounds:Quack"
    Duplicate "{Source}SystemTools2:System:Sounds:SimpleBeep"           ":SystemTools2:System:Sounds:SimpleBeep"
    Duplicate "{Source}SystemTools2:System:Sounds:Sosumi"               ":SystemTools2:System:Sounds:Sosumi"
    Duplicate "{Source}SystemTools2:System:Sounds:Swish"                ":SystemTools2:System:Sounds:Swish"
    Duplicate "{Source}SystemTools2:System:Sounds:Trumpets"             ":SystemTools2:System:Sounds:Trumpets"
    Duplicate "{Source}SystemTools2:System:Sounds:Whoosh"               ":SystemTools2:System:Sounds:Whoosh"
MkDir :SystemTools2:Icons:
Duplicate "{Source}SystemTools2:Archiver"                               ":SystemTools2:Archiver"
Duplicate "{Source}SystemTools2:Teach"                                  ":SystemTools2:Teach"
Duplicate "{Source}SystemTools2:Read.Me"                                ":SystemTools2:Read.Me"
Duplicate "{Source}SystemTools2:Shortcuts"                              ":SystemTools2:Shortcuts"
Duplicate "{Source}SystemTools2:CLOCK.PATCH"                            ":SystemTools2:CLOCK.PATCH"
Duplicate "{Source}SystemTools2:Whats.New"                              ":SystemTools2:Whats.New"

Backup -from "{Source}SystemTools2:" -to ":SystemTools2:" -r -a -c -e >/Ram4/ST2.Extras
\ No newline at end of file
diff --git a/IIGS.601.SRC/SD.ODDS.N.Ends/APW.Scripts/Init6.0 b/IIGS.601.SRC/SD.ODDS.N.Ends/APW.Scripts/Init6.0
new file mode 100644
index 0000000..088e21c
--- /dev/null
+++ b/IIGS.601.SRC/SD.ODDS.N.Ends/APW.Scripts/Init6.0
@@ -0,0 +1 @@
+Init .AppleDisk3.5a -n :Install -fst ProDOS -y
Eject .AppleDisk3.5a
Init .AppleDisk3.5b -n :SystemTools1 -fst ProDOS -y
Eject .AppleDisk3.5b
Init .AppleDisk3.5a -n :SystemTools2 -fst ProDOS -y
Eject .AppleDisk3.5a
Init .AppleDisk3.5b -n :Fonts -fst ProDOS -y
Eject .AppleDisk3.5b
Init .AppleDisk3.5a -n :synthLAB -fst ProDOS -y
Eject .AppleDisk3.5a
Init .AppleDisk3.5b -n :System.Disk -fst ProDOS -y
Eject .AppleDisk3.5b
Choose -f */quickmount/god
\ No newline at end of file
diff --git a/IIGS.601.SRC/SD.ODDS.N.Ends/All.Macros.Make b/IIGS.601.SRC/SD.ODDS.N.Ends/All.Macros.Make
new file mode 100644
index 0000000..ade9599
--- /dev/null
+++ b/IIGS.601.SRC/SD.ODDS.N.Ends/All.Macros.Make
@@ -0,0 +1 @@
+MacroFiles = 	"{AIIGSIncludes}"M16.ACE ¶
				"{AIIGSIncludes}"M16.ADB ¶
				"{AIIGSIncludes}"M16.AppleShare ¶
				"{AIIGSIncludes}"M16.AppleTalk ¶
				"{AIIGSIncludes}"M16.Control ¶
				"{AIIGSIncludes}"M16.Debug ¶
				"{AIIGSIncludes}"M16.Desk ¶
				"{AIIGSIncludes}"M16.Dialog ¶
				"{AIIGSIncludes}"M16.Event ¶
				"{AIIGSIncludes}"M16.Font ¶
				"{AIIGSIncludes}"M16.GSOS ¶
				"{AIIGSIncludes}"m16.gsbug ¶
#				"{AIIGSIncludes}"M16.HyperXCMD ¶
				"{AIIGSIncludes}"M16.IntMath ¶
				"{AIIGSIncludes}"M16.LineEdit ¶
				"{AIIGSIncludes}"M16.List ¶
				"{AIIGSIncludes}"M16.Loader ¶
				"{AIIGSIncludes}"M16.Locator ¶
				"{AIIGSIncludes}"M16.Memory ¶
				"{AIIGSIncludes}"M16.Menu ¶
				"{AIIGSIncludes}"M16.MIDI ¶
				"{AIIGSIncludes}"M16.MiscTool ¶
				"{AIIGSIncludes}"M16.NoteSeq ¶
				"{AIIGSIncludes}"M16.NoteSyn ¶
				"{AIIGSIncludes}"M16.Print ¶
				"{AIIGSIncludes}"M16.ProDOS ¶
				"{AIIGSIncludes}"M16.QDAux ¶
				"{AIIGSIncludes}"M16.QuickDraw ¶
				"{AIIGSIncludes}"M16.Resources ¶
				"{AIIGSIncludes}"M16.SANE ¶
				"{AIIGSIncludes}"M16.Scheduler ¶
				"{AIIGSIncludes}"M16.Scrap ¶
				"{AIIGSIncludes}"M16.Sound ¶
				"{AIIGSIncludes}"M16.StdFile ¶
				"{AIIGSIncludes}"M16.TextEdit ¶
				"{AIIGSIncludes}"M16.TextTool ¶
				"{AIIGSIncludes}"M16.Types ¶
				"{AIIGSIncludes}"M16.Util2 ¶
				"{AIIGSIncludes}"M16.Video ¶
				"{AIIGSIncludes}"M16.Window

All.Macros	ÄÄ	"{AIIGSIncludes}"All.Macros

"{AIIGSIncludes}All.Macros"	Ä	{MacroFiles}
	Catenate {MacroFiles} >"{AIIGSIncludes}All.Macros"
\ No newline at end of file
diff --git a/IIGS.601.SRC/SD.ODDS.N.Ends/BuildAll b/IIGS.601.SRC/SD.ODDS.N.Ends/BuildAll
new file mode 100644
index 0000000..fee5bb3
--- /dev/null
+++ b/IIGS.601.SRC/SD.ODDS.N.Ends/BuildAll
@@ -0,0 +1 @@
+#
#
# Builds   {Any Build Parameters}
#
# by Steven Glass
# 16 Jan 89
#
# Executes the Build commands for each of the projects that makes up
# system disk 4.1.
#
#
# All parameters are passed directly to the build scripts that are run.
#
# This script should work no matter what the directory is set to 
# when it is run.
#
# If the script runs correctly to completion, then the directory will
# remain unchanged.
#
# Modified:
#
#	8/27/90	GAB	Removed build of BASIC.Launcher
#
##########################################################################
# Find out where I am
set myparent `files -f {Command}`
(evaluate "{myparent}" =~ /(([Â:]*:)+)¨1[Â:]*/ ) > Dev:Null
set myparent "{¨1}"
IF "{myparent}" == ""
  echo "*** ERROR:  Cannot determine script home directory."
  exit
END

unset exit

# Save the current dir
set ThisDir `Directory`


Directory {MyParent}

# make sure the All.Macros file is up to date
BuildProgram All.Macros

# build the SetLoadName tool
	Echo "# `Date -t` ----- Build of SetLoadName."
	Echo "# `Date -t` ----- Analyzing dependencies."
	Begin
		Echo "Set Echo 1"
		Make -f SetLoadName.make SetLoadName
	End > makeout
	Echo "# `Date -t` ----- Executing build commands."
	makeout
	Delete makeout
	Echo "# `Date -t` ----- Done."

Directory ::

# Start with the OS
Directory :gs.os:scripts:
build all -s -p {parameters}
save "{worksheet}"
# we don't really need to do this anymore, do we?
# duplicate -y ::workfolder:scm.binÅ A2CE_Sources:lou:

# Next is basic
Directory :::basic.system
BuildProgram basic.system {parameters}	# Basic.Launcher used to be here too!
save "{worksheet}"

# Third is the toolbox
Directory ::gstoolbox
Build.Tools {parameters}
save "{worksheet}"

# Finally, the utilities etc.
Directory ::a.u.g.
Build.all {parameters}
save "{worksheet}"

# build the Archiver application
Directory ::ArchiverGS
Buildprogram {parameters} Archiver.app
save "{worksheet}"

# build the synthLab application
Directory ::synthLab
Echo "# `Date -t` ----- Build of synthLAB stuff."
Buildprogram {parameters} all
save "{worksheet}"

Directory {ThisDir}

Set exit 1
\ No newline at end of file
diff --git a/IIGS.601.SRC/SD.ODDS.N.Ends/BuildLatest b/IIGS.601.SRC/SD.ODDS.N.Ends/BuildLatest
new file mode 100644
index 0000000..91d2cbd
--- /dev/null
+++ b/IIGS.601.SRC/SD.ODDS.N.Ends/BuildLatest
@@ -0,0 +1 @@
+#
#
# BuildLatest
#
# by Steven Glass
# 24 Jan 89
#
# This script does everything it needs to do to checkout and build
# the latests sources for the system disk.
#
# It starts by mounting the projects (if they are not already mounted).
# It then uses CheckOutAll to check out all modified sources since last checkout.
# It then uses BuildAll to build everything.
# Finally, it uses CopyAll to put it on to A2CE_Sources.
#
###############################################################################
set GSProjects D:GSProjects:

open {worksheet}

delete -i A2CE_Sources:__ImageValid
delete -i A2CE_Sources:__BuildingSD
newfolder A2CE_Sources:__BuildingSD

# find out whether we need to access any of the projects
set exit 0
Confirm -t "Do I need to check out the latest sources from the projects?"
set Confirmation {status}
exit "-9"	if {Confirmation}==5	# returned status = user abort

if {Confirmation}­4	# Yes was selected
	Mount6.0Projects	# so go ahead and mount everything
	# Check out the latest stuff
	echo "Checking out latests..."
	CheckOutAll -newer
	Delete -i "{Makefiles}"Make.QuickConsole	# this shouldn't get built for the system disk
	Delete -i "{Makefiles}"Make.ExpressLoad		# this shouldn't get built for the system disk
end

# Build the latest Stuff
echo "Building everything..."
BuildAll


# search through the worksheet to see if any errors occurred.  If so,
# then leave the first error selected.  Otherwise, put together the
# disk images and then prompt for the NameRevisions sequence.

# move to beginning of worksheet
find ¥ "{worksheet}"

# position to beginning of build sequence
find /Building everything.../ "{worksheet}"

# try to find any errors.  If none are found, then the disk layouts are built
# on a local hard drive, and then copied up to A2CE_Sources.  Then a script is
# executed to perform a NameRevisions on the projects.  If an error IS found,
# this script simply terminates with the first error found highlighted on
# the worksheet.
(find /###/ "{worksheet}") ³dev:null || Begin
	# Copy the latest stuff to hd: and then to A2CE_Sources
	echo "Copying stuff to A2CE_Sources..."
	Copyall {GSProjects} "HD:System Disk 6.0"
	
	duplicate "Hd:System Disk 6.0:" A2CE_Sources: -y
	setprivilege -r -d O -f O -m O A2CE_Sources:"System Disk 6.0"
	
	delete -i A2CE_Sources:__BuildingSD
	newfolder A2CE_Sources:__ImageValid
	
	setRevisionName	# call the script to perform a NameRevisions
end	# of Begin block
\ No newline at end of file
diff --git a/IIGS.601.SRC/SD.ODDS.N.Ends/CLOCK.PATCH b/IIGS.601.SRC/SD.ODDS.N.Ends/CLOCK.PATCH
new file mode 100644
index 0000000..3e29204
Binary files /dev/null and b/IIGS.601.SRC/SD.ODDS.N.Ends/CLOCK.PATCH differ
diff --git a/IIGS.601.SRC/SD.ODDS.N.Ends/CheckOutAll b/IIGS.601.SRC/SD.ODDS.N.Ends/CheckOutAll
new file mode 100644
index 0000000..b6bb46c
--- /dev/null
+++ b/IIGS.601.SRC/SD.ODDS.N.Ends/CheckOutAll
@@ -0,0 +1 @@
+#
#
# CheckOutAll  {-a | Name | -newer | other checkout options }
#
# Makes the checkout command for each of the six projects necessary to 
# build system disk 4.1.
#
#
# At least one parameter must be given.  Either a -a for  all or a 
# name to check out.
#
# All parameters are passed directly to checkout.
#
# The -r and -p options are always given.
#
##########################################################################
for proj in `MountProject -pp -s`	# for all mounted projects
	CheckOut -r -p {parameters} -project "{proj}"
end

\ No newline at end of file
diff --git a/IIGS.601.SRC/SD.ODDS.N.Ends/CopyAll b/IIGS.601.SRC/SD.ODDS.N.Ends/CopyAll
new file mode 100644
index 0000000..f2ca4ed
--- /dev/null
+++ b/IIGS.601.SRC/SD.ODDS.N.Ends/CopyAll
@@ -0,0 +1 @@
+#
#
# CopyAll {Src}  {Dest}
#
# Copies the object files to a disk image.
#
#
##########################################################################

#
# Find out where this script is running from
# This must be first in the file.
#
set myparent `files -f {Command}`
(evaluate "{myparent}" =~ /(([Â:]*:)+)¨1[Â:]*/ ) > Dev:Null
set myparent "{¨1}"
IF "{myparent}" == ""
  echo "*** ERROR:  Cannot determine script home directory."
  exit
END

unset exit

# Save the current directory
Set ThisDir `Directory`

########################################
#
# Set the source
#
########################################
IF "{1}" == ""
	set Src "bugs:GS.OS:SystemDisk:"
ELSE
	# First we make sure the directory name ends in a colon.
	IF "{1}" !~ /Å[:]/
		set 1 {1}¶:
	END
	SET Src {1}
END


########################################
#
# Set the dest
#
########################################
IF "{2}" == ""
	set Src "bugs:GS.OS:SystemDisk:"
ELSE
	# First we make sure the directory name ends in a colon.
	IF "{2}" !~ /Å[:]/
		set 2 "{2}"¶:
	END
	SET Src "{2}"
END


Directory {MyParent}

FoldersOnDiskImage "{2}"
GSOSToDiskImage {1}gs.os:systemdisk "{2}" {3}
ToolboxToDiskImage {1}gstoolbox "{2}" {3}
TBoxMiscToDiskImage {1}toolboxmisc "{2}" {3}
a.u.g.ToDiskImage {1}a.u.g. "{2}" {3}
ONEToDiskImage {1}sd.odds.n.ends "{2}" {3}
FontsToDiskImage {1}Fonts "{2}" {3}
synthLABToDiskImage "{1}"synthLab: "{2}" {3}

begin   
	setprivilege -r -d O -f O -m O "{2}"
end    ·· Dev:Null

Directory {ThisDir}

set exit 1
\ No newline at end of file
diff --git a/IIGS.601.SRC/SD.ODDS.N.Ends/FType.Apple b/IIGS.601.SRC/SD.ODDS.N.Ends/FType.Apple
new file mode 100644
index 0000000..b6bb88a
Binary files /dev/null and b/IIGS.601.SRC/SD.ODDS.N.Ends/FType.Apple differ
diff --git a/IIGS.601.SRC/SD.ODDS.N.Ends/Finder.Icons b/IIGS.601.SRC/SD.ODDS.N.Ends/Finder.Icons
new file mode 100644
index 0000000..cf9508a
Binary files /dev/null and b/IIGS.601.SRC/SD.ODDS.N.Ends/Finder.Icons differ
diff --git a/IIGS.601.SRC/SD.ODDS.N.Ends/FoldersOnDiskImage b/IIGS.601.SRC/SD.ODDS.N.Ends/FoldersOnDiskImage
new file mode 100644
index 0000000..729b09a
--- /dev/null
+++ b/IIGS.601.SRC/SD.ODDS.N.Ends/FoldersOnDiskImage
@@ -0,0 +1 @@
+# FoldersOnDiskImage
#
# This script creates empty folders in the specified location in the form
# of the system disk and system tools disk.
#
# 15 Jan 89		Steven Glass
#
# Also delete the original image before starting.
#
#
# 10 Mar 89		Steven Glass
#
# Changed names to 5.0
#
# 11/27/89	Mensch
# Added third disk stuff and changed names...
#
##########################################################################

########################################
#
# Set the destination
#
########################################
IF "{1}" == ""
	set Dest "A2CE_Sources:"
	set DestSD "A2CE_Sources:System Disk 6.0:Install:"
	set DestST1 "A2CE_Sources:System Disk 6.0:SystemTools1:"
	set DestST2 "A2CE_Sources:System Disk 6.0:SystemTools2:"
	set DestST3 "A2CE_Sources:System Disk 6.0:Fonts:"
	set SynthLab "A2CE_Sources:System Disk 6.0:SynthLab:"
ELSE
	# First we make sure the directory name ends in a colon.
	IF "{1}" !~ /Å[:]/
		set 1 "{1}"¶:
	END
	set Dest "{1}"
	set DestSD "{1}"Install:
	set DestST1 "{1}"SystemTools1:
	set DestST2 "{1}"SystemTools2:
	set DestST3 "{1}"Fonts:
	set SynthLab "{1}"SynthLab:
END


echo "# Deleting old image on {Dest}"
delete -y -i "{DestSD}"
delete -y -i "{DestST1}"
delete -y -i "{DestST2}"
delete -y -i "{DestST3}"
delete -y -i "{SynthLab}"
delete -y -i "{Fonts}"

echo "# Making folders on {Dest} for 6.0 project"

set echo on

newfolder "{DestSD}"
newfolder "{DestSD}"System
newfolder "{DestSD}"System:System.Setup
newfolder "{DestSD}"System:Desk.Accs
newfolder "{DestSD}"System:CDevs
newfolder "{DestSD}"System:FSTs
newfolder "{DestSD}"System:Drivers
newfolder "{DestSD}"System:Tools
newfolder "{DestSD}"System:Fonts
newfolder "{DestSD}"Icons
newfolder "{DestSD}"Scripts

newfolder "{DestST1}"
newfolder "{DestST1}"System
newfolder "{DestST1}"System:Desk.Accs
newfolder "{DestST1}"System:CDevs
newfolder "{DestST1}"System:FSTs
newfolder "{DestST1}"System:Drivers
newfolder "{DestST1}"System:Tools
newfolder "{DestST1}"System:Fonts
newfolder "{DestST1}"Icons
#newfolder "{DestST1}"Seq.and.Instr	# for extra SynthLab samples

newfolder "{DestST2}"
newfolder "{DestST2}"System
newfolder "{DestST2}"System:System.Setup
newfolder "{DestST2}"System:Desk.Accs
newfolder "{DestST2}"System:CDevs
newfolder "{DestST2}"System:FSTs
newfolder "{DestST2}"System:Drivers
newfolder "{DestST2}"System:Drivers:Media.Control
newfolder "{DestST2}"System:Tools
newfolder "{DestST2}"System:Fonts
newfolder "{DestST2}"System:Sounds
newfolder "{DestST2}"AppleTalk
newfolder "{DestST2}"Icons

newfolder "{DestST3}"
newfolder "{DestST3}"System
newfolder "{DestST3}"System:Fonts
newfolder "{DestST3}"Goodies
newfolder "{DestST3}"Icons

newfolder "{SynthLab}"
newfolder "{SynthLab}"Icons
newfolder "{SynthLab}"Seq.and.Instr

unset echo
\ No newline at end of file
diff --git a/IIGS.601.SRC/SD.ODDS.N.Ends/FontsToDiskImage b/IIGS.601.SRC/SD.ODDS.N.Ends/FontsToDiskImage
new file mode 100644
index 0000000..7c86a48
--- /dev/null
+++ b/IIGS.601.SRC/SD.ODDS.N.Ends/FontsToDiskImage
@@ -0,0 +1 @@
+#
# Fonts.Transfer
#
# This script copies the Fonts files to the indicated disks
#
#
# Written by Lee Collings   14 Feb 90
#
#
#
# Changed names and locations for 6.0 disk
#
#############################################################################

########################################
#
# Set the destination
#
########################################
IF "{2}" == ""
	set Dest "A2CE_Sources:System Disk 6.0"
	set DestSD "A2CE_Sources:System Disk 6.0:Install:"
	set DestST1 "A2CE_Sources:System Disk 6.0:SystemTools1:"
	set DestST2 "A2CE_Sources:System Disk 6.0:SystemTools2:"
	set DestST3 "A2CE_Sources:System Disk 6.0:Fonts:"

ELSE
	# First we make sure the directory name ends in a colon.
	IF "{2}" !~ /Å[:]/
		set 2 "{2}"¶:
	END
	set Dest "{2}"
	set DestSD "{2}"Install:
	set DestST1 "{2}"SystemTools1:
	set DestST2 "{2}"SystemTools2:
	set DestST3 "{2}"Fonts:
END

########################################
#
# Set the source
#
########################################
IF "{1}" == ""
	set Src "GSProjects:Fonts"
ELSE
	# First we make sure the directory name ends in a colon.
	IF "{1}" !~ /Å[:]/
		set 1 {1}¶:
	END
	SET Src {1}
END


########################################
#
# Now do the copying.
#
########################################
echo "# Copying Fonts from {Src} to {Dest}."



set echo on
# Files to be transferred to Install System Disk

duplicate -d -y "{Src}"FastFont						"{DestSD}"system:fonts:FastFont

# Files to be transferred to SystemTools1 System Disk

duplicate -d -y "{Src}"Courier:Courier.09			"{DestST1}"system:fonts:Courier.09
duplicate -d -y "{Src}"Courier:Courier.10			"{DestST1}"system:fonts:Courier.10
duplicate -d -y "{Src}"Courier:Courier.12			"{DestST1}"system:fonts:Courier.12
duplicate -d -y "{Src}"Courier:Courier.14			"{DestST1}"system:fonts:Courier.14
duplicate -d -y "{Src}"Courier:Courier.18			"{DestST1}"system:fonts:Courier.18
duplicate -d -y "{Src}"Courier:Courier.20			"{DestST1}"system:fonts:Courier.20
duplicate -d -y "{Src}"Courier:Courier.24			"{DestST1}"system:fonts:Courier.24

duplicate -d -y "{Src}"Geneva:Geneva.10				"{DestST1}"system:fonts:Geneva.10
duplicate -d -y "{Src}"Geneva:Geneva.12				"{DestST1}"system:fonts:Geneva.12
duplicate -d -y "{Src}"Geneva:Geneva.14				"{DestST1}"system:fonts:Geneva.14
duplicate -d -y "{Src}"Geneva:Geneva.16				"{DestST1}"system:fonts:Geneva.16
duplicate -d -y "{Src}"Geneva:Geneva.18				"{DestST1}"system:fonts:Geneva.18
duplicate -d -y "{Src}"Geneva:Geneva.20				"{DestST1}"system:fonts:Geneva.20
duplicate -d -y "{Src}"Geneva:Geneva.24				"{DestST1}"system:fonts:Geneva.24

duplicate -d -y "{Src}"Helvetica:Helvetica.09		"{DestST1}"system:fonts:Helvetica.09
duplicate -d -y "{Src}"Helvetica:Helvetica.10		"{DestST1}"system:fonts:Helvetica.10
duplicate -d -y "{Src}"Helvetica:Helvetica.12		"{DestST1}"system:fonts:Helvetica.12
duplicate -d -y "{Src}"Helvetica:Helvetica.14		"{DestST1}"system:fonts:Helvetica.14
duplicate -d -y "{Src}"Helvetica:Helvetica.18		"{DestST1}"system:fonts:Helvetica.18
duplicate -d -y "{Src}"Helvetica:Helvetica.20		"{DestST1}"system:fonts:Helvetica.20
duplicate -d -y "{Src}"Helvetica:Helvetica.24		"{DestST1}"system:fonts:Helvetica.24

duplicate -d -y "{Src}"Shaston:Shaston.16			"{DestST1}"system:fonts:Shaston.16

duplicate -d -y "{Src}"Times:Times.09				"{DestST1}"system:fonts:Times.09
duplicate -d -y "{Src}"Times:Times.10				"{DestST1}"system:fonts:Times.10
duplicate -d -y "{Src}"Times:Times.12				"{DestST1}"system:fonts:Times.12
duplicate -d -y "{Src}"Times:Times.14				"{DestST1}"system:fonts:Times.14
duplicate -d -y "{Src}"Times:Times.18				"{DestST1}"system:fonts:Times.18
duplicate -d -y "{Src}"Times:Times.20				"{DestST1}"system:fonts:Times.20
duplicate -d -y "{Src}"Times:Times.24				"{DestST1}"system:fonts:Times.24

duplicate -d -y "{Src}"Venice:Venice.12				"{DestST1}"system:fonts:Venice.12
duplicate -d -y "{Src}"Venice:Venice.14				"{DestST1}"system:fonts:Venice.14
duplicate -d -y "{Src}"Venice:Venice.24				"{DestST1}"system:fonts:Venice.24

# Files to be transferred to Fonts System Disk

duplicate -d -y "{Src}"Courier:Courier.27			"{DestST3}"system:fonts:Courier.27
duplicate -d -y "{Src}"Courier:Courier.28			"{DestST3}"system:fonts:Courier.28
duplicate -d -y "{Src}"Courier:Courier.30			"{DestST3}"system:fonts:Courier.30
duplicate -d -y "{Src}"Courier:Courier.36			"{DestST3}"system:fonts:Courier.36
duplicate -d -y "{Src}"Courier:Courier.42			"{DestST3}"system:fonts:Courier.42

duplicate -d -y "{Src}"Helvetica:Helvetica.27		"{DestST3}"system:fonts:Helvetica.27
duplicate -d -y "{Src}"Helvetica:Helvetica.28		"{DestST3}"system:fonts:Helvetica.28
duplicate -d -y "{Src}"Helvetica:Helvetica.30		"{DestST3}"system:fonts:Helvetica.30
duplicate -d -y "{Src}"Helvetica:Helvetica.36		"{DestST3}"system:fonts:Helvetica.36
duplicate -d -y "{Src}"Helvetica:Helvetica.42		"{DestST3}"system:fonts:Helvetica.42
duplicate -d -y "{Src}"Helvetica:Helvetica.48		"{DestST3}"system:fonts:Helvetica.48
duplicate -d -y "{Src}"Helvetica:Helvetica.60		"{DestST3}"system:fonts:Helvetica.60
duplicate -d -y "{Src}"Helvetica:Helvetica.72		"{DestST3}"system:fonts:Helvetica.72
duplicate -d -y "{Src}"Helvetica:Helvetica.96		"{DestST3}"system:fonts:Helvetica.96

duplicate -d -y "{Src}"Times:Times.27				"{DestST3}"system:fonts:Times.27
duplicate -d -y "{Src}"Times:Times.28				"{DestST3}"system:fonts:Times.28
duplicate -d -y "{Src}"Times:Times.30				"{DestST3}"system:fonts:Times.30
duplicate -d -y "{Src}"Times:Times.36				"{DestST3}"system:fonts:Times.36
duplicate -d -y "{Src}"Times:Times.42				"{DestST3}"system:fonts:Times.42
duplicate -d -y "{Src}"Times:Times.48				"{DestST3}"system:fonts:Times.48
duplicate -d -y "{Src}"Times:Times.60				"{DestST3}"system:fonts:Times.60
duplicate -d -y "{Src}"Times:Times.72				"{DestST3}"system:fonts:Times.72
duplicate -d -y "{Src}"Times:Times.96				"{DestST3}"system:fonts:Times.96

unset echo
\ No newline at end of file
diff --git a/IIGS.601.SRC/SD.ODDS.N.Ends/GSOSToDiskImage b/IIGS.601.SRC/SD.ODDS.N.Ends/GSOSToDiskImage
new file mode 100644
index 0000000..cdcd6cf
--- /dev/null
+++ b/IIGS.601.SRC/SD.ODDS.N.Ends/GSOSToDiskImage
@@ -0,0 +1 @@
+# GSOSToDiskImage
#
# This script copies the local copy of the OS objects to the indicated 
# destination. If no destination is indicated, we assume A2CE_Sources.
#
#
# 10 Mar 89		Steven Glass
#
# Changed names to 5.0
#
# [Who? When?]
#
# Changed names to 6.0 and added the third disk. Also re-arranged quite a bit of stuff
#
# 8-Feb-93 DAL for 6.0.1
#   Added RAM5 driver.
#
# 6-May-93 DAL for 6.0.1d17
#   Removed ETalk driver.
#
#################################################################################
########################################
#
# Set the destination
#
########################################
IF "{2}" == ""
	set Dest "A2CE_Sources:System Disk 6.0"
	set DestSD "A2CE_Sources:System Disk 6.0:Install:"
	set DestST1 "A2CE_Sources:System Disk 6.0:SystemTools1:"
	set DestST2 "A2CE_Sources:System Disk 6.0:SystemTools2:"
ELSE
	# First we make sure the directory name ends in a colon.
	IF "{2}" !~ /Å[:]/
		set 2 "{2}"¶:
	END
	set Dest "{2}"
	set DestSD "{2}"Install:
	set DestST1 "{2}"SystemTools1:
	set DestST2 "{2}"SystemTools2:
END

########################################
#
# Set the source
#
########################################
IF "{1}" == ""
	set Src "bugs:GS.OS:SystemDisk:"
ELSE
	# First we make sure the directory name ends in a colon.
	IF "{1}" !~ /Å[:]/
		set 1 {1}¶:
	END
	SET Src {1}
END

########################################
#
# Now do the copying.
#
########################################
echo "# Copying GS.OS objects from {Src} to {Dest}."

set echo on


duplicate -d -y	"{Src}"prodos							"{DestSD}"ProDOS

duplicate -d -y "{Src}"system:gs.os						"{DestSD}"system:GS.OS
duplicate -d -y "{Src}"system:p8						"{DestSD}"system:P8
duplicate -d -y "{Src}"system:start.gs.os				"{DestSD}"system:Start.GS.OS
duplicate -d -y "{Src}"system:gs.os.dev					"{DestSD}"system:GS.OS.Dev
duplicate -d -y "{Src}"system:error.msg					"{DestSD}"system:Error.Msg
#duplicate -d -y "{Src}"system:expressload				"{DestSD}"system:ExpressLoad

duplicate -d -Y	"{Src}"system:fsts:pro.fst				"{DestSD}"system:fsts:Pro.FST
duplicate -d -Y	"{Src}"system:fsts:char.fst				"{DestSD}"system:fsts:Char.FST
duplicate -d -Y	"{Src}"system:fsts:hs.fst				"{DestST1}"system:fsts:HS.FST
duplicate -d -Y	"{Src}"system:fsts:DOS3.3.fst			"{DestST1}"system:fsts:DOS3.3.FST
duplicate -d -Y	"{Src}"system:fsts:Pascal.fst			"{DestST1}"system:fsts:Pascal.FST
duplicate -d -Y	"{Src}"system:fsts:hfs.fst				"{DestST1}"system:fsts:HFS.FST
duplicate -d -Y "{Src}"system:fsts:MSDOS.FST			"{DestST1}"system:fsts:MSDOS.FST
duplicate -d -Y	"{Src}"system:fsts:AppleShare.fst		"{DestST2}"system:fsts:AppleShare.FST

duplicate -d -Y	"{Src}"system:drivers:appledisk3.5		"{DestSD}"system:drivers:AppleDisk3.5
duplicate -d -Y	"{Src}"system:drivers:console.Driver	"{DestSD}"system:drivers:Console.Driver
duplicate -d -Y	"{Src}"system:drivers:scsihd.Driver		"{DestSD}"system:drivers:SCSIHD.Driver
duplicate -d -Y	"{Src}"system:drivers:scsiTape.Driver	"{DestST1}"system:drivers:SCSITape.Driver
duplicate -d -Y	"{Src}"system:drivers:scsiScan.Driver	"{DestST1}"system:drivers:SCSIScan.Driver
duplicate -d -Y	"{Src}"system:drivers:scsicd.Driver		"{DestST1}"system:drivers:SCSICD.Driver
duplicate -d -Y	"{Src}"system:drivers:scsi.manager		"{DestSD}"system:drivers:SCSI.Manager
duplicate -d -Y	"{Src}"system:drivers:scsi.manager		"{DestST1}"system:drivers:SCSI.Manager
duplicate -d -Y	"{Src}"system:drivers:unidisk3.5		"{DestSD}"system:drivers:UniDisk3.5
duplicate -d -Y	"{Src}"system:drivers:appledisk5.25		"{DestSD}"system:drivers:AppleDisk5.25
duplicate -d -Y	"{Src}"system:drivers:Slinky			"{DestST1}"system:drivers:A2.RAMCard
duplicate -d -Y	"{Src}"system:drivers:RAM5				"{DestST1}"system:drivers:RAM5

duplicate -d -Y	"{Src}"system:drivers:ATP1.ATROM		"{DestST2}"system:drivers:ATP1.ATROM
duplicate -d -Y	"{Src}"system:drivers:ATP2.ATRAM		"{DestST2}"system:drivers:ATP2.ATRAM
duplicate -d -Y	"{Src}"system:drivers:ATALK				"{DestST2}"system:drivers:ATalk
#duplicate -d -Y "{Src}"system:drivers:ETALK				"{DestST2}"system:drivers:ETalk
duplicate -d -Y	"{Src}"system:drivers:SCC.MANAGER		"{DestST2}"system:drivers:SCC.Manager

duplicate -d -Y	"{Src}"system:SYSTEM.SETUP:ATRESPONDER	"{DestST2}"system:SYSTEM.SETUP:ATResponder
duplicate -d -y "{Src}"system:SYSTEM.SETUP:ATINIT		"{DestST2}"system:SYSTEM.SETUP:ATInit

duplicate -d -y "{Src}"appletalk:DISPLAY.0				"{DestST2}"APPLETALK:Display.0
duplicate -d -Y	"{Src}"appletalk:QUICKLOGOFF			"{DestST2}"APPLETALK:QuickLogoff
duplicate -d -Y	"{Src}"appletalk:START					"{DestST2}"APPLETALK:Start
duplicate -d -Y	"{Src}"appletalk:BOOT.Driver			"{DestST2}"APPLETALK:Boot.Driver

unset echo
\ No newline at end of file
diff --git a/IIGS.601.SRC/SD.ODDS.N.Ends/Mount6.0Projects b/IIGS.601.SRC/SD.ODDS.N.Ends/Mount6.0Projects
new file mode 100644
index 0000000..aa31301
--- /dev/null
+++ b/IIGS.601.SRC/SD.ODDS.N.Ends/Mount6.0Projects
@@ -0,0 +1 @@
+echo "Mounting necessary projects..."

# Mount the projects if they are not mounted
unset exit
project a.u.g. ··dev:null
if {status}­0
	MountProject A2CE_Sources:gsprojects:a.u.g.
	checkoutdir -project a.u.g. {GSProjects}a.u.g. -r
# unmount any unnecessary projects
	UnMountProject ¶
		A.U.G.ºCtlPanelºLogonCDevº			# replaced by AppleShareCDev
	END

Project gs.os ··dev:null
if {status}­0
	MountProject A2CE_Sources:gsprojects:gs.os
	checkoutdir -project gs.os {GSProjects}gs.os -r
	UnMountProject ¶
		GS.OSºDeskAccessoriesº				# not used for a System Disk build ¶
		GS.OSºSetupFilesºQuickConsoleº			# not used for a System Disk build ¶
		GS.OSºSupervisoryDriversºSCSIManagerº		# superceded by the Cocoon SCSI Manager ¶
		GS.OSºLoaderºExpressLoadº			# superceded by the System Loader 4.0
	END

Project basic.system  ··dev:null
if {status}­0
	MountProject A2CE_Sources:gsprojects:basic.system
	checkoutdir -project basic.system {GSProjects}basic.system -r
	END

Project gstoolbox  ··dev:null
if {status}­0
	MountProject A2CE_Sources:gsprojects:gstoolbox
	checkoutdir -project gstoolbox {GSProjects}gstoolbox -r
	UnMountProject ¶
###		GSToolboxºFredWorldº			# animation toolkit ¶
		GSToolboxºKiddingº			# only used when building ROM ¶
		GSToolboxºPrinterDriversºIWº		# superceded by New Imagewriter driver ¶
		GSToolBoxºPrinterDriversºHP.DeskJetº	# Marketing get's upset with this one! ¶
		GSToolboxºROMº				# only used when building ROM
	END

Project ToolboxMisc  ··dev:null
if {status}­0
	MountProject A2CE_Sources:gsprojects:ToolboxMisc
	checkoutdir -project ToolboxMisc {GSProjects}ToolboxMisc -r
	END
	
Project ArchiverGS  ··dev:null
if {status}­0
	MountProject A2CE_Sources:gsprojects:ArchiverGS
	checkoutdir -project ArchiverGS {GSProjects}ArchiverGS -r
	END
	
Project synthLAB  ··dev:null
if {status}­0
	MountProject A2CE_Sources:gsprojects:synthLAB
	checkoutdir -project synthLAB {GSProjects}synthLAB -r
	END
	
Project sd.odds.n.ends  ··dev:null
if {status}­0
	MountProject A2CE_Sources:gsprojects:sd.odds.n.ends
	checkoutdir -project sd.odds.n.ends {GSProjects}sd.odds.n.ends -r
	END

Project Fonts  ··dev:null
if {status}­0
	MountProject A2CE_Sources:gsprojects:Fonts
	checkoutdir -project Fonts {GSProjects}Fonts -r	
	END

\ No newline at end of file
diff --git a/IIGS.601.SRC/SD.ODDS.N.Ends/MountAll b/IIGS.601.SRC/SD.ODDS.N.Ends/MountAll
new file mode 100644
index 0000000..45fecae
--- /dev/null
+++ b/IIGS.601.SRC/SD.ODDS.N.Ends/MountAll
@@ -0,0 +1 @@
+#
# MountAll {Dest for CheckOutDir}
#
# This script mounts the following projects and set their checkout dirs
# to the specified destination.
#
#		A.U.G.
#		GS.OS
#		BASIC.SYSTEM
#		GSToolbox
#		SD.ODDS.N.ENDS
#
#
# If no destination is specified, then the checkout directory is set to
# {Boot}
#
##########################################################################

########################################
#
# Set the Checkout Dir Destination
#
########################################
IF "{1}" == ""
	set Dest "{Boot}"
ELSE
	# First we make sure the directory name ends in a colon.
	IF "{1}" !~ /Å[:]/
		set 1 "{1}"¶:
	END
	SET Dest "{1}"
END

begin
	unset exit
	NewFolder "{Dest}"A.U.G.
	NewFolder "{Dest}"GS.OS
	NewFolder "{Dest}"BASIC.SYSTEM
	NewFolder "{Dest}"GSToolbox
	NewFolder "{Dest}"SD.Odds.N.Ends
	set exit 1
end >>dev:null ³³dev:null


MountProject A2CE_Sources:gsprojects:a.u.g.
checkoutdir -project a.u.g. "{Dest}"a.u.g. -r

MountProject A2CE_Sources:gsprojects:gs.os
checkoutdir -project gs.os "{Dest}"gs.os -r

MountProject A2CE_Sources:gsprojects:basic.system
checkoutdir -project basic.system "{Dest}"basic.system -r

MountProject A2CE_Sources:gsprojects:gstoolbox
checkoutdir -project gstoolbox "{Dest}"gstoolbox -r

MountProject A2CE_Sources:gsprojects:sd.odds.n.ends
checkoutdir -project sd.odds.n.ends "{Dest}"sd.odds.n.ends -r

MountProject A2CE_Sources:gsprojects:Fonts
checkoutdir -project fonts "{Dest}"Fonts -r

MountProject A2CE_Sources:gsprojects:ArchiverGS
checkoutdir -project ArchiverGS "{Dest}"ArchiverGS -r

MountProject A2CE_Sources:gsprojects:toolboxMIsc
checkoutdir -project toolboxMIsc "{Dest}"toolboxMIsc -r


\ No newline at end of file
diff --git a/IIGS.601.SRC/SD.ODDS.N.Ends/ONEToDiskImage b/IIGS.601.SRC/SD.ODDS.N.Ends/ONEToDiskImage
new file mode 100644
index 0000000..5c2e5c8
--- /dev/null
+++ b/IIGS.601.SRC/SD.ODDS.N.Ends/ONEToDiskImage
@@ -0,0 +1 @@
+#
# ONEToDiskImage
#
# This script copies the finder.data files, basic.system, basic.launcher and
# the icons file to the indicated disk images.
#
# Written by Steven Glass    13 Dec 88
# Modified by Steven Glass	 10 Jan 89
#
# 10 Mar 89		Steven Glass
#
# Changed names to 5.0
#
# 11/27/89	Mensch
# Added disk 3 and changed disk names...
#############################################################################
########################################
#
# Set the destination
#
########################################
IF "{2}" == ""
	set Dest "A2CE_Sources:System Disk 6.0"
	set DestSD "A2CE_Sources:System Disk 6.0:Install:"
	set DestST1 "A2CE_Sources:System Disk 6.0:SystemTools1:"
	set DestST2 "A2CE_Sources:System Disk 6.0:SystemTools2:"
ELSE
	# First we make sure the directory name ends in a colon.
	IF "{2}" !~ /Å[:]/
		set 2 "{2}"¶:
	END
	set Dest "{2}"
	set DestSD "{2}"Install:
	set DestST1 "{2}"SystemTools1:
	set DestST2 "{2}"SystemTools2:
END

########################################
#
# Set the source
#
########################################
IF "{1}" == ""
	set Src "{GSProjects}SD.Odds.N.Ends:"
ELSE
	# First we make sure the directory name ends in a colon.
	IF "{1}" !~ /Å[:]/
		set 1 {1}¶:
	END
	SET Src {1}
END


########################################
#
# Now do the copying.
#
########################################
echo "# Copying Odds 'n' Ends from {Src} to {Dest}."

set echo on
#duplicate -d -y "{Src}"finder.icons					"{DestSD}"Icons:Finder.Icons -y
duplicate -d -y "{Src}"FType.Apple					"{DestSD}"Icons:FType.Apple
duplicate -d -y "{Src}":basic.system:basic.system	"{DestST1}"BASIC.System
duplicate -d -y "{Src}"SetStart.data				"{DestSD}"System:SetStart.data
duplicate -d -y "{Src}"CLOCK.PATCH					"{DestST2}"CLOCK.PATCH

#duplicate -d -y "{Src}"iw.psetup					"{DestST1}"system:drivers:Printer.Setup
#duplicate -d -y "{Src}"iw.psetup					"{DestST1}"system:drivers:IW.PSetup
#duplicate -d -y "{Src}"iwlq.psetup					"{DestST1}"system:drivers:IWLQ.PSetup
#duplicate -d -y "{Src}"epson.psetup				"{DestST1}"system:drivers:EPSON.PSetup
#duplicate -d -y "{Src}"AT.IW.psetup				"{DestST2}"system:drivers:AT.IW.PSetup
#duplicate -d -y "{Src}"AT.IWLQ.psetup				"{DestST2}"system:drivers:AT.IWLQ.PSetup
#duplicate -d -y "{Src}"LW.psetup					"{DestST2}"system:drivers:LW.PSetup

unset echo
\ No newline at end of file
diff --git a/IIGS.601.SRC/SD.ODDS.N.Ends/SetLoadName.c b/IIGS.601.SRC/SD.ODDS.N.Ends/SetLoadName.c
new file mode 100644
index 0000000..f68b976
--- /dev/null
+++ b/IIGS.601.SRC/SD.ODDS.N.Ends/SetLoadName.c
@@ -0,0 +1 @@
+/*
	SetLoadName - a simple little utility that we can use to stuff an arbitrary string
	into the Load Name field of an Apple IIGS load file's OMF header.  It was originally
	conceived to allow us to put "Finder" into the Finder file, and "SetStart" into
	SetStart's "Start" file, so that the Installer can identify which start file is the
	current start file on a boot disk.  In time, we may find another use for it as well.
	Who knows....
	
	Command Line Syntax:
		SetLoadName filename [-n loadname] [-p] [-z]

	Copyright (c) 1990, Apple Computer, Inc., All Rights Reserved.
	Written by Greg Branche
*/

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <ctype.h>

#define BUFSIZE 128

char	buffer[BUFSIZE];

char	*filename = NULL;	/* used to store pointer to filename */
char	*loadName = NULL;	/* used to store argument of -n command */
short	progress = 0;		/* progress flag */
short	author = 0;			/* author flag */

int main(int argc, char *argv[])
{
	FILE	*file;
	char	*errHdr;
	unsigned disp;
	unsigned namelen;
	unsigned bytesRead;
	unsigned i;

	errHdr = malloc(strlen(argv[0]) + 8);	/* get a buffer for the error message header */
	sprintf(errHdr,"### %s - ", argv[0]);	/* then build it */
	
	if(argc < 2) {
		fprintf(stderr,"%sIncorrect number of command line arguments\n", errHdr);
		exit(1);
	}

	/* process the command line */
	for(i = 1; i < argc; ++i) {
		if(argv[i][0] == '-') {	/* we have a command line option */
			switch(tolower(argv[i][1])) {
				case 'n':	/* -n : specify load name */
					if(loadName) {	/* it's already been specified */
						fprintf(stderr,"%s-n option has already been used.\n", errHdr);
						exit(1);
					} else
						loadName = argv[++i];
					break;
				
				case 'p':	/* -p : progress info */
					progress = 1;
					break;
				
				case 'z':	/* -z : display my name too */
					progress = author = 1;
					break;
				
				default:	/* anything else is an invalid option */
					fprintf(stderr,"%sInvalid option (\"%s\") specified.\n", errHdr, argv[i]);
					exit(1);
			}
		} else {	/* must be the filename specification */
			if(filename) {	/* its already been set */
				fprintf(stderr,"%sFilename has already been specified.\n", errHdr);
				exit(1);
			} else
				filename = argv[i];
		}	/* end of if statement */
	}	/* end of for statement */
	
	if(!loadName) {	/* no loadname was specified */
		fprintf(stderr,"%sNo LoadName was specified.\n", errHdr);
		exit(1);
	}
	
	if(!filename) {	/* no filename was specified */
		fprintf(stderr,"%sNo filename was specified.\n", errHdr);
		exit(1);
	}
	
	if(progress) {	/* display copyright notice */
		fprintf(stderr, "%s - Set load name field of OMF header", argv[0]);
		if(author)	/* display my name as well! */
			fprintf(stderr, " by Greg Branche");
		fputc('\n', stderr);
		fprintf(stderr, "Copyright (c) 1990, Apple Computer Inc.\n");
		fprintf(stderr, "All rights reserved\n\n");
	}
	
	/* open the file */
	if(progress)
		fprintf(stderr,"# %s - Opening %s.\n", argv[0], filename);
	
	if((file = fopen(filename,"rb+")) == NULL) {
		fprintf(stderr,"%sUnable to open file %s\n", errHdr, filename);
		exit(2);
	}

	/* read the first BUFSIZE bytes (this should be enough to get the header) */
	if(progress)
		fprintf(stderr,"# %s - Reading %s.\n", argv[0], filename);

	if(!(bytesRead = fread(buffer,sizeof(char),BUFSIZE,file))) {
		fprintf(stderr,"%sUnable to read from file %s\n", errHdr, filename);
		exit(2);
	}

	/* write the supplied name into the Load Name field of the segment header */
	if(progress)
		fprintf(stderr,"# %s - Stuffing \"%s\" into OMF header.\n", argv[0], loadName);
	
	disp = buffer[0x28] + (buffer[0x29] << 8);	/* displacement to load name field */
	namelen = strlen(loadName);	/* get length of supplied name */
	if(namelen > 10)
		namelen = 10;	/* make sure it'll fit in the field */
	memset(&buffer[disp], ' ', 10); /* clear the field to spaces first */
	memcpy(&buffer[disp], loadName, namelen);	/* then copy in the name */

	/* now we can write the modified stuff back to the file */
	if(progress)
		fprintf(stderr,"# %s - Writing back to %s.\n", argv[0], filename);
	
	rewind(file);
	if(!(fwrite(buffer,sizeof(char),bytesRead,file))) {
		fprintf(stderr,"%sError while writing to the file %s\n", errHdr, filename);
		exit(2);
	}

	/* close the file */
	fclose(file);

	return(0);
}
\ No newline at end of file
diff --git a/IIGS.601.SRC/SD.ODDS.N.Ends/SetLoadName.make b/IIGS.601.SRC/SD.ODDS.N.Ends/SetLoadName.make
new file mode 100644
index 0000000..bbf23d5
--- /dev/null
+++ b/IIGS.601.SRC/SD.ODDS.N.Ends/SetLoadName.make
@@ -0,0 +1 @@
+#   File:       SetLoadName.make
#   Target:     SetLoadName
#   Sources:    SetLoadName.c
#   Created:    Thursday, October 11, 1990 12:22:19


OBJECTS = SetLoadName.c.o



SetLoadName ÄÄ SetLoadName.make {OBJECTS}
	Link -w -c 'MPS ' -t MPST ¶
		{OBJECTS} ¶
		"{CLibraries}"CSANELib.o ¶
		"{CLibraries}"Math.o ¶
		#"{CLibraries}"Complex.o ¶
		"{CLibraries}"StdClib.o ¶
		"{Libraries}"Stubs.o ¶
		"{Libraries}"Interface.o ¶
		"{Libraries}"ToolLibs.o ¶
		"{Libraries}"Runtime.o ¶
		-o SetLoadName
SetLoadName.c.o Ä SetLoadName.make SetLoadName.c
	 C  -r SetLoadName.c
\ No newline at end of file
diff --git a/IIGS.601.SRC/SD.ODDS.N.Ends/SetStart.data b/IIGS.601.SRC/SD.ODDS.N.Ends/SetStart.data
new file mode 100644
index 0000000..ed00eb5
Binary files /dev/null and b/IIGS.601.SRC/SD.ODDS.N.Ends/SetStart.data differ
diff --git a/IIGS.601.SRC/SD.ODDS.N.Ends/TBoxMiscToDiskImage b/IIGS.601.SRC/SD.ODDS.N.Ends/TBoxMiscToDiskImage
new file mode 100644
index 0000000..124dd9a
--- /dev/null
+++ b/IIGS.601.SRC/SD.ODDS.N.Ends/TBoxMiscToDiskImage
@@ -0,0 +1 @@
+#
# ToolboxMiscToDiskImage
#
# This script copies the toolbox misc files to the indicated disk images.
#
# 11/27/89	Mensch
# Changed names and added 3rd disk...
#
#############################################################################
########################################
#
# Set the destination
#
########################################
IF "{2}" == ""
	set Dest "A2CE_Sources:System Disk 6.0"
	set DestSD "A2CE_Sources:System Disk 6.0:Install:"
	set DestST1 "A2CE_Sources:System Disk 6.0:SystemTools1:"
	set DestST2 "A2CE_Sources:System Disk 6.0:SystemTools2:"
#	set SynthLab "A2CE_Sources:System Disk 6.0:SynthLab:"
ELSE
	# First we make sure the directory name ends in a colon.
	IF "{2}" !~ /Å[:]/
		set 2 "{2}"¶:
	END
	set Dest "{2}"
	set DestSD "{2}"Install:
	set DestST1 "{2}"SystemTools1:
	set DestST2 "{2}"SystemTools2:
#	set SynthLab "{2}"SynthLab:
END

########################################
#
# Set the source
#
########################################
IF "{1}" == ""
	set Src "work:gstoolboxMisc:"
ELSE
	# First we make sure the directory name ends in a colon.
	IF "{1}" !~ /Å[:]/
		set 1 {1}¶:
	END
	SET Src {1}
END


########################################
#
# Now do the copying.
#
########################################
echo "# Copying Toolbox Misc objects from {Src} to {Dest}."


unset exit
set echo on
# Copies the appropriate files to A2CE_Sources
#
duplicate -Y	"{Src}"FindFilegs:FindFile		"{DestST1}"system:Desk.Accs:FindFile
duplicate -Y	"{Src}"Teach:Teach				"{DestST2}"Teach 
duplicate -Y	"{Src}":ArchiverGS:Archiver.app	"{DestST2}"Archiver
Duplicate -y	"{Src}"ReadMeFiles:Read.Me		"{DestST2}"Read.Me
Duplicate -y	"{Src}"ReadMeFiles:Shortcuts	"{DestST2}"Shortcuts
Duplicate -y	"{Src}"ReadMeFiles:Whats.New	"{DestST2}"Whats.New

unset echo
set exit 1
\ No newline at end of file
diff --git a/IIGS.601.SRC/SD.ODDS.N.Ends/ToolboxToDiskImage b/IIGS.601.SRC/SD.ODDS.N.Ends/ToolboxToDiskImage
new file mode 100644
index 0000000..5f4bb71
--- /dev/null
+++ b/IIGS.601.SRC/SD.ODDS.N.Ends/ToolboxToDiskImage
@@ -0,0 +1 @@
+#
# ToolboxToDiskImage
#
# This script copies the toolbox files to the indicated disk images.
#
# Written by Steven Glass    13 Dec 88
# Modified by Steven Glass	 10 Jan 89
#
#
# 10 Mar 89		Steven Glass
#
# Changed names to 5.0
#
# 11/27/89	Mensch
# Changed names and added 3rd disk...
#
#############################################################################
########################################
#
# Set the destination
#
########################################
IF "{2}" == ""
	set Dest "A2CE_Sources:System Disk 6.0"
	set DestSD "A2CE_Sources:System Disk 6.0:Install:"
	set DestST1 "A2CE_Sources:System Disk 6.0:SystemTools1:"
	set DestST2 "A2CE_Sources:System Disk 6.0:SystemTools2:"
	set SynthLab "A2CE_Sources:System Disk 6.0:SynthLab:"
ELSE
	# First we make sure the directory name ends in a colon.
	IF "{2}" !~ /Å[:]/
		set 2 "{2}"¶:
	END
	set Dest "{2}"
	set DestSD "{2}"Install:
	set DestST1 "{2}"SystemTools1:
	set DestST2 "{2}"SystemTools2:
	set SynthLab "{2}"SynthLab:
END

########################################
#
# Set the source
#
########################################
IF "{1}" == ""
	set Src "work:gstoolbox:"
ELSE
	# First we make sure the directory name ends in a colon.
	IF "{1}" !~ /Å[:]/
		set 1 {1}¶:
	END
	SET Src {1}
END


########################################
#
# Now do the copying.
#
########################################
echo "# Copying Toolbox objects from {Src} to {Dest}."


unset exit
set echo on
# Copies the appropriate files to A2CE_Sources
#
duplicate -d -Y	"{Src}"WindMgr:tool014							"{DestSD}"system:tools:Tool014 
duplicate -d -Y	"{Src}"MenuMgr:Tool015							"{DestSD}"system:tools:Tool015
duplicate -d -Y	"{Src}"ControlMgr:Tool016						"{DestSD}"system:tools:Tool016
duplicate -d -Y	"{Src}"QDAux:Tool018							"{DestSD}"system:tools:Tool018
duplicate -d -Y	"{Src}"PrintMgr:Tool019							"{DestSD}"system:tools:Tool019
duplicate -d -Y	"{Src}"LineEdit:Tool020							"{DestSD}"system:tools:Tool020
duplicate -d -Y	"{Src}"DialogMgr:Tool021						"{DestSD}"system:tools:Tool021
duplicate -d -Y	"{Src}"Scrap:Tool022							"{DestSD}"system:tools:Tool022
duplicate -d -Y	"{Src}"StdFile:Tool023							"{DestSD}"system:tools:Tool023
duplicate -d -Y	"{Src}"NoteSynth:Tool025						"{DestST1}"system:tools:Tool025
duplicate -d -Y	"{Src}"NoteSeq:Tool026							"{DestST1}"system:tools:Tool026
duplicate -d -Y	"{Src}"FontMgr:Tool027							"{DestSD}"system:tools:Tool027
duplicate -d -Y	"{Src}"ListMgr:Tool028							"{DestSD}"system:tools:Tool028
duplicate -d -Y	"{Src}"ACE:Tool029								"{DestST1}"system:tools:Tool029
duplicate -d -Y	"{Src}"ResourceMgr:Resource.Mgr					"{DestSD}"system:system.setup:Resource.Mgr 
duplicate -Y	"{Src}"Sys.Resources:SYS.RESOURCES				"{DestSD}"system:system.setup:Sys.Resources
duplicate -d -Y	"{Src}"Midi:miditools:Tool032					"{DestST1}"system:tools:Tool032
duplicate -d -Y	"{Src}"videomix:Tool033							"{DestST2}"system:tools:Tool033
duplicate -d -Y	"{Src}"textedit:Tool034							"{DestSD}"system:tools:Tool034
duplicate -d -Y	"{Src}"midisynth:Tool035						"{SynthLab}"Tool035
#duplicate -d -Y	"{Src}"FredWorld:Tool037						"{DestST1}"system:tools:Tool037
duplicate -d -Y	"{Src}"MediaCtlTool:Tool038						"{DestST2}"system:tools:Tool038


# Drivers
#
duplicate -d -Y	"{Src}"PrinterDrivers:LW:LaserWriter			"{DestST2}"system:drivers:LaserWriter
duplicate -d -Y	"{Src}"PrinterDrivers:New.IW:ImageWriter		"{DestST1}"system:drivers:ImageWriter
duplicate -d -Y	"{Src}"PrinterDrivers:LQ:ImageWriter.LQ			"{DestST1}"system:drivers:ImageWriter.LQ
duplicate -d -Y	"{Src}"PrinterDrivers:Tabasco:StyleWriter		"{DestST1}"system:drivers:StyleWriter
duplicate -d -Y	"{Src}"PrinterDrivers:Epson:Epson				"{DestST1}"system:drivers:Epson
duplicate -d -Y	"{Src}"PrinterDrivers:Printer:Printer			"{DestST1}"system:drivers:Printer
duplicate -d -Y	"{Src}"PrinterDrivers:Modem:Modem				"{DestST1}"system:drivers:Modem
duplicate -d -Y	"{Src}"PrinterDrivers:AppleTalk:AppleTalk		"{DestST2}"system:drivers:AppleTalk
duplicate -d -Y	"{Src}"PrinterDrivers:GraphiCard:Parallel.Card	"{DestST1}"system:drivers:Parallel.Card
duplicate -d -Y	"{Src}"PrinterDrivers:IWEM:IWEM					"{DestST2}"system:drivers:IWEM


duplicate -d -Y	"{Src}"Midi:Drivers:apple.midi:apple.midi		"{DestST1}"system:drivers:Apple.Midi
duplicate -d -Y	"{Src}"Midi:Drivers:card6850.midi:card6850.midi	"{DestST1}"system:drivers:Card6850.MIDI

# System patch
#
duplicate -d -Y	"{Src}"patch:setup:tool.setup					"{DestSD}"system:system.setup:Tool.Setup
duplicate -d -Y	"{Src}"patch:patch2:ts2							"{DestSD}"system:system.setup:TS2
duplicate -d -Y	"{Src}"patch:patch3:ts3							"{DestSD}"system:system.setup:TS3

unset echo
set exit 1
\ No newline at end of file
diff --git a/IIGS.601.SRC/SD.ODDS.N.Ends/setRevisionName b/IIGS.601.SRC/SD.ODDS.N.Ends/setRevisionName
new file mode 100644
index 0000000..f2bb902
--- /dev/null
+++ b/IIGS.601.SRC/SD.ODDS.N.Ends/setRevisionName
@@ -0,0 +1 @@
+Confirm "Do you wish to perform a NameRevisions?" && Begin
	set exit 0
	unset DiskName
	set DiskName "`Request "Please enter the revision name:" -d "System Disk 6.0.1dxx"`"
	if "{DiskName}" != ""
		for proj in A.U.G. ¶
				GS.OS ¶
				GSToolbox ¶
				ArchiverGS ¶
				ToolboxMisc ¶
				synthLAB ¶
				SD.Odds.n.EndsºAPW.Scriptsº ¶
				Fonts
			Echo "Performing NameRevisions on "{proj}""
			NameRevisions -project "{proj}" -public -r -a "{DiskName}"
		end
		# Redo any NameRevisions that shouldn't include certain files
		NameRevisions "{DiskName}" -public -project GS.OSºCommonº ¶
			common.equ.src, ¶
			driver.equ.src ¶
			gsos.macros.src ¶
			hw.equ.src
		NameRevisions "{DiskName}" -public -project GS.OSºMakeFilesº ¶
			make.ad3.5 ¶
			make.ad5.25 ¶
			make.aristotle ¶
			make.as.fst ¶
			make.atalk ¶
			make.atboot ¶
			make.atinit ¶
			make.atram ¶
			make.atresponder ¶
			make.atrom ¶
			make.cd.driver ¶
			make.char.fst ¶
			make.console ¶
			Make.DOS3.3.FST ¶
			make.error.msg ¶
			make.hd.driver ¶
			make.hfs.fst ¶
			make.hs.fst ¶
			make.net.start ¶
			make.os ¶
			make.p8 ¶
			make.pascal.fst ¶
			make.pro.fst ¶
			make.proboot ¶
			make.quicklogoff ¶
			Make.Scanner.Driver ¶
			make.SCCmanager ¶
			make.SCSImanager ¶
			Make.Tape.Driver ¶
			make.ud3.5
		NameRevisions "{DiskName}" -public -project BASIC.SYSTEMº ¶
			EQUATES ¶
			GLOBALS ¶
			LOADER ¶
			MAIN ¶
			Makefile
		NameRevisions "{DiskName}" -public -project GSToolboxº ¶
			build.tools ¶
			sys.equs.asm
		NameRevisions "{DiskName}" -public -project SD.Odds.n.Endsº ¶
			 A.U.G.ToDiskImage ¶
			 All.Macros.Make ¶
			 BuildAll ¶
			 BuildLatest ¶
			 CheckOutAll ¶
			 CopyAll ¶
			 FoldersOnDiskImage ¶
			 FontsToDiskImage ¶
			 FType.Apple ¶
			 GSOSToDiskImage ¶
			 Mount6.0Projects ¶
			 MountAll ¶
			 ONEToDiskImage ¶
			 SetLoadName.c ¶
			 SetLoadName.make ¶
			 setRevisionName ¶
			 SetStart.data ¶
			 synthLABToDiskImage ¶
			 TBoxMiscToDiskImage ¶
			 ToolboxToDiskImage
		NameRevisions "{DiskName}" -public -project synthLABºSeq.and.Instrº ¶
			Bee.seq ¶
			Combo.bnk ¶
			Combo.wav ¶
			Demo.bnk ¶
			Demo.wav ¶
			Fugue.seq ¶
			Midsummer.seq ¶
			Orch.bnk ¶
			Orch.wav ¶
			Piano.bnk ¶
			Piano.wav ¶
			ShortDemo.seq ¶
			Capri.seq ¶
			FullDemo.seq ¶
			Rhythm.seq ¶
			Sonata.seq
	end
End

\ No newline at end of file
diff --git a/IIGS.601.SRC/SD.ODDS.N.Ends/synthLABToDiskImage b/IIGS.601.SRC/SD.ODDS.N.Ends/synthLABToDiskImage
new file mode 100644
index 0000000..88dcfb0
--- /dev/null
+++ b/IIGS.601.SRC/SD.ODDS.N.Ends/synthLABToDiskImage
@@ -0,0 +1 @@
+#############################################################################
#
# synthLABToDiskImage
#
# This script copies the synthLAB files to the indicated disk images.
#
# 11/07/90	GAB	Brand new for the 6.0 project
#
#############################################################################
########################################
#
# Set the destination
#
########################################
IF "{2}" == ""
	set Dest "A2CE_Sources:System Disk 6.0"
	set DestSD "A2CE_Sources:System Disk 6.0:Install:"
	set DestST1 "A2CE_Sources:System Disk 6.0:Sys.Tools1:"
	set DestST2 "A2CE_Sources:System Disk 6.0:Sys.Tools2:"
	set synthLab "A2CE_Sources:System Disk 6.0:synthLAB:"
ELSE
	# First we make sure the directory name ends in a colon.
	IF "{2}" !~ /Å[:]/
		set 2 "{2}"¶:
	END
	set Dest "{2}"
	set DestSD "{2}"Install:
	set DestST1 "{2}"Sys.Tools1:
	set DestST2 "{2}"Sys.Tools2:
	set synthLab "{2}"synthLAB:
END

########################################
#
# Set the source
#
########################################
IF "{1}" == ""
	set Src "bugs:synthLab:"
ELSE
	# First we make sure the directory name ends in a colon.
	IF "{1}" !~ /Å[:]/
		set 1 {1}¶:
	END
	SET Src {1}
END

########################################
#
# Now do the copying.
#
########################################
echo "# Copying synthLab from {Src} to {Dest}."



set echo on
duplicate -d  -y	"{Src}"synthLAB						"{synthLab}"
duplicate -d  -y	"{Src}"Icons:SL.Icons				"{synthLab}"Icons:
duplicate -d  -y	"{Src}"Synth.seq ¶
					"{Src}"Synth.wav ¶
					"{Src}"Synth.bnk					"{synthLab}"Seq.and.Instr
Duplicate -d  -y	"{Src}"Seq.and.Instr:Bee.seq ¶
					"{Src}"Seq.and.Instr:Combo.bnk ¶
					"{Src}"Seq.and.Instr:Combo.wav ¶
					"{Src}"Seq.and.Instr:Demo.bnk ¶
					"{Src}"Seq.and.Instr:Demo.wav ¶
					"{Src}"Seq.and.Instr:Fugue.seq ¶
					"{Src}"Seq.and.Instr:Midsummer.seq ¶
					"{Src}"Seq.and.Instr:Orch.bnk ¶
					"{Src}"Seq.and.Instr:Orch.wav ¶
					"{Src}"Seq.and.Instr:Piano.bnk ¶
					"{Src}"Seq.and.Instr:Piano.wav ¶
#					"{Src}"Seq.and.Instr:ShortDemo.seq ¶
					"{Src}"Seq.and.Instr:Capri.seq ¶
#					"{Src}"Seq.and.Instr:FullDemo.seq ¶
					"{Src}"Seq.and.Instr:Rhythm.seq ¶
					"{Src}"Seq.and.Instr:Sonata.seq		"{synthLab}"Seq.and.Instr
Duplicate -y		"{Src}"Reference					"{synthLab}"Reference
#Duplicate -d -y		"{Src}"Seq.and.Instr:A1.wav ¶
#					"{Src}"Seq.and.Instr:B2.wav ¶
#					"{Src}"Seq.and.Instr:InstA.bnk ¶
#					"{Src}"Seq.and.Instr:InstF.bnk		"{DestST1}"Seq.and.Instr
unset echo
\ No newline at end of file
diff --git a/IIGS.601.SRC/ToolBoxMisc/FindFileGS/DAInterface.asm b/IIGS.601.SRC/ToolBoxMisc/FindFileGS/DAInterface.asm
new file mode 100644
index 0000000..991f4fd
--- /dev/null
+++ b/IIGS.601.SRC/ToolBoxMisc/FindFileGS/DAInterface.asm
@@ -0,0 +1 @@
+*******************************************************************************
*
* DAInterface for Pascal
*
* (C) Copyright Apple Computer, Inc. 1988-93
* All rights reserved.
*
* by Jim Mensch
* 5/31/89
*
*******************************************************************************
*
* Modification History:
*
* Version 1.0   Mensch (System 6.0)
*
* Version 1.1   Lyons (System 6.0.1)
*
* 19-Jan-93 DAL -- Added a label in the menu line.
*
*
*******************************************************************************

	INCLUDE 'All.macros'
	
;==============================================================================
;
; Imports from the PASCAL portion of the DA. This will be the addresses of the
; actual routines that you call.
;  

	Import  ReallyOpen	; PROCEDURE ReallyOpen;
	Import  ReallyClose	; PROCEDURE ReallyInit;
	Import  ReallyAction ; PROCEDURE ReallyAction;
	Import  ReallyInit	; PROCEDURE ReallyClose;
	Import  aGlobal
	Import  IdleWind	; IdleWind   : GrafPortPtr;
	Import  QuitFlag	; quitflag : Integer;
	Import  eventP	; eventP  : EventRecordPtr;
	Import  actionCode  ; ActionCode:Integer;
period	equ $0010
Mask	equ $0FFF	; use $0FF7 for debug $0FFF for real

	EJECT
*******************************************************************************
*
BEGINDA	PROC Export
*
* Description:	This is the standard DA header for use with Pascal type DA's
*
*
* Inputs:	None
*
* Outputs:	None
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
	Import DAOpen
	Import DAClose
	Import DAAction
	Import DAInit
	export ffMenuItemID
	
	dc.L DAOpen
	dc.L DAClose
	dc.L DAAction
	dc.L DAInit
	dc.W period
	dc.W Mask
	dc.B '  Find File \H'
ffMenuItemID	dc.b '**',0	;removed 18 blanks (19-Jan-93 DAL)
	EndP
	
	EJECT
*******************************************************************************
*
DAOpen	PROC
*
* Description:	Called when an open is requested by the desk mgr.
*
*
* Inputs:	None
*
* Outputs:	None
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
oldDataBank	equ 1
theRTL	equ oldDataBank+1
theResult	equ theRTL+3
	phb	; save the old data bank
	
	pea IdleWind>>8	; push the address of our databank on the stack
	plb
	plb	; set as the current data bank!
	
	jsl ReallyOpen	; call the pascal open routine
	
	lda idleWind	; return the opened window ptr
	sta theResult,s
	lda idleWind+2
	sta theResult+2,s
	
	plb	; restore the databank
	RTL
	EndP
	
	EJECT
*******************************************************************************
*
DAClose	PROC
*
* Description:	Called in response to a DA close from the desk mgr
*
*
* Inputs:	None
*
* Outputs:	None
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
	phb	; save the old data bank
	
	pea IdleWind>>8	; push the address of our databank on the stack
	plb
	plb	; set as the current data bank!
	
	jsl ReallyClose	; call the pascal open routine
		
	plb	; restore the databank
	RTL
	EndP

	EJECT
*******************************************************************************
*
DAAction	PROC
*
* Description:	Called in response to an Action or RUN event
*
*
* Inputs:	None
*
* Outputs:	None
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
	phb	; save the old data bank
	
	pea IdleWind>>8	; push the address of our databank on the stack
	plb
	plb	; set as the current data bank!
	
	sta actionCode	; save the actionCode
	stx eventP	; and event pointers
	sty eventP+2
	
	jsl ReallyAction	; call the pascal open routine
	
	lda  quitFlag	; test the quit flag
	beq @continue
	
	Pushlong IdleWind	; close the DA
	_CloseNDAByWinPtr
@continue
	lda actionCode	; return in <A> boolean flag
	
	plb	; restore the databank
	RTL
	EndP

	EJECT
*******************************************************************************
*
DAInit	PROC
*
* Description:	Called on Desk manager startup
*
*
* Inputs:	None
*
* Outputs:	None
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
	phb	; save the old data bank
	
	pea IdleWind>>8	; push the address of our databank on the stack
	plb
	plb	; set as the current data bank!
	
	sta ActionCode	; save the flag
	
	jsl ReallyInit	; call the pascal open routine
		
	plb	; restore the databank
	RTL
	EndP

	END
\ No newline at end of file
diff --git a/IIGS.601.SRC/ToolBoxMisc/FindFileGS/FindFile b/IIGS.601.SRC/ToolBoxMisc/FindFileGS/FindFile
new file mode 100644
index 0000000..580fb2b
Binary files /dev/null and b/IIGS.601.SRC/ToolBoxMisc/FindFileGS/FindFile differ
diff --git a/IIGS.601.SRC/ToolBoxMisc/FindFileGS/FindFileDA.p b/IIGS.601.SRC/ToolBoxMisc/FindFileGS/FindFileDA.p
new file mode 100644
index 0000000..c533f67
--- /dev/null
+++ b/IIGS.601.SRC/ToolBoxMisc/FindFileGS/FindFileDA.p
@@ -0,0 +1 @@
+
{ Copyright 1990-1993 Apple Computer, Inc.  All Rights Reserved }

{ 26-Jan-93 SS -- switched to newer call GetCtlValueByID}

UNIT FindFileDA; 
		
INTERFACE

USES
	Types, GSOS, QuickDraw, IntMath, Events, Controls, Windows, Menus,
	Desk, LineEdit, ProDOS, Lists, Resources, Memory, Locator, MiscTool,
	Loader;

{$Z+} {So 'C' routines know about these names} 

const
	MyDATitle = ' Find File 1.1 ';
	MaxFilesToFind = 200; { matches MaxEntries constant in ProcessLevel.asm }

type
	MyListRec  = Record
				   MemString:ptr;
				   MemFlag:Integer;
				   MemFullName:Handle;
				   memType:Integer;
				   memAux:Longint;
				   memEOF:Longint;
				 end;
	MyListHand = ^MyListPtr;
	MyListPtr  = ^MyListarray;
	MyListArray= Array[0..100] of MyListRec;

		Str255Ptr=^str255;
		Str255Hndl=^Str255Ptr;

	convtype = packed array [1..31] of char;
	convptr = ^convtype;
	ConvHndl = ^ConvPtr;

VAR
  IdleWind : GrafPortPtr;   { do not remove }
  initType,				    { do not remove }
  Stk_Size,                 { do not remove }
  quitflag,                 { do not remove }
  menuID,                   { do not remove }
  itemID,                   { do not remove }
  actionCode : Integer;     { do not remove }
  eventP  : EventRecordPtr; { do not remove }

  InvisibleFlag: boolean;	{ true if invisible files should be found }

  tempRect	:Rect;
  MyList	: MyListHand;
  messageStr :str255;
  tempString : str255; { used by ProcessLevel.asm }
  currentDirPath:str255; { used by ProcessLevel.asm }
  MyDirEntry : DirEntryRec;
  MyOpenRec : OpenRec;
  MyCLose 	: FileIORec;
  MyListCnt	: Integer;
  ListCtrl	: CtlRecHndl;
  MyID		: Integer;
  MatchType	: Integer;
  MatchStr	: str32;
  CurrentVol: str32;
  VolPopUp,tempBar	: MenuBarRecHndl;
  StackHandle : Longint;
  StackLevel : Integer;
  EntryCount : Integer;
  PascalStack: Integer;
  Running:Integer;	{ Flag that tells us if we are currently running }
  Stopping : Integer; {Flag that tells us that we should stop and why}
  IdleCount : Integer;
  AsmToolErr : Integer;
  PathListHidden : Boolean;
  tempNamePtr : Record
  				stat:integer;
				length:integer;
				theName:packed array [1..40] of char;
				end;
  screenMode : Integer;

PROCEDURE ReallyOpen;       { do not remove }
PROCEDURE ReallyInit;       { do not remove }
PROCEDURE ReallyClose;      { do not remove }
PROCEDURE ReallyAction;     { do not remove }
Procedure SetMessage(theString:str255);
IMPLEMENTATION
{$Z-} { hide the rest }

{ place variables & constants here that need to be known between calls }
  
TYPE
  integerPtr = ^integer;
  
  MyTaskRec= RECORD wmWhat : Integer;
         			wmMessage : Longint;
         			wmWhen : Longint;
         			wmWhere : Point;
         			wmModifiers : Integer;
        			wmTaskData : Longint; { TaskMaster return value. }
         			wmTaskMask : Longint; { TaskMaster feature mask. }
         			wmLastClickTick : Longint;
         			wmClickCount : Integer;
         			wmTaskData2 : Longint;
         			wmTaskData3 : Longint;
         			wmTaskData4 : Longint;
         			wmLastClickPt : Point;
					wmBuffer : array[0..4] of Integer;
				END;
	
	
VAR
  windParams : ParamList;
  emptyString : String[1];
  titleStr: String[32];
  AppResFork : Integer;
  theDATask : MyTaskRec;

PROCEDURE BeginDA;  EXTERNAL;

PROCEDURE AddVolumeMenu; EXTERNAL;
PROCEDURE CallNotifyProc; EXTERNAL;
PROCEDURE CallDelNotifyProc; EXTERNAL;
Function MakeCurPath:Boolean; EXTERNAL;
PROCEDURE TestSetKT; EXTERNAL;
PROCEDURE ServiceDiskSwitch; EXTERNAL;
PROCEDURE PollDevices; External;
PROCEDURE GetUpTextFromLE(theLEHandle:LERecHndl; var theStr:str32); External;
PROCEDURE MyMemberDraw; External;
PROCEDURE SetAboutMessage; External;
Function  ffRequestProc(code: integer; inP, outP: univ longint): integer; External;
Procedure InstallMyRequestProc; External;
Procedure CreatePathList(thePath:ptr); External;

procedure MakeSureExtraToolsAreHere; external;

Procedure Debug; INLINE $0000 ;
Procedure DebugStr(theStr:str255); INLINE $A2,$FF09,$22,$E10000;
{ Function GetCtlValueByID(theWindow:WindowPtr; theID:longint) : integer; INLINE $A2,$3D10,$22,$E10000; }
Procedure SetControls(running:Boolean);

var		RunButton,
		StopButton,
		LineEditCtl,
		DiskPopUp,
		MatchPopUp: CtlRecHndl;
begin

	RunButton   := GetCtlHandleFromID(IdleWind,1001);
	StopButton  := GetCtlHandleFromID(IdleWind,1002);
	LineEditCtl := GetCtlHandleFromID(IdleWind,$3f0);
	DiskPopUp   := GetCtlHandleFromID(IdleWind,1);
	MatchPopUp  := GetCtlHandleFromID(IdleWind,$3EE);
	If Running then begin
		HideControl(RunButton);
		ShowControl(StopButton);
		HiliteControl($FF,LineEditCtl);
		HiliteControl($FF,DiskPopUp);
		HiliteControl($FF,MatchPopUp);
	  end
	else
	  begin
		HideControl(StopButton);
		ShowControl(RunButton);
		HiliteControl(0,LineEditCtl);
		HiliteControl(0,DiskPopUp);
		HiliteControl(0,MatchPopUp);
	  end;
end;

{ ------------------------------------------------------------------------------------}
{ This procedure is called when the desk accessory is selected from the }
{ Apple menu.  It will only be called once. Any re-selection of the DA's }
{ menu item will be filtered out before reaching this routine. }

PROCEDURE ReallyOpen;
VAR
  oldRgn,
  tmpRgn : RegionHndl;
  myPoint : Ptr;
  temp,errtemp:Integer;
  fileOpen,Abort:Boolean;
  prefsParms : SysPrefsRecGS;
  oldPrefs : Integer;
  
BEGIN
  emptyString := '';
  MyID:=MMStartup;

  ResourceStartup(MyID);
  fileOpen:=false;
  PathListHidden:=true;
  Abort:=false;

{ save current SysPrefs and set them up to automatically display mount dialog }
  prefsParms.pCount := 1;
  GetSysPrefsGS(prefsParms);
  oldPrefs := prefsParms.preferences;
  prefsParms.preferences := $8000;	{ show 'dem dialogs! }
  SetSysPrefsGS(prefsParms);
{GAB}

  Repeat
	temp := OpenResourceFile(1,NIL,GSString255Ptr(LGetPathname2(MyID,1)));
	If _ToolErr=0 then FileOpen:=true
	else
	  begin
	    If _ToolErr=volNotFound then
		  Abort := true {User must have selected "Cancel" in volume mount dialog}
		else
		  Begin
		    errTemp:=TLMountVolume(30,30,'Error occured while opening',
									'Find File', 'Try Again', 'Cancel');
			If errTemp=2 then Abort:=true;
		  end
	  end;
  until fileOpen or Abort;

{ reset SysPrefs to original value }
  prefsParms.preferences := oldPrefs;
  SetSysPrefsGS(prefsParms);
{GAB}

  If Abort then
    begin
	  idleWind:=NIL;
	  ResourceShutDown;
	  exit(ReallyOpen);
	end;

  MakeSureExtraToolsAreHere;

  titleStr:=MyDATitle;  
  MessageStr:='';
  if BAnd(GetMasterSCB,$0080) = 0 then	{ determine what screen mode we're in }
  	screenMode := 320
  else
  	screenMode := 640;
  IdleWind := NewWindow2(@titleStr,0,NIL,NIL,$0002,ref(screenMode),$800E);
  SetControls(false);
  if _toolErr <> 0 THEN SysFailMgr(_toolErr,emptyString);

  SetSysWindow(IdleWind);
  quitflag := 0; { set to 1 by action routine if its time to quit }
  ListCtrl := GetCtlHandleFromID(IdleWind,longint(1009 + screenMode));
  MyList := MyListHand(NewHandle(20*MaxFilesToFind,MyID,$8000,NIL));
  AddVolumeMenu;
  CallNotifyProc;
  MyListCnt := 0;
  MatchType := 1;
END;  {ReallyOpen} 
{ ------------------------------------------------------------------------------------}

{  This procedure is called when DeskStartUp or DeskShutDown is called }
{  It is normally not used but is used here so that the header for the }
{ desk accessory can be built from Pascal }

PROCEDURE ReallyInit;
TYPE
  DAHeader = RECORD
    openPtr   : LongInt; { pointer to open routine (do not change) }
	closePtr  : LongInt; { pointer to close routine (do not change) }
	actionPtr : LongInt; { pointer to action routine (do not change) }
	initPtr   : LongInt; { pointer to init routine (do not change) }
	period    : Integer; { How often the DA is to get a run call - set in make file }
	eventMask : Integer; { Discribes what events DA responds to  - set in make file }
	menuLine  : packed ARRAY [0..20] of char;
  END;
  DAHeaderPtr = ^DAHEADER;

VAR
  customHeader : DAHeaderPtr;
  
BEGIN
  IF initType <> 0 THEN
    BEGIN { DeskStartUp call being made }
	  customHeader := DAHeaderPtr(@BeginDA);
	  {  change the following if you want more or less stack  }
	  Stk_Size := 2048; { live with applications }
	END
  ELSE
    BEGIN { DeskShutDown call being made - this is not close desk accessory}
	  InstallMyRequestProc;
	END;

END;
{ ------------------------------------------------------------------------------------}

{ This procedure is called when the desk accessory is about to close. }

PROCEDURE ReallyClose;
BEGIN
   DisposeAll(MyID+$0700);
   DisposeAll(MyID+$0600);
   DisposeAll(MyID+$0900);
   DisposeAll(MyID+$0300);		{ added 9-Apr-92 DAL -- get rid of list items! }
   DisposeHandle(Handle(MyList));
   StackHandle := 0;
   Running := 0;
   myListCnt:=0;
   CallDelNotifyProc;			{ remove the disk switch routine from GS/OS notif. queue }
   CloseWindow(IdleWind);
   ResourceShutDown;
   Stopping := 1;
END; { ReallyClose }

{ ------------------------------------------------------------------------------------}

{ This procedure handles any events or periodic run requests which are passed }
{ to the desk accessory. }

Procedure ShowMessage;
var
	PathList: CtlRecHndl;
	tempPort: GrafPortPtr;
	tempRgn:  RegionHndl;
	myRect:   Rect;
begin
	PathList := GetCtlHandleFromID(IdleWind,1015 + screenMode);
	PathListHidden := true;

	{ Set the clip rect here to avoid mucking up the list above?? }
	tempPort := GetPort;
	SetPort(IdleWind);
	tempRgn := NewRgn;
	GetClip(tempRgn);
	SetRect(myRect,0,100,1000,1000); { don't mess up anything above top of list }
	ClipRect(myRect);
	HideControl(PathList);
	SetClip(tempRgn);
	DisposeRgn(tempRgn);
	SetPort(tempPort);
end;

Procedure ShowPathList;
var
	PathList:CtlRecHndl;
begin
	PathList:=getCtlHandleFromID(IdleWind,1015 + screenMode);
	ShowControl(PathList);
	PathListHidden:=false;
end;

procedure UpdateMessageBox;
var
	tempPort: GrafPortPtr;
begin
	if PathListHidden then
		begin
			tempPort := GetPort;
			SetPort(IdleWind);
			SetRect(tempRect,4,105,318,145);
			LETextBox2(ptr(ord4(@MessageStr)+1),length(MessageStr),tempRect,0);
			SetPort(tempPort);
		end;
end;

Procedure SetMessage(theString:str255);
var
	savePort : GrafPortPtr;
begin
   	savePort := GetPort;
   	SetPort(IdleWind);
	ShowMessage;
	MessageStr := theString;
   	SetPort(savePort);
	UpdateMessageBox;
end;

{
	This routine should be called at the start of every search to dump the current list and
	all its contents, as well as called for shutdown...
}
Procedure DumpList;
begin
	DisposeAll(MyID+$0700);
	myListCnt := 0;
	NewList2(NIL,1,ref(MyList),1,myListCnt,listCtrl);
	BeginUpdate(IdleWind);	{ make sure the old list disappears }
	DrawControls(IdleWind);
	EndUpdate(IdleWind);
end;

Function ProcessLevel(Flag:Integer):Integer; External;

{
	This procedure should be called before any routine starts/ends to determine if
	the state of the buttons needs to be changed.
}
Procedure Idler;
var
	i,j:Integer;
	MyLERecord:LERecHndl;
	RunButton:CtlRecHndl;
	StopButton:CtlRecHndl;
    theState:Byte;
begin
	MyLERecord := LERecHndl(GetCtlTitle(GetCtlHandleFromID(IdleWind,1008)));
	RunButton := GetCtlHandleFromID(IdleWind,1001);
	StopButton := GetCtlHandleFromID(IdleWind,1002);
	If Running<>0 then 
	 begin
	 	idleCount:=0;
	  end
	else
	  begin
		IdleCount := IdleCount + 1;
		PollDevices;
		ServiceDiskSwitch;
		theState:=RunButton^^.ctlHilite;
		i := LEGetTextLen(MyLERecord);
		If (theState=noHilite) and (i=0) then
		  HiliteControl(inactiveHilite,RunButton);
		If (theState=inactiveHilite) and (i<>0) then
		  HiliteControl(noHilite,RunButton);
	  end;
end;

Procedure StartSearch(doInvisibles: boolean);
var
	i, j: Integer;
	MyLERecord: LERecHndl;
begin
{ First set up MatchType and MatchStr }
	MyLERecord:=LERecHndl(GetCtlTitle(GetCtlHandleFromID(IdleWind,1008)));		
	GetUpTextFromLE(MyLERecord,MatchStr); {Get the user inputed file choice..}	
	If Length(MatchStr)=0 then Exit(StartSearch);
	SetControls(true);
	StackHandle := 0;
	stackLevel := 0;
{*** changed to new call 26-Jan-93 SS}
{	i := GetCtlValue(GetCtlHandleFromID(IdleWind,1006));	}
	i := GetCtlValueByID(IdleWind,1006);
{*** end 26-Jan-93}
	MatchType := i-1600;
	DumpList;
	SetMessage('Searching...');
	{ get the proper prefix to use... }
	If not MakeCurPath  then ;  { What is this?? --DAL }
	Stopping := 0; {Set the stopping flag to zero....}
	InvisibleFlag := doInvisibles;
	Running := processLevel(0);	{Start the recursion}
end;
		
Procedure DisplayItem;
const
	theLeftEdge=190;
	theTopEdge=62;
var
	MyHand:Str255Hndl;
	theItem:Integer;
	tempPort:grafportPtr;
begin
	tempport := GetPort;
	SetPort(IdleWind);
	theItem:=NextMember2(0,ListCtrl);	{Get the member to display}
	If theItem=0 then
	  begin
	    SetABoutMessage;
	    Exit(DisplayItem);
	  end;
	MyHand:=Str255Hndl(MyList^^[theItem-1].MemFullName);
	CreatePathList(Ptr(MyHand^));	
	ShowPathList;
	SetPort(tempPort);
end;

Procedure Continue(Chunkiness: integer);
var
	MyHand:Str255Hndl;
	theItem:Integer;
	tempPort:grafportPtr;
	tempLong:Longint;
	StartTick: longint;
	dummyEvent: EventRecord;
begin
	if running<>0 then begin
		StartTick := GetTick;
		while  ((GetTick-StartTick) < Chunkiness) and (Running<>0) and
		    not EventAvail(mDownMask+keyDownMask+autoKeyMask,dummyEvent) do
		begin
			running := processlevel(0);
		end;
	end else
	  begin
	 	if StackHandle<>0 then
		  begin
			tempport := GetPort;
			SetPort(IdleWind);
		    DisposeHandle(Handle(StackHandle));
			tempLong:=Longint(GetCtlTitle(ListCtrl));	{Get the ctlData field}
			if (tempLong<MaxFilesToFind) and (MessageStr='Searching...') then
				SetMessage('No files found.');
			theItem := NextMember2(0,ListCtrl);	{ Get the member to display }
			If MessageStr='Searching...' then SetMessage('Done searching.');
			SetPort(tempPort);
			SysBeep2($4005); { operation complete, bonk, defer }
			SetControls(false);
		  end;
	 	StackHandle := 0;
	  End;
	if (Running=0) and (Stopping<0) then
	  Begin
	    SetControls(False);
		SetMessage('Too many items found.  Try searching for something more specific.');
		SysBeep2($400C);  { operation failed, bonk, defer }
		Stopping := 1;
	  End;
end;


Procedure StopSearch;
begin
	SetControls(false);
	Stopping := 1;
	SetMessage('Search stopped.');
end;


Procedure HandleControl(theID: longint; modifiers: integer);
var
    temp: Integer;
begin
	temp:=theID;	{make it a integer};
	
	case temp of
		1001: StartSearch(band(modifiers,optionKey)<>0);
		1002: StopSearch;
{		1003: ;  }
{		1004: ;  }
{		1005: ;  }
{		1006: ;	 }  { Matches popup displayed... }
{		1007: ;  }
{		1008: ;  }
		1009 + 320,
		1009 + 640: DisplayItem;
{		1010: ;  }
{		1011: ;  }
{		1012: ;  }
{		1013: ;  }
{		1014: ;  }
{		1015: ;  }
	end;
end;

PROCEDURE ReallyAction;
CONST
  XSpan = 145;
  YSpan = 168;

VAR
  savePort : GrafPortPtr;
  newX,
  newY     : integer;
  code		:Integer;
  theRect	: Rect;
BEGIN
   theDATask.wmWhat:=EventP^.wmWhat;
   theDATask.wmMessage:=EventP^.wmMessage;
   theDATask.wmWhen:=EventP^.wmWhen;
   theDATask.wmWhere:=EventP^.wmWhere;
   theDATask.wmModifiers:=EventP^.wmModifiers;
   theDATask.wmTaskData:=0;
   theDATask.wmTaskMask:=$1FFFFF;
   CASE ActionCode of
       runAction:
	      BEGIN  { a periodic call is being made }
			savePort := GetPort;
			SetPort(IdleWind);
			LEIdle(LERecHndl(GetCtlTitle(GetCtlHandleFromID(IdleWind,$3F0))));
			continue(15);	{call the idle routine}
			Idler;
			SetPort(savePort);
          END;
		cursorAction:  { like Run, but don't call Idler! }
		  BEGIN
			savePort := GetPort;
			SetPort(IdleWind);
			continue(50);	{call the idle routine}
			SetPort(savePort);
		  END;
		eventAction:
		 BEGIN { an event has been passed to the DA }
           CASE EventP^.what OF
               updateEvt:
			     BEGIN
                   BeginUpdate(IdleWind);
				   DrawControls(IdleWind);
				   PenNormal;
				   UpdateMessageBox;
				   EndUpdate(IdleWind);
				   Idler;
                 END;
			   keyDownEvt,
			   autoKeyEvt:
			     Begin
				 	 code:= band($00FF,theDATask.wmMessage);
					 if (code=13) and (Running=0) then
					 	StartSearch(band(theDATask.wmModifiers,optionKey)<>0)
					 else
					   begin
					     if (code=10) or (code=11) then theDATask.wmWhat := 0; { up/down arrows }
						 if (running=0) and (code=27) {esc} then theDATask.wmMessage := 24; { Clear }
						 if (code=46) { period } and (band(theDATask.wmModifiers,$0100)<>0) then
						   theDATask.wmMessage := 27;  { command-period --> esc }
				         code:=TaskMasterDA($FFFF,@theDATask);
					     if code = wInControl then HandleControl(theDATask.wmTaskData4,theDATask.wmModifiers);
						 Idler;
					   end;
				 End;
			   mouseDownEvt,
			   mouseUpEvt,
			   ActivateEvt:
			       BEGIN
				     code:=TaskMasterDA($FFFF,@theDATask);
					 if code = wInControl then HandleControl(theDATask.wmTaskData4, theDATask.wmModifiers);
					 Idler;
				   END;
		   END; { CASE }
         END;
   END; { CASE }
END;

END. { of Unit }
\ No newline at end of file
diff --git a/IIGS.601.SRC/ToolBoxMisc/FindFileGS/Findfile.rez b/IIGS.601.SRC/ToolBoxMisc/FindFileGS/Findfile.rez
new file mode 100644
index 0000000..435a464
--- /dev/null
+++ b/IIGS.601.SRC/ToolBoxMisc/FindFileGS/Findfile.rez
@@ -0,0 +1 @@
+//
// FindFile.rez
//
// Copyright Apple Computer, Inc 1990-1993
// All Rights Reserved
//
// by Jim Mensch, Harry Yee, Dave Lyons
//

#include "TypesIIgs.r"

resource rVersion(1) {
	{ 1, 1, 0, release, $00 },
	verUS,
	"Find File",
	"Copyright 1990-93 Apple Computer, Inc."
};

resource rWindParam1 (640) {	// 640-mode window
	fTitle+fClose+fMove+fVis,
	0,
	0,
	{0,0,0,0},
	0x07ff0001,			// window color table resource (lined)
	{0,0},
	{0,0},
	{0,0},
	{0,0},
	{0,0},
	0,
	0,
	{30,10,180,330},
	inFront,
	640,
	0x0809 };

resource rWindParam1 (320) {	// 320-mode window
	fTitle+fClose+fMove+fVis,
	0,
	0,
	{0,0,0,0},
	0x07ff0001,			// window color table resource (lined)
	{0,0},				// origin
	{0,0},				// DataHeight
	{0,0},				// MaxHeight
	{0,0},				// Scroll
	{0,0},				// Page
	0,					// InfoText
	0,					// InfoHeight
	{26,1,176,320},		// position
	inFront,
	320,
	0x0809 };

resource rControlList (640) {
	{	1001,
		1002,
		1006,
		1007,
		1008,
		1009 + 640,
		1015 + 640
	};
};

resource rControlList (320) {
	{	1001,
		1002,
		1006,
		1007,
		1008,
		1009 + 320,
		1015 + 320
	};
};

// Find File button
resource rControlTemplate (1001) {
	1001,
	{5,230,20,310},
	SimpleButtonControl{
	 {
	 	1,
		2+FctlProcNotPtr,
		0,
		1001}
	  };
	};

// Stop button	
resource rControlTemplate (1002) {
	1002,
	{5,230,20,310},
	SimpleButtonControl{
	 {
	 	0,
		2+FctlProcNotPtr+fCtlWantsEvents,
		0,
		1002,
		0,			// color table
		{"\0x1b", "\0x1b", 0, 0}
		}
	 };
	};

// search-how pop-up
resource rControlTemplate (1006) {
	1006,
	{30,208-24,0,0},
	popUpControl{
	 {	0x0030,
		2+FctlProcNotPtr+$0080/*drawArrowIcon*/,
		0,
		0,
		1006,
		1604}
	  };
	};
	

// Files-to-search-for string
resource rControlTemplate (1007) {
	1007,
	{20+1,10,30,150},
	statTextControl{
	 {	0,
		2+FctlProcNotPtr,
		0,
		1007,
		19}
	  };
	};

// File to search for edit-line control	
resource rControlTemplate (1008) {
	1008,
	{30,10,45,200-24},
	editLineControl{
	 {
	 	0,
		FctlProcNotPtr+FctlWantsEvents+FctlCanBeTarget+RefIsResource,
		0,
		31,
		1108}
	  };
	};

// Files-found list
resource rControlTemplate (1009 + 640) {
	1009 + 640,
	{48,-1,98,298},
	listControl{
	 {	0,
		FctlProcNotPtr+FctlIsMultiPart,
		0,
		0,
		0,
		2,
		1,
		10,
		20,
		0}
	  };
	};

resource rControlTemplate (1009 + 320) {
	1009 + 320,
	{48,-1,98,304},
	listControl{
	 {	0,
		FctlProcNotPtr+FctlIsMultiPart,
		0,
		0,
		0,
		2,
		1,
		10,
		20,
		0}
	  };
	};

// Path-to-a-found-file list
resource rControlTemplate (1015 + 640) {
	1015 + 640,
	{99,-1,149,298},
	listControl{
	 {	0x0080+0x0040 /* testMemNever */,
		FctlProcNotPtr+FctlIsMultiPart,
		0,
		0,
		0,
		2,
		1,
		10,
		20,
		0}
	  };
	};
	
resource rControlTemplate (1015 + 320) {
	1015 + 320,
	{99,-1,149,304},
	listControl{
	 {	0x0080+0x0040 /* testMemNever */,
		FctlProcNotPtr+FctlIsMultiPart,
		0,
		0,
		0,
		2,
		1,
		10,
		20,
		0}
	  };
	};
	
resource rMenu (1006) {
	1006,
	0xA000,
	1006,
	{ 1604,
	  1601,
	  1602,
	  1603}
	  };
	  
resource rMenuItem (1601) {
	1601,
	"","",
	0,
	0x8000,
	1003};

resource rMenuItem (1602) {
	1602,
	"","",
	0,
	0x8000,
	1004};

resource rMenuItem (1603) {
	1603,
	"","",
	0,
	0x8000,
	1005};

resource rMenuItem (1604) {
	1604,
	"","",
	0,
	0x8000,
	1006};

resource rMenuItem (1605) {
	1605,
	"","",
	0,
	0x8000,
	1007};


resource rPString (1)    { "FindFile" };
resource rPString (1001) { "Find File" };
resource rPString (1002) { "Stop" };
resource rPString (1003) { "Matches" };
resource rPString (1004) { "Starts With" };
resource rPString (1005) { "Ends With" };
resource rPString (1006) { "Contains" };


resource rTextForLETextBox2 (1007) { "File to search for:" };
resource rPString (1108) { "" };
\ No newline at end of file
diff --git a/IIGS.601.SRC/ToolBoxMisc/FindFileGS/MakeFile b/IIGS.601.SRC/ToolBoxMisc/FindFileGS/MakeFile
new file mode 100644
index 0000000..52ba9ff
--- /dev/null
+++ b/IIGS.601.SRC/ToolBoxMisc/FindFileGS/MakeFile
@@ -0,0 +1 @@
+#   File:       Makefile
#   Target:     'FindFIle'

App      = FindFile
		   
# make findfile desk accessory

{App}	ÄÄ	:Obj:FindFileDA.Code :Obj:FindFile.Rez.Out
	Duplicate -y :obj:FindFileDA.Code FindFile
	Duplicate -r -y :obj:FindFile.Rez.Out FindFile
#	duplicateIIgs -mac -y FindFile :
	if {AutoDuplicate} == 1
		DuplicateIIGS -y -mac FindFile :
	End

:Obj:FindFileDA.Code	Ä	makefile ¶
							:obj:DAInterface.asm.obj ¶
							:obj:ProcessLevel.asm.obj¶
							:obj:FindFileDA.p.obj
	LinkIIGS -t NDA ¶
		:obj:DAInterface.asm.obj ¶
		:obj:ProcessLevel.asm.obj¶
		:obj:FindFileDA.p.obj ¶
		-a period=20 ¶
		-a mask=$0FF7 ¶
		-lib "{PIIGSlibraries}"PLib ¶
		-o :obj:FindFileDA.Code

:obj:DAInterface.asm.obj Ä DAInterface.asm
	ASMIIgs  DAInterface.asm -o :obj:DAInterface.asm.obj

:obj:ProcessLevel.asm.obj Ä ProcessLevel.asm
	ASMIIgs  ProcessLevel.asm -o :obj:ProcessLevel.asm.obj

:obj:FindFileDA.p.obj Ä FindFileDA.p 
	#Always use the -r option when creating a desk accessory
	PascalIIGS  -r FindFileDA.p -o :obj:FindFileDA.p.obj
	
:obj:FindFile.Rez.Out Ä FindFile.Rez
	RezIIgs FindFile.Rez -o :obj:FindFile.Rez.Out
\ No newline at end of file
diff --git a/IIGS.601.SRC/ToolBoxMisc/FindFileGS/ProcessLevel.asm b/IIGS.601.SRC/ToolBoxMisc/FindFileGS/ProcessLevel.asm
new file mode 100644
index 0000000..5078f25
--- /dev/null
+++ b/IIGS.601.SRC/ToolBoxMisc/FindFileGS/ProcessLevel.asm
@@ -0,0 +1 @@
+*******************************************************************************
*
* Copyright 1990-1993 Apple Computer, Inc
* All Rights Reserved
*
* 26-Jan-93 SS -- Removed QDAuxStartup call
*
*******************************************************************************

	string asis
	blanks off

	print  push,off

	include 'All.macros'
	include 'E16.Menu'
	include 'E16.Event'
	include 'E16.Locator'

	Import CurrentDirPath
	Import MyOpenRec
	Import MyDirEntry
	Import TempNamePtr
	Import tempString
	Import MyClose
	Import MyID
	Import MyListCnt
	Import MyList
	Import ListCtrl
	Import AsmtoolErr
	Import MatchType
	Import MatchStr
	Import IdleWind
	Import VolPopUp
	Import StackHandle
	Import StackLevel
	Import PascalStack
	Import EntryCount
	Import Stopping
	Import SetMessage
	Import ListCtrl
	Import screenMode
	entry MyMemberDraw
	entry InsertIntoList
	entry InsertTheItem
	entry GetHandle
	entry SetPopup

	Entry AsmAddFile
	GBLA &Debug
&Debug	Seta 0
	print  pop

	EJECT
*******************************************************************************
*
SetAboutMessage	PROC Export
*
* Description:	This little routine will set the about message in the message 
*	box and cause it to be drawn.
*
*
* Inputs:	None
*
* Outputs:	None
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
	PushLong #VersionInfo
	jsl SetMessage
	rtl

VersionInfo	dc.B textEnd-textStart
textStart
	dc.B $01,$4A,$01,$00	; center justify
	dc.B 'Find File',$0d
	dc.B '©1990-93 Apple Computer Inc.',$0d
	dc.B 'by Mensch, Yee, Lyons, & Stephenson',$0D
	dc.B 'Tested by M.S. & B.K. & J.J.J'
textEnd
	EndP


*******************************************************************************
*
* InstallMyRequestProc
*
*   AcceptRequests(@reqProcName, MMStartUp, ffRequestProc);
*
*******************************************************************************
InstallMyRequestProc proc export
	import ffRequestProc

	pushlong #reqProcName
	pha
	_MMStartUp
	pushlong #ffRequestProc
	_AcceptRequests
	rtl

reqProcName	str 'Apple~FindFile~1.1~'

	EndP

*******************************************************************************
*
* ffRequestProc
*
* This is Find File's Request Procedure, installed by AcceptRequests.
*
* We watch for systemSaysMenuKey(Command-F) and open ourselves.
*
*******************************************************************************
ffRequestProc	PROC export

oldDPage	equ 1
RTL1	equ oldDPage+2
DataOut	equ RTL1+3
DataIn	equ DataOut+4
Request	equ DataIn+4
Result	equ Request+2
	
	phd
	tsc
	tcd
	
	phb
	phk
	plb

	lda <Request
	cmp #systemSaysMenuKey
	bne @notMenuKey

	jsr handleMenuKey
	ror <Result

@notMenuKey	plb

	pld
	lda 2,s
	sta 12,s
	lda 1,s
	sta 11,s
	ply
	ply
	ply
	ply
	ply
	rtl

*******************************************************************************
*
* handleMenuKey
*
* Respond to a systemSaysMenuKey request.
*
* dataIn = pointer to task record as passed to MenuKey
*
* dataOut:
*   +000: recvCount (filled in by Tool Locator)
*
* Return with SEC if we handled the request.
*
*******************************************************************************
	import ffMenuItemID
handleMenuKey	ldy #oModifiers
	lda [<dataIn],y
	and #appleKey+shiftKey+optionKey+controlKey+keyPad
	cmp #appleKey
	bne @notMe

	ldy #oMessage
	lda [<dataIn],y
	and #$00df
	cmp #'F'	;Command-F = our key equivalent
	bne @notMe

	pha	;space for OpenNDA result
	lda ffMenuItemID
	pha
	_OpenNDA
	pla	;ignore

	sec	;accept the request
	rts

@notMe	clc
	rts

	EndP


;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
;
; 	Equates
;
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
;

MenuItemPtr	equ 36	;This is the offset to menu mgr's direct page
;		;variable "itemptr"
y1	equ 0
x1	equ y1+2
y2	equ x1+2
x2	equ y2+2

ItemHeight	equ 12

;
; ------ MENU record -----------------------------------------
;
MenuID	equ 0	Menu's ID number.
MenuWidth	equ MenuID+2	Width of menu.
MenuHeight	equ MenuWidth+2	Height of menu.
MenuProc	equ MenuHeight+2	Menu's definition procedure.
MenuFlag	equ MenuProc+4	Bit flags.
MenuRes	equ MenuFlag+1	Future expansion (makes record even).
NumOfItems	equ MenuRes+1	Number of items in the menu
TitleWidth	equ NumOfItems+2	Width of menu's title.
TitleName	equ TitleWidth+2	Pointer to menu's title text.

MenuCache	equ TitleName+4	Handle of menu's cache.
ItemList	equ MenuCache+4	Array of items in menu.
MENUSIZE	equ ItemList	Size of menu record	with no items.

;
; ------ ITEM record -----------------------------------------
;
ItemID	equ 0	Item's ID number, zero = last item.
ItemChar	equ ItemID+2	Keyboard equvalent,	display in item.
ItemAltChar	equ ItemChar+1	Alternate keyboard equvalent, not shown.
ItemCheck	equ ItemAltChar+1	Item's mark.
ItemFlag	equ ItemCheck+2	Bit flags.
ItemName	equ ItemFlag+2	Pointer to item's text.
ITEMSIZE	equ ItemName+4	Size of ITEM record.

ItemFlag2	equ 0	control attributes of structure
ItemTitleRef	equ ItemFlag2+2	reference to item name
ItemIconRef	equ ItemTitleRef+4	reference to icon associated with item

ItemStructSize	equ ItemIconRef+4	size of structure

MaxEntries	equ 200
MaxPerLevel	equ 1
	
; this used to save some room

PushLongVolPopup	Proc
	plx
	lda >VolPopup+2
	pha
	lda >VolPopup
	pha
	phx
	rts
	EndP

;------------------------------------------------------------------
;
;	GSOStoPString
;
; Converts a GS/OS output string to a pstring.
;
;  IN: ptr to dest pstring:LONG	(Destination)
;      ptr to GSOS output string:LONG	(Source)
;
; OUT: dest has been converted to a pstring
;
;------------------------------------------------------------------
GSOStoPString	PROC EXPORT
i	equ 1
oldDPage	equ i+2
theRTL	equ oldDPage+2
Source	equ theRTL+3
Dest	equ source+4

	phd
	pha	; make room for the data
	tsc
	tcd	; set our new direct page...
;
; Start by getting the proper length into i and dest
	lda [<source]	; its the first word of the source
	cmp #$0100	; is it too large???
	blt @SizeOK	; size is ok, 
	lda #$00FF	; else make it smaller
@SizeOK	sta <i	; save the size...
	sta [<Dest]	; and save the size in our pstring
; now bump the source pointer by one so we can use the same offset all the time
	inc <source
	bne @1
	inc <source+2
@1
; Now start the copy
	sep #$20
	Longa Off	; do it a byte at a time...
	ldy <i	; get our index
@CopyLoop	lda [<source],y	; get a source byte
	sta [<dest],y	; and save it
	dey	; lower the count by 1
	bne @CopyLoop	; loop till zero
; Now that we are all copied clean up after ourselves and leave
	plx	; pull off the crap
	pld	; pull off the direct page
	pla	; save the return address
	ply	; NOTE: A still in short mode
	
	plx	; discard the input parms
	plx
	plx
	plx
	
	phy	; put the return address back
	pha
	rep #$20	; turn long <A> back on
	longa On
	lda #0
	clc	; exit like a tool call
	rtl	; and leave
	EndP

;---------------------------------------------------------------------------
;
; Global record for use with the popup menu stuff and disk switch stuff.
;
;---------------------------------------------------------------------------
popUpGlobals	record
	
Count	ds.w 1	; stores the number of items in the menu
MenuItemTemplate	
Version	dc.w 0	; must be zero
MyItemID	ds.w 1	
	dc.b 0	; ItemChar, no key equivs...
	dc.b 0	; ItemAltChar
	dc.w 0	; ItemCheck
	dc.w $4520	; bits 9 and 10 describe the item struct. 
;		; ItemFlag, XOR hiliting, title is a handle
ItemStruct	ds.l 1	; This will be a handle to the volume name

;
; ---- GS/OS parameter block definitions --------------
;

SearchDevNum	ds.w 1	; Device number that was last searched (22-May-91 MSD)

DInfoPBlock	dc.w 8	; pcount
DevNum	ds.w 1	; device number 
	dc.l DevNameBuffer	; pointer to buffer to store device name
Characteristics	ds.w 1	; characteristics
	ds.l 1	; totalBlocks
	ds.w 1	; slotnum
	ds.w 1	; unitnum
	ds.w 1	; version 
DeviceID	ds.w 1	; deviceID

VolumePBlock	dc.w 2	; pcount
	dc.l DevName	; device name (GS/OS input string)
	dc.l VolNameBuffer	; pointer to buffer to store volume name
	

DevNameBuffer	dc.w 35	; word length count
DevName	ds.b 35	; buffer to store device name

VolNameBuffer	dc.w 35	; word length count
VolumeName	ds.b 35	; buffer to store volume name

GetVolNameFlag	ds.W 1	; flag for get vol name...

DStatusPBlock	dc.W 5	; pCount
DStatDevNum	ds.W 1	; device number
	dc.W 0	; status code
	dc.L StatusList	; status info returned here
	dc.L $00000002	; request count, no. of bytes to return
	ds.L 1	; amount of info actually returned
StatusList	
StatusWord	ds.W 1	; status word returned for device

NotifyPBlock	dc.w 1	; pCount
theRoutine	ds.L 1	; the notificaton proc

DiskEject	equ $0010

DeviceSwitched	ds.w 1
DeviceInserted	ds.w 1

theName	ds.L 1

StaticDeviceTable	ds.B 128	;table of devices not to make DStatus call on.


	EndR


;==============================================================================
;
;	PollDevices
;
; This routine just polls all devices making DStatus calls on them, trying to
; trigger a disk switch event. If one occurs then GS/OS calls my routine 
; NotificationPROC to handle the event.
;
;==============================================================================
PollDevices	PROC EXPORT
	Import ServiceDiskSwitch

	with PopUpGlobals

	phb
	phk
	plb

*** added 23-Apr-91 DAL -- limit polling frequency to 1.5 seconds
	jsr GetTick
	sec
	sbc prevPollTick
	cmp #180
	bcc DoNothing
*** end of 23-Apr-91 DAL

	stz DStatDevNum	;reset the device number so we can search from begining

BigLooper	inc DStatDevNum	;check next device
	lda DStatDevNum	;Check our table to see if this device even needs to be 
	cmp #65	;polled. Non-removable devices and 5.25s are not polled.
	bcs @done	;exit when we reach our 64 device limit
	asl a
	tax
	lda StaticDeviceTable-2,x
	bmi BigLooper

	_DStatusGS DStatusPBlock
	bcc BigLooper	;loop until we run out of devices

@done
*** added 23-Apr-91 DAL
	jsr GetTick
	sta prevPollTick
*** end of 23-Apr-91 DAL

DoNothing	plb 

	rtl

prevPollTick	dc.w 0

GetTick	pha
	pha
	_TickCount
	pla
	plx
	rts

	ENDP


;==============================================================================
;
;	NotificationPROC
;
; This is the routine that gets installed into GS/OS's notification queue. 
; NumVolumes is incremented or decremented depending on the disk switch. We
; save off the device number of the disk that got switched and the flag that 
; tells us whether an insertion or ejection occurred.
; We pay particular attention to disk ejects that occurred on the currently
; displayed volume.
;
; On entry:	Acc = device number
;	event_code = bit 4 set = eject
;	             bit 3 set = insert
;
;==============================================================================
NotificationPROC	PROC EXPORT
	with PopupGlobals
	
Reserved1	ds.L 1	;link to next task in queue
Reserved2	ds.W 1	
Signature	dc.W $A55A
Event_flags	dc.L $00000018	;want disk inserts/ejects
Event_code	ds.L 1	;curent event code will be put here by GS/OS
	
	with PopUpGlobals
	
	phk 	;first set the data bank correctly
	plb	
	
	cmp #65	; beyond our 64-device limit?
	bcs @done	; yes, just ignore it

	tay	; move device number of disk switched device into y-reg
	asl a
	tax
	lda StaticDeviceTable-2,x
	bmi @Done	; ignore 5.25's and non-removeable media drives
	
	lda Event_Code	;save flag that tells us whether an insert or eject happened
	lsr a
	lsr a
	lsr a
	and #%0011
	ora StaticDeviceTable-2,x
	sta StaticDeviceTable-2,x
	sty DeviceSwitched	;set flag to show that we've been through here
		;list is automatically redrawn on disk insertion.
@Done	rtl

	ENDP

	
	
;==================================================
; This routine inserts the notification routine 
; into the GS/OS notification queue to get   
; informed of disk switch events
;==================================================
CallNotifyProc	Proc Export
	with PopupGlobals
	
	phb
	phk
	plb
	
	lda #NotificationPROC
	sta theRoutine
	lda #^NotificationPROC
	sta theRoutine+2
	
	_AddNotifyProcGS NotifyPBlock
	
	plb
	
	rtl
	
	EndP
	
;==================================================
; This routine removes the notification routine 
; from the GS/OS notification queue 
;==================================================
CallDelNotifyProc	Proc Export
	with PopupGlobals
	
	phb
	phk
	plb
	
	_DelNotifyProcGS NotifyPBlock
	
	plb
	
	rtl
	
	EndP
	
;===========================================================
;
;===========================================================
ServiceDiskSwitch 	Proc Export
	with PopupGlobals
	
	phb
	phk
	plb

	lda DeviceSwitched	; check if there was a disk switch
	bne gotSwitch
	brl exit	; that was easy!
gotSwitch	
	pha	; save current menu bar on the stack
	pha
	_GetMenuBar
	
	jsr PushLongVolPopup ; set new menu bar to popup control
	_SetMenuBar

	stz DeviceInserted	; init this

	ldx #0	; now we walk the list, looking for ANY disk switch
@switch_loop
	lda StaticDeviceTable,x
	bmi @skip_it	; skip over 5.25's and non-removables
	beq @skip_it	; no eject/insert here!
	phx	; save index
	txa	; convert to device number
	lsr a
	inc a	; adjust for 1-based array
	sta DeviceSwitched	; set this for the update_menu subroutine
	jsr update_menu	; go update the popup
	plx	; retrieve index
	lda StaticDeviceTable,x ;get the eject/insert bits
	and #%0001	; was the device inserted?
	beq @no_insert	; no...
	lda DeviceSwitched	; else save the device number
	sta DeviceInserted	; so we can update the menu properly
@no_insert
	stz StaticDeviceTable,x
@skip_it
	inx	; step to next device
	inx
	cpx #128	; maximum of 64 devices in table
	bcc @switch_loop

; now that we've handled all the ejects/inserts, update the displayed menu

	lda DeviceInserted	;the last device number that was inserted
	bne @use_this
	pha	; get the current setting
	jsr PushLongVolPopup
	_GetCtlValue
	pla
	cmp DeviceSwitched	; was the ejected device currently set?
	beq @reset	; if so, reset menu to first device
@use_this
	pha
	jsr PushLongVolPopup
	_SetCtlValue	; set popup result to name of newly inserted disk

	pha	; now let's make sure it was a valid value
	jsr PushLongVolPopup
	_GetCtlValue
	pla
	bne @was_valid
@reset
	pha	; space for result
	pea 1	; menu id
	_CountMItems	; is there anything in the menu?
	pla
	beq @was_valid	; nope, just leave it set to 0
	
	jsr SetPopup
@was_valid
	pea 0	; width
	pea 0	; height
	pea 1	; ID of menu
	_CalcMenuSize
	
	_SetMenuBar	; restore original menu bar
exit	
	stz DeviceSwitched	; set up for next time through the loop
	
	plb
	
	rtl

update_menu
;
; ----- Handle disk ejection -----------------------------------
;
doEject

; ----- Get rid of the memory for the item struct assoc. with this item
;
DPage	equ 1
thePtr	equ DPage+2
theHandle	equ thePtr+4

	lda #0	; space for result
	pha
	pha
	lda DeviceSwitched
	pha	; that's our menu item number
	ldx #$4A0F
	jsl $E10000	; GetItemStruct
	bcs doInsert	; it wasn't in the menu to begin with!
	lda 1,s	; was the item really there?
	ora 3,s
	beq doInsert	; no...

	pha	; space for derefing itemstruct so we can get at 
	pha	; the handle to the item's name
	phd
	tsc
	tcd
	
	lda [<theHandle]	; deref handle to itemstruct
	sta <thePtr
	ldy #2
	lda [<theHandle],y
	sta <thePtr+2
	
	ldy #ItemTitleRef+2	; get rid of the handle we got for the item's name
	lda [<thePtr],y
	pha
	ldy #ItemTitleRef
	lda [<thePtr],y
	pha
	_DisposeHandle
	
	pld
	pla	; remove the ptr to itemstruct
	pla
	_DisposeHandle	; now get rid of handle to itemstruct itself (still on stack)

	
	PushWord DeviceSwitched
	_DeleteMItem	; get rid of the device ejected from the popup

	bra doInsert2
	
; 
; ----- Handle disk insertion -------------------------------------
;
doInsert
	pla	;clean up stack from GetMItemStruct call
	pla
doInsert2
	lda DeviceSwitched
	sta DevNum
	_DInfoGS DInfoPBlock
	bcs errorExit
	_VolumeGS VolumePBlock
	bcs errorExit

	lda #33	; size of memory block we want
	jsr GetHandle
	bcs errorExit

	phx
	pha
	phd	; save original direct page
	
	tsc	
	tcd	; turn stack into direct page so we can deref handle

origD	equ 1
Handle 	equ origD+2

	lda [<Handle]
	tax
	ldy #2
	lda [<Handle],y
	pld	; restore direct page 
	
	pha	; destination of PString
	phx
	PushLong #VolumeName ; GS/OS output string to convert
	jsl GSOStoPString
	
	pla	; get handle for volume name off stack and return
	plx	; in a and x registers back to calling program
	
	jsr InsertTheItem
	
errorExit
	rts

	EndP
	
	
;===========================================================
; This routine sets the popup control result to the first
; menu item in the popup.
;===========================================================
SetPopup	Proc
	with PopupGlobals
	
OrigD	equ 1
theMenu	equ OrigD+2


	pea 0	; space for result 
	pea 0	; space for result
	pea 1	; menu ID
	_GetMHandle
	phd
	tsc	; turn stack into direct page
	tcd
	
	ldy #2
	lda [<theMenu],y
	tax
	lda [<theMenu]
	sta <theMenu
	stx <theMenu+2
	
	ldy #ItemList	; offset to first item in the menu
	lda [<theMenu],y	; first word in item record is the item id
	
	pld	; restore original direct page
	plx	; remove ptr to popup control
	plx	
	
	pha	; item ID
	jsr PushLongVolPopup
	_SetCtlValue
	
	rts
	
	EndP

;===========================================================
; This routine inserts the specified volume name (handle in 
; a & x registers) into the popup menu.
;===========================================================
InsertTheItem	Proc
	with PopupGlobals
	
	phx 	; store volume name on stack for now
	pha 
	
	lda #ItemStructSize
	jsr GetHandle
	bcc @gotMem2
	
	_DisposeHandle	; get rid of the handle we just got for the volume name
	sec
	rts
	
@gotMem2	phx
	pha
	stx ItemStruct+2	; store handle to item struct in our menu item template
	sta ItemStruct

theDPage	equ 1
tempPtr	equ theDPage+2
theStruct	equ tempPtr+4
theVolName	equ theStruct+4

	phx	; make space for temporary pointer
	pha
	phd	; save current direct page register
	tsc	; turn stack into direct page
	tcd
	
	ldy #2	; deref handle to the item struct
	lda [<theStruct],y
	tax
	lda [<theStruct]
	sta <theStruct
	stx <theStruct+2

; *** Removed 16-Mar-92 DAL, because the Menu Manager takes care of this now
;
;; Before we place the volume name into the menu, we must make sure that it isn't so
;; long that it extends into the down-arrow at the right end of the menu.  If it is
;; too long, we simply reduce the length and add an ellipsis as the last displayable
;; character.
;
;	lda [<theVolName],y	; deref handle to volume name
;	sta <tempPtr+2
;	lda [<theVolName]
;	sta <tempPtr
;@shortened
;	pha	; make space for result
;	pei <tempPtr+2	; string pointer
;	pei <tempPtr
;	_StringWidth	; how long is this sucker???
;	pla
;	cmp #98	; too long?
;	bcc @good_length	; nope, we can use it as is
;	sep #$30	; 8-bit registers
;	longa off
;	longi off
;	lda [<tempPtr]	; get the length
;	dec a	; reduce by 1 character
;	sta [<tempPtr]	; store the new length
;	tay	; index to new last character
;	lda #'É'	; replace with elipsis
;	sta [<tempPtr],y
;	rep #$30	; back to 16-bit accumulator
;	longa on
;	longi on
;	bra @shortened	; go back and try again
;
;@good_length

*** 16-Mar-92 DAL -- strip leading colon off the volume name
	ldy #2
	lda [<theVolName],y	; deref handle to volume name
	sta <tempPtr+2
	lda [<theVolName]
	sta <tempPtr

	ldy #1
	lda [<tempPtr],y
	and #$00ff
	cmp #$003a
	bne @notColon

	ldx <tempPtr+2
	lda <tempPtr
	clc
	adc #2
	bcc @1
	inx
@1	phx
	pha	;source = tempPtr+2
	ldx <tempPtr+2
	lda <tempPtr
	inc a
	bne @2
	inx
@2	phx
	pha	;dest = tempPtr+1
	pea 0	;size high = 0
	lda [<tempPtr]
	and #$00ff
	dec a
	pha	;size low = pstring length - 1
	_BlockMove

	lda [<tempPtr]
	dec a
	sta [<tempPtr]
@notColon
*** end 16-Mar-92

	ldy #ItemFlag2
	lda #$8000	; bit 15 indicates item has an icon associated with it
	sta [<theStruct],y
	ldy #ItemTitleRef	; store item title in its new location
	lda <theVolName
	sta [<theStruct],y
	lda <theVolName+2
	iny
	iny
	sta [<theStruct],y

*** use GetSysIcon instead of our local hard-coded icons, 23-Apr-91 DAL
	pha
	pha	;space for GetSysIcon result
	pea 1	;get a device icon
	lda DeviceID
	pha
	pha
	pha	;auxvalue ignored
	_GetSysIcon
	pla
	ldy #ItemIconRef
	sta [<theStruct],y
	iny
	iny
	pla
	sta [<theStruct],y
*** end of 23-Apr-91 DAL

	pld	; turn direct page back into our stack
	tsc	; clean up stack
	clc
	adc #12
	tcs
	
	lda DevNum
	sta MyItemID	; set item id to that of the device number
	
	pea 0	; refdesciptor = 0, ptr to item template
	PushLong #MenuItemTemplate
	pea $FFFF	; insert at end of list
	pea 1
	_InsertMItem2
	
	clc

	rts
	
	EndP
	
;----------------------------------------------------------------------
;
;----------------------------------------------------------------------
AddVolumeMenu	Proc Export
;
; Stack for this call...
tempDeref	equ 1
tempHandle	equ tempDeref+4
MyRefNum	equ tempHandle+4
MyPathLevel	equ MyRefNum+2
i	equ MyPathLevel+2
lastDevNum	equ i+2
OldDPage	equ lastDevNum+2
OldDB	equ OldDPage+2
theRTL	equ OldDB+1
FrameSize	equ theRTL
;
; Begin by setting up our stack frame......

	phb
	phd
	tsc
	sec
	sbc #FrameSize
	tcd
	tcs

	phk
	plb	
; First, build a list of volume names
;END

	jsr CreatePopUp	; call NewControl2 to create, and the add all
;		; the names of all volumes on-line into the popup
; end; {procedure}
EndVolMenu
	tdc	; unlink our local frame
	clc
	adc #FrameSize
	tcs	; make it our current stack
	pld	; recover the orihginal dpage
	plb
	RTL

	
;===========================================================
;
; 	CreatePopup
;
; This routine creates an empty popup control, makes
; the popup control the current menubar, then adds
; all the names of the volumes on-line into the popup
; and then restores the original menubar.
;
;===========================================================
CreatePopup	
	_WaitCursor
	
	pha	; space for result from NewControl2
	pha
	PushLong >idleWind	; push grafport ptr
	PushWord #0	; input ref is a pointer to a single item template
	PushLong #PopUpControl1
	_NewControl2
	pla
	sta >VolPopUp
	pla
	sta >VolPopUp+2
	
	pha	; space for handle to menubar
	pha
	_GetMenuBar	; save current menubar, leave handle on stack
	
	jsr PushLongVolPopup ; set menubar to popup menu so we can 
	_SetMenuBar	; operate on the popup
	
	jsr AddItems	; find all volumes on-line and insert into popup 
	
	pea 0	; calculate height and width of newly formed
	pea 0	; volumes popup
	pea 1	; ID of menu to calculate
	_CalcMenuSize
		
	_SetMenuBar	; Restore original menubar
	
	_InitCursor
	
	rts
	
; ---------------------------------------------------------------------
; NewControl2 template for a popup control.
; ---------------------------------------------------------------------
PopUpControl1	dc.w 9	; pcount
	dc.l 1	; ID of control
	dc.w 5+1,10,18,220	; rectangle for popup control (8-Dec-91 DAL)
	dc.l $87000000	; popup procref
	dc.w $0060	; type 2 popup, don't hilite title, {right justify title}
	dc.w $10A0	; more flags, fctlProcNotPtr, fDrawIconInResult, fDrawArrowIcon
	dc.l 0	; no refcon
	dc.w 0	; title width
	dc.l PopupMenu1	; ptr to menu item list
	dc.w 1	; initial value of popup selection
	
PopupMenu1	dc.w 0	; version, must be zero
xMenuID	dc.w 1	; id of popup menu
	dc.w $0000	; menu flag
	dc.l PopupTitle1	; title of popup menu
	dc.l 0000	; no items, empty menu
	
PopupTitle1	str 'Disks: '

;==================================================
;
; 	AddItems
;
; This routine calls routine GetNextVolume, which 
; returns the next volume that is online. This 
; volume is then inserted into the "volumes" popup.
;
;==================================================
AddItems	
	With popUpGlobals

; First we zero out the device table

	ldx #128
@ZeroLoop	stz StaticDeviceTable-2,x
	dex
	dex
	bne @ZeroLoop

	stz DevNum	; start looking starting at DevNum = 1
	
;
; ----------- First make sure the popup is empty -------------------------
;
	pha	; space for result
	pea 1	; ID of menu we want
	_CountMItems
	pla 
	sta Count

	beq @PopupEmpty
	
	pea 0	 ; new value of popup selection
	jsr PushLongVolPopup ; this erases current result
	_SetCtlValue
	
@DeleteAnother	pea $FFFF	; to delete last item
	_DeleteMItem
	
	dec Count
	lda Count
	bne @DeleteAnother

	pea 0	; width
	pea 0	; height
	pea 1	; ID of menu
	_CalcMenuSize
	
	lda >MyID
	ora #$0600
	pha
	_DisposeAll	; get rid of all other handles allocated for volume names
	
@PopupEmpty	lda #0
	sta >getVolNameFlag
InsertNext
	jsr GetNextVolume	; returns with a & x set to ptr to the volume name
	bcs NoMoreVolumes

	jsr InsertTheItem
	bcc InsertNext

NoMoreVolumes	
	jsr SetPopup	; sets result of popup to first menu item
	
	stz DeviceSwitched

	rts


;==================================================
;
; 	GetNextVolume
;
; This routine returns the volume name of the next 
; volume that is on-line.
;
; Each time into this routine we bump the device 
; number to use as input to _DInfo so we always get
; the next device. _DInfo returns the device name
; which in turn is used as input to _Volume which
; returns the volume name.
; 
; For each new device that we ecounter we get a new
; handle to store this name.
;
; When we finally get error $11(invalid device number)
; from _DInfo we know there are no more devices. 
; We set the carry upon exit from this routine when
; we encounter this error.
;
; GetNextVolume always returns either a valid volume
; name or carry set which means no more volumes found.
;
; OUT: a = low word of handle to volume
;      x = high word of handle to volume
;
;==================================================
	export GetNextVolume
GetNextVolume	
	with popUpGlobals
	
	import GSOStoPString
	

NextDevice	inc DevNum	; bump the device number to search
	
	_DInfoGS DInfoPBlock ; make GS/OS call
	bcc NoError
	
	cmp #$11	; check for "invalid device number" error
		; if we get this then we're done
	bne NoError
	brl NoMoreDevices
NoError	
	lda DeviceID
	bne MakeVolumeCall
	
;
; ----- We've got a 5.25 drive -----------------------------------------
;
	lda DevNum
	sta DStatDevNum
	_DStatusGS DStatusPBlock
	
	lda StatusWord
	and #$0010	; Is there a disk in the 5.25 drive
	beq NextDevice	; If OS says there is then the drive is on-line, else...
	
	jsr InsertIntoList
	
	lda #DevName
	sta theName
	lda #^DevName
	sta theName+2
	bra doNewHandle
	
MakeVolumeCall
	_VolumeGS VolumePBlock
	bcs NextDevice	; if we get an error then we need to go to next device
	lda #VolumeName
	sta theName
	lda #^VolumeName
	sta theName+2
	
	lda Characteristics
	and #$0004	; Check if this device contains removable media
	bne doNewHandle
	jsr InsertIntoList
	
doNewHandle
	lda #33	; size of memory block we want
	
	jsr GetHandle	; a = low word of handle, x = high word
	bcs NoMoreDevices	; get out if we couldn't get the memory to store the name 
	
	phx
	pha
	phd	; save original direct page
	
	tsc	
	tcd	; turn stack into direct page so we can deref handle

origD	equ 1
Handle 	equ origD+2

	lda [<Handle]
	tax
	ldy #2
	lda [<Handle],y
	pld	; restore direct page 
	
	pha	; destination of PString
	phx
	PushLong theName    ; GS/OS output string to convert
	jsl GSOStoPString
	
	pla	; get handle for volume name off stack and return
	plx	; in a and x registers back to calling program
	
	clc	; no error
	rts
	
NoMoreDevices	sec
	rts
	
	EndP
	
;==================================================
;
;	GetHandle
;
;  IN: a = number of bytes to allocate
;
; OUT: carry clear is handle allocated, a+x = handle
;      carry set if error, y = error returned by Mem Mgr
;
;==================================================
GetHandle	PROC
	with popUpGlobals

	pha	; space for returned handle
	pha
	pea 0	; high word of size
	pha	; low word of size, passed as input to routine
	lda >MyID
	ora #$0600	; set ID to $x1xx so we can get rid of this memory easily
	pha	
	pea 0	; no attributes
	pha
	pha
	_NewHandle
	tay
	pla	; a = low word  
	plx	; x = high word
	
	rts
	

	EndP
	
	
	
;------------------------------------------------------------------
;
;	InsertIntoList
;
; Inserts device into list of non-removable media devices. This is 
; the list that is used to determine whether a device should be 
; polled for disk switch or not. (i.e. should we make the DStatus
; call on the device) Apple 5.25 drives are also included in this
; list.
;
;------------------------------------------------------------------
InsertIntoList	PROC
	with PopUpGlobals
	
	lda DevNum	;use device number as index into this list
	cmp #65	;beyond our 64-device limit?
	bcs @skip_it	;yes, just ignore it

	asl a
	tax
	lda #$8000
@StoreIt	sta StaticDeviceTable-2,x 	
@skip_it	
	rts
	
	ENDP
	
;------------------------------------------------------------------
; 22-May-91  MSD	Now saves device number that we'll be searching
;	in a separate variable so that we can use it
;	later to display the correct volume icon in the
;	path display for a file.
;
;------------------------------------------------------------------
MakeCurPath	Proc Export
	with popUpGlobals
	import GetNextVolume
;
OldDPage	equ 1
OldDBank	equ OldDPage+2
theRTL	equ oldDBank+1
theResult	equ theRTL+3

	phb
	phk
	plb
	phd
	tsc
	tcd
	
	lda #$FFFF
	sta theResult
	
	pha
	jsr PushLongVolPopup
	_GetCtlValue
	pla
	sta SearchDevNum	; remember device number we're searching (22-May-91 MSD)
	sta DevNum
	_DInfoGS DInfoPBlock ; find out the device name
	bcs ErrorExit
noError
	_VolumeGS VolumePBlock ; now get the volume name
	bcs ErrorExit

	PushLong #CurrentDirPath
	PushLong #VolumeName
	jsl GSOStoPString	; convert to pstring

gotPath
	lda >CurrentDirPath
	inc a
	sta >CurrentDirPath
	and #$00FF
	tax
	lda #':'
	sta >CurrentDirPath,x
exit	pld
	plb
	rtl
	
ErrorExit	
	stz theResult
	
	PushLong #theMessage
	jsl SetMessage
	bra exit

theMessage	dc.B textEnd-textStart
textStart	dc.B $01,$4A,$00,$00
	dc.B 'Problems reading the disk.'
textEnd
	EndP


*******************************************************************************
*
* MakeSureExtraToolsAreHere -- load and start other tools as needed
*
*******************************************************************************
MakeSureExtraToolsAreHere proc export

*** removed 26-Jan-93 SS -- not needed in 6.0
;	pea 0
;	_QDAuxStatus
;	pla
;	bne @ok
;
;@again	pea $0012	;tool number = QD Aux
;	pea $0304	;version 3.4
;	_LoadOneTool
;	bcs @again
;
;	_QDAuxStartUp
;@ok
*** end 26-Jan-93

*** added 24-Sep-91 DAL -- make sure List Manager is here, too
	pea 0
	_ListStatus
	pla
	bne @ListOK

@listAgain	pea $001C	;tool number = List Manager
	pea $0303	;version 3.3
	_LoadOneTool
	bcs @listAgain

	_ListStartUp
@ListOK
*** end 24-Sep-91
	rtl


	EJECT
*******************************************************************************
*
GetUpTextFromLE	PROC Export
*
* Description:	This routine returns a Pascal string from a line edit item
*	that is all upper case. All you do is pass the LERechandle
*	and I do the rest!
*
*
* Inputs:	theLERecHandle:Handle
*	theStr:Str32;
*
* Outputs:	none
*
* External Refs:	none
*
* Entry Points:	none 
*
*******************************************************************************
;
; Stack frame for this call...
tempPtr	equ 1
oldDPage	equ tempPtr+4
theRTL	equ oldDPage+2
theStr	equ theRTL+3
theLERecHandle	equ theStr+4
;
; First link a stack frame...
	phd
	pha
	pha
	tsc
	tcd
	
;
; Now get the length of the text we are going to use...
	pha
	pei theLERecHandle+2
	pei theLERecHandle
	_LEGetTextLen
	tax
	pla
	bcc @cont
	brl Anerror
	
@Cont	sta [theStr]	; save the length in the string...
	beq Done	; if its zero, then we are done!
;
; Now get the string handle from line edit...
	pha
	pha
	pei theLERecHandle+2
	pei theLERecHandle
	_LEGetTextHand
	tax
	pla
	sta tempPtr
	pla
	sta tempPtr+2
	bcc @Cont1
	brl AnError
;
; Now that we have all the data move it into the string!
@Cont1
	ldy #2	; deref the handle
	lda [tempPtr],y
	tax
	lda [tempPtr]
	bne @ItsOK
	dec a
	dex
	bra @cont3
@ItsOK
	dec a	; remember to remember the based data
@Cont3	sta tempPtr
	stx tempPtr+2	; we now have a pointer to that data!
	
	lda [theStr]
	tay	; init our counter...
	sep #$20
	longa Off
@Loop
	lda [tempPtr],y
	cmp #'A'
	blt @Loop10
	cmp #'Z'+1
	bge @Loop10
	ora #$20
@Loop10	sta [theStr],y
	dey
	bne @Loop
	rep #$20
	longA On
Done
	pla	; unlink the stack
	pla
	pld
	sep #$20
	longa Off
	pla
	ply
	
	plx
	plx
	plx
	plx
	
	phy
	pha
	rep #$20
	longa On
	RTL
AnError	txa
	sta AsmToolErr
	bra Done
	EndP
	
	EJECT
*******************************************************************************
*
CreatePathList	PROC Export
	with PopupGlobals
*
* Description:	This routine will take a pointer to a string and turn it into
*	a list to be displayed by the list manager.
*
*
* Inputs:	theStr:str255
*
* Outputs:	None
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
; My member record for use with the passed member record
MemString	equ 0	; 4
MemFlag	equ MemString+4	; 6
MemFullName	equ MemFlag+2	; 10
MemType	equ MemFullName+4	; 12
MemAux	equ MemType+2	; 16
MemEOF	equ MemAux+4	; 20 member record is 20 bytes...
MemRecSize	equ MemEOF+4
;
;
tempPtr	equ 1
tempInt	equ tempPtr+4
OldDBank	equ tempInt+2
OldDPage	equ OldDBank+1
theRTL	equ OldDPage+2
theInStr	equ theRTL+3
ThisRtnAux	equ $0300	; subID for all memory used by this routine
;
; First thing, get rid of any old pathlist data...
	lda >MyID
	ora #ThisRtnAux
	pha
	_DisposeAll	; dump the old handles
	
	phd
	phb
	phk
	plb	; switch to this databank...
	pha
	pha
	pha
	tsc
	tcd	; set up our stack frame...
;
; Now clean out my pathname list list...
	ldx #SizeOfPathList-2
	lda #0
@CleanLoop	sta PathList,x
	dex
	dex
	bpl @CleanLoop
;
; Now that the path list is all cleaned out, let's create the list of names!
;
	lda [theInStr]	; set the current length
	and #$00FF
	sta PathLeft
	jsr StripFileName 	; strip off the first file name throw it away
	stz <TempInt	; create item number 0!
@NextName
; To Add a name to the list, allocate a handle for its file name...
	jsr StripFileName	; get the next level up...
	ldx #0
	pha	; room for result
	pha
	phx	; size of handle
	pha	; <A> has size of handle to get...
	lda >MyID
	ora #ThisRtnAux	; special stack memory
	pha
	pea $4000	; fixed
	phx
	phx	;
	_NewHandle
	pla
	sta <TempPtr
	pla
	sta <TempPtr+2
	lda [tempPtr]
	tax
	ldy #2
	lda [tempPtr],y
	sta <tempPtr+2
	stx <TempPtr	; deref the handle...
; now copy the file name into the handle...
	lda tempNameBuf	; get the length of the string...
	and #$00FF
	tay
	longa off
	sep #$20
@CPLoop	lda TempNameBuf,y
	sta [TempPtr],y
	dey
	bpl @CPLoop
	rep #$20
	longa on
; now build the proper list entry...
	lda <tempInt	; get the entry number
	asl a	; multiply it by 20.. (list size...)
	asl a	; by 4
	pha
	asl a
	asl a	; by 16
	clc
	adc 1,s	; create *20
	plx	; discard our temp..
	tax	; and put the offset into <X>

	lda <TempPtr
	sta PathList+MemString,x
	lda <TempPtr+2
	sta PathList+MemString+2,x
; set the flags...
	lda #$000F	; say its a folder for now...
	sta PathList+MemType,x
	lda #$8060
	sta PathList+MemFlag,x
; and the entry is made! Now, determine if we need to get more stuff
	lda PathLeft
	beq @ListDone
	lda <tempInt	; bump the list entry count
	cmp #$000F	; we at 16 entries yet?
	bge @ListTooBig
	inc a
	sta <TempInt
	brl @NextName	; and do another entry
@ListDone
; Note at this point <X> still points to our list entry
	lda #$0001
	sta PathList+MemType,x
@ListTooBig
; Now its time to do the new list2 call on this here list...
; 	PathList:=getCtlHandleFromID(IdleWind,1015 + screenMode);
;	ShowControl(PathList);
	PushLong #MyMemberDraw
	pea 1
	PushLong #PathList	
	pea 0
	lda <tempint
	inc a
	pha
; 
	pha
	pha
	PushLong >IdleWind
	ldx #0
	lda >screenMode
	clc
	adc #1015
	bcc @1
	inx
@1	phx
	pha
	_GetCtlHandleFromID
	_NewList2
; now the list is made and can be displayed at will!
	pla
	pla
	pla
	plb
	pld
	longa off
	sep #$20
	pla
	ply
	plx
	plx
	phy
	pha
	longa On
	Rep #$20
	rtl
;
; This next routine strips a file name down to the colon and stores it in
; the temp buffer...
StripFileName
	longa off
	sep #$20
	ldy PathLeft	; index into the string
	ldx #0	; index into tempnamebuf
@StripLoop1	lda [theInStr],y	; get the next value...
	dey	; lower our string counter..
	inx
	cmp #':'	; if its a colon the pathname is over..
	bne @StripLoop1
; ok, we now know the length of the string to move and 
; now copy the string...
	stx TempNameBuf	; save the string length first!
	cpx #0
	beq @SL2Done
	ldy PathLeft
@StripLoop2	lda [theInStr],y
;;;	sta TempNameBuf,x
*** 8-Dec-91 DAL
	cpx #1
	beq @skipColon
	sta TempNameBuf-1,x
@skipColon
*** end 8-Dec-91 DAL
	dey
	dex
	bne @StripLoop2
@SL2Done
; the string is done, now update the PathLeft Value...
	sty PathLeft	; and save the value...

*** 8-Dec-91 DAL
	dec TempNameBuf	;we skipped the leading colon
*** end 8-Dec-91

	lda TempNameBuf	; get the length in <A>
	rep #$20
	longa On
	and #$00FF
	inc a	; account for the length byte 
	rts	; and return
		
PathLeft	ds.W 1
PathList	ds.B MemRecSize*16	; allow 16 levels of directories...
SizeOfPathList	equ *-PathList	; bytes in our local pathlist..
TempNameBuf	ds.B 32	; enough to hold a single pathname
	endp

	
	EJECT
*******************************************************************************
*
MyMemberDraw	PROC Export
	with PopupGlobals
*
* Description:	Procedure used to draw members in my list. This procedure will
*	take care of drawing each member in the list as well as drawing
*	the proper small icon to the left of it.
*
*
*
; My member record for use with the passed member record
MemString	equ 0
MemFlag	equ MemString+4
MemFullName	equ MemFlag+2
MemType	equ MemFullName+4
MemAux	equ MemType+2
MemEOF	equ MemAux+4
* Inputs:	None
*
* Outputs:	None
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
; theStack
thedPage	equ 1
theRTL	equ thedPage+2
ListHndl	equ theRTL+3
memPtr	equ ListHndl+4
rectPtr	equ memPtr+4

	phd	; save the old dpage
	tsc
	tcd

	pei <rectPtr+2
	pei <rectPtr
	_EraseRect	; erase the old rectangle...
	
	ldy #2
	lda [rectPtr],y	; get the Y coordinant
	clc
	adc #28
	tax	; save for a bit
	lda >screenMode	; 320 or 640 mode?
	cmp #640
	beq @its_640	; 640, position is correct
	txa	; get calculated position
	sec
	sbc #13	; adjust for "narrower" icon in 320 mode
	tax
@its_640
	phx	; put horizontal position on stack
	iny
	iny
	lda [rectPtr],y
	dec a
	pha
	_MoveTo	; move to the proper spot
	
	ldy #2
	lda [memPtr],y
	pha
	lda [memPtr]
	pha
	_Drawstring	
;
; Now that the member string has been drawn its time to draw the
; proper icon for this item...
;

*** 23-Apr-91 DAL -- use GetSysIcon instead of our local hard-coded icon tables
*** 22-May-91 MSD -- Use SearchDevNum for device number instead of the volume
***	 selected in the volume pop-up.  This fixes the bug where
***	 the user changes the volume pop-up and that icon gets used
***	 in the path display when you click on a found file.

	pha
	pha	;space for GetSysIcon result

	ldy #memFlag
	lda [memPtr],y
	bpl @notDevice	; high bit = the bottom list; everything is device/folder

	ldy #memType
	lda [<memPtr],y
	cmp #$000f
	beq @notDevice

	lda >SearchDevNum	; get volume actually searched (22-May-91 MSD)
	sta >DevNum
	_DInfoGS DInfoPBlock
	lda >DeviceID
	pea 1	;flag for device icon
	pha	;device ID
	pea 0	;moved here 5-Oct-92 DAL
	pea 0	;moved here from below (auxtype value)
	bra @common

@notDevice	ldy #memFlag	;use open folders for bottom list
	lda [<memPtr],y
	rol a
	rol a
	rol a
	and #$0004
	pha	;flag = 0 or 4
	ldy #memType
	lda [<memPtr],y
	pha	;push file type
*** 5-Oct-92 DAL -- pass a real auxiliary type, not always zero
	ldy #memAux+2
	lda [<memPtr],y
	pha
	dey
	dey
	lda [<memPtr],y
	pha
*** end 5-Oct-92

@common	_GetSysIcon

*** end of 23-Apr-91 DAL (icon pointer now on stack)

	pea 0	; display mode

	ldy #2	; upper left corner of where icon is to go
	lda [RectPtr],y
	inc a
	pha
	lda [RectPtr]
	inc a
	pha
	_DrawIcon
	
@IconDone
;
; At this point its time to dim or select the item...
	ldy #MemFlag
	lda [memPtr],y
	and #$00C0	; test to see if its selected
	beq memDrawn
	cmp #$0080
	bne noSelect

	pei <rectPtr+2
	pei <rectPtr
	_InvertRect
;	bra memDrawn	;*** removed 26-Jan-93 SS
noSelect	
; To support Item Dimming for non-selectable items, uncomment the following
; 6 lines of code. NOTE This has been left out because we don't want to dim in findfile...
;	PushLong #DimMask
;	_SetPenMask
;	PushLong RectPtr
;	_EraseRect
;	PushLong #NorMask
;	_SetPenMask
memDrawn

; clean up the stack
	lda theRTL+1
	sta theRTL+13	; mopve the return address down 12
	lda theRTL
	sta theRTL+12
	pld	; restore the original dpage
	
	pla	; remove the passed parms
	pla
	pla
	pla
	pla
	pla
	rtl	; and just exit...

tempRect	ds.W 4	; used for drawing and masking...

	EndP
	
	EJECT
*******************************************************************************
*
ProcessLevel	Proc Export
*
* Description:	This routine will recursively step down directories 
*	adding items to our file list as it goes...
*
*
* Inputs:	SpudFlag:Integer; Who called me...
*
* Outputs:	None
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
;
; Stack for this call...
;
tempDeref	equ 1
tempHandle	equ tempDeref+4
MyRefNum	equ tempHandle+4
MyPathLevel	equ MyRefNum+2
i	equ MyPathLevel+2
OldDPage	equ i+2
theRTL	equ OldDPage+2
passedFlag	equ theRTL+2
FrameSize	equ theRTL
;
; Nonframed equates
;
spudDPage	equ 1
spudRTL	equ 1
spudFlag	equ spudRTL+3	; so we can read the flag proper...
spudresult	equ spudflag+2

; Always zero out tool error here!
	lda #0
	sta >AsmToolErr

; Now, before we start this function let's look at the spudflag and determine if we need to 
; swap in our alternate stack...
	lda spudFlag,s	; zero means called from pascal set up the stack stuff
	bpl @notReentry
	brl @ReEntry	; if negative means this is a reentry
@notReentry	bne @Running	; if non-zero positive then we are currently running
	lda >StackHandle+1	; see if we are still running
	bne @Running	; if this is non-zero then nope...
;
; If we are here then the DA is not yet started to search. This will now allocate a new
; stack for us to use...
	ldx #0
	pha	; room for result
	pha
	phx	; size of handle
	pea $0800	; in this case a 2k stack...
	lda >MyID
	ora #$0900	; special stack memory
	pha
	pea $4005	; fixed page align in abs bank
	phx
	phx	; X MUST BE ZERO!!!!
	_NewHandle
	tax	; save the error code for now!
	pla
	sta >StackHandle
	pla
	sta >StackHandle+2
	bcc @gotStack
	txa
	sta >AsmToolErr	; save the tool error!
	brl ProcessError1
@GotStack
; now deref the stack handle...
; get the pascal stack value
	tsc	; get the current stack pointer
	sta >PascalStack 	; save the current stack level
	tdc	;GACK!  This was a TCD.  24-Sep-91 DAL
	sta >PascalDPage	; also save the pascal dpage

	phd
	lda >StackHandle+2	; we wanna deref this in fact...
	pha	; we need to deref something...
	lda >StackHandle
	pha	; so give me some stack for a second...
	tsc
	tcd
	lda [1]	; get our stack pointer
	plx	; undo the temp direct page
	plx
	pld
	clc
	adc #$07F0	; put us at the end!
	sta >StackLevel	; save the new stack pointer into <X>
	
; we come here when we know that we already have a stack allocated
; this code will swap out the old stack and swap in the new stack if needed
	tcs	; make it the new stack
	lda #0	; shortcut the next 2 lines
	pha
;	pea 0	; and zero recursion stack its the end..
;	lda #0	; zero out the entry count
	sta >EntryCount	; so we know when to exit properly
	bra @EntryCont	; fininish the entry
	brl Repeat	; now the proper stack is in place so continue
@running
; we come here when we know that we already have a stack allocated
; this code will swap out the old stack and swap in the new stack if needed
	tsc	; get the current stack pointer
	sta >PascalStack 	; save the current stack level
	tdc	;GACK!  This was a TCD too!  24-Sep-91 DAL
	sta >PascalDPage	; also save the pascal dpage
	
	lda >StackLevel	; get the asynch stack pointer
	tcs	; make it the new stack
	pld	; get the proper direct page
	pea 0	; and zero recursion stack its the end..
	lda #0	; zero out the entry count
	sta >EntryCount	; so we know when to exit properly
	brl Repeat	; now the proper stack is in place so continue
@ReEntry
	tsc	; get the current stack pointer
	pha	; save it on the stack...
@EntryCont
; now enter the function proper
;
; Begin by setting up our stack frame......
	phd
	tsc
	sec
	sbc #FrameSize
	tcd
	tcs	
	
;
; Now that our frame is set up, let's get to work...
; MyOpenRec.openPathname:=@currentDirPath;
	
	lda #CurrentDirPath>>16
	sta >MyOpenRec+4
	lda #CurrentDirPath
	sta >MyOpenRec+2
	lda #0
	sta >MyOpenRec
	
; OpenPD(MyOpenRec);
	_OpenPD MyOpenRec
	bcc @1
	cmp #$45	;VolNotFound?
	bne @otherError
	sta >Stopping
@otherError
	sta >AsmToolErr
	brl EndProcLevel
@1

; MyRefNum:=MyOpenRec.Openrefnum;
	lda >MyOpenRec
	sta <MyRefNum

; MyDirEntry.base:=1;
; MyDirEntry.Displacement:=1;
	lda #1
	sta >MyDirEntry+4
	sta >MyDirEntry+6

; MyDirEntry.NameBuffer:=@tempNamePtr;
	lda #TempNamePtr>>16
	sta >MyDirEntry+$000A
	lda #TempNamePtr
	sta >MyDirEntry+$0008
	
; tempNamePtr.stat:=16;
	lda #40
	sta >TempNamePtr
	
Repeat
; For proper asynch operation, we must now test the entrycount first, if we
; have passed our threshold of entries then we need to back out for now...
	lda >EntryCount	; get the current entry count
	cmp #MaxPerLevel	; have we done the proper number yet?
	blt @Repeatcont
	brl AsynchExit	; else exit asynch level
@RepeatCont
; MyDirEntry.refnum:=MyRefNum;
	lda <MyRefNum
	sta >MyDirEntry
;
; Now we determine if we should stop now.
	lda >Stopping
	bne @BetterStop	; if the flag is non-zero then we must stop
; Get_Dir_Entry(MyDirEntry);
	_Get_Dir_Entry MyDirEntry
	bcc @2
	cmp #$45	; Volume Not Found?
	bne @BetterStop	; no, exit normally
	sta >Stopping	; else make sure we stop completely
@BetterSTop	brl GDEError

; if AsmToolErr=0 then
;  begin
;  tempString[0]:=char(tempNamePtr.length); {Set the length of the string}
@2
;
; First bump the entry count to indicate we got a good one
	lda >EntryCount
	inc a
	sta >EntryCount
	
	lda >TempNamePtr+2
	sep #$20
	Longa Off
	sta >tempString
	rep #$20
	Longa On
	
;   for i:=1 to 32 do
;     tempString[i]:=tempNamePtr.theName[i];
	ldx #0
@CopyLoop1	
	lda >tempNamePtr+4,x
	sta >tempString+1,x
	inx
	inx
	cpx #32	; see if we are finished...
	blt @CopyLoop1
	

;    AddFile(tempString);	{Add the filename to the list...}
	PushLong #tempString
	jsl AsmAddFile
	pla
	pla
	
;    if MyDirEntry.fileType = $000F then  {Check for recursion...}
;      begin
	lda >MyDirEntry+$000E
	cmp #$000F
	beq @3
	brl NotADirectory
			    
;        MyPathLevel:=ord(CurrentDirPath[0]);	{Save the old pathname}
@3	lda >CurrentDirPath
	and #$00FF
	sta <MyPathLevel
	
	
;        if MyPathLevel+tempNamePtr.length<255 then
	clc
	adc >tempNamePtr+2
	cmp #$0100
	blt @4
	brl fNameTooLong

;
;         begin
;           currentDirPath:=Concat(currentDirPath,tempString,':');
@4
	lda #currentDirPath>>16 ; create a pointer to our dest string
	sta <tempDeref+2
	lda #currentDirPath
	sta <tempDeref
	lda >currentDirPath	    ; add its current length...
	and #$00FF
	sec	   ;always add 1 extra
	adc <tempderef
	sta <tempDeref
	bcc @5
	inc <tempDeref+2
@5
	lda >tempNamePtr+2	    ; get the length to copy
	sta <i	    ; save it on direct page
	
	ldx #0	; now do our copy...
@concatLoop	lda >tempNamePtr+4,x    ; source word
	txy
	sta [<tempderef],y	; save it in our destination
	inx
	inx
	cpx <i	; are we done?
	blt @concatLoop	; nope, keep going...
; we are now done copying the string, now fix the length and add the : at the end

	lda >currentDirPath
	clc
	adc <i
	inc a	; add 1 for the ":"
	sta >currentDirPath
	and #$00FF	; just get the length
	tax	; use as an index
	lda #':'	; load the terminator char
	sta >currentDirPath,x    ; and finish the name
	
;           ProcessLevel;
	pha	; room for result
	pea $FFFF	; flag says we are reentering
	jsl ProcessLevel	; do the next level...
	pla
; AsmToolErr:=0;
	
;          CurrentDirPath[0]:=chr(MyPathLevel);	{Back the sucker off now...}
	lda <MyPathLevel
	sep #$20
	longa Off
	sta >CurrentDirPath
	rep #$20
	LongA On
	
;         end;
;        end;
;       end;
fNameTooLong
NotADirectory
	brl Repeat
;
; Interupt ready...
AsynchExit
	phd	; save the current direct page also!
	tsc	; get the current stack level
	sta >StackLevel	; and save it in our global	
	lda >PascalStack	; get the DA stack level back
	tcs	; and make it the current stack
	lda >PascalDPage
	tcd
	lda #1	; get the proper level flag
	sta spudResult,s	; and make it the result for now...
	lda spudRTL+1,s	; move the RTL down
	sta spudRTL+3,s	; down 2 bytes
	lda spudRTL,s
	sta spudRTL+2,s
	pla	; recover the crap
	RTL	; and finally return
GDEError
;   until AsmToolErr<>0;
;   debug;

; MyClose.fileRefNum:=MyRefNum;
; ClosePD(MyClose);
	lda <MyRefNum
	sta >MyClose
	_ClosePD MyClose
	
; end; {procedure}
EndProcLevel
ProcessError1
	tdc	; unlink our local frame
	clc
	adc #FrameSize
	tcs	; make it our current stack
	pld	; recover the orihginal dpage
;
; Now we need to unlink the rest of the alternate stack crap
; and also see where we were called from...
	pla	; recover the old stack level
	bne @proce1	; if this is non-zero then we are recursed
	lda >PascalDPage	; recover the direct page
	tcd
	lda >PascalStack	; if zero, get the pascal stack level
@ProcE1
	tcs	; make it the current stack pointer
	lda spudFlag,s	; get the spudflag
	sta spudResult,s	; and make it the result for now...
	lda spudRTL+1,s	; move the RTL down
	sta spudRTL+3,s	; down 2 bytes
	lda spudRTL,s
	sta spudRTL+2,s
	pla	; recover the crap
	RTL	; and finally return
	
PascalDPage	ds.W 1	; place to save the pascal direct page
	EndP

;
; The following will do the proper comparison and then add the item to the list if
; it matches the proper criterion
;
AsmAddFile	Proc Export
	with PopupGlobals
	import InvisibleFlag
	
; Stack for this call...
tempDeref	equ 1
tempHandle	equ tempDeref+4
InputString	equ tempHandle+4
i	equ InputString+4
OldDPage	equ i+2
theRTL	equ OldDPage+2
theName	equ theRTL+3

FrameSize	equ theRTL
;
;DirEntryRec = RECORD
;
DERrefNum 	equ 0	; integer
DERreserved 	equ DERRefNum+2	; integer
DERbase 	equ DERreserved+2	; Integer;
DERdisplacement 	equ DERbase+2	; Integer;
DERnameBuffer 	equ DERdisplacement+2 ; Ptr;
DERentryNum 	equ DERnameBuffer+4	; Integer;
DERfileType 	equ DERentryNum+2	; Integer;
DERendOfFile 	equ DERfileType+2	; Longint;
DERblockCount 	equ DERendOfFile+4	; Longint;
DERcreateTime 	equ DERblockCount+4	; TimeRec;
DERmodTime 	equ DERcreateTime+8	; TimeRec;
DERaccess 	equ DERmodTime+8	; Integer;
DERauxType 	equ DERaccess+2	; Longint;
DERfileSysID 	equ DERauxType+4	; Integer;

;
; Begin by setting up our stack frame......
;
	lda 4,s
	tax
	lda 6,s
	tay	; recover our parameter
	
	phd
	tsc
	sec
	sbc #FrameSize
	tcd
	tcs	

	stx <InputString
	sty <InputString+2

*** added 1-Oct-91 DAL -- only find invisible files if we want them
	lda >MyDirEntry+DERaccess
	and #$0004	;invisible bit
	beq @notInvisible
	lda >InvisibleFlag
	and #$00ff
	bne @findItAnyway
	brl EndProcLevel
@findItAnyway
@notInvisible
*** end 1-Oct-91

; Now do the proper match
	jsr MatchIt
	bcc @addIt
	brl EndProcLevel
@addit
	lda >MyListCnt	; see if we have too many items
	cmp #MaxEntries	; see if we are beyond the threshold
	blt @Addit010	; if not, then continue
	lda #$FFFF	; flag list overrun
	sta >Stopping	; and save it in our flag to say stop
	brl EndProcLevel
@Addit010
; tempHandle:=Str255Hndl(NewHandle(16,MyID+$0700,attrFixed,NIL));
	pha	; room for result
	pha
	pea 0	; size
	pea 40	; 32 bytes
	lda >MyID
	ora #$0700
	pha
	pea $4000
	pha
	pha
	_NewHandle
	pla
	plx
	sta <tempHandle
	stx <tempHandle+2
	
; PtrToHand(@theFile,Handle(tempHandle),16);	{copy the file name...}
	pei <InputString+2
	pei <InputString
	pei <tempHandle+2
	pei <tempHandle
	PushLong #40
	_PtrToHand
	
; MyList^^[myListCnt].memString:=Ptr(tempHandle^); {save the string pointer}
	lda >MyList	; deref MyList
	sta <tempDeref
	lda >MyList+2
	sta <tempDeref+2
	ldy #2
	lda [<tempDeref],y
	tax
	lda [<tempDeref]
	sta <tempDeref
	stx <tempDeref+2
; now create a pointer to the proper record in the list...
; each list entry is 20
	lda >MyListCnt	; create MyListCnt*10
	asl a
	pha
	asl a
	asl a
	clc
	adc 1,s
	plx
	asl a	; multiply by 2 to get *20
	clc
	adc <tempDeref	; add the low byte first
	tax	; and save it...
	ldy #2	; now the high byte
	lda <tempDeref+2
	bcc @2
	inc a
@2	sta <tempDeref+2
	stx <tempDeref
;
; Lucky for us all the proper file info is in the current dir entry record
; still. So suck some more info out of the dir entry and put them into my record
; here...
;
memFlag	equ 4
memFullName	equ 6
memFileType	equ 10
memAuxType	equ 12
memEOF	equ 16
;
; we now have a pointer to the list element let's stuff it 
; First the string pointer
	ldy #2
	lda [<tempHandle],y
	sta [<tempDeref],y
	lda [<tempHandle]
	sta [<tempDeref]
	
; MyList^^[myListCnt].memFlag:=0;	{set to member type}
	lda #0
	ldy #4
	sta [<tempDeref],y
;
; And now, update the rest of the files data to reflect the dir entry data
	lda >MyDirEntry+DERAuxType
	ldy #memAuxType
	sta [tempDeref],y
	lda >MyDirEntry+DERAuxType+2
	ldy #memAuxType+2
	sta [tempDeref],y
	lda >MyDirEntry+DERfileType
	ldy #memfileType
	sta [tempDeref],y
	lda >MyDirEntry+DERendOfFile
	ldy #memEOF
	sta [tempDeref],y
	lda >MyDirEntry+DERendOfFile+2
	ldy #memEOF+2
	sta [tempDeref],y
;
; Now that the record is updated, update the list 
; tempHandle:=Str255Hndl(NewHandle(ord(theFile[0])+ord(CurrentDirPath[0])+3,MyID+$0700,0,NIL));

	lda [<InputString]
	clc
	adc >CurrentDirPath
	and #$00FF
	adc #3
	
	pha
	pha
	
	pea 0
	pha
	lda >MyID
	ora #$0700
	pha
	pea 0
	pha
	pha
	_NewHandle
;  MyList^^[myListCnt].MemFullName:=newHandle;
	ldy #6
	pla
	sta [<tempDeref],y
	sta <tempHandle
	iny
	iny
	pla
	sta [<tempDeref],y
	sta <tempHandle+2
	
; tempHandle^^:=Concat(currentDirPath,tempString);
	ldy #2
	lda [<tempHandle],y
	sta <tempderef+2
	lda [<tempHandle]
	sta <tempDeref
; First, copy current path over
	lda >currentDirPath
	and #$00FF
	sta <i	; set the length to copy
	
	ldy #1
	ldx #1
; and start the copy
@copyCur	lda >currentDirPath,x
	sta [<tempderef],y
	iny
	inx
	cpx <i
	blt @copyCur
	
; now copy input string to the end...
	lda <i
	clc
	adc <tempDeref
	sta <tempderef
	bcc @10
	inc <tempDEREF+2
@10	
; compute new size to copy
	lda [<inputString]
	and #$00FF
	sta <i
	ldy #1
; 	
@Loop
	lda [<inputString],y
	sta [<tempDeref],y
	iny
	cpy <i
	blt @Loop
;
; Now compute the new string length...
	lda >currentDirPath
	and #$00FF
	clc
	adc <i
	and #$00FF
	sta <i

	ldy #2
	lda [<tempHandle],y
	sta <tempderef+2
	lda [<tempHandle]
	sta <tempDeref
	lda [<tempDeref]
	and #$FF00
	ora <i
	sta [<tempDeref]

	lda >MyListCnt
	inc a
	sta >MyListCnt
	
;	NewList2(MyMemberDraw,-1,ref(MyList),1,myListCnt,listCtrl);

	PushLong #MyMemberDraw
	pea $FFFF
	PushLong MyList	
	pea 1
	lda >MyListCnt
	pha
	PushLong ListCtrl
	_NewList2
EndProcLevel
	tdc	; unlink our local frame
	clc
	adc #FrameSize
	tcs	; make it our current stack
	pld	; recover the orihginal dpage
	RTL
	
MatchIt
; Routine to compare and match the file names
; This routine requires that the MatchStr be lower cased.
; it trashed the contents of tempHandle and i
;
matchTemp	equ tempHandle
	stz <i
	lda >MatchType
	dec a
	asl a
	tax
	jsr (matchTbl,x)
	rts
matchTbl	dc.W Exact
	dc.W StartsWith
	dc.W EndsWith
	dc.W Contains
	dc.W WildCard	; finds with certain wild card characters
;
Exact
; Test to see if the filename is an exact match of the matchstr
	sep #$20
	Longa Off
	lda >MatchStr	; get the length of the match string
	sta <i
	cmp [<InputString]
	beq @Cont
	brl MatchFail
@cont
	ldy #1
@CompLoop	tyx	; make both indexs the same
	lda [<InputString],y	
	cmp #'A'	; first see if its upper case
	blt @NonAlpha	; if less than its a non-alpha compare
	ora #$20	; make it lower case always...
	sta <matchTemp	; save it for a second
	lda >MatchStr,x	; get the char to match
	ora #$20	; make sure its lower case
	cmp <matchTemp	; see if they are the same
	beq @NextChar
	brl MatchFail
	
@NonAlpha	cmp >MatchStr,x
	beq @NextChar
	brl MatchFail

@NextChar
	iny
	cpy <i	; test if we are done...
	blt @compLoop
	beq @compLoop
	REP #$20
	Longa On
	clc
	rts
	
StartsWith
; Test to see if the filename is an exact match of the matchstr
	sep #$20
	Longa Off
	lda >MatchStr	; get the length of the match string
	sta <i
	cmp [<InputString]
	blt @Cont
	beq @Cont
	brl MatchFail
@cont
	ldy #1
@CompLoop	tyx	; make both indexs the same
	lda [<InputString],y	
	cmp #'A'	; first see if its upper case
	blt @NonAlpha	; if less than its a non-alpha compare
	ora #$20	; make it lower case always...
	sta <matchTemp	; save it for a second
	lda >MatchStr,x	; get the char to match
	ora #$20	; make sure its lower case
	cmp <matchTemp	; see if they are the same
	beq @NextChar
	brl MatchFail
	
@NonAlpha	cmp >MatchStr,x
	beq @NextChar
	brl MatchFail

@NextChar
	iny
	cpy <i	; test if we are done...
	blt @compLoop
	beq @compLoop
	REP #$20
	Longa On
	clc
	rts
	
EndsWith
; Test to see if the filename is an exact match of the matchstr
	sep #$20
	Longa Off
	lda >MatchStr	; get the length of the match string
	sta <i
	cmp [<InputString]
	blt @Cont
	beq @Cont
	brl MatchFail
@cont		; now set up the counters for matching
	lda [<inputString]	; get the length of the source str
	tay	; place it in <X>
	lda <i	; now get the length of the match string
	tax
	
@CompLoop		
	lda >MatchStr,x	; get the last char of match string	
	cmp #'A'	; first see if its upper case
	blt @NonAlpha	; if less than its a non-alpha compare
	ora #$20	; make it lower case always...
	sta <matchTemp	; save it for a second
	lda [<inputString],y ; get the char to match
	ora #$20	; make sure its lower case
	cmp <matchTemp	; see if they are the same
	beq @NextChar
	brl MatchFail
	
@NonAlpha	cmp [<InputString],y
	beq @NextChar
	brl MatchFail

@NextChar
	dey	; decrement input counter
	dex	; and match counter
	bne @CompLoop	; if MatchCounter >0 then keep going
	REP #$20
	Longa On
	clc	; else we are done and we found a match
	rts
	
;
Contains
; Now see if input contains matchString
; First be sure that the Matchstr can be contained by testing the length
; NOTE: This routine requires that the matchstr be lowercased first.
;
; This routine trashes i and matchtemp
;
	stz i
	stz MatchTemp
	stz MatchTemp+2
	sep #$20
	Longa Off
	lda >MatchStr	; get the length of the match string
	sta <i	; into i (our counter)
	cmp [<InputString]
	blt @Cont
	beq @Cont
	brl MatchFail
;
; at this point we know that it is physically possible for matchstr to fit inside
; the inputstring. Now, start testing for the match...
; MatchTemp will contain our current pointer... matchTemp+2 the size of Inputstr
;
@cont	
	rep #$20
	longa On
	lda [<InputString]
	and #$00FF
	sta <MatchTemp+2
	ldy #0	; init our string pointer
@FindFirst	cpy <MatchTemp+2	; see if we are done
	bge @NotHere	; if so, it must not be here!
	iny
	lda [<InputString],y
	and #$00FF	; strip the byte...
	cmp #'A'	; lowercase it...
	blt @FF0010
	cmp #'Z'+1
	bge @FF0010
	ora #$0020
@FF0010	sta <MatchTemp
	lda >MatchStr+1
	and #$00FF
	cmp <MatchTemp	; see if these are the same...
	bne @FindFirst	; they are not, so continue till done
	
;
; If we get here then we have found the first char of matchstr in inputstr
; let's continue on...
;
; Save current value for Y first
	sty <MatchTemp
	
; see if whats left of the input string can contain match string
	lda <MatchTemp+2	; length of inputstr
	sec
	sbc <MatchTemp	; see if its too long...
;
; 2/12/90	Mensch
; Fix bug here since Y was already incremented (Its based on 1 not 0) the following
; arithmetic will not work right. what we really have to do now is decrement it...
;
	inc a	; adjust for a too big Y
	cmp <i
	bge @maybehere	; if its >= than i then it cound be here!
@NotHere
; otherwise, it can't be in this string... better button up and leave
	rep #$20
	longa on
	sec	; signal failure
	rts	; and go back...
	
@MaybeHere
; This routine will determine if the string is actually inside of the input
; string...
	ldy <MatchTemp	; start at the beginning
	phy	; save the length...
	ldx #0	; with both strings...
@FindRest	cpx <i	; is x equal to the ending condition?
	beq @GotIt	; if so, then I got one!
	inx
	lda [<InputString],y
	and #$00FF	; strip the byte...
	cmp #'A'	; lowercase it...
	blt @FR0010
	cmp #'Z'+1
	bge @FR0010
	ora #$0020
@FR0010	sta <MatchTemp
	lda >MatchStr,x
	and #$00FF
	cmp <MatchTemp	; see if these are the same...
	bne @tryAgain	; they are not, so back to main loop
	iny
	bra @FindRest
@TryAgain	ply	; if we get here the string wasn't found yet
	brl @FindFirst
;
; This is called when we have found the whole string ...
@GotIt
	ply	; recover its location...
	rep #$20
	longa on
	clc	; signal success
	rts	; and go back...
	
MatchFail	rep #$20
	longa on
	sec	; signal failure
	rts	; and go back...
	
	
************************************************************
*
* WildCard
* 
* This routine searches InputString for MatchStr and returns with
* the carry clear if found, set if not found...
* 
* The current wild card operation is the same as Equal except that
* it also supports the following Wildcard characters:
*
*  §- Match any ASCII letter (Upper or lower case)
*  £- Match any numeric digit
*  Å- Match any stream of data (Only one of these per find item)
*
************************************************************
WildCard
; Test to see if the filename is an exact match of the matchstr
	stz i
	stz MatchTemp+2
	sep #$20
	Longa Off
	lda >MatchStr	; get the length of the match string
	sta MatchTemp+2	; save it in our special place
	lda [<InputString]	; now do the input string length
	sta <i
; Note no length checking here because of wild card construction...
@cont
	ldy #1
	ldx #1
@CompLoop		; make both indexs the same
	lda >MatchStr,x	; get the next char to match
	cmp #'£'	; is it match number?
	beq @CompNum	
	cmp #'§'	; is it match Letter?
	beq @CompAlpha
	cmp #'Å'	; is it stream of data?
	beq @CompHole
; Else just a normal compare will do...
	lda [<InputString],y	
	cmp #'A'	; first see if its upper case
	blt @CompNorm01	; if less than its a non-alpha compare
	cmp #'Z'+1	; is it greater?
	bge @CompNorm01
	ora #$20	; make it lower case always...
@CompNorm01	cmp >MatchStr,x	; get the char to match
	beq @NextChar
	brl @MatchFail
;
; Only test its numericness....
@CompNum	lda [<InputString],y
	cmp #'0'
	blt @MatchFail
	cmp #'9'+1
	bge @MatchFail
	bra @NextChar
	
;
; Test its alphaness...
@CompAlpha	lda [<InputString],y
	cmp #'A'
	blt @MatchFail
	cmp #'Z'+1
	blt @NextChar
	cmp #'a'
	blt @MatchFail
	cmp #'z'+1
	blt @NextChar
@MatchFail	brl MatchFail
;
; The match passes so far..
@NextChar
	iny
	inx	
	cpx <MatchTemp+2	; see if we are finished..
	blt @ContHC
	beq @ContHC
	bra @MatchGood	; else if size does not pan out then its a fail..
@ContHC	cpy <i	; test if we are done...
	blt @compLoop
	beq @compLoop
@MatchGood	REP #$20
	Longa On
	clc
	rts
	
;
; This next routine will work with holes. If a whole has been found then it
; will finish finding the rest of the string starting at the back...
; NOTE:<X> contains the offset into the matchstr
;      <Y> comtains the offset into the inputstring
;
@CompHole
; First see if wild card is at the end of the match string. If so then 
; we have found a match!
; 
	cpy <MatchTemp+2
	bge @MatchGood
;
; Otherwise we have a certain number of characters left in the string to find...
; we must calculate how many...
	stx <MatchTemp	; save the current offset into matchstr
	lda <MatchTemp+2	; get the length of match string
	sec
	sbc <MatchTemp	; subtract where we are...
	sta <MatchTemp	; matchTemp now cleverly contains
	lda <i	; number of chars in inputstr
	sec
	sbc <MatchTemp
	sta <MatchTemp	; save it in match temp
	cpy <MatchTemp	; see if this is legal...
	blt @MatchFail	; if <Y> is less than then not enough chars
	ldy <MatchTemp	; restart the comparison at this point with the new offset
	brl @NextChar	; and get the next character

	EndP

	End
\ No newline at end of file
diff --git a/IIGS.601.SRC/ToolBoxMisc/ReadMeFiles/Read.Me b/IIGS.601.SRC/ToolBoxMisc/ReadMeFiles/Read.Me
new file mode 100644
index 0000000..3ce762a
--- /dev/null
+++ b/IIGS.601.SRC/ToolBoxMisc/ReadMeFiles/Read.Me
@@ -0,0 +1 @@
+We thought you might like to know who brought you System 6 (so you know who to praise or who to blame :-):  We hope you enjoy using System 6 at least as much as we enjoyed creating it... 

Management
	Ralph Russo, Fern ÒSuper TesterÓ Bachman, Jr.,
	Lee Collings, Larry Abrams

Marketing & Evangelism
	Jane Lee, Tim ÒWhen ItÕs Done!Ó Swihart,
	John Santoro, Rob Barnes, Tim Golden

Support & Admin
	Jennifer ÒMomÓ Wallace, Kim Scofield, Mila Carey, Kathleen Frost,
	Terri Miller

Project Management
	Robin Coles, Loretta Barnard, Laura Nelson, Diana Dresbach,
	Linda Francis, Mathilde Rand, Kirk Huddleston, Donna Tyacke, 
	Krista Reymann, Barbara Nichols

Documentation
	Wade Person, Victor Lee, Robin Gold, Dale Streeter, Jay Swartz, Jenna
	Woodul, Andrea Kelley

Hardware & Firmware
	Mike Askins, Jim Sandler, Todd Rudin, Chris Raymond, John Arkley,
	Wes Johnson

Finder
	Development:  Andy ÒFinderManÓ Nicholas, Dave ÒM&MÕsÓ Lyons, Ron Lichty
	Quality Assurance: Brenda Knudson, Margarita Sang,
		and everybody else except Greg!

Installer
	Development: ÒJayÓ Schaffer, Ron Lichty, Lee Collings
	Quality Assurance: Brenda Knudson, Margarita Sang

Archiver
	Development: Monte Benaresh
	Quality Assurance: Steve Wesolowski, Llew Roberts,
		Fern Òwatch me break itÓ Bachman, Jr.

ADU
	Development: Monte Benaresh
	Quality Assurance: Brenda Knudson, Llew Roberts,
		Steve Wesolowski, Margarita Sang

Teach
	Development: Mensch, ÒJumpinÕÓ Johnny Selhorst, Dave Lyons, Greg Branche
	Quality Assurance: Bob Haven, Karen Wenzel, Margarita Sang

synthLAB
	Development: Mark Cecys, Lee Collings
	Quality Assurance: Braz, Lee Collings

AppleBowl
	Development: Greg Branche
	Quality Assurance: Lee Collings

HyperCard IIGS, v1.1
	Development: Darin Acquistapace
	Quality Assurance: Eric Schlosser, Jan Jubera

Media Control
	Development: Dan Hitchens
	Quality Assurance: Margarita Sang, Phil Marcellis

Control Panel NDA
	Development: Dave ÒMr. TangentÓ Lyons
	Quality Assurance: Margarita Sang, Brenda Knudson,
		ÒEl PresidenteÓ Bob Haven

Control Panels
	Development: Monte Benaresh, Dave ÒItÕs a featureÓ Lyons,
		Mike Stein, Greg Branche
	Quality Assurance: Margarita Sang, Brenda Knudson, Bob Haven

Desk Accessories (NDAs)
	Development: Mensch, Harry Yee, Dan Hitchens, 
		Dave ÒCursorManÓ Lyons, Greg Branche
	Quality Assurance: Margarita Sang, Brenda Knudson, Megan Gobble

Universal Access (CloseView, Easy Access, Video Keyboard)
	Development: Don J. Brady, Dave Lyons
	Quality Assurance: Margarita Sang

BASIC.System
	Development: Lee Collings
	Quality Assurance: Bachir Kassir

GS/OS
	Development: Greg Branche
	Quality Assurance: Anil Gursahani, Linda Pan, Bachir Kassir

System Loader
	Development: Greg Branche
	Quality Assurance: Linda Pan

File System Translators
	ProDOS: Cheryl Ewy, Jack Valois, Greg Branche, Mark Day
	Character: Greg Branche
	HFS: Cheryl Ewy, Cary Farrier, Jack Valois, Mark Day
	AppleShare: Mark Day
	Pascal: Cary Farrier, Greg Branche
	DOS 3.3: Monte Benaresh, Greg Branche, 
	Quality Assurance: Linda Pan, Bachir Kassir, Anil Gursahani

Drivers
	AppleDisk3.5: John Arkley, Greg Branche
	UniDisk3.5: John Arkley, Greg Branche
	AppleDisk5.25:  Greg Branche, Mike Stein
	A2.Ramcard: Greg Branche, Mike Stein
	Console: Greg Branche
	SCSI: Matt Gulick
	AppleTalk: Mark Day
	Quality Assurance: Anil Gursahani, Bachir Kassir, Randel Chow, 
		Mike Seilnacht, Alex Crovetto, Ben Beasley, Don Johnson

ProDOS 8
	Development: Greg Branche
	Quality Assurance: Bachir Kassir

Toolbox
	Development: Mensch, Harry Yee, Dave ÒThereÕs a flag bit for that!Ó Lyons
	Quality Assurance: Ric Forrester, John Selhorst, Bill Mitchell,
		Aaron Ludtke, Mike Lagae, Greg Borovsky

Printing
	Development: Ben Koning, Wes Johnson
	Quality Assurance: Bob Haven

Development Tools & Utilities
	Development: Jim Merritt, Dan Allen, Greg Branche
	Quality Assurance: Eric Russell

Compatibility Testing
	Megan Gobble, Randy Thelen, Matt Ackeret, Judi Strebel,
	Helene Kassir, Debbie Shields, Brian Miyakusu

Additional Help
	Matt Deatherage, Jim Luther, CK Haun, Eric Soldan, Dan Strnad,
	Greg Templeman, Allan Bell, Jim Ferr, Emile Schwarz, Peter Sandys,
	Rob Caplan
	
The following companies and/or individuals were a tremendous help during development of System 6.  They took the time (and the risks) to use the not-quite-always-stable pre-final system software and let us know when something didnÕt work quite right (or crashed their systems).  We would like to return the favor by publicly thanking them for all of their efforts:

Roger Wagner Publishing
	Ken Kashmerek, Eric Mueller, Dave Klimas

Softdisk Publishing
	Bryan Pietrzak, Jay Jennings

Morgan Davis Group
	Morgan Davis

Lunar Productions
	Mark ÒHanzÓ Collins, Marc ÒFranzÓ Wolfgram, Jim Murphy

Synesis Systems
	Steve Stephenson

Seven Hills Software
	Dave Hecker

The Byte Works, Inc.
	Mike Westerfield

Brainstorm
	Louis van Proosdij

Procyon
	Jawaid Bazyar

Lawrence Productions

MECC (Minnesota Educational Computing Consortium)
	Craig Copley

Beagle Bros, Inc.
	Mark Munz

CMS Enhancements, Inc.
	Bill Stoker

ELS (Electronic Learning Systems)
	Mitchell Martin

Triad Ventures, Inc.
	Mike Nuzzi (Ya want our autographs again?)

Westcode Software
	Rob Renstrom, Alan Bird

360 Microsystems
	D. Proni

Zip Technology
	David Fein

EZ-Soft
	Peter Easdown

Chinook Technologies
	Chris Adams

Resource Central
	Tom Weishaar, Dennis Doms

Shawn Quick, Yvan KÏnig, Steve Stephenson, John Gibson, Drew Vogen, Al Willis,
Lavona Rand, Marc Farnum-Rendino, George Wilde, Albert Chin, Paul Doty,
Richard Bennett, Gregory Fox

(Misspellings are entirely unintentional.  Really!)
\ No newline at end of file
diff --git a/IIGS.601.SRC/ToolBoxMisc/ReadMeFiles/Read.Me.r b/IIGS.601.SRC/ToolBoxMisc/ReadMeFiles/Read.Me.r
new file mode 100644
index 0000000..53a9603
--- /dev/null
+++ b/IIGS.601.SRC/ToolBoxMisc/ReadMeFiles/Read.Me.r
@@ -0,0 +1 @@
+#include "TypesIIGS.r"


data 0x7001 (0x1) {
	$"AD00 7C02 1A00 0200 0000 0000"                      /* ­.|......... */
};

data rStyleBlock (0x1, purgeable3) {
	$"0000 3A00 0000 0000 0000 5902 0000 0000"            /* ..:.......Y..... */
	$"0000 0000 0000 0200 0000 4000 0000 8000"            /* ..........@...€. */
	$"0000 C000 0000 0001 0000 4001 0000 8001"            /* ..À.......@...€. */
	$"0000 C001 0000 0002 0000 4002 FFFF FFFF"            /* ..À.......@..... */
	$"0C00 0000 FEFF 0008 0000 FFFF 0000 0000"            /* ................ */
	$"0100 0000 6608 0000 0000 0000"                      /* ....f....... */
};

\ No newline at end of file
diff --git a/IIGS.601.SRC/ToolBoxMisc/ReadMeFiles/Read.Me.text b/IIGS.601.SRC/ToolBoxMisc/ReadMeFiles/Read.Me.text
new file mode 100644
index 0000000..e09ccff
--- /dev/null
+++ b/IIGS.601.SRC/ToolBoxMisc/ReadMeFiles/Read.Me.text
@@ -0,0 +1 @@
+We thought you might like to know who brought you System 6.0.1 (so you know who to praise or who to blame).  We hope you enjoy using System 6.0.1 at least as much as we enjoyed creating it.

Management
	Tim Swihart, Fern Bachman, Jr., Ralph Russo

Marketing
	John Santoro

Support, Admin, & Product Coordination
	Mila Carey

Documentation
	Steve Stephenson, Dave Lyons, Jim Murphy

Quality Assurance
	Don Johnson, Brenda Knudson, Randel Chow, Eric Schlosser, Megan Gobble,
	Alex Crovetto
	
Networking
	Mark Day, Wes Johnson, Dave Lyons, Steve Stephenson, Jim Murphy, 
	Chris Raymond, Don Johnson, Monte Benaresh, Alex Crovetto, Eric Schlosser, 
	Randy Thelen, Bob Haven, Garth Minette
	
Toolbox
	Dave Lyons, Jim Murphy, Steve Stephenson

GS/OS
	Dave Lyons, Jim Murphy

File System Translators
	Greg Branche, Dave Lyons, Jim Murphy

Drivers
	Dave Lyons, Steve Stephenson, Jim Murphy, Matt Deatherage, Mark Day

ProDOS 8
	Dave Lyons
	
Finder
	Jim Murphy, Dave Lyons, Andy Nicholas
	
Installer
	Dave Lyons, Steve Stephenson
	
Teach
	Dave Lyons, Jim Murphy
	
Control Panels
	Dave Lyons, Steve Stephenson, Monte Benaresh

Desk Accessories
	Dave Lyons, Steve Stephenson

Extensions
	Dave Lyons, Darin Acquistapace, Jim Murphy
	
Printing
	Dave Lyons, Matt Deatherage
	
FType.Apple
	Matt Deatherage
	
Development Tools & Utilities
	Greg Branche, Andy Nicholas, Dave Lyons, Steve Stephenson, Jim Murphy

Additional Help
	Matt Deatherage, Jim Ferr, Fern Bachman, Jr.
	
	
The following companies and individuals were a tremendous help during development of System 6.0.1.  They took the time (and the risks) to use the not-quite-always- stable pre-final system software and let us know when something didnÕt work quite right (or crashed their systems).  We would like to return the favor by publicly thanking them for all of their efforts:

Companies:
	Morgan Davis Group
	Softdisk Publishing
	Pebble Valley Software
	Seven Hills Software
	Resource Central
	EZ-Soft

Individuals:
	Ken Kashmerek
	Steve Stephenson
	Jim Murphy
	Bryan Pietrzak
	Mark de Jong
	Andy McFadden
	Matt Ackeret
	Jim Ferr

(Misspellings are entirely unintentional.  Just ask Jim and Steve!)
\ No newline at end of file
diff --git a/IIGS.601.SRC/ToolBoxMisc/ReadMeFiles/Shortcuts.r b/IIGS.601.SRC/ToolBoxMisc/ReadMeFiles/Shortcuts.r
new file mode 100644
index 0000000..d83b0b5
--- /dev/null
+++ b/IIGS.601.SRC/ToolBoxMisc/ReadMeFiles/Shortcuts.r
@@ -0,0 +1 @@
+#include "TypesIIgs.r"


data 0x7001 (0x1) {
	$"AD00 7C02 1A00 0200 0000 0000"                      /* ­.|......... */
};

data rStyleBlock (0x1) {
	$"0000 3A00 0000 0000 0000 5902 0000 0000"            /* ..:.......Y..... */
	$"0000 0000 0000 0200 0000 4000 0000 8000"            /* ..........@...€. */
	$"0000 C000 0000 0001 0000 4001 0000 8001"            /* ..À.......@...€. */
	$"0000 C001 0000 0002 0000 4002 FFFF FFFF"            /* ..À.......@..... */
	$"D800 0000 1500 000A 0000 FFFF 0000 0000"            /* Ø............... */
	$"1500 050A 0000 FFFF 0000 0000 1500 020A"            /* ................ */
	$"0000 FFFF 0000 0000 1500 010A 0000 FFFF"            /* ................ */
	$"0000 0000 0300 000A 0000 FFFF 0000 0000"            /* ................ */
	$"1600 000A 0000 FFFF 0000 0000 1600 050A"            /* ................ */
	$"0000 FFFF 0000 0000 1600 020A 0000 FFFF"            /* ................ */
	$"0000 0000 1600 010A 0000 FFFF 0000 0000"            /* ................ */
	$"FEFF 000A 0000 FFFF 0000 0000 FEFF 050A"            /* ................ */
	$"0000 FFFF 0000 0000 FEFF 020A 0000 FFFF"            /* ................ */
	$"0000 0000 FEFF 010A 0000 FFFF 0000 0000"            /* ................ */
	$"FEFF 0008 0000 FFFF 0000 0000 FEFF 0508"            /* ................ */
	$"0000 FFFF 0000 0000 FEFF 0208 0000 FFFF"            /* ................ */
	$"0000 0000 FEFF 0108 0000 FFFF 0000 0000"            /* ................ */
	$"FEFF 0308 0000 FFFF 0000 0000 8A01 0000"            /* ............Š... */
	$"0800 0000 9C00 0000 2000 0000 A800 0000"            /* ....œ... ...¨... */
	$"F001 0000 9C00 0000 1900 0000 B400 0000"            /* ....œ.......´... */
	$"AF00 0000 9C00 0000 1700 0000 C000 0000"            /* ¯...œ.......À... */
	$"5600 0000 9C00 0000 0100 0000 C000 0000"            /* V...œ.......À... */
	$"4000 0000 9C00 0000 0100 0000 C000 0000"            /* @...œ.......À... */
	$"3300 0000 9C00 0000 0C00 0000 B400 0000"            /* 3...œ.......´... */
	$"2A00 0000 9C00 0000 0900 0000 B400 0000"            /* *...œ...Æ...´... */
	$"3B01 0000 9C00 0000 0800 0000 B400 0000"            /* ;...œ.......´... */
	$"8300 0000 9C00 0000 0800 0000 B400 0000"            /* ƒ...œ.......´... */
	$"1C01 0000 9C00 0000 1A00 0000 C000 0000"            /* ....œ.......À... */
	$"2700 0000 9C00 0000 0B00 0000 B400 0000"            /* '...œ.......´... */
	$"9403 0000 9C00 0000 0400 0000 B400 0000"            /* ”...œ.......´... */
	$"1800 0000 9C00 0000 0100 0000 C000 0000"            /* ....œ.......À... */
	$"0B02 0000 9C00 0000 0200 0000 B400 0000"            /* ....œ.......´... */
	$"B600 0000 9C00 0000 0100 0000 C000 0000"            /* ¶...œ.......À... */
	$"0500 0000 9C00 0000 0100 0000 C000 0000"            /* ....œ.......À... */
	$"0F00 0000 9C00 0000 0100 0000 C000 0000"            /* ....œ.......À... */
	$"3700 0000 9C00 0000 0400 0000 B400 0000"            /* 7...œ.......´... */
	$"1400 0000 9C00 0000 1400 0000 B400 0000"            /* ....œ.......´... */
	$"7800 0000 9C00 0000 0100 0000 C000 0000"            /* x...œ.......À... */
	$"0300 0000 9C00 0000 0200 0000 C000 0000"            /* ....œ.......À... */
	$"0800 0000 9C00 0000 0100 0000 C000 0000"            /* ....œ.......À... */
	$"0500 0000 9C00 0000 0100 0000 C000 0000"            /* ....œ.......À... */
	$"0F00 0000 9C00 0000 0100 0000 C000 0000"            /* ....œ.......À... */
	$"9C00 0000 9C00 0000 0100 0000 C000 0000"            /* œ...œ.......À... */
	$"5C00 0000 9C00 0000 0C00 0000 B400 0000"            /* \...œ.......´... */
	$"6500 0000 9C00 0000 0C00 0000 B400 0000"            /* e...œ.......´... */
	$"2500 0000 9C00 0000 0100 0000 C000 0000"            /* %...œ.......À... */
	$"1B00 0000 9C00 0000 0100 0000 C000 0000"            /* ....œ.......À... */
	$"0900 0000 9C00 0000 0500 0000 B400 0000"            /* Æ...œ.......´... */
	$"1200 0000 9C00 0000 0C00 0000 B400 0000"            /* ....œ.......´... */
	$"1600 0000 9C00 0000 0100 0000 C000 0000"            /* ....œ.......À... */
	$"5100 0000 9C00 0000 0C00 0000 B400 0000"            /* Q...œ.......´... */
	$"4E00 0000 9C00 0000 0500 0000 B400 0000"            /* N...œ.......´... */
	$"7500 0000 9C00 0000 0900 0000 B400 0000"            /* u...œ...Æ...´... */
	$"1C00 0000 9C00 0000 0C00 0000 B400 0000"            /* ....œ.......´... */
	$"1700 0000 9C00 0000 0100 0000 C000 0000"            /* ....œ.......À... */
	$"0C00 0000 9C00 0000 0800 0000 B400 0000"            /* ....œ.......´... */
	$"1E00 0000 9C00 0000 0100 0000 C000 0000"            /* ....œ.......À... */
	$"0C00 0000 9C00 0000 0600 0000 B400 0000"            /* ....œ.......´... */
	$"BB00 0000 9C00 0000 0100 0000 C000 0000"            /* »...œ.......À... */
	$"2300 0000 9C00 0000 0900 0000 B400 0000"            /* #...œ...Æ...´... */
	$"5600 0000 9C00 0000 1800 0000 B400 0000"            /* V...œ.......´... */
	$"0500 0000 9C00 0000 0600 0000 B400 0000"            /* ....œ.......´... */
	$"0B00 0000 9C00 0000 0900 0000 B400 0000"            /* ....œ...Æ...´... */
	$"0100 0000 9C00 0000 0600 0000 B400 0000"            /* ....œ.......´... */
	$"1200 0000 9C00 0000 0200 0000 C000 0000"            /* ....œ.......À... */
	$"1A00 0000 9C00 0000 1300 0000 B400 0000"            /* ....œ.......´... */
	$"0400 0000 9C00 0000 0400 0000 B400 0000"            /* ....œ.......´... */
	$"6000 0000 9C00 0000 0B00 0000 B400 0000"            /* `...œ.......´... */
	$"0100 0000 9C00 0000 0600 0000 B400 0000"            /* ....œ.......´... */
	$"1800 0000 9C00 0000 0100 0000 C000 0000"            /* ....œ.......À... */
	$"2900 0000 9C00 0000 0A00 0000 B400 0000"            /* )...œ.......´... */
	$"1C00 0000 9C00 0000 0100 0000 C000 0000"            /* ....œ.......À... */
	$"6D00 0000 9C00 0000 1200 0000 C000 0000"            /* m...œ.......À... */
	$"C100 0000 9C00 0000 0400 0000 B400 0000"            /* Á...œ.......´... */
	$"6D00 0000 9C00 0000 1200 0000 B400 0000"            /* m...œ.......´... */
	$"0500 0000 9C00 0000 0900 0000 B400 0000"            /* ....œ...Æ...´... */
	$"3500 0000 9C00 0000 1D00 0000 C000 0000"            /* 5...œ.......À... */
	$"E601 0000 9C00 0000 1F00 0000 C000 0000"            /* ....œ.......À... */
	$"2C00 0000 9C00 0000 1100 0000 B400 0000"            /* ,...œ.......´... */
	$"1300 0000 9C00 0000 0100 0000 C000 0000"            /* ....œ.......À... */
	$"0E00 0000 9C00 0000 0A00 0000 B400 0000"            /* ....œ.......´... */
	$"0400 0000 9C00 0000 0500 0000 B400 0000"            /* ....œ.......´... */
	$"0A01 0000 9C00 0000 0200 0000 C000 0000"            /* ....œ.......À... */
	$"3B01 0000 9C00 0000 0A00 0000 C000 0000"            /* ;...œ.......À... */
	$"0700 0000 9C00 0000 0900 0000 B400 0000"            /* ....œ...Æ...´... */
	$"4400 0000 9C00 0000 0600 0000 B400 0000"            /* D...œ.......´... */
	$"2F00 0000 9C00 0000 2A00 0000 9C00 0000"            /* /...œ...*...œ... */
	$"0600 0000 B400 0000 0800 0000 9C00 0000"            /* ....´.......œ... */
	$"0900 0000 B400 0000 2701 0000 9C00 0000"            /* Æ...´...'...œ... */
	$"0200 0000 B400 0000 6100 0000 9C00 0000"            /* ....´...a...œ... */
	$"1200 0000 B400 0000 3900 0000 9C00 0000"            /* ....´...9...œ... */
	$"3000 0000 9C00 0000 1200 0000 B400 0000"            /* 0...œ.......´... */
	$"5200 0000 9C00 0000 1500 0000 B400 0000"            /* R...œ.......´... */
	$"3300 0000 9C00 0000 1200 0000 B400 0000"            /* 3...œ.......´... */
	$"2900 0000 9C00 0000 0500 0000 B400 0000"            /* )...œ.......´... */
	$"0500 0000 9C00 0000 0F00 0000 B400 0000"            /* ....œ.......´... */
	$"8300 0000 9C00 0000 0F00 0000 C000 0000"            /* ƒ...œ.......À... */
	$"1301 0000 9C00 0000 0100 0000 C000 0000"            /* ....œ.......À... */
	$"9003 0000 9C00 0000 0B00 0000 B400 0000"            /* �...œ.......´... */
	$"0400 0000 9C00 0000 0500 0000 B400 0000"            /* ....œ.......´... */
	$"3400 0000 9C00 0000 0400 0000 B400 0000"            /* 4...œ.......´... */
	$"FC00 0000 9C00 0000 1500 0000 C000 0000"            /* ....œ.......À... */
	$"1F00 0000 9C00 0000 0800 0000 B400 0000"            /* ....œ.......´... */
	$"1000 0000 9C00 0000 0B00 0000 B400 0000"            /* ....œ.......´... */
	$"8900 0000 9C00 0000 0E00 0000 B400 0000"            /* ‰...œ.......´... */
	$"2500 0000 9C00 0000 1B00 0000 B400 0000"            /* %...œ.......´... */
	$"0B00 0000 9C00 0000 0E00 0000 B400 0000"            /* ....œ.......´... */
	$"0A00 0000 9C00 0000 0500 0000 B400 0000"            /* ....œ.......´... */
	$"2F00 0000 9C00 0000 0100 0000 C000 0000"            /* /...œ.......À... */
	$"0300 0000 9C00 0000 0200 0000 C000 0000"            /* ....œ.......À... */
	$"1301 0000 9C00 0000 2400 0000 C000 0000"            /* ....œ...$...À... */
	$"2500 0000 9C00 0000 0C00 0000 B400 0000"            /* %...œ.......´... */
	$"0300 0000 9C00 0000 0C00 0000 B400 0000"            /* ....œ.......´... */
	$"E900 0000 9C00 0000 0D00 0000 B400 0000"            /* ....œ...Â...´... */
	$"1900 0000 9C00 0000 2700 0000 C000 0000"            /* ....œ...'...À... */
	$"2302 0000 9C00 0000 0600 0000 B400 0000"            /* #...œ.......´... */
	$"4C00 0000 9C00 0000 0500 0000 B400 0000"            /* L...œ.......´... */
	$"8D00 0000 9C00 0000 0500 0000 B400 0000"            /* �...œ.......´... */
	$"1C00 0000 9C00 0000 0500 0000 B400 0000"            /* ....œ.......´... */
	$"1D01 0000 9C00 0000 0400 0000 B400 0000"            /* ....œ.......´... */
	$"3C00 0000 9C00 0000 1900 0000 C000 0000"            /* <...œ.......À... */
	$"0500 0000 9C00 0000 0C00 0000 B400 0000"            /* ....œ.......´... */
	$"1000 0000 9C00 0000 0B00 0000 B400 0000"            /* ....œ.......´... */
	$"8F00 0000 9C00 0000 0600 0000 B400 0000"            /* �...œ.......´... */
	$"3401 0000 9C00 0000 1A00 0000 C000 0000"            /* 4...œ.......À... */
	$"2700 0000 9C00 0000 0500 0000 B400 0000"            /* '...œ.......´... */
	$"2B00 0000 9C00 0000 0400 0000 B400 0000"            /* +...œ.......´... */
	$"9900 0000 9C00 0000 0100 0000 C000 0000"            /* ™...œ.......À... */
	$"8800 0000 9C00 0000 0100 0000 C000 0000"            /* ˆ...œ.......À... */
	$"0300 0000 9C00 0000 0100 0000 C000 0000"            /* ....œ.......À... */
	$"4100 0000 9C00 0000 0100 0000 C000 0000"            /* A...œ.......À... */
	$"0300 0000 9C00 0000 0100 0000 C000 0000"            /* ....œ.......À... */
	$"8E00 0000 9C00 0000 0500 0000 B400 0000"            /* Ž...œ.......´... */
	$"0C00 0000 9C00 0000 3300 0000 B400 0000"            /* ....œ...3...´... */
	$"0100 0000 9C00 0000 1A00 0000 C000 0000"            /* ....œ.......À... */
	$"9400 0000 9C00 0000 1D00 0000 C000 0000"            /* ”...œ.......À... */
	$"A300 0000 9C00 0000 3D00 0000 C000 0000"            /* £...œ...=...À... */
	$"1D00 0000 9C00 0000 0E00 0000 B400 0000"            /* ....œ.......´... */
	$"1C00 0000 9C00 0000 0E00 0000 B400 0000"            /* ....œ.......´... */
	$"0A00 0000 9C00 0000 0500 0000 B400 0000"            /* ....œ.......´... */
	$"2E00 0000 9C00 0000 0C00 0000 B400 0000"            /* ....œ.......´... */
	$"3700 0000 9C00 0000 0100 0000 C000 0000"            /* 7...œ.......À... */
	$"0300 0000 9C00 0000 0100 0000 C000 0000"            /* ....œ.......À... */
	$"4601 0000 9C00 0000 0100 0000 C000 0000"            /* F...œ.......À... */
	$"B400 0000 9C00 0000 0400 0000 B400 0000"            /* ´...œ.......´... */
	$"0A00 0000 9C00 0000 1900 0000 C000 0000"            /* ....œ.......À... */
	$"1A00 0000 9C00 0000 0400 0000 B400 0000"            /* ....œ.......´... */
	$"0700 0000 9C00 0000 0600 0000 B400 0000"            /* ....œ.......´... */
	$"0B00 0000 9C00 0000 0900 0000 B400 0000"            /* ....œ...Æ...´... */
	$"6400 0000 9C00 0000 2700 0000 B400 0000"            /* d...œ...'...´... */
	$"2900 0000 9C00 0000 0500 0000 B400 0000"            /* )...œ.......´... */
	$"0500 0000 9C00 0000 0F00 0000 B400 0000"            /* ....œ.......´... */
	$"1100 0000 9C00 0000 1500 0000 C000 0000"            /* ....œ.......À... */
	$"0400 0000 9C00 0000 0600 0000 B400 0000"            /* ....œ.......´... */
	$"CF00 0000 9C00 0000 0500 0000 B400 0000"            /* Ï...œ.......´... */
	$"2800 0000 9C00 0000 0600 0000 B400 0000"            /* (...œ.......´... */
	$"0C00 0000 9C00 0000 0600 0000 B400 0000"            /* ....œ.......´... */
	$"5700 0000 9C00 0000 0D00 0000 B400 0000"            /* W...œ...Â...´... */
	$"2E00 0000 9C00 0000 0E00 0000 B400 0000"            /* ....œ.......´... */
	$"1400 0000 9C00 0000 0E00 0000 B400 0000"            /* ....œ.......´... */
	$"0E00 0000 9C00 0000 0600 0000 B400 0000"            /* ....œ.......´... */
	$"5300 0000 9C00 0000 1400 0000 B400 0000"            /* S...œ.......´... */
	$"0B00 0000 9C00 0000 0900 0000 B400 0000"            /* ....œ...Æ...´... */
	$"F000 0000 9C00 0000 0100 0000 B400 0000"            /* ....œ.......´... */
	$"4E00 0000 9C00 0000 0200 0000 C000 0000"            /* N...œ.......À... */
	$"1100 0000 9C00 0000 0600 0000 B400 0000"            /* ....œ.......´... */
	$"3800 0000 9C00 0000 1300 0000 C000 0000"            /* 8...œ.......À... */
	$"1A00 0000 9C00 0000 0400 0000 B400 0000"            /* ....œ.......´... */
	$"0500 0000 9C00 0000 0400 0000 B400 0000"            /* ....œ.......´... */
	$"B700 0000 9C00 0000 4F00 0000 C000 0000"            /* ·...œ...O...À... */
	$"C300 0000 9C00 0000 0400 0000 B400 0000"            /* Ã...œ.......´... */
	$"6100 0000 9C00 0000 2800 0000 C000 0000"            /* a...œ...(...À... */
	$"0400 0000 9C00 0000 0A00 0000 B400 0000"            /* ....œ.......´... */
	$"6E00 0000 9C00 0000 0A00 0000 B400 0000"            /* n...œ.......´... */
	$"3000 0000 9C00 0000 0100 0000 C000 0000"            /* 0...œ.......À... */
	$"0400 0000 9C00 0000 0A00 0000 B400 0000"            /* ....œ.......´... */
	$"7700 0000 9C00 0000 0100 0000 C000 0000"            /* w...œ.......À... */
	$"0F00 0000 9C00 0000 0100 0000 C000 0000"            /* ....œ.......À... */
	$"7100 0000 9C00 0000 0700 0000 B400 0000"            /* q...œ.......´... */
	$"0500 0000 9C00 0000 0B00 0000 B400 0000"            /* ....œ.......´... */
	$"0B00 0000 9C00 0000 0100 0000 C000 0000"            /* ....œ.......À... */
	$"1000 0000 9C00 0000 0100 0000 C000 0000"            /* ....œ.......À... */
	$"0800 0000 B400 0000 5E00 0000 9C00 0000"            /* ....´...^...œ... */
	$"0300 0000 B400 0000 0300 0000 9C00 0000"            /* ....´.......œ... */
	$"0500 0000 B400 0000 2700 0000 9C00 0000"            /* ....´...'...œ... */
	$"0300 0000 B400 0000 1E00 0000 9C00 0000"            /* ....´.......œ... */
	$"0200 0000 C000 0000 2900 0000 9C00 0000"            /* ....À...)...œ... */
	$"0500 0000 B400 0000 2A00 0000 9C00 0000"            /* ....´...*...œ... */
	$"0A00 0000 B400 0000 4800 0000 9C00 0000"            /* ....´...H...œ... */
	$"0A00 0000 B400 0000 A000 0000 9C00 0000"            /* ....´... ...œ... */
	$"0A00 0000 B400 0000 4E00 0000 9C00 0000"            /* ....´...N...œ... */
	$"0A00 0000 B400 0000 2A00 0000 9C00 0000"            /* ....´...*...œ... */
	$"1900 0000 C000 0000 0900 0000 B400 0000"            /* ....À...Æ...´... */
	$"E600 0000 9C00 0000 0900 0000 B400 0000"            /* ....œ...Æ...´... */
	$"2C00 0000 9C00 0000 0900 0000 B400 0000"            /* ,...œ...Æ...´... */
	$"5500 0000 9C00 0000 0900 0000 B400 0000"            /* U...œ...Æ...´... */
	$"5400 0000 9C00 0000 0900 0000 B400 0000"            /* T...œ...Æ...´... */
	$"4300 0000 9C00 0000 0100 0000 9C00 0000"            /* C...œ.......œ... */
	$"1800 0000 C000 0000 0700 0000 9C00 0000"            /* ....À.......œ... */
	$"0100 0000 C000 0000 0800 0000 9C00 0000"            /* ....À.......œ... */
	$"0800 0000 B400 0000 2300 0000 9C00 0000"            /* ....´...#...œ... */
	$"0600 0000 B400 0000 1D00 0000 9C00 0000"            /* ....´.......œ... */
	$"0A00 0000 B400 0000 1200 0000 9C00 0000"            /* ....´.......œ... */
	$"0C00 0000 B400 0000 0400 0000 9C00 0000"            /* ....´.......œ... */
	$"4500 0000 C000 0000 4300 0000 9C00 0000"            /* E...À...C...œ... */
	$"1900 0000 B400 0000 C201 0000 9C00 0000"            /* ....´...Â...œ... */
	$"0300 0000 C000 0000 1800 0000 9C00 0000"            /* ....À.......œ... */
	$"0100 0000 C000 0000 7E00 0000 9C00 0000"            /* ....À...~...œ... */
	$"0C00 0000 C000 0000 4200 0000 9C00 0000"            /* ....À...B...œ... */
	$"1900 0000 B400 0000 1B00 0000 9C00 0000"            /* ....´.......œ... */
	$"0B00 0000 B400 0000 8900 0000 9C00 0000"            /* ....´...‰...œ... */
	$"0B00 0000 B400 0000 4100 0000 9C00 0000"            /* ....´...A...œ... */
	$"0B00 0000 B400 0000 1101 0000 9C00 0000"            /* ....´.......œ... */
	$"0B00 0000 B400 0000 5900 0000 9C00 0000"            /* ....´...Y...œ... */
	$"0B00 0000 B400 0000 5000 0000 9C00 0000"            /* ....´...P...œ... */
};

\ No newline at end of file
diff --git a/IIGS.601.SRC/ToolBoxMisc/ReadMeFiles/Shortcuts.text b/IIGS.601.SRC/ToolBoxMisc/ReadMeFiles/Shortcuts.text
new file mode 100644
index 0000000..f1d4ae0
--- /dev/null
+++ b/IIGS.601.SRC/ToolBoxMisc/ReadMeFiles/Shortcuts.text
@@ -0,0 +1 @@
+
		     System 6.0.1 Tips and Shortcuts

There is usually more than one way to perform a function on your Apple IIGS.  A number of shortcuts have been built-in to the System 6 software to provide the greatest flexibility and efficiency.  This document lists a number of tips and shortcuts that may or may not have been described in the manual.  You may have already discovered some of these for yourself, but many are not obvious.

Note: if you run across terms which are unfamiliar to you, please check the glossary at the back of the System 6 User's Reference.  This document assumes some familiarity with the operation of your GS and with system software.  Consult your manual if you run across an area which is unfamiliar to you. 

System Startup Options
When turning on the computer or rebooting, press the Ô8Õ key to start up in ProDOS 8.

When turning on the computer or rebooting, hold down the ÔShiftÕ key to inhibit loading of non-system Inits (in the System.Setup folder) and all desk accessories (in the Desk.Accs folder).  This can be useful if youÕve recently added an Init or DA that prevents the system from booting normally.  You can use the ÔShiftÕ key to boot without loading the offending file, and then remove the file once the system displays the Finder.

If you normally have a Startup application selected (with the SetStart control panel), you can temporarily override this setting by holding down the ÔCommandÕ key during the startup process.  When the SetStart icon appears (the boot), the Control Panel will recognize the keypress, skip setting the Startup application, and then draw a red X through the icon.  (At this point, you can release the ÔCommandÕ key.)  The system will start the Finder instead of the selected startup application.

¥ WORKING WITH THE FINDER
Many Finder shortcuts are listed under Finder Help in the Finder.

Keyboard navigation has been added to allow you so select icons easily:
- You can also use the arrow keys to move from one icon to another.
- ÔTabÕ selects the next icon alphabetically; ÔShift-TabÕ selects the previous icon alphabetically.
- ÔEscÕ deselects all icons on the desktop and moves the keyboard-select keys to the icons in the front window; ÔCommand-EscÕ or ÔCommand-Shift-Up ArrowÕ deselects all icons  in the front window and moves the keyboard-select keys back to the desktop.

ÔCommand-Keypad-0Õ cycles through your open windows.  ÔCommand-Shift-Keypad-0Õ cycles through the windows the other way.

ÔControlÕ works with ÔCommand-WÕ and ÔCommand-Option-WÕ; it temporarily reverses the Save Finder information setting.

You can now use ÔCommand-PeriodÕ to stop the calculate in Icon Info windows.

ÔCommand-PeriodÕ now also works like ÔEscÕ to terminate either Verify or Validate.

The File menu command ÔPut AwayÕ (Command-Y) now works on disk icons as well as files and folders.  Putting away a disk ejects the selected disk, or disconnects you from the selected shared disk.  (Dragging a disk icon to the trash works in exactly the same way, but ÔPut AwayÕ may be a more preferable method and has a keyboard equivalent.)

For your convenience, the Finder automatically selects a diskÕs icon when you insert the disk.  Also, when you close a window the Finder automatically selects the disk or folder icon into which the window closed, if no other icons would otherwise be selected (the Finder assumes that if you selected icons in another window or on the desktop, it should leave them selected).

Holding down ÔOptionÕ while double-clicking a document (or while choosing ÔOpenÕ from the Finder's File menu) presents the directory dialog box.  You can specify what application to associate with the desired document for a one time launch.  Holding down ÔOptionÕ and ÔControlÕ while double-clicking a document does the same thing, but the Finder makes a note to launch that application whenever you open a document of that same kind.

You can double-click on a Control Panel icon to open that Control Panel, even if itÕs not in your startup diskÕs System:CDevs folder.  (However, Control Panels that do special things at system startup time must be kept in the System:CDevs folder.)

You can hold down ÔOptionÕ and choose ÔControl PanelsÕ from the Apple menu to open the System:CDevs folder.

You can drag a Control Panel icon onto the desktop for convenience.  (If you drag it from the System:CDevs folder, the Control Panel is still seen by the system as being stored in the CDevs folder.)

You can drag folders onto the desktop (this was not allowed in previous versions of the Finder).

When an Icon Info window is in front and the General card is visible, typing ÔIÕ toggles the Inactive checkbox (if present) and ÔLÕ toggles the Locked checkbox.  (You can inactivate several kinds of files, including Finder Icon files that you donÕt want to use.)  You can also use ÔCommand-KÕ to activate the calculate icon.

ÔCommand-1Õ through ÔCommand-4Õ select various Icon Info cards, left to right.  (Not all cards are present for all icons.  The four cards are General, Where, Comment, and Access.)

In the Shut Down dialog, you can type ÔSÕ, ÔRÕ, or ÔQÕ to select the Shut Down, Restart, or Quit radio buttons, and you can use the up and down arrow keys to select different buttons.

In the Preferences dialog, Ô1Õ, Ô2Õ, Ô3Õ, and Ô4Õ toggle the four checkboxes grouped under List Views, and ÔSÕ, ÔHÕ, ÔWÕ, and ÔCÕ toggle the other four items, which begin with those letters.  (These work with or without the Command key.)

Window Shuffling
ÔCommand-WÕ always closes the front System window (NDAs and Control Panels, for example), even if the application youÕre in does not support the standard Command-W equivalent for ÔCloseÕ in the File menu.

If you already have NDA windows open, you can bring them in front of some dialog boxes (for example, Finder Preferences and EasyMount ÔConnect AsÕ), just by clicking in the NDA window.

Keyboard Navigation in Lists
Whenever you see a List control with a bold frame, you can use the up and down arrows to select various items in the list.  You can also type the first one or more letters of an item to select it.  When typing the first several letters of an item, you have to type a key every two-thirds of a second or faster.  You can also type ÔClearÕ or ÔDeleteÕ to clear the existing string of letters instead of waiting two-thirds of a second.

Some lists without bold frames work this way, too.

Initializing and Erasing Disks
When initializing or erasing a disk (in the Initialize dialog), ÔCommand-ReturnÕ works for the Initialize or Erase button.

When you insert a disk that is already formatted, but not for a file system you can use, you get an alert that identifies the diskÕs format as best it can and asks ÒDo you want to initialize it?  Eject/InitializeÓ.  If you hold down ÔOptionÕ when you click ÔInitializeÕ, the system offers to erase the disk instead.

Note:  Erasing saves time, since the media will not be physically reformatted.  On the other hand, the system does not verify that all blocks on the disk are usable.  Use ÔEraseÕ instead of ÔInitializeÕ only if youÕre sure the disk is properly formatted.

EasyMount
If the EasyMount Finder extension is installed, then ÔMake Alias...Õ appears in the Extras menu.

Select any disk, folder, or application icon and choose ÔMake Alias...Õ from the Extras menu.  EasyMount will ask you where to save the EasyMount document.

You can double-click on an EasyMount document to open the original item.  That is, double-clicking on an EasyMount document opens a disk window, opens a folder window, or launches an application.

If the original item is a shared disk, or is on a shared disk, EasyMount automatically connects to the shared disk before opening the item.  A ÔConnect asÕ dialog will appear if a password is required but not recorded.

If the password is recorded, but you want the ÔConnect asÕ dialog anyway, hold down ÔOptionÕ while double-clicking the alias.  (You can change the Guest/Registered User setting or enter a different user name.)

In the ÔConnect asÕ dialog, ÔCommand-GÕ and ÔCommand-RÕ select the Guest and Registered User radio buttons.

To skip opening a disk or folder window, hold down the Control key while double-clicking the EasyMount document.

¥ TEXT EDITING
When editing text (for example, in the Teach application, or in the Comment card of an Icon Info window in the Finder), try the following...

ÔCommand-Left ArrowÕ moves left by words (i.e. a word at a time).  
ÔCommand-Right ArrowÕ moves right by words.  
ÔOption-Left ArrowÕ moves to the beginning of the line.  
ÔOption-Right ArrowÕ moves to the end of the line.  
Add the ÔShiftÕ key to the key combinations above to select the intervening text.

ÔCommand-Up ArrowÕ moves to the top of the page.  
ÔOption-Up ArrowÕ moves to the beginning of the document.   
ÔCommand-Down ArrowÕ moves to the bottom of the page. 
ÔOption-Down ArrowÕ moves to the end of the document.  
Add the ÔShiftÕ key to the key combinations above to select the intervening text.

ÔDeleteÕ (or ÔControl-DÕ) removes the current selection (if there is no selection, it removes the character to the left of the insertion point).

ÔClearÕ removes the current selection.

ÔControl-FÕ removes the character to the right of the insertion point (if there is a selection, it just removes the selection).

ÔControl-YÕ removes all characters from the insertion point to the end of the line.

ÔControl-XÕ, Ô-CÕ, and Ô-VÕ are Cut, Copy, and Paste (you can use these even in unusual cases where the Edit menu is not available).

Clicking the mouse moves the insertion point; dragging selects by character.  Double-clicking selects a word; dragging extends the selection by words.  Triple-clicking selects a line; dragging extends the selection by lines.

Keyboard Translation
If ÔStandardÕ is chosen in the General Control PanelÕs Translation menu, you can type special characters by holding down the ÔOptionÕ key.

Most of the special characters are easily viewable if you have Video Keyboard installed (use the Installer script Special Aids: VideoKeyboard).  Choose Video Keyboard from the Apple menu, and then hold down ÔOptionÕ, or ÔOptionÕ and ÔShiftÕ.

Certain characters begin two-character sequences:  ÔOption-eÕ puts an accent over the next letter, ÔOption-`Õ puts an (`) accent over the next character, ÔOption-iÕ puts a caret (^) over the next character, and ÔOption-nÕ puts a tilde (~) over the next character.


¥ WORKING WITH VARIOUS DIALOG BOXES
System 6 often prompts the user with dialog boxes.  Dialog boxes are windows containing either additional information, warnings, or instructions which often prompt you to provide additional commands in order to perform a certain function.  Below, are a number of tips for working with the various dialog boxes that you may encounter.

Directory Dialog boxes (Standard File)
You can type one or more letters from the beginning of an item to jump the selection down to that item.  (To use the first several characters of an item name, you have to type one key every two-thirds of a second or faster.)

ÔTabÕ no longer moves to the next disk.  In dialogs where you enter a file name, ÔTabÕ chooses between the edit line and the file list.  Keystrokes go to whichever one is active.

ÔCommand-Right ArrowÕ or ÔCommand-TabÕ moves to the next disk, and ÔCommand-Left ArrowÕ moves to the previous disk.

ÔCommand-PeriodÕ is the Cancel button (ÔEscÕ is not).

ÔEscÕ and ÔCommand-Up ArrowÕ are equivalent to the Close button (moving ÔupÕ one level).

ÔCommand-EscÕ, ÔCommand-DÕ (for Disks), or ÔCommand-Shift-Up ArrowÕ jump to the Disks level (like clicking Close repeatedly or clicking the Disks button).

Clicking on the Ôpath itemÕ (the triangle in a box, or the text next to it) displays a pop-up menu with one item for every level in the current path, all the way up to Disks.  Choosing an item takes you ÔupÕ one or more levels.

ÔCommand-OÕ and ÔCommand-Down ArrowÕ are the Open button (not always the same as the bold-outlined button).

AlertWindow Dialog boxes
Many dialog boxes are handled by AlertWindow (there will be some text, one or more buttons, and usually an icon in the top left).  In these dialogs:

¥ ÔEscÕ and ÔCommand-PeriodÕ are the Cancel button, if one is available.
¥ ÔReturnÕ is the bold-outlined button, if there is one.
¥ For other buttons, you can type the first letter of a button name to go to that button (if two buttons have the same first letter, typing that letter does nothing).  This feature works with or without the Command key.

Font Selection Dialog box
This dialog is the one that appears in Teach when you choose ÔChoose Font...Õ from the Font menu.  (Note that the same dialog appears in many other applications, sometimes in response to a menu item with a different name, like ÔAttributes...Õ).

Use ÔTabÕ (or the mouse) to move between the font family list, the size list, and the size box.  In the family list, you can use arrows and letters to choose a family.  In the size list, you can use the up and down arrows (typing a letter takes you back to the family list automatically).

ÔCommand -PÕ, Ô-BÕ, Ô-IÕ, Ô-UÕ, Ô-OÕ, and Ô-SÕ toggle the six Style checkboxes (Plain, Bold, Italic, Underline, Outline, Shadow).

Tabbing Between Controls
ÔTabÕ advances to the next targetable control.  In many dialogs, ÔCommand-TabÕ moves in the opposite direction, to the previous targetable control.

Checkboxes and Radio Buttons
You can almost always toggle a checkbox or select a radio button by clicking in the description beside it.  You donÕt have to click inside the square or circle.


¥ WORKING WITH THE CONTROL PANELS
The Control Panels window
ÔCommand-Shift-EscÕ opens the Control Panels window, just like choosing Control Panels from the Apple menu.  (ÔCommand-Option-Shift-EscÕ opens the System:CDevs folder, if youÕre in the Finder.)

You can use letters and arrow keys to select a Control Panel icon.

ÔReturnÕ, ÔCommand-OÕ, or double-clicking an icon opens the selected Control Panel(s).

If you hold down ÔOptionÕ while opening a Control Panel, the main window closes after the Control Panel opens.  (Similar to ÔOption-openingÕ a folder in the Finder.)

You can hold down ÔCommandÕ and click on an icon to select several Control Panel icons at once, or you can hold down ÔShiftÕ to select a whole range of Control Panel icons.

ÔCommand-HÕ or ÔCommand-?Õ is the Help button.

AppleShare Control Panel
You can ÔTabÕ between the Zone list, Server list, and User Name.  If you have a lot of zones or a lot of servers, arrow keys and letter keys are helpful.

In the ÔConnect to the file server...asÕ dialog, ÔCommand-GÕ and ÔCommand-RÕ select the Guest and Registered User radio buttons.

Sounds Control Panel
The Sounds Control Panel lets you choose what sounds, if any, the computer plays for the System Beep and twenty-two specific events (such as Disk Inserted, Disk Ejected, and Task Completed).

Choose an event from the Event menu, and then choose a sound from the Sounds menu.  The Sounds menu contains ÔNot AssignedÕ, ÔSilenceÕ, and ÔStandard BeepÕ, plus the sounds in your System:Sounds folder.  These sounds are in the same format HyperCard IIgs uses (if you put a HyperCard IIgs stack in the Sounds folder, any sounds in the stack are available).  If no sounds are listed, install Control Panel:Sounds using the Installer; eleven sounds are provided.

Setting an event to ÔNot AssignedÕ gives any other sound utilities you installed a chance to respond to that event.  If no sound utility responds to the event, the result is either silence or the Standard Beep (it depends on the program causing the event, not the event itself).

Pressing ÔReturnÕ with the Sounds window in front replays the currently selected sound.

Time Control Panel
Use ÔTabÕ to move between Date and Time controls.  Left and right arrows move between fields.  The up and down arrows change field values.

You can type numbers directly - there is no need to adjust them with the mouse.


¥ WORKING WITH DESK ACCESSORIES
Classic Desk Accessory menu (Command-Ctrl-Esc)
You can type letters to move around in the built-in or 'classic' desk accessory menu (first letter only).  Each press moves you to the next line that starts with that letter.

ÔEscÕ takes you to Quit, and ÔCommand-Up ArrowÕ and ÔCommand-Down ArrowÕ take you up and down one screenful at a time.

DESKTOP DA'S:
Calculator Desk Accessory
The Calculator window layout matches the keypad.  You can use the main keyboard, the keypad, or click on the buttons in the Calculator window interchangeably.

Every time you use Ô=Õ the Calculator repeats the last operation.  For example, to count backwards from 98 by 7s, type Ò98 - 7 = = = = = = = =Ó.

Typing Ô/Õ followed by Ô=Õ computes the reciprocal (as on many algebraic calculators).  For example, 4 / = gives 0.25.

ÔHÕ toggles between decimal and hexadecimal mode.  ÔZÕ (or clicking the Zoom box) zooms the window to show or hide the ÔA-FÕ keys.  (The keys donÕt have to be visible to use Hex.  ÔHexÕ appears in the display when youÕre in Hex mode.)

Clicking on the small ÔApple symbolÕ (or ÔCommand-?Õ) shows the About box.

ÔCopyÕ (or ÔCommand-CÕ) copies the Calculator display to the clipboard (as text).

ÔCutÕ (or ÔCommand-XÕ) copies the Calculator display to the clipboard (as text) and clears the display to Ô0Õ.

ÔPasteÕ (or ÔCommand-VÕ) lets you paste numbers or calculations from the clipboard into the Calculator, just as if you were typing the characters on the keyboard.  (Characters the Calculator does not recognize are simply ignored.)

Find File Desk Accessory
Find File normally ignores invisible files.  If you want to include invisible files in the search, hold down ÔOptionÕ when you click on the ÔFind FileÕ button (or when you hit ÔReturnÕ to begin the search).

You may continue working while Find File searches, but it searches faster while the Find File window is in front.  (The system responds to mouse clicks in about one second while Find File is searching.)

ÔEscÕ or ÔCommand-PeriodÕ stops the search.

ÔCommand-FÕ will open Find File unless the application is already using that key for a menu item.

¥ WORKING WITH ARCHIVER
Use Ô?Õ for the Identify button.
Use ÔRight ArrowÕ for the Device button.
Use ÔCommand-MÕ for Mark files, ÔCommand-UÕ for Unmark files.


¥ WORKING WITH ÒEASY ACCESSÓ
Controlling the Mouse From the Keyboard

On the 1 Megabyte Apple IIgs (ROM 3), and on ROM 1 computers when Special Aids: Easy Access is installed, you can control the mouse from the keypad.  Press ÔCommand-Shift-ClearÕ to enable keyboard mouse control; press ÔClearÕ to disable it.

While keyboard mouse control is on, keys on the numeric keypad control the mouse pointer.  Ô5Õ is the mouse button, and the keys surrounding it (Ô1Õ-Ô4Õ and Ô6Õ-Ô9Õ) allow horizontal, vertical, and diagonal movement.

To make each press of a direction key move the pointer in larger increments, type * followed by a digit from Ô1Õ to Ô9Õ (*1 or ** returns to normal).

Pressing the Ô0Õ key locks down the mouse button until you press the ÔperiodÕ key.

Sticky Keys
On the 1 Megabyte Apple IIgs (ROM 3), and on ROM 1 computers when Special Aids: Easy Access is installed, you can use Sticky Keys to press modifier keys in sequence instead of all at once.  The modifier keys are ÔShiftÕ, ÔCommandÕ, ÔOptionÕ, and ÔControlÕ.

To turn Sticky Keys on or off, press and release ÔShiftÕ five times in a row.  When Sticky Keys is on, every modifier key you press and release is considered pressed for the next non-modifier keypress.  To lock down a modifier for a series of keypresses, press and release the modifier twice in a row.  (To turn off a locked modifier, press it three times in a row.)

Sticky Keys automatically turns off if you press a modifier and non-modifier key at the same time.

Easy Access requires an ADB keyboard and therefore does not work on a converted AppleÊIIe.
\ No newline at end of file
diff --git a/IIGS.601.SRC/ToolBoxMisc/ReadMeFiles/Whats.New.r b/IIGS.601.SRC/ToolBoxMisc/ReadMeFiles/Whats.New.r
new file mode 100644
index 0000000..ee93ac4
--- /dev/null
+++ b/IIGS.601.SRC/ToolBoxMisc/ReadMeFiles/Whats.New.r
@@ -0,0 +1 @@
+
#include "TypesIIGS.r"


data 0x7001 (0x1) {
	$"AD00 7C02 1A00 0200 0000 0000"                      /* ­.|......... */
};

data rStyleBlock (0x1, purgeable3) {
	$"0000 1400 0000 0000 0000 5902 0000 0000"            /* ..........Y..... */
	$"0000 0000 0000 0100 4000 1800 0000 FEFF"            /* ........@....... */
	$"0008 0000 FFFF 0000 0000 FEFF 0108 0000"            /* ................ */
	$"FFFF 0000 0000 1000 0000 1C00 0000 0C00"            /* ................ */
	$"0000 3A01 0000 0000 0000 0600 0000 0C00"            /* ..:............. */
	$"0000 DC04 0000 0000 0000 0B00 0000 0C00"            /* ................ */
	$"0000 3A02 0000 0000 0000 0F00 0000 0C00"            /* ..:............. */
	$"0000 CB03 0000 0000 0000 0800 0000 0C00"            /* ..Ë............. */
	$"0000 B302 0000 0000 0000 0800 0000 0C00"            /* ..³............. */
	$"0000 EB02 0000 0000 0000 1F00 0000 0C00"            /* ................ */
	$"0000 E700 0000 0000 0000 0900 0000 0C00"            /* ..........Æ..... */
	$"0000 DA00 0000 0000 0000"                           /* .......... */
};

\ No newline at end of file
diff --git a/IIGS.601.SRC/ToolBoxMisc/ReadMeFiles/Whats.New.text b/IIGS.601.SRC/ToolBoxMisc/ReadMeFiles/Whats.New.text
new file mode 100644
index 0000000..f935212
--- /dev/null
+++ b/IIGS.601.SRC/ToolBoxMisc/ReadMeFiles/Whats.New.text
@@ -0,0 +1 @@
+WhatÕs new for System 6.0.1

This is a summary of the visible changes since System 6.0 was released.  There have been many bugs fixed and many features added that are not immediately visibleÐthey will enable developers to create better future products.  Be sure to also read the Shortcuts file on the SystemTools2 disk for more information.

Finder (see also Finder Help)

You can now click in Name, Size, Kind, or Last Modified at the top of a list-view window to change the view.

To rename an icon, you must now click on its name rather than the icon.

The ÒFile Copy AlternativesÓ dialog has been removed.  Holding down the Option key now always forces a copy rather than a move.

Dragging certain system-related files to the System folder icon on the boot volume now does Òmagic routingÓ much like the Macintosh Finder.  Note that this only works when using folderÕs icon; dragging into a window works as before.  The kinds of files that are properly placed in their own folders within the System folder are: Control Panels, Desk Accessories, Drivers, FSTs, Tools, Fonts, Sounds, Inits, and Finder Extensions.  Other files are just placed in the System folder.

The Finder now creates the ÒFinderExtrasÓ folder for you.

If you open the Icon Info window on an Apple SCSI device, the SCSI ID number appears on the ÒWhereÓ card.

The FinderÕs Clipboard window handles text, pictures, and sounds.  If you copy a sound to the clipboard (using the Sound control panel, for example), you can click on the Speaker icon on the clipboard to hear the sound.  Teach has the same Clipboard window.

Extensions

EasyMount is not just for servers anymore.  It now handles aliases to any disk, folder, or application.  In other words, you donÕt need to drag the icon onto the desktop anymoreÐjust keep an alias of it on the desktop.  Select the icon of the item you want to alias and choose ÒMake AliasÉÓ from the Extras menu.  EasyMount will ask you where to save the alias.  Later, double-clicking the alias opens the real itemÐdisks and folders are opened, and applications (P8 or GS/OS) are launched.  The Installer automatically installs EasyMount in your System.Setup folder.

Control Panels

DC Printer control panel
This was a change in System 6.0 but not documented: The DC Printer will let you choose LaserWriter, which is potentially useful for ÒprintingÓ to PostScript files.

Monitor control panel
The new checkbox ÒSmoother Mouse CursorÓ sets a new Battery RAM location.  It kills the cursor flicker that is especially noticeable with a Video Overlay card or an accelerator.

SetStart control panel
The new checkbox ÒShow icons during startupÓ provides a way to set the Battery RAM location that disables the display of the startup icons.  The  Battery RAM location has been there since System 6.0, but there was no Apple-provided way to change it.

The new checkbox ÒEnable programmer CDAsÓ provides a way to set the Battery RAM location that  allows Visit Monitor and Memory Peeker to show up in the CDA menu.  Both ROM 1 and ROM 3 machines now check this location.  This checkbox does not show up if the ROM 3 Control Panel disable jumper is present.

Startup

During startup, if you have a lot of icons, they no longer keep recycling the bottom row of the screen.  They now Òwrap upÓ to the row above.

If you use a Vulcan internal hard drive, you no longer need to copy the Vulcan driver onto the Install disk when installing new system software.  The Vulcan driver should still to be used for enhanced performance, but you can successfully install without it.

If your ROM 3 Apple IIgs has 8 Megabytes of RAM, the computer fails to create a RAM disk (RAM5) of any size.  In this case, System 6.0.1 creates RAM5 and then restarts the system.  When you turn on the computer, you will hear an extra beep at the "Apple IIgs ... ROM Version 3" screen.

Drivers

The RAM5 RAM disk has a new driver.  The Installer automatically  installs it if you have the RAM disk enabled when you do an Easy Update.  The driver greatly enhances the diskÕs performance.  It also allows you to have a RAM5 disk in GS/OS (but not in ProDOS 8) even when slot 5 is switched to ÒYour cardÓ.  On a ROM 1, you must have the Minimum and Maximum sizes set to the same value; otherwise you will see a message during startup and the new driver will not be used.

The Apple II Memory Expansion Card has a new optional format.  If you have a full megabyte of memory on the card, it lets you format it as either 1,024K or 800K.  The 800K option blocks out the remaining 224K, but allows faster block copies to and from other 800K disks.

File System Translators (FSTs)

The MS-DOS FST is new.  To use it, you need a drive that can read MFM disks, such as the Apple SuperDrive with an Apple II SuperDrive Controller Card.

This version is read-only - it doesnÕt let you make changes to MS-DOS disks.

ProDOS 8

The Thunderclock year table in P8 has been updated for the years 1993-1998.  There is also a Clock.Patch file on the SystemTools2 disk that you may use to update P8 (renamed to ProDOS) to include future year groups.

\ No newline at end of file
diff --git a/IIGS.601.SRC/ToolBoxMisc/ReadMeFiles/makefile b/IIGS.601.SRC/ToolBoxMisc/ReadMeFiles/makefile
new file mode 100644
index 0000000..647e047
--- /dev/null
+++ b/IIGS.601.SRC/ToolBoxMisc/ReadMeFiles/makefile
@@ -0,0 +1 @@
+#
# Target is "ReadMeFiles", which depends on everything.
#
# 21-Oct-91 DAL
#
# 31-Mar-93 SS -- Added Whats.New (for 6.0.1)
#

ReadMeFiles ÄÄ Shortcuts Read.Me Whats.New

Shortcuts ÄÄ Shortcuts.r Shortcuts.text makefile
	duplicate -y Shortcuts.text Shortcuts
	reziigs Shortcuts.r -o Shortcuts -t $70505445
	if {AutoDuplicate} == 1
		DuplicateIIGS -y -mac Shortcuts :
	End

Read.Me ÄÄ Read.Me.r Read.Me.text makefile
	duplicate -y Read.Me.text Read.Me
	reziigs Read.Me.r -o Read.Me -t $70505445
	if {AutoDuplicate} == 1
		DuplicateIIGS -y -mac Read.Me :
	End

Whats.New ÄÄ Whats.New.r Whats.New.text makefile
	duplicate -y Whats.New.text Whats.New
	reziigs Whats.New.r -o Whats.New -t $70505445
	if {AutoDuplicate} == 1
		DuplicateIIGS -y -mac Whats.New :
	End

\ No newline at end of file
diff --git a/IIGS.601.SRC/ToolBoxMisc/ReadMeFiles/read.me.makeout b/IIGS.601.SRC/ToolBoxMisc/ReadMeFiles/read.me.makeout
new file mode 100644
index 0000000..128c2df
--- /dev/null
+++ b/IIGS.601.SRC/ToolBoxMisc/ReadMeFiles/read.me.makeout
@@ -0,0 +1 @@
+Set Echo 1
duplicate -y Read.Me.text Read.Me
reziigs Read.Me.r -o Read.Me -t $70505445
if {AutoDuplicate} == 1
	DuplicateIIGS -y -mac Read.Me :
End
\ No newline at end of file
diff --git a/IIGS.601.SRC/ToolBoxMisc/Teach/AboutBox.P b/IIGS.601.SRC/ToolBoxMisc/Teach/AboutBox.P
new file mode 100644
index 0000000..3c8c3a6
--- /dev/null
+++ b/IIGS.601.SRC/ToolBoxMisc/Teach/AboutBox.P
@@ -0,0 +1 @@
+PROCEDURE aboutme;

      TYPE
        twopoint = RECORD
                     pt1: point;
                     pt2: point;
                   END;

      VAR
        tempdialog: GrafPortPtr;
        temphandle: handle;
        temprect: rect;
        tempinteger: integer;
        tempStr: str255;
        templong: longint;
        tempevent, wallyevent: eventrecord;
        ok: boolean;

        {Vars for zoom...}
        r: rect;
        ok2: boolean;
        p1, p2: integer;
        d1, d2: point;
        history: ARRAY [1..50] OF twopoint;
        historyindex: integer;
        i: integer;
        oldport: GrafPortPtr;

{ Call with something like:
  Zoom(WindowPtr(theDialog),15);
}

      FUNCTION frandv: integer;

        BEGIN
          frandv := abs(random MOD 10) + 1;
        END;

      FUNCTION frandh: integer;

        BEGIN
          frandh := abs(random MOD 15) + 1;
        END;

      PROCEDURE zoom(mywindow: windowptr;
                     historymax: integer);

        VAR
          walter: integer;
          oldrgn, clprgn, workrgn: RegionHndl;

        PROCEDURE drawsomething(t: twopoint;
                                erase: boolean);

          BEGIN
		  	If erase then
			  SetSolidPenPat(White)
			else
			  SetSolidPenPat(Black);
            WITH t DO
              BEGIN
                moveto(pt1.h, pt1.v);
                lineto(pt2.h, pt2.v);
              END;
          END;

        BEGIN {main program}
          oldPort:=getport;
          setport(grafportptr(mywindow));
		  PenNormal;
          clprgn := newrgn;
          oldrgn := newrgn;
          workrgn := newrgn;
          copyrgn(mywindow^.cliprgn, oldrgn);
          setrectrgn(clprgn, 0, 0, 400, 340);
          setrectrgn(workrgn, 160, 54, 254, 69);
          diffrgn(clprgn, workrgn, clprgn);
          setrectrgn(workrgn, 93, 108, 277, 124);
          diffrgn(clprgn, workrgn, clprgn);
          setrectrgn(workrgn, 6, 130, 110, 147);
          diffrgn(clprgn, workrgn, clprgn);
          setrectrgn(workrgn, 93, 91, 208, 106);
          diffrgn(clprgn, workrgn, clprgn);
          setrectrgn(workrgn, 93, 39, 253, 52);
          diffrgn(clprgn, workrgn, clprgn);
          setrectrgn(workrgn, 93, 12, 295, 29);
          diffrgn(clprgn, workrgn, clprgn);
          setrectrgn(workrgn, 260, 127, 320, 147);
          diffrgn(clprgn, workrgn, clprgn);
          setrectrgn(workrgn, 188, 127, 248, 147);
          diffrgn(clprgn, workrgn, clprgn);
          setrectrgn(workrgn, 8, 8, 90, 90);
          diffrgn(clprgn, workrgn, clprgn);
          setclip(clprgn);
          { Setpenmode(ModeXor); }

          REPEAT {call Desk Manager to perform any periodic}

            drawsomething(history[historyindex], false);

            IF historyindex = historymax THEN
              BEGIN
                drawsomething(history[1], true);
              END;

            IF historyindex <> historymax THEN
              BEGIN
                historyindex := historyindex + 1;
              END
            ELSE
              BEGIN
                FOR walter := 2 TO historymax DO
                  BEGIN
                    history[walter - 1].pt1 := history[walter].pt1;
                    history[walter - 1].pt2 := history[walter].pt2;
                  END;
              END;

            WITH history[historyindex] DO
              BEGIN
                pt1.h := history[historyindex - 1].pt1.h + d1.h;
                pt1.v := history[historyindex - 1].pt1.v + d1.v;
                pt2.h := history[historyindex - 1].pt2.h + d2.h;
                pt2.v := history[historyindex - 1].pt2.v + d2.v;
              END;

            WITH history[historyindex] DO
              BEGIN
                WITH r DO
                  BEGIN
                    IF (pt1.h < 0) THEN
                      BEGIN
                        d1.h := frandh;
                        pt1.h := 0;
                      END;
                    IF (pt1.h > right) THEN
                      BEGIN
                        d1.h := frandh * ( - 1);
                        pt1.h := right;
                      END;
                    IF (pt1.v < 0) THEN
                      BEGIN
                        d1.v := frandv;
                        pt1.v := 0;
                      END;
                    IF (pt1.v > bottom) THEN
                      BEGIN
                        d1.v := frandv * ( - 1);
                        pt1.v := bottom;
                      END;
                    IF (pt2.h < 0) THEN
                      BEGIN
                        d2.h := frandh;
                        pt2.h := 0;
                      END;
                    IF (pt2.h > right) THEN
                      BEGIN
                        d2.h := frandh * ( - 1);
                        pt2.h := right;
                      END;
                    IF (pt2.v < 0) THEN
                      BEGIN
                        d2.v := frandv;
                        pt2.v := 0;
                      END;
                    IF (pt2.v > bottom) THEN
                      BEGIN
                        d2.v := frandv * ( - 1);
                        pt2.v := bottom;
                      END;
                  END;
              END;
          UNTIL Button(0);
          showcursor;
          setclip(oldrgn);
          disposergn(workrgn);
          disposergn(clprgn);
          disposergn(oldrgn); 
          setport(oldport);
        END;
      {End Zoom...}

      BEGIN
		TempStr := 'Untitled';
		TempDialog := NewWindow2	(@TempStr,			{ Title reference}
							 0,						{ Ref con }
							 @DrawThisWindow,		{ Draw routine }
							 NIL,					{ DefProc pointer }
							 RefIsResource,			{ Param Table Descriptor }
							 ref(127),			{ Param Table Reference }
							 rWindParam1);			{ Param Table Type }

          {Zoom init code...}
		  SetPort(TempDialog);

          r := windowptr(tempdialog)^.portrect;

          p1 := abs(random MOD r.right);
          p2 := abs(random MOD r.bottom);
          setpt(history[1].pt1, p1, p2);

          p1 := abs(random MOD r.right);
          p2 := abs(random MOD r.bottom);
          setpt(history[1].pt2, p1, p2);

          d1.h := frandh;
          d1.v := frandv;
          d2.h := frandh;
          d2.v := frandv;

          historyindex := 1;

          Setpensize(1, 1);

          REPEAT
            zoom(windowptr(tempdialog), 15);
          UNTIL Button(0);
          CloseWindow(tempdialog);
      END;

\ No newline at end of file
diff --git a/IIGS.601.SRC/ToolBoxMisc/Teach/FindNext.asm b/IIGS.601.SRC/ToolBoxMisc/Teach/FindNext.asm
new file mode 100644
index 0000000..d358cfc
--- /dev/null
+++ b/IIGS.601.SRC/ToolBoxMisc/Teach/FindNext.asm
@@ -0,0 +1 @@
+********************************************************************************
*
* Various assembly-language routines for Teach
*
* Copyright 1989-1993 Apple Computer, Inc.
* All Rights Reserved
*
********************************************************************************
	include 'All.Macros'

********************************************************************************
*
* InstallMyRequestProc
*
* Install the request procedure that will respond to srqQuit, srqOpenOrPrint,
* and any other request we feel like watching for.
*
********************************************************************************
InstallMyRequestProc proc export

	pushlong #reqProcName
	pha
	_MMStartUp
	pushlong #teachReqProc
	_AcceptRequests
	rtl

reqProcName	str 'Apple~Teach~'

*******************************************************************************
*
* teachReqProc
*
* This is Teach's request procedure.
*
*******************************************************************************
teachReqProc

oldDPage	equ 1
RTL1	equ oldDPage+2
DataOut	equ RTL1+3
DataIn	equ DataOut+4
Request	equ DataIn+4
Result	equ Request+2
	
	phd
	tsc
	tcd
	
	phb
	phk
	plb

	lda requestTable
	pha

	lda <Request
	sta requestTable
	ldx #requestTableEnd-requestTable
@search	dex
	dex
	dex
	dex
	cmp requestTable,x
	bne @search
	jsr (requestTable+2,x)	;return SEC = handled
	ror <Result

	pla
	sta requestTable

	plb

	pld
	lda 2,s
	sta 12,s
	lda 1,s
	sta 11,s
	ply
	ply
	ply
	ply
	ply
	rtl

requestTable	dc.w $7777,ignoreRequest
	dc.w $0010,handleOpenOrPrint	;srqOpenOrPrint
	dc.w $0011,handleQuit	;srqQuit
requestTableEnd

ignoreRequest	clc
	rts

*******************************************************************************
*
* handleQuit
*
* Respond to a srqQuit request.
*
* dataIn = dataOut = reserved
*
* Return with SEC if we handled the request.
*
*******************************************************************************
	import srqQuitFlag
handleQuit	lda #1
	sta >srqQuitFlag
	sec
	rts

*******************************************************************************
*
* handleOpenOrPrint
*
* Respond to a srqOpenOrPrint request (re-check message $0011).
*
* dataIn = dataOut = reserved
*
* Return with SEC if we handled the request.
*
*******************************************************************************
	import LaunchDoc
handleOpenOrPrint	pha
	jsl LaunchDoc
	pla
	cmp #1	;SEC on nonzero result
	rts


	EndP

********************************************************************************
*
* ComplainAboutSysVersion (30-Sep-91 DAL)
*
* On the stack:
*    4-5:  error code
*    1-3:  RTL
*
********************************************************************************
ComplainAboutSysVersion proc export

errorCode	equ 4

	lda errorCode,s
	pha
	pha	;space for HexIt
	pha	;error code
	_HexIt
	pla
	sta >theErrorCode
	pla
	sta >theErrorCode+2

	pha	;space for result
	pea Line1>>16
	pea Line1
	pea Line2>>16
	pea Line2
	pea Button1>>16
	pea Button1
	pea OKStrText>>16
	pea OKStrText
	_TLTextMountVolume
	pla	;discard result

*** strip input parameter (word) from stack
	lda 2,s
	sta 2+2,s
	lda 1,s
	sta 1+2,s
	pla

	rtl

Line1	dc.b EndLine1-*-1,'You must start up from System 6.0.1'
EndLine1
Line2	dc.b EndLine2-*-1,'or later to run Teach.  ($'
theErrorCode	dc.b 'xxxx)'
EndLine2
;
; text OK button string for TLTextMountVolume
; spaces push Button2 (left button) to the right (to right-justify it)
;   (canÕt be Button1 because escape chars are counted in Button1Õs right justification!)
; $1B: ESC to enable mousetext in the firmware
; $0F: turns on Inverse
; ÔMÕ is mousetext for return char
; $0E: turns off inverse
; $18: Ctrl-X to disable mousetext in the firmware
;
OKStrText	dc.b EndOKStrText-*-1,'                           Quit '
	dc.b $0f,$1b,'M',$0E,$18
EndOKStrText

Button1	dc.b 0

	EndP

********************************************************************************
TestChangeFlag	Proc Export
;
; Function TestChangeFlag(theWindow:GrafPortPtr):Boolean;
;
fRecordDirty	equ  $0040
; This function will test the fRecordDirty field in the control record to see if
; it is set, and then it will return true or false depending on the flag state.
;
OldDPage	equ 1
RTL1	equ OldDPage+2
WindPtr	equ RTL1+3
Result	equ WindPtr+4
	phd
	tsc
	tcd	; set up a stack frame...
	
	stz <Result
;
; Now get the control handle...
	pha
	pha
	PushLong <WindPtr
	pea 0	; high word of ID=0
	pea $1000	; main window ID
	_GetCtlHandleFromID	; get the control handle
	pla
	sta <WindPtr
	pla
	sta <WindPtr+2
	ldy #2	; now dereference the control
	lda [WindPtr],y
	tax
	lda [WindPtr]
	sta WindPtr
	stx WindPtr+2	; and now wind pointer points at the control
;
; Now that we have a pointer to the control, lets look at the flag field
	ldy #$10	; offset to flag field
	lda [WindPtr],y	; get the value
	and #fRecordDirty	; test the dirty bit..
	beq @Done
	lda #$FFFF
	sta <Result
@Done
; Now unlink the stack and end...
	pld	; recover the saved direct page
	longa off	; save the return address for a second
	sep #$20
	pla
	ply
	
	plx	; yank parms
	plx	
	
	phy
	pha
	longa On	; restore return address
	rep #$20
	
	RTL	; and exit.
	EndP
	

ResetChangeFlag	Proc Export
; procedure ResetChangeFlag(theWindow:GrafPortPtr);
;
ResetfRecordDirty	equ  $FFBF	; NOT($0040)
; This function will reset the fRecordDirty field in the control record.
;
OldDPage	equ 1
RTL1	equ OldDPage+2
WindPtr	equ RTL1+3
	phd
	tsc
	tcd	; set up a stack frame...
;
; Now get the control handle...
	pha
	pha
	PushLong <WindPtr
	pea 0	; high word of ID=0
	pea $1000	; main window ID
	_GetCtlHandleFromID	; get the control handle
	pla
	sta <WindPtr
	pla
	sta <WindPtr+2
	ldy #2	; now dereference the control
	lda [WindPtr],y
	tax
	lda [WindPtr]
	sta WindPtr
	stx WindPtr+2	; and now wind pointer points at the control
;
; Now that we have a pointer to the control, lets look at the flag field
	ldy #$10	; offset to flag field
	lda [WindPtr],y	; get the value
	and #ResetfRecordDirty	; reset the dirty bit..
	sta [WindPtr],y
@Done
; Now unlink the stack and end...
	pld	; recover the saved direct page
	longa off	; save the return address for a second
	sep #$20
	pla
	ply
	
	plx	; yank parms
	plx	
	
	phy
	pha
	longa On	; restore return address
	rep #$20
	
	RTL	; and exit.
	EndP
	

********************************************************************************
;
; Assebly code for the pascal function:
; Function CompareC1In(str1,str2:ptr);Boolean;
;
; This function will compare 2 c1Input strings and see if they are the same
; It will disregard case in the compare however..
;
********************************************************************************
CompareC1In	Proc Export
;
; Stack frame to look like this..
oldDPage	equ 1
RTL	equ oldDPage+2
ptr1	equ RTL+3
ptr2	equ ptr1+4
result	equ ptr2+4

	phd	; set up our stack frame
	tsc
	tcd
	
	stz <Result	; set result to be false...
;
; First compare string lengths...
	lda [ptr1]
	cmp [ptr2]
	beq @BufLenOK
	brl Done
;
@BufLenOK
;
; Now we strart from the back of the string and work forwards
; and test each byte of the string...
	tay	; length already in <A>
	iny	; bump it one for good measure...
;
; This loop tests the next character to see if its proper..
@Loop	lda [ptr1],y
	and #$00FF	; strip it..
	cmp #'A'
	blt @got1
	cmp #$005B
	bge @Got1
	ora #$0020
@Got1	pha
	lda [ptr2],y
	and #$00FF
	cmp #'A'
	blt @Got2
	cmp #$005B
	bge @Got2
	ora #$0020
@Got2	cmp 1,s
	bne @Fail
	pla
	dey
	bne @Loop
	lda #$FFFF
	sta <Result
	bra Done
@Fail	pla
Done	pld	; unlink the stack frame and finish..
	
	longa off
	sep #$20
	pla
	ply
	
	plx
	plx
	plx
	plx
	
	phy
	pha
	
	rep #$20
	longa On
	RTL

********************************************************************************
;
; Assembly language	code for the pascal	function:
; Function FindNext(theText:ptr; FindWhat:str255; 
;	Case:Boolean; length:Longint;
;	var CurrentOffset:Longint):Boolean;
;
; This function will scan a string in search of the passed substring. The search will
; be case sensative	if the proper flag is set.
; It will update CurrentOffset to the location of the FindWhat string in the
; text buffer and return true if the substring was found.
;
********************************************************************************
FindNext	proc Export
;
; The stack frame will look like this:
FindTemp	equ 1
FindChar	equ FindTemp+4
oldDPage	equ FindChar+2
RTL	equ oldDPage+2
CurrentOffset	equ RTL+3
Length	equ CurrentOffset+4
Case	equ Length+4
FindWhat	equ Case+2
theText	equ FindWhat+4
theResult	equ theText+4
;
; First set up our stack frame...
	phd	; and the direct page
	pha
	pha
	pha
	tsc
	tcd
;	
;
; Start by creating the pointers that I need...

	ldy #2
	lda [CurrentOffset]
	clc
	adc <theText
	sta <theText
	lda [CurrentOffset],y
	adc <theText+2
	sta <theText+2
	lda FindWhat	; get the pointer to the string to find...
	inc a	; add 1 to rid ourselves of the length byte
	sta <FindTemp
	lda FindWhat+2	; its gotta be in the same bank...
	sta <FindTemp+2
	lda Case	; and adjust the flag..
	beq @cont
	lda #1	; make it non-negative...
	sta Case
;
; Now since we know that case sensative is yes, lower case the entire input string...
	lda [FindWhat]	; get the length of the find string
	and #$00FF
	tay	; and use it as an index..
	bne @Loop00
	brl Done	; if the length is zero then ooooops..
	
@Loop00	lda [FindWhat],y	; get next char...
	tax	; save this value in X for a second..
	and #$00FF	; strip off the high byte
	cmp #$0041	; is it an 'A'
	blt @Next00	; if less than A do the next char..
	cmp #$005B
	bge @Next00	; if greater than Z do next char...
	txa	; get the original word back...
	ora #$0020	; lower case the sucker..
	sta [FindWhat],y	; and save it back..
@Next00	dey	; lower the counter by 1
	bne @Loop00	; if not zero keep going..
	
@Cont
; Now, start the main loop
While
	ldy #2
	lda [CurrentOffset],y ; test the position against the max length...
	cmp Length+2
	blt @doBegin01
	bge @testLow
	brl NotFound	; if the high word is bigger its not found..
@testLow	lda [CurrentOffset]	; now test the current offset...
	cmp Length
	blt @DoBegin01
	beq @DoBegin01
	brl NotFound
;
; We can look at the next character right now...
@DoBegin01
	lda case	; case sensative test?
	bne @CaseSensative
; the following compares the next chars on a non-case basis...	
	lda [theText]
	and #$00FF
@NonCaseComp	sta FindChar
	lda [FindTemp]
	and #$00FF
	cmp FindChar
	beq @MatchFirst	; The first character matches...
	brl @DoNext01
@CaseSensative
	lda [theText]
	and #$00FF
	cmp #$0041	; is it an 'A'
	blt @NonCaseComp	; if less than A do the next char..
	cmp #$005B
	bge @NonCaseComp	; if greater than Z do next char...
	ora #$0020	; else lower case the sucker
	bra @NonCaseComp	; and test it..
;
; Do next01 increments the pointers counters and then goes back to square 1
@DoNext01
	lda [CurrentOffset]
	inc a
	sta [CurrentOffset]
	bne @DN010010
	ldy #2
	lda [CurrentOffset],y
	inc a
	sta [CurrentOffset],y
@DN010010	inc theText
	bne WHILE
	inc theText+2
	brl While
;
; MatchFirst will be called when the first characters of the strings match...
@MatchFirst	lda [FindWhat]	; get the length of the string to match
	and #$00FF	; strip the high byte
	tay	; transfer this into our pointer...
@MFLoop	dey	; decrement our counter...
	bne @MFL0010
	brl FOUND	; if this gets to zero we found it bunky..
;
; Now we compare the next char...
@MFL0010
	lda case	; case sensative test?
	bne @MFLCS
; the following compares the next chars on a non-case basis...	
	lda [theText],y
	and #$00FF
@MFLNCC	sta FindChar
	lda [FindTemp],y
	and #$00FF
	cmp FindChar
	beq @MFLoop	; The next character matches...
	brl @MFLDone	; else its not found dude..
@MFLCS
	lda [theText],y
	and #$00FF
	cmp #$0041	; is it an 'A'
	blt @MFLNCC	; if less than A do the next char..
	cmp #$005B
	bge @MFLNCC	; if greater than Z do next char...
	ora #$0020	; else lower case the sucker
	bra @MFLNCC	; and test it..

@MFLDone	brl @DoNext01	; if no more matches then test the next char...

FOUND	lda #$0001	; put true into the result
	sta theResult
	brl Done
NOTFOUND	lda #$0000
	sta theResult
DONE
; adjust the stack...
	longa off
	sep #$20
	plx	; discard local data...
	plx
	plx
	
	pld	; recover the old dpage register
	
	pla
	ply	; get the return address
	
	plx	; now pull off passed parms...
	plx
	plx
	plx
	plx
	plx
	plx
	plx
	plx
	
	phy	; restore the return address
	pha
	longa on	
	rep #$20
	RTL	; and return

	EndP

	End
\ No newline at end of file
diff --git a/IIGS.601.SRC/ToolBoxMisc/Teach/MacRez.asm b/IIGS.601.SRC/ToolBoxMisc/Teach/MacRez.asm
new file mode 100644
index 0000000..9a8d760
--- /dev/null
+++ b/IIGS.601.SRC/ToolBoxMisc/Teach/MacRez.asm
@@ -0,0 +1 @@
+*******************************************************************************
* MacRez.asm
*
* (C)  Copyright Apple Computer, Inc. 1991-92
* All rights reserved.
*
* by Jim Mensch
* 5/22/90
*
* This file contains routines to read data from a mac resource fork. It is  
* read only at this	point
*
* The external interface for reading generic mac resources is a single routine
* The pascal declaration for this routine is:
*
* Function ReadResource(var theRezType:RezType; 
*	    theRezID:integer; theFileName:ptr):handle;
* The parameters are:
* theRezType - a longword usually containing a 4 byte literal that is the 
*	type of the resource. (On the mac it is traditional to use
* 	mnemonic representation for types, like 'STR ' resources
*	contain pascal strings (NOTE the space, all these literals must
*	be exactly 4 bytes long...)
* theRezID - an integer specifying which resource of a given type to load
* theFileName - a pointer to a string containing the name of the mac resource file to read
*
* The result of this function is a handle that contains the data in the mac resource
* you must always keep in mind that the macintosh stores multiple byte quantities
* backwards from the IIgs, so it you read in a 'RECT' resource from the mac you will
* have to reverse the contents of the 4 word (a rectangle is 4 words you know) yourself
* since I had to do this quite often to read the mac resource map, I wrote some useful
* macros that do this for you (sometimes it is hard to remember which byte goes 
* where.
*
* Due to the limited use of the data in mac resources, this routine is designed to
* take up as little memory as it can by not leaving the resource file and map open
* and loaded into memory. If you wanted to use this routine extensivly it would be
* a good idea to cache the contents of the resource map for subsequent calls.
*
* Also included in this file is a routine that reads a macwrite 5.0 file into memory
* converting the text and some style information into Apple II machine readable form
* it is used in connection with another file MWRead.p which has a pascal routine that 
* accepts the data from the macwrite data readers included here and massages it so it can 
* be used with GS textedit.
*
* This code is very similar to that used in teachGS for reading Macwrite files. If you
* wish to incorporate reading macwrite files into commercial products you should notify
* Claris of your intent (they have a big list they keep updated), after all if
* Macwrite II can read Appleworks files, should some apple IIgs app read macwrite files?
*
*



	print   push
	print   off
	Include 'M16.GSOS'
	Include 'M16.Memory'
	Include 'E16.dialog'
	Include 'Teach.Macros'
	Import MyMemoryID
	Import ThisError
	print   pop
*
*
*
* Modification History:
*
* Version 1.0   Mensch
*
*
*******************************************************************************
*
* The following are the data structures in a mac resource fork. NOTE: These data
* structures are from inside mac volume 1 and could change at a moments notice.
*
ResourceHeader	Record 0
OffsetToRezData	ds.L 1
OffsetToRezMap	ds.L 1
LengthOfRezData	ds.L 1
LengthOfRezMap	ds.L 1
	EndR
	
ResourceDataItem	Record 0
LengthOfThisItem	ds.L 1
ThisItemData	ds.B 1
	EndR
	
ResourceMapHeader	Record 0
	ds.B 16	; unused
	ds.B 4	; reserved
	ds.B 2	; file ref number
ResourceFileAttr	ds.W 1	; attributes of this resource file
OffsetToTypeList	ds.W 1
OffsetToNameList	ds.W 1
	EndR

ResourceTypeItem	Record 0
TypeItemType	ds.L 1
TypeItemNum	ds.W 1	; number of this type
TypeItemOffset	ds.W 1
	EndR
	
ResourceRefList	Record 0
ItemID	ds.W 1
ItemNameOffset	ds.W 1
ItemAttributes	ds.B 1
ItemDataOffset	ds.B 3
	ds.B 4	; reserved.
	EndR
	
ResourceNameItem	Record 0
Length	ds.B 1
ASCIIDATA	ds.B 1
	EndR
	

MacRezGlobals	Record
CurRezHead	ds ResourceHeader
CurMapHead	ds ResourceMapHeader
FirstTypeList	ds.W 1	; number of types to search for.
CurTypeList	ds ResourceTypeItem	; NOTE: The following two items use the same
CurRefList	ds ResourceRefList	; work area! This is done to save space
	ds.B 248	; fill out this table so we can read a few at a time
TheRezSize	ds.L 1

FileRefNum	ds.W 1

OpenBlock	dc.W 4	; use only 4 parameters
OpenRefNum	ds.W 1
OpenPathName	dc.L MyPathBuffer
ReqAccess	dc.W 1	; open read only
ResNum	dc.W 1	; open the resource fork

ReadBlock	dc.W 4	;
ReadRefNum	ds.W 1
ReadDataBuf	ds.L 1
ReadReqCount	ds.L 1
xferCount	ds.L 1

CloseBlock	dc.W 1
CloseRefNum	ds.W 1

SetMarkBlock	dc.W 3
SMRefNum	ds.W 1
SMBase	dc.W 0	; always relative to file start
displacement	ds.L 1

MyPathBuffer	ds.W 1
	ds.B 256
	EndR
	
*******************************************************************************
*
* Direct page equates used with this routine.
*
WorkArea	equ 1
Deref	equ WorkArea+4
OldDBank	equ Deref+4
OldDPage	equ OldDBank+1
theRTL	equ OldDPage+2
theFileName	equ theRTL+3
theRezID	equ theFileName+4
theRezType	equ theRezID+2
resultHandle	equ theRezType+4


*******************************************************************************
* Macros to be used throughout this library
*
	MACRO
&Lab	LongSwap &Arg
&Lab	lda &Arg
	pha
	lda &Arg+2
	xba
	sta &Arg
	pla
	xba
	sta &Arg+2
	EndM
	
	MACRO
&Lab	LongSwapXY
&Lab	xba
	pha
	txa
	xba
	plx
	EndM
	
	MACRO
&Lab	IntSwap &Arg
&Lab	lda &Arg
	xba
	sta &Arg
	EndM
	
	EJECT
*******************************************************************************
*
OpenRezFile	PROC
*
* Description:	This routine will open the requested RezFile
*
*
* Inputs:	Direct page pointer set up for the pathname
*
* Outputs:	None
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
	With MacRezGlobals
	lda <theFileName
	sta openPathName
	lda <theFileName+2
	sta openPathName+2
	
	lda #1
	sta ResNum	; reset file for reading resources
	
	_openGS OpenBlock
	bcs @done
	lda OpenRefNum
	sta SMRefNum
	sta CloseRefNum
	sta ReadRefNum
	sta FileRefNum
@Done
	rts
	EndP
	
	EJECT
*******************************************************************************
*
CloseRezFile	PROC
*
* Description:	just closes the file!
*
*
* Inputs:	None
*
* Outputs:	None
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
	With MacRezGlobals
	_CloseGS CLoseBlock
	rts
	EndP
	
	EJECT
*******************************************************************************
*
SetRezMark	PROC
*
* Description:	sets the mark of the current file to whereever <A><X> point
*
*
* Inputs:	<A><X> point to the new mark
*
* Outputs:	None
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
	With MacRezGlobals
	sta displacement
	stx displacement+2
	_SetMarkGS SetMarkBlock
	rts
	EndP
	
	EJECT
*******************************************************************************
*
ReadRezData	PROC
*
* Description:	reads the proper amount of resource data into the buffer
*	indicated. 
*
*
* Inputs:	<A><X> contain the buffer pointer to read into
*	<Y> the amount of data to read
*
* Outputs:	None
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
	With MacRezGlobals
	sta ReadDataBuf
	stx ReadDataBuf+2
	sty ReadReqCount
	stz ReadReqCount+2
	_ReadGS ReadBlock
	rts
	EndP
	
	EJECT
*******************************************************************************
*
ReadRezDataLong	PROC
*
* Description:	reads the proper amount of resource data into the buffer
*	indicated. 
*
*
* Inputs:	<A><X> contain the buffer pointer to read into
*	<Y> the amount of data to read
*
* Outputs:	None
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
	With MacRezGlobals
	sta ReadDataBuf
	stx ReadDataBuf+2
	lda theRezSize
	sta ReadReqCount
	lda theRezSize+2
	sta ReadReqCount+2
	_ReadGS ReadBlock
	rts
	EndP
	
	EJECT
*******************************************************************************
*
FixResourceHeader	PROC
*
* Description:	This routine will adjust the longint in the resource header
*	so that they can be used on the IIGS
*
*
* Inputs:	CurRezHead contains the current resource header to swap
*
* Outputs:	CurRezHead will be usefull
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
	With MacRezGlobals
	LongSwap CurRezHead.OffsetToRezData
	LongSwap CurRezHead.OffsetToRezMap
	LongSwap CurRezHead.LengthOfRezData
	LongSwap CurRezHead.LengthOfRezMap
	rts
	EndP
	
*******************************************************************************
*
FixMapHead	PROC
*
* Description:	This routine will adjust the data in the resource map header
*	so that they can be used on the IIGS
*
*
* Inputs:	CurMapHead contains the current resource map header to swap
*
* Outputs:	CurMapHead will be usefull
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
	With MacRezGlobals
	IntSwap CurMapHead.ResourceFileAttr
	IntSwap CurMapHead.OffsetToTypeList
	IntSwap CurMapHead.OffsetToNameList
	rts
	EndP
	
	EJECT
*******************************************************************************
*
GetTheHeader	PROC
*
* Description:	This routine will read the resource header file a resource file
*
*
* Inputs:	None
*
* Outputs:	None
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
	With MacRezGlobals
	
	jsr OpenRezFile	; open the file for reading
	bcs @ErrorDone
	ldy #16	; size of the header
	ldax #CurRezHead
	jsr ReadRezData
	bcs @Error1
	jsr FixResourceHeader
	clc
	
@ErrorDone	sta >ThisError
	rts
	
@Error1	sta >ThisError
	jsr CloseRezFile
	sec
	rts
	EndP
	
	EJECT
*******************************************************************************
*
FindRefList	PROC
*
* Description:	Locate the referenceList for the passed rez type that we are
*	looking at.
*
*
* Inputs:	File should be open and theTypeID should be set
*
* Outputs:	WorkArea points to the reflist for this type
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
	With MacRezGlobals
	
; Position file to resource map and read the map header
	ldax CurRezHead.OffsetToRezMap
	jsr  SetRezMark
	bcsl @ErrDone
	
	ldax #CurMapHead
	ldy  #$1C	; size of the map header
	jsr  ReadRezData
	bcsL @ErrDone
	jsr  FixMapHead
;
; Now that we have the map header get the first entry in the type list
	ldax CurRezHead.OffsetToRezMap
	clc
	adc  CurMapHead.OffsetToTypeList
	bcc  @1
	inx
@1	stax WorkArea	; save this file position for later
	jsr  SetRezMark	; position the file to the start of the map list
	bcs  @ErrDone
	ldax #FirstTypeList
	ldy  #$0A	; just read the size of the list and the offset
	jsr  ReadRezData
	bcs  @ErrDone
	intSwap FirstTypeList
	ldx  #0	; test the first entry to see if we match
	jsr  MatchTypeListEntry
	bcs  @FoundTheType	; if the types match we found it!
@Loop	lda  FirstTypeList
	beq  @NotFound	; if its zero here its not found
	cmp  #$20	; number of types we can read at once
	bge  @Loop005
	asl  a	; else just finish the list
	asl  a
	asl  a	; (they are 8 bytes each...)
	bra  @Loop010
@Loop005	lda  #256
@Loop010	tay	; amount of data to read
	ldax #CurTypeList
	jsr  ReadRezData
	bcs  @ErrDone
	jsr  MatchTypeList	; match the type list entries
	bcs  @FoundTheType
	lda  FirstTypeList
	sec
	sbc  #20
	sta  FirstTypeList
	bpl  @Loop
@NotFound	sec
	rts
@FoundTheType
	lda  CurTypeList,x	; move the found entry to be the first entry
	sta  CurTypeList
	lda  CurTypeList+2,x
	sta  CurTypeList+2
	lda  CurTypeList+4,x
	xba	; adjust these values
	sta  CurTypeList+4
	lda  CurTypeList+6,x
	xba	; since we will need them!
	sta  CurTypeList+6
	lda  WorkArea
	clc
	adc  CurTypeList.TypeItemOffset
	sta  WorkArea
	bcc  @3
	clc
	inc  WorkArea+2
@3
	rts
@ErrDone
	jsr  CloseRezFile
	sec
	rts
;
; The next routine will compare the typeListEntry pointed to by <X> to the 
; theRezType variable and return with the carry set if it matches.
MatchTypeListEntry
	lda theRezType
	cmp CurTypeList.TypeItemType,x
	bne @NoMatch
	lda theRezType+2
	cmp CurTypeList.TypeItemType+2,x
	bne @NoMatch
	sec
	rts
@NoMatch	clc
	rts
;
; This routine will run the entire type list and determine if any of its entries match
; the requested type
MatchTypeList
	ldx #0
	ldy #0
@Loop	jsr MatchTypeListEntry
	bcs @GotMatch
	iny
	cpy #20	; are we done here?
	bge @NoMatch
	cpy FirstTypeList	; are we at the end of the file data?
	bge @NoMatch
	tya
	asl a
	asl a
	asl a
	tax	; set new data pointer
	bra @Loop
@NoMatch	clc
@GotMatch	rts
	EndP
	
	EJECT
*******************************************************************************
*
FindRezData	PROC
*
* Description:	Locate the data we want for the passed rez ID that we are
*	looking at. This routine relies on the rest of the data
*	being set up
*
*
* Inputs:	File should be open and theTypeID should be set
*	FindRefList should have been run and the first item
*	in the type list should be set. Also, the file offset
*	to the ref list should be in WorkArea
*
* Outputs:	WorkArea points to the data in the data area
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
	With MacRezGlobals
	
; Position file to reference LIst for the type that I found
	ldax WorkArea
	jsr  SetRezMark
	bcsl @ErrDone
	
@Loop	lda  CurTypeList.TypeItemNum
	cmp  #$0F
	bge  @Loop010	; we are bigger than the max
	inc  a
	asl  a	; number of items times 12
	asl  a
	pha
	asl  a
	clc
	adc  1,s
	plx
	bra  @Loop020
@Loop010	lda  #$10*12
@Loop020	tay
	ldax #CurRefList
	jsr  ReadRezData
	bcs  @ErrDone
; Now that we have some ref list data, lets scan it
	jsr  MatchRefList	; match the type list entries
	bcs  @FoundTheRef
	lda  CurTypeList.TypeItemNum
	sec
	sbc  #$10
	sta  CurTypeList.TypeItemNum
	bpl  @Loop
@NotFound	sec
	rts
@FoundTheRef
	lda  CurRefList.ItemAttributes,x	; move the found entry to be the first entry
	and  #$FF00
	xba
	sta  WorkArea+2
	lda  CurRefList.ItemAttributes+2,x	; move the found entry to be the first entry
	xba
	sta  WorkArea
	clc
	adc  CurRezHead.OffsetToRezData
	sta  WorkArea
	bcc  @3
	inc  WorkArea+2
	clc
@3
	rts
@ErrDone
	sta  >ThisError
	jsr  CloseRezFile
	sec
	rts
;
; The next routine will compare the typeListEntry pointed to by <X> to the 
; theRezType variable and return with the carry set if it matches.
MatchRefListEntry
	lda theRezID
	cmp CurRefList.ItemID,x
	bne @NoMatch
	sec
	rts
@NoMatch	clc
	rts
;
; This routine will run the entire type list and determine if any of its entries match
; the requested type
MatchRefList
	ldx #0
	ldy #0
@Loop	jsr MatchRefListEntry
	bcs @GotMatch
	iny
	cpy #$10	; are we done here?
	bge @NoMatch
	cpy CurTypeList.TypeItemNum ; are we at the end of the file data?
	beq @fudge1	; if they are equal we better go around again!
	bge @NoMatch
@fudge1
	tya
	asl a
	asl a
	pha
	asl a
	clc
	adc 1,s
	plx
	tax	; set new data pointer
	bra @Loop
@NoMatch	clc
@GotMatch	rts
	EndP
	
	EJECT
*******************************************************************************
*
LoadThisRez	PROC
*
* Description:	This routine will read the resource from disk.
*
*
* Inputs:	WorkArea contains the file offset to the data we want to read
*
* Outputs:	None
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
	With MacRezGlobals
	
	ldax WorkArea	; get the proper offset
	jsr  SetRezMark	; position correctly in the file
	bcs  @ErrorEnd
	ldy  #4	; now read the size of this resource
	ldax #TheRezSize
	jsr ReadRezData
	bcs  @ErrorEnd
	longSwap theRezSize	; turn it into usefull data
	
; allocate memory for this resource..
	ldx #0
	phx	; resultSpace
	phx
	PushLong theRezSize
	lda >MyMemoryID
	pha
	phx	; attributes
	phx	; locationptr
	phx
	_NewHandle
	plx
	ply
	bcs @ErrorEnd
	stx deref
	sty deref+2
	stx resultHandle
	sty resultHandle+2
	
; now simply read in this resource data
	ldy #2
	lda [deref],y
	tax
	lda [deref]
	jsr ReadRezDataLong
	bcs @ErrorEnd2
; we read the resource guess we are done!
	clc
	rts
@ErrorEnd	
	sta >ThisError
@ErrorEnd1	jsr CloseRezFile
	sec
	rts
@ErrorEnd2	
	sta >ThisError
	pushlong deref
	_DisposeHandle
	stz resultHandle+1
	bra @ErrorEnd1
	EndP
	
	EJECT
*******************************************************************************
*
ReadResource	PROC Export
* Function ReadResource(theRezType:var RezType; theRezID:integer; theFileName:ptr):handle;
* Description:	reads a given resource
*
*
* Inputs:	On stack
*
* Outputs:	on stack
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
	With MacRezGlobals

  	phd	; save old dpage and bank
	phb
	
	pha
	pha
	pha
	pha
	
	tsc
	tcd	; set up our stack frame
	
	phk	; set up our data banl
	plb
	
	stz resultHandle	; zero out the result
	stz resultHandle+2
	lda #0
	sta >ThisError	; and zero out the error code
	
	IntSwap theRezID	; since they are swapped on disk
	
	jsr GetTheHeader	; open the file and read the header
	bcs CallFinished
	jsr FindRefList	; locate the Type in the file and move to its ref
	bcs CallFinished
	jsr FindRezData	; we now have the ref list, time to locate the data
	bcs CallFinished
; If we get here work area has the offset into the resource file data area to our
; resource data record. All we need to do now is to read it in!
	jsr LoadThisRez
	bcs CallFinished
	jsr CloseRezFile
; Undo the stack stuff
CallFinished	pla
	pla
	pla
	pla
	
	plb
	pld
	longa off
	sep #$20
	pla
	ply
	
	plx
	plx
	plx
	plx
	plx
	
	phy
	pha
	
	longa On
	rep #$20
	rtl
	EndP
	
********************************************************************************
********************************************************************************
*****************  Read MacWrite File stuff   **********************************
********************************************************************************
********************************************************************************
********************************************************************************
;WorkArea	equ 1
;Deref	equ WorkArea+4
;OldDBank	equ Deref+4
;OldDPage	equ OldDBank+1
;theRTL	equ OldDPage+2
;theFileName	equ theRTL+3
theStyleHandle	equ theFileName+4
theDecryptKey	equ theStyleHandle+4
resultText	equ theDecryptKey+4
********************************************************************************

ParagraphArray	Record 0
ParagraphFlag	ds.W 1
Paragraphlocation	ds.W 1
ParagraphHandle	ds.L 1
ParagraphPos	ds.L 1
ParagraphDataLen	ds.W 1
ParagraphFormats	ds.W 1
	EndR
	
WindowVars	Record 0
SelStart	ds.L 1
SelEnd	ds.L 1
VOffset	ds.W 1
Redraw	ds.W 1
InfoArrayPos	ds.L 1
InfoArrayLength	ds.W 1
LineHeightPos	ds.L 1
LineHeightLength	ds.W 1
PageIcon	ds.L 1
DateIcon	ds.L 1
TimeIcon	ds.L 1
	ds.L 1
OvalRedraw	ds.B 1
LastOvalUpdate	ds.B 1
ActiveStyle	ds.W 1
ActiveFont	ds.W 1
; Note the following field really ain't here on disk!
NumParagraphs	ds.W 1
	EndR
	
MacWriteGlobals	Record
theDataSize	ds.L 1
MainArrayHandle	ds.L 1
	ds.W 1
myDecriptKey	ds.B 16
	ds.W 1
tempBuffer	ds.B 256
StyleHandle	ds.L 1	; holder for our style information
StyleOffset	ds.W 1	; and the current offset into it!
StyleSize	ds.W 1
MainData	ds WindowVars
	EndR
	
	EJECT
*******************************************************************************
*
OpenFile	PROC
*
* Description:	This routine will open the requested RezFile
*
*
* Inputs:	Direct page pointer set up for the pathname
*
* Outputs:	None
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
	With MacRezGlobals
	lda <theFileName
	sta openPathName
	lda <theFileName+2
	sta openPathName+2
	lda #0
	sta ResNum
	
	_openGS OpenBlock
	bcs @done
	lda OpenRefNum
	sta SMRefNum
	sta CloseRefNum
	sta ReadRefNum
	sta FileRefNum
@Done
	rts
	EndP
	
	EJECT
*******************************************************************************
*
CloseFile	PROC
*
* Description:	just closes the file!
*
*
* Inputs:	None
*
* Outputs:	None
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
	With MacRezGlobals
	
	_CloseGS CLoseBlock
	rts
	EndP
	
	EJECT
*******************************************************************************
*
SetMark	PROC
*
* Description:	sets the mark of the current file to whereever <A><X> point
*
*
* Inputs:	<A><X> point to the new mark
*
* Outputs:	None
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
	With MacRezGlobals
	sta displacement
	stx displacement+2
	_SetMarkGS SetMarkBlock
	rts
	EndP
	
	EJECT
*******************************************************************************
*
ReadData	PROC
*
* Description:	reads the proper amount of resource data into the buffer
*	indicated. 
*
*
* Inputs:	<A><X> contain the buffer pointer to read into
*	<Y> the amount of data to read
*
* Outputs:	None
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
	With MacRezGlobals
	sta ReadDataBuf
	stx ReadDataBuf+2
	sty ReadReqCount
	stz ReadReqCount+2
	_ReadGS ReadBlock
	rts
	EndP
	
	EJECT
*******************************************************************************
*
ReadDataLong	PROC
*
* Description:	reads the proper amount of resource data into the buffer
*	indicated. 
*
*
* Inputs:	<A><X> contain the buffer pointer to read into
*	<Y> the amount of data to read
*
* Outputs:	None
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
	With MacRezGlobals
	With MacWriteGlobals
	
	sta ReadDataBuf
	stx ReadDataBuf+2
	lda theDataSize
	sta ReadReqCount
	lda theRezSize+2
	sta theDataSize+2
	_ReadGS ReadBlock
	rts
	EndP
	
	EJECT
*******************************************************************************
*
GetMainArrayInfo	PROC
*
* Description:	This procedure will fill the info record with all the proper
*	data for the main data array (actual document text)
*
*
* Inputs:	File be open
*
* Outputs:	Main data info all set!
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
	with MacWriteGlobals
	With MacRezGlobals
	
; first read in the file header so we can test the version and get the paragraph info
	ldy  #40	
	ldax #tempBuffer
	jsr  ReadData
	bcsL @ErrorEnd
	lda  tempBuffer	; test the version info
	xba
	cmp  #6	; version 6???
	beq  @0010
	lda  #1
	brl  @ErrorEnd
@0010
	lda  tempBuffer+2	; get the number of Paragraphs in main
	xba
	sta  MainData.NumParagraphs
	
	ldx  #0
	lda  #252	; location of main window data!
	jsr  SetMark
	bcsL @ErrorEnd
	
	ldy  #45	; size of window vars
	ldax #MainData
	jsr  ReadData
	bcsL @ErrorEnd
;
; We now have the window vars loaded, and its time to swap all the values that need swapping
	LongSwap MainData.SelStart
	LongSwap MainData.SelEnd
	LongSwap MainData.InfoArrayPos
	IntSwap MainData.InfoArrayLength
	LongSwap MainData.LineHeightPos
	IntSwap MainData.LineHeightLength
	clc
	rts	
@ErrorEnd
	sta >ThisError
	jsr CloseFile
	sec
	rts
	
	EJECT
*******************************************************************************
*
ReadMainArray	PROC
*
* Description:	This routine will load in the main text paragraph array
*	information and fix it so that all its internal pointers
*	are correct.
*
*
* Inputs:	None
*
* Outputs:	None
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
	With MacWriteGlobals
	With MacRezGlobals
; First we need to get storage space for the data
	ldx #0
	phx
	phx
	phx	; put the size on the stack
	lda MainData.InfoArrayLength
	pha
	lda >MyMemoryID	; CHANGE ME!!
	pha
	pea #$4000	; lock this puppy
	phx
	phx
	_NewHandle
	plx
	ply
	bcsL @ErrEnd
	stx deref
	sty deref+2
	stx MainArrayHandle
	sty MainArrayHandle+2
	
	ldy #2	; deref the new handle
	lda [deref],y
	sta workArea+2
	lda [deref]
	sta WorkArea
; and now read in the data
	ldax MainData.InfoArrayPos
	jsr  SetMark
	
	ldy  MainData.InfoArrayLength
	ldax WorkArea
	jsr  ReadData
	bcsL @ErrEnd
	
; Now that thats all read in, lets convert all the entries to something we can use!
	ldy  #0
@Loop	jsr  FixArrayEntry
	tya	; now bump our index
	clc
	adc  #$0010
	tay
	cmp  MainData.InfoArrayLength
	blt  @Loop	; see if we are done, if not do the next one!
	
; the data is now all converted to usefull form!
	clc
	rts
@ErrEnd
	sta >ThisError
	jsr CloseFile
	sec
	rts

;
; This routine will adjust all the numbers in the array entries so that we can use them
; later on
FixArrayEntry
	phy	; save the current <Y>
	lda [WorkArea],y	; adjust the paragraph height field
	xba
	sta [WorkArea],y
	tya
	clc
	adc #8
	tay
	lda [WorkArea],y	; paragraph data offset
	xba
	tax
	iny
	iny
	lda [workArea],y
	xba
	sta deref
	txa
	sta [workArea],y
	dey
	dey
	lda deref
	sta [workArea],y
	iny
	iny
	iny
	iny
	lda [workArea],y	; paragraph data length
	xba
	sta [workarea],y
	ply
	rts
	EndP
	
	EJECT
*******************************************************************************
*
ReadTheText	PROC
*
* Description:	This routine will read the actual paragraph records
*	from a macwrite file and decompress where needed and stow into
*	a data file.
*
*
* Inputs:	None
*
* Outputs:	None
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
	With MacWriteGlobals
	With MacRezGlobals
	
MainArrayPtr	equ WorkArea
ResultPtr	equ theFileName	; resuse the file name long on the stack
SourcePtr	equ theDecryptKey	; reuse the decription key pointer..
theStylePtr	equ theStyleHandle	; reuse the handle for pointer space..
	ldx #0
	phx
	phx
	phx
	phx
	lda >MyMemoryID
	pha
	phx
	phx
	phx
	_NewHandle	; create a new text record handle
	plx
	ply
	bcsL @ErrEnd
	stx ResultText
	sty ResultText+2	; pass a handle back!
; Now create a work handle to use
	ldx #0
	phx
	phx
	phx
	pea $1000	; a pretty good size for scratch data..
	lda >MyMemoryID
	pha
	phx
	phx
	phx
	_NewHandle
	plx
	ply
	bcsL @ErrEnd
	stx ScratchHandle
	sty ScratchHandle+2
	
; and finally the style handle..
	ldax theStyleHandle
	stax StyleHandle
	jsr  derefIt
	stax theStylePtr
	stz  StyleOffset
; and now that we have the three handles that we need lets init our data for this routine
; and get under way!
	stz RulerFlag	; no ruler read in yet!
	stz CurrentTextOffset
	stz CurrentTextOffset+2
	stz ResultSize
	stz ResultSize+2
	stz CurrentParaOffset
	lda #$1000
	sta ScratchareaSize
	ldy #$10	; copy the decription key over now!
@Loop1	lda [theDecryptKey],y
	sta myDecriptKey-1,y
	dey
	dey
	bpl @Loop1
	
	ldx MainArrayHandle
	ldy MainArrayHandle+2
	stx deref
	sty deref+2
	
	ldy #2	; deref the new handle
	lda [deref],y
	sta MainArrayPtr+2
	lda [deref]
	sta MainArrayPtr

@Loop	
; first see if we should use this paragraph
	ldy CurrentParaOffset
	lda [MainArrayPtr],y
	beq @ReadRuler	; if zero its a ruler
	bmi @NextPara	; negative means its a picture
	jsr ReadThisParagraph
	bcs @ErrEnd
	jsr AddThisParagraph
	bcs @ErrEnd
	jsr AddThisStyleInfo ; we now add the style info for the paragraph
	bcs @ErrEnd
@NextPara
	lda  CurrentParaOffset
	clc
	adc  #$0010
	tay
	sty  CurrentParaOffset
	cmp  MainData.InfoArrayLength
	blt  @Loop	; see if we are done, if not do the next one!
	clc	; we are done, we must have all the text
	rts
@ReadRuler
;
; We come here to read any ruler data. NOTE that we only read the first ruler
; because we only support the one!
	lda RulerFlag
	bne @NextPara	; if the flag is set we already read in a ruler!
	dec a
	sta RulerFlag	; signal we read the first ruler..
	jsr ReadThisParagraph ; load in the ruler data..
	bcs @ErrEnd
; now copy the ruler data into our handle..
; Stylehandle is set to the proper size and SourcePtr points to the just read data
	ldy #34
	jsr SetStyleHandleSize
	ldy #0
@RulerCopy	lda [SourcePtr],y	; start reading the data
	xba	; its all bytes so we can swap it!
	sta [theStylePtr],y
	iny
	iny
	cpy #34
	blt @RulerCopy
	ldy #30	; zero out the style count!
	lda #0
	sta [theStylePtr],y
	brl @NextPara
@ErrEnd	brl LocalError
;
;
AddThisStyleInfo
; This routine will add the style info for this paragraph to the style list that
; we are creating. It ought to work real groovy (maybe it will!) This routine
; relys on CurrentTextOffset being set to the start of the current paragraph
; it also relys on ThisParaStyleStart being set
;
; First adjust ThisparaStyleStart

	lda ThisParaStyleStart
	lsr a	; test the low bit
	bcc @ItsFine	; if its zero offset is fine!
	inc ThisParaStyleStart
@ItsFine
	ldy ThisParaStyleStart
	lda [sourcePtr],y	; get the size of the style array..
	xba
	sta ThisParaStyleSize
	inc ThisParaStyleStart ;position to the start of the style info..
	inc ThisParaStyleStart

; Now loop thru and read the styles..
@Loop	lda ThisParaStyleSize ; see if we are done yet..
	beq @StyleLoopEnd
	bmi @StyleLoopEnd	; MUST positive...
	sec
	sbc #6	; strip off the current style from the length
	sta ThisParaStyleSize
; grow our style handle to contain the proper style data..
	lda styleSize	; get the current size of the style handle..
	sta StyleOffset	; save it..
	clc
	adc #8	; room for another style..
	tay
	jsr SetStyleHandleSize
; bump the number of style entries by 1..
	ldy #30
	lda [theStylePtr],y
	inc a
	sta [theStylePtr],y
	
	ldy ThisParaStyleStart
	tya	; now bump this by a Style record..
	clc
	adc #6
	sta ThisParaStyleStart
	lda [sourcePtr],y
	xba
	sta tempBuffer
	iny
	iny
	lda [SourcePtr],y
	xba	; we store it style#,font size..
	and #$3F1F	; clip style and size info
	sta tempBuffer+4	; save it in the proper place..
	iny
	iny
	lda [SourcePtr],y	; now get the font famNum
	xba
	sta tempBuffer+2
; Now temp buffer has this style info, we must convert it and write it out..
	ldy StyleOffset	; where if the style handle to put the data
	lda tempBuffer	; add this offset to the start of this paragraph
	clc
	adc CurrentTextOffset
	sta [theStylePtr],y
	lda #0
	adc CurrentTextOffset+2
	iny
	iny
	sta [theStylePtr],y
	iny
	iny
	lda TempBuffer+2
	sta [theStylePtr],y
	iny
	iny
	lda TempBuffer+4
	sta [theStylePtr],y
; now all the style data is in the style handle, loop back again..
	bra @Loop
@StyleLoopEnd
	ldax StyleHandle
	jsr  UnLockIt	; always unlock this when exiting!
	rts	; we are done, better return..
;
AddThisParagraph
; This routine will add the characters from sourcePtr into our destination
; handle
	ldax ResultSize	; make the size the current offset
	stax CurrentTextOffset
	ldax ResultText	; first unlock the handle so we can grow it
	jsr  UnlockIt
	lda  [SourcePtr]	; get the number of uncompressed bytes
	xba
	sta  [SourcePtr]	; save it for later..
	clc
	adc  ResultSize
	sta  ResultSize
	bcc  @1
	inc  ResultSize+2
@1
	PushLong ResultSize
	PushLong ResultText
	_SetHandleSize	; grow the handle to its new size..
	
	ldax ResultText
	jsr  DerefIt
	stax ResultPtr	; point to the current location in the dest array
	
; At this point resultPtr now points to the start of our text array and the 
; SourcePtr points to our current paragraph. CurrentTextOffset point to where to
; start inserting text into the result buffer

	ldax ResultPtr	; make resultptr point to the actual insertion point
	clc
	adc  CurrentTextOffset
@2	sta  ResultPtr	; save the low word ..
	txa
	adc  CurrentTextOffset+2
	sta  ResultPtr+2
;
; Now determine whether to simply copy the text or decompress it..
	lda  ThisParaPosition+2
	and  #$0800	; mask off compression flag
	bne  Decompress
;
; If we get here the paragraph is not compressed and it can simply be copied
	ldax SourcePtr
	clc
	adc  #2
	bcc  @3
	inx
@3	phx
	pha
	ldax ResultPtr
	phx
	pha
	pea  $0000	; never more than a bank..
	lda  [SourcePtr]	; get the number of characters to decompress
	pha
	_BlockMove
	
;
; Now set up to read the style information by setting ThisParaStyleStart
	lda  [SourcePtr]	; get the number of decompressed bytes of data
	inc  a
	inc  a	; adjust for the number of bytes..
	sta  ThisParaStyleStart
	rts
;
; The following routine will decompress the goofy macwrite compresion scheme
decompress
	lda  [SourcePtr]
	sta  ScratchSize	; save the destination text size
	lda  sourcePtr	; bump source pointer by 2..
	clc
	adc  #2
	sta  sourcePtr
	bcc  @1
	inc  sourcePtr+2
@1
	lda  #0	; zero out the B part of A
	longa Off
	sep  #$20	; gotta do it one byte at a time

; Now set up the vars for the unpacking loop
; <Y> will contain the offset into the resultstring handle
; deref+2 will be the nibble flag 0 means high nibble -1 means low
; <X> will contain the offset into the sourcePtr
; deref will be used to hold <Y> or <X> when we write a byte
	ldy  #0	; thats about it...
	ldx  #0
	stz  deref+2	; our little nibble flag!
@UnPackLoop
	jsr  GetNibble	; read in the next nibble
	cmp  #$000F	; is it a whole byte indicator?
	beq  @GetAByte	; if so get the byte
; if we get here its a nibble compressed character, better read the thing..
	stx  deref	; save <X> for a second..
	tax
	lda  MyDecriptKey,x	; get the encripted character
	ldx  deref
	sta  [resultPtr],y	; save the byte
;
@NextChar	iny
	cpy  ScratchSize
	blt  @UnPackLoop	; we are done transfering the data?
	clc
	bra UnPackDone	; if so better return
;
; This routine is called if the byte we want is not compressed, we must then go out
; and fetch the thing
@GetAByte
	jsr  GetNibble
	asl  a	; move it to the high nibble
	asl  a
	asl  a
	asl  a
	sta  deref	; save it for a second
	jsr  GetNibble
	ora  deref	; create the byte
	sta  [resultPtr],y
	bra  @NextChar	; and scoop up the next character
;
; This following routine will fetch a nibble from the input stream and return with it
; in <A>
GetNibble
	bit deref+2	; see if deref+2 is negative..
	bmi @GetLow	; must get the low nibble if this is so..
;
; Get High gets the high nibble of the data stream
	sty deref+2	; save <Y> for a moment
	txy
	lda [sourcePtr],y	; get the byte in question
	ldy deref+2	; restore <Y>
	pha	; save the char for a second
	lda #$FF	
	sta deref+2	; set the low nibble flag
	pla	; get the data back
	lsr  a	; shift the data over..
	lsr  a
	lsr  a
	lsr  a
	rts	; and return
;
; Gets the low nibble of the data stream and bumps said stream
@GetLow	sty deref+2	; save <Y> for a moment
	txy
	lda [sourcePtr],y	; get the byte in question
	ldy deref+2	; restore <Y>
	stz deref+2	; reset the high nibble flag
	inx	; bump the source stream pointer
	and #$0F	; strip the low byte
	rts
UnPackDone
;
; be sure to save the starting location of the style info for this record
	lda deref+2
	beq @xIsRight
	inx
@xIsRight
	longa on
	rep  #$20	; gotta do it one byte at a time
	stx  ThisParaStyleStart
	clc
	rts

;
; This routine will read the paragraph pointed to by currentParaOffset
ReadThisParagraph	
	lda CurrentParaOffset
	clc
	adc #8
	tay
	lda [MainArrayPtr],y
	sta ThisParaPosition
	iny
	iny
	lda [MainArrayPtr],y
	sta ThisParaPosition+2
	iny
	iny
	lda [MainArrayPtr],y
	sta ThisParaLength
; resize the scratch handle and deref if needed
	cmp ScratchareaSize
	beq @NoResize
	blt @NoResize
	
	ldax ScratchHandle
	jsr UnlockIt
	pea 0
	lda ThisParaLength
	pha
	PushLong ScratchHandle
	_SetHandleSize
	bcs @LocalErr
@NoResize
	ldax ScratchHandle
	jsr  derefIt
	stax SourcePtr
	
; Now read in the data...
	lda  ThisParaPosition+2
	and  #$00FF	; strip off the status byte
	tax
	lda  ThisParaPosition
	jsr  SetMark
	bcs  @LocalErr
	
	ldy  ThisParaLength
	ldax SourcePtr
	jsr  ReadData
	bcs  @LocalErr
; data is now read in!
	rts
@LocalErr
LocalError	sta >ThisError
	jsr CloseFile
	sec
	rts
	
SetStyleHandleSize
	pea  0
	phy	; new style handle size
	sty  StyleSize	; save the current style size..
	ldax StyleHandle
	phx
	pha
	jsr unlockIt	; be sure this handle is unlocked.
	_SetHandleSize
	ldax StyleHandle
	jsr  derefIt
	stax theStylePtr
	rts
	
UnlockIt	stax deref
	ldy #4
	lda [deref],y
	and #$7FFF
	sta [deref],y
	rts
derefIt	
	stax deref
	ldy #4
	lda [deref],y
	ora #$8000
	sta [deref],y
	ldy #2
	lda [deref],y
	tax
	lda [deref]
	rts
	
ScratchHandle	ds.L 1
CurrentTextOffset	ds.L 1
CurrentParaOffset	ds.W 1
ThisParaPosition	ds.L 1
ThisParaLength	ds.W 1
ThisParaStyleStart	ds.W 1
ThisParaStyleSize	ds.W 1
ScratchSize	ds.W 1
ResultSize	ds.L 1
ScratchOffset	ds.W 1
ScratchAreaSize	ds.W 1
RulerFlag	ds.W 1
	EndP
	
	EJECT
*******************************************************************************
*
ReadMACAWORD	PROC Export
* Function ReadMACAWORD(theDecript:Handle; theFileName:ptr):handle;
* Description:	reads a given Macwrite data file
*
*
* Inputs:	On stack
*
* Outputs:	on stack
*
* External Refs:
*
* Entry Points:
*
*******************************************************************************
	With MacRezGlobals

 	phd	; save old dpage and bank
	phb
	
	pha
	pha
	pha
	pha
	
	tsc
	tcd	; set up our stack frame
	
	phk	; set up our data banl
	plb
	
	stz  resultText	; zero out the result
	stz  resultText+2
	lda  #0
	sta  >ThisError	; and zero out the error code
	
	jsr  OpenFile	; lets get this baby moving!
	bcc  NoOpenError
	sta  >ThisError
	bra  CallFinished
	
NoOpenError	jsr  GetMainArrayInfo
	bcsL CallFinished
	
	jsr  ReadMainArray	; load the main array into memory
	bcs  CallFinished
	
	jsr  ReadTheText
	bcs  CallFinished
	
	jsr  CloseFile
	
; Undo the stack stuff
CallFinished	pla
	pla
	pla
	pla
	
	plb
	pld
	longa off
	sep #$20
	pla
	ply
	
	plx
	plx
	plx
	plx
	plx
	plx
	
	phy
	pha
	
	longa On
	rep #$20
	rtl
	EndP


*******************************************************************************
*	MyOOMRtn
*	This header record must be directly before MyOOM routine
*	in memory.
*******************************************************************************
MyOOMRtn	RECORD Export
	dc.L 0	;used by queue manager
	dc.W 0	;OOMEntry version
	dc.W $A55A	;queue entry signature
	EndR

*******************************************************************************
*
MyOOM	PROC
* Function MyOOM(stage: Integer; bytesNeeded: Longint):LongInt;
* Description:	This routine will release memory when it is called, if
*	the stage is 1.  
*
* Inputs:	urgence level: Integer; # of bytes needed: Longint;
*
* Outputs:	number of bytes freed: Longint;
*
* External Refs:	handle to reserve memory: Handle;
*
* Entry Points:	MyOOM only, please.
*
*******************************************************************************
	import ReserveHndl
	import OOMFlag

RTLAdr	equ 1
Stage	equ RTLAdr+3
BytesNeeded	equ Stage+2
Result	equ BytesNeeded+4
;
;  Zero out the result before starting.
;
	lda #0
	sta Result,s
	sta Result+2,s
;
;  Since this routine can be called before and after memory is purged,
;  we want to wait 'til after everything is purged and things are really
;  getting bad.  So we check the stage parameter.
;
	lda stage,s
	beq OOMEnd
;
;  We know the memory manager has tried everthing else and still needs
;  more memory.  Now we need to make sure that we haven't already freed
;  the memory.
;
	lda >OOMFlag
	bne OOMEnd
;
;  Now we free the memory and set the OOMFlag to notify other routines
;  that can alert the user that memory is very tight.
;
	PushLong >ReserveHndl
	_DisposeHandle

	lda #1
	sta >OOMFlag
	
	lda #$4000
	sta Result,s
;
;  Now clean up the stack and return to the memory manager.
;
OOMEnd	
	LongA Off
	sep #$20
	
	pla
	ply
	
	plx
	plx
	plx
	
	phy
	pha
	
	LongA On
	rep #$20
	
	RTL
	
	EndP


*******************************************************************************
*
SaveDB	PROC export
* Function SaveDB:Integer;
* Description:	This routine sets the data bank register to point to
*	the ~globals data segment.  It returns the current DB.
* Inputs:	None
* Outputs:	Current data bank register: Integer(the number is in the high byte)
* External Refs:	ThisError(using only the high word of it's address)
*
*******************************************************************************
	
	phb
	lda #^ThisError     ; Get the hi-word of "ThisError", which is in ~globals
	pha
	plb
	pla
	sta 4,s
	rtl
	
	EndP


*******************************************************************************
*
RestoreDB	PROC export
* Function RestoreDB(theSavedDB:Integer);
* Description:	This routine sets the data bank register to the value
*	of the number passed.  The number is in the high byte.
* Inputs:	The saved data bank register value.
* Outputs:	none
* External Refs:	none
*
*******************************************************************************
	
	lda 4,s
	pha
	plb
	plb
	lda 2,s
	sta 4,s
	lda 1,s
	sta 3,s
	pla
	rtl
	
	EndP


************************************************************************
*
*   GetDialog640
*
*   This record is all of the templates needed to implement a custom
*   Standard File dialog that includes radio buttons for selecting the
*   type of file to import.
*
************************************************************************
	case on
	case object
GetDialog640	record export

	dc.w 0,0,144,400
	dc.w -1
	dc.w 0,0
	dc.l OpenBut640
	dc.l CloseBut640
	dc.l NextBut640
	dc.l CancelBut640
	dc.l Scroll640
	dc.l Path640
	dc.l Files640
	dc.l Prompt640
	dc.l GetAllTypes
	dc.l GetAppleWorks
	dc.l GetAWorksGS
	dc.l GetMacWrite
	dc.l 0
	
OpenBut640	dc.w 1
	dc.w 61,265,73,375
	dc.w ButtonItem
	dc.l OpenStr
	dc.w 0,0
	dc.l 0
	
OpenStr	dc.b 4,'Open'

CloseBut640	dc.w 2
	dc.w 79,265,91,375
	dc.w ButtonItem
	dc.l CloseStr
	dc.w 0,0
	dc.l 0
	
CloseStr	dc.b 5,'Close'

NextBut640	dc.w 3
	dc.w 25,265,37,375
	dc.w ButtonItem
	dc.l DriveStr
	dc.w 0,0
	dc.l 0
	
;DriveStr	dc.b 7,'Volumes'
DriveStr	dc.b 5,'Disks'	;25-Mar-92 DAL

CancelBut640	dc.w 4
	dc.w 97,265,109,375
	dc.w ButtonItem
	dc.l CancelStr
	dc.w 0,0
	dc.l 0
	
CancelStr	dc.b 6,'Cancel'

Scroll640	dc.w 5
	dc.w 43,265,55,375
	dc.w ButtonItem
	dc.l AcceptStr
	dc.w 0,0
	dc.l 0
	
AcceptStr	dc.b 6,'Accept'

Path640	dc.w 6
	dc.w 12,15,24,395
	dc.w UserItem
	dc.l 0
	dc.w 0,0
	dc.l 0
	
Files640	dc.w 7
	dc.w 25,18,107,215
	dc.w UserItem+ItemDisable
	dc.l 0
	dc.w 0,0
	dc.l 0
	
Prompt640	dc.w 8
	dc.w 3,15,12,395
	dc.w UserItem+ItemDisable
	dc.l 0
	dc.w 0,0
	dc.l 0
	
GetAllTypes	dc.w 101
	dc.w 130,210,140,390
	dc.w radioItem
	dc.l AllTypesStr
	dc.w 1,1
	dc.l 0

AllTypesStr	dc.b 15,'All Three Types'
	
GetAppleWorks	dc.w 102
	dc.w 116,15,126,200
	dc.w radioItem
	dc.l AppleWorksStr
	dc.w 0,1
	dc.l 0

AppleWorksStr	dc.b 14,'AppleWorks 3.0'
	
GetAWorksGS	dc.w 103
	dc.w 116,210,126,390
	dc.w radioItem
	dc.l AWorksGSStr
	dc.w 0,1
	dc.l 0

AWorksGSStr	dc.b 13,'AppleWorks GS'
	
GetMacWrite	dc.w 104
	dc.w 130,15,140,200
	dc.w radioItem
	dc.l MacWriteStr
	dc.w 0,1
	dc.l 0
	
MacWriteStr	dc.b 12,'MacWrite 5.0'

	endr
	

************************************************************************
*
*   PutDialog640
*
*   This record is all of the templates needed to implement a custom
*   Standard File dialog that includes radio buttons for selecting the
*   type of file to save as.
*
************************************************************************
	case on
	case object
PutDialog640	record export

	dc.w 0,0,150,320
	dc.w -1
	dc.w 0,0
	dc.l SaveButP640
	dc.l OpenButP640
	dc.l CloseButP640
	dc.l NextButP640
	dc.l CancelButP640
	dc.l ScrollP640
	dc.l PathP640
	dc.l FilesP640
	dc.l PromptP640
	dc.l EditP640
	dc.l StatTextP640
	dc.l CreateButP640
	dc.l FileFormatMsg
	dc.l SaveAsTeach
	dc.l SaveAsText
	dc.l SaveAsAPW
	dc.l 0
	
SaveButP640	dc.w 1
	dc.w 87,204,99,310
	dc.w ButtonItem
	dc.l SaveStr
	dc.w 0,0
	dc.l 0
	
SaveStr	dc.b 4,'Save'

OpenButP640	dc.w 2
	dc.w 50,204,62,310
	dc.w ButtonItem
	dc.l OpenStr
	dc.w 0,0
	dc.l 0

CloseButP640	dc.w 3
	dc.w 65,204,77,310
	dc.w ButtonItem
	dc.l CloseStr
	dc.w 0,0
	dc.l 0

NextButP640	dc.w 4
	dc.w 15,204,27,310
	dc.w ButtonItem
	dc.l DriveStr
	dc.w 0,0
	dc.l 0

CancelButP640	dc.w 5
	dc.w 104,204,116,310
	dc.w ButtonItem
	dc.l GetDialog640.CancelStr
	dc.w 0,0
	dc.l 0

ScrollP640	dc.w 6
	dc.w 0,0,0,0
	dc.w UserItem
	dc.l 0
	dc.w 0,0
	dc.l 0

PathP640	dc.w 7
	dc.w 0,10,12,315
	dc.w UserItem
	dc.l 0
	dc.w 0,0
	dc.l 0
	
FilesP640	dc.w 8
	dc.w 26,10,88,170
	dc.w UserItem
	dc.l 0
	dc.w 0,0
	dc.l 0
	
PromptP640	dc.w 9
	dc.w 88,10,100,200
	dc.w StatText+ItemDisable
	dc.l 0
	dc.w 0,0
	dc.l 0
	
EditP640	dc.w 10
	dc.w 100,10,118,194
	dc.w EditLine
	dc.l 0
	dc.w 63
	dc.w 0
	dc.l 0

StatTextP640	dc.w 11
	dc.w 12,10,22,200
	dc.w StatText+ItemDisable
	dc.l KbFreeStr
	dc.w 0,1
	dc.l 0

KbFreeStr	dc.b 16,'^0 free of ^1 K.'

CreateButP640	dc.w 12
	dc.w 30,204,42,310
	dc.w ButtonItem
	dc.l FolderStr
	dc.w 0,0
	dc.l 0

FolderStr	dc.b 10,'New Folder'
	
FileFormatMsg	dc.w 100
	dc.w 123,15,133,205
	dc.w StatText+ItemDisable
	dc.l FileFormatStr
	dc.w 0,1
	dc.l 0

FileFormatStr	dc.b 21,'Save in which format?'

SaveAsTeach	dc.w 101
	dc.w 135,15,145,75
	dc.w radioItem
	dc.l TeachStr
	dc.w 1,1
	dc.l 0
	
TeachStr	dc.b 5,'Teach'

SaveAsText	dc.w 102
	dc.w 135,95,145,145
	dc.w radioItem
	dc.l TextStr
	dc.w 0,1
	dc.l 0
	
TextStr	dc.b 4,'Text'

SaveAsAPW	dc.w 103
	dc.w 135,165,145,265
	dc.w radioItem
	dc.l APWStr
	dc.w 0,1
	dc.l 0
	
APWStr	dc.b 9,'Installer'

	endr
	

	End
\ No newline at end of file
diff --git a/IIGS.601.SRC/ToolBoxMisc/Teach/MakeFile b/IIGS.601.SRC/ToolBoxMisc/Teach/MakeFile
new file mode 100644
index 0000000..8d04e74
--- /dev/null
+++ b/IIGS.601.SRC/ToolBoxMisc/Teach/MakeFile
@@ -0,0 +1 @@
+SrcDir  = :
ObjDir  = :objs:
App		= "Teach"

Sources = 						¶
		{SrcDir}uGlobals.p		¶
		{SrcDir}uUtils.p		¶
		{SrcDir}uWindow.p		¶
		{SrcDir}uImport.p		¶
		{SrcDir}uPrint.p		¶
		{SrcDir}uMenu.p			¶
		{SrcDir}uEvent.p		¶
		{SrcDir}Teach.p


Objects = 						¶
		{ObjDir}uGlobals.p.obj	¶
		{ObjDir}uUtils.p.obj	¶
		{ObjDir}uWindow.p.obj	¶
		{ObjDir}uImport.p.obj	¶
		{ObjDir}uPrint.p.obj	¶
		{ObjDir}uMenu.p.obj		¶
		{ObjDir}uEvent.p.obj	¶
		{ObjDir}Teach.p.obj		¶
		{ObjDir}MacRez.asm.obj	¶
		{ObjDir}FindNext.asm.obj


#{App} Ä		{ObjDir}Teach.Load {ObjDir}Teach.Res
#	delete  -i Teach
#	duplicate -y -d {ObjDir}Teach.load Teach
#	duplicate -y -r {ObjDir}Teach.res Teach
#	setfileiigs -t $B3 -a $DB07 Teach

#{ObjDIR}Teach.res		Ä	Teach.r
#	reziigs Teach.r -o {ObjDir}Teach.res -rd

#{ObjDir}Teach.Load		Ä	{Objects}
#	LinkIIGS ¶
#		"{PIIGSLibraries}"PStart.obj¶
#		{Objects} ¶
#		-lib "{PIIGSLibraries}"plib ¶
#		-o {ObjDir}Teach.Load
		

{App} Ä		{Objects} Teach.r
	LinkIIGS ¶
		"{PIIGSLibraries}"PStart.obj¶
		{Objects} ¶
		-lib "{PIIGSLibraries}"plib ¶
		-t $B3 -at $DB07 ¶
		-o Teach
	reziigs Teach.r -o Teach -rd
	if {AutoDuplicate} == 1
		DuplicateIIGS -y -mac Teach :
	End


{ObjDir}Teach.p.obj 		Ä 						¶
							Teach.p				¶
							uevent.p
	pascalIIgs -r -saddr Teach.p -o {ObjDir}

{ObjDir}uEvent.p.obj 	Ä 						¶
							uEvent.p			¶
							uEvent.inc.p		¶
							uPrint.p			¶
							uWindow.p			¶
							uMenu.p				¶
							uUtils.p			¶
							uGlobals.p	
	pascalIIgs -r -saddr uEvent.p -o {ObjDir}

{ObjDir}uPrint.p.obj 	Ä 						¶
							uPrint.p			¶
							uPrint.inc.p		¶
							uUtils.p			¶
							uGlobals.p	
	pascalIIgs -r -saddr uPrint.p -o {ObjDir}

{ObjDir}uWindow.p.obj 	Ä						¶
							uWindow.p			¶
							uWindow.inc.p		¶
							uImport.p			¶
							uUtils.p	 		¶
							uGlobals.p	
	pascalIIgs -r -saddr uWindow.p -o {ObjDir}

{ObjDir}uImport.p.obj 	Ä						¶
							uWindow.p			¶
							uImport.p			¶
							uImport.inc.p		¶
							uUtils.p	 		¶
							uGlobals.p	
	pascalIIgs -r -saddr uImport.p -o {ObjDir}

{ObjDir}uMenu.p.obj 	Ä						¶
							aboutBox.P			¶
							uMenu.p				¶
							uMenu.inc.p			¶
							uWindow.p			¶
							uImport.p			¶
							uImport.p			¶
							uPrint.p			¶
							uUtils.p	 		¶
							uGlobals.p	
	pascalIIgs -r -saddr uMenu.p -o {ObjDir}

{ObjDir}uUtils.p.obj 	Ä						¶
							uUtils.p			¶
							uUtils.inc.p
	pascalIIgs -r -saddr uUtils.p -o {ObjDir}

{ObjDir}uGlobals.p.obj 	Ä						¶
							uGlobals.p			¶
							uGlobals.inc.p	
	pascalIIgs -r -saddr uGlobals.p -o {ObjDir}

{objDIR}FindNext.asm.obj Ä FindNext.asm
	asmIIgs FindNext.asm -o {ObjDir}

{objDIR}MacRez.asm.obj Ä MacRez.asm
	asmIIgs MacRez.asm -o {ObjDir}
\ No newline at end of file
diff --git a/IIGS.601.SRC/ToolBoxMisc/Teach/Teach b/IIGS.601.SRC/ToolBoxMisc/Teach/Teach
new file mode 100644
index 0000000..6f588c8
Binary files /dev/null and b/IIGS.601.SRC/ToolBoxMisc/Teach/Teach differ
diff --git a/IIGS.601.SRC/ToolBoxMisc/Teach/Teach.Macros b/IIGS.601.SRC/ToolBoxMisc/Teach/Teach.Macros
new file mode 100644
index 0000000..1ffb052
--- /dev/null
+++ b/IIGS.601.SRC/ToolBoxMisc/Teach/Teach.Macros
@@ -0,0 +1 @@
+; private macros for teach, extracted from the old All.Macros file

	MACRO
	ldax &addr,&regs
	IF &addr[1:1]='#' THEN
		lda  #&addr[2:255]
		ldx  #&addr[2:255]>>16
	ELSEIF &addr[1:1]='[' THEN
		IF &regs='y' THEN
			lda  &addr,y
			pha
			iny
			iny
			lda  &addr,y
			tax
			pla
		ELSE
			ldy  #&regs+2
			lda  &addr,y
			tax
			ldy  #&regs
			lda  &addr,y
		ENDIF
	ELSEIF &regs='s' THEN
		lda  &addr+2,s
		tax
		lda  &addr,s
	ELSEIF &regs='' THEN
		lda  &addr
		ldx  &addr+2
	ELSE
		lda  &addr+2,&offset
		pha
		lda  &addr,&offset
		plx
	ENDIF
	MEND

;---------------------------------------------------------
	MACRO
	bcsl &A
		bcc  @dontTake
		brl  &A
@dontTake
	MEND

;---------------------------------------------------------

	MACRO
	stax &addr,&regs
	IF &addr[1:1]='[' THEN
		IF &regs='y' THEN
			sta  &addr,y
			iny
			iny
			txa
			sta  &addr,y
		ELSE
			ldy  #&regs
			sta  &addr,y
			txa
			ldy  #&regs+2
			sta  &addr,y
		ENDIF
	ELSEIF &regs='s' THEN
		sta  &addr,s
		txa
		sta  &addr+2,s
	ELSEIF &regs='' THEN
		sta  &addr
		stx  &addr+2
	ELSE
		sta  &addr,&offset
		txa
		sta  &addr+2,&offset
	ENDIF
	MEND

;............................................................
;
;        Push long (4 bytes) onto stack
;
;    pushlong address             - push contents of address
;    pushlong address,x           - push contents of address,x
;    pushlong const,s             - push contents of stack+const    
;    pushlong #address/const      - push address or constant
;    pushlong [zeropage],offset   - push using indirect address
;...............................................................
	MACRO
	pushlong &addr,&offset
	IF  &addr[1:1]='#'	THEN
	pea &addr[2:255]>>16
	pea |&addr[2:255]
	ELSEIF &addr[1:1]='[' THEN
	ldy #&offset+2
	pushword &addr,y
	ldy #&offset
	pushword &addr,y
	ELSEIF &offset='s'	THEN
	pushword &addr+2,s
	pushword &addr,s
	ELSEIF &offset=''	THEN
	pushword &addr+2
	pushword &addr
	ELSE
	pushword &addr+2,&offset
	pushword &addr,&offset
	ENDIF
	MEND

;...............................................................
;
;        Push 2 bytes onto stack
;
;    pushword loc	  -- pushes bytes onto stack from 'loc'
;    pushword loc,x	  -- pushes bytes onto stack from 'loc,x'
;    pushword #n	  -- pushes constant #n onto stack
;    pushword	  -- pushes bytes onto stack (from A)
;...............................................................
	MACRO
	pushword &addr,&reg
	IF  &addr[1:1]='#'	AND &SETTING('LONGA')='ON' THEN
	pea |&addr[2:255]
	ELSE
	IF  &addr­''	THEN
	IF  &reg­''	THEN 
	lda &addr,&reg
	ELSE
	lda &addr
	ENDIF
	ENDIF
	pha
	ENDIF
	MEND
\ No newline at end of file
diff --git a/IIGS.601.SRC/ToolBoxMisc/Teach/teach.p b/IIGS.601.SRC/ToolBoxMisc/Teach/teach.p
new file mode 100644
index 0000000..9d02dc8
--- /dev/null
+++ b/IIGS.601.SRC/ToolBoxMisc/Teach/teach.p
@@ -0,0 +1 @@
+{**********************************************************************
{*
{* Teach (Main Program)
{*
{* Copyright (c)
{* Apple Computer, Inc.  1986-1993
{* All Rights Reserved.
{*
{* This file contains the Teach program.
{*
{**********************************************************************}
{$R-}

program Teach;

USES 
		types,
		gsos,
		Quickdraw,
		fonts,
		memory,
		IntMath,
		events,
		prodos,
		locator,
		controls,
		windows,
		lists,
		scrap,
		dialogs,
		menus,
		desk,
		STDFile,
		QDAUX, 
		miscTool,
		lineEdit,
		resources,
		textedit,
		print,
		
        uEvent, 			{Our Code Units}
		uMenu, 
		uWindow, 
		uUtils,
		uGlobals;

var
	InitRef : ref;		{ This holds the reference to the startstop record }
	ignore, oldSysPrefs: integer;
	qdMem, emMem: Handle;
	myPrefsRec: SysPrefsRecGS;


PROCEDURE Debug;  INLINE $0000;

procedure ComplainAboutSysVersion(error: integer); external;
procedure InstallMyRequestProc; external;

function GSOSVersionOkay: boolean;
var
	theVersion: VersionRecGS;
begin
	theVersion.pCount := 1;
	GetVersionGS(theVersion);
	GSOSVersionOkay := band($7fff,theVersion.version) >= $0402;
end;


BEGIN  { of MAIN program Teach }
	
	TLStartUp;
	
	{ Init our globals. }
	InitGlobals;
	
	{ Startup the tools using the new toolbox call }
	if GSOSVersionOkay then
		InitRef := StartupTools(MyMemoryID+$0100,RefIsResource,ref(1))
	else
		_toolErr := $FFFF;
	
	if _ToolErr = 0 then
		begin
		{ set the system preferences to display mount dialogs }
		myPrefsRec.pCount := 1;
		GetSysPrefsGS(myPrefsRec);
		oldSysPrefs := myPrefsRec.preferences;
		myPrefsRec.preferences := $8000;
		SetSysPrefsGS(myPrefsRec);

		InstallMyRequestProc;	{ 19-Jan-93 DAL }
		InitMemWatcher;
		SetUpMenus;     { Set up menus }
		SetupWindows;
		MainEvent;      { Use application }
		CloseMemWatcher;
		AcceptRequests(nil,MMStartUp,nil);
		
		{ set the system preferences back to what they were }
		myPrefsRec.preferences := oldSysPrefs;
		SetSysPrefsGS(myPrefsRec);
		end
	else
		begin
			ComplainAboutSysVersion(_toolErr);
		end;

	{ Let the toolbox shutdown the tools. }
	ShutDownTools(RefIsHandle,InitRef);
	TLShutDown;
END.   { of MAIN program Teach }
\ No newline at end of file
diff --git a/IIGS.601.SRC/ToolBoxMisc/Teach/teach.r b/IIGS.601.SRC/ToolBoxMisc/Teach/teach.r
new file mode 100644
index 0000000..a541f3d
--- /dev/null
+++ b/IIGS.601.SRC/ToolBoxMisc/Teach/teach.r
@@ -0,0 +1 @@
+/**************************************************************************
*
* Copyright Apple Computer Inc 1990-1993
* All Rights Reserved
*
*-----------------------------------------------------------------
*
* BEGIN 6.0.1
*
* 25-Mar-92 DAL
*   Version 1.1d3.  Changed "volume" to "disk".
*
* 26-May-92 DAL
*   Version 1.1d4.
*
* 18-Jun-92 DAL
*   Version 1.1d6.
*
* 4-Jul-92 DAL
*   Changed icon on Save Changes alert to a Caution icon.
*
* 7-Jul-92 DAL
*   Changed save-changes alert to "Save changes to '*0' before closing?".
*
* 25-Aug-92 DAL
*   Version 1.1d10.  Added Show Clipboard menu item.
*
* 19-Jan-93 DAL
*   Version 1.1d13.  Fixed copyright for 93.
*
* 3-Mar-93 DAL
*   Version 1.1d14.
*
***************************************************************************/

/*---------------------------------------------------------------*/

#include "typesiigs.r" 

#define MyrCursor				$8027

/*---------------------- MyrCursor -------------------------*/
type MyrCursor {
		integer;					/* height */
		integer;					/* width  */
		wide array {				/* image  */
			hex byte;
			};
		wide array {				/* mask	  */
			hex byte;
			};
		integer;					/* HotY		*/
		integer;					/* HotX		*/
		integer;					/* Cursor ID */
		longint = 0;				/* filler */
		longint = 0;				/* filler */
};
			

/*------------------- Values used through out -------------------*/

#define MainWindow		$1000
#define FindWindow		$2000
#define RepWindow		$3000


/*----------------------- About Box ------------------------------*/
resource rAlertString (1) {
	"\$00\$19\$00\$A0\$00\$AA\$00\$E0\$01"
	"\$00/"
	TBCenterJust
	TBStyleOutline
	"Teach"
	TBEndOfLine
	TBStylePlain
	"A simple program for editing text files."
	TBEndOfLine
	TBEndOfLine
	TBEndOfLine
	"by Johnny Selhorst, Jim Mensch,"
	TBEndOfLine
	"Steven E Glass, and Dave Lyons"
	TBEndOfLine
	TBEndOfLine
	TBEndOfLine
	"Copyright 1989-93, Apple Computer, Inc."
	TBEndOfLine
	"All Rights Reserved"
	TBEndOfLine
	"Version 1.1/^#6\$00"
};

 resource rVersion (1) {
	{
		1,1,0,				// major, minor, and bug fix version levels
		release, $00
	},
	verUS,					// US version
	"Teach",
	"Copyright © 1989-93, Apple Computer, Inc., All Rights Reserved"
};



/*----------------------- Error #2 ------------------------------*/
resource rAlertString (2) {
	"63/"
	"Teach does not support the Finder Print feature.  "
	"Your document will just be opened instead."
	TBEndOfLine
	"/^#6\$00"
};


/*----------------------- Error #3 ------------------------------*/
resource rAlertString (3) {
	"63/"
	"Teach only supports 4 documents open at a time.  To open"
	" additional documents, please close one of the open documents."
	TBEndOfLine
	"/^#6\$00"
};

/*----------------------- Question 4 ------------------------------*/
resource rAlertString (4) {
	"64:"
	"Save changes to Ò*0Ó before closing?"
	":DonÕt Save:#1:^Save\$00"
};

/*----------------------- Error #5 ------------------------------*/
resource rAlertString (5) {
	"63/"
	"There seems to be some problem printing to the selected printer.  Please check"
	" your control panel settings and try again."
	TBEndOfLine
	"/^#6\$00"
};


/*----------------------- Error #7 ------------------------------*/
resource rAlertString (7) {
	"63/"
	"The selected file is larger than the maximum size Teach allows.  Teach cannot"
	" edit it."
	TBEndOfLine
	"/^#6\$00"
};

/*----------------------- Error #8 ------------------------------*/
resource rAlertString (8) {
	"63/"
	"An error occurred while creating the window, probably due to low"
	" memory."
	TBEndOfLine
	"/^#6\$00"
};


/*----------------------- Error #9 ------------------------------*/
resource rAlertString (9) {
	"63/"
	"An error occured while reading the data.  All Style information"
	" has been lost."
	TBEndOfLine
	"/^#6\$00"
};

/*----------------------- Error #10 ------------------------------*/
resource rAlertString (10) {
	"62/"
	"An unknown error has occured.  Please close all windows and exit this program."
	TBEndOfLine
	"/^#6\$00"
};

/*----------------------- Error #11 ------------------------------*/
resource rAlertString (11) {
	"63/"
	"I canÕt seem to locate the disk your file belongs to.  Try using 'Save as'."
	TBEndOfLine
	"/^#0\$00"
};

/*----------------------- Error #12 ------------------------------*/
resource rAlertString (12) {
	"64/"
	"You do not have enough free memory to save the changes to this file.  "
	"Try again after closing some other windows."
	TBEndOfLine
	"/^#6\$00"
};

/*----------------------- Error #13 ------------------------------*/
/*	There is no error #13.  Bad luck.	*/

/*----------------------- Error #14 ------------------------------*/
resource rAlertString (14) {
	"63/"
	"The file could not be saved.  "
	"It is locked or in use. "
	TBEndOfLine
	"/^#6\$00"
};

/*----------------------- Error #15 ------------------------------*/
resource rAlertString (15) {
	"63/"
	"Unable to search.  There is not enough memory.  "
	"Closing some windows may free some memory."
	TBEndOfLine
	"/^#6\$00"
};

/*----------------------- Error #16 ------------------------------*/
resource rAlertString (16) {
	"63/"
	"The system font was used in the imported file.  "
	"Text of that style may display with the wrong font.  "
	TBEndOfLine
	"/^#0\$00"
};

// /*----------------------- Error #17 ------------------------------*/
// resource rAlertString (17) {
// 	"63/"
// 	"This file is larger than Teach can import.  "
// 	"Teach cannot handle documents larger than 128K."
// 	TBEndOfLine
// 	"/^#0\$00"
// };

/*----------------------- Error #18 ------------------------------*/
resource rAlertString (18) {
	"73/"
	"You are critically short of memory.  "
	"Some menu selections may not function.  "
	"Save and close your documents immediately.  "
	TBEndOfLine
	"/^#6\$00"
};

/*----------------------- Error #19 ------------------------------*/
resource rAlertString (19) {
	"63:"
	"This file is not a format that Teach can read.  "
	TBEndOfLine
	":^#6\$00"
};

/*----------------------- Error #20 ------------------------------*/
resource rAlertString (20) {
	"63:"
	"There is not enough room on the selected disk to save the style information.  "
	"Select another disk or try saving a copy as text only.  "
	TBEndOfLine
	":^#6\$00"
};

/*----------------------- Error #21 ------------------------------*/
resource rAlertString (21) {
	"43:"
	"Teach cannot open this document from the desktop.  "
	"Use the 'Import fileÉ' menu item to open this document.  "
	TBEndOfLine
	":^#0\$00"
};

/*----------------------- Error #$0201 ------------------------------*/
resource rErrorString ($07FF0201) {
	"22/"
	"There is not enough memory to complete this action.  "
	TBEndOfLine
	"/^#6\$00"
};



/*----------------------Startup Record ---------------------------*/
resource rToolStartup (1)	{
	$C080,
	{ 	
		3,$0303,						/* misc tools */
		4,$0308,						/* quickdraw */
		5,$0304,						/* desk manager */
		6,$0301,						/* eventMgr */
/*		7,$0300,						/* scheduler */
/*		8,$0303,						/* sound tools */
/*		9,$0300,						/* ADB tools */
/*		10,$0300,						/* SANE */
		11,$0301,						/* int math */
		14,$0304,						/* Window Manager */
		15,$0304,						/* Menu Manager */
		16,$0303,						/* Control Manager */
		18,$0305,						/* QD Aux */
		19,$0301,						/* print manager */
		20,$0303,						/* LineEdit tool set */
		21,$0304,						/* Dialog Manager */
		22,$0301,						/* Scrap manager */
		23,$0304,						/* standard file */
		27,$0303,						/* Font manager */
		28,$0304,						/* list manager */
		34,$0103,						/* text edit */
/*		29,$0100,						/* ACE */
/*		32,$0100,						/* Midi Tools */
/*		25,$0100,						/* NoteSynth */
/*		26,$0100						/* Note Seq */
	}
};




/*---------------------------------------------------------------------------*/
/*
/* Main Window
/*
/* This is the template for the main window that will contain any text that
/* is typed or loaded.
/*
/*---------------------------------------------------------------------------*/
resource rWindParam1 (MainWindow) {
	fTitle+fMove+fZoom+fClose,									/* Frame Bits 			*/
	0,															/* title ID   			*/
	0,															/* ref Con    			*/
	{0,0,0,0},													/* Zoom Rect  			*/
	0,															/* color table id 		*/
	{0,0},														/* origin 				*/
	{0,0},														/* data size 			*/
	{0,0},														/* max height-width		*/
	{0,0},														/* scroll amount, hor,ver */
	{0,0},														/* page amount */
	0,															/* wInfo Ref Con */
	0,															/* wInfo height */
	{40,20,180,600},											/* window Position */
	infront,													/* wPlane */
	MainWindow,													/* Control Ref */
	ResourceToResource											/* Verb */
};

resource rWindParam1 (127) {
	fTitle+fMove+fZoom+fClose+fVis,									/* Frame Bits 			*/
	0,															/* title ID   			*/
	0,															/* ref Con    			*/
	{0,0,0,0},													/* Zoom Rect  			*/
	0,															/* color table id 		*/
	{0,0},														/* origin 				*/
	{0,0},														/* data size 			*/
	{0,0},														/* max height-width		*/
	{0,0},														/* scroll amount, hor,ver */
	{0,0},														/* page amount */
	0,															/* wInfo Ref Con */
	0,															/* wInfo height */
	{40,20,180,550},											/* window Position */
	infront,													/* wPlane */
	0,															/* Control Ref */
	0															/* Verb */
};

resource rWindParam1 (FindWindow) {
	fAlert+fVis,														/* Frame Bits 			*/
	0,															/* title ID   			*/
	0,															/* ref Con    			*/
	{0,0,0,0},													/* Zoom Rect  			*/
	0,															/* color table id 		*/
	{0,0},														/* origin 				*/
	{0,0},														/* data size 			*/
	{0,0},														/* max height-width		*/
	{0,0},														/* scroll amount, hor,ver */
	{0,0},														/* page amount */
	0,															/* wInfo Ref Con */
	0,															/* wInfo height */
	{40,170,110,470},											/* window Position */
	infront,													/* wPlane */
	FindWindow,													/* Control Ref */
	ResourceToResource											/* Verb */
};

resource rWindParam1 (RepWindow) {
	fAlert+fVis,														/* Frame Bits 			*/
	0,															/* title ID   			*/
	0,															/* ref Con    			*/
	{0,0,0,0},													/* Zoom Rect  			*/
	0,															/* color table id 		*/
	{0,0},														/* origin 				*/
	{0,0},														/* data size 			*/
	{0,0},														/* max height-width		*/
	{0,0},														/* scroll amount, hor,ver */
	{0,0},														/* page amount */
	0,															/* wInfo Ref Con */
	0,															/* wInfo height */
	{40,170,140,470},											/* window Position */
	infront,													/* wPlane */
	RepWindow,													/* Control Ref */
	ResourceToResource											/* Verb */
};

resource rControlList (FindWindow) {

	{
		FindWindow+1,
		FindWindow+2,
		FindWindow+3,
		FindWindow+4,
		FindWindow+5,
		FindWindow+6,
	};
};
		
resource rControlList (RepWindow) {

	{
		FindWindow+1,
		RepWindow+5,
		RepWindow+6,
		FindWindow+2,
		FindWindow+3,
		FindWindow+4,
		RepWindow+7,
		RepWindow+8,
		RepWindow+9,
	};
};
		
resource rControlList (MainWindow) {
	{
		MainWindow,
	};
};

#Define Bit00 $01
#Define Bit01 $02
#Define Bit02 $04
#Define Bit03 $08
#Define Bit04 $10
#Define Bit05 $20
#Define Bit06 $40
#Define Bit07 $80
#Define Bit08 $0100
#Define Bit09 $0200
#Define Bit10 $0400
#Define Bit11 $0800
#Define Bit12 $1000
#Define Bit13 $2000
#Define Bit14 $4000
#Define Bit15 $8000
#Define Bit16 $010000
#Define Bit17 $020000
#Define Bit18 $040000
#Define Bit19 $080000
#Define Bit20 $100000
#Define Bit21 $200000
#Define Bit22 $400000
#Define Bit23 $800000
#Define Bit24 $01000000
#Define Bit25 $02000000
#Define Bit26 $04000000
#Define Bit27 $08000000
#Define Bit28 $10000000
#Define Bit29 $20000000
#Define Bit30 $40000000
#Define Bit31 $80000000


resource rControlTemplate (MainWindow) {
	MainWindow,																/* control ID */
	{0,0,0,0},																/* control rectangle */
	EditTextControl{{														/* control type */
		0x0000,																/* flag */
		fCtlCanBeTarget+fCtlWantsEvents+fctlProcNotPtr+fctlTellAboutSize,	/* more flags */
		0,																	/* ref con */
		Bit21,																/* text flags */
		{0xFFFF,0xFFFF,0xFFFF,0xFFFF},										/* indent rect */
		0xFFFFFFFF,															/* Vert Bar */
		0,																	/* Vert Amount */
		0,																	/* hor bar */
		0,		/* hor Amount */
		0,		/* style ref */
		0,0,0,		/* text Descriptor, TextRef, TextLength */
		0x0001FFFF	/* Max Chars in record */
	}};
}; 

resource rControlTemplate (FindWindow+1) {
	FindWindow+1,															/* control ID */
	{2,5,12,295},																/* control rectangle */
	StatTextControl{{							/* control type */
		0x0000,									/* flag */
		fctlProcNotPtr+2,							/* more flags */
		0,										/* ref con */
		FindWindow+1									/* text flags */
	}};
}; 

resource rControlTemplate (FindWindow+2) {
	FindWindow+2,															/* control ID */
	{13,5,28,290},																/* control rectangle */
	editLineControl{{							/* control type */
		0x0000,									/* flag */
		fctlProcNotPtr,							/* more flags */
		0,										/* ref con */
		40,										/* Max Size */
		0										/* text flags */
	}};
}; 

resource rControlTemplate (FindWindow+3) {
	FindWindow+3,								/* control ID */
	{32,5,0,0},									/* control rectangle */
	CheckControl{{								/* control type */
		0x0000,									/* flag */
		fctlProcNotPtr+2,						/* more flags */
		0,										/* ref con */
		FindWindow+3,							/* TitleRef */
		0,										/* initial Value */
		0,
		{"C","c",$0100,$0100}
	}};
}; 

resource rControlTemplate (FindWindow+4) {
	FindWindow+4,								/* control ID */
	{32,143,0,0},								/* control rectangle */
	CheckControl{{								/* control type */
		0x0000,									/* flag */
		fctlProcNotPtr+2,						/* more flags */
		0,										/* ref con */
		FindWindow+4,
		0,										/* text flags */
		0,
		{"s","S",$0100,$0100}
	}};
}; 

resource rControlTemplate (FindWindow+5) {
	FindWindow+5,									/* control ID */
	{50,220,0,0},									/* control rectangle */
	SimpleButtonControl{{							/* control type */
		0x0001,										/* flag */
		fctlProcNotPtr+2+fCtlWantsEvents,			/* more flags */
		0,											/* ref con */
		FindWindow+5,								/* text flags */
		0,
		{"\$0D","\$0D",0,0}
	}};
}; 

resource rControlTemplate (FindWindow+6) {
	FindWindow+6,								/* control ID */
	{50,130,0,0},								/* control rectangle */
	SimpleButtonControl{{						/* control type */
		0x0000,									/* flag */
		fctlProcNotPtr+2+fCtlWantsEvents,		/* more flags */
		0,										/* ref con */
		FindWindow+6,							/* text flags */
		0,
		{"\$1B","\$1B",0,0}
	}};
}; 


resource rControlTemplate (RepWindow+5) {
	RepWindow+5,								/* control ID */
	{47,5,57,295},								/* control rectangle */
	StatTextControl{{							/* control type */
		0x0000,									/* flag */
		fctlProcNotPtr+2,						/* more flags */
		0,										/* ref con */
		RepWindow+5								/* text flags */
	}};
}; 

resource rControlTemplate (RepWindow+6) {
	RepWindow+6,								/* control ID */
	{57,5,72,290},								/* control rectangle */
	editLineControl{{							/* control type */
		0x0000,									/* flag */
		fctlProcNotPtr,							/* more flags */
		0,										/* ref con */
		40,										/* Max Size */
		0										/* text flags */
	}};
}; 

resource rControlTemplate (RepWindow+7) {
	RepWindow+7,															/* control ID */
	{77,206,0,0},																/* control rectangle */
	SimpleButtonControl{{							/* control type */
		0x0001,										/* flag */
		fctlProcNotPtr+2+fCtlWantsEvents,			/* more flags */
		0,											/* ref con */
		RepWindow+7,								/* text flags */
		0,
		{"\$0D","\$0D",0,0}
	}};
}; 

resource rControlTemplate (RepWindow+8) {
	RepWindow+8,									/* control ID */
	{77,5,0,0},										/* control rectangle */
	SimpleButtonControl{{							/* control type */
		0x0000,										/* flag */
		fctlProcNotPtr+2,							/* more flags */
		0,											/* ref con */
		RepWindow+8
	}};
}; 

resource rControlTemplate (RepWindow+9) {
	RepWindow+9,								/* control ID */
	{77,121,0,0},								/* control rectangle */
	SimpleButtonControl{{							/* control type */
		0x0000,									/* flag */
		fctlProcNotPtr+2+fCtlWantsEvents,		/* more flags */
		0,										/* ref con */
		FindWindow+6,									/* text flags */
		0,
		{"\$1B","\$1B",0,0}
	}};
}; 





/*********************************************************************/
/*
/* 			Menus
/*
/*********************************************************************/

#define AppleMenuID		$901
#define FileMenuID		$902
#define EditMenuID		$903
#define FontMenuID		$904
#define StyleMenuID		$905
#define SizeMenuID		$906

#define DividerID		1001
#Define AboutID			301
#define QuitID			302
#define	NewID			303
#define	OpenID			304
#define	ImportID		330
#define	SaveID			305
#define	SaveAsID		306
#define SaveCopyAsID	335
#define	PageSetupID		307
#define	PrintID			308
#define ChooseFontID	309

#define PlainID			310
#define BoldID			311
#define ItalicID		312
#define UnderlineID		313
#define OutlineID		315
#define ShadowID		314
#define Size8ID			316
#define Size10ID		317
#define Size12ID		318
#define Size16ID		319
#define Size20ID		320
#define Size24ID		321
#define SelectAllID		322

#define FindID			323
#define ReplaceID		324
#define FindSameID		325
#define RepSameID		326
#define ShowClipID		327

// #define SelectSuperID	328
// #define NextSuperID		329



#define UndoID 		250
#define CutID		251
#define CopyID 		252
#define PasteID 	253
#define ClearID 	254
#define CloseID		255



resource rMenuBar (1,preload) {
	{
		AppleMenuID,
		FileMenuID,
		EditMenuID,
		FontMenuID,
		StyleMenuID,
		SizeMenuID
	};
};

resource rMenu (AppleMenuID,preload)	{
	AppleMenuID,
	0xA008,
	AppleMenuID,
	{ 
	AboutID,
	DividerID
	};
};

resource rMenu (FileMenuID,preload)	{
	FileMenuID,
	0xA008,
	FileMenuID,
	{ 
		NewID,
		OpenID,
		ImportID,
		SaveID,
		SaveAsID,
		SaveCopyAsID,
		CloseID,
		DividerID,
		PageSetupID,
		PrintID,
		DividerID,
		QuitID 
	};
};

resource rMenu (EditMenuID,preload)	{
	EditMenuID,
	0xA000+rmAllowCache,
	EditMenuID,
	{ 	
		UndoID,
		DividerID,
		CutID,
		CopyID,
		PasteID,
		ClearID,
		DividerID,
		SelectAllID,
		ShowClipID,
		DividerID,
		FindID,
		FindSameID,
		ReplaceID,
		RepSameID
	};
	};
resource rMenu (FontMenuID,preload)	{
	FontMenuID,
	0xA000+rmDisabled+rmAllowCache,
	FontMenuID,
	{ 	
		ChooseFontID,
		DividerID
	};
	};
	
resource rMenu (StyleMenuID,preload)	{
	StyleMenuID,
	0xA000+rmDisabled+rmAllowCache,
	StyleMenuID,
	{ 
		PlainID,
		BoldID,
		ItalicID,
		UnderLineID,
		OutlineID,
		ShadowID
	};
	};

resource rMenu (SizeMenuID,preload)	{
	SizeMenuID,
	0xA000+rmDisabled+rmAllowCache,
	SizeMenuID,
	{ 
		Size8ID,
		Size10ID,
		Size12ID,
		Size16ID,
		Size20ID,
		Size24ID
	};
	};

resource rMenuItem (DividerID,preload)	{
	DividerID,
	"","",
	0,
	RefIsResource*ItemTitleRefShift+rmDisabled,
	DividerID
};


/* This menu item is the dividing line item.  It is used in several places. */
resource rPString (DividerID,preload) {
	"-"
	};



resource rMenuItem (AboutID,preload)	{
	AboutID,
	"","",
	0,
	RefIsResource*ItemTitleRefShift,
	AboutID
};



resource rMenuItem (UndoID,preload)	{
	UndoID,
	"Z","z",
	0,
	RefIsResource*ItemTitleRefShift,
	UndoID
};

resource rMenuItem (CutID,preload)	{
	CutID,
	"X","x",
	0,
	RefIsResource*ItemTitleRefShift,
	CutID
};

resource rMenuItem (CopyID,preload)	{
	CopyID,
	"C","c",
	0,
	RefIsResource*ItemTitleRefShift,
	CopyID
};

resource rMenuItem (PasteID,preload)	{
	PasteID,
	"V","v",
	0,
	RefIsResource*ItemTitleRefShift,
	PasteID
};

resource rMenuItem (ClearID,preload)	{
	ClearID,
	"","",
	0,
	RefIsResource*ItemTitleRefShift,
	ClearID
};

resource rMenuItem (SelectAllID,preload)	{
	SelectAllID,
	"A","a",
	0,
	RefIsResource*ItemTitleRefShift,
	SelectAllID
};

resource rMenuItem (ShowClipID,preload)	{
	ShowClipID,
	"","",
	0,
	RefIsResource*ItemTitleRefShift,
	ShowClipID
};

resource rMenuItem (FindID,preload)	{
	FindID,
	"F","f",
	0,
	RefIsResource*ItemTitleRefShift,
	FindID
};

resource rMenuItem (ReplaceID,preload)	{
	ReplaceID,
	"R","r",
	0,
	RefIsResource*ItemTitleRefShift,
	ReplaceID
};

resource rMenuItem (FindSameID,preload)	{
	FindSameID,
	"G","g",
	0,
	RefIsResource*ItemTitleRefShift,
	FindSameID
};

resource rMenuItem (RepSameID,preload)	{
	RepSameID,
	"E","e",
	0,
	RefIsResource*ItemTitleRefShift,
	RepSameID
};



resource rMenuItem (NewID,preload)	{
	NewID,
	"N","n",
	0,
	RefIsResource*ItemTitleRefShift,
	NewID
};

resource rMenuItem (OpenID,preload)	{
	OpenID,
	"O","o",
	0,
	RefIsResource*ItemTitleRefShift,
	OpenID
};

resource rMenuItem (ImportID,preload)	{
	ImportID,
	"","",
	0,
	RefIsResource*ItemTitleRefShift,
	ImportID
};

resource rMenuItem (SaveID,preload)	{
	SaveID,
	"S","s",
	0,
	RefIsResource*ItemTitleRefShift,
	SaveID
};

resource rMenuItem (SaveAsID,preload)	{
	SaveAsID,
	"","",
	0,
	RefIsResource*ItemTitleRefShift,
	SaveAsID
};

resource rMenuItem (SaveCopyAsID,preload)	{
	SaveCopyAsID,
	"","",
	0,
	RefIsResource*ItemTitleRefShift,
	SaveCopyAsID
};

resource rMenuItem (CloseID,preload)	{
	CloseID,
	"W","w",
	0,
	RefIsResource*ItemTitleRefShift,
	CloseID
};

resource rMenuItem (PageSetupID,preload)	{
	PageSetupID,
	"","",
	0,
	RefIsResource*ItemTitleRefShift,
	PageSetupID
};

resource rMenuItem (PrintID,preload)	{
	PrintID,
	"P","p",
	0,
	RefIsResource*ItemTitleRefShift,
	PrintID
};

resource rMenuItem (QuitID,preload)	{
	QuitID,
	"Q","q",
	0,
	RefIsResource*ItemTitleRefShift,
	QuitID
};



resource rMenuItem (ChooseFontID,preload)	{
	ChooseFontID,
	"","",
	0,
	RefIsResource*ItemTitleRefShift,
	ChooseFontID
};



resource rMenuItem (PlainID,preload)	{
	PlainID,
	"T","t",
	0,
	RefIsResource*ItemTitleRefShift,
	PlainID
};

resource rMenuItem (BoldID,preload)	{
	BoldID,
	"B","b",
	0,
	RefIsResource*ItemTitleRefShift+rMIBold,
	BoldID
};

resource rMenuItem (ItalicID,preload)	{
	ItalicID,
	"I","i",
	0,
	RefIsResource*ItemTitleRefShift+rMIItalic,
	ItalicID
};

resource rMenuItem (UnderlineID,preload)	{
	UnderlineID,
	"U","u",
	0,
	RefIsResource*ItemTitleRefShift+rMIUnderline,
	UnderlineID
};

resource rMenuItem (ShadowID,preload)	{
	ShadowID,
	"","",
	0,
	RefIsResource*ItemTitleRefShift+rMIShadow,
	ShadowID
};

resource rMenuItem (OutlineID,preload)	{
	OutlineID,
	"","",
	0,
	RefIsResource*ItemTitleRefShift+rMIOutline,
	OutlineID
};

resource rMenuItem (Size8ID,preload)	{
	Size8ID,
	"","",
	0,
	RefIsResource*ItemTitleRefShift,
	Size8ID
};

resource rMenuItem (Size10ID,preload)	{
	Size10ID,
	"","",
	0,
	RefIsResource*ItemTitleRefShift,
	Size10ID
};

resource rMenuItem (Size12ID,preload)	{
	Size12ID,
	"","",
	0,
	RefIsResource*ItemTitleRefShift,
	Size12ID
};

resource rMenuItem (Size16ID,preload)	{
	Size16ID,
	"","",
	0,
	RefIsResource*ItemTitleRefShift,
	Size16ID
};

resource rMenuItem (Size20ID,preload)	{
	Size20ID,
	"","",
	0,
	RefIsResource*ItemTitleRefShift,
	Size20ID
};

resource rMenuItem (Size24ID,preload)	{
	Size24ID,
	"","",
	0,
	RefIsResource*ItemTitleRefShift,
	Size24ID
};



resource rPString (AppleMenuID,preload) {
	"@"
	};
resource rPString (FileMenuID,preload) {
	"  File  "
	};
resource rPString (EditMenuID,preload) {
	"  Edit  "
	};
resource rPString (FontMenuID,preload) {
	"  Font  "
	};
resource rPString (AboutID,preload) {
	"About Teach..."
	};
resource rPString (CloseID,preload) {
	"Close"
	};
resource rPString (UndoID,preload) {
	"Undo"
	};
resource rPString (CutID,preload) {
	"Cut"
	};
resource rPString (CopyID,preload) {
	"Copy"
	};
resource rPString (PasteID,preload) {
	"Paste"
	};
resource rPString (ClearID,preload) {
	"Clear"
	};
resource rPString (SelectAllID,preload) {
	"Select All"
	};
resource rPString (ShowClipID,preload) {
	"Show Clipboard"
	};
resource rPString (FindID,preload) {
	"Find..."
	};
resource rPString (ReplaceID,preload) {
	"Replace..."
	};
resource rPString (FindSameID,preload) {
	"Find Same"
	};
resource rPString (RepSameID,preload) {
	"Replace Same"
	};
resource rPString (QuitID,preload) {
	"Quit"
	};

resource rPString (NewID,preload) {
	"New"
	};
resource rPString (OpenID,preload) {
	"Open..."
	};
resource rPString (ImportID,preload) {
	"Import file..."
	};
resource rPString (SaveID,preload) {
	"Save"
	};
resource rPString (SaveAsID,preload) {
	"Save as..."
	};
resource rPString (SaveCopyAsID,preload) {
	"Save Copy as..."
	};
resource rPString (PageSetupID,preload) {
	"Page Setup..."
	};
resource rPString (PrintID,preload) {
	"Print..."
	};
resource rPString (ChooseFontID,preload) {
	"Choose Font..."
	};
resource rPString (PlainID,preload) {
	"Plain"
	};
resource rPString (BoldID,preload) {
	"Bold"
	};
resource rPString (ItalicID,preload) {
	"Italic"
	};
resource rPString (UnderlineID,preload) {
	"Underline"
	};
resource rPString (ShadowID,preload) {
	"Shadow"
	};
resource rPString (OutlineID,preload) {
	"Outline"
	};
resource rPString (Size8ID,preload) {
	"8"
	};
resource rPString (Size10ID,preload) {
	"10"
	};
resource rPString (Size12ID,preload) {
	"12"
	};
resource rPString (Size16ID,preload) {
	"16"
	};
resource rPString (Size20ID,preload) {
	"20"
	};
resource rPString (Size24ID,preload) {
	"24"
	};


resource rPString (StyleMenuID,preload) {
	"  Style  "
	};

resource rPString (SizeMenuID,preload) {
	"  Size  "
	};


resource rTextForLETextBox2 (FindWindow+1,preload) {
	TBCenterJust "Find what string?"
	};
	
resource rTextForLETextBox2 (RepWindow+5,preload) {
	TBCenterJust "Replace with what string?"
	};
		
resource rPString (FindWindow+3,preload) {
	"Case sensitive"
	};
	
resource rPString (FindWindow+4,preload) {
	"Start of document"
	};
	
resource rPString (FindWindow+5,preload) {
	"Find"
	};
	
resource rPString (FindWindow+6,preload) {
	"Cancel"
	};
	
resource rPString (RepWindow+7,preload) {
	"Replace"
	};
	
resource rPString (RepWindow+8,preload) {
	"Replace All"
	};
	
\ No newline at end of file
diff --git a/IIGS.601.SRC/ToolBoxMisc/Teach/temp b/IIGS.601.SRC/ToolBoxMisc/Teach/temp
new file mode 100644
index 0000000..8e1d7c6
--- /dev/null
+++ b/IIGS.601.SRC/ToolBoxMisc/Teach/temp
@@ -0,0 +1 @@
+



	Teach Contents
	
	
	
	Globals Unit		G-1
	
	Utils Unit          		U-1
	
	Print Unit         		P-1
	
	Window Unit		W-1
	
	Menu Unit		M-1
	
	Event Unit		E-1
	
	Main Program		T-1
\ No newline at end of file
diff --git a/IIGS.601.SRC/ToolBoxMisc/Teach/uEvent.inc.p b/IIGS.601.SRC/ToolBoxMisc/Teach/uEvent.inc.p
new file mode 100644
index 0000000..0fd63d0
--- /dev/null
+++ b/IIGS.601.SRC/ToolBoxMisc/Teach/uEvent.inc.p
@@ -0,0 +1 @@
+{**********************************************************************
{*
{* Teach uEvent (implemenation)
{*
{* Copyright (c)
{* Apple Computer, Inc.  1986-1993
{* All Rights Reserved.
{*
{* This file contains the code which implements the 
{* main event loop used by the Teach program.
{*
{**********************************************************************}
{$R-}

var
	LastID		 : FontID;				{ Private global used to determine if the style menus}
	LastCommon	 : Integer;								{ need changing... }
										
	LastWindow   : GrafPortPtr;			{ This private global is used in CheckFrontW.
										{ to prevent extra work when the windows
										{ have not changed.  It is initialized
										{ at the beginning of MainEvent. }


PROCEDURE Debug;  INLINE $0000;

{*******************************************************************}
{
{ CheckFrontW
{
{ This routine checks the front window to see if any changes need
{ to be made to the menu items.
{
{ We do this so that the edit items are only active when a desk
{ accessory is active.
{
{ This also will idle the cursor when needed
{
{*******************************************************************}
procedure CheckFrontW;

var 
	theWindow    : GrafPortPtr;

	procedure   EnableDAItems;
		begin
			EnableMItem(UndoItem);
			EnableMItem(CloseItem);
			EnableMItem(CutItem);
			EnableMItem(CopyItem);
			EnableMItem(ClearItem);
			EnableMItem(PasteItem);
		end;
	procedure   EnableAppItems;
		begin
			EnableMItem(SelectAllItem);
			EnableMItem(CloseItem);
			EnableMItem(SaveItem);
			EnableMItem(SaveAsItem);
			EnableMItem(SaveCopyAsItem);
			EnableMItem(PageSetupItem);
			EnableMItem(PrintItem);
			EnableMItem(FindItem);
			EnableMItem(ReplaceItem);
			EnableMItem(FindSameItem);
			EnableMItem(RepSameItem);
			SetMenuFlag ($FF7F,SizeMenuID);   { enable the size menu }
			SetMenuFlag ($FF7F,StyleMenuID);  { enable the style menu }
			SetMenuFlag ($FF7F,FontMenuID);   { enable the font menu }
		end;
	procedure   DisableDAItems;
		begin
			DisableMItem(UndoItem);
			DisableMItem(CutItem);
			DisableMItem(CopyItem);
			DisableMItem(ClearItem);
			DisableMItem(PasteItem);
		end;
	procedure	DisableAppItems;
		begin
			SetMenuFlag ($0080,FontMenuID);   { disable the font menu }
			SetMenuFlag ($0080,StyleMenuID);   { disable the style menu }
			SetMenuFlag ($0080,SizeMenuID);   { disable the size menu }
			DisableMItem(SaveItem);
			DisableMItem(SaveAsItem);
			DisableMItem(SaveCopyAsItem);
			DisableMItem(PageSetupItem);
			DisableMItem(PrintItem);
			DisableMItem(SelectAllItem);
			DisableMItem(FindItem);
			DisableMItem(ReplaceItem);
			DisableMItem(FindSameItem);
			DisableMItem(RepSameItem);
		end;

	procedure FixStyleMenus;
	
	var
		ignore, tempItemID : integer;
		ThisStyle : TEStyle;
		TempHandle : handle;
		ThisHandle : ctlRecHndl;
		TempID : FontID;
		CommonStuff:Integer;
		
	  begin
	  	If Not(ValidFront) then exit(FixStyleMenus);
   		{ Create a Temporary handle for GetSelection Style }
		TempHandle := NewHandle (20,MyMemoryID,0,NIL);
		ThisHandle := GetCtlHandleFromID(FrontWindow,MainWindowID);
   		CommonStuff := TEGetSelectionStyle(ThisStyle,TEStyleGroupHndl(TempHandle),TERecordHndl(thisHandle));
		TempID := ThisStyle.StyleFontID;
		If 	(TempID.famnum=LastID.FamNum) and
			(TempID.fontSize=LastID.fontSize) and
			(TempID.fontStyle=LastID.fontStyle) and
			(LastCommon=CommonStuff) then 
			  begin
			    DisposeHandle(TempHandle);
				Exit(FixStyleMenus);
			  end;
			
		LastCommon:=CommonStuff;
{ handle case of font change... }
		If BAND(CommonStuff,$0020)=0 then
		  begin
			CheckMItem(false,FamNum2ItemID(LastID.Famnum));
			LastID.FamNum:=0;
		  end
		else
		 If TempID.famnum<>LastID.FamNum then
		  begin
{ Must change the font menu... }
			If LastID.FamNum<>0 then
				CheckMItem(false,FamNum2ItemID(LastID.Famnum));
			If BAND(CommonStuff,$0020)<>0 then
				begin
				tempItemID := FamNum2ItemID(TempID.famNum);
				if _toolErr = 0 then
					CheckMItem(true,tempItemID);
				end;
			LastID.FamNum:=tempID.FamNum;
		  end;
		  
		If BAND(CommonStuff,$0010)=0 then TempID.fontSize:=0;
	    If TempID.fontSize<>LastID.fontSize then
		  begin
{ must change the font menu... }
			case LastID.fontSize of
				 8:CheckMItem(false,Size8Item);
				10:CheckMItem(false,Size10Item);
				12:CheckMItem(false,Size12Item);
				16:CheckMItem(false,Size16Item);
				20:CheckMItem(false,Size20Item);
				24:CheckMItem(false,Size24Item);
			 end;
			case TempID.fontSize of
				 8:CheckMItem(true,Size8Item);
				10:CheckMItem(true,Size10Item);
				12:CheckMItem(true,Size12Item);
				16:CheckMItem(true,Size16Item);
				20:CheckMItem(true,Size20Item);
				24:CheckMItem(true,Size24Item);
			 end;
			 lastID.fontSize:=tempID.FontSize;
		  end;
			 
		If BAND(CommonStuff,$0001)=0 then
		  begin
			  CheckMItem(false,plainItem);
			  CheckMItem(false,BoldItem);
			  CheckMItem(false,italicItem);
			  CheckMItem(false,underlineItem);
			  CheckMItem(false,OutlineItem);
			  CheckMItem(false,ShadowItem);
		  end
		else
		  begin
{ Must change the style menu ... }
		  	lastID.fontStyle:=TempID.fontStyle;
			If TempID.fontStyle=0 then
				CheckMItem(true,PlainItem)
			else
			  CheckMItem(false,plainItem);
			  
			If (BAND(TempID.fontStyle,BoldMask)<>0)then 
			  CheckMItem(true,BoldItem)
			else
			  CheckMItem(false,BoldItem);
			  
			If (BAND(TempID.fontStyle,italicMask)<>0)then 
			  CheckMItem(true,italicItem)
			else
			  CheckMItem(false,italicItem);
			  
			If (BAND(TempID.fontStyle,underlineMask)<>0)then 
			  CheckMItem(true,underlineItem)
			else
			  CheckMItem(false,underlineItem);
			  
			If (BAND(TempID.fontStyle,outlineMask)<>0)then 
			  CheckMItem(true,OutlineItem)
			else
			  CheckMItem(false,OutlineItem);
			  
			If (BAND(TempID.fontStyle,ShadowMask)<>0)then 
			  CheckMItem(true,ShadowItem)
			else
			  CheckMItem(false,ShadowItem);
		  end;
		DisposeHandle(TempHandle);
	  end;
	  
	  
	procedure testCursorType;
	
	var	CurrentCursor:Boolean;
		thePoint:Point;
		tempRect:Rect;
		
	begin
{ First determine if the IBeam is up or not...}
		CurrentCursor:= (ArrowCursor=GetCursorAdr);
		
{ Next check to see if the window is NIL or a system window }
		If theWindow = nil then
		  begin
		    if NOT(CurrentCursor) then initCursor;
			Exit(testCursortype);
		  end;
		if GetSysWFlag (theWindow) then 
		  begin   {Set up for da windows}
		    if NOT(CurrentCursor) then initCursor;
			Exit(testCursortype);
		  end;
		  
{ If we get here then the front window is a doc window }
		SetPort(theWindow);
		getMouse(thePoint);
		tempRect:=theWindow^.portRect;
		tempRect.h2:=tempRect.h2-24;
		if PtInRect(thePoint,tempRect) then
		  begin
		    if not(GetCursorAdr=IBeamPtr) then SetCursor(IBeamPtr^);
		  end
		else
		  if Not(CurrentCursor) then initCursor;
		  
{ Now the cursor is properly idled... }
	end; { testCursorType }

	Procedure FixEditMenu;
	
	var	selectBegin, selectEnd: Longint;
	
	begin
	If Not(ValidFront) then exit(FixEditMenu);
	
	TEGetSelection(selectBegin,selectEnd,nil);
	if selectEnd = selectBegin then
		begin
		DisableMItem(CutItem);
		DisableMItem(CopyItem);
		DisableMItem(ClearItem);
		end
	else
		begin
		EnableMItem(CutItem);
		EnableMItem(CopyItem);
		EnableMItem(ClearItem);
		end;
	
	if GetScrapSize(textScrap) > 0 then
		EnableMItem(PasteItem)
	else
		DisableMItem(PasteItem);
		
	end;

	procedure HiliteDynamicMenus; { added 8-Dec-91 DAL -- reduce flicker }
	begin
		HiliteMenu(false,$904); { Font menu }
		HiliteMenu(false,$905); { Style menu }
		HiliteMenu(false,$906); { Size menu }
	end;

begin   {of CheckFrontW}
	{ Get the front window into local storage.}
	theWindow := FrontWindow;
	
	{ If the LastWindow is this window, we are all set. }
	if theWindow = lastWindow then
	  begin
	  	  testCursorType; {See if the cursor needs changing}
		  FixStyleMenus; {See if the style menus need changing}
		  FixEditMenu;
	  	  Exit(CheckFrontW);
	  end;
	
	{ If there are no windows, everything should be disabled }
	if theWindow = nil then 
		begin
			DisableDAItems;
			DisableAppItems;
			DisableMItem(CloseItem);
			HiliteDynamicMenus; { 8-Dec-91 DAL }
		end 
	else
		begin
			{ Now look at what kind of window we have...}
			if GetSysWFlag (theWindow) then 
				begin   {Set up for da windows}
					DisableAppItems;
					EnableDAItems;
					HiliteDynamicMenus; { 8-Dec-91 DAL }
				end
	   		else
				begin   {Set up for our windows}
					DisableDAItems;
					EnableAppItems;
					FixEditMenu;
					HiliteDynamicMenus; { 8-Dec-91 DAL }
				end;
		end;
	
	{ Remember this for next time. }
	lastWindow := theWindow;
end;    {of CheckFrontW}





{************************************************************************
{
{ MainEvent
{
{ This is the main part of the program.  The program cycles in this
{ loop until the user choose select.
{
{************************************************************************}
procedure MainEvent;

var 
   	code, lastTEError, Temp: integer;
	ignore: Longint;

begin   {of MainEvent}

	InitCursor;
	ArrowCursor := GetCursorAdr;

	HideCursor;
	IBeamCursor;
	iBeamPtr := GetCursorAdr;
	ShowCursor;

	LastID.FontSize:=123;
	LastID.fontStyle:=127;

		
	Event.wmTaskMask := $001FFFFF;  	{ Allow TaskMaster to do everything. }
	Done             := false;      	{ Done flag will be set by Quit item. }
	LastWindow 		:= GrafPortPtr(-1);	{ Init this for CheckFrontW, forces it to run first time}

	CheckFrontW;

	InitCursor;		{ Make cursor show ready }
	repeat
		WatchMemory;
		ignore := HandleDiskInsert($C000,0);
		if srqQuitFlag<>0 then begin	{ 19-Jan-93 DAL }
			srqQuitFlag := 0;
			DoQuitItem;
		end;
		code := TaskMaster ($FFFF,Event);
		case code of
		   wInGoAway	: DoCloseTop;
		   wInSpecial,
		   wInMenuBar	: DoMenu;
		end;
		if not Done then CheckFrontW;
		{ Make sure there aren't any TextEdit errors that weren't caught. }
		lastTEError := TEGetLastError(fClearError,Nil);
		if lastTEError<>0 then
			Temp := MyErrorWindow(0,NIL,lastTEError);
	until Done;
end; { of MainEvent }
\ No newline at end of file
diff --git a/IIGS.601.SRC/ToolBoxMisc/Teach/uEvent.p b/IIGS.601.SRC/ToolBoxMisc/Teach/uEvent.p
new file mode 100644
index 0000000..3cb10a0
--- /dev/null
+++ b/IIGS.601.SRC/ToolBoxMisc/Teach/uEvent.p
@@ -0,0 +1 @@
+{**********************************************************************
{*
{* Teach uEvent (interface)
{*
{* Copyright (c)
{* Apple Computer, Inc.  1986-1988
{* All Rights Reserved.
{*
{* This file contains the interface to the code which implements the 
{* main event loop used by the Teach program.
{*
{**********************************************************************}

UNIT uEvent;

INTERFACE

USES
       types,
	   gsos,
	   locator,
	   memory,
	   misctool,
	   quickdraw,
	   qdaux,
	   events,
	   controls,
	   windows,
	   dialogs,
	   menus,
	   stdfile,
	   resources,
	   print,
	   textedit,
	   Fonts,
	   Scrap,

       uGlobals,
	   uWindow,
       uMenu,
	   uUtils;



procedure MainEvent;   {Main event handling loop which repeats until Quit}



IMPLEMENTATION

{$i uEvent.inc.p }

END.
\ No newline at end of file
diff --git a/IIGS.601.SRC/ToolBoxMisc/Teach/uGlobals.inc.p b/IIGS.601.SRC/ToolBoxMisc/Teach/uGlobals.inc.p
new file mode 100644
index 0000000..2a8cb42
--- /dev/null
+++ b/IIGS.601.SRC/ToolBoxMisc/Teach/uGlobals.inc.p
@@ -0,0 +1 @@
+{**********************************************************************
{*
{*
{* Teach Globals (implementation)
{*
{* Copyright (c)
{* Apple Computer, Inc.  1986-1993
{* All Rights Reserved.
{*
{* This file contains the code which intializes the global variables 
{* used by the busy box program.
{*
{**********************************************************************}
{$R-}

PROCEDURE Debug;  INLINE $0000;

{----------------------------------------------------------------}
{
{ InitGlobals
{
{ Init the globals, remember that the tools are not yet started.
{
{----------------------------------------------------------------}
procedure InitGlobals;
begin   {of InitGlobals}
	MyMemoryID := MMStartup;
	printHndl := NIL;
	StaggerCount := 0;
	FindStr := '';
	RepStr := '';
	FindRepFlags := 0;
	WindArray[1] := NIL;
	WindArray[2] := NIL;
	WindArray[3] := NIL;
	WindArray[4] := NIL;
	srqQuitFlag := 0;
end;
\ No newline at end of file
diff --git a/IIGS.601.SRC/ToolBoxMisc/Teach/uGlobals.p b/IIGS.601.SRC/ToolBoxMisc/Teach/uGlobals.p
new file mode 100644
index 0000000..47e3e3e
--- /dev/null
+++ b/IIGS.601.SRC/ToolBoxMisc/Teach/uGlobals.p
@@ -0,0 +1 @@
+{**********************************************************************
{*
{*
{* Teach Globals (interface)
{*
{* Copyright (c)
{* Apple Computer, Inc.  1986-1993
{* All Rights Reserved.
{*
{* This file contains the global variables used by the Teach 
{* program.
{*
{**********************************************************************}

UNIT uGlobals;

INTERFACE

USES	
		types,
		locator,
		memory,
		quickdraw,
		intMath,
		events,
		controls,
		windows,
		dialogs,
		gsos,
		resources,
		print,
		textEdit,
		STDFile;

const

		AppleMenuID       	= $901;
			AboutItem     	= 301;
		FileMenuID        	= $902;
			NewItem		  	= 303;
			OpenItem	  	= 304;
			ImportItem		= 330;
			SaveItem      	= 305;
			SaveAsItem    	= 306;
			SaveCopyAsItem	= 335;
			CloseItem     	= 255;   {For DA's}
			PageSetupItem 	= 307;
			PrintItem	  	= 308;
			QuitItem      	= 302;
		EditMenuID        	= $903;
			UndoItem      	= 250;    {For DA's}
			CutItem       	= 251;    {For DA's}
			CopyItem      	= 252;    {For DA's}
			PasteItem     	= 253;    {For DA's}
			ClearItem     	= 254;    {For DA's}
			SelectAllItem 	= 322;
			ShowClipItem	= 327;	  { 25-Aug-92 DAL }
			FindItem		= 323;
			ReplaceItem		= 324;
			FindSameItem	= 325;
			RepSameItem		= 326;
			
		FontMenuID		  	= $904;
			ChooseFontItem 	= 309;
		StyleMenuID		  	= $905;
			PlainItem		= 310;
			BoldItem 		= 311;
			ItalicItem 		= 312;
			UnderlineItem 	= 313;
			ShadowItem 		= 314;
			OutlineItem 	= 315;
		SizeMenuID		 	= $906;
			Size8Item		= 316;
			Size10Item		= 317;
			Size12Item		= 318;
			Size16Item		= 319;
			Size20Item		= 320;
			Size24Item		= 321;
			FirstFontItem 	= 400;

	MainWindowID = $1000;
	MaxWinds = 4;

	TeachFType = $50;		{ word processor}
	TeachAuxType = $5445;	{teach signature}
	TextOnly = 4;		  
	APWSource = $0B0;		{ APW source file }
	ScriptAuxType = $0017;	{ Installer script auxtype }
	TrollType = -1;		  { File already exists, troll for the type to use.. }
Type

{ 	The following data structure describes what is pointed to by the
	handle stored in a windows refcon. }
		theWindowData = Record
							theWindName:str32;   {Name of the window in question}
							thePathName:str255;	 {Full Pathname of the file it came from}
							FileFlags:packed array[0..15] of boolean;
						end;
							
	
var
		{$Z+}   { export names }
		MyMemoryID    : integer;      { Application ID assigned by Memory Mgr}
		srqQuitFlag   : integer;	  { nonzero if we received an srqQuit request }
	   	{$Z-}
		Done          : boolean;      { True when quitting}
		StaggerCount  : integer;		 { used to stagger windows as they open }
		Event         : WmTaskRec;    { All events are returned here}
		   
		printHndl : prRecHndl;		 { Handle to print record }
		WindArray	: Array[1..MaxWinds] of GrafPortPtr;
	   
{ Data used by Find/Replace features... }
		FindStr		:str255;
		RepStr		:str255;
		FindRepFlags:Integer;
		
{ Used for cursor idling }
		iBeamPtr	:CursorPtr;
		ArrowCursor	:CursorPtr;
	   
procedure InitGlobals;

IMPLEMENTATION

{$i uGlobals.inc.p}

END.
\ No newline at end of file
diff --git a/IIGS.601.SRC/ToolBoxMisc/Teach/uImport.inc.p b/IIGS.601.SRC/ToolBoxMisc/Teach/uImport.inc.p
new file mode 100644
index 0000000..64c14cc
--- /dev/null
+++ b/IIGS.601.SRC/ToolBoxMisc/Teach/uImport.inc.p
@@ -0,0 +1 @@
+{**********************************************************************
{*
{* Teach uImport.inc.p (implementation)
{*
{* Copyright (c)
{* Apple Computer, Inc.  1986-1992
{* All Rights Reserved.
{*
{* This file contains the code which implements  
{* windows in the Teach program.
{*
{**********************************************************************}
{$R-}

type

		MWrtStyleEntry = packed Record
					theOffset:Longint;
					theFontID:FontID;
				End;

		MWriteStyleRecord = packed record
				LeftMargin:Integer;
				RightMargin:integer;
				Justification:Byte;
				NumTabs:Byte;
				LineSpacing:Integer;
				Indent:integer;
				tabArray:array[0..9] of integer;
				StyleArraySize:Integer;
				unused:integer;
				StyleArray:array[1..1] of MWrtStyleEntry;
			End;
		MWriteStyleRecPtr=^MWriteStyleRecord;
		MWriteStyleRechand=^MWriteStyleRecPtr;

		MacRezStr = packed array[0..3] of char;

		AWorksGSParaRec = record
				textBlock: Integer;
				offset: Integer;
				attributes: Integer;
				rulerNumber: Integer;
				pixelHeight: Integer;
				lineCount: Integer;
				end;
		AWorksGSParaArray = ARRAY[1..1] of AWorksGSParaRec;
		AWorksGSArrayPtr = ^AWorksGSParaArray;
		AWorksGSArrayHndl = ^AWorksGSArrayPtr;

		Paragraph = packed record
				fontFamNum: Integer;
				fontStyle:  Byte;
				fontSize:   Byte;
				textColor:  Byte;
				reserved:   Integer;
				theText:    PACKED ARRAY [1..1] OF char;
				end;
		ParagraphPtr = ^Paragraph;

var
	{$Z+}
	ThisError: Integer;
	{$Z-}


PROCEDURE Debug;  INLINE $0000;

Function ReadResource(	theRezType:MacRezStr;
						theRezID:Integer;
						theFileName:ptr):handle; External;

function ReadMACAWORD(	theDecrypt:ptr;
						theStyles:MWriteStyleRechand;
						theFileName:ptr):handle; External;

{ These routines are used by custom routines that are called by the toolbox. }
Function SaveDB: Integer; External;
Procedure RestoreDB(theSavedDB: Integer); External;

{*********************************************************************
	AddStyle
	This function adds a style change to the style record parameter.
*********************************************************************}

Function AddStyle(	theFontID: FontID;
					theStyles:MWriteStyleRechand;
					totalText: Longint): Boolean;
	var
	howManyStyles, temp: Integer;
	theHndlSize: Longint;

	begin
	AddStyle := FALSE;
	howManyStyles := theStyles^^.StyleArraySize + 1;
	theHndlSize := GetHandleSize(Handle(theStyles));
	if (34+howManyStyles*8) > theHndlSize then
		begin
		SetHandleSize(theHndlSize+256,Handle(theStyles));
		if _toolErr <> 0 then
			begin
			temp := MyErrorWindow(0,NIL,_ToolErr);
			exit (AddStyle);
			end;
		end;
	HLock(Handle(theStyles));
	with theStyles^^ do
		begin
		StyleArraySize := howManyStyles;
		StyleArray[howManyStyles].theOffset := totalText - 1;
		StyleArray[howManyStyles].theFontID := theFontID;
		end;
	HUnlock(Handle(theStyles));
	AddStyle := TRUE;
	end; { AddStyle }


{****************************************************************************}
{
{ Function ReadAWorksGS
{
{ This routine reads the pertinent data from an AppleWorks GS file.
{ It then returns the text as the returned handle and the styling in theStyles
{ parameter.
{
{****************************************************************************}

function ReadAWorksGS(	theStyles:MWriteStyleRechand;
					theFileName:GSString255Ptr):handle;

	type
	BlockList = array [0..0] of Handle;
	BlockListPtr = ^BlockList;
	BlockListHndl = ^BlockListPtr;

	var
	OpenBlock : OpenRecGS;
	ReadBlock : ioRecGS;
	MarkBlock : SetPositionRecGS;
	CloseBlock: RefNumRecGS;
	infoArrayLength, whichBlock,
	count, count2, maxRuler, maxTextBlock, temp: Integer;
	theInfoArray: AWorksGSArrayHndl;
	theBlockListHndl: BlockListHndl;
	theBlockListPtr: BlockListPtr;
	textBlockSize, textInParagraph, totalText: Longint;
	resultText: Handle;


	{ ScanParagraph adds the text to the text handle }
	Procedure ScanParagraph(srcPtr:ParagraphPtr);
		const
		EndOfParagraph = 13;
	
		var
		inCounter: Integer;
		currentFontID: FontID;
		theChar: char;
		outTextPtr: Ptr;
		tempLong: Longint;
	
		begin	{ ScanParagraph }
	
		with currentFontID do
			begin
			famNum := srcPtr^.fontFamNum;
			fontStyle := srcPtr^.fontStyle;
			fontSize := srcPtr^.fontSize;
			end;
		if AddStyle(currentFontID,theStyles,totalText) = false then { error recovery? };

		HLock(resultText);
		outTextPtr := resultText^;
		inCounter := 1;
		repeat
			theChar := srcPtr^.theText[inCounter];
			inCounter := inCounter + 1;
			case ord(theChar) of
				1:	begin
					currentFontID.famNum := ord(srcPtr^.theText[inCounter]) +
										256*ord(srcPtr^.theText[inCounter+1]);
					inCounter := inCounter + 2;
					if AddStyle(currentFontID,theStyles,totalText) 
								= false then { error recovery? };
					end;
				2:	begin
					currentFontID.fontStyle := BAND($001F,ord(srcPtr^.theText[inCounter]));
					inCounter := inCounter + 1;
					if AddStyle(currentFontID,theStyles,totalText) = false then { error recovery? };
					end;
				3:	begin
					currentFontID.fontSize := Byte(srcPtr^.theText[inCounter]);
					inCounter := inCounter + 1;
					if AddStyle(currentFontID,theStyles,totalText) = false then { error recovery? };
					end;
				4:	inCounter := inCounter + 1;	{ do not currently support colored text }
				5..7:	;	{ ignore these special characters }
				otherwise
					begin
					tempLong := Longint(outTextPtr) + totalText -1;
					Ptr(tempLong)^[1] := Byte(theChar);
					totalText := totalText + 1;
					end;
				end;
		until theChar = chr(EndOfParagraph);
		HUnlock(resultText);
		end;
	
	Function HowBigParagraph(whichParagraph: Integer): Integer;
		var
		count, theBlock, theOffset, nextOffset: Integer;
		arrayPtr: AWorksGSArrayPtr;
		paragraphFound: Boolean;
		tempPtr: Ptr;
		grossEstimate: Longint;
		
		begin
		HLock(Handle(theInfoArray));
		arrayPtr := theInfoArray^;
		theBlock := arrayPtr^[whichParagraph].textBlock;
		theOffset := arrayPtr^[whichParagraph].offset;
		grossEstimate := GetHandleSize(theBlockListPtr^[theBlock]) - theOffset;
		if grossEstimate > 1024 then
			begin
			tempPtr := theBlockListPtr^[theBlock]^;
			nextOffset := tempPtr^[1] + tempPtr^[2] * 256;
			paragraphFound := FALSE;
			for count := 1 to infoArrayLength do
				with theInfoArray^^[count] do
				if (textBlock = theBlock) and (offset > theOffset) then
					begin
					if offset < nextOffset then
						nextOffset := offset;
					end;
				
			HUnlock(Handle(theInfoArray));
			HowBigParagraph := nextOffset;
			end
		else
			HowBigParagraph := grossEstimate;
		end;

	begin
	ReadAWorksGS := Nil;
	totalText := 1;
	theStyles^^.StyleArraySize := 0;

	{ open the file }
	with OpenBlock do begin
		pCount := 15;
		pathname := GSString255Ptr(theFileName);
		requestAccess := 0;
		resourceNumber := 0;
		optionList := NIL;
	end;
	
	OpenGS (OpenBlock);
	
	if _toolErr <> 0 then
		begin
		temp := MyErrorWindow(0,NIL,_ToolErr);
		exit(ReadAWorksGS);
		end;
	
	with CloseBlock do begin
		pCount := 1;
		refNum := OpenBlock.refNum;
		end;
	
	with ReadBlock do begin
		pCount := 4;
		refNum := OpenBlock.refNum;
	end;
	
	{ Read first 4 bytes, to make sure it is Applworks GS format. }
	with ReadBlock do begin
		DataBuffer := @count2;
		requestCount := 2;
	end;
	ReadGS (ReadBlock);		{ ignore the first word }
	ReadGS (ReadBlock);
	
	if _toolErr <> 0 then
		begin
		temp := MyErrorWindow(0,NIL,_ToolErr);
		CloseGS(CloseBlock);
		exit(ReadAWorksGS);
		end;
	if count2 <> 282 then
		begin
		temp := MyAlertWindow($34,NIL,ptr(19));
		CloseGS(CloseBlock);
		exit(ReadAWorksGS);
		end;
	
	{read in document structure - info array.}
	with MarkBlock do begin
		pCount := 3;
		refNum := OpenBlock.refNum;
		base := 0;
		displacement := $029C;
	end;
	SetMarkGS(markBlock);
	
	with ReadBlock do begin
		DataBuffer := @infoArrayLength;
		requestCount := 2;
	end;
	ReadGS (ReadBlock);
	
	if _toolErr <> 0 then
		begin
		temp := MyErrorWindow(0,NIL,_ToolErr);
		CloseGS(CloseBlock);
		exit(ReadAWorksGS);
		end;
	
	theInfoArray := AWorksGSArrayHndl(NewHandle(infoArrayLength*12,
										MyMemoryID,$c000,Nil));
	
	if _toolErr <> 0 then
		begin
		temp := MyErrorWindow(0,NIL,_ToolErr);
		CloseGS(CloseBlock);
		exit(ReadAWorksGS);
		end;
	
	with ReadBlock do begin
		DataBuffer := Ptr(theInfoArray^);
		requestCount := infoArrayLength*12;
	end;
	ReadGS (ReadBlock);
	
	if _toolErr <> 0 then
		begin
		temp := MyErrorWindow(0,NIL,_ToolErr);
		CloseGS(CloseBlock);
		DisposeHandle(Handle(theInfoArray));
		exit(ReadAWorksGS);
		end;
	
	{find the text blocks and read them in }
	
	{ How many ruler's must we skip over? And how many text blocks are there? }
	maxRuler := 0;
	maxTextBlock := 0;
	for count := 1 to infoArrayLength do
		begin
		if theInfoArray^^[count].rulerNumber > maxRuler then
			maxRuler := theInfoArray^^[count].rulerNumber;
		if theInfoArray^^[count].textBlock > maxTextBlock then
			maxTextBlock := theInfoArray^^[count].textBlock;
		end;
	maxRuler := maxRuler + 1;
	maxTextBlock := maxTextBlock + 1;
	
	theBlockListHndl := BlockListHndl(NewHandle(maxTextBlock*sizeof(Handle),
									MyMemoryID,attrFixed,Nil));
	if _toolErr <> 0 then
		begin
		temp := MyErrorWindow(0,NIL,_ToolErr);
		CloseGS(CloseBlock);
		DisposeHandle(Handle(theInfoArray));
		exit(ReadAWorksGS);
		end;
	
	theBlockListPtr := theBlockListHndl^;
	
	{ Skip over the rulers.  They can be used, perhaps, in the future. }
	MarkBlock.base := 2;
	MarkBlock.displacement := maxRuler * 52;
	SetMarkGS(MarkBlock);
	
	if _toolErr <> 0 then
		begin
		temp := MyErrorWindow(0,NIL,_ToolErr);
		CloseGS(CloseBlock);
		DisposeHandle(Handle(theInfoArray));
		DisposeHandle(Handle(theBlockListHndl));
		exit(ReadAWorksGS);
		end;
	
	{glom up the text and styling using the info array as a guide}
	
	for count := 0 to maxTextBlock - 1 do
		begin
		{ read the block size }
		
		with ReadBlock do begin
			DataBuffer := @textBlockSize;
			requestCount := 4;
		end;
		ReadGS (ReadBlock);
	
		if _toolErr <> 0 then
			begin
			temp := MyErrorWindow(0,NIL,_ToolErr);
			CloseGS(CloseBlock);
			DisposeHandle(Handle(theInfoArray));
			for count2 := 0 to count - 1 do
				DisposeHandle(theBlockListPtr^[count2]);
			DisposeHandle(Handle(theBlockListHndl));
			exit(ReadAWorksGS);
			end;
		
		{ allocate memory }
		theBlockListPtr^[count] := NewHandle(textBlockSize,MyMemoryID,0,Nil);
	
		if _toolErr <> 0 then
			begin
			temp := MyErrorWindow(0,NIL,_ToolErr);
			CloseGS(CloseBlock);
			DisposeHandle(Handle(theInfoArray));
			for count2 := 0 to count - 1 do
				DisposeHandle(theBlockListPtr^[count2]);
			DisposeHandle(Handle(theBlockListHndl));
			exit(ReadAWorksGS);
			end;
		
		{ read the next text block }
		
		HLock(theBlockListPtr^[count]);
		with ReadBlock do begin
			DataBuffer := theBlockListPtr^[count]^;
			requestCount := textBlockSize;
		end;
		ReadGS (ReadBlock);
	
		if _toolErr <> 0 then
			begin
			temp := MyErrorWindow(0,NIL,_ToolErr);
			CloseGS(CloseBlock);
			DisposeHandle(Handle(theInfoArray));
			for count2 := 0 to count do
				DisposeHandle(theBlockListPtr^[count2]);
			DisposeHandle(Handle(theBlockListHndl));
			exit(ReadAWorksGS);
			end;
		HUnlock(theBlockListPtr^[count]);
		
		end;
	
	{ At this point, I can close the file.  I have the data I need. }
	CloseGS(CloseBlock);
	
	{ Now, let's do the translation. }
	
	resultText := NewHandle(0,MyMemoryID,0,Nil);
	for count := 1 to infoArrayLength do
		begin
		whichBlock := theInfoArray^^[count].textBlock;
		textInParagraph := HowBigParagraph(count);

		{ resize the output handle to accomodate this paragraph }
		SetHandleSize(textInParagraph+totalText,resultText);
		if _toolErr <> 0 then
			begin
			temp := MyErrorWindow(0,NIL,_ToolErr);
			DisposeHandle(Handle(theInfoArray));
			for count := 0 to maxTextBlock - 1 do
				DisposeHandle(theBlockListPtr^[count2]);
			DisposeHandle(Handle(theBlockListHndl));
			exit(ReadAWorksGS);
			end;
		HLock(theBlockListPtr^[whichBlock]);
		ScanParagraph(ParagraphPtr(Longint(theBlockListPtr^[whichBlock]^)+
						theInfoArray^^[count].offset));
		HUnlock(theBlockListPtr^[whichBlock]);
		end;

	totalText := totalText - 1;			  { subtract the extra <return> }
	SetHandleSize(totalText,resultText);  { chop off any excess memory }
	DisposeHandle(Handle(theInfoArray));  { eliminate data read in }
	for count := 0 to maxTextBlock - 1 do
		DisposeHandle(theBlockListPtr^[count]);
	DisposeHandle(Handle(theBlockListHndl));
	ReadAWorksGS := resultText;			  { return handle to the text }
	end;


{****************************************************************************}
{
{ Function ReadAppleWorks
{
{ This routine reads the pertinent data from an AppleWorks  file.  It then 
{ returns the text as the returned handle and the styling in theStyles
{ parameter.
{
{****************************************************************************}

function ReadAppleWorks(theStyles:MWriteStyleRechand;
					theFileName:GSString255Ptr):handle;
	var
	OpenBlock : OpenRecGS;
	ReadBlock : ioRecGS;
	MarkBlock : SetPositionRecGS;
	CloseBlock: RefNumRecGS;
	lineHndl, theText: Handle;
	lineSize, ignore: Integer;
	outTextLength: Longint;
	currentFontID, newFontID: FontID;
	
	Function CheckHeader: Boolean; { returns TRUE if the header is valid }
		var
		theByte: Byte;
		
		begin
		theByte := 0;	{ just to make sure that some thing gets read. }
		MarkBlock.displacement := 4;
		SetMarkGS(markBlock);
		ReadBlock.dataBuffer := @theByte;
		ReadBlock.requestCount := 1;
		theByte := 0;
		ReadGS(ReadBlock);
		if theByte <> 79 then
			CheckHeader := FALSE
		else
			CheckHeader := TRUE;
		MarkBlock.displacement := 295;
		SetMarkGS(markBlock);
		end;
	
	Function GetNextLine(buffHndl: Handle): Integer;
	{	This wonderful function skips over non-text records.  When it finds
		a text record, it loads it into the passed handle and returns the
		number of bytes in it.  If there is an error it will return -1. }
		
		type
		TwoBytes = packed record
			lowByte, highByte: Byte;
			end;
		
		var
		recordID: TwoBytes;
		found: boolean;
		
		begin
		GetNextLine := -1;	{ default to failure }
		found := FALSE;
		
		while not found do
			begin
			
			ReadBlock.dataBuffer := @recordID;
			ReadBlock.requestCount := 2;
			ReadGS(ReadBlock);
			
			if _toolErr <> 0 then
				begin
				ignore := MyErrorWindow(0,NIL,_ToolErr);
				exit(GetNextLine);
				end;
			
			if recordID.highByte = 0 then	{ text line }
				begin
				ReadBlock.dataBuffer := buffHndl^;
				ReadBlock.requestCount := recordID.lowByte;
				ReadGS(ReadBlock);
				
				if _toolErr <> 0 then
					begin
					ignore := MyErrorWindow(0,NIL,_ToolErr);
					exit(GetNextLine);
					end;
				
				GetNextLine := recordID.lowByte;
				found := TRUE;
				end
			else if recordID.highByte = $d0 then	{ carriage return }
				begin
				buffHndl^^[2] := $01;
				buffHndl^^[3] := $0d;
				GetNextLine := 3;
				found := TRUE;
				end
			else if recordID.highByte = $ff then	{ end of file }
				begin
				GetNextLine := 0;
				found := TRUE;
				end
			else if recordID.highByte > $d0 then	{ formatting info }
				begin
				{ do nothing }
				end
			else	{ undefined commands }
				begin
				{ do nothing }
				end;
			end;
		end;
	
	Procedure ScanTheLine(buffHndl: Handle; length: Integer);
		var
		index, lineTextSize: Integer;
		headerByte: Byte;
		theChar: Byte;
		nextAddress: Longint;
		
		begin
		if buffHndl^^[1] <> $0ff then { ignore this line if it is a ruler }
			begin
			headerByte := buffHndl^^[2];
			lineTextSize := BAND(headerByte,$07f);
			if BAND(headerByte,$080) <> 0 then
				lineTextSize := lineTextSize + 1;
			SetHandleSize(outTextLength+lineTextSize,theText);
			if _toolErr <> 0 then
				begin
				ThisError := _toolErr;
				exit(ScanTheLine);
				end;
			HLock(theText);
			for index := 3 to length do
				begin
				theChar := buffHndl^^[index];
				if (theChar > Byte($0C)) then
					begin
					if (theChar = Byte($16)) or 
							(theChar = Byte($17)) then
						theChar := Byte($20);
					nextAddress := Longint(theText^) + outTextLength;
					Ptr(nextAddress)^[1] := theChar;
					outTextLength := outTextLength + 1;
					end
				else
					{ handle styling information }
					begin
					newFontID := currentFontID;
					with newFontID do
						case theChar of
							1: fontStyle := BOR(fontStyle,boldMask);
							2: fontStyle := BAND(fontStyle,BNOT(boldMask));
							7: fontStyle := BOR(fontStyle,underlineMask);
							8: fontStyle := BAND(fontStyle,BNOT(underlineMask));
							end;
					if newFontID.fidLong <> currentFontID.fidLong then
						begin
						if not AddStyle(newFontID,theStyles,outTextLength+1) then
							{ error recovery } ;
						currentFontID := newFontID;
						end;
					end;
				end;
			if BAND(headerByte,$080) <> 0 then
				begin
				nextAddress := Longint(theText^) + outTextLength;
				Ptr(nextAddress)^[1] := $0D;
				outTextLength := outTextLength + 1;
				end;
			HUnlock(theText);
			if outTextLength > GetHandleSize(theText) then
				ThisError := -1;
			end;
		end;
	
	begin { ReadAppleWorks }
	
	theStyles^^.StyleArraySize := 0;
	with currentFontID do
		begin
		famNum := shaston;
		fontSize := 8;
		fontStyle := 0;
		end;
	if AddStyle(currentFontID,theStyles,1) = false then
		{ error recovery? };
	
	theText := NewHandle(0,MyMemoryID,0,Nil);
	ReadAppleWorks := theText;
	
	{ open the file }
	with OpenBlock do 
		begin
		pCount := 15;
		pathname := GSString255Ptr(theFileName);
		requestAccess := 0;
		resourceNumber := 0;
		optionList := NIL;
		end;
	
	OpenGS (OpenBlock);
	
	if _toolErr <> 0 then
		begin
		ignore := MyErrorWindow(0,NIL,_ToolErr);
		exit(ReadAppleWorks);
		end;
	
	with CloseBlock do
		begin
		pCount := 1;
		refNum := OpenBlock.refNum;
		end;
	
	with ReadBlock do
		begin
		pCount := 4;
		refNum := OpenBlock.refNum;
		end;
	
	with MarkBlock do
		begin
		pCount := 3;
		refNum := OpenBlock.refNum;
		base := 2;		{ old mark plus displacement }
		end;
	
	if CheckHeader then
		begin
		outTextLength := 0;
		lineHndl := NewHandle(256,MyMemoryID,attrFixed,Nil);
		
		ThisError := 0;
		lineSize := GetNextLine(lineHndl);
		while (lineSize > 0) and (ThisError = 0) do
			begin
			ScanTheLine(lineHndl,lineSize);
			if ThisError = 0 then 
				lineSize := GetNextLine(lineHndl);
			end;
		DisposeHandle(lineHndl);
		SetHandleSize(outTextLength,theText);
		if lineSize < 0 then
			ThisError := 1;
		end
	else
		ThisError := 1;
	
	CloseGS(CloseBlock);
	end;


{****************************************************************************}
{
{ MyFilterProc
{
{ This routine is a filter procedure for the SFGetFile2 call in DoImportFile.
{ It assumes that any file passed is either valid or is type 0.  If it is
{ type 0, it checks the optionlist of the file to be sure it is MacWrite.
{
{****************************************************************************}


Function MyFilterProc(var inputDirEntry: DirEntryRecGS): Integer;

	type
	OptionListRec = PACKED RECORD
		fileSysID: Integer;
		typeCreatorStr: PACKED ARRAY[1..8] OF char;
		finderFlags: Integer;
		location: Point;
		windowID: Integer;
		iconID: Integer;
		reserved: PACKED ARRAY[1..8] OF char;
		commentID: Integer;
		homeDirID: Longint;
		parentDirID: Longint;
		end;

	OptionListBuf = RECORD
		case Boolean  of
			false:
				( unused: ResultBuf255 );
			true:
				(
				bufSize: Integer;
				length: Integer;
				theData: OptionListRec;
				)
		end;
	OptionListBufPtr = ^OptionListBuf;

	begin
	MyFilterProc := displaySelect;
	with inputDirEntry do
		begin
		if fileType <> 0 then
			exit (MyFilterProc);
		if (fileSysID = hfsFSID) or (fileSysID = appleShareFSID) or
				(fileSysID = proDOSFSID) then
			begin
			if OptionListBuf(optionList^).theData.typeCreatorStr <> 'WORDMACA' then
				MyFilterProc := noDisplay;
			end
		else
			MyFilterProc := noDisplay;
		end;
	end;


{****************************************************************************}
{
{ MyDialogHook
{
{ This procedure is a parameter to SFPGetFile2.  It responds to the clicks
{ in the radio buttons.
{
{****************************************************************************}

{ this variable is used in MyDialogHook and DoImportFile }
var	MyTypeList : SFTypeList2; 
{$J+}
	GetDialog640: DialogTemplate;
{$J-}


Procedure MyDialogHook(theDialogPort: GrafPortPtr; var itemHit: Integer);

	const
	AllTypes = 101;
	Appleworks = 102;
	AppleworksGS = 103;
	MacWrite = 104;
	
	var
	savedDB: Integer;
	
	begin
	savedDB := saveDB;
	
	if itemHit > 100 then
		begin
		SetDItemValue(1,theDialogPort,itemHit);
		case itemHit of
			AllTypes: 
				begin
				MyTypeList.NumEntries:=3;
				MyTypeList.filetypeentries[1].flags:=0;
				MyTypeList.filetypeEntries[1].filetype:=$0050;
				MyTypeList.filetypeEntries[1].AuxType:=$008010;
				MyTypeList.filetypeentries[2].flags:=0;
				MyTypeList.filetypeEntries[2].filetype:=0;
				MyTypeList.filetypeEntries[2].AuxType:=0;
				MyTypeList.filetypeentries[3].flags:=sfMatchFileType;
				MyTypeList.filetypeEntries[3].filetype:=$1A;
				MyTypeList.filetypeEntries[3].AuxType:=0;
				end;
			AppleworksGS:
				begin
				MyTypeList.NumEntries:=1;
				MyTypeList.filetypeentries[1].flags:=0;
				MyTypeList.filetypeEntries[1].filetype:=$0050;
				MyTypeList.filetypeEntries[1].AuxType:=$008010;
				end;
			MacWrite:
				begin
				MyTypeList.NumEntries:=1;
				MyTypeList.filetypeentries[1].flags:=0;
				MyTypeList.filetypeEntries[1].filetype:=0;
				MyTypeList.filetypeEntries[1].AuxType:=0;
				end;
			Appleworks:
				begin
				MyTypeList.NumEntries:=1;
				MyTypeList.filetypeentries[1].flags:=sfMatchFileType;
				MyTypeList.filetypeEntries[1].filetype:=$1A;
				MyTypeList.filetypeEntries[1].AuxType:=0;
				end;
			end;
		SFRescan(Nil,@MyTypeList);
		end;
	RestoreDB(savedDB);
	end;


{****************************************************************************}
{
{ DoImportFile
{
{ This routine asks the user what file to open and opens it.
{
{****************************************************************************}
procedure DoImportFile;
	var
		MyFileInfoRec:FileInfoRecGS;
		WindNum	: Integer;
		i, ignore:Integer;
		theTEHandle:TERecordHndl;
		StyleHandle:MWriteStyleRechand;
		tempPort : GrafPortPtr;
		DecriptKey:handle;
		theData:handle;
		tempStyle:TEStyle;
		MyReply : SFReplyRec2;
		MyPrompt : string;
	
	{
		ConvertStyleHndl converts the handle that it receives from the 
		MWriteStyleRechand format to the TEFormat format that is an input
		to TESetText.  
	}
	PROCEDURE ConvertStyleHndl(styleHandle: Handle);
	
		const
		{ 
		Here are some field offsets for the TEFormat record.  They will
		be used by some very nasty machine dependent code that must be
		used because the TEFormat record is defined in a way that 
		Pascal cannot access it.
		}
		TEFversion = 0;
		TEFrulerListLength = TEFversion + 2;
		TEFtheRulerList = TEFrulerListLength + 4;
		TEFRulerSize = 20;
		
		type
		TEStyleList = ARRAY [0..0] of TEStyle;
		TEStyleListPtr = ^TEStyleList;
		TEStyleListHndl = ^TEStyleListPtr;
		
		TEStyleItemList = ARRAY [0..0] of StyleItem;
		TEStyleItemListPtr = ^TEStyleItemList;
		TEStyleItemListHndl = ^TEStyleItemListPtr;
		
		LongPointer = ^Longint;
		IntPointer = ^Integer;
		
		var
		theStyleList: TEStyleListHndl;
		theStyleItemList: TEStyleItemListHndl;
		styleListLength, itemListLength, ignore: LongInt;
		i, styleIndex: Integer;
		found: Boolean;
		formatPtr: LongPointer;
		
		begin
		theStyleList := TEStyleListHndl(NewHandle(0,MyMemoryID,0,Nil));
		theStyleItemList := TEStyleItemListHndl(NewHandle(0,MyMemoryID,0,Nil));
		styleListLength := 0;
		itemListLength := 0;
		HLock(styleHandle);
		
		With MWriteStyleRechand(styleHandle)^^ do
			for i:=1 to StyleArraySize do
				if StyleArray[i+1].theOffset <> StyleArray[i].theOffset then
					begin
					itemListLength := itemListLength + 1;
					SetHandleSize(itemListLength*sizeof(StyleItem),Handle(theStyleItemList));
					if i = StyleArraySize then
						theStyleItemList^^[itemListLength-1].dataLength := $7fffffff - StyleArray[i].theOffset
					else
						theStyleItemList^^[itemListLength-1].dataLength := StyleArray[i+1].theOffset - StyleArray[i].theOffset;
					styleIndex := 0;
					found := FALSE;
					while (styleIndex < styleListLength) and (not found) do
						begin
						if Longint(StyleArray[i].theFontID) = Longint(theStyleList^^[styleIndex].styleFontID) then
							found := TRUE;
						if not found then
							styleIndex := styleIndex + 1;
						end;
					if not found then
						begin
						styleListLength := styleListLength + 1;
						SetHandleSize(styleListLength*sizeof(TEStyle),Handle(theStyleList));
						styleIndex := styleListLength - 1;
						with theStyleList^^[styleIndex] do
							begin
							styleFontID := StyleArray[i].theFontID;
							foreColor := 0;
							backColor := -1;
							userData := 0;
							end;
						end;
					theStyleItemList^^[itemListLength-1].dataOffset := styleIndex*sizeof(TEStyle);
					end;
		
		HUnlock(styleHandle);
		
	{
		Here is some fun code.  It gets a ruler from the current TextEdit record and
		modifies the style list and style item list info in it.  It uses the ruler
		from the record.
	}
		ignore := TEGetText(0,teTextRef(0),0,refIsHandle,TEStyleRef(styleHandle),theTEHandle);
		SetHandleSize(	GetHandleSize(styleHandle) +
						(itemListLength-1) * sizeof(styleItem) +
						(styleListLength-1) * sizeof(TEStyle),
						styleHandle);
						
		HLock(styleHandle);
		formatPtr := LongPointer(styleHandle^);
		formatPtr := LongPointer(Longint(formatPtr) + TEFtheRulerList + TEFormatPtr(formatPtr)^.rulerListLength);
		formatPtr^ := styleListLength * sizeof(TEStyle);
		
		{ fill in theStyleList }
		formatPtr := LongPointer(Longint(formatPtr)+sizeof(Longint));
		HandToPtr(	Handle(theStyleList),
					Ptr(formatPtr),
					styleListLength * sizeof(TEStyle));
		DisposeHandle(Handle(theStyleList));
		
		{ fill in numberOfStyles }
		formatPtr := LongPointer(Longint(formatPtr)+styleListLength * sizeof(TEStyle));
		formatPtr^ := itemListLength;
		
		{ fill in theStyles }
		formatPtr := LongPointer(Longint(formatPtr)+sizeof(Longint));
		HandToPtr(	Handle(theStyleItemList),
					Ptr(formatPtr),
					itemListLength * sizeof(styleItem));
		DisposeHandle(Handle(theStyleItemList));
		
		HUnlock(styleHandle);
		
		end;
	
	begin
	WindNum:=NextWindow;
	If WindNum=0 then exit(DoImportFile);
	
	MyPrompt := 'Select file to Import.';
	
	SFAllCaps (true);
	
	MyTypeList.NumEntries:=3;
	MyTypeList.filetypeentries[1].flags:=0;
	MyTypeList.filetypeEntries[1].filetype:=$0050;
	MyTypeList.filetypeEntries[1].AuxType:=$008010;
	MyTypeList.filetypeentries[2].flags:=0;
	MyTypeList.filetypeEntries[2].filetype:=0;
	MyTypeList.filetypeEntries[2].AuxType:=0;
	MyTypeList.filetypeentries[3].flags:=sfMatchFileType;
	MyTypeList.filetypeEntries[3].filetype:=$1A;
	MyTypeList.filetypeEntries[3].AuxType:=0;
	
	
	MyReply.NameRefDesc := refIsNewHandle;
	MyReply.PathRefDesc := refIsNewHandle;
	SFPGetFile2 (120,35,
				Nil,			{item draw routine}
				RefIsPointer,
				ref(@MyPrompt),
				@MyFilterProc,	{filter proc}
				@MyTypeList,	{type list}
				GetDialog640,	{dialog template}
				@MyDialogHook,	{dialog hook}
				MyReply );
	

	if MyReply.good  then
		begin
		WaitCursor;
		StyleHandle:=MWriteStyleRechand(NewHandle(34,MyMemoryID,0,NIL));

		{ Convert the C1Output string into a C1Input string for the resource mangager }
		C1OutputToC1Input(MyReply.PathRef.RefIsHandle);
		hLock(handle(MyReply.PathRef.RefIsHandle));

		MyFileInfoRec.pCount:=5;
		MyFileInfoRec.pathname := GSString255Ptr(MyReply.PathRef.RefIsHandle^);
		GetFileInfoGS(MyFileInfoRec);

		if (MyFileInfoRec.FileType = 0) and (MyFileInfoRec.AuxType = 0) then
			begin
			DecriptKey:=ReadResource('STR ',700,MyReply.PathRef.RefIsHandle^);
			if DecriptKey <> Nil then
				begin
				hlock(decriptKey);
				theData:=ReadMACAWORD(DecriptKey^,StyleHandle,MyReply.PathRef.RefIsHandle^);
				DisposeHandle(DecriptKey);
				end
			else
				begin
				if ThisError = 0 then
					ignore := MyAlertWindow($34,NIL,ptr(19))
				else
					ignore := MyErrorWindow(0,NIL,ThisError);
				DisposeHandle(Handle(StyleHandle));
				exit(DoImportFile);
				end;
			end
		else if (MyFileInfoRec.FileType = $50) and (MyFileInfoRec.AuxType = $08010) then
			theData := ReadAWorksGS(StyleHandle,GSString255Ptr(MyReply.PathRef.RefIsHandle^))
		else if MyFileInfoRec.FileType = $1A then
			begin
			theData := ReadAppleWorks(StyleHandle,GSString255Ptr(MyReply.PathRef.RefIsHandle^))
			end
		else
			begin
			ignore := MyAlertWindow($34,NIL,ptr(19));
			DisposeHandle(Handle(StyleHandle));
			exit(DoImportFile);
			end;
			
		if ThisError <> 0 then
			begin
			ignore := MyErrorWindow(0,NIL,ThisError);
			DisposeHandle(theData);
			DisposeHandle(Handle(StyleHandle));
			exit(DoImportFile);
			end;
		
		if theData = Nil then
			begin
			DisposeHandle(theData);
			DisposeHandle(Handle(StyleHandle));
			exit(DoImportFile);
			end;

		{ reduce the size of the text to fit into the record }
{ Removed 128K limit for 1.1, 17-Mar-92 DAL }
{		if GetHandleSize(theData) > (128*1024) then
			begin
			ignore := MyAlertWindow($34,NIL,ptr(17));
			exit(DoImportFile);
			end;
}

		C1OutputToPString(MyReply.NameRef.RefIsHandle);
		
		HLock(MyReply.NameRef.RefIsHandle);
						
		tempPort := NewWindow2	(StringPtr(MyReply.NameRef.RefIsHandle^),			{ Title reference}
							{ longint(MyReply.PathRef.RefIsHandle),	}
							 0,											{ Ref con }
							 ptr($C0000000+longint(@DrawThisWindow)),	{ Draw routine }
							 NIL,										{ DefProc pointer }
							 RefIsResource,								{ Param Table Descriptor }
							 ref(MainWindowID),							{ Param Table Reference }
							 rWindParam1);								{ Param Table Type }				
		If _toolErr<>0 then
			begin
			If _toolErr=volNotFound then exit(DoImportFile);
			WindNum:= MyErrorWindow(0,NIL,_ToolErr);
			exit(DoImportFile);
			end;

		WindArray[WindNum]:=tempPort;
		DisposeHandle(MyReply.NameRef.RefIsHandle);
		theTEHandle:=TERecordHndl(GetCtlHandleFromID(tempPort,MainWindowID));
		
		ConvertStyleHndl(Handle(StyleHandle));
		
		TESetText ( teDataIsTextBlock+refIsHandle*8,	{ Text Descriptor }
			teTextRef(theData),	 						{ Text Ref }
			0,											{ Text Length }
			refIsHandle,								{ Style Descriptor }
			TEStyleRef(StyleHandle),					{ Style Ref }
			theTEHandle	   								{ Control Handle }
			);
		{ Set the dirty bit for the TE record }
		theTEHandle^^.ctrlFlag := bOR(theTEHandle^^.ctrlFlag,fRecordDirty);
		
		PlaceAndShowWindow(tempPort,WindNum,true);
		InitCursor;
		DisposeHandle(theData);
		DisposeHandle(handle(StyleHandle));
		end;

	end;



\ No newline at end of file
diff --git a/IIGS.601.SRC/ToolBoxMisc/Teach/uImport.p b/IIGS.601.SRC/ToolBoxMisc/Teach/uImport.p
new file mode 100644
index 0000000..e8f0d0b
--- /dev/null
+++ b/IIGS.601.SRC/ToolBoxMisc/Teach/uImport.p
@@ -0,0 +1 @@
+{**********************************************************************
{*
{* Teach uImport (interface)
{*
{* Copyright (c)
{* Apple Computer, Inc.  1986-1988
{* All Rights Reserved.
{*
{* This file contains the interface to the code which implements  
{* windows in the Teach program.
{*
{**********************************************************************}

UNIT uImport;

INTERFACE

USES

	types,
	paslibintf,
	gsos,
	locator,
	misctool,
	quickdraw,
	QDAux,
	fonts,
	MEMORY,
	intMath,
	events,
	controls,
	windows,
	dialogs,
	menus,
	DESK,
	STDFILE,
	resources,
	TextEdit,
	Print,
	
	uGlobals,
	uUtils,
	uWindow;


procedure DoImportFile;

IMPLEMENTATION

{$I uImport.inc.p }




END.
\ No newline at end of file
diff --git a/IIGS.601.SRC/ToolBoxMisc/Teach/uMenu.inc.p b/IIGS.601.SRC/ToolBoxMisc/Teach/uMenu.inc.p
new file mode 100644
index 0000000..e816400
--- /dev/null
+++ b/IIGS.601.SRC/ToolBoxMisc/Teach/uMenu.inc.p
@@ -0,0 +1 @@
+{**********************************************************************
{*
{* Teach uMenu (implementation)
{*
{* Copyright (c)
{* Apple Computer, Inc.  1986-1989
{* All Rights Reserved.
{*
{* This file contains the code which implements 
{* menus in the Teach program.
{*
{**********************************************************************}
{$R-}


PROCEDURE Debug;  INLINE $0000;

FUNCTION MyDoModalWindow ( 	var eventPtr: WmTaskRec;
							updateProc, eventHook, beepProc: VoidProcPtr;
							flags: integer ) : Longint ;
	INLINE $A2,$640E,$22,$E10000,$8F,'_toolErr';

{ This appears to be useless {$I AboutBox.P}

Function FindNext(	theText:ptr; FindWhat:str255; 
					theCase:Boolean; length:Longint;
					var CurrentOffset:Longint):Boolean; External;


procedure DoQuitItem;

   {Private routine to set Done flag if the "Quit" item was selected}
   { 12/7/89	Mensch
   				Modified this routine so that it saves them from the top down to
				the bottom. }
				
	var 	i:Integer;
			tempWind:GrafPortPtr;
			
   begin   {of DoQuitItem}
     InitCursor;	{ 1-Jul-92 DAL }
     While FrontWindow<>NIL do
	   begin
	     tempWind:=FrontWindow;
		 If FindWindNum(tempWind) =0 then
		   begin
		     If GetSysWFlag(tempWind) then CloseNDAbyWinPtr(tempWind)
			 else CloseWindow(tempWind);
		   end
		 else
		   If NOT(DoCloseOne(tempWind)) then exit(DoQuitItem);
	   end;
       Done := true;
   end;    {of DoQuitItem}



procedure DoAboutItem;
	var
	ignore : integer;
		
	begin   {of DoAboutItem}
	ignore := MyAlertWindow(4,NIL,Ref(1));
	end;    {of DoAboutItem}



procedure DoSelectAll;
	var		
		ThisHandle : ctlRecHndl;
		
   begin   {of DoSelectAll}
   	If Not(ValidFront) then exit(DoSelectAll);
		{ Get the handle to the TE control for the top window }
		ThisHandle := GetCtlHandleFromID(FrontWindow,MainWindowID);
		If _ToolErr<>0 then 
		  begin
		    {HandleError(_ToolErr);}
		    exit(DoSelectAll);	{ Any Error exits the routine }
		  end;
		TESetSelection(0,$FFFFFFFF,TERecordHndl(ThisHandle));		
   end;    {of DoSelectAll}



procedure DoShowClipboard;		{ new for 6.0.1, 25-Aug-92 DAL }
	function myShowClipboard(flags: integer; theRect:rectPtr): longint;
		inline $A2,$1516,$22,$E10000;
begin
	if myShowClipboard($8000,nil) <> 0 then;
end;

Function DoFindIt(theText:str255):Boolean;

{ 	Given an input string this routine will set the selection of the current text edit record
	to the next occurence of the given string. }
	
	var
		TheHandle : handle;
		thePtr,currPtr,MungePtr1,MungePtr2:Ptr;
		MyStrPtr:String255Ptr;
		Temp,findStrLen : integer;
		CurrentOffset:Longint;
		totalSize : LongInt;
		theRecord:TERecordHndl;
		SelStart,SelEnd:Longint;
		Found:Boolean;
		
	begin
	
{ First allocate a handle to stuff all the text into... }
		theRecord:=TERecordHndl(GetCtlHandleFromID(FrontWindow,MainWindowID));
		TheHandle := NewHandle(1,MyMemoryID,0,NIL);
		totalSize := TEGetText (  
							tedataIsTextBlock+refIsHandle*8,			  			{ Text Descriptor }
							teTextRef(TheHandle),	 									  	{ Text Ref }
							0,											  			{ Text Length }
							0,											  			{ Style Descriptor }
							teStyleRef(0),													{ Style Ref }
							theRecord	   		{ Control Handle }
							);
		If _ToolErr=$0201 then 
		  begin
			Temp := MyAlertWindow($34,NIL,ptr(15));
			DoFindIt:=false;
			Exit(DoFindIt);
		  end;
			
		If _ToolErr <>0 then 
		  begin
			DoFindIt:=false;
			Exit(DoFindIt);
		  end;
			
{ Now that we have the handle containing the text we want, lets lock it down and deref it to 
  speed this process up... }
  
  		hLock(theHandle);
		thePtr:=theHandle^;
		
{ 	Set the current offset into the text edit record to the end of the current selection or if the 
	start of file flag is set then just start from the beginning of the file...}
		SelStart:=0;
		SelEnd:=0;
		If (FindRepFlags mod 2)=0 then
			TEGetSelection(SelStart,SelEnd,theRecord)
		else FindRepFlags:=FindRepFlags-1; {be sure to reset the flag...}
		
		CurrentOffset:=SelEnd;
		FindStrLen:=Length(theText);
		
{ At this point currentOffset should equal the offset into the text to start searching
  and thePtr should point to the start of the text. theText is the string to find, its a
  pascal string...}

{ and now, we actually start looking for the data we want to find. right now we use a simple 
  loop, but in the future I expect to use the GString toolset.}

		Found:=false;
		Found:=FindNext(thePtr,theText,(FindRepFlags=2),totalSize,CurrentOffset);
		  
{ Presumably we have either found the string or are ready to throw up our hands.
	If we found the string, then set the selection and return }
  
  		If Found then
		  begin
		    SelStart:=CurrentOffset;
			SelEnd:=SelStart+Length(theText);
			TESetSelection(SelStart,SelEnd,theRecord);
			TEScroll(1,SelStart,0,NIL);		{Put the found selection in the middle of the window}
		  end;
		  
{ Now get rid of the allocated handle... }

		DisposeHandle(theHandle);
		DoFindIt:=Found;

	end;
		
{ Data used by Find/Replace features... 
		FindStr		:str255;
		RepStr		:str255;
		FindRepFlags:Integer; }
	   

Procedure FancyUpdate(theWindow:GrafPortPtr);
{ This procedure fixes specific problems with the updating of text edit records and the selection
	of old text edit records. This procedure allows taskmaster to handle any pending activate
	events, then it redraws the controls in the front most window.}
	
	var	oldTaskMask:Longint;
		theResult:Integer;
		counter:integer;
	
	begin
		counter:=2;
		repeat
			theResult:=TaskMaster(activeMask,Event);
			counter:=counter-1;
		until theResult+counter=0;
		beginUpdate(FrontWindow);
		drawcontrols(FrontWindow);
		EndUpdate(FrontWindow);
	end;
	
Procedure DoFindDLog;

	Var		theDLog:GrafPortPtr;
			OkFlag:Boolean;
			theEditLine:LERecHndl;
			theCaseItem,theStartItem, theFindButton:CtlRecHndl;
			i:Integer;
    		theState:Byte;
			theCtlID: LongInt;
			dummy: integer;
			
			
	procedure HitOne(theControlID:LongInt);
	
		var {theControlID:Integer;}
			tempStrHand:Handle;
			tempStr:Str255;
			tempSize,j:Integer;
		
		begin
			{theControlID:=Event.wmTaskData4;}
			case theControlID of
				$2006:Begin
						OKFlag:=true;
						CloseWindow(theDLog);
					  End;
				$2005:begin
						okFlag:=true;
						tempStrHand:=Handle(leGetTextHand(theEditLine));
						tempSize:=LEGetTextLen(theEditLine);
						tempStr[0]:=chr(tempSize);
						for j:=1 to tempSize do
	  						tempStr[j]:=Chr(tempStrHand^^[j]);
						FindRepFlags:=0;
						If GetCtlValue(theStartItem)<>0 then FindRepFlags:=FindRepFlags+1;
						If GetCtlValue(theCaseItem)=0 then FindRepFlags:=FindRepFlags+2;
						
						CloseWindow(theDLog);
						FindStr:=tempStr; {Save the find string for later...}
						If Length(tempStr)=0 then Exit(HitOne);
{
	Now get the text edit activate message for the window  to prevent "Funny updating" }
						WaitCursor;
						FancyUpdate(FrontWindow);
						If Not(DoFindIt(tempStr)) then sysBeep;
						InitCursor;
					  End;
			End;
		end;
		
		
	begin
   	If Not(ValidFront) then exit(DoFindDLog);
		InitCursor;
		dummy := WindowGlobal(1);
		theDLog:=NewWindow2(NIL,0,
							NIL,NIL,
							$0002, Ref($2000),
							$800E);
		dummy := WindowGlobal($fffe);

		theCaseItem:=GetCtlHandleFromID(theDLog,$2003);
		theStartItem:=GetCtlHandleFromID(theDLog,$2004);
		theFindButton:=GetCtlHandleFromID(theDLog,$2005);
		
		theEditLine:=LERecHndl(GetCtlTitle(GetCtlHandleFromID(theDLog,$2002)));
		If length(FindStr)>0 then
		  begin
		    LESetText(ptr(ord4(@FindStr)+1),length(FindStr),theEditLine);
			LESetSelect(0,255,theEditLine);
		  end;
		Event.wmTaskMask := $001F3007;  			
		OkFlag := false;      			{ Done flag will be set by Quit item. }
		repeat
			i:=LEGetTextLen(theEditLine);
			theState:=theFindButton^^.ctlHilite;
			If (theState=noHilite) and (i=0) then
		  		HiliteControl(inactiveHilite,theFindButton);
			If (theState=inactiveHilite) and (i<>0) then
		 		HiliteControl(noHilite,theFindButton);

			theCtlID := MyDoModalWindow(Event,Nil,VoidProcPtr($80000000),Nil,$4008);
			HitOne(theCtlID);
		until OkFlag;
		Event.wmTaskMask := $001FFFFF;
	end;
		
Procedure DoFindNext;

	begin
	  If Not(ValidFront) then Exit(DoFindNext);
		WaitCursor;
		If length(FindStr)>0 then
			If Not(DoFindIt(FindStr)) then sysBeep;
		InitCursor;
	end;
	
Procedure DoRepNext;

	var 	theRecord:TERecordHndl;
	
	begin
	  If Not(ValidFront) then Exit(DoRepNext);
		WaitCursor;
		If length(FindStr)>0 then
			If Not(DoFindIt(FindStr)) then sysBeep
			else
			  begin
				theRecord:=TERecordHndl(GetCtlHandleFromID(FrontWindow,MainWindowID));
				TEReplace(0,TETextRef(@RepStr),0,0,TEStyleRef(0),theRecord);
			  end;
		InitCursor;
	end;
	
	
Procedure DoReplaceDLog;

	Var		theDLog:GrafPortPtr;
			OkFlag:Boolean;
			theEditLine,theRepLine:LERecHndl;
			theCaseItem,theStartItem, theRepButton, theRepAllButton:CtlRecHndl;
			i:Integer;
			theState:Byte;
			theCtlID: Longint;
			dummy: integer;
			
	procedure HitOne(theControlID:LongInt);
	
		var {theControlID:Integer;}
			tempStrHand:Handle;
			tempStr:Str255;
			tempSize,j:Integer;
			theRecord:TERecordHndl;

		begin
			{theControlID:=Event.wmTaskData4;}
			case theControlID of
				$3009:Begin
						OKFlag:=true;
						CloseWindow(theDLog);
					  End;
				$3007,$3008:begin
						okFlag:=true;
						tempStrHand:=Handle(leGetTextHand(theEditLine));
						tempSize:=LEGetTextLen(theEditLine);
						tempStr[0]:=chr(tempSize);
						for j:=1 to tempSize do
	  						tempStr[j]:=Chr(tempStrHand^^[j]);
						FindStr:=tempStr; {Save the find string for later...}

						tempStrHand:=Handle(leGetTextHand(theRepLine));
						tempSize:=LEGetTextLen(theRepLine);
						tempStr[0]:=chr(tempSize);
						for j:=1 to tempSize do
	  						tempStr[j]:=Chr(tempStrHand^^[j]);
						RepStr:=tempStr; {Save the find string for later...}

						FindRepFlags:=0;
						If GetCtlValue(theStartItem)<>0 then FindRepFlags:=FindRepFlags+1;
						If GetCtlValue(theCaseItem)=0 then FindRepFlags:=FindRepFlags+2;
						
						CloseWindow(theDLog);
						If Length(FindStr)=0 then exit(HitOne);
{
	Now get the text edit activate message for the window  to prevent "Funny updating" }
						WaitCursor;
						FancyUpdate(FrontWindow);
		
						theRecord:=TERecordHndl(GetCtlHandleFromID(FrontWindow,MainWindowID));

						If Not(DoFindIt(FindStr)) then sysBeep
						else TEReplace(0,TETextRef(@RepStr),0,0,TEStyleRef(0),theRecord);
						If theControlID=$3008 then {Replace all} 
						  While DoFindIt(FindStr) do
						    TEReplace(0,TETextRef(@RepStr),0,0,TEStyleRef(0),theRecord);
						InitCursor;
					  End;
			End;
		end;
		
		
	begin
	  If Not(ValidFront) then Exit(DoReplaceDLog);

		dummy := WindowGlobal(1);
		theDLog:=NewWindow2(NIL,0,
							NIL,NIL,
							$0002, Ref($3000),
							$800E);
		dummy := WindowGlobal($fffe);
		InitCursor;
		theCaseItem:=GetCtlHandleFromID(theDLog,$2003);
		theStartItem:=GetCtlHandleFromID(theDLog,$2004);
		theRepButton:=GetCtlHandleFromID(theDLog,$3007);
		theRepAllButton:=GetCtlHandleFromID(theDLog,$3008);
		theRepLine:=LERecHndl(GetCtlTitle(GetCtlHandleFromID(theDLog,$3006)));
		If length(RepStr)>0 then
		  begin
		    LESetText(ptr(ord4(@RepStr)+1),length(RepStr),theRepLine);
			LESetSelect(0,255,theRepLine);
		  end;
		theEditLine:=LERecHndl(GetCtlTitle(GetCtlHandleFromID(theDLog,$2002)));
		If length(FindStr)>0 then
		  begin
		    LESetText(ptr(ord4(@FindStr)+1),length(FindStr),theEditLine);
			LESetSelect(0,255,theEditLine);
		  end;
		Event.wmTaskMask := $001F3007;  			
		OkFlag := false;      			{ Done flag will be set by Quit item. }
		repeat
			i:=LEGetTextLen(theEditLine);
			theState:=theRepButton^^.ctlHilite;
			If (theState=noHilite) and (i=0) then
		  		HiliteControl(inactiveHilite,theRepButton);
			If (theState=inactiveHilite) and (i<>0) then
		 		HiliteControl(noHilite,theRepButton);

			theState:=theRepAllButton^^.ctlHilite;
			If (theState=noHilite) and (i=0) then
		  		HiliteControl(inactiveHilite,theRepAllButton);
			If (theState=inactiveHilite) and (i<>0) then
		 		HiliteControl(noHilite,theRepAllButton);

			theCtlID := MyDoModalWindow(Event,Nil,VoidProcPtr($80000000),Nil,$4008);
			HitOne(theCtlID);
		until OkFlag;
		Event.wmTaskMask := $001FFFFF;
	end;
	
		
procedure DoChooseFont;
	var
		ignore : integer;
		ThisStyle : TEStyle;
		TempHandle : handle;
		
		ThisHandle : ctlRecHndl;
		
		TheFontGlobals : FontGlobalsRecord;
		
		TempID : FontID;
		
   begin   {of ChooseFont}
	  If Not(ValidFront) then Exit(DoChooseFont);
   		{ Create a Temporary handle for GetSelection Style }
		TempHandle := NewHandle (20,MyMemoryID,0,NIL);
		
		{ Get the handle to the TE control for the top window }
		ThisHandle := GetCtlHandleFromID(FrontWindow,MainWindowID);
		
   		{ Get the current font of the selection }
   		ignore := TEGetSelectionStyle(ThisStyle,TEStyleGroupHndl(TempHandle),TERecordHndl(thisHandle));
		
		{ Use it as the default for ChooseFont }
   		ThisStyle.styleFontID := ChooseFont(ThisStyle.styleFontID,0);

		{ Only change the selection if a fontID is returned... }
		If Longint(ThisStyle.styleFontID)<>0 then
		  begin
		{ Set font to user's choice }
		    TEStyleChange(teReplaceFont+teReplaceSize+teReplaceAttributes,ThisStyle,TERecordHndl(thisHandle));		
		
		    ignore := GetFontLore(TheFontGlobals,sizeof(FontGlobalsRecord));
		
		    TempID.famNum := TheFontGlobals.fgFontID;
		    TempID.fontStyle := TheFontGlobals.fgStyle;
		    TempID.fontSize := TheFontGlobals.fgSize;
		
		    SetPurgeStat(TempID,$0010);
		  end;
		DisposeHandle (TempHandle);


   end;    {of ChooseFont}

procedure DoSetFont   (TheFam : integer);
	var
		ThisStyle : TEStyle;
		
		ThisHandle : ctlRecHndl;
		
   begin   {of DoSetFont}
	  If Not(ValidFront) then Exit(DoSetFont);
		{ Get the handle to the TE control for the top window }
		ThisHandle := GetCtlHandleFromID(FrontWindow,MainWindowID);
		
		ThisStyle.styleFontID.FamNum := TheFam;
		
		{ Set font to user's choice }
		TEStyleChange(teReplaceFont,ThisStyle,TERecordHndl(thisHandle));
   end;    {of DoSetFont}

procedure DoSetSize   (TheSize : integer);
	var
		ThisStyle : TEStyle;
		
		ThisHandle : ctlRecHndl;
		
   begin   {of DoSetSize}
	  If Not(ValidFront) then Exit(DoSetSize);
		{ Get the handle to the TE control for the top window }
		ThisHandle := GetCtlHandleFromID(FrontWindow,MainWindowID);
				
		ThisStyle.styleFontID.fontSize := TheSize;
		
		{ Set font to user's choice }
		TEStyleChange(teReplaceSize,ThisStyle,TERecordHndl(thisHandle));
   end;    {of DoSetSize}


procedure DoSetStyle   (TheStyle : integer);
	var
		ThisStyle : TEStyle;
		
		ThisHandle : ctlRecHndl;
		
   begin   {of DoSetStyle}
	  If Not(ValidFront) then Exit(DoSetStyle);
		{ Get the handle to the TE control for the top window }
		ThisHandle := GetCtlHandleFromID(FrontWindow,MainWindowID);
				
		ThisStyle.styleFontID.fontStyle := TheStyle;
		
		{ Set font to user's choice }
		if TheStyle = 0 
			then TEStyleChange(teReplaceAttributes,ThisStyle,TERecordHndl(thisHandle))
			else TEStyleChange(teSwitchAttributes,ThisStyle,TERecordHndl(thisHandle));
   end;    {of DoSetStyle}


procedure DoMenu;

   {Procedure to handle all menu selections.  Examines the Event.TaskData
    menu item ID word from TaskMaster (from Event Manager) and calls the
    appropriate routine.  While the routine is running the menu title is
    still highlighted.  After the routine returns, we unhilight the
    menu title.}

   var menuNum : integer;
       itemNum : integer;

   begin   {of DoMenu}

       menuNum := HiWord (Event.wmTaskData);
       itemNum := LoWord (Event.wmTaskData);
   
       case itemNum of
           AboutItem    	:  begin
								DoAboutItem;
							   end;
           CloseItem    	:  DoCloseTop;
           QuitItem     	:  DoQuitItem;
           UndoItem     	:  { Handled by taskmaster };
           CutItem      	:  { Handled by taskmaster };
           CopyItem     	:  { Handled by taskmaster };
           PasteItem    	:  { Handled by taskmaster };
           ClearItem    	:  { Handled by taskmaster };
		   SelectAllItem	:  DoSelectAll;
		   ShowClipItem		:  DoShowClipboard;
		   FindItem			:  DoFindDLog;
		   FindSameItem		:  DoFindNext;
		   ReplaceItem		:  DoReplaceDLog;
		   RepSameItem		:  DoRepNext;
		   NewItem			:  DoNewWindow;
		   OpenItem			:  DoOpenWindow;
		   ImportItem		:  DoImportFile;
		   SaveItem			:  DoSave;
		   SaveAsItem		:  DoSaveAs;
		   SaveCopyAsItem	:  DoSaveCopyAs(TeachFType);
		   PageSetupItem 	:  DoPageSetupItem;
		   PrintItem		:  DoPrintItem;
		   PlainItem 		:  DoSetStyle(0);
		   BoldItem 		:  DoSetStyle(boldMask);
		   ItalicItem 		:  DoSetStyle(italicMask);
		   UnderlineItem 	:  DoSetStyle(underlineMask);
		   ShadowItem 		:  DoSetStyle(shadowMask);
		   OutlineItem 		:  DoSetStyle(outlineMask);
		   Size8Item		:  DoSetSize(8);
		   Size10Item		:  DoSetSize(10);
		   Size12Item		:  DoSetSize(12);
		   Size16Item		:  DoSetSize(16);
		   Size20Item		:  DoSetSize(20);
		   Size24Item		:  DoSetSize(24);
		   ChooseFontItem 	:  DoChooseFont;
       otherwise
           if ItemNum >= FirstFontItem then DoSetFont(ItemID2FamNum(ItemNum));
       end;

       HiliteMenu (false,menuNum);     {Unhighlight the menu title}

   end;    {of DoMenu}



procedure SetUpMenus;

   {Procedure to install our menu titles and their items in the system menu
    bar and to redraw it so we can see them.}

   var height : integer;

   begin   {of SetUpMenus}
		SetSysBar(NewMenubar2(RefIsResource,ref(1),NIL));
		SetMenuBar(NIL);
		
		FixAppleMenu (AppleMenuID);               {Add DAs to apple menu    }
		
		
		FixFontMenu(FontMenuID,FirstFontItem,0);
		
		height := FixMenuBar;                     {Set sizes of menus       }

		DrawMenuBar;  { 8-Dec-91 DAL }

   end;    {of SetUpMenus}

\ No newline at end of file
diff --git a/IIGS.601.SRC/ToolBoxMisc/Teach/uMenu.p b/IIGS.601.SRC/ToolBoxMisc/Teach/uMenu.p
new file mode 100644
index 0000000..b2b6421
--- /dev/null
+++ b/IIGS.601.SRC/ToolBoxMisc/Teach/uMenu.p
@@ -0,0 +1 @@
+{**********************************************************************
{*
{* Teach uMenu (interface)
{*
{* Copyright (c)
{* Apple Computer, Inc.  1986-1993
{* All Rights Reserved.
{*
{* This file contains the interface to the code which implements 
{* menus in the Teach program.
{*
{**********************************************************************}

UNIT uMenu;

INTERFACE

USES
       types,
	   gsos,
	   locator,
	   misctool,
	   quickdraw,
	   fonts,
	   MEMORY,
	   intMath,
	   events,
	   controls,
	   windows,
	   dialogs,
	   menus,
	   DESK,
	   STDFILE,
	   resources,
	   TextEdit,
	   LineEdit,
	   QDAux,
	   print,
	   
       uGlobals,
	   uUtils,
	   uPrint,
       uWindow,
	   uImport;


procedure DoMenu;      {Execute a menu item}
procedure SetUpMenus;  {Install menus and redraw menu bar}

procedure DoQuitItem;

IMPLEMENTATION

{$i uMenu.inc.p }

END.
\ No newline at end of file
diff --git a/IIGS.601.SRC/ToolBoxMisc/Teach/uPrint.inc.p b/IIGS.601.SRC/ToolBoxMisc/Teach/uPrint.inc.p
new file mode 100644
index 0000000..9dba577
--- /dev/null
+++ b/IIGS.601.SRC/ToolBoxMisc/Teach/uPrint.inc.p
@@ -0,0 +1 @@
+{**********************************************************************
{*
{* Teach uPrint (implemenation)
{*
{* Copyright (c)
{* Apple Computer, Inc.  1986-1989
{* All Rights Reserved.
{*
{* This file contains the code which implements the 
{* printing features used by the Teach program.
{*
{**********************************************************************}
{$R-}


PROCEDURE Debug;  INLINE $0000;


{--------------------------------------------------------------}
{
{ DoPageSetupItem
{
{ Does the page setup dialog.
{
{--------------------------------------------------------------}
procedure DoPageSetupItem;


   var 
   		dummy: boolean;
		TempPort : GrafPortPtr;

   begin   {of DoSetupItem}
   	   TempPort := GetPort;
	   InitCursor;
   	   if printHndl = NIL then StartupPrinting;
       dummy := PrStlDialog (printHndl);
	   
	   SetPort(TempPort);
   end;    {of DoSetupItem}




{--------------------------------------------------------------}
{
{ DoPrintItem
{
{ Prints the top window to current printer.
{
{--------------------------------------------------------------}
procedure DoPrintItem;

   {Print the contents of the front window to the selected printer.}

   var  prPort    : GrafPortPtr;
        theWindow : GrafPortPtr;
		theControl : ctlRecHndl;
		DocDone : boolean;
		ThisLine : LongInt;
		TermError : integer;
		OurRect : rect;
		TempPort : GrafPortPtr;
		OrigWinTitle:StringHandle;
		
	begin   {of DoPrintItem}
   		InitCursor;
   		TempPort := GetPort;
   
		if printHndl = NIL then StartupPrinting;
   		PrSetError(0);
		theWindow := FrontWindow;
	   
	{ set the document name }
		OrigWinTitle := StringHandle(bAND4($FFFFFF,longint(GetWTitle(theWindow))));
		HLock(handle(OrigWinTitle));
		PrSetDocName(OrigWinTitle^);
	
		theControl := ctlRecHndl(GetCtlHandleFromID(theWindow,MainWindowID));
		if theWindow <> nil then
			if PrJobDialog (printHndl) then begin
				If PrError=$0080 then exit(DoPrintItem);
				WaitCursor;
				
				{ Give us a destination rect a little smaller than the page rect }
				OurRect := printHndl^^.prInfo.rPage;
				OurRect.Top := OurRect.Top+16;
				OurRect.Bottom := OurRect.Bottom - 16;
				OurRect.Left := OurRect.Left + 16;
				OurRect.Right := OurRect.Right - 16;
				
				prPort := PrOpenDoc (printHndl,nil);
				termError:=_ToolErr;
				If PrError=$0080 then
			      begin
					PrCloseDoc(PrPort);
					SetPort(TempPort);
					Exit(DoPrintItem);
				  end;
				If termError<>0 then
				  begin
					InitCursor;
					If AlertWindow($34,NIL,Ref(5))=0 then;
	                PrCloseDoc(prPort);
					SetPort(TempPort);
					Exit(DoPrintItem);
				  end;
			   
				ThisLine := 0;
				repeat
					PrOpenPage          (prPort,nil);
					termError:=_ToolErr;
					If PrError=$0080 then
					  begin
					    prClosePage(prPort);
						prCloseDoc(prPort);
						SetPort(TempPort);
					    Exit(DoPrintItem);
				   	  end;

					If TermError<>0 then
					  begin
						InitCursor;
						If AlertWindow($34,NIL,Ref(5))=0 then;
						prClosePage(prPort);
						prCloseDoc(prPort);
						SetPort(TempPort);
						Exit(DoPrintItem);
					  end;
					ThisLine := TEPaintText(	prPort,
												ThisLine,
												OurRect,
												0,
												TERecordHndl(TheControl));
					DocDone := (_ToolErr <> 0) or (ThisLine < 0);
					if DocDone then TermError := _ToolErr;
					
					PrClosePage         (prPort);
					If PrError=$0080 then
					  begin
					    prCloseDoc(prPort);
						SetPort(TempPort);
						Exit(DoPrintItem);
					  end;
			   until DocDone;
               PrCloseDoc          (prPort);
               PrPicFile           (printHndl,nil,nil);
               InitCursor;
           end;
		   
		SetPort(TempPort);
   end;    {of DoPrintItem}


{--------------------------------------------------------------}
{
{ StartupPrinting
{
{ Gets a print record and sets it to the default values
{ for the current printer.
{
{--------------------------------------------------------------}
procedure	StartupPrinting;

begin
	printHndl := PrRecHndl (NewHandle (140,
						   myMemoryID,
						   attrNoCross + attrLocked,
						   Ptr (0)));
	PrDefault (printHndl);
end;

\ No newline at end of file
diff --git a/IIGS.601.SRC/ToolBoxMisc/Teach/uPrint.p b/IIGS.601.SRC/ToolBoxMisc/Teach/uPrint.p
new file mode 100644
index 0000000..50f2bcc
--- /dev/null
+++ b/IIGS.601.SRC/ToolBoxMisc/Teach/uPrint.p
@@ -0,0 +1 @@
+{**********************************************************************
{*
{* Teach uPrint (interface)
{*
{* Copyright (c)
{* Apple Computer, Inc.  1986-1988
{* All Rights Reserved.
{*
{* This file contains the interface to the code which implements the 
{* printing code used by the Teach program.
{*
{**********************************************************************}

UNIT uPrint;

INTERFACE

USES
       types,
	   gsos,
	   PasLibIntf,
	   locator,
	   memory,
	   misctool,
	   quickdraw,
	   qdaux,
	   events,
	   controls,
	   windows,
	   dialogs,
	   menus,
	   stdfile,
	   resources,
	   textedit,
	   print,

       uGlobals,
	   uWindow;


procedure StartupPrinting;
procedure DoPageSetupItem;
procedure DoPrintItem;



IMPLEMENTATION

{$i uPrint.inc.p }

END.

\ No newline at end of file
diff --git a/IIGS.601.SRC/ToolBoxMisc/Teach/uUtils.inc.p b/IIGS.601.SRC/ToolBoxMisc/Teach/uUtils.inc.p
new file mode 100644
index 0000000..b0e3f59
--- /dev/null
+++ b/IIGS.601.SRC/ToolBoxMisc/Teach/uUtils.inc.p
@@ -0,0 +1 @@
+{**********************************************************************
{*
{* Teach uUtils (implementation)
{*
{* Copyright (c)
{* Apple Computer, Inc.  1986-1992
{* All Rights Reserved.
{*
{* This file contains the code which implements  
{* various utility routines used by the Teach program.
{*
{**********************************************************************}
{$R-}

var
	OOMFlagChanged: Boolean;

PROCEDURE Debug;  INLINE $0000;

FUNCTION IntToString (i : Integer): STR255;
var
  size,
  count  : Integer;
  num : longInt;
  str : string[20];
BEGIN
  num := i;
  size := 0;
  Long2Dec(num, @str, 19, true);
  FOR count := 1 to 19 DO
    BEGIN
	  IF (str[count] = '-') OR ((str[count] >= '0') AND (str[count] <= '9')) THEN
	    BEGIN
		  size := size + 1;
		  IntToString[size] := str[count];
		END;
	END;
  IntToString[0] := char(size);
END;

FUNCTION LongToString (l : LongInt): STR255; { test }
var
  size,
  count  : Integer;
  num : longInt;
  str : string[20];
BEGIN
  num := l;
  size := 0;
  Long2Dec(num, @str, 19, true);
  FOR count := 1 to 19 DO
    BEGIN
	  IF (str[count] = '-') OR ((str[count] >= '0') AND (str[count] <= '9')) THEN
	    BEGIN
		  size := size + 1;
		  LongToString[size] := str[count];
		END;
	END;
  LongToString[0] := char(size);
END;


FUNCTION IsToolError: BOOLEAN;
BEGIN
  IsToolError := FALSE;
  if _ToolErr <> 0 then
    IsToolError := TRUE;
END;

PROCEDURE INC(VAR anIndex : Integer); {increase integer param by 1}
BEGIN
	anIndex := anIndex + 1;
END;

PROCEDURE Dec(VAR anIndex: Integer); {decrease integer param by 1}
BEGIN
  	anIndex := anIndex - 1;
END;



{************************************************************************
{*
{* PStringToNewC1String
{*
{* This is a utility string that creates a C1Input string in a handle
{* using a PString as input.
{*
{************************************************************************}
function   PStringToNewC1String   (PStringPtr : String255Ptr) : handle;

	type
		IntPointer =  ^integer;
		IntHandle  = ^IntPointer;
	var
		
		TheNewHandle : IntHandle;
		Size : integer;

begin
	Size := length(PStringPtr^);
	TheNewHandle := IntHandle(NewHandle(2+size,MyMemoryID,0,NIL));
	
	BlockMove(@PStringPtr^[1],ptr(2+LongInt(TheNewHandle^)),size);
	
	TheNewHandle^^ := size;
	
	PStringToNewC1String := handle(TheNewHandle);
end;


procedure	C1OutputToC1Input (TheHandle : handle);
	var MyPointer:ptr;
	
	begin
		{MoveLeft(TheHandle^^[2],TheHandle^^[0],GetHandleSize(TheHandle)-2);}
		
		{BlockMove(@TheHandle^^[2],@TheHandle^^[0],GetHandleSize(TheHandle)-2);}
		
		MyPointer:=theHandle^;
		BlockMove(ptr(ord4(MyPointer)+2),MyPointer,GetHandleSize(TheHandle)-2);
	end;

{
Function ScanDown(var theStr:str255):str255;
	
	var	i,j:integer;
	
	begin
		  j:=0;
		  ScanDown:='';
		  i:=length(theStr);
		  If i<2 then exit(ScanDown);
		  repeat
		    if (thestr[i]='/') or (thestr[i]=':') then
			  begin
			    j:=i;
				i:=1;
			  end
			else i:=i-1;
		  until (i=1);
		  If j<>0 then
		    begin
			  ScanDown:=copy(theStr,0,j);
		      theStr:=copy(theStr,j+1,length(theStr)-j);
			end;
	end;
}

procedure ExtractFilename(thePath: Handle; theTitle: String255Ptr);
type
	pathArrayType = packed array[0..65535] of char;
	pathPtrType = ^pathArrayType;
	WordPtr = ^integer;
var
	len, i, newLen: integer;
	pathPtr: pathPtrType;
begin
{	debugstr('ExtractFilename'); }
	theTitle^ := '';
	pathPtr := pathPtrType(thePath^);
	len := WordPtr(pathPtr)^;
	i := len - 2;
	while (i>1) and (pathPtr^[i+2] <> ':') do
		i := i - 1;
	if i>1 then begin
		newLen := len - i - 1;
		BlockMove(Ptr(longint(pathPtr)+i+3),Ptr(@theTitle^[1]),newLen);
		theTitle^[0] := chr(newLen);
	end;
end;

procedure	C1OutputToPString (TheHandle : handle);
	var MyPointer: String255Ptr;
	
	begin
		MyPointer := String255Ptr(theHandle^);
		MyPointer^[0] := MyPointer^[2];
		BlockMove(ptr(ord4(MyPointer)+4),ptr(ord4(MyPointer)+1),ord(MyPointer^[2]));
	end;


FUNCTION MyErrorWindow ( i:Integer; j:Ptr; k:Integer) : Integer ;
begin
	InitCursor;
	MyErrorWindow:=ErrorWindow(i,j,k);
End;


FUNCTION MyAlertWindow ( i:Integer; j:Ptr; k:UNIV ptr) : Integer ;
begin
	InitCursor;
	MyAlertWindow:=AlertWindow(i,j,Ref(k));
End;


Procedure MyOOMRtn; External;

Procedure InitMemWatcher;
begin
	ReserveHndl := NewHandle($4000,MyMemoryID,0,Nil);
	OOMFlag := (_toolErr<>0);
	OOMFlagChanged := FALSE;
	AddToOOMQueue(Ptr(@MyOOMRtn));
end;


Procedure WatchMemory;
var
	temp: Integer;
begin
	{ added 25-Aug-92 DAL }
	if OOMFlag then begin
		ReserveHndl := NewHandle($4000,MyMemoryID,0,nil);
		OOMFlag := (_toolErr<>0);
	end;

	if OOMFlag then
	  begin
		if not OOMFlagChanged then
			temp:=MyAlertWindow($34,NIL,ptr(18));
		OOMFlagChanged := TRUE;
		PurgeAll(0);
		CompactMem;
		ReserveHndl := NewHandle($4000,MyMemoryID,0,Nil);
		OOMFlag := (_toolErr<>0);
	  end
	else
		OOMFlagChanged := FALSE;
end;


Procedure CloseMemWatcher;
begin
	if not OOMFlag then DisposeHandle(ReserveHndl);
	RemoveFromOOMQueue(Ptr(@MyOOMRtn));
end;
\ No newline at end of file
diff --git a/IIGS.601.SRC/ToolBoxMisc/Teach/uUtils.p b/IIGS.601.SRC/ToolBoxMisc/Teach/uUtils.p
new file mode 100644
index 0000000..de059ef
--- /dev/null
+++ b/IIGS.601.SRC/ToolBoxMisc/Teach/uUtils.p
@@ -0,0 +1 @@
+{**********************************************************************
{*
{* Teach uUtils (interface)
{*
{* Copyright (c)
{* Apple Computer, Inc.  1986-1988
{* All Rights Reserved.
{*
{* This file contains the interface to the code which implements  
{* various utility routines used by the Teach program.
{*
{**********************************************************************}

Unit uUtils;

INTERFACE

USES
	types,
	locator,
	intMath,
	memory,
	QuickDraw,
	events,
	controls,
	windows,
	print,
	gsos,
	resources,
	textEdit,
	uGlobals;
	

CONST
  srcCopy            =   $0000;
  
VAR
	{$Z+}	{Make these variables visible to Assembly files.}
	OOMFlag: Boolean;
	ReserveHndl: Handle;
	{$Z-}	
  
FUNCTION IntToString (i : Integer): STR255;
FUNCTION LongToString (l : LongInt): STR255; { test }
FUNCTION IsToolError: BOOLEAN;
PROCEDURE INC(VAR anIndex : Integer);
PROCEDURE Dec(VAR anIndex: Integer);
function   PStringToNewC1String   (PStringPtr : String255Ptr) : handle;

procedure	C1OutputToC1Input (TheHandle : handle); 
procedure	C1OutputToPString (TheHandle : handle); 

{ function ScanDown(var theStr:str255):str255; }
procedure ExtractFilename(thePath: Handle; theTitle: String255Ptr);

Function CompareC1In(str1,str2:ptr):Boolean;
Function MyErrorWindow ( i:Integer; j:Ptr; k:Integer) : Integer ;
Function MyAlertWindow ( i:Integer; j:Ptr; k:UNIV ptr) : Integer ;

Procedure InitMemWatcher;
Procedure WatchMemory;
Procedure CloseMemWatcher;

Procedure DebugStr(theString:str255);
	INLINE $A2,$09FF,$22,$E10000;

IMPLEMENTATION
	
Function CompareC1In; EXTERNAL;
{$i uUtils.inc.p }

END.


\ No newline at end of file
diff --git a/IIGS.601.SRC/ToolBoxMisc/Teach/uWindow.inc.p b/IIGS.601.SRC/ToolBoxMisc/Teach/uWindow.inc.p
new file mode 100644
index 0000000..7c4c150
--- /dev/null
+++ b/IIGS.601.SRC/ToolBoxMisc/Teach/uWindow.inc.p
@@ -0,0 +1 @@
+{**********************************************************************
{*
{* Teach uWindow.inc.p (implementation)
{*
{* Copyright (c)
{* Apple Computer, Inc.  1986-1993
{* All Rights Reserved.
{*
{* This file contains the code which implements  
{* windows in the Teach program.
{*
{**********************************************************************}
{$R-}

const	MyWindowSize=$7001;		{Resource ID for the window size}

type	MyWindSizeRec = record
					 theHeight:Integer;
					 theWidth:Integer;
					 theTop:Integer;
					 theLeft:Integer;
					 theVersion:Longint;
					end;
		MyWindSizePtr=^MyWindSizeRec;
		MyWindSizeHand=^MyWindSizePtr;
		
var		CancelFlag: Boolean;
		gFileType: Integer;
{$J+}
		PutDialog640: DialogTemplate;
{$J-}

PROCEDURE Debug;  INLINE $0000;

{ These routines are used by custom routines that are called by the toolbox. }
Function SaveDB: Integer; External;
Procedure RestoreDB(theSavedDB: Integer); External;

{**********************************************************************}
{
{ DrawThisWindow
{
{ This routine draws the contents of all the windows.
{
{*
{* Warning:  Do not make any calls that use the libraies or use
{* short addressing without setting the dbr to ~globals.
{*
{**********************************************************************}
procedure DrawThisWindow;
	begin
		DrawControls(GetPort);
	END;
	

{**********************************************************************}
{
{ NextWindow
{
{ This routine goes thru the list of available windows and tries to find an
{ empty slot. If it can not find one it returns zero and informs the user.  
{
{**********************************************************************}

Function NextWindow:Integer;

	var i:Integer;
	
	begin
	  i:=0;
	  repeat
	    i:=i+1;
	  until (WindArray[i]=NIL) or (i=MaxWinds);
	  If WindArray[i]<>NIL then
  		begin
		  i:=0;
   		  If MyAlertWindow($0034,NIL,ptr(3))=0 then;
		end;
	  NextWindow:=i;
	end;
	
{**********************************************************************}
{
{ FreeWindow
{
{ This routine goes thru the list of windows and tries to find an entry
{ for the passed window. If it does it will NIL out that entry.  
{
{**********************************************************************}

procedure FreeWindow(theWind:GrafPortPtr);

	var i:Integer;
	
	begin
	  for i:=1 to MaxWinds do
	    If WindArray[i]=theWind then WindArray[i]:=NIL;
	end;
	
{**********************************************************************}
{
{ FindWindNum
{
{ This routine goes thru the list of windows and tries to find an entry
{ that matches the passed entry.  
{
{**********************************************************************}

Function FindWindNum(theWind:GrafPortPtr):Integer;

	var i:Integer;
	
	begin
	  FindWindNum:=0;
	  If theWind=NIL then Exit(FindWindNum);
	  for i:=1 to MaxWinds do
	    If WindArray[i]=theWind then
		  begin
		    FindWindNum:=i;
			Exit(FindWindNum);
		  end;
		FindWindNum:=0;
	end;
	
{**********************************************************************}
{
{ ValidFront
{
{ Returns whether the front window is 
{
{**********************************************************************}

Function ValidFront:Boolean;

	var i:Integer;
	
	begin
		i:=FindWindNum(FrontWindow);
		ValidFront:=(i<>0);
	end;
	
	
{**********************************************************************}
{
{ AlreadyOpen(thePathName:Handle):Boolean;
{
{ Returns whether the front window is 
{
{**********************************************************************}

Function AlreadyOpen(thePathName:Handle):Integer;

	var i:Integer;

	begin
	  AlreadyOpen:=0;
	  for i:=1 to 4 do
	    If  WindArray[i]<>NIL then
		  begin
		  	If CompareC1In(handle(GetWRefCon(WindArray[i]))^,thePathName^) then
			  AlreadyOpen:=i;
		  end;
	end;
	
{**********************************************************************}
{
{ ResetChangeFlag
{
{ This routine Resets our changed flag for our text edit record. 
{
{**********************************************************************}
procedure ResetChangeFlag(theWindow:GrafPortPtr);
	External;
	
{**********************************************************************}
{
{ TestChangeFlag
{
{ This routine Resets our changed flag for our text edit record. 
{
{**********************************************************************}
Function TestChangeFlag(theWindow:GrafPortPtr):Boolean;
    External;
	
{**********************************************************************}
{
{ PutFileIntoWindow
{
{ This routine opens the specified file, reads its contents in and
{ sets the text of the text edit control of the top window to that text
{
{**********************************************************************}
Procedure	PutFileIntoWindow (C1Handle : handle; theWindow:WindowPtr; windNum:integer);
	var
		TheHandle, temphandle : handle;
		NoResFile:Boolean;
		theResFileID:Integer;
		Temp : integer;
		theType: Integer;
		OpenBlock : OpenRecGS;
		CloseBlock : RefNumRecGS;
		ReadBlock : ioRecGS;
		MyFileInfoRec:FileInfoRecGS;
		tempSize:MyWindSizeHand;
		
	begin
{ First determine if the file already exists and if its write protected by opening it for
  writing...and Now do the proper file type stuff... }
		
		MyFileInfoRec.pCount:=4;
		MyFileInfoRec.pathname := GSString255Ptr(C1Handle^);
		GetFileInfoGS(MyFileInfoRec);
		theType:=MyFileInfoRec.FileType;

		with OpenBlock do begin
			pCount := 15;
			pathname := GSString255Ptr(C1Handle^);
			requestAccess := 0;
			resourceNumber := 0;
			optionList := NIL;
		end;
		
		OpenGS (OpenBlock);
		If _ToolErr=VolNotFound then
		  begin
		  	temp:=MyAlertWindow($0034,NIL,ptr(11));
			FreeWindow(theWindow);
			CloseWindow(theWindow);
		  	Exit(PutfileIntoWindow);
		  end;
		  
		if _ToolErr <> 0 then 
			begin
				Temp := MyErrorWindow(0,NIL,_ToolErr);
				FreeWindow(theWindow);
				CloseWindow(theWindow);
				exit(PutfileIntoWindow);
			end;

		with CloseBlock do begin
			pCount := 1;
			refNum := OpenBlock.refNum;
		end;

		If OpenBlock.EOF > $01FFFF then
		  begin
		  	If MyAlertWindow($0034,NIL,ptr(7))=0 then;
			CloseGS(CloseBlock);
			FreeWindow(theWindow);
			CloseWindow(theWindow);
			exit(PutfileIntoWindow);		  
		  end;
		  
		TheHandle := NewHandle (OpenBlock.eof,MyMemoryID,0,NIL);
		if _ToolErr <> 0 then 
			begin
				Temp := MyErrorWindow(0,NIL,_ToolErr);
				CloseGS(CloseBlock);
				FreeWindow(theWindow);
				CloseWindow(theWindow);
				exit(PutfileIntoWindow);		  
			end;
				
		hLock (theHandle);

		if OpenBlock.eof <> 0 then
			begin
			with ReadBlock do 
				begin
				pCount := 4;
				refNum := OpenBlock.refNum;
				DataBuffer := TheHandle^;
				requestCount := OpenBlock.eof;
				end;
			ReadGS (ReadBlock);
			if _ToolErr <> 0 then 
				begin
				Temp := MyErrorWindow(0,NIL,_ToolErr);
				DisposeHandle(TheHandle);
				CloseGS(CloseBlock);
				FreeWindow(theWindow);
				CloseWindow(theWindow);
				exit(PutfileIntoWindow);		  
				end;
			end;

		CloseGS (CloseBlock);
		if _ToolErr <> 0 then 
			begin
				Temp := MyErrorWindow(0,NIL,_ToolErr);
				DisposeHandle(TheHandle);
				FreeWindow(theWindow);
				CloseWindow(theWindow);
				exit(PutfileIntoWindow);		  
			end;


{ attempt to open the resource fork of this file! }

		hLock(handle(C1Handle));
		
{	First open the resource file for reading... }
		If theType=TeachFType then
		  begin
		  	NoResFile:=false;
			theResFileID:=OpenResourceFile($0000,NIL,GSString255Ptr(C1Handle^));
			If _ToolErr=0 then 
				tempHandle:=LoadResource(rStyleBlock,1);
			If _ToolErr<>0 then NoResFile:=true;	
		  end
		 else
		   	NoResFile:=true;
		
		If NoResFile then
			TESetText ( teDataIsTextBlock+refIsHandle*8,	{ Text Descriptor }
					teTextRef(TheHandle),	 				{ Text Ref }
					0,										{ Text Length }
					0,										{ Style Descriptor }
					teStyleRef(0),							{ Style Ref }
					TERecordHndl(GetCtlHandleFromID(theWindow,MainWindowID))	{ Control Handle }
					)
		
		else
		  begin
	{ try and get the windows last size and position information... }
			tempSize:=MyWindSizeHand(LoadResource(MyWindowSize,1));
			If _ToolErr=0 then
			  begin
			  	SizeWindow(tempSize^^.theWidth,tempSize^^.theHeight,theWindow);
				MoveWindow(tempSize^^.theLeft,tempSize^^.theTop,theWindow);
			    ReleaseResource(3,MyWindowSize,1);
			  end;
			TESetText ( teDataIsTextBlock+refIsHandle*8,	{ Text Descriptor }
					teTextRef(TheHandle),	 				{ Text Ref }
					0,										{ Text Length }
					$0002,									{ Style Descriptor }
					teStyleRef(1),							{ Style Ref }
					TERecordHndl(GetCtlHandleFromID(theWindow,MainWindowID))	{ Control Handle }
					);
			temp:=_ToolErr;
			CloseResourceFile(theResFileID);
			If _ToolErr=0 then _ToolErr:=temp;
		  end;
		If _ToolErr <> 0
		  Then Begin
		 	Temp := MyAlertWindow($0034,NIL,ptr(8));
			DisposeHandle(TheHandle);
			FreeWindow(theWindow);
			CloseWindow(theWindow);
			exit(PutfileIntoWindow);		  
    	  End;
		If noResFile and (theType=TeachFType) then
			begin
			CloseResourceFile(theResFileID);
		    Temp := MyAlertWindow($0034,NIL,ptr(9));
			end;
		DisposeHandle(TheHandle);
		ResetChangeFlag(theWindow);
		PlaceAndShowWindow(theWindow,WindNum,(theType<>TeachFType));
	end;


{**********************************************************************}
{
{ PutWindowIntoFile
{
{ This routine opens the specified file, writes the window contents.
{
{**********************************************************************}
procedure	PutWindowIntoFile (C1Handle : handle; theType:Integer);
	var
	TheHandle : handle;
	theTERec: TERecordHndl;
	Temp : integer;
	theResFileID:Integer;
	WindNum:Integer;
	totalSize : LongInt;
	DestroyBlock : NameRecGS;
	CreateBlock : CreateRecGS;
	OpenBlock : OpenRecGS;
	CloseBlock : RefNumRecGS;
	WriteBlock : ioRecGS;
	MyFileInfoRec:FileInfoRecGS;
	myEOFRec: SetPositionRecGS;
	Exists : Boolean;
	tempSize:MyWindSizeHand;
	tempWindow:WindowPtr;
	
	Function WriteText(	refNum: Integer;
						theTERec: TERecordHndl): Integer;
		var
		WriteBlock : ioRecGS;
		theInfoRec: TEInfoRec;
		theHandle: Handle;
		temp, textDescriptor: Integer;
		bufferSize, textSize, totalWritten,
		selectStart, selectEnd: Longint;
		
		begin
		
		WriteText := 0;

		WriteBlock.pCount := 4;
		WriteBlock.refNum := refNum;

	{ determine optimal text buffer size }
		TEGetTextInfo(theInfoRec,1,theTERec);
		if theInfoRec.charCount = 0 then
			exit(WriteText);
		bufferSize := MaxBlock;
		if theInfoRec.charCount < bufferSize then
			bufferSize := theInfoRec.charCount;
		
		theHandle := NewHandle (bufferSize,MyMemoryID,0,NIL);
		if _toolErr <> 0 then
			begin
			WriteText := _toolErr;
			exit(WriteText);
			end;
		
		totalWritten := 0;
		if bufferSize < theInfoRec.charCount then
			begin
			theTERec^^.ctrlFlag := bXOR(theTERec^^.ctrlFlag,ctlInVis);
			TEGetSelection(selectStart,selectEnd,theTERec);
			textDescriptor := tedataIsTextBlock+refIsHandle*8 + $0020;
			end
		else
			textDescriptor := tedataIsTextBlock+refIsHandle*8;
		repeat
			if bufferSize < theInfoRec.charCount then
				TESetSelection(totalWritten,
								totalWritten+bufferSize-1,
								theTERec);
			textSize := TEGetText (  
								textDescriptor,			{ Text Descriptor }
								teTextRef(theHandle),	{ Text Ref }
								0,						{ Text Length }
								0,						{ Style Descriptor }
								teStyleRef(0),			{ Style Ref }
								theTERec				{ TE record handle }
								);
			HLock(theHandle);
			WriteBlock.DataBuffer := theHandle^;
			WriteBlock.requestCount := textSize;
			WriteGS (WriteBlock);
			if _toolErr <> 0 then
				begin
				WriteText := _toolErr;
				DisposeHandle(theHandle);
				exit(WriteText);
				end;
			HUnlock(theHandle);
			totalWritten := totalWritten + textSize;
		until totalWritten = theInfoRec.charCount;
		
		if bufferSize < theInfoRec.charCount then
			begin
			theTERec^^.ctrlFlag := bXOR(theTERec^^.ctrlFlag,ctlInVis);
			TESetSelection(selectStart,selectEnd,theTERec);
			end;
		end;
		
	begin
{	first get the text from the text edit record to insure that we 
	have enough room in memory to perform the save... }
	If CancelFlag then exit(PutWindowIntoFile);
	
	CancelFlag:=true;		{Default this to true to save space}

	tempWindow:=FrontWindow;
	theTERec := TERecordHndl(GetCtlHandleFromID(tempWindow,MainWindowID));

	{ First determine if the file already exists and if its write protected
	by opening it for writing...and Now do the proper file type stuff... }
	
	MyFileInfoRec.pCount:=6;	{ up to and including Create DateTime }
	MyFileInfoRec.pathname := GSString255Ptr(C1Handle^);
	GetFileInfoGS(MyFileInfoRec);
	If (_toolErr<>0) and (theType=trollType) then theType:=TeachFType;
	If theType=trollType then theType:=MyFileInfoRec.FileType;

	Exists:= (_ToolErr=0);		
	
	{ continue with the operation... }

	with DestroyBlock do begin
		pCount := 1;
		pathname := GSString255Ptr(C1Handle^);
	end;
	
	if Exists then
		begin
		DestroyGS(DestroyBlock);
	
		if _toolErr <> 0 then
			begin
			If _toolErr = invalidAccess then
				Temp := MyAlertWindow($0034,NIL,ptr(14))
			else If _ToolErr = volNotFound then
				temp:=MyAlertWindow($0034,NIL,ptr(11))
			else if _toolErr <> fileNotFound then
				Temp := MyErrorWindow(0,NIL,_ToolErr);
			exit(PutWindowIntoFile);
			end;
		end;

	{ Create the file all over again }
	with CreateBlock do 
		Begin
		pCount := 4;
		pathname := GSString255Ptr(C1Handle^);
		access := $C3;
		fileType := theType;
		If theType= TeachFType then
			AuxType := teachAuxType
		else if theType = APWSource then
			if Exists and (MyFileInfoRec.fileType=APWSource) then { added "and..." 12-Nov-91 DAL }
				AuxType := MyFileInfoRec.auxType
			else
				AuxType := ScriptAuxType
		else
			AuxType := 0;
		end;
	
	CreateGS (CreateBlock);
	if _ToolErr <> 0 then 
		begin
		Temp := MyErrorWindow(0,NIL,_ToolErr);
		exit(PutWindowIntoFile);
		end;
	
	if Exists then
		Begin
		MyFileInfoRec.fileType := theType;
		MyFileInfoRec.AuxType := CreateBlock.AuxType;
		SetFileInfoGS(MyFileInfoRec);	{ reset creation date back to original value}
		end;

	{ Open the file's data fork }
	with OpenBlock do
		begin
		pCount := 15;
		pathname := GSString255Ptr(C1Handle^);
		requestAccess := 0;
		resourceNumber := 0;
		optionList := NIL;
		end;
	
	OpenGS (OpenBlock);
	if _ToolErr <> 0 then 
		begin
		Temp := MyErrorWindow(0,NIL,_ToolErr);
		exit(PutWindowIntoFile);
		end;

	with CloseBlock do 
		begin
		pCount := 1;
		refNum := OpenBlock.refNum;
		end;
	
	with DestroyBlock do
		begin
		pCount := 1;
		pathname := GSString255Ptr(C1Handle^);
		end;
	
	with myEOFRec do
		begin
		pCount := 3;
		refNum := OpenBlock.refNum;
		base := 0;
		displacement := 0;
		end;

	temp := WriteText(OpenBlock.refNum,theTERec);
	if temp <> 0 then
		begin
		Temp := MyErrorWindow(0,NIL,temp);
		SetEOFGS(myEOFRec);
		CloseGS(CloseBlock);
		DestroyGS(DestroyBlock);
		exit(PutWindowIntoFile);
		end;
	
	{ Close the data fork }
	CloseGS (CloseBlock);
	if _toolErr = volumeFull then
		begin
		Temp := MyAlertWindow($0034,NIL,ptr(20));
		SetEOFGS(myEOFRec);
		CloseGS (CloseBlock);
		DestroyGS(DestroyBlock);
		exit(PutWindowIntoFile);
		end;
	
	{ attempt to save the resources to the files resource fork now! }
	
	If theType=TeachFType then
		begin
	{	First open the resource file for writing... }
	
		CreateResourceFile(0,$0004,$0003,GSString255Ptr(C1Handle^));
		if _ToolErr <> 0 then 
			begin
			if _toolErr = volumeFull then
				Temp := MyAlertWindow($0034,NIL,ptr(20))
			else
				Temp := MyErrorWindow(0,NIL,_ToolErr);
			DestroyGS(DestroyBlock);
			exit(PutWindowIntoFile);
			end;
		theResFileID:=OpenResourceFile($0000,NIL,GSString255Ptr(C1Handle^));
		if _ToolErr <> 0 then 
			begin
			Temp := MyErrorWindow(0,NIL,_ToolErr);
			DestroyGS(DestroyBlock);
			exit(PutWindowIntoFile);
			end;
		
	{ Add the window size resource }
		tempSize := MyWindSizeHand(NewHandle (12,MyMemoryID,0,NIL)); { size was 16, 18-Jun-92 DAL }
		tempSize^^.theWidth:=tempWindow^.portrect.h2-tempWindow^.portrect.h1;
		tempSize^^.theHeight:=tempWindow^.portrect.v2-tempWindow^.portrect.v1;
		
		tempSize^^.theTop:= -tempWindow^.portInfo.boundsRect.v1;
		tempSize^^.theLeft:= -tempWindow^.portInfo.boundsRect.h1;
		tempSize^^.theVersion:=0;
		
		AddResource(Handle(tempSize),0,MyWindowSize,1);
		if _toolErr <> 0 then
			begin
			if _toolErr = volumeFull then
				Temp := MyAlertWindow($0034,NIL,ptr(20))
			else
				temp := MyErrorWindow(0,NIL,_ToolErr);
			CloseResourceFile(BOR($8000,theResFileID));
			DestroyGS(DestroyBlock);
			exit(PutWindowIntoFile);
			end;
			
	{ 	Now call text edit to create the style resource... }		
	{ Dave says that this puts the data into my resource file! }
	
		totalSize := TEGetText (  
							tedataIsTextBlock+refIsPointer*8,  	{ Text Descriptor }
							teTextRef(Nil),	 					{ Text Ref }
							0,									{ Text Length }
							refIsResource,								{ Style Descriptor }
							teStyleRef(1),						{ Style Ref }
							TERecordHndl(GetCtlHandleFromID(tempWindow,MainWindowID))	{ Control Handle }
							);
		if TEGetLastError(fClearError,
				TERecordHndl(GetCtlHandleFromID(tempWindow,MainWindowID))) <> 0 then
			begin
			temp := MyErrorWindow(0,NIL,_ToolErr);
			CloseResourceFile(BOR($8000,theResFileID));
			DestroyGS(DestroyBlock);
			exit(PutWindowIntoFile);
			end;
	
		UpdateResourceFile(theResFileID);
		if _toolErr <> 0 then
			begin
			if _toolErr = volumeFull then
				Temp := MyAlertWindow($0034,NIL,ptr(20))
			else
				temp := MyErrorWindow(0,NIL,_ToolErr);
			CloseResourceFile(BOR($8000,theResFileID));
			DestroyGS(DestroyBlock);
			exit(PutWindowIntoFile);
			end;
		
		CloseResourceFile(theResFileID);
		if _toolErr <> 0 then
			begin
			CloseResourceFile(BOR($8000,theResFileID));
			DestroyGS(DestroyBlock);
			exit(PutWindowIntoFile);
			end;
		End;
	
	CancelFlag:=false;		{if we get here then all must be groovy}
	ResetChangeFlag(FrontWindow);
	
	end;


{**********************************************************************}
{
{ PlaceAndShowWindow
{
{ This routine moves the specified window based on stagger count
{ and shows it.
{
{**********************************************************************}
procedure PlaceAndShowWindow (TheWindow : GrafPortPtr; WindNum:Integer;
								isNewWindow: Boolean);

	begin
		if isNewWindow or (theWindow^.portInfo.boundsRect.v1 > -26) then
			MoveWindow (8+8*WindNum,28+8*WindNum,TheWindow);
		ShowWindow(TheWindow);
		SelectWindow(TheWindow);	
	end;


{****************************************************************************}
{
{ MyFilterProc
{
{ This routine is a filter procedure for the SFGetFile2 call in DoImportFile.
{
{****************************************************************************}

type
	OptionListRec = PACKED RECORD
		fileSysID: Integer;
		typeCreatorStr: PACKED ARRAY[1..8] OF char;
		finderFlags: Integer;
		location: Point;
		windowID: Integer;
		iconID: Integer;
		reserved: PACKED ARRAY[1..8] OF char;
		commentID: Integer;
		homeDirID: Longint;
		parentDirID: Longint;
		accessRights: Longint;
		end;

	OptionListBuf = RECORD
		bufSize: Integer;
		length: Integer;
		theData: OptionListRec;
		end;


Function MyFilterProc(var inputDirEntry: DirEntryRecGS): Integer;

	var
	theOptionList: OptionListBuf;
	myDirEntry:DirEntryRecGS;
	
	begin
	MyFilterProc := displaySelect;
	if inputDirEntry.fileType <> 0 then
		exit (MyFilterProc);
	theOptionList.bufSize := sizeof(OptionListBuf);
	with myDirEntry do
		begin
		pCount := 15;
		refNum := inputDirEntry.refNum;
		base := 1;
		displacement := 0;
		name := inputDirEntry.name;
		optionList := ResultBuf255Ptr(@theOptionList);
		end;
	GetDirEntryGS(myDirEntry);
	if (myDirEntry.fileSysID = hfsFSID) or (myDirEntry.fileSysID = appleShareFSID) then
		begin
		if theOptionList.theData.typeCreatorStr <> 'ttrottxt' then
			MyFilterProc := noDisplay;
		end
	else
		MyFilterProc := noDisplay;
	end;



{****************************************************************************}
{
{ DoOpenWindow
{
{ This routine asks the user what file to open and opens it.
{
{****************************************************************************}
procedure DoOpenWindow;
	var
		WindNum	: Integer;
		Temp : GrafPortPtr;
		MyPrompt : string;
		MyReply : SFReplyRec2;
		MyTypeList : SFTypeList2;
		
	begin
	WindNum:=NextWindow;
	If WindNum=0 then exit(DoOpenWindow);
	
	MyPrompt := 'Please select file to open.';
	
	SFAllCaps (true);
	
	MyTypeList.NumEntries:=4;
	MyTypeList.filetypeentries[1].flags:=sfMatchFileType;
	MyTypeList.filetypeEntries[1].filetype:=TextOnly;
	MyTypeList.filetypeEntries[1].AuxType:=0;
	MyTypeList.filetypeentries[2].flags:=0;
	MyTypeList.filetypeEntries[2].filetype:=TeachFType;
	MyTypeList.filetypeEntries[2].AuxType:=TeachAuxType;
	MyTypeList.filetypeentries[3].flags:=sfMatchFileType;
	MyTypeList.filetypeEntries[3].filetype:=APWSource;
	MyTypeList.filetypeEntries[3].AuxType:=0;		
	MyTypeList.filetypeentries[4].flags:=0;
	MyTypeList.filetypeEntries[4].filetype:=0;
	MyTypeList.filetypeEntries[4].AuxType:=0;
	
	MyReply.NameRefDesc := refIsNewHandle;
	MyReply.PathRefDesc := refIsNewHandle;
	SFGetFile2 (120,35,
				RefIsPointer,
				ref(@MyPrompt),
				@MyFilterProc,
				@MyTypeList,
				MyReply );
	
				
	if MyReply.good  then
		begin
		{ Convert the C1Output string into a C1Input string for the resource mangager }
		C1OutputToC1Input(MyReply.PathRef.RefIsHandle);
		
		windNum:=AlreadyOpen(handle(MyReply.PathRef.RefIsHandle));
		If Windnum<>0 then
			begin
			SelectWindow(WindArray[WindNum]);
			DisposeHandle(MyReply.NameRef.RefIsHandle);
			DisposeHandle(MyReply.PathRef.RefIsHandle);
			Exit(DoOpenWindow);
			end
		else
			WindNum:=NextWindow;
		  
		C1OutputToPString(MyReply.NameRef.RefIsHandle);
		
		HLock(MyReply.NameRef.RefIsHandle);
						
		Temp := NewWindow2	(StringPtr(MyReply.NameRef.RefIsHandle^),			{ Title reference}
							 longint(MyReply.PathRef.RefIsHandle),		{ Ref con }
							 ptr($C0000000+longint(@DrawThisWindow)),	{ Draw routine }
							 NIL,										{ DefProc pointer }
							 RefIsResource,								{ Param Table Descriptor }
							 ref(MainWindowID),							{ Param Table Reference }
							 rWindParam1);								{ Param Table Type }				
		If _toolErr<>0 then
			begin
			If _toolErr=volNotFound then exit(DoOpenWindow);
			WindNum:= MyErrorWindow(0,NIL,_ToolErr);
			exit(DoOpenWindow);
			end;

		WindArray[WindNum]:=temp;
		{ Get rid of this handle }
		DisposeHandle(MyReply.NameRef.RefIsHandle);
		
		WaitCursor;
		PutFileIntoWindow(MyReply.PathRef.RefIsHandle,temp,windNum);
		InitCursor;
		end;

	end;


{****************************************************************************}
{
{ MyDialogHook
{
{ This routine is a std. file dialog hook routine.
{
{****************************************************************************}
procedure MyDialogHook(theWindow: GrafPortPtr; var itemHit: Integer);
	var
	savedDB: Integer;
	
	begin
	savedDB := saveDB;
	
	if itemHit > 100 then
		begin
		SetDItemValue(1,theWindow,itemHit);
		case itemHit of
			101: gFileType := TeachFType;
			102: gFileType := TextOnly;
			103: gFileType := APWSource;
			end;
		itemHit := 0;
		end;
	RestoreDB(savedDB);
	end;



{****************************************************************************}
{
{ DoSaveAs;
{
{ This routine either saves the file  in the place indicated by the user.
{
{****************************************************************************}
procedure DoSaveAs;
	var
		MyPrompt : string;
		MyReply : SFReplyRec2;
		OrigWinTitle : StringHandle;
		NewWinTitle : handle;
		Temp : LongInt;
		WindNum:Integer;
		theTEHandle:TERecordHndl;
		recordIsDirty: Boolean;
		
	begin;
		theTEHandle:=TERecordHndl(GetCtlHandleFromID(FrontWindow,MainWindowID));
		recordIsDirty := (bAND(theTEHandle^^.ctrlFlag,fRecordDirty) = fRecordDirty);
		
	    MyPrompt := 'Save the file as:';
		SFAllCaps (true);
		MyReply.NameRefDesc := refIsNewHandle;
		MyReply.PathRefDesc := refIsNewHandle;

		{ The current window title is the default name }
		OrigWinTitle := StringHandle(bAND4($FFFFFF,longint(GetWTitle(FrontWindow))));
		
		{ Lock so it won't move when newhandle is called }
		HLock(handle(OrigWinTitle));
		{ Get a C1String in  a new handle }
		NewWinTitle := PStringToNewC1String(OrigWinTitle^);
		
		{ unlock the thing now }
		hUnLock(handle(OrigWinTitle));
		
		hLock(NewWinTitle);
		
		SFPutFile2 (170,35,
					RefIsPointer,
					ref(@MyPrompt),
					RefIsPointer,
					ref(NewWinTitle^),
					MyReply );
		
		{ Don't need this default name any more }
		DisposeHandle(NewWinTitle);
		CancelFlag:=False;
	
		if MyReply.good  then
			begin
			{ Convert the C1Output string into a C1Input string for the resource mangager }
			C1OutputToC1Input(MyReply.PathRef.RefIsHandle);
			
			{ Convert this C1 Output string into a pString for the window manager }
			C1OutputToPString(MyReply.NameRef.RefIsHandle);

			{ Write the file out to disk }
			WaitCursor;
			PutWindowIntoFile(MyReply.PathRef.RefIsHandle,TeachFType);
			
			if not cancelFlag then
				begin
				{ Get rid of old path name handle in RefCon and the old title }
				DisposeHandle(handle (GetWRefCon(FrontWindow)));
				DisposeHandle(handle (OrigWinTitle) );

				{ Set the window title correctly }
				Temp := longint(MyReply.NameRef.RefIsHandle);
				Temp := bOR4($80000000,Temp);
				SetWTitle (string255Ptr(Temp)^,FrontWindow);
				
				{ Save the path name in the refcon of the window }
				SetWRefCon(LongInt(MyReply.PathRef.RefIsHandle),FrontWindow);
				end
			else
				begin
				{ Set the dirty bit for the TE record }
				if recordIsDirty then
					theTEHandle^^.ctrlFlag := bOR(theTEHandle^^.ctrlFlag,fRecordDirty);

				DisposeHandle(MyReply.PathRef.RefIsHandle);
				DisposeHandle(MyReply.NameRef.RefIsHandle);
				end;
			
			InitCursor;
			end
		else
			CancelFlag:=true;
  
	end;
	

{****************************************************************************}
{
{ DoSaveCopyAs(theType:Integer);
{
{ This routine either saves the file  in the place indicated by the user.
{
{****************************************************************************}
procedure DoSaveCopyAs;
	var
		MyPrompt : string;
		MyReply : SFReplyRec2;
		theTEHandle:TERecordHndl;
		recordIsDirty: Boolean;
		
	begin;
	theTEHandle:=TERecordHndl(GetCtlHandleFromID(FrontWindow,MainWindowID));
	recordIsDirty := (bAND(theTEHandle^^.ctrlFlag,fRecordDirty) = fRecordDirty);
		
	MyPrompt := 'Save the file as:';

	SFAllCaps (true);
	
	MyReply.NameRefDesc := refIsNewHandle;
	MyReply.PathRefDesc := refIsNewHandle;

	gFileType := TeachFType;	{ set the default type for the Std. File hook }
	
	SFPPutFile2 (170,35,
				Nil,
				RefIsPointer,
				ref(@MyPrompt),
				RefIsPointer,
				ref(0),
				PutDialog640,
				@MyDialogHook,
				MyReply );
	
	CancelFlag:=False;
	theType := gFileType;	{ get the type from Std. File hook }

	if MyReply.good  then
		begin
		{ Write the file out to disk }
		WaitCursor;

		{ Convert the C1Output string into a C1Input string for opening the file }
		C1OutputToC1Input(MyReply.PathRef.RefIsHandle);
			
		PutWindowIntoFile(MyReply.PathRef.RefIsHandle,theType);
		
		DisposeHandle(MyReply.PathRef.RefIsHandle);
		DisposeHandle(MyReply.NameRef.RefIsHandle);
		
		{ Set the dirty bit for the TE record }
		if recordIsDirty then
			theTEHandle^^.ctrlFlag := bOR(theTEHandle^^.ctrlFlag,fRecordDirty);

		InitCursor;
		end
	else
		CancelFlag:=true;

	end;
	

{****************************************************************************}
{
{ DoSave
{
{ This routine either saves the file (unless it is new then it does a save 
{ as).  What if it is an imported file?
{
{****************************************************************************}
procedure DoSave;
	var
		TheWindow : GrafPortPtr;
		TheRefCon : LongInt;
		theTEHandle:TERecordHndl;
		recordIsDirty: Boolean;
		
	begin
		CancelFlag:=false;
		
		TheWindow := FrontWindow;
		TheRefCon := GetWRefCon(TheWindow);
		
		if TheRefCon = 0 then
			DoSaveAs
		else 
			begin
			WaitCursor;
			theTEHandle:=TERecordHndl(GetCtlHandleFromID(TheWindow,MainWindowID));
			recordIsDirty := (bAND(theTEHandle^^.ctrlFlag,fRecordDirty) = fRecordDirty);
				
			PutWindowIntoFile(handle(TheRefCon),TrollType); {Decide what type to use}
			
			if cancelFlag then
				{ Set the dirty bit for the TE record }
				if recordIsDirty then
					theTEHandle^^.ctrlFlag := bOR(theTEHandle^^.ctrlFlag,fRecordDirty);
	
			InitCursor;
			end;
	end;
	
	

{**********************************************************************}
{
{ DoCloseOne
{
{ This routine closes the specified window. If the window is closed it returns
{ true, otherwise it returns false
{
{**********************************************************************}
Function DoCloseOne(theWindow:GrafPortPtr):Boolean;

	var
		k : integer;
		TempWin : GrafPortPtr;
		OrigWinTitle:StringHandle;
		
	begin
		InitCursor;		{ 1-Jul-92 DAL }
		{ Before we close the window, see if we should save its contents}
		If TestChangeFlag(theWindow) then 
		  begin
			OrigWinTitle := StringHandle(bAND4($FFFFFF,longint(GetWTitle(theWindow))));
			HLock(handle(OrigWinTitle));
		  	k:=MyAlertWindow($0035,ptr(OrigWinTitle),ptr(4));
			If K=1 then 
			  begin
			    DoCloseOne:=false;
			    Exit(DoCloseOne);
			  end;
			If k=2 then 
			  begin
			    bringtoFront(theWindow);
				CancelFlag:=false;
				DoSave;
				If CancelFlag then Exit(DoCLoseOne);
			  end;
		  end;
		{ Get rid of the path name handle that we keep in the refcon. }
		{ Note that it is zero if the window is untitled }
		DisposeHandle(handle(GetWRefCon(theWindow)));

		{ Close the window.  (This kills the window title handle.) }
		FreeWindow(theWindow);
		if theWindow = GetPort then
			SetPort(GetWMgrPort);
		CloseWindow(theWindow);
		DoCloseOne:=true;
	end;


{**********************************************************************}
{
{ DoCloseTop
{
{ This routine closes the topmost window.  
{
{**********************************************************************}
procedure DoCloseTop;
	var
		k : integer;
		TempWin : GrafPortPtr;
		
	begin
		If DoCloseOne(FrontWindow) then;
	end;



{****************************************************************************}
{
{ NewWindow
{
{ This routine opens a new untitled window.
{
{****************************************************************************}
procedure	DoNewWindow;
	var
		windNum	:Integer;
		Temp : GrafPortPtr;
		TempStr : Str255;
		thePString:STR255;
		
	begin
		TempStr := 'untitled';
{ First find a window to put this in... }
		WindNum:=NextWindow;
		If WindNum=0 then exit(DoNewWindow);
		
		Temp := NewWindow2	(@TempStr,			{ Title reference}
							 0,						{ Ref con }
							 ptr($C0000000+longint(@DrawThisWindow)),  { Draw routine }
							 NIL,					{ DefProc pointer }
							 RefIsResource,			{ Param Table Descriptor }
							 ref(MainWindowID),		{ Param Table Reference }
							 rWindParam1);			{ Param Table Type }
		If _toolErr<>0 then
		  begin
		  	If _toolErr=volNotFound then exit(DoNewWindow);
		 	WindNum:= MyErrorWindow(0,NIL,_ToolErr);
			exit(DoNewWindow);
		  end;
		WindArray[WindNum]:=temp;
		PlaceAndShowWindow(Temp,WindNum,true);
		
{ To try and fix a bug in the initial text of the control being crap, I will now
	attempt to fix the incomming record up! }
	
		thePString:=''; {Initial window text is a space!}
		
		TESetText ( teDataIsPString,	    { Text Descriptor }
					teTextRef(@thePString),	{ Text Ref }
					0,			            { Text Length }
					0,											  			{ Style Descriptor }
					teStyleRef(0),          { Style Ref }
					TERecordHndl(GetCtlHandleFromID(FrontWindow,MainWindowID))	   		{ Control Handle }
					);
	end;
	

(********************************************************************************************)
(*		LaunchDoc																			*)
(********************************************************************************************)

type
	MyMessageData = record
		verb: integer;
		fileNames : PACKED ARRAY[1..1] OF char;
		end;

	MyMessageRecHndl = ^MyMessageRecPtr;
	MyMessageRecPtr = ^MyMessageRec;
	MyMessageRec = RECORD
		messageNext : MessageRecHndl;
		messageType : Integer;
		messageData : MyMessageData;
		END;
	
	CharPtr = ^char;

	WordPtr = ^integer;

Function LaunchDoc:Boolean;
{
  This procedure checks the message center to determine if a document was
  double clicked on when the application was launched. If so, this will open that
  document for use.
}
  var	GotMessage: Boolean;
		aC1String: Handle;
		Temp : GrafPortPtr;
		done: boolean;
		ignore, WindNum, fNameOffset, len: Integer;
  		theMessage:MyMessageRecHndl;
		theTitle: str255;
{		whatsLeft: str255; }
		myFileInfo: FileInfoRecGS;
		
 	begin
	theMessage := MyMessageRecHndl(NewHandle(10,MyMemoryID,0,NIL));
	MessageCenter(getMessage,$0011,MessageRecHndl(theMessage));
	GotMessage := (_ToolErr=0);
	

	If GotMessage then
		begin
		{ If a message exists make sure it's the open message! If not tell the user
		  no printing from Finder! }
		If theMessage^^.messageData.verb<>0 then
			ignore := MyAlertWindow($0034,NIL,ptr(2));

		fNameOffset := 0;
		done := false;
		
		while not done do
			begin
{			if BAnd($ff,ord(CharPtr(ord4(@theMessage^^.messageData.filenames) + fNameOffset)^)) = 0 then }
			if WordPtr(ord4(@theMessage^^.messageData.filenames) + fNameOffset)^ = 0 then
				done := true;
			if not done then
				begin
				WindNum := NextWindow;
				if WindNum = 0 then
					done := true;
				end;
			if not done then
				begin
{				theTitle := String255Ptr(ord4(@theMessage^^.messageData.filenames) + fNameOffset)^; }
{				fNameOffset := fNameOffset + ord(theTitle[0]) + 1; }
{				aC1String := PStringToNewC1String(@theTitle); }
{				whatsleft := ScanDown(theTitle); }

				len := WordPtr(ord4(@theMessage^^.messageData.filenames)+fNameOffset)^;
				aC1String := NewHandle(len+2,MMStartUp,0,nil);
				PtrtoHand(Ptr(ord4(@theMessage^^.messageData.filenames)+fNameOffset),aC1String,len+2);
				fNameOffset := fNameOffset + len + 2;

				ExtractFilename(aC1String,@theTitle);

				{ make sure it is a Teach file that is being launched }
				myFileInfo.pCount := 4;
				HLock(aC1String);
				myFileInfo.pathname := GSString255Ptr(aC1String^);
				GetFileInfoGS(myFileInfo);
				HUnlock(aC1String);
				if not (((myFileInfo.fileType = TeachFType) 
							and (myFileInfo.auxType = teachAuxType))
						or (myFileInfo.fileType = TextOnly) 
						or (myFileInfo.fileType = APWSource)) then
					begin
						ignore := MyAlertWindow($0034,NIL,ptr(21));
						DisposeHandle(aC1String);
					end
				else
					begin
					{ first create a new window... }
					Temp := NewWindow2	(StringPtr(@theTitle),		{ Title reference}
										 longint(aC1String),		{ Ref con }
										 ptr($C0000000+longint(@DrawThisWindow)),  { Draw routine }
										 NIL,						{ DefProc pointer }
										 RefIsResource,				{ Param Table Descriptor }
										 ref(MainWindowID),			{ Param Table Reference }
										 rWindParam1);				{ Param Table Type }
		
					{ and load the document into it to be shown... }
					WindArray[WindNum]:=temp;
					
					WaitCursor;
					PutFileIntoWindow(aC1String,temp,windNum);
					InitCursor;
					end;
				end;
			end;
{ Now get rid of the message so no one else uses it! }
		MessageCenter(deleteMessage,fileInfoType,NIL);
		MessageCenter(deleteMessage,$0011,NIL); { 25-Nov-91 DAL }
		end;
	DisposeHandle(Handle(theMessage));
	LaunchDoc := GotMessage;
	end;


{*****************************************************************************}
{
{ SetUpWindows
{
{ Opens the default window.
{
{*****************************************************************************}
procedure SetUpWindows;
var
	thePString:str255;
begin
	if Not(LaunchDoc) then begin
		DoNewWindow;
	end;
end;

\ No newline at end of file
diff --git a/IIGS.601.SRC/ToolBoxMisc/Teach/uWindow.p b/IIGS.601.SRC/ToolBoxMisc/Teach/uWindow.p
new file mode 100644
index 0000000..3c5f604
--- /dev/null
+++ b/IIGS.601.SRC/ToolBoxMisc/Teach/uWindow.p
@@ -0,0 +1 @@
+{**********************************************************************
{*
{* Teach uWindow (interface)
{*
{* Copyright (c)
{* Apple Computer, Inc.  1986-1993
{* All Rights Reserved.
{*
{* This file contains the interface to the code which implements  
{* windows in the Teach program.
{*
{**********************************************************************}

UNIT uWindow;

INTERFACE

USES
       types,
	   paslibintf,
	   gsos,
	   locator,
	   misctool,
	   quickdraw,
	   QDAux,
	   fonts,
	   MEMORY,
	   intMath,
	   events,
	   controls,
	   windows,
	   dialogs,
	   menus,
	   DESK,
	   STDFILE,
	   resources,
	   TextEdit,
	   Print,

	   uGlobals,
	   uUtils,
	   uImport;


procedure SetUpWindows;            {Initialize variables for stacking windows}
procedure DrawThisWindow;
Function DoCloseOne(theWindow:GrafPortPtr):Boolean;
procedure DoCloseTop;
procedure DoOpenWindow;
procedure DoNewWindow;
procedure DoSave;
procedure DoSaveAs;
procedure DoSaveCopyAs(theType:Integer);
function ValidFront:Boolean;
Function FindWindNum(theWind:GrafPortPtr):Integer;
Function NextWindow:Integer;
procedure PlaceAndShowWindow (TheWindow : GrafPortPtr; WindNum:Integer;
								isNewWindow: Boolean);

{$Z+}
function LaunchDoc: boolean;  { 19-Jan-93 DAL }
{$Z-}

IMPLEMENTATION

{$I uWindow.inc.p }

END.
\ No newline at end of file
diff --git a/IIGS.601.SRC/ToolBoxMisc/uGlobals.p b/IIGS.601.SRC/ToolBoxMisc/uGlobals.p
new file mode 100644
index 0000000..46fb47b
--- /dev/null
+++ b/IIGS.601.SRC/ToolBoxMisc/uGlobals.p
@@ -0,0 +1 @@
+{**********************************************************************
{*
{*
{* Teach Globals (interface)
{*
{* Copyright (c)
{* Apple Computer, Inc.  1986-1988
{* All Rights Reserved.
{*
{* This file contains the global variables used by the Teach 
{* program.
{*
{**********************************************************************}

UNIT uGlobals;

INTERFACE

USES	
		types,
		locator,
		memory,
		quickdraw,
		intMath,
		events,
		controls,
		windows,
		dialogs,
		print,
		STDFile;

const

		AppleMenuID       	= $901;
			AboutItem     	= 301;
		FileMenuID        	= $902;
			NewItem		  	= 303;
			OpenItem	  	= 304;
			SaveItem      	= 305;
			SaveAsItem    	= 306;
			CloseItem     	= 255;   {For DA's}
			PageSetupItem 	= 307;
			PrintItem	  	= 308;
			QuitItem      	= 302;
		EditMenuID        	= $903;
			UndoItem      	= 250;    {For DA's}
			CutItem       	= 251;    {For DA's}
			CopyItem      	= 252;    {For DA's}
			PasteItem     	= 253;    {For DA's}
			ClearItem     	= 254;    {For DA's}
			SelectAllItem 	= 322;
		FontMenuID		  	= $904;
			ChooseFontItem 	= 309;
		StyleMenuID		  	= $905;
			PlainItem		= 310;
			BoldItem 		= 311;
			ItalicItem 		= 312;
			UnderlineItem 	= 313;
			ShadowItem 		= 314;
			OutlineItem 	= 315;
		SizeMenuID		 	= $906;
			Size8Item		= 316;
			Size10Item		= 317;
			Size12Item		= 318;
			Size16Item		= 319;
			Size20Item		= 320;
			Size24Item		= 321;
			FirstFontItem 	= 400;

	MainWindowID = $1000;
	
var
       MyMemoryID    : integer;      { Application ID assigned by Memory Mgr}
       Done          : boolean;      { True when quitting}
	   StaggerCount  : integer;		 { used to stagger windows as they open }
       Event         : WmTaskRec;    { All events are returned here}
	   	   
	   printHndl : prRecHndl;		 { Handle to print record }
	   
procedure InitGlobals;

IMPLEMENTATION

{$i uGlobals.inc.p}

END.
\ No newline at end of file
diff --git a/Makefile b/Makefile
index 4d9b309..b9c3ced 100644
--- a/Makefile
+++ b/Makefile
@@ -1,18 +1,40 @@
-# Drive the CMake build. Objects and binaries land in build/.
-BUILD ?= build
+# Drive the CMake build. Objects land in build/release and build/debug.
+# Release executables are copied to bin/. Debug executables are copied to bin/debug/.
+BUILD_RELEASE ?= build/release
+BUILD_DEBUG ?= build/debug
 CMAKE ?= cmake
 
-.PHONY: all test fixtures clean
+.PHONY: all release debug test fixtures clean boot
 
-all: $(BUILD)/CMakeCache.txt
-	$(CMAKE) --build $(BUILD) --target qasm --parallel
+all: release debug
 
-$(BUILD)/CMakeCache.txt: CMakeLists.txt
-	$(CMAKE) -S . -B $(BUILD)
+release: $(BUILD_RELEASE)/CMakeCache.txt
+	$(CMAKE) --build $(BUILD_RELEASE) --target qasm --target qlink --target makeBin --target qomf --target qpro --parallel
 
-test fixtures: $(BUILD)/CMakeCache.txt
-	$(CMAKE) --build $(BUILD) --target $@ --parallel
+debug: $(BUILD_DEBUG)/CMakeCache.txt
+	$(CMAKE) --build $(BUILD_DEBUG) --target qasm --target qlink --target makeBin --target qomf --target qpro --parallel
+
+$(BUILD_RELEASE)/CMakeCache.txt: CMakeLists.txt
+	$(CMAKE) -S . -B $(BUILD_RELEASE) -DCMAKE_BUILD_TYPE=Release
+	touch $(BUILD_RELEASE)/CMakeCache.txt
+
+$(BUILD_DEBUG)/CMakeCache.txt: CMakeLists.txt
+	$(CMAKE) -S . -B $(BUILD_DEBUG) -DCMAKE_BUILD_TYPE=Debug
+	touch $(BUILD_DEBUG)/CMakeCache.txt
+
+test fixtures: $(BUILD_RELEASE)/CMakeCache.txt
+	$(CMAKE) --build $(BUILD_RELEASE) --target $@ --parallel
+
+# Remove the disk and assemble it again. The image is bin/boot.2mg.
+boot: $(BUILD_RELEASE)/CMakeCache.txt
+	rm -f bin/boot.2mg bin/PRODOS bin/BASIC.SYSTEM
+	rm -rf build/boot $(BUILD_RELEASE)/boot
+	$(CMAKE) --build $(BUILD_RELEASE) --target boot.2mg --parallel
 
 clean:
-	@if [ -f $(BUILD)/CMakeCache.txt ]; then $(CMAKE) --build $(BUILD) --target clean; fi
-	rm -rf $(BUILD)
+	@if [ -f $(BUILD_RELEASE)/CMakeCache.txt ]; then $(CMAKE) --build $(BUILD_RELEASE) --target clean; fi
+	rm -rf build
+	rm -f bin/qasm bin/qlink bin/makeBin bin/qomf bin/qpro bin/test_qasm bin/test_qlink bin/test_makebin bin/test_qomf bin/test_qpro
+	rm -f bin/debug/qasm bin/debug/qlink bin/debug/makeBin bin/debug/qomf bin/debug/qpro bin/debug/test_qasm bin/debug/test_qlink bin/debug/test_makebin bin/debug/test_qomf bin/debug/test_qpro
+	rm -f bin/boot.2mg bin/PRODOS bin/BASIC.SYSTEM
+	rm -f bin/debug/boot.2mg bin/debug/PRODOS bin/debug/BASIC.SYSTEM
diff --git a/README.md b/README.md
index 4f69cc2..8da590b 100644
--- a/README.md
+++ b/README.md
@@ -9,11 +9,12 @@ The original QuickAsm repository is now
 [qasm-legacy](https://github.com/marketideas/qasm-legacy). This tree is
 the current assembler.
 
-The syntaxes are Merlin 16+, Merlin 32, ORCA/M, LISA, and ca65. Merlin
-16+ (Glen Bredon, Roger Wagner Publishing, 1988–89) is the language the
-encoder consumes. The other four are rewritten into the same pcode, so
-one program can be written in any of them and assemble to the same
-bytes. Identification, pseudo-op rewriting, and the limits of that
+The syntaxes are Merlin 16+, Merlin 32, ORCA/M, APW/MPW, LISA, and ca65.
+Merlin 16+ (Glen Bredon, Roger Wagner Publishing, 1988–89) is the
+language the encoder consumes. The others are rewritten into the same
+pcode, so one program can be written in any of them and assemble to the
+same bytes. APW is Apple's 65816 assembler, the ORCA/M language Apple
+shipped. `mpw` is the same dialect: the listing reports `syntax=apw`. Identification, pseudo-op rewriting, and the limits of that
 lowering are in `doc/SYNTAX.md`. The Merlin 16+ language contract is
 `doc/DIALECT.md`.
 
@@ -27,7 +28,7 @@ source file
     → identify the syntax, or take --syntax
     → dialect front end writes one pcode stream
     → two passes over that pcode
-    → absolute BIN and a listing
+    → absolute BIN, and a listing when -l is given
 ```
 
 A file is identified by `--syntax`, a marker in the first 40 lines,
@@ -60,28 +61,44 @@ Labels of 26 characters or fewer, lines of 255 characters or fewer, a macro
 nest of 15, and a condition nest of 8 stay inside the Merlin 16+ limits for
 a source that will also assemble on a real 16+.
 
-Absolute BIN is the object. Relocatable OMF and Linker.GS are unimplemented.
-Under `REL`, an unknown label is 0 and the object is still the raw image.
+Absolute BIN is the object qasm writes for a fixed origin. A relocatable
+module also gets an OMF 2.0 object. `qlink` links those into an OMF load
+file, and `makeBin` turns that load file into the raw image ProDOS can
+load. `qomf` prints an OMF file, including its header and relocation
+records. Under `REL`, an unknown label is 0 and the assembler still writes
+the raw image beside the object.
 
 ## Build
 
 QuickAsm builds and runs on Linux. The code is C++17. CMake is the build.
-The Makefile configures `build/` when `CMakeLists.txt` is newer than the
-cache, then builds the requested target. Binaries are `build/qasm` and
-`build/test_qasm`.
+The Makefile configures `build/release` and `build/debug` when
+`CMakeLists.txt` is newer than that cache, then builds the requested target.
+Release uses `-O2 -DNDEBUG`. Debug uses `-O0 -g`. Executables are copied
+under `bin/`, which is not version controlled. `make` produces release
+`bin/qasm`, `bin/qlink`, `bin/makeBin`, and `bin/qomf`, and the same four names under
+`bin/debug/`.
+`make release` and `make debug` build one configuration. `make test` uses
+the release build and also copies `bin/test_qasm`.
+
+`qasm`, `qlink`, `makeBin`, and `qomf` each have a major, minor, and patch number
+in `CMakeLists.txt`. Debug and release each have a build number that
+increases by one every time that configuration is built. `--version`
+prints all of it, for example `qasm 0.1.0 build 3 release`.
 
 ```
 make
+make release
+make debug
 make test
 make fixtures
-./build/qasm test/fixtures/hello.s
-./build/qasm a.s b.s c.s
+./bin/qasm test/fixtures/hello.s
+./bin/qasm a.s b.s c.s
 ```
 
-`make` builds `qasm`. Several source files on one command line assemble in
+`make` builds release and debug `qasm`, `qlink`, `makeBin`, and `qomf`. Several source files on one command line assemble in
 parallel. `make test` runs the unit tests, assembles `test/fixtures/hello.s`
-and `test/test.s`, assembles the five coverage fixtures, and requires those
-five objects to be byte-identical. `make fixtures` assembles and compares
+and `test/test.s`, assembles the six coverage fixtures, and requires those
+six objects to be byte-identical. `make fixtures` assembles and compares
 only the coverage fixtures. Run both from the repository root. `PUT` and
 `USE` paths are relative to that directory.
 
@@ -93,22 +110,26 @@ the test targets write under `test/`.
 ```
 usage: qasm [options] file.s [file2.s ...]
   -o FILE            object output (single file only)
-  -l FILE            listing path (single file only; default: <src>.lst)
+  -l FILE            write a listing to FILE (- or stdout for standard output)
   --no-lst           do not write a listing
   -j N, --jobs N     max parallel assemblies (default: HW threads)
   -I DIR              add PUT/USE search directory
   --case-sensitive
   --algebraic
-  --syntax NAME      merlin, merlin32, orca, lisa, ca65, or auto
+  --syntax NAME      merlin, merlin32, orca, apw, mpw, lisa, ca65, or auto
   --dump-pcode       write <file>.pcode beside the source
+  -V, --version      print version and exit
 ```
 
 With no `-o`, the object path is the `DSK` or `SAV` name from the source,
-or `<file>.bin` when the source sets neither. Every assembly writes a
-listing beside the source (`foo.s` → `foo.lst`) with the program counter,
-object bytes, and the original line. The listing header begins
-`; qasm  <name>  syntax=<dialect>`. Override the path with `-l`, or skip
-the file with `--no-lst`.
+or `<file>.bin` when the source sets neither. A listing is written only
+when `-l FILE` is given. `FILE` may be `-` or `stdout`, which writes the
+listing to standard output and the assemble summary to standard error.
+One named file applies to a single source; `-` or `stdout` can be used
+with several sources. The listing shows the program counter, object
+bytes, and the original line. Its header begins
+`; qasm  <name>  syntax=<dialect>`. `--no-lst` turns the listing off
+again.
 
 `--algebraic` evaluates every expression with operator precedence. Merlin
 braces `{...}` do the same for one expression. Merlin expressions otherwise
@@ -121,12 +142,108 @@ applies to every file on the command line. An unknown name is an error.
 `--dump-pcode` writes the lowered stream to `<file>.pcode`.
 
 The assemble line reports the byte count, origin, dialect, object path,
-listing path, and filetype. A clean QuickAsm run looks like:
+and filetype. A `-l` path is included when a listing is written. A clean
+QuickAsm run looks like:
 
 ```
-test/fixtures/hello.s: assembled 4 bytes at $008000 syntax=merlin -> test/fixtures/hello.bin  lst test/fixtures/hello.lst (typ $06)
+test/fixtures/hello.s: assembled 4 bytes at $008000 syntax=merlin -> test/fixtures/hello.bin (typ $06)
 ```
 
+## makeBin
+
+`qlink` writes an OMF load file. ProDOS 8 loads a raw image, which is what
+MPW `MakeBinIIGS` extracts. `makeBin` does that step.
+
+```
+usage: makeBin [options] loadfile [loadfile...]
+  -o FILE            output image (one load file only; - or stdout)
+  -org ADDR          address of the first output byte ($2000, 0x2000, or hex)
+                     default: the lowest segment address
+  -V, --version      print version and exit
+  -h, --help         print this help and exit
+  With no -o, each load file is replaced by its raw image.
+```
+
+Byte 0 of the image is the `-org` address, or the lowest segment address
+when `-org` is omitted. A later segment leaves zeros in the gap. A segment
+below that address, an object or library, or a segment that still has
+relocations is an error. The file type and auxiliary type are not stored
+in the image.
+
+```
+makeBin apple.omf -org '$2000' -o apple.bin
+```
+
+## qomf
+
+`qomf` prints an OMF 1.0 or 2.0 file: each segment header, every record,
+and the relocation entries.
+
+```
+usage: qomf [options] file [file...]
+  -V, --version      print version and exit
+  -h, --help         print this help and exit
+```
+
+The dump lists the byte or block count, reserved space, length, kind,
+origin, alignment, load name, and segment name. `CONST` and `LCONST`
+bytes are shown in hex. `RELOC` and `INTERSEG` lines give the width,
+shift, offset, and displacement. `INTERSEG` also gives the file and
+segment numbers. Object files show `GLOBAL` and `LOCAL` with the length,
+type, and private flag, and `RELEXPR` with its expression. Each segment
+ends with a relocation count and a fixup count. Bytes after `END` are
+the block padding on an OMF 1.0 load file. A `SUPER` record is printed
+as its type byte and the bytes that follow it. A record whose size is
+not known, including `ENTRY`, stops the dump and is reported on standard
+error.
+
+```
+qomf prog.omf
+```
+
+## qpro
+
+`qpro` builds a ProDOS volume and copies files in and out of it. The
+image is a series of 512-byte blocks. A name ending in `.2mg` or `.2img`
+is a 2MG wrapper around those blocks. Any other name is the raw blocks.
+Boot blocks are left empty, so the volume mounts and does not boot.
+
+```
+usage: qpro create VOLUME -name NAME (-blocks N | -size SPEC)
+       qpro cat VOLUME [PATH]
+       qpro add VOLUME PATH HOSTFILE [-t TYPE] [-a AUX]
+       qpro get VOLUME PATH HOSTFILE
+       qpro rm VOLUME PATH
+       qpro mkdir VOLUME PATH
+       qpro typ VOLUME PATH [-t TYPE] [-a AUX]
+  -name NAME         volume name
+  -blocks N          decimal block count (7 to 65535)
+  -size SPEC         140k, 800k, or 32m
+  -t TYPE            file type ($06, 0x06, or hex); add defaults to $06
+  -a AUX             auxiliary type; add defaults to $0000
+  -V, --version      print version and exit
+  -h, --help         print this help and exit
+```
+
+`-blocks` is a decimal count. `-size 140k` is 280 blocks, `800k` is
+1600, and `32m` is 65535. A path is `DIR/FILE`, or `/VOLUME/DIR/FILE`
+when the path starts with the volume name. Names are stored in upper
+case. `add` refuses a name that is already there. `rm` refuses a
+directory that still has files. `mkdir` does not create missing parents.
+
+The file type and auxiliary type live in the directory entry. Quote
+them in the shell so `$` is not expanded.
+
+```
+qpro create disk.po -name DISK -size 140k
+qpro add disk.po BASIC.SYSTEM basic.bin -t '$FF' -a '$2000'
+qpro get disk.po /DISK/BASIC.SYSTEM basic.bin
+qpro typ disk.po BASIC.SYSTEM -t '$06' -a '$2000'
+```
+
+GS/OS extended files stay in the directory. `qpro` does not read or
+write their resource forks.
+
 ## Syntaxes
 
 | Dialect | `--syntax` | How a file is recognized |
@@ -134,10 +251,11 @@ test/fixtures/hello.s: assembled 4 bytes at $008000 syntax=merlin -> test/fixtur
 | Merlin 16+ | `merlin` | Default when the text is ambiguous. Native high-bit, `$A0`, or `$8D` files. |
 | Merlin 32 | `merlin32` | Same language. `Assembler: Merlin 32`, or `GEQU` / `GEQ`. |
 | ORCA/M | `orca` | `longa`, `anop`, `mcopy`, `dc i1'...'`. |
+| APW/MPW | `apw` | Apple's assembler. `mpw` selects it too. `Assembler: APW`, `Assembler: MPW`, or `absaddr`, `msb`, `codechk`, `instime`. |
 | LISA | `lisa` | `.OR`, `.EQ`, `.DA`, `.HS`, `.EP`. |
 | ca65 | `ca65` | `.org`, `.byte`, `.p816`, `.macro`. |
 
-A marker in the first 40 lines wins: `syntax: ca65` or `Assembler: Merlin 32`.
+A marker in the first 40 lines wins: `syntax: ca65`, `Assembler: Merlin 32`, or `Assembler: APW`. `Assembler: MPW` selects APW.
 
 Macros expand while the source is lowered, so Merlin `]1` text and `LUP`'s
 `@` letter still work when the assembler runs the pcode. `PUT` and `USE`
@@ -157,16 +275,23 @@ The coverage fixtures are one program, written once in each syntax:
 - `test/fixtures/coverage-merlin.s`
 - `test/fixtures/coverage-merlin32.s`
 - `test/fixtures/coverage-orca.s`
+- `test/fixtures/coverage-apw.s`
 - `test/fixtures/coverage-lisa.s`
 - `test/fixtures/coverage-ca65.s`
 
 `make test` and `make fixtures` assemble them and compare each object with
-`coverage-merlin.bin`. A match is silent. To compare the objects by hand
-after a run:
+`coverage-merlin.bin`. A match is silent.
+
+The relocatable fixtures are two sections that call and address each
+other. `rel-code-*.s` exports `CODE`, calls `HOOK`, and loads `VALUE`.
+`rel-data-*.s` exports `VALUE` and `HOOK`, calls `CODE`, and loads it.
+The six syntaxes of each section match. `qlink` will link the pair into
+an OMF. To compare the objects by hand after a run:
 
 ```
 cmp test/fixtures/coverage-merlin.bin test/fixtures/coverage-merlin32.bin && \
 cmp test/fixtures/coverage-merlin.bin test/fixtures/coverage-orca.bin && \
+cmp test/fixtures/coverage-merlin.bin test/fixtures/coverage-apw.bin && \
 cmp test/fixtures/coverage-merlin.bin test/fixtures/coverage-lisa.bin && \
 cmp test/fixtures/coverage-merlin.bin test/fixtures/coverage-ca65.bin && \
 echo match
diff --git a/alias.sh b/alias.sh
index 208a740..0bef9cd 100755
--- a/alias.sh
+++ b/alias.sh
@@ -1,6 +1,11 @@
 #!/bin/bash
 
 export BASE=$PWD
+
+export PRODOS_IMAGE_DIR=$BASE/images
+export PRODOS_WORK_VOL=boot.2mg
+export PRODOS_WORK_SIZE=32M
+
 alias koin='repo koin'
 alias iigs='repo m65816 && cd fpga'
 alias qasm='repo qasm'
@@ -9,3 +14,5 @@ alias gss='git status'
 
 alias u1='daemon -i --chdir=$PWD -- xfce4-terminal --display $DISPLAY -x tio -b 19200 /dev/ttyUSB1'
 alias base='cd $BASE'
+
+export PATH="$PATH":$BASE/bin
diff --git a/boot/inc/M16.UTIL b/boot/inc/M16.UTIL
new file mode 100644
index 0000000..44b5871
--- /dev/null
+++ b/boot/inc/M16.UTIL
@@ -0,0 +1 @@
+* Empty. MliSrc defines the datestr macro itself.
diff --git a/boot/inc/e16.memory b/boot/inc/e16.memory
new file mode 100644
index 0000000..9a573ca
--- /dev/null
+++ b/boot/inc/e16.memory
@@ -0,0 +1,10 @@
+* Memory Manager attribute bits used by the ProDOS 8 GS patch.
+* Passed with qasm -I. This is not a system include directory.
+attrlocked	equ	$8000
+attrfixed	equ	$4000
+attrlocked2	equ	$8000
+attrpage	equ	$0004
+attrnospec	equ	$0008
+attrnocross	equ	$0010
+attraddr	equ	$0002
+attrbank	equ	$0001
diff --git a/boot/p8boot.s b/boot/p8boot.s
new file mode 100644
index 0000000..e8ebd2a
--- /dev/null
+++ b/boot/p8boot.s
@@ -0,0 +1,334 @@
+* ProDOS 8 boot block for a SmartPort / block device.
+* Firmware may enter at $0800 or $0801. X is the slot times 16
+* and is the drive-1 unit number. The driver entry is $Cn00
+* plus the byte at $CnFF. During the call:
+*   $42 command (1 reads), $43 unit, $44-$45 buffer, $46-$47 block.
+* Carry set means the read failed. No other zero page is used.
+* The file named PRODOS, type $FF, is loaded at $2000 and entered.
+
+        ORG   $0800
+
+        CLD
+        CLD
+        STX   UNIT
+        TXA
+        LSR
+        LSR
+        LSR
+        LSR
+        ORA   #$C0
+        STA   SLOT
+        LDA   #$FF
+        STA   PEEK+1
+        LDA   SLOT
+        STA   PEEK+2
+PEEK    LDA   $C000
+        STA   CALL+1
+        LDA   SLOT
+        STA   CALL+2
+
+        LDA   #2
+        STA   BLOCK
+        LDA   #0
+        STA   BLOCK+1
+        LDA   $1024
+        STA   EMAX
+
+NEXTDIR LDA   #$00
+        STA   BUF
+        LDA   #$10
+        STA   BUF+1
+        JSR   RDBLK
+        BCC   DIRGOT
+        JMP   FAIL
+DIRGOT  LDA   #$04
+        STA   ENT
+        LDA   #$10
+        STA   ENT+1
+        LDA   #0
+        STA   ECNT
+
+NEXTENT LDA   ECNT
+        CMP   EMAX
+        BCC   DOENT
+        JMP   DONEDIR
+DOENT   LDY   #0
+        JSR   GETBYT
+        STA   STOR
+        AND   #$0F
+        STA   NLEN
+        LDA   STOR
+        LSR
+        LSR
+        LSR
+        LSR
+        BEQ   STEP
+        CMP   #$0F
+        BEQ   STEP
+        CMP   #$0E
+        BEQ   STEP
+        CMP   #1
+        BCC   STEP
+        CMP   #4
+        BCS   STEP
+        LDA   NLEN
+        CMP   #6
+        BNE   STEP
+        LDY   #$10
+        JSR   GETBYT
+        CMP   #$FF
+        BNE   STEP
+        LDX   #0
+        LDY   #1
+CMPNM   JSR   GETBYT
+        CMP   NAME,X
+        BNE   STEP
+        INY
+        INX
+        CPX   #6
+        BNE   CMPNM
+
+        LDA   STOR
+        LSR
+        LSR
+        LSR
+        LSR
+        STA   KIND
+        LDY   #$11
+        JSR   GETBYT
+        STA   KEY
+        INY
+        JSR   GETBYT
+        STA   KEY+1
+        LDY   #$15
+        JSR   GETBYT
+        STA   LEFT
+        INY
+        JSR   GETBYT
+        STA   LEFT+1
+        INY
+        JSR   GETBYT
+        STA   LEFT+2
+        JMP   LOAD
+
+STEP    CLC
+        LDA   ENT
+        ADC   #$27
+        STA   ENT
+        BCC   STEPHI
+        INC   ENT+1
+STEPHI  INC   ECNT
+        JMP   NEXTENT
+
+DONEDIR LDY   #2
+        LDA   $1000,Y
+        STA   BLOCK
+        INY
+        LDA   $1000,Y
+        STA   BLOCK+1
+        ORA   BLOCK
+        BNE   MOREDIR
+        JMP   FAIL
+MOREDIR JMP   NEXTDIR
+
+* Keep the file below $BF00. $9F00 bytes fits.
+LOAD    LDA   LEFT+2
+        BNE   CAP
+        LDA   LEFT+1
+        CMP   #$9F
+        BCC   NOCAP
+        BNE   CAP
+        LDA   LEFT
+        BEQ   NOCAP
+CAP     LDA   #0
+        STA   LEFT
+        STA   LEFT+2
+        LDA   #$9F
+        STA   LEFT+1
+NOCAP   LDA   #$00
+        STA   DEST
+        LDA   #$20
+        STA   DEST+1
+        LDA   KIND
+        CMP   #1
+        BEQ   SEED
+        CMP   #2
+        BEQ   SAP
+        CMP   #3
+        BEQ   TREE
+        JMP   FAIL
+
+SEED    LDA   KEY
+        STA   BLOCK
+        LDA   KEY+1
+        STA   BLOCK+1
+        JSR   ONEBLK
+        JMP   $2000
+
+SAP     LDA   KEY
+        STA   BLOCK
+        LDA   KEY+1
+        STA   BLOCK+1
+        JSR   READIDX
+        LDA   #0
+        STA   IDX
+SAPN    LDX   IDX
+        LDA   $1000,X
+        STA   BLOCK
+        LDA   $1100,X
+        STA   BLOCK+1
+        JSR   ONEBLK
+        INC   IDX
+        BNE   SAPN
+        JMP   $2000
+
+TREE    LDA   KEY
+        STA   BLOCK
+        LDA   KEY+1
+        STA   BLOCK+1
+        LDA   #0
+        STA   BUF
+        LDA   #$12
+        STA   BUF+1
+        JSR   RDBLK
+        BCC   TREEG
+        JMP   FAIL
+TREEG   LDA   #0
+        STA   MIDX
+TNXT    LDX   MIDX
+        LDA   $1200,X
+        STA   BLOCK
+        LDA   $1300,X
+        STA   BLOCK+1
+        ORA   BLOCK
+        BEQ   TZERO
+        JSR   READIDX
+        LDA   #0
+        STA   IDX
+TN      LDX   IDX
+        LDA   $1000,X
+        STA   BLOCK
+        LDA   $1100,X
+        STA   BLOCK+1
+        JSR   ONEBLK
+        INC   IDX
+        BNE   TN
+        JMP   TSTEP
+TZERO   LDA   #0
+        STA   IDX
+TZ      LDA   #0
+        STA   BLOCK
+        STA   BLOCK+1
+        JSR   ONEBLK
+        INC   IDX
+        BNE   TZ
+TSTEP   INC   MIDX
+        BNE   TNXT
+        JMP   $2000
+
+READIDX LDA   #0
+        STA   BUF
+        LDA   #$10
+        STA   BUF+1
+        JSR   RDBLK
+        BCC   IDXOK
+        JMP   FAIL
+IDXOK   RTS
+
+* One data block. A zero block number is a hole.
+* Jump to $2000 once the requested length is in memory.
+ONEBLK  LDA   LEFT
+        ORA   LEFT+1
+        ORA   LEFT+2
+        BNE   MORE
+        JMP   $2000
+MORE    LDA   BLOCK
+        ORA   BLOCK+1
+        BEQ   ZERO
+        LDA   DEST
+        STA   BUF
+        LDA   DEST+1
+        STA   BUF+1
+        JSR   RDBLK
+        BCC   ADV
+        JMP   FAIL
+ZERO    LDA   DEST+1
+        STA   Z1+2
+        CLC
+        ADC   #1
+        STA   Z2+2
+        LDY   #0
+        TYA
+Z1      STA   $2000,Y
+        INY
+        BNE   Z1
+Z2      STA   $2100,Y
+        INY
+        BNE   Z2
+ADV     LDA   LEFT+2
+        BNE   FULL
+        LDA   LEFT+1
+        CMP   #2
+        BCS   FULL
+        JMP   $2000
+FULL    INC   DEST+1
+        INC   DEST+1
+        LDA   LEFT+1
+        SEC
+        SBC   #2
+        STA   LEFT+1
+        BCS   ADVD
+        DEC   LEFT+2
+ADVD    RTS
+
+GETBYT  LDA   ENT
+        STA   GB+1
+        LDA   ENT+1
+        STA   GB+2
+GB      LDA   $1000,Y
+        RTS
+
+RDBLK   LDA   $CFFF
+        LDA   #1
+        STA   $42
+        LDA   UNIT
+        STA   $43
+        LDA   BUF
+        STA   $44
+        LDA   BUF+1
+        STA   $45
+        LDA   BLOCK
+        STA   $46
+        LDA   BLOCK+1
+        STA   $47
+CALL    JSR   $C000
+        RTS
+
+FAIL    LDY   #0
+PR      LDA   MSG,Y
+        BEQ   HANG
+        JSR   $FDED
+        INY
+        BNE   PR
+HANG    JMP   HANG
+
+MSG     HEX   CE,CF,A0,D0,D2,CF,C4,CF,D3,8D,00
+NAME    HEX   50524F444F53
+
+UNIT    DS    1
+SLOT    DS    1
+BLOCK   DS    2
+BUF     DS    2
+ENT     DS    2
+ECNT    DS    1
+EMAX    DS    1
+STOR    DS    1
+NLEN    DS    1
+KIND    DS    1
+KEY     DS    2
+LEFT    DS    3
+DEST    DS    2
+IDX     DS    1
+MIDX    DS    1
+
+        DS    $0C00-*
diff --git a/boot/pack.py b/boot/pack.py
new file mode 100644
index 0000000..9b29a1c
--- /dev/null
+++ b/boot/pack.py
@@ -0,0 +1,515 @@
+#!/usr/bin/env python3
+"""Pack the ProDOS 8 kernel and BASIC.SYSTEM, and check boot.2mg.
+
+The assembler concatenates each PROC. The listing PC is the address the
+bytes occupy. This script places those bytes at the file offsets the
+ProDOS 8 loader expects.
+
+  python3 boot/pack.py join-basic -o OUT LOADER MAIN GLOBALS
+  python3 boot/pack.py prodos OUT mli.lst ram.lst clock.lst
+  python3 boot/pack.py basic OUT basic.lst --oracle BASIC.SYSTEM
+  python3 boot/pack.py check IMAGE PRODOS BASIC.SYSTEM
+"""
+
+import argparse
+import sys
+
+PRODOS_SIZE = 0x4300
+# Apple's BASIC.SYSTEM is $2800. The alias page at $BD00 adds one page,
+# and the globals move from file $2700 to $2800.
+ORACLE_BASIC_SIZE = 0x2800
+BASIC_SIZE = 0x2900
+# LDX #CILEN in the loader. $23 becomes $24 so the alias page is copied.
+CILEN_OFF = 0x56
+# LDX #ZLDREND-COPRIT-1. The copyright line grew from 32 to 34 characters.
+COPRIT_LEN_OFF = 0x1AC
+# Third instruction of the globals page: JMP EXTRNCMD target.
+EXTRN_LO = 7
+BLOCK = 512
+
+
+class PackError(Exception):
+    pass
+
+
+def die(msg):
+    raise PackError(msg)
+
+
+def read_text(path):
+    data = open(path, "rb").read()
+    data = data.replace(b"\r\n", b"\n").replace(b"\r", b"\n")
+    return data.decode("latin1")
+
+
+def strip_code(line):
+    """Drop an APW ';' comment. A full-line '*' comment stays a comment."""
+    if line.lstrip().startswith("*"):
+        return None
+    out = []
+    sq = False
+    dq = False
+    for c in line:
+        if not sq and not dq and c == ";":
+            break
+        if not sq and not dq:
+            if c == "'":
+                sq = True
+            elif c == '"':
+                dq = True
+        elif sq and c == "'":
+            sq = False
+        elif dq and c == '"':
+            dq = False
+        out.append(c)
+    return "".join(out).strip()
+
+
+def is_end_directive(line):
+    body = strip_code(line.rstrip("\n"))
+    if body is None:
+        return False
+    parts = body.split()
+    if len(parts) == 1 and parts[0].upper() == "END":
+        return True
+    if len(parts) == 2 and parts[1].upper() == "END":
+        return True
+    return False
+
+
+def cmd_join_basic(out_path, sources):
+    chunks = ["* Assembler: APW\n", "        org $2000\n"]
+    for path in sources:
+        text = read_text(path)
+        kept = []
+        for line in text.split("\n"):
+            if is_end_directive(line):
+                continue
+            kept.append(line)
+        body = "\n".join(kept)
+        if body and not body.endswith("\n"):
+            body += "\n"
+        chunks.append(body)
+    open(out_path, "w", encoding="latin1", newline="\n").write("".join(chunks))
+
+
+def parse_hex_bytes(field):
+    out = []
+    i = 0
+    while i + 2 <= len(field):
+        tok = field[i:i + 2]
+        if tok == "..":
+            break
+        if len(tok) != 2 or any(c not in "0123456789ABCDEF" for c in tok):
+            break
+        if i + 2 < len(field) and field[i + 2] not in " .":
+            break
+        out.append(int(tok, 16))
+        i += 3
+    return out
+
+
+def parse_listing(path):
+    text = read_text(path)
+    lines = text.split("\n")
+    if not lines or "bytes=" not in lines[0] or "errors=" not in lines[0]:
+        die(path + ": not a qasm listing")
+    header = lines[0]
+    try:
+        nbytes = int(header.split("bytes=", 1)[1].split()[0])
+        nerr = int(header.split("errors=", 1)[1].split()[0])
+    except (IndexError, ValueError):
+        die(path + ": bad listing header")
+    if nerr != 0:
+        shown = []
+        for line in lines:
+            if line.startswith(";  "):
+                shown.append(line[3:].rstrip())
+            if len(shown) >= 12:
+                break
+        extra = ""
+        if shown:
+            extra = "\n" + "\n".join(shown)
+        die(path + ": listing reports " + str(nerr) + " errors" + extra)
+
+    mem = {}
+    count = 0
+    i = 0
+    while i < len(lines):
+        line = lines[i]
+        if len(line) < 8 or not _is_pc_line(line):
+            i += 1
+            continue
+        pc = int(line[0:6], 16)
+        field = line[8:24] if len(line) >= 24 else line[8:]
+        chunk = parse_hex_bytes(field)
+        i += 1
+        while i < len(lines) and lines[i].startswith("        "):
+            more = parse_hex_bytes(lines[i][8:])
+            if not more:
+                break
+            chunk.extend(more)
+            i += 1
+        for n, b in enumerate(chunk):
+            addr = pc + n
+            # `org *-n` rewrites a placeholder (jmp 0 / jsr 0). The same byte
+            # is not a second piece of code. A different byte is a real overlap.
+            if addr in mem and mem[addr] != b:
+                die("%s: overlap at $%06X" % (path, addr))
+            mem[addr] = b
+            count += 1
+    if count != nbytes:
+        die("%s: parsed %d bytes, listing says %d" % (path, count, nbytes))
+    return mem
+
+
+def _is_pc_line(line):
+    if len(line) < 8 or line[6:8] != "  ":
+        return False
+    for c in line[0:6]:
+        if c not in "0123456789ABCDEF":
+            return False
+    return True
+
+
+def take_range(mem, name, start, maxlen, exact):
+    end = start
+    limit = start + maxlen
+    while end < limit and end in mem:
+        end += 1
+    holes = [a for a in mem if start <= a < limit and a >= end]
+    if holes:
+        die("%s: hole at $%04X before $%04X" % (name, end, holes[0]))
+    n = end - start
+    if n == 0:
+        die("%s: no bytes at $%04X" % (name, start))
+    if exact and n != maxlen:
+        die("%s: $%X bytes at $%04X, expected $%X" % (name, n, start, maxlen))
+    if n > maxlen:
+        die("%s: $%X bytes exceeds $%X" % (name, n, maxlen))
+    return bytes(mem[start + i] for i in range(n)), set(range(start, end))
+
+
+def place(image, owner, name, blob, offset, slot):
+    if offset < 0 or offset + slot > len(image):
+        die("%s: file slot $%X+$%X does not fit" % (name, offset, slot))
+    if len(blob) > slot:
+        die("%s: $%X bytes does not fit in $%X" % (name, len(blob), slot))
+    for i in range(slot):
+        if owner[offset + i] is not None:
+            die("%s overlaps %s at file offset $%X" % (name, owner[offset + i], offset + i))
+        owner[offset + i] = name
+    image[offset:offset + len(blob)] = blob
+
+
+def pack_ranges(listings, groups, size):
+    """listings is a list of (tag, mem). groups[tag] is the slice list."""
+    image = bytearray(size)
+    owner = [None] * size
+    for tag, mem in listings:
+        seen = set()
+        for name, start, maxlen, offset, exact in groups[tag]:
+            blob, addrs = take_range(mem, tag + " " + name, start, maxlen, exact)
+            place(image, owner, name, blob, offset, maxlen)
+            seen |= addrs
+        stray = sorted(a for a in mem if a not in seen)
+        if stray:
+            die("%s: %d unexpected bytes, first at $%06X" % (tag, len(stray), stray[0]))
+    return bytes(image)
+
+
+# name, runtime PC, exact-or-max length, file offset, exact
+PRODOS_GROUPS = {
+    "mli": [
+        ("PROCONE", 0x2000, 0xC80, 0x0000, True),
+        ("PROCTWO", 0xBF00, 0x100, 0x0E00, True),
+        ("PROCTHREE", 0xDE00, 0x2100, 0x1000, True),
+        ("PROCFOUR", 0xFF9B, 0x65, 0x0D9B, True),
+    ],
+    "ram": [
+        ("RAM2", 0x2C80, 0x80, 0x0C80, False),
+        ("RAM3", 0xFF00, 0x9B, 0x0D00, False),
+        ("RAM1", 0x0200, 0x200, 0x3100, False),
+    ],
+    "clock": [
+        ("CCLOCK", 0xD742, 125, 0x0F80, True),
+    ],
+}
+
+BASIC_GROUPS = {
+    "basic": [
+        ("LOADER", 0x2000, 0x400, 0x0000, True),
+        ("MAIN", 0x9A00, 0x2400, 0x0400, False),
+        ("GLOBALS", 0xBE00, 0x100, 0x2800, False),
+    ],
+}
+
+
+def cmd_prodos(out_path, mli, ram, clock):
+    listings = [
+        ("mli", parse_listing(mli)),
+        ("ram", parse_listing(ram)),
+        ("clock", parse_listing(clock)),
+    ]
+    image = pack_ranges(listings, PRODOS_GROUPS, PRODOS_SIZE)
+    if len(image) != PRODOS_SIZE:
+        die("PRODOS size")
+    open(out_path, "wb").write(image)
+    print("PRODOS: %d bytes ($%X)" % (len(image), len(image)))
+
+
+def pc_of_basic(offset):
+    if offset < 0x400:
+        return 0x2000 + offset
+    if offset < 0x2800:
+        return 0x9A00 + (offset - 0x400)
+    return 0xBE00 + (offset - 0x2800)
+
+
+def _same(image, img_at, oracle, ora_at, n, skip=()):
+    diffs = []
+    for i in range(n):
+        if i in skip:
+            continue
+        if image[img_at + i] == oracle[ora_at + i]:
+            continue
+        if len(diffs) < 8:
+            off = img_at + i
+            diffs.append("  $%04X (pc $%04X): got $%02X want $%02X" % (
+                off, pc_of_basic(off), image[off], oracle[ora_at + i]))
+    return diffs
+
+
+SPLASH_VER = b"            PRODOS BASIC 2.0 "
+SPLASH_COP = b"        COPYRIGHT APPLE  1983-2026"
+
+
+def _splash_span(loader):
+    """Byte range of the two high-bit splash lines in the loader."""
+    text = bytes(b & 0x7F for b in loader)
+    ver = text.find(SPLASH_VER)
+    cop = text.find(SPLASH_COP)
+    if ver < 0 or cop != ver + len(SPLASH_VER):
+        return None
+    return range(ver, cop + len(SPLASH_COP))
+
+
+def cmd_basic(out_path, listing, oracle_path):
+    """Keep Apple's bytes. The loader length, the splash lines, the alias
+    page, and the EXTRNCMD vector are the intended differences."""
+    image = pack_ranges([("basic", parse_listing(listing))], BASIC_GROUPS, BASIC_SIZE)
+    oracle = open(oracle_path, "rb").read()
+    if len(oracle) != ORACLE_BASIC_SIZE:
+        die("oracle is %d bytes, expected %d" % (len(oracle), ORACLE_BASIC_SIZE))
+    if len(image) != BASIC_SIZE:
+        die("BASIC.SYSTEM is %d bytes, expected %d" % (len(image), BASIC_SIZE))
+    diffs = []
+    if not (image[CILEN_OFF] == 0x24 and oracle[CILEN_OFF] == 0x23
+            and image[CILEN_OFF - 1] == 0xA2):
+        diffs.append("  CILEN at $%04X: got $%02X want $24" % (
+            CILEN_OFF, image[CILEN_OFF]))
+    splash = _splash_span(image[:0x400])
+    if splash is None:
+        diffs.append("  splash is not PRODOS BASIC 2.0 / 1983-2026")
+        splash = range(0)
+    coprit_len = len(SPLASH_COP) - 1
+    if not (image[COPRIT_LEN_OFF] == coprit_len
+            and image[COPRIT_LEN_OFF - 1] == 0xA2
+            and oracle[COPRIT_LEN_OFF] == 0x1F):
+        diffs.append("  copyright length at $%04X: got $%02X want $%02X" % (
+            COPRIT_LEN_OFF, image[COPRIT_LEN_OFF], coprit_len))
+    diffs += _same(image, 0, oracle, 0, 0x400,
+                   skip=set(splash) | {CILEN_OFF, COPRIT_LEN_OFF})
+    diffs += _same(image, 0x400, oracle, 0x400, 0x2300)
+    diffs += _same(image, 0x2800, oracle, 0x2700, 0x100, skip=(EXTRN_LO, EXTRN_LO + 1))
+    jmp = image[0x2806:0x2809]
+    target = jmp[1] | (jmp[2] << 8)
+    if jmp[0] != 0x4C or not (0xBD00 <= target < 0xBE00):
+        diffs.append("  EXTRNCMD is %s, want JMP into $BD00" % jmp.hex())
+    if image[0x2700] == 0:
+        diffs.append("  alias page at $BD00 is empty")
+    if diffs:
+        die("BASIC.SYSTEM drifted from the oracle\n" + "\n".join(diffs))
+    open(out_path, "wb").write(image)
+    print("BASIC.SYSTEM: %d bytes, aliases at $%04X" % (len(image), target))
+
+
+def r16(b, off):
+    return b[off] | (b[off + 1] << 8)
+
+
+def r24(b, off):
+    return b[off] | (b[off + 1] << 8) | (b[off + 2] << 16)
+
+
+def r32(b, off):
+    return b[off] | (b[off + 1] << 8) | (b[off + 2] << 16) | (b[off + 3] << 24)
+
+
+def load_2mg(path):
+    file = open(path, "rb").read()
+    if len(file) < 64 or file[0:4] != b"2IMG":
+        die(path + ": not a 2MG image")
+    if r32(file, 0x0C) != 1:
+        die(path + ": not a ProDOS-order image")
+    blocks = r32(file, 0x14)
+    off = r32(file, 0x18)
+    length = r32(file, 0x1C)
+    if blocks != 1600 or off != 64 or length != 1600 * BLOCK:
+        die("%s: expected 1600 blocks at offset 64, got blocks=%d off=%d len=%d" % (
+            path, blocks, off, length))
+    if off + length > len(file):
+        die(path + ": truncated image")
+    data = file[off:off + length]
+    return [data[i * BLOCK:(i + 1) * BLOCK] for i in range(blocks)]
+
+
+def index_ptr(block, i):
+    return block[i] | (block[256 + i] << 8)
+
+
+def read_prodos_file(blocks, storage, key, eof):
+    if storage == 1:
+        if eof > BLOCK or key == 0 or key >= len(blocks):
+            die("bad seedling")
+        return bytes(blocks[key][:eof])
+    if storage not in (2, 3) or key == 0 or key >= len(blocks):
+        die("unsupported storage $%X" % storage)
+    master = blocks[key]
+    out = bytearray(eof)
+    pos = 0
+    while pos < eof:
+        n = eof - pos
+        if n > BLOCK:
+            n = BLOCK
+        index = pos // BLOCK
+        if storage == 2:
+            if index >= 256:
+                die("sapling index")
+            db = index_ptr(master, index)
+        else:
+            sub = index // 256
+            ix = index % 256
+            if sub >= 128:
+                die("tree index")
+            ib = index_ptr(master, sub)
+            if ib == 0:
+                db = 0
+            elif ib >= len(blocks):
+                die("bad index block")
+            else:
+                db = index_ptr(blocks[ib], ix)
+        if db != 0:
+            if db >= len(blocks):
+                die("bad data block")
+            out[pos:pos + n] = blocks[db][:n]
+        pos += n
+    return bytes(out)
+
+
+def volume_files(blocks):
+    files = []
+    b = 2
+    guard = 0
+    while b:
+        if b >= len(blocks) or guard > len(blocks):
+            die("bad directory")
+        guard += 1
+        blk = blocks[b]
+        for i in range(13):
+            if b == 2 and i == 0:
+                continue
+            ent = blk[4 + i * 0x27:4 + (i + 1) * 0x27]
+            storage = ent[0] >> 4
+            if storage == 0:
+                continue
+            nlen = ent[0] & 0x0F
+            name = ent[1:1 + nlen].decode("latin1")
+            files.append({
+                "name": name,
+                "storage": storage,
+                "type": ent[0x10],
+                "key": r16(ent, 0x11),
+                "eof": r24(ent, 0x15),
+                "aux": r16(ent, 0x1F),
+            })
+        b = r16(blk, 2)
+    return files
+
+
+def cmd_check(image, prodos_path, basic_path):
+    blocks = load_2mg(image)
+    vol = blocks[2]
+    nlen = vol[4] & 0x0F
+    name = vol[5:5 + nlen].decode("latin1")
+    if (vol[4] >> 4) != 0x0F or name != "BASIC":
+        die("volume name is %r, expected BASIC" % name)
+    if r16(vol, 0x29) != 1600:
+        die("volume header block count is %d" % r16(vol, 0x29))
+    if vol[0x23] != 0x27 or vol[0x24] != 0x0D:
+        die("directory entry size is not $27 / $0D")
+    if blocks[0][0] != 0xD8 or blocks[0][1] != 0xD8:
+        die("boot block does not start with CLD CLD")
+    files = volume_files(blocks)
+    if len(files) != 2:
+        die("volume has %d files, expected PRODOS and BASIC.SYSTEM" % len(files))
+    expect = [
+        ("PRODOS", 0xFF, 0x0000, PRODOS_SIZE, prodos_path),
+        ("BASIC.SYSTEM", 0xFF, 0x2000, BASIC_SIZE, basic_path),
+    ]
+    for got, (ename, etype, eaux, eeof, host) in zip(files, expect):
+        if got["name"] != ename or got["type"] != etype or got["aux"] != eaux or got["eof"] != eeof:
+            die("%s: type $%02X aux $%04X eof $%X (want %s $%02X $%04X $%X)" % (
+                got["name"], got["type"], got["aux"], got["eof"], ename, etype, eaux, eeof))
+        if got["storage"] != 2:
+            die("%s: storage $%X, expected a sapling" % (ename, got["storage"]))
+        data = read_prodos_file(blocks, got["storage"], got["key"], got["eof"])
+        want = open(host, "rb").read()
+        if data != want:
+            die("%s on the image does not match %s" % (ename, host))
+    print("boot.2mg: BASIC, 1600 blocks, PRODOS $%X, BASIC.SYSTEM $%X" % (
+        PRODOS_SIZE, BASIC_SIZE))
+
+
+def main(argv):
+    p = argparse.ArgumentParser(prog="pack.py")
+    sub = p.add_subparsers(dest="cmd", required=True)
+
+    j = sub.add_parser("join-basic")
+    j.add_argument("-o", required=True)
+    j.add_argument("sources", nargs=3)
+
+    pr = sub.add_parser("prodos")
+    pr.add_argument("out")
+    pr.add_argument("mli")
+    pr.add_argument("ram")
+    pr.add_argument("clock")
+
+    b = sub.add_parser("basic")
+    b.add_argument("out")
+    b.add_argument("listing")
+    b.add_argument("--oracle", required=True)
+
+    c = sub.add_parser("check")
+    c.add_argument("image")
+    c.add_argument("prodos")
+    c.add_argument("basic")
+
+    args = p.parse_args(argv)
+    try:
+        if args.cmd == "join-basic":
+            cmd_join_basic(args.o, args.sources)
+        elif args.cmd == "prodos":
+            cmd_prodos(args.out, args.mli, args.ram, args.clock)
+        elif args.cmd == "basic":
+            cmd_basic(args.out, args.listing, args.oracle)
+        elif args.cmd == "check":
+            cmd_check(args.image, args.prodos, args.basic)
+    except PackError as exc:
+        print("pack.py: " + str(exc), file=sys.stderr)
+        return 1
+    return 0
+
+
+if __name__ == "__main__":
+    sys.exit(main(sys.argv[1:]))
diff --git a/cmake/bump_build.cmake b/cmake/bump_build.cmake
new file mode 100644
index 0000000..83eac82
--- /dev/null
+++ b/cmake/bump_build.cmake
@@ -0,0 +1,73 @@
+# Advance one program's build counter and write the version translation unit.
+# The trigger file is an extra output. The build removes it after linking so
+# the next build runs this script again.
+
+if(NOT DEFINED NAME OR NOT DEFINED MAJOR OR NOT DEFINED MINOR OR NOT DEFINED PATCH
+   OR NOT DEFINED CONFIG OR NOT DEFINED COUNTER OR NOT DEFINED OUT OR NOT DEFINED TRIGGER)
+  message(FATAL_ERROR "bump_build.cmake: NAME, MAJOR, MINOR, PATCH, CONFIG, COUNTER, OUT, and TRIGGER are required")
+endif()
+if(NOT CONFIG MATCHES "^(debug|release)$")
+  message(FATAL_ERROR "bump_build.cmake: CONFIG must be debug or release")
+endif()
+
+set(n 0)
+if(EXISTS "${COUNTER}")
+  file(READ "${COUNTER}" n)
+  string(STRIP "${n}" n)
+endif()
+if(NOT n MATCHES "^[0-9]+$")
+  set(n 0)
+endif()
+math(EXPR n "${n} + 1")
+
+get_filename_component(counter_dir "${COUNTER}" DIRECTORY)
+file(MAKE_DIRECTORY "${counter_dir}")
+get_filename_component(out_dir "${OUT}" DIRECTORY)
+file(MAKE_DIRECTORY "${out_dir}")
+file(WRITE "${COUNTER}" "${n}\n")
+
+set(text "${MAJOR}.${MINOR}.${PATCH} build ${n} ${CONFIG}")
+if(NAME STREQUAL "qasm")
+  file(WRITE "${OUT}"
+"#include \"version.hpp\"
+
+namespace qasm {
+const char *version_string()
+{
+    return \"qasm ${text}\";
+}
+}
+")
+elseif(NAME STREQUAL "qlink")
+  file(WRITE "${OUT}"
+"const char *qlink_version_string()
+{
+    return \"qlink ${text}\";
+}
+")
+elseif(NAME STREQUAL "makeBin")
+  file(WRITE "${OUT}"
+"const char *makebin_version_string()
+{
+    return \"makeBin ${text}\";
+}
+")
+elseif(NAME STREQUAL "qomf")
+  file(WRITE "${OUT}"
+"const char *qomf_version_string()
+{
+    return \"qomf ${text}\";
+}
+")
+elseif(NAME STREQUAL "qpro")
+  file(WRITE "${OUT}"
+"const char *qpro_version_string()
+{
+    return \"qpro ${text}\";
+}
+")
+else()
+  message(FATAL_ERROR "bump_build.cmake: unknown program ${NAME}")
+endif()
+
+file(WRITE "${TRIGGER}" "")
diff --git a/doc/SYNTAX.md b/doc/SYNTAX.md
index 3a67740..a2ba21a 100644
--- a/doc/SYNTAX.md
+++ b/doc/SYNTAX.md
@@ -62,8 +62,9 @@ Order:
    is an error and nothing is assembled.
 2. A marker in the first 40 lines, after high bits are stripped:
    `syntax: ca65`, `syntax ca65`, `!syntax ca65`, or
-   `Assembler: Merlin 32`. `Merlin 32` and `Merlin32` are checked before
-   the single word `Merlin`.
+   `Assembler: Merlin 32`, `Assembler: APW`, or `Assembler: MPW`.
+   `Merlin 32` and `Merlin32` are checked before the single word
+   `Merlin`. `MPW` selects APW. The listing name is `apw`.
 3. A native Merlin file: a `$A0` column tab or a `$8D` line ending, and
    more than four bytes with bit 7 set.
 4. Otherwise, score distinctive tokens on comment-stripped, uppercased
@@ -76,6 +77,7 @@ Order:
 | Merlin | `MX` `XC` `DFB` `DDB` `STRL` `ADRL` `DEND` `DSK` `LUP` `DCI` `FLS` `PMC` `EOM` `DUM` `PUT` `USE` `--^` `MAC` |
 | Merlin 32 | `GEQU` or `GEQ` (also counts as Merlin) |
 | ORCA/M | `LONGA` `LONGI` `ANOP` `MCOPY` `MEND` `PRIVDATA` `ENDC`, or a `DC` lead-in `I1'` `I2'` `I4'` `I1"` `I2"` `C'` `H'` |
+| APW/MPW | No separate score. `ABSADDR`, `MSB`, `CODECHK`, `CODECHECK`, or `INSTIME` selects APW when the winner would otherwise be ORCA/M or Merlin. |
 | LISA | `.OR` `.HS` `.BS` `.EQ` `.DA` `.EN` `.EP` `.AS` `.FI` `.EL` `.DB` `.BY` |
 | ca65 | `.ORG` `.BYTE` `.WORD` `.DWORD` `.FARADDR` `.RES` `.MACRO` `.ENDMACRO` `.P816` `.A8` `.A16` `.I8` `.I16` `.PROC` `.IMPORT` `.EXPORT` `.SEGMENT` `.SETCPU` `.PC02` `.P02` `.FEATURE` `.INCLUDE` `.ALIGN` `.REPEAT` `.ENDPROC` |
 
@@ -84,9 +86,14 @@ so a file that is only `ORG` / `EQU` / `JSR` / `RTS` is Merlin. If the
 Merlin 32 flag is set and Merlin wins, the dialect is Merlin 32. Merlin 32
 uses the same front end and the same encoder as Merlin 16+.
 
+`ABSADDR`, `MSB`, `CODECHK`, `CODECHECK`, or `INSTIME` then selects APW when that
+winner is ORCA/M or Merlin, including a Merlin 32 win. LISA and ca65 keep
+a higher score. A pure ORCA/M file stays ORCA/M. `Assembler: MPW` and
+`--syntax mpw` select APW, and the reported name is `apw`.
+
 Accepted names: `merlin`, `merlin16`, `merlin16+`, `merlin-16`, `merlin32`,
-`merlin-32`, `m32`, `orca`, `orca/m`, `orcam`, `orca-m`, `lisa`, `lisa816`,
-`lisa-816`, `ca65`, `cc65`, `auto`.
+`merlin-32`, `m32`, `orca`, `orca/m`, `orcam`, `orca-m`, `apw`, `mpw`,
+`apw/mpw`, `apw-mpw`, `lisa`, `lisa816`, `lisa-816`, `ca65`, `cc65`, `auto`.
 
 ## What pcode is
 
@@ -294,7 +301,9 @@ The Merlin line parser is used, then a column fix. A trailing `:` on a
 label is removed. A directive written in the label column is shifted into
 the opcode column, so `longa off` at column 0 works. `start anop` stays a
 label plus `ANOP`, because both words are directives and the line is not
-shifted.
+shifted. The line is also left alone when the second field is an instruction
+mnemonic, so a label may be spelled like a directive (`APPEND PHP`,
+`PRINT STA`).
 
 Expressions in operands are algebraic, as above. A `~` followed by a name is a local label (`~loop`) and is scoped between global labels, the same way as a Merlin `:label`. A `~` before a number or parenthesis is bitwise NOT.
 
@@ -336,6 +345,51 @@ the quotes: `dc i1'1,2',i2'$10',c'A',h'0d'` is `01 02 10 00 41 0D`.
 Instruction operands are algebraic in the expression only.
 `jsr bell` stays `JSR bell`.
 
+## APW/MPW
+
+APW is Apple's 65816 assembler. It is the ORCA/M language Apple shipped,
+so this dialect uses the ORCA/M front end. `--syntax apw` and `--syntax
+mpw` both select it. `Assembler: APW` and `Assembler: MPW` do too. The
+listing and the pcode dump say `syntax=apw`.
+
+The MPW IIgs assembler is the other Apple 65816 assembler. The forms
+below that change bytes are accepted on this same dialect. Its `RECORD`
+templates and `STRING PASCAL` or `STRING C` prefixes are not applied:
+those directives are kept and emit no bytes.
+
+Everything in the ORCA/M tables above works. These are the additions.
+`ABSADDR` and `MSB` are applied while the file is lowered, including
+inside a false `IF`, the same way `CASE` is.
+
+| Directive | Treatment |
+| --- | --- |
+| `ABSADDR ON` | `ON`, `YES`, or `1` forces later instruction operands to absolute when they have no `<`, `\|`, or `>` and are not immediate or implied. Any other operand, including `OFF`, clears it. The default is off, which matches ORCA/M. |
+| `MSB ON` | `ON`, `YES`, or `1` sets bit 7 on each later `DC C` character and on each character of a quoted `DC.B` string. The bytes are raw. Any other operand clears it. The default is off, so `DC C` stays ORCA/M ASCII. |
+| `65816` `65C02` `6502` | Selects that CPU, as `MACHINE` does. `OFF`, `NO`, or `0` leaves the CPU alone. An empty operand selects the CPU. |
+| `MACHINE M65816` | The ORCA/M `MACHINE` check. `M65816`, `M65C02`, and `M6502` select that CPU. |
+| `PROC` `FUNC` `MAIN` | Label only, like `START`. They do not open a segment. An operand `temporg expr` or `org expr` (with an optional leading `ENTRY`) is Merlin `ORG` before the label is defined. `ENTRY` itself emits no bytes. |
+| `RECORD` `CODE` | Label only. They do not open a segment. |
+| `ENDP` `ENDPROC` `ENDF` `ENDFUNC` `ENDMAIN` `ENDR` `ENDS` `ENDWITH` | No bytes. They do not stop the file. `END` still does. |
+| `IMPORT` | Merlin `EXT`. Each name is 0. |
+| `EXPORT` | No bytes. A label on the line is kept. There is no export record yet. |
+| `SET` | Merlin `EQU`. |
+| `DC.B` `DCB` | One byte per comma-separated expression (`DFB`). An item that is only a single- or double-quoted string emits one byte per character. `MSB ON` sets bit 7 on those bytes. A one-character quote used inside a larger expression stays an expression. |
+| `DC.W` | One word per expression (`DA`). |
+| `DC.L` | Four-byte values (`ADRL`). |
+| `DS.B` | Merlin `DS`. The count is a number of bytes. A second comma-separated value is the fill. |
+| `DS.W` | Merlin `DS` of twice the count (words). |
+| `DS.L` | Merlin `DS` of four times the count (longs). |
+| `INCLUDE` | Include and assemble, the same as `COPY`. |
+| `CODECHK` `CODECHECK` `DATACHECK` `DATACHK` `DYNCHK` `EXPAND` `GEN` `IEEE` `INSTIME` `LIST` `NUMSEX` `OBJCASE` `PRINTER` `SYMBOL` `TITLE` `STRING` `BLANKS` `PRINT` `SEG` `SEGATTR` `PAGESIZE` `SPACE` | No bytes. A label is kept. |
+| `KIND` `RENAME` `SETCOM` `DIRECT` | No bytes. A label is kept. The same lines are errors under ORCA/M. |
+
+A directive written in the label column is shifted when it is one of
+these, the same way an ORCA/M directive is. A second field that is an
+instruction mnemonic keeps the first word as the label.
+
+An immediate `#name` is that symbol, including a name that starts with `A`.
+Merlin's `#Aexpr` bank prefix is not applied. The bank byte is `^`.
+
 ## LISA
 
 The Merlin line parser is used. A trailing `:` on a label is removed. A
@@ -416,8 +470,9 @@ without storing bytes. The default origin is `$8000` when no `ORG` and no
 `REL` ran. `REL` with no `ORG` records origin 0.
 
 `DSK` or `SAV` names the output file when `-o` is absent. Otherwise the
-output is `<source>.bin`. The listing is `<source>.lst` unless `-l` or
-`--no-lst` is set. `TYP` changes the type printed in the status line and
+output is `<source>.bin`. A listing file is written only with `-l FILE`.
+`FILE` may be `-` or `stdout` to write the listing to standard output.
+`--no-lst` turns that listing off. `TYP` changes the type printed in the status line and
 stored on `Result`. It does not wrap the bytes in an OMF record.
 
 The pcode dump is one line per operation: file, line, op name, label,
@@ -436,6 +491,14 @@ These are properties of this assembler, not of the original dialects.
   are one flat PC. They do not change the origin.
 - ORCA/M conditional macro language is rejected: `AIF`, `AGO`, `SETA`,
   `LCLA`, and the related directives listed above.
+- APW/MPW `ABSADDR` and `MSB` take effect while the file is lowered, so
+  a false `IF` does not hide them. `KIND`, `RENAME`, `SETCOM`, and
+  `DIRECT` are ignored for APW/MPW and are errors for ORCA/M.
+- MPW `RECORD` templates are not expanded, and `STRING PASCAL` or
+  `STRING C` does not add a length byte or a terminator. `DC.W` and
+  `DC.L` take comma-separated expressions, not a quoted character
+  string. A quoted `DC.B` item is raw bytes. Use ORCA/M `DC C` for a
+  typed character constant on the same line as other `DC` types.
 - ca65 anonymous labels (`:`, `:+`, `:-`), `.ELSEIF`, and scoped `.PROC`
   / `.LOCAL` symbols are not implemented. `.LOCAL` is ignored.
 - ca65 `.SMART`, `.FEATURE`, and listing controls do not change encoding
diff --git a/src/makebin/main.cpp b/src/makebin/main.cpp
new file mode 100644
index 0000000..e230b44
--- /dev/null
+++ b/src/makebin/main.cpp
@@ -0,0 +1,179 @@
+/* makeBin: raw image from an OMF load file. */
+
+#include "makebin.hpp"
+
+#include <cstdio>
+#include <fstream>
+#include <iostream>
+#include <string>
+#include <vector>
+
+const char *makebin_version_string();
+
+namespace {
+
+void usage()
+{
+    std::cerr
+        << "usage: makeBin [options] loadfile [loadfile...]\n"
+        << "  -o FILE            output image (one load file only; - or stdout)\n"
+        << "  -org ADDR          address of the first output byte ($2000, 0x2000, or hex)\n"
+        << "                     default: the lowest segment address\n"
+        << "  -V, --version      print version and exit\n"
+        << "  -h, --help         print this help and exit\n"
+        << "  With no -o, each load file is replaced by its raw image.\n";
+}
+
+bool is_stdout_name(const std::string &path)
+{
+    if (path == "-") return true;
+    if (path.size() != 6) return false;
+    const char *s = "stdout";
+    for (size_t i = 0; i < 6; i++) {
+        char c = path[i];
+        if (c >= 'A' && c <= 'Z') c = static_cast<char>(c - 'A' + 'a');
+        if (c != s[i]) return false;
+    }
+    return true;
+}
+
+bool read_file(const std::string &path, std::vector<uint8_t> &buf, std::string &err)
+{
+    std::ifstream in(path, std::ios::binary);
+    if (!in) {
+        err = path + ": cannot open";
+        return false;
+    }
+    buf.assign(std::istreambuf_iterator<char>(in), std::istreambuf_iterator<char>());
+    return true;
+}
+
+bool write_file(const std::string &path, const std::vector<uint8_t> &bytes, std::string &err)
+{
+    std::ofstream out(path, std::ios::binary);
+    if (!out) {
+        err = path + ": cannot write";
+        return false;
+    }
+    if (!bytes.empty())
+        out.write(reinterpret_cast<const char *>(bytes.data()),
+                  static_cast<std::streamsize>(bytes.size()));
+    if (!out) {
+        err = path + ": cannot write";
+        return false;
+    }
+    return true;
+}
+
+bool write_stdout(const std::vector<uint8_t> &bytes)
+{
+    if (bytes.empty()) return true;
+    size_t n = std::fwrite(bytes.data(), 1, bytes.size(), stdout);
+    return n == bytes.size() && std::fflush(stdout) == 0;
+}
+
+void print_summary(std::ostream &out, const std::string &src, const qasm::BinImage &image,
+                   const std::string &dest)
+{
+    char org[16];
+    std::snprintf(org, sizeof(org), "%06X", image.org);
+    out << src << ": " << image.bytes.size() << " bytes at $" << org << " -> " << dest << "\n";
+}
+
+} // namespace
+
+int main(int argc, char **argv)
+{
+    std::vector<std::string> files;
+    std::string out_path;
+    bool out_set = false;
+    bool org_set = false;
+    uint32_t org = 0;
+
+    for (int i = 1; i < argc; i++) {
+        std::string a = argv[i];
+        if (a == "-h" || a == "--help") {
+            usage();
+            return 0;
+        }
+        if (a == "-V" || a == "--version") {
+            std::cout << makebin_version_string() << "\n";
+            return 0;
+        }
+        if (a == "-o" && i + 1 < argc) {
+            out_path = argv[++i];
+            out_set = true;
+        } else if (a == "-org" && i + 1 < argc) {
+            std::string err;
+            if (!qasm::parse_address(argv[++i], org, err)) {
+                std::cerr << err << "\n";
+                return 2;
+            }
+            org_set = true;
+        } else if (!a.empty() && a[0] == '-') {
+            std::cerr << "unknown option " << a << "\n";
+            usage();
+            return 2;
+        } else {
+            files.push_back(a);
+        }
+    }
+    if (files.empty()) {
+        usage();
+        return 2;
+    }
+    if (out_set && files.size() != 1) {
+        std::cerr << "-o applies to a single load file\n";
+        return 2;
+    }
+
+    int rc = 0;
+    for (const auto &path : files) {
+        std::vector<uint8_t> buf;
+        std::string err;
+        if (!read_file(path, buf, err)) {
+            std::cerr << err << "\n";
+            rc = 1;
+            continue;
+        }
+        qasm::OmfFile file;
+        if (!qasm::omf_read(buf, file, err)) {
+            std::cerr << path << ": " << err << "\n";
+            rc = 1;
+            continue;
+        }
+        qasm::BinImage image;
+        if (!qasm::make_bin(file, org_set, org, image, err)) {
+            std::cerr << path << ": " << err << "\n";
+            rc = 1;
+            continue;
+        }
+
+        bool to_stdout = out_set && is_stdout_name(out_path);
+        std::string dest = to_stdout ? "stdout" : (out_set ? out_path : path);
+        if (to_stdout) {
+            if (!write_stdout(image.bytes)) {
+                std::cerr << "stdout: cannot write\n";
+                rc = 1;
+                continue;
+            }
+            print_summary(std::cerr, path, image, dest);
+            continue;
+        }
+        if (!out_set || dest == path) {
+            std::string tmp = path + ".makebin-tmp";
+            if (!write_file(tmp, image.bytes, err) || std::rename(tmp.c_str(), path.c_str()) != 0) {
+                std::remove(tmp.c_str());
+                std::cerr << (err.empty() ? path + ": cannot replace" : err) << "\n";
+                rc = 1;
+                continue;
+            }
+        } else if (!write_file(dest, image.bytes, err)) {
+            std::cerr << err << "\n";
+            rc = 1;
+            continue;
+        }
+        print_summary(std::cout, path, image, dest);
+    }
+    return rc;
+}
diff --git a/src/makebin/makebin.cpp b/src/makebin/makebin.cpp
new file mode 100644
index 0000000..0ec5ec6
--- /dev/null
+++ b/src/makebin/makebin.cpp
@@ -0,0 +1,146 @@
+#include "makebin.hpp"
+
+#include <algorithm>
+#include <cctype>
+#include <cstddef>
+#include <cstdio>
+#include <string>
+
+namespace qasm {
+namespace {
+
+constexpr uint64_t kMaxImage = 16ull * 1024ull * 1024ull;
+
+std::string hex_addr(uint32_t v)
+{
+    char b[16];
+    std::snprintf(b, sizeof(b), "$%X", v);
+    return b;
+}
+
+std::string seg_label(const OmfSeg &s, size_t index)
+{
+    if (!s.name.empty()) return s.name;
+    return "segment " + std::to_string(index + 1);
+}
+
+} // namespace
+
+bool parse_address(const std::string &text, uint32_t &out, std::string &err)
+{
+    std::string s = text;
+    size_t a = 0;
+    while (a < s.size() && std::isspace(static_cast<unsigned char>(s[a]))) a++;
+    size_t b = s.size();
+    while (b > a && std::isspace(static_cast<unsigned char>(s[b - 1]))) b--;
+    s = s.substr(a, b - a);
+    if (s.empty()) {
+        err = "missing address";
+        return false;
+    }
+    if (s[0] == '$') s.erase(s.begin());
+    else if (s.size() > 2 && s[0] == '0' && (s[1] == 'x' || s[1] == 'X')) s.erase(0, 2);
+    if (s.empty()) {
+        err = "missing address";
+        return false;
+    }
+    uint64_t v = 0;
+    for (char c : s) {
+        int d;
+        if (c >= '0' && c <= '9') d = c - '0';
+        else if (c >= 'a' && c <= 'f') d = c - 'a' + 10;
+        else if (c >= 'A' && c <= 'F') d = c - 'A' + 10;
+        else {
+            err = "bad address " + text;
+            return false;
+        }
+        v = (v << 4) | static_cast<uint64_t>(d);
+        if (v > 0xFFFFFFFFull) {
+            err = "address does not fit in 32 bits";
+            return false;
+        }
+    }
+    out = static_cast<uint32_t>(v);
+    return true;
+}
+
+bool make_bin(const OmfFile &file, bool org_set, uint32_t org, BinImage &out, std::string &err)
+{
+    out = BinImage{};
+    if (file.segs.empty()) {
+        err = "OMF file has no segments";
+        return false;
+    }
+    if (file.object) {
+        err = "OMF file is an object, not a load file";
+        return false;
+    }
+    for (size_t i = 0; i < file.segs.size(); i++) {
+        const OmfSeg &s = file.segs[i];
+        if (!s.relocs.empty() || !s.fixups.empty()) {
+            err = "segment " + seg_label(s, i) + " still has relocations";
+            return false;
+        }
+    }
+
+    bool any = false;
+    uint32_t low = 0;
+    for (const auto &s : file.segs) {
+        if (s.image.empty()) continue;
+        if (!any || s.org < low) low = s.org;
+        any = true;
+    }
+    if (!any) {
+        out.org = org_set ? org : 0;
+        return true;
+    }
+    uint32_t base = org_set ? org : low;
+
+    struct Span {
+        uint64_t at = 0;
+        size_t index = 0;
+    };
+    std::vector<Span> spans;
+    uint64_t span = 0;
+    for (size_t i = 0; i < file.segs.size(); i++) {
+        const OmfSeg &s = file.segs[i];
+        if (s.image.empty()) continue;
+        if (s.org < base) {
+            err = "segment " + seg_label(s, i) + " starts at " + hex_addr(s.org) +
+                  ", before org " + hex_addr(base);
+            return false;
+        }
+        uint64_t at = static_cast<uint64_t>(s.org) - base;
+        uint64_t end = at + s.image.size();
+        if (end > kMaxImage) {
+            err = "image is larger than 16MB";
+            return false;
+        }
+        spans.push_back({at, i});
+        if (end > span) span = end;
+    }
+    std::sort(spans.begin(), spans.end(),
+              [](const Span &a, const Span &b) { return a.at < b.at; });
+    uint64_t covered = 0;
+    size_t prev = 0;
+    for (size_t n = 0; n < spans.size(); n++) {
+        const Span &sp = spans[n];
+        if (n > 0 && sp.at < covered) {
+            err = "segment " + seg_label(file.segs[sp.index], sp.index) + " overlaps segment " +
+                  seg_label(file.segs[prev], prev);
+            return false;
+        }
+        covered = sp.at + file.segs[sp.index].image.size();
+        prev = sp.index;
+    }
+
+    out.org = base;
+    out.bytes.assign(static_cast<size_t>(span), 0);
+    for (const auto &sp : spans) {
+        const auto &img = file.segs[sp.index].image;
+        std::copy(img.begin(), img.end(), out.bytes.begin() + static_cast<std::ptrdiff_t>(sp.at));
+    }
+    return true;
+}
+
+} // namespace qasm
diff --git a/src/makebin/makebin.hpp b/src/makebin/makebin.hpp
new file mode 100644
index 0000000..9052f60
--- /dev/null
+++ b/src/makebin/makebin.hpp
@@ -0,0 +1,27 @@
+#pragma once
+
+/* Flatten an OMF load file into the raw image MakeBinIIGS writes.
+   Byte 0 of the image is `org`. Gaps between segments are zero.
+   A segment below `org`, an object file, or a segment that still has
+   relocations is an error. */
+
+#include "omf.hpp"
+
+#include <cstdint>
+#include <string>
+#include <vector>
+
+namespace qasm {
+
+struct BinImage {
+    uint32_t org = 0;
+    std::vector<uint8_t> bytes;
+};
+
+/* `org_set` false uses the lowest segment address as byte 0. */
+bool make_bin(const OmfFile &file, bool org_set, uint32_t org, BinImage &out, std::string &err);
+
+/* `$2000`, `0x2000`, or hex digits. */
+bool parse_address(const std::string &text, uint32_t &out, std::string &err);
+
+} // namespace qasm
diff --git a/src/omf/omf.cpp b/src/omf/omf.cpp
new file mode 100644
index 0000000..7c95e2d
--- /dev/null
+++ b/src/omf/omf.cpp
@@ -0,0 +1,600 @@
+#include "omf.hpp"
+
+namespace qasm {
+namespace {
+
+void put_u8(std::vector<uint8_t> &b, uint8_t v) { b.push_back(v); }
+
+void put_u16(std::vector<uint8_t> &b, uint16_t v)
+{
+    b.push_back(static_cast<uint8_t>(v & 0xFF));
+    b.push_back(static_cast<uint8_t>((v >> 8) & 0xFF));
+}
+
+void put_u32(std::vector<uint8_t> &b, uint32_t v)
+{
+    b.push_back(static_cast<uint8_t>(v & 0xFF));
+    b.push_back(static_cast<uint8_t>((v >> 8) & 0xFF));
+    b.push_back(static_cast<uint8_t>((v >> 16) & 0xFF));
+    b.push_back(static_cast<uint8_t>((v >> 24) & 0xFF));
+}
+
+void patch_u32(std::vector<uint8_t> &b, size_t at, uint32_t v)
+{
+    b[at] = static_cast<uint8_t>(v & 0xFF);
+    b[at + 1] = static_cast<uint8_t>((v >> 8) & 0xFF);
+    b[at + 2] = static_cast<uint8_t>((v >> 16) & 0xFF);
+    b[at + 3] = static_cast<uint8_t>((v >> 24) & 0xFF);
+}
+
+uint32_t get_u32(const std::vector<uint8_t> &b, size_t at)
+{
+    return static_cast<uint32_t>(b[at]) |
+           (static_cast<uint32_t>(b[at + 1]) << 8) |
+           (static_cast<uint32_t>(b[at + 2]) << 16) |
+           (static_cast<uint32_t>(b[at + 3]) << 24);
+}
+
+uint16_t get_u16(const std::vector<uint8_t> &b, size_t at)
+{
+    return static_cast<uint16_t>(b[at] | (b[at + 1] << 8));
+}
+
+bool put_label(std::vector<uint8_t> &b, const std::string &name, std::string &err)
+{
+    if (name.size() > 255) {
+        err = "OMF label longer than 255 bytes";
+        return false;
+    }
+    put_u8(b, static_cast<uint8_t>(name.size()));
+    b.insert(b.end(), name.begin(), name.end());
+    return true;
+}
+
+/* v1 TYPE packs the segment type and three attribute bits.
+   Dynamic is $8000, private $4000, position-independent $2000.
+   The other v2 attribute bits do not fit. */
+bool v1_type(uint16_t kind, uint8_t &type, std::string &err)
+{
+    if (kind & 0x1F00) {
+        err = "OMF 1.0 cannot store this segment kind";
+        return false;
+    }
+    type = static_cast<uint8_t>(kind & 0x1F);
+    if (kind & 0x2000) type = static_cast<uint8_t>(type | 0x20);
+    if (kind & 0x4000) type = static_cast<uint8_t>(type | 0x40);
+    if (kind & 0x8000) type = static_cast<uint8_t>(type | 0x80);
+    return true;
+}
+
+bool write_expr(std::vector<uint8_t> &b, const OmfFix &fx, std::string &err)
+{
+    put_u8(b, 0x83); /* push label value */
+    if (!put_label(b, fx.symbol, err)) return false;
+    if (fx.addend != 0) {
+        put_u8(b, 0x81); /* push constant */
+        put_u32(b, static_cast<uint32_t>(fx.addend));
+        put_u8(b, 0x01); /* add */
+    }
+    if (fx.divisor == 256 || fx.divisor == 65536) {
+        put_u8(b, 0x81);
+        put_u32(b, static_cast<uint32_t>(fx.divisor));
+        put_u8(b, 0x04); /* integer divide */
+    } else if (fx.divisor != 1) {
+        err = "OMF fixup divisor is not 1, 256, or 65536";
+        return false;
+    }
+    put_u8(b, 0x00); /* end expression */
+    return true;
+}
+
+bool write_object_body(std::vector<uint8_t> &b, const OmfSeg &seg, int version, std::string &err)
+{
+    std::vector<OmfSym> syms = seg.syms;
+    /* Stable by offset; equal offsets keep source order. */
+    for (size_t i = 1; i < syms.size(); i++) {
+        OmfSym s = syms[i];
+        size_t j = i;
+        while (j > 0 && syms[j - 1].offset > s.offset) {
+            syms[j] = syms[j - 1];
+            j--;
+        }
+        syms[j] = s;
+    }
+    size_t pos = 0, si = 0;
+    while (pos < seg.image.size() || si < syms.size()) {
+        while (si < syms.size() && syms[si].offset <= pos) {
+            if (syms[si].offset != pos) {
+                err = "symbol offset is past the bytes already written";
+                return false;
+            }
+            put_u8(b, syms[si].global ? 0xE6 : 0xEF);
+            if (!put_label(b, syms[si].name, err)) return false;
+            if (version <= 1) {
+                put_u8(b, 0); /* length unknown */
+            } else {
+                put_u16(b, 0);
+            }
+            put_u8(b, 0x4E); /* type 'N' */
+            put_u8(b, 0);
+            si++;
+        }
+        if (pos >= seg.image.size()) break;
+        size_t next = seg.image.size();
+        if (si < syms.size() && syms[si].offset < next) next = syms[si].offset;
+        while (pos < next) {
+            size_t n = next - pos;
+            if (n > 0xDF) n = 0xDF;
+            put_u8(b, static_cast<uint8_t>(n));
+            b.insert(b.end(), seg.image.begin() + static_cast<std::ptrdiff_t>(pos),
+                     seg.image.begin() + static_cast<std::ptrdiff_t>(pos + n));
+            pos += n;
+        }
+    }
+    for (const auto &fx : seg.fixups) {
+        if (fx.width < 1 || fx.width > 4) {
+            err = "fixup width must be 1 to 4";
+            return false;
+        }
+        put_u8(b, 0xEE); /* RELEXPR */
+        put_u8(b, fx.width);
+        put_u32(b, fx.at);
+        if (!write_expr(b, fx, err)) return false;
+    }
+    put_u8(b, 0x00); /* END */
+    return true;
+}
+
+bool write_load_body(std::vector<uint8_t> &b, const OmfSeg &seg, std::string &err)
+{
+    put_u8(b, 0xF2); /* LCONST */
+    put_u32(b, static_cast<uint32_t>(seg.image.size()));
+    b.insert(b.end(), seg.image.begin(), seg.image.end());
+    for (const auto &r : seg.relocs) {
+        if (r.width < 1 || r.width > 4) {
+            err = "relocation width must be 1 to 4";
+            return false;
+        }
+        if (r.file == 0) {
+            put_u8(b, 0xE2); /* RELOC */
+            put_u8(b, r.width);
+            put_u8(b, static_cast<uint8_t>(r.shift));
+            put_u32(b, r.at);
+            put_u32(b, r.disp);
+        } else {
+            put_u8(b, 0xE3); /* INTERSEG */
+            put_u8(b, r.width);
+            put_u8(b, static_cast<uint8_t>(r.shift));
+            put_u32(b, r.at);
+            put_u16(b, r.file);
+            put_u16(b, r.seg);
+            put_u32(b, r.disp);
+        }
+    }
+    put_u8(b, 0x00);
+    return true;
+}
+
+struct Ev {
+    bool is_sym = false;
+    std::string sym;
+    int32_t addend = 0;
+    int32_t divisor = 1;
+};
+
+bool read_label(const std::vector<uint8_t> &in, size_t &i, size_t end, int lablen,
+                std::string &name, std::string &err)
+{
+    size_t n = static_cast<size_t>(lablen);
+    if (lablen == 0) {
+        if (i >= end) {
+            err = "OMF label runs off the record";
+            return false;
+        }
+        n = in[i++];
+    }
+    if (i + n > end) {
+        err = "OMF label runs off the record";
+        return false;
+    }
+    name.assign(reinterpret_cast<const char *>(&in[i]), n);
+    /* Fixed-width names are space padded. */
+    while (!name.empty() && name.back() == ' ') name.pop_back();
+    i += n;
+    return true;
+}
+
+bool read_expr(const std::vector<uint8_t> &in, size_t &i, size_t end, int lablen,
+               OmfFix &fx, std::string &err)
+{
+    std::vector<Ev> st;
+    while (i < end) {
+        uint8_t op = in[i++];
+        if (op == 0x00) {
+            if (st.size() != 1 || !st[0].is_sym) {
+                err = "OMF expression is not a single label";
+                return false;
+            }
+            fx.symbol = st[0].sym;
+            fx.addend = st[0].addend;
+            fx.divisor = st[0].divisor;
+            return true;
+        }
+        if (op == 0x81) {
+            if (i + 4 > end) {
+                err = "OMF constant runs off the expression";
+                return false;
+            }
+            Ev e;
+            e.addend = static_cast<int32_t>(get_u32(in, i));
+            i += 4;
+            st.push_back(e);
+            continue;
+        }
+        if (op == 0x83 || op == 0x82) {
+            Ev e;
+            e.is_sym = true;
+            if (!read_label(in, i, end, lablen, e.sym, err)) return false;
+            st.push_back(e);
+            continue;
+        }
+        if (op == 0x01 || op == 0x02 || op == 0x04) {
+            if (st.size() < 2) {
+                err = "OMF expression stack underflow";
+                return false;
+            }
+            Ev b = st.back();
+            st.pop_back();
+            Ev a = st.back();
+            st.pop_back();
+            Ev r;
+            if (op == 0x04) {
+                if (b.is_sym || b.addend == 0) {
+                    err = "OMF divisor is not a constant";
+                    return false;
+                }
+                if (!a.is_sym) {
+                    r.addend = a.addend / b.addend;
+                } else if (a.divisor == 1 && (b.addend == 256 || b.addend == 65536)) {
+                    r = a;
+                    r.divisor = b.addend;
+                } else {
+                    err = "OMF expression divide is too complex";
+                    return false;
+                }
+            } else if (!a.is_sym && !b.is_sym) {
+                r.addend = op == 0x01 ? a.addend + b.addend : a.addend - b.addend;
+            } else if (a.is_sym && !b.is_sym && op == 0x01) {
+                r = a;
+                r.addend += b.addend;
+            } else if (!a.is_sym && b.is_sym && op == 0x01) {
+                r = b;
+                r.addend += a.addend;
+            } else if (a.is_sym && !b.is_sym && op == 0x02) {
+                r = a;
+                r.addend -= b.addend;
+            } else {
+                err = "OMF expression is too complex to link";
+                return false;
+            }
+            st.push_back(r);
+            continue;
+        }
+        err = "unsupported OMF expression operator";
+        return false;
+    }
+    err = "OMF expression has no end";
+    return false;
+}
+
+} // namespace
+
+bool omf_write(const OmfFile &file, std::vector<uint8_t> &out, std::string &err)
+{
+    out.clear();
+    if (file.version != 1 && file.version != 2) {
+        err = "OMF version must be 1 or 2";
+        return false;
+    }
+    if (file.segs.empty()) {
+        err = "OMF file has no segments";
+        return false;
+    }
+    for (size_t si = 0; si < file.segs.size(); si++) {
+        const OmfSeg &seg = file.segs[si];
+        if (seg.align > 0x10000) {
+            err = "ALIGN is larger than $10000";
+            return false;
+        }
+        size_t start = out.size();
+        for (int i = 0; i < 0x2C; i++) out.push_back(0);
+        for (int i = 0; i < 10; i++) out.push_back(0x20); /* LOADNAME */
+        if (!put_label(out, seg.name, err)) return false;
+
+        uint16_t dispname = 0x2C;
+        uint16_t dispdata = static_cast<uint16_t>(out.size() - start);
+        if (!file.object) {
+            if (!write_load_body(out, seg, err)) return false;
+        } else {
+            if (!write_object_body(out, seg, file.version, err)) return false;
+        }
+
+        bool blocks = file.version == 1 && !file.object;
+        if (blocks) {
+            while ((out.size() - start) % 512) out.push_back(0);
+        }
+        uint32_t span = static_cast<uint32_t>(out.size() - start);
+        uint32_t count = blocks ? span / 512 : span;
+
+        patch_u32(out, start + 0x00, count);
+        patch_u32(out, start + 0x04, 0); /* RESSPC */
+        patch_u32(out, start + 0x08, static_cast<uint32_t>(seg.image.size()));
+        out[start + 0x0D] = 0; /* LABLEN: Pascal strings */
+        out[start + 0x0E] = 4; /* NUMLEN */
+        out[start + 0x0F] = static_cast<uint8_t>(file.version);
+        patch_u32(out, start + 0x10, 0x00010000); /* BANKSIZE */
+        if (file.version == 1) {
+            uint8_t type = 0;
+            if (!v1_type(seg.kind, type, err)) return false;
+            out[start + 0x0C] = type;
+        } else {
+            out[start + 0x14] = static_cast<uint8_t>(seg.kind & 0xFF);
+            out[start + 0x15] = static_cast<uint8_t>((seg.kind >> 8) & 0xFF);
+        }
+        patch_u32(out, start + 0x18, seg.org);
+        patch_u32(out, start + 0x1C, seg.align);
+        out[start + 0x20] = 0; /* NUMSEX */
+        uint16_t segnum = seg.segnum ? seg.segnum : static_cast<uint16_t>(si + 1);
+        out[start + 0x22] = static_cast<uint8_t>(segnum & 0xFF);
+        out[start + 0x23] = static_cast<uint8_t>((segnum >> 8) & 0xFF);
+        patch_u32(out, start + 0x24, seg.entry);
+        out[start + 0x28] = static_cast<uint8_t>(dispname & 0xFF);
+        out[start + 0x29] = static_cast<uint8_t>((dispname >> 8) & 0xFF);
+        out[start + 0x2A] = static_cast<uint8_t>(dispdata & 0xFF);
+        out[start + 0x2B] = static_cast<uint8_t>((dispdata >> 8) & 0xFF);
+    }
+    return true;
+}
+
+namespace {
+
+bool parse_body(const std::vector<uint8_t> &in, size_t i, size_t end, int version, int lablen,
+                OmfSeg &seg, std::string &err)
+{
+    uint32_t lc = 0;
+    while (i < end) {
+        uint8_t op = in[i++];
+        if (op == 0x00) return true;
+        if (op >= 0x01 && op <= 0xDF) {
+            if (i + op > end) {
+                err = "CONST record runs off the segment";
+                return false;
+            }
+            seg.image.insert(seg.image.end(), in.begin() + static_cast<std::ptrdiff_t>(i),
+                             in.begin() + static_cast<std::ptrdiff_t>(i + op));
+            i += op;
+            lc += op;
+            continue;
+        }
+        if (op == 0xE6 || op == 0xEF) {
+            OmfSym sym;
+            sym.global = op == 0xE6;
+            sym.offset = lc;
+            if (!read_label(in, i, end, lablen, sym.name, err)) return false;
+            if (version >= 2) {
+                if (i + 4 > end) {
+                    err = "GLOBAL record runs off the segment";
+                    return false;
+                }
+                i += 4; /* length word, type, private */
+            } else if (version == 1) {
+                if (i + 3 > end) {
+                    err = "GLOBAL record runs off the segment";
+                    return false;
+                }
+                i += 3;
+            } else {
+                err = "unsupported OMF version in GLOBAL";
+                return false;
+            }
+            seg.syms.push_back(std::move(sym));
+            continue;
+        }
+        if (op == 0xEE) {
+            if (i + 1 + 4 > end) {
+                err = "RELEXPR record runs off the segment";
+                return false;
+            }
+            OmfFix fx;
+            fx.width = in[i++];
+            fx.at = get_u32(in, i);
+            i += 4;
+            if (!read_expr(in, i, end, lablen, fx, err)) return false;
+            seg.fixups.push_back(std::move(fx));
+            continue;
+        }
+        if (op == 0xF1) {
+            if (i + 4 > end) {
+                err = "DS record runs off the segment";
+                return false;
+            }
+            uint32_t n = get_u32(in, i);
+            i += 4;
+            seg.image.insert(seg.image.end(), n, 0);
+            lc += n;
+            continue;
+        }
+        if (op == 0xF2) {
+            if (i + 4 > end) {
+                err = "LCONST record runs off the segment";
+                return false;
+            }
+            uint32_t n = get_u32(in, i);
+            i += 4;
+            if (i + n > end) {
+                err = "LCONST data runs off the segment";
+                return false;
+            }
+            seg.image.insert(seg.image.end(), in.begin() + static_cast<std::ptrdiff_t>(i),
+                             in.begin() + static_cast<std::ptrdiff_t>(i + n));
+            i += n;
+            lc += n;
+            continue;
+        }
+        if (op == 0xE2) {
+            if (i + 10 > end) {
+                err = "RELOC record runs off the segment";
+                return false;
+            }
+            OmfReloc r;
+            r.width = in[i];
+            r.shift = static_cast<int8_t>(in[i + 1]);
+            r.at = get_u32(in, i + 2);
+            r.disp = get_u32(in, i + 6);
+            i += 10;
+            seg.relocs.push_back(r);
+            continue;
+        }
+        if (op == 0xE3) {
+            if (i + 14 > end) {
+                err = "INTERSEG record runs off the segment";
+                return false;
+            }
+            OmfReloc r;
+            r.width = in[i];
+            r.shift = static_cast<int8_t>(in[i + 1]);
+            r.at = get_u32(in, i + 2);
+            r.file = get_u16(in, i + 6);
+            r.seg = get_u16(in, i + 8);
+            r.disp = get_u32(in, i + 10);
+            i += 14;
+            seg.relocs.push_back(r);
+            continue;
+        }
+        err = "unsupported OMF record";
+        return false;
+    }
+    err = "segment has no END record";
+    return false;
+}
+
+uint16_t kind_from_v1(uint8_t type)
+{
+    uint16_t kind = static_cast<uint16_t>(type & 0x1F);
+    if (type & 0x20) kind = static_cast<uint16_t>(kind | 0x2000);
+    if (type & 0x40) kind = static_cast<uint16_t>(kind | 0x4000);
+    if (type & 0x80) kind = static_cast<uint16_t>(kind | 0x8000);
+    return kind;
+}
+
+} // namespace
+
+bool omf_read(const std::vector<uint8_t> &in, OmfFile &file, std::string &err)
+{
+    file = OmfFile{};
+    size_t off = 0;
+    if (in.size() < 0x30) {
+        err = "file is too small to be OMF";
+        return false;
+    }
+    int version = in[0x0F];
+    if (version != 1 && version != 2) {
+        err = "OMF version is not 1 or 2";
+        return false;
+    }
+    file.version = version;
+    bool saw_object = false;
+    bool saw_load = false;
+    while (off + 0x2C + 10 < in.size()) {
+        if (in[off + 0x0E] != 4 || in[off + 0x20] != 0) {
+            err = "OMF NUMLEN must be 4 and NUMSEX must be 0";
+            return false;
+        }
+        if (in[off + 0x0F] != version) {
+            err = "OMF segments disagree on version";
+            return false;
+        }
+        uint32_t field = get_u32(in, off);
+        uint32_t seglen = field;
+        if (version == 1) {
+            uint64_t blocks = static_cast<uint64_t>(field) * 512;
+            if (field >= 1 && off + blocks <= in.size())
+                seglen = static_cast<uint32_t>(blocks);
+        }
+        if (seglen < 0x30 || off + seglen > in.size()) {
+            err = "OMF segment length runs off the file";
+            return false;
+        }
+        OmfSeg seg;
+        seg.org = get_u32(in, off + 0x18);
+        seg.align = get_u32(in, off + 0x1C);
+        seg.segnum = get_u16(in, off + 0x22);
+        seg.entry = get_u32(in, off + 0x24);
+        uint16_t dispname = get_u16(in, off + 0x28);
+        uint16_t dispdata = get_u16(in, off + 0x2A);
+        if (version == 1)
+            seg.kind = kind_from_v1(in[off + 0x0C]);
+        else
+            seg.kind = get_u16(in, off + 0x14);
+        int lablen = in[off + 0x0D];
+        if (dispname < 0x2C || dispdata <= dispname || off + dispdata >= off + seglen) {
+            err = "OMF DISPNAME or DISPDATA is out of range";
+            return false;
+        }
+        size_t name_at = off + dispname + 10;
+        if (lablen == 0) {
+            if (name_at >= in.size()) {
+                err = "OMF segment name is missing";
+                return false;
+            }
+            size_t n = in[name_at];
+            if (name_at + 1 + n > off + seglen) {
+                err = "OMF segment name runs off the segment";
+                return false;
+            }
+            seg.name.assign(reinterpret_cast<const char *>(&in[name_at + 1]), n);
+        } else {
+            if (name_at + static_cast<size_t>(lablen) > off + seglen) {
+                err = "OMF segment name runs off the segment";
+                return false;
+            }
+            seg.name.assign(reinterpret_cast<const char *>(&in[name_at]),
+                            static_cast<size_t>(lablen));
+            while (!seg.name.empty() && seg.name.back() == ' ') seg.name.pop_back();
+        }
+        if (!parse_body(in, off + dispdata, off + seglen, version, lablen, seg, err))
+            return false;
+        if (!seg.syms.empty() || !seg.fixups.empty()) saw_object = true;
+        if (!seg.relocs.empty()) saw_load = true;
+        /* A load file's body is LCONST, which leaves syms and fixups empty.
+           An object uses CONST and may have neither if it is only bytes.
+           Prefer the caller's later classification: object when any GLOBAL
+           or RELEXPR was seen in the file. */
+        file.segs.push_back(std::move(seg));
+        off += seglen;
+        if (off == in.size()) break;
+    }
+    if (file.segs.empty()) {
+        err = "OMF file has no segments";
+        return false;
+    }
+    file.object = saw_object && !saw_load;
+    if (saw_object && saw_load) {
+        err = "OMF file mixes object records and load records";
+        return false;
+    }
+    /* Byte-only object segments still count as objects when the body used
+       CONST (opcode $01-$DF) rather than LCONST. parse_body does not say
+       which. A segment with no relocs and no syms that came from LCONST is
+       a load image. qlink writes one or the other, and a later target reads
+       libraries by their GLOBAL records. A raw load image has relocs or
+       neither; treat "neither" as a load image so absolute files paste as
+       bytes. Object files we write always carry at least the segment label
+       when the assembler had one. An empty-symbol object is still object
+       format if we set the flag from the writer. Readers of our libraries
+       see GLOBAL. */
+    if (!saw_object && !saw_load) file.object = false;
+    return err.empty();
+}
+
+} // namespace qasm
diff --git a/src/omf/omf.hpp b/src/omf/omf.hpp
new file mode 100644
index 0000000..74f3fbe
--- /dev/null
+++ b/src/omf/omf.hpp
@@ -0,0 +1,64 @@
+#pragma once
+
+/* Apple IIgs OMF 1.0 and 2.0 segments.
+   Record bodies follow the layouts read by 6502bench SourceGen
+   (faddenSoft, Apache-2.0): CONST, LCONST, DS, GLOBAL/LOCAL, RELEXPR,
+   RELOC, and INTERSEG. Numbers are little-endian. NUMLEN is 4.
+   Label strings are Pascal (LABLEN 0). */
+
+#include <cstdint>
+#include <string>
+#include <vector>
+
+namespace qasm {
+
+struct OmfSym {
+    std::string name;
+    uint32_t offset = 0; /* location counter when the record is seen */
+    bool global = true;  /* GLOBAL, or LOCAL when false */
+};
+
+/* Object-file patch. The expression is symbol + addend, then integer-divided
+   by divisor (1, 256, or 65536). The linker stores the low `width` bytes. */
+struct OmfFix {
+    uint32_t at = 0;
+    uint8_t width = 2;
+    std::string symbol;
+    int32_t addend = 0;
+    int32_t divisor = 1;
+};
+
+/* Load-file relocation. file == 0 is a RELOC (add this segment's load
+   address). Otherwise it is an INTERSEG to file/seg (both 1-based). */
+struct OmfReloc {
+    uint32_t at = 0;
+    uint8_t width = 2;
+    int8_t shift = 0;
+    uint32_t disp = 0;
+    uint16_t file = 0;
+    uint16_t seg = 0;
+};
+
+struct OmfSeg {
+    std::string name;
+    uint16_t kind = 0; /* type in the low 5 bits, attribute flags above */
+    uint32_t org = 0;
+    uint32_t align = 0;
+    uint32_t entry = 0;
+    uint16_t segnum = 0;
+    std::vector<uint8_t> image;
+    std::vector<OmfSym> syms;
+    std::vector<OmfFix> fixups;
+    std::vector<OmfReloc> relocs;
+};
+
+struct OmfFile {
+    int version = 2; /* 1 or 2 */
+    bool object = false; /* object/library records; otherwise a load file */
+    std::vector<OmfSeg> segs;
+};
+
+bool omf_write(const OmfFile &file, std::vector<uint8_t> &out, std::string &err);
+bool omf_read(const std::vector<uint8_t> &in, OmfFile &file, std::string &err);
+
+} // namespace qasm
diff --git a/src/assemble.cpp b/src/qasm/assemble.cpp
similarity index 71%
rename from src/assemble.cpp
rename to src/qasm/assemble.cpp
index 1c65d5a..1d5e6ae 100644
--- a/src/assemble.cpp
+++ b/src/qasm/assemble.cpp
@@ -1,4 +1,5 @@
 #include "pcode.hpp"
+#include "omf.hpp"
 
 #include <algorithm>
 #include <cctype>
@@ -12,6 +13,8 @@
 
 namespace qasm {
 
+enum class SymKind { Loc, Equ, Ext };
+
 struct Sym {
     std::string name;
     int64_t value = 0;
@@ -19,10 +22,30 @@ struct Sym {
     bool is_var = false;
     bool is_local = false;
     bool is_colon = false;
+    bool is_ext = false;
+    bool is_equ = false;
+    bool is_pc = false;
+    bool is_export = false;
+    /* Unexported name defined inside an APW PROC. scope is that proc. */
+    bool is_proc = false;
+    bool has_loc = false;
+    bool has_next = false;
+    int64_t value_next = 0;
+    /* Set when this pass has already assigned the equate once. */
+    bool pass_seen = false;
+    uint32_t loc = 0;
     int scope = 0;
     int order = 0;
 };
 
+struct FixRec {
+    uint32_t at = 0;
+    uint8_t width = 2;
+    int32_t divisor = 1;
+    std::string symbol;
+    int32_t addend = 0;
+};
+
 struct Macro {
     std::string name;
     std::vector<SrcLine> body;
@@ -40,6 +63,12 @@ struct Assembler {
     int xc = 2;
     bool dummy = false;
     bool rel = false;
+    bool saw_ext = false;
+    bool saw_seg = false;
+    std::string seg_name;
+    uint16_t seg_kind = 0;
+    std::vector<std::string> exports;
+    std::vector<FixRec> fixups;
     uint32_t dummy_save = 0;
     uint32_t org_resume = 0;
     bool org_saved = false;
@@ -54,6 +83,14 @@ struct Assembler {
     uint16_t filetype = 0x06;
     bool case_sensitive = false;
     bool ended = false;
+    /* Merlin `#Aexpr` is the bank byte. ORCA, APW, LISA, and ca65 keep the A. */
+    bool merlin_hash_a = true;
+    /* APW `@label` is local to the current global, same as Merlin `:`. */
+    bool apw_at_local = false;
+    /* APW `>>` and `<<` are logical shifts. Merlin and ORCA are not. */
+    bool apw_shifts = false;
+    int proc_serial = 0;
+    int cur_proc = 0;
     std::vector<Sym> syms;
     int scope_id = 0;
     int last_global_scope = 0;
@@ -79,7 +116,14 @@ struct Assembler {
     static int lookup_cb(void *p, const std::string &name, int64_t *val, bool *known);
     int lookup(const std::string &name, int64_t *val, bool *known);
     Sym *find_sym(const std::string &name, bool var_only);
-    void define_label(const SrcLine *ln, const std::string &name, int64_t val, bool is_var);
+    Sym *bind_label(const std::string &name, SymKind kind);
+    bool name_is_scoped(const std::string &name) const;
+    void define_label(const SrcLine *ln, const std::string &name, int64_t val, bool is_var,
+                      SymKind kind = SymKind::Loc);
+    bool named_export(const std::string &name) const;
+    void mark_export(const std::string &name);
+    bool tracking() const;
+    void note_reloc(uint32_t at, int width, const std::string &expr, int sel);
     bool eval_on(const SrcLine *ln, const std::string &expr, int64_t &out);
     Macro *find_macro(const std::string &name);
     void collect_macros();
@@ -160,20 +204,39 @@ int Assembler::lookup_cb(void *p, const std::string &name, int64_t *val, bool *k
     return static_cast<Assembler *>(p)->lookup(name, val, known);
 }
 
-static bool name_is_scoped(const std::string &name)
+bool Assembler::name_is_scoped(const std::string &name) const
 {
-    /* Merlin `:label` and ORCA/M `~label` are local to the current global. */
-    return !name.empty() && (name[0] == ':' || name[0] == '~');
+    /* Merlin `:label` and ORCA/M `~label` are local to the current global.
+       APW `@label` uses the same rule. A proc-local name still bumps
+       last_global_scope, so two `@1` labels in one proc stay distinct. */
+    if (name.empty()) return false;
+    if (name[0] == ':' || name[0] == '~') return true;
+    return apw_at_local && name[0] == '@';
 }
 
 int Assembler::lookup(const std::string &name, int64_t *val, bool *known)
 {
     *known = false;
     *val = 0;
+    /* A proc-local hides a global of the same name, including a forward
+       reference that must not bind to an earlier proc's copy. */
+    if (cur_proc != 0 && !name.empty() && name[0] != ']' && !name_is_scoped(name)) {
+        for (int i = 0; i < static_cast<int>(syms.size()); i++) {
+            const Sym &s = syms[i];
+            if (!s.is_proc || s.scope != cur_proc) continue;
+            if (namecmp(s.name, name) != 0) continue;
+            if (s.defined) {
+                *val = s.value;
+                *known = true;
+            }
+            return 0;
+        }
+    }
     int colon_scope = name_is_scoped(name) ? last_global_scope : -1;
     int best = -1;
     for (int i = 0; i < static_cast<int>(syms.size()); i++) {
         if (namecmp(syms[i].name, name) != 0) continue;
+        if (syms[i].is_proc) continue;
         if (syms[i].is_colon && syms[i].scope != colon_scope) continue;
         if (syms[i].is_local) {
             if (syms[i].order <= def_order) best = i;
@@ -198,20 +261,121 @@ Sym *Assembler::find_sym(const std::string &name, bool var_only)
         if (namecmp(syms[i].name, name) != 0) continue;
         if (var_only && !syms[i].is_var) continue;
         if (syms[i].is_colon && syms[i].scope != last_global_scope) continue;
+        if (syms[i].is_proc && (cur_proc == 0 || syms[i].scope != cur_proc)) continue;
         return &syms[i];
     }
     return nullptr;
 }
 
-void Assembler::define_label(const SrcLine *ln, const std::string &name, int64_t val, bool is_var)
+/* `]` and `:~/ @` names use find_sym. Inside a proc, an unexported name is
+   that proc's symbol. An IMPORT or EXPORT of the same name stays global. */
+Sym *Assembler::bind_label(const std::string &name, SymKind kind)
+{
+    if (name[0] == ']' || name_is_scoped(name))
+        return find_sym(name, false);
+    if (cur_proc != 0 && kind != SymKind::Ext && !named_export(name)) {
+        for (int i = static_cast<int>(syms.size()) - 1; i >= 0; i--) {
+            Sym &s = syms[i];
+            if (namecmp(s.name, name) != 0) continue;
+            if (s.is_proc && s.scope == cur_proc) return &s;
+        }
+        for (int i = static_cast<int>(syms.size()) - 1; i >= 0; i--) {
+            Sym &s = syms[i];
+            if (namecmp(s.name, name) != 0) continue;
+            if (s.is_proc || s.is_colon || s.is_local) continue;
+            if (s.is_ext || s.is_export) return &s;
+            break;
+        }
+        return nullptr;
+    }
+    for (int i = static_cast<int>(syms.size()) - 1; i >= 0; i--) {
+        Sym &s = syms[i];
+        if (namecmp(s.name, name) != 0) continue;
+        if (s.is_proc || s.is_colon || s.is_local) continue;
+        return &s;
+    }
+    return nullptr;
+}
+
+bool Assembler::named_export(const std::string &name) const
+{
+    for (const auto &e : exports)
+        if (namecmp(e, name) == 0) return true;
+    return false;
+}
+
+void Assembler::mark_export(const std::string &name)
+{
+    if (name.empty()) return;
+    if (!named_export(name)) exports.push_back(name);
+    if (Sym *s = find_sym(name, false)) s->is_export = true;
+}
+
+bool Assembler::tracking() const
+{
+    /* REL, or origin zero with a segment or an EXT, is one relocatable
+       object. A later absolute ORG (coverage is $8000) stays a raw BIN. */
+    if (!rel && org_set && org != 0) return false;
+    return rel || saw_seg || (saw_ext && org_set && org == 0);
+}
+
+void Assembler::define_label(const SrcLine *ln, const std::string &name, int64_t val, bool is_var,
+                             SymKind kind)
 {
     if (name.empty()) return;
     def_order++;
+    /* A resolved IMPORT does not call define_label again on pass 2.
+       The bump still has to happen here, and in that skip, or `@` scopes drift. */
     if (name[0] != ']' && !name_is_scoped(name)) {
         scope_id++;
         last_global_scope = scope_id;
     }
-    if (pass == 2 && !is_var) return;
+    if (pass == 2 && !is_var) {
+        Sym *s = bind_label(name, kind);
+        if (!s) return;
+        if (named_export(name)) s->is_export = true;
+        if (kind == SymKind::Loc && !s->is_equ && !s->is_ext && !dummy && cond_on()) {
+            s->has_loc = true;
+            s->loc = static_cast<uint32_t>(obj.size());
+            s->is_pc = true;
+            /* A forward name is absolute on pass 1 and may be direct page
+               once its value is known. Later passes keep the pass-1 value
+               until the addresses settle, so record the PC this pass
+               actually reached. */
+            if (s->value != val) {
+                s->value_next = val;
+                s->has_next = true;
+            } else {
+                s->has_next = false;
+            }
+        } else if (kind == SymKind::Equ && !s->is_ext) {
+            /* ca65 .SET is opcode "=". Pass 2 keeps the final pass-1 value
+               for the whole file, and a second assignment cancels a phase
+               update. EQU takes the new value immediately so a later use in
+               this pass sees it. `equ *` still records has_next when the
+               address moved. */
+            bool set_freeze = ln && ln->opcode.size() == 1 && ln->opcode[0] == '=';
+            if (set_freeze) {
+                if (s->pass_seen)
+                    s->has_next = false;
+                else {
+                    s->pass_seen = true;
+                    if (s->value != val) {
+                        s->value_next = val;
+                        s->has_next = true;
+                    }
+                }
+            } else {
+                if (s->value != val) {
+                    s->value_next = val;
+                    s->has_next = true;
+                }
+                s->value = val;
+                s->pass_seen = true;
+            }
+        }
+        return;
+    }
     if (is_var) {
         Sym *s = find_sym(name, true);
         if (!s) {
@@ -233,22 +397,158 @@ void Assembler::define_label(const SrcLine *ln, const std::string &name, int64_t
         s.defined = true;
         s.order = def_order;
         s.scope = last_global_scope;
+        s.is_equ = kind == SymKind::Equ;
+        s.is_ext = kind == SymKind::Ext;
+        s.is_pc = kind == SymKind::Loc;
+        if (named_export(name)) s.is_export = true;
         syms.push_back(std::move(s));
         return;
     }
-    Sym *s = find_sym(name, false);
+    Sym *s = bind_label(name, kind);
     if (s && s->defined && s->value != val && pass == 2)
         err(ln, "duplicate label " + name);
     if (!s) {
         syms.push_back({});
         s = &syms.back();
         s->name = name;
-        s->is_colon = name_is_scoped(name);
-        s->scope = last_global_scope;
+        if (name_is_scoped(name)) {
+            s->is_colon = true;
+            s->scope = last_global_scope;
+        } else if (cur_proc != 0 && kind != SymKind::Ext && !named_export(name)) {
+            s->is_proc = true;
+            s->scope = cur_proc;
+        }
     }
     s->value = val;
     s->defined = true;
     s->order = def_order;
+    s->is_equ = kind == SymKind::Equ;
+    s->is_ext = kind == SymKind::Ext;
+    s->is_pc = kind == SymKind::Loc;
+    if (named_export(name)) s->is_export = true;
+}
+
+static bool fix_ident_start(char c)
+{
+    unsigned char u = static_cast<unsigned char>(c);
+    return std::isalpha(u) || c == '_' || c == ':' || c == '~' || c == ']' || c == '@';
+}
+
+static bool fix_ident_char(char c)
+{
+    unsigned char u = static_cast<unsigned char>(c);
+    return std::isalnum(u) || c == '_' || c == '@' || c == '$' || c == ':' || c == '.';
+}
+
+static void skip_ws(const std::string &s, size_t &i)
+{
+    while (i < s.size() && (s[i] == ' ' || s[i] == '\t')) i++;
+}
+
+/* One label, optionally plus or minus a constant. Selectors < > ^ set the
+   divisor. A leading | is absolute force and stays divisor 1. */
+static bool parse_fix_expr(std::string s, int sel, std::string &sym, int32_t &addend,
+                           int32_t &divisor)
+{
+    s = trim_copy(s);
+    for (int n = 0; n < 8; n++) {
+        if (s.size() < 2) break;
+        char a = s.front(), b = s.back();
+        if (!((a == '(' && b == ')') || (a == '{' && b == '}'))) break;
+        s = trim_copy(s.substr(1, s.size() - 2));
+    }
+    divisor = 1;
+    if (sel == '>') divisor = 256;
+    else if (sel == '^') divisor = 65536;
+    if (!s.empty() && (s[0] == '<' || s[0] == '>' || s[0] == '^' || s[0] == '|')) {
+        if (divisor == 1 && s[0] == '>') divisor = 256;
+        else if (divisor == 1 && s[0] == '^') divisor = 65536;
+        s = trim_copy(s.substr(1));
+    }
+    size_t i = 0;
+    skip_ws(s, i);
+    if (i >= s.size()) return false;
+    addend = 0;
+    sym.clear();
+    auto read_ident = [&](std::string &id) -> bool {
+        if (i >= s.size() || !fix_ident_start(s[i])) return false;
+        if (s[i] == '~' && i + 1 < s.size() &&
+            std::isdigit(static_cast<unsigned char>(s[i + 1])))
+            return false;
+        size_t b = i++;
+        while (i < s.size() && fix_ident_char(s[i])) i++;
+        id = s.substr(b, i - b);
+        return !id.empty();
+    };
+    auto read_const = [&](int32_t &n) -> bool {
+        skip_ws(s, i);
+        if (i >= s.size()) return false;
+        int sign = 1;
+        if (s[i] == '+') i++;
+        else if (s[i] == '-') { sign = -1; i++; }
+        if (i >= s.size()) return false;
+        int base = 10;
+        if (s[i] == '$') { base = 16; i++; }
+        else if (s[i] == '%') { base = 2; i++; }
+        if (i >= s.size()) return false;
+        int64_t v = 0;
+        bool any = false;
+        for (; i < s.size(); i++) {
+            unsigned char c = static_cast<unsigned char>(s[i]);
+            if (c == '_') continue;
+            int d;
+            if (c >= '0' && c <= '9') d = c - '0';
+            else if (c >= 'a' && c <= 'f') d = c - 'a' + 10;
+            else if (c >= 'A' && c <= 'F') d = c - 'A' + 10;
+            else break;
+            if (d >= base) return false;
+            any = true;
+            v = v * base + d;
+        }
+        if (!any) return false;
+        n = static_cast<int32_t>(sign < 0 ? -v : v);
+        return true;
+    };
+    if (fix_ident_start(s[i]) &&
+        !(s[i] == '~' && i + 1 < s.size() && std::isdigit(static_cast<unsigned char>(s[i + 1])))) {
+        if (!read_ident(sym)) return false;
+        skip_ws(s, i);
+        if (i < s.size()) {
+            if (s[i] != '+' && s[i] != '-') return false;
+            if (!read_const(addend)) return false;
+        }
+    } else {
+        int32_t n = 0;
+        if (!read_const(n)) return false;
+        skip_ws(s, i);
+        if (i >= s.size() || s[i] != '+') return false;
+        i++;
+        if (!read_ident(sym)) return false;
+        addend = n;
+    }
+    skip_ws(s, i);
+    return i == s.size() && !sym.empty();
+}
+
+void Assembler::note_reloc(uint32_t at, int width, const std::string &expr, int sel)
+{
+    if (pass != 2 || !tracking() || !cond_on() || dummy || width <= 0 || width > 4) return;
+    std::string sym;
+    int32_t addend = 0, divisor = 1;
+    if (!parse_fix_expr(expr, sel, sym, addend, divisor)) return;
+    Sym *s = find_sym(sym, false);
+    if (s) {
+        if (s->is_var || s->is_equ || (!s->is_ext && !s->is_pc)) return;
+    } else if (!rel) {
+        return;
+    }
+    FixRec fx;
+    fx.at = at;
+    fx.width = static_cast<uint8_t>(width);
+    fx.divisor = divisor;
+    fx.symbol = sym;
+    fx.addend = addend;
+    fixups.push_back(std::move(fx));
 }
 
 bool Assembler::eval_on(const SrcLine *ln, const std::string &expr, int64_t &outv)
@@ -259,6 +559,7 @@ bool Assembler::eval_on(const SrcLine *ln, const std::string &expr, int64_t &out
     ctx.algebraic = opt.algebraic;
     ctx.case_sensitive = case_sensitive;
     ctx.rel = rel;
+    ctx.shifts = apw_shifts;
     ctx.pass = pass;
     ctx.asm_ptr = this;
     ctx.lookup = lookup_cb;
@@ -278,10 +579,10 @@ bool is_pseudo_op(const std::string &op)
         "ADR", "ADRL", "DS", "ASC", "DCI", "INV", "FLS", "REV", "STR", "STRL",
         "MX", "XC", "LST", "END", "DUM", "DEND", "DO", "ELSE", "FIN", "IF",
         "MAC", "EOM", "<<<", "PMC", ">>>", "LUP", "--^", "SAV", "DSK", "TYP",
-        "REL", "LNK", "ENT", "EXT", "PUT", "USE", "CAS", "ERR", "CHK",
+        "REL", "LNK", "ENT", "EXT", "SEG", "PUT", "USE", "CAS", "ERR", "CHK",
         "AST", "SKP", "PAG", "TR", "EXP", "PAU", "KBD", "DAT", "DATE",
         "VAR", "USR", "FLO", "LSTDO", "GEQU", "GEQ", "OVR", "ASM", "SYM",
-        "LEN", "POS", "CYC", nullptr
+        "LEN", "POS", "CYC", "SCOPE", "UNSCOPE", "XPORT", nullptr
     };
     for (int i = 0; ps[i]; i++)
         if (icmp(op, ps[i]) == 0) return true;
@@ -699,7 +1000,9 @@ static void emit_list_data(Assembler &a, const SrcLine *ln, const std::string &k
         std::string tok = trim_copy(comma == std::string::npos ? buf.substr(pos)
                                                               : buf.substr(pos, comma - pos));
         int64_t v = 0;
+        uint32_t at = static_cast<uint32_t>(a.obj.size());
         a.eval_on(ln, tok, v);
+        if (!hi_first) a.note_reloc(at, width, tok, 0);
         if (icmp(kind, "DFB") == 0 || icmp(kind, "DB") == 0) {
             v &= 0xFF;
             a.emit_byte(static_cast<uint8_t>(v));
@@ -860,6 +1163,45 @@ static void emit_date(Assembler &a, const SrcLine *ln)
 void Assembler::do_pseudo(const SrcLine *ln)
 {
     const auto &op = ln->opcode;
+    /* Scope stays balanced inside a false IF. EXPORT uses XPORT, not EXP:
+       EXP is already a Merlin listing no-op. */
+    if (icmp(op, "SCOPE") == 0) {
+        proc_serial++;
+        cur_proc = proc_serial;
+        return;
+    }
+    if (icmp(op, "UNSCOPE") == 0) {
+        cur_proc = 0;
+        return;
+    }
+    if (icmp(op, "XPORT") == 0) {
+        auto promote = [&](const std::string &n) {
+            if (n.empty()) return;
+            mark_export(n);
+            if (cur_proc == 0) return;
+            for (auto &s : syms) {
+                if (!s.is_proc || s.scope != cur_proc) continue;
+                if (namecmp(s.name, n) != 0) continue;
+                s.is_proc = false;
+                s.is_export = true;
+                s.scope = 0;
+                return;
+            }
+        };
+        if (ln->has_label) promote(ln->label);
+        std::string names = ln->operand;
+        size_t pos = 0;
+        while (pos <= names.size()) {
+            size_t comma = names.find(',', pos);
+            std::string n = trim_copy(comma == std::string::npos
+                                          ? names.substr(pos)
+                                          : names.substr(pos, comma - pos));
+            promote(n);
+            if (comma == std::string::npos) break;
+            pos = comma + 1;
+        }
+        return;
+    }
     if (icmp(op, "LST") == 0 || icmp(op, "EXP") == 0 || icmp(op, "TR") == 0 ||
         icmp(op, "PAU") == 0 || icmp(op, "PAG") == 0 || icmp(op, "AST") == 0 ||
         icmp(op, "SKP") == 0 || icmp(op, "KBD") == 0)
@@ -928,7 +1270,7 @@ void Assembler::do_pseudo(const SrcLine *ln)
         int64_t v = 0;
         eval_on(ln, ln->operand, v);
         bool is_var = ln->has_label && !ln->label.empty() && ln->label[0] == ']';
-        define_label(ln, ln->label, v, is_var);
+        define_label(ln, ln->label, v, is_var, SymKind::Equ);
         return;
     }
     if (icmp(op, "TYP") == 0) {
@@ -986,7 +1328,7 @@ void Assembler::do_pseudo(const SrcLine *ln)
         std::string n = trim_copy(ln->operand);
         if (n.empty()) n = ln->label;
         if (!n.empty())
-            define_label(ln, n, 0, false);
+            define_label(ln, n, 0, false, SymKind::Equ);
         return;
     }
     if (icmp(op, "REL") == 0) {
@@ -1002,29 +1344,84 @@ void Assembler::do_pseudo(const SrcLine *ln)
         return;
     }
     if (icmp(op, "LNK") == 0 || icmp(op, "ENT") == 0) {
-        if (ln->has_label)
+        if (ln->has_label) {
             define_label(ln, ln->label, pc, false);
+            mark_export(ln->label);
+        }
+        std::string names = ln->operand;
+        size_t pos = 0;
+        while (!names.empty() && pos <= names.size()) {
+            size_t comma = names.find(',', pos);
+            std::string n = trim_copy(comma == std::string::npos
+                                          ? names.substr(pos)
+                                          : names.substr(pos, comma - pos));
+            if (!n.empty()) mark_export(n);
+            if (comma == std::string::npos) break;
+            pos = comma + 1;
+        }
         return;
     }
     if (icmp(op, "EXT") == 0) {
-        /* unresolved external: define as 0 so absolute assembly can proceed.
+        /* Unresolved external: define as 0 so absolute assembly can proceed.
+           An IMPORT that follows a real definition must not zero that symbol.
            Merlin allows a comma list: EXT a,b,c */
+        saw_ext = true;
+        auto add_ext = [&](const std::string &n) {
+            if (n.empty()) return;
+            if (Sym *s = find_sym(n, false)) {
+                if (s->defined && !s->is_ext) {
+                    /* Pass 1 bumped when the import was created. Pass 2 must
+                       bump too, so `@` labels keep the same scope. */
+                    if (n[0] != ']' && !name_is_scoped(n)) {
+                        scope_id++;
+                        last_global_scope = scope_id;
+                    }
+                    return;
+                }
+            }
+            define_label(ln, n, 0, false, SymKind::Ext);
+        };
+        if (ln->has_label) add_ext(ln->label);
         std::string names = ln->operand;
-        if (ln->has_label)
-            define_label(ln, ln->label, 0, false);
         size_t pos = 0;
         while (pos <= names.size()) {
             size_t comma = names.find(',', pos);
             std::string n = trim_copy(comma == std::string::npos
                                           ? names.substr(pos)
                                           : names.substr(pos, comma - pos));
-            if (!n.empty())
-                define_label(ln, n, 0, false);
+            add_ext(n);
             if (comma == std::string::npos) break;
             pos = comma + 1;
         }
         return;
     }
+    if (icmp(op, "SEG") == 0) {
+        /* First SEG wins. Operand is name,CODE|DATA[,PRIVATE]. No bytes. */
+        if (saw_seg || !cond_on()) return;
+        std::string spec = ln->operand;
+        std::string name, kindw, extra;
+        size_t c1 = spec.find(',');
+        if (c1 == std::string::npos) {
+            name = trim_copy(spec);
+        } else {
+            name = trim_copy(spec.substr(0, c1));
+            std::string rest = spec.substr(c1 + 1);
+            size_t c2 = rest.find(',');
+            if (c2 == std::string::npos) kindw = trim_copy(rest);
+            else {
+                kindw = trim_copy(rest.substr(0, c2));
+                extra = trim_copy(rest.substr(c2 + 1));
+            }
+        }
+        uint16_t k = 0;
+        if (icmp(kindw, "DATA") == 0) k = 0x0001;
+        if (icmp(extra, "PRIVATE") == 0 || icmp(kindw, "PRIVATE") == 0)
+            k = static_cast<uint16_t>(k | 0x4000);
+        saw_seg = true;
+        seg_name = name;
+        seg_kind = k;
+        return;
+    }
 
     if (!cond_on() && icmp(op, "DO") != 0 && icmp(op, "IF") != 0 &&
         icmp(op, "ELSE") != 0 && icmp(op, "FIN") != 0)
@@ -1066,6 +1463,19 @@ void Assembler::do_pseudo(const SrcLine *ln)
         return;
     }
     if (icmp(op, "ERR") == 0) {
+        /* APW AERROR lowers to ERR with a quoted message. A numeric
+           operand is still Merlin's "error if the value is nonzero". */
+        std::string opnd = trim_copy(ln->operand);
+        if (opnd.size() >= 2) {
+            char q = opnd[0];
+            if ((q == '\'' || q == '"') && opnd.back() == q) {
+                if (pass == 2) {
+                    std::string msg = opnd.substr(1, opnd.size() - 2);
+                    err(ln, msg.empty() ? "AERROR" : msg);
+                }
+                return;
+            }
+        }
         int64_t v = 0;
         eval_on(ln, ln->operand, v);
         if (v && pass == 2) err(ln, "ERR forced");
@@ -1078,7 +1488,7 @@ void Assembler::do_instruction(const SrcLine *ln)
     int force = FORCE_NONE;
     bool long_mn = false;
     std::string cname = opcode_canonical(ln->opcode, force, long_mn);
-    OperandForm f = parse_operand_form(ln->operand);
+    OperandForm f = parse_operand_form(ln->operand, merlin_hash_a);
     /* 6502 / Merlin 32 write ASL A (etc.); Merlin 16+ uses a bare mnemonic.
        Treat a lone A as accumulator so it is not looked up as a label. */
     if (is_alu_acc(cname) && f.syntax == SYN_ABS && icmp(f.expr, "A") == 0) {
@@ -1095,6 +1505,7 @@ void Assembler::do_instruction(const SrcLine *ln)
         ctx.algebraic = opt.algebraic;
         ctx.case_sensitive = case_sensitive;
         ctx.rel = rel;
+        ctx.shifts = apw_shifts;
         ctx.pass = pass;
         ctx.asm_ptr = this;
         ctx.lookup = lookup_cb;
@@ -1136,7 +1547,13 @@ void Assembler::do_instruction(const SrcLine *ln)
             return;
         }
     }
-    emit_code(*this, ln, am, opc, val, val2, f.byte_sel, operand_bytes(am, mx, cname));
+    int nbytes = operand_bytes(am, mx, cname);
+    size_t at = obj.size();
+    emit_code(*this, ln, am, opc, val, val2, f.byte_sel, nbytes);
+    if (am == AM_IMM || am == AM_IMM8 || am == AM_IMM16 || am == AM_ABS || am == AM_ABSX ||
+        am == AM_ABSY || am == AM_LONG || am == AM_LONGX || am == AM_ABSIND ||
+        am == AM_ABSINDX || am == AM_ABSINDL)
+        note_reloc(static_cast<uint32_t>(at + 1), nbytes, f.expr, f.byte_sel);
     apply_mx(*this, cname, val);
 }
 
@@ -1320,6 +1737,12 @@ void Assembler::begin_pass(int p)
     xc = opt.start_xc;
     dummy = false;
     rel = false;
+    saw_ext = false;
+    saw_seg = false;
+    seg_name.clear();
+    seg_kind = 0;
+    exports.clear();
+    fixups.clear();
     org_resume = 0;
     org_saved = false;
     emitting = true;
@@ -1328,12 +1751,15 @@ void Assembler::begin_pass(int p)
     scope_id = 0;
     last_global_scope = 0;
     def_order = 0;
+    proc_serial = 0;
+    cur_proc = 0;
     oz_id = 1;
     case_sensitive = opt.case_sensitive;
     if (p == 1) syms.clear();
     if (p == 2) {
         obj.clear();
         listing.clear();
+        for (auto &s : syms) s.pass_seen = false;
     }
 }
 
@@ -1430,12 +1856,14 @@ void Assembler::exec_pcode(std::vector<PInstr> &ins, int lo, int hi)
         case POp::If: {
             bool parent = emitting;
             bool take = false;
-            if (icmp(ln.opcode, "IF") == 0 && ln.operand.size() >= 2 &&
+            /* A false parent does not evaluate the condition. An inner
+               expression may name a label that is not assembled. */
+            if (parent && icmp(ln.opcode, "IF") == 0 && ln.operand.size() >= 2 &&
                 (ln.operand[1] == ',' || ln.operand[1] == '=')) {
                 const char *rhs = ln.operand.c_str() + 2;
                 while (*rhs == ' ' || *rhs == '\t') rhs++;
                 take = (*rhs == ln.operand[0]);
-            } else {
+            } else if (parent) {
                 int64_t v = 0;
                 eval_on(&ln, ln.operand.empty() ? "1" : ln.operand, v);
                 take = v != 0;
@@ -1498,6 +1926,32 @@ void Assembler::exec_pcode(std::vector<PInstr> &ins, int lo, int hi)
         case POp::Endlup:
             end_list();
             break;
+        case POp::Ago: {
+            /* Forward assemble-time skip. A false parent must not jump,
+               or an inner GOTO would step over the outer ENDIF. */
+            if (!ln.label.empty()) define_label(&ln, ln.label, pc, false);
+            if (!emitting) {
+                end_list();
+                break;
+            }
+            int64_t v = 0;
+            eval_on(&ln, in.operand.empty() ? "0" : in.operand, v);
+            if (!v) {
+                end_list();
+                break;
+            }
+            int found = -1;
+            for (int j = i + 1; j < hi; j++) {
+                if (!ins[j].label.empty() && namecmp(ins[j].label, in.expr) == 0) {
+                    found = j;
+                    break;
+                }
+            }
+            if (found < 0) err(&ln, "AGO target not found");
+            end_list();
+            if (found >= 0) i = found - 1;
+            break;
+        }
         case POp::MxPart:
             if (!ln.label.empty()) define_label(&ln, ln.label, pc, false);
             mx = (mx & ~in.i0) | (in.i1 & in.i0);
@@ -1549,14 +2003,89 @@ Result assemble_pcode(PCode &code, const Options &opt)
     Assembler a;
     a.opt = opt;
     a.out = &r;
+    a.merlin_hash_a = code.syntax == Syntax::Merlin || code.syntax == Syntax::Merlin32;
+    a.apw_at_local = code.syntax == Syntax::Apw;
+    a.apw_shifts = code.syntax == Syntax::Apw;
     a.begin_pass(1);
     a.exec_pcode(code.ins, 0, static_cast<int>(code.ins.size()));
-    a.begin_pass(2);
-    a.exec_pcode(code.ins, 0, static_cast<int>(code.ins.size()));
+    /* Re-run pass 2 when an operand shortened and moved later labels.
+       The bytes and errors from a shifted pass are discarded. */
+    size_t front_errs = r.errors.size();
+    for (int attempt = 0; attempt < 5; attempt++) {
+        a.begin_pass(2);
+        a.exec_pcode(code.ins, 0, static_cast<int>(code.ins.size()));
+        bool shifted = false;
+        for (const auto &s : a.syms)
+            if (s.has_next) shifted = true;
+        if (!shifted || attempt == 4) break;
+        r.errors.resize(front_errs);
+        for (auto &s : a.syms) {
+            if (!s.has_next) continue;
+            s.value = s.value_next;
+            s.has_next = false;
+        }
+    }
     r.bytes = std::move(a.obj);
     r.org = a.org_set ? a.org : 0x8000;
     r.filetype = a.filetype;
     r.dsk_name = a.dsk_name;
+    if (a.tracking() && r.errors.empty()) {
+        OmfFile mod;
+        mod.version = 2;
+        mod.object = true;
+        OmfSeg seg;
+        seg.image = r.bytes;
+        seg.kind = a.seg_kind;
+        seg.name = a.seg_name;
+        auto global_pc = [](const Sym &s) {
+            if (!s.has_loc || s.is_var || s.is_equ || s.is_ext || s.is_local ||
+                s.is_colon || s.is_proc)
+                return false;
+            if (s.name.empty()) return false;
+            char c = s.name[0];
+            return c != '~' && c != ':' && c != ']';
+        };
+        if (seg.name.empty()) {
+            for (const auto &s : a.syms)
+                if (global_pc(s)) { seg.name = s.name; break; }
+        }
+        if (seg.name.empty()) {
+            for (const auto &s : a.syms)
+                if (s.has_loc && !s.is_equ && !s.is_ext && !s.is_var && !s.is_proc) {
+                    seg.name = s.name;
+                    break;
+                }
+        }
+        if (seg.name.empty()) seg.name = "CODE";
+        for (const auto &s : a.syms) {
+            if (!s.has_loc || s.is_var || s.is_equ || s.is_ext) continue;
+            bool glob = global_pc(s);
+            if (!glob) {
+                bool used = false;
+                for (const auto &f : a.fixups)
+                    if (a.namecmp(f.symbol, s.name) == 0) used = true;
+                if (!used) continue;
+            }
+            OmfSym os;
+            os.name = s.name;
+            os.offset = s.loc;
+            os.global = glob;
+            seg.syms.push_back(std::move(os));
+        }
+        for (const auto &f : a.fixups) {
+            OmfFix fx;
+            fx.at = f.at;
+            fx.width = f.width;
+            fx.symbol = f.symbol;
+            fx.addend = f.addend;
+            fx.divisor = f.divisor;
+            seg.fixups.push_back(std::move(fx));
+        }
+        mod.segs.push_back(std::move(seg));
+        std::string oerr;
+        if (!omf_write(mod, r.object, oerr))
+            r.errors.push_back({code.name, 0, oerr});
+    }
     r.listing = format_listing(code.name, r, a.listing, r.syntax);
     if (opt.dump_pcode) r.pcode = format_pcode(code);
     return r;
diff --git a/src/compile.cpp b/src/qasm/compile.cpp
similarity index 91%
rename from src/compile.cpp
rename to src/qasm/compile.cpp
index 1d769ca..aa30787 100644
--- a/src/compile.cpp
+++ b/src/qasm/compile.cpp
@@ -15,6 +15,7 @@ const char *syntax_name(Syntax s)
     case Syntax::Orca: return "orca";
     case Syntax::Lisa: return "lisa";
     case Syntax::Ca65: return "ca65";
+    case Syntax::Apw: return "apw";
     }
     return "merlin";
 }
@@ -37,6 +38,8 @@ Syntax syntax_from_name(const std::string &name, bool &ok)
     if (n == "ORCA" || n == "ORCA/M" || n == "ORCAM" || n == "ORCA-M") return Syntax::Orca;
     if (n == "LISA" || n == "LISA816" || n == "LISA-816") return Syntax::Lisa;
     if (n == "CA65" || n == "CC65") return Syntax::Ca65;
+    if (n == "APW" || n == "MPW" || n == "APW/MPW" || n == "APW-MPW")
+        return Syntax::Apw;
     ok = false;
     return Syntax::Merlin;
 }
@@ -239,6 +242,14 @@ Syntax identify_syntax(const std::string &src)
     if (orca > best) { best = orca; syn = Syntax::Orca; }
     if (lisa > best) { best = lisa; syn = Syntax::Lisa; }
     if (ca65 > best) { best = ca65; syn = Syntax::Ca65; }
+    /* Apple's assemblers share ORCA/M source. These tokens are not ORCA
+       score words, and a short ORCA file can outscore them, so they win
+       over ORCA or Merlin after the scores. LISA and ca65 keep a higher
+       score. A Merlin 32 file that also has one of these is APW. */
+    bool apple = present("ABSADDR") || present("MSB") || present("CODECHK") ||
+                 present("CODECHECK") || present("INSTIME");
+    if (apple && (syn == Syntax::Orca || syn == Syntax::Merlin))
+        return Syntax::Apw;
     if (m32 && syn == Syntax::Merlin) return Syntax::Merlin32;
     return syn;
 }
@@ -323,13 +334,13 @@ static const char *mode_name(int syntax)
     }
 }
 
-void annotate_inst(PInstr &in)
+void annotate_inst(PInstr &in, bool merlin_hash_a)
 {
     int force = FORCE_NONE;
     bool long_mn = false;
     in.cname = opcode_canonical(in.opcode, force, long_mn);
     in.long_mn = long_mn;
-    OperandForm f = parse_operand_form(in.operand);
+    OperandForm f = parse_operand_form(in.operand, merlin_hash_a);
     if (is_alu_acc(in.cname) && f.syntax == SYN_ABS && icmp(f.expr, "A") == 0) {
         f.syntax = SYN_IMP;
         f.expr.clear();
@@ -365,6 +376,7 @@ static const char *pop_name(POp op)
     case POp::Endif: return "P_ENDIF";
     case POp::Lup: return "P_LUP";
     case POp::Endlup: return "P_ENDLUP";
+    case POp::Ago: return "P_AGO";
     }
     return "P_?";
 }
@@ -448,6 +460,46 @@ static std::string e_primary(E &e)
         e.ok = false;
         return {};
     }
+    /* ORCA/APW `&len('text')` is the character count. It is folded here. */
+    if (c == '&') {
+        int save = e.i;
+        e.i++;
+        if (e_word(e, "len")) {
+            eskip(e);
+            if (e.s[e.i] != '(') {
+                e.ok = false;
+                return {};
+            }
+            e.i++;
+            eskip(e);
+            char q = e.s[e.i];
+            if (q != '\'' && q != '"') {
+                e.ok = false;
+                return {};
+            }
+            e.i++;
+            int n = 0;
+            while (e.s[e.i] && e.s[e.i] != q) {
+                n++;
+                e.i++;
+            }
+            if (e.s[e.i] != q) {
+                e.ok = false;
+                return {};
+            }
+            e.i++;
+            eskip(e);
+            if (e.s[e.i] != ')') {
+                e.ok = false;
+                return {};
+            }
+            e.i++;
+            return std::to_string(n);
+        }
+        e.i = save;
+        e.ok = false;
+        return {};
+    }
     if (c == '(') {
         e.i++;
         std::string inner = e_lor(e);
@@ -575,9 +627,18 @@ static std::string e_mul(E &e)
     for (;;) {
         eskip(e);
         char c = e.s[e.i];
-        if (c != '*' && c != '/') break;
-        e.i++;
-        v = e_bin(v, std::string(1, c), e_unary(e));
+        if (c == '*' || c == '/') {
+            e.i++;
+            v = e_bin(v, std::string(1, c), e_unary(e));
+            continue;
+        }
+        int save = e.i;
+        if (e_word(e, "mod")) {
+            v = e_bin(v, "%", e_unary(e));
+            continue;
+        }
+        e.i = save;
+        break;
     }
     return v;
 }
@@ -767,6 +828,7 @@ PCode compile_source(const std::string &src, const std::string &name, const Opti
         break;
     }
     case Syntax::Orca:
+    case Syntax::Apw:
         orca_compile(src, name, opt, code);
         break;
     case Syntax::Lisa:
diff --git a/src/expr.cpp b/src/qasm/expr.cpp
similarity index 86%
rename from src/expr.cpp
rename to src/qasm/expr.cpp
index 5a29d96..75bb663 100644
--- a/src/expr.cpp
+++ b/src/qasm/expr.cpp
@@ -111,7 +111,7 @@ static int64_t parse_atom(P &p)
     if (std::isalpha(c) || c == '_' || c == ']' || c == ':' || c == '@' || c == '.' ||
         tilde_name) {
         std::string name;
-        while (p.s[p.i] && !std::strchr("+-*/&!.<=>#{} \t,;", p.s[p.i]))
+        while (p.s[p.i] && !std::strchr("+-*/%&!.<=>#{} \t,;", p.s[p.i]))
             name.push_back(p.s[p.i++]);
         int64_t v = 0;
         bool known = false;
@@ -159,8 +159,8 @@ static int op_prec(int op)
 {
     switch (op) {
     case 'L': case 'G': case 'E': case 'N': return 1;
-    case '+': case '-': return 2;
-    case '*': case '/': return 3;
+    case '+': case '-': case 'R': case 'S': return 2;
+    case '*': case '/': case '%': return 3;
     case '&': case '.': case '!': return 4;
     default: return 0;
     }
@@ -170,8 +170,8 @@ static int read_op(P &p)
 {
     skip(p);
     int c = static_cast<unsigned char>(p.s[p.i]);
-    if (c == '+' || c == '-' || c == '*' || c == '/' || c == '&' || c == '.' ||
-        c == '!') {
+    if (c == '+' || c == '-' || c == '*' || c == '/' || c == '%' || c == '&' ||
+        c == '.' || c == '!') {
         p.i++;
         return c;
     }
@@ -184,6 +184,17 @@ static int read_op(P &p)
         p.i++;
         return 'N';
     }
+    /* APW only. `<=` `>=` `<>` stay comparisons; the translator rewrites those. */
+    if (p.ctx && p.ctx->shifts) {
+        if (c == '>' && p.s[p.i + 1] == '>') {
+            p.i += 2;
+            return 'R';
+        }
+        if (c == '<' && p.s[p.i + 1] == '<') {
+            p.i += 2;
+            return 'S';
+        }
+    }
     if (c == '<') {
         p.i++;
         return 'L';
@@ -202,6 +213,7 @@ static int64_t apply_op(int op, int64_t a, int64_t b)
     case '-': return a - b;
     case '*': return a * b;
     case '/': return b ? a / b : 0;
+    case '%': return b ? a % b : 0;
     case '&': return a & b;
     case '.': return a | b;
     case '!': return a ^ b;
@@ -209,6 +221,15 @@ static int64_t apply_op(int op, int64_t a, int64_t b)
     case 'G': return a > b ? 1 : 0;
     case 'E': return a == b ? 1 : 0;
     case 'N': return a != b ? 1 : 0;
+    case 'R':
+    case 'S': {
+        /* Logical shift. A count outside 0..62 is 0 so the shift is defined. */
+        if (b < 0 || b >= 63) return 0;
+        auto ua = static_cast<uint64_t>(a);
+        auto ub = static_cast<unsigned>(b);
+        uint64_t r = op == 'R' ? (ua >> ub) : (ua << ub);
+        return static_cast<int64_t>(r);
+    }
     default: return 0;
     }
 }
diff --git a/src/front_ca65.cpp b/src/qasm/front_ca65.cpp
similarity index 92%
rename from src/front_ca65.cpp
rename to src/qasm/front_ca65.cpp
index 4142aa9..12d8c8c 100644
--- a/src/front_ca65.cpp
+++ b/src/qasm/front_ca65.cpp
@@ -174,7 +174,7 @@ static std::string ca_addr(const std::string &operand)
     if (operand.empty()) return operand;
     int force = FORCE_NONE;
     std::string stripped = strip_sizes(operand, force);
-    OperandForm f = parse_operand_form(stripped);
+    OperandForm f = parse_operand_form(stripped, false);
     if (force != FORCE_NONE && f.force == FORCE_NONE) f.force = force;
     f.expr = translate_algebraic(f.expr);
     if (!f.expr2.empty()) f.expr2 = translate_algebraic(f.expr2);
@@ -228,7 +228,7 @@ struct CC {
         in.source = ln.source;
         in.file = ln.file;
         in.lineno = ln.lineno;
-        if (op == POp::Inst) annotate_inst(in);
+        if (op == POp::Inst) annotate_inst(in, false);
         out->ins.push_back(std::move(in));
     }
 
@@ -595,13 +595,53 @@ void CC::one(const CaLine &ln)
         add(ln, POp::Nop, {}, {}, false);
         return;
     }
+    if (op == ".SEGMENT" || op == ".CODE" || op == ".DATA" || op == ".RODATA" ||
+        op == ".BSS" || op == ".ZEROPAGE") {
+        std::string name;
+        bool data = false;
+        if (op == ".SEGMENT") {
+            name = trim_copy(ln.operand);
+            auto cut = name.find_first_of(" \t:");
+            if (cut != std::string::npos) name = trim_copy(name.substr(0, cut));
+            if (name.size() >= 2 && (name.front() == '"' || name.front() == '\'') &&
+                name.back() == name.front())
+                name = name.substr(1, name.size() - 2);
+        } else if (op == ".CODE") {
+            name = "CODE";
+        } else if (op == ".DATA") {
+            name = "DATA";
+            data = true;
+        } else if (op == ".RODATA") {
+            name = "RODATA";
+            data = true;
+        } else if (op == ".BSS") {
+            name = "BSS";
+            data = true;
+        } else {
+            name = "ZEROPAGE";
+            data = true;
+        }
+        if (name.empty()) name = "CODE";
+        add(ln, POp::Asm, "SEG", name + (data ? ",DATA" : ",CODE"), true);
+        return;
+    }
+    if (op == ".EXPORT" || op == ".EXPORTZP" || op == ".GLOBAL") {
+        std::string names;
+        for (const auto &p : split_args(ln.operand, ',')) {
+            std::string n = trim_copy(p);
+            auto c = n.find(':');
+            if (c != std::string::npos) n = trim_copy(n.substr(0, c));
+            if (n.empty()) continue;
+            if (!names.empty()) names += ",";
+            names += n;
+        }
+        add(ln, POp::Asm, "ENT", names, false);
+        return;
+    }
     if (!op.empty() && op[0] == '.' &&
         (icmp(op, ".SMART") == 0 || icmp(op, ".FEATURE") == 0 || icmp(op, ".LIST") == 0 ||
          icmp(op, ".DEBUGINFO") == 0 || icmp(op, ".ASSERT") == 0 || icmp(op, ".LOCAL") == 0 ||
-         icmp(op, ".SEGMENT") == 0 || icmp(op, ".CODE") == 0 || icmp(op, ".DATA") == 0 ||
-         icmp(op, ".RODATA") == 0 || icmp(op, ".BSS") == 0 || icmp(op, ".ZEROPAGE") == 0 ||
-         icmp(op, ".ENDPROC") == 0 || icmp(op, ".ENDSCOPE") == 0 || icmp(op, ".EXPORT") == 0 ||
-         icmp(op, ".EXPORTZP") == 0 || icmp(op, ".GLOBAL") == 0 || icmp(op, ".CASE") == 0 ||
+         icmp(op, ".ENDPROC") == 0 || icmp(op, ".ENDSCOPE") == 0 || icmp(op, ".CASE") == 0 ||
          icmp(op, ".WARNING") == 0 || icmp(op, ".ERROR") == 0 || icmp(op, ".OUT") == 0 ||
          icmp(op, ".REPEAT") == 0 || icmp(op, ".ENDREPEAT") == 0 || icmp(op, ".ENDREP") == 0 ||
          icmp(op, ".ENDMACRO") == 0 || icmp(op, ".ENDMAC") == 0)) {
diff --git a/src/front_lisa.cpp b/src/qasm/front_lisa.cpp
similarity index 98%
rename from src/front_lisa.cpp
rename to src/qasm/front_lisa.cpp
index cad1874..59879a0 100644
--- a/src/front_lisa.cpp
+++ b/src/qasm/front_lisa.cpp
@@ -46,7 +46,7 @@ static std::string apply_zp(const std::string &operand, const std::vector<std::s
     std::string opnd = operand;
     if (opnd[0] == '/' && (opnd.size() == 1 || opnd[1] != '/'))
         opnd = "#>" + opnd.substr(1);
-    OperandForm f = parse_operand_form(opnd);
+    OperandForm f = parse_operand_form(opnd, false);
     if (f.force == FORCE_NONE && f.syntax != SYN_IMM && f.syntax != SYN_IMP &&
         is_zp_name(zp, f.expr)) {
         f.force = FORCE_DP;
@@ -67,7 +67,7 @@ static void push(PCode &code, const SrcLine &ln, POp op, const std::string &opco
     in.source = ln.raw;
     in.file = ln.file;
     in.lineno = ln.lineno;
-    if (op == POp::Inst) annotate_inst(in);
+    if (op == POp::Inst) annotate_inst(in, false);
     code.ins.push_back(std::move(in));
 }
 
diff --git a/src/front_merlin.cpp b/src/qasm/front_merlin.cpp
similarity index 100%
rename from src/front_merlin.cpp
rename to src/qasm/front_merlin.cpp
diff --git a/src/front_orca.cpp b/src/qasm/front_orca.cpp
similarity index 52%
rename from src/front_orca.cpp
rename to src/qasm/front_orca.cpp
index fbf9880..553e921 100644
--- a/src/front_orca.cpp
+++ b/src/qasm/front_orca.cpp
@@ -23,14 +23,93 @@ static bool orca_dir(const std::string &t)
     return false;
 }
 
-static void fix_orca(SrcLine &ln)
+/* Directives Apple's APW assembler and the MPW IIgs assembler add on top
+   of ORCA/M. They are not ORCA directives: an ORCA file that uses one
+   still takes the old path. */
+static bool apw_only_dir(const std::string &t)
+{
+    static const char *d[] = {
+        "ABSADDR", "MSB", "CODECHK", "CODECHECK", "DATACHECK", "DATACHK", "DYNCHK",
+        "EXPAND", "GEN", "IEEE", "INSTIME", "LIST", "NUMSEX", "OBJCASE",
+        "PRINTER", "SYMBOL", "TITLE", "65816", "65C02", "6502",
+        "PROC", "ENDP", "ENDPROC", "END_PROC", "FUNC", "ENDF", "ENDFUNC",
+        "MAIN", "ENDMAIN", "RECORD", "ENDR", "ENDS", "ENDWITH", "CODE",
+        "IMPORT", "EXPORT", "INCLUDE", "STRING", "BLANKS", "PRINT", "SEG",
+        "SEGATTR", "PAGESIZE", "SPACE", "SET", "DC.B", "DC.W", "DC.L", "DC.A", "DCB",
+        "DCB.B", "DS.B", "DS.W", "DS.L", "AERROR",
+        nullptr
+    };
+    for (int i = 0; d[i]; i++)
+        if (icmp(t, d[i]) == 0) return true;
+    return false;
+}
+
+static bool col_dir(const std::string &t, bool apw)
+{
+    return orca_dir(t) || (apw && apw_only_dir(t));
+}
+
+static bool word_char(unsigned char c)
+{
+    return std::isalnum(c) || c == '_' || c == '.';
+}
+
+/* A trailing THEN is the block-IF keyword. The expression is what remains. */
+static bool strip_trailing_then(const std::string &in, std::string &head)
+{
+    size_t end = in.size();
+    while (end > 0 && std::isspace(static_cast<unsigned char>(in[end - 1]))) end--;
+    const size_t n = 4;
+    if (end < n || icmp(in.substr(end - n, n), "THEN") != 0) return false;
+    if (end > n && word_char(static_cast<unsigned char>(in[end - n - 1]))) return false;
+    head = trim_copy(in.substr(0, end - n));
+    return true;
+}
+
+/* `expr GOTO label` skips forward when the expression is true. */
+static bool split_goto(const std::string &in, std::string &expr, std::string &label)
+{
+    bool sq = false, dq = false;
+    size_t hit = std::string::npos;
+    for (size_t i = 0; i < in.size(); i++) {
+        char c = in[i];
+        if (!sq && !dq && c == '\'') sq = true;
+        else if (!sq && !dq && c == '"') dq = true;
+        else if (sq && c == '\'') sq = false;
+        else if (dq && c == '"') dq = false;
+        else if (!sq && !dq && (c == 'G' || c == 'g') && i + 4 <= in.size() &&
+                 icmp(in.substr(i, 4), "GOTO") == 0) {
+            bool left = i == 0 || !word_char(static_cast<unsigned char>(in[i - 1]));
+            bool right = i + 4 >= in.size() || !word_char(static_cast<unsigned char>(in[i + 4]));
+            if (left && right) hit = i;
+        }
+    }
+    if (hit == std::string::npos) return false;
+    expr = trim_copy(in.substr(0, hit));
+    std::string rest = trim_copy(in.substr(hit + 4));
+    if (rest.empty()) return false;
+    size_t sp = rest.find_first_of(" \t");
+    label = sp == std::string::npos ? rest : rest.substr(0, sp);
+    return !label.empty();
+}
+
+static bool on_flag(const std::string &operand)
+{
+    std::string a = trim_copy(operand);
+    return icmp(a, "ON") == 0 || icmp(a, "YES") == 0 || a == "1";
+}
+
+static void fix_orca(SrcLine &ln, bool apw)
 {
     if (ln.is_comment) return;
     if (ln.has_label && !ln.label.empty() && ln.label.back() == ':') {
         ln.label.pop_back();
         ln.has_label = !ln.label.empty();
     }
-    if (ln.has_label && orca_dir(ln.label) && !orca_dir(ln.opcode)) {
+    if (ln.has_label && col_dir(ln.label, apw) && !col_dir(ln.opcode, apw)) {
+        /* A column-1 word that is also a directive stays a label when the
+           next field is an instruction: APPEND PHP, PRINT STA, LIST LDA. */
+        if (!ln.opcode.empty() && is_mnemonic(ln.opcode)) return;
         if (ln.operand.empty()) ln.operand = ln.opcode;
         else ln.operand = ln.opcode + " " + ln.operand;
         ln.opcode = ln.label;
@@ -39,6 +118,68 @@ static void fix_orca(SrcLine &ln)
     }
 }
 
+/* A whole item that is '...' or "...". A doubled quote is one quote. */
+static bool quoted_item(const std::string &t, std::string &chars)
+{
+    if (t.size() < 2) return false;
+    char q = t[0];
+    if (q != '\'' && q != '"') return false;
+    std::string out;
+    for (size_t i = 1; i < t.size();) {
+        if (t[i] == q) {
+            if (i + 1 < t.size() && t[i + 1] == q) {
+                out.push_back(q);
+                i += 2;
+                continue;
+            }
+            if (i + 1 == t.size()) {
+                chars = std::move(out);
+                return true;
+            }
+            return false;
+        }
+        out.push_back(t[i]);
+        i++;
+    }
+    return false;
+}
+
+static void append_hex_byte(std::string &o, unsigned char b)
+{
+    static const char hexd[] = "0123456789ABCDEF";
+    o.push_back('$');
+    o.push_back(hexd[b >> 4]);
+    o.push_back(hexd[b & 0x0F]);
+}
+
+/* PROC / FUNC / MAIN operand: `temporg expr` or `org expr`, optional ENTRY. */
+static std::string proc_org_expr(const std::string &operand)
+{
+    const std::string &s = operand;
+    for (size_t i = 0; i < s.size();) {
+        while (i < s.size() &&
+               (std::isspace(static_cast<unsigned char>(s[i])) || s[i] == ','))
+            i++;
+        if (i >= s.size()) break;
+        size_t start = i;
+        while (i < s.size() &&
+               (std::isalnum(static_cast<unsigned char>(s[i])) || s[i] == '_'))
+            i++;
+        if (start == i) {
+            i++;
+            continue;
+        }
+        std::string w = s.substr(start, i - start);
+        if (icmp(w, "temporg") == 0 || icmp(w, "org") == 0) {
+            while (i < s.size() && std::isspace(static_cast<unsigned char>(s[i]))) i++;
+            size_t e0 = i;
+            while (i < s.size() && s[i] != ',') i++;
+            return trim_copy(s.substr(e0, i - e0));
+        }
+    }
+    return {};
+}
+
 struct Omac {
     std::string name;
     std::string lab;
@@ -53,6 +194,10 @@ struct OC {
     int depth = 0;
     std::map<std::string, std::vector<SrcLine>> cache;
     std::vector<std::string> opening;
+    bool apw = false;
+    /* Lowering-time flags. A false IF does not hide them, same as CASE. */
+    bool absaddr = false;
+    bool msb = false;
 
     Omac *find_mac(const std::string &name)
     {
@@ -130,7 +275,7 @@ struct OC {
         in.source = ln.raw;
         in.file = ln.file;
         in.lineno = ln.lineno;
-        if (op == POp::Inst) annotate_inst(in);
+        if (op == POp::Inst) annotate_inst(in, false);
         out->ins.push_back(std::move(in));
     }
 
@@ -148,10 +293,56 @@ struct OC {
         return o;
     }
 
+    /* DC.B items are expressions, or quoted strings of one byte per character.
+       MSB ON sets bit 7, the same way DC C does. */
+    std::string dc_b_list(const std::string &s) const
+    {
+        auto parts = split_args(s, ',');
+        std::string o;
+        auto add = [&](const std::string &p) {
+            if (p.empty()) return;
+            if (!o.empty()) o.push_back(',');
+            o += p;
+        };
+        for (const auto &p : parts) {
+            if (p.empty()) continue;
+            std::string chars;
+            if (quoted_item(p, chars)) {
+                for (unsigned char c : chars) {
+                    unsigned char b = msb ? static_cast<unsigned char>(c | 0x80) : c;
+                    std::string hex;
+                    append_hex_byte(hex, b);
+                    add(hex);
+                }
+            } else {
+                add(alg(p));
+            }
+        }
+        return o;
+    }
+
+    void emit_ds(const SrcLine &ln, int scale)
+    {
+        auto parts = split_args(ln.operand, ',');
+        std::string count = (parts.empty() || trim_copy(parts[0]).empty())
+                                ? std::string("0")
+                                : alg(parts[0]);
+        std::string oper = scale == 1 ? count
+                                      : "{" + count + "}*" + std::to_string(scale);
+        if (parts.size() >= 2 && !trim_copy(parts[1]).empty())
+            oper += "," + alg(parts[1]);
+        emit(ln, POp::Ds, "DS", oper, true);
+    }
+
     std::string alg_addr(const std::string &operand) const
     {
         if (operand.empty()) return operand;
-        OperandForm f = parse_operand_form(operand);
+        OperandForm f = parse_operand_form(operand, false);
+        /* ABSADDR ON forces an absolute operand. An explicit < | > stays,
+           and immediate and implied forms have no absolute width. */
+        if (absaddr && f.force == FORCE_NONE && f.syntax != SYN_IMM &&
+            f.syntax != SYN_IMP)
+            f.force = FORCE_ABS;
         f.expr = alg(f.expr);
         if (!f.expr2.empty()) f.expr2 = alg(f.expr2);
         return form_operand(f);
@@ -182,8 +373,8 @@ struct OC {
             out->errors.push_back({ln.file, ln.lineno, err});
             return false;
         }
-        got = parse_source(text, path);
-        for (auto &l : got) fix_orca(l);
+        got = parse_source(text, path, apw);
+        for (auto &l : got) fix_orca(l, apw);
         cache[path] = got;
         return true;
     }
@@ -234,16 +425,20 @@ struct OC {
                 bool clean = true;
                 for (char c : val)
                     if (c == '\'') clean = false;
-                if (clean) emit(bit, POp::Asm, "ASC", "'" + val + "'", true);
-                else {
+                /* MSB ON sets bit 7 on each character. ASC cannot do that
+                   for a single-quoted string, so the bytes are raw. */
+                if (msb || !clean) {
                     PInstr in;
                     in.op = POp::Bytes;
                     in.source = bit.raw;
                     in.file = bit.file;
                     in.lineno = bit.lineno;
                     if (bit.has_label) in.label = bit.label;
-                    for (unsigned char c : val) in.raw.push_back(c);
+                    for (unsigned char c : val)
+                        in.raw.push_back(msb ? static_cast<uint8_t>(c | 0x80) : c);
                     out->ins.push_back(std::move(in));
+                } else {
+                    emit(bit, POp::Asm, "ASC", "'" + val + "'", true);
                 }
             } else if (ut == "H") {
                 std::string hex;
@@ -277,6 +472,25 @@ struct OC {
         out->ins.push_back(std::move(in));
     }
 
+    void emit_cpu(const SrcLine &ln, const std::string &cpu_text, bool keep_label)
+    {
+        PInstr in;
+        in.op = POp::Cpu;
+        in.i0 = CPU_65816;
+        std::string u = cpu_text;
+        for (char &c : u)
+            c = static_cast<char>(std::toupper(static_cast<unsigned char>(c)));
+        if (u.find("6502") != std::string::npos && u.find("65C02") == std::string::npos)
+            in.i0 = CPU_6502;
+        else if (u.find("65C02") != std::string::npos)
+            in.i0 = CPU_65C02;
+        in.source = ln.raw;
+        in.file = ln.file;
+        in.lineno = ln.lineno;
+        if (keep_label && ln.has_label) in.label = ln.label;
+        out->ins.push_back(std::move(in));
+    }
+
     void one(const SrcLine &ln)
     {
         if (ln.is_comment || (ln.opcode.empty() && !ln.has_label)) {
@@ -286,17 +500,70 @@ struct OC {
         const std::string &op = ln.opcode;
         if (icmp(op, "MACRO") == 0) return; /* body skipped by the walker */
         if (icmp(op, "START") == 0 || icmp(op, "DATA") == 0 || icmp(op, "PRIVATE") == 0 ||
-            icmp(op, "PRIVDATA") == 0 || icmp(op, "ANOP") == 0) {
+            icmp(op, "PRIVDATA") == 0) {
+            /* One pcode op: the label stays on this line, and SEG names the
+               segment without moving the PC. */
+            std::string name = ln.has_label ? ln.label : std::string("CODE");
+            bool data = icmp(op, "DATA") == 0 || icmp(op, "PRIVDATA") == 0;
+            bool priv = icmp(op, "PRIVATE") == 0 || icmp(op, "PRIVDATA") == 0;
+            std::string oper = name + "," + (data ? "DATA" : "CODE");
+            if (priv) oper += ",PRIVATE";
+            emit(ln, POp::Asm, "SEG", oper, true);
+            return;
+        }
+        if (apw && (icmp(op, "PROC") == 0 || icmp(op, "FUNC") == 0 || icmp(op, "MAIN") == 0)) {
+            /* Close a proc that END did not. The joined BASIC sources drop END.
+               The proc name is defined before SCOPE, so it stays global. */
+            SrcLine bare = ln;
+            bare.label.clear();
+            bare.has_label = false;
+            bare.raw.clear();
+            emit(bare, POp::Asm, "UNSCOPE", {}, false);
+            std::string orgx = proc_org_expr(ln.operand);
+            if (!orgx.empty()) {
+                SrcLine orgline = ln;
+                orgline.label.clear();
+                orgline.has_label = false;
+                emit(orgline, POp::Org, "ORG", alg(orgx), false);
+                if (ln.has_label) {
+                    SrcLine lab = ln;
+                    lab.raw.clear();
+                    emit(lab, POp::Label, {}, {}, true);
+                }
+            } else {
+                emit(ln, ln.has_label ? POp::Label : POp::Nop, {}, {}, true);
+            }
+            emit(bare, POp::Asm, "SCOPE", {}, false);
+            return;
+        }
+        if (icmp(op, "ANOP") == 0 ||
+            (apw && (icmp(op, "RECORD") == 0 || icmp(op, "CODE") == 0))) {
             emit(ln, ln.has_label ? POp::Label : POp::Nop, {}, {}, true);
             return;
         }
+        if (apw && (icmp(op, "ENDP") == 0 || icmp(op, "ENDPROC") == 0 || icmp(op, "END_PROC") == 0 ||
+                    icmp(op, "ENDF") == 0 || icmp(op, "ENDFUNC") == 0 || icmp(op, "ENDMAIN") == 0)) {
+            /* The label is defined while still inside the proc. */
+            emit(ln, POp::Asm, "UNSCOPE", {}, true);
+            return;
+        }
+        if (apw && (icmp(op, "ENDR") == 0 || icmp(op, "ENDS") == 0 || icmp(op, "ENDWITH") == 0)) {
+            emit(ln, POp::Nop, {}, {}, true);
+            return;
+        }
         if (icmp(op, "END") == 0) { emit(ln, POp::End, "END", {}, true); return; }
         if (icmp(op, "ORG") == 0) { emit(ln, POp::Org, "ORG", alg(ln.operand), true); return; }
-        if (icmp(op, "EQU") == 0 || icmp(op, "GEQU") == 0) {
+        if (icmp(op, "EQU") == 0 || icmp(op, "GEQU") == 0 || (apw && icmp(op, "SET") == 0)) {
             emit(ln, POp::Equ, "EQU", alg(ln.operand), true);
             return;
         }
         if (icmp(op, "DS") == 0) { emit(ln, POp::Ds, "DS", alg_list(ln.operand), true); return; }
+        if (apw && (icmp(op, "DS.B") == 0 || icmp(op, "DCB.B") == 0)) {
+            emit_ds(ln, 1);
+            return;
+        }
+        if (apw && icmp(op, "DS.W") == 0) { emit_ds(ln, 2); return; }
+        if (apw && icmp(op, "DS.L") == 0) { emit_ds(ln, 4); return; }
         if (icmp(op, "DC") == 0) { emit_dc(ln); return; }
         if (icmp(op, "LONGA") == 0 || icmp(op, "LONGI") == 0) {
             std::string a = trim_copy(ln.operand);
@@ -305,7 +572,26 @@ struct OC {
             return;
         }
         if (icmp(op, "IF") == 0) {
-            emit(ln, POp::If, "DO", ln.operand.empty() ? "1" : alg(ln.operand), true);
+            std::string oper = trim_copy(ln.operand);
+            std::string expr, label;
+            if (apw && split_goto(oper, expr, label)) {
+                PInstr in;
+                in.op = POp::Ago;
+                in.opcode = "IF";
+                in.operand = expr.empty() ? std::string("0") : alg(expr);
+                in.expr = label;
+                in.source = ln.raw;
+                in.file = ln.file;
+                in.lineno = ln.lineno;
+                if (ln.has_label) in.label = ln.label;
+                out->ins.push_back(std::move(in));
+                return;
+            }
+            if (apw) {
+                std::string head;
+                if (strip_trailing_then(oper, head)) oper = head;
+            }
+            emit(ln, POp::If, "DO", oper.empty() ? "1" : alg(oper), true);
             return;
         }
         if (icmp(op, "ELSE") == 0) { emit(ln, POp::Else, "ELSE", {}, false); return; }
@@ -315,8 +601,7 @@ struct OC {
         }
         if (icmp(op, "EXTERN") == 0) { emit(ln, POp::Asm, "EXT", ln.operand, true); return; }
         if (icmp(op, "ENTRY") == 0) {
-            if (ln.has_label) emit(ln, POp::Label, {}, {}, true);
-            else emit(ln, POp::Nop, {}, {}, false);
+            emit(ln, POp::Asm, "ENT", ln.operand, true);
             return;
         }
         if (icmp(op, "ALIGN") == 0) {
@@ -340,21 +625,11 @@ struct OC {
             return;
         }
         if (icmp(op, "MACHINE") == 0) {
-            PInstr in;
-            in.op = POp::Cpu;
-            in.i0 = CPU_65816;
-            std::string u = ln.operand;
-            for (char &c : u) c = static_cast<char>(std::toupper(static_cast<unsigned char>(c)));
-            if (u.find("6502") != std::string::npos && u.find("65C02") == std::string::npos)
-                in.i0 = CPU_6502;
-            else if (u.find("65C02") != std::string::npos) in.i0 = CPU_65C02;
-            in.source = ln.raw;
-            in.file = ln.file;
-            in.lineno = ln.lineno;
-            out->ins.push_back(std::move(in));
+            emit_cpu(ln, ln.operand, false);
             return;
         }
-        if (icmp(op, "COPY") == 0 || icmp(op, "APPEND") == 0 || icmp(op, "MCOPY") == 0) {
+        if (icmp(op, "COPY") == 0 || icmp(op, "APPEND") == 0 || icmp(op, "MCOPY") == 0 ||
+            (apw && icmp(op, "INCLUDE") == 0)) {
             emit(ln, POp::Nop, {}, {}, false);
             std::vector<SrcLine> inc;
             if (!load(ln, inc)) return;
@@ -376,6 +651,59 @@ struct OC {
             emit(ln, POp::Nop, {}, {}, ln.has_label);
             return;
         }
+        if (apw && icmp(op, "ABSADDR") == 0) {
+            absaddr = on_flag(ln.operand);
+            emit(ln, POp::Nop, {}, {}, true);
+            return;
+        }
+        if (apw && icmp(op, "MSB") == 0) {
+            msb = on_flag(ln.operand);
+            emit(ln, POp::Nop, {}, {}, true);
+            return;
+        }
+        if (apw && (icmp(op, "65816") == 0 || icmp(op, "65C02") == 0 || icmp(op, "6502") == 0)) {
+            std::string a = trim_copy(ln.operand);
+            bool off = icmp(a, "OFF") == 0 || icmp(a, "NO") == 0 || a == "0";
+            if (off) emit(ln, POp::Nop, {}, {}, true);
+            else emit_cpu(ln, op, true);
+            return;
+        }
+        if (apw && icmp(op, "IMPORT") == 0) {
+            emit(ln, POp::Asm, "EXT", ln.operand, true);
+            return;
+        }
+        if (apw && (icmp(op, "DC.B") == 0 || icmp(op, "DCB") == 0)) {
+            emit(ln, POp::Data, "DFB", dc_b_list(ln.operand), true);
+            return;
+        }
+        if (apw && icmp(op, "DC.W") == 0) {
+            emit(ln, POp::Data, "DA", alg_list(ln.operand), true);
+            return;
+        }
+        if (apw && icmp(op, "DC.L") == 0) {
+            emit(ln, POp::Data, "ADRL", alg_list(ln.operand), true);
+            return;
+        }
+        if (apw && icmp(op, "DC.A") == 0) {
+            emit(ln, POp::Data, "ADR", alg_list(ln.operand), true);
+            return;
+        }
+        if (apw && icmp(op, "AERROR") == 0) {
+            emit(ln, POp::Asm, "ERR", ln.operand, true);
+            return;
+        }
+        if (apw && icmp(op, "EXPORT") == 0) {
+            emit(ln, POp::Asm, "XPORT", ln.operand, true);
+            return;
+        }
+        if (apw && (apw_only_dir(op) || icmp(op, "KIND") == 0 || icmp(op, "RENAME") == 0 ||
+                    icmp(op, "SETCOM") == 0 || icmp(op, "DIRECT") == 0)) {
+            /* Listing controls, STRING, EXPORT, SEG, and the other Apple
+               directives that do not change object bytes. KIND, RENAME,
+               SETCOM, and DIRECT are errors in ORCA/M and no-ops here. */
+            emit(ln, POp::Nop, {}, {}, true);
+            return;
+        }
         if (orca_dir(op) && icmp(op, "DC") != 0) {
             out->errors.push_back({ln.file, ln.lineno, "unsupported ORCA directive " + op});
             emit(ln, POp::Nop, {}, {}, ln.has_label);
@@ -449,11 +777,13 @@ struct OC {
 
 void orca_compile(const std::string &src, const std::string &name, const Options &opt, PCode &code)
 {
-    auto lines = parse_source(src, name);
-    for (auto &ln : lines) fix_orca(ln);
+    bool apw = code.syntax == Syntax::Apw;
+    auto lines = parse_source(src, name, apw);
+    for (auto &ln : lines) fix_orca(ln, apw);
     OC c;
     c.opt = &opt;
     c.out = &code;
+    c.apw = apw;
     c.collect(lines);
     c.compile_all(lines);
 }
diff --git a/src/intern.hpp b/src/qasm/intern.hpp
similarity index 84%
rename from src/intern.hpp
rename to src/qasm/intern.hpp
index db5fc77..d2f6521 100644
--- a/src/intern.hpp
+++ b/src/qasm/intern.hpp
@@ -110,9 +110,13 @@ bool file_readable(const std::string &path);
 std::string resolve_include(const std::string &name, const std::string &from_file,
                             const std::vector<std::string> &include_dirs);
 
-std::vector<SrcLine> parse_source(const std::string &src, const std::string &name);
-SrcLine parse_line_text(const std::string &text);
-OperandForm parse_operand_form(const std::string &operand);
+/* apw_text expands MacRoman comparisons and treats ';' as a comment
+   even when it is glued to the operand. Other syntaxes stay as they were. */
+std::vector<SrcLine> parse_source(const std::string &src, const std::string &name,
+                                  bool apw_text = false);
+SrcLine parse_line_text(const std::string &text, bool apw_text = false);
+/* merlin_hash_a: Merlin `#Aexpr` is the bank byte. Other syntaxes keep the A. */
+OperandForm parse_operand_form(const std::string &operand, bool merlin_hash_a = true);
 
 struct ExprCtx {
     uint32_t pc = 0;
@@ -120,6 +124,8 @@ struct ExprCtx {
     bool algebraic = false;
     bool case_sensitive = false;
     bool rel = false; /* REL files: undefined names are implicit EXT = 0 */
+    /* APW `>>` / `<<` are logical shifts. Other syntaxes keep the old reading. */
+    bool shifts = false;
     int pass = 1;
     void *asm_ptr = nullptr;
     int (*lookup)(void *asm_ptr, const std::string &name, int64_t *val, bool *known) = nullptr;
@@ -128,6 +134,7 @@ struct ExprCtx {
 bool eval_expr(ExprCtx &ctx, const std::string &expr, int64_t &out, std::string &err);
 
 std::string opcode_canonical(const std::string &name, int &force_out, bool &long_mn);
+bool is_mnemonic(const std::string &name);
 int opcode_encode(const std::string &cname, AddrMode am, int cpu, uint8_t &opc);
 bool opcode_supports(const std::string &cname, AddrMode am, int cpu);
 bool is_branch(const std::string &cname);
diff --git a/src/main.cpp b/src/qasm/main.cpp
similarity index 69%
rename from src/main.cpp
rename to src/qasm/main.cpp
index 6b311f3..c16b140 100644
--- a/src/main.cpp
+++ b/src/qasm/main.cpp
@@ -1,5 +1,6 @@
 #include "qasm.hpp"
 #include "intern.hpp"
+#include "version.hpp"
 
 #include <algorithm>
 #include <cstdio>
@@ -20,14 +21,20 @@ void usage()
     std::cerr
         << "usage: qasm [options] file.s [file2.s ...]\n"
         << "  -o FILE            object output (single file only)\n"
-        << "  -l FILE            listing path (single file only; default: <src>.lst)\n"
+        << "  -l FILE            write a listing to FILE (- or stdout for standard output)\n"
         << "  --no-lst           do not write a listing\n"
         << "  -j N, --jobs N     max parallel assemblies (default: HW threads)\n"
         << "  -I DIR              add PUT/USE search directory\n"
         << "  --case-sensitive\n"
         << "  --algebraic\n"
-        << "  --syntax NAME      merlin, merlin32, orca, lisa, ca65, or auto\n"
-        << "  --dump-pcode       write <file>.pcode beside the source\n";
+        << "  --syntax NAME      merlin, merlin32, orca, apw, mpw, lisa, ca65, or auto\n"
+        << "  --dump-pcode       write <file>.pcode beside the source\n"
+        << "  -V, --version      print version and exit\n";
+}
+
+bool is_stdout_name(const std::string &path)
+{
+    return path == "-" || qasm::icmp(path, "stdout") == 0;
 }
 
 bool write_file(const std::string &path, const void *data, size_t n, bool binary)
@@ -43,6 +50,13 @@ bool write_file(const std::string &path, const void *data, size_t n, bool binary
     return static_cast<bool>(out);
 }
 
+bool write_stdout(const void *data, size_t n)
+{
+    if (n == 0) return true;
+    size_t w = std::fwrite(data, 1, n, stdout);
+    return w == n && std::fflush(stdout) == 0;
+}
+
 struct JobResult {
     std::string src;
     qasm::Result r;
@@ -50,6 +64,21 @@ struct JobResult {
     std::string lst_path;
 };
 
+void print_summary(std::ostream &out, const JobResult &jr, bool show_lst)
+{
+    char org[16];
+    std::snprintf(org, sizeof(org), "%06X", jr.r.org);
+    out << jr.src << ": assembled " << jr.r.bytes.size() << " bytes at $"
+        << org << " syntax=" << jr.r.syntax << " -> " << jr.bin_path;
+    if (!jr.r.object.empty())
+        out << " obj " << qasm::replace_ext(jr.bin_path, ".o");
+    if (show_lst)
+        out << "  lst " << jr.lst_path;
+    char typ[8];
+    std::snprintf(typ, sizeof(typ), "%02X", jr.r.filetype);
+    out << " (typ $" << typ << ")\n";
+}
+
 JobResult assemble_one(std::string src, qasm::Options opt)
 {
     JobResult jr;
@@ -69,13 +98,24 @@ JobResult assemble_one(std::string src, qasm::Options opt)
                           : opt.output_path;
         if (!write_file(jr.bin_path, jr.r.bytes.data(), jr.r.bytes.size(), true))
             jr.r.errors.push_back({src, 0, "cannot write object"});
+        if (!jr.r.object.empty()) {
+            std::string opath = qasm::replace_ext(jr.bin_path, ".o");
+            if (!write_file(opath, jr.r.object.data(), jr.r.object.size(), true))
+                jr.r.errors.push_back({src, 0, "cannot write " + opath});
+        }
     }
+    bool listing_stdout = false;
     if (opt.write_listing) {
-        jr.lst_path = opt.listing_path.empty()
-                          ? qasm::default_lst_path(src)
-                          : opt.listing_path;
-        if (!write_file(jr.lst_path, jr.r.listing.data(), jr.r.listing.size(), false))
-            jr.r.errors.push_back({src, 0, "cannot write listing"});
+        listing_stdout = is_stdout_name(opt.listing_path);
+        if (listing_stdout) {
+            jr.lst_path = "stdout";
+        } else {
+            jr.lst_path = opt.listing_path.empty()
+                              ? qasm::default_lst_path(src)
+                              : opt.listing_path;
+            if (!write_file(jr.lst_path, jr.r.listing.data(), jr.r.listing.size(), false))
+                jr.r.errors.push_back({src, 0, "cannot write listing"});
+        }
     }
     if (opt.dump_pcode) {
         std::string ppath = qasm::replace_ext(src, ".pcode");
@@ -85,15 +125,16 @@ JobResult assemble_one(std::string src, qasm::Options opt)
 
     {
         std::lock_guard<std::mutex> g(io_mu);
-        char org[16];
-        std::snprintf(org, sizeof(org), "%06X", jr.r.org);
-        std::cout << src << ": assembled " << jr.r.bytes.size() << " bytes at $"
-                  << org << " syntax=" << jr.r.syntax << " -> " << jr.bin_path;
-        if (opt.write_listing)
-            std::cout << "  lst " << jr.lst_path;
-        char typ[8];
-        std::snprintf(typ, sizeof(typ), "%02X", jr.r.filetype);
-        std::cout << " (typ $" << typ << ")\n";
+        if (listing_stdout) {
+            if (!write_stdout(jr.r.listing.data(), jr.r.listing.size())) {
+                std::cerr << "stdout: cannot write\n";
+                jr.r.errors.push_back({src, 0, "cannot write listing"});
+            }
+            /* The listing owns stdout. The summary stays on the terminal. */
+            print_summary(std::cerr, jr, true);
+        } else {
+            print_summary(std::cout, jr, opt.write_listing);
+        }
     }
     return jr;
 }
@@ -113,10 +154,15 @@ int main(int argc, char **argv)
             usage();
             return 0;
         }
+        if (a == "-V" || a == "--version") {
+            std::cout << qasm::version_string() << "\n";
+            return 0;
+        }
         if (a == "-o" && i + 1 < argc) {
             opt.output_path = argv[++i];
         } else if (a == "-l" && i + 1 < argc) {
             opt.listing_path = argv[++i];
+            opt.write_listing = true;
         } else if (a == "--no-lst") {
             opt.write_listing = false;
         } else if ((a == "-j" || a == "--jobs") && i + 1 < argc) {
@@ -146,7 +192,6 @@ int main(int argc, char **argv)
     }
     if (files.size() > 1) {
         opt.output_path.clear();
-        opt.listing_path.clear();
         /* PUT/USE fragments (allops-common-*.S, etc.) are not standalone.
            If they are also on the command line, skip them as top-level jobs. */
         auto basename = [](std::string p) {
@@ -190,6 +235,10 @@ int main(int argc, char **argv)
             if (!is_include(f)) top.push_back(f);
         if (!top.empty()) files = std::move(top);
     }
+    if (files.size() > 1 && opt.write_listing && !is_stdout_name(opt.listing_path)) {
+        std::cerr << "-l applies to a single source file\n";
+        return 2;
+    }
 
     std::vector<std::future<JobResult>> futs;
     std::vector<JobResult> done;
diff --git a/src/opcode.cpp b/src/qasm/opcode.cpp
similarity index 97%
rename from src/opcode.cpp
rename to src/qasm/opcode.cpp
index 84e8ac0..e540d5f 100644
--- a/src/opcode.cpp
+++ b/src/qasm/opcode.cpp
@@ -200,6 +200,17 @@ static const Enc *find_enc(const std::string &name, AddrMode am, int cpu)
     return nullptr;
 }
 
+bool is_mnemonic(const std::string &name)
+{
+    int force = FORCE_NONE;
+    bool long_mn = false;
+    std::string c = opcode_canonical(name, force, long_mn);
+    if (c.empty()) return false;
+    for (size_t i = 0; i < sizeof(ENC) / sizeof(ENC[0]); i++)
+        if (icmp(ENC[i].name, c.c_str()) == 0) return true;
+    return false;
+}
+
 std::string opcode_canonical(const std::string &name, int &force_out, bool &long_mn)
 {
     force_out = FORCE_NONE;
diff --git a/src/parse.cpp b/src/qasm/parse.cpp
similarity index 83%
rename from src/parse.cpp
rename to src/qasm/parse.cpp
index 21cfaaf..52ce567 100644
--- a/src/parse.cpp
+++ b/src/qasm/parse.cpp
@@ -49,7 +49,7 @@ static SrcLine parse_line_native(const unsigned char *s, size_t n)
     return out;
 }
 
-SrcLine parse_line_text(const std::string &text)
+SrcLine parse_line_text(const std::string &text, bool apw_text)
 {
     const auto *s = reinterpret_cast<const unsigned char *>(text.data());
     size_t n = 0;
@@ -95,7 +95,9 @@ SrcLine parse_line_text(const std::string &text)
     while (i < n) {
         unsigned char c = to_ascii(s[i]);
         if (!in_sq && !in_dq && c == ';') {
-            if (out.operand.empty() ||
+            /* APW comments at ';' even when it is glued to a quoted string.
+               Merlin keeps a ';' that is not preceded by whitespace. */
+            if (apw_text || out.operand.empty() ||
                 is_ws(static_cast<unsigned char>(out.operand.back())))
                 break;
         }
@@ -111,7 +113,40 @@ SrcLine parse_line_text(const std::string &text)
     return out;
 }
 
-std::vector<SrcLine> parse_source(const std::string &src, const std::string &name)
+/* MacRoman comparison glyphs used by AsmIIGS. Applied only outside quotes,
+   and only for APW, so Merlin high-bit text keeps those bytes. */
+static std::string expand_apw_ops(const std::string &buf)
+{
+    std::string out;
+    out.reserve(buf.size());
+    bool sq = false, dq = false;
+    for (size_t i = 0; i < buf.size(); i++) {
+        unsigned char c = static_cast<unsigned char>(buf[i]);
+        if (!sq && !dq) {
+            if (c == 0xB3) {
+                out += ">=";
+                continue;
+            }
+            if (c == 0xB2) {
+                out += "<=";
+                continue;
+            }
+            if (c == 0xAD) {
+                out += "<>";
+                continue;
+            }
+        }
+        if (!sq && !dq) {
+            if (c == '\'') sq = true;
+            else if (c == '"') dq = true;
+        } else if (sq && c == '\'') sq = false;
+        else if (dq && c == '"') dq = false;
+        out.push_back(static_cast<char>(c));
+    }
+    return out;
+}
+
+std::vector<SrcLine> parse_source(const std::string &src, const std::string &name, bool apw_text)
 {
     std::vector<SrcLine> lines;
     const auto *p = reinterpret_cast<const unsigned char *>(src.data());
@@ -122,7 +157,8 @@ std::vector<SrcLine> parse_source(const std::string &src, const std::string &nam
         while (p < end && !is_eol(*p)) p++;
         std::string buf(reinterpret_cast<const char *>(start),
                         static_cast<size_t>(p - start));
-        SrcLine ln = parse_line_text(buf);
+        if (apw_text) buf = expand_apw_ops(buf);
+        SrcLine ln = parse_line_text(buf, apw_text);
         ln.file = name;
         ln.lineno = lineno;
         ln.raw = std::move(buf);
@@ -157,7 +193,7 @@ static bool split_top_comma(const std::string &s, std::string &left, std::string
     return false;
 }
 
-OperandForm parse_operand_form(const std::string &operand)
+OperandForm parse_operand_form(const std::string &operand, bool merlin_hash_a)
 {
     OperandForm form;
     std::string buf = trim_copy(operand);
@@ -174,7 +210,9 @@ OperandForm parse_operand_form(const std::string &operand)
         skipsp();
         if (*s == '<' || *s == '>' || *s == '^') {
             form.byte_sel = *s++;
-        } else if ((*s == 'A' || *s == 'a') && s[1] && s[1] != 'N' && s[1] != 'n') {
+        } else if (merlin_hash_a && (*s == 'A' || *s == 'a') && s[1] &&
+                   s[1] != 'N' && s[1] != 'n') {
+            /* Merlin 16+ `#Aexpr` is the bank byte. `#AND` stays the symbol. */
             form.byte_sel = '^';
             s++;
         }
diff --git a/src/pcode.hpp b/src/qasm/pcode.hpp
similarity index 85%
rename from src/pcode.hpp
rename to src/qasm/pcode.hpp
index 8b02714..9f3598a 100644
--- a/src/pcode.hpp
+++ b/src/qasm/pcode.hpp
@@ -1,8 +1,9 @@
 #pragma once
 
 /* Common 65816 pcode.
-   Each front end (Merlin, Merlin 32, ORCA/M, LISA, ca65) lowers a source
-   file to this stream. The assembler in assemble.cpp executes the stream:
+   Each dialect (Merlin, Merlin 32, ORCA/M, APW/MPW, LISA, ca65) lowers a
+   source file to this stream. APW/MPW uses the ORCA/M front end. The
+   assembler in assemble.cpp executes the stream:
    two passes, symbols, MX/CPU, opcode encoding, listing, absolute object.
    Line-like ops carry a Merlin opcode and operand because that is the
    form the encoder already evaluates. Control ops (IF/LUP/...) are
@@ -22,7 +23,8 @@ enum class Syntax {
     Merlin32,
     Orca,
     Lisa,
-    Ca65
+    Ca65,
+    Apw
 };
 
 enum class POp : uint16_t {
@@ -45,7 +47,9 @@ enum class POp : uint16_t {
     Else,
     Endif,
     Lup,
-    Endlup
+    Endlup,
+    /* APW `IF expr GOTO label`: skip forward to that label when expr is true. */
+    Ago
 };
 
 struct PInstr {
@@ -87,7 +91,8 @@ Syntax identify_syntax(const std::string &src);
 std::string translate_algebraic(const std::string &expr, bool tilde_name = false);
 std::vector<std::string> split_args(const std::string &s, char sep = ',');
 std::string form_operand(const OperandForm &f);
-void annotate_inst(PInstr &in);
+/* merlin_hash_a matches parse_operand_form. Non-Merlin fronts pass false. */
+void annotate_inst(PInstr &in, bool merlin_hash_a = true);
 std::string format_pcode(const PCode &code);
 
 PCode compile_source(const std::string &src, const std::string &name, const Options &opt);
diff --git a/src/qasm.hpp b/src/qasm/qasm.hpp
similarity index 85%
rename from src/qasm.hpp
rename to src/qasm/qasm.hpp
index 86ddd08..0d91892 100644
--- a/src/qasm.hpp
+++ b/src/qasm/qasm.hpp
@@ -12,11 +12,11 @@ struct Options {
     int start_mx = 3;     /* 0–3; default %11 emulation */
     int start_xc = 2;     /* 0=6502, 1=65C02, 2=65816 */
     std::string output_path;    /* empty → <src>.bin or DSK name */
-    std::string listing_path;   /* empty → <src>.lst */
-    bool write_listing = true;
+    std::string listing_path;   /* used when write_listing; "-" or "stdout" → stdout */
+    bool write_listing = false;
     bool write_object = true;
     std::vector<std::string> include_dirs; /* PUT/USE search path (-I) */
-    std::string syntax; /* empty = identify. merlin, merlin32, orca, lisa, ca65 */
+    std::string syntax; /* empty = identify. merlin, merlin32, orca, apw, mpw, lisa, ca65 */
     bool dump_pcode = false;
 };
 
@@ -34,6 +34,7 @@ struct Result {
     std::string listing;
     std::string syntax; /* dialect that was lowered to pcode */
     std::string pcode;  /* filled when Options::dump_pcode is set */
+    std::vector<uint8_t> object; /* OMF 2.0 relocatable module; empty if absolute */
     std::vector<Error> errors;
     bool ok() const { return errors.empty(); }
 };
diff --git a/src/util.cpp b/src/qasm/util.cpp
similarity index 100%
rename from src/util.cpp
rename to src/qasm/util.cpp
diff --git a/src/qasm/version.hpp b/src/qasm/version.hpp
new file mode 100644
index 0000000..c216ab8
--- /dev/null
+++ b/src/qasm/version.hpp
@@ -0,0 +1,5 @@
+#pragma once
+
+namespace qasm {
+const char *version_string();
+}
diff --git a/src/qlink/link.cpp b/src/qlink/link.cpp
new file mode 100644
index 0000000..025a90e
--- /dev/null
+++ b/src/qlink/link.cpp
@@ -0,0 +1,1142 @@
+#include "link.hpp"
+
+#include <cctype>
+#include <cstdint>
+#include <fstream>
+#include <map>
+#include <set>
+#include <sstream>
+
+namespace qasm {
+namespace {
+
+std::string trim(std::string s)
+{
+    size_t a = 0;
+    while (a < s.size() && (s[a] == ' ' || s[a] == '\t' || s[a] == '\r')) a++;
+    size_t b = s.size();
+    while (b > a && (s[b - 1] == ' ' || s[b - 1] == '\t' || s[b - 1] == '\r')) b--;
+    return s.substr(a, b - a);
+}
+
+std::string upper(std::string s)
+{
+    for (char &c : s)
+        c = static_cast<char>(std::toupper(static_cast<unsigned char>(c)));
+    return s;
+}
+
+bool ieq(const std::string &a, const std::string &b) { return upper(a) == upper(b); }
+
+std::string dirname_of(const std::string &path)
+{
+    auto s = path.find_last_of("/\\");
+    if (s == std::string::npos) return ".";
+    if (s == 0) return "/";
+    return path.substr(0, s);
+}
+
+std::string join_path(const std::string &dir, const std::string &rel)
+{
+    if (rel.empty() || rel[0] == '/' || (rel.size() > 1 && rel[1] == ':')) return rel;
+    if (dir.empty() || dir == ".") return rel;
+    if (dir.back() == '/') return dir + rel;
+    return dir + "/" + rel;
+}
+
+std::string strip_quotes(std::string s)
+{
+    s = trim(std::move(s));
+    if (s.size() >= 2 && ((s.front() == '"' && s.back() == '"') ||
+                          (s.front() == '\'' && s.back() == '\'')))
+        s = s.substr(1, s.size() - 2);
+    return s;
+}
+
+std::string hex32(uint32_t v)
+{
+    std::ostringstream o;
+    o << std::hex << std::uppercase << v;
+    return o.str();
+}
+
+bool parse_num(const std::string &text, uint32_t &out)
+{
+    std::string s = trim(text);
+    if (s.empty()) return false;
+    int base = 10;
+    size_t i = 0;
+    if (s[0] == '$') {
+        base = 16;
+        i = 1;
+    } else if (s.size() > 2 && s[0] == '0' && (s[1] == 'x' || s[1] == 'X')) {
+        base = 16;
+        i = 2;
+    } else if (s[0] == '%') {
+        base = 2;
+        i = 1;
+    }
+    if (i >= s.size()) return false;
+    uint32_t v = 0;
+    for (; i < s.size(); i++) {
+        unsigned char c = static_cast<unsigned char>(s[i]);
+        if (c == '_') continue;
+        int d;
+        if (c >= '0' && c <= '9') d = c - '0';
+        else if (c >= 'a' && c <= 'f') d = c - 'a' + 10;
+        else if (c >= 'A' && c <= 'F') d = c - 'A' + 10;
+        else return false;
+        if (d >= base) return false;
+        v = v * static_cast<uint32_t>(base) + static_cast<uint32_t>(d);
+    }
+    out = v;
+    return true;
+}
+
+struct Piece {
+    std::vector<uint8_t> image;
+    uint16_t kind = 0;
+    struct Sym {
+        std::string name;
+        uint32_t off = 0;
+        bool global = true;
+    };
+    struct Fix {
+        uint32_t at = 0;
+        uint8_t width = 2;
+        std::string symbol;
+        int32_t addend = 0;
+        int32_t divisor = 1;
+    };
+    std::vector<Sym> syms;
+    std::vector<Fix> fixes;
+};
+
+struct OutSeg {
+    std::string name;
+    uint16_t kind = 0;
+    bool kind_set = false;
+    uint32_t align = 0;
+    uint32_t org = 0;
+    bool org_set = false;
+    bool dynamic = false;
+    uint32_t entry = 0;
+    std::vector<Piece> pieces;
+    std::vector<uint8_t> image;
+    std::vector<Piece::Sym> syms;
+    std::vector<Piece::Fix> fixes;
+    std::vector<OmfReloc> relocs;
+};
+
+struct Target {
+    std::string script;
+    int line = 0;
+    std::string name;
+    std::vector<std::string> deps;
+    int ver = 2;
+    uint32_t typ = 0;
+    uint32_t aux = 0;
+    bool typ_set = false;
+    std::string entry;
+    std::vector<std::string> libs;
+    uint32_t org = 0;
+    bool org_set = false;
+    bool any_seg = false;
+    std::vector<OutSeg> segs;
+};
+
+struct Act {
+    enum Type { Ver, Typ, Org, Entry, Lib, Seg, Plus, Ds } type = Ver;
+    std::string script;
+    int line = 0;
+    std::string text;
+    std::string text2;
+    uint32_t n = 0;
+    uint32_t n2 = 0;
+    uint16_t kind = 0;
+    bool kind_set = false;
+    bool dynamic = false;
+};
+
+bool read_bin(const std::string &path, std::vector<uint8_t> &buf, std::string &err)
+{
+    std::ifstream in(path, std::ios::binary);
+    if (!in) {
+        err = "cannot read " + path;
+        return false;
+    }
+    buf.assign(std::istreambuf_iterator<char>(in), std::istreambuf_iterator<char>());
+    return true;
+}
+
+bool write_bin(const std::string &path, const std::vector<uint8_t> &buf, std::string &err)
+{
+    std::ofstream out(path, std::ios::binary);
+    if (!out) {
+        err = "cannot write " + path;
+        return false;
+    }
+    if (!buf.empty())
+        out.write(reinterpret_cast<const char *>(buf.data()),
+                  static_cast<std::streamsize>(buf.size()));
+    if (!out) {
+        err = "cannot write " + path;
+        return false;
+    }
+    return true;
+}
+
+void add_err(LinkOutput &o, const std::string &script, int line, const std::string &msg)
+{
+    if (line > 0)
+        o.errors.push_back(script + ":" + std::to_string(line) + ": " + msg);
+    else
+        o.errors.push_back(msg);
+}
+
+std::string expand(const std::string &in, const std::map<std::string, std::string> &vars,
+                   std::string &err)
+{
+    std::string o;
+    for (size_t i = 0; i < in.size();) {
+        if (in[i] == '$' && i + 1 < in.size() && in[i + 1] == '(') {
+            auto e = in.find(')', i + 2);
+            if (e == std::string::npos) {
+                err = "unclosed $(...)";
+                return {};
+            }
+            std::string name = in.substr(i + 2, e - (i + 2));
+            auto it = vars.find(name);
+            if (it == vars.end()) {
+                err = "unknown variable " + name;
+                return {};
+            }
+            o += it->second;
+            i = e + 1;
+        } else {
+            o.push_back(in[i++]);
+        }
+    }
+    return o;
+}
+
+bool is_ident_char(char c, bool first)
+{
+    unsigned char u = static_cast<unsigned char>(c);
+    if (first) return std::isalpha(u) || c == '_';
+    return std::isalnum(u) || c == '_';
+}
+
+Piece piece_from(const OmfSeg &seg)
+{
+    Piece p;
+    p.image = seg.image;
+    p.kind = seg.kind;
+    for (const auto &s : seg.syms) {
+        Piece::Sym sym;
+        sym.name = s.name;
+        sym.off = s.offset;
+        sym.global = s.global;
+        p.syms.push_back(sym);
+    }
+    for (const auto &f : seg.fixups) {
+        Piece::Fix fx;
+        fx.at = f.at;
+        fx.width = f.width;
+        fx.symbol = f.symbol;
+        fx.addend = f.addend;
+        fx.divisor = f.divisor;
+        p.fixes.push_back(fx);
+    }
+    return p;
+}
+
+bool load_file(const std::string &path, OmfFile &file, std::string &err)
+{
+    std::vector<uint8_t> buf;
+    if (!read_bin(path, buf, err)) return false;
+    if (!omf_read(buf, file, err)) {
+        err = path + ": " + err;
+        return false;
+    }
+    return true;
+}
+
+void layout_seg(OutSeg &s)
+{
+    s.image.clear();
+    s.syms.clear();
+    s.fixes.clear();
+    for (const auto &p : s.pieces) {
+        uint32_t base = static_cast<uint32_t>(s.image.size());
+        s.image.insert(s.image.end(), p.image.begin(), p.image.end());
+        for (auto sym : p.syms) {
+            sym.off += base;
+            s.syms.push_back(sym);
+        }
+        for (auto fx : p.fixes) {
+            fx.at += base;
+            s.fixes.push_back(fx);
+        }
+    }
+}
+
+struct Hit {
+    int seg = -1;
+    uint32_t off = 0;
+};
+
+bool lookup_sym(const std::vector<OutSeg> &segs, const std::string &name, int prefer, Hit &hit,
+                bool &dup)
+{
+    dup = false;
+    int found = 0;
+    Hit g;
+    for (int si = 0; si < static_cast<int>(segs.size()); si++) {
+        for (const auto &s : segs[si].syms) {
+            if (!s.global || !ieq(s.name, name)) continue;
+            if (found && (g.seg != si || g.off != s.off)) {
+                dup = true;
+                return false;
+            }
+            g.seg = si;
+            g.off = s.off;
+            found++;
+        }
+    }
+    if (found) {
+        hit = g;
+        return true;
+    }
+    if (prefer >= 0 && prefer < static_cast<int>(segs.size())) {
+        for (const auto &s : segs[prefer].syms) {
+            if (s.global || !ieq(s.name, name)) continue;
+            hit.seg = prefer;
+            hit.off = s.off;
+            return true;
+        }
+    }
+    return false;
+}
+
+bool store_le(std::vector<uint8_t> &image, uint32_t at, int width, uint32_t v, std::string &err)
+{
+    if (width < 1 || at + static_cast<uint32_t>(width) > image.size()) {
+        err = "fixup lands outside the segment";
+        return false;
+    }
+    for (int i = 0; i < width; i++)
+        image[at + static_cast<uint32_t>(i)] = static_cast<uint8_t>((v >> (8 * i)) & 0xFF);
+    return true;
+}
+
+bool resolve_load(std::vector<OutSeg> &segs, std::string &err)
+{
+    for (int si = 0; si < static_cast<int>(segs.size()); si++) {
+        OutSeg &seg = segs[si];
+        seg.relocs.clear();
+        for (const auto &fx : seg.fixes) {
+            Hit hit;
+            bool dup = false;
+            if (!lookup_sym(segs, fx.symbol, si, hit, dup)) {
+                if (dup) err = "duplicate symbol " + fx.symbol;
+                else err = "undefined symbol " + fx.symbol;
+                return false;
+            }
+            bool abs = seg.org_set;
+            if (abs != segs[hit.seg].org_set) {
+                err = "absolute and relocatable segments are mixed";
+                return false;
+            }
+            int64_t disp = static_cast<int64_t>(hit.off) + fx.addend;
+            if (abs) {
+                int64_t addr = static_cast<int64_t>(segs[hit.seg].org) + disp;
+                if (fx.divisor != 1) addr /= fx.divisor;
+                if (!store_le(seg.image, fx.at, fx.width, static_cast<uint32_t>(addr), err))
+                    return false;
+            } else {
+                if (fx.divisor != 1) {
+                    err = "a byte selector on a relocatable link is not supported";
+                    return false;
+                }
+                if (disp < 0) {
+                    err = "relocation displacement is negative";
+                    return false;
+                }
+                if (!store_le(seg.image, fx.at, fx.width, static_cast<uint32_t>(disp), err))
+                    return false;
+                OmfReloc r;
+                r.at = fx.at;
+                r.width = fx.width;
+                r.disp = static_cast<uint32_t>(disp);
+                if (hit.seg == si) {
+                    r.file = 0;
+                } else {
+                    r.file = 1;
+                    r.seg = static_cast<uint16_t>(hit.seg + 1);
+                }
+                seg.relocs.push_back(r);
+            }
+        }
+    }
+    return true;
+}
+
+std::set<std::string> undefined_names(const std::vector<OutSeg> &segs)
+{
+    std::set<std::string> u;
+    for (int si = 0; si < static_cast<int>(segs.size()); si++) {
+        for (const auto &fx : segs[si].fixes) {
+            Hit hit;
+            bool dup = false;
+            if (!lookup_sym(segs, fx.symbol, si, hit, dup))
+                u.insert(upper(fx.symbol));
+        }
+    }
+    return u;
+}
+
+void assign_orgs(Target &t)
+{
+    bool abs = t.org_set;
+    for (const auto &s : t.segs)
+        if (s.org_set) abs = true;
+    uint32_t cursor = t.org_set ? t.org : 0;
+    for (auto &s : t.segs) {
+        if (!abs) continue;
+        if (!s.org_set) {
+            s.org = cursor;
+            s.org_set = true;
+        }
+        if (s.align > 1) {
+            uint32_t r = s.org % s.align;
+            if (r) s.org += s.align - r;
+        }
+        cursor = s.org + static_cast<uint32_t>(s.image.size());
+    }
+}
+
+bool apply_entry(Target &t, std::string &err)
+{
+    if (t.entry.empty()) return true;
+    for (auto &s : t.segs) {
+        for (const auto &sym : s.syms) {
+            if (!sym.global || !ieq(sym.name, t.entry)) continue;
+            s.entry = sym.off;
+            return true;
+        }
+    }
+    err = "entry " + t.entry + " was not found";
+    return false;
+}
+
+Piece zeros(uint32_t n)
+{
+    Piece p;
+    p.image.assign(n, 0);
+    return p;
+}
+
+OutSeg *named_seg(std::vector<OutSeg> &segs, const std::string &name)
+{
+    for (auto &s : segs)
+        if (ieq(s.name, name)) return &s;
+    return nullptr;
+}
+
+bool place_piece(std::vector<OutSeg> &segs, const std::string &seg_name, Piece piece, bool merge,
+                 std::string &err)
+{
+    if (piece.image.empty() && piece.syms.empty() && piece.fixes.empty()) return true;
+    if (!merge) {
+        if (segs.empty()) {
+            err = "input is outside a segment";
+            return false;
+        }
+        segs.back().pieces.push_back(std::move(piece));
+        return true;
+    }
+    OutSeg *dst = named_seg(segs, seg_name);
+    if (!dst) {
+        OutSeg s;
+        s.name = seg_name.empty() ? "CODE" : seg_name;
+        s.kind = piece.kind;
+        s.kind_set = true;
+        segs.push_back(std::move(s));
+        dst = &segs.back();
+    }
+    dst->pieces.push_back(std::move(piece));
+    return true;
+}
+
+bool place_file(std::vector<OutSeg> &segs, const OmfFile &file, const std::string &only,
+                bool merge, const std::string &into, std::string &err)
+{
+    if (!file.object && !only.empty()) {
+        err = "a load file has no named segment to select";
+        return false;
+    }
+    bool any = false;
+    for (const auto &seg : file.segs) {
+        if (!only.empty() && !ieq(seg.name, only)) continue;
+        if (!file.object && !seg.relocs.empty()) {
+            err = "load file still has relocations";
+            return false;
+        }
+        any = true;
+        Piece p = piece_from(seg);
+        std::string dest = merge ? seg.name : into;
+        if (!place_piece(segs, dest, std::move(p), merge, err)) return false;
+    }
+    if (!any) {
+        err = only.empty() ? "object has no segments" : "segment " + only + " was not found";
+        return false;
+    }
+    return true;
+}
+
+bool finish_target(Target &t, const std::string &dir, LinkOutput &o, std::ostream &log)
+{
+    for (auto &s : t.segs) {
+        if (s.dynamic) s.kind = static_cast<uint16_t>(s.kind | 0x8000);
+        if (t.ver == 1 && s.dynamic) {
+            add_err(o, t.script, t.line, "ver 1 cannot store a dynamic segment");
+            return false;
+        }
+        if (t.ver == 1 && (s.kind & 0x1F00)) {
+            add_err(o, t.script, t.line, "ver 1 cannot store kind $" + hex32(s.kind));
+            return false;
+        }
+        layout_seg(s);
+    }
+
+    bool library = t.typ_set && (t.typ == 0xB1 || t.typ == 0xB2);
+    if (!library) {
+        std::set<std::string> pulled;
+        bool progressed = true;
+        int guard = 0;
+        while (progressed) {
+            progressed = false;
+            if (++guard > 1000) {
+                add_err(o, t.script, t.line, "library search did not finish");
+                return false;
+            }
+            auto undef = undefined_names(t.segs);
+            if (undef.empty()) break;
+            for (const auto &lib : t.libs) {
+                std::string path = join_path(dir, lib);
+                OmfFile lf;
+                std::string err;
+                if (!load_file(path, lf, err)) {
+                    add_err(o, t.script, t.line, err);
+                    return false;
+                }
+                if (!lf.object) {
+                    add_err(o, t.script, t.line, path + " is not an object library");
+                    return false;
+                }
+                for (size_t si = 0; si < lf.segs.size(); si++) {
+                    std::string key = path + "#" + std::to_string(si);
+                    if (pulled.count(key)) continue;
+                    bool need = false;
+                    for (const auto &sym : lf.segs[si].syms) {
+                        if (sym.global && undef.count(upper(sym.name))) need = true;
+                    }
+                    if (!need) continue;
+                    Piece p = piece_from(lf.segs[si]);
+                    std::string err2;
+                    if (!place_piece(t.segs, lf.segs[si].name, std::move(p), true, err2)) {
+                        add_err(o, t.script, t.line, err2);
+                        return false;
+                    }
+                    pulled.insert(key);
+                    progressed = true;
+                    for (auto &seg : t.segs) layout_seg(seg);
+                }
+            }
+            if (!progressed && !undef.empty()) {
+                add_err(o, t.script, t.line, "undefined symbol " + *undef.begin());
+                return false;
+            }
+        }
+        assign_orgs(t);
+        /* Orgs can move a segment that was already laid out. Layout does not
+           depend on org, so the images stay valid. */
+        std::string err;
+        if (!resolve_load(t.segs, err) || !apply_entry(t, err)) {
+            add_err(o, t.script, t.line, err);
+            return false;
+        }
+    } else {
+        assign_orgs(t);
+        std::string err;
+        if (!apply_entry(t, err)) {
+            add_err(o, t.script, t.line, err);
+            return false;
+        }
+    }
+
+    if (t.segs.empty()) {
+        add_err(o, t.script, t.line, "target has nothing to link");
+        return false;
+    }
+
+    OmfFile out;
+    out.version = t.ver;
+    out.object = library;
+    for (const auto &s : t.segs) {
+        OmfSeg seg;
+        seg.name = s.name.empty() ? "CODE" : s.name;
+        seg.kind = s.kind;
+        seg.org = s.org_set ? s.org : 0;
+        seg.align = s.align;
+        seg.entry = s.entry;
+        seg.image = s.image;
+        if (library) {
+            for (const auto &sym : s.syms) {
+                OmfSym os;
+                os.name = sym.name;
+                os.offset = sym.off;
+                os.global = sym.global;
+                seg.syms.push_back(os);
+            }
+            for (const auto &fx : s.fixes) {
+                OmfFix of;
+                of.at = fx.at;
+                of.width = fx.width;
+                of.symbol = fx.symbol;
+                of.addend = fx.addend;
+                of.divisor = fx.divisor;
+                seg.fixups.push_back(of);
+            }
+        } else {
+            seg.relocs = s.relocs;
+        }
+        out.segs.push_back(std::move(seg));
+    }
+
+    std::vector<uint8_t> bytes;
+    std::string err;
+    if (!omf_write(out, bytes, err)) {
+        add_err(o, t.script, t.line, err);
+        return false;
+    }
+    std::string path = join_path(dir, t.name);
+    if (!write_bin(path, bytes, err)) {
+        add_err(o, t.script, t.line, err);
+        return false;
+    }
+    OmfFile check;
+    if (!omf_read(bytes, check, err)) {
+        add_err(o, t.script, t.line, "wrote " + path + " but could not read it back: " + err);
+        return false;
+    }
+    LinkProduct prod;
+    prod.path = path;
+    prod.typ = t.typ;
+    prod.aux = t.aux;
+    prod.typ_set = t.typ_set;
+    prod.file = std::move(check);
+    /* The reader classifies a symbol-bearing file as an object. Keep the
+       version and org from what we wrote; the image is what was read back. */
+    prod.file.version = t.ver;
+    prod.file.object = library;
+    for (size_t i = 0; i < prod.file.segs.size() && i < out.segs.size(); i++) {
+        prod.file.segs[i].org = out.segs[i].org;
+        prod.file.segs[i].kind = out.segs[i].kind;
+        prod.file.segs[i].entry = out.segs[i].entry;
+        prod.file.segs[i].align = out.segs[i].align;
+    }
+
+    log << path << ": OMF " << t.ver << ".0 " << (library ? "object" : "load");
+    for (const auto &s : out.segs) {
+        log << " " << s.name << " " << s.image.size() << " bytes";
+        if (s.org) log << " org $" << hex32(s.org);
+    }
+    if (t.typ_set) log << " typ $" << hex32(t.typ) << " aux $" << hex32(t.aux);
+    log << "\n";
+    if (!library && t.ver == 1 && t.typ_set && t.typ == 0x06) {
+        log << path
+            << ": ProDOS BLOAD reads a raw image. This file is an OMF segment; "
+               "the aux type is the load address and the image bytes are the "
+               "LCONST payload.\n";
+    }
+    o.products.push_back(std::move(prod));
+    return true;
+}
+
+struct Script {
+    std::string dir;
+    std::map<std::string, std::string> vars;
+    struct RawTarget {
+        std::string script;
+        int line = 0;
+        std::string name;
+        std::vector<std::string> deps;
+        std::vector<Act> acts;
+    };
+    std::vector<RawTarget> targets;
+};
+
+bool parse_script(const std::string &path, Script &sc, LinkOutput &o,
+                  std::vector<std::string> &stack, int depth)
+{
+    if (depth > 16) {
+        add_err(o, path, 0, "include nest too deep");
+        return false;
+    }
+    for (const auto &s : stack) {
+        if (s == path) {
+            add_err(o, path, 0, "include cycle");
+            return false;
+        }
+    }
+    stack.push_back(path);
+    std::ifstream in(path);
+    if (!in) {
+        add_err(o, path, 0, "cannot read script");
+        stack.pop_back();
+        return false;
+    }
+    std::string dir = dirname_of(path);
+    int lineno = 0;
+    std::string line;
+    int cur_i = -1;
+    while (std::getline(in, line)) {
+        lineno++;
+        auto hash = line.find('#');
+        if (hash != std::string::npos) line = line.substr(0, hash);
+        if (!line.empty() && line.back() == '\r') line.pop_back();
+        if (trim(line).empty()) continue;
+        bool body = line[0] == ' ' || line[0] == '\t';
+        std::string err;
+        std::string text = expand(trim(line), sc.vars, err);
+        if (!err.empty()) {
+            add_err(o, path, lineno, err);
+            stack.pop_back();
+            return false;
+        }
+        if (!body) {
+            std::string word;
+            size_t sp = 0;
+            while (sp < text.size() && text[sp] != ' ' && text[sp] != '\t') sp++;
+            word = text.substr(0, sp);
+            if (ieq(word, "include")) {
+                std::string inc = strip_quotes(trim(text.substr(sp)));
+                if (inc.empty()) {
+                    add_err(o, path, lineno, "include needs a file");
+                    stack.pop_back();
+                    return false;
+                }
+                if (!parse_script(join_path(dir, inc), sc, o, stack, depth + 1)) {
+                    stack.pop_back();
+                    return false;
+                }
+                continue;
+            }
+            auto eq = text.find('=');
+            auto colon = text.find(':');
+            bool assign = eq != std::string::npos && (colon == std::string::npos || eq < colon);
+            if (assign) {
+                std::string name = trim(text.substr(0, eq));
+                std::string value = trim(text.substr(eq + 1));
+                if (name.empty() || !is_ident_char(name[0], true)) {
+                    add_err(o, path, lineno, "bad variable name");
+                    stack.pop_back();
+                    return false;
+                }
+                for (char c : name) {
+                    if (!is_ident_char(c, false) && c != name[0]) {
+                        /* checked below */
+                    }
+                }
+                for (size_t i = 0; i < name.size(); i++) {
+                    if (!is_ident_char(name[i], i == 0)) {
+                        add_err(o, path, lineno, "bad variable name");
+                        stack.pop_back();
+                        return false;
+                    }
+                }
+                sc.vars[name] = value;
+                continue;
+            }
+            if (colon == std::string::npos) {
+                add_err(o, path, lineno, "expected a target, include, or assignment");
+                stack.pop_back();
+                return false;
+            }
+            Script::RawTarget t;
+            t.script = path;
+            t.line = lineno;
+            t.name = strip_quotes(trim(text.substr(0, colon)));
+            std::string deps = trim(text.substr(colon + 1));
+            std::istringstream ds(deps);
+            std::string dep;
+            while (ds >> dep) t.deps.push_back(strip_quotes(dep));
+            if (t.name.empty()) {
+                add_err(o, path, lineno, "target needs a name");
+                stack.pop_back();
+                return false;
+            }
+            sc.targets.push_back(std::move(t));
+            cur_i = static_cast<int>(sc.targets.size()) - 1;
+            continue;
+        }
+        if (cur_i < 0) {
+            add_err(o, path, lineno, "command is outside a target");
+            stack.pop_back();
+            return false;
+        }
+        std::istringstream ls(text);
+        std::string cmd;
+        ls >> cmd;
+        Act act;
+        act.script = path;
+        act.line = lineno;
+        std::string rest;
+        std::getline(ls, rest);
+        rest = trim(rest);
+        if (ieq(cmd, "end")) continue;
+        if (ieq(cmd, "ver")) {
+            uint32_t v = 0;
+            if (!parse_num(rest, v) || (v != 1 && v != 2)) {
+                add_err(o, path, lineno, "ver must be 1 or 2");
+                stack.pop_back();
+                return false;
+            }
+            act.type = Act::Ver;
+            act.n = v;
+        } else if (ieq(cmd, "typ")) {
+            auto comma = rest.find(',');
+            std::string a = comma == std::string::npos ? rest : rest.substr(0, comma);
+            std::string b = comma == std::string::npos ? std::string() : rest.substr(comma + 1);
+            uint32_t typ = 0, aux = 0;
+            if (!parse_num(a, typ) || (comma != std::string::npos && !parse_num(b, aux))) {
+                add_err(o, path, lineno, "typ needs a type and an optional aux");
+                stack.pop_back();
+                return false;
+            }
+            act.type = Act::Typ;
+            act.n = typ;
+            act.n2 = aux;
+        } else if (ieq(cmd, "org")) {
+            uint32_t n = 0;
+            if (!parse_num(rest, n)) {
+                add_err(o, path, lineno, "org needs an address");
+                stack.pop_back();
+                return false;
+            }
+            act.type = Act::Org;
+            act.n = n;
+        } else if (ieq(cmd, "entry")) {
+            if (rest.empty()) {
+                add_err(o, path, lineno, "entry needs a label");
+                stack.pop_back();
+                return false;
+            }
+            act.type = Act::Entry;
+            act.text = rest;
+        } else if (ieq(cmd, "lib")) {
+            std::string f = strip_quotes(rest);
+            if (f.empty()) {
+                add_err(o, path, lineno, "lib needs a file");
+                stack.pop_back();
+                return false;
+            }
+            act.type = Act::Lib;
+            act.text = f;
+        } else if (ieq(cmd, "ds")) {
+            uint32_t n = 0;
+            if (!parse_num(rest, n)) {
+                add_err(o, path, lineno, "ds needs a count");
+                stack.pop_back();
+                return false;
+            }
+            act.type = Act::Ds;
+            act.n = n;
+        } else if (ieq(cmd, "seg")) {
+            std::istringstream ss(rest);
+            std::string name;
+            ss >> name;
+            if (name.empty()) {
+                add_err(o, path, lineno, "seg needs a name");
+                stack.pop_back();
+                return false;
+            }
+            act.type = Act::Seg;
+            act.text = name;
+            std::string tok;
+            while (ss >> tok) {
+                if (ieq(tok, "dynamic")) {
+                    act.dynamic = true;
+                    continue;
+                }
+                auto eq = tok.find('=');
+                if (eq == std::string::npos) {
+                    add_err(o, path, lineno, "bad segment attribute " + tok);
+                    stack.pop_back();
+                    return false;
+                }
+                std::string key = tok.substr(0, eq);
+                std::string val = tok.substr(eq + 1);
+                uint32_t n = 0;
+                if (!parse_num(val, n)) {
+                    add_err(o, path, lineno, "bad segment attribute " + tok);
+                    stack.pop_back();
+                    return false;
+                }
+                if (ieq(key, "kind")) {
+                    act.kind = static_cast<uint16_t>(n);
+                    act.kind_set = true;
+                } else if (ieq(key, "align")) {
+                    act.n = n;
+                } else if (ieq(key, "org")) {
+                    act.n2 = n;
+                    act.kind_set = act.kind_set; /* org flagged below */
+                    act.text2 = "org";
+                    act.n2 = n;
+                } else {
+                    add_err(o, path, lineno, "unknown segment attribute " + key);
+                    stack.pop_back();
+                    return false;
+                }
+            }
+        } else if (!cmd.empty() && cmd[0] == '+') {
+            std::string spec = cmd.substr(1);
+            if (spec.empty()) spec = rest;
+            else if (!rest.empty()) spec += rest;
+            spec = strip_quotes(spec);
+            std::string seg;
+            auto lp = spec.find('(');
+            if (lp != std::string::npos) {
+                if (spec.empty() || spec.back() != ')') {
+                    add_err(o, path, lineno, "expected +file(SEGMENT)");
+                    stack.pop_back();
+                    return false;
+                }
+                seg = spec.substr(lp + 1, spec.size() - lp - 2);
+                spec = spec.substr(0, lp);
+            }
+            if (spec.empty()) {
+                add_err(o, path, lineno, "+ needs a file");
+                stack.pop_back();
+                return false;
+            }
+            act.type = Act::Plus;
+            act.text = spec;
+            act.text2 = trim(seg);
+        } else {
+            add_err(o, path, lineno, "unknown command " + cmd);
+            stack.pop_back();
+            return false;
+        }
+        sc.targets[static_cast<size_t>(cur_i)].acts.push_back(std::move(act));
+    }
+    stack.pop_back();
+    return true;
+}
+
+bool build_target(const Script::RawTarget &raw, const std::string &dir, Target &t, LinkOutput &o)
+{
+    t.script = raw.script;
+    t.line = raw.line;
+    t.name = raw.name;
+    t.deps = raw.deps;
+    bool any_plus = false;
+    int cur = -1;
+    bool explicit_seg = false;
+    for (const auto &act : raw.acts) {
+        if (act.type == Act::Seg) explicit_seg = true;
+        if (act.type == Act::Plus || act.type == Act::Ds) any_plus = true;
+    }
+    bool merge = !explicit_seg && ![&]() {
+        for (const auto &act : raw.acts)
+            if (act.type == Act::Org) return true;
+        return false;
+    }();
+    /* Absolute, no seg commands: one contiguous segment. */
+    bool one = !explicit_seg && !merge;
+
+    auto ensure = [&](const Act &act) -> OutSeg * {
+        if (explicit_seg) {
+            if (cur < 0) {
+                add_err(o, act.script, act.line, "input is outside a segment");
+                return nullptr;
+            }
+            return &t.segs[cur];
+        }
+        if (one) {
+            if (t.segs.empty()) {
+                OutSeg s;
+                s.name = "CODE";
+                if (t.org_set) {
+                    s.org = t.org;
+                    s.org_set = true;
+                }
+                t.segs.push_back(std::move(s));
+            }
+            return &t.segs.back();
+        }
+        return nullptr; /* merge decides per file */
+    };
+
+    for (const auto &act : raw.acts) {
+        if (act.type == Act::Ver) {
+            t.ver = static_cast<int>(act.n);
+        } else if (act.type == Act::Typ) {
+            t.typ = act.n;
+            t.aux = act.n2;
+            t.typ_set = true;
+        } else if (act.type == Act::Entry) {
+            t.entry = act.text;
+        } else if (act.type == Act::Lib) {
+            t.libs.push_back(act.text);
+        } else if (act.type == Act::Org) {
+            if (explicit_seg && cur >= 0) {
+                t.segs[cur].org = act.n;
+                t.segs[cur].org_set = true;
+            } else if (one && !t.segs.empty()) {
+                OutSeg s;
+                s.name = "CODE";
+                s.org = act.n;
+                s.org_set = true;
+                t.segs.push_back(std::move(s));
+                t.org = act.n;
+                t.org_set = true;
+            } else {
+                t.org = act.n;
+                t.org_set = true;
+                if (one && !t.segs.empty()) {
+                    t.segs.back().org = act.n;
+                    t.segs.back().org_set = true;
+                }
+            }
+        } else if (act.type == Act::Seg) {
+            OutSeg s;
+            s.name = act.text;
+            s.dynamic = act.dynamic;
+            if (act.kind_set) {
+                s.kind = act.kind;
+                s.kind_set = true;
+            }
+            s.align = act.n;
+            if (act.text2 == "org") {
+                s.org = act.n2;
+                s.org_set = true;
+            } else if (t.org_set) {
+                /* Default load address. A later segment with no org of its
+                   own is placed after this one by assign_orgs, so do not
+                   copy the default onto every segment here. */
+            }
+            t.segs.push_back(std::move(s));
+            cur = static_cast<int>(t.segs.size()) - 1;
+            t.any_seg = true;
+        } else if (act.type == Act::Ds) {
+            if (merge) {
+                if (t.segs.empty()) {
+                    add_err(o, act.script, act.line, "ds is not inside a segment");
+                    return false;
+                }
+                t.segs.back().pieces.push_back(zeros(act.n));
+            } else {
+                OutSeg *s = ensure(act);
+                if (!s) return false;
+                s->pieces.push_back(zeros(act.n));
+            }
+        } else if (act.type == Act::Plus) {
+            std::string path = join_path(dir, act.text);
+            OmfFile file;
+            std::string err;
+            if (!load_file(path, file, err)) {
+                add_err(o, act.script, act.line, err);
+                return false;
+            }
+            if (explicit_seg || one) {
+                OutSeg *s = ensure(act);
+                if (!s) return false;
+                if (s->name == "CODE" && act.text2.empty() && !file.segs.empty() && one &&
+                    t.segs.size() == 1 && s->pieces.empty()) {
+                    /* Keep CODE unless the single absolute image has an entry
+                       later. The first input's segment name is a better label
+                       when the script did not name one. */
+                    if (!file.segs[0].name.empty()) s->name = file.segs[0].name;
+                }
+                std::vector<OutSeg> tmp;
+                /* place_file(merge=false) appends to the last seg. */
+                tmp.push_back(OutSeg{});
+                tmp.back().name = s->name;
+                if (!place_file(tmp, file, act.text2, false, s->name, err)) {
+                    add_err(o, act.script, act.line, err);
+                    return false;
+                }
+                for (auto &p : tmp.back().pieces) s->pieces.push_back(std::move(p));
+            } else {
+                if (!place_file(t.segs, file, act.text2, true, {}, err)) {
+                    add_err(o, act.script, act.line, err);
+                    return false;
+                }
+            }
+        }
+    }
+
+    if (!any_plus && !explicit_seg) {
+        for (const auto &dep : t.deps) {
+            bool is_lib = false;
+            for (const auto &lib : t.libs)
+                if (ieq(lib, dep)) is_lib = true;
+            if (is_lib) continue;
+            std::string path = join_path(dir, dep);
+            OmfFile file;
+            std::string err;
+            if (!load_file(path, file, err)) {
+                add_err(o, t.script, t.line, err);
+                return false;
+            }
+            if (one || t.org_set) {
+                if (t.segs.empty()) {
+                    OutSeg s;
+                    s.name = file.segs.empty() ? "CODE" : file.segs[0].name;
+                    if (t.org_set) {
+                        s.org = t.org;
+                        s.org_set = true;
+                    }
+                    t.segs.push_back(std::move(s));
+                }
+                std::vector<OutSeg> tmp(1);
+                if (!place_file(tmp, file, {}, false, t.segs.back().name, err)) {
+                    add_err(o, t.script, t.line, err);
+                    return false;
+                }
+                for (auto &p : tmp.back().pieces)
+                    t.segs.back().pieces.push_back(std::move(p));
+            } else if (!place_file(t.segs, file, {}, true, {}, err)) {
+                add_err(o, t.script, t.line, err);
+                return false;
+            }
+        }
+    }
+    return o.errors.empty();
+}
+
+} // namespace
+
+LinkOutput link_script(const std::string &path, std::ostream &log)
+{
+    LinkOutput o;
+    Script sc;
+    sc.dir = dirname_of(path);
+    std::vector<std::string> stack;
+    if (!parse_script(path, sc, o, stack, 0)) return o;
+    if (sc.targets.empty()) {
+        add_err(o, path, 0, "script has no targets");
+        return o;
+    }
+    for (const auto &raw : sc.targets) {
+        Target t;
+        if (!build_target(raw, sc.dir, t, o)) return o;
+        if (!finish_target(t, sc.dir, o, log)) return o;
+    }
+    return o;
+}
+
+} // namespace qasm
diff --git a/src/qlink/link.hpp b/src/qlink/link.hpp
new file mode 100644
index 0000000..cf06980
--- /dev/null
+++ b/src/qlink/link.hpp
@@ -0,0 +1,35 @@
+#pragma once
+
+/* qlink script and OMF placement.
+   The script is not assembled and is not handed to make. '#' comments run
+   to the end of the line. `name = value` and `$(name)` are variables.
+   `include file` pastes another script. A target is `output: inputs`.
+   The indented body is ver, typ, org, entry, lib, seg, +file, ds, and end. */
+
+#include "omf.hpp"
+
+#include <iosfwd>
+#include <string>
+#include <vector>
+
+namespace qasm {
+
+struct LinkProduct {
+    std::string path;
+    uint32_t typ = 0;
+    uint32_t aux = 0;
+    bool typ_set = false;
+    OmfFile file;
+};
+
+struct LinkOutput {
+    std::vector<LinkProduct> products;
+    std::vector<std::string> errors;
+    bool ok() const { return errors.empty(); }
+};
+
+/* Paths in the script are relative to the script file. Outputs are written
+   as each target is finished, so a later target can read an earlier one. */
+LinkOutput link_script(const std::string &path, std::ostream &log);
+
+} // namespace qasm
diff --git a/src/qlink/qlink.cpp b/src/qlink/qlink.cpp
new file mode 100644
index 0000000..4c06603
--- /dev/null
+++ b/src/qlink/qlink.cpp
@@ -0,0 +1,57 @@
+/* qlink: OMF 1.0 and 2.0 linker. Reads a link script directly. */
+
+#include "link.hpp"
+
+#include <iostream>
+#include <string>
+#include <vector>
+
+const char *qlink_version_string();
+
+namespace {
+
+void usage()
+{
+    std::cerr
+        << "usage: qlink [options] script.link [script2.link ...]\n"
+        << "  -V, --version      print version and exit\n"
+        << "  -h, --help         print this help and exit\n";
+}
+
+} // namespace
+
+int main(int argc, char **argv)
+{
+    std::vector<std::string> scripts;
+    for (int i = 1; i < argc; i++) {
+        std::string a = argv[i];
+        if (a == "-h" || a == "--help") {
+            usage();
+            return 0;
+        }
+        if (a == "-V" || a == "--version") {
+            std::cout << qlink_version_string() << "\n";
+            return 0;
+        }
+        if (!a.empty() && a[0] == '-') {
+            std::cerr << "unknown option " << a << "\n";
+            usage();
+            return 2;
+        }
+        scripts.push_back(a);
+    }
+    if (scripts.empty()) {
+        usage();
+        return 2;
+    }
+    int rc = 0;
+    for (const auto &path : scripts) {
+        qasm::LinkOutput out = qasm::link_script(path, std::cout);
+        if (!out.ok()) {
+            for (const auto &e : out.errors)
+                std::cerr << e << "\n";
+            rc = 1;
+        }
+    }
+    return rc;
+}
diff --git a/src/qomf/main.cpp b/src/qomf/main.cpp
new file mode 100644
index 0000000..a2f3747
--- /dev/null
+++ b/src/qomf/main.cpp
@@ -0,0 +1,77 @@
+/* qomf: print an OMF file, including its relocation records. */
+
+#include "qomf.hpp"
+
+#include <fstream>
+#include <iostream>
+#include <string>
+#include <vector>
+
+const char *qomf_version_string();
+
+namespace {
+
+void usage()
+{
+    std::cerr << "usage: qomf [options] file [file...]\n"
+              << "  -V, --version      print version and exit\n"
+              << "  -h, --help         print this help and exit\n";
+}
+
+bool read_file(const std::string &path, std::vector<uint8_t> &buf, std::string &err)
+{
+    std::ifstream in(path, std::ios::binary);
+    if (!in) {
+        err = path + ": cannot open";
+        return false;
+    }
+    buf.assign(std::istreambuf_iterator<char>(in), std::istreambuf_iterator<char>());
+    return true;
+}
+
+} // namespace
+
+int main(int argc, char **argv)
+{
+    std::vector<std::string> files;
+    for (int i = 1; i < argc; i++) {
+        std::string a = argv[i];
+        if (a == "-h" || a == "--help") {
+            usage();
+            return 0;
+        }
+        if (a == "-V" || a == "--version") {
+            std::cout << qomf_version_string() << "\n";
+            return 0;
+        }
+        if (!a.empty() && a[0] == '-') {
+            std::cerr << "unknown option " << a << "\n";
+            usage();
+            return 2;
+        }
+        files.push_back(a);
+    }
+    if (files.empty()) {
+        usage();
+        return 2;
+    }
+
+    int rc = 0;
+    bool any = false;
+    for (const auto &path : files) {
+        if (any) std::cout << "\n";
+        any = true;
+        std::vector<uint8_t> buf;
+        std::string err;
+        if (!read_file(path, buf, err)) {
+            std::cerr << err << "\n";
+            rc = 1;
+            continue;
+        }
+        if (!qasm::omf_dump(buf, path, std::cout, err)) {
+            std::cerr << path << ": " << err << "\n";
+            rc = 1;
+        }
+    }
+    return rc;
+}
diff --git a/src/qomf/qomf.cpp b/src/qomf/qomf.cpp
new file mode 100644
index 0000000..f7315bf
--- /dev/null
+++ b/src/qomf/qomf.cpp
@@ -0,0 +1,818 @@
+/* Dump Apple IIgs OMF 1.0 and 2.0.
+   Header numbers are little-endian. Body numbers use NUMLEN and NUMSEX.
+   Record operands follow the layouts read by 6502bench SourceGen
+   (faddenSoft, Apache-2.0) and by src/omf/omf.cpp. A record whose size
+   is not in those layouts stops the segment. */
+
+#include "qomf.hpp"
+
+#include <cstdint>
+#include <cstdio>
+#include <sstream>
+#include <string>
+#include <vector>
+
+namespace qasm {
+namespace {
+
+std::string hex_n(uint32_t v, int digits)
+{
+    char b[16];
+    std::snprintf(b, sizeof b, "%0*X", digits, static_cast<unsigned>(v));
+    return b;
+}
+
+std::string hex8(uint32_t v) { return hex_n(v, 8); }
+
+const char *bytes_word(size_t n) { return n == 1 ? "byte" : "bytes"; }
+
+std::string quote_text(const std::string &s)
+{
+    std::string o = "\"";
+    for (unsigned char c : s) {
+        if (c == '"' || c == '\\') {
+            o.push_back('\\');
+            o.push_back(static_cast<char>(c));
+        } else if (c >= 32 && c < 127) {
+            o.push_back(static_cast<char>(c));
+        } else {
+            char b[8];
+            std::snprintf(b, sizeof b, "\\x%02X", c);
+            o += b;
+        }
+    }
+    o.push_back('"');
+    return o;
+}
+
+uint32_t load_le(const std::vector<uint8_t> &in, size_t at, int n)
+{
+    uint32_t v = 0;
+    for (int k = 0; k < n; k++)
+        v |= static_cast<uint32_t>(in[at + static_cast<size_t>(k)]) << (8 * k);
+    return v;
+}
+
+struct Cur {
+    const std::vector<uint8_t> &in;
+    size_t i = 0;
+    size_t end = 0;
+    int numlen = 4;
+    bool big = false;
+    int lablen = 0;
+    int version = 2;
+    std::string err{};
+};
+
+bool need(Cur &c, size_t n)
+{
+    return c.i + n <= c.end;
+}
+
+bool read_n(Cur &c, int n, uint32_t &v)
+{
+    if (n < 1 || !need(c, static_cast<size_t>(n))) return false;
+    v = 0;
+    if (!c.big) {
+        for (int k = 0; k < n; k++)
+            v |= static_cast<uint32_t>(c.in[c.i + static_cast<size_t>(k)]) << (8 * k);
+    } else {
+        for (int k = 0; k < n; k++)
+            v = (v << 8) | c.in[c.i + static_cast<size_t>(k)];
+    }
+    c.i += static_cast<size_t>(n);
+    return true;
+}
+
+bool read_num(Cur &c, uint32_t &v) { return read_n(c, c.numlen, v); }
+
+bool take_label(const std::vector<uint8_t> &in, size_t &i, size_t end, int lablen,
+                std::string &name, std::string &err)
+{
+    size_t n = static_cast<size_t>(lablen);
+    if (lablen == 0) {
+        if (i >= end) {
+            err = "OMF label runs off the segment";
+            return false;
+        }
+        n = in[i++];
+    }
+    if (i + n > end) {
+        err = "OMF label runs off the segment";
+        return false;
+    }
+    name.assign(reinterpret_cast<const char *>(&in[i]), n);
+    if (lablen != 0) {
+        while (!name.empty() && name.back() == ' ') name.pop_back();
+    }
+    i += n;
+    return true;
+}
+
+bool read_label(Cur &c, std::string &name)
+{
+    return take_label(c.in, c.i, c.end, c.lablen, name, c.err);
+}
+
+const char *bin_op(uint8_t op)
+{
+    switch (op) {
+    case 0x01: return "+";
+    case 0x02: return "-";
+    case 0x03: return "*";
+    case 0x04: return "/";
+    case 0x05: return "%";
+    case 0x07: return " shift ";
+    case 0x08: return "&&";
+    case 0x09: return "||";
+    case 0x0A: return "^^";
+    case 0x0C: return "<=";
+    case 0x0D: return ">=";
+    case 0x0E: return "!=";
+    case 0x0F: return "<";
+    case 0x10: return ">";
+    case 0x11: return "==";
+    case 0x12: return "&";
+    case 0x13: return "|";
+    case 0x14: return "^";
+    default: return nullptr;
+    }
+}
+
+const char *un_op(uint8_t op)
+{
+    switch (op) {
+    case 0x06: return "-";
+    case 0x0B: return "!";
+    case 0x15: return "~";
+    default: return nullptr;
+    }
+}
+
+bool outer_parens(const std::string &s)
+{
+    if (s.size() < 2 || s.front() != '(' || s.back() != ')') return false;
+    int d = 0;
+    for (size_t i = 0; i < s.size(); i++) {
+        if (s[i] == '(') d++;
+        else if (s[i] == ')') {
+            d--;
+            if (d == 0 && i + 1 != s.size()) return false;
+        }
+    }
+    return d == 0;
+}
+
+bool read_expr(Cur &c, std::string &expr)
+{
+    std::vector<std::string> st;
+    while (c.i < c.end) {
+        uint8_t op = c.in[c.i++];
+        if (op == 0x00) {
+            if (st.size() == 1) {
+                expr = st[0];
+                if (outer_parens(expr)) expr = expr.substr(1, expr.size() - 2);
+            } else {
+                expr.clear();
+                for (size_t n = 0; n < st.size(); n++) {
+                    if (n) expr += ", ";
+                    expr += st[n];
+                }
+            }
+            return true;
+        }
+        if (const char *bop = bin_op(op)) {
+            if (st.size() < 2) {
+                c.err = "OMF expression stack underflow";
+                return false;
+            }
+            std::string rhs = st.back();
+            st.pop_back();
+            std::string lhs = st.back();
+            st.pop_back();
+            st.push_back("(" + lhs + bop + rhs + ")");
+            continue;
+        }
+        if (const char *uop = un_op(op)) {
+            if (st.empty()) {
+                c.err = "OMF expression stack underflow";
+                return false;
+            }
+            std::string arg = st.back();
+            st.pop_back();
+            st.push_back(std::string(uop) + arg);
+            continue;
+        }
+        if (op == 0x80) {
+            st.push_back("[loc]");
+            continue;
+        }
+        if (op == 0x81 || op == 0x87) {
+            uint32_t v = 0;
+            if (!read_num(c, v)) {
+                c.err = "OMF constant runs off the expression";
+                return false;
+            }
+            std::string num = "$" + hex_n(v, c.numlen * 2);
+            st.push_back(op == 0x87 ? "rel:" + num : num);
+            continue;
+        }
+        if (op >= 0x82 && op <= 0x86) {
+            std::string name;
+            if (!read_label(c, name)) return false;
+            const char *pre = "";
+            if (op == 0x82) pre = "weak:";
+            else if (op == 0x84) pre = "len:";
+            else if (op == 0x85) pre = "typ:";
+            else if (op == 0x86) pre = "cnt:";
+            st.push_back(std::string(pre) + name);
+            continue;
+        }
+        char b[64];
+        std::snprintf(b, sizeof b, "unsupported OMF expression operator $%02X", op);
+        c.err = b;
+        return false;
+    }
+    c.err = "OMF expression has no end";
+    return false;
+}
+
+void hex_rows(std::ostream &out, const std::vector<uint8_t> &in, size_t at, size_t n,
+              uint32_t lc)
+{
+    for (size_t i = 0; i < n; i += 16) {
+        uint32_t addr = lc + static_cast<uint32_t>(i);
+        int digits = addr > 0xFFFFFFu ? 8 : 6;
+        out << "           " << hex_n(addr, digits);
+        size_t m = n - i;
+        if (m > 16) m = 16;
+        for (size_t j = 0; j < m; j++) {
+            char b[4];
+            std::snprintf(b, sizeof b, " %02X", in[at + i + j]);
+            out << b;
+        }
+        out << "\n";
+    }
+}
+
+const char *type_name(unsigned low)
+{
+    switch (low & 0x1Fu) {
+    case 0x00: return "code";
+    case 0x01: return "data";
+    case 0x02: return "jump table";
+    case 0x04: return "pathname";
+    case 0x08: return "library dictionary";
+    case 0x10: return "init";
+    case 0x11: return "absolute bank";
+    case 0x12: return "dp/stack";
+    default: return nullptr;
+    }
+}
+
+std::string flag_text(bool v2, unsigned raw)
+{
+    std::string s;
+    if (v2) {
+        if (raw & 0x0100) s += " bank-relative";
+        if (raw & 0x0200) s += " skip";
+        if (raw & 0x0400) s += " reloadable";
+        if (raw & 0x0800) s += " absolute-bank";
+        if (raw & 0x1000) s += " no-special";
+        if (raw & 0x2000) s += " position-independent";
+        if (raw & 0x4000) s += " private";
+        if (raw & 0x8000) s += " dynamic";
+    } else {
+        if (raw & 0x20) s += " position-independent";
+        if (raw & 0x40) s += " private";
+        if (raw & 0x80) s += " dynamic";
+    }
+    if (!s.empty()) s.erase(0, 1);
+    return s;
+}
+
+std::string kind_words(bool v2, unsigned raw)
+{
+    unsigned low = v2 ? (raw & 0x1Fu) : (raw & 0x1Fu);
+    const char *name = type_name(low);
+    std::string flags = flag_text(v2, raw);
+    if (name && !flags.empty()) return std::string(name) + " " + flags;
+    if (name) return name;
+    return flags;
+}
+
+bool read_attrs(Cur &c, uint32_t &length, uint8_t &type, uint8_t &priv)
+{
+    if (c.version <= 1) {
+        if (!need(c, 3)) return false;
+        length = c.in[c.i];
+        type = c.in[c.i + 1];
+        priv = c.in[c.i + 2];
+        c.i += 3;
+        return true;
+    }
+    if (!need(c, 4)) return false;
+    length = c.big ? (static_cast<uint32_t>(c.in[c.i]) << 8) | c.in[c.i + 1]
+                   : c.in[c.i] | (static_cast<uint32_t>(c.in[c.i + 1]) << 8);
+    type = c.in[c.i + 2];
+    priv = c.in[c.i + 3];
+    c.i += 4;
+    return true;
+}
+
+void print_type_byte(std::ostream &out, uint8_t type)
+{
+    if (type >= 0x20 && type < 0x7F && type != '\'' && type != '\\')
+        out << "type '" << static_cast<char>(type) << "' ($" << hex_n(type, 2) << ")";
+    else
+        out << "type $" << hex_n(type, 2);
+}
+
+bool symbol_record(Cur &c, std::ostream &out, size_t rec, uint32_t lc, const char *what,
+                   bool with_expr)
+{
+    std::string name;
+    if (!read_label(c, name)) return false;
+    uint32_t length = 0;
+    uint8_t type = 0, priv = 0;
+    if (!read_attrs(c, length, type, priv)) {
+        c.err = std::string(what) + " record runs off the segment";
+        return false;
+    }
+    std::string expr;
+    if (with_expr && !read_expr(c, expr)) return false;
+    int digits = c.version <= 1 ? 2 : 4;
+    out << "  +$" << hex8(static_cast<uint32_t>(rec)) << "  " << what << "  " << quote_text(name);
+    if (!with_expr) out << "  at $" << hex8(lc);
+    out << "  length $" << hex_n(length, digits) << "  ";
+    print_type_byte(out, type);
+    out << "  private " << static_cast<unsigned>(priv);
+    if (with_expr) out << "  = " << expr;
+    out << "\n";
+    return true;
+}
+
+bool parse_records(Cur &c, std::ostream &out, uint32_t &lc, int &relocs, int &fixups,
+                   bool &saw_object, bool &saw_load)
+{
+    while (c.i < c.end) {
+        size_t rec = c.i;
+        uint8_t op = c.in[c.i++];
+        std::string at = hex8(static_cast<uint32_t>(rec));
+        if (op == 0x00) {
+            out << "  +$" << at << "  END\n";
+            return true;
+        }
+        if (op >= 0x01 && op <= 0xDF) {
+            if (!need(c, op)) {
+                c.err = "CONST record runs off the segment";
+                return false;
+            }
+            out << "  +$" << at << "  CONST  " << static_cast<unsigned>(op) << " "
+                << bytes_word(op) << " at $"
+                << hex8(lc) << "\n";
+            hex_rows(out, c.in, c.i, op, lc);
+            c.i += op;
+            lc += op;
+            saw_object = true;
+            continue;
+        }
+        if (op == 0xE0 || op == 0xE1 || op == 0xF1) {
+            uint32_t n = 0;
+            if (!read_num(c, n)) {
+                c.err = op == 0xF1 ? "DS record runs off the segment"
+                        : op == 0xE0 ? "ALIGN record runs off the segment"
+                                     : "ORG record runs off the segment";
+                return false;
+            }
+            if (op == 0xF1) {
+                out << "  +$" << at << "  DS  $" << hex8(n) << " bytes at $" << hex8(lc) << "\n";
+                lc += n;
+            } else if (op == 0xE0) {
+                if (n > 1) {
+                    uint64_t aligned = (static_cast<uint64_t>(lc) + n - 1) / n * n;
+                    if (aligned <= 0xFFFFFFFFu) lc = static_cast<uint32_t>(aligned);
+                }
+                out << "  +$" << at << "  ALIGN  $" << hex8(n) << "  lc $" << hex8(lc) << "\n";
+                saw_object = true;
+            } else {
+                lc = n;
+                out << "  +$" << at << "  ORG  $" << hex8(n) << "\n";
+                saw_object = true;
+            }
+            continue;
+        }
+        if (op == 0xE2 || op == 0xE3) {
+            uint32_t offset = 0, disp = 0, file = 0, seg = 0;
+            if (!need(c, 2)) {
+                c.err = op == 0xE2 ? "RELOC record runs off the segment"
+                                   : "INTERSEG record runs off the segment";
+                return false;
+            }
+            uint8_t width = c.in[c.i];
+            int8_t shift = static_cast<int8_t>(c.in[c.i + 1]);
+            c.i += 2;
+            if (!read_num(c, offset)) {
+                c.err = op == 0xE2 ? "RELOC record runs off the segment"
+                                   : "INTERSEG record runs off the segment";
+                return false;
+            }
+            if (op == 0xE3) {
+                if (!read_n(c, 2, file) || !read_n(c, 2, seg)) {
+                    c.err = "INTERSEG record runs off the segment";
+                    return false;
+                }
+            }
+            if (!read_num(c, disp)) {
+                c.err = op == 0xE2 ? "RELOC record runs off the segment"
+                                   : "INTERSEG record runs off the segment";
+                return false;
+            }
+            out << "  +$" << at << (op == 0xE2 ? "  RELOC  " : "  INTERSEG  ") << "width "
+                << static_cast<unsigned>(width) << "  shift " << static_cast<int>(shift)
+                << "  at $" << hex8(offset);
+            if (op == 0xE3)
+                out << "  file " << file << "  seg " << seg;
+            out << "  disp $" << hex8(disp) << "\n";
+            relocs++;
+            saw_load = true;
+            continue;
+        }
+        if (op == 0xE4 || op == 0xE5) {
+            std::string name;
+            if (!read_label(c, name)) return false;
+            out << "  +$" << at << (op == 0xE4 ? "  USING  " : "  STRONG  ") << quote_text(name)
+                << "\n";
+            saw_object = true;
+            continue;
+        }
+        if (op == 0xE6 || op == 0xEF) {
+            if (!symbol_record(c, out, rec, lc, op == 0xE6 ? "GLOBAL" : "LOCAL", false))
+                return false;
+            saw_object = true;
+            continue;
+        }
+        if (op == 0xE7 || op == 0xF0) {
+            if (!symbol_record(c, out, rec, lc, op == 0xE7 ? "GEQU" : "EQU", true)) return false;
+            saw_object = true;
+            continue;
+        }
+        if (op == 0xE8) {
+            uint32_t a = 0, b = 0;
+            if (!read_num(c, a) || !read_num(c, b)) {
+                c.err = "MEM record runs off the segment";
+                return false;
+            }
+            out << "  +$" << at << "  MEM  $" << hex8(a) << "  $" << hex8(b) << "\n";
+            saw_object = true;
+            continue;
+        }
+        if (op == 0xEB || op == 0xEC || op == 0xED || op == 0xF3 || op == 0xEE) {
+            if (!need(c, 1)) {
+                c.err = "expression record runs off the segment";
+                return false;
+            }
+            uint8_t width = c.in[c.i++];
+            uint32_t offset = 0;
+            bool relexpr = op == 0xEE;
+            if (relexpr && !read_num(c, offset)) {
+                c.err = "RELEXPR record runs off the segment";
+                return false;
+            }
+            std::string expr;
+            if (!read_expr(c, expr)) return false;
+            const char *name = "EXPR";
+            if (op == 0xEC) name = "ZEXPR";
+            else if (op == 0xED) name = "BEXPR";
+            else if (op == 0xF3) name = "LEXPR";
+            else if (op == 0xEE) name = "RELEXPR";
+            out << "  +$" << at << "  " << name << "  width " << static_cast<unsigned>(width);
+            if (relexpr) out << "  at $" << hex8(offset);
+            out << "  " << expr << "\n";
+            fixups++;
+            saw_object = true;
+            continue;
+        }
+        if (op == 0xF2) {
+            uint32_t n = 0;
+            if (!read_num(c, n) || !need(c, n)) {
+                c.err = "LCONST record runs off the segment";
+                return false;
+            }
+            out << "  +$" << at << "  LCONST  " << n << " " << bytes_word(n) << " at $"
+                << hex8(lc) << "\n";
+            hex_rows(out, c.in, c.i, n, lc);
+            c.i += n;
+            lc += n;
+            continue;
+        }
+        if (op == 0xF5 || op == 0xF6) {
+            int nbytes = op == 0xF5 ? 6 : 7;
+            if (!need(c, static_cast<size_t>(nbytes))) {
+                c.err = op == 0xF5 ? "cRELOC record runs off the segment"
+                                   : "cINTERSEG record runs off the segment";
+                return false;
+            }
+            uint8_t width = c.in[c.i];
+            int8_t shift = static_cast<int8_t>(c.in[c.i + 1]);
+            c.i += 2;
+            uint32_t offset = 0, disp = 0, seg = 0;
+            if (!read_n(c, 2, offset)) return false;
+            if (op == 0xF6) {
+                seg = c.in[c.i++];
+            }
+            if (!read_n(c, 2, disp)) return false;
+            out << "  +$" << at << (op == 0xF5 ? "  cRELOC  " : "  cINTERSEG  ") << "width "
+                << static_cast<unsigned>(width) << "  shift " << static_cast<int>(shift)
+                << "  at $" << hex_n(offset, 4);
+            if (op == 0xF6) out << "  seg " << seg;
+            out << "  disp $" << hex_n(disp, 4) << "\n";
+            relocs++;
+            saw_load = true;
+            continue;
+        }
+        if (op == 0xF7 || op >= 0xFB) {
+            uint32_t n = 0;
+            if (!read_num(c, n) || !need(c, n)) {
+                c.err = op == 0xF7 ? "SUPER record runs off the segment"
+                                   : "extended record runs off the segment";
+                return false;
+            }
+            if (op == 0xF7) {
+                if (n < 1) {
+                    c.err = "SUPER record is empty";
+                    return false;
+                }
+                uint8_t type = c.in[c.i];
+                out << "  +$" << at << "  SUPER  type $" << hex_n(type, 2) << "  " << (n - 1) << " "
+                    << bytes_word(n - 1) << "\n";
+                hex_rows(out, c.in, c.i + 1, n - 1, 0);
+                relocs++;
+                saw_load = true;
+            } else if (op == 0xFB) {
+                out << "  +$" << at << "  GENERAL  " << n << " " << bytes_word(n) << "\n";
+                hex_rows(out, c.in, c.i, n, 0);
+            } else {
+                out << "  +$" << at << "  EXPERIMENTAL  $" << hex_n(op, 2) << "  " << n << " "
+                    << bytes_word(n) << "\n";
+                hex_rows(out, c.in, c.i, n, 0);
+            }
+            c.i += n;
+            continue;
+        }
+        char b[48];
+        std::snprintf(b, sizeof b, "unsupported OMF record $%02X", op);
+        c.err = b;
+        return false;
+    }
+    c.err = "segment has no END record";
+    return false;
+}
+
+struct Head {
+    size_t off = 0;
+    uint32_t seglen = 0;
+    uint32_t count_field = 0;
+    bool blocks = false;
+    uint32_t resspc = 0;
+    uint32_t length = 0;
+    uint32_t org = 0;
+    uint32_t align = 0;
+    uint32_t entry = 0;
+    uint32_t banksize = 0;
+    uint32_t temporg = 0;
+    uint32_t reserved14 = 0;
+    uint16_t kind = 0;
+    uint16_t segnum = 0;
+    uint16_t dispname = 0;
+    uint16_t dispdata = 0;
+    uint16_t reserved16 = 0;
+    uint8_t lablen = 0;
+    uint8_t numlen = 4;
+    uint8_t version = 2;
+    uint8_t numsex = 0;
+    uint8_t reserved0c = 0;
+    uint8_t lcbank = 0;
+    bool v21 = false;
+    std::string loadname;
+    std::string segname;
+    size_t name_end = 0;
+};
+
+bool read_header(const std::vector<uint8_t> &in, size_t off, int file_version, Head &h,
+                 std::string &err)
+{
+    if (off + 0x2C > in.size()) {
+        err = off == 0 ? "file is too small to be OMF" : "bytes follow the last segment";
+        return false;
+    }
+    int version = in[off + 0x0F];
+    if (version != 1 && version != 2) {
+        err = "OMF version is not 1 or 2";
+        return false;
+    }
+    if (file_version != 0 && version != file_version) {
+        err = "OMF segments disagree on version";
+        return false;
+    }
+    uint8_t numlen = in[off + 0x0E];
+    if (numlen != 1 && numlen != 2 && numlen != 4) {
+        err = "OMF NUMLEN must be 1, 2, or 4";
+        return false;
+    }
+    uint8_t numsex = in[off + 0x20];
+    if (numsex > 1) {
+        err = "OMF NUMSEX must be 0 or 1";
+        return false;
+    }
+    uint32_t field = load_le(in, off, 4);
+    uint32_t seglen = field;
+    bool blocks = false;
+    if (version == 1) {
+        uint64_t bytes = static_cast<uint64_t>(field) * 512;
+        if (field >= 1 && off + bytes <= in.size()) {
+            seglen = static_cast<uint32_t>(bytes);
+            blocks = true;
+        }
+    }
+    if (seglen < 0x2C || off + seglen > in.size()) {
+        err = "OMF segment length runs off the file";
+        return false;
+    }
+    h = Head{};
+    h.off = off;
+    h.seglen = seglen;
+    h.count_field = field;
+    h.blocks = blocks;
+    h.resspc = load_le(in, off + 0x04, 4);
+    h.length = load_le(in, off + 0x08, 4);
+    h.banksize = load_le(in, off + 0x10, 4);
+    h.org = load_le(in, off + 0x18, 4);
+    h.align = load_le(in, off + 0x1C, 4);
+    h.segnum = static_cast<uint16_t>(load_le(in, off + 0x22, 2));
+    h.entry = load_le(in, off + 0x24, 4);
+    h.dispname = static_cast<uint16_t>(load_le(in, off + 0x28, 2));
+    h.dispdata = static_cast<uint16_t>(load_le(in, off + 0x2A, 2));
+    h.lablen = in[off + 0x0D];
+    h.numlen = numlen;
+    h.version = static_cast<uint8_t>(version);
+    h.numsex = numsex;
+    h.lcbank = in[off + 0x21];
+    if (version == 1) {
+        h.kind = in[off + 0x0C];
+        h.reserved14 = load_le(in, off + 0x14, 4);
+    } else {
+        h.reserved0c = in[off + 0x0C];
+        h.kind = static_cast<uint16_t>(load_le(in, off + 0x14, 2));
+        h.reserved16 = static_cast<uint16_t>(load_le(in, off + 0x16, 2));
+        if (h.dispname > 0x2C) {
+            if (h.dispname < 0x30 || seglen < 0x30) {
+                err = "OMF DISPNAME or DISPDATA is out of range";
+                return false;
+            }
+            h.v21 = true;
+            h.temporg = load_le(in, off + 0x2C, 4);
+        }
+    }
+    uint16_t min_name = h.v21 ? 0x30 : 0x2C;
+    if (h.dispname < min_name || static_cast<uint32_t>(h.dispname) + 10 > seglen) {
+        err = "OMF DISPNAME or DISPDATA is out of range";
+        return false;
+    }
+    size_t name_at = off + h.dispname;
+    std::string load;
+    load.assign(reinterpret_cast<const char *>(&in[name_at]), 10);
+    while (!load.empty() && (load.back() == ' ' || load.back() == '\0')) load.pop_back();
+    h.loadname = load;
+    size_t seg_at = name_at + 10;
+    if (!take_label(in, seg_at, off + seglen, h.lablen, h.segname, err)) return false;
+    h.name_end = seg_at;
+    if (h.dispdata < h.name_end - off || h.dispdata >= seglen) {
+        err = "OMF DISPNAME or DISPDATA is out of range";
+        return false;
+    }
+    return true;
+}
+
+void print_header(std::ostream &out, const Head &h, int index)
+{
+    out << "segment " << index << " at file+$" << hex8(static_cast<uint32_t>(h.off)) << "\n";
+    if (h.blocks)
+        out << "  blkcnt $" << hex8(h.count_field) << "\n";
+    else
+        out << "  bytecnt $" << hex8(h.count_field) << "\n";
+    out << "  resspc $" << hex8(h.resspc) << "\n";
+    out << "  length $" << hex8(h.length) << "\n";
+    if (h.version == 1) {
+        out << "  type $" << hex_n(h.kind, 2);
+        std::string words = kind_words(false, h.kind);
+        if (!words.empty()) out << " " << words;
+        out << "\n";
+    } else if (h.reserved0c) {
+        out << "  reserved +$0C $" << hex_n(h.reserved0c, 2) << "\n";
+    }
+    out << "  lablen " << static_cast<unsigned>(h.lablen)
+        << (h.lablen == 0 ? " (Pascal)\n" : " (fixed)\n");
+    out << "  numlen " << static_cast<unsigned>(h.numlen) << "\n";
+    out << "  version " << static_cast<unsigned>(h.version) << "\n";
+    out << "  banksize $" << hex8(h.banksize) << "\n";
+    if (h.version >= 2) {
+        out << "  kind $" << hex_n(h.kind, 4);
+        std::string words = kind_words(true, h.kind);
+        if (!words.empty()) out << " " << words;
+        out << "\n";
+        if (h.reserved16)
+            out << "  reserved +$16 $" << hex_n(h.reserved16, 4) << "\n";
+    } else if (h.reserved14) {
+        out << "  reserved +$14 $" << hex8(h.reserved14) << "\n";
+    }
+    out << "  org $" << hex8(h.org) << "\n";
+    out << "  align $" << hex8(h.align) << "\n";
+    out << "  numsex " << static_cast<unsigned>(h.numsex)
+        << (h.numsex ? " (big)\n" : " (little)\n");
+    if (h.version == 1)
+        out << "  lcbank $" << hex_n(h.lcbank, 2) << "\n";
+    else if (h.lcbank)
+        out << "  reserved +$21 $" << hex_n(h.lcbank, 2) << "\n";
+    out << "  segnum " << h.segnum << "\n";
+    out << "  entry $" << hex8(h.entry) << "\n";
+    out << "  dispname $" << hex_n(h.dispname, 4) << "\n";
+    out << "  dispdata $" << hex_n(h.dispdata, 4) << "\n";
+    if (h.v21) {
+        out << "  temporg $" << hex8(h.temporg) << "\n";
+        if (h.dispname > 0x30)
+            out << "  header gap: " << (h.dispname - 0x30) << " bytes\n";
+    }
+    out << "  loadname " << quote_text(h.loadname) << "\n";
+    out << "  segname " << quote_text(h.segname) << "\n";
+    size_t body = h.off + h.dispdata;
+    if (body > h.name_end)
+        out << "  name gap: " << (body - h.name_end) << " bytes\n";
+}
+
+} // namespace
+
+bool omf_dump(const std::vector<uint8_t> &in, const std::string &label, std::ostream &out,
+              std::string &err)
+{
+    err.clear();
+    if (in.size() < 0x2C) {
+        err = "file is too small to be OMF";
+        return false;
+    }
+    std::ostringstream body;
+    int file_version = 0;
+    bool any_v21 = false;
+    bool saw_object = false;
+    bool saw_load = false;
+    int nseg = 0;
+    size_t off = 0;
+    while (off < in.size()) {
+        Head h;
+        if (!read_header(in, off, file_version, h, err)) {
+            out << body.str();
+            return false;
+        }
+        file_version = h.version;
+        if (h.v21) any_v21 = true;
+        if (nseg) body << "\n";
+        nseg++;
+        print_header(body, h, nseg);
+        Cur c{in};
+        c.i = off + h.dispdata;
+        c.end = off + h.seglen;
+        c.numlen = h.numlen;
+        c.big = h.numsex != 0;
+        c.lablen = h.lablen;
+        c.version = h.version;
+        uint32_t lc = 0;
+        int relocs = 0;
+        int fixups = 0;
+        if (!parse_records(c, body, lc, relocs, fixups, saw_object, saw_load)) {
+            err = c.err.empty() ? "segment has no END record" : c.err;
+            out << body.str();
+            return false;
+        }
+        size_t pad = c.end - c.i;
+        if (pad) body << "  padding: " << pad << " " << bytes_word(pad) << "\n";
+        body << "  relocations: " << relocs << "\n";
+        body << "  fixups: " << fixups << "\n";
+        off += h.seglen;
+    }
+    if (nseg == 0) {
+        err = "OMF file has no segments";
+        return false;
+    }
+    const char *klass = "load file";
+    if (saw_object && saw_load) klass = "mixed file";
+    else if (saw_object) klass = "object file";
+    const char *ver = "2.0";
+    if (file_version == 1) ver = "1.0";
+    else if (any_v21) ver = "2.1";
+    out << label << ": OMF " << ver << " " << klass << ", " << nseg
+        << (nseg == 1 ? " segment, " : " segments, ") << in.size() << " bytes\n";
+    out << body.str();
+    return true;
+}
+
+} // namespace qasm
diff --git a/src/qomf/qomf.hpp b/src/qomf/qomf.hpp
new file mode 100644
index 0000000..823cdde
--- /dev/null
+++ b/src/qomf/qomf.hpp
@@ -0,0 +1,16 @@
+#pragma once
+
+/* Print an Apple IIgs OMF 1.0 or 2.0 file. The dump includes the segment
+   header fields and every body record, including RELOC and INTERSEG. */
+
+#include <cstdint>
+#include <iosfwd>
+#include <string>
+#include <vector>
+
+namespace qasm {
+
+bool omf_dump(const std::vector<uint8_t> &in, const std::string &label,
+              std::ostream &out, std::string &err);
+
+} // namespace qasm
diff --git a/src/qpro/main.cpp b/src/qpro/main.cpp
new file mode 100644
index 0000000..bda3ed1
--- /dev/null
+++ b/src/qpro/main.cpp
@@ -0,0 +1,494 @@
+/* qpro: ProDOS volumes, directories, and file types. */
+
+#include "qpro.hpp"
+
+#include <cstdint>
+#include <cstdio>
+#include <fstream>
+#include <iostream>
+#include <string>
+#include <vector>
+
+const char *qpro_version_string();
+
+namespace {
+
+void usage()
+{
+    std::cerr
+        << "usage: qpro create VOLUME -name NAME (-blocks N | -size SPEC)\n"
+        << "       qpro cat VOLUME [PATH]\n"
+        << "       qpro add VOLUME PATH HOSTFILE [-t TYPE] [-a AUX]\n"
+        << "       qpro get VOLUME PATH HOSTFILE\n"
+        << "       qpro rm VOLUME PATH\n"
+        << "       qpro mkdir VOLUME PATH\n"
+        << "       qpro typ VOLUME PATH [-t TYPE] [-a AUX]\n"
+        << "       qpro boot VOLUME FILE\n"
+        << "  -name NAME         volume name\n"
+        << "  -blocks N          decimal block count (7 to 65535)\n"
+        << "  -size SPEC         140k, 800k, or 32m\n"
+        << "  -t TYPE            file type ($06, 0x06, or hex); add defaults to $06\n"
+        << "  -a AUX             auxiliary type; add defaults to $0000\n"
+        << "  -V, --version      print version and exit\n"
+        << "  -h, --help         print this help and exit\n";
+}
+
+bool parse_hex(const std::string &text, uint32_t limit, uint32_t &out, std::string &err)
+{
+    std::string s = text;
+    size_t a = 0;
+    while (a < s.size() && (s[a] == ' ' || s[a] == '\t')) a++;
+    size_t b = s.size();
+    while (b > a && (s[b - 1] == ' ' || s[b - 1] == '\t')) b--;
+    s = s.substr(a, b - a);
+    if (s.empty()) {
+        err = "missing value";
+        return false;
+    }
+    if (s[0] == '$') s.erase(s.begin());
+    else if (s.size() > 2 && s[0] == '0' && (s[1] == 'x' || s[1] == 'X')) s.erase(0, 2);
+    if (s.empty()) {
+        err = "missing value";
+        return false;
+    }
+    uint32_t v = 0;
+    for (char c : s) {
+        unsigned d;
+        if (c >= '0' && c <= '9') d = static_cast<unsigned>(c - '0');
+        else if (c >= 'a' && c <= 'f') d = static_cast<unsigned>(c - 'a' + 10);
+        else if (c >= 'A' && c <= 'F') d = static_cast<unsigned>(c - 'A' + 10);
+        else {
+            err = "bad value " + text;
+            return false;
+        }
+        if (v > (limit >> 4)) {
+            err = "bad value " + text;
+            return false;
+        }
+        v = (v << 4) | d;
+        if (v > limit) {
+            err = "bad value " + text;
+            return false;
+        }
+    }
+    out = v;
+    return true;
+}
+
+bool parse_dec(const std::string &text, uint32_t &out, std::string &err)
+{
+    if (text.empty()) {
+        err = "bad block count";
+        return false;
+    }
+    uint32_t v = 0;
+    for (char c : text) {
+        if (c < '0' || c > '9') {
+            err = "bad block count";
+            return false;
+        }
+        unsigned d = static_cast<unsigned>(c - '0');
+        if (v > (0xFFFFFFFFu - d) / 10u) {
+            err = "bad block count";
+            return false;
+        }
+        v = v * 10u + d;
+    }
+    out = v;
+    return true;
+}
+
+bool read_file(const std::string &path, std::vector<uint8_t> &buf, std::string &err)
+{
+    std::ifstream in(path, std::ios::binary);
+    if (!in) {
+        err = path + ": cannot open";
+        return false;
+    }
+    buf.assign(std::istreambuf_iterator<char>(in), std::istreambuf_iterator<char>());
+    return true;
+}
+
+bool write_file(const std::string &path, const std::vector<uint8_t> &buf, std::string &err)
+{
+    std::ofstream out(path, std::ios::binary);
+    if (!out) {
+        err = path + ": cannot write";
+        return false;
+    }
+    if (!buf.empty())
+        out.write(reinterpret_cast<const char *>(buf.data()),
+                  static_cast<std::streamsize>(buf.size()));
+    if (!out) {
+        err = path + ": cannot write";
+        return false;
+    }
+    return true;
+}
+
+bool exists(const std::string &path)
+{
+    std::ifstream in(path, std::ios::binary);
+    return static_cast<bool>(in);
+}
+
+std::string upper_copy(const std::string &s)
+{
+    std::string o = s;
+    for (char &c : o) {
+        if (c >= 'a' && c <= 'z') c = static_cast<char>(c - 'a' + 'A');
+    }
+    return o;
+}
+
+std::string catalog_title(const qasm::ProVolume &vol, const std::string &path)
+{
+    std::string name = qasm::pro_volume_name(vol);
+    bool absolute = !path.empty() && path[0] == '/';
+    std::vector<std::string> parts;
+    std::string cur;
+    auto flush = [&]() {
+        if (cur.empty()) return;
+        std::string u = upper_copy(cur);
+        cur.clear();
+        if (parts.empty() && absolute && u == name) return;
+        parts.push_back(u);
+    };
+    for (char c : path) {
+        if (c == '/') flush();
+        else cur.push_back(c);
+    }
+    flush();
+    std::string title = "/" + name;
+    for (const auto &p : parts) title += "/" + p;
+    return title;
+}
+
+void print_catalog(const qasm::ProVolume &vol, const std::string &path,
+                   const std::vector<qasm::ProFileInfo> &ents)
+{
+    std::cout << catalog_title(vol, path) << "\n";
+    std::cout << qasm::pro_total_blocks(vol) << " blocks, " << qasm::pro_free_blocks(vol)
+              << " free\n\n";
+    std::cout << " NAME             TYPE   AUX      EOF  BLOCKS\n";
+    for (const auto &e : ents) {
+        char line[80];
+        std::snprintf(line, sizeof(line), " %-15s  %02X  %04X  %8u  %6u\n", e.name.c_str(), e.type,
+                      e.aux, e.eof, static_cast<unsigned>(e.blocks));
+        std::cout << line;
+    }
+}
+
+struct Opt {
+    std::vector<std::string> pos;
+    std::string name;
+    std::string size;
+    bool blocks_set = false;
+    uint32_t blocks = 0;
+    bool type_set = false;
+    uint32_t type = 0;
+    bool aux_set = false;
+    uint32_t aux = 0;
+};
+
+bool take_args(int argc, char **argv, int begin, Opt &opt, std::string &err)
+{
+    for (int i = begin; i < argc; i++) {
+        std::string a = argv[i];
+        if (a == "-name" && i + 1 < argc) opt.name = argv[++i];
+        else if (a == "-blocks" && i + 1 < argc) {
+            if (!parse_dec(argv[++i], opt.blocks, err)) return false;
+            opt.blocks_set = true;
+        } else if (a == "-size" && i + 1 < argc) opt.size = argv[++i];
+        else if (a == "-t" && i + 1 < argc) {
+            if (!parse_hex(argv[++i], 0xFF, opt.type, err)) return false;
+            opt.type_set = true;
+        } else if (a == "-a" && i + 1 < argc) {
+            if (!parse_hex(argv[++i], 0xFFFF, opt.aux, err)) return false;
+            opt.aux_set = true;
+        } else if (!a.empty() && a[0] == '-') {
+            err = "unknown option " + a;
+            return false;
+        } else opt.pos.push_back(a);
+    }
+    return true;
+}
+
+void op_error(const std::string &path, const std::string &err)
+{
+    if (err.compare(0, path.size() + 2, path + ": ") == 0) std::cerr << err << "\n";
+    else std::cerr << path << ": " << err << "\n";
+}
+
+int cmd_create(const Opt &opt)
+{
+    bool have_blocks = opt.blocks_set;
+    bool have_size = !opt.size.empty();
+    if (opt.pos.size() != 1 || opt.name.empty() || have_blocks == have_size) {
+        usage();
+        return 2;
+    }
+    const std::string &path = opt.pos[0];
+    if (exists(path)) {
+        std::cerr << path << ": already exists\n";
+        return 1;
+    }
+    uint16_t blocks = 0;
+    std::string err;
+    if (opt.blocks_set) {
+        if (opt.blocks < 7) {
+            std::cerr << path << ": volume too small\n";
+            return 1;
+        }
+        if (opt.blocks > 65535) {
+            std::cerr << path << ": block count out of range\n";
+            return 1;
+        }
+        blocks = static_cast<uint16_t>(opt.blocks);
+    } else if (!qasm::pro_parse_size(opt.size, blocks, err)) {
+        std::cerr << err << "\n";
+        usage();
+        return 2;
+    }
+    qasm::ProVolume vol;
+    if (!qasm::pro_create(vol, opt.name, blocks, err)) {
+        op_error(path, err);
+        return 1;
+    }
+    if (!qasm::pro_save(vol, path, err)) {
+        op_error(path, err);
+        return 1;
+    }
+    std::cout << path << ": created volume " << qasm::pro_volume_name(vol) << ", " << blocks
+              << " blocks\n";
+    return 0;
+}
+
+int cmd_cat(const Opt &opt)
+{
+    if (opt.pos.size() < 1 || opt.pos.size() > 2) {
+        usage();
+        return 2;
+    }
+    qasm::ProVolume vol;
+    std::string err;
+    if (!qasm::pro_load(vol, opt.pos[0], err)) {
+        op_error(opt.pos[0], err);
+        return 1;
+    }
+    std::string path = opt.pos.size() == 2 ? opt.pos[1] : "";
+    std::vector<qasm::ProFileInfo> ents;
+    if (!qasm::pro_catalog(vol, path, ents, err)) {
+        op_error(opt.pos[0], err);
+        return 1;
+    }
+    print_catalog(vol, path, ents);
+    return 0;
+}
+
+int cmd_add(const Opt &opt)
+{
+    if (opt.pos.size() != 3) {
+        usage();
+        return 2;
+    }
+    qasm::ProVolume vol;
+    std::string err;
+    if (!qasm::pro_load(vol, opt.pos[0], err)) {
+        op_error(opt.pos[0], err);
+        return 1;
+    }
+    std::vector<uint8_t> data;
+    if (!read_file(opt.pos[2], data, err)) {
+        std::cerr << err << "\n";
+        return 1;
+    }
+    uint8_t type = opt.type_set ? static_cast<uint8_t>(opt.type) : 0x06;
+    uint16_t aux = opt.aux_set ? static_cast<uint16_t>(opt.aux) : 0;
+    if (!qasm::pro_add(vol, opt.pos[1], data, type, aux, err)) {
+        op_error(opt.pos[0], err);
+        return 1;
+    }
+    if (!qasm::pro_save(vol, opt.pos[0], err)) {
+        op_error(opt.pos[0], err);
+        return 1;
+    }
+    std::cout << opt.pos[0] << ": added " << catalog_title(vol, opt.pos[1]) << ", " << data.size()
+              << " bytes\n";
+    return 0;
+}
+
+int cmd_get(const Opt &opt)
+{
+    if (opt.pos.size() != 3) {
+        usage();
+        return 2;
+    }
+    qasm::ProVolume vol;
+    std::string err;
+    if (!qasm::pro_load(vol, opt.pos[0], err)) {
+        op_error(opt.pos[0], err);
+        return 1;
+    }
+    std::vector<uint8_t> data;
+    if (!qasm::pro_get(vol, opt.pos[1], data, err)) {
+        op_error(opt.pos[0], err);
+        return 1;
+    }
+    if (!write_file(opt.pos[2], data, err)) {
+        std::cerr << err << "\n";
+        return 1;
+    }
+    std::cout << opt.pos[0] << ": " << catalog_title(vol, opt.pos[1]) << " -> " << opt.pos[2]
+              << ", " << data.size() << " bytes\n";
+    return 0;
+}
+
+int cmd_rm(const Opt &opt)
+{
+    if (opt.pos.size() != 2) {
+        usage();
+        return 2;
+    }
+    qasm::ProVolume vol;
+    std::string err;
+    if (!qasm::pro_load(vol, opt.pos[0], err)) {
+        op_error(opt.pos[0], err);
+        return 1;
+    }
+    if (!qasm::pro_remove(vol, opt.pos[1], err)) {
+        op_error(opt.pos[0], err);
+        return 1;
+    }
+    if (!qasm::pro_save(vol, opt.pos[0], err)) {
+        op_error(opt.pos[0], err);
+        return 1;
+    }
+    std::cout << opt.pos[0] << ": removed " << catalog_title(vol, opt.pos[1]) << "\n";
+    return 0;
+}
+
+int cmd_mkdir(const Opt &opt)
+{
+    if (opt.pos.size() != 2) {
+        usage();
+        return 2;
+    }
+    qasm::ProVolume vol;
+    std::string err;
+    if (!qasm::pro_load(vol, opt.pos[0], err)) {
+        op_error(opt.pos[0], err);
+        return 1;
+    }
+    if (!qasm::pro_mkdir(vol, opt.pos[1], err)) {
+        op_error(opt.pos[0], err);
+        return 1;
+    }
+    if (!qasm::pro_save(vol, opt.pos[0], err)) {
+        op_error(opt.pos[0], err);
+        return 1;
+    }
+    std::cout << opt.pos[0] << ": created " << catalog_title(vol, opt.pos[1]) << "\n";
+    return 0;
+}
+
+int cmd_typ(const Opt &opt)
+{
+    if (opt.pos.size() != 2 || (!opt.type_set && !opt.aux_set)) {
+        usage();
+        return 2;
+    }
+    qasm::ProVolume vol;
+    std::string err;
+    if (!qasm::pro_load(vol, opt.pos[0], err)) {
+        op_error(opt.pos[0], err);
+        return 1;
+    }
+    if (!qasm::pro_set_type(vol, opt.pos[1], opt.type_set, static_cast<uint8_t>(opt.type),
+                            opt.aux_set, static_cast<uint16_t>(opt.aux), err)) {
+        op_error(opt.pos[0], err);
+        return 1;
+    }
+    if (!qasm::pro_save(vol, opt.pos[0], err)) {
+        op_error(opt.pos[0], err);
+        return 1;
+    }
+    std::vector<qasm::ProFileInfo> ents;
+    if (!qasm::pro_catalog(vol, opt.pos[1], ents, err) || ents.size() != 1) {
+        std::cout << opt.pos[0] << ": set type\n";
+        return 0;
+    }
+    char buf[64];
+    std::snprintf(buf, sizeof(buf), "type $%02X aux $%04X", ents[0].type, ents[0].aux);
+    std::cout << opt.pos[0] << ": " << catalog_title(vol, opt.pos[1]) << " " << buf << "\n";
+    return 0;
+}
+
+int cmd_boot(const Opt &opt)
+{
+    if (opt.pos.size() != 2) {
+        usage();
+        return 2;
+    }
+    qasm::ProVolume vol;
+    std::string err;
+    if (!qasm::pro_load(vol, opt.pos[0], err)) {
+        op_error(opt.pos[0], err);
+        return 1;
+    }
+    std::vector<uint8_t> boot;
+    if (!read_file(opt.pos[1], boot, err)) {
+        std::cerr << err << "\n";
+        return 1;
+    }
+    if (!qasm::pro_write_boot(vol, boot, err)) {
+        op_error(opt.pos[0], err);
+        return 1;
+    }
+    if (!qasm::pro_save(vol, opt.pos[0], err)) {
+        op_error(opt.pos[0], err);
+        return 1;
+    }
+    std::cout << opt.pos[0] << ": boot blocks, " << boot.size() << " bytes\n";
+    return 0;
+}
+
+} // namespace
+
+int main(int argc, char **argv)
+{
+    for (int i = 1; i < argc; i++) {
+        std::string a = argv[i];
+        if (a == "-h" || a == "--help") {
+            usage();
+            return 0;
+        }
+        if (a == "-V" || a == "--version") {
+            std::cout << qpro_version_string() << "\n";
+            return 0;
+        }
+    }
+    if (argc < 2) {
+        usage();
+        return 2;
+    }
+    std::string cmd = argv[1];
+    Opt opt;
+    std::string err;
+    if (!take_args(argc, argv, 2, opt, err)) {
+        std::cerr << err << "\n";
+        usage();
+        return 2;
+    }
+    if (cmd == "create") return cmd_create(opt);
+    if (cmd == "cat") return cmd_cat(opt);
+    if (cmd == "add") return cmd_add(opt);
+    if (cmd == "get") return cmd_get(opt);
+    if (cmd == "rm") return cmd_rm(opt);
+    if (cmd == "mkdir") return cmd_mkdir(opt);
+    if (cmd == "typ") return cmd_typ(opt);
+    if (cmd == "boot") return cmd_boot(opt);
+    std::cerr << "unknown command " << cmd << "\n";
+    usage();
+    return 2;
+}
diff --git a/src/qpro/qpro.cpp b/src/qpro/qpro.cpp
new file mode 100644
index 0000000..e5ddf7b
--- /dev/null
+++ b/src/qpro/qpro.cpp
@@ -0,0 +1,1247 @@
+/* ProDOS block image. The volume directory is blocks 2-5. The bitmap
+   starts at block 6. A set bit is a free block, and bit 7 of a byte is
+   the lowest-numbered block in that byte. Index blocks store the low
+   byte of each pointer in the first half and the high byte in the second. */
+
+#include "qpro.hpp"
+
+#include <ctime>
+#include <cstring>
+#include <fstream>
+#include <utility>
+
+namespace qasm {
+namespace {
+
+constexpr size_t kBlock = 512;
+constexpr uint32_t kMaxEof = 0xFFFFFFu;
+constexpr uint32_t kSaplingMax = 131072;
+constexpr int kEntry = 0x27;
+constexpr int kSlots = 13;
+constexpr uint8_t kAccess = 0xE3;
+
+constexpr uint8_t kSeed = 0x01;
+constexpr uint8_t kSap = 0x02;
+constexpr uint8_t kTree = 0x03;
+constexpr uint8_t kExtended = 0x05;
+constexpr uint8_t kDir = 0x0D;
+constexpr uint8_t kDirHdr = 0x0E;
+constexpr uint8_t kVolHdr = 0x0F;
+
+uint16_t r16(const uint8_t *p)
+{
+    return static_cast<uint16_t>(p[0] | (p[1] << 8));
+}
+
+uint32_t r24(const uint8_t *p)
+{
+    return static_cast<uint32_t>(p[0] | (p[1] << 8) | (p[2] << 16));
+}
+
+void w16(uint8_t *p, uint16_t v)
+{
+    p[0] = static_cast<uint8_t>(v);
+    p[1] = static_cast<uint8_t>(v >> 8);
+}
+
+void w24(uint8_t *p, uint32_t v)
+{
+    p[0] = static_cast<uint8_t>(v);
+    p[1] = static_cast<uint8_t>(v >> 8);
+    p[2] = static_cast<uint8_t>(v >> 16);
+}
+
+void w32(uint8_t *p, uint32_t v)
+{
+    w16(p, static_cast<uint16_t>(v));
+    w16(p + 2, static_cast<uint16_t>(v >> 16));
+}
+
+uint32_t r32(const uint8_t *p)
+{
+    return static_cast<uint32_t>(r16(p)) | (static_cast<uint32_t>(r16(p + 2)) << 16);
+}
+
+std::string upper_copy(const std::string &s)
+{
+    std::string o = s;
+    for (char &c : o) {
+        if (c >= 'a' && c <= 'z') c = static_cast<char>(c - 'a' + 'A');
+    }
+    return o;
+}
+
+std::string lower_copy(const std::string &s)
+{
+    std::string o = s;
+    for (char &c : o) {
+        if (c >= 'A' && c <= 'Z') c = static_cast<char>(c - 'A' + 'a');
+    }
+    return o;
+}
+
+bool valid_name(const std::string &s)
+{
+    if (s.size() < 1 || s.size() > 15) return false;
+    if (s[0] < 'A' || s[0] > 'Z') return false;
+    for (char c : s) {
+        if (c >= 'A' && c <= 'Z') continue;
+        if (c >= '0' && c <= '9') continue;
+        if (c == '.') continue;
+        return false;
+    }
+    return true;
+}
+
+bool ends_ci(const std::string &path, const char *ext)
+{
+    size_t n = std::strlen(ext);
+    if (path.size() < n) return false;
+    for (size_t i = 0; i < n; i++) {
+        char a = path[path.size() - n + i];
+        if (a >= 'A' && a <= 'Z') a = static_cast<char>(a - 'A' + 'a');
+        if (a != ext[i]) return false;
+    }
+    return true;
+}
+
+void prodos_now(uint16_t &date, uint16_t &tim)
+{
+    std::time_t now = std::time(nullptr);
+    std::tm tm{};
+    localtime_r(&now, &tm);
+    int year = tm.tm_year + 1900;
+    int y;
+    if (year >= 2000 && year <= 2039) y = year - 2000;
+    else if (year >= 1940 && year <= 1999) y = year - 1900;
+    else if (year > 2039) y = 39;
+    else y = 40;
+    int month = tm.tm_mon + 1;
+    int day = tm.tm_mday;
+    date = static_cast<uint16_t>((y << 9) | (month << 5) | day);
+    tim = static_cast<uint16_t>((tm.tm_hour << 8) | tm.tm_min);
+}
+
+bool in_range(const ProVolume &vol, uint16_t b)
+{
+    return static_cast<size_t>(b) < vol.blocks.size() / kBlock;
+}
+
+uint8_t *at(ProVolume &vol, uint16_t b, uint16_t off)
+{
+    return vol.blocks.data() + static_cast<size_t>(b) * kBlock + off;
+}
+
+const uint8_t *at(const ProVolume &vol, uint16_t b, uint16_t off)
+{
+    return vol.blocks.data() + static_cast<size_t>(b) * kBlock + off;
+}
+
+uint8_t *entry_at(ProVolume &vol, uint16_t b, uint8_t index)
+{
+    return at(vol, b, static_cast<uint16_t>(4 + index * kEntry));
+}
+
+const uint8_t *entry_at(const ProVolume &vol, uint16_t b, uint8_t index)
+{
+    return at(vol, b, static_cast<uint16_t>(4 + index * kEntry));
+}
+
+uint16_t total_of(const ProVolume &vol)
+{
+    if (!in_range(vol, 2)) return 0;
+    return r16(at(vol, 2, 0x29));
+}
+
+uint16_t bitmap_ptr(const ProVolume &vol)
+{
+    return r16(at(vol, 2, 0x27));
+}
+
+uint32_t bitmap_span(uint16_t total)
+{
+    return (static_cast<uint32_t>(total) + 4095u) / 4096u;
+}
+
+std::string volume_name_of(const ProVolume &vol)
+{
+    if (!in_range(vol, 2)) return {};
+    const uint8_t *h = at(vol, 2, 4);
+    unsigned n = h[0] & 0x0f;
+    if (n > 15) n = 15;
+    return std::string(reinterpret_cast<const char *>(h + 1), n);
+}
+
+bool ready(const ProVolume &vol, std::string &err)
+{
+    if (vol.blocks.size() < 7 * kBlock || vol.blocks.size() % kBlock != 0) {
+        err = "not a ProDOS volume";
+        return false;
+    }
+    const uint8_t *b = at(vol, 2, 0);
+    if ((b[4] >> 4) != kVolHdr || b[0x23] != kEntry) {
+        err = "not a ProDOS volume";
+        return false;
+    }
+    if (r16(b + 0x29) != vol.blocks.size() / kBlock) {
+        err = "block count mismatch";
+        return false;
+    }
+    return true;
+}
+
+uint8_t bit_mask(uint16_t block)
+{
+    return static_cast<uint8_t>(0x80u >> (block & 7));
+}
+
+bool bit_is_free(const ProVolume &vol, uint16_t block)
+{
+    uint16_t bmp = bitmap_ptr(vol);
+    uint32_t byte_index = block / 8u;
+    uint32_t which = bmp + byte_index / kBlock;
+    uint32_t off = byte_index % kBlock;
+    if (!in_range(vol, static_cast<uint16_t>(which))) return false;
+    return (at(vol, static_cast<uint16_t>(which), static_cast<uint16_t>(off))[0] & bit_mask(block)) != 0;
+}
+
+void set_bit(ProVolume &vol, uint16_t block, bool free)
+{
+    uint16_t total = total_of(vol);
+    uint16_t bmp = bitmap_ptr(vol);
+    uint32_t byte_index = block / 8u;
+    uint32_t which = bmp + byte_index / kBlock;
+    uint32_t off = byte_index % kBlock;
+    if (which >= total || !in_range(vol, static_cast<uint16_t>(which))) return;
+    uint8_t *p = at(vol, static_cast<uint16_t>(which), static_cast<uint16_t>(off));
+    uint8_t mask = bit_mask(block);
+    if (free) *p = static_cast<uint8_t>(*p | mask);
+    else *p = static_cast<uint8_t>(*p & static_cast<uint8_t>(~mask));
+}
+
+bool system_block(const ProVolume &vol, uint16_t block)
+{
+    uint16_t bmp = bitmap_ptr(vol);
+    uint32_t span = bitmap_span(total_of(vol));
+    if (block < bmp) return true;
+    if (block >= bmp && block < bmp + span) return true;
+    return false;
+}
+
+void free_block(ProVolume &vol, uint16_t block)
+{
+    uint16_t total = total_of(vol);
+    if (block == 0 || block >= total) return;
+    if (system_block(vol, block)) return;
+    set_bit(vol, block, true);
+}
+
+bool alloc_block(ProVolume &vol, uint16_t &out, std::string &err)
+{
+    uint16_t total = total_of(vol);
+    for (uint32_t b = 1; b < total; b++) {
+        if (system_block(vol, static_cast<uint16_t>(b))) continue;
+        if (!bit_is_free(vol, static_cast<uint16_t>(b))) continue;
+        out = static_cast<uint16_t>(b);
+        set_bit(vol, out, false);
+        std::memset(at(vol, out, 0), 0, kBlock);
+        return true;
+    }
+    err = "disk full";
+    return false;
+}
+
+void rollback(ProVolume &vol, const std::vector<uint16_t> &blocks)
+{
+    for (uint16_t b : blocks) free_block(vol, b);
+}
+
+uint16_t index_ptr(const uint8_t *index, unsigned i)
+{
+    return static_cast<uint16_t>(index[i] | (index[256 + i] << 8));
+}
+
+void set_index_ptr(uint8_t *index, unsigned i, uint16_t block)
+{
+    index[i] = static_cast<uint8_t>(block);
+    index[256 + i] = static_cast<uint8_t>(block >> 8);
+}
+
+void put_name(uint8_t *e, uint8_t storage, const std::string &name)
+{
+    e[0] = static_cast<uint8_t>((storage << 4) | (name.size() & 0x0f));
+    std::memcpy(e + 1, name.data(), name.size());
+}
+
+bool name_eq(const uint8_t *e, const std::string &name)
+{
+    unsigned n = e[0] & 0x0f;
+    if (n != name.size()) return false;
+    return std::memcmp(e + 1, name.data(), n) == 0;
+}
+
+void fill_info(const uint8_t *e, ProFileInfo &info)
+{
+    info = ProFileInfo{};
+    unsigned n = e[0] & 0x0f;
+    if (n > 15) n = 15;
+    info.storage = static_cast<uint8_t>(e[0] >> 4);
+    info.name.assign(reinterpret_cast<const char *>(e + 1), n);
+    info.type = e[0x10];
+    info.blocks = r16(e + 0x13);
+    info.eof = r24(e + 0x15);
+    info.create_date = r16(e + 0x18);
+    info.create_time = r16(e + 0x1a);
+    info.access = e[0x1e];
+    info.aux = r16(e + 0x1f);
+    info.mod_date = r16(e + 0x21);
+    info.mod_time = r16(e + 0x23);
+    info.directory = info.storage == kDir;
+}
+
+struct Slot {
+    uint16_t block = 0;
+    uint8_t index = 0;
+    uint16_t last = 0;
+};
+
+bool walk_dir(const ProVolume &vol, uint16_t key, std::string &err,
+              const std::string *want, Slot *found, Slot *hole)
+{
+    uint16_t b = key;
+    uint32_t guard = 0;
+    uint16_t total = total_of(vol);
+    while (b != 0) {
+        if (!in_range(vol, b) || ++guard > total) {
+            err = "bad directory";
+            return false;
+        }
+        for (uint8_t i = 0; i < kSlots; i++) {
+            if (b == key && i == 0) continue;
+            const uint8_t *e = entry_at(vol, b, i);
+            uint8_t storage = static_cast<uint8_t>(e[0] >> 4);
+            if (storage == 0) {
+                if (hole && hole->block == 0) {
+                    hole->block = b;
+                    hole->index = i;
+                }
+                continue;
+            }
+            if (want && name_eq(e, *want)) {
+                found->block = b;
+                found->index = i;
+                return true;
+            }
+        }
+        uint16_t next = r16(at(vol, b, 2));
+        if (next == 0 && hole) hole->last = b;
+        b = next;
+    }
+    if (want) {
+        err = "not found";
+        return false;
+    }
+    return true;
+}
+
+bool find_entry(const ProVolume &vol, uint16_t key, const std::string &name, Slot &slot,
+                std::string &err)
+{
+    return walk_dir(vol, key, err, &name, &slot, nullptr);
+}
+
+bool find_hole(const ProVolume &vol, uint16_t key, Slot &hole, bool &need_grow, std::string &err)
+{
+    hole = Slot{};
+    need_grow = false;
+    if (!walk_dir(vol, key, err, nullptr, nullptr, &hole)) return false;
+    if (hole.block != 0) return true;
+    const uint8_t *h = at(vol, key, 4);
+    if ((h[0] >> 4) == kVolHdr) {
+        err = "directory full";
+        return false;
+    }
+    need_grow = true;
+    return true;
+}
+
+void link_dir_block(ProVolume &vol, uint16_t key, uint16_t last, uint16_t nb)
+{
+    w16(at(vol, last, 2), nb);
+    w16(at(vol, nb, 0), last);
+    w16(at(vol, nb, 2), 0);
+    /* Header +$23 is the parent block that holds this directory's entry,
+       and +$25 is that entry's 1-based slot. The volume header uses those
+       bytes for the bitmap, so this runs only for a subdirectory. */
+    uint8_t *h = at(vol, key, 4);
+    uint16_t pblk = r16(h + 0x23);
+    uint8_t pent = h[0x25];
+    if (pent < 1 || pent > kSlots || !in_range(vol, pblk)) return;
+    uint8_t *pe = entry_at(vol, pblk, static_cast<uint8_t>(pent - 1));
+    uint16_t used = static_cast<uint16_t>(r16(pe + 0x13) + 1);
+    w16(pe + 0x13, used);
+    w24(pe + 0x15, static_cast<uint32_t>(used) * kBlock);
+}
+
+void write_times(uint8_t *e, uint16_t date, uint16_t tim, bool mod_too)
+{
+    w16(e + 0x18, date);
+    w16(e + 0x1a, tim);
+    if (mod_too) {
+        w16(e + 0x21, date);
+        w16(e + 0x23, tim);
+    }
+}
+
+void bump_count(ProVolume &vol, uint16_t dir_key, int delta)
+{
+    uint8_t *h = at(vol, dir_key, 4);
+    uint16_t n = r16(h + 0x21);
+    if (delta > 0) n = static_cast<uint16_t>(n + 1);
+    else if (n > 0) n = static_cast<uint16_t>(n - 1);
+    w16(h + 0x21, n);
+}
+
+bool split_path(const ProVolume &vol, const std::string &path, std::vector<std::string> &parts,
+                std::string &err)
+{
+    parts.clear();
+    if (!ready(vol, err)) return false;
+    std::string volname = volume_name_of(vol);
+    bool absolute = !path.empty() && path[0] == '/';
+    std::vector<std::string> raw;
+    std::string cur;
+    auto flush = [&]() {
+        if (cur.empty()) return;
+        raw.push_back(upper_copy(cur));
+        cur.clear();
+    };
+    for (char c : path) {
+        if (c == '/') flush();
+        else cur.push_back(c);
+    }
+    flush();
+    if (absolute) {
+        if (raw.empty()) return true;
+        if (raw[0] != volname) {
+            err = "volume name mismatch";
+            return false;
+        }
+        raw.erase(raw.begin());
+    }
+    for (const auto &n : raw) {
+        if (!valid_name(n)) {
+            err = "invalid name";
+            return false;
+        }
+        parts.push_back(n);
+    }
+    return true;
+}
+
+struct Loc {
+    bool root = false;
+    uint16_t parent_key = 2;
+    Slot slot;
+    uint8_t storage = 0;
+    uint16_t key = 0;
+};
+
+bool lookup(const ProVolume &vol, const std::vector<std::string> &parts, Loc &loc, std::string &err)
+{
+    loc = Loc{};
+    loc.parent_key = 2;
+    loc.key = 2;
+    loc.storage = kVolHdr;
+    if (parts.empty()) {
+        loc.root = true;
+        return true;
+    }
+    uint16_t dir = 2;
+    for (size_t i = 0; i < parts.size(); i++) {
+        Slot slot;
+        if (!find_entry(vol, dir, parts[i], slot, err)) return false;
+        const uint8_t *e = entry_at(vol, slot.block, slot.index);
+        uint8_t storage = static_cast<uint8_t>(e[0] >> 4);
+        uint16_t key = r16(e + 0x11);
+        bool last = i + 1 == parts.size();
+        if (!last) {
+            if (storage != kDir) {
+                err = "not a directory";
+                return false;
+            }
+            dir = key;
+            continue;
+        }
+        loc.root = false;
+        loc.parent_key = dir;
+        loc.slot = slot;
+        loc.storage = storage;
+        loc.key = key;
+        return true;
+    }
+    err = "not found";
+    return false;
+}
+
+bool parent_of(const ProVolume &vol, const std::vector<std::string> &parts, std::string &name,
+               Loc &parent, std::string &err)
+{
+    if (parts.empty()) {
+        err = "missing name";
+        return false;
+    }
+    name = parts.back();
+    std::vector<std::string> up(parts.begin(), parts.end() - 1);
+    if (!lookup(vol, up, parent, err)) return false;
+    if (!parent.root && parent.storage != kDir) {
+        err = "not a directory";
+        return false;
+    }
+    parent.key = parent.root ? 2 : parent.key;
+    return true;
+}
+
+bool dir_is_empty(const ProVolume &vol, uint16_t key, std::string &err)
+{
+    uint16_t b = key;
+    uint32_t guard = 0;
+    uint16_t total = total_of(vol);
+    while (b != 0) {
+        if (!in_range(vol, b) || ++guard > total) {
+            err = "bad directory";
+            return false;
+        }
+        for (uint8_t i = 0; i < kSlots; i++) {
+            if (b == key && i == 0) continue;
+            if ((entry_at(vol, b, i)[0] >> 4) != 0) {
+                err = "directory not empty";
+                return false;
+            }
+        }
+        b = r16(at(vol, b, 2));
+    }
+    return true;
+}
+
+bool remember(const ProVolume &vol, std::vector<uint16_t> &blocks, std::vector<uint8_t> &seen,
+              uint16_t block, std::string &err)
+{
+    if (block == 0) return true;
+    if (!in_range(vol, block)) {
+        err = "bad block";
+        return false;
+    }
+    if (seen[block]) return true;
+    seen[block] = 1;
+    blocks.push_back(block);
+    return true;
+}
+
+bool collect_file(const ProVolume &vol, uint8_t storage, uint16_t key, std::vector<uint16_t> &blocks,
+                  std::string &err)
+{
+    blocks.clear();
+    std::vector<uint8_t> seen(total_of(vol), 0);
+    if (storage == kSeed) return remember(vol, blocks, seen, key, err);
+    if (storage != kSap && storage != kTree) {
+        err = "unsupported storage";
+        return false;
+    }
+    if (key == 0 || !in_range(vol, key)) {
+        err = "bad block";
+        return false;
+    }
+    if (storage == kSap) {
+        const uint8_t *index = at(vol, key, 0);
+        for (unsigned i = 0; i < 256; i++) {
+            if (!remember(vol, blocks, seen, index_ptr(index, i), err)) return false;
+        }
+        return remember(vol, blocks, seen, key, err);
+    }
+    const uint8_t *master = at(vol, key, 0);
+    for (unsigned s = 0; s < 128; s++) {
+        uint16_t ib = index_ptr(master, s);
+        if (ib == 0) continue;
+        if (!in_range(vol, ib)) {
+            err = "bad block";
+            return false;
+        }
+        const uint8_t *index = at(vol, ib, 0);
+        for (unsigned i = 0; i < 256; i++) {
+            if (!remember(vol, blocks, seen, index_ptr(index, i), err)) return false;
+        }
+        if (!remember(vol, blocks, seen, ib, err)) return false;
+    }
+    return remember(vol, blocks, seen, key, err);
+}
+
+bool collect_dir_blocks(const ProVolume &vol, uint16_t key, std::vector<uint16_t> &blocks,
+                        std::string &err)
+{
+    blocks.clear();
+    std::vector<uint8_t> seen(total_of(vol), 0);
+    uint16_t b = key;
+    uint32_t guard = 0;
+    uint16_t total = total_of(vol);
+    while (b != 0) {
+        if (!in_range(vol, b) || ++guard > total) {
+            err = "bad directory";
+            return false;
+        }
+        if (!remember(vol, blocks, seen, b, err)) return false;
+        b = r16(at(vol, b, 2));
+    }
+    return true;
+}
+
+bool read_bytes(const ProVolume &vol, uint8_t storage, uint16_t key, uint32_t eof,
+                std::vector<uint8_t> &data, std::string &err)
+{
+    data.assign(eof, 0);
+    if (eof == 0) return true;
+    if (storage == kSeed) {
+        if (eof > kBlock || key == 0 || !in_range(vol, key)) {
+            err = "bad block";
+            return false;
+        }
+        std::memcpy(data.data(), at(vol, key, 0), eof);
+        return true;
+    }
+    if (storage == kSap && eof > kSaplingMax) {
+        err = "bad block";
+        return false;
+    }
+    if (storage != kSap && storage != kTree) {
+        err = "unsupported storage";
+        return false;
+    }
+    if (key == 0 || !in_range(vol, key)) {
+        err = "bad block";
+        return false;
+    }
+    const uint8_t *master = at(vol, key, 0);
+    uint32_t off = 0;
+    while (off < eof) {
+        uint32_t n = eof - off;
+        if (n > kBlock) n = kBlock;
+        uint32_t index = off / kBlock;
+        uint16_t db = 0;
+        if (storage == kSap) {
+            if (index >= 256) {
+                err = "bad block";
+                return false;
+            }
+            db = index_ptr(master, static_cast<unsigned>(index));
+        } else {
+            unsigned sub = static_cast<unsigned>(index / 256);
+            unsigned ix = static_cast<unsigned>(index % 256);
+            if (sub >= 128) {
+                err = "bad block";
+                return false;
+            }
+            uint16_t ib = index_ptr(master, sub);
+            if (ib == 0) db = 0;
+            else if (!in_range(vol, ib)) {
+                err = "bad block";
+                return false;
+            } else db = index_ptr(at(vol, ib, 0), ix);
+        }
+        if (db == 0) {
+            /* Sparse hole. The bytes are already zero. */
+        } else if (!in_range(vol, db)) {
+            err = "bad block";
+            return false;
+        } else {
+            std::memcpy(data.data() + off, at(vol, db, 0), n);
+        }
+        off += n;
+    }
+    return true;
+}
+
+bool place_data(ProVolume &vol, const std::vector<uint8_t> &data, uint8_t &storage, uint16_t &key,
+                uint16_t &blocks_used, std::string &err)
+{
+    uint32_t eof = static_cast<uint32_t>(data.size());
+    std::vector<uint16_t> got;
+    auto take = [&](uint16_t &dst) -> bool {
+        if (!alloc_block(vol, dst, err)) {
+            rollback(vol, got);
+            return false;
+        }
+        got.push_back(dst);
+        return true;
+    };
+    if (eof <= kBlock) {
+        uint16_t data_b = 0;
+        if (!take(data_b)) return false;
+        if (eof) std::memcpy(at(vol, data_b, 0), data.data(), eof);
+        storage = kSeed;
+        key = data_b;
+        blocks_used = 1;
+        return true;
+    }
+    uint32_t ndata = (eof + static_cast<uint32_t>(kBlock) - 1) / static_cast<uint32_t>(kBlock);
+    if (eof <= kSaplingMax) {
+        uint16_t index_b = 0;
+        if (!take(index_b)) return false;
+        std::vector<uint16_t> data_b(ndata);
+        for (uint32_t i = 0; i < ndata; i++) {
+            if (!take(data_b[i])) return false;
+            set_index_ptr(at(vol, index_b, 0), static_cast<unsigned>(i), data_b[i]);
+        }
+        uint32_t off = 0;
+        for (uint32_t i = 0; i < ndata; i++) {
+            uint32_t n = eof - off;
+            if (n > kBlock) n = kBlock;
+            std::memcpy(at(vol, data_b[i], 0), data.data() + off, n);
+            off += n;
+        }
+        storage = kSap;
+        key = index_b;
+        blocks_used = static_cast<uint16_t>(1 + ndata);
+        return true;
+    }
+    uint32_t nindex = (ndata + 255) / 256;
+    uint16_t master_b = 0;
+    if (!take(master_b)) return false;
+    std::vector<uint16_t> index_b(nindex);
+    for (uint32_t s = 0; s < nindex; s++) {
+        if (!take(index_b[s])) return false;
+        set_index_ptr(at(vol, master_b, 0), static_cast<unsigned>(s), index_b[s]);
+    }
+    std::vector<uint16_t> data_b(ndata);
+    uint32_t off = 0;
+    for (uint32_t i = 0; i < ndata; i++) {
+        if (!take(data_b[i])) return false;
+        unsigned sub = static_cast<unsigned>(i / 256);
+        unsigned ix = static_cast<unsigned>(i % 256);
+        set_index_ptr(at(vol, index_b[sub], 0), ix, data_b[i]);
+        uint32_t n = eof - off;
+        if (n > kBlock) n = kBlock;
+        std::memcpy(at(vol, data_b[i], 0), data.data() + off, n);
+        off += n;
+    }
+    storage = kTree;
+    key = master_b;
+    blocks_used = static_cast<uint16_t>(1 + nindex + ndata);
+    return true;
+}
+
+void write_file_entry(ProVolume &vol, const Slot &slot, const std::string &name, uint8_t storage,
+                      uint8_t type, uint16_t aux, uint16_t key, uint16_t blocks_used, uint32_t eof,
+                      uint16_t parent_key)
+{
+    uint16_t date = 0;
+    uint16_t tim = 0;
+    prodos_now(date, tim);
+    uint8_t *e = entry_at(vol, slot.block, slot.index);
+    std::memset(e, 0, kEntry);
+    put_name(e, storage, name);
+    e[0x10] = type;
+    w16(e + 0x11, key);
+    w16(e + 0x13, blocks_used);
+    w24(e + 0x15, eof);
+    write_times(e, date, tim, true);
+    e[0x1e] = kAccess;
+    w16(e + 0x1f, aux);
+    /* +$25 is the key block of the directory that owns this entry. */
+    w16(e + 0x25, parent_key);
+}
+
+bool list_dir(const ProVolume &vol, uint16_t key, std::vector<ProFileInfo> &out, std::string &err)
+{
+    out.clear();
+    uint16_t b = key;
+    uint32_t guard = 0;
+    uint16_t total = total_of(vol);
+    while (b != 0) {
+        if (!in_range(vol, b) || ++guard > total) {
+            err = "bad directory";
+            return false;
+        }
+        for (uint8_t i = 0; i < kSlots; i++) {
+            if (b == key && i == 0) continue;
+            const uint8_t *e = entry_at(vol, b, i);
+            if ((e[0] >> 4) == 0) continue;
+            ProFileInfo info;
+            fill_info(e, info);
+            out.push_back(std::move(info));
+        }
+        b = r16(at(vol, b, 2));
+    }
+    return true;
+}
+
+bool validate_header(const ProVolume &vol, std::string &err)
+{
+    if (vol.blocks.size() < 7 * kBlock || vol.blocks.size() % kBlock != 0) {
+        err = "not a ProDOS volume";
+        return false;
+    }
+    if (vol.blocks.size() / kBlock > 65535) {
+        err = "not a ProDOS volume";
+        return false;
+    }
+    const uint8_t *b = at(vol, 2, 0);
+    if (r16(b) != 0) {
+        err = "not a ProDOS volume";
+        return false;
+    }
+    unsigned nlen = b[4] & 0x0f;
+    if ((b[4] >> 4) != kVolHdr || nlen < 1 || nlen > 15) {
+        err = "not a ProDOS volume";
+        return false;
+    }
+    if (b[5] < 'A' || b[5] > 'Z') {
+        err = "not a ProDOS volume";
+        return false;
+    }
+    if (b[0x23] != kEntry || b[0x24] != kSlots) {
+        err = "not a ProDOS volume";
+        return false;
+    }
+    uint16_t total = r16(b + 0x29);
+    if (total != vol.blocks.size() / kBlock) {
+        err = "block count mismatch";
+        return false;
+    }
+    uint16_t bmp = r16(b + 0x27);
+    if (bmp == 0 || bmp >= total) {
+        err = "not a ProDOS volume";
+        return false;
+    }
+    return true;
+}
+
+bool read_host(const std::string &path, std::vector<uint8_t> &buf, std::string &err)
+{
+    std::ifstream in(path, std::ios::binary);
+    if (!in) {
+        err = path + ": cannot open";
+        return false;
+    }
+    buf.assign(std::istreambuf_iterator<char>(in), std::istreambuf_iterator<char>());
+    return true;
+}
+
+bool write_host(const std::string &path, const std::vector<uint8_t> &buf, std::string &err)
+{
+    std::string tmp = path + ".qpro-tmp";
+    {
+        std::ofstream out(tmp, std::ios::binary);
+        if (!out) {
+            err = path + ": cannot write";
+            return false;
+        }
+        if (!buf.empty())
+            out.write(reinterpret_cast<const char *>(buf.data()),
+                      static_cast<std::streamsize>(buf.size()));
+        if (!out) {
+            err = path + ": cannot write";
+            std::remove(tmp.c_str());
+            return false;
+        }
+    }
+    if (std::rename(tmp.c_str(), path.c_str()) != 0) {
+        std::remove(tmp.c_str());
+        err = path + ": cannot write";
+        return false;
+    }
+    return true;
+}
+
+bool load_2mg(const std::vector<uint8_t> &file, ProVolume &vol, std::string &err)
+{
+    if (file.size() < 64 || std::memcmp(file.data(), "2IMG", 4) != 0) {
+        err = "not a ProDOS volume";
+        return false;
+    }
+    uint32_t format = r32(file.data() + 0x0c);
+    uint32_t blocks = r32(file.data() + 0x14);
+    uint32_t off = r32(file.data() + 0x18);
+    uint32_t len = r32(file.data() + 0x1c);
+    if (format != 1) {
+        err = "not a ProDOS-order image";
+        return false;
+    }
+    if (blocks == 0 || blocks > 65535 || len != blocks * static_cast<uint32_t>(kBlock)) {
+        err = "block count mismatch";
+        return false;
+    }
+    if (off > file.size() || len > file.size() - off) {
+        err = "truncated image";
+        return false;
+    }
+    vol.blocks.assign(file.data() + off, file.data() + off + len);
+    vol.wrapped_2mg = true;
+    return validate_header(vol, err);
+}
+
+} // namespace
+
+bool pro_parse_size(const std::string &spec, uint16_t &blocks, std::string &err)
+{
+    std::string s = lower_copy(spec);
+    if (s == "140k" || s == "140kb") blocks = 280;
+    else if (s == "800k" || s == "800kb") blocks = 1600;
+    else if (s == "32m" || s == "32mb") blocks = 65535;
+    else {
+        err = "bad size " + spec;
+        return false;
+    }
+    return true;
+}
+
+bool pro_create(ProVolume &vol, const std::string &name_in, uint16_t nblocks, std::string &err)
+{
+    std::string name = upper_copy(name_in);
+    if (!valid_name(name)) {
+        err = "invalid name";
+        return false;
+    }
+    if (nblocks < 7) {
+        err = "volume too small";
+        return false;
+    }
+    uint32_t span = bitmap_span(nblocks);
+    uint32_t used_end = 6 + span;
+    if (used_end > nblocks) {
+        err = "volume too small";
+        return false;
+    }
+    vol.blocks.assign(static_cast<size_t>(nblocks) * kBlock, 0);
+    vol.wrapped_2mg = false;
+
+    uint16_t date = 0;
+    uint16_t tim = 0;
+    prodos_now(date, tim);
+
+    uint8_t *b2 = at(vol, 2, 0);
+    w16(b2 + 0, 0);
+    w16(b2 + 2, 3);
+    uint8_t *h = b2 + 4;
+    put_name(h, kVolHdr, name);
+    w16(h + 0x12, date);
+    w16(h + 0x14, tim);
+    w16(h + 0x18, date);
+    w16(h + 0x1a, tim);
+    h[0x1c] = 0;
+    h[0x1d] = 0;
+    h[0x1e] = kAccess;
+    h[0x1f] = kEntry;
+    h[0x20] = kSlots;
+    w16(h + 0x21, 0);
+    w16(h + 0x23, 6);
+    w16(h + 0x25, nblocks);
+
+    w16(at(vol, 3, 0), 2);
+    w16(at(vol, 3, 2), 4);
+    w16(at(vol, 4, 0), 3);
+    w16(at(vol, 4, 2), 5);
+    w16(at(vol, 5, 0), 4);
+    w16(at(vol, 5, 2), 0);
+
+    /* Boot blocks stay zero: the volume mounts and is not bootable.
+       Blocks before the first free bit are the boot blocks, the four
+       directory blocks, and the bitmap. */
+    for (uint32_t b = used_end; b < nblocks; b++) set_bit(vol, static_cast<uint16_t>(b), true);
+    return true;
+}
+
+bool pro_load(ProVolume &vol, const std::string &path, std::string &err)
+{
+    std::vector<uint8_t> file;
+    if (!read_host(path, file, err)) return false;
+    std::string why;
+    bool ok = false;
+    if (file.size() >= 4 && std::memcmp(file.data(), "2IMG", 4) == 0) ok = load_2mg(file, vol, why);
+    else {
+        vol.blocks = std::move(file);
+        vol.wrapped_2mg = false;
+        ok = validate_header(vol, why);
+    }
+    if (!ok) {
+        err = path + ": " + why;
+        return false;
+    }
+    return true;
+}
+
+bool pro_save(const ProVolume &vol, const std::string &path, std::string &err)
+{
+    if (vol.blocks.empty() || vol.blocks.size() % kBlock != 0) {
+        err = path + ": not a ProDOS volume";
+        return false;
+    }
+    if (ends_ci(path, ".2mg") || ends_ci(path, ".2img")) {
+        uint32_t nblocks = static_cast<uint32_t>(vol.blocks.size() / kBlock);
+        std::vector<uint8_t> out(64 + vol.blocks.size(), 0);
+        std::memcpy(out.data(), "2IMG", 4);
+        std::memcpy(out.data() + 4, "qpro", 4);
+        w16(out.data() + 0x08, 64);
+        w16(out.data() + 0x0a, 1);
+        w32(out.data() + 0x0c, 1);
+        w32(out.data() + 0x14, nblocks);
+        w32(out.data() + 0x18, 64);
+        w32(out.data() + 0x1c, static_cast<uint32_t>(vol.blocks.size()));
+        std::memcpy(out.data() + 64, vol.blocks.data(), vol.blocks.size());
+        return write_host(path, out, err);
+    }
+    return write_host(path, vol.blocks, err);
+}
+
+bool pro_write_boot(ProVolume &vol, const std::vector<uint8_t> &boot, std::string &err)
+{
+    if (!ready(vol, err)) return false;
+    if (boot.size() != 1024) {
+        err = "boot image must be 1024 bytes";
+        return false;
+    }
+    std::memcpy(at(vol, 0, 0), boot.data(), kBlock);
+    std::memcpy(at(vol, 1, 0), boot.data() + kBlock, kBlock);
+    return true;
+}
+
+std::string pro_volume_name(const ProVolume &vol)
+{
+    return volume_name_of(vol);
+}
+
+uint16_t pro_total_blocks(const ProVolume &vol)
+{
+    return total_of(vol);
+}
+
+uint16_t pro_free_blocks(const ProVolume &vol)
+{
+    if (!in_range(vol, 2)) return 0;
+    uint16_t total = total_of(vol);
+    uint16_t n = 0;
+    for (uint32_t b = 0; b < total; b++) {
+        if (bit_is_free(vol, static_cast<uint16_t>(b))) n++;
+    }
+    return n;
+}
+
+bool pro_catalog(const ProVolume &vol, const std::string &path, std::vector<ProFileInfo> &out,
+                 std::string &err)
+{
+    std::vector<std::string> parts;
+    if (!split_path(vol, path, parts, err)) return false;
+    Loc loc;
+    if (!lookup(vol, parts, loc, err)) return false;
+    if (loc.root || loc.storage == kDir) {
+        uint16_t key = loc.root ? 2 : loc.key;
+        return list_dir(vol, key, out, err);
+    }
+    out.clear();
+    ProFileInfo info;
+    fill_info(entry_at(vol, loc.slot.block, loc.slot.index), info);
+    out.push_back(std::move(info));
+    return true;
+}
+
+bool pro_add(ProVolume &vol, const std::string &path, const std::vector<uint8_t> &data,
+             uint8_t type, uint16_t aux, std::string &err)
+{
+    if (data.size() > kMaxEof) {
+        err = "file too large";
+        return false;
+    }
+    std::vector<std::string> parts;
+    if (!split_path(vol, path, parts, err)) return false;
+    std::string name;
+    Loc parent;
+    if (!parent_of(vol, parts, name, parent, err)) return false;
+    uint16_t dir_key = parent.root ? static_cast<uint16_t>(2) : parent.key;
+    Slot existing;
+    if (find_entry(vol, dir_key, name, existing, err)) {
+        err = "already exists";
+        return false;
+    }
+    if (err != "not found") return false;
+    err.clear();
+
+    bool need_grow = false;
+    Slot hole;
+    if (!find_hole(vol, dir_key, hole, need_grow, err)) return false;
+
+    uint8_t storage = 0;
+    uint16_t key = 0;
+    uint16_t blocks_used = 0;
+    std::vector<uint16_t> extra;
+    if (!place_data(vol, data, storage, key, blocks_used, err)) return false;
+    Slot slot = hole;
+    if (need_grow) {
+        uint16_t nb = 0;
+        if (!alloc_block(vol, nb, err)) {
+            std::vector<uint16_t> file_blocks;
+            if (collect_file(vol, storage, key, file_blocks, err)) rollback(vol, file_blocks);
+            err = "disk full";
+            return false;
+        }
+        extra.push_back(nb);
+        if (!in_range(vol, hole.last)) {
+            rollback(vol, extra);
+            std::vector<uint16_t> file_blocks;
+            std::string ignore;
+            if (collect_file(vol, storage, key, file_blocks, ignore)) rollback(vol, file_blocks);
+            err = "bad directory";
+            return false;
+        }
+        link_dir_block(vol, dir_key, hole.last, nb);
+        slot.block = nb;
+        slot.index = 0;
+    }
+    write_file_entry(vol, slot, name, storage, type, aux, key, blocks_used,
+                     static_cast<uint32_t>(data.size()), dir_key);
+    bump_count(vol, dir_key, 1);
+    return true;
+}
+
+bool pro_get(const ProVolume &vol, const std::string &path, std::vector<uint8_t> &data,
+             std::string &err)
+{
+    std::vector<std::string> parts;
+    if (!split_path(vol, path, parts, err)) return false;
+    Loc loc;
+    if (!lookup(vol, parts, loc, err)) return false;
+    if (loc.root || loc.storage == kDir) {
+        err = "is a directory";
+        return false;
+    }
+    if (loc.storage == kExtended) {
+        err = "extended files are not supported";
+        return false;
+    }
+    const uint8_t *e = entry_at(vol, loc.slot.block, loc.slot.index);
+    return read_bytes(vol, loc.storage, loc.key, r24(e + 0x15), data, err);
+}
+
+bool pro_mkdir(ProVolume &vol, const std::string &path, std::string &err)
+{
+    std::vector<std::string> parts;
+    if (!split_path(vol, path, parts, err)) return false;
+    std::string name;
+    Loc parent;
+    if (!parent_of(vol, parts, name, parent, err)) return false;
+    uint16_t dir_key = parent.root ? static_cast<uint16_t>(2) : parent.key;
+    Slot existing;
+    if (find_entry(vol, dir_key, name, existing, err)) {
+        err = "already exists";
+        return false;
+    }
+    if (err != "not found") return false;
+    err.clear();
+
+    bool need_grow = false;
+    Slot hole;
+    if (!find_hole(vol, dir_key, hole, need_grow, err)) return false;
+
+    uint16_t nb = 0;
+    if (!alloc_block(vol, nb, err)) return false;
+    Slot slot = hole;
+    if (need_grow) {
+        if (hole.last == 0 || !in_range(vol, hole.last)) {
+            free_block(vol, nb);
+            err = "bad directory";
+            return false;
+        }
+        uint16_t ext = 0;
+        if (!alloc_block(vol, ext, err)) {
+            free_block(vol, nb);
+            return false;
+        }
+        link_dir_block(vol, dir_key, hole.last, ext);
+        slot.block = ext;
+        slot.index = 0;
+    }
+
+    uint16_t date = 0;
+    uint16_t tim = 0;
+    prodos_now(date, tim);
+
+    uint8_t *sb = at(vol, nb, 0);
+    std::memset(sb, 0, kBlock);
+    w16(sb + 0, 0);
+    w16(sb + 2, 0);
+    uint8_t *h = sb + 4;
+    put_name(h, kDirHdr, name);
+    h[0x10] = 0x76;
+    w16(h + 0x18, date);
+    w16(h + 0x1a, tim);
+    h[0x1c] = 5;
+    h[0x1d] = 0;
+    h[0x1e] = kAccess;
+    h[0x1f] = kEntry;
+    h[0x20] = kSlots;
+    w16(h + 0x21, 0);
+    /* +$23 is the block containing this directory's entry, not the
+       parent directory's key block. +$25 is the 1-based slot. */
+    w16(h + 0x23, slot.block);
+    h[0x25] = static_cast<uint8_t>(slot.index + 1);
+    h[0x26] = kEntry;
+
+    write_file_entry(vol, slot, name, kDir, 0x0f, 0, nb, 1, kBlock, dir_key);
+    bump_count(vol, dir_key, 1);
+    return true;
+}
+
+bool pro_remove(ProVolume &vol, const std::string &path, std::string &err)
+{
+    std::vector<std::string> parts;
+    if (!split_path(vol, path, parts, err)) return false;
+    Loc loc;
+    if (!lookup(vol, parts, loc, err)) return false;
+    if (loc.root) {
+        err = "cannot remove volume";
+        return false;
+    }
+    std::vector<uint16_t> blocks;
+    if (loc.storage == kDir) {
+        if (!dir_is_empty(vol, loc.key, err)) return false;
+        if (!collect_dir_blocks(vol, loc.key, blocks, err)) return false;
+    } else if (loc.storage == kExtended) {
+        err = "extended files are not supported";
+        return false;
+    } else if (loc.storage == kSeed || loc.storage == kSap || loc.storage == kTree) {
+        if (!collect_file(vol, loc.storage, loc.key, blocks, err)) return false;
+    } else {
+        err = "unsupported storage";
+        return false;
+    }
+    rollback(vol, blocks);
+    std::memset(entry_at(vol, loc.slot.block, loc.slot.index), 0, kEntry);
+    bump_count(vol, loc.parent_key, -1);
+    return true;
+}
+
+bool pro_set_type(ProVolume &vol, const std::string &path, bool set_type, uint8_t type,
+                  bool set_aux, uint16_t aux, std::string &err)
+{
+    if (!set_type && !set_aux) {
+        err = "missing type";
+        return false;
+    }
+    std::vector<std::string> parts;
+    if (!split_path(vol, path, parts, err)) return false;
+    Loc loc;
+    if (!lookup(vol, parts, loc, err)) return false;
+    if (loc.root) {
+        err = "missing name";
+        return false;
+    }
+    uint8_t *e = entry_at(vol, loc.slot.block, loc.slot.index);
+    if (set_type) e[0x10] = type;
+    if (set_aux) w16(e + 0x1f, aux);
+    uint16_t date = 0;
+    uint16_t tim = 0;
+    prodos_now(date, tim);
+    w16(e + 0x21, date);
+    w16(e + 0x23, tim);
+    return true;
+}
+
+} // namespace qasm
diff --git a/src/qpro/qpro.hpp b/src/qpro/qpro.hpp
new file mode 100644
index 0000000..b83e73a
--- /dev/null
+++ b/src/qpro/qpro.hpp
@@ -0,0 +1,66 @@
+#pragma once
+
+/* ProDOS volumes. qpro creates an image, copies files in and out of
+   directories, deletes them, and sets the file type and auxiliary type.
+   Block size is 512. A path is DIR/FILE, or /VOLUME/DIR/FILE when the
+   first component is the volume name. Names are stored in upper case.
+   GS/OS extended files (storage type $05) are not read or written. */
+
+#include <cstdint>
+#include <string>
+#include <vector>
+
+namespace qasm {
+
+struct ProFileInfo {
+    std::string name;
+    uint8_t storage = 0;
+    uint8_t type = 0;
+    uint8_t access = 0;
+    uint16_t aux = 0;
+    uint16_t blocks = 0;
+    uint32_t eof = 0;
+    uint16_t create_date = 0;
+    uint16_t create_time = 0;
+    uint16_t mod_date = 0;
+    uint16_t mod_time = 0;
+    bool directory = false;
+};
+
+struct ProVolume {
+    std::vector<uint8_t> blocks;
+    bool wrapped_2mg = false;
+};
+
+/* 140k is 280 blocks, 800k is 1600, 32m is 65535. */
+bool pro_parse_size(const std::string &spec, uint16_t &blocks, std::string &err);
+
+bool pro_create(ProVolume &vol, const std::string &name, uint16_t nblocks, std::string &err);
+bool pro_load(ProVolume &vol, const std::string &path, std::string &err);
+bool pro_save(const ProVolume &vol, const std::string &path, std::string &err);
+
+std::string pro_volume_name(const ProVolume &vol);
+uint16_t pro_total_blocks(const ProVolume &vol);
+uint16_t pro_free_blocks(const ProVolume &vol);
+
+/* An empty path, "/", or "/VOLUME" is the volume directory.
+   A directory lists its entries. A file yields that one entry. */
+bool pro_catalog(const ProVolume &vol, const std::string &path,
+                 std::vector<ProFileInfo> &out, std::string &err);
+
+bool pro_add(ProVolume &vol, const std::string &path, const std::vector<uint8_t> &data,
+             uint8_t type, uint16_t aux, std::string &err);
+bool pro_get(const ProVolume &vol, const std::string &path, std::vector<uint8_t> &data,
+             std::string &err);
+bool pro_mkdir(ProVolume &vol, const std::string &path, std::string &err);
+bool pro_remove(ProVolume &vol, const std::string &path, std::string &err);
+
+/* set_type and set_aux select which fields change. At least one must be set. */
+bool pro_set_type(ProVolume &vol, const std::string &path, bool set_type, uint8_t type,
+                  bool set_aux, uint16_t aux, std::string &err);
+
+/* Write a 1024-byte boot program into blocks 0 and 1. Those blocks are
+   already marked used, so the bitmap does not change. */
+bool pro_write_boot(ProVolume &vol, const std::vector<uint8_t> &boot, std::string &err);
+
+} // namespace qasm
diff --git a/test/fixtures/bad-dynamic.link b/test/fixtures/bad-dynamic.link
new file mode 100644
index 0000000..55b63fa
--- /dev/null
+++ b/test/fixtures/bad-dynamic.link
@@ -0,0 +1,5 @@
+# OMF 1.0 cannot store the dynamic attribute.
+bad.omf: rel-code-merlin.o
+    ver 1
+    seg CODE dynamic
+    +rel-code-merlin.o
diff --git a/test/fixtures/common.inc b/test/fixtures/common.inc
new file mode 100644
index 0000000..3e1a07b
--- /dev/null
+++ b/test/fixtures/common.inc
@@ -0,0 +1,3 @@
+# Shared qlink variables. Paths are relative to the script that includes this.
+bin = $06
+load = $2000
diff --git a/test/fixtures/coverage-apw.s b/test/fixtures/coverage-apw.s
new file mode 100644
index 0000000..fdb30d3
--- /dev/null
+++ b/test/fixtures/coverage-apw.s
@@ -0,0 +1,481 @@
+* Assembler: APW
+*
+* Same program as coverage-merlin.s. The object matches byte for byte.
+* ~loop and ~tail are the local labels. (1+2)*3 is 9. 1+2*3 is 7.
+* ~1 is bitwise NOT.
+
+main     start
+         case   on
+         machine 65816
+         longa  off
+         longi  off
+         absaddr off
+         msb    off
+         org    $8000
+
+zp       equ    $10
+word     equ    $1234
+mask     equ    $00ff
+longv    equ    $012345
+one      equ    1
+srcb     equ    $01
+dstb     equ    $02
+bell     gequ   $fbdd
+step     equ    2
+         extern outside
+
+glob     entry
+         nop
+~loop    anop
+         nop
+         beq    ~loop
+~tail    anop
+         nop
+         bra    ~tail
+
+         dc     i1'(1+2)*3,1+2*3,20/3,20/3*3'
+         dc     i1'1=1,1<>2,1<2,2>1'
+         dc     i1'word&mask,1|2,word^mask,~1'
+         dc     i1'$2a,%00101010'
+         dc     c'A'
+         dc     i1'"A"'
+         dc     i1'<word,>word,^longv'
+         dc     i1'<glob,>glob,^glob,step'
+         dc     i2'word,glob,glob-glob,*-glob,~loop,~tail,bell,outside+word'
+         dc     i2'glob+~loop-~tail'
+         dc     i1'>word,<word'
+         dc     i3'longv'
+         dc     i4'longv,glob'
+
+         lda    zp+1
+         lda    zp+1,x
+         lda    (zp+1),y
+         lda    [zp+1],y
+         lda    (zp+1,x)
+         lda    zp+1,s
+         lda    (zp+1,s),y
+         lda    >longv+1,x
+         lda    |glob+1
+         lda    >glob
+         lda    <zp
+         lda    ~loop
+         lda    ~tail
+         lda    |outside
+         lda    #<word
+         lda    #>word
+         lda    #^longv
+         lda    glob+~tail-~loop
+         jsr    glob
+         jsr    outside
+         jmp    ~loop
+         brl    ~loop
+         brl    ~tail
+
+         asl    a
+         lda    word
+         tsb    word
+         ldaz   zp
+         ldal   longv
+         stal   glob
+         adcl   longv
+         sbcl   longv
+         andl   longv
+         oral   longv
+         eorl   longv
+         cmpl   longv
+         jmpl   longv
+
+nextg    anop
+         nop
+* Every opcode and addressing mode.
+* adc
+         adc    #zp  ; immediate
+         adc    zp  ; direct
+         adc    zp,x  ; direct,X
+         adc    (zp,x)  ; (direct,X)
+         adc    (zp),y  ; (direct),Y
+         adc    word  ; absolute
+         adc    word,x  ; absolute,X
+         adc    word,y  ; absolute,Y
+         adc    (zp)  ; (direct)
+         adc    >longv  ; long
+         adc    >longv,x  ; long,X
+         adc    zp,s  ; stack
+         adc    (zp,s),y  ; (stack),Y
+         adc    [zp]  ; [direct]
+         adc    [zp],y  ; [direct],Y
+* and
+         and    #zp  ; immediate
+         and    zp  ; direct
+         and    zp,x  ; direct,X
+         and    (zp,x)  ; (direct,X)
+         and    (zp),y  ; (direct),Y
+         and    word  ; absolute
+         and    word,x  ; absolute,X
+         and    word,y  ; absolute,Y
+         and    (zp)  ; (direct)
+         and    >longv  ; long
+         and    >longv,x  ; long,X
+         and    zp,s  ; stack
+         and    (zp,s),y  ; (stack),Y
+         and    [zp]  ; [direct]
+         and    [zp],y  ; [direct],Y
+* asl
+         asl  ; implied
+         asl    zp  ; direct
+         asl    zp,x  ; direct,X
+         asl    word  ; absolute
+         asl    word,x  ; absolute,X
+* bit
+         bit    zp  ; direct
+         bit    word  ; absolute
+         bit    zp,x  ; direct,X
+         bit    word,x  ; absolute,X
+         bit    #zp  ; immediate
+* cmp
+         cmp    #zp  ; immediate
+         cmp    zp  ; direct
+         cmp    zp,x  ; direct,X
+         cmp    (zp,x)  ; (direct,X)
+         cmp    (zp),y  ; (direct),Y
+         cmp    word  ; absolute
+         cmp    word,x  ; absolute,X
+         cmp    word,y  ; absolute,Y
+         cmp    (zp)  ; (direct)
+         cmp    >longv  ; long
+         cmp    >longv,x  ; long,X
+         cmp    zp,s  ; stack
+         cmp    (zp,s),y  ; (stack),Y
+         cmp    [zp]  ; [direct]
+         cmp    [zp],y  ; [direct],Y
+* cpx
+         cpx    #zp  ; immediate
+         cpx    zp  ; direct
+         cpx    word  ; absolute
+* cpy
+         cpy    #zp  ; immediate
+         cpy    zp  ; direct
+         cpy    word  ; absolute
+* dec
+         dec  ; implied
+         dec    zp  ; direct
+         dec    zp,x  ; direct,X
+         dec    word  ; absolute
+         dec    word,x  ; absolute,X
+* eor
+         eor    #zp  ; immediate
+         eor    zp  ; direct
+         eor    zp,x  ; direct,X
+         eor    (zp,x)  ; (direct,X)
+         eor    (zp),y  ; (direct),Y
+         eor    word  ; absolute
+         eor    word,x  ; absolute,X
+         eor    word,y  ; absolute,Y
+         eor    (zp)  ; (direct)
+         eor    >longv  ; long
+         eor    >longv,x  ; long,X
+         eor    zp,s  ; stack
+         eor    (zp,s),y  ; (stack),Y
+         eor    [zp]  ; [direct]
+         eor    [zp],y  ; [direct],Y
+* inc
+         inc  ; implied
+         inc    zp  ; direct
+         inc    zp,x  ; direct,X
+         inc    word  ; absolute
+         inc    word,x  ; absolute,X
+* jmp
+         jmp    word  ; absolute
+         jmp    (word)  ; (absolute)
+         jmp    (word,x)  ; (absolute,X)
+         jmp    >longv  ; long
+         jmp    [word]  ; [absolute]
+* jml
+         jml    >longv  ; long
+         jml    [word]  ; [absolute]
+* jsr
+         jsr    word  ; absolute
+         jsr    (word,x)  ; (absolute,X)
+         jsr    >longv  ; long
+* jsl
+         jsl    >longv  ; long
+* lda
+         lda    #zp  ; immediate
+         lda    zp  ; direct
+         lda    zp,x  ; direct,X
+         lda    (zp,x)  ; (direct,X)
+         lda    (zp),y  ; (direct),Y
+         lda    word  ; absolute
+         lda    word,x  ; absolute,X
+         lda    word,y  ; absolute,Y
+         lda    (zp)  ; (direct)
+         lda    >longv  ; long
+         lda    >longv,x  ; long,X
+         lda    zp,s  ; stack
+         lda    (zp,s),y  ; (stack),Y
+         lda    [zp]  ; [direct]
+         lda    [zp],y  ; [direct],Y
+* ldx
+         ldx    #zp  ; immediate
+         ldx    zp  ; direct
+         ldx    zp,y  ; direct,Y
+         ldx    word  ; absolute
+         ldx    word,y  ; absolute,Y
+* ldy
+         ldy    #zp  ; immediate
+         ldy    zp  ; direct
+         ldy    zp,x  ; direct,X
+         ldy    word  ; absolute
+         ldy    word,x  ; absolute,X
+* lsr
+         lsr  ; implied
+         lsr    zp  ; direct
+         lsr    zp,x  ; direct,X
+         lsr    word  ; absolute
+         lsr    word,x  ; absolute,X
+* ora
+         ora    #zp  ; immediate
+         ora    zp  ; direct
+         ora    zp,x  ; direct,X
+         ora    (zp,x)  ; (direct,X)
+         ora    (zp),y  ; (direct),Y
+         ora    word  ; absolute
+         ora    word,x  ; absolute,X
+         ora    word,y  ; absolute,Y
+         ora    (zp)  ; (direct)
+         ora    >longv  ; long
+         ora    >longv,x  ; long,X
+         ora    zp,s  ; stack
+         ora    (zp,s),y  ; (stack),Y
+         ora    [zp]  ; [direct]
+         ora    [zp],y  ; [direct],Y
+* rol
+         rol  ; implied
+         rol    zp  ; direct
+         rol    zp,x  ; direct,X
+         rol    word  ; absolute
+         rol    word,x  ; absolute,X
+* ror
+         ror  ; implied
+         ror    zp  ; direct
+         ror    zp,x  ; direct,X
+         ror    word  ; absolute
+         ror    word,x  ; absolute,X
+* sbc
+         sbc    #zp  ; immediate
+         sbc    zp  ; direct
+         sbc    zp,x  ; direct,X
+         sbc    (zp,x)  ; (direct,X)
+         sbc    (zp),y  ; (direct),Y
+         sbc    word  ; absolute
+         sbc    word,x  ; absolute,X
+         sbc    word,y  ; absolute,Y
+         sbc    (zp)  ; (direct)
+         sbc    >longv  ; long
+         sbc    >longv,x  ; long,X
+         sbc    zp,s  ; stack
+         sbc    (zp,s),y  ; (stack),Y
+         sbc    [zp]  ; [direct]
+         sbc    [zp],y  ; [direct],Y
+* sta
+         sta    zp  ; direct
+         sta    zp,x  ; direct,X
+         sta    (zp,x)  ; (direct,X)
+         sta    (zp),y  ; (direct),Y
+         sta    word  ; absolute
+         sta    word,x  ; absolute,X
+         sta    word,y  ; absolute,Y
+         sta    (zp)  ; (direct)
+         sta    >longv  ; long
+         sta    >longv,x  ; long,X
+         sta    zp,s  ; stack
+         sta    (zp,s),y  ; (stack),Y
+         sta    [zp]  ; [direct]
+         sta    [zp],y  ; [direct],Y
+* stx
+         stx    zp  ; direct
+         stx    zp,y  ; direct,Y
+         stx    word  ; absolute
+* sty
+         sty    zp  ; direct
+         sty    zp,x  ; direct,X
+         sty    word  ; absolute
+* stz
+         stz    zp  ; direct
+         stz    zp,x  ; direct,X
+         stz    word  ; absolute
+         stz    word,x  ; absolute,X
+* trb
+         trb    zp  ; direct
+         trb    word  ; absolute
+* tsb
+         tsb    zp  ; direct
+         tsb    word  ; absolute
+* bpl
+         bpl    *+2  ; relative
+* bmi
+         bmi    *+2  ; relative
+* bvc
+         bvc    *+2  ; relative
+* bvs
+         bvs    *+2  ; relative
+* bcc
+         bcc    *+2  ; relative
+* bcs
+         bcs    *+2  ; relative
+* bne
+         bne    *+2  ; relative
+* beq
+         beq    *+2  ; relative
+* blt
+         blt    *+2  ; relative
+* bge
+         bge    *+2  ; relative
+* bra
+         bra    *+2  ; relative
+* brl
+         brl    *+3  ; relative long
+* brk
+         brk  ; implied
+         brk    zp  ; immediate byte
+* rti
+         rti  ; implied
+* rts
+         rts  ; implied
+* php
+         php  ; implied
+* clc
+         clc  ; implied
+* plp
+         plp  ; implied
+* sec
+         sec  ; implied
+* pha
+         pha  ; implied
+* cli
+         cli  ; implied
+* pla
+         pla  ; implied
+* sei
+         sei  ; implied
+* dey
+         dey  ; implied
+* tya
+         tya  ; implied
+* tay
+         tay  ; implied
+* clv
+         clv  ; implied
+* iny
+         iny  ; implied
+* cld
+         cld  ; implied
+* inx
+         inx  ; implied
+* sed
+         sed  ; implied
+* txa
+         txa  ; implied
+* txs
+         txs  ; implied
+* tax
+         tax  ; implied
+* tsx
+         tsx  ; implied
+* dex
+         dex  ; implied
+* nop
+         nop  ; implied
+* phy
+         phy  ; implied
+* ply
+         ply  ; implied
+* phx
+         phx  ; implied
+* plx
+         plx  ; implied
+* phd
+         phd  ; implied
+* pld
+         pld  ; implied
+* phk
+         phk  ; implied
+* rtl
+         rtl  ; implied
+* phb
+         phb  ; implied
+* plb
+         plb  ; implied
+* wai
+         wai  ; implied
+* stp
+         stp  ; implied
+* xba
+         xba  ; implied
+* swa
+         swa  ; implied
+* xce
+         xce  ; implied
+* tcs
+         tcs  ; implied
+* tas
+         tas  ; implied
+* tsc
+         tsc  ; implied
+* tsa
+         tsa  ; implied
+* tcd
+         tcd  ; implied
+* tad
+         tad  ; implied
+* tdc
+         tdc  ; implied
+* tda
+         tda  ; implied
+* txy
+         txy  ; implied
+* tyx
+         tyx  ; implied
+* cop
+         cop    #$30  ; immediate byte
+* wdm
+         wdm    zp  ; immediate byte
+         wdm  ; implied
+* pea
+         pea    #word  ; immediate word
+         pea    word  ; absolute
+* pei
+         pei    (zp)  ; (direct)
+         pei    zp  ; direct
+* per
+         per    *+3  ; relative long
+* mvn
+         mvn    srcb,dstb  ; block move
+* mvp
+         mvp    srcb,dstb  ; block move
+* rep
+         rep    #zp  ; immediate
+         rep    #$30  ; immediate byte
+* sep
+         sep    #zp  ; immediate
+         sep    #$30  ; immediate byte
+
+* Immediate operands with M and X set to 16 bits
+         longa  on
+         longi  on
+         adc    #word  ; immediate, 16-bit register
+         and    #word  ; immediate, 16-bit register
+         bit    #word  ; immediate, 16-bit register
+         cmp    #word  ; immediate, 16-bit register
+         cpx    #word  ; immediate, 16-bit register
+         cpy    #word  ; immediate, 16-bit register
+         eor    #word  ; immediate, 16-bit register
+         lda    #word  ; immediate, 16-bit register
+         ldx    #word  ; immediate, 16-bit register
+         ldy    #word  ; immediate, 16-bit register
+         ora    #word  ; immediate, 16-bit register
+         sbc    #word  ; immediate, 16-bit register
+         longa  off
+         longi  off
+
+         end
diff --git a/test/fixtures/disk.link b/test/fixtures/disk.link
new file mode 100644
index 0000000..55b3ddf
--- /dev/null
+++ b/test/fixtures/disk.link
@@ -0,0 +1,69 @@
+# Absolute Apple II image at bank 00 / $2000, plus relocatable and library links.
+# qlink reads this file. It is not assembled and it is not a makefile.
+
+include common.inc
+
+apple.omf: rel-code-merlin.o rel-data-merlin.o
+    ver 1
+    typ $(bin),$(load)
+    org $2000
+    entry CODE
+    +rel-code-merlin.o
+    +rel-data-merlin.o
+
+apple-orca.omf: rel-code-orca.o rel-data-orca.o
+    ver 1
+    typ $(bin),$(load)
+    org $2000
+    entry code
+    +rel-code-orca.o(code)
+    +rel-data-orca.o(data)
+
+apple-ca65.omf: rel-code-ca65.o rel-data-ca65.o
+    ver 1
+    typ $(bin),$(load)
+    org $2000
+    entry CODE
+    +rel-code-ca65.o(CODE)
+    +rel-data-ca65.o(DATA)
+
+apple-apw.omf: rel-code-apw.o rel-data-apw.o
+    ver 1
+    typ $(bin),$(load)
+    org $2000
+    entry code
+    +rel-code-apw.o(code)
+    +rel-data-apw.o(data)
+
+prog.omf: rel-code-merlin.o rel-data-merlin.o
+    ver 2
+    entry CODE
+    seg CODE kind=$0000
+    +rel-code-merlin.o
+    seg DATA kind=$0001
+    +rel-data-merlin.o
+
+runtime.lib: rel-data-merlin.o
+    ver 2
+    typ $B2,$0000
+    +rel-data-merlin.o
+
+proglib.omf: rel-code-merlin.o runtime.lib
+    ver 2
+    seg CODE kind=$0000
+    +rel-code-merlin.o
+    lib runtime.lib
+
+gap.omf: rel-code-merlin.o rel-data-merlin.o
+    ver 1
+    org $2000
+    seg CODE
+    +rel-code-merlin.o
+    seg DATA
+    ds $20
+    +rel-data-merlin.o
+
+merged.omf: rel-code-merlin.o rel-data-merlin.o
+    ver 2
+    +rel-code-merlin.o
+    +rel-data-merlin.o
diff --git a/test/fixtures/rel-code-apw.s b/test/fixtures/rel-code-apw.s
new file mode 100644
index 0000000..6266438
--- /dev/null
+++ b/test/fixtures/rel-code-apw.s
@@ -0,0 +1,18 @@
+* Relocatable CODE section. The DATA section is rel-data-apw.s.
+* code calls hook and addresses value. Both are resolved by the linker.
+
+* Assembler: APW
+         case   on
+         machine 65816
+         longa  off
+         longi  off
+         absaddr off
+         msb    off
+         org    0
+code     start
+         extern hook,value
+         jsr    hook
+         lda    |value
+         dc     i2'value'
+         rtl
+         end
diff --git a/test/fixtures/rel-code-ca65.s b/test/fixtures/rel-code-ca65.s
new file mode 100644
index 0000000..1fb25a3
--- /dev/null
+++ b/test/fixtures/rel-code-ca65.s
@@ -0,0 +1,15 @@
+; Relocatable CODE section. The DATA section is rel-data-ca65.s.
+; CODE calls HOOK and addresses VALUE. Both are resolved by the linker.
+
+.p816
+.a8
+.i8
+.org     0
+.segment "CODE"
+.export  CODE
+.import  HOOK, VALUE
+CODE:
+         jsr    HOOK
+         lda    a:VALUE
+         .word  VALUE
+         rtl
diff --git a/test/fixtures/rel-code-lisa.s b/test/fixtures/rel-code-lisa.s
new file mode 100644
index 0000000..f449a92
--- /dev/null
+++ b/test/fixtures/rel-code-lisa.s
@@ -0,0 +1,14 @@
+* Relocatable CODE section. The DATA section is rel-data-lisa.s.
+* LISA has no EXT. HOOK and VALUE stand in as the other section.
+* CODE calls HOOK and addresses VALUE.
+
+         XC
+         MX     %11
+.OR    0
+HOOK     .EQ    0
+VALUE    .EQ    0
+CODE
+         JSR    HOOK
+         LDA    |VALUE
+         .DA    VALUE
+         RTL
diff --git a/test/fixtures/rel-code-merlin.s b/test/fixtures/rel-code-merlin.s
new file mode 100644
index 0000000..af75b00
--- /dev/null
+++ b/test/fixtures/rel-code-merlin.s
@@ -0,0 +1,12 @@
+* Relocatable CODE section. The DATA section is rel-data-merlin.s.
+* CODE calls HOOK and addresses VALUE. Both are resolved by the linker.
+
+         XC
+         MX     %11
+         REL
+CODE     ENT
+         EXT    HOOK,VALUE
+         JSR    HOOK
+         LDA    |VALUE
+         DA     VALUE
+         RTL
diff --git a/test/fixtures/rel-code-merlin32.s b/test/fixtures/rel-code-merlin32.s
new file mode 100644
index 0000000..fdaf5dc
--- /dev/null
+++ b/test/fixtures/rel-code-merlin32.s
@@ -0,0 +1,13 @@
+* Relocatable CODE section. The DATA section is rel-data-merlin32.s.
+* CODE calls HOOK and addresses VALUE. Both are resolved by the linker.
+
+PAD      GEQ    0
+         XC
+         MX     %11
+         REL
+CODE     ENT
+         EXT    HOOK,VALUE
+         JSR    HOOK
+         LDA    |VALUE
+         DA     VALUE
+         RTL
diff --git a/test/fixtures/rel-code-orca.s b/test/fixtures/rel-code-orca.s
new file mode 100644
index 0000000..6f93ace
--- /dev/null
+++ b/test/fixtures/rel-code-orca.s
@@ -0,0 +1,15 @@
+* Relocatable CODE section. The DATA section is rel-data-orca.s.
+* code calls hook and addresses value. Both are resolved by the linker.
+
+         case   on
+         machine 65816
+         longa  off
+         longi  off
+         org    0
+code     start
+         extern hook,value
+         jsr    hook
+         lda    |value
+         dc     i2'value'
+         rtl
+         end
diff --git a/test/fixtures/rel-data-apw.s b/test/fixtures/rel-data-apw.s
new file mode 100644
index 0000000..fb72e1b
--- /dev/null
+++ b/test/fixtures/rel-data-apw.s
@@ -0,0 +1,20 @@
+* Relocatable DATA section. The CODE section is rel-code-apw.s.
+* hook calls code and addresses it. value is the byte code loads.
+
+* Assembler: APW
+         case   on
+         machine 65816
+         longa  off
+         longi  off
+         absaddr off
+         msb    off
+         org    0
+data     start
+         extern code
+value    dc     i1'$42'
+hook     entry
+         jsr    code
+         lda    |code
+         dc     i2'code'
+         rts
+         end
diff --git a/test/fixtures/rel-data-ca65.s b/test/fixtures/rel-data-ca65.s
new file mode 100644
index 0000000..28291a5
--- /dev/null
+++ b/test/fixtures/rel-data-ca65.s
@@ -0,0 +1,18 @@
+; Relocatable DATA section. The CODE section is rel-code-ca65.s.
+; HOOK calls CODE and addresses it. VALUE is the byte CODE loads.
+
+.p816
+.a8
+.i8
+.org     0
+.segment "DATA"
+.import  CODE
+.export  VALUE
+.export  HOOK
+VALUE:
+         .byte  $42
+HOOK:
+         jsr    CODE
+         lda    a:CODE
+         .word  CODE
+         rts
diff --git a/test/fixtures/rel-data-lisa.s b/test/fixtures/rel-data-lisa.s
new file mode 100644
index 0000000..9fec907
--- /dev/null
+++ b/test/fixtures/rel-data-lisa.s
@@ -0,0 +1,15 @@
+* Relocatable DATA section. The CODE section is rel-code-lisa.s.
+* LISA has no EXT. CODE stands in as the other section.
+* HOOK calls CODE and addresses it. VALUE is the byte CODE loads.
+
+         XC
+         MX     %11
+.OR    0
+CODE     .EQ    0
+VALUE
+         .DB    $42
+HOOK
+         JSR    CODE
+         LDA    |CODE
+         .DA    CODE
+         RTS
diff --git a/test/fixtures/rel-data-merlin.s b/test/fixtures/rel-data-merlin.s
new file mode 100644
index 0000000..3305eba
--- /dev/null
+++ b/test/fixtures/rel-data-merlin.s
@@ -0,0 +1,13 @@
+* Relocatable DATA section. The CODE section is rel-code-merlin.s.
+* HOOK calls CODE and addresses it. VALUE is the byte CODE loads.
+
+         XC
+         MX     %11
+         REL
+         EXT    CODE
+VALUE    DFB    $42
+HOOK     ENT
+         JSR    CODE
+         LDA    |CODE
+         DA     CODE
+         RTS
diff --git a/test/fixtures/rel-data-merlin32.s b/test/fixtures/rel-data-merlin32.s
new file mode 100644
index 0000000..4602f2d
--- /dev/null
+++ b/test/fixtures/rel-data-merlin32.s
@@ -0,0 +1,14 @@
+* Relocatable DATA section. The CODE section is rel-code-merlin32.s.
+* HOOK calls CODE and addresses it. VALUE is the byte CODE loads.
+
+PAD      GEQ    0
+         XC
+         MX     %11
+         REL
+         EXT    CODE
+VALUE    DFB    $42
+HOOK     ENT
+         JSR    CODE
+         LDA    |CODE
+         DA     CODE
+         RTS
diff --git a/test/fixtures/rel-data-orca.s b/test/fixtures/rel-data-orca.s
new file mode 100644
index 0000000..40b40d0
--- /dev/null
+++ b/test/fixtures/rel-data-orca.s
@@ -0,0 +1,17 @@
+* Relocatable DATA section. The CODE section is rel-code-orca.s.
+* hook calls code and addresses it. value is the byte code loads.
+
+         case   on
+         machine 65816
+         longa  off
+         longi  off
+         org    0
+data     start
+         extern code
+value    dc     i1'$42'
+hook     entry
+         jsr    code
+         lda    |code
+         dc     i2'code'
+         rts
+         end
diff --git a/test/test_makebin.cpp b/test/test_makebin.cpp
new file mode 100644
index 0000000..4b2b0cc
--- /dev/null
+++ b/test/test_makebin.cpp
@@ -0,0 +1,199 @@
+/* Flatten OMF load files the way MakeBinIIGS does. */
+
+#include "link.hpp"
+#include "makebin.hpp"
+#include "omf.hpp"
+
+#include <cstdint>
+#include <cstdlib>
+#include <fstream>
+#include <iostream>
+#include <sstream>
+#include <string>
+#include <vector>
+
+namespace {
+
+int fails = 0;
+
+void fail(const std::string &msg)
+{
+    std::cerr << "FAIL " << msg << "\n";
+    fails++;
+}
+
+std::vector<uint8_t> bytes_of(const uint8_t *p, size_t n)
+{
+    return std::vector<uint8_t>(p, p + n);
+}
+
+void expect_bytes(const std::string &what, const std::vector<uint8_t> &got,
+                  const std::vector<uint8_t> &want)
+{
+    if (got == want) return;
+    std::ostringstream o;
+    o << what << " len " << got.size() << " want " << want.size();
+    fail(o.str());
+}
+
+qasm::OmfSeg seg(const std::string &name, uint32_t org, const std::vector<uint8_t> &image)
+{
+    qasm::OmfSeg s;
+    s.name = name;
+    s.org = org;
+    s.image = image;
+    return s;
+}
+
+void expect_ok(const char *what, const qasm::OmfFile &file, bool org_set, uint32_t org,
+               uint32_t want_org, const std::vector<uint8_t> &want)
+{
+    qasm::BinImage image;
+    std::string err;
+    if (!qasm::make_bin(file, org_set, org, image, err)) {
+        fail(std::string(what) + ": " + err);
+        return;
+    }
+    if (image.org != want_org) {
+        std::ostringstream o;
+        o << what << " org $" << std::hex << image.org << " want $" << want_org;
+        fail(o.str());
+    }
+    expect_bytes(what, image.bytes, want);
+}
+
+void expect_err(const char *what, const qasm::OmfFile &file, bool org_set, uint32_t org,
+                const std::string &piece)
+{
+    qasm::BinImage image;
+    std::string err;
+    if (qasm::make_bin(file, org_set, org, image, err)) {
+        fail(std::string(what) + " was accepted");
+        return;
+    }
+    if (err.find(piece) == std::string::npos) fail(std::string(what) + ": " + err);
+}
+
+const qasm::LinkProduct *find_prod(const qasm::LinkOutput &o, const std::string &suf)
+{
+    for (const auto &p : o.products)
+        if (p.path.size() >= suf.size() &&
+            p.path.compare(p.path.size() - suf.size(), suf.size(), suf) == 0)
+            return &p;
+    return nullptr;
+}
+
+} // namespace
+
+int main()
+{
+    uint32_t addr = 0;
+    std::string err;
+    if (!qasm::parse_address("$2000", addr, err) || addr != 0x2000) fail("parse $2000");
+    if (!qasm::parse_address("0x2000", addr, err) || addr != 0x2000) fail("parse 0x2000");
+    if (!qasm::parse_address("9A00", addr, err) || addr != 0x9A00) fail("parse 9A00");
+    if (qasm::parse_address("$", addr, err)) fail("empty $ was accepted");
+    if (qasm::parse_address("12G", addr, err)) fail("bad digit was accepted");
+
+    const uint8_t apple[] = {0x20, 0x0A, 0x20, 0xAD, 0x09, 0x20, 0x09, 0x20, 0x6B,
+                             0x42, 0x20, 0x00, 0x20, 0xAD, 0x00, 0x20, 0x00, 0x20, 0x60};
+    qasm::OmfFile one;
+    one.segs.push_back(seg("CODE", 0x2000, bytes_of(apple, sizeof(apple))));
+    expect_ok("one segment", one, false, 0, 0x2000, bytes_of(apple, sizeof(apple)));
+    expect_ok("explicit org", one, true, 0x2000, 0x2000, bytes_of(apple, sizeof(apple)));
+
+    std::vector<uint8_t> padded(16, 0);
+    padded.insert(padded.end(), apple, apple + sizeof(apple));
+    expect_ok("lower org", one, true, 0x1FF0, 0x1FF0, padded);
+    expect_err("org inside", one, true, 0x2001, "before org");
+
+    qasm::OmfFile gap;
+    gap.segs.push_back(seg("CODE", 0x2000, {0xEA, 0xEA}));
+    gap.segs.push_back(seg("DATA", 0x2004, {0x60}));
+    expect_ok("gap", gap, false, 0, 0x2000, {0xEA, 0xEA, 0x00, 0x00, 0x60});
+
+    qasm::OmfFile over = gap;
+    over.segs[1].org = 0x2001;
+    expect_err("overlap", over, false, 0, "overlaps");
+
+    qasm::OmfFile obj = one;
+    obj.object = true;
+    expect_err("object", obj, false, 0, "object");
+
+    qasm::OmfFile rel = one;
+    rel.segs[0].relocs.push_back({});
+    expect_err("reloc", rel, false, 0, "relocations");
+
+    qasm::OmfFile empty;
+    expect_err("no segs", empty, false, 0, "no segments");
+
+    std::ostringstream log;
+    qasm::LinkOutput linked = qasm::link_script("test/fixtures/disk.link", log);
+    if (!linked.ok()) {
+        for (const auto &e : linked.errors) fail(e);
+    } else {
+        const qasm::LinkProduct *apple_omf = find_prod(linked, "apple.omf");
+        if (!apple_omf) fail("missing apple.omf");
+        else
+            expect_ok("apple.omf", apple_omf->file, true, 0x2000, 0x2000,
+                      bytes_of(apple, sizeof(apple)));
+
+        const qasm::LinkProduct *gap_omf = find_prod(linked, "gap.omf");
+        if (!gap_omf) fail("missing gap.omf");
+        else {
+            qasm::BinImage image;
+            if (!qasm::make_bin(gap_omf->file, true, 0x2000, image, err))
+                fail(std::string("gap.omf: ") + err);
+            else if (image.org != 0x2000 || image.bytes.size() != 51)
+                fail("gap.omf image size");
+            else if (image.bytes[0] != 0x20 || image.bytes[9] != 0 || image.bytes[41] != 0x42 ||
+                     image.bytes[50] != 0x60)
+                fail("gap.omf image bytes");
+        }
+
+        const qasm::LinkProduct *prog = find_prod(linked, "prog.omf");
+        if (!prog) fail("missing prog.omf");
+        else
+            expect_err("prog.omf", prog->file, false, 0, "relocations");
+
+        const qasm::LinkProduct *lib = find_prod(linked, "runtime.lib");
+        if (!lib) fail("missing runtime.lib");
+        else
+            expect_err("runtime.lib", lib->file, false, 0, "object");
+    }
+
+    const char *tool = std::getenv("MAKEBIN");
+    if (tool && !one.segs.empty()) {
+        std::vector<uint8_t> omf;
+        if (!qasm::omf_write(one, omf, err)) {
+            fail("omf_write: " + err);
+        } else {
+            const std::string in = "test/fixtures/makebin-one.omf";
+            const std::string out = "test/fixtures/makebin-one.bin";
+            std::ofstream f(in, std::ios::binary);
+            f.write(reinterpret_cast<const char *>(omf.data()),
+                    static_cast<std::streamsize>(omf.size()));
+            f.close();
+            /* Quote the address. A shell reads $2000 as a variable. */
+            std::string cmd = std::string("\"") + tool + "\" -org '$2000' -o \"" + out + "\" \"" +
+                              in + "\"";
+            int rc = std::system(cmd.c_str());
+            if (rc != 0) fail("makeBin command failed");
+            else {
+                std::ifstream bin(out, std::ios::binary);
+                std::vector<uint8_t> got((std::istreambuf_iterator<char>(bin)),
+                                         std::istreambuf_iterator<char>());
+                expect_bytes("cli image", got, bytes_of(apple, sizeof(apple)));
+            }
+            std::remove(in.c_str());
+            std::remove(out.c_str());
+        }
+    }
+
+    if (fails) {
+        std::cerr << fails << " makeBin check" << (fails == 1 ? "" : "s") << " failed\n";
+        return 1;
+    }
+    std::cout << "makeBin tests passed\n";
+    return 0;
+}
diff --git a/test/test_qasm.cpp b/test/test_qasm.cpp
index 400ec11..8c3c634 100644
--- a/test/test_qasm.cpp
+++ b/test/test_qasm.cpp
@@ -706,6 +706,527 @@ static void test_syntax_cross(void)
         cnot, sizeof(cnot), "ca65-not", "ca65");
 }
 
+static void test_apw(void)
+{
+    const uint8_t abs_on[] = {
+        0xA5, 0x40,
+        0xAD, 0x40, 0x00,
+        0xBD, 0x40, 0x00,
+        0xA9, 0x40,
+        0xA5, 0x40,
+        0x60
+    };
+    expect_syn(
+        "* Assembler: APW\n"
+        "         longa  off\n"
+        "         org    $8000\n"
+        "slot     equ    $40\n"
+        "         absaddr off\n"
+        "         lda    slot\n"
+        "         absaddr on\n"
+        "         lda    slot\n"
+        "         lda    slot,x\n"
+        "         lda    #slot\n"
+        "         lda    <slot\n"
+        "         rts\n",
+        abs_on, sizeof(abs_on), "apw-absaddr", "apw");
+
+    const uint8_t msb[] = {0x41, 0xC1, 0xE2, 0x43};
+    expect_syn(
+        "* Assembler: MPW\n"
+        "         org    $8000\n"
+        "         msb    off\n"
+        "         dc     c'A'\n"
+        "         msb    on\n"
+        "         dc     c'Ab'\n"
+        "         msb    no\n"
+        "         dc     c'C'\n",
+        msb, sizeof(msb), "apw-msb", "apw");
+
+    const uint8_t nops[] = {0x60};
+    expect_syn(
+        "* Assembler: APW\n"
+        "         org    $8000\n"
+        "         kind   $06\n"
+        "         rename old,new\n"
+        "         setcom 0\n"
+        "         direct on\n"
+        "         codecheck on\n"
+        "         instime on\n"
+        "         ieee   on\n"
+        "         title  Hello\n"
+        "         printer off\n"
+        "         list   off\n"
+        "         6502\n"
+        "         65c02\n"
+        "         65816\n"
+        "         rts\n",
+        nops, sizeof(nops), "apw-nops", "apw");
+
+    const uint8_t col0[] = {0xAD, 0x40, 0x00, 0x60};
+    expect_syn(
+        "* Assembler: APW\n"
+        "absaddr  on\n"
+        "longa    off\n"
+        "org      $8000\n"
+        "slot     equ $40\n"
+        "         lda slot\n"
+        "         rts\n",
+        col0, sizeof(col0), "apw-col0", "apw");
+
+    /* ABSADDR is applied while lowering, so a false IF does not hide it. */
+    const uint8_t hidden[] = {0xAD, 0x40, 0x00};
+    expect_syn(
+        "* Assembler: APW\n"
+        "         org    $8000\n"
+        "slot     equ    $40\n"
+        "         if     0\n"
+        "         absaddr on\n"
+        "         endc\n"
+        "         lda    slot\n",
+        hidden, sizeof(hidden), "apw-absaddr-if", "apw");
+
+    /* Column-1 directive names are labels when the next field is an
+       instruction. DC.B strings are bytes. DS.B reserves bytes. #AD is
+       the symbol AD, not Merlin's bank prefix. */
+    const uint8_t labels[] = {
+        0x08,
+        0xEA,
+        0xEA,
+        0xFF,
+        0x53, 0x41,
+        0xC1,
+        0xA9, 0x80,
+        0xD0, 0xF7,
+        0x00, 0x00, 0x00, 0x00,
+        0x00, 0x00,
+        0x60
+    };
+    expect_syn(
+        "* Assembler: APW\n"
+        "         org    $8000\n"
+        "         longa  off\n"
+        "append   php\n"
+        "call     nop\n"
+        "print    nop\n"
+        "         dc.b   call-print,'SA'\n"
+        "         msb    on\n"
+        "         dc.b   'A'\n"
+        "         msb    off\n"
+        "ad       equ    $80\n"
+        "         lda    #ad\n"
+        "         bne    print\n"
+        "buf      ds.b   4\n"
+        "         ds.w   1\n"
+        "         rts\n",
+        labels, sizeof(labels), "apw-main-forms", "apw");
+
+    const uint8_t temporg[] = {0xA9, 0x42, 0x60};
+    expect_syn(
+        "* Assembler: APW\n"
+        "main     proc   temporg $9A00\n"
+        "         longa  off\n"
+        "         lda    #$42\n"
+        "         rts\n",
+        temporg, sizeof(temporg), "apw-temporg", "apw");
+    {
+        qasm::Options opt;
+        qasm::Result r = qasm::assemble_string(
+            "* Assembler: APW\n"
+            "main     proc   temporg $9A00\n"
+            "         rts\n",
+            "apw-temporg-org", opt);
+        if (!r.ok() || r.org != 0x9A00) {
+            fprintf(stderr, "FAIL apw-temporg-org org=$%X ok=%d\n", r.org, r.ok() ? 1 : 0);
+            fails++;
+        }
+    }
+    {
+        qasm::Options opt;
+        qasm::Result r = qasm::assemble_string(
+            "* Assembler: APW\n"
+            "glbl     proc   entry,org $BE00\n"
+            "         longa  off\n"
+            "         rts\n",
+            "apw-proc-org", opt);
+        if (!r.ok() || r.org != 0xBE00 || r.bytes.size() != 1 || r.bytes[0] != 0x60) {
+            fprintf(stderr, "FAIL apw-proc-org org=$%X bytes=%zu ok=%d\n",
+                    r.org, r.bytes.size(), r.ok() ? 1 : 0);
+            for (const auto &e : r.errors)
+                fprintf(stderr, "  %s\n", e.msg.c_str());
+            fails++;
+        }
+    }
+
+    /* Forward direct-page operands are absolute on pass 1. That moves
+       later labels. A backward branch must be remeasured after they settle. */
+    {
+        std::string src =
+            "* Assembler: APW\n"
+            "         org    $8000\n"
+            "         longa  off\n";
+        for (int i = 0; i < 40; i++)
+            src += "         lda    zp\n";
+        src += "syn      nop\n";
+        for (int i = 0; i < 90; i++)
+            src += "         nop\n";
+        src +=
+            "         bne    syn\n"
+            "zp       equ    $10\n"
+            "         rts\n";
+        qasm::Options opt;
+        qasm::Result r = qasm::assemble_string(src, "apw-phase-branch", opt);
+        if (!r.ok() || r.bytes.size() < 3 || r.bytes[r.bytes.size() - 3] != 0xD0 ||
+            r.bytes.back() != 0x60) {
+            fprintf(stderr, "FAIL apw-phase-branch ok=%d len=%zu\n",
+                    r.ok() ? 1 : 0, r.bytes.size());
+            for (const auto &e : r.errors)
+                fprintf(stderr, "  %s:%d: %s\n", e.file.c_str(), e.line, e.msg.c_str());
+            fails++;
+        }
+    }
+    /* `base equ *` is the same address as the next label. Both have to move
+       together, or mark-base becomes the pass-1 inflation instead of 1. */
+    {
+        std::string src =
+            "* Assembler: APW\n"
+            "         org    $8000\n"
+            "         longa  off\n";
+        for (int i = 0; i < 40; i++)
+            src += "         lda    zp\n";
+        src +=
+            "base     equ    *\n"
+            "         nop\n"
+            "mark     nop\n"
+            "         dc.b   mark-base\n"
+            "zp       equ    $10\n"
+            "         rts\n";
+        qasm::Options opt;
+        qasm::Result r = qasm::assemble_string(src, "apw-phase-equ", opt);
+        /* 40 direct-page LDA, two NOP, the difference byte, RTS. */
+        if (!r.ok() || r.bytes.size() != 84 || r.bytes[82] != 0x01 || r.bytes.back() != 0x60) {
+            fprintf(stderr, "FAIL apw-phase-equ ok=%d len=%zu byte=%02X\n",
+                    r.ok() ? 1 : 0, r.bytes.size(),
+                    r.bytes.size() > 82 ? r.bytes[82] : 0);
+            for (const auto &e : r.errors)
+                fprintf(stderr, "  %s:%d: %s\n", e.file.c_str(), e.line, e.msg.c_str());
+            fails++;
+        }
+    }
+    {
+        qasm::Options opt;
+        qasm::Result r = qasm::assemble_string(
+            ".p816\n"
+            ".org $8000\n"
+            ".set STEP, 1\n"
+            ".set STEP, STEP+1\n"
+            ".byte STEP\n",
+            "ca65-set-freeze", opt);
+        if (!r.ok() || r.bytes.size() != 1 || r.bytes[0] != 0x02) {
+            fprintf(stderr, "FAIL ca65-set-freeze ok=%d len=%zu byte=%02X\n",
+                    r.ok() ? 1 : 0, r.bytes.size(),
+                    r.bytes.empty() ? 0 : r.bytes[0]);
+            for (const auto &e : r.errors)
+                fprintf(stderr, "  %s:%d: %s\n", e.file.c_str(), e.line, e.msg.c_str());
+            fails++;
+        }
+    }
+
+    const uint8_t bank[] = {0xA9, 0x12};
+    expect_ok(
+        "         org    $8000\n"
+        "         lda    #A$123456\n",
+        bank, sizeof(bank), "merlin-hash-a");
+
+    const uint8_t mpw[] = {0xEA, 0x20, 0x00, 0x00, 0x00, 0x00, 0x6B, 0x60};
+    expect_syn(
+        "* Assembler: MPW\n"
+        "         machine m65816\n"
+        "         org    $8000\n"
+        "one      proc\n"
+        "         nop\n"
+        "         endp\n"
+        "code     proc\n"
+        "         import hook\n"
+        "         jsr    hook\n"
+        "         dc.w   hook\n"
+        "         rtl\n"
+        "         endp\n"
+        "         rts\n",
+        mpw, sizeof(mpw), "apw-mpw-proc", "apw");
+
+    if (qasm::identify_syntax(
+            " longa off\n longi off\n anop\n dc i1'$01'\n") != qasm::Syntax::Orca) {
+        fprintf(stderr, "FAIL identify orca stays orca\n");
+        fails++;
+    }
+    if (qasm::identify_syntax(
+            " absaddr off\n longa off\n dc i1'$01'\n") != qasm::Syntax::Apw) {
+        fprintf(stderr, "FAIL identify absaddr is apw\n");
+        fails++;
+    }
+    if (qasm::identify_syntax(
+            ".p816\n.org $8000\nabsaddr: .byte 1\n") != qasm::Syntax::Ca65) {
+        fprintf(stderr, "FAIL identify ca65 keeps absaddr label\n");
+        fails++;
+    }
+
+    qasm::Options mpw_opt;
+    mpw_opt.syntax = "mpw";
+    qasm::Result rm = qasm::assemble_string(" org $8000\n rts\n", "mpw-opt", mpw_opt);
+    if (!rm.ok() || rm.syntax != "apw" || rm.bytes.size() != 1 || rm.bytes[0] != 0x60) {
+        fprintf(stderr, "FAIL --syntax mpw syntax=%s bytes=%zu\n",
+                rm.syntax.c_str(), rm.bytes.size());
+        for (const auto &e : rm.errors)
+            fprintf(stderr, "  %s\n", e.msg.c_str());
+        fails++;
+    }
+
+    const uint8_t thenb[] = {0xA9, 0x42, 0x60};
+    expect_syn(
+        "* Assembler: APW\n"
+        "         org    $8000\n"
+        "         longa  off\n"
+        "         if     0 then\n"
+        "         lda    #$ff\n"
+        "         endif\n"
+        "         if     1 then\n"
+        "         lda    #$42\n"
+        "         else\n"
+        "         lda    #$00\n"
+        "         endif\n"
+        "         rts\n",
+        thenb, sizeof(thenb), "apw-if-then", "apw");
+
+    const uint8_t gotob[] = {0xA9, 0x01, 0x60};
+    expect_syn(
+        "* Assembler: APW\n"
+        "         org    $8000\n"
+        "         longa  off\n"
+        "         lda    #$01\n"
+        "         if     1 goto .skip\n"
+        "         lda    #$ff\n"
+        ".skip\n"
+        "         rts\n",
+        gotob, sizeof(gotob), "apw-if-goto", "apw");
+
+    /* A GOTO inside a false IF must not jump past the ENDIF. */
+    const uint8_t nest[] = {0xA9, 0x42, 0x60};
+    expect_syn(
+        "* Assembler: APW\n"
+        "         org    $8000\n"
+        "         longa  off\n"
+        "         if     0 then\n"
+        "         if     1 goto .after\n"
+        "         nop\n"
+        "         endif\n"
+        "         lda    #$42\n"
+        ".after\n"
+        "         rts\n",
+        nest, sizeof(nest), "apw-goto-nested", "apw");
+
+    const uint8_t dcbb[] = {0xEE, 0xEE, 0xEE};
+    expect_syn(
+        "* Assembler: APW\n"
+        "         org    $8000\n"
+        "         dcb.b  3,$ee\n",
+        dcbb, sizeof(dcbb), "apw-dcb-b", "apw");
+
+    const uint8_t semi[] = {0x41, 0x42};
+    expect_syn(
+        "* Assembler: APW\n"
+        "         org    $8000\n"
+        "         msb    off\n"
+        "         dc.b   'AB';\n",
+        semi, sizeof(semi), "apw-semi", "apw");
+
+    const uint8_t lenb[] = {0x01};
+    expect_syn(
+        "* Assembler: APW\n"
+        "         org    $8000\n"
+        "meslen   equ    &len('AB')-1\n"
+        "         dc.b   meslen\n",
+        lenb, sizeof(lenb), "apw-len", "apw");
+
+    const uint8_t modb[] = {0x05};
+    expect_syn(
+        "* Assembler: APW\n"
+        "         org    $8000\n"
+        "         dc.b   ($105 mod $100)\n",
+        modb, sizeof(modb), "apw-mod", "apw");
+
+    const uint8_t dca[] = {0x56, 0x34, 0x12};
+    expect_syn(
+        "* Assembler: APW\n"
+        "         org    $8000\n"
+        "         dc.a   $123456\n",
+        dca, sizeof(dca), "apw-dc-a", "apw");
+
+    /* MacRoman 0xB3 is '>=' in an APW source. */
+    const uint8_t geb[] = {0x42};
+    expect_syn(
+        "* Assembler: APW\n"
+        "         org    $8000\n"
+        "         if     $10 \xB3 $10 goto .ok\n"
+        "         dc.b   $ff\n"
+        ".ok\n"
+        "         dc.b   $42\n",
+        geb, sizeof(geb), "apw-macroman-ge", "apw");
+
+    {
+        qasm::Options opt;
+        qasm::Result r = qasm::assemble_string(
+            "* Assembler: APW\n"
+            "         org    $8000\n"
+            "         if     0 then\n"
+            "         aerror 'nope'\n"
+            "         endif\n"
+            "         rts\n",
+            "apw-aerror-hidden", opt);
+        if (!r.ok() || r.bytes.size() != 1 || r.bytes[0] != 0x60) {
+            fprintf(stderr, "FAIL apw-aerror-hidden ok=%d\n", r.ok() ? 1 : 0);
+            for (const auto &e : r.errors)
+                fprintf(stderr, "  %s\n", e.msg.c_str());
+            fails++;
+        }
+    }
+    {
+        qasm::Options opt;
+        qasm::Result r = qasm::assemble_string(
+            "* Assembler: APW\n"
+            "         org    $8000\n"
+            "         aerror 'boom'\n"
+            "         rts\n",
+            "apw-aerror", opt);
+        if (r.ok() || r.errors.empty() ||
+            r.errors[0].msg.find("boom") == std::string::npos) {
+            fprintf(stderr, "FAIL apw-aerror\n");
+            for (const auto &e : r.errors)
+                fprintf(stderr, "  %s\n", e.msg.c_str());
+            fails++;
+        }
+    }
+
+    /* IMPORT after the label must not collapse the address to direct page. */
+    const uint8_t imp[] = {0x4C, 0x03, 0x80, 0x60, 0xAD, 0x00, 0x80};
+    expect_syn(
+        "* Assembler: APW\n"
+        "         org    $8000\n"
+        "         longa  off\n"
+        "warmdos  jmp    next\n"
+        "next     rts\n"
+        "         import warmdos\n"
+        "         lda    warmdos\n",
+        imp, sizeof(imp), "apw-import-after", "apw");
+
+    /* A repeated EQU is visible to the next line, not only the last value. */
+    const uint8_t requ[] = {0x10, 0x20};
+    expect_syn(
+        "* Assembler: APW\n"
+        "         org    $8000\n"
+        "max      equ    $10\n"
+        "         dc.b   max\n"
+        "max      equ    $20\n"
+        "         dc.b   max\n",
+        requ, sizeof(requ), "apw-requ", "apw");
+
+    /* APW `>>` is a logical shift. The high byte of $02FF is $02. */
+    const uint8_t shb[] = {0xA9, 0x02};
+    expect_syn(
+        "* Assembler: APW\n"
+        "         org    $8000\n"
+        "         lda    #inline>>8\n"
+        "inline   equ    $02ff\n",
+        shb, sizeof(shb), "apw-shift", "apw");
+
+    /* Each PROC keeps its own procstart. A shared symbol would be 30 30. */
+    const uint8_t psb[] = {0x20, 0x30};
+    expect_syn(
+        "* Assembler: APW\n"
+        "         org    $2000\n"
+        "a        proc\n"
+        "procstart dc.b  >procstart\n"
+        "         endp\n"
+        "         org    $3000\n"
+        "b        proc\n"
+        "procstart dc.b  >procstart\n"
+        "         endp\n",
+        psb, sizeof(psb), "apw-procstart", "apw");
+
+    /* Two `@1` labels in one proc. The far one would be out of range. */
+    {
+        qasm::Options opt;
+        qasm::Result r = qasm::assemble_string(
+            "* Assembler: APW\n"
+            "         org    $8000\n"
+            "one      proc\n"
+            "         bcc    @1\n"
+            "@1       rts\n"
+            "mid      nop\n"
+            "         ds.b   200\n"
+            "         bcc    @1\n"
+            "@1       rts\n"
+            "         endp\n",
+            "apw-at", opt);
+        const uint8_t head[] = {0x90, 0x00, 0x60, 0xEA};
+        const uint8_t tail[] = {0x90, 0x00, 0x60};
+        bool bad = !r.ok() || r.bytes.size() != 207 ||
+                   memcmp(r.bytes.data(), head, 4) != 0 ||
+                   memcmp(r.bytes.data() + 204, tail, 3) != 0;
+        if (!bad) {
+            for (size_t i = 4; i < 204; i++)
+                if (r.bytes[i] != 0) bad = true;
+        }
+        if (bad) {
+            fprintf(stderr, "FAIL apw-at ok=%d bytes=%zu\n", r.ok() ? 1 : 0, r.bytes.size());
+            for (const auto &e : r.errors)
+                fprintf(stderr, "  %s\n", e.msg.c_str());
+            fails++;
+        }
+    }
+
+    /* EXPORT keeps the name global. An unexported name stays in its proc. */
+    const uint8_t exb[] = {0x11, 0x20};
+    expect_syn(
+        "* Assembler: APW\n"
+        "         org    $2000\n"
+        "a        proc\n"
+        "         export seen\n"
+        "seen     dc.b   $11\n"
+        "         endp\n"
+        "b        proc\n"
+        "         dc.b   >seen\n"
+        "         endp\n",
+        exb, sizeof(exb), "apw-export", "apw");
+    {
+        qasm::Options opt;
+        qasm::Result r = qasm::assemble_string(
+            "* Assembler: APW\n"
+            "         org    $2000\n"
+            "a        proc\n"
+            "hidden   dc.b   $22\n"
+            "         endp\n"
+            "b        proc\n"
+            "         dc.b   hidden\n"
+            "         endp\n",
+            "apw-proc-hide", opt);
+        if (r.ok()) {
+            fprintf(stderr, "FAIL apw-proc-hide: hidden label leaked\n");
+            fails++;
+        }
+    }
+
+    qasm::Options orc;
+    orc.syntax = "orca";
+    qasm::Result ro = qasm::assemble_string(
+        " longa off\n org $8000\n absaddr on\n rts\n", "orca-abs", orc);
+    if (ro.ok() || ro.syntax != "orca") {
+        fprintf(stderr, "FAIL orca rejects absaddr ok=%d syntax=%s\n",
+                ro.ok() ? 1 : 0, ro.syntax.c_str());
+        fails++;
+    }
+}
+
 static void test_pcode_dump(void)
 {
     const char *src =
@@ -805,6 +1326,7 @@ int main(void)
     test_rel_ext();
     test_expr_cmp();
     test_syntax_cross();
+    test_apw();
     test_pcode_dump();
     if (fails) {
         fprintf(stderr, "%d test(s) failed\n", fails);
diff --git a/test/test_qlink.cpp b/test/test_qlink.cpp
new file mode 100644
index 0000000..b012049
--- /dev/null
+++ b/test/test_qlink.cpp
@@ -0,0 +1,338 @@
+/* Link the relocatable fixtures and check the OMF images. */
+
+#include "link.hpp"
+#include "omf.hpp"
+
+#include <cstdint>
+#include <fstream>
+#include <iostream>
+#include <sstream>
+#include <string>
+#include <vector>
+
+namespace {
+
+int fails = 0;
+
+void fail(const std::string &msg)
+{
+    std::cerr << "FAIL " << msg << "\n";
+    fails++;
+}
+
+bool ends_with(const std::string &s, const std::string &suf)
+{
+    return s.size() >= suf.size() && s.compare(s.size() - suf.size(), suf.size(), suf) == 0;
+}
+
+bool ieq(const std::string &a, const std::string &b)
+{
+    if (a.size() != b.size()) return false;
+    for (size_t i = 0; i < a.size(); i++) {
+        unsigned char x = static_cast<unsigned char>(a[i]);
+        unsigned char y = static_cast<unsigned char>(b[i]);
+        if (x >= 'a' && x <= 'z') x = static_cast<unsigned char>(x - 'a' + 'A');
+        if (y >= 'a' && y <= 'z') y = static_cast<unsigned char>(y - 'a' + 'A');
+        if (x != y) return false;
+    }
+    return true;
+}
+
+std::string hex_of(const std::vector<uint8_t> &b)
+{
+    static const char *d = "0123456789ABCDEF";
+    std::string s;
+    for (size_t i = 0; i < b.size(); i++) {
+        if (i) s.push_back(' ');
+        s.push_back(d[b[i] >> 4]);
+        s.push_back(d[b[i] & 0xF]);
+    }
+    return s;
+}
+
+bool load_omf(const std::string &path, qasm::OmfFile &file)
+{
+    std::ifstream in(path, std::ios::binary);
+    if (!in) {
+        fail("cannot read " + path);
+        return false;
+    }
+    std::vector<uint8_t> buf((std::istreambuf_iterator<char>(in)),
+                             std::istreambuf_iterator<char>());
+    std::string err;
+    if (!qasm::omf_read(buf, file, err)) {
+        fail(path + ": " + err);
+        return false;
+    }
+    return true;
+}
+
+bool exists(const std::string &path)
+{
+    std::ifstream in(path);
+    return static_cast<bool>(in);
+}
+
+const qasm::LinkProduct *find_prod(const qasm::LinkOutput &o, const std::string &suf)
+{
+    for (const auto &p : o.products)
+        if (ends_with(p.path, suf)) return &p;
+    return nullptr;
+}
+
+const qasm::OmfSeg *seg_named(const qasm::OmfFile &f, const std::string &name)
+{
+    for (const auto &s : f.segs)
+        if (ieq(s.name, name)) return &s;
+    return nullptr;
+}
+
+void expect_bytes(const std::string &what, const std::vector<uint8_t> &got,
+                  const std::vector<uint8_t> &want)
+{
+    if (got != want) {
+        fail(what + " bytes\n  got " + hex_of(got) + "\n  exp " + hex_of(want));
+    }
+}
+
+bool has_global(const qasm::OmfSeg &s, const std::string &name, uint32_t off)
+{
+    for (const auto &sym : s.syms)
+        if (sym.global && ieq(sym.name, name) && sym.offset == off) return true;
+    return false;
+}
+
+bool has_fix(const qasm::OmfSeg &s, const std::string &name, uint32_t at, uint8_t width)
+{
+    for (const auto &f : s.fixups)
+        if (ieq(f.symbol, name) && f.at == at && f.width == width && f.divisor == 1)
+            return true;
+    return false;
+}
+
+bool has_inter(const qasm::OmfSeg &s, uint32_t at, uint8_t width, uint32_t disp, uint16_t seg)
+{
+    for (const auto &r : s.relocs)
+        if (r.file == 1 && r.seg == seg && r.at == at && r.width == width && r.disp == disp &&
+            r.shift == 0)
+            return true;
+    return false;
+}
+
+const uint8_t k_apple[] = {
+    0x20, 0x0A, 0x20, 0xAD, 0x09, 0x20, 0x09, 0x20, 0x6B, 0x42, 0x20, 0x00, 0x20,
+    0xAD, 0x00, 0x20, 0x00, 0x20, 0x60
+};
+const uint8_t k_code_obj[] = {0x20, 0x00, 0x00, 0xAD, 0x00, 0x00, 0x00, 0x00, 0x6B};
+const uint8_t k_data_obj[] = {0x42, 0x20, 0x00, 0x00, 0xAD, 0x00, 0x00, 0x00, 0x00, 0x60};
+const uint8_t k_prog_code[] = {0x20, 0x01, 0x00, 0xAD, 0x00, 0x00, 0x00, 0x00, 0x6B};
+const uint8_t k_gap_code[] = {0x20, 0x2A, 0x20, 0xAD, 0x29, 0x20, 0x29, 0x20, 0x6B};
+const uint8_t k_gap_tail[] = {0x42, 0x20, 0x00, 0x20, 0xAD, 0x00, 0x20, 0x00, 0x20, 0x60};
+
+std::vector<uint8_t> bytes_of(const uint8_t *p, size_t n)
+{
+    return std::vector<uint8_t>(p, p + n);
+}
+
+void check_object(const std::string &path, const std::string &seg, uint16_t kind,
+                  const uint8_t *image, size_t nimage, const char *g1, uint32_t o1,
+                  const char *g2, uint32_t o2)
+{
+    qasm::OmfFile f;
+    if (!load_omf(path, f)) return;
+    if (f.version != 2 || !f.object) fail(path + " is not an OMF 2.0 object");
+    if (f.segs.size() != 1) {
+        fail(path + " segment count");
+        return;
+    }
+    const qasm::OmfSeg &s = f.segs[0];
+    if (!ieq(s.name, seg)) fail(path + " segment name " + s.name + " want " + seg);
+    if (s.kind != kind) fail(path + " kind");
+    expect_bytes(path, s.image, bytes_of(image, nimage));
+    if (!has_global(s, g1, o1)) fail(path + " missing " + g1);
+    if (g2 && !has_global(s, g2, o2)) fail(path + " missing " + g2);
+}
+
+void check_apple(const qasm::LinkOutput &o, const std::string &suf)
+{
+    const qasm::LinkProduct *p = find_prod(o, suf);
+    if (!p) {
+        fail("missing " + suf);
+        return;
+    }
+    if (p->file.version != 1 || p->file.object) fail(suf + " header");
+    if (!p->typ_set || p->typ != 0x06 || p->aux != 0x2000) fail(suf + " typ/aux");
+    if (p->file.segs.size() != 1) {
+        fail(suf + " segment count");
+        return;
+    }
+    const qasm::OmfSeg &s = p->file.segs[0];
+    if (s.org != 0x2000) fail(suf + " org");
+    if (s.entry != 0) fail(suf + " entry");
+    if (!s.relocs.empty()) fail(suf + " has relocations");
+    expect_bytes(suf, s.image, bytes_of(k_apple, sizeof(k_apple)));
+}
+
+void check_two(const qasm::LinkOutput &o, const std::string &suf, const std::string &data_name,
+               bool reloc)
+{
+    const qasm::LinkProduct *p = find_prod(o, suf);
+    if (!p) {
+        fail("missing " + suf);
+        return;
+    }
+    if (p->file.version != 2 || p->file.object) fail(suf + " is not an OMF 2.0 load file");
+    if (p->file.segs.size() != 2) {
+        fail(suf + " segment count");
+        return;
+    }
+    const qasm::OmfSeg *code = seg_named(p->file, "CODE");
+    const qasm::OmfSeg *data = seg_named(p->file, data_name);
+    if (!code || !data) {
+        fail(suf + " segment names");
+        return;
+    }
+    if (code->org != 0 || data->org != 0) fail(suf + " org");
+    expect_bytes(suf + " CODE", code->image, bytes_of(k_prog_code, sizeof(k_prog_code)));
+    expect_bytes(suf + " DATA", data->image, bytes_of(k_data_obj, sizeof(k_data_obj)));
+    if (!reloc) return;
+    if (code->relocs.size() != 3 || data->relocs.size() != 3) fail(suf + " reloc count");
+    if (!has_inter(*code, 1, 2, 1, 2) || !has_inter(*code, 4, 2, 0, 2) ||
+        !has_inter(*code, 6, 2, 0, 2))
+        fail(suf + " CODE interseg");
+    if (!has_inter(*data, 2, 2, 0, 1) || !has_inter(*data, 5, 2, 0, 1) ||
+        !has_inter(*data, 7, 2, 0, 1))
+        fail(suf + " DATA interseg");
+}
+
+} // namespace
+
+int main()
+{
+    const char *no_obj[] = {
+        "test/fixtures/coverage-merlin.o",
+        "test/fixtures/coverage-orca.o",
+        "test/fixtures/coverage-ca65.o",
+        "test/fixtures/coverage-apw.o",
+        "test/fixtures/rel-code-lisa.o",
+        "test/fixtures/rel-data-lisa.o",
+    };
+    for (const char *p : no_obj)
+        if (exists(p)) fail(std::string(p) + " should not be written");
+
+    check_object("test/fixtures/rel-code-merlin.o", "CODE", 0, k_code_obj, sizeof(k_code_obj),
+                 "CODE", 0, nullptr, 0);
+    check_object("test/fixtures/rel-data-merlin.o", "VALUE", 0, k_data_obj, sizeof(k_data_obj),
+                 "VALUE", 0, "HOOK", 1);
+    check_object("test/fixtures/rel-code-orca.o", "code", 0, k_code_obj, sizeof(k_code_obj),
+                 "code", 0, nullptr, 0);
+    /* `data start` is the START directive, so the segment is named data and
+       its kind is code. A DATA directive would set kind 1. */
+    check_object("test/fixtures/rel-data-orca.o", "data", 0, k_data_obj, sizeof(k_data_obj),
+                 "value", 0, "hook", 1);
+    check_object("test/fixtures/rel-code-ca65.o", "CODE", 0, k_code_obj, sizeof(k_code_obj),
+                 "CODE", 0, nullptr, 0);
+    check_object("test/fixtures/rel-data-ca65.o", "DATA", 0, k_data_obj, sizeof(k_data_obj),
+                 "VALUE", 0, "HOOK", 1);
+    check_object("test/fixtures/rel-code-apw.o", "code", 0, k_code_obj, sizeof(k_code_obj),
+                 "code", 0, nullptr, 0);
+    check_object("test/fixtures/rel-data-apw.o", "data", 0, k_data_obj, sizeof(k_data_obj),
+                 "value", 0, "hook", 1);
+
+    qasm::OmfFile code;
+    if (load_omf("test/fixtures/rel-code-merlin.o", code) && !code.segs.empty()) {
+        const qasm::OmfSeg &s = code.segs[0];
+        if (!has_fix(s, "HOOK", 1, 2) || !has_fix(s, "VALUE", 4, 2) || !has_fix(s, "VALUE", 6, 2))
+            fail("rel-code-merlin.o fixups");
+        if (s.fixups.size() != 3) fail("rel-code-merlin.o fixup count");
+    }
+    qasm::OmfFile data;
+    if (load_omf("test/fixtures/rel-data-merlin.o", data) && !data.segs.empty()) {
+        const qasm::OmfSeg &s = data.segs[0];
+        if (!has_fix(s, "CODE", 2, 2) || !has_fix(s, "CODE", 5, 2) || !has_fix(s, "CODE", 7, 2))
+            fail("rel-data-merlin.o fixups");
+    }
+
+    std::ostringstream log;
+    qasm::LinkOutput out = qasm::link_script("test/fixtures/disk.link", log);
+    if (!out.ok()) {
+        for (const auto &e : out.errors) fail(e);
+    }
+    std::cout << log.str();
+    if (log.str().find("BLOAD") == std::string::npos)
+        fail("ver 1 BIN summary should say ProDOS BLOAD does not read OMF");
+
+    check_apple(out, "apple.omf");
+    check_apple(out, "apple-orca.omf");
+    check_apple(out, "apple-ca65.omf");
+    check_apple(out, "apple-apw.omf");
+
+    const qasm::LinkProduct *prog = find_prod(out, "prog.omf");
+    if (!prog) fail("missing prog.omf");
+    else {
+        const qasm::OmfSeg *c = seg_named(prog->file, "CODE");
+        const qasm::OmfSeg *d = seg_named(prog->file, "DATA");
+        if (!c || c->kind != 0) fail("prog CODE kind");
+        if (!d || d->kind != 1) fail("prog DATA kind");
+        if (!c || c->entry != 0) fail("prog entry");
+    }
+    check_two(out, "prog.omf", "DATA", true);
+    check_two(out, "merged.omf", "VALUE", true);
+    check_two(out, "proglib.omf", "VALUE", true);
+
+    const qasm::LinkProduct *lib = find_prod(out, "runtime.lib");
+    if (!lib) fail("missing runtime.lib");
+    else if (lib->file.version != 2 || !lib->file.object || lib->typ != 0xB2) {
+        fail("runtime.lib is not an OMF 2.0 library");
+    } else if (lib->file.segs.size() != 1) {
+        fail("runtime.lib segment count");
+    } else {
+        const qasm::OmfSeg &s = lib->file.segs[0];
+        if (!ieq(s.name, "VALUE")) fail("runtime.lib segment name");
+        expect_bytes("runtime.lib", s.image, bytes_of(k_data_obj, sizeof(k_data_obj)));
+        if (!has_global(s, "VALUE", 0) || !has_global(s, "HOOK", 1))
+            fail("runtime.lib globals");
+        if (!has_fix(s, "CODE", 2, 2)) fail("runtime.lib kept RELEXPR");
+        if (!s.relocs.empty()) fail("runtime.lib has load relocations");
+    }
+
+    const qasm::LinkProduct *gap = find_prod(out, "gap.omf");
+    if (!gap) fail("missing gap.omf");
+    else if (gap->file.version != 1 || gap->file.segs.size() != 2) {
+        fail("gap.omf shape");
+    } else {
+        const qasm::OmfSeg *c = seg_named(gap->file, "CODE");
+        const qasm::OmfSeg *d = seg_named(gap->file, "DATA");
+        if (!c || !d) fail("gap.omf names");
+        else {
+            if (c->org != 0x2000) fail("gap CODE org");
+            if (d->org != 0x2009) fail("gap DATA org");
+            expect_bytes("gap CODE", c->image, bytes_of(k_gap_code, sizeof(k_gap_code)));
+            std::vector<uint8_t> data_img(32, 0);
+            data_img.insert(data_img.end(), k_gap_tail, k_gap_tail + sizeof(k_gap_tail));
+            expect_bytes("gap DATA", d->image, data_img);
+            if (!c->relocs.empty() || !d->relocs.empty()) fail("gap has relocations");
+        }
+    }
+
+    std::ostringstream blog;
+    qasm::LinkOutput bad = qasm::link_script("test/fixtures/bad-dynamic.link", blog);
+    if (bad.ok()) fail("ver 1 dynamic was accepted");
+    else {
+        bool saw = false;
+        for (const auto &e : bad.errors)
+            if (e.find("dynamic") != std::string::npos) saw = true;
+        if (!saw) {
+            fail("ver 1 dynamic error did not mention dynamic");
+            for (const auto &e : bad.errors) std::cerr << e << "\n";
+        }
+    }
+    if (exists("test/fixtures/bad.omf")) fail("bad.omf was written");
+
+    if (fails) {
+        std::cerr << fails << " linker check" << (fails == 1 ? "" : "s") << " failed\n";
+        return 1;
+    }
+    std::cout << "qlink tests passed\n";
+    return 0;
+}
diff --git a/test/test_qomf.cpp b/test/test_qomf.cpp
new file mode 100644
index 0000000..87122e4
--- /dev/null
+++ b/test/test_qomf.cpp
@@ -0,0 +1,407 @@
+/* Dump OMF headers, records, and relocation entries. */
+
+#include "link.hpp"
+#include "omf.hpp"
+#include "qomf.hpp"
+
+#include <cstdint>
+#include <cstdlib>
+#include <fstream>
+#include <iostream>
+#include <sstream>
+#include <string>
+#include <vector>
+
+namespace {
+
+int fails = 0;
+bool showed = false;
+
+void fail(const std::string &msg)
+{
+    std::cerr << "FAIL " << msg << "\n";
+    fails++;
+}
+
+void expect_has(const std::string &dump, const std::string &needle)
+{
+    if (dump.find(needle) != std::string::npos) return;
+    fail("missing: " + needle);
+    if (!showed) {
+        std::cerr << dump;
+        showed = true;
+    }
+}
+
+void expect_absent(const std::string &dump, const std::string &needle)
+{
+    if (dump.find(needle) == std::string::npos) return;
+    fail("unexpected: " + needle);
+    if (!showed) {
+        std::cerr << dump;
+        showed = true;
+    }
+}
+
+std::string dump_of(const std::vector<uint8_t> &bytes, bool &ok)
+{
+    std::ostringstream out;
+    std::string err;
+    ok = qasm::omf_dump(bytes, "sample.omf", out, err);
+    if (!ok) out << "ERR " << err << "\n";
+    showed = false;
+    return out.str();
+}
+
+void put_u8(std::vector<uint8_t> &b, uint8_t v) { b.push_back(v); }
+
+void put_u16(std::vector<uint8_t> &b, uint16_t v)
+{
+    b.push_back(static_cast<uint8_t>(v & 0xFF));
+    b.push_back(static_cast<uint8_t>((v >> 8) & 0xFF));
+}
+
+void put_u32(std::vector<uint8_t> &b, uint32_t v)
+{
+    put_u16(b, static_cast<uint16_t>(v & 0xFFFF));
+    put_u16(b, static_cast<uint16_t>((v >> 16) & 0xFFFF));
+}
+
+void patch_u32(std::vector<uint8_t> &b, size_t at, uint32_t v)
+{
+    b[at] = static_cast<uint8_t>(v & 0xFF);
+    b[at + 1] = static_cast<uint8_t>((v >> 8) & 0xFF);
+    b[at + 2] = static_cast<uint8_t>((v >> 16) & 0xFF);
+    b[at + 3] = static_cast<uint8_t>((v >> 24) & 0xFF);
+}
+
+void patch_u16(std::vector<uint8_t> &b, size_t at, uint16_t v)
+{
+    b[at] = static_cast<uint8_t>(v & 0xFF);
+    b[at + 1] = static_cast<uint8_t>((v >> 8) & 0xFF);
+}
+
+/* A one-segment OMF file. Body numbers are little-endian unless big is set. */
+std::vector<uint8_t> raw_seg(int version, uint8_t numlen, uint8_t numsex,
+                            const std::vector<uint8_t> &body)
+{
+    std::vector<uint8_t> b(0x2C, 0);
+    for (int i = 0; i < 10; i++) b.push_back(0x20);
+    put_u8(b, 1);
+    b.push_back('A');
+    uint16_t dispdata = static_cast<uint16_t>(b.size());
+    b.insert(b.end(), body.begin(), body.end());
+    patch_u32(b, 0x00, static_cast<uint32_t>(b.size()));
+    patch_u32(b, 0x10, 0x00010000);
+    b[0x0D] = 0;
+    b[0x0E] = numlen;
+    b[0x0F] = static_cast<uint8_t>(version);
+    b[0x20] = numsex;
+    patch_u16(b, 0x22, 1);
+    patch_u16(b, 0x28, 0x2C);
+    patch_u16(b, 0x2A, dispdata);
+    return b;
+}
+
+qasm::OmfSeg seg_with(const std::string &name, const std::vector<uint8_t> &image)
+{
+    qasm::OmfSeg s;
+    s.name = name;
+    s.image = image;
+    return s;
+}
+
+} // namespace
+
+int main()
+{
+    std::string err;
+    bool ok = false;
+
+    std::vector<uint8_t> empty;
+    std::string empty_dump = dump_of(empty, ok);
+    if (ok || empty_dump.find("too small") == std::string::npos) fail("empty file");
+
+    const uint8_t image[] = {0x20, 0x01, 0x00, 0xAD, 0x00, 0x00, 0x00, 0x00, 0x6B};
+    qasm::OmfFile load;
+    load.version = 2;
+    qasm::OmfSeg code = seg_with("CODE", std::vector<uint8_t>(image, image + sizeof(image)));
+    code.org = 0x2000;
+    code.align = 0x100;
+    code.entry = 0x10;
+    code.kind = 0x4001;
+    code.segnum = 7;
+    qasm::OmfReloc reloc;
+    reloc.width = 2;
+    reloc.at = 1;
+    reloc.disp = 0;
+    code.relocs.push_back(reloc);
+    qasm::OmfReloc inter;
+    inter.width = 3;
+    inter.shift = -8;
+    inter.at = 4;
+    inter.disp = 1;
+    inter.file = 1;
+    inter.seg = 2;
+    code.relocs.push_back(inter);
+    load.segs.push_back(code);
+
+    std::vector<uint8_t> bytes;
+    if (!qasm::omf_write(load, bytes, err)) fail("write load: " + err);
+    else {
+        std::string dump = dump_of(bytes, ok);
+        if (!ok) fail("load dump");
+        expect_has(dump, "sample.omf: OMF 2.0 load file, 1 segment, ");
+        expect_has(dump, "bytecnt $");
+        expect_has(dump, "resspc $00000000");
+        expect_has(dump, "length $00000009");
+        expect_has(dump, "lablen 0 (Pascal)");
+        expect_has(dump, "numlen 4");
+        expect_has(dump, "version 2");
+        expect_has(dump, "banksize $00010000");
+        expect_has(dump, "kind $4001 data private");
+        expect_has(dump, "org $00002000");
+        expect_has(dump, "align $00000100");
+        expect_has(dump, "numsex 0 (little)");
+        expect_has(dump, "segnum 7");
+        expect_has(dump, "entry $00000010");
+        expect_has(dump, "dispname $002C");
+        expect_has(dump, "loadname \"\"");
+        expect_has(dump, "segname \"CODE\"");
+        expect_has(dump, "LCONST  9 bytes at $00000000");
+        expect_has(dump, "20 01 00 AD 00 00 00 00 6B");
+        expect_has(dump, "RELOC  width 2  shift 0  at $00000001  disp $00000000");
+        expect_has(dump, "INTERSEG  width 3  shift -8  at $00000004  file 1  seg 2  disp $00000001");
+        expect_has(dump, "END");
+        expect_has(dump, "relocations: 2");
+        expect_has(dump, "fixups: 0");
+        expect_absent(dump, "\n  CONST");
+    }
+
+    qasm::OmfFile obj;
+    obj.version = 2;
+    obj.object = true;
+    qasm::OmfSeg oseg = seg_with("CODE", {0x20, 0x00, 0x00, 0xAD, 0x00, 0x00, 0x00, 0x00, 0x6B});
+    qasm::OmfSym sym;
+    sym.name = "CODE";
+    sym.offset = 0;
+    oseg.syms.push_back(sym);
+    qasm::OmfFix hook;
+    hook.at = 1;
+    hook.width = 2;
+    hook.symbol = "HOOK";
+    oseg.fixups.push_back(hook);
+    qasm::OmfFix value;
+    value.at = 4;
+    value.width = 3;
+    value.symbol = "VALUE";
+    value.addend = 1;
+    value.divisor = 256;
+    oseg.fixups.push_back(value);
+    obj.segs.push_back(oseg);
+    if (!qasm::omf_write(obj, bytes, err)) fail("write object: " + err);
+    else {
+        std::string dump = dump_of(bytes, ok);
+        if (!ok) fail("object dump");
+        expect_has(dump, "OMF 2.0 object file");
+        expect_has(dump, "GLOBAL  \"CODE\"  at $00000000  length $0000  type 'N' ($4E)  private 0");
+        expect_has(dump, "CONST  9 bytes at $00000000");
+        expect_has(dump, "RELEXPR  width 2  at $00000001  HOOK");
+        expect_has(dump, "RELEXPR  width 3  at $00000004  (VALUE+$00000001)/$00000100");
+        expect_has(dump, "relocations: 0");
+        expect_has(dump, "fixups: 2");
+        expect_absent(dump, "LCONST");
+    }
+
+    qasm::OmfFile v1obj = obj;
+    v1obj.version = 1;
+    if (!qasm::omf_write(v1obj, bytes, err)) fail("write v1 object: " + err);
+    else {
+        std::string dump = dump_of(bytes, ok);
+        if (!ok) fail("v1 object dump");
+        expect_has(dump, "OMF 1.0 object file");
+        expect_has(dump, "bytecnt $");
+        expect_has(dump, "GLOBAL  \"CODE\"  at $00000000  length $00  type 'N' ($4E)  private 0");
+        expect_has(dump, "RELEXPR  width 2  at $00000001  HOOK");
+        expect_absent(dump, "blkcnt");
+    }
+
+    qasm::OmfFile v1load;
+    v1load.version = 1;
+    v1load.segs.push_back(seg_with("CODE", {0x60}));
+    if (!qasm::omf_write(v1load, bytes, err)) fail("write v1 load: " + err);
+    else {
+        std::string dump = dump_of(bytes, ok);
+        if (!ok) fail("v1 load dump");
+        expect_has(dump, "OMF 1.0 load file");
+        expect_has(dump, "blkcnt $00000001");
+        expect_has(dump, "lcbank $00");
+        expect_has(dump, "LCONST  1 byte at $00000000");
+        expect_has(dump, "padding:");
+        expect_has(dump, "relocations: 0");
+    }
+
+    std::vector<uint8_t> body;
+    put_u8(body, 0xE1);
+    put_u32(body, 0x00002000);
+    put_u8(body, 0xF1);
+    put_u32(body, 4);
+    put_u8(body, 0xF5);
+    put_u8(body, 2);
+    put_u8(body, 0);
+    put_u16(body, 0x0001);
+    put_u16(body, 0x0002);
+    put_u8(body, 0xF6);
+    put_u8(body, 2);
+    put_u8(body, 0xFF);
+    put_u16(body, 0x0010);
+    put_u8(body, 3);
+    put_u16(body, 0x0004);
+    put_u8(body, 0xF7);
+    put_u32(body, 3);
+    put_u8(body, 0x05);
+    put_u8(body, 0xAA);
+    put_u8(body, 0xBB);
+    put_u8(body, 0x00);
+    bytes = raw_seg(2, 4, 0, body);
+    bytes[0x0C] = 0xAB;
+    patch_u16(bytes, 0x16, 0x0002);
+    bytes[0x21] = 0x7F;
+    {
+        std::string dump = dump_of(bytes, ok);
+        if (!ok) fail("compressed records");
+        expect_has(dump, "reserved +$0C $AB");
+        expect_has(dump, "reserved +$16 $0002");
+        expect_has(dump, "reserved +$21 $7F");
+        expect_has(dump, "ORG  $00002000");
+        expect_has(dump, "DS  $00000004 bytes at $00002000");
+        expect_has(dump, "cRELOC  width 2  shift 0  at $0001  disp $0002");
+        expect_has(dump, "cINTERSEG  width 2  shift -1  at $0010  seg 3  disp $0004");
+        expect_has(dump, "SUPER  type $05  2 bytes");
+        expect_has(dump, "AA BB");
+        expect_has(dump, "relocations: 3");
+    }
+
+    body.clear();
+    put_u8(body, 0xE2);
+    put_u8(body, 2);
+    put_u8(body, 0);
+    body.push_back(0x00);
+    body.push_back(0x00);
+    body.push_back(0x00);
+    body.push_back(0x01);
+    body.push_back(0x00);
+    body.push_back(0x00);
+    body.push_back(0x00);
+    body.push_back(0x0A);
+    put_u8(body, 0x00);
+    bytes = raw_seg(2, 4, 1, body);
+    {
+        std::string dump = dump_of(bytes, ok);
+        if (!ok) fail("big-endian reloc");
+        expect_has(dump, "numsex 1 (big)");
+        expect_has(dump, "RELOC  width 2  shift 0  at $00000001  disp $0000000A");
+    }
+
+    body.clear();
+    put_u8(body, 0xE2);
+    put_u8(body, 2);
+    put_u8(body, 0);
+    put_u16(body, 0x0001);
+    put_u16(body, 0x000A);
+    put_u8(body, 0x00);
+    bytes = raw_seg(2, 2, 0, body);
+    {
+        std::string dump = dump_of(bytes, ok);
+        if (!ok) fail("numlen 2 reloc");
+        expect_has(dump, "numlen 2");
+        expect_has(dump, "RELOC  width 2  shift 0  at $00000001  disp $0000000A");
+    }
+
+    if (!qasm::omf_write(load, bytes, err)) fail("write for bad opcode: " + err);
+    else if (bytes.empty() || bytes.back() != 0x00) fail("load file does not end at END");
+    else {
+        bytes.back() = 0xE9;
+        std::string dump = dump_of(bytes, ok);
+        if (ok || dump.find("unsupported OMF record $E9") == std::string::npos)
+            fail("unsupported record");
+    }
+
+    std::ostringstream log;
+    qasm::LinkOutput linked = qasm::link_script("test/fixtures/disk.link", log);
+    if (!linked.ok()) {
+        for (const auto &e : linked.errors) fail(e);
+    } else {
+        auto check_file = [](const std::string &path, const std::string &needle) {
+            std::ifstream in(path, std::ios::binary);
+            if (!in) {
+                fail("cannot read " + path);
+                return;
+            }
+            std::vector<uint8_t> buf((std::istreambuf_iterator<char>(in)),
+                                     std::istreambuf_iterator<char>());
+            bool good = false;
+            std::string dump = dump_of(buf, good);
+            if (!good) fail(path + " dump");
+            expect_has(dump, needle);
+        };
+        check_file("test/fixtures/apple.omf", "OMF 1.0 load file, 1 segment, ");
+        check_file("test/fixtures/apple.omf", "org $00002000");
+        check_file("test/fixtures/apple.omf", "20 0A 20 AD 09 20 09 20 6B 42 20 00 20");
+        check_file("test/fixtures/apple.omf", "blkcnt $");
+        check_file("test/fixtures/apple.omf", "relocations: 0");
+        check_file("test/fixtures/prog.omf", "OMF 2.0 load file, 2 segments, ");
+        check_file("test/fixtures/prog.omf", "segname \"CODE\"");
+        check_file("test/fixtures/prog.omf", "segname \"DATA\"");
+        check_file("test/fixtures/prog.omf", "kind $0001 data");
+        check_file("test/fixtures/prog.omf",
+                   "INTERSEG  width 2  shift 0  at $00000001  file 1  seg 2  disp $00000001");
+        check_file("test/fixtures/prog.omf",
+                   "INTERSEG  width 2  shift 0  at $00000004  file 1  seg 2  disp $00000000");
+        check_file("test/fixtures/prog.omf",
+                   "INTERSEG  width 2  shift 0  at $00000006  file 1  seg 2  disp $00000000");
+        check_file("test/fixtures/prog.omf",
+                   "INTERSEG  width 2  shift 0  at $00000002  file 1  seg 1  disp $00000000");
+        check_file("test/fixtures/prog.omf",
+                   "INTERSEG  width 2  shift 0  at $00000005  file 1  seg 1  disp $00000000");
+        check_file("test/fixtures/prog.omf",
+                   "INTERSEG  width 2  shift 0  at $00000007  file 1  seg 1  disp $00000000");
+        check_file("test/fixtures/prog.omf", "relocations: 3");
+        check_file("test/fixtures/runtime.lib", "OMF 2.0 object file");
+        check_file("test/fixtures/runtime.lib", "GLOBAL  \"VALUE\"");
+        check_file("test/fixtures/runtime.lib", "RELEXPR");
+    }
+
+    const char *tool = std::getenv("QOMF");
+    if (tool && !load.segs.empty()) {
+        if (!qasm::omf_write(load, bytes, err)) fail("cli write: " + err);
+        else {
+            const std::string in = "test/fixtures/qomf-cli.omf";
+            const std::string out = "test/fixtures/qomf-cli.txt";
+            std::ofstream f(in, std::ios::binary);
+            f.write(reinterpret_cast<const char *>(bytes.data()),
+                    static_cast<std::streamsize>(bytes.size()));
+            f.close();
+            std::string cmd = std::string("\"") + tool + "\" \"" + in + "\" > \"" + out + "\"";
+            int rc = std::system(cmd.c_str());
+            if (rc != 0) fail("qomf command failed");
+            else {
+                std::ifstream text(out);
+                std::string got((std::istreambuf_iterator<char>(text)),
+                                std::istreambuf_iterator<char>());
+                expect_has(got, "INTERSEG  width 3  shift -8  at $00000004  file 1  seg 2  disp $00000001");
+                expect_has(got, "RELOC  width 2  shift 0  at $00000001  disp $00000000");
+                expect_has(got, in + ": OMF 2.0 load file");
+            }
+            std::remove(in.c_str());
+            std::remove(out.c_str());
+        }
+    }
+
+    if (fails) {
+        std::cerr << fails << " qomf check" << (fails == 1 ? "" : "s") << " failed\n";
+        return 1;
+    }
+    std::cout << "qomf tests passed\n";
+    return 0;
+}
diff --git a/test/test_qpro.cpp b/test/test_qpro.cpp
new file mode 100644
index 0000000..0128052
--- /dev/null
+++ b/test/test_qpro.cpp
@@ -0,0 +1,575 @@
+/* ProDOS volume create, copy, delete, and file type. */
+
+#include "qpro.hpp"
+
+#include <cstdint>
+#include <cstdio>
+#include <cstdlib>
+#include <cstring>
+#include <ctime>
+#include <fstream>
+#include <iostream>
+#include <string>
+#include <vector>
+#include <sys/wait.h>
+#include <unistd.h>
+
+namespace {
+
+int fails = 0;
+
+void fail(const std::string &msg)
+{
+    std::cerr << "FAIL " << msg << "\n";
+    fails++;
+}
+
+void expect(bool cond, const std::string &msg)
+{
+    if (!cond) fail(msg);
+}
+
+void expect_eq(uint32_t got, uint32_t want, const std::string &msg)
+{
+    if (got == want) return;
+    fail(msg + " got " + std::to_string(got) + " want " + std::to_string(want));
+}
+
+void expect_err(bool ok, const std::string &err, const std::string &needle, const std::string &what)
+{
+    if (ok) {
+        fail(what + " succeeded");
+        return;
+    }
+    if (err.find(needle) == std::string::npos) fail(what + " error '" + err + "'");
+}
+
+uint16_t r16(const uint8_t *p)
+{
+    return static_cast<uint16_t>(p[0] | (p[1] << 8));
+}
+
+const uint8_t *block(const qasm::ProVolume &vol, uint16_t n)
+{
+    return vol.blocks.data() + static_cast<size_t>(n) * 512;
+}
+
+/* Bit 7 of a bitmap byte is the lowest block. A set bit is free. */
+bool bit_free(const qasm::ProVolume &vol, uint16_t blk)
+{
+    uint16_t bmp = r16(block(vol, 2) + 0x27);
+    uint32_t byte = blk / 8u;
+    uint16_t which = static_cast<uint16_t>(bmp + byte / 512);
+    const uint8_t *p = block(vol, which) + (byte % 512);
+    uint8_t mask = static_cast<uint8_t>(0x80u >> (blk & 7));
+    return (*p & mask) != 0;
+}
+
+std::vector<uint8_t> pattern(size_t n)
+{
+    std::vector<uint8_t> b(n);
+    for (size_t i = 0; i < n; i++) b[i] = static_cast<uint8_t>((i * 17 + 3) & 0xff);
+    return b;
+}
+
+bool make_vol(qasm::ProVolume &vol, const std::string &name, uint16_t blocks)
+{
+    std::string err;
+    if (!qasm::pro_create(vol, name, blocks, err)) {
+        fail("create " + name + ": " + err);
+        return false;
+    }
+    return true;
+}
+
+void test_names()
+{
+    qasm::ProVolume vol;
+    std::string err;
+    expect_err(qasm::pro_create(vol, "", 280, err), err, "invalid name", "empty name");
+    expect_err(qasm::pro_create(vol, "1DISK", 280, err), err, "invalid name", "digit name");
+    expect_err(qasm::pro_create(vol, "HAS SPACE", 280, err), err, "invalid name", "space name");
+    expect_err(qasm::pro_create(vol, "ABCDEFGHIJKLMNOP", 280, err), err, "invalid name", "long name");
+    expect_err(qasm::pro_create(vol, "A-B", 280, err), err, "invalid name", "hyphen");
+    expect_err(qasm::pro_create(vol, "OK", 6, err), err, "volume too small", "6 blocks");
+    expect(qasm::pro_create(vol, "Test.Disk", 280, err), "dotted name");
+    expect(qasm::pro_volume_name(vol) == "TEST.DISK", "stored upper case");
+
+    uint16_t n = 0;
+    expect(qasm::pro_parse_size("140K", n, err) && n == 280, "140k");
+    expect(qasm::pro_parse_size("800kb", n, err) && n == 1600, "800k");
+    expect(qasm::pro_parse_size("32M", n, err) && n == 65535, "32m");
+    expect_err(qasm::pro_parse_size("1g", n, err), err, "bad size", "1g");
+}
+
+void test_header()
+{
+    qasm::ProVolume vol;
+    if (!make_vol(vol, "test", 280)) return;
+    expect_eq(vol.blocks.size(), 280u * 512u, "image bytes");
+    expect_eq(qasm::pro_total_blocks(vol), 280, "total");
+    expect_eq(qasm::pro_free_blocks(vol), 273, "free");
+    const uint8_t *b = block(vol, 2);
+    expect(r16(b) == 0, "prev");
+    expect(r16(b + 2) == 3, "next");
+    expect(b[4] == 0xF4, "storage and length");
+    expect(std::memcmp(b + 5, "TEST", 4) == 0, "name bytes");
+    expect(b[0x20] == 0, "version");
+    expect(b[0x21] == 0, "min version");
+    expect(b[0x22] == 0xE3, "access");
+    expect(b[0x23] == 0x27, "entry length");
+    expect(b[0x24] == 0x0D, "entries per block");
+    expect(r16(b + 0x25) == 0, "file count");
+    expect(r16(b + 0x27) == 6, "bitmap");
+    expect(r16(b + 0x29) == 280, "total field");
+    expect(r16(block(vol, 3)) == 2 && r16(block(vol, 3) + 2) == 4, "block 3 links");
+    expect(r16(block(vol, 4)) == 3 && r16(block(vol, 4) + 2) == 5, "block 4 links");
+    expect(r16(block(vol, 5)) == 4 && r16(block(vol, 5) + 2) == 0, "block 5 links");
+    expect(block(vol, 0)[0] == 0 && block(vol, 1)[0] == 0, "boot blocks empty");
+    for (uint16_t i = 0; i <= 6; i++) expect(!bit_free(vol, i), "used " + std::to_string(i));
+    expect(bit_free(vol, 7), "block 7 free");
+    expect(block(vol, 6)[0] == 0x01, "bitmap byte 0");
+    expect(block(vol, 6)[34] == 0xFF, "last used bitmap byte");
+    expect(block(vol, 6)[35] == 0x00, "bitmap past end");
+
+    std::time_t now = std::time(nullptr);
+    std::tm tm{};
+    localtime_r(&now, &tm);
+    int year = tm.tm_year + 1900;
+    int field = year >= 2000 ? year - 2000 : year - 1900;
+    uint16_t date = r16(b + 0x1c);
+    expect_eq(date >> 9, static_cast<uint32_t>(field), "year");
+    expect_eq((date >> 5) & 0xF, static_cast<uint32_t>(tm.tm_mon + 1), "month");
+    expect_eq(date & 0x1F, static_cast<uint32_t>(tm.tm_mday), "day");
+    uint16_t tim = r16(b + 0x1e);
+    expect((tim & ~0x1F3F) == 0, "time unused bits");
+    int hour = (tim >> 8) & 0x1F;
+    int minute = tim & 0x3F;
+    bool same = hour == tm.tm_hour && minute == tm.tm_min;
+    int prev_h = tm.tm_hour;
+    int prev_m = tm.tm_min - 1;
+    if (prev_m < 0) {
+        prev_m = 59;
+        prev_h = (tm.tm_hour + 23) % 24;
+    }
+    expect(same || (hour == prev_h && minute == prev_m), "time");
+
+    std::vector<qasm::ProFileInfo> ents;
+    std::string err;
+    expect(qasm::pro_catalog(vol, "", ents, err) && ents.empty(), "empty catalog");
+    expect(qasm::pro_catalog(vol, "/TEST", ents, err) && ents.empty(), "root path");
+    expect_err(qasm::pro_catalog(vol, "/NOPE", ents, err), err, "volume name mismatch", "wrong volume");
+}
+
+void test_wide_bitmap()
+{
+    qasm::ProVolume vol;
+    if (!make_vol(vol, "wide", 4097)) return;
+    expect_eq(qasm::pro_free_blocks(vol), 4097 - 8, "two bitmap blocks");
+    expect(!bit_free(vol, 7), "second bitmap used");
+    expect(bit_free(vol, 8), "first data free");
+    /* Block 4096 is the last block: byte 512 of the bitmap, bit 7. */
+    expect(bit_free(vol, 4096), "last block free");
+    const uint8_t *second = block(vol, 7);
+    expect(second[0] == 0x80, "partial last bitmap byte");
+    expect(second[1] == 0, "no block past the end");
+}
+
+void test_round_trip(qasm::ProVolume &vol, const std::string &path, const std::vector<uint8_t> &data,
+                     uint8_t type, uint16_t aux, uint8_t storage, uint16_t blocks)
+{
+    std::string err;
+    uint16_t before = qasm::pro_free_blocks(vol);
+    expect(qasm::pro_add(vol, path, data, type, aux, err), path + " add " + err);
+    std::vector<qasm::ProFileInfo> ents;
+    expect(qasm::pro_catalog(vol, path, ents, err) && ents.size() == 1, path + " catalog");
+    if (ents.size() == 1) {
+        expect(ents[0].name == "FILE" || ents[0].name.size() > 0, path + " named");
+        expect_eq(ents[0].storage, storage, path + " storage");
+        expect_eq(ents[0].type, type, path + " type");
+        expect_eq(ents[0].aux, aux, path + " aux");
+        expect_eq(ents[0].eof, static_cast<uint32_t>(data.size()), path + " eof");
+        expect_eq(ents[0].blocks, blocks, path + " blocks");
+    }
+    std::vector<uint8_t> got;
+    expect(qasm::pro_get(vol, path, got, err), path + " get " + err);
+    expect(got == data, path + " bytes");
+    expect_eq(static_cast<uint32_t>(before - qasm::pro_free_blocks(vol)), blocks, path + " bitmap");
+}
+
+void test_files()
+{
+    qasm::ProVolume vol;
+    if (!make_vol(vol, "files", 280)) return;
+    test_round_trip(vol, "empty", {}, 0x06, 0, 1, 1);
+    test_round_trip(vol, "small", pattern(100), 0xFF, 0x2000, 1, 1);
+    test_round_trip(vol, "fullseed", pattern(512), 0x06, 0, 1, 1);
+    test_round_trip(vol, "sap", pattern(513), 0x06, 0, 2, 3);
+    test_round_trip(vol, "sap600", pattern(600), 0x04, 0x0000, 2, 3);
+
+    std::string err;
+    std::vector<uint8_t> again = pattern(100);
+    expect_err(qasm::pro_add(vol, "small", again, 6, 0, err), err, "already exists", "duplicate");
+    expect_err(qasm::pro_add(vol, "NO/FILE", again, 6, 0, err), err, "not found", "missing parent");
+    expect(qasm::pro_add(vol, "small2", pattern(4), 6, 0, err), "small2");
+    expect_err(qasm::pro_add(vol, "small2/child", pattern(4), 6, 0, err), err, "not a directory",
+               "file as dir");
+    expect_err(qasm::pro_get(vol, "nope", again, err), err, "not found", "missing get");
+
+    uint16_t free_now = qasm::pro_free_blocks(vol);
+    expect(qasm::pro_remove(vol, "SMALL", err), "remove small " + err);
+    expect_eq(qasm::pro_free_blocks(vol), free_now + 1, "seedling freed");
+    expect_err(qasm::pro_get(vol, "small", again, err), err, "not found", "gone");
+    expect(qasm::pro_add(vol, "small", pattern(100), 0xFF, 0x2000, err), "readd");
+    const uint8_t *e = block(vol, 2) + 4 + 0x27;
+    /* The first live entry may be EMPTY. Find SMALL. */
+    bool found = false;
+    for (int i = 1; i < 13 && !found; i++) {
+        const uint8_t *ent = block(vol, 2) + 4 + i * 0x27;
+        if ((ent[0] & 0x0f) == 5 && std::memcmp(ent + 1, "SMALL", 5) == 0) {
+            expect_eq(r16(ent + 0x11), 8, "key reuses the freed block");
+            found = true;
+            e = ent;
+        }
+    }
+    expect(found, "SMALL entry");
+    (void)e;
+
+    expect(qasm::pro_set_type(vol, "small", true, 0x06, true, 0x0801, err), "set type");
+    std::vector<qasm::ProFileInfo> ents;
+    expect(qasm::pro_catalog(vol, "Small", ents, err) && ents.size() == 1, "case get");
+    if (ents.size() == 1) {
+        expect_eq(ents[0].type, 0x06, "new type");
+        expect_eq(ents[0].aux, 0x0801, "new aux");
+        expect_eq(ents[0].eof, 100, "eof unchanged");
+    }
+    expect(qasm::pro_set_type(vol, "sap600", false, 0, true, 0x1234, err), "aux only");
+    expect(qasm::pro_catalog(vol, "SAP600", ents, err) && ents.size() == 1 && ents[0].type == 0x04 &&
+               ents[0].aux == 0x1234,
+           "aux kept type");
+
+    qasm::ProVolume tiny;
+    expect(qasm::pro_create(tiny, "tiny", 8, err), "8 blocks");
+    expect_eq(qasm::pro_free_blocks(tiny), 1, "one free");
+    expect_err(qasm::pro_add(tiny, "big", pattern(513), 6, 0, err), err, "disk full", "sapling full");
+    expect_eq(qasm::pro_free_blocks(tiny), 1, "unchanged after full");
+    expect(qasm::pro_add(tiny, "one", pattern(3), 6, 0, err), "one seedling");
+    expect_err(qasm::pro_add(tiny, "two", pattern(3), 6, 0, err), err, "disk full", "second file");
+    std::vector<uint8_t> got;
+    expect(qasm::pro_get(tiny, "one", got, err) && got == pattern(3), "first file intact");
+}
+
+void test_tree()
+{
+    qasm::ProVolume vol;
+    std::string err;
+    if (!make_vol(vol, "tree", 280)) return;
+    std::vector<uint8_t> sap = pattern(131072);
+    uint16_t before = qasm::pro_free_blocks(vol);
+    expect(qasm::pro_add(vol, "maxsap", sap, 0x06, 0, err), "max sapling " + err);
+    std::vector<qasm::ProFileInfo> ents;
+    expect(qasm::pro_catalog(vol, "maxsap", ents, err) && ents.size() == 1, "maxsap info");
+    if (ents.size() == 1) {
+        expect_eq(ents[0].storage, 2, "sapling storage");
+        expect_eq(ents[0].blocks, 257, "sapling blocks");
+    }
+    std::vector<uint8_t> got;
+    expect(qasm::pro_get(vol, "maxsap", got, err) && got == sap, "maxsap bytes");
+    expect(qasm::pro_remove(vol, "maxsap", err), "rm maxsap");
+    expect_eq(qasm::pro_free_blocks(vol), before, "sapling blocks freed");
+    for (uint16_t i = 0; i <= 6; i++) expect(!bit_free(vol, i), "system still used");
+
+    qasm::ProVolume big;
+    if (!make_vol(big, "tree", 1600)) return;
+    std::vector<uint8_t> tree = pattern(131073);
+    before = qasm::pro_free_blocks(big);
+    expect(qasm::pro_add(big, "bigtree", tree, 0x06, 0, err), "tree " + err);
+    expect(qasm::pro_catalog(big, "bigtree", ents, err) && ents.size() == 1, "tree info");
+    if (ents.size() == 1) {
+        expect_eq(ents[0].storage, 3, "tree storage");
+        expect_eq(ents[0].blocks, 260, "tree blocks");
+        expect_eq(ents[0].eof, 131073, "tree eof");
+    }
+    got.clear();
+    expect(qasm::pro_get(big, "bigtree", got, err) && got == tree, "tree bytes");
+    expect_eq(static_cast<uint32_t>(before - qasm::pro_free_blocks(big)), 260, "tree bitmap");
+    expect(qasm::pro_remove(big, "bigtree", err), "rm tree");
+    expect_eq(qasm::pro_free_blocks(big), before, "tree blocks freed");
+}
+
+void test_dirs()
+{
+    qasm::ProVolume vol;
+    std::string err;
+    if (!make_vol(vol, "disk", 280)) return;
+    expect(qasm::pro_mkdir(vol, "sub", err), "mkdir " + err);
+    expect_eq(r16(block(vol, 2) + 0x25), 1, "root count");
+    const uint8_t *ent = block(vol, 2) + 4 + 0x27;
+    expect(ent[0] == 0xD3, "dir storage");
+    expect(ent[0x10] == 0x0F, "dir type");
+    expect(r16(ent + 0x13) == 1, "dir blocks");
+    expect(ent[0x15] == 0 && ent[0x16] == 2 && ent[0x17] == 0, "dir eof 512");
+    uint16_t key = r16(ent + 0x11);
+    expect_eq(key, 7, "subdir key");
+    const uint8_t *h = block(vol, key);
+    expect(h[4] == 0xE3, "subdir header");
+    expect(h[4 + 0x10] == 0x76, "gsos mark");
+    expect(h[4 + 0x1c] == 5, "subdir version");
+    expect(r16(h + 4 + 0x21) == 0, "subdir count");
+    expect(r16(h + 4 + 0x23) == 2, "parent block");
+    expect(h[4 + 0x25] == 2, "parent entry");
+    expect(h[4 + 0x26] == 0x27, "parent entry length");
+
+    std::vector<uint8_t> note = pattern(20);
+    expect(qasm::pro_add(vol, "SUB/note.txt", note, 0x04, 0, err), "add in dir");
+    std::vector<uint8_t> got;
+    expect(qasm::pro_get(vol, "/DISK/sub/NOTE.TXT", got, err) && got == note, "get nested");
+    expect_err(qasm::pro_get(vol, "sub", got, err), err, "is a directory", "get dir");
+    expect_err(qasm::pro_remove(vol, "/DISK", err), err, "cannot remove volume", "rm root");
+    expect_err(qasm::pro_remove(vol, "sub", err), err, "directory not empty", "rm full dir");
+    expect(qasm::pro_get(vol, "sub/note.txt", got, err) && got == note, "still there");
+
+    expect(qasm::pro_remove(vol, "sub/note.txt", err), "rm note");
+    expect(qasm::pro_remove(vol, "sub", err), "rm empty dir");
+    expect_eq(r16(block(vol, 2) + 0x25), 0, "root count cleared");
+    expect_eq(qasm::pro_free_blocks(vol), 273, "dir blocks freed");
+
+    expect(qasm::pro_mkdir(vol, "sub", err), "mkdir again");
+    for (int i = 0; i < 13; i++) {
+        std::string path = "sub/F" + std::to_string(i);
+        expect(qasm::pro_add(vol, path, pattern(1), 6, 0, err), path);
+    }
+    std::vector<qasm::ProFileInfo> ents;
+    expect(qasm::pro_catalog(vol, "sub", ents, err) && ents.size() == 13, "13 children");
+    expect(qasm::pro_catalog(vol, "/DISK/SUB", ents, err), "catalog sub");
+    bool sub = false;
+    for (const auto &e : ents) {
+        if (e.name == "SUB") sub = true;
+    }
+    /* catalog of the directory lists children, not itself. */
+    expect(!sub, "children only");
+    expect(qasm::pro_catalog(vol, "", ents, err), "root list");
+    sub = false;
+    uint16_t sub_blocks = 0;
+    uint32_t sub_eof = 0;
+    for (const auto &e : ents) {
+        if (e.name == "SUB") {
+            sub = true;
+            sub_blocks = e.blocks;
+            sub_eof = e.eof;
+        }
+    }
+    expect(sub, "root shows SUB");
+    expect_eq(sub_blocks, 2, "directory grew");
+    expect_eq(sub_eof, 1024, "directory eof");
+    expect(block(vol, 2)[4] == 0xF4, "volume header intact");
+    expect(std::memcmp(block(vol, 2) + 5, "DISK", 4) == 0, "volume name intact");
+    expect(r16(block(vol, 2) + 0x29) == 280, "total intact");
+
+    qasm::ProVolume full;
+    if (!make_vol(full, "full", 280)) return;
+    for (int i = 0; i < 51; i++) {
+        char name[8];
+        std::snprintf(name, sizeof(name), "F%02d", i);
+        if (!qasm::pro_add(full, name, pattern(1), 6, 0, err)) fail(std::string("add ") + name + " " + err);
+    }
+    expect_eq(r16(block(full, 2) + 0x25), 51, "51 files");
+    expect_err(qasm::pro_add(full, "MORE", pattern(1), 6, 0, err), err, "directory full", "52nd");
+    expect_err(qasm::pro_mkdir(full, "MORE", err), err, "directory full", "mkdir full");
+}
+
+std::string slurp(const std::string &path)
+{
+    std::ifstream in(path);
+    return std::string(std::istreambuf_iterator<char>(in), std::istreambuf_iterator<char>());
+}
+
+int run(const std::string &cmd, const std::string &dir, std::string &out, std::string &err)
+{
+    std::string op = dir + "/stdout.txt";
+    std::string ep = dir + "/stderr.txt";
+    std::string full = cmd + " > '" + op + "' 2> '" + ep + "'";
+    int status = std::system(full.c_str());
+    out = slurp(op);
+    err = slurp(ep);
+    if (status == -1 || !WIFEXITED(status)) return -1;
+    return WEXITSTATUS(status);
+}
+
+void test_image_io(const std::string &dir)
+{
+    qasm::ProVolume vol;
+    std::string err;
+    if (!make_vol(vol, "wrap", 280)) return;
+    expect(qasm::pro_add(vol, "a", pattern(40), 0xFF, 0x2000, err), "wrap add");
+    std::string po = dir + "/wrap.po";
+    std::string mg = dir + "/wrap.2mg";
+    expect(qasm::pro_save(vol, po, err), "save po " + err);
+    expect(qasm::pro_save(vol, mg, err), "save 2mg " + err);
+    std::ifstream raw(po, std::ios::binary);
+    std::vector<uint8_t> bytes((std::istreambuf_iterator<char>(raw)), {});
+    expect_eq(static_cast<uint32_t>(bytes.size()), 280u * 512u, "raw size");
+    expect(bytes.size() >= 4 && std::memcmp(bytes.data(), "2IMG", 4) != 0, "raw has no 2mg");
+
+    std::ifstream img(mg, std::ios::binary);
+    std::vector<uint8_t> hdr((std::istreambuf_iterator<char>(img)), {});
+    expect(hdr.size() == 64 + 280u * 512u, "2mg size");
+    expect(std::memcmp(hdr.data(), "2IMG", 4) == 0, "magic");
+    expect(std::memcmp(hdr.data() + 4, "qpro", 4) == 0, "creator");
+    expect(r16(hdr.data() + 8) == 64, "header length");
+    expect(hdr[0x0c] == 1, "prodos order");
+
+    qasm::ProVolume loaded;
+    expect(qasm::pro_load(loaded, mg, err), "load 2mg " + err);
+    expect(loaded.wrapped_2mg, "wrapped flag");
+    std::vector<uint8_t> got;
+    expect(qasm::pro_get(loaded, "A", got, err) && got == pattern(40), "2mg bytes");
+    qasm::ProVolume rawv;
+    expect(qasm::pro_load(rawv, po, err), "load po");
+    expect(!rawv.wrapped_2mg, "raw flag");
+    expect(qasm::pro_get(rawv, "a", got, err) && got == pattern(40), "po bytes");
+
+    std::string bad = dir + "/bad.po";
+    {
+        std::ofstream out(bad, std::ios::binary);
+        std::vector<uint8_t> z(7 * 512, 0);
+        out.write(reinterpret_cast<const char *>(z.data()), static_cast<std::streamsize>(z.size()));
+    }
+    expect_err(qasm::pro_load(rawv, bad, err), err, "not a ProDOS volume", "zeros");
+}
+
+void test_boot(void)
+{
+    qasm::ProVolume vol;
+    std::string err;
+    if (!make_vol(vol, "boot", 280)) return;
+    std::vector<uint8_t> boot(1024);
+    for (size_t i = 0; i < boot.size(); i++) boot[i] = static_cast<uint8_t>(i & 0xFF);
+    boot[0] = 0xD8;
+    uint16_t free_before = qasm::pro_free_blocks(vol);
+    expect(qasm::pro_write_boot(vol, boot, err), "write boot " + err);
+    expect(std::memcmp(block(vol, 0), boot.data(), 512) == 0, "block 0");
+    expect(std::memcmp(block(vol, 1), boot.data() + 512, 512) == 0, "block 1");
+    expect_eq(qasm::pro_free_blocks(vol), free_before, "boot keeps bitmap");
+    expect(!bit_free(vol, 0) && !bit_free(vol, 1) && bit_free(vol, 7), "boot bits");
+    std::vector<uint8_t> shortb(512, 0x11);
+    expect_err(qasm::pro_write_boot(vol, shortb, err), err, "boot image must be 1024 bytes",
+               "short boot");
+    expect(block(vol, 0)[0] == 0xD8, "failed boot leaves block 0");
+}
+
+void test_cli(const std::string &dir)
+{
+    const char *tool = std::getenv("QPRO");
+    if (!tool || !*tool) return;
+    std::string q = std::string("'") + tool + "'";
+    std::string vol = dir + "/disk.po";
+    std::string host = dir + "/host.bin";
+    std::string outp = dir + "/out.bin";
+    std::vector<uint8_t> body = pattern(300);
+    {
+        std::ofstream out(host, std::ios::binary);
+        out.write(reinterpret_cast<const char *>(body.data()), static_cast<std::streamsize>(body.size()));
+    }
+    std::string out, err;
+    expect_eq(static_cast<uint32_t>(run(q, dir, out, err)), 2, "no args");
+    expect(err.find("qpro create") != std::string::npos, "usage text");
+    expect_eq(static_cast<uint32_t>(run(q + " -V", dir, out, err)), 0, "version status");
+    expect(out.find("qpro 0.1.0") != std::string::npos, "version text");
+
+    int rc = run(q + " create '" + vol + "' -name Test -blocks 280", dir, out, err);
+    expect_eq(static_cast<uint32_t>(rc), 0, "cli create");
+    expect(out.find("created volume TEST") != std::string::npos, "create summary");
+    expect(out.find("280 blocks") != std::string::npos, "create blocks");
+    rc = run(q + " create '" + vol + "' -name Test -blocks 280", dir, out, err);
+    expect_eq(static_cast<uint32_t>(rc), 1, "create exists");
+    expect(err.find("already exists") != std::string::npos, "exists text");
+
+    std::string sized = dir + "/floppy.po";
+    rc = run(q + " create '" + sized + "' -name Floppy -size 140k", dir, out, err);
+    expect_eq(static_cast<uint32_t>(rc), 0, "size 140k");
+    qasm::ProVolume flop;
+    std::string why;
+    expect(qasm::pro_load(flop, sized, why) && qasm::pro_total_blocks(flop) == 280, "140k blocks");
+
+    rc = run(q + " add '" + vol + "' basic.system '" + host + "' -t '$FF' -a '$2000'", dir, out, err);
+    expect_eq(static_cast<uint32_t>(rc), 0, "cli add " + err);
+    rc = run(q + " mkdir '" + vol + "' sub", dir, out, err);
+    expect_eq(static_cast<uint32_t>(rc), 0, "cli mkdir");
+    rc = run(q + " add '" + vol + "' sub/note '" + host + "' -t '$04'", dir, out, err);
+    expect_eq(static_cast<uint32_t>(rc), 0, "cli add dir");
+    rc = run(q + " get '" + vol + "' /TEST/BASIC.SYSTEM '" + outp + "'", dir, out, err);
+    expect_eq(static_cast<uint32_t>(rc), 0, "cli get");
+    std::ifstream gotf(outp, std::ios::binary);
+    std::vector<uint8_t> got((std::istreambuf_iterator<char>(gotf)), {});
+    expect(got == body, "cli bytes");
+
+    rc = run(q + " cat '" + vol + "'", dir, out, err);
+    expect_eq(static_cast<uint32_t>(rc), 0, "cli cat");
+    expect(out.find("BASIC.SYSTEM") != std::string::npos, "cat name");
+    expect(out.find(" FF  2000") != std::string::npos, "cat type");
+    expect(out.find("/TEST") != std::string::npos, "cat volume");
+
+    rc = run(q + " typ '" + vol + "' sub/note -t '$06' -a '$0800'", dir, out, err);
+    expect_eq(static_cast<uint32_t>(rc), 0, "cli typ");
+    expect(out.find("type $06 aux $0800") != std::string::npos, "typ summary");
+    rc = run(q + " rm '" + vol + "' sub", dir, out, err);
+    expect_eq(static_cast<uint32_t>(rc), 1, "rm nonempty");
+    expect(err.find("directory not empty") != std::string::npos, "nonempty text");
+    rc = run(q + " rm '" + vol + "' BASIC.SYSTEM", dir, out, err);
+    expect_eq(static_cast<uint32_t>(rc), 0, "cli rm");
+    rc = run(q + " rm '" + vol + "' sub/note", dir, out, err);
+    expect_eq(static_cast<uint32_t>(rc), 0, "rm note");
+    rc = run(q + " rm '" + vol + "' sub", dir, out, err);
+    expect_eq(static_cast<uint32_t>(rc), 0, "rm dir");
+    rc = run(q + " cat '" + vol + "'", dir, out, err);
+    expect(out.find("BASIC.SYSTEM") == std::string::npos, "file gone");
+    expect(out.find(" SUB") == std::string::npos, "dir gone");
+
+    std::string bpath = dir + "/bootblk.bin";
+    std::vector<uint8_t> boot(1024, 0x22);
+    boot[0] = 0xD8;
+    {
+        std::ofstream bout(bpath, std::ios::binary);
+        bout.write(reinterpret_cast<const char *>(boot.data()),
+                   static_cast<std::streamsize>(boot.size()));
+    }
+    rc = run(q + " boot '" + vol + "' '" + bpath + "'", dir, out, err);
+    expect_eq(static_cast<uint32_t>(rc), 0, "cli boot " + err);
+    qasm::ProVolume booted;
+    expect(qasm::pro_load(booted, vol, why), "reload boot");
+    expect(booted.blocks.size() >= 512 && booted.blocks[0] == 0xD8, "cli boot byte");
+    rc = run(q + " boot '" + vol + "' '" + host + "'", dir, out, err);
+    expect_eq(static_cast<uint32_t>(rc), 1, "cli short boot");
+    expect(err.find("boot image must be 1024 bytes") != std::string::npos, "short boot text");
+}
+
+} // namespace
+
+int main()
+{
+    char tmpl[] = "/tmp/qpro-test-XXXXXX";
+    if (!mkdtemp(tmpl)) {
+        std::cerr << "FAIL mkdtemp\n";
+        return 1;
+    }
+    std::string dir = tmpl;
+    test_names();
+    test_header();
+    test_wide_bitmap();
+    test_files();
+    test_tree();
+    test_dirs();
+    test_image_io(dir);
+    test_boot();
+    test_cli(dir);
+    std::string cleanup = "rm -rf '" + dir + "'";
+    if (std::system(cleanup.c_str()) != 0) fail("cleanup");
+
+    if (fails) {
+        std::cerr << fails << " qpro check" << (fails == 1 ? "" : "s") << " failed\n";
+        return 1;
+    }
+    std::cout << "qpro tests passed\n";
+    return 0;
+}